)]}'
{"version":3,"file":"CadiaWEB_2_0_1301.js","sources":["../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/tms_2_0_1301.js","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/rtl_2_0_1301.js","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/system.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/rtlconsts.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/types.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/js.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/sysutils.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/typinfo.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/web.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/p2jsres.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/simplelinkedlist.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/classes.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/UITypes.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.Consts.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.Dialogs.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.Controls.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.Graphics.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/math.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/rtti.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.JSON.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.Storage.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.REST.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.Utils.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.WebTools.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/contnrs.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.Modules.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.Lang.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.Menus.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.ClientConnector.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/Rtl.BrowserLoadHelper.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.Forms.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.StdCtrls.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.ExtCtrls.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.TreeNodes.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.Buttons.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.ComCtrls.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/strutils.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/TimeSpan.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/generics.defaults.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS XData/source/core/common/XData.Model.Types.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Core/WEBLib.TMSFNCPersistence.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Core/WEBLib.TMSFNCWebBrowser.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/generics.strings.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/generics.collections.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.DesignIntf.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/dateutils.helper.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/dateutils.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.Login.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/dbconst.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/db.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/fpexprpars.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/jsondataset.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS BIZ Core Library/source/core/common/Bcl.Utils.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS XData/source/core/web/XData.Web.JsonDataset.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS BIZ Core Library/source/core/common/Bcl.Rtti.Common.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS BIZ Core Library/source/core/common/Bcl.Json.Common.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS BIZ Core Library/source/core/common/Bcl.Json.Attributes.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS BIZ Core Library/source/core/common/Bcl.Collections.Common.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS BIZ Core Library/source/core/common/Bcl.SysUtils.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS XData/source/core/common/XData.Types.Converters.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS XData/source/core/common/XData.Utils.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS XData/source/core/common/XData.Model.Classes.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS XData/source/core/web/XData.Web.Headers.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS XData/source/core/web/XData.Web.Request.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS XData/source/core/web/XData.Web.Response.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS BIZ Core Library/source/core/common/Bcl.TypInfo.Common.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS XData/source/core/common/XData.Model.Deserializer.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS XData/source/core/web/XData.Web.Connection.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS XData/source/core/web/XData.Bind.Converter.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS XData/source/core/web/XData.Web.Client.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS XData/source/core/common/XData.Web.DatasetCommon.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS XData/source/core/web/XData.Web.Dataset.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.DB.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.WebCtrls.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/jsdelphisystem.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.Mask.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.Ctrls.SVG.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.Grids.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.EditAutocomplete.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.Lists.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.DropDown.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.DBCtrls.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.RegularExpressions.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.CDS.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Core/WEBLib.TMSFNCUtils.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/variants.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Core/WEBLib.TMSFNCJSONReader.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Core/WEBLib.TMSFNCJSONWriter.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Core/WEBLib.TMSFNCTypes.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Core/WEBLib.TMSFNCGraphicsTypes.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Core/WEBLib.TMSFNCCustomComponent.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Core/WEBLib.TMSFNCGraphics.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Core/WEBLib.TMSFNCBitmapContainer.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Core/WEBLib.TMSFNCHTMLEngine.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Core/WEBLib.TMSFNCGraphics.General.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Core/WEBLib.TMSFNCGraphics.WEB.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Core/WEBLib.TMSFNCStyles.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Core/WEBLib.TMSFNCUndo.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Core/WEBLib.TMSFNCCustomControl.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Core/WEBLib.TMSFNCScrollBar.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC UI Pack/WEBLib.TMSFNCTreeViewBase.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC UI Pack/WEBLib.TMSFNCTreeViewData.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Core/WEBLib.TMSFNCPopup.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC UI Pack/WEBLib.TMSFNCImage.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC UI Pack/WEBLib.TMSFNCCustomTreeView.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC UI Pack/WEBLib.TMSFNCCustomSelector.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC UI Pack/WEBLib.TMSFNCCustomPicker.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC UI Pack/WEBLib.TMSFNCControlPicker.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC UI Pack/WEBLib.TMSFNCTreeView.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC UI Pack/WEBLib.TMSFNCBitmapSelector.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC UI Pack/WEBLib.TMSFNCColorWheelResources.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC UI Pack/WEBLib.TMSFNCColorWheel.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC UI Pack/WEBLib.TMSFNCColorSelector.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC UI Pack/WEBLib.TMSFNCToolBarRes.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC UI Pack/WEBLib.TMSFNCToolBar.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC UI Pack/WEBLib.TMSFNCEdit.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC UI Pack/WEBLib.TMSFNCTableView.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC UI Pack/WEBLib.TMSFNCSignatureCapture.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC UI Pack/WEBLib.TMSFNCCalendar.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC UI Pack/WEBLib.TMSFNCDatePicker.pas","../../Unit_Artikel.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/libfilereader.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/libglmatrix.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/RTL/libmedia.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.Devices.pas","../../unit_BarcodeScan.pas","../../unit_Artikelsuche.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.SignatureCapture.pas","../../unit_AuftragUnterschriften.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC UI Pack/WEBLib.TMSFNCDigitalTimeSelector.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC UI Pack/WEBLib.TMSFNCDigitalTimePicker.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC UI Pack/WEBLib.TMSFNCAnalogTimeSelector.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC UI Pack/WEBLib.TMSFNCAnalogTimePicker.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC UI Pack/WEBLib.TMSFNCDateTimePicker.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Core/WEBLib.TMSFNCWebBrowser.WEB.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCMapsCommonTypes.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Core/WEBLib.TMSFNCCloudBase.WEB.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Core/WEBLib.TMSFNCCloudBase.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCGeocoding.Google.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCGeocoding.Here.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCGeocoding.Bing.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCGeocoding.Azure.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCGeocoding.MapBox.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCGeocoding.TomTom.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCGeocoding.OpenStreetMap.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCGeocoding.OpenRouteService.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCGeocoding.GeoApify.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCGeocoding.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCDirections.Google.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCGoogleRoutes.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCDirections.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCDirections.GoogleRoutes.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCDirections.Here.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCDirections.Bing.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCDirections.Azure.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCDirections.MapBox.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCDirections.TomTom.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCDirections.OpenRouteService.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCDirections.GeoApify.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCLocation.IPStack.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCLocation.Google.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCLocation.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCRouteCalculator.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCMaps.GoogleMaps.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCMaps.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCMaps.Here.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCMaps.BingMaps.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCMaps.TomTom.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCMaps.AzureMaps.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCMaps.OpenLayers.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCMaps.Leaflet.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCMaps.MapBox.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCMaps.MapKit.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS FNC Maps/WEBLib.TMSFNCOpenLayers.pas","../../unit_Karte.pas","../../unit_EinzelBeleg.pas","../../unit_BelegeUndPositionen.pas","../../unit_Preise.pas","../../unit_EinzelAnsprechpartner.pas","../../unit_ListeAnsprechpartner.pas","../../unit_GetPhoto.pas","../../unit_EinzelDatei.pas","../../unit_Dateien.pas","../../unit_TicketNeu.pas","../../unit_KontaktAenderung.pas","../../unit_EinzelKontakt.pas","../../unit_Kontaktsuche.pas","../../unit_Objektsuche.pas","../../unit_Einzeltermin.pas","../../unit_AuftragTermine.pas","../../unit_AuftragPosEinzel.pas","../../unit_AuftragSuche.pas","../../unit_ProduktionSuche.pas","../../unit_Kontaktnummersuche.pas","../../unit_PZE.pas","../../unit_EinzelAuftrag.pas","../../Unit2.pas","../../../Users/Langwald/AppData/Local/tmssoftware/registered/TMS WEB Core RSXE15/Core Source/WEBLib.FlexControls.pas","../../unit_EinzelAnruf.pas","../../unit_Anrufe.pas","../../unit_Terminkalender.pas","../../unit_ListeAuftrag.pas","../../Unit_AngebotPosEinzel.pas","../../unit_EinzelAngebot.pas","../../unit_ListeAngebot.pas","../../unit_EinzelEmail.pas","../../unit_EmailEingang.pas","../../unit_LieferscheinUnterschrift.pas","../../unit_EinzelLieferschein.pas","../../unit_ListeLieferschein.pas","../../unit_Bestellvormerkung.pas","../../unit_TelefonSuche.pas","../../unit_EinzelMitteilung.pas","../../unit_NeueMitteilung.pas","../../unit_Mitteilungen.pas","../../unit_EinzelTicket.pas","../../unit_ListeTickets.pas","../../unit_Logbuch.pas","../../unit_Inventur.pas","../../Unit1.pas","../../CadiaWEB.dpr"],"sourcesContent":["//***********************************************************************************\r\n// TMS WEB CORE framework code is copyright (c) 2018 - 2021 by tmssoftware.com bvba\r\n// The code or parts of the code cannot be used in any way outside \r\n// a TMS WEB Core application generated by a licensed user or company.\r\n//***********************************************************************************\r\n","var pas = { $libimports: {}};\r\n\r\nvar rtl = {\r\n\r\n  version: 30101,\r\n\r\n  quiet: false,\r\n  debug_load_units: false,\r\n  debug_rtti: false,\r\n\r\n  $res : {},\r\n\r\n  debug: function(){\r\n    if (rtl.quiet || !console || !console.log) return;\r\n    console.log(arguments);\r\n  },\r\n\r\n  error: function(s){\r\n    rtl.debug('Error: ',s);\r\n    throw s;\r\n  },\r\n\r\n  warn: function(s){\r\n    rtl.debug('Warn: ',s);\r\n  },\r\n\r\n  checkVersion: function(v){\r\n    if (rtl.version != v) throw \"expected rtl version \"+v+\", but found \"+rtl.version;\r\n  },\r\n\r\n  hiInt: Math.pow(2,53),\r\n\r\n  hasString: function(s){\r\n    return rtl.isString(s) && (s.length>0);\r\n  },\r\n\r\n  isArray: function(a) {\r\n    return Array.isArray(a);\r\n  },\r\n\r\n  isFunction: function(f){\r\n    return typeof(f)===\"function\";\r\n  },\r\n\r\n  isModule: function(m){\r\n    return rtl.isObject(m) && rtl.hasString(m.$name) && (pas[m.$name]===m);\r\n  },\r\n\r\n  isImplementation: function(m){\r\n    return rtl.isObject(m) && rtl.isModule(m.$module) && (m.$module.$impl===m);\r\n  },\r\n\r\n  isNumber: function(n){\r\n    return typeof(n)===\"number\";\r\n  },\r\n\r\n  isObject: function(o){\r\n    var s=typeof(o);\r\n    return (typeof(o)===\"object\") && (o!=null);\r\n  },\r\n\r\n  isString: function(s){\r\n    return typeof(s)===\"string\";\r\n  },\r\n\r\n  getNumber: function(n){\r\n    return typeof(n)===\"number\"?n:NaN;\r\n  },\r\n\r\n  getChar: function(c){\r\n    return ((typeof(c)===\"string\") && (c.length===1)) ? c : \"\";\r\n  },\r\n\r\n  getObject: function(o){\r\n    return ((typeof(o)===\"object\") || (typeof(o)==='function')) ? o : null;\r\n  },\r\n\r\n  isTRecord: function(type){\r\n    return (rtl.isObject(type) && type.hasOwnProperty('$new') && (typeof(type.$new)==='function'));\r\n  },\r\n\r\n  isPasClass: function(type){\r\n    return (rtl.isObject(type) && type.hasOwnProperty('$classname') && rtl.isObject(type.$module));\r\n  },\r\n\r\n  isPasClassInstance: function(type){\r\n    return (rtl.isObject(type) && rtl.isPasClass(type.$class));\r\n  },\r\n\r\n  hexStr: function(n,digits){\r\n    return (\"000000000000000\"+n.toString(16).toUpperCase()).slice(-digits);\r\n  },\r\n\r\n  m_loading: 0,\r\n  m_loading_intf: 1,\r\n  m_intf_loaded: 2,\r\n  m_loading_impl: 3, // loading all used unit\r\n  m_initializing: 4, // running initialization\r\n  m_initialized: 5,\r\n\r\n  module: function(module_name, intfuseslist, intfcode, impluseslist){\r\n    var lModule = pas[module_name];\r\n    if (lModule) {\r\n      lModule.$intfcode = intfcode;\r\n    } \r\n    else {\r\n      rtl.modulenew(module_name, intfuseslist, intfcode, impluseslist);\r\n    }\r\n  },\r\n\r\n  modulenew: function(module_name, intfuseslist, intfcode, impluseslist){\r\n    if (rtl.debug_load_units) rtl.debug('rtl.module name=\"'+module_name+'\" intfuses='+intfuseslist+' impluses='+impluseslist);\r\n    if (!rtl.hasString(module_name)) rtl.error('invalid module name \"'+module_name+'\"');\r\n    if (!rtl.isArray(intfuseslist)) rtl.error('invalid interface useslist of \"'+module_name+'\"');\r\n    if (!rtl.isFunction(intfcode)) rtl.error('invalid interface code of \"'+module_name+'\"');\r\n    if (!(impluseslist==undefined) && !rtl.isArray(impluseslist)) rtl.error('invalid implementation useslist of \"'+module_name+'\"');\r\n\r\n    if (pas[module_name])\r\n      rtl.error('module \"'+module_name+'\" is already registered');\r\n\r\n    var r = Object.create(rtl.tSectionRTTI);\r\n    var module = r.$module = pas[module_name] = {\r\n      $name: module_name,\r\n      $intfuseslist: intfuseslist,\r\n      $impluseslist: impluseslist,\r\n      $state: rtl.m_loading,\r\n      $intfcode: intfcode,\r\n      $implcode: null,\r\n      $impl: null,\r\n      $rtti: r\r\n    };\r\n    if (impluseslist) module.$impl = {\r\n          $module: module,\r\n          $rtti: r\r\n        };\r\n  },\r\n\r\n  exitcode: 0,\r\n\r\n  run: function(module_name){\r\n    try {\r\n      if (!rtl.hasString(module_name)) module_name='program';\r\n      if (rtl.debug_load_units) rtl.debug('rtl.run module=\"'+module_name+'\"');\r\n      rtl.initRTTI();\r\n      var module = pas[module_name];\r\n      if (!module) rtl.error('rtl.run module \"'+module_name+'\" missing');\r\n      rtl.loadintf(module);\r\n      rtl.loadimpl(module);\r\n      if ((module_name=='program') || (module_name=='library')){\r\n        if (rtl.debug_load_units) rtl.debug('running $main');\r\n        var r = pas[module_name].$main();\r\n        if (rtl.isNumber(r)) rtl.exitcode = r;\r\n      }\r\n    } catch(re) {\r\n      if (!rtl.showUncaughtExceptions) {\r\n        throw re\r\n      } else {  \r\n        if (!rtl.handleUncaughtException(re)) {\r\n          rtl.showException(re);\r\n          rtl.exitcode = 216;\r\n        }  \r\n      }\r\n    } \r\n    return rtl.exitcode;\r\n  },\r\n  \r\n  showException : function (re) {\r\n    var errStack = (re.hasOwnProperty('stack')) ? re.stack : re;\r\n    var errMsg = rtl.hasString(re.$classname) ? re.$classname : '';\r\n    errMsg += ((errMsg) ? ': ' : '') + (re.hasOwnProperty('fMessage') ? re.fMessage : '');\r\n    errMsg += ((errMsg) ? \"\\n\" : '') + errStack;\r\n    errMsg = \"Uncaught Exception:\\n\" + errMsg;\r\n    console.log(errMsg);\r\n    alert(errMsg);\r\n  },\r\n\r\n  handleUncaughtException: function (e) {\r\n    if (rtl.onUncaughtException) {\r\n      try {\r\n        rtl.onUncaughtException(e);\r\n        return true;\r\n      } catch (ee) {\r\n        return false; \r\n      }\r\n    } else {\r\n      return false;\r\n    }\r\n  },\r\n\r\n  loadintf: function(module){\r\n    if (module.$state>rtl.m_loading_intf) return; // already finished\r\n    if (rtl.debug_load_units) rtl.debug('loadintf: \"'+module.$name+'\"');\r\n    if (module.$state===rtl.m_loading_intf)\r\n      rtl.error('unit cycle detected \"'+module.$name+'\"');\r\n    module.$state=rtl.m_loading_intf;\r\n    // load interfaces of interface useslist\r\n    rtl.loaduseslist(module,module.$intfuseslist,rtl.loadintf);\r\n    // run interface\r\n    if (rtl.debug_load_units) rtl.debug('loadintf: run intf of \"'+module.$name+'\"');\r\n    module.$intfcode(module.$intfuseslist);\r\n    // success\r\n    module.$state=rtl.m_intf_loaded;\r\n    // Note: units only used in implementations are not yet loaded (not even their interfaces)\r\n  },\r\n\r\n  loaduseslist: function(module,useslist,f){\r\n    if (useslist==undefined) return;\r\n    var len = useslist.length;\r\n    for (var i = 0; i<len; i++) {\r\n      var unitname=useslist[i];\r\n      if (rtl.debug_load_units) rtl.debug('loaduseslist of \"'+module.$name+'\" uses=\"'+unitname+'\"');\r\n      if (pas[unitname]==undefined)\r\n        rtl.error('module \"'+module.$name+'\" misses \"'+unitname+'\"');\r\n      f(pas[unitname]);\r\n    }\r\n  },\r\n\r\n  loadimpl: function(module){\r\n    if (module.$state>=rtl.m_loading_impl) return; // already processing\r\n    if (module.$state<rtl.m_intf_loaded) rtl.error('loadimpl: interface not loaded of \"'+module.$name+'\"');\r\n    if (rtl.debug_load_units) rtl.debug('loadimpl: load uses of \"'+module.$name+'\"');\r\n    module.$state=rtl.m_loading_impl;\r\n    // load interfaces of implementation useslist\r\n    rtl.loaduseslist(module,module.$impluseslist,rtl.loadintf);\r\n    // load implementation of interfaces useslist\r\n    rtl.loaduseslist(module,module.$intfuseslist,rtl.loadimpl);\r\n    // load implementation of implementation useslist\r\n    rtl.loaduseslist(module,module.$impluseslist,rtl.loadimpl);\r\n    // Note: At this point all interfaces used by this unit are loaded. If\r\n    //   there are implementation uses cycles some used units might not yet be\r\n    //   initialized. This is by design.\r\n    // run implementation\r\n    if (rtl.debug_load_units) rtl.debug('loadimpl: run impl of \"'+module.$name+'\"');\r\n    if (rtl.isFunction(module.$implcode)) module.$implcode(module.$impluseslist);\r\n    // run initialization\r\n    if (rtl.debug_load_units) rtl.debug('loadimpl: run init of \"'+module.$name+'\"');\r\n    module.$state=rtl.m_initializing;\r\n    if (rtl.isFunction(module.$init)) module.$init();\r\n    // unit initialized\r\n    module.$state=rtl.m_initialized;\r\n  },\r\n\r\n  createCallback: function(scope, fn){\r\n    var cb;\r\n    if (typeof(fn)==='string'){\r\n      if (!scope.hasOwnProperty('$events')) scope.$events = {};\r\n      cb = scope.$events[fn];\r\n      if (cb) return cb;\r\n      scope.$events[fn] = cb = function(){\r\n        return scope[fn].apply(scope,arguments);\r\n      };\r\n    } else {\r\n      cb = function(){\r\n        return fn.apply(scope,arguments);\r\n      };\r\n    };\r\n    cb.scope = scope;\r\n    cb.fn = fn;\r\n    return cb;\r\n  },\r\n\r\n  createSafeCallback: function(scope, fn){\r\n    var cb;\r\n    if (typeof(fn)==='string'){\r\n      if (!scope[fn]) return null;\r\n      if (!scope.hasOwnProperty('$events')) scope.$events = {};\r\n      cb = scope.$events[fn];\r\n      if (cb) return cb;\r\n      scope.$events[fn] = cb = function(){\r\n        try{\r\n          return scope[fn].apply(scope,arguments);\r\n        } catch (err) {\r\n          if (!rtl.handleUncaughtException(err)) throw err;\r\n        }\r\n      };\r\n    } else if(!fn) {\r\n      return null;\r\n    } else {\r\n      cb = function(){\r\n        try{\r\n          return fn.apply(scope,arguments);\r\n        } catch (err) {\r\n          if (!rtl.handleUncaughtException(err)) throw err;\r\n        }\r\n      };\r\n    };\r\n    cb.scope = scope;\r\n    cb.fn = fn;\r\n    return cb;\r\n  },\r\n\r\n  eqCallback: function(a,b){\r\n    // can be a function or a function wrapper\r\n    if (a===b){\r\n      return true;\r\n    } else {\r\n      return (a!=null) && (b!=null) && (a.fn) && (a.scope===b.scope) && (a.fn===b.fn);\r\n    }\r\n  },\r\n\r\n  initStruct: function(c,parent,name){\r\n    if ((parent.$module) && (parent.$module.$impl===parent)) parent=parent.$module;\r\n    c.$parent = parent;\r\n    if (rtl.isModule(parent)){\r\n      c.$module = parent;\r\n      c.$name = name;\r\n    } else {\r\n      c.$module = parent.$module;\r\n      c.$name = parent.$name+'.'+name;\r\n    };\r\n    return parent;\r\n  },\r\n\r\n  initClass: function(c,parent,name,initfn,rttiname){\r\n    parent[name] = c;\r\n    c.$class = c; // Note: o.$class === Object.getPrototypeOf(o)\r\n    c.$classname = rttiname?rttiname:name;\r\n    parent = rtl.initStruct(c,parent,name);\r\n    c.$fullname = parent.$name+'.'+name;\r\n    // rtti\r\n    if (rtl.debug_rtti) rtl.debug('initClass '+c.$fullname);\r\n    var t = c.$module.$rtti.$Class(c.$classname,{ \"class\": c });\r\n    c.$rtti = t;\r\n    if (rtl.isObject(c.$ancestor)) t.ancestor = c.$ancestor.$rtti;\r\n    if (!t.ancestor) t.ancestor = null;\r\n    // init members\r\n    initfn.call(c);\r\n  },\r\n\r\n  createClass: function(parent,name,ancestor,initfn,rttiname){\r\n    // create a normal class,\r\n    // ancestor must be null or a normal class,\r\n    // the root ancestor can be an external class\r\n    var lClass = parent[name];\r\n    if (lClass) {\r\n      return lClass; \r\n    }\r\n\r\n    var c = null;\r\n    if (ancestor != null){\r\n      c = Object.create(ancestor);\r\n      c.$ancestor = ancestor;\r\n      // Note:\r\n      // if root is an \"object\" then c.$ancestor === Object.getPrototypeOf(c)\r\n      // if root is a \"function\" then c.$ancestor === c.__proto__, Object.getPrototypeOf(c) returns the root\r\n    } else {\r\n      c = { $ancestor: null };\r\n      c.$create = function(fn,args){\r\n        if (args == undefined) args = [];\r\n        var o = Object.create(this);\r\n        o.$init();\r\n        try{\r\n          if (typeof(fn)===\"string\"){\r\n            o[fn].apply(o,args);\r\n          } else {\r\n            fn.apply(o,args);\r\n          };\r\n          o.AfterConstruction();\r\n        } catch($e){\r\n          // do not call BeforeDestruction\r\n          if (o.Destroy) o.Destroy();\r\n          o.$final();\r\n          throw $e;\r\n        }\r\n        return o;\r\n      };\r\n      c.$destroy = function(fnname){\r\n        this.BeforeDestruction();\r\n        if (this[fnname]) this[fnname]();\r\n        this.$final();\r\n      };\r\n    };\r\n    rtl.initClass(c,parent,name,initfn,rttiname);\r\n  },\r\n\r\n  createClassExt: function(parent,name,ancestor,newinstancefnname,initfn,rttiname){\r\n    // Create a class using an external ancestor.\r\n    // If newinstancefnname is given, use that function to create the new object.\r\n    // If exist call BeforeDestruction and AfterConstruction.\r\n    var isFunc = rtl.isFunction(ancestor);\r\n    var c = null;\r\n    if (isFunc){\r\n      // create pascal class descendent from JS function\r\n      c = Object.create(ancestor.prototype);\r\n      c.$ancestorfunc = ancestor;\r\n      c.$ancestor = null; // no pascal ancestor\r\n    } else if (ancestor.$func){\r\n      // create pascal class descendent from a pascal class descendent of a JS function\r\n      isFunc = true;\r\n      c = Object.create(ancestor);\r\n      c.$ancestor = ancestor;\r\n    } else {\r\n      c = Object.create(ancestor);\r\n      c.$ancestor = null; // no pascal ancestor\r\n    }\r\n    c.$create = function(fn,args){\r\n      if (args == undefined) args = [];\r\n      var o = null;\r\n      if (newinstancefnname.length>0){\r\n        o = this[newinstancefnname](fn,args);\r\n      } else if(isFunc) {\r\n        o = new this.$func(args);\r\n      } else {\r\n        o = Object.create(c);\r\n      }\r\n      if (o.$init) o.$init();\r\n      try{\r\n        if (typeof(fn)===\"string\"){\r\n          this[fn].apply(o,args);\r\n        } else {\r\n          fn.apply(o,args);\r\n        };\r\n        if (o.AfterConstruction) o.AfterConstruction();\r\n      } catch($e){\r\n        // do not call BeforeDestruction\r\n        if (o.Destroy) o.Destroy();\r\n        if (o.$final) o.$final();\r\n        throw $e;\r\n      }\r\n      return o;\r\n    };\r\n    c.$destroy = function(fnname){\r\n      if (this.BeforeDestruction) this.BeforeDestruction();\r\n      if (this[fnname]) this[fnname]();\r\n      if (this.$final) this.$final();\r\n    };\r\n    rtl.initClass(c,parent,name,initfn,rttiname);\r\n    if (isFunc){\r\n      function f(){}\r\n      f.prototype = c;\r\n      c.$func = f;\r\n    }\r\n  },\r\n\r\n  createHelper: function(parent,name,ancestor,initfn,rttiname){\r\n    // create a helper,\r\n    // ancestor must be null or a helper,\r\n    var c = null;\r\n    if (ancestor != null){\r\n      c = Object.create(ancestor);\r\n      c.$ancestor = ancestor;\r\n      // c.$ancestor === Object.getPrototypeOf(c)\r\n    } else {\r\n      c = { $ancestor: null };\r\n    };\r\n    parent[name] = c;\r\n    c.$class = c; // Note: o.$class === Object.getPrototypeOf(o)\r\n    c.$classname = rttiname?rttiname:name;\r\n    parent = rtl.initStruct(c,parent,name);\r\n    c.$fullname = parent.$name+'.'+name;\r\n    // rtti\r\n    var t = c.$module.$rtti.$Helper(c.$classname,{ \"helper\": c });\r\n    c.$rtti = t;\r\n    if (rtl.isObject(ancestor)) t.ancestor = ancestor.$rtti;\r\n    if (!t.ancestor) t.ancestor = null;\r\n    // init members\r\n    initfn.call(c);\r\n  },\r\n\r\n  tObjectDestroy: \"Destroy\",\r\n\r\n  free: function(obj,name){\r\n    if (obj[name]==null) return null;\r\n    obj[name].$destroy(rtl.tObjectDestroy);\r\n    obj[name]=null;\r\n  },\r\n\r\n  freeLoc: function(obj){\r\n    if (obj==null) return null;\r\n    obj.$destroy(rtl.tObjectDestroy);\r\n    return null;\r\n  },\r\n\r\n  hideProp: function(o,p,v){\r\n    Object.defineProperty(o,p, {\r\n      enumerable: false,\r\n      configurable: true,\r\n      writable: true\r\n    });\r\n    if(arguments.length>2){ o[p]=v; }\r\n  },\r\n\r\n  recNewT: function(parent,name,initfn,full){\r\n    if (parent) {\r\n      var lRec = parent[name];\r\n      if (lRec) {\r\n        return lRec;\r\n      }\r\n    } \r\n\r\n    // create new record type\r\n    var t = {};\r\n    if (parent) parent[name] = t;\r\n    var h = rtl.hideProp;\r\n    if (full){\r\n      rtl.initStruct(t,parent,name);\r\n      t.$record = t;\r\n      h(t,'$record');\r\n      h(t,'$name');\r\n      h(t,'$parent');\r\n      h(t,'$module');\r\n      h(t,'$initSpec');\r\n    }\r\n    initfn.call(t);\r\n    if (!t.$new){\r\n      t.$new = function(){ return Object.create(t); };\r\n    }\r\n    t.$clone = function(r){ return t.$new().$assign(r); };\r\n    h(t,'$new');\r\n    h(t,'$clone');\r\n    h(t,'$eq');\r\n    h(t,'$assign');\r\n    return t;\r\n  },\r\n\r\n  is: function(instance,type){\r\n    return type.isPrototypeOf(instance) || (instance===type);\r\n  },\r\n\r\n  isExt: function(instance,type,mode){\r\n    // mode===1 means instance must be a Pascal class instance\r\n    // mode===2 means instance must be a Pascal class\r\n    // Notes:\r\n    // isPrototypeOf and instanceof return false on equal\r\n    // isPrototypeOf does not work for Date.isPrototypeOf(new Date())\r\n    //   so if isPrototypeOf is false test with instanceof\r\n    // instanceof needs a function on right side\r\n    if (instance == null) return false; // Note: ==null checks for undefined too\r\n    if ((typeof(type) !== 'object') && (typeof(type) !== 'function')) return false;\r\n    if (instance === type){\r\n      if (mode===1) return false;\r\n      if (mode===2) return rtl.isPasClass(instance);\r\n      return true;\r\n    }\r\n    if (type.isPrototypeOf && type.isPrototypeOf(instance)){\r\n      if (mode===1) return rtl.isPasClassInstance(instance);\r\n      if (mode===2) return rtl.isPasClass(instance);\r\n      return true;\r\n    }\r\n    if ((typeof type == 'function') && (instance instanceof type)) return true;\r\n    return false;\r\n  },\r\n\r\n  Exception: null,\r\n  EInvalidCast: null,\r\n  EAbstractError: null,\r\n  ERangeError: null,\r\n  EIntOverflow: null,\r\n  EPropWriteOnly: null,\r\n\r\n  raiseE: function(typename){\r\n    var t = rtl[typename];\r\n    if (t==null){\r\n      var mod = pas.SysUtils;\r\n      if (!mod) mod = pas.sysutils;\r\n      if (!mod) mod = pas[\"System.SysUtils\"];\r\n      if (mod){\r\n        t = mod[typename];\r\n        if (!t) t = mod[typename.toLowerCase()];\r\n        if (!t) t = mod['Exception'];\r\n        if (!t) t = mod['exception'];\r\n      }\r\n    }\r\n    if (t){\r\n      if (t.Create){\r\n        throw t.$create(\"Create\");\r\n      } else if (t.create){\r\n        throw t.$create(\"create\");\r\n      }\r\n    }\r\n    if (typename === \"EInvalidCast\") throw \"invalid type cast\";\r\n    if (typename === \"EAbstractError\") throw \"Abstract method called\";\r\n    if (typename === \"ERangeError\") throw \"range error\";\r\n    throw typename;\r\n  },\r\n\r\n  as: function(instance,type){\r\n    if((instance === null) || rtl.is(instance,type)) return instance;\r\n    rtl.raiseE(\"EInvalidCast\");\r\n  },\r\n\r\n  asExt: function(instance,type,mode){\r\n    if((instance === null) || rtl.isExt(instance,type,mode)) return instance;\r\n    rtl.raiseE(\"EInvalidCast\");\r\n  },\r\n\r\n  createInterface: function(module, name, guid, fnnames, ancestor, initfn, rttiname){\r\n    //console.log('createInterface name=\"'+name+'\" guid=\"'+guid+'\" names='+fnnames);\r\n    var lInterface = module[name];\r\n    if (lInterface) {\r\n      return lInterface; \r\n    }\r\n\r\n    var i = ancestor?Object.create(ancestor):{};\r\n    module[name] = i;\r\n    i.$module = module;\r\n    i.$name = rttiname?rttiname:name;\r\n    i.$fullname = module.$name+'.'+i.$name;\r\n    i.$guid = guid;\r\n    i.$guidr = null;\r\n    i.$names = fnnames?fnnames:[];\r\n    if (rtl.isFunction(initfn)){\r\n      // rtti\r\n      if (rtl.debug_rtti) rtl.debug('createInterface '+i.$fullname);\r\n      var t = i.$module.$rtti.$Interface(i.$name,{ \"interface\": i, module: module });\r\n      i.$rtti = t;\r\n      if (ancestor) t.ancestor = ancestor.$rtti;\r\n      if (!t.ancestor) t.ancestor = null;\r\n      initfn.call(i);\r\n    }\r\n    return i;\r\n  },\r\n\r\n  strToGUIDR: function(s,g){\r\n    var p = 0;\r\n    function n(l){\r\n      var h = s.substr(p,l);\r\n      p+=l;\r\n      return parseInt(h,16);\r\n    }\r\n    p+=1; // skip {\r\n    g.D1 = n(8);\r\n    p+=1; // skip -\r\n    g.D2 = n(4);\r\n    p+=1; // skip -\r\n    g.D3 = n(4);\r\n    p+=1; // skip -\r\n    if (!g.D4) g.D4=[];\r\n    g.D4[0] = n(2);\r\n    g.D4[1] = n(2);\r\n    p+=1; // skip -\r\n    for(var i=2; i<8; i++) g.D4[i] = n(2);\r\n    return g;\r\n  },\r\n\r\n  guidrToStr: function(g){\r\n    if (g.$intf) return g.$intf.$guid;\r\n    var h = rtl.hexStr;\r\n    var s='{'+h(g.D1,8)+'-'+h(g.D2,4)+'-'+h(g.D3,4)+'-'+h(g.D4[0],2)+h(g.D4[1],2)+'-';\r\n    for (var i=2; i<8; i++) s+=h(g.D4[i],2);\r\n    s+='}';\r\n    return s;\r\n  },\r\n\r\n  createTGUID: function(guid){\r\n    var TGuid = (pas.System)?pas.System.TGuid:pas.system.tguid;\r\n    var g = rtl.strToGUIDR(guid,TGuid.$new());\r\n    return g;\r\n  },\r\n\r\n  getIntfGUIDR: function(intfTypeOrVar){\r\n    if (!intfTypeOrVar) return null;\r\n    if (!intfTypeOrVar.$guidr){\r\n      var g = rtl.createTGUID(intfTypeOrVar.$guid);\r\n      if (!intfTypeOrVar.hasOwnProperty('$guid')) intfTypeOrVar = Object.getPrototypeOf(intfTypeOrVar);\r\n      g.$intf = intfTypeOrVar;\r\n      intfTypeOrVar.$guidr = g;\r\n    }\r\n    return intfTypeOrVar.$guidr;\r\n  },\r\n\r\n  addIntf: function (aclass, intf, map){\r\n    function jmp(fn){\r\n      if (typeof(fn)===\"function\"){\r\n        return function(){ return fn.apply(this.$o,arguments); };\r\n      } else {\r\n        return function(){ rtl.raiseE('EAbstractError'); };\r\n      }\r\n    }\r\n    if(!map) map = {};\r\n    var t = intf;\r\n    var item = Object.create(t);\r\n    if (!aclass.hasOwnProperty('$intfmaps')) aclass.$intfmaps = {};\r\n    aclass.$intfmaps[intf.$guid] = item;\r\n    do{\r\n      var names = t.$names;\r\n      if (!names) break;\r\n      for (var i=0; i<names.length; i++){\r\n        var intfname = names[i];\r\n        var fnname = map[intfname];\r\n        if (!fnname) fnname = intfname;\r\n        //console.log('addIntf: intftype='+t.$name+' index='+i+' intfname=\"'+intfname+'\" fnname=\"'+fnname+'\" old='+typeof(item[intfname]));\r\n        item[intfname] = jmp(aclass[fnname]);\r\n      }\r\n      t = Object.getPrototypeOf(t);\r\n    }while(t!=null);\r\n  },\r\n\r\n  getIntfG: function (obj, guid, query){\r\n    if (!obj) return null;\r\n    //console.log('getIntfG: obj='+obj.$classname+' guid='+guid+' query='+query);\r\n    // search\r\n    var maps = obj.$intfmaps;\r\n    if (!maps) return null;\r\n    var item = maps[guid];\r\n    if (!item) return null;\r\n    // check delegation\r\n    //console.log('getIntfG: obj='+obj.$classname+' guid='+guid+' query='+query+' item='+typeof(item));\r\n    if (typeof item === 'function') return item.call(obj); // delegate. Note: COM contains _AddRef\r\n    // check cache\r\n    var intf = null;\r\n    if (obj.$interfaces){\r\n      intf = obj.$interfaces[guid];\r\n      //console.log('getIntfG: obj='+obj.$classname+' guid='+guid+' cache='+typeof(intf));\r\n    }\r\n    if (!intf){ // intf can be undefined!\r\n      intf = Object.create(item);\r\n      intf.$o = obj;\r\n      if (!obj.$interfaces) obj.$interfaces = {};\r\n      obj.$interfaces[guid] = intf;\r\n    }\r\n    if (typeof(query)==='object'){\r\n      // called by queryIntfT\r\n      var o = null;\r\n      if (intf.QueryInterface(rtl.getIntfGUIDR(query),\r\n          {get:function(){ return o; }, set:function(v){ o=v; }}) === 0){\r\n        return o;\r\n      } else {\r\n        return null;\r\n      }\r\n    } else if(query===2){\r\n      // called by TObject.GetInterfaceByStr\r\n      if (intf.$kind === 'com') intf._AddRef();\r\n    }\r\n    return intf;\r\n  },\r\n\r\n  getIntfT: function(obj,intftype){\r\n    return rtl.getIntfG(obj,intftype.$guid);\r\n  },\r\n\r\n  queryIntfT: function(obj,intftype){\r\n    return rtl.getIntfG(obj,intftype.$guid,intftype);\r\n  },\r\n\r\n  queryIntfIsT: function(obj,intftype){\r\n    var i = rtl.getIntfG(obj,intftype.$guid);\r\n    if (!i) return false;\r\n    if (i.$kind === 'com') i._Release();\r\n    return true;\r\n  },\r\n\r\n  asIntfT: function (obj,intftype){\r\n    var i = rtl.getIntfG(obj,intftype.$guid);\r\n    if (i!==null) return i;\r\n    rtl.raiseEInvalidCast();\r\n  },\r\n\r\n  intfIsIntfT: function(intf,intftype){\r\n    return (intf!==null) && rtl.queryIntfIsT(intf.$o,intftype);\r\n  },\r\n\r\n  intfAsIntfT: function (intf,intftype){\r\n    if (!intf) return null;\r\n    var i = rtl.getIntfG(intf.$o,intftype.$guid);\r\n    if (i) return i;\r\n    rtl.raiseEInvalidCast();\r\n  },\r\n\r\n  intfIsClass: function(intf,classtype){\r\n    return (intf!=null) && (rtl.is(intf.$o,classtype));\r\n  },\r\n\r\n  intfAsClass: function(intf,classtype){\r\n    if (intf==null) return null;\r\n    return rtl.as(intf.$o,classtype);\r\n  },\r\n\r\n  intfToClass: function(intf,classtype){\r\n    if ((intf!==null) && rtl.is(intf.$o,classtype)) return intf.$o;\r\n    return null;\r\n  },\r\n\r\n  // interface reference counting\r\n  intfRefs: { // base object for temporary interface variables\r\n    ref: function(id,intf){\r\n      // called for temporary interface references needing delayed release\r\n      var old = this[id];\r\n      //console.log('rtl.intfRefs.ref: id='+id+' old=\"'+(old?old.$name:'null')+'\" intf=\"'+(intf?intf.$name:'null')+' $o='+(intf?intf.$o:'null'));\r\n      if (old){\r\n        // called again, e.g. in a loop\r\n        delete this[id];\r\n        old._Release(); // may fail\r\n      }\r\n      if(intf) {\r\n        this[id]=intf;\r\n      }\r\n      return intf;\r\n    },\r\n    free: function(){\r\n      //console.log('rtl.intfRefs.free...');\r\n      for (var id in this){\r\n        if (this.hasOwnProperty(id)){\r\n          var intf = this[id];\r\n          if (intf){\r\n            //console.log('rtl.intfRefs.free: id='+id+' '+intf.$name+' $o='+intf.$o.$classname);\r\n            intf._Release();\r\n          }\r\n        }\r\n      }\r\n    }\r\n  },\r\n\r\n  createIntfRefs: function(){\r\n    //console.log('rtl.createIntfRefs');\r\n    return Object.create(rtl.intfRefs);\r\n  },\r\n\r\n  setIntfP: function(path,name,value,skipAddRef){\r\n    var old = path[name];\r\n    //console.log('rtl.setIntfP path='+path+' name='+name+' old=\"'+(old?old.$name:'null')+'\" value=\"'+(value?value.$name:'null')+'\"');\r\n    if (old === value) return;\r\n    if (old !== null){\r\n      path[name]=null;\r\n      old._Release();\r\n    }\r\n    if (value !== null){\r\n      if (!skipAddRef) value._AddRef();\r\n      path[name]=value;\r\n    }\r\n  },\r\n\r\n  setIntfL: function(old,value,skipAddRef){\r\n    //console.log('rtl.setIntfL old=\"'+(old?old.$name:'null')+'\" value=\"'+(value?value.$name:'null')+'\"');\r\n    if (old !== value){\r\n      if (value!==null){\r\n        if (!skipAddRef) value._AddRef();\r\n      }\r\n      if (old!==null){\r\n        old._Release();  // Release after AddRef, to avoid double Release if Release creates an exception\r\n      }\r\n    } else if (skipAddRef){\r\n      if (old!==null){\r\n        old._Release();  // value has an AddRef\r\n      }\r\n    }\r\n    return value;\r\n  },\r\n\r\n  _AddRef: function(intf){\r\n    //if (intf) console.log('rtl._AddRef intf=\"'+(intf?intf.$name:'null')+'\"');\r\n    if (intf) intf._AddRef();\r\n    return intf;\r\n  },\r\n\r\n  _Release: function(intf){\r\n    //if (intf) console.log('rtl._Release intf=\"'+(intf?intf.$name:'null')+'\"');\r\n    if (intf) intf._Release();\r\n    return intf;\r\n  },\r\n\r\n  _ReleaseArray: function(a,dim){\r\n    if (!a) return null;\r\n    for (var i=0; i<a.length; i++){\r\n      if (dim<=1){\r\n        if (a[i]) a[i]._Release();\r\n      } else {\r\n        rtl._ReleaseArray(a[i],dim-1);\r\n      }\r\n    }\r\n    return null;\r\n  },\r\n\r\n  trunc: function(a){\r\n    return a<0 ? Math.ceil(a) : Math.floor(a);\r\n  },\r\n\r\n  checkMethodCall: function(obj,type){\r\n    if (rtl.isObject(obj) && rtl.is(obj,type)) return;\r\n    rtl.raiseE(\"EInvalidCast\");\r\n  },\r\n\r\n  oc: function(i){\r\n    // overflow check integer\r\n    if ((Math.floor(i)===i) && (i>=-0x1fffffffffffff) && (i<=0x1fffffffffffff)) return i;\r\n    rtl.raiseE('EIntOverflow');\r\n  },\r\n\r\n  rc: function(i,minval,maxval){\r\n    // range check integer\r\n    if ((Math.floor(i)===i) && (i>=minval) && (i<=maxval)) return i;\r\n    rtl.raiseE('ERangeError');\r\n  },\r\n\r\n  rcc: function(c,minval,maxval){\r\n    // range check char\r\n    if ((typeof(c)==='string') && (c.length===1)){\r\n      var i = c.charCodeAt(0);\r\n      if ((i>=minval) && (i<=maxval)) return c;\r\n    }\r\n    rtl.raiseE('ERangeError');\r\n  },\r\n\r\n  rcSetCharAt: function(s,index,c){\r\n    // range check setCharAt\r\n    if ((typeof(s)!=='string') || (index<0) || (index>=s.length)) rtl.raiseE('ERangeError');\r\n    return rtl.setCharAt(s,index,c);\r\n  },\r\n\r\n  rcCharAt: function(s,index){\r\n    // range check charAt\r\n    if ((typeof(s)!=='string') || (index<0) || (index>=s.length)) rtl.raiseE('ERangeError');\r\n    return s.charAt(index);\r\n  },\r\n\r\n  rcArrR: function(arr,index){\r\n    // range check read array\r\n    if (Array.isArray(arr) && (typeof(index)==='number') && (index>=0) && (index<arr.length)){\r\n      if (arguments.length>2){\r\n        // arr,index1,index2,...\r\n        arr=arr[index];\r\n        for (var i=2; i<arguments.length; i++) arr=rtl.rcArrR(arr,arguments[i]);\r\n        return arr;\r\n      }\r\n      return arr[index];\r\n    }\r\n    rtl.raiseE('ERangeError');\r\n  },\r\n\r\n  rcArrW: function(arr,index,value){\r\n    // range check write array\r\n    // arr,index1,index2,...,value\r\n    for (var i=3; i<arguments.length; i++){\r\n      arr=rtl.rcArrR(arr,index);\r\n      index=arguments[i-1];\r\n      value=arguments[i];\r\n    }\r\n    if (Array.isArray(arr) && (typeof(index)==='number') && (index>=0) && (index<arr.length)){\r\n      return arr[index]=value;\r\n    }\r\n    rtl.raiseE('ERangeError');\r\n  },\r\n\r\n  length: function(arr){\r\n    return (arr == null) ? 0 : arr.length;\r\n  },\r\n\r\n  arrayRef: function(a){\r\n    if (a!=null) rtl.hideProp(a,'$pas2jsrefcnt',1);\r\n    return a;\r\n  },\r\n\r\n  arraySetLength: function(arr,defaultvalue,newlength){\r\n    var stack = [];\r\n    var s = 9999;\r\n    for (var i=2; i<arguments.length; i++){\r\n      var j = arguments[i];\r\n      if (j==='s'){ s = i-2; }\r\n      else {\r\n        stack.push({ dim:j+0, a:null, i:0, src:null });\r\n      }\r\n    }\r\n    var dimmax = stack.length-1;\r\n    var depth = 0;\r\n    var lastlen = 0;\r\n    var item = null;\r\n    var a = null;\r\n    var src = arr;\r\n    var srclen = 0, oldlen = 0;\r\n    do{\r\n      if (depth>0){\r\n        item=stack[depth-1];\r\n        src = (item.src && item.src.length>item.i)?item.src[item.i]:null;\r\n      }\r\n      if (!src){\r\n        a = [];\r\n        srclen = 0;\r\n        oldlen = 0;\r\n      } else if (src.$pas2jsrefcnt>0 || depth>=s){\r\n        a = [];\r\n        srclen = src.length;\r\n        oldlen = srclen;\r\n      } else {\r\n        a = src;\r\n        srclen = 0;\r\n        oldlen = a.length;\r\n      }\r\n      lastlen = stack[depth].dim;\r\n      a.length = lastlen;\r\n      if (depth>0){\r\n        item.a[item.i]=a;\r\n        item.i++;\r\n        if ((lastlen===0) && (item.i<item.a.length)) continue;\r\n      }\r\n      if (lastlen>0){\r\n        if (depth<dimmax){\r\n          item = stack[depth];\r\n          item.a = a;\r\n          item.i = 0;\r\n          item.src = src;\r\n          depth++;\r\n          continue;\r\n        } else {\r\n          if (srclen>lastlen) srclen=lastlen;\r\n          if (rtl.isArray(defaultvalue)){\r\n            // array of dyn array\r\n            for (var i=0; i<srclen; i++) a[i]=src[i];\r\n            for (var i=oldlen; i<lastlen; i++) a[i]=[];\r\n          } else if (rtl.isObject(defaultvalue)) {\r\n            if (rtl.isTRecord(defaultvalue)){\r\n              // array of record\r\n              for (var i=0; i<srclen; i++) a[i]=defaultvalue.$clone(src[i]);\r\n              for (var i=oldlen; i<lastlen; i++) a[i]=defaultvalue.$new();\r\n            } else {\r\n              // array of set\r\n              for (var i=0; i<srclen; i++) a[i]=rtl.refSet(src[i]);\r\n              for (var i=oldlen; i<lastlen; i++) a[i]={};\r\n            }\r\n          } else {\r\n            for (var i=0; i<srclen; i++) a[i]=src[i];\r\n            for (var i=oldlen; i<lastlen; i++) a[i]=defaultvalue;\r\n          }\r\n        }\r\n      }\r\n      // backtrack\r\n      while ((depth>0) && (stack[depth-1].i>=stack[depth-1].dim)){\r\n        depth--;\r\n      };\r\n      if (depth===0){\r\n        if (dimmax===0) return a;\r\n        return stack[0].a;\r\n      }\r\n    }while (true);\r\n  },\r\n\r\n  arrayEq: function(a,b){\r\n    if (a===null) return b===null;\r\n    if (b===null) return false;\r\n    if (a.length!==b.length) return false;\r\n    for (var i=0; i<a.length; i++) if (a[i]!==b[i]) return false;\r\n    return true;\r\n  },\r\n\r\n  arrayClone: function(type,src,srcpos,endpos,dst,dstpos){\r\n    // type: 0 for references, \"refset\" for calling refSet(), a function for new type()\r\n    // src must not be null\r\n    // This function does not range check.\r\n    if(type === 'refSet') {\r\n      for (; srcpos<endpos; srcpos++) dst[dstpos++] = rtl.refSet(src[srcpos]); // ref set\r\n    } else if (type === 'slice'){\r\n      for (; srcpos<endpos; srcpos++) dst[dstpos++] = src[srcpos].slice(0); // clone static array of simple types\r\n    } else if (typeof(type)==='function'){\r\n      for (; srcpos<endpos; srcpos++) dst[dstpos++] = type(src[srcpos]); // clone function\r\n    } else if (rtl.isTRecord(type)){\r\n      for (; srcpos<endpos; srcpos++) dst[dstpos++] = type.$clone(src[srcpos]); // clone record\r\n    }  else {\r\n      for (; srcpos<endpos; srcpos++) dst[dstpos++] = src[srcpos]; // reference\r\n    };\r\n  },\r\n\r\n  arrayConcat: function(type){\r\n    // type: see rtl.arrayClone\r\n    var a = [];\r\n    var l = 0;\r\n    for (var i=1; i<arguments.length; i++){\r\n      var src = arguments[i];\r\n      if (src !== null) l+=src.length;\r\n    };\r\n    a.length = l;\r\n    l=0;\r\n    for (var i=1; i<arguments.length; i++){\r\n      var src = arguments[i];\r\n      if (src === null) continue;\r\n      rtl.arrayClone(type,src,0,src.length,a,l);\r\n      l+=src.length;\r\n    };\r\n    return a;\r\n  },\r\n\r\n  arrayConcatN: function(){\r\n    var a = null;\r\n    for (var i=0; i<arguments.length; i++){\r\n      var src = arguments[i];\r\n      if (src === null) continue;\r\n      if (a===null){\r\n        a=rtl.arrayRef(src); // Note: concat(a) does not clone\r\n      } else if (a['$pas2jsrefcnt']){\r\n        a=a.concat(src); // clone a and append src\r\n      } else {\r\n        for (var i=0; i<src.length; i++){\r\n          a.push(src[i]);\r\n        }\r\n      }\r\n    };\r\n    return a;\r\n  },\r\n\r\n  arrayPush: function(type,a){\r\n    if(a===null){\r\n      a=[];\r\n    } else if (a['$pas2jsrefcnt']){\r\n      a=rtl.arrayCopy(type,a,0,a.length);\r\n    }\r\n    rtl.arrayClone(type,arguments,2,arguments.length,a,a.length);\r\n    return a;\r\n  },\r\n\r\n  arrayPushN: function(a){\r\n    if(a===null){\r\n      a=[];\r\n    } else if (a['$pas2jsrefcnt']){\r\n      a=a.concat();\r\n    }\r\n    for (var i=1; i<arguments.length; i++){\r\n      a.push(arguments[i]);\r\n    }\r\n    return a;\r\n  },\r\n\r\n  arrayCopy: function(type, srcarray, index, count){\r\n    // type: see rtl.arrayClone\r\n    // if count is missing, use srcarray.length\r\n    if (srcarray === null) return [];\r\n    if (index < 0) index = 0;\r\n    if (count === undefined) count=srcarray.length;\r\n    var end = index+count;\r\n    if (end>srcarray.length) end = srcarray.length;\r\n    if (index>=end) return [];\r\n    if (type===0){\r\n      return srcarray.slice(index,end);\r\n    } else {\r\n      var a = [];\r\n      a.length = end-index;\r\n      rtl.arrayClone(type,srcarray,index,end,a,0);\r\n      return a;\r\n    }\r\n  },\r\n\r\n  arrayInsert: function(item, arr, index){\r\n    if (arr){\r\n      arr.splice(index,0,item);\r\n      return arr;\r\n    } else {\r\n      return [item];\r\n    }\r\n  },\r\n\r\n  setCharAt: function(s,index,c){\r\n    return s.substr(0,index)+c+s.substr(index+1);\r\n  },\r\n\r\n  getResStr: function(mod,name){\r\n    var rs = mod.$resourcestrings[name];\r\n    return rs.current?rs.current:rs.org;\r\n  },\r\n\r\n  createSet: function(){\r\n    var s = {};\r\n    for (var i=0; i<arguments.length; i++){\r\n      if (arguments[i]!=null){\r\n        s[arguments[i]]=true;\r\n      } else {\r\n        var first=arguments[i+=1];\r\n        var last=arguments[i+=1];\r\n        for(var j=first; j<=last; j++) s[j]=true;\r\n      }\r\n    }\r\n    return s;\r\n  },\r\n\r\n  cloneSet: function(s){\r\n    var r = {};\r\n    for (var key in s) r[key]=true;\r\n    return r;\r\n  },\r\n\r\n  refSet: function(s){\r\n    rtl.hideProp(s,'$shared',true);\r\n    return s;\r\n  },\r\n\r\n  includeSet: function(s,enumvalue){\r\n    if (s.$shared) s = rtl.cloneSet(s);\r\n    s[enumvalue] = true;\r\n    return s;\r\n  },\r\n\r\n  excludeSet: function(s,enumvalue){\r\n    if (s.$shared) s = rtl.cloneSet(s);\r\n    delete s[enumvalue];\r\n    return s;\r\n  },\r\n\r\n  diffSet: function(s,t){\r\n    var r = {};\r\n    for (var key in s) if (!t[key]) r[key]=true;\r\n    return r;\r\n  },\r\n\r\n  unionSet: function(s,t){\r\n    var r = {};\r\n    for (var key in s) r[key]=true;\r\n    for (var key in t) r[key]=true;\r\n    return r;\r\n  },\r\n\r\n  intersectSet: function(s,t){\r\n    var r = {};\r\n    for (var key in s) if (t[key]) r[key]=true;\r\n    return r;\r\n  },\r\n\r\n  symDiffSet: function(s,t){\r\n    var r = {};\r\n    for (var key in s) if (!t[key]) r[key]=true;\r\n    for (var key in t) if (!s[key]) r[key]=true;\r\n    return r;\r\n  },\r\n\r\n  eqSet: function(s,t){\r\n    for (var key in s) if (!t[key]) return false;\r\n    for (var key in t) if (!s[key]) return false;\r\n    return true;\r\n  },\r\n\r\n  neSet: function(s,t){\r\n    return !rtl.eqSet(s,t);\r\n  },\r\n\r\n  leSet: function(s,t){\r\n    for (var key in s) if (!t[key]) return false;\r\n    return true;\r\n  },\r\n\r\n  geSet: function(s,t){\r\n    for (var key in t) if (!s[key]) return false;\r\n    return true;\r\n  },\r\n\r\n  strSetLength: function(s,newlen){\r\n    var oldlen = s.length;\r\n    if (oldlen > newlen){\r\n      return s.substring(0,newlen);\r\n    } else if (s.repeat){\r\n      // Note: repeat needs ECMAScript6!\r\n      return s+' '.repeat(newlen-oldlen);\r\n    } else {\r\n       while (oldlen<newlen){\r\n         s+=' ';\r\n         oldlen++;\r\n       };\r\n       return s;\r\n    }\r\n  },\r\n\r\n  spaceLeft: function(s,width){\r\n    var l=s.length;\r\n    if (l>=width) return s;\r\n    if (s.repeat){\r\n      // Note: repeat needs ECMAScript6!\r\n      return ' '.repeat(width-l) + s;\r\n    } else {\r\n      while (l<width){\r\n        s=' '+s;\r\n        l++;\r\n      };\r\n      return s;\r\n    };\r\n  },\r\n\r\n  floatToStr: function(d,w,p){\r\n    // input 1-3 arguments: double, width, precision\r\n    if (arguments.length>2){\r\n      return rtl.spaceLeft(d.toFixed(p),w);\r\n    } else {\r\n\t  // exponent width\r\n\t  var pad = \"\";\r\n\t  var ad = Math.abs(d);\r\n\t  if (((ad>1) && (ad<1.0e+10)) ||  ((ad>1.e-10) && (ad<1))) {\r\n\t\tpad='00';\r\n\t  } else if ((ad>1) && (ad<1.0e+100) || (ad<1.e-10)) {\r\n\t\tpad='0';\r\n      }  \t\r\n\t  if (arguments.length<2) {\r\n\t    w=24;\t\t\r\n      } else if (w<9) {\r\n\t\tw=9;\r\n      }\t\t  \r\n      var p = w-8;\r\n      var s=(d>0 ? \" \" : \"\" ) + d.toExponential(p);\r\n      s=s.replace(/e(.)/,'E$1'+pad);\r\n      return rtl.spaceLeft(s,w);\r\n    }\r\n  },\r\n\r\n  valEnum: function(s, enumType, setCodeFn){\r\n    s = s.toLowerCase();\r\n    for (var key in enumType){\r\n      if((typeof(key)==='string') && (key.toLowerCase()===s)){\r\n        setCodeFn(0);\r\n        return enumType[key];\r\n      }\r\n    }\r\n    setCodeFn(1);\r\n    return 0;\r\n  },\r\n\r\n  lw: function(l){\r\n    // fix longword bitwise operation\r\n    return l<0?l+0x100000000:l;\r\n  },\r\n\r\n  and: function(a,b){\r\n    var hi = 0x80000000;\r\n    var low = 0x7fffffff;\r\n    var h = (a / hi) & (b / hi);\r\n    var l = (a & low) & (b & low);\r\n    return h*hi + l;\r\n  },\r\n\r\n  or: function(a,b){\r\n    var hi = 0x80000000;\r\n    var low = 0x7fffffff;\r\n    var h = (a / hi) | (b / hi);\r\n    var l = (a & low) | (b & low);\r\n    return h*hi + l;\r\n  },\r\n\r\n  xor: function(a,b){\r\n    var hi = 0x80000000;\r\n    var low = 0x7fffffff;\r\n    var h = (a / hi) ^ (b / hi);\r\n    var l = (a & low) ^ (b & low);\r\n    return h*hi + l;\r\n  },\r\n\r\n  shr: function(a,b){\r\n    if (a<0) a += rtl.hiInt;\r\n    if (a<0x80000000) return a >> b;\r\n    if (b<=0) return a;\r\n    if (b>54) return 0;\r\n    return Math.floor(a / Math.pow(2,b));\r\n  },\r\n\r\n  shl: function(a,b){\r\n    if (a<0) a += rtl.hiInt;\r\n    if (b<=0) return a;\r\n    if (b>54) return 0;\r\n    var r = a * Math.pow(2,b);\r\n    if (r <= rtl.hiInt) return r;\r\n    return r % rtl.hiInt;\r\n  },\r\n\r\n  initRTTI: function(){\r\n    if (rtl.debug_rtti) rtl.debug('initRTTI');\r\n\r\n    // base types\r\n    rtl.tTypeInfo = { name: \"tTypeInfo\", kind: 0, $module: null, attr: null };\r\n    function newBaseTI(name,kind,ancestor){\r\n      if (!ancestor) ancestor = rtl.tTypeInfo;\r\n      if (rtl.debug_rtti) rtl.debug('initRTTI.newBaseTI \"'+name+'\" '+kind+' (\"'+ancestor.name+'\")');\r\n      var t = Object.create(ancestor);\r\n      t.name = name;\r\n      t.kind = kind;\r\n      rtl[name] = t;\r\n      return t;\r\n    };\r\n    function newBaseInt(name,minvalue,maxvalue,ordtype){\r\n      var t = newBaseTI(name,1 /* tkInteger */,rtl.tTypeInfoInteger);\r\n      t.minvalue = minvalue;\r\n      t.maxvalue = maxvalue;\r\n      t.ordtype = ordtype;\r\n      return t;\r\n    };\r\n    newBaseTI(\"tTypeInfoInteger\",1 /* tkInteger */);\r\n    newBaseInt(\"shortint\",-0x80,0x7f,0);\r\n    newBaseInt(\"byte\",0,0xff,1);\r\n    newBaseInt(\"smallint\",-0x8000,0x7fff,2);\r\n    newBaseInt(\"word\",0,0xffff,3);\r\n    newBaseInt(\"longint\",-0x80000000,0x7fffffff,4);\r\n    newBaseInt(\"longword\",0,0xffffffff,5);\r\n    newBaseInt(\"nativeint\",-0x10000000000000,0xfffffffffffff,6);\r\n    newBaseInt(\"nativeuint\",0,0xfffffffffffff,7);\r\n    newBaseTI(\"char\",2 /* tkChar */);\r\n    newBaseTI(\"string\",3 /* tkString */);\r\n    newBaseTI(\"tTypeInfoEnum\",4 /* tkEnumeration */,rtl.tTypeInfoInteger);\r\n    newBaseTI(\"tTypeInfoSet\",5 /* tkSet */);\r\n    newBaseTI(\"double\",6 /* tkDouble */);\r\n    newBaseTI(\"boolean\",7 /* tkBool */);\r\n    newBaseTI(\"tTypeInfoProcVar\",8 /* tkProcVar */);\r\n    newBaseTI(\"tTypeInfoMethodVar\",9 /* tkMethod */,rtl.tTypeInfoProcVar);\r\n    newBaseTI(\"tTypeInfoArray\",10 /* tkArray */);\r\n    newBaseTI(\"tTypeInfoDynArray\",11 /* tkDynArray */);\r\n    newBaseTI(\"tTypeInfoPointer\",15 /* tkPointer */);\r\n    var t = newBaseTI(\"pointer\",15 /* tkPointer */,rtl.tTypeInfoPointer);\r\n    t.reftype = null;\r\n    newBaseTI(\"jsvalue\",16 /* tkJSValue */);\r\n    newBaseTI(\"tTypeInfoRefToProcVar\",17 /* tkRefToProcVar */,rtl.tTypeInfoProcVar);\r\n\r\n    // member kinds\r\n    rtl.tTypeMember = { attr: null };\r\n    function newMember(name,kind){\r\n      var m = Object.create(rtl.tTypeMember);\r\n      m.name = name;\r\n      m.kind = kind;\r\n      rtl[name] = m;\r\n    };\r\n    newMember(\"tTypeMemberField\",1); // tmkField\r\n    newMember(\"tTypeMemberMethod\",2); // tmkMethod\r\n    newMember(\"tTypeMemberProperty\",3); // tmkProperty\r\n\r\n    // base object for storing members: a simple object\r\n    rtl.tTypeMembers = {};\r\n\r\n    // tTypeInfoStruct - base object for tTypeInfoClass, tTypeInfoRecord, tTypeInfoInterface\r\n    var tis = newBaseTI(\"tTypeInfoStruct\",0);\r\n    tis.$addMember = function(name,ancestor,options){\r\n      if (rtl.debug_rtti){\r\n        if (!rtl.hasString(name) || (name.charAt()==='$')) throw 'invalid member \"'+name+'\", this=\"'+this.name+'\"';\r\n        if (!rtl.is(ancestor,rtl.tTypeMember)) throw 'invalid ancestor \"'+ancestor+':'+ancestor.name+'\", \"'+this.name+'.'+name+'\"';\r\n        if ((options!=undefined) && (typeof(options)!='object')) throw 'invalid options \"'+options+'\", \"'+this.name+'.'+name+'\"';\r\n      };\r\n      var t = Object.create(ancestor);\r\n      t.name = name;\r\n      this.members[name] = t;\r\n      this.names.push(name);\r\n      if (rtl.isObject(options)){\r\n        for (var key in options) if (options.hasOwnProperty(key)) t[key] = options[key];\r\n      };\r\n      return t;\r\n    };\r\n    tis.addField = function(name,type,options){\r\n      var t = this.$addMember(name,rtl.tTypeMemberField,options);\r\n      if (rtl.debug_rtti){\r\n        if (!rtl.is(type,rtl.tTypeInfo)) throw 'invalid type \"'+type+'\", \"'+this.name+'.'+name+'\"';\r\n      };\r\n      t.typeinfo = type;\r\n      this.fields.push(name);\r\n      return t;\r\n    };\r\n    tis.addFields = function(){\r\n      var i=0;\r\n      while(i<arguments.length){\r\n        var name = arguments[i++];\r\n        var type = arguments[i++];\r\n        if ((i<arguments.length) && (typeof(arguments[i])==='object')){\r\n          this.addField(name,type,arguments[i++]);\r\n        } else {\r\n          this.addField(name,type);\r\n        };\r\n      };\r\n    };\r\n    tis.addMethod = function(name,methodkind,params,result,flags,options){\r\n      var t = this.$addMember(name,rtl.tTypeMemberMethod,options);\r\n      t.methodkind = methodkind;\r\n      t.procsig = rtl.newTIProcSig(params,result,flags);\r\n      this.methods.push(name);\r\n      return t;\r\n    };\r\n    tis.addProperty = function(name,flags,result,getter,setter,options){\r\n      var t = this.$addMember(name,rtl.tTypeMemberProperty,options);\r\n      t.flags = flags;\r\n      t.typeinfo = result;\r\n      t.getter = getter;\r\n      t.setter = setter;\r\n      // Note: in options: params, stored, defaultvalue\r\n      t.params = rtl.isArray(t.params) ? rtl.newTIParams(t.params) : null;\r\n      this.properties.push(name);\r\n      if (!rtl.isString(t.stored)) t.stored = \"\";\r\n      return t;\r\n    };\r\n    tis.getField = function(index){\r\n      return this.members[this.fields[index]];\r\n    };\r\n    tis.getMethod = function(index){\r\n      return this.members[this.methods[index]];\r\n    };\r\n    tis.getProperty = function(index){\r\n      return this.members[this.properties[index]];\r\n    };\r\n\r\n    newBaseTI(\"tTypeInfoRecord\",12 /* tkRecord */,rtl.tTypeInfoStruct);\r\n    newBaseTI(\"tTypeInfoClass\",13 /* tkClass */,rtl.tTypeInfoStruct);\r\n    newBaseTI(\"tTypeInfoClassRef\",14 /* tkClassRef */);\r\n    newBaseTI(\"tTypeInfoInterface\",18 /* tkInterface */,rtl.tTypeInfoStruct);\r\n    newBaseTI(\"tTypeInfoHelper\",19 /* tkHelper */,rtl.tTypeInfoStruct);\r\n    newBaseTI(\"tTypeInfoExtClass\",20 /* tkExtClass */,rtl.tTypeInfoClass);\r\n  },\r\n\r\n  tSectionRTTI: {\r\n    $module: null,\r\n    $inherited: function(name,ancestor,o){\r\n      if (rtl.debug_rtti){\r\n        rtl.debug('tSectionRTTI.newTI \"'+(this.$module?this.$module.$name:\"(no module)\")\r\n          +'\".\"'+name+'\" ('+ancestor.name+') '+(o?'init':'forward'));\r\n      };\r\n      var t = this[name];\r\n      if (t){\r\n        if (!t.$forward) {\r\n          return t;\r\n        }\r\n        if (!ancestor.isPrototypeOf(t)) throw 'typeinfo ancestor mismatch \"'+name+'\" ancestor=\"'+ancestor.name+'\" t.name=\"'+t.name+'\"';\r\n      } else {\r\n        t = Object.create(ancestor);\r\n        t.name = name;\r\n        t.$module = this.$module;\r\n        this[name] = t;\r\n      }\r\n      if (o){\r\n        delete t.$forward;\r\n        for (var key in o) if (o.hasOwnProperty(key)) t[key]=o[key];\r\n      } else {\r\n        t.$forward = true;\r\n      }\r\n      return t;\r\n    },\r\n    $Scope: function(name,ancestor,o){\r\n      var t=this.$inherited(name,ancestor,o);\r\n      if (!t.members) {\r\n        t.members = {};\r\n      }\r\n      if (!t.names) {\r\n        t.names = [];\r\n      }\r\n      if (!t.fields) {\r\n        t.fields = [];\r\n      }  \r\n      if (!t.methods) {\r\n        t.methods = [];\r\n      }  \r\n      if (!t.properties) {\r\n        t.properties = [];\r\n      }  \r\n      return t;\r\n    },\r\n    $TI: function(name,kind,o){ var t=this.$inherited(name,rtl.tTypeInfo,o); t.kind = kind; return t; },\r\n    $Int: function(name,o){ return this.$inherited(name,rtl.tTypeInfoInteger,o); },\r\n    $Enum: function(name,o){ return this.$inherited(name,rtl.tTypeInfoEnum,o); },\r\n    $Set: function(name,o){ return this.$inherited(name,rtl.tTypeInfoSet,o); },\r\n    $StaticArray: function(name,o){ return this.$inherited(name,rtl.tTypeInfoArray,o); },\r\n    $DynArray: function(name,o){ return this.$inherited(name,rtl.tTypeInfoDynArray,o); },\r\n    $ProcVar: function(name,o){ return this.$inherited(name,rtl.tTypeInfoProcVar,o); },\r\n    $RefToProcVar: function(name,o){ return this.$inherited(name,rtl.tTypeInfoRefToProcVar,o); },\r\n    $MethodVar: function(name,o){ return this.$inherited(name,rtl.tTypeInfoMethodVar,o); },\r\n    $Record: function(name,o){ return this.$Scope(name,rtl.tTypeInfoRecord,o); },\r\n    $Class: function(name,o){ return this.$Scope(name,rtl.tTypeInfoClass,o); },\r\n    $ClassRef: function(name,o){ return this.$inherited(name,rtl.tTypeInfoClassRef,o); },\r\n    $Pointer: function(name,o){ return this.$inherited(name,rtl.tTypeInfoPointer,o); },\r\n    $Interface: function(name,o){ return this.$Scope(name,rtl.tTypeInfoInterface,o); },\r\n    $Helper: function(name,o){ return this.$Scope(name,rtl.tTypeInfoHelper,o); },\r\n    $ExtClass: function(name,o){ return this.$Scope(name,rtl.tTypeInfoExtClass,o); }\r\n  },\r\n\r\n  newTIParam: function(param){\r\n    // param is an array, 0=name, 1=type, 2=optional flags\r\n    var t = {\r\n      name: param[0],\r\n      typeinfo: param[1],\r\n      flags: (rtl.isNumber(param[2]) ? param[2] : 0)\r\n    };\r\n    return t;\r\n  },\r\n\r\n  newTIParams: function(list){\r\n    // list: optional array of [paramname,typeinfo,optional flags]\r\n    var params = [];\r\n    if (rtl.isArray(list)){\r\n      for (var i=0; i<list.length; i++) params.push(rtl.newTIParam(list[i]));\r\n    };\r\n    return params;\r\n  },\r\n\r\n  newTIProcSig: function(params,result,flags){\r\n    var s = {\r\n      params: rtl.newTIParams(params),\r\n      resulttype: result?result:null,\r\n      flags: flags?flags:0\r\n    };\r\n    return s;\r\n  },\r\n\r\n  addResource: function(aRes){\r\n    rtl.$res[aRes.name]=aRes;\r\n  },\r\n\r\n  getResource: function(aName){\r\n    var res = rtl.$res[aName];\r\n    if (res !== undefined) {\r\n      return res;\r\n    } else {\r\n      return null;\r\n    }\r\n  },\r\n\r\n  getResourceList: function(){\r\n    return Object.keys(rtl.$res);\r\n  }\r\n}\r\n\r\n","{\r\n    This file is part of the Pas2JS run time library.\r\n    Copyright (c) 2018 by Mattias Gaertner\r\n\r\n    See the file COPYING.FPC, included in this distribution,\r\n    for details about the copyright.\r\n\r\n    This program is distributed in the hope that it will be useful,\r\n    but WITHOUT ANY WARRANTY; without even the implied warranty of\r\n    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\r\n\r\n **********************************************************************}\r\nunit System;\r\n\r\n{$mode objfpc}\r\n{$modeswitch externalclass}\r\n\r\ninterface\r\n\r\n{$IFDEF NodeJS}\r\nvar\r\n  LineEnding: string = #10;\r\n  sLineBreak: string = #10;\r\n{$ELSE}\r\nconst\r\n  LineEnding = #10;\r\n  sLineBreak = LineEnding;\r\n{$ENDIF}\r\n\r\nVar\r\n  PathDelim : Char = '/';\r\n  AllowDirectorySeparators : Set of Char = ['/','\\'];\r\n  AllowDriveSeparators : Set of Char = [':'];\r\n  ExtensionSeparator : Char = '.';\r\n\r\nconst\r\n  MaxSmallint = 32767;\r\n  MinSmallint = -32768;\r\n  MaxShortInt = 127;\r\n  MinShortInt = -128;\r\n  MaxByte = $FF;\r\n  MaxWord = $FFFF;\r\n  MaxLongint  = $7fffffff;\r\n  MaxCardinal = LongWord($ffffffff);\r\n\r\n  Maxint = MaxLongint;\r\n  IsMultiThread = false;\r\n\r\n{*****************************************************************************\r\n                               Base types\r\n*****************************************************************************}\r\ntype\r\n  HRESULT = Longint; // For Delphi compatibility\r\n  Int8 = ShortInt;\r\n  UInt8 = Byte;\r\n  Int16 = SmallInt;\r\n  UInt16 = Word;\r\n  Int32 = Longint;\r\n  UInt32 = LongWord;\r\n\r\n  Integer = LongInt;\r\n  Cardinal = LongWord;\r\n  DWord = LongWord;\r\n  SizeInt = NativeInt;\r\n  SizeUInt = NativeUInt;\r\n  PtrInt = NativeInt;\r\n  PtrUInt = NativeUInt;\r\n  ValSInt = NativeInt;\r\n  ValUInt = NativeUInt;\r\n  CodePointer = Pointer;\r\n  ValReal = Double;\r\n  Real = type Double;\r\n  Extended = type Double;\r\n\r\n  TDateTime = type double;\r\n  TTime = type TDateTime;\r\n  TDate = type TDateTime;\r\n\r\n\r\n  Int64 = NativeInt; // only 53 bits at runtime\r\n  UInt64 = type NativeUInt; // only 52 bits at runtime\r\n  QWord = type NativeUInt unimplemented; // only 52 bits at runtime\r\n  Single = Double; //unimplemented;\r\n  Comp = type NativeInt unimplemented;\r\n  NativeLargeInt = NativeInt;\r\n  NativeLargeUInt = NativeUInt;\r\n\r\n  UnicodeString = String;\r\n  WideString = type String;\r\n  WideChar = char;\r\n  UnicodeChar = char;\r\n\r\n  TDynArrayIndex = NativeInt;\r\n  TTextLineBreakStyle = (tlbsLF,tlbsCRLF,tlbsCR);\r\n\r\n  TCompareOption = ({coLingIgnoreCase, coLingIgnoreDiacritic, }coIgnoreCase{,\r\n                    coIgnoreKanaType, coIgnoreNonSpace, coIgnoreSymbols, coIgnoreWidth,\r\n                    coLingCasing}, coDigitAsNumbers{, coStringSort});\r\n  TCompareOptions = set of TCompareOption;\r\n\r\n  generic TArray<T> = array of T;\r\n\r\n{*****************************************************************************\r\n            TObject, TClass, IUnknown, IInterface, TInterfacedObject\r\n*****************************************************************************}\r\ntype\r\n  TGuid = record\r\n    D1: DWord;\r\n    D2: word;\r\n    D3: word;\r\n    D4: array[0..7] of byte;\r\n  end;\r\n  TGUIDString = type string;\r\n\r\n  PMethod = ^TMethod;\r\n  TMethod = record\r\n    Code : CodePointer;\r\n    Data : Pointer;\r\n  end;\r\n\r\n  TClass = class of TObject;\r\n\r\n  { TObject }\r\n\r\n  {$DispatchField Msg} // enable checking message methods for record field name \"Msg\"\r\n  {$DispatchStrField MsgStr}\r\n  TObject = class\r\n  private\r\n    class var FClassName: String; external name '$classname';\r\n    class var FClassParent: TClass; external name '$ancestor';\r\n    class var FUnitName: String; external name '$module.$name';\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; virtual;\r\n\r\n    // Free is using compiler magic.\r\n    // Reasons:\r\n    // 1. In JS calling obj.Free when obj=nil would crash.\r\n    // 2. In JS freeing memory requires to set all references to nil.\r\n    // Therefore any obj.free call is replaced by the compiler with some rtl magic.\r\n    procedure Free;\r\n\r\n    class function ClassType: TClass; assembler;\r\n    class property ClassName: String read FClassName;\r\n    class function ClassNameIs(const Name: string): boolean;\r\n    class property ClassParent: TClass read FClassParent;\r\n    class function InheritsFrom(aClass: TClass): boolean; assembler;\r\n    class property UnitName: String read FUnitName;\r\n    Class function MethodName(aCode : Pointer) : String;\r\n    Class function MethodAddress(aName : String) : Pointer;\r\n    Class Function FieldAddress(aName : String) : Pointer;\r\n    Class Function ClassInfo : Pointer;\r\n    class function QualifiedClassName: String;\r\n\r\n    procedure AfterConstruction; virtual;\r\n    procedure BeforeDestruction; virtual;\r\n\r\n    // message handling routines\r\n    procedure Dispatch(var aMessage); virtual;\r\n    procedure DispatchStr(var aMessage); virtual;\r\n    procedure DefaultHandler(var aMessage); virtual;\r\n    procedure DefaultHandlerStr(var aMessage); virtual;\r\n\r\n    function GetInterface(const iid: TGuid; out obj): boolean;\r\n    function GetInterface(const iidstr: String; out obj): boolean; inline;\r\n    function GetInterfaceByStr(const iidstr: String; out obj): boolean;\r\n    function GetInterfaceWeak(const iid: TGuid; out obj): boolean; // equal to GetInterface but the interface returned is not referenced\r\n\r\n    function Equals(Obj: TObject): boolean; virtual;\r\n    function ToString: String; virtual;\r\n  end;\r\n\r\n  { TCustomAttribute - base class of all user defined attributes. }\r\n\r\n  TCustomAttribute = class\r\n  end;\r\n  TCustomAttributeArray = array of TCustomAttribute;\r\n  TCustomAttributeClass = class of TCustomAttribute;\r\n\r\n\r\nconst\r\n  { IInterface }\r\n  S_OK          = 0;\r\n  S_FALSE       = 1;\r\n  E_NOINTERFACE = -2147467262; // FPC: longint($80004002)\r\n  E_UNEXPECTED  = -2147418113; // FPC: longint($8000FFFF)\r\n  E_NOTIMPL     = -2147467263; // FPC: longint($80004001)\r\n\r\ntype\r\n  {$Interfaces COM}\r\n  IUnknown = interface\r\n    ['{00000000-0000-0000-C000-000000000046}']\r\n    function QueryInterface(const iid: TGuid; out obj): Integer;\r\n    function _AddRef: Integer;\r\n    function _Release: Integer;\r\n  end;\r\n  IInterface = IUnknown;\r\n\r\n  {$M+}\r\n  IInvokable = interface(IInterface)\r\n  end;\r\n  {$M-}\r\n\r\n  { Enumerator support }\r\n  IEnumerator = interface(IInterface)\r\n    function GetCurrent: TObject;\r\n    function MoveNext: Boolean;\r\n    procedure Reset;\r\n    property Current: TObject read GetCurrent;\r\n  end;\r\n\r\n  IEnumerable = interface(IInterface)\r\n    function GetEnumerator: IEnumerator;\r\n  end;\r\n\r\n  { TInterfacedObject }\r\n\r\n  TInterfacedObject = class(TObject,IUnknown)\r\n  protected\r\n    fRefCount: Integer;\r\n    { implement methods of IUnknown }\r\n    function QueryInterface(const iid: TGuid; out obj): Integer; virtual;\r\n    function _AddRef: Integer; virtual;\r\n    function _Release: Integer; virtual;\r\n  public\r\n    procedure BeforeDestruction; override;\r\n    property RefCount: Integer read fRefCount;\r\n  end;\r\n  TInterfacedClass = class of TInterfacedObject;\r\n\r\n  { TAggregatedObject - sub or satellite object using same interface as controller }\r\n\r\n  TAggregatedObject = class(TObject)\r\n  private\r\n    fController: Pointer;\r\n    function GetController: IUnknown;\r\n  protected\r\n    { implement methods of IUnknown }\r\n    function QueryInterface(const iid: TGuid; out obj): Integer; virtual;\r\n    function _AddRef: Integer; virtual;\r\n    function _Release: Integer; virtual;\r\n  public\r\n    constructor Create(const aController: IUnknown); reintroduce;\r\n    property Controller: IUnknown read GetController;\r\n  end;\r\n\r\n  { TContainedObject }\r\n\r\n  TContainedObject = class(TAggregatedObject,IInterface)\r\n  protected\r\n    function QueryInterface(const iid: TGuid; out obj): Integer; override;\r\n  end;\r\n\r\nconst\r\n  { for safe as operator support }\r\n  IObjectInstance: TGuid = '{D91C9AF4-3C93-420F-A303-BF5BA82BFD23}';\r\n\r\nfunction GUIDToString(const GUID: TGUID): string; external name 'rtl.guidrToStr';\r\n\r\n{*****************************************************************************\r\n                                  RTTI support\r\n*****************************************************************************}\r\ntype\r\n  // if you change the following enumeration type in any way\r\n  // you also have to change the rtl.js in an appropriate way !\r\n  TTypeKind = (\r\n    tkUnknown,  // 0\r\n    tkInteger,  // 1\r\n    tkChar,     // 2 in Delphi/FPC tkWChar, tkUChar\r\n    tkString,   // 3 in Delphi/FPC tkSString, tkWString or tkUString\r\n    tkEnumeration, // 4\r\n    tkSet,      // 5\r\n    tkDouble,   // 6\r\n    tkBool,     // 7\r\n    tkProcVar,  // 8  function or procedure\r\n    tkMethod,   // 9  proc var of object\r\n    tkArray,    // 10 static array\r\n    tkDynArray, // 11\r\n    tkRecord,   // 12\r\n    tkClass,    // 13\r\n    tkClassRef, // 14\r\n    tkPointer,  // 15\r\n    tkJSValue,  // 16\r\n    tkRefToProcVar, // 17  variable of procedure type\r\n    tkInterface, // 18\r\n    //tkObject,\r\n    //tkSString,tkLString,tkAString,tkWString,\r\n    //tkVariant,\r\n    //tkWChar,\r\n    //tkInt64,\r\n    //tkQWord,\r\n    //tkInterfaceRaw,\r\n    //tkUString,tkUChar,\r\n    tkHelper,   // 19\r\n    //tkFile,\r\n    tkExtClass  // 20\r\n    );\r\n  TTypeKinds = set of TTypeKind;\r\n\r\nconst\r\n  tkFloat = tkDouble; // for compatibility with Delphi/FPC\r\n  tkProcedure = tkProcVar; // for compatibility with Delphi\r\n  tkAny = [Low(TTypeKind)..High(TTypeKind)];\r\n  tkMethods = [tkMethod];\r\n  tkProperties = tkAny-tkMethods-[tkUnknown];\r\n\r\n{*****************************************************************************\r\n                              Array of const support\r\n*****************************************************************************}\r\n\r\nconst\r\n  vtInteger       = 0;\r\n  vtBoolean       = 1;\r\n  //vtChar          = 2; // Delphi/FPC: ansichar\r\n  vtExtended      = 3; // Note: double in pas2js, PExtended in Delphi/FPC\r\n  //vtString        = 4; // Delphi/FPC: PShortString\r\n  vtPointer       = 5;\r\n  //vtPChar         = 6;\r\n  vtObject        = 7;\r\n  vtClass         = 8;\r\n  vtWideChar      = 9;\r\n  //vtPWideChar     = 10;\r\n  //vtAnsiString    = 11;\r\n  vtCurrency      = 12; // Note: currency in pas2js, PCurrency in Delphi/FPC\r\n  //vtVariant       = 13;\r\n  vtInterface     = 14;\r\n  //vtWideString    = 15;\r\n  //vtInt64         = 16;\r\n  //vtQWord         = 17;\r\n  vtUnicodeString = 18;\r\n  // only pas2js, not in Delphi/FPC:\r\n  vtNativeInt     = 19;\r\n  vtJSValue       = 20;\r\n\r\ntype\r\n  PVarRec = ^TVarRec;\r\n  TVarRec = record\r\n    VType: byte;\r\n    VJSValue: JSValue;\r\n    VInteger: LongInt external name 'VJSValue';\r\n    VBoolean: Boolean external name 'VJSValue';\r\n    VExtended: Double external name 'VJSValue';\r\n    VPointer: Pointer external name 'VJSValue';\r\n    VObject: TObject external name 'VJSValue';\r\n    VClass: TClass external name 'VJSValue';\r\n    VWideChar: WideChar external name 'VJSValue';\r\n    VCurrency: Currency external name 'VJSValue';\r\n    VInterface: Pointer external name 'VJSValue';\r\n    VUnicodeString: UnicodeString external name 'VJSValue';\r\n    VNativeInt: NativeInt external name 'VJSValue';\r\n  end;\r\n  TVarRecArray = array of TVarRec;\r\n\r\nfunction VarRecs: TVarRecArray; varargs;\r\n\r\n{*****************************************************************************\r\n                            Init / Exit / ExitProc\r\n*****************************************************************************}\r\nvar\r\n  ExitCode: Integer; external name 'rtl.exitcode';\r\n  IsConsole: Boolean = {$IFDEF NodeJS}true{$ELSE}false{$ENDIF};\r\n  FirstDotAtFileNameStartIsExtension : Boolean = False;\r\n\r\ntype\r\n  TOnParamCount = function: Longint;\r\n  TOnParamStr = function(Index: Longint): String;\r\nvar\r\n  OnParamCount: TOnParamCount;\r\n  OnParamStr: TOnParamStr;\r\n\r\nfunction ParamCount: Longint;\r\nfunction ParamStr(Index: Longint): String;\r\n\r\n{*****************************************************************************\r\n                                 Math\r\n*****************************************************************************}\r\nconst\r\n  PI: Double; external name 'Math.PI';\r\n  MathE: Double; external name 'Math.E'; // Euler's number\r\n  MathLN10: Double; external name 'Math.LN10'; // ln(10)\r\n  MathLN2: Double; external name 'Math.LN2'; // ln(2)\r\n  MathLog10E: Double; external name 'Math.Log10E'; // log10(e)\r\n  MathLog2E: Double; external name 'Math.LOG2E'; // log2(e)\r\n  MathSQRT1_2: Double; external name 'Math.SQRT1_2'; // sqrt(0.5)\r\n  MathSQRT2: Double; external name 'Math.SQRT2'; // sqrt(2)\r\n\r\nfunction Abs(const A: integer): integer; overload; external name 'Math.abs';\r\nfunction Abs(const A: NativeInt): integer; overload; external name 'Math.abs';\r\nfunction Abs(const A: Double): Double; overload; external name 'Math.abs';\r\nfunction ArcTan(const A: Double): Double; external name 'Math.atan';\r\nfunction ArcTan2(const A,B: Double): Double; external name 'Math.atan2';\r\nfunction Cos(const A: Double): Double; external name 'Math.cos';\r\nfunction Exp(const A: Double): Double; external name 'Math.exp';\r\nfunction Frac(const A: Double): Double; assembler;\r\nfunction Ln(const A: Double): Double; external name 'Math.log';\r\nfunction Odd(const A: Integer): Boolean; assembler;\r\nfunction Random(const Range: Integer): Integer; overload; assembler;\r\nfunction Random: Double; overload; external name 'Math.random';\r\nfunction Round(const A: Double): NativeInt; external name 'Math.round';\r\nfunction Sin(const A: Double): Double; external name 'Math.sin';\r\nfunction Tan(const A: Double): Double; external name 'Math.tan';\r\nfunction Sqr(const A: Integer): Integer; assembler; overload;\r\nfunction Sqr(const A: Double): Double; assembler; overload;\r\nfunction sqrt(const A: Double): Double; external name 'Math.sqrt';\r\nfunction Trunc(const A: Double): NativeInt;\r\n\r\n{*****************************************************************************\r\n                          String functions\r\n*****************************************************************************}\r\nconst\r\n  DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsLF;\r\n\r\nfunction Int(const A: Double): double;\r\nfunction Copy(const S: string; Index, Size: Integer): String; assembler; overload;\r\nfunction Copy(const S: string; Index: Integer): String; assembler; overload;\r\nprocedure Delete(var S: String; Index, Size: Integer); overload;\r\nfunction Pos(const Search, InString: String): Integer; assembler; overload;\r\nfunction Pos(const Search, InString: String; StartAt : Integer): Integer; assembler; overload;\r\nprocedure Insert(const Insertion: String; var Target: String; Index: Integer); overload;\r\nfunction upcase(c : char) : char; assembler;\r\nfunction HexStr(Val: NativeInt; cnt: byte): string; external name 'rtl.hexStr'; overload;\r\nfunction binstr(val : NativeUInt; cnt : byte) : string;\r\n\r\nprocedure val(const S: String; out NI : NativeInt; out Code: Integer); overload;\r\nprocedure val(const S: String; out NI : NativeUInt; out Code: Integer); overload;\r\nprocedure val(const S: String; out SI : ShortInt; out Code: Integer); overload;\r\nprocedure val(const S: String; out B : Byte; out Code: Integer); overload;\r\nprocedure val(const S: String; out SI : smallint; out Code: Integer); overload;\r\nprocedure val(const S: String; out W : word; out Code : Integer); overload;\r\nprocedure val(const S: String; out I : integer; out Code : Integer); overload;\r\nprocedure val(const S: String; out C : Cardinal; out Code: Integer); overload;\r\nprocedure val(const S: String; out d : double; out Code : Integer); overload;\r\nprocedure val(const S: String; out b : boolean; out Code: Integer); overload;\r\nfunction StringOfChar(c: Char; l: NativeInt): String;\r\n\r\n{*****************************************************************************\r\n                          Other functions\r\n*****************************************************************************}\r\nprocedure Write; varargs; // ToDo: should be compiler built-in function\r\nprocedure Writeln; varargs; // ToDo: should be compiler built-in function\r\n\r\nType\r\n  TConsoleHandler = Procedure (S : JSValue; NewLine : Boolean);\r\nFunction SetWriteCallBack(H : TConsoleHandler) : TConsoleHandler;\r\n\r\nfunction Assigned(const V: JSValue): boolean; assembler; overload;\r\nfunction StrictEqual(const A: JSValue; const B): boolean; assembler;\r\nfunction StrictInequal(const A: JSValue; const B): boolean; assembler;\r\n\r\nimplementation\r\n\r\ntype\r\n\r\n  { TJSObj - simple access to JS Object }\r\n\r\n  TJSObj = class external name 'Object'\r\n  private\r\n    function GetProperties(Name: String): JSValue; external name '[]';\r\n    procedure SetProperties(Name: String; const AValue: JSValue); external name '[]';\r\n  public\r\n    //constructor new;\r\n    //function hasOwnProperty(prop: String): boolean;\r\n    property Properties[Name: String]: JSValue read GetProperties write SetProperties; default;\r\n  end;\r\n\r\n  TJSArray = class external name 'Array'\r\n  public\r\n    //length: nativeint;\r\n    //constructor new; overload;\r\n    function push(aElement : JSValue) : NativeInt; varargs;\r\n  end;\r\n\r\n  TJSArguments = class external name 'arguments'\r\n  private\r\n    FLength: NativeInt; external name 'length';\r\n    function GetElements(Index: NativeInt): JSValue; external name '[]';\r\n  public\r\n    property Length: NativeInt read FLength;\r\n    property Elements[Index: NativeInt]: JSValue read GetElements; default;\r\n  end;\r\nvar\r\n  JSArguments: TJSArguments; external name 'arguments';\r\n\r\nfunction isNumber(const v: JSValue): boolean; external name 'rtl.isNumber';\r\nfunction isObject(const v: JSValue): boolean; external name 'rtl.isObject'; // true if not null and a JS Object\r\nfunction isString(const v: JSValue): boolean; external name 'rtl.isString';\r\nfunction isNaN(i: JSValue): boolean; external name 'isNaN'; // may result NaN\r\n\r\n// needed by ClassNameIs, the real SameText is in SysUtils\r\nfunction SameText(const s1, s2: String): Boolean; assembler;\r\nasm\r\n  return s1.toLowerCase() == s2.toLowerCase();\r\nend;\r\n\r\nfunction VarRecs: TVarRecArray;\r\nvar\r\n  i: nativeint;\r\n  v: PVarRec;\r\nbegin\r\n  Result:=nil;\r\n  while i<JSArguments.Length do\r\n    begin\r\n    new(v);\r\n    v^.VType:=byte(JSArguments[i]);\r\n    inc(i);\r\n    v^.VJSValue:=JSArguments[i];\r\n    inc(i);\r\n    TJSArray(Result).push(v^);\r\n    end;\r\nend;\r\n\r\nfunction ParamCount: Longint;\r\nbegin\r\n  if Assigned(OnParamCount) then\r\n    Result:=OnParamCount()\r\n  else\r\n    Result:=0;\r\nend;\r\n\r\nfunction ParamStr(Index: Longint): String;\r\nbegin\r\n  if Assigned(OnParamStr) then\r\n    Result:=OnParamStr(Index)\r\n  else if Index=0 then\r\n    Result:='js'\r\n  else\r\n    Result:='';\r\nend;\r\n\r\nfunction Frac(const A: Double): Double; assembler;\r\nasm\r\n  return A % 1;\r\nend;\r\n\r\nfunction Odd(const A: Integer): Boolean; assembler;\r\nasm\r\n  return A&1 != 0;\r\nend;\r\n\r\nfunction Random(const Range: Integer): Integer; assembler;\r\nasm\r\n  return Math.floor(Math.random()*Range);\r\nend;\r\n\r\nfunction Sqr(const A: Integer): Integer; assembler;\r\nasm\r\n  return A*A;\r\nend;\r\n\r\nfunction Sqr(const A: Double): Double; assembler;\r\nasm\r\n  return A*A;\r\nend;\r\n\r\nfunction Trunc(const A: Double): NativeInt; assembler;\r\nasm\r\n  if (!Math.trunc) {\r\n    Math.trunc = function(v) {\r\n      v = +v;\r\n      if (!isFinite(v)) return v;\r\n      return (v - v % 1) || (v < 0 ? -0 : v === 0 ? v : 0);\r\n    };\r\n  }\r\n  $mod.Trunc = Math.trunc;\r\n  return Math.trunc(A);\r\nend;\r\n\r\nfunction Copy(const S: string; Index, Size: Integer): String; assembler;\r\nasm\r\n  if (Index<1) Index = 1;\r\n  return (Size>0) ? S.substring(Index-1,Index+Size-1) : \"\";\r\nend;\r\n\r\nfunction Copy(const S: string; Index: Integer): String; assembler;\r\nasm\r\n  if (Index<1) Index = 1;\r\n  return S.substr(Index-1);\r\nend;\r\n\r\nprocedure Delete(var S: String; Index, Size: Integer);\r\nvar\r\n  h: String;\r\nbegin\r\n  if (Index<1) or (Index>length(S)) or (Size<=0) then exit;\r\n  h:=S;\r\n  S:=copy(h,1,Index-1)+copy(h,Index+Size);\r\nend;\r\n\r\nfunction Pos(const Search, InString: String): Integer; assembler;\r\nasm\r\n  return InString.indexOf(Search)+1;\r\nend;\r\n\r\nfunction Pos(const Search, InString: String; StartAt : Integer): Integer; assembler; overload;\r\nasm\r\n  return InString.indexOf(Search,StartAt-1)+1;\r\nend;\r\n\r\nprocedure Insert(const Insertion: String; var Target: String; Index: Integer);\r\nvar\r\n  t: String;\r\nbegin\r\n  if Insertion='' then exit;\r\n  t:=Target;\r\n  if Index<1 then\r\n    Target:=Insertion+t\r\n  else if Index>length(t) then\r\n    Target:=t+Insertion\r\n  else\r\n    Target:=copy(t,1,Index-1)+Insertion+copy(t,Index,length(t));\r\nend;\r\n\r\nvar\r\n  WriteBuf: String;\r\n  WriteCallBack : TConsoleHandler;\r\n\r\nFunction SetWriteCallBack(H : TConsoleHandler) : TConsoleHandler;\r\n\r\nbegin\r\n  Result:=WriteCallBack;\r\n  WriteCallBack:=H;\r\nend;\r\n\r\nprocedure Write;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  for i:=0 to JSArguments.Length-1 do\r\n    if Assigned(WriteCallBack) then\r\n      WriteCallBack(JSArguments[i],False)\r\n    else\r\n      WriteBuf:=WriteBuf+String(JSArguments[i]);\r\nend;\r\n\r\nprocedure Writeln;\r\n\r\nvar\r\n  i,l: Integer;\r\n  s: String;\r\n\r\nbegin\r\n  L:=JSArguments.Length-1;\r\n  if Assigned(WriteCallBack) then\r\n    begin\r\n    for i:=0 to L do\r\n      WriteCallBack(JSArguments[i],I=L);\r\n    end\r\n  else\r\n    begin\r\n    s:=WriteBuf;\r\n    for i:=0 to L do\r\n      s:=s+String(JSArguments[i]);\r\n    asm\r\n      console.log(s);\r\n    end;\r\n    WriteBuf:='';\r\n    end;\r\nend;\r\n\r\nfunction Int(const A: Double): double;\r\n\r\nbegin\r\n  // trunc contains fix for missing Math.trunc in IE\r\n  Result:=Trunc(A);\r\nend;\r\n\r\nfunction Number(S: String): Double; external name 'Number';\r\n\r\nfunction valint(const S: String; MinVal, MaxVal: NativeInt; out Code: Integer): NativeInt;\r\nvar\r\n  x: double;\r\nbegin\r\n  if S='' then\r\n    begin\r\n    code:=1;\r\n    exit;\r\n    end;\r\n  x:=Number(S);\r\n  if isNaN(x) then\r\n    case copy(s,1,1) of\r\n    '$': x:=Number('0x'+copy(S,2));\r\n    '&': x:=Number('0o'+copy(S,2));\r\n    '%': x:=Number('0b'+copy(S,2));\r\n    else\r\n      Code:=1;\r\n      exit;\r\n    end;\r\n  if isNaN(x) or (X<>Int(X)) then\r\n    Code:=1\r\n  else if (x<MinVal) or (x>MaxVal) then\r\n    Code:=2\r\n  else\r\n    begin\r\n    Result:=Trunc(x);\r\n    Code:=0;\r\n    end;\r\nend;\r\n\r\nprocedure val(const S: String; out NI : NativeInt; out Code: Integer);\r\nbegin\r\n  NI:=valint(S,low(NI),high(NI),Code);\r\nend;\r\n\r\nprocedure val(const S: String; out NI: NativeUInt; out Code: Integer);\r\nvar\r\n  x : double;\r\nbegin\r\n  if S='' then\r\n    begin\r\n    code:=1;\r\n    exit;\r\n    end;\r\n  x:=Number(S);\r\n  if isNaN(x) or (X<>Int(X)) or (X<0) then\r\n    Code:=1\r\n  else\r\n    begin\r\n    Code:=0;\r\n    NI:=Trunc(x);\r\n    end;\r\nend;\r\n\r\nprocedure val(const S: String; out SI : ShortInt; out Code: Integer);\r\nbegin\r\n  SI:=valint(S,low(SI),high(SI),Code);\r\nend;\r\n\r\nprocedure val(const S: String; out SI: smallint; out Code: Integer);\r\nbegin\r\n  SI:=valint(S,low(SI),high(SI),Code);\r\nend;\r\n\r\nprocedure val(const S: String; out C: Cardinal; out Code: Integer);\r\nbegin\r\n  C:=valint(S,low(C),high(C),Code);\r\nend;\r\n\r\nprocedure val(const S: String; out B: Byte; out Code: Integer);\r\nbegin\r\n  B:=valint(S,low(B),high(B),Code);\r\nend;\r\n\r\nprocedure val(const S: String; out W: word; out Code: Integer);\r\nbegin\r\n  W:=valint(S,low(W),high(W),Code);\r\nend;\r\n\r\nprocedure val(const S : String; out I : integer; out Code : Integer);\r\nbegin\r\n  I:=valint(S,low(I),high(I),Code);\r\nend;\r\n\r\nprocedure val(const S : String; out d : double; out Code : Integer);\r\nVar\r\n  x: double;\r\nbegin\r\n  if S='' then\r\n    begin\r\n    code:=1;\r\n    exit;\r\n    end;\r\n  x:=Number(S);\r\n  if isNaN(x) then\r\n    Code:=1\r\n  else\r\n    begin\r\n    Code:=0;\r\n    d:=x;\r\n    end;\r\nend;\r\n\r\nprocedure val(const S: String; out b: boolean; out Code: Integer);\r\nbegin\r\n  if SameText(S,'true') then\r\n    begin\r\n    Code:=0;\r\n    b:=true;\r\n    end\r\n  else if SameText(S,'false') then\r\n    begin\r\n    Code:=0;\r\n    b:=false;\r\n    end\r\n  else\r\n    Code:=1;\r\nend;\r\n\r\nfunction binstr(val : NativeUInt;cnt : byte) : string;\r\nvar\r\n  i : Integer;\r\nbegin\r\n  SetLength(Result,cnt);\r\n  for i:=cnt downto 1 do\r\n   begin\r\n     Result[i]:=char(48+val and 1);\r\n     val:=val shr 1;\r\n   end;\r\nend;\r\n\r\nfunction upcase(c : char) : char; assembler;\r\nasm\r\n  return c.toUpperCase();\r\nend;\r\n\r\nfunction StringOfChar(c: Char; l: NativeInt): String;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  asm\r\n    if ((l>0) && c.repeat) return c.repeat(l);\r\n  end;\r\n  Result:='';\r\n  for i:=1 to l do Result:=Result+c;\r\nend;\r\n\r\nfunction Assigned(const V: JSValue): boolean; assembler;\r\nasm\r\n  return (V!=undefined) && (V!=null) && (!rtl.isArray(V) || (V.length > 0));\r\nend;\r\n\r\nfunction StrictEqual(const A: JSValue; const B): boolean; assembler;\r\nasm\r\n  return A === B;\r\nend;\r\n\r\nfunction StrictInequal(const A: JSValue; const B): boolean; assembler;\r\nasm\r\n  return A !== B;\r\nend;\r\n\r\n{ TContainedObject }\r\n\r\nfunction TContainedObject.QueryInterface(const iid: TGuid; out obj): Integer;\r\nbegin\r\n  if GetInterface(iid,obj) then\r\n    Result:=S_OK\r\n  else\r\n    Result:=Integer(E_NOINTERFACE);\r\nend;\r\n\r\n{ TAggregatedObject }\r\n\r\nfunction TAggregatedObject.GetController: IUnknown;\r\nbegin\r\n  Result := IUnknown(fController);\r\nend;\r\n\r\nfunction TAggregatedObject.QueryInterface(const iid: TGuid; out obj): Integer;\r\nbegin\r\n  Result := IUnknown(fController).QueryInterface(iid, obj);\r\nend;\r\n\r\nfunction TAggregatedObject._AddRef: Integer;\r\nbegin\r\n  Result := IUnknown(fController)._AddRef;\r\nend;\r\n\r\nfunction TAggregatedObject._Release: Integer;\r\nbegin\r\n  Result := IUnknown(fController)._Release;\r\nend;\r\n\r\nconstructor TAggregatedObject.Create(const aController: IUnknown);\r\nbegin\r\n  inherited Create;\r\n  { do not keep a counted reference to the controller! }\r\n  fController := Pointer(aController);\r\nend;\r\n\r\n{ TInterfacedObject }\r\n\r\nfunction TInterfacedObject.QueryInterface(const iid: TGuid; out obj): Integer;\r\nbegin\r\n  if GetInterface(iid,obj) then\r\n    Result:=S_OK\r\n  else\r\n    Result:=Integer(E_NOINTERFACE);\r\nend;\r\n\r\nfunction TInterfacedObject._AddRef: Integer;\r\nbegin\r\n  inc(fRefCount);\r\n  Result:=fRefCount;\r\nend;\r\n\r\nfunction TInterfacedObject._Release: Integer;\r\nbegin\r\n  dec(fRefCount);\r\n  Result:=fRefCount;\r\n  if fRefCount=0 then\r\n    Destroy;\r\nend;\r\n\r\nprocedure TInterfacedObject.BeforeDestruction;\r\nbegin\r\n  if fRefCount<>0 then\r\n    asm\r\n    rtl.raiseE('EHeapMemoryError');\r\n    end;\r\nend;\r\n\r\n{ TObject }\r\n\r\nconstructor TObject.Create;\r\nbegin\r\n\r\nend;\r\n\r\ndestructor TObject.Destroy;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TObject.Free;\r\nbegin\r\n  Destroy;\r\nend;\r\n\r\nclass function TObject.ClassType: TClass; assembler;\r\nasm\r\n  return this;\r\nend;\r\n\r\nclass function TObject.ClassNameIs(const Name: string): boolean;\r\nbegin\r\n  Result:=SameText(Name,ClassName);\r\nend;\r\n\r\nclass function TObject.InheritsFrom(aClass: TClass): boolean; assembler;\r\nasm\r\n  return (aClass!=null) && ((this==aClass) || aClass.isPrototypeOf(this));\r\nend;\r\n\r\nClass function TObject.MethodName(aCode : Pointer) : String;\r\n\r\nbegin\r\n  Result:='';\r\n  if aCode=Nil then\r\n    exit;\r\nasm\r\n  if (typeof(aCode)!=='function') return \"\";\r\n  var i = 0;\r\n  var TI = this.$rtti;\r\n  if (rtl.isObject(aCode.scope)){\r\n    // callback\r\n    if (typeof aCode.fn === \"string\") return aCode.fn;\r\n    aCode = aCode.fn;\r\n  }\r\n  // Not a callback, check rtti\r\n  while ((Result === \"\") && (TI != null)) {\r\n    i = 0;\r\n    while ((Result === \"\") && (i < TI.methods.length)) {\r\n      if (this[TI.getMethod(i).name] === aCode)\r\n        Result=TI.getMethod(i).name;\r\n      i += 1;\r\n    };\r\n    if (Result === \"\") TI = TI.ancestor;\r\n  };\r\n  // return Result;\r\nend;\r\nend;\r\n\r\nClass function TObject.MethodAddress(aName : String) : Pointer;\r\n\r\n// We must do this in asm, because the typinfo unit is not available.\r\nbegin\r\n  Result:=Nil;\r\n  if AName='' then\r\n    exit;\r\nasm\r\n  var i = 0;\r\n  var TI = this.$rtti;\r\n  var N = \"\";\r\n  var MN = \"\";\r\n  N = aName.toLowerCase();\r\n  while ((MN === \"\") && (TI != null)) {\r\n    i = 0;\r\n    while ((MN === \"\") && (i < TI.methods.length)) {\r\n      if (TI.getMethod(i).name.toLowerCase() === N) MN = TI.getMethod(i).name;\r\n      i += 1;\r\n    };\r\n    if (MN === \"\") TI = TI.ancestor;\r\n  };\r\n  if (MN !== \"\") Result = this[MN];\r\n//  return Result;\r\nend;\r\nend;\r\n\r\nclass function TObject.FieldAddress(aName: String): Pointer;\r\n\r\nbegin\r\n  Result:=Nil;\r\n  if aName='' then exit;\r\n  asm\r\n    var aClass = this.$class;\r\n    var ClassTI = null;\r\n    var myName = aName.toLowerCase();\r\n    var MemberTI = null;\r\n    while (aClass !== null) {\r\n      ClassTI = aClass.$rtti;\r\n      for (var i = 0, $end2 = ClassTI.fields.length - 1; i <= $end2; i++) {\r\n        MemberTI = ClassTI.getField(i);\r\n        if (MemberTI.name.toLowerCase() === myName) {\r\n           return MemberTI;\r\n        };\r\n      };\r\n      aClass = aClass.$ancestor ? aClass.$ancestor : null;\r\n    };\r\n  end;\r\nend;\r\n\r\nClass Function TObject.ClassInfo : Pointer;\r\n\r\nbegin\r\n  // This works different from FPC/Delphi.\r\n  // We get the actual type info.\r\n  Result:=TypeInfo(Self);\r\nend;\r\n\r\nprocedure TObject.AfterConstruction;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TObject.BeforeDestruction;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TObject.Dispatch(var aMessage);\r\n// aMessage is a record with an integer field 'Msg'\r\nvar\r\n  aClass: TClass;\r\n  Msg: TJSObj absolute aMessage;\r\n  Id: jsvalue;\r\nbegin\r\n  if not isObject(Msg) then exit;\r\n  Id:=Msg['Msg'];\r\n  if not isNumber(Id) then exit;\r\n  aClass:=ClassType;\r\n  while aClass<>nil do\r\n    begin\r\n    asm\r\n      var Handlers = aClass.$msgint;\r\n      if (rtl.isObject(Handlers) && Handlers.hasOwnProperty(Id)){\r\n        this[Handlers[Id]](aMessage);\r\n        return;\r\n      }\r\n    end;\r\n    aClass:=aClass.ClassParent;\r\n    end;\r\n  DefaultHandler(aMessage);\r\nend;\r\n\r\nprocedure TObject.DispatchStr(var aMessage);\r\n// aMessage is a record with a string field 'MsgStr'\r\nvar\r\n  aClass: TClass;\r\n  Msg: TJSObj absolute aMessage;\r\n  Id: jsvalue;\r\nbegin\r\n  if not isObject(Msg) then exit;\r\n  Id:=Msg['MsgStr'];\r\n  if not isString(Id) then exit;\r\n  aClass:=ClassType;\r\n  while (aClass<>Nil) do\r\n    begin\r\n    asm\r\n      var Handlers = aClass.$msgstr;\r\n      if (rtl.isObject(Handlers) && Handlers.hasOwnProperty(Id)){\r\n        this[Handlers[Id]](aMessage);\r\n        return;\r\n      }\r\n    end;\r\n    aClass:=aClass.ClassParent;\r\n    end;\r\n  DefaultHandlerStr(aMessage);\r\nend;\r\n\r\nprocedure TObject.DefaultHandler(var aMessage);\r\nbegin\r\n  if jsvalue(TMethod(aMessage)) then ;\r\nend;\r\n\r\nprocedure TObject.DefaultHandlerStr(var aMessage);\r\nbegin\r\n  if jsvalue(TMethod(aMessage)) then ;\r\nend;\r\n\r\nfunction TObject.GetInterface(const iid: TGuid; out obj): boolean;\r\nbegin\r\n  asm\r\n    var i = iid.$intf;\r\n    if (i){\r\n      // iid is the private TGuid of an interface\r\n      i = rtl.getIntfG(this,i.$guid,2);\r\n      if (i){\r\n        obj.set(i);\r\n        return true;\r\n      }\r\n    }\r\n  end;\r\n  Result := GetInterfaceByStr(GUIDToString(iid),obj);\r\nend;\r\n\r\nfunction TObject.GetInterface(const iidstr: String; out obj): boolean;\r\nbegin\r\n  Result := GetInterfaceByStr(iidstr,obj);\r\nend;\r\n\r\nfunction TObject.GetInterfaceByStr(const iidstr: String; out obj): boolean;\r\nbegin\r\n  Result:=false;\r\n  if not TJSObj(IObjectInstance)['$str'] then\r\n    TJSObj(IObjectInstance)['$str']:=GUIDToString(IObjectInstance);\r\n  if iidstr = TJSObj(IObjectInstance)['$str'] then\r\n    begin\r\n    obj:=Self;\r\n    exit(true);\r\n    end;\r\n  asm\r\n    var i = rtl.getIntfG(this,iidstr,2);\r\n    obj.set(i);\r\n    Result=(i!==null);\r\n  end;\r\nend;\r\n\r\nfunction TObject.GetInterfaceWeak(const iid: TGuid; out obj): boolean;\r\nbegin\r\n  Result:=GetInterface(iid,obj);\r\n  asm\r\n    if (Result){\r\n      var o = obj.get();\r\n      if (o.$kind==='com'){\r\n        o._Release();\r\n      }\r\n    }\r\n  end;\r\nend;\r\n\r\nfunction TObject.Equals(Obj: TObject): boolean;\r\nbegin\r\n  Result:=Obj=Self;\r\nend;\r\n\r\nfunction TObject.ToString: String;\r\nbegin\r\n  Result:=ClassName;\r\nend;\r\n\r\nclass function TObject.QualifiedClassName: String;\r\nbegin\r\n  Result := UnitName + '.' + ClassName;\r\nend;\r\n\r\ninitialization\r\n  ExitCode:=0; // set it here, so that WPO does not remove it\r\n\r\nend.\r\n\r\n","{\r\n    This file is part of the Pas2JS run time library.\r\n    Copyright (c) 2017 by Mattias Gaertner\r\n\r\n    See the file COPYING.FPC, included in this distribution,\r\n    for details about the copyright.\r\n\r\n    This program is distributed in the hope that it will be useful,\r\n    but WITHOUT ANY WARRANTY; without even the implied warranty of\r\n    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\r\n\r\n **********************************************************************}\r\nunit RTLConsts;\r\n\r\ninterface\r\n\r\nResourcestring\r\n  SArgumentMissing              = 'Missing argument in format \"%s\"';\r\n  SInvalidFormat                = 'Invalid format specifier : \"%s\"';\r\n  SInvalidArgIndex              = 'Invalid argument index in format: \"%s\"';\r\n  SListCapacityError            = 'List capacity (%s) exceeded.';\r\n  SListCountError               = 'List count (%s) out of bounds.';\r\n  SMapKeyError                  = 'Key not found : %s';\r\n  SListIndexError               = 'List index (%s) out of bounds';\r\n  SSortedListError              = 'Operation not allowed on sorted list';\r\n  SDuplicateString              = 'String list does not allow duplicates';\r\n  SDuplicateItem                = 'ThreadList does not allow duplicates';\r\n  SErrFindNeedsSortedList       = 'Cannot use find on unsorted list';\r\n\r\n  SInvalidName                  = 'Invalid component name: \"%s\"';\r\n  SInvalidBoolean               = '\"%s\" is not a valid boolean.';\r\n  SDuplicateName                = 'Duplicate component name: \"%s\"';\r\n\r\n  SErrInvalidDate               = 'Invalid date: \"%s\"';\r\n  SErrInvalidTimeFormat         = 'Invalid time format: \"%s\"';\r\n  SInvalidDateFormat            = 'Invalid date format: \"%s\"';\r\n\r\n  SCantReadPropertyS            = 'Cannot read property \"%s\"';\r\n  SCantWritePropertyS           = 'Cannot write property \"%s\"';\r\n  SErrPropertyNotFound          = 'Unknown property: \"%s\"';\r\n  SIndexedPropertyNeedsParams   = 'Indexed property \"%s\" needs parameters';\r\n  SErrInvalidTypecast           = 'Invalid class typecast';\r\n\r\n  SErrInvalidInteger            = 'Invalid integer value: \"%s\"';\r\n  SErrInvalidFloat              = 'Invalid floating-point value: \"%s\"';\r\n  SInvalidDateTime              = 'Invalid date-time value: %s';\r\n  SInvalidCurrency              = 'Invalid currency value: %s';\r\n  SErrInvalidDayOfWeek          = '%d is not a valid day of the week';\r\n  SErrInvalidTimeStamp          = 'Invalid date/timestamp : \"%s\"';\r\n  SErrInvalidDateWeek           = '%d %d %d is not a valid dateweek';\r\n  SErrInvalidDayOfYear          = 'Year %d does not have a day number %d';\r\n  SErrInvalidDateMonthWeek      = 'Year %d, month %d, Week %d and day %d is not a valid date.';\r\n  SErrInvalidDayOfWeekInMonth   = 'Year %d Month %d NDow %d DOW %d is not a valid date';\r\n  SInvalidJulianDate            = '%f Julian cannot be represented as a DateTime';\r\n  SErrInvalidHourMinuteSecMsec  = '%d:%d:%d.%d is not a valid time specification';\r\n\r\n  SInvalidGUID                  = '\"%s\" is not a valid GUID value';\r\n\r\n  SEmptyStreamIllegalReader       = 'Illegal Nil stream for TReader constructor';\r\n  SInvalidPropertyValue           = 'Invalid value for property';\r\n  SInvalidImage                   = 'Invalid stream format';\r\n  SUnknownProperty                = 'Unknown property: \"%s\"';\r\n  SUnknownPropertyType            = 'Unknown property type %s';\r\n  SAncestorNotFound               = 'Ancestor class for \"%s\" not found.';\r\n  SUnsupportedPropertyVariantType = 'Unsupported property variant type %d';\r\n  SPropertyException              = 'Error reading %s%s%s: %s';\r\n  SInvalidPropertyPath            = 'Invalid property path';\r\n  SReadOnlyProperty               = 'Property is read-only';\r\n  SClassNotFound                  = 'Class \"%s\" not found';\r\n\r\n  SEmptyStreamIllegalWriter       = 'Illegal Nil stream for TWriter constructor';\r\n  SErrInvalidPropertyType         = 'Invalid property type from streamed property: %d';\r\n  SParserExpected                 = 'Wrong token type: %s expected';\r\n  SParserInvalidFloat             = 'Invalid floating point number: %s';\r\n  SParserInvalidInteger           = 'Invalid integer number: %s';\r\n  SParserUnterminatedString       = 'Unterminated string';\r\n  SParserWrongTokenType           = 'Wrong token type: %s expected but %s found';\r\n  SParserWrongTokenSymbol         = 'Wrong token symbol: %s expected but %s found';\r\n  SParserLocInfo                  = ' (at %d,%d, stream offset %.8x)';\r\n  SParserUnterminatedBinValue     = 'Unterminated byte value';\r\n  SParserInvalidProperty          = 'Invalid property';\r\n  SRangeError                     = 'Range error';\r\n\r\n  SParamIsNegative                = 'Parameter \"%s\" cannot be negative.';\r\n\r\n  SErrNoStreaming                 = 'Failed to initialize component class \"%s\": No streaming method available.';\r\n  SResNotFound                    = 'Resource %s not found';\r\n  SErrResourceStreamNoWrite       = 'Cannot write to resource stream';\r\n  SErrResourceNotBase64           = 'Resource %s is not base64 encoded';\r\n  SErrUnknownResourceEncoding     = 'Unknown encoding for resource: \"%s\"';\r\n\r\nimplementation\r\n\r\nend.\r\n\r\n","{\r\n    This file is part of the Pas2JS run time library.\r\n    Copyright (c) 2018 by Mattias Gaertner\r\n\r\n    See the file COPYING.FPC, included in this distribution,\r\n    for details about the copyright.\r\n\r\n    This program is distributed in the hope that it will be useful,\r\n    but WITHOUT ANY WARRANTY; without even the implied warranty of\r\n    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\r\n\r\n **********************************************************************}\r\nunit Types;\r\n\r\n{$mode objfpc}\r\n\r\ninterface\r\n\r\ntype\r\n  THandle = NativeInt;\r\n  TDirection = (FromBeginning, FromEnd);\r\n\r\n  TBooleanDynArray = array of Boolean;\r\n  TWordDynArray = array of Word;\r\n  TIntegerDynArray = array of Integer;\r\n  TNativeIntDynArray = array of NativeInt;\r\n  TStringDynArray = array of String;\r\n  TDoubleDynArray = array of Double;\r\n  TJSValueDynArray = array of JSValue;\r\n  TObjectDynArray = array of TObject;\r\n  TByteDynArray = array of Byte;\r\n\r\n  TDuplicates = (dupIgnore, dupAccept, dupError);\r\n  TProc = Reference to Procedure;\r\n  TProcString = Reference to Procedure(Const aString : String);\r\n\r\n  TListCallback = procedure(data, arg: JSValue) of object;\r\n  TListStaticCallback = procedure(data, arg: JSValue);\r\n\r\n  TSize  = record\r\n    cx, cy: integer;\r\n  end;\r\n\r\n  TPoint  = record\r\n    x, y: integer;\r\n  end;\r\n\r\n  TRect  = record\r\n    Left, Top, Right, Bottom: Integer;\r\n  end;\r\n  \r\nfunction EqualRect(const r1,r2 : TRect) : Boolean;\r\nfunction Rect(Left, Top, Right, Bottom : Integer) : TRect;\r\nfunction Bounds(ALeft, ATop, AWidth, AHeight : Integer) : TRect;\r\nfunction Point(x,y : Integer): TPoint; {$IFDEF Has_Inline}inline;{$ENDIF}\r\nfunction PtInRect(const aRect: TRect; const p: TPoint) : Boolean;\r\nfunction IntersectRect(out aRect: TRect; const R1,R2: TRect) : Boolean;\r\nfunction UnionRect(out aRect: TRect; const R1,R2: TRect) : Boolean;\r\nfunction IsRectEmpty(const aRect: TRect) : Boolean;\r\nfunction OffsetRect(var aRect: TRect; DX, DY: Integer) : Boolean;\r\nfunction CenterPoint(const aRect: TRect): TPoint;\r\nfunction InflateRect(var aRect: TRect; dx, dy: Integer): Boolean;\r\nfunction Size(AWidth, AHeight: Integer): TSize;\r\nfunction Size(const aRect: TRect): TSize;\r\n\r\nimplementation\r\n\r\nfunction EqualRect(const r1, r2: TRect): Boolean;\r\nbegin\r\n  Result:=(r1.left=r2.left) and (r1.right=r2.right) and (r1.top=r2.top) and (r1.bottom=r2.bottom);\r\nend;\r\n\r\nfunction Rect(Left, Top, Right, Bottom: Integer): TRect;\r\nbegin\r\n  Result.Left:=Left;\r\n  Result.Top:=Top;\r\n  Result.Right:=Right;\r\n  Result.Bottom:=Bottom;\r\nend;\r\n\r\nfunction Bounds(ALeft, ATop, AWidth, AHeight: Integer): TRect;\r\nbegin\r\n  Result.Left:=ALeft;\r\n  Result.Top:=ATop;\r\n  Result.Right:=ALeft+AWidth;\r\n  Result.Bottom:=ATop+AHeight;\r\nend;\r\n\r\nfunction Point(x, y: Integer): TPoint;\r\nbegin\r\n  Result.x:=x;\r\n  Result.y:=y;\r\nend;\r\n\r\nfunction PtInRect(const aRect: TRect; const p: TPoint): Boolean;\r\nbegin\r\n  Result:=(p.y>=aRect.Top) and\r\n          (p.y<aRect.Bottom) and\r\n          (p.x>=aRect.Left) and\r\n          (p.x<aRect.Right);\r\nend;\r\n\r\nfunction IntersectRect(out aRect: TRect; const R1, R2: TRect): Boolean;\r\nvar\r\n  lRect: TRect;\r\nbegin\r\n  lRect := R1;\r\n  if R2.Left > R1.Left then\r\n    lRect.Left := R2.Left;\r\n  if R2.Top > R1.Top then\r\n    lRect.Top := R2.Top;\r\n  if R2.Right < R1.Right then\r\n    lRect.Right := R2.Right;\r\n  if R2.Bottom < R1.Bottom then\r\n    lRect.Bottom := R2.Bottom;\r\n\r\n  // The var parameter is only assigned in the end to avoid problems\r\n  // when passing the same rectangle in the var and const parameters.\r\n  if IsRectEmpty(lRect) then\r\n  begin\r\n    aRect:=Rect(0,0,0,0);\r\n    Result:=false;\r\n  end\r\n  else\r\n  begin\r\n    Result:=true;\r\n    aRect := lRect;\r\n  end;\r\nend;\r\n\r\nfunction UnionRect(out aRect: TRect; const R1, R2: TRect): Boolean;\r\nvar\r\n  lRect: TRect;\r\nbegin\r\n  lRect:=R1;\r\n  if R2.Left<R1.Left then\r\n    lRect.Left:=R2.Left;\r\n  if R2.Top<R1.Top then\r\n    lRect.Top:=R2.Top;\r\n  if R2.Right>R1.Right then\r\n    lRect.Right:=R2.Right;\r\n  if R2.Bottom>R1.Bottom then\r\n    lRect.Bottom:=R2.Bottom;\r\n\r\n  if IsRectEmpty(lRect) then\r\n  begin\r\n    aRect:=Rect(0,0,0,0);\r\n    Result:=false;\r\n  end\r\n  else\r\n  begin\r\n    aRect:=lRect;\r\n    Result:=true;\r\n  end;\r\nend;\r\n\r\nfunction IsRectEmpty(const aRect: TRect): Boolean;\r\nbegin\r\n  Result:=(aRect.Right<=aRect.Left) or (aRect.Bottom<=aRect.Top);\r\nend;\r\n\r\nfunction OffsetRect(var aRect: TRect; DX, DY: Integer): Boolean;\r\nbegin\r\n  with aRect do\r\n    begin\r\n    inc(Left,dx);\r\n    inc(Top,dy);\r\n    inc(Right,dx);\r\n    inc(Bottom,dy);\r\n    end;\r\n  Result:=true;\r\nend;\r\n\r\nfunction CenterPoint(const aRect: TRect): TPoint;\r\n\r\n  function Avg(a, b: Longint): Longint;\r\n  begin\r\n    if a < b then\r\n      Result := a + ((b - a) shr 1)\r\n    else\r\n      Result := b + ((a - b) shr 1);\r\n  end;\r\n\r\nbegin\r\n  with aRect do\r\n    begin\r\n      Result.X := Avg(Left, Right);\r\n      Result.Y := Avg(Top, Bottom);\r\n    end;\r\nend;\r\n\r\nfunction InflateRect(var aRect: TRect; dx, dy: Integer): Boolean;\r\nbegin\r\n  with aRect do\r\n  begin\r\n    dec(Left, dx);\r\n    dec(Top, dy);\r\n    inc(Right, dx);\r\n    inc(Bottom, dy);\r\n  end;\r\n  Result := True;\r\nend;\r\n\r\nfunction Size(AWidth, AHeight: Integer): TSize;\r\nbegin\r\n  Result.cx := AWidth;\r\n  Result.cy := AHeight;\r\nend;\r\n\r\nfunction Size(const aRect: TRect): TSize;\r\nbegin\r\n  Result.cx := aRect.Right - aRect.Left;\r\n  Result.cy := aRect.Bottom - aRect.Top;\r\nend;\r\n\r\nend.\r\n\r\n","{\r\n    This file is part of the Pas2JS run time library.\r\n    Copyright (c) 2017-2020 by the Pas2JS development team.\r\n\r\n    See the file COPYING.FPC, included in this distribution,\r\n    for details about the copyright.\r\n\r\n    This program is distributed in the hope that it will be useful,\r\n    but WITHOUT ANY WARRANTY; without even the implied warranty of\r\n    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\r\n\r\n **********************************************************************}\r\nunit JS;\r\n\r\n{$mode objfpc}\r\n{$modeswitch externalclass}\r\n\r\ninterface\r\n\r\nuses\r\n  Types;\r\n\r\ntype\r\n  // We cannot use EConvertError or Exception, this would result in a circular dependency.\r\n\r\n  AsyncAttribute = class(TCustomAttribute);\r\n\r\n  ExternalJSAttribute = class(TCustomAttribute)\r\n  strict private\r\n    FName: string;\r\n  public\r\n    constructor Create(const AName: string);\r\n    property Name: string read FName;\r\n  end;\r\n\r\n  { EJS }\r\n\r\n  EJS = class(TObject)\r\n  private\r\n    FMessage: string;\r\n  Public\r\n    constructor Create(const Msg: String); reintroduce;\r\n    property Message : string Read FMessage Write FMessage;\r\n  end;\r\n\r\n  TJSObjectPropertyDescriptor = JSValue;\r\n  Float32 = Double;\r\n  Float64 = Double;\r\n\r\n  { TJSObject }\r\n\r\n  TJSObject = class external name 'Object'\r\n  private\r\n    function GetProperties(Name: String): JSValue; external name '[]';\r\n    procedure SetProperties(Name: String; const AValue: JSValue); external name '[]';\r\n  public\r\n    constructor new;\r\n    class function create(const proto: TJSObject): TJSObject;\r\n    class function create(const proto, propertiesObject: TJSObject): TJSObject;\r\n    class function assign(const Target, Source1: TJSObject): TJSObject; {$ifdef pas2js} varargs; {$endif}\r\n    class procedure defineProperty(const obj: TJSObject; propname: String; const descriptor: TJSObjectPropertyDescriptor);\r\n    //class procedure defineProperties\r\n    class function freeze(const obj: TJSObject): TJSObject;\r\n    class function getOwnPropertyDescriptor(const obj: TJSObject; propname: String): TJSObjectPropertyDescriptor;\r\n    //class function getOwnPropertyDescriptors\r\n    class function getOwnPropertyNames(const obj: TJSObject): TStringDynArray;\r\n    class function values(const obj: JSValue): TJSObject;\r\n    {$IFDEF FIREFOX}\r\n    class function getOwnPropertySymbols(const obj: TJSObject): TJSValueDynArray;\r\n    {$ENDIF}\r\n    class function getPrototypeOf(const obj: TJSObject): TJSObject;\r\n    {$IFDEF FIREFOX}\r\n    class function _is(const value1, value2: JSValue): boolean;\r\n    {$ENDIF}\r\n    class function isExtensible(const obj: TJSObject): boolean;\r\n    class function isFrozen(const obj: TJSObject): boolean;\r\n    class function isSealed(const obj: TJSObject): boolean;\r\n    class function keys(const obj: TJSObject): TStringDynArray;\r\n    class function preventExtensions(const obj: TJSObject): TJSObject;\r\n    class function seal(const obj: TJSObject): TJSObject;\r\n    class function setPrototypeOf(const obj, prototype: TJSObject): TJSObject;\r\n    function hasOwnProperty(prop: String): boolean;\r\n    function isPrototypeOf(const obj: TJSObject): boolean;\r\n    function propertyIsEnumerable(propname: String): boolean;\r\n    function toLocaleString: String;\r\n    function toString: String;\r\n    function valueOf: JSValue;\r\n    property Properties[Name: String]: JSValue read GetProperties write SetProperties; default;\r\n  end;\r\n\r\n  TJSObjectDynArray = Array of TJSObject;\r\n  TJSObjectDynArrayArray = Array of TJSObjectDynArray;\r\n  TJSStringDynArray = Array of String;\r\n\r\n\r\n  { TJSIteratorValue }\r\n  TJSIteratorValue = class external name 'IteratorValue'\r\n  public\r\n    value : JSValue; external name 'value';\r\n    done : boolean; external name 'done';\r\n  end;\r\n\r\n  { TJSIterator }\r\n  TJSIterator = class external name 'Iterator'\r\n  Public\r\n    function next: TJSIteratorValue;\r\n  end;\r\n\r\n\r\n  TJSSet = class;\r\n\r\n  TJSSetEventProc = reference to procedure(value : JSValue; key: NativeInt; set_: TJSSet);\r\n  TJSSetProcCallBack = reference  to procedure(value: JSValue; key: JSValue);\r\n\r\n   { TJSSet }\r\n  TJSSet = class external name 'Set'\r\n  private\r\n    FSize : NativeInt; external name 'size';\r\n  public\r\n    constructor new; overload;\r\n    constructor new(aElement1 : JSValue); {$ifdef pas2js} varargs; {$endif} overload;\r\n    function add(value: JSValue): TJSSet;\r\n    function has(value: JSValue): Boolean;\r\n    function delete(value: JSValue): Boolean;\r\n    procedure clear;\r\n    function values: TJSIterator;\r\n    procedure forEach(const aCallBack: TJSSetEventProc); overload;\r\n    procedure forEach(const aCallBack: TJSSetProcCallBack); overload;\r\n    procedure forEach(const aCallBack: TJSSetEventProc; thisArg: JSValue); overload;\r\n    function entries: TJSIterator;\r\n    function keys: TJSIterator;\r\n    Property size : NativeInt Read FSize;\r\n  end;\r\n\r\n  TJSMapFunctionCallBack = reference  to function(arg : JSValue): JSValue;\r\n  TJSMapProcCallBack = reference  to procedure(value: JSValue; key: JSValue);\r\n\r\n  { TJSMap }\r\n  TJSMap = class external name 'Map'\r\n  Private\r\n    FSize : NativeInt; external name 'size';\r\n  public\r\n    constructor new; {$ifdef pas2js} varargs; {$endif} overload;\r\n    constructor new(aElement1 : JSValue); {$ifdef pas2js} varargs; {$endif} overload;\r\n    function &set(key: JSValue; value: JSValue) :TJSMap;\r\n    function get(key : JSValue): JSValue;\r\n    function has(key: JSValue): Boolean;\r\n    function delete(key: JSValue): Boolean;\r\n    procedure clear;\r\n    function entries: TJSIterator;\r\n    procedure forEach(const aCallBack: TJSMapFunctionCallBack); overload;\r\n    procedure forEach(const aCallBack: TJSMapFunctionCallBack; thisArg: JSValue); overload;\r\n    procedure forEach(const aCallBack: TJSMapProcCallBack); overload;\r\n    function keys: TJSIterator;\r\n    function values: TJSIterator;\r\n    property size : NativeInt Read FSize;\r\n  end;\r\n\r\n  { TJSFunction }\r\n\r\n  TJSFunction = class {$IFDEF PAS2JS} external name 'Function' {$ENDIF}(TJSObject)\r\n  private\r\n    Flength: NativeInt external name 'length';\r\n    Fprototyp: TJSFunction external name 'prototyp';\r\n  public\r\n    name: String;\r\n    property prototyp: TJSFunction read Fprototyp;\r\n    property length: NativeInt read Flength;\r\n    function apply(thisArg: TJSObject; const ArgArray: TJSValueDynArray): JSValue; {$ifdef pas2js} varargs; {$endif}\r\n    function bind(thisArg: TJSObject): JSValue; {$ifdef pas2js} varargs; {$endif}\r\n    function call(thisArg: TJSObject): JSValue; {$ifdef pas2js} varargs; {$endif}\r\n  end;\r\n\r\n  { TJSDate - wrapper for JavaScript Date }\r\n\r\n  TJSDate = class {$IFDEF PAS2JS} external name 'Date' {$ENDIF}(TJSFunction)\r\n  private\r\n    function getDate: NativeInt;\r\n    function getFullYear: NativeInt;\r\n    function getHours: NativeInt;\r\n    function getMilliseconds: NativeInt;\r\n    function getMinutes: NativeInt;\r\n    function getMonth: NativeInt;\r\n    function getSeconds: NativeInt;\r\n    function getYear: NativeInt;\r\n    function getTime: NativeInt;\r\n    function getUTCDate: NativeInt;\r\n    function getUTCFullYear: NativeInt;\r\n    function getUTCHours: NativeInt;\r\n    function getUTCMilliseconds: NativeInt;\r\n    function getUTCMinutes: NativeInt;\r\n    function getUTCMonth: NativeInt;\r\n    function getUTCSeconds: NativeInt;\r\n    procedure setDate(const AValue: NativeInt);\r\n    procedure setFullYear(const AValue: NativeInt);\r\n    procedure setHours(const AValue: NativeInt);\r\n    procedure setMilliseconds(const AValue: NativeInt);\r\n    procedure setMinutes(const AValue: NativeInt);\r\n    procedure setMonth(const AValue: NativeInt);\r\n    procedure setSeconds(const AValue: NativeInt);\r\n    procedure setYear(const AValue: NativeInt);\r\n    procedure setTime(const AValue: NativeInt);\r\n    procedure setUTCDate(const AValue: NativeInt);\r\n    procedure setUTCFullYear(const AValue: NativeInt);\r\n    procedure setUTCHours(const AValue: NativeInt);\r\n    procedure setUTCMilliseconds(const AValue: NativeInt);\r\n    procedure setUTCMinutes(const AValue: NativeInt);\r\n    procedure setUTCMonth(const AValue: NativeInt);\r\n    procedure setUTCSeconds(const AValue: NativeInt);\r\n  public\r\n    constructor New; reintroduce;\r\n    constructor New(const MilliSecsSince1970: NativeInt); // milliseconds since 1 January 1970 00:00:00 UTC, with leap seconds ignored\r\n    constructor New(const aDateString: String); // RFC 2822, ISO8601\r\n    constructor New(aYear: NativeInt; aMonth: NativeInt; aDayOfMonth: NativeInt = 1;\r\n      TheHours: NativeInt = 0; TheMinutes: NativeInt = 0; TheSeconds: NativeInt = 0;\r\n      TheMilliseconds: NativeInt = 0);\r\n    class function now: NativeInt; // current date and time in milliseconds since 1 January 1970 00:00:00 UTC, with leap seconds ignored\r\n    class function parse(const aDateString: string): NativeInt; // format depends on browser\r\n    class function UTC(aYear: NativeInt; aMonth: NativeInt = 0; aDayOfMonth: NativeInt = 1;\r\n      TheHours: NativeInt = 0; TheMinutes: NativeInt = 0; TheSeconds: NativeInt = 0;\r\n      TheMilliseconds: NativeInt = 0): NativeInt;\r\n    function getDay: NativeInt;\r\n    function getTimezoneOffset: NativeInt;\r\n    function getUTCDay: NativeInt; // day of the week\r\n    function toDateString: string; // human readable date, without time\r\n    function toISOString: string; // ISO 8601 Extended Format\r\n    function toJSON: string;\r\n    function toGMTString: string; // in GMT timezone\r\n    function toLocaleDateString: string; overload; // date in locale timezone, no time\r\n    function toLocaleDateString(const aLocale : string) : string; overload; // date in locale timezone, no time\r\n    function toLocaleDateString(const aLocale : string; aOptions : TJSObject) : string; overload; // date in locale timezone, no time\r\n    function toLocaleString: string; reintroduce; // date and time in locale timezone\r\n    function toLocaleTimeString: string; // time in locale timezone, no date\r\n    function toTimeString: string; // time human readable, no date\r\n    function toUTCString: string; // date and time using UTC timezone\r\n    property Year: NativeInt read getYear write setYear;\r\n    property Time: NativeInt read getTime write setTime; // milliseconds since 1 January 1970 00:00:00 UTC, with leap seconds ignored\r\n    property FullYear: NativeInt read getFullYear write setFullYear;\r\n    property UTCDate: NativeInt read getUTCDate write setUTCDate; // day of month\r\n    property UTCFullYear: NativeInt read getUTCFullYear write setUTCFullYear;\r\n    property UTCHours: NativeInt read getUTCHours write setUTCHours;\r\n    property UTCMilliseconds: NativeInt read getUTCMilliseconds write setUTCMilliseconds;\r\n    property UTCMinutes: NativeInt read getUTCMinutes write setUTCMinutes;\r\n    property UTCMonth: NativeInt read getUTCMonth write setUTCMonth;\r\n    property UTCSeconds: NativeInt read getUTCSeconds write setUTCSeconds;\r\n    property Month: NativeInt read getMonth write setMonth;\r\n    property Date: NativeInt read getDate write setDate; // day of the month, starting at 1\r\n    property Hours: NativeInt read getHours write setHours;\r\n    property Minutes: NativeInt read getMinutes write setMinutes;\r\n    property Seconds: NativeInt read getSeconds write setSeconds;\r\n    property Milliseconds: NativeInt read getMilliseconds write setMilliseconds;\r\n  end;\r\n\r\n  TLocaleCompareOptions = record\r\n    localematched : string; external name 'localeMatcher';\r\n    usage: string; external name 'usage';\r\n    sensitivity : string; external name 'sensitivity';\r\n    ignorePunctuation : Boolean; external name 'ignorePunctuation';\r\n    numeric : boolean; external name 'numeric';\r\n    caseFirst : string; external name 'caseFirst';\r\n  end;\r\n\r\n  TJSRegexp = class external name 'RegExp'\r\n  private\r\n  {$IFDEF FIREFOX}\r\n    // not on all browsers:\r\n    FFlags : string; external name 'flags';\r\n    FSticky : boolean; external name 'sticky';\r\n  {$endif}\r\n    fglobal: boolean; external name 'global';\r\n    fignoreCase : boolean; external name 'ignoreCase';\r\n    fmultiline : boolean; external name 'multiline';\r\n    fsource : string; external name 'source';\r\n    funicode : boolean; external name 'unicode';\r\n  public\r\n    Constructor New(Pattern : string);\r\n    Constructor New(Pattern, Flags : string);\r\n    lastIndex: NativeInt;\r\n    function exec(aString : string): TStringDynArray;\r\n    function test(aString : string) : boolean;\r\n    function toString : String;\r\n    property Global : boolean read fglobal;\r\n    property IgnoreCase : Boolean read FIgnoreCase;\r\n    property Multiline : Boolean Read FMultiLine;\r\n    Property Source : string Read FSource;\r\n    Property Unicode : boolean Read FUnicode;\r\n    {$IFDEF FIREFOX}\r\n    // not on all browsers:\r\n    property Flags : string read FFlags;\r\n    property Sticky : boolean read FSticky;\r\n    {$endif}\r\n  end;\r\n\r\n\r\n  TReplaceCallBack = reference to Function (Const match : string) : string; {$ifdef pas2js} varargs; {$endif}\r\n  TReplaceCallBack0 = reference to Function (Const match : string; offset : Integer; AString : String) : string;\r\n  TReplaceCallBack1 = reference to Function (Const match,p1 : string; offset : Integer; AString : String) : string;\r\n  TReplaceCallBack2 = reference to Function (Const match,p1,p2 : string; offset : Integer; AString : String) : string;\r\n\r\n  TJSString = class external name 'String'\r\n  private\r\n    flength : NativeInt; external name 'length';\r\n  public \r\n    constructor New(Const S : String);\r\n    constructor New(Const I : NativeInt);\r\n    constructor New(Const D : double);\r\n    property length : NativeInt read flength; \r\n    class function fromCharCode() : string; {$ifdef pas2js} varargs; {$endif}\r\n    class function fromCodePoint() : string; {$ifdef pas2js} varargs; {$endif}\r\n    function anchor(const aName : string) : string;\r\n    function charAt(aIndex : NativeInt) : string;\r\n    function charCodeAt(aIndex : NativeInt) : NativeInt;\r\n    function codePointAt(aIndex : NativeInt) : NativeInt;\r\n    function concat(s : string) : string; {$ifdef pas2js} varargs; {$endif}\r\n    function endsWith(aSearchString : string) : boolean; overload;\r\n    function endsWith(aSearchString : string; Pos : NativeInt) : boolean; overload;\r\n    function includes(aSearchString : string; Pos : NativeInt = 0) : boolean;\r\n    function indexOf(aSearchString : String; Pos : NativeInt = 0) : Integer;\r\n    function lastIndexOf(aSearchString : String) : NativeInt;overload;\r\n    function lastIndexOf(aSearchString : String; Pos : NativeInt) : Integer;overload;\r\n    function link(aUrl : string) : String;\r\n    function localeCompare(aCompareString : string) : NativeInt; overload;\r\n    function localeCompare(aCompareString : string; aLocales: string) : integer; overload;\r\n    function localeCompare(compareString : string; locales: string; Options : TlocaleCompareOptions) : integer; overload;\r\n    function match(aRegexp : TJSRegexp) : TStringDynArray; overload;\r\n    function match(aRegexp : String) : TStringDynArray;overload;\r\n    {$IFDEF ECMAScript6}\r\n    function normalize : string;\r\n    function normalize(aForm : string) : string;\r\n    {$ENDIF}\r\n    function _repeat(aCount : NativeInt) : Integer; external name 'repeat';\r\n    function replace(aRegexp : String; NewString : String) : String; overload;\r\n    function replace(aRegexp : TJSRegexp; NewString : String) : String; overload;\r\n    function replace(Regexp : String; aCallback : TReplaceCallBack) : String; overload;\r\n    function replace(Regexp : TJSRegexp; aCallback : TReplaceCallBack) : String; overload;\r\n    function replace(Regexp : String; aCallback : TReplaceCallBack0) : String; overload;\r\n    function replace(Regexp : TJSRegexp; aCallback : TReplaceCallBack0) : String; overload;\r\n    function replace(Regexp : String; aCallback : TReplaceCallBack1) : String; overload;\r\n    function replace(Regexp : TJSRegexp; aCallback : TReplaceCallBack1) : String; overload;\r\n    function replace(Regexp : String; aCallback : TReplaceCallBack2) : String; overload;\r\n    function replace(Regexp : TJSRegexp; aCallback : TReplaceCallBack2) : String; overload;\r\n    function search(Regexp : TJSRegexp) : NativeInt; overload;\r\n    function search(Regexp : JSValue) : NativeInt; overload;\r\n    function slice(aBeginIndex : NativeInt) : String; overload;\r\n    function slice(aBeginIndex, aEndIndex : NativeInt) : String; overload;\r\n    function split : TStringDynArray; overload;\r\n    function split(aRegexp : TJSRegexp) : TStringDynArray; overload;\r\n    function split(aSeparator : string) : TStringDynArray; overload;\r\n    function split(aSeparator : string; aLimit : NativeInt) : TStringDynArray; overload;\r\n    function split(aSeparator : array of string) : TStringDynArray; overload;\r\n    function split(aSeparator : array of string; aLimit : NativeInt) : TStringDynArray; overload;\r\n    function startsWith(aSearchString : String) : Boolean; overload;\r\n    function startsWith(aSearchString : String; aPosition : NativeInt) : Boolean; overload;\r\n    function substr(aStartIndex : NativeInt) : String; overload;\r\n    function substr(aStartIndex,aLength : NativeInt) : String; overload;\r\n    function substring(aStartIndex : NativeInt) : String; overload;\r\n    function substring(aStartIndex,aEndIndex : NativeInt) : String; overload;\r\n    function toLocaleLowerCase : String;\r\n    function toLocaleUpperCase : String;\r\n    function toLowerCase : String;\r\n    function toString : string;\r\n    function toUpperCase : String;\r\n    function trim : string;\r\n    function valueOf : string;\r\n  end;\r\n\r\n  TJSArray = Class;\r\n  \r\n  TJSArrayEventProc = reference to procedure(element : JSValue; index: NativeInt; anArray : TJSArray);\r\n  TJSArrayEvent = reference to function (element : JSValue; index: NativeInt; anArray : TJSArray) : Boolean;\r\n  TJSArrayMapEvent = reference to function (element : JSValue; index: NativeInt; anArray : TJSArray) : JSValue;\r\n  TJSArrayReduceEvent = reference to function (accumulator, currentValue : JSValue; currentIndex : NativeInt; anArray : TJSArray) : JSValue;\r\n  TJSArrayCompareEvent = reference to function (a,b : JSValue) : NativeInt;\r\n  TJSArrayCallback = TJSArrayEvent;\r\n  TJSArrayMapCallback = TJSArrayMapEvent;\r\n  TJSArrayReduceCallBack = TJSArrayReduceEvent;\r\n  TJSArrayCompareCallBack = TJSArrayCompareEvent;\r\n\r\n  { TJSArray }\r\n\r\n  TJSArray = Class external name 'Array'\r\n  private\r\n    function GetElements(Index: NativeInt): JSValue; external name '[]';\r\n    procedure SetElements(Index: NativeInt; const AValue: JSValue); external name '[]';\r\n  public\r\n    FLength : NativeInt; external name 'length';\r\n    constructor new; overload;\r\n    constructor new(aLength : NativeInt); overload;\r\n    constructor new(aElement1 : JSValue); {$ifdef pas2js} varargs; {$endif} overload;\r\n    class function _of() : TJSArray; {$ifdef pas2js} varargs; {$endif} external name 'of'; \r\n    class function isArray(a: JSValue) : Boolean;\r\n{$IFDEF JAVASCRIPT2015}    \r\n    class function from(a : JSValue) : TJSArray;\r\n    class function from(arrayLike : JSValue; mapFunction : TJSMapFunctionCallBack): TJSArray; overload;\r\n    class function from(arrayLike : JSValue; mapFunction : TJSMapFunctionCallBack; thisArg : JSValue): TJSArray; overload;\r\n{$ENDIF}\r\n    function concat(el : JSValue) : TJSArray; {$ifdef pas2js} varargs; {$endif}\r\n    function copyWithin(aTarget : NativeInt) : TJSarray;overload; // not in IE\r\n    function copyWithin(aTarget, aStart : NativeInt) : TJSarray;overload; // not in IE\r\n    function copyWithin(aTarget, aStart, aEnd : NativeInt) : TJSarray;overload; // not in IE\r\n    function entries: TJSIterator;\r\n    Function every(const aCallback : TJSArrayCallBack) : boolean;overload;\r\n    Function every(const aCallback : TJSArrayEvent; aThis : TObject) : boolean;overload;\r\n    Function filter(const aCallBack : TJSArrayCallBack) : TJSArray; overload;\r\n    Function filter(const aCallBack : TJSArrayEvent; aThis : TObject) : TJSArray;overload;\r\n    Function fill(aValue : JSValue) : TJSArray; overload;\r\n    Function fill(aValue : JSValue; aStartIndex : NativeInt) : TJSArray; overload;\r\n    Function fill(aValue : JSValue; aStartIndex,aEndIndex : NativeInt) : TJSArray; overload;\r\n    Function find(const aCallBack : TJSArrayCallBack) : JSValue; overload;\r\n    Function find(const aCallBack : TJSArrayEvent; aThis : TObject) : JSValue; overload;\r\n    Function findIndex(const aCallBack : TJSArrayCallBack) : NativeInt; overload;\r\n    Function findIndex(const aCallBack : TJSArrayEvent; aThis : TObject) : NativeInt; overload;\r\n    procedure forEach(const aCallBack : TJSArrayEventProc); overload;\r\n    procedure forEach(const aCallBack : TJSArrayEvent); overload;\r\n    procedure forEach(const aCallBack : TJSArrayEvent; aThis : TObject); overload;\r\n    function includes(aElement : JSValue) : Boolean; overload;\r\n    function includes(aElement : JSValue; FromIndex : NativeInt) : Boolean; overload;\r\n    function indexOf(aElement : JSValue) : NativeInt; overload;\r\n    function indexOf(aElement : JSValue; FromIndex : NativeInt) : NativeInt; overload;\r\n    function join : String; overload;\r\n    function join (aSeparator : string) : String; overload;\r\n    function keys: TJSIterator;\r\n    function lastIndexOf(aElement : JSValue) : NativeInt; overload;\r\n    function lastIndexOf(aElement : JSValue; FromIndex : NativeInt) : NativeInt; overload;\r\n//    Function map(const aCallBack : TJSArrayMapEventArray) : JSValue; overload;\r\n    Function map(const aCallBack : TJSArrayMapCallBack) : TJSArray; overload;\r\n    Function map(const aCallBack : TJSArrayMapEvent; aThis : TObject) : TJSArray; overload;\r\n    function pop : JSValue; \r\n    function push(aElement : JSValue) : NativeInt; {$ifdef pas2js} varargs; {$endif}\r\n    function reduce(const aCallBack : TJSArrayReduceCallBack) : JSValue; overload;\r\n    function reduce(const aCallBack : TJSArrayReduceCallBack; initialValue : JSValue) : JSValue; overload;\r\n    function reduceRight(const aCallBack : TJSArrayReduceCallBack) : JSValue; overload;\r\n    function reduceRight(const aCallBack : TJSArrayReduceCallBack; initialValue : JSValue) : JSValue; overload;\r\n    Function reverse : TJSArray;\r\n    Function shift : JSValue;\r\n    Function slice : TJSArray; overload;\r\n    function slice(aBegin : NativeInt) : TJSArray; overload;\r\n    function slice(aBegin,aEnd : NativeInt) : TJSArray; overload;\r\n    Function some(const aCallback : TJSArrayCallBack) : boolean; overload;\r\n    Function some(const aCallback : TJSArrayEvent; aThis : TObject) : boolean; overload;\r\n    Function sort(const aCallback : TJSArrayCompareCallBack) : TJSArray; overload;\r\n    Function sort() : TJSArray; overload;\r\n    function splice(aStart : NativeInt) : TJSArray; overload;\r\n    function splice(aStart,aDeleteCount : NativeInt) : TJSArray; {$ifdef pas2js} varargs; {$endif} overload;\r\n    function toLocaleString: String; overload;\r\n    function toLocaleString(locales : string) : String; overload;\r\n    function toLocaleString(locales : string; const Options : TLocaleCompareOptions) : String; overload;\r\n    function toString : String;\r\n    function unshift : NativeInt; {$ifdef pas2js} varargs; {$endif}\r\n    function values: TJSIterator;\r\n    Property Length : NativeInt Read FLength Write FLength;\r\n    property Elements[Index: NativeInt]: JSValue read GetElements write SetElements; default;\r\n  end;\r\n\r\n  TJSArrayBuffer = class {$IFDEF PAS2JS} external name 'ArrayBuffer'  {$ENDIF}(TJSObject)\r\n  private\r\n    fLength : NativeInt; external name 'byteLength';\r\n  public\r\n    constructor new(aByteLength : NativeInt);\r\n    class function isView(aValue : JSValue) : Boolean;   \r\n    function slice(aBegin : NativeInt) : TJSArrayBuffer; overload;\r\n    function slice(aBegin,aEnd : NativeInt) : TJSArrayBuffer; overload;\r\n    Property byteLength : NativeInt Read fLength;\r\n  end;\r\n\r\n  TJSBufferSource = class external name 'BufferSource'\r\n  end;\r\n\r\n  { TJSTypedArray }\r\n  TJSTypedArray = Class;\r\n\r\n  TJSTypedArrayCallBack = function (element : JSValue; index: NativeInt; anArray : TJSTypedArray) : Boolean;\r\n  TJSTypedArrayEvent = function (element : JSValue; index: NativeInt; anArray : TJSTypedArray) : Boolean of object;\r\n  TJSTypedArrayMapCallBack = function (element : JSValue; index: NativeInt; anArray : TJSTypedArray) : JSValue;\r\n  TJSTypedArrayMapEvent = function (element : JSValue; index: NativeInt; anArray : TJSTypedArray) : JSValue of object;\r\n  TJSTypedArrayReduceCallBack = function (accumulator, currentValue : JSValue; currentIndex : NativeInt; anArray : TJSTypedArray) : JSValue;\r\n  TJSTypedArrayCompareCallBack = function (a,b : JSValue) : NativeInt;\r\n\r\n  TJSTypedArray = class {$IFDEF PAS2JS} external name 'TypedArray'  {$ENDIF}(TJSBufferSource)\r\n  Private\r\n    FBuffer: TJSArrayBuffer; external name 'buffer';\r\n    FByteLength: NativeInt; external name 'byteLength';\r\n    FLength: NativeInt; external name 'length';\r\n    FByteOffset: NativeInt; external name 'byteOffset';\r\n    FBytesPerElement : NativeInt; external name 'BYTES_PER_ELEMENT';\r\n    function getValue(Index : NativeInt) : JSValue; external name '[]';\r\n    procedure setValue(Index : NativeInt;AValue : JSValue); external name '[]';\r\n  Public\r\n    property BYTES_PER_ELEMENT : NativeInt Read FBytesPerElement;\r\n    class var name : string;\r\n//    class function from(aValue : jsValue) : TJSTypedArray;\r\n//    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSTypedArray;\r\n//    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSTypedArray;\r\n    class function _of(aValue : jsValue) : TJSTypedArray; {$ifdef pas2js} varargs; {$endif} external name 'of';\r\n    function copyWithin(aTarget : NativeInt) : TJSTypedArray;overload;\r\n    function copyWithin(aTarget, aStart : NativeInt) : TJSTypedArray;overload;\r\n    function copyWithin(aTarget, aStart, aEnd : NativeInt) : TJSTypedArray;overload;\r\n    Function every(const aCallback : TJSTypedArrayCallBack) : boolean;overload;\r\n    Function every(const aCallback : TJSTypedArrayEvent; aThis : TObject) : boolean;overload;\r\n    Function fill(aValue : JSValue) : TJSTypedArray; overload;\r\n    Function fill(aValue : JSValue; aStartIndex : NativeInt) : TJSTypedArray; overload;\r\n    Function fill(aValue : JSValue; aStartIndex,aEndIndex : NativeInt) : TJSTypedArray; overload;\r\n    Function filter(const aCallBack : TJSTypedArrayCallBack) : TJSTypedArray; overload;\r\n    Function filter(const aCallBack : TJSTypedArrayEvent; aThis : TObject) : TJSTypedArray;overload;\r\n    Function find(const aCallBack : TJSTypedArrayCallBack) : JSValue; overload;\r\n    Function find(const aCallBack : TJSTypedArrayEvent; aThis : TObject) : JSValue; overload;\r\n    Function findIndex(const aCallBack : TJSTypedArrayCallBack) : NativeInt; overload;\r\n    Function findIndex(const aCallBack : TJSTypedArrayEvent; aThis : TObject) : NativeInt; overload;\r\n    procedure forEach(const aCallBack : TJSTypedArrayCallBack); overload;\r\n    procedure forEach(const aCallBack : TJSTypedArrayEvent; aThis : TObject); overload;\r\n    function includes(aElement : JSValue) : Boolean; overload;\r\n    function includes(aElement : JSValue; FromIndex : NativeInt) : Boolean; overload;\r\n    function indexOf(aElement : JSValue) : NativeInt; overload;\r\n    function indexOf(aElement : JSValue; FromIndex : NativeInt) : NativeInt; overload;\r\n    function join : String; overload;\r\n    function join (aSeparator : string) : String; overload;\r\n    function lastIndexOf(aElement : JSValue) : NativeInt; overload;\r\n    function lastIndexOf(aElement : JSValue; FromIndex : NativeInt) : NativeInt; overload;\r\n    Function map(const aCallBack : TJSTypedArrayCallBack) : TJSTypedArray; overload;\r\n    Function map(const aCallBack : TJSTypedArrayEvent; aThis : TObject) : TJSTypedArray; overload;\r\n    function reduce(const aCallBack : TJSTypedArrayReduceCallBack) : JSValue; overload;\r\n    function reduce(const aCallBack : TJSTypedArrayReduceCallBack; initialValue : JSValue) : JSValue; overload;\r\n    function reduceRight(const aCallBack : TJSTypedArrayReduceCallBack) : JSValue; overload;\r\n    function reduceRight(const aCallBack : TJSTypedArrayReduceCallBack; initialValue : JSValue) : JSValue; overload;\r\n    Function reverse : TJSTypedArray;\r\n    procedure _set(anArray : TJSArray); external name 'set';\r\n    procedure _set(anArray : TJSArray; anOffset : NativeInt); external name 'set';\r\n    procedure _set(anArray : TJSTypedArray); external name 'set';\r\n    procedure _set(anArray : TJSTypedArray; anOffset : NativeInt); external name 'set';\r\n    Function slice : TJSTypedArray; overload;\r\n    function slice(aBegin : NativeInt) : TJSTypedArray; overload;\r\n    function slice(aBegin,aEnd : NativeInt) : TJSTypedArray; overload;\r\n    Function some(const aCallback : TJSTypedArrayCallBack) : boolean; overload;\r\n    Function some(const aCallback : TJSTypedArrayEvent; aThis : TObject) : boolean; overload;\r\n    Function sort(const aCallback : TJSTypedArrayCompareCallBack) : TJSTypedArray; overload;\r\n    Function sort() : TJSTypedArray; overload;\r\n    function splice(aStart : NativeInt) : TJSTypedArray; overload;\r\n    function splice(aStart,aDeleteCount : NativeInt) : TJSTypedArray; {$ifdef pas2js} varargs; {$endif} overload;\r\n    function toLocaleString: String; overload;\r\n    function toLocaleString(locales : string) : String; overload;\r\n    function toLocaleString(locales : string; const Options : TLocaleCompareOptions) : String; overload;\r\n    function toString : String;\r\n    function unshift : NativeInt; {$ifdef pas2js} varargs; {$endif}\r\n    property buffer : TJSArrayBuffer read FBuffer;\r\n    property byteLength : NativeInt Read FByteLength;\r\n    property byteOffset : NativeInt Read FByteOffset;\r\n    property length : NativeInt Read FLength;\r\n    property values[Index : NativeInt] : JSValue Read getValue Write SetValue; default;\r\n  end;\r\n\r\n  { TJSInt8Array }\r\n\r\n  TJSInt8Array = class {$IFDEF PAS2JS} external name 'Int8Array'  {$ENDIF}(TJSTypedArray)\r\n  private\r\n    function getTypedValue(Index : NativeInt): Shortint; external name '[]';\r\n    procedure setTypedValue(Index : NativeInt; AValue: Shortint);external name '[]';\r\n  public\r\n{$IFDEF JAVASCRIPT2017}\r\n    constructor new; // new in ES2017\r\n{$ENDIF}\r\n    constructor new (length : NativeInt);\r\n    constructor new (atypedArray : TJSTypedArray);\r\n    constructor new (aObject : TJSObject);\r\n    constructor new (buffer : TJSArrayBuffer);\r\n    constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);\r\n    constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);\r\n    class function from(aValue : jsValue) : TJSInt8Array; reintroduce;\r\n    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSInt8Array; reintroduce;\r\n    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSInt8Array; reintroduce;\r\n    class function _of(aValue : jsValue) : TJSInt8Array; {$ifdef pas2js} varargs; {$endif} external name 'of'; reintroduce;overload;\r\n    class function _of(aValue : TJSValueDynArray) : TJSInt8Array; {$ifdef pas2js} varargs; {$endif} external name 'of'; reintroduce; overload;\r\n    function subarray(aBegin, aEnd: Integer): TJSInt8Array;  overload;\r\n    function subarray(aBegin: Integer): TJSInt8Array; overload;\r\n    procedure _set(anArray : Array of ShortInt); external name 'set'; reintroduce; overload;\r\n    procedure _set(anArray : Array of ShortInt; anOffset : NativeInt); external name 'set';\r\n    property values[Index : NativeInt] : Shortint Read getTypedValue Write setTypedValue; default;\r\n  end;\r\n\r\n  TJSUint8Array  = class {$IFDEF PAS2JS} external name 'Uint8Array'  {$ENDIF}(TJSTypedArray)\r\n  private\r\n    function getTypedValue(Index : NativeInt): Byte; external name '[]';\r\n    procedure setTypedValue(Index : NativeInt; AValue: Byte);external name '[]';\r\n  public\r\n    constructor new (length : NativeInt);\r\n    constructor new (atypedArray : TJSTypedArray);\r\n    constructor new (aObject : TJSObject);\r\n    constructor new (buffer : TJSArrayBuffer);\r\n    constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);\r\n    constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);\r\n    class function from(aValue : jsValue) : TJSUInt8Array; reintroduce; overload;\r\n    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSUInt8Array; reintroduce;overload;\r\n    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSUInt8Array; reintroduce;overload;\r\n    class function _of(aValue : jsValue) : TJSUInt8Array; {$ifdef pas2js} varargs; {$endif} external name 'of'; reintroduce; overload;\r\n    function subarray(aBegin, aEnd: Integer): TJSUInt8Array;  overload;\r\n    function subarray(aBegin: Integer): TJSUInt8Array; overload;\r\n    procedure _set(anArray : Array of Byte); external name 'set'; reintroduce; overload;\r\n    procedure _set(anArray : Array of Byte; anOffset : NativeInt); external name 'set'; overload;\r\n    Property values[Index : NativeInt] : Byte Read getTypedValue Write setTypedValue; default;\r\n  end;\r\n\r\n  TJSUint8ClampedArray  = class {$IFDEF PAS2JS} external name 'Uint8ClampedArray'  {$ENDIF}(TJSTypedArray)\r\n  private\r\n    function getTypedValue(Index : NativeInt): Byte; external name '[]';\r\n    procedure setTypedValue(Index : NativeInt; AValue: Byte);external name '[]';\r\n  public\r\n    constructor new (length : NativeInt);\r\n    constructor new (atypedArray : TJSTypedArray);\r\n    constructor new (aObject : TJSObject);\r\n    constructor new (buffer : TJSArrayBuffer);\r\n    constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);\r\n    constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);\r\n    class function from(aValue : jsValue) : TJSUInt8ClampedArray; reintroduce;\r\n    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSUInt8ClampedArray; reintroduce;overload;\r\n    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSUInt8ClampedArray; reintroduce;overload;\r\n    class function _of(aValue : jsValue) : TJSUInt8ClampedArray; {$ifdef pas2js} varargs; {$endif} external name 'of'; reintroduce;\r\n    procedure _set(anArray : Array of Byte); external name 'set'; reintroduce;overload;\r\n    procedure _set(anArray : Array of Byte; anOffset : NativeInt); external name 'set';overload;\r\n    function subarray(aBegin, aEnd: Integer): TJSUInt8ClampedArray;  overload;\r\n    function subarray(aBegin: Integer): TJSUInt8ClampedArray; overload;\r\n    Property values[Index : NativeInt] : Byte Read getTypedValue Write setTypedValue; default;\r\n  end;\r\n\r\n  TJSInt16Array = class {$IFDEF PAS2JS} external name 'Int16Array'  {$ENDIF}(TJSTypedArray)\r\n  private\r\n    function getTypedValue(Index : NativeInt): smallint; external name '[]';\r\n    procedure setTypedValue(Index : NativeInt; AValue: Smallint);external name '[]';\r\n  public\r\n    constructor new (length : NativeInt);\r\n    constructor new (atypedArray : TJSTypedArray);\r\n    constructor new (aObject : TJSObject);\r\n    constructor new (buffer : TJSArrayBuffer);\r\n    constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);\r\n    constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);\r\n    class function from(aValue : jsValue) : TJSInt16Array; reintroduce;\r\n    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSInt16Array; reintroduce;overload;\r\n    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSInt16Array; reintroduce;overload;\r\n    class function _of(aValue : jsValue) : TJSInt16Array; {$ifdef pas2js} varargs; {$endif} external name 'of'; reintroduce;overload;\r\n    procedure _set(anArray : Array of SmallInt); external name 'set'; reintroduce;overload;\r\n    procedure _set(anArray : Array of SmallInt; anOffset : NativeInt); external name 'set';overload;\r\n    function subarray(aBegin, aEnd: Integer): TJSInt16Array;  overload;\r\n    function subarray(aBegin: Integer): TJSInt16Array; overload;\r\n    Property values[Index : NativeInt] : SmallInt Read getTypedValue Write setTypedValue; default;\r\n  end;\r\n\r\n  TJSUint16Array = class {$IFDEF PAS2JS} external name 'Uint16Array'  {$ENDIF}(TJSTypedArray)\r\n  private\r\n    function getTypedValue(Index : NativeInt): Word; external name '[]';\r\n    procedure setTypedValue(Index : NativeInt; AValue: Word);external name '[]';\r\n  public\r\n    constructor new (length : NativeInt);\r\n    constructor new (atypedArray : TJSTypedArray);\r\n    constructor new (aObject : TJSObject);\r\n    constructor new (buffer : TJSArrayBuffer);\r\n    constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);\r\n    constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);\r\n    class function from(aValue : jsValue) : TJSUInt16Array; reintroduce;\r\n    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSUInt16Array; reintroduce;\r\n    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSUInt16Array; reintroduce;\r\n    class function _of(aValue : jsValue) : TJSUInt16Array; {$ifdef pas2js} varargs; {$endif} external name 'of'; reintroduce;\r\n    procedure _set(anArray : Array of Word); external name 'set'; reintroduce; overload;\r\n    procedure _set(anArray : Array of Word; anOffset : NativeInt); external name 'set'; overload;\r\n    function subarray(aBegin, aEnd: Integer): TJSUInt16Array;  overload;\r\n    function subarray(aBegin: Integer): TJSUInt16Array; overload;\r\n    Property values[Index : NativeInt] : Word Read getTypedValue Write setTypedValue; default;\r\n  end;\r\n\r\n  TJSInt32Array = class {$IFDEF PAS2JS} external name 'Int32Array'  {$ENDIF}(TJSTypedArray)\r\n  private\r\n    function getTypedValue(Index : NativeInt): longint; external name '[]';\r\n    procedure setTypedValue(Index : NativeInt; AValue: longint);external name '[]';\r\n  public\r\n    constructor new (length : NativeInt);\r\n    constructor new (atypedArray : TJSTypedArray);\r\n    constructor new (aObject : TJSObject);\r\n    constructor new (buffer : TJSArrayBuffer);\r\n    constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);\r\n    constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);\r\n    class function from(aValue : jsValue) : TJSInt32Array; reintroduce;\r\n    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSInt32Array; reintroduce;\r\n    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSInt32Array; reintroduce;\r\n    class function _of(aValue : jsValue) : TJSInt32Array; {$ifdef pas2js} varargs; {$endif}external name 'of'; reintroduce;\r\n    procedure _set(anArray : Array of LongInt); external name 'set'; reintroduce; overload;\r\n    procedure _set(anArray : Array of LongInt; anOffset : NativeInt); external name 'set'; overload;\r\n    function subarray(aBegin, aEnd: Integer): TJSInt32Array;  overload;\r\n    function subarray(aBegin: Integer): TJSInt32Array; overload;\r\n    Property values[Index : NativeInt] : longint Read getTypedValue Write setTypedValue; default;\r\n  end;\r\n\r\n  TJSUint32Array = class {$IFDEF PAS2JS} external name 'Uint32Array'  {$ENDIF}(TJSTypedArray)\r\n  private\r\n    function getTypedValue(Index : NativeInt): LongWord; external name '[]';\r\n    procedure setTypedValue(Index : NativeInt; AValue: LongWord);external name '[]';\r\n  public\r\n    constructor new (length : NativeInt);\r\n    constructor new (atypedArray : TJSTypedArray);\r\n    constructor new (aObject : TJSObject);\r\n    constructor new (buffer : TJSArrayBuffer);\r\n    constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);\r\n    constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);\r\n    class function from(aValue : jsValue) : TJSUInt32Array; reintroduce;\r\n    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSUInt32Array; reintroduce;\r\n    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSUInt32Array; reintroduce;\r\n    class function _of(aValue : jsValue) : TJSUInt32Array; {$ifdef pas2js} varargs; {$endif} external name 'of'; reintroduce;\r\n    procedure _set(anArray : Array of Cardinal); external name 'set'; reintroduce; overload;\r\n    procedure _set(anArray : Array of Cardinal; anOffset : NativeInt); external name 'set'; overload;\r\n    function subarray(aBegin, aEnd: Integer): TJSUInt32Array;  overload;\r\n    function subarray(aBegin: Integer): TJSUInt32Array; overload;\r\n    Property values[Index : NativeInt] : LongWord Read getTypedValue Write setTypedValue; default;\r\n  end;\r\n\r\n  TJSFloat32Array = class {$IFDEF PAS2JS} external name 'Float32Array'  {$ENDIF}(TJSTypedArray)\r\n  private\r\n    function getTypedValue(Index : NativeInt): Float32; external name '[]';\r\n    procedure setTypedValue(Index : NativeInt; AValue: Float32);external name '[]';\r\n  public\r\n    constructor new (length : NativeInt);\r\n    constructor new (atypedArray : TJSTypedArray);\r\n    constructor new (aObject : TJSObject);\r\n    constructor new (buffer : TJSArrayBuffer);\r\n    constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);\r\n    constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);\r\n    class function from(aValue : jsValue) : TJSFloat32Array; reintroduce;\r\n    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSFloat32Array; reintroduce;\r\n    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSFloat32Array; reintroduce;\r\n    class function _of(aValue : jsValue) : TJSFloat32Array; {$ifdef pas2js} varargs; {$endif} reintroduce;\r\n    procedure _set(anArray : Array of Double); external name 'set'; reintroduce; overload;\r\n    procedure _set(anArray : Array of Double; anOffset : NativeInt); external name 'set'; reintroduce; overload;\r\n    function subarray(aBegin, aEnd: Integer): TJSFloat32Array;  overload;\r\n    function subarray(aBegin: Integer): TJSFloat32Array; overload;\r\n    Property values[Index : NativeInt] : Float32 Read getTypedValue Write setTypedValue; default;\r\n  end;\r\n\r\n  TJSFloat64Array = class {$IFDEF PAS2JS} external name 'Float64Array'  {$ENDIF}(TJSTypedArray)\r\n  private\r\n    function getTypedValue(Index : NativeInt): Float64; external name '[]';\r\n    procedure setTypedValue(Index : NativeInt; AValue: Float64);external name '[]';\r\n  public\r\n    constructor new (length : NativeInt);\r\n    constructor new (atypedArray : TJSTypedArray);\r\n    constructor new (aObject : TJSObject);\r\n    constructor new (buffer : TJSArrayBuffer);\r\n    constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);\r\n    constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);\r\n    class function from(aValue : jsValue) : TJSFloat64Array; reintroduce;\r\n    class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSFloat64Array; reintroduce;\r\n    class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSFloat64Array; reintroduce;\r\n    class function _of(aValue : jsValue) : TJSFloat64Array; {$ifdef pas2js} varargs; {$endif} reintroduce;\r\n    procedure _set(anArray : Array of Double); external name 'set'; reintroduce; overload;\r\n    procedure _set(anArray : Array of Double; anOffset : NativeInt); external name 'set'; reintroduce; overload;\r\n    function subarray(aBegin, aEnd: Integer): TJSFloat64Array;  overload;\r\n    function subarray(aBegin: Integer): TJSFloat64Array; overload;\r\n    Property values[Index : NativeInt] : Float64 Read getTypedValue Write setTypedValue; default;\r\n  end;\r\n\r\n  TJSDataView = class {$IFDEF PAS2JS} external name 'DataView'  {$ENDIF}(TJSBufferSource)\r\n  private\r\n    fBuffer : TJSArrayBuffer; external name 'buffer';\r\n    fLength : NativeInt; external name 'byteLength';\r\n    fOffset : NativeInt; external name 'byteOffset';\r\n  public\r\n    constructor new(aBuffer : TJSArrayBuffer); overload;\r\n    constructor new(aBuffer : TJSArrayBuffer; aOffset : NativeInt); overload;\r\n    constructor new(aBuffer : TJSArrayBuffer; aOffset,aByteLength : NativeInt); overload;\r\n    function getFloat32(aByteOffset : NativeInt) : double; overload;\r\n    function getFloat32(aByteOffset : NativeInt; aLittleEndian: Boolean) : double; overload;\r\n    function getFloat64(aByteOffset : NativeInt) : double; overload;\r\n    function getFloat64(aByteOffset : NativeInt; aLittleEndian: Boolean) : double; overload;\r\n    function getInt8(aByteOffset : NativeInt) : ShortInt; \r\n    function getInt16(aByteOffset : NativeInt) : SmallInt; overload;\r\n    function getInt16(aByteOffset : NativeInt; aLittleEndian : Boolean) : SmallInt; overload;\r\n    function getInt32(aByteOffset : NativeInt) : Longint; overload;\r\n    function getInt32(aByteOffset : NativeInt; aLittleEndian : Boolean) : Longint; overload;\r\n    function getUint8(aByteOffset : NativeInt) : Byte; overload;\r\n    function getUint16(aByteOffset : NativeInt) : Word; overload;\r\n    function getUint16(aByteOffset : NativeInt; aLittleEndian : Boolean) : Word; overload;\r\n    function getUint32(aByteOffset : NativeInt) : LongWord; overload;\r\n    function getUint32(aByteOffset : NativeInt; aLittleEndian : Boolean) : LongWord; overload;\r\n\r\n    procedure setFloat32(aByteOffset : NativeInt; aValue : double); overload;\r\n    procedure setFloat32(aByteOffset : NativeInt; aValue : double; aLittleEndian: Boolean); overload;\r\n    procedure setFloat64(aByteOffset : NativeInt; aValue : double); overload;\r\n    procedure setFloat64(aByteOffset : NativeInt; aValue : double; aLittleEndian: Boolean); overload;\r\n    procedure setInt8(aByteOffset : NativeInt; aValue : ShortInt); \r\n    procedure setInt16(aByteOffset : NativeInt; aValue : SmallInt); overload;\r\n    procedure setInt16(aByteOffset : NativeInt; aValue : SmallInt; aLittleEndian : Boolean); overload;\r\n    procedure setInt32(aByteOffset : NativeInt; aValue : Longint); overload;\r\n    procedure setInt32(aByteOffset : NativeInt; aValue : Longint; aLittleEndian : Boolean); overload;\r\n    procedure setUint8(aByteOffset : NativeInt; aValue : Byte); overload;\r\n    procedure setUint16(aByteOffset : NativeInt; aValue : Word); overload;\r\n    procedure setUint16(aByteOffset : NativeInt; aValue : Word; aLittleEndian : Boolean); overload;\r\n    procedure setUint32(aByteOffset : NativeInt; aValue : LongWord); overload;\r\n    procedure setUint32(aByteOffset : NativeInt; aValue: LongWord; aLittleEndian : Boolean); overload;\r\n    Property byteLength : NativeInt Read fLength;\r\n    Property byteOffset : NativeInt read fOffset;\r\n    property buffer : TJSArrayBuffer Read fBuffer;\r\n  end;\r\n\r\n  TJSJSON = class {$IFDEF PAS2JS} external name 'JSON'  {$ENDIF}(TJSObject)\r\n  Public\r\n    class function parse(aJSON : String) : JSValue;\r\n    // Use this only when you are sure you will get an object, no checking is done.\r\n    class function parseObject(aJSON : String) : TJSObject; external name 'parse';\r\n    class function stringify(aValue : JSValue) : string;\r\n    class function stringify(aValue,aReplacer : JSValue) : string;\r\n    class function stringify(aValue,aReplacer : JSValue; space:  NativeInt) : string;\r\n    class function stringify(aValue,aReplacer : JSValue; space:  String) : string;\r\n  end;\r\n\r\n  { TJSError }\r\n\r\n  TJSError = class {$IFDEF PAS2JS} external name 'Error'    {$ENDIF}(TJSObject)\r\n  private\r\n    FMessage: String; external name 'message';\r\n    FStack: JSValue; external name 'stack';\r\n  Public\r\n    Constructor new;\r\n    Constructor new(Const aMessage : string);\r\n    Constructor new(Const aMessage,aFileName : string);\r\n    Constructor new(Const aMessage,aFileName : string; aLineNumber : NativeInt);\r\n    Property Message : String Read FMessage;\r\n    Property Stack: JSValue read FStack;\r\n  end;\r\n\r\n\r\n  TJSPromiseResolver = reference to function (aValue : JSValue) : JSValue;\r\n  TJSPromiseExecutor = reference to procedure (resolve,reject : TJSPromiseResolver);\r\n  TJSPromiseFinallyHandler = reference to procedure;\r\n  TJSPromise = Class;\r\n  TJSPromiseArray = array of TJSPromise;\r\n\r\n  TJSPromise = class external name 'Promise'\r\n    constructor new(Executor : TJSPromiseExecutor);\r\n    class function all(arg : Array of JSValue) : TJSPromise; overload;\r\n    class function all(arg : JSValue) : TJSPromise; overload;\r\n    class function all(arg : TJSPromiseArray) : TJSPromise; overload;\r\n    class function allSettled(arg : Array of JSValue) : TJSPromise; overload;\r\n    class function allSettled(arg : JSValue) : TJSPromise; overload;\r\n    class function allSettled(arg : TJSPromiseArray) : TJSPromise; overload;\r\n    class function race(arg : Array of JSValue) : TJSPromise; overload;\r\n    class function race(arg : JSValue) : TJSPromise; overload;\r\n    class function race(arg : TJSPromiseArray) : TJSPromise; overload;\r\n    class function reject(reason : JSValue) : TJSPromise;\r\n    class function resolve(value : JSValue): TJSPromise; overload;\r\n    class function resolve : TJSPromise; overload;\r\n    function _then (onAccepted : TJSPromiseResolver) : TJSPromise; external name 'then';\r\n    function _then (onAccepted,OnRejected: TJSPromiseResolver) : TJSPromise; external name 'then';\r\n    function catch (onRejected : TJSPromiseResolver) : TJSPromise;\r\n    function _finally(value : TJSPromiseFinallyHandler): TJSPromise; external name 'finally';\r\n  end;\r\n\r\n  TJSPromiseHelper = class helper for TJSPromise\r\n  public\r\n    class function From(const AValue: TJSPromise): TJSPromise; static;\r\n  end;\r\n\r\n  TJSFunctionArguments = class external name 'arguments'\r\n  private\r\n    FLength: NativeInt; external name 'length';\r\n    function GetElements(Index: NativeInt): JSValue; external name '[]';\r\n    procedure SetElements(Index: NativeInt; const AValue: JSValue); external name '[]';\r\n  public\r\n    property Length: NativeInt read FLength;\r\n    property Elements[Index: NativeInt]: JSValue read GetElements write SetElements; default;\r\n  end;\r\n\r\n  TJSIteratorResult = class {$IFDEF PAS2JS} external name 'IteratorResult'  {$ENDIF}(TJSObject)\r\n  Private\r\n    fDone : Boolean; external name 'done';\r\n    fValue : JSValue; external name 'value';\r\n  Public\r\n    property done : boolean Read FDone;\r\n    property value : JSValue read FValue;\r\n  end;\r\n\r\n  TJSAsyncIterator = class {$IFDEF PAS2JS} external name 'AsyncIterator'  {$ENDIF}(TJSObject)\r\n    function next: TJSIteratorResult;\r\n  end;\r\n\r\n  TJSSyntaxError = class {$IFDEF PAS2JS} external name 'SyntaxError'  {$ENDIF}(TJSError);\r\n\r\n  TJSTextDecoderOptions = class {$IFDEF PAS2JS} external name 'Object' {$ENDIF}(TJSObject)\r\n    fatal : Boolean;\r\n    ignoreBOM : Boolean;\r\n  end;\r\n\r\n  TJSTextDecodeOptions = class {$IFDEF PAS2JS} external name 'Object' {$ENDIF}(TJSObject)\r\n    stream : Boolean;\r\n  end;\r\n\r\n  TJSTextDecoder = class {$IFDEF PAS2JS} external name 'TextDecoder'  {$ENDIF}(TJSObject)\r\n  Private\r\n    FEncoding : String; external name 'encoding';\r\n    FFatal : Boolean; external name 'fatal';\r\n    FIgnoreBOM : Boolean; external name 'ignoreBOM';\r\n  Public\r\n    Constructor New; overload;\r\n    Constructor New(utfLabel : String); overload;\r\n    Constructor New(utfLabel : String; Options : TJSTextDecoderOptions); overload;\r\n    Function decode(arr : TJSTypedArray) : String; overload;\r\n    Function decode(arr : TJSArrayBuffer) : String; overload;\r\n    Function decode(arr : TJSTypedArray; opts : TJSTextDecodeOptions) : String; overload;\r\n    Function decode(arr : TJSArrayBuffer; opts : TJSTextDecodeOptions) : String; overload;\r\n    property Encoding : string Read FEncoding;\r\n    Property Fatal : Boolean Read FFatal;\r\n    Property IgnoreBOM : Boolean Read FIgnoreBOM;\r\n  end;\r\n\r\n  TJSTextEncoderEncodeIntoResult = class {$IFDEF PAS2JS} external name 'Object' {$ENDIF}(TJSObject)\r\n    read : Nativeint;\r\n    written : NativeInt;\r\n  end;\r\n\r\n  TJSTextEncoder = class {$IFDEF PAS2JS} external name 'TextEncoder'  {$ENDIF}(TJSObject)\r\n  Private\r\n    FEncoding : String; external name 'encoding';\r\n  Public\r\n    Constructor New;\r\n    function encode(aString : String) : TJSUInt8Array;\r\n    Function encodeInto(aString : String; aArray : TJSUInt8Array) : TJSTextEncoderEncodeIntoResult;\r\n    Property Encoding : string Read FEncoding;\r\n  end;\r\n\r\nvar\r\n  // JSArguments can be used in procedures/functions to provide access to the 'arguments' array.\r\n  JSArguments: TJSFunctionArguments; external name 'arguments';\r\n  // JSThis can be used in all code to access the javascript 'this' object.\r\n  JSThis: TJSObject; external name 'this';\r\n  // JSExceptValue can be used in catch blocks to access the JS throw value\r\n  JSExceptValue: JSValue; external name '$e';\r\n\r\nfunction new(aElements: TJSValueDynArray) : TJSObject; overload;\r\nfunction JSDelete(const Obj: JSValue; const PropName: string): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF} overload;\r\n\r\nfunction decodeURIComponent(encodedURI : String) : String; external name 'decodeURIComponent';\r\nfunction encodeURIComponent(str : String) : String; external name 'encodeURIComponent';\r\n\r\nfunction parseInt(s: String; Radix: NativeInt): NativeInt; overload; external name 'parseInt'; // may result NaN\r\nfunction parseInt(s: String): NativeInt; overload; external name 'parseInt'; // may result NaN\r\nfunction parseFloat(s: String): double; overload; external name 'parseFloat'; // may result NaN\r\n\r\nfunction hasString(const v: JSValue): boolean; external name 'rtl.hasString';// isString(v) and v<>''\r\nfunction hasValue(const v: JSValue): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF} // returns the JS definition of if(v): v is not false, undefined, null, 0, NaN, or the empty string. Note: JS if(new Boolean(false)) returns true.\r\nfunction isArray(const v: JSValue): boolean; external name 'rtl.isArray';\r\nfunction isBoolean(const v: JSValue): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\nfunction isDate(const v: JSValue): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\nfunction isCallback(const v: JSValue): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\nfunction isChar(const v: JSValue): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\nfunction isClass(const v: JSValue): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF} // is a Pascal class, e.g. a TClass\r\nfunction isClassInstance(const v: JSValue): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}// is a Pascal class instance, e.g. a TObject\r\nfunction isFunction(const v: JSValue): boolean; external name 'rtl.isFunction';\r\nfunction isInteger(const v: JSValue): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\nfunction isModule(const v: JSValue): boolean; external name 'rtl.isModule';\r\nfunction isNull(const v: JSValue): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\nfunction isNumber(const v: JSValue): boolean; external name 'rtl.isNumber';\r\nfunction isObject(const v: JSValue): boolean; external name 'rtl.isObject'; // true if not null and a JS Object\r\nfunction isRecord(const v: JSValue): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\nfunction isString(const v: JSValue): boolean; external name 'rtl.isString';\r\nfunction isUndefined(const v: JSValue): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\nfunction isDefined(const v: JSValue): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\nfunction isUTF16Char(const v: JSValue): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\nfunction isExt(const InstanceOrClass, aClass: JSValue): boolean; external name 'rtl.isExt'; // aClass can be a JS object or function\r\nfunction jsInstanceOf(const aFunction, aFunctionWithPrototype: JSValue): Boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\nfunction jsTypeOf(const v: JSValue): String; external name 'typeof';\r\nfunction jsIsNaN(const v: JSValue): boolean; external name 'isNaN';// true if value cannot be converted to a number. e.g. True on NaN, undefined, {}, '123'. False on true, null, '', ' ', '1A'\r\nfunction jsIsFinite(const v: JSValue): boolean; external name 'isFinite';// true if value is a Finite number\r\nfunction toNumber(const v: JSValue): double; {$IFDEF PAS2JS} assembler; {$ENDIF} // if not possible, returns NaN\r\nfunction toInteger(const v: JSValue): NativeInt; // if v is not an integer, returns 0\r\nfunction toObject(Value: JSValue): TJSObject; // If Value is not a Javascript object, returns Nil\r\nfunction toArray(Value: JSValue): TJSArray; // If Value is not a Javascript array, returns Nil\r\nfunction toBoolean(Value: JSValue): Boolean; // If Value is not a Boolean, returns False\r\nfunction toString(Value: JSValue): String; // If Value is not a string, returns ''\r\n\r\nType\r\n  TJSValueType = (jvtNull,jvtBoolean,jvtInteger,jvtFloat,jvtString,jvtObject,jvtArray);\r\n\r\nFunction GetValueType(JS : JSValue) : TJSValueType;\r\n\r\nConst\r\n  Null : JSValue; external name 'null';\r\n  Undefined : JSValue; external name 'undefined';\r\n\r\nimplementation\r\n\r\nfunction new(aElements: TJSValueDynArray): TJSObject;\r\n\r\n  function toString(I : Integer): string; external name 'String';\r\n\r\nVar\r\n  L,I : integer;\r\n  S : String;\r\n\r\nbegin\r\n  L:=length(aElements);\r\n  if (L mod 2)=1 then\r\n    raise EJS.Create('Number of arguments must be even');\r\n  I:=0;\r\n  // Check all arguments;\r\n  While (i<L) do\r\n    begin\r\n    if Not isString(aElements[i]) then\r\n      begin\r\n      S:=ToString(I);\r\n      raise EJS.Create('Argument '+S+' must be a string.');\r\n      end;\r\n    inc(I,2);\r\n    end;\r\n  I:=0;\r\n  Result:=TJSObject.New;\r\n  While (i<L) do\r\n    begin\r\n    S:=String(aElements[i]);\r\n    Result.Properties[S]:=aElements[i+1];\r\n    inc(I,2);\r\n    end;\r\nend;\r\n\r\nfunction JSDelete(const Obj: JSValue; const PropName: string): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\nasm\r\n  return delete Obj[PropName];\r\nend;\r\n\r\nfunction hasValue(const v: JSValue): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\nasm\r\n  if(v){ return true; } else { return false; };\r\nend;\r\n\r\nfunction isBoolean(const v: JSValue): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\nasm\r\n  return typeof(v) == 'boolean';\r\nend;\r\n\r\nfunction isDate(const v: JSValue): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\nasm\r\n  return (v instanceof Date);\r\nend;\r\n\r\nfunction isCallback(const v: JSValue): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\nasm\r\n  return rtl.isObject(v) && rtl.isObject(v.scope) && (rtl.isString(v.fn) || rtl.isFunction(v.fn));\r\nend;\r\n\r\nfunction isChar(const v: JSValue): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\nasm\r\n  return (typeof(v)!=\"string\") && (v.length==1);\r\nend;\r\n\r\nfunction isClass(const v: JSValue): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\nasm\r\n  return (typeof(v)==\"object\") && (v!=null) && (v.$class == v);\r\nend;\r\n\r\nfunction isClassInstance(const v: JSValue): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\nasm\r\n  return (typeof(v)==\"object\") && (v!=null) && (v.$class == Object.getPrototypeOf(v));\r\nend;\r\n\r\nfunction isInteger(const v: JSValue): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\nasm\r\n  return Math.floor(v)===v;\r\nend;\r\n\r\nfunction isNull(const v: JSValue): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\n// Note: use identity, \"==\" would fit undefined\r\nasm\r\n  return v === null;\r\nend;\r\n\r\nfunction isRecord(const v: JSValue): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\nasm\r\n  return (typeof(v)===\"object\")\r\n      && (typeof(v.$new)===\"function\")\r\n      && (typeof(v.$clone)===\"function\")\r\n      && (typeof(v.$eq)===\"function\")\r\n      && (typeof(v.$assign)===\"function\");\r\nend;\r\n\r\nfunction isUndefined(const v: JSValue): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\nasm\r\n  return v == undefined;\r\nend;\r\n\r\nfunction isDefined(const v: JSValue): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\nasm\r\n  return !(v == undefined);\r\nend;\r\n\r\nfunction isUTF16Char(const v: JSValue): boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\nasm\r\n  if (typeof(v)!=\"string\") return false;\r\n  if ((v.length==0) || (v.length>2)) return false;\r\n  var code = v.charCodeAt(0);\r\n  if (code < 0xD800){\r\n    if (v.length == 1) return true;\r\n  } else if (code <= 0xDBFF){\r\n    if (v.length==2){\r\n      code = v.charCodeAt(1);\r\n      if (code >= 0xDC00 && code <= 0xDFFF) return true;\r\n    };\r\n  };\r\n  return false;\r\nend;\r\n\r\nfunction jsInstanceOf(const aFunction, aFunctionWithPrototype: JSValue\r\n  ): Boolean; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\nasm\r\n  return aFunction instanceof aFunctionWithPrototype;\r\nend;\r\n\r\nfunction toNumber(const v: JSValue): double; {$IFDEF PAS2JS} assembler; {$ENDIF}\r\nasm\r\n  return v-0;\r\nend;\r\n\r\nfunction toInteger(const v: JSValue): NativeInt;\r\nbegin\r\n  if IsInteger(v) then\r\n    Result:=NativeInt(v)\r\n  else\r\n    Result:=0;\r\nend;\r\n\r\nfunction toObject(Value: JSValue): TJSObject;\r\n\r\nbegin\r\n  if IsObject(Value) then\r\n    Result:=TJSObject(Value)\r\n  else\r\n    Result:=Nil;\r\nend;\r\n\r\nfunction toArray(Value: JSValue): TJSArray; // If not possible, returns Nil\r\n\r\nbegin\r\n  if IsArray(Value) then\r\n    Result:=TJSArray(Value)\r\n  else\r\n    Result:=Nil;\r\nend;\r\n\r\nfunction toBoolean(Value: JSValue): Boolean; // If not possible, returns False\r\n\r\nbegin\r\n  if isBoolean(Value) then\r\n    Result:=Boolean(Value)\r\n  else\r\n    Result:=False;\r\nend;\r\n\r\nfunction toString(Value: JSValue): String; // If not possible, returns ''\r\n\r\nbegin\r\n  if IsString(Value) then\r\n    Result:=String(Value)\r\n  else\r\n    Result:='';\r\nend;\r\n\r\n{ EJS }\r\n\r\nconstructor EJS.Create(const Msg: String);\r\nbegin\r\n  FMessage:=Msg;\r\nend;\r\n\r\n\r\nfunction GetValueType(JS: JSValue): TJSValueType;\r\n\r\nVar\r\n  t : string;\r\n\r\nbegin\r\n  if isNull(js) then   // null reported as object\r\n    result:=jvtNull\r\n  else\r\n    begin\r\n    t:=jsTypeOf(js);\r\n    if (t='string') then\r\n      Result:=jvtString\r\n    else if (t='boolean') then\r\n      Result:=jvtBoolean\r\n    else if (t='object') then\r\n      begin\r\n      if IsArray(JS) then\r\n        Result:=jvtArray\r\n      else\r\n        Result:=jvtObject;\r\n      end\r\n    else if (t='number') then\r\n      if isInteger(JS) then\r\n        result:=jvtInteger\r\n      else\r\n        result:=jvtFloat\r\n    end;\r\nend;\r\n\r\n{ ExternalJSAttribute }\r\n\r\nconstructor ExternalJSAttribute.Create(const AName: string);\r\nbegin\r\n  inherited Create;\r\n  FName := AName;\r\nend;\r\n\r\n{ TJSPromiseHelper }\r\n\r\nclass function TJSPromiseHelper.From(const AValue: TJSPromise): TJSPromise;\r\nbegin\r\n  Result := AValue;\r\nend;\r\n\r\nend.\r\n\r\n","{\r\n    This file is part of the Pas2JS run time library.\r\n    Copyright (c) 2017 by Mattias Gaertner\r\n\r\n    See the file COPYING.FPC, included in this distribution,\r\n    for details about the copyright.\r\n\r\n    This program is distributed in the hope that it will be useful,\r\n    but WITHOUT ANY WARRANTY; without even the implied warranty of\r\n    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\r\n\r\n **********************************************************************}\r\nunit SysUtils;\r\n\r\n{$mode objfpc}\r\n{$MODE DELPHI}\r\n{$modeswitch typehelpers}\r\n{$modeswitch advancedrecords}\r\n{$WARN 5078 off}\r\n\r\ninterface\r\n\r\nuses\r\n  RTLConsts, js;\r\n\r\nprocedure FreeAndNil(var Obj);\r\n\r\ntype\r\n  TProcedure = procedure;\r\n\r\n {*****************************************************************************\r\n                              Various types\r\n  *****************************************************************************}\r\nConst\r\n  FloatRecDigits = 19;\r\n\r\ntype\r\n  TSysCharSet = Set of Char;\r\n\r\n  { TFloatRec }\r\n  TFloatRec = Record\r\n    Exponent: Integer;\r\n    Negative: Boolean;\r\n    Digits: Array[0..FloatRecDigits-1] of Char;\r\n  End;\r\n  TEndian = (Little,Big);\r\n  TFileName = String;\r\n  TByteArray = array [0..32767] of Byte;\r\n  TWordArray = array [0..16383] of Word;\r\n  TBytes = Array of byte;\r\n  TStringArray = array of string;\r\n\r\n  TMonthNameArray = array [1..12] of string;\r\n  TDayTable = array [1..12] of Word;\r\n  TWeekNameArray = array [1..7] of string;\r\n  TMonthNames = TMonthNameArray;\r\n  TDayNames = array[1..7] of string;\r\n\r\ntype\r\n\r\n  { TFormatSettings }\r\n\r\n  TFormatSettings = record\r\n  strict private\r\n    class function GetBrowserLocale: string; assembler; static;\r\n    class function GetJSLocale: string; assembler; static;\r\n    class function GetLocaleDecimalSeparator(const ALocale: string): string; assembler; static;\r\n    class function GetLocaleLongDayName(const ADayOfWeek: Integer; const ALocale: string): string; assembler; static;\r\n    class function GetLocaleLongMonthName(const AMonth: Integer; const ALocale: string): string; assembler; static;\r\n    class function GetLocaleLongTimeFormat(ALocale: string): string; static;\r\n    class function GetLocaleShortDateFormat(ALocale: string): string; static;\r\n    class function GetLocaleShortDayName(const ADayOfWeek: Integer; const ALocale: string): string; assembler; static;\r\n    class function GetLocaleShortMonthName(const AMonth: Integer; const ALocale: string): string; assembler; static;\r\n    class function GetLocaleShortTimeFormat(ALocale: string): string; static;\r\n  public\r\n    CurrencyDecimals: Byte;\r\n    CurrencyFormat: Byte;\r\n    CurrencyString: string;\r\n    DateSeparator: Char;\r\n    DateTimeToStrFormat: array[Boolean] of string;\r\n    DecimalSeparator: string;\r\n    LongDateFormat: string;\r\n    LongDayNames: TDayNames;\r\n    LongMonthNames: TMonthNames;\r\n    LongTimeFormat: string;\r\n    NegCurrFormat: Byte;\r\n    ShortDateFormat: string;\r\n    ShortDayNames: TDayNames;\r\n    ShortMonthNames: TMonthNames;\r\n    ShortTimeFormat: string;\r\n    ThousandSeparator: string;\r\n    TimeAMString: string;\r\n    TimePMString: string;\r\n    TimeSeparator: Char;\r\n    TwoDigitYearCenturyWindow: Word;\r\n  public\r\n    Type\r\n       TLocaleInitCallback = Procedure(const aLocale : String; aInstance : TFormatSettings);\r\n    class var InitLocaleHandler : TLocaleInitCallback;\r\n    class function Create: TFormatSettings; overload; static;\r\n    class function Create(const ALocale: string): TFormatSettings; overload; static;\r\n    class function Invariant: TFormatSettings; static;\r\n    class constructor Init;\r\n  end;\r\n\r\n\r\n{*****************************************************************************\r\n                            Exception handling\r\n*****************************************************************************}\r\n\r\n  { Exception }\r\n\r\n  Exception = class(TObject)\r\n  private\r\n    FMessage: String;\r\n    FHelpContext: Integer;\r\n    FJSError: TJSError;\r\n    FStack: JSValue;\r\n  public\r\n    class var\r\n      LogMessageOnCreate : Boolean;\r\n  Public\r\n    constructor Create(const Msg: String); reintroduce;\r\n    constructor CreateFmt(const Msg: string; const Args: array of const);\r\n    constructor CreateHelp(const Msg: String; AHelpContext: Integer);\r\n    constructor CreateFmtHelp(const Msg: string; const Args: array of const; AHelpContext: Integer);\r\n    function ToString: String; override;\r\n    property HelpContext: Integer read FHelpContext write FHelpContext;\r\n    property Message: String read FMessage write FMessage;\r\n    property JSError: TJSError read FJSError;\r\n    property Stack: JSValue read FStack;\r\n  end;\r\n\r\n  ExceptClass = class of Exception;\r\n\r\n  EExternal = class(Exception);\r\n\r\n  { General math errors }\r\n  EMathError  = class(EExternal);\r\n  EInvalidOp  = class(EMathError);\r\n  EZeroDivide = class(EMathError);\r\n  EOverflow   = class(EMathError);\r\n  EUnderflow  = class(EMathError);\r\n\r\n  EAbort           = class(Exception);\r\n  EInvalidCast     = class(Exception);\r\n  EAssertionFailed = class(Exception);\r\n  EObjectCheck     = class(Exception);\r\n\r\n  { String conversion errors }\r\n  EConvertError = class(Exception);\r\n  EFormatError = class(Exception);\r\n\r\n\r\n  { integer math exceptions }\r\n  EIntError    = Class(EExternal);\r\n  EDivByZero   = Class(EIntError);\r\n  ERangeError  = Class(EIntError);\r\n  EIntOverflow = Class(EIntError);\r\n\r\n  { General math errors }\r\n\r\n  { Run-time and I/O Errors }\r\n  EInOutError = class(Exception)\r\n  public\r\n    ErrorCode : Integer;\r\n  end;\r\n\r\n  EHeapMemoryError = class(Exception);\r\n  EHeapException = EHeapMemoryError;\r\n\r\n  EExternalException = class(EExternal);\r\n  EInvalidPointer  = Class(EHeapMemoryError);\r\n  EOutOfMemory     = Class(EHeapMemoryError);\r\n\r\n  { EVariantError }\r\n\r\n  EVariantError = Class(Exception)\r\n    ErrCode : longint;\r\n    Constructor CreateCode(Code : Longint);\r\n  end;\r\n\r\n  EAccessViolation = Class(EExternal);\r\n  EBusError = Class(EAccessViolation);\r\n  EPrivilege = class(EExternal);\r\n  EStackOverflow = class(EExternal);\r\n  EControlC = class(EExternal);\r\n\r\n  { String conversion errors }\r\n\r\n  { Other errors }\r\n  EAbstractError   = Class(Exception);\r\n\r\n  EPropReadOnly = class(Exception);\r\n  EPropWriteOnly = class(Exception);\r\n\r\n  EIntfCastError = class(Exception);\r\n  EInvalidContainer = class(Exception);\r\n  EInvalidInsert = class(Exception);\r\n\r\n  EPackageError = class(Exception);\r\n\r\n  EOSError = class(Exception)\r\n  public\r\n    ErrorCode: Longint;\r\n  end;\r\n\r\n  ESafecallException = class(Exception);\r\n  ENoThreadSupport = Class(Exception);\r\n  ENoWideStringSupport = Class(Exception);\r\n  ENotImplemented = class(Exception);\r\n\r\n  EArgumentException = class(Exception);\r\n  EArgumentOutOfRangeException = class(EArgumentException);\r\n  EArgumentNilException = class(EArgumentException);\r\n\r\n  EPathTooLongException = class(Exception);\r\n  ENotSupportedException = class(Exception);\r\n  EDirectoryNotFoundException = class(Exception);\r\n  EFileNotFoundException = class(Exception);\r\n  EPathNotFoundException = class(Exception);\r\n\r\n  ENoConstructException = class(Exception);\r\n\r\n//function GetTickCount: Integer;\r\n\r\n\r\n{*****************************************************************************\r\n                            String function\r\n*****************************************************************************}\r\n\r\nConst\r\n  EmptyStr = '';\r\n  EmptyWideStr = ''; // No difference here.\r\n  HexDisplayPrefix: string = '$';\r\n  LeadBytes = [] unimplemented;\r\n\r\nFunction CharInSet(Ch: Char;Const CSet : array of char) : Boolean; overload;\r\nFunction CharInSet(Ch: Char;Const CSet : TSysCharSet) : Boolean; overload;\r\n\r\nfunction LeftStr(const S: string; Count: Integer): String; assembler;\r\nfunction RightStr(const S: string; Count: Integer): String; assembler;\r\n\r\nfunction Trim(const S: String): String; assembler;\r\nfunction TrimLeft(const S: String): String; assembler;\r\nfunction TrimRight(const S: String): String; assembler;\r\n\r\nfunction UpperCase(const s: String): String; assembler; overload;\r\nfunction LowerCase(const s: String): String; assembler; overload;\r\n\r\nfunction CompareStr(const s1, s2: String): Integer; assembler;\r\nfunction SameStr(const s1, s2: String): Boolean; assembler;\r\nfunction CompareText(const s1, s2: String): Integer; assembler;\r\nfunction SameText(const s1, s2: String): Boolean; assembler;\r\nfunction AnsiCompareText(const s1, s2: String): Integer; assembler;\r\nfunction AnsiSameText(const s1, s2: String): Boolean; assembler;\r\nfunction AnsiCompareStr(const s1, s2: String): Integer;\r\nprocedure AppendStr(var Dest: String; const S: string);\r\n\r\nfunction Format(const Fmt: String; const Args: array of const): String; overload;\r\nfunction Format(const Fmt: String; const Args: array of const; const aSettings : TFormatSettings): String; overload;\r\n\r\nfunction BytesOf(const AVal: string): TBytes;\r\nfunction StringOf(const ABytes: TBytes): string;\r\n\r\n// JavaScript built-in functions\r\nfunction LocaleCompare(const s1, s2, locales: String): Boolean; assembler; overload;\r\nfunction NormalizeStr(const S: String; const Norm: String = 'NFC'): String; assembler; overload; // not in IE\r\n\r\nfunction IsValidIdent(const Ident: string; AllowDots: Boolean = False; StrictDots: Boolean = False): Boolean;\r\n\r\nType\r\n  TStringReplaceFlag = (rfReplaceAll, rfIgnoreCase);\r\n  TReplaceFlag = TStringReplaceFlag;\r\n  TStringReplaceFlags = set of TStringReplaceFlag;\r\n  TReplaceFlags = TStringReplaceFlags;\r\n\r\nprocedure Randomize;\r\n\r\nfunction StringReplace(aOriginal, aSearch, aReplace: string; Flags: TStringReplaceFlags): String;\r\nfunction QuoteString(aOriginal: String; AQuote: Char): String;\r\nfunction QuotedStr(const s: string; QuoteChar: Char = ''''): string;\r\nfunction DeQuoteString(aQuoted: String; AQuote: Char): String;\r\nFunction LastDelimiter(const Delimiters, S: string): SizeInt;\r\nfunction IsDelimiter(const Delimiters, S: string; Index: Integer): Boolean;\r\nfunction AdjustLineBreaks(const S: string): string; overload;\r\nfunction AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle): string; overload;\r\nfunction WrapText(const Line, BreakStr: string; const BreakChars: Array of char;  MaxCol: Integer): string; overload;\r\nfunction WrapText(const Line: string; MaxCol: Integer): string; overload;\r\n\r\n{ *****************************************************************************\r\n  Integer conversions\r\n  *****************************************************************************}\r\n\r\nFunction SwapEndian(W : Word) : Word; overload;\r\nFunction SwapEndian(C : Cardinal) : Cardinal; overload;\r\nfunction IntToStr(const Value: Integer): string;\r\nFunction TryStrToInt(const S : String; Out res : Integer) : Boolean; overload;\r\nFunction TryStrToInt(const S : String; Out res: Integer; Const aSettings : TFormatSettings): Boolean; overload;\r\nFunction TryStrToInt(const S : String; Out res : NativeInt) : Boolean; overload;\r\nfunction TryStrToInt(const S: String; out res: NativeInt; Const aSettings : TFormatSettings): Boolean; overload;\r\nFunction StrToIntDef(const S : String; Const aDef : Integer) : Integer; overload;\r\nFunction StrToIntDef(const S : String; Const aDef : NativeInt) : NativeInt; overload;\r\nFunction StrToInt(const S : String) : Integer;\r\nFunction StrToNativeInt(const S : String) : NativeInt;\r\nfunction StrToUInt(const s: string): Cardinal;\r\nfunction StrToUIntDef(const s: string; aDef : Cardinal): Cardinal;\r\nfunction UIntToStr(Value: Cardinal): string;\r\nfunction TryStrToUInt(const s: string; out C: Cardinal): Boolean;\r\n// For compatibility\r\nFunction StrToInt64(const S : String) : NativeLargeInt;\r\nFunction StrToInt64Def(const S : String; ADefault : NativeLargeInt) : NativeLargeInt;\r\nFunction TryStrToInt64(const S : String; Out res : NativeLargeInt) : Boolean; overload;\r\nfunction TryStrToInt64(const S : String; Out res : NativeLargeInt; const ASettings: TFormatSettings): Boolean; overload;\r\nFunction StrToQWord(const S : String) : NativeLargeUInt;\r\nFunction StrToQWordDef(const S : String; ADefault : NativeLargeUInt) : NativeLargeUInt;\r\nFunction TryStrToQWord(const S : String; Out res : NativeLargeUInt) : Boolean; overload;\r\nFunction TryStrToQWord(const S : String; Out res : QWord) : Boolean; unimplemented; overload; // only 52 bits\r\nFunction StrToUInt64(const S : String) : NativeLargeUInt;\r\nFunction StrToUInt64Def(const S : String; ADefault : NativeLargeUInt) : NativeLargeUInt;\r\nFunction TryStrToUInt64(const S : String; Out res : NativeLargeUInt) : Boolean; overload;\r\nFunction TryStrToUInt64(const S : String; Out res : UInt64) : Boolean; unimplemented; overload; // only 52 bits\r\nFunction StrToDWord(const S : String) : DWord;\r\nFunction StrToDWordDef(const S : String; ADefault : DWord) : DWord;\r\nFunction TryStrToDWord(const S : String; Out res : DWord) : Boolean;\r\n\r\nfunction IntToHex(Value: NativeInt; Digits: Integer): string; overload;\r\n\r\n{ *****************************************************************************\r\n  Float conversions\r\n  *****************************************************************************}\r\n\r\nconst\r\n  // Note: Currency is internally a double, multiplied by 10000 and truncated.\r\n  // The below values are the safe limits, within every step exists.\r\n  // Since currency is a double it can take much larger values, but the result\r\n  // may differ from Delphi/FPC\r\n  MaxCurrency: Currency =  900719925474.0991; // fpc: 922337203685477.5807;\r\n  MinCurrency: Currency = -900719925474.0991; // fpc: -922337203685477.5808;\r\n\r\nType\r\n  TFloatFormat = (ffFixed,ffGeneral,ffExponent,ffNumber,ffCurrency);\r\n\r\nFunction FloatToDecimal(Value : double; Precision, Decimals : integer) :  TFloatRec;\r\nFunction FloatToStr(Value: Double): String; overload;\r\nFunction FloatToStr(Value: Double; const aSettings : TFormatSettings): String; overload;\r\nFunction FloatToStrF(const Value : double; format: TFloatFormat; Precision, Digits: Integer): String; overload;\r\nFunction FloatToStrF(const Value : double; format: TFloatFormat; Precision, Digits: Integer;const aSettings : TFormatSettings): String; overload;\r\nFunction TryStrToFloat(const S : String; Out res : Extended) : Boolean; overload;\r\nFunction TryStrToFloat(const S : String; Out res : Extended; const aSettings : TFormatSettings) : Boolean; overload;\r\nFunction TryStrToFloat(const S : String; Out res : Double) : Boolean; overload;\r\nFunction TryStrToFloat(const S : String; Out res : Double; const aSettings : TFormatSettings) : Boolean; overload;\r\nFunction StrToFloatDef(const S : String; Const aDef : Double) : Double; overload;\r\nfunction StrToFloatDef(const S: String; const aDef: Double; const aSettings : TFormatSettings): Double; overload;\r\nFunction StrToFloat(const S : String) : Double; overload;\r\nFunction StrToFloat(const S : String; const aSettings : TFormatSettings) : Double; overload;\r\nFunction FormatFloat (Fmt : String; aValue : Double) : String; overload;\r\nFunction FormatFloat (Fmt : String; aValue : Double; aSettings : TFormatSettings) : String; overload;\r\n\r\n\r\n{ *****************************************************************************\r\n  Boolean conversions\r\n  *****************************************************************************}\r\n\r\nVar\r\n  TrueBoolStrs, FalseBoolStrs : Array of String;\r\n\r\nfunction StrToBool(const S: String): Boolean;\r\nfunction BoolToStr(B: Boolean; UseBoolStrs:Boolean=False): string; overload;\r\nfunction BoolToStr(B: Boolean; const TrueS, FalseS: String): string; overload;\r\nfunction StrToBoolDef(const S: String; Default: Boolean): Boolean;\r\nfunction TryStrToBool(const S: String; out Value: Boolean): Boolean;\r\n\r\n\r\n{*****************************************************************************\r\n                              OS/Environment\r\n*****************************************************************************}\r\n\r\nConst\r\n  ConfigExtension : String = '.cfg';\r\n  SysConfigDir    : String = '';\r\n\r\ntype\r\n  TOnGetEnvironmentVariable = function(Const EnvVar: String): String;\r\n  TOnGetEnvironmentString = function(Index: Integer): String;\r\n  TOnGetEnvironmentVariableCount = function: Integer;\r\n  TShowExceptionHandler = Procedure (Const Msg : String);\r\n  TUncaughtPascalExceptionHandler = reference to Procedure(aObject : TObject);\r\n  TUncaughtJSExceptionHandler = reference to Procedure(aObject : TJSObject);\r\n\r\nvar\r\n  OnGetEnvironmentVariable: TOnGetEnvironmentVariable;\r\n  OnGetEnvironmentString: TOnGetEnvironmentString;\r\n  OnGetEnvironmentVariableCount: TOnGetEnvironmentVariableCount;\r\n  // Handler to show an exception (used when showexception is called)\r\n  OnShowException : TShowExceptionHandler = nil;\r\n\r\n// Set handlers for uncaught exceptions. These will call HookUncaughtExceptions\r\n// They return the old exception handler, if there was any.\r\nFunction SetOnUnCaughtExceptionHandler(aValue : TUncaughtPascalExceptionHandler) : TUncaughtPascalExceptionHandler; overload;\r\nFunction SetOnUnCaughtExceptionHandler(aValue : TUncaughtJSExceptionHandler) : TUncaughtJSExceptionHandler; overload;\r\n// Hook the rtl handler for uncaught exceptions. If any exception handlers were set, they will be called.\r\n// If none were set, the exceptions will be displayed using ShowException.\r\nProcedure HookUncaughtExceptions;\r\n\r\nfunction GetEnvironmentVariable(Const EnvVar: String): String;\r\nfunction GetEnvironmentVariableCount: Integer;\r\nfunction GetEnvironmentString(Index: Integer): String;\r\n\r\n\r\nprocedure ShowException(ExceptObject: TObject; ExceptAddr: Pointer = Nil);\r\nProcedure Abort;\r\n\r\n\r\n{*****************************************************************************\r\n                               Events\r\n*****************************************************************************}\r\nType\r\n  TEventType = (etCustom,etInfo,etWarning,etError,etDebug);\r\n  TEventTypes = Set of TEventType;\r\n\r\n{*****************************************************************************\r\n                            Date and time\r\n*****************************************************************************}\r\nType\r\n  \r\n  TSystemTime = record\r\n     Year, Month, Day, DayOfWeek: word;\r\n     Hour, Minute, Second, MilliSecond: word;\r\n  end ;\r\n  TTimeStamp = record\r\n     Time: longint;   { Number of milliseconds since midnight }\r\n     Date: longint;   { One plus number of days since 1/1/0001 }\r\n  end ;\r\n\r\n\r\nVar\r\n  TimeSeparator : char deprecated;\r\n  DateSeparator : char deprecated;\r\n  ShortDateFormat : string deprecated;\r\n  LongDateFormat : string deprecated;\r\n  ShortTimeFormat : string deprecated;\r\n  LongTimeFormat : string deprecated;\r\n  DecimalSeparator : string deprecated;\r\n  ThousandSeparator : string deprecated;\r\n  TimeAMString : string deprecated;\r\n  TimePMString : string deprecated;\r\n\r\nconst\r\n\r\n  HoursPerDay = 24;\r\n  MinsPerHour = 60;\r\n  SecsPerMin  = 60;\r\n  MSecsPerSec = 1000;\r\n  MinsPerDay  = HoursPerDay * MinsPerHour;\r\n  SecsPerHour = SecsPerMin * MinsPerHour;\r\n  SecsPerDay  = MinsPerDay * SecsPerMin;\r\n  MSecsPerDay = SecsPerDay * MSecsPerSec;\r\n  MaxDateTime: TDateTime =  2958465.99999999;\r\n  MinDateTime: TDateTime =  -693593.99999999;\r\n\r\n  JulianEpoch = TDateTime(-2415018.5);\r\n  UnixEpoch = JulianEpoch + TDateTime(2440587.5);\r\n\r\n  DateDelta = 693594;        // Days between 1/1/0001 and 12/31/1899\r\n  UnixDateDelta = 25569;\r\n\r\n  { True=Leapyear }\r\n\r\nVar\r\n  MonthDays : array [Boolean] of TDayTable =\r\n    ((31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31),\r\n     (31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31));\r\n\r\nVar\r\n  ShortMonthNames : TMonthNames deprecated;\r\n  LongMonthNames : TMonthNames deprecated;\r\n  ShortDayNames : TDayNames deprecated;\r\n  LongDayNames : TDayNames deprecated;\r\n\r\n\r\nVar\r\n  FormatSettings: TFormatSettings;\r\n  TwoDigitYearCenturyWindow : word = 50;\r\n                             { Threshold to be subtracted from year before age-detection.}\r\n\r\n\r\n// Various conversions\r\n\r\nfunction DateTimeToJSDate(aDateTime : TDateTime) : TJSDate;\r\nfunction JSDateToDateTime(aDate : TJSDate) : TDateTime;\r\nfunction DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp;\r\nfunction TimeStampToDateTime(const TimeStamp: TTimeStamp): TDateTime;\r\nfunction MSecsToTimeStamp(MSecs: NativeInt): TTimeStamp;\r\nfunction TimeStampToMSecs(const TimeStamp: TTimeStamp): NativeInt;\r\nprocedure DateTimeToSystemTime(DateTime: TDateTime; out SystemTime: TSystemTime);\r\nfunction SystemTimeToDateTime(const SystemTime: TSystemTime): TDateTime;\r\nFunction FloatToDateTime (Const Value : Extended) : TDateTime;\r\n\r\n// Encode/Decode\r\nfunction TryEncodeDate(Year, Month, Day: Word; out Date: TDateTime): Boolean; overload;\r\nfunction TryEncodeTime(Hour, Min, Sec, MSec: Word; out Time: TDateTime): Boolean;\r\nfunction EncodeDate(Year, Month, Day :word): TDateTime;\r\nfunction EncodeTime(Hour, Minute, Second, MilliSecond:word): TDateTime;\r\nprocedure DecodeDate(Date: TDateTime; out Year, Month, Day: word);\r\nprocedure DecodeTime(Time: TDateTime; out Hour, Minute, Second, MilliSecond: word);\r\nfunction DecodeDateFully(const DateTime: TDateTime; out Year, Month, Day, DOW: Word): Boolean;\r\nfunction ComposeDateTime(Date,Time : TDateTime) : TDateTime;\r\nprocedure ReplaceTime(var dati: TDateTime; NewTime : TDateTime);\r\nprocedure ReplaceDate(var DateTime: TDateTime; const NewDate: TDateTime);\r\n\r\nfunction Date: TDateTime;\r\nfunction Time: TDateTime;\r\nfunction Now: TDateTime;\r\nfunction DayOfWeek(DateTime: TDateTime): integer;\r\nfunction IncMonth(const DateTime: TDateTime; NumberOfMonths: integer = 1 ): TDateTime;\r\nprocedure IncAMonth(var Year, Month, Day: Word; NumberOfMonths: Integer = 1);\r\nfunction IsLeapYear(Year: Word): boolean;\r\nfunction CurrentYear:Word;\r\n\r\n// Date <-> String conversion\r\n\r\nfunction DateToStr(Date: TDateTime): string; overload;\r\nfunction DateToStr(Date: TDateTime; const aSettings: TFormatSettings): string; overload;\r\nfunction StrToDate(const S: String): TDateTime; overload;\r\nfunction StrToDate(const S: String; separator : char): TDateTime; overload;\r\nfunction StrToDate(const S: String; const useformat : string; separator : char): TDateTime; overload;\r\nfunction StrToDate(const S: string; const aSettings : TFormatSettings): TDateTime; overload;\r\nfunction TryStrToDate(const S: String; out Value: TDateTime): Boolean; overload;\r\nfunction TryStrToDate(const S: String; out Value: TDateTime; const aSettings : TFormatSettings): Boolean; overload;\r\nfunction TryStrToDate(const S: String; out Value: TDateTime; separator : char): Boolean; overload;\r\nfunction TryStrToDate(const S: String; out Value: TDateTime; const useformat : string; separator : char): Boolean; overload;\r\nfunction StrToDateDef(const S: String; const Defvalue : TDateTime): TDateTime; overload;\r\nfunction StrToDateDef(const S: String; const Defvalue : TDateTime; separator : char): TDateTime; overload;\r\nfunction StrToDateDef(const S: string; const Defvalue: TDateTime; const aSettings: TFormatSettings): TDateTime; overload;\r\n\r\n// Time <-> String conversion\r\n\r\nfunction TimeToStr(Time: TDateTime): string;overload;\r\nfunction TimeToStr(Time: TDateTime; const aSettings: TFormatSettings): string;overload;\r\nfunction StrToTime(const S: String): TDateTime;overload;\r\nfunction StrToTime(const S: String; separator : char): TDateTime;overload;\r\nfunction StrToTime(const S: string; const aSettings : TFormatSettings): TDateTime;overload;\r\nfunction TryStrToTime(const S: String; out Value: TDateTime): Boolean;overload;\r\nfunction TryStrToTime(const S: String; out Value: TDateTime; aSettings : TFormatSettings): Boolean;overload;\r\nfunction TryStrToTime(const S: String; out Value: TDateTime; separator : char): Boolean; overload;\r\nfunction StrToTimeDef(const S: String; const Defvalue : TDateTime): TDateTime;overload;\r\nfunction StrToTimeDef(const S: String; const Defvalue : TDateTime; separator : char): TDateTime;overload;\r\nfunction StrToTimeDef(const AString: string; const ADefault: TDateTime; const aSettings: TFormatSettings): TDateTime; overload;\r\n\r\n// DateTime <-> String conversion\r\n\r\nfunction DateTimeToStr(DateTime: TDateTime; ForceTimeIfZero : Boolean = False): string;overload;\r\nfunction DateTimeToStr(DateTime: TDateTime; const aSettings: TFormatSettings; ForceTimeIfZero : Boolean = False): string;overload;\r\nfunction StrToDateTime(const S: String): TDateTime;overload;\r\nfunction StrToDateTime(const s: String; const aSettings : TFormatSettings): TDateTime;overload;\r\nfunction TryStrToDateTime(const S: String; out Value: TDateTime): Boolean; overload;\r\nfunction TryStrToDateTime(const S: string; out Value: TDateTime; const aSettings: TFormatSettings): Boolean; overload;\r\nfunction StrToDateTimeDef(const S: String; const Defvalue : TDateTime): TDateTime; overload;\r\nfunction StrToDateTimeDef(const S: String; const Defvalue : TDateTime; aSettings : TFormatSettings): TDateTime; overload;\r\nfunction FormatDateTime(const FormatStr: string; const DateTime: TDateTime): string; overload;\r\nfunction FormatDateTime(const FormatStr: string; const DateTime: TDateTime; const aSettings: TFormatSettings): string; overload;\r\n\r\n\r\n{ *****************************************************************************\r\n  Currency support\r\n  *****************************************************************************}\r\n\r\n\r\nVar\r\n  CurrencyFormat : Byte deprecated;\r\n  NegCurrFormat : Byte deprecated;\r\n  CurrencyDecimals : Byte deprecated;\r\n  CurrencyString : String deprecated;\r\n\r\nFunction FloattoCurr (Const Value : Extended) : Currency;\r\nfunction TryFloatToCurr(const Value: Extended; var AResult: Currency): Boolean;\r\nFunction CurrToStr(Value: Currency): string; overload;\r\nFunction CurrToStr(Value: Currency; Const aSettings: TFormatSettings): string; overload;\r\nfunction StrToCurr(const S: string): Currency; overload;\r\nfunction StrToCurr(const S: string; Const aSettings: TFormatSettings): Currency; overload;\r\nfunction TryStrToCurr(const S: string;Out Value : Currency): Boolean; overload;\r\nfunction TryStrToCurr(const S: string;Out Value : Currency; Const aSettings: TFormatSettings): Boolean; overload;\r\nfunction StrToCurrDef(const S: string; Default : Currency): Currency; overload;\r\nfunction StrToCurrDef(const S: string; Default : Currency; Const aSettings: TFormatSettings): Currency; overload;\r\n\r\n{*****************************************************************************\r\n                               File Paths\r\n*****************************************************************************}\r\ntype\r\n  PathStr = String;\r\n  TPathStrArray = Array of PathStr;\r\n\r\nfunction ChangeFileExt(const FileName, Extension: PathStr): PathStr;\r\nfunction ExtractFilePath(const FileName: PathStr): PathStr;\r\nfunction ExtractFileDrive(const FileName: PathStr): PathStr;\r\nfunction ExtractFileName(const FileName: PathStr): PathStr;\r\nfunction ExtractFileExt(const FileName: PathStr): PathStr;\r\nfunction ExtractFileDir(Const FileName : PathStr): PathStr;\r\nfunction ExtractRelativepath (Const BaseName,DestName : PathStr): PathStr;\r\nfunction IncludeTrailingPathDelimiter(Const Path : PathStr) : PathStr;\r\nfunction ExcludeTrailingPathDelimiter(Const Path: PathStr): PathStr;\r\nfunction IncludeLeadingPathDelimiter(Const Path : PathStr) : PathStr;\r\nfunction ExcludeLeadingPathDelimiter(Const Path: PathStr): PathStr;\r\nfunction IsPathDelimiter(Const Path: PathStr; Index: Integer): Boolean;\r\nFunction SetDirSeparators (Const FileName : PathStr) : PathStr;\r\nFunction GetDirs (DirName : PathStr) : TPathStrArray;\r\nfunction ConcatPaths(const Paths: array of PathStr): PathStr;\r\n\r\n\r\n{*****************************************************************************\r\n                               Interfaces\r\n*****************************************************************************}\r\n\r\nconst\r\n  GUID_NULL: TGuid = '{00000000-0000-0000-0000-000000000000}';\r\n\r\nfunction Supports(const Instance: IInterface; const AClass: TClass; out Obj): Boolean; overload;\r\nfunction Supports(const Instance: IInterface; const IID: TGuid; out Intf): Boolean; overload;\r\nfunction Supports(const Instance: TObject; const IID: TGuid; out Intf): Boolean; overload;\r\nfunction Supports(const Instance: TObject; const IID: TGuidString; out Intf): Boolean; overload;\r\n\r\nfunction Supports(const Instance: IInterface; const AClass: TClass): Boolean; overload;\r\nfunction Supports(const Instance: IInterface; const IID: TGuid): Boolean; overload;\r\nfunction Supports(const Instance: TObject; const IID: TGuid): Boolean; overload;\r\nfunction Supports(const Instance: TObject; const IID: TGuidString): Boolean; overload;\r\n\r\nfunction Supports(const AClass: TClass; const IID: TGuid): Boolean; overload;\r\nfunction Supports(const AClass: TClass; const IID: TGuidString): Boolean; overload;\r\n\r\nfunction TryStringToGUID(const s: string; out Guid: TGuid): Boolean;\r\nfunction StringToGUID(const S: string): TGuid;\r\nfunction GUIDToString(const guid: TGuid): string;\r\nfunction IsEqualGUID(const guid1, guid2: TGuid): Boolean;\r\nfunction GuidCase(const guid: TGuid; const List: array of TGuid): Integer;\r\nFunction CreateGUID(out GUID : TGUID) : Integer;\r\n\r\nFunction EncodeHTMLEntities (S : String) : String;\r\n\r\n{ ---------------------------------------------------------------------\r\n  Type Helpers\r\n  ---------------------------------------------------------------------}\r\n\r\nType\r\n  TCharArray = Array of char;\r\n\r\n  TByteBitIndex = 0..7;\r\n  TShortIntBitIndex = 0..7;\r\n  TWordBitIndex = 0..15;\r\n  TSmallIntBitIndex = 0..15;\r\n  TCardinalBitIndex = 0..31;\r\n  TIntegerBitIndex = 0..31;\r\n  TLongIntBitIndex = TIntegerBitIndex;\r\n  TQwordBitIndex = 0..52;\r\n  TInt64BitIndex = 0..52;\r\n  TNativeIntBitIndex = 0..52;\r\n  TNativeUIntBitIndex = 0..52;\r\n\r\nConst\r\n  CPUEndian = {$IFNDEF FPC_LITTLE_ENDIAN}TEndian.Big{$ELSE}TEndian.Little{$ENDIF};\r\n\r\nType\r\n\r\n  { TGuidHelper }\r\n\r\n  TGuidHelper = record helper for TGUID\r\n    class function Create(Src : TGUID; BigEndian: Boolean): TGUID; overload; static;\r\n    class function Create(const Buf : TJSArrayBuffer; AStartIndex: Cardinal; BigEndian: Boolean): TGUID; overload; static;\r\n    class function Create(const Data: array of Byte; AStartIndex: Cardinal; BigEndian: Boolean): TGUID; overload; static;\r\n    Class Function Create(const B: TBytes; DataEndian: TEndian = CPUEndian): TGUID; overload; static; inline;\r\n    Class Function Create(const B: TBytes; AStartIndex: Cardinal; DataEndian: TEndian = CPUEndian): TGUID; overload; static;\r\n    Class Function Create(const S: string): TGUID; overload; static;\r\n    Class Function Create(A: Integer; B: SmallInt; C: SmallInt; const D: TBytes): TGUID; overload; static;\r\n//    Class Function Create(A: Integer; B: SmallInt; C: SmallInt; D, E, F, G, H, I, J, K: Byte): TGUID; overload; static;\r\n    Class Function Create(A: Cardinal; B: Word; C: Word; D, E, F, G, H, I, J, K: Byte): TGUID; overload; static;\r\n    Class Function NewGuid: TGUID; static;\r\n    Class Function Empty: TGUID; static;\r\n    Function ToByteArray(DataEndian: TEndian = CPUEndian): TBytes;\r\n    Function ToString(SkipBrackets: Boolean = False): string;\r\n  end;\r\n\r\n\r\n{$SCOPEDENUMS ON}\r\n  TStringSplitOptions = (None, ExcludeEmpty);\r\n{$SCOPEDENUMS OFF}\r\n\r\n  { TStringHelper }\r\n\r\n  TStringHelper = Type Helper for String\r\n  Private\r\n    function GetChar(AIndex : SizeInt) : Char;\r\n    function GetLength : SizeInt;\r\n    procedure Set_Length(const AValue: SizeInt);\r\n  public\r\n    const Empty = '';\r\n    // Methods\r\n    Class Function Compare(const A: string; const B: string): Integer; overload; static; //inline;\r\n    Class Function Compare(const A: string; const B: string; IgnoreCase: Boolean): Integer; overload; static; //inline; //deprecated 'Use same with TCompareOptions';\r\n    Class Function Compare(const A: string; const B: string; Options: TCompareOptions): Integer; overload; static; // inline;\r\n    Class Function Compare(const A: string; IndexA: SizeInt; const B: string; IndexB: SizeInt; ALen: SizeInt): Integer; overload; static; // inline;\r\n    Class Function Compare(const A: string; IndexA: SizeInt; const B: string; IndexB: SizeInt; ALen: SizeInt; IgnoreCase: Boolean): Integer; overload; static; // inline; //deprecated 'Use same with TCompareOptions';\r\n    Class Function Compare(const A: string; IndexA: SizeInt; const B: string; IndexB: SizeInt; ALen: SizeInt; Options: TCompareOptions): Integer; overload; static;//  inline;\r\n    Class Function CompareOrdinal(const A: string; const B: string): Integer; overload; static;\r\n    Class Function CompareOrdinal(const A: string; IndexA: SizeInt; const B: string; IndexB: SizeInt; ALen: SizeInt): Integer; overload; static;\r\n    Class Function CompareText(const A: string; const B: string): Integer; static; inline;\r\n    Class Function Copy(const Str: string): string; inline; static;\r\n    Class Function Create(AChar: Char; ACount: SizeInt): string; overload; inline; static;\r\n    Class Function Create(const AValue: array of Char): string; overload; static;\r\n    Class Function Create(const AValue: array of Char; StartIndex: SizeInt; ALen: SizeInt): string; overload; static;\r\n    Class Function EndsText(const ASubText, AText: string): Boolean; static;\r\n    Class Function Equals(const a: string; const b: string): Boolean; overload; static;\r\n    Class Function Format(const AFormat: string; const args: array of const): string; overload; static;\r\n    Class Function IsNullOrEmpty(const AValue: string): Boolean; static;\r\n    Class Function IsNullOrWhiteSpace(const AValue: string): Boolean; static;\r\n    Class Function Join(const Separator: string; const Values: array of const): string; overload; static;\r\n    Class Function Join(const Separator: string; const Values: array of string): string; overload; static;\r\n    Class Function Join(const Separator: string; const Values: array of string; StartIndex: SizeInt; ACount: SizeInt): string; overload; static;\r\n    Class Function LowerCase(const S: string): string; overload; static; inline;\r\n    Class Function Parse(const AValue: Boolean): string; overload; static; inline;\r\n    Class Function Parse(const AValue: Extended): string; overload; static;inline;\r\n    Class Function Parse(const AValue: NativeInt): string; overload; static; inline;\r\n    Class Function Parse(const AValue: Integer): string; overload; static; inline;\r\n    Class Function ToBoolean(const S: string): Boolean; overload; static; inline;\r\n    Class Function ToDouble(const S: string): Double; overload; static; inline;\r\n    Class Function ToExtended(const S: string): Extended; overload; static; inline;\r\n    Class Function ToNativeInt(const S: string): NativeInt; overload; static; inline;\r\n    Class Function ToInteger(const S: string): Integer; overload; static; inline;\r\n    Class Function UpperCase(const S: string): string; overload; static; inline;\r\n    Class Function ToCharArray(const S : String) : TCharArray; static; overload;\r\n    Function CompareTo(const B: string): Integer;\r\n    Function Contains(const AValue: string): Boolean;\r\n    Function CountChar(const C: Char): SizeInt;\r\n    Function DeQuotedString: string; overload;\r\n    Function DeQuotedString(const AQuoteChar: Char): string; overload;\r\n    Function EndsWith(const AValue: string): Boolean; overload; inline;\r\n    Function EndsWith(const AValue: string; IgnoreCase: Boolean): Boolean; overload;\r\n    Function Equals(const AValue: string): Boolean; overload;\r\n    Function Format(const args: array of const): string; overload;\r\n    Function GetHashCode: Integer;\r\n    Function IndexOf(AValue: Char): SizeInt; overload; inline;\r\n    Function IndexOf(const AValue: string): SizeInt; overload; inline;\r\n    Function IndexOf(AValue: Char; StartIndex: SizeInt): SizeInt; overload;\r\n    Function IndexOf(const AValue: string; StartIndex: SizeInt): SizeInt; overload;\r\n    Function IndexOf(AValue: Char; StartIndex: SizeInt; ACount: SizeInt): SizeInt; overload;\r\n    Function IndexOf(const AValue: string; StartIndex: SizeInt; ACount: SizeInt): SizeInt; overload;\r\n    Function IndexOfUnQuoted(const AValue: string; StartQuote, EndQuote: Char; StartIndex: SizeInt = 0): SizeInt; overload;\r\n    Function IndexOfAny(const AnyOf: string): SizeInt; overload;\r\n    Function IndexOfAny(const AnyOf: array of Char): SizeInt; overload;\r\n    Function IndexOfAny(const AnyOf: String; StartIndex: SizeInt): SizeInt; overload;\r\n    Function IndexOfAny(const AnyOf: array of Char; StartIndex: SizeInt): SizeInt; overload;\r\n    Function IndexOfAny(const AnyOf: String; StartIndex: SizeInt; ACount: SizeInt): SizeInt; overload;\r\n    Function IndexOfAny(const AnyOf: array of Char; StartIndex: SizeInt; ACount: SizeInt): SizeInt; overload;\r\n    Function IndexOfAny(const AnyOf: array of String): SizeInt; overload;\r\n    Function IndexOfAny(const AnyOf: array of String; StartIndex: SizeInt): SizeInt; overload;\r\n    Function IndexOfAny(const AnyOf: array of String; StartIndex: SizeInt; ACount: SizeInt): SizeInt; overload;\r\n    Function IndexOfAny(const AnyOf: array of String; StartIndex: SizeInt; ACount: SizeInt; Out AMatch : SizeInt): SizeInt; overload;\r\n    Function IndexOfAnyUnquoted(const AnyOf: array of Char; StartQuote, EndQuote: Char): SizeInt; overload;\r\n    Function IndexOfAnyUnquoted(const AnyOf: array of Char; StartQuote, EndQuote: Char; StartIndex: SizeInt): SizeInt; overload;\r\n    Function IndexOfAnyUnquoted(const AnyOf: array of Char; StartQuote, EndQuote: Char; StartIndex: SizeInt; ACount: SizeInt): SizeInt; overload;\r\n    function IndexOfAnyUnquoted(const AnyOf: array of string; StartQuote, EndQuote: Char; StartIndex: SizeInt; Out Matched: SizeInt): SizeInt; overload;\r\n    Function Insert(StartIndex: SizeInt; const AValue: string): string;\r\n    Function IsDelimiter(const Delimiters: string; Index: SizeInt): Boolean;\r\n    Function IsEmpty: Boolean;\r\n    Function IsNumber: Boolean;\r\n    Function LastDelimiter(const Delims: string): SizeInt;\r\n    Function LastIndexOf(AValue: Char): SizeInt; overload;\r\n    Function LastIndexOf(const AValue: string): SizeInt; overload;\r\n    Function LastIndexOf(AValue: Char; AStartIndex: SizeInt): SizeInt; overload;\r\n    Function LastIndexOf(const AValue: string; AStartIndex: SizeInt): SizeInt; overload;\r\n    Function LastIndexOf(AValue: Char; AStartIndex: SizeInt; ACount: SizeInt): SizeInt; overload;\r\n    Function LastIndexOf(const AValue: string; AStartIndex: SizeInt; ACount: SizeInt): SizeInt; overload;\r\n    Function LastIndexOfAny(const AnyOf: array of Char): SizeInt; overload;\r\n    Function LastIndexOfAny(const AnyOf: array of Char; AStartIndex: SizeInt): SizeInt; overload;\r\n    Function LastIndexOfAny(const AnyOf: array of Char; AStartIndex: SizeInt; ACount: SizeInt): SizeInt; overload;\r\n    Function PadLeft(ATotalWidth: SizeInt): string; overload; inline;\r\n    Function PadLeft(ATotalWidth: SizeInt; PaddingChar: Char): string; overload; inline;\r\n    Function PadRight(ATotalWidth: SizeInt): string; overload; inline;\r\n    Function PadRight(ATotalWidth: SizeInt; PaddingChar: Char): string; overload; inline;\r\n    Function QuotedString: string; overload;\r\n    Function QuotedString(const AQuoteChar: Char): string; overload;\r\n    Function Remove(StartIndex: SizeInt): string; overload; inline;\r\n    Function Remove(StartIndex: SizeInt; ACount: SizeInt): string; overload; inline;\r\n    Function Replace(OldChar: Char; NewChar: Char): string; overload;\r\n    Function Replace(OldChar: Char; NewChar: Char; ReplaceFlags: TReplaceFlags): string; overload;\r\n    Function Replace(const OldValue: string; const NewValue: string): string; overload;\r\n    Function Replace(const OldValue: string; const NewValue: string; ReplaceFlags: TReplaceFlags): string; overload;\r\n    Function Split(const Separators: String): TStringArray; overload;\r\n    Function Split(const Separators: array of Char): TStringArray; overload;\r\n    Function Split(const Separators: string; ACount: SizeInt): TStringArray; overload;\r\n    Function Split(const Separators: array of Char; ACount: SizeInt): TStringArray; overload;\r\n    Function Split(const Separators: string; Options: TStringSplitOptions): TStringArray; overload;\r\n    Function Split(const Separators: array of Char; Options: TStringSplitOptions): TStringArray; overload;\r\n    Function Split(const Separators: string; ACount: SizeInt; Options: TStringSplitOptions): TStringArray; overload;\r\n    Function Split(const Separators: array of Char; ACount: SizeInt; Options: TStringSplitOptions): TStringArray; overload;\r\n    Function Split(const Separators: array of string): TStringArray; overload;\r\n    Function Split(const Separators: array of string; ACount: SizeInt): TStringArray; overload;\r\n    Function Split(const Separators: array of string; Options: TStringSplitOptions): TStringArray; overload;\r\n    Function Split(const Separators: array of string; ACount: SizeInt; Options: TStringSplitOptions): TStringArray; overload;\r\n    Function Split(const Separators: String; AQuote: Char): TStringArray; overload;\r\n    Function Split(const Separators: array of Char; AQuote: Char): TStringArray; overload;\r\n    Function Split(const Separators: String; AQuoteStart, AQuoteEnd: Char): TStringArray; overload;\r\n    Function Split(const Separators: array of Char; AQuoteStart, AQuoteEnd: Char): TStringArray; overload;\r\n    Function Split(const Separators: string; AQuoteStart, AQuoteEnd: Char; Options: TStringSplitOptions): TStringArray; overload;\r\n    Function Split(const Separators: array of Char; AQuoteStart, AQuoteEnd: Char; Options: TStringSplitOptions): TStringArray; overload;\r\n    Function Split(const Separators: string; AQuoteStart, AQuoteEnd: Char; ACount: SizeInt): TStringArray; overload;\r\n    Function Split(const Separators: array of Char; AQuoteStart, AQuoteEnd: Char; ACount: SizeInt): TStringArray; overload;\r\n    Function Split(const Separators: string; AQuoteStart, AQuoteEnd: Char; ACount: SizeInt; Options: TStringSplitOptions): TStringArray; overload;\r\n    Function Split(const Separators: array of Char; AQuoteStart, AQuoteEnd: Char; ACount: SizeInt; Options: TStringSplitOptions): TStringArray; overload;\r\n    Function Split(const Separators: array of string; AQuote: Char): TStringArray; overload;\r\n    Function Split(const Separators: array of string; AQuoteStart, AQuoteEnd: Char): TStringArray; overload;\r\n    Function Split(const Separators: array of string; AQuoteStart, AQuoteEnd: Char; Options: TStringSplitOptions): TStringArray; overload;\r\n    Function Split(const Separators: array of string; AQuoteStart, AQuoteEnd: Char; ACount: SizeInt): TStringArray; overload;\r\n    Function Split(const Separators: array of string; AQuoteStart, AQuoteEnd: Char; ACount: SizeInt; Options: TStringSplitOptions): TStringArray; overload;\r\n    Function StartsWith(const AValue: string): Boolean; overload; inline;\r\n    Function StartsWith(const AValue: string; IgnoreCase: Boolean): Boolean; overload;\r\n    Function Substring(AStartIndex: SizeInt): string; overload;\r\n    Function Substring(AStartIndex: SizeInt; ALen: SizeInt): string; overload;\r\n    Function ToBoolean: Boolean; overload; inline;\r\n    Function ToInteger: Integer; overload; inline;\r\n    Function ToNativeInt: NativeInt; overload; inline;\r\n    Function ToDouble: Double; overload; inline;\r\n    Function ToExtended: Extended; overload; inline;\r\n    Function ToCharArray: TCharArray; overload;\r\n    Function ToCharArray(AStartIndex: SizeInt; ALen: SizeInt): TCharArray; overload;\r\n    Function ToLower: string; overload; inline;\r\n    Function ToLowerInvariant: string;\r\n    Function ToUpper: string; overload; inline;\r\n    Function ToUpperInvariant: string; inline;\r\n    Function Trim: string; overload;\r\n    Function TrimLeft: string; overload;\r\n    Function TrimRight: string; overload;\r\n    Function Trim(const ATrimChars: array of Char): string; overload;\r\n    Function TrimLeft(const ATrimChars: array of Char): string; overload;\r\n    Function TrimRight(const ATrimChars: array of Char): string; overload;\r\n    Function TrimEnd(const ATrimChars: array of Char): string; deprecated 'Use TrimRight';\r\n    Function TrimStart(const ATrimChars: array of Char): string; deprecated 'Use TrimLeft';\r\n    property Chars[AIndex: SizeInt]: Char read GetChar;\r\n    property Length: SizeInt read GetLength write Set_Length;\r\n  end;\r\n\r\n  TDoubleHelper = Type Helper for Double\r\n  private\r\n    Function GetB(AIndex: Cardinal): Byte;\r\n    Function GetW(AIndex: Cardinal): Word;\r\n    Function GetE: NativeUInt; inline;\r\n    Function GetF: NativeUInt; inline;\r\n    Function GetS: Boolean; inline;\r\n    Procedure SetS(aValue : Boolean); inline;\r\n    procedure SetB(AIndex: Cardinal; const AValue: Byte);\r\n    procedure SetW(AIndex: Cardinal; const AValue: Word);\r\n  public\r\n    const\r\n    {$push}\r\n    {$R-}\r\n    {$Q-}\r\n      Epsilon          : Double = 4.9406564584124654418e-324;\r\n      MaxValue         : Double = 1.7976931348623157081e+308;\r\n      MinValue         : Double = -1.7976931348623157081e+308;\r\n      // PositiveInfinity : Double = 1.0/0.0;\r\n      // NegativeInfinity : Double = -1.0/0.0;\r\n      // NaN              : Double = 0.0/0.0;\r\n    {$POP}\r\n    Class Function IsInfinity(const AValue: Double): Boolean; overload; inline; static;\r\n    Class Function IsNan(const AValue: Double): Boolean; overload; inline; static;\r\n    Class Function IsNegativeInfinity(const AValue: Double): Boolean; overload; inline; static;\r\n    Class Function IsPositiveInfinity(const AValue: Double): Boolean; overload; inline; static;\r\n    Class Function Parse(const AString: string): Double; overload; inline; static;\r\n    Class Function ToString(const AValue: Double): string; overload; inline; static;\r\n    Class Function ToString(const AValue: Double; const AFormat: TFloatFormat; const APrecision, ADigits: Integer): string; overload; inline; static;\r\n    Class Function TryParse(const AString: string; out AValue: Double): Boolean; overload; inline; static;\r\n\r\n    Procedure BuildUp(const ASignFlag: Boolean; const AMantissa: NativeUInt; const AExponent: Integer);\r\n    Function Exponent: Integer;\r\n    Function Fraction: Extended;\r\n    Function IsInfinity: Boolean; overload; inline;\r\n    Function IsNan: Boolean; overload; inline;\r\n    Function IsNegativeInfinity: Boolean; overload; inline;\r\n    Function IsPositiveInfinity: Boolean; overload; inline;\r\n    Function Mantissa: NativeUInt;\r\n\r\n    Function ToString(const AFormat: TFloatFormat; const APrecision, ADigits: Integer): string; overload; inline;\r\n    Function ToString: string; overload; inline;\r\n\r\n    property Bytes[AIndex: Cardinal]: Byte read GetB write SetB;  // 0..7\r\n    property Words[AIndex: Cardinal]: Word read GetW write SetW; // 0..3\r\n    property Sign: Boolean read GetS Write SetS;\r\n    property Exp: NativeUInt read GetE;\r\n    property Frac: NativeUInt read GetF;\r\n  end;\r\n\r\n  TByteHelper = Type Helper for Byte\r\n  public\r\n    const\r\n      MaxValue = 255;\r\n      MinValue = 0;\r\n  public\r\n    Class Function Parse(const AString: string): Byte; inline; static;\r\n    Class Function Size: Integer; inline; static;\r\n    Class Function ToString(const AValue: Byte): string; overload; inline; static;\r\n    Class Function TryParse(const AString: string; out AValue: Byte): Boolean; inline; static;\r\n  Public\r\n    Function ToBoolean: Boolean; inline;\r\n    Function ToDouble: Double; inline;\r\n    Function ToExtended: Extended; inline;\r\n    Function ToBinString:string; inline;\r\n    Function ToHexString(const AMinDigits: Integer): string; overload; inline;\r\n    Function ToHexString: string; overload; inline;\r\n    Function ToString: string; overload; inline;\r\n    Function SetBit(const Index: TByteBitIndex) : Byte; inline;\r\n    Function ClearBit(const Index: TByteBitIndex) : Byte; inline;\r\n    Function ToggleBit(const Index: TByteBitIndex) : Byte; inline;\r\n    Function TestBit(const Index:TByteBitIndex):Boolean; inline;\r\n  end;\r\n\r\n  TShortIntHelper = Type Helper for ShortInt\r\n  public\r\n    const\r\n      MaxValue = 127;\r\n      MinValue = -128;\r\n  public\r\n    Class Function Parse(const AString: string): ShortInt; inline; static;\r\n    Class Function Size: Integer; inline; static;\r\n    Class Function ToString(const AValue: ShortInt): string; overload; inline; static;\r\n    Class Function TryParse(const AString: string; out AValue: ShortInt): Boolean; inline; static;\r\n  public\r\n    Function ToBoolean: Boolean; inline;\r\n    Function ToDouble: Double; inline;\r\n    Function ToExtended: Extended; inline;\r\n    Function ToBinString:string; inline;\r\n    Function ToHexString(const AMinDigits: Integer): string; overload; inline;\r\n    Function ToHexString: string; overload; inline;\r\n    Function ToString: string; overload; inline;\r\n    Function SetBit(const Index: TShortIntBitIndex): Shortint; inline;\r\n    Function ClearBit(const Index: TShortIntBitIndex): Shortint; inline;\r\n    Function ToggleBit(const Index: TShortIntBitIndex): Shortint; inline;\r\n    Function TestBit(const Index:TShortIntBitIndex):Boolean; inline;\r\n  end;\r\n\r\n  TSmallIntHelper = Type Helper for SmallInt\r\n  public\r\n    const\r\n      MaxValue = 32767;\r\n      MinValue = -32768;\r\n  public\r\n    Class Function Parse(const AString: string): SmallInt; inline; static;\r\n    Class Function Size: Integer; inline; static;\r\n    Class Function ToString(const AValue: SmallInt): string; overload; inline; static;\r\n    Class Function TryParse(const AString: string; out AValue: SmallInt): Boolean; inline; static;\r\n  public\r\n    Function ToString: string; overload; inline;\r\n    Function ToBoolean: Boolean; inline;\r\n    Function ToBinString:string; inline;\r\n    Function ToHexString: string; overload; inline;\r\n    Function ToHexString(const AMinDigits: Integer): string; overload; inline;\r\n    Function ToDouble: Double; inline;\r\n    Function ToExtended: Extended; inline;\r\n    Function SetBit(const Index: TSmallIntBitIndex) : Smallint; inline;\r\n    Function ClearBit(const Index: TSmallIntBitIndex) : Smallint; inline;\r\n    Function ToggleBit(const Index: TSmallIntBitIndex) : Smallint; inline;\r\n    Function TestBit(const Index:TSmallIntBitIndex):Boolean; inline;\r\n  end;\r\n\r\n  TWordHelper = Type Helper for Word\r\n  public\r\n    const\r\n      MaxValue = 65535;\r\n      MinValue = 0;\r\n  Public\r\n    class function FromBytes(const ALow, AHigh: Byte): Word; inline; static;\r\n    Class Function Parse(const AString: string): Word; inline; static;\r\n    Class Function Size: Integer; inline; static;\r\n    procedure ToBytes(out ALow, AHigh: Byte);\r\n    Class Function ToString(const AValue: Word): string; overload; inline; static;\r\n    Class Function TryParse(const AString: string; out AValue: Word): Boolean; inline; static;\r\n  Public\r\n    Function ToBoolean: Boolean; inline;\r\n    Function ToDouble: Double; inline;\r\n    Function ToExtended: Extended; inline;\r\n    Function ToBinString:string; inline;\r\n    Function ToHexString(const AMinDigits: Integer): string; overload; inline;\r\n    Function ToHexString: string; overload; inline;\r\n    Function ToString: string; overload; inline;\r\n    Function SetBit(const Index: TWordBitIndex) : Word; inline;\r\n    Function ClearBit(const Index: TWordBitIndex) : Word; inline;\r\n    Function ToggleBit(const Index: TWordBitIndex) : Word; inline;\r\n    Function TestBit(const Index:TWordBitIndex):Boolean; inline;\r\n  end;\r\n\r\n  TCardinalHelper = Type Helper for Cardinal { for LongWord Type too }\r\n  public\r\n    const\r\n      MaxValue = 4294967295;\r\n      MinValue = 0;\r\n  Public\r\n    Class Function Parse(const AString: string): Cardinal; inline; static;\r\n    Class Function Size: Integer; inline; static;\r\n    Class Function ToString(const AValue: Cardinal): string; overload; inline; static;\r\n    Class Function TryParse(const AString: string; out AValue: Cardinal): Boolean; inline; static;\r\n  Public\r\n    Function ToBoolean: Boolean; inline;\r\n    Function ToDouble: Double; inline;\r\n    Function ToExtended: Extended; inline;\r\n    Function ToBinString:string; inline;\r\n    Function ToHexString(const AMinDigits: Integer): string; overload; inline;\r\n    Function ToHexString: string; overload; inline;\r\n    Function ToString: string; overload; inline;\r\n    Function SetBit(const Index: TCardinalBitIndex) : Cardinal; inline;\r\n    Function ClearBit(const Index: TCardinalBitIndex) : Cardinal; inline;\r\n    Function ToggleBit(const Index: TCardinalBitIndex) : Cardinal; inline;\r\n    Function TestBit(const Index:TCardinalBitIndex):Boolean; inline;\r\n  end;\r\n\r\n  TIntegerHelper = Type Helper for Integer { for LongInt Type too }\r\n  public\r\n    const\r\n      MaxValue = 2147483647;\r\n      MinValue = -2147483648;\r\n  Public\r\n    Class Function Size: Integer; inline; static;\r\n    Class Function ToString(const AValue: Integer): string; overload; inline; static;\r\n    Class Function Parse(const AString: string): Integer; inline; static;\r\n    Class Function TryParse(const AString: string; out AValue: Integer): Boolean; inline; static;\r\n  Public\r\n    Function ToBoolean: Boolean; inline;\r\n    Function ToDouble: Double; inline;\r\n    Function ToExtended: Extended; inline;\r\n    Function ToBinString:string; inline;\r\n    Function ToHexString(const AMinDigits: Integer): string; overload; inline;\r\n    Function ToHexString: string; overload; inline;\r\n    Function ToString: string; overload; inline;\r\n    Function SetBit(const Index: TIntegerBitIndex) : Integer; inline;\r\n    Function ClearBit(const Index: TIntegerBitIndex) : Integer; inline;\r\n    Function ToggleBit(const Index: TIntegerBitIndex) : Integer; inline;\r\n    Function TestBit(const Index:TIntegerBitIndex):Boolean; inline;\r\n  end;\r\n\r\n  TUInt64Helper = Type Helper for UInt64\r\n  public\r\n    class Function ToString(const AValue: UInt64): string; overload; inline; static;\r\n  public\r\n    Function ToString: string; overload; inline;\r\n  end;\r\n\r\n  TNativeIntHelper = Type Helper for NativeInt\r\n  public\r\n    const\r\n      MaxValue = High(NativeInt);\r\n      MinValue = Low(NativeInt);\r\n  Public\r\n    Class Function Parse(const AString: string): NativeInt; inline; static;\r\n    Class Function Size: Integer; inline; static;\r\n    Class Function ToString(const AValue: NativeInt): string; overload; inline; static;\r\n    Class Function TryParse(const AString: string; out AValue: NativeInt): Boolean; inline; static;\r\n  Public\r\n    Function ToBoolean: Boolean; inline;\r\n    Function ToDouble: Double; inline;\r\n    Function ToExtended: Extended; inline;\r\n    Function ToBinString:string; inline;\r\n    Function ToHexString(const AMinDigits: Integer): string; overload; inline;\r\n    Function ToHexString: string; overload; inline;\r\n    Function ToString: string; overload; inline;\r\n    Function SetBit(const Index: TNativeIntBitIndex) : NativeInt; inline;\r\n    Function ClearBit(const Index: TNativeIntBitIndex) : NativeInt; inline;\r\n    Function ToggleBit(const Index: TNativeIntBitIndex) : NativeInt; inline;\r\n    Function TestBit(const Index:TNativeIntBitIndex):Boolean; inline;\r\n  end;\r\n\r\n  TNativeUIntHelper = Type Helper for NativeUInt\r\n  public\r\n    const\r\n      MaxValue = High(NativeUInt);\r\n      MinValue = 0;\r\n  Public\r\n    Class Function Parse(const AString: string): NativeUInt; inline; static;\r\n    Class Function Size: Integer; inline; static;\r\n    Class Function ToString(const AValue: NativeUInt): string; overload; inline; static;\r\n    Class Function TryParse(const AString: string; out AValue: NativeUInt): Boolean; inline; static;\r\n  Public\r\n    Function ToBoolean: Boolean; inline;\r\n    Function ToDouble: Double; inline;\r\n    Function ToExtended: Extended; inline;\r\n    Function ToBinString:string; inline;\r\n    Function ToHexString(const AMinDigits: Integer): string; overload; inline;\r\n    Function ToHexString: string; overload; inline;\r\n    Function ToSingle: Single; inline;\r\n    Function ToString: string; overload; inline;\r\n    Function SetBit(const Index: TNativeUIntBitIndex) : NativeUint; inline;\r\n    Function ClearBit(const Index: TNativeUIntBitIndex): NativeUint; inline;\r\n    Function ToggleBit(const Index: TNativeUIntBitIndex) : NativeUint; inline;\r\n    Function TestBit(const Index:TNativeUIntBitIndex) :Boolean; inline;\r\n  end;\r\n\r\n{$SCOPEDENUMS ON}\r\n  TUseBoolStrs = (False,True);\r\n{$SCOPEDENUMS OFF}\r\n\r\n  TBooleanHelper = Type Helper for Boolean\r\n  public\r\n    Class Function Parse(const S: string): Boolean; inline; static;\r\n    Class Function Size: Integer; inline; static;\r\n    Class Function ToString(const AValue: Boolean; UseBoolStrs: TUseBoolStrs = TUseBoolStrs.false): string; overload; inline; static;\r\n    Class Function TryToParse(const S: string; out AValue: Boolean): Boolean; inline; static;\r\n  Public\r\n    Function ToInteger: Integer; inline;\r\n    Function ToString(UseBoolStrs: TUseBoolStrs = TUseBoolStrs.False): string; overload; inline;\r\n  end;\r\n\r\n  TByteBoolHelper = Type Helper for ByteBool\r\n  public\r\n    Class Function Parse(const S: string): Boolean; inline; static;\r\n    Class Function Size: Integer; inline; static;\r\n    Class Function ToString(const AValue: Boolean; UseBoolStrs : Boolean = False): string; overload; inline; static;\r\n    Class Function TryToParse(const S: string; out AValue: Boolean): Boolean; inline; static;\r\n  Public\r\n    Function ToInteger: Integer; inline;\r\n    Function ToString(UseBoolStrs: Boolean = False): string; overload; inline;\r\n  end;\r\n\r\n  TWordBoolHelper = Type Helper for WordBool\r\n  public\r\n    Class Function Parse(const S: string): Boolean; inline; static;\r\n    Class Function Size: Integer; inline; static;\r\n    Class Function ToString(const AValue: Boolean; UseBoolStrs: Boolean = False): string; overload; inline; static;\r\n    Class Function TryToParse(const S: string; out AValue: Boolean): Boolean; inline; static;\r\n  Public\r\n    Function ToInteger: Integer; inline;\r\n    Function ToString(UseBoolStrs: boolean = False): string; overload; inline;\r\n  end;\r\n\r\n  TLongBoolHelper = Type Helper for LongBool\r\n  public\r\n    Class Function Parse(const S: string): Boolean; inline; static;\r\n    Class Function Size: Integer; inline; static;\r\n    Class Function ToString(const AValue: Boolean; UseBoolStrs: Boolean= False): string; overload; inline; static;\r\n    Class Function TryToParse(const S: string; out AValue: Boolean): Boolean; inline; static;\r\n  public\r\n    Function ToInteger: Integer; inline;\r\n    Function ToString(UseBoolStrs: Boolean = False): string; overload; inline;\r\n  end;\r\n\r\n  { TStringBuilder }\r\n\r\n  TStringBuilder = class\r\n  private\r\n    const\r\n      DefaultCapacity = 64;\r\n  private\r\n    Function  GetCapacity: Integer;\r\n    Procedure SetCapacity(AValue: Integer);\r\n    Function  GetC(Index: Integer): Char;\r\n    Procedure SetC(Index: Integer; AValue: Char);\r\n    Function  GetLength: Integer; inline;\r\n    Procedure SetLength(AValue: Integer);\r\n  protected\r\n    FData: String;\r\n    FMaxCapacity: Integer;\r\n    // Raise error on range check.\r\n    Procedure CheckRange(Idx,Count,MaxLen : Integer);inline;\r\n    Procedure CheckNegative(Const AValue : Integer; Const AName: String); inline;\r\n    // All appends/inserts pass through here.\r\n\r\n    Procedure DoAppend(Const S : String);virtual; overload;\r\n    Procedure DoAppend(const AValue: Array of char; Idx, aCount: Integer); virtual; overload;\r\n    Procedure DoInsert(Index: Integer; const AValue: String); virtual; overload;\r\n    Procedure DoInsert(Index: Integer; const AValue: Array of char; StartIndex, aCharCount: Integer); virtual; overload;\r\n    Procedure DoReplace(Index: Integer; const Old, New: String); virtual;\r\n    Procedure Grow;\r\n    Procedure Shrink;\r\n  public\r\n    Constructor Create; overload;\r\n    Constructor Create(aCapacity: Integer); overload;\r\n    Constructor Create(const AValue: String); overload;\r\n    Constructor Create(aCapacity: Integer; aMaxCapacity: Integer); overload;\r\n    Constructor Create(const AValue: String; aCapacity: Integer); overload;\r\n    Constructor Create(const AValue: String; StartIndex: Integer; aLength: Integer; aCapacity: Integer); overload;\r\n\r\n    Function Append(const AValue: Boolean): TStringBuilder; overload;\r\n    Function Append(const AValue: Byte): TStringBuilder; overload;\r\n    Function Append(const AValue: Char): TStringBuilder; overload;\r\n    Function Append(const AValue: Currency): TStringBuilder; overload;\r\n    Function Append(const AValue: Double): TStringBuilder; overload;\r\n    Function Append(const AValue: Smallint): TStringBuilder; overload;\r\n    Function Append(const AValue: LongInt): TStringBuilder; overload;\r\n    Function Append(const AValue: Int64): TStringBuilder; overload;\r\n    Function Append(const AValue: TObject): TStringBuilder; overload;\r\n    Function Append(const AValue: Shortint): TStringBuilder; overload;\r\n    Function Append(const AValue: UInt64): TStringBuilder; overload;\r\n    Function Append(const AValue: Array of char): TStringBuilder; overload;\r\n    Function Append(const AValue: Word): TStringBuilder; overload;\r\n    Function Append(const AValue: Cardinal): TStringBuilder; overload;\r\n    Function Append(const AValue: String): TStringBuilder; overload;\r\n    Function Append(const AValue: Char; RepeatCount: Integer): TStringBuilder; overload;\r\n    Function Append(const AValue: Array of char; StartIndex: Integer; SBCharCount: Integer): TStringBuilder; overload;\r\n    Function Append(const AValue: String; StartIndex: Integer; Count: Integer): TStringBuilder; overload;\r\n\r\n    Function Append(const Fmt: String; const Args: array of const): TStringBuilder; overload;\r\n    Function AppendFormat(const Fmt: String; const Args: array of const): TStringBuilder;\r\n    Function AppendLine: TStringBuilder; overload;\r\n    Function AppendLine(const AValue: String): TStringBuilder; overload;\r\n\r\n    Procedure Clear;\r\n    Procedure CopyTo(SourceIndex: Integer; Var Destination: Array of char; DestinationIndex: Integer; Count: Integer);\r\n    Function EnsureCapacity(aCapacity: Integer): Integer;\r\n    Function Equals(StringBuilder: TStringBuilder): Boolean; reintroduce;\r\n\r\n    Function Insert(Index: Integer; const AValue: Boolean): TStringBuilder; overload;\r\n    Function Insert(Index: Integer; const AValue: Byte): TStringBuilder; overload;\r\n    Function Insert(Index: Integer; const AValue: Char): TStringBuilder; overload;\r\n    Function Insert(Index: Integer; const AValue: Currency): TStringBuilder; overload;\r\n    Function Insert(Index: Integer; const AValue: Double): TStringBuilder; overload;\r\n    Function Insert(Index: Integer; const AValue: Smallint): TStringBuilder; overload;\r\n    Function Insert(Index: Integer; const AValue: LongInt): TStringBuilder; overload;\r\n    Function Insert(Index: Integer; const AValue: Array of char): TStringBuilder; overload;\r\n    Function Insert(Index: Integer; const AValue: Int64): TStringBuilder; overload;\r\n    Function Insert(Index: Integer; const AValue: TObject): TStringBuilder; overload;\r\n    Function Insert(Index: Integer; const AValue: Shortint): TStringBuilder; overload;\r\n    Function Insert(Index: Integer; const AValue: String): TStringBuilder; overload;\r\n    Function Insert(Index: Integer; const AValue: Word): TStringBuilder; overload;\r\n    Function Insert(Index: Integer; const AValue: Cardinal): TStringBuilder; overload;\r\n    Function Insert(Index: Integer; const AValue: UInt64): TStringBuilder; overload;\r\n    Function Insert(Index: Integer; const AValue: String; const aRepeatCount: Integer): TStringBuilder; overload;\r\n    Function Insert(Index: Integer; const AValue: Array of char; startIndex: Integer; SBCharCount: Integer): TStringBuilder; overload;\r\n\r\n    Function Remove(StartIndex: Integer; RemLength: Integer): TStringBuilder;\r\n\r\n    Function Replace(const OldValue, NewValue: String): TStringBuilder; overload;\r\n    Function Replace(const OldValue, NewValue: String; StartIndex: Integer; Count: Integer): TStringBuilder; overload;\r\n    Function ToString: String; override; overload;\r\n    Function ToString(aStartIndex: Integer; aLength: Integer): String; reintroduce; overload;\r\n    property Chars[index: Integer]: Char read GetC write SetC; default;\r\n    property Length: Integer read GetLength write SetLength;\r\n    property Capacity: Integer read GetCapacity write SetCapacity;\r\n    property MaxCapacity: Integer read FMaxCapacity;\r\n  end;\r\n\r\n  TEncoding = class(TObject)\r\n  strict private class var\r\n    FANSI: TEncoding;\r\n    FASCII: TEncoding;\r\n    FUnicode: TEncoding;\r\n    FUTF7: TEncoding;\r\n    FUTF8: TEncoding;\r\n  strict private\r\n    class function GetANSI: TEncoding;\r\n    class function GetASCII: TEncoding;\r\n    class function GetDefault: TEncoding;\r\n    class function GetUnicode: TEncoding;\r\n    class function GetUTF7: TEncoding;\r\n    class function GetUTF8: TEncoding;\r\n  strict protected\r\n    function GetEncoding: string; virtual;\r\n  public\r\n    class function IsStandardEncoding(AEncoding: TEncoding): Boolean;\r\n    function GetByteCount(const AChars: string): Integer; overload; virtual; abstract;\r\n    function GetByteCount(const AChars: string; const ACharCount: Integer): Integer; overload;\r\n    function GetByteCount(const AChars: string; const ACharIndex, ACharCount: Integer): Integer; overload; inline;\r\n    function GetBytes(const AChars: string): TBytes; overload; virtual; abstract;\r\n    function GetBytes(const AChars: string; const ACharCount: Integer): TBytes; overload;\r\n    function GetBytes(const AChars: string; const ACharIndex, ACharCount: Integer): TBytes; overload; inline;\r\n    function GetString(const ABytes: TBytes): string; overload; virtual; abstract;\r\n    function GetString(const ABytes: TBytes; const ACharCount: Integer): string; overload;\r\n    function GetString(const ABytes: TBytes; const ACharIndex, ACharCount: Integer): string; overload; inline;\r\n    class property ANSI: TEncoding read GetANSI;\r\n    class property ASCII: TEncoding read GetASCII;\r\n    class property Default: TEncoding read GetDefault;\r\n    property Encoding: string read GetEncoding;\r\n    class property Unicode: TEncoding read GetUnicode;\r\n    class property UTF7: TEncoding read GetUTF7;\r\n    class property UTF8: TEncoding read GetUTF8;\r\n  end;\r\n\r\n  TANSIEncoding = class(TEncoding)\r\n  strict protected\r\n    function GetEncoding: string; override;\r\n  public\r\n    function GetByteCount(const AChars: string): Integer; overload; override;\r\n    function GetBytes(const AChars: string): TBytes; overload; override;\r\n    function GetString(const ABytes: TBytes): string; overload; override;\r\n  end;\r\n\r\n  TASCIIEncoding = class(TANSIEncoding)\r\n  strict protected\r\n    function GetEncoding: string; override;\r\n  end;\r\n\r\n  TUnicodeEncoding = class(TEncoding)\r\n  strict private\r\n    procedure InternalGetBytes(const AChars: string; out ABytes: TBytes);\r\n  strict protected\r\n    function GetEncoding: string; override;\r\n  public\r\n    function GetByteCount(const AChars: string): Integer; overload; override;\r\n    function GetBytes(const AChars: string): TBytes; overload; override;\r\n    function GetString(const ABytes: TBytes): string; overload; override;\r\n  end;\r\n\r\n  TUTF8Encoding = class(TEncoding)\r\n  strict private\r\n    class function BytesToMemory(ABytes: TBytes): TJSArrayBuffer;\r\n    class function MemoryToBytes(AMem: TJSUInt8Array): TBytes; overload;\r\n  strict protected\r\n    function GetEncoding: string; override;\r\n  public\r\n    function GetByteCount(const AChars: string): Integer; overload; override;\r\n    function GetBytes(const AChars: string): TBytes; overload; override;\r\n    function GetString(const ABytes: TBytes): string; overload; override;\r\n  end;\r\n\r\n  TUTF7Encoding = class(TUTF8Encoding)\r\n  strict protected\r\n    function GetEncoding: string; override;\r\n  end;\r\n\r\ntype\r\n  TCmdLineSwitchType = (clstValueNextParam, clstValueAppended, clstValueInternalUse);\r\n  TCmdLineSwitchTypes = set of TCmdLineSwitchType;\r\nconst\r\n  clstValueNextParamForce: TCmdLineSwitchType = clstValueInternalUse;\r\n  SwitchChars: TSysCharSet = ['-'];\r\n\r\nfunction FindCmdLineSwitch(const ASwitch: string): Boolean; overload;\r\nfunction FindCmdLineSwitch(const ASwitch: string; AIgnoreCase: Boolean): Boolean; overload;\r\nfunction FindCmdLineSwitch(const ASwitch: string; const AChars: TSysCharSet; AIgnoreCase: Boolean): Boolean; overload;\r\nfunction FindCmdLineSwitch(const ASwitch: string; var AValue: string; AIgnoreCase: Boolean = True; const ASwitchTypes: TCmdLineSwitchTypes = [clstValueNextParam, clstValueAppended]): Boolean; overload;\r\n\r\ntype\r\n  TProc = reference to procedure;\r\n  TProc<T> = reference to procedure(AArg1: T);\r\n  TProc<T1, T2> = reference to procedure(AArg1: T1; AArg2: T2);\r\n  TProc<T1, T2, T3> = reference to procedure(AArg1: T1; AArg2: T2; AArg3: T3);\r\n  TProc<T1, T2, T3, T4> = reference to procedure(AArg1: T1; AArg2: T2; AArg3: T3; AArg4: T4);\r\n\r\n  TFunc<TResult> = reference to function: TResult;\r\n  TFunc<T, TResult> = reference to function(AArg1: T): TResult;\r\n  TFunc<T1, T2, TResult> = reference to function(AArg1: T1; AArg2: T2): TResult;\r\n  TFunc<T1, T2, T3, TResult> = reference to function(AArg1: T1; AArg2: T2; AArg3: T3): TResult;\r\n  TFunc<T1, T2, T3, T4, TResult> = reference to function(AArg1: T1; AArg2: T2; AArg3: T3; Arg4: T4): TResult;\r\n\r\n  TPredicate<T> = reference to function(AArg1: T): Boolean;\r\n\r\nimplementation\r\n\r\ntype\r\n  TBytesHelper = record helper for TBytes\r\n  strict private\r\n    function GetLength: Integer;\r\n    procedure SetLength(const AValue: Integer);\r\n  public\r\n    function High: Integer;\r\n    function Low: Integer;\r\n    function SubBytes(const AStartIndex, ALength: Integer): TBytes; overload; inline;\r\n    property Length: Integer read GetLength write SetLength;\r\n  end;\r\n\r\n  TWords = array of Word;\r\n  TWordsHelper = record helper for TWords\r\n  strict private\r\n    function GetLength: Integer;\r\n    procedure SetLength(const AValue: Integer);\r\n  public\r\n    class function FromBytes(const ABytes: TBytes): TWords; static;\r\n    function High: Integer;\r\n    function Low: Integer;\r\n    function ToBytes: TBytes;\r\n    property Length: Integer read GetLength write SetLength;\r\n  end;\r\n\r\nConst\r\n  DefaultShortMonthNames : TMonthNames = (\r\n    'Jan',\r\n    'Feb',\r\n    'Mar',\r\n    'Apr',\r\n    'May',\r\n    'Jun',\r\n    'Jul',\r\n    'Aug',\r\n    'Sep',\r\n    'Oct',\r\n    'Nov',\r\n    'Dec');\r\n  DefaultLongMonthNames : TMonthNames = (\r\n    'January',\r\n    'February',\r\n    'March',\r\n    'April',\r\n    'May',\r\n    'June',\r\n    'July',\r\n    'August',\r\n    'September',\r\n    'October',\r\n    'November',\r\n    'December');\r\n  DefaultShortDayNames : TDayNames = (\r\n    'Sun',\r\n    'Mon',\r\n    'Tue',\r\n    'Wed',\r\n    'Thu',\r\n    'Fri',\r\n    'Sat');\r\n\r\n  DefaultLongDayNames : TDayNames = (\r\n    'Sunday',\r\n    'Monday',\r\n    'Tuesday',\r\n    'Wednesday',\r\n    'Thursday',\r\n    'Friday',\r\n    'Saturday');\r\n\r\nvar\r\n  FInvariant: TFormatSettings;\r\n  FInvariantCreated: Boolean;\r\n\r\n{ ---------------------------------------------------------------------\r\n  Exception handling\r\n  ---------------------------------------------------------------------}\r\nResourcestring\r\n  SAbortError = 'Operation aborted';\r\n  SApplicationException = 'Application raised an exception: ';\r\n  SErrUnknownExceptionType = 'Caught unknown exception type : ';\r\n\r\nprocedure Randomize;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure DoShowException(S : String);\r\n\r\nbegin\r\n  if Assigned(OnShowException) then\r\n    OnShowException(S)\r\n  else\r\n    begin\r\n    {$IFDEF BROWSER}\r\n      asm\r\n        window.alert(S);\r\n      end;\r\n    {$ENDIF}\r\n    {$IFDEF NODEJS}\r\n      Writeln(S);\r\n    {$ENDIF}\r\n    end;\r\nend;\r\n\r\nprocedure ShowException(ExceptObject: TObject; ExceptAddr: Pointer = Nil);\r\n\r\nVar\r\n  S : String;\r\n\r\nbegin\r\n  S:=SApplicationException+ExceptObject.ClassName;\r\n  if ExceptObject is Exception then\r\n    S:=S+' : '+Exception(ExceptObject).Message;\r\n  DoShowException(S);\r\n  if ExceptAddr=nil then;\r\nend;\r\n\r\nType\r\n  TRTLExceptionHandler = procedure (aError : JSValue);\r\n\r\nVar\r\n  rtlExceptionHandler : TRTLExceptionHandler; External name 'rtl.onUncaughtException';\r\n  rtlShowUncaughtExceptions : Boolean; External name 'rtl.showUncaughtExceptions';\r\n  OnPascalException : TUncaughtPascalExceptionHandler;\r\n  OnJSException : TUncaughtJSExceptionHandler;\r\n\r\nProcedure RTLExceptionHook(aError : JSValue);\r\n\r\nVar\r\n  S : String;\r\n\r\nbegin\r\n  if isClassInstance(aError) then\r\n    begin\r\n    if Assigned(OnPascalException) then\r\n      OnPascalException(TObject(aError))\r\n    else\r\n      ShowException(TObject(aError),Nil);\r\n    end\r\n  else if isObject(aError) then\r\n    begin\r\n    if Assigned(OnJSException) then\r\n      OnJSException(TJSObject(aError))\r\n    else\r\n      begin\r\n      if TJSObject(aError).hasOwnProperty('message') then\r\n        S:=SErrUnknownExceptionType+String(TJSObject(aError).Properties['message'])\r\n      else\r\n        S:=SErrUnknownExceptionType+TJSObject(aError).toString;\r\n      DoShowException(S);\r\n      end\r\n    end\r\n  else\r\n    begin\r\n    S:=SErrUnknownExceptionType+String(aError);\r\n    DoShowException(S);\r\n    end;\r\nend;\r\n\r\n\r\n\r\nFunction SetOnUnCaughtExceptionHandler(aValue : TUncaughtPascalExceptionHandler) : TUncaughtPascalExceptionHandler;\r\n\r\nbegin\r\n  Result:=OnPascalException;\r\n  OnPascalException:=aValue;\r\n  HookUncaughtExceptions;\r\nend;\r\n\r\nFunction SetOnUnCaughtExceptionHandler(aValue : TUncaughtJSExceptionHandler) : TUncaughtJSExceptionHandler;\r\n\r\nbegin\r\n  Result:=OnJSException;\r\n  OnJSException:=aValue;\r\n  HookUncaughtExceptions;\r\nend;\r\n\r\nProcedure HookUncaughtExceptions;\r\n\r\nbegin\r\n  rtlExceptionHandler:=@RTLExceptionHook;\r\n  rtlShowUncaughtExceptions:=True;\r\nend;\r\n\r\nprocedure Abort;\r\nbegin\r\n  Raise EAbort.Create(SAbortError);\r\nend;\r\n\r\nFunction CharInSet(Ch: Char;Const CSet : TSysCharSet) : Boolean; overload;\r\nbegin\r\n  Result:=Ch in CSet;\r\nend;\r\n\r\nfunction CharInSet(Ch: Char; const CSet: array of char): Boolean; overload;\r\n\r\nVar\r\n  I : integer;\r\n\r\nbegin\r\n  Result:=False;\r\n  I:=Length(CSet)-1;\r\n  While (Not Result) and (I>=0) do\r\n    begin\r\n    Result:=(Ch=CSet[i]);\r\n    Dec(I);\r\n    end;\r\nend;\r\n\r\nfunction LeftStr(const S: string; Count: Integer): String; assembler;\r\nasm\r\n  return (Count>0) ? S.substr(0,Count) : \"\";\r\nend;\r\n\r\nfunction RightStr(const S: string; Count: Integer): String; assembler;\r\nasm\r\n  var l = S.length;\r\n  return (Count<1) ? \"\" : ( Count>=l ? S : S.substr(l-Count));\r\nend;\r\n\r\nfunction Trim(const S: String): String; assembler;\r\nasm\r\n  return S.replace(/^[\\s\\uFEFF\\xA0\\x00-\\x1f]+/,'').replace(/[\\s\\uFEFF\\xA0\\x00-\\x1f]+$/,'');\r\nend;\r\n\r\nfunction TrimLeft(const S: String): String; assembler;\r\nasm\r\n  return S.replace(/^[\\s\\uFEFF\\xA0\\x00-\\x1f]+/,'');\r\nend;\r\n\r\nfunction TrimRight(const S: String): String; assembler;\r\nasm\r\n  return S.replace(/[\\s\\uFEFF\\xA0\\x00-\\x1f]+$/,'');\r\nend;\r\n\r\nfunction IntToStr(const Value: Integer): string;\r\nbegin\r\n  Result:=str(Value);\r\nend;\r\n\r\nfunction FloatToDecimal(Value: double; Precision, Decimals: integer): TFloatRec;\r\n\r\n  {$ifdef DEBUGFLOATTODECIMAL}\r\n  Procedure dump;\r\n  \r\n  var\r\n    I : Integer;\r\n    S : String;\r\n  begin\r\n    for I:=0 to  FloatRecDigits do\r\n      begin\r\n      if I>0 then S:=S+',';\r\n      if Result.Digits[i]=#0 then\r\n        S:=S+'_'\r\n      else  \r\n        S:=S+Result.Digits[i];\r\n      end;\r\n    Writeln('Digits : (',S,') Exp: ',Result.Exponent,', Neg: ',Result.Negative);  \r\n  end;\r\n  {$endif}\r\n\r\nConst\r\n  Rounds = '123456789:';\r\n\r\nvar\r\n  Buffer: String;  //Though str func returns only 25 chars, this might change in the future\r\n  InfNan: string;\r\n  OutPos,Error, N, L, C: Integer;\r\n  GotNonZeroBeforeDot, BeforeDot : boolean;\r\n\r\n  \r\n\r\nbegin\r\n  {$ifdef DEBUGFLOATTODECIMAL}\r\n  Writeln('Precision ',Precision,' decimals: ',Decimals);\r\n  {$ENDIF}\r\n  Result.Negative:=False;\r\n  Result.Exponent:=0;\r\n  For C:=0 to FloatRecDigits do\r\n    Result.Digits[C]:='0';\r\n  if Value=0 then\r\n    exit;\r\n  Str(Value:24,Buffer); // Double precision\r\n  {$ifdef DEBUGFLOATTODECIMAL}\r\n  writeln('12345678901234567890123456789012345678901234567890');\r\n  Writeln('Buffer :',Buffer);\r\n  {$ENDIF}\r\n  N := 1;\r\n  L := Length(Buffer);\r\n  while Buffer[N]=' ' do\r\n    Inc(N);\r\n  Result.Negative := (Buffer[N] = '-');\r\n  if Result.Negative then\r\n    Inc(N)\r\n  else if (Buffer[N] = '+') then\r\n    inc(N);\r\n  { special cases for Inf and Nan }\r\n  if (L>=N+2) then\r\n    begin\r\n      InfNan:=copy(Buffer,N,3);\r\n      if (InfNan='Inf') then\r\n        begin\r\n          Result.Digits[0]:=#0;\r\n          Result.Exponent:=32767;\r\n          exit\r\n        end;\r\n      if (InfNan='Nan') then\r\n        begin\r\n          Result.Digits[0]:=#0;\r\n          Result.Exponent:=-32768;\r\n          exit\r\n        end;\r\n    end;\r\n  //Start := N;  //Start of digits\r\n  Outpos:=0;\r\n  Result.Exponent := 0; BeforeDot := true;\r\n  GotNonZeroBeforeDot := false;\r\n  while (L>=N) and (Buffer[N]<>'E') do\r\n    begin\r\n      {$ifdef DEBUGFLOATTODECIMAL}\r\n      Writeln('Examining : ',Buffer[N],' (output pos: ',outPos,')');\r\n      {$ENDIF}\r\n      if Buffer[N]='.' then\r\n        BeforeDot := false\r\n      else\r\n        begin\r\n        if BeforeDot then\r\n          begin  // Currently this is always 1 char\r\n            Inc(Result.Exponent);\r\n            Result.Digits[Outpos] := Buffer[N];\r\n            if Buffer[N] <> '0' then\r\n              GotNonZeroBeforeDot := true;\r\n          end\r\n        else\r\n          Result.Digits[Outpos] := Buffer[N];\r\n        {$ifdef DEBUGFLOATTODECIMAL}\r\n        Dump;\r\n        {$ENDIF}\r\n        Inc(outpos);\r\n        end;\r\n      Inc(N);\r\n    end;\r\n  {$ifdef DEBUGFLOATTODECIMAL}\r\n  Dump;  \r\n  {$ENDIF}\r\n  Inc(N); // Pass through 'E'\r\n  if N<=L then\r\n    begin\r\n      Val(Copy(Buffer, N, L-N+1), C, Error); // Get exponent after 'E'\r\n      Inc(Result.Exponent, C);\r\n    end;\r\n  // Calculate number of digits we have from str\r\n  N:=OutPos;\r\n  {$ifdef DEBUGFLOATTODECIMAL}\r\n  Writeln('Number of digits: ',N,' requested precision : ',Precision);\r\n  {$ENDIF}\r\n  L:=Length(Result.Digits);\r\n  While N<L do\r\n    begin\r\n    Result.Digits[N]:='0';  //Zero remaining space\r\n    Inc(N);\r\n    end;\r\n  if Decimals + Result.Exponent < Precision Then //After this it is the same as in FloatToDecimal\r\n    N := Decimals + Result.Exponent\r\n  Else\r\n    N := Precision;\r\n  if N >= L Then\r\n    N := L-1;\r\n  {$ifdef DEBUGFLOATTODECIMAL}\r\n  Writeln('Rounding on digit : ',N);\r\n  {$ENDIF}\r\n  if N = 0 Then\r\n    begin\r\n      if Result.Digits[0] >= '5' Then\r\n        begin\r\n          Result.Digits[0] := '1';\r\n          Result.Digits[1] := #0;\r\n          Inc(Result.Exponent);\r\n        end\r\n      Else\r\n        Result.Digits[0] := #0;\r\n    end  //N=0\r\n  Else if N > 0 Then\r\n    begin\r\n      if Result.Digits[N] >= '5' Then\r\n        begin\r\n          Repeat\r\n            Result.Digits[N] := #0;\r\n            Dec(N);\r\n           {$ifdef DEBUGFLOATTODECIMAL}\r\n            Writeln(N,': ',Result.Digits[N],', Rounding to : ',Rounds[StrToInt(Result.Digits[N])]);\r\n            {$ENDIF}\r\n            Result.Digits[N]:=Rounds[StrToInt(Result.Digits[N])+1];\r\n          Until (N = 0) Or (Result.Digits[N] < ':');\r\n          If Result.Digits[0] = ':' Then\r\n            begin\r\n              Result.Digits[0] := '1';\r\n              Inc(Result.Exponent);\r\n            end;\r\n        end\r\n      Else\r\n        begin\r\n          Result.Digits[N] := '0';\r\n          While (N > -1) And (Result.Digits[N] = '0') Do\r\n            begin\r\n              Result.Digits[N] := #0;\r\n              Dec(N);\r\n            end;\r\n        end;\r\n      end //N>0\r\n  Else\r\n    Result.Digits[0] := #0;\r\n  if (Result.Digits[0] = #0) and\r\n     not GotNonZeroBeforeDot then\r\n    begin\r\n      Result.Exponent := 0;\r\n      Result.Negative := False;\r\n    end;\r\n  {$ifdef DEBUGFLOATTODECIMAL}\r\n  Dump;\r\n  {$ENDIF}\r\nend;\r\n\r\n\r\nFunction FloatToStr(Value: Double; const aSettings : TFormatSettings): String; overload;\r\n\r\nbegin\r\n  Result:=FloatToStrF(Value,ffGeneral,15,0,aSettings);\r\nend;\r\n\r\nfunction FloatToStr(Value: Double): String;\r\nbegin\r\n  Result:=FloatToStr(Value,FormatSettings);\r\nend;\r\n\r\nfunction TryStrToFloat(const S: String; out res: Extended): Boolean;\r\nbegin\r\n  Result:=TryStrToFloat(S,double(res));\r\nend;\r\n\r\nfunction TryStrToFloat(const S: String; out res: Double): Boolean;\r\n\r\nbegin\r\n  Result:=TryStrToFloat(S,Res,FormatSettings);\r\nend;\r\n\r\nfunction TryStrToFloat(const S: String; out res: Extended; const aSettings : TFormatSettings): Boolean;\r\n\r\nbegin\r\n  Result:=TryStrToFloat(S,double(res),aSettings);\r\nend;\r\n\r\nfunction TryStrToFloat(const S: String; out res: Double; const aSettings : TFormatSettings): Boolean;\r\n\r\nType\r\n  TDecimalPart = (dpDigit,dpSignificand,dpExp);\r\n\r\nVar\r\n  J : JSValue;\r\n  I,aStart,Len : integer;\r\n  N : String;\r\n  p : TDecimalPart;\r\n\r\n\r\nbegin\r\n  Result:=False;\r\n  N:=S;\r\n  // Delocalize\r\n  if (aSettings.ThousandSeparator <>'') then\r\n    N:=StringReplace(N,aSettings.ThousandSeparator,'',[rfReplaceAll]);\r\n  if (aSettings.DecimalSeparator<>'.') then\r\n    N:=StringReplace(N,aSettings.DecimalSeparator,'.',[]);\r\n  p:=dpDigit;\r\n  I:=1;\r\n  aStart:=1;\r\n  Len:=Length(N);\r\n  While (I<=Len) do\r\n    begin\r\n    Case N[i] of\r\n      '+','-' :\r\n        Case p of\r\n          dpSignificand:\r\n            Exit;\r\n          dpDigit :\r\n            if I>aStart then\r\n              Exit;\r\n          dpExp :\r\n            if( I>aStart+1) then\r\n              Exit;\r\n        end;\r\n      '0'..'9' : ;\r\n      '.' :\r\n        begin\r\n        if (p<>dpDigit) then\r\n          Exit;\r\n        p:=dpSignificand;\r\n        aStart:=I;\r\n        end;\r\n      'E','e':\r\n        begin\r\n        if p=dpExp then\r\n          Exit\r\n        else\r\n          begin\r\n          p:=dpExp;\r\n          aStart:=I;\r\n          end;\r\n        end;\r\n    Else\r\n      Exit;\r\n    end;\r\n    inc(I);\r\n    end;\r\n  J:=parseFloat(N);\r\n  Result:=Not jsIsNaN(J);\r\n  if Result then\r\n    Res:=Double(J);\r\nend;\r\n\r\nfunction StrToFloatDef(const S: String; const aDef: Double; const aSettings : TFormatSettings): Double;\r\nbegin\r\n  if not TryStrToFloat(S,Result,aSettings) then\r\n    Result:=aDef;\r\nend;\r\n\r\nfunction StrToFloatDef(const S: String; const aDef: Double): Double;\r\nbegin\r\n  if not TryStrToFloat(S,Result,FormatSettings) then\r\n    Result:=aDef;\r\nend;\r\n\r\nfunction StrToFloat(const S: String): Double;\r\nbegin\r\n  Result:=StrToFloat(S,FormatSettings);\r\nend;\r\n\r\nfunction StrToFloat(const S: String; const aSettings : TFormatSettings): Double;\r\nbegin\r\n  if not TryStrToFloat(S,Result,aSettings) then\r\n    Raise EConvertError.CreateFmt(SErrInvalidFloat,[S]);\r\nend;\r\n\r\nFunction FormatFloat (Fmt : String; aValue : Double) : String;\r\nbegin\r\n  Result:=FormatFloat(Fmt,aValue,FormatSettings);\r\nend;\r\n\r\nfunction FormatFloat(Fmt: String; aValue: Double; aSettings : TFormatSettings): String;\r\n\r\nType\r\n  TPosArray = Array of Integer;\r\n\r\nconst\r\n  MaxPrecision = 18;  // Extended precision\r\n\r\nvar\r\n  // Input in usable format\r\n  E : Extended;              // Value as extended.\r\n  FV: TFloatRec;             // Value as floatrec.\r\n  Section : String;          // Format can contain 3 sections, semicolon separated: Pos;Neg;Zero. This is the one to use.\r\n  SectionLength : Integer;   // Length of section.\r\n  // Calculated based on section. Static during output\r\n  ThousandSep: Boolean;      // Thousands separator detected in format ?\r\n  IsScientific: Boolean;     // Use Scientific notation ? (E detected in format)\r\n  DecimalPos: Integer;       // Position of decimal point in pattern.\r\n  FirstDigit: Integer;       // First actual digit in input (# or 0), relative to decimal point\r\n  LastDigit: Integer;        // Last required (0) digit, relative to decimal point\r\n  RequestedDigits: Integer;  // Number of requested digits, # and 0 alike\r\n  ExpSize : Integer;         // Number of digits in exponent\r\n  Available: Integer;        // Available digits in FV.\r\n  // These change during output loop\r\n  Current: Integer;          // Current digit in available digits\r\n  PadZeroes: Integer;        // Difference in requested digits before comma and exponent, needs to be padded with zeroes.\r\n  DistToDecimal: Integer;    // Place of current digit, relative to decimal point taking in account PadZeroes!\r\n\r\n  Procedure InitVars;\r\n\r\n  begin\r\n    E:=aValue;\r\n    Section:='';\r\n    SectionLength:=0;\r\n    ThousandSep:=false;\r\n    IsScientific:=false;\r\n    DecimalPos:=0;\r\n    FirstDigit:=MaxInt;\r\n    LastDigit:=0;\r\n    RequestedDigits:=0;\r\n    ExpSize:=0;\r\n    Available:=-1;\r\n  end;\r\n\r\n  procedure ToResult(const AChar: Char);\r\n  begin\r\n    Result:=Result+AChar;\r\n  end;\r\n\r\n  procedure AddToResult(const AStr: String);\r\n\r\n  begin\r\n    Result:=Result+AStr;\r\n  end;\r\n\r\n  procedure WriteDigit(ADigit: Char);\r\n\r\n  // Write a digit to result, prepend with decimalseparator or append with 1000 separator\r\n\r\n  begin\r\n    if ADigit=#0 then exit;\r\n    // Writeln('WriteDigit: ',ADigit,', DistToDecimal: ',DistToDecimal);\r\n    Dec(DistToDecimal);\r\n    // -1 -> we've arrived behind the decimal\r\n    if (DistToDecimal=-1) then\r\n      begin\r\n      AddToResult(aSettings.DecimalSeparator);\r\n      ToResult(ADigit);\r\n      end\r\n    else\r\n      begin\r\n      // We're still before the decimal.\r\n      ToResult(ADigit);\r\n      if ThousandSep and ((DistToDecimal mod 3)=0) and (DistToDecimal>1) then\r\n        AddToResult(aSettings.ThousandSeparator);\r\n      end;\r\n  end;\r\n\r\n  Function GetDigit : Char;\r\n\r\n  // Return next digit from available digits.\r\n  // May return #0 if none available.\r\n  // Will return '0' if applicable.\r\n\r\n  begin\r\n    // Writeln(' DistToDecimal <= LastDigit : ',DistToDecimal,' <= ',LastDigit,' have digit: ',Current<=Available, ' (',Current,')');\r\n    Result:=#0;\r\n    if (Current<=Available) then\r\n      begin\r\n      Result:=FV.Digits[Current];\r\n      Inc(Current);\r\n      end\r\n    else if (DistToDecimal <= LastDigit) then\r\n      Dec(DistToDecimal)\r\n    else\r\n      Result:='0';\r\n    // Writeln('GetDigit ->: ',Result);\r\n  end;\r\n\r\n  procedure CopyDigit;\r\n\r\n  // Copy a digit (#, 0) to the output with the correct value\r\n\r\n  begin\r\n    // Writeln('CopyDigit: Padzeroes: ',PadZeroes,', DistToDecimal: ',DistToDecimal);\r\n    if (PadZeroes=0) then\r\n      WriteDigit(GetDigit) // No shift needed, just copy what is available.\r\n    else if (PadZeroes<0) then\r\n      begin\r\n      // We must prepend zeroes\r\n      Inc(PadZeroes);\r\n      if (DistToDecimal<=FirstDigit) then\r\n        WriteDigit('0')\r\n      else\r\n        Dec(DistToDecimal);\r\n      end\r\n    else\r\n      begin\r\n      // We must append zeroes\r\n      while PadZeroes > 0 do\r\n        begin\r\n        WriteDigit(GetDigit);\r\n        Dec(PadZeroes);\r\n        end;\r\n      WriteDigit(GetDigit);\r\n      end;\r\n  end;\r\n\r\n  Function GetSections(Var SP : TPosArray) : Integer;\r\n\r\n  var\r\n    FL : Integer;\r\n    i : Integer;\r\n    C,Q : Char;\r\n    inQuote : Boolean;\r\n\r\n  begin\r\n    Result:=1;\r\n    SP[1]:=-1;\r\n    SP[2]:=-1;\r\n    SP[3]:=-1;\r\n    inQuote:=False;\r\n    Q:=#0;\r\n    I:=1;\r\n    FL:=Length(Fmt);\r\n    while (I<=FL) do\r\n      begin\r\n      C:=Fmt[I];\r\n      case C of\r\n      ';':\r\n        begin\r\n        if not InQuote then\r\n          begin\r\n          if Result>3 then\r\n            Raise Exception.Create('Invalid float format');\r\n          SP[Result]:=I;\r\n          Inc(Result);\r\n          end;\r\n        end;\r\n      '\"','''':\r\n        begin\r\n        if InQuote then\r\n          InQuote:=C<>Q\r\n        else\r\n          begin\r\n          InQuote:=True;\r\n          Q:=C;\r\n          end;\r\n        end;\r\n      end;\r\n      Inc(I);\r\n      end;\r\n    if SP[Result]=-1 then\r\n      SP[Result]:=FL+1;\r\n  end;\r\n\r\n  Procedure AnalyzeFormat;\r\n\r\n  var\r\n    I,Len: Integer;\r\n    Q,C: Char;\r\n    InQuote : Boolean;\r\n\r\n  begin\r\n    Len:=Length(Section);\r\n    // writeln(len);\r\n    I:=1;\r\n    InQuote:=False;\r\n    Q:=#0;\r\n    while (I<=Len) do\r\n      begin\r\n      C:=Section[i];\r\n      if C in ['\"',''''] then\r\n        begin\r\n        if InQuote then\r\n          InQuote:=C<>Q\r\n        else\r\n          begin\r\n          InQuote:=True;\r\n          Q:=C;\r\n          end;\r\n        end\r\n      else if not InQuote then\r\n        case C of\r\n        '.':\r\n          if (DecimalPos=0) then\r\n            DecimalPos:=RequestedDigits+1;\r\n        ',':\r\n            ThousandSep:=aSettings.ThousandSeparator<>#0;\r\n        'e', 'E':\r\n            begin\r\n            Inc(I);\r\n            if (I<Len) then\r\n              begin\r\n              C:=Section[i];\r\n              IsScientific:=C in ['-','+'];\r\n              if IsScientific then\r\n                while (I<Len) and (Section[i+1]='0') do\r\n                  begin\r\n                  Inc(ExpSize);\r\n                  Inc(I);\r\n                  end;\r\n              if ExpSize>4 then\r\n                ExpSize:=4;\r\n              end;\r\n            end;\r\n        '#':\r\n            Inc(RequestedDigits);\r\n        '0':\r\n            begin\r\n            if RequestedDigits<FirstDigit then\r\n              FirstDigit:=RequestedDigits+1;\r\n            Inc(RequestedDigits);\r\n            LastDigit:=RequestedDigits+1;\r\n            end;\r\n        end;\r\n      Inc(I);\r\n      end;\r\n    if DecimalPos=0 then\r\n      DecimalPos:=RequestedDigits+1;\r\n    // Writeln('LastDigit: ',DecimalPos,'-',LastDigit);\r\n    LastDigit:=DecimalPos-LastDigit;\r\n    if LastDigit>0 then\r\n      LastDigit:=0;\r\n    // Writeln('FirstDigit: ',DecimalPos,'-',FirstDigit);\r\n    FirstDigit:=DecimalPos-FirstDigit;\r\n    if FirstDigit<0 then\r\n      FirstDigit:=0;\r\n  end;\r\n\r\n  Function ValueOutSideScope : Boolean;\r\n  begin\r\n    With FV do\r\n     Result:=((Exponent >= 18) and (not IsScientific)) or (Exponent = $7FF) or (Exponent = $800)\r\n  end;\r\n\r\n  Procedure CalcRunVars;\r\n\r\n  Var\r\n    D,P: Integer;\r\n\r\n  begin\r\n    if IsScientific then\r\n      begin\r\n      P:=RequestedDigits;\r\n      D:=9999;\r\n      end\r\n    else\r\n      begin\r\n      P:=MaxPrecision;\r\n      // Writeln(RequestedDigits,'-',DecimalPos,'+1');\r\n      D:=RequestedDigits-DecimalPos+1;\r\n      end;\r\n    FV:=FloatToDecimal(aValue,P,D);\r\n    // Writeln('Number of digits available : ',Length(FV.Digits));\r\n    //   For p:=0 to Length(FV.Digits)-1 do\r\n    // Writeln(P,': ',FV.Digits[p]);\r\n    DistToDecimal:=DecimalPos-1;\r\n    // Writeln('DistToDecimal : ',DistToDecimal);\r\n    if IsScientific then\r\n      PadZeroes:=0 // No padding.\r\n    else\r\n      begin\r\n      PadZeroes:=FV.Exponent-(DecimalPos-1);\r\n      if (PadZeroes>=0) then\r\n        DistToDecimal:=FV.Exponent\r\n      end;\r\n    // Writeln('PadZeroes : ',PadZeroes, ', DistToDecimal : ',DistToDecimal);\r\n    Available:=-1;\r\n    while (Available<High(FV.Digits)) and (FV.Digits[Available+1]<>#0) do\r\n      Inc(Available);\r\n    // Writeln('Available: ',Available);\r\n  end;\r\n\r\n  Function FormatExponent(ASign: Char; aExponent: Integer) : String;\r\n\r\n  begin\r\n    Result:=IntToStr(aExponent);\r\n    Result:=StringOfChar('0',ExpSize-Length(Result))+Result;\r\n    if (aExponent<0) then\r\n      Result:='-'+Result\r\n    else if (aExponent>0) and (aSign='+') then\r\n      Result:=aSign+Result;\r\n  end;\r\n\r\nvar\r\n  I,S : Integer;\r\n  C,Q : Char;\r\n  PA : TPosArray;\r\n  InLiteral : Boolean;\r\n\r\nbegin\r\n  SetLength(PA,4);\r\n  Result:='';\r\n  Initvars;\r\n  // What section to use ?\r\n  if (E>0) then\r\n    S:=1\r\n  else if (E<0) then\r\n    S:=2\r\n  else\r\n    S:=3;\r\n  PA[0]:=0;\r\n  I:=GetSections(PA);\r\n  if (I<S) or (PA[S]-PA[S-1]=0) then\r\n    S:=1;\r\n  // Extract correct section\r\n  SectionLength:=PA[S]-PA[S-1]-1;\r\n  Section:=Copy(Fmt,PA[S-1]+1,SectionLength);\r\n  SetLength(Section,SectionLength);\r\n  // Writeln('Section ',I,' : \"',Section,'\" ',SectionLength);\r\n  AnalyzeFormat;\r\n  // Writeln('RequestedDigits: ',RequestedDigits,', DecimalPos : ',DecimalPos,', LastDigit: ',LastDigit,', FirstDigit: ',FirstDigit);\r\n  CalcRunVars;\r\n  // If we cannot process value using current settings, fallback\r\n  if (SectionLength=0) or ValueOutSideScope then\r\n    begin\r\n    asm\r\n     Section=E.toPrecision(15);\r\n    end;\r\n    Result:=Section;\r\n    end;\r\n  // Get Started\r\n  I:=1;\r\n  Current:=0;\r\n  Q:=' ';\r\n  InLiteral:=False;\r\n  if (FV.Negative) and (S=1) then\r\n    ToResult('-');\r\n  while (I<=SectionLength) do\r\n    begin\r\n    C:=Section[i];\r\n    // Writeln('Analyzing pos ',I,': \"',C,'\"');\r\n    If (C in ['\"', '''']) then\r\n      begin\r\n      if InLiteral then\r\n        InLiteral:=C<>Q\r\n      else\r\n        begin\r\n        inLiteral:=True;\r\n        Q:=C;\r\n        end;\r\n      end\r\n    else if InLiteral then\r\n      ToResult(C)\r\n    else\r\n      case C of\r\n      '0', '#':\r\n        CopyDigit;\r\n      '.', ',':\r\n        ; // Do nothing, handled by CopyDigit\r\n      'e', 'E':\r\n        begin\r\n        ToResult(C); // Always needed\r\n        Inc(I);\r\n        if I<=Length(Section) then\r\n          begin\r\n          C:=Section[I];\r\n          if (C in ['+','-']) then\r\n            begin\r\n            AddToResult(FormatExponent(C,FV.Exponent-DecimalPos+1));\r\n            // Skip rest\r\n            while (I<SectionLength) and (Section[i+1]='0') do\r\n              Inc(I);\r\n            end;\r\n          end;\r\n        end;\r\n      else\r\n        ToResult(C);\r\n      end;\r\n    Inc(i);\r\n    end;\r\nend;\r\n\r\nfunction StrToBool(const S: String): Boolean;\r\nbegin\r\n  if not(TryStrToBool(S,Result)) then\r\n    raise EConvertError.CreateFmt(SInvalidBoolean,[S]);\r\nend;\r\n\r\nprocedure CheckBoolStrs;\r\nbegin\r\n  if Length(TrueBoolStrs)=0 then\r\n  begin\r\n    SetLength(TrueBoolStrs,1);\r\n    TrueBoolStrs[0]:='True';\r\n  end;\r\n  if Length(FalseBoolStrs)=0 then\r\n  begin\r\n    SetLength(FalseBoolStrs,1);\r\n    FalseBoolStrs[0]:='False';\r\n  end;\r\nend;\r\n\r\nfunction BoolToStr(B: Boolean; UseBoolStrs: Boolean): string;\r\nbegin\r\n  if UseBoolStrs Then\r\n  begin\r\n    CheckBoolStrs;\r\n    if B then\r\n      Result:=TrueBoolStrs[0]\r\n    else\r\n      Result:=FalseBoolStrs[0];\r\n  end else\r\n    if B then\r\n      Result:='-1'\r\n    else\r\n      Result:='0';\r\nend;\r\n\r\nfunction BoolToStr(B: Boolean; const TrueS, FalseS: String): string;\r\nbegin\r\n  if B then Result:=TrueS else Result:=FalseS;\r\nend;\r\n\r\nfunction StrToBoolDef(const S: String; Default: Boolean): Boolean;\r\nbegin\r\n  if not TryStrToBool(S,Result) then\r\n    Result:=Default;\r\nend;\r\n\r\nfunction TryStrToBool(const S: String; out Value: Boolean): Boolean;\r\nVar\r\n  Temp : String;\r\n  I    : Longint;\r\n  D : Double;\r\n  Code: integer;\r\nbegin\r\n  Temp:=uppercase(S);\r\n  Val(Temp,D,code);\r\n  Result:=true;\r\n  If Code=0 then\r\n    Value:=(D<>0.0)\r\n  else\r\n    begin\r\n      CheckBoolStrs;\r\n      for I:=low(TrueBoolStrs) to High(TrueBoolStrs) do\r\n        if Temp=uppercase(TrueBoolStrs[I]) then\r\n          begin\r\n            Value:=true;\r\n            exit;\r\n          end;\r\n      for I:=low(FalseBoolStrs) to High(FalseBoolStrs) do\r\n        if Temp=uppercase(FalseBoolStrs[I]) then\r\n          begin\r\n            Value:=false;\r\n            exit;\r\n          end;\r\n      Result:=false;\r\n    end;\r\nend;\r\n\r\nfunction UpperCase(const s: String): String; assembler;\r\nasm\r\n  return s.toUpperCase();\r\nend;\r\n\r\nfunction LowerCase(const s: String): String; assembler;\r\nasm\r\n  return s.toLowerCase();\r\nend;\r\n\r\nfunction CompareStr(const s1, s2: String): Integer; assembler;\r\nasm\r\n  var l1 = s1.length;\r\n  var l2 = s2.length;\r\n  if (l1<=l2){\r\n    var s = s2.substr(0,l1);\r\n    if (s1<s){ return -1;\r\n    } else if (s1>s){ return 1;\r\n    } else { return l1<l2 ? -1 : 0; };\r\n  } else {\r\n    var s = s1.substr(0,l2);\r\n    if (s<s2){ return -1;\r\n    } else { return 1; };\r\n  };\r\nend;\r\n\r\nfunction SameStr(const s1, s2: String): Boolean; assembler;\r\nasm\r\n  return s1 == s2;\r\nend;\r\n\r\nfunction CompareText(const s1, s2: String): Integer; assembler;\r\nasm\r\n  var l1 = s1.toLowerCase();\r\n  var l2 = s2.toLowerCase();\r\n  if (l1>l2){ return 1;\r\n  } else if (l1<l2){ return -1;\r\n  } else { return 0; }\r\nend;\r\n\r\nfunction SameText(const s1, s2: String): Boolean; assembler;\r\nasm\r\n  return s1.toLowerCase() == s2.toLowerCase();\r\nend;\r\n\r\nfunction AnsiCompareText(const s1, s2: String): Integer; assembler;\r\nasm\r\n  return s1.localeCompare(s2);\r\nend;\r\n\r\nfunction AnsiSameText(const s1, s2: String): Boolean; assembler;\r\nasm\r\n  return s1.toLowerCase() == s2.toLowerCase();\r\nend;\r\n\r\nfunction AnsiCompareStr(const s1, s2: String): Integer;\r\nbegin\r\n  {$IFDEF ECMAScript6}\r\n  Result:=CompareText(TJSString(s1).normalize(),TJSString(s2).normalize());\r\n  {$ELSE}\r\n  Result:=CompareText(s1,s2);\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure AppendStr(var Dest: String; const S: string);\r\n\r\nbegin\r\n  Dest:=Dest+S;\r\nend;\r\n\r\n\r\nConst\r\n  feInvalidFormat   = 1;\r\n  feMissingArgument = 2;\r\n  feInvalidArgIndex = 3;\r\n\r\nProcedure DoFormatError (ErrCode : Longint;const fmt: String);\r\nbegin\r\n  //!! must be changed to contain format string...\r\n  Case ErrCode of\r\n   feInvalidFormat : raise EConvertError.Createfmt(SInvalidFormat,[Fmt]);\r\n   feMissingArgument : raise EConvertError.Createfmt(SArgumentMissing,[Fmt]);\r\n   feInvalidArgIndex : raise EConvertError.Createfmt(SInvalidArgIndex,[Fmt]);\r\n  end;\r\nend;\r\n\r\nConst\r\n  maxdigits = 15;\r\nFunction SwapEndian(W : Word) : Word;\r\n\r\nbegin\r\n  Result:=((W and $FF) shl 8) or ((W shr 8) and $FF)\r\nend;\r\n\r\nFunction SwapEndian(C : Cardinal) : Cardinal;\r\n\r\nbegin\r\n  Result:=((C and $FF) shl 24)\r\n           or ((C and $FF00) shl 8)\r\n           or ((C shr 8) and $FF00)\r\n           or ((C shr 24) and $FF);\r\nend;\r\n\r\nFunction ReplaceDecimalSep(S: String; Const DS : string) : string;\r\n\r\nVar\r\n  P : Integer;\r\n\r\nbegin\r\n  P:=Pos('.',S);\r\n  if P>0 then\r\n    Result:=Copy(S,1,P-1)+DS+Copy(S,P+1,Length(S)-P)\r\n  else\r\n    Result:=S;\r\nend;\r\n\r\nfunction FormatGeneralFloat(Value : double; Precision : Integer; DS : String) : string;\r\n\r\nVar\r\n  P, PE, Q, Exponent: Integer;\r\n\r\nBegin\r\n  If (Precision = -1) Or (Precision > maxdigits) Then\r\n     Precision := maxdigits;\r\n  { First convert to scientific format, with correct precision }\r\n  Str(Value:precision+7, Result);\r\n  { Delete leading spaces }\r\n  Result:=TrimLeft(Result);\r\n  P:=Pos('.',Result);\r\n  if P=0 then\r\n    exit;\r\n   { Consider removing exponent }\r\n  PE:=Pos('E',Result);\r\n  if PE=0 then\r\n    begin\r\n    Result:=ReplaceDecimalSep(Result,DS);\r\n    exit;\r\n    end;\r\n  { Read exponent }\r\n  Q:=PE+2;\r\n  Exponent := 0;\r\n  while (Q <= Length(Result)) do\r\n    begin\r\n    Exponent := Exponent*10 + Ord(Result[Q])-Ord('0');\r\n    Inc(Q);\r\n    end;\r\n  if Result[PE+1] = '-' then\r\n    Exponent := -Exponent;\r\n  if (P+Exponent < PE) and (Exponent > -6) then\r\n    begin\r\n    { OK to remove exponent }\r\n    SetLength(Result,PE-1); { Trim exponent }\r\n    if Exponent >= 0 then\r\n      begin\r\n        { Shift point to right }\r\n      for Q := 0 to Exponent-1 do\r\n        begin\r\n        Result[P] := Result[P+1];\r\n        Inc(P);\r\n        end;\r\n      Result[P] := '.';\r\n      P := 1;\r\n      if Result[P] = '-' then\r\n        Inc(P);\r\n      while (Result[P] = '0') and (P < Length(Result)) and (Copy(Result,P+1,Length(DS))<>DS) do\r\n          { Trim leading zeros; conversion above should not give any, but occasionally does\r\n            because of rounding }\r\n          System.Delete(Result,P,1);\r\n      end\r\n    else\r\n      begin\r\n      { Add zeros at start }\r\n      Insert(Copy('00000',1,-Exponent),Result,P-1);\r\n      Result[P-Exponent] := Result[P-Exponent-1]; { Copy leading digit }\r\n      Result[P] := '.';\r\n      if Exponent <> -1 then\r\n        Result[P-Exponent-1] := '0';\r\n      end;\r\n    { Remove trailing zeros }\r\n    Q := Length(Result);\r\n    while (Q > 0) and (Result[Q] = '0') do\r\n      Dec(Q);\r\n    if Result[Q] = '.' then\r\n      Dec(Q); { Remove trailing decimal point }\r\n    if (Q = 0) or ((Q=1) and (Result[1] = '-')) then\r\n      Result := '0'\r\n    else\r\n      SetLength(Result,Q);\r\n    end\r\n  else\r\n    begin\r\n    { Need exponent, but remove superfluous characters }\r\n    { Delete trailing zeros }\r\n    while Result[PE-1] = '0' do\r\n      begin\r\n      System.Delete(Result,PE-1,1);\r\n      Dec(PE);\r\n      end;\r\n    { If number ends in decimal point, remove it }\r\n    if Result[PE-1] = DS then\r\n      begin\r\n      System.Delete(Result,PE-1,1);\r\n      Dec(PE);\r\n      end;\r\n    { delete superfluous + in exponent }\r\n    if Result[PE+1]='+' then\r\n      System.Delete(Result,PE+1,1)\r\n    else\r\n      Inc(PE);\r\n    while Result[PE+1] = '0' do\r\n      { Delete leading zeros in exponent }\r\n      System.Delete(Result,PE+1,1)\r\n    end;\r\n  Result:=ReplaceDecimalSep(Result,DS)\r\nend;\r\n\r\n\r\nfunction FormatExponentFloat(Value : double; Precision,Digits : Integer;DS : String) : string;\r\n\r\nVar\r\n  P: Integer;\r\nBegin\r\n  DS:=FormatSettings.DecimalSeparator;\r\n  If (Precision = -1) Or (Precision > maxdigits) Then\r\n    Precision := maxdigits;\r\n  Str(Value:Precision+7, Result);\r\n  { Delete leading spaces }\r\n  while Result[1] = ' ' do\r\n    System.Delete(Result, 1, 1);\r\n  P:=Pos('E',Result);\r\n  if P=0 then\r\n    begin\r\n    Result:=ReplaceDecimalSep(Result,DS);\r\n    exit;\r\n    end;\r\n  Inc(P, 2);\r\n  if Digits > 4 then\r\n    Digits:=4;\r\n  Digits:=Length(Result) - P - Digits + 1;\r\n  if Digits < 0 then\r\n    insert(copy('0000',1,-Digits),Result,P)\r\n  else\r\n    while (Digits > 0) and (Result[P] = '0') do\r\n      begin\r\n      System.Delete(Result, P, 1);\r\n      if P > Length(Result) then\r\n        begin\r\n        System.Delete(Result, P - 2, 2);\r\n        break;\r\n        end;\r\n      Dec(Digits);\r\n      end;\r\n  Result:=ReplaceDecimalSep(Result,DS);\r\nEnd;\r\n\r\nfunction FormatFixedFloat(Value : double; Digits : Integer; DS : String) : string;\r\n\r\nBegin\r\n  If Digits = -1 Then\r\n    Digits := 2\r\n  Else If Digits > 18 Then\r\n    Digits := 18;\r\n  Str(Value:0:Digits, Result);\r\n  if (Result<>'') and (Result[1]=' ') then\r\n    Delete(Result,1,1);\r\n  Result:=ReplaceDecimalSep(Result,DS);\r\nend;\r\n\r\n\r\nfunction FormatNumberFloat(Value : double; Digits : Integer; DS,TS : String) : string;\r\n\r\nVar\r\n  P : integer;\r\n\r\nBegin\r\n  If Digits = -1 Then\r\n    Digits := 2\r\n  else If Digits > maxdigits Then\r\n    Digits := maxdigits;\r\n  Str(Value:0:Digits, Result);\r\n  if (Result<>'') and (Result[1]=' ') then\r\n    Delete(Result,1,1);\r\n  P:=Pos('.',Result);\r\n  if (P<=0) then\r\n    P:=Length(Result)+1;\r\n  Result:=ReplaceDecimalSep(Result,DS);\r\n  Dec(P,3);\r\n  if (TS<>'') and (TS<>#0) then\r\n    While (P>1) Do\r\n      Begin\r\n      If (Result[P-1] <> '-')  Then\r\n        Insert(TS, Result, P);\r\n      Dec(P, 3);\r\n      End;\r\nEnd;\r\n\r\nfunction RemoveLeadingNegativeSign(var AValue: String; DS : String; aThousandSeparator : String): Boolean;\r\n\r\n// removes negative sign in case when result is zero eg. -0.00\r\n\r\nvar\r\n  i: PtrInt;\r\n  TS: String;\r\n  StartPos: PtrInt;\r\n\r\nbegin\r\n  Result:=False;\r\n  StartPos := 2;\r\n  TS := aThousandSeparator;\r\n  for i :=StartPos to length(AValue) do\r\n    begin\r\n    Result := (AValue[i] in ['0', DS, 'E', '+']) or (aValue[i]=TS);\r\n    if not Result then\r\n      break;\r\n    end;\r\n  if (Result) and (AValue[1]='-') then\r\n    Delete(AValue, 1, 1);\r\nend;\r\n\r\nFunction FormatNumberCurrency(const Value : Currency; Digits : Integer; const aSettings: TFormatSettings) : string;\r\n\r\nVar\r\n  Negative: Boolean;\r\n  P : Integer;\r\n  CS,DS,TS : String;\r\n\r\nBegin\r\n   DS:=aSettings.DecimalSeparator;\r\n   TS:=aSettings.ThousandSeparator;\r\n   CS:=aSettings.CurrencyString;\r\n  //  Writeln('Value ',D);\r\n   If Digits = -1 Then\r\n     Digits := aSettings.CurrencyDecimals\r\n   Else If Digits > 18 Then\r\n     Digits := 18;\r\n   Str(Value:0:Digits, Result);\r\n   // Writeln('1. Result ',Result,' currencystring : ',CS);\r\n   Negative:=Result[1] = '-';\r\n   if Negative then\r\n     System.Delete(Result, 1, 1);\r\n   P := Pos('.', Result);\r\n   // Writeln('2. Result ',Result,' currencystring : ',CurrencyString);\r\n   If TS<>'' Then\r\n     begin\r\n     If P <> 0 Then\r\n       Result:=ReplaceDecimalSep(Result,DS)\r\n     else\r\n       P := Length(Result)+1;\r\n     Dec(P, 3);\r\n     While (P > 1) Do\r\n     Begin\r\n         Insert(TS, Result, P);\r\n     Dec(P, 3);\r\n     End;\r\n     end;\r\n   // Writeln('3. Result ',Result,' currencystring : ',CS);\r\n   if Negative then\r\n     RemoveLeadingNegativeSign(Result,DS,TS);\r\n   // Writeln('4. Result ',Result,' currencystring : ',CurrencyString);\r\n   // Writeln('CurrencyFormat:  ',CurrencyFormat,'NegcurrencyFormat: ',NegCurrFormat);\r\n   If Not Negative Then\r\n     Case aSettings.CurrencyFormat Of\r\n       0: Result := CS + Result;\r\n       1: Result := Result + CS;\r\n       2: Result := CS + ' ' + Result;\r\n       3: Result := Result + ' ' + CS;\r\n     end\r\n   else\r\n     Case aSettings.NegCurrFormat Of\r\n       0: Result := '(' + CS + Result + ')';\r\n       1: Result := '-' + CS + Result;\r\n       2: Result := CS + '-' + Result;\r\n       3: Result := CS + Result + '-';\r\n       4: Result := '(' + Result + CS + ')';\r\n       5: Result := '-' + Result + CS;\r\n       6: Result := Result + '-' + CS;\r\n       7: Result := Result + CS + '-';\r\n       8: Result := '-' + Result + ' ' + CS;\r\n       9: Result := '-' + CS + ' ' + Result;\r\n       10: Result := Result + ' ' + CS + '-';\r\n       11: Result := CS + ' ' + Result + '-';\r\n       12: Result := CS + ' ' + '-' + Result;\r\n       13: Result := Result + '-' + ' ' + CS;\r\n       14: Result := '(' + CS + ' ' + Result + ')';\r\n       15: Result := '(' + Result + ' ' + CS + ')';\r\n     end;\r\nend;\r\n\r\n\r\nfunction FloatToStrF(const Value: double; format: TFloatFormat; Precision,\r\n  Digits: Integer): String;\r\nbegin\r\n  Result:=FloatToStrF(Value,Format,Precision,Digits,Formatsettings);\r\nend;\r\n\r\nfunction FloatToStrF(const Value: double; format: TFloatFormat; Precision,\r\n  Digits: Integer ;const aSettings : TFormatSettings): String;\r\n\r\nVar\r\n  TS,DS: string;\r\n\r\nBegin\r\n  DS:=aSettings.DecimalSeparator;\r\n  TS:=aSettings.ThousandSeparator;\r\n  Case format Of\r\n    ffGeneral:\r\n      Result:=FormatGeneralFloat(Value,Precision,DS);\r\n    ffExponent:\r\n      Result:=FormatExponentFloat(Value,Precision,Digits,DS);\r\n    ffFixed:\r\n      Result:=FormatFixedFloat(Value,Digits,DS);\r\n    ffNumber:\r\n      Result:=FormatNumberFloat(Value,Digits,DS,TS);\r\n    ffCurrency:\r\n     Result:=FormatNumberCurrency(Value,Digits,aSettings);\r\n  end;\r\n  if (Format<>ffCurrency) and (length(Result)>1) and (Result[1]='-') then\r\n    RemoveLeadingNegativeSign(Result,DS,TS);\r\nend;\r\n\r\nfunction Format(const Fmt: String; const Args: array of const): String;\r\n\r\nbegin\r\n  Result:=Format(Fmt,Args,FormatSettings)\r\nend;\r\n\r\nfunction Format(const Fmt: String; const Args: array of Const; const aSettings : TFormatSettings): String;\r\n\r\nVar ChPos,OldPos,ArgPos,DoArg,Len : SizeInt;\r\n    Hs,ToAdd : String;\r\n    Index : Byte;\r\n    Width,Prec : Longint;\r\n    Left : Boolean;\r\n    Fchar : char;\r\n    vq : nativeint;\r\n\r\n  {\r\n    ReadFormat reads the format string. It returns the type character in\r\n    uppercase, and sets index, Width, Prec to their correct values,\r\n    or -1 if not set. It sets Left to true if left alignment was requested.\r\n    In case of an error, DoFormatError is called.\r\n  }\r\n\r\n  Function ReadFormat : Char;\r\n\r\n  Var Value : NativeInt;\r\n\r\n    Procedure ReadInteger;\r\n\r\n    var\r\n      Code: integer;\r\n      ArgN: SizeInt;\r\n    begin\r\n      If Value<>-1 then exit; // Was already read.\r\n      OldPos:=ChPos;\r\n      While (ChPos<=Len) and\r\n            (Fmt[ChPos]<='9') and (Fmt[ChPos]>='0') do inc(ChPos);\r\n      If ChPos>len then\r\n        DoFormatError(feInvalidFormat,Fmt);\r\n      If Fmt[ChPos]='*' then\r\n        begin\r\n\r\n        if Index=High(byte) then\r\n          ArgN:=Argpos\r\n        else\r\n        begin\r\n          ArgN:=Index;\r\n          Inc(Index);\r\n        end;\r\n\r\n        If (ChPos>OldPos) or (ArgN>High(Args)) then\r\n          DoFormatError(feInvalidFormat,Fmt);\r\n\r\n        ArgPos:=ArgN+1;\r\n\r\n        case Args[ArgN].Vtype of\r\n           vtInteger: Value := Args[ArgN].VInteger;\r\n           vtNativeInt: Value := Args[ArgN].VNativeInt;\r\n        else\r\n          DoFormatError(feInvalidFormat,Fmt);\r\n        end;\r\n        Inc(ChPos);\r\n        end\r\n      else\r\n        begin\r\n        If (OldPos<ChPos) Then\r\n          begin\r\n          Val (Copy(Fmt,OldPos,ChPos-OldPos),value,code);\r\n          // This should never happen !!\r\n          If Code>0 then DoFormatError (feInvalidFormat,Fmt);\r\n          end\r\n        else\r\n          Value:=-1;\r\n        end;\r\n    end;\r\n\r\n    Procedure ReadIndex;\r\n\r\n    begin\r\n      If Fmt[ChPos]<>':' then\r\n        ReadInteger\r\n      else\r\n        value:=0; // Delphi undocumented behaviour, assume 0, #11099\r\n      If Fmt[ChPos]=':' then\r\n        begin\r\n        If Value=-1 then DoFormatError(feMissingArgument,Fmt);\r\n        Index:=Value;\r\n        Value:=-1;\r\n        Inc(ChPos);\r\n        end;\r\n    end;\r\n\r\n    Procedure ReadLeft;\r\n\r\n    begin\r\n      If Fmt[ChPos]='-' then\r\n        begin\r\n        left:=True;\r\n        Inc(ChPos);\r\n        end\r\n      else\r\n        Left:=False;\r\n    end;\r\n\r\n    Procedure ReadWidth;\r\n\r\n    begin\r\n      ReadInteger;\r\n      If Value<>-1 then\r\n        begin\r\n        Width:=Value;\r\n        Value:=-1;\r\n        end;\r\n    end;\r\n\r\n    Procedure ReadPrec;\r\n\r\n    begin\r\n      If Fmt[ChPos]='.' then\r\n        begin\r\n        inc(ChPos);\r\n          ReadInteger;\r\n        If Value=-1 then\r\n         Value:=0;\r\n        prec:=Value;\r\n        end;\r\n    end;\r\n\r\n\r\n  begin\r\n    Index:=High(byte);\r\n    Width:=-1;\r\n    Prec:=-1;\r\n    Value:=-1;\r\n    inc(ChPos);\r\n    If Fmt[ChPos]='%' then\r\n      begin\r\n      Result:='%';\r\n      exit;                           // VP fix\r\n      end;\r\n    ReadIndex;\r\n    ReadLeft;\r\n    ReadWidth;\r\n    ReadPrec;\r\n    Result:=Upcase(Fmt[ChPos]);\r\n  end;\r\n\r\n\r\n  function Checkarg (AT : Integer; err:boolean):boolean;\r\n  {\r\n    Check if argument INDEX is of correct type (AT)\r\n    If Index=-1, ArgPos is used, and argpos is augmented with 1\r\n    DoArg is set to the argument that must be used.\r\n  }\r\n  begin\r\n    result:=false;\r\n    if Index=High(Byte) then\r\n      DoArg:=Argpos\r\n    else\r\n      DoArg:=Index;\r\n    ArgPos:=DoArg+1;\r\n    If (Doarg>High(Args)) or (Args[Doarg].VType<>AT) then\r\n     begin\r\n       if err then\r\n        DoFormatError(feInvalidArgindex,Fmt);\r\n       dec(ArgPos);\r\n       exit;\r\n     end;\r\n    result:=true;\r\n  end;\r\n\r\nbegin\r\n  Result:='';\r\n  Len:=Length(Fmt);\r\n  ChPos:=1;\r\n  OldPos:=1;\r\n  ArgPos:=0;\r\n  While ChPos<=len do\r\n    begin\r\n    While (ChPos<=Len) and (Fmt[ChPos]<>'%') do\r\n      inc(ChPos);\r\n    If ChPos>OldPos Then\r\n      Result:=Result+Copy(Fmt,OldPos,ChPos-Oldpos);\r\n    If ChPos<Len then\r\n      begin\r\n      FChar:=ReadFormat;\r\n{$ifdef fmtdebug}\r\n      DumpFormat(FCHar);\r\n{$endif}\r\n      Case FChar of\r\n        'D' : begin\r\n              if Checkarg(vtinteger,false) then\r\n                toAdd:=IntToStr(Args[DoArg].VInteger)\r\n              else if CheckArg(vtNativeInt,True) then\r\n                toAdd:=IntToStr(Args[DoArg].VNativeInt);\r\n              Width:=Abs(width);\r\n              Index:=Prec-Length(ToAdd);\r\n              If ToAdd[1]<>'-' then\r\n                ToAdd:=StringOfChar('0',Index)+ToAdd\r\n              else\r\n                // + 1 to accomodate for - sign in length !!\r\n                Insert(StringOfChar('0',Index+1),toadd,2);\r\n              end;\r\n        'U' : begin\r\n              if Checkarg(vtinteger,false) then\r\n                toAdd:=IntToStr(Cardinal(Args[DoArg].VInteger))\r\n              else if CheckArg(vtNativeInt,True) then\r\n                toAdd:=IntToStr(NativeUInt(Args[DoArg].VNativeInt));\r\n              Width:=Abs(width);\r\n              Index:=Prec-Length(ToAdd);\r\n              ToAdd:=StringOfChar('0',Index)+ToAdd\r\n              end;\r\n        'E' : begin\r\n              if CheckArg(vtCurrency,false) then\r\n                ToAdd:=FloatToStrF(Args[doarg].VCurrency,ffExponent,3,Prec,aSettings)\r\n              else if CheckArg(vtExtended,True) then\r\n                ToAdd:=FloatToStrF(Args[doarg].VExtended,ffExponent,3,Prec,aSettings);\r\n              end;\r\n        'F' : begin\r\n              if CheckArg(vtCurrency,false) then\r\n                ToAdd:=FloatToStrF(Args[doarg].VCurrency,ffFixed,9999,Prec,aSettings)\r\n              else if CheckArg(vtInteger,false) then\r\n                ToAdd:=FloatToStrF(Args[doarg].VExtended,ffFixed,9999,Prec,aSettings)\r\n              else if CheckArg(vtExtended,True) then\r\n                ToAdd:=FloatToStrF(Args[doarg].VExtended,ffFixed,9999,Prec,aSettings);\r\n              end;\r\n        'G' : begin\r\n              if CheckArg(vtCurrency,false) then\r\n                ToAdd:=FloatToStrF(Args[doarg].VCurrency,ffGeneral,Prec,3,aSettings)\r\n              else if CheckArg(vtExtended,True) then\r\n                ToAdd:=FloatToStrF(Args[doarg].VExtended,ffGeneral,Prec,3,aSettings);\r\n              end;\r\n        'N' : begin\r\n              if CheckArg(vtCurrency,false) then\r\n                ToAdd:=FloatToStrF(Args[doarg].VCurrency,ffNumber,9999,Prec,aSettings)\r\n              else if CheckArg(vtExtended,True) then\r\n                ToAdd:=FloatToStrF(Args[doarg].VExtended,ffNumber,9999,Prec,aSettings);\r\n              end;\r\n        'M' : begin\r\n              if CheckArg(vtCurrency,false) then\r\n                ToAdd:=FloatToStrF(Args[doarg].VCurrency,ffCurrency,9999,Prec,aSettings)\r\n              else if CheckArg(vtExtended,True) then\r\n                ToAdd:=FloatToStrF(Args[doarg].VExtended,ffCurrency,9999,Prec,aSettings);\r\n              end;\r\n        'S' : begin\r\n              if CheckArg(vtUnicodeString,false) then\r\n                hs:=Args[doarg].VUnicodeString\r\n              else if CheckArg(vtWideChar,True) then\r\n                hs:=Args[doarg].VWideChar;\r\n              Index:=Length(hs);\r\n              If (Prec<>-1) and (Index>Prec) then\r\n                Index:=Prec;\r\n              ToAdd:=Copy(hs,1,Index);\r\n              end;\r\n        'P' : Begin\r\n              if CheckArg(vtInteger,false) then\r\n                ToAdd:=IntToHex(Args[DoArg].VInteger,8)\r\n              else if CheckArg(vtInteger,true) then\r\n                ToAdd:=IntToHex(Args[DoArg].VNativeInt,16);\r\n              end;\r\n        'X' : begin\r\n              if Checkarg(vtinteger,false) then\r\n                begin\r\n                vq:=Args[Doarg].VInteger;\r\n                Index:=16;\r\n                end\r\n              else if Checkarg(vtNativeint,True) then\r\n                begin\r\n                vq:=Args[Doarg].VNativeInt;\r\n                index:=31; // May need to adjust to NativeInt\r\n                end;\r\n              If Prec>index then\r\n                ToAdd:=IntToHex(vq,index)\r\n              else\r\n                begin\r\n                // determine minimum needed number of hex digits.\r\n                Index:=1;\r\n                While (NativeInt(1) shl (Index*4)<=vq) and (index<16) do\r\n                  inc(Index);\r\n                If Index>Prec then\r\n                  Prec:=Index;\r\n                ToAdd:=IntToHex(vq,Prec);\r\n                end;\r\n              end;\r\n        '%': ToAdd:='%';\r\n      end;\r\n      If Width<>-1 then\r\n        If Length(ToAdd)<Width then\r\n          If not Left then\r\n            ToAdd:=StringOfChar(' ',Width-Length(ToAdd))+ToAdd\r\n          else\r\n            ToAdd:=ToAdd+StringOfChar(' ',Width-Length(ToAdd));\r\n      Result:=Result+ToAdd;\r\n      end;\r\n    inc(ChPos);\r\n    Oldpos:=ChPos;\r\n    end;\r\nend;\r\n\r\nfunction BytesOf(const AVal: string): TBytes;\r\nvar\r\n  I: SizeUInt;\r\nbegin\r\n  SetLength(Result, Length(AVal));\r\n  for I := 0 to Length(AVal)-1 do\r\n    Result[I] := Ord(AVal[I+1]);\r\nend;\r\n\r\nfunction StringOf(const ABytes: TBytes): string;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result:='';\r\n  for I := 0 to Length(ABytes)-1 do\r\n    Result:=Result+Char(ABytes[I]);\r\nend;\r\n\r\nfunction LocaleCompare(const s1, s2, locales: String): Boolean; assembler;\r\nasm\r\n  return s1.localeCompare(s2,locales) == 0;\r\nend;\r\n\r\nfunction NormalizeStr(const S: String; const Norm: String): String; assembler;\r\nasm\r\n  return S.normalize(Norm);\r\nend;\r\n\r\nfunction IsValidIdent(const Ident: string; AllowDots: Boolean = False; StrictDots: Boolean = False): Boolean;\r\nconst\r\n  Alpha = ['A'..'Z', 'a'..'z', '_'];\r\n  AlphaNum = Alpha + ['0'..'9'];\r\n  Dot = '.';\r\nvar\r\n  First: Boolean;\r\n  I, Len: Integer;\r\nbegin\r\n  Len := Length(Ident);\r\n  if Len < 1 then\r\n    Exit(False);\r\n  First := True;\r\n  Result:=false;\r\n  I:=1;\r\n  While I<=len do\r\n    begin\r\n    if First then\r\n    begin\r\n      if not (Ident[I] in Alpha) then exit;\r\n      First := False;\r\n    end\r\n    else if AllowDots and (Ident[I] = Dot) then\r\n    begin\r\n      if StrictDots then\r\n      begin\r\n        if I >= Len then exit;\r\n        First := True;\r\n      end;\r\n    end\r\n    else\r\n      if not (Ident[I] in AlphaNum) then exit;\r\n    I:=I+1;\r\n    end;\r\n  Result:=true;\r\nend;\r\n\r\nprocedure FreeAndNil(var Obj);\r\nvar\r\n  o: TObject;\r\nbegin\r\n  o:=TObject(Obj);\r\n  if o=nil then exit;\r\n  TObject(Obj):=nil;\r\n  o.Destroy;\r\nend;\r\n\r\n{ EVariantError }\r\n\r\nconstructor EVariantError.CreateCode(Code: Longint);\r\nbegin\r\n  ErrCode:=Code;\r\nend;\r\n\r\n{ Exception }\r\n\r\nconstructor Exception.Create(const Msg: String);\r\nbegin\r\n  FMessage := Msg;\r\n  FJSError := TJSError.new(Msg);\r\n  FStack := FJSError.Stack;\r\n  if LogMessageOnCreate then\r\n    Writeln('Created exception ', ClassName, ' with message: ', Msg);\r\nend;\r\n\r\nconstructor Exception.CreateFmt(const Msg: string; const Args: array of Const\r\n  );\r\nbegin\r\n  //writeln('Exception.CreateFmt START ',ClassName,' \"',Msg,'\" Args=',Args);\r\n  Create(Format(Msg,Args));\r\n  //writeln('Exception.CreateFmt END ',ClassName,' \"',Msg,'\" fMessage=',fMessage);\r\nend;\r\n\r\nconstructor Exception.CreateHelp(const Msg: String; AHelpContext: Integer);\r\nbegin\r\n  Create(Msg);\r\n  fHelpContext:=AHelpContext;\r\nend;\r\n\r\nconstructor Exception.CreateFmtHelp(const Msg: string;\r\n  const Args: array of Const; AHelpContext: Integer);\r\nbegin\r\n  Create(Format(Msg,Args));\r\n  fHelpContext:=AHelpContext;\r\nend;\r\n\r\nfunction Exception.ToString: String;\r\nbegin\r\n  Result:=ClassName+': '+Message;\r\nend;\r\n\r\nConst\r\n  RESpecials = '([\\$\\+\\[\\]\\(\\)\\\\\\.\\*\\^\\?\\|])';\r\n\r\nfunction StringReplace(aOriginal, aSearch, aReplace: string;\r\n  Flags: TStringReplaceFlags): String;\r\n\r\nVar\r\n  REFlags : String;\r\n  REString : String;\r\n\r\nbegin\r\n  REFlags:='';\r\n  if rfReplaceAll in flags then\r\n    ReFlags:='g';\r\n  if rfIgnoreCase in flags then\r\n    ReFlags:=ReFlags+'i';\r\n  REString:=TJSString(aSearch).replace(TJSRegexp.new(RESpecials,'g'),'\\$1');\r\n  Result:=TJSString(aOriginal).replace(TJSRegexp.new(REString,REFlags),aReplace);\r\nend;\r\n\r\nfunction QuoteString(aOriginal: String; AQuote: Char): String;\r\n\r\nbegin\r\n  Result:=AQuote+StringReplace(aOriginal,aQuote,aQuote+aQuote,[rfReplaceAll])+AQuote;\r\nend;\r\n\r\nfunction QuotedStr(const s: string; QuoteChar : Char = ''''): string;\r\n\r\nbegin\r\n  Result:=QuoteString(S,QuoteChar);\r\nend;\r\n\r\nfunction DeQuoteString(aQuoted: String; AQuote: Char): String;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  Result:=aQuoted;\r\n  if TJSString(Result).substr(0,1)<>AQuote then exit;\r\n  Result:=TJSString(Result).slice(1);\r\n  i:=1;\r\n  while i<=length(Result) do\r\n    begin\r\n    if Result[i]=AQuote then\r\n      begin\r\n      if (i=length(Result)) or (Result[i+1]<>AQuote) then\r\n        begin\r\n        Result:=TJSString(Result).slice(0,i-1);\r\n        exit;\r\n        end\r\n      else\r\n        Result:=TJSString(Result).slice(0,i-1)+TJSString(Result).slice(i);\r\n      end\r\n    else\r\n      inc(i);\r\n    end;\r\nend;\r\n\r\nfunction IsDelimiter(const Delimiters, S: string; Index: Integer): Boolean;\r\nbegin\r\n  Result:=False;\r\n  if (Index>0) and (Index<=Length(S)) then\r\n    Result:=Pos(S[Index],Delimiters)<>0; // Note we don't do MBCS yet\r\nend;\r\n\r\nFunction LastDelimiter(const Delimiters, S: string): SizeInt;\r\n\r\nbegin\r\n  Result:=Length(S);\r\n  While (Result>0) and (Pos(S[Result],Delimiters)=0) do\r\n    Dec(Result);\r\nend;\r\n\r\n\r\nfunction AdjustLineBreaks(const S: string): string;\r\n\r\nbegin\r\n  Result:=AdjustLineBreaks(S,DefaultTextLineBreakStyle);\r\nend;\r\n\r\nfunction AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle): string;\r\n\r\nvar\r\n  I,L: Longint;\r\n  Res : String;\r\n\r\n  Procedure Add(C  : Char);\r\n  begin\r\n    Res:=Res+C;\r\n  end;\r\n\r\nbegin\r\n  I:=0;\r\n  L:=Length(S);\r\n  Result:='';\r\n  While (I<=L) do\r\n    case S[I] of\r\n      #10: begin\r\n          if Style in [tlbsCRLF,tlbsCR] then\r\n            Add(#13);\r\n          if Style=tlbsCRLF then\r\n            Add(#10);\r\n          Inc(I);\r\n          end;\r\n     #13: begin\r\n          if Style=tlbsCRLF then\r\n            Add(#13);\r\n          Add(#10);\r\n          Inc(I);\r\n          if S[I]=#10 then\r\n            Inc(I);\r\n          end;\r\n    else\r\n      Add(S[i]);\r\n      Inc(I);\r\n    end;\r\n  Result:=Res;\r\nend;\r\n\r\nfunction WrapText(const Line, BreakStr: string;\r\n  const BreakChars: array of char; MaxCol: Integer): string;\r\n\r\nconst\r\n  Quotes = ['''', '\"'];\r\n\r\nVar\r\n  L : String;\r\n  C,LQ,BC : Char;\r\n  P,BLen,Len : Integer;\r\n  HB,IBC : Boolean;\r\n\r\nbegin\r\n  Result:='';\r\n  L:=Line;\r\n  Blen:=Length(BreakStr);\r\n  If (BLen>0) then\r\n    BC:=BreakStr[1]\r\n  else\r\n    BC:=#0;\r\n  Len:=Length(L);\r\n  While (Len>0) do\r\n    begin\r\n    P:=1;\r\n    LQ:=#0;\r\n    HB:=False;\r\n    IBC:=False;\r\n    While ((P<=Len) and ((P<=MaxCol) or not IBC)) and ((LQ<>#0) or Not HB) do\r\n      begin\r\n      C:=L[P];\r\n      If (C=LQ) then\r\n        LQ:=#0\r\n      else If (C in Quotes) then\r\n        LQ:=C;\r\n      If (LQ<>#0) then\r\n        Inc(P)\r\n      else\r\n        begin\r\n        HB:=((C=BC) and (BreakStr=Copy(L,P,BLen)));\r\n        If HB then\r\n          Inc(P,Blen)\r\n        else\r\n          begin\r\n          If (P>=MaxCol) then\r\n            IBC:=CharInSet(C,BreakChars);\r\n          Inc(P);\r\n          end;\r\n        end;\r\n//      Writeln('\"',C,'\" : IBC : ',IBC,' HB  : ',HB,' LQ  : ',LQ,' P>MaxCol : ',P>MaxCol);\r\n      end;\r\n    Result:=Result+Copy(L,1,P-1);\r\n    Delete(L,1,P-1);\r\n    Len:=Length(L);\r\n    If (Len>0) and Not HB then\r\n      Result:=Result+BreakStr;\r\n    end;\r\nend;\r\n\r\nfunction WrapText(const Line: string; MaxCol: Integer): string;\r\n\r\nbegin\r\n  Result:=WrapText(Line,sLineBreak, [' ', '-', #9], MaxCol);\r\nend;\r\n\r\n\r\nfunction GetEnvironmentVariable(const EnvVar: String): String;\r\nbegin\r\n  if Assigned(OnGetEnvironmentVariable) then\r\n    Result:=OnGetEnvironmentVariable(EnvVar)\r\n  else\r\n    Result:='';\r\nend;\r\n\r\nfunction GetEnvironmentVariableCount: Integer;\r\nbegin\r\n  if Assigned(OnGetEnvironmentVariableCount) then\r\n    Result:=OnGetEnvironmentVariableCount()\r\n  else\r\n    Result:=0;\r\nend;\r\n\r\nfunction GetEnvironmentString(Index: Integer): String;\r\nbegin\r\n  if Assigned(OnGetEnvironmentString) then\r\n    Result:=OnGetEnvironmentString(Index)\r\n  else\r\n    Result:='';\r\nend;\r\n\r\n{ Date/Time routines}\r\n\r\nFunction DoEncodeDate(Year, Month, Day: Word): longint;\r\n\r\nVar\r\n  D : TDateTime;\r\n\r\nbegin\r\n  If TryEncodeDate(Year,Month,Day,D) then\r\n    Result:=Trunc(D)\r\n  else\r\n    Result:=0;\r\nend;\r\n\r\nfunction DoEncodeTime(Hour, Minute, Second, MilliSecond: word): TDateTime;\r\n\r\nbegin\r\n  If not TryEncodeTime(Hour,Minute,Second,MilliSecond,Result) then\r\n    Result:=0;\r\nend;\r\n\r\nfunction DateTimeToJSDate(aDateTime: TDateTime): TJSDate;\r\n\r\nVar\r\n  Y,M,D,h,n,s,z : Word;\r\n\r\nbegin\r\n  DecodeDate(Trunc(aDateTime),Y,M,D);\r\n  DecodeTime(Frac(aDateTime),H,N,S,Z);\r\n  Result:=TJSDate.New(Y,M-1,D,h,n,s,z);\r\nend;\r\n\r\nfunction JSDateToDateTime(aDate: TJSDate): TDateTime;\r\n\r\nbegin\r\n  Result:=EncodeDate(ADate.FullYear,ADate.Month+1,ADate.Date) +\r\n          EncodeTime(ADate.Hours,ADate.Minutes,ADate.Seconds,ADate.Milliseconds);\r\nend;\r\n\r\n\r\n{   ComposeDateTime converts a Date and a Time into one TDateTime   }\r\nfunction ComposeDateTime(Date,Time : TDateTime) : TDateTime;\r\n\r\nbegin\r\n  if Date < 0 then\r\n    Result := trunc(Date) - Abs(frac(Time))\r\n  else\r\n    Result := trunc(Date) + Abs(frac(Time));\r\nend;\r\n\r\n\r\nfunction TryEncodeDate(Year, Month, Day: Word; out Date: TDateTime): Boolean;\r\n\r\nvar\r\n  c, ya: LongWord;\r\nbegin\r\n  Result:=(Year>0) and (Year<10000) and\r\n          (Month >= 1) and (Month<=12) and\r\n          (Day>0) and (Day<=MonthDays[IsleapYear(Year),Month]);\r\n If Result then\r\n   begin\r\n     if month > 2 then\r\n      Dec(Month,3)\r\n     else\r\n      begin\r\n        Inc(Month,9);\r\n        Dec(Year);\r\n      end;\r\n     c:= Year DIV 100;\r\n     ya:= Year - 100*c;\r\n     Date := (146097*c) SHR 2 + (1461*ya) SHR 2 + (153*LongWord(Month)+2) DIV 5 + LongWord(Day);\r\n     // Note that this line can't be part of the line above, since TDateTime is\r\n     // signed and c and ya are not\r\n     Date := Date - 693900;\r\n   end\r\nend;\r\n\r\nfunction TryEncodeTime(Hour, Min, Sec, MSec: Word; out Time: TDateTime\r\n  ): Boolean;\r\n\r\nbegin\r\n  Result:=(Hour<24) and (Min<60) and (Sec<60) and (MSec<1000);\r\n  If Result then\r\n    Time:=TDateTime(LongWord(Hour)*3600000+LongWord(Min)*60000+LongWord(Sec)*1000+MSec)/MSecsPerDay;\r\nend;\r\n\r\n{   EncodeDate packs three variables Year, Month and Day into a\r\n    TDateTime value the result is the number of days since 12/30/1899   }\r\n\r\nfunction EncodeDate(Year, Month, Day: word): TDateTime;\r\n\r\nbegin\r\n  If Not TryEncodeDate(Year,Month,Day,Result) then\r\n    Raise EConvertError.CreateFmt('%s-%s-%s is not a valid date specification',\r\n                              [IntToStr(Year),IntToStr(Month),IntToStr(Day)]);\r\nend;\r\n\r\n{   EncodeTime packs four variables Hour, Minute, Second and MilliSecond into\r\n    a TDateTime value     }\r\n\r\nfunction EncodeTime(Hour, Minute, Second, MilliSecond:word):TDateTime;\r\n\r\nbegin\r\n  If not TryEncodeTime(Hour,Minute,Second,MilliSecond,Result) then\r\n    Raise EConvertError.CreateFmt('%s:%s:%s.%s is not a valid time specification',\r\n                              [IntToStr(Hour),IntToStr(Minute),IntToStr(Second),IntToStr(MilliSecond)]);\r\nend;\r\n\r\n\r\n{   DecodeDate unpacks the value Date into three values:\r\n    Year, Month and Day   }\r\n\r\nprocedure DecodeDate(Date: TDateTime; out Year, Month, Day: word);\r\nvar\r\n  ly,ld,lm,j : LongWord;\r\nbegin\r\n  if Date <= -datedelta then  // If Date is before 1-1-1 then return 0-0-0\r\n    begin\r\n    Year := 0;\r\n    Month := 0;\r\n    Day := 0;\r\n    end\r\n  else\r\n    begin\r\n    if Date>0 then\r\n      Date:=(Date+(1/(msecsperday*2)))\r\n    else\r\n      Date:=Date-(1/(msecsperday*2));\r\n    if Date>MaxDateTime then\r\n      Date:=MaxDateTime;\r\n//       Raise EConvertError.CreateFmt('%f is not a valid TDatetime encoding, maximum value is %f.',[Date,MaxDateTime]);\r\n    j := ((Trunc(Date) + 693900) SHL 2)-1;\r\n    ly:= j DIV 146097;\r\n    j:= j - 146097 * LongWord(ly);\r\n    ld := j SHR 2;\r\n    j:=(ld SHL 2 + 3) DIV 1461;\r\n    ld:= ((ld SHL 2) + 7 - 1461*j) SHR 2;\r\n    lm:=(5 * ld-3) DIV 153;\r\n    ld:= (5 * ld +2 - 153*lm) DIV 5;\r\n    ly:= 100 * LongWord(ly) + j;\r\n    if lm < 10 then\r\n     inc(lm,3)\r\n    else\r\n      begin\r\n        dec(lm,9);\r\n        inc(ly);\r\n      end;\r\n    year:=ly;\r\n    month:=lm;\r\n    day:=ld;\r\n    end;\r\nend;\r\n\r\n\r\nfunction DecodeDateFully(const DateTime: TDateTime; out Year, Month, Day, DOW: Word): Boolean;\r\nbegin\r\n  DecodeDate(DateTime,Year,Month,Day);\r\n  DOW:=DayOfWeek(DateTime);\r\n  Result:=IsLeapYear(Year);\r\nend;\r\n  {   DateTimeToTimeStamp converts DateTime to a TTimeStamp   }\r\n\r\nfunction DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp;\r\n\r\nVar\r\n  D : Double;\r\nbegin\r\n  D:=DateTime * Double(MSecsPerDay);\r\n  if D<0 then\r\n    D:=D-0.5\r\n  else\r\n    D:=D+0.5;\r\n  result.Time := Trunc(Abs(Trunc(D)) Mod MSecsPerDay);\r\n  result.Date := DateDelta + (Trunc(D) div MSecsPerDay);\r\nend;\r\n\r\n{   TimeStampToDateTime converts TimeStamp to a TDateTime value   }\r\n\r\nfunction TimeStampToDateTime(const TimeStamp: TTimeStamp): TDateTime;\r\nbegin\r\n  Result := ComposeDateTime(TimeStamp.Date - DateDelta,TimeStamp.Time/MSecsPerDay)\r\nend;\r\n\r\n{   MSecsToTimeStamp   }\r\n\r\nfunction MSecsToTimeStamp(MSecs: NativeInt): TTimeStamp;\r\nbegin\r\n  result.Date := Trunc(msecs/msecsperday);\r\n  msecs:= msecs-NativeInt(result.date)*msecsperday;\r\n  result.Time := Round(MSecs);\r\nend;\r\n\r\nfunction TimeStampToMSecs(const TimeStamp: TTimeStamp): NativeInt;\r\nbegin\r\n  result := TimeStamp.Time + (timestamp.date*msecsperday);\r\nend ;\r\n\r\n\r\n\r\n{   DecodeTime unpacks Time into four values:\r\n    Hour, Minute, Second and MilliSecond    }\r\n\r\nprocedure DecodeTime(Time: TDateTime; out Hour, Minute, Second, MilliSecond: word);\r\nVar\r\n  l : LongWord;\r\nbegin\r\n  l := DateTimeToTimeStamp(Time).Time;\r\n  Hour   := l div 3600000;\r\n  l := l mod 3600000;\r\n  Minute := l div 60000;\r\n  l := l mod 60000;\r\n  Second := l div 1000;\r\n  l := l mod 1000;\r\n  MilliSecond := l;\r\nend;\r\n\r\n{   DateTimeToSystemTime converts DateTime value to SystemTime   }\r\n\r\nprocedure DateTimeToSystemTime(DateTime: TDateTime; out SystemTime: TSystemTime);\r\nbegin\r\n  DecodeDateFully(DateTime, SystemTime.Year, SystemTime.Month, SystemTime.Day,SystemTime.DayOfWeek);\r\n  DecodeTime(DateTime, SystemTime.Hour, SystemTime.Minute, SystemTime.Second, SystemTime.MilliSecond);\r\n  Dec(SystemTime.DayOfWeek);\r\nend ;\r\n\r\n{   SystemTimeToDateTime converts SystemTime to a TDateTime value   }\r\n\r\nfunction SystemTimeToDateTime(const SystemTime: TSystemTime): TDateTime;\r\nbegin\r\n  result := ComposeDateTime(DoEncodeDate(SystemTime.Year, SystemTime.Month, SystemTime.Day),\r\n                            DoEncodeTime(SystemTime.Hour, SystemTime.Minute, SystemTime.Second, SystemTime.MilliSecond));\r\nend ;\r\n\r\nfunction DayOfWeek(DateTime: TDateTime): integer;\r\nbegin\r\n  Result:= 1+((Trunc(DateTime) - 1) mod 7);\r\n  If (Result<=0) then\r\n    Inc(Result,7);\r\nend;\r\n\r\n\r\n\r\nfunction Now: TDateTime;\r\nbegin\r\n  Result:=JSDateToDateTime(TJSDate.New());\r\nend;\r\n\r\nfunction Date: TDateTime;\r\n\r\nbegin\r\n  Result:=Trunc(Now);\r\nend;\r\n\r\nfunction Time: TDateTime;\r\nbegin\r\n  Result:=Now-Date;\r\nend ;\r\n\r\n{   IncMonth increments DateTime with NumberOfMonths months,\r\n    NumberOfMonths can be less than zero   }\r\n\r\nfunction IncMonth(const DateTime: TDateTime; NumberOfMonths: integer = 1 ): TDateTime;\r\nvar\r\n  Year, Month, Day : word;\r\nbegin\r\n  DecodeDate(DateTime, Year, Month, Day);\r\n  IncAMonth(Year, Month, Day, NumberOfMonths);\r\n  result := ComposeDateTime(DoEncodeDate(Year, Month, Day), DateTime);\r\nend ;\r\n\r\n{   IncAMonth is the same as IncMonth, but operates on decoded date  }\r\n\r\nprocedure IncAMonth(var Year, Month, Day: Word; NumberOfMonths: Integer = 1);\r\nvar\r\n  TempMonth, S: Integer;\r\nbegin\r\n  If NumberOfMonths>=0 then\r\n    s:=1\r\n  else\r\n    s:=-1;\r\n  inc(Year,(NumberOfMonths div 12));\r\n  TempMonth:=Month+(NumberOfMonths mod 12)-1;\r\n  if (TempMonth>11) or\r\n     (TempMonth<0) then\r\n   begin\r\n     Dec(TempMonth, S*12);\r\n     Inc(Year, S);\r\n   end;\r\n  Month:=TempMonth+1;          {   Months from 1 to 12   }\r\n  If (Day>MonthDays[IsLeapYear(Year)][Month]) then\r\n    Day:=MonthDays[IsLeapYear(Year)][Month];\r\nend;\r\n\r\n{  IsLeapYear returns true if Year is a leap year   }\r\n\r\nfunction IsLeapYear(Year: Word): boolean;\r\nbegin\r\n  Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));\r\nend;\r\n\r\n{  DateToStr returns a string representation of Date using ShortDateFormat   }\r\n\r\nfunction DateToStr(Date: TDateTime): string;\r\nbegin\r\n  Result:=DateToStr(Date,FormatSettings);\r\nend;\r\n\r\nfunction DateToStr(Date: TDateTime; const aSettings : TFormatSettings): string;\r\nbegin\r\n  Result:=FormatDateTime('ddddd', Date, aSettings);\r\nend ;\r\n\r\n{  TimeToStr returns a string representation of Time using LongTimeFormat   }\r\n\r\nfunction TimeToStr(Time: TDateTime): string;\r\nbegin\r\n  Result:=TimeToStr(Time,FormatSettings);\r\nend;\r\n\r\nfunction TimeToStr(Time: TDateTime; const aSettings : TFormatSettings): string;\r\nbegin\r\n  Result:=FormatDateTime('tt',Time,aSettings);\r\nend ;\r\n\r\n\r\n{   DateTimeToStr returns a string representation of DateTime using LongDateTimeFormat   }\r\n\r\nVar\r\n  DateTimeToStrFormat : Array[Boolean] of string = ('c','f');\r\n\r\n\r\nfunction DateTimeToStr(DateTime: TDateTime; ForceTimeIfZero : Boolean = False): string;\r\n\r\nbegin\r\n  Result:=DateTimeToStr(DateTime,FormatSettings,ForceTimeIfZero);\r\nend;\r\n\r\nfunction DateTimeToStr(DateTime: TDateTime; Const aSettings : TFormatSettings; ForceTimeIfZero : Boolean = False): string;\r\n\r\n\r\nbegin\r\n  Result:=FormatDateTime(DateTimeToStrFormat[ForceTimeIfZero], DateTime,aSettings)\r\nend ;\r\n\r\n\r\n{   StrToDate converts the string S to a TDateTime value\r\n    if S does not represent a valid date value\r\n    an EConvertError will be raised   }\r\n\r\nfunction IntStrToDate(Out ErrorMsg : String; const S: String; const useformat : string; separator : char): TDateTime;\r\n\r\nConst\r\n  WhiteSpace = ' '#8#9#10#12#13;\r\n  Digits = '0123456789';\r\n\r\n  procedure FixErrorMsg(const errmarg : String);\r\n\r\n  begin\r\n    ErrorMsg:=Format(SInvalidDateFormat,[errmarg]);\r\n  end;\r\n\r\nvar\r\n   df:string;\r\n   d,m,y,ly,ld,lm:word;\r\n   n,i,len:longint;\r\n   c: integer;\r\n   dp,mp,yp,which : Byte;\r\n   s1:string;\r\n   values: array of integer;\r\n   YearMoreThenTwoDigits : boolean;\r\n\r\nbegin\r\n  SetLength(values,4);\r\n  Result:=0;\r\n  Len:=Length(S);\r\n  ErrorMsg:='';\r\n  While (Len>0) and (Pos(S[Len],WhiteSpace)>0) do\r\n    Dec(len);\r\n  if (Len=0) then\r\n    begin\r\n    FixErrorMsg(S);\r\n    exit;\r\n    end;\r\n  YearMoreThenTwoDigits := False;\r\n  if separator = #0 then\r\n    if (FormatSettings.DateSeparator<>#0) then\r\n      separator := FormatSettings.DateSeparator\r\n    else\r\n      separator:='-';\r\n  // Writeln('Separator: ',Separator);\r\n  df := UpperCase(useFormat);\r\n  { Determine order of D,M,Y }\r\n  yp:=0;\r\n  mp:=0;\r\n  dp:=0;\r\n  Which:=0;\r\n  i:=0;\r\n  while (i<Length(df)) and (Which<3) do\r\n   begin\r\n     inc(i);\r\n     Case df[i] of\r\n       'Y' :\r\n         if yp=0 then\r\n          begin\r\n            Inc(Which);\r\n            yp:=which;\r\n          end;\r\n       'M' :\r\n         if mp=0 then\r\n          begin\r\n            Inc(Which);\r\n            mp:=which;\r\n          end;\r\n       'D' :\r\n         if dp=0 then\r\n          begin\r\n            Inc(Which);\r\n            dp:=which;\r\n          end;\r\n     end;\r\n   end;\r\n  // Writeln('YP: ',Yp,', MP: ',Mp,', DP: ',DP);\r\n  for i := 1 to 3 do\r\n    values[i] := 0;\r\n  s1 := '';\r\n  n := 0;\r\n  for i := 1 to len do\r\n     begin\r\n     if Pos(s[i],Digits)>0 then\r\n       s1 := s1 + s[i];\r\n     { space can be part of the shortdateformat, and is defaultly in slovak\r\n       windows, therefor it shouldn't be taken as separator (unless so specified)\r\n       and ignored }\r\n     if (Separator <> ' ') and (s[i] = ' ') then\r\n       Continue;\r\n     if (s[i] = separator) or ((i = len) and (Pos(s[i],Digits)>0)) then\r\n      begin\r\n        inc(n);\r\n        if n>3 then\r\n          begin\r\n//            Writeln('More than 3 separators');\r\n            FixErrorMsg(S);\r\n            exit;\r\n          end;\r\n         // Check if the year has more then two digits (if n=yp, then we are evaluating the year.)\r\n        if (n=yp) and (length(s1)>2) then YearMoreThenTwoDigits := True;\r\n        val(s1, values[n], c);\r\n        if c<>0 then\r\n          begin\r\n//            Writeln('S1 not a number ',S1);\r\n            FixErrorMsg(s);\r\n            Exit;\r\n          end;\r\n        s1 := '';\r\n      end\r\n     else if (Pos(s[i],Digits)=0) then\r\n       begin\r\n//       Writeln('Not a number at pos ',I,' ',S[i]);\r\n       FixErrorMsg(s);\r\n       Exit;\r\n       end;\r\n   end ;\r\n//   Writeln('Which : ',Which,' N : ',N);\r\n   if (Which<3) and (N>Which) then\r\n    begin\r\n    FixErrorMsg(s);\r\n    Exit;\r\n    end;\r\n  // Fill in values.\r\n  DecodeDate(Date,Ly,LM,LD);\r\n  If N=3 then\r\n   begin\r\n     y:=values[yp];\r\n     m:=values[mp];\r\n     d:=values[dp];\r\n   end\r\n  Else\r\n  begin\r\n    Y:=ly;\r\n    If n<2 then\r\n     begin\r\n       d:=values[1];\r\n       m := LM;\r\n     end\r\n    else\r\n     If dp<mp then\r\n      begin\r\n        d:=values[1];\r\n        m:=values[2];\r\n      end\r\n    else\r\n      begin\r\n        d:=values[2];\r\n        m:=values[1];\r\n      end;\r\n  end;\r\n  if (y >= 0) and (y < 100) and not YearMoreThenTwoDigits then\r\n    begin\r\n    ly := ly - TwoDigitYearCenturyWindow;\r\n    Inc(Y, ly div 100 * 100);\r\n    if (TwoDigitYearCenturyWindow > 0) and (Y < ly) then\r\n      Inc(Y, 100);\r\n    end;\r\n  if not TryEncodeDate(y, m, d, result) then\r\n    errormsg:=SErrInvalidDate;\r\nend;\r\n\r\nfunction StrToDate(const S: String; const useformat : string; separator : char): TDateTime;\r\nVar\r\n  MSg : String;\r\nbegin\r\n  Result:=IntStrToDate(Msg,S,useFormat,Separator);\r\n  If (Msg<>'') then\r\n    Raise EConvertError.Create(Msg);\r\nend;\r\n\r\nfunction StrToDate(const S: String; const aSettings : TFormatSettings): TDateTime;\r\n\r\nbegin\r\n  Result:=StrToDate(S,aSettings.ShortDateFormat,aSettings.DateSeparator);\r\nend;\r\n\r\nfunction StrToDate(const S: String): TDateTime;\r\nbegin\r\n  result:=StrToDate(S,FormatSettings);\r\nend;\r\n\r\nfunction StrToDate(const S: String; separator : char): TDateTime;\r\nbegin\r\n  result := StrToDate(S,FormatSettings.ShortDateFormat,separator)\r\nend;\r\n\r\n\r\n{   StrToTime converts the string S to a TDateTime value\r\n    if S does not represent a valid time value an\r\n    EConvertError will be raised   }\r\n\r\n\r\nfunction IntStrToTime(Out ErrorMsg : String; const S: String; Len : integer; Const aSettings : TFormatSettings): TDateTime;\r\n\r\nconst\r\n  AMPM_None = 0;\r\n  AMPM_AM = 1;\r\n  AMPM_PM = 2;\r\n  tiHour = 0;\r\n  tiMin = 1;\r\n  tiSec = 2;\r\n  tiMSec = 3;\r\n\r\ntype\r\n  TTimeValues = array of Word;\r\n\r\nvar\r\n   AmPm: integer;\r\n   TimeValues: TTimeValues;\r\n\r\n\r\n   function SplitElements(out TimeValues: TTimeValues; out AmPm: Integer): Boolean;\r\n   //Strict version. It does not allow #32 as Separator, it will treat it as whitespace always\r\n   const\r\n     Digits = '0123456789';\r\n   var\r\n      Cur, Offset, ElemLen, Err, TimeIndex, FirstSignificantDigit: Integer;\r\n      Value: Integer;\r\n      DigitPending, MSecPending: Boolean;\r\n      AmPmStr: String;\r\n      CurChar: Char;\r\n      I : Integer;\r\n      allowedchars : string;\r\n\r\n   begin\r\n     Result := False;\r\n     AmPm := AMPM_None; //No Am or PM in string found yet\r\n     MSecPending := False;\r\n     TimeIndex := 0; //indicating which TTimeValue must be filled next\r\n     For I:=tiHour to tiMSec do\r\n      TimeValues[i]:=0;\r\n     Cur := 1;\r\n     //skip leading blanks\r\n     While (Cur < Len) and (S[Cur] =#32) do Inc(Cur);\r\n     Offset := Cur;\r\n     //First non-blank cannot be Separator or DecimalSeparator\r\n     if (Cur > Len - 1) or (S[Cur] = aSettings.TimeSeparator) or (S[Cur] = aSettings.Decimalseparator) then\r\n       begin\r\n       // Writeln('Error in sep S[Cur]',S[Cur],' ',separator,' ',GetDecimalSeparator);\r\n       Exit;\r\n       end;\r\n     DigitPending := (Pos(S[Cur],Digits)>0);\r\n     While (Cur <= Len) do\r\n     begin\r\n       //writeln;\r\n       // writeln('Main While loop:  Cur = ',Cur,' S[Cur] = \"',S[Cur],'\" Len = ',Len,' separator : ',Separator);\r\n       CurChar := S[Cur];\r\n       if Pos(CurChar,Digits)>0 then\r\n       begin//Digits\r\n         //HH, MM, SS, or Msec?\r\n         // writeln('Digit: ', CurChar);\r\n         //Digits are only allowed after starting Am/PM or at beginning of string or after Separator\r\n         //and TimeIndex must be <= tiMSec\r\n         //Uncomment \"or (#32 = Separator)\" and it will allllow #32 as separator\r\n         if (not (DigitPending {or (#32 = Separator)})) or (TimeIndex > tiMSec) then\r\n            begin\r\n            // Writeln('DigitPending',ElemLen);\r\n            Exit;\r\n            end;\r\n         OffSet := Cur;\r\n         if (CurChar <> '0') then FirstSignificantDigit := OffSet else FirstSignificantDigit := -1;\r\n         while (Cur < Len) and (Pos(S[Cur + 1],Digits)>0) do\r\n         begin\r\n           //Mark first Digit that is not '0'\r\n           if (FirstSignificantDigit = -1) and (S[Cur] <> '0') then FirstSignificantDigit := Cur;\r\n           Inc(Cur);\r\n         end;\r\n         if (FirstSignificantDigit = -1) then FirstSignificantDigit := Cur;\r\n         ElemLen := 1+ Cur - FirstSignificantDigit;\r\n         // writeln('  S[FirstSignificantDigit] = ',S[FirstSignificantDigit], ' S[Cur] = ',S[Cur],' ElemLen = ',ElemLen,' -> ', S[Offset], ElemLen);\r\n         // writeln('  Cur = ',Cur);\r\n         //this way we know that Val() will never overflow Value !\r\n         if (ElemLen <= 2) or ((ElemLen <= 3) and (TimeIndex = tiMSec) ) then\r\n         begin\r\n           Val(Copy(S,FirstSignificantDigit, ElemLen), Value, Err);\r\n           // writeln('  Value = ',Value,' HH = ',TimeValues[0],' MM = ',TimeValues[1],' SS = ',TimeValues[2],' MSec = ',Timevalues[3]);\r\n           //This is safe now, because we know Value < High(Word)\r\n           TimeValues[TimeIndex] := Value;\r\n           Inc(TimeIndex);\r\n           DigitPending := False;\r\n         end\r\n         else\r\n           begin\r\n           // Writeln('Wrong elemlen: ',ElemLen, ' timeIndex: ',timeindex);\r\n           Exit; //Value to big, so it must be a wrong timestring\r\n           end;\r\n       end//Digits\r\n       else if (CurChar = #32) then\r\n       begin\r\n         //writeln('#32');\r\n         //just skip, but we must adress this, or it will be parsed by either AM/PM or Separator\r\n       end\r\n       else if (CurChar = aSettings.TimeSeparator) then\r\n       begin\r\n         // writeln('Separator ',Separator);\r\n         if DigitPending or (TimeIndex > tiSec) then\r\n           begin\r\n           // Writeln ('DigitPending ',DigitPending,' or (TimeIndex',Timeindex,' > tiSec,', tiSec,')');\r\n           Exit;\r\n           end;\r\n         DigitPending := True;\r\n         MSecPending := False;\r\n       end\r\n       else if (CurChar = aSettings.DecimalSeparator) then\r\n       begin\r\n         //writeln('DecimalSeparator');\r\n         if DigitPending or MSecPending or (TimeIndex <> tiMSec) then\r\n            begin\r\n            // Writeln('DigitPending ',DigitPending,' or MSecPending ',MSecPending,' (',TimeIndex,',Timeindex, >', tiMSec,'  tiSec)');\r\n            Exit;\r\n            end;\r\n         DigitPending := True;\r\n         MSecPending := True;\r\n       end\r\n       else\r\n       begin//AM/PM?\r\n         //None of the above, so this char _must_ be the start of AM/PM string\r\n         //If we already have found AM/PM or we expect a digit then then timestring must be wrong at this point\r\n         //writeln('AM/PM?');\r\n         if (AmPm <> AMPM_None) or DigitPending then\r\n           begin\r\n           // Writeln('AmPm <> AMPM_None) or DigitPending');\r\n           Exit;\r\n           end;\r\n         OffSet := Cur;\r\n         allowedchars:=aSettings.DecimalSeparator+' ';\r\n         if aSettings.TimeSeparator<>#0 then\r\n           allowedchars:=allowedchars+aSettings.TimeSeparator;\r\n         while (Cur < Len) and (Pos(S[Cur + 1],AllowedChars)=0)\r\n           and (Pos(S[Cur + 1],Digits)=0) do Inc(Cur);\r\n         ElemLen := 1 + Cur - OffSet;\r\n//         writeln('  S[Offset] = ',S[Offset], ' S[Cur] = ',S[Cur],' ElemLen = ',ElemLen,' -> ', S[1+Offset], ElemLen);\r\n//         writeln('  Cur = ',Cur, ', S =',S);\r\n         AmPmStr := Copy(S,OffSet, ElemLen);\r\n\r\n         // writeln('AmPmStr = ',ampmstr,' (',length(ampmstr),')');\r\n         //We must compare to TimeAMString before hardcoded 'AM' for delphi compatibility\r\n         //Also it is perfectly legal, though insane to have TimeAMString = 'PM' and vice versa\r\n         if (CompareText(AmPmStr, aSettings.TimeAMString) = 0) then AmPm := AMPM_AM\r\n         else if (CompareText(AmPmStr, aSettings.TimePMString) = 0) then AmPm := AMPM_PM\r\n         else if (CompareText(AmPmStr, 'AM') = 0) then AmPm := AMPM_AM\r\n         else if (CompareText(AmPmStr, 'PM') = 0) then AmPm := AMPM_PM\r\n         else\r\n           begin\r\n           // Writeln('No timestring ',AmPmStr);\r\n           Exit; //If text does not match any of these, timestring must be wrong;\r\n           end;\r\n         //if AM/PM is at beginning of string, then a digit is mandatory after it\r\n         if (TimeIndex = tiHour) then\r\n         begin\r\n           DigitPending := True;\r\n         end\r\n         //otherwise, no more TimeValues allowed after this\r\n         else\r\n         begin\r\n           TimeIndex := tiMSec + 1;\r\n           DigitPending := False;\r\n         end;\r\n       end;//AM/PM\r\n       Inc(Cur)\r\n     end;//while\r\n\r\n     //If we arrive here, parsing the elements has been successfull\r\n     //if not at least Hours specified then input is not valid\r\n     //when am/pm is specified Hour must be <= 12 and not 0\r\n     if (TimeIndex = tiHour) or ((AmPm <> AMPM_None) and ((TimeValues[tiHour] > 12) or (TimeValues[tiHour] = 0))) or DigitPending then\r\n       Exit;\r\n     Result := True;\r\n   end;\r\n\r\nbegin\r\n  setlength(timevalues,4);\r\n  AmPm := AMPM_None;\r\n  if not SplitElements(TimeValues, AmPm) then\r\n  begin\r\n    ErrorMsg:=Format(SErrInvalidTimeFormat,[S]);\r\n    Exit;\r\n  end;\r\n  if (AmPm=AMPM_PM) and (TimeValues[tiHour]<>12) then Inc(TimeValues[tiHour], 12)\r\n  else if (AmPm=AMPM_AM) and (TimeValues[tiHour]=12) then TimeValues[tiHour]:=0;\r\n  // Writeln(      TimeValues[tiHour], TimeValues[tiMin], TimeValues[tiSec], TimeValues[tiMSec]);\r\n  if not TryEncodeTime(TimeValues[tiHour], TimeValues[tiMin], TimeValues[tiSec], TimeValues[tiMSec], result) Then\r\n\r\n    ErrorMsg:=Format(SErrInvalidTimeFormat,[S]);\r\nend ;\r\n\r\nfunction StrToTime(const S: String; const aSettings : TFormatSettings): TDateTime;\r\n\r\nVar\r\n  Msg : String;\r\n\r\nbegin\r\n  Result:=IntStrToTime(Msg,S,Length(S),aSettings);\r\n  If (Msg<>'') then\r\n    Raise EConvertError.Create(Msg);\r\nend;\r\n\r\nfunction StrToTime(const S: String): TDateTime;\r\nbegin\r\n   result:=StrToTime(S, FormatSettings);\r\nend;\r\n\r\n\r\nfunction StrToTime(const S: String; separator: char): TDateTime;\r\n\r\nVar\r\n  aSettings : TFormatSettings;\r\n\r\nbegin\r\n  aSettings:=TFormatSettings.Create;\r\n  aSettings.TimeSeparator:=Separator;\r\n  Result:=StrToTime(S,aSettings);\r\nend;\r\n\r\n\r\n{   StrToDateTime converts the string S to a TDateTime value\r\n    if S does not represent a valid date and/or time value\r\n    an EConvertError will be raised   }\r\n\r\nfunction SplitDateTimeStr(DateTimeStr: String; out DateStr, TimeStr: String; Const aSettings : TFormatSettings): Integer;\r\n\r\n{ Helper function for StrToDateTime\r\n  Pre-condition\r\n    Date is before Time\r\n    If either Date or Time is omitted then see what fits best, a time or a date (issue #0020522)\r\n    Date and Time are separated by whitespace (space Tab, Linefeed or carriage return)\r\n    FS.DateSeparator can be the same as FS.TimeSeparator (issue #0020522)\r\n    If they are both #32 and TrimWhite(DateTimeStr) contains a #32 a date is assumed.\r\n  Post-condition\r\n    DateStr holds date as string or is empty\r\n    TimeStr holds time as string or is empty\r\n    Result = number of strings returned, 0 = error\r\n}\r\nconst\r\n  WhiteSpace = #9#10#13#32;\r\n\r\nvar\r\n  p: Integer;\r\n  DummyDT: TDateTime;\r\nbegin\r\n  Result := 0;\r\n  DateStr := '';\r\n  TimeStr := '';\r\n  DateTimeStr := Trim(DateTimeStr);\r\n  if Length(DateTimeStr) = 0 then exit;\r\n  if (aSettings.DateSeparator = #32) and (aSettings.TimeSeparator = #32) and (Pos(#32, DateTimeStr) > 0) then\r\n    begin\r\n    DateStr:=DateTimeStr;\r\n    {\r\n      Assume a date: dd [mm [yy]].\r\n      Really fancy would be counting the number of whitespace occurrences and decide\r\n      and split accordingly\r\n    }\r\n    Exit(1);\r\n    end;\r\n  p:=1;\r\n  //find separator\r\n  if (aSettings.DateSeparator<>#32) then\r\n    begin\r\n    while (p<Length(DateTimeStr)) and (not (Pos(DateTimeStr[p+1],WhiteSpace)>0)) do\r\n      Inc(p);\r\n    end\r\n  else\r\n    begin\r\n    p:=Pos(aSettings.TimeSeparator, DateTimeStr);\r\n    if (p<>0) then\r\n      repeat\r\n        Dec(p);\r\n      until (p=0) or (Pos(DateTimeStr[p],WhiteSpace)>0);\r\n    end;\r\n  //Always fill DateStr, it eases the algorithm later\r\n  if (p=0) then\r\n    p:=Length(DateTimeStr);\r\n  DateStr:=Copy(DateTimeStr,1,p);\r\n  TimeStr:=Trim(Copy(DateTimeStr,p+1,100));\r\n  if (Length(TimeStr)<>0) then\r\n    Result:=2\r\n  else\r\n    begin\r\n    Result:=1; //found 1 string\r\n    // 2 cases when DateTimeStr only contains a time:\r\n    // Date/time separator differ, and string contains a timeseparator\r\n    // Date/time separators are equal, but transformation to date fails.\r\n    if ((aSettings.DateSeparator<>aSettings.TimeSeparator) and (Pos(aSettings.TimeSeparator,DateStr) > 0))\r\n       or ((aSettings.DateSeparator=aSettings.TimeSeparator) and (not TryStrToDate(DateStr, DummyDT)))  then\r\n      begin\r\n      TimeStr := DateStr;\r\n      DateStr := '';\r\n      end;\r\n    end;\r\nend;\r\n\r\nfunction StrToDateTime(const S: String): TDateTime;\r\n\r\nbegin\r\n  Result:=StrToDateTime(S,FormatSettings);\r\nend;\r\n\r\nfunction StrToDateTime(const S: String; Const aSettings : TFormatSettings): TDateTime;\r\n\r\nvar\r\n  TimeStr, DateStr: String;\r\n  PartsFound: Integer;\r\nbegin\r\n  PartsFound := SplitDateTimeStr(S, DateStr, TimeStr,aSettings);\r\n  case PartsFound of\r\n    0: Result:=StrToDate('');\r\n    1: if (Length(DateStr) > 0) then\r\n         Result := StrToDate(DateStr,aSettings.ShortDateFormat,aSettings.DateSeparator)\r\n       else\r\n         Result := StrToTime(TimeStr);\r\n    2: Result := ComposeDateTime(StrTodate(DateStr,aSettings.ShortDateFormat,aSettings.DateSeparator),\r\n                                  StrToTime(TimeStr));\r\n  end;\r\nend;\r\n\r\nfunction FormatDateTime(const FormatStr: string; const DateTime: TDateTime): string;\r\n\r\nbegin\r\n  Result:=FormatDateTime(FormatStr,DateTime,FormatSettings);\r\nend;\r\n\r\nfunction FormatDateTime(const FormatStr: string; const DateTime: TDateTime; const aSettings : TFormatSettings): string;\r\n\r\n  procedure StoreStr(const FormatStr: string; APos,Len: Integer);\r\n  begin\r\n//    Writeln('StoreStr: ',Result,'+',Copy(FormatStr,APos,Len));\r\n    Result:=Result+Copy(FormatStr,APos,Len);\r\n  end;\r\n\r\n  procedure StoreString(const AStr: string);\r\n\r\n  begin\r\n//    Writeln('StoreString: ',Result,'+',AStr);\r\n    Result:=Result+AStr;\r\n  end;\r\n\r\n  procedure StoreInt(Value, Digits: Integer);\r\n  var\r\n    S: string;\r\n\r\n  begin\r\n    S:=IntToStr(Value);\r\n    While (Length(S)<Digits) do\r\n      S:='0'+S;\r\n    StoreString(S);\r\n  end;\r\n\r\nvar\r\n  Year, Month, Day, DayOfWeek, Hour, Minute, Second, MilliSecond: word;\r\n\r\n  procedure StoreFormat(const FormatStr: string; Nesting: Integer; TimeFlag: Boolean);\r\n  var\r\n    Token, lastformattoken, prevlasttoken: char;\r\n    Count: integer;\r\n    Clock12: boolean;\r\n    tmp: integer;\r\n    isInterval: Boolean;\r\n    P,FormatCurrent,FormatEnd : Integer;\r\n  begin\r\n    if Nesting > 1 then  // 0 is original string, 1 is included FormatString\r\n      Exit;\r\n    FormatCurrent := 1;\r\n    FormatEnd := Length(FormatStr);\r\n    Clock12 := false;\r\n    isInterval := false;\r\n    // look for unquoted 12-hour clock token\r\n    P:=1;\r\n    while P<=FormatEnd do\r\n      begin\r\n      Token := FormatStr[P];\r\n      case Token of\r\n        '''', '\"':\r\n        begin\r\n          Inc(P);\r\n          while (P < FormatEnd) and (FormatStr[P]<>Token) do\r\n            Inc(P);\r\n        end;\r\n        'A', 'a':\r\n        begin\r\n          if (CompareText(Copy(FormatStr,P,3),'A/P')=0) or\r\n             (CompareText(Copy(FormatStr,P,4),'AMPM')=0) or\r\n             (CompareText(Copy(FormatStr,P,5),'AM/PM')=0) then\r\n          begin\r\n            Clock12 := true;\r\n            break;\r\n          end;\r\n        end;\r\n      end;  // case\r\n      Inc(P);\r\n    end ;\r\n    token := #255;\r\n    lastformattoken := ' ';\r\n    prevlasttoken := 'H';\r\n    while FormatCurrent <= FormatEnd do\r\n    begin\r\n      Token := UpperCase(FormatStr[FormatCurrent])[1];\r\n     //  Writeln('Treating token at pos ',FormatCurrent,', : ',Token,' (',FormatStr,')');\r\n      Count := 1;\r\n      P := FormatCurrent + 1;\r\n      case Token of\r\n        '''', '\"':\r\n        begin\r\n          while (P < FormatEnd) and (FormatStr[P]<>Token) do\r\n            Inc(P);\r\n          Inc(P);\r\n          Count := P - FormatCurrent;\r\n          StoreStr(FormatStr, FormatCurrent + 1, Count - 2);\r\n        end ;\r\n        'A':\r\n        begin\r\n          if CompareText(Copy(FormatStr,FormatCurrent,4), 'AMPM') = 0 then\r\n          begin\r\n            Count := 4;\r\n            if Hour < 12 then\r\n              StoreString(aSettings.TimeAMString)\r\n            else\r\n              StoreString(aSettings.TimePMString);\r\n          end\r\n          else if CompareText(Copy(FormatStr,FormatCurrent,5), 'AM/PM') = 0 then\r\n          begin\r\n            Count := 5;\r\n            if Hour < 12 then StoreStr(FormatStr, FormatCurrent, 2)\r\n                         else StoreStr(FormatStr, FormatCurrent+3, 2);\r\n          end\r\n          else if CompareText(Copy(FormatStr,FormatCurrent,3), 'A/P') = 0 then\r\n          begin\r\n            Count := 3;\r\n            if Hour < 12 then StoreStr(FormatStr, FormatCurrent, 1)\r\n            else StoreStr(FormatStr, FormatCurrent+2, 1);\r\n          end\r\n          else\r\n            raise EConvertError.Create('Illegal character in format string');\r\n        end ;\r\n        '/':\r\n          begin\r\n           //  Writeln('Detected date separator');\r\n          StoreString(aSettings.DateSeparator);\r\n          end;\r\n        ':': StoreString(aSettings.TimeSeparator);\r\n        ' ', 'C', 'D', 'H', 'M', 'N', 'S', 'T', 'Y', 'Z', 'F' :\r\n        begin\r\n          // Writeln(FormatCurrent,' Special Token: ',Token,', Count: ',Count,', P: ',P);\r\n          while (P <= FormatEnd) and (UpperCase(FormatStr[P]) = Token) do\r\n            Inc(P);\r\n          Count := P - FormatCurrent;\r\n          // Writeln(FormatCurrent,' Special Token: ',Token,', Count: ',Count,', P: ',P);\r\n          case Token of\r\n            ' ': StoreStr(FormatStr, FormatCurrent, Count);\r\n            'Y': begin\r\n              if Count > 2 then\r\n                StoreInt(Year, 4)\r\n              else\r\n                StoreInt(Year mod 100, 2);\r\n            end;\r\n            'M': begin\r\n\t      if isInterval and ((prevlasttoken = 'H') or TimeFlag) then\r\n\t        StoreInt(Minute + (Hour + trunc(abs(DateTime))*24)*60, 0)\r\n\t      else\r\n              if (lastformattoken = 'H') or TimeFlag then\r\n              begin\r\n                if Count = 1 then\r\n                  StoreInt(Minute, 0)\r\n                else\r\n                  StoreInt(Minute, 2);\r\n              end\r\n              else\r\n              begin\r\n                case Count of\r\n                  1: StoreInt(Month, 0);\r\n                  2: StoreInt(Month, 2);\r\n                  3: StoreString(aSettings.ShortMonthNames[Month]);\r\n                else\r\n                  StoreString(aSettings.LongMonthNames[Month]);\r\n                end;\r\n              end;\r\n            end;\r\n            'D': begin\r\n              case Count of\r\n                1: StoreInt(Day, 0);\r\n                2: StoreInt(Day, 2);\r\n                3: StoreString(aSettings.ShortDayNames[DayOfWeek]);\r\n                4: StoreString(aSettings.LongDayNames[DayOfWeek]);\r\n                5: StoreFormat(aSettings.ShortDateFormat, Nesting+1, False);\r\n              else\r\n                StoreFormat(aSettings.LongDateFormat, Nesting+1, False);\r\n              end ;\r\n            end ;\r\n            'H':\r\n\t      if isInterval then\r\n\t        StoreInt(Hour + trunc(abs(DateTime))*24, 0)\r\n\t      else\r\n\t      if Clock12 then\r\n              begin\r\n                tmp := hour mod 12;\r\n                if tmp=0 then tmp:=12;\r\n                if Count = 1 then\r\n                  StoreInt(tmp, 0)\r\n                else\r\n                  StoreInt(tmp, 2);\r\n              end\r\n              else begin\r\n                if Count = 1 then\r\n\t\t  StoreInt(Hour, 0)\r\n                else\r\n                  StoreInt(Hour, 2);\r\n              end;\r\n            'N': if isInterval then\r\n\t           StoreInt(Minute + (Hour + trunc(abs(DateTime))*24)*60, 0)\r\n\t\t else\r\n\t\t if Count = 1 then\r\n                   StoreInt(Minute, 0)\r\n                 else\r\n                   StoreInt(Minute, 2);\r\n            'S': if isInterval then\r\n\t           StoreInt(Second + (Minute + (Hour + trunc(abs(DateTime))*24)*60)*60, 0)\r\n\t         else\r\n\t         if Count = 1 then\r\n                   StoreInt(Second, 0)\r\n                 else\r\n                   StoreInt(Second, 2);\r\n            'Z': if Count = 1 then\r\n                   StoreInt(MilliSecond, 0)\r\n                 else\r\n\t\t   StoreInt(MilliSecond, 3);\r\n            'T': if Count = 1 then\r\n\t\t   StoreFormat(aSettings.ShortTimeFormat, Nesting+1, True)\r\n                 else\r\n\t           StoreFormat(aSettings.LongTimeFormat, Nesting+1, True);\r\n            'C': begin\r\n                   StoreFormat(aSettings.ShortDateFormat, Nesting+1, False);\r\n                   if (Hour<>0) or (Minute<>0) or (Second<>0) then\r\n                     begin\r\n                      StoreString(' ');\r\n                      StoreFormat(aSettings.LongTimeFormat, Nesting+1, True);\r\n                     end;\r\n                 end;\r\n            'F': begin\r\n                   StoreFormat(aSettings.ShortDateFormat, Nesting+1, False);\r\n                   StoreString(' ');\r\n                   StoreFormat(aSettings.LongTimeFormat, Nesting+1, True);\r\n                 end;\r\n          end;\r\n\t  prevlasttoken := lastformattoken;\r\n          lastformattoken := token;\r\n        end;\r\n        else\r\n          StoreString(Token);\r\n      end ;\r\n      Inc(FormatCurrent, Count);\r\n    end;\r\n  end;\r\n\r\nbegin\r\n  DecodeDateFully(DateTime, Year, Month, Day, DayOfWeek);\r\n  DecodeTime(DateTime, Hour, Minute, Second, MilliSecond);\r\n  // Writeln(DateTime,'->',Year,',', Month, ',',Day, ',',DayOfWeek,',',Hour, ',',Minute, ',',Second, ',',MilliSecond);\r\n  if FormatStr <> '' then\r\n    StoreFormat(FormatStr, 0, False)\r\n  else\r\n    StoreFormat('C', 0, False);\r\nend ;\r\n\r\n\r\nfunction CurrentYear: Word;\r\n\r\nbegin\r\n  Result:=TJSDate.New().FullYear;\r\nend;\r\n\r\nfunction TryStrToDate(const S: String; out Value: TDateTime): Boolean;\r\nbegin\r\n  Result:=TryStrToDate(S,Value,FormatSettings);\r\nend;\r\n\r\nfunction TryStrToDate(const S: String; out Value: TDateTime; separator : char): Boolean;\r\n\r\nbegin\r\n  Result:=TryStrToDate(S,Value,FormatSettings.ShortDateFormat,Separator);\r\nend;\r\n\r\nfunction TryStrToDate(const S: String; out Value: TDateTime;  const useformat : string; separator : char): Boolean;\r\n\r\nVar\r\n  Msg : String;\r\n\r\nbegin\r\n  Result:=Length(S)<>0;\r\n  If Result then\r\n    begin\r\n    Value:=IntStrToDate(Msg,S,useformat,Separator);\r\n    Result:=(Msg='');\r\n    end;\r\nend;\r\n\r\nfunction TryStrToDate(const S: String; out Value: TDateTime; const aSettings : TFormatSettings): Boolean;\r\n\r\nbegin\r\n  Result:=TryStrToDate(S,Value,aSettings.ShortDateFormat,aSettings.DateSeparator);\r\nend;\r\n\r\nfunction TryStrToTime(const S: String; out Value: TDateTime; aSettings : TFormatSettings): Boolean;\r\n\r\nVar\r\n  Msg : String;\r\n\r\nbegin\r\n  Result:=Length(S)<>0;\r\n  If Result then\r\n    begin\r\n      Value:=IntStrToTime(Msg,S,Length(S),aSettings);\r\n      Result:=(Msg='');\r\n    end;\r\nend;\r\n\r\nfunction TryStrToTime(const S: String; out Value: TDateTime; separator : char): Boolean;\r\n\r\nVar\r\n  Fmt : TFormatSettings;\r\n\r\nbegin\r\n  fmt:=TFormatSettings.Create;\r\n  fmt.TimeSeparator:=Separator;\r\n  Result:=TryStrToTime(S,Value,Fmt);\r\nend;\r\n\r\nfunction TryStrToTime(const S: String; out Value: TDateTime): Boolean;\r\nbegin\r\n  result:=TryStrToTime(S,Value,FormatSettings);\r\nend;\r\n\r\nfunction TryStrToDateTime(const S: String; out Value: TDateTime): Boolean;\r\n\r\nbegin\r\n  Result:=TryStrToDateTime(S,Value,FormatSettings);\r\nend;\r\n\r\nfunction TryStrToDateTime(const S: String; out Value: TDateTime; Const aSettings : TFormatSettings): Boolean;\r\n\r\nvar\r\n  I: integer;\r\n  dtdate, dttime :TDateTime;\r\nbegin\r\n  result:=false;\r\n  I:=Pos(aSettings.TimeSeparator,S);\r\n  If (I>0) then\r\n    begin\r\n      While (I>0) and (S[I]<>' ') do\r\n        Dec(I);\r\n      If I>0 then\r\n        begin\r\n          if not TryStrToDate(Copy(S,1,I-1),dtdate, aSettings) then  \r\n            exit;\r\n          if not TryStrToTime(Copy(S,i+1, Length(S)-i),dttime, aSettings) then\r\n            exit;\r\n          Value:=ComposeDateTime(dtdate,dttime);\r\n          result:=true;\r\n        end\r\n      else\r\n         result:=TryStrToTime(s,Value,aSettings);\r\n    end\r\n  else\r\n    result:=TryStrToDate(s,Value,aSettings);\r\nend;\r\n\r\n\r\n\r\nfunction StrToDateDef(const S: String; const Defvalue : TDateTime): TDateTime;\r\nbegin\r\n   result := StrToDateDef(S,DefValue,#0);\r\nend;\r\n\r\nfunction StrToDateDef(const S: string; const Defvalue: TDateTime; const aSettings: TFormatSettings): TDateTime;\r\nbegin\r\n  if not TryStrToDate(S, Result, aSettings) Then\r\n    Result := Defvalue;\r\nend;\r\n\r\nfunction StrToTimeDef(const S: String; const Defvalue : TDateTime): TDateTime;\r\nbegin\r\n   result := StrToTimeDef(S,DefValue,#0);\r\nend;\r\n\r\nfunction StrToDateTimeDef(const S: String; const Defvalue : TDateTime; aSettings : TFormatSettings): TDateTime; overload;\r\nbegin\r\n  if not TryStrToDateTime(s,Result,aSettings) Then\r\n    result:=defvalue;\r\nend;\r\n\r\nfunction StrToDateTimeDef(const S: String; const Defvalue : TDateTime): TDateTime;\r\nbegin\r\n  Result:=StrToDateTimeDef(s,DefValue,FormatSettings);\r\nend;\r\n\r\nfunction StrToDateDef(const S: String; const Defvalue : TDateTime; separator : char): TDateTime;\r\nbegin\r\n  if not TryStrToDate(s,Result, separator) Then\r\n    result:=defvalue;\r\nend;\r\n\r\nfunction StrToTimeDef(const S: String; const Defvalue : TDateTime; separator : char): TDateTime;\r\nbegin\r\n  if not TryStrToTime(s,Result, separator) Then\r\n    result:=defvalue;\r\nend;\r\n\r\nfunction StrToTimeDef(const AString: string; const ADefault: TDateTime;\r\n  const aSettings: TFormatSettings): TDateTime;\r\nbegin\r\n  if not TryStrToTime(AString, Result, aSettings) Then\r\n    Result := ADefault;\r\nend;\r\n\r\nprocedure ReplaceTime(var dati:TDateTime; NewTime : TDateTime);\r\nbegin\r\n  dati:= ComposeDateTime(dati, newtime);\r\nend;\r\n\r\nprocedure ReplaceDate(var DateTime: TDateTime; const NewDate: TDateTime);\r\nvar\r\n  tmp : TDateTime;\r\nbegin\r\n  tmp:=NewDate;\r\n  ReplaceTime(tmp,DateTime);\r\n  DateTime:=tmp;\r\nend;\r\n\r\nfunction FloatToDateTime(const Value: Extended): TDateTime;\r\nbegin\r\n  If (Value<MinDateTime) or (Value>MaxDateTime) then\r\n    Raise EConvertError.CreateFmt (SInvalidDateTime,[FloatToStr(Value)]);\r\n  Result:=Value;\r\nend;\r\n\r\nfunction FloattoCurr(const Value: Extended): Currency;\r\nbegin\r\n  if not TryFloatToCurr(Value, Result) then\r\n    Raise EConvertError.CreateFmt(SInvalidCurrency, [FloatToStr(Value)]);\r\nend;\r\n\r\nfunction TryFloatToCurr(const Value: Extended; var AResult: Currency): Boolean;\r\nbegin\r\n  Result:=(Value>=MinCurrency) and (Value<=MaxCurrency);\r\n  if Result then\r\n    AResult := Value;\r\nend;\r\n\r\nfunction CurrToStr(Value: Currency): string;\r\nbegin\r\n  Result:=FloatToStrF(Value,ffGeneral,-1,0,FormatSettings);\r\nend;\r\n\r\n\r\nfunction CurrToStr(Value: Currency; const aSettings: TFormatSettings): string;\r\nbegin\r\n  Result:=FloatToStrF(Value,ffGeneral,-1,0,aSettings);\r\nend;\r\n\r\n\r\nfunction StrToCurr(const S: string): Currency;\r\n\r\nbegin\r\n  if not TryStrToCurr(S,Result) then\r\n    Raise EConvertError.createfmt(SInvalidCurrency,[S]);\r\nend;\r\n\r\nfunction StrToCurr(const S: string; const aSettings: TFormatSettings): Currency;\r\nbegin\r\n  if not TryStrToCurr(S,Result,aSettings) then\r\n    Raise EConvertError.createfmt(SInvalidCurrency,[S]);\r\nend;\r\n\r\nfunction TryStrToCurr(const S: string; out Value: Currency): Boolean;\r\n\r\nVar\r\n  D : Double;\r\n\r\nbegin\r\n  Result:=TryStrToFloat(S,D,FormatSettings);\r\n  if Result then\r\n    Value:=D;\r\nend;\r\n\r\n\r\nfunction TryStrToCurr(const S: string; out Value: Currency; const aSettings: TFormatSettings): Boolean;\r\nVar\r\n  D : Double;\r\n\r\nbegin\r\n  Result:=TryStrToFloat(S,D,aSettings);\r\n  if Result then\r\n    Value:=D;\r\nend;\r\n\r\n\r\nfunction StrToCurrDef(const S: string; Default: Currency): Currency;\r\n\r\nVar\r\n  R : Currency;\r\n\r\nbegin\r\n  if TryStrToCurr(S,R,FormatSettings) then\r\n    Result:=R\r\n  else\r\n    Result:=Default;\r\nend;\r\n\r\n\r\nfunction StrToCurrDef(const S: string; Default: Currency; const aSettings: TFormatSettings): Currency;\r\nVar\r\n  R : Currency;\r\n\r\nbegin\r\n  if TryStrToCurr(S,R,aSettings) then\r\n    Result:=R\r\n  else\r\n    Result:=Default;\r\nend;\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n  Interface related\r\n  ---------------------------------------------------------------------}\r\nfunction Supports(const Instance: IInterface; const AClass: TClass; out Obj\r\n  ): Boolean;\r\nbegin\r\n  Result := (Instance<>nil) and (Instance.QueryInterface(IObjectInstance,Obj)=S_OK)\r\n     and (TObject(Obj).InheritsFrom(AClass));\r\nend;\r\n\r\nfunction Supports(const Instance: IInterface; const IID: TGuid; out Intf\r\n  ): Boolean;\r\nbegin\r\n  Result:=(Instance<>nil) and (Instance.QueryInterface(IID,Intf)=S_OK);\r\nend;\r\n\r\nfunction Supports(const Instance: TObject; const IID: TGuid; out Intf): Boolean;\r\nbegin\r\n  Result:=(Instance<>nil) and Instance.GetInterface(IID,Intf);\r\nend;\r\n\r\nfunction Supports(const Instance: TObject; const IID: TGuidString; out Intf\r\n  ): Boolean;\r\nbegin\r\n  Result:=(Instance<>nil) and Instance.GetInterfaceByStr(IID,Intf);\r\nend;\r\n\r\nfunction Supports(const Instance: IInterface; const AClass: TClass): Boolean;\r\nvar\r\n  Temp: TObject;\r\nbegin\r\n  Result:=Supports(Instance,AClass,Temp);\r\nend;\r\n\r\nfunction Supports(const Instance: IInterface; const IID: TGuid): Boolean;\r\nvar\r\n  Temp: IInterface;\r\nbegin\r\n  Result:=Supports(Instance,IID,Temp);\r\nend;\r\n\r\nfunction Supports(const Instance: TObject; const IID: TGuid): Boolean;\r\nvar\r\n  Temp: TJSObject;\r\nbegin\r\n  Result:=Supports(Instance,IID,Temp);\r\n  asm\r\n    if (Temp && Temp.$kind==='com') Temp._Release();\r\n  end;\r\nend;\r\n\r\nfunction Supports(const Instance: TObject; const IID: TGuidString): Boolean;\r\nvar\r\n  Temp: TJSObject;\r\nbegin\r\n  Result:=Supports(Instance,IID,Temp);\r\n  asm\r\n    if (Temp && Temp.$kind==='com') Temp._Release();\r\n  end;\r\nend;\r\n\r\nfunction Supports(const AClass: TClass; const IID: TGuid): Boolean;\r\nvar\r\n  maps: JSValue;\r\nbegin\r\n  if AClass=nil then exit(false);\r\n  maps := TJSObject(AClass)['$intfmaps'];\r\n  if not maps then exit(false);\r\n  if TJSObject(maps)[GUIDToString(IID)] then exit(true);\r\n  Result:=false;\r\nend;\r\n\r\nfunction Supports(const AClass: TClass; const IID: TGuidString): Boolean;\r\nvar\r\n  maps: JSValue;\r\nbegin\r\n  if AClass=nil then exit(false);\r\n  maps := TJSObject(AClass)['$intfmaps'];\r\n  if not maps then exit(false);\r\n  if TJSObject(maps)[uppercase(IID)] then exit(true);\r\n  Result:=false;\r\nend;\r\n\r\nfunction TryStringToGUID(const s: string; out Guid: TGuid): Boolean;\r\nvar\r\n  re: TJSRegexp;\r\nbegin\r\n  if Length(s)<>38 then Exit(False);\r\n  re:=TJSRegexp.new('^\\{[0-9a-fA-F]{8}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{12}\\}$');\r\n  Result:=re.test(s);\r\n  if not Result then\r\n    begin\r\n    Guid.D1:=0;\r\n    exit;\r\n    end;\r\n  asm\r\n    rtl.strToGUIDR(s,Guid);\r\n  end;\r\n  Result:=true;\r\nend;\r\n\r\nfunction StringToGUID(const S: string): TGuid;\r\nbegin\r\n  if not TryStringToGUID(S, Result) then\r\n    raise EConvertError.CreateFmt(SInvalidGUID, [S]);\r\nend;\r\n\r\nfunction GUIDToString(const guid: TGuid): string;\r\nbegin\r\n  Result:=System.GUIDToString(guid);\r\nend;\r\n\r\nfunction IsEqualGUID(const guid1, guid2: TGuid): Boolean;\r\nvar\r\n  i: integer;\r\nbegin\r\n  if (guid1.D1<>guid2.D1) or (guid1.D2<>guid2.D2) or (guid1.D3<>guid2.D3) then\r\n    exit(false);\r\n  for i:=0 to 7 do if guid1.D4[i]<>guid2.D4[i] then exit(false);\r\n  Result:=true;\r\nend;\r\n\r\nfunction GuidCase(const guid: TGuid; const List: array of TGuid): Integer;\r\nbegin\r\n  for Result := High(List) downto 0 do\r\n    if IsEqualGUID(guid, List[Result]) then\r\n      Exit;\r\n  Result := -1;\r\nend;\r\n\r\nfunction CreateGUID(out GUID: TGUID): Integer;\r\n\r\n  Function R(B: Integer) : NativeInt;\r\n\r\n  Var\r\n    v : NativeInt;\r\n  begin\r\n    v:=Random(256);\r\n    While B>1 do\r\n      begin\r\n      v:=v*256+Random(256);\r\n      Dec(B);\r\n      end;\r\n    Result:=V;\r\n  end;\r\n\r\nVar\r\n  I : Integer;\r\n\r\nbegin\r\n  Result:=0;\r\n  GUID.D1:= R(4);\r\n  GUID.D2:= R(2);\r\n  GUID.D3:= R(2);\r\n  For I:=0 to 7 do\r\n   GUID.D4[I]:=R(1);\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  Integer/Ordinal related\r\n  ---------------------------------------------------------------------}\r\n\r\nfunction TryStrToInt(const S: String; out res: Integer): Boolean;\r\nbegin\r\n  Result:=TryStrToInt(S,res, FormatSettings);\r\nend;\r\n\r\nFunction TryStrToInt(const S : String; Out res: Integer; Const aSettings : TFormatSettings): Boolean;\r\nVar\r\n  NI : NativeInt;\r\nbegin\r\n  Result:=TryStrToInt(S,NI, aSettings);\r\n  Result:=Result and (-2147483648<=NI) and (NI<=2147483647);\r\n  if Result then\r\n    res:=NI;\r\nend;\r\n\r\nfunction IntTryStrToInt(const S: String; out res: NativeInt; Const aSep : string): Boolean;\r\n\r\nVar\r\n  Radix : Integer = 10;\r\n  N : String;\r\n  J : JSValue;\r\n\r\nbegin\r\n  N:=S;\r\n  // Javascript Parseint allows 1.0 or 1E0 to be an integer, so we must check for this to get the same behaviour as FPC/Delphi.\r\n  if (Pos(aSep,N)<>0) or (Pos('.',N)<>0) or (Pos(':',N)<>0) or (Pos('-', N) > 1) then\r\n    exit(False);\r\n  case Copy(N,1,1) of\r\n  '$': Radix:=16;\r\n  '&': Radix:=8;\r\n  '%': Radix:=2;\r\n  end;\r\n  // Check for E after we know radix\r\n  if (Radix<>16) and (Pos('e',LowerCase(N))<>0) then\r\n    exit(False);\r\n  If Radix<>10 then\r\n    Delete(N,1,1);\r\n\r\n  J:=parseInt(N,Radix);\r\n  Result:=Not jsIsNan(j);\r\n  if Result then\r\n    res:=NativeInt(J);\r\nend;\r\n\r\nfunction TryStrToInt(const S: String; out res: NativeInt): Boolean;\r\n\r\nbegin\r\n  Result:=IntTryStrToInt(S,res,FormatSettings.DecimalSeparator);\r\nend;\r\n\r\nfunction TryStrToInt(const S: String; out res: NativeInt; Const aSettings : TFormatSettings): Boolean;\r\n\r\nbegin\r\n  Result:=IntTryStrToInt(S,res,aSettings.DecimalSeparator);\r\nend;\r\n\r\nfunction StrToIntDef(const S: String; const aDef: Integer): Integer;\r\n\r\nVar\r\n  R : NativeInt;\r\n\r\nbegin\r\n  if TryStrToInt(S,R) then\r\n    Result:=R\r\n  else\r\n    Result:=aDef;\r\nend;\r\n\r\nfunction StrToIntDef(const S: String; const aDef: NativeInt): NativeInt;\r\n\r\nVar\r\n  R : NativeInt;\r\n\r\nbegin\r\n  if TryStrToInt(S,R) then\r\n    Result:=R\r\n  else\r\n    Result:=aDef;\r\nend;\r\n\r\nfunction StrToInt(const S: String): Integer;\r\n\r\nVar\r\n  R : NativeInt;\r\n\r\nbegin\r\n  if not TryStrToInt(S,R) then\r\n    Raise EConvertError.CreateFmt(SErrInvalidInteger,[S]);\r\n  Result:=R;\r\nend;\r\n\r\nfunction StrToNativeInt(const S: String): NativeInt;\r\n\r\nbegin\r\n  if not TryStrToInt(S,Result) then\r\n    Raise EConvertError.CreateFmt(SErrInvalidInteger,[S]);\r\nend;\r\n\r\nfunction StrToUInt(const s: string): Cardinal;\r\n\r\nbegin\r\n  If not TryStrToUint(S,Result) then\r\n    Raise EConvertError.CreateFmt(SErrInvalidInteger,[S])\r\nend;\r\n\r\nfunction StrToUIntDef(const s: string; aDef : Cardinal): Cardinal;\r\n\r\nbegin\r\n  If not TryStrToUint(S,Result) then\r\n    Result:=aDef;\r\nend;\r\n\r\nfunction UIntToStr(Value: Cardinal): string; \r\n\r\nbegin\r\n  Result:=IntToStr(Value);\r\nend;\r\n\r\nfunction TryStrToUInt(const s: string; out C: Cardinal): Boolean;\r\nVar\r\n  N : NativeInt;\r\nbegin\r\n  Result:=TryStrToInt(S,N);\r\n  Result:=(N>=0) and (N<=high(longword));\r\n  If Result then \r\n    C:=N;\r\nend;\r\n\r\nfunction StrToInt64(const S: String): NativeLargeInt;\r\n\r\nVar\r\n  N : NativeInt;\r\n\r\nbegin\r\n  if not TryStrToInt(S,N) then\r\n    Raise EConvertError.CreateFmt(SErrInvalidInteger,[S]);\r\n  Result:=N;\r\nend;\r\n\r\nfunction TryStrToInt64(const S: String; out res: NativeLargeInt): Boolean;\r\nbegin\r\n  Result := TryStrToInt64(S, res, FormatSettings);\r\nend;\r\n\r\nfunction TryStrToInt64(const S : String; Out res : NativeLargeInt; const ASettings: TFormatSettings): Boolean;\r\nVar\r\n  R: nativeint;\r\nbegin\r\n  Result := TryStrToInt(S, R, ASettings);\r\n  If Result then\r\n    Res := R;\r\nend;\r\n\r\nfunction StrToInt64Def(const S: String; ADefault: NativeLargeInt\r\n  ): NativeLargeInt;\r\n\r\n\r\nbegin\r\n  if not TryStrToInt64(S,Result) then\r\n    Result:=ADefault;\r\nend;\r\n\r\nfunction StrToQWord(const S: String): NativeLargeUInt;\r\n\r\nVar\r\n  N : NativeInt;\r\n\r\nbegin\r\n  if (not TryStrToInt(S,N)) or (N<0) then\r\n    Raise EConvertError.CreateFmt(SErrInvalidInteger,[S]);\r\n  Result:=N;\r\nend;\r\n\r\nfunction TryStrToQWord(const S: String; out res: NativeLargeUInt): Boolean;\r\n\r\nVar\r\n  R : nativeint;\r\n\r\nbegin\r\n  Result:=TryStrToInt(S,R) and (R>=0);\r\n  If Result then\r\n    Res:=R;\r\nend;\r\n\r\nfunction TryStrToQWord(const S: String; out res: QWord): Boolean;\r\nbegin\r\n  Result:=TryStrToQWord(S,NativeLargeUInt(res));\r\nend;\r\n\r\nfunction StrToQWordDef(const S: String; ADefault: NativeLargeUInt\r\n  ): NativeLargeUInt;\r\n\r\nbegin\r\n  if Not TryStrToQword(S,Result) then\r\n    Result:=ADefault;\r\nend;\r\n\r\nfunction StrToUInt64(const S: String): NativeLargeUInt;\r\n\r\nVar\r\n  N : NativeInt;\r\n\r\nbegin\r\n  if (not TryStrToInt(S,N)) or (N<0) then\r\n    Raise EConvertError.CreateFmt(SErrInvalidInteger,[S]);\r\n  Result:=N;\r\nend;\r\n\r\nfunction TryStrToUInt64(const S: String; out res: NativeLargeUInt): Boolean;\r\n\r\nVar\r\n  R : nativeint;\r\n\r\nbegin\r\n  Result:=TryStrToInt(S,R) and (R>=0);\r\n  If Result then\r\n    Res:=R;\r\nend;\r\n\r\nfunction TryStrToUInt64(const S: String; out res: UInt64): Boolean;\r\nbegin\r\n  Result:=TryStrToUInt64(S,NativeLargeUInt(res));\r\nend;\r\n\r\nfunction StrToUInt64Def(const S: String; ADefault: NativeLargeUInt\r\n  ): NativeLargeUInt;\r\n\r\n\r\nbegin\r\n  if Not TryStrToUInt64(S,Result) then\r\n    Result:=ADefault;\r\nend;\r\n\r\nfunction TryStrToDWord(const S: String; out res: DWord): Boolean;\r\n\r\nVar\r\n  R : nativeint;\r\n\r\nbegin\r\n  Result:=TryStrToInt(S,R) and (R>=0) and (R<=DWord($FFFFFFFF));\r\n  If Result then\r\n    Res:=R;\r\nend;\r\n\r\nfunction StrToDWord(const S: String): DWord;\r\n\r\nbegin\r\n  if not TryStrToDWord(S,Result) then\r\n    Raise EConvertError.CreateFmt(SErrInvalidInteger,[S]);\r\nend;\r\n\r\n\r\nfunction StrToDWordDef(const S: String; ADefault: DWord): DWord;\r\n\r\nbegin\r\n  if Not TryStrToDWord(S,Result) then\r\n    Result:=ADefault;\r\nend;\r\n\r\n\r\nfunction IntToHex(Value: NativeInt; Digits: integer): string;\r\n\r\nbegin\r\n//  Result:=HexStr(Value,Digits);     // TestNegLongintHelper  Failed: \"ToHexString\" expected: <FFFE0000> but was: <00-20000> !\r\n  Result:='';\r\n  if Value<0 then\r\n    asm\r\n    if (Value<0) Value = 0xFFFFFFFF + Value + 1;\r\n    end;\r\n  asm\r\n  Result=Value.toString(16);\r\n  end;\r\n  Result:=UpperCase(Result);\r\n  while (Length(Result)<Digits) do\r\n    Result:='0'+Result;\r\nend;\r\n\r\nprocedure InitGlobalFormatSettings;\r\nbegin\r\n  // So the defaults are taken from FormatSettings.\r\n  {$WARN 5043 off}\r\n  FormatSettings:=TFormatSettings.Create;\r\n  TimeSeparator:=FormatSettings.TimeSeparator;\r\n  DateSeparator:=FormatSettings.DateSeparator;\r\n  ShortDateFormat:=FormatSettings.ShortDateFormat;\r\n  LongDateFormat:=FormatSettings.LongDateFormat;\r\n  ShortTimeFormat:=FormatSettings.ShortTimeFormat;\r\n  LongTimeFormat:=FormatSettings.LongTimeFormat;\r\n  DecimalSeparator:=FormatSettings.DecimalSeparator;\r\n  ThousandSeparator:=FormatSettings.ThousandSeparator;\r\n  TimeAMString:=FormatSettings.TimeAMString;\r\n  TimePMString:=FormatSettings.TimePMString;\r\n  CurrencyFormat:=FormatSettings.CurrencyFormat;\r\n  NegCurrFormat:=FormatSettings.NegCurrFormat;\r\n  CurrencyDecimals:=FormatSettings.CurrencyDecimals;\r\n  CurrencyString:=FormatSettings.CurrencyString;\r\nend;\r\n\r\n{ TFormatSettings }\r\n\r\nclass function TFormatSettings.Create: TFormatSettings;\r\nbegin\r\n  Result := Create(GetJSLocale);\r\nend;\r\n\r\nclass function TFormatSettings.Create(const ALocale: string): TFormatSettings;\r\nconst\r\n  cDateSeps: array of Char = ('/', '.', '-');\r\n  cTimeSeps: array of Char = (':', '.', '-');\r\n  cDecSeps: array of Char = (',', '.');\r\n  cThousandSeps: array of Char = ('.', ',');\r\nvar\r\n  lTimeStr: string;\r\n  lCount: Integer;\r\n  lLoc: string;\r\nbegin\r\n  lLoc := Uppercase(ALocale);\r\n  if pos('DE', lLoc) = 1 then\r\n  begin\r\n    Result.LongDayNames[1] := 'Sonntag';\r\n    Result.LongDayNames[2] := 'Montag';\r\n    Result.LongDayNames[3] := 'Dienstag';\r\n    Result.LongDayNames[4] := 'Mittwoch';\r\n    Result.LongDayNames[5] := 'Donnerstag';\r\n    Result.LongDayNames[6] := 'Freitag';\r\n    Result.LongDayNames[7] := 'Samstag';\r\n    Result.ShortDayNames[1] := 'Son';\r\n    Result.ShortDayNames[2] := 'Mon';\r\n    Result.ShortDayNames[3] := 'Die';\r\n    Result.ShortDayNames[4] := 'Mit';\r\n    Result.ShortDayNames[5] := 'Don';\r\n    Result.ShortDayNames[6] := 'Fre';\r\n    Result.ShortDayNames[7] := 'Sam';\r\n    Result.ShortMonthNames[1] := 'Jan';\r\n    Result.ShortMonthNames[2] := 'Feb';\r\n    Result.ShortMonthNames[3] := 'Mär';\r\n    Result.ShortMonthNames[4] := 'Apr';\r\n    Result.ShortMonthNames[5] := 'Mai';\r\n    Result.ShortMonthNames[6] := 'Jun';\r\n    Result.ShortMonthNames[7] := 'Jul';\r\n    Result.ShortMonthNames[8] := 'Aug';\r\n    Result.ShortMonthNames[9] := 'Sep';\r\n    Result.ShortMonthNames[10] := 'Okt';\r\n    Result.ShortMonthNames[11] := 'Nov';\r\n    Result.ShortMonthNames[12] := 'Dez';\r\n    Result.LongMonthNames[1] := 'Januar';\r\n    Result.LongMonthNames[2] := 'Februar';\r\n    Result.LongMonthNames[3] := 'März';\r\n    Result.LongMonthNames[4] := 'April';\r\n    Result.LongMonthNames[5] := 'Mai';\r\n    Result.LongMonthNames[6] := 'Juni';\r\n    Result.LongMonthNames[7] := 'Juli';\r\n    Result.LongMonthNames[8] := 'August';\r\n    Result.LongMonthNames[9] := 'September';\r\n    Result.LongMonthNames[10] := 'Oktober';\r\n    Result.LongMonthNames[11] := 'November';\r\n    Result.LongMonthNames[12] := 'Dezember';\r\n  end\r\n  else\r\n  if pos('FR', Uppercase(ALocale)) = 1 then\r\n  begin\r\n    Result.LongDayNames[1] := 'Dimanche';\r\n    Result.LongDayNames[2] := 'Lundi';\r\n    Result.LongDayNames[3] := 'Mardi';\r\n    Result.LongDayNames[4] := 'Mecredi';\r\n    Result.LongDayNames[5] := 'Jeudi';\r\n    Result.LongDayNames[6] := 'Vendredi';\r\n    Result.LongDayNames[7] := 'Samedi';\r\n    Result.ShortDayNames[1] := 'Dim';\r\n    Result.ShortDayNames[2] := 'Lun';\r\n    Result.ShortDayNames[3] := 'Mar';\r\n    Result.ShortDayNames[4] := 'Mer';\r\n    Result.ShortDayNames[5] := 'Jeu';\r\n    Result.ShortDayNames[6] := 'Ven';\r\n    Result.ShortDayNames[7] := 'Sam';\r\n\r\n    Result.ShortMonthNames[1] := 'Jan';\r\n    Result.ShortMonthNames[2] := 'Fév';\r\n    Result.ShortMonthNames[3] := 'Mar';\r\n    Result.ShortMonthNames[4] := 'Avr';\r\n    Result.ShortMonthNames[5] := 'Mai';\r\n    Result.ShortMonthNames[6] := 'Jun';\r\n    Result.ShortMonthNames[7] := 'Jul';\r\n    Result.ShortMonthNames[8] := 'Aoû';\r\n    Result.ShortMonthNames[9] := 'Sep';\r\n    Result.ShortMonthNames[10] := 'Oct';\r\n    Result.ShortMonthNames[11] := 'Nov';\r\n    Result.ShortMonthNames[12] := 'Déc';\r\n    Result.LongMonthNames[1] := 'Janvier';\r\n    Result.LongMonthNames[2] := 'Février';\r\n    Result.LongMonthNames[3] := 'Mars';\r\n    Result.LongMonthNames[4] := 'Avril';\r\n    Result.LongMonthNames[5] := 'Mai';\r\n    Result.LongMonthNames[6] := 'Juin';\r\n    Result.LongMonthNames[7] := 'Juillet';\r\n    Result.LongMonthNames[8] := 'Août';\r\n    Result.LongMonthNames[9] := 'Septembre';\r\n    Result.LongMonthNames[10] := 'Octobre';\r\n    Result.LongMonthNames[11] := 'Novembre';\r\n    Result.LongMonthNames[12] := 'Décembre';\r\n  end\r\n  else\r\n  if pos('ES', Uppercase(ALocale)) = 1 then\r\n  begin\r\n    Result.LongDayNames[1] := 'Domingo';\r\n    Result.LongDayNames[2] := 'Lunes';\r\n    Result.LongDayNames[3] := 'Martes';\r\n    Result.LongDayNames[4] := 'Miércoles';\r\n    Result.LongDayNames[5] := 'Jueves';\r\n    Result.LongDayNames[6] := 'Viernes';\r\n    Result.LongDayNames[7] := 'Sábado';\r\n    Result.ShortDayNames[1] := 'Dom';\r\n    Result.ShortDayNames[2] := 'Lun';\r\n    Result.ShortDayNames[3] := 'Mar';\r\n    Result.ShortDayNames[4] := 'Mié';\r\n    Result.ShortDayNames[5] := 'Jue';\r\n    Result.ShortDayNames[6] := 'Vie';\r\n    Result.ShortDayNames[7] := 'Sáb';\r\n\r\n    Result.ShortMonthNames[1] := 'Ene';\r\n    Result.ShortMonthNames[2] := 'Feb';\r\n    Result.ShortMonthNames[3] := 'Mar';\r\n    Result.ShortMonthNames[4] := 'Abr';\r\n    Result.ShortMonthNames[5] := 'May';\r\n    Result.ShortMonthNames[6] := 'Jun';\r\n    Result.ShortMonthNames[7] := 'Jul';\r\n    Result.ShortMonthNames[8] := 'Ago';\r\n    Result.ShortMonthNames[9] := 'Sep';\r\n    Result.ShortMonthNames[10] := 'Oct';\r\n    Result.ShortMonthNames[11] := 'Nov';\r\n    Result.ShortMonthNames[12] := 'Dic';\r\n    Result.LongMonthNames[1] := 'January';\r\n    Result.LongMonthNames[2] := 'Febrero';\r\n    Result.LongMonthNames[3] := 'Marzi';\r\n    Result.LongMonthNames[4] := 'Abril';\r\n    Result.LongMonthNames[5] := 'Mayo';\r\n    Result.LongMonthNames[6] := 'Junio';\r\n    Result.LongMonthNames[7] := 'Julio';\r\n    Result.LongMonthNames[8] := 'Agusto';\r\n    Result.LongMonthNames[9] := 'Septiembre';\r\n    Result.LongMonthNames[10] := 'Octubre';\r\n    Result.LongMonthNames[11] := 'Noviembre';\r\n    Result.LongMonthNames[12] := 'Diciembre';\r\n  end\r\n  else\r\n  begin\r\n    Result.LongDayNames[1] := 'Sunday';\r\n    Result.LongDayNames[2] := 'Monday';\r\n    Result.LongDayNames[3] := 'Tuesday';\r\n    Result.LongDayNames[4] := 'Wednesday';\r\n    Result.LongDayNames[5] := 'Thursday';\r\n    Result.LongDayNames[6] := 'Friday';\r\n    Result.LongDayNames[7] := 'Saturday';\r\n    Result.ShortDayNames[1] := 'Sun';\r\n    Result.ShortDayNames[2] := 'Mon';\r\n    Result.ShortDayNames[3] := 'Tue';\r\n    Result.ShortDayNames[4] := 'Wed';\r\n    Result.ShortDayNames[5] := 'Thu';\r\n    Result.ShortDayNames[6] := 'Fri';\r\n    Result.ShortDayNames[7] := 'Sat';\r\n    Result.ShortMonthNames[1] := 'Jan';\r\n    Result.ShortMonthNames[2] := 'Feb';\r\n    Result.ShortMonthNames[3] := 'Mar';\r\n    Result.ShortMonthNames[4] := 'Apr';\r\n    Result.ShortMonthNames[5] := 'May';\r\n    Result.ShortMonthNames[6] := 'Jun';\r\n    Result.ShortMonthNames[7] := 'Jul';\r\n    Result.ShortMonthNames[8] := 'Aug';\r\n    Result.ShortMonthNames[9] := 'Sep';\r\n    Result.ShortMonthNames[10] := 'Oct';\r\n    Result.ShortMonthNames[11] := 'Nov';\r\n    Result.ShortMonthNames[12] := 'Dec';\r\n    Result.LongMonthNames[1] := 'January';\r\n    Result.LongMonthNames[2] := 'February';\r\n    Result.LongMonthNames[3] := 'March';\r\n    Result.LongMonthNames[4] := 'April';\r\n    Result.LongMonthNames[5] := 'May';\r\n    Result.LongMonthNames[6] := 'June';\r\n    Result.LongMonthNames[7] := 'July';\r\n    Result.LongMonthNames[8] := 'August';\r\n    Result.LongMonthNames[9] := 'September';\r\n    Result.LongMonthNames[10] := 'October';\r\n    Result.LongMonthNames[11] := 'November';\r\n    Result.LongMonthNames[12] := 'December';\r\n  end;\r\n\r\n  Result.DateTimeToStrFormat[False] := 'c';\r\n  Result.DateTimeToStrFormat[True] := 'f';\r\n  Result.DateSeparator := '-';\r\n  Result.TimeSeparator := ':';\r\n  Result.ShortDateFormat := 'yyyy-mm-dd';\r\n  Result.LongDateFormat := 'ddd, yyyy-mm-dd';\r\n  Result.DecimalSeparator := '.';\r\n  Result.ThousandSeparator := ',';\r\n  Result.TimeAMString := 'AM';\r\n  Result.TimePMString := 'PM';\r\n  Result.TwoDigitYearCenturyWindow := 50;\r\n\r\n  Result.ShortTimeFormat := GetLocaleShortTimeFormat(ALocale); // 'hh:nn';\r\n  Result.LongTimeFormat := GetLocaleLongTimeFormat(ALocale); // 'hh:nn:ss';\r\n  Result.ShortDateFormat := GetLocaleShortDateFormat(ALocale);\r\n\r\n  for lCount := Low(cDateSeps) to High(cDateSeps) do\r\n  begin\r\n    if Result.ShortDateFormat.IndexOf(cDateSeps[lCount]) >= 0 then\r\n      Result.DateSeparator := cDateSeps[lCount];\r\n  end;\r\n\r\n  asm\r\n    var lEvent = new Date('Jan 1, 1980 06:07:08 GMT+00:00');\r\n    var lLoc = \"\";\r\n    if (ALocale == \"\")\r\n      lLoc = navigator.language;\r\n    else\r\n      lLoc = ALocale;\r\n    lTimeStr = lEvent.toLocaleTimeString(lLoc);\r\n  end;\r\n\r\n  for lCount := Low(cTimeSeps) to High(cTimeSeps) do\r\n  begin\r\n    if lTimeStr.IndexOf(cTimeSeps[lCount]) >= 0 then\r\n      Result.TimeSeparator := cTimeSeps[lCount];\r\n  end;\r\n\r\n  for lCount := Low(Result.ShortDayNames) to High(Result.ShortDayNames) do\r\n    Result.ShortDayNames[lCount] := GetLocaleShortDayName(lCount, ALocale);\r\n  for lCount := Low(Result.LongDayNames) to High(Result.LongDayNames) do\r\n    Result.LongDayNames[lCount] := GetLocaleLongDayName(lCount, ALocale);\r\n\r\n  for lCount := Low(Result.ShortMonthNames) to High(Result.ShortMonthNames) do\r\n    Result.ShortMonthNames[lCount] := GetLocaleShortMonthName(lCount, ALocale);\r\n  for lCount := Low(Result.LongMonthNames) to High(Result.LongMonthNames) do\r\n    Result.LongMonthNames[lCount] := GetLocaleLongMonthName(lCount, ALocale);\r\n\r\n  Result.DecimalSeparator := GetLocaleDecimalSeparator(ALocale);\r\n\r\n  for lCount := Low(cDecSeps) to High(cDecSeps) do\r\n  begin\r\n    if Result.DecimalSeparator = cDecSeps[lCount] then\r\n    begin\r\n      Result.ThousandSeparator := cThousandSeps[lCount];\r\n      Break;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(TFormatSettings.InitLocaleHandler) then\r\n    TFormatSettings.InitLocaleHandler(UpperCase(aLocale),Result);\r\nend;\r\n\r\nclass function TFormatSettings.GetBrowserLocale: string;\r\nasm\r\n  return navigator.language;\r\nend;\r\n\r\nclass function TFormatSettings.GetLocaleDecimalSeparator(const ALocale: string): string; assembler;\r\nasm\r\n  var lNumber = 1.1;\r\n  lNumber = lNumber.toLocaleString(ALocale).substring(1, 2);\r\n  return lNumber;\r\nend;\r\n\r\nclass function TFormatSettings.GetLocaleLongDayName(const ADayOfWeek: Integer; const ALocale: string): string; assembler;\r\nasm\r\n  var lBaseDate = new Date(2017, 0, 1); // Sunday\r\n  lBaseDate.setDate(lBaseDate.getDate() + ADayOfWeek - 1);\r\n  return lBaseDate.toLocaleDateString(ALocale, { weekday: 'long' });\r\nend;\r\n\r\nclass function TFormatSettings.GetLocaleLongMonthName(const AMonth: Integer; const ALocale: string): string; assembler;\r\nasm\r\n  var lBaseDate = new Date(2017, AMonth - 1, 1);\r\n  return lBaseDate.toLocaleDateString(ALocale, { month: 'long' });\r\nend;\r\n\r\nclass function TFormatSettings.GetLocaleLongTimeFormat(ALocale: string): string;\r\nbegin\r\n  Result := 'hh:nn:ss';\r\n\r\n  if Uppercase(ALocale) = 'EN-US' then\r\n    Result := 'hh:nn:ss AMPM';\r\nend;\r\n\r\nclass function TFormatSettings.GetLocaleShortDateFormat(ALocale: string): string;\r\nconst\r\n  cDeli = '-';\r\n  cShortLength = 2;\r\nvar\r\n  lIndex: Integer;\r\n  res: string;\r\nbegin\r\n  res := string.Empty;\r\n\r\n  ALocale := ALocale.ToLower;\r\n\r\n  lIndex := ALocale.IndexOf(cDeli);\r\n\r\n  if lIndex >= 0 then\r\n    // ensure the first part is lowercase, second part is uppercase\r\n    ALocale := ALocale.SubString(0, lIndex) + ALocale.SubString(lIndex).ToUpper\r\n  else\r\n  begin\r\n    // when the locale is the main locale specifier only without country\r\n    if ALocale.Length = cShortLength then\r\n      ALocale := ALocale + cDeli + ALocale.ToUpper;\r\n  end;\r\n\r\n  asm\r\n    var lFormats = {\r\n      \"ar-SA\" : \"dd/MM/yy\",\r\n      \"bg-BG\" : \"dd.M.yyyy\",\r\n      \"ca-ES\" : \"dd/MM/yyyy\",\r\n      \"zh-TW\" : \"yyyy/M/d\",\r\n      \"cs-CZ\" : \"d.M.yyyy\",\r\n      \"da-DK\" : \"dd-MM-yyyy\",\r\n      \"de-DE\" : \"dd.MM.yyyy\",\r\n      \"el-GR\" : \"d/M/yyyy\",\r\n      \"en-US\" : \"M/d/yyyy\",\r\n      \"fi-FI\" : \"d.M.yyyy\",\r\n      \"fr-FR\" : \"dd/MM/yyyy\",\r\n      \"he-IL\" : \"dd/MM/yyyy\",\r\n      \"hu-HU\" : \"yyyy. MM. dd.\",\r\n      \"is-IS\" : \"d.M.yyyy\",\r\n      \"it-IT\" : \"dd/MM/yyyy\",\r\n      \"ja-JP\" : \"yyyy/MM/dd\",\r\n      \"ko-KR\" : \"yyyy-MM-dd\",\r\n      \"nl-NL\" : \"d-M-yyyy\",\r\n      \"nb-NO\" : \"dd.MM.yyyy\",\r\n      \"pl-PL\" : \"yyyy-MM-dd\",\r\n      \"pt-BR\" : \"d/M/yyyy\",\r\n      \"ro-RO\" : \"dd.MM.yyyy\",\r\n      \"ru-RU\" : \"dd.MM.yyyy\",\r\n      \"hr-HR\" : \"d.M.yyyy\",\r\n      \"sk-SK\" : \"d. M. yyyy\",\r\n      \"sq-AL\" : \"yyyy-MM-dd\",\r\n      \"sv-SE\" : \"yyyy-MM-dd\",\r\n      \"th-TH\" : \"d/M/yyyy\",\r\n      \"tr-TR\" : \"dd.MM.yyyy\",\r\n      \"ur-PK\" : \"dd/MM/yyyy\",\r\n      \"id-ID\" : \"dd/MM/yyyy\",\r\n      \"uk-UA\" : \"dd.MM.yyyy\",\r\n      \"be-BY\" : \"dd.MM.yyyy\",\r\n      \"sl-SI\" : \"d.M.yyyy\",\r\n      \"et-EE\" : \"d.MM.yyyy\",\r\n      \"lv-LV\" : \"yyyy.MM.dd.\",\r\n      \"lt-LT\" : \"yyyy.MM.dd\",\r\n      \"fa-IR\" : \"MM/dd/yyyy\",\r\n      \"vi-VN\" : \"dd/MM/yyyy\",\r\n      \"hy-AM\" : \"dd.MM.yyyy\",\r\n      \"az-Latn-AZ\" : \"dd.MM.yyyy\",\r\n      \"eu-ES\" : \"yyyy/MM/dd\",\r\n      \"mk-MK\" : \"dd.MM.yyyy\",\r\n      \"af-ZA\" : \"yyyy/MM/dd\",\r\n      \"ka-GE\" : \"dd.MM.yyyy\",\r\n      \"fo-FO\" : \"dd-MM-yyyy\",\r\n      \"hi-IN\" : \"dd-MM-yyyy\",\r\n      \"ms-MY\" : \"dd/MM/yyyy\",\r\n      \"kk-KZ\" : \"dd.MM.yyyy\",\r\n      \"ky-KG\" : \"dd.MM.yy\",\r\n      \"sw-KE\" : \"M/d/yyyy\",\r\n      \"uz-Latn-UZ\" : \"dd/MM yyyy\",\r\n      \"tt-RU\" : \"dd.MM.yyyy\",\r\n      \"pa-IN\" : \"dd-MM-yy\",\r\n      \"gu-IN\" : \"dd-MM-yy\",\r\n      \"ta-IN\" : \"dd-MM-yyyy\",\r\n      \"te-IN\" : \"dd-MM-yy\",\r\n      \"kn-IN\" : \"dd-MM-yy\",\r\n      \"mr-IN\" : \"dd-MM-yyyy\",\r\n      \"sa-IN\" : \"dd-MM-yyyy\",\r\n      \"mn-MN\" : \"yy.MM.dd\",\r\n      \"gl-ES\" : \"dd/MM/yy\",\r\n      \"kok-IN\" : \"dd-MM-yyyy\",\r\n      \"syr-SY\" : \"dd/MM/yyyy\",\r\n      \"dv-MV\" : \"dd/MM/yy\",\r\n      \"ar-IQ\" : \"dd/MM/yyyy\",\r\n      \"zh-CN\" : \"yyyy/M/d\",\r\n      \"de-CH\" : \"dd.MM.yyyy\",\r\n      \"en-GB\" : \"dd/MM/yyyy\",\r\n      \"es-MX\" : \"dd/MM/yyyy\",\r\n      \"fr-BE\" : \"d/MM/yyyy\",\r\n      \"it-CH\" : \"dd.MM.yyyy\",\r\n      \"nl-BE\" : \"d/MM/yyyy\",\r\n      \"nn-NO\" : \"dd.MM.yyyy\",\r\n      \"pt-PT\" : \"dd-MM-yyyy\",\r\n      \"sr-Latn-CS\" : \"d.M.yyyy\",\r\n      \"sv-FI\" : \"d.M.yyyy\",\r\n      \"az-Cyrl-AZ\" : \"dd.MM.yyyy\",\r\n      \"ms-BN\" : \"dd/MM/yyyy\",\r\n      \"uz-Cyrl-UZ\" : \"dd.MM.yyyy\",\r\n      \"ar-EG\" : \"dd/MM/yyyy\",\r\n      \"zh-HK\" : \"d/M/yyyy\",\r\n      \"de-AT\" : \"dd.MM.yyyy\",\r\n      \"en-AU\" : \"d/MM/yyyy\",\r\n      \"es-ES\" : \"dd/MM/yyyy\",\r\n      \"fr-CA\" : \"yyyy-MM-dd\",\r\n      \"sr-Cyrl-CS\" : \"d.M.yyyy\",\r\n      \"ar-LY\" : \"dd/MM/yyyy\",\r\n      \"zh-SG\" : \"d/M/yyyy\",\r\n      \"de-LU\" : \"dd.MM.yyyy\",\r\n      \"en-CA\" : \"dd/MM/yyyy\",\r\n      \"es-GT\" : \"dd/MM/yyyy\",\r\n      \"fr-CH\" : \"dd.MM.yyyy\",\r\n      \"ar-DZ\" : \"dd-MM-yyyy\",\r\n      \"zh-MO\" : \"d/M/yyyy\",\r\n      \"de-LI\" : \"dd.MM.yyyy\",\r\n      \"en-NZ\" : \"d/MM/yyyy\",\r\n      \"es-CR\" : \"dd/MM/yyyy\",\r\n      \"fr-LU\" : \"dd/MM/yyyy\",\r\n      \"ar-MA\" : \"dd-MM-yyyy\",\r\n      \"en-IE\" : \"dd/MM/yyyy\",\r\n      \"es-PA\" : \"MM/dd/yyyy\",\r\n      \"fr-MC\" : \"dd/MM/yyyy\",\r\n      \"ar-TN\" : \"dd-MM-yyyy\",\r\n      \"en-ZA\" : \"yyyy/MM/dd\",\r\n      \"es-DO\" : \"dd/MM/yyyy\",\r\n      \"ar-OM\" : \"dd/MM/yyyy\",\r\n      \"en-JM\" : \"dd/MM/yyyy\",\r\n      \"es-VE\" : \"dd/MM/yyyy\",\r\n      \"ar-YE\" : \"dd/MM/yyyy\",\r\n      \"en-029\" : \"MM/dd/yyyy\",\r\n      \"es-CO\" : \"dd/MM/yyyy\",\r\n      \"ar-SY\" : \"dd/MM/yyyy\",\r\n      \"en-BZ\" : \"dd/MM/yyyy\",\r\n      \"es-PE\" : \"dd/MM/yyyy\",\r\n      \"ar-JO\" : \"dd/MM/yyyy\",\r\n      \"en-TT\" : \"dd/MM/yyyy\",\r\n      \"es-AR\" : \"dd/MM/yyyy\",\r\n      \"ar-LB\" : \"dd/MM/yyyy\",\r\n      \"en-ZW\" : \"M/d/yyyy\",\r\n      \"es-EC\" : \"dd/MM/yyyy\",\r\n      \"ar-KW\" : \"dd/MM/yyyy\",\r\n      \"en-PH\" : \"M/d/yyyy\",\r\n      \"es-CL\" : \"dd-MM-yyyy\",\r\n      \"ar-AE\" : \"dd/MM/yyyy\",\r\n      \"es-UY\" : \"dd/MM/yyyy\",\r\n      \"ar-BH\" : \"dd/MM/yyyy\",\r\n      \"es-PY\" : \"dd/MM/yyyy\",\r\n      \"ar-QA\" : \"dd/MM/yyyy\",\r\n      \"es-BO\" : \"dd/MM/yyyy\",\r\n      \"es-SV\" : \"dd/MM/yyyy\",\r\n      \"es-HN\" : \"dd/MM/yyyy\",\r\n      \"es-NI\" : \"dd/MM/yyyy\",\r\n      \"es-PR\" : \"dd/MM/yyyy\",\r\n      \"am-ET\" : \"d/M/yyyy\",\r\n      \"tzm-Latn-DZ\" : \"dd-MM-yyyy\",\r\n      \"iu-Latn-CA\" : \"d/MM/yyyy\",\r\n      \"sma-NO\" : \"dd.MM.yyyy\",\r\n      \"mn-Mong-CN\" : \"yyyy/M/d\",\r\n      \"gd-GB\" : \"dd/MM/yyyy\",\r\n      \"en-MY\" : \"d/M/yyyy\",\r\n      \"prs-AF\" : \"dd/MM/yy\",\r\n      \"bn-BD\" : \"dd-MM-yy\",\r\n      \"wo-SN\" : \"dd/MM/yyyy\",\r\n      \"rw-RW\" : \"M/d/yyyy\",\r\n      \"qut-GT\" : \"dd/MM/yyyy\",\r\n      \"sah-RU\" : \"MM.dd.yyyy\",\r\n      \"gsw-FR\" : \"dd/MM/yyyy\",\r\n      \"co-FR\" : \"dd/MM/yyyy\",\r\n      \"oc-FR\" : \"dd/MM/yyyy\",\r\n      \"mi-NZ\" : \"dd/MM/yyyy\",\r\n      \"ga-IE\" : \"dd/MM/yyyy\",\r\n      \"se-SE\" : \"yyyy-MM-dd\",\r\n      \"br-FR\" : \"dd/MM/yyyy\",\r\n      \"smn-FI\" : \"d.M.yyyy\",\r\n      \"moh-CA\" : \"M/d/yyyy\",\r\n      \"arn-CL\" : \"dd-MM-yyyy\",\r\n      \"ii-CN\" : \"yyyy/M/d\",\r\n      \"dsb-DE\" : \"d. M. yyyy\",\r\n      \"ig-NG\" : \"d/M/yyyy\",\r\n      \"kl-GL\" : \"dd-MM-yyyy\",\r\n      \"lb-LU\" : \"dd/MM/yyyy\",\r\n      \"ba-RU\" : \"dd.MM.yy\",\r\n      \"nso-ZA\" : \"yyyy/MM/dd\",\r\n      \"quz-BO\" : \"dd/MM/yyyy\",\r\n      \"yo-NG\" : \"d/M/yyyy\",\r\n      \"ha-Latn-NG\" : \"d/M/yyyy\",\r\n      \"fil-PH\" : \"M/d/yyyy\",\r\n      \"ps-AF\" : \"dd/MM/yy\",\r\n      \"fy-NL\" : \"d-M-yyyy\",\r\n      \"ne-NP\" : \"M/d/yyyy\",\r\n      \"se-NO\" : \"dd.MM.yyyy\",\r\n      \"iu-Cans-CA\" : \"d/M/yyyy\",\r\n      \"sr-Latn-RS\" : \"d.M.yyyy\",\r\n      \"si-LK\" : \"yyyy-MM-dd\",\r\n      \"sr-Cyrl-RS\" : \"d.M.yyyy\",\r\n      \"lo-LA\" : \"dd/MM/yyyy\",\r\n      \"km-KH\" : \"yyyy-MM-dd\",\r\n      \"cy-GB\" : \"dd/MM/yyyy\",\r\n      \"bo-CN\" : \"yyyy/M/d\",\r\n      \"sms-FI\" : \"d.M.yyyy\",\r\n      \"as-IN\" : \"dd-MM-yyyy\",\r\n      \"ml-IN\" : \"dd-MM-yy\",\r\n      \"en-IN\" : \"dd-MM-yyyy\",\r\n      \"or-IN\" : \"dd-MM-yy\",\r\n      \"bn-IN\" : \"dd-MM-yy\",\r\n      \"tk-TM\" : \"dd.MM.yy\",\r\n      \"bs-Latn-BA\" : \"d.M.yyyy\",\r\n      \"mt-MT\" : \"dd/MM/yyyy\",\r\n      \"sr-Cyrl-ME\" : \"d.M.yyyy\",\r\n      \"se-FI\" : \"d.M.yyyy\",\r\n      \"zu-ZA\" : \"yyyy/MM/dd\",\r\n      \"xh-ZA\" : \"yyyy/MM/dd\",\r\n      \"tn-ZA\" : \"yyyy/MM/dd\",\r\n      \"hsb-DE\" : \"d. M. yyyy\",\r\n      \"bs-Cyrl-BA\" : \"d.M.yyyy\",\r\n      \"tg-Cyrl-TJ\" : \"dd.MM.yy\",\r\n      \"sr-Latn-BA\" : \"d.M.yyyy\",\r\n      \"smj-NO\" : \"dd.MM.yyyy\",\r\n      \"rm-CH\" : \"dd/MM/yyyy\",\r\n      \"smj-SE\" : \"yyyy-MM-dd\",\r\n      \"quz-EC\" : \"dd/MM/yyyy\",\r\n      \"quz-PE\" : \"dd/MM/yyyy\",\r\n      \"hr-BA\" : \"d.M.yyyy.\",\r\n      \"sr-Latn-ME\" : \"d.M.yyyy\",\r\n      \"sma-SE\" : \"yyyy-MM-dd\",\r\n      \"en-SG\" : \"d/M/yyyy\",\r\n      \"ug-CN\" : \"yyyy-M-d\",\r\n      \"sr-Cyrl-BA\" : \"d.M.yyyy\",\r\n      \"es-US\" : \"M/d/yyyy\"};\r\n    res = lFormats[ALocale] || 'dd/MM/yyyy';\r\n  end;\r\n\r\n  Result := res;\r\nend;\r\n\r\nclass function TFormatSettings.GetLocaleShortDayName(const ADayOfWeek: Integer; const ALocale: string): string; assembler;\r\nasm\r\n  var lBaseDate = new Date(2017, 0, 1); // Sunday\r\n  lBaseDate.setDate(lBaseDate.getDate() + ADayOfWeek - 1);\r\n\r\n  var lLoc = \"\";\r\n  if (ALocale == '')\r\n    lLoc = navigator.language\r\n  else\r\n    lLoc = ALocale;\r\n\r\n  return lBaseDate.toLocaleDateString(lLoc, { weekday: 'short' });\r\nend;\r\n\r\nclass function TFormatSettings.GetLocaleShortMonthName(const AMonth: Integer; const ALocale: string): string; assembler;\r\nasm\r\n  var lBaseDate = new Date(2017, AMonth - 1, 1);\r\n  var lLoc = \"\";\r\n  if (ALocale == '')\r\n    lLoc = navigator.language\r\n  else\r\n    lLoc = ALocale;\r\n  return lBaseDate.toLocaleDateString(lLoc, { month: 'short' });\r\nend;\r\n\r\nclass function TFormatSettings.GetLocaleShortTimeFormat(\r\n  ALocale: string): string;\r\nbegin\r\n  Result := 'hh:nn';\r\n\r\n  if Uppercase(ALocale) = 'EN-US' then\r\n    Result := 'h:nn AMPM';\r\nend;\r\n\r\nclass function TFormatSettings.Invariant: TFormatSettings;\r\nbegin\r\n  if not FInvariantCreated then\r\n  begin\r\n    FInvariant := Create('EN-US');\r\n    FInvariant.CurrencyString := #$00A4;\r\n    FInvariant.CurrencyFormat := 0;\r\n    FInvariant.CurrencyDecimals := 2;\r\n    FInvariant.DateSeparator := '/';\r\n    FInvariant.TimeSeparator := ':';\r\n    FInvariant.ShortDateFormat := 'MM/dd/yyyy';\r\n    FInvariant.LongDateFormat := 'dddd, dd MMMMM yyyy HH:mm:ss';\r\n    FInvariant.TimeAMString := 'AM';\r\n    FInvariant.TimePMString := 'PM';\r\n    FInvariant.ShortTimeFormat := 'HH:mm';\r\n    FInvariant.LongTimeFormat := 'HH:mm:ss';\r\n    FInvariant.ShortMonthNames := DefaultShortMonthNames;\r\n    FInvariant.LongMonthNames := DefaultLongMonthNames;\r\n    FInvariant.ShortDayNames := DefaultShortDayNames;\r\n    FInvariant.LongDayNames := DefaultLongDayNames;\r\n    FInvariant.ThousandSeparator := ',';\r\n    FInvariant.DecimalSeparator := '.';\r\n    FInvariant.TwoDigitYearCenturyWindow := 50;\r\n    FInvariant.NegCurrFormat := 0;\r\n    FInvariantCreated := True;\r\n  end;\r\n  Result := FInvariant;\r\nend;\r\n\r\nclass constructor TFormatSettings.Init;\r\nbegin\r\n  InitGlobalFormatSettings;\r\nend;\r\n\r\nclass function TFormatSettings.GetJSLocale: string; assembler;\r\nasm\r\n  return Intl.DateTimeFormat().resolvedOptions().locale\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  FileNames\r\n  ---------------------------------------------------------------------}\r\n\r\nfunction ChangeFileExt(const FileName, Extension: PathStr): PathStr;\r\nvar\r\n  i : longint;\r\n  EndSep : Set of Char;\r\n  SOF : Boolean;\r\n\r\nbegin\r\n  i := Length(FileName);\r\n  EndSep:=AllowDirectorySeparators+AllowDriveSeparators+[ExtensionSeparator];\r\n  while (I > 0) and not(FileName[I] in EndSep) do\r\n    Dec(I);\r\n  if (I = 0) or (FileName[I] <> ExtensionSeparator) then\r\n    I := Length(FileName)+1\r\n  else\r\n    begin\r\n        SOF:=(I=1) or (FileName[i-1] in AllowDirectorySeparators);\r\n        if (SOF) and not FirstDotAtFileNameStartIsExtension then\r\n          I:=Length(FileName)+1;\r\n        end;\r\n  Result := Copy(FileName, 1, I - 1) + Extension;\r\nend;\r\n\r\nfunction ExtractFilePath(const FileName: PathStr): PathStr;\r\nvar\r\n  i : longint;\r\n  EndSep : Set of Char;\r\nbegin\r\n  i := Length(FileName);\r\n  EndSep:=AllowDirectorySeparators+AllowDriveSeparators;\r\n  while (i > 0) and not CharInSet(FileName[i],EndSep) do\r\n    Dec(i);\r\n  If I>0 then\r\n    Result := Copy(FileName, 1, i)\r\n  else\r\n    Result:='';\r\nend;\r\n\r\nfunction ExtractFileDir(const FileName: PathStr): PathStr;\r\nvar\r\n  i : longint;\r\n  EndSep : Set of Char;\r\nbegin\r\n  I := Length(FileName);\r\n  EndSep:=AllowDirectorySeparators+AllowDriveSeparators;\r\n  while (I > 0) and not CharInSet(FileName[I],EndSep) do\r\n    Dec(I);\r\n  if (I > 1) and CharInSet(FileName[I],AllowDirectorySeparators) and\r\n     not CharInSet(FileName[I - 1],EndSep) then\r\n    Dec(I);\r\n  Result := Copy(FileName, 1, I);\r\nend;\r\n\r\nfunction ExtractFileDrive(const FileName: PathStr): PathStr;\r\nvar\r\n  i,l: longint;\r\nbegin\r\n  Result := '';\r\n  l:=Length(FileName);\r\n  if (l<2) then\r\n    exit;\r\n  If CharInSet(FileName[2],AllowDriveSeparators) then\r\n    result:=Copy(FileName,1,2)\r\n  else if CharInSet(FileName[1],AllowDirectorySeparators) and\r\n          CharInSet(FileName[2],AllowDirectorySeparators) then\r\n    begin\r\n      i := 2;\r\n\r\n      { skip share }\r\n      While (i<l) and Not CharInSet(Filename[i+1],AllowDirectorySeparators) do\r\n        inc(i);\r\n      inc(i);\r\n\r\n      While (i<l) and Not CharInSet(Filename[i+1],AllowDirectorySeparators) do\r\n        inc(i);\r\n      Result:=Copy(FileName,1,i);\r\n    end;\r\nend;\r\n\r\nfunction ExtractFileName(const FileName: PathStr): PathStr;\r\nvar\r\n  i : longint;\r\n  EndSep : Set of Char;\r\nbegin\r\n  I := Length(FileName);\r\n  EndSep:=AllowDirectorySeparators+AllowDriveSeparators;\r\n  while (I > 0) and not CharInSet(FileName[I],EndSep) do\r\n    Dec(I);\r\n  Result := Copy(FileName, I + 1, MaxInt);\r\nend;\r\n\r\nfunction ExtractFileExt(const FileName: PathStr): PathStr;\r\nvar\r\n  i : longint;\r\n  EndSep : Set of Char;\r\n  SOF : Boolean; // Dot at Start of filename ?\r\n\r\nbegin\r\n  Result:='';\r\n  I := Length(FileName);\r\n  EndSep:=AllowDirectorySeparators+AllowDriveSeparators+[ExtensionSeparator];\r\n  while (I > 0) and not CharInSet(FileName[I],EndSep) do\r\n    Dec(I);\r\n  if (I > 0) and (FileName[I] = ExtensionSeparator) then\r\n    begin\r\n        SOF:=(I=1) or (FileName[i-1] in AllowDirectorySeparators);\r\n        if (Not SOF) or FirstDotAtFileNameStartIsExtension then\r\n          Result := Copy(FileName, I, MaxInt);\r\n        end\r\n  else\r\n    Result := '';\r\nend;\r\n\r\nfunction ExtractRelativepath(const BaseName, DestName: PathStr): PathStr;\r\n\r\nVar\r\n  OneLevelBack,Source, Dest   : PathStr;\r\n  Sc,Dc,I,J      : Longint;\r\n  SD,DD          : TPathStrArray;\r\n\r\n\r\nbegin\r\n  OneLevelBack := '..'+PathDelim;\r\n  If Uppercase(ExtractFileDrive(BaseName))<>Uppercase(ExtractFileDrive(DestName)) Then\r\n    begin\r\n    Result:=DestName;\r\n    exit;\r\n    end;\r\n  Source:=ExcludeTrailingPathDelimiter(ExtractFilePath(BaseName));\r\n  Dest:=ExcludeTrailingPathDelimiter(ExtractFilePath(DestName));\r\n  SD:=GetDirs (Source);\r\n  SC:=Length(SD);\r\n  DD:=GetDirs (Dest);\r\n  DC:=Length(SD);\r\n  I:=0;\r\n  While (I<DC) and (I<SC) do\r\n    begin\r\n    If SameText(DD[i],SD[i]) then\r\n      Inc(i)\r\n    else\r\n      Break;\r\n    end;\r\n  Result:='';\r\n  For J:=I to SC do Result:=Result+OneLevelBack;\r\n  For J:=I to DC do Result:=Result+DD[J]+PathDelim;\r\n  Result:=Result+ExtractFileName(DestName);\r\nend;\r\n\r\nfunction SetDirSeparators(const FileName: PathStr): PathStr;\r\n\r\nVar\r\n  I : integer;\r\n\r\nbegin\r\n  Result:=FileName;\r\n  For I:=1 to Length(Result) do\r\n    If CharInSet(Result[I],AllowDirectorySeparators) then\r\n      Result[i]:=PathDelim;\r\nend;\r\n\r\nfunction GetDirs(DirName: PathStr): TPathStrArray;\r\n\r\nVar\r\n  I,J,L : Longint;\r\n  D : String;\r\n\r\nbegin\r\n  I:=1;\r\n  J:=0;\r\n  L:=0;\r\n  SetLength(Result,Length(DirName));\r\n  While I<=Length(DirName) do\r\n    begin\r\n    If CharInSet(DirName[i],AllowDirectorySeparators) then\r\n      begin\r\n      D:=Copy(DirName,J+1,J-I);\r\n      if (D<>'') then\r\n        begin\r\n        Result[L]:=D;\r\n        Inc(L);\r\n        end;\r\n      J:=I;\r\n      end;\r\n    Inc(I);\r\n    end;\r\n  SetLength(Result,L);\r\nend;\r\n\r\nfunction IncludeTrailingPathDelimiter(const Path: PathStr): PathStr;\r\n\r\nVar\r\n  l : Integer;\r\n\r\nbegin\r\n  Result:=Path;\r\n  l:=Length(Result);\r\n  If (L=0) or not CharInSet(Result[l],AllowDirectorySeparators) then\r\n    Result:=Result+PathDelim;\r\nend;\r\n\r\nfunction ExcludeTrailingPathDelimiter(const Path: PathStr): PathStr;\r\n\r\nVar\r\n  L : Integer;\r\n\r\nbegin\r\n  L:=Length(Path);\r\n  If (L>0) and CharInSet(Path[L],AllowDirectorySeparators) then\r\n    Dec(L);\r\n  Result:=Copy(Path,1,L);\r\nend;\r\n\r\nfunction IncludeLeadingPathDelimiter(const Path: PathStr): PathStr;\r\n\r\nVar\r\n  l : Integer;\r\n\r\nbegin\r\n  Result:=Path;\r\n  l:=Length(Result);\r\n  If (L=0) or not CharInSet(Result[1],AllowDirectorySeparators) then\r\n    Result:=PathDelim+Result;\r\nend;\r\n\r\nfunction ExcludeLeadingPathDelimiter(const Path: PathStr): PathStr;\r\n\r\nVar\r\n  L : Integer;\r\n\r\nbegin\r\n  Result:=Path;\r\n  L:=Length(Result);\r\n  If (L>0) and CharInSet(Result[1],AllowDirectorySeparators) then\r\n    Delete(Result,1,1);\r\nend;\r\n\r\nfunction IsPathDelimiter(const Path: PathStr; Index: Integer): Boolean;\r\n\r\nbegin\r\n  Result:=(Index>0) and (Index<=Length(Path)) and CharInSet(Path[Index],AllowDirectorySeparators);\r\nend;\r\n\r\nfunction ConcatPaths(const Paths: array of PathStr): PathStr;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  if Length(Paths) > 0 then\r\n  begin\r\n    Result := Paths[0];\r\n    for I := 1 to Length(Paths) - 1 do\r\n      Result := IncludeTrailingPathDelimiter(Result) + ExcludeLeadingPathDelimiter(Paths[I]);\r\n  end else\r\n    Result := '';\r\nend;\r\n\r\nFunction EncodeHTMLEntities (S : String) : String;\r\n\r\nbegin\r\n  Result:='';\r\n  if S='' then exit;\r\n  asm\r\n   return S.replace(/[\\u00A0-\\u9999<>\\&]/gim, function(i) {\r\n     return '&#'+i.charCodeAt(0)+';';\r\n   });\r\n  end;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  Type helpers implementation\r\n  ---------------------------------------------------------------------}\r\n\r\n{ ---------------------------------------------------------------------\r\n  TGUIDHelper\r\n  ---------------------------------------------------------------------}\r\n\r\nProcedure NotImplemented(S : String);\r\n\r\nbegin\r\n  Raise Exception.Create('Not yet implemented : '+S);\r\nend;\r\n\r\nclass function TGuidHelper.Create(Src: TGUID; BigEndian: Boolean): TGUID;\r\nbegin\r\n  Result:=Src;\r\n  if Not Bigendian then\r\n    begin\r\n    Result.D1:=SwapEndian(Result.D1);\r\n    Result.D2:=SwapEndian(Result.D2);\r\n    Result.D3:=SwapEndian(Result.D3);\r\n    end;\r\nend;\r\n\r\nclass function TGuidHelper.Create(const Buf: TJSArrayBuffer; AStartIndex: Cardinal; BigEndian: Boolean): TGUID;\r\n\r\nVar\r\n  A : Cardinal;\r\n  B,C : Word;\r\n  V : TJSDataView;\r\n\r\nbegin\r\n  V:=TJSDataView.New(Buf);\r\n  // The get functions return by default correct endianness.\r\n  if BigEndian then\r\n    begin\r\n    A:=V.getUint32(aStartIndex);\r\n    B:=V.getUint16(AStartIndex+4);\r\n    C:=V.getUint16(AStartIndex+6);\r\n    end\r\n  else\r\n    begin\r\n    A:=SwapEndian(V.getUint32(aStartIndex));\r\n    B:=SwapEndian(V.getUint16(AStartIndex+4));\r\n    C:=SwapEndian(V.getUint16(AStartIndex+6));\r\n    end;\r\n  Result:=Create(A,B,C,V.GetUint8(AStartIndex+8),V.GetUint8(AStartIndex+9),V.GetUint8(AStartIndex+10),V.GetUint8(AStartIndex+11),V.GetUint8(AStartIndex+12),V.GetUint8(AStartIndex+13),V.GetUint8(AStartIndex+14),V.GetUint8(AStartIndex+15));\r\nend;\r\n\r\n\r\nclass function TGuidHelper.Create(const Data: array of Byte; AStartIndex: Cardinal; BigEndian: Boolean): TGUID;\r\n\r\nVar\r\n  D : TJSUint8Array;\r\n\r\nbegin\r\n  if ((System.Length(Data)-AStartIndex)<16) then\r\n    raise EArgumentException.CreateFmt('The length of a GUID array must be at least %d',[]);\r\n  D:=TJSUint8Array.From(Data);\r\n  Result:=Create(D.buffer,aStartIndex,BigEndian);\r\nend;\r\n\r\n\r\nclass function TGuidHelper.Create(const B: TBytes; DataEndian: TEndian): TGUID;\r\n\r\nbegin\r\n  Result:=Create(B,0,DataEndian);\r\nend;\r\n\r\nclass function TGuidHelper.Create(const B: TBytes; AStartIndex: Cardinal; DataEndian: TEndian): TGUID;\r\n\r\nbegin\r\n  if ((System.Length(B)-AStartIndex)<16) then\r\n    raise EArgumentException.CreateFmt('The length of a GUID array must be at least %d',[]);\r\n  Result:=Create(B,AStartIndex,DataEndian=TEndian.Big);\r\nend;\r\n\r\nclass function TGuidHelper.Create(const S: string): TGUID;\r\n\r\nbegin\r\n  Result:=StringToGUID(S);\r\nend;\r\n\r\nclass function TGuidHelper.Create(A: Integer; B: SmallInt; C: SmallInt; const D: TBytes): TGUID;\r\n\r\nbegin\r\n  if (System.Length(D)<>8) then\r\n    raise EArgumentException.CreateFmt('The length of a GUID array must be %d',[]);\r\n  Result:=Create(Cardinal(A),Word(B),Word(C),D[0],D[1],D[2],D[3],D[4],D[5],D[6],D[7]);\r\nend;\r\n\r\n(*\r\nclass function TGuidHelper.Create(A: Integer; B: SmallInt; C: SmallInt; D, E, F, G, H, I, J, K: Byte): TGUID;\r\n\r\nbegin\r\n  Result:=Create(Cardinal(A),Word(B),Word(C),D,E,F,G,H,I,J,K);\r\nend;\r\n*)\r\nclass function TGuidHelper.Create(A: Cardinal; B: Word; C: Word; D, E, F, G, H, I, J, K: Byte): TGUID;\r\n\r\nbegin\r\n  Result.D1 := Cardinal(A);\r\n  Result.D2 := Word(B);\r\n  Result.D3 := Word(C);\r\n  Result.D4[0] := D;\r\n  Result.D4[1] := E;\r\n  Result.D4[2] := F;\r\n  Result.D4[3] := G;\r\n  Result.D4[4] := H;\r\n  Result.D4[5] := I;\r\n  Result.D4[6] := J;\r\n  Result.D4[7] := K;\r\nend;\r\n\r\nclass function TGuidHelper.NewGuid: TGUID;\r\n\r\nbegin\r\n  CreateGUID(Result)\r\nend;\r\n\r\nclass function TGuidHelper.Empty: TGUID;\r\nbegin\r\n  Result:=Default(TGUID);\r\nend;\r\n\r\nfunction TGuidHelper.ToByteArray(DataEndian: TEndian): TBytes;\r\n\r\nVar\r\n  D : TJSUint8Array;\r\n  V : TJSDataView;\r\n  I : Integer;\r\n\r\nbegin\r\n  D:=TJSUint8array.New(16);\r\n  V:=TJSDataView.New(D.buffer);\r\n  V.setUint32(0,D1,DataEndian=TEndian.Little);\r\n  V.setUint16(4,D2,DataEndian=TEndian.Little);\r\n  V.setUint16(6,D3,DataEndian=TEndian.Little);\r\n  for I:=0 to 7 do\r\n    V.setUint8(8+I,D4[i]);\r\n  SetLength(Result, 16);\r\n  for I:=0 to 15 do\r\n    Result[i]:=V.getUint8(I);\r\nend;\r\n\r\nfunction TGuidHelper.ToString(SkipBrackets: Boolean): string;\r\n\r\nbegin\r\n  Result:=GuidToString(Self);\r\n  If SkipBrackets then\r\n    Result:=Copy(Result,2,Length(Result)-2);\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  TStringHelper\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction HaveChar(AChar : Char; const AList: array of Char) : Boolean;\r\n\r\nVar\r\n  I : SizeInt;\r\n\r\nbegin\r\n  I:=0;\r\n  Result:=False;\r\n  While (Not Result) and (I<Length(AList)) do\r\n    begin\r\n    Result:=(AList[i]=AChar);\r\n    Inc(I);\r\n    end;\r\nend;\r\n\r\nfunction TStringHelper.GetChar(AIndex: SizeInt): Char;\r\nbegin\r\n  Result:=Self[AIndex+1];\r\nend;\r\n\r\n\r\nfunction TStringHelper.GetLength: SizeInt;\r\nbegin\r\n  Result := System.Length(Self);\r\nend;\r\n\r\nprocedure TStringHelper.Set_Length(const AValue: SizeInt);\r\nbegin\r\n  System.SetLength(Self, AValue);\r\nend;\r\n\r\n\r\nclass function TStringHelper.Compare(const A: string; const B: string): Integer;\r\nbegin\r\n  Result:=Compare(A,0,B,0,System.Length(B),[]);\r\nend;\r\n\r\n\r\nclass function TStringHelper.Compare(const A: string; const B: string;\r\n  IgnoreCase: Boolean): Integer; //deprecated 'Use same with TCompareOptions';\r\nbegin\r\n  if IgnoreCase then\r\n    Result:=Compare(A,B,[coIgnoreCase])\r\n  else\r\n    Result:=Compare(A,B,[]);\r\nend;\r\n\r\n\r\nclass function TStringHelper.Compare(const A: string; const B: string;\r\n  Options: TCompareOptions): Integer;\r\nbegin\r\n  Result:=Compare(A,0,B,0,System.Length(B),Options);\r\nend;\r\n\r\n\r\nclass function TStringHelper.Compare(const A: string; IndexA: SizeInt;\r\n  const B: string; IndexB: SizeInt; ALen: SizeInt): Integer;\r\nbegin\r\n  Result:=Compare(A,IndexA,B,IndexB,ALen,[]);\r\nend;\r\n\r\n\r\nclass function TStringHelper.Compare(const A: string; IndexA: SizeInt;\r\n  const B: string; IndexB: SizeInt; ALen: SizeInt; IgnoreCase: Boolean\r\n  ): Integer; //deprecated 'Use same with TCompareOptions';\r\nbegin\r\n  if IgnoreCase then\r\n    Result:=Compare(A,IndexA,B,IndexB,ALen,[coIgnoreCase])\r\n  else\r\n    Result:=Compare(A,IndexA,B,IndexB,ALen,[])\r\nend;\r\n\r\n\r\nclass function TStringHelper.Compare(const A: string; IndexA: SizeInt;\r\n  const B: string; IndexB: SizeInt; ALen: SizeInt; Options: TCompareOptions\r\n  ): Integer;\r\n\r\nVar\r\n  AL,BL : String;\r\n  lOptions: TLocaleCompareOptions;\r\nbegin\r\n  AL:=System.Copy(A,IndexA+1,aLen);\r\n  BL:=System.Copy(B,IndexB+1,aLen);\r\n\r\n  if coDigitAsNumbers in Options then\r\n    lOptions.numeric := True;\r\n\r\n  if (coIgnoreCase in Options) then\r\n    Result:=TJSString(UpperCase(AL)).localeCompare(UpperCase(BL), 'default', lOptions)\r\n  else\r\n    Result:=TJSString(AL).localeCompare(BL, 'default', lOptions)\r\nend;\r\n\r\n\r\nclass function TStringHelper.CompareOrdinal(const A: string; const B: string\r\n  ): Integer;\r\n\r\nVar\r\n  L : SizeInt;\r\n\r\nbegin\r\n  L:=System.Length(B);\r\n  if L>System.Length(A) then\r\n    L:=System.Length(A);\r\n  Result:=CompareOrdinal(A,0,B,0,L);\r\nend;\r\n\r\n\r\nclass function TStringHelper.CompareOrdinal(const A: string; IndexA: SizeInt;\r\n  const B: string; IndexB: SizeInt; ALen: SizeInt): Integer;\r\n\r\nVar\r\n  I,M : integer;\r\n\r\nbegin\r\n  M:=System.Length(A)-IndexA;\r\n  If M>(System.Length(B)-IndexB) then\r\n    M:=(System.Length(B)-IndexB);\r\n  if M>aLen then\r\n    M:=aLen;\r\n  I:=0;\r\n  Result:=0;\r\n  While (Result=0) and (I<M) do\r\n    begin\r\n    Result:=TJSString(A).charCodeAt(IndexA+I)-TJSString(B).charCodeAt(IndexB+I);\r\n    Inc(I);\r\n    end;\r\nend;\r\n\r\n\r\nclass function TStringHelper.CompareText(const A: string; const B: string\r\n  ): Integer;\r\nbegin\r\n  Result:=SysUtils.CompareText(A,B);\r\nend;\r\n\r\n\r\nclass function TStringHelper.Copy(const Str: string): string;\r\nbegin\r\n  Result:=Str;\r\nend;\r\n\r\n\r\nclass function TStringHelper.Create(AChar: Char; ACount: SizeInt): string;\r\nbegin\r\n   Result:=StringOfChar(AChar,ACount);\r\nend;\r\n\r\n\r\nclass function TStringHelper.Create(const AValue: array of Char): string;\r\n\r\nbegin\r\n  Result:=Create(AValue,0,System.Length(AValue));\r\nend;\r\n\r\n\r\nclass function TStringHelper.Create(const AValue: array of Char;\r\n  StartIndex: SizeInt; ALen: SizeInt): string;\r\nVar\r\n  I : Integer;\r\nbegin\r\n  SetLength(Result,ALen);\r\n  For I:=1 to ALen do\r\n    Result[I]:=AValue[StartIndex+I-1];\r\nend;\r\n\r\n\r\nclass function TStringHelper.EndsText(const ASubText, AText: string): Boolean;\r\nbegin\r\n  Result:=(ASubText<>'') and (SysUtils.CompareText(System.Copy(AText,System.Length(AText)-System.Length(ASubText)+1,System.Length(ASubText)),ASubText)=0);\r\nend;\r\n\r\n\r\nclass function TStringHelper.Equals(const a: string; const b: string): Boolean;\r\nbegin\r\n  Result:=A=B;\r\nend;\r\n\r\n\r\nclass function TStringHelper.Format(const AFormat: string; const args: array of const): string;\r\nbegin\r\n  Result:=SysUtils.Format(AFormat,Args);\r\nend;\r\n\r\n\r\nclass function TStringHelper.IsNullOrEmpty(const AValue: string): Boolean;\r\nbegin\r\n  Result:=system.Length(AValue)=0;\r\nend;\r\n\r\n\r\nclass function TStringHelper.IsNullOrWhiteSpace(const AValue: string): Boolean;\r\nbegin\r\n  Result:=system.Length(SysUtils.Trim(AValue))=0;\r\nend;\r\n\r\n\r\nclass function TStringHelper.Join(const Separator: string; const Values: array of const): string;\r\n\r\nbegin\r\n  Result:=TJSArray(Values).Join(Separator);\r\nend;\r\n\r\nclass function TStringHelper.Join(const Separator: string;\r\n  const Values: array of string): string;\r\nbegin\r\n  Result:=TJSArray(Values).Join(Separator);\r\nend;\r\n\r\n\r\nclass function TStringHelper.Join(const Separator: string;\r\n  const Values: array of string; StartIndex: SizeInt; ACount: SizeInt): string;\r\n\r\nVar\r\n  VLen : SizeInt;\r\n\r\nbegin\r\n  VLen:=High(Values);\r\n  If (ACount<0) or ((StartIndex>0) and (StartIndex>VLen)) then\r\n    raise ERangeError.Create(SRangeError);\r\n  If (ACount=0) or (VLen<0) then\r\n    Result:=''\r\n  else\r\n    Result:=TJSArray(Values).Slice(StartIndex,StartIndex+aCount).Join(Separator);\r\nend;\r\n\r\n\r\nclass function TStringHelper.LowerCase(const S: string): string;\r\nbegin\r\n  Result:=SysUtils.Lowercase(S);\r\nend;\r\n\r\n\r\nclass function TStringHelper.Parse(const AValue: Boolean): string;\r\nbegin\r\n  Result:=BoolToStr(AValue);\r\nend;\r\n\r\n\r\nclass function TStringHelper.Parse(const AValue: Extended): string;\r\nbegin\r\n  Result:=FloatToStr(AValue);\r\nend;\r\n\r\n\r\nclass function TStringHelper.Parse(const AValue: NativeInt): string;\r\nbegin\r\n  Result:=IntToStr(AValue);\r\nend;\r\n\r\n\r\nclass function TStringHelper.Parse(const AValue: Integer): string;\r\nbegin\r\n  Result:=IntToStr(AValue);\r\nend;\r\n\r\n\r\nclass function TStringHelper.ToBoolean(const S: string): Boolean;\r\nbegin\r\n  Result:=StrToBool(S);\r\nend;\r\n\r\n\r\nclass function TStringHelper.ToDouble(const S: string): Double;\r\nbegin\r\n  Result:=StrToFloat(S);\r\nend;\r\n\r\n\r\nclass function TStringHelper.ToExtended(const S: string): Extended;\r\nbegin\r\n  Result:=StrToFloat(S);\r\nend;\r\n\r\n\r\nclass function TStringHelper.ToNativeInt(const S: string): NativeInt;\r\nbegin\r\n  Result:=StrToInt64(S);\r\nend;\r\n\r\n\r\nclass function TStringHelper.ToInteger(const S: string): Integer;\r\nbegin\r\n  Result:=StrToInt(S);\r\nend;\r\n\r\n\r\nclass function TStringHelper.UpperCase(const S: string): string;\r\nbegin\r\n  Result:=SysUtils.Uppercase(S);\r\nend;\r\n\r\nclass function TStringHelper.ToCharArray(const S: String): TCharArray;\r\n\r\nVar\r\n  I,Len: integer;\r\n\r\nbegin\r\n  Len:=System.Length(S);\r\n  SetLength(Result,Len);\r\n  For I:=1 to Len do\r\n    Result[I-1]:=S[I];\r\nend;\r\n\r\nfunction TStringHelper.CompareTo(const B: string): Integer;\r\nbegin\r\n  // Order is important\r\n  Result:=Compare(Self,B);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Contains(const AValue: string): Boolean;\r\nbegin\r\n  Result:=(AValue<>'') and (Pos(AValue,Self)>0);\r\nend;\r\n\r\n\r\nfunction TStringHelper.CountChar(const C: Char): SizeInt;\r\n\r\nVar\r\n  S : Char;\r\nbegin\r\n  Result:=0;\r\n  For S in Self do\r\n    if (S=C) then\r\n      Inc(Result);\r\nend;\r\n\r\n\r\nfunction TStringHelper.DeQuotedString: string;\r\nbegin\r\n  Result:=DeQuotedString('''');\r\nend;\r\n\r\n\r\nfunction TStringHelper.DeQuotedString(const AQuoteChar: Char): string;\r\n\r\nvar\r\n  L,I : SizeInt;\r\n  Res : Array of Char;\r\n  PS,PD : SizeInt;\r\n  IsQuote : Boolean;\r\n\r\nbegin\r\n  L:=System.Length(Self);\r\n  if (L<2) or Not ((Self[1]=AQuoteChar) and (Self[L]=AQuoteChar)) then\r\n    Exit(Self);\r\n  SetLength(Res,L);\r\n  IsQuote:=False;\r\n  PS:=2;\r\n  PD:=1;\r\n  For I:=2 to L-1 do\r\n    begin\r\n    if (Self[PS]=AQuoteChar) then\r\n      begin\r\n      IsQuote:=Not IsQuote;\r\n      if Not IsQuote then\r\n        begin\r\n        Result[PD]:=Self[PS];\r\n        Inc(PD);\r\n        end;\r\n      end\r\n    else\r\n      begin\r\n      if IsQuote then\r\n        IsQuote:=false;\r\n      Result[PD]:=Self[PS];\r\n      Inc(PD);\r\n      end;\r\n    Inc(PS);\r\n    end;\r\n  SetLength(Result,PD-1);\r\nend;\r\n\r\n\r\nfunction TStringHelper.EndsWith(const AValue: string): Boolean;\r\nbegin\r\n  Result:=EndsWith(AValue,False);\r\nend;\r\n\r\n\r\nfunction TStringHelper.EndsWith(const AValue: string; IgnoreCase: Boolean): Boolean;\r\n\r\nVar\r\n  L : SizeInt;\r\n  S : String;\r\n\r\nbegin\r\n  L:=system.Length(AVAlue);\r\n  Result:=L=0;\r\n  if Not Result then\r\n    begin\r\n    S:=system.Copy(Self,Length-L+1,L);\r\n    Result:=system.Length(S)=L;\r\n    if Result then\r\n      if IgnoreCase then\r\n        Result:=CompareText(S,AValue)=0\r\n      else\r\n        Result:=S=AValue;\r\n    end;\r\nend;\r\n\r\n\r\nfunction TStringHelper.Equals(const AValue: string): Boolean;\r\n\r\nbegin\r\n  Result:=(Self=AValue);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Format(const args: array of const): string;\r\n\r\nbegin\r\n  Result:=SysUtils.Format(Self,Args);\r\nend;\r\n\r\n\r\nfunction TStringHelper.GetHashCode: Integer;\r\n\r\n// Taken from contnrs, fphash\r\nvar\r\n  P,pmax : Integer;\r\n  L : TJSString;\r\n\r\nbegin\r\n{$push}\r\n{$Q-}\r\n  L:=TJSString(Self);\r\n  Result:=0;\r\n\r\n  P:=1;\r\n  pmax:=length+1;\r\n  while (p<pmax) do\r\n    begin\r\n    Result:=LongWord(LongInt(Result shl 5) - LongInt(Result)) xor L.CharCodeAt(P);\r\n    Inc(p);\r\n    end;\r\n{$pop}\r\nend;\r\n\r\n\r\nfunction TStringHelper.IndexOf(AValue: Char): SizeInt;\r\nbegin\r\n  Result:=IndexOf(AValue,0,Length);\r\nend;\r\n\r\n\r\nfunction TStringHelper.IndexOf(const AValue: string): SizeInt;\r\nbegin\r\n  Result:=IndexOf(AValue,0,Length);\r\nend;\r\n\r\n\r\nfunction TStringHelper.IndexOf(AValue: Char; StartIndex: SizeInt): SizeInt;\r\nbegin\r\n  Result:=IndexOf(AValue,StartIndex,Length);\r\nend;\r\n\r\n\r\nfunction TStringHelper.IndexOf(const AValue: string; StartIndex: SizeInt\r\n  ): SizeInt;\r\nbegin\r\n  Result:=IndexOf(AValue,StartIndex,Length);\r\nend;\r\n\r\n\r\nfunction TStringHelper.IndexOf(AValue: Char; StartIndex: SizeInt;\r\n  ACount: SizeInt): SizeInt;\r\n\r\nVar\r\n  S : String;\r\n\r\nbegin\r\n  S:=System.Copy(Self,StartIndex+1,ACount);\r\n  Result:=Pos(AValue,S)-1;\r\n  if Result<>-1 then\r\n    Result:=Result+StartIndex;\r\nend;\r\n\r\n\r\nfunction TStringHelper.IndexOf(const AValue: string; StartIndex: SizeInt;\r\n  ACount: SizeInt): SizeInt;\r\n\r\nVar\r\n  S : String;\r\n\r\nbegin\r\n  S:=System.Copy(Self,StartIndex+1,ACount);\r\n  Result:=Pos(AValue,S)-1;\r\n  if Result<>-1 then\r\n    Result:=Result+StartIndex;\r\nend;\r\n\r\nfunction TStringHelper.IndexOfUnQuoted(const AValue: string; StartQuote,\r\n  EndQuote: Char; StartIndex: SizeInt = 0): SizeInt;\r\n\r\nVar\r\n  LV : SizeInt;\r\n  S : String;\r\n\r\n  Function MatchAt(I : SizeInt) : Boolean ; Inline;\r\n\r\n  Var\r\n    J : SizeInt;\r\n\r\n  begin\r\n    J:=1;\r\n    Repeat\r\n      Result:=(S[I+J-1]=AValue[j]);\r\n      Inc(J);\r\n    Until (Not Result) or (J>LV);\r\n  end;\r\n\r\nVar\r\n  I,L,Q: SizeInt;\r\n\r\nbegin\r\n  S:=Self;\r\n  Result:=-1;\r\n  LV:=system.Length(AValue);\r\n  L:=Length-LV+1;\r\n  if L<0 then\r\n    L:=0;\r\n  I:=StartIndex+1;\r\n  Q:=0;\r\n  if StartQuote=EndQuote then\r\n    begin\r\n    While (Result=-1) and (I<=L) do\r\n      begin\r\n      if (S[I]=StartQuote) then\r\n        Q:=1-Q;\r\n      if (Q=0) and MatchAt(i) then\r\n        Result:=I-1;\r\n      Inc(I);\r\n      end;\r\n    end\r\n  else\r\n    begin\r\n    While (Result=-1) and (I<=L) do\r\n      begin\r\n      if S[I]=StartQuote then\r\n        Inc(Q)\r\n      else if (S[I]=EndQuote) and (Q>0) then\r\n        Dec(Q);\r\n      if (Q=0) and MatchAt(i) then\r\n        Result:=I-1;\r\n      Inc(I);\r\n      end;\r\n    end;\r\nend;\r\n\r\nfunction TStringHelper.IndexOfAny(const AnyOf: string): SizeInt;\r\nbegin\r\n  Result:=IndexOfAny(AnyOf.ToCharArray);\r\nend;\r\n\r\n\r\nfunction TStringHelper.IndexOfAny(const AnyOf: array of Char): SizeInt;\r\nbegin\r\n  Result:=IndexOfAny(AnyOf,0,Length);\r\nend;\r\n\r\nfunction TStringHelper.IndexOfAny(const AnyOf: String; StartIndex: SizeInt): SizeInt;\r\nbegin\r\n  Result:=IndexOfAny(AnyOf.ToCharArray,StartIndex);\r\nend;\r\n\r\n\r\nfunction TStringHelper.IndexOfAny(const AnyOf: array of Char;\r\n  StartIndex: SizeInt): SizeInt;\r\nbegin\r\n  Result:=IndexOfAny(AnyOf,StartIndex,Length);\r\nend;\r\n\r\nfunction TStringHelper.IndexOfAny(const AnyOf: String; StartIndex: SizeInt; ACount: SizeInt): SizeInt;\r\nbegin\r\n  Result:=IndexOfAny(AnyOf.ToCharArray,StartIndex,aCount);\r\nend;\r\n\r\nfunction TStringHelper.IndexOfAny(const AnyOf: array of Char;\r\n  StartIndex: SizeInt; ACount: SizeInt): SizeInt;\r\n\r\nVar\r\n  i,L : SizeInt;\r\n\r\nbegin\r\n  I:=StartIndex+1;\r\n  L:=I+ACount-1;\r\n  If L>Length then\r\n    L:=Length;\r\n  Result:=-1;\r\n  While (Result=-1) and (I<=L) do\r\n    begin\r\n    if HaveChar(Self[i],AnyOf) then\r\n      Result:=I-1;\r\n    Inc(I);\r\n    end;\r\nend;\r\n\r\nfunction TStringHelper.IndexOfAny(const AnyOf: array of String): SizeInt;\r\nbegin\r\n  Result:=IndexOfAny(AnyOf,0,Length);\r\nend;\r\n\r\nfunction TStringHelper.IndexOfAny(const AnyOf: array of String;\r\n  StartIndex: SizeInt): SizeInt;\r\nbegin\r\n  Result:=IndexOfAny(AnyOf,StartIndex,Length-StartIndex);\r\nend;\r\n\r\nfunction TStringHelper.IndexOfAny(const AnyOf: array of String;\r\n  StartIndex: SizeInt; ACount: SizeInt): SizeInt;\r\n\r\nVar\r\n  M : SizeInt;\r\n\r\nbegin\r\n  Result:=IndexOfAny(AnyOf,StartIndex,ACount,M);\r\nend;\r\n\r\nfunction TStringHelper.IndexOfAny(const AnyOf: array of String;\r\n  StartIndex: SizeInt; ACount: SizeInt; out AMatch: SizeInt): SizeInt;\r\n\r\nVar\r\n  L,I : SizeInt;\r\n\r\nbegin\r\n  Result:=-1;\r\n  For I:=0 to System.Length(AnyOf)-1 do\r\n    begin\r\n    L:=IndexOf(AnyOf[i],StartIndex,ACount);\r\n    If (L>=0) and ((Result=-1) or (L<Result)) then\r\n      begin\r\n      Result:=L;\r\n      AMatch:=I;\r\n      end;\r\n    end;\r\nend;\r\n\r\n\r\nfunction TStringHelper.IndexOfAnyUnquoted(const AnyOf: array of Char;\r\n  StartQuote, EndQuote: Char): SizeInt;\r\nbegin\r\n  Result:=IndexOfAnyUnquoted(AnyOf,StartQuote,EndQuote,0,Length);\r\nend;\r\n\r\n\r\nfunction TStringHelper.IndexOfAnyUnquoted(const AnyOf: array of Char;\r\n  StartQuote, EndQuote: Char; StartIndex: SizeInt): SizeInt;\r\nbegin\r\n  Result:=IndexOfAnyUnquoted(AnyOf,StartQuote,EndQuote,StartIndex,Length);\r\nend;\r\n\r\n\r\nfunction TStringHelper.IndexOfAnyUnquoted(const AnyOf: array of Char;\r\n  StartQuote, EndQuote: Char; StartIndex: SizeInt; ACount: SizeInt): SizeInt;\r\n\r\nVar\r\n  I,L : SizeInt;\r\n  Q : SizeInt;\r\n\r\nbegin\r\n  Result:=-1;\r\n  L:=StartIndex+ACount-1;\r\n  if L>Length then\r\n    L:=Length;\r\n  I:=StartIndex+1;\r\n  Q:=0;\r\n  if StartQuote=EndQuote then\r\n    begin\r\n    While (Result=-1) and (I<=L) do\r\n      begin\r\n      if (Self[I]=StartQuote) then\r\n        Q:=1-Q;\r\n      if (Q=0) and HaveChar(Self[i],AnyOf) then\r\n        Result:=I-1;\r\n      Inc(I);\r\n      end;\r\n    end\r\n  else\r\n  begin\r\n    While (Result=-1) and (I<=L) do\r\n      begin\r\n      if Self[I]=StartQuote then\r\n        Inc(Q)\r\n      else if (Self[I]=EndQuote) and (Q>0) then\r\n        Dec(Q);\r\n      if (Q=0) and HaveChar(Self[i],AnyOf) then\r\n        Result:=I-1;\r\n      Inc(I);\r\n      end;\r\n    end;\r\n\r\nend;\r\n\r\nfunction TStringHelper.IndexOfAnyUnquoted(const AnyOf: array of string;\r\n  StartQuote, EndQuote: Char; StartIndex: SizeInt; out Matched: SizeInt\r\n  ): SizeInt;\r\n\r\nVar\r\n  L,I : SizeInt;\r\n\r\nbegin\r\n  Result:=-1;\r\n  For I:=0 to System.Length(AnyOf)-1 do\r\n    begin\r\n    L:=IndexOfUnquoted(AnyOf[i],StartQuote,EndQuote,StartIndex);\r\n    If (L>=0) and ((Result=-1) or (L<Result)) then\r\n      begin\r\n      Result:=L;\r\n      Matched:=I;\r\n      end;\r\n    end;\r\nend;\r\n\r\n\r\nfunction TStringHelper.Insert(StartIndex: SizeInt; const AValue: string\r\n  ): string;\r\nbegin\r\n  system.Insert(AValue,Self,StartIndex+1);\r\n  Result:=Self;\r\nend;\r\n\r\n\r\nfunction TStringHelper.IsDelimiter(const Delimiters: string; Index: SizeInt\r\n  ): Boolean;\r\nbegin\r\n  Result:=SysUtils.IsDelimiter(Delimiters,Self,Index+1);\r\nend;\r\n\r\n\r\nfunction TStringHelper.IsEmpty: Boolean;\r\nbegin\r\n  Result:=(Length=0)\r\nend;\r\n\r\nfunction TStringHelper.IsNumber: Boolean;\r\nconst\r\n  cNumbers = ['0'..'9'];\r\nvar\r\n  lCount: Integer;\r\nbegin\r\n  if IsEmpty then\r\n    Exit(False);\r\n\r\n  for lCount := 0 to Length - 1 do\r\n  begin\r\n    if not (Chars[lCount] in cNumbers) then\r\n      Exit(False);\r\n  end;\r\n  Result := True;\r\nend;\r\n\r\n\r\nfunction TStringHelper.LastDelimiter(const Delims: string): SizeInt;\r\nbegin\r\n  Result:=SysUtils.LastDelimiter(Delims,Self)-1;\r\nend;\r\n\r\n\r\nfunction TStringHelper.LastIndexOf(AValue: Char): SizeInt;\r\nbegin\r\n  Result:=LastIndexOf(AValue,Length-1,Length);\r\nend;\r\n\r\n\r\nfunction TStringHelper.LastIndexOf(const AValue: string): SizeInt;\r\nbegin\r\n  Result:=LastIndexOf(AValue,Length-1,Length);\r\nend;\r\n\r\n\r\nfunction TStringHelper.LastIndexOf(AValue: Char; AStartIndex: SizeInt): SizeInt;\r\nbegin\r\n  Result:=LastIndexOf(AValue,AStartIndex,Length);\r\nend;\r\n\r\n\r\nfunction TStringHelper.LastIndexOf(const AValue: string; AStartIndex: SizeInt\r\n  ): SizeInt;\r\nbegin\r\n  Result:=LastIndexOf(AValue,AStartIndex,Length);\r\nend;\r\n\r\n\r\nfunction TStringHelper.LastIndexOf(AValue: Char; AStartIndex: SizeInt;\r\n  ACount: SizeInt): SizeInt;\r\n\r\nVar\r\n  Min : SizeInt;\r\n\r\nbegin\r\n  Result:=AStartIndex+1;\r\n  Min:=Result-ACount+1;\r\n  If Min<1 then\r\n    Min:=1;\r\n  While (Result>=Min) and (Self[Result]<>AValue) do\r\n    Dec(Result);\r\n  if Result<Min then\r\n    Result:=-1\r\n  else\r\n    Result:=Result-1;\r\nend;\r\n\r\n\r\nfunction TStringHelper.LastIndexOf(const AValue: string; AStartIndex: SizeInt; ACount: SizeInt): SizeInt;\r\n\r\nbegin\r\n  Result:=TJSString(Self).lastIndexOf(aValue,aStartIndex);\r\n  if (aStartIndex-Result)>aCount then\r\n    Result:=-1;\r\nend;\r\n\r\n\r\nfunction TStringHelper.LastIndexOfAny(const AnyOf: array of Char): SizeInt;\r\nbegin\r\n  Result:=LastIndexOfAny(AnyOf,Length-1,Length);\r\nend;\r\n\r\n\r\nfunction TStringHelper.LastIndexOfAny(const AnyOf: array of Char;\r\n  AStartIndex: SizeInt): SizeInt;\r\nbegin\r\n  Result:=LastIndexOfAny(AnyOf,AStartIndex,Length);\r\nend;\r\n\r\n\r\nfunction TStringHelper.LastIndexOfAny(const AnyOf: array of Char;\r\n  AStartIndex: SizeInt; ACount: SizeInt): SizeInt;\r\n\r\nVar\r\n  Min : SizeInt;\r\n\r\nbegin\r\n  Result:=AStartIndex+1;\r\n  Min:=Result-ACount+1;\r\n  If Min<1 then\r\n    Min:=1;\r\n  While (Result>=Min) and Not HaveChar(Self[Result],AnyOf) do\r\n    Dec(Result);\r\n  if Result<Min then\r\n    Result:=-1\r\n  else\r\n    Result:=Result-1;\r\nend;\r\n\r\n\r\nfunction TStringHelper.PadLeft(ATotalWidth: SizeInt): string;\r\nbegin\r\n  Result:=PadLeft(ATotalWidth,' ');\r\nend;\r\n\r\n\r\nfunction TStringHelper.PadLeft(ATotalWidth: SizeInt; PaddingChar: Char): string;\r\nVar\r\n  L : SizeInt;\r\n\r\nbegin\r\n  Result:=Self;\r\n  L:=ATotalWidth-Length;\r\n  If L>0 then\r\n    Result:=StringOfChar(PaddingChar,L)+Result;\r\nend;\r\n\r\n\r\nfunction TStringHelper.PadRight(ATotalWidth: SizeInt): string;\r\nbegin\r\n  Result:=PadRight(ATotalWidth,' ');\r\nend;\r\n\r\n\r\nfunction TStringHelper.PadRight(ATotalWidth: SizeInt; PaddingChar: Char\r\n  ): string;\r\n\r\nVar\r\n  L : SizeInt;\r\n\r\nbegin\r\n  Result:=Self;\r\n  L:=ATotalWidth-Length;\r\n  If L>0 then\r\n    Result:=Result+StringOfChar(PaddingChar,L);\r\nend;\r\n\r\n\r\nfunction TStringHelper.QuotedString: string;\r\nbegin\r\n  Result:=QuotedStr(Self);\r\nend;\r\n\r\n\r\nfunction TStringHelper.QuotedString(const AQuoteChar: Char): string;\r\nbegin\r\n  Result:=QuotedStr(Self,AQuoteChar);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Remove(StartIndex: SizeInt): string;\r\nbegin\r\n  Result:=Remove(StartIndex,Self.Length-StartIndex);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Remove(StartIndex: SizeInt; ACount: SizeInt): string;\r\nbegin\r\n  Result:=Self;\r\n  System.Delete(Result,StartIndex+1,ACount);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Replace(OldChar: Char; NewChar: Char): string;\r\nbegin\r\n  Result:=Replace(OldChar,NewChar,[rfReplaceAll]);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Replace(OldChar: Char; NewChar: Char;\r\n  ReplaceFlags: TReplaceFlags): string;\r\nbegin\r\n  Result:=StringReplace(Self,OldChar,NewChar,ReplaceFlags);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Replace(const OldValue: string; const NewValue: string\r\n  ): string;\r\nbegin\r\n  Result:=Replace(OldValue,NewValue,[rfReplaceAll]);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Replace(const OldValue: string; const NewValue: string;\r\n  ReplaceFlags: TReplaceFlags): string;\r\nbegin\r\n  Result:=StringReplace(Self,OldValue,NewValue,ReplaceFlags);\r\nend;\r\n\r\n\r\n\r\nfunction TStringHelper.Split(const Separators: String): TStringArray;\r\nbegin\r\n  Result:=Split(Separators.ToCharArray);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Split(const Separators: array of Char): TStringArray;\r\nbegin\r\n  Result:=Split(Separators,#0,#0,Length+1,TStringSplitOptions.None);\r\nend;\r\n\r\nfunction TStringHelper.Split(const Separators: string; ACount: SizeInt): TStringArray;\r\nbegin\r\n  Result:=Split(Separators.ToCharArray,aCount);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Split(const Separators: array of Char; ACount: SizeInt\r\n  ): TStringArray;\r\nbegin\r\n  Result:=Split(Separators,#0,#0,ACount,TStringSplitOptions.None);\r\nend;\r\n\r\nfunction TStringHelper.Split(const Separators: string; Options: TStringSplitOptions): TStringArray;\r\nbegin\r\n  Result:=Split(Separators.ToCharArray,Options);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Split(const Separators: array of Char;\r\n  Options: TStringSplitOptions): TStringArray;\r\nbegin\r\n  Result:=Split(Separators,Length+1,Options);\r\nend;\r\n\r\nfunction TStringHelper.Split(const Separators: string; ACount: SizeInt; Options: TStringSplitOptions): TStringArray;\r\nbegin\r\n  Result:=Split(Separators.ToCharArray,aCount,Options);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Split(const Separators: array of Char; ACount: SizeInt;\r\n  Options: TStringSplitOptions): TStringArray;\r\nbegin\r\n  Result:=Split(Separators,#0,#0,ACount,Options);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Split(const Separators: array of string): TStringArray;\r\nbegin\r\n  Result:=Split(Separators,Length+1);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Split(const Separators: array of string; ACount: SizeInt\r\n  ): TStringArray;\r\nbegin\r\n  Result:=Split(Separators,ACount,TStringSplitOptions.None);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Split(const Separators: array of string;\r\n  Options: TStringSplitOptions): TStringArray;\r\nbegin\r\n  Result:=Split(Separators,Length+1,Options);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Split(const Separators: array of string;\r\n  ACount: SizeInt; Options: TStringSplitOptions): TStringArray;\r\nbegin\r\n  Result:=Split(Separators,#0,#0,ACount,Options);\r\nend;\r\n\r\nfunction TStringHelper.Split(const Separators: String; AQuote: Char): TStringArray;\r\nbegin\r\n  Result:=Split(Separators.ToCharArray,aQuote);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Split(const Separators: array of Char; AQuote: Char\r\n  ): TStringArray;\r\nbegin\r\n  Result:=Split(Separators,AQuote,AQuote);\r\nend;\r\n\r\nfunction TStringHelper.Split(const Separators: String; AQuoteStart, AQuoteEnd: Char): TStringArray;\r\nbegin\r\n  Result:=Split(Separators.ToCharArray,aQuoteStart,aQuoteEnd);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Split(const Separators: array of Char; AQuoteStart,\r\n  AQuoteEnd: Char): TStringArray;\r\nbegin\r\n  Result:=Split(Separators,AQuoteStart,AQuoteEnd,TStringSplitOptions.None);\r\nend;\r\n\r\nfunction TStringHelper.Split(const Separators: string; AQuoteStart, AQuoteEnd: Char; Options: TStringSplitOptions): TStringArray;\r\nbegin\r\n  Result:=Split(Separators.ToCharArray,aQuoteStart,aQuoteEnd,Options);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Split(const Separators: array of Char; AQuoteStart,\r\n  AQuoteEnd: Char; Options: TStringSplitOptions): TStringArray;\r\nbegin\r\n  Result:=Split(Separators,AQuoteStart,AQuoteEnd,Length+1,Options);\r\nend;\r\n\r\nfunction TStringHelper.Split(const Separators: string; AQuoteStart, AQuoteEnd: Char; ACount: SizeInt): TStringArray;\r\nbegin\r\n  Result:=Split(Separators.ToCharArray,aQuoteStart,aQuoteEnd,aCount);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Split(const Separators: array of Char; AQuoteStart,\r\n  AQuoteEnd: Char; ACount: SizeInt): TStringArray;\r\nbegin\r\n  Result:=Split(Separators,AQuoteStart,AQuoteEnd,ACount,TStringSplitOptions.None);\r\nend;\r\n\r\nfunction TStringHelper.Split(const Separators: string; AQuoteStart, AQuoteEnd: Char; ACount: SizeInt; Options: TStringSplitOptions\r\n  ): TStringArray;\r\nbegin\r\n  Result:=Split(Separators.ToCharArray,aQuoteStart,aQuoteEnd,aCount,Options);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Split(const Separators: array of Char; AQuoteStart,\r\n  AQuoteEnd: Char; ACount: SizeInt; Options: TStringSplitOptions): TStringArray;\r\n\r\n\r\nConst\r\n  BlockSize = 10;\r\n\r\nVar\r\n  S : String;\r\n\r\n  Function NextSep(StartIndex : SizeInt) : SizeInt;\r\n\r\n  begin\r\n    if (AQuoteStart<>#0) then\r\n      Result:=S.IndexOfAnyUnQuoted(Separators,AQuoteStart,AQuoteEnd,StartIndex)\r\n    else\r\n      Result:=S.IndexOfAny(Separators,StartIndex);\r\n  end;\r\n\r\n  Procedure MaybeGrow(Curlen : SizeInt);\r\n\r\n  begin\r\n    if System.Length(Result)<=CurLen then\r\n      SetLength(Result,System.Length(Result)+BlockSize);\r\n  end;\r\n\r\nVar\r\n  Sep,LastSep,Len : SizeInt;\r\n  T : String;\r\n\r\nbegin\r\n\r\n  S:=Self;\r\n  SetLength(Result,BlockSize);\r\n  Len:=0;\r\n  LastSep:=0;\r\n  Sep:=NextSep(0);\r\n  While (Sep<>-1) and ((ACount=0) or (Len<ACount)) do\r\n    begin\r\n    T:=SubString(LastSep,Sep-LastSep);\r\n//    Writeln('Examining >',T,'< at pos ',LastSep,', till pos ',Sep);\r\n    If (T<>'') or (not (TStringSplitOptions.ExcludeEmpty=Options)) then\r\n      begin\r\n      MaybeGrow(Len);\r\n      Result[Len]:=T;\r\n      Inc(Len);\r\n      end;\r\n    LastSep:=Sep+1;\r\n    Sep:=NextSep(LastSep);\r\n    end;\r\n  if (LastSep<=Length) and ((ACount=0) or (Len<ACount)) then\r\n    begin\r\n    T:=SubString(LastSep);\r\n//    Writeln('Examining >',T,'< at pos,',LastSep,' till pos ',Sep);\r\n    If (T<>'') or (not (TStringSplitOptions.ExcludeEmpty=Options)) then\r\n      begin\r\n      MaybeGrow(Len);\r\n      Result[Len]:=T;\r\n      Inc(Len);\r\n      end;\r\n    end;\r\n  SetLength(Result,Len);\r\n\r\nend;\r\n\r\n\r\nfunction TStringHelper.Split(const Separators: array of string; AQuote: Char\r\n  ): TStringArray;\r\nbegin\r\n  Result:=SPlit(Separators,AQuote,AQuote);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Split(const Separators: array of string; AQuoteStart,\r\n  AQuoteEnd: Char): TStringArray;\r\nbegin\r\n  Result:=SPlit(Separators,AQuoteStart,AQuoteEnd,Length+1,TStringSplitOptions.None);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Split(const Separators: array of string; AQuoteStart,\r\n  AQuoteEnd: Char; Options: TStringSplitOptions): TStringArray;\r\nbegin\r\n  Result:=SPlit(Separators,AQuoteStart,AQuoteEnd,Length+1,Options);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Split(const Separators: array of string; AQuoteStart,\r\n  AQuoteEnd: Char; ACount: SizeInt): TStringArray;\r\nbegin\r\n  Result:=SPlit(Separators,AQuoteStart,AQuoteEnd,ACount,TStringSplitOptions.None);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Split(const Separators: array of string; AQuoteStart,\r\n  AQuoteEnd: Char; ACount: SizeInt; Options: TStringSplitOptions): TStringArray;\r\n\r\nConst\r\n  BlockSize = 10;\r\n\r\nVar\r\n  S : String;\r\n\r\n  Function NextSep(StartIndex : SizeInt; out Match : SizeInt) : SizeInt;\r\n\r\n  begin\r\n    if (AQuoteStart<>#0) then\r\n      Result:=S.IndexOfAnyUnQuoted(Separators,AQuoteStart,AQuoteEnd,StartIndex,Match)\r\n    else\r\n      Result:=S.IndexOfAny(Separators,StartIndex,Length,Match);\r\n  end;\r\n\r\n  Procedure MaybeGrow(Curlen : SizeInt);\r\n\r\n  begin\r\n    if System.Length(Result)<=CurLen then\r\n      SetLength(Result,System.Length(Result)+BlockSize);\r\n  end;\r\n\r\nVar\r\n  Sep,LastSep,Len,Match : SizeInt;\r\n  T : String;\r\n\r\nbegin\r\n  S:=Self;\r\n  SetLength(Result,BlockSize);\r\n  Len:=0;\r\n  LastSep:=0;\r\n  Sep:=NextSep(0,Match);\r\n  While (Sep<>-1) and ((ACount=0) or (Len<ACount)) do\r\n    begin\r\n    T:=SubString(LastSep,Sep-LastSep);\r\n    If (T<>'') or (not (TStringSplitOptions.ExcludeEmpty=Options)) then\r\n      begin\r\n      MaybeGrow(Len);\r\n      Result[Len]:=T;\r\n      Inc(Len);\r\n      end;\r\n    LastSep:=Sep+System.Length(Separators[Match]);\r\n    Sep:=NextSep(LastSep,Match);\r\n    end;\r\n  if (LastSep<=Length) and ((ACount=0) or (Len<ACount)) then\r\n    begin\r\n    T:=SubString(LastSep);\r\n//    Writeln('Examining >',T,'< at pos,',LastSep,' till pos ',Sep);\r\n    If (T<>'') or (not (TStringSplitOptions.ExcludeEmpty=Options)) then\r\n      begin\r\n      MaybeGrow(Len);\r\n      Result[Len]:=T;\r\n      Inc(Len);\r\n      end;\r\n    end;\r\n  SetLength(Result,Len);\r\n\r\nend;\r\n\r\n\r\nfunction TStringHelper.StartsWith(const AValue: string): Boolean;\r\nbegin\r\n  Result:=StartsWith(AValue,False);\r\nend;\r\n\r\n\r\nfunction TStringHelper.StartsWith(const AValue: string; IgnoreCase: Boolean\r\n  ): Boolean;\r\nVar\r\n  L : SizeInt;\r\n  S : String;\r\n\r\nbegin\r\n  L:=System.Length(AValue);\r\n  Result:=L<=0;\r\n  if not Result then\r\n    begin\r\n    S:=System.Copy(Self,1,L);\r\n    Result:=(System.Length(S)=L);\r\n    if Result then\r\n      if IgnoreCase then\r\n        Result:=SameText(S,aValue)\r\n      else\r\n        Result:=SameStr(S,AValue);\r\n    end;\r\nend;\r\n\r\n\r\nfunction TStringHelper.Substring(AStartIndex: SizeInt): string;\r\nbegin\r\n  Result:=Self.SubString(AStartIndex,Self.Length-AStartIndex);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Substring(AStartIndex: SizeInt; ALen: SizeInt): string;\r\nbegin\r\n  Result:=system.Copy(Self,AStartIndex+1,ALen);\r\nend;\r\n\r\n\r\nfunction TStringHelper.ToBoolean: Boolean;\r\nbegin\r\n  Result:=StrToBool(Self);\r\nend;\r\n\r\n\r\nfunction TStringHelper.ToInteger: Integer;\r\nbegin\r\n  Result:=StrToInt(Self);\r\nend;\r\n\r\n\r\nfunction TStringHelper.ToNativeInt: NativeInt;\r\nbegin\r\n  Result:=StrToNativeInt(Self);\r\nend;\r\n\r\nfunction TStringHelper.ToDouble: Double;\r\nbegin\r\n  Result:=StrToFLoat(Self);\r\nend;\r\n\r\n\r\nfunction TStringHelper.ToExtended: Extended;\r\nbegin\r\n  Result:=StrToFLoat(Self);\r\nend;\r\n\r\n\r\nfunction TStringHelper.ToCharArray: TCharArray;\r\n\r\nbegin\r\n  Result:=ToCharArray(0,Self.Length);\r\nend;\r\n\r\n\r\nfunction TStringHelper.ToCharArray(AStartIndex: SizeInt; ALen: SizeInt\r\n  ): TCharArray;\r\n\r\nVar\r\n  I : SizeInt;\r\n\r\nbegin\r\n  SetLength(Result,ALen);\r\n  For I:=0 to ALen-1 do\r\n    Result[I]:=Self[AStartIndex+I+1];\r\nend;\r\n\r\n\r\nfunction TStringHelper.ToLower: string;\r\nbegin\r\n  Result:=LowerCase(Self);\r\nend;\r\n\r\n\r\nfunction TStringHelper.ToLowerInvariant: string;\r\nbegin\r\n  Result:=LowerCase(Self);\r\nend;\r\n\r\n\r\nfunction TStringHelper.ToUpper: string;\r\nbegin\r\n  Result:=UpperCase(Self);\r\nend;\r\n\r\n\r\nfunction TStringHelper.ToUpperInvariant: string;\r\nbegin\r\n  Result:=UpperCase(Self);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Trim: string;\r\nbegin\r\n  Result:=SysUtils.Trim(self);\r\nend;\r\n\r\n\r\nfunction TStringHelper.TrimLeft: string;\r\nbegin\r\n  Result:=SysUtils.TrimLeft(Self);\r\nend;\r\n\r\n\r\nfunction TStringHelper.TrimRight: string;\r\nbegin\r\n  Result:=SysUtils.TrimRight(Self);\r\nend;\r\n\r\n\r\nfunction TStringHelper.Trim(const ATrimChars: array of Char): string;\r\nbegin\r\n  Result:=Self.TrimLeft(ATrimChars).TrimRight(ATrimChars);\r\nend;\r\n\r\n\r\nfunction TStringHelper.TrimLeft(const ATrimChars: array of Char): string;\r\n\r\nVar\r\n  I,Len : SizeInt;\r\n\r\nbegin\r\n  I:=1;\r\n  Len:=Self.Length;\r\n  While (I<=Len) and HaveChar(Self[i],ATrimChars) do Inc(I);\r\n  if I=1 then\r\n    Result:=Self\r\n  else if I>Len then\r\n    Result:=''\r\n  else\r\n    Result:=system.Copy(Self,I,Len-I+1);\r\nend;\r\n\r\n\r\nfunction TStringHelper.TrimRight(const ATrimChars: array of Char): string;\r\n\r\nVar\r\n  I,Len : SizeInt;\r\n\r\nbegin\r\n  Len:=Self.Length;\r\n  I:=Len;\r\n  While (I>=1) and HaveChar(Self[i],ATrimChars) do Dec(I);\r\n  if I<1 then\r\n    Result:=''\r\n  else if I=Len then\r\n    Result:=Self\r\n  else\r\n    Result:=system.Copy(Self,1,I);\r\nend;\r\n\r\n\r\nfunction TStringHelper.TrimEnd(const ATrimChars: array of Char): string;\r\nbegin\r\n  Result:=TrimRight(ATrimChars);\r\nend;\r\n\r\n\r\nfunction TStringHelper.TrimStart(const ATrimChars: array of Char): string;\r\nbegin\r\n  Result:=TrimLeft(ATrimChars);\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  TDoubleHelper\r\n  ---------------------------------------------------------------------}\r\n\r\nClass Function TDoubleHelper.IsNan(const AValue: Double): Boolean; overload; inline;\r\n\r\nbegin\r\n  Result:=JS.jsIsNaN(AValue);\r\nend;\r\n\r\nClass Function TDoubleHelper.IsInfinity(const AValue: Double): Boolean; overload; inline;\r\n\r\nbegin\r\n  Result:=Not jsIsFinite(aValue);\r\nend;\r\n\r\nClass Function TDoubleHelper.IsNegativeInfinity(const AValue: Double): Boolean; overload; inline;\r\n\r\nbegin\r\n  asm\r\n    return (AValue=Number.NEGATIVE_INFINITY);\r\n  end;\r\n  Result:=aValue=0; // Fool compiler\r\nend;\r\n\r\nClass Function TDoubleHelper.IsPositiveInfinity(const AValue: Double): Boolean; overload; inline;\r\n\r\nbegin\r\n  asm\r\n    return (AValue=Number.POSITIVE_INFINITY);\r\n  end;\r\n  Result:=aValue=0;  // Fool compiler.\r\nend;\r\n\r\nClass Function TDoubleHelper.Parse(const AString: string): Double; overload; inline;\r\n\r\nbegin\r\n  Result:=StrToFloat(AString);\r\nend;\r\n\r\n\r\nClass Function TDoubleHelper.ToString(const AValue: Double): string; overload; inline;\r\n\r\nbegin\r\n  Result:=FloatToStr(AValue);\r\nend;\r\n\r\n\r\nClass Function TDoubleHelper.ToString(const AValue: Double; const AFormat: TFloatFormat; const APrecision, ADigits: Integer): string; overload; inline;\r\n\r\nbegin\r\n  Result:=FloatToStrF(AValue,AFormat,APrecision,ADigits);\r\nend;\r\n\r\n\r\nClass Function TDoubleHelper.TryParse(const AString: string; out AValue: Double): Boolean; overload; inline;\r\n\r\nbegin\r\n  Result:=TryStrToFloat(AString,AValue);\r\nend;\r\n\r\n\r\n\r\nFunction TDoubleHelper.GetB(AIndex: Cardinal): Byte;\r\n\r\nvar\r\n  F : TJSFloat64Array;\r\n  B : TJSUInt8array;\r\n\r\nbegin\r\n  F:=TJSFloat64Array.New(1);\r\n  B:=TJSUInt8array.New(F.Buffer);\r\n  F[0]:=Self;\r\n  Result:=B[AIndex];\r\nend;\r\n\r\nFunction TDoubleHelper.GetW(AIndex: Cardinal): Word;\r\n\r\nvar\r\n  F : TJSFloat64Array;\r\n  W : TJSUInt16array;\r\n\r\nbegin\r\n  F:=TJSFloat64Array.New(1);\r\n  W:=TJSUInt16array.New(F.Buffer);\r\n  F[0]:=Self;\r\n  Result:=W[AIndex];\r\nend;\r\n\r\nType\r\n  TFloatParts = Record\r\n    sign : boolean;\r\n    exp : integer;\r\n    mantissa : double;\r\n  end;\r\n\r\n// See https://stackoverflow.com/questions/9383593/extracting-the-exponent-and-mantissa-of-a-javascript-number\r\n\r\nFunction FloatToParts(aValue : Double) : TFloatParts;\r\n\r\nvar\r\n  F : TJSFloat64Array;\r\n  B : TJSUInt8array;\r\n\r\nbegin\r\n  F:=TJSFloat64Array.New(1);\r\n  B:=TJSUInt8array.New(F.Buffer);\r\n  F[0]:=aValue;\r\n  Result.Sign:=(B[7] shr 7)=0;\r\n  Result.exp:=(((B[7] and $7f) shl 4) or (B[6] shr 4))- $3ff;\r\n  B[3]:=$3F;\r\n  B[6]:=B[6] or $F0;\r\n  Result.Mantissa:=F[0];\r\nend;\r\n\r\nFunction TDoubleHelper.GetE: NativeUInt; inline;\r\n\r\nbegin\r\n  Result:=FloatToParts(Self).Exp;\r\nend;\r\n\r\nFunction TDoubleHelper.GetF: NativeUInt; inline;\r\n\r\nbegin\r\n  Result:=0;\r\n  NotImplemented('GetF');\r\nend;\r\n\r\nFunction TDoubleHelper.GetS: Boolean; inline;\r\n\r\nbegin\r\n  Result:=FloatToParts(Self).Sign;\r\nend;\r\n\r\nprocedure TDoubleHelper.SetB(AIndex: Cardinal; const AValue: Byte);\r\n\r\nvar\r\n  F : TJSFloat64Array;\r\n  B : TJSUInt8array;\r\n\r\nbegin\r\n  if (AIndex>=8) then\r\n    raise ERangeError.Create(SRangeError);\r\n  F:=TJSFloat64Array.New(1);\r\n  B:=TJSUInt8array.New(F.Buffer);\r\n  F[0]:=Self;\r\n  B[AIndex]:=aValue;\r\n  Self:=F[0];\r\nend;\r\n\r\nprocedure TDoubleHelper.SetW(AIndex: Cardinal; const AValue: Word);\r\n\r\nVar\r\n  F : TJSFloat64Array;\r\n  W : TJSUInt16array;\r\n\r\nbegin\r\n  if (AIndex>=4) then\r\n    raise ERangeError.Create(SRangeError);\r\n  F:=TJSFloat64Array.New(1);\r\n  W:=TJSUInt16array.New(F.Buffer);\r\n  F[0]:=Self;\r\n  W[AIndex]:=aValue;\r\n  Self:=F[0];\r\nend;\r\n\r\n\r\n\r\nprocedure TDoubleHelper.SetS(AValue: Boolean);\r\n\r\n\r\nVar\r\n  F : TJSFloat64Array;\r\n  B : TJSUInt8array;\r\n\r\nbegin\r\n  F:=TJSFloat64Array.New(1);\r\n  B:=TJSUInt8array.New(F.Buffer);\r\n  F[0]:=Self;\r\n  if aValue then\r\n    B[7]:=B[7] or (1 shr 7)\r\n  else\r\n    B[7]:=B[7] and not (1 shr 7);\r\n  Self:=F[0];\r\nend;\r\n\r\n\r\nProcedure TDoubleHelper.BuildUp(const ASignFlag: Boolean; const AMantissa: NativeUInt; const AExponent: Integer);\r\n\r\nbegin\r\n  NotImplemented('BuildUp');\r\n  // Following statement is just to fool the compiler\r\n  if ASignFlag and (AMantissa>0) and (AExponent<0) then exit;\r\n//  TFloatRec(Self).BuildUp(ASignFlag, AMantissa, AExponent);\r\nend;\r\n\r\nFunction TDoubleHelper.Exponent: Integer;\r\n\r\nbegin\r\n  Result:=FloatToParts(Self).Exp;\r\nend;\r\n\r\nFunction TDoubleHelper.Fraction: Extended;\r\n\r\nbegin\r\n  Result:=system.Frac(Self);\r\nend;\r\n\r\nFunction TDoubleHelper.IsInfinity: Boolean; overload; inline;\r\n\r\nbegin\r\n  Result:=Double.IsInfinity(Self);\r\nend;\r\n\r\nFunction TDoubleHelper.IsNan: Boolean; overload; inline;\r\n\r\nbegin\r\n  Result:=Double.IsNan(Self);\r\nend;\r\n\r\nFunction TDoubleHelper.IsNegativeInfinity: Boolean; overload; inline;\r\n\r\nbegin\r\n  Result:=Double.IsNegativeInfinity(Self);\r\nend;\r\n\r\nFunction TDoubleHelper.IsPositiveInfinity: Boolean; overload; inline;\r\n\r\nbegin\r\n  Result:=Double.IsPositiveInfinity(Self);\r\nend;\r\n\r\nFunction TDoubleHelper.Mantissa: NativeUInt;\r\n\r\nbegin\r\n  Result:=Trunc(FloatToParts(Self).mantissa);\r\nend;\r\n\r\nFunction TDoubleHelper.ToString(const AFormat: TFloatFormat; const APrecision, ADigits: Integer): string; overload; inline;\r\n\r\nbegin\r\n  Result:=FloatToStrF(Self,AFormat,APrecision,ADigits);\r\nend;\r\n\r\nFunction TDoubleHelper.ToString: string; overload; inline;\r\n\r\nbegin\r\n  Result:=FloatToStr(Self);\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  TByteHelper\r\n  ---------------------------------------------------------------------}\r\n\r\nClass Function TByteHelper.Parse(const AString: string): Byte; inline;\r\n\r\nbegin\r\n  Result:=StrToInt(AString);\r\nend;\r\n\r\nClass Function TByteHelper.Size: Integer; inline;\r\n\r\nbegin\r\n  Result:=1;\r\nend;\r\n\r\nClass Function TByteHelper.ToString(const AValue: Byte): string; overload; inline;\r\n\r\nbegin\r\n  Result:=IntToStr(AValue);\r\nend;\r\n\r\nClass Function TByteHelper.TryParse(const AString: string; out AValue: Byte): Boolean; inline;\r\n\r\nVar\r\n  C : Integer;\r\n\r\nbegin\r\n  Val(AString,AValue,C);\r\n  Result:=(C=0);\r\nend;\r\n\r\nFunction TByteHelper.ToBoolean: Boolean; inline;\r\n\r\nbegin\r\n  Result:=(Self<>0);\r\nend;\r\n\r\nFunction TByteHelper.ToDouble: Double; inline;\r\n\r\nbegin\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TByteHelper.ToExtended: Extended; inline;\r\n\r\nbegin\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TByteHelper.ToBinString: string; inline;\r\n\r\nbegin\r\n  Result:=BinStr(Self,Size*8);\r\nend;\r\n\r\nFunction TByteHelper.ToHexString(const AMinDigits: Integer): string;\r\noverload; inline;\r\n\r\nbegin\r\n  Result:=IntToHex(Self,AMinDigits);\r\nend;\r\n\r\nFunction TByteHelper.ToHexString: string; overload; inline;\r\n\r\nbegin\r\n  Result:=IntToHex(Self,Size*2);\r\nend;\r\n\r\nFunction TByteHelper.ToString: string; overload; inline;\r\n\r\nbegin\r\n  Result:=IntToStr(Self);\r\nend;\r\n\r\nFunction TByteHelper.SetBit(const index: TByteBitIndex) : Byte; inline;\r\n\r\nbegin\r\n  Self := Self or (Byte(1) shl index);\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TByteHelper.ClearBit(const index: TByteBitIndex) : Byte; inline;\r\n\r\nbegin\r\n  Self:=Self and not Byte((Byte(1) shl index));\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TByteHelper.ToggleBit(const index: TByteBitIndex) : Byte; inline;\r\n\r\nbegin\r\n  Self := Self xor Byte((Byte(1) shl index));\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TByteHelper.TestBit(const Index: TByteBitIndex):Boolean; inline;\r\n\r\nbegin\r\n  Result := (Self and Byte((Byte(1) shl index)))<>0;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  TShortintHelper\r\n  ---------------------------------------------------------------------}\r\n\r\nClass Function TShortIntHelper.Parse(const AString: string): ShortInt; inline;\r\n\r\nbegin\r\n  Result:=StrToInt(AString);\r\nend;\r\n\r\nClass Function TShortIntHelper.Size: Integer; inline;\r\n\r\nbegin\r\n  Result:=1;\r\nend;\r\n\r\nClass Function TShortIntHelper.ToString(const AValue: ShortInt): string; overload; inline;\r\n\r\nbegin\r\n  Result:=IntToStr(AValue);\r\nend;\r\n\r\nClass Function TShortIntHelper.TryParse(const AString: string; out AValue: ShortInt): Boolean; inline;\r\n\r\nVar\r\n  C : Integer;\r\n\r\nbegin\r\n  Val(AString,AValue,C);\r\n  Result:=(C=0);\r\nend;\r\n\r\nFunction TShortIntHelper.ToBoolean: Boolean; inline;\r\n\r\nbegin\r\n  Result:=(Self<>0);\r\nend;\r\n\r\nFunction TShortIntHelper.ToDouble: Double; inline;\r\n\r\nbegin\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TShortIntHelper.ToExtended: Extended; inline;\r\n\r\nbegin\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TShortIntHelper.ToBinString: string; inline;\r\n\r\nbegin\r\n  Result:=BinStr(Self,Size*8);\r\nend;\r\n\r\nFunction TShortIntHelper.ToHexString(const AMinDigits: Integer): string; overload; inline;\r\n\r\nVar\r\n  B : Word;\r\n  U : TJSUInt8Array;\r\n  S : TJSInt8array;\r\n\r\nbegin\r\n  if Self>=0 then\r\n    B:=Self\r\n  else\r\n    begin\r\n    S:=TJSInt8Array.New(1);\r\n    S[0]:=Self;\r\n    U:=TJSUInt8Array.New(S);\r\n    B:=U[0];\r\n    if AMinDigits>2 then\r\n      B:=$FF00+B;\r\n    end;\r\n  Result:=IntToHex(B,AMinDigits);\r\nend;\r\n\r\nFunction TShortIntHelper.ToHexString: string; overload; inline;\r\n\r\nbegin\r\n  Result:=ToHexString(Size*2);\r\nend;\r\n\r\nFunction TShortIntHelper.ToString: string; overload; inline;\r\n\r\nbegin\r\n  Result:=IntToStr(Self);\r\nend;\r\n\r\nFunction TShortIntHelper.SetBit(const index: TShortIntBitIndex) : ShortInt; inline;\r\n\r\nbegin\r\n  Self := Self or (ShortInt(1) shl index);\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TShortIntHelper.ClearBit(const index: TShortIntBitIndex) : ShortInt; inline;\r\n\r\nbegin\r\n  Self:=Self and not ShortInt((ShortInt(1) shl index));\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TShortIntHelper.ToggleBit(const index: TShortIntBitIndex) : ShortInt; inline;\r\n\r\nbegin\r\n  Self := Self xor ShortInt((ShortInt(1) shl index));\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TShortIntHelper.TestBit(const Index: TShortIntBitIndex):Boolean; inline;\r\n\r\nbegin\r\n  Result := (Self and ShortInt((ShortInt(1) shl index)))<>0;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  TSmallintHelper\r\n  ---------------------------------------------------------------------}\r\n\r\nClass Function TSmallIntHelper.Parse(const AString: string): SmallInt; inline;\r\n\r\nbegin\r\n  Result:=StrToInt(AString);\r\nend;\r\n\r\nClass Function TSmallIntHelper.Size: Integer; inline;\r\n\r\nbegin\r\n  Result:=2;\r\nend;\r\n\r\nClass Function TSmallIntHelper.ToString(const AValue: SmallInt): string; overload; inline;\r\n\r\nbegin\r\n  Result:=IntToStr(AValue);\r\nend;\r\n\r\nClass Function TSmallIntHelper.TryParse(const AString: string; out AValue: SmallInt): Boolean; inline;\r\n\r\nVar\r\n  C : Integer;\r\n\r\nbegin\r\n  Val(AString,AValue,C);\r\n  Result:=(C=0);\r\nend;\r\n\r\nFunction TSmallIntHelper.ToBoolean: Boolean; inline;\r\n\r\nbegin\r\n  Result:=(Self<>0);\r\nend;\r\n\r\nFunction TSmallIntHelper.ToDouble: Double; inline;\r\n\r\nbegin\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TSmallIntHelper.ToExtended: Extended; inline;\r\n\r\nbegin\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TSmallIntHelper.ToBinString: string; inline;\r\n\r\nbegin\r\n  Result:=BinStr(Self,Size*8);\r\nend;\r\n\r\nFunction TSmallIntHelper.ToHexString(const AMinDigits: Integer): string; overload; inline;\r\n\r\nVar\r\n  B : Cardinal;\r\n  U : TJSUInt16Array;\r\n  S : TJSInt16array;\r\n\r\n\r\nbegin\r\n  if Self>=0 then\r\n    B:=Self\r\n  else\r\n    begin\r\n    S:=TJSInt16Array.New(1);\r\n    S[0]:=Self;\r\n    U:=TJSUInt16Array.New(S);\r\n    B:=U[0];\r\n    if AMinDigits>6 then\r\n      B:=$FFFF0000+B\r\n    else if AMinDigits>4 then\r\n      B:=$FF0000+B;\r\n    end;\r\n  Result:=IntToHex(B,AMinDigits);\r\nend;\r\n\r\nFunction TSmallIntHelper.ToHexString: string; overload; inline;\r\n\r\nbegin\r\n  Result:=ToHexString(Size*2);\r\nend;\r\n\r\n\r\nFunction TSmallIntHelper.ToString: string; overload; inline;\r\n\r\nbegin\r\n  Result:=IntToStr(Self);\r\nend;\r\n\r\nFunction TSmallIntHelper.SetBit(const index: TSmallIntBitIndex) : SmallInt; inline;\r\n\r\nbegin\r\n  Self := Self or (SmallInt(1) shl index);\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TSmallIntHelper.ClearBit(const index: TSmallIntBitIndex) : SmallInt; inline;\r\n\r\nbegin\r\n  Self:=Self and not SmallInt((SmallInt(1) shl index));\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TSmallIntHelper.ToggleBit(const index: TSmallIntBitIndex) : SmallInt; inline;\r\n\r\nbegin\r\n  Self := Self xor SmallInt((SmallInt(1) shl index));\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TSmallIntHelper.TestBit(const Index: TSmallIntBitIndex):Boolean; inline;\r\n\r\nbegin\r\n  Result := (Self and SmallInt((SmallInt(1) shl index)))<>0;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  TWordHelper\r\n  ---------------------------------------------------------------------}\r\n\r\nclass function TWordHelper.FromBytes(const ALow, AHigh: Byte): Word;\r\nconst\r\n  cBitPerByte = 8;\r\nbegin\r\n  Result := ALow + (AHigh shl cBitPerByte);\r\nend;\r\n\r\nClass Function TWordHelper.Parse(const AString: string): Word; inline;\r\n\r\nbegin\r\n  Result:=StrToInt(AString);\r\nend;\r\n\r\nClass Function TWordHelper.Size: Integer; inline;\r\n\r\nbegin\r\n  Result:=2;\r\nend;\r\n\r\nprocedure TWordHelper.ToBytes(out ALow, AHigh: Byte);\r\nconst\r\n  cMask: Byte = $FF;\r\n  cBitPerByte = 8;\r\nbegin\r\n  ALow := Self and cMask;\r\n  AHigh := (Self and (cMask shl cBitPerByte)) shr cBitPerByte;\r\nend;\r\n\r\nClass Function TWordHelper.ToString(const AValue: Word): string; overload; inline;\r\n\r\nbegin\r\n  Result:=IntToStr(AValue);\r\nend;\r\n\r\nClass Function TWordHelper.TryParse(const AString: string; out AValue: Word): Boolean; inline;\r\n\r\nVar\r\n  C : Integer;\r\n\r\nbegin\r\n  Val(AString,AValue,C);\r\n  Result:=(C=0);\r\nend;\r\n\r\nFunction TWordHelper.ToBoolean: Boolean; inline;\r\n\r\nbegin\r\n  Result:=(Self<>0);\r\nend;\r\n\r\nFunction TWordHelper.ToDouble: Double; inline;\r\n\r\nbegin\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TWordHelper.ToExtended: Extended; inline;\r\n\r\nbegin\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TWordHelper.ToBinString: string; inline;\r\n\r\nbegin\r\n  Result:=BinStr(Self,Size*8);\r\nend;\r\n\r\nFunction TWordHelper.ToHexString(const AMinDigits: Integer): string;\r\noverload; inline;\r\n\r\nbegin\r\n  Result:=IntToHex(Self,AMinDigits);\r\nend;\r\n\r\nFunction TWordHelper.ToHexString: string; overload; inline;\r\n\r\nbegin\r\n  Result:=IntToHex(Self,Size*2);\r\nend;\r\n\r\n\r\nFunction TWordHelper.ToString: string; overload; inline;\r\n\r\nbegin\r\n  Result:=IntToStr(Self);\r\nend;\r\n\r\nFunction TWordHelper.SetBit(const index: TWordBitIndex) : Word; inline;\r\n\r\nbegin\r\n  Self := Self or (Word(1) shl index);\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TWordHelper.ClearBit(const index: TWordBitIndex) : Word; inline;\r\n\r\nbegin\r\n  Self:=Self and not Word((Word(1) shl index));\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TWordHelper.ToggleBit(const index: TWordBitIndex) : Word; inline;\r\n\r\nbegin\r\n  Self := Self xor Word((Word(1) shl index));\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TWordHelper.TestBit(const Index: TWordBitIndex):Boolean; inline;\r\n\r\nbegin\r\n  Result := (Self and Word((Word(1) shl index)))<>0;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  TCardinalHelper\r\n  ---------------------------------------------------------------------}\r\n\r\nClass Function TCardinalHelper.Parse(const AString: string): Cardinal; inline;\r\n\r\nbegin\r\n  Result:=StrToInt(AString);\r\nend;\r\n\r\nClass Function TCardinalHelper.Size: Integer; inline;\r\n\r\nbegin\r\n  Result:=4;\r\nend;\r\n\r\nClass Function TCardinalHelper.ToString(const AValue: Cardinal): string; overload; inline;\r\n\r\nbegin\r\n  Result:=IntToStr(AValue);\r\nend;\r\n\r\nClass Function TCardinalHelper.TryParse(const AString: string; out AValue: Cardinal): Boolean; inline;\r\n\r\nVar\r\n  C : Integer;\r\n\r\nbegin\r\n  Val(AString,AValue,C);\r\n  Result:=(C=0);\r\nend;\r\n\r\nFunction TCardinalHelper.ToBoolean: Boolean; inline;\r\n\r\nbegin\r\n  Result:=(Self<>0);\r\nend;\r\n\r\nFunction TCardinalHelper.ToDouble: Double; inline;\r\n\r\nbegin\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TCardinalHelper.ToExtended: Extended; inline;\r\n\r\nbegin\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TCardinalHelper.ToBinString: string; inline;\r\n\r\nbegin\r\n  Result:=BinStr(Self,Size*8);\r\nend;\r\n\r\nFunction TCardinalHelper.ToHexString(const AMinDigits: Integer): string;\r\noverload; inline;\r\n\r\nbegin\r\n  Result:=IntToHex(Self,AMinDigits);\r\nend;\r\n\r\nFunction TCardinalHelper.ToHexString: string; overload; inline;\r\n\r\nbegin\r\n  Result:=ToHexString(Size*2);\r\nend;\r\n\r\nFunction TCardinalHelper.ToString: string; overload; inline;\r\n\r\nbegin\r\n  Result:=IntToStr(Self);\r\nend;\r\n\r\nFunction TCardinalHelper.SetBit(const index: TCardinalBitIndex) : Cardinal; inline;\r\n\r\nbegin\r\n  Self := Self or (Cardinal(1) shl index);\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TCardinalHelper.ClearBit(const index: TCardinalBitIndex) : Cardinal; inline;\r\n\r\nbegin\r\n  Self:=Self and not Cardinal((Cardinal(1) shl index));\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TCardinalHelper.ToggleBit(const index: TCardinalBitIndex) : Cardinal; inline;\r\n\r\nbegin\r\n  Self := Self xor Cardinal((Cardinal(1) shl index));\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TCardinalHelper.TestBit(const Index: TCardinalBitIndex):Boolean; inline;\r\n\r\nbegin\r\n  Result := (Self and Cardinal((Cardinal(1) shl index)))<>0;\r\nend;\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n  TIntegerHelper\r\n  ---------------------------------------------------------------------}\r\n\r\nClass Function TIntegerHelper.Parse(const AString: string): Integer; inline;\r\n\r\nbegin\r\n  Result:=StrToInt(AString);\r\nend;\r\n\r\nClass Function TIntegerHelper.Size: Integer; inline;\r\n\r\nbegin\r\n  Result:=4;\r\nend;\r\n\r\nClass Function TIntegerHelper.ToString(const AValue: Integer): string; overload; inline;\r\n\r\nbegin\r\n  Result:=IntToStr(AValue);\r\nend;\r\n\r\nClass Function TIntegerHelper.TryParse(const AString: string; out AValue: Integer): Boolean; inline;\r\n\r\nVar\r\n  C : Integer;\r\n\r\nbegin\r\n  Val(AString,AValue,C);\r\n  Result:=(C=0);\r\nend;\r\n\r\nFunction TIntegerHelper.ToBoolean: Boolean; inline;\r\n\r\nbegin\r\n  Result:=(Self<>0);\r\nend;\r\n\r\nFunction TIntegerHelper.ToDouble: Double; inline;\r\n\r\nbegin\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TIntegerHelper.ToExtended: Extended; inline;\r\n\r\nbegin\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TIntegerHelper.ToBinString: string; inline;\r\n\r\nbegin\r\n  Result:=BinStr(Self,Size*8);\r\nend;\r\n\r\nFunction TIntegerHelper.ToHexString(const AMinDigits: Integer): string;\r\noverload; inline;\r\n\r\n\r\nVar\r\n  B : Word;\r\n  U : TJSUInt32Array;\r\n  S : TJSInt32array;\r\n\r\nbegin\r\n  if Self>=0 then\r\n    B:=Self\r\n  else\r\n    begin\r\n    S:=TJSInt32Array.New(1);\r\n    S[0]:=Self;\r\n    U:=TJSUInt32Array.New(S);\r\n    B:=U[0];\r\n    end;\r\n  Result:=IntToHex(B,AMinDigits);\r\nend;\r\n\r\nFunction TIntegerHelper.ToHexString: string; overload; inline;\r\n\r\nbegin\r\n  Result:=ToHexString(Size*2);\r\nend;\r\n\r\n\r\nFunction TIntegerHelper.ToString: string; overload; inline;\r\n\r\nbegin\r\n  Result:=IntToStr(Self);\r\nend;\r\n\r\nFunction TIntegerHelper.SetBit(const index: TIntegerBitIndex) : Integer; inline;\r\n\r\nbegin\r\n  Self := Self or (Integer(1) shl index);\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TIntegerHelper.ClearBit(const index: TIntegerBitIndex) : Integer; inline;\r\n\r\nbegin\r\n  Self:=Self and not Integer((Integer(1) shl index));\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TIntegerHelper.ToggleBit(const index: TIntegerBitIndex) : Integer; inline;\r\n\r\nbegin\r\n  Self := Self xor Integer((Integer(1) shl index));\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TIntegerHelper.TestBit(const Index: TIntegerBitIndex):Boolean; inline;\r\n\r\nbegin\r\n  Result := (Self and Integer((Integer(1) shl index)))<>0;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  TUInt64Helper\r\n  ---------------------------------------------------------------------}\r\n\r\nClass Function TUInt64Helper.ToString(const AValue: UInt64): string; overload; inline;\r\nbegin\r\n  Result:=IntToStr(AValue);\r\nend;\r\n\r\nFunction TUInt64Helper.ToString: string; overload; inline;\r\nbegin\r\n  Result:=IntToStr(Self);\r\nend;\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n  TNativeIntHelper\r\n  ---------------------------------------------------------------------}\r\n\r\nClass Function TNativeIntHelper.Parse(const AString: string): NativeInt; inline;\r\n\r\nbegin\r\n  Result:=StrToInt(AString);\r\nend;\r\n\r\nClass Function TNativeIntHelper.Size: Integer; inline;\r\n\r\nbegin\r\n  Result:=7;\r\nend;\r\n\r\nClass Function TNativeIntHelper.ToString(const AValue: NativeInt): string; overload; inline;\r\n\r\nbegin\r\n  Result:=IntToStr(AValue);\r\nend;\r\n\r\nClass Function TNativeIntHelper.TryParse(const AString: string; out AValue: NativeInt): Boolean; inline;\r\n\r\nVar\r\n  C : Integer;\r\n\r\nbegin\r\n  Val(AString,AValue,C);\r\n  Result:=(C=0);\r\nend;\r\n\r\nFunction TNativeIntHelper.ToBoolean: Boolean; inline;\r\n\r\nbegin\r\n  Result:=(Self<>0);\r\nend;\r\n\r\nFunction TNativeIntHelper.ToDouble: Double; inline;\r\n\r\nbegin\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TNativeIntHelper.ToExtended: Extended; inline;\r\n\r\nbegin\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TNativeIntHelper.ToBinString: string; inline;\r\n\r\nbegin\r\n  Result:=BinStr(Self,Size*8);\r\nend;\r\n\r\nFunction TNativeIntHelper.ToHexString(const AMinDigits: Integer): string;\r\noverload; inline;\r\n\r\nbegin\r\n  Result:=IntToHex(Self,AMinDigits);\r\nend;\r\n\r\nFunction TNativeIntHelper.ToHexString: string; overload; inline;\r\n\r\nbegin\r\n  Result:=IntToHex(Self,Size*2);\r\nend;\r\n\r\nFunction TNativeIntHelper.ToString: string; overload; inline;\r\n\r\nbegin\r\n  Result:=IntToStr(Self);\r\nend;\r\n\r\nFunction TNativeIntHelper.SetBit(const index: TNativeIntBitIndex) : NativeInt; inline;\r\n\r\nbegin\r\n  Self := Self or (NativeInt(1) shl index);\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TNativeIntHelper.ClearBit(const index: TNativeIntBitIndex) : NativeInt; inline;\r\n\r\nbegin\r\n  Self:=Self and not NativeInt((NativeInt(1) shl index));\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TNativeIntHelper.ToggleBit(const index: TNativeIntBitIndex) : NativeInt; inline;\r\n\r\nbegin\r\n  Self := Self xor NativeInt((NativeInt(1) shl index));\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TNativeIntHelper.TestBit(const Index: TNativeIntBitIndex):Boolean; inline;\r\n\r\nbegin\r\n  Result := (Self and NativeInt((NativeInt(1) shl index)))<>0;\r\nend;\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n  TNativeUIntHelper\r\n  ---------------------------------------------------------------------}\r\n\r\nClass Function TNativeUIntHelper.Parse(const AString: string): NativeUInt; inline;\r\n\r\nbegin\r\n  Result:=StrToInt(AString);\r\nend;\r\n\r\nClass Function TNativeUIntHelper.Size: Integer; inline;\r\n\r\nbegin\r\n  Result:=7;\r\nend;\r\n\r\nClass Function TNativeUIntHelper.ToString(const AValue: NativeUInt): string; overload; inline;\r\n\r\nbegin\r\n  Result:=IntToStr(AValue);\r\nend;\r\n\r\nClass Function TNativeUIntHelper.TryParse(const AString: string; out AValue: NativeUInt): Boolean; inline;\r\n\r\nVar\r\n  C : Integer;\r\n\r\nbegin\r\n  Val(AString,AValue,C);\r\n  Result:=(C=0);\r\nend;\r\n\r\nFunction TNativeUIntHelper.ToBoolean: Boolean; inline;\r\n\r\nbegin\r\n  Result:=(Self<>0);\r\nend;\r\n\r\nFunction TNativeUIntHelper.ToDouble: Double; inline;\r\n\r\nbegin\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TNativeUIntHelper.ToExtended: Extended; inline;\r\n\r\nbegin\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TNativeUIntHelper.ToBinString: string; inline;\r\n\r\nbegin\r\n  Result:=BinStr(Self,Size*8);\r\nend;\r\n\r\nFunction TNativeUIntHelper.ToHexString(const AMinDigits: Integer): string;\r\noverload; inline;\r\n\r\nbegin\r\n  Result:=IntToHex(Self,AMinDigits);\r\nend;\r\n\r\nFunction TNativeUIntHelper.ToHexString: string; overload; inline;\r\n\r\nbegin\r\n  Result:=IntToHex(Self,Size*2);\r\nend;\r\n\r\nFunction TNativeUIntHelper.ToSingle: Single; inline;\r\n\r\nbegin\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TNativeUIntHelper.ToString: string; overload; inline;\r\n\r\nbegin\r\n  Result:=IntToStr(Self);\r\nend;\r\n\r\nFunction TNativeUIntHelper.SetBit(const index: TNativeUIntBitIndex) : NativeUInt; inline;\r\n\r\nbegin\r\n  Self := Self or (NativeUInt(1) shl index);\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TNativeUIntHelper.ClearBit(const index: TNativeUIntBitIndex) : NativeUInt; inline;\r\n\r\nbegin\r\n  Self:=Self and not NativeUInt((NativeUInt(1) shl index));\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TNativeUIntHelper.ToggleBit(const index: TNativeUIntBitIndex) : NativeUInt; inline;\r\n\r\nbegin\r\n  Self := Self xor NativeUInt((NativeUInt(1) shl index));\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TNativeUIntHelper.TestBit(const Index: TNativeUIntBitIndex):Boolean; inline;\r\n\r\nbegin\r\n  Result := (Self and NativeUInt((NativeUInt(1) shl index)))<>0;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  TBooleanHelper\r\n  ---------------------------------------------------------------------}\r\n\r\nClass Function TBooleanHelper.Parse(const S: string): Boolean; inline;\r\n\r\nbegin\r\n  Result:=StrToBool(S);\r\nend;\r\n\r\nClass Function TBooleanHelper.Size: Integer; inline;\r\n\r\nbegin\r\n  Result:=1;\r\nend;\r\n\r\nClass Function TBooleanHelper.ToString(const AValue: Boolean; UseBoolStrs: TUseBoolStrs = TUseBoolStrs.False): string; overload; inline;\r\n\r\nbegin\r\n  Result:=BoolToStr(AValue,UseBoolStrs=TUseBoolStrs.True);\r\nend;\r\n\r\nClass Function TBooleanHelper.TryToParse(const S: string; out AValue: Boolean): Boolean; inline;\r\n\r\nbegin\r\n  Result:=TryStrToBool(S,AValue);\r\nend;\r\n\r\nFunction TBooleanHelper.ToInteger: Integer; inline;\r\n\r\nbegin\r\n  Result:=Integer(Self);\r\nend;\r\n\r\nFunction TBooleanHelper.ToString(UseBoolStrs: TUseBoolStrs = TUseBoolStrs.False): string; overload; inline;\r\n\r\nbegin\r\n  Result:=BoolToStr(Self,UseBoolStrs=TUseBoolStrs.True);\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  TByteBoolHelper\r\n  ---------------------------------------------------------------------}\r\n\r\nClass Function TByteBoolHelper.Parse(const S: string): Boolean; inline;\r\n\r\nbegin\r\n  Result:=StrToBool(S);\r\nend;\r\n\r\nClass Function TByteBoolHelper.Size: Integer; inline;\r\n\r\nbegin\r\n  Result:=1;\r\nend;\r\n\r\nClass Function TByteBoolHelper.ToString(const AValue: Boolean; UseBoolStrs: Boolean = False): string; overload; inline;\r\n\r\nbegin\r\n  Result:=BoolToStr(AValue,UseBoolStrs);\r\nend;\r\n\r\nClass Function TByteBoolHelper.TryToParse(const S: string; out AValue: Boolean): Boolean; inline;\r\n\r\nbegin\r\n  Result:=TryStrToBool(S,AValue);\r\nend;\r\n\r\nFunction TByteBoolHelper.ToInteger: Integer; inline;\r\n\r\nbegin\r\n  Result:=Integer(Self);\r\nend;\r\n\r\nFunction TByteBoolHelper.ToString(UseBoolStrs: Boolean = False): string; overload; inline;\r\n\r\nbegin\r\n  Result:=BoolToStr(Self,UseBoolStrs);\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  TWordBoolHelper\r\n  ---------------------------------------------------------------------}\r\n\r\nClass Function TWordBoolHelper.Parse(const S: string): Boolean; inline;\r\n\r\nbegin\r\n  Result:=StrToBool(S);\r\nend;\r\n\r\nClass Function TWordBoolHelper.Size: Integer; inline;\r\n\r\nbegin\r\n  Result:=2;\r\nend;\r\n\r\nClass Function TWordBoolHelper.ToString(const AValue: Boolean; UseBoolStrs: boolean = False): string; overload; inline;\r\n\r\nbegin\r\n  Result:=BoolToStr(AValue,UseBoolStrs);\r\nend;\r\n\r\nClass Function TWordBoolHelper.TryToParse(const S: string; out AValue: Boolean): Boolean; inline;\r\n\r\nbegin\r\n  Result:=TryStrToBool(S,AValue);\r\nend;\r\n\r\nFunction TWordBoolHelper.ToInteger: Integer; inline;\r\n\r\nbegin\r\n  Result:=Integer(Self);\r\nend;\r\n\r\nFunction TWordBoolHelper.ToString(UseBoolStrs: Boolean = False): string; overload; inline;\r\n\r\nbegin\r\n  Result:=BoolToStr(Self,UseBoolStrs);\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  TLongBoolHelper\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\nClass Function TLongBoolHelper.Parse(const S: string): Boolean; inline;\r\n\r\nbegin\r\n  Result:=StrToBool(S);\r\nend;\r\n\r\nClass Function TLongBoolHelper.Size: Integer; inline;\r\n\r\nbegin\r\n  Result:=4;\r\nend;\r\n\r\nClass Function TLongBoolHelper.ToString(const AValue: Boolean; UseBoolStrs: Boolean = False): string; overload; inline;\r\n\r\nbegin\r\n  Result:=BoolToStr(AValue,UseBoolStrs);\r\nend;\r\n\r\nClass Function TLongBoolHelper.TryToParse(const S: string; out AValue: Boolean): Boolean; inline;\r\n\r\nbegin\r\n  Result:=TryStrToBool(S,AValue);\r\nend;\r\n\r\nFunction TLongBoolHelper.ToInteger: Integer; inline;\r\n\r\nbegin\r\n  Result:=Integer(Self);\r\nend;\r\n\r\nFunction TLongBoolHelper.ToString(UseBoolStrs: Boolean = False): string; overload; inline;\r\n\r\nbegin\r\n  Result:=BoolToStr(Self,UseBoolStrs);\r\nend;\r\n\r\n{ TStringBuilder }\r\n\r\nconstructor TStringBuilder.Create;\r\nbegin\r\n  Create(DefaultCapacity,Maxint);\r\nend;\r\n\r\nconstructor TStringBuilder.Create(const AValue: String; aCapacity: Integer);\r\nbegin\r\n  Create(aCapacity,Maxint);\r\n  if (system.Length(AValue)>0) then\r\n    Append(AValue);\r\nend;\r\n\r\n\r\nconstructor TStringBuilder.Create(const AValue: String; StartIndex, Alength,\r\n  aCapacity: Integer);\r\nbegin\r\n  Create(Copy(AValue,StartIndex+1,Alength), aCapacity);\r\nend;\r\n\r\nconstructor TStringBuilder.Create(aCapacity, aMaxCapacity: Integer);\r\nbegin\r\n  FMaxCapacity:=aMaxCapacity;\r\n  Capacity:=aCapacity;\r\nend;\r\n\r\nconstructor TStringBuilder.Create(aCapacity: Integer);\r\nbegin\r\n  Create(aCapacity,MaxInt);\r\nend;\r\n\r\nconstructor TStringBuilder.Create(const AValue: String);\r\nbegin\r\n  Create(aValue,DefaultCapacity);\r\nend;\r\n\r\n\r\n{ Property getter/setter }\r\n\r\nfunction TStringBuilder.GetLength: Integer;\r\nbegin\r\n  Result:=System.Length(FData);\r\nend;\r\n\r\nfunction TStringBuilder.GetCapacity: Integer;\r\nbegin\r\n  Result:=System.Length(FData);\r\nend;\r\n\r\nfunction TStringBuilder.GetC(Index: Integer): Char;\r\nbegin\r\n  CheckNegative(Index + 1,'Index');\r\n  CheckRange(Index + 1, 0, Length);\r\n  Result:=FData[Index + 1];\r\nend;\r\n\r\nprocedure TStringBuilder.SetC(Index: Integer; AValue: Char);\r\nbegin\r\n  CheckNegative(Index + 1, 'Index');\r\n  CheckRange(Index + 1, 0, Length);\r\n  FData[Index + 1] := AValue;\r\nend;\r\n\r\nprocedure TStringBuilder.SetLength(AValue: Integer);\r\n\r\nbegin\r\n  CheckNegative(AValue,'AValue');\r\n  CheckRange(AValue,0,MaxCapacity);\r\n  System.SetLength(FData,aValue);\r\nend;\r\n\r\n{ Check functions }\r\n\r\n\r\n\r\nprocedure TStringBuilder.CheckRange(Idx, Count, MaxLen: Integer);\r\n\r\nbegin\r\n  if (Idx<0) or (Idx+Count>MaxLen) then\r\n    Raise ERangeError.CreateFmt(SListIndexError,[Idx]);\r\nend;\r\n\r\n\r\nprocedure TStringBuilder.CheckNegative(const AValue: Integer;\r\n  const AName: String);\r\n\r\nbegin\r\n  if (AValue<0) then\r\n    Raise ERangeError.CreateFmt(SParamIsNegative,[AName])\r\nend;\r\n\r\n{  These do the actual Appending/Inserting }\r\n\r\nprocedure TStringBuilder.DoAppend(const S: String);\r\n\r\nbegin\r\n  FData:=FData+S;\r\nend;\r\n\r\nprocedure TStringBuilder.DoAppend(const AValue: Array of Char; Idx, aCount: Integer\r\n  );\r\n\r\nVar\r\n  S : String;\r\n  I : Integer;\r\n\r\nbegin\r\n  S:='';\r\n  CheckRange(Idx,aCount,System.Length(AValue));\r\n  for I:=Idx to Idx+aCount-1 do\r\n    S:=S+aValue[I];\r\n  DoAppend(S);\r\nend;\r\n\r\nprocedure TStringBuilder.DoInsert(Index: Integer; const AValue: String);\r\n\r\nbegin\r\n  CheckRange(Index,0,Length-1);\r\n  System.Insert(aValue,FData,Index+1);\r\nend;\r\n\r\nprocedure TStringBuilder.DoInsert(Index: Integer; const AValue: Array of Char;\r\n  StartIndex, aCharCount: Integer);\r\n\r\nVar\r\n  I : Integer;\r\n  S : String;\r\n\r\nbegin\r\n  CheckRange(Index,0,Length-1);\r\n  CheckNegative(StartIndex,'StartIndex');\r\n  CheckNegative(aCharCount,'SBCharCount');\r\n  CheckRange(StartIndex,aCharCount,System.Length(AValue));\r\n  S:='';\r\n  for I:=StartIndex to StartIndex+aCharCount-1 do\r\n    S:=S+aValue[I];\r\n  DoInsert(Index,S);\r\nend;\r\n\r\n{ Public routines for appending }\r\n\r\nfunction TStringBuilder.Append(const AValue: UInt64): TStringBuilder;\r\nbegin\r\n  DoAppend(IntToStr(AValue));\r\n  Result:=self;\r\nend;\r\n\r\nfunction TStringBuilder.Append(const AValue: Array of Char): TStringBuilder;\r\n\r\nvar\r\n  I,L: Integer;\r\n\r\nbegin\r\n  I:=-1;\r\n  L:=System.Length(AValue);\r\n  If L=0 then\r\n    Exit(Self);\r\n  Repeat\r\n    Inc(I);\r\n  Until (I>=L) or (AValue[I]=#0);\r\n  DoAppend(AValue,0,I);\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TStringBuilder.Append(const AValue: Single): TStringBuilder;\r\nbegin\r\n  DoAppend(FloatToStr(AValue));\r\n  Result:=self;\r\nend;\r\n\r\nfunction TStringBuilder.Append(const AValue: Word): TStringBuilder;\r\nbegin\r\n  Append(IntToStr(AValue));\r\n  Result:=self;\r\nend;\r\n\r\nfunction TStringBuilder.Append(const AValue: Cardinal): TStringBuilder;\r\nbegin\r\n  DoAppend(IntToStr(AValue));\r\n  Result:=self;\r\nend;\r\n\r\nfunction TStringBuilder.Append(const AValue: Char; RepeatCount: Integer\r\n  ): TStringBuilder;\r\nbegin\r\n  DoAppend(StringOfChar(AValue,RepeatCount));\r\n  Result:=Self;\r\nend;\r\n\r\n\r\nfunction TStringBuilder.Append(const AValue: Shortint): TStringBuilder;\r\nbegin\r\n  DoAppend(IntToStr(AValue));\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TStringBuilder.Append(const AValue: Char): TStringBuilder;\r\nbegin\r\n  DoAppend(AValue);\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TStringBuilder.Append(const AValue: Currency): TStringBuilder;\r\nbegin\r\n  DoAppend(CurrToStr(AValue));\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TStringBuilder.Append(const AValue: Boolean): TStringBuilder;\r\nbegin\r\n  DoAppend(BoolToStr(AValue, True));\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TStringBuilder.Append(const AValue: Byte): TStringBuilder;\r\nbegin\r\n  DoAppend(IntToStr(AValue));\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TStringBuilder.Append(const AValue: Int64): TStringBuilder;\r\nbegin\r\n  DoAppend(IntToStr(AValue));\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TStringBuilder.Append(const AValue: TObject): TStringBuilder;\r\nbegin\r\n  DoAppend(AValue.ToString);\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TStringBuilder.Append(const AValue: Smallint): TStringBuilder;\r\nbegin\r\n  DoAppend(IntToStr(AValue));\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TStringBuilder.Append(const AValue: LongInt): TStringBuilder;\r\nbegin\r\n  DoAppend(IntToStr(AValue));\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TStringBuilder.Append(const AValue: Array of Char; StartIndex, SBCharCount: Integer): TStringBuilder;\r\n\r\nbegin\r\n  DoAppend(AValue,StartIndex,SBCharCount);\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TStringBuilder.Append(const AValue: String; StartIndex, Count: Integer): TStringBuilder;\r\n\r\nbegin\r\n  CheckRange(StartIndex,Count,System.Length(AValue));\r\n  DoAppend(Copy(AValue,StartIndex+1,Count));\r\n  Result:=Self;\r\nend;\r\n\r\n\r\nfunction TStringBuilder.Append(const AValue: String): TStringBuilder;\r\nbegin\r\n  DoAppend(AValue);\r\n  Result:=Self;\r\nend;\r\n\r\n\r\nfunction TStringBuilder.AppendFormat(const Fmt: String;\r\n  const Args: array of const): TStringBuilder;\r\nbegin\r\n  DoAppend(Format(Fmt,Args));\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TStringBuilder.Append(const Fmt: String;\r\n  const Args: array of const): TStringBuilder;\r\nbegin\r\n  DoAppend(Format(Fmt,Args));\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TStringBuilder.AppendLine: TStringBuilder;\r\nbegin\r\n  DoAppend(sLineBreak);\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TStringBuilder.AppendLine(const AValue: String): TStringBuilder;\r\nbegin\r\n  DoAppend(AValue);\r\n  Result:=AppendLine();\r\nend;\r\n\r\nprocedure TStringBuilder.Clear;\r\nbegin\r\n  Length:=0;\r\n  Capacity:=DefaultCapacity;\r\nend;\r\n\r\n\r\nprocedure TStringBuilder.CopyTo(SourceIndex: Integer;\r\n  Var Destination: Array of Char; DestinationIndex: Integer; Count: Integer);\r\n\r\nVar\r\n  I : Integer;\r\n\r\nbegin\r\n  CheckNegative(Count,'Count');\r\n  CheckNegative(DestinationIndex,'DestinationIndex');\r\n  CheckRange(DestinationIndex,Count,System.Length(Destination));\r\n  if Count>0 then\r\n    begin\r\n    CheckRange(SourceIndex,Count,Length);\r\n    For I:=SourceIndex+1 to SourceIndex+Count do\r\n      Destination[DestinationIndex]:=FData[I];\r\n    end;\r\nend;\r\n\r\n\r\nfunction TStringBuilder.EnsureCapacity(aCapacity: Integer): Integer;\r\nbegin\r\n  CheckRange(aCapacity,0,MaxCapacity);\r\n  if Capacity<aCapacity then\r\n    Capacity:=aCapacity;\r\n  Result:=Capacity;\r\nend;\r\n\r\nfunction TStringBuilder.Equals(StringBuilder: TStringBuilder): Boolean;\r\nbegin\r\n  Result:=(StringBuilder<>nil);\r\n  if Result then\r\n    Result:=(Length=StringBuilder.Length)\r\n             and (MaxCapacity=StringBuilder.MaxCapacity)\r\n             and (FData=StringBuilder.FData[0]);\r\nend;\r\n\r\nprocedure TStringBuilder.Grow;\r\n\r\nvar\r\n  NewCapacity: SizeInt;\r\n\r\nbegin\r\n  NewCapacity:=Capacity*2;\r\n  if NewCapacity>MaxCapacity then\r\n    NewCapacity:=MaxCapacity;\r\n  Capacity:=NewCapacity;\r\nend;\r\n\r\nfunction TStringBuilder.Insert(Index: Integer; const AValue: TObject\r\n  ): TStringBuilder;\r\nbegin\r\n  DoInsert(Index,AValue.ToString());\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TStringBuilder.Insert(Index: Integer; const AValue: Int64\r\n  ): TStringBuilder;\r\nbegin\r\n  DoInsert(Index,IntToStr(AValue));\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TStringBuilder.Insert(Index: Integer; const AValue: Single\r\n  ): TStringBuilder;\r\nbegin\r\n  DoInsert(Index,FloatToStr(AValue));\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TStringBuilder.Insert(Index: Integer; const AValue: String\r\n  ): TStringBuilder;\r\n\r\nbegin\r\n  DoInsert(Index,AValue);\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TStringBuilder.Insert(Index: Integer; const AValue: Word\r\n  ): TStringBuilder;\r\nbegin\r\n  DoInsert(Index,IntToStr(AValue));\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TStringBuilder.Insert(Index: Integer; const AValue: Shortint\r\n  ): TStringBuilder;\r\nbegin\r\n  DoInsert(Index, IntToStr(AValue));\r\n  Result:=Self;\r\nend;\r\n\r\n\r\nfunction TStringBuilder.Insert(Index: Integer; const AValue: Currency\r\n  ): TStringBuilder;\r\nbegin\r\n  DoInsert(Index,CurrToStr(AValue));\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TStringBuilder.Insert(Index: Integer; const AValue: Char\r\n  ): TStringBuilder;\r\nbegin\r\n  DoInsert(Index,AValue);\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TStringBuilder.Insert(Index: Integer; const AValue: Byte\r\n  ): TStringBuilder;\r\nbegin\r\n  DoInsert(Index,IntToStr(AValue));\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TStringBuilder.Insert(Index: Integer; const AValue: LongInt\r\n  ): TStringBuilder;\r\nbegin\r\n  DoInsert(Index,IntToStr(AValue));\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TStringBuilder.Insert(Index: Integer; const AValue: Smallint\r\n  ): TStringBuilder;\r\nbegin\r\n  DoInsert(Index,IntToStr(AValue));\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TStringBuilder.Insert(Index: Integer; const AValue: Boolean\r\n  ): TStringBuilder;\r\nbegin\r\n  DoInsert(Index,BoolToStr(AValue,True));\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TStringBuilder.Insert(Index: Integer; const AValue: String;\r\n  const aRepeatCount: Integer): TStringBuilder;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I:=0 to aRepeatCount-1 do\r\n    DoInsert(Index,AValue);\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TStringBuilder.Insert(Index: Integer; const AValue: Array of Char\r\n  ): TStringBuilder;\r\nbegin\r\n  DoInsert(Index,AValue,0,System.Length(AValue));\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TStringBuilder.Insert(Index: Integer; const AValue: Array of Char;\r\n  startIndex: Integer; SBCharCount: Integer): TStringBuilder;\r\nbegin\r\n  DoInsert(Index,AValue,StartIndex,SBCharCount);\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TStringBuilder.Insert(Index: Integer; const AValue: Cardinal\r\n  ): TStringBuilder;\r\nbegin\r\n  DoInsert(Index,IntToStr(AValue));\r\n  Result:=self;\r\nend;\r\n\r\nfunction TStringBuilder.Insert(Index: Integer; const AValue: UInt64\r\n  ): TStringBuilder;\r\nbegin\r\n  DoInsert(Index,IntToStr(AValue));\r\n  Result:=self;\r\nend;\r\n\r\nprocedure TStringBuilder.Shrink;\r\n\r\nbegin\r\n  if (Capacity div 4)>=Length then\r\n    Capacity:=Capacity div 2;\r\nend;\r\n\r\nfunction TStringBuilder.Remove(StartIndex: Integer; RemLength: Integer\r\n  ): TStringBuilder;\r\n\r\nVar\r\n  MoveIndex : Integer;\r\n\r\nbegin\r\n  if (RemLength=0) then\r\n    exit(Self);\r\n  CheckNegative(RemLength,'RemLength');\r\n  CheckRange(StartIndex,0,Length);\r\n  MoveIndex:=StartIndex+RemLength;\r\n  CheckRange(MoveIndex,0,Length);\r\n  Delete(FData,StartIndex+1,RemLength);\r\n  Shrink;\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TStringBuilder.Replace(const OldValue, NewValue: String; StartIndex, Count: Integer): TStringBuilder;\r\n\r\nvar\r\n  I : Integer;\r\n  Start : String;\r\n\r\nbegin\r\n  if Count=0 then\r\n    Exit(Self);\r\n  // Some checks.\r\n  CheckNegative(StartIndex,'StartIndex');\r\n  CheckNegative(Count,'Count');\r\n  CheckRange(Startindex,Count,Length);\r\n  // Init\r\n  Start:=Copy(FData,1,StartIndex);\r\n  FData:=Copy(FData,StartIndex+1);\r\n  For I:=1 to Count do\r\n    FData:=StringReplace(FData,OldValue,NewValue,[]);\r\n  FData:=Start+FData;\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TStringBuilder.Replace(const OldValue, NewValue: String): TStringBuilder;\r\nbegin\r\n  Result:=Replace(OldValue,NewValue,0,Length);\r\nend;\r\n\r\nprocedure TStringBuilder.SetCapacity(AValue: Integer);\r\nbegin\r\n  if (AValue>FMaxCapacity) then\r\n    Raise ERangeError.CreateFmt(SListCapacityError,[AValue]);\r\n  if (AValue<Length) then\r\n    Raise ERangeError.CreateFmt(SListCapacityError,[AValue]);\r\n  // No-op\r\nend;\r\n\r\nfunction TStringBuilder.ToString: String;\r\nbegin\r\n  Result:=ToString(0,Length);\r\nend;\r\n\r\nfunction TStringBuilder.ToString(aStartIndex: Integer; aLength: Integer\r\n  ): String;\r\nbegin\r\n  CheckNegative(aStartIndex,'aStartIndex');\r\n  CheckNegative(aLength,'aLength');\r\n  CheckRange(aStartIndex,aLength,Length);\r\n  Writeln('FData : ',FData);\r\n  Result:=Copy(FData,1+aStartIndex,aStartIndex+aLength);\r\nend;\r\n\r\nprocedure TStringBuilder.DoReplace(Index: Integer; const Old, New: String);\r\n\r\nvar\r\n  OVLen : Integer;\r\n\r\nbegin\r\n  OVLen:=System.Length(Old);\r\n  System.Delete(FData,Index+1,OVLen);\r\n  System.Insert(New,FData,Index+1);\r\nend;\r\n\r\nfunction EqualsStr(const AValue1, AValue2: string): Boolean;\r\nbegin\r\n  Result := AValue1 = AValue2;\r\nend;\r\n\r\nfunction ParseCmdLine: TStringArray;\r\nconst\r\n  cBlank = ' ';\r\nvar\r\n  lCount: Integer;\r\n  lParam: string;\r\n  lExtraParam: string;\r\n  lBuffer: string;\r\n  lChar: Char;\r\n  lIndex: Integer;\r\nbegin\r\n  Result := nil;\r\n  for lCount := 1 to ParamCount do\r\n  begin\r\n    lParam := ParamStr(lCount);\r\n    lBuffer := lParam.Substring(1);\r\n    lExtraParam := string.Empty;\r\n    for lChar in SwitchChars do\r\n    begin\r\n      lIndex := lBuffer.IndexOf(cBlank + lChar);\r\n      if lIndex >= 0 then\r\n      begin\r\n        lExtraParam := lParam.Substring(lIndex + 1).TrimLeft;\r\n        lParam := lParam.Substring(0, lIndex + 1).TrimRight;\r\n        Break;\r\n      end;\r\n\r\n    end;\r\n    SetLength(Result, Length(Result) + 1);\r\n    Result[High(Result)] := lParam;\r\n    if not lExtraParam.IsEmpty then\r\n    begin\r\n      SetLength(Result, Length(Result) + 1);\r\n      Result[High(Result)] := lExtraParam;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction FindCmdLineSwitch(const ASwitch: string): Boolean;\r\nbegin\r\n  Result := FindCmdLineSwitch(ASwitch, SwitchChars, True);\r\nend;\r\n\r\nfunction FindCmdLineSwitch(const ASwitch: string; AIgnoreCase: Boolean): Boolean;\r\nbegin\r\n  Result := FindCmdLineSwitch(ASwitch, SwitchChars, AIgnoreCase);\r\nend;\r\n\r\nfunction FindCmdLineSwitch(const ASwitch: string; const AChars: TSysCharSet; AIgnoreCase: Boolean): Boolean;\r\ntype\r\n  TCompareProc = function(const AS1, AS2: string): Boolean;\r\nvar\r\n  lSameSwitch: TCompareProc;\r\n  lSwitch: string;\r\n  lSwitches: TStringArray;\r\n  lValue: string;\r\nbegin\r\n  if AIgnoreCase then\r\n    lSameSwitch := AnsiSameText\r\n  else\r\n    lSameSwitch := EqualsStr;\r\n\r\n  lSwitches := ParseCmdLine;\r\n  for lValue in lSwitches do\r\n  begin\r\n    if (AChars = []) or CharInSet(lValue[Low(string)], AChars) then\r\n    begin\r\n      lSwitch := lValue.SubString(1);\r\n      if lSameSwitch(lSwitch, ASwitch) then\r\n        Exit(True);\r\n    end;\r\n  end;\r\n  Result := False;\r\nend;\r\n\r\nfunction FindCmdLineSwitch(const ASwitch: string; var AValue: string; AIgnoreCase: Boolean = True; const ASwitchTypes: TCmdLineSwitchTypes = [clstValueNextParam, clstValueAppended]): Boolean; overload;\r\nconst\r\n  cDeli = ':';\r\ntype\r\n  TCompareProc = function(const AS1, AS2: string): Boolean;\r\nvar\r\n  lCompare: TCompareProc;\r\n  lCount: Integer;\r\n  lParam: string;\r\n  lSwitches: TStringArray;\r\n  lSwitchLen: Integer;\r\n  lValueOfs: Integer;\r\nbegin\r\n  Result := False;\r\n  AValue := string.Empty;\r\n  if AIgnoreCase then\r\n    lCompare := SameText\r\n  else\r\n    lCompare := SameStr;\r\n  lSwitchLen := ASwitch.Length;\r\n\r\n  lSwitches := ParseCmdLine;\r\n  for lCount := Low(lSwitches) to High(lSwitches) do\r\n  begin\r\n    lParam := lSwitches[lCount];\r\n    if not CharInSet(lParam.Chars[0], SwitchChars) then\r\n      Continue;\r\n\r\n    if not lCompare(lParam.SubString(1, lSwitchLen), ASwitch) then\r\n      Continue;\r\n\r\n    if lParam.Length > lSwitchLen + 1 then\r\n    begin\r\n      if not (clstValueAppended in ASwitchTypes) then\r\n        Continue;\r\n      lValueOfs := lSwitchLen + 1;\r\n      if lParam.Chars[lValueOfs] = cDeli then\r\n        Inc(lValueOfs);\r\n      AValue := lParam.SubString(lValueOfs, MaxInt);\r\n    end\r\n    else if (clstValueNextParam in ASwitchTypes) and (lCount < High(lSwitches)) and (not CharInSet(lSwitches[lCount + 1].Chars[0], SwitchChars)) then\r\n      AValue := lSwitches[lCount + 1];\r\n    Result := True;\r\n    Break;\r\n  end;\r\nend;\r\n\r\n{ TEncoding }\r\n\r\nclass function TEncoding.GetANSI: TEncoding;\r\nbegin\r\n  if not Assigned(FANSI) then\r\n    FANSI := TANSIEncoding.Create;\r\n  Result := FANSI;\r\nend;\r\n\r\nclass function TEncoding.GetASCII: TEncoding;\r\nbegin\r\n  if not Assigned(FASCII) then\r\n    FASCII := TASCIIEncoding.Create;\r\n  Result := FASCII;\r\nend;\r\n\r\nclass function TEncoding.GetDefault: TEncoding;\r\nbegin\r\n  Result := ANSI;\r\nend;\r\n\r\nclass function TEncoding.GetUnicode: TEncoding;\r\nbegin\r\n  if not Assigned(FUnicode) then\r\n    FUnicode := TUnicodeEncoding.Create;\r\n  Result := FUnicode;\r\nend;\r\n\r\nclass function TEncoding.GetUTF7: TEncoding;\r\nbegin\r\n  if not Assigned(FUTF7) then\r\n    FUTF7 := TUTF7Encoding.Create;\r\n  Result := FUTF7;\r\nend;\r\n\r\nclass function TEncoding.GetUTF8: TEncoding;\r\nbegin\r\n  if not Assigned(FUTF8) then\r\n    FUTF8 := TUTF8Encoding.Create;\r\n  Result := FUTF8;\r\nend;\r\n\r\nclass function TEncoding.IsStandardEncoding(AEncoding: TEncoding): Boolean;\r\nbegin\r\n  Result := (AEncoding <> nil) and ((AEncoding = ANSI) or (AEncoding = Unicode));\r\nend;\r\n\r\nfunction TEncoding.GetByteCount(const AChars: string; const ACharCount: Integer): Integer;\r\nbegin\r\n  Result := GetByteCount(AChars.Substring(0, ACharCount));\r\nend;\r\n\r\nfunction TEncoding.GetByteCount(const AChars: string; const ACharIndex, ACharCount: Integer): Integer;\r\nbegin\r\n  Result := GetByteCount(AChars.Substring(ACharIndex, ACharCount));\r\nend;\r\n\r\nfunction TEncoding.GetBytes(const AChars: string; const ACharCount: Integer): TBytes;\r\nbegin\r\n  Result := GetBytes(AChars.Substring(0, ACharCount));\r\nend;\r\n\r\nfunction TEncoding.GetBytes(const AChars: string; const ACharIndex, ACharCount: Integer): TBytes;\r\nbegin\r\n  Result := GetBytes(AChars.Substring(ACharIndex, ACharCount));\r\nend;\r\n\r\nfunction TEncoding.GetEncoding: string;\r\nconst\r\n  cEncoding = 'utf-8';\r\nbegin\r\n  Result := cEncoding;\r\nend;\r\n\r\nfunction TEncoding.GetString(const ABytes: TBytes; const ACharCount: Integer): string;\r\nbegin\r\n  Result := GetString(ABytes.SubBytes(0, ACharCount));\r\nend;\r\n\r\nfunction TEncoding.GetString(const ABytes: TBytes; const ACharIndex, ACharCount: Integer): string;\r\nbegin\r\n  Result := GetString(ABytes.SubBytes(ACharIndex, ACharCount));\r\nend;\r\n\r\n{ TANSIEncoding }\r\n\r\nfunction TANSIEncoding.GetByteCount(const AChars: string): Integer;\r\nbegin\r\n  Result := AChars.Length;\r\nend;\r\n\r\nfunction TANSIEncoding.GetBytes(const AChars: string): TBytes;\r\nbegin\r\n  Result := BytesOf(AChars);\r\nend;\r\n\r\nfunction TANSIEncoding.GetEncoding: string;\r\nconst\r\n  cEncoding = 'windows-1252';\r\nbegin\r\n  Result := cEncoding;\r\nend;\r\n\r\nfunction TANSIEncoding.GetString(const ABytes: TBytes): string;\r\nbegin\r\n  Result := StringOf(ABytes);\r\nend;\r\n\r\n{ TASCIIEncoding }\r\n\r\nfunction TASCIIEncoding.GetEncoding: string;\r\nconst\r\n  cEncoding = 'ISO-8859-2';\r\nbegin\r\n  Result := cEncoding;\r\nend;\r\n\r\n{ TUnicodeEncoding }\r\n\r\nfunction TUnicodeEncoding.GetByteCount(const AChars: string): Integer;\r\nconst\r\n  cCharSize = 2;\r\nbegin\r\n  Result := cCharSize * AChars.Length;\r\nend;\r\n\r\nfunction TUnicodeEncoding.GetBytes(const AChars: string): TBytes;\r\nbegin\r\n  InternalGetBytes(AChars, Result);\r\nend;\r\n\r\nfunction TUnicodeEncoding.GetEncoding: string;\r\nconst\r\n  cEncoding = 'unicode';\r\nbegin\r\n  Result := cEncoding;\r\nend;\r\n\r\nfunction TUnicodeEncoding.GetString(const ABytes: TBytes): string;\r\nvar\r\n  lWords: TWords;\r\n  lBuffer: string;\r\nbegin\r\n  lBuffer := string.Empty;\r\n  lWords := TWords.FromBytes(ABytes);\r\n  if lWords <> nil then\r\n  begin\r\n    asm\r\n      for (var lCount = 0; lCount < lWords.length; lCount++)\r\n        lBuffer += string.fromCharCode(lWords[lCount]);\r\n    end;\r\n  end;\r\n  Result := lBuffer;\r\nend;\r\n\r\nprocedure TUnicodeEncoding.InternalGetBytes(const AChars: string; out ABytes: TBytes);\r\nvar\r\n  lWords: TWords;\r\nbegin\r\n  lWords := nil;\r\n  asm\r\n    for (var lCount = 0; lCount < AChars.length; lCount++)\r\n      lWords.push(AChars.charCodeAt(lCount));\r\n  end;\r\n  ABytes := lWords.ToBytes;\r\nend;\r\n\r\nclass function TUTF8Encoding.BytesToMemory(ABytes: TBytes): TJSArrayBuffer;\r\nvar\r\n  lArray: TJSUint8Array;\r\nbegin\r\n  Result := TJSArrayBuffer.new(ABytes.Length);\r\n  lArray := TJSUint8Array.New(Result);\r\n  lArray._set(ABytes);\r\nend;\r\n\r\n{ TUTF8Encoding }\r\n\r\nfunction TUTF8Encoding.GetByteCount(const AChars: string): Integer;\r\nbegin\r\n  Result := GetBytes(AChars).Length;\r\nend;\r\n\r\nfunction TUTF8Encoding.GetBytes(const AChars: string): TBytes;\r\nvar\r\n  lArray: TJSUInt8Array;\r\n  lEncoder: TJSTextEncoder;\r\nbegin\r\n  lEncoder := TJSTextEncoder.New;\r\n  lArray := lEncoder.encode(AChars);\r\n  Result := MemoryToBytes(lArray);\r\nend;\r\n\r\nfunction TUTF8Encoding.GetEncoding: string;\r\nconst\r\n  cEncoding = 'utf-8';\r\nbegin\r\n  Result := cEncoding;\r\nend;\r\n\r\nfunction TUTF8Encoding.GetString(const ABytes: TBytes): string;\r\nvar\r\n  lArray: TJSArrayBuffer;\r\n  lDecoder: TJSTextDecoder;\r\nbegin\r\n  lDecoder := TJSTextDecoder.New;\r\n  lArray := BytesToMemory(ABytes);\r\n  Result := lDecoder.decode(lArray);\r\nend;\r\n\r\nclass function TUTF8Encoding.MemoryToBytes(AMem: TJSUInt8Array): TBytes;\r\nvar\r\n  lCount: Integer;\r\nbegin\r\n  for lCount := 0 to AMem.length - 1 do\r\n    Result[lCount]:= AMem[lCount];\r\nend;\r\n\r\nfunction TUTF7Encoding.GetEncoding: string;\r\nconst\r\n  cEncoding = 'utf-7';\r\nbegin\r\n  Result := cEncoding;\r\nend;\r\n\r\n{ TBytesHelper }\r\n\r\nfunction TBytesHelper.GetLength: Integer;\r\nbegin\r\n  Result := System.Length(Self);\r\nend;\r\n\r\nfunction TBytesHelper.High: Integer;\r\nbegin\r\n  Result := System.High(Self);\r\nend;\r\n\r\nfunction TBytesHelper.Low: Integer;\r\nbegin\r\n  Result := System.Low(Self);\r\nend;\r\n\r\nprocedure TBytesHelper.SetLength(const AValue: Integer);\r\nbegin\r\n  System.SetLength(Self, AValue);\r\nend;\r\n\r\nfunction TBytesHelper.SubBytes(const AStartIndex, ALength: Integer): TBytes;\r\nbegin\r\n  Result := System.Copy(Self, AStartIndex, ALength);\r\nend;\r\n\r\n{ TWordsHelper }\r\n\r\nclass function TWordsHelper.FromBytes(const ABytes: TBytes): TWords;\r\nconst\r\n  cBytesPerWord = 2;\r\nvar\r\n  lCount: Integer;\r\n  lLow: Byte;\r\n  lHigh: Byte;\r\nbegin\r\n  lCount := ABytes.Length;\r\n  if Odd(lCount) then\r\n    Inc(lCount);\r\n  Result.Length := lCount div cBytesPerWord;\r\n\r\n  lCount := ABytes.Low;\r\n  while lCount <= ABytes.High do\r\n  begin\r\n    lLow := ABytes[lCount];\r\n    if lCount + 1 <= ABytes.High then\r\n      lHigh := ABytes[lCount + 1]\r\n    else\r\n      lHigh := 0;\r\n\r\n    Result[lCount div cBytesPerWord] := Word.FromBytes(lLow, lHigh);\r\n    Inc(lCount, cBytesPerWord);\r\n  end;\r\nend;\r\n\r\nfunction TWordsHelper.GetLength: Integer;\r\nbegin\r\n  Result := System.Length(Self);\r\nend;\r\n\r\nfunction TWordsHelper.High: Integer;\r\nbegin\r\n  Result := System.High(Self);\r\nend;\r\n\r\nfunction TWordsHelper.Low: Integer;\r\nbegin\r\n  Result := System.Low(Self);\r\nend;\r\n\r\nprocedure TWordsHelper.SetLength(const AValue: Integer);\r\nbegin\r\n  System.SetLength(Self, AValue);\r\nend;\r\n\r\nfunction TWordsHelper.ToBytes: TBytes;\r\nconst\r\n  cBytesPerWord = 2;\r\nvar\r\n  lLow: Byte;\r\n  lHigh: Byte;\r\n  lCount: Integer;\r\n  lNewIndex: Integer;\r\nbegin\r\n  Result.Length := Length * cBytesPerWord;\r\n  for lCount := Low to High do\r\n  begin\r\n    Self[lCount].ToBytes(lLow, lHigh);\r\n    lNewIndex := lCount * cBytesPerWord;\r\n    Result[lNewIndex] := lLow;\r\n    Result[lNewIndex + 1] := lHigh;\r\n  end;\r\nend;\r\n\r\ninitialization\r\n  ShortMonthNames:=DefaultShortMonthNames;\r\n  LongMonthNames:=DefaultLongMonthNames;\r\n  ShortDayNames:=DefaultShortDayNames;\r\n  LongDayNames:=DefaultLongDayNames;\r\n\r\nend.\r\n\r\n","{\r\n    This file is part of the Pas2JS run time library.\r\n    Copyright (c) 2018 by Mattias Gaertner\r\n\r\n    See the file COPYING.FPC, included in this distribution,\r\n    for details about the copyright.\r\n\r\n    This program is distributed in the hope that it will be useful,\r\n    but WITHOUT ANY WARRANTY; without even the implied warranty of\r\n    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\r\n\r\n **********************************************************************}\r\nunit TypInfo;\r\n\r\n{$mode objfpc}\r\n{$modeswitch externalclass}\r\n\r\ninterface\r\n\r\nuses\r\n  SysUtils, Types, RTLConsts, JS;\r\n\r\ntype\r\n  // TCallConv for compatibility with Delphi/FPC, ignored under pas2js\r\n  TCallConv = (ccReg, ccCdecl, ccPascal, ccStdCall, ccSafeCall, ccCppdecl,\r\n    ccFar16, ccOldFPCCall, ccInternProc, ccSysCall, ccSoftFloat, ccMWPascal);\r\n\r\n\r\n  { TSectionRTTI }\r\n  TSectionRTTI = class external name 'rtl.tSectionRTTI'(TJSObject)\r\n  end;\r\n\r\n  { TTypeInfoModule }\r\n\r\n  TTypeInfoModule = class external name 'pasmodule'(TJSObject)\r\n  public\r\n    Name: String external name '$name';\r\n    RTTI: TSectionRTTI external name '$rtti';\r\n  end;\r\n\r\n  TTypeInfoAttributes = type TJSValueDynArray;\r\n\r\n  { TTypeInfo }\r\n\r\n  TTypeInfo = class external name 'rtl.tTypeInfo'\r\n  public\r\n    Name: String external name 'name';\r\n    Kind: TTypeKind external name 'kind';\r\n    Attributes: TTypeInfoAttributes external name 'attr'; // can be nil\r\n    Module: TTypeInfoModule external name '$module'; // can be nil\r\n  end;\r\n  TTypeInfoClassOf = class of TTypeInfo;\r\n\r\n  PTypeInfo = Pointer; // for compatibility with Delphi/FPC, under pas2js it is a TTypeInfo\r\n\r\n  TOrdType  = (\r\n    otSByte,      // 0\r\n    otUByte,      // 1\r\n    otSWord,      // 2\r\n    otUWord,      // 3\r\n    otSLong,      // 4\r\n    otULong,      // 5\r\n    otSIntDouble, // 6 NativeInt\r\n    otUIntDouble  // 7 NativeUInt\r\n    );\r\n\r\n  { TTypeInfoInteger - Kind = tkInteger }\r\n\r\n  TTypeInfoInteger = class external name 'rtl.tTypeInfoInteger'(TTypeInfo)\r\n  public\r\n    MinValue: NativeInt external name 'minvalue';\r\n    MaxValue: NativeInt external name 'maxvalue';\r\n    OrdType : TOrdType external name 'ordtype';\r\n  end;\r\n\r\n  { TEnumType }\r\n\r\n  TEnumType = class external name 'anonymous'\r\n  private\r\n    function GetIntToName(Index: NativeInt): String; external name '[]';\r\n    function GetNameToInt(Name: String): NativeInt; external name '[]';\r\n  public\r\n    property IntToName[Index: NativeInt]: String read GetIntToName;\r\n    property NameToInt[Name: String]: NativeInt read GetNameToInt;\r\n  end;\r\n\r\n  { TTypeInfoEnum - Kind = tkEnumeration }\r\n\r\n  TTypeInfoEnum = class external name 'rtl.tTypeInfoEnum'(TTypeInfoInteger)\r\n  public\r\n    // not supported: BaseType: TTypeInfo\r\n    EnumType: TEnumType external name 'enumtype';\r\n  end;\r\n\r\n  { TTypeInfoSet - Kind = tkSet }\r\n\r\n  TTypeInfoSet = class external name 'rtl.tTypeInfoSet'(TTypeInfo)\r\n  public\r\n    // not supported: BaseType: TTypeInfo\r\n    CompType: TTypeInfo external name 'comptype';\r\n  end;\r\n\r\n  { TTypeInfoStaticArray - Kind = tkArray }\r\n\r\n  TTypeInfoStaticArray = class external name 'rtl.tTypeInfoStaticArray'(TTypeInfo)\r\n  public\r\n    Dims: TIntegerDynArray external name 'dims';\r\n    ElType: TTypeInfo external name 'eltype';\r\n  end;\r\n\r\n  { TTypeInfoDynArray - Kind = tkDynArray }\r\n\r\n  TTypeInfoDynArray = class external name 'rtl.tTypeInfoDynArray'(TTypeInfo)\r\n  public\r\n    ElType: TTypeInfo external name 'eltype';\r\n  end;\r\n\r\n  TParamFlag     = (\r\n    pfVar,     // 2^0 = 1\r\n    pfConst,   // 2^1 = 2\r\n    pfOut,     // 2^2 = 4\r\n    pfArray,   // 2^3 = 8\r\n    pfAddress, // 2^4 = 16\r\n    pfReference // 2^5 = 32\r\n    );\r\n  TParamFlags = set of TParamFlag;\r\n\r\n  { TProcedureParam }\r\n\r\n  TProcedureParam = class external name 'anonymous'\r\n  public\r\n    Name: String external name 'name';\r\n    TypeInfo: TTypeInfo external name 'typeinfo';\r\n    Flags: NativeInt external name 'flags'; // TParamFlags as bit vector\r\n  end;\r\n\r\n  TProcedureParams = array of TProcedureParam;\r\n\r\n  TProcedureFlag = (\r\n    pfStatic,   // 2^0 = 1\r\n    pfVarargs,  // 2^1 = 2\r\n    pfExternal, // 2^2 = 4  name may be an expression\r\n    pfSafeCall, // 2^3 = 8\r\n    pfAsync     // 2^4 = 16\r\n    );\r\n  TProcedureFlags = set of TProcedureFlag;\r\n\r\n  { TProcedureSignature }\r\n\r\n  TProcedureSignature = class external name 'anonymous'\r\n  public\r\n    Params: TProcedureParams external name 'params'; // can be nil\r\n    ResultType: TTypeInfo external name 'resulttype'; // can be nil\r\n    Flags: NativeInt external name 'flags'; // TProcedureFlags as bit vector\r\n  end;\r\n\r\n  { TTypeInfoProcVar - Kind = tkProcVar }\r\n\r\n  TTypeInfoProcVar = class external name 'rtl.tTypeInfoProcVar'(TTypeInfo)\r\n  public\r\n    ProcSig: TProcedureSignature external name 'procsig';\r\n  end;\r\n\r\n  { TTypeInfoRefToProcVar - Kind = tkRefToProcVar }\r\n\r\n  TTypeInfoRefToProcVar = class external name 'rtl.tTypeInfoRefToProcVar'(TTypeInfoProcVar)\r\n  end;\r\n\r\n  TMethodKind = (\r\n    mkProcedure,     // 0  default\r\n    mkFunction,      // 1\r\n    mkConstructor,   // 2\r\n    mkDestructor,    // 3\r\n    mkClassProcedure,// 4\r\n    mkClassFunction  // 5\r\n    //mkClassConstructor,mkClassDestructor,mkOperatorOverload\r\n    );\r\n  TMethodKinds = set of TMethodKind;\r\n\r\n  { TTypeInfoMethodVar - Kind = tkMethod }\r\n\r\n  TTypeInfoMethodVar = class external name 'rtl.tTypeInfoMethodVar'(TTypeInfoProcVar)\r\n  public\r\n    MethodKind: TMethodKind external name 'methodkind';\r\n  end;\r\n\r\n  TTypeMemberKind = (\r\n    tmkUnknown,  // 0\r\n    tmkField,    // 1\r\n    tmkMethod,   // 2\r\n    tmkProperty  // 3\r\n    );\r\n  TTypeMemberKinds = set of TTypeMemberKind;\r\n\r\n  { TTypeMember }\r\n\r\n  TTypeMember = class external name 'rtl.tTypeMember'\r\n  public\r\n    Name: String external name 'name';\r\n    Kind: TTypeMemberKind external name 'kind';\r\n    Attributes: TTypeInfoAttributes external name 'attr'; // can be nil\r\n  end;\r\n  TTypeMemberDynArray = array of TTypeMember;\r\n\r\n  { TTypeMemberField - Kind = tmkField }\r\n\r\n  TTypeMemberField = class external name 'rtl.tTypeMemberField'(TTypeMember)\r\n  public\r\n    TypeInfo: TTypeInfo external name 'typeinfo';\r\n  end;\r\n\r\n  { TTypeMemberMethod - Kind = tmkMethod }\r\n\r\n  TTypeMemberMethod = class external name 'rtl.tTypeMemberMethod'(TTypeMember)\r\n  public\r\n    MethodKind: TMethodKind external name 'methodkind';\r\n    ProcSig: TProcedureSignature external name 'procsig';\r\n  end;\r\n  TTypeMemberMethodDynArray = array of TTypeMemberMethod;\r\n\r\nconst\r\n  pfGetFunction = 1; // getter is a function\r\n  pfSetProcedure = 2; // setter is a procedure\r\n  // stored is a 2-bit vector:\r\n  pfStoredFalse = 4; // stored false, never\r\n  pfStoredField = 8; // stored field, field name is in Stored\r\n  pfStoredFunction = 12; // stored function, function name is in Stored\r\n  pfHasIndex = 16; { if getter is function, append Index as last param\r\n                     if setter is function, append Index as second last param }\r\ntype\r\n  { TTypeMemberProperty - Kind = tmkProperty }\r\n\r\n  TTypeMemberProperty = class external name 'rtl.tTypeMemberProperty'(TTypeMember)\r\n  public\r\n    TypeInfo: TTypeInfo external name 'typeinfo';\r\n    Flags: NativeInt external name 'flags'; // bit vector, see pf constants above\r\n    Params: TProcedureParams external name 'params'; // can be nil\r\n    Index: JSValue external name 'index'; // can be undefined\r\n    Getter: String external name 'getter'; // name of field or function\r\n    Setter: String external name 'setter'; // name of field or function\r\n    Stored: String external name 'stored'; // name of field or function, can be undefined\r\n    Default: JSValue external name 'Default'; // can be undefined\r\n  end;\r\n  TTypeMemberPropertyDynArray = array of TTypeMemberProperty;\r\n\r\n  { TTypeMembers }\r\n\r\n  TTypeMembers = class external name 'rtl.tTypeMembers'\r\n  private\r\n    function GetItems(Name: String): TTypeMember; external name '[]';\r\n    procedure SetItems(Name: String; const AValue: TTypeMember); external name '[]';\r\n  public\r\n    property Members[Name: String]: TTypeMember read GetItems write SetItems; default;\r\n  end;\r\n\r\n  { TTypeInfoStruct }\r\n\r\n  TTypeInfoStruct = class external name 'rtl.tTypeInfoStruct'(TTypeInfo)\r\n  private\r\n    FFieldCount: NativeInt external name 'fields.length';\r\n    FMethodCount: NativeInt external name 'methods.length';\r\n    FPropCount: NativeInt external name 'properties.length';\r\n  public\r\n    Members: TTypeMembers external name 'members';\r\n    Names: TStringDynArray external name 'names'; // all member names with TTypeInfo\r\n    Fields: TStringDynArray external name 'fields';\r\n    Methods: TStringDynArray external name 'methods';\r\n    Properties: TStringDynArray external name 'properties';\r\n    property FieldCount: NativeInt read FFieldCount;\r\n    function GetField(Index: NativeInt): TTypeMemberField; external name 'getField';\r\n    function AddField(aName: String; aType: TTypeInfo; Options: TJSObject = nil\r\n      ): TTypeMemberField; external name 'addField';\r\n    property MethodCount: NativeInt read FMethodCount;\r\n    function GetMethod(Index: NativeInt): TTypeMemberMethod; external name 'getMethod';\r\n    function AddMethod(aName: String; MethodKind: TMethodKind = mkProcedure;\r\n      Params: TJSArray = nil; ResultType: TTypeInfo = nil;\r\n      Options: TJSObject = nil): TTypeMemberMethod; external name 'addMethod';\r\n    property PropCount: NativeInt read FPropCount;\r\n    function GetProp(Index: NativeInt): TTypeMemberProperty; external name 'getProperty';\r\n    function AddProperty(aName: String; Flags: NativeInt; ResultType: TTypeInfo;\r\n      Getter, Setter: String; Options: TJSObject = nil): TTypeMemberProperty; external name 'addProperty';\r\n  end;\r\n\r\n  { TTypeInfoRecord - Kind = tkRecord }\r\n\r\n  TTypeInfoRecord = class external name 'rtl.tTypeInfoRecord'(TTypeInfoStruct)\r\n  public\r\n    RecordType: TJSObject external name '$record';  // only records with class vars, else jsundefined\r\n  end;\r\n\r\n  { TTypeInfoClass - Kind = tkClass }\r\n\r\n  TTypeInfoClass = class external name 'rtl.tTypeInfoClass'(TTypeInfoStruct)\r\n  public\r\n    ClassType: TClass external name 'class';\r\n    Ancestor: TTypeInfoClass external name 'ancestor';\r\n  end;\r\n\r\n  { TTypeInfoExtClass - Kind = tkExtClass }\r\n\r\n  TTypeInfoExtClass = class external name 'rtl.tTypeInfoExtClass'(TTypeInfo)\r\n  public\r\n    Ancestor: TTypeInfoExtClass external name 'ancestor';\r\n    JSClassName: String external name 'jsclass';\r\n  end;\r\n\r\n  { TTypeInfoClassRef - class-of, Kind = tkClassRef }\r\n\r\n  TTypeInfoClassRef = class external name 'rtl.tTypeInfoClassRef'(TTypeInfo)\r\n  public\r\n    InstanceType: TTypeInfo external name 'instancetype';\r\n  end;\r\n\r\n  { TTypeInfoPointer - Kind = tkPointer }\r\n\r\n  TTypeInfoPointer = class external name 'rtl.tTypeInfoPointer'(TTypeInfo)\r\n  public\r\n    RefType: TTypeInfo external name 'reftype'; // can be null\r\n  end;\r\n\r\n  TInterfaceInfo = class external name 'Object'(TJSObject)\r\n    FullName: String external name '$FullName';\r\n    GUID: String external name '$guid';\r\n    GUIDR: String external name '$guidr';\r\n    Kind: String external name '$kind';\r\n    Module: TTypeInfoModule external name '$module'; // can be nil\r\n    Name: String external name '$name';\r\n    Names: TStringArray external name '$names';\r\n    RTTI: TSectionRTTI external name '$rtti';\r\n  end;\r\n\r\n  { TTypeInfoInterface - Kind = tkInterface }\r\n\r\n  TTypeInfoInterface = class external name 'rtl.tTypeInfoInterface'(TTypeInfoStruct)\r\n  public\r\n    InterfaceInfo: TInterfaceInfo external name 'interface';\r\n    Ancestor: TTypeInfoInterface external name 'ancestor';\r\n  end;\r\n\r\n  { TTypeInfoHelper - Kind = tkHelper }\r\n\r\n  TTypeInfoHelper = class external name 'rtl.tTypeInfoHelper'(TTypeInfoStruct)\r\n  public\r\n    HelperType: TJSObject external name 'helper';\r\n    Ancestor: TTypeInfoHelper external name 'ancestor';\r\n    HelperFor: TTypeInfo external name 'helperfor';\r\n  end;\r\n\r\n  TReferenceVariable = class external name 'Object'\r\n  public\r\n    function get: JSValue;\r\n    procedure &set(const value: JSValue);\r\n  end;\r\n\r\n  TInterfaceObject = class external name 'Object' (TJSObject)\r\n  public\r\n    InterfaceMaps: TJSObject external name '$intfmaps';\r\n    Interfaces: TJSObject external name '$interfaces';\r\n    Obj: TInterfacedObject external name '$o';\r\n  end;\r\n\r\n  EPropertyError  = class(Exception);\r\n\r\nfunction GetTypeName(TypeInfo: TTypeInfo): string;\r\n\r\nfunction GetClassMembers(aTIStruct: TTypeInfoStruct): TTypeMemberDynArray;\r\nfunction GetClassMember(aTIStruct: TTypeInfoStruct; const aName: String): TTypeMember;\r\nfunction GetInstanceMethod(Instance: TObject; const aName: String): Pointer;\r\nfunction GetClassMethods(aTIStruct: TTypeInfoStruct): TTypeMemberMethodDynArray;\r\nfunction CreateMethod(Instance: TObject; FuncName: String): Pointer; external name 'rtl.createCallback';\r\n\r\nfunction GetInterfaceMembers(aTIInterface: TTypeInfoInterface): TTypeMemberDynArray;\r\nfunction GetInterfaceMember(aTIInterface: TTypeInfoInterface; const aName: String): TTypeMember;\r\nfunction GetInterfaceMethods(aTIInterface: TTypeInfoInterface): TTypeMemberMethodDynArray;\r\n\r\nfunction GetRTTIAttributes(const Attributes: TTypeInfoAttributes): TCustomAttributeArray;\r\n\r\nfunction GetPropInfos(aTIStruct: TTypeInfoStruct): TTypeMemberPropertyDynArray;\r\nfunction GetPropList(aTIStruct: TTypeInfoStruct; TypeKinds: TTypeKinds; Sorted: boolean = true): TTypeMemberPropertyDynArray;\r\nfunction GetPropList(aTIStruct: TTypeInfoStruct): TTypeMemberPropertyDynArray;\r\nfunction GetPropList(AClass: TClass): TTypeMemberPropertyDynArray;\r\nfunction GetPropList(Instance: TObject): TTypeMemberPropertyDynArray;\r\n\r\nfunction GetPropInfo(TI: TTypeInfoStruct; const PropName: String): TTypeMemberProperty;\r\nfunction GetPropInfo(TI: TTypeInfoStruct; const PropName: String; const Kinds: TTypeKinds): TTypeMemberProperty;\r\nfunction GetPropInfo(Instance: TObject; const PropName: String): TTypeMemberProperty;\r\nfunction GetPropInfo(Instance: TObject; const PropName: String; const Kinds: TTypeKinds): TTypeMemberProperty;\r\nfunction GetPropInfo(aClass: TClass; const PropName: String): TTypeMemberProperty;\r\nfunction GetPropInfo(aClass: TClass; const PropName: String; const Kinds: TTypeKinds): TTypeMemberProperty;\r\n\r\nfunction FindPropInfo(Instance: TObject; const PropName: String): TTypeMemberProperty;\r\nfunction FindPropInfo(Instance: TObject; const PropName: String; const Kinds: TTypeKinds): TTypeMemberProperty;\r\nfunction FindPropInfo(aClass: TClass; const PropName: String): TTypeMemberProperty;\r\nfunction FindPropInfo(aClass: TClass; const PropName: String; const Kinds: TTypeKinds): TTypeMemberProperty;\r\n\r\n// Property information routines.\r\nFunction IsStoredProp(Instance: TObject; const PropInfo: TTypeMemberProperty): Boolean;\r\nFunction IsStoredProp(Instance: TObject; const PropName: string): Boolean;\r\nfunction IsPublishedProp(Instance: TObject; const PropName: String): Boolean;\r\nfunction IsPublishedProp(aClass: TClass; const PropName: String): Boolean;\r\nfunction PropType(Instance: TObject; const PropName: string): TTypeKind;\r\nfunction PropType(aClass: TClass; const PropName: string): TTypeKind;\r\nfunction PropIsType(Instance: TObject; const PropName: string; const TypeKind: TTypeKind): Boolean;\r\nfunction PropIsType(aClass: TClass; const PropName: string; const TypeKind: TTypeKind): Boolean;\r\n\r\nfunction GetJSValueProp(Instance: TJSObject; TI: TTypeInfoStruct; const PropName: String): JSValue;\r\nfunction GetJSValueProp(Instance: TJSObject; const PropInfo: TTypeMemberProperty): JSValue;\r\nfunction GetJSValueProp(Instance: TObject; const PropName: String): JSValue;\r\nfunction GetJSValueProp(Instance: TObject; const PropInfo: TTypeMemberProperty): JSValue;\r\nprocedure SetJSValueProp(Instance: TJSObject; TI: TTypeInfoStruct; const PropName: String; Value: JSValue);\r\nprocedure SetJSValueProp(Instance: TJSObject; const PropInfo: TTypeMemberProperty; Value: JSValue);\r\nprocedure SetJSValueProp(Instance: TObject; const PropName: String; Value: JSValue);\r\nprocedure SetJSValueProp(Instance: TObject; const PropInfo: TTypeMemberProperty; Value: JSValue);\r\n\r\nfunction GetNativeIntProp(Instance: TObject; const PropName: String): NativeInt;\r\nfunction GetNativeIntProp(Instance: TObject; const PropInfo: TTypeMemberProperty): NativeInt;\r\nprocedure SetNativeIntProp(Instance: TObject; const PropName: String; Value: NativeInt);\r\nprocedure SetNativeIntProp(Instance: TObject; const PropInfo: TTypeMemberProperty; Value: NativeInt);\r\n\r\nfunction GetOrdProp(Instance: TObject; const PropName: String): longint;\r\nfunction GetOrdProp(Instance: TObject; const PropInfo: TTypeMemberProperty): longint;\r\nprocedure SetOrdProp(Instance: TObject; const PropName: String; Value: longint);\r\nprocedure SetOrdProp(Instance: TObject; const PropInfo: TTypeMemberProperty; Value: longint);\r\n\r\nfunction GetEnumProp(Instance: TObject; const PropName: String): String;\r\nfunction GetEnumProp(Instance: TObject; const PropInfo: TTypeMemberProperty): String;\r\nprocedure SetEnumProp(Instance: TObject; const PropName: String; const Value: String);\r\nprocedure SetEnumProp(Instance: TObject; const PropInfo: TTypeMemberProperty; const Value: String);\r\n// Auxiliary routines, which may be useful\r\nfunction GetEnumName(TypeInfo: TTypeInfoEnum; Value: Integer): String;\r\nfunction GetEnumValue(TypeInfo: TTypeInfoEnum; const Name: string): Longint;\r\nfunction GetEnumNameCount(TypeInfo: TTypeInfoEnum): Longint;\r\n\r\nfunction GetSetProp(Instance: TObject; const PropName: String): String; overload;\r\nfunction GetSetProp(Instance: TObject; const PropInfo: TTypeMemberProperty): String; overload;\r\nfunction GetSetPropArray(Instance: TObject; const PropName: String): TIntegerDynArray; overload;\r\nfunction GetSetPropArray(Instance: TObject; const PropInfo: TTypeMemberProperty): TIntegerDynArray; overload;\r\nprocedure SetSetPropArray(Instance: TObject; const PropName: String; const Arr: TIntegerDynArray); overload;\r\nprocedure SetSetPropArray(Instance: TObject; const PropInfo: TTypeMemberProperty; const Arr: TIntegerDynArray); overload;\r\n\r\nfunction GetBoolProp(Instance: TObject; const PropName: String): boolean;\r\nfunction GetBoolProp(Instance: TObject; const PropInfo: TTypeMemberProperty): boolean;\r\nprocedure SetBoolProp(Instance: TObject; const PropName: String; Value: boolean);\r\nprocedure SetBoolProp(Instance: TObject; const PropInfo: TTypeMemberProperty; Value: boolean);\r\n\r\nfunction GetStrProp(Instance: TObject; const PropName: String): String;\r\nfunction GetStrProp(Instance: TObject; const PropInfo: TTypeMemberProperty): String;\r\nprocedure SetStrProp(Instance: TObject; const PropName: String; Value: String);\r\nprocedure SetStrProp(Instance: TObject; const PropInfo: TTypeMemberProperty; Value: String);\r\n\r\nfunction GetStringProp(Instance: TObject; const PropName: String): String; deprecated; // use GetStrProp\r\nfunction GetStringProp(Instance: TObject; const PropInfo: TTypeMemberProperty): String; deprecated; // use GetStrProp\r\nprocedure SetStringProp(Instance: TObject; const PropName: String; Value: String); deprecated; // use GetStrProp\r\nprocedure SetStringProp(Instance: TObject; const PropInfo: TTypeMemberProperty; Value: String); deprecated; // use GetStrProp\r\n\r\nfunction  GetFloatProp(Instance: TObject; const PropName: string): Double;\r\nfunction  GetFloatProp(Instance: TObject; PropInfo : TTypeMemberProperty) : Double;\r\nprocedure SetFloatProp(Instance: TObject; const PropName: string; Value: Double);\r\nprocedure SetFloatProp(Instance: TObject; PropInfo : TTypeMemberProperty;  Value : Double);\r\n\r\nfunction GetObjectProp(Instance: TObject; const PropName: String): TObject;\r\nfunction GetObjectProp(Instance: TObject; const PropName: String; MinClass: TClass): TObject;\r\nfunction GetObjectProp(Instance: TObject; const PropInfo: TTypeMemberProperty):  TObject;\r\nfunction GetObjectProp(Instance: TObject; const PropInfo: TTypeMemberProperty; MinClass: TClass):  TObject;\r\nprocedure SetObjectProp(Instance: TObject; const PropName: String; Value: TObject) ;\r\nprocedure SetObjectProp(Instance: TObject; const PropInfo: TTypeMemberProperty; Value: TObject);\r\n\r\nfunction GetMethodProp(Instance: TObject; PropInfo: TTypeMemberProperty): TMethod;\r\nfunction GetMethodProp(Instance: TObject; const PropName: string): TMethod;\r\nprocedure SetMethodProp(Instance: TObject; PropInfo: TTypeMemberProperty;  const Value : TMethod);\r\nprocedure SetMethodProp(Instance: TObject; const PropName: string; const Value: TMethod);\r\n\r\nfunction GetInterfaceProp(Instance: TObject; const PropName: string): IInterface;\r\nfunction GetInterfaceProp(Instance: TObject; PropInfo: TTypeMemberProperty): IInterface;\r\nprocedure SetInterfaceProp(Instance: TObject; const PropName: string; const Value: IInterface);\r\nprocedure SetInterfaceProp(Instance: TObject; PropInfo: TTypeMemberProperty; const Value: IInterface);\r\n\r\nfunction GetRawInterfaceProp(Instance: TObject; const PropName: string): Pointer;\r\nfunction GetRawInterfaceProp(Instance: TObject; PropInfo: TTypeMemberProperty): Pointer;\r\nprocedure SetRawInterfaceProp(Instance: TObject; const PropName: string; const Value: Pointer);\r\nprocedure SetRawInterfaceProp(Instance: TObject; PropInfo: TTypeMemberProperty; const Value: Pointer);\r\n\r\nimplementation\r\n\r\nfunction GetTypeName(TypeInfo: TTypeInfo): string;\r\nbegin\r\n  Result := TypeInfo.Name;\r\nend;\r\n\r\nfunction GetClassMembers(aTIStruct: TTypeInfoStruct): TTypeMemberDynArray;\r\nvar\r\n  C: TTypeInfoStruct;\r\n  i: Integer;\r\n  PropName: String;\r\n  Names: TJSObject;\r\nbegin\r\n  Result:=nil;\r\n  Names:=TJSObject.new;\r\n  C:=aTIStruct;\r\n  while C<>nil do\r\n  begin\r\n    for i:=0 to length(C.Names)-1 do\r\n    begin\r\n      PropName:=C.Names[i];\r\n      if Names.hasOwnProperty(PropName) then continue;\r\n      TJSArray(Result).push(C.Members[PropName]);\r\n      Names[PropName]:=true;\r\n    end;\r\n    if not (C is TTypeInfoClass) then break;\r\n    C:=TTypeInfoClass(C).Ancestor;\r\n  end;\r\nend;\r\n\r\nfunction GetClassMember(aTIStruct: TTypeInfoStruct; const aName: String): TTypeMember;\r\nvar\r\n  C: TTypeInfoStruct;\r\n  i: Integer;\r\nbegin\r\n  // quick search: case sensitive\r\n  C:=aTIStruct;\r\n  while C<>nil do\r\n  begin\r\n    if TJSObject(C.Members).hasOwnProperty(aName) then\r\n      exit(C.Members[aName]);\r\n    if not (C is TTypeInfoClass) then break;\r\n    C:=TTypeInfoClass(C).Ancestor;\r\n  end;\r\n  // slow search: case insensitive\r\n  C:=aTIStruct;\r\n  while C<>nil do\r\n  begin\r\n    for i:=0 to length(C.Names)-1 do\r\n      if CompareText(C.Names[i],aName)=0 then\r\n        exit(C.Members[C.Names[i]]);\r\n    if not (C is TTypeInfoClass) then break;\r\n    C:=TTypeInfoClass(C).Ancestor;\r\n  end;\r\n  Result:=nil;\r\nend;\r\n\r\nfunction GetInstanceMethod(Instance: TObject; const aName: String): Pointer;\r\nvar\r\n  TI: TTypeMember;\r\nbegin\r\n  if Instance=nil then exit(nil);\r\n  TI:=GetClassMember(TypeInfo(Instance),aName);\r\n  if not (TI is TTypeMemberMethod) then exit(nil);\r\n  Result:=CreateMethod(Instance,TI.Name); // Note: use TI.Name for the correct case!\r\nend;\r\n\r\nfunction GetClassMethods(aTIStruct: TTypeInfoStruct): TTypeMemberMethodDynArray;\r\nvar\r\n  C: TTypeInfoStruct;\r\n  i, Cnt, j: Integer;\r\nbegin\r\n  Cnt:=0;\r\n  C:=aTIStruct;\r\n  while C<>nil do\r\n  begin\r\n    inc(Cnt,C.MethodCount);\r\n    if not (C is TTypeInfoClass) then break;\r\n    C:=TTypeInfoClass(C).Ancestor;\r\n  end;\r\n  SetLength(Result,Cnt);\r\n  C:=aTIStruct;\r\n  i:=0;\r\n  while C<>nil do\r\n  begin\r\n    for j:=0 to C.MethodCount-1 do\r\n    begin\r\n      Result[i]:=TTypeMemberMethod(C.Members[C.Methods[j]]);\r\n      inc(i);\r\n    end;\r\n    if not (C is TTypeInfoClass) then break;\r\n    C:=TTypeInfoClass(C).Ancestor;\r\n  end;\r\nend;\r\n\r\nfunction GetInterfaceMembers(aTIInterface: TTypeInfoInterface\r\n  ): TTypeMemberDynArray;\r\nvar\r\n  Intf: TTypeInfoInterface;\r\n  i, Cnt, j: Integer;\r\nbegin\r\n  Cnt:=0;\r\n  Intf:=aTIInterface;\r\n  while Intf<>nil do\r\n  begin\r\n    inc(Cnt,length(Intf.Names));\r\n    Intf:=Intf.Ancestor;\r\n  end;\r\n  SetLength(Result,Cnt);\r\n  Intf:=aTIInterface;\r\n  i:=0;\r\n  while Intf<>nil do\r\n  begin\r\n    for j:=0 to length(Intf.Names)-1 do\r\n    begin\r\n      Result[i]:=Intf.Members[Intf.Names[j]];\r\n      inc(i);\r\n    end;\r\n    Intf:=Intf.Ancestor;\r\n  end;\r\nend;\r\n\r\nfunction GetInterfaceMember(aTIInterface: TTypeInfoInterface;\r\n  const aName: String): TTypeMember;\r\nvar\r\n  Intf: TTypeInfoInterface;\r\n  i: Integer;\r\nbegin\r\n  // quick search: case sensitive\r\n  Intf:=aTIInterface;\r\n  while Intf<>nil do\r\n  begin\r\n    if TJSObject(Intf.Members).hasOwnProperty(aName) then\r\n      exit(Intf.Members[aName]);\r\n    Intf:=Intf.Ancestor;\r\n  end;\r\n  // slow search: case insensitive\r\n  Intf:=aTIInterface;\r\n  while Intf<>nil do\r\n  begin\r\n    for i:=0 to length(Intf.Names)-1 do\r\n      if CompareText(Intf.Names[i],aName)=0 then\r\n        exit(Intf.Members[Intf.Names[i]]);\r\n    Intf:=Intf.Ancestor;\r\n  end;\r\n  Result:=nil;\r\nend;\r\n\r\nfunction GetInterfaceMethods(aTIInterface: TTypeInfoInterface\r\n  ): TTypeMemberMethodDynArray;\r\nvar\r\n  Intf: TTypeInfoInterface;\r\n  i, Cnt, j: Integer;\r\nbegin\r\n  Cnt:=0;\r\n  Intf:=aTIInterface;\r\n  while Intf<>nil do\r\n  begin\r\n    inc(Cnt,Intf.MethodCount);\r\n    Intf:=Intf.Ancestor;\r\n  end;\r\n  SetLength(Result,Cnt);\r\n  Intf:=aTIInterface;\r\n  i:=0;\r\n  while Intf<>nil do\r\n  begin\r\n    for j:=0 to Intf.MethodCount-1 do\r\n    begin\r\n      Result[i]:=TTypeMemberMethod(Intf.Members[Intf.Methods[j]]);\r\n      inc(i);\r\n    end;\r\n    Intf:=Intf.Ancestor;\r\n  end;\r\nend;\r\n\r\ntype\r\n  TCreatorAttribute = class external name 'attr'\r\n    class function Create(const ProcName: string): TCustomAttribute; overload; external name '$create';\r\n    class function Create(const ProcName: string; Params: jsvalue): TCustomAttribute; overload; external name '$create';\r\n  end;\r\n  TCreatorAttributeClass = class of TCreatorAttribute;\r\n\r\nfunction GetRTTIAttributes(const Attributes: TTypeInfoAttributes\r\n  ): TCustomAttributeArray;\r\nvar\r\n  i, len: Integer;\r\n  AttrClass: TCreatorAttributeClass;\r\n  ProcName: String;\r\n  Attr: TCustomAttribute;\r\nbegin\r\n  Result:=nil;\r\n  if Attributes=Undefined then exit;\r\n  i:=0;\r\n  len:=length(Attributes);\r\n  while i<len do\r\n    begin\r\n    AttrClass:=TCreatorAttributeClass(Attributes[i]);\r\n    inc(i);\r\n    ProcName:=String(Attributes[i]);\r\n    inc(i);\r\n    if (i<len) and isArray(Attributes[i]) then\r\n      begin\r\n      Attr:=AttrClass.Create(ProcName,Attributes[i]);\r\n      inc(i);\r\n      end\r\n    else\r\n      Attr:=AttrClass.Create(ProcName);\r\n    Insert(Attr,Result,length(Result));\r\n    end;\r\nend;\r\n\r\nfunction GetPropInfos(aTIStruct: TTypeInfoStruct): TTypeMemberPropertyDynArray;\r\nvar\r\n  C: TTypeInfoStruct;\r\n  i: Integer;\r\n  Names: TJSObject;\r\n  PropName: String;\r\nbegin\r\n  Result:=nil;\r\n  C:=aTIStruct;\r\n  Names:=TJSObject.new;\r\n  while C<>nil do\r\n  begin\r\n    for i:=0 to C.PropCount-1 do\r\n    begin\r\n      PropName:=C.Properties[i];\r\n      if Names.hasOwnProperty(PropName) then continue;\r\n      TJSArray(Result).push(TTypeMemberProperty(C.Members[PropName]));\r\n      Names[PropName]:=true;\r\n    end;\r\n    if not (C is TTypeInfoClass) then\r\n      break;\r\n    C:=TTypeInfoClass(C).Ancestor;\r\n  end;\r\nend;\r\n\r\nfunction GetPropList(aTIStruct: TTypeInfoStruct; TypeKinds: TTypeKinds;\r\n  Sorted: boolean): TTypeMemberPropertyDynArray;\r\n\r\n  function NameSort(a,b: JSValue): NativeInt;\r\n  begin\r\n    if TTypeMemberProperty(a).Name<TTypeMemberProperty(b).Name then\r\n      Result:=-1\r\n    else if TTypeMemberProperty(a).Name>TTypeMemberProperty(b).Name then\r\n      Result:=1\r\n    else\r\n      Result:=0;\r\n  end;\r\n\r\nvar\r\n  C: TTypeInfoStruct;\r\n  i: Integer;\r\n  Names: TJSObject;\r\n  PropName: String;\r\n  Prop: TTypeMemberProperty;\r\nbegin\r\n  Result:=nil;\r\n  C:=aTIStruct;\r\n  Names:=TJSObject.new;\r\n  while C<>nil do\r\n  begin\r\n    for i:=0 to C.PropCount-1 do\r\n    begin\r\n      PropName:=C.Properties[i];\r\n      if Names.hasOwnProperty(PropName) then continue;\r\n      Prop:=TTypeMemberProperty(C.Members[PropName]);\r\n      if not (Prop.TypeInfo.Kind in TypeKinds) then continue;\r\n      TJSArray(Result).push(Prop);\r\n      Names[PropName]:=true;\r\n    end;\r\n    if not (C is TTypeInfoClass) then\r\n      break;\r\n    C:=TTypeInfoClass(C).Ancestor;\r\n  end;\r\n  if Sorted then\r\n    TJSArray(Result).sort(@NameSort);\r\nend;\r\n\r\nfunction GetPropList(aTIStruct: TTypeInfoStruct): TTypeMemberPropertyDynArray;\r\nbegin\r\n  Result:=GetPropInfos(aTIStruct);\r\nend;\r\n\r\nfunction GetPropList(AClass: TClass): TTypeMemberPropertyDynArray;\r\nbegin\r\n  Result:=GetPropInfos(TypeInfo(AClass));\r\nend;\r\n\r\nfunction GetPropList(Instance: TObject): TTypeMemberPropertyDynArray;\r\nbegin\r\n  Result:=GetPropList(Instance.ClassType);\r\nend;\r\n\r\nfunction GetPropInfo(TI: TTypeInfoStruct; const PropName: String\r\n  ): TTypeMemberProperty;\r\nvar\r\n  m: TTypeMember;\r\n  i: Integer;\r\n  C: TTypeInfoStruct;\r\nbegin\r\n  // quick search case sensitive\r\n  C:=TI;\r\n  while C<>nil do\r\n  begin\r\n    m:=C.Members[PropName];\r\n    if m is TTypeMemberProperty then\r\n      exit(TTypeMemberProperty(m));\r\n    if not (C is TTypeInfoClass) then\r\n      break;\r\n    C:=TTypeInfoClass(C).Ancestor;\r\n  end;\r\n\r\n  // slow search case insensitive\r\n  Result:=nil;\r\n  repeat\r\n    for i:=0 to TI.PropCount-1 do\r\n      if CompareText(PropName,TI.Properties[i])=0 then\r\n      begin\r\n        m:=TI.Members[TI.Properties[i]];\r\n        if m is TTypeMemberProperty then\r\n          Result:=TTypeMemberProperty(m);\r\n        exit;\r\n      end;\r\n    if not (TI is TTypeInfoClass) then\r\n      break;\r\n    TI:=TTypeInfoClass(TI).Ancestor;\r\n  until TI=nil;\r\nend;\r\n\r\nfunction GetPropInfo(TI: TTypeInfoStruct; const PropName: String;\r\n  const Kinds: TTypeKinds): TTypeMemberProperty;\r\nbegin\r\n  Result:=GetPropInfo(TI,PropName);\r\n  if (Kinds<>[]) and (Result<>nil) and not (Result.TypeInfo.Kind in Kinds) then\r\n    Result:=nil;\r\nend;\r\n\r\nfunction GetPropInfo(Instance: TObject; const PropName: String\r\n  ): TTypeMemberProperty;\r\nbegin\r\n  Result:=GetPropInfo(TypeInfo(Instance),PropName,[]);\r\nend;\r\n\r\nfunction GetPropInfo(Instance: TObject; const PropName: String;\r\n  const Kinds: TTypeKinds): TTypeMemberProperty;\r\nbegin\r\n  Result:=GetPropInfo(TypeInfo(Instance),PropName,Kinds);\r\nend;\r\n\r\nfunction GetPropInfo(aClass: TClass; const PropName: String\r\n  ): TTypeMemberProperty;\r\nbegin\r\n  Result:=GetPropInfo(TypeInfo(AClass),PropName,[]);\r\nend;\r\n\r\nfunction GetPropInfo(aClass: TClass; const PropName: String;\r\n  const Kinds: TTypeKinds): TTypeMemberProperty;\r\nbegin\r\n  Result:=GetPropInfo(TypeInfo(AClass),PropName,Kinds);\r\nend;\r\n\r\nfunction FindPropInfo(Instance: TObject; const PropName: String\r\n  ): TTypeMemberProperty;\r\nbegin\r\n  Result:=GetPropInfo(TypeInfo(Instance), PropName);\r\n  if Result=nil then\r\n    raise EPropertyError.CreateFmt(SErrPropertyNotFound, [PropName]);\r\nend;\r\n\r\nfunction FindPropInfo(Instance: TObject; const PropName: String;\r\n  const Kinds: TTypeKinds): TTypeMemberProperty;\r\nbegin\r\n  Result:=GetPropInfo(TypeInfo(Instance), PropName, Kinds);\r\n  if Result=nil then\r\n    raise EPropertyError.CreateFmt(SErrPropertyNotFound, [PropName]);\r\nend;\r\n\r\nfunction FindPropInfo(aClass: TClass; const PropName: String\r\n  ): TTypeMemberProperty;\r\nbegin\r\n  Result:=GetPropInfo(TypeInfo(aClass), PropName);\r\n  if Result=nil then\r\n    raise EPropertyError.CreateFmt(SErrPropertyNotFound, [PropName]);\r\nend;\r\n\r\nfunction FindPropInfo(aClass: TClass; const PropName: String;\r\n  const Kinds: TTypeKinds): TTypeMemberProperty;\r\nbegin\r\n  Result:=GetPropInfo(TypeInfo(aClass), PropName, Kinds);\r\n  if Result=nil then\r\n    raise EPropertyError.CreateFmt(SErrPropertyNotFound, [PropName]);\r\nend;\r\n\r\nfunction IsStoredProp(Instance: TObject; const PropInfo: TTypeMemberProperty\r\n  ): Boolean;\r\ntype\r\n  TIsStored = function: Boolean of object;\r\nbegin\r\n  case PropInfo.Flags and 12 of\r\n  0: Result:=true;\r\n  4: Result:=false;\r\n  8: Result:=Boolean(TJSObject(Instance)[PropInfo.Stored]);\r\n  else Result:=TIsStored(TJSObject(Instance)[PropInfo.Stored])();\r\n  end;\r\nend;\r\n\r\nfunction IsStoredProp(Instance: TObject; const PropName: string): Boolean;\r\nbegin\r\n  Result:=IsStoredProp(Instance,FindPropInfo(Instance,PropName));\r\nend;\r\n\r\nfunction IsPublishedProp(Instance: TObject; const PropName: String): Boolean;\r\nbegin\r\n  Result:=GetPropInfo(Instance,PropName)<>nil;\r\nend;\r\n\r\nfunction IsPublishedProp(aClass: TClass; const PropName: String): Boolean;\r\nbegin\r\n  Result:=GetPropInfo(aClass,PropName)<>nil;\r\nend;\r\n\r\nfunction PropType(Instance: TObject; const PropName: string): TTypeKind;\r\nbegin\r\n  Result:=FindPropInfo(Instance,PropName).TypeInfo.Kind;\r\nend;\r\n\r\nfunction PropType(aClass: TClass; const PropName: string): TTypeKind;\r\nbegin\r\n  Result:=FindPropInfo(aClass,PropName).TypeInfo.Kind;\r\nend;\r\n\r\nfunction PropIsType(Instance: TObject; const PropName: string;\r\n  const TypeKind: TTypeKind): Boolean;\r\nbegin\r\n  Result:=PropType(Instance,PropName)=TypeKind;\r\nend;\r\n\r\nfunction PropIsType(aClass: TClass; const PropName: string;\r\n  const TypeKind: TTypeKind): Boolean;\r\nbegin\r\n  Result:=PropType(aClass,PropName)=TypeKind;\r\nend;\r\n\r\ntype\r\n  TGetterKind = (\r\n    gkNone,\r\n    gkField,\r\n    gkFunction,\r\n    gkFunctionWithParams\r\n  );\r\n\r\nfunction GetPropGetterKind(const PropInfo: TTypeMemberProperty): TGetterKind;\r\nbegin\r\n  if PropInfo.Getter='' then\r\n    Result:=gkNone\r\n  else if (pfGetFunction and PropInfo.Flags)>0 then\r\n    begin\r\n    if length(PropInfo.Params)>0 then\r\n      // array property\r\n      Result:=gkFunctionWithParams\r\n    else\r\n      Result:=gkFunction;\r\n    end\r\n  else\r\n    Result:=gkField;\r\nend;\r\n\r\ntype\r\n  TSetterKind = (\r\n    skNone,\r\n    skField,\r\n    skProcedure,\r\n    skProcedureWithParams\r\n  );\r\n\r\nfunction GetPropSetterKind(const PropInfo: TTypeMemberProperty): TSetterKind;\r\nbegin\r\n  if PropInfo.Setter='' then\r\n    Result:=skNone\r\n  else if (pfSetProcedure and PropInfo.Flags)>0 then\r\n    begin\r\n    if length(PropInfo.Params)>0 then\r\n      // array property\r\n      Result:=skProcedureWithParams\r\n    else\r\n      Result:=skProcedure;\r\n    end\r\n  else\r\n    Result:=skField;\r\nend;\r\n\r\nfunction GetJSValueProp(Instance: TJSObject; TI: TTypeInfoStruct;\r\n  const PropName: String): JSValue;\r\nvar\r\n  PropInfo: TTypeMemberProperty;\r\nbegin\r\n  PropInfo:=GetPropInfo(TI,PropName);\r\n  if PropInfo=nil then\r\n    raise EPropertyError.CreateFmt(SErrPropertyNotFound, [PropName]);\r\n  Result:=GetJSValueProp(Instance,PropInfo);\r\nend;\r\n\r\nfunction GetJSValueProp(Instance: TJSObject;\r\n  const PropInfo: TTypeMemberProperty): JSValue;\r\ntype\r\n  TGetter = function: JSValue of object;\r\n  TGetterWithIndex = function(Index: JSValue): JSValue of object;\r\nvar\r\n  gk: TGetterKind;\r\nbegin\r\n  gk:=GetPropGetterKind(PropInfo);\r\n  case gk of\r\n    gkNone:\r\n      raise EPropertyError.CreateFmt(SCantReadPropertyS, [PropInfo.Name]);\r\n    gkField:\r\n      Result:=Instance[PropInfo.Getter];\r\n    gkFunction:\r\n      if (pfHasIndex and PropInfo.Flags)>0 then\r\n        Result:=TGetterWithIndex(Instance[PropInfo.Getter])(PropInfo.Index)\r\n      else\r\n        Result:=TGetter(Instance[PropInfo.Getter])();\r\n    gkFunctionWithParams:\r\n      raise EPropertyError.CreateFmt(SIndexedPropertyNeedsParams, [PropInfo.Name]);\r\n  end;\r\nend;\r\n\r\nfunction GetJSValueProp(Instance: TObject; const PropName: String): JSValue;\r\nbegin\r\n  Result:=GetJSValueProp(Instance,FindPropInfo(Instance,PropName));\r\nend;\r\n\r\nfunction GetJSValueProp(Instance: TObject; const PropInfo: TTypeMemberProperty\r\n  ): JSValue;\r\nbegin\r\n  Result:=GetJSValueProp(TJSObject(Instance),PropInfo);\r\nend;\r\n\r\nprocedure SetJSValueProp(Instance: TJSObject; TI: TTypeInfoStruct;\r\n  const PropName: String; Value: JSValue);\r\nvar\r\n  PropInfo: TTypeMemberProperty;\r\nbegin\r\n  PropInfo:=GetPropInfo(TI,PropName);\r\n  if PropInfo=nil then\r\n    raise EPropertyError.CreateFmt(SErrPropertyNotFound, [PropName]);\r\n  SetJSValueProp(Instance,PropInfo,Value);\r\nend;\r\n\r\nprocedure SetJSValueProp(Instance: TJSObject;\r\n  const PropInfo: TTypeMemberProperty; Value: JSValue);\r\ntype\r\n  TSetter = procedure(Value: JSValue) of object;\r\n  TSetterWithIndex = procedure(Index, Value: JSValue) of object;\r\nvar\r\n  sk: TSetterKind;\r\nbegin\r\n  sk:=GetPropSetterKind(PropInfo);\r\n  case sk of\r\n    skNone:\r\n      raise EPropertyError.CreateFmt(SCantWritePropertyS, [PropInfo.Name]);\r\n    skField:\r\n      Instance[PropInfo.Setter]:=Value;\r\n    skProcedure:\r\n      if (pfHasIndex and PropInfo.Flags)>0 then\r\n        TSetterWithIndex(Instance[PropInfo.Setter])(PropInfo.Index,Value)\r\n      else\r\n        TSetter(Instance[PropInfo.Setter])(Value);\r\n    skProcedureWithParams:\r\n      raise EPropertyError.CreateFmt(SIndexedPropertyNeedsParams, [PropInfo.Name]);\r\n  end;\r\nend;\r\n\r\nprocedure SetJSValueProp(Instance: TObject; const PropName: String;\r\n  Value: JSValue);\r\nbegin\r\n  SetJSValueProp(Instance,FindPropInfo(Instance,PropName),Value);\r\nend;\r\n\r\nprocedure SetJSValueProp(Instance: TObject;\r\n  const PropInfo: TTypeMemberProperty; Value: JSValue);\r\nbegin\r\n  SetJSValueProp(TJSObject(Instance),PropInfo,Value);\r\nend;\r\n\r\nfunction GetNativeIntProp(Instance: TObject; const PropName: String): NativeInt;\r\nbegin\r\n  Result:=GetNativeIntProp(Instance,FindPropInfo(Instance,PropName));\r\nend;\r\n\r\nfunction GetNativeIntProp(Instance: TObject; const PropInfo: TTypeMemberProperty\r\n  ): NativeInt;\r\nbegin\r\n  Result:=NativeInt(GetJSValueProp(Instance,PropInfo));\r\nend;\r\n\r\nprocedure SetNativeIntProp(Instance: TObject; const PropName: String;\r\n  Value: NativeInt);\r\nbegin\r\n  SetJSValueProp(Instance,FindPropInfo(Instance,PropName),Value);\r\nend;\r\n\r\nprocedure SetNativeIntProp(Instance: TObject;\r\n  const PropInfo: TTypeMemberProperty; Value: NativeInt);\r\nbegin\r\n  SetJSValueProp(Instance,PropInfo,Value);\r\nend;\r\n\r\nfunction GetOrdProp(Instance: TObject; const PropName: String): longint;\r\nbegin\r\n  Result:=GetOrdProp(Instance,FindPropInfo(Instance,PropName));\r\nend;\r\n\r\nfunction GetOrdProp(Instance: TObject; const PropInfo: TTypeMemberProperty\r\n  ): longint;\r\nvar\r\n  o: TJSObject;\r\n  Key: String;\r\n  n: NativeInt;\r\n  v : JSValue;\r\n  vs : TJSString absolute key;\r\n\r\nbegin\r\n  if PropInfo.TypeInfo.Kind=tkSet then\r\n  begin\r\n    // a set is a JS object, with the following property: o[ElementDecimal]=true\r\n    o:=TJSObject(GetJSValueProp(Instance,PropInfo));\r\n    Result:=0;\r\n    for Key in o do\r\n    begin\r\n      n:=parseInt(Key,10);\r\n      if n<32 then\r\n        Result:=Result+(1 shl n);\r\n    end;\r\n  end else if PropInfo.TypeInfo.Kind=tkChar then\r\n  begin\r\n    v:=GetJSValueProp(Instance,PropInfo);\r\n    if isNumber(v) then\r\n      Result:=Longint(V)\r\n    else\r\n      begin\r\n      Key:=String(v);\r\n      If Key='' then\r\n        Result:=0\r\n      else\r\n        Result:=vs.CharCodeAt(0);\r\n      end\r\n  end else\r\n    Result:=longint(GetJSValueProp(Instance,PropInfo));\r\nend;\r\n\r\nprocedure SetOrdProp(Instance: TObject; const PropName: String; Value: longint);\r\nbegin\r\n  SetOrdProp(Instance,FindPropInfo(Instance,PropName),Value);\r\nend;\r\n\r\nprocedure SetOrdProp(Instance: TObject; const PropInfo: TTypeMemberProperty;\r\n  Value: longint);\r\nvar\r\n  o: TJSObject;\r\n  i: Integer;\r\nbegin\r\n  if PropInfo.TypeInfo.Kind=tkSet then\r\n  begin\r\n    o:=TJSObject.new;\r\n    for i:=0 to 31 do\r\n      if (1 shl i) and Value>0 then\r\n        o[str(i)]:=true;\r\n    SetJSValueProp(Instance,PropInfo,o);\r\n  end else if PropInfo.TypeInfo.Kind=tkChar then\r\n    SetJSValueProp(Instance,PropInfo,TJSString.fromCharCode(Value))\r\n  else\r\n    SetJSValueProp(Instance,PropInfo,Value);\r\nend;\r\n\r\nfunction GetEnumProp(Instance: TObject; const PropName: String): String;\r\nbegin\r\n  Result:=GetEnumProp(Instance,FindPropInfo(Instance,PropName));\r\nend;\r\n\r\nfunction GetEnumProp(Instance: TObject; const PropInfo: TTypeMemberProperty): String;\r\nvar\r\n  n: NativeInt;\r\n  TIEnum: TTypeInfoEnum;\r\nbegin\r\n  TIEnum:=PropInfo.TypeInfo as TTypeInfoEnum;\r\n  n:=NativeInt(GetJSValueProp(Instance,PropInfo));\r\n  if (n>=TIEnum.MinValue) and (n<=TIEnum.MaxValue) then\r\n    Result:=TIEnum.EnumType.IntToName[n]\r\n  else\r\n    Result:=str(n);\r\nend;\r\n\r\nprocedure SetEnumProp(Instance: TObject; const PropName: String;\r\n  const Value: String);\r\nbegin\r\n  SetEnumProp(Instance,FindPropInfo(Instance,PropName),Value);\r\nend;\r\n\r\nprocedure SetEnumProp(Instance: TObject; const PropInfo: TTypeMemberProperty;\r\n  const Value: String);\r\nvar\r\n  TIEnum: TTypeInfoEnum;\r\n  n: NativeInt;\r\nbegin\r\n  TIEnum:=PropInfo.TypeInfo as TTypeInfoEnum;\r\n  n:=TIEnum.EnumType.NameToInt[Value];\r\n  if not isUndefined(n) then\r\n    SetJSValueProp(Instance,PropInfo,n);\r\nend;\r\n\r\nfunction GetEnumName(TypeInfo: TTypeInfoEnum; Value: Integer): String;\r\nbegin\r\n  Result:=TypeInfo.EnumType.IntToName[Value];\r\nend;\r\n\r\nfunction GetEnumValue(TypeInfo: TTypeInfoEnum; const Name: string): Longint;\r\nbegin\r\n  Result:=TypeInfo.EnumType.NameToInt[Name];\r\nend;\r\n\r\nfunction GetEnumNameCount(TypeInfo: TTypeInfoEnum): Longint;\r\nvar\r\n  o: TJSObject;\r\n  l, r: LongInt;\r\nbegin\r\n  o:=TJSObject(TypeInfo.EnumType);\r\n  // as of pas2js 1.0 the RTTI does not contain a min/max value\r\n  // -> use exponential search\r\n  // ToDo: adapt this once enums with gaps are supported\r\n  Result:=1;\r\n  while o.hasOwnProperty(String(JSValue(Result))) do\r\n    Result:=Result*2;\r\n  l:=Result div 2;\r\n  r:=Result;\r\n  while l<=r do\r\n    begin\r\n    Result:=(l+r) div 2;\r\n    if o.hasOwnProperty(String(JSValue(Result))) then\r\n      l:=Result+1\r\n    else\r\n      r:=Result-1;\r\n    end;\r\n  if o.hasOwnProperty(String(JSValue(Result))) then\r\n    inc(Result);\r\nend;\r\n\r\nfunction GetSetProp(Instance: TObject; const PropName: String): String;\r\nbegin\r\n  Result:=GetSetProp(Instance,FindPropInfo(Instance,PropName));\r\nend;\r\n\r\nfunction GetSetProp(Instance: TObject; const PropInfo: TTypeMemberProperty\r\n  ): String;\r\nvar\r\n  o: TJSObject;\r\n  key, Value: String;\r\n  n: NativeInt;\r\n  TIEnum: TTypeInfoEnum;\r\n  TISet: TTypeInfoSet;\r\nbegin\r\n  Result:='';\r\n  // get enum type if available\r\n  TISet:=PropInfo.TypeInfo as TTypeInfoSet;\r\n  TIEnum:=nil;\r\n  if TISet.CompType is TTypeInfoEnum then\r\n    TIEnum:=TTypeInfoEnum(TISet.CompType);\r\n  // read value\r\n  o:=TJSObject(GetJSValueProp(Instance,PropInfo));\r\n  // a set is a JS object, where included element is stored as: o[ElementDecimal]=true\r\n  for Key in o do\r\n  begin\r\n    n:=parseInt(Key,10);\r\n    if (TIEnum<>nil) and (n>=TIEnum.MinValue) and (n<=TIEnum.MaxValue) then\r\n      Value:=TIEnum.EnumType.IntToName[n]\r\n    else\r\n      Value:=str(n);\r\n    if Result<>'' then Result:=Result+',';\r\n    Result:=Result+Value;\r\n  end;\r\n  Result:='['+Result+']';\r\nend;\r\n\r\nfunction GetSetPropArray(Instance: TObject; const PropName: String\r\n  ): TIntegerDynArray;\r\nbegin\r\n  Result:=GetSetPropArray(Instance,FindPropInfo(Instance,PropName));\r\nend;\r\n\r\nfunction GetSetPropArray(Instance: TObject; const PropInfo: TTypeMemberProperty\r\n  ): TIntegerDynArray;\r\nvar\r\n  o: TJSObject;\r\n  Key: string;\r\nbegin\r\n  Result:=[];\r\n  // read value\r\n  o:=TJSObject(GetJSValueProp(Instance,PropInfo));\r\n  // a set is a JS object, where included element is stored as: o[ElementDecimal]=true\r\n  for Key in o do\r\n    TJSArray(Result).push(parseInt(Key,10));\r\nend;\r\n\r\nprocedure SetSetPropArray(Instance: TObject; const PropName: String;\r\n  const Arr: TIntegerDynArray);\r\nbegin\r\n  SetSetPropArray(Instance,FindPropInfo(Instance,PropName),Arr);\r\nend;\r\n\r\nprocedure SetSetPropArray(Instance: TObject;\r\n  const PropInfo: TTypeMemberProperty; const Arr: TIntegerDynArray);\r\nvar\r\n  o: TJSObject;\r\n  i: integer;\r\nbegin\r\n  o:=TJSObject.new;\r\n  for i in Arr do\r\n    o[str(i)]:=true;\r\n  SetJSValueProp(Instance,PropInfo,o);\r\nend;\r\n\r\nfunction GetStrProp(Instance: TObject; const PropName: String): String;\r\nbegin\r\n  Result:=GetStrProp(Instance,FindPropInfo(Instance,PropName));\r\nend;\r\n\r\nfunction GetStrProp(Instance: TObject; const PropInfo: TTypeMemberProperty\r\n  ): String;\r\nbegin\r\n  Result:=String(GetJSValueProp(Instance,PropInfo));\r\nend;\r\n\r\nprocedure SetStrProp(Instance: TObject; const PropName: String; Value: String\r\n  );\r\nbegin\r\n  SetStrProp(Instance,FindPropInfo(Instance,PropName),Value);\r\nend;\r\n\r\nprocedure SetStrProp(Instance: TObject; const PropInfo: TTypeMemberProperty;\r\n  Value: String);\r\nbegin\r\n  SetJSValueProp(Instance,PropInfo,Value);\r\nend;\r\n\r\nfunction GetStringProp(Instance: TObject; const PropName: String): String;\r\nbegin\r\n  Result:=GetStrProp(Instance,PropName);\r\nend;\r\n\r\nfunction GetStringProp(Instance: TObject; const PropInfo: TTypeMemberProperty\r\n  ): String;\r\nbegin\r\n  Result:=GetStrProp(Instance,PropInfo);\r\nend;\r\n\r\nprocedure SetStringProp(Instance: TObject; const PropName: String; Value: String\r\n  );\r\nbegin\r\n  SetStrProp(Instance,PropName,Value);\r\nend;\r\n\r\nprocedure SetStringProp(Instance: TObject; const PropInfo: TTypeMemberProperty;\r\n  Value: String);\r\nbegin\r\n  SetStrProp(Instance,PropInfo,Value);\r\nend;\r\n\r\nfunction GetBoolProp(Instance: TObject; const PropName: String): boolean;\r\nbegin\r\n  Result:=GetBoolProp(Instance,FindPropInfo(Instance,PropName));\r\nend;\r\n\r\nfunction GetBoolProp(Instance: TObject; const PropInfo: TTypeMemberProperty\r\n  ): boolean;\r\nbegin\r\n  Result:=Boolean(GetJSValueProp(Instance,PropInfo));\r\nend;\r\n\r\nprocedure SetBoolProp(Instance: TObject; const PropName: String; Value: boolean\r\n  );\r\nbegin\r\n  SetBoolProp(Instance,FindPropInfo(Instance,PropName),Value);\r\nend;\r\n\r\nprocedure SetBoolProp(Instance: TObject; const PropInfo: TTypeMemberProperty;\r\n  Value: boolean);\r\nbegin\r\n  SetJSValueProp(Instance,PropInfo,Value);\r\nend;\r\n\r\nfunction GetObjectProp(Instance: TObject; const PropName: String): TObject;\r\nbegin\r\n  Result:=GetObjectProp(Instance,FindPropInfo(Instance,PropName));\r\nend;\r\n\r\nfunction GetObjectProp(Instance: TObject; const PropName: String; MinClass : TClass): TObject;\r\nbegin\r\n  Result:=GetObjectProp(Instance,FindPropInfo(Instance,PropName));\r\n  if (MinClass<>Nil) and (Result<>Nil) Then\r\n    if not Result.InheritsFrom(MinClass) then\r\n      Result:=Nil;\r\nend;\r\n\r\nfunction GetObjectProp(Instance: TObject; const PropInfo: TTypeMemberProperty):  TObject;\r\n\r\nbegin\r\n  Result:=GetObjectProp(Instance,PropInfo,Nil);\r\nend;\r\n\r\nfunction GetObjectProp(Instance: TObject; const PropInfo: TTypeMemberProperty; MinClass : TClass):  TObject;\r\n\r\nVar\r\n  O : TObject;\r\n\r\nbegin\r\n  O:=TObject(GetJSValueProp(Instance,PropInfo));\r\n  if (MinClass<>Nil) and not O.InheritsFrom(MinClass) then\r\n    Result:=Nil\r\n  else\r\n    Result:=O;\r\nend;\r\n\r\nprocedure SetObjectProp(Instance: TObject; const PropName: String; Value: TObject) ;\r\n\r\nbegin\r\n  SetObjectProp(Instance,FindPropInfo(Instance,PropName),Value);\r\nend;\r\n\r\nprocedure SetObjectProp(Instance: TObject; const PropInfo: TTypeMemberProperty; Value: TObject);\r\n\r\nbegin\r\n  SetJSValueProp(Instance,PropInfo,Value);\r\nend;\r\n\r\nfunction GetMethodProp(Instance: TObject; PropInfo: TTypeMemberProperty\r\n  ): TMethod;\r\nvar\r\n  v, fn: JSValue;\r\nbegin\r\n  Result.Code:=nil;\r\n  Result.Data:=nil;\r\n  v:=GetJSValueProp(Instance,PropInfo);\r\n  if not isFunction(v) then exit;\r\n  Result.Data:=Pointer(TJSObject(v)['scope']);\r\n  fn:=TJSObject(v)['fn'];\r\n  if isString(fn) then\r\n    begin\r\n    if Result.Data<>nil then\r\n      // named callback\r\n      Result.Code:=CodePointer(TJSObject(Result.Data)[String(fn)])\r\n    else\r\n      // this is not an rtl callback, return the value\r\n      Result.Code:=CodePointer(v);\r\n    end\r\n  else\r\n    // anonymous callback\r\n    Result.Code:=CodePointer(fn);\r\nend;\r\n\r\nfunction GetMethodProp(Instance: TObject; const PropName: string): TMethod;\r\nbegin\r\n  Result:=GetMethodProp(Instance,FindPropInfo(Instance,PropName));\r\nend;\r\n\r\nfunction createCallbackPtr(scope: Pointer; fn: CodePointer): TJSFunction; external name 'rtl.createCallback';\r\nfunction createCallbackStr(scope: Pointer; fn: string): TJSFunction; external name 'rtl.createCallback';\r\n\r\nprocedure SetMethodProp(Instance: TObject; PropInfo: TTypeMemberProperty;\r\n  const Value: TMethod);\r\nvar\r\n  cb: TJSFunction;\r\n  Code: Pointer;\r\nbegin\r\n  // Note: Value.Data=nil is allowed and can be used by designer code\r\n  Code:=Value.Code;\r\n  if Code=nil then\r\n    cb:=nil\r\n  else if isFunction(Code) then\r\n    begin\r\n    if (TJSObject(Code)['scope']=Value.Data)\r\n        and (isFunction(TJSObject(Code)['fn']) or isString(TJSObject(Code)['fn']))\r\n      then\r\n      begin\r\n      // Value.Code is already the needed callback\r\n      cb:=TJSFunction(Code);\r\n      end\r\n    else if isString(TJSObject(Code)['fn']) then\r\n      // named callback, different scope\r\n      cb:=createCallbackStr(Value.Data,string(TJSObject(Code)['fn']))\r\n    else\r\n      // normal function\r\n      cb:=createCallbackPtr(Value.Data,Code);\r\n    end\r\n  else\r\n    // not a valid value -> for compatibility set it anyway\r\n    cb:=createCallbackPtr(Value.Data,Code);\r\n  SetJSValueProp(Instance,PropInfo,cb);\r\nend;\r\n\r\nprocedure SetMethodProp(Instance: TObject; const PropName: string;\r\n  const Value: TMethod);\r\nbegin\r\n  SetMethodProp(Instance,FindPropInfo(Instance,PropName),Value);\r\nend;\r\n\r\nfunction GetInterfaceProp(Instance: TObject; const PropName: string\r\n  ): IInterface;\r\nbegin\r\n  Result:=GetInterfaceProp(Instance,FindPropInfo(Instance,PropName));\r\nend;\r\n\r\nfunction GetInterfaceProp(Instance: TObject; PropInfo: TTypeMemberProperty\r\n  ): IInterface;\r\ntype\r\n  TGetter = function: IInterface of object;\r\n  TGetterWithIndex = function(Index: JSValue): IInterface of object;\r\nvar\r\n  gk: TGetterKind;\r\nbegin\r\n  if Propinfo.TypeInfo.Kind<>tkInterface then\r\n    raise Exception.Create('Cannot get RAW interface from IInterface interface');\r\n  gk:=GetPropGetterKind(PropInfo);\r\n  case gk of\r\n    gkNone:\r\n      raise EPropertyError.CreateFmt(SCantReadPropertyS, [PropInfo.Name]);\r\n    gkField:\r\n      Result:=IInterface(TJSObject(Instance)[PropInfo.Getter]);\r\n    gkFunction:\r\n      if (pfHasIndex and PropInfo.Flags)>0 then\r\n        Result:=TGetterWithIndex(TJSObject(Instance)[PropInfo.Getter])(PropInfo.Index)\r\n      else\r\n        Result:=TGetter(TJSObject(Instance)[PropInfo.Getter])();\r\n    gkFunctionWithParams:\r\n      raise EPropertyError.CreateFmt(SIndexedPropertyNeedsParams, [PropInfo.Name]);\r\n  end;\r\nend;\r\n\r\nprocedure SetInterfaceProp(Instance: TObject; const PropName: string;\r\n  const Value: IInterface);\r\nbegin\r\n  SetInterfaceProp(Instance,FindPropInfo(Instance,PropName),Value);\r\nend;\r\n\r\nprocedure SetInterfaceProp(Instance: TObject; PropInfo: TTypeMemberProperty;\r\n  const Value: IInterface);\r\ntype\r\n  TSetter = procedure(Value: IInterface) of object;\r\n  TSetterWithIndex = procedure(Index: JSValue; Value: IInterface) of object;\r\nprocedure setIntfP(Instance: TObject; const PropName: string; value: jsvalue); external name 'rtl.setIntfP';\r\nvar\r\n  sk: TSetterKind;\r\n  Setter: String;\r\nbegin\r\n  if Propinfo.TypeInfo.Kind<>tkInterface then\r\n    raise Exception.Create('Cannot set RAW interface from IInterface interface');\r\n  sk:=GetPropSetterKind(PropInfo);\r\n  Setter:=PropInfo.Setter;\r\n  case sk of\r\n    skNone:\r\n      raise EPropertyError.CreateFmt(SCantWritePropertyS, [PropInfo.Name]);\r\n    skField:\r\n      setIntfP(Instance,Setter,Value);\r\n    skProcedure:\r\n      if (pfHasIndex and PropInfo.Flags)>0 then\r\n        TSetterWithIndex(TJSObject(Instance)[Setter])(PropInfo.Index,Value)\r\n      else\r\n        TSetter(TJSObject(Instance)[Setter])(Value);\r\n    skProcedureWithParams:\r\n      raise EPropertyError.CreateFmt(SIndexedPropertyNeedsParams, [PropInfo.Name]);\r\n  end;\r\nend;\r\n\r\nfunction GetRawInterfaceProp(Instance: TObject; const PropName: string\r\n  ): Pointer;\r\nbegin\r\n  Result:=GetRawInterfaceProp(Instance,FindPropInfo(Instance,PropName));\r\nend;\r\n\r\nfunction GetRawInterfaceProp(Instance: TObject; PropInfo: TTypeMemberProperty\r\n  ): Pointer;\r\nbegin\r\n  Result:=Pointer(GetJSValueProp(Instance,PropInfo));\r\nend;\r\n\r\nprocedure SetRawInterfaceProp(Instance: TObject; const PropName: string;\r\n  const Value: Pointer);\r\nbegin\r\n  SetRawInterfaceProp(Instance,FindPropInfo(Instance,PropName),Value);\r\nend;\r\n\r\nprocedure SetRawInterfaceProp(Instance: TObject; PropInfo: TTypeMemberProperty;\r\n  const Value: Pointer);\r\nbegin\r\n  SetJSValueProp(Instance,PropInfo,Value);\r\nend;\r\n\r\nfunction GetFloatProp(Instance: TObject; PropInfo: TTypeMemberProperty): Double;\r\nbegin\r\n  Result:=Double(GetJSValueProp(Instance,PropInfo));\r\nend;\r\n\r\nfunction GetFloatProp(Instance: TObject; const PropName: string): Double;\r\nbegin\r\n  Result:=GetFloatProp(Instance,FindPropInfo(Instance,PropName));\r\nend;\r\n\r\nprocedure SetFloatProp(Instance: TObject; const PropName: string; Value: Double\r\n  );\r\nbegin\r\n  SetFloatProp(Instance,FindPropInfo(Instance,PropName),Value);\r\nend;\r\n\r\nprocedure SetFloatProp(Instance: TObject; PropInfo: TTypeMemberProperty;\r\n  Value: Double);\r\nbegin\r\n  SetJSValueProp(Instance,PropInfo,Value);\r\nend;\r\n\r\nend.\r\n\r\n","{\r\n    This file is part of the Pas2JS run time library.\r\n    Copyright (c) 2017-2020 by the Pas2JS development team.\r\n\r\n    See the file COPYING.FPC, included in this distribution,\r\n    for details about the copyright.\r\n\r\n    This program is distributed in the hope that it will be useful,\r\n    but WITHOUT ANY WARRANTY; without even the implied warranty of\r\n    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\r\n\r\n **********************************************************************}\r\n\r\n{$mode objfpc}\r\n{$modeswitch externalclass}\r\n\r\nunit Web;\r\n\r\ninterface\r\n\r\nuses Types, JS;\r\n\r\nType\r\n  TJSEvent = Class;\r\n  // Forward definitions\r\n  TJSHTMLElement = Class;\r\n  TJSWindow = class;\r\n  TJSDOMTokenList = class;\r\n  TJSXPathResult = CLass;\r\n  TJSNodeList = class;\r\n  TJSDocument = class;\r\n  TJSElement = class;\r\n  TJSCSSStyleSheet = Class;\r\n  TJSNodeFilter = Class;\r\n  TJSIDBObjectStore = Class;\r\n  TIDBDatabase = class;\r\n  TJSIDBRequest = class;\r\n  TJSEventTarget = class;\r\n  TJSMouseEvent = Class;\r\n  TJSWheelEvent = Class;\r\n  TJSKeyBoardEvent = class;\r\n  TJSPointerEvent = Class;\r\n  TJSUIEvent = class;\r\n  TJSTouchEvent = Class;\r\n  TJSInputEvent = class;\r\n  TJSBlob = class;\r\n  TJSPermissions = class;\r\n  TJSFileSystemFileHandle = class;\r\n  TJSFileSystemFileHandleArray = array of TJSFileSystemFileHandle;\r\n  TJSFileSystemDirectoryHandle = class;\r\n  TJSFileSystemDirectoryHandleArray = array of TJSFileSystemDirectoryHandle;\r\n  TJSShowOpenFilePickerOptions = class;\r\n  TJSShowSaveFilePickerOptions = class;\r\n  TJSServiceWorker = class;\r\n  TJSClient = class;\r\n  TJSRequest = Class;\r\n  TJSResponse = Class;\r\n  TJSServiceWorkerRegistration = class;\r\n  TJSResizeObserver = class;\r\n\r\n  { TEventListenerEvent }\r\n\r\n(*\r\nTEventListenerEvent = class {$IFDEF PAS2JS} external name 'EventListener_Event'  {$ENDIF}(TJSObject)\r\n  private\r\n    FTarget: TJSEventTarget; external name 'target';\r\n  public\r\n    Property target: TJSEventTarget Read FTarget;\r\n  end;\r\n*)\r\n  TEventListenerEvent = TJSEvent;\r\n\r\n  TJSEventHandler = reference to function(Event: TEventListenerEvent): boolean; {$IFDEF PAS2JS} safecall; {$ENDIF}\r\n  TJSRawEventHandler = reference to Procedure(Event: TJSEvent); {$IFDEF PAS2JS} safecall; {$ENDIF}\r\n\r\n  TJSEventTarget = class {$IFDEF PAS2JS} external name 'EventTarget'  {$ENDIF}(TJSObject)\r\n  public\r\n    procedure addEventListener(aname : string; aListener : TJSEventHandler);\r\n    procedure addEventListener(aname : string; aListener : TJSRawEventHandler);\r\n    procedure addEventListener(aname : string; aListener : JSValue);\r\n    function dispatchEvent(event : JSValue) : Boolean;\r\n    procedure removeEventListener(aname : string; aListener : TJSEventHandler);\r\n    procedure removeEventListener(aname : string; aListener : TJSRawEventHandler);\r\n    procedure removeEventListener(aname : string; aListener : JSValue);\r\n  end;\r\n\r\n  TJSNode = class {$IFDEF PAS2JS} external name 'Node'  {$ENDIF}(TJSEventTarget)\r\n  Private\r\n    FBaseURI : String; external name 'baseURI';\r\n    FChildNodes: TJSNodeList; external name 'childNodes';\r\n    FFirstChild : TJSNode; external name 'firstChild';\r\n    FLastChild : TJSNode; external name 'lastChild';\r\n    FNextSibling : TJSNode; external name 'nextSibling';\r\n    FNodeName : String; external name 'nodeName';\r\n    FNodeType : NativeInt; external name 'nodeType';\r\n    FOwnerDocument : TJSDocument; external name 'ownerDocument';\r\n    FParentElement : TJSElement; external name 'parentElement';\r\n    FParentNode : TJSNode; external name 'parentNode';\r\n    FPreviousSibling : TJSNode; external name 'previousSibling';\r\n  Public \r\n    Const\r\n      ELEMENT_NODE \t=1;\r\n      TEXT_NODE \t=3;\r\n      PROCESSING_INSTRUCTION_NODE = \t7;\r\n      COMMENT_NODE \t=8;\r\n      DOCUMENT_NODE \t=9;\r\n      DOCUMENT_TYPE_NODE \t= 10;\r\n      DOCUMENT_FRAGMENT_NODE  = 11;\r\n\r\n      DOCUMENT_POSITION_DISCONNECTED \t= 1;\r\n      DOCUMENT_POSITION_PRECEDING \t= 2;\r\n      DOCUMENT_POSITION_FOLLOWING \t= 4;\r\n      DOCUMENT_POSITION_CONTAINS \t= 8;\r\n      DOCUMENT_POSITION_CONTAINED_BY \t= 16;\r\n      DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC = 32;\r\n  Public  \r\n    nodeValue: string;\r\n    innerText : string;\r\n    textContent : string;\r\n    function appendChild(aChild : TJSNode) : TJSNode;\r\n    function cloneNode(deep:  boolean): TJSNode;\r\n    function compareDocumentPosition(aNode : TJSNode) : NativeInt;\r\n    function contains(aNode : TJSNode) : boolean;\r\n    function hasChildNodes : boolean;\r\n    function insertBefore(newNode, referenceNode : TJSNode) : TJSNode;\r\n    function isDefaultNameSpace(aNameSpaceURI : String) : Boolean;\r\n    function isEqualNode(aNode : TJSNode) : boolean;\r\n    function isSameNode(aNode : TJSNode) : boolean;\r\n    function lookupNamespaceURI(aPrefix : string) : string;\r\n    function lookupPrefix(aPrefix : string) : string;\r\n    procedure normalize;\r\n    function removeChild(aChild: TJSNode) : TJSNode;\r\n    function replaceChild(aNewChild, aOldChild : TJSNode) : TJSNode;\r\n    property baseURI : string read FBaseURI;\r\n    property childNodes : TJSNodeList read FChildNodes;\r\n    property firstChild : TJSNode read FFirstChild;\r\n    property lastChild: TJSNode read FLastChild;\r\n    property nextSibling : TJSNode read FNextSibling;\r\n    property nodeName : String Read FNodeName;\r\n    property nodeType : NativeInt Read FNodeType;\r\n    property ownerDocument : TJSDocument read FOwnerDocument;    \r\n    property parentElement : TJSElement read FParentElement;\r\n    property parentNode : TJSNode read FParentNode;\r\n    property previousSibling : TJSNode Read FPreviousSibling;\r\n  end;\r\n\r\n\r\n  TJSNodeListCallBack = reference to procedure (currentValue : TJSNode; currentIndex: NativeInt; list : TJSNodeList);\r\n  TJSNodeListEvent = procedure (currentValue : TJSNode; currentIndex: NativeInt; list : TJSNodeList) of object;\r\n  \r\n  TJSNodeList = class {$IFDEF PAS2JS} external name 'NodeList'  {$ENDIF}(TJSObject)\r\n  Private\r\n    FLength : NativeInt; external name 'length';\r\n  Public\r\n    procedure forEach(const aCallBack : TJSNodeListCallBack);\r\n    procedure forEach(const aCallBack : TJSNodeListEvent);\r\n    function item(aIndex : NativeInt) : TJSNode;\r\n    Property length : NativeInt Read FLength;\r\n    Property Nodes [aIndex : NativeInt] : TJSNode Read item; default;\r\n  end;\r\n\r\n  TJSAttr = class {$IFDEF PAS2JS} external name 'Attr'  {$ENDIF}(TJSNode)\r\n  Private\r\n    fLocalName : String; external name 'localName';\r\n    fNameSpaceURI : String external name 'namespaceURI';\r\n    fPrefix : string; external name 'prefix';\r\n    fName : string; external name 'name';\r\n    fSpecified : Boolean; external name 'specified';\r\n  public\r\n    value : JSValue;\r\n    property localName : String Read fLocalName;\r\n    property namespaceURI : string Read fNameSpaceURI;\r\n    property prefix : string read fPrefix;\r\n    property name : string Read fName;\r\n    property specified : boolean Read fSpecified; // Useless, always true\r\n  end;\r\n\r\n\r\n  TJSNamedNodeMap = class {$IFDEF PAS2JS} external name 'NamedNodeMap'   {$ENDIF}(TJSObject)\r\n  Public\r\n    function getNamedItem(aName : string) : TJSAttr;\r\n    Property Attrs[aIndex : String] : TJSattr Read getNamedItem; default;\r\n  end;\r\n  \r\n  TJSHTMLCollection = class {$IFDEF PAS2JS} external name 'HTMLCollection'   {$ENDIF}(TJSObject)\r\n  Private\r\n    FLength : NativeInt; external name 'length';\r\n  public\r\n    Function item(aIndex : Integer) : TJSNode;\r\n    Function namedItem(aName : string) : TJSNode;\r\n    property Items[aIndex : Integer] : TJSNode Read item; default;\r\n    property NamedItems[aName : String] : TJSNode Read namedItem; \r\n    Property length : NativeInt Read FLength;\r\n  end;  \r\n  \r\n  TJSDOMString = String;\r\n\r\n  TDOMTokenlistCallBack = Procedure (Current : JSValue; currentIndex : NativeInt; list : TJSDOMTokenList);\r\n  \r\n  // Interface\r\n  TJSDOMTokenList = class {$IFDEF PAS2JS} external name 'DOMTokenList'   {$ENDIF}(TJSObject)\r\n  Private\r\n    FLength : NativeInt; external name 'length';\r\n  public\r\n    Procedure add(aToken : TJSDOMString); varargs;\r\n    Procedure remove(aToken : TJSDOMString); varargs;\r\n    function item(aIndex : NativeInt) : String;\r\n    function contains(aToken : TJSDOMString) : Boolean;\r\n    Procedure replace(aOldToken, ANewToken : TJSDOMString);\r\n    function supports(aToken : TJSDOMString) : Boolean;\r\n    function toggle(aToken : TJSDOMString) : Boolean;\r\n    // entries,keys, values\r\n    procedure forEach(const callback: TDOMTokenlistCallBack);\r\n    property length : NativeInt read FLength;\r\n  end;\r\n\r\n  TJSDOMRect = class {$IFDEF PAS2JS} external name 'DOMRect'   {$ENDIF}(TJSObject)\r\n  public\r\n    left,top,right,bottom,x,y,width,height : double;\r\n    {$IFDEF FIREFOX}\r\n    constructor New;\r\n    {$ENDIF}\r\n  end;\r\n  TJSClientRect = record\r\n    left,top,right,bottom : double;\r\n    {$IFDEF FIREFOX}\r\n    width, height: double;\r\n    {$ENDIF}\r\n  end;\r\n  \r\n  TJSClientRectArray = array of TJSClientRect;\r\n  \r\n  TJSElement = class {$IFDEF PAS2JS} external name 'Element'  {$ENDIF}(TJSNode)\r\n  Private\r\n    FAttributes : TJSNamedNodeMap; external name 'attributes';\r\n    FChildElementCount : NativeInt; external name 'childElementCount';\r\n    FChildren : TJSHTMLCollection; external name 'children';\r\n    FClassList : TJSDOMTokenList; external name 'classList';\r\n    FCLientHeight : NativeInt; external name 'clientHeight';\r\n    FCLientLeft : NativeInt; external name 'clientLeft';\r\n    FCLientTop : NativeInt; external name 'clientTop';\r\n    FCLientWidth : NativeInt; external name 'clientWidth';\r\n    FFirstElementChild : TJSElement; external name 'firstElementChild';\r\n    FLastElementChild : TJSElement; external name 'lastElementChild';\r\n    FLocalName : string; external name 'localName';\r\n    FNameSpaceURI : String; external name 'namespaceURI';\r\n    FNextElementSibling : TJSElement; external name 'nextElementSibling';\r\n    FPreviousElementSibling : TJSElement; external name 'previousElementSibling';\r\n    FPrefix : String; external name 'prefix';\r\n    FScrollHeight : NativeInt; external name 'scrollHeight';\r\n{$IFDEF FIREFOX}\r\n    FScrollLeftMax : NativeInt; external name 'scrollLeftMax';\r\n    FScrollTopMax : NativeInt; external name 'scrollTopMax';\r\n{$endif}\r\n    FScrollWidth : NativeInt; external name 'scrollWidth';\r\n    FTagName : string; external name 'tagName';\r\n  Public\r\n    name : string;\r\n    className : string;\r\n    id : string;\r\n    innerHTML : String;\r\n    outerHTML : string;\r\n    scrollLeft : NativeInt;\r\n    scrollTop : NativeInt;\r\n    procedure append(aText : String); overload;\r\n    procedure append(aNode : TJSElement); overload;\r\n    procedure append(aText : String; aNode : TJSElement); varargs; overload;\r\n    procedure append(aNode1,aNode2: TJSElement); varargs; overload;\r\n    function getAttribute(aName : string) : string;\r\n    function getAttributeNode(aName : string) : TJSAttr;\r\n    function getAttributeNodeNS(aNameSpace, aName : string) : TJSAttr;\r\n    function getAttributeNS(aNameSpace, aName : string) : string;\r\n    function getBoundingClientRect : TJSDOMRect;\r\n    function getClientRects : TJSClientRectArray;\r\n    function getElementsByClassName(aClassName: string) : TJSHTMLCollection;\r\n    function getElementsByTagNameNS(aNameSpace, aTagName : String): TJSHTMLCollection;\r\n    function getElementsByTagName(aTagName : String): TJSHTMLCollection;\r\n    function hasAttribute(aName : String) : Boolean;\r\n    function hasAttributeNS(aNameSpace,aName : String) : Boolean;\r\n    function hasAttributes : Boolean;\r\n    function insertAdjacentElement(aPosition : string; aElement : TJSElement) : TJSElement;\r\n    procedure insertAdjacentHTML(aPosition,aHTML : string);\r\n    procedure insertAdjacentText(aPosition,aText : string);\r\n    function matches(aSelectorString : String) : Boolean;\r\n    function querySelector(aSelectors : String) : TJSElement;\r\n    function querySelectorAll(aSelectors : String) : TJSNodeList;\r\n    function closest(aSelectors : String) : TJSElement;\r\n    procedure remove; overload;\r\n    procedure releasePointerCapture(evID : JSValue);\r\n    procedure removeAttribute(aName: string);\r\n    procedure removeAttributeNS(aNameSpace,aName: string);\r\n    function removeAttributeNode(aAttr : TJSAttr) : TJSAttr;\r\n    procedure replaceChildren; overload;\r\n    procedure replaceChildren(newChildren: JSValue); overload;\r\n    procedure setAttribute(aName : string; AValue : String);\r\n    function setAttributeNode(aNode: TJSAttr) : TJSAttr;\r\n    function setAttributeNodeNS(aNode: TJSAttr) : TJSAttr;\r\n    procedure setAttributeNS(aNameSpace,aName : string; AValue : String);\r\n    procedure setCapture(retargetToElement : Boolean);\r\n    procedure setPointerCapture(pointerID : JSValue);\r\n    procedure requestFullscreen;\r\n    Property attributes : TJSNamedNodeMap read FAttributes;\r\n    Property childElementCount : NativeInt Read FChildElementCount;\r\n    Property children : TJSHTMLCollection Read FChildren;\r\n    Property classList : TJSDOMTokenList read FClassList;\r\n    property clientHeight : NativeInt read FClientHeight;\r\n    property clientLeft : NativeInt read FClientLeft;\r\n    property clientTop : NativeInt read FClientTop;\r\n    property clientWidth : NativeInt read FClientWidth;\r\n    property firstElementChild : TJSElement Read FFirstElementChild;\r\n    property lastElementChild : TJSElement Read FLastElementChild;\r\n    property localName : string Read FLocalName;\r\n    property namespaceURI : String read FNameSpaceURI;\r\n    property nextElementSibling : TJSElement Read FNextElementSibling;\r\n    property previousElementSibling : TJSElement Read FPreviousElementSibling;\r\n    property prefix : String read FPrefix;\r\n    property scrollHeight : NativeInt Read FScrollHeight;\r\n{$IFDEF FIREFOX}\r\n    property scrollLeftMax  : NativeInt Read FScrollLeftMax;\r\n    property scrollTopMax  : NativeInt Read FScrollTopMax;\r\n{$ENDIF}\r\n    property scrollWidth : NativeInt Read FScrollWidth;\r\n    property tagName : String read FTagName;\r\n    Property Attrs[aName : string] : String read getAttribute write setAttribute; default;\r\n  end;\r\n   \r\n  TJSElementCreationOptions = record\r\n    named : string;\r\n  end;\r\n \r\n  TJSDocumentType = class {$IFDEF PAS2JS} external name 'DocumentType'  {$ENDIF}(TJSNode)\r\n  private\r\n    FName : String; external name 'name';\r\n    FPublicID : String; external name 'publicId';\r\n    FSystemID : String; external name 'systemId';\r\n  public\r\n    property name : String read FName;\r\n    property publicId : String Read FPublicID;\r\n    property systemId : String read FSystemID;\r\n  end;\r\n\r\n  TJSDOMImplementation  = class {$IFDEF PAS2JS} external name 'DocumentImplementation'   {$ENDIF}(TJSObject)\r\n  Public  \r\n    function createDocument(aNamespaceURI, aQualifiedNameStr : String; aDocumentType : TJSDocumentType) : TJSDocument;\r\n    function createDocumentType(aQualifiedNameStr,aPublicId,aSystemId : String) : TJSDocumentType;\r\n    function createHTMLDocument(aTitle : String) : TJSDocument;\r\n  end;\r\n\r\n  TJSLocation = class {$IFDEF PAS2JS} external name 'Location'   {$ENDIF}(TJSObject)\r\n  Private\r\n    FOrigin : string; external name 'origin';\r\n  Public\r\n    hash : string;\r\n    host : string;\r\n    hostname : string;\r\n    href : string;\r\n    password : string;\r\n    pathname : string;\r\n    port : string;\r\n    protocol : string;\r\n    search : string;\r\n    username : string;\r\n    procedure assign(aURL : String); overload;\r\n    procedure reload(aForce : Boolean);\r\n    procedure replace(aURL : String);\r\n    property origin : string read FOrigin;\r\n  end;\r\n  \r\n  TJSCSSStyleDeclaration = class; // forward\r\n\r\n  TJSStyleSheet = class {$IFDEF PAS2JS} external name 'StyleSheet'  {$ENDIF}(TJSEventTarget)\r\n  Private\r\n    FHRef : String; external name 'href';\r\n    FOwnerNode : TJSNode; external name 'ownerNode';\r\n    FParentStyleSheet : TJSStyleSheet; external name 'parentStyleSheet';\r\n    FTitle : String; external name 'title';\r\n    FType : String; external name 'type';\r\n  Public\r\n    disabled : String;\r\n    Property href : String read FHRef;\r\n    property ownerNode : TJSNode Read FOwnerNode;\r\n    property parentStyleSheet : TJSStyleSheet read FParentStyleSheet;\r\n    property title : string Read FTitle;\r\n    property _type : String read FType;\r\n  end;\r\n\r\n  TJSCSSRule = class {$IFDEF PAS2JS} external name 'CSSRule'   {$ENDIF}(TJSObject)\r\n  Private\r\n    FCSSText : String; external name 'cssText';\r\n    FParentStyleSheet : TJSCSSStyleSheet; external name 'parentStyleSheet';\r\n    FparentRule : TJSCSSRule; external name 'parentRule';\r\n  Public\r\n    property cssText : String Read FCSSText;\r\n    property parentRule : TJSCSSRule read FparentRule;\r\n    property parentStyleSheet : TJSCSSStyleSheet Read FParentStyleSheet;\r\n  end;\r\n\r\n  TJSCSSStyleRule = class {$IFDEF PAS2JS} external name 'CSSStyleRule'  {$ENDIF}(TJSCSSRule)\r\n  private\r\n    FStyle: TJSCSSStyleDeclaration; external name 'style';\r\n  public\r\n    selectorText: String;\r\n    property style: TJSCSSStyleDeclaration read FStyle;\r\n  end;\r\n  \r\n  TJSCSSRuleList = class {$IFDEF PAS2JS} external name 'CSSRuleList'   {$ENDIF}(TJSObject)\r\n  Private\r\n    FLength : NativeInt; external name 'length';\r\n  Public\r\n    function item(index : NativeInt) : TJSCSSRule;\r\n    property length : NativeInt Read FLength;\r\n    Property items[aIndex : NativeInt] : TJSCSSRule read item; default;\r\n  end;\r\n  \r\n  \r\n  TJSCSSStyleSheet = class {$IFDEF PAS2JS} external name 'CSSStyleSheet'  {$ENDIF}(TJSStyleSheet)\r\n  Private\r\n    FCSSRules : TJSCSSRuleList; external name 'cssRules';\r\n  Public\r\n    procedure deleteRule(aIndex : NativeInt);\r\n    function insertRule(aRule : String; aIndex : NativeInt) : NativeInt;\r\n    Property cssRules : TJSCSSRuleList read FCSSRules;\r\n  end;\r\n\r\n  TJSStyleSheetList = class {$IFDEF PAS2JS} external name 'StyleSheetList'   {$ENDIF}(TJSObject)\r\n  Private\r\n    FLength : NativeInt; external name 'length';\r\n  Public\r\n    function item(index : NativeInt) : TJSStyleSheet;\r\n    property length : NativeInt Read FLength;\r\n    Property items[aIndex : NativeInt] : TJSStyleSheet read item; default;\r\n  end;\r\n\r\n  { TJSDocumentFragment }\r\n\r\n  TJSDocumentFragment = class {$IFDEF PAS2JS} external name 'DocumentFragment'  {$ENDIF}(TJSNode)\r\n  private\r\n    FchildElementCount: Integer; external name 'childElementCount';\r\n    Fchildren: TJSHTMLCollection; external name 'children';\r\n    FfirstElementChild: TJSElement; external name 'firstElementChild';\r\n    FlastElementChild: TJSElement; external name 'lastElementChild';\r\n  public\r\n    constructor new;\r\n    function querySelector(aSelector : String) : TJSElement;\r\n    function querySelectorAll(aSelector : String) : TJSNodeList;\r\n    property childElementCount : Integer read FchildElementCount;\r\n    property children : TJSHTMLCollection read Fchildren;\r\n    property firstElementChild : TJSElement read FfirstElementChild;\r\n    property lastElementChild : TJSElement read FlastElementChild;\r\n  end;\r\n\r\n  TJSEventInit = record\r\n    bubbles : boolean;\r\n    cancelable : boolean;\r\n    scoped : boolean;\r\n    composed : boolean;\r\n  end;\r\n\r\n  TJSEvent = class {$IFDEF PAS2JS} external name 'Event'   {$ENDIF}(TJSObject)\r\n  Private\r\n    FBubbles : Boolean; external name 'bubbles';\r\n    FCancelable : Boolean; external name 'cancelable';\r\n    FComposed : Boolean; external name 'composed';\r\n    FCurrentTarget : TJSEventTarget; external name 'currentTarget';\r\n    FCurrentTargetElement : TJSElement; external name 'currentTarget';\r\n    FdefaultPrevented : Boolean; external name 'defaultPrevented';\r\n    FEventPhase : NativeInt; external name 'eventPhase';\r\n    FTarget : TJSEventTarget; external name 'target';\r\n    FTargetElement : TJSElement; external name 'target';\r\n    FTimeStamp : NativeInt; external name 'timestamp';\r\n    FType : String; external name 'type';\r\n    FIsTrusted : Boolean; external name 'isTrusted';\r\n  Public\r\n    Const\r\n      NONE = 0;\r\n      CAPTURING_PHASE = 1;\r\n      AT_TARGET  = 2;\r\n      BUBBLING_PHASE = 3;\r\n  public    \r\n    cancelBubble : Boolean;\r\n    constructor new (aType : String; const aInit : TJSEventInit); overload;\r\n    constructor new (aType : String); overload;\r\n    procedure preventDefault;\r\n    procedure stopImmediatePropagation;\r\n    procedure stopPropagation;\r\n    Property bubbles : Boolean Read FBubbles;\r\n    Property cancelable : Boolean Read FCancelable;\r\n    Property composed : Boolean Read FComposed;\r\n    property currentTarget : TJSEventTarget Read FCurrentTarget;\r\n    property currentTargetElement : TJSElement Read FCurrentTargetElement;\r\n    property defaultPrevented : Boolean Read FdefaultPrevented;\r\n    property eventPhase : NativeInt Read FEventPhase;\r\n    property target : TJSEventTarget Read FTarget;\r\n    property targetElement : TJSElement Read FTargetElement;\r\n    Property timestamp : NativeInt Read FTimeStamp;\r\n    property _type : string read FType;\r\n    property isTrusted : Boolean Read FIsTrusted;\r\n  end;\r\n\r\n\r\n  TJSXPathExpression = class {$IFDEF PAS2JS} external name 'XPathExpression'   {$ENDIF}(TJSObject)\r\n  Public\r\n    function evaluate(contextNode : TJSNode; aType : NativeInt; aResult : TJSXPathResult) : TJSXPathResult;\r\n    function evaluateWithContext(contextNode : TJSNode; aPosition, aSize, aType : NativeInt; aResult : TJSXPathResult) : TJSXPathResult;\r\n  end;\r\n\r\n  TJSXPathNSResolver = class {$IFDEF PAS2JS} external name 'XPathNSResolver'   {$ENDIF}(TJSObject)\r\n  Public\r\n    function lookupNamespaceURI(prefix : string) : string;\r\n  end;\r\n\r\n  { TJSCharacterData }\r\n\r\n  TJSCharacterData = class {$IFDEF PAS2JS} external name 'CharacterData'  {$ENDIF}(TJSNode)\r\n  private\r\n    FnextElementSibling: TJSElement; external name 'nextElementSibling';\r\n    FpreviousElementSibling: TJSElement; external name 'previousElementSibling';\r\n  public\r\n    property nextElementSibling : TJSElement read FnextElementSibling;\r\n    property previousElementSibling : TJSElement read FpreviousElementSibling;\r\n  end;\r\n\r\n\r\n  TJSProcessingInstruction = class {$IFDEF PAS2JS} external name 'ProcessingInstruction'  {$ENDIF}(TJSCharacterData);\r\n\r\n  { TJSRange }\r\n\r\n  TJSRange = class {$IFDEF PAS2JS} external name 'Range'   {$ENDIF}(TJSObject)\r\n  private\r\n    FCollapsed: boolean; external name 'collapsed';\r\n    FcommonAncestorContainer: TJSNode; external name 'commonAncestorContainer';\r\n    FendContainer: TJSNode; external name 'endContainer';\r\n    FEndOffset: NativeInt; external name 'endOffset';\r\n    FstartContainer: TJSNode; external name 'startContainer';\r\n    FstartOffset: NativeInt; external name 'startOffset';\r\n  Public\r\n    const\r\n      END_TO_END     = 0;\r\n      END_TO_START   = 1;\r\n      START_TO_END   = 2;\r\n      START_TO_START = 3;\r\n  Public\r\n    constructor new;\r\n    function cloneContents : TJSDocumentFragment;\r\n    function cloneRange : TJSRange;\r\n    procedure collapse;\r\n    function compareBoundaryPoints(aHow : NativeInt) : NativeInt;\r\n    function createContextualFragment(aTagstring : String) : TJSDocumentFragment;\r\n    procedure deleteContents;\r\n    procedure detach;\r\n    function extractContents : TJSDocumentFragment;\r\n    procedure insertNode(aNode : TJSNode);\r\n    procedure selectNode(aNode : TJSNode);\r\n    procedure selectNodeContents(aNode : TJSNode);\r\n    procedure setEnd(aEndNode : TJSNode; aEndOffset : NativeInt); \r\n    procedure setEndAfter(aEndNode : TJSNode);\r\n    procedure setEndBefore(aEndNode : TJSNode);\r\n    procedure setStart(aStartNode : TJSNode; aStartOffset : NativeInt); \r\n    procedure setStartAfter(aStartNode : TJSNode);\r\n    procedure setStartBefore(aStartNode : TJSNode);\r\n    procedure surroundContents(aNode : TJSNode);\r\n    property collapsed : boolean read FCollapsed;\r\n    property commonAncestorContainer : TJSNode read FcommonAncestorContainer ;\r\n    property endContainer : TJSNode read FendContainer;\r\n    property endOffset : NativeInt Read FEndOffset;\r\n    property startContainer : TJSNode read FstartContainer;\r\n    property startOffset : NativeInt Read FstartOffset;\r\n  end;\r\n\r\n\r\n  { TJSTreeWalker }\r\n\r\n  TJSTreeWalker = class {$IFDEF PAS2JS} external name 'TreeWalker'  {$ENDIF}(TJSObject)\r\n  private\r\n    FCurrentNode: TJSNode; external name 'currentNode';\r\n    FexpandEntityReference: Boolean; external name 'expandEntityReference';\r\n    FFilter: TJSNodeFilter; external name 'filter';\r\n    FRoot: TJSNode; external name 'root';\r\n    FWhatToShow: NativeInt; external name 'whatToShow';\r\n  Public\r\n    function firstChild : TJSNode;\r\n    function lastChild : TJSNode;\r\n    function nextNode : TJSNode;\r\n    function nextSibling : TJSNode;\r\n    function parentNode : TJSNode;\r\n    function previousNode : TJSNode;\r\n    function previousSibling : TJSNode;\r\n\r\n    property root : TJSNode read FRoot;\r\n    property whatToShow : NativeInt read FWhatToShow;\r\n    property filter : TJSNodeFilter Read FFilter;\r\n    property expandEntityReference : Boolean Read FexpandEntityReference;\r\n    property currentNode : TJSNode Read FCurrentNode;\r\n  end;\r\n\r\n  TJSNodeFilter = class {$IFDEF PAS2JS} external name 'NodeFilter'   {$ENDIF}(TJSObject)\r\n    const\r\n      SHOW_ALL                    = -1;\r\n      SHOW_ATTRIBUTE              = 2;\r\n      SHOW_CDATA_SECTION          = 8;\r\n      SHOW_COMMENT                = 128;\r\n      SHOW_DOCUMENT               = 256;\r\n      SHOW_DOCUMENT_FRAGMENT      = 1024;\r\n      SHOW_DOCUMENT_TYPE          = 512;\r\n      SHOW_ELEMENT                = 1;\r\n      SHOW_ENTITY                 = 32;\r\n      SHOW_ENTITY_REFERENCE       = 16;\r\n      SHOW_NOTATION               = 2048;\r\n      SHOW_PROCESSING_INSTRUCTION = 64;\r\n      SHOW_TEXT                   = 4;\r\n    function acceptNode (aNode : TJSNode) : NativeInt;\r\n  end;\r\n\r\n  TJSXPathResult = class {$IFDEF PAS2JS} external name 'XPathResult'   {$ENDIF}(TJSObject)\r\n  private\r\n    FBooleanValue : Boolean; external name 'booleanValue';\r\n    FNumberValue : Double; external name 'numberValue';\r\n    FResultType : NativeInt; external name 'resultType';\r\n    FSingleNodeValue : TJSNode;  external name 'singleNodeValue';\r\n    FSnaphotLength : NativeInt; external name 'snapshotLength';\r\n    FStringValue : String; external name 'stringValue';\r\n  public  \r\n    Function iterateNext : TJSNode;\r\n    Function snapshotItem(Index: NativeInt) : TJSNode;\r\n    Property booleanValue : Boolean Read FBooleanValue;\r\n    Property numberValue : Double Read FNumberValue;\r\n    property resultType : NativeInt Read FResultType;\r\n    Property singleNodeValue : TJSNode Read FSingleNodeValue;\r\n    property snapshotLength : NativeInt read FSnaphotLength;\r\n    property stringValue : String Read FStringValue;\r\n  end;\r\n\r\n  TJSSelection = class {$IFDEF PAS2JS} external name 'Selection'   {$ENDIF}(TJSObject)\r\n  Private\r\n    FanchorNode : TJSNode ; external name 'anchorNode';\r\n    FanchorOffset : NativeInt ; external name 'anchorOffset';\r\n    FfocusNode : TJSNode ; external name 'focusNode';\r\n    FfocusOffset : NativeInt ; external name 'focusOffset';\r\n    FisCollapsed : Boolean ; external name 'isCollapsed';\r\n    FrangeCount : NativeInt ; external name 'rangeCount';\r\n    Ftype : String ; external name 'type';\r\n  Public\r\n    function getRangeAt(aIndex : NativeInt) : TJSRange;\r\n    procedure collapse(aParentNode : TJSNode; Offset : NativeInt);\r\n    procedure extend(aParentNode : TJSNode; Offset : NativeInt);\r\n    procedure collapseToStart;\r\n    procedure collapseToEnd;\r\n    procedure selectAllChildren(aParentNode : TJSNode);\r\n    procedure addRange(aRange : TJSRange);\r\n    procedure removeRange(aRange : TJSRange);\r\n    procedure removeAllRanges;\r\n    procedure deleteFromDocument;\r\n    function containsNode(aNode : TJSNode; aPartlyContained : Boolean) : Boolean;\r\n    procedure setBaseAndExtent(aAnchorNode : TJSNode; aAnchorOffset : NativeInt; aFocusNode : TJSNode; aFocusOffset : NativeInt);\r\n    property anchorNode : TJSNode read FAnchorNode;\r\n    property anchorOffset : NativeInt read FAnchorOffset;\r\n    property focusNode : TJSNode read FFocusNode;\r\n    property focusOffset : NativeInt read FFocusOffset;\r\n    property isCollapsed : Boolean read FIsCollapsed;\r\n    property rangeCount : NativeInt read FRangeCount;\r\n    property _type : String Read FType;\r\n  end;\r\n  TJSNameSpaceMapperCallback = function (aNameSpace : string ) : String;\r\n\r\n  TJSHTMLFile = class;\r\n  TJSHTMLFileList = Class;\r\n\r\n  { TJSDataTransferItem }\r\n\r\n  TJSDataTransferItemCallBack = reference to Procedure(aData : String); {$IFDEF PAS2JS} safecall; {$ENDIF}\r\n\r\n  TJSDataTransferItem = class {$IFDEF PAS2JS} external name 'DataTransferItem'   {$ENDIF}(TJSObject)\r\n  private\r\n    FKind: String; external name 'kind';\r\n    FType: string; external name 'type';\r\n  Public\r\n    function getAsFile : TJSHTMLFile;\r\n    Procedure getAsString(aCallBack : TJSDataTransferItemCallBack);\r\n    property Kind : String read FKind;\r\n    property _Type : string read FType;\r\n  end;\r\n\r\n  TJSDataTransferItemList = class {$IFDEF PAS2JS} external name 'DataTransferItemList'   {$ENDIF}(TJSObject)\r\n  private\r\n    FLength: NativeInt; external name 'length';\r\n    function getitem(aIndex : nativeInt) : TJSDataTransferItem ; external name '[]';\r\n  Public\r\n    Function add(aData : string; AType: string) : TJSDataTransferItem; overload;\r\n    Function add(aFile : TJSHTMLFile) : TJSDataTransferItem; overload;\r\n    Procedure clear;\r\n    procedure remove(aIndex : integer);\r\n    property length : NativeInt read FLength;\r\n    property Items[aIndex : NativeInt] : TJSDataTransferItem Read getitem; default;\r\n  end;\r\n\r\n  { TJSDataTransfer }\r\n\r\n  TJSDataTransfer = class {$IFDEF PAS2JS} external name 'DataTransfer'   {$ENDIF}(TJSObject)\r\n  private\r\n    FFiles: TJSHTMLFileList; external name 'files';\r\n    FItems: TJSDataTransferItemList; external name 'items';\r\n    FTypes: TJSStringDynArray; external name 'types';\r\n  Public\r\n    dropEffect : string;\r\n    effectAllowed : string;\r\n    Procedure clearData; overload;\r\n    Procedure clearData(aFormat : string); overload;\r\n    function getData(aFormat : string) : String;\r\n    procedure setData(aFormat : String; aData : String);\r\n    procedure setDragImage(aImage: TJSElement; xOffset,yOffset : integer);\r\n    property files : TJSHTMLFileList Read FFiles;\r\n    property items : TJSDataTransferItemList read FItems;\r\n    property types : TJSStringDynArray read FTypes;\r\n  end;\r\n\r\n  { TJSDragEvent }\r\n\r\n  TJSDragEvent = class {$IFDEF PAS2JS} external name 'DragEvent'  {$ENDIF}(TJSEvent)\r\n  Private\r\n    FDataTransfer: TJSDataTransfer; external name 'dataTransfer';\r\n    FrelatedTarget : TJSEventTarget external name 'relatedTarget';\r\n    FscreenX : NativeInt external name 'screenX';\r\n    FscreenY : NativeInt external name 'screenY';\r\n    FclientX : NativeInt external name 'clientX';\r\n    FclientY : NativeInt external name 'clientY';\r\n    Fbutton : NativeInt external name 'button';\r\n    Fbuttons : NativeInt external name 'buttons';\r\n    FctrlKey : Boolean external name 'ctrlKey';\r\n    FshiftKey : Boolean external name 'shiftKey';\r\n    FaltKey  : Boolean external name 'altKey';\r\n    FmetaKey  : Boolean external name 'metaKey';\r\n  Public\r\n    Property relatedTarget : TJSEventTarget Read FRelatedTarget;\r\n    Property screenX : NativeInt Read FScreenX;\r\n    Property screenY : NativeInt Read FScreenY;\r\n    Property clientX : NativeInt Read FClientX;\r\n    Property clientY : NativeInt Read FClientY;\r\n    Property button : NativeInt Read FButton;\r\n    Property buttons : NativeInt Read FButtons;\r\n    Property ctrlKey : Boolean Read FctrlKey;\r\n    Property shiftKey : Boolean Read FshiftKey;\r\n    Property altKey  : Boolean Read FaltKey;\r\n    Property metaKey  : Boolean Read FmetaKey;\r\n    property dataTransfer : TJSDataTransfer Read FDataTransfer;\r\n  end;\r\n  TJSDragDropEventHandler = reference to function(aEvent: TJSDragEvent) : Boolean; {$IFDEF PAS2JS} safecall; {$ENDIF}\r\n  THTMLClickEventHandler = reference to function(aEvent : TJSMouseEvent) : boolean; {$IFDEF PAS2JS} safecall; {$ENDIF}\r\n\r\n  TJSClipBoardEvent = class {$IFDEF PAS2JS} external name 'ClipboardEvent'  {$ENDIF}(TJSEvent)\r\n  Private\r\n    FClipboardData: TJSDataTransfer external name 'clipboardData';\r\n  Public\r\n    Property ClipBoardData : TJSDataTransfer Read FClipBoardData;\r\n  end;\r\n\r\n  { Various events }\r\n\r\n  TJSFocusEvent = Class(TJSEvent)\r\n  private\r\n    FrelatedTarget : TJSElement external name 'relatedTarget';\r\n  public\r\n    property relatedTarget : TJSElement Read FrelatedTarget;\r\n  end;\r\n\r\n  TJSAnimationEvent = Class(TJSEvent);\r\n  TJSLoadEvent = Class(TJSEvent);\r\n\r\n  TJSErrorEvent = class {$IFDEF PAS2JS} external name 'ErrorEvent'  {$ENDIF}(TJSEvent)\r\n  Private\r\n    Fmessage : String external name 'message';\r\n    Ffilename : string external name 'filename';\r\n    Flineno : integer external name 'lineno';\r\n    Fcolno : integer external name 'colno';\r\n    Ferror : TJSObject external name 'error';\r\n  Public\r\n    Property message : String read FMessage;\r\n    property filename : string Read FFileName;\r\n    property lineno : integer read FLineNo;\r\n    Property colno : integer read FColNo;\r\n    Property error : TJSObject read FError;\r\n  end;\r\n\r\n  TJSPromiseRejectionEvent = class {$IFDEF PAS2JS} external name 'PromiseRejectionEvent'  {$ENDIF}(TJSEvent)\r\n  Private\r\n    Fpromise : TJSPromise external name 'promise';\r\n    Freason : JSValue external name 'reason';\r\n  Public\r\n    Property promise : TJSPromise read Fpromise;\r\n    Property reason : JSValue read Freason;\r\n  end;\r\n\r\n  TJSPageTransitionEvent = class(TJSEvent)\r\n  end;\r\n\r\n  TJSHashChangeEvent = class {$IFDEF PAS2JS} external name 'HashChangeEvent'  {$ENDIF}(TJSEvent)\r\n  Private\r\n    FnewURL : String external name 'newURL';\r\n    FoldURL : String external name 'oldURL';\r\n  public\r\n    property newURL : String Read FNewURL;\r\n    property oldURL : String Read FOldURL;\r\n  end;\r\n\r\n  TJSPopStateEvent = class {$IFDEF PAS2JS} external name 'PopStateEvent'   {$ENDIF}(TJSEvent)\r\n  Private\r\n    FState : JSValue; external name 'state';\r\n  Public\r\n    property state : JSValue read FState;\r\n  end;\r\n\r\n  TJSStorageEvent = class {$IFDEF PAS2JS} external name 'StorageEvent'  {$ENDIF}(TJSEvent)\r\n  private\r\n    Fkey : String external name 'key';\r\n    FoldValue : String external name 'oldValue';\r\n    FnewValue : String external name 'newValue';\r\n    Furl : String external name 'url';\r\n    FstorageArea : String external name 'storageArea';\r\n  public\r\n    Property key : String Read FKey;\r\n    Property oldValue : String Read FOldValue;\r\n    Property newValue : String Read FNewValue;\r\n    Property url : String Read FURL;\r\n    Property storageArea : String Read FstorageArea;\r\n  end;\r\n\r\n  { TJSProgressEvent }\r\n\r\n  TJSProgressEvent = class {$IFDEF PAS2JS} external name 'ProgressEvent'  {$ENDIF}(TJSEvent)\r\n  Private\r\n    FlengthComputable : Boolean external name 'lengthComputable';\r\n    Floaded : NativeUINT external name 'loaded';\r\n    FTotal : NativeUINT external name 'Total';\r\n  Public\r\n    property lengthComputable : Boolean Read FlengthComputable;\r\n    property loaded : NativeUINT Read FLoaded;\r\n    property Total : NativeUINT Read FTotal;\r\n  end;\r\n\r\n  TJSCloseEvent = class {$IFDEF PAS2JS} external name 'CloseEvent'  {$ENDIF}(TJSEvent)\r\n  private\r\n    fcode: Word; external name 'code';\r\n    freason: TJSDOMString; external name 'reason';\r\n    fwasClean: Boolean; external name 'wasClean';\r\n  public\r\n    property code: Word read fcode;\r\n    property reason: TJSDOMString read freason;\r\n    property wasClean: Boolean read fwasClean;\r\n  end; \r\n\r\n  TJSPageTransitionEventHandler = reference to function(aEvent : TJsPageTransitionEvent) : boolean; {$IFDEF PAS2JS} safecall; {$ENDIF}\r\n  TJSHashChangeEventhandler = reference to function(aEvent : TJSHashChangeEvent) : boolean; {$IFDEF PAS2JS} safecall; {$ENDIF}\r\n  TJSMouseWheelEventHandler = reference to function(aEvent : TJSWheelEvent) : boolean; {$IFDEF PAS2JS} safecall; {$ENDIF}\r\n  TJSMouseEventHandler = reference to function(aEvent : TJSMouseEvent) : boolean; {$IFDEF PAS2JS} safecall; {$ENDIF}\r\n  THTMLAnimationEventHandler = reference to function(aEvent : TJSAnimationEvent) : boolean; {$IFDEF PAS2JS} safecall; {$ENDIF}\r\n  TJSErrorEventHandler = reference to function(aEvent : TJSErrorEvent) : boolean; {$IFDEF PAS2JS} safecall; {$ENDIF}\r\n  TJSPromiseRejectionEventHandler = reference to function(aEvent : TJSPromiseRejectionEvent) : boolean; {$IFDEF PAS2JS} safecall; {$ENDIF}\r\n  TJSFocusEventHandler = reference to function(aEvent : TJSFocusEvent) : boolean; {$IFDEF PAS2JS} safecall; {$ENDIF}\r\n  TJSKeyEventhandler = reference to function (aEvent : TJSKeyBoardEvent) : boolean; {$IFDEF PAS2JS} safecall; {$ENDIF}\r\n  TJSLoadEventhandler = reference to function (aEvent : TJSLoadEvent) : boolean; {$IFDEF PAS2JS} safecall; {$ENDIF}\r\n  TJSPointerEventHandler = reference to function(aEvent : TJSPointerEvent) : boolean; {$IFDEF PAS2JS} safecall; {$ENDIF}\r\n  TJSUIEventHandler = reference to function(aEvent : TJSUIEvent) : Boolean; {$IFDEF PAS2JS} safecall; {$ENDIF}\r\n  TJSPopStateEventHandler = reference to function(aEvent : TJSPopStateEvent) : Boolean; {$IFDEF PAS2JS} safecall; {$ENDIF}\r\n  TJSStorageEventHandler = reference to function(aEvent : TJSStorageEvent) : Boolean; {$IFDEF PAS2JS} safecall; {$ENDIF}\r\n  TJSProgressEventhandler =  reference to function(aEvent : TJSProgressEvent) : Boolean; {$IFDEF PAS2JS} safecall; {$ENDIF}\r\n  TJSTouchEventHandler = reference to function(aEvent : TJSTouchEvent) : boolean; {$IFDEF PAS2JS} safecall; {$ENDIF}\r\n\r\n  TJSDocument = class {$IFDEF PAS2JS} external name 'Document'  {$ENDIF}(TJSNode)\r\n  Private\r\n    fActiveElement : TJSElement; external name 'activeElement';\r\n    FCharacterSet: String; external name 'characterSet';\r\n    FChildElementCount: NativeInt; external name 'childElementCount';\r\n    FCompatMode: String; external name 'compatMode';\r\n    FCurrentScript: TJSElement; external name 'currentScript';\r\n    FDefaultView: TJSWindow; external name 'defaultView';\r\n    FDocType: TJSDocumentType; external name 'docrype';\r\n    FDocumentElement: TJSElement; external name 'documentElement';\r\n    FDocumentURI: String; external name 'documentURI';\r\n    FEmbeds: TJSHTMLCollection; external name 'embeds';\r\n    FFirstElementChild : TJSElement; external name 'firstElementChild';\r\n    FForms: TJSHTMLCollection; external name 'forms';\r\n    FFullScreenElement: TJSElement; external name 'fullscreenElement';\r\n    FFullscreenEnabled: Boolean; external name 'fullscreenEnabled';\r\n    FHead: TJSElement; external name 'head';\r\n    FHidden: Boolean; external name 'hidden';\r\n    FImages: TJSHTMLCollection; external name 'images';\r\n    FImplementation: TJSDOMImplementation; external name 'implementation';\r\n    FLastElementChild : TJSElement; external name 'lastElementChild';\r\n    FLastModified: String; external name 'lastModified';\r\n    FLastStyleSheetSet: String; external name 'lastStyleSheetSet';\r\n    FLinks: TJSHTMLCollection; external name 'links';\r\n    FLocation: TJSLocation; external name 'location';\r\n    FLocationString: String; external name 'location';\r\n    FPlugins: TJSHTMLCollection; external name 'plugins';\r\n    FPointerLockElement: TJSElement; external name 'pointerLockElement';\r\n    FPreferredStyleSheetSet: String; external name 'preferredStyleSheetSet';\r\n    FReadyState: String; external name 'readyState';\r\n    FReferrer: String; external name 'referrer';\r\n    FScripts: TJSHTMLCollection; external name 'scripts';\r\n    FStyleSheets: TJSStyleSheetList; external name 'styleSheets';\r\n    FStyleSheetSets: TJSValueDynArray; external name 'styleSheetSets';\r\n    FURL: String; external name 'URL';\r\n    FVisibilityState: string; external name 'visibilityState';\r\n  Public\r\n    function adoptNode(aExternalNode : TJSNode) : TJSNode;\r\n    procedure close;\r\n    function createAttribute(aName : string) : TJSAttr;\r\n    function createCDATASection(S : String) : TJSNode;\r\n    function createComment(S : String) : TJSNode;\r\n    function createDocumentFragment : TJSDocumentFragment;\r\n    function createElement(tagName : string) : TJSElement; overload;\r\n    function createHTMLElement(tagName : string) : TJSHTMLElement; external name 'createElement';\r\n    function createElement(tagName : string; const options : TJSElementCreationOptions) : TJSElement; overload;\r\n    function createElementNS(aNameSpace,tagName : string) : TJSElement; overload;\r\n    function createElementNS(aNameSpace,tagName : string; const options : TJSElementCreationOptions) : TJSElement; overload;\r\n    function createEvent(aType : string) : TJSEvent;\r\n    function createExpression(xPathText : String; aNameSpaceMapper: TJSNameSpaceMapperCallback) : TJSXPathExpression;\r\n    function createNSResolver(aNode : TJSNode) : TJSXPathNSResolver;\r\n    function createProcessingInstruction(target, data : String) : TJSProcessingInstruction;\r\n    function createRange : TJSRange;\r\n    function createTextNode(S : String) : TJSNode;\r\n    function createTreeWalker(root : TJSNode; whatToShow : NativeInt; filter : TJSNodeFilter) : TJSTreeWalker;\r\n    function elementFromPoint(x,y : integer) : TJSElement;\r\n    procedure enableStyleSheetsForSet(aSet : String);\r\n    function evaluate(xpathExpression : String; ContextNode : TJSNode; NameSpaceResolver : TJSNamespaceMapperCallBack; resultType : NativeInt; aResult : TJSXPathResult) : TJSXPathResult;\r\n    function execCommand(aCommandName : String; aShowDefaultUI : Boolean; AValueArgument : String) : boolean; overload;\r\n    function execCommand(aCommandName : String; aShowDefaultUI : Boolean) : boolean; overload;\r\n    Procedure exitFullscreen;\r\n    function getElementById(aID : String) : TJSElement;\r\n    function getHTMLElementById(aID : String) : TJSHTMLElement; external name 'getElementById';\r\n    function getElementsByClassName(aNames : string) : TJSHTMLCollection;\r\n    function getElementsByName(aName : String) : TJSNodeList;\r\n    function getElementsByTagName(aName : String) : TJSHTMLCollection;\r\n    function getElementsByTagNameNS(aNameSpace,aName : String) : TJSHTMLCollection;\r\n    function getSelection : TJSSelection;\r\n    function hasFocus : boolean;\r\n    function importNode(aExternalNode : TJSNode; Deep: boolean) : TJSNode;\r\n    function querySelector(aSelectors : String) : TJSElement;\r\n    function querySelectorAll(aSelectors : String) : TJSNodeList;\r\n    procedure open;\r\n    procedure releaseCapture;\r\n    procedure write(aLine : string);\r\n    procedure writeln(aLine : String);\r\n  Public\r\n    body : TJSElement;\r\n    cookie: TJSString;\r\n    designMode : string;\r\n    dir : string;\r\n    domain : string;\r\n    selectedStyleSheetSet : string;\r\n    title : string;\r\n    onabort : TJSEventHandler;\r\n    onblur : TJSEventHandler;\r\n    oncancel : TJSEventHandler;\r\n    oncanplay : TJSEventHandler;\r\n    oncanplaythrough : TJSEventHandler;\r\n    onchange : TJSEventHandler;\r\n    onclick: THTMLClickEventHandler;\r\n    onclose : TJSEventHandler;\r\n    oncontextmenu : TJSEventHandler;\r\n    oncuechange : TJSEventHandler;\r\n    ondblclick : THTMLClickEventHandler;\r\n    ondrag : TJSDragDropEventHandler;\r\n    ondragend : TJSDragDropEventHandler;\r\n    ondragenter : TJSDragDropEventHandler;\r\n    ondragexit : TJSDragDropEventHandler;\r\n    ondragover : TJSDragDropEventHandler;\r\n    ondragleave : TJSDragDropEventHandler;\r\n    ondragstart: TJSDragDropEventHandler;\r\n    ondrop : TJSDragDropEventHandler;\r\n    ondurationchange : TJSEventHandler;\r\n    onemptied : TJSEventHandler;\r\n    onended : TJSEventHandler;\r\n    onerror : TJSErrorEventHandler;\r\n    onfocus : TJSFocusEventhandler;\r\n    ongotpointercapture : TJSPointerEventHandler;\r\n    oninput : TJSEventhandler;\r\n    oninvalid : TJSEventhandler;\r\n    onkeydown : TJSKeyEventhandler;\r\n    onkeypress : TJSKeyEventhandler;\r\n    onkeyup : TJSKeyEventhandler;\r\n    onload : TJSEventhandler;\r\n    onloadeddata : TJSEventhandler;\r\n    onloadedmetadata : TJSEventhandler;\r\n    onloadend : TJSProgressEventhandler;\r\n    onloadstart : TJSProgressEventhandler;\r\n    onlostpointercapture : TJSPointerEventHandler;\r\n    onmessage : TJSEventHandler;\r\n    onmousedown : TJSMouseEventHandler;\r\n    onmouseenter : TJSMouseEventHandler;\r\n    onmouseleave : TJSMouseEventHandler;\r\n    onmousemove : TJSMouseEventHandler;\r\n    onmouseout : TJSMouseEventHandler;\r\n    onmouseover : TJSMouseEventHandler;\r\n    onmouseup : TJSMouseEventHandler;\r\n    onmousewheel : TJSMouseEventHandler;\r\n    onpause : TJSEventHandler;\r\n    onplay : TJSEventHandler;\r\n    onplaying : TJSEventHandler;\r\n    onpointercancel : TJSPointerEventHandler;\r\n    onpointerdown : TJSPointerEventHandler;\r\n    onpointerenter : TJSPointerEventHandler;\r\n    onpointerleave : TJSPointerEventHandler;\r\n    onpointermove : TJSPointerEventHandler;\r\n    onpointerout : TJSPointerEventHandler;\r\n    onpointerover : TJSPointerEventHandler;\r\n    onpointerup : TJSPointerEventHandler;\r\n    onpointerlockchange : TJSPointerEventHandler;\r\n    onprogress : TJSProgressEventhandler;\r\n    onreset : TJSUIEventHandler;\r\n    onratechange : TJSEventHandler;\r\n    onscroll : TJSUIEventHandler;\r\n    onseekend : TJSEventHandler;\r\n    onseeking : TJSEventHandler;\r\n    onselect : TJSEventHandler;\r\n    onselectionchange : TJSEventHandler;\r\n    onsshow : TJSEventHandler;\r\n    onsubmit : TJSEventHandler;\r\n    onunload : TJSUIEventHandler;\r\n    onwaiting : TJSEventHandler;\r\n    touchstart : TJSTouchEventHandler;\r\n    touchend : TJSTouchEventHandler;\r\n    touchmove : TJSTouchEventHandler;\r\n    touchcancel : TJSTouchEventHandler;\r\n    Property activeElement : TJSElement Read FActiveElement;\r\n    Property characterSet : String Read FCharacterSet;\r\n    property childElementCount : NativeInt Read FChildElementCount;\r\n    property compatMode : String Read FCompatMode;\r\n    property currentScript : TJSElement Read FCurrentScript;\r\n    property defaultView : TJSWindow Read FDefaultView;\r\n    property doctype : TJSDocumentType read FDocType;\r\n    property documentElement : TJSElement read FDocumentElement;\r\n    property documentURI : String Read FDocumentURI;\r\n    property embeds : TJSHTMLCollection Read FEmbeds;\r\n    property firstElementChild : TJSElement Read FFirstElementChild;\r\n    property lastElementChild : TJSElement Read FLastElementChild;\r\n    property Forms : TJSHTMLCollection Read FForms;\r\n    property fullscreenElement : TJSElement Read FFullScreenElement;\r\n    property fullscreenEnabled : Boolean Read FFullscreenEnabled;\r\n    property head : TJSElement read FHead;\r\n    Property hidden : Boolean read FHidden;\r\n    property images : TJSHTMLCollection Read FImages;\r\n    property _implementation : TJSDOMImplementation Read FImplementation;\r\n    property lastModified : String Read FLastModified;\r\n    property lastStyleSheetSet : String read FLastStyleSheetSet;\r\n    property links : TJSHTMLCollection Read FLinks;\r\n    property location : TJSLocation read FLocation;\r\n    Property LocationString : String Read FURL Write FLocationString; // On purpose\r\n    property plugins : TJSHTMLCollection Read FPlugins;\r\n    property pointerLockElement : TJSElement Read FPointerLockElement;\r\n    property preferredStyleSheetSet : String Read FPreferredStyleSheetSet;\r\n    Property readyState : String Read FReadyState;\r\n    Property referrer : String Read FReferrer;\r\n    property scripts : TJSHTMLCollection Read FScripts;\r\n    property styleSheets : TJSStyleSheetList Read FStyleSheets;\r\n    property styleSheetSets : TJSValueDynArray Read FStyleSheetSets; // No type documented ?\r\n    Property URL : String Read FURL;\r\n    property visibilityState : string read FVisibilityState;\r\n  end;\r\n\r\n  TJSConsole = class {$IFDEF PAS2JS} external name 'Console'   {$ENDIF}(TJSObject)\r\n  Public\r\n    procedure assert(anAssertion : string; Obj1 : JSValue); varargs;\r\n    Procedure clear;  \r\n    procedure count; overload;\r\n    procedure count(aCounter : String);\r\n    procedure debug(Obj1 : JSValue); {$IFDEF PAS2JS} varargs of JSValue; {$ENDIF}\r\n    procedure error(Obj1 : JSValue); {$IFDEF PAS2JS} varargs of JSValue; {$ENDIF}\r\n    procedure group; overload;\r\n    procedure group(aLabel : String); overload;\r\n    procedure groupCollapsed; overload;\r\n    procedure groupCollapsed(aLabel : String);overload;\r\n    procedure groupEnd;\r\n    procedure info(Obj1 : JSValue); {$IFDEF PAS2JS} varargs of JSValue; {$ENDIF}\r\n    procedure log(Obj1 : JSValue); {$IFDEF PAS2JS} varargs of JSValue; {$ENDIF}\r\n    procedure table(args: array of JSValue); overload;\r\n    procedure table(args: array of JSValue; Columns : Array of string);\r\n    procedure table(args: TJSObject); overload;\r\n    procedure table(args: TJSObject; Columns : Array of string); overload;\r\n    procedure time(aName : string);\r\n    procedure timeEnd(aName : string);\r\n    procedure timeLog(aName : string);\r\n    procedure trace;\r\n    procedure warn(Obj1 : JSValue); {$IFDEF PAS2JS} varargs of JSValue; {$ENDIF}\r\n  end;\r\n\r\n//  TJSBufferSource = class external name 'BufferSource' end;\r\n//  TJSTypedArray = class external name 'TypedArray' end;\r\n\r\n  // Forward class definitions\r\n  TJSCryptoKey = Class;\r\n  TJSSubtleCrypto = Class;\r\n  KeyType = String;\r\n  KeyUsage = String;\r\n  NamedCurve = String;\r\n  BigInteger = TJSUint8Array;\r\n  KeyFormat = String;\r\n  // Union of object, DOMString\r\n  AlgorithmIdentifier = JSValue; \r\n  \r\n  { --------------------------------------------------------------------\r\n    Algorithm\r\n    --------------------------------------------------------------------}\r\n  \r\n  Algorithm = record\r\n    name : String;\r\n  end;\r\n  \r\n  { --------------------------------------------------------------------\r\n    AesCbcParams\r\n    --------------------------------------------------------------------}\r\n  \r\n  AesCbcParams = record\r\n    iv : TJSBufferSource;\r\n  end;\r\n  \r\n  { --------------------------------------------------------------------\r\n    AesCtrParams\r\n    --------------------------------------------------------------------}\r\n  \r\n  AesCtrParams = record\r\n    counter : TJSBufferSource;\r\n    length_ : Byte;external name 'length';\r\n  end;\r\n  \r\n  { --------------------------------------------------------------------\r\n    AesGcmParams\r\n    --------------------------------------------------------------------}\r\n  \r\n  AesGcmParams = record\r\n    iv : TJSBufferSource;\r\n    additionalData : TJSBufferSource;\r\n    tagLength : Byte;\r\n  end;\r\n  \r\n  { --------------------------------------------------------------------\r\n    HmacImportParams\r\n    --------------------------------------------------------------------}\r\n  \r\n  HmacImportParams = record\r\n    hash : AlgorithmIdentifier;\r\n  end;\r\n  \r\n  { --------------------------------------------------------------------\r\n    Pbkdf2Params\r\n    --------------------------------------------------------------------}\r\n  \r\n  Pbkdf2Params = record\r\n    salt : TJSBufferSource;\r\n    iterations : NativeInt;\r\n    hash : AlgorithmIdentifier;\r\n  end;\r\n  \r\n  { --------------------------------------------------------------------\r\n    RsaHashedImportParams\r\n    --------------------------------------------------------------------}\r\n  \r\n  RsaHashedImportParams = record\r\n    hash : AlgorithmIdentifier;\r\n  end;\r\n  \r\n  { --------------------------------------------------------------------\r\n    AesKeyGenParams\r\n    --------------------------------------------------------------------}\r\n  \r\n  AesKeyGenParams = record\r\n    length_ : Integer;external name 'length';\r\n  end;\r\n  \r\n  { --------------------------------------------------------------------\r\n    HmacKeyGenParams\r\n    --------------------------------------------------------------------}\r\n  \r\n  HmacKeyGenParams = record\r\n    hash : AlgorithmIdentifier;\r\n    length_ : Integer;external name 'length';\r\n  end;\r\n  \r\n  { --------------------------------------------------------------------\r\n    RsaHashedKeyGenParams\r\n    --------------------------------------------------------------------}\r\n  \r\n  RsaHashedKeyGenParams = record\r\n    modulusLength : Integer;\r\n    publicExponent : BigInteger;\r\n    hash : AlgorithmIdentifier;\r\n  end;\r\n  \r\n  { --------------------------------------------------------------------\r\n    RsaOaepParams\r\n    --------------------------------------------------------------------}\r\n  \r\n  RsaOaepParams = record\r\n    label_ : TJSBufferSource;external name 'label';\r\n  end;\r\n  \r\n  { --------------------------------------------------------------------\r\n    RsaPssParams\r\n    --------------------------------------------------------------------}\r\n  \r\n  RsaPssParams = record\r\n    saltLength : Integer;\r\n  end;\r\n  \r\n  { --------------------------------------------------------------------\r\n    DhKeyGenParams\r\n    --------------------------------------------------------------------}\r\n  \r\n  DhKeyGenParams = record\r\n    prime : BigInteger;\r\n    generator : BigInteger;\r\n  end;\r\n  \r\n  { --------------------------------------------------------------------\r\n    EcKeyGenParams\r\n    --------------------------------------------------------------------}\r\n  \r\n  EcKeyGenParams = record\r\n    _namedCurve : NamedCurve;external name 'namedCurve';\r\n  end;\r\n  \r\n  { --------------------------------------------------------------------\r\n    AesDerivedKeyParams\r\n    --------------------------------------------------------------------}\r\n  \r\n  AesDerivedKeyParams = record\r\n    length_ : Integer;external name 'length';\r\n  end;\r\n  \r\n  { --------------------------------------------------------------------\r\n    HmacDerivedKeyParams\r\n    --------------------------------------------------------------------}\r\n  \r\n  HmacDerivedKeyParams = record\r\n    length_ : Integer;external name 'length';\r\n  end;\r\n  \r\n  { --------------------------------------------------------------------\r\n    EcdhKeyDeriveParams\r\n    --------------------------------------------------------------------}\r\n  \r\n  EcdhKeyDeriveParams = record\r\n    public_ : TJSCryptoKey; external name 'public';\r\n  end;\r\n  \r\n  { --------------------------------------------------------------------\r\n    DhKeyDeriveParams\r\n    --------------------------------------------------------------------}\r\n  \r\n  DhKeyDeriveParams = record\r\n    public_ : TJSCryptoKey;  external name 'public';\r\n  end;\r\n  \r\n  { --------------------------------------------------------------------\r\n    DhImportKeyParams\r\n    --------------------------------------------------------------------}\r\n  \r\n  DhImportKeyParams = record\r\n    prime : BigInteger;\r\n    generator : BigInteger;\r\n  end;\r\n  \r\n  { --------------------------------------------------------------------\r\n    EcdsaParams\r\n    --------------------------------------------------------------------}\r\n  \r\n  EcdsaParams = record\r\n    hash : AlgorithmIdentifier;\r\n  end;\r\n  \r\n  { --------------------------------------------------------------------\r\n    EcKeyImportParams\r\n    --------------------------------------------------------------------}\r\n  \r\n  EcKeyImportParams = record\r\n    _namedCurve : NamedCurve;external name 'namedCurve';\r\n  end;\r\n  \r\n  { --------------------------------------------------------------------\r\n    HkdfParams\r\n    --------------------------------------------------------------------}\r\n  \r\n  HkdfParams = record\r\n    hash : AlgorithmIdentifier;\r\n    salt : TJSBufferSource;\r\n    info : TJSBufferSource;\r\n  end;\r\n  \r\n  { --------------------------------------------------------------------\r\n    RsaOtherPrimesInfo\r\n    --------------------------------------------------------------------}\r\n  \r\n  RsaOtherPrimesInfo = record\r\n    r : String;\r\n    d : String;\r\n    t : String;\r\n  end;\r\n  \r\n  { --------------------------------------------------------------------\r\n    JsonWebKey\r\n    --------------------------------------------------------------------}\r\n  \r\n  TRsaOtherPrimesInfoDynArray = Array of RsaOtherPrimesInfo;\r\n  JsonWebKey = record\r\n    kty : String;\r\n    use : String;\r\n    key_ops : TStringDynArray;\r\n    alg : String;\r\n    ext : boolean;\r\n    crv : String;\r\n    x : String;\r\n    y : String;\r\n    d : String;\r\n    n : String;\r\n    e : String;\r\n    p : String;\r\n    q : String;\r\n    dp : String;\r\n    dq : String;\r\n    qi : String;\r\n    oth : TRsaOtherPrimesInfoDynArray;\r\n    k : String;\r\n  end;\r\n  \r\n  { --------------------------------------------------------------------\r\n    CryptoKeyPair\r\n    --------------------------------------------------------------------}\r\n  \r\n  CryptoKeyPair = record\r\n    publicKey : TJSCryptoKey;\r\n    privateKey : TJSCryptoKey;\r\n  end;\r\n  \r\n  { --------------------------------------------------------------------\r\n    TJSCryptoKey\r\n    --------------------------------------------------------------------}\r\n  \r\n  TKeyUsageDynArray = Array of KeyUsage;\r\n  TJSCryptoKey = class external name 'CryptoKey' \r\n  Private\r\n    Ftype_ : KeyType; external name 'type'; \r\n    Fextractable : boolean; external name 'extractable'; \r\n    Falgorithm : TJSObject; external name 'algorithm'; \r\n    Fusages : TKeyUsageDynArray; external name 'usages'; \r\n  Public\r\n    \r\n    Property type_ : KeyType Read Ftype_; \r\n    Property extractable : boolean Read Fextractable; \r\n    Property algorithm : TJSObject Read Falgorithm; \r\n    Property usages : TKeyUsageDynArray Read Fusages; \r\n  end;\r\n  \r\n  { --------------------------------------------------------------------\r\n    TJSSubtleCrypto\r\n    --------------------------------------------------------------------}\r\n  \r\n  TJSSubtleCrypto = class external name 'SubtleCrypto' \r\n  Private\r\n  Public\r\n    function encrypt(algorithm : AlgorithmIdentifier; key : TJSCryptoKey; data : TJSBufferSource): TJSPromise;\r\n    function decrypt(algorithm : AlgorithmIdentifier; key : TJSCryptoKey; data : TJSBufferSource): TJSPromise;\r\n    function sign(algorithm : AlgorithmIdentifier; key : TJSCryptoKey; data : TJSBufferSource): TJSPromise;\r\n    function verify(algorithm : AlgorithmIdentifier; key : TJSCryptoKey; signature : TJSBufferSource; data : TJSBufferSource): TJSPromise;\r\n    function digest(algorithm : AlgorithmIdentifier; data : TJSBufferSource): TJSPromise;\r\n    function generateKey(algorithm : AlgorithmIdentifier; extractable : boolean; keyUsages : TKeyUsageDynArray): TJSPromise;\r\n    function deriveKey(algorithm : AlgorithmIdentifier; baseKey : TJSCryptoKey; derivedKeyType : AlgorithmIdentifier; extractable : boolean; keyUsages : TKeyUsageDynArray): TJSPromise;\r\n    function deriveBits(algorithm : AlgorithmIdentifier; baseKey : TJSCryptoKey; length_ : NativeInt): TJSPromise;\r\n    function importKey(format : KeyFormat; keyData : TJSObject; algorithm : AlgorithmIdentifier; extractable : boolean; keyUsages : TKeyUsageDynArray): TJSPromise;\r\n    function exportKey(format : KeyFormat; key : TJSCryptoKey): TJSPromise;\r\n    function wrapKey(format : KeyFormat; key : TJSCryptoKey; wrappingKey : TJSCryptoKey; wrapAlgorithm : AlgorithmIdentifier): TJSPromise;\r\n    function unwrapKey(format : KeyFormat; wrappedKey : TJSBufferSource; unwrappingKey : TJSCryptoKey; unwrapAlgorithm : AlgorithmIdentifier; unwrappedKeyAlgorithm : AlgorithmIdentifier; extractable : boolean; keyUsages : TKeyUsageDynArray): TJSPromise;\r\n  end;\r\n  { TJSCrypto }\r\n\r\n  TJSCrypto = class {$IFDEF PAS2JS} external name 'Crypto'   {$ENDIF}(TJSObject)\r\n  private\r\n    Fsubtle: TJSSubtleCrypto; external name 'subtle';\r\n  Public\r\n    procedure getRandomValues (anArray : TJSTypedArray);\r\n    property subtle : TJSSubtleCrypto Read Fsubtle;\r\n  end;\r\n  \r\n  { TJSHistory }\r\n\r\n  TJSHistory = class {$IFDEF PAS2JS} external name 'History'   {$ENDIF}(TJSObject)\r\n  private\r\n    FLength: NativeInt; external name 'length';\r\n{$IFDEF FIREFOX}\r\n    FState : JSValue; external name 'state';\r\n{$ENDIF}\r\n  Public\r\n    procedure back;\r\n    procedure forward;\r\n    procedure go(aIndex : NativeInt);\r\n    procedure go;\r\n    procedure pushState(aState : jsValue; aTitle : String; AURL : String);\r\n    procedure pushState(aState : jsValue; aTitle : String);\r\n    procedure replaceState(aState : jsValue; aTitle : String; AURL : String);\r\n    procedure replaceState(aState : jsValue; aTitle : String);\r\n    procedure replaceState(aState : jsValue);\r\n{$IFDEF FIREFOX}\r\n    property state : JSValue read FState;\r\n{$ENDIF}\r\n    property length: NativeInt read FLength;\r\n  end;\r\n\r\n  TJSIDBTransactionMode = class\r\n  const\r\n    readonly = 'readonly';\r\n    readwrite = 'readwrite';\r\n    versionchange = 'versionchange';\r\n  end;\r\n\r\n\r\n  { TJSIDBTransaction }\r\n\r\n  TJSIDBTransaction = class {$IFDEF PAS2JS} external name 'IDBTransaction'   {$ENDIF}(TJSEventTarget)\r\n  private\r\n    FDB : TIDBDatabase; external name 'db';\r\n    FError: JSValue; external name 'error';\r\n    FMode: String; external name 'mode';\r\n    FObjectStoreNames: TStringDynArray; external name 'objectStoreNames';\r\n  public\r\n    procedure abort;\r\n    function objectStore(aName : String) : TJSIDBObjectStore;\r\n    property db : TIDBDatabase read FDB;\r\n    property mode : String read FMode;\r\n    property objectStoreNames : TStringDynArray read FObjectStoreNames;\r\n    property error : JSValue read FError;\r\n  end;\r\n\r\n\r\n  { TJSIDBKeyRange }\r\n\r\n  TJSIDBKeyRange = class {$IFDEF PAS2JS} external name 'IDBKeyRange'   {$ENDIF}(TJSObject)\r\n  private\r\n    FLower: JSValue;\r\n    FLowerOpen: Boolean;\r\n    FUpper: JSValue;\r\n    FUpperOpen: Boolean;\r\n  Public\r\n    Class Function bound(aLower,aUpper : JSValue) : TJSIDBKeyRange; overload;\r\n    Class Function bound(aLower,aUpper : JSValue; aLowerOpen : Boolean) : TJSIDBKeyRange; overload;\r\n    Class Function bound(aLower,aUpper : JSValue; aLowerOpen,aUpperOpen : Boolean) : TJSIDBKeyRange; overload;\r\n    Class Function lowerBound(aLower : JSValue) : TJSIDBKeyRange; overload;\r\n    Class Function lowerBound(aLower : JSValue; aOpen: Boolean) : TJSIDBKeyRange; overload;\r\n    Class Function only(aValue : JSValue) : TJSIDBKeyRange;\r\n    Class Function upperBound(aUpper : JSValue) : TJSIDBKeyRange; overload;\r\n    Class Function upperBound(aUpper : JSValue; aOpen: Boolean) : TJSIDBKeyRange; overload;\r\n    function includes (aValue : JSValue) : Boolean;\r\n    property lower : JSValue read FLower;\r\n    property lowerOpen : Boolean read FLowerOpen;\r\n    property upper : JSValue read FUpper;\r\n    property upperOpen : Boolean read FUpperOpen;\r\n  end;\r\n\r\n  TJSIDBIndexParameters = record\r\n    unique : boolean;\r\n    multiEntry : boolean;\r\n    locale : string;\r\n  end;\r\n\r\n\r\n  { TJSIDBIndex }\r\n\r\n  TJSIDBIndex = class {$IFDEF PAS2JS} external name 'IDBIndex'   {$ENDIF}(TJSObject)\r\n  private\r\n    FKeyPath: JSValue; external name 'keyPath';\r\n    FMultiEntry: Boolean; external name 'multiEntry';\r\n    FObjectStore: TJSIDBObjectStore; external name 'objectStore';\r\n    FUnique: boolean; external name 'unique';\r\n  public\r\n    name : string;\r\n    function count : TJSIDBRequest;\r\n    function get(aKey : jsValue) : TJSIDBRequest; overload;\r\n    function get(aKey : TJSIDBKeyRange) : TJSIDBRequest; overload;\r\n    function getAll(aKey : jsValue) : TJSIDBRequest; overload;\r\n    function getAll(aKey : TJSIDBKeyRange) : TJSIDBRequest; overload;\r\n    function getAll(aKey : jsValue; ACount : NativeInt) : TJSIDBRequest; overload;\r\n    function getAll(aKey : TJSIDBKeyRange; ACount : NativeInt) : TJSIDBRequest; overload;\r\n    function getAllKeys(aKey : jsValue) : TJSIDBRequest; overload;\r\n    function getAllKeys(aKey : TJSIDBKeyRange) : TJSIDBRequest; overload;\r\n    function getAllKeys(aKey : jsValue; ACount : NativeInt) : TJSIDBRequest; overload;\r\n    function getAllKeys(aKey : TJSIDBKeyRange; ACount : NativeInt) : TJSIDBRequest; overload;\r\n    function getKey(aKey : jsValue) : TJSIDBRequest;\r\n    function openCursor : TJSIDBRequest; overload;\r\n    function openCursor(aKeyRange : TJSIDBKeyRange) : TJSIDBRequest; overload;\r\n    function openCursor(aKeyRange : TJSIDBKeyRange; ADirection : String) : TJSIDBRequest;overload;\r\n    function openKeyCursor : TJSIDBRequest;overload;\r\n    function openKeyCursor(aKeyRange : TJSIDBKeyRange) : TJSIDBRequest;overload;\r\n    function openKeyCursor(aKeyRange : TJSIDBKeyRange; ADirection : String) : TJSIDBRequest;overload;\r\n    Property keyPath : JSValue Read FKeyPath;\r\n    property multiEntry : Boolean read FMultiEntry;\r\n    property objectStore : TJSIDBObjectStore read FObjectStore;\r\n    property unique : boolean read FUnique;\r\n  end;\r\n\r\n  TJSIDBCursorDirection = class {$IFDEF PAS2JS} external name 'IDBCursorDirection'   {$ENDIF}(TJSObject)\r\n  Const\r\n    next = 'next';\r\n    nextUnique = 'nextUnique';\r\n    prev = 'prev';\r\n    prevUnique = 'prevUnique';\r\n  end;\r\n\r\n\r\n  { TJSIDBCursor }\r\n\r\n  TJSIDBCursor = class {$IFDEF PAS2JS} external name 'IDBCursor'   {$ENDIF}(TJSObject)\r\n  private\r\n    FDirection: string; external name 'direction';\r\n    FKey: JSValue; external name 'key';\r\n    FValue : JSValue; external name 'value';\r\n    FPrimaryKey: JSValue; external name 'primaryKey';\r\n    FSource: JSValue; external name 'source';\r\n    FSourceAsIndex: TJSIDBIndex; external name 'source';\r\n    FSourceAsStore: TJSIDBObjectStore; external name 'source';\r\n  Public\r\n    procedure advance(aCount : NativeInt); overload;\r\n    procedure advance(aKey : JSValue); overload;\r\n    procedure continue(aKey : JSValue); overload;\r\n    procedure continue; overload;\r\n    procedure continuePrimaryKey(aKey : JSValue); overload;\r\n    procedure continuePrimaryKey(aKey,aPrimaryKey : JSValue); overload;\r\n    procedure delete;\r\n    procedure update(aValue : JSValue);\r\n    property source : JSValue read FSource;\r\n    property sourceAsStore : TJSIDBObjectStore read FSourceAsStore;\r\n    property sourceAsIndex : TJSIDBIndex read FSourceAsIndex;\r\n    property key : JSValue read FKey;\r\n    Property Value : JSValue Read FValue;\r\n    property primaryKey : JSValue read FPrimaryKey;\r\n    property direction : string read FDirection;\r\n  end;\r\n\r\n  TJSIDBObjectStore = class {$IFDEF PAS2JS} external name 'IDBObjectStore'   {$ENDIF}(TJSEventTarget)\r\n  public\r\n    function add(aValue : JSValue; aKey : String) : TJSIDBRequest;\r\n    function add(aValue : JSValue) : TJSIDBRequest;\r\n    function clear : TJSIDBRequest;\r\n    function delete(aKey : string) : TJSIDBRequest;\r\n    function delete(aKeyRange : TJSIDBKeyRange) : TJSIDBRequest;\r\n    function get(aKey : string) : TJSIDBRequest; overload;\r\n    function get(aKeyRange : TJSIDBKeyRange) : TJSIDBRequest; overload;\r\n    function getKey(aKey : string) : TJSIDBRequest; overload;\r\n    function getKey(aKeyRange : TJSIDBKeyRange) : TJSIDBRequest; overload;\r\n    function getAll : TJSIDBRequest; overload;\r\n    function getAll(aKey : String) : TJSIDBRequest; overload;\r\n    function getAll(aKeyRange : TJSIDBKeyRange) : TJSIDBRequest; overload;\r\n    function getAll(aKey : String; aCount: NativeInt) : TJSIDBRequest; overload;\r\n    function getAll(aKeyRange : TJSIDBKeyRange; aCount: NativeInt) : TJSIDBRequest; overload;\r\n    function getAllKeys(aKey : String) : TJSIDBRequest; overload;\r\n    function getAllKeys(aKeyRange : TJSIDBKeyRange) : TJSIDBRequest; overload;\r\n    function getAllKeys(aKey : String; aCount: NativeInt) : TJSIDBRequest; overload;\r\n    function getAllKeys(aKeyRange : TJSIDBKeyRange; aCount: NativeInt) : TJSIDBRequest; overload;\r\n    function createIndex (aIndexName : String; KeyPath : String)  : TJSIDBIndex; overload;\r\n    function createIndex (aIndexName : String; KeyPath : String; Options : TJSIDBIndexParameters)  : TJSIDBIndex; overload;\r\n    function createIndex (aIndexName : String; KeyPath : Array of String)  : TJSIDBIndex; overload;\r\n    function createIndex (aIndexName : String; KeyPath : Array of String; Options : TJSIDBIndexParameters)  : TJSIDBIndex; overload;\r\n    Procedure deleteIndex (aIndexName : String);\r\n    function index (aIndexName : String)  : TJSIDBIndex;\r\n    function put(aValue : JSValue; aKey : String) : TJSIDBRequest; overload;\r\n    function put(aValue : JSValue) : TJSIDBRequest; overload;\r\n    function openCursor : TJSIDBRequest; overload;\r\n    function openCursor(aKey : String) : TJSIDBRequest; overload;\r\n    function openCursor(aKeyRange : TJSIDBKeyRange) : TJSIDBRequest; overload;\r\n    function openCursor(aKey : String; aDirection : string) : TJSIDBRequest; overload;\r\n    function openCursor(aKeyRange : TJSIDBKeyRange; aDirection : string) : TJSIDBRequest; overload;\r\n    function openKeyCursor : TJSIDBRequest; overload;\r\n    function openKeyCursor(aKey : String) : TJSIDBRequest; overload;\r\n    function openKeyCursor(aKeyRange : TJSIDBKeyRange) : TJSIDBRequest; overload;\r\n    function openKeyCursor(aKey : String; aDirection : string) : TJSIDBRequest; overload;\r\n    function openKeyCursor(aKeyRange : TJSIDBKeyRange; aDirection : string) : TJSIDBRequest; overload;\r\n    function count : TJSIDBRequest; overload;\r\n    function count(aKey : String) : TJSIDBRequest; overload;\r\n    function count(aKeyRange : TJSIDBKeyRange) : TJSIDBRequest; overload;\r\n    property Indexes [aIndexName : String] : TJSIDBIndex read index;\r\n  end;\r\n\r\n  { TJSIDBRequest }\r\n\r\n  TJSIDBRequest = class {$IFDEF PAS2JS} external name 'IDBRequest'   {$ENDIF}(TJSEventTarget)\r\n  private\r\n    Ferror : JSValue; external name 'error'; // standards are not quite clear on this one\r\n    FReadyState: string; external name 'readyState';\r\n    FResult: JSValue; external name 'result';\r\n    FResultDatabase: TIDBDatabase; external name 'result';\r\n    FResultIndex: TJSIDBIndex; external name 'result';\r\n    FResultObjectStore : TJSIDBObjectStore; external name 'result';\r\n    FResultCursor : TJSIDBCursor; external name 'result';\r\n    FSourceDatabase: TIDBDatabase; external name 'source';\r\n    FSourceIndex: TJSIDBIndex; external name 'source';\r\n    FSourceObjectStore : TJSIDBObjectStore; external name 'source';\r\n    FSourceCursor : TJSIDBCursor; external name 'source';\r\n    FSource: JSValue; external name 'source';\r\n    FTransaction: TJSIDBTransaction; external name 'transaction';\r\n  Public\r\n    onerror : TJSEventHandler;\r\n    onsuccess : TJSEventHandler;\r\n    Property error : JSValue read FError;\r\n    property readyState : string read FReadyState;\r\n\r\n    property result : JSValue read FResult;\r\n    property resultAsObjectStore : TJSIDBObjectStore read FResultObjectStore;\r\n    property resultAsCursor : TJSIDBCursor read FResultCursor;\r\n    property resultAsIndex : TJSIDBIndex read FResultIndex;\r\n    property resultAsDatabase : TIDBDatabase read FResultDatabase;\r\n\r\n    property source : JSValue read FSource;\r\n    property sourceAsObjectStore : TJSIDBObjectStore read FSourceObjectStore;\r\n    property sourceAsCursor : TJSIDBCursor read FSourceCursor;\r\n    property sourceAsIndex : TJSIDBIndex read FSourceIndex;\r\n    property sourceAsDatabase : TIDBDatabase read FSourceDatabase;\r\n\r\n    property transaction : TJSIDBTransaction read FTransaction;\r\n  end;\r\n\r\n  TJSIDBOpenDBRequest = class {$IFDEF PAS2JS} external name 'IDBOpenDBRequest'  {$ENDIF}(TJSIDBRequest)\r\n  Public\r\n    onblocked : TJSEventHandler;\r\n    onupgradeneeded : TJSEventHandler;\r\n  end;\r\n\r\n  TJSCreateObjectStoreOptions = record\r\n    keyPath : jsValue;\r\n    autoIncrement : boolean;\r\n  end;\r\n\r\n  { TIDBDatabase }\r\n\r\n  TIDBDatabase = class {$IFDEF PAS2JS} external name 'IDBDatabase'  {$ENDIF}(TJSEventTarget)\r\n  private\r\n    FName: string; external name 'name';\r\n    FobjectStoreNames: TStringDynArray; external name 'objectStoreNames';\r\n    FVersion: integer; external name 'version';\r\n  public\r\n    procedure close;\r\n    function createObjectStore(aName : string) : TJSIDBObjectStore; overload;\r\n    function createObjectStore(aName : string; Options: TJSCreateObjectStoreOptions) : TJSIDBObjectStore; overload;\r\n    procedure deleteObjectStore(aName : string);\r\n    function transaction(aStoreNames : array of string) : TJSIDBTransaction; overload;\r\n    function transaction(aStoreNames : array of string; aMode : string) : TJSIDBTransaction; overload;\r\n    property name : string read FName;\r\n    property version : integer read FVersion;\r\n    property objectStoreNames : TStringDynArray read FobjectStoreNames;\r\n  end;\r\n\r\n  TJSIDBFactory = class {$IFDEF PAS2JS} external name 'IDBFactory'  {$ENDIF}(TJSEventTarget)\r\n  public\r\n    function open(aName : string) : TJSIDBOpenDBRequest;\r\n    function open(aName : string; aVersion : Integer) : TJSIDBOpenDBRequest;\r\n    function deleteDatabase(aName : string) : TJSIDBOpenDBRequest;\r\n    function cmp (a,b : jsValue) : NativeInt;\r\n  end;\r\n  \r\n  { TJSStorage }\r\n\r\n  TJSStorage = class {$IFDEF PAS2JS} external name 'Storage'  {$ENDIF}(TJSEventTarget)\r\n  private\r\n    FLength: NativeInt; external name 'length';\r\n  public\r\n    function key(aIndex : Integer) : String;\r\n    function getItem(aKeyName : string) : string;\r\n    procedure setItem(aKeyName : string; aValue : string);\r\n    procedure removeItem(aKeyName : string);\r\n    procedure clear;\r\n    property Keys[AIndex : Integer] : String read key;\r\n    property Items[aKeyName: String] : String read getItem write setItem; default;\r\n    property length : NativeInt Read FLength;\r\n  end;\r\n\r\n  // Fake object, used for objects whose visible can be checked\r\n  TJSVisibleItem = class {$IFDEF PAS2JS} external name 'IVisible'   {$ENDIF}(TJSObject)\r\n  Private\r\n    FVisible : boolean; external name 'visible';\r\n  Public\r\n    Property visible : boolean read FVisible;\r\n  end;\r\n  \r\n  TJSLocationBar = class {$IFDEF PAS2JS} external name 'LocationBar'  {$ENDIF}(TJSVisibleItem);\r\n  TJSMenuBar = class {$IFDEF PAS2JS} external name 'MenuBar'  {$ENDIF}(TJSVisibleItem);\r\n  TJSToolBar = class {$IFDEF PAS2JS} external name 'ToolBar'  {$ENDIF}(TJSVisibleItem);\r\n  TJSPersonalBar = class {$IFDEF PAS2JS} external name 'PersonalBar'  {$ENDIF}(TJSVisibleItem);\r\n  TJSScrollBars = class {$IFDEF PAS2JS} external name 'ScrollBars'  {$ENDIF}(TJSVisibleItem);\r\n\r\n  TJSPositionError = record\r\n    code : integer;\r\n    message : string;\r\n  end;\r\n\r\n  TJSPositionOptions = record\r\n    enableHighAccuracy : boolean;\r\n    timeout : integer;\r\n    maximumAge : integer;\r\n  end;\r\n\r\n  TJSCoordinates = record\r\n    latitude : double;\r\n    longitude : double;\r\n    altitude : double;\r\n    accuracy : double;\r\n    altitudeAccuracy : double;\r\n    heading : double;\r\n    speed : double;\r\n  end;\r\n\r\n  TJSPosition = record\r\n    coords : TJSCoordinates;\r\n    timestamp : String;\r\n  end;\r\n\r\n  TJSGeoLocationCallback = procedure (aPosition : TJSPosition);\r\n  TJSGeoLocationEvent = procedure (aPosition : TJSPosition) of object;\r\n  TJSGeoLocationErrorCallback = procedure (aValue : TJSPositionError);\r\n  TJSGeoLocationErrorEvent = procedure (aValue : TJSPositionError) of object;\r\n\r\n  TJSGeoLocation  = class {$IFDEF PAS2JS} external name 'GeoLocation'   {$ENDIF}(TJSObject)\r\n  Public\r\n    Procedure getCurrentPosition(ASuccess : TJSGeoLocationCallback); overload;\r\n    Procedure getCurrentPosition(ASuccess : TJSGeoLocationCallback;aError : TJSGeoLocationErrorCallback); overload;\r\n    Procedure getCurrentPosition(ASuccess : TJSGeoLocationCallback;aError : TJSGeoLocationErrorCallback; AOptions : TJSPositionOptions); overload;\r\n    Function watchPosition(ASuccess : TJSGeoLocationCallback) : NativeInt; overload;\r\n    Function watchPosition(ASuccess : TJSGeoLocationCallback;aError : TJSGeoLocationErrorCallback) : NativeInt; overload;\r\n    Function watchPosition(ASuccess : TJSGeoLocationCallback;aError : TJSGeoLocationErrorCallback; AOptions : TJSPositionOptions) : NativeInt; overload;\r\n    procedure clearWatch(AID : NativeInt);\r\n  end;\r\n\r\n  TJSMediaStreamTrack = class {$IFDEF PAS2JS} external name 'MediaStreamTrack'  {$ENDIF}(TJSEventTarget)\r\n  end;\r\n\r\n  TJSMediaDevices = class {$IFDEF PAS2JS} external name 'MediaDevices'  {$ENDIF}(TJSEventTarget)\r\n  end;\r\n\r\n  TJSWorker = class {$IFDEF PAS2JS} external name 'Worker'  {$ENDIF}(TJSEventTarget)\r\n  public\r\n    constructor new(aURL : string);\r\n    procedure postMessage(aValue : JSValue);\r\n    procedure postMessage(aValue : JSValue; aList : TJSValueDynArray);\r\n    procedure terminate;\r\n  end;\r\n\r\n  TJSMessagePort = class {$IFDEF PAS2JS} external name 'MessagePort'  {$ENDIF}(TJSEventTarget)\r\n  Public\r\n    procedure close;\r\n    procedure postMessage(aValue : JSValue);\r\n    procedure postMessage(aValue : JSValue; aList : TJSValueDynArray);\r\n    procedure start;\r\n  end;\r\n  TJSMessagePortDynArray = Array of TJSMessagePort;\r\n\r\n  { TJSSharedWorker }\r\n\r\n  TJSSharedWorker = class {$IFDEF PAS2JS} external name 'SharedWorker'  {$ENDIF}(TJSEventTarget)\r\n  private\r\n    FPort: TJSMessagePort; external name 'port';\r\n  Public\r\n    constructor new(aURL : String); overload;\r\n    constructor new(aURL : String; aName : string); overload;\r\n    property port : TJSMessagePort Read FPort;\r\n  end;\r\n\r\n  TJSExtendableEvent = class {$IFDEF PAS2JS} external name 'ExtendableEvent'  {$ENDIF}(TJSEvent)\r\n    Procedure waitUntil(aPromise : TJSPromise);\r\n  end;\r\n\r\n  { TJSExtendableMessageEvent }\r\n\r\n  TJSExtendableMessageEvent = class {$IFDEF PAS2JS} external name 'ExtendableMessageEvent'  {$ENDIF}(TJSExtendableEvent)\r\n  private\r\n    FData: JSValue; external name 'data';\r\n    FLastEventID: String; external name 'lastEventId';\r\n    FOrigin: String; external name 'origin';\r\n    FPorts: TJSMessagePortDynArray; external name 'ports';\r\n    FSource: TJSObject; external name 'source';\r\n    FSourceClient: TJSClient; external name 'source';\r\n    FSourcePort: TJSMessagePort; external name 'source';\r\n    FSourceServiceWorker: TJSServiceWorker; external name 'source';\r\n  Public\r\n    Property Data : JSValue Read FData;\r\n    Property LastEventID : String Read FLastEventID;\r\n    Property Origin : String Read FOrigin;\r\n    Property Ports : TJSMessagePortDynArray Read FPorts;\r\n    Property Source : TJSObject Read FSource;\r\n    // Possible types for Source\r\n    Property SourceServiceWorker : TJSServiceWorker Read FSourceServiceWorker;\r\n    Property SourcePort : TJSMessagePort Read FSourcePort;\r\n    Property SourceClient : TJSClient Read FSourceClient;\r\n  end;\r\n\r\n  { TJSFetchEvent }\r\n\r\n  TJSFetchEvent = class {$IFDEF PAS2JS} external name 'FetchEvent'  {$ENDIF}(TJSExtendableEvent)\r\n  private\r\n    FClientID: String; external name 'clientId';\r\n    FReplacesClientID: String; external name 'replacesClientId';\r\n    FRequest: TJSRequest; external name 'request';\r\n    FResultingClientID: String; external name 'resultingClientId';\r\n    FPreloadResponse: TJSPromise; external name 'preloadResponse';\r\n  Public\r\n    Procedure respondWith(aPromise : TJSPromise);\r\n    Procedure respondWith(aResponse : TJSResponse);\r\n    Property ClientId : String Read FClientID;\r\n    Property PreloadResponse : TJSPromise Read FPreloadResponse;\r\n    Property ReplacesClientID : String Read FReplacesClientID;\r\n    Property ResultingClientID : String Read FResultingClientID;\r\n    Property request : TJSRequest Read FRequest;\r\n  end;\r\n\r\n  { TJSClient }\r\n\r\n  TJSClient = class {$IFDEF PAS2JS} external name 'Client'  {$ENDIF}(TJSObject)\r\n  private\r\n    FFrameType: String; external name 'frameType';\r\n    FID: String; external name 'id';\r\n    FType: String; external name 'type';\r\n    FURL: String; external name 'url';\r\n  Public\r\n    procedure postMessage(aValue : JSValue);\r\n    procedure postMessage(aValue : JSValue; aList : TJSValueDynArray);\r\n    Property Id : String Read FID;\r\n    Property Type_ : String Read FType;\r\n    Property FrameType : String Read FFrameType;\r\n    Property URL : String Read FURL;\r\n  end;\r\n\r\n  { TJSServiceWorker }\r\n\r\n  TJSServiceWorker = class {$IFDEF PAS2JS} external name 'ServiceWorker'  {$ENDIF}(TJSWorker)\r\n  private\r\n    FRegistration: TJSServiceWorkerRegistration; external name 'registration';\r\n    FScriptURL: String;  external name 'scriptURL';\r\n    FState: string;  external name 'state';\r\n  Public\r\n    property State : string read FState;\r\n    property ScriptURL : String Read FscriptURL;\r\n    property Registration: TJSServiceWorkerRegistration read FRegistration;\r\n  end;\r\n\r\n  { TJSNavigationPreloadState }\r\n\r\n  TJSNavigationPreloadState = class external name 'navigationPreloadState'\r\n  public\r\n    enabled: boolean;\r\n    headerValue: string;\r\n  end;\r\n\r\n  { TJSNavigationPreload }\r\n\r\n  TJSNavigationPreload = class {$IFDEF PAS2JS} external name 'navigationPreload'  {$ENDIF}(TJSObject)\r\n  public\r\n    function enable: boolean; {$IFDEF PAS2JS} async; {$ENDIF}\r\n    function disable: boolean; {$IFDEF PAS2JS} async; {$ENDIF}\r\n    function setHeaderValue(Value: string): TJSPromise;\r\n    function getState: TJSNavigationPreloadState; {$IFDEF PAS2JS} async; {$ENDIF}\r\n  end;\r\n\r\n  { TJSServiceWorkerRegistration }\r\n\r\n  TJSServiceWorkerRegistration = class {$IFDEF PAS2JS} external name 'ServiceWorkerRegistration'   {$ENDIF}(TJSObject)\r\n  private\r\n    FActive: TJSServiceWorker; external name 'active';\r\n    FInstalling: TJSServiceWorker; external name 'installing';\r\n    FScope: string; external name 'scope';\r\n    FWaiting: TJSServiceWorker; external name 'waiting';\r\n    FNavigationPreload: TJSNavigationPreload; external name 'navigationPreload';\r\n  public\r\n    function unregister : TJSPromise;\r\n    procedure update;\r\n    property Active : TJSServiceWorker read FActive;\r\n    property Scope : string read FScope;\r\n    property Waiting : TJSServiceWorker read FWaiting;\r\n    property Installing : TJSServiceWorker read FInstalling;\r\n    property NavigationPreload: TJSNavigationPreload read FNavigationPreload;\r\n  end;\r\n\r\n  TJSServiceWorkerContainerOptions = record\r\n    scope : string;\r\n  end;\r\n\r\n  { TJSServiceWorkerContainer }\r\n\r\n  TJSServiceWorkerContainer = class {$IFDEF PAS2JS} external name 'ServiceWorkerContainer'   {$ENDIF}(TJSObject)\r\n  private\r\n    FController: TJSServiceWorker; external name 'controller';\r\n    FReady: TJSPromise; external name 'ready';\r\n  Public\r\n    function register(aURL : String) : TJSPromise; overload;\r\n    function register(aURL : String; aOptions : TJSServiceWorkerContainerOptions) : TJSPromise; overload;\r\n    function getRegistration(aURL : String) : TJSPromise; overload;\r\n    function getRegistration : TJSPromise; overload;\r\n    function getRegistrations : TJSPromise;\r\n    property controller : TJSServiceWorker read FController;\r\n    property ready : TJSPromise read FReady;\r\n  end;\r\n\r\n  TJSClipboardItemOptions = class {$IFDEF PAS2JS} external name 'Object'  {$ENDIF}(TJSObject)\r\n    presentationStyle : String;\r\n  end;\r\n\r\n  TJSClipBoardItem = class {$IFDEF PAS2JS} external name 'ClipboardItem'  {$ENDIF}(TJSObject)\r\n    constructor new(aData : TJSObject; aOptions : TJSOBject); overload;\r\n    constructor new(aData : TJSObject; aOptions : TJSClipboardItemOptions); overload;\r\n    constructor new(aData : TJSObject); overload;\r\n  end;\r\n\r\n  TJSClipBoard = class {$IFDEF PAS2JS} external name 'Clipboard'  {$ENDIF}(TJSEventTarget)\r\n    Function read : TJSPromise;\r\n    Function readText : TJSPromise;\r\n    Function write(Data : Array of TJSClipBoardItem) : TJSPromise;\r\n    Function writeText(aText : String) : TJSPromise;\r\n  end;\r\n\r\n  { TJSNavigator }\r\n\r\n  TJSNavigator = class {$IFDEF PAS2JS} external name 'Navigator'   {$ENDIF}(TJSObject)\r\n{$IFDEF FIREFOX}\r\n    FbuildID : String ; external name 'buildID';\r\n    FOSCPU : String ; external name 'oscpu';\r\n    FproductSub : string; external name 'productSub';\r\n    FVendor : string; external name 'vendor';\r\n{$ENDIF}\r\n  private\r\n    FCookieEnabled: Boolean; external name 'cookieEnabled';\r\n    FGeoLocation: TJSGeoLocation; external name 'geolocation';\r\n    FLanguage: String; external name 'language';\r\n    FMaxTouchPoints: NativeInt; external name 'maxTouchPoints';\r\n    FMediaDevices: TJSMediaDevices; external name 'mediaDevices';\r\n    FOnline: boolean; external name 'onLine';\r\n    FPlatform: string; external name 'platform';\r\n    FServiceWorker: TJSServiceWorkerContainer; external name 'serviceWorker';\r\n    FUserAgent: string; external name 'userAgent';\r\n    fClipBoard : TJSClipBoard; external name 'clipboard';\r\n    FPermissions: TJSPermissions; external name 'permissions';\r\n  public\r\n    function getBattery : TJSPromise;\r\n    function requestMediaKeySystemAccess(aKeySystem : String; supportedConfigurations : TJSValueDynArray) : TJSPromise;\r\n    Procedure registerContentHandler(aMimeType,aURI,aTitle : string);\r\n    Procedure registerProtocolHandler(aProtocol,aURI,aTitle : string);\r\n    Procedure vibrate(aPattern : NativeInt);\r\n    Procedure vibrate(aPattern : Array of NativeInt);\r\n{$IFDEF FIREFOX}\r\n    property buildID : String read FBuildID;\r\n    property oscpu : string read FOSCPU;\r\n    property productSub: string read FproductSub;\r\n    property vendor : string read Fvendor;\r\n{$ENDIF}\r\n    property cookieEnabled : Boolean read FCookieEnabled;\r\n    property geoLocation : TJSGeoLocation Read FGeoLocation;\r\n    property language : String read FLanguage;\r\n    property maxTouchPoints : NativeInt read FMaxTouchPoints;\r\n    property mediaDevices : TJSMediaDevices read FMediaDevices;\r\n    property onLine : boolean read FOnline;\r\n    property platform : string read FPlatform;\r\n    property userAgent : string read FUserAgent;\r\n    property serviceWorker : TJSServiceWorkerContainer read FServiceWorker;\r\n    property ClipBoard : TJSClipBoard Read FCLipboard;\r\n    property permissions: TJSPermissions read FPermissions;\r\n  end;\r\n\r\n  { TJSTouchEvent }\r\n  TTouchCoord = longint;\r\n\r\n  TJSTouch = class {$IFDEF PAS2JS} external name 'Touch'   {$ENDIF}(TJSObject)\r\n  private\r\n    FClientX: TTouchCoord; external name 'clientX';\r\n    FClientY: TTouchCoord; external name 'clientY';\r\n    FIDentifier: longint; external name 'identifier';\r\n    FPageX: TTouchCoord; external name 'pageX';\r\n    FPageY: TTouchCoord; external name 'pageY';\r\n    FScreenX: TTouchCoord; external name 'screenX';\r\n    FScreenY: TTouchCoord; external name 'screenY';\r\n    FTarget: TJSElement; external name 'target';\r\n  Public\r\n    Property identifier : longint read FIDentifier;\r\n    Property ScreenX : TTouchCoord Read FScreenX;\r\n    Property ScreenY : TTouchCoord Read FScreenY;\r\n    Property ClientX : TTouchCoord Read FClientX;\r\n    Property ClientY : TTouchCoord Read FClientY;\r\n    Property PageX : TTouchCoord Read FPageX;\r\n    Property PageY : TTouchCoord Read FPageY;\r\n    Property Target : TJSElement Read FTarget;\r\n  end;\r\n\r\n  { TJSTouchList }\r\n\r\n  TJSTouchList = class {$IFDEF PAS2JS} external name 'TouchList'  {$ENDIF}(TJSObject)\r\n  private\r\n    FLength: NativeInt; external name 'length';\r\n  Public\r\n    function item (aIndex : Integer) : TJSTouch;\r\n    property length : NativeInt Read FLength;\r\n    Property Touches[AIndex : Integer] : TJSTouch Read item; default;\r\n  end;\r\n\r\n\r\n  TJSPerformance = class {$IFDEF PAS2JS} external name 'Performance'  {$ENDIF}(TJSObject);\r\n\r\n  TJSScreen = class {$IFDEF PAS2JS} external name 'Screen'  {$ENDIF}(TJSObject)\r\n  private\r\n    FavailHeight: Integer; external name 'availHeight';\r\n    FavailWidth: Integer; external name 'availWidth';\r\n    FcolorDepth: Integer; external name 'colorDepth';\r\n    FPixelDepth: Integer; external name 'pixelDepth';\r\n    Fheight: Integer; external name 'height';\r\n    Fwidth: Integer; external name 'width';\r\n  public\r\n  { Properties declarations }\r\n    property availHeight: Integer read FavailHeight;\r\n    property availWidth: Integer read FavailWidth;\r\n    property colorDepth: Integer read FcolorDepth;\r\n    property pixelDepth: Integer read FPixelDepth;\r\n    property height: Integer read Fheight;\r\n    property width: Integer read Fwidth;\r\n  end;\r\n\r\n\r\n  TJSParamEnumCallBack = reference to procedure (const aKey,aValue : string);\r\n  TJSURLSearchParams = class {$IFDEF PAS2JS} external name 'URLSearchParams'  {$ENDIF}(TJSObject)\r\n  Public\r\n    constructor new(aQuery : String);\r\n    Procedure append(const aName,aValue : string);\r\n    Procedure delete(const aName : string);\r\n    Function entries : TJSIterator;\r\n    Procedure foreach(aEnumCallBack : TJSParamEnumCallBack);\r\n    function get(const aName : string) : JSValue;\r\n    // If you're sure the value exists...\r\n    function getString(const aName : string) : string; external name 'get';\r\n    function getAll(const aName : string) : TStringDynArray;\r\n    function has(const aName : string) : Boolean;\r\n    Function keys : TJSIterator; reintroduce;\r\n    Procedure set_(const aName,aValue : string); external name 'set';\r\n    Procedure sort;\r\n    Function values : TJSIterator; reintroduce;\r\n  end;\r\n\r\n  TJSURL = class {$IFDEF PAS2JS} external name 'URL'  {$ENDIF}(TJSObject)\r\n  Private\r\n    FOrigin : String; external name 'origin';\r\n    FSearchParams : TJSURLSearchParams; external name 'searchParams';\r\n  public\r\n    hash : string;\r\n    host : string;\r\n    hostname : string;\r\n    href : string;\r\n    password : string;\r\n    pathname : string;\r\n    port : string;\r\n    protocol : string;\r\n    search : string;\r\n    username : string;\r\n    constructor new(aURL : String);\r\n    constructor new(aURL,aBase : String);\r\n    class function createObjectURL(const v: JSValue): string;\r\n    class function revokeObjectURL(const S : String): string;\r\n    function toJSON : String;\r\n    Property Origin : String Read FOrigin;\r\n    property SearchParams : TJSURLSearchParams read FSearchParams;\r\n  end;\r\n  TJSURLDynArray = array of TJSURL;\r\n\r\n  TJSTimerCallBack = reference to procedure; {$IFDEF PAS2JS} safecall; {$ENDIF}\r\n  Theader = Array [0..1] of String;\r\n  THeaderArray = Array of Theader;\r\n\r\n  TJSHTMLHeaders = class {$IFDEF PAS2JS} external name 'Headers'  {$ENDIF}(TJSObject)\r\n  Public\r\n    constructor new(values : THeaderArray); overload;\r\n    procedure append(aName, aValue : String);\r\n    procedure delete(aName : String);\r\n    function entries : TJSIterator;\r\n    Function get(aName: String): string;\r\n    Function has(aName: String): Boolean;\r\n    function keys : TJSIterator; reintroduce;\r\n    function values : TJSIterator; reintroduce;\r\n    procedure set_(aName, aValue : String);\r\n    Property Headers[aName : string] : string Read Get Write Set_;\r\n  end;\r\n\r\n\r\n  { TJSMediaQueryList }\r\n\r\n  TJSMediaQueryList = class {$IFDEF PAS2JS} external name 'MediaQueryList'  {$ENDIF}(TJSObject)\r\n  private\r\n    FMatches: Boolean; external name 'matches';\r\n    FMedia: String; external name 'media';\r\n  Public\r\n    Property matches : Boolean Read FMatches;\r\n    Property media : String Read FMedia;\r\n  end;\r\n\r\n  TJSReadableStream = class {$IFDEF PAS2JS} external name 'ReadableStream'  {$ENDIF}(TJSObject)\r\n  private\r\n    flocked: Boolean; external name 'locked';\r\n  public\r\n    property locked: Boolean read flocked;\r\n    constructor new(underlyingSource: TJSObject);\r\n    constructor new(underlyingSource, queueingStrategy: TJSObject);\r\n    function cancel(reason: TJSDOMString): TJSPromise;\r\n    function getReader(): TJSObject; overload;\r\n    function getReader(mode: TJSObject): TJSObject; overload;\r\n    function pipeThrough(transformStream: TJSObject): TJSReadableStream; overload;\r\n    function pipeThrough(transformStream, options: TJSObject): TJSReadableStream; overload;\r\n    function pipeTo(destination: TJSObject): TJSPromise; overload;\r\n    function pipeTo(destination, options: TJSObject): TJSPromise; overload;\r\n    function tee(): TJSArray; // array containing two TJSReadableStream instances\r\n  end;\r\n\r\n  TJSWritableStream = class {$IFDEF PAS2JS} external name 'WritableStream'  {$ENDIF}(TJSObject)\r\n  private\r\n    FLocked: Boolean; external name 'locked';\r\n  public\r\n    function abort(reason: String): TJSPromise;\r\n    function close: TJSPromise;\r\n    function getWriter: TJSObject;\r\n    property locked: Boolean read FLocked;\r\n  end;\r\n\r\n  TJSBody = class {$IFDEF PAS2JS} external name 'Body'  {$ENDIF}(TJSObject)\r\n  private\r\n    fbody: TJSReadableStream; external name 'body';\r\n    fbodyUsed: Boolean; external name 'bodyUsed';\r\n  public\r\n    property body: TJSReadableStream read fbody;\r\n    property bodyUsed: Boolean read fbodyUsed;\r\n    function arrayBuffer(): TJSPromise; // resolves to TJSArrayBuffer\r\n    //function blob(): TJSPromise; // resolves to TJSBlob\r\n    function blob: TJSBlob; {$IFNDEF SkipAsync}{$IFDEF PAS2JS} async;{$ENDIF}{$ENDIF}\r\n    function json(): TJSPromise; // resolves to JSON / TJSValue\r\n    //function text(): TJSPromise; // resolves to USVString, always decoded using UTF-8\r\n    function text(): string; {$IFNDEF SkipAsync}{$IFDEF PAS2JS}async;{$ENDIF}{$ENDIF}\r\n  end;\r\n\r\n  TJSResponse = class {$IFDEF PAS2JS} external name 'Response'  {$ENDIF}(TJSBody)\r\n  private\r\n    fheaders: TJSObject;external name 'headers';\r\n    fok: Boolean; external name 'ok';\r\n    fredirected: Boolean; external name 'redirected';\r\n    fstatus: NativeInt; external name 'status';\r\n    fstatusText: String; external name 'statusText';\r\n    ftype: String; external name 'type';\r\n    furl: String; external name 'url';\r\n    fuseFinalUrl: Boolean; external name 'useFinalUrl';\r\n  public\r\n    property headers: TJSObject read fheaders; //\r\n    property ok: Boolean read fok;\r\n    property redirected: Boolean read fredirected;\r\n    property status: NativeInt read fstatus;\r\n    property statusText: String read fstatusText; //\r\n    property type_: String read ftype; //\r\n    property url: String read furl; //\r\n    property useFinalUrl: Boolean read fuseFinalUrl write fuseFinalUrl;\r\n    constructor new(body: TJSObject; init: TJSObject); overload; varargs; external name 'new';\r\n    constructor new(Msg: string; init: TJSObject); overload; varargs; external name 'new';\r\n    function clone(): TJSResponse;\r\n    function error(): TJSResponse;\r\n    function redirect(url: String; Status: NativeInt): TJSResponse;\r\n  end;\r\n\r\n  TJSDOMHighResTimeStamp = Double;\r\n  TFrameRequestCallback = reference to procedure (aTime: TJSDOMHighResTimeStamp);\r\n\r\n  TJSPostMessageOptions = class {$IFDEF PAS2JS} external name 'Object'  {$ENDIF}(TJSObject)\r\n    targetOrigin : string;\r\n    transfer : TJSValueDynArray;\r\n  end;\r\n\r\n  TJSIdleCallbackOptions = class\r\n  public\r\n    timeout: Cardinal;\r\n  end;\r\n\r\n  TJSIdleDeadline = class external name 'IdleDeadline'\r\n  private\r\n    FDidTimeout: Boolean; external name 'didTimeout';\r\n  public\r\n    function timeRemaining: TJSDOMHighResTimeStamp;\r\n\r\n    property didTimeout: Boolean read FDidTimeout;\r\n  end;\r\n\r\n  TJSCacheDeleteOptions = class {$IFDEF PAS2JS} external name 'Object'  {$ENDIF}(TJSObject)\r\n    ignoreSearch : Boolean;\r\n    ignoreMethod : Boolean;\r\n    ignoreVary : Boolean;\r\n    cacheName : string;\r\n  end;\r\n\r\n  { TJSRequest }\r\n\r\n  TJSRequest = class {$IFDEF PAS2JS} external name 'Request'  {$ENDIF}(TJSObject)\r\n  private\r\n    FBody: TJSReadableStream; external name 'body';\r\n    FBodyUsed: Boolean; external name 'bodyUsed';\r\n    FCache: String; external name 'cache';\r\n    FCredentials: TJSObject; external name 'credentials';\r\n    FDestination: String; external name 'destination';\r\n    FHeaders: TJSObject; external name 'headers';\r\n    FIntegrity: String; external name 'integrity';\r\n    FMethod: String; external name 'method';\r\n    FMode: String; external name 'mode';\r\n    FReferrer: string; external name 'referrer';\r\n    FReferrerPolicy: string; external name 'referrerPolicy';\r\n    FURL: String;external name 'url';\r\n  Public\r\n    Property body : TJSReadableStream Read FBody;\r\n    property bodyUsed : Boolean Read FBodyUsed;\r\n    Property Cache : String Read FCache;\r\n    Property Credentials : TJSObject Read FCredentials;\r\n    Property Destination : String Read FDestination;\r\n    // TODO : actually Headers object\r\n    Property Headers : TJSObject Read FHeaders;\r\n    Property Integrity : String Read FIntegrity;\r\n    Property Method : String Read FMethod;\r\n    Property Mode : String Read FMode;\r\n    Property Referrer : string Read FReferrer;\r\n    Property ReferrerPolicy : string Read FReferrerPolicy;\r\n    Property URL : String Read FURL;\r\n  end;\r\n  TJSRequestDynArray = array of TJSRequest;\r\n\r\n  TJSCache = class {$IFDEF PAS2JS} external name 'Cache'  {$ENDIF}(TJSObject)\r\n  Public\r\n    Function add(aRequest : String) : TJSPromise;\r\n    Function add(aRequest : TJSURL) : TJSPromise;\r\n    Function addAll(aRequests : TJSStringDynArray) : TJSPromise;\r\n    Function addAll(aRequests : TJSURLDynArray) : TJSPromise;\r\n    Function addAll(aRequests : TJSValueDynArray) : TJSPromise;\r\n    Function put(aRequest : String; aResponse : TJSResponse) : TJSPromise;\r\n    Function put(aRequest : TJSRequest; aResponse : TJSResponse) : TJSPromise;\r\n    Function delete(aRequest : String) : TJSPromise;\r\n    Function delete(aRequest : TJSRequest) : TJSPromise;\r\n    Function delete(aRequest : String; aOptions : TJSObject) : TJSPromise;\r\n    Function delete(aRequest : TJSRequest; aOptions : TJSObject) : TJSPromise;\r\n    Function delete(aRequest : String; aOptions : TJSCacheDeleteOptions) : TJSPromise;\r\n    Function delete(aRequest : TJSRequest; aOptions : TJSCacheDeleteOptions) : TJSPromise;\r\n    Function keys : TJSPromise; reintroduce;\r\n    Function match(aRequest : String): TJSPromise;\r\n    Function match(aRequest : TJSRequest): TJSPromise;\r\n    Function matchAll(aRequest : TJSStringDynArray): TJSPromise;\r\n    Function matchAll(aRequest : TJSRequestDynArray): TJSPromise;\r\n    Function matchAll(aRequests : TJSValueDynArray) : TJSPromise;\r\n  end;\r\n\r\n  TJSCacheStorage = class {$IFDEF PAS2JS} external name 'CacheStorage'  {$ENDIF}(TJSObject)\r\n  Public\r\n    function delete(aName : string) : TJSPromise; // resolves to boolean\r\n    function has(aName : string) : TJSPromise;\r\n    Function keys : TJSPromise; reintroduce;\r\n    Function match(aRequest : String): TJSPromise;\r\n    Function match(aRequest : TJSRequest): TJSPromise;\r\n    function open(aName : string) : TJSPromise;\r\n  end;\r\n\r\n  TJSWindowArray = Array of TJSWindow;\r\n  TIdleCallbackProc = reference to procedure(idleDeadline: TJSIdleDeadline);\r\n\r\n  { TJSWindow }\r\n\r\n  TJSWindow = class {$IFDEF PAS2JS} external name 'Window'  {$ENDIF}(TJSEventTarget)\r\n  Private\r\n    FClosed: boolean; external name 'closed';\r\n    FConsole : TJSConsole;  external name 'console';\r\n    FCrypto: TJSCrypto; external name 'crypto';\r\n    FDevicePixelRatio: Double; external name 'devicePixelRatio';\r\n    FDocument: TJSDocument; external name 'document';\r\n    FFrameElement: TJSElement; external name 'frameElement';\r\n    FFrames: TJSWindowArray; external name 'frames';\r\n    FHistory: TJSHistory; external name 'history';\r\n    FIndexedDB: TJSIDBFactory; external name 'indexedDB';\r\n    FInnerheight: NativeInt; external name 'innerHeight';\r\n    FInnerWidth: NativeInt; external name 'innerWidth';\r\n    FLength: NativeInt; external name 'length';\r\n    FLocalStorage: TJSStorage; external name 'localStorage';\r\n    FLocation: TJSLocation; external name 'location';\r\n    FLocationBar: TJSLocationBar; external name 'locationbar';\r\n    FLocationString: string; external name 'location';\r\n    FMenuBar: TJSMenuBar; external name 'menubar';\r\n    FNavigator: TJSNavigator; external name 'navigator';\r\n    FOpener: TJSWindow; external name 'opener';\r\n    FOuterheight: NativeInt; external name 'outerHeight';\r\n    FOuterWidth: NativeInt; external name 'outerWidth';\r\n    FParent: TJSWindow; external name 'parent';\r\n    FPerformance: TJSPerformance; external name 'Performance';\r\n    FPersonalBar: TJSPersonalBar; external name 'personalbar';\r\n    FScreen: TJSScreen; external name 'screen';\r\n    FScreenX: NativeInt; external name 'screenX';\r\n    FScreenY: NativeInt; external name 'screenY';\r\n    FScrollbar: TJSScrollBars; external name 'scrollbar';\r\n    FScrollX: NativeInt; external name 'scrollX';\r\n    FScrollY: NativeInt; external name 'scrollY';\r\n    FSelf: TJSWindow; external name 'self';\r\n    FSessionStorage: TJSStorage; external name 'sessionStorage';\r\n    FToolBar: TJSToolBar; external name 'toolbar';\r\n    FTop: TJSWindow; external name 'top';\r\n    FURL: TJSURL; external name 'URL';\r\n  Public\r\n    fullSreen : Boolean;   \r\n    name : string;\r\n    status : string;\r\n    onabort : TJSEventHandler;\r\n    onafterprint : TJSEventHandler;\r\n    onbeforeprint : TJSEventHandler;\r\n    onbeforeinstallprompt : TJSEventHandler;\r\n    onbeforeunloadprompt : TJSEventHandler;\r\n    onblur : TJSEventHandler;\r\n    onchange : TJSEventHandler;\r\n    onclick: THTMLClickEventHandler;\r\n    onclose : TJSEventHandler;\r\n    oncontextmenu : TJSEventHandler;\r\n    ondblclick : THTMLClickEventHandler;\r\n    onerror : TJSErrorEventHandler;\r\n    onfocus : TJSFocusEventhandler;\r\n    onhashchange : TJSHashChangeEventhandler;\r\n    oninput : TJSEventhandler;\r\n    onkeydown : TJSKeyEventhandler;\r\n    onkeypress : TJSKeyEventhandler;\r\n    onkeyup : TJSKeyEventhandler;\r\n    onlanguagechange : TJSEventhandler;\r\n    onload : TJSEventhandler;\r\n    onloadend : TJSLoadEventhandler;\r\n    onloadstart : TJSLoadEventhandler;\r\n    onmessage : TJSEventHandler;\r\n    onmousedown : TJSMouseEventHandler;\r\n    onmouseenter : TJSMouseEventHandler;\r\n    onmouseleave : TJSMouseEventHandler;\r\n    onmousemove : TJSMouseEventHandler;\r\n    onmouseout : TJSMouseEventHandler;\r\n    onmouseover : TJSMouseEventHandler;\r\n    onmouseup : TJSMouseEventHandler;\r\n    onmousewheel : TJSMouseEventHandler;\r\n    onoffline : TJSEventHandler;\r\n    ononline : TJSEventHandler;\r\n    onpagehide : TJSPageTransitionEventHandler;\r\n    onpageshow : TJSPageTransitionEventHandler;\r\n    onpaint : TJSEventHandler;\r\n    onpointercancel : TJSPointerEventHandler;\r\n    onpointerdown : TJSPointerEventHandler;\r\n    onpointerenter : TJSPointerEventHandler;\r\n    onpointerleave : TJSPointerEventHandler;\r\n    onpointermove : TJSPointerEventHandler;\r\n    onpointerout : TJSPointerEventHandler;\r\n    onpointerover : TJSPointerEventHandler;\r\n    onpointerup : TJSPointerEventHandler;\r\n    onpointerlockchange : TJSPointerEventHandler;\r\n    onprogress : TJSProgressEventhandler;\r\n    onpopstate : TJSPopStateEventHandler;\r\n    onreset : TJSUIEventHandler;\r\n    onresize : TJSUIEventHandler;\r\n    onscroll : TJSUIEventHandler;\r\n    onselect : TJSEventHandler;\r\n    onselectionchange : TJSEventHandler;\r\n    onstorage : TJSStorageEventHandler;\r\n    onsubmit : TJSEventHandler;\r\n    onunhandledrejection: TJSPromiseRejectionEventHandler;\r\n    onunload : TJSUIEventHandler;\r\n    touchstart : TJSTouchEventHandler;\r\n    touchend : TJSTouchEventHandler;\r\n    touchmove : TJSTouchEventHandler;\r\n    touchcancel : TJSTouchEventHandler;\r\n    Procedure alert(Const Msg : String);\r\n    Function atob(Const aValue : string) : string;\r\n    procedure blur;\r\n    Procedure clearInterval(aID: NativeInt);\r\n    Procedure clearTimeout(aID: NativeInt);\r\n    Function btoa(Const aValue : string) : string;\r\n    procedure cancelAnimationFrame(aHandle: Integer);\r\n    Procedure close;\r\n    Function confirm(Const aMsg : String) :  boolean;\r\n    function fetch(resource: String; init: TJSObject): TJSPromise; overload; external name 'fetch';\r\n    //function fetch(resource: String): TJSPromise; overload; external name 'fetch';\r\n    function fetch(resource: String): TJSResponse; {$IFNDEF SkipAsync}{$IFDEF PAS2JS}async;{$ENDIF}{$ENDIF} overload; external name 'fetch';\r\n    function fetch(resource: TJSObject; init: TJSObject): TJSPromise; overload; external name 'fetch';\r\n    function fetch(resource: TJSObject): TJSPromise; overload; external name 'fetch';\r\n    function asyncfetch(resource: String): TJSResponse; {$IFNDEF SkipAsync}{$IFDEF PAS2JS}async;{$ENDIF}{$ENDIF} overload; external name 'fetch';\r\n    function asyncfetch(resource: TJSObject; init: TJSObject): TJSResponse; {$IFNDEF SkipAsync}{$IFDEF PAS2JS}async;{$ENDIF}{$ENDIF} overload; external name 'fetch';\r\n    function asyncfetch(resource: TJSObject): TJSResponse;  {$IFNDEF SkipAsync}{$IFDEF PAS2JS}async;{$ENDIF}{$ENDIF}  overload;external name 'fetch';\r\n    procedure focus;\r\n    Function getComputedStyle(aElement : TJSElement) : TJSCSSStyleDeclaration; overload;\r\n    Function getComputedStyle(aElement,aPseudoElement : TJSElement) : TJSCSSStyleDeclaration; overload;\r\n    function matchMedia(aQuery : String) : TJSMediaQueryList;\r\n    procedure moveBy(x,y : NativeInt);\r\n    procedure moveTo(x,y : NativeInt);\r\n    function open : TJSWindow;\r\n    function open(Const aURL : String) : TJSWindow; overload;\r\n    function open(Const aURL,aTarget : String) : TJSWindow; overload;\r\n    function open(Const aURL,aTarget : String; AOptions : TJSObject) : TJSWindow; overload;\r\n    procedure postMessage(aMessage : JSValue);\r\n    procedure postMessage(aMessage : JSValue; aOptions : TJSPostMessageOptions);\r\n    procedure postMessage(aMessage : JSValue; aTransfer : TJSValueDynArray);\r\n    procedure postMessage(aMessage : JSValue; aTarget : string);\r\n    procedure postMessage(aMessage : JSValue; aTarget : string; aTransfer : TJSValueDynArray);\r\n    procedure print;\r\n    function prompt(const aMessage : String) : String; overload;\r\n    function prompt(const aMessage,aDefault : String) : String; overload;\r\n    function requestAnimationFrame(aCallback: TFrameRequestCallback): Integer;\r\n    procedure resizeBy(aWidth,aHeight : NativeInt);\r\n    procedure resizeTo(aWidth,aHeight : NativeInt);\r\n    procedure scrollBy(x,y : NativeInt);\r\n    procedure scrollTo(x,y : NativeInt);\r\n    Function setInterval(ahandler : TJSTimerCallBack; aInterval : NativeUInt) : NativeInt; varargs;\r\n    Function setTimeout(ahandler : TJSTimerCallBack; aTimeout : NativeUInt) : NativeInt; varargs;\r\n    Function setTimeout(ahandler : TJSTimerCallBack) : NativeInt;\r\n    procedure stop;\r\n    procedure cancelIdleCallback(handle: NativeInt);\r\n    function requestIdleCallback(handler: TIdleCallbackProc): NativeInt; overload;\r\n    function requestIdleCallback(handler: TIdleCallbackProc; options: TJSIdleCallbackOptions): NativeInt; overload;\r\n    function showOpenFilePicker: TJSFileSystemFileHandleArray; {$IFDEF PAS2JS} async; {$ENDIF} overload;\r\n    function showOpenFilePicker(options: TJSShowOpenFilePickerOptions): TJSFileSystemFileHandleArray; {$IFDEF PAS2JS} async; {$ENDIF} overload;\r\n    function showSaveFilePicker: TJSFileSystemFileHandle; {$IFDEF PAS2JS} async; {$ENDIF} overload;\r\n    function showSaveFilePicker(options: TJSShowSaveFilePickerOptions): TJSFileSystemFileHandle; {$IFDEF PAS2JS} async; {$ENDIF} overload;\r\n    function FileSystemDirectoryHandle: TJSFileSystemDirectoryHandleArray; {$IFDEF PAS2JS} async; {$ENDIF}\r\n    { public properties }\r\n    property console : TJSConsole Read FConsole;\r\n    property closed : boolean read FClosed;\r\n    property crypto : TJSCrypto Read FCrypto;\r\n    property devicePixelRatio : Double read FDevicePixelRatio;\r\n    property document : TJSDocument read FDocument;\r\n    property frameElement : TJSElement Read FFrameElement;\r\n    Property frames  : TJSWindowArray read FFrames;\r\n    Property history : TJSHistory read FHistory;\r\n    Property indexedDB : TJSIDBFactory read FIndexedDB;\r\n    Property innerHeight : NativeInt Read FInnerheight;\r\n    Property innerWidth : NativeInt Read FInnerWidth;\r\n    Property length : NativeInt Read FLength;\r\n    Property localStorage : TJSStorage Read FLocalStorage;\r\n    property location : TJSLocation Read FLocation;\r\n    Property locationString : String read FLocationString write FLocationString;\r\n    property locationbar : TJSLocationBar Read FLocationBar;\r\n    property menubar : TJSMenuBar Read FMenuBar;\r\n    property navigator : TJSNavigator Read FNavigator;\r\n    property opener : TJSWindow read FOpener;\r\n    Property outerHeight : NativeInt Read FOuterheight;\r\n    Property outerWidth : NativeInt Read FOuterWidth;\r\n    Property parent : TJSWindow Read FParent;\r\n    Property Performance : TJSPerformance Read FPerformance;\r\n    property personalbar : TJSPersonalBar Read FPersonalBar;\r\n    property screen : TJSScreen read FScreen;\r\n    property screenX : NativeInt read FScreenX;\r\n    Property screenY : NativeInt read FScreenY;\r\n    Property scrollbar : TJSScrollBars Read FScrollbar;\r\n    property scrollX : NativeInt read FScrollX;\r\n    Property scrollY : NativeInt read FScrollY;\r\n    Property _Self : TJSWindow read FSelf;\r\n    Property sessionStorage : TJSStorage Read FSessionStorage;\r\n    property toolbar : TJSToolBar Read FToolBar;\r\n    property top : TJSWindow Read FTop;\r\n    property URL : TJSURL Read FURL;\r\n  end;\r\n\r\n  { TJSCSSStyleDeclaration }\r\n\r\n  TJSCSSStyleDeclaration = class {$IFDEF PAS2JS} external name 'CSSStyleDeclaration'   {$ENDIF}(TJSObject)\r\n  private\r\n    FLength: NativeInt; external name 'length';\r\n    FParentRule: TJSCSSRule; external name 'parentRule';\r\n  public\r\n    cssText : string;\r\n    function item(aIndex : Integer) : string;\r\n    function removeProperty(const aProperty : String) : string;\r\n    function getPropertyPriority(const aProperty : String) : string;\r\n    function getPropertyValue(const aProperty : String) : string;\r\n    procedure setProperty(const aProperty,aValue : String);overload;\r\n    procedure setProperty(const aProperty,aValue,aPriority : string); overload;\r\n    property length : NativeInt read FLength;\r\n    property parentRule : TJSCSSRule read FParentRule;\r\n  end;\r\n\r\n  TJSScrollIntoViewOptions = class {$IFDEF PAS2JS} external name 'Object'   {$ENDIF}(TJSObject)\r\n    behaviour : string;\r\n    block : string;\r\n    inline_ : string; external name 'inline';\r\n  end;\r\n\r\n\r\n  { TJSHTMLElement }\r\n\r\n  TJSHTMLElement = class {$IFDEF PAS2JS} external name 'HTMLElement'  {$ENDIF}(TJSElement)\r\n  private\r\n    FDataset: TJSObject ; external name 'dataset';\r\n    FIsContentEditable: Boolean ; external name 'isContentEditable';\r\n    FOffsetHeight: Double; external name 'offsetHeight';\r\n    FOffsetLeft: Double; external name 'offsetLeft';\r\n    FOffsetParent: TJSElement; external name 'offsetParent';\r\n    FOffsetTop: Double; external name 'offsetTop';\r\n    FOffsetWidth: Double; external name 'offsetWidth';\r\n  Public\r\n    accessKey : string;\r\n    contentEditable : string;\r\n    dir : string;\r\n    draggable : boolean;\r\n    hidden : boolean;\r\n    lang : string;\r\n    spellcheck : boolean;\r\n    style : TJSCSSStyleDeclaration;\r\n    tabIndex : Integer;\r\n    title: string;\r\n    onabort : TJSEventHandler;\r\n    onanimationcancel: THTMLAnimationEventHandler;\r\n    onanimationend: THTMLAnimationEventHandler;\r\n    onblur : TJSEventHandler;\r\n    oncancel : TJSEventHandler;\r\n    oncanplay : TJSEventHandler;\r\n    oncanplaythrough : TJSEventHandler;\r\n    onchange : TJSEventHandler;\r\n    onclick: THTMLClickEventHandler;\r\n    onclose : TJSEventHandler;\r\n    oncontextmenu : TJSEventHandler;\r\n    ondblclick : THTMLClickEventHandler;\r\n    ondrag : TJSDragDropEventHandler;\r\n    ondragend : TJSDragDropEventHandler;\r\n    ondragenter : TJSDragDropEventHandler;\r\n    ondragexit : TJSDragDropEventHandler;\r\n    ondragover : TJSDragDropEventHandler;\r\n    ondragleave : TJSDragDropEventHandler;\r\n    ondragstart: TJSDragDropEventHandler;\r\n    ondrop : TJSDragDropEventHandler;\r\n    onerror : TJSErrorEventHandler;\r\n    onfocus : TJSFocusEventhandler;\r\n    ondurationchange : TJSEventHandler;\r\n    onemptied : TJSEventHandler;\r\n    onended : TJSEventHandler;\r\n    ongotpointercapture : TJSPointerEventHandler;\r\n    oninput : TJSEventhandler;\r\n    oninvalid : TJSEventhandler;\r\n    onkeydown : TJSKeyEventhandler;\r\n    onkeypress : TJSKeyEventhandler;\r\n    onkeyup : TJSKeyEventhandler;\r\n    onload : TJSEventhandler;\r\n    onloadeddata : TJSEventhandler;\r\n    onloadedmetadata : TJSEventhandler;\r\n    onloadend : TJSLoadEventhandler;\r\n    onloadstart : TJSLoadEventhandler;\r\n    onlostpointercapture : TJSPointerEventHandler;\r\n    onmousedown : TJSMouseEventHandler;\r\n    onmouseenter : TJSMouseEventHandler;\r\n    onmouseleave : TJSMouseEventHandler;\r\n    onmousemove : TJSMouseEventHandler;\r\n    onmouseout : TJSMouseEventHandler;\r\n    onmouseover : TJSMouseEventHandler;\r\n    onmouseup : TJSMouseEventHandler;\r\n    onmousewheel : TJSMouseEventHandler;\r\n    onpause : TJSPointerEventHandler;\r\n    onplay : TJSPointerEventHandler;\r\n    onplaying : TJSPointerEventHandler;\r\n    onpointercancel : TJSPointerEventHandler;\r\n    onpointerdown : TJSPointerEventHandler;\r\n    onpointerenter : TJSPointerEventHandler;\r\n    onpointerleave : TJSPointerEventHandler;\r\n    onpointermove : TJSPointerEventHandler;\r\n    onpointerout : TJSPointerEventHandler;\r\n    onpointerover : TJSPointerEventHandler;\r\n    onpointerup : TJSPointerEventHandler;\r\n    onpointerlockchange : TJSPointerEventHandler;\r\n    onprogress : TJSProgressEventhandler;\r\n    onseeked : TJSEventHandler;\r\n    onseeking : TJSEventHandler;\r\n    onreset : TJSUIEventHandler;\r\n    onscroll : TJSUIEventHandler;\r\n    onselect : TJSEventHandler;\r\n    onselectstart : TJSEventHandler;\r\n    onselectionchange : TJSEventHandler;\r\n    onshow : TJSEventHandler;\r\n    onstalled : TJSEventHandler;\r\n    ontimeupdate : TJSEventHandler;\r\n    ontransitioncancel : TJSEventHandler;\r\n    ontransitionend : TJSEventHandler;\r\n    onvolumechange : TJSEventHandler;\r\n    onsubmit : TJSEventHandler;\r\n    onwheel : TJSMouseWheelEventHandler;\r\n    onwaiting : TJSEventHandler;\r\n    touchstart : TJSTouchEventHandler;\r\n    touchend : TJSTouchEventHandler;\r\n    touchmove : TJSTouchEventHandler;\r\n    touchcancel : TJSTouchEventHandler;\r\n    Procedure blur;\r\n    Procedure focus;\r\n    Procedure click;\r\n    procedure scrollIntoView; overload;\r\n    procedure scrollIntoView(alignToTop : Boolean);\r\n    procedure scrollIntoView(aObj : TJSObject);\r\n    procedure scrollIntoView(Opts: TJSScrollIntoViewOptions);\r\n    property dataset : TJSObject read FDataset;\r\n    property isContentEditable : Boolean read FIsContentEditable;\r\n    property offsetHeight : Double Read FOffsetHeight;\r\n    property offsetLeft : Double Read FOffsetLeft;\r\n    property offsetTop : Double Read FOffsetTop;\r\n    property offsetWidth : Double Read FOffsetWidth;\r\n    property offsetParent : TJSElement Read FOffsetParent;\r\n  end;\r\n  TJSHTMLElementArray = Array of TJSHTMLElement;\r\n\r\n  TJSHTMLDivElement = class {$IFDEF PAS2JS} external name 'HTMLDivElement'  {$ENDIF}(TJSHTMLElement)\r\n  end;\r\n\r\n  TJSHTMLFormControlsCollection = class {$IFDEF PAS2JS} external name 'HTMLFormControlsCollection'  {$ENDIF}(TJSHTMLCollection)\r\n  Public\r\n    function namedItem(S : String) : TJSElement; reintroduce; external name 'namedItem';\r\n    property Items[S : String] : TJSElement read namedItem; default;\r\n  end;\r\n\r\n  { TJSHTMLFormElement }\r\n\r\n  TJSHTMLFormElement = class {$IFDEF PAS2JS} external name 'HTMLFormElement'  {$ENDIF}(TJSHTMLElement)\r\n  private\r\n    FElements: TJSHTMLFormControlsCollection; external name 'elements';\r\n    FLength: NativeInt; external name 'length';\r\n  Public\r\n    Procedure reset;\r\n    function reportValidity : Boolean;\r\n    function checkValidity : Boolean;\r\n    procedure submit;\r\n    method : string;\r\n    target : string;\r\n    action : string;\r\n    encoding : string;\r\n    enctype : string;\r\n    acceptCharset :  string;\r\n    autocomplete : string;\r\n    noValidate : boolean;\r\n    property elements : TJSHTMLFormControlsCollection read FElements;\r\n    Property length : NativeInt Read FLength;\r\n  end;\r\n\r\n  { TJSValidityState }\r\n\r\n  TJSValidityState = class {$IFDEF PAS2JS} external name 'ValidityState'   {$ENDIF}(TJSObject)\r\n  private\r\n    FBadInput: Boolean; external name 'badInput';\r\n    FCustomError: Boolean; external name 'customError';\r\n    FPatternMismatch: Boolean; external name 'patternMisMatch';\r\n    FRangeOverflow: Boolean; external name 'rangeOverflow';\r\n    FRangeUnderflow: Boolean; external name 'rangeUnderflow';\r\n    FStepMismatch: Boolean; external name 'stepMismatch';\r\n    FTooLong: Boolean; external name 'tooLong';\r\n    FTooShort: Boolean; external name 'tooShort';\r\n    FTypeMismatch: Boolean; external name 'typeMisMatch';\r\n    FValid: Boolean; external name 'valid';\r\n    FValueMissing: Boolean; external name 'valueMissing';\r\n  public\r\n    property badInput : Boolean read FBadInput;\r\n    property customError : Boolean read FCustomError;\r\n    property patternMisMatch : Boolean read FPatternMismatch;\r\n    property rangeOverflow : Boolean read FRangeOverflow;\r\n    property rangeUnderflow : Boolean read FRangeUnderflow;\r\n    property stepMismatch : Boolean read FStepMismatch;\r\n    property tooLong : Boolean read FTooLong;\r\n    property tooShort : Boolean read FTooShort;\r\n    property typeMisMatch : Boolean read FTypeMismatch;\r\n    property valid : Boolean Read FValid;\r\n    property valueMissing : Boolean read FValueMissing;\r\n  end;\r\n\r\n  { TJSBlobPropertyBag }\r\n\r\n  TJSBlobPropertyBag = class(TJSObject)\r\n  private\r\n    FEndings: string; external name 'endings';\r\n    FType: string; external name 'type';\r\n  public\r\n    constructor Create(aType: string); overload;\r\n    constructor Create(aType, aEndings: string); overload;\r\n    property endings: string read FEndings write FEndings;\r\n    property &type: string read FType write FType;\r\n  end;\r\n\r\n  { TJSBlob }\r\n\r\n  TJSBlob = class {$IFDEF PAS2JS} external name 'Blob'  {$ENDIF}(TJSEventTarget)\r\n  private\r\n    FSize: NativeInt; external name 'size';\r\n    FType: string; external name  'type';\r\n  Public\r\n    constructor new(aBlobParts: array of JSValue); overload;\r\n    constructor new(aBlobParts: array of JSValue; aOptions: TJSBlobPropertyBag); overload;\r\n    procedure close;\r\n    function slice : TJSBlob; overload;\r\n    function slice(aStart : NativeInt) : TJSBlob; overload;\r\n    function slice(aStart,aEnd : NativeInt) : TJSBlob; overload;\r\n    function slice(aStart,aEnd : NativeInt; AContentType : String) : TJSBlob; overload;\r\n    function arrayBuffer : TJSPromise;\r\n    property size : NativeInt read FSize;\r\n    property _type : string read FType; deprecated;\r\n    property type_ : string read FType;\r\n  end;\r\n\r\n  { TJSHTMLFile }\r\n\r\n  TJSHTMLFile = class {$IFDEF PAS2JS} external name 'File'  {$ENDIF}(TJSBlob)\r\n  private\r\n    FLastModified: NativeInt; external name 'lastModified';\r\n    FLastModifiedDate: TJSDate; external name 'lastModifiedDate';\r\n    FName: string; external name 'name';\r\n  public\r\n    property lastModified: NativeInt read FLastModified;\r\n    property lastModifiedDate : TJSDate read FLastModifiedDate; deprecated;\r\n    property name: String read FName;\r\n  end;\r\n\r\n  { TJSHTMLFileList }\r\n\r\n  TJSHTMLFileList = class {$IFDEF PAS2JS} external name 'FileList'  {$ENDIF}(TJSEventTarget)\r\n  private\r\n    FLength: NativeInt; external name 'length';\r\n  Public\r\n    function item(aIndex : NativeInt) : TJSHTMLFile;\r\n    property length : NativeInt read FLength;\r\n    property Files[aIndex : NativeInt] : TJSHTMLFile Read item; default;\r\n  end;\r\n\r\n   { TJSHTMLInputElement }\r\n  // https://html.spec.whatwg.org/multipage/forms.html#the-input-element\r\n\r\n  TJSHTMLInputElement = class {$IFDEF PAS2JS} external name 'HTMLInputElement'  {$ENDIF}(TJSHTMLElement)\r\n  private\r\n    FFiles: TJSHTMLFileList; external name 'files';\r\n    FForm: TJSHTMLFormElement; external name 'form';\r\n    FLabels: TJSNodeList; external name 'labels';\r\n    FList: TJSHTMLElement; external name 'list';\r\n    FValidationmMessage: string; external name 'validationMessage';\r\n    FValidity: TJSValidityState; external name 'validity';\r\n    FWillValidate: boolean; external name 'willValidate';\r\n  Public\r\n    procedure select;\r\n    procedure setCustomValidity(aText : string);\r\n    procedure stepUp; overload;\r\n    procedure stepUp(n : Integer); overload;\r\n    function checkValidity : Boolean;\r\n    function reportValidity : Boolean;\r\n    procedure setSelectionRange(selectionStart, selectionEnd: NativeInt) ; overload;\r\n    procedure setSelectionRange(selectionStart, selectionEnd: NativeInt; Direction : string) ; overload;\r\n    procedure setRangeText(aText : string; selectionStart, selectionEnd: NativeInt) ; overload;\r\n    procedure setRangeText(aText : string; selectionStart, selectionEnd: NativeInt; Direction : string) ; overload;\r\n  Public\r\n    accept : string;\r\n    allowDirs : boolean;\r\n    align : string;\r\n    alt : string;\r\n    autofocus : boolean;\r\n    autocapitalize : string;\r\n    autocomplete : string;\r\n    defaultValue : string;\r\n    defaultChecked : string;\r\n    checked : boolean;\r\n    dirName : string;\r\n    disabled : boolean;\r\n    formAction : string;\r\n    formEncType : string;\r\n    formMethod : string;\r\n    formNoValidate : Boolean;\r\n    formTarget : string;\r\n    height : string;\r\n    indeterminate : boolean;\r\n    inputMode : string;\r\n    max : string;\r\n    maxLength : NativeInt;\r\n    min : string;\r\n    minLength : NativeInt;\r\n    multiple : boolean;\r\n    pattern : string;\r\n    placeholder : string;\r\n    readOnly : boolean;\r\n    required : boolean;\r\n    size : NativeInt;\r\n    src : string;\r\n    step : string;\r\n    _type : string; external name 'type';\r\n    selectionStart : NativeInt;\r\n    selectionEnd : NativeInt;\r\n    selectionDirection : string;\r\n    useMap : string;\r\n    value : string;\r\n    width : string;\r\n    property files : TJSHTMLFileList Read FFiles;\r\n    property form : TJSHTMLFormElement read FForm;\r\n    property labels : TJSNodeList read FLabels;\r\n    property list : TJSHTMLElement Read FList;\r\n    property validationMessage : string read FValidationmMessage;\r\n    property willValidate : boolean read FWillValidate;\r\n    property validity : TJSValidityState read FValidity;\r\n  end;\r\n\r\n  TJSDOMSettableTokenList = class {$IFDEF PAS2JS} external name 'DOMSettableTokenList'  {$ENDIF}(TJSDOMTokenList)\r\n  private\r\n    fvalue: TJSDOMString; external name 'value';\r\n  public\r\n    property value: TJSDOMString read fvalue; // readonly\r\n  end;\r\n\r\n  TJSHTMLOutputElement = class {$IFDEF PAS2JS} external name 'HTMLOutputElement'  {$ENDIF}(TJSHTMLElement)\r\n  private\r\n    flabels: TJSNodeList; external name 'labels';\r\n    fform: TJSHTMLFormElement; external name 'form';\r\n    ftype: TJSDOMString; external name 'type';\r\n    fdefaultValue: TJSDOMString; external name 'defaultValue';\r\n    fvalue: TJSDOMString; external name 'value';\r\n    fwillValidate: Boolean; external name 'willValidate';\r\n    fvalidity: TJSValidityState; external name 'validity';\r\n    fvalidationMessage: TJSDOMString; external name 'validationMessage';\r\n  public\r\n    htmlFor: TJSDOMSettableTokenList;\r\n    function checkValidity: Boolean;\r\n    function reportValidity: Boolean;\r\n    procedure setCustomValidity(error: TJSDOMString);\r\n  public\r\n    property labels: TJSNodeList read flabels;\r\n    property form: TJSHTMLFormElement read fform;\r\n    property type_: TJSDOMString read ftype;\r\n    property defaultValue: TJSDOMString read fdefaultValue;\r\n    property value: TJSDOMString read fvalue write fvalue;\r\n    property willValidate: Boolean read fwillValidate;\r\n    property validity: TJSValidityState read fvalidity;\r\n    property validationMessage: TJSDOMString read fvalidationMessage;\r\n  end;\r\n\r\n  { TJSHTMLImageElement }\r\n\r\n  TJSHTMLImageElement = class {$IFDEF PAS2JS} external name 'Image'  {$ENDIF}(TJSHTMLElement)\r\n  Private\r\n    FComplete: boolean; external name 'complete';\r\n    FCurrentSrc: String; external name 'currentSrc';\r\n    FNaturalHeight: NativeUInt; external name 'naturalHeight';\r\n    FNaturalWidth: NativeUInt; external name 'naturalWidth';\r\n    FX: NativeInt; external name 'x';\r\n    FY: NativeInt; external name 'y';\r\n  Public\r\n    constructor New(x,y : Cardinal); overload;\r\n    alt: String;\r\n    crossOrigin: String;\r\n    decoding: String;\r\n    height: NativeUInt;\r\n    isMap: boolean;\r\n    referrerPolicy: String;\r\n    src: String;\r\n    sizes: String;\r\n    srcset: String;\r\n    useMap: String;\r\n    width: NativeUInt;\r\n    function decode : TJSPromise;\r\n    property complete: boolean read FComplete;\r\n    property currentSrc: String read FCurrentSrc;\r\n    property naturalHeight: NativeUInt read FNaturalHeight;\r\n    property naturalWidth: NativeUInt read FNaturalWidth;\r\n    property x: NativeInt read FX;\r\n    property y: NativeInt read FY;\r\n  end;\r\n\r\n  TJSHTMLLinkElement = class {$IFDEF PAS2JS} external name 'HTMLLinkElement' {$ENDIF}(TJSHTMLElement)\r\n  Private\r\n    frelList: TJSDOMTokenList; external name 'relList';\r\n    fsizes: TJSDOMSettableTokenList {TJSDOMTokenList}; external name 'sizes';\r\n  Public\r\n    href: string;\r\n    crossOrigin: string;\r\n    rel: string;\r\n    as_: string; external name 'as';\r\n    media: string;\r\n    integrity: string;\r\n    hreflang: string;\r\n    type_: string external name 'type';\r\n    imageSrcset: string;\r\n    imageSizes: string;\r\n    referrerPolicy: string;\r\n    disabled: string;\r\n    charset: string deprecated; // obsolete\r\n    rev: string deprecated; // obsolete property\r\n    target: string deprecated; // obsolete property\r\n    Property relList: TJSDOMTokenList read frelList;\r\n    Property sizes: TJSDOMSettableTokenList{TJSDOMTokenList} read fsizes;\r\n  end;\r\n\r\n  { TJSHTMLAnchorElement }\r\n\r\n  TJSHTMLAnchorElement = class {$IFDEF PAS2JS} external name 'HTMLAnchorElement'  {$ENDIF}(TJSHTMLElement)\r\n  Private\r\n    FOrigin: string;external name 'origin';\r\n    frelList: TJSDOMTokenList; external name 'relList';\r\n  Public\r\n    href: string;\r\n    download: string;\r\n    hash: string;\r\n    host: string;\r\n    hostname: string;\r\n    hreflang: string;\r\n    media: string ;\r\n    password: string;\r\n    Protocol: string;\r\n    referrerPolicy : string;\r\n    rel: string ;\r\n    rev: string deprecated; // obsolete property\r\n    target: string ;\r\n    text : string;\r\n    type_ : string external name 'type';\r\n    username : string;\r\n    Property relList: TJSDOMTokenList read frelList;\r\n    Property origin: string Read FOrigin;\r\n  end;\r\n\r\n  { TJSHTMLMenuElement }\r\n\r\n  TJSHTMLMenuElement = class {$IFDEF PAS2JS} external name 'HTMLMenuElement'  {$ENDIF}(TJSHTMLElement) //  uhm... should it be declared? it is experimental at Mozilla docs...\r\n  end;\r\n\r\n  { TJSHTMLButtonElement }\r\n\r\n  TJSHTMLButtonElement = class {$IFDEF PAS2JS} external name 'HTMLButtonElement'  {$ENDIF}(TJSHTMLElement)\r\n  private\r\n    FForm: TJSHTMLFormElement; external name 'form';\r\n    FLabels: TJSNodeList; external name 'labels';\r\n    FValidationmMessage: String; external name 'validationMessage';\r\n    FValidity: TJSValidityState; external name 'validity';\r\n    FWillValidate: boolean; external name 'willValidate';\r\n  Public\r\n    autofocus : boolean;\r\n    disabled : boolean;\r\n    formAction : String;\r\n    formEnctype : String;\r\n    formMethod : String;\r\n    formNoValidate : Boolean;\r\n    formTarget : String;\r\n    menu: TJSHTMLMenuElement;\r\n    _type : String; external name 'type';\r\n    value : string;\r\n  Public\r\n    property form : TJSHTMLFormElement Read FForm;\r\n    property labels : TJSNodeList Read FLabels;\r\n    property validationMessage : String Read FValidationmMessage;\r\n    property validity : TJSValidityState Read FValidity;\r\n    property willValidate : boolean read FWillValidate;\r\n  end;\r\n\r\n  TJSHTMLLabelElement = class {$IFDEF PAS2JS} external name 'HTMLLabelElement'  {$ENDIF}(TJSHTMLElement)\r\n  Private\r\n    FForm: TJSHTMLFormElement; external name 'form';\r\n    FControl : TJSHTMLElement; external name 'control';\r\n  Public\r\n    For_ : String; external name 'htmlFor';\r\n    property Control : TJSHTMLElement Read FControl;\r\n    property Form : TJSHTMLFormElement read FForm;\r\n  end;\r\n\r\n  { TJSHTMLTextAreaElement }\r\n\r\n  TJSHTMLTextAreaElement = class {$IFDEF PAS2JS} external name 'HTMLTextAreaElement'  {$ENDIF}(TJSHTMLElement)\r\n  private\r\n    FForm: TJSHTMLFormElement; external name 'form';\r\n    FTextLength: NativeInt; external name 'textKength';\r\n    FType: String; external name 'type';\r\n    FValidationMessage: String; external name 'validationMessage';\r\n    FValidity: TJSValidityState;  external name 'validity';\r\n    FWillValidate: boolean; external name 'willValidate';\r\n  Public\r\n    defaultValue : string;\r\n    value : string;\r\n    rows : cardinal;\r\n    cols : cardinal;\r\n    autofocus : boolean;\r\n    disabled : boolean;\r\n    maxLength : nativeInt;\r\n    readOnly : Boolean;\r\n    required : Boolean;\r\n    selectionStart : Cardinal;\r\n    selectionEnd : Cardinal;\r\n    selectionDirection : String;\r\n    wrap : string;\r\n    Property Form : TJSHTMLFormElement Read FForm;\r\n    Property Type_: String Read FType;\r\n    Property textLength : NativeInt Read FTextLength;\r\n    Property validity : TJSValidityState Read FValidity;\r\n    property willValidate : boolean read FWillValidate;\r\n    property validationMessage : String Read FValidationMessage;\r\n  end;\r\n\r\n  { TJSHTMLEmbedElement }\r\n\r\n  TJSHTMLEmbedElement = class {$IFDEF PAS2JS} external name 'HTMLEmbedElement'  {$ENDIF}(TJSHTMLElement)\r\n  Public\r\n    height: String;\r\n    src: String;\r\n    _type : String; external name 'type';\r\n    width: String;\r\n  end;\r\n\r\n  { TJSHTMLOptionElement }\r\n\r\n  TJSHTMLOptionElement = class {$IFDEF PAS2JS} external name 'Option'  {$ENDIF}(TJSHTMLElement)\r\n  private\r\n    FForm: TJSHTMLFormElement; external name 'form';\r\n    FIndex: NativeInt; external name 'index';\r\n  Public\r\n    Constructor New; overload;\r\n    Constructor New(aText : String); overload;\r\n    Constructor New(aText,aValue : String); overload;\r\n    Constructor New(aText,aValue : String; aDefaultSelected : Boolean); overload;\r\n    Constructor New(aText,aValue : String; aDefaultSelected,Selected : Boolean); overload;\r\n  Public\r\n    defaultSelected : boolean;\r\n    disabled : boolean;\r\n    _label : string ; external name 'label';\r\n    selected : boolean;\r\n    text : string;\r\n    value : string;\r\n    property index : NativeInt Read FIndex;\r\n    property form : TJSHTMLFormElement Read FForm;\r\n  end;\r\n\r\n  TJSHTMLOptGroupElement = class {$IFDEF PAS2JS} external name 'HTMLOptGroupElement'  {$ENDIF}(TJSHTMLElement)\r\n  end;\r\n\r\n  TJSHTMLOptionsCollection = class {$IFDEF PAS2JS} external name 'HTMLOptionsCollection'  {$ENDIF}(TJSHTMLCollection)\r\n  end;\r\n\r\n  { TJSHTMLSelectElement }\r\n\r\n  TJSHTMLSelectElement = class {$IFDEF PAS2JS} external name 'HTMLSelectElement'  {$ENDIF}(TJSHTMLElement)\r\n  private\r\n    FForm: TJSHTMLFormElement; external name 'form';\r\n    FLabels: TJSNodeList; external name 'labels';\r\n    FLength: NativeInt; external name 'length';\r\n    FOptions: TJSHTMLOptionsCollection; external name 'options';\r\n    FSelectedOptions: TJSHTMLCollection; external name 'selectedOptions';\r\n    FType: String; external name 'type';\r\n    FValue: String; external name 'value';\r\n    FValidationMessage: string; external name 'validationMessage';\r\n    FValidity: TJSValidityState; external name 'validity';\r\n    fwillValidate: Boolean; external name 'willValidate';\r\n  Public\r\n    Procedure add(anItem : TJSHTMLOptionElement); overload;\r\n    Procedure add(anItem, before : TJSHTMLOptionElement); overload;\r\n    function item(aIndex : NativeInt): TJSHTMLOptionElement;\r\n    function namedItem(aName : String): TJSHTMLOptionElement;\r\n    procedure remove(aIndex : NativeInt); overload;\r\n    procedure checkValidity;\r\n    procedure setCustomValidity(aMessage : String);\r\n  Public\r\n    autofocus : Boolean;\r\n    disabled : Boolean;\r\n    multiple : boolean;\r\n    required: boolean;\r\n    selectedIndex : NativeInt;\r\n    size : NativeInt;\r\n    property length : NativeInt read FLength;\r\n    Property options : TJSHTMLOptionsCollection read FOptions;\r\n    Property selectedOptions : TJSHTMLCollection read FSelectedOptions;\r\n    Property form : TJSHTMLFormElement read FForm;\r\n    property labels : TJSNodeList Read FLabels;\r\n    property _type : String Read FType;\r\n    property validity : TJSValidityState Read FValidity;\r\n    property validationMessage : string Read FValidationMessage;\r\n    property willValidate : Boolean read fwillValidate;\r\n    property value: string read FValue write FValue;\r\n  end;\r\n\r\n  { TJSHTMLTableElement }\r\n\r\n  TJSHTMLTableSectionElement = class;\r\n  TJSHTMLTableRowElement = class;\r\n\r\n  TJSHTMLTableElement = class {$IFDEF PAS2JS} external name 'HTMLTableElement' {$ENDIF}(TJSHTMLElement)\r\n  private\r\n    FAlign: String; external name 'align';\r\n    FBGColor: String; external name 'bgColor';\r\n    FBorder: String; external name 'border';\r\n    FCaption: TJSHTMLElement; external name 'caption';\r\n    FCellPadding: String; external name 'cellPadding';\r\n    FCellSpacing: String; external name 'cellSpacing';\r\n    FFrame: String; external name 'frame';\r\n    FRows: TJSHTMLCollection; external name 'rows';\r\n    FRules: String; external name 'rules';\r\n    FSummary: String; external name 'summary';\r\n    FTBodies: TJSHTMLCollection; external name 'tBodies';\r\n    FTfoot: TJSHTMLTableSectionElement; external name 'tfoot';\r\n    FTHead: TJSHTMLTableSectionElement; external name 'tHead';\r\n    FWidth: String; external name 'width';\r\n  public\r\n  { Methods }\r\n    function createCaption: TJSHTMLElement;\r\n    function createTFoot: TJSHTMLTableSectionElement;\r\n    function createTHead: TJSHTMLTableSectionElement;\r\n    function createTBody: TJSHTMLTableSectionElement;\r\n    procedure deleteCaption;\r\n    procedure deleteRow(index: Integer);\r\n    procedure deleteTFoot;\r\n    procedure deleteTHead;\r\n    function insertRow(index: Integer): TJSHTMLTableRowElement;\r\n  { Properties }\r\n    property align: String read FAlign write FAlign;\r\n    property bgColor: String read FBGColor write FBGColor;\r\n    property border: String read FBorder write FBorder;\r\n    property caption: TJSHTMLElement read FCaption;\r\n    property cellPadding: String read FCellPadding write FCellPadding;\r\n    property cellSpacing: String read FCellSpacing write FCellSpacing;\r\n    property frame: String read FFrame write FFrame;\r\n    property rows: TJSHTMLCollection read FRows;\r\n    property rules: String read FRules write FRules;\r\n    property summary: String read FSummary write FSummary;\r\n    property tBodies: TJSHTMLCollection read FTBodies;\r\n    property tfoot: TJSHTMLTableSectionElement read FTfoot;\r\n    property tHead: TJSHTMLTableSectionElement read FTHead;\r\n    property width: String read FWidth write FWidth;\r\n  end;\r\n\r\n  { TJSHTMLTableSectionElement }\r\n\r\n  TJSHTMLTableSectionElement = class {$IFDEF PAS2JS} external name 'HTMLTableSectionElement'  {$ENDIF}(TJSHTMLElement)\r\n  private\r\n    Falign: String; external name 'align';\r\n    Frows: TJSHTMLCollection external name 'rows';\r\n    Fch: String; external name 'ch';\r\n    FchOff: String; external name 'chOff';\r\n    FvAlign: String; external name 'vAlign';\r\n  public\r\n  { Methods }\r\n    procedure deleteRow(index: Integer);\r\n    function insertRow(index: Integer): TJSHTMLTableRowElement;\r\n  { Properties }\r\n    property align: String read Falign write Falign;\r\n    property rows: TJSHTMLCollection read Frows;\r\n    property ch: String read Fch write Fch;\r\n    property chOff: String read FchOff write FchOff;\r\n    property vAlign: String read FvAlign write FvAlign;\r\n  end;\r\n\r\n  { TJSHTMLTableCellElement }\r\n\r\n  TJSHTMLTableCellElement = class {$IFDEF PAS2JS} external name 'HTMLTableCellElement'  {$ENDIF}(TJSHTMLElement)\r\n  private\r\n    Fabbr: String; external name 'abbr';\r\n    Falign: String; external name 'align';\r\n    Faxis: String; external name 'axis';\r\n    FbgColor: String; external name 'bgColor';\r\n    FcellIndex: Integer; external name 'cellIndex';\r\n    Fch: String; external name 'ch';\r\n    FchOff: String; external name 'chOff';\r\n    FcolSpan: Integer; external name 'colSpan';\r\n    Fheaders: String; external name 'headers';\r\n    Fheight: String; external name 'height';\r\n    FnoWrap: Boolean; external name 'noWrap';\r\n    FrowSpan: Integer; external name 'rowSpan';\r\n    Fscope: String; external name 'scope';\r\n    FvAlign: String; external name 'vAlign';\r\n    Fwidth: String; external name 'width';\r\n  public\r\n  { Properties }\r\n    property abbr: String read Fabbr write Fabbr;\r\n    property align: String read Falign write Falign;\r\n    property axis: String read Faxis write Faxis;\r\n    property bgColor: String read FbgColor write FbgColor;\r\n    property cellIndex: Integer read FcellIndex;\r\n    property ch: String read Fch write Fch;\r\n    property chOff: String read FchOff write FchOff;\r\n    property colSpan: Integer read FcolSpan write FcolSpan;\r\n    property headers: String read Fheaders;\r\n    property height: String read Fheight write Fheight;\r\n    property noWrap: Boolean read FnoWrap write FnoWrap;\r\n    property rowSpan: Integer read FrowSpan write FrowSpan;\r\n    property scope: String read Fscope write Fscope;\r\n    property vAlign: String read FvAlign write FvAlign;\r\n    property width: String read Fwidth write Fwidth;\r\n  end;\r\n\r\n  { TJSHTMLTableRowElement }\r\n\r\n  TJSHTMLTableRowElement = class {$IFDEF PAS2JS} external name 'HTMLTableRowElement'  {$ENDIF}(TJSHTMLElement)\r\n  private\r\n    Falign: String; external name 'align';\r\n    FbgColor: String; external name 'bgColor';\r\n    Fcells: TJSHTMLCollection; external name 'cells';\r\n    Fch: String; external name 'ch';\r\n    FchOff: String; external name 'chOff';\r\n    FrowIndex: Integer; external name 'rowIndex';\r\n    FsectionRowIndex: Integer; external name 'sectionRowIndex';\r\n    FvAlign: String; external name 'vAlign';\r\n  public\r\n  { Methods }\r\n    procedure deleteCell(index: Integer);\r\n    function insertCell(index: Integer): TJSHTMLTableCellElement;\r\n  { Properties }\r\n    property align: String read Falign write Falign;\r\n    property bgColor: String read FbgColor write FbgColor;\r\n    property cells: TJSHTMLCollection read Fcells;\r\n    property ch: String read Fch write Fch;\r\n    property chOff: String read FchOff write FchOff;\r\n    property rowIndex: Integer read FrowIndex;\r\n    property sectionRowIndex: Integer read FsectionRowIndex;\r\n    property vAlign: String read FvAlign write FvAlign;\r\n  end;\r\n\r\n  { TJSHTMLTableDataCellElement }\r\n\r\n  TJSHTMLTableDataCellElement = class {$IFDEF PAS2JS} external name 'HTMLTableDataCellElement'  {$ENDIF}(TJSHTMLElement)\r\n  private\r\n    Fabbr: String; external name 'abbr';\r\n  public\r\n  { Properties }\r\n    property abbr: String read Fabbr write Fabbr;\r\n  end;\r\n\r\n\r\n  TJSCanvasRenderingContext2D = Class;\r\n\r\n  THTMLCanvasToBlobCallback = Reference to function (aBlob : TJSBlob) : boolean; {$IFDEF PAS2JS} safecall; {$ENDIF}\r\n\r\n  TJSHTMLCanvasElement = class {$IFDEF PAS2JS} external name 'HTMLCanvasElement'  {$ENDIF}(TJSHTMLElement)\r\n  Public\r\n    height : integer;\r\n    width : integer;\r\n    Function getContext(contextType : string) : TJSObject;\r\n    Function getContext(contextType : string; contextAttributes : TJSObject) : TJSObject;\r\n    Function getContextAs2DContext(contextType : string; contextAttributes : TJSObject) : TJSCanvasRenderingContext2D; external name 'getContext';\r\n    Function getContextAs2DContext(contextType : string) : TJSCanvasRenderingContext2D; external name 'getContext';\r\n    Procedure toBlob (aCallBack : THTMLCanvasToBlobCallback; aMimeType : String); overload;\r\n    Procedure toBlob (aCallBack : THTMLCanvasToBlobCallback; aMimeType : String; aQuality : Double); overload;\r\n    Function toDataURL : String; overload;\r\n    Function toDataURL(aMimeType : String) : String; overload;\r\n    Function toDataURL(aMimeType : String; aQuality : Double) : String; overload;\r\n  end;\r\n\r\n  TJSHTMLProgressElement = class {$IFDEF PAS2JS} external name 'HTMLProgressElement'  {$ENDIF}(TJSHTMLElement)\r\n  private\r\n    Fposition: Double; external name 'position';\r\n    Flabels: TJSNodeList; external name 'labels';\r\n  public\r\n    max: Double;\r\n    value: Double;\r\n    property position: Double read Fposition;\r\n    property labels: TJSNodeList read Flabels;\r\n  end;\r\n  Type\r\n\r\n  { TJSDOMException }\r\n\r\n  TJSDOMException = class {$IFDEF PAS2JS} external name 'DOMException'  {$ENDIF}(TJSObject)\r\n  private\r\n    FCode: Integer; external name 'code';\r\n    FMessage: String; external name 'message';\r\n    FName: string; external name 'name';\r\n  Public\r\n    Property code : Integer Read FCode;\r\n    Property Message : String Read FMessage;\r\n    Property name : string Read FName;\r\n  end;\r\n\r\n  { TJSFileReader }\r\n\r\n  TJSFileReader = class {$IFDEF PAS2JS} external name 'FileReader'  {$ENDIF}(TJSEventTarget)\r\n  private\r\n    FError: TJSDOMException; external name 'error';\r\n    fReadyState: Integer; external name 'readyState';\r\n    FResult: JSValue; external name 'result';\r\n  Public\r\n    {$IFDEF PAS2JS}Const{$ENDIF} EMPTY : Integer;\r\n    {$IFDEF PAS2JS}Const{$ENDIF} LOADING : Integer;\r\n   {$IFDEF PAS2JS} Const{$ENDIF} DONE : Integer;\r\n  Public\r\n    onabort : TJSEventHandler;\r\n    onerror : TJSEventHandler;\r\n    onload : TJSEventHandler;\r\n    onloadstart : TJSEventHandler;\r\n    onloadend : TJSEventHandler;\r\n    onprogress : TJSEventHandler;\r\n  Public\r\n    constructor new;\r\n    Procedure abort;\r\n    procedure readAsArrayBuffer(Blob: TJSBlob);\r\n    procedure readAsBinaryString(Blob: TJSBlob);\r\n    procedure readAsDataURL(Blob: TJSBlob);\r\n    procedure readAsText(Blob: TJSBlob; encoding : string);\r\n    procedure readAsText(Blob: TJSBlob);\r\n    property Error : TJSDOMException read FError;\r\n    Property readyState : Integer Read fReadyState;\r\n    property Result : JSValue Read FResult;\r\n  end;\r\n\r\n  TCanvasCoordType = double; // Is in fact a number.\r\n\r\n  // Opaque objects\r\n  TJSCanvasGradient = class {$IFDEF PAS2JS} external name 'CanvasGradient'   {$ENDIF}(TJSObject)\r\n  end;\r\n\r\n  TJSCanvasPattern = class {$IFDEF PAS2JS} external name 'CanvasPattern'   {$ENDIF}(TJSObject)\r\n  end;\r\n\r\n  TJSPath2D = class {$IFDEF PAS2JS} external name 'Path2D'   {$ENDIF}(TJSObject)\r\n  Public\r\n    constructor new; overload;\r\n    constructor new(aPath : TJSPath2D); overload;\r\n    constructor new(SVGPath : String); overload;\r\n    Procedure addPath(aPath : TJSPath2D);\r\n    procedure arc(x,y, radius,startAngle,endAngle : TCanvasCoordType); overload;\r\n    procedure arc(x,y, radius,startAngle,endAngle : TCanvasCoordType; antiClockWise : boolean); overload;\r\n    procedure arcTo(x1,y1,x2,y2,radius : TCanvasCoordType); overload;\r\n    procedure bezierCurveTo(cp1x,cp1y,cp2x,cp2y,x,y : TCanvasCoordType); overload;\r\n    Procedure closePath;\r\n    procedure ellipse(x, y, radiusX, radiusY : TCanvasCoordType; rotation, startAngle, endAngle : Double); overload;\r\n    procedure ellipse(x, y, radiusX, radiusY : TCanvasCoordType; rotation, startAngle, endAngle : Double; anticlockwise : Boolean); overload;\r\n    Procedure lineTo(X,Y : TCanvasCoordType);\r\n    Procedure moveTo(X,Y : TCanvasCoordType);\r\n    procedure quadraticCurveTo(cpx,cpy,x,y : TCanvasCoordType);\r\n    procedure rect(x,y,awidth,aheight: TCanvasCoordType); overload;\r\n  end;\r\n\r\n  { TJSImageData }\r\n\r\n  TJSImageData = class {$IFDEF PAS2JS} external name 'ImageData'   {$ENDIF}(TJSObject)\r\n  private\r\n    FData: TJSUint8ClampedArray; external name 'data';\r\n    FHeight: Integer; external name 'height';\r\n    FWidth: Integer; external name 'width';\r\n  Public\r\n    constructor new(awidth,aheight : integer); overload;\r\n    constructor new(anArray :TJSUint8ClampedArray; awidth,aheight : integer); overload;\r\n    property data : TJSUint8ClampedArray read FData;\r\n    property height : Integer Read FHeight;\r\n    property width : Integer Read FWidth;\r\n  end;\r\n\r\n\r\n  TJSTextMetrics = class {$IFDEF PAS2JS} external name 'TextMetrics'  {$ENDIF}(TJSObject)\r\n    width : TCanvasCoordType;\r\n    actualBoundingBoxLeft : TCanvasCoordType;\r\n    actualBoundingBoxRight : TCanvasCoordType;\r\n    fontBoundingBoxAscent : TCanvasCoordType;\r\n    fontBoundingBoxDescent : TCanvasCoordType;\r\n    actualBoundingBoxAscent : TCanvasCoordType;\r\n    actualBoundingBoxDescent : TCanvasCoordType;\r\n    emHeightAscent : TCanvasCoordType;\r\n    emHeightDescent : TCanvasCoordType;\r\n    hangingBaseline : TCanvasCoordType;\r\n    alphabeticBaseline : TCanvasCoordType;\r\n    ideographicBaseline : TCanvasCoordType;\r\n  end;\r\n\r\n  { TJSCanvasRenderingContext2D }\r\n  TJSCanvasRenderingContext2D = class {$IFDEF PAS2JS} external name 'CanvasRenderingContext2D'   {$ENDIF}(TJSObject)\r\n  private\r\n    FCanvas: TJSHTMLCanvasElement; external name 'canvas';\r\n    FfillStyleColor: String; external name 'fillStyle';\r\n    FfillStyleGradient: TJSCanvasGradient; external name 'fillStyle';\r\n    FfillStylePattern: TJSCanvasPattern; external name 'fillStyle';\r\n    FimageSmoothingEnabled: Boolean; external name 'imageSmoothingEnabled';\r\n    FstrokeStyleColor: String; external name 'strokeStyle';\r\n    FstrokeStyleGradient: TJSCanvasGradient; external name 'strokeStyle';\r\n    FstrokeStylePattern: TJSCanvasPattern; external name 'strokeStyle';\r\n  Public\r\n    fillStyle : JSValue;\r\n    font : string;\r\n    globalAlpha : double;\r\n    globalCompositeOperation : String;\r\n    lineCap : string;\r\n    lineDashOffset : Double;\r\n    lineJoin : String;\r\n    lineWidth : Double;\r\n    miterLimit : Double;\r\n    shadowBlur : Double;\r\n    shadowColor : String;\r\n    shadowOffsetX : Double;\r\n    shadowOffsetY : Double;\r\n    strokeStyle : JSValue;\r\n    textAlign : String;\r\n    textBaseline : String;\r\n    procedure arc(x,y, radius,startAngle,endAngle : TCanvasCoordType); overload;\r\n    procedure arc(x,y, radius,startAngle,endAngle : TCanvasCoordType; antiClockWise : boolean); overload;\r\n    procedure arcTo(x1,y1,x2,y2,radius : TCanvasCoordType); overload;\r\n    procedure beginPath;\r\n    procedure bezierCurveTo(cp1x,cp1y,cp2x,cp2y,x,y : TCanvasCoordType); overload;\r\n    procedure clearRect(x,y,width,height : TCanvasCoordType);\r\n    procedure clip; overload;\r\n    procedure clip(aFillRule : String); overload;\r\n    procedure clip(aPath : TJSPath2D); overload;\r\n    procedure closePath;\r\n    function createImageData(aWidth,aHeight : Integer) : TJSImageData; overload;\r\n    function createImageData(aImage : TJSImageData) : TJSImageData; overload;\r\n    function createLinearGradient(x0,y0,x1,y1 : TCanvasCoordType) : TJSCanvasGradient;\r\n    function createPattern(aImage : TJSObject; repetition : string) : TJSCanvasPattern;\r\n    function createRadialGradient(x0,y0,r0,x1,y1,r1 : TCanvasCoordType) : TJSCanvasGradient;\r\n    procedure drawFocusIfNeeded(aElement : TJSElement); overload;\r\n    procedure drawFocusIfNeeded(aPath : TJSPath2D; aElement : TJSElement); overload;\r\n    procedure drawImage(image : TJSObject; dx,dy : TCanvasCoordType); overload;\r\n    procedure drawImage(image : TJSObject; dx,dy,dwidth,dheight : TCanvasCoordType); overload;\r\n    procedure drawImage(image : TJSObject; sx,sy,sWidth,sHeight,dx,dy,dwidth,dheight : TCanvasCoordType); overload;\r\n    procedure ellipse(x, y, radiusX, radiusY : TCanvasCoordType; rotation, startAngle, endAngle : Double); overload;\r\n    procedure ellipse(x, y, radiusX, radiusY : TCanvasCoordType; rotation, startAngle, endAngle : Double; anticlockwise : Boolean); overload;\r\n    procedure fill; overload;\r\n    procedure fill(aRule : String); overload;\r\n    procedure fill(aPath : TJSPath2D); overload;\r\n    procedure fill(aPath : TJSPath2D;aRule : String); overload;\r\n    procedure fillRect(x,y,awidth,aheight: TCanvasCoordType); overload;\r\n    procedure fillText(aText : string; x,y : TCanvasCoordType); overload;\r\n    procedure fillText(aText : string; x,y, aMaxWidth : TCanvasCoordType); overload;\r\n    function getImageData(x,y,awidth,aheight: TCanvasCoordType) : TJSImageData; overload;\r\n    function getLineDash : TJSArray;\r\n    function isPointInPath(x,y : TCanvasCoordType) : Boolean; overload;\r\n    function isPointInPath(x,y : TCanvasCoordType; aFillRule : String) : Boolean; overload;\r\n    function isPointInPath(aPath : TJSPath2D; x,y : TCanvasCoordType) : Boolean; overload;\r\n    function isPointInPath(aPath : TJSPath2D; x,y : TCanvasCoordType; aFillRule : String) : Boolean; overload;\r\n    function isPointInStroke(x,y : TCanvasCoordType) : Boolean; overload;\r\n    function isPointInStroke(aPath : TJSPath2D; x,y : TCanvasCoordType) : Boolean; overload;\r\n    procedure lineTo(x,y : TCanvasCoordType);\r\n    function measureText(S : String) : TJSTextMetrics;\r\n    procedure moveTo(x,y : TCanvasCoordType);\r\n    procedure putImageData(aData : TJSImageData; x,y: TCanvasCoordType) ; overload;\r\n    procedure putImageData(aData : TJSImageData; x,y,dityX,dirtyY,dirtyWidth,dirtyHeight: TCanvasCoordType) ; overload;\r\n    procedure quadraticCurveTo(cpx,cpy,x,y : TCanvasCoordType);\r\n    procedure rect(x,y,awidth,aheight: TCanvasCoordType); overload;\r\n    procedure restore;\r\n    procedure rotate(anAngle : double);\r\n    procedure save;\r\n    procedure scale(x,y : double);\r\n    procedure setLineDash(segments : TJSArray); overload;\r\n    procedure setLineDash(segments : array of integer); overload;\r\n    procedure setTransform(a,b,c,d,e,f : double);\r\n    procedure stroke; overload;\r\n    procedure stroke(aPath : TJSPath2D); overload;\r\n    procedure strokeRect(x,y,awidth,aheight: TCanvasCoordType);\r\n    procedure strokeText(aText : string; x,y : TCanvasCoordType); overload;\r\n    procedure strokeText(aText : string; x,y, aMaxWidth : TCanvasCoordType); overload;\r\n    procedure transform(a,b,c,d,e,f : double);\r\n    procedure translate(x,y : TCanvasCoordType);\r\n\r\n    property canvas : TJSHTMLCanvasElement Read FCanvas;\r\n    property fillStyleAsColor : String Read FfillStyleColor Write FfillStyleColor;\r\n    property fillStyleAsGradient : TJSCanvasGradient Read FfillStyleGradient Write FfillStyleGradient;\r\n    property fillStyleAsPattern : TJSCanvasPattern Read FfillStylePattern Write FfillStylePattern;\r\n    property imageSmoothingEnabled : Boolean Read FimageSmoothingEnabled Write FimageSmoothingEnabled;\r\n    property strokeStyleAsColor : String Read FstrokeStyleColor Write FstrokeStyleColor;\r\n    property strokeStyleAsGradient : TJSCanvasGradient Read FstrokeStyleGradient Write FstrokeStyleGradient;\r\n    property strokeStyleAsPattern : TJSCanvasPattern Read FstrokeStylePattern Write FstrokeStylePattern;\r\n  end;\r\n\r\n  { TJSHTMLIFrameElement }\r\n\r\n  TJSHTMLIFrameElement = class {$IFDEF PAS2JS} external name 'HTMLIFrameElement'  {$ENDIF}(TJSHTMLElement)\r\n  private\r\n    FAllowPaymentRequest: Boolean; external name 'allowPaymentRequest';\r\n    FContentDocument: TJSDocument; external name 'contentDocument';\r\n    FContentWindow: TJSWindow; external name 'contentWindow';\r\n    FSandbox: string; external name 'sandbox';\r\n  Public\r\n    height : string;\r\n    src : string;\r\n    srcdoc : string;\r\n    width : string;\r\n    Property allowPaymentRequest : Boolean Read FAllowPaymentRequest;\r\n    property contentWindow : TJSWindow Read FContentWindow;\r\n    property contentDocument : TJSDocument Read FContentDocument;\r\n    property sandbox : string read FSandbox;\r\n  end;\r\n\r\n  TJSHTMLScriptElement = class {$IFDEF PAS2JS} external name 'HTMLScriptElement'  {$ENDIF}(TJSHTMLElement)\r\n  Public\r\n    type_ : String external name 'type';\r\n    src : String;\r\n    charset : string;\r\n    integrity : string;\r\n    async : boolean;\r\n    defer : boolean;\r\n    text : string;\r\n    crossOrigin : string;\r\n    referrerPolicy : string;\r\n    noModule : boolean;\r\n  end;\r\n\r\n\r\n\r\n\r\n  TJSXMLHttpRequestEventTarget = class {$IFDEF PAS2JS} external name 'XMLHttpRequestEventTarget'  {$ENDIF}(TJSEventTarget)\r\n  end;\r\n\r\n  TJSXMLHttpRequestUpload = class {$IFDEF PAS2JS} external name 'XMLHttpRequestUpload'  {$ENDIF}(TJSXMLHttpRequestEventTarget)\r\n  end;\r\n\r\n  { TJSXMLHttpRequest }\r\n  TJSOnReadyStateChangeHandler = reference to procedure; {$IFDEF PAS2JS} safecall; {$ENDIF}\r\n\r\n  TJSXMLHttpRequest = class {$IFDEF PAS2JS} external name 'XMLHttpRequest'  {$ENDIF}(TJSXMLHttpRequestEventTarget)\r\n  private\r\n    FReadyState: NativeInt; external name 'readyState';\r\n    FResponse: JSValue; external name 'response';\r\n    FResponseText: string; external name 'responseText';\r\n    FResponseType: string; external name 'responseType';\r\n    FresponseURL: string; external name 'responseURL';\r\n    FresponseXML: TJSDocument; external name 'responseXML';\r\n    FUpload: TJSXMLHttpRequestUpload; external name 'upload';\r\n    FStatus : integer; external name 'status';\r\n    FStatusText : string; external name 'statusText';\r\n  public\r\n    const\r\n      UNSENT           = 0;\r\n      OPENED           = 1;\r\n      HEADERS_RECEIVED = 2;\r\n      LOADING          = 3;\r\n      DONE             = 4;\r\n  public\r\n    timeout : LongWord;\r\n    withCredentials : Boolean;\r\n    onreadystatechange : TJSOnReadyStateChangeHandler;\r\n    constructor new;\r\n    procedure abort;\r\n    function getResponseHeader(aName : string) : String;\r\n    function getAllResponseHeaders : String;\r\n    procedure open(aMethod,aURL : String); overload;\r\n    procedure open(aMethod,aURL : String; Async : Boolean); overload;\r\n    procedure open(aMethod,aURL : String; Async : Boolean; AUserame : String); overload;\r\n    procedure open(aMethod,aURL : String; Async : Boolean; AUserame,APassword : String); overload;\r\n    procedure overrideMimeType(aType : String);\r\n    procedure send(aBody : jsValue);overload;\r\n    procedure send;overload;\r\n    procedure setRequestHeader(aName, AValue : string);\r\n\r\n    property readyState : NativeInt read FReadyState;\r\n    property ResponseHeaders[aName : string] : string Read getResponseHeader;\r\n    property responseXML : TJSDocument read FresponseXML;\r\n    property responseURL : string read FresponseURL;\r\n    property responseType : string read FResponseType Write FResponseType;\r\n    property response : JSValue Read FResponse;\r\n    property responseText : string read FResponseText;\r\n    property Status : integer read FStatus;\r\n    property StatusText : string read FStatusText;\r\n    property upload : TJSXMLHttpRequestUpload read FUpload;\r\n\r\n  end;\r\n\r\n  { TJSUIEvent }\r\n\r\n  TJSUIEvent = class {$IFDEF PAS2JS} external name 'UIEvent'  {$ENDIF}(TJSEvent)\r\n  private\r\n    FDetail: NativeInt; external name 'detail';\r\n    FView: TJSWindow; external name 'view';\r\n  Public\r\n    property detail : NativeInt read FDetail;\r\n    property view : TJSWindow read FView;\r\n  end;\r\n\r\n  { TJSMouseEvent }\r\n\r\n  TJSMouseEvent = class {$IFDEF PAS2JS} external name 'MouseEvent'  {$ENDIF}(TJSUIevent)\r\n  private\r\n    FAltKey: Boolean; external name 'altKey';\r\n    FBUtton: NativeInt; external name 'button';\r\n    FBUttons: NativeInt; external name 'buttons';\r\n    FClientX: Double; external name 'clientX';\r\n    FClientY: Double; external name 'clientY';\r\n    FCtrlKey: Boolean; external name 'ctrlKey';\r\n    FMetaKey: Boolean; external name 'metaKey';\r\n    FmovementX: Double; external name 'movementX';\r\n    FmovementY: Double; external name 'movementY';\r\n    FoffsetX: Double; external name 'offsetX';\r\n    FoffsetY: Double; external name 'offsetY';\r\n    FRegion: String; external name 'region';\r\n    FRelatedTarget: TJSEventTarget; external name 'relatedTarget';\r\n    FscreenX: Double; external name 'screenX';\r\n    FscreenY: Double; external name 'screenY';\r\n    FShiftKey: Boolean; external name 'shiftKey';\r\n  Public\r\n    function getModifierState(keyArg: String): boolean;\r\n    Property altKey : Boolean read FAltKey;\r\n    Property button: NativeInt read FBUtton;\r\n    Property buttons: NativeInt read FBUttons;\r\n    property clientX : Double read FClientX;\r\n    property clientY : Double read FClientY;\r\n    property ctrlKey : Boolean read FCtrlKey;\r\n    property metaKey : Boolean read FMetaKey;\r\n    property movementX : Double read FmovementX;\r\n    property movementY : Double read FmovementY;\r\n    property offsetX : Double read FoffsetX;\r\n    property offsetY : Double read FoffsetY;\r\n{$IFDEF FIREFOX}\r\n    property pageX : Double read FpageX;\r\n    property pageY : Double read FpageY;\r\n{$ENDIF}\r\n    property region : String read FRegion;\r\n    property relatedTarget : TJSEventTarget read FRelatedTarget;\r\n    property screenX : Double read FscreenX;\r\n    property screenY : Double read FscreenY;\r\n    property shiftKey : Boolean read FShiftKey;\r\n    property x : Double read FClientX;\r\n    property y : Double read FClientY;\r\n  end;\r\n\r\n  { TJSWheelEvent }\r\n  TJSWheelEventInit = record\r\n    deltaX : Double;\r\n    deltaY : Double;\r\n    deltaZ : Double;\r\n    deltaMode : NativeInt;\r\n  end;\r\n\r\n  TJSWheelEvent = class {$IFDEF PAS2JS} external name 'WheelEvent'  {$ENDIF}(TJSMouseEvent)\r\n  private\r\n    FDeltaMode: NativeInt; external name 'deltaMode';\r\n    FDeltaX: Double; external name 'deltaX';\r\n    FDeltaY: Double; external name 'deltaY';\r\n    FDeltaZ: Double; external name 'deltaZ';\r\n  Public\r\n    constructor new(atype : String); overload;\r\n    constructor new(atype : String; aInit : TJSWheelEventInit); overload;\r\n    Property deltaX : Double Read FDeltaX;\r\n    Property deltaY : Double Read FDeltaY;\r\n    Property deltaZ : Double Read FDeltaZ;\r\n    Property deltaMode : NativeInt Read FDeltaMode;\r\n  end;\r\n\r\n  TJSPointerEvent = class {$IFDEF PAS2JS} external name 'PointerEvent'  {$ENDIF}(TJSMouseEvent);\r\n\r\n  TJSTouchEvent = class {$IFDEF PAS2JS} external name 'TouchEvent' {$ENDIF}(TJSUIEvent)\r\n  private\r\n    FAltKey: Boolean; external name 'altKey';\r\n    FChangedTouches: TJSTouchList; external name 'changedTouches';\r\n    FCtrlKey: Boolean; external name 'ctrlKey';\r\n    FMetaKey: Boolean; external name 'metaKey';\r\n    FShiftKey: Boolean; external name 'shiftKey';\r\n    FTargetTouches: TJSTouchList; external name 'targetTouches';\r\n    FTouches: TJSTouchList; external name 'touches';\r\n  Public\r\n    Property altKey : Boolean Read FAltKey;\r\n    Property ctrlKey : Boolean Read FCtrlKey;\r\n    Property metaKey : Boolean Read FMetaKey;\r\n    Property shiftKey : Boolean Read FShiftKey;\r\n    property changedTouches : TJSTouchList Read FChangedTouches;\r\n    property touches : TJSTouchList Read FTouches;\r\n    property targetTouches : TJSTouchList Read FTargetTouches;\r\n  end;\r\n\r\n\r\n  // Namespace for standard key names.\r\n  // See list at https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent/key/Key_Values\r\n  TJSKeyNames = Class\r\n  Const\r\n    Alt = 'Alt';\r\n    AltGraph = 'AltGraph';\r\n    CapsLock = 'CapsLock';\r\n    Control = 'Control';\r\n    Fn = 'Fn';\r\n    FnLock = 'FnLock';\r\n    Hyper = 'Hyper';\r\n    Meta = 'Meta';\r\n    NumLock = 'NumLock';\r\n    ScrollLock = 'ScrollLock';\r\n    Shift = 'Shift';\r\n    Super = 'Super';\r\n    Symbol = 'Symbol';\r\n    SymbolLock = 'SymbolLock';\r\n    Enter = 'Enter';\r\n    Tab = 'Tab';\r\n    Space = 'Space';\r\n    ArrowDown = 'ArrowDown';\r\n    ArrowLeft = 'ArrowLeft';\r\n    ArrowRight = 'ArrowRight';\r\n    ArrowUp = 'ArrowUp';\r\n    _End = 'End';\r\n    Home = 'Home';\r\n    PageDown = 'PageDown';\r\n    PageUp = 'PageUp';\r\n    BackSpace = 'Backspace';\r\n    Clear = 'Clear';\r\n    Copy = 'Copy';\r\n    CrSel = 'CrSel';\r\n    Cut = 'Cut';\r\n    Delete = 'Delete';\r\n    EraseEof = 'EraseEof';\r\n    ExSel = 'ExSel';\r\n    Insert = 'Insert';\r\n    Paste = 'Paste';\r\n    Redo = 'Redo';\r\n    Undo = 'Undo';\r\n    Accept = 'Accept';\r\n    Again = 'Again';\r\n    Attn = 'Attn';\r\n    Cancel = 'Cancel';\r\n    ContextMenu = 'Contextmenu';\r\n    Escape = 'Escape';\r\n    Execute = 'Execute';\r\n    Find = 'Find';\r\n    Finish = 'Finish';\r\n    Help = 'Help';\r\n    Pause = 'Pause';\r\n    Play = 'Play';\r\n    Props = 'Props';\r\n    Select = 'Select';\r\n    ZoomIn = 'ZoomIn';\r\n    ZoomOut = 'ZoomOut';\r\n    BrightnessDown = 'BrightnessDown';\r\n    BrightnessUp = 'BrightnessUp';\r\n    Eject = 'Eject';\r\n    LogOff = 'LogOff';\r\n    Power = 'Power';\r\n    PowerOff = 'PowerOff';\r\n    PrintScreen = 'PrintScreen';\r\n    Hibernate = 'Hibernate';\r\n    Standby = 'Standby';\r\n    WakeUp = 'WakeUp';\r\n    AllCandidates = 'AllCandidates';\r\n    Alphanumeric =  'Alphanumeric';\r\n    CodeInput = 'CodeInput';\r\n    Compose = 'Compose';\r\n    Convert = 'Convert';\r\n    Dead = 'Dead';\r\n    FinalMode = 'FinalMode';\r\n    GroupFirst = 'GroupFirst';\r\n    GroupLast = 'GroupLast';\r\n    GroupNext = 'GroupNext';\r\n    GroupPrevious = 'GroupPrevious';\r\n    ModelChange = 'ModelChange';\r\n    NextCandidate = 'NextCandidate';\r\n    NonConvert = 'NonConvert';\r\n    PreviousCandidate = 'PreviousCandidate';\r\n    Process = 'Process';\r\n    SingleCandidate = 'SingleCandidate';\r\n    HangulMode = 'HangulMode';\r\n    HanjaMode = 'HanjaMode';\r\n    JunjaMode = 'JunjaMode';\r\n    Eisu = 'Eisu';\r\n    Hankaku = 'Hankaku';\r\n    Hiranga = 'Hiranga';\r\n    HirangaKatakana = 'HirangaKatakana';\r\n    KanaMode = 'KanaMode';\r\n    Katakana = 'Katakana';\r\n    Romaji = 'Romaji';\r\n    Zenkaku = 'Zenkaku';\r\n    ZenkakuHanaku = 'ZenkakuHanaku';\r\n    F1 = 'F1';\r\n    F2 = 'F2';\r\n    F3 = 'F3';\r\n    F4 = 'F4';\r\n    F5 = 'F5';\r\n    F6 = 'F6';\r\n    F7 = 'F7';\r\n    F8 = 'F8';\r\n    F9 = 'F9';\r\n    F10 = 'F10';\r\n    F11 = 'F11';\r\n    F12 = 'F12';\r\n    F13 = 'F13';\r\n    F14 = 'F14';\r\n    F15 = 'F15';\r\n    F16 = 'F16';\r\n    F17 = 'F17';\r\n    F18 = 'F18';\r\n    F19 = 'F19';\r\n    F20 = 'F20';\r\n    Soft1 = 'Soft1';\r\n    Soft2 = 'Soft2';\r\n    Soft3 = 'Soft3';\r\n    Soft4 = 'Soft4';\r\n    Decimal = 'Decimal';\r\n    Key11 = 'Key11';\r\n    Key12 = 'Key12';\r\n    Multiply = 'Multiply';\r\n    Add = 'Add';\r\n    NumClear = 'Clear';\r\n    Divide = 'Divide';\r\n    Subtract = 'Subtract';\r\n    Separator = 'Separator';\r\n    AppSwitch = 'AppSwitch';\r\n    Call = 'Call';\r\n    Camera = 'Camera';\r\n    CameraFocus = 'CameraFocus';\r\n    EndCall = 'EndCall';\r\n    GoBack = 'GoBack';\r\n    GoHome = 'GoHome';\r\n    HeadsetHook = 'HeadsetHook';\r\n    LastNumberRedial = 'LastNumberRedial';\r\n    Notification = 'Notification';\r\n    MannerMode = 'MannerMode';\r\n    VoiceDial = 'VoiceDial';\r\n    // TODO : Multimedia keys\r\n    // TODO : Audio control keys\r\n    // TODO : TV control keys\r\n    // TODO : Media controller keys\r\n    // TODO : Speech recognition keys\r\n    // TODO : Document keys\r\n    // TODO : Application selector keys\r\n    // TODO : Browser Control keys\r\n  end;\r\n\r\n\r\n  { TJSKeyboardEvent }\r\n\r\n  TJSKeyboardEvent = class {$IFDEF PAS2JS} external name 'KeyboardEvent'  {$ENDIF}(TJSUIEvent)\r\n  private\r\n    FAltKey: Boolean; external name 'altKey';\r\n    FCode: string; external name 'code';\r\n    FCtrlKey: Boolean; external name 'ctrlKey';\r\n    FIsComposing: Boolean;  external name 'isComposing';\r\n    FKey: String; external name 'key';\r\n    FLocale: string; external name 'locale';\r\n    FLocation: NativeInt; external name 'location';\r\n    FMetaKey: Boolean; external name 'metaKey';\r\n    FRepeat: Boolean; external name 'repeat';\r\n    FShiftKey: Boolean; external name 'shiftKey';\r\n  Public\r\n    function getModifierState(aKey : string) : Boolean;\r\n    property code : string read FCode;\r\n    Property altKey : Boolean read FAltKey;\r\n    property ctrlKey : Boolean read FCtrlKey;\r\n    property isComposing : Boolean read FIsComposing;\r\n    property Key : String read FKey;\r\n    property locale : string read FLocale;\r\n    property location : NativeInt read FLocation;\r\n    property metaKey : Boolean read FMetaKey;\r\n    property _repeat : Boolean read FRepeat;\r\n    property shiftKey : Boolean read FShiftKey;\r\n  end;\r\n\r\n  { MutationObserver }\r\n\r\n  TJSMutationObserver = Class;\r\n\r\n  TJSMutationRecord = record\r\n    type_ : string;\r\n    target : TJSNode;\r\n    addedNodes : TJSNodeList;\r\n    removedNodes : TJSNodeList;\r\n    previousSibling : TJSNode;\r\n    nextSibling : TJSNode;\r\n    attributeName : String;\r\n    attributeNamespace : String;\r\n    oldValue : String;\r\n  end;\r\n\r\n  TJSMutationRecordArray = array of TJSMutationRecord;\r\n  TJSMutationCallback = reference to procedure(mutations: TJSMutationRecordArray; observer: TJSMutationObserver); {$IFDEF PAS2JS} safecall; {$ENDIF}\r\n\r\n  TJSMutationObserverInit = record\r\n    attributes: boolean;\r\n    attributeOldValue: boolean;\r\n    characterData: boolean;\r\n    characterDataOldValue: boolean;\r\n    childList: boolean;\r\n    subTree: boolean;\r\n    attributeFilter: TJSArray;\r\n  end;\r\n\r\n  TJSMutationObserver = class {$IFDEF PAS2JS} external name 'MutationObserver'  {$ENDIF}(TJSObject)\r\n  public\r\n    { constructor }\r\n    constructor new(mutationCallback: TJSMutationCallback); overload;\r\n    { public methods }\r\n    procedure observe(target: TJSNode); overload;\r\n    procedure observe(target: TJSNode; options: TJSMutationObserverInit); overload;\r\n    procedure observe(target: TJSNode; options: TJSObject); overload;\r\n    procedure disconnect;\r\n    function takeRecords: TJSMutationRecordArray;\r\n  end;\r\n\r\n  { --------------------------------------------------------------------\r\n    TJSWebSocket\r\n    --------------------------------------------------------------------}\r\n\r\n  TJSMessagePortArray = Array of TJSMessagePort;\r\n\r\n  { TJSInputEvent }\r\n\r\n  TJSInputEvent = class {$IFDEF PAS2JS} external name 'InputEvent'  {$ENDIF}(TJSUIEvent)\r\n  private\r\n    FData: TJSDOMString; external name 'data';\r\n    FDataTransfer: TJSObject; external name 'dataTransfer';\r\n    FInputType: TJSDOMString; external name 'inputType';\r\n    FIsComposing: Boolean; external name 'isComposing';\r\n  public\r\n    property data: TJSDOMString read FData;\r\n    property dataTransfer: TJSObject read FDataTransfer;\r\n    property inputType: TJSDOMString read FInputType;\r\n    property isComposing: Boolean read FIsComposing;\r\n  end;\r\n\r\n  { TJSMessageEvent }\r\n\r\n  TJSMessageEvent = class {$IFDEF PAS2JS} external name 'MessageEvent'  {$ENDIF}(TEventListenerEvent)\r\n  private\r\n    FData: JSValue; external name 'data';\r\n    FLastEventID: String; external name 'lastEventID';\r\n    FOrigin: String;  external name 'origin';\r\n    FPorts: TJSMessagePortArray; external name 'ports';\r\n  Public\r\n    Property Data : JSValue Read FData;\r\n    Property LastEventID : String Read FLastEventID;\r\n    Property Origin : String Read FOrigin;\r\n    Property Ports : TJSMessagePortArray Read FPorts;\r\n  end;\r\n\r\n  TJSWebSocket = class {$IFDEF PAS2JS} external name 'WebSocket'   {$ENDIF}(TJSEventTarget)\r\n  Private\r\n    Furl : String; external name 'url';\r\n    FreadyState : Cardinal; external name 'readyState';\r\n    FbufferedAmount : NativeInt; external name 'bufferedAmount';\r\n    Fextensions : String; external name 'extensions';\r\n    Fprotocol : String; external name 'protocol';\r\n  Public\r\n    Const\r\n      CONNECTING = 0;\r\n      OPEN = 1;\r\n      CLOSING = 2;\r\n      CLOSED = 3;\r\n  Public\r\n    onopen : TJSEventHandler;\r\n    onerror : TJSEventHandler;\r\n    onclose : TJSEventHandler;\r\n    onmessage : TJSEventHandler;\r\n    binaryType : String;\r\n    constructor new(url : String); overload;\r\n    constructor new(url : String; protocol: String); overload;\r\n    constructor new(url : String; protocols: array of String); overload;\r\n    Procedure close; overload;\r\n    Procedure close(code : Cardinal); overload;\r\n    Procedure close(code : Cardinal; reason : String); overload;\r\n    Procedure send(data : String);\r\n    Procedure send(data : TJSBlob);\r\n    Procedure send(data : TJSArrayBuffer);\r\n    Procedure send(data : TJSTypedArray);\r\n    Property url : String Read Furl;\r\n    Property readyState : Cardinal Read FreadyState;\r\n    Property bufferedAmount : NativeInt Read FbufferedAmount;\r\n    Property extensions : String Read Fextensions;\r\n    Property protocol : String Read Fprotocol;\r\n  end;\r\n\r\n  TJSHTMLAudioTrack = class {$IFDEF PAS2JS} external name 'AudioTrack'  {$ENDIF}(TJSObject)\r\n  end;\r\n\r\n  TJSHTMLAudioTrackList = class {$IFDEF PAS2JS} external name 'AudioTrackList'  {$ENDIF}(TJSObject)\r\n    FLength : Integer; external name 'length';\r\n    function getitem(aIndex : nativeInt) : TJSHTMLAudioTrack ; external name '[]';\r\n  Public\r\n    onaddtrack : TJSEventHandler;\r\n    onchange : TJSEventHandler;\r\n    onremovetrack : TJSEventHandler;\r\n    Property Length : Integer Read FLength;\r\n    Property tracks [aIndex : NativeInt] : TJSHTMLAudioTrack read Getitem;\r\n  end;\r\n\r\n  TJSHTMLVideoTrack = class {$IFDEF PAS2JS} external name 'VideoTrack'  {$ENDIF}(TJSObject)\r\n  end;\r\n\r\n  TJSHTMLVideoTrackList = class {$IFDEF PAS2JS} external name 'VideoTrackList'  {$ENDIF}(TJSObject)\r\n    FLength : Integer; external name 'length';\r\n    function getitem(aIndex : nativeInt) : TJSHTMLVideoTrack ; external name '[]';\r\n  Public\r\n    onaddtrack : TJSEventHandler;\r\n    onchange : TJSEventHandler;\r\n    onremovetrack : TJSEventHandler;\r\n    Property Length : Integer Read FLength;\r\n    Property tracks [aIndex : NativeInt] : TJSHTMLVideoTrack read Getitem;\r\n  end;\r\n\r\n  TJSHTMLTextTrack = class {$IFDEF PAS2JS} external name 'TextTrack'  {$ENDIF}(TJSObject)\r\n  end;\r\n\r\n  TJSHTMLTextTrackList = class {$IFDEF PAS2JS} external name 'TextTrackList'  {$ENDIF}(TJSObject)\r\n    FLength : Integer; external name 'length';\r\n    function getitem(aIndex : nativeInt) : TJSHTMLTextTrack ; external name '[]';\r\n  Public\r\n    onaddtrack : TJSEventHandler;\r\n    onchange : TJSEventHandler;\r\n    onremovetrack : TJSEventHandler;\r\n    Property Length : Integer Read FLength;\r\n    Property tracks [aIndex : NativeInt] : TJSHTMLTextTrack read Getitem;\r\n  end;\r\n\r\n\r\n  { TJSHTMLMediaElement }\r\n  TJSMEdiaError = class {$IFDEF PAS2JS} external name 'MediaError'  {$ENDIF}(TJSObject)\r\n    code : NativeInt;\r\n    message : string;\r\n  end;\r\n\r\n  TJSHTMLMediaStream = class {$IFDEF PAS2JS} external name 'MediaStream'  {$ENDIF}(TJSObject);\r\n\r\n  TJSHTMLMediaController = class {$IFDEF PAS2JS} external name 'MediaController'  {$ENDIF}(TJSObject);\r\n\r\n  TJSHTMLMediaElement = class {$IFDEF PAS2JS} external name 'HTMLMediaElement'  {$ENDIF}(TJSHTMLElement)\r\n  private\r\n    FAudioTracks: TJSHTMLAudioTrackList; external name 'audioTracks';\r\n    FVideoTracks: TJSHTMLVideoTrackList; external name 'videoTracks';\r\n    FTextTracks: TJSHTMLTextTrackList; external name 'textTracks';\r\n    FControlsList: TJSDOMTokenList; external name 'controlslist';\r\n    FCurrentSrc: String; external name 'currentSrc';\r\n    FDuration: Double; external name 'duration';\r\n    FEnded: Boolean;external name 'ended';\r\n    FError: TJSMEdiaError; external name 'error';\r\n    FNetworkState: NativeInt; external name 'networkState';\r\n    FPaused: boolean; external name 'paused';\r\n    FReadyState: NativeInt; external name 'readyState';\r\n    FSeeking: boolean; external name 'seeking';\r\n    FSinkID: string; external name 'sinkId';\r\n  Public\r\n    autoplay : Boolean;\r\n    buffered : Boolean;\r\n    controls : Boolean;\r\n    controller : TJSHTMLMediaController;\r\n    crossOrigin : String;\r\n    currentTime : Double;\r\n    defaultMuted : boolean;\r\n    defaultPlaybackRate : Double;\r\n    disableRemotePlayback : Boolean;\r\n    loop : boolean;\r\n    mediaGroup : string;\r\n    muted : boolean;\r\n    preload : string;\r\n    preservesPitch : boolean;\r\n    src : string;\r\n    srcObject : TJSHTMLMediaStream;\r\n    volume : double;\r\n    onencrypted : TJSEventHandler;\r\n    onwaitingforkey : TJSEventHandler;\r\n    function canPlayType(aType : String) : String;\r\n    Function captureStream : TJSHTMLMediaStream;\r\n    Procedure play;\r\n    Procedure load;\r\n    Procedure pause;\r\n\r\n    Property AudioTracks : TJSHTMLAudioTrackList Read FAudioTracks;\r\n    Property Controlslist : TJSDOMTokenList Read FControlsList;\r\n    Property CurrentSrc : String Read FCurrentSrc;\r\n    Property Duration : Double read FDuration;\r\n    Property Ended : Boolean read FEnded;\r\n    Property Error : TJSMEdiaError read FError;\r\n    property networkState : NativeInt read FNetworkState;\r\n    property paused : boolean read FPaused;\r\n    property readyState : NativeInt read FReadyState;\r\n    property seeking : boolean read FSeeking;\r\n    property sinkID : string read FSinkID;\r\n    Property TextTracks : TJSHTMLTextTrackList Read FTextTracks;\r\n    Property VideoTracks : TJSHTMLVideoTrackList Read FVideoTracks;\r\n  end;\r\n\r\n  TJSHTMLAudioElement = class {$IFDEF PAS2JS} external name 'HTMLAudioElement'  {$ENDIF}(TJSHTMLMediaElement)\r\n\r\n  end;\r\n\r\n  TJSHTMLVideoElement = class {$IFDEF PAS2JS} external name 'HTMLVideoElement'  {$ENDIF}(TJSHTMLMediaElement)\r\n  end;\r\n\r\n  { TJSHTMLStyleElement }\r\n\r\n  TJSHTMLStyleElement = class {$IFDEF PAS2JS} external name 'HTMLStyleElement'  {$ENDIF}(TJSHTMLElement)\r\n  private\r\n    FSheet: TJSStyleSheet; external name 'sheet';\r\n  public\r\n    media : string;\r\n    type_ : string; external name 'style';\r\n    disabled : boolean;\r\n    property sheet : TJSStyleSheet read FSheet;\r\n  end;\r\n\r\n\r\n  TJSHTMLDetailsElement = class {$IFDEF PAS2JS} external name 'HTMLDetailsElement'  {$ENDIF}(TJSHTMLElement)\r\n  strict private\r\n    FOpen: Boolean; external name 'open';\r\n  public\r\n    property Open: Boolean read FOpen write FOpen;\r\n  end;\r\n  \r\n  TJSResizeObserverEntry = class {$IFDEF PAS2JS} external name 'ResizeObserverEntry'  {$ENDIF}(TJSObject)\r\n  public\r\n    contentRect: TJSDOMRect;\r\n  end;\r\n  TJSResizeObserverEntries = array of TJSResizeObserverEntry;\r\n\r\n  TJSResizeObserverCallback = procedure(AEntries: TJSResizeObserverEntries; AObserver: TJSResizeObserver);\r\n  TJSResizeObserverCallbackObj = procedure(AEntries: TJSResizeObserverEntries; AObserver: TJSResizeObserver) of object;\r\n\r\n  TJSResizeObserver = class {$IFDEF PAS2JS} external name 'ResizeObserver'  {$ENDIF}(TJSObject)\r\n  public\r\n    constructor new(ACallback: TJSResizeObserverCallback);\r\n    constructor new(ACallback: TJSResizeObserverCallbackObj);\r\n    procedure disconnect;\r\n    procedure observe(ATarget: TJSHTMLElement);\r\n    procedure unobserve(ATarget: TJSHTMLElement);\r\n  end;\r\n\r\n  TJSFormDataEntryValue = String;\r\n  TJSFormDataEntryValueArray = Array of TJSFormDataEntryValue;\r\n\r\n  TJSFormData = class {$IFDEF PAS2JS} external name 'FormData'  {$ENDIF}(TJSObject)\r\n    constructor new;\r\n    constructor new(aForm : TJSHTMLElement);\r\n    Procedure append(const aName,aValue : String);\r\n    Procedure append(const aName : String; aBlob : TJSBlob);\r\n    Procedure delete(const aName : String);\r\n    Function entries : TJSFormDataEntryValueArray;\r\n    Function get(const aName : String): TJSFormDataEntryValue;\r\n    function has(const aName : String): Boolean;\r\n    Function keys : TStringDynArray; reintroduce;\r\n    Procedure set_(const aName,aValue : String); external name 'set';\r\n    Procedure set_(const aName : String; aBlob : TJSBlob); external name 'set';\r\n    Function getAll(const aName : String) : TJSFormDataEntryValueArray;\r\n    Function values : TJSValueDynArray; reintroduce;\r\n    Property Entry[const aIndex : String] : TJSFormDataEntryValue read Get;\r\n  end;\r\n\r\n  TJSHTMLTemplateElement = class {$IFDEF PAS2JS} external name 'HTMLTemplateElement'  {$ENDIF}(TJSHTMLElement)\r\n    content : TJSHTMLElement;\r\n  end;\r\n\r\n    TJSHTMLOrXMLDocument = class {$IFDEF PAS2JS} external name 'Document'  {$ENDIF}(TJSDocument)\r\n  end;\r\n\r\n  TJSHTMLDocument = class {$IFDEF PAS2JS} external name 'HTMLDocument'  {$ENDIF}(TJSHTMLOrXMLDocument)\r\n  end;\r\n\r\n  TJSXMLDocument = class {$IFDEF PAS2JS} external name 'HTMLDocument'  {$ENDIF}(TJSHTMLOrXMLDocument)\r\n  end;\r\n\r\n  TDOMParser = class {$IFDEF PAS2JS} external name 'DOMParser'  {$ENDIF}(TJSObject)\r\n  Public\r\n    Function parseFromString (aString,aMimetype : String): TJSHTMLOrXMLDocument;\r\n  end;\r\n\r\n\r\n  TOnChangeProcedure = reference to procedure;\r\n\r\n  TJSPermissionDescriptor = class {$IFDEF PAS2JS} external name 'Object'  {$ENDIF}(TJSObject)\r\n  public\r\n    name: String;\r\n    userVisibleOnly: Boolean;\r\n    sysex: Boolean;\r\n  end;\r\n\r\n  TJSPermissionStatus = class {$IFDEF PAS2JS} external name 'PermissionStatus'  {$ENDIF}(TJSObject)\r\n  private\r\n    FState: String; external name 'state';\r\n  public\r\n    onchange: TOnChangeProcedure;\r\n    property state: String read FState;\r\n  end;\r\n\r\n  TJSPermissions = class {$IFDEF PAS2JS} external name 'Permissions'  {$ENDIF}(TJSObject)\r\n  public\r\n    function query(descriptor: TJSPermissionDescriptor): TJSPermissionStatus; {$IFDEF PAS2JS} async; {$ENDIF}\r\n  end;\r\n\r\n  TJSFileSystemHandlePermissionDescriptor = class {$IFDEF PAS2JS} external name 'Object'  {$ENDIF}(TJSObject)\r\n  public\r\n    mode: String;\r\n  end;\r\n\r\n  TJSFileSystemCreateWritableOptions = class {$IFDEF PAS2JS} external name 'Object'  {$ENDIF}(TJSObject)\r\n  public\r\n    keepExistingData: Boolean;\r\n  end;\r\n\r\n  TJSFileSystemWritableFileStream = class;\r\n\r\n  TJSFileSystemHandle = class {$IFDEF PAS2JS} external name 'FileSystemHandle'  {$ENDIF}(TJSObject)\r\n  private\r\n    FKind: String; external name 'kind';\r\n    FName: String; external name 'name';\r\n  public\r\n    function isSameEntry(const Handle: TJSFileSystemHandle): Boolean;\r\n    function queryPermission(descriptor: TJSFileSystemHandlePermissionDescriptor): String;\r\n    function requestPermission(descriptor: TJSFileSystemHandlePermissionDescriptor): String;\r\n\r\n    property kind: String read FKind;\r\n    property name: String read FName;\r\n  end;\r\n\r\n  TJSFileSystemFileHandle = class {$IFDEF PAS2JS} external name 'FileSystemFileHandle'  {$ENDIF}(TJSFileSystemHandle)\r\n  public\r\n    function getFile: TJSHTMLFile; {$IFDEF PAS2JS} async; {$ENDIF}\r\n    function createWritable: TJSFileSystemWritableFileStream; overload;\r\n    function createWritable(options: TJSFileSystemCreateWritableOptions): TJSFileSystemWritableFileStream; overload;\r\n  end;\r\n\r\n  TJSGetFileHandleOptions = class external name 'Object'\r\n  public\r\n    create: Boolean;\r\n\r\n    constructor new;\r\n  end;\r\n\r\n  TJSRemoveEntryOptions = class {$IFDEF PAS2JS} external name 'Object'  {$ENDIF}(TJSObject)\r\n    recursive: Boolean;\r\n  end;\r\n\r\n  TJSFileSystemDirectoryHandle = class {$IFDEF PAS2JS} external name 'FileSystemDirectoryHandle'  {$ENDIF}(TJSFileSystemHandle)\r\n  public\r\n    function entries: TJSObject;\r\n    function getDirectoryHandle(name: String): TJSFileSystemDirectoryHandle; {$IFDEF PAS2JS} async; {$ENDIF} overload;\r\n    function getDirectoryHandle(name: String; options: TJSGetFileHandleOptions): TJSFileSystemDirectoryHandle; {$IFDEF PAS2JS} async; {$ENDIF} overload;\r\n    function getFileHandle(name: String): TJSFileSystemFileHandle; {$IFDEF PAS2JS} async; {$ENDIF} overload;\r\n    function getFileHandle(name: String; options: TJSGetFileHandleOptions): TJSFileSystemFileHandle; {$IFDEF PAS2JS} async; {$ENDIF} overload;\r\n    function keys: TJSFileSystemDirectoryHandleArray; reintroduce;\r\n    function removeEntry(name: String): TJSPromise;\r\n    function removeEntry(name: String; options: TJSRemoveEntryOptions): TJSPromise;\r\n    function resolve(possibleDescendant: String): TStringDynArray; {$IFDEF PAS2JS} async; {$ENDIF}\r\n    function values(possibleDescendant: String): TJSFileSystemDirectoryHandleArray; reintroduce; {$IFDEF PAS2JS} async; {$ENDIF}\r\n  end;\r\n\r\n  TJSFileSystemWritableFileStream = class {$IFDEF PAS2JS} external name 'FileSystemWritableFileStream'  {$ENDIF}(TJSWritableStream)\r\n  public\r\n    function seek(position: NativeInt): TJSPromise;\r\n    function write(data: JSValue): TJSPromise;\r\n    function truncate(size: NativeInt): TJSPromise;\r\n  end;\r\n\r\n  TJSShowOpenFilePickerTypeOptions = class {$IFDEF PAS2JS} external name 'Object'  {$ENDIF}(TJSObject)\r\n  public\r\n    description: String;\r\n    accept: TJSObject;\r\n  end;\r\n\r\n  TJSShowOpenFilePickerOptions = class {$IFDEF PAS2JS} external name 'Object'  {$ENDIF}(TJSObject)\r\n  public\r\n    multiple: Boolean;\r\n    excludeAcceptAllOption: Boolean;\r\n    types: array of TJSShowOpenFilePickerTypeOptions;\r\n  end;\r\n\r\n  TJSShowSaveFilePickerOptionsAccept = class {$IFDEF PAS2JS} external name 'Object'  {$ENDIF}(TJSObject)\r\n  public\r\n    description: String;\r\n    accept: TStringDynArray;\r\n  end;\r\n\r\n  TJSShowSaveFilePickerOptions = class {$IFDEF PAS2JS} external name 'Object'  {$ENDIF}(TJSObject)\r\n  public\r\n    excludeAcceptAllOption: Boolean;\r\n    accept: array of TJSShowSaveFilePickerOptionsAccept;\r\n  end;\r\n\r\nvar\r\n  document : TJSDocument; external name 'document';\r\n  window : TJSWindow; external name 'window';\r\n  console : TJSConsole; external name 'window.console';\r\n  caches : TJSCacheStorage; external name 'caches';\r\n  serviceWorker : TJSServiceWorker; external name 'self';\r\n\r\nFunction HasServiceWorker : Boolean;\r\n\r\nimplementation\r\n\r\nFunction HasServiceWorker : Boolean;\r\nbegin\r\n  if jsvalue(window.navigator.serviceWorker) then\r\n    exit(true)\r\n  else\r\n    exit(false);\r\nend;\r\n\r\n{ TJSBlobPropertyBag }\r\n\r\nconstructor TJSBlobPropertyBag.Create(aType: string); overload;\r\nbegin\r\n  FType := aType;\r\nend;\r\n\r\nconstructor TJSBlobPropertyBag.Create(aType, aEndings: string); overload;\r\nbegin\r\n  FType := aType;\r\n  FEndings := aEndings;\r\nend;\r\n\r\nend.\r\n","unit p2jsres;\r\n\r\n{$mode objfpc}\r\n{$h+}\r\n{$modeswitch externalclass}\r\n\r\ninterface\r\n\r\nuses types;\r\n\r\nType\r\n  TResourceSource = (rsJS,rsHTML);\r\n  TResourceInfo = record\r\n    name : string;\r\n    encoding : string;\r\n    resourceunit : string;\r\n    format : string;\r\n    data : string;\r\n  end;\r\n  TResourceEnumCallBack = Reference to function(const resName : string) : boolean;\r\n  TResourcesLoadedEnumCallBack = Reference to Procedure(const LoadedResources : Array of String);\r\n  TResourcesLoadErrorCallBack = Reference to Procedure(const aError : string);\r\n\r\nFunction SetResourceSource(aSource : TResourceSource) : TResourceSource;\r\n\r\nFunction GetResourceNames : TStringDynArray;\r\nFunction GetResourceNames(aSource : TResourceSource) : TStringDynArray;\r\n\r\nFunction EnumResources(aCallback : TResourceEnumCallBack) : Integer;\r\nFunction EnumResources(aSource : TResourceSource; aCallback : TResourceEnumCallBack) : Integer;\r\n\r\nFunction GetResourceInfo(Const aName : String; var aInfo : TResourceInfo) : Boolean;\r\nFunction GetResourceInfo(aSource : TResourceSource; Const aName : String; var aInfo : TResourceInfo) : Boolean;\r\n\r\nProcedure LoadHTMLLinkResources(const aURL : String; OnLoad : TResourcesLoadedEnumCallBack = Nil; OnError : TResourcesLoadErrorCallBack = Nil);\r\n\r\nimplementation\r\n\r\nuses sysutils, js, web;\r\n\r\nvar\r\n  gMode: TResourceSource;\r\n\r\n{ ---------------------------------------------------------------------\r\n  Global entry points\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction SeTResourceSource(aSource : TResourceSource) : TResourceSource;\r\nbegin\r\n  Result:=gMode;\r\n  gMode:=aSource;\r\nend;\r\n\r\nFunction GetResourceNames : TStringDynArray;\r\nbegin\r\n  Result:=GetResourceNames(gMode);\r\nend;\r\n\r\nFunction EnumResources(aCallback : TResourceEnumCallBack) : Integer;\r\n\r\nbegin\r\n  Result:=EnumResources(gMode,aCallback);\r\nend;\r\n\r\nFunction GetResourceInfo(Const aName : String; var aInfo : TResourceInfo) : Boolean;\r\n\r\nbegin\r\n  Result:=GetResourceInfo(gMode,aName,aInfo);\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  JS resources\r\n  ---------------------------------------------------------------------}\r\n\r\nType\r\n  TRTLResourceInfo = class external name 'Object' (TJSObject)\r\n    name : string;\r\n    encoding : string;\r\n    resourceunit : string; external name 'unit';\r\n    format : string;\r\n    data : string;\r\n  end;\r\n\r\nfunction rtlGetResourceList : TStringDynArray; external name 'rtl.getResourceList';\r\nfunction rtlGetResource(const aName : string) : TRTLResourceInfo; external name 'rtl.getResource';\r\n\r\nFunction GetRTLResourceInfo(Const aName : String; var aInfo : TResourceInfo) : Boolean;\r\n\r\nVar\r\n  RTLInfo : TRTLResourceInfo;\r\n\r\nbegin\r\n  RTLInfo:=rtlGetResource(lowercase(aName));\r\n  Result:=Assigned(RTLInfo);\r\n  if Result then\r\n    begin\r\n    aInfo.name:=RTLinfo.name;\r\n    aInfo.encoding:=RTLinfo.encoding;\r\n    aInfo.format:=RTLinfo.format;\r\n    aInfo.resourceunit:=RTLinfo.resourceunit;\r\n    aInfo.data:=RTLinfo.data;\r\n    end;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  HTML resources\r\n  ---------------------------------------------------------------------}\r\n\r\nConst\r\n  IDPrefix = 'resource-';\r\n\r\nFunction IsResourceLink(L : TJSHTMLLinkElement) : Boolean;\r\n\r\nbegin\r\n  Result:=(Copy(L.id,1,Length(IDPrefix))=IDPrefix) and (isDefined(L.Dataset['unit'])) and (Copy(L.href,1,4)='data')\r\nend;\r\n\r\nFunction GetHTMLResources : TStringDynArray;\r\n\r\n\r\nVar\r\n  LC : TJSHTMLCollection;\r\n  L : TJSHTMLLinkElement;\r\n  I : Integer;\r\n  ID : String;\r\n\r\nbegin\r\n  SetLength(Result,0);\r\n  if not isDefined(document) then // If called in Node...\r\n    exit;\r\n  // No cache, we do this dynamically: it's possible to add link nodes at runtime.\r\n  LC:=document.getElementsByTagName('link');\r\n  For I:=0 to LC.length-1 do\r\n    begin\r\n    L:=TJSHTMLLinkElement(LC[i]);\r\n    ID:=L.ID;\r\n    if IsResourceLink(L) then\r\n      begin\r\n      Delete(ID,1,Length(IDPrefix));\r\n      if (ID<>'') then\r\n        TJSArray(Result).Push(ID);\r\n      end;\r\n    end;\r\nend;\r\n\r\nFunction GetHTMLResourceInfo(Const aName : String; var aInfo : TResourceInfo) : Boolean;\r\n\r\nVar\r\n  el : TJSElement;\r\n  L : TJSHTMLLinkElement absolute el;\r\n  S : String;\r\n  I : Integer;\r\n\r\nbegin\r\n  Result:=False;\r\n  if not isDefined(document) then // If called in Node...\r\n    exit;\r\n  El:=document.getElementByID(IDPrefix+lowercase(aName));\r\n  Result:=assigned(el) and SameText(el.tagName,'link');\r\n  if not Result then\r\n    exit;\r\n  ainfo.name:=lowercase(aName);\r\n  ainfo.Resourceunit:=String(L.Dataset['unit']);\r\n  S:=L.href;\r\n  S:=Copy(S,6,Length(S)-5); // strip data;\r\n  I:=Pos(',',S);\r\n  aInfo.data:=Copy(S,I+1,Length(S)-1);\r\n  S:=copy(S,1,I-1);\r\n  I:=Pos(';',S);\r\n  if I=0 then\r\n    aInfo.encoding:=''\r\n  else\r\n    begin\r\n    aInfo.encoding:=Copy(S,I+1,Length(S)-1);\r\n    S:=Copy(S,1,I-1);\r\n    end;\r\n  aInfo.Format:=S;\r\nend;\r\n\r\nFunction HasTemplate : Boolean;\r\n\r\nbegin\r\n  asm\r\n    return ('content' in document.createElement('template'))\r\n  end;\r\n  Result:=false;\r\nend;\r\n\r\n\r\nProcedure LoadHTMLLinkResources(const aURL : String; OnLoad : TResourcesLoadedEnumCallBack = Nil; OnError : TResourcesLoadErrorCallBack = Nil);\r\n\r\n  function FetchOK(Res : JSValue) : JSValue;\r\n  var\r\n    Response : TJSResponse absolute res;\r\n  begin\r\n    Result:=Nil;\r\n    if not Response.ok then\r\n      begin\r\n      if Assigned(OnError) then\r\n        Raise TJSError.New('HTTP Error for URL aURL, status = '+IntToStr(Response.status)+' : '+Response.statusText)\r\n      end\r\n    else\r\n      Result:=Response.Text();\r\n  end;\r\n\r\n  function BlobOK(Res : JSValue) : JSValue;\r\n\r\n  Var\r\n    aText : String absolute res;\r\n    ID : String;\r\n    Tmpl : TJSHTMLTemplateElement;\r\n    El : TJSHTMLElement;\r\n    L : TJSHTMLLinkElement absolute El;\r\n    Arr : TStringDynArray;\r\n    aParent : TJSHTMLElement;\r\n\r\n  begin\r\n    Result:=Nil;\r\n    aParent:=TJSHTMLElement(document.head);\r\n    if aParent=Nil then\r\n      aParent:=TJSHTMLElement(document.body);\r\n    SetLength(Arr,0);\r\n    Tmpl:=TJSHTMLTemplateElement(Document.createElement('template'));\r\n    Tmpl.innerhtml:=TJSString(aText).trim;\r\n    el:=TJSHTMLElement(Tmpl.Content.firstElementChild);\r\n    While El<>Nil do\r\n      begin\r\n      if SameText(El.tagName,'link') and IsResourceLink(L) then\r\n        begin\r\n        aParent.Append(TJSHTMLElement(document.importNode(l,true)));\r\n        ID:=L.ID;\r\n        Delete(ID,1,Length(IDPrefix));\r\n        if (ID<>'') then\r\n          TJSArray(Arr).Push(ID);\r\n        end;\r\n      el:=TJSHTMLElement(el.nextElementSibling);\r\n      end;\r\n    if Assigned(OnLoad) then\r\n      OnLoad(Arr);\r\n  end;\r\n\r\n  function DoError (aValue : JSValue) : JSValue;\r\n\r\n  Var\r\n    aErr : TJSError absolute aValue;\r\n\r\n  begin\r\n    Result:=Nil;\r\n    if Assigned(OnError) then\r\n      if aErr=Nil then\r\n        OnError('Error: ' + aErr.message)\r\n  end;\r\n\r\nbegin\r\n  if not HasTemplate then\r\n    begin\r\n    if Assigned(OnError) then\r\n      OnError('No template support in this browser')\r\n    end\r\n  else\r\n    window.fetch(aURL)._then(@FetchOK)._then(@BlobOK).catch(@doError);\r\nend;\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n  Global entries, specifying resource mode\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction GetResourceNames(aSource : TResourceSource) : TStringDynArray;\r\n\r\nbegin\r\n  case aSource of\r\n    rsJS : Result:=rtlGetResourceList;\r\n    rsHTML : Result:=GetHTMLResources;\r\n  end;\r\nend;\r\n\r\nFunction EnumResources(aSource : TResourceSource; aCallback : TResourceEnumCallBack) : Integer;\r\n\r\nVar\r\n  RL : TStringDynArray;\r\n  I : Integer;\r\n  ContinueEnum : Boolean;\r\n\r\nbegin\r\n  Result:=0;\r\n  RL:=GetResourceNames(aSource);\r\n  I:=0;\r\n  Result:=Length(RL);\r\n  ContinueEnum:=True;\r\n  While (I<Result) and ContinueEnum do\r\n    begin\r\n    ContinueEnum:=aCallBack(RL[i]);\r\n    Inc(I);\r\n    end;\r\nend;\r\n\r\n\r\nFunction GetResourceInfo(aSource : TResourceSource; Const aName : String; var aInfo : TResourceInfo) : Boolean;\r\n\r\nbegin\r\n  case aSource of\r\n    rsJS : Result:=GetRTLResourceInfo(aName,aInfo);\r\n    rsHTML : Result:=GetHTMLResourceInfo(aName,aInfo);\r\n  end;\r\nend;\r\n\r\n\r\nend.\r\n","unit simplelinkedlist;\r\n\r\n{$mode objfpc}\r\n\r\ninterface\r\n\r\nType\r\n  TLinkedListItem = Class\r\n  Public\r\n    Next : TLinkedListItem;\r\n  end;\r\n  TLinkedListItemClass = Class of TLinkedListItem;\r\n\r\n  { TLinkedListVisitor }\r\n\r\n  TLinkedListVisitor = Class\r\n    Function Visit(Item : TLinkedListItem) : Boolean; virtual; abstract;\r\n  end;\r\n  { TLinkedList }\r\n\r\n  TLinkedList = Class\r\n  private\r\n    FItemClass: TLinkedListItemClass;\r\n    FRoot: TLinkedListItem;\r\n    function GetCount: Integer;\r\n  Public\r\n    Constructor Create(AnItemClass : TLinkedListItemClass); virtual;\r\n    Destructor Destroy; override;\r\n    Procedure Clear;\r\n    Function Add : TLinkedListItem;\r\n    Procedure ForEach(Visitor: TLinkedListVisitor);\r\n    Procedure RemoveItem(Item : TLinkedListItem; FreeItem : Boolean = False);\r\n    Property Root : TLinkedListItem Read FRoot;\r\n    Property ItemClass : TLinkedListItemClass Read FItemClass;\r\n    Property Count : Integer Read GetCount;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses sysutils;\r\n\r\n{ TLinkedList }\r\n\r\nfunction TLinkedList.GetCount: Integer;\r\n\r\nVar\r\n  I : TLinkedListItem;\r\n\r\nbegin\r\n  I:=FRoot;\r\n  Result:=0;\r\n  While I<>Nil do\r\n    begin\r\n    I:=I.Next;\r\n    Inc(Result);\r\n    end;\r\nend;\r\n\r\nconstructor TLinkedList.Create(AnItemClass: TLinkedListItemClass);\r\nbegin\r\n  FItemClass:=AnItemClass;\r\nend;\r\n\r\ndestructor TLinkedList.Destroy;\r\nbegin\r\n  Clear;\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TLinkedList.Clear;\r\n\r\nVar\r\n   I : TLinkedListItem;\r\n\r\nbegin\r\n  // Can't use visitor, because it'd kill the next pointer...\r\n  I:=FRoot;\r\n  While I<>Nil do\r\n    begin\r\n    FRoot:=I;\r\n    I:=I.Next;\r\n    FRoot.Next:=Nil;\r\n    FreeAndNil(FRoot);\r\n    end;\r\nend;\r\n\r\nfunction TLinkedList.Add: TLinkedListItem;\r\nbegin\r\n  Result:=FItemClass.Create;\r\n  Result.Next:=FRoot;\r\n  FRoot:=Result;\r\nend;\r\n\r\nprocedure TLinkedList.ForEach(Visitor : TLinkedListVisitor);\r\n\r\nVar\r\n  I : TLinkedListItem;\r\n\r\nbegin\r\n  I:=FRoot;\r\n  While (I<>Nil) and Visitor.Visit(I) do\r\n    I:=I.Next;\r\nend;\r\n\r\nprocedure TLinkedList.RemoveItem(Item: TLinkedListItem; FreeItem : Boolean = False);\r\n\r\nVar\r\n  I : TLinkedListItem;\r\n\r\nbegin\r\n  If (Item<>Nil) and (FRoot<>Nil) then\r\n    begin\r\n    If (Item=FRoot) then\r\n      FRoot:=Item.Next\r\n    else\r\n      begin\r\n      I:=FRoot;\r\n      While (I.Next<>Nil) and (I.Next<>Item) do\r\n        I:=I.Next;\r\n      If (I.Next=Item) then\r\n        I.Next:=Item.Next;\r\n      end;\r\n    If FreeItem Then\r\n      Item.Free;\r\n    end;\r\nend;\r\n\r\n\r\n\r\nend.\r\n\r\n","{\r\n    This file is part of the Pas2JS run time library.\r\n    Copyright (c) 2017 by Mattias Gaertner\r\n\r\n    See the file COPYING.FPC, included in this distribution,\r\n    for details about the copyright.\r\n\r\n    This program is distributed in the hope that it will be useful,\r\n    but WITHOUT ANY WARRANTY; without even the implied warranty of\r\n    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\r\n\r\n **********************************************************************}\r\nunit Classes;\r\n\r\n{$mode objfpc}\r\n\r\ninterface\r\n\r\nuses\r\n  RTLConsts, Types, SysUtils, JS, TypInfo, p2jsres;\r\n\r\ntype\r\n  TNotifyEvent = procedure(Sender: TObject) of object;\r\n  TNotifyEventRef = reference to procedure(Sender: TObject);\r\n  TStringNotifyEventRef = Reference to Procedure(Sender: TObject; Const aString : String);\r\n\r\n  // Notification operations :\r\n  // Observer has changed, is freed, item added to/deleted from list, custom event.\r\n  TFPObservedOperation = (ooChange,ooFree,ooAddItem,ooDeleteItem,ooCustom);\r\n\r\n  EStreamError = class(Exception);\r\n  EFCreateError = class(EStreamError);\r\n  EFOpenError = class(EStreamError);\r\n  EFilerError = class(EStreamError);\r\n  EReadError = class(EFilerError);\r\n  EWriteError = class(EFilerError);\r\n  EClassNotFound = class(EFilerError);\r\n  EMethodNotFound = class(EFilerError);\r\n  EInvalidImage = class(EFilerError);\r\n  EResNotFound = class(Exception);\r\n  EListError = class(Exception);\r\n  EBitsError = class(Exception);\r\n  EStringListError = class(EListError);\r\n  EComponentError = class(Exception);\r\n  EParserError = class(Exception);\r\n  EOutOfResources = class(EOutOfMemory);\r\n  EInvalidOperation = class(Exception);\r\n\r\n  TListAssignOp = (laCopy, laAnd, laOr, laXor, laSrcUnique, laDestUnique);\r\n  TListSortCompare = function(Item1, Item2: JSValue): Integer;\r\n  TListSortCompareFunc = reference to function (Item1, Item2: JSValue): Integer;\r\n  TListCallback = Types.TListCallback;\r\n  TListStaticCallback = Types.TListStaticCallback;\r\n  TAlignment = (taLeftJustify, taRightJustify, taCenter);\r\n\r\n  // Forward class definitions\r\n  TFPList = Class;\r\n  TReader = Class;\r\n  TWriter = Class;\r\n  TFiler = Class;\r\n\r\n  { TFPListEnumerator }\r\n  TFPListEnumerator = class\r\n  private\r\n    FList: TFPList;\r\n    FPosition: Integer;\r\n  public\r\n    constructor Create(AList: TFPList); reintroduce;\r\n    function GetCurrent: JSValue;\r\n    function MoveNext: Boolean;\r\n    property Current: JSValue read GetCurrent;\r\n  end;\r\n\r\n  { TFPList }\r\n\r\n  TFPList = class(TObject)\r\n  private\r\n    FList: TJSValueDynArray;\r\n    FCount: Integer;\r\n    FCapacity: Integer;\r\n    procedure CopyMove(aList: TFPList);\r\n    procedure MergeMove(aList: TFPList);\r\n    procedure DoCopy(ListA, ListB: TFPList);\r\n    procedure DoSrcUnique(ListA, ListB: TFPList);\r\n    procedure DoAnd(ListA, ListB: TFPList);\r\n    procedure DoDestUnique(ListA, ListB: TFPList);\r\n    procedure DoOr(ListA, ListB: TFPList);\r\n    procedure DoXOr(ListA, ListB: TFPList);\r\n  protected\r\n    function Get(Index: Integer): JSValue; {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE}\r\n    procedure Put(Index: Integer; Item: JSValue); {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE}\r\n    procedure SetCapacity(NewCapacity: Integer);\r\n    procedure SetCount(NewCount: Integer);\r\n    Procedure RaiseIndexError(Index: Integer);\r\n  public\r\n    //Type\r\n    //  TDirection = (FromBeginning, FromEnd);\r\n    destructor Destroy; override;\r\n    procedure AddList(AList: TFPList);\r\n    function Add(Item: JSValue): Integer; {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE}\r\n    procedure Clear;\r\n    procedure Delete(Index: Integer); {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE}\r\n    class procedure Error(const Msg: string; const Data: String);\r\n    procedure Exchange(Index1, Index2: Integer);\r\n    function Expand: TFPList; {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE}\r\n    function Extract(Item: JSValue): JSValue;\r\n    function First: JSValue;\r\n    function GetEnumerator: TFPListEnumerator;\r\n    function IndexOf(Item: JSValue): Integer;\r\n    function IndexOfItem(Item: JSValue; Direction: TDirection): Integer;\r\n    procedure Insert(Index: Integer; Item: JSValue); {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE}\r\n    function Last: JSValue;\r\n    procedure Move(CurIndex, NewIndex: Integer);\r\n    procedure Assign (ListA: TFPList; AOperator: TListAssignOp=laCopy; ListB: TFPList=nil);\r\n    function Remove(Item: JSValue): Integer;\r\n    procedure Pack;\r\n    procedure Sort(const Compare: TListSortCompare);\r\n    procedure SortList(const Compare: TListSortCompareFunc);\r\n    procedure ForEachCall(const proc2call: TListCallback; const arg: JSValue);\r\n    procedure ForEachCall(const proc2call: TListStaticCallback; const arg: JSValue);\r\n    property Capacity: Integer read FCapacity write SetCapacity;\r\n    property Count: Integer read FCount write SetCount;\r\n    property Items[Index: Integer]: JSValue read Get write Put; default;\r\n    property List: TJSValueDynArray read FList;\r\n  end;\r\n\r\n  TListNotification = (lnAdded, lnExtracted, lnDeleted);\r\n  TList = class;\r\n\r\n  { TListEnumerator }\r\n\r\n  TListEnumerator = class\r\n  private\r\n    FList: TList;\r\n    FPosition: Integer;\r\n  public\r\n    constructor Create(AList: TList); reintroduce;\r\n    function GetCurrent: JSValue;\r\n    function MoveNext: Boolean;\r\n    property Current: JSValue read GetCurrent;\r\n  end;\r\n\r\n  { TList }\r\n\r\n  TList = class(TObject)\r\n  private\r\n    FList: TFPList;\r\n    procedure CopyMove (aList : TList);\r\n    procedure MergeMove (aList : TList);\r\n    procedure DoCopy(ListA, ListB : TList);\r\n    procedure DoSrcUnique(ListA, ListB : TList);\r\n    procedure DoAnd(ListA, ListB : TList);\r\n    procedure DoDestUnique(ListA, ListB : TList);\r\n    procedure DoOr(ListA, ListB : TList);\r\n    procedure DoXOr(ListA, ListB : TList);\r\n  protected\r\n    function Get(Index: Integer): JSValue;\r\n    procedure Put(Index: Integer; Item: JSValue);\r\n    procedure Notify(aValue: JSValue; Action: TListNotification); virtual;\r\n    procedure SetCapacity(NewCapacity: Integer);\r\n    function GetCapacity: integer;\r\n    procedure SetCount(NewCount: Integer);\r\n    function GetCount: integer;\r\n    function GetList: TJSValueDynArray;\r\n    property FPList : TFPList Read FList;\r\n  public\r\n    constructor Create; reintroduce;\r\n    destructor Destroy; override;\r\n    Procedure AddList(AList : TList);\r\n    function Add(Item: JSValue): Integer;\r\n    procedure Clear; virtual;\r\n    procedure Delete(Index: Integer);\r\n    class procedure Error(const Msg: string; Data: String); virtual;\r\n    procedure Exchange(Index1, Index2: Integer);\r\n    function Expand: TList;\r\n    function Extract(Item: JSValue): JSValue;\r\n    function First: JSValue;\r\n    function GetEnumerator: TListEnumerator;\r\n    function IndexOf(Item: JSValue): Integer;\r\n    procedure Insert(Index: Integer; Item: JSValue);\r\n    function Last: JSValue;\r\n    procedure Move(CurIndex, NewIndex: Integer);\r\n    procedure Assign (ListA: TList; AOperator: TListAssignOp=laCopy; ListB: TList=nil);\r\n    function Remove(Item: JSValue): Integer;\r\n    procedure Pack;\r\n    procedure Sort(const Compare: TListSortCompare);\r\n    procedure SortList(const Compare: TListSortCompareFunc);\r\n    property Capacity: Integer read GetCapacity write SetCapacity;\r\n    property Count: Integer read GetCount write SetCount;\r\n    property Items[Index: Integer]: JSValue read Get write Put; default;\r\n    property List: TJSValueDynArray read GetList;\r\n  end;\r\n\r\n  { TPersistent }\r\n  \r\n{$M+}\r\n\r\n  TPersistent = class(TObject)\r\n  private\r\n    //FObservers : TFPList;\r\n    procedure AssignError(Source: TPersistent);\r\n  protected\r\n    procedure DefineProperties(Filer: TFiler); virtual;\r\n    procedure AssignTo(Dest: TPersistent); virtual;\r\n    function GetOwner: TPersistent; virtual;\r\n  public\r\n    procedure Assign(Source: TPersistent); virtual;\r\n    //procedure FPOAttachObserver(AObserver : TObject);\r\n    //procedure FPODetachObserver(AObserver : TObject);\r\n    //procedure FPONotifyObservers(ASender : TObject; AOperation: TFPObservedOperation; Data: TObject);\r\n    function GetNamePath: string; virtual;\r\n    procedure SetEvent(const ALookupRoot: TPersistent; const APropName, AMethodName: string); overload;\r\n    procedure SetEvent(const AInstance: TPersistent; const ALookupRoot: TPersistent; const APropName, AMethodName: string); overload;\r\n  end;\r\n  TPersistentClass = Class of TPersistent;\r\n\r\n  { TInterfacedPersistent }\r\n\r\n  TInterfacedPersistent = class(TPersistent, IInterface)\r\n  private\r\n    FOwnerInterface: IInterface;\r\n  protected\r\n    function _AddRef: Integer; {$IFDEF MAKESTUB}stdcall;{$ENDIF}\r\n    function _Release: Integer; {$IFDEF MAKESTUB}stdcall;{$ENDIF}\r\n  public\r\n    function QueryInterface(const IID: TGUID; out Obj): HRESULT; virtual;{$IFDEF MAKESTUB} stdcall;{$ENDIF}\r\n    procedure AfterConstruction; override;\r\n  end;\r\n\r\n\r\n  TStrings = Class;\r\n  { TStringsEnumerator class }\r\n\r\n  TStringsEnumerator = class\r\n  private\r\n    FStrings: TStrings;\r\n    FPosition: Integer;\r\n  public\r\n    constructor Create(AStrings: TStrings); reintroduce;\r\n    function GetCurrent: String;\r\n    function MoveNext: Boolean;\r\n    property Current: String read GetCurrent;\r\n  end;\r\n\r\n\r\n  { TStrings class }\r\n  TStrings = class(TPersistent)\r\n  private\r\n    FSpecialCharsInited : boolean;\r\n    FAlwaysQuote: Boolean;\r\n    FQuoteChar : Char;\r\n    FDelimiter : Char;\r\n    FNameValueSeparator : Char;\r\n    FUpdateCount: Integer;\r\n    FLBS : TTextLineBreakStyle;\r\n    FSkipLastLineBreak : Boolean;\r\n    FStrictDelimiter : Boolean;\r\n    FLineBreak : String;\r\n    function GetCommaText: string;\r\n    function GetName(Index: Integer): string;\r\n    function GetValue(const Name: string): string;\r\n    Function GetLBS : TTextLineBreakStyle;\r\n    Procedure SetLBS (AValue : TTextLineBreakStyle);\r\n    procedure SetCommaText(const Value: string);\r\n    procedure SetValue(const Name : String; Const Value: string);\r\n    procedure SetDelimiter(c:Char);\r\n    procedure SetQuoteChar(c:Char);\r\n    procedure SetNameValueSeparator(c:Char);\r\n    procedure DoSetTextStr(const Value: string; DoClear : Boolean);\r\n    Function GetDelimiter : Char;\r\n    Function GetNameValueSeparator : Char;\r\n    Function GetQuoteChar: Char;\r\n    Function GetLineBreak : String;\r\n    procedure SetLineBreak(const S : String);\r\n    Function GetSkipLastLineBreak : Boolean;\r\n    procedure SetSkipLastLineBreak(const AValue : Boolean);\r\n    procedure ReadData(Reader: TReader);\r\n    procedure WriteData(Writer: TWriter);\r\n  protected\r\n    procedure DefineProperties(Filer: TFiler); override;\r\n    procedure Error(const Msg: string; Data: Integer);\r\n    function Get(Index: Integer): string; virtual; abstract;\r\n    function GetCapacity: Integer; virtual;\r\n    function GetCount: Integer; virtual; abstract;\r\n    function GetObject(Index: Integer): TObject; virtual;\r\n    function GetTextStr: string; virtual;\r\n    procedure Put(Index: Integer; const S: string); virtual;\r\n    procedure PutObject(Index: Integer; AObject: TObject); virtual;\r\n    procedure SetCapacity(NewCapacity: Integer); virtual;\r\n    procedure SetTextStr(const Value: string); virtual;\r\n    procedure SetUpdateState(Updating: Boolean); virtual;\r\n    property UpdateCount: Integer read FUpdateCount;\r\n    Function DoCompareText(const s1,s2 : string) : PtrInt; virtual;\r\n    Function GetDelimitedText: string;\r\n    Procedure SetDelimitedText(Const AValue: string);\r\n    Function GetValueFromIndex(Index: Integer): string;\r\n    Procedure SetValueFromIndex(Index: Integer; const Value: string);\r\n    Procedure CheckSpecialChars;\r\n//    Class Function GetNextLine (Const Value : String; Var S : String; Var P : Integer) : Boolean;\r\n    Function GetNextLinebreak (Const Value : String; Out S : String; Var P : Integer) : Boolean;\r\n  public\r\n    constructor Create; reintroduce;\r\n    destructor Destroy; override;\r\n    function ToObjectArray: TObjectDynArray; overload;\r\n    function ToObjectArray(aStart,aEnd : Integer): TObjectDynArray; overload;\r\n    function ToStringArray: TStringDynArray; overload;\r\n    function ToStringArray(aStart,aEnd : Integer): TStringDynArray; overload;\r\n    function Add(const S: string): Integer; virtual; overload;\r\n    function Add(const Fmt : string; const Args : Array of const): Integer; overload;\r\n    function AddFmt(const Fmt : string; const Args : Array of const): Integer;\r\n    function AddObject(const S: string; AObject: TObject): Integer; virtual; overload;\r\n    function AddObject(const Fmt: string; Args : Array of const; AObject: TObject): Integer; overload;\r\n    procedure Append(const S: string);\r\n    procedure AddStrings(TheStrings: TStrings); overload; virtual;\r\n    procedure AddStrings(TheStrings: TStrings; ClearFirst : Boolean); overload;\r\n    procedure AddStrings(const TheStrings: array of string); overload; virtual;\r\n    procedure AddStrings(const TheStrings: array of string; ClearFirst : Boolean); overload;\r\n    function AddPair(const AName, AValue: string): TStrings; overload;\r\n    function AddPair(const AName, AValue: string; AObject: TObject): TStrings; overload;\r\n    Procedure AddText(Const S : String); virtual;\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure BeginUpdate;\r\n    procedure Clear; virtual; abstract;\r\n    procedure Delete(Index: Integer); virtual; abstract;\r\n    procedure EndUpdate;\r\n    function Equals(Obj: TObject): Boolean; override; overload;\r\n    function Equals(TheStrings: TStrings): Boolean; overload;\r\n    procedure Exchange(Index1, Index2: Integer); virtual;\r\n    function GetEnumerator: TStringsEnumerator;\r\n    function IndexOf(const S: string): Integer; virtual;\r\n    function IndexOfName(const Name: string): Integer; virtual;\r\n    function IndexOfObject(AObject: TObject): Integer; virtual;\r\n    procedure Insert(Index: Integer; const S: string); virtual; abstract;\r\n    procedure InsertObject(Index: Integer; const S: string; AObject: TObject);\r\n    procedure Move(CurIndex, NewIndex: Integer); virtual;\r\n    procedure GetNameValue(Index : Integer; Out AName,AValue : String);\r\n    Procedure LoadFromURL(Const aURL : String; Async : Boolean = True; OnLoaded : TNotifyEventRef = Nil; OnError: TStringNotifyEventRef = Nil); virtual;\r\n    // Delphi compatibility. Must be an URL\r\n    Procedure LoadFromFile(Const aFileName : String); overload;\r\n    Procedure LoadFromFile(Const aFileName : String; const OnLoaded: TProc; const AError: TProcString); overload;\r\n    function LoadFromFileAsync(const aFileName: string): TJSPromise;\r\n    function  ExtractName(Const S:String):String;\r\n    procedure SaveToFile(const FileName: string); overload; virtual;\r\n    Property TextLineBreakStyle : TTextLineBreakStyle Read GetLBS Write SetLBS;\r\n    property Delimiter: Char read GetDelimiter write SetDelimiter;\r\n    property DelimitedText: string read GetDelimitedText write SetDelimitedText;\r\n    property LineBreak : string Read GetLineBreak write SetLineBreak;\r\n    Property StrictDelimiter : Boolean Read FStrictDelimiter Write FStrictDelimiter;\r\n    property AlwaysQuote: Boolean read FAlwaysQuote write FAlwaysQuote;\r\n    property QuoteChar: Char read GetQuoteChar write SetQuoteChar;\r\n    Property NameValueSeparator : Char Read GetNameValueSeparator Write SetNameValueSeparator;\r\n    property ValueFromIndex[Index: Integer]: string read GetValueFromIndex write SetValueFromIndex;\r\n    property Capacity: Integer read GetCapacity write SetCapacity;\r\n    property CommaText: string read GetCommaText write SetCommaText;\r\n    property Count: Integer read GetCount;\r\n    property Names[Index: Integer]: string read GetName;\r\n    property Objects[Index: Integer]: TObject read GetObject write PutObject;\r\n    property Values[const Name: string]: string read GetValue write SetValue;\r\n    property Strings[Index: Integer]: string read Get write Put; default;\r\n    property Text: string read GetTextStr write SetTextStr;\r\n    Property SkipLastLineBreak : Boolean Read GetSkipLastLineBreak Write SetSkipLastLineBreak;\r\n  end;\r\n\r\n  { TStringList}\r\n  TStringItem = record\r\n     FString: string;\r\n     FObject: TObject;\r\n   end;\r\n\r\n  TStringsOption = (soStrictDelimiter, soWriteBOM, soTrailingLineBreak,\r\n    soUseLocale);\r\n  TStringsOptions = set of TStringsOption;\r\n\r\n  TStringItemArray = Array of TStringItem;\r\n\r\n  TStringList = class;\r\n  TStringListSortCompare = function(List: TStringList; Index1, Index2: Integer): Integer;\r\n\r\n  TStringsSortStyle = (sslNone,sslUser,sslAuto);\r\n  TStringsSortStyles = Set of TStringsSortStyle;\r\n\r\n  TStringList = class(TStrings)\r\n  private\r\n    FList: TStringItemArray;\r\n    FCount: Integer;\r\n    FOnChange: TNotifyEvent;\r\n    FOnChanging: TNotifyEvent;\r\n    FDuplicates: TDuplicates;\r\n    FCaseSensitive : Boolean;\r\n    FForceSort : Boolean;\r\n    FOwnsObjects : Boolean;\r\n    FSortStyle: TStringsSortStyle;\r\n    procedure ExchangeItemsInt(Index1, Index2: Integer);\r\n    function GetSorted: Boolean;\r\n    procedure Grow;\r\n    procedure InternalClear(FromIndex : Integer = 0; ClearOnly : Boolean = False);\r\n    procedure QuickSort(L, R: Integer; CompareFn: TStringListSortCompare);\r\n    procedure SetSorted(Value: Boolean);\r\n    procedure SetCaseSensitive(b : boolean);\r\n    procedure SetSortStyle(AValue: TStringsSortStyle);\r\n    function GetTrailingLineBreak: boolean;\r\n    procedure SetTrailingLineBreak(const Value: boolean);\r\n  protected\r\n    Procedure CheckIndex(AIndex : Integer);\r\n    procedure ExchangeItems(Index1, Index2: Integer); virtual;\r\n    procedure Changed; virtual;\r\n    procedure Changing; virtual;\r\n    function Get(Index: Integer): string; override;\r\n    function GetCapacity: Integer; override;\r\n    function GetCount: Integer; override;\r\n    function GetObject(Index: Integer): TObject; override;\r\n    procedure Put(Index: Integer; const S: string); override;\r\n    procedure PutObject(Index: Integer; AObject: TObject); override;\r\n    procedure SetCapacity(NewCapacity: Integer); override;\r\n    procedure SetUpdateState(Updating: Boolean); override;\r\n    procedure InsertItem(Index: Integer; const S: string); virtual;\r\n    procedure InsertItem(Index: Integer; const S: string; O: TObject); virtual;\r\n    Function DoCompareText(const s1,s2 : string) : PtrInt; override;\r\n    function CompareStrings(const s1,s2 : string) : Integer; virtual;\r\n  public\r\n    constructor Create(AOwnsObjects: Boolean); overload;\r\n    constructor Create(AQuoteChar, ADelimiter: Char); overload;\r\n    constructor Create(AQuoteChar, ADelimiter: Char; AOptions: TStringsOptions); overload;\r\n    constructor Create(ADuplicates: TDuplicates; ASorted: Boolean; ACaseSensitive: Boolean); overload;\r\n\r\n    destructor Destroy; override;\r\n    function Add(const S: string): Integer; override;\r\n    procedure Clear; override;\r\n    procedure Delete(Index: Integer); override;\r\n    procedure Exchange(Index1, Index2: Integer); override;\r\n    function Find(const S: string; Out Index: Integer): Boolean; virtual;\r\n    function IndexOf(const S: string): Integer; override;\r\n    procedure Insert(Index: Integer; const S: string); override;\r\n    procedure Sort; virtual;\r\n    procedure CustomSort(CompareFn: TStringListSortCompare); virtual;\r\n    property Duplicates: TDuplicates read FDuplicates write FDuplicates;\r\n    property Sorted: Boolean read GetSorted write SetSorted;\r\n    property CaseSensitive: Boolean read FCaseSensitive write SetCaseSensitive;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    property OnChanging: TNotifyEvent read FOnChanging write FOnChanging;\r\n    property OwnsObjects : boolean read FOwnsObjects write FOwnsObjects;\r\n    property SortStyle : TStringsSortStyle Read FSortStyle Write SetSortStyle;\r\n    property TrailingLineBreak: boolean read GetTrailingLineBreak write SetTrailingLineBreak;\r\n  end;\r\n\r\n  TCollection = class;\r\n\r\n  { TCollectionItem }\r\n\r\n  TCollectionItem = class(TPersistent)\r\n  private\r\n    FCollection: TCollection;\r\n    FID: Integer;\r\n    FUpdateCount: Integer;\r\n    function GetIndex: Integer;\r\n  protected\r\n    procedure SetCollection(Value: TCollection);virtual;\r\n    procedure Changed(AllItems: Boolean);\r\n    function GetOwner: TPersistent; override;\r\n    function GetDisplayName: string; virtual;\r\n    procedure SetIndex(Value: Integer); virtual;\r\n    procedure SetDisplayName(const Value: string); virtual;\r\n    property UpdateCount: Integer read FUpdateCount;\r\n  public\r\n    constructor Create(ACollection: TCollection); virtual; reintroduce;\r\n    destructor Destroy; override;\r\n    function GetNamePath: string; override;\r\n    property Collection: TCollection read FCollection write SetCollection;\r\n    property ID: Integer read FID;\r\n    property Index: Integer read GetIndex write SetIndex;\r\n    property DisplayName: string read GetDisplayName write SetDisplayName;\r\n  end;\r\n\r\n  TCollectionEnumerator = class\r\n  private\r\n    FCollection: TCollection;\r\n    FPosition: Integer;\r\n  public\r\n    constructor Create(ACollection: TCollection); reintroduce;\r\n    function GetCurrent: TCollectionItem;\r\n    function MoveNext: Boolean;\r\n    property Current: TCollectionItem read GetCurrent;\r\n  end;\r\n\r\n  TCollectionItemClass = class of TCollectionItem;\r\n  TCollectionNotification = (cnAdded, cnExtracting, cnDeleting);\r\n  TCollectionSortCompare = function (Item1, Item2: TCollectionItem): Integer;\r\n  TCollectionSortCompareFunc = reference to function (Item1, Item2: TCollectionItem): Integer;\r\n\r\n  TCollection = class(TPersistent)\r\n  private\r\n    FItemClass: TCollectionItemClass;\r\n    FItems: TFpList;\r\n    FUpdateCount: Integer;\r\n    FNextID: Integer;\r\n    FPropName: string;\r\n    function GetCount: Integer;\r\n    function GetPropName: string;\r\n    procedure InsertItem(Item: TCollectionItem);\r\n    procedure RemoveItem(Item: TCollectionItem);\r\n    procedure DoClear;\r\n  protected\r\n    { Design-time editor support }\r\n    function GetAttrCount: Integer; virtual;\r\n    function GetAttr(Index: Integer): string; virtual;\r\n    function GetItemAttr(Index, ItemIndex: Integer): string; virtual;\r\n    procedure Changed;\r\n    function GetItem(Index: Integer): TCollectionItem;\r\n    procedure SetItem(Index: Integer; Value: TCollectionItem);\r\n    procedure SetItemName(Item: TCollectionItem); virtual;\r\n    procedure SetPropName; virtual;\r\n    procedure Update(Item: TCollectionItem); virtual;\r\n    procedure Notify(Item: TCollectionItem;Action: TCollectionNotification); virtual;\r\n    property PropName: string read GetPropName write FPropName;\r\n    property UpdateCount: Integer read FUpdateCount;\r\n    property FPList : TFPList Read FItems;\r\n  public\r\n    constructor Create(AItemClass: TCollectionItemClass); reintroduce;\r\n    destructor Destroy; override;\r\n    function Owner: TPersistent;\r\n    function Add: TCollectionItem;\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure BeginUpdate; virtual;\r\n    procedure Clear;\r\n    procedure EndUpdate; virtual;\r\n    procedure Delete(Index: Integer);\r\n    function GetEnumerator: TCollectionEnumerator;\r\n    function GetNamePath: string; override;\r\n    function Insert(Index: Integer): TCollectionItem;\r\n    function FindItemID(ID: Integer): TCollectionItem;\r\n    procedure Exchange(Const Index1, index2: integer);\r\n    procedure Sort(Const Compare : TCollectionSortCompare);\r\n    procedure SortList(Const Compare : TCollectionSortCompareFunc);\r\n    property Count: Integer read GetCount;\r\n    property ItemClass: TCollectionItemClass read FItemClass;\r\n    property Items[Index: Integer]: TCollectionItem read GetItem write SetItem;\r\n  end;\r\n\r\n  TOwnedCollection = class(TCollection)\r\n  private\r\n    FOwner: TPersistent;\r\n  protected\r\n    Function GetOwner: TPersistent; override;\r\n  public\r\n    Constructor Create(AOwner: TPersistent; AItemClass: TCollectionItemClass); reintroduce;\r\n  end;\r\n\r\n  TComponent = Class;\r\n\r\n  TOperation = (opInsert, opRemove);\r\n\r\n  TComponentStateItem = ( csLoading, csReading, csWriting,  csDestroying,\r\n    csDesigning, csAncestor, csUpdating, csFixups, csFreeNotification,\r\n    csInline, csDesignInstance);\r\n  TComponentState = set of TComponentStateItem;\r\n  TComponentStyleItem = (csInheritable, csCheckPropAvail, csSubComponent, csTransient);\r\n  TComponentStyle = set of TComponentStyleItem;\r\n\r\n  TGetChildProc = procedure (Child: TComponent) of object;\r\n\r\n  TComponentName = type string;\r\n\r\n  { TComponentEnumerator }\r\n\r\n  TComponentEnumerator = class\r\n  private\r\n    FComponent: TComponent;\r\n    FPosition: Integer;\r\n  public\r\n    constructor Create(AComponent: TComponent); reintroduce;\r\n    function GetCurrent: TComponent;\r\n    function MoveNext: Boolean;\r\n    property Current: TComponent read GetCurrent;\r\n  end;\r\n\r\n  TComponent = class(TPersistent, IInterface)\r\n  private\r\n    FOwner: TComponent;\r\n    FName: TComponentName;\r\n    FTag: Ptrint;\r\n    FComponents: TFpList;\r\n    FFreeNotifies: TFpList;\r\n    FDesignInfo: Longint;\r\n    FComponentState: TComponentState;\r\n    function GetComponent(AIndex: Integer): TComponent;\r\n    function GetComponentCount: Integer;\r\n    function GetComponentIndex: Integer;\r\n    procedure Insert(AComponent: TComponent);\r\n    procedure ReadLeft(AReader: TReader);\r\n    procedure ReadTop(AReader: TReader);\r\n    procedure Remove(AComponent: TComponent);\r\n    procedure RemoveNotification(AComponent: TComponent);\r\n    procedure SetComponentIndex(Value: Integer);\r\n    procedure SetReference(Enable: Boolean);\r\n    procedure WriteLeft(AWriter: TWriter);\r\n    procedure WriteTop(AWriter: TWriter);\r\n  protected\r\n    FComponentStyle: TComponentStyle;\r\n    procedure ChangeName(const NewName: TComponentName);\r\n    procedure DefineProperties(Filer: TFiler); override;\r\n    procedure GetChildren(Proc: TGetChildProc; Root: TComponent); virtual;\r\n    function GetChildOwner: TComponent; virtual;\r\n    function GetChildParent: TComponent; virtual;\r\n    function GetOwner: TPersistent; override;\r\n    procedure Loaded; virtual;\r\n    procedure Loading; virtual;\r\n    procedure SetWriting(Value: Boolean); virtual;\r\n    procedure SetReading(Value: Boolean); virtual;\r\n    procedure Notification(AComponent: TComponent;  Operation: TOperation); virtual;\r\n    procedure PaletteCreated; virtual;\r\n    procedure ReadState(Reader: TReader); virtual;\r\n    procedure SetAncestor(Value: Boolean);\r\n    procedure SetDesigning(Value: Boolean; SetChildren : Boolean = True);\r\n    procedure SetDesignInstance(Value: Boolean);\r\n    procedure SetInline(Value: Boolean);\r\n    procedure SetName(const NewName: TComponentName); virtual;\r\n    procedure SetChildOrder(Child: TComponent; Order: Integer); virtual;\r\n    procedure SetParentComponent(Value: TComponent); virtual;\r\n    procedure Updating; virtual;\r\n    procedure Updated; virtual;\r\n    procedure ValidateRename(AComponent: TComponent;  const CurName, NewName: string); virtual;\r\n    procedure ValidateContainer(AComponent: TComponent); virtual;\r\n    procedure ValidateInsert(AComponent: TComponent); virtual;\r\n  protected\r\n    function _AddRef: Integer; {$IFDEF MAKESTUB}stdcall;{$ENDIF}\r\n    FLeft: Integer;\r\n    FTop: Integer;\r\n    function GetLeft: Integer; virtual;\r\n    function GetTop: Integer; virtual;\r\n    procedure SetLeft(AValue: Integer); virtual;\r\n    procedure SetTop(AValue: Integer); virtual;\r\n    function _Release: Integer;  {$IFDEF MAKESTUB}stdcall;{$ENDIF}\r\n  public\r\n    constructor Create(AOwner: TComponent); virtual; reintroduce;\r\n    destructor Destroy; override;\r\n    procedure BeforeDestruction; override;\r\n    procedure DestroyComponents;\r\n    procedure Destroying;\r\n    function QueryInterface(const IID: TGUID; out Obj): HRESULT; virtual;  {$IFDEF MAKESTUB} stdcall;{$ENDIF}\r\n    procedure AfterLoadDFMValues; virtual;\r\n    procedure BeforeLoadDFMValues; virtual;\r\n    procedure BeginUpdate; virtual;\r\n    procedure EndUpdate; virtual;\r\n    procedure WriteState(Writer: TWriter); virtual;\r\n//    function ExecuteAction(Action: TBasicAction): Boolean; virtual;\r\n    function FindComponent(const AName: string): TComponent;\r\n    procedure FreeNotification(AComponent: TComponent);\r\n    procedure RemoveFreeNotification(AComponent: TComponent);\r\n    function GetNamePath: string; override;\r\n    function GetParentComponent: TComponent; virtual;\r\n    function HasParent: Boolean; virtual;\r\n    procedure InsertComponent(AComponent: TComponent);\r\n    procedure RemoveComponent(AComponent: TComponent);\r\n    procedure SetSubComponent(ASubComponent: Boolean);\r\n    function GetEnumerator: TComponentEnumerator;\r\n//    function UpdateAction(Action: TBasicAction): Boolean; dynamic;\r\n    property Components[Index: Integer]: TComponent read GetComponent;\r\n    property ComponentCount: Integer read GetComponentCount;\r\n    property ComponentIndex: Integer read GetComponentIndex write SetComponentIndex;\r\n    property ComponentState: TComponentState read FComponentState;\r\n    property ComponentStyle: TComponentStyle read FComponentStyle;\r\n    property DesignInfo: Longint read FDesignInfo write FDesignInfo;\r\n    property Left: Integer read GetLeft write SetLeft;\r\n    property Owner: TComponent read FOwner;\r\n    property Top: Integer read GetTop write SetTop;\r\n  published\r\n    property Name: TComponentName read FName write SetName stored False;\r\n    property Tag: PtrInt read FTag write FTag default 0;\r\n  end;\r\n  TComponentClass = Class of TComponent;\r\n\r\n  TSeekOrigin = (soBeginning, soCurrent, soEnd);\r\n\r\n  { TStream }\r\n\r\n  TStream = class(TObject)\r\n  private\r\n    FEndian: TEndian;\r\n    function MakeInt(B: TBytes; aSize: Integer; Signed: Boolean): NativeInt;\r\n    function MakeBytes(B: NativeInt; aSize: Integer; Signed: Boolean): TBytes;\r\n  protected\r\n    procedure InvalidSeek; virtual;\r\n    procedure Discard(const Count: NativeInt);\r\n    procedure DiscardLarge(Count: NativeInt; const MaxBufferSize: Longint);\r\n    procedure FakeSeekForward(Offset: NativeInt; const Origin: TSeekOrigin; const Pos: NativeInt);\r\n    function  GetPosition: NativeInt; virtual;\r\n    procedure SetPosition(const Pos: NativeInt); virtual;\r\n    function  GetSize: NativeInt; virtual;\r\n    procedure SetSize(const NewSize: NativeInt); virtual;\r\n    procedure SetSize64(const NewSize: NativeInt); virtual;\r\n    procedure ReadNotImplemented;\r\n    procedure WriteNotImplemented;\r\n    function ReadMaxSizeData(Buffer : TBytes; aSize,aCount : NativeInt) : NativeInt;\r\n    Procedure ReadExactSizeData(Buffer : TBytes; aSize,aCount : NativeInt);\r\n    function WriteMaxSizeData(Const Buffer : TBytes; aSize,aCount : NativeInt) : NativeInt;\r\n    Procedure WriteExactSizeData(Const Buffer : TBytes; aSize,aCount : NativeInt);\r\n  public\r\n    function Read(var Buffer: TBytes; Count: Longint): Longint; overload;\r\n    function Read(Buffer : TBytes; aOffset, Count: Longint): Longint; virtual; abstract; overload;\r\n\r\n    function Write(const Buffer: TBytes; Count: Longint): Longint; virtual; overload;\r\n    function Write(const Buffer: TBytes; Offset, Count: Longint): Longint; virtual; abstract; overload;\r\n\r\n    function Seek(const Offset: NativeInt; Origin: TSeekOrigin): NativeInt; virtual; abstract; overload;\r\n\r\n    function ReadData(Buffer: TBytes; Count: NativeInt): NativeInt; overload;\r\n    function ReadData(var Buffer: Boolean): NativeInt; overload;\r\n    function ReadData(var Buffer: Boolean; Count: NativeInt): NativeInt; overload;\r\n    function ReadData(var Buffer: WideChar): NativeInt; overload;\r\n    function ReadData(var Buffer: WideChar; Count: NativeInt): NativeInt; overload;\r\n    function ReadData(var Buffer: Int8): NativeInt; overload;\r\n    function ReadData(var Buffer: Int8; Count: NativeInt): NativeInt; overload;\r\n    function ReadData(var Buffer: UInt8): NativeInt; overload;\r\n    function ReadData(var Buffer: UInt8; Count: NativeInt): NativeInt; overload;\r\n    function ReadData(var Buffer: Int16): NativeInt; overload;\r\n    function ReadData(var Buffer: Int16; Count: NativeInt): NativeInt; overload;\r\n    function ReadData(var Buffer: UInt16): NativeInt; overload;\r\n    function ReadData(var Buffer: UInt16; Count: NativeInt): NativeInt; overload;\r\n    function ReadData(var Buffer: Int32): NativeInt; overload;\r\n    function ReadData(var Buffer: Int32; Count: NativeInt): NativeInt; overload;\r\n    function ReadData(var Buffer: UInt32): NativeInt; overload;\r\n    function ReadData(var Buffer: UInt32; Count: NativeInt): NativeInt; overload;\r\n    // NativeLargeint. Stored as a float64, Read as float64.\r\n    function ReadData(var Buffer: NativeLargeInt): NativeInt; overload;\r\n    function ReadData(var Buffer: NativeLargeInt; Count: NativeInt): NativeInt; overload;\r\n    function ReadData(var Buffer: NativeLargeUInt): NativeInt; overload;\r\n    function ReadData(var Buffer: NativeLargeUInt; Count: NativeInt): NativeInt; overload;\r\n    // Note: a ReadData with Int64 would be Delphi/FPC incompatible\r\n    function ReadData(var Buffer: Double): NativeInt; overload;\r\n    function ReadData(var Buffer: Double; Count: NativeInt): NativeInt; overload;\r\n    procedure ReadBuffer(var Buffer: TBytes; Count: NativeInt); overload;\r\n    procedure ReadBuffer(var Buffer: TBytes; Offset, Count: NativeInt); overload;\r\n\r\n    procedure ReadBufferData(var Buffer: Boolean); overload;\r\n    procedure ReadBufferData(var Buffer: Boolean; Count: NativeInt); overload;\r\n    procedure ReadBufferData(var Buffer: WideChar); overload;\r\n    procedure ReadBufferData(var Buffer: WideChar; Count: NativeInt); overload;\r\n    procedure ReadBufferData(var Buffer: Int8); overload;\r\n    procedure ReadBufferData(var Buffer: Int8; Count: NativeInt); overload;\r\n    procedure ReadBufferData(var Buffer: UInt8); overload;\r\n    procedure ReadBufferData(var Buffer: UInt8; Count: NativeInt); overload;\r\n    procedure ReadBufferData(var Buffer: Int16); overload;\r\n    procedure ReadBufferData(var Buffer: Int16; Count: NativeInt); overload;\r\n    procedure ReadBufferData(var Buffer: UInt16); overload;\r\n    procedure ReadBufferData(var Buffer: UInt16; Count: NativeInt); overload;\r\n    procedure ReadBufferData(var Buffer: Int32); overload;\r\n    procedure ReadBufferData(var Buffer: Int32; Count: NativeInt); overload;\r\n    procedure ReadBufferData(var Buffer: UInt32); overload;\r\n    procedure ReadBufferData(var Buffer: UInt32; Count: NativeInt); overload;\r\n    // NativeLargeint. Stored as a float64, Read as float64.\r\n    procedure ReadBufferData(var Buffer: NativeLargeInt); overload;\r\n    procedure ReadBufferData(var Buffer: NativeLargeInt; Count: NativeInt); overload;\r\n    procedure ReadBufferData(var Buffer: NativeLargeUInt); overload;\r\n    procedure ReadBufferData(var Buffer: NativeLargeUInt; Count: NativeInt); overload;\r\n    procedure ReadBufferData(var Buffer: Double); overload;\r\n    procedure ReadBufferData(var Buffer: Double; Count: NativeInt); overload;\r\n    procedure WriteBuffer(const Buffer: TBytes; Count: NativeInt); overload;\r\n    procedure WriteBuffer(const Buffer: TBytes; Offset, Count: NativeInt); overload;\r\n\r\n    function WriteData(const Buffer: TBytes; Count: NativeInt): NativeInt; overload;\r\n    function WriteData(const Buffer: Boolean): NativeInt; overload;\r\n    function WriteData(const Buffer: Boolean; Count: NativeInt): NativeInt; overload;\r\n    function WriteData(const Buffer: WideChar): NativeInt; overload;\r\n    function WriteData(const Buffer: WideChar; Count: NativeInt): NativeInt; overload;\r\n    function WriteData(const Buffer: Int8): NativeInt; overload;\r\n    function WriteData(const Buffer: Int8; Count: NativeInt): NativeInt; overload;\r\n    function WriteData(const Buffer: UInt8): NativeInt; overload;\r\n    function WriteData(const Buffer: UInt8; Count: NativeInt): NativeInt; overload;\r\n    function WriteData(const Buffer: Int16): NativeInt; overload;\r\n    function WriteData(const Buffer: Int16; Count: NativeInt): NativeInt; overload;\r\n    function WriteData(const Buffer: UInt16): NativeInt; overload;\r\n    function WriteData(const Buffer: UInt16; Count: NativeInt): NativeInt; overload;\r\n    function WriteData(const Buffer: Int32): NativeInt; overload;\r\n    function WriteData(const Buffer: Int32; Count: NativeInt): NativeInt; overload;\r\n    function WriteData(const Buffer: UInt32): NativeInt; overload;\r\n    function WriteData(const Buffer: UInt32; Count: NativeInt): NativeInt; overload;\r\n    // NativeLargeint. Stored as a float64, Read as float64.\r\n    function WriteData(const Buffer: NativeLargeInt): NativeInt; overload;\r\n    function WriteData(const Buffer: NativeLargeInt; Count: NativeInt): NativeInt; overload;\r\n    function WriteData(const Buffer: NativeLargeUInt): NativeInt; overload;\r\n    function WriteData(const Buffer: NativeLargeUInt; Count: NativeInt): NativeInt; overload;\r\n    function WriteData(const Buffer: Double): NativeInt; overload;\r\n    function WriteData(const Buffer: Double; Count: NativeInt): NativeInt; overload;\r\n{$IFDEF FPC_HAS_TYPE_EXTENDED}\r\n    function WriteData(const Buffer: Extended): NativeInt; overload;\r\n    function WriteData(const Buffer: Extended; Count: NativeInt): NativeInt; overload;\r\n    function WriteData(const Buffer: TExtended80Rec): NativeInt; overload;\r\n    function WriteData(const Buffer: TExtended80Rec; Count: NativeInt): NativeInt; overload;\r\n{$ENDIF}\r\n    procedure WriteBufferData(Buffer: Int32); overload;\r\n    procedure WriteBufferData(Buffer: Int32; Count: NativeInt); overload;\r\n    procedure WriteBufferData(Buffer: Boolean); overload;\r\n    procedure WriteBufferData(Buffer: Boolean; Count: NativeInt); overload;\r\n    procedure WriteBufferData(Buffer: WideChar); overload;\r\n    procedure WriteBufferData(Buffer: WideChar; Count: NativeInt); overload;\r\n    procedure WriteBufferData(Buffer: Int8); overload;\r\n    procedure WriteBufferData(Buffer: Int8; Count: NativeInt); overload;\r\n    procedure WriteBufferData(Buffer: UInt8); overload;\r\n    procedure WriteBufferData(Buffer: UInt8; Count: NativeInt); overload;\r\n    procedure WriteBufferData(Buffer: Int16); overload;\r\n    procedure WriteBufferData(Buffer: Int16; Count: NativeInt); overload;\r\n    procedure WriteBufferData(Buffer: UInt16); overload;\r\n    procedure WriteBufferData(Buffer: UInt16; Count: NativeInt); overload;\r\n    procedure WriteBufferData(Buffer: UInt32); overload;\r\n    procedure WriteBufferData(Buffer: UInt32; Count: NativeInt); overload;\r\n    // NativeLargeint. Stored as a float64, Read as float64.\r\n    procedure WriteBufferData(Buffer: NativeLargeInt); overload;\r\n    procedure WriteBufferData(Buffer: NativeLargeInt; Count: NativeInt); overload;\r\n    procedure WriteBufferData(Buffer: NativeLargeUInt); overload;\r\n    procedure WriteBufferData(Buffer: NativeLargeUInt; Count: NativeInt); overload;\r\n    procedure WriteBufferData(Buffer: Double); overload;\r\n    procedure WriteBufferData(Buffer: Double; Count: NativeInt); overload;\r\n    function CopyFrom(Source: TStream; Count: NativeInt): NativeInt;\r\n    function ReadComponent(Instance: TComponent): TComponent;\r\n    function ReadComponentRes(Instance: TComponent): TComponent;\r\n    procedure WriteComponent(Instance: TComponent);\r\n    procedure WriteComponentRes(const ResName: string; Instance: TComponent);\r\n    procedure WriteDescendent(Instance, Ancestor: TComponent);\r\n    procedure WriteDescendentRes(const ResName: string; Instance, Ancestor: TComponent);\r\n    procedure WriteResourceHeader(const ResName: string; {!!!:out} var FixupInfo: Longint);\r\n    procedure FixupResourceHeader(FixupInfo: Longint);\r\n    procedure ReadResHeader;\r\n    function ReadByte : Byte;\r\n    function ReadWord : Word;\r\n    function ReadDWord : Cardinal;\r\n    function ReadQWord : NativeLargeUInt;\r\n    procedure WriteByte(b : Byte);\r\n    procedure WriteWord(w : Word);\r\n    procedure WriteDWord(d : Cardinal);\r\n    procedure WriteQWord(q : NativeLargeUInt);\r\n    property Position: NativeInt read GetPosition write SetPosition;\r\n    property Size: NativeInt read GetSize write SetSize64;\r\n    Property Endian: TEndian Read FEndian Write FEndian;\r\n  end;\r\n\r\n  { TCustomMemoryStream abstract class }\r\n\r\n  TCustomMemoryStream = class(TStream)\r\n  private\r\n    FMemory: TJSArrayBuffer;\r\n    FDataView : TJSDataView;\r\n    FDataArray : TJSUint8Array;\r\n    FSize, FPosition: PtrInt;\r\n    FSizeBoundsSeek : Boolean;\r\n    function GetDataArray: TJSUint8Array;\r\n    function GetDataView: TJSDataview;\r\n  protected\r\n    Function GetSize : NativeInt; Override;\r\n    function GetPosition: NativeInt; Override;\r\n    procedure SetPointer(Ptr: TJSArrayBuffer; ASize: PtrInt);\r\n    Property DataView : TJSDataview Read GetDataView;\r\n    Property DataArray : TJSUint8Array Read GetDataArray;\r\n  public\r\n    Class Function MemoryToBytes(Mem : TJSArrayBuffer) : TBytes; overload;\r\n    Class Function MemoryToBytes(Mem : TJSUint8Array) : TBytes; overload;\r\n    Class Function BytesToMemory(aBytes : TBytes) : TJSArrayBuffer;\r\n    function Read(Buffer : TBytes; Offset, Count: LongInt): LongInt; override;\r\n    function Seek(const Offset: NativeInt; Origin: TSeekOrigin): NativeInt; override;\r\n    procedure SaveToStream(Stream: TStream);\r\n    Procedure LoadFromURL(Const aURL : String; Async : Boolean = True; OnLoaded : TNotifyEventRef = Nil; OnError: TStringNotifyEventRef = Nil); virtual;\r\n    // Delphi compatibility. Must be an URL\r\n    Procedure LoadFromFile(Const aFileName : String; const OnLoaded : TProc = Nil; const AError: TProcString = Nil);\r\n    property Memory: TJSArrayBuffer read FMemory;\r\n    Property SizeBoundsSeek : Boolean Read FSizeBoundsSeek Write FSizeBoundsSeek;\r\n  end;\r\n\r\n  { TMemoryStream }\r\n\r\n  TMemoryStream = class(TCustomMemoryStream)\r\n  private\r\n    FCapacity: PtrInt;\r\n    procedure SetCapacity(NewCapacity: PtrInt);\r\n  protected\r\n    function Realloc(var NewCapacity: PtrInt): TJSArrayBuffer; virtual;\r\n    property Capacity: PtrInt read FCapacity write SetCapacity;\r\n  public\r\n    destructor Destroy; override;\r\n    procedure Clear;\r\n    procedure LoadFromStream(Stream: TStream);\r\n    procedure SetSize(const NewSize: NativeInt); override;\r\n    function Write(const Buffer: TBytes; Offset, Count: LongInt): LongInt; override;\r\n    function Write(const Buffer: TBytes; Count: LongInt): LongInt; override;\r\n  end;\r\n\r\n{ TBytesStream }\r\n\r\n  TBytesStream = class(TMemoryStream)\r\n  private\r\n    function GetBytes: TBytes;\r\n  public\r\n    constructor Create(const ABytes: TBytes); virtual; overload;\r\n    property Bytes: TBytes read GetBytes;\r\n  end;\r\n\r\n  { TStringStream }\r\n\r\n  TStringStream = class(TMemoryStream)\r\n  private\r\n    FEncoding: TEncoding;\r\n    FOwnsEncoding: Boolean;\r\n    function GetDataString : String;\r\n  public\r\n    constructor Create; reintroduce; overload;\r\n    constructor Create(const aString: String); virtual; overload;\r\n    constructor Create(const AString: string; AEncoding: TEncoding; AOwnsEncoding: Boolean = True); overload;\r\n    destructor Destroy; override;\r\n    function ReadString(Count: Integer): string;\r\n    procedure WriteString(const AString: string);\r\n    property DataString: String read GetDataString;\r\n    property Encoding: TEncoding read FEncoding;\r\n  end;\r\n\r\n  TFPResourceHMODULE = THandle;\r\n\r\n  { TResourceStream }\r\n\r\n  TResourceStream = class(TCustomMemoryStream)\r\n  private\r\n    procedure Initialize(aInfo : TResourceInfo);\r\n    procedure Initialize(Instance{%H-}: TFPResourceHMODULE; Name, ResType{%H-}: String);\r\n  public\r\n    constructor Create(aInfo: TResourceInfo);\r\n    constructor Create(Instance: TFPResourceHMODULE; const ResName, ResType : String);\r\n    constructor CreateFromID(Instance: TFPResourceHMODULE; ResID: Integer; ResType: String);\r\n    function Write(const Buffer{%H-}: TBytes; Offset{%H-}, Count{%H-}: LongInt): LongInt; override;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\n\r\n  TFilerFlag = (ffInherited, ffChildPos, ffInline);\r\n  TFilerFlags = set of TFilerFlag;\r\n\r\n  TReaderProc = procedure(Reader: TReader) of object;\r\n  TWriterProc = procedure(Writer: TWriter) of object;\r\n  TStreamProc = procedure(Stream: TStream) of object;\r\n\r\n  TFiler = class(TObject)\r\n  private\r\n    FRoot: TComponent;\r\n    FLookupRoot: TComponent;\r\n    FAncestor: TPersistent;\r\n    FIgnoreChildren: Boolean;\r\n  protected\r\n    procedure SetRoot(ARoot: TComponent); virtual;\r\n  public\r\n    procedure DefineProperty(const Name: string;\r\n      ReadData: TReaderProc; WriteData: TWriterProc;\r\n      HasData: Boolean); virtual; abstract;\r\n    procedure DefineBinaryProperty(const Name: string;\r\n      ReadData, WriteData: TStreamProc;\r\n      HasData: Boolean); virtual; abstract;\r\n    Procedure FlushBuffer; virtual; abstract;\r\n    property Root: TComponent read FRoot write SetRoot;\r\n    property LookupRoot: TComponent read FLookupRoot;\r\n    property Ancestor: TPersistent read FAncestor write FAncestor;\r\n    property IgnoreChildren: Boolean read FIgnoreChildren write FIgnoreChildren;\r\n  end;\r\n\r\n\r\n  TValueType = (\r\n      vaNull, vaList, vaInt8, vaInt16, vaInt32, vaDouble,\r\n      vaString, vaIdent, vaFalse, vaTrue, vaBinary, vaSet,\r\n      vaNil, vaCollection, vaCurrency, vaDate, vaNativeInt\r\n      );\r\n\r\n  { TAbstractObjectReader }\r\n\r\n  TAbstractObjectReader = class\r\n  public\r\n    Procedure FlushBuffer; virtual;\r\n    function NextValue: TValueType; virtual; abstract;\r\n    function ReadValue: TValueType; virtual; abstract;\r\n    procedure BeginRootComponent; virtual; abstract;\r\n    procedure BeginComponent(var Flags: TFilerFlags; var AChildPos: Integer;\r\n      var CompClassName, CompName: String); virtual; abstract;\r\n    function BeginProperty: String; virtual; abstract;\r\n\r\n    //Please don't use read, better use ReadBinary whenever possible\r\n    procedure Read(var Buffer : TBytes; Count: Longint); virtual;abstract;\r\n\r\n    { All ReadXXX methods are called _after_ the value type has been read! }\r\n    procedure ReadBinary(const DestData: TMemoryStream); virtual; abstract;\r\n    function ReadFloat: Extended; virtual; abstract;\r\n    function ReadCurrency: Currency; virtual; abstract;\r\n    function ReadIdent(ValueType: TValueType): String; virtual; abstract;\r\n    function ReadInt8: ShortInt; virtual; abstract;\r\n    function ReadInt16: SmallInt; virtual; abstract;\r\n    function ReadInt32: LongInt; virtual; abstract;\r\n    function ReadNativeInt: NativeInt; virtual; abstract;\r\n    function ReadSet(EnumType: TTypeInfoEnum): Integer; virtual; abstract;\r\n    procedure ReadSignature; virtual; abstract;\r\n    function ReadStr: String; virtual; abstract;\r\n    function ReadString(StringType: TValueType): String; virtual; abstract;\r\n    function ReadWideString: WideString;virtual;abstract;\r\n    function ReadUnicodeString: UnicodeString;virtual;abstract;\r\n    procedure SkipComponent(SkipComponentInfos: Boolean); virtual; abstract;\r\n    procedure SkipValue; virtual; abstract;\r\n  end;\r\n\r\n  { TBinaryObjectReader }\r\n\r\n  TBinaryObjectReader = class(TAbstractObjectReader)\r\n  protected\r\n    FStream: TStream;\r\n    function ReadWord : word;\r\n    function ReadDWord : longword;\r\n    procedure SkipProperty;\r\n    procedure SkipSetBody;\r\n  public\r\n    constructor Create(Stream: TStream);\r\n    function NextValue: TValueType; override;\r\n    function ReadValue: TValueType; override;\r\n    procedure BeginRootComponent; override;\r\n    procedure BeginComponent(var Flags: TFilerFlags; var AChildPos: Integer;\r\n      var CompClassName, CompName: String); override;\r\n    function BeginProperty: String; override;\r\n    //Please don't use read, better use ReadBinary whenever possible\r\n    procedure Read(var Buffer : TBytes; Count: Longint); override;\r\n    procedure ReadBinary(const DestData: TMemoryStream); override;\r\n    function ReadFloat: Extended; override;\r\n    function ReadCurrency: Currency; override;\r\n    function ReadIdent(ValueType: TValueType): String; override;\r\n    function ReadInt8: ShortInt; override;\r\n    function ReadInt16: SmallInt; override;\r\n    function ReadInt32: LongInt; override;\r\n    function ReadNativeInt: NativeInt; override;\r\n    function ReadSet(EnumType: TTypeInfoEnum): Integer; override;\r\n    procedure ReadSignature; override;\r\n    function ReadStr: String; override;\r\n    function ReadString(StringType: TValueType): String; override;\r\n    function ReadWideString: WideString;override;\r\n    function ReadUnicodeString: UnicodeString;override;\r\n    procedure SkipComponent(SkipComponentInfos: Boolean); override;\r\n    procedure SkipValue; override;\r\n  end;\r\n\r\n\r\n  TFindMethodEvent = procedure(Reader: TReader; const MethodName: string;  var Address: CodePointer; var Error: Boolean) of object;\r\n  TSetNameEvent = procedure(Reader: TReader; Component: TComponent;  var Name: string) of object;\r\n  TReferenceNameEvent = procedure(Reader: TReader; var Name: string) of object;\r\n  TAncestorNotFoundEvent = procedure(Reader: TReader; const ComponentName: string; ComponentClass: TPersistentClass; var Component: TComponent) of object;\r\n  TReadComponentsProc = procedure(Component: TComponent) of object;\r\n  TReaderError = procedure(Reader: TReader; const Message: string; var Handled: Boolean) of object;\r\n  TPropertyNotFoundEvent = procedure(Reader: TReader; Instance: TPersistent; var PropName: string; IsPath: boolean; var Handled, Skip: Boolean) of object;\r\n  TFindComponentClassEvent = procedure(Reader: TReader; const ClassName: string; var ComponentClass: TComponentClass) of object;\r\n  TCreateComponentEvent = procedure(Reader: TReader; ComponentClass: TComponentClass; var Component: TComponent) of object;\r\n\r\n  TSetMethodPropertyEvent = procedure(Reader: TReader; Instance: TPersistent; PropInfo: TTypeMemberProperty; const TheMethodName: string;\r\n    var Handled: boolean) of object;\r\n  TReadWriteStringPropertyEvent = procedure(Sender:TObject; const Instance: TPersistent; PropInfo: TTypeMemberProperty; var Content:string) of object;\r\n\r\n\r\n  { TReader }\r\n\r\n  TReader = class(TFiler)\r\n  private\r\n    FDriver: TAbstractObjectReader;\r\n    FOwner: TComponent;\r\n    FParent: TComponent;\r\n    FFixups: TObject;\r\n    FLoaded: TFpList;\r\n    FOnFindMethod: TFindMethodEvent;\r\n    FOnSetMethodProperty: TSetMethodPropertyEvent;\r\n    FOnSetName: TSetNameEvent;\r\n    FOnReferenceName: TReferenceNameEvent;\r\n    FOnAncestorNotFound: TAncestorNotFoundEvent;\r\n    FOnError: TReaderError;\r\n    FOnPropertyNotFound: TPropertyNotFoundEvent;\r\n    FOnFindComponentClass: TFindComponentClassEvent;\r\n    FOnCreateComponent: TCreateComponentEvent;\r\n    FPropName: string;\r\n    FCanHandleExcepts: Boolean;\r\n    FOnReadStringProperty:TReadWriteStringPropertyEvent;\r\n    procedure DoFixupReferences;\r\n    function FindComponentClass(const AClassName: string): TComponentClass;\r\n  protected\r\n    function Error(const Message: string): Boolean; virtual;\r\n    function FindMethod(ARoot: TComponent; const AMethodName: string): CodePointer; virtual;\r\n    procedure ReadProperty(AInstance: TPersistent);\r\n    procedure ReadPropValue(Instance: TPersistent; PropInfo: TTypeMemberProperty);\r\n    procedure PropertyError;\r\n    procedure ReadData(Instance: TComponent);\r\n    property PropName: string read FPropName;\r\n    property CanHandleExceptions: Boolean read FCanHandleExcepts;\r\n    function CreateDriver(Stream: TStream): TAbstractObjectReader; virtual;\r\n  public\r\n    constructor Create(Stream: TStream);\r\n    destructor Destroy; override;\r\n    Procedure FlushBuffer; override;\r\n    procedure BeginReferences;\r\n    procedure CheckValue(Value: TValueType);\r\n    procedure DefineProperty(const Name: string;\r\n      AReadData: TReaderProc; WriteData: TWriterProc;\r\n      HasData: Boolean); override;\r\n    procedure DefineBinaryProperty(const Name: string;\r\n      AReadData, WriteData: TStreamProc;\r\n      HasData: Boolean); override;\r\n    function EndOfList: Boolean;\r\n    procedure EndReferences;\r\n    procedure FixupReferences;\r\n    function NextValue: TValueType;\r\n    //Please don't use read, better use ReadBinary whenever possible\r\n    //uuups, ReadBinary is protected ..\r\n    procedure Read(var Buffer : TBytes; Count: LongInt); virtual;\r\n\r\n    function ReadBoolean: Boolean;\r\n    function ReadChar: Char;\r\n    function ReadWideChar: WideChar;\r\n    function ReadUnicodeChar: UnicodeChar;\r\n    procedure ReadCollection(Collection: TCollection);\r\n    function ReadComponent(Component: TComponent): TComponent;\r\n    procedure ReadComponents(AOwner, AParent: TComponent;\r\n      Proc: TReadComponentsProc);\r\n    function ReadFloat: Extended;\r\n    function ReadCurrency: Currency;\r\n    function ReadIdent: string;\r\n    function ReadInteger: Longint;\r\n    function ReadNativeInt: NativeInt;\r\n    function ReadSet(EnumType: Pointer): Integer;\r\n    procedure ReadListBegin;\r\n    procedure ReadListEnd;\r\n    function ReadRootComponent(ARoot: TComponent): TComponent;\r\n    function ReadVariant: JSValue;\r\n    procedure ReadSignature;\r\n    function ReadString: string;\r\n    function ReadWideString: WideString;\r\n    function ReadUnicodeString: UnicodeString;\r\n    function ReadValue: TValueType;\r\n    procedure CopyValue(Writer: TWriter);\r\n    property Driver: TAbstractObjectReader read FDriver;\r\n    property Owner: TComponent read FOwner write FOwner;\r\n    property Parent: TComponent read FParent write FParent;\r\n    property OnError: TReaderError read FOnError write FOnError;\r\n    property OnPropertyNotFound: TPropertyNotFoundEvent read FOnPropertyNotFound write FOnPropertyNotFound;\r\n    property OnFindMethod: TFindMethodEvent read FOnFindMethod write FOnFindMethod;\r\n    property OnSetMethodProperty: TSetMethodPropertyEvent read FOnSetMethodProperty write FOnSetMethodProperty;\r\n    property OnSetName: TSetNameEvent read FOnSetName write FOnSetName;\r\n    property OnReferenceName: TReferenceNameEvent read FOnReferenceName write FOnReferenceName;\r\n    property OnAncestorNotFound: TAncestorNotFoundEvent read FOnAncestorNotFound write FOnAncestorNotFound;\r\n    property OnCreateComponent: TCreateComponentEvent read FOnCreateComponent write FOnCreateComponent;\r\n    property OnFindComponentClass: TFindComponentClassEvent read FOnFindComponentClass write FOnFindComponentClass;\r\n    property OnReadStringProperty: TReadWriteStringPropertyEvent read FOnReadStringProperty write FOnReadStringProperty;\r\n  end;\r\n\r\n\r\n  { TAbstractObjectWriter }\r\n\r\n  TAbstractObjectWriter = class\r\n  public\r\n    { Begin/End markers. Those ones who don't have an end indicator, use\r\n      \"EndList\", after the occurrence named in the comment. Note that this\r\n      only counts for \"EndList\" calls on the same level; each BeginXXX call\r\n      increases the current level. }\r\n    procedure BeginCollection; virtual; abstract;  { Ends with the next \"EndList\" }\r\n    procedure BeginComponent(Component: TComponent; Flags: TFilerFlags;\r\n      ChildPos: Integer); virtual; abstract;  { Ends after the second \"EndList\" }\r\n    procedure WriteSignature; virtual; abstract;\r\n    procedure BeginList; virtual; abstract;\r\n    procedure EndList; virtual; abstract;\r\n    procedure BeginProperty(const PropName: String); virtual; abstract;\r\n    procedure EndProperty; virtual; abstract;\r\n    //Please don't use write, better use WriteBinary whenever possible\r\n    procedure Write(const Buffer : TBytes; Count: Longint); virtual;abstract;\r\n    Procedure FlushBuffer; virtual; abstract;\r\n\r\n    procedure WriteBinary(const Buffer : TBytes; Count: Longint); virtual; abstract;\r\n    procedure WriteBoolean(Value: Boolean); virtual; abstract;\r\n    // procedure WriteChar(Value: Char);\r\n    procedure WriteFloat(const Value: Extended); virtual; abstract;\r\n    procedure WriteCurrency(const Value: Currency); virtual; abstract;\r\n    procedure WriteIdent(const Ident: string); virtual; abstract;\r\n    procedure WriteInteger(Value: NativeInt); virtual; abstract;\r\n    procedure WriteNativeInt(Value: NativeInt); virtual; abstract;\r\n    procedure WriteVariant(const Value: JSValue); virtual; abstract;\r\n    procedure WriteMethodName(const Name: String); virtual; abstract;\r\n    procedure WriteSet(Value: LongInt; SetType: Pointer); virtual; abstract;\r\n    procedure WriteString(const Value: String); virtual; abstract;\r\n    procedure WriteWideString(const Value: WideString);virtual;abstract;\r\n    procedure WriteUnicodeString(const Value: UnicodeString);virtual;abstract;\r\n  end;\r\n\r\n  { TBinaryObjectWriter }\r\n\r\n  TBinaryObjectWriter = class(TAbstractObjectWriter)\r\n  protected\r\n    FStream: TStream;\r\n    FBuffer: Pointer;\r\n    FBufSize: Integer;\r\n    FBufPos: Integer;\r\n    FBufEnd: Integer;\r\n    procedure WriteWord(w : word);\r\n    procedure WriteDWord(lw : longword);\r\n    procedure WriteValue(Value: TValueType);\r\n  public\r\n    constructor Create(Stream: TStream);\r\n    procedure WriteSignature; override;\r\n    procedure BeginCollection; override;\r\n    procedure BeginComponent(Component: TComponent; Flags: TFilerFlags;\r\n      ChildPos: Integer); override;\r\n    procedure BeginList; override;\r\n    procedure EndList; override;\r\n    procedure BeginProperty(const PropName: String); override;\r\n    procedure EndProperty; override;\r\n    Procedure FlushBuffer; override;\r\n\r\n    //Please don't use write, better use WriteBinary whenever possible\r\n    procedure Write(const Buffer : TBytes; Count: Longint); override;\r\n    procedure WriteBinary(const Buffer : TBytes; Count: LongInt); override;\r\n    procedure WriteBoolean(Value: Boolean); override;\r\n    procedure WriteFloat(const Value: Extended); override;\r\n    procedure WriteCurrency(const Value: Currency); override;\r\n    procedure WriteIdent(const Ident: string); override;\r\n    procedure WriteInteger(Value: NativeInt); override;\r\n    procedure WriteNativeInt(Value: NativeInt); override;\r\n    procedure WriteMethodName(const Name: String); override;\r\n    procedure WriteSet(Value: LongInt; SetType: Pointer); override;\r\n    procedure WriteStr(const Value: String);\r\n    procedure WriteString(const Value: String); override;\r\n    procedure WriteWideString(const Value: WideString); override;\r\n    procedure WriteUnicodeString(const Value: UnicodeString); override;\r\n    procedure WriteVariant(const VarValue: JSValue);override;\r\n  end;\r\n\r\n  TFindAncestorEvent = procedure (Writer: TWriter; Component: TComponent;\r\n    const Name: string; var Ancestor, RootAncestor: TComponent) of object;\r\n  TWriteMethodPropertyEvent = procedure (Writer: TWriter; Instance: TPersistent;\r\n    PropInfo: TTypeMemberProperty;\r\n    const MethodValue, DefMethodValue: TMethod;\r\n    var Handled: boolean) of object;\r\n\r\n  { TWriter }\r\n\r\n  TWriter = class(TFiler)\r\n  private\r\n    FDriver: TAbstractObjectWriter;\r\n    FDestroyDriver: Boolean;\r\n    FRootAncestor: TComponent;\r\n    FPropPath: String;\r\n    FAncestors: TStringList;\r\n    FAncestorPos: Integer;\r\n    FCurrentPos: Integer;\r\n    FOnFindAncestor: TFindAncestorEvent;\r\n    FOnWriteMethodProperty: TWriteMethodPropertyEvent;\r\n    FOnWriteStringProperty:TReadWriteStringPropertyEvent;\r\n    procedure AddToAncestorList(Component: TComponent);\r\n    procedure WriteComponentData(Instance: TComponent);\r\n    Procedure DetermineAncestor(Component: TComponent);\r\n    procedure DoFindAncestor(Component : TComponent);\r\n  protected\r\n    procedure SetRoot(ARoot: TComponent); override;\r\n    procedure WriteBinary(AWriteData: TStreamProc);\r\n    procedure WriteProperty(Instance: TPersistent; PropInfo: TTypeMemberProperty);\r\n    procedure WriteProperties(Instance: TPersistent);\r\n    procedure WriteChildren(Component: TComponent);\r\n    function CreateDriver(Stream: TStream): TAbstractObjectWriter; virtual;\r\n  public\r\n    constructor Create(ADriver: TAbstractObjectWriter);\r\n    constructor Create(Stream: TStream);\r\n    destructor Destroy; override;\r\n    procedure DefineProperty(const Name: string;\r\n      ReadData: TReaderProc; AWriteData: TWriterProc;\r\n      HasData: Boolean); override;\r\n    procedure DefineBinaryProperty(const Name: string;\r\n      ReadData, AWriteData: TStreamProc;\r\n      HasData: Boolean); override;\r\n    Procedure FlushBuffer; override;\r\n    procedure Write(const Buffer : TBytes; Count: Longint); virtual;\r\n    procedure WriteBoolean(Value: Boolean);\r\n    procedure WriteCollection(Value: TCollection);\r\n    procedure WriteComponent(Component: TComponent);\r\n    procedure WriteChar(Value: Char);\r\n    procedure WriteWideChar(Value: WideChar);\r\n    procedure WriteDescendent(ARoot: TComponent; AAncestor: TComponent);\r\n    procedure WriteFloat(const Value: Extended);\r\n    procedure WriteCurrency(const Value: Currency);\r\n    procedure WriteIdent(const Ident: string);\r\n    procedure WriteInteger(Value: Longint); overload;\r\n    procedure WriteInteger(Value: NativeInt); overload;\r\n    procedure WriteSet(Value: LongInt; SetType: Pointer);\r\n    procedure WriteListBegin;\r\n    procedure WriteListEnd;\r\n    Procedure WriteSignature;\r\n    procedure WriteRootComponent(ARoot: TComponent);\r\n    procedure WriteString(const Value: string);\r\n    procedure WriteWideString(const Value: WideString);\r\n    procedure WriteUnicodeString(const Value: UnicodeString);\r\n    procedure WriteVariant(const VarValue: JSValue);\r\n    property RootAncestor: TComponent read FRootAncestor write FRootAncestor;\r\n    property OnFindAncestor: TFindAncestorEvent read FOnFindAncestor write FOnFindAncestor;\r\n    property OnWriteMethodProperty: TWriteMethodPropertyEvent read FOnWriteMethodProperty write FOnWriteMethodProperty;\r\n    property OnWriteStringProperty: TReadWriteStringPropertyEvent read FOnWriteStringProperty write FOnWriteStringProperty;\r\n\r\n    property Driver: TAbstractObjectWriter read FDriver;\r\n    property PropertyPath: string read FPropPath;\r\n  end;\r\n\r\n  TParserToken = (toUnknown,  // everything else\r\n                  toEOF,      // EOF\r\n                  toSymbol,   // Symbol (identifier)\r\n                  toString,   // ''string''\r\n                  toInteger,  // 123\r\n                  toFloat,    // 12.3\r\n                  toMinus,    // -\r\n                  toSetStart, // [\r\n                  toListStart, // (\r\n                  toCollectionStart, // <\r\n                  toBinaryStart, // {\r\n                  toSetEnd, // ]\r\n                  toListEnd, // )\r\n                  toCollectionEnd, // >\r\n                  toBinaryEnd, // }\r\n                  toComma, // ,\r\n                  toDot, // .\r\n                  toEqual, // =\r\n                  toColon, // :\r\n                  toPlus // +\r\n                  );\r\n\r\n  TParser = class(TObject)\r\n  private\r\n    fStream : TStream;\r\n    fBuf : Array of Char;\r\n    FBufLen : integer;\r\n    fPos : integer;\r\n    fDeltaPos : integer;\r\n    fFloatType : char;\r\n    fSourceLine : integer;\r\n    fToken : TParserToken;\r\n    fEofReached : boolean;\r\n    fLastTokenStr : string;\r\n    function GetTokenName(aTok : TParserToken) : string;\r\n    procedure LoadBuffer;\r\n    procedure CheckLoadBuffer; {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE}\r\n    procedure ProcessChar; {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE}\r\n    function IsNumber : boolean; {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE}\r\n    function IsHexNum : boolean; {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE}\r\n    function IsAlpha : boolean; {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE}\r\n    function IsAlphaNum : boolean; {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE}\r\n    function GetHexValue(c : char) : byte; {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE}\r\n    function GetAlphaNum : string;\r\n    procedure HandleNewLine;\r\n    procedure SkipBOM;\r\n    procedure SkipSpaces;\r\n    procedure SkipWhitespace;\r\n    procedure HandleEof;\r\n    procedure HandleAlphaNum;\r\n    procedure HandleNumber;\r\n    procedure HandleHexNumber;\r\n    function HandleQuotedString : string;\r\n    Function HandleDecimalCharacter: char;\r\n    procedure HandleString;\r\n    procedure HandleMinus;\r\n    procedure HandleUnknown;\r\n    procedure GotoToNextChar;\r\n  public\r\n    // Input stream is expected to be UTF16 !\r\n    constructor Create(Stream: TStream);\r\n    destructor Destroy; override;\r\n    procedure CheckToken(T: TParserToken);\r\n    procedure CheckTokenSymbol(const S: string);\r\n    procedure Error(const Ident: string);\r\n    procedure ErrorFmt(const Ident: string; const Args: array of const);\r\n    procedure ErrorStr(const Message: string);\r\n    procedure HexToBinary(Stream: TStream);\r\n    function NextToken: TParserToken;\r\n    function SourcePos: Longint;\r\n    function TokenComponentIdent: string;\r\n    function TokenFloat: Double;\r\n    function TokenInt: NativeInt;\r\n    function TokenString: string;\r\n    function TokenSymbolIs(const S: string): Boolean;\r\n    property FloatType: Char read fFloatType;\r\n    property SourceLine: Integer read fSourceLine;\r\n    property Token: TParserToken read fToken;\r\n  end;\r\n\r\n\r\n  { TObjectStreamConverter }\r\n\r\n  TObjectTextEncoding = (oteDFM,oteLFM);\r\n\r\n  TObjectStreamConverter = Class\r\n  private\r\n     FIndent: String;\r\n     FInput : TStream;\r\n     FOutput : TStream;\r\n     FEncoding : TObjectTextEncoding;\r\n  Private\r\n    FPlainStrings: Boolean;\r\n     // Low level writing\r\n     procedure Outchars(S : String); virtual;\r\n     procedure OutLn(s: String); virtual;\r\n     procedure OutStr(s: String); virtual;\r\n     procedure OutString(s: String); virtual;\r\n     // Low level reading\r\n     function ReadWord: word;\r\n     function ReadDWord: longword;\r\n     function ReadDouble: Double;\r\n     function ReadInt(ValueType: TValueType): NativeInt;\r\n     function ReadInt: NativeInt;\r\n     function ReadNativeInt: NativeInt;\r\n     function ReadStr: String;\r\n     function ReadString(StringType: TValueType): String; virtual;\r\n     // High-level\r\n     procedure ProcessBinary; virtual;\r\n     procedure ProcessValue(ValueType: TValueType; Indent: String); virtual;\r\n     procedure ReadObject(indent: String); virtual;\r\n     procedure ReadPropList(indent: String); virtual;\r\n   Public\r\n     procedure ObjectBinaryToText(aInput, aOutput: TStream);\r\n     procedure ObjectBinaryToText(aInput, aOutput: TStream; aEncoding: TObjectTextEncoding);\r\n     Procedure Execute;\r\n     // use this to get previous streaming behavour: strings written as-is\r\n     Property PlainStrings : Boolean Read FPlainStrings Write FPlainStrings;\r\n     Property Input : TStream Read FInput Write FInput;\r\n     Property Output : TStream Read Foutput Write FOutput;\r\n     Property Encoding : TObjectTextEncoding Read FEncoding Write FEncoding;\r\n     Property Indent : String Read FIndent Write Findent;\r\n   end;\r\n\r\n  { TObjectTextConverter }\r\n\r\n  TObjectTextConverter = Class\r\n  private\r\n    FParser: TParser;\r\n  private\r\n    FInput: TStream;\r\n    Foutput: TStream;\r\n    procedure WriteDouble(e: double);\r\n    procedure WriteDWord(lw: longword);\r\n    procedure WriteInteger(value: nativeInt);\r\n    //procedure WriteLString(const s: String);\r\n    procedure WriteQWord(q: nativeint);\r\n    procedure WriteString(s: String);\r\n    procedure WriteWord(w: word);\r\n    procedure WriteWString(const s: WideString);\r\n    procedure ProcessObject; virtual;\r\n    procedure ProcessProperty; virtual;\r\n    procedure ProcessValue; virtual;\r\n    procedure ProcessWideString(const left: string);\r\n    Property Parser : TParser Read FParser;\r\n  Public\r\n    // Input stream must be UTF16 !\r\n    procedure ObjectTextToBinary(aInput, aOutput: TStream);\r\n    Procedure Execute; virtual;\r\n    Property Input : TStream Read FInput Write FInput;\r\n    Property Output: TStream Read Foutput Write Foutput;\r\n  end;\r\n\r\n  TLoadHelper = Class (TObject)\r\n  Public\r\n  Type\r\n    TTextLoadedCallBack = reference to procedure (const aText : String);\r\n    TBytesLoadedCallBack = reference to procedure (const aBuffer : TJSArrayBuffer);\r\n    TErrorCallBack = reference to procedure (const aError : String);\r\n    Class Procedure LoadText(aURL : String; aSync : Boolean; OnLoaded : TTextLoadedCallBack; OnError : TErrorCallBack); virtual; abstract;\r\n    Class Procedure LoadBytes(aURL : String; aSync : Boolean; OnLoaded : TBytesLoadedCallBack; OnError : TErrorCallBack); virtual; abstract;\r\n  end;\r\n\r\n  TLoadHelperClass = Class of TLoadHelper;\r\n\r\n  { ---------------------------------------------------------------------\r\n      TDatamodule support\r\n    ---------------------------------------------------------------------}\r\n\r\n    { TDataModule }\r\n\r\n    TDataModule = class(TComponent)\r\n    private\r\n      FDPos: TPoint;\r\n      FDSize: TPoint;\r\n      FDPPI: Integer;\r\n      FOnCreate: TNotifyEvent;\r\n      FOnDestroy: TNotifyEvent;\r\n      FOldOrder : Boolean;\r\n      Procedure ReadP(Reader: TReader);\r\n      Procedure WriteP(Writer: TWriter);\r\n      Procedure ReadT(Reader: TReader);\r\n      Procedure WriteT(Writer: TWriter);\r\n      Procedure ReadL(Reader: TReader);\r\n      Procedure WriteL(Writer: TWriter);\r\n      Procedure ReadW(Reader: TReader);\r\n      Procedure WriteW(Writer: TWriter);\r\n      Procedure ReadH(Reader: TReader);\r\n      Procedure WriteH(Writer: TWriter);\r\n    protected\r\n      Procedure DoCreate; virtual;\r\n      Procedure DoDestroy; virtual;\r\n      Procedure DefineProperties(Filer: TFiler); override;\r\n      Procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;\r\n      Function HandleCreateException: Boolean; virtual;\r\n      Procedure ReadState(Reader: TReader); override;\r\n    public\r\n      constructor Create(AOwner: TComponent); override;\r\n      Constructor CreateNew(AOwner: TComponent);\r\n      Constructor CreateNew(AOwner: TComponent; CreateMode: Integer); virtual;\r\n      class constructor ClassCreate;\r\n      destructor Destroy; override;\r\n      Procedure AfterConstruction; override;\r\n      Procedure BeforeDestruction; override;\r\n      property DesignOffset: TPoint read FDPos write FDPos;\r\n      property DesignSize: TPoint read FDSize write FDSize;\r\n      property DesignPPI: Integer read FDPPI write FDPPI;\r\n    published\r\n      property OnCreate: TNotifyEvent read FOnCreate write FOnCreate;\r\n      property OnDestroy: TNotifyEvent read FOnDestroy write FOnDestroy;\r\n      property OldCreateOrder: Boolean read FOldOrder write FOldOrder;\r\n    end;\r\n    TDataModuleClass = Class of TDataModule;\r\n\r\n\r\ntype\r\n  TIdentMapEntry = record\r\n    Value: Integer;\r\n    Name: String;\r\n  end;\r\n\r\n  TIdentToInt = function(const Ident: string; var Int: Longint): Boolean;\r\n  TIntToIdent = function(Int: Longint; var Ident: string): Boolean;\r\n  TFindGlobalComponent = function(const Name: string): TComponent;\r\n  TInitComponentHandler = function(Instance: TComponent; RootAncestor : TClass): boolean;\r\n\r\n// Start TMS extension----------------------------------------------------------\r\n\r\n  TStringsHelper = class helper for TStrings\r\n  public\r\n    procedure LoadFromStream(Stream: TStream); overload;\r\n    procedure LoadFromStream(Stream: TStream; Encoding: TEncoding); overload;\r\n    procedure SaveToStream(Stream: TStream); overload;\r\n    procedure SaveToStream(Stream: TStream; Encoding: TEncoding); overload;\r\n    function IndexOfValue(const Value: string): Integer;\r\n  end;\r\n\r\n  TPlatformIds = UInt32;\r\n\r\nconst\r\n    TMSPlatformsWeb = 1;\r\n\r\ntype\r\n  ComponentPlatformsAttribute = class(TCustomAttribute)\r\n  private\r\n    FPlatforms: TPlatformIds;\r\n  public\r\n    constructor Create(const Platforms: TPlatformIds);\r\n    property Platforms: TPlatformIds read FPlatforms write FPlatforms;\r\n  end;\r\n\r\n  TShiftState = set of (ssShift, ssAlt, ssCtrl,\r\n    ssLeft, ssRight, ssMIDdle, ssDouble, ssTouch, ssPen, ssCommand);\r\n\r\n// End TMS extension------------------------------------------------------------\r\n\r\n\r\nprocedure RegisterInitComponentHandler(ComponentClass: TComponentClass;   Handler: TInitComponentHandler);\r\nProcedure RegisterClass(AClass : TPersistentClass);\r\nProcedure RegisterClasses(AClasses : specialize TArray<TPersistentClass>);\r\nFunction GetClass(AClassName : string) : TPersistentClass;\r\nprocedure RegisterFindGlobalComponentProc(AFindGlobalComponent: TFindGlobalComponent);\r\nprocedure UnregisterFindGlobalComponentProc(AFindGlobalComponent: TFindGlobalComponent);\r\nfunction FindGlobalComponent(const Name: string): TComponent;\r\nFunction FindNestedComponent(Root : TComponent; APath : String; CStyle : Boolean = True) : TComponent;\r\nfunction InitInheritedComponent(Instance: TComponent; RootAncestor: TClass): Boolean;\r\n\r\nprocedure RedirectFixupReferences(Root: TComponent; const OldRootName, NewRootName: string);\r\nprocedure RemoveFixupReferences(Root: TComponent; const RootName: string);\r\nprocedure RegisterIntegerConsts(IntegerType: Pointer; IdentToIntFn: TIdentToInt;  IntToIdentFn: TIntToIdent);\r\nfunction ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: String; Strings: TStrings; AddEmptyStrings : Boolean = False): Integer;\r\nfunction IdentToInt(const Ident: string; out Int: Longint; const Map: array of TIdentMapEntry): Boolean;\r\nfunction IntToIdent(Int: Longint; var Ident: string; const Map: array of TIdentMapEntry): Boolean;\r\nfunction FindIntToIdent(AIntegerType: Pointer): TIntToIdent;\r\nfunction FindIdentToInt(AIntegerType: Pointer): TIdentToInt;\r\nfunction FindClass(const AClassName: string): TPersistentClass;\r\nfunction CollectionsEqual(C1, C2: TCollection): Boolean;\r\nfunction CollectionsEqual(C1, C2: TCollection; Owner1, Owner2: TComponent): Boolean;\r\nprocedure GetFixupReferenceNames(Root: TComponent; Names: TStrings);\r\nprocedure GetFixupInstanceNames(Root: TComponent; const ReferenceRootName: string; Names: TStrings);\r\nprocedure ObjectBinaryToText(aInput, aOutput: TStream);\r\nprocedure ObjectBinaryToText(aInput, aOutput: TStream; aEncoding: TObjectTextEncoding);\r\nprocedure ObjectTextToBinary(aInput, aOutput: TStream);\r\nFunction SetLoadHelperClass(aClass : TLoadHelperClass) : TLoadHelperClass;\r\n// Create buffer from string. aLen in bytes, not in characters\r\nFunction StringToBuffer(aString : String; aLen : Integer) : TJSArrayBuffer;\r\nFunction StringToBuffer(aString : String; aLen : Integer; AEncoding: TEncoding) : TJSArrayBuffer;\r\n// Create buffer from string. aPos,aLen are in bytes, not in characters.\r\nFunction BufferToString(aBuffer : TJSArrayBuffer; aPos,aLen : Integer) : String;\r\nFunction BufferToString(aBuffer : TJSArrayBuffer; aPos,aLen : Integer; AEncoding: TEncoding) : String;\r\n\r\nprocedure BeginGlobalLoading;\r\nprocedure NotifyGlobalLoading;\r\nprocedure EndGlobalLoading;\r\n\r\nType\r\n  TDataModuleNotifyEvent = procedure (DataModule: TDataModule) of object;\r\n  TExceptionNotifyEvent = procedure (E: Exception) of object;\r\n\r\nvar\r\n  // IDE hooks for TDatamodule support.\r\n  AddDataModule              : TDataModuleNotifyEvent;\r\n  RemoveDataModule           : TDataModuleNotifyEvent;\r\n  ApplicationHandleException : TNotifyEvent;\r\n  ApplicationShowException   : TExceptionNotifyEvent;\r\n  FormResourceIsText : Boolean = True;\r\n\r\nConst\r\n  // Some aliases\r\n  vaSingle = vaDouble;\r\n  vaExtended = vaDouble;\r\n  vaLString = vaString;\r\n  vaUTF8String = vaString;\r\n  vaUString = vaString;\r\n  vaWString = vaString;\r\n  vaQWord = vaNativeInt;\r\n  vaInt64 = vaNativeInt;\r\n  toWString = toString;\r\n\r\nimplementation\r\n\r\nuses web, simplelinkedlist;\r\n\r\ntype\r\n  TReqLoadProc = reference to procedure(AResponse: string);\r\n  TReqErrorProc = reference to procedure;\r\n\r\nvar\r\n  GlobalLoaded,\r\n  IntConstList: TFPList;\r\n  GlobalLoadHelper : TLoadHelperClass;\r\n\r\nprocedure BeginGlobalLoading;\r\nbegin\r\n  GlobalLoaded := TFPList.Create;\r\nend;\r\n\r\nprocedure NotifyGlobalLoading;\r\nvar\r\n  I: Integer;\r\n  G: TFPList;\r\nbegin\r\n  G := GlobalLoaded;\r\n  for I := 0 to G.Count - 1 do\r\n    TComponent(G[I]).Loaded;\r\nend;\r\n\r\nprocedure EndGlobalLoading;\r\nbegin\r\n  GlobalLoaded.Free;\r\nend;\r\n\r\nFunction SetLoadHelperClass(aClass : TLoadHelperClass) : TLoadHelperClass;\r\n\r\nbegin\r\n  Result:=GlobalLoadHelper;\r\n  GlobalLoadHelper:=aClass;\r\nend;\r\n\r\nProcedure CheckLoadHelper;\r\n\r\nbegin\r\n  If (GlobalLoadHelper=Nil) then\r\n    Raise EInOutError.Create('No support for loading URLS. Include Rtl.BrowserLoadHelper in your project uses clause');\r\nend;\r\n\r\nFunction StringToBuffer(aString : String; aLen : Integer) : TJSArrayBuffer;\r\nbegin\r\n  Result := StringToBuffer(aString, aLen, TEncoding.UTF8);\r\nend;\r\n\r\nFunction StringToBuffer(aString : String; aLen : Integer; AEncoding: TEncoding) : TJSArrayBuffer;\r\n\r\nvar\r\n   I : Integer;\r\n\r\nbegin\r\n  if AEncoding = TEncoding.Unicode then\r\n  begin\r\n    Result:=TJSArrayBuffer.new(aLen*2);// 2 bytes for each char\r\n\r\n    With TJSUint16Array.new(Result) do\r\n      for i:=0 to aLen-1 do\r\n        values[i] := TJSString(aString).charCodeAt(i);\r\n  end\r\n  else\r\n  begin\r\n    Result:=TJSArrayBuffer.new(aLen);// 1 bytes for each char\r\n\r\n    With TJSUint8Array.new(Result) do\r\n      for i:=0 to aLen-1 do\r\n        values[i] := TJSString(aString).charCodeAt(i);\r\n  end;\r\nend;\r\n\r\nfunction BufferToString(aBuffer: TJSArrayBuffer; aPos, aLen: Integer): String;\r\nbegin\r\n  Result := BufferToString(aBuffer, aPos, aLen, TEncoding.UTF8);\r\nend;\r\n\r\nfunction BufferToString(aBuffer: TJSArrayBuffer; aPos, aLen: Integer; AEncoding: TEncoding): String;\r\nvar\r\n  ua16 : TJSUint16Array;\r\n  ua8: TJSUint8Array;\r\n\r\nbegin\r\n  Result:=''; // Silence warning\r\n  if AEncoding = TEncoding.Unicode then\r\n  begin\r\n    ua16:=TJSUint16Array.New(aBuffer.slice(aPos,aLen));\r\n    if ua16<>nil then\r\n      Result:=String(TJSFunction(@TJSString.fromCharCode).apply(nil,TJSValueDynArray(JSValue(ua16))));\r\n  end\r\n  else\r\n  begin\r\n    ua8:=TJSUint8Array.New(aBuffer.slice(aPos,aLen));\r\n    if ua8<>nil then\r\n      Result:=String(TJSFunction(@TJSString.fromCharCode).apply(nil,TJSValueDynArray(JSValue(ua8))));\r\n  end;\r\n\r\nend;\r\n\r\nfunction CreateComponentfromRes(const res : string; Inst : THandle; var Component : TComponent) : Boolean;\r\n\r\nvar\r\n  ResStream : TResourceStream;\r\n\r\n  Src : TStream;\r\n  aInfo : TResourceInfo;\r\n\r\nbegin\r\n  if Inst=0 then ;\r\n  result:=GetResourceInfo(Res,aInfo);\r\n  if Result then\r\n    begin\r\n    ResStream:=TResourceStream.Create(aInfo);\r\n    try\r\n      if Not FormResourceIsText then\r\n        Src:=ResStream\r\n      else\r\n        begin\r\n        Src:=TMemoryStream.Create;\r\n        ObjectTextToBinary(ResStream,Src);\r\n        Src.Position:=0;\r\n        end;\r\n      Component:=Src.ReadComponent(Component);\r\n    finally\r\n      if Src<>ResStream then\r\n        Src.Free;\r\n      ResStream.Free;\r\n    end;\r\n    end;\r\nend;\r\n\r\nfunction DefaultInitHandler(Instance: TComponent; RootAncestor: TClass): Boolean;\r\n\r\n  function doinit(_class : TClass) : boolean;\r\n    begin\r\n      result:=false;\r\n      if (_class.ClassType=TComponent) or (_class.ClassType=RootAncestor) then\r\n        exit;\r\n      result:=doinit(_class.ClassParent);\r\n      // Resources are written with their unit name\r\n      result:=CreateComponentfromRes(_class.UnitName,0,Instance) or result;\r\n    end;\r\n\r\nbegin\r\n  result:=doinit(Instance.ClassType);\r\nend;\r\n\r\n{ TResourceStream }\r\n\r\n// We need a polyfill for nodejs.\r\nFunction atob (s : String) : string; external name 'atob';\r\n\r\nprocedure TResourceStream.Initialize(aInfo: TResourceInfo);\r\n\r\nvar\r\n  Ptr : TJSArrayBuffer;\r\n  S : String;\r\n\r\nbegin\r\n  if aInfo.encoding='base64' then\r\n    S:=atob(aInfo.Data)\r\n  else if (aInfo.Encoding='text') then\r\n    s:=aInfo.Data\r\n  else\r\n    Raise ENotSupportedException.CreateFmt(SErrResourceNotBase64,[aInfo.name]);\r\n  Ptr:=StringToBuffer(S, length(S));\r\n  SetPointer(Ptr,Ptr.byteLength);\r\nend;\r\n\r\nprocedure TResourceStream.Initialize(Instance: TFPResourceHMODULE; Name, ResType: String);\r\n\r\nVar\r\n  aInfo : TResourceInfo;\r\n\r\nbegin\r\n  if not GetResourceInfo(Name, aInfo) then\r\n    raise EResNotFound.CreateFmt(SResNotFound,[Name]);\r\n  Initialize(aInfo);\r\nend;\r\n\r\nconstructor TResourceStream.Create(aInfo: TResourceInfo);\r\nbegin\r\n  inherited create;\r\n  Initialize(aInfo);\r\nend;\r\n\r\nconstructor TResourceStream.Create(Instance: TFPResourceHMODULE; const ResName, ResType: String);\r\nbegin\r\n  inherited create;\r\n  Initialize(Instance,ResName,ResType);\r\nend;\r\n\r\nconstructor TResourceStream.CreateFromID(Instance: TFPResourceHMODULE;\r\n  ResID: Integer; ResType: String);\r\nbegin\r\n  inherited create;\r\n  Initialize(Instance,IntToStr(ResID),ResType);\r\nend;\r\n\r\nfunction TResourceStream.Write(const Buffer: TBytes; Offset, Count: LongInt\r\n  ): LongInt;\r\nbegin\r\n  Raise ENotSupportedException.Create(SErrResourceStreamNoWrite);\r\n  Result:=0;\r\nend;\r\n\r\ndestructor TResourceStream.Destroy;\r\nbegin\r\n  inherited Destroy;\r\nend;\r\n\r\n{ TStringStream }\r\n\r\nfunction TStringStream.GetDataString: String;\r\nconst\r\n  Chunk = 8*1024;\r\nvar\r\n  ua16 : TJSUint16Array;\r\n  ua8: TJSUint8Array;\r\n  Len,I : Integer;\r\n\r\nbegin\r\n  Result:=''; // Silence warning\r\n  if FEncoding = TEncoding.Unicode then\r\n  begin\r\n    ua16:=TJSUint16Array.New(Memory.slice(0,Size));\r\n    if ua16<>nil then\r\n    begin\r\n      Len := (ua16.length div chunk);\r\n      for I := 0 to Len do\r\n      begin\r\n        asm\r\n          Result+=String.fromCharCode.apply(null,ua16.slice(I * Chunk, (I + 1) * Chunk));\r\n        end;\r\n      end;\r\n      // Result=String.fromCharCode.apply(null, ua16);\r\n      end;\r\n   end\r\n   else\r\n   begin\r\n    ua8:=TJSUint8Array.New(Memory.slice(0,Size));\r\n    if ua8<>nil then\r\n      asm\r\n        return ua8.reduce(function (data, byte) {\r\n            return data + String.fromCharCode(byte);\r\n            }, '');\r\n      end;\r\n   end;\r\nend;\r\n\r\nconstructor TStringStream.Create(const AString: string; AEncoding: TEncoding; AOwnsEncoding: Boolean = True); overload;\r\nvar\r\n  Len : Integer;\r\n\r\nbegin\r\n  inherited Create;\r\n  FEncoding := AEncoding;\r\n  Len:=Length(aString);\r\n  if FEncoding = TEncoding.Unicode then\r\n  begin\r\n    SetPointer(StringToBuffer(aString,Len, FEncoding),Len*2);\r\n    FCapacity:=Len*2;\r\n  end\r\n  else\r\n  begin\r\n    SetPointer(StringToBuffer(aString,Len, FEncoding),Len);\r\n    FCapacity:=Len;\r\n  end;\r\nend;\r\n\r\nconstructor TStringStream.Create;\r\nbegin\r\n  Create('', TEncoding.Unicode);\r\nend;\r\n\r\nconstructor TStringStream.Create(const aString: String);\r\nbegin\r\n  Create(aString, TEncoding.Unicode);\r\nend;\r\n\r\ndestructor TStringStream.Destroy;\r\nbegin\r\n  if FOwnsEncoding then\r\n    FEncoding.Free;\r\n  inherited Destroy;\r\nend;\r\n\r\nfunction TStringStream.ReadString(Count: Integer): string;\r\n\r\n\r\nVar\r\n  B : TBytes;\r\n  Buf : TJSArrayBuffer;\r\n  BytesLeft : Integer;\r\n\r\nbegin\r\n  // Top off\r\n  BytesLeft:=(Size-Position);\r\n  if FEncoding = TEncoding.Unicode then\r\n  begin\r\n    if BytesLeft<Count*2 then\r\n      Count:=BytesLeft;\r\n\r\n    SetLength(B,Count*2);\r\n    ReadBuffer(B,0,Count*2);\r\n    Buf:=BytesToMemory(B);\r\n    Result:=BufferToString(Buf,0,Count*2, FEncoding);\r\n  end\r\n  else\r\n  begin\r\n    if BytesLeft<Count then\r\n      Count:=BytesLeft;\r\n\r\n    SetLength(B,Count);\r\n    ReadBuffer(B,0,Count);\r\n    Buf:=BytesToMemory(B);\r\n    Result:=BufferToString(Buf,0,Count, FEncoding);\r\n  end;\r\nend;\r\n\r\nprocedure TStringStream.WriteString(const AString: string);\r\n\r\nVar\r\n  Buf : TJSArrayBuffer;\r\n  B : TBytes;\r\n\r\nbegin\r\n  Buf:=StringToBuffer(aString,Length(aString), FEncoding);\r\n  B:=MemoryToBytes(Buf);\r\n  WriteBuffer(B,Length(B));\r\nend;\r\n\r\ntype\r\n  TIntConst = class\r\n  Private\r\n    IntegerType: PTypeInfo;             // The integer type RTTI pointer\r\n    IdentToIntFn: TIdentToInt;          // Identifier to Integer conversion\r\n    IntToIdentFn: TIntToIdent;          // Integer to Identifier conversion\r\n  Public\r\n    constructor Create(AIntegerType: PTypeInfo; AIdentToInt: TIdentToInt;\r\n      AIntToIdent: TIntToIdent);\r\n  end;\r\n\r\nconstructor TIntConst.Create(AIntegerType: PTypeInfo; AIdentToInt: TIdentToInt;\r\n  AIntToIdent: TIntToIdent);\r\nbegin\r\n  IntegerType := AIntegerType;\r\n  IdentToIntFn := AIdentToInt;\r\n  IntToIdentFn := AIntToIdent;\r\nend;\r\n\r\nprocedure RegisterIntegerConsts(IntegerType: Pointer; IdentToIntFn: TIdentToInt;\r\n  IntToIdentFn: TIntToIdent);\r\nbegin\r\n  if Not Assigned(IntConstList) then\r\n    IntConstList:=TFPList.Create;\r\n  IntConstList.Add(TIntConst.Create(IntegerType, IdentToIntFn, IntToIdentFn));\r\nend;\r\n\r\nfunction ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: String; Strings: TStrings; AddEmptyStrings : Boolean = False): Integer;\r\nvar\r\n  b,c : integer;\r\n\r\n  procedure SkipWhitespace;\r\n    begin\r\n      while (Content[c] in Whitespace) do\r\n        inc (C);\r\n    end;\r\n\r\n  procedure AddString;\r\n    var\r\n      l : integer;\r\n\r\n    begin\r\n      l := c-b;\r\n      if (l > 0) or AddEmptyStrings then\r\n        begin\r\n          if assigned(Strings) then\r\n            begin\r\n            if l>0 then\r\n              Strings.Add (Copy(Content,B,L))\r\n            else\r\n              Strings.Add('');\r\n            end;\r\n          inc (result);\r\n        end;\r\n    end;\r\n\r\nvar\r\n  cc,quoted : char;\r\n  aLen : Integer;\r\nbegin\r\n  result := 0;\r\n  c := 1;\r\n  Quoted := #0;\r\n  Separators := Separators + [#13, #10] - ['''','\"'];\r\n  SkipWhitespace;\r\n  b := c;\r\n  aLen:=Length(Content);\r\n  while C<=aLen do\r\n    begin\r\n      CC:=Content[c];\r\n      if (CC = Quoted) then\r\n        begin\r\n          if (C<aLen) and (Content[C+1] = Quoted) then\r\n            inc (c)\r\n          else\r\n            Quoted := #0\r\n        end\r\n      else if (Quoted = #0) and (CC in ['''','\"']) then\r\n        Quoted := CC;\r\n      if (Quoted = #0) and (CC in Separators) then\r\n        begin\r\n          AddString;\r\n          inc (c);\r\n          SkipWhitespace;\r\n          b := c;\r\n        end\r\n      else\r\n        inc (c);\r\n    end;\r\n  if (c <> b) then\r\n    AddString;\r\nend;\r\n\r\n\r\nfunction FindIntToIdent(AIntegerType: Pointer): TIntToIdent;\r\n\r\nvar\r\n  i: Integer;\r\n\r\nbegin\r\n  Result := nil;\r\n  if Not Assigned(IntConstList) then\r\n    exit;\r\n  with IntConstList do\r\n    for i := 0 to Count - 1 do\r\n      if TIntConst(Items[i]).IntegerType = AIntegerType then\r\n        exit(TIntConst(Items[i]).IntToIdentFn);\r\nend;\r\n\r\nfunction FindIdentToInt(AIntegerType: Pointer): TIdentToInt;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  Result := nil;\r\n  if Not Assigned(IntConstList) then\r\n    exit;\r\n  with IntConstList do\r\n    for i := 0 to Count - 1 do\r\n      with TIntConst(Items[I]) do\r\n        if TIntConst(Items[I]).IntegerType = AIntegerType then\r\n          exit(IdentToIntFn);\r\nend;\r\n\r\nfunction IdentToInt(const Ident: String; out Int: LongInt;\r\n  const Map: array of TIdentMapEntry): Boolean;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  for i := Low(Map) to High(Map) do\r\n    if CompareText(Map[i].Name, Ident) = 0 then\r\n    begin\r\n      Int := Map[i].Value;\r\n      exit(True);\r\n    end;\r\n  Result := False;\r\nend;\r\n\r\nfunction IntToIdent(Int: LongInt; var Ident: String;\r\n  const Map: array of TIdentMapEntry): Boolean;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  for i := Low(Map) to High(Map) do\r\n    if Map[i].Value = Int then\r\n      begin\r\n      Ident := Map[i].Name;\r\n      exit(True);\r\n      end;\r\n  Result := False;\r\nend;\r\n\r\nfunction GlobalIdentToInt(const Ident: String; var Int: LongInt):boolean;\r\nvar\r\n  i : Integer;\r\nbegin\r\n  Result := false;\r\n  if Not Assigned(IntConstList) then\r\n    exit;\r\n  with IntConstList do\r\n    for i := 0 to Count - 1 do\r\n      if TIntConst(Items[I]).IdentToIntFn(Ident, Int) then\r\n        Exit(True);\r\nend;\r\n\r\nfunction FindClass(const AClassName: string): TPersistentClass;\r\n\r\nbegin\r\n  Result := GetClass(AClassName);\r\n  if not Assigned(Result) then\r\n    raise EClassNotFound.CreateFmt(SClassNotFound, [AClassName]);\r\nend;\r\n\r\n\r\nfunction CollectionsEqual(C1, C2: TCollection): Boolean;\r\n\r\nVar\r\n  Comp1,Comp2 : TComponent;\r\n\r\nbegin\r\n  Comp2:=Nil;\r\n  Comp1:=TComponent.Create;\r\n  try\r\n    Result:=CollectionsEqual(C1,C2,Comp1,Comp2);\r\n  finally\r\n    Comp1.Free;\r\n    Comp2.Free;\r\n  end;\r\nend;\r\n\r\nfunction CollectionsEqual(C1, C2: TCollection; Owner1, Owner2: TComponent): Boolean;\r\n\r\n  procedure stream_collection(s : tstream;c : tcollection;o : tcomponent);\r\n    var\r\n      w : twriter;\r\n    begin\r\n      w:=twriter.create(s);\r\n      try\r\n        w.root:=o;\r\n        w.flookuproot:=o;\r\n        w.writecollection(c);\r\n      finally\r\n        w.free;\r\n      end;\r\n    end;\r\n\r\n  var\r\n    s1,s2 : tbytesstream;\r\n    b1,b2 : TBytes;\r\n    I,Len : Integer;\r\n  begin\r\n    result:=false;\r\n    if (c1.classtype<>c2.classtype) or\r\n      (c1.count<>c2.count) then\r\n      exit;\r\n    if c1.count = 0 then\r\n      begin\r\n      result:= true;\r\n      exit;\r\n      end;\r\n    s2:=Nil;\r\n    s1:=tbytesstream.create;\r\n    try\r\n      s2:=tbytesstream.create;\r\n      stream_collection(s1,c1,owner1);\r\n      stream_collection(s2,c2,owner2);\r\n      result:=(s1.size=s2.size);\r\n      if Result then\r\n        begin\r\n        b1:=S1.Bytes;\r\n        b2:=S2.Bytes;\r\n        I:=0;\r\n        Len:=S1.Size; // Not length of B\r\n        While Result and (I<Len) do\r\n           begin\r\n           Result:=b1[I]=b2[i];\r\n           Inc(i);\r\n           end;\r\n        end;\r\n    finally\r\n      s2.free;\r\n      s1.free;\r\n    end;\r\n  end;\r\n\r\n\r\n\r\n\r\n{ TInterfacedPersistent }\r\n\r\nfunction TInterfacedPersistent._AddRef: Integer;\r\nbegin\r\n  Result:=-1;\r\n  if Assigned(FOwnerInterface) then\r\n    Result:=FOwnerInterface._AddRef;\r\nend;\r\n\r\nfunction TInterfacedPersistent._Release: Integer;\r\n\r\nbegin\r\n  Result:=-1;\r\n  if Assigned(FOwnerInterface) then\r\n    Result:=FOwnerInterface._Release;\r\nend;\r\n\r\nfunction TInterfacedPersistent.QueryInterface(const IID: TGUID; out Obj): HRESULT;\r\nbegin\r\n  Result:=E_NOINTERFACE;\r\n  if GetInterface(IID, Obj)  then\r\n    Result:=0;\r\nend;\r\n\r\nprocedure TInterfacedPersistent.AfterConstruction;\r\nbegin\r\n  inherited AfterConstruction;\r\n  if (GetOwner<>nil) then\r\n    GetOwner.GetInterface(IInterface, FOwnerInterface);\r\nend;\r\n\r\n{ TComponentEnumerator }\r\n\r\nconstructor TComponentEnumerator.Create(AComponent: TComponent);\r\nbegin\r\n  inherited Create;\r\n  FComponent := AComponent;\r\n  FPosition := -1;\r\nend;\r\n\r\nfunction TComponentEnumerator.GetCurrent: TComponent;\r\nbegin\r\n  Result := FComponent.Components[FPosition];\r\nend;\r\n\r\nfunction TComponentEnumerator.MoveNext: Boolean;\r\nbegin\r\n  Inc(FPosition);\r\n  Result := FPosition < FComponent.ComponentCount;\r\nend;\r\n\r\n{ TListEnumerator }\r\n\r\nconstructor TListEnumerator.Create(AList: TList);\r\nbegin\r\n  inherited Create;\r\n  FList := AList;\r\n  FPosition := -1;\r\nend;\r\n\r\nfunction TListEnumerator.GetCurrent: JSValue;\r\nbegin\r\n  Result := FList[FPosition];\r\nend;\r\n\r\nfunction TListEnumerator.MoveNext: Boolean;\r\nbegin\r\n  Inc(FPosition);\r\n  Result := FPosition < FList.Count;\r\nend;\r\n\r\n{ TFPListEnumerator }\r\n\r\nconstructor TFPListEnumerator.Create(AList: TFPList);\r\nbegin\r\n  inherited Create;\r\n  FList := AList;\r\n  FPosition := -1;\r\nend;\r\n\r\nfunction TFPListEnumerator.GetCurrent: JSValue;\r\nbegin\r\n  Result := FList[FPosition];\r\nend;\r\n\r\nfunction TFPListEnumerator.MoveNext: Boolean;\r\nbegin\r\n  Inc(FPosition);\r\n  Result := FPosition < FList.Count;\r\nend;\r\n\r\n{ TFPList }\r\n\r\nprocedure TFPList.CopyMove(aList: TFPList);\r\nvar r : integer;\r\nbegin\r\n  Clear;\r\n  for r := 0 to aList.count-1 do\r\n    Add(aList[r]);\r\nend;\r\n\r\nprocedure TFPList.MergeMove(aList: TFPList);\r\nvar r : integer;\r\nbegin\r\n  For r := 0 to aList.count-1 do\r\n    if IndexOf(aList[r]) < 0 then\r\n      Add(aList[r]);\r\nend;\r\n\r\nprocedure TFPList.DoCopy(ListA, ListB: TFPList);\r\nbegin\r\n  if Assigned(ListB) then\r\n    CopyMove(ListB)\r\n  else\r\n    CopyMove(ListA);\r\nend;\r\n\r\nprocedure TFPList.DoSrcUnique(ListA, ListB: TFPList);\r\nvar r : integer;\r\nbegin\r\n  if Assigned(ListB) then\r\n    begin\r\n    Clear;\r\n    for r := 0 to ListA.Count-1 do\r\n      if ListB.IndexOf(ListA[r]) < 0 then\r\n        Add(ListA[r]);\r\n    end\r\n  else\r\n    begin\r\n    for r := Count-1 downto 0 do\r\n      if ListA.IndexOf(Self[r]) >= 0 then\r\n        Delete(r);\r\n    end;\r\nend;\r\n\r\nprocedure TFPList.DoAnd(ListA, ListB: TFPList);\r\nvar r : integer;\r\nbegin\r\n  if Assigned(ListB) then\r\n    begin\r\n    Clear;\r\n    for r := 0 to ListA.count-1 do\r\n      if ListB.IndexOf(ListA[r]) >= 0 then\r\n        Add(ListA[r]);\r\n    end\r\n  else\r\n    begin\r\n    for r := Count-1 downto 0 do\r\n      if ListA.IndexOf(Self[r]) < 0 then\r\n        Delete(r);\r\n    end;\r\nend;\r\n\r\nprocedure TFPList.DoDestUnique(ListA, ListB: TFPList);\r\n\r\n  procedure MoveElements(Src, Dest: TFPList);\r\n  var r : integer;\r\n  begin\r\n    Clear;\r\n    for r := 0 to Src.count-1 do\r\n      if Dest.IndexOf(Src[r]) < 0 then\r\n        self.Add(Src[r]);\r\n  end;\r\n\r\nvar Dest : TFPList;\r\nbegin\r\n  if Assigned(ListB) then\r\n    MoveElements(ListB, ListA)\r\n  else\r\n    Dest := TFPList.Create;\r\n    try\r\n      Dest.CopyMove(Self);\r\n      MoveElements(ListA, Dest)\r\n    finally\r\n      Dest.Destroy;\r\n    end;\r\nend;\r\n\r\nprocedure TFPList.DoOr(ListA, ListB: TFPList);\r\nbegin\r\n  if Assigned(ListB) then\r\n    begin\r\n    CopyMove(ListA);\r\n    MergeMove(ListB);\r\n    end\r\n  else\r\n    MergeMove(ListA);\r\nend;\r\n\r\nprocedure TFPList.DoXOr(ListA, ListB: TFPList);\r\nvar\r\n  r : integer;\r\n  l : TFPList;\r\nbegin\r\n  if Assigned(ListB) then\r\n    begin\r\n    Clear;\r\n    for r := 0 to ListA.Count-1 do\r\n      if ListB.IndexOf(ListA[r]) < 0 then\r\n        Add(ListA[r]);\r\n    for r := 0 to ListB.Count-1 do\r\n      if ListA.IndexOf(ListB[r]) < 0 then\r\n        Add(ListB[r]);\r\n    end\r\n  else\r\n    begin\r\n    l := TFPList.Create;\r\n    try\r\n      l.CopyMove(Self);\r\n      for r := Count-1 downto 0 do\r\n        if listA.IndexOf(Self[r]) >= 0 then\r\n          Delete(r);\r\n      for r := 0 to ListA.Count-1 do\r\n        if l.IndexOf(ListA[r]) < 0 then\r\n          Add(ListA[r]);\r\n    finally\r\n      l.Destroy;\r\n    end;\r\n    end;\r\nend;\r\n\r\nfunction TFPList.Get(Index: Integer): JSValue;\r\nbegin\r\n  If (Index < 0) or (Index >= FCount) then\r\n    RaiseIndexError(Index);\r\n  Result:=FList[Index];\r\nend;\r\n\r\nprocedure TFPList.Put(Index: Integer; Item: JSValue);\r\nbegin\r\n  if (Index < 0) or (Index >= FCount) then\r\n    RaiseIndexError(Index);\r\n  FList[Index] := Item;\r\nend;\r\n\r\nprocedure TFPList.SetCapacity(NewCapacity: Integer);\r\nbegin\r\n  If (NewCapacity < FCount) then\r\n     Error (SListCapacityError, str(NewCapacity));\r\n  if NewCapacity = FCapacity then\r\n    exit;\r\n  SetLength(FList,NewCapacity);\r\n  FCapacity := NewCapacity;\r\nend;\r\n\r\nprocedure TFPList.SetCount(NewCount: Integer);\r\nbegin\r\n  if (NewCount < 0) then\r\n    Error(SListCountError, str(NewCount));\r\n  If NewCount > FCount then\r\n    begin\r\n    If NewCount > FCapacity then\r\n      SetCapacity(NewCount);\r\n    end;\r\n  FCount := NewCount;\r\nend;\r\n\r\nprocedure TFPList.RaiseIndexError(Index: Integer);\r\nbegin\r\n  Error(SListIndexError, str(Index));\r\nend;\r\n\r\ndestructor TFPList.Destroy;\r\nbegin\r\n  Clear;\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TFPList.AddList(AList: TFPList);\r\n\r\nVar\r\n  I : Integer;\r\n\r\nbegin\r\n  If (Capacity<Count+AList.Count) then\r\n    Capacity:=Count+AList.Count;\r\n  For I:=0 to AList.Count-1 do\r\n    Add(AList[i]);\r\nend;\r\n\r\nfunction TFPList.Add(Item: JSValue): Integer;\r\nbegin\r\n  if FCount = FCapacity then\r\n    Expand;\r\n  FList[FCount] := Item;\r\n  Result := FCount;\r\n  Inc(FCount);\r\nend;\r\n\r\nprocedure TFPList.Clear;\r\nbegin\r\n  if Assigned(FList) then\r\n  begin\r\n    SetCount(0);\r\n    SetCapacity(0);\r\n  end;\r\nend;\r\n\r\nprocedure TFPList.Delete(Index: Integer);\r\nbegin\r\n  If (Index<0) or (Index>=FCount) then\r\n    Error (SListIndexError, str(Index));\r\n  FCount := FCount-1;\r\n  System.Delete(FList,Index,1);\r\n  Dec(FCapacity);\r\nend;\r\n\r\nclass procedure TFPList.Error(const Msg: string; const Data: String);\r\nbegin\r\n  Raise EListError.CreateFmt(Msg,[Data]);\r\nend;\r\n\r\nprocedure TFPList.Exchange(Index1, Index2: Integer);\r\nvar\r\n  Temp : JSValue;\r\nbegin\r\n  If (Index1 >= FCount) or (Index1 < 0) then\r\n    Error(SListIndexError, str(Index1));\r\n  If (Index2 >= FCount) or (Index2 < 0) then\r\n    Error(SListIndexError, str(Index2));\r\n  Temp := FList[Index1];\r\n  FList[Index1] := FList[Index2];\r\n  FList[Index2] := Temp;\r\nend;\r\n\r\nfunction TFPList.Expand: TFPList;\r\nvar\r\n  IncSize : Integer;\r\nbegin\r\n  if FCount < FCapacity then exit(self);\r\n  IncSize := 4;\r\n  if FCapacity > 3 then IncSize := IncSize + 4;\r\n  if FCapacity > 8 then IncSize := IncSize+8;\r\n  if FCapacity > 127 then Inc(IncSize, FCapacity shr 2);\r\n  SetCapacity(FCapacity + IncSize);\r\n  Result := Self;\r\nend;\r\n\r\nfunction TFPList.Extract(Item: JSValue): JSValue;\r\nvar\r\n  i : Integer;\r\nbegin\r\n  i := IndexOf(Item);\r\n  if i >= 0 then\r\n  begin\r\n    Result := Item;\r\n    Delete(i);\r\n  end\r\n  else\r\n    Result := nil;\r\nend;\r\n\r\nfunction TFPList.First: JSValue;\r\nbegin\r\n  If FCount = 0 then\r\n    Result := Nil\r\n  else\r\n    Result := Items[0];\r\nend;\r\n\r\nfunction TFPList.GetEnumerator: TFPListEnumerator;\r\nbegin\r\n  Result:=TFPListEnumerator.Create(Self);\r\nend;\r\n\r\nfunction TFPList.IndexOf(Item: JSValue): Integer;\r\n\r\nVar\r\n  C : Integer;\r\n\r\nbegin\r\n  Result:=0;\r\n  C:=Count;\r\n  while (Result<C) and (FList[Result]<>Item) do\r\n    Inc(Result);\r\n  If Result>=C then\r\n    Result:=-1;\r\n\r\nend;\r\n\r\nfunction TFPList.IndexOfItem(Item: JSValue; Direction: TDirection): Integer;\r\n\r\nbegin\r\n  if Direction=fromBeginning then\r\n    Result:=IndexOf(Item)\r\n  else\r\n    begin\r\n    Result:=Count-1;\r\n    while (Result >=0) and (Flist[Result]<>Item) do\r\n      Result:=Result - 1;\r\n    end;\r\nend;\r\n\r\n\r\nprocedure TFPList.Insert(Index: Integer; Item: JSValue);\r\nbegin\r\n  if (Index < 0) or (Index > FCount )then\r\n    Error(SlistIndexError, str(Index));\r\n  TJSArray(FList).splice(Index, 0, Item);\r\n  inc(FCapacity);\r\n  inc(FCount);\r\nend;\r\n\r\nfunction TFPList.Last: JSValue;\r\nbegin\r\n  If FCount = 0 then\r\n    Result := nil\r\n  else\r\n    Result := Items[FCount - 1];\r\nend;\r\n\r\nprocedure TFPList.Move(CurIndex, NewIndex: Integer);\r\nvar\r\n  Temp: JSValue;\r\nbegin\r\n  if (CurIndex < 0) or (CurIndex > Count - 1) then\r\n    Error(SListIndexError, str(CurIndex));\r\n  if (NewIndex < 0) or (NewIndex > Count -1) then\r\n    Error(SlistIndexError, str(NewIndex));\r\n  if CurIndex=NewIndex then exit;\r\n  Temp:=FList[CurIndex];\r\n  // ToDo: use TJSArray.copyWithin if available\r\n  TJSArray(FList).splice(CurIndex,1);\r\n  TJSArray(FList).splice(NewIndex,0,Temp);\r\nend;\r\n\r\nprocedure TFPList.Assign(ListA: TFPList; AOperator: TListAssignOp;\r\n  ListB: TFPList);\r\nbegin\r\n  case AOperator of\r\n    laCopy      : DoCopy (ListA, ListB);      // replace dest with src\r\n    laSrcUnique : DoSrcUnique (ListA, ListB); // replace dest with src that are not in dest\r\n    laAnd       : DoAnd (ListA, ListB);       // remove from dest that are not in src\r\n    laDestUnique: DoDestUnique (ListA, ListB);// remove from dest that are in src\r\n    laOr        : DoOr (ListA, ListB);        // add to dest from src and not in dest\r\n    laXOr       : DoXOr (ListA, ListB);       // add to dest from src and not in dest, remove from dest that are in src\r\n  end;\r\nend;\r\n\r\nfunction TFPList.Remove(Item: JSValue): Integer;\r\nbegin\r\n  Result := IndexOf(Item);\r\n  If Result <> -1 then\r\n    Delete(Result);\r\nend;\r\n\r\nprocedure TFPList.Pack;\r\nvar\r\n  Dst, i: Integer;\r\n  V: JSValue;\r\nbegin\r\n  Dst:=0;\r\n  for i:=0 to Count-1 do\r\n    begin\r\n    V:=FList[i];\r\n    if not Assigned(V) then continue;\r\n    FList[Dst]:=V;\r\n    inc(Dst);\r\n    end;\r\nend;\r\n\r\n// Needed by Sort method.\r\n\r\nProcedure QuickSort(aList: TJSValueDynArray; L, R : Longint;\r\n                    const Compare: TListSortCompareFunc\r\n                    );\r\nvar\r\n  I, J, PivotIdx : SizeUInt;\r\n  P, Q : JSValue;\r\nbegin\r\n repeat\r\n   I := L;\r\n   J := R;\r\n   PivotIdx := L + ((R - L) shr 1); { same as ((L + R) div 2), but without the possibility of overflow }\r\n   P := aList[PivotIdx];\r\n   repeat\r\n     while (I < PivotIdx) and (Compare(P, aList[i]) > 0) do\r\n       Inc(I);\r\n     while (J > PivotIdx) and (Compare(P, aList[J]) < 0) do\r\n       Dec(J);\r\n     if I < J then\r\n     begin\r\n       Q := aList[I];\r\n       aList[I] := aList[J];\r\n       aList[J] := Q;\r\n       if PivotIdx = I then\r\n       begin\r\n         PivotIdx := J;\r\n         Inc(I);\r\n       end\r\n       else if PivotIdx = J then\r\n       begin\r\n         PivotIdx := I;\r\n         Dec(J);\r\n       end\r\n       else\r\n       begin\r\n         Inc(I);\r\n         Dec(J);\r\n       end;\r\n     end;\r\n   until I >= J;\r\n   // sort the smaller range recursively\r\n   // sort the bigger range via the loop\r\n   // Reasons: memory usage is O(log(n)) instead of O(n) and loop is faster than recursion\r\n   if (PivotIdx - L) < (R - PivotIdx) then\r\n   begin\r\n     if (L + 1) < PivotIdx then\r\n       QuickSort(aList, L, PivotIdx - 1, Compare);\r\n     L := PivotIdx + 1;\r\n   end\r\n   else\r\n   begin\r\n     if (PivotIdx + 1) < R then\r\n       QuickSort(aList, PivotIdx + 1, R, Compare);\r\n     if (L + 1) < PivotIdx then\r\n       R := PivotIdx - 1\r\n     else\r\n       exit;\r\n   end;\r\n until L >= R;\r\nend;\r\n\r\n(*\r\nProcedure QuickSort(aList: TJSValueDynArray; L, R : Longint;\r\n                    const Compare: TListSortCompareFunc);\r\nvar\r\n  I, J : Longint;\r\n  P, Q : JSValue;\r\nbegin\r\n  repeat\r\n    I := L;\r\n    J := R;\r\n    P := aList[ (L + R) div 2 ];\r\n    repeat\r\n      while Compare(P, aList[i]) > 0 do\r\n        I := I + 1;\r\n      while Compare(P, aList[J]) < 0 do\r\n        J := J - 1;\r\n      If I <= J then\r\n      begin\r\n        Q := aList[I];\r\n        aList[I] := aList[J];\r\n        aList[J] := Q;\r\n        I := I + 1;\r\n        J := J - 1;\r\n      end;\r\n    until I > J;\r\n    // sort the smaller range recursively\r\n    // sort the bigger range via the loop\r\n    // Reasons: memory usage is O(log(n)) instead of O(n) and loop is faster than recursion\r\n    if J - L < R - I then\r\n    begin\r\n      if L < J then\r\n        QuickSort(aList, L, J, Compare);\r\n      L := I;\r\n    end\r\n    else\r\n    begin\r\n      if I < R then\r\n        QuickSort(aList, I, R, Compare);\r\n      R := J;\r\n    end;\r\n  until L >= R;\r\nend;\r\n*)\r\n\r\nprocedure TFPList.Sort(const Compare: TListSortCompare);\r\nbegin\r\n  if Not Assigned(FList) or (FCount < 2) then exit;\r\n  QuickSort(Flist, 0, FCount-1,\r\n    function(Item1, Item2: JSValue): Integer\r\n    begin\r\n      Result := Compare(Item1, Item2);\r\n    end);\r\nend;\r\n\r\nprocedure TFPList.SortList(const Compare: TListSortCompareFunc);\r\nbegin\r\n  if Not Assigned(FList) or (FCount < 2) then exit;\r\n  QuickSort(Flist, 0, FCount-1, Compare);\r\nend;\r\n\r\nprocedure TFPList.ForEachCall(const proc2call: TListCallback; const arg: JSValue\r\n  );\r\nvar\r\n  i : integer;\r\n  v : JSValue;\r\nbegin\r\n  For I:=0 To Count-1 Do\r\n    begin\r\n      v:=FList[i];\r\n      if Assigned(v) then\r\n        proc2call(v,arg);\r\n    end;\r\nend;\r\n\r\nprocedure TFPList.ForEachCall(const proc2call: TListStaticCallback;\r\n  const arg: JSValue);\r\nvar\r\n  i : integer;\r\n  v : JSValue;\r\nbegin\r\n  For I:=0 To Count-1 Do\r\n    begin\r\n      v:=FList[i];\r\n      if Assigned(v) then\r\n        proc2call(v,arg);\r\n    end;\r\nend;\r\n\r\n{ TList }\r\n\r\nprocedure TList.CopyMove(aList: TList);\r\nvar\r\n  r : integer;\r\nbegin\r\n  Clear;\r\n  for r := 0 to aList.count-1 do\r\n    Add(aList[r]);\r\nend;\r\n\r\nprocedure TList.MergeMove(aList: TList);\r\nvar r : integer;\r\nbegin\r\n  For r := 0 to aList.count-1 do\r\n    if IndexOf(aList[r]) < 0 then\r\n      Add(aList[r]);\r\nend;\r\n\r\nprocedure TList.DoCopy(ListA, ListB: TList);\r\nbegin\r\n  if Assigned(ListB) then\r\n    CopyMove(ListB)\r\n  else\r\n    CopyMove(ListA);\r\nend;\r\n\r\nprocedure TList.DoSrcUnique(ListA, ListB: TList);\r\nvar r : integer;\r\nbegin\r\n  if Assigned(ListB) then\r\n    begin\r\n    Clear;\r\n    for r := 0 to ListA.Count-1 do\r\n      if ListB.IndexOf(ListA[r]) < 0 then\r\n        Add(ListA[r]);\r\n    end\r\n  else\r\n    begin\r\n    for r := Count-1 downto 0 do\r\n      if ListA.IndexOf(Self[r]) >= 0 then\r\n        Delete(r);\r\n    end;\r\nend;\r\n\r\nprocedure TList.DoAnd(ListA, ListB: TList);\r\nvar r : integer;\r\nbegin\r\n  if Assigned(ListB) then\r\n    begin\r\n    Clear;\r\n    for r := 0 to ListA.Count-1 do\r\n      if ListB.IndexOf(ListA[r]) >= 0 then\r\n        Add(ListA[r]);\r\n    end\r\n  else\r\n    begin\r\n    for r := Count-1 downto 0 do\r\n      if ListA.IndexOf(Self[r]) < 0 then\r\n        Delete(r);\r\n    end;\r\nend;\r\n\r\nprocedure TList.DoDestUnique(ListA, ListB: TList);\r\n\r\n  procedure MoveElements(Src, Dest : TList);\r\n  var r : integer;\r\n  begin\r\n    Clear;\r\n    for r := 0 to Src.Count-1 do\r\n      if Dest.IndexOf(Src[r]) < 0 then\r\n        Add(Src[r]);\r\n  end;\r\n\r\nvar Dest : TList;\r\nbegin\r\n  if Assigned(ListB) then\r\n    MoveElements(ListB, ListA)\r\n  else\r\n    try\r\n      Dest := TList.Create;\r\n      Dest.CopyMove(Self);\r\n      MoveElements(ListA, Dest)\r\n    finally\r\n      Dest.Destroy;\r\n    end;\r\nend;\r\n\r\nprocedure TList.DoOr(ListA, ListB: TList);\r\nbegin\r\n  if Assigned(ListB) then\r\n    begin\r\n    CopyMove(ListA);\r\n    MergeMove(ListB);\r\n    end\r\n  else\r\n    MergeMove(ListA);\r\nend;\r\n\r\nprocedure TList.DoXOr(ListA, ListB: TList);\r\nvar\r\n  r : integer;\r\n  l : TList;\r\nbegin\r\n  if Assigned(ListB) then\r\n    begin\r\n    Clear;\r\n    for r := 0 to ListA.Count-1 do\r\n      if ListB.IndexOf(ListA[r]) < 0 then\r\n        Add(ListA[r]);\r\n    for r := 0 to ListB.Count-1 do\r\n      if ListA.IndexOf(ListB[r]) < 0 then\r\n        Add(ListB[r]);\r\n    end\r\n  else\r\n    try\r\n      l := TList.Create;\r\n      l.CopyMove (Self);\r\n      for r := Count-1 downto 0 do\r\n        if listA.IndexOf(Self[r]) >= 0 then\r\n          Delete(r);\r\n      for r := 0 to ListA.Count-1 do\r\n        if l.IndexOf(ListA[r]) < 0 then\r\n          Add(ListA[r]);\r\n    finally\r\n      l.Destroy;\r\n    end;\r\nend;\r\n\r\nfunction TList.Get(Index: Integer): JSValue;\r\nbegin\r\n  Result := FList.Get(Index);\r\nend;\r\n\r\nprocedure TList.Put(Index: Integer; Item: JSValue);\r\nvar V : JSValue;\r\nbegin\r\n  V := Get(Index);\r\n  FList.Put(Index, Item);\r\n  if Assigned(V) then\r\n    Notify(V, lnDeleted);\r\n  if Assigned(Item) then\r\n    Notify(Item, lnAdded);\r\nend;\r\n\r\nprocedure TList.Notify(aValue: JSValue; Action: TListNotification);\r\nbegin\r\n  if Assigned(aValue) then ;\r\n  if Action=lnExtracted then ;\r\nend;\r\n\r\nprocedure TList.SetCapacity(NewCapacity: Integer);\r\nbegin\r\n  FList.SetCapacity(NewCapacity);\r\nend;\r\n\r\nfunction TList.GetCapacity: integer;\r\nbegin\r\n  Result := FList.Capacity;\r\nend;\r\n\r\nprocedure TList.SetCount(NewCount: Integer);\r\nbegin\r\n  if NewCount < FList.Count then\r\n    while FList.Count > NewCount do\r\n      Delete(FList.Count - 1)\r\n  else\r\n    FList.SetCount(NewCount);\r\nend;\r\n\r\nfunction TList.GetCount: integer;\r\nbegin\r\n  Result := FList.Count;\r\nend;\r\n\r\nfunction TList.GetList: TJSValueDynArray;\r\nbegin\r\n  Result := FList.List;\r\nend;\r\n\r\nconstructor TList.Create;\r\nbegin\r\n  inherited Create;\r\n  FList := TFPList.Create;\r\nend;\r\n\r\ndestructor TList.Destroy;\r\nbegin\r\n  if Assigned(FList) then\r\n    Clear;\r\n  FreeAndNil(FList);\r\nend;\r\n\r\nprocedure TList.AddList(AList: TList);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  { this only does FList.AddList(AList.FList), avoiding notifications }\r\n  FList.AddList(AList.FList);\r\n\r\n  { make lnAdded notifications }\r\n  for I := 0 to AList.Count - 1 do\r\n    if Assigned(AList[I]) then\r\n      Notify(AList[I], lnAdded);\r\nend;\r\n\r\nfunction TList.Add(Item: JSValue): Integer;\r\nbegin\r\n  Result := FList.Add(Item);\r\n  if Assigned(Item) then\r\n    Notify(Item, lnAdded);\r\nend;\r\n\r\nprocedure TList.Clear;\r\nbegin\r\n  While (FList.Count>0) do\r\n    Delete(Count-1);\r\nend;\r\n\r\nprocedure TList.Delete(Index: Integer);\r\n\r\nvar V : JSValue;\r\n\r\nbegin\r\n  V:=FList.Get(Index);\r\n  FList.Delete(Index);\r\n  if assigned(V) then\r\n    Notify(V, lnDeleted);\r\nend;\r\n\r\nclass procedure TList.Error(const Msg: string; Data: String);\r\nbegin\r\n  Raise EListError.CreateFmt(Msg,[Data]);\r\nend;\r\n\r\nprocedure TList.Exchange(Index1, Index2: Integer);\r\nbegin\r\n  FList.Exchange(Index1, Index2);\r\nend;\r\n\r\nfunction TList.Expand: TList;\r\nbegin\r\n  FList.Expand;\r\n  Result:=Self;\r\nend;\r\n\r\nfunction TList.Extract(Item: JSValue): JSValue;\r\nvar c : integer;\r\nbegin\r\n  c := FList.Count;\r\n  Result := FList.Extract(Item);\r\n  if c <> FList.Count then\r\n    Notify (Result, lnExtracted);\r\nend;\r\n\r\nfunction TList.First: JSValue;\r\nbegin\r\n  Result := FList.First;\r\nend;\r\n\r\nfunction TList.GetEnumerator: TListEnumerator;\r\nbegin\r\n  Result:=TListEnumerator.Create(Self);\r\nend;\r\n\r\nfunction TList.IndexOf(Item: JSValue): Integer;\r\nbegin\r\n  Result := FList.IndexOf(Item);\r\nend;\r\n\r\nprocedure TList.Insert(Index: Integer; Item: JSValue);\r\nbegin\r\n  FList.Insert(Index, Item);\r\n  if Assigned(Item) then\r\n    Notify(Item,lnAdded);\r\nend;\r\n\r\nfunction TList.Last: JSValue;\r\nbegin\r\n  Result := FList.Last;\r\nend;\r\n\r\nprocedure TList.Move(CurIndex, NewIndex: Integer);\r\nbegin\r\n  FList.Move(CurIndex, NewIndex);\r\nend;\r\n\r\nprocedure TList.Assign(ListA: TList; AOperator: TListAssignOp; ListB: TList);\r\nbegin\r\n  case AOperator of\r\n    laCopy      : DoCopy (ListA, ListB);      // replace dest with src\r\n    laSrcUnique : DoSrcUnique (ListA, ListB); // replace dest with src that are not in dest\r\n    laAnd       : DoAnd (ListA, ListB);       // remove from dest that are not in src\r\n    laDestUnique: DoDestUnique (ListA, ListB);// remove from dest that are in src\r\n    laOr        : DoOr (ListA, ListB);        // add to dest from src and not in dest\r\n    laXOr       : DoXOr (ListA, ListB);       // add to dest from src and not in dest, remove from dest that are in src\r\n  end;\r\nend;\r\n\r\nfunction TList.Remove(Item: JSValue): Integer;\r\nbegin\r\n  Result := IndexOf(Item);\r\n  if Result <> -1 then\r\n    Self.Delete(Result);\r\nend;\r\n\r\nprocedure TList.Pack;\r\nbegin\r\n  FList.Pack;\r\nend;\r\n\r\nprocedure TList.Sort(const Compare: TListSortCompare);\r\nbegin\r\n  FList.Sort(Compare);\r\nend;\r\n\r\nprocedure TList.SortList(const Compare: TListSortCompareFunc);\r\nbegin\r\n  FList.SortList(Compare);\r\nend;\r\n\r\n{ TPersistent }\r\n\r\nprocedure TPersistent.AssignError(Source: TPersistent);\r\nvar\r\n  SourceName: String;\r\nbegin\r\n  if Source<>Nil then\r\n    SourceName:=Source.ClassName\r\n  else\r\n    SourceName:='Nil';\r\n  raise EConvertError.Create('Cannot assign a '+SourceName+' to a '+ClassName+'.');\r\nend;\r\n\r\nprocedure TPersistent.DefineProperties(Filer: TFiler);\r\nbegin\r\n  if Filer=Nil then exit;\r\n  // Do nothing\r\nend;\r\n\r\nprocedure TPersistent.AssignTo(Dest: TPersistent);\r\nbegin\r\n  Dest.AssignError(Self);\r\nend;\r\n\r\nfunction TPersistent.GetOwner: TPersistent;\r\nbegin\r\n  Result:=nil;\r\nend;\r\n\r\nprocedure TPersistent.Assign(Source: TPersistent);\r\nbegin\r\n  If Source<>Nil then\r\n    Source.AssignTo(Self)\r\n  else\r\n    AssignError(Nil);\r\nend;\r\n\r\nfunction TPersistent.GetNamePath: string;\r\nvar\r\n  OwnerName: String;\r\n  TheOwner: TPersistent;\r\nbegin\r\n  Result:=ClassName;\r\n  TheOwner:=GetOwner;\r\n  if TheOwner<>Nil then\r\n  begin\r\n    OwnerName:=TheOwner.GetNamePath;\r\n    if OwnerName<>'' then Result:=OwnerName+'.'+Result;\r\n  end;\r\nend;\r\n\r\nprocedure TPersistent.SetEvent(const ALookupRoot: TPersistent; const APropName, AMethodName: string);\r\nbegin\r\n  SetEvent(Self, ALookupRoot, APropName, AMethodName);\r\nend;\r\n\r\nprocedure TPersistent.SetEvent(const AInstance, ALookupRoot: TPersistent; const APropName, AMethodName: string);\r\nvar\r\n  lMethod: TMethod;\r\nbegin\r\n  lMethod.Code := ALookupRoot.MethodAddress(AMethodName);\r\n  if Assigned(lMethod.Code) then\r\n  begin\r\n    lMethod.Data := ALookupRoot;\r\n    SetMethodProp(AInstance, APropName, lMethod);\r\n  end;\r\nend;\r\n\r\n{\r\n    This file is part of the Free Component Library (FCL)\r\n    Copyright (c) 1999-2000 by the Free Pascal development team\r\n\r\n    See the file COPYING.FPC, included in this distribution,\r\n    for details about the copyright.\r\n\r\n    This program is distributed in the hope that it will be useful,\r\n    but WITHOUT ANY WARRANTY; without even the implied warranty of\r\n    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\r\n\r\n **********************************************************************}\r\n\r\n{****************************************************************************}\r\n{*                        TStringsEnumerator                                *}\r\n{****************************************************************************}\r\n\r\nconstructor TStringsEnumerator.Create(AStrings: TStrings);\r\nbegin\r\n  inherited Create;\r\n  FStrings := AStrings;\r\n  FPosition := -1;\r\nend;\r\n\r\nfunction TStringsEnumerator.GetCurrent: String;\r\nbegin\r\n  Result := FStrings[FPosition];\r\nend;\r\n\r\nfunction TStringsEnumerator.MoveNext: Boolean;\r\nbegin\r\n  Inc(FPosition);\r\n  Result := FPosition < FStrings.Count;\r\nend;\r\n\r\n{****************************************************************************}\r\n{*                             TStrings                                     *}\r\n{****************************************************************************}\r\n\r\n// Function to quote text. Should move maybe to sysutils !!\r\n// Also, it is not clear at this point what exactly should be done.\r\n\r\n{ //!! is used to mark unsupported things. }\r\n\r\n{\r\n  For compatibility we can't add a Constructor to TSTrings to initialize\r\n  the special characters. Therefore we add a routine which is called whenever\r\n  the special chars are needed.\r\n}\r\n\r\nprocedure TStrings.CheckSpecialChars;\r\n\r\nbegin\r\n  If Not FSpecialCharsInited then\r\n    begin\r\n    FQuoteChar:='\"';\r\n    FDelimiter:=',';\r\n    FNameValueSeparator:='=';\r\n    FLBS:=DefaultTextLineBreakStyle;\r\n    FSpecialCharsInited:=true;\r\n    FLineBreak:=sLineBreak;\r\n    end;\r\nend;\r\n\r\nfunction TStrings.GetSkipLastLineBreak: Boolean;\r\n\r\nbegin\r\n  CheckSpecialChars;\r\n  Result:=FSkipLastLineBreak;\r\nend;\r\n\r\nprocedure TStrings.SetSkipLastLineBreak(const AValue : Boolean);\r\n\r\nbegin\r\n  CheckSpecialChars;\r\n  FSkipLastLineBreak:=AValue;\r\nend;\r\n\r\nprocedure TStrings.ReadData(Reader: TReader);\r\nbegin\r\n  Reader.ReadListBegin;\r\n  BeginUpdate;\r\n  try\r\n    Clear;\r\n    while not Reader.EndOfList do\r\n      Add(Reader.ReadString);\r\n  finally\r\n    EndUpdate;\r\n  end;\r\n  Reader.ReadListEnd;\r\nend;\r\n\r\nprocedure TStrings.WriteData(Writer: TWriter);\r\nvar\r\n  i: Integer;\r\nbegin\r\n  Writer.WriteListBegin;\r\n  for i := 0 to Count - 1 do\r\n    Writer.WriteString(Strings[i]);\r\n  Writer.WriteListEnd;\r\nend;\r\n\r\nprocedure TStrings.DefineProperties(Filer: TFiler);\r\nvar\r\n  HasData: Boolean;\r\nbegin\r\n  if Assigned(Filer.Ancestor) then\r\n    // Only serialize if string list is different from ancestor\r\n    if Filer.Ancestor.InheritsFrom(TStrings) then\r\n      HasData := not Equals(TStrings(Filer.Ancestor))\r\n    else\r\n      HasData := True\r\n  else\r\n    HasData := Count > 0;\r\n  Filer.DefineProperty('Strings', @ReadData, @WriteData, HasData);\r\nend;\r\n\r\nfunction TStrings.GetLBS: TTextLineBreakStyle;\r\nbegin\r\n  CheckSpecialChars;\r\n  Result:=FLBS;\r\nend;\r\n\r\nprocedure TStrings.SetLBS(AValue: TTextLineBreakStyle);\r\nbegin\r\n  CheckSpecialChars;\r\n  FLBS:=AValue;\r\nend;\r\n\r\nprocedure TStrings.SetDelimiter(c:Char);\r\nbegin\r\n  CheckSpecialChars;\r\n  FDelimiter:=c;\r\nend;\r\n\r\nfunction TStrings.GetDelimiter: Char;\r\nbegin\r\n  CheckSpecialChars;\r\n  Result:=FDelimiter;\r\nend;\r\n\r\nprocedure TStrings.SetLineBreak(const S: String);\r\nbegin\r\n  CheckSpecialChars;\r\n  FLineBreak:=S;\r\nend;\r\n\r\nfunction TStrings.GetLineBreak: String;\r\nbegin\r\n  CheckSpecialChars;\r\n  Result:=FLineBreak;\r\nend;\r\n\r\n\r\nprocedure TStrings.SetQuoteChar(c:Char);\r\nbegin\r\n  CheckSpecialChars;\r\n  FQuoteChar:=c;\r\nend;\r\n\r\nfunction TStrings.GetQuoteChar: Char;\r\nbegin\r\n  CheckSpecialChars;\r\n  Result:=FQuoteChar;\r\nend;\r\n\r\nprocedure TStrings.SetNameValueSeparator(c:Char);\r\nbegin\r\n  CheckSpecialChars;\r\n  FNameValueSeparator:=c;\r\nend;\r\n\r\nfunction TStrings.GetNameValueSeparator: Char;\r\nbegin\r\n  CheckSpecialChars;\r\n  Result:=FNameValueSeparator;\r\nend;\r\n\r\n\r\nfunction TStrings.GetCommaText: string;\r\n\r\nVar\r\n  C1,C2 : Char;\r\n  FSD : Boolean;\r\n\r\nbegin\r\n  CheckSpecialChars;\r\n  FSD:=StrictDelimiter;\r\n  C1:=Delimiter;\r\n  C2:=QuoteChar;\r\n  Delimiter:=',';\r\n  QuoteChar:='\"';\r\n  StrictDelimiter:=False;\r\n  Try\r\n    Result:=GetDelimitedText;\r\n  Finally\r\n    Delimiter:=C1;\r\n    QuoteChar:=C2;\r\n    StrictDelimiter:=FSD;\r\n  end;\r\nend;\r\n\r\n\r\nfunction TStrings.GetDelimitedText: string;\r\n\r\nVar\r\n  I: integer;\r\n  RE : string;\r\n  S : String;\r\n  doQuote : Boolean;\r\n\r\nbegin\r\n  CheckSpecialChars;\r\n  result:='';\r\n  RE:=QuoteChar+'|'+Delimiter;\r\n  if not StrictDelimiter then\r\n    RE:=' |'+RE;\r\n  RE:='/'+RE+'/';\r\n  // Check for break characters and quote if required.\r\n  For i:=0 to count-1 do\r\n    begin\r\n    S:=Strings[i];\r\n    doQuote:=FAlwaysQuote or (TJSString(s).search(RE)<>-1);\r\n    if DoQuote then\r\n      Result:=Result+QuoteString(S,QuoteChar)\r\n    else\r\n      Result:=Result+S;\r\n    if I<Count-1 then\r\n      Result:=Result+Delimiter;\r\n    end;\r\n  // Quote empty string:\r\n  If (Length(Result)=0) and (Count=1) then\r\n    Result:=QuoteChar+QuoteChar;\r\nend;\r\n\r\nprocedure TStrings.GetNameValue(Index: Integer; out AName, AValue: String);\r\n\r\nVar L : longint;\r\n\r\nbegin\r\n  CheckSpecialChars;\r\n  AValue:=Strings[Index];\r\n  L:=Pos(FNameValueSeparator,AValue);\r\n  If L<>0 then\r\n    begin\r\n    AName:=Copy(AValue,1,L-1);\r\n    //    System.Delete(AValue,1,L);\r\n    AValue:=Copy(AValue,L+1,length(AValue)-L);\r\n    end\r\n  else\r\n    AName:='';\r\nend;\r\n\r\nprocedure TStrings.LoadFromURL(const aURL: String; Async: Boolean; OnLoaded: TNotifyEventRef; OnError: TStringNotifyEventRef);\r\n\r\n  procedure DoLoaded(const aString : String);\r\n  begin\r\n    Text:=aString;\r\n    if Assigned(OnLoaded) then\r\n      OnLoaded(Self);\r\n  end;\r\n\r\n  procedure DoError(const AError : String);\r\n  begin\r\n    if Assigned(OnError) then\r\n      OnError(Self,aError)\r\n    else\r\n      Raise EInOutError.Create('Failed to load from URL:'+aError);\r\n  end;\r\n\r\nbegin\r\n  CheckLoadHelper;\r\n  GlobalLoadHelper.LoadText(aURL,aSync,@DoLoaded,@DoError);\r\nend;\r\n\r\n{$HINTS OFF}\r\nfunction URLToArrayOfString(URL: string): TJSStringDynArray;\r\nvar\r\n  a: TJSStringDynArray;\r\n  cors_api_url: string;\r\nbegin\r\n  cors_api_url := '';//'https://cors-anywhere.herokuapp.com/';\r\n  asm\r\n    var xhr = new XMLHttpRequest();\r\n    xhr.open(\"GET\", cors_api_url + URL, false);\r\n    xhr.send();\r\n\r\n    if (xhr.status==200)\r\n    {\r\n      var obj = xhr.responseText.split(/\\r\\n|\\n/);\r\n      for (var i = 0; i < obj.length; i++) {\r\n        a.push(obj[i]);\r\n      }\r\n    }\r\n  end;\r\n\r\n  Result := a;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TStrings.LoadFromFile(const aFileName: String);\r\nvar\r\n  a: TJSStringDynArray;\r\nbegin\r\n  a := URLToArrayOfString(aFileName);\r\n  AddStrings(a, True);\r\nend;\r\n\r\nprocedure TStrings.LoadFromFile(const aFileName: String; const OnLoaded: TProc; const AError: TProcString);\r\n\r\nbegin\r\n  LoadFromURL(aFileName,False,\r\n  Procedure (Sender : TObject)\r\n  begin\r\n    If Assigned(OnLoaded) then\r\n     OnLoaded\r\n  end,\r\n  Procedure (Sender : TObject; Const ErrorMsg : String)\r\n  begin\r\n    if Assigned(aError) then\r\n      aError(ErrorMsg)\r\n  end);\r\nend;\r\n\r\nprocedure ReqAsync(AURL: string; LoadProc: TReqLoadProc; ErrorProc: TReqErrorProc);\r\nvar\r\n  req: TJSXMLHttpRequest;\r\n\r\n  function HandleResponse(Event: TEventListenerEvent): boolean;\r\n  var\r\n    s:string;\r\n    status: integer;\r\n  begin\r\n    asm\r\n      status = Event.target.status;\r\n      s = Event.target.responseText;\r\n    end;\r\n\r\n    if status div 100 = 2 then\r\n      LoadProc(s)\r\n    else\r\n      ErrorProc();\r\n    Result := true;\r\n  end;\r\n\r\n  function HandleError(Event: TEventListenerEvent): boolean;\r\n  begin\r\n    ErrorProc();\r\n    Result := true;\r\n  end;\r\n\r\nbegin\r\n  req := TJSXMLHttpRequest.new;\r\n  req.addEventListener('load', @HandleResponse);\r\n  req.addEventListener('abort',@HandleError);\r\n  req.addEventListener('timeout',@HandleError);\r\n  req.addEventListener('error',@HandleError);\r\n  req.open('GET', AURL);\r\n  req.send;\r\nend;\r\n\r\nfunction TStrings.LoadFromFileAsync(const aFileName: string): TJSPromise;\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n    begin\r\n      ReqAsync(aFileName,\r\n        procedure(AResponse: string)\r\n        begin\r\n          ASuccess(True);\r\n          Text := AResponse;\r\n        end,\r\n        procedure()\r\n        begin\r\n          ASuccess(False);\r\n        end);\r\n    end);\r\n\r\nend;\r\n\r\nfunction TStrings.ExtractName(const S: String): String;\r\nvar\r\n  L: Longint;\r\nbegin\r\n  CheckSpecialChars;\r\n  L:=Pos(FNameValueSeparator,S);\r\n  If L<>0 then\r\n    Result:=Copy(S,1,L-1)\r\n  else\r\n    Result:='';\r\nend;\r\n\r\nfunction TStrings.GetName(Index: Integer): string;\r\n\r\nVar\r\n  V : String;\r\n\r\nbegin\r\n  GetNameValue(Index,Result,V);\r\nend;\r\n\r\nfunction TStrings.GetValue(const Name: string): string;\r\n\r\nVar\r\n  L : longint;\r\n  N : String;\r\n\r\nbegin\r\n  Result:='';\r\n  L:=IndexOfName(Name);\r\n  If L<>-1 then\r\n    GetNameValue(L,N,Result);\r\nend;\r\n\r\nfunction TStrings.GetValueFromIndex(Index: Integer): string;\r\n\r\nVar\r\n  N : String;\r\n\r\nbegin\r\n  GetNameValue(Index,N,Result);\r\nend;\r\n\r\nprocedure TStrings.SetValueFromIndex(Index: Integer; const Value: string);\r\n\r\nbegin\r\n  If (Value='') then\r\n    Delete(Index)\r\n  else\r\n    begin\r\n    If (Index<0) then\r\n      Index:=Add('');\r\n    CheckSpecialChars;\r\n    Strings[Index]:=GetName(Index)+FNameValueSeparator+Value;\r\n    end;\r\nend;\r\n\r\nprocedure TStrings.SetDelimitedText(const AValue: string);\r\nvar i,j:integer;\r\n    aNotFirst:boolean;\r\nbegin\r\n CheckSpecialChars;\r\n BeginUpdate;\r\n\r\n i:=1;\r\n j:=1;\r\n aNotFirst:=false;\r\n\r\n { Paraphrased from Delphi XE2 help:\r\n Strings must be separated by Delimiter characters or spaces.\r\n They may be enclosed in QuoteChars.\r\n QuoteChars in the string must be repeated to distinguish them from the QuoteChars enclosing the string.\r\n }\r\n try\r\n  Clear;\r\n  If StrictDelimiter then\r\n    begin\r\n    while i<=length(AValue) do begin\r\n     // skip delimiter\r\n     if aNotFirst and (i<=length(AValue)) and (AValue[i]=FDelimiter) then inc(i);\r\n\r\n     // read next string\r\n     if i<=length(AValue) then begin\r\n      if AValue[i]=FQuoteChar then begin\r\n       // next string is quoted\r\n       j:=i+1;\r\n       while (j<=length(AValue)) and\r\n             ( (AValue[j]<>FQuoteChar) or\r\n               ( (j+1<=length(AValue)) and (AValue[j+1]=FQuoteChar) ) ) do begin\r\n        if (j<=length(AValue)) and (AValue[j]=FQuoteChar) then inc(j,2)\r\n                                                          else inc(j);\r\n       end;\r\n       // j is position of closing quote\r\n       Add( StringReplace (Copy(AValue,i+1,j-i-1),\r\n                           FQuoteChar+FQuoteChar,FQuoteChar, [rfReplaceAll]));\r\n       i:=j+1;\r\n      end else begin\r\n       // next string is not quoted; read until delimiter\r\n       j:=i;\r\n       while (j<=length(AValue)) and\r\n             (AValue[j]<>FDelimiter) do inc(j);\r\n       Add( Copy(AValue,i,j-i));\r\n       i:=j;\r\n      end;\r\n     end else begin\r\n      if aNotFirst then Add('');\r\n     end;\r\n\r\n     aNotFirst:=true;\r\n    end;\r\n    end\r\n  else\r\n    begin\r\n    while i<=length(AValue) do begin\r\n     // skip delimiter\r\n     if aNotFirst and (i<=length(AValue)) and (AValue[i]=FDelimiter) then inc(i);\r\n\r\n     // skip spaces\r\n     while (i<=length(AValue)) and (Ord(AValue[i])<=Ord(' ')) do inc(i);\r\n\r\n     // read next string\r\n     if i<=length(AValue) then begin\r\n      if AValue[i]=FQuoteChar then begin\r\n       // next string is quoted\r\n       j:=i+1;\r\n       while (j<=length(AValue)) and\r\n             ( (AValue[j]<>FQuoteChar) or\r\n               ( (j+1<=length(AValue)) and (AValue[j+1]=FQuoteChar) ) ) do begin\r\n        if (j<=length(AValue)) and (AValue[j]=FQuoteChar) then inc(j,2)\r\n                                                          else inc(j);\r\n       end;\r\n       // j is position of closing quote\r\n       Add( StringReplace (Copy(AValue,i+1,j-i-1),\r\n                           FQuoteChar+FQuoteChar,FQuoteChar, [rfReplaceAll]));\r\n       i:=j+1;\r\n      end else begin\r\n       // next string is not quoted; read until control character/space/delimiter\r\n       j:=i;\r\n       while (j<=length(AValue)) and\r\n             (Ord(AValue[j])>Ord(' ')) and\r\n             (AValue[j]<>FDelimiter) do inc(j);\r\n       Add( Copy(AValue,i,j-i));\r\n       i:=j;\r\n      end;\r\n     end else begin\r\n      if aNotFirst then Add('');\r\n     end;\r\n\r\n     // skip spaces\r\n     while (i<=length(AValue)) and (Ord(AValue[i])<=Ord(' ')) do inc(i);\r\n\r\n     aNotFirst:=true;\r\n    end;\r\n    end;\r\n finally\r\n   EndUpdate;\r\n end;\r\nend;\r\n\r\nprocedure TStrings.SetCommaText(const Value: string);\r\n\r\nVar\r\n  C1,C2 : Char;\r\n\r\nbegin\r\n  CheckSpecialChars;\r\n  C1:=Delimiter;\r\n  C2:=QuoteChar;\r\n  Delimiter:=',';\r\n  QuoteChar:='\"';\r\n  Try\r\n    SetDelimitedText(Value);\r\n  Finally\r\n    Delimiter:=C1;\r\n    QuoteChar:=C2;\r\n  end;\r\nend;\r\n\r\nprocedure TStrings.SetValue(const Name: String; const Value: string);\r\n\r\nVar L : longint;\r\n\r\nbegin\r\n  CheckSpecialChars;\r\n  L:=IndexOfName(Name);\r\n  if L=-1 then\r\n   Add (Name+FNameValueSeparator+Value)\r\n  else\r\n   Strings[L]:=Name+FNameValueSeparator+value;\r\nend;\r\n\r\n\r\nprocedure TStrings.Error(const Msg: string; Data: Integer);\r\nbegin\r\n  Raise EStringListError.CreateFmt(Msg,[IntToStr(Data)]);\r\nend;\r\n\r\nfunction TStrings.GetCapacity: Integer;\r\n\r\nbegin\r\n  Result:=Count;\r\nend;\r\n\r\n\r\n\r\nfunction TStrings.GetObject(Index: Integer): TObject;\r\n\r\nbegin\r\n  if Index=0 then ;\r\n  Result:=Nil;\r\nend;\r\n\r\nfunction TStrings.GetTextStr: string;\r\n\r\nVar\r\n  I : Longint;\r\n  S,NL : String;\r\n\r\nbegin\r\n  CheckSpecialChars;\r\n  // Determine needed place\r\n  if FLineBreak<>sLineBreak then\r\n    NL:=FLineBreak\r\n  else\r\n    Case FLBS of\r\n      tlbsLF   : NL:=#10;\r\n      tlbsCRLF : NL:=#13#10;\r\n      tlbsCR   : NL:=#13;\r\n    end;\r\n  Result:='';\r\n  For i:=0 To count-1 do\r\n    begin\r\n    S:=Strings[I];\r\n    Result:=Result+S;\r\n    if (I<Count-1) or Not SkipLastLineBreak then\r\n      Result:=Result+NL;\r\n    end;\r\nend;\r\n\r\n\r\n\r\nprocedure TStrings.Put(Index: Integer; const S: string);\r\n\r\nVar Obj : TObject;\r\n\r\nbegin\r\n  Obj:=Objects[Index];\r\n  Delete(Index);\r\n  InsertObject(Index,S,Obj);\r\nend;\r\n\r\n\r\n\r\nprocedure TStrings.PutObject(Index: Integer; AObject: TObject);\r\n\r\nbegin\r\n  // Empty.\r\n  if Index=0 then exit;\r\n  if AObject=nil then exit;\r\nend;\r\n\r\n\r\n\r\nprocedure TStrings.SetCapacity(NewCapacity: Integer);\r\n\r\nbegin\r\n  // Empty.\r\n  if NewCapacity=0 then ;\r\nend;\r\n\r\nfunction TStrings.GetNextLinebreak(const Value: String; out S: String; var P: Integer): Boolean;\r\n\r\nvar\r\n  PPLF,PPCR,PP,PL: Integer;\r\n\r\nbegin\r\n  S:='';\r\n  Result:=False;\r\n  If ((Length(Value)-P)<0) then\r\n    Exit;\r\n  PPLF:=TJSString(Value).IndexOf(#10,P-1)+1;\r\n  PPCR:=TJSString(Value).IndexOf(#13,P-1)+1;\r\n  PL:=1;\r\n  if (PPLF>0) and (PPCR>0) then\r\n    begin\r\n    if (PPLF-PPCR)=1 then \r\n      PL:=2;\r\n    if PPLF<PPCR then\r\n      PP:=PPLF\r\n    else\r\n      PP:=PPCR;\r\n    end\r\n  else if (PPLF>0) and (PPCR<1) then\r\n    PP:=PPLF\r\n  else if (PPCR > 0) and (PPLF<1) then\r\n    PP:=PPCR\r\n  else \r\n    PP:=Length(Value)+1;\r\n  S:=Copy(Value,P,PP-P);\r\n  P:=PP+PL;\r\n  Result:=True;\r\nend;\r\n\r\nprocedure TStrings.DoSetTextStr(const Value: string; DoClear: Boolean);\r\n\r\nVar\r\n  S : String;\r\n  P : Integer;\r\n\r\nbegin\r\n  Try\r\n    BeginUpdate;\r\n    if DoClear then\r\n      Clear;\r\n    P:=1;\r\n    While GetNextLineBreak (Value,S,P) do\r\n      Add(S);\r\n  finally\r\n    EndUpdate;\r\n  end;\r\nend;\r\n\r\nprocedure TStrings.SetTextStr(const Value: string);\r\n\r\nbegin\r\n  CheckSpecialChars;\r\n  DoSetTextStr(Value,True);\r\nend;\r\n\r\nprocedure TStrings.AddText(const S: String);\r\n\r\nbegin\r\n  CheckSpecialChars;\r\n  DoSetTextStr(S,False);\r\nend;\r\n\r\nprocedure TStrings.SetUpdateState(Updating: Boolean);\r\n\r\nbegin\r\n  // FPONotifyObservers(Self,ooChange,Nil);\r\n  if Updating then ;\r\nend;\r\n\r\ndestructor TStrings.Destroy;\r\n\r\nbegin\r\n  inherited destroy;\r\nend;\r\n\r\nconstructor TStrings.Create;\r\nbegin\r\n  inherited Create;\r\n  FAlwaysQuote:=False;\r\nend;\r\n\r\nfunction TStrings.ToObjectArray: TObjectDynArray;\r\n\r\nbegin\r\n  Result:=ToObjectArray(0,Count-1);\r\nend;\r\n\r\nfunction TStrings.ToObjectArray(aStart,aEnd : Integer): TObjectDynArray;\r\nVar\r\n  I : Integer;\r\n\r\nbegin\r\n  Result:=Nil;\r\n  if aStart>aEnd then exit;\r\n  SetLength(Result,aEnd-aStart+1);\r\n  For I:=aStart to aEnd do\r\n    Result[i-aStart]:=Objects[i];\r\nend;\r\n\r\nfunction TStrings.ToStringArray: TStringDynArray;\r\n\r\nbegin\r\n  Result:=ToStringArray(0,Count-1);\r\nend;\r\n\r\nfunction TStrings.ToStringArray(aStart,aEnd : Integer): TStringDynArray;\r\n\r\nVar\r\n  I : Integer;\r\n\r\nbegin\r\n  Result:=Nil;\r\n  if aStart>aEnd then exit;\r\n  SetLength(Result,aEnd-aStart+1);\r\n  For I:=aStart to aEnd do\r\n    Result[i-aStart]:=Strings[i];\r\nend;\r\n\r\nfunction TStrings.Add(const S: string): Integer;\r\n\r\nbegin\r\n  Result:=Count;\r\n  Insert (Count,S);\r\nend;\r\n\r\n\r\nfunction TStrings.Add(const Fmt: string; const Args: array of const): Integer;\r\n\r\nbegin\r\n  Result:=Add(Format(Fmt,Args));\r\nend;\r\n\r\nfunction TStrings.AddFmt(const Fmt: string; const Args: array of const): Integer;\r\n\r\nbegin\r\n  Result:=Add(Format(Fmt,Args));\r\nend;\r\n\r\n\r\nfunction TStrings.AddObject(const S: string; AObject: TObject): Integer;\r\n\r\nbegin\r\n  Result:=Add(S);\r\n  Objects[result]:=AObject;\r\nend;\r\n\r\nfunction TStrings.AddObject(const Fmt: string; Args: array of const; AObject: TObject): Integer;\r\n\r\nbegin\r\n  Result:=AddObject(Format(Fmt,Args),AObject);\r\nend;\r\n\r\nprocedure TStrings.Append(const S: string);\r\n\r\nbegin\r\n  Add (S);\r\nend;\r\n\r\n\r\n\r\nprocedure TStrings.AddStrings(TheStrings: TStrings; ClearFirst: Boolean);\r\n\r\n\r\nbegin\r\n  beginupdate;\r\n  try\r\n    if ClearFirst then\r\n      Clear;\r\n    AddStrings(TheStrings);\r\n  finally\r\n    EndUpdate;\r\n  end;\r\nend;\r\n\r\nprocedure TStrings.AddStrings(TheStrings: TStrings);\r\n\r\nVar Runner : longint;\r\nbegin\r\n  For Runner:=0 to TheStrings.Count-1 do\r\n    self.AddObject (Thestrings[Runner],TheStrings.Objects[Runner]);\r\nend;\r\n\r\nprocedure TStrings.AddStrings(const TheStrings: array of string);\r\n\r\nVar Runner : longint;\r\nbegin\r\n  if Count + High(TheStrings)+1 > Capacity then\r\n    Capacity := Count + High(TheStrings)+1;\r\n  For Runner:=Low(TheStrings) to High(TheStrings) do\r\n    self.Add(Thestrings[Runner]);\r\nend;\r\n\r\n\r\nprocedure TStrings.AddStrings(const TheStrings: array of string; ClearFirst: Boolean);\r\n\r\nbegin\r\n  beginupdate;\r\n  try\r\n    if ClearFirst then\r\n      Clear;\r\n    AddStrings(TheStrings);\r\n  finally\r\n    EndUpdate;\r\n  end;\r\nend;\r\n\r\n\r\nfunction TStrings.AddPair(const AName, AValue: string): TStrings;\r\n\r\nbegin\r\n  Result:=AddPair(AName,AValue,Nil);\r\nend;\r\n\r\nfunction TStrings.AddPair(const AName, AValue: string; AObject: TObject): TStrings;\r\n\r\nbegin\r\n  Result := Self;\r\n  AddObject(AName+NameValueSeparator+AValue, AObject);\r\nend;\r\n\r\n\r\nprocedure TStrings.Assign(Source: TPersistent);\r\n\r\nVar\r\n  S : TStrings;\r\n\r\nbegin\r\n  If Source is TStrings then\r\n    begin\r\n    S:=TStrings(Source);\r\n    BeginUpdate;\r\n    Try\r\n      clear;\r\n      FSpecialCharsInited:=S.FSpecialCharsInited;\r\n      FQuoteChar:=S.FQuoteChar;\r\n      FDelimiter:=S.FDelimiter;\r\n      FNameValueSeparator:=S.FNameValueSeparator;\r\n      FLBS:=S.FLBS;\r\n      FLineBreak:=S.FLineBreak;\r\n      AddStrings(S);\r\n    finally\r\n      EndUpdate;\r\n    end;\r\n    end\r\n  else\r\n    Inherited Assign(Source);\r\nend;\r\n\r\n\r\n\r\nprocedure TStrings.BeginUpdate;\r\n\r\nbegin\r\n   if FUpdateCount = 0 then SetUpdateState(true);\r\n   inc(FUpdateCount);\r\nend;\r\n\r\n\r\n\r\nprocedure TStrings.EndUpdate;\r\n\r\nbegin\r\n  If FUpdateCount>0 then\r\n     Dec(FUpdateCount);\r\n  if FUpdateCount=0 then\r\n    SetUpdateState(False);\r\nend;\r\n\r\n\r\n\r\nfunction TStrings.Equals(Obj: TObject): Boolean;\r\n\r\nbegin\r\n  if Obj is TStrings then\r\n    Result := Equals(TStrings(Obj))\r\n  else\r\n    Result := inherited Equals(Obj);\r\nend;\r\n\r\n\r\n\r\nfunction TStrings.Equals(TheStrings: TStrings): Boolean;\r\n\r\nVar Runner,Nr : Longint;\r\n\r\nbegin\r\n  Result:=False;\r\n  Nr:=Self.Count;\r\n  if Nr<>TheStrings.Count then exit;\r\n  For Runner:=0 to Nr-1 do\r\n    If Strings[Runner]<>TheStrings[Runner] then exit;\r\n  Result:=True;\r\nend;\r\n\r\n\r\n\r\nprocedure TStrings.Exchange(Index1, Index2: Integer);\r\n\r\nVar\r\n  Obj : TObject;\r\n  Str : String;\r\n\r\nbegin\r\n  beginUpdate;\r\n  Try\r\n    Obj:=Objects[Index1];\r\n    Str:=Strings[Index1];\r\n    Objects[Index1]:=Objects[Index2];\r\n    Strings[Index1]:=Strings[Index2];\r\n    Objects[Index2]:=Obj;\r\n    Strings[Index2]:=Str;\r\n  finally\r\n    EndUpdate;\r\n  end;\r\nend;\r\n\r\n\r\nfunction TStrings.GetEnumerator: TStringsEnumerator;\r\nbegin\r\n  Result:=TStringsEnumerator.Create(Self);\r\nend;\r\n\r\n\r\nfunction TStrings.DoCompareText(const s1, s2: string): PtrInt;\r\nbegin\r\n  result:=CompareText(s1,s2);\r\nend;\r\n\r\n\r\nfunction TStrings.IndexOf(const S: string): Integer;\r\nbegin\r\n  Result:=0;\r\n  While (Result<Count) and (DoCompareText(Strings[Result],S)<>0) do Result:=Result+1;\r\n  if Result=Count then Result:=-1;\r\nend;\r\n\r\n\r\nfunction TStrings.IndexOfName(const Name: string): Integer;\r\nVar\r\n  len : longint;\r\n  S : String;\r\nbegin\r\n  CheckSpecialChars;\r\n  Result:=0;\r\n  while (Result<Count) do\r\n    begin\r\n    S:=Strings[Result];\r\n    len:=pos(FNameValueSeparator,S)-1;\r\n    if (len>=0) and (DoCompareText(Name,Copy(S,1,Len))=0) then\r\n      exit;\r\n    inc(result);\r\n    end;\r\n  result:=-1;\r\nend;\r\n\r\n\r\nfunction TStrings.IndexOfObject(AObject: TObject): Integer;\r\nbegin\r\n  Result:=0;\r\n  While (Result<count) and (Objects[Result]<>AObject) do Result:=Result+1;\r\n  If Result=Count then Result:=-1;\r\nend;\r\n\r\n\r\nprocedure TStrings.InsertObject(Index: Integer; const S: string; AObject: TObject);\r\n\r\nbegin\r\n  Insert (Index,S);\r\n  Objects[Index]:=AObject;\r\nend;\r\n\r\nprocedure TStrings.Move(CurIndex, NewIndex: Integer);\r\nVar\r\n  Obj : TObject;\r\n  Str : String;\r\nbegin\r\n  BeginUpdate;\r\n  Try\r\n    Obj:=Objects[CurIndex];\r\n    Str:=Strings[CurIndex];\r\n    Objects[CurIndex]:=Nil; // Prevent Delete from freeing.\r\n    Delete(Curindex);\r\n    InsertObject(NewIndex,Str,Obj);\r\n  finally\r\n    EndUpdate;\r\n    end;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TStrings.SaveToFile(const FileName: string);\r\nvar\r\n  AText: string;\r\nbegin\r\n  AText := self.Text;\r\n  asm\r\n    var element = document.createElement('a');\r\n    element.setAttribute('href', 'data:text/plain;charset=utf-8,' + encodeURIComponent(AText));\r\n    if (FileName != ''){\r\n      element.setAttribute('download', FileName);\r\n    }\r\n    element.style.display = 'none';\r\n    document.body.appendChild(element);\r\n    element.click();\r\n    document.body.removeChild(element);\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\n\r\n{****************************************************************************}\r\n{*                             TStringList                                  *}\r\n{****************************************************************************}\r\n\r\n\r\nprocedure TStringList.ExchangeItemsInt(Index1, Index2: Integer);\r\n\r\nVar\r\n  S : String;\r\n  O : TObject;\r\n\r\nbegin\r\n  S:=Flist[Index1].FString;\r\n  O:=Flist[Index1].FObject;\r\n  Flist[Index1].Fstring:=Flist[Index2].Fstring;\r\n  Flist[Index1].FObject:=Flist[Index2].FObject;\r\n  Flist[Index2].Fstring:=S;\r\n  Flist[Index2].FObject:=O;\r\nend;\r\n\r\nfunction TStringList.GetSorted: Boolean;\r\nbegin\r\n  Result:=FSortStyle in [sslUser,sslAuto];\r\nend;\r\n\r\n\r\nprocedure TStringList.ExchangeItems(Index1, Index2: Integer);\r\nbegin\r\n  ExchangeItemsInt(Index1, Index2);\r\nend;\r\n\r\n\r\nprocedure TStringList.Grow;\r\n\r\nVar\r\n  NC : Integer;\r\n\r\nbegin\r\n  NC:=Capacity;\r\n  If NC>=256 then\r\n    NC:=NC+(NC Div 4)\r\n  else if NC=0 then\r\n    NC:=4\r\n  else\r\n    NC:=NC*4;\r\n  SetCapacity(NC);\r\nend;\r\n\r\nprocedure TStringList.InternalClear(FromIndex: Integer; ClearOnly: Boolean);\r\n\r\nVar\r\n  I: Integer;\r\n\r\nbegin\r\n  if FromIndex < FCount then\r\n    begin\r\n      if FOwnsObjects then\r\n        begin\r\n          For I:=FromIndex to FCount-1 do\r\n            begin\r\n              Flist[I].FString:='';\r\n              freeandnil(Flist[i].FObject);\r\n            end;\r\n        end\r\n      else\r\n        begin\r\n          For I:=FromIndex to FCount-1 do\r\n            Flist[I].FString:='';\r\n        end;\r\n      FCount:=FromIndex;\r\n    end;\r\n  if Not ClearOnly then\r\n    SetCapacity(0);\r\nend;\r\n\r\n\r\nprocedure TStringList.QuickSort(L, R: Integer; CompareFn: TStringListSortCompare\r\n  );\r\n\r\n\r\nvar\r\n  Pivot, vL, vR: Integer;\r\n\r\nbegin\r\n  //if ExchangeItems is override call that, else call (faster) ExchangeItemsInt\r\n\r\n  if R - L <= 1 then begin // a little bit of time saver\r\n    if L < R then\r\n      if CompareFn(Self, L, R) > 0 then\r\n        ExchangeItems(L, R);\r\n\r\n    Exit;\r\n  end;\r\n\r\n  vL := L;\r\n  vR := R;\r\n\r\n  Pivot := L + Random(R - L); // they say random is best\r\n\r\n  while vL < vR do begin\r\n    while (vL < Pivot) and (CompareFn(Self, vL, Pivot) <= 0) do\r\n      Inc(vL);\r\n\r\n    while (vR > Pivot) and (CompareFn(Self, vR, Pivot) > 0) do\r\n      Dec(vR);\r\n\r\n    ExchangeItems(vL, vR);\r\n\r\n    if Pivot = vL then // swap pivot if we just hit it from one side\r\n      Pivot := vR\r\n    else if Pivot = vR then\r\n      Pivot := vL;\r\n  end;\r\n\r\n  if Pivot - 1 >= L then\r\n    QuickSort(L, Pivot - 1, CompareFn);\r\n  if Pivot + 1 <= R then\r\n    QuickSort(Pivot + 1, R, CompareFn);\r\nend;\r\n\r\n\r\nprocedure TStringList.InsertItem(Index: Integer; const S: string);\r\nbegin\r\n  InsertItem(Index, S, nil);\r\nend;\r\n\r\n\r\nprocedure TStringList.InsertItem(Index: Integer; const S: string; O: TObject);\r\n\r\nVar\r\n  It : TStringItem;\r\n  \r\nbegin\r\n  Changing;\r\n  If FCount=Capacity then Grow;\r\n  it.FString:=S;\r\n  it.FObject:=O;\r\n  TJSArray(FList).Splice(Index,0,It);\r\n  Inc(FCount);\r\n  Changed;\r\nend;\r\n\r\n\r\nprocedure TStringList.SetSorted(Value: Boolean);\r\n\r\nbegin\r\n  If Value then\r\n    SortStyle:=sslAuto\r\n  else\r\n    SortStyle:=sslNone\r\nend;\r\n\r\n\r\nfunction TStringList.GetTrailingLineBreak: boolean;\r\nbegin\r\n  Result := not SkipLastLineBreak;\r\nend;\r\n\r\nprocedure TStringList.SetTrailingLineBreak(const Value: boolean);\r\nbegin\r\n  SkipLastLineBreak := not Value;\r\nend;\r\n\r\nprocedure TStringList.Changed;\r\n\r\nbegin\r\n  If (FUpdateCount=0) Then\r\n   begin\r\n   If Assigned(FOnChange) then\r\n     FOnchange(Self);\r\n   end;\r\nend;\r\n\r\n\r\n\r\nprocedure TStringList.Changing;\r\n\r\nbegin\r\n  If FUpdateCount=0 then\r\n    if Assigned(FOnChanging) then\r\n      FOnchanging(Self);\r\nend;\r\n\r\n\r\n\r\nfunction TStringList.Get(Index: Integer): string;\r\n\r\nbegin\r\n  CheckIndex(Index);\r\n  Result:=Flist[Index].FString;\r\nend;\r\n\r\n\r\n\r\nfunction TStringList.GetCapacity: Integer;\r\n\r\nbegin\r\n  Result:=Length(FList);\r\nend;\r\n\r\n\r\n\r\nfunction TStringList.GetCount: Integer;\r\n\r\nbegin\r\n  Result:=FCount;\r\nend;\r\n\r\n\r\n\r\nfunction TStringList.GetObject(Index: Integer): TObject;\r\n\r\nbegin\r\n  CheckIndex(Index);\r\n  Result:=Flist[Index].FObject;\r\nend;\r\n\r\n\r\n\r\nprocedure TStringList.Put(Index: Integer; const S: string);\r\n\r\nbegin\r\n  If Sorted then\r\n    Error(SSortedListError,0);\r\n  CheckIndex(Index);\r\n  Changing;\r\n  Flist[Index].FString:=S;\r\n  Changed;\r\nend;\r\n\r\n\r\n\r\nprocedure TStringList.PutObject(Index: Integer; AObject: TObject);\r\n\r\nbegin\r\n  CheckIndex(Index);\r\n  Changing;\r\n  Flist[Index].FObject:=AObject;\r\n  Changed;\r\nend;\r\n\r\n\r\n\r\nprocedure TStringList.SetCapacity(NewCapacity: Integer);\r\n\r\nbegin\r\n  If (NewCapacity<0) then\r\n     Error (SListCapacityError,NewCapacity);\r\n  If NewCapacity<>Capacity then\r\n    SetLength(FList,NewCapacity)\r\nend;\r\n\r\n\r\n\r\nprocedure TStringList.SetUpdateState(Updating: Boolean);\r\n\r\nbegin\r\n  If Updating then\r\n    Changing\r\n  else\r\n    Changed\r\nend;\r\n\r\n\r\n\r\nconstructor TStringList.Create(AOwnsObjects: Boolean);\r\nbegin\r\n  inherited Create;\r\n  OwnsObjects := AOwnsObjects;\r\nend;\r\n\r\nconstructor TStringList.Create(AQuoteChar, ADelimiter: Char);\r\nbegin\r\n  inherited Create;\r\n  QuoteChar := AQuoteChar;\r\n  Delimiter := ADelimiter;\r\nend;\r\n\r\nconstructor TStringList.Create(AQuoteChar, ADelimiter: Char; AOptions: TStringsOptions);\r\nbegin\r\n  inherited Create;\r\n  QuoteChar := AQuoteChar;\r\n  Delimiter := ADelimiter;\r\n  StrictDelimiter := (soStrictDelimiter in AOptions);\r\nend;\r\n\r\nconstructor TStringList.Create(ADuplicates: TDuplicates; ASorted: Boolean; ACaseSensitive: Boolean);\r\nbegin\r\n  inherited Create;\r\n  Duplicates := ADuplicates;\r\n  Sorted := ASorted;\r\n  CaseSensitive := ACaseSensitive;\r\nend;\r\n\r\ndestructor TStringList.Destroy;\r\nbegin\r\n  InternalClear;\r\n  Inherited destroy;\r\nend;\r\n\r\nfunction TStringList.Add(const S: string): Integer;\r\n\r\nbegin\r\n  If Not (SortStyle=sslAuto) then\r\n    Result:=FCount\r\n  else\r\n    If Find (S,Result) then\r\n      Case DUplicates of\r\n        DupIgnore : Exit;\r\n        DupError : Error(SDuplicateString,0)\r\n      end;\r\n   InsertItem (Result,S);\r\nend;\r\n\r\nprocedure TStringList.Clear;\r\n\r\nbegin\r\n  if FCount = 0 then Exit;\r\n  Changing;\r\n  InternalClear;\r\n  Changed;\r\nend;\r\n\r\nprocedure TStringList.Delete(Index: Integer);\r\n\r\nbegin\r\n  CheckIndex(Index);\r\n  Changing;\r\n  if FOwnsObjects then\r\n    FreeAndNil(Flist[Index].FObject);\r\n  TJSArray(FList).splice(Index,1);  \r\n  FList[Count-1].FString:='';\r\n  Flist[Count-1].FObject:=Nil;\r\n  Dec(FCount);\r\n  Changed;\r\nend;\r\n\r\nprocedure TStringList.Exchange(Index1, Index2: Integer);\r\n\r\nbegin\r\n  CheckIndex(Index1);\r\n  CheckIndex(Index2);\r\n  Changing;\r\n  ExchangeItemsInt(Index1,Index2);\r\n  changed;\r\nend;\r\n\r\nprocedure TStringList.SetCaseSensitive(b : boolean);\r\nbegin\r\n  if b=FCaseSensitive then\r\n    Exit;\r\n  FCaseSensitive:=b;\r\n  if FSortStyle=sslAuto then\r\n    begin\r\n    FForceSort:=True;\r\n    try\r\n      Sort;\r\n    finally\r\n      FForceSort:=False;\r\n    end;\r\n    end;\r\nend;\r\n\r\nprocedure TStringList.SetSortStyle(AValue: TStringsSortStyle);\r\nbegin\r\n  if FSortStyle=AValue then Exit;\r\n  if (AValue=sslAuto) then\r\n    Sort;\r\n  FSortStyle:=AValue;\r\nend;\r\n\r\nprocedure TStringList.CheckIndex(AIndex: Integer);\r\nbegin\r\n  If (AIndex<0) or (AIndex>=FCount) then\r\n    Error(SListIndexError,AIndex);\r\nend;\r\n\r\n\r\nfunction TStringList.DoCompareText(const s1, s2: string): PtrInt;\r\nbegin\r\n  if FCaseSensitive then\r\n    result:=CompareStr(s1,s2)\r\n  else\r\n    result:=CompareText(s1,s2);\r\nend;\r\n\r\n\r\nfunction TStringList.CompareStrings(const s1,s2 : string) : Integer;\r\nbegin\r\n  Result := DoCompareText(s1, s2);\r\nend;\r\n\r\n\r\nfunction TStringList.Find(const S: string; out Index: Integer): Boolean;\r\n\r\nvar\r\n  L, R, I: Integer;\r\n  CompareRes: PtrInt;\r\nbegin\r\n  Result := false;\r\n  Index:=-1;\r\n  if Not Sorted then\r\n    Raise EListError.Create(SErrFindNeedsSortedList);\r\n  // Use binary search.\r\n  L := 0;\r\n  R := Count - 1;\r\n  while (L<=R) do\r\n  begin\r\n    I := L + (R - L) div 2;\r\n    CompareRes := DoCompareText(S, Flist[I].FString);\r\n    if (CompareRes>0) then\r\n      L := I+1\r\n    else begin\r\n      R := I-1;\r\n      if (CompareRes=0) then begin\r\n         Result := true;\r\n         if (Duplicates<>dupAccept) then\r\n            L := I; // forces end of while loop\r\n      end;\r\n    end;\r\n  end;\r\n  Index := L;\r\nend;\r\n\r\n\r\n\r\nfunction TStringList.IndexOf(const S: string): Integer;\r\n\r\nbegin\r\n  If Not Sorted then\r\n    Result:=Inherited indexOf(S)\r\n  else\r\n    // faster using binary search...\r\n    If Not Find (S,Result) then\r\n      Result:=-1;\r\nend;\r\n\r\n\r\n\r\nprocedure TStringList.Insert(Index: Integer; const S: string);\r\n\r\nbegin\r\n  If SortStyle=sslAuto then\r\n    Error (SSortedListError,0)\r\n  else\r\n    begin\r\n    If (Index<0) or (Index>FCount) then\r\n      Error(SListIndexError,Index); // Cannot use CheckIndex, because there >= FCount...\r\n    InsertItem (Index,S);\r\n    end;\r\nend;\r\n\r\n\r\nprocedure TStringList.CustomSort(CompareFn: TStringListSortCompare);\r\n\r\nbegin\r\n  If (FForceSort or (Not (FSortStyle=sslAuto))) and (FCount>1) then\r\n    begin\r\n    Changing;\r\n    QuickSort(0,FCount-1, CompareFn);\r\n    Changed;\r\n    end;\r\nend;\r\n\r\nfunction StringListAnsiCompare(List: TStringList; Index1, Index: Integer): Integer;\r\n\r\nbegin\r\n  Result := List.DoCompareText(List.FList[Index1].FString,\r\n                               List.FList[Index].FString);\r\nend;\r\n\r\nprocedure TStringList.Sort;\r\n\r\nbegin\r\n  CustomSort(@StringListAnsiCompare);\r\nend;\r\n\r\n{****************************************************************************}\r\n{*                             TCollectionItem                              *}\r\n{****************************************************************************}\r\n\r\n\r\nfunction TCollectionItem.GetIndex: Integer;\r\n\r\nbegin\r\n  if Assigned(FCollection) then\r\n    Result:=FCollection.FItems.IndexOf(Self)\r\n  else\r\n    Result:=-1;\r\nend;\r\n\r\n\r\n\r\nprocedure TCollectionItem.SetCollection(Value: TCollection);\r\n\r\nbegin\r\n  IF Value<>FCollection then\r\n    begin\r\n    if Assigned(FCollection) then FCollection.RemoveItem(Self);\r\n    if Assigned(Value) then Value.InsertItem(Self);\r\n    end;\r\nend;\r\n\r\n\r\n\r\nprocedure TCollectionItem.Changed(AllItems: Boolean);\r\n\r\nbegin\r\n If (FCollection<>Nil) and (FCollection.UpdateCount=0) then\r\n  begin\r\n  If AllItems then\r\n    FCollection.Update(Nil)\r\n  else\r\n    FCollection.Update(Self);\r\n  end;\r\nend;\r\n\r\n\r\n\r\nfunction TCollectionItem.GetNamePath: string;\r\n\r\nbegin\r\n  If FCollection<>Nil then\r\n    Result:=FCollection.GetNamePath+'['+IntToStr(Index)+']'\r\n  else\r\n    Result:=ClassName;\r\nend;\r\n\r\n\r\nfunction TCollectionItem.GetOwner: TPersistent;\r\n\r\nbegin\r\n  Result:=FCollection;\r\nend;\r\n\r\n\r\n\r\nfunction TCollectionItem.GetDisplayName: string;\r\n\r\nbegin\r\n  Result:=ClassName;\r\nend;\r\n\r\n\r\n\r\nprocedure TCollectionItem.SetIndex(Value: Integer);\r\n\r\nVar Temp : Longint;\r\n\r\nbegin\r\n  Temp:=GetIndex;\r\n  If (Temp>-1) and (Temp<>Value) then\r\n    begin\r\n    FCollection.FItems.Move(Temp,Value);\r\n    Changed(True);\r\n    end;\r\nend;\r\n\r\n\r\nprocedure TCollectionItem.SetDisplayName(const Value: string);\r\n\r\nbegin\r\n  Changed(False);\r\n  if Value='' then ;\r\nend;\r\n\r\n\r\n\r\nconstructor TCollectionItem.Create(ACollection: TCollection);\r\n\r\nbegin\r\n  Inherited Create;\r\n  SetCollection(ACollection);\r\nend;\r\n\r\n\r\n\r\ndestructor TCollectionItem.Destroy;\r\n\r\nbegin\r\n  SetCollection(Nil);\r\n  Inherited Destroy;\r\nend;\r\n\r\n{****************************************************************************}\r\n{*                          TCollectionEnumerator                           *}\r\n{****************************************************************************}\r\n\r\nconstructor TCollectionEnumerator.Create(ACollection: TCollection);\r\nbegin\r\n  inherited Create;\r\n  FCollection := ACollection;\r\n  FPosition := -1;\r\nend;\r\n\r\nfunction TCollectionEnumerator.GetCurrent: TCollectionItem;\r\nbegin\r\n  Result := FCollection.Items[FPosition];\r\nend;\r\n\r\nfunction TCollectionEnumerator.MoveNext: Boolean;\r\nbegin\r\n  Inc(FPosition);\r\n  Result := FPosition < FCollection.Count;\r\nend;\r\n\r\n\r\n{****************************************************************************}\r\n{*                             TCollection                                  *}\r\n{****************************************************************************}\r\n\r\nfunction TCollection.Owner: TPersistent;\r\nbegin\r\n  result:=getowner;\r\nend;\r\n\r\n\r\nfunction TCollection.GetCount: Integer;\r\n\r\nbegin\r\n  Result:=FItems.Count;\r\nend;\r\n\r\n\r\nProcedure TCollection.SetPropName;\r\n\r\n{\r\nVar\r\n  TheOwner : TPersistent;\r\n  PropList : PPropList;\r\n  I, PropCount : Integer;\r\n}\r\nbegin\r\n  FPropName:='';\r\n{\r\n  TheOwner:=GetOwner;\r\n  // TODO: This needs to wait till Mattias finishes typeinfo.\r\n  // It's normally only used in the designer so should not be a problem currently.\r\n  if (TheOwner=Nil) Or (TheOwner.Classinfo=Nil) Then Exit;\r\n  // get information from the owner RTTI\r\n  PropCount:=GetPropList(TheOwner, PropList);\r\n  Try\r\n    For I:=0 To PropCount-1 Do\r\n      If (PropList^[i]^.PropType^.Kind=tkClass) And\r\n         (GetObjectProp(TheOwner, PropList^[i], ClassType)=Self) Then\r\n        Begin\r\n          FPropName:=PropList^[i]^.Name;\r\n          Exit;\r\n        End;\r\n  Finally\r\n    FreeMem(PropList);\r\n  End;\r\n}\r\nend;\r\n\r\n\r\nfunction TCollection.GetPropName: string;\r\n\r\n{Var\r\n  TheOwner : TPersistent;}\r\n\r\nbegin\r\n  Result:=FPropNAme;\r\n//  TheOwner:=GetOwner;\r\n//  If (Result<>'') or (TheOwner=Nil) Or (TheOwner.Classinfo=Nil) then exit;\r\n  SetPropName;\r\n  Result:=FPropName;\r\nend;\r\n\r\n\r\nprocedure TCollection.InsertItem(Item: TCollectionItem);\r\nbegin\r\n  If Not(Item Is FitemClass) then\r\n    exit;\r\n  FItems.add(Item);\r\n  Item.FCollection:=Self;\r\n  Item.FID:=FNextID;\r\n  inc(FNextID);\r\n  SetItemName(Item);\r\n  Notify(Item,cnAdded);\r\n  Changed;\r\nend;\r\n\r\n\r\nprocedure TCollection.RemoveItem(Item: TCollectionItem);\r\n\r\nVar\r\n  I : Integer;\r\n\r\nbegin\r\n  Notify(Item,cnExtracting);\r\n  I:=FItems.IndexOfItem(Item,fromEnd);\r\n  If (I<>-1) then\r\n    FItems.Delete(I);\r\n  Item.FCollection:=Nil;\r\n  Changed;\r\nend;\r\n\r\n\r\nfunction TCollection.GetAttrCount: Integer;\r\nbegin\r\n  Result:=0;\r\nend;\r\n\r\n\r\nfunction TCollection.GetAttr(Index: Integer): string;\r\nbegin\r\n  Result:='';\r\n  if Index=0 then ;\r\nend;\r\n\r\n\r\nfunction TCollection.GetItemAttr(Index, ItemIndex: Integer): string;\r\nbegin\r\n  Result:=TCollectionItem(FItems.Items[ItemIndex]).DisplayName;\r\n  if Index=0 then ;\r\nend;\r\n\r\n\r\nfunction TCollection.GetEnumerator: TCollectionEnumerator;\r\nbegin\r\n  Result := TCollectionEnumerator.Create(Self);\r\nend;\r\n\r\n\r\nfunction TCollection.GetNamePath: string;\r\nvar o : TPersistent;\r\nbegin\r\n  o:=getowner;\r\n  if assigned(o) and (propname<>'') then\r\n     result:=o.getnamepath+'.'+propname\r\n   else\r\n     result:=classname;\r\nend;\r\n\r\n\r\nprocedure TCollection.Changed;\r\nbegin\r\n  if FUpdateCount=0 then\r\n    Update(Nil);\r\nend;\r\n\r\n\r\nfunction TCollection.GetItem(Index: Integer): TCollectionItem;\r\nbegin\r\n  Result:=TCollectionItem(FItems.Items[Index]);\r\nend;\r\n\r\n\r\nprocedure TCollection.SetItem(Index: Integer; Value: TCollectionItem);\r\nbegin\r\n  TCollectionItem(FItems.items[Index]).Assign(Value);\r\nend;\r\n\r\n\r\nprocedure TCollection.SetItemName(Item: TCollectionItem);\r\nbegin\r\n  if Item=nil then ;\r\nend;\r\n\r\nprocedure TCollection.Update(Item: TCollectionItem);\r\nbegin\r\n  if Item=nil then ;\r\nend;\r\n\r\n\r\nconstructor TCollection.Create(AItemClass: TCollectionItemClass);\r\nbegin\r\n  inherited create;\r\n  FItemClass:=AItemClass;\r\n  FItems:=TFpList.Create;\r\nend;\r\n\r\n\r\ndestructor TCollection.Destroy;\r\nbegin\r\n  FUpdateCount:=1; // Prevent OnChange\r\n  try\r\n    DoClear;\r\n  Finally\r\n    FUpdateCount:=0;\r\n  end;\r\n  if assigned(FItems) then\r\n    FItems.Destroy;\r\n  Inherited Destroy;\r\nend;\r\n\r\n\r\nfunction TCollection.Add: TCollectionItem;\r\nbegin\r\n  Result:=FItemClass.Create(Self);\r\nend;\r\n\r\n\r\nprocedure TCollection.Assign(Source: TPersistent);\r\nVar I : Longint;\r\nbegin\r\n  If Source is TCollection then\r\n    begin\r\n    Clear;\r\n    For I:=0 To TCollection(Source).Count-1 do\r\n     Add.Assign(TCollection(Source).Items[I]);\r\n    exit;\r\n    end\r\n  else\r\n    Inherited Assign(Source);\r\nend;\r\n\r\n\r\nprocedure TCollection.BeginUpdate;\r\nbegin\r\n  inc(FUpdateCount);\r\nend;\r\n\r\n\r\nprocedure TCollection.Clear;\r\nbegin\r\n  if FItems.Count=0 then\r\n    exit; // Prevent Changed\r\n  BeginUpdate;\r\n  try\r\n    DoClear;\r\n  finally\r\n    EndUpdate;\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TCollection.DoClear;\r\nvar\r\n  Item: TCollectionItem;\r\nbegin\r\n  While FItems.Count>0 do\r\n    begin\r\n    Item:=TCollectionItem(FItems.Last);\r\n    if Assigned(Item) then\r\n      Item.Destroy;\r\n    end;\r\nend;\r\n\r\n\r\nprocedure TCollection.EndUpdate;\r\nbegin\r\n  if FUpdateCount>0 then\r\n    dec(FUpdateCount);\r\n  if FUpdateCount=0 then\r\n    Changed;\r\nend;\r\n\r\n\r\nfunction TCollection.FindItemID(ID: Integer): TCollectionItem;\r\nVar\r\n          I : Longint;\r\nbegin\r\n  For I:=0 to Fitems.Count-1 do\r\n   begin\r\n     Result:=TCollectionItem(FItems.items[I]);\r\n     If Result.Id=Id then\r\n       exit;\r\n   end;\r\n  Result:=Nil;\r\nend;\r\n\r\n\r\nprocedure TCollection.Delete(Index: Integer);\r\nVar\r\n  Item : TCollectionItem;\r\nbegin\r\n  Item:=TCollectionItem(FItems[Index]);\r\n  Notify(Item,cnDeleting);\r\n  If assigned(Item) then\r\n    Item.Destroy;\r\nend;\r\n\r\n\r\nfunction TCollection.Insert(Index: Integer): TCollectionItem;\r\nbegin\r\n  Result:=Add;\r\n  Result.Index:=Index;\r\nend;\r\n\r\n\r\nprocedure TCollection.Notify(Item: TCollectionItem;Action: TCollectionNotification);\r\nbegin\r\n  if Item=nil then ;\r\n  if Action=cnAdded then ;\r\nend;\r\n\r\nprocedure TCollection.Sort(Const Compare : TCollectionSortCompare);\r\n\r\nbegin\r\n  BeginUpdate;\r\n  try\r\n    FItems.Sort(TListSortCompare(Compare));\r\n  Finally\r\n    EndUpdate;\r\n  end;\r\nend;\r\n\r\nprocedure TCollection.SortList(const Compare: TCollectionSortCompareFunc);\r\n\r\nbegin\r\n  BeginUpdate;\r\n  try\r\n    FItems.SortList(TListSortCompareFunc(Compare));\r\n  Finally\r\n    EndUpdate;\r\n  end;\r\nend;\r\n\r\nprocedure TCollection.Exchange(Const Index1, index2: integer);\r\n\r\nbegin\r\n  FItems.Exchange(Index1,Index2);\r\nend;\r\n\r\n\r\n{****************************************************************************}\r\n{*                             TOwnedCollection                             *}\r\n{****************************************************************************}\r\n\r\n\r\n\r\nConstructor TOwnedCollection.Create(AOwner: TPersistent; AItemClass: TCollectionItemClass);\r\n\r\nBegin\r\n  FOwner := AOwner;\r\n  inherited Create(AItemClass);\r\nend;\r\n\r\nFunction TOwnedCollection.GetOwner: TPersistent;\r\n\r\nbegin\r\n  Result:=FOwner;\r\nend;\r\n\r\n{****************************************************************************}\r\n{*                             TComponent                                   *}\r\n{****************************************************************************}\r\n\r\n\r\nfunction TComponent.GetComponent(AIndex: Integer): TComponent;\r\n\r\nbegin\r\n  If not assigned(FComponents) then\r\n    Result:=Nil\r\n  else\r\n    Result:=TComponent(FComponents.Items[Aindex]);\r\nend;\r\n\r\nfunction TComponent.GetComponentCount: Integer;\r\n\r\nbegin\r\n  If not assigned(FComponents) then\r\n    result:=0\r\n  else\r\n    Result:=FComponents.Count;\r\nend;\r\n\r\n\r\nfunction TComponent.GetComponentIndex: Integer;\r\n\r\nbegin\r\n  If Assigned(FOwner) and Assigned(FOwner.FComponents) then\r\n    Result:=FOWner.FComponents.IndexOf(Self)\r\n  else\r\n    Result:=-1;\r\nend;\r\n\r\n\r\nprocedure TComponent.Insert(AComponent: TComponent);\r\n\r\nbegin\r\n  If not assigned(FComponents) then\r\n    FComponents:=TFpList.Create;\r\n  FComponents.Add(AComponent);\r\n  AComponent.FOwner:=Self;\r\nend;\r\n\r\n\r\nprocedure TComponent.ReadLeft(AReader: TReader);\r\n\r\nbegin\r\n  FDesignInfo := (FDesignInfo and $ffff0000) or (AReader.ReadInteger and $ffff);\r\nend;\r\n\r\n\r\nprocedure TComponent.ReadTop(AReader: TReader);\r\n\r\nbegin\r\n  FDesignInfo := ((AReader.ReadInteger and $ffff) shl 16) or (FDesignInfo and $ffff);\r\nend;\r\n\r\n\r\nprocedure TComponent.Remove(AComponent: TComponent);\r\n\r\nbegin\r\n  AComponent.FOwner:=Nil;\r\n  If assigned(FCOmponents) then\r\n    begin\r\n    FComponents.Remove(AComponent);\r\n    IF FComponents.Count=0 then\r\n      begin\r\n      FComponents.Destroy;\r\n      FComponents:=Nil;\r\n      end;\r\n    end;\r\nend;\r\n\r\n\r\nprocedure TComponent.RemoveNotification(AComponent: TComponent);\r\n\r\nbegin\r\n  if FFreeNotifies<>nil then\r\n    begin\r\n    FFreeNotifies.Remove(AComponent);\r\n    if FFreeNotifies.Count=0 then\r\n      begin\r\n      FFreeNotifies.Destroy;\r\n      FFreeNotifies:=nil;\r\n      Exclude(FComponentState,csFreeNotification);\r\n      end;\r\n    end;\r\nend;\r\n\r\n\r\nprocedure TComponent.SetComponentIndex(Value: Integer);\r\n\r\nVar Temp,Count : longint;\r\n\r\nbegin\r\n  If Not assigned(Fowner) then exit;\r\n  Temp:=getcomponentindex;\r\n  If temp<0 then exit;\r\n  If value<0 then value:=0;\r\n  Count:=Fowner.FComponents.Count;\r\n  If Value>=Count then value:=count-1;\r\n  If Value<>Temp then\r\n    begin\r\n    FOWner.FComponents.Delete(Temp);\r\n    FOwner.FComponents.Insert(Value,Self);\r\n    end;\r\nend;\r\n\r\n\r\nprocedure TComponent.ChangeName(const NewName: TComponentName);\r\n\r\nbegin\r\n  FName:=NewName;\r\nend;\r\n\r\n\r\nprocedure TComponent.DefineProperties(Filer: TFiler);\r\n\r\nvar\r\n  Temp: LongInt;\r\n  Ancestor: TComponent;\r\nbegin\r\n  Ancestor := TComponent(Filer.Ancestor);\r\n  if Assigned(Ancestor) then\r\n    Temp := Ancestor.FDesignInfo\r\n  else\r\n    Temp := 0;\r\n  Filer.DefineProperty('Left', @ReadLeft, @WriteLeft, (FDesignInfo and $ffff) <> (Temp and $ffff));\r\n  Filer.DefineProperty('Top', @ReadTop, @WriteTop, (FDesignInfo and $ffff0000) <> (Temp and $ffff0000));\r\nend;\r\n\r\n\r\nprocedure TComponent.GetChildren(Proc: TGetChildProc; Root: TComponent);\r\n\r\nbegin\r\n  // Does nothing.\r\n  if Proc=nil then ;\r\n  if Root=nil then ;\r\nend;\r\n\r\n\r\nfunction TComponent.GetChildOwner: TComponent;\r\n\r\nbegin\r\n Result:=Nil;\r\nend;\r\n\r\n\r\nfunction TComponent.GetChildParent: TComponent;\r\n\r\nbegin\r\n  Result:=Self;\r\nend;\r\n\r\n\r\nfunction TComponent.GetNamePath: string;\r\n\r\nbegin\r\n  Result:=FName;\r\nend;\r\n\r\n\r\nfunction TComponent.GetOwner: TPersistent;\r\n\r\nbegin\r\n  Result:=FOwner;\r\nend;\r\n\r\n\r\nprocedure TComponent.Loaded;\r\n\r\nbegin\r\n  Exclude(FComponentState,csLoading);\r\nend;\r\n\r\nprocedure TComponent.Loading;\r\n\r\nbegin\r\n  Include(FComponentState,csLoading);\r\nend;\r\n\r\nprocedure TComponent.SetWriting(Value: Boolean);\r\nbegin\r\n  If Value then\r\n    Include(FComponentState,csWriting)\r\n  else\r\n    Exclude(FComponentState,csWriting);\r\nend;\r\n\r\nprocedure TComponent.SetReading(Value: Boolean);\r\nbegin\r\n  If Value then\r\n    Include(FComponentState,csReading)\r\n  else\r\n    Exclude(FComponentState,csReading);\r\nend;\r\n\r\n\r\nprocedure TComponent.Notification(AComponent: TComponent; Operation: TOperation);\r\n\r\nVar\r\n  C : Longint;\r\n\r\nbegin\r\n  If (Operation=opRemove) then\r\n    RemoveFreeNotification(AComponent);\r\n  If Not assigned(FComponents) then\r\n    exit;\r\n  C:=FComponents.Count-1;\r\n  While (C>=0) do\r\n    begin\r\n    TComponent(FComponents.Items[C]).Notification(AComponent,Operation);\r\n    Dec(C);\r\n    if C>=FComponents.Count then\r\n      C:=FComponents.Count-1;\r\n    end;\r\nend;\r\n\r\n\r\nprocedure TComponent.PaletteCreated;\r\nbegin\r\nend;\r\n\r\nprocedure TComponent.ReadState(Reader: TReader);\r\n\r\nbegin\r\n  Reader.ReadData(Self);\r\nend;\r\n\r\n\r\nprocedure TComponent.SetAncestor(Value: Boolean);\r\n\r\nVar Runner : Longint;\r\n\r\nbegin\r\n  If Value then\r\n    Include(FComponentState,csAncestor)\r\n  else\r\n    Exclude(FCOmponentState,csAncestor);\r\n  if Assigned(FComponents) then\r\n    For Runner:=0 To FComponents.Count-1 do\r\n      TComponent(FComponents.Items[Runner]).SetAncestor(Value);\r\nend;\r\n\r\n\r\nprocedure TComponent.SetDesigning(Value: Boolean; SetChildren: Boolean);\r\n\r\nVar Runner : Longint;\r\n\r\nbegin\r\n  If Value then\r\n    Include(FComponentState,csDesigning)\r\n  else\r\n    Exclude(FComponentState,csDesigning);\r\n  if Assigned(FComponents) and SetChildren then\r\n    For Runner:=0 To FComponents.Count - 1 do\r\n      TComponent(FComponents.items[Runner]).SetDesigning(Value);\r\nend;\r\n\r\nprocedure TComponent.SetDesignInstance(Value: Boolean);\r\n\r\nbegin\r\n  If Value then\r\n    Include(FComponentState,csDesignInstance)\r\n  else\r\n    Exclude(FComponentState,csDesignInstance);\r\nend;\r\n\r\nprocedure TComponent.SetInline(Value: Boolean);\r\n\r\nbegin\r\n  If Value then\r\n    Include(FComponentState,csInline)\r\n  else\r\n    Exclude(FComponentState,csInline);\r\nend;\r\n\r\n\r\nprocedure TComponent.SetName(const NewName: TComponentName);\r\n\r\nbegin\r\n  If FName=NewName then exit;\r\n  If (NewName<>'') and not IsValidIdent(NewName) then\r\n    Raise EComponentError.CreateFmt(SInvalidName,[NewName]);\r\n  If Assigned(FOwner) Then\r\n    FOwner.ValidateRename(Self,FName,NewName)\r\n  else\r\n    ValidateRename(Nil,FName,NewName);\r\n  SetReference(False);\r\n  ChangeName(NewName);\r\n  SetReference(True);\r\nend;\r\n\r\n\r\nprocedure TComponent.SetChildOrder(Child: TComponent; Order: Integer);\r\n\r\nbegin\r\n  // does nothing\r\n  if Child=nil then ;\r\n  if Order=0 then ;\r\nend;\r\n\r\n\r\nprocedure TComponent.SetParentComponent(Value: TComponent);\r\n\r\nbegin\r\n  // Does nothing\r\n  if Value=nil then ;\r\nend;\r\n\r\n\r\nprocedure TComponent.Updating;\r\n\r\nbegin\r\n  Include (FComponentState,csUpdating);\r\nend;\r\n\r\n\r\nprocedure TComponent.Updated;\r\n\r\nbegin\r\n  Exclude(FComponentState,csUpdating);\r\nend;\r\n\r\n\r\nprocedure TComponent.ValidateRename(AComponent: TComponent; const CurName, NewName: string);\r\n\r\nbegin\r\n//!! This contradicts the Delphi manual.\r\n  If (AComponent<>Nil) and (CompareText(CurName,NewName)<>0) and (AComponent.Owner = Self) and\r\n     (FindComponent(NewName)<>Nil) then\r\n      raise EComponentError.Createfmt(SDuplicateName,[newname]);\r\n  If (csDesigning in FComponentState) and (FOwner<>Nil) then\r\n    FOwner.ValidateRename(AComponent,Curname,Newname);\r\nend;\r\n\r\nProcedure TComponent.SetReference(Enable: Boolean);\r\n\r\nvar\r\n  aField, aValue, aOwner : Pointer;\r\n\r\nbegin\r\n  if Name='' then\r\n    exit;\r\n  if Assigned(Owner) then\r\n  begin\r\n    aOwner:=Owner; // so as not to depend on low-level names\r\n    aField := Owner.FieldAddress(Name);\r\n    if Assigned(aField) then\r\n      begin\r\n      if Enable then\r\n        aValue:= Self\r\n      else\r\n        aValue := nil;\r\n      TJSObject(aOwner)[String(TJSObject(aField)['name'])]:=aValue;\r\n      end;\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TComponent.WriteLeft(AWriter: TWriter);\r\n\r\nbegin\r\n  AWriter.WriteInteger(FDesignInfo and $ffff);\r\nend;\r\n\r\n\r\nprocedure TComponent.WriteTop(AWriter: TWriter);\r\n\r\nbegin\r\n  AWriter.WriteInteger((FDesignInfo shr 16) and $ffff);\r\nend;\r\n\r\n\r\nprocedure TComponent.ValidateContainer(AComponent: TComponent);\r\n\r\nbegin\r\n  AComponent.ValidateInsert(Self);\r\nend;\r\n\r\n\r\nprocedure TComponent.ValidateInsert(AComponent: TComponent);\r\n\r\nbegin\r\n  // Does nothing.\r\n  if AComponent=nil then ;\r\nend;\r\n\r\nfunction TComponent._AddRef: Integer;\r\nbegin\r\n  Result:=-1;\r\nend;\r\n\r\nfunction TComponent._Release: Integer;\r\nbegin\r\n  Result:=-1;\r\nend;\r\n\r\n\r\nconstructor TComponent.Create(AOwner: TComponent);\r\n\r\nbegin\r\n  FComponentStyle:=[csInheritable];\r\n  If Assigned(AOwner) then AOwner.InsertComponent(Self);\r\nend;\r\n\r\n\r\ndestructor TComponent.Destroy;\r\n\r\nVar\r\n  I : Integer;\r\n  C : TComponent;\r\n\r\nbegin\r\n  Destroying;\r\n  If Assigned(FFreeNotifies) then\r\n    begin\r\n    I:=FFreeNotifies.Count-1;\r\n    While (I>=0) do\r\n      begin\r\n      C:=TComponent(FFreeNotifies.Items[I]);\r\n      // Delete, so one component is not notified twice, if it is owned.\r\n      FFreeNotifies.Delete(I);\r\n      C.Notification (self,opRemove);\r\n      If (FFreeNotifies=Nil) then\r\n        I:=0\r\n      else if (I>FFreeNotifies.Count) then\r\n        I:=FFreeNotifies.Count;\r\n      dec(i);\r\n      end;\r\n    FreeAndNil(FFreeNotifies);\r\n    end;\r\n  DestroyComponents;\r\n  If FOwner<>Nil Then FOwner.RemoveComponent(Self);\r\n  inherited destroy;\r\nend;\r\n\r\nprocedure TComponent.AfterLoadDFMValues;\r\nbegin\r\n  EndUpdate;\r\n  Loaded;\r\nend;\r\n\r\n\r\nprocedure TComponent.BeforeDestruction;\r\nbegin\r\n  if not(csDestroying in FComponentstate) then\r\n    Destroying;\r\nend;\r\n\r\nprocedure TComponent.BeforeLoadDFMValues;\r\nbegin\r\n  if not(csDesigning in ComponentState) then\r\n    Loading;\r\n  BeginUpdate;\r\nend;\r\n\r\nprocedure TComponent.BeginUpdate;\r\nbegin\r\nend;\r\n\r\nprocedure TComponent.DestroyComponents;\r\n\r\nVar acomponent: TComponent;\r\n\r\nbegin\r\n  While assigned(FComponents) do\r\n    begin\r\n    aComponent:=TComponent(FComponents.Last);\r\n    Remove(aComponent);\r\n    Acomponent.Destroy;\r\n    end;\r\nend;\r\n\r\n\r\nprocedure TComponent.Destroying;\r\n\r\nVar Runner : longint;\r\n\r\nbegin\r\n  If csDestroying in FComponentstate Then Exit;\r\n  include (FComponentState,csDestroying);\r\n  If Assigned(FComponents) then\r\n    for Runner:=0 to FComponents.Count-1 do\r\n      TComponent(FComponents.Items[Runner]).Destroying;\r\nend;\r\n\r\nprocedure TComponent.EndUpdate;\r\nbegin\r\nend;\r\n\r\nfunction TComponent.QueryInterface(const IID: TGUID; out Obj): HRESULT;\r\nbegin\r\n  if GetInterface(IID, Obj) then\r\n    Result := S_OK\r\n  else\r\n    Result := E_NOINTERFACE;\r\n\r\nend;\r\n\r\nprocedure TComponent.WriteState(Writer: TWriter);\r\nbegin\r\n  Writer.WriteComponentData(Self);\r\nend;\r\n\r\n\r\nfunction TComponent.FindComponent(const AName: string): TComponent;\r\n\r\nVar I : longint;\r\n\r\nbegin\r\n  Result:=Nil;\r\n  If (AName='') or Not assigned(FComponents) then exit;\r\n  For i:=0 to FComponents.Count-1 do\r\n    if (CompareText(TComponent(FComponents[I]).Name,AName)=0) then\r\n      begin\r\n      Result:=TComponent(FComponents.Items[I]);\r\n      exit;\r\n      end;\r\nend;\r\n\r\n\r\nprocedure TComponent.FreeNotification(AComponent: TComponent);\r\n\r\nbegin\r\n  If (Owner<>Nil) and (AComponent=Owner) then exit;\r\n  If not (Assigned(FFreeNotifies)) then\r\n    FFreeNotifies:=TFpList.Create;\r\n  If FFreeNotifies.IndexOf(AComponent)=-1 then\r\n    begin\r\n    FFreeNotifies.Add(AComponent);\r\n    AComponent.FreeNotification (self);\r\n    end;\r\nend;\r\n\r\n\r\nprocedure TComponent.RemoveFreeNotification(AComponent: TComponent);\r\nbegin\r\n  RemoveNotification(AComponent);\r\n  AComponent.RemoveNotification (self);\r\nend;\r\n\r\n\r\nfunction TComponent.GetParentComponent: TComponent;\r\n\r\nbegin\r\n  Result:=Nil;\r\nend;\r\n\r\n\r\nfunction TComponent.HasParent: Boolean;\r\n\r\nbegin\r\n  Result:=False;\r\nend;\r\n\r\n\r\nprocedure TComponent.InsertComponent(AComponent: TComponent);\r\n\r\nbegin\r\n  AComponent.ValidateContainer(Self);\r\n  ValidateRename(AComponent,'',AComponent.FName);\r\n  if AComponent.FOwner <> nil then\r\n    AComponent.FOwner.RemoveComponent(AComponent);\r\n  Insert(AComponent);\r\n  If csDesigning in FComponentState then\r\n    AComponent.SetDesigning(true);\r\n  Notification(AComponent,opInsert);\r\nend;\r\n\r\n\r\nprocedure TComponent.RemoveComponent(AComponent: TComponent);\r\n\r\nbegin\r\n  Notification(AComponent,opRemove);\r\n  Remove(AComponent);\r\n  Acomponent.Setdesigning(False);\r\n  ValidateRename(AComponent,AComponent.FName,'');\r\nend;\r\n\r\nprocedure TComponent.SetSubComponent(ASubComponent: Boolean);\r\nbegin\r\n  if ASubComponent then\r\n    Include(FComponentStyle, csSubComponent)\r\n  else\r\n    Exclude(FComponentStyle, csSubComponent);\r\nend;\r\n\r\nfunction TComponent.GetEnumerator: TComponentEnumerator;\r\nbegin\r\n  Result:=TComponentEnumerator.Create(Self);\r\nend;\r\n\r\nfunction TComponent.GetLeft: Integer;\r\nbegin\r\n  Result := FLeft;\r\nend;\r\n\r\nfunction TComponent.GetTop: Integer;\r\nbegin\r\n  Result := FTop;\r\nend;\r\n\r\nprocedure TComponent.SetLeft(AValue: Integer);\r\nbegin\r\n  FLeft := AValue;\r\nend;\r\n\r\nprocedure TComponent.SetTop(AValue: Integer);\r\nbegin\r\n  FTop := AValue;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  TStream\r\n  ---------------------------------------------------------------------}\r\n\r\nResourcestring\r\n  SStreamInvalidSeek = 'Seek is not implemented for class %s';\r\n  SStreamNoReading = 'Stream reading is not implemented for class %s';\r\n  SStreamNoWriting = 'Stream writing is not implemented for class %s';\r\n  SReadError = 'Could not read data from stream';\r\n  SWriteError = 'Could not write data to stream';\r\n  SMemoryStreamError = 'Could not allocate memory';\r\n  SerrInvalidStreamSize = 'Invalid Stream size';\r\n\r\nprocedure TStream.ReadNotImplemented;\r\nbegin\r\n  raise EStreamError.CreateFmt(SStreamNoReading, [ClassName]);\r\nend;\r\n\r\nprocedure TStream.WriteNotImplemented;\r\nbegin\r\n  raise EStreamError.CreateFmt(SStreamNoWriting, [ClassName]);\r\nend;\r\n\r\nfunction TStream.Read(var Buffer: TBytes; Count: Longint): Longint;\r\nbegin\r\n  Result:=Read(Buffer,0,Count);\r\nend;\r\n\r\n\r\n\r\nfunction TStream.Write(const Buffer: TBytes; Count: Longint): Longint;\r\nbegin\r\n  Result:=Self.Write(Buffer,0,Count);\r\nend;\r\n\r\n\r\n\r\nfunction TStream.GetPosition: NativeInt;\r\n\r\nbegin\r\n   Result:=Seek(0,soCurrent);\r\nend;\r\n\r\nprocedure TStream.SetPosition(const Pos: NativeInt);\r\n\r\nbegin\r\n   Seek(pos,soBeginning);\r\nend;\r\n\r\nprocedure TStream.SetSize64(const NewSize: NativeInt);\r\n\r\nbegin\r\n  // Required because can't use overloaded functions in properties\r\n  SetSize(NewSize);\r\nend;\r\n\r\nfunction TStream.GetSize: NativeInt;\r\n\r\nvar\r\n   p : NativeInt;\r\n\r\nbegin\r\n   p:=Seek(0,soCurrent);\r\n   GetSize:=Seek(0,soEnd);\r\n   Seek(p,soBeginning);\r\nend;\r\n\r\nprocedure TStream.SetSize(const NewSize: NativeInt);\r\n\r\nbegin\r\n  if NewSize<0 then\r\n    Raise EStreamError.Create(SerrInvalidStreamSize);\r\nend;\r\n\r\nprocedure TStream.Discard(const Count: NativeInt);\r\n\r\nconst\r\n  CSmallSize      =255;\r\n  CLargeMaxBuffer =32*1024; // 32 KiB\r\n\r\nvar\r\n  Buffer: TBytes;\r\n\r\nbegin\r\n  if Count=0 then\r\n    Exit;\r\n  if (Count<=CSmallSize) then\r\n    begin\r\n    SetLength(Buffer,CSmallSize);\r\n    ReadBuffer(Buffer,Count)\r\n    end\r\n  else\r\n    DiscardLarge(Count,CLargeMaxBuffer);\r\nend;\r\n\r\nprocedure TStream.DiscardLarge(Count: NativeInt; const MaxBufferSize: Longint);\r\n\r\nvar\r\n  Buffer: TBytes;\r\n\r\nbegin\r\n  if Count=0 then\r\n     Exit;\r\n  if Count>MaxBufferSize then\r\n    SetLength(Buffer,MaxBufferSize)\r\n  else\r\n    SetLength(Buffer,Count);\r\n  while (Count>=Length(Buffer)) do\r\n    begin\r\n    ReadBuffer(Buffer,Length(Buffer));\r\n    Dec(Count,Length(Buffer));\r\n    end;\r\n  if Count>0 then\r\n    ReadBuffer(Buffer,Count);\r\nend;\r\n\r\nprocedure TStream.InvalidSeek;\r\n\r\nbegin\r\n  raise EStreamError.CreateFmt(SStreamInvalidSeek, [ClassName]);\r\nend;\r\n\r\nprocedure TStream.FakeSeekForward(Offset: NativeInt;  const Origin: TSeekOrigin; const Pos: NativeInt);\r\n\r\nbegin\r\n  if Origin=soBeginning then\r\n     Dec(Offset,Pos);\r\n  if (Offset<0) or (Origin=soEnd) then\r\n    InvalidSeek;\r\n  if Offset>0 then\r\n    Discard(Offset);\r\n end;\r\n\r\nfunction TStream.ReadData({var} Buffer: TBytes; Count: NativeInt): NativeInt;\r\nbegin\r\n Result:=Read(Buffer,0,Count);\r\nend;\r\n\r\n\r\nfunction TStream.ReadMaxSizeData(Buffer : TBytes; aSize,aCount : NativeInt) : NativeInt;\r\n\r\nVar\r\n  CP : NativeInt;\r\n\r\nbegin\r\n  if aCount<=aSize then\r\n    Result:=read(Buffer,aCount)\r\n  else\r\n    begin\r\n    Result:=Read(Buffer,aSize);\r\n    CP:=Position;\r\n    Result:=Result+Seek(aCount-aSize,soCurrent)-CP;\r\n    end\r\nend;\r\n\r\nfunction TStream.WriteMaxSizeData(const Buffer : TBytes; aSize,aCount : NativeInt) : NativeInt;\r\nVar\r\n  CP : NativeInt;\r\n\r\nbegin\r\n  if aCount<=aSize then\r\n    Result:=Self.Write(Buffer,aCount)\r\n  else\r\n    begin\r\n    Result:=Self.Write(Buffer,aSize);\r\n    CP:=Position;\r\n    Result:=Result+Seek(aCount-aSize,soCurrent)-CP;\r\n    end\r\nend;\r\n\r\nprocedure TStream.WriteExactSizeData(const Buffer : TBytes; aSize, aCount: NativeInt);\r\nbegin\r\n  // Embarcadero docs mentions no exception. Does not seem very logical\r\n  WriteMaxSizeData(Buffer,aSize,ACount);\r\nend;\r\n\r\nprocedure TStream.ReadExactSizeData(Buffer : TBytes; aSize, aCount: NativeInt);\r\nbegin\r\n  if ReadMaxSizeData(Buffer,aSize,ACount)<>aCount then\r\n     Raise EReadError.Create(SReadError);\r\nend;\r\n\r\n\r\nfunction TStream.ReadData(var Buffer: Boolean): NativeInt;\r\n\r\nVar\r\n  B : Byte;\r\n\r\nbegin\r\n  Result:=ReadData(B,1);\r\n  if Result=1 then\r\n    Buffer:=B<>0;\r\nend;\r\n\r\nfunction TStream.ReadData(var Buffer: Boolean; Count: NativeInt): NativeInt;\r\n\r\nVar\r\n  B : TBytes;\r\n\r\nbegin\r\n  SetLength(B,Count);\r\n  Result:=ReadMaxSizeData(B,1,Count);\r\n  if Result>0 then\r\n    Buffer:=B[0]<>0\r\nend;\r\n\r\n\r\nfunction TStream.ReadData(var Buffer: WideChar): NativeInt;\r\nbegin\r\n  Result:=ReadData(Buffer,2);\r\nend;\r\n\r\nfunction TStream.ReadData(var Buffer: WideChar; Count: NativeInt): NativeInt;\r\n\r\nVar\r\n  W : Word;\r\n\r\nbegin\r\n  Result:=ReadData(W,Count);\r\n  if Result=2 then\r\n    Buffer:=WideChar(W);\r\nend;\r\n\r\nfunction TStream.ReadData(var Buffer: Int8): NativeInt;\r\nbegin\r\n  Result:=ReadData(Buffer,1);\r\nend;\r\n\r\nFunction TStream.MakeInt(B : TBytes; aSize : Integer; Signed : Boolean) : NativeInt;\r\n\r\nVar\r\n  Mem : TJSArrayBuffer;\r\n  A : TJSUInt8Array;\r\n  D : TJSDataView;\r\n  isLittle : Boolean;\r\n\r\nbegin\r\n  IsLittle:=(Endian=TEndian.Little);\r\n  Mem:=TJSArrayBuffer.New(Length(B));\r\n  A:=TJSUInt8Array.new(Mem);\r\n  A._set(B);\r\n  D:=TJSDataView.New(Mem);\r\n  if Signed then\r\n    case aSize of\r\n      1 : Result:=D.getInt8(0);\r\n      2 : Result:=D.getInt16(0,IsLittle);\r\n      4 : Result:=D.getInt32(0,IsLittle);\r\n      // Todo : fix sign\r\n      8 : Result:=Round(D.getFloat64(0,IsLittle));\r\n    end\r\n  else\r\n    case aSize of\r\n      1 : Result:=D.getUInt8(0);\r\n      2 : Result:=D.getUInt16(0,IsLittle);\r\n      4 : Result:=D.getUInt32(0,IsLittle);\r\n      8 : Result:=Round(D.getFloat64(0,IsLittle));\r\n    end\r\nend;\r\n\r\nfunction TStream.MakeBytes(B: NativeInt; aSize: Integer; Signed: Boolean): TBytes;\r\n\r\n\r\nVar\r\n  Mem : TJSArrayBuffer;\r\n  A : TJSUInt8Array;\r\n  D : TJSDataView;\r\n  isLittle : Boolean;\r\n\r\nbegin\r\n  IsLittle:=(Endian=TEndian.Little);\r\n  Mem:=TJSArrayBuffer.New(aSize);\r\n  D:=TJSDataView.New(Mem);\r\n  if Signed then\r\n    case aSize of\r\n      1 : D.setInt8(0,B);\r\n      2 : D.setInt16(0,B,IsLittle);\r\n      4 : D.setInt32(0,B,IsLittle);\r\n      8 : D.setFloat64(0,B,IsLittle);\r\n    end\r\n  else\r\n    case aSize of\r\n      1 : D.SetUInt8(0,B);\r\n      2 : D.SetUInt16(0,B,IsLittle);\r\n      4 : D.SetUInt32(0,B,IsLittle);\r\n      8 : D.setFloat64(0,B,IsLittle);\r\n    end;\r\n  SetLength(Result,aSize);\r\n  A:=TJSUInt8Array.new(Mem);\r\n  Result:=TMemoryStream.MemoryToBytes(A);\r\nend;\r\n\r\n\r\nfunction TStream.ReadData(var Buffer: Int8; Count: NativeInt): NativeInt;\r\n\r\nVar\r\n  B : TBytes;\r\nbegin\r\n  SetLength(B,Count);\r\n  Result:=ReadMaxSizeData(B,1,Count);\r\n  if Result>=1 then\r\n    Buffer:=MakeInt(B,1,True);\r\nend;\r\n\r\nfunction TStream.ReadData(var Buffer: UInt8): NativeInt;\r\nbegin\r\n  Result:=ReadData(Buffer,1);\r\nend;\r\n\r\nfunction TStream.ReadData(var Buffer: UInt8; Count: NativeInt): NativeInt;\r\nVar\r\n  B : TBytes;\r\nbegin\r\n  SetLength(B,Count);\r\n  Result:=ReadMaxSizeData(B,1,Count);\r\n  if Result>=1 then\r\n    Buffer:=MakeInt(B,1,False);\r\nend;\r\n\r\nfunction TStream.ReadData(var Buffer: Int16): NativeInt;\r\nbegin\r\n  Result:=ReadData(Buffer,2);\r\nend;\r\n\r\nfunction TStream.ReadData(var Buffer: Int16; Count: NativeInt): NativeInt;\r\nVar\r\n  B : TBytes;\r\nbegin\r\n  SetLength(B,Count);\r\n  Result:=ReadMaxSizeData(B,2,Count);\r\n  if Result>=2 then\r\n    Buffer:=MakeInt(B,2,True);\r\nend;\r\n\r\nfunction TStream.ReadData(var Buffer: UInt16): NativeInt;\r\nbegin\r\n  Result:=ReadData(Buffer,2);\r\nend;\r\n\r\nfunction TStream.ReadData(var Buffer: UInt16; Count: NativeInt): NativeInt;\r\nVar\r\n  B : TBytes;\r\nbegin\r\n  SetLength(B,Count);\r\n  Result:=ReadMaxSizeData(B,2,Count);\r\n  if Result>=2 then\r\n    Buffer:=MakeInt(B,2,False);\r\nend;\r\n\r\nfunction TStream.ReadData(var Buffer: Int32): NativeInt;\r\nbegin\r\n  Result:=ReadData(Buffer,4);\r\nend;\r\n\r\nfunction TStream.ReadData(var Buffer: Int32; Count: NativeInt): NativeInt;\r\nVar\r\n  B : TBytes;\r\nbegin\r\n  SetLength(B,Count);\r\n  Result:=ReadMaxSizeData(B,4,Count);\r\n  if Result>=4 then\r\n    Buffer:=MakeInt(B,4,True);\r\nend;\r\n\r\nfunction TStream.ReadData(var Buffer: UInt32): NativeInt;\r\nbegin\r\n  Result:=ReadData(Buffer,4);\r\nend;\r\n\r\nfunction TStream.ReadData(var Buffer: UInt32; Count: NativeInt): NativeInt;\r\n\r\nVar\r\n  B : TBytes;\r\nbegin\r\n  SetLength(B,Count);\r\n  Result:=ReadMaxSizeData(B,4,Count);\r\n  if Result>=4 then\r\n    Buffer:=MakeInt(B,4,False);\r\nend;\r\n\r\n\r\nfunction TStream.ReadData(var Buffer: NativeInt): NativeInt;\r\n\r\nbegin\r\n  Result:=ReadData(Buffer,8);\r\nend;\r\n\r\nfunction TStream.ReadData(var Buffer: NativeInt; Count: NativeInt): NativeInt;\r\n\r\nVar\r\n  B : TBytes;\r\n\r\nbegin\r\n  SetLength(B,Count);\r\n  Result:=ReadMaxSizeData(B,8,8);\r\n  if Result>=8 then\r\n    Buffer:=MakeInt(B,8,True);\r\nend;\r\n\r\nfunction TStream.ReadData(var Buffer: NativeLargeUInt): NativeInt;\r\nbegin\r\n  Result:=ReadData(Buffer,8);\r\nend;\r\n\r\nfunction TStream.ReadData(var Buffer: NativeLargeUInt; Count: NativeInt): NativeInt;\r\n\r\nVar\r\n  B : TBytes;\r\n  B1 : Integer;\r\nbegin\r\n  SetLength(B,Count);\r\n  Result:=ReadMaxSizeData(B,4,4);\r\n  if Result>=4 then\r\n    begin\r\n    B1:=MakeInt(B,4,False);\r\n    Result:=Result+ReadMaxSizeData(B,4,4);\r\n    Buffer:=MakeInt(B,4,False);\r\n    Buffer:=(Buffer shl 32) or B1;\r\n    end;\r\nend;\r\n\r\nfunction TStream.ReadData(var Buffer: Double): NativeInt;\r\nbegin\r\n  Result:=ReadData(Buffer,8);\r\nend;\r\n\r\nfunction TStream.ReadData(var Buffer: Double; Count: NativeInt): NativeInt;\r\n\r\nVar\r\n  B : TBytes;\r\n  Mem : TJSArrayBuffer;\r\n  A : TJSUInt8Array;\r\n  D : TJSDataView;\r\n\r\nbegin\r\n  SetLength(B,Count);\r\n  Result:=ReadMaxSizeData(B,8,Count);\r\n  if Result>=8 then\r\n    begin\r\n    Mem:=TJSArrayBuffer.New(8);\r\n    A:=TJSUInt8Array.new(Mem);\r\n    A._set(B);\r\n    D:=TJSDataView.New(Mem);\r\n    Buffer:=D.getFloat64(0);\r\n    end;\r\nend;\r\n\r\nprocedure TStream.ReadBuffer(var Buffer: TBytes; Count: NativeInt);\r\nbegin\r\n  ReadBuffer(Buffer,0,Count);\r\nend;\r\n\r\nprocedure TStream.ReadBuffer(var Buffer: TBytes; Offset, Count: NativeInt);\r\nbegin\r\n  if Read(Buffer,OffSet,Count)<>Count then\r\n    Raise EStreamError.Create(SReadError);\r\nend;\r\n\r\nprocedure TStream.ReadBufferData(var Buffer: Boolean);\r\nbegin\r\n  ReadBufferData(Buffer,1);\r\nend;\r\n\r\nprocedure TStream.ReadBufferData(var Buffer: Boolean; Count: NativeInt);\r\nbegin\r\n  if (ReadData(Buffer,Count)<>Count) then\r\n    Raise EStreamError.Create(SReadError);\r\nend;\r\n\r\nprocedure TStream.ReadBufferData(var Buffer: WideChar);\r\nbegin\r\n  ReadBufferData(Buffer,2);\r\nend;\r\n\r\nprocedure TStream.ReadBufferData(var Buffer: WideChar; Count: NativeInt);\r\nbegin\r\n  if (ReadData(Buffer,Count)<>Count) then\r\n    Raise EStreamError.Create(SReadError);\r\nend;\r\n\r\nprocedure TStream.ReadBufferData(var Buffer: Int8);\r\nbegin\r\n  ReadBufferData(Buffer,1);\r\nend;\r\n\r\nprocedure TStream.ReadBufferData(var Buffer: Int8; Count: NativeInt);\r\nbegin\r\n  if (ReadData(Buffer,Count)<>Count) then\r\n    Raise EStreamError.Create(SReadError);\r\nend;\r\n\r\nprocedure TStream.ReadBufferData(var Buffer: UInt8);\r\nbegin\r\n  ReadBufferData(Buffer,1);\r\nend;\r\n\r\nprocedure TStream.ReadBufferData(var Buffer: UInt8; Count: NativeInt);\r\nbegin\r\n  if (ReadData(Buffer,Count)<>Count) then\r\n    Raise EStreamError.Create(SReadError);\r\nend;\r\n\r\nprocedure TStream.ReadBufferData(var Buffer: Int16);\r\nbegin\r\n  ReadBufferData(Buffer,2);\r\nend;\r\n\r\nprocedure TStream.ReadBufferData(var Buffer: Int16; Count: NativeInt);\r\nbegin\r\n  if (ReadData(Buffer,Count)<>Count) then\r\n    Raise EStreamError.Create(SReadError);\r\nend;\r\n\r\nprocedure TStream.ReadBufferData(var Buffer: UInt16);\r\nbegin\r\n  ReadBufferData(Buffer,2);\r\nend;\r\n\r\nprocedure TStream.ReadBufferData(var Buffer: UInt16; Count: NativeInt);\r\nbegin\r\n  if (ReadData(Buffer,Count)<>Count) then\r\n    Raise EStreamError.Create(SReadError);\r\nend;\r\n\r\nprocedure TStream.ReadBufferData(var Buffer: Int32);\r\nbegin\r\n  ReadBufferData(Buffer,4);\r\nend;\r\n\r\nprocedure TStream.ReadBufferData(var Buffer: Int32; Count: NativeInt);\r\nbegin\r\n  if (ReadData(Buffer,Count)<>Count) then\r\n    Raise EStreamError.Create(SReadError);\r\nend;\r\n\r\nprocedure TStream.ReadBufferData(var Buffer: UInt32);\r\nbegin\r\n  ReadBufferData(Buffer,4);\r\nend;\r\n\r\nprocedure TStream.ReadBufferData(var Buffer: UInt32; Count: NativeInt);\r\nbegin\r\n  if (ReadData(Buffer,Count)<>Count) then\r\n    Raise EStreamError.Create(SReadError);\r\nend;\r\n\r\nprocedure TStream.ReadBufferData(var Buffer: NativeLargeInt);\r\nbegin\r\n  ReadBufferData(Buffer,8)\r\nend;\r\n\r\nprocedure TStream.ReadBufferData(var Buffer: NativeLargeInt; Count: NativeInt);\r\nbegin\r\n  if (ReadData(Buffer,Count)<>Count) then\r\n    Raise EStreamError.Create(SReadError);\r\nend;\r\n\r\nprocedure TStream.ReadBufferData(var Buffer: NativeLargeUInt);\r\nbegin\r\n  ReadBufferData(Buffer,8);\r\nend;\r\n\r\nprocedure TStream.ReadBufferData(var Buffer: NativeLargeUInt; Count: NativeInt);\r\nbegin\r\n  if (ReadData(Buffer,Count)<>Count) then\r\n    Raise EStreamError.Create(SReadError);\r\nend;\r\n\r\n\r\nprocedure TStream.ReadBufferData(var Buffer: Double);\r\nbegin\r\n  ReadBufferData(Buffer,8);\r\nend;\r\n\r\nprocedure TStream.ReadBufferData(var Buffer: Double; Count: NativeInt);\r\nbegin\r\n  if (ReadData(Buffer,Count)<>Count) then\r\n    Raise EStreamError.Create(SReadError);\r\nend;\r\n\r\nprocedure TStream.WriteBuffer(const Buffer: TBytes; Count: NativeInt);\r\nbegin\r\n  WriteBuffer(Buffer,0,Count);\r\nend;\r\n\r\nprocedure TStream.WriteBuffer(const Buffer: TBytes; Offset, Count: NativeInt);\r\nbegin\r\n  if Self.Write(Buffer,Offset,Count)<>Count then\r\n     Raise EStreamError.Create(SWriteError);\r\nend;\r\n\r\nfunction TStream.WriteData(const Buffer: TBytes; Count: NativeInt): NativeInt;\r\nbegin\r\n  Result:=Self.Write(Buffer, 0, Count);\r\nend;\r\n\r\nfunction TStream.WriteData(const Buffer: Boolean): NativeInt;\r\nbegin\r\n  Result:=WriteData(Buffer,1);\r\nend;\r\n\r\nfunction TStream.WriteData(const Buffer: Boolean; Count: NativeInt): NativeInt;\r\n\r\nVar\r\n  B : Int8;\r\n\r\nbegin\r\n  B:=Ord(Buffer);\r\n  Result:=WriteData(B,Count);\r\nend;\r\n\r\nfunction TStream.WriteData(const Buffer: WideChar): NativeInt;\r\n\r\nbegin\r\n  Result:=WriteData(Buffer,2);\r\nend;\r\n\r\nfunction TStream.WriteData(const Buffer: WideChar; Count: NativeInt): NativeInt;\r\nVar\r\n  U : UInt16;\r\nbegin\r\n  U:=Ord(Buffer);\r\n  Result:=WriteData(U,Count);\r\nend;\r\n\r\nfunction TStream.WriteData(const Buffer: Int8): NativeInt;\r\n\r\nbegin\r\n  Result:=WriteData(Buffer,1);\r\nend;\r\n\r\nfunction TStream.WriteData(const Buffer: Int8; Count: NativeInt): NativeInt;\r\nbegin\r\n  Result:=WriteMaxSizeData(MakeBytes(Buffer,1,True),1,Count);\r\nend;\r\n\r\nfunction TStream.WriteData(const Buffer: UInt8): NativeInt;\r\nbegin\r\n  Result:=WriteData(Buffer,1);\r\nend;\r\n\r\nfunction TStream.WriteData(const Buffer: UInt8; Count: NativeInt): NativeInt;\r\nbegin\r\n  Result:=WriteMaxSizeData(MakeBytes(Buffer,1,False),1,Count);\r\nend;\r\n\r\nfunction TStream.WriteData(const Buffer: Int16): NativeInt;\r\nbegin\r\n  Result:=WriteData(Buffer,2);\r\nend;\r\n\r\nfunction TStream.WriteData(const Buffer: Int16; Count: NativeInt): NativeInt;\r\nbegin\r\n  Result:=WriteMaxSizeData(MakeBytes(Buffer,2,True),2,Count);\r\nend;\r\n\r\nfunction TStream.WriteData(const Buffer: UInt16): NativeInt;\r\nbegin\r\n  Result:=WriteData(Buffer,2);\r\nend;\r\n\r\nfunction TStream.WriteData(const Buffer: UInt16; Count: NativeInt): NativeInt;\r\nbegin\r\n  Result:=WriteMaxSizeData(MakeBytes(Buffer,2,True),2,Count);\r\nend;\r\n\r\nfunction TStream.WriteData(const Buffer: Int32): NativeInt;\r\nbegin\r\n  Result:=WriteData(Buffer,4);\r\nend;\r\n\r\nfunction TStream.WriteData(const Buffer: Int32; Count: NativeInt): NativeInt;\r\nbegin\r\n  Result:=WriteMaxSizeData(MakeBytes(Buffer,4,True),4,Count);\r\nend;\r\n\r\nfunction TStream.WriteData(const Buffer: UInt32): NativeInt;\r\nbegin\r\n  Result:=WriteData(Buffer,4);\r\nend;\r\n\r\nfunction TStream.WriteData(const Buffer: UInt32; Count: NativeInt): NativeInt;\r\nbegin\r\n  Result:=WriteMaxSizeData(MakeBytes(Buffer,4,False),4,Count);\r\nend;\r\n\r\nfunction TStream.WriteData(const Buffer: NativeLargeInt): NativeInt;\r\nbegin\r\n  Result:=WriteData(Buffer,8);\r\nend;\r\n\r\nfunction TStream.WriteData(const Buffer: NativeLargeInt; Count: NativeInt): NativeInt;\r\nbegin\r\n  Result:=WriteMaxSizeData(MakeBytes(Buffer,8,True),8,Count);\r\nend;\r\n\r\nfunction TStream.WriteData(const Buffer: NativeLargeUInt): NativeInt;\r\nbegin\r\n  Result:=WriteData(Buffer,8);\r\nend;\r\n\r\nfunction TStream.WriteData(const Buffer: NativeLargeUInt; Count: NativeInt): NativeInt;\r\nbegin\r\n  Result:=WriteMaxSizeData(MakeBytes(Buffer,8,False),8,Count);\r\nend;\r\n\r\nfunction TStream.WriteData(const Buffer: Double): NativeInt;\r\nbegin\r\n  Result:=WriteData(Buffer,8);\r\nend;\r\n\r\nfunction TStream.WriteData(const Buffer: Double; Count: NativeInt): NativeInt;\r\n\r\nVar\r\n  Mem : TJSArrayBuffer;\r\n  A : TJSUint8array;\r\n  D : TJSDataview;\r\n  B : TBytes;\r\n  I : Integer;\r\n\r\nbegin\r\n  Mem:=TJSArrayBuffer.New(8);\r\n  D:=TJSDataView.new(Mem);\r\n  D.setFloat64(0,Buffer);\r\n  SetLength(B,8);\r\n  A:=TJSUint8array.New(Mem);\r\n  For I:=0 to 7 do\r\n    B[i]:=A[i];\r\n  Result:=WriteMaxSizeData(B,8,Count);\r\nend;\r\n\r\n\r\nprocedure TStream.WriteBufferData(Buffer: Int32);\r\nbegin\r\n  WriteBufferData(Buffer,4);\r\nend;\r\n\r\nprocedure TStream.WriteBufferData(Buffer: Int32; Count: NativeInt);\r\nbegin\r\n  if (WriteData(Buffer,Count)<>Count) then\r\n    Raise EStreamError.Create(SWriteError);\r\nend;\r\n\r\nprocedure TStream.WriteBufferData(Buffer: Boolean);\r\nbegin\r\n  WriteBufferData(Buffer,1);\r\nend;\r\n\r\nprocedure TStream.WriteBufferData(Buffer: Boolean; Count: NativeInt);\r\nbegin\r\n  if (WriteData(Buffer,Count)<>Count) then\r\n    Raise EStreamError.Create(SWriteError);\r\nend;\r\n\r\nprocedure TStream.WriteBufferData(Buffer: WideChar);\r\nbegin\r\n  WriteBufferData(Buffer,2);\r\nend;\r\n\r\nprocedure TStream.WriteBufferData(Buffer: WideChar; Count: NativeInt);\r\nbegin\r\n  if (WriteData(Buffer,Count)<>Count) then\r\n    Raise EStreamError.Create(SWriteError);\r\nend;\r\n\r\nprocedure TStream.WriteBufferData(Buffer: Int8);\r\nbegin\r\n  WriteBufferData(Buffer,1);\r\nend;\r\n\r\nprocedure TStream.WriteBufferData(Buffer: Int8; Count: NativeInt);\r\nbegin\r\n  if (WriteData(Buffer,Count)<>Count) then\r\n    Raise EStreamError.Create(SWriteError);\r\nend;\r\n\r\nprocedure TStream.WriteBufferData(Buffer: UInt8);\r\nbegin\r\n  WriteBufferData(Buffer,1);\r\nend;\r\n\r\nprocedure TStream.WriteBufferData(Buffer: UInt8; Count: NativeInt);\r\nbegin\r\n  if (WriteData(Buffer,Count)<>Count) then\r\n    Raise EStreamError.Create(SWriteError);\r\nend;\r\n\r\nprocedure TStream.WriteBufferData(Buffer: Int16);\r\nbegin\r\n  WriteBufferData(Buffer,2);\r\nend;\r\n\r\nprocedure TStream.WriteBufferData(Buffer: Int16; Count: NativeInt);\r\nbegin\r\n  if (WriteData(Buffer,Count)<>Count) then\r\n    Raise EStreamError.Create(SWriteError);\r\nend;\r\n\r\nprocedure TStream.WriteBufferData(Buffer: UInt16);\r\nbegin\r\n  WriteBufferData(Buffer,2);\r\nend;\r\n\r\nprocedure TStream.WriteBufferData(Buffer: UInt16; Count: NativeInt);\r\nbegin\r\n  if (WriteData(Buffer,Count)<>Count) then\r\n    Raise EStreamError.Create(SWriteError);\r\nend;\r\n\r\nprocedure TStream.WriteBufferData(Buffer: UInt32);\r\nbegin\r\n  WriteBufferData(Buffer,4);\r\nend;\r\n\r\nprocedure TStream.WriteBufferData(Buffer: UInt32; Count: NativeInt);\r\nbegin\r\n  if (WriteData(Buffer,Count)<>Count) then\r\n    Raise EStreamError.Create(SWriteError);\r\nend;\r\n\r\nprocedure TStream.WriteBufferData(Buffer: NativeInt);\r\nbegin\r\n  WriteBufferData(Buffer,8);\r\nend;\r\n\r\nprocedure TStream.WriteBufferData(Buffer: NativeInt; Count: NativeInt);\r\nbegin\r\n  if (WriteData(Buffer,Count)<>Count) then\r\n    Raise EStreamError.Create(SWriteError);\r\nend;\r\n\r\nprocedure TStream.WriteBufferData(Buffer: NativeLargeUInt);\r\nbegin\r\n  WriteBufferData(Buffer,8);\r\nend;\r\n\r\nprocedure TStream.WriteBufferData(Buffer: NativeLargeUInt; Count: NativeInt);\r\nbegin\r\n  if (WriteData(Buffer,Count)<>Count) then\r\n    Raise EStreamError.Create(SWriteError);\r\nend;\r\n\r\nprocedure TStream.WriteBufferData(Buffer: Double);\r\nbegin\r\n  WriteBufferData(Buffer,8);\r\nend;\r\n\r\nprocedure TStream.WriteBufferData(Buffer: Double; Count: NativeInt);\r\nbegin\r\n  if (WriteData(Buffer,Count)<>Count) then\r\n    Raise EStreamError.Create(SWriteError);\r\nend;\r\n\r\n\r\n\r\nfunction TStream.CopyFrom(Source: TStream; Count: NativeInt): NativeInt;\r\n\r\nvar\r\n   Buffer: TBytes;\r\n   BufferSize, i: LongInt;\r\n\r\nconst\r\n   MaxSize = $20000;\r\nbegin\r\n   Result:=0;\r\n   if Count=0 then\r\n     Source.Position:=0;   // This WILL fail for non-seekable streams...\r\n   BufferSize:=MaxSize;\r\n   if (Count>0) and (Count<BufferSize) then\r\n     BufferSize:=Count;    // do not allocate more than needed\r\n   SetLength(Buffer,BufferSize);\r\n   if Count=0 then\r\n     repeat\r\n       i:=Source.Read(Buffer,BufferSize);\r\n       if i>0 then\r\n         WriteBuffer(Buffer,i);\r\n       Inc(Result,i);\r\n     until i<BufferSize\r\n   else\r\n     while Count>0 do\r\n       begin\r\n       if Count>BufferSize then\r\n         i:=BufferSize\r\n       else\r\n         i:=Count;\r\n       Source.ReadBuffer(Buffer,i);\r\n       WriteBuffer(Buffer,i);\r\n       Dec(count,i);\r\n       Inc(Result,i);\r\n       end;\r\nend;\r\n\r\nfunction TStream.ReadComponent(Instance: TComponent): TComponent;\r\n\r\nvar\r\n  Reader: TReader;\r\n\r\nbegin\r\n  Reader := TReader.Create(Self);\r\n  try\r\n    Result := Reader.ReadRootComponent(Instance);\r\n  finally\r\n    Reader.Free;\r\n  end;\r\nend;\r\n\r\nfunction TStream.ReadComponentRes(Instance: TComponent): TComponent;\r\n\r\nbegin\r\n  ReadResHeader;\r\n  Result := ReadComponent(Instance);\r\nend;\r\n\r\nprocedure TStream.WriteComponent(Instance: TComponent);\r\n\r\nbegin\r\n  WriteDescendent(Instance, nil);\r\nend;\r\n\r\nprocedure TStream.WriteComponentRes(const ResName: string; Instance: TComponent);\r\n\r\nbegin\r\n  WriteDescendentRes(ResName, Instance, nil);\r\nend;\r\n\r\nprocedure TStream.WriteDescendent(Instance, Ancestor: TComponent);\r\n\r\nvar\r\n  Driver : TAbstractObjectWriter;\r\n  Writer : TWriter;\r\n\r\nbegin\r\n  Driver := TBinaryObjectWriter.Create(Self);\r\n  Try\r\n    Writer := TWriter.Create(Driver);\r\n    Try\r\n      Writer.WriteDescendent(Instance, Ancestor);\r\n    Finally\r\n      Writer.Destroy;\r\n    end;\r\n  Finally\r\n    Driver.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TStream.WriteDescendentRes(const ResName: string; Instance, Ancestor: TComponent);\r\n\r\nvar\r\n  FixupInfo: Longint;\r\n\r\nbegin\r\n  { Write a resource header }\r\n  WriteResourceHeader(ResName, FixupInfo);\r\n  { Write the instance itself }\r\n  WriteDescendent(Instance, Ancestor);\r\n  { Insert the correct resource size into the resource header }\r\n  FixupResourceHeader(FixupInfo);\r\nend;\r\n\r\n\r\nprocedure TStream.WriteResourceHeader(const ResName: string; {!!!: out} var FixupInfo: Longint);\r\n  var\r\n    ResType, Flags : word;\r\n    B : Byte;\r\n    I : Integer;\r\n\r\n  begin\r\n     ResType:=Word($000A);\r\n     Flags:=Word($1030);\r\n     { Note: This is a Windows 16 bit resource }\r\n     { Numeric resource type }\r\n     WriteByte($ff);\r\n     { Application defined data }\r\n     WriteWord(ResType);\r\n     { write the name as asciiz }\r\n     For I:=1 to Length(ResName) do\r\n        begin\r\n        B:=Ord(ResName[i]);\r\n        WriteByte(B);\r\n        end;\r\n     WriteByte(0);\r\n     { Movable, Pure and Discardable }\r\n     WriteWord(Flags);\r\n     { Placeholder for the resource size }\r\n     WriteDWord(0);\r\n     { Return current stream position so that the resource size can be\r\n       inserted later }\r\n     FixupInfo := Position;\r\n  end;\r\n\r\nprocedure TStream.FixupResourceHeader(FixupInfo: Longint);\r\n\r\nvar\r\n   ResSize,TmpResSize : Longint;\r\n\r\nbegin\r\n\r\n  ResSize := Position - FixupInfo;\r\n  TmpResSize := longword(ResSize);\r\n\r\n  { Insert the correct resource size into the placeholder written by\r\n    WriteResourceHeader }\r\n  Position := FixupInfo - 4;\r\n  WriteDWord(TmpResSize);\r\n  { Seek back to the end of the resource }\r\n  Position := FixupInfo + ResSize;\r\n\r\nend;\r\n\r\nprocedure TStream.ReadResHeader;\r\n  var\r\n    ResType, Flags : word;\r\n  begin\r\n     try\r\n       { Note: This is a Windows 16 bit resource }\r\n       { application specific resource ? }\r\n       if ReadByte<>$ff then\r\n         raise EInvalidImage.Create(SInvalidImage);\r\n       ResType:=ReadWord;\r\n       if ResType<>$000a then\r\n         raise EInvalidImage.Create(SInvalidImage);\r\n       { read name }\r\n       while ReadByte<>0 do\r\n         ;\r\n       { check the access specifier }\r\n       Flags:=ReadWord;\r\n       if Flags<>$1030 then\r\n         raise EInvalidImage.Create(SInvalidImage);\r\n       { ignore the size }\r\n       ReadDWord;\r\n     except\r\n       on EInvalidImage do\r\n         raise;\r\n       else\r\n         raise EInvalidImage.create(SInvalidImage);\r\n     end;\r\n  end;\r\n\r\n\r\nfunction TStream.ReadByte : Byte;\r\n\r\nbegin\r\n  ReadBufferData(Result,1);\r\nend;\r\n\r\nfunction TStream.ReadWord : Word;\r\n\r\nbegin\r\n  ReadBufferData(Result,2);\r\nend;\r\n\r\nfunction TStream.ReadDWord : Cardinal;\r\n\r\nbegin\r\n  ReadBufferData(Result,4);\r\nend;\r\n\r\nfunction TStream.ReadQWord: NativeLargeUInt;\r\n\r\nbegin\r\n  ReadBufferData(Result,8);\r\nend;\r\n\r\n\r\nprocedure TStream.WriteByte(b : Byte);\r\n\r\nbegin\r\n  WriteBufferData(b,1);\r\nend;\r\n\r\nprocedure TStream.WriteWord(w : Word);\r\n\r\nbegin\r\n  WriteBufferData(W,2);\r\nend;\r\n\r\nprocedure TStream.WriteDWord(d : Cardinal);\r\n\r\nbegin\r\n  WriteBufferData(d,4);\r\nend;\r\n\r\nprocedure TStream.WriteQWord(q: NativeLargeUInt);\r\nbegin\r\n  WriteBufferData(q,8);\r\nend;\r\n\r\n{****************************************************************************}\r\n{*                             TCustomMemoryStream                          *}\r\n{****************************************************************************}\r\n\r\nprocedure TCustomMemoryStream.SetPointer(Ptr: TJSArrayBuffer; ASize: PtrInt);\r\n\r\nbegin\r\n  FMemory:=Ptr;\r\n  FSize:=ASize;\r\n  FDataView:=Nil;\r\n  FDataArray:=Nil;\r\nend;\r\n\r\n\r\nclass function TCustomMemoryStream.MemoryToBytes(Mem: TJSArrayBuffer): TBytes;\r\n\r\nbegin\r\n  Result:=MemoryToBytes(TJSUint8Array.New(Mem));\r\nend;\r\n\r\nclass function TCustomMemoryStream.MemoryToBytes(Mem: TJSUint8Array): TBytes;\r\n\r\nVar\r\n  I : Integer;\r\n\r\nbegin\r\n  // This must be improved, but needs some asm or TJSFunction.call() to implement answers in\r\n  // https://stackoverflow.com/questions/29676635/convert-uint8array-to-array-in-javascript\r\n  for i:=0 to mem.length-1 do\r\n    Result[i]:=Mem[i];\r\nend;\r\n\r\nclass function TCustomMemoryStream.BytesToMemory(aBytes: TBytes): TJSArrayBuffer;\r\n\r\nVar\r\n  a : TJSUint8Array;\r\n\r\nbegin\r\n  Result:=TJSArrayBuffer.new(Length(aBytes));\r\n  A:=TJSUint8Array.New(Result);\r\n  A._set(aBytes);\r\nend;\r\n\r\nfunction TCustomMemoryStream.GetDataArray: TJSUint8Array;\r\nbegin\r\n  if FDataArray=Nil then\r\n    FDataArray:=TJSUint8Array.new(Memory);\r\n  Result:=FDataArray;\r\nend;\r\n\r\nfunction TCustomMemoryStream.GetDataView: TJSDataview;\r\nbegin\r\n  if FDataView=Nil then\r\n    FDataView:=TJSDataView.New(Memory);\r\n  Result:=FDataView;\r\nend;\r\n\r\nfunction TCustomMemoryStream.GetSize: NativeInt;\r\n\r\nbegin\r\n  Result:=FSize;\r\nend;\r\n\r\nfunction TCustomMemoryStream.GetPosition: NativeInt;\r\nbegin\r\n  Result:=FPosition;\r\nend;\r\n\r\n\r\nfunction TCustomMemoryStream.Read(Buffer: TBytes; Offset, Count: LongInt): LongInt;\r\n\r\nVar\r\n  I,Src,Dest : Integer;\r\n\r\nbegin\r\n  Result:=0;\r\n  If (FSize>0) and (FPosition<Fsize) and (FPosition>=0) then\r\n    begin\r\n    Result:=Count;\r\n    If (Result>(FSize-FPosition)) then\r\n      Result:=(FSize-FPosition);\r\n    Src:=FPosition;\r\n    Dest:=Offset;\r\n    I:=0;\r\n    While I<Result do\r\n      begin\r\n      Buffer[Dest]:=DataView.getUint8(Src);\r\n      inc(Src);\r\n      inc(Dest);\r\n      inc(I);\r\n      end;\r\n    FPosition:=Fposition+Result;\r\n    end;\r\nend;\r\n\r\n\r\nfunction TCustomMemoryStream.Seek(const Offset: NativeInt; Origin: TSeekOrigin): NativeInt;\r\n\r\nbegin\r\n  Case Origin of\r\n    soBeginning : FPosition:=Offset;\r\n    soEnd       : FPosition:=FSize+Offset;\r\n    soCurrent   : FPosition:=FPosition+Offset;\r\n  end;\r\n  if SizeBoundsSeek and (FPosition>FSize) then\r\n    FPosition:=FSize;\r\n  Result:=FPosition;\r\n  {$IFDEF DEBUG}\r\n  if Result < 0 then\r\n    raise Exception.Create('TCustomMemoryStream');\r\n  {$ENDIF}\r\nend;\r\n\r\n\r\nprocedure TCustomMemoryStream.SaveToStream(Stream: TStream);\r\n\r\nbegin\r\n  if FSize>0 then\r\n    Stream.WriteBuffer(TMemoryStream.MemoryToBytes(Memory),FSize);\r\nend;\r\n\r\nprocedure TCustomMemoryStream.LoadFromURL(const aURL: String; Async: Boolean; OnLoaded: TNotifyEventRef; OnError: TStringNotifyEventRef = Nil);\r\n\r\n  procedure DoLoaded(const abytes : TJSArrayBuffer);\r\n  begin\r\n    SetPointer(aBytes,aBytes.byteLength);\r\n    if Assigned(OnLoaded) then\r\n      OnLoaded(Self);\r\n  end;\r\n\r\n  procedure DoError(const AError : String);\r\n  begin\r\n    if Assigned(OnError) then\r\n      OnError(Self,aError)\r\n    else\r\n      Raise EInOutError.Create('Failed to load from URL:'+aError);\r\n  end;\r\n\r\nbegin\r\n  CheckLoadHelper;\r\n  GlobalLoadHelper.LoadBytes(aURL,aSync,@DoLoaded,@DoError);\r\nend;\r\n\r\nprocedure TCustomMemoryStream.LoadFromFile(const aFileName: String; const OnLoaded: TProc; const AError: TProcString);\r\n\r\nbegin\r\n  LoadFromURL(aFileName,False,\r\n    Procedure (Sender : TObject)\r\n    begin\r\n      If Assigned(OnLoaded) then\r\n       OnLoaded\r\n    end,\r\n    Procedure (Sender : TObject; Const ErrorMsg : String)\r\n    begin\r\n      if Assigned(aError) then\r\n        aError(ErrorMsg)\r\n    end);\r\nend;\r\n\r\n\r\n\r\n{****************************************************************************}\r\n{*                             TMemoryStream                                *}\r\n{****************************************************************************}\r\n\r\n\r\nConst TMSGrow = 4096; { Use 4k blocks. }\r\n\r\nprocedure TMemoryStream.SetCapacity(NewCapacity: PtrInt);\r\n\r\nbegin\r\n  SetPointer (Realloc(NewCapacity),Fsize);\r\n  FCapacity:=NewCapacity;\r\nend;\r\n\r\n\r\nfunction TMemoryStream.Realloc(var NewCapacity: PtrInt): TJSArrayBuffer;\r\n\r\nVar\r\n  GC : PtrInt;\r\n  DestView : TJSUInt8array;\r\n\r\nbegin\r\n  If NewCapacity<0 Then\r\n    NewCapacity:=0\r\n  else\r\n    begin\r\n      GC:=FCapacity + (FCapacity div 4);\r\n      // if growing, grow at least a quarter\r\n      if (NewCapacity>FCapacity) and (NewCapacity < GC) then\r\n        NewCapacity := GC;\r\n      // round off to block size.\r\n      NewCapacity := (NewCapacity + (TMSGrow-1)) and not (TMSGROW-1);\r\n    end;\r\n  // Only now check !\r\n  If NewCapacity=FCapacity then\r\n    Result:=FMemory\r\n  else if NewCapacity=0 then\r\n    Result:=Nil\r\n  else\r\n    begin\r\n    // New buffer\r\n    Result:=TJSArrayBuffer.New(NewCapacity);\r\n    If (Result=Nil)  then\r\n      Raise EStreamError.Create(SMemoryStreamError);\r\n    // Transfer\r\n    DestView:=TJSUInt8array.New(Result);\r\n    Destview._Set(Self.DataArray);\r\n    end;\r\nend;\r\n\r\n\r\ndestructor TMemoryStream.Destroy;\r\n\r\nbegin\r\n  Clear;\r\n  Inherited Destroy;\r\nend;\r\n\r\n\r\nprocedure TMemoryStream.Clear;\r\n\r\nbegin\r\n  FSize:=0;\r\n  FPosition:=0;\r\n  SetCapacity (0);\r\nend;\r\n\r\n\r\nprocedure TMemoryStream.LoadFromStream(Stream: TStream);\r\n\r\nbegin\r\n  Position:=0;\r\n  Stream.Position:=0;\r\n  SetSize(Stream.Size);\r\n  If (Size>0) then\r\n    CopyFrom(Stream,0);\r\nend;\r\n\r\nprocedure TMemoryStream.SetSize(const NewSize: NativeInt);\r\n\r\nbegin\r\n  SetCapacity (NewSize);\r\n  FSize:=NewSize;\r\n  IF FPosition>FSize then\r\n    FPosition:=FSize;\r\nend;\r\n\r\nfunction TMemoryStream.Write(Const Buffer : TBytes; Count: LongInt): LongInt;\r\nbegin\r\n  Result := Write(Buffer, 0, Count);\r\nend;\r\n\r\nfunction TMemoryStream.Write(Const Buffer : TBytes; OffSet, Count: LongInt): LongInt;\r\n\r\nVar NewPos : PtrInt;\r\n\r\nbegin\r\n  If (Count=0) or (FPosition<0) then\r\n    exit(0);\r\n  NewPos:=FPosition+Count;\r\n  If NewPos>Fsize then\r\n    begin\r\n    IF NewPos>FCapacity then\r\n      SetCapacity (NewPos);\r\n    FSize:=Newpos;\r\n    end;\r\n  DataArray._set(Copy(Buffer,Offset,Count),FPosition);\r\n  FPosition:=NewPos;\r\n  Result:=Count;\r\nend;\r\n\r\n{****************************************************************************}\r\n{*                              TBytesStream                                *}\r\n{****************************************************************************}\r\n\r\nconstructor TBytesStream.Create(const ABytes: TBytes);\r\nbegin\r\n  inherited Create;\r\n  SetPointer(TMemoryStream.BytesToMemory(aBytes),Length(ABytes));\r\n  FCapacity:=Length(ABytes);\r\nend;\r\n\r\nfunction TBytesStream.GetBytes: TBytes;\r\nbegin\r\n  Result:=TMemoryStream.MemoryToBytes(Memory);\r\nend;\r\n\r\n{ *********************************************************************\r\n  *                         TFiler                                    *\r\n  *********************************************************************}\r\n\r\nprocedure TFiler.SetRoot(ARoot: TComponent);\r\nbegin\r\n  FRoot := ARoot;\r\nend;\r\n\r\n\r\n{\r\n    This file is part of the Free Component Library (FCL)\r\n    Copyright (c) 1999-2000 by the Free Pascal development team\r\n\r\n    See the file COPYING.FPC, included in this distribution,\r\n    for details about the copyright.\r\n\r\n    This program is distributed in the hope that it will be useful,\r\n    but WITHOUT ANY WARRANTY; without even the implied warranty of\r\n    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\r\n\r\n **********************************************************************}\r\n\r\n{****************************************************************************}\r\n{*                       TBinaryObjectReader                                *}\r\n{****************************************************************************}\r\n\r\n\r\nfunction TBinaryObjectReader.ReadWord : word;\r\nbegin\r\n  FStream.ReadBufferData(Result);\r\nend;\r\n\r\nfunction TBinaryObjectReader.ReadDWord : longword;\r\nbegin\r\n  FStream.ReadBufferData(Result);\r\nend;\r\n\r\n\r\nconstructor TBinaryObjectReader.Create(Stream: TStream);\r\nbegin\r\n  inherited Create;\r\n  If (Stream=Nil) then\r\n    Raise EReadError.Create(SEmptyStreamIllegalReader);\r\n  FStream := Stream;\r\nend;\r\n\r\nfunction TBinaryObjectReader.ReadValue: TValueType;\r\nvar\r\n  b: byte;\r\nbegin\r\n  FStream.ReadBufferData(b);\r\n  Result := TValueType(b);\r\nend;\r\n\r\nfunction TBinaryObjectReader.NextValue: TValueType;\r\nbegin\r\n  Result := ReadValue;\r\n  { We only 'peek' at the next value, so seek back to unget the read value: }\r\n  FStream.Seek(-1,soCurrent);\r\nend;\r\n\r\nprocedure TBinaryObjectReader.BeginRootComponent;\r\nbegin\r\n  { Read filer signature }\r\n  ReadSignature;\r\nend;\r\n\r\nprocedure TBinaryObjectReader.BeginComponent(var Flags: TFilerFlags;\r\n  var AChildPos: Integer; var CompClassName, CompName: String);\r\nvar\r\n  Prefix: Byte;\r\n  ValueType: TValueType;\r\nbegin\r\n  { Every component can start with a special prefix: }\r\n  Flags := [];\r\n  if (Byte(NextValue) and $f0) = $f0 then\r\n  begin\r\n    Prefix := Byte(ReadValue);\r\n    Flags:=[];\r\n    if (Prefix and $01)<>0 then\r\n      Include(Flags,ffInherited);\r\n    if (Prefix and $02)<>0 then\r\n      Include(Flags,ffChildPos);\r\n    if (Prefix and $04)<>0 then\r\n      Include(Flags,ffInline);\r\n    if ffChildPos in Flags then\r\n    begin\r\n      ValueType := ReadValue;\r\n      case ValueType of\r\n        vaInt8:\r\n          AChildPos := ReadInt8;\r\n        vaInt16:\r\n          AChildPos := ReadInt16;\r\n        vaInt32:\r\n          AChildPos := ReadInt32;\r\n        vaNativeInt:\r\n          AChildPos := ReadNativeInt;\r\n        else\r\n          raise EReadError.Create(SInvalidPropertyValue);\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  CompClassName := ReadStr;\r\n  CompName := ReadStr;\r\nend;\r\n\r\nfunction TBinaryObjectReader.BeginProperty: String;\r\nbegin\r\n  Result := ReadStr;\r\nend;\r\n\r\nprocedure TBinaryObjectReader.Read(var Buffer: TBytes; Count: Longint);\r\nbegin\r\n  FStream.Read(Buffer,Count);\r\nend;\r\n\r\nprocedure TBinaryObjectReader.ReadBinary(const DestData: TMemoryStream);\r\nvar\r\n  BinSize: LongInt;\r\nbegin\r\n  BinSize:=LongInt(ReadDWord);\r\n  DestData.Size := BinSize;\r\n  DestData.CopyFrom(FStream,BinSize);\r\nend;\r\n\r\nfunction TBinaryObjectReader.ReadFloat: Extended;\r\nbegin\r\n  FStream.ReadBufferData(Result);\r\nend;\r\n\r\nfunction TBinaryObjectReader.ReadCurrency: Currency;\r\n\r\nbegin\r\n  Result:=ReadFloat;\r\nend;\r\n\r\nfunction TBinaryObjectReader.ReadIdent(ValueType: TValueType): String;\r\nvar\r\n  i: Byte;\r\n  c : Char;\r\nbegin\r\n  case ValueType of\r\n    vaIdent:\r\n      begin\r\n        FStream.ReadBufferData(i);\r\n        SetLength(Result,i);\r\n        For I:=1 to Length(Result) do\r\n          begin\r\n          FStream.ReadBufferData(C);\r\n          Result[I]:=C;\r\n          end;\r\n      end;\r\n    vaNil:\r\n      Result := 'nil';\r\n    vaFalse:\r\n      Result := 'False';\r\n    vaTrue:\r\n      Result := 'True';\r\n    vaNull:\r\n      Result := 'Null';\r\n  end;\r\nend;\r\n\r\nfunction TBinaryObjectReader.ReadInt8: ShortInt;\r\nbegin\r\n  FStream.ReadBufferData(Result);\r\nend;\r\n\r\nfunction TBinaryObjectReader.ReadInt16: SmallInt;\r\nbegin\r\n  FStream.ReadBufferData(Result);\r\nend;\r\n\r\nfunction TBinaryObjectReader.ReadInt32: LongInt;\r\nbegin\r\n  FStream.ReadBufferData(Result);\r\nend;\r\n\r\nfunction TBinaryObjectReader.ReadNativeInt : NativeInt;\r\nbegin\r\n  FStream.ReadBufferData(Result);\r\nend;\r\n\r\n\r\nfunction TBinaryObjectReader.ReadSet(EnumType: TTypeInfoEnum): Integer;\r\n\r\nvar\r\n  Name: String;\r\n  Value: Integer;\r\n\r\nbegin\r\n  try\r\n    Result := 0;\r\n    while True do\r\n      begin\r\n      Name := ReadStr;\r\n      if Length(Name) = 0 then\r\n        break;\r\n      Value:=EnumType.EnumType.NameToInt[Name];\r\n      if Value=-1 then\r\n        raise EReadError.Create(SInvalidPropertyValue);\r\n      Result:=Result or (1 shl Value);\r\n      end;\r\n  except\r\n    SkipSetBody;\r\n    raise;\r\n  end;\r\nend;\r\n\r\n\r\nConst\r\n  // Integer version of 4 chars 'TPF0'\r\n  FilerSignatureInt = 809914452;\r\n\r\nprocedure TBinaryObjectReader.ReadSignature;\r\n\r\nvar\r\n  Signature: LongInt;\r\n\r\nbegin\r\n  FStream.ReadBufferData(Signature);\r\n  if Signature <> FilerSignatureInt then\r\n    raise EReadError.Create(SInvalidImage);\r\nend;\r\n\r\nfunction TBinaryObjectReader.ReadStr: String;\r\nvar\r\n  l,i: Byte;\r\n  c : Char;\r\nbegin\r\n  FStream.ReadBufferData(L);\r\n  SetLength(Result,L);\r\n  For I:=1 to L do\r\n    begin\r\n    FStream.ReadBufferData(C);\r\n    Result[i]:=C;\r\n    end;\r\nend;\r\n\r\nfunction TBinaryObjectReader.ReadString(StringType: TValueType): String;\r\nvar\r\n  i: Integer;\r\n  C : Char;\r\n\r\nbegin\r\n  Result:='';\r\n  if StringType<>vaString then\r\n    Raise EFilerError.Create('Invalid string type passed to ReadString');\r\n  i:=ReadDWord;\r\n  SetLength(Result, i);\r\n  for I:=1 to Length(Result) do\r\n    begin\r\n    FStream.ReadbufferData(C);\r\n    Result[i]:=C;\r\n    end;\r\nend;\r\n\r\n\r\nfunction TBinaryObjectReader.ReadWideString: WideString;\r\nbegin\r\n  Result:=ReadString(vaWString);\r\nend;\r\n\r\nfunction TBinaryObjectReader.ReadUnicodeString: UnicodeString;\r\n\r\nbegin\r\n  Result:=ReadString(vaWString);\r\nend;\r\n\r\nprocedure TBinaryObjectReader.SkipComponent(SkipComponentInfos: Boolean);\r\nvar\r\n  Flags: TFilerFlags;\r\n  Dummy: Integer;\r\n  CompClassName, CompName: String;\r\nbegin\r\n  if SkipComponentInfos then\r\n    { Skip prefix, component class name and component object name }\r\n    BeginComponent(Flags, Dummy, CompClassName, CompName);\r\n\r\n  { Skip properties }\r\n  while NextValue <> vaNull do\r\n    SkipProperty;\r\n  ReadValue;\r\n\r\n  { Skip children }\r\n  while NextValue <> vaNull do\r\n    SkipComponent(True);\r\n  ReadValue;\r\nend;\r\n\r\nprocedure TBinaryObjectReader.SkipValue;\r\n\r\n  procedure SkipBytes(Count: LongInt);\r\n  var\r\n    Dummy: TBytes;\r\n    SkipNow: Integer;\r\n  begin\r\n    while Count > 0 do\r\n    begin\r\n      if Count > 1024 then\r\n        SkipNow := 1024\r\n      else\r\n        SkipNow := Count;\r\n      SetLength(Dummy,SkipNow);\r\n      Read(Dummy, SkipNow);\r\n      Dec(Count, SkipNow);\r\n    end;\r\n  end;\r\n\r\nvar\r\n  Count: LongInt;\r\nbegin\r\n  case ReadValue of\r\n    vaNull, vaFalse, vaTrue, vaNil: ;\r\n    vaList:\r\n      begin\r\n        while NextValue <> vaNull do\r\n          SkipValue;\r\n        ReadValue;\r\n      end;\r\n    vaInt8:\r\n      SkipBytes(1);\r\n    vaInt16:\r\n      SkipBytes(2);\r\n    vaInt32:\r\n      SkipBytes(4);\r\n    vaInt64,\r\n    vaDouble:\r\n      SkipBytes(8);\r\n    vaIdent:\r\n      ReadStr;\r\n    vaString:\r\n      ReadString(vaString);\r\n    vaBinary:\r\n      begin\r\n        Count:=LongInt(ReadDWord);\r\n        SkipBytes(Count);\r\n      end;\r\n    vaSet:\r\n      SkipSetBody;\r\n    vaCollection:\r\n      begin\r\n        while NextValue <> vaNull do\r\n        begin\r\n          { Skip the order value if present }\r\n          if NextValue in [vaInt8, vaInt16, vaInt32] then\r\n            SkipValue;\r\n          SkipBytes(1);\r\n          while NextValue <> vaNull do\r\n            SkipProperty;\r\n          ReadValue;\r\n        end;\r\n        ReadValue;\r\n      end;\r\n  end;\r\nend;\r\n\r\n{ private methods }\r\n\r\n\r\nprocedure TBinaryObjectReader.SkipProperty;\r\nbegin\r\n  { Skip property name, then the property value }\r\n  ReadStr;\r\n  SkipValue;\r\nend;\r\n\r\nprocedure TBinaryObjectReader.SkipSetBody;\r\nbegin\r\n  while Length(ReadStr) > 0 do;\r\nend;\r\n\r\n\r\n  // Quadruple representing an unresolved component property.\r\nType\r\n  { TUnresolvedReference }\r\n\r\n  TUnresolvedReference = class(TlinkedListItem)\r\n  Private\r\n    FRoot: TComponent;     // Root component when streaming\r\n    FPropInfo: TTypeMemberProperty;  // Property to set.\r\n    FGlobal,               // Global component.\r\n    FRelative : string;    // Path relative to global component.\r\n    Function Resolve(Instance : TPersistent) : Boolean; // Resolve this reference\r\n    Function RootMatches(ARoot : TComponent) : Boolean; {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE} // True if Froot matches or ARoot is nil.\r\n    Function NextRef : TUnresolvedReference; {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE}\r\n  end;\r\n\r\n  TLocalUnResolvedReference = class(TUnresolvedReference)\r\n    Finstance : TPersistent;\r\n  end;\r\n\r\n  // Linked list of TPersistent items that have unresolved properties.\r\n\r\n  { TUnResolvedInstance }\r\n\r\n  TUnResolvedInstance = Class(TLinkedListItem)\r\n  Public\r\n    Instance : TPersistent; // Instance we're handling unresolveds for\r\n    FUnresolved : TLinkedList; // The list\r\n    Destructor Destroy; override;\r\n    Function AddReference(ARoot : TComponent; APropInfo : TTypeMemberProperty; AGlobal,ARelative : String) : TUnresolvedReference;\r\n    Function RootUnresolved : TUnresolvedReference; {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE} // Return root element in list.\r\n    Function ResolveReferences : Boolean; // Return true if all unresolveds were resolved.\r\n  end;\r\n\r\n  // Builds a list of TUnResolvedInstances, removes them from global list on free.\r\n  TBuildListVisitor = Class(TLinkedListVisitor)\r\n  Private\r\n    List : TFPList;\r\n  Public\r\n    Procedure Add(Item : TlinkedListItem); // Add TUnResolvedInstance item to list. Create list if needed\r\n    Destructor Destroy; override; // All elements in list (if any) are removed from the global list.\r\n  end;\r\n\r\n  // Visitor used to try and resolve instances in the global list\r\n  TResolveReferenceVisitor = Class(TBuildListVisitor)\r\n    Function Visit(Item : TLinkedListItem) : Boolean; override;\r\n  end;\r\n\r\n  // Visitor used to remove all references to a certain component.\r\n  TRemoveReferenceVisitor = Class(TBuildListVisitor)\r\n  Private\r\n    FRef : String;\r\n    FRoot : TComponent;\r\n  Public\r\n    Constructor Create(ARoot : TComponent;Const ARef : String);\r\n    Function Visit(Item : TLinkedListItem) : Boolean; override;\r\n  end;\r\n\r\n  // Visitor used to collect reference names.\r\n  TReferenceNamesVisitor = Class(TLinkedListVisitor)\r\n  Private\r\n    FList : TStrings;\r\n    FRoot : TComponent;\r\n  Public\r\n    Function Visit(Item : TLinkedListItem) : Boolean; override;\r\n    Constructor Create(ARoot : TComponent;AList : TStrings);\r\n  end;\r\n\r\n  // Visitor used to collect instance names.\r\n  TReferenceInstancesVisitor = Class(TLinkedListVisitor)\r\n  Private\r\n    FList : TStrings;\r\n    FRef  : String;\r\n    FRoot : TComponent;\r\n  Public\r\n    Function Visit(Item : TLinkedListItem) : Boolean; override;\r\n    Constructor Create(ARoot : TComponent;Const ARef : String; AList : TStrings);\r\n  end;\r\n\r\n  // Visitor used to redirect links to another root component.\r\n  TRedirectReferenceVisitor = Class(TLinkedListVisitor)\r\n  Private\r\n    FOld,\r\n    FNew : String;\r\n    FRoot : TComponent;\r\n  Public\r\n    Function Visit(Item : TLinkedListItem) : Boolean; override;\r\n    Constructor Create(ARoot : TComponent;Const AOld,ANew : String);\r\n  end;\r\n\r\nvar\r\n  NeedResolving : TLinkedList;\r\n\r\n// Add an instance to the global list of instances which need resolving.\r\nFunction FindUnresolvedInstance(AInstance: TPersistent) : TUnResolvedInstance;\r\n\r\nbegin\r\n  Result:=Nil;\r\n{$ifdef FPC_HAS_FEATURE_THREADING}\r\n  EnterCriticalSection(ResolveSection);\r\n  Try\r\n{$endif}\r\n    If Assigned(NeedResolving) then\r\n      begin\r\n      Result:=TUnResolvedInstance(NeedResolving.Root);\r\n      While (Result<>Nil) and (Result.Instance<>AInstance) do\r\n        Result:=TUnResolvedInstance(Result.Next);\r\n      end;\r\n{$ifdef FPC_HAS_FEATURE_THREADING}\r\n  finally\r\n    LeaveCriticalSection(ResolveSection);\r\n  end;\r\n{$endif}\r\nend;\r\n\r\nFunction AddtoResolveList(AInstance: TPersistent) : TUnResolvedInstance;\r\n\r\nbegin\r\n  Result:=FindUnresolvedInstance(AInstance);\r\n  If (Result=Nil) then\r\n    begin\r\n{$ifdef FPC_HAS_FEATURE_THREADING}\r\n    EnterCriticalSection(ResolveSection);\r\n    Try\r\n{$endif}\r\n      If not Assigned(NeedResolving) then\r\n        NeedResolving:=TLinkedList.Create(TUnResolvedInstance);\r\n      Result:=NeedResolving.Add as TUnResolvedInstance;\r\n      Result.Instance:=AInstance;\r\n{$ifdef FPC_HAS_FEATURE_THREADING}\r\n    finally\r\n      LeaveCriticalSection(ResolveSection);\r\n    end;\r\n{$endif}\r\n    end;\r\nend;\r\n\r\n// Walk through the global list of instances to be resolved.\r\n\r\nProcedure VisitResolveList(V : TLinkedListVisitor);\r\n\r\nbegin\r\n{$ifdef FPC_HAS_FEATURE_THREADING}\r\n  EnterCriticalSection(ResolveSection);\r\n  Try\r\n{$endif}\r\n    try\r\n      NeedResolving.Foreach(V);\r\n    Finally\r\n      FreeAndNil(V);\r\n    end;\r\n{$ifdef FPC_HAS_FEATURE_THREADING}\r\n  Finally\r\n    LeaveCriticalSection(ResolveSection);\r\n  end;\r\n{$endif}\r\nend;\r\n\r\nprocedure GlobalFixupReferences;\r\n\r\nbegin\r\n  If (NeedResolving=Nil) then\r\n    Exit;\r\n{$ifdef FPC_HAS_FEATURE_THREADING}\r\n  GlobalNameSpace.BeginWrite;\r\n  try\r\n{$endif}\r\n    VisitResolveList(TResolveReferenceVisitor.Create);\r\n{$ifdef FPC_HAS_FEATURE_THREADING}\r\n  finally\r\n    GlobalNameSpace.EndWrite;\r\n  end;\r\n{$endif}\r\nend;\r\n\r\n\r\nprocedure GetFixupReferenceNames(Root: TComponent; Names: TStrings);\r\n\r\nbegin\r\n  If (NeedResolving=Nil) then\r\n    Exit;\r\n  VisitResolveList(TReferenceNamesVisitor.Create(Root,Names));\r\nend;\r\n\r\nprocedure GetFixupInstanceNames(Root: TComponent; const ReferenceRootName: string; Names: TStrings);\r\n\r\nbegin\r\n  If (NeedResolving=Nil) then\r\n    Exit;\r\n  VisitResolveList(TReferenceInstancesVisitor.Create(Root,ReferenceRootName,Names));\r\nend;\r\n\r\nprocedure ObjectBinaryToText(aInput, aOutput: TStream);\r\nbegin\r\n  ObjectBinaryToText(aInput,aOutput,oteLFM);\r\nend;\r\n\r\nprocedure ObjectBinaryToText(aInput, aOutput: TStream; aEncoding: TObjectTextEncoding);\r\n\r\nvar\r\n  Conv : TObjectStreamConverter;\r\n\r\nbegin\r\n  Conv:=TObjectStreamConverter.Create;\r\n  try\r\n    Conv.ObjectBinaryToText(aInput,aOutput,aEncoding);\r\n  finally\r\n    Conv.Free;\r\n  end;\r\nend;\r\n\r\nprocedure RedirectFixupReferences(Root: TComponent; const OldRootName, NewRootName: string);\r\n\r\nbegin\r\n  If (NeedResolving=Nil) then\r\n      Exit;\r\n  VisitResolveList(TRedirectReferenceVisitor.Create(Root,OldRootName,NewRootName));\r\nend;\r\n\r\nprocedure RemoveFixupReferences(Root: TComponent; const RootName: string);\r\n\r\nbegin\r\n  If (NeedResolving=Nil) then\r\n      Exit;\r\n  VisitResolveList(TRemoveReferenceVisitor.Create(Root,RootName));\r\nend;\r\n\r\n\r\n{ TUnresolvedReference }\r\n\r\nFunction TUnresolvedReference.Resolve(Instance : TPersistent) : Boolean;\r\n\r\nVar\r\n  C : TComponent;\r\n\r\nbegin\r\n  C:=FindGlobalComponent(FGlobal);\r\n  Result:=(C<>Nil);\r\n  If Result then\r\n    begin\r\n    C:=FindNestedComponent(C,FRelative);\r\n    Result:=C<>Nil;\r\n    If Result then\r\n      SetObjectProp(Instance, FPropInfo,C);\r\n    end;\r\nend;\r\n\r\nFunction TUnresolvedReference.RootMatches(ARoot : TComponent) : Boolean; {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE}\r\n\r\nbegin\r\n  Result:=(ARoot=Nil) or (ARoot=FRoot);\r\nend;\r\n\r\nFunction TUnResolvedReference.NextRef : TUnresolvedReference;\r\n\r\nbegin\r\n  Result:=TUnresolvedReference(Next);\r\nend;\r\n\r\n{ TUnResolvedInstance }\r\n\r\ndestructor TUnResolvedInstance.Destroy;\r\nbegin\r\n  FUnresolved.Free;\r\n  inherited Destroy;\r\nend;\r\n\r\nfunction TUnResolvedInstance.AddReference(ARoot: TComponent; APropInfo : TTypeMemberProperty; AGlobal, ARelative: String): TUnresolvedReference;\r\nbegin\r\n  If (FUnResolved=Nil) then\r\n    FUnResolved:=TLinkedList.Create(TUnresolvedReference);\r\n  Result:=FUnResolved.Add as TUnresolvedReference;\r\n  Result.FGlobal:=AGLobal;\r\n  Result.FRelative:=ARelative;\r\n  Result.FPropInfo:=APropInfo;\r\n  Result.FRoot:=ARoot;\r\nend;\r\n\r\nFunction TUnResolvedInstance.RootUnresolved : TUnresolvedReference;\r\n\r\nbegin\r\n  Result:=Nil;\r\n  If Assigned(FUnResolved) then\r\n    Result:=TUnresolvedReference(FUnResolved.Root);\r\nend;\r\n\r\nFunction TUnResolvedInstance.ResolveReferences:Boolean;\r\n\r\nVar\r\n  R,RN : TUnresolvedReference;\r\n\r\nbegin\r\n  R:=RootUnResolved;\r\n  While (R<>Nil) do\r\n    begin\r\n    RN:=R.NextRef;\r\n    If R.Resolve(Self.Instance) then\r\n      FUnresolved.RemoveItem(R,True);\r\n    R:=RN;\r\n    end;\r\n  Result:=RootUnResolved=Nil;\r\nend;\r\n\r\n{ TReferenceNamesVisitor }\r\n\r\nConstructor TReferenceNamesVisitor.Create(ARoot : TComponent;AList : TStrings);\r\n\r\nbegin\r\n  FRoot:=ARoot;\r\n  FList:=AList;\r\nend;\r\n\r\nFunction TReferenceNamesVisitor.Visit(Item : TLinkedListItem) : Boolean;\r\n\r\nVar\r\n  R : TUnresolvedReference;\r\n\r\nbegin\r\n  R:=TUnResolvedInstance(Item).RootUnresolved;\r\n  While (R<>Nil) do\r\n    begin\r\n    If R.RootMatches(FRoot) then\r\n      If (FList.IndexOf(R.FGlobal)=-1) then\r\n        FList.Add(R.FGlobal);\r\n    R:=R.NextRef;\r\n    end;\r\n  Result:=True;\r\nend;\r\n\r\n{ TReferenceInstancesVisitor }\r\n\r\nConstructor TReferenceInstancesVisitor.Create(ARoot : TComponent; Const ARef : String;AList : TStrings);\r\n\r\nbegin\r\n  FRoot:=ARoot;\r\n  FRef:=UpperCase(ARef);\r\n  FList:=AList;\r\nend;\r\n\r\nFunction TReferenceInstancesVisitor.Visit(Item : TLinkedListItem) : Boolean;\r\n\r\nVar\r\n  R : TUnresolvedReference;\r\n\r\nbegin\r\n  R:=TUnResolvedInstance(Item).RootUnresolved;\r\n  While (R<>Nil) do\r\n    begin\r\n    If (FRoot=R.FRoot) and (FRef=UpperCase(R.FGLobal)) Then\r\n      If Flist.IndexOf(R.FRelative)=-1 then\r\n        Flist.Add(R.FRelative);\r\n    R:=R.NextRef;\r\n    end;\r\n  Result:=True;\r\nend;\r\n\r\n{ TRedirectReferenceVisitor }\r\n\r\nConstructor TRedirectReferenceVisitor.Create(ARoot : TComponent; Const AOld,ANew  : String);\r\n\r\nbegin\r\n  FRoot:=ARoot;\r\n  FOld:=UpperCase(AOld);\r\n  FNew:=ANew;\r\nend;\r\n\r\nFunction TRedirectReferenceVisitor.Visit(Item : TLinkedListItem) : Boolean;\r\n\r\nVar\r\n  R : TUnresolvedReference;\r\n\r\nbegin\r\n  R:=TUnResolvedInstance(Item).RootUnresolved;\r\n  While (R<>Nil) do\r\n    begin\r\n    If R.RootMatches(FRoot) and (FOld=UpperCase(R.FGLobal)) Then\r\n      R.FGlobal:=FNew;\r\n    R:=R.NextRef;\r\n    end;\r\n  Result:=True;\r\nend;\r\n\r\n{ TRemoveReferenceVisitor }\r\n\r\nConstructor TRemoveReferenceVisitor.Create(ARoot : TComponent; Const ARef  : String);\r\n\r\nbegin\r\n  FRoot:=ARoot;\r\n  FRef:=UpperCase(ARef);\r\nend;\r\n\r\nFunction TRemoveReferenceVisitor.Visit(Item : TLinkedListItem) : Boolean;\r\n\r\nVar\r\n  I : Integer;\r\n  UI : TUnResolvedInstance;\r\n  R : TUnresolvedReference;\r\n  L : TFPList;\r\n\r\nbegin\r\n  UI:=TUnResolvedInstance(Item);\r\n  R:=UI.RootUnresolved;\r\n  L:=Nil;\r\n  Try\r\n    // Collect all matches.\r\n    While (R<>Nil) do\r\n      begin\r\n      If R.RootMatches(FRoot) and ((FRef = '') or (FRef=UpperCase(R.FGLobal))) Then\r\n        begin\r\n        If Not Assigned(L) then\r\n          L:=TFPList.Create;\r\n        L.Add(R);\r\n        end;\r\n      R:=R.NextRef;\r\n      end;\r\n    // Remove all matches.\r\n    IF Assigned(L) then\r\n      begin\r\n      For I:=0 to L.Count-1 do\r\n        UI.FUnresolved.RemoveItem(TLinkedListitem(L[i]),True);\r\n      end;\r\n    // If any references are left, leave them.\r\n    If UI.FUnResolved.Root=Nil then\r\n      begin\r\n      If List=Nil then\r\n        List:=TFPList.Create;\r\n      List.Add(UI);\r\n      end;\r\n  Finally\r\n    L.Free;\r\n  end;\r\n  Result:=True;\r\nend;\r\n\r\n{ TBuildListVisitor }\r\n\r\nProcedure TBuildListVisitor.Add(Item : TlinkedListItem);\r\n\r\nbegin\r\n  If (List=Nil) then\r\n    List:=TFPList.Create;\r\n  List.Add(Item);\r\nend;\r\n\r\nDestructor TBuildListVisitor.Destroy;\r\n\r\nVar\r\n  I : Integer;\r\n\r\nbegin\r\n  If Assigned(List) then\r\n    For I:=0 to List.Count-1 do\r\n      NeedResolving.RemoveItem(TLinkedListItem(List[I]),True);\r\n  FreeAndNil(List);\r\n  Inherited;\r\nend;\r\n\r\n{ TResolveReferenceVisitor }\r\n\r\nFunction TResolveReferenceVisitor.Visit(Item : TLinkedListItem) : Boolean;\r\n\r\nbegin\r\n  If TUnResolvedInstance(Item).ResolveReferences then\r\n    Add(Item);\r\n  Result:=True;\r\nend;\r\n\r\n\r\n\r\n{****************************************************************************}\r\n{*                             TREADER                                      *}\r\n{****************************************************************************}\r\n\r\n\r\nconstructor TReader.Create(Stream: TStream);\r\nbegin\r\n  inherited Create;\r\n  If (Stream=Nil) then\r\n    Raise EReadError.Create(SEmptyStreamIllegalReader);\r\n  FDriver := CreateDriver(Stream);\r\nend;\r\n\r\ndestructor TReader.Destroy;\r\nbegin\r\n  FDriver.Free;\r\n  inherited Destroy;\r\nend;\r\n\r\n\r\nprocedure TReader.FlushBuffer;\r\nbegin\r\n  Driver.FlushBuffer;\r\nend;\r\n\r\nfunction TReader.CreateDriver(Stream: TStream): TAbstractObjectReader;\r\nbegin\r\n  Result := TBinaryObjectReader.Create(Stream);\r\nend;\r\n\r\nprocedure TReader.BeginReferences;\r\nbegin\r\n  FLoaded := TFpList.Create;\r\nend;\r\n\r\nprocedure TReader.CheckValue(Value: TValueType);\r\nbegin\r\n  if FDriver.NextValue <> Value then\r\n    raise EReadError.Create(SInvalidPropertyValue)\r\n  else\r\n    FDriver.ReadValue;\r\nend;\r\n\r\nprocedure TReader.DefineProperty(const Name: String; AReadData: TReaderProc;\r\n  WriteData: TWriterProc; HasData: Boolean);\r\nbegin\r\n  if Assigned(AReadData) and SameText(Name,FPropName) then\r\n  begin\r\n    AReadData(Self);\r\n    SetLength(FPropName, 0);\r\n  end else if assigned(WriteData) and HasData then\r\n    ;\r\nend;\r\n\r\nprocedure TReader.DefineBinaryProperty(const Name: String;\r\n  AReadData, WriteData: TStreamProc; HasData: Boolean);\r\nvar\r\n  MemBuffer: TMemoryStream;\r\nbegin\r\n  if Assigned(AReadData) and SameText(Name,FPropName) then\r\n  begin\r\n    { Check if the next property really is a binary property}\r\n    if FDriver.NextValue <> vaBinary then\r\n    begin\r\n      FDriver.SkipValue;\r\n      FCanHandleExcepts := True;\r\n      raise EReadError.Create(SInvalidPropertyValue);\r\n    end else\r\n      FDriver.ReadValue;\r\n\r\n    MemBuffer := TMemoryStream.Create;\r\n    try\r\n      FDriver.ReadBinary(MemBuffer);\r\n      FCanHandleExcepts := True;\r\n      AReadData(MemBuffer);\r\n    finally\r\n      MemBuffer.Free;\r\n    end;\r\n    SetLength(FPropName, 0);\r\n  end else if assigned(WriteData) and HasData then ;\r\nend;\r\n\r\nfunction TReader.EndOfList: Boolean;\r\nbegin\r\n  Result := FDriver.NextValue = vaNull;\r\nend;\r\n\r\nprocedure TReader.EndReferences;\r\nbegin\r\n  FLoaded.Free;\r\n  FLoaded := nil;\r\nend;\r\n\r\nfunction TReader.Error(const Message: String): Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(FOnError) then\r\n    FOnError(Self, Message, Result);\r\nend;\r\n\r\nfunction TReader.FindMethod(ARoot: TComponent; const AMethodName: String): CodePointer;\r\nvar\r\n  ErrorResult: Boolean;\r\nbegin\r\n  Result:=nil;\r\n  if (ARoot=Nil) or (aMethodName='') then\r\n    exit;\r\n  Result := ARoot.MethodAddress(AMethodName);\r\n  ErrorResult := Result = nil;\r\n\r\n  { always give the OnFindMethod callback a chance to locate the method }\r\n  if Assigned(FOnFindMethod) then\r\n    FOnFindMethod(Self, AMethodName, Result, ErrorResult);\r\n\r\n  if ErrorResult then\r\n    raise EReadError.Create(SInvalidPropertyValue);\r\nend;\r\n\r\nprocedure TReader.DoFixupReferences;\r\n\r\nVar\r\n  R,RN : TLocalUnresolvedReference;\r\n  G : TUnresolvedInstance;\r\n  Ref : String;\r\n  C : TComponent;\r\n  P : integer;\r\n  L : TLinkedList;\r\n\r\nbegin\r\n  If Assigned(FFixups) then\r\n    begin\r\n    L:=TLinkedList(FFixups);\r\n    R:=TLocalUnresolvedReference(L.Root);\r\n    While (R<>Nil) do\r\n      begin\r\n      RN:=TLocalUnresolvedReference(R.Next);\r\n      Ref:=R.FRelative;\r\n      If Assigned(FOnReferenceName) then\r\n        FOnReferenceName(Self,Ref);\r\n      C:=FindNestedComponent(R.FRoot,Ref);\r\n      If Assigned(C) then\r\n        if R.FPropInfo.TypeInfo.Kind = tkInterface then\r\n          SetInterfaceProp(R.FInstance,R.FPropInfo,C)\r\n        else\r\n          SetObjectProp(R.FInstance,R.FPropInfo,C)\r\n      else\r\n        begin\r\n        P:=Pos('.',R.FRelative);\r\n        If (P<>0) then\r\n          begin\r\n          G:=AddToResolveList(R.FInstance);\r\n          G.Addreference(R.FRoot,R.FPropInfo,Copy(R.FRelative,1,P-1),Copy(R.FRelative,P+1,Length(R.FRelative)-P));\r\n          end;\r\n        end;\r\n      L.RemoveItem(R,True);\r\n      R:=RN;\r\n      end;\r\n    FreeAndNil(FFixups);\r\n    end;\r\nend;\r\n\r\nprocedure TReader.FixupReferences;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  DoFixupReferences;\r\n  GlobalFixupReferences;\r\n  for i := 0 to FLoaded.Count - 1 do\r\n    TComponent(FLoaded[I]).Loaded;\r\nend;\r\n\r\n\r\nfunction TReader.NextValue: TValueType;\r\nbegin\r\n  Result := FDriver.NextValue;\r\nend;\r\n\r\nprocedure TReader.Read(var Buffer : TBytes; Count: LongInt);\r\nbegin\r\n  //This should give an exception if read is not implemented (i.e. TTextObjectReader)\r\n  //but should work with TBinaryObjectReader.\r\n  Driver.Read(Buffer, Count);\r\nend;\r\n\r\nprocedure TReader.PropertyError;\r\nbegin\r\n  FDriver.SkipValue;\r\n  raise EReadError.CreateFmt(SUnknownProperty,[FPropName]);\r\nend;\r\n\r\nfunction TReader.ReadBoolean: Boolean;\r\nvar\r\n  ValueType: TValueType;\r\nbegin\r\n  ValueType := FDriver.ReadValue;\r\n  if ValueType = vaTrue then\r\n    Result := True\r\n  else if ValueType = vaFalse then\r\n    Result := False\r\n  else\r\n    raise EReadError.Create(SInvalidPropertyValue);\r\nend;\r\n\r\nfunction TReader.ReadChar: Char;\r\nvar\r\n  s: String;\r\nbegin\r\n  s := ReadString;\r\n  if Length(s) = 1 then\r\n    Result := s[1]\r\n  else\r\n    raise EReadError.Create(SInvalidPropertyValue);\r\nend;\r\n\r\nfunction TReader.ReadWideChar: WideChar;\r\n\r\nvar\r\n  W: WideString;\r\n\r\nbegin\r\n  W := ReadWideString;\r\n  if Length(W) = 1 then\r\n    Result := W[1]\r\n  else\r\n    raise EReadError.Create(SInvalidPropertyValue);\r\nend;\r\n\r\nfunction TReader.ReadUnicodeChar: UnicodeChar;\r\n\r\nvar\r\n  U: UnicodeString;\r\n\r\nbegin\r\n  U := ReadUnicodeString;\r\n  if Length(U) = 1 then\r\n    Result := U[1]\r\n  else\r\n    raise EReadError.Create(SInvalidPropertyValue);\r\nend;\r\n\r\nprocedure TReader.ReadCollection(Collection: TCollection);\r\nvar\r\n  Item: TCollectionItem;\r\nbegin\r\n  Collection.BeginUpdate;\r\n  if not EndOfList then\r\n    Collection.Clear;\r\n  while not EndOfList do begin\r\n    ReadListBegin;\r\n    Item := Collection.Add;\r\n    while NextValue<>vaNull do\r\n      ReadProperty(Item);\r\n    ReadListEnd;\r\n  end;\r\n  Collection.EndUpdate;\r\n  ReadListEnd;\r\nend;\r\n\r\nfunction TReader.ReadComponent(Component: TComponent): TComponent;\r\nvar\r\n  Flags: TFilerFlags;\r\n\r\n  function Recover(E : Exception; var aComponent: TComponent): Boolean;\r\n  begin\r\n    Result := False;\r\n    if not ((ffInherited in Flags) or Assigned(Component)) then\r\n      aComponent.Free;\r\n    aComponent := nil;\r\n    FDriver.SkipComponent(False);\r\n    Result := Error(E.Message);\r\n  end;\r\n\r\nvar\r\n  CompClassName, Name: String;\r\n  n, ChildPos: Integer;\r\n  SavedParent, SavedLookupRoot: TComponent;\r\n  ComponentClass: TComponentClass;\r\n  C, NewComponent: TComponent;\r\n  SubComponents: TList;\r\nbegin\r\n  FDriver.BeginComponent(Flags, ChildPos, CompClassName, Name);\r\n  SavedParent := Parent;\r\n  SavedLookupRoot := FLookupRoot;\r\n  SubComponents := nil;\r\n  try\r\n    Result := Component;\r\n    if not Assigned(Result) then\r\n      try\r\n        if ffInherited in Flags then\r\n        begin\r\n          { Try to locate the existing ancestor component }\r\n\r\n          if Assigned(FLookupRoot) then\r\n            Result := FLookupRoot.FindComponent(Name)\r\n          else\r\n            Result := nil;\r\n\r\n          if not Assigned(Result) then\r\n          begin\r\n            if Assigned(FOnAncestorNotFound) then\r\n              FOnAncestorNotFound(Self, Name,\r\n                FindComponentClass(CompClassName), Result);\r\n            if not Assigned(Result) then\r\n              raise EReadError.CreateFmt(SAncestorNotFound, [Name]);\r\n          end;\r\n\r\n          Parent := Result.GetParentComponent;\r\n          if not Assigned(Parent) then\r\n            Parent := Root;\r\n        end else\r\n        begin\r\n          Result := nil;\r\n          ComponentClass := FindComponentClass(CompClassName);\r\n          if Assigned(FOnCreateComponent) then\r\n            FOnCreateComponent(Self, ComponentClass, Result);\r\n          if not Assigned(Result) then\r\n          begin\r\n           asm\r\n           NewComponent = Object.create(ComponentClass);\r\n           NewComponent.$init();\r\n           end;\r\n            if ffInline in Flags then\r\n              NewComponent.FComponentState :=\r\n                NewComponent.FComponentState + [csLoading, csInline];\r\n            NewComponent.Create(Owner);\r\n            NewComponent.AfterConstruction;\r\n\r\n            { Don't set Result earlier because else we would come in trouble\r\n              with the exception recover mechanism! (Result should be NIL if\r\n              an error occurred) }\r\n            Result := NewComponent;\r\n          end;\r\n          Include(Result.FComponentState, csLoading);\r\n        end;\r\n      except\r\n        On E: Exception do\r\n          if not Recover(E,Result) then\r\n            raise;\r\n      end;\r\n\r\n    if Assigned(Result) then\r\n      try\r\n        Include(Result.FComponentState, csLoading);\r\n\r\n        { create list of subcomponents and set loading}\r\n        SubComponents := TList.Create;\r\n        for n := 0 to Result.ComponentCount - 1 do\r\n        begin\r\n          C := Result.Components[n];\r\n          if csSubcomponent in C.ComponentStyle\r\n          then begin\r\n            SubComponents.Add(C);\r\n            Include(C.FComponentState, csLoading);\r\n          end;\r\n        end;\r\n\r\n        if not (ffInherited in Flags) then\r\n          try\r\n            Result.SetParentComponent(Parent);\r\n            if Assigned(FOnSetName) then\r\n              FOnSetName(Self, Result, Name);\r\n            Result.Name := Name;\r\n            if FindGlobalComponent(Name) = Result then\r\n              Include(Result.FComponentState, csInline);\r\n          except\r\n            On E : Exception do\r\n              if not Recover(E,Result) then\r\n                raise;\r\n          end;\r\n        if not Assigned(Result) then\r\n          exit;\r\n        if csInline in Result.ComponentState then\r\n          FLookupRoot := Result;\r\n\r\n        { Read the component state }\r\n        Include(Result.FComponentState, csReading);\r\n        for n := 0 to Subcomponents.Count - 1 do\r\n          Include(TComponent(Subcomponents[n]).FComponentState, csReading);\r\n\r\n        Result.ReadState(Self);\r\n\r\n        Exclude(Result.FComponentState, csReading);\r\n        for n := 0 to Subcomponents.Count - 1 do\r\n          Exclude(TComponent(Subcomponents[n]).FComponentState, csReading);\r\n\r\n        if ffChildPos in Flags then\r\n          Parent.SetChildOrder(Result, ChildPos);\r\n\r\n        { Add component to list of loaded components, if necessary }\r\n        if (not ((ffInherited in Flags) or (csInline in Result.ComponentState))) or\r\n          (FLoaded.IndexOf(Result) < 0)\r\n          then begin\r\n            for n := 0 to Subcomponents.Count - 1 do\r\n              FLoaded.Add(Subcomponents[n]);\r\n            FLoaded.Add(Result);\r\n          end;\r\n      except\r\n        if ((ffInherited in Flags) or Assigned(Component)) then\r\n          Result.Free;\r\n        raise;\r\n      end;\r\n  finally\r\n    Parent := SavedParent;\r\n    FLookupRoot := SavedLookupRoot;\r\n    Subcomponents.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TReader.ReadData(Instance: TComponent);\r\nvar\r\n  SavedOwner, SavedParent: TComponent;\r\n\r\nbegin\r\n  { Read properties }\r\n  while not EndOfList do\r\n    ReadProperty(Instance);\r\n  ReadListEnd;\r\n\r\n  { Read children }\r\n  SavedOwner := Owner;\r\n  SavedParent := Parent;\r\n  try\r\n    Owner := Instance.GetChildOwner;\r\n    if not Assigned(Owner) then\r\n      Owner := Root;\r\n    Parent := Instance.GetChildParent;\r\n\r\n    while not EndOfList do\r\n      ReadComponent(nil);\r\n    ReadListEnd;\r\n  finally\r\n    Owner := SavedOwner;\r\n    Parent := SavedParent;\r\n  end;\r\n\r\n  { Fixup references if necessary (normally only if this is the root) }\r\n  If (Instance=FRoot) then\r\n    DoFixupReferences;\r\nend;\r\n\r\nfunction TReader.ReadFloat: Extended;\r\nbegin\r\n  if FDriver.NextValue = vaExtended then\r\n  begin\r\n    ReadValue;\r\n    Result := FDriver.ReadFloat\r\n  end else\r\n    Result := ReadNativeInt;\r\nend;\r\n\r\nprocedure TReader.ReadSignature;\r\nbegin\r\n  FDriver.ReadSignature;\r\nend;\r\n\r\n\r\nfunction TReader.ReadCurrency: Currency;\r\nbegin\r\n  if FDriver.NextValue = vaCurrency then\r\n  begin\r\n    FDriver.ReadValue;\r\n    Result := FDriver.ReadCurrency;\r\n  end else\r\n    Result := ReadInteger;\r\nend;\r\n\r\n\r\nfunction TReader.ReadIdent: String;\r\nvar\r\n  ValueType: TValueType;\r\nbegin\r\n  ValueType := FDriver.ReadValue;\r\n  if ValueType in [vaIdent, vaNil, vaFalse, vaTrue, vaNull] then\r\n    Result := FDriver.ReadIdent(ValueType)\r\n  else\r\n    raise EReadError.Create(SInvalidPropertyValue);\r\nend;\r\n\r\n\r\nfunction TReader.ReadInteger: LongInt;\r\nbegin\r\n  case FDriver.ReadValue of\r\n    vaInt8:\r\n      Result := FDriver.ReadInt8;\r\n    vaInt16:\r\n      Result := FDriver.ReadInt16;\r\n    vaInt32:\r\n      Result := FDriver.ReadInt32;\r\n  else\r\n    raise EReadError.Create(SInvalidPropertyValue);\r\n  end;\r\nend;\r\n\r\nfunction TReader.ReadNativeInt: NativeInt;\r\nbegin\r\n  if FDriver.NextValue = vaInt64 then\r\n  begin\r\n    FDriver.ReadValue;\r\n    Result := FDriver.ReadNativeInt;\r\n  end else\r\n    Result := ReadInteger;\r\nend;\r\n\r\nfunction TReader.ReadSet(EnumType: Pointer): Integer;\r\nbegin\r\n  if FDriver.NextValue = vaSet then\r\n    begin\r\n      FDriver.ReadValue;\r\n      Result := FDriver.ReadSet(enumtype);\r\n    end\r\n  else\r\n    Result := ReadInteger;\r\nend;\r\n\r\nprocedure TReader.ReadListBegin;\r\nbegin\r\n  CheckValue(vaList);\r\nend;\r\n\r\nprocedure TReader.ReadListEnd;\r\nbegin\r\n  CheckValue(vaNull);\r\nend;\r\n\r\nfunction TReader.ReadVariant: JSValue;\r\nvar\r\n  nv: TValueType;\r\nbegin\r\n  nv:=NextValue;\r\n  case nv of\r\n    vaNil:\r\n      begin\r\n        Result:=Undefined;\r\n        readvalue;\r\n      end;\r\n    vaNull:\r\n      begin\r\n        Result:=Nil;\r\n        readvalue;\r\n      end;\r\n    { all integer sizes must be split for big endian systems }\r\n    vaInt8,vaInt16,vaInt32:\r\n      begin\r\n        Result:=ReadInteger;\r\n      end;\r\n    vaInt64:\r\n      begin\r\n        Result:=ReadNativeInt;\r\n      end;\r\n{\r\n    vaQWord:\r\n      begin\r\n        Result:=QWord(ReadInt64);\r\n      end;\r\n}    vaFalse,vaTrue:\r\n      begin\r\n        Result:=(nv<>vaFalse);\r\n        readValue;\r\n      end;\r\n    vaCurrency:\r\n      begin\r\n        Result:=ReadCurrency;\r\n      end;\r\n    vaDouble:\r\n      begin\r\n        Result:=ReadFloat;\r\n      end;\r\n    vaString:\r\n      begin\r\n        Result:=ReadString;\r\n      end;\r\n    else\r\n      raise EReadError.CreateFmt(SUnsupportedPropertyVariantType, [Ord(nv)]);\r\n  end;\r\nend;\r\n\r\nprocedure TReader.ReadProperty(AInstance: TPersistent);\r\nvar\r\n  Path: String;\r\n  Instance: TPersistent;\r\n  PropInfo: TTypeMemberProperty;\r\n  Obj: TObject;\r\n  Name: String;\r\n  Skip: Boolean;\r\n  Handled: Boolean;\r\n  OldPropName: String;\r\n  DotPos : String;\r\n  NextPos: Integer;\r\n\r\n  function HandleMissingProperty(IsPath: Boolean): boolean;\r\n  begin\r\n    Result:=true;\r\n    if Assigned(OnPropertyNotFound) then begin\r\n      // user defined property error handling\r\n      OldPropName:=FPropName;\r\n      Handled:=false;\r\n      Skip:=false;\r\n      OnPropertyNotFound(Self,Instance,FPropName,IsPath,Handled,Skip);\r\n      if Handled and (not Skip) and (OldPropName<>FPropName) then\r\n        // try alias property\r\n        PropInfo := GetPropInfo(Instance.ClassType, FPropName);\r\n      if Skip then begin\r\n        FDriver.SkipValue;\r\n        Result:=false;\r\n        exit;\r\n      end;\r\n    end;\r\n  end;\r\n\r\nbegin\r\n  try\r\n    Path := FDriver.BeginProperty;\r\n    try\r\n      Instance := AInstance;\r\n      FCanHandleExcepts := True;\r\n      DotPos := Path;\r\n      while True do\r\n      begin\r\n        NextPos := Pos('.',DotPos);\r\n        if NextPos>0 then\r\n          FPropName := Copy(DotPos, 1, NextPos-1)\r\n        else\r\n        begin\r\n          FPropName := DotPos;\r\n          break;\r\n        end;\r\n        Delete(DotPos,1,NextPos);\r\n\r\n        PropInfo := GetPropInfo(Instance.ClassType, FPropName);\r\n        if not Assigned(PropInfo) then begin\r\n          if not HandleMissingProperty(true) then exit;\r\n          if not Assigned(PropInfo) then\r\n            PropertyError;\r\n        end;\r\n\r\n        if PropInfo.TypeInfo.Kind = tkClass then\r\n          Obj := TObject(GetObjectProp(Instance, PropInfo))\r\n        //else if PropInfo^.PropType^.Kind = tkInterface then\r\n        //  Obj := TObject(GetInterfaceProp(Instance, PropInfo))\r\n        else\r\n          Obj := nil;\r\n\r\n        if not (Obj is TPersistent) then\r\n        begin\r\n          { All path elements must be persistent objects! }\r\n          FDriver.SkipValue;\r\n          raise EReadError.Create(SInvalidPropertyPath);\r\n        end;\r\n        Instance := TPersistent(Obj);\r\n      end;\r\n\r\n      PropInfo := GetPropInfo(Instance.ClassType, FPropName);\r\n      if Assigned(PropInfo) then\r\n        ReadPropValue(Instance, PropInfo)\r\n      else\r\n      begin\r\n        FCanHandleExcepts := False;\r\n        Instance.DefineProperties(Self);\r\n        FCanHandleExcepts := True;\r\n        if Length(FPropName) > 0 then begin\r\n          if not HandleMissingProperty(false) then exit;\r\n          if not Assigned(PropInfo) then\r\n            PropertyError;\r\n        end;\r\n      end;\r\n    except\r\n      on e: Exception do\r\n      begin\r\n        SetLength(Name, 0);\r\n        if AInstance.InheritsFrom(TComponent) then\r\n          Name := TComponent(AInstance).Name;\r\n        if Length(Name) = 0 then\r\n          Name := AInstance.ClassName;\r\n        raise EReadError.CreateFmt(SPropertyException, [Name, '.', Path, e.Message]);\r\n      end;\r\n    end;\r\n  except\r\n    on e: Exception do\r\n      if not FCanHandleExcepts or not Error(E.Message) then\r\n        raise;\r\n  end;\r\nend;\r\n\r\nprocedure TReader.ReadPropValue(Instance: TPersistent; PropInfo: TTypeMemberProperty);\r\nconst\r\n  NullMethod: TMethod = (Code: nil; Data: nil);\r\nvar\r\n  PropType: TTypeInfo;\r\n  Value: LongInt;\r\n{  IdentToIntFn: TIdentToInt; }\r\n  Ident: String;\r\n  Method: TMethod;\r\n  Handled: Boolean;\r\n  TmpStr: String;\r\nbegin\r\n  if (PropInfo.Setter='') then\r\n    raise EReadError.Create(SReadOnlyProperty);\r\n\r\n  PropType := PropInfo.TypeInfo;\r\n  case PropType.Kind of\r\n    tkInteger:\r\n      case FDriver.NextValue of\r\n        vaIdent :\r\n          begin\r\n          Ident := ReadIdent;\r\n          if GlobalIdentToInt(Ident,Value) then\r\n            SetOrdProp(Instance, PropInfo, Value)\r\n          else\r\n            raise EReadError.Create(SInvalidPropertyValue);\r\n          end;\r\n        vaNativeInt :\r\n          SetOrdProp(Instance, PropInfo, ReadNativeInt);\r\n        vaCurrency:\r\n          SetFloatProp(Instance, PropInfo, ReadCurrency);\r\n      else\r\n        SetOrdProp(Instance, PropInfo, ReadInteger);\r\n      end;\r\n    tkBool:\r\n      SetBoolProp(Instance, PropInfo, ReadBoolean);\r\n    tkChar:\r\n      SetOrdProp(Instance, PropInfo, Ord(ReadChar));\r\n    tkEnumeration:\r\n      begin\r\n        Value := GetEnumValue(TTypeInfoEnum(PropType), ReadIdent);\r\n        if Value = -1 then\r\n          raise EReadError.Create(SInvalidPropertyValue);\r\n        SetOrdProp(Instance, PropInfo, Value);\r\n      end;\r\n{$ifndef FPUNONE}\r\n    tkFloat:\r\n      SetFloatProp(Instance, PropInfo, ReadFloat);\r\n{$endif}\r\n    tkSet:\r\n      begin\r\n        CheckValue(vaSet);\r\n        if TTypeInfoSet(PropType).CompType.Kind=tkEnumeration then\r\n          SetOrdProp(Instance, PropInfo, FDriver.ReadSet(TTypeInfoEnum(TTypeInfoSet(PropType).CompType)));\r\n      end;\r\n    tkMethod, tkRefToProcVar:\r\n      if FDriver.NextValue = vaNil then\r\n      begin\r\n        FDriver.ReadValue;\r\n        SetMethodProp(Instance, PropInfo, NullMethod);\r\n      end else\r\n      begin\r\n        Handled:=false;\r\n        Ident:=ReadIdent;\r\n        if Assigned(OnSetMethodProperty) then\r\n          OnSetMethodProperty(Self,Instance,PropInfo,Ident,Handled);\r\n        if not Handled then begin\r\n          Method.Code := FindMethod(Root, Ident);\r\n          Method.Data := Root;\r\n          if Assigned(Method.Code) then\r\n            SetMethodProp(Instance, PropInfo, Method);\r\n        end;\r\n      end;\r\n    tkString:\r\n      begin\r\n        TmpStr:=ReadString;\r\n        if Assigned(FOnReadStringProperty) then\r\n          FOnReadStringProperty(Self,Instance,PropInfo,TmpStr);\r\n        SetStrProp(Instance, PropInfo, TmpStr);\r\n      end;\r\n    tkJSValue:\r\n      begin\r\n        SetJSValueProp(Instance,PropInfo,ReadVariant);\r\n      end;\r\n    tkClass, tkInterface:\r\n      case FDriver.NextValue of\r\n        vaNil:\r\n          begin\r\n            FDriver.ReadValue;\r\n            SetOrdProp(Instance, PropInfo, 0)\r\n          end;\r\n        vaCollection:\r\n          begin\r\n            FDriver.ReadValue;\r\n            ReadCollection(TCollection(GetObjectProp(Instance, PropInfo)));\r\n          end\r\n        else\r\n          begin\r\n          If Not Assigned(FFixups) then\r\n            FFixups:=TLinkedList.Create(TLocalUnresolvedReference);\r\n          With TLocalUnresolvedReference(TLinkedList(FFixups).Add) do\r\n            begin\r\n            FInstance:=Instance;\r\n            FRoot:=Root;\r\n            FPropInfo:=PropInfo;\r\n            FRelative:=ReadIdent;\r\n            end;\r\n          end;\r\n      end;\r\n    {tkint64:\r\n      SetInt64Prop(Instance, PropInfo, ReadInt64);}\r\n    else\r\n      raise EReadError.CreateFmt(SUnknownPropertyType, [Str(PropType.Kind)]);\r\n  end;\r\nend;\r\n\r\nfunction TReader.ReadRootComponent(ARoot: TComponent): TComponent;\r\nvar\r\n  Dummy, i: Integer;\r\n  Flags: TFilerFlags;\r\n  CompClassName, CompName, ResultName: String;\r\nbegin\r\n  FDriver.BeginRootComponent;\r\n  Result := nil;\r\n  {!!!: GlobalNameSpace.BeginWrite;  // Loading from stream adds to name space\r\n  try}\r\n    try\r\n      FDriver.BeginComponent(Flags, Dummy, CompClassName, CompName);\r\n      if not Assigned(ARoot) then\r\n      begin\r\n        { Read the class name and the object name and create a new object: }\r\n        Result := TComponentClass(FindClass(CompClassName)).Create(nil);\r\n        Result.Name := CompName;\r\n      end else\r\n      begin\r\n        Result := ARoot;\r\n\r\n        if not (csDesigning in Result.ComponentState) then\r\n        begin\r\n          Result.FComponentState :=\r\n            Result.FComponentState + [csLoading, csReading];\r\n\r\n          { We need an unique name }\r\n          i := 0;\r\n          { Don't use Result.Name directly, as this would influence\r\n            FindGlobalComponent in successive loop runs }\r\n          ResultName := CompName;\r\n            while Assigned(FindGlobalComponent(ResultName)) do\r\n            begin\r\n              Inc(i);\r\n              ResultName := CompName + '_' + IntToStr(i);\r\n            end;\r\n            Result.Name := ResultName;\r\n        end;\r\n      end;\r\n\r\n      FRoot := Result;\r\n      FLookupRoot := Result;\r\n      if Assigned(GlobalLoaded) then\r\n        FLoaded := GlobalLoaded\r\n      else\r\n        FLoaded := TFpList.Create;\r\n\r\n      try\r\n        if FLoaded.IndexOf(FRoot) < 0 then\r\n          FLoaded.Add(FRoot);\r\n        FOwner := FRoot;\r\n        FRoot.FComponentState := FRoot.FComponentState + [csLoading, csReading];\r\n        FRoot.ReadState(Self);\r\n        Exclude(FRoot.FComponentState, csReading);\r\n\r\n        if not Assigned(GlobalLoaded) then\r\n          for i := 0 to FLoaded.Count - 1 do\r\n            TComponent(FLoaded[i]).Loaded;\r\n\r\n      finally\r\n        if not Assigned(GlobalLoaded) then\r\n          FLoaded.Free;\r\n        FLoaded := nil;\r\n      end;\r\n      GlobalFixupReferences;\r\n    except\r\n      RemoveFixupReferences(ARoot, '');\r\n      if not Assigned(ARoot) then\r\n        Result.Free;\r\n      raise;\r\n    end;\r\n  {finally\r\n    GlobalNameSpace.EndWrite;\r\n  end;}\r\nend;\r\n\r\nprocedure TReader.ReadComponents(AOwner, AParent: TComponent;\r\n  Proc: TReadComponentsProc);\r\nvar\r\n  Component: TComponent;\r\nbegin\r\n  Root := AOwner;\r\n  Owner := AOwner;\r\n  Parent := AParent;\r\n  BeginReferences;\r\n  try\r\n    while not EndOfList do\r\n    begin\r\n      FDriver.BeginRootComponent;\r\n      Component := ReadComponent(nil);\r\n      if Assigned(Proc) then\r\n        Proc(Component);\r\n    end;\r\n    ReadListEnd;\r\n    FixupReferences;\r\n  finally\r\n    EndReferences;\r\n  end;\r\nend;\r\n\r\n\r\nfunction TReader.ReadString: String;\r\nvar\r\n  StringType: TValueType;\r\nbegin\r\n  StringType := FDriver.ReadValue;\r\n  if StringType=vaString then\r\n    Result := FDriver.ReadString(StringType)\r\n  else\r\n    raise EReadError.Create(SInvalidPropertyValue);\r\nend;\r\n\r\n\r\nfunction TReader.ReadWideString: WideString;\r\n\r\nbegin\r\n  Result:=ReadString;\r\nend;\r\n\r\nfunction TReader.ReadUnicodeString: UnicodeString;\r\n\r\nbegin\r\n  Result:=ReadString;\r\nend;\r\n\r\nfunction TReader.ReadValue: TValueType;\r\nbegin\r\n  Result := FDriver.ReadValue;\r\nend;\r\n\r\nprocedure TReader.CopyValue(Writer: TWriter);\r\n\r\n(*\r\nprocedure CopyBytes(Count: Integer);\r\n{  var\r\n    Buffer: array[0..1023] of Byte; }\r\n  begin\r\n{!!!:    while Count > 1024 do\r\n    begin\r\n      FDriver.Read(Buffer, 1024);\r\n      Writer.Driver.Write(Buffer, 1024);\r\n      Dec(Count, 1024);\r\n    end;\r\n    if Count > 0 then\r\n    begin\r\n      FDriver.Read(Buffer, Count);\r\n      Writer.Driver.Write(Buffer, Count);\r\n    end;}\r\n  end;\r\n*)\r\n\r\n{var\r\n  s: String;\r\n  Count: LongInt; }\r\nbegin\r\n  case FDriver.NextValue of\r\n    vaNull:\r\n      Writer.WriteIdent('NULL');\r\n    vaFalse:\r\n      Writer.WriteIdent('FALSE');\r\n    vaTrue:\r\n      Writer.WriteIdent('TRUE');\r\n    vaNil:\r\n      Writer.WriteIdent('NIL');\r\n    {!!!: vaList, vaCollection:\r\n      begin\r\n        Writer.WriteValue(FDriver.ReadValue);\r\n        while not EndOfList do\r\n          CopyValue(Writer);\r\n        ReadListEnd;\r\n        Writer.WriteListEnd;\r\n      end;}\r\n    vaInt8, vaInt16, vaInt32:\r\n      Writer.WriteInteger(ReadInteger);\r\n{$ifndef FPUNONE}\r\n    vaExtended:\r\n      Writer.WriteFloat(ReadFloat);\r\n{$endif}\r\n    vaString:\r\n      Writer.WriteString(ReadString);\r\n    vaIdent:\r\n      Writer.WriteIdent(ReadIdent);\r\n    {!!!: vaBinary, vaLString, vaWString:\r\n      begin\r\n        Writer.WriteValue(FDriver.ReadValue);\r\n        FDriver.Read(Count, SizeOf(Count));\r\n        Writer.Driver.Write(Count, SizeOf(Count));\r\n        CopyBytes(Count);\r\n      end;}\r\n    {!!!: vaSet:\r\n      Writer.WriteSet(ReadSet);}\r\n    {!!!: vaCurrency:\r\n      Writer.WriteCurrency(ReadCurrency);}\r\n    vaInt64:\r\n      Writer.WriteInteger(ReadNativeInt);\r\n  end;\r\nend;\r\n\r\nfunction TReader.FindComponentClass(const AClassName: String): TComponentClass;\r\n\r\nvar\r\n  PersistentClass: TPersistentClass;\r\n\r\n  function FindClassInFieldTable(Instance: TComponent): TComponentClass;\r\n  var\r\n    aClass: TClass;\r\n    i: longint;\r\n    ClassTI, MemberClassTI: TTypeInfoClass;\r\n    MemberTI: TTypeInfo;\r\n  begin\r\n    aClass:=Instance.ClassType;\r\n    while aClass<>nil do\r\n      begin\r\n      ClassTI:=typeinfo(aClass);\r\n      for i:=0 to ClassTI.FieldCount-1 do\r\n        begin\r\n        MemberTI:=ClassTI.GetField(i).TypeInfo;\r\n        if MemberTI.Kind=tkClass then\r\n          begin\r\n          MemberClassTI:=TTypeInfoClass(MemberTI);\r\n          if SameText(MemberClassTI.Name,aClassName)\r\n              and (MemberClassTI.ClassType is TComponent) then\r\n            exit(TComponentClass(MemberClassTI.ClassType));\r\n          end;\r\n        end;\r\n      aClass:=aClass.ClassParent;\r\n      end;\r\n  end;\r\n\r\nbegin\r\n  Result := nil;\r\n  Result:=FindClassInFieldTable(Root);\r\n\r\n  if (Result=nil) and assigned(LookupRoot) and (LookupRoot<>Root) then\r\n    Result:=FindClassInFieldTable(LookupRoot);\r\n\r\n  if (Result=nil) then begin\r\n    PersistentClass := GetClass(AClassName);\r\n    if Assigned(PersistentClass) and PersistentClass.InheritsFrom(TComponent) then\r\n      Result := TComponentClass(PersistentClass);\r\n  end;\r\n\r\n  if (Result=nil) and assigned(OnFindComponentClass) then\r\n    OnFindComponentClass(Self, AClassName, Result);\r\n\r\n  if (Result=nil) or (not Result.InheritsFrom(TComponent)) then\r\n    raise EClassNotFound.CreateFmt(SClassNotFound, [AClassName]);\r\nend;\r\n\r\n\r\n{ TAbstractObjectReader }\r\n\r\nprocedure TAbstractObjectReader.FlushBuffer;\r\nbegin\r\n  // Do nothing\r\nend;\r\n\r\n\r\n{\r\n    This file is part of the Free Component Library (FCL)\r\n    Copyright (c) 1999-2000 by the Free Pascal development team\r\n\r\n    See the file COPYING.FPC, included in this distribution,\r\n    for details about the copyright.\r\n\r\n    This program is distributed in the hope that it will be useful,\r\n    but WITHOUT ANY WARRANTY; without even the implied warranty of\r\n    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\r\n\r\n **********************************************************************}\r\n\r\n\r\n{****************************************************************************}\r\n{*                         TBinaryObjectWriter                              *}\r\n{****************************************************************************}\r\n\r\n\r\nprocedure TBinaryObjectWriter.WriteWord(w : word);\r\nbegin\r\n  FStream.WriteBufferData(w);\r\nend;\r\n\r\nprocedure TBinaryObjectWriter.WriteDWord(lw : longword);\r\nbegin\r\n  FStream.WriteBufferData(lw);\r\nend;\r\n\r\nconstructor TBinaryObjectWriter.Create(Stream: TStream);\r\nbegin\r\n  inherited Create;\r\n  If (Stream=Nil) then\r\n    Raise EWriteError.Create(SEmptyStreamIllegalWriter);\r\n  FStream := Stream;\r\nend;\r\n\r\nprocedure TBinaryObjectWriter.BeginCollection;\r\nbegin\r\n  WriteValue(vaCollection);\r\nend;\r\n\r\nprocedure TBinaryObjectWriter.WriteSignature;\r\n\r\nbegin\r\n  FStream.WriteBufferData(FilerSignatureInt);\r\nend;\r\n\r\nprocedure TBinaryObjectWriter.BeginComponent(Component: TComponent;\r\n  Flags: TFilerFlags; ChildPos: Integer);\r\nvar\r\n  Prefix: Byte;\r\nbegin\r\n\r\n  { Only write the flags if they are needed! }\r\n  if Flags <> [] then\r\n  begin\r\n    Prefix:=0;\r\n    if ffInherited in Flags then\r\n     Prefix:=Prefix or $01;\r\n    if ffChildPos in Flags then\r\n     Prefix:=Prefix or $02;\r\n    if ffInline in Flags then\r\n     Prefix:=Prefix or $04;\r\n    Prefix := Prefix  or $f0;\r\n    FStream.WriteBufferData(Prefix);\r\n    if ffChildPos in Flags then\r\n      WriteInteger(ChildPos);\r\n  end;\r\n\r\n  WriteStr(Component.ClassName);\r\n  WriteStr(Component.Name);\r\nend;\r\n\r\nprocedure TBinaryObjectWriter.BeginList;\r\nbegin\r\n  WriteValue(vaList);\r\nend;\r\n\r\nprocedure TBinaryObjectWriter.EndList;\r\nbegin\r\n  WriteValue(vaNull);\r\nend;\r\n\r\nprocedure TBinaryObjectWriter.BeginProperty(const PropName: String);\r\nbegin\r\n  WriteStr(PropName);\r\nend;\r\n\r\nprocedure TBinaryObjectWriter.EndProperty;\r\nbegin\r\nend;\r\n\r\nprocedure TBinaryObjectWriter.FlushBuffer;\r\nbegin\r\n  // Do nothing;\r\nend;\r\n\r\nprocedure TBinaryObjectWriter.WriteBinary(const Buffer : TBytes; Count: LongInt);\r\nbegin\r\n  WriteValue(vaBinary);\r\n  WriteDWord(longword(Count));\r\n  FStream.Write(Buffer, Count);\r\nend;\r\n\r\nprocedure TBinaryObjectWriter.WriteBoolean(Value: Boolean);\r\nbegin\r\n  if Value then\r\n    WriteValue(vaTrue)\r\n  else\r\n    WriteValue(vaFalse);\r\nend;\r\n\r\nprocedure TBinaryObjectWriter.WriteFloat(const Value: Extended);\r\nbegin\r\n  WriteValue(vaDouble);\r\n  FStream.WriteBufferData(Value);\r\nend;\r\n\r\n\r\nprocedure TBinaryObjectWriter.WriteCurrency(const Value: Currency);\r\n\r\nVar\r\n  F : Double;\r\nbegin\r\n  WriteValue(vaCurrency);\r\n  F:=Value;\r\n  FStream.WriteBufferData(F);\r\nend;\r\n\r\nprocedure TBinaryObjectWriter.WriteIdent(const Ident: string);\r\nbegin\r\n  { Check if Ident is a special identifier before trying to just write\r\n    Ident directly }\r\n  if UpperCase(Ident) = 'NIL' then\r\n    WriteValue(vaNil)\r\n  else if UpperCase(Ident) = 'FALSE' then\r\n    WriteValue(vaFalse)\r\n  else if UpperCase(Ident) = 'TRUE' then\r\n    WriteValue(vaTrue)\r\n  else if UpperCase(Ident) = 'NULL' then\r\n    WriteValue(vaNull) else\r\n  begin\r\n    WriteValue(vaIdent);\r\n    WriteStr(Ident);\r\n  end;\r\nend;\r\n\r\nprocedure TBinaryObjectWriter.WriteInteger(Value: NativeInt);\r\nvar\r\n  s: ShortInt;\r\n  i: SmallInt;\r\n  l: Longint;\r\nbegin\r\n  { Use the smallest possible integer type for the given value: }\r\n  if (Value >= -128) and (Value <= 127) then\r\n  begin\r\n    WriteValue(vaInt8);\r\n    s := Value;\r\n    FStream.WriteBufferData(s);\r\n  end else if (Value >= -32768) and (Value <= 32767) then\r\n  begin\r\n    WriteValue(vaInt16);\r\n    i := Value;\r\n    WriteWord(word(i));\r\n  end else if (Value >= -$80000000) and (Value <= $7fffffff) then\r\n  begin\r\n    WriteValue(vaInt32);\r\n    l := Value;\r\n    WriteDWord(longword(l));\r\n  end else\r\n  begin\r\n    WriteValue(vaInt64);\r\n    FStream.WriteBufferData(Value);\r\n  end;\r\nend;\r\n\r\nprocedure TBinaryObjectWriter.WriteNativeInt(Value: NativeInt);\r\nvar\r\n  s: Int8;\r\n  i: Int16;\r\n  l: Int32;\r\nbegin\r\n  { Use the smallest possible integer type for the given value: }\r\n  if (Value <= 127) then\r\n  begin\r\n    WriteValue(vaInt8);\r\n    s := Value;\r\n    FStream.WriteBufferData(s);\r\n  end else if (Value <= 32767) then\r\n  begin\r\n    WriteValue(vaInt16);\r\n    i := Value;\r\n    WriteWord(word(i));\r\n  end else if (Value <= $7fffffff) then\r\n  begin\r\n    WriteValue(vaInt32);\r\n    l := Value;\r\n    WriteDWord(longword(l));\r\n  end else\r\n  begin\r\n    WriteValue(vaQWord);\r\n    FStream.WriteBufferData(Value);\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TBinaryObjectWriter.WriteMethodName(const Name: String);\r\nbegin\r\n  if Length(Name) > 0 then\r\n  begin\r\n    WriteValue(vaIdent);\r\n    WriteStr(Name);\r\n  end else\r\n    WriteValue(vaNil);\r\nend;\r\n\r\nprocedure TBinaryObjectWriter.WriteSet(Value: LongInt; SetType: Pointer);\r\nvar\r\n  i: Integer;\r\n  b : Integer;\r\nbegin\r\n  WriteValue(vaSet);\r\n  B:=1;\r\n  for i:=0 to 31 do\r\n    begin\r\n    if (Value and b) <>0 then\r\n      begin\r\n      WriteStr(GetEnumName(PTypeInfo(SetType), i));\r\n      end;\r\n    b:=b shl 1;\r\n    end;\r\n  WriteStr('');\r\nend;\r\n\r\nprocedure TBinaryObjectWriter.WriteString(const Value: String);\r\n\r\nvar\r\n  i, len: Integer;\r\nbegin\r\n  len := Length(Value);\r\n  WriteValue(vaString);\r\n  WriteDWord(len);\r\n  For I:=1 to len do\r\n    FStream.WriteBufferData(Value[i]);\r\nend;\r\n\r\nprocedure TBinaryObjectWriter.WriteWideString(const Value: WideString);\r\n\r\nbegin\r\n  WriteString(Value);\r\nend;\r\n\r\nprocedure TBinaryObjectWriter.WriteUnicodeString(const Value: UnicodeString);\r\n\r\nbegin\r\n  WriteString(Value);\r\nend;\r\n\r\nprocedure TBinaryObjectWriter.WriteVariant(const VarValue: JSValue);\r\nbegin\r\n  if isUndefined(varValue) then\r\n    WriteValue(vaNil)\r\n  else if IsNull(VarValue) then\r\n    WriteValue(vaNull)\r\n  else if IsNumber(VarValue) then\r\n    begin\r\n    if Frac(Double(varValue))=0 then\r\n      WriteInteger(NativeInt(VarValue))\r\n     else\r\n      WriteFloat(Double(varValue))\r\n    end\r\n  else if isBoolean(varValue) then\r\n    WriteBoolean(Boolean(VarValue))\r\n  else if isString(varValue) then\r\n    WriteString(String(VarValue))\r\n  else\r\n    raise EWriteError.Create(SUnsupportedPropertyVariantType);\r\nend;\r\n\r\n\r\nprocedure TBinaryObjectWriter.Write(const Buffer : TBytes; Count: LongInt);\r\n\r\nbegin\r\n  FStream.Write(Buffer,Count);\r\nend;\r\n\r\nprocedure TBinaryObjectWriter.WriteValue(Value: TValueType);\r\nvar\r\n  b: uint8;\r\nbegin\r\n  b := uint8(Value);\r\n  FStream.WriteBufferData(b);\r\nend;\r\n\r\nprocedure TBinaryObjectWriter.WriteStr(const Value: String);\r\nvar\r\n  len,i: integer;\r\n  b: uint8;\r\nbegin\r\n  len:= Length(Value);\r\n  if len > 255 then\r\n    len := 255;\r\n  b := len;\r\n  FStream.WriteBufferData(b);\r\n  For I:=1 to len do\r\n    FStream.WriteBufferData(Value[i]);\r\nend;\r\n\r\n\r\n\r\n{****************************************************************************}\r\n{*                             TWriter                                      *}\r\n{****************************************************************************}\r\n\r\n\r\nconstructor TWriter.Create(ADriver: TAbstractObjectWriter);\r\nbegin\r\n  inherited Create;\r\n  FDriver := ADriver;\r\nend;\r\n\r\nconstructor TWriter.Create(Stream: TStream);\r\nbegin\r\n  inherited Create;\r\n  If (Stream=Nil) then\r\n    Raise EWriteError.Create(SEmptyStreamIllegalWriter);\r\n  FDriver := CreateDriver(Stream);\r\n  FDestroyDriver := True;\r\nend;\r\n\r\ndestructor TWriter.Destroy;\r\nbegin\r\n  if FDestroyDriver then\r\n    FDriver.Free;\r\n  inherited Destroy;\r\nend;\r\n\r\nfunction TWriter.CreateDriver(Stream: TStream): TAbstractObjectWriter;\r\nbegin\r\n  Result := TBinaryObjectWriter.Create(Stream);\r\nend;\r\n\r\nType\r\n  TPosComponent = Class(TObject)\r\n  Private\r\n    FPos : Integer;\r\n    FComponent : TComponent;\r\n  Public\r\n    Constructor Create(APos : Integer; AComponent : TComponent);\r\n  end;\r\n\r\nConstructor TPosComponent.Create(APos : Integer; AComponent : TComponent);\r\n\r\nbegin\r\n  FPos:=APos;\r\n  FComponent:=AComponent;\r\nend;\r\n\r\n// Used as argument for calls to TComponent.GetChildren:\r\nprocedure TWriter.AddToAncestorList(Component: TComponent);\r\nbegin\r\n  FAncestors.AddObject(Component.Name,TPosComponent.Create(FAncestors.Count,Component));\r\nend;\r\n\r\nprocedure TWriter.DefineProperty(const Name: String;\r\n  ReadData: TReaderProc; AWriteData: TWriterProc; HasData: Boolean);\r\nbegin\r\n  if HasData and Assigned(AWriteData) then\r\n  begin\r\n    // Write the property name and then the data itself\r\n    Driver.BeginProperty(FPropPath + Name);\r\n    AWriteData(Self);\r\n    Driver.EndProperty;\r\n  end else if assigned(ReadData) then ;\r\nend;\r\n\r\nprocedure TWriter.DefineBinaryProperty(const Name: String;\r\n  ReadData, AWriteData: TStreamProc; HasData: Boolean);\r\nbegin\r\n  if HasData and Assigned(AWriteData) then\r\n  begin\r\n    // Write the property name and then the data itself\r\n    Driver.BeginProperty(FPropPath + Name);\r\n    WriteBinary(AWriteData);\r\n    Driver.EndProperty;\r\n  end else if assigned(ReadData) then ;\r\nend;\r\n\r\nprocedure TWriter.FlushBuffer;\r\nbegin\r\n  Driver.FlushBuffer;\r\nend;\r\n\r\nprocedure TWriter.Write(const Buffer : TBytes; Count: Longint);\r\nbegin\r\n  //This should give an exception if write is not implemented (i.e. TTextObjectWriter)\r\n  //but should work with TBinaryObjectWriter.\r\n  Driver.Write(Buffer, Count);\r\nend;\r\n\r\nprocedure TWriter.SetRoot(ARoot: TComponent);\r\nbegin\r\n  inherited SetRoot(ARoot);\r\n  // Use the new root as lookup root too\r\n  FLookupRoot := ARoot;\r\nend;\r\n\r\nprocedure TWriter.WriteSignature;\r\n\r\nbegin\r\n  FDriver.WriteSignature;\r\nend;\r\n\r\nprocedure TWriter.WriteBinary(AWriteData: TStreamProc);\r\nvar\r\n  MemBuffer: TBytesStream;\r\nbegin\r\n  { First write the binary data into a memory stream, then copy this buffered\r\n    stream into the writing destination. This is necessary as we have to know\r\n    the size of the binary data in advance (we're assuming that seeking within\r\n    the writer stream is not possible) }\r\n  MemBuffer := TBytesStream.Create;\r\n  try\r\n    AWriteData(MemBuffer);\r\n    Driver.WriteBinary(MemBuffer.Bytes, MemBuffer.Size);\r\n  finally\r\n    MemBuffer.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TWriter.WriteBoolean(Value: Boolean);\r\nbegin\r\n  Driver.WriteBoolean(Value);\r\nend;\r\n\r\nprocedure TWriter.WriteChar(Value: Char);\r\nbegin\r\n  WriteString(Value);\r\nend;\r\n\r\nprocedure TWriter.WriteWideChar(Value: WideChar);\r\nbegin\r\n  WriteWideString(Value);\r\nend;\r\n\r\nprocedure TWriter.WriteCollection(Value: TCollection);\r\nvar\r\n  i: Integer;\r\nbegin\r\n  Driver.BeginCollection;\r\n  if Assigned(Value) then\r\n    for i := 0 to Value.Count - 1 do\r\n    begin\r\n      { Each collection item needs its own ListBegin/ListEnd tag, or else the\r\n        reader wouldn't be able to know where an item ends and where the next\r\n        one starts }\r\n      WriteListBegin;\r\n      WriteProperties(Value.Items[i]);\r\n      WriteListEnd;\r\n    end;\r\n  WriteListEnd;\r\nend;\r\n\r\nprocedure TWriter.DetermineAncestor(Component : TComponent);\r\n\r\nVar\r\n  I : Integer;\r\n\r\nbegin\r\n  // Should be set only when we write an inherited with children.\r\n  if Not Assigned(FAncestors) then\r\n    exit;\r\n  I:=FAncestors.IndexOf(Component.Name);\r\n  If (I=-1) then\r\n    begin\r\n    FAncestor:=Nil;\r\n    FAncestorPos:=-1;\r\n    end\r\n  else\r\n    With TPosComponent(FAncestors.Objects[i]) do\r\n      begin\r\n      FAncestor:=FComponent;\r\n      FAncestorPos:=FPos;\r\n      end;\r\nend;\r\n\r\nprocedure TWriter.DoFindAncestor(Component : TComponent);\r\n\r\nVar\r\n  C : TComponent;\r\n\r\nbegin\r\n  if Assigned(FOnFindAncestor) then\r\n    if (Ancestor=Nil) or (Ancestor is TComponent) then\r\n      begin\r\n      C:=TComponent(Ancestor);\r\n      FOnFindAncestor(Self,Component,Component.Name,C,FRootAncestor);\r\n      Ancestor:=C;\r\n      end;\r\nend;\r\n\r\nprocedure TWriter.WriteComponent(Component: TComponent);\r\n\r\nvar\r\n  SA : TPersistent;\r\n  SR, SRA : TComponent;\r\nbegin\r\n  SR:=FRoot;\r\n  SA:=FAncestor;\r\n  SRA:=FRootAncestor;\r\n  Try\r\n    Component.FComponentState:=Component.FComponentState+[csWriting];\r\n    Try\r\n      // Possibly set ancestor.\r\n      DetermineAncestor(Component);\r\n      DoFindAncestor(Component); // Mainly for IDE when a parent form had an ancestor renamed...\r\n      // Will call WriteComponentData.\r\n      Component.WriteState(Self);\r\n      FDriver.EndList;\r\n    Finally\r\n      Component.FComponentState:=Component.FComponentState-[csWriting];\r\n    end;\r\n  Finally\r\n    FAncestor:=SA;\r\n    FRoot:=SR;\r\n    FRootAncestor:=SRA;\r\n  end;\r\nend;\r\n\r\nprocedure TWriter.WriteChildren(Component : TComponent);\r\n\r\nVar\r\n  SRoot, SRootA : TComponent;\r\n  SList : TStringList;\r\n  SPos, I , SAncestorPos: Integer;\r\n  O : TObject;\r\n\r\nbegin\r\n  // Write children list.\r\n  // While writing children, the ancestor environment must be saved\r\n  // This is recursive...\r\n  SRoot:=FRoot;\r\n  SRootA:=FRootAncestor;\r\n  SList:=FAncestors;\r\n  SPos:=FCurrentPos;\r\n  SAncestorPos:=FAncestorPos;\r\n  try\r\n    FAncestors:=Nil;\r\n    FCurrentPos:=0;\r\n    FAncestorPos:=-1;\r\n    if csInline in Component.ComponentState then\r\n       FRoot:=Component;\r\n    if (FAncestor is TComponent) then\r\n       begin\r\n       FAncestors:=TStringList.Create;\r\n       if csInline in TComponent(FAncestor).ComponentState then\r\n         FRootAncestor := TComponent(FAncestor);\r\n       TComponent(FAncestor).GetChildren(@AddToAncestorList,FRootAncestor);\r\n       FAncestors.Sorted:=True;\r\n       end;\r\n    try\r\n      Component.GetChildren(@WriteComponent, FRoot);\r\n    Finally\r\n      If Assigned(Fancestors) then\r\n        For I:=0 to FAncestors.Count-1 do\r\n          begin\r\n          O:=FAncestors.Objects[i];\r\n          FAncestors.Objects[i]:=Nil;\r\n          O.Free;\r\n          end;\r\n      FreeAndNil(FAncestors);\r\n    end;\r\n  finally\r\n    FAncestors:=Slist;\r\n    FRoot:=SRoot;\r\n    FRootAncestor:=SRootA;\r\n    FCurrentPos:=SPos;\r\n    FAncestorPos:=SAncestorPos;\r\n  end;\r\nend;\r\n\r\nprocedure TWriter.WriteComponentData(Instance: TComponent);\r\nvar\r\n  Flags: TFilerFlags;\r\nbegin\r\n  Flags := [];\r\n  If (Assigned(FAncestor)) and  //has ancestor\r\n     (not (csInline in Instance.ComponentState) or // no inline component\r\n      // .. or the inline component is inherited\r\n      (csAncestor in Instance.Componentstate) and (FAncestors <> nil)) then\r\n    Flags:=[ffInherited]\r\n  else If csInline in Instance.ComponentState then\r\n    Flags:=[ffInline];\r\n  If (FAncestors<>Nil) and ((FCurrentPos<>FAncestorPos) or (FAncestor=Nil)) then\r\n    Include(Flags,ffChildPos);\r\n  FDriver.BeginComponent(Instance,Flags,FCurrentPos);\r\n  If (FAncestors<>Nil) then\r\n    Inc(FCurrentPos);\r\n  WriteProperties(Instance);\r\n  WriteListEnd;\r\n  // Needs special handling of ancestor.\r\n  If not IgnoreChildren then\r\n    WriteChildren(Instance);\r\nend;\r\n\r\nprocedure TWriter.WriteDescendent(ARoot: TComponent; AAncestor: TComponent);\r\nbegin\r\n  FRoot := ARoot;\r\n  FAncestor := AAncestor;\r\n  FRootAncestor := AAncestor;\r\n  FLookupRoot := ARoot;\r\n  WriteSignature;\r\n  WriteComponent(ARoot);\r\nend;\r\n\r\nprocedure TWriter.WriteFloat(const Value: Extended);\r\nbegin\r\n  Driver.WriteFloat(Value);\r\nend;\r\n\r\n\r\nprocedure TWriter.WriteCurrency(const Value: Currency);\r\nbegin\r\n  Driver.WriteCurrency(Value);\r\nend;\r\n\r\n\r\nprocedure TWriter.WriteIdent(const Ident: string);\r\nbegin\r\n  Driver.WriteIdent(Ident);\r\nend;\r\n\r\nprocedure TWriter.WriteInteger(Value: LongInt);\r\nbegin\r\n  Driver.WriteInteger(Value);\r\nend;\r\n\r\nprocedure TWriter.WriteInteger(Value: NativeInt);\r\nbegin\r\n  Driver.WriteInteger(Value);\r\nend;\r\n\r\nprocedure TWriter.WriteSet(Value: LongInt; SetType: Pointer);\r\n\r\nbegin\r\n  Driver.WriteSet(Value,SetType);\r\nend;\r\n\r\nprocedure TWriter.WriteVariant(const VarValue: JSValue);\r\nbegin\r\n  Driver.WriteVariant(VarValue);\r\nend;\r\n\r\nprocedure TWriter.WriteListBegin;\r\nbegin\r\n  Driver.BeginList;\r\nend;\r\n\r\nprocedure TWriter.WriteListEnd;\r\nbegin\r\n  Driver.EndList;\r\nend;\r\n\r\nprocedure TWriter.WriteProperties(Instance: TPersistent);\r\n\r\nvar\r\n  PropCount,i : integer;\r\n  PropList  : TTypeMemberPropertyDynArray;\r\n\r\nbegin\r\n  PropList:=GetPropList(Instance);\r\n  PropCount:=Length(PropList);\r\n  if PropCount>0 then\r\n    for i := 0 to PropCount-1 do\r\n      if IsStoredProp(Instance,PropList[i]) then\r\n        WriteProperty(Instance,PropList[i]);\r\n  Instance.DefineProperties(Self);\r\nend;\r\n\r\n\r\nprocedure TWriter.WriteProperty(Instance: TPersistent; PropInfo: TTypeMemberProperty);\r\nvar\r\n  HasAncestor: Boolean;\r\n  PropType: TTypeInfo;\r\n  N,Value, DefValue: LongInt;\r\n  Ident: String;\r\n  IntToIdentFn: TIntToIdent;\r\n{$ifndef FPUNONE}\r\n  FloatValue, DefFloatValue: Extended;\r\n{$endif}\r\n  MethodValue: TMethod;\r\n  DefMethodValue: TMethod;\r\n  StrValue, DefStrValue: String;\r\n  AncestorObj: TObject;\r\n  C,Component: TComponent;\r\n  ObjValue: TObject;\r\n  SavedAncestor: TPersistent;\r\n  Key, SavedPropPath, Name, lMethodName: String;\r\n  VarValue, DefVarValue : JSValue;\r\n  BoolValue, DefBoolValue: boolean;\r\n  Handled: Boolean;\r\n  O : TJSObject;\r\nbegin\r\n  // do not stream properties without getter\r\n  if PropInfo.Getter='' then\r\n    exit;\r\n  // properties without setter are only allowed, if they are subcomponents\r\n  PropType := PropInfo.TypeInfo;\r\n  if (PropInfo.Setter='') then\r\n    begin\r\n    if PropType.Kind<>tkClass then\r\n      exit;\r\n    ObjValue := TObject(GetObjectProp(Instance, PropInfo));\r\n    if not ObjValue.InheritsFrom(TComponent) or\r\n       not (csSubComponent in TComponent(ObjValue).ComponentStyle) then\r\n      exit;\r\n    end;\r\n\r\n  { Check if the ancestor can be used }\r\n  HasAncestor := Assigned(Ancestor) and ((Instance = Root) or\r\n    (Instance.ClassType = Ancestor.ClassType));\r\n  //writeln('TWriter.WriteProperty Name=',PropType^.Name,' Kind=',GetEnumName(TypeInfo(TTypeKind),ord(PropType^.Kind)),' HasAncestor=',HasAncestor);\r\n\r\n  case PropType.Kind of\r\n    tkInteger, tkChar, tkEnumeration, tkSet:\r\n      begin\r\n        Value := GetOrdProp(Instance, PropInfo);\r\n        if HasAncestor then\r\n          DefValue := GetOrdProp(Ancestor, PropInfo)\r\n        else\r\n          begin\r\n          if PropType.Kind<>tkSet then\r\n            DefValue := Longint(PropInfo.Default)\r\n          else\r\n            begin\r\n            o:=TJSObject(PropInfo.Default);\r\n            DefValue:=0;\r\n            for Key in o do\r\n              begin\r\n              n:=parseInt(Key,10);\r\n              if n<32 then\r\n                DefValue:=DefValue+(1 shl n);\r\n              end;\r\n            end;\r\n          end;\r\n        // writeln(PPropInfo(PropInfo)^.Name, ', HasAncestor=', ord(HasAncestor), ', Value=', Value, ', Default=', DefValue);\r\n        if (Value <> DefValue) or (DefValue=longint($80000000)) then\r\n        begin\r\n          Driver.BeginProperty(FPropPath + PropInfo.Name);\r\n          case PropType.Kind of\r\n            tkInteger:\r\n              begin\r\n                // Check if this integer has a string identifier\r\n                IntToIdentFn := FindIntToIdent(PropInfo.TypeInfo);\r\n                if Assigned(IntToIdentFn) and IntToIdentFn(Value, Ident) then\r\n                  // Integer can be written a human-readable identifier\r\n                  WriteIdent(Ident)\r\n                else\r\n                  // Integer has to be written just as number\r\n                  WriteInteger(Value);\r\n              end;\r\n            tkChar:\r\n              WriteChar(Chr(Value));\r\n            tkSet:\r\n              begin\r\n              Driver.WriteSet(Value, TTypeInfoSet(PropType).CompType);\r\n              end;\r\n            tkEnumeration:\r\n              WriteIdent(GetEnumName(TTypeInfoEnum(PropType), Value));\r\n          end;\r\n          Driver.EndProperty;\r\n        end;\r\n      end;\r\n{$ifndef FPUNONE}\r\n    tkFloat:\r\n      begin\r\n        FloatValue := GetFloatProp(Instance, PropInfo);\r\n        if HasAncestor then\r\n          DefFloatValue := GetFloatProp(Ancestor, PropInfo)\r\n        else\r\n          begin\r\n          // This is really ugly..\r\n          DefFloatValue:=Double(PropInfo.Default);\r\n          end;\r\n        if (FloatValue<>DefFloatValue) or (not HasAncestor and (int(DefFloatValue)=longint($80000000))) then\r\n        begin\r\n          Driver.BeginProperty(FPropPath + PropInfo.Name);\r\n          WriteFloat(FloatValue);\r\n          Driver.EndProperty;\r\n        end;\r\n      end;\r\n{$endif}\r\n    tkMethod:\r\n      begin\r\n        MethodValue := GetMethodProp(Instance, PropInfo);\r\n        if HasAncestor then\r\n          DefMethodValue := GetMethodProp(Ancestor, PropInfo)\r\n        else begin\r\n          DefMethodValue.Data := nil;\r\n          DefMethodValue.Code := nil;\r\n        end;\r\n\r\n        Handled:=false;\r\n        if Assigned(OnWriteMethodProperty) then\r\n          OnWriteMethodProperty(Self,Instance,PropInfo,MethodValue,\r\n            DefMethodValue,Handled);\r\n        if isString(MethodValue.Code) then\r\n          lMethodName:=String(MethodValue.Code)\r\n        else\r\n          lMethodName:=FLookupRoot.MethodName(MethodValue.Code);\r\n        //Writeln('Writeln A: ',lMethodName);\r\n        if (not Handled) and\r\n          (MethodValue.Code <> DefMethodValue.Code) and\r\n          ((not Assigned(MethodValue.Code)) or\r\n          ((Length(lMethodName) > 0))) then\r\n        begin\r\n          //Writeln('Writeln B',FPropPath + PropInfo.Name);\r\n          Driver.BeginProperty(FPropPath + PropInfo.Name);\r\n          if Assigned(MethodValue.Code) then\r\n            Driver.WriteMethodName(lMethodName)\r\n          else\r\n            Driver.WriteMethodName('');\r\n          Driver.EndProperty;\r\n        end;\r\n      end;\r\n    tkString: // tkSString, tkLString, tkAString are not supported\r\n      begin\r\n        StrValue := GetStrProp(Instance, PropInfo);\r\n        if HasAncestor then\r\n          DefStrValue := GetStrProp(Ancestor, PropInfo)\r\n        else\r\n        begin\r\n          DefValue :=Longint(PropInfo.Default);\r\n          SetLength(DefStrValue, 0);\r\n        end;\r\n\r\n        if (StrValue<>DefStrValue) or (not HasAncestor and (DefValue=longint($80000000))) then\r\n        begin\r\n          Driver.BeginProperty(FPropPath + PropInfo.Name);\r\n          if Assigned(FOnWriteStringProperty) then\r\n            FOnWriteStringProperty(Self,Instance,PropInfo,StrValue);\r\n          WriteString(StrValue);\r\n          Driver.EndProperty;\r\n        end;\r\n      end;\r\n    tkJSValue:\r\n      begin\r\n        { Ensure that a Variant manager is installed }\r\n        VarValue := GetJSValueProp(Instance, PropInfo);\r\n        if HasAncestor then\r\n          DefVarValue := GetJSValueProp(Ancestor, PropInfo)\r\n        else\r\n          DefVarValue:=null;\r\n\r\n        if (VarValue<>DefVarValue) then\r\n          begin\r\n            Driver.BeginProperty(FPropPath + PropInfo.Name);\r\n            { can't use variant() typecast, pulls in variants unit }\r\n            WriteVariant(VarValue);\r\n            Driver.EndProperty;\r\n          end;\r\n      end;\r\n    tkClass:\r\n      begin\r\n        ObjValue := TObject(GetObjectProp(Instance, PropInfo));\r\n        if HasAncestor then\r\n        begin\r\n          AncestorObj := TObject(GetObjectProp(Ancestor, PropInfo));\r\n          if (AncestorObj is TComponent) and\r\n             (ObjValue is TComponent) then\r\n          begin\r\n            //writeln('TWriter.WriteProperty AncestorObj=',TComponent(AncestorObj).Name,' OwnerFit=',TComponent(AncestorObj).Owner = FRootAncestor,' ',TComponent(ObjValue).Name,' OwnerFit=',TComponent(ObjValue).Owner = Root);\r\n            if (AncestorObj<> ObjValue) and\r\n             (TComponent(AncestorObj).Owner = FRootAncestor) and\r\n             (TComponent(ObjValue).Owner = Root) and\r\n             (UpperCase(TComponent(AncestorObj).Name) = UpperCase(TComponent(ObjValue).Name)) then\r\n            begin\r\n              // different components, but with the same name\r\n              // treat it like an override\r\n              AncestorObj := ObjValue;\r\n            end;\r\n          end;\r\n        end else\r\n          AncestorObj := nil;\r\n\r\n        if not Assigned(ObjValue) then\r\n          begin\r\n          if ObjValue <> AncestorObj then\r\n            begin\r\n            Driver.BeginProperty(FPropPath + PropInfo.Name);\r\n            Driver.WriteIdent('NIL');\r\n            Driver.EndProperty;\r\n            end\r\n          end\r\n        else if ObjValue.InheritsFrom(TPersistent) then\r\n          begin\r\n          { Subcomponents are streamed the same way as persistents }\r\n          if ObjValue.InheritsFrom(TComponent)\r\n            and ((not (csSubComponent in TComponent(ObjValue).ComponentStyle))\r\n                 or ((TComponent(ObjValue).Owner<>Instance) and (TComponent(ObjValue).Owner<>Nil))) then\r\n            begin\r\n            Component := TComponent(ObjValue);\r\n            if (ObjValue <> AncestorObj)\r\n                and not (csTransient in Component.ComponentStyle) then\r\n              begin\r\n              Name:= '';\r\n              C:= Component;\r\n              While (C<>Nil) and (C.Name<>'') do\r\n                begin\r\n                If (Name<>'') Then\r\n                  Name:='.'+Name;\r\n                if C.Owner = LookupRoot then\r\n                  begin\r\n                  Name := C.Name+Name;\r\n                  break;\r\n                  end\r\n                else if C = LookupRoot then\r\n                  begin\r\n                  Name := 'Owner' + Name;\r\n                  break;\r\n                  end;\r\n                Name:=C.Name + Name;\r\n                C:= C.Owner;\r\n                end;\r\n              if (C=nil) and (Component.Owner=nil) then\r\n                if (Name<>'') then              //foreign root\r\n                  Name:=Name+'.Owner';\r\n              if Length(Name) > 0 then\r\n                begin\r\n                Driver.BeginProperty(FPropPath + PropInfo.Name);\r\n                WriteIdent(Name);\r\n                Driver.EndProperty;\r\n                end;  // length Name>0\r\n              end; //(ObjValue <> AncestorObj)\r\n            end // ObjValue.InheritsFrom(TComponent)\r\n          else\r\n            begin\r\n            SavedAncestor := Ancestor;\r\n            SavedPropPath := FPropPath;\r\n            try\r\n              FPropPath := FPropPath + PropInfo.Name + '.';\r\n              if HasAncestor then\r\n                Ancestor := TPersistent(GetObjectProp(Ancestor, PropInfo));\r\n              WriteProperties(TPersistent(ObjValue));\r\n            finally\r\n              Ancestor := SavedAncestor;\r\n              FPropPath := SavedPropPath;\r\n            end;\r\n            if ObjValue.InheritsFrom(TCollection) then\r\n              begin\r\n              if (not HasAncestor) or (not CollectionsEqual(TCollection(ObjValue),\r\n                TCollection(GetObjectProp(Ancestor, PropInfo)),root,rootancestor)) then\r\n                begin\r\n                Driver.BeginProperty(FPropPath + PropInfo.Name);\r\n                SavedPropPath := FPropPath;\r\n                try\r\n                  SetLength(FPropPath, 0);\r\n                  WriteCollection(TCollection(ObjValue));\r\n                finally\r\n                  FPropPath := SavedPropPath;\r\n                  Driver.EndProperty;\r\n                end;\r\n                end;\r\n              end // Tcollection\r\n            end;\r\n          end; // Inheritsfrom(TPersistent)\r\n      end;\r\n{    tkInt64, tkQWord:\r\n      begin\r\n        Int64Value := GetInt64Prop(Instance, PropInfo);\r\n        if HasAncestor then\r\n          DefInt64Value := GetInt64Prop(Ancestor, PropInfo)\r\n        else\r\n          DefInt64Value := 0;\r\n        if Int64Value <> DefInt64Value then\r\n        begin\r\n          Driver.BeginProperty(FPropPath + PPropInfo(PropInfo)^.Name);\r\n          WriteInteger(Int64Value);\r\n          Driver.EndProperty;\r\n        end;\r\n      end;}\r\n    tkBool:\r\n      begin\r\n        BoolValue := GetOrdProp(Instance, PropInfo)<>0;\r\n        if HasAncestor then\r\n          DefBoolValue := GetOrdProp(Ancestor, PropInfo)<>0\r\n        else\r\n          begin\r\n          DefBoolValue := PropInfo.Default<>0;\r\n          DefValue:=Longint(PropInfo.Default);\r\n          end;\r\n        // writeln(PropInfo.Name, ', HasAncestor=', ord(HasAncestor), ', Value=', Value, ', Default=', DefBoolValue);\r\n        if (BoolValue<>DefBoolValue) or (DefValue=longint($80000000)) then\r\n          begin\r\n          Driver.BeginProperty(FPropPath + PropInfo.Name);\r\n          WriteBoolean(BoolValue);\r\n          Driver.EndProperty;\r\n          end;\r\n      end;\r\n    tkInterface:\r\n      begin\r\n{        IntfValue := GetInterfaceProp(Instance, PropInfo);\r\n      if Assigned(IntfValue) and Supports(IntfValue, IInterfaceComponentReference, CompRef) then\r\n          begin\r\n          Component := CompRef.GetComponent;\r\n          if HasAncestor then\r\n          begin\r\n            AncestorObj := TObject(GetObjectProp(Ancestor, PropInfo));\r\n            if (AncestorObj is TComponent) then\r\n            begin\r\n              //writeln('TWriter.WriteProperty AncestorObj=',TComponent(AncestorObj).Name,' OwnerFit=',TComponent(AncestorObj).Owner = FRootAncestor,' ',TComponent(ObjValue).Name,' OwnerFit=',TComponent(ObjValue).Owner = Root);\r\n              if (AncestorObj<> Component) and\r\n               (TComponent(AncestorObj).Owner = FRootAncestor) and\r\n               (Component.Owner = Root) and\r\n               (UpperCase(TComponent(AncestorObj).Name) = UpperCase(Component.Name)) then\r\n              begin\r\n                // different components, but with the same name\r\n                // treat it like an override\r\n                AncestorObj := Component;\r\n              end;\r\n            end;\r\n          end else\r\n            AncestorObj := nil;\r\n\r\n          if not Assigned(Component) then\r\n            begin\r\n            if Component <> AncestorObj then\r\n              begin\r\n              Driver.BeginProperty(FPropPath + PropInfo.Name);\r\n              Driver.WriteIdent('NIL');\r\n              Driver.EndProperty;\r\n              end\r\n            end\r\n          else if ((not (csSubComponent in Component.ComponentStyle))\r\n                 or ((Component.Owner<>Instance) and (Component.Owner<>Nil))) then\r\n            begin\r\n            if (Component <> AncestorObj)\r\n                and not (csTransient in Component.ComponentStyle) then\r\n              begin\r\n              Name:= '';\r\n              C:= Component;\r\n              While (C<>Nil) and (C.Name<>'') do\r\n                begin\r\n                If (Name<>'') Then\r\n                  Name:='.'+Name;\r\n                if C.Owner = LookupRoot then\r\n                  begin\r\n                  Name := C.Name+Name;\r\n                  break;\r\n                  end\r\n                else if C = LookupRoot then\r\n                  begin\r\n                  Name := 'Owner' + Name;\r\n                  break;\r\n                  end;\r\n                Name:=C.Name + Name;\r\n                C:= C.Owner;\r\n                end;\r\n              if (C=nil) and (Component.Owner=nil) then\r\n                if (Name<>'') then              //foreign root\r\n                  Name:=Name+'.Owner';\r\n              if Length(Name) > 0 then\r\n                begin\r\n                Driver.BeginProperty(FPropPath + PropInfo.Name);\r\n                WriteIdent(Name);\r\n                Driver.EndProperty;\r\n                end;  // length Name>0\r\n              end; //(Component <> AncestorObj)\r\n            end;\r\n          end; //Assigned(IntfValue) and Supports(IntfValue,..\r\n               //else write NIL ?\r\n}      end;\r\n  end;\r\nend;\r\n\r\nprocedure TWriter.WriteRootComponent(ARoot: TComponent);\r\nbegin\r\n  WriteDescendent(ARoot, nil);\r\nend;\r\n\r\nprocedure TWriter.WriteString(const Value: String);\r\nbegin\r\n  Driver.WriteString(Value);\r\nend;\r\n\r\nprocedure TWriter.WriteWideString(const Value: WideString);\r\nbegin\r\n  Driver.WriteWideString(Value);\r\nend;\r\n\r\nprocedure TWriter.WriteUnicodeString(const Value: UnicodeString);\r\nbegin\r\n  Driver.WriteUnicodeString(Value);\r\nend;\r\n\r\n{ TAbstractObjectWriter }\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n  Global routines\r\n  ---------------------------------------------------------------------}\r\nType\r\n  TInitHandler = Class(TObject)\r\n    AHandler : TInitComponentHandler;\r\n    AClass : TComponentClass;\r\n  end;\r\n\r\nvar\r\n  ClassList : TJSObject;\r\n  InitHandlerList : TList;\r\n  FindGlobalComponentList : TFPList;\r\n\r\nProcedure RegisterClass(AClass : TPersistentClass);\r\n\r\nbegin\r\n  ClassList[AClass.ClassName]:=AClass;\r\nend;\r\n\r\nProcedure RegisterClasses(AClasses : specialize TArray<TPersistentClass>);\r\nvar\r\n  AClass : TPersistentClass;\r\n\r\nbegin\r\n  for AClass in AClasses do\r\n    RegisterClass(AClass);\r\nend;\r\n\r\nFunction GetClass(AClassName : string) : TPersistentClass;\r\n\r\nbegin\r\n  Result:=nil;\r\n  if AClassName='' then exit;\r\n  if not ClassList.hasOwnProperty(AClassName) then exit;\r\n  Result:=TPersistentClass(ClassList[AClassName]);\r\nend;\r\n\r\n\r\nprocedure RegisterFindGlobalComponentProc(AFindGlobalComponent: TFindGlobalComponent);\r\n  begin\r\n    if not(assigned(FindGlobalComponentList)) then\r\n      FindGlobalComponentList:=TFPList.Create;\r\n    if FindGlobalComponentList.IndexOf(CodePointer(AFindGlobalComponent))<0 then\r\n      FindGlobalComponentList.Add(CodePointer(AFindGlobalComponent));\r\n  end;\r\n\r\n\r\nprocedure UnregisterFindGlobalComponentProc(AFindGlobalComponent: TFindGlobalComponent);\r\n  begin\r\n    if assigned(FindGlobalComponentList) then\r\n      FindGlobalComponentList.Remove(CodePointer(AFindGlobalComponent));\r\n  end;\r\n\r\n\r\nfunction FindGlobalComponent(const Name: string): TComponent;\r\n\r\nvar\r\n      i : sizeint;\r\nbegin\r\n  Result:=nil;\r\n  if assigned(FindGlobalComponentList) then\r\n    begin\r\n      for i:=FindGlobalComponentList.Count-1 downto 0 do\r\n      \tbegin\r\n      \t  FindGlobalComponent:=TFindGlobalComponent(FindGlobalComponentList[i])(name);\r\n      \t  if assigned(Result) then\r\n      \t    break;\r\n      \tend;\r\n    end;\r\nend;\r\n\r\nFunction FindNestedComponent(Root : TComponent; APath : String; CStyle : Boolean = True) : TComponent;\r\n\r\n  Function GetNextName : String; {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE}\r\n\r\n  Var\r\n    P : Integer;\r\n    CM : Boolean;\r\n\r\n  begin\r\n    P:=Pos('.',APath);\r\n    CM:=False;\r\n    If (P=0) then\r\n      begin\r\n      If CStyle then\r\n        begin\r\n        P:=Pos('->',APath);\r\n        CM:=P<>0;\r\n        end;\r\n      If (P=0) Then\r\n        P:=Length(APath)+1;\r\n      end;\r\n    Result:=Copy(APath,1,P-1);\r\n    Delete(APath,1,P+Ord(CM));\r\n  end;\r\n\r\nVar\r\n  C : TComponent;\r\n  S : String;\r\nbegin\r\n  If (APath='') then\r\n    Result:=Nil\r\n  else\r\n    begin\r\n    Result:=Root;\r\n    While (APath<>'') And (Result<>Nil) do\r\n      begin\r\n      C:=Result;\r\n      S:=Uppercase(GetNextName);\r\n      Result:=C.FindComponent(S);\r\n      If (Result=Nil) And (S='OWNER') then\r\n        Result:=C;\r\n      end;\r\n    end;\r\nend;\r\n\r\nfunction InitInheritedComponent(Instance: TComponent; RootAncestor: TClass): Boolean;\r\nVar\r\n  I : Integer;\r\nbegin\r\n  I:=0;\r\n  if not Assigned(InitHandlerList) then begin\r\n    Result := True;\r\n    Exit;\r\n  end;\r\n  Result:=False;\r\n  With InitHandlerList do\r\n    begin\r\n    I:=0;\r\n    // Instance is the normally the lowest one, so that one should be used when searching.\r\n    While Not result and (I<Count) do\r\n      begin\r\n      If (Instance.InheritsFrom(TInitHandler(Items[i]).AClass)) then\r\n        Result:=TInitHandler(Items[i]).AHandler(Instance,RootAncestor);\r\n      Inc(I);\r\n      end;\r\n    end;\r\nend;\r\n\r\n\r\n\r\nprocedure RegisterInitComponentHandler(ComponentClass: TComponentClass;   Handler: TInitComponentHandler);\r\n\r\nVar\r\n  I : Integer;\r\n  H: TInitHandler;\r\nbegin\r\n  If (InitHandlerList=Nil) then\r\n    InitHandlerList:=TList.Create;\r\n  H:=TInitHandler.Create;\r\n  H.Aclass:=ComponentClass;\r\n  H.AHandler:=Handler;\r\n  try\r\n    With InitHandlerList do\r\n      begin\r\n        I:=0;\r\n        While (I<Count) and not H.AClass.InheritsFrom(TInitHandler(Items[I]).AClass) do\r\n          Inc(I);\r\n        { override? }\r\n        if (I<Count) and (TInitHandler(Items[I]).AClass=H.AClass) then\r\n          begin\r\n            TInitHandler(Items[I]).AHandler:=Handler;\r\n            H.Free;\r\n          end\r\n        else\r\n          InitHandlerList.Insert(I,H);\r\n      end;\r\n   except\r\n     H.Free;\r\n     raise;\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TObjectStreamConverter.OutStr(s: String);\r\n\r\nVar\r\n  I : integer;\r\n\r\nbegin\r\n  For I:=1 to Length(S) do\r\n    Output.WriteBufferData(s[i]);\r\nend;\r\n\r\nprocedure TObjectStreamConverter.OutLn(s: String);\r\nbegin\r\n  OutStr(s + LineEnding);\r\nend;\r\n\r\n\r\nprocedure TObjectStreamConverter.Outchars(S: String);\r\n\r\nvar\r\n  res, NewStr: String;\r\n  i,len,w: Cardinal;\r\n  InString, NewInString: Boolean;\r\n  SObj : TJSString absolute s;\r\n\r\nbegin\r\n if S = '' then\r\n   res:= ''''''\r\n else\r\n   begin\r\n   res := '';\r\n   InString := False;\r\n   len:= Length(S);\r\n   i:=0;\r\n   while i < Len do\r\n     begin\r\n     NewInString := InString;\r\n     w := SObj.charCodeAt(i);\r\n     if w = ord('''') then\r\n       begin //quote char\r\n       if not InString then\r\n         NewInString := True;\r\n       NewStr := '''''';\r\n       end\r\n     else if (w >= 32) and (w < 127) then\r\n       begin //printable ascii or bytes\r\n       if not InString then\r\n         NewInString := True;\r\n       NewStr := TJSString.FromCharCode(w);\r\n       end\r\n    else\r\n       begin //ascii control chars, non ascii\r\n       if InString then\r\n         NewInString := False;\r\n       NewStr := '#' + IntToStr(w);\r\n       end;\r\n    if NewInString <> InString then\r\n      begin\r\n      NewStr := '''' + NewStr;\r\n      InString := NewInString;\r\n      end;\r\n    res := res + NewStr;\r\n    Inc(i);\r\n    end;\r\n  if InString then\r\n    res := res + '''';\r\n  end;\r\n OutStr(res);\r\nend;\r\n\r\n\r\nprocedure TObjectStreamConverter.OutString(s: String);\r\nbegin\r\n  OutChars(S);\r\nend;\r\n\r\n\r\n(*\r\nprocedure TObjectStreamConverter.OutUtf8Str(s: String);\r\nbegin\r\n  if Encoding=oteLFM then\r\n    OutChars(Pointer(S),PChar(S)+Length(S),@CharToOrd)\r\n  else\r\n    OutChars(Pointer(S),PChar(S)+Length(S),@Utf8ToOrd);\r\nend;\r\n*)\r\n\r\nfunction TObjectStreamConverter.ReadWord : word; {$ifdef CLASSESINLINE}inline;{$endif CLASSESINLINE}\r\nbegin\r\n  Input.ReadBufferData(Result);\r\nend;\r\n\r\nfunction TObjectStreamConverter.ReadDWord : longword; {$ifdef CLASSESINLINE}inline;{$endif CLASSESINLINE}\r\nbegin\r\n  Input.ReadBufferData(Result);\r\nend;\r\n\r\nfunction TObjectStreamConverter.ReadNativeInt : NativeInt; {$ifdef CLASSESINLINE}inline;{$endif CLASSESINLINE}\r\nbegin\r\n  Input.ReadBufferData(Result);\r\nend;\r\n\r\nfunction TObjectStreamConverter.ReadInt(ValueType: TValueType): NativeInt;\r\nbegin\r\n  case ValueType of\r\n    vaInt8: Result := ShortInt(Input.ReadByte);\r\n    vaInt16: Result := SmallInt(ReadWord);\r\n    vaInt32: Result := LongInt(ReadDWord);\r\n    vaNativeInt: Result := ReadNativeInt;\r\n  end;\r\nend;\r\n\r\nfunction TObjectStreamConverter.ReadInt: NativeInt;\r\nbegin\r\n  Result := ReadInt(TValueType(Input.ReadByte));\r\nend;\r\n\r\n\r\nfunction TObjectStreamConverter.ReadDouble : Double;\r\n\r\nbegin\r\n  Input.ReadBufferData(Result);\r\nend;\r\n\r\nfunction TObjectStreamConverter.ReadStr: String;\r\n\r\nvar\r\n  l,i: Byte;\r\n  c : Char;\r\n\r\nbegin\r\n  Input.ReadBufferData(L);\r\n  SetLength(Result,L);\r\n  For I:=1 to L do\r\n    begin\r\n    Input.ReadBufferData(C);\r\n    Result[i]:=C;\r\n    end;\r\nend;\r\n\r\nfunction TObjectStreamConverter.ReadString(StringType: TValueType): String;\r\n\r\nvar\r\n  i: Integer;\r\n  C : Char;\r\n\r\nbegin\r\n  Result:='';\r\n  if StringType<>vaString then\r\n    Raise EFilerError.Create('Invalid string type passed to ReadString');\r\n  i:=ReadDWord;\r\n  SetLength(Result, i);\r\n  for I:=1 to Length(Result) do\r\n    begin\r\n    Input.ReadbufferData(C);\r\n    Result[i]:=C;\r\n    end;\r\nend;\r\n\r\nprocedure TObjectStreamConverter.ProcessBinary;\r\n\r\nvar\r\n  ToDo, DoNow, i: LongInt;\r\n  lbuf: TBytes;\r\n  s: String;\r\n\r\nbegin\r\n  ToDo := ReadDWord;\r\n  SetLength(lBuf,32);\r\n  OutLn('{');\r\n  while ToDo > 0 do\r\n    begin\r\n    DoNow := ToDo;\r\n    if DoNow > 32 then\r\n      DoNow := 32;\r\n    Dec(ToDo, DoNow);\r\n    s := Indent + '  ';\r\n    Input.ReadBuffer(lbuf, DoNow);\r\n    for i := 0 to DoNow - 1 do\r\n      s := s + IntToHex(lbuf[i], 2);\r\n    OutLn(s);\r\n  end;\r\n  OutLn(indent + '}');\r\nend;\r\n\r\nprocedure TObjectStreamConverter.ProcessValue(ValueType: TValueType; Indent: String);\r\n\r\n\r\nvar\r\n  s: String;\r\n{      len: LongInt; }\r\n  IsFirst: Boolean;\r\n{$ifndef FPUNONE}\r\n  ext: Extended;\r\n{$endif}\r\n\r\nbegin\r\n  case ValueType of\r\n    vaList: begin\r\n        OutStr('(');\r\n        IsFirst := True;\r\n        while True do begin\r\n          ValueType := TValueType(Input.ReadByte);\r\n          if ValueType = vaNull then break;\r\n          if IsFirst then begin\r\n            OutLn('');\r\n            IsFirst := False;\r\n          end;\r\n          OutStr(Indent + '  ');\r\n          ProcessValue(ValueType, Indent + '  ');\r\n        end;\r\n        OutLn(Indent + ')');\r\n      end;\r\n    vaInt8: OutLn(IntToStr(ShortInt(Input.ReadByte)));\r\n    vaInt16: OutLn( IntToStr(SmallInt(ReadWord)));\r\n    vaInt32: OutLn(IntToStr(LongInt(ReadDWord)));\r\n    vaNativeInt: OutLn(IntToStr(ReadNativeInt));\r\n    vaDouble: begin\r\n        ext:=ReadDouble;\r\n        Str(ext,S);// Do not use localized strings.\r\n        OutLn(S);\r\n      end;\r\n    vaString: begin\r\n        if PlainStrings then\r\n          OutStr( ''''+StringReplace(ReadString(vaString),'''','''''',[rfReplaceAll])+'''')\r\n        else\r\n          OutString(ReadString(vaString) {''''+StringReplace(ReadString(vaString),'''','''''',[rfReplaceAll])+''''});\r\n        OutLn('');\r\n      end;\r\n    vaIdent: OutLn(ReadStr);\r\n    vaFalse: OutLn('False');\r\n    vaTrue: OutLn('True');\r\n    vaBinary: ProcessBinary;\r\n    vaSet: begin\r\n        OutStr('[');\r\n        IsFirst := True;\r\n        while True do begin\r\n          s := ReadStr;\r\n          if Length(s) = 0 then break;\r\n          if not IsFirst then OutStr(', ');\r\n          IsFirst := False;\r\n          OutStr(s);\r\n        end;\r\n        OutLn(']');\r\n      end;\r\n    vaNil:\r\n      OutLn('nil');\r\n    vaCollection: begin\r\n        OutStr('<');\r\n        while Input.ReadByte <> 0 do begin\r\n          OutLn(Indent);\r\n          Input.Seek(-1, soCurrent);\r\n          OutStr(indent + '  item');\r\n          ValueType := TValueType(Input.ReadByte);\r\n          if ValueType <> vaList then\r\n            OutStr('[' + IntToStr(ReadInt(ValueType)) + ']');\r\n          OutLn('');\r\n          ReadPropList(indent + '    ');\r\n          OutStr(indent + '  end');\r\n        end;\r\n        OutLn('>');\r\n      end;\r\n    {vaSingle: begin OutLn('!!Single!!'); exit end;\r\n    vaCurrency: begin OutLn('!!Currency!!'); exit end;\r\n    vaDate: begin OutLn('!!Date!!'); exit end;}\r\n    else\r\n      Raise EReadError.CreateFmt(SErrInvalidPropertyType,[Ord(ValueType)]);\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TObjectStreamConverter.ReadPropList(indent: String);\r\n\r\n\r\nbegin\r\n  while Input.ReadByte <> 0 do begin\r\n    Input.Seek(-1, soCurrent);\r\n    OutStr(indent + ReadStr + ' = ');\r\n    ProcessValue(TValueType(Input.ReadByte), Indent);\r\n  end;\r\nend;\r\n\r\nprocedure TObjectStreamConverter.ReadObject(indent: String);\r\n\r\nvar\r\n  b: Byte;\r\n  ObjClassName, ObjName: String;\r\n  ChildPos: LongInt;\r\n\r\nbegin\r\n  // Check for FilerFlags\r\n  b := Input.ReadByte;\r\n  if (b and $f0) = $f0 then begin\r\n    if (b and 2) <> 0 then ChildPos := ReadInt;\r\n  end else begin\r\n    b := 0;\r\n    Input.Seek(-1, soCurrent);\r\n  end;\r\n\r\n  ObjClassName := ReadStr;\r\n  ObjName := ReadStr;\r\n\r\n  OutStr(Indent);\r\n  if (b and 1) <> 0 then OutStr('inherited')\r\n  else\r\n   if (b and 4) <> 0 then OutStr('inline')\r\n   else OutStr('object');\r\n  OutStr(' ');\r\n  if ObjName <> '' then\r\n    OutStr(ObjName + ': ');\r\n  OutStr(ObjClassName);\r\n  if (b and 2) <> 0 then OutStr('[' + IntToStr(ChildPos) + ']');\r\n  OutLn('');\r\n\r\n  ReadPropList(indent + '  ');\r\n\r\n  while Input.ReadByte <> 0 do begin\r\n    Input.Seek(-1, soCurrent);\r\n    ReadObject(indent + '  ');\r\n  end;\r\n  OutLn(indent + 'end');\r\nend;\r\n\r\nprocedure TObjectStreamConverter.ObjectBinaryToText(aInput, aOutput: TStream; aEncoding: TObjectTextEncoding);\r\n\r\nbegin\r\n  FInput:=aInput;\r\n  FOutput:=aOutput;\r\n  FEncoding:=aEncoding;\r\n  Execute;\r\nend;\r\n\r\nprocedure TObjectStreamConverter.Execute;\r\n\r\nvar\r\n  Signature: LongInt;\r\n\r\nbegin\r\n  if FIndent = '' then FInDent:='  ';\r\n  If Not Assigned(Input) then\r\n    raise EReadError.Create('Missing input stream');\r\n  If Not Assigned(Output) then\r\n    raise EReadError.Create('Missing output stream');\r\n  FInput.ReadBufferData(Signature);\r\n  if Signature <> FilerSignatureInt then\r\n    raise EReadError.Create(SInvalidImage);\r\n  ReadObject('');\r\nend;\r\n\r\nprocedure TObjectStreamConverter.ObjectBinaryToText(aInput, aOutput: TStream);\r\nbegin\r\n  ObjectBinaryToText(aInput,aOutput,oteDFM);\r\nend;\r\n\r\n{\r\n    This file is part of the Free Component Library (FCL)\r\n    Copyright (c) 1999-2007 by the Free Pascal development team\r\n\r\n    See the file COPYING.FPC, included in this distribution,\r\n    for details about the copyright.\r\n\r\n    This program is distributed in the hope that it will be useful,\r\n    but WITHOUT ANY WARRANTY; without even the implied warranty of\r\n    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\r\n\r\n **********************************************************************}\r\n\r\n{****************************************************************************}\r\n{*                             TParser                                      *}\r\n{****************************************************************************}\r\n\r\nconst\r\n{$ifdef CPU16}\r\n  { Avoid too big local stack use for\r\n    MSDOS tiny memory model that uses less than 4096\r\n    bytes for total stack by default. }\r\n  ParseBufSize     = 512;\r\n{$else not CPU16}\r\n  ParseBufSize     = 4096;\r\n{$endif not CPU16}\r\n\r\n  TokNames : array[TParserToken] of string = (\r\n    '?',\r\n    'EOF',\r\n    'Symbol',\r\n    'String',\r\n    'Integer',\r\n    'Float',\r\n    '-',\r\n    '[',\r\n    '(',\r\n    '<',\r\n    '{',\r\n    ']',\r\n    ')',\r\n    '>',\r\n    '}',\r\n    ',',\r\n    '.',\r\n    '=',\r\n    ':',\r\n    '+'\r\n  );\r\n\r\nfunction TParser.GetTokenName(aTok: TParserToken): string;\r\nbegin\r\n  Result:=TokNames[aTok]\r\nend;\r\n\r\nprocedure TParser.LoadBuffer;\r\n\r\nvar\r\n  CharsRead,i: integer;\r\n\r\nbegin\r\n  CharsRead:=0;\r\n  for I:=0 to ParseBufSize-1 do\r\n  begin\r\n    if FStream.ReadData(FBuf[i])<>2 then\r\n      Break;\r\n    Inc(CharsRead);\r\n  end;\r\n  Inc(FDeltaPos, CharsRead);\r\n  FPos := 0;\r\n  FBufLen := CharsRead;\r\n  FEofReached:=CharsRead = 0;\r\nend;\r\n\r\nprocedure TParser.CheckLoadBuffer; {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE}\r\nbegin\r\n  if fPos>=FBufLen then\r\n    LoadBuffer;\r\nend;\r\n\r\nprocedure TParser.ProcessChar; {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE}\r\nbegin\r\n  fLastTokenStr:=fLastTokenStr+fBuf[fPos];\r\n\r\n  GotoToNextChar;\r\nend;\r\n\r\nfunction TParser.IsNumber: boolean; {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE}\r\nbegin\r\n  Result:=fBuf[fPos] in ['0'..'9'];\r\nend;\r\n\r\nfunction TParser.IsHexNum: boolean; {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE}\r\nbegin\r\n  Result:=fBuf[fPos] in ['0'..'9','A'..'F','a'..'f'];\r\nend;\r\n\r\nfunction TParser.IsAlpha: boolean; {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE}\r\nbegin\r\n  Result:=fBuf[fPos] in ['_','A'..'Z','a'..'z'];\r\nend;\r\n\r\nfunction TParser.IsAlphaNum: boolean; {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE}\r\nbegin\r\n  Result:=IsAlpha or IsNumber;\r\nend;\r\n\r\nfunction TParser.GetHexValue(c: char): byte; {$ifdef CLASSESINLINE} inline; {$endif CLASSESINLINE}\r\nbegin\r\n  case c of\r\n    '0'..'9' : Result:=ord(c)-$30;\r\n    'A'..'F' : Result:=ord(c)-$37; //-$41+$0A\r\n    'a'..'f' : Result:=ord(c)-$57; //-$61+$0A\r\n  end;\r\nend;\r\n\r\nfunction TParser.GetAlphaNum: string;\r\nbegin\r\n  if not IsAlpha then\r\n    ErrorFmt(SParserExpected,[GetTokenName(toSymbol)]);\r\n  Result:='';\r\n  while (not fEofReached) and IsAlphaNum do\r\n  begin\r\n    Result:=Result+fBuf[fPos];\r\n    GotoToNextChar;\r\n  end;\r\nend;\r\n\r\nprocedure TParser.HandleNewLine;\r\nbegin\r\n  if fBuf[fPos]=#13 then //CR\r\n    GotoToNextChar;\r\n\r\n  if (not fEOFReached) and (fBuf[fPos]=#10) then //LF\r\n    GotoToNextChar;\r\n\r\n  inc(fSourceLine);\r\n  fDeltaPos:=-(fPos-1);\r\nend;\r\n\r\nprocedure TParser.SkipBOM;\r\n\r\nbegin\r\n  // No BOM support\r\nend;\r\n\r\nprocedure TParser.SkipSpaces;\r\nbegin\r\n  while not FEofReached and (fBuf[fPos] in [' ',#9]) do GotoToNextChar;\r\nend;\r\n\r\nprocedure TParser.SkipWhitespace;\r\nbegin\r\n  while not FEofReached do\r\n  begin\r\n    case fBuf[fPos] of\r\n      ' ',#9  : SkipSpaces;\r\n      #10,#13 : HandleNewLine\r\n      else break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TParser.HandleEof;\r\nbegin\r\n  fToken:=toEOF;\r\n  fLastTokenStr:='';\r\nend;\r\n\r\nprocedure TParser.HandleAlphaNum;\r\nbegin\r\n  fLastTokenStr:=GetAlphaNum;\r\n  fToken:=toSymbol;\r\nend;\r\n\r\nprocedure TParser.HandleNumber;\r\ntype\r\n  floatPunct = (fpDot,fpE);\r\n  floatPuncts = set of floatPunct;\r\nvar\r\n  allowed : floatPuncts;\r\nbegin\r\n  fLastTokenStr:='';\r\n  while IsNumber do\r\n    ProcessChar;\r\n  fToken:=toInteger;\r\n  if (fBuf[fPos] in ['.','e','E']) then\r\n  begin\r\n    fToken:=toFloat;\r\n    allowed:=[fpDot,fpE];\r\n    while (fBuf[fPos] in ['.','e','E','0'..'9']) do\r\n    begin\r\n      case fBuf[fPos] of\r\n        '.'     : if fpDot in allowed then Exclude(allowed,fpDot) else break;\r\n        'E','e' : if fpE in allowed then\r\n                  begin\r\n                    allowed:=[];\r\n                    ProcessChar;\r\n                    if (fBuf[fPos] in ['+','-']) then ProcessChar;\r\n                    if not (fBuf[fPos] in ['0'..'9']) then\r\n                      ErrorFmt(SParserInvalidFloat,[fLastTokenStr+fBuf[fPos]]);\r\n                  end\r\n                  else break;\r\n      end;\r\n      ProcessChar;\r\n    end;\r\n  end;\r\n  if (fBuf[fPos] in ['s','S','d','D','c','C']) then //single, date, currency\r\n  begin\r\n    fFloatType:=fBuf[fPos];\r\n\r\n    GotoToNextChar;\r\n\r\n    fToken:=toFloat;\r\n  end\r\n  else fFloatType:=#0;\r\nend;\r\n\r\nprocedure TParser.HandleHexNumber;\r\nvar valid : boolean;\r\nbegin\r\n  fLastTokenStr:='$';\r\n  GotoToNextChar;\r\n  valid:=false;\r\n  while IsHexNum do\r\n  begin\r\n    valid:=true;\r\n    ProcessChar;\r\n  end;\r\n  if not valid then\r\n    ErrorFmt(SParserInvalidInteger,[fLastTokenStr]);\r\n  fToken:=toInteger;\r\nend;\r\n\r\nfunction TParser.HandleQuotedString: string;\r\nbegin\r\n  Result:='';\r\n  GotoToNextChar;\r\n\r\n  while true do\r\n  begin\r\n    case fBuf[fPos] of\r\n      #0     : ErrorStr(SParserUnterminatedString);\r\n      #13,#10 : ErrorStr(SParserUnterminatedString);\r\n      ''''   : begin\r\n                 GotoToNextChar;\r\n                 if fBuf[fPos]<>'''' then exit;\r\n               end;\r\n    end;\r\n    Result:=Result+fBuf[fPos];\r\n    GotoToNextChar;\r\n  end;\r\nend;\r\n\r\nFunction TParser.HandleDecimalCharacter : Char;\r\n\r\nvar\r\n   i : integer;\r\n\r\nbegin\r\n  GotoToNextChar;\r\n  // read a word number\r\n  i:=0;\r\n  while IsNumber and (i<high(word)) do\r\n    begin\r\n    i:=i*10+Ord(fBuf[fPos])-ord('0');\r\n    GotoToNextChar;\r\n    end;\r\n  if i>high(word) then i:=0;\r\n  Result:=Char(i);\r\nend;\r\n\r\nprocedure TParser.HandleString;\r\n\r\nvar\r\n  s: string;\r\n\r\nbegin\r\n  fLastTokenStr:='';\r\n  while true do\r\n  begin\r\n    case fBuf[fPos] of\r\n      '''' :\r\n        begin\r\n          s:=HandleQuotedString;\r\n          fLastTokenStr:=fLastTokenStr+s;\r\n        end;\r\n      '#'  :\r\n        begin\r\n          fLastTokenStr:=fLastTokenStr+HandleDecimalCharacter;\r\n        end;\r\n      else break;\r\n    end;\r\n  end;\r\n  fToken:=Classes.toString\r\nend;\r\n\r\nprocedure TParser.HandleMinus;\r\nbegin\r\n  GotoToNextChar;\r\n  if IsNumber then\r\n  begin\r\n    HandleNumber;\r\n    fLastTokenStr:='-'+fLastTokenStr;\r\n  end\r\n  else\r\n  begin\r\n    fToken:=toMinus;\r\n    fLastTokenStr:='-';\r\n  end;\r\nend;\r\n\r\nprocedure TParser.HandleUnknown;\r\nbegin\r\n  fToken:=toUnknown;\r\n  fLastTokenStr:=fBuf[fPos];\r\n  GotoToNextChar;\r\nend;\r\n\r\nconstructor TParser.Create(Stream: TStream);\r\nbegin\r\n  fStream:=Stream;\r\n  SetLength(fBuf,ParseBufSize);\r\n  fBufLen:=0;\r\n  fPos:=0;\r\n  fDeltaPos:=1;\r\n  fSourceLine:=1;\r\n  fEofReached:=false;\r\n  fLastTokenStr:='';\r\n  fFloatType:=#0;\r\n  fToken:=toEOF;\r\n  LoadBuffer;\r\n  SkipBom;\r\n  NextToken;\r\nend;\r\n\r\nprocedure TParser.GotoToNextChar;\r\nbegin\r\n  Inc(FPos);\r\n\r\n  CheckLoadBuffer;\r\nend;\r\n\r\ndestructor TParser.Destroy;\r\n\r\nVar\r\n  aCount : Integer;\r\n\r\nbegin\r\n  aCount:=Length(fLastTokenStr)*2;\r\n  fStream.Position:=SourcePos-aCount;\r\nend;\r\n\r\nprocedure TParser.CheckToken(T: tParserToken);\r\nbegin\r\n  if fToken<>T then\r\n    ErrorFmt(SParserWrongTokenType,[GetTokenName(T),GetTokenName(fToken)]);\r\nend;\r\n\r\nprocedure TParser.CheckTokenSymbol(const S: string);\r\nbegin\r\n  CheckToken(toSymbol);\r\n  if CompareText(fLastTokenStr,S)<>0 then\r\n    ErrorFmt(SParserWrongTokenSymbol,[s,fLastTokenStr]);\r\nend;\r\n\r\nprocedure TParser.Error(const Ident: string);\r\nbegin\r\n  ErrorStr(Ident);\r\nend;\r\n\r\nprocedure TParser.ErrorFmt(const Ident: string; const Args: array of const);\r\nbegin\r\n  ErrorStr(Format(Ident,Args));\r\nend;\r\n\r\nprocedure TParser.ErrorStr(const Message: string);\r\nbegin\r\n  raise EParserError.CreateFmt(Message+SParserLocInfo,[SourceLine,fPos+fDeltaPos,SourcePos]);\r\nend;\r\n\r\nprocedure TParser.HexToBinary(Stream: TStream);\r\n\r\nvar\r\n  outbuf : TBytes;\r\n  b : byte;\r\n  i : integer;\r\n\r\nbegin\r\n  SetLength(OutBuf,ParseBufSize);\r\n  i:=0;\r\n  SkipWhitespace;\r\n  while IsHexNum do\r\n  begin\r\n    b:=(GetHexValue(fBuf[fPos]) shl 4);\r\n    GotoToNextChar;\r\n    if not IsHexNum then\r\n      Error(SParserUnterminatedBinValue);\r\n    b:=b or GetHexValue(fBuf[fPos]);\r\n    GotoToNextChar;\r\n    outbuf[i]:=b;\r\n    inc(i);\r\n    if i>=ParseBufSize then\r\n    begin\r\n      Stream.WriteBuffer(outbuf,i);\r\n      i:=0;\r\n    end;\r\n    SkipWhitespace;\r\n  end;\r\n  if i>0 then\r\n    Stream.WriteBuffer(outbuf,i);\r\n  NextToken;\r\nend;\r\n\r\nfunction TParser.NextToken: TParserToken;\r\n\r\n  Procedure SetToken(aToken : TParserToken);\r\n  begin\r\n    FToken:=aToken;\r\n    GotoToNextChar;\r\n  end;\r\n\r\nbegin\r\n  SkipWhiteSpace;\r\n  if fEofReached then\r\n    HandleEof\r\n  else\r\n    case fBuf[fPos] of\r\n      '_','A'..'Z','a'..'z' : HandleAlphaNum;\r\n      '$'                   : HandleHexNumber;\r\n      '-'                   : HandleMinus;\r\n      '0'..'9'              : HandleNumber;\r\n      '''','#'              : HandleString;\r\n      '[' : SetToken(toSetStart);\r\n      '(' : SetToken(toListStart);\r\n      '<' : SetToken(toCollectionStart);\r\n      '{' : SetToken(toBinaryStart);\r\n      ']' : SetToken(toSetEnd);\r\n      ')' : SetToken(toListEnd);\r\n      '>' : SetToken(toCollectionEnd);\r\n      '}' : SetToken(toBinaryEnd);\r\n      ',' : SetToken(toComma);\r\n      '.' : SetToken(toDot);\r\n      '=' : SetToken(toEqual);\r\n      ':' : SetToken(toColon);\r\n      '+' : SetToken(toPlus);\r\n      else\r\n        HandleUnknown;\r\n    end;\r\n  Result:=fToken;\r\nend;\r\n\r\nfunction TParser.SourcePos: Longint;\r\nbegin\r\n  Result:=fStream.Position-fBufLen+fPos;\r\nend;\r\n\r\nfunction TParser.TokenComponentIdent: string;\r\nbegin\r\n  if fToken<>toSymbol then\r\n    ErrorFmt(SParserExpected,[GetTokenName(toSymbol)]);\r\n  CheckLoadBuffer;\r\n  while fBuf[fPos]='.' do\r\n  begin\r\n    ProcessChar;\r\n    fLastTokenStr:=fLastTokenStr+GetAlphaNum;\r\n  end;\r\n  Result:=fLastTokenStr;\r\nend;\r\n\r\nFunction TParser.TokenFloat: double;\r\n\r\nvar\r\n  errcode : integer;\r\n\r\nbegin\r\n  Val(fLastTokenStr,Result,errcode);\r\n  if errcode<>0 then\r\n    ErrorFmt(SParserInvalidFloat,[fLastTokenStr]);\r\nend;\r\n\r\nFunction TParser.TokenInt: NativeInt;\r\nbegin\r\n  if not TryStrToInt64(fLastTokenStr,Result) then\r\n    Result:=StrToQWord(fLastTokenStr); //second chance for malformed files\r\nend;\r\n\r\nfunction TParser.TokenString: string;\r\nbegin\r\n  case fToken of\r\n    toFloat : if fFloatType<>#0 then\r\n                Result:=fLastTokenStr+fFloatType\r\n              else Result:=fLastTokenStr;\r\n    else\r\n      Result:=fLastTokenStr;\r\n  end;\r\nend;\r\n\r\n\r\nfunction TParser.TokenSymbolIs(const S: string): Boolean;\r\nbegin\r\n  Result:=(fToken=toSymbol) and (CompareText(fLastTokenStr,S)=0);\r\nend;\r\n\r\n\r\nprocedure TObjectTextConverter.WriteWord(w : word); {$ifdef CLASSESINLINE}inline;{$endif CLASSESINLINE}\r\nbegin\r\n  Output.WriteBufferData(w);\r\nend;\r\n\r\nprocedure TObjectTextConverter.WriteDWord(lw : longword); {$ifdef CLASSESINLINE}inline;{$endif CLASSESINLINE}\r\nbegin\r\n  Output.WriteBufferData(lw);\r\nend;\r\n\r\nprocedure TObjectTextConverter.WriteQWord(q : NativeInt); {$ifdef CLASSESINLINE}inline;{$endif CLASSESINLINE}\r\nbegin\r\n  Output.WriteBufferData(q);\r\nend;\r\n\r\nprocedure TObjectTextConverter.WriteDouble(e : double);\r\nbegin\r\n  Output.WriteBufferData(e);\r\nend;\r\n\r\nprocedure TObjectTextConverter.WriteString(s: String);\r\n\r\nvar\r\n  i,size : byte;\r\n\r\nbegin\r\n  if length(s)>255 then\r\n    size:=255\r\n  else\r\n    size:=length(s);\r\n  Output.WriteByte(size);\r\n  For I:=1 to Length(S) do\r\n     Output.WriteBufferData(s[i]);\r\nend;\r\n\r\nprocedure TObjectTextConverter.WriteWString(Const s: WideString);\r\n\r\nvar\r\n  i : Integer;\r\nbegin\r\n  WriteDWord(Length(s));\r\n  For I:=1 to Length(S) do\r\n    Output.WriteBufferData(s[i]);\r\nend;\r\n\r\nprocedure TObjectTextConverter.WriteInteger(value: NativeInt);\r\n\r\nbegin\r\n  if (value >= -128) and (value <= 127) then begin\r\n    Output.WriteByte(Ord(vaInt8));\r\n    Output.WriteByte(byte(value));\r\n  end else if (value >= -32768) and (value <= 32767) then begin\r\n    Output.WriteByte(Ord(vaInt16));\r\n    WriteWord(word(value));\r\n  end else if (value >= -2147483648) and (value <= 2147483647) then begin\r\n    Output.WriteByte(Ord(vaInt32));\r\n    WriteDWord(longword(value));\r\n  end else begin\r\n    Output.WriteByte(ord(vaInt64));\r\n    WriteQWord(NativeUInt(value));\r\n  end;\r\nend;\r\n\r\nprocedure TObjectTextConverter.ProcessWideString(const left : string);\r\n\r\nvar\r\n   ws : string;\r\nbegin\r\n  ws:=left+parser.TokenString;\r\n  while parser.NextToken = toPlus do\r\n    begin\r\n    parser.NextToken;   // Get next string fragment\r\n    if not (parser.Token=Classes.toString) then\r\n      parser.CheckToken(Classes.toString);\r\n    ws:=ws+parser.TokenString;\r\n    end;\r\n  Output.WriteByte(Ord(vaWstring));\r\n  WriteWString(ws);\r\nend;\r\n\r\n\r\nprocedure TObjectTextConverter.ProcessValue;\r\nvar\r\n  flt: double;\r\n  stream: TBytesStream;\r\nbegin\r\n  case parser.Token of\r\n    toInteger:\r\n      begin\r\n        WriteInteger(parser.TokenInt);\r\n        parser.NextToken;\r\n      end;\r\n    toFloat:\r\n      begin\r\n        Output.WriteByte(Ord(vaExtended));\r\n        flt := Parser.TokenFloat;\r\n        WriteDouble(flt);\r\n        parser.NextToken;\r\n      end;\r\n    classes.toString:\r\n      ProcessWideString('');\r\n    toSymbol:\r\n      begin\r\n        if CompareText(parser.TokenString, 'True') = 0 then\r\n          Output.WriteByte(Ord(vaTrue))\r\n        else if CompareText(parser.TokenString, 'False') = 0 then\r\n          Output.WriteByte(Ord(vaFalse))\r\n        else if CompareText(parser.TokenString, 'nil') = 0 then\r\n          Output.WriteByte(Ord(vaNil))\r\n        else\r\n        begin\r\n          Output.WriteByte(Ord(vaIdent));\r\n          WriteString(parser.TokenComponentIdent);\r\n        end;\r\n        Parser.NextToken;\r\n      end;\r\n    // Set\r\n    toSetStart:\r\n      begin\r\n        parser.NextToken;\r\n        Output.WriteByte(Ord(vaSet));\r\n        if parser.Token <> toSetEnd then\r\n          while True do\r\n          begin\r\n            parser.CheckToken(toSymbol);\r\n            WriteString(parser.TokenString);\r\n            parser.NextToken;\r\n            if parser.Token = toSetEnd then\r\n              break;\r\n            parser.CheckToken(toComma);\r\n            parser.NextToken;\r\n          end;\r\n        Output.WriteByte(0);\r\n        parser.NextToken;\r\n      end;\r\n    // List\r\n    toListStart:\r\n      begin\r\n        parser.NextToken;\r\n        Output.WriteByte(Ord(vaList));\r\n        while parser.Token <> toListEnd do\r\n          ProcessValue;\r\n        Output.WriteByte(0);\r\n        parser.NextToken;\r\n      end;\r\n    // Collection\r\n    toCollectionStart:\r\n      begin\r\n        parser.NextToken;\r\n        Output.WriteByte(Ord(vaCollection));\r\n        while parser.Token <> toCollectionEnd do\r\n        begin\r\n          parser.CheckTokenSymbol('item');\r\n          parser.NextToken;\r\n          // ConvertOrder\r\n          Output.WriteByte(Ord(vaList));\r\n          while not parser.TokenSymbolIs('end') do\r\n            ProcessProperty;\r\n          parser.NextToken;   // Skip 'end'\r\n          Output.WriteByte(0);\r\n        end;\r\n        Output.WriteByte(0);\r\n        parser.NextToken;\r\n      end;\r\n    // Binary data\r\n    toBinaryStart:\r\n      begin\r\n        Output.WriteByte(Ord(vaBinary));\r\n        stream := TBytesStream.Create;\r\n        try\r\n          parser.HexToBinary(stream);\r\n          WriteDWord(stream.Size);\r\n          Output.WriteBuffer(Stream.Bytes,Stream.Size);\r\n        finally\r\n          stream.Free;\r\n        end;\r\n        parser.NextToken;\r\n      end;\r\n    else\r\n      parser.Error(SParserInvalidProperty);\r\n  end;\r\nend;\r\n\r\nprocedure TObjectTextConverter.ProcessProperty;\r\nvar\r\n  name: String;\r\nbegin\r\n  // Get name of property\r\n  parser.CheckToken(toSymbol);\r\n  name := parser.TokenString;\r\n  while True do begin\r\n    parser.NextToken;\r\n    if parser.Token <> toDot then break;\r\n    parser.NextToken;\r\n    parser.CheckToken(toSymbol);\r\n    name := name + '.' + parser.TokenString;\r\n  end;\r\n  WriteString(name);\r\n  parser.CheckToken(toEqual);\r\n  parser.NextToken;\r\n  ProcessValue;\r\nend;\r\n\r\nprocedure TObjectTextConverter.ProcessObject;\r\nvar\r\n  Flags: Byte;\r\n  ObjectName, ObjectType: String;\r\n  ChildPos: Integer;\r\nbegin\r\n  if parser.TokenSymbolIs('OBJECT') then\r\n    Flags :=0  { IsInherited := False }\r\n  else begin\r\n    if parser.TokenSymbolIs('INHERITED') then\r\n      Flags := 1 { IsInherited := True; }\r\n    else begin\r\n      parser.CheckTokenSymbol('INLINE');\r\n      Flags := 4;\r\n    end;\r\n  end;\r\n  parser.NextToken;\r\n  parser.CheckToken(toSymbol);\r\n  ObjectName := '';\r\n  ObjectType := parser.TokenString;\r\n  parser.NextToken;\r\n  if parser.Token = toColon then begin\r\n    parser.NextToken;\r\n    parser.CheckToken(toSymbol);\r\n    ObjectName := ObjectType;\r\n    ObjectType := parser.TokenString;\r\n    parser.NextToken;\r\n    if parser.Token = toSetStart then begin\r\n      parser.NextToken;\r\n      ChildPos := parser.TokenInt;\r\n      parser.NextToken;\r\n      parser.CheckToken(toSetEnd);\r\n      parser.NextToken;\r\n      Flags := Flags or 2;\r\n    end;\r\n  end;\r\n  if Flags <> 0 then begin\r\n    Output.WriteByte($f0 or Flags);\r\n    if (Flags and 2) <> 0 then\r\n      WriteInteger(ChildPos);\r\n  end;\r\n  WriteString(ObjectType);\r\n  WriteString(ObjectName);\r\n\r\n  // Convert property list\r\n  while not (parser.TokenSymbolIs('END') or\r\n    parser.TokenSymbolIs('OBJECT') or\r\n    parser.TokenSymbolIs('INHERITED') or\r\n    parser.TokenSymbolIs('INLINE')) do\r\n    ProcessProperty;\r\n  Output.WriteByte(0);        // Terminate property list\r\n\r\n  // Convert child objects\r\n  while not parser.TokenSymbolIs('END') do ProcessObject;\r\n  parser.NextToken;           // Skip end token\r\n  Output.WriteByte(0);        // Terminate property list\r\nend;\r\n\r\nprocedure TObjectTextConverter.ObjectTextToBinary(aInput, aOutput: TStream);\r\n\r\nbegin\r\n  FinPut:=aInput;\r\n  FOutput:=aOutput;\r\n  Execute;\r\nend;\r\n\r\nprocedure TObjectTextConverter.Execute;\r\nbegin\r\n  If Not Assigned(Input) then\r\n    raise EReadError.Create('Missing input stream');\r\n  If Not Assigned(Output) then\r\n    raise EReadError.Create('Missing output stream');\r\n  FParser := TParser.Create(Input);\r\n  try\r\n    Output.WriteBufferData(FilerSignatureInt);\r\n    ProcessObject;\r\n  finally\r\n    FParser.Free;\r\n  end;\r\nend;\r\n\r\nprocedure ObjectTextToBinary(aInput, aOutput: TStream);\r\n\r\nvar\r\n  Conv : TObjectTextConverter;\r\n\r\nbegin\r\n  Conv:=TObjectTextConverter.Create;\r\n  try\r\n    Conv.ObjectTextToBinary(aInput, aOutput);\r\n  finally\r\n    Conv.free;\r\n  end;\r\nend;\r\n\r\n\r\n{ ----------------------------------------------------------------------\r\n  TDatamodule\r\n  ----------------------------------------------------------------------}\r\n\r\nconstructor TDataModule.Create(AOwner: TComponent);\r\nbegin\r\n  CreateNew(AOwner);\r\n  if (ClassType <> TDataModule) and\r\n     not (csDesigning in ComponentState) then\r\n    begin\r\n    if not InitInheritedComponent(Self, TDataModule) then\r\n      raise EStreamError.CreateFmt(SErrNoSTreaming, [ClassName]);\r\n    if OldCreateOrder then\r\n      DoCreate;\r\n    end;\r\nend;\r\n\r\nconstructor TDataModule.CreateNew(AOwner: TComponent);\r\n\r\nbegin\r\n  CreateNew(AOwner,0);\r\nend;\r\n\r\nconstructor TDataModule.CreateNew(AOwner: TComponent; CreateMode: Integer);\r\nbegin\r\n  inherited Create(AOwner);\r\n  FDPPI := 96;\r\n  if Assigned(AddDataModule) and (CreateMode>=0) then\r\n    AddDataModule(Self);\r\nend;\r\n\r\nclass constructor TDataModule.ClassCreate;\r\nbegin\r\n  RegisterInitComponentHandler(TDataModule,@DefaultInitHandler);\r\nend;\r\n\r\nprocedure TDataModule.AfterConstruction;\r\nbegin\r\n   If not OldCreateOrder then\r\n     DoCreate;\r\nend;\r\n\r\nprocedure TDataModule.BeforeDestruction;\r\nbegin\r\n  Destroying;\r\n  RemoveFixupReferences(Self, '');\r\n  if not OldCreateOrder then\r\n    DoDestroy;\r\nend;\r\n\r\ndestructor TDataModule.Destroy;\r\nbegin\r\n  if OldCreateOrder then\r\n    DoDestroy;\r\n  if Assigned(RemoveDataModule) then\r\n    RemoveDataModule(Self);\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TDataModule.DoCreate;\r\nbegin\r\n  if Assigned(FOnCreate) then\r\n    try\r\n      FOnCreate(Self);\r\n    except\r\n      if not HandleCreateException then\r\n        raise;\r\n    end;\r\nend;\r\n\r\nprocedure TDataModule.DoDestroy;\r\nbegin\r\n  if Assigned(FOnDestroy) then\r\n    try\r\n      FOnDestroy(Self);\r\n    except\r\n      if Assigned(ApplicationHandleException) then\r\n        ApplicationHandleException(Self);\r\n    end;\r\nend;\r\n\r\nprocedure TDataModule.DefineProperties(Filer: TFiler);\r\n\r\nvar\r\n  Ancestor : TDataModule;\r\n  HaveData,\r\n  HavePPIData: Boolean;\r\n\r\nbegin\r\n  inherited DefineProperties(Filer);\r\n  Ancestor := TDataModule(Filer.Ancestor);\r\n  HaveData:=(Ancestor=Nil) or\r\n            (FDSize.X<>Ancestor.FDSize.X) or\r\n            (FDSize.Y<>Ancestor.FDSize.Y) or\r\n            (FDPos.Y<>Ancestor.FDPos.Y) or\r\n            (FDPos.X<>Ancestor.FDPos.X);\r\n  HavePPIData:=(Assigned(Ancestor) and (FDPPI<>Ancestor.FDPPI)) or\r\n               (not Assigned(Ancestor) and (FDPPI<>96));\r\n  Filer.DefineProperty('Height', @ReadH, @WriteH, HaveData);\r\n  Filer.DefineProperty('HorizontalOffset', @ReadL, @WriteL, HaveData);\r\n  Filer.DefineProperty('VerticalOffset', @ReadT,@WriteT, HaveData);\r\n  Filer.DefineProperty('Width', @ReadW, @WriteW, HaveData);\r\n  Filer.DefineProperty('PPI', @ReadP, @WriteP,HavePPIData);\r\nend;\r\n\r\nprocedure TDataModule.GetChildren(Proc: TGetChildProc; Root: TComponent);\r\n\r\nvar\r\n  I : Integer;\r\n\r\nbegin\r\n  inherited GetChildren(Proc, Root);\r\n  if (Root=Self) then\r\n    for I:=0 to ComponentCount-1 do\r\n      If Not Components[I].HasParent then\r\n         Proc(Components[i]);\r\nend;\r\n\r\n\r\nfunction TDataModule.HandleCreateException: Boolean;\r\nbegin\r\n  Result:=Assigned(ApplicationHandleException);\r\n  if Result then\r\n    ApplicationHandleException(Self);\r\nend;\r\n\r\nprocedure TDataModule.ReadP(Reader: TReader);\r\nbegin\r\n  FDPPI := Reader.ReadInteger;\r\nend;\r\n\r\nprocedure TDataModule.ReadState(Reader: TReader);\r\nbegin\r\n  FOldOrder := false;\r\n  inherited ReadState(Reader);\r\nend;\r\n\r\nprocedure TDataModule.ReadT(Reader: TReader);\r\nbegin\r\n  FDPos.Y := Reader.ReadInteger;\r\nend;\r\n\r\nprocedure TDataModule.WriteT(Writer: TWriter);\r\nbegin\r\n  Writer.WriteInteger(FDPos.Y);\r\nend;\r\n\r\nprocedure TDataModule.ReadL(Reader: TReader);\r\nbegin\r\n  FDPos.X := Reader.ReadInteger;\r\nend;\r\n\r\nprocedure TDataModule.WriteL(Writer: TWriter);\r\nbegin\r\n  Writer.WriteInteger(FDPos.X);\r\nend;\r\n\r\nprocedure TDataModule.ReadW(Reader: TReader);\r\nbegin\r\n  FDSIze.X := Reader.ReadInteger;\r\nend;\r\n\r\nprocedure TDataModule.WriteP(Writer: TWriter);\r\nbegin\r\n  Writer.WriteInteger(FDPPI);\r\nend;\r\n\r\nprocedure TDataModule.WriteW(Writer: TWriter);\r\nbegin\r\n  Writer.WriteInteger(FDSIze.X);\r\nend;\r\n\r\nprocedure TDataModule.ReadH(Reader: TReader);\r\nbegin\r\n  FDSIze.Y := Reader.ReadInteger;\r\nend;\r\n\r\nprocedure TDataModule.WriteH(Writer: TWriter);\r\nbegin\r\n  Writer.WriteInteger(FDSIze.Y);\r\nend;\r\n\r\n{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            Copyright (c) 2019 - 2022                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\n{ TStringsHelper }\r\n\r\nprocedure TStringsHelper.LoadFromStream(Stream: TStream);\r\nbegin\r\n  LoadFromStream(Stream, TEncoding.UTF8);\r\nend;\r\n\r\n// possible encoding formats: https://encoding.spec.whatwg.org/\r\n{$HINTS OFF}\r\nprocedure TStringsHelper.LoadFromStream(Stream: TStream; Encoding: TEncoding);\r\nvar\r\n  arr: TJSArrayBuffer;\r\n  s: string;\r\n  buf: TBytes;\r\nbegin\r\n  Stream.Read(buf, Stream.Size);\r\n  arr := TMemoryStream.BytesToMemory(buf);\r\n\r\n  if Assigned(Encoding) and (Encoding <> Encoding.UTF8) then\r\n  begin\r\n    s := Encoding.Encoding;\r\n    asm\r\n      var enc = new TextDecoder(s);\r\n      s = enc.decode(arr);\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    asm\r\n      s =  String.fromCharCode.apply(null, new Uint16Array(arr));\r\n    end;\r\n  end;\r\n\r\n  (*\r\n  s := 'utf-8';\r\n  if Assigned(Encoding) then\r\n  begin\r\n    s := Encoding.GetEncoding;\r\n  end;\r\n\r\n  asm\r\n    var enc = new TextDecoder(s);\r\n    s = enc.decode(arr);\r\n  end;\r\n  *)\r\n\r\n  Text := s;\r\nend;\r\n\r\nprocedure TStringsHelper.SaveToStream(Stream: TStream);\r\nbegin\r\n  SaveToStream(Stream, TEncoding.UTF8);\r\nend;\r\n\r\nprocedure TStringsHelper.SaveToStream(Stream: TStream; Encoding: TEncoding);\r\nvar\r\n  s,txt: string;\r\n  arr: TJSArrayBuffer;\r\n  b: TBytes;\r\n  l: longint;\r\nbegin\r\n  s := 'utf-8';\r\n  if Assigned(Encoding) then\r\n  begin\r\n    s := Encoding.Encoding;\r\n  end;\r\n\r\n  txt := Text;\r\n\r\n  asm\r\n    var enc = new TextEncoder(s);\r\n    arr = enc.encode(txt);\r\n  end;\r\n\r\n  b := TMemoryStream.MemoryToBytes(arr);\r\n  l := arr.bytelength;\r\n\r\n  Stream.Write(b, l);\r\n  Stream.Position := 0;\r\nend;\r\n\r\n\r\nfunction TStringsHelper.IndexOfValue(const Value: string): Integer;\r\nVar\r\n  len : longint;\r\n  S : String;\r\nbegin\r\n  CheckSpecialChars;\r\n  Result:=0;\r\n  while (Result<Count) do\r\n    begin\r\n    S:=Strings[Result];\r\n    len:=pos(FNameValueSeparator,S)+1;\r\n    if (len>=0) and (DoCompareText(Value,Copy(S,Len,Length(S)))=0) then\r\n      exit;\r\n    inc(result);\r\n    end;\r\n  result:=-1;\r\nend;\r\n\r\n{$HINTS ON}\r\n\r\n\r\n{ ComponentPlatforms }\r\n\r\nconstructor ComponentPlatformsAttribute.Create(const Platforms: TPlatformIds);\r\nbegin\r\n  FPlatforms := Platforms;\r\nend;\r\n\r\n\r\ninitialization\r\n  ClassList:=TJSObject.New;\r\nend.\r\n\r\n","unit UITypes;\r\n\r\ninterface\r\n\r\ntype\r\n  TFontName = type string;\r\n\r\nimplementation\r\n\r\nend.","unit WEBLib.Consts;\r\n\r\ninterface\r\n\r\nresourcestring\r\n  SWarning = 'Warning';\r\n  SError = 'Error';\r\n  SInformation = 'Information';\r\n  SConfirm = 'Confirm';\r\n  SOK = 'OK';\r\n  SCancel = 'Cancel';\r\n  SYes = 'Yes';\r\n  SNo = 'No';\r\n  SAbort = 'Abort';\r\n  SRetry = 'Retry';\r\n  SIgnore = 'Ignore';\r\n  SHelp = 'Help';\r\n  SClose = 'Close';\r\n  SAll = 'All';\r\n  SYesToAll = 'Yes to all';\r\n  SNoToAll = 'No to all';\r\n\r\n  SReadError = 'Stream read error';\r\n  SWriteError = 'Stream write error';\r\n  SCannotGetFile = 'Cannot get the file from the URL %s because of the error %d!';\r\n\r\n  SErrorLoadFromFile = 'There was an error during the download of the file %s!';\r\n  SLoadFromFileAborted = 'The download of the file %s was aborted!';\r\n\r\n\r\nresourcestring\r\n  SWarningFR = 'Avertissement';\r\n  SErrorFR = 'Erreur';\r\n  SInformationFR = 'Information';\r\n  SConfirmFR = 'Confirmer';\r\n  SOKFR = 'OK';\r\n  SCancelFR = 'Annuler';\r\n  SYesFR = 'Oui';\r\n  SNoFR = 'Non';\r\n  SAbortFR = 'Interrompre';\r\n  SRetryFR = 'Réessayer';\r\n  SIgnoreFR = 'Ignorer';\r\n  SHelpFR = 'Aide';\r\n  SCloseFR = 'Fermer';\r\n  SAllFR = 'Tout';\r\n  SYesToAllFR = 'Oui à tout';\r\n  SNoToAllFR = 'Non à tout';\r\n\r\nresourcestring\r\n  SWarningDE = 'Warnung';\r\n  SErrorDE = 'Fehler';\r\n  SInformationDE = 'Information';\r\n  SConfirmDE = 'Bestätigen';\r\n  SOKDE = 'OK';\r\n  SCancelDE = 'Abbrechen';\r\n  SYesDE = 'Ja';\r\n  SNoDE = 'Nein';\r\n  SAbortDE = 'Abbrechen';\r\n  SRetryDE = 'Wiederholen';\r\n  SIgnoreDE = 'Ignorieren';\r\n  SHelpDE = 'Hilfe';\r\n  SCloseDE = 'Schließen';\r\n  SAllDE = 'Alles';\r\n  SYesToAllDE = 'Ja auf Alles';\r\n  SNoToAllDE = 'Nein auf Alles';\r\n\r\nresourcestring\r\n  SWarningES = 'Advertencia';\r\n  SErrorES = 'Error';\r\n  SInformationES = 'Información';\r\n  SConfirmES = 'Confirmado';\r\n  SOKES = 'OK';\r\n  SCancelES = 'Cancelar';\r\n  SYesES = 'Sí';\r\n  SNoES = 'No';\r\n  SAbortES = 'Abortar';\r\n  SRetryES = 'Rever';\r\n  SIgnoreES = 'Ignorar';\r\n  SHelpES = 'Ayudar';\r\n  SCloseES = 'Cerrar';\r\n  SAllES = 'Todos';\r\n  SYesToAllES = 'Sí a todo';\r\n  SNoToAllES = 'No a todo';\r\n\r\nresourcestring\r\n  SWarningNL = 'Waarschuwing';\r\n  SErrorNL = 'Fout';\r\n  SInformationNL = 'Informatie';\r\n  SConfirmNL = 'Bevestiging';\r\n  SOKNL = 'OK';\r\n  SCancelNL = 'Afbreken';\r\n  SYesNL = 'Ja';\r\n  SNoNL = 'Nee';\r\n  SAbortNL = 'Afbreken';\r\n  SRetryNL = 'Opnieuw';\r\n  SIgnoreNL = 'Negeren';\r\n  SHelpNL = 'Hulp';\r\n  SCloseNL = 'Sluiten';\r\n  SAllNL = 'Alles';\r\n  SYesToAllNL = 'Ja op alles';\r\n  SNoToAllNL = 'Nee op alles';\r\n\r\nimplementation\r\n\r\nend.","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.Dialogs;\r\n\r\n{$DEFINE NOPP}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, WEBLib.Controls, Web, JS, SysUtils, WEBLib.Graphics;\r\n\r\ntype\r\n  TMsgDlgType = (mtWarning, mtError, mtInformation, mtConfirmation, mtCustom);\r\n  TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore,\r\n    mbAll, mbNoToAll, mbYesToAll, mbHelp, mbClose);\r\n  TMsgDlgButtons = set of TMsgDlgBtn;\r\n\r\n  TDialogResult = Integer;\r\n  TDialogResultProc = reference to procedure(AValue: TDialogResult);\r\n\r\n  TCustomDialogButton = class(TCollectionItem)\r\n  private\r\n    FCaption: string;\r\n    FTag: integer;\r\n    FElementClassName: TElementClassName;\r\n  published\r\n    property Caption: string read FCaption write FCaption;\r\n    property ElementClassName: TElementClassName read FElementClassName write FElementClassName;\r\n    property Tag: integer read FTag write FTag default 0;\r\n  end;\r\n\r\n  TCustomDialogButtons = class(TOwnedCollection)\r\n  private\r\n    function GetItem(AIndex: integer): TCustomDialogButton; reintroduce;\r\n    procedure SetItem(AIndex: integer; const Value: TCustomDialogButton); reintroduce;\r\n  public\r\n    function Add: TCustomDialogButton; reintroduce;\r\n    function Insert(AIndex: integer): TCustomDialogButton; reintroduce;\r\n    property Items[AIndex: integer]: TCustomDialogButton read GetItem write SetItem; default;\r\n  end;\r\n\r\n  TMessageDlg = class(TCustomControl)\r\n  private\r\n    FOpacity: double;\r\n    FLayer: TJSElement;\r\n    FDlg: TJSElement;\r\n    FCancel: TJSElement;\r\n    FMessage: string;\r\n    FTitle: string;\r\n    FMsgDlgType: TMSgDlgType;\r\n    FOnButtonClick: TNotifyEvent;\r\n    FOnClose: TNotifyEvent;\r\n    FButtons: TMsgDlgButtons;\r\n    FDialogProc: TDialogResultProc;\r\n    FDialogResult: TDialogResult;\r\n    FMdx, FMdy: integer;\r\n    FDlgX, FDlgY: integer;\r\n    FCaptured: boolean;\r\n    FDown: boolean;\r\n    FElementTitleClassName: TElementClassName;\r\n    FElementButtonClassName: TElementClassName;\r\n    FElementContentClassName: TElementClassName;\r\n    FDialogText: TStringList;\r\n    FCustomButtons: TCustomDialogButtons;\r\n    FElementDialogClassName: TElementClassName;\r\n    FAutoLanguage: boolean;\r\n    procedure SetDialogText(const Value: TStringList);\r\n    procedure SetCustomButtons(const Value: TCustomDialogButtons);\r\n  protected\r\n    function CreateElement: TJSElement; override;\r\n    function GetDialogText(Index: integer): string; virtual;\r\n    procedure BindEvents; override;\r\n    procedure SetDialogResult(const Value: TDialogResult);\r\n    function CreateButton(Caption: string; var DoFocus: boolean; AClass: string = ''): TJSHTMLElement;\r\n    function HandleDocMouseMove(Event: TJSMouseEvent): Boolean; virtual;\r\n    function HandleDocMouseUp(Event: TJSMouseEvent): Boolean; virtual;\r\n    function HandleMouseDown(Event: TJSMouseEvent): Boolean; virtual;\r\n    function HandleButtonClick(Event: TJSMouseEvent): Boolean; virtual;\r\n    function HandleKeyDown(Event: TJSKeyBoardEvent): Boolean; virtual;\r\n    procedure InitBootstrapStyle;\r\n    procedure InsertInputElement(AElement: TJSHTMLElement; var DoFocus: boolean); virtual;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure Close;\r\n    property DialogResult: TDialogResult read FDialogResult write SetDialogResult;\r\n    procedure Show; reintroduce;\r\n    function ShowDialog: Integer; overload; virtual;\r\n    function ShowDialog(Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; AProc: TDialogResultProc): TDialogResult; overload; virtual;\r\n    [async]\r\n    function ShowDialog(Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons): TJSPromise; overload; virtual;\r\n    [async]\r\n    function ShowAsync: TJSPromise; virtual;\r\n  published\r\n    property AutoLanguage: boolean read FAutoLanguage write FAutoLanguage default true;\r\n    property Buttons: TMsgDlgButtons read FButtons write FButtons default [];\r\n    property CustomButtons: TCustomDialogButtons read FCustomButtons write SetCustomButtons;\r\n    property DialogText: TStringList read FDialogText write SetDialogText;\r\n    property DialogType: TMSgDlgType read FMsgDlgType write FMsgDlgType default mtCustom;\r\n    property &Message: string read FMessage write FMessage;\r\n    property Opacity: double read FOpacity write FOpacity;\r\n    property ElementButtonClassName: TElementClassName read FElementButtonClassName write FElementButtonClassName;\r\n    property ElementDialogClassName: TElementClassName read FElementDialogClassName write FElementDialogClassName;\r\n    property ElementTitleClassName: TElementClassName read FElementTitleClassName write FElementTitleClassName;\r\n    property ElementContentClassName: TElementClassName read FElementContentClassName write FElementContentClassName;\r\n    property Title: string read FTitle write FTitle;\r\n    property OnButtonClick: TNotifyEvent read FOnButtonClick write FOnButtonClick;\r\n    property OnClose: TNotifyEvent read FOnClose write FOnClose;\r\n  end;\r\n\r\n  TWebMessageDlg = class(TMessageDlg);\r\n\r\n  TInputMessageDlg = class(TMessageDlg)\r\n  var\r\n    FInputElement: TJSHTMLElement;\r\n    FInputValue: string;\r\n    FKeydownHandler: pointer;\r\n    FKeypressHandler: pointer;\r\n  private\r\n    FInputType: TInputType;\r\n  public\r\n    [async]\r\n    function ShowAsync: TJSPromise; override;\r\n  protected\r\n    function HandleInputKeydown(Event: TJSKeyBoardEvent): Boolean; virtual;\r\n    function HandleInputKeypress(Event: TJSKeyBoardEvent): Boolean; virtual;\r\n    procedure InsertInputElement(AElement: TJSHTMLElement; var DoFocus: boolean); override;\r\n    function GetInputElementValue: string; virtual;\r\n    procedure SetInputElementValue(AValue: string); virtual;\r\n  published\r\n    property InputValue: string read GetInputElementValue write FInputValue;\r\n    property InputType: TInputType read FInputType write FInputType default itText;\r\n  end;\r\n\r\n  TWebInputMessageDlg = class(TInputMessageDlg);\r\n\r\n\r\n  TWaitMessage = class(TCustomControl)\r\n  private\r\n    FLayer: TJSElement;\r\n    FPicture: TURLPicture;\r\n    FOpacity: double;\r\n    FOnShow: TNotifyEvent;\r\n    FOnHide: TNotifyEvent;\r\n    FIsWaiting: boolean;\r\n    FPictureURL: string;\r\n    FTimeOut: integer;\r\n    FShowID: nativeint;\r\n    FHideID: nativeint;\r\n    procedure SetPicture(const Value: TURLPicture);\r\n    procedure SetPictureURL(const Value: string);\r\n  protected\r\n    procedure WaitDisplayed;\r\n    procedure WaitHide;\r\n    function CreateElement: TJSElement; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure Show; reintroduce;\r\n    procedure Hide; reintroduce;\r\n    property IsWaiting: boolean read FIsWaiting write FIsWaiting;\r\n    property Showing: boolean read FIsWaiting;\r\n  published\r\n    property Opacity: double read FOpacity write FOpacity;\r\n    property Picture: TURLPicture read FPicture write SetPicture;\r\n    property PictureURL: string read FPictureURL write SetPictureURL;\r\n    property TimeOut: integer read FTimeOut write FTimeOut;\r\n    property OnHide: TNotifyEvent read FOnHide write FOnHide;\r\n    property OnShow: TNotifyEvent read FOnShow write FOnShow;\r\n  end;\r\n\r\n  TWebWaitMessage = class(TWaitMessage);\r\n\r\n  TFilesDroppedEvent = procedure(Sender: TObject; AFileList: TStringList) of object;\r\n\r\n  TFileAsTextEvent = procedure(Sender: TObject; AFileIndex: integer; AText: string) of object;\r\n\r\n  TFileAsBase64Event = procedure(Sender: TObject; AFileIndex: integer; ABase64: string) of object;\r\n\r\n  TFileAsDataURLEvent = procedure(Sender: TObject; AFileIndex: integer; AURL: string) of object;\r\n\r\n  TFileAsArrayBufferEvent = procedure(Sender: TObject; AFileIndex: integer; ABuffer: TJSArrayBufferRecord) of object;\r\n\r\n  TFileAsStreamEvent = procedure(Sender: TObject; AFileIndex: integer; AStream: TStream) of object;\r\n\r\n  TFileUploadEvent = procedure(Sender: TObject; AFileIndex: integer) of object;\r\n\r\n  TFileUploadResponseEvent = procedure(Sender: TObject; AFileIndex: integer; ARequest:TJSXMLHttpRequestRecord; AResponse: string) of object;\r\n\r\n  TFileUploadErrorEvent = procedure(Sender: TObject; AFileIndex: integer; AError: string) of object;\r\n\r\n  TFileUploadProgressEvent = procedure(Sender: TObject; AFileIndex: integer; APosition, ATotalSize: longint) of object;\r\n\r\n  TFileGetAsBase64 = procedure(Sender: TObject; ABase64: string) of object;\r\n\r\n  TFileGetAsText = procedure(Sender: TObject; AText: string) of object;\r\n\r\n  TFileGetAsURL = procedure(Sender: TObject; AURL: string) of object;\r\n\r\n  TFileGetAsArrayBuffer = procedure(Sender: TObject; ABuffer: TJSArrayBufferRecord) of object;\r\n\r\n  TFileGetAsStream = procedure(Sender: TObject; AStream: TStream) of object;\r\n\r\n  TGetAsStringProc = reference to procedure(AValue: string);\r\n\r\n  TGetAsArrayBufferProc = reference to procedure(AValue: TJSArrayBuffer);\r\n\r\n  TGetAsStreamProc = reference to procedure(AStream: TStream);\r\n\r\n  TFile = class(TCollectionItem)\r\n  private\r\n    FReq: TJSXMLHttpRequest;\r\n    FModified: TDateTime;\r\n    FName: string;\r\n    FMimeType: string;\r\n    FSize: integer;\r\n    FFileObject: TJSHTMLFile;\r\n    FTag: integer;\r\n    FObject: TObject;\r\n    FOnGetFileAsBase64: TFileGetAsBase64;\r\n    FOnGetFileAsArrayBuffer: TFileGetAsArrayBuffer;\r\n    FOnGetFileAsText: TFileGetAsText;\r\n    FOnGetFileAsURL: TFileGetAsURL;\r\n    FOnGetFileAsStream: TFileGetAsStream;\r\n    FGetAsString: TGetAsStringProc;\r\n    FGetAsStream: TGetAsStreamProc;\r\n    FGetAsArrayBuffer: TGetAsArrayBufferProc;\r\n  protected\r\n    function HandleFileLoadAsText(Event: TJSEvent): boolean;\r\n    function HandleFileLoadAsBase64(Event: TJSEvent): boolean;\r\n    function HandleFileLoadAsArrayBuffer(Event: TJSEvent): boolean;\r\n    function HandleFileLoadAsDataURL(Event: TJSEvent): boolean;\r\n    function HandleFileLoadAsStream(Event: TJSEvent): boolean;\r\n    function HandleFileUploadProgress(Event: TJSEvent): boolean;\r\n    function HandleFileUploadComplete(Event: TJSEvent): boolean;\r\n    function HandleFileUploadError(Event: TJSEvent): boolean;\r\n    function HandleFileUploadAbort(Event: TJSEvent): boolean;\r\n    function GetControl: TComponent;\r\n  public\r\n    property FileObject: TJSHTMLFile read FFileObject write FFileObject;\r\n    property Name: string read FName write FName;\r\n    property MimeType: string read FMimeType write FMimeType;\r\n    property Modified: TDateTime read FModified write FModified;\r\n    property &Object: TObject read FObject write FObject;\r\n    property Size: integer read FSize write FSize;\r\n    property Tag: integer read FTag write FTag;\r\n\r\n    [async]\r\n    function FileAsText: TJSPromise; overload;\r\n    [async]\r\n    function FileAsText(AEncoding: string): TJSPromise; overload;\r\n    [async]\r\n    function FileAsBase64: TJSPromise;\r\n    [async]\r\n    function FileAsStream: TJSPromise;\r\n    [async]\r\n    function FileAsDataURL: TJSPromise;\r\n    [async]\r\n    function FileAsArrayBuffer: TJSPromise;\r\n\r\n    procedure GetFileAsText; overload;\r\n    procedure GetFileAsText(GetAsString: TGetAsStringProc); overload;\r\n    procedure GetFileAsText(AEncoding: string); overload;\r\n    procedure GetFileAsBase64; overload;\r\n    procedure GetFileAsBase64(GetAsString: TGetAsStringProc); overload;\r\n    procedure GetFileAsArrayBuffer; overload;\r\n    procedure GetFileAsArrayBuffer(GetAsArrayBuffer: TGetAsArrayBufferProc); overload;\r\n    procedure GetFileAsStream; overload;\r\n    procedure GetFileAsStream(GetAsStream: TGetAsStreamProc); overload;\r\n    procedure GetFileAsDataURL; overload;\r\n    procedure GetFileAsDataURL(GetAsString: TGetAsStringProc); overload;\r\n    procedure Upload(AAction: string);\r\n    function AbortUpload: boolean;\r\n    property OnGetFileAsText: TFileGetAsText read FOnGetFileAsText write FOnGetFileAsText;\r\n    property OnGetFileAsBase64: TFileGetAsBase64 read FOnGetFileAsBase64 write FOnGetFileAsBase64;\r\n    property OnGetFileAsURL: TFileGetAsURL read FOnGetFileAsURL write FOnGetFileAsURL;\r\n    property OnGetFileAsArrayBuffer: TFileGetAsArrayBuffer read FOnGetFileAsArrayBuffer write FOnGetFileAsArrayBuffer;\r\n    property OnGetFileAsStream: TFileGetAsStream read FOnGetFileAsStream write FOnGetFileAsStream;\r\n  end;\r\n\r\n  TFilePicker = class;\r\n\r\n  TFiles = class(TCollection)\r\n  private\r\n    FOwner: TCustomControl;\r\n    function GetItem(Index: integer): TFile; reintroduce;\r\n    procedure SetItem(Index: integer; const Value: TFile);\r\n  public\r\n    constructor Create(AOwner: TComponent); reintroduce;\r\n    function Owner: TPersistent; reintroduce;\r\n    property Items[Index: integer]: TFile read GetItem write SetItem; default;\r\n    function Add: TFile; reintroduce;\r\n    function Insert(Index: integer): TFile; reintroduce;\r\n    procedure Clear; reintroduce;\r\n  end;\r\n\r\n\r\n  TFileUpload = class(TCustomControl)\r\n  private\r\n    FAccept: string;\r\n    FCreateRef: string;\r\n    FEventInit: boolean;\r\n    FFiles: TFiles;\r\n    FFileList: TStringList;\r\n    FOnDroppedFiles: TFilesDroppedEvent;\r\n    FMultiFile: boolean;\r\n    FShowFiles: boolean;\r\n    FDragCaption: string;\r\n    FOnGetFileAsArrayBuffer: TFileAsArrayBufferEvent;\r\n    FOnFileAsText: TFileAsTextEvent;\r\n    FOnFileAsBase64: TFileAsBase64Event;\r\n    FOnFileAsDataURL: TFileAsDataURLEvent;\r\n    FOnUploadFileAbort: TFileUploadEvent;\r\n    FOnUploadFileComplete: TFileUploadEvent;\r\n    FOnUploadFileProgress: TFileUploadProgressEvent;\r\n    FOnUploadFileError: TFileUploadErrorEvent;\r\n    FOnUploadFileResponseComplete: TFileUploadResponseEvent;\r\n    FOnGetFileAsStream: TFileAsStreamEvent;\r\n    FFontHoverColor: TColor;\r\n    FShowPicture: boolean;\r\n    FDragColor: TColor;\r\n    procedure SetDragCaption(const Value: string);\r\n    procedure SetAccept(const Value: string);\r\n    procedure SetShowPicture(const Value: boolean);\r\n  protected\r\n    procedure SetCaption(const AValue: string); override;\r\n    function HandleFiles(files: TJSHTMLFileList): string;\r\n    function DoHandleChange(e: TJSEvent): boolean;\r\n    function HandleDroppedFiles(Event: TJSDragEvent): boolean;\r\n    function HandleDragOver(Event: TJSDragEvent): boolean;\r\n    function HandleDragEnd(Event: TJSDragEvent): boolean;\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElement; override;\r\n    procedure ColorChanging; override;\r\n    procedure CreateCSS;\r\n  public\r\n    constructor Create(AOwner: TComponent); overload; override;\r\n    destructor Destroy; override;\r\n    procedure CreateInitialize; override;\r\n    property Files: TFiles read FFiles;\r\n    procedure Clear;\r\n  published\r\n    property Accept: string read FAccept write SetAccept;\r\n    property Caption;\r\n    property ChildOrder;\r\n    property Color default $dfdac8;\r\n    property DragCaption: string read FDragCaption write SetDragCaption;\r\n    property DragColor: TColor read FDragColor write FDragColor default clNone;\r\n    property ElementFont;\r\n    property Font;\r\n    property FontHoverColor: TColor read FFontHoverColor write FFontHoverColor default $00d3bf39;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Multifile: boolean read FMultiFile write FMultiFile default false;\r\n    property ParentFont;\r\n    property ShowFiles: boolean read FShowFiles write FShowFiles default false;\r\n    property ShowPicture: boolean read FShowPicture write SetShowPicture default true;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnDroppedFiles: TFilesDroppedEvent read FOnDroppedFiles write FOnDroppedFiles;\r\n    property OnGetFileAsText: TFileAsTextEvent read FOnFileAsText write FOnFileAsText;\r\n    property OnGetFileAsArrayBuffer: TFileAsArrayBufferEvent read FOnGetFileAsArrayBuffer write FOnGetFileAsArrayBuffer;\r\n    property OnGetFileAsStream: TFileAsStreamEvent read FOnGetFileAsStream write FOnGetFileAsStream;\r\n    property OnGetFileAsBase64: TFileAsBase64Event read FOnFileAsBase64 write FOnFileAsBase64;\r\n    property OnGetFileAsDataURL: TFileAsDataURLEvent read FOnFileAsDataURL write FOnFileAsDataURL;\r\n    property OnUploadFileComplete: TFileUploadEvent read FOnUploadFileComplete write FOnUploadFileComplete;\r\n    property OnUploadFileResponseComplete: TFileUploadResponseEvent read FOnUploadFileResponseComplete write FOnUploadFileResponseComplete;\r\n    property OnUploadFileAbort: TFileUploadEvent read FOnUploadFileAbort write FOnUploadFileAbort;\r\n    property OnUploadFileError: TFileUploadErrorEvent read FOnUploadFileError write FOnUploadFileError;\r\n    property OnUploadFileProgress: TFileUploadProgressEvent read FOnUploadFileProgress write FOnUploadFileProgress;\r\n  end;\r\n\r\n  TWebFileUpload = class(TFileUpload);\r\n\r\n  TFilePicker = class(TCustomControl)\r\n  private\r\n    FOnChange: TNotifyEvent;\r\n    FMultiFile: boolean;\r\n    FFiles: TFiles;\r\n    FOnFileAsText: TFileAsTextEvent;\r\n    FOnGetFileAsArrayBuffer: TFileAsArrayBufferEvent;\r\n    FAccept: string;\r\n    FOnFileAsBase64: TFileAsBase64Event;\r\n    FChangePtr: pointer;\r\n    FOnFileAsDataURL: TFileAsDataURLEvent;\r\n    FOnUploadFileAbort: TFileUploadEvent;\r\n    FOnUploadFileComplete: TFileUploadEvent;\r\n    FOnUploadFileProgress: TFileUploadProgressEvent;\r\n    FOnUploadFileError: TFileUploadErrorEvent;\r\n    FOnUploadFileResponseComplete: TFileUploadResponseEvent;\r\n    FOnGetFileAsStream: TFileAsStreamEvent;\r\n    procedure SetMultiFile(const Value: boolean);\r\n    function DoHandleChange(e: TJSEvent): boolean;\r\n    procedure SetAccept(const Value: string);\r\n  protected\r\n    procedure UpdateElement; override;\r\n    function CreateElement: TJSElement; override;\r\n    procedure GetMethodPointers; override;\r\n    procedure BindEvents; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    property Files: TFiles read FFiles;\r\n    procedure Clear;\r\n  published\r\n    property Accept: string read FAccept write SetAccept;\r\n    property ChildOrder;\r\n    property ElementClassName;\r\n    property ElementFont;\r\n    property ElementID;\r\n    property ElementPosition;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Multifile: boolean read FMultiFile write SetMultiFile;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    property OnGetFileAsText: TFileAsTextEvent read FOnFileAsText write FOnFileAsText;\r\n    property OnGetFileAsArrayBuffer: TFileAsArrayBufferEvent read FOnGetFileAsArrayBuffer write FOnGetFileAsArrayBuffer;\r\n    property OnGetFileAsBase64: TFileAsBase64Event read FOnFileAsBase64 write FOnFileAsBase64;\r\n    property OnGetFileAsDataURL: TFileAsDataURLEvent read FOnFileAsDataURL write FOnFileAsDataURL;\r\n    property OnGetFileAsStream: TFileAsStreamEvent read FOnGetFileAsStream write FOnGetFileAsStream;\r\n    property OnUploadFileComplete: TFileUploadEvent read FOnUploadFileComplete write FOnUploadFileComplete;\r\n    property OnUploadFileResponseComplete: TFileUploadResponseEvent read FOnUploadFileResponseComplete write FOnUploadFileResponseComplete;\r\n    property OnUploadFileAbort: TFileUploadEvent read FOnUploadFileAbort write FOnUploadFileAbort;\r\n    property OnUploadFileError: TFileUploadErrorEvent read FOnUploadFileError write FOnUploadFileError;\r\n    property OnUploadFileProgress: TFileUploadProgressEvent read FOnUploadFileProgress write FOnUploadFileProgress;\r\n  end;\r\n\r\n  TWebFilePicker = class(TFilePicker);\r\n\r\n  TOpenDialogProc = reference to procedure(AFileName: string);\r\n\r\n  TOpenOption = (ofReadOnly, ofOverwritePrompt, ofHideReadOnly,\r\n    ofNoChangeDir, ofShowHelp, ofNoValidate, ofAllowMultiSelect,\r\n    ofExtensionDifferent, ofPathMustExist, ofFileMustExist, ofCreatePrompt,\r\n    ofShareAware, ofNoReadOnlyReturn, ofNoTestFileCreate, ofNoNetworkButton,\r\n    ofNoLongNames, ofOldStyleDialog, ofNoDereferenceLinks, ofEnableIncludeNotify,\r\n    ofEnableSizing, ofDontAddToRecent, ofForceShowHidden);\r\n  TOpenOptions = set of TOpenOption;\r\n\r\n  TOpenDialog = class(TComponent)\r\n  private\r\n    FFiles: TFiles;\r\n    FOnChange: TNotifyEvent;\r\n    FFileName: string;\r\n    FMultiFile: boolean;\r\n    FFilter: string;\r\n    FAccept: string;\r\n    FOpenDialogProc: TOpenDialogProc;\r\n    FOptions: TOpenOptions;\r\n    FFilterIndex: Integer;\r\n    FOnFileAsBase64: TFileAsBase64Event;\r\n    FOnGetFileAsArrayBuffer: TFileAsArrayBufferEvent;\r\n    FOnFileAsDataURL: TFileAsDataURLEvent;\r\n    FOnFileAsText: TFileAsTextEvent;\r\n    FOnGetFileAsStream: TFileAsStreamEvent;\r\n  protected\r\n    procedure HandleInputChange(Event: TJSEvent); virtual;\r\n  public\r\n    constructor Create(AOwner: TComponent); overload; override;\r\n    constructor Create; overload;\r\n    destructor Destroy; override;\r\n    procedure Execute; overload;\r\n    procedure Execute(AProc: TOpenDialogProc); overload;\r\n    [async]\r\n    function Perform: TJSPromise;\r\n    property FileName: string read FFileName;\r\n    property Files: TFiles read FFiles;\r\n    property Filter: string read FFilter write FFilter;\r\n    property Options: TOpenOptions read FOptions write FOptions;\r\n    property FilterIndex: Integer read FFilterIndex write FFilterIndex;\r\n  published\r\n    property Accept: string read FAccept write FAccept;\r\n    property MultiFile: boolean read FMultiFile write FMultiFile default false;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    property OnGetFileAsText: TFileAsTextEvent read FOnFileAsText write FOnFileAsText;\r\n    property OnGetFileAsArrayBuffer: TFileAsArrayBufferEvent read FOnGetFileAsArrayBuffer write FOnGetFileAsArrayBuffer;\r\n    property OnGetFileAsStream: TFileAsStreamEvent read FOnGetFileAsStream write FOnGetFileAsStream;\r\n    property OnGetFileAsBase64: TFileAsBase64Event read FOnFileAsBase64 write FOnFileAsBase64;\r\n    property OnGetFileAsDataURL: TFileAsDataURLEvent read FOnFileAsDataURL write FOnFileAsDataURL;\r\n  end;\r\n\r\n  TWebOpenDialog = class(TOpenDialog);\r\n\r\n\r\n\r\nprocedure MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons;  AResultProc: TDialogResultProc = nil);\r\nprocedure ShowMessage(AMsg: string);\r\n\r\nfunction MessageDlgAsync(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons): integer; overload; async;\r\n\r\nfunction InputBox(const ACaption, APrompt, ADefault: string): string;\r\nfunction InputQuery(const ACaption, APrompt: string; var Value: string): Boolean; overload;\r\nfunction Confirm(const Value: string): boolean;\r\n\r\nprocedure InputMessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; var AResult: string; AInputType: TInputType = itText; AResultProc: TDialogResultProc = nil);\r\nfunction InputMessageDlgAsync(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; var AResult: string; AInputType: TInputType = itText): integer; async;\r\n\r\nimplementation\r\n\r\nuses\r\n  WEBLib.Forms, WebLib.Consts, WEBLib.WebTools;\r\n\r\nconst\r\n  lMaterial = 'https://fonts.googleapis.com/icon?family=Material+Icons';\r\n\r\n  lWaitCursor =\r\n    '0954474946496D61676547494638396190012C01A20000FFFFFFDDDDDDBBBBBB999999FFFFFFFFFFFFFFFFFFFFFFFF21FF0B4E45545343415045322E30030100000021F90405050004002C0000000090012C0182FFFFFFDDDDD'+\r\n    'DBBBBBB999999FFFFFFFFFFFFFFFFFFFFFFFF03FF48BADCFE30CA49ABBD38EBCDBBFF60288E64699E68AAAE6CEBBE702CCF746DDF78AEEF7CEFFFC0A070482C1A8FC8A472C96C3A9FD0A8744AAD5AAFD8AC76CBED7ABFE0B078'+\r\n    '4C2E9BCFE8B47ACD6EBBDFF0B87C4EAFDBEFF8BC7ECFEFFBFF808182838485868788898A8B8C8D8E8F909192939495969798999A9B9C9D9E9FA0A1A2A3A4A5A6A7A8A9AAABACADAEAFB0B1B2B3B4B5B6B7B8B9BABBBCBDBEBFC'+\r\n    '0C1C2C3C4C5C6C7C8C9CACBCCCDCECFD0D1D2D3D4D5D6D7D8D9DADBDCDDDEDFE0E1E2E3E4E5E6E7E8E9EAEBECEDEEEFF0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF00030A1C48B0A0C18308132A5CC8B0A1C3871023861A407180C4'+\r\n    '44152B5E349431FFE346421D357E141492E24892254F062A6951E51F962EC978F400D383809B02621E09493365079C387512A9B981A806A040850A319A812906A441950261D95283530B50A34AF541B52A86AB14B26ADDDA836'+\r\n    'A519F19C4E6243B15AC04B711D4B20D62B629DA0B72E7B6BD5B01EE83BC7A7F74FDCA7782DAB58105FB6DB09801E0C45CEBF62D1CF731E4B28D15642660F93266CA0F3277F6CC43F204D162492F6DDC78B4EA1D834F8376ECFA'+\r\n    'B50ED31016D7B69D237604BF8779AF9EBD80A7E1D4C24BCCFC803BB44809BB2F04981E20B9F19EC48F22F7409D3AEFE676AF87D8CEA1BB79DB5DBD86EF48827C06F3F0D1A7577F41BC08A8E5E1C77F3DDFE459FFFF2624B5817'+\r\n    'EFA7DD71F7D4E1058A0700702D884820B26474083081601E17E1216D7A012179E97A103141AD161771FBEB56110237A57A26C070291E2742B5A70220F2FC6B81E78378C682307E9F970E18ED865370384408220240D111669E4'+\r\n    '733F90A8E493504629E594545669E5955866A9A54014FA960400608629E698648EB955973D7E59E69A6C86A9149AF321D1E69C6C0A05679A46D0A9A7993ADDE925117B060A809D7E6E9683A07BBE59287B6A225AA7548B3229A'+\r\n    '7A3656E69E9A59866AAE9A69C76EAE9A7A086AAC5728A39E8E99133A06AE59FBDE198259EB0B18A657F91C1BA6A8B9FC5596588A5D22A25AF7BF9AA24B04310BBA2B145206BDD8CFF4928CB1FB34C387B19B44F503BADB0EBA1'+\r\n    '402A61BAAA862DB79286605F7DDD92662BB8DB32A72A88B226E6AA8CEB5260A873F1129AAE55F3B2382EBEF77AD6EF8DFF6A682ABDFBF25BE1AC8B15CCC0BBA2FEC6B05FED36ECB09009E71B6AC402336AA2C59F32ACD9911E4'+\r\n    'B3C61662473CC69C8232BCC98C99AA29CB2C6F2B27C29C62BAB5C73BD2D1BAAB3CC5AD27C73C0ECF28C70BCF3BA9C73BDF91A8DA9D22F034D30CC0D33DD74B893E13C34CE16FBBC34C75C0B1DA5C9605B7DABCD1B438D2ED5A7'+\r\n    '9A7DF6C0678BFC31DB6B1F0C2FDC6E77E075DDCA898D770A77EF2D42DF7E2F4976E02F004E7890741F9E2ADA8A37EEF8E390472EF9E494576EF9E5649867AEF9E69C77EEF9E7A0872EFAE8A4976EFAE9A8A7AEFAEAACB7EEFAE'+\r\n    'BB0C72EFBECB4D76EFBEDB8E7AEFBEEBCF7EEFBEFC0072FFCF0C4176FFCF1C827AFFCF2CC37EFFCF3D0472FFDF4D4576FFDF5D867AFFDF6DC77EFFDF7E0872FFEF8E497DF7D020021F90405050007002CD60060003000570082'+\r\n    'FFFFFFDDDDDDBBBBBB999999FFFFFFFFFFFFFFFFFFFFFFFF03EC78BABCF3A3C9492B85D0EA7D71E6E0E67D61298DA4A9A2A95AB291BBB2B20BD7E68D8770BC73BA9F2828B4108B1D1472A85C568E4E462F9A1C5127D36B037AE'+\r\n    '5AA04608191B60B879FCD9A795DC5A8D7ECB6CF04AF8F1FB2BA9DAADF3BFB7E4880707C83665186877F8960858C8E865A895A0A83940B80970C819A95679DA0A1A2A3A4A5A6A7A8A9AA2A01ADAEAFB0B1B035B2B5B6AF2EB7BA'+\r\n    'B6ACBBBEB826BFC201BDC3BBB9C6B7B4C9B2ABCECFD0D1D2D3D4D53200D800A5D9DCA2DCDFDA9DE0DFE2E3E494E6E3E8E9E05AECEDEEEFDDF1F2D8F4F5EBF5E157FAFBFCF8F9D8954B178AA0B773A3E65148000021F90405050'+\r\n    '007002CD60075003000570082FFFFFFDDDDDDBBBBBB999999FFFFFFFFFFFFFFFFFFFFFFFF03E978BADCFE6EC801ABBD6D4ECCFBD1A0274660388E657A8AA9BA62ADFB56B13C93B576D3B9BEE33DCA2F13940C81BD2331A844B6'+\r\n    '9A8F1C14529BF24CD6AB30CBED7ABFE0B0784C2E9BCF5C817ACD6EBBDBB3B77CCE5ED1EFF3137E0F1FF1FF027A807B76837471866F688B8C8D8E8F909192930A01960166979A639A9D98609E9DA0A1A25DA4A1A6A79E5CAAABA'+\r\n    'CAD9BAFB096B2B3A9B39F59B8B91000BE002FB815BFBFC1B0BDC4C5C6A7C8C9C037CC0FCECAD0A5D2D3CF3BB1C3D862D8BEDEDD61DFD95FDF63E7E3E2EAD3E1EBE6EF5EE4EECEE8F15DE9ECF5FAFB60F9FEEDE81123D3CF1EB8'+\r\n    '2909000021F90405050007002CC40092004200420082FFFFFFDDDDDDBBBBBB999999FFFFFFFFFFFFFFFFFFFFFFFF03F978BADCFE508D49ABBD36EA1DB1FF15277260F98DE863AE59EA4A6CFCBEB13CBBB579CFF9B9FFC0A0704'+\r\n    '82C1A8FC8A472C96C3A9FD0A8747A105805D4D7759B1D6DBFD8AE06FC1547C860B3034D5633D86D77155E96CFE957FB1D1F76F3F3767F567A8246018701377F4488888A78438D8D3B74919287406C96978999751100A1001C9C'+\r\n    '98415C1AA2A2A4A54FAAAA1BA5A64CAFABB1AD4DB5A1ACB84BBAA3BC97B9BA23B2B4C422C6BEC8C9BD48BF28B29DCFCCCD9C4AD0D1CA47D9DAD7D4B52FDB45DDDEC2DCD5E692E8E1E2E342E529EF41F1F2DF44F5EA8EE4E92EE'+\r\n    '7FCED764C62F74A8F837C7610CA51E886A11A870F0B1A7C006B6283040021F90405050007002CA700A4005700300082FFFFFFDDDDDDBBBBBB999999FFFFFFFFFFFFFFFFFFFFFFFF03FF78BADCFE30CA37EA9838EBCD8FFD5D28'+\r\n    '8ECD675E64AA4AA7B9BEB0D7BA711DCEADAD6B78BEFF90DE0948740869C5E411942C2E2D4DE51315054E35802CE027E80A464F8C56ABF37AC1C7C9785C339B4942F53ADB76775538C99C1CB39FF148107B7413018601187E772'+\r\n    'B4C11835B858786898A518F90119292138A8B458F189A87947E4997A1A2889C9D9F8319A9AAABA540A0AFA91AAC3FB5A8A2B8953BBBBC9A1BB935A71AB0C4C530C1C29BCAB3CCCD91BDD0D12BD3D4C31CCB29D9DACFDCBF2ADF'+\r\n    '12C91DDD22E5E6B721E91CC71DE7E8EF58AE22F3F4D71DF7F8ED22E342F40B914F9F1B6F6B521434E889041B85FF46BCA9E26C14C5280B2FFEC8A8511307C78E353E82842172E48B6A2689844BA920010021F90405050007002'+\r\n    'C9200A4005700300082FFFFFFDDDDDDBBBBBB999999FFFFFFFFFFFFFFFFFFFFFFFF03FF78BADC0E10B849ABBD38B7C8B5FFE0C78D52689E2139A26C4BA9A42BB7B03ADF606DE33CA6C7BDE0E4B7121A17C4CE71998C2C8F4DC8'+\r\n    '13DA9C5289A78036201C7807996476ABED7DBF3E1D8A4CC69DCF975A8BBD75BFBD69258B5EBFDDD1714E2E7C6517028702187F785607845C8688878A8B568F90159292178B8C4B8F189A88947F4F97A1A2899C9D9F8419A9AAA'+\r\n    'BA546A0AFA91AAC42B5A8A2B89541BBBC9A1EB938A71AB0C4C533C1C29BCAB3CCCD91BDD0D183AE1FC91FCB7BD9DAB720DD637C21DBDCBFDEE5E6E1E2E926C720E7E8EF20D3C8EDEED7F6EB26F3FA6FD6F46357CD443D7E6D50'+\r\n    'FC03E849602185F90C026A446D18452B0B2F0AC9A8B11207C78E383E829C2172A48C82268D3CE391000021F90405050007002C8A0092004200420082FFFFFFDDDDDDBBBBBB999999FFFFFFFFFFFFFFFFFFFFFFFF03F57807DCF'+\r\n    'EF0A949ABBD98C6CD5DFEE0D58D5C6882642A9DACA5BE402B4FB03ADFF578EFF9B6FFC0A070482C1A8FC8A472C96C3A9FD0A8744A3D05AE81AA0CCBD59AB8E0AC3713068F2FE5F099922EAF0F6DF73AAE3ED3CDF63BF6ADDFE7'+\r\n    'FB7C8081773B028602467A85878645743F8C8C446D4191878E784096979857439B8D2003A30352A088A2A4A350A7A819AAAA4FA721B0A44EADB4B5A54DB3B9B5BCA027BABB4BBDBEB04CC6C7B14AB8C2BAC5C12CC3CDCACBB64'+\r\n    '9D6D7AB48DADBC446DEA9BF47E2E3C8E1E61FD4E99B3BEC45D237F044F233F4F59140F8F9A13FFC6F26000C78606040836F10AE5178866143740431304B000021F90405050007002C8A0075003000570082FFFFFFDDDDDDBBBB'+\r\n    'BB999999FFFFFFFFFFFFFFFFFFFFFFFF03E778BA0C0E2CCA496B7BCEEA4DB1E7E0E68D61298DA8A9A2A95AB2ADCBC1B1ACD1A47DE3982EF20FDF0E0811768845E304A9AC009B161C340A9B0E7BD65F26CBED7ABFE0B0784C2E9'+\r\n    'BCFA1807ACD6EBBDBB6B77CCE76D1EF73157E0F37F1FF017A807B76837471866F688B8C8D8E8F909192936802960266979A639A9D98609E9D5FA19E5DA4A159A7A856AAA553ADA2AFB097A9B396ACB69FB2B35CB63203C00316'+\r\n    'BC2EC1C115AD36C6C614A73ECBC7CDB13AD0D1D2B742D5C062DAC261DDDE60DDDCE3DFDAE4D563E5E2E7E6EDECE9EEF1F0D0E8F5F6CBF8CCF2F7F4F9FADBD4CDD377669F86040021F90405050007002C8A0060003000570082F'+\r\n    'FFFFFDDDDDDBBBBBB999999FFFFFFFFFFFFFFFFFFFFFFFF03EB78BADCFE0B4800ABBD6D4ECCBBD29A2756E0369E4C69A2A7BAB2A24BC1AD4B8FF28DDB7A27CF3D4C2E281C122DC62389A784249B8E2734229D1EAAD39F35CA84'+\r\n    '04BE811EF60006EBB0E5F4ADCB48BB61EC857BCE2A55E67454C882CF4FFB7E50806F7F83655B8687568966858C888F90835B7280949578976D849A9B5F9DA0A1A2A3A4A5A6A7A8A93A02ACADAEAFB0AF30B1B4B5AE28B6B9B52'+\r\n    '7BABDB223BEC102BCC2BDB8C5B6B3C8B1AACDCECFD0D1D2D3D4CF03D703A3D8DBA0DBDED997DFDE94E2DF56E5E250E8E94DEBE64AEEE3F0F1D8EAF4D7EDF7E0F3F453F75BFD00AED3842ED43B51DCAC24000021F90405050007'+\r\n    '002C8A0058004200420082FFFFFFDDDDDDBBBBBB999999FFFFFFFFFFFFFFFFFFFFFFFF03FD78BADCFE30CA062A9838EB69EDFE20D77961698EA4A96E68B5BE597BC13424D738D5E64BE007AF1BEFF75B097144A2EA584B164FB'+\r\n    'B9CF31962D2A6D48FF58A2D6DB9D36A74D8057DC14EF3985CD69CD149ED9A1D76CFE9713B8AE7C0026377784A807B7C0D7E842386878822858B3D6D116F528D93818696971D13029E027083129C129F9F309A2BA6AB2F92AAAB'+\r\n    'AC26AE2AB0B5B27934B5B625A235BABB9020BFC0C11BC3B0C51FC7B1C91ACBA6CDC6CF9ED119D3D4D518D7D9D6CBDCCEC3DFE0BAE2D2CCE5E3A0E8EBECEDEEEFF0F1F2F3F4F5F68603F9FAFBFCFDFCD5FE020ADCD76CA04181C'+\r\n    '90E2AFC576CA1C301091F2A2C287120C08AFEA225000021F90405050007002C920058005700300082FFFFFFDDDDDDBBBBBB999999FFFFFFFFFFFFFFFFFFFFFFFF03FF78BADCFE30BE4083BC38EB3D2BE560284A9E379E285756'+\r\n    '69EB76EB2BBFEB37DF676DE13CA8F723815090FAA10048406B38441947C9248AC9CCD54ED1E889DA1C3D435969902BF45E4561B188DCF59D4169F59A2DFA6EE2CA149BE88EC1E32E7B217619782F822A6F1A8687881A8412787'+\r\n    '98D64897E8B80337B7C19901092388E189E0F8CA1749D8A91993CA224AA11A6ADA817A40CB2B3B411B60AA0400AAE302518B83D9BB5B00DBEBFC0BA1097B1AC1003D40381CEC2C4D20FD5D54BD847DB0DDDE47A9532E2E3E4E5'+\r\n    '635C33E90CEBF2ED6DE85918F2F373653C5A19F9FA9809041850E02F82EB0C3243C84E211086DD1C1E84484D620F8A152DF2C0A8F11322C38E0F09820C996FE4C48626495A4BA921010021F90401050007002CA700580057003'+\r\n    '00082FFFFFFDDDDDDBBBBBB999999FFFFFFFFFFFFFFFFFFFFFFFF03FF78BADCFE4B4801ABBD38EB36E7FE60A8759D689E22E9A16C5BA9922BCF074CD1F869E77CB8F7A28170C0FA9D02C8406B38441945C9248AC9D4C18E51A9'+\r\n    '89DA343D41596D902BF45EA161E489DC057D3569F1989C3A83E34BB6CFBE892BF3746E7C70782E6C441F6F177E33878823838B8C8D7A1B8A1593949519970F7E7F34879691988539A29CA49EA6A79B179D0D993CA8AFAAB1ACB'+\r\n    '3B42FB60B9F400BBA10B00AB2408EB52A92B8C6AEC22418C5BF07C10F25CA612E00DA0018D428D121DBDBDD8132CB20E2E917CD2CE71AE9F0E45538D822F0F719F3395126F7F8D2D2FCFD03D843E04082380CC643C843A13A86'+\r\n    '091D8E834843E2448A332C6AC358D11422C7880A3FE6082972A4C0920517A24CB9D14402003B';\r\n\r\nvar\r\n  WebLibDlg: TMessageDlg;\r\n  WebLibInputDlg: TInputMessageDlg;\r\n\r\n\r\n{$HINTS OFF}\r\nfunction EventResult(Event: TEventListenerEvent): string;\r\nbegin\r\n  asm\r\n    Result = Event.target.result;\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nfunction StringToHTML(AValue: string): string;\r\nbegin\r\n  Result := StringReplace(AValue,#13,'<BR>',[rfReplaceAll]);\r\n  Result := StringReplace(Result,#10,'',[rfReplaceAll]);\r\nend;\r\n\r\nprocedure ShowMessage(AMsg: string);\r\nbegin\r\n  if (Application <> nil) and (Application.MainForm <> nil) and (Application.MainForm.CSSLibrary = cssBootstrap) then\r\n  begin\r\n    MessageDlg(AMsg, mtInformation, [mbOK]);\r\n  end\r\n  else\r\n  begin\r\n    asm\r\n      alert(AMsg);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction InputBox(const ACaption, APrompt, ADefault: string): string;\r\nvar\r\n  retvalue: string;\r\nbegin\r\n//\r\n  asm\r\n    retvalue = prompt(APrompt, ADefault);\r\n    if (retvalue == null) {\r\n      retvalue = \"\";\r\n    }\r\n  end;\r\n\r\n  Result := retvalue;\r\nend;\r\n\r\nfunction InputQuery(const ACaption, APrompt: string; var Value: string): Boolean; overload;\r\nvar\r\n  retvalue: boolean;\r\n  s: string;\r\nbegin\r\n  retvalue := true;\r\n  s := Value;\r\n\r\n  asm\r\n    var text = s;\r\n    s = prompt(APrompt, text);\r\n    if (s == null) {\r\n      retvalue = false;\r\n    }\r\n  end;\r\n\r\n  if retvalue then\r\n    Value := s;\r\n\r\n  Result := retvalue;\r\nend;\r\n\r\nfunction Confirm(const Value: string): boolean;\r\nvar\r\n  res: boolean;\r\nbegin\r\n  asm\r\n    res = confirm(Value);\r\n  end;\r\n  Result := res;\r\nend;\r\n\r\nfunction MessageDlgAsync(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons): integer; async;\r\nbegin\r\n  if not Assigned(WebLibDlg) then\r\n  begin\r\n    WebLibDlg := TMessageDlg.Create(nil);\r\n    if Application.MainForm.CSSLibrary = cssBootstrap then\r\n    begin\r\n      TMessageDlg(WebLibDlg).InitBootstrapStyle;\r\n    end;\r\n  end;\r\n\r\n  Result := await(integer, WebLibDlg.ShowDialog(Msg, DlgType, Buttons));\r\nend;\r\n\r\nprocedure MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons;  AResultProc: TDialogResultProc = nil);\r\nbegin\r\n  if not Assigned(WebLibDlg) then\r\n  begin\r\n    WebLibDlg := TMessageDlg.Create(nil);\r\n    if Application.MainForm.CSSLibrary = cssBootstrap then\r\n    begin\r\n      TMessageDlg(WebLibDlg).InitBootstrapStyle;\r\n    end;\r\n  end;\r\n\r\n  WebLibDlg.ShowDialog(Msg, DlgType, Buttons, AResultProc);\r\nend;\r\n\r\nprocedure InputMessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; var AResult: string; AInputType: TInputType = itText; AResultProc: TDialogResultProc = nil);\r\n\r\n  procedure ResultHandler(AModalResult: TModalResult);\r\n  begin\r\n    if AModalResult <> mrCancel then\r\n      AResult := WebLibInputDlg.GetInputElementValue;\r\n\r\n    if Assigned(AResultProc) then\r\n      AResultProc(AModalResult);\r\n  end;\r\n\r\nbegin\r\n  if not Assigned(WebLibInputDlg) then\r\n  begin\r\n    WebLibInputDlg := TInputMessageDlg.Create(nil);\r\n\r\n    if Application.MainForm.CSSLibrary = cssBootstrap then\r\n    begin\r\n      TInputMessageDlg(WebLibInputDlg).InitBootstrapStyle;\r\n    end;\r\n  end;\r\n\r\n  WebLibInputDlg.InputValue := AResult;\r\n  WebLibInputDlg.InputType := AInputType;\r\n\r\n  WebLibInputDlg.ShowDialog(Msg, DlgType, Buttons, @ResultHandler);\r\nend;\r\n\r\nfunction InputMessageDlgAsync(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; var AResult: string; AInputType: TInputType = itText): integer; async;\r\nbegin\r\n\r\n  if not Assigned(WebLibInputDlg) then\r\n  begin\r\n    WebLibInputDlg := TInputMessageDlg.Create(nil);\r\n\r\n    if Application.MainForm.CSSLibrary = cssBootstrap then\r\n    begin\r\n      TInputMessageDlg(WebLibInputDlg).InitBootstrapStyle;\r\n    end;\r\n  end;\r\n\r\n  WebLibInputDlg.InputValue := AResult;\r\n  WebLibInputDlg.InputType := AInputType;\r\n\r\n  Result := await(integer, WebLibInputDlg.ShowDialog(Msg, DlgType, Buttons));\r\n  AResult := WebLibInputDlg.GetInputElementValue;\r\nend;\r\n\r\n{ TMessageDlg }\r\n\r\nprocedure TMessageDlg.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FOpacity := 0.2;\r\n  FMessage := '';\r\n  FAutoLanguage := true;\r\n  FMsgDlgType := mtInformation;\r\n  FDialogText := TStringList.Create;\r\n  FDialogText.SkipLastLinebreak := true;\r\n  FDialogText.Add(SWarning);     // 0\r\n  FDialogText.Add(SError);       // 1\r\n  FDialogText.Add(SInformation); // 2\r\n  FDialogText.Add(SConfirm);     // 3\r\n  FDialogText.Add('Custom');     // 4\r\n  FDialogText.Add(SOK);          // 5\r\n  FDialogText.Add(SCancel);      // 6\r\n  FDialogText.Add(SYes);         // 7\r\n  FDialogText.Add(SNo);          // 8\r\n  FDialogText.Add(SAbort);       // 9\r\n  FDialogText.Add(SRetry);       // 10\r\n  FDialogText.Add(SIgnore);      // 11\r\n  FDialogText.Add(SAll);         // 12\r\n  FDialogText.Add(SYestoAll);    // 13\r\n  FDialogText.Add(SNotoAll);     // 14\r\n  FDialogText.Add(SHelp);        // 15\r\n  FDialogText.Add(SClose);       // 16\r\n\r\n  FMsgDlgType := mtCustom;\r\n\r\n  FCustomButtons := TCustomDialogButtons.Create(Self, TCustomDialogButton);\r\n  FCustomButtons.PropName := 'CustomButtons';\r\nend;\r\n\r\ndestructor TMessageDlg.Destroy;\r\nbegin\r\n  FDialogText.Free;\r\n  FCustomButtons.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TMessageDlg.GetDialogText(Index: integer): string;\r\ntype\r\n  TLang = (lEN, lFR, lDE, lES, lNL);\r\nvar\r\n  locl: string;\r\n  l: TLang;\r\nbegin\r\n  Result := 'Undefined';\r\n\r\n  if Index < FDialogText.Count then\r\n    Result := FDialogText.Strings[Index];\r\n\r\n  if AutoLanguage then\r\n  begin\r\n    locl := GetBrowserLocale;\r\n\r\n    l := lEN;\r\n    if pos('es', locl) = 1  then\r\n      l := lES;\r\n    if pos('fr', locl) = 1  then\r\n      l := lFR;\r\n    if pos('de', locl) = 1  then\r\n      l := lDE;\r\n    if pos('nl', locl) = 1  then\r\n      l := lNL;\r\n\r\n//  FDialogText.Add(SWarning);     // 0\r\n//  FDialogText.Add(SError);       // 1\r\n//  FDialogText.Add(SInformation); // 2\r\n//  FDialogText.Add(SConfirm);     // 3\r\n//  FDialogText.Add('Custom');     // 4\r\n//  FDialogText.Add(SOK);          // 5\r\n//  FDialogText.Add(SCancel);      // 6\r\n//  FDialogText.Add(SYes);         // 7\r\n//  FDialogText.Add(SNo);          // 8\r\n//  FDialogText.Add(SAbort);       // 9\r\n//  FDialogText.Add(SRetry);       // 10\r\n//  FDialogText.Add(SIgnore);      // 11\r\n//  FDialogText.Add(SAll);         // 12\r\n//  FDialogText.Add(SYestoAll);    // 13\r\n//  FDialogText.Add(SNotoAll);     // 14\r\n//  FDialogText.Add(SHelp);        // 15\r\n//  FDialogText.Add(SClose);       // 16\r\n\r\n    case l of\r\n    lES:\r\n      begin\r\n        case Index of\r\n        0: Result := SWarningES;\r\n        1: Result := SErrorES;\r\n        2: Result := SInformationES;\r\n        3: Result := SConfirmES;\r\n//        4: Result :=\r\n        5: Result := SOKES;\r\n        6: Result := SCancelES;\r\n        7: Result := SYesES;\r\n        8: Result := SNoES;\r\n        9: Result := SAbortES;\r\n        10: Result := SRetryES;\r\n        11: Result := SIgnoreES;\r\n        12: Result := SAllES;\r\n        13: Result := SYesToAllES;\r\n        14: Result := SNoToAllES;\r\n        15: Result := SHelpES;\r\n        16: Result := SCloseES;\r\n        end;\r\n      end;\r\n    lFR:\r\n      begin\r\n        case Index of\r\n        0: Result := SWarningFR;\r\n        1: Result := SErrorFR;\r\n        2: Result := SInformationFR;\r\n        3: Result := SConfirmFR;\r\n//        4: Result :=\r\n        5: Result := SOKFR;\r\n        6: Result := SCancelFR;\r\n        7: Result := SYesFR;\r\n        8: Result := SNoFR;\r\n        9: Result := SAbortFR;\r\n        10: Result := SRetryFR;\r\n        11: Result := SIgnoreFR;\r\n        12: Result := SAllFR;\r\n        13: Result := SYesToAllFR;\r\n        14: Result := SNoToAllFR;\r\n        15: Result := SHelpFR;\r\n        16: Result := SCloseFR;\r\n        end;\r\n      end;\r\n    lDE:\r\n      begin\r\n        case Index of\r\n        0: Result := SWarningDE;\r\n        1: Result := SErrorDE;\r\n        2: Result := SInformationDE;\r\n        3: Result := SConfirmDE;\r\n//        4: Result :=\r\n        5: Result := SOKDE;\r\n        6: Result := SCancelDE;\r\n        7: Result := SYesDE;\r\n        8: Result := SNoDE;\r\n        9: Result := SAbortDE;\r\n        10: Result := SRetryDE;\r\n        11: Result := SIgnoreDE;\r\n        12: Result := SAllDE;\r\n        13: Result := SYesToAllDE;\r\n        14: Result := SNoToAllDE;\r\n        15: Result := SHelpDE;\r\n        16: Result := SCloseDE;\r\n        end;\r\n      end;\r\n    lNL:\r\n      begin\r\n        case Index of\r\n        0: Result := SWarningNL;\r\n        1: Result := SErrorNL;\r\n        2: Result := SInformationNL;\r\n        3: Result := SConfirmNL;\r\n//        4: Result :=\r\n        5: Result := SOKNL;\r\n        6: Result := SCancelNL;\r\n        7: Result := SYesNL;\r\n        8: Result := SNoNL;\r\n        9: Result := SAbortNL;\r\n        10: Result := SRetryNL;\r\n        11: Result := SIgnoreNL;\r\n        12: Result := SAllNL;\r\n        13: Result := SYesToAllNL;\r\n        14: Result := SNoToAllNL;\r\n        15: Result := SHelpNL;\r\n        16: Result := SCloseNL;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TMessageDlg.BindEvents;\r\nbegin\r\n//\r\nend;\r\n\r\nfunction TMessageDlg.ShowDialog: integer;\r\nbegin\r\n  Result := mrNone;\r\n  Show;\r\nend;\r\n\r\nfunction TMessageDlg.ShowDialog(Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; AProc: TDialogResultProc = nil): TDialogResult;\r\nbegin\r\n  Result := mrNone;\r\n  FButtons := Buttons;\r\n  FMessage := Msg;\r\n  FMsgDlgType := DlgType;\r\n  FDialogProc := AProc;\r\n  DialogResult := mrNone;\r\n  Show;\r\nend;\r\n\r\nfunction TMessageDlg.CreateButton(Caption: string; var DoFocus: boolean; AClass: string = ''): TJSHTMLElement;\r\nbegin\r\n  Result := TJSHTMLElement(document.createElement('BUTTON'));\r\n  Result.innerHTML := Caption;\r\n\r\n  if Application.MainForm.CSSLibrary = cssBootstrap then\r\n  begin\r\n    Result['type'] := 'BUTTON';\r\n    Result['class'] := 'btn ' + AClass;\r\n    Result['data-dismiss'] := 'modal-dialog';\r\n  end\r\n  else\r\n  begin\r\n    Result.style.setProperty('width', '100px');\r\n    Result.style.setProperty('margin-left', '5px');\r\n    if ElementButtonClassName <> '' then\r\n      Result['class'] := ElementButtonClassName + ' ' + AClass\r\n    else\r\n      if Application.ThemeButtonClassName <> '' then\r\n        Result['class'] := Application.ThemeButtonClassName + ' ' + AClass;\r\n  end;\r\n\r\n  Result.id := Caption;\r\n  Result.addEventListener('click', @HandleButtonClick);\r\n  Result.addEventListener('keydown', @HandleKeyDown);\r\n\r\n  if DoFocus then\r\n  begin\r\n    asm\r\n      setTimeout(function() {Result.focus();}, 1);\r\n    end;\r\n    DoFocus := false;\r\n  end;\r\nend;\r\n\r\nfunction TMessageDlg.CreateElement: TJSElement;\r\nbegin\r\n  if (csDesigning in ComponentState) then\r\n    Result := nil\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TMessageDlg.Show;\r\nvar\r\n  title, msg, icon, content, contentdiv, bar, edlg, eh, cancel: TJSHTMLElement;\r\n  adiv,ldiv,cdiv: TJSElement;\r\n  MsgSymbol, MsgColor, MsgTitle, BorderColor, BarBGColor, BarHeight, Padding: string;\r\n  btnFocus: boolean;\r\n  i: Integer;\r\n\r\nbegin\r\n  if (Application = nil) or (Application.MainForm = nil) then\r\n    Exit;\r\n\r\n  // verify material icons\r\n  if not Application.HasCSS(lMaterial) then\r\n    AddControlLink('material',lMaterial);\r\n\r\n  Application.LockForm(Application.MainForm);\r\n\r\n  FLayer := document.createElement('SPAN');\r\n  document.body.appendChild(FLayer);\r\n  FLayer['tabindex'] := '0';\r\n  FLayer.addEventListener('keydown', @HandleKeyDown);\r\n\r\n  btnFocus := true;\r\n  FMessage := StringToHTML(FMessage);\r\n\r\n  case FMsgDlgType of\r\n    mtWarning: begin MsgSymbol := 'warning'; MsgColor := 'orange'; MsgTitle := GetDialogText(0); end;\r\n    mtError: begin MsgSymbol := 'cancel'; MsgColor := 'red'; MsgTitle := GetDialogText(1); end;\r\n    mtInformation: begin MsgSymbol := 'info'; MsgColor := 'blue'; MsgTitle := GetDialogText(2); end;\r\n    mtConfirmation: begin MsgSymbol := 'help'; MsgColor := 'blue'; MsgTitle := GetDialogText(3); end;\r\n    mtCustom: begin MsgSymbol := ''; MsgColor := ''; MsgTitle := GetDialogText(4); end;\r\n  end;\r\n\r\n  if FTitle <> '' then\r\n    MsgTitle := FTitle;\r\n\r\n  if Application.MainForm.CSSLibrary = cssBootstrap then\r\n  begin\r\n    FDlg := document.createElement('DIV');\r\n    FDlg['class'] := 'modal-dialog'; //  modal-dialog-centered';\r\n    FDlg['role'] := 'document';\r\n\r\n    // app wide highest z-index\r\n    TJSHTMLElement(FDlg).style.setProperty('z-index', '1999998');\r\n\r\n    // insert opaque background on entire window\r\n    eh := TJSHTMLElement(document.createElement('DIV'));\r\n//    eh.style.setProperty('position', 'absolute');\r\n    eh.style.setProperty('top', '0');\r\n    eh.style.setProperty('left', '0');\r\n    eh.style.setProperty('right', '0');\r\n    eh.style.setProperty('bottom', '0');\r\n    eh.style.setProperty('z-index', '1999997');\r\n    eh.style.setProperty('display', 'block');\r\n    eh['class'] := 'modal show fade';\r\n    document.body.appendChild(eh);\r\n    eh.appendChild(FDlg);\r\n\r\n    ldiv := FDlg;\r\n\r\n    adiv := document.createElement('DIV');\r\n    adiv['class'] := 'modal-content ' + ElementDialogClassName;\r\n    ldiv.appendChild(adiv);\r\n\r\n    cdiv := adiv;\r\n    ldiv := adiv;\r\n\r\n    adiv := document.createElement('DIV');\r\n    adiv['class'] := 'modal-header';\r\n    cdiv.appendChild(adiv);\r\n\r\n    ldiv := adiv;\r\n\r\n    adiv := document.createElement('H5');\r\n    adiv['class'] := 'modal-title';\r\n    adiv.innerHTML := MsgTitle;\r\n\r\n    ldiv.appendChild(adiv);\r\n\r\n    if (mbCancel in Buttons) then\r\n    begin\r\n      adiv := document.createElement('BUTTON');\r\n      adiv['type'] := 'button';\r\n      adiv['class'] := 'close btn btn-danger';\r\n      adiv['data-dismiss'] := 'modal-dialog';\r\n      adiv['aria-label'] := 'Close';\r\n      adiv['id'] := GetDialogText(6);\r\n      adiv.addEventListener('click', @HandleButtonClick);\r\n\r\n      ldiv.appendChild(adiv);\r\n      ldiv := adiv;\r\n\r\n      adiv := document.createElement('SPAN');\r\n      adiv['aria-hidden'] := 'true';\r\n      adiv['id'] := GetDialogText(6);\r\n      adiv.innerHTML := '&times;';\r\n\r\n      ldiv.appendChild(adiv);\r\n    end;\r\n\r\n    adiv := document.createElement('DIV');\r\n    adiv['class'] := 'modal-body';\r\n    cdiv.appendChild(adiv);\r\n\r\n    ldiv := adiv;\r\n\r\n    if FMsgDlgType <> mtCustom then\r\n    begin\r\n      icon := TJSHTMLElement(document.createElement('SPAN'));\r\n      icon.innerHTML := '<i class=\"material-icons\" style=\"color:' + MsgColor + '!important;font-size:48px!important\">' + MsgSymbol + '</i>';\r\n      icon.style.setProperty('display', 'inline-block');\r\n      icon.style.setProperty('float', 'left');\r\n      icon.style.setProperty('padding-right', '15px');\r\n      ldiv.appendChild(icon);\r\n    end;\r\n\r\n    adiv := document.createElement('H6');\r\n    adiv.innerHTML := FMessage;\r\n\r\n    ldiv.appendChild(adiv);\r\n\r\n    InsertInputElement(TJSHTMLElement(ldiv), btnFocus);\r\n\r\n    adiv := document.createElement('DIV');\r\n    adiv['class'] := 'modal-footer';\r\n    cdiv.appendChild(adiv);\r\n\r\n    ldiv := adiv;\r\n\r\n    bar := TJSHTMLElement(ldiv);\r\n\r\n    FDlg := eh;\r\n  end\r\n  else\r\n  begin\r\n    Padding := '5';\r\n    BarHeight := '26';\r\n    BarBGColor := '#f1f1f1';\r\n    BorderColor := '#ababab';\r\n\r\n    FDlg := document.createElement('DIV');\r\n    document.body.appendChild(FDlg);\r\n\r\n    edlg := TJSHTMLElement(FDlg);\r\n\r\n    if ElementDialogClassName <> '' then\r\n       edlg['class'] := ElementDialogClassName\r\n    else\r\n    begin\r\n      edlg.style.setProperty('background-color', 'white');\r\n      edlg.style.setProperty('border', '1px solid ' + BorderColor);\r\n      edlg.style.setProperty('font-family', 'Arial');\r\n      edlg.style.setProperty('font-size', '10pt');\r\n    end;\r\n\r\n    edlg.style.setProperty('cursor', 'default');\r\n    edlg.style.setProperty('position', 'fixed');\r\n    edlg.style.setProperty('min-width', '300px');\r\n    edlg.style.setProperty('min-height', '125px');\r\n    edlg.style.setProperty('max-width', '100%');\r\n    edlg.style.setProperty('max-height', '100%');\r\n    edlg.style.setProperty('top', '50%');\r\n    edlg.style.setProperty('left', '50%');\r\n    edlg.style.setProperty('transform', 'translate(-50%, -50%)');\r\n    edlg.style.setProperty('z-index', '1999998');\r\n    edlg.style.setProperty('box-shadow','5px 5px 5px gray');\r\n\r\n    cancel := TJSHTMLElement(document.createElement('DIV'));\r\n    FCancel := cancel;\r\n    cancel.innerHTML := '<i id=\"Cancel\" class=\"material-icons\" style=\"font-size:16px!important\">clear</i>';\r\n    cancel.id := 'Cancel';\r\n    cancel.style.setProperty('color', ColorToHTML(Application.ThemeTextColor));\r\n    cancel.style.setProperty('position', 'fixed');\r\n    cancel.style.setProperty('top', '0');\r\n    cancel.style.setProperty('right', '0');\r\n    cancel.style.setProperty('padding', Padding + 'px');\r\n    cancel.style.setProperty('height', BarHeight + 'px');\r\n    cancel.style.setProperty('line-height', BarHeight + 'px');\r\n    cancel.addEventListener('click', @HandleButtonClick);\r\n    edlg.appendChild(cancel);\r\n\r\n    title := TJSHTMLElement(document.createElement('DIV'));\r\n    title.innerHTML := MsgTitle;\r\n\r\n    if FElementTitleClassName <> '' then\r\n    begin\r\n      title['class'] := FElementTitleClassName;\r\n    end\r\n    else\r\n    begin\r\n      title.style.setProperty('background-color', ColorToHTML(Application.ThemeColor));\r\n      title.style.setProperty('color', ColorToHTML(Application.ThemeTextColor));\r\n    end;\r\n\r\n    title.style.setProperty('cursor', 'move');\r\n    title.style.setProperty('padding-left', Padding + 'px');\r\n    title.style.setProperty('height', BarHeight + 'px');\r\n    title.style.setProperty('vertical-align','middle');\r\n    title.style.setProperty('line-height', BarHeight + 'px');\r\n    title.style.setProperty('border-bottom', '1px solid ' + BorderColor);\r\n\r\n    title.style.setProperty('-moz-user-select','none');\r\n    title.style.setProperty('-webkit-user-select','none');\r\n    title.style.setProperty('-ms-user-select','none');\r\n    title.style.setProperty('user-select','none');\r\n    title.style.setProperty('-o-user-select','none');\r\n\r\n    title.addEventListener('mousedown',@HandleMouseDown);\r\n\r\n    edlg.appendChild(title);\r\n\r\n    msg := TJSHTMLElement(document.createElement('DIV'));\r\n\r\n    msg.style.setProperty('padding', Padding + 'px');\r\n    msg.style.setProperty('height', 'auto');\r\n    msg.style.setProperty('min-height', '50px');\r\n    msg.style.setProperty('border-bottom', '1px solid ' + BorderColor);\r\n\r\n    if FMsgDlgType <> mtCustom then\r\n    begin\r\n      icon := TJSHTMLElement(document.createElement('DIV'));\r\n      icon.innerHTML := '<i class=\"material-icons\" style=\"color:' + MsgColor + '!important;font-size:48px!important\">' + MsgSymbol + '</i>';\r\n      icon.style.setProperty('display', 'inline-block');\r\n      icon.style.setProperty('float', 'left');\r\n      icon.style.setProperty('padding-right', '15px');\r\n      msg.appendChild(icon);\r\n    end;\r\n\r\n    FMessage := StringReplace(FMessage, sLineBreak, '<BR>', [rfReplaceAll]);\r\n\r\n    contentdiv := TJSHTMLElement(document.createElement('DIV'));\r\n    contentdiv.innerHTML := FMessage;\r\n    contentdiv.style.setProperty('height','auto');\r\n    contentdiv.style.setProperty('min-height','50px');\r\n    contentdiv.style.setProperty('white-space','pre-wrap');\r\n\r\n    content := TJSHTMLElement(document.createElement('LABEL'));\r\n    content.innerHTML := FMessage;\r\n\r\n    if FElementTitleClassName <> '' then\r\n    begin\r\n      content['class'] := FElementContentClassName;\r\n    end;\r\n\r\n    contentdiv.appendChild(content);\r\n\r\n    msg.appendChild(content);\r\n\r\n    InsertInputElement(msg, btnFocus);\r\n\r\n    edlg.appendChild(msg);\r\n\r\n    bar := TJSHTMLElement(document.createElement('DIV'));\r\n    bar.style.setProperty('background-color', BarBGColor);\r\n    bar.style.setProperty('padding', Padding + 'px');\r\n    bar.style.setProperty('min-height', BarHeight + 'px');\r\n    bar.style.setProperty('height', 'auto');\r\n    bar.style.setProperty('line-height', BarHeight + 'px');\r\n    bar.style.setProperty('text-align', 'right');\r\n    edlg.appendChild(bar);\r\n  end;\r\n\r\n  if (FButtons = []) and (CustomButtons.Count = 0) then\r\n    bar.appendChild(CreateButton(GetDialogText(5), btnFocus))\r\n  else\r\n  begin\r\n    if mbYes in FButtons then\r\n      bar.appendChild(CreateButton(GetDialogText(7), btnFocus));\r\n\r\n    if mbNo in FButtons then\r\n      bar.appendChild(CreateButton(GetDialogText(8), btnFocus));\r\n\r\n    if mbOK in FButtons then\r\n      bar.appendChild(CreateButton(GetDialogText(5), btnFocus));\r\n\r\n    if mbCancel in FButtons then\r\n      bar.appendChild(CreateButton(GetDialogText(6), btnFocus));\r\n\r\n    if mbAbort in FButtons then\r\n      bar.appendChild(CreateButton(GetDialogText(9), btnFocus));\r\n\r\n    if mbRetry in FButtons then\r\n      bar.appendChild(CreateButton(GetDialogText(10), btnFocus));\r\n\r\n    if mbIgnore in FButtons then\r\n      bar.appendChild(CreateButton(GetDialogText(11), btnFocus));\r\n\r\n    if mbAll in FButtons then\r\n      bar.appendChild(CreateButton(GetDialogText(12), btnFocus));\r\n\r\n    if mbYesToAll in FButtons then\r\n      bar.appendChild(CreateButton(GetDialogText(13), btnFocus));\r\n\r\n    if mbNoToAll in FButtons then\r\n      bar.appendChild(CreateButton(GetDialogText(14), btnFocus));\r\n\r\n    if mbHelp in FButtons then\r\n      bar.appendChild(CreateButton(GetDialogText(15), btnFocus));\r\n\r\n    if mbClose in FButtons then\r\n      bar.appendChild(CreateButton(GetDialogText(16), btnFocus));\r\n  end;\r\n\r\n  for i := 0 to FCustomButtons.Count - 1 do\r\n  begin\r\n    bar.appendChild(CreateButton(FCustomButtons[i].Caption, btnFocus, FCustomButtons[i].ElementClassName));\r\n  end;\r\n\r\n  eh := TJSHTMLElement(FLayer);\r\n  eh.style.setProperty('background-color', 'black');\r\n  eh.style.setProperty('opacity', DoubleToHTML(Opacity));\r\n  eh.style.setProperty('top', '0');\r\n  eh.style.setProperty('left', '0');\r\n  eh.style.setProperty('right', '0');\r\n  eh.style.setProperty('bottom', '0');\r\n  eh.style.setProperty('z-index', Application.MaxZIndexStr);\r\n\r\n  eh.style.setProperty('webkit-user-select', 'none');\r\n  eh.style.setProperty('moz-user-select', 'none');\r\n  eh.style.setProperty('khtml-user-select', 'none');\r\n  eh.style.setProperty('ms-user-select', 'none');\r\n  eh.style.setProperty('user-select', 'none');\r\n  eh.style.SetProperty('position','fixed');\r\nend;\r\n\r\nfunction TMessageDlg.ShowAsync: TJSPromise;\r\nbegin\r\n  Result := TJSPromise.new(\r\n\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n    begin\r\n      ShowDialog(Message, DialogType, Buttons, procedure(AResult: TModalResult)\r\n        begin\r\n          ASuccess(AResult);\r\n        end);\r\n    end\r\n\r\n  );\r\nend;\r\n\r\nfunction TMessageDlg.ShowDialog(Msg: string; DlgType: TMsgDlgType;\r\n  Buttons: TMsgDlgButtons): TJSPromise;\r\nbegin\r\n  Result := TJSPromise.new(\r\n\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n    begin\r\n      ShowDialog(Msg, DlgType, Buttons, procedure(AResult: TModalResult)\r\n        begin\r\n          ASuccess(AResult);\r\n        end);\r\n    end\r\n\r\n  );\r\nend;\r\n\r\nprocedure TMessageDlg.SetCustomButtons(const Value: TCustomDialogButtons);\r\nbegin\r\n  FCustomButtons.Assign(Value);\r\nend;\r\n\r\nprocedure TMessageDlg.SetDialogResult(const Value: TDialogResult);\r\nbegin\r\n  FDialogResult := Value;\r\n  if (FDialogResult <> mrNone) then\r\n    Close;\r\nend;\r\n\r\nprocedure TMessageDlg.SetDialogText(const Value: TStringList);\r\nbegin\r\n  FDialogText.Assign(Value);\r\nend;\r\n\r\nprocedure TMessageDlg.Close;\r\nbegin\r\n  Application.UnlockForm(Application.MainForm);\r\n\r\n  document.body.removeChild(FLayer);\r\n  document.body.removeChild(FDlg);\r\n\r\n  FDown := false;\r\n  FCaptured := false;\r\n\r\n  if Assigned(OnClose) then\r\n    OnClose(Self);\r\n\r\n  if Assigned(FDialogProc) then\r\n    FDialogProc(FDialogResult);\r\nend;\r\n\r\nfunction TMessageDlg.HandleButtonClick(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  id: string;\r\n  i: integer;\r\nbegin\r\n  DialogResult := mrNone;\r\n\r\n  id := Event.targetElement['id'];\r\n\r\n  if id = GetDialogText(7) then\r\n    DialogResult := mrYes\r\n  else if id = GetDialogText(8) then\r\n    DialogResult := mrNo\r\n  else if id = GetDialogText(5) then\r\n    DialogResult := mrOK\r\n  else if id = GetDialogText(6) then\r\n    DialogResult := mrCancel\r\n  else if id = GetDialogText(9) then\r\n    DialogResult := mrAbort\r\n  else if id = GetDialogText(10) then\r\n    DialogResult := mrRetry\r\n  else if id = GetDialogText(11) then\r\n    DialogResult := mrIgnore\r\n  else if id = GetDialogText(12) then\r\n    DialogResult := mrAll\r\n  else if id = GetDialogText(13) then\r\n    DialogResult := mrNoToAll\r\n  else if id = GetDialogText(14) then\r\n    DialogResult := mrYesToAll\r\n  else if id = GetDialogText(15) then\r\n    DialogResult := mrHelp\r\n  else if id = GetDialogText(16) then\r\n    DialogResult := mrClose;\r\n\r\n  if (DialogResult = mrNone) and (CustomButtons.Count > 0) then\r\n  begin\r\n    for i := 0 to CustomButtons.Count - 1 do\r\n    begin\r\n      if id = CustomButtons[i].Caption then\r\n      begin\r\n        DialogResult := 100 + i;\r\n        break;\r\n      end;\r\n\r\n    end;\r\n  end;\r\n\r\n  if Assigned(OnButtonClick) then\r\n    OnButtonClick(Self);\r\n\r\n  Result := true;\r\nend;\r\n\r\nfunction TMessageDlg.HandleDocMouseMove(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  deltax,deltay: double;\r\n  el: TJSHTMLElement;\r\nbegin\r\n  if FDown then\r\n  begin\r\n    deltax := Event.screenX - FMdx;\r\n    deltay := Event.screenY - FMdy;\r\n\r\n    el := TJSHTMLElement(FDlg);\r\n\r\n    el.style.setProperty('transform','');\r\n    el.style.setProperty('position','absolute');\r\n    el.style.setProperty('left', inttostr(round(FDlgX + deltax))+'px');\r\n    el.style.setProperty('top', inttostr(round(FDlgY + deltay))+'px');\r\n\r\n    el := TJSHTMLElement(FCancel);\r\n    el.style.setProperty('position', 'absolute');\r\n    el.style.setProperty('top', '0');\r\n    el.style.setProperty('right', '0');\r\n  end;\r\n\r\n  Result := true;\r\nend;\r\n\r\nfunction TMessageDlg.HandleDocMouseUp(Event: TJSMouseEvent): Boolean;\r\nbegin\r\n  FDown := false;\r\n  document.body.removeEventListener('mousemove', @HandleDocMouseMove);\r\n  document.body.removeEventListener('mouseup', @HandleDocMouseUp);\r\n\r\n  Result := true;\r\nend;\r\n\r\nfunction TMessageDlg.HandleMouseDown(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  r: TJSDOMRect;\r\nbegin\r\n  FMdx := Round(Event.screenX);\r\n  FMdy := Round(Event.screenY);\r\n\r\n  r := FDlg.getBoundingClientRect();\r\n\r\n  FDlgX := Round(int(r.left));\r\n  FDlgY := Round(int(r.top));\r\n\r\n  FDown := true;\r\n\r\n  if not FCaptured then\r\n  begin\r\n    FCaptured := true;\r\n    document.body.addEventListener('mousemove', @HandleDocMouseMove);\r\n    document.body.addEventListener('mouseup', @HandleDocMouseUp);\r\n  end;\r\n\r\n  Result := true;\r\nend;\r\n\r\nprocedure TMessageDlg.InitBootstrapStyle;\r\nbegin\r\n  FElementButtonClassName := 'btn';\r\n  FElementContentClassName := 'text-body';\r\n  FElementTitleClassName := 'text-body';\r\n  FElementDialogClassName := 'shadow-lg p-3 mb-5 bg-white rounded';\r\nend;\r\n\r\nprocedure TMessageDlg.InsertInputElement(AElement: TJSHTMLElement; var DoFocus: boolean);\r\nbegin\r\n  //\r\nend;\r\n\r\nfunction TMessageDlg.HandleKeyDown(Event: TJSKeyBoardEvent): Boolean;\r\nvar\r\n  k: Word;\r\nbegin\r\n  k := GetKeyCode(Event.Key);\r\n  if not Assigned(k) then\r\n    Exit;\r\n  if k = VK_ESCAPE then\r\n    DialogResult := mrCancel;\r\n  Result := true;\r\nend;\r\n\r\n{ TWaitMessage }\r\n\r\nfunction TWaitMessage.CreateElement: TJSElement;\r\nbegin\r\n  if (csDesigning in ComponentState) then\r\n    Result := nil\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TWaitMessage.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FOpacity := 0.2;\r\n  FPicture := TURLPicture.Create;\r\n  FIsWaiting := false;\r\n  FPicture.Data := lWaitCursor;\r\n  FShowId := 0;\r\n  FHideId := 0;\r\n\r\nend;\r\n\r\ndestructor TWaitMessage.Destroy;\r\nbegin\r\n  FPicture.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TWaitMessage.Hide;\r\nbegin\r\n  if FIsWaiting then\r\n    document.body.removeChild(FLayer);\r\n  FIsWaiting := false;\r\n\r\n  if FShowId > 0 then\r\n    window.clearTimeout(FShowId);\r\n  if FHideId > 0 then\r\n    window.clearTimeout(FHideId);\r\n\r\n  FShowId := 0;\r\n  FHideId := 0;\r\nend;\r\n\r\nprocedure TWaitMessage.SetPicture(const Value: TURLPicture);\r\nbegin\r\n  FPicture.Assign(Value);\r\nend;\r\n\r\nprocedure TWaitMessage.SetPictureURL(const Value: string);\r\nbegin\r\n  FPictureURL := Value;\r\nend;\r\n\r\nprocedure TWaitMessage.Show;\r\nvar\r\n  eh,img,dv: TJSHTMLElement;\r\n  el: TJSElement;\r\nbegin\r\n  FLayer := document.createElement('SPAN');\r\n\r\n  eh := TJSHTMLElement(FLayer);\r\n  eh.style.setProperty('background-color', 'black');\r\n  eh.style.setProperty('opacity', DoubleToHTML(Opacity));\r\n  eh.style.setProperty('top', '0');\r\n  eh.style.setProperty('left', '0');\r\n  eh.style.setProperty('right', '0');\r\n  eh.style.setProperty('bottom', '0');\r\n\r\n  eh.style.setProperty('z-index', '9999999');\r\n\r\n  eh.style.setProperty('webkit-user-select', 'none');\r\n  eh.style.setProperty('moz-user-select', 'none');\r\n  eh.style.setProperty('khtml-user-select', 'none');\r\n  eh.style.setProperty('ms-user-select', 'none');\r\n  eh.style.setProperty('user-select', 'none');\r\n  eh.style.SetProperty('position','fixed');\r\n\r\n  document.body.appendChild(FLayer);\r\n  FLayer['tabindex'] := '0';\r\n\r\n  el := document.createElement('DIV');\r\n  dv := TJSHTMLElement(el);\r\n  FLayer.appendChild(el);\r\n  dv.style.SetProperty('position','relative');\r\n  dv.style.SetProperty('width','100%');\r\n  dv.style.SetProperty('height','100%');\r\n\r\n  el := document.createElement('IMG');\r\n  img := TJSHTMLElement(el);\r\n  dv.appendChild(img);\r\n  if FPictureURL <> '' then\r\n    img['src'] := FPictureURL\r\n  else\r\n    img['src'] := FPicture.FileName;\r\n  img.style.setProperty('position','absolute');\r\n  img.style.setProperty('top', '0');\r\n  img.style.setProperty('left', '0');\r\n  img.style.setProperty('right', '0');\r\n  img.style.setProperty('bottom', '0');\r\n  img.style.setProperty('margin', 'auto');\r\n\r\n  FIsWaiting := true;\r\n\r\n  if Assigned(OnShow) then\r\n  begin\r\n    FShowID := window.setTimeout(@WaitDisplayed, 100);\r\n  end;\r\n\r\n  if FTimeOut > 0 then\r\n  begin\r\n    FHideID := window.setTimeout(@WaitHide, FTimeOut);\r\n  end;\r\nend;\r\n\r\nprocedure TWaitMessage.WaitDisplayed;\r\nbegin\r\n  if Assigned(OnShow) then\r\n    OnShow(Self);\r\nend;\r\n\r\nprocedure TWaitMessage.WaitHide;\r\nbegin\r\n  if Assigned(OnHide) then\r\n    OnHide(Self);\r\n\r\n  Hide;\r\nend;\r\n\r\n{ TCustomDialogButtons }\r\n\r\nfunction TCustomDialogButtons.Add: TCustomDialogButton;\r\nbegin\r\n  Result := TCustomDialogButton(inherited Add);\r\nend;\r\n\r\nfunction TCustomDialogButtons.GetItem(AIndex: integer): TCustomDialogButton;\r\nbegin\r\n  Result := TCustomDialogButton(inherited Items[AIndex]);\r\nend;\r\n\r\nfunction TCustomDialogButtons.Insert(AIndex: integer): TCustomDialogButton;\r\nbegin\r\n  Result := TCustomDialogButton(inherited Insert(AIndex));\r\nend;\r\n\r\nprocedure TCustomDialogButtons.SetItem(AIndex: integer;\r\n  const Value: TCustomDialogButton);\r\nbegin\r\n  inherited Items[AIndex] := Value;\r\nend;\r\n\r\n{ TOpenDialog }\r\n\r\nconstructor TOpenDialog.Create(AOwner: TComponent);\r\nbegin\r\n  inherited Create(AOwner);\r\n  FFiles := TFiles.Create(Self);\r\nend;\r\n\r\nconstructor TOpenDialog.Create;\r\nbegin\r\n  inherited Create;\r\n  FFiles := TFiles.Create(Self);\r\nend;\r\n\r\n\r\ndestructor TOpenDialog.Destroy;\r\nbegin\r\n  FFiles.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TOpenDialog.Execute(AProc: TOpenDialogProc);\r\nbegin\r\n  FOpenDialogProc := AProc;\r\n  Execute;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TOpenDialog.Execute;\r\nvar\r\n  ic: pointer;\r\n  fp: TJSHTMLElement;\r\nbegin\r\n  ic := @HandleInputChange;\r\n  fp := TJSHTMLElement(document.createElement('input'));\r\n  fp.setAttribute('type','file');\r\n  if FMultiFile or (ofAllowMultiSelect in Options) then\r\n    fp.setAttribute('multiple','');\r\n\r\n  if FAccept <> '' then\r\n    fp.SetAttribute('accept',FAccept);\r\n\r\n  fp.addEventListener('change', ic);\r\n\r\n  asm\r\n    fp.click();\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TOpenDialog.HandleInputChange(Event: TJSEvent);\r\nvar\r\n  i,l,sz: integer;\r\n  s,m: string;\r\n  f: TFile;\r\n  d: TJSDate;\r\n  jsfile: TJSHTMLFile;\r\n\r\nbegin\r\n  // clear existing collection\r\n  while FFiles.Count > 0 do\r\n    FFiles.Delete(0);\r\n\r\n  asm\r\n    var curFiles = Event.target.files;\r\n    l = curFiles.length;\r\n  end;\r\n\r\n  for i := 0 to l - 1 do\r\n  begin\r\n    f := FFiles.Add;\r\n\r\n    asm\r\n      jsfile = curFiles[i];\r\n      s = curFiles[i].name;\r\n      m = curFiles[i].type;\r\n      sz = curFiles[i].size;\r\n      d = new Date(curFiles[i].lastModified);\r\n    end;\r\n\r\n    // get the first file\r\n    if (i = 0) then\r\n      FFileName := s;\r\n\r\n    f.FileObject := jsfile;\r\n    f.Name := s;\r\n    f.MimeType := m;\r\n    f.Size := sz;\r\n    f.Modified := EncodeDate(d.Year + 1900, d.Month + 1, d.Date)+EncodeTime(d.Hours, d.Minutes, d.Seconds, d.Milliseconds);\r\n  end;\r\n\r\n  if Assigned(FOpenDialogProc) then\r\n    FOpenDialogProc(FFileName);\r\n\r\n  FOpenDialogProc := nil;\r\n\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nfunction TOpenDialog.Perform: TJSPromise;\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n    begin\r\n      Execute(procedure(AFileName: string)\r\n        begin\r\n          ASuccess(AFileName);\r\n        end);\r\n    end\r\n\r\n  );\r\nend;\r\n\r\n{ TInputMessageDlg }\r\n\r\nfunction TInputMessageDlg.GetInputElementValue: string;\r\nbegin\r\n  Result := '';\r\n  if Assigned(FInputElement) then\r\n  begin\r\n    FInputValue := TJSHTMLInputElement(FInputElement).Value;\r\n    Result := FInputValue;\r\n  end;\r\nend;\r\n\r\n\r\nfunction TInputMessageDlg.HandleInputKeydown(Event: TJSKeyBoardEvent): Boolean;\r\nbegin\r\n  Result := true;\r\n  if Event.key = 'Enter' then\r\n  begin\r\n    event.preventDefault();\r\n    Event.stopPropagation;\r\n    DialogResult := mrOK;\r\n    Result := false;\r\n  end;\r\n\r\n  if Event.key = 'Escape' then\r\n  begin\r\n    event.preventDefault();\r\n    Event.stopPropagation;\r\n    DialogResult := mrCancel;\r\n    Result := false;\r\n  end;\r\nend;\r\n\r\nfunction TInputMessageDlg.HandleInputKeypress(Event: TJSKeyBoardEvent): Boolean;\r\nbegin\r\n  Result := true;\r\n  Event.stopPropagation;\r\n  inherited;\r\nend;\r\n\r\nprocedure TInputMessageDlg.InsertInputElement(AElement: TJSHTMLElement; var DoFocus: boolean);\r\nvar\r\n  divel,inputel: TJSElement;\r\nbegin\r\n  inherited;\r\n\r\n  if FKeydownHandler = nil then\r\n    FKeydownHandler := @HandleInputKeyDown;\r\n\r\n  if FKeypressHandler = nil then\r\n    FKeypressHandler := @HandleInputKeypress;\r\n\r\n  divel := document.createElement('DIV');\r\n\r\n  inputel := document.createElement('INPUT');\r\n\r\n  inputel.addEventListener('keydown', FKeydownHandler);\r\n  inputel.addEventListener('keypress', FKeypressHandler);\r\n\r\n  divel.appendChild(inputel);\r\n\r\n  AElement.appendChild(divel);\r\n\r\n  FInputElement := TJSHTMLElement(inputel);\r\n\r\n  FInputElement['type'] := InputTypeString(InputType);\r\n\r\n  TJSHTMLElement(divel).style.setProperty('margin-top','10px');\r\n\r\n  FInputElement.style.setProperty('padding','4px');\r\n\r\n  SetInputElementValue(FInputValue);\r\n\r\n  FInputElement.style.setProperty('width','calc(100% - 80px)');\r\n\r\n  if DoFocus then\r\n  begin\r\n    asm\r\n      setTimeout(function() {inputel.focus(); inputel.select()}, 1);\r\n    end;\r\n    DoFocus := false;\r\n  end;\r\nend;\r\n\r\nprocedure TInputMessageDlg.SetInputElementValue(AValue: string);\r\nbegin\r\n  TJSHTMLInputElement(FInputElement).Value := AValue;\r\nend;\r\n\r\nfunction TInputMessageDlg.ShowAsync: TJSPromise;\r\nbegin\r\n  Result := TJSPromise.new(\r\n\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n    begin\r\n      ShowDialog(Message, DialogType, Buttons, procedure(AResult: TModalResult)\r\n        begin\r\n          InputValue := GetInputElementValue;\r\n          ASuccess(AResult);\r\n        end);\r\n    end\r\n\r\n  );\r\n\r\nend;\r\n\r\n{ TFileUpload }\r\n\r\n// https://css-tricks.com/drag-and-drop-file-uploading/\r\n// https://html5demos.com/dnd-upload/\r\n\r\nfunction isAdvancedUpload: boolean; assembler;\r\nasm\r\n  var div = document.createElement('div');\r\n  return (('draggable' in div) || ('ondragstart' in div && 'ondrop' in div)) && 'FormData' in window && 'FileReader' in window;\r\nend;\r\n\r\n\r\nprocedure TFileUpload.Clear;\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  el := document.getElementByID('FP'+ElementId);\r\n  if Assigned(el) then\r\n  begin\r\n    el['type'] := '';\r\n    el['type'] := 'file';\r\n  end;\r\n\r\n  el := document.getElementById(ElementID+'fileslist');\r\n  if Assigned(el) then\r\n  begin\r\n    el.innerHTML := '';\r\n  end;\r\n\r\n  while Files.Count > 0 do\r\n    Files.Delete(0);\r\nend;\r\n\r\nprocedure TFileUpload.ColorChanging;\r\nbegin\r\n  inherited;\r\n  UpdateElement;\r\nend;\r\n\r\nconstructor TFileUpload.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n\r\n  Color := $00DFDAC8;\r\n  FontHoverColor :=  $00d3bf39;\r\n  Caption := 'Choose a file';\r\n  FDragCaption := 'or drag it here';\r\n  FDragColor := clNone;\r\n\r\n  FShowPicture := true;\r\n  FFiles := TFiles.Create(Self);\r\n\r\n  FFileList := TStringList.Create;\r\n  FFileList.SkipLastLineBreak := true;\r\nend;\r\n\r\nprocedure TFileUpload.CreateCSS;\r\nbegin\r\n  AddControlStyle(\r\n  '  \t.box'+\r\n\t'\t\t\t{'+\r\n//\t'\t\t\t\tfont-size: 1.25rem; /* 20 */'+\r\n//\t'\t\t\t\tbackground-color: #c8dadf;'+\r\n\t' \t\t\tposition: relative;'+\r\n\t'\t    \tpadding: 2px 2px;'+\r\n\t'\t\t}'+\r\n\t'\t\t.box.has-advanced-upload'+\r\n\t'\t\t{'+\r\n\t'\t\t\toutline: 2px dashed #92b0b3;'+\r\n\t'\t\t\toutline-offset: -10px;'+\r\n\t'\t\t\t-webkit-transition: outline-offset .15s ease-in-out, background-color .15s linear;'+\r\n\t'\t\t\ttransition: outline-offset .15s ease-in-out, background-color .15s linear;'+\r\n\t'\t\t}'+\r\n\t'\t\t.box.is-dragover'+\r\n\t'\t\t{'+\r\n\t'\t\t\toutline-offset: -20px;'+\r\n\t'\t\t\toutline-color: #c8dadf;'+\r\n\t'\t\t\tbackground-color: #fff;'+\r\n\t'\t\t}'+\r\n\t'\t\t\t.box__dragndrop,'+\r\n\t'\t\t\t.box__icon'+\r\n\t'\t\t\t{'+\r\n\t'\t\t\t\tdisplay: none;'+\r\n\t'\t\t\t}'+\r\n\t'\t\t\t.box.has-advanced-upload .box__dragndrop'+\r\n\t'\t\t\t{'+\r\n\t'\t\t\t\tdisplay: inline;'+\r\n\t'\t\t\t}'+\r\n\t'\t\t\t.box.has-advanced-upload .box__icon'+\r\n\t'\t\t\t{'+\r\n\t'\t\t\t\twidth: 100%;'+\r\n\t'\t\t\t\theight: 80px;'+\r\n\t'\t\t\t\tfill: #92b0b3;'+\r\n  '\t\t\t\tdisplay: block;'+\r\n\t'\t\t\t\tmargin-bottom: 40px;'+\r\n\t'\t\t\t}'+\r\n\t'\t\t\t.box.is-uploading .box__input,'+\r\n\t'\t\t\t.box.is-success .box__input,'+\r\n\t'\t\t\t.box.is-error .box__input'+\r\n\t'\t\t\t{'+\r\n\t'\t\t\t\tvisibility: hidden;'+\r\n\t'\t\t\t}'+\r\n\t'\t\t\t.box__uploading,'+\r\n\t'\t\t\t.box__success,'+\r\n\t'\t\t\t.box__error'+\r\n\t'\t\t\t{'+\r\n\t'\t\t\tdisplay: none;'+\r\n\t'\t\t\t}'+\r\n\t'\t\t\t.box.is-uploading .box__uploading,'+\r\n\t'\t\t\t.box.is-success .box__success,'+\r\n\t'\t\t\t.box.is-error .box__error'+\r\n\t'\t\t\t{'+\r\n\t'\t\t\t\tdisplay: block;'+\r\n\t'\t\t\t\tposition: absolute;'+\r\n\t'\t\t\t\ttop: 50%;'+\r\n\t'       right: 0;'+\r\n  '\t\t\t\tleft: 0;'+\r\n\t'\t   \t\t-webkit-transform: translateY( -50% );'+\r\n\t'\t\t\t\t\ttransform: translateY( -50% );'+\r\n\t'\t\t\t\t}'+\r\n\t'\t\t\t\t.box__uploading'+\r\n\t'\t\t\t\t{'+\r\n\t'\t\t\t\t\tfont-style: italic;'+\r\n\t'\t\t\t\t}'+\r\n\t'\t\t\t\t.box__success'+\r\n\t'\t\t\t\t{'+\r\n\t'\t\t\t\t\t-webkit-animation: appear-from-inside .25s ease-in-out;'+\r\n\t'\t\t\t\t\tanimation: appear-from-inside .25s ease-in-out;'+\r\n\t'\t\t\t\t}'+\r\n\t'\t\t\t\t\t@-webkit-keyframes appear-from-inside'+\r\n\t'\t\t\t\t\t{'+\r\n\t'\t\t\t\t\t\tfrom\t{ -webkit-transform: translateY( -50% ) scale( 0 ); }'+\r\n\t'\t\t\t\t\t\t75%\t\t{ -webkit-transform: translateY( -50% ) scale( 1.1 ); }'+\r\n\t'\t\t\t\t\t\tto\t\t{ -webkit-transform: translateY( -50% ) scale( 1 ); }'+\r\n\t'\t\t\t\t\t}'+\r\n\t'\t\t\t\t\t@keyframes appear-from-inside'+\r\n\t'\t\t\t\t\t{'+\r\n\t'\t\t\t\t\t\tfrom\t{ transform: translateY( -50% ) scale( 0 ); }'+\r\n\t'\t\t\t\t\t\t75%\t\t{ transform: translateY( -50% ) scale( 1.1 ); }'+\r\n\t'\t\t\t\t\t\tto\t\t{ transform: translateY( -50% ) scale( 1 ); }'+\r\n\t'\t\t\t\t\t}'+\r\n\t'\t\t\t\t.box__restart'+\r\n\t'\t\t\t\t{'+\r\n\t'\t\t\t\t\tfont-weight: 700;'+\r\n\t'\t\t\t\t}'+\r\n\t'\t\t\t\t.box__restart:focus,'+\r\n\t'\t\t\t\t.box__restart:hover'+\r\n\t'\t\t\t\t{'+\r\n\t'\t\t\t\t\tcolor: '+ ColorToHTML(FontHoverColor)+';'+\r\n\t'\t\t\t\t}'+\r\n\t'\t\t\t\t.box__file'+\r\n\t'\t\t\t\t{'+\r\n\t'\t\t\t\t\twidth: 0.1px;'+\r\n\t'\t\t\t\t\theight: 0.1px;'+\r\n\t'\t\t\t\t\topacity: 0;'+\r\n\t'\t\t\t\t\toverflow: hidden;'+\r\n\t'\t\t\t\t\tposition: absolute;'+\r\n\t'\t\t\t\t\tz-index: -1;'+\r\n\t'\t\t\t\t}'+\r\n\t'\t\t\t\t.box__file + label'+\r\n\t'\t\t\t\t{'+\r\n//\t'\t\t\t\t\tmax-width: 80%;'+\r\n\t'\t\t\t\t\ttext-overflow: ellipsis;'+\r\n\t'\t\t\t\t\twhite-space: nowrap;'+\r\n\t'\t\t\t\t\tcursor: pointer;'+\r\n\t'\t\t\t\t\tdisplay: inline-block;'+\r\n\t'\t\t\t\t\toverflow: hidden;'+\r\n\t'\t\t\t\t}'+\r\n\t'\t\t\t\t.box__file + label:hover strong,'+\r\n\t'\t\t\t\t.box__file:focus + label strong,'+\r\n\t'\t\t\t\t.box__file.has-focus + label strong'+\r\n\t'\t\t\t\t{'+\r\n\t'\t\t\t\t\tcolor: '+ColorToHTML(FontHoverColor)+';' +\r\n\t'\t\t\t\t}'+\r\n\t'\t\t\t\t.box__file:focus + label,'+\r\n\t'\t\t\t\t.box__file.has-focus + label'+\r\n\t'\t\t\t\t{'+\r\n\t' \t\t\t\toutline: 1px dotted #000;'+\r\n\t'\t\t\t\t\toutline: -webkit-focus-ring-color auto 5px;'+\r\n\t'\t\t\t\t}'+\r\n\t'\t\t\t\t.box__button'+\r\n\t'\t\t\t\t{'+\r\n\t'\t\t\t\t\tfont-weight: 700;'+\r\n\t'\t\t\t\t\tcolor: #e5edf1;'+\r\n\t'\t\t\t\t\tbackground-color: #39bfd3;'+\r\n\t'\t\t\t\t\tdisplay: none;'+\r\n\t'\t\t\t\t\tpadding: 8px 16px;'+\r\n\t'\t\t\t\t\tmargin: 10px auto 0;'+\r\n\t'\t\t\t\t}'+\r\n\t'\t\t\t\t\t.box__button:hover,'+\r\n\t'\t\t\t\t\t.box__button:focus'+\r\n\t'\t\t\t\t\t{'+\r\n\t'\t\t\t\t\t\tbackground-color: #0f3c4b;'+\r\n\t'\t\t\t\t\t}'\r\n  );\r\n\r\nend;\r\n\r\nfunction TFileUpload.CreateElement: TJSElement;\r\nbegin\r\n  CreateCSS;\r\n  FCreateRef := Name;\r\n  Result := document.createElement('FORM');\r\n  Result.setAttribute('method','post');\r\n  Result.setAttribute('class','box');\r\n  Result.setAttribute('enctype','multipart/form-data');\r\n                            //display:flex;justify-content:center;align-items:center\"\r\n  TJSHTMLElement(Result).style.setProperty('display','flex');\r\n  TJSHTMLElement(Result).style.setProperty('justify-content','center');\r\n  TJSHTMLElement(Result).style.setProperty('align-items','center');\r\n\r\n//    <span style=\"display:inline-block;\">\r\n  Result.innerHTML :=\r\n   '<div class=\"box__input\" style=\"text-align: center\">' +\r\n   '<svg class=\"box__icon\" xmlns=\"http://www.w3.org/2000/svg\" width=\"50\" height=\"43\" viewBox=\"0 0 50 43\">'+\r\n   '<path d=\"M48.4 26.5c-.9 0-1.7.7-1.7 1.7v11.6h-43.3v-11.6c0-.9-.7-1.7-1.7-1.7s-1.7.7-1.7 1.7v13.2c0 .9.7 1.7 1.7 1.7h46.7c.9 0 1.7-.7 1.7-1.7v-13.2c0-1-.7-1.7-1.7-1.7zm-24.5 6.1c.3.3.8.5 1.2.5.4 0 .9-.2 1.2-.5l10-11.6c.7-.7.7-1.7 0-2.4s-1.7-.7-2.4 0l-7.1 8.3v-25.3c0-.9-.7-1.7-1.7-1.7s-1.7.7-1.7 1.7v25.3l-7.1-8.3c-.7-.7-1.7-.7-2.4 0s-.7 1.7 0 2.4l10 11.6z\"/></svg>'+\r\n   '<input class=\"box__file\" type=\"file\" name=\"files[]\" id=\"FP'+Name+'\" data-multiple-caption=\"{count} files selected\" multiple/>' +\r\n   '<label for=\"FP'+Name+'\" style=\"outline:none\"><strong id=\"'+Name+'lbl\">'+Caption+'</strong>&nbsp;<span class=\"box__dragndrop\" id=\"'+Name+'drag\">'+FDragCaption+'</span>.</label>' +\r\n   '<button class=\"box__button\" type=\"submit\">Upload</button>' +\r\n   '<br><span style=\"display:inline-block;\" id=\"'+Name+'fileslist\"></span>' +\r\n   '</div><div class=\"box__uploading\">Uploading&hellip;</div>';\r\n\r\n   Result.addEventListener('drop', @HandleDroppedFiles);\r\n   Result.addEventListener('dragenter', @HandleDragOver);\r\n   Result.addEventListener('dragover', @HandleDragOver);\r\n   Result.addEventListener('dragend', @HandleDragEnd);\r\n   Result.addEventListener('dragleave', @HandleDragEnd);\r\n\r\n   if isAdvancedUpload then\r\n     Result.classList.add( 'has-advanced-upload' );\r\nend;\r\n\r\nprocedure TFileUpload.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FMultifile := false;\r\n  FShowFiles := false;\r\n  FEventInit := false;\r\n  Width := 170;\r\n  Height := 190;\r\nend;\r\n\r\ndestructor TFileUpload.Destroy;\r\nbegin\r\n  FFiles.Free;\r\n  FFilelist.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TFileUpload.DoHandleChange(e: TJSEvent): boolean;\r\nvar\r\n  el,span: TJSHTMLElement;\r\n  curfiles: TJSHTMLFileList;\r\n  szfiles: string;\r\nbegin\r\n  Result := true;\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    el := TJSHTMLElement(e.target);\r\n    if Assigned(el) then\r\n    begin\r\n      asm\r\n        curfiles = el.files;\r\n      end;\r\n\r\n      szfiles := HandleFiles(curfiles);\r\n\r\n      if ShowFiles then\r\n      begin\r\n        span := TJSHTMLElement(document.getElementById(ElementID+'fileslist'));\r\n        span.innerHTML := szFiles;\r\n      end;\r\n\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TFileUpload.HandleDragEnd(Event: TJSDragEvent): boolean;\r\nbegin\r\n  Result := true;\r\n  Event.preventDefault();\r\n  Event.stopPropagation();\r\n\r\n  if Assigned(Container) then\r\n    Container.setAttribute('class','box has-advanced-upload');\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    if (Color <> clNone) and (DragColor <> clNone) then\r\n      ElementHandle.style.setProperty('background-color',ColorToHTML(Color))\r\n    else\r\n      ElementHandle.style.removeProperty('background-color');\r\n  end;\r\nend;\r\n\r\nfunction TFileUpload.HandleDragOver(Event: TJSDragEvent): boolean;\r\nbegin\r\n  Result := true;\r\n  Event.preventDefault();\r\n  Event.stopPropagation();\r\n\r\n  if Assigned(Container) then\r\n    Container.setAttribute('class','box has-advanced-upload is-dragover');\r\n\r\n  if Assigned(ElementHandle) and (DragColor <> clNone) then\r\n    ElementHandle.style.setProperty('background-color',ColorToHTML(DragColor));\r\nend;\r\n\r\nfunction TFileUpload.HandleDroppedFiles(Event: TJSDragEvent): boolean;\r\nvar\r\n  droppedfiles: TJSHTMLFileList;\r\n  span: TJSHTMLElement;\r\n  szFiles: string;\r\n\r\nbegin\r\n  Result := true;\r\n  Event.preventDefault();\r\n  Event.stopPropagation();\r\n\r\n  droppedFiles := Event.dataTransfer.files;\r\n  szFiles := HandleFiles(droppedfiles);\r\n\r\n  if ShowFiles then\r\n  begin\r\n    span := TJSHTMLElement(document.getElementById(ElementID+'fileslist'));\r\n    span.innerHTML := szFiles;\r\n  end;\r\n\r\n  Container.setAttribute('class','box has-advanced-upload');\r\nend;\r\n\r\nfunction TFileUpload.HandleFiles(files: TJSHTMLFileList): string;\r\nvar\r\n  i,sz: integer;\r\n  afile: TJSHTMLFile;\r\n  szFiles, m: string;\r\n  d: TJSDate;\r\nbegin\r\n  szFiles := '';\r\n\r\n  while FFiles.Count > 0 do\r\n    FFiles.Delete(0);\r\n  while FFileList.Count > 0 do\r\n    FFileList.Delete(0);\r\n\r\n  for i := 0 to files.length - 1 do\r\n  begin\r\n    afile := files.item(i);\r\n\r\n    asm\r\n      d = new Date(afile.lastModified);\r\n      m = afile.type;\r\n      sz = afile.size;\r\n    end;\r\n\r\n    with FFiles.Add do\r\n    begin\r\n      FileObject := afile;\r\n      Name := afile.Name;\r\n      MimeType := m;\r\n      Size := sz;\r\n      Modified := EncodeDate(d.Year + 1900, d.Month + 1, d.Date)+EncodeTime(d.Hours, d.Minutes, d.Seconds, d.Milliseconds);\r\n    end;\r\n\r\n    if Assigned(FFileList) then\r\n      FFileList.Add(afile.name);\r\n\r\n    if ShowFiles then\r\n    begin\r\n      if i > 0 then\r\n        szFiles := szFiles + '<br>';\r\n\r\n      szFiles := szFiles + afile.name;\r\n    end;\r\n\r\n    if not MultiFile then\r\n      break;\r\n  end;\r\n\r\n  Result := szFiles;\r\n\r\n  if Assigned(OnDroppedFiles) then\r\n    OnDroppedFiles(Self, FFileList);\r\nend;\r\n\r\nprocedure TFileUpload.SetAccept(const Value: string);\r\nbegin\r\n  if FAccept <> Value then\r\n  begin\r\n    FAccept := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TFileUpload.SetCaption(const AValue: string);\r\nbegin\r\n  if (Caption <> AValue) then\r\n  begin\r\n    inherited SetCaption(AValue);\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TFileUpload.SetDragCaption(const Value: string);\r\nbegin\r\n  FDragCaption := Value;\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TFileUpload.SetShowPicture(const Value: boolean);\r\nbegin\r\n  if (FShowPicture <> Value) then\r\n  begin\r\n    FShowPicture := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TFileUpload.UpdateElement;\r\nvar\r\n  el:TJSHTMLElement;\r\nbegin\r\n  inherited;\r\n\r\n  CreateCSS;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    ElementHandle.style.setProperty('display','flex');\r\n\r\n    el := TJSHTMLElement(ElementHandle.children[0]);\r\n    el := TJSHTMLElement(el.children[0]);\r\n\r\n    if not ShowPicture then\r\n       el.style.setProperty('display','none')\r\n    else\r\n      el.style.removeProperty('display');\r\n\r\n    if ElementFont <> efCSS then\r\n      el.style.setProperty('color',ColorToHTML(Font.Color))\r\n    else\r\n      el.style.removeProperty('color');\r\n\r\n    el := TJSHTMLElement(document.getElementById('FP'+FCreateRef));\r\n\r\n    if Assigned(el) then\r\n    begin\r\n      if not FEventInit then\r\n      begin\r\n        FEventInit := true;\r\n        el.addEventListener('change', @DoHandleChange);\r\n      end;\r\n\r\n      if MultiFile then\r\n        el.SetAttribute('multiple','')\r\n      else\r\n        el.RemoveAttribute('multiple');\r\n\r\n      if FAccept <> '' then\r\n        el.SetAttribute('accept',FAccept)\r\n      else\r\n        el.RemoveAttribute('accept');\r\n    end;\r\n\r\n    el := TJSHTMLElement(document.getElementById(FCreateRef+'lbl'));\r\n    if Assigned(el) then\r\n    begin\r\n      el.innerHTML := Caption;\r\n    end;\r\n\r\n    el := TJSHTMLElement(document.getElementById(FCreateRef+'drag'));\r\n    if Assigned(el) then\r\n    begin\r\n      el.innerHTML := FDragCaption;\r\n    end;\r\n  end;\r\nend;\r\n\r\n\r\n{ TFilePicker }\r\n\r\nprocedure TFilePicker.BindEvents;\r\nvar\r\n  eh: TJSEventTarget;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementBindHandle) then\r\n  begin\r\n    eh := ElementBindHandle;\r\n    eh.addEventListener('change',@DoHandleChange);\r\n  end;\r\nend;\r\n\r\nprocedure TFilePicker.Clear;\r\nbegin\r\n  ElementHandle['type'] := '';\r\n  ElementHandle['type'] := 'file';\r\n\r\n  while Files.Count > 0 do\r\n    Files.Delete(0);\r\nend;\r\n\r\nfunction TFilePicker.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('INPUT');\r\n  Result.setAttribute('type','file');\r\nend;\r\n\r\nprocedure TFilePicker.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FFiles := TFiles.Create(Self);\r\n  begin\r\n    Width := 160;\r\n    Height := 40;\r\n  end;\r\nend;\r\n\r\ndestructor TFilePicker.Destroy;\r\nbegin\r\n  FFiles.Free;\r\n  inherited;\r\nend;\r\n\r\n{$HINTS OFF}\r\nfunction TFilePicker.DoHandleChange(e: TJSEvent): boolean;\r\nvar\r\n  i,l,sz: integer;\r\n  eh: TJSElement;\r\n  s,m: string;\r\n  f: TFile;\r\n  d: TJSDate;\r\n  jsfile: TJSHTMLFile;\r\nbegin\r\n  Result := true;\r\n\r\n  // clear existing collection\r\n  while FFiles.Count > 0 do\r\n    FFiles.Delete(0);\r\n\r\n  eh := ElementHandle;\r\n\r\n  asm\r\n    var curFiles = eh.files;\r\n    l = curFiles.length;\r\n  end;\r\n\r\n  for i := 0 to l - 1 do\r\n  begin\r\n    f := FFiles.Add;\r\n\r\n    asm\r\n      jsfile = curFiles[i];\r\n      s = curFiles[i].name;\r\n      m = curFiles[i].type;\r\n      sz = curFiles[i].size;\r\n      d = new Date(curFiles[i].lastModified);\r\n    end;\r\n\r\n    f.FileObject := jsfile;\r\n    f.Name := s;\r\n    f.MimeType := m;\r\n    f.Size := sz;\r\n    f.Modified := EncodeDate(d.Year + 1900, d.Month + 1, d.Date)+EncodeTime(d.Hours, d.Minutes, d.Seconds, d.Milliseconds);\r\n  end;\r\n\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nprocedure TFilePicker.GetMethodPointers;\r\nbegin\r\n  if FChangePtr = nil then\r\n  begin\r\n    FChangePtr := @DoHandleChange;\r\n    inherited;\r\n  end;\r\nend;\r\n\r\n{$HINTS ON}\r\n\r\nprocedure TFilePicker.SetAccept(const Value: string);\r\nbegin\r\n  if (FAccept <> Value) then\r\n  begin\r\n    FAccept := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TFilePicker.SetMultiFile(const Value: boolean);\r\nbegin\r\n  if (FMultiFile <> Value) then\r\n  begin\r\n    FMultiFile := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TFilePicker.UpdateElement;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    if MultiFile then\r\n      ElementHandle.SetAttribute('multiple','')\r\n    else\r\n      ElementHandle.RemoveAttribute('multiple');\r\n\r\n    if FAccept <> '' then\r\n      ElementHandle.SetAttribute('accept',FAccept)\r\n    else\r\n      ElementHandle.RemoveAttribute('accept');\r\n  end;\r\nend;\r\n\r\n{ TFiles }\r\n\r\nfunction TFiles.Add: TFile;\r\nbegin\r\n  Result := TFile(inherited Add);\r\nend;\r\n\r\nprocedure TFiles.Clear;\r\nvar\r\n  fc: integer;\r\nbegin\r\n  fc := Count;\r\n  inherited Clear;\r\n\r\n  if fc > 0 then\r\n  begin\r\n    if (FOwner is TFilePicker) then\r\n      (FOwner as TFilePicker).Clear;\r\n    if (FOwner is TFileUpload) then\r\n      (FOwner as TFileUpload).Clear;\r\n  end;\r\nend;\r\n\r\nconstructor TFiles.Create(AOwner: TComponent);\r\nbegin\r\n  inherited Create(TFile);\r\n  FOwner := TFilePicker(AOwner);\r\nend;\r\n\r\nfunction TFiles.GetItem(Index: integer): TFile;\r\nbegin\r\n  Result := TFile(inherited Items[Index]);\r\nend;\r\n\r\nfunction TFiles.Insert(Index: integer): TFile;\r\nbegin\r\n  Result := TFile(inherited Insert(Index));\r\nend;\r\n\r\nfunction TFiles.Owner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nprocedure TFiles.SetItem(Index: integer; const Value: TFile);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TFile }\r\n\r\n{$HINTS OFF}\r\nfunction TFile.GetControl: TComponent;\r\nbegin\r\n  Result := nil;\r\n\r\n  if Assigned(Collection) and Assigned((Collection as TFiles).Owner) then\r\n  begin\r\n    if (Collection as TFiles).Owner is TComponent then\r\n      Result := (Collection as TFiles).Owner as TComponent;\r\n  end;\r\nend;\r\n\r\nprocedure TFile.GetFileAsArrayBuffer;\r\nvar\r\n  ptr: pointer;\r\n  f: TJSHTMLFile;\r\nbegin\r\n  ptr := @HandleFileLoadAsArrayBuffer;\r\n  f := FileObject;\r\n\r\n  asm\r\n    var reader = new FileReader();\r\n    reader.addEventListener('load',ptr);\r\n    reader.readAsArrayBuffer(f);\r\n  end;\r\nend;\r\n\r\nprocedure TFile.GetFileAsArrayBuffer(GetAsArrayBuffer: TGetAsArrayBufferProc);\r\nbegin\r\n  FGetAsArrayBuffer := GetAsArrayBuffer;\r\n  GetFileAsArrayBuffer;\r\nend;\r\n\r\nprocedure TFile.GetFileAsBase64(GetAsString: TGetAsStringProc);\r\nbegin\r\n  FGetAsString := GetAsString;\r\n  GetFileAsBase64;\r\nend;\r\n\r\nprocedure TFile.GetFileAsDataURL(GetAsString: TGetAsStringProc);\r\nbegin\r\n  FGetAsString := GetAsString;\r\n  GetFileAsDataURL;\r\nend;\r\n\r\nprocedure TFile.GetFileAsStream;\r\nvar\r\n  ptr: pointer;\r\n  f: TJSHTMLFile;\r\nbegin\r\n  ptr := @HandleFileLoadAsStream;\r\n  f := FileObject;\r\n\r\n  asm\r\n    var reader = new FileReader();\r\n    reader.addEventListener('load',ptr);\r\n    reader.readAsArrayBuffer(f);\r\n  end;\r\nend;\r\n\r\nprocedure TFile.GetFileAsStream(GetAsStream: TGetAsStreamProc);\r\nbegin\r\n  FGetAsStream := GetAsStream;\r\n  GetFileAsStream;\r\nend;\r\n\r\nfunction TFile.FileAsText: TJSPromise;\r\nbegin\r\n  Result := FileAsText('utf-8');\r\nend;\r\n\r\nfunction TFile.FileAsText(AEncoding: string): TJSPromise;\r\nvar\r\n  reader: TJSFileReader;\r\n\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n\r\n       function Loader(Event: TEventListenerEvent): boolean;\r\n       begin\r\n         ASuccess(EventResult(Event));\r\n       end;\r\n\r\n    begin\r\n      reader := TJSFileReader.new;\r\n      reader.onload := @Loader;\r\n      reader.readAsText(FileObject, AEncoding);\r\n    end);\r\nend;\r\n\r\nfunction TFile.FileAsBase64: TJSPromise;\r\nvar\r\n  reader: TJSFileReader;\r\n\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n\r\n       function Loader(Event: TEventListenerEvent): boolean;\r\n       var\r\n         s: string;\r\n       begin\r\n         asm\r\n           function _arrayBufferToBase64( buffer ) {\r\n           var binary = '';\r\n           var bytes = new Uint8Array( buffer );\r\n           var len = bytes.byteLength;\r\n           for (var i = 0; i < len; i++) {\r\n               binary += String.fromCharCode( bytes[ i ] );\r\n           }\r\n           return window.btoa( binary );\r\n           }\r\n           s = _arrayBufferToBase64(Event.target.result);\r\n         end;\r\n\r\n         ASuccess(s);\r\n       end;\r\n\r\n    begin\r\n      reader := TJSFileReader.new;\r\n      reader.onload := @Loader;\r\n      reader.readAsArrayBuffer(FileObject);\r\n    end);\r\nend;\r\n\r\nfunction TFile.FileAsStream: TJSPromise;\r\nvar\r\n  reader: TJSFileReader;\r\n\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n\r\n       function Loader(Event: TEventListenerEvent): boolean;\r\n       var\r\n         ms: TMemoryStream;\r\n         ja: TJSArrayBuffer;\r\n         b: TBytes;\r\n         l: longint;\r\n       begin\r\n         asm\r\n          ja = Event.target.result;\r\n         end;\r\n\r\n         b := TMemoryStream.MemoryToBytes(ja);\r\n         l := ja.byteLength;\r\n\r\n         ms := TMemoryStream.Create;\r\n         ms.Write(b,0, l);\r\n         ms.Position := 0;\r\n\r\n         ASuccess(ms);\r\n       end;\r\n\r\n    begin\r\n      reader := TJSFileReader.new;\r\n      reader.onload := @Loader;\r\n      reader.readAsArrayBuffer(FileObject);\r\n    end);\r\nend;\r\n\r\nfunction TFile.FileAsArrayBuffer: TJSPromise;\r\nvar\r\n  reader: TJSFileReader;\r\n\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n\r\n       function Loader(Event: TEventListenerEvent): boolean;\r\n       var\r\n         arr: TJSArrayBuffer;\r\n       begin\r\n         asm\r\n           arr = Event.target.result;\r\n         end;\r\n\r\n         ASuccess(arr);\r\n       end;\r\n\r\n    begin\r\n      reader := TJSFileReader.new;\r\n      reader.onload := @Loader;\r\n      reader.readAsArrayBuffer(FileObject);\r\n    end);\r\nend;\r\n\r\nfunction TFile.FileAsDataURL: TJSPromise;\r\nvar\r\n  reader: TJSFileReader;\r\n\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n\r\n       function Loader(Event: TEventListenerEvent): boolean;\r\n       var\r\n         s: string;\r\n       begin\r\n         asm\r\n           s = Event.target.result;\r\n         end;\r\n\r\n         ASuccess(s);\r\n       end;\r\n\r\n    begin\r\n      reader := TJSFileReader.new;\r\n      reader.onload := @Loader;\r\n      reader.readAsDataURL(FileObject);\r\n    end);\r\nend;\r\n\r\n\r\nprocedure TFile.GetFileAsText;\r\nvar\r\n  ptr: pointer;\r\n  f: TJSHTMLFile;\r\nbegin\r\n  ptr := @HandleFileLoadAsText;\r\n  f := FileObject;\r\n\r\n  asm\r\n    var reader = new FileReader();\r\n    reader.addEventListener('load',ptr);\r\n    reader.readAsText(f);\r\n  end;\r\nend;\r\n\r\nprocedure TFile.GetFileAsText(AEncoding: string);\r\nvar\r\n  ptr: pointer;\r\n  f: TJSHTMLFile;\r\nbegin\r\n  ptr := @HandleFileLoadAsText;\r\n  f := FileObject;\r\n\r\n  asm\r\n    var reader = new FileReader();\r\n    reader.addEventListener('load',ptr);\r\n    reader.readAsText(f, AEncoding);\r\n  end;\r\n\r\nend;\r\n\r\n\r\nprocedure TFile.GetFileAsBase64;\r\nvar\r\n  ptr: pointer;\r\n  f: TJSHTMLFile;\r\nbegin\r\n  ptr := @HandleFileLoadAsBase64;\r\n  f := FileObject;\r\n\r\n  asm\r\n    var reader = new FileReader();\r\n    reader.addEventListener('load',ptr);\r\n    reader.readAsArrayBuffer(f);\r\n  end;\r\nend;\r\n\r\nprocedure TFile.GetFileAsDataURL;\r\nvar\r\n  ptr: pointer;\r\n  f: TJSHTMLFile;\r\nbegin\r\n  ptr := @HandleFileLoadAsDataURL;\r\n  f := FileObject;\r\n\r\n  asm\r\n    var reader = new FileReader();\r\n    reader.addEventListener('load',ptr);\r\n    reader.readAsDataURL(f);\r\n  end;\r\nend;\r\n\r\nprocedure TFile.GetFileAsText(GetAsString: TGetAsStringProc);\r\nbegin\r\n  FGetAsString := GetAsString;\r\n  GetFileAsText;\r\nend;\r\n\r\nprocedure TFile.Upload(AAction: string);\r\nvar\r\n  f: TJSHTMLFile;\r\n  fd: TJSFormData;\r\n  ptrProgress, ptrComplete, ptrError, ptrAbort: pointer;\r\nbegin\r\n  f := FileObject;\r\n\r\n  fd := TJSFormData.new;\r\n  fd.Append('file1',f);\r\n\r\n  FReq := TJSXMLHttpRequest.new;\r\n\r\n  ptrProgress := @HandleFileUploadProgress;\r\n  ptrComplete := @HandleFileUploadComplete;\r\n  ptrError := @HandleFileUploadError;\r\n  ptrAbort := @HandleFileUploadAbort;\r\n\r\n  FReq.addEventListener('load', ptrComplete);\r\n  FReq.addEventListener('error', ptrError);\r\n  FReq.addEventListener('abort', ptrAbort);\r\n  FReq.upload.addEventListener('progress', ptrProgress);\r\n\r\n  FReq.Open('POST',AAction, true);\r\n  FReq.Send(fd);\r\nend;\r\n\r\nfunction TFile.AbortUpload: boolean;\r\nbegin\r\n  Result := false;\r\n  if Assigned(FReq) then\r\n  begin\r\n    FReq.Abort();\r\n    Result := true;\r\n  end;\r\nend;\r\n\r\n{$HINTS ON}\r\n\r\nfunction TFile.HandleFileLoadAsArrayBuffer(Event: TJSEvent): boolean;\r\nvar\r\n  ja: TJSArrayBuffer;\r\n  LJARec: TJSArrayBufferRecord;\r\n  ctrl: TComponent;\r\nbegin\r\n\r\n  Result := true;\r\n  asm\r\n    ja = Event.target.result;\r\n  end;\r\n\r\n  if Assigned(FGetAsArrayBuffer) then\r\n  begin\r\n    FGetAsArrayBuffer(ja);\r\n  end;\r\n\r\n  FGetAsArrayBuffer := nil;\r\n\r\n  if Assigned(OnGetFileAsArrayBuffer) then\r\n  begin\r\n    LJARec.jsarraybuffer := ja;\r\n    OnGetFileAsArrayBuffer(Self, LJARec);\r\n  end;\r\n\r\n  ctrl := GetControl;\r\n\r\n  if Assigned(ctrl) then\r\n  begin\r\n    LJARec.jsarraybuffer := ja;\r\n\r\n    if (ctrl is TFilePicker) and Assigned( (ctrl as TFilePicker).OnGetFileAsArrayBuffer) then\r\n      (ctrl as TFilePicker).OnGetFileAsArrayBuffer(ctrl, Index, LJARec);\r\n\r\n    if (ctrl is TFileUpload) and Assigned( (ctrl as TFileUpload).OnGetFileAsArrayBuffer) then\r\n      (ctrl as TFileUpload).OnGetFileAsArrayBuffer(ctrl, Index, LJARec);\r\n\r\n    if (ctrl is TOpenDialog) and Assigned( (ctrl as TOpenDialog).OnGetFileAsArrayBuffer) then\r\n      (ctrl as TOpenDialog).OnGetFileAsArrayBuffer(ctrl, Index, LJARec);\r\n  end;\r\nend;\r\n\r\n\r\nfunction TFile.HandleFileLoadAsBase64(Event: TJSEvent): boolean;\r\nvar\r\n  s: string;\r\n  ctrl: TComponent;\r\nbegin\r\n  Result := true;\r\n\r\n  asm\r\n    function _arrayBufferToBase64( buffer ) {\r\n    var binary = '';\r\n    var bytes = new Uint8Array( buffer );\r\n    var len = bytes.byteLength;\r\n    for (var i = 0; i < len; i++) {\r\n        binary += String.fromCharCode( bytes[ i ] );\r\n    }\r\n    return window.btoa( binary );\r\n    }\r\n    s = _arrayBufferToBase64(Event.target.result);\r\n  end;\r\n\r\n  if Assigned(FGetAsString) then\r\n    FGetAsString(s);\r\n\r\n  FGetAsString := nil;\r\n\r\n  if Assigned(OnGetFileAsBase64) then\r\n    OnGetFileAsBase64(Self, s);\r\n\r\n  ctrl := GetControl;\r\n\r\n  if Assigned(ctrl) then\r\n  begin\r\n    if (ctrl is TFilePicker) and Assigned( (ctrl as TFilePicker).OnGetFileAsBase64) then\r\n      (ctrl as TFilePicker).OnGetFileAsBase64(ctrl, Index, s);\r\n\r\n    if (ctrl is TFileUpload) and Assigned( (ctrl as TFileUpload).OnGetFileAsBase64) then\r\n      (ctrl as TFileUpload).OnGetFileAsBase64(ctrl, Index, s);\r\n\r\n    if (ctrl is TOpenDialog) and Assigned( (ctrl as TOpenDialog).OnGetFileAsBase64) then\r\n      (ctrl as TOpenDialog).OnGetFileAsBase64(ctrl, Index, s);\r\n  end;\r\nend;\r\n\r\n\r\nfunction TFile.HandleFileLoadAsDataURL(Event: TJSEvent): boolean;\r\nvar\r\n  s: string;\r\n  ctrl: TComponent;\r\nbegin\r\n  Result := true;\r\n  asm\r\n    s = Event.target.result;\r\n  end;\r\n\r\n  if Assigned(FGetAsString) then\r\n    FGetAsString(s);\r\n\r\n  FGetAsString := nil;\r\n\r\n  if Assigned(OnGetFileAsURL) then\r\n    OnGetFileAsURL(Self, s);\r\n\r\n  ctrl := GetControl;\r\n\r\n  if Assigned(ctrl) then\r\n  begin\r\n    if (ctrl is TFilePicker) and Assigned( (ctrl as TFilePicker).OnGetFileAsDataURL) then\r\n      (ctrl as TFilePicker).OnGetFileAsDataURL(ctrl, Index, s);\r\n\r\n    if (ctrl is TFileUpload) and Assigned( (ctrl as TFileUpload).OnGetFileAsDataURL) then\r\n      (ctrl as TFileUpload).OnGetFileAsDataURL(ctrl, Index, s);\r\n\r\n    if (ctrl is TWebOpenDialog) and Assigned( (ctrl as TWebOpenDialog).OnGetFileAsDataURL) then\r\n      (ctrl as TWebOpenDialog).OnGetFileAsDataURL(ctrl, Index, s);\r\n  end;\r\nend;\r\n\r\nfunction TFile.HandleFileLoadAsStream(Event: TJSEvent): boolean;\r\nvar\r\n  ctrl: TComponent;\r\n  b: TBytes;\r\n  l: longint;\r\n  ms: TMemoryStream;\r\n  ja: TJSArrayBuffer;\r\nbegin\r\n\r\n  Result := true;\r\n  asm\r\n    ja = Event.target.result;\r\n  end;\r\n\r\n  b := TMemoryStream.MemoryToBytes(ja);\r\n  l := ja.byteLength;\r\n\r\n  ms := TMemoryStream.Create;\r\n  ms.Write(b,0, l);\r\n  ms.Position := 0;\r\n\r\n  if Assigned(FGetAsStream) then\r\n  begin\r\n    FGetAsStream(ms);\r\n  end;\r\n\r\n  FGetAsStream := nil;\r\n\r\n  if Assigned(OnGetFileAsStream) then\r\n  begin\r\n    OnGetFileAsStream(Self, ms);\r\n  end;\r\n\r\n  ctrl := GetControl;\r\n\r\n  if Assigned(ctrl) then\r\n  begin\r\n    if (ctrl is TFilePicker) and Assigned( (ctrl as TFilePicker).OnGetFileAsStream) then\r\n      (ctrl as TFilePicker).OnGetFileAsStream(ctrl, Index, ms);\r\n\r\n    if (ctrl is TFileUpload) and Assigned( (ctrl as TFileUpload).OnGetFileAsStream) then\r\n      (ctrl as TFileUpload).OnGetFileAsStream(ctrl, Index, ms);\r\n\r\n    if (ctrl is TOpenDialog) and Assigned( (ctrl as TOpenDialog).OnGetFileAsStream) then\r\n      (ctrl as TOpenDialog).OnGetFileAsStream(ctrl, Index, ms);\r\n  end;\r\n\r\n  ms.Free;\r\nend;\r\n\r\nfunction TFile.HandleFileLoadAsText(Event: TJSEvent): boolean;\r\nvar\r\n  s: string;\r\n  ctrl: TComponent;\r\n\r\nbegin\r\n  Result := true;\r\n  asm\r\n    s = Event.target.result;\r\n  end;\r\n\r\n  if Assigned(FGetAsString) then\r\n    FGetAsString(s);\r\n\r\n  FGetAsString := nil;\r\n\r\n  if Assigned(OnGetFileAsText) then\r\n    OnGetFileAsText(Self, s);\r\n\r\n  ctrl := GetControl;\r\n\r\n  if Assigned(ctrl) then\r\n  begin\r\n    if (ctrl is TFilePicker) and Assigned( (ctrl as TFilePicker).OnGetFileAsText) then\r\n      (ctrl as TFilePicker).OnGetFileAsText(ctrl, Index, s);\r\n\r\n    if (ctrl is TFileUpload) and Assigned( (ctrl as TFileUpload).OnGetFileAsText) then\r\n      (ctrl as TFileUpload).OnGetFileAsText(ctrl, Index, s);\r\n\r\n    if (ctrl is TOpenDialog) and Assigned( (ctrl as TOpenDialog).OnGetFileAsText) then\r\n      (ctrl as TOpenDialog).OnGetFileAsText(ctrl, Index, s);\r\n  end;\r\nend;\r\n\r\nfunction TFile.HandleFileUploadAbort(Event: TJSEvent): boolean;\r\nvar\r\n  ctrl: TComponent;\r\nbegin\r\n  Result := true;\r\n\r\n  ctrl := GetControl;\r\n\r\n  if Assigned(ctrl) then\r\n  begin\r\n    if (ctrl is TFilePicker) and Assigned( (ctrl as TFilePicker).OnUploadFileAbort) then\r\n      (ctrl as TFilePicker).OnUploadFileAbort(ctrl, Index);\r\n\r\n    if (ctrl is TFileUpload) and Assigned( (ctrl as TFileUpload).OnUploadFileAbort) then\r\n      (ctrl as TFileUpload).OnUploadFileAbort(ctrl, Index);\r\n  end;\r\nend;\r\n\r\nfunction TFile.HandleFileUploadComplete(Event: TJSEvent): boolean;\r\nvar\r\n  ctrl: TComponent;\r\n  LRequestRec: TJSXMLHttpRequestRecord;\r\n  AResponse: string;\r\nbegin\r\n  Result := true;\r\n\r\n  ctrl := GetControl;\r\n\r\n  if Assigned(ctrl) then\r\n  begin\r\n    if (ctrl is TFilePicker) and Assigned( (ctrl as TFilePicker).OnUploadFileComplete) then\r\n      (ctrl as TFilePicker).OnUploadFileComplete(ctrl, Index);\r\n\r\n    if (ctrl is TFilePicker) and Assigned( (ctrl as TFilePicker).OnUploadFileResponseComplete) then\r\n    begin\r\n      LRequestRec.req := TJSXMLHttpRequest(Event.Target);\r\n      asm\r\n        AResponse = Event.target.responseText;\r\n      end;\r\n\r\n      (ctrl as TFilePicker).OnUploadFileResponseComplete(ctrl, Index, LRequestRec, AResponse);\r\n    end;\r\n\r\n    if (ctrl is TFileUpload) and Assigned( (ctrl as TFileUpload).OnUploadFileComplete) then\r\n      (ctrl as TFileUpload).OnUploadFileComplete(ctrl, Index);\r\n\r\n    if (ctrl is TFileUpload) and Assigned( (ctrl as TFileUpload).OnUploadFileResponseComplete) then\r\n    begin\r\n      LRequestRec.req := TJSXMLHttpRequest(Event.Target);\r\n      asm\r\n        AResponse = Event.target.responseText;\r\n      end;\r\n\r\n      (ctrl as TFileUpload).OnUploadFileResponseComplete(ctrl, Index, LRequestRec, AResponse);\r\n    end;\r\n  end;\r\n  FReq := nil;\r\nend;\r\n\r\nfunction TFile.HandleFileUploadError(Event: TJSEvent): boolean;\r\nvar\r\n  err: string;\r\n  ctrl: TComponent;\r\nbegin\r\n  asm\r\n    err = Event.target.status;\r\n  end;\r\n  Result := true;\r\n\r\n  ctrl := GetControl;\r\n\r\n  if Assigned(ctrl) then\r\n  begin\r\n    if (ctrl is TFilePicker) and Assigned( (ctrl as TFilePicker).OnUploadFileError) then\r\n      (ctrl as TFilePicker).OnUploadFileError(ctrl, Index, err);\r\n\r\n    if (ctrl is TFileUpload) and Assigned( (ctrl as TFileUpload).OnUploadFileError) then\r\n      (ctrl as TFileUpload).OnUploadFileError(ctrl, Index, err);\r\n  end;\r\nend;\r\n\r\nfunction TFile.HandleFileUploadProgress(Event: TJSEvent): boolean;\r\nvar\r\n  Lloaded, Ltotal: longint;\r\n  ctrl: TComponent;\r\nbegin\r\n  Lloaded := 0;\r\n  LTotal := 0;\r\n\r\n  asm\r\n   if (Event.lengthComputable) {\r\n      Lloaded = Event.loaded;\r\n      Ltotal = Event.total;\r\n      //console.log(Event.loaded + \" bytes of \" + Event.total); } else { console.log('no calc');\r\n   }\r\n  end;\r\n\r\n  ctrl := GetControl;\r\n\r\n  if Assigned(ctrl) then\r\n  begin\r\n    if (ctrl is TFilePicker) and Assigned( (GetControl as TFilePicker).OnUploadFileProgress) then\r\n      (ctrl as TFilePicker).OnUploadFileProgress(ctrl, Index, Lloaded, Ltotal);\r\n\r\n    if (ctrl is TFileUpload) and Assigned( (GetControl as TFileUpload).OnUploadFileProgress) then\r\n      (ctrl as TFileUpload).OnUploadFileProgress(ctrl, Index, Lloaded, Ltotal);\r\n  end;\r\n\r\n  Result := true;\r\nend;\r\n\r\n\r\ninitialization\r\n  WebLibDlg := nil;\r\n\r\nend.","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.Controls;\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, WEBLib.Graphics, Types, SysUtils, Web, JS;\r\n\r\nconst\r\n  VK_CANCEL = 3;\r\n  VK_BACK = 8;\r\n  VK_TAB = 9;\r\n  VK_RETURN = 13;\r\n  VK_SHIFT = 16;\r\n  VK_CONTROL = 17;\r\n  VK_MENU = 18;\r\n  VK_PAUSE = 19;\r\n  VK_CAPITAL = 20;\r\n  VK_ESCAPE = 27;\r\n  VK_SPACE = 32;\r\n  VK_PRIOR = 33;\r\n  VK_NEXT = 34;\r\n  VK_END = 35;\r\n  VK_HOME = 36;\r\n  VK_LEFT = 37;\r\n  VK_UP = 38;\r\n  VK_RIGHT = 39;\r\n  VK_DOWN = 40;\r\n  VK_PRINT = 42;\r\n  VK_SNAPSHOT = 44;\r\n  VK_INSERT = 45;\r\n  VK_DELETE = 46;\r\n  VK_HELP = 47;\r\n  VK_LWIN = 91;\r\n  VK_RWIN = 92;\r\n  VK_NUMPAD0 = 96;\r\n  VK_NUMPAD1 = 97;\r\n  VK_NUMPAD2 = 98;\r\n  VK_NUMPAD3 = 99;\r\n  VK_NUMPAD4 = 100;\r\n  VK_NUMPAD5 = 101;\r\n  VK_NUMPAD6 = 102;\r\n  VK_NUMPAD7 = 103;\r\n  VK_NUMPAD8 = 104;\r\n  VK_NUMPAD9 = 105;\r\n  VK_MULTIPLY = 106;\r\n  VK_ADD = 107;\r\n  VK_SEPARATOR = 108;\r\n  VK_SUBTRACT = 109;\r\n  VK_DECIMAL = 110;\r\n  VK_DIVIDE = 111;\r\n  VK_F1 = 112;\r\n  VK_F2 = 113;\r\n  VK_F3 = 114;\r\n  VK_F4 = 115;\r\n  VK_F5 = 116;\r\n  VK_F6 = 117;\r\n  VK_F7 = 118;\r\n  VK_F8 = 119;\r\n  VK_F9 = 120;\r\n  VK_F10 = 121;\r\n  VK_F11 = 122;\r\n  VK_F12 = 123;\r\n  VK_F13 = 124;\r\n  VK_F14 = 125;\r\n  VK_F15 = 126;\r\n  VK_F16 = 127;\r\n  VK_F17 = 128;\r\n  VK_F18 = 129;\r\n  VK_F19 = 130;\r\n  VK_F20 = 131;\r\n  VK_F21 = 132;\r\n  VK_F22 = 133;\r\n  VK_F23 = 134;\r\n  VK_F24 = 135;\r\n  VK_NUMLOCK = 144;\r\n\r\n  WHEEL_DELTA = 120;\r\n\r\ntype\r\n  TCursor = type Integer;\r\n\r\nconst\r\n  crDefault     = 0;\r\n  crNone        = 1;\r\n  crArrow       = 2;\r\n  crCross       = 3;\r\n  crIBeam       = 4;\r\n  crSize        = 5;\r\n  crSizeNESW    = 6;\r\n  crSizeNS      = 7;\r\n  crSizeNWSE    = 8;\r\n  crSizeWE      = 9;\r\n  crUpArrow     = 10;\r\n  crHourGlass   = 11;\r\n  crDrag        = 12;\r\n  crNoDrop      = 13;\r\n  crHSplit      = 14;\r\n  crVSplit      = 15;\r\n  crMultIDrag   = 16;\r\n  crSQLWait     = 17;\r\n  crNo          = 18;\r\n  crAppStart    = 19;\r\n  crHelp        = 20;\r\n  crHandPoint   = 21;\r\n  crSizeAll     = 22;\r\n\r\n  CSSBackground = 'background-color';\r\n  CSSZIndex = 'z-index';\r\n\r\ntype\r\n  TCSSCodeManager = class;\r\n  TCSSLibrary = (cssNone, cssBootstrap);\r\n\r\n  Single = Double;\r\n  TDragState = (dsDragEnter, dsDragLeave, dsDragMove);\r\n  TDragMode = (dmManual, dmAutomatic);\r\n  TDragKind = (dkDrag, dkDock);\r\n  TDragObject = class(TObject);\r\n\r\n  TAlign = (alNone, alTop, alBottom, alLeft, alRight, alClient, alCustom);\r\n  TMouseButton = (mbLeft, mbRight, mbMiddle);\r\n  TBorderStyle = (bsNone, bsSingle);\r\n  TSizeStyle = (ssPercent, ssAbsolute, ssAuto);\r\n  TScrollStyle = (ssNone, ssHorizontal, ssVertical, ssBoth);\r\n  TStyleElements = set of (seFont, seClient, seBorder);\r\n\r\n  TAnchorKind = (akLeft, akTop, akRight, akBottom);\r\n  TAnchors = set of TAnchorKind;\r\n\r\n  TMaterialGlyph = string;\r\n\r\n  TElementClassName = type string;\r\n  TElementID = type string;\r\n  TElementFont = (efProperty, efCSS);\r\n  TElementPosition = (epAbsolute, epRelative, epIgnore);\r\n\r\n  TElementEvent = (eeClick, eeMouseDown, eeMouseUp, eeMouseMove, eeDblClick, eeKeyPress, eeKeyDown, eeKeyUp);\r\n  TEventPropagation = set of TElementEvent;\r\n\r\n  TTextDirection = (tdDefault, tdLeftToRight, tdRightToLeft, tdInherit);\r\n\r\n  TBevelCut = (bvNone, bvLowered, bvRaised, bvSpace);\r\n  TBevelEdge = (beLeft, beTop, beRight, beBottom);\r\n  TBevelEdges = set of TBevelEdge;\r\n  TBevelKind = (bkNone, bkTile, bkSoft, bkFlat);\r\n\r\n  TInputType = (itText, itEmail, itDate, itDateTime, itFile, itMonth, itNumber, itPassword, itSearch, itTime, itURL, itWeek);\r\n\r\n  TMaterialGlyphType = (mgNormal, mgOutlined, mgTwoTone, mgRound, mgSharp);\r\n\r\n  TJSXMLHttpRequestRecord = record\r\n    req: TJSXMLHttpRequest;\r\n  end;\r\n\r\n  TJSEventRecord = record\r\n    event: TEventListenerEvent;\r\n  end;\r\n\r\n  THTTPResponseEvent = procedure(Sender: TObject; AResponse: string) of object;\r\n  THTTPRequestResponseEvent = procedure(Sender: TObject; ARequest: TJSXMLHttpRequestRecord; AResponse: string) of object;\r\n  THTTPAbortEvent = procedure(Sender: TObject) of object;\r\n  THTTPErrorEvent = procedure(Sender: TObject; ARequest: TJSXMLHttpRequestRecord; Event: TJSEventRecord; var Handled: boolean) of object;\r\n\r\n  TJSHTMLElementRecord = record\r\n    element: TJSHTMLElement;\r\n  end;\r\n\r\n  TJSObjectRecord = record\r\n    jsobject: TJSObject;\r\n  end;\r\n\r\n  TJSArrayRecord = record\r\n    jsarray: TJSArray;\r\n  end;\r\n\r\n  TJSArrayBufferRecord = record\r\n    jsarraybuffer: TJSArrayBuffer;\r\n  end;\r\n\r\n  TDragSourceObject = class(TObject)\r\n  private\r\n    FJSEvent: TJSEvent;\r\n    FObject: TObject;\r\n  public\r\n    property Event: TJSEvent read FJSEvent write FJSEvent;\r\n    property &Object: TObject read FObject write FObject;\r\n  end;\r\n\r\n  TNotifyEvent = procedure(Sender: TObject) of object;\r\n  TMouseEvent = procedure(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer) of object;\r\n  TMouseWheelEvent = procedure(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean) of object;\r\n  TMouseWheelUpDownEvent = procedure(Sender: TObject; Shift: TShiftState;\r\n    MousePos: TPoint; var Handled: Boolean) of object;\r\n  TMouseMoveEvent = procedure(Sender: TObject; Shift: TShiftState; X,Y: Integer) of object;\r\n  TKeyEvent = procedure(Sender: TObject; var AKey: Word; Shift: TShiftState) of object;\r\n  TKeyPressEvent = procedure(Sender: TObject; var AChar: Char) of object;\r\n  TTouchEvent = procedure(Sender: TObject; X,Y: integer) of object;\r\n  TBiDiMode = (bdLeftToRight, bdRightToLeft, bdRightToLeftNoAlign, bdRightToLeftReadingOnly);\r\n\r\n  TDragOverEvent = procedure(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean) of object;\r\n  TDragDropEvent = procedure(Sender, Source: TObject; X, Y: Integer) of object;\r\n  TStartDragEvent = procedure(Sender: TObject; var DragObject: TDragObject) of object;\r\n  TEndDragEvent = procedure(Sender, Target: TObject; X, Y: Integer) of object;\r\n  TScreenshotEvent = procedure(Sender: TObject; ABitmap: TBitmap) of object;\r\n\r\n  TControlStyleValue = (csAcceptsControls, csSetCaption);\r\n  TControlStyle = set of TControlStyleValue;\r\n\r\n  TMargins = class(TPersistent)\r\n  private\r\n    FOnChange: TNotifyEvent;\r\n    FLeft, FTop, FRight, FBottom: Integer;\r\n  protected\r\n    procedure SetLeft(const Value: integer);\r\n    procedure SetTop(const Value: integer);\r\n    procedure SetRight(const Value: integer);\r\n    procedure SetBottom(const Value: integer);\r\n    procedure DoChange; virtual;\r\n  public\r\n    constructor Create; reintroduce;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property Left: Integer read FLeft write SetLeft default 3;\r\n    property Top: Integer read FTop write SetTop default 3;\r\n    property Right: Integer read FRight write SetRight default 3;\r\n    property Bottom: Integer read FBottom write SetBottom default 3;\r\n  end;\r\n\r\n  TCenter = class(TPersistent)\r\n  private\r\n    FHorizontal: boolean;\r\n    FVertical: boolean;\r\n    FOnChange: TNotifyEvent;\r\n  protected\r\n    procedure SetHorizontal(const Value: boolean);\r\n    procedure SetVertical(const Value: boolean);\r\n    procedure DoChange; virtual;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  published\r\n    property Horizontal: boolean read FHorizontal write SetHorizontal default false;\r\n    property Vertical: boolean read FVertical write SetVertical default false;\r\n  end;\r\n\r\n  TPadding = class(TPersistent)\r\n  private\r\n    FOnChange: TNotifyEvent;\r\n    FLeft, FTop, FRight, FBottom: Integer;\r\n  protected\r\n    procedure SetLeft(const Value: integer);\r\n    procedure SetTop(const Value: integer);\r\n    procedure SetRight(const Value: integer);\r\n    procedure SetBottom(const Value: integer);\r\n    procedure DoChange; virtual;\r\n  public\r\n    constructor Create; reintroduce;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property Left: Integer read FLeft write SetLeft default 0;\r\n    property Top: Integer read FTop write SetTop default 0;\r\n    property Right: Integer read FRight write SetRight default 0;\r\n    property Bottom: Integer read FBottom write SetBottom default 0;\r\n  end;\r\n\r\n\r\n  TPercentSize = single;\r\n\r\n  IControl = interface\r\n    function EnterChildren(AObject: IControl): Boolean;\r\n    function ExitChildren(AObject: IControl): Boolean;\r\n  end;\r\n\r\n  TControl = class(TComponent, IControl)\r\n  private\r\n    FGotFocus: Boolean;\r\n    FAcceptDrag: Boolean;\r\n    FCaptureDown: Boolean;\r\n    FMouseInsideLayer: Boolean;\r\n    FLayer: TJSElement;\r\n    FCaptured: Boolean;\r\n    FControlCreated: Boolean;\r\n    FUpdateCount: integer;\r\n    FBlockUpdateElement: Boolean;\r\n    FElement: TJSElement;\r\n    FID: string;\r\n    FNew: Boolean;\r\n    FContainer: TJSElement;\r\n    FElementEvent, FLastElementEvent: TJSEvent;\r\n    FElementClassName: string;\r\n    FFont: TFont;\r\n    FParent, FPrevParent: TControl;\r\n    FControls: array of TControl;\r\n    FOnDragOver: TDragOverEvent;\r\n    FOnDragDrop: TDragDropEvent;\r\n    FOnStartDrag: TStartDragEvent;\r\n    FonEndDrag: TEndDragEvent;\r\n    FOnClick: TNotifyEvent;\r\n    FOnDblClick: TNotifyEvent;\r\n    FOnMouseDown: TMouseEvent;\r\n    FOnMouseUp: TMouseEvent;\r\n    FOnMouseMove: TMouseMoveEvent;\r\n    FOnKeyDown: TKeyEvent;\r\n    FOnKeyUp: TKeyEvent;\r\n    FOnKeyPress: TKeyPressEvent;\r\n    FOnEnter: TNotifyEvent;\r\n    FOnExit: TNotifyEvent;\r\n    FEnabled: Boolean;\r\n    FHint: string;\r\n    FRole: string;\r\n    FShowHint: Boolean;\r\n    FTabOrder: Integer;\r\n    FTabStop: Boolean;\r\n    FVisible: Boolean;\r\n    FWidth: Integer;\r\n    FHeight: Integer;\r\n    FTag: Integer;\r\n    FAlign: TAlign;\r\n    FAnchors: TAnchors;\r\n    FAlignWithMargins: boolean;\r\n    FIsAligning: boolean;\r\n    FOnMouseEnter: TNotifyEvent;\r\n    FOnMouseLeave: TNotifyEvent;\r\n    FCursor: TCursor;\r\n    FDoubleBuffered: Boolean;\r\n    FControlStyle: TControlStyle;\r\n    FMargins: TMargins;\r\n    FCenter: TCenter;\r\n    FOnMouseWheel: TMouseWheelEvent;\r\n    FParentDoubleBuffered: Boolean;\r\n    FParentColor: Boolean;\r\n    FParentFont: Boolean;\r\n    FParentBiDiMode: Boolean;\r\n    FOnTouchMove: TTouchEvent;\r\n    FOnTouchStart: TTouchEvent;\r\n    FOnTouchEnd: TTouchEvent;\r\n    FOnTouchCancel: TTouchEvent;\r\n    FLinkTouchEvents: Boolean;\r\n    FWidthStyle: TSizeStyle;\r\n    FHeightStyle: TSizeStyle;\r\n    FWidthPercent: TPercentSize;\r\n    FHeightPercent: TPercentSize;\r\n    FOrigRect: TRect;\r\n    FOrigParentRect: TRect;\r\n    FIsResizing: boolean;\r\n    FShowFocus: boolean;\r\n    FBorderWidth: integer;\r\n    FOrigTop: integer;\r\n    FOrigLeft: integer;\r\n    FUpdateTopLeft: boolean;\r\n    FEnablePropagation: Boolean;\r\n    FParentShowHint: Boolean;\r\n    FScriptLoaded: Boolean;\r\n    FControlScriptCount: Integer;\r\n    FControlScriptCountLoaded: Integer;\r\n    FRequiredScripts: TStringList;\r\n    FElementFont: TElementFont;\r\n    FElementPosition: TElementPosition;\r\n    FParentElement: TJSHTMLElement;\r\n    FTagObject: TObject;\r\n    FClipChildren: Boolean;\r\n    FTextDirection: TTextDirection;\r\n    FEventStopPropagation: TEventPropagation;\r\n    FParentElementID: string;\r\n    FOnResize: TNotifyEvent;\r\n    FMouseMovePtr: pointer;\r\n    FMouseDownPtr: pointer;\r\n    FMouseUpPtr: pointer;\r\n    FMouseEnterPtr: pointer;\r\n    FMouseLeavePtr: pointer;\r\n    FClickPtr: pointer;\r\n    FDblClickPtr: pointer;\r\n    FKeyDownPtr: pointer;\r\n    FKeyUpPtr: pointer;\r\n    FKeyPressPtr: pointer;\r\n    FInputPtr: pointer;\r\n    FTouchStartPtr: pointer;\r\n    FTouchEndPtr: pointer;\r\n    FTouchMovePtr: pointer;\r\n    FTouchCancelPtr: pointer;\r\n    FContextMenuPtr: pointer;\r\n    FExitPtr: pointer;\r\n    FEnterPtr: pointer;\r\n    FWheelPtr: pointer;\r\n    FLayerMouseEnterPtr: pointer;\r\n    FLayerMouseLeavePtr: pointer;\r\n    FScriptLoadedPtr: pointer;\r\n    FDragStartPtr: pointer;\r\n    FDragOverPtr: pointer;\r\n    FDragEnterPtr: pointer;\r\n    FDragLeavePtr: pointer;\r\n    FDragEndPtr: pointer;\r\n    FDragDropPtr: pointer;\r\n    FChildOrder: integer;\r\n    FAllowTouch: boolean;\r\n    FCtl3D: boolean;\r\n    FParentCtl3D: boolean;\r\n    FWheelAccumulator: integer;\r\n    FWheelMousePos: TPoint;\r\n    FBiDiMode: TBiDiMode;\r\n    FOnMouseWheelDown: TMouseWheelUpDownEvent;\r\n    FOnMouseWheelUp: TMouseWheelUpDownEvent;\r\n    FNoUserSelect: boolean;\r\n    FEventsBound: boolean;\r\n    FDragMode: TDragMode;\r\n    FToolTip: JSValue;\r\n    FDesignTime: boolean;\r\n    function GetControlsCount: Integer;\r\n    function GetControls(Index: Integer): TControl;\r\n    procedure SetVisible(AValue: Boolean);\r\n    procedure SetHint(AValue: string);\r\n    procedure SetShowHint(AValue: Boolean);\r\n    procedure SetTabOrder(AValue: Integer);\r\n    procedure SetTabStop(AValue: Boolean);\r\n    procedure SetAlign(const Value: TAlign);\r\n    procedure SetAlignWithMargins(const Value: boolean);\r\n    function GetBoundsRect: TRect;\r\n    procedure SetBoundsRect(const Value: TRect);\r\n    procedure SetID(const Value: string);\r\n    procedure SetMargins(const Value: TMargins);\r\n    procedure SetAnchors(const Value: TAnchors);\r\n    function GetElementEvent: TJSEvent;\r\n    function GetClientOrigin: TPoint;\r\n    procedure SetHeightStyle(const Value: TSizeStyle);\r\n    procedure SetWidthStyle(const Value: TSizeStyle);\r\n    procedure SetHeightPercent(const Value: TPercentSize);\r\n    procedure SetWidthPercent(const Value: TPercentSize);\r\n    procedure SetShowFocus(const Value: boolean);\r\n    procedure SetBorderWidth(const Value: integer); virtual;\r\n    function GetIsLinked: boolean;\r\n    procedure SetScriptLoaded(const Value: boolean);\r\n    procedure SetRequiredScripts(const Value: TStringList);\r\n    procedure SetElementFont(const Value: TElementFont);\r\n    procedure SetElementPosition(const Value: TElementPosition);\r\n    procedure SetParentElement(const Value: TJSHTMLElement);\r\n    procedure SetClipChildren(const Value: Boolean);\r\n    function GetClientHeight: Integer; virtual;\r\n    function GetClientWidth: Integer; virtual;\r\n    procedure SetClientHeight(const Value: Integer); virtual;\r\n    procedure SetClientWidth(const Value: Integer); virtual;\r\n    procedure SetParentElementID(const Value: string);\r\n    procedure SetChildOrderEx(const Value: integer);\r\n    function GetRole: string;\r\n    procedure SetRole(const Value: string);\r\n    function GetContainer: TJSElement; virtual;\r\n    function GetChildContainer: TJSElement; virtual;\r\n    procedure SetParentFont(const Value: boolean);\r\n    procedure SetParentColor(const Value: boolean);\r\n    procedure SetDragMode(const Value: TDragMode);\r\n  protected\r\n    FColor: TColor;\r\n    procedure SetWidth(AValue: Integer); virtual;\r\n    procedure SetHeight(AValue: Integer); virtual;\r\n    procedure SetWidthInt(AValue: Integer); virtual;\r\n    procedure SetHeightInt(AValue: Integer); virtual;\r\n    procedure SetEnabled(Value: Boolean); virtual;\r\n    procedure RecreateCanvas; virtual;\r\n    procedure VisibleChanging; virtual;\r\n    procedure VisibleChanged; virtual;\r\n    procedure ColorChanging; virtual;\r\n    procedure IncUpdateCount;\r\n    procedure DecUpdateCount;\r\n    procedure FocusedControlEntered;\r\n    procedure FocusedControlExited;\r\n    function EnterChildren(AObject: IControl): Boolean; virtual;\r\n    function ExitChildren(AObject: IControl): Boolean; virtual;\r\n    function GetWidth: Integer; virtual;\r\n    function GetHeight: Integer; virtual;\r\n    function GetOuterWidth: integer; virtual;\r\n    function GetOuterHeight: integer; virtual;\r\n    function GetDesignWidth: integer; virtual;\r\n    function GetDesignHeight: integer; virtual;\r\n    function GetDesignLeft: integer; virtual;\r\n    function GetDesignTop: integer; virtual;\r\n    function GetLeft: Integer; override;\r\n    function GetTop: Integer; override;\r\n    function HandleAllocated: Boolean; virtual;\r\n    function CreateElement: TJSElement; virtual;\r\n    procedure CreateChildElements(AContainer: TJSElement); virtual;\r\n    function ContainerElement: TJSElement; virtual;\r\n    function IsStructuralElement: boolean; virtual;\r\n    function IsEnabled: boolean; virtual;\r\n    function GetNewName: string; virtual;\r\n    function IsInputControl: boolean; virtual;\r\n    function UseCSSFont: boolean; virtual;\r\n    function UseCSSFontColor: boolean; virtual;\r\n    procedure RecreateElement; virtual;\r\n    procedure BindElement; virtual;\r\n    procedure CreateInitialize; virtual;\r\n    procedure DestroyControls; virtual;\r\n    procedure ClearControls; virtual;\r\n    function GetElementStyle: TJSCSSStyleDeclaration; virtual;\r\n    procedure InitCSSLibrary(ALibrary: TCSSLibrary); virtual;\r\n    procedure SetControlCursor(const Value: TCursor); virtual;\r\n    procedure SetBiDiMode(const Value: TBiDiMode); virtual;\r\n    function GetMouseEventButton(Event: TJSMouseEvent): TMouseButton; virtual;\r\n    function GetMouseEventShiftState(Event: TJSMouseEvent): TShiftState; virtual;\r\n    function GetKeyBoardEventShiftState(Event: TJSKeyBoardEvent): TShiftState; virtual;\r\n    function GetMouseWheelEventShiftState(Event: TJSWheelEvent): TShiftState; virtual;\r\n    function GetTouchEventShiftState(Event: TJSTouchEvent): TShiftState; virtual;\r\n    function HandleDoClick(Event: TJSMouseEvent): Boolean; virtual;\r\n    function HandleDoWheel(Event: TJSWheelEvent): Boolean; virtual;\r\n    function HandleDoDblClick(Event: TJSMouseEvent): Boolean; virtual;\r\n    function HandleDoMouseDown(Event: TJSMouseEvent): Boolean; virtual;\r\n    function HandleDoMouseUp(Event: TJSMouseEvent): Boolean; virtual;\r\n    function HandleDoMouseMove(Event: TJSMouseEvent): Boolean; virtual;\r\n    function HandleDoMouseLeave(Event: TJSMouseEvent): Boolean; virtual;\r\n    function HandleDoContextMenu(Event: TJSMouseEvent): Boolean; virtual;\r\n    function LayerHandleDoMouseEnter(Event: TJSMouseEvent): Boolean; virtual;\r\n    function LayerHandleDoMouseLeave(Event: TJSMouseEvent): Boolean; virtual;\r\n    function HandleDoMouseEnter(Event: TJSMouseEvent): Boolean; virtual;\r\n    function HandleDoKeyDown(Event: TJSKeyBoardEvent): Boolean; virtual;\r\n    function HandleDoKeyUp(Event: TJSKeyBoardEvent): Boolean; virtual;\r\n    function HandleDoKeyPress(Event: TJSKeyBoardEvent): Boolean; virtual;\r\n    function HandleDoInput(Event: TJSInputEvent): Boolean; virtual;\r\n    function HandleDoExit(Event: TEventListenerEvent): Boolean; virtual;\r\n    function HandleDoEnter(Event: TJSFocusEvent): Boolean; virtual;\r\n    function HandleDoTouchStart(Event: TJSTouchEvent): Boolean; virtual;\r\n    function HandleDoTouchMove(Event: TJSTouchEvent): Boolean; virtual;\r\n    function HandleDoTouchEnd(Event: TJSTouchEvent): Boolean; virtual;\r\n    function HandleDoTouchCancel(Event: TJSTouchEvent): Boolean; virtual;\r\n    function HandleDoDragStart(Event: TJSDragEvent): Boolean; virtual;\r\n    function HandleDoDragOver(Event: TJSDragEvent): Boolean; virtual;\r\n    function HandleDoDragEnter(Event: TJSDragEvent): Boolean; virtual;\r\n    function HandledoDragLeave(Event: TJSDragEvent): Boolean; virtual;\r\n    function HandleDoDragEnd(Event: TJSDragEvent): Boolean; virtual;\r\n    function HandleDoDragDrop(Event: TJSDragEvent): Boolean; virtual;\r\n    procedure HandleKeyPreview(Key: Word); virtual;\r\n    procedure HandleFontChanged(Sender: TObject); virtual;\r\n    procedure ParentFontChanged;\r\n    procedure DoExit; virtual;\r\n    procedure DoEnter; virtual;\r\n    procedure Click; virtual;\r\n    procedure UpdateElement; virtual;\r\n    procedure UpdateElementSize; virtual;\r\n    procedure UpdateElementVisual; virtual;\r\n    procedure UpdateElementData; virtual;\r\n    procedure UpdateParent; virtual;\r\n    procedure UpdateControlSize(AWidth, AHeight: integer); virtual;\r\n    procedure InternalUpdateParent; virtual;\r\n    procedure UpdateChildren(AControl: TControl); virtual;\r\n    procedure PersistinHTML; virtual;\r\n    procedure LoadFromHTML(const HTML: string); virtual;\r\n    procedure InitFromHTML; virtual;\r\n    function SaveState: string; virtual;\r\n    procedure LoadState(AState: string); virtual;\r\n    procedure DisableTab; virtual;\r\n    procedure EnableTab; virtual;\r\n\r\n    procedure SetElementClassName(AValue: string); virtual;\r\n    procedure SetColor(AValue: TColor); virtual;\r\n    procedure SetFont(AValue: TFont); virtual;\r\n    procedure SetParent(AValue: TControl); virtual;\r\n    procedure RegisterParent(AValue: TControl); virtual;\r\n    procedure UnRegisterParent(AValue: TControl); virtual;\r\n    function CanAcceptChild(AValue: TControl): TControl; virtual;\r\n\r\n    procedure SetLeft(AValue: Integer); override;\r\n    procedure SetTop(AValue: Integer); override;\r\n\r\n    procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X,Y: Integer); virtual;\r\n    procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X,Y: Integer); virtual;\r\n    procedure MouseMove(Shift: TShiftState; X,Y: Integer); virtual;\r\n\r\n    procedure TouchStart(X,Y: Integer); virtual;\r\n    procedure TouchMove(X,Y: Integer); virtual;\r\n    procedure TouchEnd(X,Y: Integer); virtual;\r\n    procedure TouchCancel(X,Y: Integer); virtual;\r\n\r\n    procedure DoMouseEnter; virtual;\r\n    procedure DoMouseLeave; virtual;\r\n    procedure MouseWheel(Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean); virtual;\r\n    function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; virtual;\r\n    function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; virtual;\r\n    procedure DblClick; virtual;\r\n    procedure KeyDown(var Key: Word; Shift: TShiftState); virtual;\r\n    procedure KeyPreview(var Key: Word; Shift: TShiftState); virtual;\r\n    procedure KeyPress(var Key: Char); virtual;\r\n    procedure KeyUp(var Key: Word; Shift: TShiftState); virtual;\r\n    procedure SetFocus; virtual;\r\n    procedure DoMarginsChanged(Sender: TObject); virtual;\r\n    procedure DoCenterChanged(Sender: TObject); virtual;\r\n    procedure DoRealign; virtual;\r\n    procedure DoBoundsChange; virtual;\r\n    procedure DoEndDrag(Target: TObject; X, Y: Integer); virtual;\r\n    procedure DoStartDrag(var DragObject: TDragObject); virtual;\r\n    procedure DragOver(Source: TObject; X, Y: Integer; State: TDragState;\r\n      var Accept: Boolean); virtual;\r\n    function IsFocused: Boolean; virtual;\r\n    function Focused: Boolean; virtual;\r\n    function GetID: string; virtual;\r\n    function GetElementHandle: TJSHTMLElement; virtual;\r\n    function GetElementBindHandle: TJSEventTarget; virtual;\r\n    function GetElement: TJSElement;\r\n    function GetKeyCode(AValue: string; IgnoreCase: boolean = true): Integer;\r\n    function GetKeyChar(AValue: string): Char;\r\n    function IsKeyCharacter(AValue: string): Boolean;\r\n    function GetClientRect: TRect; virtual;\r\n    property ChildContainer: TJSElement read GetChildContainer;\r\n    property ElementBindHandle: TJSEventTarget read GetElementBindHandle;\r\n    property Element: TJSElement read GetElement;\r\n\r\n    procedure CreateControl; virtual;\r\n    procedure ClearMethodPointers; virtual;\r\n    procedure GetMethodPointers; virtual;\r\n    function EventsBound: boolean;\r\n    procedure BindEvents; virtual;\r\n    procedure UnbindEvents; virtual;\r\n    procedure UpdatePadding(var ARect: TRect); virtual;\r\n    procedure AlignControls(AControl: TControl; var ARect: TRect); virtual;\r\n    procedure AlignControl(AControl: TControl); virtual;\r\n    procedure InitAnchoring; virtual;\r\n    function AnchoringInitialized: boolean;\r\n    procedure InitScript; virtual;\r\n    procedure Realign; virtual;\r\n    procedure Loaded; override;\r\n    procedure InternalResize; virtual;\r\n    procedure FontChanged; virtual;\r\n    procedure DisposeOf;\r\n    procedure ClearChildElements; virtual;\r\n\r\n    property Color: TColor read FColor write SetColor;\r\n    property ControlCreated: boolean read FControlCreated;\r\n    property Font: TFont read FFont write SetFont;\r\n    property ClientOrigin: TPoint read GetClientOrigin;\r\n    property OrigRect: TRect read FOrigRect;\r\n    property DragMode: TDragMode read FDragMode write SetDragMode default dmManual;\r\n\r\n    property OnClick: TNotifyEvent read FOnClick write FOnClick;\r\n    property OnResize: TNotifyEvent read FOnResize write FOnResize;\r\n    property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;\r\n    property ControlStyle: TControlStyle read FControlStyle write FControlStyle;\r\n    procedure HookElement;\r\n    procedure SetElementColor(AElement: TJSHTMLElement; AColor: TColor);\r\n    class procedure MoveElements(FromElement,ToElement: TJSElement); virtual;\r\n    procedure MoveElementsAndFree(FromElement,ToElement: TJSElement); virtual;\r\n    procedure CreateWithID(AID: string); virtual;\r\n    procedure AddInstanceStyle(const css: string); virtual; overload;\r\n    class procedure AddInstanceStyle(const id: string; const css: string); virtual; overload;\r\n    procedure AddControlStyle(const css: string); virtual;\r\n    procedure AddControlLink(const linkid, link: string); virtual;\r\n    procedure AddControlScriptLink(const link: string); virtual;\r\n    procedure AddControlScriptSource(const source: string); virtual;\r\n    function AddRequiredScripts: boolean;\r\n    procedure AddRequiredScript(const link: string); virtual;\r\n    procedure ResetAnchoring; virtual;\r\n    procedure UpdateSize; virtual;\r\n    procedure UpdateAnchoring; virtual;\r\n    procedure UpdateChildAnchoring; virtual;\r\n    procedure SetElementPointer(AElement: TJSHTMLElement; ACursor: TCursor);\r\n    function GetWebClassName: string; virtual;\r\n    function GetCSSManager: TCSSCodeManager; virtual;\r\n    function IsUpdating: boolean;\r\n    function CanShowFocus: boolean; virtual;\r\n    procedure RequiredScriptLoaded(Event: TJSEvent); virtual;\r\n    procedure InjectCSS; virtual;\r\n    procedure StartCapture; virtual;\r\n    property LinkTouchEvents: Boolean read FLinkTouchEvents write FLinkTouchEvents;\r\n    property OnTouchStart: TTouchEvent read FOnTouchStart write FOnTouchStart;\r\n    property OnTouchMove: TTouchEvent read FOnTouchMove write FOnTouchMove;\r\n    property OnTouchEnd: TTouchEvent read FOnTouchEnd write FOnTouchEnd;\r\n    property OnTouchCancel: TTouchEvent read FOnTouchCancel write FOnTouchCancel;\r\n    property ShowFocus: boolean read FShowFocus write SetShowFocus default false;\r\n    property BorderWidth: integer read FBorderWidth write SetBorderWidth default 0;\r\n    property ControlScriptCount: integer read FControlScriptCount write FControlScriptCount;\r\n    property ControlScriptCountLoaded: integer read FControlScriptCountLoaded write FControlScriptCountLoaded;\r\n    property RequiredScripts: TStringList read FRequiredScripts write SetRequiredScripts;\r\n    property Role: string read GetRole write SetRole;\r\n    property TextDirection: TTextDirection read FTextDirection write FTextDirection default tdDefault;\r\n    function RequiredBaseURL: string; virtual;\r\n    function GetStyle(css: string): string;\r\n    procedure SetBoundsInt(X, Y, AWidth, AHeight: Integer); virtual;\r\n    procedure MoveFirst(AControl: TControl); virtual;\r\n    procedure MoveLast(AControl: TControl); virtual;\r\n    property ParentElementHandle: TJSHTMLElement read FParentElement write FParentElement;\r\n    property NoUserSelect: boolean read FNoUserSelect write FNoUserSelect;\r\n    procedure EnableDrag; virtual;\r\n    procedure DisableDrag; virtual;\r\n    property OnDragOver: TDragOverEvent read FOnDragOver write FOnDragOver;\r\n    property OnDragDrop: TDragDropEvent read FOnDragDrop write FOnDragDrop;\r\n    property OnStartDrag: TStartDragEvent read FOnStartDrag write FOnStartDrag;\r\n    property OnEndDrag: TEndDragEvent read FOnEndDrag write FOnEndDrag;\r\n  public\r\n    constructor Create(ID: string); virtual; overload;\r\n    constructor Create(AOwner: TComponent); overload; override;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure DragDrop(Source: TObject; X, Y: Integer); virtual;\r\n    procedure Resize; virtual;\r\n    procedure Capture;\r\n    procedure ApplyName;\r\n    procedure ReleaseCapture;\r\n    procedure BringToFront;\r\n    procedure SendToBack;\r\n    procedure Show;\r\n    procedure Hide;\r\n    procedure PreventDefault;\r\n    procedure StopPropagation;\r\n    procedure BeginDrag;\r\n    procedure BeginUpdate; override;\r\n    procedure EndUpdate; override;\r\n    property Container: TJSElement read GetContainer write FContainer;\r\n    property DesignTime: boolean read FDesignTime;\r\n    procedure Invalidate; virtual;\r\n    procedure SetParentComponent(Value: TComponent); override;\r\n    procedure SetBounds(X, Y, AWidth, AHeight: Integer); virtual;\r\n    procedure XYToClient(X,Y: single; var AClientX, AClientY: single); virtual;\r\n    procedure ClientToXY(AClientX, AClientY: single; var X,Y: single); virtual;\r\n    procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;\r\n    function Captured: Boolean; virtual;\r\n    function MakeScreenshot: TBitmap; virtual;\r\n    function ClientToScreen(const Point: TPoint): TPoint; virtual;\r\n    function ScreenToClient(const Point: TPoint): TPoint; virtual;\r\n    function CanFocus: Boolean; virtual;\r\n    function HasHorzScrollBar: Boolean; virtual;\r\n    function HasVertScrollBar: Boolean; virtual;\r\n    property BiDiMode: TBiDiMode read FBiDiMode write SetBiDiMode default bdLeftToRight;\r\n    property Ctl3D: boolean read FCtl3D write FCtl3D;\r\n    property ParentCtl3D: boolean read FParentCtl3D write FParentCtl3D;\r\n    property AllowTouch: boolean read FAllowTouch write FAllowTouch;\r\n    property EventStopPropagation: TEventPropagation read FEventStopPropagation write FEventStopPropagation;\r\n    property Center: TCenter read FCenter;\r\n    property ChildOrder: integer read FChildOrder write SetChildOrderEx default 0;\r\n    property Controls[Index: Integer]: TControl read GetControls;\r\n    property ControlCount: Integer read GetControlsCount;\r\n    property Parent: TControl read FParent write SetParent;\r\n    property ParentElement: TJSHTMLElement read FParentElement write SetParentElement;\r\n    property ParentElementID: string read FParentElementID write  SetParentElementID;\r\n    property BoundsRect: TRect read GetBoundsRect write SetBoundsRect;\r\n    property DoubleBuffered: Boolean read FDoubleBuffered write FDoubleBuffered default false;\r\n    property ParentDoubleBuffered: Boolean read FParentDoubleBuffered write FParentDoubleBuffered default true;\r\n    property ParentColor: boolean read FParentColor write SetParentColor default false;\r\n    property ParentFont: boolean read FParentFont write SetParentFont default true;\r\n    property ParentBiDiMode: boolean read FParentBiDiMode write FParentBiDiMode default true;\r\n    property Align: TAlign read FAlign write SetAlign default alNone;\r\n    property AlignWithMargins: boolean read FAlignWithMargins write SetAlignWithMargins default false;\r\n    property ElementEvent: TJSEvent read GetElementEvent write FElementEvent;\r\n    property ElementHandle: TJSHTMLElement read GetElementHandle;\r\n    property ElementClassName: TElementClassName read FElementClassName write SetElementClassName;\r\n    property ElementFont: TElementFont read FElementFont write SetElementFont default efProperty;\r\n    property ElementPosition: TElementPosition read FElementPosition write SetElementPosition default epAbsolute;\r\n    property ElementID: TElementID read GetID write SetID;\r\n    property Margins: TMargins read FMargins write SetMargins;\r\n    property ClientRect: TRect read GetClientRect;\r\n    property EnablePropagation: Boolean read FEnablePropagation write FEnablePropagation default False;\r\n    property ScriptLoaded: boolean read FScriptLoaded write SetScriptLoaded;\r\n    property ClipChildren: Boolean read FClipChildren write SetClipChildren default True;\r\n\r\n    property Anchors: TAnchors read FAnchors write SetAnchors default [akLeft, akTop];\r\n    property Cursor: TCursor read FCursor write SetControlCursor default crDefault;\r\n    property Enabled: Boolean read FEnabled write SetEnabled default true;\r\n    property HeightStyle: TSizeStyle read FHeightStyle write SetHeightStyle default ssAbsolute;\r\n    property Height: Integer read GetHeight write SetHeight;\r\n    property HeightPercent: TPercentSize read FHeightPercent write SetHeightPercent default 100;\r\n    property Hint: string read FHint write SetHint;\r\n    property IsLinked: boolean read GetIsLinked;\r\n    property ShowHint: Boolean read FShowHint write SetShowHint default false;\r\n    property ParentShowHint: Boolean read FParentShowHint write FParentShowHint;\r\n    property TabOrder: Integer read FTabOrder write SetTabOrder;\r\n    property TabStop: Boolean read FTabStop write SetTabStop default true;\r\n    property Tag: Integer read FTag write FTag default 0;\r\n    property TagObject: TObject read FTagObject write FTagObject;\r\n    property Visible: Boolean read FVisible write SetVisible default true;\r\n    property WidthStyle: TSizeStyle read FWidthStyle write SetWidthStyle default ssAbsolute;\r\n    property ClientHeight: Integer read GetClientHeight write SetClientHeight;\r\n    property ClientWidth: Integer read GetClientWidth write SetClientWidth;\r\n    property Width: Integer read GetWidth write SetWidth;\r\n    property WidthPercent: TPercentSize read FWidthPercent write SetWidthPercent default 100;\r\n\r\n    property OnMouseWheel: TMouseWheelEvent read FOnMouseWheel write FOnMouseWheel;\r\n    property OnMouseWheelDown: TMouseWheelUpDownEvent read FOnMouseWheelDown write FOnMouseWheelDown;\r\n    property OnMouseWheelUp: TMouseWheelUpDownEvent read FOnMouseWheelUp write FOnMouseWheelUp;\r\n\r\n    property OnMouseDown: TMouseEvent read FOnMouseDown write FOnMouseDown;\r\n    property OnMouseUp: TMouseEvent read FOnMouseUp write FOnMouseUp;\r\n    property OnMouseMove: TMouseMoveEvent read FOnMouseMove write FOnMouseMove;\r\n    property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;\r\n    property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;\r\n    //Note: On Android the OnKeyUp and OnKeyDown events do not return the correct KeyCode.\r\n    //This is a known issue:\r\n    //https://bugs.chromium.org/p/chromium/issues/detail?id=118639\r\n    //https://stackoverflow.com/questions/36753548/keycode-on-android-is-always-229\r\n    //Workaround: Use the Char parameter of the OnKeyPress event instead\r\n    property OnKeyUp: TKeyEvent read FOnKeyUp write FOnKeyUp;\r\n    property OnKeyDown: TKeyEvent read FOnKeyDown write FOnKeyDown;\r\n    //\r\n    //Note: On Android the OnKeyPress event is not triggered.\r\n    //The OnInput event is used instead to trigger the OnKeyPress event.\r\n    property OnKeyPress: TKeyPressEvent read FOnKeyPress write FOnKeyPress;\r\n    //\r\n    property OnEnter: TNotifyEvent read FOnEnter write FOnEnter;\r\n    property OnExit: TNotifyEvent read FOnExit write FOnExit;\r\n  published\r\n//    property DesignSize: TPoint read FDesignSize write FDesignSize stored false;\r\n//    property ExplicitLeft: integer read FExplicitLeft write FExplicitLeft stored false;\r\n//    property ExplicitTop: integer read FExplicitTop write FExplicitTop stored false;\r\n//    property ExplicitWidth: integer read FExplicitWidth write FExplicitWidth stored false;\r\n//    property ExplicitHeight: integer read FExplicitHeight write FExplicitHeight stored false;\r\n  end;\r\n\r\n  TScrollBarKind = (sbHorizontal, sbVertical);\r\n\r\n  TControlScrollBar = class(TPersistent)\r\n  private\r\n    FKind: TScrollBarKind;\r\n    FControl: TControl;\r\n  public\r\n    constructor Create(AControl: TControl; AKind: TScrollBarKind);\r\n    property Kind: TScrollBarKind read FKind;\r\n    function IsScrollBarVisible: boolean;\r\n    function ScrollPos: integer;\r\n    function Range: integer;\r\n  end;\r\n\r\n  TWinControlClass = class of TWinControl;\r\n  TWinControl = class(TControl)\r\n  published\r\n    property Cursor;\r\n    property ElementClassName;\r\n    property Enabled;\r\n    property Height;\r\n    property Hint;\r\n    property Left;\r\n    property ShowHint;\r\n    property Tag;\r\n    property Top;\r\n    property Visible;\r\n    property Width;\r\n\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseEnter;\r\n    property OnMouseLeave;\r\n    property OnKeyUp;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnEnter;\r\n    property OnExit;\r\n  end;\r\n\r\n  TCustomControlClass = class of TCustomControl;\r\n  TCustomControl = class(TWinControl)\r\n  private\r\n    FCaption: string;\r\n    FPixelRatio: Single;\r\n    FPainting: boolean;\r\n    FCanvas: TCanvas;\r\n    FElementCanvas: TJSHTMLCanvasElement;\r\n    FBorderStyle: TBorderStyle;\r\n    FBorderColor: TColor;\r\n    FCustomBorder: boolean;\r\n    FOnScreenShot: TScreenshotEvent;\r\n    FBevelOuter: TBevelCut;\r\n    FBevelWidth: Integer;\r\n    FBevelCut: TBevelCut;\r\n    FBevelEdges: TBevelEdges;\r\n    FBevelKind: TBevelKind;\r\n    function GetCanvas: TCanvas;\r\n  protected\r\n    procedure RenderDesigning(ACaption: string; AElement: TJSElement; AControl: TCustomControl; ADisplay: Boolean; AImage: string = '');\r\n    function GetPixelRatio: Single;\r\n    function GetContext: TJSCanvasRenderingContext2D; virtual;\r\n    procedure RecreateCanvas; override;\r\n    procedure SetBorderStyle(const AValue: TBorderStyle); virtual;\r\n    procedure SetBorderColor(const AValue: TColor); virtual;\r\n    procedure SetName(const NewName: TComponentName); override;\r\n    procedure SetCaption(const AValue: string); virtual;\r\n    procedure CreateControl; override;\r\n    procedure Loaded; override;\r\n    procedure UpdateElementVisual; override;\r\n    function CreateElement: TJSElement; override;\r\n    function GetCanvasHeightOffset: Integer; virtual;\r\n    function GetCanvasWidthOffset: Integer; virtual;\r\n    property BorderStyle: TBorderStyle read FBorderStyle write SetBorderStyle default bsSingle;\r\n    property BorderColor: TColor read FBorderColor write SetBorderColor default clSilver;\r\n    procedure BindElement; override;\r\n    procedure BindEvents; override;\r\n    procedure HandleScreenShot(Sender: TObject); virtual;\r\n    procedure Paint; virtual;\r\n    property CustomBorder: boolean read FCustomBorder write FCustomBorder;\r\n    property Caption: string read FCaption write SetCaption;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    function MakeScreenShot: TBitmap; override;\r\n    procedure Resize; override;\r\n    procedure Invalidate; override;\r\n    procedure SetFocus; override;\r\n    function Focused: boolean; override;\r\n    procedure EndUpdate; override;\r\n    property Canvas: TCanvas read GetCanvas;\r\n    property GraphicsContext:  TJSCanvasRenderingContext2D read GetContext;\r\n    property ElementCanvas: TJSHTMLCanvasElement read FElementCanvas;\r\n    property OnScreenshot: TScreenshotEvent read FOnScreenshot write FOnScreenshot;\r\n    //dummy properties for FNC\r\n    property BevelEdges: TBevelEdges read FBevelEdges write FBevelEdges;\r\n    property BevelInner: TBevelCut read FBevelCut write FBevelCut;\r\n    property BevelKind: TBevelKind read FBevelKind write FBevelKind;\r\n    property BevelOuter: TBevelCut read FBevelOuter write FBevelOuter;\r\n    property BevelWidth: Integer read FBevelWidth write FBevelWidth;\r\n  end;\r\n\r\n  TjQueryCustomControl = class(TWinControl)\r\n  private\r\n    FIsInitialized: boolean;\r\n    procedure InitJQueryOnce;\r\n  protected\r\n    function CreateElement: TJSElement; override;\r\n    procedure Loaded; override;\r\n    procedure SetParent(AValue: TControl); override;\r\n    function GetJQID: string;\r\n    procedure InitJQuery; virtual;\r\n  public\r\n    procedure CreateInitialize; override;\r\n  published\r\n    property ElementPosition;\r\n  end;\r\n\r\n  TGraphicControl = class(TCustomControl);\r\n\r\n  TScrollingGraphicControl = class(TCustomControl)\r\n  protected\r\n    function CreateElement: TJSElement; override;\r\n  public\r\n    procedure UpdateElement; override;\r\n  end;\r\n\r\n  TCustomHTMLDiv = class(TCustomControl)\r\n  protected\r\n    function CreateElement: TJSElement; override;\r\n  end;\r\n\r\n  TControlManager = class(TComponent)\r\n  private\r\n    FInstanceCount: integer;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    function GetInstanceNumber: integer;\r\n    procedure Reset;\r\n  end;\r\n\r\n  TCSSCodeFragment = class(TCollectionItem)\r\n  private\r\n    FControlClassname: string;\r\n    FCSS: TStringList;\r\n    procedure SetCSS(const Value: TStringList);\r\n  public\r\n    constructor Create(Collection: TCollection); override;\r\n    destructor Destroy; override;\r\n  published\r\n    property ControlClassname: string read FControlClassname write FControlClassname;\r\n    property CSS: TStringList read FCSS write SetCSS;\r\n  end;\r\n\r\n  TCSSCodeFragments = class(TOwnedCollection)\r\n  private\r\n    function GetItemEx(Index: integer): TCSSCodeFragment;\r\n    procedure SetItemEx(Index: integer; const Value: TCSSCodeFragment);\r\n  public\r\n    constructor Create(AOwner: TComponent); reintroduce;\r\n    function Add: TCSSCodeFragment; reintroduce;\r\n    function Insert(Index: integer): TCSSCodeFragment; reintroduce;\r\n    property Items[Index: integer]: TCSSCodeFragment read GetItemEx write SetItemEx;\r\n  end;\r\n\r\n  TCSSCodeManager = class(TComponent)\r\n  private\r\n    FCSSFragments: TCSSCodeFragments;\r\n    procedure SetCSSFragments(const Value: TCSSCodeFragments);\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    function GetClassFragment(AClassname: string): TCSSCodeFragment;\r\n    function GetClassCSS(AClassname: string): string;\r\n  published\r\n    property CSSFragments: TCSSCodeFragments read FCSSFragments write SetCSSFragments;\r\n  end;\r\n\r\n  ITMSFNCDataBinderBase = interface\r\n    ['{778B63C9-34E3-4B65-A6B8-85E3EB1D17C3}']\r\n    procedure DataBeginUpdate;\r\n    procedure DataEndUpdate;\r\n  end;\r\n\r\n  ITMSFNCDataBinderGrid = interface(ITMSFNCDataBinderBase)\r\n    ['{D23BDEAA-49B1-451A-9401-0D0D11A9957A}']\r\n    procedure SetDataColumnCount(AValue: Integer);\r\n    procedure SetDataRowCount(AValue: Integer);\r\n    procedure ClearData;\r\n    function GetDataRowCount: Integer;\r\n    procedure SetDataValue(AColumn, ARow: Integer; AValue: string);\r\n    procedure SetDataHeader(AColumn: Integer; AValue: string);\r\n    procedure DataInsertRow(AInsertPosition: Integer);\r\n  end;\r\n\r\n  TStringListHelper = class helper for TStringList\r\n    procedure LoadFromJSONArray(ja: string);\r\n    function LoadFromJSONArrayURL(URL: string): TJSPromise;\r\n  end;\r\n\r\n\r\nfunction FindGlobalComponent(const Name: string): TComponent;\r\nfunction GetMousePos: TPoint;\r\nprocedure GetCursorPos(var pt: TPoint);\r\nfunction FindUniqueName(const Name: string): string;\r\nfunction GetScrollBarHeight: integer;\r\nfunction GetScrollBarWidth: integer;\r\nprocedure SetHTMLElementFont(AElement: TJSHTMLElement; AFont: TFont; UseCSS: boolean);\r\nprocedure SetHTMLElementColor(AElement: TJSHTMLElement; AColor: TColor; UseCSS: boolean);\r\nfunction GetHTMLCursorName(ACursor: TCursor): string;\r\nfunction GetHTMLElementAbsoluteRect(AElement: TJSHTMLElement): TRect;\r\n\r\nfunction CursorToString(ACursor: TCursor): string;\r\nfunction StringToCursor(const S: string): TCursor;\r\nfunction IsAndroid: Boolean;\r\nfunction GetMaterialClass(mg: TMaterialGlyphType): string;\r\nfunction InputTypeString(AInputType: TInputType): string;\r\n\r\nimplementation\r\n\r\nuses\r\n  WEBLib.Dialogs, WEBLib.Forms, Math, TypInfo, WEBLib.WebTools, WEBLib.Utils;\r\n\r\nvar\r\n  ControlManager: TControlManager;\r\n  FMouseX, FMouseY: Integer;\r\n  FCursorX, FCursorY: Integer;\r\n  ScrollBW, ScrollBH: Integer;\r\n  DragObject: TObject;\r\n\r\n\r\nconst\r\n  cStyleBkgColor = 'background-color';\r\n\r\nfunction InputTypeString(AInputType: TInputType): string;\r\nbegin\r\n  case AInputType of\r\n  itText: Result := 'text';\r\n  itEmail: Result := 'email';\r\n  itDate: Result := 'date';\r\n  itDateTime: Result := 'datetime-local';\r\n  itFile: Result := 'file';\r\n  itMonth: Result := 'month';\r\n  itNumber: Result := 'number';\r\n  itPassword: Result := 'password';\r\n  itSearch: Result := 'search';\r\n  itTime: Result := 'time';\r\n  itURL: Result := 'url';\r\n  itWeek: Result := 'week';\r\n  end;\r\nend;\r\n\r\nfunction GetMaterialClass(mg: TMaterialGlyphType): string;\r\nbegin\r\n  Result := 'material-icons';\r\n  case mg of\r\n  mgOutlined: Result := 'material-icons-outlined';\r\n  mgTwoTone: Result := 'material-icons-two-tone';\r\n  mgRound: Result := 'material-icons-round';\r\n  mgSharp: Result := 'material-icons-sharp';\r\n  end;\r\nend;\r\n\r\nprocedure SetHTMLElementFont(AElement: TJSHTMLElement; AFont: TFont; UseCSS: boolean);\r\nvar\r\n  s: string;\r\nbegin\r\n  if UseCSS then\r\n  begin\r\n    AElement.style.removeProperty('font-family');\r\n    AElement.style.removeProperty('font-style');\r\n    AElement.style.removeProperty('font-weight');\r\n    AElement.style.removeProperty('font-size');\r\n    AElement.style.removeProperty('text-decoration');\r\n  end\r\n  else\r\n  begin\r\n    AElement.style.setProperty('font-family', AFont.Name);\r\n\r\n    AElement.style.setProperty('font-style', 'normal');\r\n\r\n    if fsBold in AFont.Style then\r\n      AElement.style.setProperty('font-weight', 'bold')\r\n    else\r\n      AElement.style.setProperty('font-weight', '');\r\n\r\n    if fsItalic in AFont.Style then\r\n       AElement.style.setProperty('font-style', 'italic');\r\n\r\n    s := '';\r\n\r\n    if fsUnderline in AFont.Style then\r\n      s := 'underline';\r\n\r\n    if fsStrikeOut in AFont.Style then\r\n    begin\r\n      if s <> ''  then\r\n         s := s + ' ';\r\n       s:= s + 'line-through';\r\n    end;\r\n\r\n    if (s <> '') then\r\n      AElement.style.setProperty('text-decoration', s)\r\n    else\r\n      AElement.style.removeProperty('text-decoration');\r\n\r\n    if (AFont.Size <> 0) then\r\n      AElement.style.setProperty('font-size', IntToStr(AFont.Size) + 'pt');\r\n  end;\r\nend;\r\n\r\nprocedure SetHTMLElementColor(AElement: TJSHTMLElement; AColor: TColor; UseCSS: boolean);\r\nbegin\r\n  if UseCSS or (AColor = clNone) or (AColor = clWindow) then\r\n    AElement.style.removeProperty(cStyleBkgColor)\r\n  else\r\n    AElement.style.setProperty(cStyleBkgColor, ColorToHTML(AColor));\r\nend;\r\n\r\nfunction GetHTMLCursorName(ACursor: TCursor): string;\r\nbegin\r\n  Result := 'default';\r\n  case ACursor of\r\n    crDefault: Result :='default';\r\n    crArrow: Result :='auto';\r\n    crNone: Result :='none';\r\n    crCross: Result :='crosshair';\r\n    crIBeam: Result :='text';\r\n    crSizeNESW: Result :='nesw-resize';\r\n    crSizeNS: Result :='ns-resize';\r\n    crSizeNWSE: Result :='nwse-resize';\r\n    crSizeWE: Result :='ew-resize';\r\n    crUpArrow: Result :='n-resize';\r\n    crHourGlass: Result :='wait';\r\n    crDrag: Result :='copy';\r\n    crNoDrop: Result :='no-drop';\r\n    crHSplit: Result :='col-resize';\r\n    crVSplit: Result :='row-resize';\r\n    crMultiDrag: Result :='copy';\r\n    crSQLWait: Result :='progress';\r\n    crNo: Result :='not-allowed';\r\n    crAppStart: Result :='progress';\r\n    crHelp: Result :='help';\r\n    crHandPoint: Result :='pointer';\r\n    crSizeAll,crSize: Result :='move';\r\n  end;\r\nend;\r\n\r\nfunction CursorToString(ACursor: TCursor): string;\r\nbegin\r\n  Result := 'crDefault';\r\n  case ACursor of\r\n    crDefault: Result :='crDefault';\r\n    crArrow: Result :='crArrow';\r\n    crNone: Result :='crNone';\r\n    crCross: Result :='crCross';\r\n    crSize: Result := 'ctSize';\r\n    crIBeam: Result :='crIBeam';\r\n    crSizeNESW: Result :='crSizeNESW';\r\n    crSizeNS: Result :='crSizeNS';\r\n    crSizeNWSE: Result :='crSizeNWSE';\r\n    crSizeWE: Result :='crSizeWE';\r\n    crUpArrow: Result :='crUpArrow';\r\n    crHourGlass: Result :='crHourGlass';\r\n    crDrag: Result :='crDrag';\r\n    crNoDrop: Result :='crNoDrop';\r\n    crHSplit: Result :='crHSplit';\r\n    crVSplit: Result :='crVSplit';\r\n    crMultiDrag: Result :='crMultiDrag';\r\n    crSQLWait: Result :='crSQLWait';\r\n    crNo: Result :='crNo';\r\n    crAppStart: Result :='crAppStart';\r\n    crHelp: Result :='crHelp';\r\n    crHandPoint: Result :='crHandpoint';\r\n    crSizeAll: Result :='crSizeAll';\r\n  end;\r\nend;\r\n\r\nfunction StringToCursor(const S: string): TCursor;\r\nvar\r\n  us: string;\r\nbegin\r\n  Result := crDefault;\r\n  us := Uppercase(s);\r\n  if (us = 'CRDEFAULT') then Result := crDefault else\r\n  if (us = 'CRARROW') then Result := crArrow else\r\n  if (us = 'CRNONE') then Result := crNone else\r\n  if (us = 'CRCROSS') then Result := crCross else\r\n  if (us = 'CRSIZE') then Result := crSize else\r\n  if (us = 'CRIBEAM') then Result := crIBeam else\r\n  if (us = 'CRSIZENESW') then Result := crSizeNESW else\r\n  if (us = 'CRSIZENS') then Result := crSizeNS else\r\n  if (us = 'CRSIZENWSE') then Result := crSizeNWSE else\r\n  if (us = 'CRSIZEWE') then Result := crSizeWE else\r\n  if (us = 'CRUPARROW') then Result := crUpArrow else\r\n  if (us = 'CRHOURGLASS') then Result := crHourGlass else\r\n  if (us = 'CRDRAG') then Result := crDrag else\r\n  if (us = 'CRNODROP') then Result := crNoDrop else\r\n  if (us = 'CRHSPLIT') then Result := crHSplit else\r\n  if (us = 'CRVSPLIT') then Result := crVSplit else\r\n  if (us = 'CRMULTIDRAG') then Result := crMultiDrag else\r\n  if (us = 'CRSQLWAIT') then Result := crSQLWait else\r\n  if (us = 'CRNO') then Result := crNo else\r\n  if (us = 'CRAPPSTART') then Result := crAppStart else\r\n  if (us = 'CRHELP') then Result := crHelp else\r\n  if (us = 'CRHANDPOINT') then Result := crHandpoint else\r\n  if (us = 'CRSIZEALL') then Result := crSizeAll;\r\nend;\r\n\r\n\r\nfunction IsAndroid: Boolean;\r\nvar\r\n  sagent: string;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  asm\r\n    sagent = navigator.userAgent;\r\n  end;\r\n  {$ENDIF}\r\n  Result := (pos('Android', sagent) > 0);\r\nend;\r\n\r\nfunction GetMousePos: TPoint;\r\nbegin\r\n  Result := Point(FMouseX, FMouseY);\r\nend;\r\n\r\nprocedure GetCursorPos(var pt: TPoint);\r\nbegin\r\n  pt.x := FCursorX;\r\n  pt.y := FCursorY;\r\nend;\r\n\r\nfunction GetHTMLElementAbsoluteRect(AElement: TJSHTMLElement): TRect;\r\nvar\r\n  s: string;\r\n\r\n  function GetInt(AValue: string): integer;\r\n  var\r\n    e: integer;\r\n  begin\r\n    AValue := StringReplace(AValue, 'px','', [rfReplaceAll]);\r\n    val(AValue, Result, e);\r\n  end;\r\n\r\nbegin\r\n  s := AElement.style.getPropertyValue('left');\r\n  Result.left := GetInt(s);\r\n  s := AElement.style.getPropertyValue('top');\r\n  Result.top := GetInt(s);\r\n  s := AElement.style.getPropertyValue('width');\r\n  Result.right := Result.Left + GetInt(s);\r\n  s := AElement.style.getPropertyValue('height');\r\n  Result.bottom := Result.top + GetInt(s);\r\nend;\r\n\r\nfunction GetScrollBarWidth: integer;\r\nvar\r\n  res: integer;\r\nbegin\r\n  res := ScrollBW;\r\n\r\n  if res = 0 then\r\n  begin\r\n    {$IFDEF PAS2JS}\r\n    asm\r\n      var outer = document.createElement(\"div\");\r\n      outer.style.visibility = \"hidden\";\r\n      outer.style.width = \"100px\";\r\n      outer.style.msOverflowStyle = \"scrollbar\"; // needed for WinJS apps\r\n\r\n      document.body.appendChild(outer);\r\n\r\n      var widthNoScroll = outer.offsetWidth;\r\n      // force scrollbars\r\n      outer.style.overflow = \"scroll\";\r\n\r\n      // add innerdiv\r\n      var inner = document.createElement(\"div\");\r\n      inner.style.width = \"100%\";\r\n      outer.appendChild(inner);\r\n\r\n      var widthWithScroll = inner.offsetWidth;\r\n\r\n      // remove divs\r\n      outer.parentNode.removeChild(outer);\r\n\r\n      res = widthNoScroll - widthWithScroll;\r\n    end;\r\n    {$ENDIF}\r\n    ScrollBW := res;\r\n  end;\r\n\r\n  Result := res;\r\nend;\r\n\r\nfunction GetScrollBarHeight: integer;\r\nvar\r\n  res: integer;\r\nbegin\r\n  res := ScrollBH;\r\n\r\n  if res = 0 then\r\n  begin\r\n    {$IFDEF PAS2JS}\r\n    asm\r\n      var outer = document.createElement(\"div\");\r\n      outer.style.visibility = \"hidden\";\r\n      outer.style.height = \"100px\";\r\n      outer.style.msOverflowStyle = \"scrollbar\"; // needed for WinJS apps\r\n\r\n      document.body.appendChild(outer);\r\n\r\n      var HeightNoScroll = outer.offsetHeight;\r\n      // force scrollbars\r\n      outer.style.overflow = \"scroll\";\r\n\r\n      // add innerdiv\r\n      var inner = document.createElement(\"div\");\r\n      inner.style.height = \"100%\";\r\n      outer.appendChild(inner);\r\n\r\n      var HeightWithScroll = inner.offsetHeight;\r\n\r\n      // remove divs\r\n      outer.parentNode.removeChild(outer);\r\n\r\n      res = HeightNoScroll - HeightWithScroll;\r\n\r\n      //res = 0;\r\n    end;\r\n    {$ENDIF}\r\n    ScrollBH := res;\r\n  end;\r\n\r\n  Result := res;\r\nend;\r\n\r\n\r\nfunction FindGlobalComponent(const Name: string): TComponent;\r\nbegin\r\n  Result := nil;\r\nend;\r\n\r\nfunction FindUniqueName(const Name: string): string;\r\nbegin\r\n  Result := Name + IntToStr(ControlManager.GetInstanceNumber);\r\nend;\r\n\r\n{ TMargins }\r\n\r\nprocedure TMargins.SetLeft(const Value: integer);\r\nbegin\r\n  if (Value <> FLeft) then\r\n  begin\r\n    FLeft := Value;\r\n    DoChange;\r\n  end;\r\nend;\r\n\r\nprocedure TMargins.SetTop(const Value: integer);\r\nbegin\r\n  if (Value <> FTop) then\r\n  begin\r\n    FTop := Value;\r\n    DoChange;\r\n  end;\r\nend;\r\n\r\nprocedure TMargins.SetRight(const Value: integer);\r\nbegin\r\n  if (Value <> FRight) then\r\n  begin\r\n    FRight := Value;\r\n    DoChange;\r\n  end;\r\nend;\r\n\r\nprocedure TMargins.SetBottom(const Value: integer);\r\nbegin\r\n  if (Value <> FBottom) then\r\n  begin\r\n    FBottom := Value;\r\n    DoChange;\r\n  end;\r\nend;\r\n\r\nprocedure TMargins.DoChange; \r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\n{ TControl }\r\n\r\nfunction TControl.MakeScreenshot: TBitmap;\r\nbegin\r\n  Result := nil;\r\nend;\r\n\r\nprocedure TControl.MouseDown(Button: TMouseButton; Shift: TShiftState; X,\r\n  Y: Integer);\r\nbegin\r\n  if not Enabled then\r\n    Exit;\r\n\r\n  if Assigned(OnMouseDown) then\r\n   OnMouseDown(Self, Button, Shift, X, Y);\r\nend;\r\n\r\nprocedure TControl.MouseMove(Shift: TShiftState; X, Y: Integer);\r\nbegin\r\n  if not Enabled then\r\n    Exit;\r\n\r\n  if Assigned(OnMouseMove) then\r\n   OnMouseMove(Self, Shift, X, Y);\r\nend;\r\n\r\nprocedure TControl.MouseUp(Button: TMouseButton; Shift: TShiftState; X,\r\n  Y: Integer);\r\nbegin\r\n  if not Enabled then\r\n    Exit;\r\n\r\n  if Assigned(OnMouseUp) then\r\n   OnMouseUp(Self, Button, Shift, X, Y);\r\nend;\r\n\r\nprocedure TControl.MouseWheel(Shift: TShiftState; WheelDelta: Integer;\r\n  var Handled: Boolean);\r\nvar\r\n  IsNeg: Boolean;\r\nbegin\r\n  if Assigned(OnMouseWheel) then\r\n    OnMouseWheel(Self, Shift, WheelDelta, Point(0, 0), Handled);\r\n\r\n  Inc(FWheelAccumulator, WheelDelta);\r\n  while Abs(FWheelAccumulator) >= WHEEL_DELTA do\r\n  begin\r\n    IsNeg := FWheelAccumulator < 0;\r\n    FWheelAccumulator := Abs(FWheelAccumulator) - WHEEL_DELTA;\r\n    if IsNeg then\r\n    begin\r\n      if FWheelAccumulator <> 0 then FWheelAccumulator := -FWheelAccumulator;\r\n      DoMouseWheelDown(Shift, FWheelMousePos);\r\n    end\r\n    else\r\n      DoMouseWheelUp(Shift, FWheelMousePos);\r\n  end;\r\nend;\r\n\r\nprocedure TControl.IncUpdateCount;\r\nbegin\r\n  Inc(FUpdateCount);\r\nend;\r\n\r\nprocedure TControl.DecUpdateCount;\r\nbegin\r\n  Dec(FUpdateCount);\r\nend;\r\n\r\nclass procedure TControl.MoveElements(FromElement, ToElement: TJSElement);\r\nbegin\r\n  //\r\n  {$IFDEF PAS2JS}\r\n  asm\r\n    if (FromElement && ToElement) {\r\n      while (FromElement.childNodes.length) { ToElement.appendChild(FromElement.firstChild); }\r\n    }\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TControl.MoveElementsAndFree(FromElement, ToElement: TJSElement);\r\nbegin\r\n  //\r\n  {$IFDEF PAS2JS}\r\n  asm\r\n    if (FromElement && ToElement){\r\n      while (FromElement.childNodes.length) { ToElement.appendChild(FromElement.firstChild); }\r\n      FromElement.remove();\r\n    }\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TControl.MoveFirst(AControl: TControl);\r\nvar\r\n  i: integer;\r\n  fnd: boolean;\r\nbegin\r\n  fnd  := false;\r\n  for i := ControlCount - 1 downto 0 do\r\n  begin\r\n    if FControls[i] = AControl then\r\n      fnd := true;\r\n\r\n    if fnd then\r\n    begin\r\n      if (i > 0) then\r\n        FControls[i] := FControls[i - 1]\r\n      else\r\n        FControls[i] := AControl;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.MoveLast(AControl: TControl);\r\nvar\r\n  i: integer;\r\n  fnd: boolean;\r\nbegin\r\n  fnd  := false;\r\n  for i := 0 to ControlCount - 1 do\r\n  begin\r\n    if FControls[i] = AControl then\r\n      fnd := true;\r\n\r\n    if fnd then\r\n    begin\r\n      if (i < ControlCount - 1) then\r\n        FControls[i] := FControls[i + 1]\r\n      else\r\n        FControls[i] := AControl;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.DoMouseLeave;\r\nbegin\r\n  if Assigned(OnMouseLeave) then\r\n    OnMouseLeave(Self);\r\nend;\r\n\r\nfunction TControl.DoMouseWheelDown(Shift: TShiftState;\r\n  MousePos: TPoint): Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(FOnMouseWheelDown) then\r\n    FOnMouseWheelDown(Self, Shift, MousePos, Result);\r\nend;\r\n\r\nfunction TControl.DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(FOnMouseWheelUp) then\r\n    FOnMouseWheelUp(Self, Shift, MousePos, Result);\r\nend;\r\n\r\nprocedure TControl.DoMouseEnter;\r\nbegin\r\n  if Assigned(OnMouseEnter) then\r\n    OnMouseEnter(Self);\r\nend;\r\n\r\nprocedure TControl.UpdatePadding(var ARect: TRect);\r\nbegin\r\nend;\r\n\r\nprocedure TControl.AlignControls(AControl: TControl; var ARect: TRect);\r\nvar\r\n  j: Integer;\r\n\r\n  procedure DoPosition(Control: TControl; AAlign: TAlign);\r\n  var\r\n    dl, dt, dr, db: integer;\r\n  begin\r\n    if not Control.AnchoringInitialized then\r\n      InitAnchoring;\r\n\r\n    Control.FUpdateTopLeft := true;\r\n\r\n    if Control.AlignWithMargins then\r\n    begin\r\n      dl := Control.Margins.Left;\r\n      dt := Control.Margins.Top;\r\n      db := Control.Margins.Bottom;\r\n      dr := Control.Margins.Right;\r\n    end\r\n    else\r\n    begin\r\n      dl := 0;\r\n      dt := 0;\r\n      db := 0;\r\n      dr := 0;\r\n    end;\r\n\r\n    case AAlign of\r\n      alTop:\r\n      begin\r\n        Control.SetBoundsInt(ARect.Left + dl, ARect.Top + dt, ARect.Right - ARect.Left - dl - dr, Control.Height);\r\n        ARect.Top := ARect.Top + Control.Height + dt + db;\r\n      end;\r\n      alBottom:\r\n      begin\r\n        Control.SetBoundsInt(ARect.Left + dl, ARect.Bottom - Control.Height - db - 1, ARect.Right - ARect.Left - dl - dr - 1, Control.Height);\r\n        ARect.Bottom := ARect.Bottom - Control.Height - dt - db;\r\n      end;\r\n      alLeft:\r\n      begin\r\n        Control.SetBoundsInt(ARect.Left + dl, ARect.Top + dt, Control.Width, ARect.Bottom - ARect.Top - dt - db);\r\n        ARect.Left := ARect.Left + Control.Width + dl + dr;\r\n      end;\r\n      alRight:\r\n      begin\r\n        Control.SetBoundsInt(ARect.Right - Control.Width - dr, ARect.Top + dt, Control.Width, ARect.Bottom - ARect.Top - db - dt);\r\n        ARect.Right := ARect.Right - Control.Width - dr - dl;\r\n      end;\r\n      alClient:\r\n      begin\r\n        Control.SetBoundsInt(ARect.Left + dl, ARect.Top + dt, ARect.Right - ARect.Left - dl - dr, ARect.Bottom - ARect.Top - db - dt);\r\n        // just in case there are multiple controls with client alignment\r\n//        ARect.Left := 0;\r\n//        ARect.Top := 0;\r\n//        ARect.Right := 0;\r\n//        ARect.Bottom := 0;\r\n      end;\r\n      alCustom:\r\n      begin\r\n        dl := Control.Left;\r\n        dt := Control.Top;\r\n        dr := 0;\r\n        db := 0;\r\n\r\n        if Control.Center.Vertical or Control.Center.Horizontal then\r\n        begin\r\n          if Control.Center.Horizontal then\r\n          begin\r\n            dl := ARect.Left;\r\n            dr := (ARect.Right - ARect.Left - Control.Width) div 2;\r\n          end;\r\n          if Control.Center.Vertical then\r\n          begin\r\n            dt := ARect.Top;\r\n            db := (ARect.Bottom - ARect.Top - Control.Height) div 2;\r\n          end;\r\n          Control.SetBoundsInt(dl + dr, dt + db, Control.Width, Control.Height);\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    Control.FUpdateTopLeft := false;\r\n  end;\r\n\r\n  procedure DoAlign(AAlign: TAlign);\r\n  var\r\n    i,j,ins: Integer;\r\n    il: TList;\r\n    b: boolean;\r\n  begin\r\n    il := TList.Create;\r\n\r\n    for i := 0 to ControlCount - 1 do\r\n    begin\r\n      b := (Controls[i].Center.Vertical or Controls[i].Center.Horizontal) and (AAlign = alCustom);\r\n\r\n      if b or ((Controls[i].Align = AAlign) and ((Controls[i].Visible) or (csDesigning in ComponentState))) then\r\n      begin\r\n        ins := il.Count;\r\n\r\n        for j := il.Count - 1 downto 0 do\r\n        begin\r\n          case AAlign of\r\n          alTop:\r\n            if Controls[i].FOrigTop < TControl(il.Items[j]).FOrigTop then\r\n              ins := j;\r\n          alLeft:\r\n            if Controls[i].FOrigLeft < TControl(il.Items[j]).FOrigLeft then\r\n              ins := j;\r\n          alRight:\r\n            if Controls[i].FOrigLeft + Controls[i].Width > TControl(il.Items[j]).FOrigLeft + TControl(il.Items[j]).Width then\r\n              ins := j;\r\n          alBottom:\r\n            if Controls[i].FOrigTop + Controls[i].Height > TControl(il.Items[j]).FOrigTop + TControl(il.Items[j]).Height then\r\n              ins := j;\r\n          end;\r\n        end;\r\n        il.Insert(ins, Controls[i]);\r\n      end;\r\n    end;\r\n\r\n    for i := 0 to il.Count - 1 do\r\n    begin\r\n      DoPosition(TControl(il.Items[i]), AAlign);\r\n    end;\r\n\r\n    il.Free;\r\n  end;\r\n\r\nbegin\r\n  UpdatePadding(ARect);\r\n  DoAlign(alTop);\r\n  DoAlign(alBottom);\r\n  DoAlign(alLeft);\r\n  DoAlign(alRight);\r\n  DoAlign(alClient);\r\n  DoAlign(alCustom);\r\n\r\n  for j := 0 to ControlCount - 1 do\r\n  begin\r\n    Controls[j].AlignControl(Controls[j]);\r\n  end;\r\nend;\r\n\r\nprocedure TControl.ApplyName;\r\nvar\r\n  s, prefix: String;\r\n  frm: TCustomForm;\r\nbegin\r\n  s := ClassName;\r\n  Delete(s, 1, 1);\r\n\r\n  prefix := '';\r\n  frm := GetParentForm(Self);\r\n  if Assigned(frm) then\r\n    prefix := frm.ClassName;\r\n\r\n  SetID(prefix+'_'+FindUniqueName(s));\r\nend;\r\n\r\nconstructor TControl.Create(ID: string);\r\nbegin\r\n  FGotFocus := false;\r\n  FTabStop := true;\r\n  FAllowTouch := true;\r\n  CreateWithID(ID);\r\nend;\r\n\r\nprocedure TControl.HookElement;\r\nvar\r\n  el: TJSElement;\r\n  i: integer;\r\nbegin\r\n  el := document.getElementByID(FID);\r\n  Container := el;\r\n  BindElement;\r\n  BindEvents;\r\n\r\n  for i := 0 to ControlCount - 1 do\r\n    Controls[i].HookElement;\r\nend;\r\n\r\nfunction TControl.CanAcceptChild(AValue: TControl): TControl;\r\nbegin\r\n   Result := Self;\r\nend;\r\n\r\nfunction TControl.CanFocus: Boolean;\r\nbegin\r\n  Result := True;\r\nend;\r\n\r\nfunction TControl.CanShowFocus: boolean;\r\nbegin\r\n  Result := FShowFocus;\r\nend;\r\n\r\nprocedure TControl.Capture;\r\nbegin\r\n  FCaptureDown := True;\r\n  window.setTimeout(@StartCapture, 100);\r\nend;\r\n\r\nprocedure TControl.StartCapture;\r\nvar\r\n  eh: TJSHTMLElement;\r\nbegin\r\n  if not FCaptureDown then\r\n    Exit;\r\n\r\n  if Captured then\r\n    ReleaseCapture;\r\n\r\n  FMouseInsideLayer := true;\r\n\r\n  FLayer := document.createElement('SPAN');\r\n  document.body.appendChild(FLayer);\r\n\r\n  eh := TJSHTMLElement(FLayer);\r\n  eh.addEventListener('mouseenter', FLayerMouseEnterPtr);\r\n  eh.addEventListener('mouseleave', FLayerMouseLeavePtr);\r\n  eh.addEventListener('mousedown', FMouseDownPtr);\r\n  eh.addEventListener('mouseup', FMouseUpPtr);\r\n  eh.addEventListener('mousemove', FMouseMovePtr);\r\n  eh.addEventListener('touchstart', FTouchStartPtr);\r\n  eh.addEventListener('touchmove', FTouchMovePtr);\r\n  eh.addEventListener('touchend', FTouchEndPtr);\r\n  eh.addEventListener('touchcancel', FTouchCancelPtr);\r\n\r\n  eh.style.setProperty('top', '0');\r\n  eh.style.setProperty('left', '0');\r\n  eh.style.setProperty('right', '0');\r\n  eh.style.setProperty('bottom', '0');\r\n\r\n  eh.style.setProperty('webkit-user-select', 'none');\r\n  eh.style.setProperty('moz-user-select', 'none');\r\n  eh.style.setProperty('khtml-user-select', 'none');\r\n  eh.style.setProperty('ms-user-select', 'none');\r\n  eh.style.setProperty('user-select', 'none');\r\n  eh.style.setProperty('position', 'absolute');\r\n\r\n  eh.style.setProperty(CSSZIndex, '999999');\r\n\r\n  FCaptured := True;\r\n  UpdateElement;\r\nend;\r\n\r\nfunction TControl.Captured: Boolean;\r\nbegin\r\n  Result := FCaptured and Assigned(FLayer);\r\nend;\r\n\r\nprocedure TControl.ClearChildElements;\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  if not Assigned(ElementHandle) then\r\n    Exit;\r\n\r\n  while ElementHandle.childElementCount > 0 do\r\n  begin\r\n    el := TJSElement(ElementHandle.firstChild);\r\n    ElementHandle.removeChild(el);\r\n  end;\r\nend;\r\n\r\nprocedure TControl.ClearControls;\r\nbegin\r\n  SetLength(FControls, 0);\r\nend;\r\n\r\nprocedure TControl.Click;\r\nbegin\r\n  if Assigned(OnClick) and IsEnabled then\r\n    OnClick(Self);\r\nend;\r\n\r\nfunction TControl.ClientToScreen(const Point: TPoint): TPoint;\r\nvar\r\n  Origin: TPoint;\r\nbegin\r\n  Origin := ClientOrigin;\r\n  Result.X := Point.X + Origin.X;\r\n  Result.Y := Point.Y + Origin.Y;\r\nend;\r\n\r\nprocedure TControl.ColorChanging;\r\nbegin\r\n\r\nend;\r\n\r\nfunction TControl.ContainerElement: TJSElement;\r\nbegin\r\n  Result := document.body;\r\nend;\r\n\r\nfunction TControl.RequiredBaseURL: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nprocedure TControl.RequiredScriptLoaded(Event: TJSEvent);\r\nbegin\r\n  (Event.Target as TJSHTMLScriptElement).Title := 'tmswebloaded';\r\n  inc(FControlScriptCountLoaded);\r\nend;\r\n\r\nconstructor TControl.Create(AOwner: TComponent);\r\nvar\r\n  lName: string;\r\n  frm: TCustomForm;\r\n  lDesign: boolean;\r\n\r\nbegin\r\n  FGotFocus := false;\r\n  FEventsBound := false;\r\n  FTabStop := true;\r\n  FAllowTouch := true;\r\n  FNoUserSelect := true;\r\n  ClearMethodPointers;\r\n\r\n  inherited Create(AOwner);\r\n\r\n  EventStopPropagation := [eeClick, eeDblClick, eeMouseUp, eeMouseMove, eeMouseDown, eeKeypress, eeKeyDown, eeKeyUp];\r\n\r\n  FScriptLoaded := false;\r\n  FElementFont := efProperty;\r\n  FElementPosition := epAbsolute;\r\n  FParentElement := nil;\r\n  FTextDirection := tdDefault;\r\n\r\n  lDesign := false;\r\n\r\n  frm := GetParentForm(Self);\r\n  if Assigned(frm) then\r\n  begin\r\n    lDesign := (csDesigning in frm.ComponentState);\r\n  end;\r\n\r\n  lName := GetNewName;\r\n\r\n  // for VSC, when creating control, initialize without ID\r\n  if lDesign then\r\n    CreateWithID('')\r\n  else\r\n    CreateWithID(lName);\r\n\r\n  if Assigned(AOwner) and not (csDesigning in AOwner.ComponentState) then\r\n    Name := lName;\r\nend;\r\n\r\n\r\nprocedure TControl.CreateControl;\r\nbegin\r\n  if not Assigned(FElement) then\r\n  begin\r\n    FElement := CreateElement;\r\n\r\n    if Assigned(FElement) then\r\n    begin\r\n      FControlCreated := True;\r\n      Container := FElement;\r\n      if not (ElementID = 'body') then\r\n        Container['id'] := ElementID;\r\n      Container['zindex'] := '0';\r\n      if FElementClassName <> '' then\r\n        Container['class'] := FElementClassName;\r\n      CreateChildElements(FElement);\r\n\r\n      BindEvents;\r\n      UpdateElement;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TControl.CreateElement: TJSElement;\r\nbegin\r\n  Result := nil;\r\nend;\r\n\r\nprocedure TControl.CreateChildElements(AContainer: TJSElement);\r\nbegin\r\nend;\r\n\r\nprocedure TControl.CreateInitialize;\r\nvar\r\n  frm: TCustomForm;\r\nbegin\r\n  FDesignTime := (csDesigning in ComponentState) and not\r\n    ((csReading in Owner.ComponentState) or (csLoading in Owner.ComponentState));\r\n\r\n  FRequiredScripts := TStringList.Create;\r\n  FOrigRect := Rect(-1,-1,-1,-1);\r\n  FClipChildren := True;\r\n\r\n  if FDesignTime then\r\n  begin\r\n    frm := GetParentForm(Self);\r\n    if Assigned(frm) and (frm is TWebForm) and ((frm as TWebForm).CSSLibrary <> cssNone) then\r\n    begin\r\n      InitCSSLibrary((frm as TWebForm).CSSLibrary);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.InitCSSLibrary(ALibrary: TCSSLibrary);\r\nbegin\r\n  //\r\nend;\r\n\r\nprocedure TControl.CreateWithID(AID: string);\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  ClearMethodPointers;\r\n\r\n  FUpdateCount := 0;\r\n\r\n  FControlCreated := False;\r\n  FLinkTouchEvents := True;\r\n  FIsResizing := false;\r\n\r\n  if (Assigned(Owner) and (csLoading in Owner.ComponentState)) or not Assigned(Owner) then\r\n  begin\r\n    if not (Assigned(Owner) and (csDesigning in Owner.ComponentState)) then\r\n      Loading;\r\n  end;\r\n\r\n  FElementPosition := epAbsolute;\r\n  FWidthStyle := ssAbsolute;\r\n  FHeightStyle := ssAbsolute;\r\n\r\n  el := document.getElementByID(AID);\r\n\r\n  FNew := not Assigned(el);\r\n\r\n  FFont := TFont.Create;\r\n  FFont.OnChange := HandleFontChanged;\r\n\r\n  // the HTML element is not found\r\n  if FNew then\r\n  begin\r\n    Container := nil;\r\n  end\r\n  else\r\n  begin\r\n    Container := el;\r\n    FControlCreated := true;\r\n    FElementPosition := epRelative;\r\n    CreateChildElements(el);\r\n    BindElement;\r\n    BindEvents;\r\n  end;\r\n\r\n  FID := AID;\r\n  FEnabled := True;\r\n  FVisible := True;\r\n  FLeft := 0;\r\n  FTop := 0;\r\n  FAlign := alNone;\r\n  FAlignWithMargins := false;\r\n  FIsAligning := false;\r\n  FParentFont := true;\r\n  FParentBiDiMode := true;\r\n  FParentColor := false;\r\n  FAnchors := [akLeft, akTop];\r\n  FShowFocus := false;\r\n  FBorderWidth := 0;\r\n  FEnablePropagation := False;\r\n  FToolTip := nil;\r\n\r\n  FColor := clWindow;\r\n\r\n  FMargins := TMargins.Create;\r\n  FMargins.OnChange := DoMarginsChanged;\r\n  FCenter := TCenter.Create;\r\n  FCenter.OnChange := DoCenterChanged;\r\n\r\n  FParent := nil;\r\n  FPrevParent := nil;\r\n\r\n  // Issue with Visual Studio Code design-time assigning ElementID for conntrols with childs\r\n  if not (csAcceptsControls in ControlStyle) then\r\n    ClearControls;\r\n\r\n  CreateInitialize;\r\nend;\r\n\r\nprocedure TControl.BindElement;\r\nbegin\r\nend;\r\n\r\nprocedure TControl.AddControlLink(const linkid, link: string);\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  asm\r\n    function writeLinkOnce(linkName, linkText) {\r\n        var linkElement = document.getElementById(linkName);\r\n        if (linkElement)\r\n          return;\r\n        linkElement = document.createElement('link');\r\n        linkElement.id = linkName;\r\n        linkElement.setAttribute('rel', 'stylesheet');\r\n        linkElement.setAttribute('type', 'text/css');\r\n        linkElement.setAttribute('href', linkText);\r\n        document.getElementsByTagName('head')[0].appendChild(linkElement);\r\n    }\r\n    writeLinkOnce(linkid,link);\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\n\r\n{$HINTS OFF}\r\nprocedure TControl.AddControlScriptLink(const link: string);\r\nvar\r\n  id: string;\r\n  script: TJSHTMLScriptElement;\r\n\r\nbegin\r\n  id := ClassName;\r\n\r\n  if not Assigned(document.getElementById(id)) then\r\n  begin\r\n    script := TJSHTMLScriptElement(document.createElement('script'));\r\n    script.id := id;\r\n    script.src := link;\r\n    script.type_ := 'text/javascript';\r\n    document.head.appendChild(script);\r\n  end;\r\nend;\r\n\r\nprocedure TControl.AddControlScriptSource(const source: string);\r\nvar\r\n  id: string;\r\n  script: TJSHTMLScriptElement;\r\n\r\nbegin\r\n  id := ClassName+'SRC';\r\n\r\n  if not Assigned(document.getElementById(id)) then\r\n  begin\r\n    script := TJSHTMLScriptElement(document.createElement('script'));\r\n    script.id := id;\r\n    script.innerHTML := source;\r\n    script.type_ := 'text/javascript';\r\n    document.head.appendChild(script);\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TControl.AddControlStyle(const css: string);\r\nvar\r\n  cssname: string;\r\nbegin\r\n  cssname := ClassName;\r\n  {$IFDEF PAS2JS}\r\n  asm\r\n    function writeStylesOnce(styleName, cssText) {\r\n        var styleElement = document.getElementById(styleName);\r\n        if (styleElement) {\r\n             styleElement.innerHTML = cssText;\r\n          return;\r\n          }\r\n        styleElement = document.createElement('style');\r\n        styleElement.type = 'text/css';\r\n        styleElement.id = styleName;\r\n        styleElement.innerHTML = cssText;\r\n        document.getElementsByTagName('head')[0].appendChild(styleElement);\r\n    }\r\n    writeStylesOnce(cssname,css);\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nclass procedure TControl.AddInstanceStyle(const id: string; const css: string);\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  asm\r\n    function writeStylesOnce(styleName, cssText) {\r\n        var styleElement = document.getElementById(styleName);\r\n        if (styleElement) {\r\n          styleElement.innerHTML = cssText;\r\n          return;\r\n          }\r\n        styleElement = document.createElement('style');\r\n        styleElement.type = 'text/css';\r\n        styleElement.id = styleName;\r\n        styleElement.innerHTML = cssText;\r\n        document.getElementsByTagName('head')[0].appendChild(styleElement);\r\n    }\r\n    writeStylesOnce(id,css);\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TControl.AddInstanceStyle(const css: string);\r\nvar\r\n  cssname: string;\r\nbegin\r\n  cssname := Name + '_style';\r\n  AddInstanceStyle(cssname, css);\r\nend;\r\n\r\nprocedure TControl.AddRequiredScript(const link: string);\r\nvar\r\n  id: string;\r\n  script: TJSHTMLScriptElement;\r\n\r\nbegin\r\n  script := TJSHTMLScriptElement(document.createElement('script'));\r\n  script.src := link;\r\n  script.type_ := 'text/javascript';\r\n  script.title := 'tmswebloading';\r\n\r\n  if not Assigned(FScriptLoadedPtr) then\r\n    FScriptLoadedPtr := @RequiredScriptLoaded;\r\n\r\n  script.addEventListener('load', FScriptLoadedPtr);\r\n  document.head.appendChild(script);\r\nend;\r\n\r\nfunction TControl.AddRequiredScripts: boolean;\r\nvar\r\n  i,j: integer;\r\n  el: TJSElement;\r\n  scr: TJSHTMLScriptElement;\r\n  found, loading: boolean;\r\nbegin\r\n  FControlScriptCount := 0;\r\n\r\n  for j := 0 to RequiredScripts.Count - 1 do\r\n  begin\r\n    found := false;\r\n    loading := false;\r\n\r\n    for i := 0 to document.head.children.length - 1 do\r\n    begin\r\n      el := TJSElement(document.head.children[i]);\r\n      if (el.tagName = 'SCRIPT') then\r\n      begin\r\n        scr := TJSHTMLScriptElement(el);\r\n        if (pos(RequiredScripts[j], scr.src) > 0) then\r\n        begin\r\n          found := true;\r\n\r\n          if scr.title = 'tmswebloading' then\r\n          begin\r\n            loading := true;\r\n            if not Assigned(FScriptLoadedPtr) then\r\n              FScriptLoadedPtr := @RequiredScriptLoaded;\r\n            scr.addEventListener('load', FScriptLoadedPtr);\r\n          end;\r\n\r\n          break;\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    if not found then\r\n    begin\r\n      inc(FControlScriptCount);\r\n      AddRequiredScript( RequiredBaseURL + RequiredScripts[j]);\r\n    end;\r\n\r\n    if found and loading then\r\n      inc(FControlScriptCount);\r\n  end;\r\n\r\n  Result := (FControlScriptCount > 0);\r\nend;\r\n\r\n{$HINTS ON}\r\n\r\nprocedure TControl.AlignControl(AControl: TControl);\r\nvar\r\n  r: TRect;\r\n  cr: TJSDOMRect;\r\n  ovf, ovfx, ovfy: string;\r\n  eh: TJSHTMLElement;\r\n  el: TJSElement;\r\n  frm: TCustomForm;\r\n  ctop: integer;\r\n  vscrl: integer;\r\n\r\nbegin\r\n  if FIsAligning then\r\n    Exit;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  if csLoading in ComponentState then\r\n    Exit;\r\n\r\n//  if not Visible then\r\n//    Exit;\r\n\r\n  if Assigned(Parent) and not Parent.Visible then\r\n    Exit;\r\n\r\n  frm := GetParentForm(Self);\r\n\r\n  if Assigned(frm) and frm.IsUpdating then\r\n    Exit;\r\n\r\n  ctop := 0;\r\n\r\n  if Assigned(frm) and (frm.FormContainer <> '') and (AControl is TCustomForm) then\r\n  begin\r\n    el := document.getElementById(frm.FormContainer);\r\n    if Assigned(el) then\r\n    begin\r\n      cr := el.getBoundingClientRect;\r\n      ctop := Round(cr.Top + 1);\r\n    end;\r\n  end;\r\n\r\n  FIsAligning := true;\r\n\r\n  if not Assigned(AControl) then\r\n    Exit;\r\n\r\n  eh := AControl.ElementHandle;\r\n\r\n  if Assigned(eh) then\r\n  begin\r\n    ovf := AControl.GetElementStyle.getPropertyValue('overflow');\r\n    ovfx := AControl.GetElementStyle.getPropertyValue('overflow-x');\r\n    ovfy := AControl.GetElementStyle.getPropertyValue('overflow-y');\r\n\r\n    if ClipChildren and (LowerCase(eh.tagName) <> cBodyTag) then\r\n      AControl.GetElementStyle.setProperty('overflow', 'hidden')\r\n    else\r\n      AControl.GetElementStyle.setProperty('overflow', '');\r\n  end;\r\n\r\n  r := GetClientRect;\r\n  r.Bottom := r.Bottom - ctop;\r\n\r\n  // when it concerns a control linked to an element, need to get the element bounding rect here\r\n  if IsLinked then\r\n  begin\r\n    cr := ElementHandle.getBoundingClientRect;\r\n    // get the real dimensions of the control, it will be absolutely positioned taking the elements\r\n    // real top,left in account in SetBoundsInt()\r\n    r := Rect(0, 0, Round(cr.Right - cr.Left), Round(cr.Bottom - cr.Top));\r\n  end;\r\n\r\n  // limit size except when it is absolute positioned & has fixed height\r\n  if (r.Bottom + ctop > WinHeight) and (HeightStyle <> ssAbsolute) and not (ElementPosition = epAbsolute) and not IsLinked and not Assigned(VSIDE) then\r\n  begin\r\n    if (Assigned(Parent) and (Parent is TCustomForm)) or (Self is TCustomForm) then\r\n    begin\r\n      r.Bottom := WinHeight - ctop;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(eh) and (eh.tagName = 'BODY') then\r\n  begin\r\n    vscrl := 0;\r\n\r\n    if (document.body.scrollHeight > document.body.clientHeight) and not (csDesigning in ComponentState) then\r\n      vscrl := 16;\r\n\r\n    if frm.FormContainer <> '' then\r\n    begin\r\n      r.Bottom := Round(Min(r.Bottom , WinHeight));\r\n      r.Right := Round(Min(r.Right - vscrl, WinWidth));\r\n    end\r\n    else\r\n    begin\r\n      r.Bottom := frm.Height;\r\n      r.Right := frm.Width;\r\n    end;\r\n  end;\r\n\r\n  // limit size to browser window size anyway\r\n  if (AControl is TCustomForm) and not Assigned(VSIDE) then\r\n  begin\r\n    if r.Bottom > WinHeight then\r\n      r.Bottom := WinHeight;\r\n\r\n    if r.Right > WinWidth then\r\n      r.Right := WinWidth;\r\n  end;\r\n\r\n  if AControl.IsStructuralElement then\r\n  begin\r\n    r := Parent.GetClientRect;\r\n  end;\r\n\r\n  // in case custom CSS for setting scrollbar width is used\r\n  if (Application.CalcScrollBarWidth < 16) and not (AControl is TCustomForm) then\r\n  begin\r\n\r\n    if Assigned(AControl.Parent) and Assigned(AControl.ElementHandle) then\r\n    begin\r\n      if (AControl.ElementHandle.scrollHeight > AControl.ElementHandle.clientHeight) then\r\n        r.Right := r.Right + (17 - Application.CalcScrollBarWidth);\r\n    end;\r\n  end;\r\n\r\n  AlignControls(AControl, r);\r\n\r\n  if Assigned(eh) then\r\n  begin\r\n    AControl.GetElementStyle.setProperty('overflow', ovf);\r\n    AControl.GetElementStyle.setProperty('overflow-x', ovfx);\r\n    AControl.GetElementStyle.setProperty('overflow-y', ovfy);\r\n  end;\r\n\r\n  FIsAligning := false;\r\nend;\r\n\r\nprocedure TControl.DblClick;\r\nbegin\r\n  if Assigned(OnDblClick) then\r\n    OnDblClick(Self);\r\nend;\r\n\r\ndestructor TControl.Destroy;\r\nbegin\r\n  UnbindEvents;\r\n  DestroyControls;\r\n\r\n  if Assigned(Container) and Assigned(Parent) and Assigned(Parent.GetChildContainer) then\r\n  begin\r\n    if Parent.GetChildContainer = Container.parentNode then\r\n    begin\r\n      Parent.GetChildContainer.removeChild(Container);\r\n    end;\r\n\r\n    Container := nil;\r\n    Parent := nil;\r\n    FControlCreated := False;\r\n  end;\r\n\r\n  FRequiredScripts.Free;\r\n  FMargins.Free;\r\n  FCenter.Free;\r\n  FFont.Free;\r\n\r\n  if Assigned(FToolTip) then\r\n  begin\r\n    {$IFDEF PAS2JS}\r\n    asm\r\n      this.FToolTip.dispose();\r\n    end;\r\n    {$ENDIF}\r\n    FToolTip := nil;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TControl.DestroyControls;\r\nvar\r\n  i: integer;\r\n  ctrl: TControl;\r\nbegin\r\n  for i := ControlCount - 1 downto 0 do\r\n  begin\r\n    ctrl := Controls[i];\r\n    ctrl.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.DisableDrag;\r\nbegin\r\n  if Assigned(Container) and (Container['draggable'] = 'true') then\r\n    Container['draggable'] := 'false';\r\nend;\r\n\r\nprocedure TControl.DisableTab;\r\nvar\r\n  i: integer;\r\nbegin\r\n  if not (TabStop and CanFocus) then\r\n  begin\r\n    if Assigned(Container) then\r\n      Container.setAttribute('tabindex','-1');\r\n  end;\r\n\r\n  for i := 0 to ControlCount - 1 do\r\n  begin\r\n    Controls[i].DisableTab;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.DisposeOf;\r\nvar\r\n  t: TControl;\r\nbegin\r\n  t := Self;\r\n  t.Free;\r\nend;\r\n\r\nprocedure TControl.Assign(Source: TPersistent);\r\nbegin\r\n\r\nend;\r\n\r\nfunction TControl.GetElement: TJSElement;\r\nbegin\r\n  Result := document.getElementByID(GetID);\r\nend;\r\n\r\nfunction TControl.GetElementBindHandle: TJSEventTarget;\r\nbegin\r\n  Result := TJSEventTarget(GetElementHandle);\r\nend;\r\n\r\nfunction TControl.GetElementEvent: TJSEvent;\r\nbegin\r\n  Result := FElementEvent;\r\nend;\r\n\r\nprocedure TControl.SetEnabled(Value: Boolean);\r\nbegin\r\n  if (FEnabled <> Value) then\r\n  begin\r\n    FEnabled := Value;\r\n    UpdateElementData;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.SetVisible(AValue: Boolean);\r\nbegin\r\n  if (FVisible <> AValue) then\r\n  begin\r\n    VisibleChanging;\r\n    FVisible := AValue;\r\n    UpdateElement;\r\n    DoRealign;\r\n    AlignControl(Self);\r\n    VisibleChanged;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.SetWidth(AValue: Integer);\r\nbegin\r\n  if (FWidth <> AValue) then\r\n  begin\r\n    FWidth := AValue;\r\n\r\n    ResetAnchoring;\r\n    DoBoundsChange;\r\n\r\n    // still do element width updating at runtime\r\n    if (IsLinked and (WidthStyle = ssAbsolute) and not (csLoading in ComponentState)) and not IsUpdating and Assigned(ElementHandle) then\r\n    begin\r\n      if AValue >= 0 then\r\n        GetElementStyle.setProperty('width',IntTostr(AValue)+'px')\r\n      else\r\n        GetElementStyle.removeProperty('width');\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.SetWidthInt(AValue: Integer);\r\nbegin\r\n  FWidth := AValue;\r\nend;\r\n\r\nprocedure TControl.SetWidthPercent(const Value: TPercentSize);\r\nbegin\r\n  if (FWidthPercent <> Value) then\r\n  begin\r\n    FWidthPercent := Value;\r\n    UpdateElementSize;\r\n    ResetAnchoring;\r\n    DoBoundsChange;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.SetWidthStyle(const Value: TSizeStyle);\r\nbegin\r\n  if (FWidthStyle <> Value) then\r\n  begin\r\n    FWidthStyle := Value;\r\n\r\n    if (FWidthStyle = ssAuto) and Assigned(ElementHandle) and not IsLinked then\r\n      GetElementStyle.removeProperty('width');\r\n\r\n    UpdateElementSize;\r\n    ResetAnchoring;\r\n    DoBoundsChange;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.Show;\r\nbegin\r\n  Visible := true;\r\nend;\r\n\r\nprocedure TControl.StopPropagation;\r\nbegin\r\n  if Assigned(ElementEvent) and not EnablePropagation then\r\n    ElementEvent.stopPropagation;\r\nend;\r\n\r\nprocedure TControl.TouchCancel(X, Y: Integer);\r\nbegin\r\n  if Assigned(OnTouchCancel) then\r\n    OnTouchCancel(Self, X, Y);\r\nend;\r\n\r\nprocedure TControl.TouchEnd(X, Y: Integer);\r\nbegin\r\n  if Assigned(OnTouchEnd) then\r\n    OnTouchEnd(Self, X, Y);\r\nend;\r\n\r\nprocedure TControl.TouchMove(X, Y: Integer);\r\nbegin\r\n  if Assigned(OnTouchMove) then\r\n    OnTouchMove(Self, X, Y);\r\nend;\r\n\r\nprocedure TControl.TouchStart(X, Y: Integer);\r\nbegin\r\n  if Assigned(OnTouchStart) then\r\n    OnTouchStart(Self, X, Y);\r\nend;\r\n\r\nprocedure TControl.SetHeight(AValue: Integer);\r\nvar\r\n  dr: TJSDOMRect;\r\nbegin\r\n  if FHeight <> AValue then\r\n  begin\r\n    if (Align in [alLeft, alRight, alClient]) and Assigned(ElementHandle) then\r\n    begin\r\n      dr := ElementHandle.getBoundingClientRect;\r\n      if dr.top + AValue >= WinHeight then\r\n      begin\r\n        AValue := Round(WinHeight - dr.top);\r\n      end;\r\n    end;\r\n\r\n    FHeight := AValue;\r\n\r\n    ResetAnchoring;\r\n    DoBoundsChange;\r\n\r\n    // still do element height updating at runtime\r\n    if (IsLinked and (HeightStyle = ssAbsolute) and not (csLoading in ComponentState)) and not IsUpdating and Assigned(ElementHandle) then\r\n    begin\r\n      if AValue >= 0 then\r\n        GetElementStyle.setProperty('height',IntTostr(AValue)+'px')\r\n      else\r\n        GetElementStyle.removeProperty('height');\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.SetHeightInt(AValue: Integer);\r\nbegin\r\n  FHeight := AValue;\r\nend;\r\n\r\nprocedure TControl.SetHeightPercent(const Value: TPercentSize);\r\nbegin\r\n  if (FHeightPercent <> Value) then\r\n  begin\r\n    FHeightPercent := Value;\r\n    UpdateElementSize;\r\n    ResetAnchoring;\r\n    DoBoundsChange;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.SetHeightStyle(const Value: TSizeStyle);\r\nbegin\r\n  if (FHeightStyle <> Value) then\r\n  begin\r\n    FHeightStyle := Value;\r\n\r\n    if (FHeightStyle = ssAuto) and Assigned(ElementHandle) and not IsLinked then\r\n      GetElementStyle.removeProperty('height');\r\n\r\n    UpdateElementSize;\r\n    ResetAnchoring;\r\n    DoBoundsChange;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.SetLeft(AValue: Integer);\r\nbegin\r\n  if FLeft <> AValue then\r\n  begin\r\n    FLeft := AValue;\r\n\r\n    ResetAnchoring;\r\n\r\n    if not FUpdateTopLeft then\r\n      FOrigLeft := AValue;\r\n\r\n    UpdateElementSize;\r\n    RecreateCanvas;\r\n    InternalResize;\r\n\r\n    if not (csLoading in ComponentState) and (Align <> alNone) and Assigned(Parent) then\r\n    begin\r\n      DoRealign;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.SetMargins(const Value: TMargins);\r\nbegin\r\n  FMargins.Assign(Value);\r\nend;\r\n\r\nprocedure TControl.SetTop(AValue: Integer);\r\nbegin\r\n  if FTop <> AValue then\r\n  begin\r\n    FTop := AValue;\r\n\r\n    ResetAnchoring;\r\n\r\n    if not FUpdateTopLeft then\r\n      FOrigTop := AValue;\r\n\r\n    UpdateElementSize;\r\n    RecreateCanvas;\r\n    InternalResize;\r\n\r\n    if not (csLoading in ComponentState) and (Align <> alNone) and Assigned(Parent) then\r\n    begin\r\n      DoRealign;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.SetScriptLoaded(const Value: boolean);\r\nbegin\r\n  FScriptLoaded := Value;\r\nend;\r\n\r\nprocedure TControl.SetShowFocus(const Value: boolean);\r\nbegin\r\n  if (FShowFocus <> Value) then\r\n  begin\r\n    FShowFocus := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.SetShowHint(AValue: Boolean);\r\nbegin\r\n  if FShowHint <> AValue then\r\n  begin\r\n    FShowHint := AValue;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.SetHint(AValue: string);\r\nbegin\r\n  if FHint <> AValue then\r\n  begin\r\n    FHint := AValue;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TControl.SetID(const Value: string);\r\nvar\r\n  eh,el,tmp: TJSElement;\r\n  frm: TCustomForm;\r\n  p: TComponent;\r\n  l,t,w,h: integer;\r\n\r\nbegin\r\n  // it was a new created control and now going to be a HTML element wrapper\r\n\r\n  if FNew and (FID <> Value) then\r\n  begin\r\n    // switch to template element - so find it\r\n    eh := document.getElementById(Value);\r\n    if Assigned(eh) then\r\n    begin\r\n      l := FLeft;\r\n      t := FTop;\r\n      w := FWidth;\r\n      h := FHeight;\r\n      tmp := nil;\r\n\r\n      // unbind event handlers from created control\r\n      UnbindEvents;\r\n\r\n      if Assigned(FContainer) then\r\n      begin\r\n        // remember previous HTML parent element\r\n        FParentElement := TJSHTMLElement(FContainer.parentElement);\r\n\r\n        // move child elements from current control to HTML element\r\n        tmp := document.createElement('SPAN');\r\n        MoveElements(FContainer, tmp);\r\n      end;\r\n\r\n      p := Parent;\r\n\r\n      // remove created control\r\n      Parent := nil;\r\n\r\n      // create wrapper for HTML element\r\n      CreateWithID(Value);\r\n\r\n      // add it back as child\r\n      SetParentComponent(p);\r\n\r\n      FID := Value;\r\n\r\n      FWidth := w;\r\n      FHeight := h;\r\n\r\n      // perform update to set wrapper properties to HTML element\r\n      UpdateElement;\r\n\r\n      // keep Left,Top at design-time for Delphi compatibility\r\n      if (csDesigning in ComponentState) then\r\n      begin\r\n        FLeft := l;\r\n        FTop := t;\r\n      end;\r\n\r\n      if Assigned(tmp) then\r\n      begin\r\n        // as this appends childs, make sure initial set childs are not duplicated\r\n        ElementHandle.textContent := '';\r\n        MoveElementsAndFree(tmp, ElementHandle);\r\n      end;\r\n\r\n      Exit;\r\n    end;\r\n  end;\r\n\r\n  // it is a wrapped control and now going to be a new created control\r\n  if not FNew and (FID <> Value) then\r\n  begin\r\n    w := FWidth;\r\n    h := FHeight;\r\n    // unbind event handlers from wrapped HTML element\r\n    eh := document.getElementById(FID);\r\n    if Assigned(eh) then\r\n    begin\r\n      // move child elements to temp SPAN\r\n      tmp := document.createElement('SPAN');\r\n      MoveElements(eh, tmp);\r\n      UnbindEvents;\r\n      //DestroyControls;\r\n    end;\r\n\r\n    if (Value <> '') then\r\n    begin\r\n      eh := document.getElementById(Value);\r\n      // wrap another HTML element\r\n      if Assigned(eh) then\r\n      begin\r\n        CreateWithID(Value);\r\n        FID := Value;\r\n        FWidth := w;\r\n        FHeight := h;\r\n        UpdateElement;\r\n\r\n        MoveElementsAndFree(tmp, FContainer);\r\n\r\n        Exit;\r\n      end;\r\n    end;\r\n\r\n    // create new control\r\n    FNew := true;\r\n    FElement := nil;\r\n\r\n    CreateControl;\r\n\r\n    if Value = '' then\r\n    begin\r\n      CreateInitialize;\r\n      FWidth := w;\r\n      FHeight := h;\r\n    end;\r\n\r\n    if Assigned(FParentElement) then\r\n    begin\r\n      FParentElement.appendChild(Container);\r\n    end\r\n    else\r\n      document.body.appendChild(Container);\r\n\r\n    frm := GetParentForm(Self); //Application.ActiveForm;\r\n    if Assigned(frm) then\r\n    begin\r\n      Parent := frm;\r\n      ElementPosition := epAbsolute;\r\n      Left := 0;\r\n      Top := 0;\r\n    end;\r\n\r\n    // move child elements from temp SPAN to new control\r\n    if Assigned(tmp) then\r\n      MoveElementsAndFree(tmp, FContainer);\r\n\r\n    // perform update to set instance properties to control\r\n    UpdateElement;\r\n    UpdateElementSize;\r\n  end;\r\n\r\n  FID := Value;\r\n  if Assigned(FContainer) then\r\n    FContainer['id'] := Value;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TControl.SetTabOrder(AValue: Integer);\r\nbegin\r\n  if FTabOrder <> AValue then\r\n  begin\r\n    FTabOrder := AValue;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.SetTabStop(AValue: Boolean);\r\nbegin\r\n  if FTabStop <> AValue then\r\n  begin\r\n    FTabStop := AValue;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nfunction TControl.SaveState: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TControl.ScreenToClient(const Point: TPoint): TPoint;\r\nvar\r\n  Origin: TPoint;\r\nbegin\r\n  Origin := ClientOrigin;\r\n  Result.X := Point.X - Origin.X;\r\n  Result.Y := Point.Y - Origin.Y;\r\nend;\r\n\r\nprocedure TControl.SendToBack;\r\nbegin\r\n  if Assigned(ElementHandle) and Assigned(ElementHandle.parentElement) then\r\n  begin\r\n    ElementHandle.parentElement.insertBefore(ElementHandle, ElementHandle.parentElement.firstElementChild);\r\n    //if not ((ElementPosition <> epAbsolute) or IsLinked) then\r\n    //  ElementHandle.style.setProperty(CSSZIndex, '0');\r\n\r\n    if Assigned(Parent) then\r\n      Parent.MoveFirst(Self);\r\n  end\r\nend;\r\n\r\n\r\nprocedure TControl.BeginDrag;\r\nbegin\r\n  EnableDrag;\r\nend;\r\n\r\nprocedure TControl.BeginUpdate;\r\nbegin\r\n  inc(FUpdateCount);\r\nend;\r\n\r\nprocedure TControl.Invalidate;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TControl.EnableDrag;\r\nbegin\r\n  if Assigned(Container) then\r\n    Container['draggable'] := 'true';\r\nend;\r\n\r\nprocedure TControl.EnableTab;\r\nvar\r\n  i: integer;\r\nbegin\r\n  if Assigned(FContainer) and not IsLinked then\r\n  begin\r\n    if TabStop and CanFocus then\r\n    begin\r\n      FContainer['tabindex'] := IntToStr(TabOrder + 1)\r\n    end\r\n    else\r\n    begin\r\n      FContainer['tabindex'] := '-1';\r\n    end;\r\n  end;\r\n\r\n  for i := 0 to ControlCount - 1 do\r\n  begin\r\n    Controls[i].EnableTab;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.EndUpdate;\r\nbegin\r\n  if (FUpdateCount > 0) then\r\n  begin\r\n    dec(FUpdateCount);\r\n\r\n    if FUpdateCount = 0 then\r\n      UpdateElement;\r\n  end;\r\nend;\r\n\r\nfunction TControl.EventsBound: boolean;\r\nbegin\r\n  Result := FEventsBound;\r\nend;\r\n\r\nfunction TControl.IsUpdating: boolean;\r\nbegin\r\n  Result := FUpdateCount > 0;\r\nend;\r\n\r\nprocedure TControl.SetAlign(const Value: TAlign);\r\nbegin\r\n  if FAlign <> Value then\r\n  begin\r\n    FAlign := Value;\r\n    DoRealign;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.SetAlignWithMargins(const Value: boolean);\r\nbegin\r\n  if FAlignWithMargins <> Value then\r\n  begin\r\n    FAlignWithMargins := Value;\r\n    DoRealign;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.SetBiDiMode(const Value: TBiDiMode);\r\nbegin\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    if (Value = bdLeftToRight) then\r\n      ElementHandle.removeAttribute('dir')\r\n    else\r\n      ElementHandle.setAttribute('dir','rtl');\r\n  end;\r\nend;\r\n\r\nprocedure TControl.DoMarginsChanged(Sender: TObject);\r\nbegin\r\n  DoRealign;\r\nend;\r\n\r\nprocedure TControl.DoCenterChanged(Sender: TObject);\r\nbegin\r\n  DoRealign;\r\nend;\r\n\r\nprocedure TControl.DoRealign;\r\nbegin\r\n  if Assigned(Parent) and not Parent.IsUpdating then\r\n  begin\r\n    Parent.AlignControl(Parent);\r\n  end;\r\nend;\r\n\r\nprocedure TControl.SetAnchors(const Value: TAnchors);\r\nbegin\r\n  if (FAnchors <> Value) then\r\n  begin\r\n    FAnchors := Value;\r\n    if not (csLoading in ComponentState) then\r\n    begin\r\n      UpdateAnchoring;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.SetBorderWidth(const Value: integer);\r\nbegin\r\n  if (FBorderWidth <> Value) then\r\n  begin\r\n    FBorderWidth := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.SetBoundsInt(X, Y, AWidth, AHeight: Integer);\r\nbegin\r\n  if (X <> Left) or (Y <> Top) or ((AWidth <> Width) and (WidthStyle = ssAbsolute)) or ((AHeight <> Height) and (HeightStyle = ssAbsolute)) or\r\n    (Assigned(Parent) and Parent.isLinked) then\r\n  begin\r\n    FBlockUpdateElement := True;\r\n    FLeft := X;\r\n    FTop := Y;\r\n\r\n    FWidth := AWidth;\r\n    FHeight := AHeight;\r\n\r\n    FBlockUpdateElement := False;\r\n\r\n    UpdateElementSize;\r\n\r\n    if Align <> alNone then\r\n      DoRealign\r\n    else\r\n      Realign;\r\n\r\n    RecreateCanvas;\r\n\r\n    DoBoundsChange;\r\n    Invalidate;\r\n    UpdateChildAnchoring;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.SetBounds(X, Y, AWidth, AHeight: Integer);\r\nbegin\r\n  SetBoundsInt(X, Y, AWidth, AHeight);\r\n  FWidth := AWidth;\r\n  FHeight := AHeight;\r\n\r\n  if not FUpdateTopLeft then\r\n  begin\r\n    FOrigTop := Y;\r\n    FOrigLeft := X;\r\n  end;\r\n\r\n  ResetAnchoring;\r\n\r\n  if not (csLoading in ComponentState) and (Align <> alNone) and Assigned(Parent) then\r\n  begin\r\n    DoRealign;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.SetBoundsRect(const Value: TRect);\r\nbegin\r\n  SetBoundsInt(Value.Left, Value.Top, Value.Right - Value.Left, Value.Bottom - Value.Top);\r\nend;\r\n\r\nprocedure TControl.SetElementClassName(AValue: string);\r\nbegin\r\n  if (FElementClassName <> AValue) then\r\n  begin\r\n    FElementClassName := AValue;\r\n    if Assigned(FContainer) then\r\n      FContainer['class'] := AValue;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.SetElementColor(AElement: TJSHTMLElement; AColor: TColor);\r\nvar\r\n  noCSS: boolean;\r\nbegin\r\n  noCSS := (not Application.Themed and not (ElementClassName <> ''));\r\n\r\n  if not IsLinked then\r\n    SetHTMLElementColor(AElement, AColor, not noCSS);\r\nend;\r\n\r\nprocedure TControl.SetElementFont(const Value: TElementFont);\r\nbegin\r\n  if (FElementFont <> Value) then\r\n  begin\r\n    FElementFont := Value;\r\n    UpdateElementVisual;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.SetElementPointer(AElement: TJSHTMLElement;\r\n  ACursor: TCursor);\r\nbegin\r\n  if ACursor <> crDefault then\r\n    AElement.style.setProperty('cursor', GetHTMLCursorName(ACursor))\r\n  else\r\n    AElement.style.removeProperty('cursor');\r\nend;\r\n\r\nprocedure TControl.SetElementPosition(const Value: TElementPosition);\r\nbegin\r\n  if (FElementPosition <> Value) then\r\n  begin\r\n    FElementPosition := Value;\r\n    if Assigned(ElementHandle) then\r\n    begin\r\n      UpdateElementSize;\r\n      RecreateCanvas;\r\n      InternalResize;\r\n    end;\r\n  end;\r\nend;\r\n\r\n\r\n{$HINTS OFF}\r\nprocedure TControl.SetFocus;\r\nvar\r\n  e: TJSHTMLElement;\r\nbegin\r\n  if not CanFocus then\r\n    Exit;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    e := ElementHandle;\r\n    if FGotFocus then\r\n    begin\r\n      {$IFDEF PAS2JS}\r\n      asm\r\n        e.focus();\r\n      end;\r\n      {$ENDIF}\r\n    end\r\n    else\r\n    begin\r\n      {$IFDEF PAS2JS}\r\n      asm\r\n        setTimeout(function() {e.focus();}, 1);\r\n      end;\r\n      {$ENDIF}\r\n    end;\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TControl.SetFont(AValue: TFont);\r\nbegin\r\n  FFont.Name := AValue.Name;\r\n  FFont.Size := AValue.Size;\r\n  FFont.Style := AValue.Style;\r\n  FFont.Color := AValue.Color;\r\nend;\r\n\r\nprocedure TControl.SetChildOrderEx(const Value: integer);\r\nbegin\r\n  FChildOrder := Value;\r\nend;\r\n\r\nprocedure TControl.SetClientHeight(const Value: Integer);\r\nbegin\r\n  Height := Value;\r\nend;\r\n\r\nprocedure TControl.SetClientWidth(const Value: Integer);\r\nbegin\r\n  Width := Value;\r\nend;\r\n\r\nprocedure TControl.SetClipChildren(const Value: Boolean);\r\nbegin\r\n  FClipChildren := Value;\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TControl.SetColor(AValue: TColor);\r\nbegin\r\n  FColor := AValue;\r\n  UpdateElementVisual;\r\n  ColorChanging;\r\nend;\r\n\r\nprocedure TControl.SetControlCursor(const Value: TCursor);\r\nbegin\r\n  FCursor := Value;\r\n\r\n  if (ElementClassName = '') and Assigned(ElementHandle) then\r\n  begin\r\n    SetElementPointer(ElementHandle, Value);\r\n  end;\r\nend;\r\n\r\nprocedure TControl.SetDragMode(const Value: TDragMode);\r\nbegin\r\n  FDragMode := Value;\r\n  if Value = dmAutomatic then\r\n    BeginDrag\r\n  else\r\n    DisableDrag;\r\nend;\r\n\r\nfunction TControl.GetID: string;\r\nbegin\r\n  Result := FID;\r\nend;\r\n\r\nfunction TControl.GetIsLinked: boolean;\r\nbegin\r\n  Result := not FNew;\r\nend;\r\n\r\nfunction TControl.GetElementHandle: TJSHTMLElement;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FContainer) and FControlCreated then\r\n    Result := TJSHTMLElement(FContainer);\r\nend;\r\n\r\nfunction TControl.GetMouseEventButton(Event: TJSMouseEvent): TMouseButton;\r\nbegin\r\n  Result := mbLeft;\r\n  case Event.button of\r\n    0: Result := mbLeft;\r\n    1: Result := mbMiddle;\r\n    2: Result := mbRight;\r\n  end;\r\nend;\r\n\r\nfunction TControl.GetMouseEventShiftState(Event: TJSMouseEvent): TShiftState;\r\nbegin\r\n  Result := [];\r\n  if Event.shiftKey then\r\n    Result := Result + [ssShift];\r\n\r\n  if Event.ctrlKey then\r\n    Result := Result + [ssCtrl];\r\n\r\n  if Event.altKey then\r\n    Result := Result + [ssAlt];\r\n\r\n  if Event.buttons and 1 = 1 then\r\n     Result := Result + [ssLeft];\r\n\r\n  if Event.buttons and 2 = 2 then\r\n     Result := Result + [ssRight];\r\n\r\n  if Event.buttons and 4 = 4 then\r\n     Result := Result + [ssMiddle];\r\nend;\r\n\r\nfunction TControl.GetMouseWheelEventShiftState(\r\n  Event: TJSWheelEvent): TShiftState;\r\nbegin\r\n  Result := [];\r\n  if Event.shiftKey then\r\n    Result := Result + [ssShift];\r\n  if Event.ctrlKey then\r\n    Result := Result + [ssCtrl];\r\n  if Event.altKey then\r\n    Result := Result + [ssAlt];\r\nend;\r\n\r\nfunction TControl.GetNewName: string;\r\nvar\r\n  s: string;\r\n  lPrefix: string;\r\n  frm: TCustomForm;\r\nbegin\r\n  s := ClassName;\r\n  Delete(s, 1, 1);\r\n\r\n  lPrefix := '';\r\n\r\n  frm := GetParentForm(Self);\r\n  if Assigned(frm) then\r\n    lPrefix := frm.ClassName;\r\n\r\n  Result := lPrefix+'_'+FindUniqueName(s);\r\nend;\r\n\r\nfunction TControl.GetOuterHeight: integer;\r\nbegin\r\n  Result := FHeight - FBorderWidth;\r\nend;\r\n\r\nfunction TControl.GetOuterWidth: integer;\r\nbegin\r\n  Result := FWidth - FBorderWidth;\r\nend;\r\n\r\nfunction TControl.GetRole: string;\r\nbegin\r\n  Result := FRole;\r\n  if Assigned(ElementHandle) then\r\n    Result := ElementHandle.getAttribute('role');\r\nend;\r\n\r\nfunction TControl.GetElementStyle: TJSCSSStyleDeclaration;\r\nbegin\r\n  Result := ElementHandle.style;\r\nend;\r\n\r\nfunction TControl.GetStyle(css: string): string;\r\nvar\r\n  res: string;\r\n  el: TJSElement;\r\nbegin\r\n  el := ElementHandle;\r\n  res := '';\r\n\r\n  if not Assigned(el) then\r\n    Exit;\r\n  {$IFDEF PAS2JS}\r\n  asm\r\n    if (window.getComputedStyle) res = getComputedStyle(el, '')[css];\r\n        if(el.currentStyle) res = el.currentStyle[css];\r\n\r\n  end;\r\n  {$ENDIF}\r\n  Result := res;\r\nend;\r\n\r\nfunction TControl.GetKeyboardEventShiftState(Event: TJSKeyboardEvent): TShiftState;\r\nbegin\r\n  Result := [];\r\n  if Event.shiftKey then\r\n    Result := Result + [ssShift];\r\n  if Event.ctrlKey then\r\n    Result := Result + [ssCtrl];\r\n  if Event.altKey then\r\n    Result := Result + [ssAlt];\r\nend;\r\n\r\nprocedure TControl.ClearMethodPointers;\r\nbegin\r\n  FWheelPtr := nil;\r\n  FClickPtr := nil;\r\n  FDblClickPtr := nil;\r\n  FMouseDownPtr := nil;\r\n  FMouseUpPtr := nil;\r\n  FMouseMovePtr := nil;\r\n  FMouseLeavePtr := nil;\r\n  FMouseEnterPtr := nil;\r\n  FKeyDownPtr := nil;\r\n  FKeyUpPtr := nil;\r\n  FKeypressPtr := nil;\r\n  FInputPtr := nil;\r\n  FEnterPtr := nil;\r\n  FExitPtr := nil;\r\n  FTouchStartPtr := nil;\r\n  FTouchEndPtr := nil;\r\n  FTouchMovePtr := nil;\r\n  FTouchCancelPtr := nil;\r\n  FLayerMouseLeavePtr := nil;\r\n  FLayerMouseEnterPtr := nil;\r\n  FScriptLoadedPtr := nil;\r\n  FContextMenuPtr := nil;\r\nend;\r\n\r\nprocedure TControl.GetMethodPointers;\r\nbegin\r\n  if FWheelPtr = nil then\r\n  begin\r\n    FWheelPtr := @HandleDoWheel;\r\n    FClickPtr := @HandleDoClick;\r\n    FDblClickPtr := @HandleDoDblClick;\r\n    FMouseDownPtr := @HandleDoMouseDown;\r\n    FMouseUpPtr := @HandleDoMouseUp;\r\n    FMouseMovePtr := @HandleDoMouseMove;\r\n    FMouseLeavePtr := @HandleDoMouseLeave;\r\n    FMouseEnterPtr := @HandleDoMouseEnter;\r\n    FKeyDownPtr := @HandleDoKeyDown;\r\n    FKeyUpPtr := @HandleDoKeyUp;\r\n    FKeypressPtr := @HandleDoKeyPress;\r\n    FInputPtr := @HandleDoInput;\r\n    FEnterPtr := @HandleDoEnter;\r\n    FExitPtr := @HandleDoExit;\r\n    FTouchStartPtr := @HandleDoTouchStart;\r\n    FTouchEndPtr := @HandleDoTouchEnd;\r\n    FTouchMovePtr := @HandleDoTouchMove;\r\n    FTouchCancelPtr := @HandleDoTouchCancel;\r\n    FLayerMouseLeavePtr := @LayerHandleDoMouseLeave;\r\n    FLayerMouseEnterPtr := @LayerHandleDoMouseEnter;\r\n    FScriptLoadedPtr := @RequiredScriptLoaded;\r\n    FDragStartPtr := @HandleDoDragStart;\r\n    FDragOverPtr := @HandleDoDragOver;\r\n    FDragEnterPtr := @HandleDoDragEnter;\r\n    FDragLeavePtr := @HandledoDragLeave;\r\n    FDragEndPtr := @HandleDoDragEnd;\r\n    FDragDropPtr := @HandleDoDragDrop;\r\n    FContextMenuPtr := @HandleDoContextMenu;\r\n  end;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TControl.BindEvents;\r\nvar\r\n  eh: TJSEventTarget;\r\n  wp: Pointer;\r\nbegin\r\n  if Assigned(ElementBindHandle) then\r\n  begin\r\n    GetMethodPointers;\r\n    FEventsBound := true;\r\n    eh := ElementBindHandle;\r\n    wp := FWheelPtr;\r\n    asm\r\n      eh.addEventListener('wheel', wp, { passive:true});\r\n    end;\r\n    eh.addEventListener('click', FClickPtr);\r\n    eh.addEventListener('dblclick', FDblClickPtr);\r\n    eh.addEventListener('mousedown', FMouseDownPtr);\r\n    eh.addEventListener('mouseup', FMouseUpPtr);\r\n    eh.addEventListener('mousemove', FMouseMovePtr);\r\n    eh.addEventListener('mouseleave', FMouseLeavePtr);\r\n    eh.addEventListener('mouseenter', FMouseEnterPtr);\r\n    eh.addEventListener('keydown', FKeyDownPtr);\r\n    eh.addEventListener('keyup', FKeyUpPtr);\r\n    eh.addEventListener('keypress', FKeyPressPtr);\r\n    eh.addEventListener('input', FInputPtr);\r\n    eh.addEventListener('focus', FEnterPtr);\r\n    eh.addEventListener('blur', FExitPtr);\r\n\r\n    wp := FTouchStartPtr;\r\n    asm\r\n      eh.addEventListener('touchstart', wp, {passive: true});\r\n    end;\r\n    wp  := FTouchMovePtr;\r\n    asm\r\n      eh.addEventListener('touchmove', wp, {passive:true});\r\n    end;\r\n    eh.addEventListener('touchend', FTouchEndPtr);\r\n    eh.addEventListener('touchcancel', FTouchCancelPtr);\r\n\r\n    eh.addEventListener('contextmenu', FContextMenuPtr);\r\n\r\n    eh.addEventListener('dragstart', FDragStartPtr);\r\n    eh.addEventListener('dragover', FDragOverPtr);\r\n    eh.addEventListener('dragenter', FDragEnterPtr);\r\n    eh.addEventListener('dragleave', FDragLeavePtr);\r\n    eh.addEventListener('dragend', FDragEndPtr);\r\n    eh.addEventListener('drop', FDragDropPtr);\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TControl.BringToFront;\r\nbegin\r\n  if Assigned(ElementHandle) and Assigned(ElementHandle.parentElement) then\r\n  begin\r\n    try\r\n      ElementHandle.parentElement.appendChild(ElementHandle);\r\n      if Assigned(Parent) then\r\n        Parent.MoveLast(Self);\r\n    except\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TControl.GetChildContainer: TJSElement;\r\nbegin\r\n  Result := FContainer;\r\nend;\r\n\r\nprocedure TControl.GetChildren(Proc: TGetChildProc; Root: TComponent);\r\nvar\r\n  I: Integer;\r\n  Control: TControl;\r\nbegin\r\n  for I := 0 to ControlCount - 1 do\r\n  begin\r\n    Control := Controls[I];\r\n    if (Control.Owner = Root) or (Root = nil) then\r\n      Proc(Control);\r\n  end;\r\nend;\r\n\r\nfunction TControl.GetClientHeight: Integer;\r\nbegin\r\n  Result := Height;\r\nend;\r\n\r\nfunction TControl.GetClientOrigin: TPoint;\r\nvar\r\n  r: TJSDomRect;\r\nbegin\r\n  Result := Point(0, 0);\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    r := ElementHandle.getBoundingClientRect;\r\n    Result := Point(Round(r.Left), Round(r.Top));\r\n  end;\r\nend;\r\n\r\nfunction TControl.GetClientRect: TRect;\r\nvar\r\n  css: string;\r\n  p,brdr: integer;\r\nbegin\r\n  css := Uppercase(GetStyle('border-width'));\r\n  brdr := 0;\r\n\r\n  p := pos('PX',css);\r\n  if p > 0 then\r\n  begin\r\n    delete(css,p,2);\r\n    val(css, brdr, p);\r\n  end;\r\n\r\n  Result := Rect(0, 0, GetWidth - 2* brdr, GetHeight - 2*brdr);\r\nend;\r\n\r\nfunction TControl.GetClientWidth: Integer;\r\nbegin\r\n  Result := Width;\r\nend;\r\n\r\nfunction TControl.GetKeyChar(AValue: string): char;\r\nvar\r\n  i: integer;\r\nbegin\r\n  i := -1;\r\n  Result := #0;\r\n\r\n  case AValue of\r\n    TJSKeyNames.BackSpace: i := 8;\r\n    TJSKeyNames.Tab: i := 9;\r\n    TJSKeyNames.Enter: i := 13;\r\n    TJSKeyNames.Shift: i := 16;\r\n    TJSKeyNames.Control: i := 17;\r\n    TJSKeyNames.Alt: i := 18;\r\n    TJSKeyNames.Pause: i := 19;\r\n    TJSKeyNames.CapsLock: i := 20;\r\n    TJSKeyNames.Escape: i := 27;\r\n    TJSKeyNames.PageUp: i := 33;\r\n    TJSKeyNames.PageDown: i := 34;\r\n    TJSKeyNames._End: i := 35;\r\n    TJSKeyNames.Home: i := 36;\r\n    TJSKeyNames.ArrowLeft: i := 37;\r\n    TJSKeyNames.ArrowUp: i := 38;\r\n    TJSKeyNames.ArrowRight: i := 39;\r\n    TJSKeyNames.ArrowDown: i := 40;\r\n    TJSKeyNames.Insert: i := 45;\r\n    TJSKeyNames.Delete: i := 46;\r\n\r\n    TJSKeyNames.F1: i := 112;\r\n    TJSKeyNames.F2: i := 113;\r\n    TJSKeyNames.F3: i := 114;\r\n    TJSKeyNames.F4: i := 115;\r\n    TJSKeyNames.F5: i := 116;\r\n    TJSKeyNames.F6: i := 117;\r\n    TJSKeyNames.F7: i := 118;\r\n    TJSKeyNames.F8: i := 119;\r\n    TJSKeyNames.F9: i := 120;\r\n    TJSKeyNames.F10: i := 121;\r\n    TJSKeyNames.F11: i := 122;\r\n    TJSKeyNames.F12: i := 123;\r\n    TJSKeyNames.F13: i := 124;\r\n    TJSKeyNames.F14: i := 125;\r\n    TJSKeyNames.F15: i := 126;\r\n    TJSKeyNames.F16: i := 127;\r\n    TJSKeyNames.F17: i := 128;\r\n    TJSKeyNames.F18: i := 129;\r\n    TJSKeyNames.F19: i := 130;\r\n    TJSKeyNames.F20: i := 131;\r\n    else\r\n    begin\r\n      Result := AValue[1];\r\n    end;\r\n  end;\r\n\r\n  if i <> -1 then\r\n    Result := chr(i);\r\nend;\r\n\r\nfunction TControl.GetKeyCode(AValue: string; IgnoreCase: boolean = true): Integer;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  i := -1;\r\n  case AValue of\r\n    'Up': i := 38;\r\n    'Down': i := 40;\r\n    'Left': i := 37;\r\n    'Right': i := 39;\r\n    '!': i := 56;\r\n    '\"': i := 51;\r\n    '#': i := 51;\r\n    '$': i := 186;\r\n    '%': i := 192;\r\n    '''': i := 52;\r\n    '(': i := 53;\r\n    ')': i := 219;\r\n    '*': i := 106;\r\n    '+': i := 107;\r\n    '-': i := 109;\r\n    ',': i := 44;\r\n    '.': i := 46;\r\n    '/': i := 111;\r\n    '\\': i := 226;\r\n    '=': i := 187;\r\n    '<': i := 226;\r\n    '>': i := 226;\r\n    TJSKeyNames.BackSpace: i := 8;\r\n    TJSKeyNames.Tab: i := 9;\r\n    TJSKeyNames.Enter: i := 13;\r\n    TJSKeyNames.Shift: i := 16;\r\n    TJSKeyNames.Control: i := 17;\r\n    TJSKeyNames.Alt: i := 18;\r\n    TJSKeyNames.Pause: i := 19;\r\n    TJSKeyNames.CapsLock: i := 20;\r\n    TJSKeyNames.Escape: i := 27;\r\n    TJSKeyNames.PageUp: i := 33;\r\n    TJSKeyNames.PageDown: i := 34;\r\n    TJSKeyNames._End: i := 35;\r\n    TJSKeyNames.Home: i := 36;\r\n    TJSKeyNames.ArrowLeft: i := 37;\r\n    TJSKeyNames.ArrowUp: i := 38;\r\n    TJSKeyNames.ArrowRight: i := 39;\r\n    TJSKeyNames.ArrowDown: i := 40;\r\n    TJSKeyNames.Insert: i := 45;\r\n    TJSKeyNames.Delete: i := 46;\r\n\r\n    TJSKeyNames.F1: i := 112;\r\n    TJSKeyNames.F2: i := 113;\r\n    TJSKeyNames.F3: i := 114;\r\n    TJSKeyNames.F4: i := 115;\r\n    TJSKeyNames.F5: i := 116;\r\n    TJSKeyNames.F6: i := 117;\r\n    TJSKeyNames.F7: i := 118;\r\n    TJSKeyNames.F8: i := 119;\r\n    TJSKeyNames.F9: i := 120;\r\n    TJSKeyNames.F10: i := 121;\r\n    TJSKeyNames.F11: i := 122;\r\n    TJSKeyNames.F12: i := 123;\r\n    TJSKeyNames.F13: i := 124;\r\n    TJSKeyNames.F14: i := 125;\r\n    TJSKeyNames.F15: i := 126;\r\n    TJSKeyNames.F16: i := 127;\r\n    TJSKeyNames.F17: i := 128;\r\n    TJSKeyNames.F18: i := 129;\r\n    TJSKeyNames.F19: i := 130;\r\n    TJSKeyNames.F20: i := 131;\r\n    else\r\n    begin\r\n      if Assigned(AValue) and (Length(AValue) > 0) then\r\n      begin\r\n        i := Ord(AValue[1]);\r\n        if IgnoreCase and (i >= 97) and (i <= 122)  then\r\n          i := i and $DF\r\n        else\r\n          if (i >= 65) and (i <= 90) then\r\n            i := i or $40\r\n          else\r\n          if i > 122 then\r\n            i := i or $80;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  Result := i;\r\nend;\r\n\r\nfunction TControl.GetLeft: Integer;\r\nbegin\r\n  Result := FLeft;\r\n  if (Result = -1) and Assigned(ElementHandle) and not (csLoading in ComponentState) then\r\n    Result := Round(ElementHandle.offsetLeft);\r\nend;\r\n\r\nfunction TControl.GetTop: Integer;\r\nbegin\r\n  Result := FTop;\r\n  if (Result = -1) and Assigned(ElementHandle) and not (csLoading in ComponentState) then\r\n    Result := Round(ElementHandle.offsetTop);\r\nend;\r\n\r\nfunction TControl.GetTouchEventShiftState(Event: TJSTouchEvent): TShiftState;\r\nbegin\r\n  Result := [];\r\n  if Event.shiftKey then\r\n    Result := Result + [ssShift];\r\n  if Event.ctrlKey then\r\n    Result := Result + [ssCtrl];\r\n  if Event.altKey then\r\n    Result := Result + [ssAlt];\r\nend;\r\n\r\nfunction TControl.GetWebClassName: string;\r\nbegin\r\n  Result := ClassName;\r\n  Delete(Result, 1, 1);\r\n  Result := 'TWeb' + Result;\r\nend;\r\n\r\nfunction TControl.GetWidth: Integer;\r\nvar\r\n  cr: TJSDOMRect;\r\nbegin\r\n  Result := FWidth;\r\n\r\n  if Assigned(ElementHandle) and not (csLoading in ComponentState) then\r\n  begin\r\n    if (Result = -1) then\r\n    begin\r\n      Result := Round(Int(ElementHandle.offsetWidth));\r\n    end;\r\n\r\n    if (WidthStyle <> ssAbsolute) then\r\n    begin\r\n      cr := ElementHandle.getBoundingClientRect;\r\n      Result := Round(Int(cr.Right - cr.Left));\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TControl.GetHeight: Integer;\r\nvar\r\n  cr: TJSDOMRect;\r\nbegin\r\n  Result := FHeight;\r\n\r\n  if Assigned(ElementHandle) and not (csLoading in ComponentState) then\r\n  begin\r\n    if (Result = -1) then\r\n    begin\r\n      Result := Round(Int(ElementHandle.offsetHeight));\r\n    end;\r\n\r\n    if (HeightStyle <> ssAbsolute) then\r\n    begin\r\n      cr := ElementHandle.getBoundingClientRect;\r\n      Result := Round(Int(cr.Bottom - cr.Top));\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.KeyPreview(var Key: Word; Shift: TShiftState);\r\nbegin\r\n  if Assigned(Owner) and (Owner is TControl) then\r\n  begin\r\n    (Owner as TControl).KeyPreview(Key, Shift);\r\n  end;\r\nend;\r\n\r\nprocedure TControl.KeyDown(var Key: Word; Shift: TShiftState);\r\nbegin\r\n  if Assigned(OnKeyDown) then\r\n    OnKeyDown(Self, Key, Shift);\r\nend;\r\n\r\nprocedure TControl.KeyPress(var Key: Char);\r\nbegin\r\n  if Assigned(OnKeyPress) then\r\n    OnKeyPress(Self, Key);\r\nend;\r\n\r\nprocedure TControl.KeyUp(var Key: Word; Shift: TShiftState);\r\nbegin\r\n  if Assigned(OnKeyUp) then\r\n    OnKeyUp(Self, Key, Shift);\r\nend;\r\n\r\nfunction TControl.LayerHandleDoMouseEnter(Event: TJSMouseEvent): Boolean;\r\nbegin\r\n  if (Event.buttons = 0) and Captured and not FMouseInsideLayer then\r\n  begin\r\n    ReleaseCapture;\r\n    HandleDoMouseUp(Event);\r\n    HandleDoMouseLeave(Event);\r\n  end;\r\n  FMouseInsideLayer := True;\r\n  Result := true;\r\nend;\r\n\r\nfunction TControl.LayerHandleDoMouseLeave(Event: TJSMouseEvent): Boolean;\r\nbegin\r\n  FMouseInsideLayer := False;\r\n  Result := true;\r\nend;\r\n\r\nprocedure TControl.Loaded;\r\nvar\r\n  i: integer;\r\nbegin\r\n  if not (csLoading in ComponentState) then\r\n    Exit;\r\n\r\n  inherited;\r\n\r\n  for i := 0 to ControlCount - 1 do\r\n  begin\r\n    // handle relative child positions\r\n    if (Controls[i].ElementPosition in [epRelative, epIgnore]) and not (Controls[i].IsLinked) and (Controls[i].ChildOrder >= 0) then\r\n    begin\r\n      if (Controls[i].ChildOrder < ChildContainer.childNodes.Length) then\r\n      begin\r\n        ChildContainer.insertBefore(Controls[i].Container, ChildContainer.childNodes[Controls[i].ChildOrder]);\r\n      end;\r\n    end;\r\n    Controls[i].Loaded;\r\n  end;\r\n\r\n  // all remaining child controls set to Loaded\r\n  for i := 0 to ComponentCount - 1 do\r\n  begin\r\n    if (csLoading in Components[i].ComponentState) then\r\n      Components[i].Loaded;\r\n  end;\r\n\r\n  case Align of\r\n    alClient:\r\n    begin\r\n      if Assigned(Parent) then\r\n        SetBoundsInt(0, 0, Parent.FWidth, Parent.FHeight);\r\n    end;\r\n  end;\r\n\r\n  Resize;\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TControl.LoadFromHTML(const HTML: string);\r\nbegin\r\n  if Assigned(ElementHandle) then\r\n    ElementHandle.outerHTML := HTML;\r\nend;\r\n\r\nprocedure TControl.LoadState(AState: string);\r\nbegin\r\n\r\nend;\r\n\r\nfunction TControl.UseCSSFont: boolean;\r\nbegin\r\n  Result := not ((ElementClassName = '') and (ElementFont = efProperty) and not IsLinked);\r\nend;\r\n\r\nfunction TControl.UseCSSFontColor: boolean;\r\nbegin\r\n  Result := not (Application.Themed and (ColorToRGB(Font.Color) = RGB(0,0,0)));\r\nend;\r\n\r\nfunction TControl.HandleAllocated: boolean;\r\nbegin\r\n  Result := True;\r\nend;\r\n\r\nfunction TControl.HandleDoClick(Event: TJSMouseEvent): Boolean;\r\nbegin\r\n  FElementEvent := Event;\r\n  if (eeClick in EventStopPropagation) then\r\n    StopPropagation;\r\n  if Enabled then\r\n    Click;\r\n  Result := True;\r\n  FElementEvent := nil;\r\nend;\r\n\r\nfunction TControl.HandleDoContextMenu(Event: TJSMouseEvent): Boolean;\r\nbegin\r\n  Result := true;\r\nend;\r\n\r\nfunction TControl.HandleDoDblClick(Event: TJSMouseEvent): Boolean;\r\nbegin\r\n  FCaptureDown := False;\r\n  FElementEvent := Event;\r\n  if (eeDblClick in EventStopPropagation) then\r\n    StopPropagation;\r\n  if Enabled then\r\n    DblClick;\r\n  Result := True;\r\n  FElementEvent := nil;\r\nend;\r\n\r\nfunction TControl.HandleDoDragDrop(Event: TJSDragEvent): Boolean;\r\nbegin\r\n  FElementEvent := Event;\r\n  Event.stopPropagation;\r\n  if not FAcceptDrag then\r\n    Event.preventDefault\r\n  else\r\n  begin\r\n    if not IsInputControl then\r\n      Event.preventDefault;\r\n    DragDrop(DragObject, Event.clientX, Event.clientY);\r\n  end;\r\n  Result := FAcceptDrag;\r\n  FElementEvent := nil;\r\nend;\r\n\r\nfunction TControl.HandleDoDragEnd(Event: TJSDragEvent): Boolean;\r\nbegin\r\n  FElementEvent := Event;\r\n  Event.stopPropagation;\r\n  DoEndDrag(DragObject, Event.clientX, Event.clientY);\r\n  Result := True;\r\n  if (DragMode = dmManual) then\r\n    DisableDrag;\r\n  FElementEvent := nil;\r\nend;\r\n\r\nfunction TControl.HandleDoDragEnter(Event: TJSDragEvent): Boolean;\r\nbegin\r\n  FElementEvent := Event;\r\n  Event.stopPropagation;\r\n  FAcceptDrag := IsInputControl;\r\n  DragOver(DragObject, Event.clientX, Event.clientY, dsDragEnter, FAcceptDrag);\r\n  if FAcceptDrag then\r\n    Event.preventDefault;\r\n  Result := not FAcceptDrag;\r\n  FElementEvent := nil;\r\nend;\r\n\r\nfunction TControl.HandledoDragLeave(Event: TJSDragEvent): Boolean;\r\nbegin\r\n  FElementEvent := Event;\r\n  Event.stopPropagation;\r\n  DragOver(DragObject, Event.clientX, Event.clientY, dsDragLeave, FAcceptDrag);\r\n  Result := True;\r\n  FElementEvent := nil;\r\nend;\r\n\r\nfunction TControl.HandleDoDragOver(Event: TJSDragEvent): Boolean;\r\nbegin\r\n  FElementEvent := Event;\r\n  Event.stopPropagation;\r\n  DragOver(DragObject, Event.clientX, Event.clientY, dsDragMove, FAcceptDrag);\r\n  if FAcceptDrag and (not IsInputControl or (Event.dataTransfer.items.length = 0)) then\r\n    Event.preventDefault;\r\n  Result := not FAcceptDrag;\r\n  FElementEvent := nil;\r\nend;\r\n\r\nfunction TControl.HandleDoDragStart(Event: TJSDragEvent): Boolean;\r\nvar\r\n  obj: TDragObject;\r\nbegin\r\n  FElementEvent := Event;\r\n  Event.stopPropagation;\r\n  obj := nil;\r\n  DoStartDrag(obj);\r\n  if Assigned(obj) then\r\n    DragObject := obj\r\n  else\r\n    DragObject := Self;\r\n  Result := True;\r\nend;\r\n\r\n{$HINTS OFF}\r\n\r\nprocedure TControl.XYToClient(X,Y: single; var AClientX, AClientY: single);\r\nvar\r\n  p: TControl;\r\n  cr: TJSDOMRect;\r\n  el: TJSHTMLElement;\r\n  OrigX,OrigY: single;\r\n  norel, formcont: boolean;\r\n  r: TRect;\r\n  cs: TJSCSSStyleDeclaration;\r\n  csx, csy: integer;\r\n  scrollx, scrolly: integer;\r\nbegin\r\n  norel := True;\r\n  formcont := False;\r\n\r\n  scrollx := 0;\r\n  scrolly := 0;\r\n\r\n  if (ElementPosition = epAbsolute) then\r\n  begin\r\n    scrollx := document.body.scrollLeft + document.documentElement.scrollLeft;\r\n    scrolly := document.body.scrollTop + document.documentElement.scrollTop;\r\n    OrigX := X - Left;\r\n    OrigY := Y - Top;\r\n  end\r\n  else\r\n  begin\r\n    norel := false;\r\n    cr := ElementHandle.getBoundingClientRect;\r\n    OrigX := X - cr.Left;\r\n    OrigY := Y - cr.Top;\r\n    AClientX := OrigX;\r\n    AClientY := OrigY;\r\n    Exit;\r\n  end;\r\n\r\n  AClientX := OrigX;\r\n  AClientY := OrigY;\r\n\r\n  p := Parent;\r\n\r\n  if (Self is TCustomForm) and not Assigned(p) and Assigned(Container) then\r\n  begin\r\n    cr := Container.getBoundingClientRect;\r\n    AClientX := AClientX - cr.Left;\r\n    AClientY := AClientY - cr.Top;\r\n  end;\r\n\r\n  while Assigned(p) do\r\n  begin\r\n    if (p.IsLinked) then\r\n    begin\r\n\r\n      if (p is TCustomForm) then\r\n      begin\r\n      // is a form hosted in another HTML element\r\n        cr := p.Container.getBoundingClientRect;\r\n      end\r\n      else\r\n      begin\r\n      // is control linked to HTML element\r\n        cr := p.ElementHandle.getBoundingClientRect;\r\n      end;\r\n\r\n      // subtract the calculated position\r\n      AClientX := AClientX - cr.Left;\r\n      AClientY := AClientY - cr.Top;\r\n\r\n      // if container happens to be a scrollable element\r\n      AClientX := AClientX + p.ElementHandle.scrollLeft;\r\n      AClientY := AClientY + p.ElementHandle.scrollTop;\r\n\r\n      scrollx := 0;\r\n      scrolly := 0;\r\n      break;\r\n    end\r\n    else\r\n    if (p is TCustomForm) then\r\n    begin\r\n      if ((p as TCustomForm).FormContainer <> '') then\r\n      begin\r\n        el := TJSHTMLElement(document.getElementById((p as TCustomForm).FormContainer));\r\n\r\n        if Assigned(el) then\r\n        begin\r\n          formcont := true;\r\n          cr := el.getBoundingClientRect;\r\n          AClientX := AClientX - cr.Left;\r\n          AClientY := AClientY - cr.Top;\r\n        end;\r\n      end;\r\n\r\n      if Assigned((p as TCustomForm).Container) and ((p as TCustomForm).FormContainer = '') and {((p as TCustomForm).FormFileName <> '') and} ((p as TCustomForm).Popup) then\r\n      begin\r\n        cr := (p as TCustomForm).Container.getBoundingClientRect;\r\n        AClientX := AClientX - cr.Left;\r\n        AClientY := AClientY - cr.Top;\r\n        r := (p as TCustomForm).ClientRect;\r\n        AClientY := AClientY + r.Top;\r\n\r\n        scrollx := 0;\r\n        scrolly := 0;\r\n      end;\r\n    end\r\n    else\r\n    // restart calculation from bounding rectangle in case it is relative positioned\r\n    if (p.ElementPosition in [epRelative, epIgnore]) then\r\n    begin\r\n      if Assigned(p.ElementHandle) then\r\n      begin\r\n        cr := p.ElementHandle.getBoundingClientRect;\r\n        AClientX := OrigX - cr.Left;\r\n        AClientY := OrigY - cr.Top;\r\n        scrollx := 0;\r\n        scrolly := 0;\r\n\r\n        // as first relative element, take the BODY margins in account\r\n        if norel then\r\n        begin\r\n          cs := window.getComputedStyle(document.documentElement);\r\n          {$IFDEF PAS2JS}\r\n          asm\r\n            csx = parseInt(cs.marginLeft,10);\r\n            csy = parseInt(cs.marginTop,10)\r\n          end;\r\n          {$ENDIF}\r\n\r\n          AClientX := AClientX + csx;\r\n          AClientY := AClientY + csy;\r\n        end;\r\n        norel := false;\r\n        break;\r\n      end;\r\n    end\r\n    else\r\n    // only subtract for absolute positioned elements\r\n    if (p.ElementPosition = epAbsolute) and norel then\r\n    begin\r\n      AClientX := AClientX - p.Left;\r\n      AClientY := AClientY - p.Top;\r\n      if Assigned(p.ElementHandle) then\r\n      begin\r\n        AClientX := AClientX + p.ElementHandle.scrollLeft;\r\n        AClientY := AClientY + p.ElementHandle.scrollTop;\r\n      end;\r\n\r\n      OrigX := AClientX;\r\n      OrigY := AClientY;\r\n    end;\r\n    p := p.Parent;\r\n  end;\r\n\r\n  // take scroll in account when there was no relative element involved\r\n  if (ElementPosition = epAbsolute) and not formcont then\r\n  begin\r\n    AClientX := AClientX + scrollx;\r\n    AClientY := AClientY + scrolly;\r\n  end;\r\nend;\r\n\r\n{$HINTS ON}\r\n\r\nprocedure TControl.ClientToXY(AClientX, AClientY: single; var X,Y: single);\r\nvar\r\n  p: TControl;\r\n  cr: TJSDOMRect;\r\nbegin\r\n  X := AClientX + Left - document.body.scrollLeft - document.documentElement.scrollLeft;\r\n  Y := AClientY + Top - document.body.scrollTop - document.documentElement.scrollTop;\r\n\r\n  p := Parent;\r\n  while Assigned(p) do\r\n  begin\r\n    if (p.IsLinked) then\r\n    begin\r\n\r\n      if (p is TCustomForm) then\r\n      // is a form hosted in another HTML element\r\n        cr := p.Container.getBoundingClientRect\r\n      else\r\n      // is control linked to HTML element\r\n        cr := p.ElementHandle.getBoundingClientRect;\r\n\r\n      // subtract the calculated position\r\n      X := X + cr.Left;\r\n      Y := Y + cr.Top;\r\n    end;\r\n\r\n    if (p is TCustomForm) then\r\n    begin\r\n\r\n      if Assigned((p as TCustomForm).Container) and ((p as TCustomForm).FormContainer = '') and ((p as TCustomForm).FormFileName <> '') and ((p as TCustomForm).Popup) then\r\n      begin\r\n        cr := (p as TCustomForm).Container.getBoundingClientRect;\r\n        X := X + cr.Left;\r\n        Y := Y + cr.Top;\r\n      end;\r\n    end;\r\n\r\n    // only add for absolute positioned elements\r\n    if (p.ElementPosition = epAbsolute) then\r\n    begin\r\n      X := X + p.Left;\r\n      Y := Y + p.Top;\r\n    end;\r\n\r\n    p := p.Parent;\r\n  end;\r\nend;\r\n\r\nfunction TControl.HandleDoMouseDown(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  l, t: Single;\r\n  ss: TShiftState;\r\n  mb: TMouseButton;\r\nbegin\r\n  FElementEvent := Event;\r\n  if (eeMouseDown in EventStopPropagation) then\r\n    StopPropagation;\r\n\r\n  if not CanFocus then\r\n    PreventDefault;\r\n\r\n  FMouseX := Round(Event.clientX);\r\n  FMouseY := Round(Event.clientY);\r\n\r\n  XYToClient(Event.clientX, Event.clientY, l, t);\r\n\r\n  // click outside scroll area should not trigger mousedown\r\n  if HasVertScrollBar and (l > Width - GetScrollBarWidth) then\r\n    Exit;\r\n\r\n  if HasHorzScrollBar and (t > Height - GetScrollBarHeight) then\r\n    Exit;\r\n\r\n  ss := GetMouseEventShiftState(Event);\r\n  mb := GetMouseEventButton(Event);\r\n\r\n  MouseDown(mb, ss, Trunc(l), Trunc(t));\r\n  Result := True;\r\n  FElementEvent := nil;\r\nend;\r\n\r\nfunction TControl.HandleDoMouseUp(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  l, t: Single;\r\n  ss: TShiftState;\r\n  mb: TMouseButton;\r\nbegin\r\n  FElementEvent := Event;\r\n  if (eeMouseUp in EventStopPropagation) then\r\n    StopPropagation;\r\n\r\n  XYToClient(Event.clientX, Event.clientY, l, t);\r\n\r\n  // click outside scroll area should not trigger mousedown\r\n  if HasVertScrollBar and (l > Width - GetScrollBarWidth) then\r\n  begin\r\n    FElementEvent := nil;\r\n    Exit;\r\n  end;\r\n\r\n  if HasHorzScrollBar and (t > Height - GetScrollBarHeight) then\r\n  begin\r\n    FElementEvent := nil;\r\n    Exit;\r\n  end;\r\n\r\n  ss := GetMouseEventShiftState(Event);\r\n  mb := GetMouseEventButton(Event);\r\n\r\n  if (DragMode = dmManual) then\r\n    DisableDrag;\r\n\r\n  MouseUp(mb, ss, Trunc(l), Trunc(t));\r\n  Result := True;\r\n  FElementEvent := nil;\r\nend;\r\n\r\nfunction TControl.HandleDoWheel(Event: TJSWheelEvent): Boolean;\r\nvar\r\n  ss: TShiftState;\r\n  h: Boolean;\r\n  l,t: single;\r\nbegin\r\n  FElementEvent := Event;\r\n  StopPropagation;\r\n\r\n  XYToClient(Event.clientX, Event.clientY, l, t);\r\n\r\n  FWheelMousePos.X := round(l);\r\n  FWheelMousePos.Y := round(t);\r\n\r\n  ss := GetMouseWheelEventShiftState(Event);\r\n\r\n  h := False;\r\n  MouseWheel(ss, Trunc(-Event.deltay), h);\r\n\r\n  Result := true;\r\n  FElementEvent := nil;\r\nend;\r\n\r\nprocedure TControl.ParentFontChanged;\r\nvar\r\n  i: integer;\r\nbegin\r\n  for i := 0 to ControlCount - 1 do\r\n    begin\r\n      if Controls[i].ParentFont then\r\n      begin\r\n        Controls[i].Font.Assign(Font);\r\n        Controls[i].FontChanged;\r\n        Controls[i].FParentFont := true;\r\n        Controls[i].ParentFontChanged;\r\n      end;\r\n    end;\r\nend;\r\n\r\nprocedure TControl.HandleKeyPreview(Key: Word);\r\nbegin\r\n  //\r\nend;\r\n\r\nprocedure TControl.HandleFontChanged(Sender: TObject);\r\nbegin\r\n  if (FUpdateCount = 0) then\r\n  begin\r\n    ParentFont := false;\r\n    ParentFontChanged;\r\n  end;\r\n\r\n  FontChanged;\r\nend;\r\n\r\nfunction TControl.HasHorzScrollBar: Boolean;\r\nbegin\r\n  Result := False;\r\n\r\n  if Assigned(ElementHandle) then\r\n     Result := ElementHandle.clientWidth < ElementHandle.scrollWidth;\r\nend;\r\n\r\nfunction TControl.HasVertScrollBar: Boolean;\r\nbegin\r\n  Result := False;\r\n\r\n  if Assigned(ElementHandle) then\r\n     Result := ElementHandle.clientHeight < ElementHandle.scrollHeight;\r\nend;\r\n\r\nprocedure TControl.Hide;\r\nbegin\r\n  Visible := false;\r\nend;\r\n\r\nfunction TControl.HandleDoTouchStart(Event: TJSTouchEvent): Boolean;\r\nvar\r\n  l,t: single;\r\n  touch: TJSTouch;\r\n  ss: TShiftState;\r\nbegin\r\n  FElementEvent := Event;\r\n  FLastElementEvent := Event;\r\n\r\n  StopPropagation;\r\n\r\n  if not FAllowTouch then\r\n    PreventDefault;\r\n\r\n  if Event.Touches.length > 0 then\r\n  begin\r\n    touch := Event.touches.Touches[0];\r\n\r\n    XYToClient(touch.clientX, touch.clientY, l, t);\r\n\r\n    ss := GetTouchEventShiftState(Event);\r\n\r\n    if LinkTouchEvents then\r\n    begin\r\n      MouseDown(mbLeft, ss, Trunc(l), Trunc(t));\r\n    end;\r\n\r\n    TouchStart(Trunc(l), Trunc(t));\r\n  end;\r\n  Result := True;\r\n  FElementEvent := nil;\r\nend;\r\n\r\nfunction TControl.HandleDoTouchMove(Event: TJSTouchEvent): Boolean;\r\nvar\r\n  l,t: single;\r\n  touch: TJSTouch;\r\n  ss: TShiftState;\r\nbegin\r\n  FElementEvent := Event;\r\n  FLastElementEvent := Event;\r\n\r\n  StopPropagation;\r\n\r\n  if not FAllowTouch then\r\n    PreventDefault;\r\n\r\n  if Captured then\r\n    PreventDefault;\r\n\r\n  if Event.Touches.length > 0 then\r\n  begin\r\n    touch := Event.touches.Touches[0];\r\n\r\n    XYToClient(touch.clientX, touch.clientY, l, t);\r\n\r\n    ss := GetTouchEventShiftState(Event);\r\n\r\n    if LinkTouchEvents then\r\n      MouseMove(ss, Trunc(l), Trunc(t));\r\n\r\n    TouchMove(Trunc(l), Trunc(t));\r\n  end;\r\n  FElementEvent := nil;\r\n  Result := True;\r\nend;\r\n\r\nfunction TControl.HandleDoTouchEnd(Event: TJSTouchEvent): Boolean;\r\nvar\r\n  l,t: single;\r\n  touch: TJSTouch;\r\n  ss: TShiftState;\r\nbegin\r\n  FElementEvent := Event;\r\n\r\n  if not FAllowTouch then\r\n    PreventDefault;\r\n\r\n  ReleaseCapture;\r\n  StopPropagation;\r\n\r\n  if Assigned(FLastElementEvent) and (TJSTouchEvent(FLastElementEvent).Touches.length > 0) then\r\n  begin\r\n    touch := TJSTouchEvent(FLastElementEvent).touches.Touches[0];\r\n\r\n    XYToClient(touch.clientX, touch.clientY, l, t);\r\n\r\n    ss := GetTouchEventShiftState(Event);\r\n\r\n    if LinkTouchEvents then\r\n    begin\r\n      MouseUp(mbLeft, ss, Trunc(l), Trunc(t));\r\n      if Enabled and not AllowTouch then\r\n        Click;\r\n    end;\r\n\r\n    TouchEnd(Trunc(l), Trunc(t));\r\n  end;\r\n  FElementEvent := nil;\r\n  Result := True;\r\nend;\r\n\r\nfunction TControl.HandleDoTouchCancel(Event: TJSTouchEvent): Boolean;\r\nvar\r\n  l,t: single;\r\n  touch: TJSTouch;\r\n  ss: TShiftState;\r\nbegin\r\n  FElementEvent := Event;\r\n  ReleaseCapture;\r\n  StopPropagation;\r\n\r\n  if Event.Touches.length > 0 then\r\n  begin\r\n    touch := Event.touches.Touches[0];\r\n\r\n    XYToClient(touch.clientX, touch.clientY, l, t);\r\n\r\n    ss := GetTouchEventShiftState(Event);\r\n\r\n    if LinkTouchEvents then\r\n    begin\r\n      MouseUp(mbLeft, ss, Trunc(l), Trunc(t));\r\n    end;\r\n\r\n    TouchCancel(Trunc(l), Trunc(t));\r\n  end;\r\n  FElementEvent := nil;\r\n  Result := True;\r\nend;\r\n\r\nprocedure TControl.DragDrop(Source: TObject; X, Y: Integer);\r\nbegin\r\n  if Assigned(OnDragDrop) then\r\n    OnDragDrop(Self, Source, X, Y);\r\nend;\r\n\r\nprocedure TControl.DragOver(Source: TObject; X, Y: Integer;\r\n  State: TDragState; var Accept: Boolean);\r\nbegin\r\n  if Assigned(OnDragOver) then\r\n    OnDragOver(Self, Source, X, Y, State, Accept);\r\nend;\r\n\r\nprocedure TControl.DoBoundsChange;\r\nvar\r\n  b: boolean;\r\n  frm: TCustomForm;\r\nbegin\r\n  UpdateElementSize;\r\n  RecreateCanvas;\r\n\r\n  if FIsResizing then\r\n    Exit;\r\n\r\n  FIsResizing := true;\r\n\r\n  InternalResize;\r\n\r\n  DoRealign;\r\n\r\n  b := false;\r\n\r\n  frm := GetParentForm(Self);\r\n  if Assigned(frm) then\r\n  begin\r\n    b := frm.IsResizing;\r\n    b := b or (TControl(frm).FUpdateCount > 0);\r\n  end;\r\n\r\n  b := b or (FUpdateCount > 0);\r\n  b := b or FIsAligning;\r\n\r\n  if not b then\r\n  begin\r\n    UpdateChildAnchoring;\r\n  end;\r\n\r\n  FIsResizing := false;\r\nend;\r\n\r\nprocedure TControl.DoEndDrag(Target: TObject; X, Y: Integer);\r\nbegin\r\n  if Assigned(OnEndDrag) then\r\n    OnEndDrag(Self, Target, X, Y);\r\nend;\r\n\r\nprocedure TControl.DoStartDrag(var DragObject: TDragObject);\r\nbegin\r\n  if Assigned(OnStartDrag) then\r\n    OnStartDrag(Self, DragObject);\r\nend;\r\n\r\nfunction TControl.Focused: Boolean;\r\nbegin\r\n  Result := FContainer = document.activeElement;\r\nend;\r\n\r\n\r\nprocedure TControl.FontChanged;\r\nbegin\r\n  UpdateElementVisual;\r\nend;\r\n\r\nfunction TControl.HandleDoMouseLeave(Event: TJSMouseEvent): Boolean;\r\nbegin\r\n  if Captured then\r\n    Exit;\r\n\r\n  Event.stopPropagation;\r\n  DoMouseLeave;\r\n  Result := true;\r\nend;\r\n\r\nfunction TControl.HandleDoMouseEnter(Event: TJSMouseEvent): Boolean;\r\nbegin\r\n  if Captured then\r\n    Exit;\r\n\r\n  Event.stopPropagation;\r\n  DoMouseEnter;\r\n  Result := true;\r\nend;\r\n\r\nfunction TControl.HandleDoMouseMove(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  l, t: Single;\r\n  ss: TShiftState;\r\nbegin\r\n  FElementEvent := Event;\r\n  FCursorX := round(Event.clientX);\r\n  FCursorY := round(Event.clientY);\r\n\r\n  if (eeMouseMove in EventStopPropagation) then\r\n    StopPropagation;\r\n\r\n  XYToClient(Event.clientX, Event.clientY, l, t);\r\n\r\n  ss := GetMouseEventShiftState(Event);\r\n\r\n  MouseMove(ss, Trunc(l), Trunc(t));\r\n  Result := True;\r\n  FElementEvent := nil;\r\nend;\r\n\r\nfunction TControl.HandleDoKeyDown(Event: TJSKeyBoardEvent): Boolean;\r\nvar\r\n  k: Word;\r\n  ss: TShiftState;\r\n  undef: boolean;\r\n\r\nbegin\r\n  FElementEvent := Event;\r\n  if (eeKeyDown in EventStopPropagation) then\r\n    StopPropagation;\r\n\r\n  {$IFDEF PAS2JS}\r\n  asm\r\n    undef = (Event.key == undefined);\r\n  end;\r\n  {$ENDIF}\r\n\r\n  if not undef then\r\n  begin\r\n    k := GetKeyCode(Event.Key, true);\r\n    ss := GetKeyboardEventShiftState(Event);\r\n    KeyDown(k, ss);\r\n\r\n    if (k in [VK_RETURN, VK_ESCAPE, VK_TAB]) then\r\n    begin\r\n      KeyPreview(k, ss);\r\n    end;\r\n  end;\r\n\r\n  Result := True;\r\n  if k = 0 then\r\n    PreventDefault;\r\n\r\n  FElementEvent := nil;\r\nend;\r\n\r\nfunction TControl.HandleDoKeyUp(Event: TJSKeyBoardEvent): Boolean;\r\nvar\r\n  k: Word;\r\n  ss: TShiftState;\r\n  c: Char;\r\n  undef: boolean;\r\nbegin\r\n  FElementEvent := Event;\r\n  if (eeKeyUp in EventStopPropagation) then\r\n    StopPropagation;\r\n  {$IFDEF PAS2JS}\r\n  asm\r\n    undef = (Event.key == undefined);\r\n  end;\r\n  {$ENDIF}\r\n\r\n  if not undef then\r\n  begin\r\n    k := GetKeyCode(Event.Key, true);\r\n\r\n    ss := GetKeyboardEventShiftState(Event);\r\n\r\n    // #27 is not send as char in the browser\r\n    if (k = 27) then\r\n    begin\r\n      c := #27;\r\n      KeyPress(c);\r\n    end;\r\n\r\n    KeyUp(k, ss);\r\n  end;\r\n\r\n  Result := True;\r\n  if k = 0 then\r\n    PreventDefault;\r\n  FelementEvent := nil;\r\nend;\r\n\r\nfunction TControl.HandleDoKeyPress(Event: TJSKeyBoardEvent): Boolean;\r\nvar\r\n  c: Char;\r\nbegin\r\n  FElementEvent := Event;\r\n  if (eeKeyPress in EventStopPropagation) then\r\n    StopPropagation;\r\n\r\n  if IsKeyCharacter(Event.Key) then\r\n  begin\r\n    c := GetKeyChar(Event.Key);\r\n    KeyPress(c);\r\n  end;\r\n\r\n  Result := True;\r\n  if c = #0 then\r\n    PreventDefault;\r\n  FElementEvent := nil;\r\nend;\r\n\r\nfunction TControl.HandleDoInput(Event: TJSInputEvent): Boolean;\r\nvar\r\n  c: Char;\r\n  stemp: string;\r\nbegin\r\n  //Note: On Android the OnKeyPress event is not triggered.\r\n  //The OnInput event is used instead to trigger the OnKeyPress event.\r\n  if IsAndroid then\r\n  begin\r\n    FElementEvent := Event;\r\n    if (eeKeyPress in EventStopPropagation) then\r\n      StopPropagation;\r\n\r\n    c := #0;\r\n    if Event.Data <> '' then\r\n    begin\r\n      stemp := Event.Data;\r\n\r\n      if Assigned(stemp) then\r\n        c := stemp[Length(stemp)]\r\n      else\r\n        c := #8;\r\n\r\n      KeyPress(c);\r\n    end;\r\n\r\n    Result := True;\r\n    if c = #0 then\r\n      PreventDefault;\r\n    FElementEvent := nil;\r\n  end;\r\nend;\r\n\r\nfunction TControl.HandleDoEnter(Event: TJSFocusEvent): Boolean;\r\nbegin\r\n  FElementEvent := Event;\r\n  StopPropagation;\r\n  DoEnter;\r\n  Result := True;\r\n  FElementEvent := nil;\r\n  FGotFocus := True;\r\n  FocusedControlEntered;\r\nend;\r\n\r\nfunction TControl.HandleDoExit(Event: TEventListenerEvent): Boolean;\r\nbegin\r\n  DoExit;\r\n  Result := True;\r\n  FocusedControlExited;\r\nend;\r\n\r\nprocedure TControl.SetParent(AValue: TControl);\r\nvar\r\n  isNew: boolean;\r\nbegin\r\n  if Assigned(AValue) then\r\n    AValue := AValue.CanAcceptChild(Self);\r\n\r\n  isNew := FNew;\r\n\r\n  if (FParent <> AValue) then\r\n  begin\r\n    if Assigned(FParent) then\r\n      FParent.UnRegisterParent(Self);\r\n\r\n    FPrevParent := FParent;\r\n    FParent := AValue;\r\n    FGotFocus := False;\r\n\r\n    UpdateParent;\r\n\r\n    if not (csDestroying in ComponentState) then\r\n    begin\r\n      if not isNew then\r\n        UpdateElement;\r\n      InitScript;\r\n    end;\r\n\r\n    if Assigned(FParent) then\r\n      FParent.RegisterParent(Self);\r\n\r\n    if (csLoading in ComponentState) and Assigned(Parent) and not (csLoading in Parent.ComponentState) then\r\n      Loaded;\r\n\r\n    if Assigned(AValue) and Assigned(Parent) and not Parent.IsUpdating then\r\n    begin\r\n      if Align <> alNone then\r\n        DoRealign\r\n      else\r\n        Realign;\r\n    end;\r\n\r\n    if not (csDestroying in ComponentState) then\r\n      Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.SetParentColor(const Value: boolean);\r\nbegin\r\n  if (FParentColor <> Value) and Value and Assigned(Parent) then\r\n  begin\r\n    Color := Parent.Color;\r\n  end;\r\n\r\n  FParentColor := Value;\r\nend;\r\n\r\nprocedure TControl.SetParentComponent(Value: TComponent);\r\nbegin\r\n  if (Parent <> Value) and (Value is TControl) then\r\n   SetParent(TControl(Value));\r\nend;\r\n\r\nprocedure TControl.SetParentElement(const Value: TJSHTMLElement);\r\nbegin\r\n  if FNew then\r\n  begin\r\n    FElementPosition := epRelative;\r\n    CreateControl;\r\n    FParentElement := Value;\r\n\r\n    if Assigned(FParentElement) then\r\n    begin\r\n      FParentElement.appendChild(Container);\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    if Assigned(FParentElement) then\r\n      FParentElement.removeChild(Container);\r\n\r\n    FParentElement := Value;\r\n\r\n    if Assigned(FParentElement) then\r\n      FParentElement.appendChild(Container);\r\n\r\n    UpdateElement;\r\n  end;\r\n\r\n  InitScript;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TControl.SetParentElementID(const Value: string);\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  FParentElementID := Value;\r\n\r\n  el := TJSHTMLElement(document.getElementById(FParentElementID));\r\n\r\n  if Assigned(el) then\r\n    SetParentElement(el);\r\nend;\r\n\r\nprocedure TControl.SetParentFont(const Value: boolean);\r\nbegin\r\n  if (Value <> FParentFont) and (Value) and Assigned(Parent) then\r\n  begin\r\n    BeginUpdate;\r\n    Font.Assign(Parent.Font);\r\n    EndUpdate;\r\n    UpdateElement;\r\n  end;\r\n\r\n  FParentFont := Value;\r\nend;\r\n\r\nprocedure TControl.SetRequiredScripts(const Value: TStringList);\r\nbegin\r\n  FRequiredScripts.Assign(Value);\r\nend;\r\n\r\nprocedure TControl.SetRole(const Value: string);\r\nbegin\r\n  FRole := Value;\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    if Value = '' then\r\n      ElementHandle.removeAttribute('role')\r\n    else\r\n      ElementHandle.setAttribute('role', Value);\r\n  end;\r\nend;\r\n\r\nprocedure TControl.Realign;\r\nbegin\r\n  AlignControl(Self);\r\nend;\r\n\r\nprocedure TControl.RecreateCanvas;\r\nbegin\r\nend;\r\n\r\nprocedure TControl.RecreateElement;\r\nbegin\r\n  if Assigned(Container) then\r\n  begin\r\n    UnbindEvents;\r\n    Container.parentNode.removeChild(Container);\r\n    FElement := nil;\r\n    CreateControl;\r\n\r\n    if Assigned(Parent) and Assigned(Parent.Container) then\r\n      Parent.ChildContainer.appendChild(Container);\r\n  end;\r\nend;\r\n\r\nprocedure TControl.RegisterParent(AValue: TControl);\r\nbegin\r\n  SetLength(FControls, Length(FControls) + 1);\r\n  FControls[Length(FControls) - 1] := AValue;\r\nend;\r\n\r\nprocedure TControl.ReleaseCapture;\r\nvar\r\n  eh: TJSHTMLElement;\r\nbegin\r\n  FCaptureDown := False;\r\n\r\n  if FCaptured and Assigned(FLayer) then\r\n  begin\r\n    eh := TJSHTMLElement(FLayer);\r\n    eh.removeEventListener('mouseenter', FLayerMouseEnterPtr);\r\n    eh.removeEventListener('mouseleave', FLayerMouseLeavePtr);\r\n    eh.removeEventListener('mousedown', FMouseDownPtr);\r\n    eh.removeEventListener('mouseup', FMouseUpPtr);\r\n    eh.removeEventListener('mousemove', FMouseMovePtr);\r\n    eh.removeEventListener('touchstart', FTouchStartPtr);\r\n    eh.removeEventListener('touchmove', FTouchMovePtr);\r\n    eh.removeEventListener('touchend', FTouchEndPtr);\r\n    eh.removeEventListener('touchcancel', FTouchEndPtr);\r\n\r\n    document.body.removeChild(eh);\r\n    FCaptured := False;\r\n    FLayer := nil;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.ResetAnchoring;\r\nbegin\r\n  FOrigRect := Rect(-1,-1,-1,-1);\r\n  InitAnchoring;\r\nend;\r\n\r\nprocedure TControl.Resize;\r\nbegin\r\n  if Assigned(FOnResize) then\r\n    FOnResize(Self);\r\nend;\r\n\r\nfunction TControl.AnchoringInitialized: boolean;\r\nbegin\r\n  Result := (OrigRect.Left <> -1) or (OrigRect.Top <> -1);\r\nend;\r\n\r\nprocedure TControl.InitAnchoring;\r\nvar\r\n  i,dx,dy: integer;\r\n\r\n  procedure SizeBorderOffset(AObject: TObject; var ax,ay: integer);\r\n  var\r\n    prop: TTypeMemberProperty;\r\n  begin\r\n    ax := 0;\r\n    ay := 0;\r\n    prop := GetPropInfo(AObject.ClassInfo, 'BorderStyle');\r\n    if Assigned(prop) then\r\n    begin\r\n      i := GetOrdProp(AObject, prop);\r\n      if i in [1,4,5] then\r\n      begin\r\n        ax := 4;\r\n        ay := 4;\r\n      end;\r\n      if i in [2,3] then\r\n      begin\r\n        ax := 16;\r\n        ay := 16;\r\n      end;\r\n    end;\r\n  end;\r\n\r\nbegin\r\n  if AnchoringInitialized then\r\n    Exit;\r\n\r\n  dx := 0;\r\n  dy := 0;\r\n\r\n  if (Self is TForm) then\r\n  begin\r\n    if (self as TForm).IsMiletus then\r\n      SizeBorderOffset(Self, dx,dy);\r\n\r\n    FOrigRect := Rect(0, 0, GetDesignWidth - dx, GetDesignHeight - dy);\r\n  end\r\n  else\r\n  begin\r\n    FOrigRect := Rect(GetDesignLeft, GetDesignTop, GetDesignLeft + GetDesignWidth, GetDesignTop + GetDesignHeight);\r\n  end;\r\n\r\n  if Assigned(Parent) then\r\n  begin\r\n    if (Parent is TForm) then\r\n    begin\r\n      if (Parent as TForm).IsMiletus then\r\n      begin\r\n        SizeBorderOffset(Parent, dx,dy);\r\n      end;\r\n      FOrigParentRect := Rect(0, 0, Parent.GetDesignWidth - dx, Parent.GetDesignHeight - dy)\r\n    end\r\n    else\r\n    begin\r\n      //InitAnchoring;\r\n      if not Parent.AnchoringInitialized then\r\n        Parent.InitAnchoring;\r\n\r\n      FOrigParentRect := Rect(Parent.GetDesignLeft, Parent.GetDesignTop, Parent.GetDesignLeft + Parent.GetDesignWidth, Parent.GetDesignTop + Parent.GetDesignHeight);\r\n    end;\r\n  end;\r\n\r\n  for i := 0 to ControlCount - 1 do\r\n    Controls[i].InitAnchoring;\r\nend;\r\n\r\nprocedure TControl.InjectCSS;\r\nvar\r\n  cssname,css: string;\r\n  cssmgr: TCSSCodeManager;\r\nbegin\r\n  cssname := GetWebClassname;\r\n\r\n  css := '';\r\n\r\n  cssmgr := GetCSSManager;\r\n\r\n  if Assigned(cssmgr) then\r\n    css := cssmgr.GetClassCSS(cssname);\r\n\r\n  if (css <> '') then\r\n    AddControlStyle(css);\r\nend;\r\n\r\nprocedure TControl.InternalResize;\r\nbegin\r\n  if (csLoading in ComponentState) then\r\n    Exit;\r\n\r\n  Resize;\r\nend;\r\n\r\nprocedure TControl.InternalUpdateParent;\r\nvar\r\n  p: TControl;\r\nbegin\r\n  p := FPrevParent;\r\n  if FNew then\r\n  begin\r\n    CreateControl;\r\n\r\n    if Assigned(Container) then\r\n    begin\r\n      if Assigned(Parent) and not Assigned(Parent.Container) then\r\n        Parent.CreateControl;\r\n\r\n      if (Parent <> p) and Assigned(p) and Assigned(p.Container) then\r\n      begin\r\n        if Container.parentNode = p.ChildContainer then\r\n          p.ChildContainer.removeChild(Container);\r\n        end;\r\n\r\n      if Assigned(Parent) and Assigned(Parent.Container) then\r\n      begin\r\n        Parent.ChildContainer.appendChild(Container);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TControl.IsEnabled: boolean;\r\nbegin\r\n  Result := FEnabled;\r\nend;\r\n\r\nfunction TControl.IsFocused: Boolean;\r\nbegin\r\n  Result := FContainer = document.activeElement;\r\nend;\r\n\r\nfunction TControl.IsInputControl: Boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n\r\nfunction TControl.IsKeyCharacter(AValue: string): Boolean;\r\nbegin\r\n  case AValue of\r\n    'Up',\r\n    'Down',\r\n    'Left',\r\n    'Right',\r\n    TJSKeyNames.Shift,\r\n    TJSKeyNames.Control,\r\n    TJSKeyNames.Alt,\r\n    TJSKeyNames.Pause,\r\n    TJSKeyNames.CapsLock,\r\n    TJSKeyNames.PageUp,\r\n    TJSKeyNames.PageDown,\r\n    TJSKeyNames._End,\r\n    TJSKeyNames.Home,\r\n    TJSKeyNames.ArrowLeft,\r\n    TJSKeyNames.ArrowUp,\r\n    TJSKeyNames.ArrowRight,\r\n    TJSKeyNames.ArrowDown,\r\n    TJSKeyNames.Insert,\r\n    TJSKeyNames.Delete,\r\n    TJSKeyNames.F1,\r\n    TJSKeyNames.F2,\r\n    TJSKeyNames.F3,\r\n    TJSKeyNames.F4,\r\n    TJSKeyNames.F5,\r\n    TJSKeyNames.F6,\r\n    TJSKeyNames.F7,\r\n    TJSKeyNames.F8,\r\n    TJSKeyNames.F9,\r\n    TJSKeyNames.F10,\r\n    TJSKeyNames.F11,\r\n    TJSKeyNames.F12,\r\n    TJSKeyNames.F13,\r\n    TJSKeyNames.F14,\r\n    TJSKeyNames.F15,\r\n    TJSKeyNames.F16,\r\n    TJSKeyNames.F17,\r\n    TJSKeyNames.F18,\r\n    TJSKeyNames.F19,\r\n    TJSKeyNames.F20: Result := False;\r\n    else\r\n      Result := True;\r\n  end;\r\nend;\r\n\r\nfunction TControl.IsStructuralElement: boolean;\r\nbegin\r\n  Result := false;\r\nend;\r\n\r\nprocedure TControl.UnbindEvents;\r\nvar\r\n  eh: TJSEventTarget;\r\nbegin\r\n  ReleaseCapture;\r\n\r\n  if Assigned(ElementBindHandle) then\r\n  begin\r\n    eh := ElementBindHandle;\r\n\r\n    eh.removeEventListener('wheel', FWheelPtr);\r\n    eh.removeEventListener('click', FClickPtr);\r\n    eh.removeEventListener('dblclick', FDblClickPtr);\r\n    eh.removeEventListener('mousedown', FMouseDownPtr);\r\n    eh.removeEventListener('mouseup', FMouseUpPtr);\r\n    eh.removeEventListener('mousemove', FMouseMovePtr);\r\n    eh.removeEventListener('mouseleave', FMouseLeavePtr);\r\n    eh.removeEventListener('mouseenter', FMouseEnterPtr);\r\n    eh.removeEventListener('keydown', FKeyDownPtr);\r\n    eh.removeEventListener('keyup', FKeyUpPtr);\r\n    eh.removeEventListener('keypress', FKeyPressPtr);\r\n    eh.removeEventListener('focus', FEnterPtr);\r\n    eh.removeEventListener('blur', FExitPtr);\r\n    eh.removeEventListener('input', FInputPtr);\r\n\r\n    eh.removeEventListener('touchstart', FTouchStartPtr);\r\n    eh.removeEventListener('touchmove', FTouchMovePtr);\r\n    eh.removeEventListener('touchend', FTouchEndPtr);\r\n    eh.removeEventListener('touchcancel', FTouchEndPtr);\r\n\r\n    eh.removeEventListener('contextmenu', FContextMenuPtr);\r\n  end;\r\nend;\r\n\r\nprocedure TControl.UnRegisterParent(AValue: TControl);\r\nvar\r\n  i: Integer;\r\n  flg: Boolean;\r\nbegin\r\n  flg := false;\r\n\r\n  for i := 0 to Length(FControls) - 1 do\r\n  begin\r\n    if (FControls[i] = AValue) then\r\n    begin\r\n      flg := True;\r\n    end;\r\n\r\n    if (flg) and (i < Length(FControls) - 1) then\r\n      FControls[i] := FControls[i + 1];\r\n  end;\r\n\r\n  if flg then\r\n    SetLength(FControls, Length(FControls) - 1);\r\nend;\r\n\r\nprocedure TControl.UpdateAnchoring;\r\nvar\r\n  dxr,dyr: integer;\r\n  dxo,dyo: integer;\r\n  dxw,dyw: integer;\r\n  br,r: TRect;\r\nbegin\r\n  if (csLoading in ComponentState) then\r\n    Exit;\r\n\r\n  if not FControlCreated then\r\n    Exit;\r\n\r\n  if (OrigRect.Left = -1) and (OrigRect.Top = -1) then\r\n    InitAnchoring;\r\n\r\n  if Assigned(Parent) and not Parent.AnchoringInitialized then\r\n    Exit;\r\n\r\n  if (Align <> alClient) then\r\n  begin\r\n    if Assigned(Parent) and not (Self is TForm) then\r\n    begin\r\n      r := Parent.BoundsRect;\r\n\r\n      dxr := (r.Right - r.Left) - (FOrigParentRect.Right - FOrigParentRect.Left);\r\n      dyr := (r.Bottom - r.Top) - (FOrigParentRect.Bottom - FOrigParentRect.Top);\r\n\r\n      br := FOrigRect;\r\n\r\n      dxo := 0;\r\n      dyo := 0;\r\n      dxw := 0;\r\n      dyw := 0;\r\n\r\n      if (akRight in Anchors) then\r\n      begin\r\n        if (akLeft in Anchors) then\r\n          dxw := dxr\r\n        else\r\n          dxo := dxr;\r\n      end;\r\n\r\n      if (akBottom in Anchors) then\r\n      begin\r\n        if (akTop in Anchors) then\r\n          dyw := dyr\r\n        else\r\n          dyo := dyr;\r\n      end;\r\n\r\n      if (akBottom in Anchors) or (akRight in Anchors) then\r\n      begin\r\n        SetBoundsInt(br.Left + dxo, br.Top + dyo, br.Right - br.Left + dxw, br.Bottom - br.Top  + dyw);\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  UpdateChildAnchoring;\r\nend;\r\n\r\nprocedure TControl.UpdateChildAnchoring;\r\nvar\r\n  i: integer;\r\nbegin\r\n  for i := 0 to ControlCount - 1 do\r\n  begin\r\n    Controls[i].UpdateAnchoring;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.UpdateChildren(AControl: TControl);\r\nvar\r\n  I: Integer;\r\n  c: TControl;\r\nbegin\r\n  if Assigned(AControl) and not (csDestroying in ComponentState) then\r\n  begin\r\n    if (AControl.Align <> alNone)  then\r\n      AControl.DoRealign;\r\n\r\n    if (AControl is TCustomControl) then\r\n    begin\r\n      (AControl as TCustomControl).RecreateCanvas;\r\n      (AControl as TCustomControl).Invalidate;\r\n    end;\r\n\r\n    for I := 0 to AControl.ControlCount - 1 do\r\n    begin\r\n      c := AControl.Controls[I];\r\n      UpdateChildren(c);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TControl.PersistinHTML;\r\nvar\r\n  i: integer;\r\nbegin\r\n  for i := 0 to ControlCount - 1 do\r\n    Controls[i].PersistinHTML;\r\nend;\r\n\r\nprocedure TControl.InitFromHTML;\r\nvar\r\n  i: integer;\r\nbegin\r\n  for i := 0 to ControlCount - 1 do\r\n    Controls[i].InitFromHTML;\r\nend;\r\n\r\nprocedure TControl.InitScript;\r\nbegin\r\n  // script to initialize any javascript control\r\nend;\r\n\r\nprocedure TControl.PreventDefault;\r\nbegin\r\n  if Assigned(ElementEvent) then\r\n    ElementEvent.preventDefault;\r\nend;\r\n\r\nprocedure TControl.UpdateElement;\r\nbegin\r\n  if FBlockUpdateElement or (FUpdateCount > 0) then\r\n    Exit;\r\n\r\n  if Assigned(ElementHandle) and (ElementHandle <> ContainerElement) and not IsUpdating then\r\n  begin\r\n    UpdateElementData;\r\n\r\n    if not IsLinked then\r\n    begin\r\n      UpdateElementVisual;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TControl.UpdateElementData;\r\nvar\r\n  frm: TCustomForm;\r\n  el: TJSHTMLElement;\r\n  AToolTip, ToolTipClass, ToolTipPos: string;\r\n  ToolTipPause, ToolTipHidePause: integer;\r\n  tt: JSValue;\r\n  isBootstrap: boolean;\r\nbegin\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    if not (csDesigning in ComponentState) then\r\n    begin\r\n      if Visible then\r\n        GetElementStyle.setProperty('display', '')\r\n      else\r\n        GetElementStyle.setProperty('display', 'none');\r\n    end;\r\n\r\n    EnableTab;\r\n\r\n    if Assigned(FContainer) then\r\n    begin\r\n      if IsEnabled then\r\n        FContainer.removeAttribute('disabled')\r\n      else\r\n        FContainer.setAttribute('disabled','');\r\n    end;\r\n\r\n    if IsLinked and (Hint = '') then\r\n      Exit;\r\n\r\n    if Assigned(FContainer) and (Role <> '') then\r\n      FContainer['role'] := FRole;\r\n\r\n    frm := GetParentForm(Self);\r\n\r\n    isBootstrap := Assigned(frm) and (frm.CSSLibrary = cssBootstrap);\r\n    if isBootstrap and ShowHint and (Hint <> '') then\r\n    begin\r\n      el := ElementHandle;\r\n      AToolTip := Hint;\r\n      case Application.HintPosition of\r\n      hpLeft: ToolTipPos := 'left';\r\n      hpRight: ToolTipPos := 'right';\r\n      hpTop: ToolTipPos := 'top';\r\n      hpBottom: ToolTipPos := 'bottom';\r\n      end;\r\n      ToolTipClass := Application.HintClassName;\r\n      ToolTipPause := Application.HintPause;\r\n      ToolTipHidePause := Application.HintHidePause;\r\n      tt := FToolTip;\r\n      asm\r\n        if (tt) { tt.dispose(); }\r\n        el.setAttribute('title',AToolTip);\r\n        tt = new bootstrap.Tooltip(el, {\r\n        title: AToolTip,\r\n        trigger: 'hover',\r\n        placement: ToolTipPos,\r\n        customClass: ToolTipClass,\r\n        delay: { \"show\": ToolTipPause, \"hide\": ToolTipHidePause }\r\n        });\r\n      end;\r\n      FToolTip := tt;\r\n    end\r\n    else\r\n    begin\r\n      if Assigned(FContainer) then\r\n      begin\r\n        if ShowHint and (Hint <> '') then\r\n        begin\r\n          if isBootstrap then\r\n            FContainer['data-title'] := Hint\r\n          else\r\n            FContainer['title'] := Hint;\r\n        end\r\n        else\r\n        begin\r\n          if isBootstrap then\r\n            FContainer.removeAttribute('data-title')\r\n          else\r\n            FContainer.removeAttribute('title');\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    if not IsEnabled or (ElementFont = efCSS) then\r\n      GetElementStyle.removeProperty('color')\r\n    else // restore color when font color is used\r\n      if UseCSSFontColor then\r\n        GetElementStyle.setProperty('color',ColorToHTML(Font.Color));\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TControl.UpdateElementSize;\r\nvar\r\n  es: TJSCSSStyleDeclaration;\r\n  offsLeft,offsTop,ow: integer;\r\n  ctrl: TControl;\r\n  cr: TJSDOMRect;\r\n\r\nbegin\r\n  if FBlockUpdateElement or (FUpdateCount > 0) then\r\n    Exit;\r\n\r\n  if IsLinked then\r\n    Exit;\r\n\r\n  if Assigned(ElementHandle) and (ElementHandle <> ContainerElement) then\r\n  begin\r\n    es := GetElementStyle;\r\n\r\n    offsLeft := 0;\r\n    offsTop := 0;\r\n\r\n    ctrl := Parent;\r\n    while Assigned(ctrl) and (ElementPosition = epAbsolute) and (ctrl.ElementPosition <> epAbsolute) and not (ctrl is TCustomForm) do\r\n    begin\r\n      // found in the hierarchy a free floating control, so take its position in account\r\n      if ctrl.IsLinked and Assigned(ctrl.ElementHandle) and (ctrl.ElementHandle.style.getPropertyValue('position') <> 'absolute') then\r\n      begin\r\n        cr := ctrl.ElementHandle.getBoundingClientRect;\r\n        offsLeft := Round(cr.Left);\r\n        offsTop := Round(cr.Top);\r\n        // the relative control sits in an absolute positioned control\r\n        if Assigned(ctrl.Parent) and Assigned(ctrl.Parent.ElementHandle) and (ctrl.Parent.ElementHandle.style.getPropertyValue('position') = 'absolute')  then\r\n        begin\r\n          cr := ctrl.parent.ElementHandle.getBoundingClientRect;\r\n          offsLeft := offsLeft - Round(cr.left);\r\n          offsTop := offsTop - Round(cr.Top);\r\n        end;\r\n\r\n        break;\r\n      end;\r\n      ctrl := ctrl.Parent;\r\n    end;\r\n\r\n    if Assigned(Parent) and (Parent.IsStructuralElement) then\r\n    begin\r\n      offsLeft := Parent.Left;\r\n      offsTop := Parent.Top;\r\n    end;\r\n\r\n    if (ElementPosition = epAbsolute) then\r\n    begin\r\n      if FTop <> -1 then\r\n        es.setProperty('top', IntToStr(FTop + offsTop) + 'px')\r\n      else\r\n        es.setProperty('top', '');\r\n\r\n      if FLeft <> -1 then\r\n        es.setProperty('left', IntToStr(FLeft + offsLeft) + 'px')\r\n      else\r\n        es.setProperty('left', '');\r\n    end\r\n    else\r\n    begin\r\n      es.removeProperty('top');\r\n      es.removeProperty('left');\r\n    end;\r\n\r\n    if (FWidthStyle = ssAbsolute) then\r\n    begin\r\n      ow := GetOuterWidth;\r\n      if FWidth <> -1 then\r\n        es.setProperty('width', IntToStr(ow) + 'px')\r\n      else\r\n        es.removeProperty('width');\r\n    end;\r\n\r\n    if (FWidthStyle = ssAuto) then\r\n    begin\r\n      es.removeProperty('width');\r\n    end;\r\n\r\n    if (FHeightStyle = ssAbsolute) then\r\n    begin\r\n      if FHeight <> -1 then\r\n        es.setProperty('height', IntToStr(GetOuterHeight) + 'px')\r\n      else\r\n        es.removeProperty('height');\r\n    end;\r\n\r\n    if (FHeightStyle = ssAuto) then\r\n    begin\r\n      es.removeProperty('height');\r\n    end;\r\n\r\n    if (FWidthStyle = ssPercent) then\r\n    begin\r\n      if FWidth <> -1 then\r\n        es.setProperty('width', FormatProp('%.2f%%',[FWidthPercent]))\r\n      else\r\n        es.removeProperty('width');\r\n    end;\r\n\r\n    if (FHeightStyle = ssPercent) then\r\n    begin\r\n      if FHeight <> -1 then\r\n        es.setProperty('height', FormatProp('%.2f%%',[FHeightPercent]))\r\n      else\r\n        es.removeProperty('height');\r\n    end;\r\n\r\n    if FElementPosition = epAbsolute then\r\n      es.setProperty('position', 'absolute')\r\n    else if FElementPosition = epRelative then\r\n      es.setProperty('position', 'relative')\r\n    else\r\n      es.removeProperty('position');\r\n\r\n    es.setProperty('box-sizing','border-box');\r\n  end;\r\nend;\r\n\r\nprocedure TControl.UpdateElementVisual;\r\nvar\r\n  eh: TJSHTMLElement;\r\n  es: TJSCSSStyleDeclaration;\r\n  useCSS: boolean;\r\nbegin\r\n  eh := ElementHandle;\r\n\r\n  if not Assigned(eh) then\r\n    Exit;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  es := GetElementStyle;\r\n\r\n//  if (csLoading in ComponentState) then\r\n//    Exit;\r\n\r\n  if ParentFont and Assigned(Parent) then\r\n  begin\r\n    Font.OnChange := nil;\r\n    Font.Assign(Parent.Font);\r\n    Font.OnChange := HandleFontChanged;\r\n  end;\r\n\r\n  if (ElementClassName = '') then\r\n  begin\r\n    if not isLinked then\r\n    begin\r\n      if ClipChildren and (LowerCase(eh.tagName) <> cBodyTag) then\r\n        es.setProperty('overflow', 'hidden')\r\n      else\r\n        es.setProperty('overflow', '');\r\n    end;\r\n\r\n    SetElementPointer(eh, Cursor);\r\n  end;\r\n\r\n  if Captured then\r\n    TJSHTMLElement(FLayer).style.setProperty('cursor', es.getPropertyValue('cursor'));\r\n\r\n  if (ElementClassName <> '') or CanShowFocus then\r\n    es.setProperty('outline', '')\r\n  else\r\n    es.setProperty('outline', 'none');\r\n\r\n  UpdateElementSize;\r\n\r\n  case FTextDirection of\r\n  tdDefault: es.removeProperty('direction');\r\n  tdRightToLeft: es.setProperty('direction','rtl');\r\n  tdLeftToRight: es.setProperty('direction','ltr');\r\n  tdInherit: es.setProperty('direction','inherit');\r\n  end;\r\n\r\n  if (ElementClassName = '') and FNoUserSelect then\r\n  begin\r\n    es.setProperty('webkit-user-select', 'none');\r\n    es.setProperty('moz-user-select', 'none');\r\n    es.setProperty('khtml-user-select', 'none');\r\n    es.setProperty('ms-user-select', 'none');\r\n    es.setProperty('user-select', 'none');\r\n    es.setProperty('-webkit-tap-highlight-color', 'transparent');\r\n  end;\r\n\r\n  SetElementColor(eh, Color);\r\n\r\n  useCSS := UseCSSFont;\r\n\r\n  if not isLinked then\r\n    SetHTMLElementFont(eh, Font, useCSS);\r\n\r\n  if not useCSS then\r\n  begin\r\n    if IsEnabled and UseCSSFontColor then\r\n      es.setProperty('color', ColorToHtml(Font.Color));\r\n  end\r\n  else\r\n  begin\r\n    es.removeProperty('color');\r\n  end;\r\nend;\r\n\r\nprocedure TControl.UpdateParent;\r\nbegin\r\n  InternalUpdateParent;\r\n  UpdateChildren(FPrevParent);\r\n  UpdateChildren(Parent);\r\nend;\r\n\r\nprocedure TControl.UpdateSize;\r\nvar\r\n  i: integer;\r\nbegin\r\n  UpdateElementSize;\r\n  for i := 0 to ControlCount - 1 do\r\n    Controls[i].UpdateSize;\r\nend;\r\n\r\nprocedure TControl.UpdateControlSize(AWidth, AHeight: integer);\r\nbegin\r\n  FWidth := AWidth;\r\n  FHeight := AHeight;\r\nend;\r\n\r\nprocedure TControl.VisibleChanged;\r\nvar\r\n  i: integer;\r\nbegin\r\n  for i := 0 to ControlCount - 1 do\r\n  begin\r\n    Controls[i].VisibleChanged;\r\n  end;\r\nend;\r\n\r\nfunction TControl.EnterChildren(AObject: IControl): Boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n\r\nfunction TControl.ExitChildren(AObject: IControl): Boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n\r\nprocedure TControl.FocusedControlEntered;\r\nvar\r\n  p: TControl;\r\n  c: IControl;\r\nbegin\r\n  P := Parent;\r\n  while p <> nil do\r\n    if Supports(p, IControl, c) and c.EnterChildren(Self) then\r\n      Break\r\n    else\r\n      p := p.Parent;\r\nend;\r\n\r\nprocedure TControl.FocusedControlExited;\r\nvar\r\n  p: TControl;\r\n  c: IControl;\r\nbegin\r\n  p := Parent;\r\n  while p <> nil do\r\n    if Supports(p, IControl, c) and c.ExitChildren(Self) then\r\n      Break\r\n    else\r\n      p := p.Parent;\r\nend;\r\n\r\nprocedure TControl.VisibleChanging;\r\nbegin\r\n\r\nend;\r\n\r\nfunction TControl.GetBoundsRect: TRect;\r\nbegin\r\n  Result.Left := Left;\r\n  Result.Top := Top;\r\n  Result.Right := Left + Width;\r\n  Result.Bottom := Top + Height;\r\nend;\r\n\r\nfunction TControl.GetControlsCount: Integer;\r\nbegin\r\n  Result := Length(FControls);\r\nend;\r\n\r\nfunction TControl.GetCSSManager: TCSSCodeManager;\r\nvar\r\n  frm: TCustomForm;\r\n  i: integer;\r\nbegin\r\n  Result := nil;\r\n\r\n  frm := GetParentForm(Self);\r\n\r\n  if Assigned(frm) then\r\n  begin\r\n    for i := 0 to frm.ComponentCount - 1 do\r\n    begin\r\n      if frm.Components[i] is TCSSCodeManager then\r\n      begin\r\n        Result := frm.Components[i] as TCSSCodeManager;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TControl.GetDesignHeight: integer;\r\nbegin\r\n  Result := FHeight;\r\nend;\r\n\r\nfunction TControl.GetDesignLeft: integer;\r\nbegin\r\n  Result := FLeft;\r\nend;\r\n\r\nfunction TControl.GetDesignTop: integer;\r\nbegin\r\n  Result := FTop;\r\nend;\r\n\r\nfunction TControl.GetDesignWidth: integer;\r\nbegin\r\n  Result := FWidth;\r\nend;\r\n\r\nfunction TControl.GetContainer: TJSElement;\r\nbegin\r\n  Result := FContainer;\r\nend;\r\n\r\nfunction TControl.GetControls(Index: Integer): TControl;\r\nbegin\r\n  Result := FControls[Index];\r\nend;\r\n\r\nprocedure TControl.DoEnter;\r\nbegin\r\n  if Assigned(OnEnter) then\r\n    OnEnter(Self);\r\nend;\r\n\r\nprocedure TControl.DoExit;\r\nbegin\r\n  if Assigned(OnExit) then\r\n    OnExit(Self);\r\nend;\r\n\r\n{ TCustomControl }\r\n\r\nprocedure TCustomControl.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  ControlStyle := ControlStyle + [csSetCaption];\r\n  FBorderStyle := bsSingle;\r\n  FBorderColor := clSilver;\r\n  FPainting := false;\r\n  FWidth := 100;\r\n  FHeight := 25;\r\n  FWidthPercent := 100;\r\n  FHeightPercent := 100;\r\n  FCustomBorder := false;\r\nend;\r\n\r\nprocedure TCustomControl.BindElement;\r\nbegin\r\n  if (Container.TagName <> 'CANVAS') and not FControlCreated then\r\n  begin\r\n    FElementCanvas := TJSHTMLCanvasElement(document.createElement('CANVAS'));\r\n    Container.appendChild(FElementCanvas);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomControl.BindEvents;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TCustomControl.CreateControl;\r\nbegin\r\n  inherited;\r\n  RecreateCanvas;\r\nend;\r\n\r\nfunction TCustomControl.CreateElement: TJSElement;\r\nbegin\r\n  FElementCanvas := TJSHTMLCanvasElement(document.createElement('CANVAS'));\r\n  if csAcceptsControls in ControlStyle then\r\n  begin\r\n    Result := document.createElement('SPAN');\r\n    Result.appendChild(FElementCanvas);\r\n    if ElementID <> '' then\r\n      FElementCanvas['id'] := ElementID + '_Canvas';\r\n    FElementCanvas['zindex'] := '-1';\r\n  end\r\n  else\r\n    Result := FElementCanvas;\r\nend;\r\n\r\ndestructor TCustomControl.Destroy;\r\nbegin\r\n  if Assigned(FCanvas) then\r\n    FCanvas.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TCustomControl.EndUpdate;\r\nbegin\r\n  inherited;\r\n  if FUpdateCount = 0 then\r\n    Invalidate;\r\nend;\r\n\r\nfunction TCustomControl.Focused: boolean;\r\nbegin\r\n  Result := inherited Focused;\r\nend;\r\n\r\nfunction TCustomControl.GetCanvas: TCanvas;\r\nbegin\r\n  if not Assigned(FCanvas) then\r\n  begin\r\n    if not IsLinked then\r\n      CreateControl\r\n    else\r\n    begin\r\n      if not Assigned(FElementCanvas) then\r\n        FElementCanvas := TJSHTMLCanvasElement(document.getElementById(ElementID));\r\n      RecreateCanvas;\r\n    end;\r\n\r\n  end;\r\n  Result := FCanvas;\r\nend;\r\n\r\nfunction TCustomControl.GetCanvasHeightOffset: Integer;\r\nbegin\r\n  Result := 0;\r\nend;\r\n\r\nfunction TCustomControl.GetCanvasWidthOffset: Integer;\r\nbegin\r\n  Result := 0;\r\nend;\r\n\r\nfunction TCustomControl.GetContext: TJSCanvasRenderingContext2D;\r\nvar\r\n  ctx: TJSCanvasRenderingContext2D;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  asm\r\n    ctx = this.FElementCanvas.getContext(\"2d\");\r\n  end;\r\n  {$ENDIF}\r\n\r\n  Result := ctx;\r\nend;\r\n\r\nfunction TCustomControl.GetPixelRatio: Single;\r\nvar\r\n  res: single;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  asm\r\n    var ctx = document.createElement(\"canvas\").getContext(\"2d\"),\r\n        dpr = window.devicePixelRatio || 1,\r\n        bsr = ctx.webkitBackingStorePixelRatio ||\r\n              ctx.mozBackingStorePixelRatio ||\r\n              ctx.msBackingStorePixelRatio ||\r\n              ctx.oBackingStorePixelRatio ||\r\n              ctx.backingStorePixelRatio || 1;\r\n    res = dpr / bsr\r\n  end;\r\n  {$ENDIF}\r\n\r\n  Result := res;\r\nend;\r\n\r\nprocedure TCustomControl.Invalidate;\r\nvar\r\n  px: Single;\r\n  frm: TCustomForm;\r\nbegin\r\n  inherited;\r\n\r\n  if (Parent = nil) or (csDestroying in ComponentState) then\r\n    Exit;\r\n\r\n  if not Visible then\r\n    Exit;\r\n\r\n  if FUpdateCount > 0 then\r\n    Exit;\r\n\r\n  frm := GetParentForm(Self);\r\n  if Assigned(frm) then\r\n    if frm.IsUpdating then\r\n      Exit;\r\n\r\n  px := GetPixelRatio;\r\n  if (px <> FPixelRatio) then\r\n    RecreateCanvas;\r\n\r\n  FPixelRatio := GetPixelRatio;\r\n\r\n  FPainting := true;\r\n\r\n  if Assigned(FCanvas) then\r\n    FCanvas.Clear;\r\n\r\n  Paint;\r\n  FPainting := false;\r\nend;\r\n\r\nprocedure TCustomControl.Loaded;\r\nbegin\r\n  inherited;\r\n  Invalidate;\r\nend;\r\n\r\nfunction TCustomControl.MakeScreenShot: TBitmap;\r\nbegin\r\n  Result := TBitmap.Create;\r\n  Result.OnChange := HandleScreenshot;\r\n  Result.LoadFromCanvas(Canvas);\r\nend;\r\n\r\nprocedure TCustomControl.HandleScreenShot(Sender: TObject);\r\nbegin\r\n  if Assigned(OnScreenshot) then\r\n    OnScreenshot(Self, TBitmap(Sender));\r\nend;\r\n\r\nprocedure TCustomControl.Paint;\r\nbegin\r\n  \r\nend;\r\n\r\nprocedure TCustomControl.RecreateCanvas;\r\nvar\r\n  px: Single;\r\n  el: TJSHTMLCanvasElement;\r\n  h, w: Integer;\r\nbegin\r\n  if Assigned(FElementCanvas) then\r\n  begin\r\n    if not FPainting then\r\n    begin\r\n      if IsLinked then\r\n      begin\r\n        el := TJSHTMLCanvasElement(ElementHandle);\r\n      end\r\n      else\r\n        el := TJSHTMLCanvasElement(document.getElementByID(GetID+'_Canvas'));\r\n\r\n      // it is already found\r\n      if Assigned(el) then\r\n      begin\r\n        FElementCanvas := el;\r\n        FCanvas.Free;\r\n        FCanvas := nil;\r\n      end;\r\n\r\n      px := GetPixelRatio;\r\n      h := Height - GetCanvasHeightOffset;\r\n      w := Width - GetCanvasWidthOffset;\r\n\r\n      if ElementPosition = epRelative then\r\n        FElementCanvas.style.setProperty('position', 'relative')\r\n      else\r\n        FElementCanvas.style.setProperty('position', 'absolute');\r\n\r\n      FElementCanvas.style.setProperty('height', IntToStr(h) + 'px');\r\n      FElementCanvas.style.setProperty('width', IntToStr(w) + 'px');\r\n      FElementCanvas.height := Round(h * px);\r\n      FElementCanvas.width := Round(w * px);\r\n    end;\r\n\r\n    if not Assigned(FCanvas) then\r\n    begin\r\n      FCanvas := TCanvas.Create(FElementCanvas);\r\n    end;\r\n\r\n    FCanvas.ApplyPixelRatio := True;\r\n    FCanvas.SetTransform(1, 0, 0, 1, 0, 0);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomControl.RenderDesigning(ACaption: string; AElement: TJSElement;\r\n  AControl: TCustomControl; ADisplay: Boolean; AImage: string);\r\nvar\r\n  LContainer, LLabel, LDiv: TJSHTMLElement;\r\n  LHasLabel: boolean;\r\nbegin\r\n  LContainer := TJSHTMLElement(AElement);\r\n  LLabel := TJSHTMLElement(LContainer.firstChild);\r\n  LHasLabel := Assigned(LLabel) and (LLabel.tagName = 'DIV') and (LLabel.getAttribute('data-design') = '1');\r\n\r\n  if (csDesigning in AControl.ComponentState) and (ADisplay) and (ElementClassName = '') then\r\n  begin\r\n    LContainer.style.setProperty('border','1px solid gray');\r\n\r\n    if AImage = '' then\r\n      LContainer.style.setProperty('background-color','#F0F0F0')\r\n    else\r\n      LContainer.style.setProperty('background-color','white');\r\n\r\n    if LHasLabel then\r\n      Exit;\r\n\r\n    LContainer.innerHTML := '';\r\n\r\n    if AImage <> '' then\r\n    begin\r\n      LDiv := TJSHTMLElement(document.createElement('DIV'));\r\n      LDiv.style.setProperty('background-color','white');\r\n      LDiv.style.setProperty('background-repeat','no-repeat');\r\n      LDiv.style.setProperty('background-position-y','center');\r\n      LDiv.style.setProperty('background-image', 'url('+AImage+')');\r\n      LDiv.style.setProperty('background-position-x','center');\r\n      LDiv.style.setProperty('background-size','128px');\r\n      LDiv.style.setProperty('top','50%');\r\n      LDiv.style.setProperty('left','50%');\r\n      LDiv.style.setProperty('height','70%');\r\n      LContainer.appendChild(LDiv);\r\n    end;\r\n\r\n    LLabel := TJSHTMLElement(document.createElement('DIV'));\r\n    LLabel.setAttribute('data-design','1');\r\n    LLabel.innerHTML := ACaption;\r\n    LLabel.style.setProperty('position','relative');\r\n    LLabel.style.setProperty('top','50%');\r\n    LLabel.style.setProperty('left','50%');\r\n    LLabel.style.setProperty('display','inline-block');\r\n    LLabel.style.setProperty('transform','translateX(-50%)');\r\n\r\n    CustomBorder := True;\r\n    LContainer.appendChild(LLabel);\r\n  end\r\n  else\r\n  begin\r\n    if LHasLabel then\r\n    begin\r\n      while Assigned(LContainer.firstChild) do\r\n        LContainer.removeChild(LContainer.firstChild);\r\n\r\n      LContainer.style.removeProperty('border');\r\n      LContainer.style.removeProperty('background-color');\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomControl.Resize;\r\nbegin\r\n  inherited;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TCustomControl.SetBorderColor(const AValue: TColor);\r\nbegin\r\n  if (FBorderColor <> AValue) then\r\n  begin\r\n    FBorderColor := AValue;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomControl.SetBorderStyle(const AValue: TBorderStyle);\r\nbegin\r\n  if FBorderStyle <> AValue then\r\n  begin\r\n    FBorderStyle := AValue;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomControl.SetCaption(const AValue: string);\r\nbegin\r\n  FCaption := AValue;\r\n  ControlStyle := ControlStyle - [csSetCaption];\r\nend;\r\n\r\nprocedure TCustomControl.SetFocus;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TCustomControl.SetName(const NewName: TComponentName);\r\nvar\r\n  cs: TControlStyle;\r\n  ownername: string;\r\nbegin\r\n  ownername := '';\r\n\r\n  if not (Assigned(VSIDE) and (csDesigning in ComponentState)) then\r\n  begin\r\n    if (Self is TFrame) then\r\n    begin\r\n      ownername := 'F' + FindUniqueName(Name) + '_';\r\n    end;\r\n  end;\r\n\r\n  inherited SetName(ownername + NewName);\r\n\r\n  if (csSetCaption in ControlStyle) and (csDesigning in ComponentState) and not (csLoading in ComponentState) then\r\n  begin\r\n    if Assigned(Owner) and (csLoading in Owner.ComponentState) then\r\n      Exit;\r\n\r\n    cs := ControlStyle;\r\n    SetCaption(NewName);\r\n    ControlStyle := cs;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomControl.UpdateElementVisual;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    if not IsLinked and (ElementClassName = '') then\r\n    begin\r\n      if BorderStyle = bsSingle then // default border style\r\n      begin\r\n        if CustomBorder then\r\n        begin\r\n          GetElementStyle.setProperty('border-style', 'solid');\r\n          GetElementStyle.setProperty('border-width', '1px');\r\n          GetElementStyle.setProperty('border-color', ColorToHTML(BorderColor));\r\n        end\r\n        else\r\n          GetElementStyle.setProperty('border-style', '')\r\n      end\r\n      else\r\n      begin\r\n        GetElementStyle.setProperty('border-style', 'none');\r\n      end;\r\n    end;\r\n\r\n    if (ElementClassName <> '') then\r\n    begin\r\n      GetElementStyle.removeProperty('border-style');\r\n      GetElementStyle.removeProperty('border-width');\r\n      GetElementStyle.removeProperty('border-color');\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TScrollingGraphicControl }\r\n\r\nprocedure TScrollingGraphicControl.UpdateElement;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementHandle) then\r\n    ElementHandle.style.setProperty('overflow', 'auto');\r\nend;\r\n\r\n\r\nfunction TScrollingGraphicControl.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('DIV');\r\nend;\r\n\r\n{ TMargins }\r\n\r\nprocedure TMargins.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TMargins then\r\n  begin\r\n    FLeft := (Source as TMargins).Left;\r\n    FTop := (Source as TMargins).Top;\r\n    FBottom := (Source as TMargins).Bottom;\r\n    FRight := (Source as TMargins).Right;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nconstructor TMargins.Create;\r\nbegin\r\n  FLeft := 3;\r\n  FTop := 3;\r\n  FBottom := 3;\r\n  FRight := 3;\r\nend;\r\n\r\n{ TCenter }\r\n\r\nprocedure TCenter.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TCenter) then\r\n  begin\r\n    FHorizontal := (Source as TCenter).Horizontal;\r\n    FVertical := (Source as TCenter).Vertical;\r\n  end;\r\nend;\r\n\r\nprocedure TCenter.SetHorizontal(const Value: boolean);\r\nbegin\r\n  if (FHorizontal <> Value) then\r\n  begin\r\n    FHorizontal := Value;\r\n    DoChange;\r\n  end;\r\nend;\r\n\r\nprocedure TCenter.SetVertical(const Value: boolean);\r\nbegin\r\n  if (FVertical <> Value) then\r\n  begin\r\n    FVertical := Value;\r\n    DoChange;\r\n  end;\r\nend;\r\n\r\nprocedure TCenter.DoChange;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\n{ TControlManager }\r\n\r\nconstructor TControlManager.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FInstanceCount := 0;\r\nend;\r\n\r\nfunction TControlManager.GetInstanceNumber: integer;\r\nbegin\r\n  Inc(FInstanceCount);\r\n  Result := FInstanceCount;\r\nend;\r\n\r\nprocedure TControlManager.Reset;\r\nbegin\r\n  FInstanceCount := 0;\r\nend;\r\n\r\n{ TCSSCodeFragment }\r\n\r\nconstructor TCSSCodeFragment.Create(Collection: TCollection);\r\nbegin\r\n  inherited;\r\n  FCSS := TStringList.Create;\r\nend;\r\n\r\ndestructor TCSSCodeFragment.Destroy;\r\nbegin\r\n  FCSS.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TCSSCodeFragment.SetCSS(const Value: TStringList);\r\nbegin\r\n  FCSS.Assign(Value);\r\nend;\r\n\r\n{ TCSSCodeFragments }\r\n\r\nfunction TCSSCodeFragments.Add: TCSSCodeFragment;\r\nbegin\r\n  Result := TCSSCodeFragment(inherited Add);\r\nend;\r\n\r\nconstructor TCSSCodeFragments.Create(AOwner: TComponent);\r\nbegin\r\n  inherited Create(AOwner, TCSSCodeFragment);\r\nend;\r\n\r\nfunction TCSSCodeFragments.GetItemEx(Index: integer): TCSSCodeFragment;\r\nbegin\r\n  Result := TCSSCodeFragment(inherited Items[Index]);\r\nend;\r\n\r\nfunction TCSSCodeFragments.Insert(Index: integer): TCSSCodeFragment;\r\nbegin\r\n  Result := TCSSCodeFragment(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TCSSCodeFragments.SetItemEx(Index: integer;\r\n  const Value: TCSSCodeFragment);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TCSSCodeManager }\r\n\r\nconstructor TCSSCodeManager.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FCSSFragments := TCSSCodeFragments.Create(Self);\r\n  FCSSFragments.PropName := 'CSSFragments';\r\nend;\r\n\r\ndestructor TCSSCodeManager.Destroy;\r\nbegin\r\n  FCSSFragments.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TCSSCodeManager.GetClassCSS(AClassname: string): string;\r\nvar\r\n  CSSCodeFragment: TCSSCodeFragment;\r\nbegin\r\n  Result := '';\r\n\r\n  CSSCodeFragment := GetClassFragment(AClassName);\r\n\r\n  if Assigned(CSSCodeFragment) then\r\n    Result := CSSCodeFragment.CSS.Text;\r\nend;\r\n\r\nfunction TCSSCodeManager.GetClassFragment(AClassname: string): TCSSCodeFragment;\r\nvar\r\n  i: integer;\r\nbegin\r\n  Result := nil;\r\n  for i := 0 to CSSFragments.Count - 1 do\r\n  begin\r\n    if CSSFragments.Items[i].ControlClassName = AClassname then\r\n      Result := CSSFragments.Items[i];\r\n  end;\r\nend;\r\n\r\nprocedure TCSSCodeManager.SetCSSFragments(const Value: TCSSCodeFragments);\r\nbegin\r\n  FCSSFragments.Assign(Value);\r\nend;\r\n\r\n{ TjQueryCustomContol }\r\n\r\nfunction TjQueryCustomControl.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('DIV');\r\nend;\r\n\r\nprocedure TjQueryCustomControl.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FIsInitialized := false;\r\nend;\r\n\r\nfunction TjQueryCustomControl.GetJQID: string;\r\nbegin\r\n  Result := '#' + GetID;\r\nend;\r\n\r\nprocedure TjQueryCustomControl.InitJQuery;\r\nbegin\r\n  //\r\nend;\r\n\r\nprocedure TjQueryCustomControl.InitJQueryOnce;\r\nbegin\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  if FIsInitialized then\r\n    Exit;\r\n\r\n  FIsInitialized := true;\r\n  InitJQuery;\r\nend;\r\n\r\nprocedure TjQueryCustomControl.Loaded;\r\nbegin\r\n  inherited;\r\n  InitJQueryOnce;\r\nend;\r\n\r\nprocedure TjQueryCustomControl.SetParent(AValue: TControl);\r\nbegin\r\n  inherited;\r\n  InitJQueryOnce;\r\nend;\r\n\r\n{ TPadding }\r\n\r\nprocedure TPadding.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TPadding) then\r\n  begin\r\n    FLeft := (Source as TPadding).Left;\r\n    FRight := (Source as TPadding).Right;\r\n    FTop := (Source as TPadding).Top;\r\n    FBottom := (Source as TPadding).Bottom;\r\n  end;\r\nend;\r\n\r\nconstructor TPadding.Create;\r\nbegin\r\n  inherited;\r\n  FLeft := 0;\r\n  FTop := 0;\r\n  FRight := 0;\r\n  FBottom := 0;\r\nend;\r\n\r\nprocedure TPadding.DoChange;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nprocedure TPadding.SetBottom(const Value: integer);\r\nbegin\r\n  if (FBottom <> Value) then\r\n  begin\r\n    FBottom := Value;\r\n    DoChange;\r\n  end;\r\nend;\r\n\r\nprocedure TPadding.SetLeft(const Value: integer);\r\nbegin\r\n  if (FLeft <> Value) then\r\n  begin\r\n    FLeft := Value;\r\n    DoChange;\r\n  end;\r\nend;\r\n\r\nprocedure TPadding.SetRight(const Value: integer);\r\nbegin\r\n  if (FRight <> Value) then\r\n  begin\r\n    FRight := Value;\r\n    DoChange;\r\n  end;\r\nend;\r\n\r\nprocedure TPadding.SetTop(const Value: integer);\r\nbegin\r\n  if (FTop <> Value) then\r\n  begin\r\n    FTop := Value;\r\n    DoChange;\r\n  end;\r\nend;\r\n\r\n{ TCustomHTMLDiv }\r\n\r\nfunction TCustomHTMLDiv.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('DIV');\r\nend;\r\n\r\n{ TControlScrollBar }\r\n\r\nconstructor TControlScrollBar.Create(AControl: TControl; AKind: TScrollBarKind);\r\nbegin\r\n  inherited;\r\n  FControl := AControl;\r\n  FKind := AKind;\r\nend;\r\n\r\nfunction TControlScrollBar.IsScrollBarVisible: boolean;\r\nbegin\r\n  Result := false;\r\n\r\n  if Assigned(FControl.ELementHandle) then\r\n  begin\r\n    if Kind = sbVertical then\r\n      Result := TJSHTMLElement(FControl.ElementHandle).ScrollHeight > TJSHTMLElement(FControl.ElementHandle).ClientHeight\r\n    else\r\n      Result := TJSHTMLElement(FControl.ElementHandle).ScrollWidth > TJSHTMLElement(FControl.ElementHandle).ClientWidth;\r\n  end;\r\nend;\r\n\r\nfunction TControlScrollBar.Range: integer;\r\nbegin\r\n  Result := 0;\r\n  if Assigned(FControl.ELementHandle) then\r\n  begin\r\n    if Kind = sbVertical then\r\n      Result := TJSHTMLElement(FControl.ElementHandle).ScrollHeight\r\n    else\r\n      Result := TJSHTMLElement(FControl.ElementHandle).ScrollWidth;\r\n  end;\r\nend;\r\n\r\nfunction TControlScrollBar.ScrollPos: integer;\r\nbegin\r\n  Result := 0;\r\n  if Assigned(FControl.ELementHandle) then\r\n  begin\r\n    if Kind = sbVertical then\r\n      Result := FControl.ElementHandle.scrollTop\r\n    else\r\n      Result := FControl.ElementHandle.scrollLeft;\r\n  end;\r\nend;\r\n\r\nprocedure TStringListHelper.LoadFromJSONArray(ja: string);\r\nvar\r\n  jsa: TJSArray;\r\n  i: integer;\r\nbegin\r\n  asm\r\n    jsa = JSON.parse(ja);\r\n  end;\r\n  for i := 0 to jsa.length - 1 do\r\n  begin\r\n    Add(string(jsa[i]));\r\n  end;\r\n\r\nend;\r\n\r\n{$HINTS OFF}\r\nfunction TStringListHelper.LoadFromJSONArrayURL(URL: string): TJSPromise;\r\nvar\r\n  req: TJSXMLHttpRequest;\r\n\r\n  procedure ResultHandler(response: string);\r\n  var\r\n    jsa: TJSArray;\r\n    i: integer;\r\n  begin\r\n    asm\r\n      jsa = JSON.parse(response);\r\n    end;\r\n    for i := 0 to jsa.length - 1 do\r\n    begin\r\n      Add(string(jsa[i]));\r\n    end;\r\n  end;\r\n\r\nbegin\r\n\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n    begin\r\n\r\n      req := TJSXMLHttpRequest.new;\r\n      req.open('GET',URL);\r\n\r\n      asm\r\n        req.onload = function() {\r\n          if (req.status != 200) {\r\n            AFailed(false); }\r\n          else {\r\n\r\n            ResultHandler(req.response);\r\n            ASuccess(true);\r\n          }\r\n        }\r\n      end;\r\n\r\n      req.send();\r\n\r\n    end);\r\nend;\r\n{$HINTS ON}\r\n\r\ninitialization\r\n  ScrollBW := 0;\r\n  ScrollBH := 0;\r\n  DragObject := nil;\r\n  ControlManager := TControlManager.Create(nil);\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.Graphics;\r\n\r\n{$modeswitch externalclass}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, Types, UITypes, Web, JS;\r\n\r\nconst\r\n  WEBDEFAULTFONT = 'Arial';\r\n  SysDefault = $20000000;\r\n\r\n  clNone = -1;\r\n  clBlack = $000000;\r\n  clMaroon = $000080;\r\n  clGreen = $008000;\r\n  clOlive = $008080;\r\n  clNavy = $800000;\r\n  clPurple = $800080;\r\n  clTeal = $808000;\r\n  clGray = $808080;\r\n  clSilver = $C0C0C0;\r\n  clRed = $0000FF;\r\n  clLime = $00FF00;\r\n  clYellow = $00FFFF;\r\n  clBlue = $FF0000;\r\n  clFuchsia = $FF00FF;\r\n  clAqua = $FFFF00;\r\n  clLtGray = $C1C1C1;\r\n  clDkGray = $818181;\r\n  clWhite = $FFFFFF;\r\n  clMoneyGreen = $C0DCC0;\r\n  clSkyBlue = $F0CAA6;\r\n  clCream = $F0FBFF;\r\n  clMedGray = $A0A0A0;\r\n\r\n  clDefault = SysDefault;\r\n  clBtnFace = $F0F0F0;\r\n  clWindowText = $010101;\r\n  clWindow = $FEFEFE;\r\n  clHighlight = $D77800;\r\n  clHighlightText = $030303;\r\n  clInfoText = $020202;\r\n  clInfoBk = $E1FFFF;\r\n  clActiveCaption = $D1B499;\r\n  clInactiveCaption =  $DBCDBF;\r\n  clInactiveCaptionText = $000000;\r\n  clHotLight = $CC6600;\r\n\r\n  clScrollBar = $C8C8C8;\r\n  clBackground = clBtnFace;\r\n  clMenu = clBtnFace;\r\n  clWindowFrame = $646464;\r\n  clMenuText = clBlack;\r\n  clCaptionText = clWhite;\r\n  clActiveBorder = $B4B4B4;\r\n  clAppWorkSpace = $ABABAB;\r\n  clBtnShadow = $A0A0A0;\r\n  clGrayText = $6D6D6D;\r\n  clBtnText = clBlack;\r\n  clBtnHighlight = clWhite;\r\n  cl3DDkShadow = $696969;\r\n  cl3DLight = $E3E3E3;\r\n  clMenuHighlight = $D77800;\r\n  clMenuBar = $F0F0F0;\r\n\r\n\r\n  clWebAliceblue = $FFF8F0;\r\n  clWebAntiquewhite = $D7EBFA;\r\n  clWebAqua = $FFFF00;\r\n  clWebAquamarine = $D4FF7F;\r\n  clWebAzure = $FFFFF0;\r\n  clWebBeige = $DCF5F5;\r\n  clWebBisque = $C4E4FF;\r\n  clWebBlack = $000000;\r\n  clWebBlanchedalmond = $CDEBFF;\r\n  clWebBlue = $FF0000;\r\n  clWebBlueviolet = $E22B8A;\r\n  clWebBrown = $2A2AA5;\r\n  clWebBurlywood = $87B8DE;\r\n  clWebCadetblue = $A09E5F;\r\n  clWebChartreuse = $00FF7F;\r\n  clWebChocolate = $1E69D2;\r\n  clWebCoral = $507FFF;\r\n  clWebCornflowerblue = $ED9564;\r\n  clWebCornsilk = $DCF8FF;\r\n  clWebCrimson = $3C14DC;\r\n  clWebCyan = $FFFF00;\r\n  clWebDarkblue = $8B0000;\r\n  clWebDarkcyan = $8B8B00;\r\n  clWebDarkgoldenrod = $0B86B8;\r\n  clWebDarkgray = $A9A9A9;\r\n  clWebDarkgreen = $006400;\r\n  clWebDarkgrey = $A9A9A9;\r\n  clWebDarkkhaki = $6BB7BD;\r\n  clWebDarkmagenta = $8B008B;\r\n  clWebDarkolivegreen = $2F6B55;\r\n  clWebDarkorange = $008CFF;\r\n  clWebDarkorchid = $CC3299;\r\n  clWebDarkred = $00008B;\r\n  clWebDarksalmon = $7A96E9;\r\n  clWebDarkseagreen = $8FBC8F;\r\n  clWebDarkslateblue = $8B3D48;\r\n  clWebDarkslategray = $4F4F2F;\r\n  clWebDarkslategrey = $4F4F2F;\r\n  clWebDarkturquoise = $D1CE00;\r\n  clWebDarkviolet = $D30094;\r\n  clWebDeeppink = $9314FF;\r\n  clWebDeepskyblue = $FFBF00;\r\n  clWebDimgray = $696969;\r\n  clWebDimgrey = $696969;\r\n  clWebDodgerblue = $FF901E;\r\n  clWebFirebrick = $2222B2;\r\n  clWebFloralwhite = $F0FAFF;\r\n  clWebForestgreen = $228B22;\r\n  clWebFuchsia = $FF00FF;\r\n  clWebGainsboro = $DCDCDC;\r\n  clWebGhostwhite = $FFF8F8;\r\n  clWebGold = $00D7FF;\r\n  clWebGoldenrod = $20A5DA;\r\n  clWebGray = $808080;\r\n  clWebGreen = $008000;\r\n  clWebGreenyellow = $2FFFAD;\r\n  clWebGrey = $808080;\r\n  clWebHoneydew = $F0FFF0;\r\n  clWebHotpink = $B469FF;\r\n  clWebIndianred = $5C5CCD;\r\n  clWebIndigo = $82004B;\r\n  clWebIvory = $F0FFFF;\r\n  clWebKhaki = $8CE6F0;\r\n  clWebLavender = $FAE6E6;\r\n  clWebLavenderblush = $F5F0FF;\r\n  clWebLawngreen = $00FC7C;\r\n  clWebLemonchiffon = $CDFAFF;\r\n  clWebLightblue = $E6D8AD;\r\n  clWebLightcoral = $8080F0;\r\n  clWebLightcyan = $FFFFE0;\r\n  clWebLightgoldenrodyellow = $D2FAFA;\r\n  clWebLightgray = $D3D3D3;\r\n  clWebLightgreen = $90EE90;\r\n  clWebLightgrey = $D3D3D3;\r\n  clWebLightpink = $C1B6FF;\r\n  clWebLightsalmon = $7AA0FF;\r\n  clWebLightseagreen = $AAB220;\r\n  clWebLightskyblue = $FACE87;\r\n  clWebLightslategray = $998877;\r\n  clWebLightslategrey = $998877;\r\n  clWebLightsteelblue = $DEC4B0;\r\n  clWebLightyellow = $E0FFFF;\r\n  clWebLtGray = $C0C0C0;\r\n  clWebMedGray = $A4A0A0;\r\n  clWebDkGray = $808080;\r\n  clWebMoneyGreen = $C0DCC0;\r\n  clWebLegacySkyBlue = $F0CAA6;\r\n  clWebCream = $F0FBFF;\r\n  clWebLime = $00FF00;\r\n  clWebLimegreen = $32CD32;\r\n  clWebLinen = $E6F0FA;\r\n  clWebMagenta = $FF00FF;\r\n  clWebMaroon = $000080;\r\n  clWebMediumaquamarine = $AACD66;\r\n  clWebMediumblue = $CD0000;\r\n  clWebMediumorchid = $D355BA;\r\n  clWebMediumpurple = $DB7093;\r\n  clWebMediumseagreen = $71B33C;\r\n  clWebMediumslateblue = $EE687B;\r\n  clWebMediumspringgreen = $9AFA00;\r\n  clWebMediumturquoise = $CCD148;\r\n  clWebMediumvioletred = $8515C7;\r\n  clWebMidnightblue = $701919;\r\n  clWebMintcream = $FAFFF5;\r\n  clWebMistyrose = $E1E4FF;\r\n  clWebMoccasin = $B5E4FF;\r\n  clWebNavajowhite = $ADDEFF;\r\n  clWebNavy = $800000;\r\n  clWebOldlace = $E6F5FD;\r\n  clWebOlive = $008080;\r\n  clWebOlivedrab = $238E6B;\r\n  clWebOrange = $00A5FF;\r\n  clWebOrangered = $0045FF;\r\n  clWebOrchid = $D670DA;\r\n  clWebPalegoldenrod = $AAE8EE;\r\n  clWebPalegreen = $98FB98;\r\n  clWebPaleturquoise = $EEEEAF;\r\n  clWebPalevioletred = $9370DB;\r\n  clWebPapayawhip = $D5EFFF;\r\n  clWebPeachpuff = $B9DAFF;\r\n  clWebPeru = $3F85CD;\r\n  clWebPink = $CBC0FF;\r\n  clWebPlum = $DDA0DD;\r\n  clWebPowderblue = $E6E0B0;\r\n  clWebPurple = $800080;\r\n  clWebRed = $0000FF;\r\n  clWebRosybrown = $8F8FBC;\r\n  clWebRoyalblue = $E16941;\r\n  clWebSaddlebrown = $13458B;\r\n  clWebSalmon = $7280FA;\r\n  clWebSandybrown = $60A4F4;\r\n  clWebSeagreen = $578B2E;\r\n  clWebSeashell = $EEF5FF;\r\n  clWebSienna = $2D52A0;\r\n  clWebSilver = $C0C0C0;\r\n  clWebSkyblue = $EBCE87;\r\n  clWebSlateblue = $CD5A6A;\r\n  clWebSlategray = $908070;\r\n  clWebSlategrey = $908070;\r\n  clWebSnow = $FAFAFF;\r\n  clWebSpringgreen = $7FFF00;\r\n  clWebSteelblue = $B48246;\r\n  clWebTan = $8CB4D2;\r\n  clWebTeal = $808000;\r\n  clWebThistle = $D8BFD8;\r\n  clWebTomato = $4763FF;\r\n  clWebTurquoise = $D0E040;\r\n  clWebViolet = $EE82EE;\r\n  clWebWheat = $B3DEF5;\r\n  clWebWhite = $FFFFFF;\r\n  clWebWhitesmoke = $F5F5F5;\r\n  clWebYellow = $00FFFF;\r\n  clWebYellowgreen = $32CD9A;\r\n\r\n  clAliceblue = $FFF8F0;\r\n  clAntiquewhite = $D7EBFA;\r\n  clAquamarine = $D4FF7F;\r\n  clAzure = $FFFFF0;\r\n  clBeige = $DCF5F5;\r\n  clBisque = $C4E4FF;\r\n  clBlanchedalmond = $CDEBFF;\r\n  clBlueviolet = $E22B8A;\r\n  clBrown = $2A2AA5;\r\n  clBurlywood = $87B8DE;\r\n  clCadetblue = $A09E5F;\r\n  clChartreuse = $00FF7F;\r\n  clChocolate = $1E69D2;\r\n  clCoral = $507FFF;\r\n  clCornflowerblue = $ED9564;\r\n  clCornsilk = $DCF8FF;\r\n  clCrimson = $3C14DC;\r\n  clCyan = $FFFF00;\r\n  clDarkblue = $8B0000;\r\n  clDarkcyan = $8B8B00;\r\n  clDarkgoldenrod = $0B86B8;\r\n  clDarkgray = $A9A9A9;\r\n  clDarkgreen = $006400;\r\n  clDarkgrey = $A9A9A9;\r\n  clDarkkhaki = $6BB7BD;\r\n  clDarkmagenta = $8B008B;\r\n  clDarkolivegreen = $2F6B55;\r\n  clDarkorange = $008CFF;\r\n  clDarkorchid = $CC3299;\r\n  clDarkred = $00008B;\r\n  clDarksalmon = $7A96E9;\r\n  clDarkseagreen = $8FBC8F;\r\n  clDarkslateblue = $8B3D48;\r\n  clDarkslategray = $4F4F2F;\r\n  clDarkslategrey = $4F4F2F;\r\n  clDarkturquoise = $D1CE00;\r\n  clDarkviolet = $D30094;\r\n  clDeeppink = $9314FF;\r\n  clDeepskyblue = $FFBF00;\r\n  clDimgray = $696969;\r\n  clDimgrey = $696969;\r\n  clDodgerblue = $FF901E;\r\n  clFirebrick = $2222B2;\r\n  clFloralwhite = $F0FAFF;\r\n  clForestgreen = $228B22;\r\n  clGainsboro = $DCDCDC;\r\n  clGhostwhite = $FFF8F8;\r\n  clGold = $00D7FF;\r\n  clGoldenrod = $20A5DA;\r\n  clGreenyellow = $2FFFAD;\r\n  clGrey = $808080;\r\n  clHoneydew = $F0FFF0;\r\n  clHotpink = $B469FF;\r\n  clIndianred = $5C5CCD;\r\n  clIndigo = $82004B;\r\n  clIvory = $F0FFFF;\r\n  clKhaki = $8CE6F0;\r\n  clLavender = $FAE6E6;\r\n  clLavenderblush = $F5F0FF;\r\n  clLawngreen = $00FC7C;\r\n  clLemonchiffon = $CDFAFF;\r\n  clLightblue = $E6D8AD;\r\n  clLightcoral = $8080F0;\r\n  clLightcyan = $FFFFE0;\r\n  clLightgoldenrodyellow = $D2FAFA;\r\n  clLightgray = $D3D3D3;\r\n  clLightgreen = $90EE90;\r\n  clLightgrey = $D3D3D3;\r\n  clLightpink = $C1B6FF;\r\n  clLightsalmon = $7AA0FF;\r\n  clLightseagreen = $AAB220;\r\n  clLightskyblue = $FACE87;\r\n  clLightslategray = $998877;\r\n  clLightslategrey = $998877;\r\n  clLightsteelblue = $DEC4B0;\r\n  clLightyellow = $E0FFFF;\r\n  clLegacySkyBlue = $F0CAA6;\r\n  clLimegreen = $32CD32;\r\n  clLinen = $E6F0FA;\r\n  clMagenta = $FF00FF;\r\n  clMediumaquamarine = $AACD66;\r\n  clMediumblue = $CD0000;\r\n  clMediumorchid = $D355BA;\r\n  clMediumpurple = $DB7093;\r\n  clMediumseagreen = $71B33C;\r\n  clMediumslateblue = $EE687B;\r\n  clMediumspringgreen = $9AFA00;\r\n  clMediumturquoise = $CCD148;\r\n  clMediumvioletred = $8515C7;\r\n  clMidnightblue = $701919;\r\n  clMintcream = $FAFFF5;\r\n  clMistyrose = $E1E4FF;\r\n  clMoccasin = $B5E4FF;\r\n  clNavajowhite = $ADDEFF;\r\n  clOldlace = $E6F5FD;\r\n  clOlivedrab = $238E6B;\r\n  clOrange = $00A5FF;\r\n  clOrangered = $0045FF;\r\n  clOrchid = $D670DA;\r\n  clPalegoldenrod = $AAE8EE;\r\n  clPalegreen = $98FB98;\r\n  clPaleturquoise = $EEEEAF;\r\n  clPalevioletred = $9370DB;\r\n  clPapayawhip = $D5EFFF;\r\n  clPeachpuff = $B9DAFF;\r\n  clPeru = $3F85CD;\r\n  clPink = $CBC0FF;\r\n  clPlum = $DDA0DD;\r\n  clPowderblue = $E6E0B0;\r\n  clRosybrown = $8F8FBC;\r\n  clRoyalblue = $E16941;\r\n  clSaddlebrown = $13458B;\r\n  clSalmon = $7280FA;\r\n  clSandybrown = $60A4F4;\r\n  clSeagreen = $578B2E;\r\n  clSeashell = $EEF5FF;\r\n  clSienna = $2D52A0;\r\n  clSlateblue = $CD5A6A;\r\n  clSlategray = $908070;\r\n  clSlategrey = $908070;\r\n  clSnow = $FAFAFF;\r\n  clSpringgreen = $7FFF00;\r\n  clSteelblue = $B48246;\r\n  clTan = $8CB4D2;\r\n  clThistle = $D8BFD8;\r\n  clTomato = $4763FF;\r\n  clTurquoise = $D0E040;\r\n  clViolet = $EE82EE;\r\n  clWheat = $B3DEF5;\r\n  clWhitesmoke = $F5F5F5;\r\n  clYellowgreen = $32CD9A;\r\n\r\n\r\n  clInactiveBorder = $FCF7F4;\r\n\r\n  ANSI_CHARSET = 0;\r\n  DEFAULT_CHARSET = 1;\r\n  SYMBOL_CHARSET = 2;\r\n  MAC_CHARSET = 77;\r\n  SHIFTJIS_CHARSET = 128;\r\n  HANGEUL_CHARSET = 129;\r\n  JOHAB_CHARSET = 130;\r\n  GB2312_CHARSET = 134;\r\n  CHINESEBIG5_CHARSET = 136;\r\n  GREEK_CHARSET = 161;\r\n  TURKISH_CHARSET = 162;\r\n  HEBREW_CHARSET = 177;\r\n  ARABIC_CHARSET = 178;\r\n  BALTIC_CHARSET = 186;\r\n  RUSSIAN_CHARSET = 204;\r\n  THAI_CHARSET = 222;\r\n  EASTEUROPE_CHARSET = 238;\r\n  OEM_CHARSET = 255;\r\n\r\ntype\r\n  TColor = type NativeInt;\r\n\r\n  TFontName = UITypes.TFontName;\r\n\r\n  TVerticalAlignment = (taAlignTop, taAlignBottom, taVerticalCenter);\r\n\r\n  TPenStyle = (psSolid, psDash, psDot, psDashDot, psDashDotDot, psClear,\r\n    psInsideFrame, psUserStyle, psAlternate);\r\n\r\n  TPenMode = (pmBlack, pmWhite, pmNop, pmNot, pmCopy, pmNotCopy,\r\n    pmMergePenNot, pmMaskPenNot, pmMergeNotPen, pmMaskNotPen, pmMerge,\r\n    pmNotMerge, pmMask, pmNotMask, pmXor, pmNotXor);\r\n\r\n  TBrushStyle = (bsSolid, bsClear, bsHorizontal, bsVertical,\r\n    bsFDiagonal, bsBDiagonal, bsCross, bsDiagCross);\r\n\r\n  TBrushGradient = (bgNone, bgLinearVert, bgLinearHorz, bgRadial);\r\n\r\n  TFontStyle = (fsBold, fsItalic, fsStrikeOut, fsUnderline);\r\n\r\n  TFontStyles = set of TFontStyle;\r\n\r\n  TFontCharset = 0..255;\r\n\r\n  TTextFormats = (tfBottom, tfCalcRect, tfCenter, tfEditControl, tfEndEllipsis,\r\n    tfPathEllipsis, tfExpandTabs, tfExternalLeading, tfLeft, tfModifyString,\r\n    tfNoClip, tfNoPrefix, tfRight, tfRtlReading, tfSingleLine, tfTop,\r\n    tfVerticalCenter, tfWordBreak, tfHidePrefix, tfNoFullWidthCharBreak,\r\n    tfPrefixOnly, tfTabStop, tfWordEllipsis, tfComposited);\r\n  TTextFormat = set of TTextFormats;\r\n\r\n\r\n  TBinaryString = type string;\r\n\r\n  TCanvasPointF = record\r\n    X: Double;\r\n    Y: Double;\r\n  end;\r\n\r\n  TCanvasRectF = record\r\n    Left, Top, Right, Bottom: Double;\r\n  end;\r\n\r\n  TCanvasSizeF = record\r\n    cx: Double;\r\n    cy: Double;\r\n  end;\r\n\r\n  TPen = class(TPersistent)\r\n  private\r\n    FWidth: Integer;\r\n    FColor: TColor;\r\n    FStyle: TPenStyle;\r\n    FMode: TPenMode;\r\n    procedure SetColor(const Value: TColor);\r\n  public\r\n    constructor Create; reintroduce;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property Color: TColor read FColor write SetColor;\r\n    property Mode: TPenMode read FMode write FMode default pmCopy;\r\n    property Width: Integer read FWidth write FWidth default 1;\r\n    property Style: TPenStyle read FStyle write FStyle default psSolid;\r\n  end;\r\n\r\n  TGradientColor = class(TPersistent)\r\n  private\r\n    FColor: TColor;\r\n    FStop: single;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create; reintroduce;\r\n  published\r\n    property Stop: single read FStop write FStop;\r\n    property Color: TColor read FColor write FColor default clNone;\r\n  end;\r\n\r\n  TBrush = class(TPersistent)\r\n  private\r\n    FColor: TColor;\r\n    FStyle: TBrushStyle;\r\n    FGradientColors: TList;\r\n    FGradient: TBrushGradient;\r\n  public\r\n    constructor Create; reintroduce;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure AddGradientColor(AColor: TColor; AStop: single);\r\n    procedure GetGradientColor(AIndex: integer; var AColor: TColor; var AStop: single);\r\n    function GradientCount: integer;\r\n    procedure ClearGradient;\r\n  published\r\n    property Gradient: TBrushGradient read FGradient write FGradient;\r\n    property Color: TColor read FColor write FColor;\r\n    property Style: TBrushStyle read FStyle write FStyle;\r\n  end;\r\n\r\n  TFont = class(TPersistent)\r\n  private\r\n    FName: TFontName;\r\n    FSize: Integer;\r\n    FColor: TColor;\r\n    FStyle: TFontStyles;\r\n    FOnChange: TNotifyEvent;\r\n    FHeight: Integer;\r\n    FCharset: TFontCharset;\r\n    FOrientation: integer;\r\n    procedure SetHeight(const Value: Integer);\r\n  protected\r\n    procedure SetName(const AName: TFontName);\r\n    procedure SetSize(const ASize: Integer);\r\n    procedure SetColor(const AColor: TColor);\r\n    procedure SetStyle(const AStyle: TFontStyles);\r\n    procedure DoChange; virtual;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create; reintroduce;\r\n    function ToString: string; override;\r\n    property Orientation: integer read FOrientation write FOrientation;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  published\r\n    property Charset: TFontCharset read FCharset write FCharset;\r\n    property Name: TFontName read FName write SetName;\r\n    property Height: Integer read FHeight write SetHeight;\r\n    property Style: TFontStyles read FStyle write SetStyle;\r\n    property Color: TColor read FColor write SetColor;\r\n    property Size: Integer read FSize write SetSize;\r\n  end;\r\n\r\n  TImageType = (itBase64, itBMP, itPNG, itJPEG, itGIF, itSVG);\r\n\r\n  TCanvas = class;\r\n\r\n  TBitmap = class;\r\n\r\n  TBitmapLoadedProc = reference to procedure;\r\n\r\n  TGraphic = class(TPersistent)\r\n  private\r\n    FAddToQueue: Boolean;\r\n    FCanvasElement: TJSHTMLCanvasElement;\r\n    FEmpty: Boolean;\r\n    FData: string;\r\n    FDataBin: TBinaryString;\r\n    FCanvas: TCanvas;\r\n    FOnChange: TNotifyEvent;\r\n    FImage: TJSObject;\r\n    FBitmap: TBitmap;\r\n    FURL: string;\r\n    FLoaded: TBitmapLoadedProc;\r\n    FUsedCanvas: boolean;\r\n    procedure SetHeight(const Value: Integer);\r\n    procedure SetWidth(const Value: Integer);\r\n    function GetCanvas: TCanvas;\r\n    function GetData: TBinaryString;\r\n    procedure SetData(const Value: TBinaryString);\r\n  protected\r\n    procedure DoChange;\r\n    procedure SetURL(const URL: string);\r\n    function GetWidth: Integer;\r\n    function GetHeight: Integer;\r\n    procedure RecreateCanvas;\r\n    procedure DoBeginScene(Sender: TObject);\r\n    procedure DoEndScene(Sender: TObject);\r\n    procedure AssignEvents;\r\n    procedure CreateImage;\r\n    procedure LoadFromCache(AData: String; ALoaded: TBitmapLoadedProc = nil);\r\n  public\r\n    class function CreateFromResource(AResource: String): TGraphic; overload;\r\n    class function CreateFromResource(AResource: String; AInstance: NativeUInt): TGraphic; overload;\r\n    class function CreateFromURL(AURL: String): TGraphic; overload;\r\n    class function CreateFromURL(AURL: String; AInstance: NativeUInt): TGraphic; overload;\r\n    function Image: TJSObject;\r\n    function Empty: Boolean;\r\n    function GetBase64Image: string;\r\n    function GetAsImage(AType: TImageType = itBase64): string;\r\n    constructor Create(URL: string); overload;\r\n    constructor Create(Img: TJSObject); overload;\r\n    constructor Create; overload; reintroduce;\r\n    property Width: Integer read GetWidth write SetWidth;\r\n    property Height: Integer read GetHeight write SetHeight;\r\n    procedure CaptureCanvas; virtual;\r\n    procedure LoadFromCanvas(ACanvas: TCanvas); virtual;\r\n    procedure SetSize(AWidth, AHeight: Integer);\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure LoadFromURL(AURL: string; ALoaded: TBitmapLoadedProc = nil); virtual; overload;\r\n    procedure LoadFromURL(AURL: string; AHInstance: Integer; ALoaded: TBitmapLoadedProc = nil); virtual; overload;\r\n    procedure LoadFromFile(AFileName: string; ALoaded: TBitmapLoadedProc = nil); virtual;\r\n    procedure LoadFromResource(AResource: string); virtual; overload;\r\n    procedure LoadFromResource(AResource: string; AHInstance: Integer); virtual; overload;\r\n    procedure LoadFromStream(AStream: TStream);\r\n    procedure SaveToStream(AStream: TStream);\r\n    property Canvas: TCanvas read GetCanvas;\r\n    property Bitmap: TBitmap read FBitmap;\r\n  published\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    property URL: string read FURL write SetURL;\r\n    property Data: TBinaryString read GetData write SetData;\r\n  end;\r\n\r\n  TBitmap = class(TGraphic)\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n  end;\r\n\r\n  TMatrix = record\r\n    m11, m12, m13: Single;\r\n    m21, m22, m23: Single;\r\n    m31, m32, m33: Single;\r\n  end;\r\n\r\n  TCanvas = class(TObject)\r\n  private\r\n    FElementCanvas: TJSHTMLCanvasElement;\r\n    FContext: TJSCanvasRenderingContext2D;\r\n    FPen: TPen;\r\n    FBrush: TBrush;\r\n    FFont: TFont;\r\n    FPathOpen: boolean;\r\n    FPathX, FPathY: Double;\r\n    FClipRect: TCanvasRectF;\r\n    FOnEndScene: TNotifyEvent;\r\n    FOnBeginScene: TNotifyEvent;\r\n    FApplyPixelRatio: Boolean;\r\n    procedure SetClipRect(const Value: TCanvasRectF);\r\n  protected\r\n    procedure GetAccuOffset(X,Y: double; var dx,dy: single);\r\n    function GetPixel(X,Y: Single): TColor;\r\n    procedure SetPixel(X,Y: Single; Clr: TColor);\r\n    procedure ApplyStroke;\r\n    procedure ApplyFill;\r\n    procedure ApplyBrush(X1,Y1,X2,Y2: single);\r\n    property OnBeginScene: TNotifyEvent read FOnBeginScene write FOnBeginScene;\r\n    property OnEndScene: TNotifyEvent read FOnEndScene write FOnEndScene;\r\n  public\r\n    constructor Create(AControl: TJSHTMLCanvasElement); overload; virtual;\r\n    constructor Create; overload; reintroduce;\r\n    destructor Destroy; override;\r\n    procedure SetTransform(m11, m12, m21, m22, dx, dy: Double);\r\n    procedure Transform(m11, m12, m21, m22, dx, dy: Double);\r\n    procedure Rotate(Angle: Double);\r\n    procedure Translate(X, Y: Double);\r\n    procedure AngleArc(X, Y: Integer; Radius: Cardinal; StartAngle, SweepAngle: Double); overload;\r\n    procedure AngleArc(X, Y: Double; Radius: Double; StartAngle, SweepAngle: Double); overload;\r\n    procedure CopyRect(const DestRect: TRect; Canvas: TCanvas; SourceRect: TRect);\r\n    procedure MoveTo(X, Y: Integer); overload;\r\n    procedure MoveTo(X, Y: Double); overload;\r\n    procedure LineTo(X, Y: Integer); overload;\r\n    procedure LineTo(X, Y: Double); overload;\r\n    procedure Rectangle(X1, Y1, X2, Y2: Double); overload;\r\n    procedure Rectangle(X1, Y1, X2, Y2: Integer); overload;\r\n    procedure Rectangle(const Rect: TRect); overload;\r\n    procedure Rectangle(const Rect: TCanvasRectF); overload;\r\n    procedure RoundRect(X1, Y1, X2, Y2, X3, Y3: Integer); overload;\r\n    procedure RoundRect(X1, Y1, X2, Y2, X3, Y3: Double); overload;\r\n    procedure RoundRect(const Rect: TRect; CX, CY: Integer); overload;\r\n    procedure RoundRect(const Rect: TCanvasRectF; CX, CY: Double); overload;\r\n    procedure FillRect(const Rect: TRect); overload;\r\n    procedure FillRect(const Rect: TCanvasRectF); overload;\r\n    procedure Arc(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer);\r\n    procedure Ellipse(X1, Y1, X2, Y2: Integer); overload;\r\n    procedure Ellipse(X1, Y1, X2, Y2: Double); overload;\r\n    procedure Ellipse(const Rect: TRect); overload;\r\n    procedure Ellipse(const Rect: TCanvasRectF); overload;\r\n    procedure Polyline(const Points: array of TPoint); overload;\r\n    procedure Polyline(const Points: array of TCanvasPointF); overload;\r\n    procedure Polygon(const Points: array of TPoint); overload;\r\n    procedure Polygon(const Points: array of TCanvasPointF); overload;\r\n    procedure TextOut(X, Y: Integer; const Text: string); overload;\r\n    procedure TextOut(X, Y: Double; const Text: string); overload;\r\n    procedure Draw(X, Y: Integer; Graphic: TGraphic); overload;\r\n    procedure Draw(X, Y: Double; Graphic: TGraphic); overload;\r\n    procedure StretchDraw(Rect: TRect; Graphic: TGraphic); overload;\r\n    procedure StretchDraw(Rect: TCanvasRectF; Graphic: TGraphic); overload;\r\n    procedure DrawFocusRect(const Rect: TRect); overload;\r\n    procedure DrawFocusRect(const Rect: TCanvasRectF); overload;\r\n    procedure BeginScene;\r\n    procedure EndScene;\r\n    procedure PathBegin;\r\n    procedure PathClose;\r\n    procedure PathStroke;\r\n    procedure PathFill;\r\n    procedure PathMoveTo(X, Y: Integer); overload;\r\n    procedure PathMoveTo(X, Y: Double); overload;\r\n    procedure PathLineTo(X, Y: Integer); overload;\r\n    procedure PathLineTo(X, Y: Double); overload;\r\n    procedure Save;\r\n    procedure Clip;\r\n    procedure Restore;\r\n    procedure Refresh;\r\n    procedure Clear; overload;\r\n    procedure Clear(AColor: TColor); overload;\r\n    function TextExtent(const Text: string): TCanvasSizeF;\r\n    function TextRect(ARect: TRect; const Text: String; const WordWrap: Boolean = False; const Calculate: Boolean = False; const AHorizontalAlignment: TAlignment = taLeftJustify; const AVerticalAlignment: TVerticalAlignment = taAlignTop): TRect; overload;\r\n    function TextRect(ARect: TCanvasRectF; const Text: String; const WordWrap: Boolean = False; const Calculate: Boolean = False; const AHorizontalAlignment: TAlignment = taLeftJustify; const AVerticalAlignment: TVerticalAlignment = taAlignTop): TCanvasRectF; overload;\r\n    function TextRect(ARect: TCanvasRectF; const Text: String; TextFormat: TTextFormat): TCanvasRectF; overload;\r\n    function TextWidth(const Text: string): Double; overload;\r\n    function TextHeight(const Text: string): Double; overload;\r\n    function GetBase64Image: string;\r\n    function GetAsImage(AType: TImageType = itBase64): string;\r\n    procedure DownloadImage(AFileName: string; AType: TImageType = itPNG);\r\n    property Element: TJSHTMLCanvasElement read FElementCanvas;\r\n    property Pen: TPen read FPen;\r\n    property Brush: TBrush read FBrush;\r\n    property Font: TFont read FFont;\r\n    property Pixels[X, Y: Single]: TColor read GetPixel write SetPixel;\r\n    property ClipRect: TCanvasRectF read FClipRect write SetClipRect;\r\n    property Context: TJSCanvasRenderingContext2D read FContext;\r\n    property ApplyPixelRatio: Boolean read FApplyPixelRatio write FApplyPixelRatio default False;\r\n  end;\r\n\r\n  TJSCSSStyleDeclarationEx = class(TJSCSSStyleDeclaration)\r\n  public\r\n    filter: string;\r\n  end;\r\n\r\n  TJSHTMLElementEx = class(TJSHTMLElement)\r\n  private\r\n    FStyle: TJSCSSStyleDeclarationEx; external name 'style';\r\n  public\r\n  property style: TJSCSSStyleDeclarationEx read FStyle write FStyle;\r\n  end;\r\n\r\n  TJSCanvasRenderingContext2DEx = class(TJSCanvasRenderingContext2D)\r\n  private\r\n    FFilter: string; external name 'filter';\r\n  public\r\n    property filter: string read FFilter write FFilter;\r\n  end;\r\n\r\n\r\n  TURLPicture = class(TPersistent)\r\n  private\r\n    FOnChange: TNotifyEvent;\r\n    FFilename: string;\r\n    FData: TBinaryString;\r\n    FOnDataChange: TNotifyEvent;\r\n    FWidth: integer;\r\n    FHeight: integer;\r\n    procedure SetData(const Value: TBinaryString);\r\n    function GetData: TBinaryString;\r\n  protected\r\n    procedure Changed; virtual;\r\n    procedure DataChanged; virtual;\r\n  public\r\n    procedure LoadFromFile(AFileName: string);\r\n    property Filename: string read FFilename;\r\n    procedure Assign(Source: TPersistent); override;\r\n    property OnDataChange: TNotifyEvent read FOnDataChange write FOnDataChange;\r\n    property Width: integer read FWidth write FWidth;\r\n    property Height: integer read FHeight write FHeight;\r\n  published\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    property Data: TBinaryString read GetData write SetData;\r\n  end;\r\n\r\n\r\n  TThumbnailCreatedProc = reference to procedure(ADataURL: string);\r\n\r\nfunction ColorToRGB(Color: TColor): Longint;\r\nfunction ColorToHex(c: TColor): string;\r\nfunction ColorToHTML(c: TColor): string;\r\nfunction HTMLToColor(s: string): TColor;\r\n\r\nfunction ColorToString(Color: TColor): string;\r\nfunction StringToColor(const S: string): TColor;\r\nfunction CharsetToIdent(ACharSet: TFontCharSet): string;\r\nfunction IdentToCharset(const S: string): TFontCharSet;\r\n\r\nfunction FontSizeToHTML(sz: Double): string;\r\nfunction HTMLChar(h: string): integer;\r\nfunction HexToColor(h: string): TColor;\r\nfunction RGBToColor(argb: string): TColor;\r\nfunction FontSizeToPx(sz: Double): Double;\r\nfunction GetRValue(rgb: NativeInt): Byte;\r\nfunction GetGValue(rgb: NativeInt): Byte;\r\nfunction GetBValue(rgb: NativeInt): Byte;\r\nfunction CreateCanvasRectF(Left, Top, Right, Bottom: Double): TCanvasRectF;\r\nfunction CreateCanvasPointF(X, Y: Double): TCanvasPointF;\r\nfunction CreateCanvasSizeF(cx, cy: Double): TCanvasSizeF;\r\n\r\nfunction CanvasRectF(Left, Top, Right, Bottom: Double): TCanvasRectF;\r\nfunction CanvasPointF(X, Y: Double): TCanvasPointF;\r\nfunction CanvasSizeF(cx, cy: Double): TCanvasSizeF;\r\n\r\nfunction RGB(r, g, b: Byte): TColor;\r\nfunction RGBA(r, g, b, a: Byte): TColor;\r\nfunction CSSFont(Font: TFont): string;\r\nprocedure CreateThumbnail(ADataURL: string; AWidth, AHeight: integer; UseAspectRatio: boolean; ThumbnailReady: TThumbnailCreatedProc);\r\n\r\nimplementation\r\n\r\nuses\r\n  WEBLib.Forms, WEBLib.WEBTools, Math, SysUtils, Contnrs;\r\n\r\ntype\r\n  TGraphicCache = class\r\n  private\r\n    FImage: TJSObject;\r\n    FID: string;\r\n  public\r\n    constructor Create(AImage: TJSObject; AID: string); reintroduce;\r\n    property Image: TJSObject read FImage;\r\n    property ID: string read FID;\r\n  end;\r\n\r\n  TGraphicCacheList = class(TObjectList)\r\n  public\r\n    function Find(AID: string; var FImage: TJSObject): Boolean; virtual;\r\n    function Exists(AID: string): Boolean; virtual;\r\n  end;\r\n\r\nvar\r\n  FCache: TGraphicCacheList;\r\n  FQueue: TStringList;\r\n  FCacheCount: Integer = 0;\r\n\r\nfunction RGB(r, g, b: Byte): TColor;\r\nbegin\r\n  Result := (r or (g shl 8) or (b shl 16));\r\nend;\r\n\r\nfunction RGBA(r, g, b, a: Byte): TColor;\r\nbegin\r\n  Result := (r or (g shl 8) or (b shl 16)) or (a shl 24);\r\nend;\r\n\r\nfunction MatrixIdentity: TMatrix;\r\nbegin\r\n  Result.m11 := 1;\r\n  Result.m12 := 0;\r\n  Result.m13 := 0;\r\n  Result.m21 := 0;\r\n  Result.m22 := 1;\r\n  Result.m23 := 0;\r\n  Result.m31 := 0;\r\n  Result.m32 := 0;\r\n  Result.m33 := 1;\r\nend;\r\n\r\n{$HINTS OFF}\r\nfunction GetPixelRatio(ACanvas: TCanvas): Single;\r\nvar\r\n  res: single;\r\n  ca: TCanvas;\r\nbegin\r\n  ca := ACanvas;\r\n  asm\r\n    var ctx = ca.FContext,\r\n        dpr = window.devicePixelRatio || 1,\r\n        bsr = ctx.webkitBackingStorePixelRatio ||\r\n              ctx.mozBackingStorePixelRatio ||\r\n              ctx.msBackingStorePixelRatio ||\r\n              ctx.oBackingStorePixelRatio ||\r\n              ctx.backingStorePixelRatio || 1;\r\n    res = dpr / bsr\r\n  end;\r\n  Result := res;\r\nend;\r\n{$HINTS ON}\r\n\r\nfunction MatrixCreateScaling(const AScaleX, AScaleY: Single): TMatrix;\r\nbegin\r\n  Result := MatrixIdentity;\r\n  Result.m11 := AScaleX;\r\n  Result.m22 := AScaleY;\r\nend;\r\n\r\nfunction MatrixMultiply(const AMatrix1, AMatrix2: TMatrix): TMatrix;\r\nbegin\r\n  Result.m11 := AMatrix1.m11 * AMatrix2.m11 + AMatrix1.m12 * AMatrix2.m21 + AMatrix1.m13 * AMatrix2.m31;\r\n  Result.m12 := AMatrix1.m11 * AMatrix2.m12 + AMatrix1.m12 * AMatrix2.m22 + AMatrix1.m13 * AMatrix2.m32;\r\n  Result.m13 := AMatrix1.m11 * AMatrix2.m13 + AMatrix1.m12 * AMatrix2.m23 + AMatrix1.m13 * AMatrix2.m33;\r\n  Result.m21 := AMatrix1.m21 * AMatrix2.m11 + AMatrix1.m22 * AMatrix2.m21 + AMatrix1.m23 * AMatrix2.m31;\r\n  Result.m22 := AMatrix1.m21 * AMatrix2.m12 + AMatrix1.m22 * AMatrix2.m22 + AMatrix1.m23 * AMatrix2.m32;\r\n  Result.m23 := AMatrix1.m21 * AMatrix2.m13 + AMatrix1.m22 * AMatrix2.m23 + AMatrix1.m23 * AMatrix2.m33;\r\n  Result.m31 := AMatrix1.m31 * AMatrix2.m11 + AMatrix1.m32 * AMatrix2.m21 + AMatrix1.m33 * AMatrix2.m31;\r\n  Result.m32 := AMatrix1.m31 * AMatrix2.m12 + AMatrix1.m32 * AMatrix2.m22 + AMatrix1.m33 * AMatrix2.m32;\r\n  Result.m33 := AMatrix1.m31 * AMatrix2.m13 + AMatrix1.m32 * AMatrix2.m23 + AMatrix1.m33 * AMatrix2.m33;\r\nend;\r\n\r\nprocedure CreateThumbnail(ADataURL: string; AWidth, AHeight: integer; UseAspectRatio: boolean; ThumbnailReady: TThumbnailCreatedProc);\r\nvar\r\n  LImg: TJSElement;\r\n\r\nbegin\r\n  if (AWidth <=0) or (AHeight <= 0) then\r\n    Exit;\r\n\r\n  LImg := document.createElement('IMG');\r\n\r\n  asm\r\n    LImg.onload = function() {\r\n\r\n      var w = LImg.width;\r\n      var h = LImg.height;\r\n\r\n      var neww = AWidth;\r\n      var newh = AHeight;\r\n\r\n      if (UseAspectRatio) {\r\n        if ((w/neww) > (h/newh))\r\n        {\r\n          newh = h / (w/neww);\r\n        }\r\n        else\r\n        {\r\n          neww = w / (h/newh);\r\n        }\r\n      }\r\n      var LCanvas = document.createElement('CANVAS');\r\n      var ctx = LCanvas.getContext(\"2d\");\r\n      ctx.drawImage(LImg, 0, 0, neww, newh);\r\n      var res = LCanvas.toDataURL(\"image/png\");\r\n      ThumbnailReady(res);\r\n    }\r\n  end;\r\n\r\n  LImg['src'] := ADataURL;\r\nend;\r\n\r\nfunction CSSFont(Font: TFont): string;\r\nvar\r\n  res,fs: string;\r\nbegin\r\n  res := 'font-family:'+ Font.Name+';';\r\n  res := res + 'font-style: normal;';\r\n\r\n  if fsBold in Font.Style then\r\n    res := res + 'font-weight: bold;';\r\n\r\n  if fsItalic in Font.Style then\r\n    res := res + 'font-style: italic;';\r\n\r\n  fs := '';\r\n\r\n  if fsUnderline in Font.Style then\r\n    fs := fs + ' underline';\r\n\r\n  if fsStrikeOut in Font.Style then\r\n     fs:= fs + ' line-through';\r\n\r\n  if (fs <> '') then\r\n    res := res + 'text-decoration:' + fs+';';\r\n\r\n  res := res + 'font-size:'+ IntToStr(Font.Size) + 'pt;';\r\n\r\n  Result := res;\r\nend;\r\n\r\n\r\nfunction CreateCanvasRectF(Left, Top, Right, Bottom: Double): TCanvasRectF;\r\nbegin\r\n  Result.Left := Left;\r\n  Result.Top := Top;\r\n  Result.Right := Right;\r\n  Result.Bottom := Bottom;\r\nend;\r\n\r\nfunction CreateCanvasPointF(X, Y: Double): TCanvasPointF;\r\nbegin\r\n  Result.X := X;\r\n  Result.Y := Y;\r\nend;\r\n\r\nfunction CreateCanvasSizeF(cx, cy: Double): TCanvasSizeF;\r\nbegin\r\n  Result.cx := cx;\r\n  Result.cy := cy;\r\nend;\r\n\r\nfunction CanvasRectF(Left, Top, Right, Bottom: Double): TCanvasRectF;\r\nbegin\r\n  Result := CreateCanvasRectF(Left, Top, Right, Bottom);\r\nend;\r\n\r\nfunction CanvasPointF(X, Y: Double): TCanvasPointF;\r\nbegin\r\n  Result := CreateCanvasPointF(X,Y);\r\nend;\r\n\r\nfunction CanvasSizeF(cx, cy: Double): TCanvasSizeF;\r\nbegin\r\n  Result := CreateCanvasSizeF(cx, cy);\r\nend;\r\n\r\n\r\nfunction GetRValue(rgb: NativeInt): Byte;\r\nbegin\r\n  Result := Byte(rgb and $FF);\r\nend;\r\n\r\nfunction GetGValue(rgb: NativeInt): Byte;\r\nbegin\r\n  Result := Byte((rgb shr 8) and $FF);\r\nend;\r\n\r\nfunction GetBValue(rgb: NativeInt): Byte;\r\nbegin\r\n  Result := Byte((rgb shr 16) and $FF);\r\nend;\r\n\r\nfunction ColorToRGB(Color: TColor): Longint;\r\nbegin\r\n  Result := Color;\r\nend;\r\n\r\nfunction ColorToHex(c: TColor): string;\r\nvar\r\n  s: string;\r\nbegin\r\n  asm\r\n    s = c.toString(16);\r\n\r\n    while (s.length < 6)\r\n    {\r\n      s = \"0\" + s;\r\n    }\r\n  end;\r\n\r\n  Result := Copy(s,5,2) + Copy(s,3,2) + Copy(s,1,2);\r\nend;\r\n\r\nfunction ColorToHTML(c: TColor): string;\r\nbegin\r\n  if (integer(c) = -1) then  // Handle clNone to render as fully transparent color\r\n    Result := '#00000000'\r\n  else\r\n  if c and $FF000000 <> 0 then // it contains alpha part\r\n  begin\r\n    Result := '#' + ColorToHex(c and $FFFFFF) + IntToHex(((c and $FF000000) shr 24) and $FF,2);\r\n  end\r\n  else\r\n    Result := '#' + ColorToHex(c);\r\nend;\r\n\r\nfunction HTMLToColor(s: string): TColor;\r\nbegin\r\n  if pos('#',s) = 1 then\r\n    Delete(s,1,1);\r\n\r\n  Result := HexToColor(s);\r\nend;\r\n\r\nfunction ColorToVCL(c: TColor): string;\r\nvar\r\n  s: string;\r\nbegin\r\n  asm\r\n    s = c.toString(16);\r\n    while (s.length < 6)\r\n    {\r\n      s = \"0\" + s;\r\n    }\r\n  end;\r\n  Result := Copy(s,1,2) + Copy(s,3,2) + Copy(s,5,2);\r\nend;\r\n\r\n\r\nfunction ColorToString(Color: TColor): string;\r\nbegin\r\n  case Color of\r\n  clNone: Result := 'clNone';\r\n  clBlack: Result := 'clBlack';\r\n  clMaroon: Result := 'clMaroon';\r\n  clGreen: Result := 'clGreen';\r\n  clOlive: Result := 'clOlive';\r\n  clNavy: Result := 'clNavy';\r\n  clPurple: Result := 'clPurple';\r\n  clTeal: Result := 'clTeal';\r\n  clGray: Result := 'clGray';\r\n  clSilver: Result := 'clSilver';\r\n  clRed: Result := 'clRed';\r\n  clLime: Result := 'clLime';\r\n  clYellow: Result := 'clYellow';\r\n  clBlue: Result := 'clBlue';\r\n  clFuchsia: Result := 'clFuchsia';\r\n  clAqua: Result := 'clAqua';\r\n  clWhite: Result := 'clWhite';\r\n  clLtGray: Result := 'clLtGray';\r\n  clDkGray: Result := 'clDkGray';\r\n  clDefault: Result := 'clDefault';\r\n  clBtnFace: Result := 'clBtnFace';\r\n  clWindowText: Result := 'clWindowText';\r\n  clWindow: Result := 'clWindow';\r\n  clHighlight: Result := 'clHighlight';\r\n  clHighlightText: Result :='clHighlightText';\r\n  clInfoText: Result :='clInfoText';\r\n  clInfoBk: Result := 'clInfoBk';\r\n  clActiveCaption: Result := 'clActiveCaption';\r\n  clInactiveCaption: Result := 'clInactiveCaption';\r\n  clHotLight: Result := 'clHotLight'\r\n  else\r\n    Result := '$' + ColorToVCL(Color);\r\n  end;\r\nend;\r\n\r\nfunction StringToColor(const S: string): TColor;\r\nvar\r\n  us: string;\r\n  clr: integer;\r\nbegin\r\n  us := Uppercase(s);\r\n  if (us = 'CLNONE') then Result := clNone else\r\n  if (us = 'CLBLACK') then Result := clBlack else\r\n  if (us = 'CLMAROON') then Result := clMaroon else\r\n  if (us = 'CLGREEN') then Result := clGreen else\r\n  if (us = 'CLOLIVE') then Result := clOlive else\r\n  if (us = 'CLNAVY') then Result := clNavy else\r\n  if (us = 'CLPURPLE') then Result := clPurple else\r\n  if (us = 'CLTEAL') then Result := clTeal else\r\n  if (us = 'CLGRAY') then Result := clGray else\r\n  if (us = 'CLSILVER') then Result := clSilver else\r\n  if (us = 'CLRED') then Result := clRed else\r\n  if (us = 'CLLIME') then Result := clLime else\r\n  if (us = 'CLYELLOW') then Result := clYellow else\r\n  if (us = 'CLBLUE') then Result := clBlue else\r\n  if (us = 'CLFUCHSIA') then Result := clFuchsia else\r\n  if (us = 'CLAQUA') then Result := clAqua else\r\n  if (us = 'CLWHITE') then Result := clWhite else\r\n  if (us = 'CLLTGRAY') then Result := clLtGray else\r\n  if (us = 'CLDKGRAY') then Result := clDkGray else\r\n  if (us = 'CLDEFAULT') then Result := clDefault else\r\n  if (us = 'CLBTNFACE') then Result := clBtnFace else\r\n  if (us = 'CLWINDOWTEXT') then Result := clWindowText else\r\n  if (us = 'CLWINDOW') then Result := clWindow else\r\n  if (us = 'CLHIGHLIGHT') then Result := clHighlight else\r\n  if (us = 'CLHIGHLIGHTTEXT') then Result := clWhite else\r\n  if (us = 'CLINFOTEXT') then Result := clInfoText else\r\n  if (us = 'CLINFOBK') then Result := clInfoBk else\r\n  if (us = 'CLACTIVECAPTION') then Result := clActiveCaption else\r\n  if (us = 'CLINACTIVECAPTION') then Result := clInactiveCaption else\r\n  if (us = 'CLHOTLIGHT') then Result := clHotLight else\r\n  begin\r\n    clr := HexToColor(us);\r\n\r\n    Result := ((clr and $FF) shl 16) or (clr and $FF00) or ((clr and $FF0000) shr 16) or (clr and $FF000000);\r\n  end;\r\nend;\r\n\r\n\r\nfunction RGBToColor(argb: string): TColor;\r\nvar\r\n  r,g,b: string;\r\n  ri,gi,bi: byte;\r\n  e: integer;\r\nbegin\r\n  Result := clNone;\r\n\r\n  argb := Trim(argb);\r\n\r\n  if pos('RGB', uppercase(argb)) > 0  then\r\n  begin\r\n    delete(argb,1,4);\r\n\r\n    r := copy(argb,1, pos(',', argb) -1);\r\n    delete(argb, 1, pos(',', argb) + 1);\r\n\r\n    g := copy(argb,1, pos(',', argb) -1);\r\n    delete(argb, 1, pos(',', argb) + 1);\r\n\r\n    b := copy(argb,1, pos(')', argb) -1);\r\n\r\n    val(r, ri, e);\r\n    val(g, gi, e);\r\n    val(b, bi, e);\r\n\r\n    Result := RGB(ri,gi,bi);\r\n  end;\r\nend;\r\n\r\nfunction HexToColor(h: string): TColor;\r\nvar\r\n  s: string;\r\n  i: integer;\r\nbegin\r\n  s := '';\r\n  for i := 1 to Length(h) do\r\n  begin\r\n    // accept hex chars\r\n    if ((h[i] >='0') and (h[i] <= '9')) or ((h[i] >='A') and (h[i] <= 'F') or ((h[i] >='a') and (h[i] <= 'f'))) then\r\n      s := s + h[i];\r\n  end;\r\n\r\n  if length(s) > 6 then\r\n    s := '$' + Copy(s,1,2) + Copy(s,7,2) + Copy(s,5,2) + Copy(s,3,2)\r\n  else if length(s) = 3 then\r\n    s := '$' + Copy(s,3,1) + Copy(s,3,1) + Copy(s,2,1) + Copy(s,2,1) + Copy(s,1,1) + Copy(s,1,1)\r\n  else\r\n    s := '$' + Copy(s,5,2) + Copy(s,3,2) + Copy(s,1,2);\r\n\r\n  Result := StrToInt64(s);\r\nend;\r\n\r\nfunction HTMLChar(h: string): integer;\r\nbegin\r\n  // fmt &#xABCD;\r\n  Delete(h,1,3);\r\n  Delete(h,Length(h) - 1, 1);\r\n  Result := StrToInt('0x' + h);\r\nend;\r\n\r\nfunction FontSizeToHTML(sz: Double): string;\r\nbegin\r\n  Result := FloatToStr(sz)+'px';\r\n  Result := StringReplace(Result, ',', '.', [rfReplaceAll]);\r\nend;\r\n\r\n\r\nfunction CharSetToIdent(ACharSet: TFontCharSet): string;\r\nbegin\r\n  case ACharSet of\r\n  ANSI_CHARSET: Result := 'ANSI_CHARSET';\r\n  DEFAULT_CHARSET: Result := 'DEFAULT_CHARSET';\r\n  SYMBOL_CHARSET: Result := 'SYMBOL_CHARSET';\r\n  MAC_CHARSET: Result := 'MAC_CHARSET';\r\n  SHIFTJIS_CHARSET: Result := 'SHIFTJIS_CHARSET';\r\n  HANGEUL_CHARSET: Result := 'HANGEUL_CHARSET';\r\n  JOHAB_CHARSET: Result := 'JOHAB_CHARSET';\r\n  GB2312_CHARSET: Result := 'GB2312_CHARSET';\r\n  CHINESEBIG5_CHARSET: Result := 'CHINESEBIG5_CHARSET';\r\n  GREEK_CHARSET: Result := 'GREEK_CHARSET';\r\n  TURKISH_CHARSET: Result := 'TURKISH_CHARSET';\r\n  HEBREW_CHARSET: Result := 'HEBREW_CHARSET';\r\n  ARABIC_CHARSET: Result := 'ARABIC_CHARSET';\r\n  BALTIC_CHARSET: Result := 'BALTIC_CHARSET';\r\n  RUSSIAN_CHARSET: Result := 'RUSSIAN_CHARSET';\r\n  THAI_CHARSET: Result := 'THAI_CHARSET';\r\n  EASTEUROPE_CHARSET: Result := 'EASTEUROPE_CHARSET';\r\n  OEM_CHARSET: Result := 'OEM_CHARSET';\r\n  end;\r\nend;\r\n\r\nfunction IdentToCharSet(const S: string): TFontCharSet;\r\nbegin\r\n  if S = 'ANSI_CHARSET' then Result := ANSI_CHARSET;\r\n  if S = 'DEFAULT_CHARSET' then Result := DEFAULT_CHARSET;\r\n  if S = 'SYMBOL_CHARSET' then Result := SYMBOL_CHARSET;\r\n  if S = 'MAC_CHARSET' then Result := MAC_CHARSET;\r\n  if S = 'SHIFTJIS_CHARSET' then Result := SHIFTJIS_CHARSET;\r\n  if S = 'HANGEUL_CHARSET' then Result := HANGEUL_CHARSET;\r\n  if S = 'JOHAB_CHARSET' then Result := JOHAB_CHARSET;\r\n  if S = 'GB2312_CHARSET' then Result := GB2312_CHARSET;\r\n  if S = 'CHINESEBIG5_CHARSET' then Result := CHINESEBIG5_CHARSET;\r\n  if S = 'GREEK_CHARSET' then Result := GREEK_CHARSET;\r\n  if S = 'TURKISH_CHARSET' then Result := TURKISH_CHARSET;\r\n  if S = 'HEBREW_CHARSET' then Result := HEBREW_CHARSET;\r\n  if S = 'ARABIC_CHARSET' then Result := ARABIC_CHARSET;\r\n  if S = 'BALTIC_CHARSET' then Result := BALTIC_CHARSET;\r\n  if S = 'RUSSIAN_CHARSET' then Result := RUSSIAN_CHARSET;\r\n  if S = 'THAI_CHARSET' then Result := THAI_CHARSET;\r\n  if S = 'EASTEUROPE_CHARSET' then Result := EASTEUROPE_CHARSET;\r\n  if S = 'OEM_CHARSET' then Result := OEM_CHARSET;\r\nend;\r\n\r\n{ TPen }\r\n\r\nprocedure TPen.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TPen) then\r\n  begin\r\n    FColor := (Source as TPen).Color;\r\n    FStyle := (Source as TPen).Style;\r\n    FWidth := (Source as TPen).Width;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nconstructor TPen.Create;\r\nbegin\r\n  FColor := clBlack;\r\n  FWidth := 1;\r\n  FStyle := psSolid;\r\n  FMode := pmCopy;\r\nend;\r\n\r\nprocedure TPen.SetColor(const Value: TColor);\r\nbegin\r\n  FColor := Value;\r\nend;\r\n\r\n{ TBrush }\r\n\r\nprocedure TBrush.AddGradientColor(AColor: TColor; AStop: single);\r\nvar\r\n  gr: TGradientColor;\r\nbegin\r\n  gr := TGradientColor.Create;\r\n  gr.Color := AColor;\r\n  gr.Stop := AStop;\r\n  FGradientColors.Add(gr);\r\nend;\r\n\r\nprocedure TBrush.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TBrush) then\r\n  begin\r\n    FColor := (Source as TBrush).Color;\r\n    FStyle := (Source as TBrush).Style;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nfunction FontSizeToPx(sz: Double): Double;\r\nbegin\r\n  Result := sz * 96 / 72;\r\nend;\r\n\r\nprocedure TBrush.ClearGradient;\r\nvar\r\n  i: integer;\r\n  gr: TGradientColor;\r\nbegin\r\n  for i := FGradientColors.Count - 1 downto 0 do\r\n  begin\r\n    gr := TGradientColor(FGradientColors[i]);\r\n    gr.Free;\r\n    FGradientColors.Delete(i);\r\n  end;\r\nend;\r\n\r\nconstructor TBrush.Create;\r\nbegin\r\n  FColor := clWhite;\r\n  FStyle := bsSolid;\r\n  FGradient := bgNone;\r\n  FGradientColors := TList.Create;\r\nend;\r\n\r\ndestructor TBrush.Destroy;\r\nbegin\r\n  FGradientColors.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TBrush.GetGradientColor(AIndex: integer; var AColor: TColor;\r\n  var AStop: single);\r\nbegin\r\n  if AIndex < FGradientColors.Count then\r\n  begin\r\n    AColor := TGradientColor(FGradientColors[AIndex]).Color;\r\n    AStop := TGradientColor(FGradientColors[AIndex]).Stop;\r\n  end\r\n  else\r\n    raise Exception.Create('Invalid gradient color index');\r\nend;\r\n\r\nfunction TBrush.GradientCount: integer;\r\nbegin\r\n  Result := FGradientColors.Count;\r\nend;\r\n\r\n{ TFont }\r\n\r\nprocedure TFont.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TFont) then\r\n  begin\r\n    FName := (Source as TFont).Name;\r\n    FColor := (Source as TFont).Color;\r\n    FSize := (Source as TFont).Size;\r\n    FStyle := (Source as TFont).Style;\r\n    DoChange;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nfunction TFont.ToString: string;\r\nvar\r\n  s: string;\r\nbegin\r\n  s := '';\r\n  if (TFontStyle.fsBold in Style) and (TFontStyle.fsItalic in Style) then\r\n    s := s + 'bold italic'\r\n  else if TFontStyle.fsBold in Style then\r\n    s := s + 'bold'\r\n  else if TFontStyle.fsItalic in Style then\r\n    s := s + 'italic';\r\n\r\n  if Size <> 0 then\r\n    Result := s + ' ' + FontSizeToHTML(FontSizeToPx(Size)) + ' ' + Name\r\n  else\r\n    Result := s + ' ' + FontSizeToHTML(FontSizeToPx(12)) + ' ' + Name\r\nend;\r\n\r\nprocedure TFont.SetName(const AName: TFontName);\r\nbegin\r\n  if (FName <> AName) then\r\n  begin\r\n    FName := AName;\r\n    DoChange;\r\n  end;\r\nend;\r\n\r\nprocedure TFont.SetSize(const ASize: Integer);\r\nbegin\r\n  if (FSize <> ASize) then\r\n  begin\r\n    FSize := ASize;\r\n    DoChange;\r\n  end;\r\nend;\r\n\r\nprocedure TFont.SetColor(const AColor: TColor);\r\nbegin\r\n  if (FColor <> AColor) then\r\n  begin\r\n    FColor := AColor;\r\n    DoChange;\r\n  end;\r\nend;\r\n\r\nprocedure TFont.SetHeight(const Value: Integer);\r\nvar\r\n  d: double;\r\nbegin\r\n  d := -Value * 72/96;\r\n  FSize := Round(d);\r\n\r\n  if (FHeight <> Value) then\r\n  begin\r\n    FHeight := Value;\r\n    DoChange;\r\n  end;\r\nend;\r\n\r\nprocedure TFont.SetStyle(const AStyle: TFontStyles);\r\nbegin\r\n  if (FStyle <> AStyle) then\r\n  begin\r\n    FStyle := AStyle;\r\n    DoChange;\r\n  end;\r\nend;\r\n\r\nconstructor TFont.Create;\r\nbegin\r\n  inherited;\r\n  FName := WEBDEFAULTFONT;\r\n  FSize := 8;\r\n  FHeight := -11;\r\n  FStyle := [];\r\n  FColor := clBlack;\r\nend;\r\n\r\nprocedure TFont.DoChange;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\n{ TCanvas }\r\n\r\nprocedure TCanvas.AngleArc(X, Y, Radius: Double; StartAngle,\r\n  SweepAngle: Double);\r\nbegin\r\n  if Assigned(FContext) then\r\n  begin\r\n    FContext.beginPath();\r\n    ApplyStroke;\r\n    FContext.arc(X, Y, Radius, StartAngle, StartAngle + SweepAngle);\r\n    FContext.stroke();\r\n  end;\r\nend;\r\n\r\nprocedure TCanvas.ApplyFill;\r\nbegin\r\n  if Assigned(FContext) then\r\n    FContext.fillStyle := ColorToHtml(Brush.Color);\r\nend;\r\n\r\nprocedure TCanvas.ApplyStroke;\r\nbegin\r\n  if Assigned(FContext) then\r\n  begin\r\n    FContext.lineWidth := Pen.Width;\r\n    FContext.strokeStyleAsColor := ColorToHtml(Pen.Color);\r\n    case Pen.Style of\r\n      psSolid: FContext.setlinedash([]);\r\n      psDot: FContext.setlinedash([1,2]);\r\n      psDash: FContext.setlinedash([8,2]);\r\n      psDashDot: FContext.setlinedash([6,2,2,2]);\r\n      psDashDotDot: FContext.setlinedash([6,2,2,2,2,2]);\r\n      psClear: FContext.setlinedash([0, $FFFF]);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction AngleOfPoints(x1,y1,x2,y2:double):double;\r\nvar\r\n  part1, part2:double;\r\n  angle:double;\r\nbegin\r\n  if (x1=x2) and (y1=y2) then\r\n  begin\r\n    Result:=0.0;\r\n    Exit;\r\n  end;\r\n\r\n  part1 := abs(y2 - y1);\r\n  if (part1=0) then\r\n  begin\r\n    part1:=0.0000001;\r\n    y1 := y1+0.0000001;\r\n  end;\r\n\r\n  part2 := abs(x2- x1);\r\n  if (part2=0) then\r\n  begin\r\n    part2:=0.0000001;\r\n    x1 := x1 + 0.0000001;\r\n  end;\r\n\r\n  angle := arctan(part1/part2);\r\n\r\n  if ((x1>x2) and (y1<y2)) then angle:=PI-angle;\r\n  if ((x1>x2) and (y1>y2)) then angle:=angle +PI;\r\n  if ((x1<x2) and (y1>y2)) then angle:=2*PI-angle;\r\n\r\n  while angle>= 2*PI do\r\n    angle := angle - 2*PI;\r\n  while angle < 0 do\r\n   angle := angle + 2*PI;\r\n  Result := angle;\r\nend;\r\n\r\nprocedure TCanvas.Arc(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer);\r\nvar\r\n  rx,ry: integer;\r\n  angleStart,angleEnd: double;\r\nbegin\r\n  if Assigned(FContext) then\r\n  begin\r\n    rx := (X2-X1) div 2;\r\n    ry := (Y2-Y1) div 2;\r\n\r\n    angleStart := AngleOfPoints(X1+rx,Y1+ry,X4,Y4);\r\n    angleEnd := AngleOfPoints(X1+rx,Y1+ry,X3,Y3);\r\n\r\n    FContext.beginPath();\r\n    ApplyStroke;\r\n    FContext.ellipse(X1+rx,Y1+ry,rx,ry,0,angleStart,angleEnd);\r\n    FContext.stroke();\r\n  end;\r\nend;\r\n\r\nprocedure TCanvas.PathBegin;\r\nbegin\r\n  if Assigned(FContext) then\r\n    FContext.beginPath();\r\nend;\r\n\r\nprocedure TCanvas.BeginScene;\r\nbegin\r\n  if Assigned(OnBeginScene) then\r\n    OnBeginScene(Self);\r\nend;\r\n\r\nprocedure TCanvas.Clear;\r\nbegin\r\n  if Assigned(FContext) and Assigned(FElementCanvas) then\r\n    FContext.clearRect(0, 0, FElementCanvas.width, FElementCanvas.height);\r\nend;\r\n\r\nprocedure TCanvas.Clear(AColor: TColor);\r\nvar\r\n  c: TColor;\r\n  s: TBrushStyle;\r\nbegin\r\n  Clear;\r\n  if Assigned(FElementCanvas) then\r\n  begin\r\n    c := Brush.Color;\r\n    s := Brush.Style;\r\n    Brush.Color := AColor;\r\n    Brush.Style := bsSolid;\r\n    FillRect(Rect(0, 0, FElementCanvas.width, FElementCanvas.height));\r\n    Brush.Color := c;\r\n    Brush.Style := s;\r\n  end;\r\nend;\r\n\r\nprocedure TCanvas.Clip;\r\nbegin\r\n  if Assigned(FContext) then\r\n    FContext.clip;\r\nend;\r\n\r\nprocedure TCanvas.CopyRect(const DestRect: TRect; Canvas: TCanvas;\r\n  SourceRect: TRect);\r\nvar\r\n  sw,sh: integer;\r\n  dw,dh: integer;\r\n  imgData: TJSImageData;\r\n  ACanvas: TCanvas;\r\nbegin\r\n  if Assigned(FContext) then\r\n  begin\r\n    sw := SourceRect.Right - SourceRect.Left;\r\n    sh := SourceRect.Bottom - SourceRect.Top;\r\n\r\n    dw := DestRect.Right - DestRect.Left;\r\n    dh := DestRect.Bottom - DestRect.Top;\r\n\r\n    imgData := FContext.getImageData(SourceRect.Left, SourceRect.Top, sw, sh);\r\n\r\n    ACanvas := TCanvas.Create;\r\n    try\r\n      ACanvas.FElementCanvas.width := sw;\r\n      ACanvas.FElementCanvas.height := sh;\r\n\r\n      ACanvas.FContext.putImageData(imgData, 0,0);\r\n      Canvas.FContext.drawImage(ACanvas.FElementCanvas, DestRect.Left, DestRect.Top, dw, dh);\r\n    finally\r\n      ACanvas.Free;\r\n    end;\r\n  end;\r\nend;\r\n\r\nconstructor TCanvas.Create;\r\nbegin\r\n  FElementCanvas := TJSHTMLCanvasElement(document.createElement('CANVAS'));\r\n  Create(FElementCanvas);\r\nend;\r\n\r\nconstructor TCanvas.Create(AControl: TJSHTMLCanvasElement);\r\nbegin\r\n  FElementCanvas := AControl;\r\n\r\n  //FContext := AControl.getContextAs2DContext('2d');\r\n  asm\r\n    if (navigator.userAgent.indexOf('Safari') !== -1 && navigator.userAgent.indexOf('Chrome') === -1) {\r\n      this.FContext = AControl.getContext('2d');\r\n    } else {\r\n      this.FContext = AControl.getContext('2d',{ willReadFrequently: true});\r\n    }\r\n  end;\r\n\r\n  FPen := TPen.Create;\r\n  FBrush := TBrush.Create;\r\n  FPathOpen := false;\r\n  FFont := TFont.Create;\r\n  FApplyPixelRatio := False;\r\nend;\r\n\r\nprocedure TCanvas.AngleArc(X, Y: Integer; Radius: Cardinal; StartAngle, SweepAngle: Double);\r\nbegin\r\n  AngleArc(Double(X), Double(Y), Double(Radius), Double(StartAngle), Double(SweepAngle));\r\nend;\r\n\r\nprocedure TCanvas.MoveTo(X,Y: Integer);\r\nbegin\r\n  MoveTo(Double(X), Double(Y));\r\nend;\r\n\r\nprocedure TCanvas.LineTo(X,Y: Integer);\r\nbegin\r\n  LineTo(Double(X), Double(Y));\r\nend;\r\n\r\nprocedure TCanvas.Rectangle(const Rect: TRect);\r\nbegin\r\n  Rectangle(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom);\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TCanvas.ApplyBrush(X1, Y1, X2, Y2: Double);\r\nvar\r\n  dx,dy,p: single;\r\n  gr: TJSCanvasGradient;\r\n  i: integer;\r\n  clr: string;\r\n  AColor: TColor;\r\n  AStop: single;\r\nbegin\r\n  GetAccuOffset(X1,Y1,dx,dy);\r\n\r\n  if Brush.Style in [bsHorizontal, bsCross] then\r\n  begin\r\n    p := Y1 + dy;\r\n    FContext.lineWidth := 1;\r\n    FContext.strokeStyleAsColor := ColorToHtml(Brush.Color);\r\n    while p < Y2 do\r\n    begin\r\n      FContext.moveTo(x1,p);\r\n      FContext.lineTo(x2,p);\r\n      p := p + 8;\r\n    end;\r\n  end;\r\n\r\n  if Brush.Style in [bsVertical, bsCross] then\r\n  begin\r\n    p := X1 + dx;\r\n    FContext.lineWidth := 1;\r\n    FContext.strokeStyleAsColor := ColorToHtml(Brush.Color);\r\n    while p < X2 do\r\n    begin\r\n      FContext.moveTo(p,y1);\r\n      FContext.lineTo(p,y2);\r\n      p := p + 8;\r\n    end;\r\n  end;\r\n\r\n  if Brush.Style in [bsFDiagonal, bsDiagCross] then\r\n  begin\r\n    p := X1 + dx - (X2 - X1);\r\n    FContext.lineWidth := 1;\r\n    FContext.strokeStyleAsColor := ColorToHtml(Brush.Color);\r\n    while p < X2 do\r\n    begin\r\n      FContext.moveTo(p,y1);\r\n      FContext.lineTo(p + (y2-y1),y2);\r\n      p := p + 8;\r\n    end;\r\n  end;\r\n\r\n  if Brush.Style in [bsBDiagonal, bsDiagCross] then\r\n  begin\r\n    p := X1 + dx;\r\n    FContext.lineWidth := 1;\r\n    FContext.strokeStyleAsColor := ColorToHtml(Brush.Color);\r\n    while p < X2 + (X2 - X1) do\r\n    begin\r\n      FContext.moveTo(p,y1);\r\n      FContext.lineTo(p - (y2-y1),y2);\r\n      p := p + 8;\r\n    end;\r\n  end;\r\n\r\n  if Brush.Gradient <> bgNone then\r\n  begin\r\n    case Brush.Gradient of\r\n    bgLinearHorz: gr := FContext.createLinearGradient(X1, Y1, X2, Y1);\r\n    bgLinearVert: gr := FContext.createLinearGradient(X1, Y1, X1, Y2);\r\n    bgRadial: gr :=  FContext.createRadialGradient(X1 + (X2-X1)/2, Y1+ (Y2 - Y1)/2, 0, X1 + (X2-X1)/2, Y1+ (Y2 - Y1)/2, (X2-X1)/2);\r\n    end;\r\n\r\n    clr := ColorToHtml(ColorToRGB(Brush.Color));\r\n    asm\r\n      gr.addColorStop(0,clr);\r\n    end;\r\n\r\n    for i := 0 to Brush.GradientCount - 1 do\r\n    begin\r\n      Brush.GetGradientColor(i, AColor, AStop);\r\n      clr := ColorToHtml(ColorToRGB(AColor));\r\n      asm\r\n        gr.addColorStop(AStop,clr);\r\n      end;\r\n    end;\r\n\r\n    FContext.fillStyle := gr;\r\n    Exit;\r\n  end;\r\n\r\n  FContext.stroke();\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TCanvas.Rectangle(X1, Y1, X2, Y2: Double);\r\nvar\r\n  dx,dy: single;\r\nbegin\r\n  if Assigned(FContext) then\r\n  begin\r\n    FContext.save;\r\n    FContext.beginPath();\r\n    ApplyStroke;\r\n    ApplyFill;\r\n\r\n    GetAccuOffset(X1,Y1,dx,dy);\r\n\r\n    asm\r\n      let region = new Path2D();\r\n      region.rect(X1, Y1, X2- X1 + 1, Y2 - Y1 + 1);\r\n      this.FContext.clip(region, \"evenodd\");\r\n    end;\r\n\r\n    ApplyBrush(X1,Y1,X2,Y2);\r\n\r\n    if not (Brush.Style in [bsClear, bsHorizontal, bsVertical, bsCross, bsFDiagonal, bsBDiagonal, bsDiagCross]) then\r\n    begin\r\n      FContext.rect(X1+dx, Y1+dy, X2 - X1, Y2 - Y1);\r\n      FContext.fill();\r\n    end;\r\n\r\n    if Pen.Style <> psClear then\r\n    begin\r\n      ApplyStroke;\r\n      FContext.beginPath;\r\n      FContext.rect(X1+dx, Y1+dy, X2 - X1, Y2 - Y1);\r\n      FContext.stroke();\r\n    end;\r\n\r\n    FContext.restore;\r\n  end;\r\nend;\r\n\r\nprocedure TCanvas.Rectangle(const Rect: TCanvasRectF);\r\nbegin\r\n  Rectangle(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom);\r\nend;\r\n\r\nprocedure TCanvas.Refresh;\r\nbegin\r\nend;\r\n\r\nprocedure TCanvas.Restore;\r\nbegin\r\n  if Assigned(FContext) then\r\n    FContext.restore();\r\nend;\r\n\r\nprocedure TCanvas.Rectangle(X1, Y1, X2, Y2: Integer);\r\nbegin\r\n  Rectangle(Double(X1), Double(Y1), Double(X2), Double(Y2));\r\nend;\r\n\r\nprocedure TCanvas.FillRect(const Rect: TRect);\r\nbegin\r\n  Rectangle(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom);\r\nend;\r\n\r\nprocedure TCanvas.RoundRect(X1,Y1,X2,Y2,X3,Y3: Integer);\r\nbegin\r\n  RoundRect(Double(X1), Double(Y1), Double(X2), Double(Y2), Double(X3), Double(Y3));\r\nend;\r\n\r\nprocedure TCanvas.RoundRect(const Rect: TRect; CX, CY: Integer);\r\nbegin\r\n  RoundRect(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom, CX, CY);\r\nend;\r\n\r\nprocedure TCanvas.RoundRect(X1, Y1, X2, Y2, X3, Y3: Double);\r\nvar\r\n  dx,dy: single;\r\nbegin\r\n  if Assigned(FContext) then\r\n  begin\r\n    if (x2 < x1) then\r\n      Exit;\r\n    if (y2 < y1) then\r\n      Exit;\r\n\r\n    FContext.beginPath();\r\n    ApplyStroke;\r\n    ApplyFill;\r\n\r\n    GetAccuOffset(X1, Y1, dx, dy);\r\n\r\n    FContext.moveTo(X1 + X3/2, Y1 + dy);\r\n    FContext.lineTo(X2 - X3/2, Y1 + dy);\r\n    FContext.ellipse(X2 - dx - X3 / 2, Y1 + dy + Y3/2, X3 / 2, Y3 / 2, 0, Pi * 1.5, 0);\r\n\r\n    FContext.lineTo(X2 - dx, Y2 - Y3/2);\r\n    FContext.ellipse(X2 - dx - X3 / 2, Y2 - dy - Y3/2, X3 / 2, Y3 / 2, 0, 0, Pi * 0.5);\r\n    FContext.lineTo(X1 + X3/2, Y2 - dy);\r\n    FContext.ellipse(X1 + dx + X3 / 2, Y2 - dy - Y3/2, X3 / 2, Y3 / 2, 0, Pi * 0.5, Pi);\r\n    FContext.lineTo(X1 + dx, Y1 + Y3/2 + dy);\r\n    FContext.ellipse(X1 + dx + X3 / 2, Y1 + dy + Y3/2, X3 / 2, Y3 / 2, 0, Pi, Pi * 1.5);\r\n\r\n    if Brush.Style = bsSolid then\r\n      FContext.fill();\r\n\r\n    if Pen.Style <> psClear then\r\n      FContext.stroke();\r\n\r\n    FContext.save;\r\n\r\n    asm\r\n      let region = new Path2D();\r\n      region.moveTo(X1 + X3/2, Y1 + dy);\r\n      region.lineTo(X2 - X3/2, Y1 + dy);\r\n      region.ellipse(X2 - dx - X3 / 2, Y1 + dy + Y3/2, X3 / 2, Y3 / 2, 0, Math.PI * 1.5, 0);\r\n      region.lineTo(X2 + dx, Y2 - Y3/2 );\r\n      region.ellipse(X2 - dx - X3 / 2, Y2 - dy - Y3/2, X3 / 2, Y3 / 2, 0, 0, Math.PI * 0.5);\r\n      region.lineTo(X1 + X3/2, Y2 + dy);\r\n      region.ellipse(X1 + dx + X3 / 2, Y2 - dy - Y3/2, X3 / 2, Y3 / 2, 0, Math.PI * 0.5, Math.PI);\r\n      region.lineTo(X1 + dx, Y1 + Y3/2 + dy);\r\n      region.ellipse(X1 + dx + X3 / 2, Y1 + dy + Y3/2, X3 / 2, Y3 / 2, 0, Math.PI, Math.PI * 1.5);\r\n      this.FContext.clip(region, \"evenodd\");\r\n    end;\r\n\r\n    ApplyBrush(X1,Y1,X2,Y2);\r\n\r\n    FContext.restore;\r\n  end;\r\nend;\r\n\r\nprocedure TCanvas.Ellipse(X1, Y1, X2, Y2: Integer);\r\nbegin\r\n  Ellipse(Double(X1), Double(Y1), Double(X2), Double(Y2));\r\nend;\r\n\r\nprocedure TCanvas.Ellipse(const Rect: TRect);\r\nbegin\r\n  Ellipse(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom);\r\nend;\r\n\r\nprocedure TCanvas.Polyline(const Points: array of TPoint);\r\nvar\r\n  l, i: Integer;\r\nbegin\r\n  if Assigned(FContext) then\r\n  begin\r\n    l := Length(Points);\r\n\r\n    if l = 0 then\r\n      Exit;\r\n\r\n    FContext.beginPath();\r\n    ApplyStroke;\r\n    i := 0;\r\n    FContext.moveTo(Points[i].X, Points[i].Y);\r\n\r\n    while (i < l - 1) do\r\n    begin\r\n      inc(i);\r\n      FContext.lineTo(Points[i].X, Points[i].Y);\r\n    end;\r\n\r\n    if Pen.Style <> psClear then\r\n      FContext.stroke();\r\n  end;\r\nend;\r\n\r\nprocedure TCanvas.Polygon(const Points: array of TPoint);\r\nvar\r\n  l, i: Integer;\r\n  x1,y1,x2,y2: integer;\r\n\r\nbegin\r\n  if Assigned(FContext) then\r\n  begin\r\n    l := Length(Points);\r\n\r\n    if l = 0 then\r\n      Exit;\r\n\r\n    FContext.beginPath();\r\n    ApplyStroke;\r\n\r\n    x1 := $FFFF;\r\n    y1 := $FFFF;\r\n    x2 := 0;\r\n    y2 := 0;\r\n    for i := 0 to Length(Points) - 1 do\r\n    begin\r\n      if Points[i].X < x1 then\r\n        x1 := Points[i].X;\r\n      if Points[i].Y < y1 then\r\n        y1 := Points[i].Y;\r\n\r\n      if Points[i].X > x2 then\r\n        x2 := Points[i].X;\r\n      if Points[i].Y > y2 then\r\n        y2 := Points[i].Y;\r\n    end;\r\n\r\n    if Brush.Gradient <> bgNone then\r\n    begin\r\n      ApplyBrush(x1,y1,x2,y2);\r\n    end\r\n    else\r\n      ApplyFill;\r\n\r\n    i := 0;\r\n    FContext.moveTo(Points[i].X, Points[i].Y);\r\n\r\n    while (i < l - 1) do\r\n    begin\r\n      inc(i);\r\n      FContext.lineTo(Points[i].X, Points[i].Y);\r\n    end;\r\n\r\n    FContext.closePath();\r\n\r\n    if Brush.Style <> bsClear then\r\n      FContext.fill();\r\n\r\n    if Pen.Style <> psClear then\r\n      FContext.stroke();\r\n  end;\r\nend;\r\n\r\nfunction TCanvas.TextExtent(const Text: string): TCanvasSizeF;\r\nbegin\r\n  Result.cx := TextWidth(Text);\r\n  Result.cy := TextHeight(Text);\r\nend;\r\n\r\nfunction TCanvas.TextHeight(const Text: string): Double;\r\nbegin\r\n  Result := FontSizeToPx(Font.Size);\r\nend;\r\n\r\nprocedure TCanvas.MoveTo(X, Y: Double);\r\nvar\r\n  dx,dy: single;\r\nbegin\r\n  if Assigned(FContext) then\r\n  begin\r\n    FPathOpen := true;\r\n    FContext.beginPath();\r\n    ApplyStroke;\r\n    dx := 0;\r\n    dy := 0;\r\n    GetAccuOffset(X, Y, dx, dy);\r\n    FContext.moveTo(X + dx,Y + dy);\r\n  end;\r\nend;\r\n\r\nprocedure TCanvas.TextOut(X, Y: Double; const Text: string);\r\nvar\r\n  tm: TJSTextMetrics;\r\n  DrwText: string;\r\nbegin\r\n  if Assigned(FContext) then\r\n  begin\r\n    // remove #0 chars\r\n    asm\r\n      DrwText = Text.replace('\\0','');\r\n    end;\r\n\r\n    FContext.fillStyle := ColorToHtml(Font.Color);\r\n    FContext.font := Font.ToString;\r\n    FContext.textBaseline := 'top';\r\n    FContext.fillText(DrwText, X, Y);\r\n\r\n    if fsUnderline in Font.Style then\r\n    begin\r\n      tm := FContext.measureText(DrwText);\r\n      FContext.fillRect(X, Y + Font.Size *1.4, tm.width, 1);\r\n    end;\r\n\r\n    if fsStrikeOut in Font.Style then\r\n    begin\r\n      tm := FContext.measureText(DrwText);\r\n      FContext.fillRect(X, Y + Font.Size *0.7, tm.width, 1);\r\n    end;\r\n\r\n  end;\r\nend;\r\n\r\nfunction TCanvas.TextRect(ARect: TCanvasRectF; const Text: String; TextFormat: TTextFormat): TCanvasRectF;\r\nvar\r\n  ha: TAlignment;\r\n  va: TVerticalAlignment;\r\nbegin\r\n  ha := taLeftJustify;\r\n  va := taAlignTop;\r\n\r\n  if tfCenter in TextFormat then\r\n    ha := taCenter\r\n  else\r\n  if tfRight in TextFormat then\r\n    ha := taRightJustify;\r\n\r\n  if tfVerticalCenter in TextFormat then\r\n    va := taVerticalCenter\r\n  else\r\n  if tfBottom in TextFormat then\r\n    va := taAlignBottom;\r\n\r\n\r\n//   (tfBottom, tfCalcRect, tfCenter, tfEditControl, tfEndEllipsis,\r\n//    tfPathEllipsis, tfExpandTabs, tfExternalLeading, tfLeft, tfModifyString,\r\n//    tfNoClip, tfNoPrefix, tfRight, tfRtlReading, tfSingleLine, tfTop,\r\n//    tfVerticalCenter, tfWordBreak, tfHidePrefix, tfNoFullWidthCharBreak,\r\n//    tfPrefixOnly, tfTabStop, tfWordEllipsis, tfComposited);\r\n\r\n  Result := TextRect(ARect, Text, tfWordBreak in TextFormat, tfCalcRect in TextFormat, ha, va);\r\nend;\r\n\r\nfunction TCanvas.TextRect(ARect: TCanvasRectF; const Text: String; const WordWrap: Boolean = False; const Calculate: Boolean = False; const AHorizontalAlignment: TAlignment = taLeftJustify; const AVerticalAlignment: TVerticalAlignment = taAlignTop): TCanvasRectF;\r\nvar\r\n  i: Integer;\r\n  s, sn, st: string;\r\n  l: Integer;\r\n  w, mw: Double;\r\n  f: Boolean;\r\n  p: Integer;\r\n  tw: Double;\r\n  th: Double;\r\n  lcnt: Integer;\r\n  rs: TCanvasRectF;\r\n  fws: Double;\r\n  ths: Double;\r\n  ww, wwx, fx: Boolean;\r\n\r\n  procedure DrawText(AText: string; AWidth, AHeight: Single);\r\n  begin\r\n    if ww then\r\n    begin\r\n      case AHorizontalAlignment of\r\n        taCenter: TextOut(ARect.Left + (ARect.Right - ARect.Left - AWidth) / 2, ARect.Top, AText);\r\n        taLeftJustify: TextOut(ARect.Left, ARect.Top, AText);\r\n        taRightJustify: TextOut(ARect.Right - AWidth, ARect.Top, AText);\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      case AHorizontalAlignment of\r\n        taCenter:\r\n        begin\r\n          case AVerticalAlignment of\r\n            taAlignTop: TextOut(ARect.Left + (ARect.Right - ARect.Left - AWidth) / 2, ARect.Top, AText);\r\n            taVerticalCenter: TextOut(ARect.Left + (ARect.Right - ARect.Left - AWidth) / 2, ARect.Top + (ARect.Bottom - ARect.Top - AHeight) / 2, AText);\r\n            taAlignBottom: TextOut(ARect.Left + (ARect.Right - ARect.Left - AWidth) / 2, ARect.Bottom - AHeight, AText);\r\n          end;\r\n        end;\r\n        taLeftJustify:\r\n        begin\r\n          case AVerticalAlignment of\r\n            taAlignTop: TextOut(ARect.Left, ARect.Top, AText);\r\n            taVerticalCenter: TextOut(ARect.Left, ARect.Top + (ARect.Bottom - ARect.Top - AHeight) / 2, AText);\r\n            taAlignBottom: TextOut(ARect.Left, ARect.Bottom - AHeight, AText);\r\n          end;\r\n        end;\r\n        taRightJustify:\r\n        begin\r\n          case AVerticalAlignment of\r\n            taAlignTop: TextOut(ARect.Right - AWidth, ARect.Top, AText);\r\n            taVerticalCenter: TextOut(ARect.Right - AWidth, ARect.Top + (ARect.Bottom - ARect.Top - AHeight) / 2, AText);\r\n            taAlignBottom: TextOut(ARect.Right - AWidth, ARect.Bottom - AHeight, AText);\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  function FindNextWord(Text: String; var APos: Integer): String;\r\n  var\r\n    l: Integer;\r\n    i: Integer;\r\n  begin\r\n    Result := '';\r\n\r\n    l := Length(Text);\r\n    if APos > l then\r\n      Exit;\r\n\r\n    i := APos;\r\n    while True do\r\n    begin\r\n      if ((Text[i] = #10) and (Text[i - 1] = #13)) or ((Text[i] = #13) and (Text[i - 1] = #10)) or (Text[i] = ' ') then\r\n      begin\r\n        if Text[i] = ' ' then\r\n          Result := Copy(Text, APos, i - (APos - 1))\r\n        else\r\n          Result := Copy(Text, APos, i - APos);\r\n\r\n        Break;\r\n      end\r\n      else if (Text[i] = #10) or (Text[i] = #13) or (Text[i] = ' ') then\r\n      begin\r\n        result := Copy(Text, APos, i - (APos - 1));\r\n        Break;\r\n      end\r\n      else if i >= l then\r\n      begin\r\n        result := Copy(Text, APos, i - (APos - 1));\r\n        Break;\r\n      end\r\n      else\r\n        inc(i);\r\n    end;\r\n\r\n    APos := i + 1;\r\n  end;\r\nbegin\r\n  ww := WordWrap or (Pos(#13, Text) > 0) or (Pos(#10, Text) > 0);\r\n  wwx := not WordWrap and ((Pos(#13, Text) > 0) or (Pos(#10, Text) > 0));\r\n\r\n  if not ww then\r\n  begin\r\n    w := TextWidth(Text);\r\n    th := TextHeight(Text);\r\n    if not Calculate then\r\n      DrawText(Text, w, th);\r\n\r\n    Result := CreateCanvasRectF(ARect.Left, ARect.Top, ARect.Left + w, ARect.Top + th);\r\n  end\r\n  else\r\n  begin\r\n    rs := ARect;\r\n\r\n    mw := 0;\r\n    i := 1;\r\n    ths := FFont.Size * 0.5;\r\n    lcnt := 0;\r\n    fws := 0;\r\n    tw := 0;\r\n    s := FindNextWord(Text, i);\r\n    w := TextWidth(s);\r\n    th := TextHeight(s) + ths;\r\n\r\n    mw := mw + w;\r\n    if (Length(s) > 0) and (s[Length(s)] = ' ') then\r\n      mw := mw + fws;\r\n\r\n    fx := False;\r\n    while i <= Length(Text) do\r\n    begin\r\n      l := Length(s);\r\n      if (l >= 2) and (((s[l] = #10) and (s[l - 1] = #13)) or ((s[l] = #13) and (s[l - 1] = #10))) then\r\n      begin\r\n        s := Copy(s, 1, l - 2);\r\n        f := True;\r\n      end\r\n      else if (l >= 1) and ((s[l] = #10) or (s[l] = #13)) then\r\n      begin\r\n        s := Copy(s, 1, l - 1);\r\n        f := True;\r\n      end\r\n      else\r\n        f := False;\r\n\r\n      sn := FindNextWord(Text, i);\r\n      w := TextWidth(sn);\r\n      th := Max(th, TextHeight(sn) + ths);\r\n\r\n      if (ARect.Left + mw + w > ARect.Right) or f then\r\n      begin\r\n        if (s <> '') and not fx then\r\n        begin\r\n          p := Length(s);\r\n\r\n          st := Copy(s, 1, p);\r\n\r\n          Inc(lcnt);\r\n          if mw > tw then\r\n            tw := mw;\r\n\r\n          if not Calculate then\r\n            DrawText(st, mw, th);\r\n\r\n          mw := 0;\r\n        end;\r\n\r\n        s := '';\r\n\r\n        fx := False;\r\n        if (wwx and f) or not wwx then\r\n          ARect.Top := ARect.Top + th\r\n        else if (wwx and not f) then\r\n          fx := True;\r\n\r\n        if (Trunc(ARect.Top) > Trunc(ARect.Bottom - th + ths)) and not Calculate then\r\n          Break;\r\n      end;\r\n\r\n      mw := mw + w;\r\n      if (Length(sn) > 0) and (sn[Length(sn)] = ' ') then\r\n        mw := mw + fws;\r\n      s := s + sn;\r\n    end;\r\n\r\n    if s <> '' then\r\n    begin\r\n      p := Length(s);\r\n      st := Copy(s, 1, p);\r\n      Inc(lcnt);\r\n      if mw > tw then\r\n        tw := mw;\r\n\r\n      if not Calculate then\r\n        DrawText(st, mw, th);\r\n    end;\r\n\r\n    Result := CreateCanvasRectF(rs.Left, rs.Top, rs.Left + tw, rs.Top + lcnt * th);\r\n  end;\r\nend;\r\n\r\nprocedure TCanvas.TextOut(X,Y: Integer; const Text: string);\r\nbegin\r\n  TextOut(Double(X), Double(Y), Text);\r\nend;\r\n\r\nfunction TCanvas.TextRect(ARect: TRect; const Text: String; const WordWrap: Boolean = False; const Calculate: Boolean = False; const AHorizontalAlignment: TAlignment = taLeftJustify; const AVerticalAlignment: TVerticalAlignment = taAlignTop): TRect;\r\nvar\r\n  r: TCanvasRectF;\r\nbegin\r\n  r := TextRect(CreateCanvasRectF(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom), Text, WordWrap, Calculate, AHorizontalAlignment, AVerticalAlignment);\r\n  Result := Rect(Round(r.Left), Round(r.Top), Round(r.Right), Round(r.Bottom));\r\nend;\r\n\r\nfunction TCanvas.TextWidth(const Text: string): Double;\r\nvar\r\n  f: string;\r\n  tm: TJSTextMetrics;\r\nbegin\r\n  if Assigned(FContext) then\r\n  begin\r\n    f := Font.ToString;\r\n    FContext.font := f;\r\n    tm := FContext.measureText(Text);\r\n    Result := tm.width;\r\n  end;\r\nend;\r\n\r\nprocedure TCanvas.Transform(m11, m12, m21, m22, dx, dy: Double);\r\nbegin\r\n  if Assigned(FContext) then\r\n    FContext.transform(m11, m12, m21, m22, dx, dy);\r\nend;\r\n\r\nprocedure TCanvas.Translate(X, Y: Double);\r\nbegin\r\n  if Assigned(FContext) then\r\n    FContext.translate(X, Y);\r\nend;\r\n\r\nprocedure TCanvas.Draw(X, Y: Integer; Graphic: TGraphic);\r\nbegin\r\n  Draw(Double(X), Double(Y), Graphic);\r\nend;\r\n\r\ndestructor TCanvas.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TCanvas.Draw(X, Y: Double; Graphic: TGraphic);\r\nvar\r\n  img: TJSObject;\r\nbegin\r\n  if Assigned(FContext) then\r\n  begin\r\n    img := Graphic.Image;\r\n\r\n    if Assigned(img) then\r\n    begin\r\n      if Graphic.FUsedCanvas then\r\n        FContext.drawImage(TJSObject(Graphic.FCanvasElement), X, Y)\r\n      else\r\n        FContext.drawImage(img, X, Y);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCanvas.DrawFocusRect(const Rect: TCanvasRectF);\r\nvar\r\n  ps: TPenStyle;\r\nbegin\r\n  ps := Pen.Style;\r\n  Pen.Style := psDot;\r\n  Pen.Width := 1;\r\n  Pen.Color := clBlack;\r\n\r\n  MoveTo(Rect.Left, Rect.Top);\r\n  LineTo(Rect.Right, Rect.Top);\r\n  LineTo(Rect.Right, Rect.Bottom);\r\n  LineTo(Rect.Left, Rect.Bottom);\r\n  LineTo(Rect.Left, Rect.Top);\r\n\r\n  Pen.Style := ps;\r\nend;\r\n\r\nprocedure TCanvas.DrawFocusRect(const Rect: TRect);\r\nbegin\r\n  DrawFocusRect(CreateCanvasRectF(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom));\r\nend;\r\n\r\nprocedure TCanvas.Ellipse(X1, Y1, X2, Y2: Double);\r\nvar\r\n  w, h: Double;\r\n  kappa: Double;\r\n  ox, oy, xe, ye, xm, ym: Double;\r\nbegin\r\n  if Assigned(FContext) then\r\n  begin\r\n    w := x2 - x1;\r\n    h := y2 - y1;\r\n\r\n    kappa := 0.5522848;\r\n\r\n    ox := (w / 2) * kappa;\r\n    oy := (h / 2) * kappa;\r\n    xe := x1 + w;\r\n    ye := y1 + h;\r\n    xm := x1 + w / 2;\r\n    ym := y1 + h / 2;\r\n\r\n    FContext.save;\r\n    asm\r\n      let region = new Path2D();\r\n      region.moveTo(X1, ym);\r\n      region.bezierCurveTo(X1, ym - oy, xm - ox, Y1, xm, Y1);\r\n      region.bezierCurveTo(xm + ox, Y1, xe, ym - oy, xe, ym);\r\n      region.bezierCurveTo(xe, ym + oy, xm + ox, ye, xm, ye);\r\n      region.bezierCurveTo(xm - ox, ye, X1, ym + oy, X1, ym);\r\n      region.closePath();\r\n      this.FContext.clip(region, \"evenodd\");\r\n    end;\r\n\r\n    if not (Brush.Style in [bsSolid,bsClear]) and (Brush.Gradient = bgNone) then\r\n      ApplyBrush(X1,Y1,X2,Y2);\r\n\r\n    FContext.restore;\r\n\r\n    FContext.beginPath();\r\n    ApplyStroke;\r\n\r\n    if Brush.Gradient <> bgNone then\r\n    begin\r\n      ApplyBrush(x1,y1,x2,y2);\r\n    end\r\n    else\r\n      ApplyFill;\r\n\r\n    FContext.moveTo(X1, ym);\r\n    FContext.bezierCurveTo(X1, ym - oy, xm - ox, Y1, xm, Y1);\r\n    FContext.bezierCurveTo(xm + ox, Y1, xe, ym - oy, xe, ym);\r\n    FContext.bezierCurveTo(xe, ym + oy, xm + ox, ye, xm, ye);\r\n    FContext.bezierCurveTo(xm - ox, ye, X1, ym + oy, X1, ym);\r\n    FContext.closePath();\r\n\r\n    if (Brush.Style = bsSolid) or (Brush.Gradient <> bgNone) then\r\n      FContext.fill();\r\n\r\n    if Pen.Style <> psClear then\r\n      FContext.stroke();\r\n  end;\r\nend;\r\n\r\nprocedure TCanvas.GetAccuOffset(X,Y: double; var dx, dy: single);\r\nbegin\r\n  dx := 0;\r\n  dy := 0;\r\n\r\n  if (Pen.Width = 1) and (Pen.Style <> psClear) and (Frac(X) = 0) then\r\n    dx := 0.5;\r\n\r\n  if (Pen.Width = 1) and (Pen.Style <> psClear) and (Frac(Y) = 0) then\r\n    dy := 0.5;\r\nend;\r\n\r\nfunction TCanvas.GetBase64Image: string;\r\nbegin\r\n  Result := '';\r\n  if Assigned(Element) then\r\n    Result := Element.toDataURL();\r\nend;\r\n\r\nfunction TCanvas.GetPixel(X,Y: Single): TColor;\r\nvar\r\n  imgd: TJSImageData;\r\nbegin\r\n  Result := clNone;\r\n  if Assigned(FContext) then\r\n  begin\r\n    imgd := FContext.getImageData(x, y, 1, 1);\r\n    Result := RGBA(imgd.data[0], imgd.data[1], imgd.data[2], imgd.data[3]);\r\n  end;\r\nend;\r\n\r\nfunction TCanvas.GetAsImage(AType: TImageType): string;\r\nbegin\r\n  Result := '';\r\n  if Assigned(Element) then\r\n  begin\r\n    case AType of\r\n    itBase64: Result := Element.toDataURL();\r\n    itPNG: Result := Element.toDataURL('image/png');\r\n    itJPEG: Result := Element.toDataURL('image/jpeg',1.0);\r\n    itBMP: Result := Element.toDataURL('image/bmp');\r\n    itGIF: Result := Element.toDataURL('image/gif');\r\n    itSVG: Result := Element.toDataURL('image/svg+xml');\r\n   end;\r\n  end;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TCanvas.DownloadImage( AFileName: string; AType: TImageType = itPNG);\r\nvar\r\n  s: string;\r\n  el: TJSHTMLElement;\r\nbegin\r\n  if Assigned(Element) then\r\n  begin\r\n    s := GetAsImage(AType);\r\n\r\n    el := TJSHTMLElement(document.createElement('a'));\r\n    el['href'] := s;\r\n    if (AFileName <> '') then\r\n      el['download'] := AFileName;\r\n    el.style.setProperty('display','none');\r\n    document.body.appendChild(el);\r\n    el.click();\r\n    document.body.removeChild(el);\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TCanvas.LineTo(X, Y: Double);\r\nvar\r\n  dx,dy: single;\r\n  clr: TColor;\r\nbegin\r\n  if Assigned(FContext) then\r\n  begin\r\n    dx := 0;\r\n    dy := 0;\r\n    GetAccuOffset(X,Y,dx,dy);\r\n\r\n    case Pen.Mode of\r\n    pmBlack: FContext.strokeStyleAsColor := ColorToHtml(clBlack);\r\n    pmWhite: FContext.strokeStyleAsColor := ColorToHtml(clWhite);\r\n    pmXor: FContext.globalCompositeOperation := 'xor';\r\n    pmMask: FContext.globalCompositeOperation := 'source-atop';\r\n    pmNotCopy:\r\n      begin\r\n        clr := ColorToRGB(Pen.Color) xor $FFFFFFFF;\r\n        FContext.strokeStyleAsColor := ColorToHtml(clr);\r\n      end;\r\n    pmNotXor:\r\n      begin\r\n        clr := ColorToRGB(Pen.Color) xor $FFFFFFFF;\r\n        FContext.strokeStyleAsColor := ColorToHtml(clr);\r\n        FContext.globalCompositeOperation := 'xor';\r\n      end;\r\n    end;\r\n\r\n\r\n    if not FPathOpen then\r\n    begin\r\n      FContext.beginPath();\r\n      ApplyStroke;\r\n      FContext.moveTo(FPathX + dx, FPathY + dy);\r\n    end;\r\n\r\n    FContext.lineTo(X + dx, Y + dy);\r\n    FContext.stroke();\r\n    FPathX := X;\r\n    FPathY := Y;\r\n\r\n    FPathOpen := false;\r\n\r\n    FContext.globalCompositeOperation := 'source-over';\r\n  end;\r\nend;\r\n\r\nprocedure TCanvas.Save;\r\nbegin\r\n  if Assigned(FContext) then\r\n    FContext.save();\r\nend;\r\n\r\nprocedure TCanvas.SetClipRect(const Value: TCanvasRectF);\r\nbegin\r\n  FClipRect := Value;\r\n  if Assigned(FContext) then\r\n  begin\r\n    FContext.beginPath;\r\n    FContext.rect(FClipRect.Left, FClipRect.Top, FClipRect.Right - FClipRect.Left, FClipRect.Bottom - FClipRect.Top);\r\n    FContext.clip;\r\n  end;\r\nend;\r\n\r\nprocedure TCanvas.SetPixel(X,Y: Single; Clr: TColor);\r\nbegin\r\n  if Assigned(FContext) then\r\n  begin\r\n    FContext.fillStyle := ColorToHtml(Clr);\r\n    FContext.fillRect(x,y, 1, 1);\r\n  end;\r\nend;\r\n\r\nprocedure TCanvas.SetTransform(m11, m12, m21, m22, dx, dy: Double);\r\nvar\r\n  m: TMatrix;\r\n  px: Single;\r\nbegin\r\n  if Assigned(FContext) then\r\n  begin\r\n    m := MatrixIdentity;\r\n    m.m11 := m11;\r\n    m.m12 := m12;\r\n    m.m21 := m21;\r\n    m.m22 := m22;\r\n    m.m31 := dx;\r\n    m.m32 := dy;\r\n\r\n    if ApplyPixelRatio then\r\n    begin\r\n      px := GetPixelRatio(Self);\r\n      m := MatrixMultiply(m, MatrixCreateScaling(px, px));\r\n    end;\r\n\r\n    FContext.setTransform(m.m11, m.m12, m.m21, m.m22, m.m31, m.m32);\r\n  end;\r\nend;\r\n\r\nprocedure TCanvas.StretchDraw(Rect: TCanvasRectF; Graphic: TGraphic);\r\nvar\r\n  img: TJSObject;\r\nbegin\r\n  if Assigned(FContext) then\r\n  begin\r\n    img := Graphic.Image;\r\n    if Assigned(img) then\r\n    begin\r\n      if Graphic.FUsedCanvas then\r\n        FContext.drawImage(TJSObject(Graphic.FCanvasElement), 0, 0, Graphic.width, Graphic.height, Rect.Left, Rect.Top, Rect.Right - Rect.Left, Rect.Bottom - Rect.Top)\r\n      else\r\n        FContext.drawImage(img, 0, 0, Graphic.width, Graphic.height, Rect.Left, Rect.Top, Rect.Right - Rect.Left, Rect.Bottom - Rect.Top);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCanvas.StretchDraw(Rect: TRect; Graphic: TGraphic);\r\nbegin\r\n  StretchDraw(CreateCanvasRectF(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom), Graphic);\r\nend;\r\n\r\nprocedure TCanvas.PathLineTo(X, Y: Integer);\r\nbegin\r\n  PathLineTo(Double(X), Double(Y));\r\nend;\r\n\r\nprocedure TCanvas.PathLineTo(X, Y: Double);\r\nvar\r\n  dx, dy: Double;\r\nbegin\r\n  if Assigned(FContext) then\r\n  begin\r\n    dx := 0;\r\n    dy := 0;\r\n    GetAccuOffset(X, Y, dx, dy);\r\n    FContext.lineTo(X + dx, Y + dy);\r\n  end;\r\nend;\r\n\r\nprocedure TCanvas.PathFill;\r\nbegin\r\n  if Assigned(FContext) then\r\n  begin\r\n    ApplyFill;\r\n\r\n    ApplyBrush(10,10,50,50);\r\n\r\n    FContext.fill();\r\n  end;\r\nend;\r\n\r\nprocedure TCanvas.PathStroke;\r\nbegin\r\n  if Assigned(FContext) then\r\n  begin\r\n    ApplyStroke;\r\n    FContext.stroke();\r\n  end;\r\nend;\r\n\r\nprocedure TCanvas.PathMoveTo(X, Y: Integer);\r\nbegin\r\n  PathMoveTo(Double(X), Double(Y));\r\nend;\r\n\r\nprocedure TCanvas.PathMoveTo(X, Y: Double);\r\nvar\r\n  dx, dy: Double;\r\nbegin\r\n  if Assigned(FContext) then\r\n  begin\r\n    dx := 0;\r\n    dy := 0;\r\n    GetAccuOffset(X, Y, dx, dy);\r\n    FContext.moveTo(X + dx, Y + dy);\r\n  end;\r\nend;\r\n\r\nprocedure TCanvas.Polygon(const Points: array of TCanvasPointF);\r\nvar\r\n  l, i: Integer;\r\n  x1,y1,x2,y2: Double;\r\n\r\nbegin\r\n  if Assigned(FContext) then\r\n  begin\r\n    l := Length(Points);\r\n\r\n    if l = 0 then\r\n      Exit;\r\n\r\n    FContext.beginPath();\r\n    ApplyStroke;\r\n\r\n    x1 := $FFFF;\r\n    y1 := $FFFF;\r\n    x2 := 0;\r\n    y2 := 0;\r\n    for i := 0 to Length(Points) - 1 do\r\n    begin\r\n      if Points[i].X < x1 then\r\n        x1 := Points[i].X;\r\n      if Points[i].Y < y1 then\r\n        y1 := Points[i].Y;\r\n\r\n      if Points[i].X > x2 then\r\n        x2 := Points[i].X;\r\n      if Points[i].Y > y2 then\r\n        y2 := Points[i].Y;\r\n    end;\r\n\r\n    if Brush.Gradient <> bgNone then\r\n      ApplyBrush(x1,y1,x2,y2)\r\n    else\r\n      ApplyFill;\r\n\r\n    i := 0;\r\n    FContext.moveTo(Points[i].X, Points[i].Y);\r\n\r\n    while (i < l - 1) do\r\n    begin\r\n      inc(i);\r\n      FContext.lineTo(Points[i].X, Points[i].Y);\r\n    end;\r\n\r\n    FContext.closePath();\r\n\r\n    if Brush.Style <> bsClear then\r\n      FContext.fill();\r\n\r\n    if Pen.Style <> psClear then\r\n      FContext.stroke();\r\n  end;\r\nend;\r\n\r\nprocedure TCanvas.Polyline(const Points: array of TCanvasPointF);\r\nvar\r\n  l, i: Integer;\r\nbegin\r\n  if Assigned(FContext) then\r\n  begin\r\n    l := Length(Points);\r\n\r\n    if l = 0 then\r\n      Exit;\r\n\r\n    FContext.beginPath();\r\n    ApplyStroke;\r\n    i := 0;\r\n    FContext.moveTo(Points[i].X, Points[i].Y);\r\n\r\n    while (i < l - 1) do\r\n    begin\r\n      inc(i);\r\n      FContext.lineTo(Points[i].X, Points[i].Y);\r\n    end;\r\n\r\n    if Pen.Style <> psClear then\r\n      FContext.stroke();\r\n  end;\r\nend;\r\n\r\nprocedure TCanvas.Ellipse(const Rect: TCanvasRectF);\r\nbegin\r\n  Ellipse(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom);\r\nend;\r\n\r\nprocedure TCanvas.PathClose;\r\nbegin\r\n  if Assigned(FContext) then\r\n    FContext.closePath();\r\nend;\r\n\r\nprocedure TCanvas.EndScene;\r\nbegin\r\n  if Assigned(OnEndScene) then\r\n    OnEndScene(Self);\r\nend;\r\n\r\nprocedure TCanvas.FillRect(const Rect: TCanvasRectF);\r\nbegin\r\n  Rectangle(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom);\r\nend;\r\n\r\nprocedure TCanvas.Rotate(Angle: Double);\r\nbegin\r\n  if Assigned(FContext) then\r\n    FContext.rotate(Angle);\r\nend;\r\n\r\nprocedure TCanvas.RoundRect(const Rect: TCanvasRectF; CX, CY: Double);\r\nbegin\r\n  RoundRect(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom, CX, CY);\r\nend;\r\n\r\n{ TGraphic }\r\n\r\nconstructor TGraphic.Create(Img: TJSObject);\r\nbegin\r\n  FAddToQueue := True;\r\n  FEmpty := True;\r\n  FData := '';\r\n  FDataBin := '';\r\n  FURL := '';\r\n  FImage := Img;\r\n  FLoaded := nil;\r\nend;\r\n\r\nprocedure TGraphic.AssignEvents;\r\nbegin\r\n  asm\r\n    var me = this;\r\n    this.FImage.onload = function() {\r\n       me.DoChange();\r\n      };\r\n  end;\r\nend;\r\n\r\nprocedure TGraphic.CaptureCanvas;\r\nbegin\r\n  if Assigned(FCanvas) and Assigned(FCanvas.Element) then\r\n    LoadFromResource(FCanvas.Element.toDataURL());\r\nend;\r\n\r\nconstructor TGraphic.Create;\r\nbegin\r\n  FAddToQueue := True;\r\n  FEmpty := True;\r\n  FData := '';\r\n  FDataBin := '';\r\n  FUsedCanvas := False;\r\n  CreateImage;\r\n  AssignEvents;\r\nend;\r\n\r\nconstructor TGraphic.Create(URL: string);\r\nbegin\r\n  FAddToQueue := True;\r\n  FEmpty := True;\r\n  FData := '';\r\n  FDataBin := '';\r\n  Create;\r\n  LoadFromURL(URL);\r\nend;\r\n\r\nprocedure TGraphic.Assign(Source: TPersistent);\r\nvar\r\n  s: string;\r\nbegin\r\n  if Assigned(Source) and (Source is TGraphic) and Assigned((Source as TGraphic).FCanvas) then\r\n    LoadFromCanvas((Source as TGraphic).FCanvas)\r\n  else if Assigned(Source) and (Source is TGraphic) and Assigned((Source as TGraphic).FImage) and not (Source as TGraphic).Empty then\r\n  begin\r\n    asm\r\n      s = Source.FImage.src;\r\n    end;\r\n\r\n    LoadFromURL(s);\r\n  end\r\n  else if not Assigned(Source) then\r\n  begin\r\n    CreateImage;\r\n    DoChange;\r\n  end;\r\nend;\r\n\r\nfunction TGraphic.Image: TJSObject;\r\nbegin\r\n  Result := FImage;\r\nend;\r\n\r\nprocedure TGraphic.LoadFromCache(AData: String; ALoaded: TBitmapLoadedProc = nil);\r\nvar\r\n  dt: string;\r\n  o: TJSObject;\r\n  b: Boolean;\r\n  s: string;\r\n  l: Boolean;\r\nbegin\r\n  FData := AData;\r\n  if Pos('DATA:', UpperCase(AData)) > 0 then\r\n  begin\r\n    FDataBin := HexImageEncodeFromBase64(AData);\r\n  end;\r\n\r\n  dt := AData;\r\n  if dt = '' then\r\n    Exit;\r\n\r\n  FLoaded := ALoaded;\r\n  FUsedCanvas := false;\r\n\r\n  if not FCache.Find(dt, o) then\r\n  begin\r\n    b := False;\r\n    s := '';\r\n    asm\r\n      s = this.FImage.src;\r\n      b = (s != '');\r\n    end;\r\n\r\n    l := b and (dt <> s);\r\n    if l then\r\n    begin\r\n      CreateImage;\r\n      AssignEvents;\r\n    end;\r\n\r\n    if (not l and (FQueue.IndexOf(dt) = -1)) or l then\r\n    begin\r\n      asm\r\n        this.FImage.src = dt;\r\n        dt = this.FImage.src;\r\n      end;\r\n\r\n      FData := dt;\r\n      if Pos('DATA:', UpperCase(dt)) > 0 then\r\n        FDataBin := HexImageEncodeFromBase64(dt);\r\n\r\n      Inc(FCacheCount);\r\n      if FAddToQueue then\r\n        FQueue.Add(dt);\r\n    end\r\n    else if (not l and (FQueue.IndexOf(dt) <> -1)) then\r\n    begin\r\n      asm\r\n        this.FImage.src = dt;\r\n      end;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    FImage := o;\r\n    DoChange;\r\n  end;\r\n\r\n  asm\r\n    if (this.FImage) {\r\n      this.FEmpty = (this.FImage.src == '');\r\n    }\r\n  end;\r\nend;\r\n\r\nprocedure TGraphic.LoadFromCanvas(ACanvas: TCanvas);\r\nbegin\r\n  if Assigned(ACanvas) and Assigned(ACanvas.Element) then\r\n    LoadFromResource(ACanvas.Element.toDataURL());\r\nend;\r\n\r\nprocedure TGraphic.LoadFromFile(AFileName: string; ALoaded: TBitmapLoadedProc);\r\nbegin\r\n  LoadFromURL(AFileName, 0, ALoaded);\r\nend;\r\n\r\nfunction TGraphic.GetAsImage(AType: TImageType): string;\r\nbegin\r\n  Result := '';\r\n  if Assigned(FCanvas) then\r\n    Result := FCanvas.GetAsImage(AType);\r\nend;\r\n\r\nfunction TGraphic.GetBase64Image: string;\r\nbegin\r\n  Result := '';\r\n  if Assigned(FCanvas) then\r\n    Result := FCanvas.GetBase64Image;\r\nend;\r\n\r\nprocedure TGraphic.LoadFromResource(AResource: string; AHInstance: Integer);\r\nbegin\r\n  FEmpty := True;\r\n  LoadFromCache(AResource);\r\nend;\r\n\r\nprocedure TGraphic.LoadFromResource(AResource: string);\r\nbegin\r\n  LoadFromResource(AResource, 0);\r\nend;\r\n\r\nprocedure TGraphic.LoadFromStream(AStream: TStream);\r\nbegin\r\n  DoChange;\r\nend;\r\n\r\nprocedure TGraphic.LoadFromURL(AURL: string; AHInstance: Integer; ALoaded: TBitmapLoadedProc);\r\nbegin\r\n  FEmpty := True;\r\n  LoadFromCache(AURL, ALoaded);\r\nend;\r\n\r\nprocedure TGraphic.LoadFromURL(AURL: string; ALoaded: TBitmapLoadedProc);\r\nbegin\r\n  LoadFromURL(AURL, 0, ALoaded);\r\nend;\r\n\r\nprocedure TGraphic.RecreateCanvas;\r\nbegin\r\n  if not Assigned(FCanvasElement) then\r\n    FCanvasElement := TJSHTMLCanvasElement(document.createElement('CANVAS'));\r\n\r\n  if Assigned(FCanvasElement) then\r\n  begin\r\n    FCanvasElement.height := Height;\r\n    FCanvasElement.width := Width;\r\n    if not Assigned(FCanvas) then\r\n    begin\r\n      FCanvas := TCanvas.Create(FCanvasElement);\r\n      FCanvas.OnBeginScene := DoBeginScene;\r\n      FCanvas.OnEndScene := DoEndScene;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TGraphic.CreateFromResource(AResource: String;\r\n  AInstance: NativeUInt): TGraphic;\r\nbegin\r\n  Result := TGraphic.Create;\r\n  Result.LoadFromResource(AResource);\r\nend;\r\n\r\nclass function TGraphic.CreateFromURL(AURL: String): TGraphic;\r\nbegin\r\n  Result := CreateFromURL(AURL, 0);\r\nend;\r\n\r\nclass function TGraphic.CreateFromURL(AURL: String;\r\n  AInstance: NativeUInt): TGraphic;\r\nbegin\r\n  Result := TGraphic.Create;\r\n  Result.LoadFromURL(AURL);\r\nend;\r\n\r\nclass function TGraphic.CreateFromResource(AResource: string): TGraphic;\r\nbegin\r\n  Result := CreateFromResource(AResource, 0);\r\nend;\r\n\r\nprocedure TGraphic.CreateImage;\r\nbegin\r\n  asm\r\n    this.FImage = new Image();\r\n  end;\r\nend;\r\n\r\nprocedure TGraphic.DoBeginScene(Sender: TObject);\r\nbegin\r\n  FCanvas.Clear;\r\nend;\r\n\r\nprocedure TGraphic.DoChange;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  FEmpty := (Width = 0) and (Height = 0);\r\n  if not FEmpty and (FData <> '') and not FCache.Exists(FData) then\r\n  begin\r\n    FCache.Add(TGraphicCache.Create(FImage, FData));\r\n    i := FQueue.IndexOf(FData);\r\n    if (i >= 0) and (i <= FQueue.Count - 1) then\r\n      FQueue.Delete(i);\r\n\r\n    Dec(FCacheCount);\r\n    if FCacheCount = 0 then\r\n    begin\r\n      if Assigned(Application.OnImageCacheReady) then\r\n        Application.OnImageCacheReady(Application);\r\n    end;\r\n  end;\r\n\r\n  if Assigned(FOnChange) then\r\n  begin\r\n    FOnChange(Self);\r\n  end;\r\n\r\n  if Assigned(FLoaded) then\r\n  begin\r\n    FLoaded;\r\n    FLoaded := nil;\r\n  end;\r\nend;\r\n\r\nprocedure TGraphic.DoEndScene(Sender: TObject);\r\nbegin\r\n  FAddToQueue := False;\r\n  CaptureCanvas;\r\n  FAddToQueue := True;\r\nend;\r\n\r\nfunction TGraphic.Empty: Boolean;\r\nbegin\r\n  Result := FEmpty;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TGraphic.SaveToStream(AStream: TStream);\r\nvar\r\n  s: string;\r\n  ms: TStream;\r\nbegin\r\n  s := GetAsImage(itBase64);\r\n  ms := AStream;\r\n  asm\r\n    s = s.replace(/^data:image\\/(png|jpg|jpeg);base64,/, \"\");\r\n\r\n    var base64regex = /^([0-9a-zA-Z+/]{4})*(([0-9a-zA-Z+/]{2}==)|([0-9a-zA-Z+/]{3}=))?$/;\r\n    if (base64regex.test(s)) {\r\n      var binary_string = window.atob(s);\r\n      var len = binary_string.length;\r\n      var bytes = new Uint8Array( len );\r\n      for (var i = 0; i < len; i++)        {\r\n          bytes[i] = binary_string.charCodeAt(i);\r\n      }\r\n      ms.Write(bytes, bytes.length);\r\n    }\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TGraphic.SetData(const Value: TBinaryString);\r\nvar\r\n  hx: string;\r\nbegin\r\n  if (FDataBin <> Value) then\r\n  begin\r\n    FDataBin := Value;\r\n    hx := HexImageDecodeAsBase64(FDataBin);\r\n    if Pos('PHN2ZyB', hx) > 0 then\r\n      LoadFromResource('data:image/svg+xml;base64,' + hx)\r\n    else\r\n      LoadFromResource('data:image/png;base64,' + hx);\r\n  end;\r\nend;\r\n\r\nprocedure TGraphic.SetHeight(const Value: Integer);\r\nbegin\r\n  asm\r\n    this.FImage.height = Value;\r\n  end;\r\n  RecreateCanvas;\r\n  DoChange;\r\nend;\r\n\r\nprocedure TGraphic.SetSize(AWidth, AHeight: Integer);\r\nbegin\r\n  Width := AWidth;\r\n  Height := AHeight;\r\nend;\r\n\r\nprocedure TGraphic.SetURL(const URL: string);\r\nbegin\r\n  FURL := URL;\r\n  LoadFromURL(URL);\r\nend;\r\n\r\nprocedure TGraphic.SetWidth(const Value: Integer);\r\nbegin\r\n  asm\r\n    this.FImage.width = Value;\r\n  end;\r\n  RecreateCanvas;\r\n  DoChange;\r\nend;\r\n\r\nfunction TGraphic.GetWidth: Integer;\r\nvar\r\n  w: integer;\r\nbegin\r\n  w := 0;\r\n  if Assigned(FImage) then\r\n  begin\r\n    asm\r\n      w = this.FImage.width;\r\n    end;\r\n  end;\r\n  Result := w;\r\nend;\r\n\r\nfunction TGraphic.GetCanvas: TCanvas;\r\nbegin\r\n  if not Assigned(FCanvas) then\r\n    RecreateCanvas;\r\n\r\n  Result := FCanvas;\r\n  FUsedCanvas := True;\r\nend;\r\n\r\nfunction TGraphic.GetData: TBinaryString;\r\nbegin\r\n  Result := FDataBin;\r\nend;\r\n\r\nfunction TGraphic.GetHeight: Integer;\r\nvar\r\n  h: integer;\r\nbegin\r\n  h := 0;\r\n  if Assigned(FImage) then\r\n  begin\r\n    asm\r\n      h = this.FImage.height;\r\n    end;\r\n  end;\r\n  Result := h;\r\nend;\r\n\r\n{ TGraphicCache }\r\n\r\nconstructor TGraphicCache.Create(AImage: TJSObject; AID: string);\r\nbegin\r\n  FImage := AImage;\r\n  FID := AID;\r\nend;\r\n\r\n{ TGraphicCacheList }\r\n\r\nfunction TGraphicCacheList.Exists(AID: string): Boolean;\r\nvar\r\n  I: Integer;\r\n  it: TGraphicCache;\r\nbegin\r\n  Result := False;\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    it := Items[I] as TGraphicCache;\r\n    if (it.ID = AID) and Assigned(it.Image) then\r\n    begin\r\n      Result := True;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TGraphicCacheList.Find(AID: string; var FImage: TJSObject): Boolean;\r\nvar\r\n  I: Integer;\r\n  it: TGraphicCache;\r\nbegin\r\n  Result := False;\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    it := Items[I] as TGraphicCache;\r\n    if (it.ID = AID) and Assigned(it.Image) then\r\n    begin\r\n      FImage := it.Image;\r\n      Result := True;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\n//{$HINTS OFF}\r\nprocedure TBitmap.Assign(Source: TPersistent);\r\n//var\r\n//  src,dest: TJSHTMLCanvasElement;\r\nbegin\r\n//  if (Source is TBitmap)then\r\n//  begin\r\n//    Width := (Source as TBitmap).Width;\r\n//    Height := (Source as TBitmap).Height;\r\n//\r\n//    src := (Self as TBitmap).FCanvasElement;\r\n//    dest  := (Source as TBitmap).FCanvasElement;\r\n//\r\n//    if not Assigned(dest) then\r\n//      Exit;\r\n//    if not Assigned(src) then\r\n//      Exit;\r\n//    if (Width = 0) or (Height = 0) then\r\n//      Exit;\r\n//\r\n//    asm\r\n//      const sourceCtx = src.getContext('2d');\r\n//      const destCtx = dest.getContext('2d');\r\n//      destCtx.drawImage(src, 0, 0);\r\n//    end;\r\n//  end\r\n//  else\r\n    inherited Assign(Source);\r\nend;\r\n//{$HINTS ON}\r\n\r\n{ TURLPicture }\r\n\r\nprocedure TURLPicture.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TURLPicture) then\r\n  begin\r\n    FFileName := (Source as TURLPicture).FileName;\r\n    Changed;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TURLPicture.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nprocedure TURLPicture.DataChanged;\r\nbegin\r\n  if Assigned(OnDataChange) then\r\n    OnDataChange(Self);\r\nend;\r\n\r\nfunction TURLPicture.GetData: TBinaryString;\r\nbegin\r\n  Result := FData;\r\nend;\r\n\r\nprocedure TURLPicture.LoadFromFile(AFileName: string);\r\nbegin\r\n  FFilename := AFileName;\r\n  Changed;\r\nend;\r\n\r\nprocedure TURLPicture.SetData(const Value: TBinaryString);\r\nbegin\r\n  if (FData <> Value) then\r\n  begin\r\n    FData := Value;\r\n    DataChanged;\r\n  end;\r\nend;\r\n\r\n{ TGradientColor }\r\n\r\nprocedure TGradientColor.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TGradientColor) then\r\n  begin\r\n    FColor := (Source as TGradientColor).Color;\r\n    FStop := (Source as TGradientColor).Stop;\r\n  end;\r\nend;\r\n\r\nconstructor TGradientColor.Create;\r\nbegin\r\n  FColor := clNone;\r\n  FStop := 0;\r\nend;\r\n\r\ninitialization\r\nbegin\r\n  FCache := TGraphicCacheList.Create;\r\n  FQueue := TStringList.Create;\r\nend;\r\n\r\nend.\r\n","{\r\n    This file is part of the Pas2JS run time library.\r\n    Copyright (c) 2017 by Mattias Gaertner\r\n\r\n    See the file COPYING.FPC, included in this distribution,\r\n    for details about the copyright.\r\n\r\n    This program is distributed in the hope that it will be useful,\r\n    but WITHOUT ANY WARRANTY; without even the implied warranty of\r\n    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\r\n\r\n **********************************************************************}\r\nunit Math;\r\n\r\n{$mode objfpc}\r\n\r\ninterface\r\n\r\nconst\r\n  MinInteger = -$fffffffffffff-1;\r\n  MaxInteger = $fffffffffffff;\r\n  MinDouble  =  5.0e-324;\r\n  MaxDouble  =  1.7e+308;\r\n\r\nconst\r\n  NaN: Double; external name 'NaN';\r\n  Infinity: Double; external name 'Infinity';\r\n  NegInfinity: Double; external name '-Infinity';\r\n\r\ntype\r\n  float = double;\r\n\r\n  //EInvalidArgument = class(EMathError);\r\n\r\nfunction Min(const a, b: Double): Double; varargs; external name 'Math.min'; overload;\r\nfunction Max(const a, b: Double): Double; varargs; external name 'Math.max'; overload;\r\nfunction Min(const a, b: NativeLargeUInt): NativeLargeUInt; varargs; external name 'Math.min'; overload;\r\nfunction Max(const a, b: NativeLargeUInt): NativeLargeUInt; varargs; external name 'Math.max'; overload;\r\nfunction Min(const a, b: NativeLargeInt): NativeLargeInt; varargs; external name 'Math.min'; overload;\r\nfunction Max(const a, b: NativeLargeInt): NativeLargeInt; varargs; external name 'Math.max'; overload;\r\nfunction Min(const a, b: Integer): Integer; varargs; external name 'Math.min'; overload;\r\nfunction Max(const a, b: Integer): Integer; varargs; external name 'Math.max'; overload;\r\n\r\nfunction InRange(const AValue, AMin, AMax: Integer): Boolean; assembler; overload;\r\nfunction InRange(const AValue, AMin, AMax: Double): Boolean; assembler; overload;\r\n\r\nfunction EnsureRange(const AValue, AMin, AMax: Integer): Integer; assembler; overload;\r\nfunction EnsureRange(const AValue, AMin, AMax: Double): Double; assembler; overload;\r\n\r\ntype\r\n  TRoundToRange = -37..37;\r\n\r\nfunction RoundTo(const AValue: Double; const Digits: TRoundToRange): Double;\r\nfunction SimpleRoundTo(const AValue: Double; const Digits: TRoundToRange = -2): Double;\r\n\r\nfunction randg(mean,stddev : float) : float;\r\nfunction RandomRange(const aFrom, aTo: Integer): Integer;\r\nfunction RandomRange(const aFrom, aTo: NativeLargeInt): NativeLargeInt;\r\n\r\nType\r\n  TValueSign = -1..1;\r\n\r\nconst\r\n  NegativeValue = -1;\r\n  ZeroValue = 0;\r\n  PositiveValue = 1;\r\n\r\nfunction Sign(const AValue: NativeInt): TValueSign; external name 'Math.sign'; overload;\r\nfunction Sign(const AValue: Double): TValueSign; external name 'Math.sign'; overload;\r\n\r\nfunction IsZero(const d: Double; Epsilon: Double): Boolean; overload;\r\nfunction IsZero(const d: Double): Boolean; overload;\r\n\r\nfunction IsNaN(const v: JSValue): boolean; external name {$IFDEF ECMAScript5}'isNaN'{$ELSE}'Number.isNaN'{$ENDIF}; overload;\r\nfunction IsFinite(const d: JSValue): Boolean; external name 'isFinite'; overload;// false if NaN, positive or negative infinity\r\nfunction IsInfinite(const d: JSValue): Boolean; assembler; overload; // negative or positive infinity\r\n{$IFDEF ECMAScript6}\r\nfunction IsInteger(const d: JSValue): Boolean; external name 'Number.isInteger'; // any integer representable by a double\r\nfunction IsSafeInteger(const d: JSValue): Boolean; external name 'Number.isSafeInteger'; // an integer between MinInteger and MaxInteger, inclusive\r\n{$ENDIF}\r\n\r\nfunction SameValue(const A, B: Double; Epsilon: Double = 0.0): Boolean; overload;\r\n\r\n// function Abs is in System.pas\r\nfunction ArcCos(const A : Double): Double; external name 'Math.acos';\r\nfunction ArcCosH(const A: Double): Double; external name 'Math.acosh'; // not on IE\r\nfunction ArcSin(const A : Double): Double; external name 'Math.asin';\r\nfunction ArcSinH(const A : Double): Double; external name 'Math.asinh'; // not on IE\r\nfunction ArcTanH(const A: Double): Double; external name 'Math.atanh'; // not on IE\r\nfunction CosH(const A: Double): Double; external name 'Math.cosh'; // not on IE\r\nprocedure SinCos(const A: Double; var B: Double; var C: Double);\r\nfunction ExpM1(const A: Double): Double; external name 'Math.expm1'; // not on IE\r\nfunction FRound(const A: Double): Double; overload; external name 'Math.fround'; // not on IE\r\nfunction FTrunc(const A: Double): double; overload; external name 'Math.trunc'; // not on IE\r\nfunction Hypot(const A : Double): Double; varargs; external name 'Math.hypot'; // not on IE\r\nfunction IMul(const A, B: Integer): Integer; external name 'Math.imul'; // not on IE\r\nfunction Log10(const A: Double): Double; external name 'Math.log10';\r\nfunction Log1p(const A: Double): Double; external name 'Math.log1p'; // not on IE\r\nfunction Log2(const A: Double): Double; external name 'Math.log2'; // not on IE\r\nfunction LogN(const Base, A: Double): Double;\r\nfunction Power(const Base, Exponent: Double): Double; external name 'Math.pow';\r\n// ln, round, sqrt, trunc, cos, sin, arctan, round, exp are in unit system\r\nfunction Ceil(const A: Double): Integer;\r\nfunction Floor(const A: Double): Integer;\r\nfunction Ceil64(const A: Double): NativeLargeInt;\r\nfunction Floor64(const A: Double): NativeLargeInt;\r\nfunction ldexp(x : double;const p : Integer) : double;\r\nprocedure Frexp(X: double; out Mantissa: double; out Exponent: integer);\r\nfunction lnxp1(x : double) : double;\r\n\r\nfunction IntPower(base : float;const exponent : Integer) : double;\r\n\r\nprocedure DivMod(Dividend: LongInt; Divisor: Word; out Result, Remainder: Word);\r\nprocedure DivMod(Dividend: LongInt; Divisor: Word; out Result, Remainder: SmallInt);\r\nprocedure DivMod(Dividend: DWord; Divisor: DWord; out Result, Remainder: DWord);\r\nprocedure DivMod(Dividend: LongInt; Divisor: LongInt; out Result, Remainder: LongInt);\r\n\r\n{ Angle conversion }\r\nfunction DegToRad(deg : double) : double;\r\nfunction RadToDeg(rad : double) : double;\r\nfunction GradToRad(grad : double) : double;\r\nfunction RadToGrad(rad : double) : double;\r\nfunction DegToGrad(deg : double) : double;\r\nfunction GradToDeg(grad : double) : double;\r\n{ one cycle are 2*Pi rad }\r\nfunction CycleToRad(cycle : double) : double;\r\nfunction RadToCycle(rad : double) : double;\r\nFunction DegNormalize(deg : double) : double;\r\n\r\nfunction Norm(const data : array of double) : double;\r\n\r\n// Statistical functions\r\nfunction Mean(const data : array of double) : double;\r\nfunction Sum(const data : array of double) : double;\r\nprocedure SumsAndSquares(const data : Array of Double; out Sum,SumOfSquares : double);\r\n\r\nfunction StdDev(const data : array of Double) : float;\r\nprocedure MeanAndStdDev(const data : array of Double; out Mean,StdDev : double);\r\nfunction Variance(const data : array of Double) : double;\r\nfunction TotalVariance(const data : array of Double) : double;\r\nfunction PopNStdDev(const data : array of Double) : double;\r\nfunction PopNVariance(const data : array of Double) : double;\r\nprocedure MomentSkewKurtosis(const data : array of Double; out m1,m2,m3,m4,skew,kurtosis : double);\r\n\r\n// Financial functions\r\n\r\nType\r\n  TPaymentTime = (ptEndOfPeriod,ptStartOfPeriod);\r\n\r\nfunction FutureValue(ARate: double; NPeriods: Integer;\r\n  APayment, APresentValue: double; APaymentTime: TPaymentTime): double;\r\n\r\nfunction InterestRate(NPeriods: Integer; APayment, APresentValue, AFutureValue: double;\r\n  APaymentTime: TPaymentTime): double;\r\n\r\nfunction NumberOfPeriods(ARate, APayment, APresentValue, AFutureValue: double;\r\n  APaymentTime: TPaymentTime): double;\r\n\r\nfunction Payment(ARate: double; NPeriods: Integer;\r\n  APresentValue, AFutureValue: double; APaymentTime: TPaymentTime): double;\r\n\r\nfunction PresentValue(ARate: double; NPeriods: Integer;\r\n  APayment, AFutureValue: double; APaymentTime: TPaymentTime): double;\r\n\r\n// Miscellaneous\r\n\r\nfunction IfThen(val:boolean;const ifTrue:integer; const ifFalse:integer= 0) :integer; overload;\r\nfunction IfThen(val:boolean;const ifTrue:double ; const ifFalse:double =0.0):double; overload;\r\n\r\nType\r\n  TValueRelationship = -1..1;\r\n\r\nconst\r\n  EqualsValue = 0;\r\n  LessThanValue = Low(TValueRelationship);\r\n  GreaterThanValue = High(TValueRelationship);\r\n\r\nfunction CompareValue ( const A, B  : Integer) : TValueRelationship;\r\nfunction CompareValue ( const A, B  : NativeLargeInt) : TValueRelationship;\r\nfunction CompareValue ( const A, B  : NativeLargeUInt) : TValueRelationship;\r\nfunction CompareValue ( const A, B : Double; delta : Double = 0.0) : TValueRelationship;\r\n\r\nfunction MinValue(const Data: array of Double): Double;\r\nfunction MaxValue(const Data: array of Double): Double; overload;\r\nfunction MaxIntValue(const AData: array of Integer): Integer;\r\n\r\nimplementation\r\n\r\nfunction MinValue(const Data: array of Double): Double;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := Data[Low(Data)];\r\n  for I := Low(Data) + 1 to High(Data) do\r\n    if Result > Data[I] then\r\n      Result := Data[I];\r\nend;\r\n\r\nfunction MaxValue(const Data: array of Double): Double;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := Data[Low(Data)];\r\n  for I := Low(Data) + 1 to High(Data) do\r\n    if Result < Data[I] then\r\n      Result := Data[I];\r\nend;\r\n\r\nfunction MaxIntValue(const AData: array of Integer): Integer;\r\nvar\r\n  lCount: Integer;\r\nbegin\r\n  Result := AData[Low(AData)];\r\n  for lCount := Low(AData) + 1 to High(AData) do\r\n  begin\r\n    if Result < AData[lCount] then\r\n      Result := AData[lCount];\r\n  end;\r\nend;\r\n\r\nfunction InRange(const AValue, AMin, AMax: Integer): Boolean; assembler;\r\nasm\r\n  return (AValue >= AMin) && (AValue <= AMax);\r\nend;\r\n\r\nfunction InRange(const AValue, AMin, AMax: Double): Boolean; assembler;\r\nasm\r\n  return (AValue >= AMin) && (AValue <= AMax);\r\nend;\r\n\r\nfunction EnsureRange(const AValue, AMin, AMax: Integer): Integer; assembler;\r\nasm\r\n  if (AValue<AMin){ return AMin;\r\n  } else if (AValue>AMax){ return AMax;\r\n  } else return AValue;\r\nend;\r\n\r\nfunction EnsureRange(const AValue, AMin, AMax: Double): Double; assembler;\r\nasm\r\n  if (AValue<AMin){ return AMin;\r\n  } else if (AValue>AMax){ return AMax;\r\n  } else return AValue;\r\nend;\r\n\r\nfunction RoundTo(const AValue: Double; const Digits: TRoundToRange): Double;\r\nvar\r\n  RV : Double;\r\n\r\nbegin\r\n  RV:=IntPower(10,Digits);\r\n  Result:=Round(AValue/RV)*RV;\r\nend;\r\n\r\nfunction SimpleRoundTo(const AValue: Double; const Digits: TRoundToRange): Double;\r\nvar\r\n  RV : Double;\r\n\r\nbegin\r\n  RV := IntPower(10, -Digits);\r\n  if AValue < 0 then\r\n    Result := Int((AValue*RV) - 0.5)/RV\r\n  else\r\n    Result := Int((AValue*RV) + 0.5)/RV;\r\nend;\r\n\r\nfunction randg(mean,stddev : float) : float;\r\n\r\nVar\r\n  U1,S2 : Float;\r\n\r\nbegin\r\n  repeat\r\n    u1:= 2*random-1;\r\n    S2:=Sqr(U1)+sqr(2*random-1);\r\n  until s2<1;\r\n  Result:=Sqrt(-2*ln(S2)/S2)*u1*stddev+Mean;\r\nend;\r\n\r\n\r\nfunction RandomRange(const aFrom, aTo: Integer): Integer;\r\nbegin\r\n  Result:=Random(Abs(aFrom-aTo))+Min(aTo,AFrom);\r\nend;\r\n\r\n\r\nfunction RandomRange(const aFrom, aTo: NativeLargeInt): NativeLargeInt;\r\n\r\nVar\r\n  m : NativeLargeInt;\r\nbegin\r\n  if aFrom<aTo then\r\n    M:=aFrom\r\n  else\r\n    M:=aTo;\r\n  Result:=Random(Abs(aFrom-aTo))+M;\r\nend;\r\n\r\nconst\r\n  DZeroResolution = 1E-12;\r\n\r\nfunction IsZero(const d: Double; Epsilon: Double): Boolean;\r\nbegin\r\n  if Epsilon=0 then\r\n    Epsilon:=DZeroResolution;\r\n  Result:=Abs(d)<=Epsilon;\r\nend;\r\n\r\nfunction IsZero(const d: Double): Boolean;\r\nbegin\r\n  Result:=Abs(d)<=DZeroResolution;\r\nend;\r\n\r\nfunction IsInfinite(const d: JSValue): Boolean; assembler;\r\nasm\r\n  return (d==Infinity) || (d==-Infinity);\r\nend;\r\n\r\nfunction SameValue(const A, B: Double; Epsilon: Double): Boolean;\r\nbegin\r\n  if (Epsilon=0.0) then\r\n    Epsilon:=Max(Min(Abs(A),Abs(B))*DZeroResolution,DZeroResolution);\r\n  if (A>B) then\r\n    Result:=((A-B)<=Epsilon)\r\n  else\r\n    Result:=((B-A)<=Epsilon);\r\nend;\r\n\r\nfunction JSFloor(const A: Double): Double; external name 'Math.floor';\r\nfunction JSCeil(const A: Double): Double; external name 'Math.ceil';\r\n\r\nfunction Ceil(const A: Double): Integer;\r\n\r\nbegin\r\n  // TODO: add Range check ?\r\n  Result:=trunc(JSCeil(a));\r\nend;\r\n\r\nfunction Floor(const A: Double): Integer;\r\n\r\nbegin\r\n  // TODO: add Range check ?\r\n  Result:=trunc(JSFloor(a));\r\nend;\r\n\r\nfunction Ceil64(const A: Double): NativeLargeInt;\r\n\r\nbegin\r\n  Result:=trunc(JSCeil(a));\r\nend;\r\n\r\nfunction Floor64(const A: Double): NativeLargeInt;\r\n\r\nbegin\r\n  Result:=trunc(JSCeil(a));\r\nend;\r\n\r\nprocedure Frexp(X: double; out Mantissa: double; out Exponent: integer);\r\n\r\nbegin\r\n  Exponent:=0;\r\n  if (X<>0) then\r\n    if (abs(X)<0.5) then\r\n      repeat\r\n        X:=X*2;\r\n        Dec(Exponent);\r\n      until (abs(X)>=0.5)\r\n    else\r\n      while (abs(X)>=1) do\r\n        begin\r\n        X:=X/2;\r\n        Inc(Exponent);\r\n        end;\r\n  Mantissa:=X;\r\nend;\r\n\r\nprocedure SinCos(const A: Double; var B: Double; var C: Double);\r\nbegin\r\n  B:=Sin(A);\r\n  C:=Cos(A);\r\nend;\r\n\r\nfunction LogN(const Base, A: Double): Double;\r\n\r\nbegin\r\n  Result:=Ln(A)/Ln(Base);\r\nend;\r\n\r\nfunction lnxp1(x: double): double;\r\n\r\nvar\r\n  y: float;\r\n\r\nbegin\r\n  if (x>=4.0) then\r\n    result:=ln(1.0+x)\r\n  else\r\n    begin\r\n    y:=1.0+x;\r\n    if (y=1.0) then\r\n      result:=x\r\n    else\r\n      begin\r\n      result:=ln(y);     { lnxp1(-1) = ln(0) = -Inf }\r\n      if y>0.0 then\r\n        result:=result+(x-(y-1.0))/y;\r\n      end;\r\n    end;\r\nend;\r\n\r\nfunction ldexp(x : double;const p : Integer) : double;\r\n\r\nbegin\r\n   result:=x*intpower(2.0,p);\r\nend;\r\n\r\n\r\nfunction IntPower(base: float; const exponent: Integer): double;\r\n\r\nvar\r\n  i : longint;\r\n\r\nbegin\r\n  if (base = 0.0) and (exponent = 0) then\r\n    result:=1\r\n  else\r\n    begin\r\n    i:=abs(exponent);\r\n    Result:=1.0;\r\n    while i>0 do\r\n      begin\r\n      while (i and 1)=0 do\r\n        begin\r\n        i:=i shr 1;\r\n        base:=sqr(base);\r\n        end;\r\n      i:=i-1;\r\n      Result:=Result*base;\r\n      end;\r\n    if exponent<0 then\r\n      Result:=1.0/Result;\r\n    end;\r\nend;\r\n\r\nprocedure DivMod(Dividend: LongInt; Divisor: Word; out Result, Remainder: Word);\r\nbegin\r\n  if Dividend < 0 then\r\n    begin\r\n    Dividend:=-Dividend;\r\n    Result:=-(Dividend Div Divisor);\r\n    Remainder:=-(Dividend+(Result*Divisor));\r\n    end\r\n  else\r\n    begin\r\n    Result:=Dividend Div Divisor;\r\n    Remainder:=Dividend-(Result*Divisor);\r\n    end;\r\nend;\r\n\r\n\r\nprocedure DivMod(Dividend: LongInt; Divisor: Word; out Result,\r\n  Remainder: SmallInt);\r\nbegin\r\n  if Dividend < 0 then\r\n    begin\r\n    Dividend:=-Dividend;\r\n    Result:=-(Dividend Div Divisor);\r\n    Remainder:=-(Dividend+(Result*Divisor));\r\n    end\r\n  else\r\n    begin\r\n    Result:=Dividend Div Divisor;\r\n    Remainder:=Dividend-(Result*Divisor);\r\n    end;\r\nend;\r\n\r\n\r\nprocedure DivMod(Dividend: DWord; Divisor: DWord; out Result, Remainder: DWord);\r\nbegin\r\n  Result:=Dividend Div Divisor;\r\n  Remainder:=Dividend-(Result*Divisor);\r\nend;\r\n\r\n\r\nprocedure DivMod(Dividend: LongInt; Divisor: LongInt; out Result,\r\n  Remainder: LongInt);\r\n\r\nbegin\r\n  if Dividend < 0 then\r\n    begin\r\n    Dividend:=-Dividend;\r\n    Result:=-(Dividend Div Divisor);\r\n    Remainder:=-(Dividend+(Result*Divisor));\r\n    end\r\n  else\r\n    begin\r\n    Result:=Dividend Div Divisor;\r\n    Remainder:=Dividend-(Result*Divisor);\r\n    end;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  Angle conversion\r\n  ---------------------------------------------------------------------}\r\nfunction DegToRad(deg: double): double;\r\n\r\nbegin\r\n  Result:=deg*(pi/180.0);\r\nend;\r\n\r\n\r\nfunction RadToDeg(rad: double): double;\r\n\r\nbegin\r\n  Result:=rad*(180.0/pi);\r\nend;\r\n\r\n\r\nfunction GradToRad(grad: double): double;\r\n\r\nbegin\r\n  Result:=grad*(pi/200.0);\r\nend;\r\n\r\n\r\nfunction RadToGrad(rad: double): double;\r\n\r\nbegin\r\n  Result:=rad*(200.0/pi);\r\nend;\r\n\r\n\r\nfunction DegToGrad(deg: double): double;\r\n\r\nbegin\r\n  Result:=deg*(200.0/180.0);\r\nend;\r\n\r\n\r\nfunction GradToDeg(grad: double): double;\r\n\r\nbegin\r\n  Result:=grad*(180.0/200.0);\r\nend;\r\n\r\n\r\nfunction CycleToRad(cycle: double): double;\r\n\r\nbegin\r\n  Result:=(2*pi)*cycle;\r\nend;\r\n\r\n\r\nfunction RadToCycle(rad: double): double;\r\n\r\nbegin\r\n  Result:=rad*(1/(2*pi));\r\nend;\r\n\r\n\r\nfunction DegNormalize(deg: double): double;\r\n\r\nbegin\r\n  Result:=Deg-Int(Deg/360)*360;\r\n  If (Result<0) then Result:=Result+360;\r\nend;\r\n\r\nfunction sumofsquares(const data : array of double) : double;\r\nvar\r\n  i,N : longint;\r\n\r\nbegin\r\n  N:=Length(Data);\r\n  Result:=0.0;\r\n  for i:=0 to N-1 do\r\n    Result:=Result+sqr(data[i]);\r\nend;\r\n\r\nfunction Norm(const data: array of double): double;\r\nbegin\r\n  Result:=sqrt(sumofsquares(data));\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  Statistical functions\r\n  ---------------------------------------------------------------------}\r\n\r\nfunction Sum(const data: array of double): double;\r\n\r\nvar\r\n  i,N : longint;\r\n\r\nbegin\r\n  N:=Length(Data);\r\n  Result:=0.0;\r\n  for i:=0 to N-1 do\r\n    Result:=Result+data[i];\r\nend;\r\n\r\nfunction Mean(const data: array of double): double;\r\n\r\nVar\r\n  N : integer;\r\n\r\nbegin\r\n  N:=Length(Data);\r\n  if N=0 then\r\n    Result:=0\r\n  else\r\n    Result:=Sum(Data)/N;\r\nend;\r\nprocedure SumsAndSquares(const data: array of Double; out Sum,\r\n  SumOfSquares: double);\r\n\r\nvar\r\n  i,n : Integer;\r\n  t,s,ss: double;\r\n\r\nbegin\r\n  n:=length(Data);\r\n  ss:=0.0; // Use local vars, var is very inefficient in js\r\n  s:=0.0;\r\n  for i:=0 to N-1 do\r\n    begin\r\n    t:=data[i];\r\n    ss:=ss+sqr(t);\r\n    s:=s+t;\r\n    end;\r\n  Sum:=s;\r\n  SumOfSquares:=ss;\r\nend;\r\n\r\nfunction StdDev(const data: array of Double): float;\r\n\r\nbegin\r\n  Result:=Sqrt(Variance(Data));\r\nend;\r\n\r\nfunction Variance(const data: array of Double): double;\r\n\r\nvar\r\n  n : integer;\r\n\r\nbegin\r\n  N:=Length(Data);\r\n  If N=1 then\r\n    Result:=0\r\n  else\r\n    Result:=TotalVariance(Data)/(N-1);\r\nend;\r\n\r\nfunction TotalVariance(const data: array of Double): double;\r\n\r\nvar\r\n  S,SS : Float;\r\n  N : integer;\r\nbegin\r\n  N:=Length(Data);\r\n  If Length(Data)=1 then\r\n    Result:=0\r\n  else\r\n    begin\r\n    SumsAndSquares(Data,S,SS);\r\n    Result := SS-Sqr(S)/N;\r\n    end;\r\nend;\r\n\r\nprocedure MeanAndStdDev(const data: array of Double; out Mean, StdDev: double);\r\n\r\nVar\r\n  I,N : longint;\r\n  M,S : Double;\r\n\r\nbegin\r\n  N:=Length(Data);\r\n  M:=0;\r\n  S:=0;\r\n  For I:=0 to N-1 do\r\n    begin\r\n    M:=M+Data[i];\r\n    S:=S+Sqr(Data[i]);\r\n    end;\r\n  M:=M/N;\r\n  S:=(S-N*Sqr(M));\r\n  If N>1 then\r\n    S:=Sqrt(S/(N-1))\r\n  else\r\n    S:=0;\r\n  Mean:=M;\r\n  StdDev:=S;\r\nend;\r\n\r\nfunction PopNStdDev(const data : array of Double) : double;\r\n\r\nbegin\r\n  Result:=Sqrt(PopnVariance(Data));\r\nend;\r\n\r\nfunction PopNVariance(const data : array of Double) : double;\r\n\r\nVar\r\n  N : integer;\r\n\r\nbegin\r\n  N:=Length(Data);\r\n  if N=0 then\r\n    Result:=0\r\n  else\r\n    Result:=TotalVariance(Data)/N;\r\nend;\r\n\r\nprocedure MomentSkewKurtosis(const data: array of Double; out m1, m2, m3, m4, skew, kurtosis: double);\r\n\r\nvar\r\n  i,N: integer;\r\n  deviation, deviation2: double;\r\n  reciprocalN: float;\r\n  // Use local vars for all calculations, var is very slow\r\n  lm1, lm2, lm3, lm4, lskew, lkurtosis: double;\r\n\r\nbegin\r\n  N:=length(Data);\r\n  lm1 := 0;\r\n  reciprocalN := 1/N;\r\n  for i := 0 to N-1 do\r\n    lm1 := lm1 + data[i];\r\n  lm1 := reciprocalN * lm1;\r\n\r\n  lm2 := 0;\r\n  lm3 := 0;\r\n  lm4 := 0;\r\n  for i := 0 to N-1 do\r\n    begin\r\n    deviation := (data[i]-lm1);\r\n    deviation2 := deviation * deviation;\r\n    lm2 := lm2 + deviation2;\r\n    lm3 := lm3 + deviation2 * deviation;\r\n    lm4 := lm4 + deviation2 * deviation2;\r\n    end;\r\n  lm2 := reciprocalN * lm2;\r\n  lm3 := reciprocalN * lm3;\r\n  lm4 := reciprocalN * lm4;\r\n\r\n  lskew := lm3 / (sqrt(lm2)*lm2);\r\n  lkurtosis := lm4 / (lm2 * lm2);\r\n\r\n  m1:=lm1;\r\n  m2:=lm2;\r\n  m3:=lm3;\r\n  m4:=lm4;\r\n  skew:=lskew;\r\n  kurtosis:=lkurtosis;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  Financial functions\r\n  ---------------------------------------------------------------------}\r\n\r\nfunction FutureValue(ARate: double; NPeriods: Integer;\r\n  APayment, APresentValue: double; APaymentTime: TPaymentTime): double;\r\nvar\r\n  q, qn, factor: double;\r\nbegin\r\n  if ARate = 0 then\r\n    Result := -APresentValue - APayment * NPeriods\r\n  else begin\r\n    q := 1.0 + ARate;\r\n    qn := power(q, NPeriods);\r\n    factor := (qn - 1) / (q - 1);\r\n    if APaymentTime = ptStartOfPeriod then\r\n      factor := factor * q;\r\n    Result := -(APresentValue * qn + APayment*factor);\r\n  end;\r\nend;\r\n\r\nfunction InterestRate(NPeriods: Integer; APayment, APresentValue, AFutureValue: double;\r\n  APaymentTime: TPaymentTime): double;\r\n{ The interest rate cannot be calculated analytically. We solve the equation\r\n  numerically by means of the Newton method:\r\n  - guess value for the interest reate\r\n  - calculate at which interest rate the tangent of the curve fv(rate)\r\n    (straight line!) has the requested future vale.\r\n  - use this rate for the next iteration. }\r\nconst\r\n  DELTA = 0.001;\r\n  EPS = 1E-9;   // required precision of interest rate (after typ. 6 iterations)\r\n  MAXIT = 20;   // max iteration count to protect agains non-convergence\r\nvar\r\n  r1, r2, dr: double;\r\n  fv1, fv2: double;\r\n  iteration: Integer;\r\nbegin\r\n  iteration := 0;\r\n  r1 := 0.05;  // inital guess\r\n  repeat\r\n    r2 := r1 + DELTA;\r\n    fv1 := FutureValue(r1, NPeriods, APayment, APresentValue, APaymentTime);\r\n    fv2 := FutureValue(r2, NPeriods, APayment, APresentValue, APaymentTime);\r\n    dr := (AFutureValue - fv1) / (fv2 - fv1) * delta;  // tangent at fv(r)\r\n    r1 := r1 + dr;      // next guess\r\n    inc(iteration);\r\n  until (abs(dr) < EPS) or (iteration >= MAXIT);\r\n  Result := r1;\r\nend;\r\n\r\nfunction NumberOfPeriods(ARate, APayment, APresentValue, AFutureValue: double;\r\n  APaymentTime: TPaymentTime): double;\r\n{ Solve the cash flow equation (1) for q^n and take the logarithm }\r\nvar\r\n  q, x1, x2: double;\r\nbegin\r\n  if ARate = 0 then\r\n    Result := -(APresentValue + AFutureValue) / APayment\r\n  else begin\r\n    q := 1.0 + ARate;\r\n    if APaymentTime = ptStartOfPeriod then\r\n      APayment := APayment * q;\r\n    x1 := APayment - AFutureValue * ARate;\r\n    x2 := APayment + APresentValue * ARate;\r\n    if   (x2 = 0)                    // we have to divide by x2\r\n      or (sign(x1) * sign(x2) < 0)   // the argument of the log is negative\r\n    then\r\n      Result := Infinity\r\n    else begin\r\n      Result := ln(x1/x2) / ln(q);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction Payment(ARate: double; NPeriods: Integer;\r\n  APresentValue, AFutureValue: double; APaymentTime: TPaymentTime): double;\r\nvar\r\n  q, qn, factor: double;\r\nbegin\r\n  if ARate = 0 then\r\n    Result := -(AFutureValue + APresentValue) / NPeriods\r\n  else begin\r\n    q := 1.0 + ARate;\r\n    qn := power(q, NPeriods);\r\n    factor := (qn - 1) / (q - 1);\r\n    if APaymentTime = ptStartOfPeriod then\r\n      factor := factor * q;\r\n    Result := -(AFutureValue + APresentValue * qn) / factor;\r\n  end;\r\nend;\r\n\r\nfunction PresentValue(ARate: double; NPeriods: Integer;\r\n  APayment, AFutureValue: double; APaymentTime: TPaymentTime): double;\r\nvar\r\n  q, qn, factor: double;\r\nbegin\r\n  if ARate = 0.0 then\r\n    Result := -AFutureValue - APayment * NPeriods\r\n  else begin\r\n    q := 1.0 + ARate;\r\n    qn := power(q, NPeriods);\r\n    factor := (qn - 1) / (q - 1);\r\n    if APaymentTime = ptStartOfPeriod then\r\n      factor := factor * q;\r\n    Result := -(AFutureValue + APayment*factor) / qn;\r\n  end;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  Miscellaneous\r\n  ---------------------------------------------------------------------}\r\n\r\nfunction IfThen(val: boolean; const ifTrue: integer; const ifFalse: integer): integer;\r\n\r\nbegin\r\n  if val then result:=iftrue else result:=iffalse;\r\nend;\r\n\r\nfunction IfThen(val: boolean; const ifTrue: double; const ifFalse: double): double;\r\n\r\nbegin\r\n  if val then result:=iftrue else result:=iffalse;\r\nend;\r\n\r\nfunction CompareValue(const A, B  : Integer): TValueRelationship;\r\n\r\nbegin\r\n  result:=GreaterThanValue;\r\n  if a=b then\r\n    result:=EqualsValue\r\n  else\r\n   if a<b then\r\n     result:=LessThanValue;\r\nend;\r\n\r\nfunction CompareValue(const A, B: NativeLargeInt): TValueRelationship;\r\n\r\nbegin\r\n  result:=GreaterThanValue;\r\n  if a=b then\r\n    result:=EqualsValue\r\n  else\r\n   if a<b then\r\n     result:=LessThanValue;\r\nend;\r\n\r\nfunction CompareValue(const A, B: NativeLargeUInt): TValueRelationship;\r\n\r\nbegin\r\n  result:=GreaterThanValue;\r\n  if a=b then\r\n    result:=EqualsValue\r\n  else\r\n   if a<b then\r\n     result:=LessThanValue;\r\nend;\r\n\r\nfunction CompareValue(const A, B: Double; delta: Double): TValueRelationship;\r\nbegin\r\n  result:=GreaterThanValue;\r\n  if abs(a-b)<=delta then\r\n    result:=EqualsValue\r\n  else\r\n   if a<b then\r\n     result:=LessThanValue;\r\nend;\r\n\r\nend.\r\n\r\n","{\r\n    This file is part of the Pas2JS run time library.\r\n    Copyright (c) 2018 by Mattias Gaertner\r\n\r\n    See the file COPYING.FPC, included in this distribution,\r\n    for details about the copyright.\r\n\r\n    This program is distributed in the hope that it will be useful,\r\n    but WITHOUT ANY WARRANTY; without even the implied warranty of\r\n    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\r\n\r\n **********************************************************************}\r\nunit RTTI;\r\n\r\n{$mode objfpc}\r\n{$ModeSwitch advancedrecords}\r\n\r\ninterface\r\n\r\nuses\r\n  JS, RTLConsts, Types, SysUtils, TypInfo;\r\n\r\nresourcestring\r\n  SErrInvokeInvalidCodeAddr = 'CodeAddress is not a function';\r\n  SErrTypeIsNotEnumerated  = 'Type %s is not an enumerated type';\r\n\r\ntype\r\n  { TValue }\r\n\r\n  TValue = record\r\n  private\r\n    FTypeInfo: TTypeInfo;\r\n    FData: JSValue;\r\n    FReferenceVariableData: Boolean;\r\n    function GetData: JSValue;\r\n    function GetIsEmpty: boolean;\r\n    function GetTypeKind: TTypeKind;\r\n\r\n    procedure SetData(const Value: JSValue);\r\n  public\r\n    class function Empty: TValue; static;\r\n    generic class function From<T>(const Value: T): TValue; static;\r\n    class function FromArray(TypeInfo: TTypeInfo; const Values: specialize TArray<TValue>): TValue; static;\r\n    class function FromJSValue(v: JSValue): TValue; static;\r\n    class function FromOrdinal(ATypeInfo: TTypeInfo; AValue: JSValue): TValue; static;\r\n    class procedure Make(const ABuffer: JSValue; const ATypeInfo: PTypeInfo; var Result: TValue); overload; static;\r\n    generic class procedure Make<T>(const Value: T; var Result: TValue); overload; static;\r\n\r\n    function AsBoolean: boolean;\r\n    function AsClass: TClass;\r\n    //ToDo: function AsCurrency: Currency;\r\n    function AsExtended: Extended;\r\n    function AsInteger: Integer;\r\n    function AsInterface: IInterface;\r\n    function AsJSValue: JSValue;\r\n    function AsNativeInt: NativeInt;\r\n    function AsObject: TObject;\r\n    function AsOrdinal: NativeInt;\r\n    function AsString: string;\r\n    generic function AsType<T>: T;\r\n    function AsUnicodeString: UnicodeString;\r\n    function Cast(ATypeInfo: TTypeInfo; const EmptyAsAnyType: Boolean = True): TValue; overload;\r\n    generic function Cast<T>(const EmptyAsAnyType: Boolean = True): TValue; overload;\r\n    function IsType(ATypeInfo: TTypeInfo; const EmptyAsAnyType: Boolean = True): Boolean; overload;\r\n    generic function IsType<T>(const EmptyAsAnyType: Boolean = True): Boolean; overload;\r\n    generic function TryAsType<T>(var AResult: T; const EmptyAsAnyType: Boolean = True): Boolean;\r\n\r\n    function GetArrayElement(aIndex: SizeInt): TValue;\r\n    function GetArrayLength: SizeInt;\r\n    function IsArray: boolean;\r\n    function IsClass: boolean;\r\n    function IsObject: boolean;\r\n    function IsObjectInstance: boolean;\r\n    function IsOrdinal: boolean;\r\n    function IsType(ATypeInfo: TTypeInfo): boolean;\r\n    function ToString: String;\r\n    function TryCast(ATypeInfo: TTypeInfo; out AResult: TValue; const EmptyAsAnyType: Boolean = True): Boolean;\r\n\r\n    procedure SetArrayElement(aIndex: SizeInt; const AValue: TValue);\r\n    procedure SetArrayLength(const Size: SizeInt);\r\n\r\n    property IsEmpty: boolean read GetIsEmpty; // check if nil or undefined\r\n    property Kind: TTypeKind read GetTypeKind;\r\n    property TypeInfo: TTypeInfo read FTypeInfo;\r\n  end;\r\n\r\n  TRttiType = class;\r\n  TRttiInstanceType = class;\r\n  TRttiInstanceExternalType = class;\r\n\r\n  { TRTTIContext }\r\n\r\n  TRTTIContext = record\r\n  public\r\n    class function Create: TRTTIContext; static;\r\n    procedure Free;\r\n\r\n    function FindType(const AQualifiedName: String): TRttiType;\r\n    function GetType(aTypeInfo: PTypeInfo): TRTTIType; overload;\r\n    function GetType(aClass: TClass): TRTTIType; overload;\r\n    function GetTypes: specialize TArray<TRttiType>;\r\n\r\n    class procedure KeepContext; static;\r\n    class procedure DropContext; static;\r\n  end;\r\n\r\n  { TRttiObject }\r\n\r\n  TRttiObject = class abstract\r\n  private\r\n    FAttributesLoaded: Boolean;\r\n    FAttributes: TCustomAttributeArray;\r\n    FParent: TRttiObject;\r\n    FHandle: Pointer;\r\n  protected\r\n    function LoadCustomAttributes: TCustomAttributeArray; virtual;\r\n  public\r\n    constructor Create(AParent: TRttiObject; AHandle: Pointer); virtual;\r\n\r\n    destructor Destroy; override;\r\n\r\n    function GetAttributes: TCustomAttributeArray;\r\n    generic function GetAttribute<T: TCustomAttribute>: T;\r\n    function GetAttribute(const Attribute: TCustomAttributeClass): TCustomAttribute;\r\n    generic function HasAttribute<T: TCustomAttribute>: Boolean;\r\n    function HasAttribute(const Attribute: TCustomAttributeClass): Boolean;\r\n\r\n    property Attributes: TCustomAttributeArray read GetAttributes;\r\n    property Handle: Pointer read FHandle;\r\n    property Parent: TRttiObject read FParent;\r\n  end;\r\n\r\n  { TRttiNamedObject }\r\n\r\n  TRttiNamedObject = class(TRttiObject)\r\n  protected\r\n    function GetName: string; virtual;\r\n  public\r\n    property Name: string read GetName;\r\n  end;\r\n\r\n  { TRttiMember }\r\n\r\n  TMemberVisibility=(\r\n    mvPrivate,\r\n    mvProtected,\r\n    mvPublic,\r\n    mvPublished);\r\n\r\n  TRttiMember = class(TRttiNamedObject)\r\n  protected\r\n    function GetMemberTypeInfo: TTypeMember;\r\n    function GetName: String; override;\r\n    function GetParent: TRttiType;\r\n    function GetVisibility: TMemberVisibility; virtual;\r\n    function LoadCustomAttributes: TCustomAttributeArray; override;\r\n  public\r\n    constructor Create(AParent: TRttiType; ATypeInfo: TTypeMember); reintroduce;\r\n\r\n    property MemberTypeInfo: TTypeMember read GetMemberTypeInfo;\r\n    property Parent: TRttiType read GetParent;\r\n    property Visibility: TMemberVisibility read GetVisibility;\r\n  end;\r\n\r\n  { TRttiField }\r\n\r\n  TRttiField = class(TRttiMember)\r\n  private\r\n    function GetFieldType: TRttiType;\r\n    function GetFieldTypeInfo: TTypeMemberField;\r\n  public\r\n    constructor Create(AParent: TRttiType; ATypeInfo: TTypeMember);\r\n    function GetValue(Instance: JSValue): TValue;\r\n    procedure SetValue(Instance: JSValue; const AValue: TValue);\r\n    property FieldType: TRttiType read GetFieldType;\r\n    property FieldTypeInfo: TTypeMemberField read GetFieldTypeInfo;\r\n  end;\r\n\r\n  TRttiFieldArray = specialize TArray<TRttiField>;\r\n\r\n  { TRttiParameter }\r\n\r\n  TRttiParameter = class(TRttiNamedObject)\r\n  private\r\n    FParamType: TRttiType;\r\n    FFlags: TParamFlags;\r\n    FName: String;\r\n  protected\r\n    function GetName: string; override;\r\n  public\r\n    property Flags: TParamFlags read FFlags;\r\n    property ParamType: TRttiType read FParamType;\r\n  end;\r\n\r\n  TRttiParameterArray = specialize TArray<TRttiParameter>;\r\n\r\n  { TRttiMethod }\r\n\r\n  TRttiMethod = class(TRttiMember)\r\n  private\r\n    FParameters: TRttiParameterArray;\r\n    FParametersLoaded: Boolean;\r\n\r\n    function GetIsAsyncCall: Boolean;\r\n    function GetIsClassMethod: Boolean;\r\n    function GetIsConstructor: Boolean;\r\n    function GetIsDestructor: Boolean;\r\n    function GetIsExternal: Boolean;\r\n    function GetIsSafeCall: Boolean;\r\n    function GetIsStatic: Boolean;\r\n    function GetMethodKind: TMethodKind;\r\n    function GetMethodTypeInfo: TTypeMemberMethod;\r\n    function GetProcedureFlags: TProcedureFlags;\r\n    function GetReturnType: TRttiType;\r\n\r\n    procedure LoadParameters;\r\n  protected\r\n    function GetIsVarArgs: Boolean;\r\n  public\r\n    function GetParameters: TRttiParameterArray;\r\n    function Invoke(const Instance: TValue; const Args: array of TValue): TValue;\r\n    function Invoke(const Instance: TObject; const Args: array of TValue): TValue;\r\n    function Invoke(const aClass: TClass; const Args: array of TValue): TValue;\r\n\r\n    property IsAsyncCall: Boolean read GetIsAsyncCall;\r\n    property IsClassMethod: Boolean read GetIsClassMethod;\r\n    property IsConstructor: Boolean read GetIsConstructor;\r\n    property IsDestructor: Boolean read GetIsDestructor;\r\n    property IsExternal: Boolean read GetIsExternal;\r\n    property IsSafeCall: Boolean read GetIsSafeCall;\r\n    property IsStatic: Boolean read GetIsStatic;\r\n    property MethodKind: TMethodKind read GetMethodKind;\r\n    property MethodTypeInfo: TTypeMemberMethod read GetMethodTypeInfo;\r\n    property ReturnType: TRttiType read GetReturnType;\r\n  end;\r\n\r\n  TRttiMethodArray = specialize TArray<TRttiMethod>;\r\n\r\n  { TRttiProperty }\r\n\r\n  TRttiProperty = class(TRttiMember)\r\n  private\r\n    function GetPropertyTypeInfo: TTypeMemberProperty;\r\n    function GetPropertyType: TRttiType;\r\n    function GetIsWritable: boolean;\r\n    function GetIsReadable: boolean;\r\n  protected\r\n    function GetVisibility: TMemberVisibility; override;\r\n  public\r\n    constructor Create(AParent: TRttiType; ATypeInfo: TTypeMember);\r\n\r\n    function GetValue(Instance: JSValue): TValue;\r\n\r\n    procedure SetValue(Instance: JSValue; const AValue: TValue);\r\n\r\n    property PropertyTypeInfo: TTypeMemberProperty read GetPropertyTypeInfo;\r\n    property PropertyType: TRttiType read GetPropertyType;\r\n    property IsReadable: boolean read GetIsReadable;\r\n    property IsWritable: boolean read GetIsWritable;\r\n    property Visibility: TMemberVisibility read GetVisibility;\r\n  end;\r\n\r\n  TRttiInstanceProperty = class(TRttiProperty)\r\n  end;\r\n\r\n  TRttiPropertyArray = specialize TArray<TRttiProperty>;\r\n\r\n  { TRttiType }\r\n\r\n  TRttiType = class(TRttiNamedObject)\r\n  private\r\n    //FMethods: specialize TArray<TRttiMethod>;\r\n    function GetAsInstance: TRttiInstanceType;\r\n    function GetAsInstanceExternal: TRttiInstanceExternalType;\r\n    function GetHandle: TTypeInfo;\r\n    function GetQualifiedName: String;\r\n  protected\r\n    function GetName: string; override;\r\n    //function GetHandle: Pointer; override;\r\n    function GetIsInstance: Boolean;\r\n    function GetIsInstanceExternal: Boolean;\r\n    //function GetIsManaged: Boolean; virtual;\r\n    function GetIsOrdinal: Boolean; virtual;\r\n    function GetIsRecord: Boolean; virtual;\r\n    function GetIsSet: Boolean; virtual;\r\n    function GetTypeKind: TTypeKind; virtual;\r\n    //function GetTypeSize: integer; virtual;\r\n    function GetBaseType: TRttiType; virtual;\r\n    function LoadCustomAttributes: TCustomAttributeArray; override;\r\n  public\r\n    function GetField(const AName: string): TRttiField; virtual;\r\n    function GetFields: TRttiFieldArray; virtual;\r\n    function GetMethods: TRttiMethodArray; virtual;\r\n    function GetMethods(const aName: String): TRttiMethodArray; virtual;\r\n    function GetMethod(const aName: String): TRttiMethod; virtual;\r\n    function GetProperty(const AName: string): TRttiProperty; virtual;\r\n    //function GetIndexedProperty(const AName: string): TRttiIndexedProperty; virtual;\r\n    function GetProperties: TRttiPropertyArray; virtual;\r\n    function GetDeclaredProperties: TRttiPropertyArray; virtual;\r\n    //function GetDeclaredIndexedProperties: TRttiIndexedPropertyArray; virtual;\r\n    function GetDeclaredMethods: TRttiMethodArray; virtual;\r\n    function GetDeclaredFields: TRttiFieldArray; virtual;\r\n\r\n    property Handle: TTypeInfo read GetHandle;\r\n    property IsInstance: Boolean read GetIsInstance;\r\n    property IsInstanceExternal: Boolean read GetIsInstanceExternal;\r\n    //property isManaged: Boolean read GetIsManaged;\r\n    property IsOrdinal: Boolean read GetIsOrdinal;\r\n    property IsRecord: Boolean read GetIsRecord;\r\n    property IsSet: Boolean read GetIsSet;\r\n    property BaseType: TRttiType read GetBaseType;\r\n    property AsInstance: TRttiInstanceType read GetAsInstance;\r\n    property AsInstanceExternal: TRttiInstanceExternalType read GetAsInstanceExternal;\r\n    property TypeKind: TTypeKind read GetTypeKind;\r\n    //property TypeSize: integer read GetTypeSize;\r\n    property QualifiedName: String read GetQualifiedName;\r\n  end;\r\n\r\n  TRttiTypeClass = class of TRttiType;\r\n\r\n  { TRttiStructuredType }\r\n\r\n  TRttiStructuredType = class abstract(TRttiType)\r\n  private\r\n    FFields: TRttiFieldArray;\r\n    FMethods: TRttiMethodArray;\r\n    FProperties: TRttiPropertyArray;\r\n  protected\r\n    function GetAncestor: TRttiStructuredType; virtual;\r\n    function GetStructTypeInfo: TTypeInfoStruct;\r\n  public\r\n    constructor Create(AParent: TRttiObject; ATypeInfo: PTypeInfo); override;\r\n\r\n    destructor Destroy; override;\r\n\r\n    function GetDeclaredFields: TRttiFieldArray; override;\r\n    function GetDeclaredMethods: TRttiMethodArray; override;\r\n    function GetDeclaredProperties: TRttiPropertyArray; override;\r\n    function GetFields: TRttiFieldArray; override;\r\n    function GetMethod(const aName: String): TRttiMethod; override;\r\n    function GetMethods: TRttiMethodArray; override;\r\n    function GetMethods(const aName: String): TRttiMethodArray; override;\r\n    function GetProperties: TRttiPropertyArray; override;\r\n    function GetProperty(const AName: string): TRttiProperty; override;\r\n\r\n    property StructTypeInfo: TTypeInfoStruct read GetStructTypeInfo;\r\n  end;\r\n\r\n  { TRttiInstanceType }\r\n\r\n  TRttiInstanceType = class(TRttiStructuredType)\r\n  private\r\n    function GetAncestorType: TRttiInstanceType;\r\n    function GetClassTypeInfo: TTypeInfoClass;\r\n    function GetMetaClassType: TClass;\r\n  protected\r\n    function GetAncestor: TRttiStructuredType; override;\r\n    function GetBaseType : TRttiType; override;\r\n  public\r\n    constructor Create(AParent: TRttiObject; ATypeInfo: PTypeInfo); override;\r\n    property BaseType : TRttiInstanceType read GetAncestorType;\r\n    property Ancestor: TRttiInstanceType read GetAncestorType;\r\n    property ClassTypeInfo: TTypeInfoClass read GetClassTypeInfo;\r\n    property MetaClassType: TClass read GetMetaClassType;\r\n  end;\r\n\r\n  { TRttiInterfaceType }\r\n\r\n  TRttiInterfaceType = class(TRttiStructuredType)\r\n  private\r\n    function GetAncestorType: TRttiInterfaceType;\r\n    function GetGUID: TGUID;\r\n    function GetInterfaceTypeInfo: TTypeInfoInterface;\r\n  protected\r\n    function GetAncestor: TRttiStructuredType; override;\r\n    function GetBaseType : TRttiType; override;\r\n  public\r\n    constructor Create(AParent: TRttiObject; ATypeInfo: PTypeInfo); override;\r\n\r\n    property BaseType : TRttiInterfaceType read GetAncestorType;\r\n    property Ancestor: TRttiInterfaceType read GetAncestorType;\r\n    property GUID: TGUID read GetGUID;\r\n    property InterfaceTypeInfo: TTypeInfoInterface read GetInterfaceTypeInfo;\r\n  end;\r\n\r\n  { TRttiRecordType }\r\n\r\n  TRttiRecordType = class(TRttiStructuredType)\r\n  private\r\n    function GetRecordTypeInfo: TTypeInfoRecord;\r\n  protected\r\n    function GetIsRecord: Boolean; override;\r\n  public\r\n    constructor Create(AParent: TRttiObject; ATypeInfo: PTypeInfo); override;\r\n\r\n    property RecordTypeInfo: TTypeInfoRecord read GetRecordTypeInfo;\r\n  end;\r\n\r\n  { TRttiClassRefType }\r\n  TRttiClassRefType = class(TRttiType)\r\n  private\r\n    function GetClassRefTypeInfo: TTypeInfoClassRef;\r\n    function GetInstanceType: TRttiInstanceType;\r\n    function GetMetaclassType: TClass;\r\n  public\r\n    constructor Create(AParent: TRttiObject; ATypeInfo: PTypeInfo); override;\r\n\r\n    property ClassRefTypeInfo: TTypeInfoClassRef read GetClassRefTypeInfo;\r\n    property InstanceType: TRttiInstanceType read GetInstanceType;\r\n    property MetaclassType: TClass read GetMetaclassType;\r\n  end;\r\n\r\n  { TRttiInstanceExternalType }\r\n\r\n  TRttiInstanceExternalType = class(TRttiType)\r\n  private\r\n    function GetAncestor: TRttiInstanceExternalType;\r\n    function GetExternalName: String;\r\n    function GetExternalClassTypeInfo: TTypeInfoExtClass;\r\n  public\r\n    constructor Create(AParent: TRttiObject; ATypeInfo: PTypeInfo); override;\r\n\r\n    property Ancestor: TRttiInstanceExternalType read GetAncestor;\r\n    property ExternalClassTypeInfo: TTypeInfoExtClass read GetExternalClassTypeInfo;\r\n    property ExternalName: String read GetExternalName;\r\n  end;\r\n\r\n  { TRttiOrdinalType }\r\n\r\n  TRttiOrdinalType = class(TRttiType)\r\n  private\r\n    function GetMaxValue: Integer; virtual;\r\n    function GetMinValue: Integer; virtual;\r\n    function GetOrdType: TOrdType;\r\n    function GetOrdinalTypeInfo: TTypeInfoInteger;\r\n  public\r\n    constructor Create(AParent: TRttiObject; ATypeInfo: PTypeInfo); override;\r\n\r\n    property OrdType: TOrdType read GetOrdType;\r\n    property MinValue: Integer read GetMinValue;\r\n    property MaxValue: Integer read GetMaxValue;\r\n    property OrdinalTypeInfo: TTypeInfoInteger read GetOrdinalTypeInfo;\r\n  end;\r\n\r\n  { TRttiEnumerationType }\r\n\r\n  TRttiEnumerationType = class(TRttiOrdinalType)\r\n  private\r\n    function GetEnumerationTypeInfo: TTypeInfoEnum;\r\n  public\r\n    constructor Create(AParent: TRttiObject; ATypeInfo: PTypeInfo); override;\r\n\r\n    property EnumerationTypeInfo: TTypeInfoEnum read GetEnumerationTypeInfo;\r\n\r\n    function GetNames: TStringArray;\r\n    generic class function GetName<T>(AValue: T): String; reintroduce;\r\n    generic class function GetValue<T>(const AValue: String): T;\r\n  end;\r\n\r\n  { TRttiDynamicArrayType }\r\n\r\n  TRttiDynamicArrayType = class(TRttiType)\r\n  private\r\n    function GetDynArrayTypeInfo: TTypeInfoDynArray;\r\n    function GetElementType: TRttiType;\r\n  public\r\n    constructor Create(AParent: TRttiObject; ATypeInfo: PTypeInfo); override;\r\n\r\n    property DynArrayTypeInfo: TTypeInfoDynArray read GetDynArrayTypeInfo;\r\n    property ElementType: TRttiType read GetElementType;\r\n  end;\r\n\r\n  EInvoke = EJS;\r\n\r\n  TVirtualInterfaceInvokeEvent = reference to procedure(Method: TRttiMethod; const Args: specialize TArray<TValue>; out Result: TValue);\r\n  TVirtualInterfaceInvokeEventJS = reference to function(const aMethodName: String; const Args: TJSValueDynArray): JSValue;\r\n\r\n  { TVirtualInterface: A class that can implement any IInterface. Any method\r\n    call is handled by the OnInvoke event. }\r\n  TVirtualInterface = class(TInterfacedObject, IInterface)\r\n  private\r\n    FContext: TRttiContext;\r\n    FInterfaceType: TRttiInterfaceType;\r\n    FOnInvoke: TVirtualInterfaceInvokeEvent;\r\n    FOnInvokeJS: TVirtualInterfaceInvokeEventJS;\r\n\r\n    function Invoke(const MethodName: String; const Args: TJSValueDynArray): JSValue;\r\n  public\r\n    constructor Create(InterfaceTypeInfo: TTypeInfoInterface); overload;\r\n    constructor Create(InterfaceTypeInfo: TTypeInfoInterface; const InvokeEvent: TVirtualInterfaceInvokeEvent); overload;\r\n    constructor Create(InterfaceTypeInfo: TTypeInfoInterface; const InvokeEvent: TVirtualInterfaceInvokeEventJS); overload;\r\n\r\n    destructor Destroy; override;\r\n\r\n    function QueryInterface(const iid: TGuid; out obj): Integer; override;\r\n\r\n    property OnInvoke: TVirtualInterfaceInvokeEvent read FOnInvoke write FOnInvoke;\r\n    property OnInvokeJS: TVirtualInterfaceInvokeEventJS read FOnInvokeJS write FOnInvokeJS;\r\n  end;\r\n\r\nprocedure CreateVirtualCorbaInterface(InterfaceTypeInfo: Pointer;\r\n  const MethodImplementation: TVirtualInterfaceInvokeEvent; out IntfVar); assembler;\r\n\r\nfunction Invoke(ACodeAddress: Pointer; const AArgs: TJSValueDynArray;\r\n  ACallConv: TCallConv; AResultType: PTypeInfo; AIsStatic: Boolean;\r\n  AIsConstructor: Boolean): TValue;\r\n\r\nimplementation\r\n\r\ntype\r\n  TRttiPoolTypes = class\r\n  private\r\n    FReferenceCount: Integer;\r\n    FTypes: TJSObject; // maps 'modulename.typename' to TRTTIType\r\n  public\r\n    constructor Create;\r\n\r\n    destructor Destroy; override;\r\n\r\n    function FindType(const AQualifiedName: String): TRttiType;\r\n    function GetType(const ATypeInfo: PTypeInfo): TRTTIType; overload;\r\n    function GetType(const AClass: TClass): TRTTIType; overload;\r\n\r\n    class function AcquireContext: TJSObject; static;\r\n\r\n    class procedure ReleaseContext; static;\r\n  end;\r\n\r\nvar\r\n  Pool: TRttiPoolTypes;\r\n  pas: TJSObject; external name 'pas';\r\n\r\nprocedure CreateVirtualCorbaInterface(InterfaceTypeInfo: Pointer;\r\n  const MethodImplementation: TVirtualInterfaceInvokeEvent; out IntfVar); assembler;\r\nasm\r\n  var IntfType = InterfaceTypeInfo.interface;\r\n  var i = Object.create(IntfType);\r\n  var o = { $name: \"virtual\", $fullname: \"virtual\" };\r\n  i.$o = o;\r\n  do {\r\n    var names = IntfType.$names;\r\n    if (!names) break;\r\n    for (var j=0; j<names.length; j++){\r\n      let fnname = names[j];\r\n      i[fnname] = function(){ return MethodImplementation(fnname,arguments); };\r\n    }\r\n    IntfType = Object.getPrototypeOf(IntfType);\r\n  } while(IntfType!=null);\r\n  IntfVar.set(i);\r\nend;\r\n\r\n{ TRttiPoolTypes }\r\n\r\nconstructor TRttiPoolTypes.Create;\r\nbegin\r\n  inherited;\r\n\r\n  FTypes := TJSObject.new;\r\nend;\r\n\r\ndestructor TRttiPoolTypes.Destroy;\r\nvar\r\n  Key: String;\r\n\r\n  RttiObject: TRttiType;\r\n\r\nbegin\r\n  for key in FTypes do\r\n    if FTypes.hasOwnProperty(key) then\r\n    begin\r\n      RttiObject := TRttiType(FTypes[key]);\r\n\r\n      RttiObject.Free;\r\n    end;\r\nend;\r\n\r\nfunction TRttiPoolTypes.FindType(const AQualifiedName: String): TRttiType;\r\nvar\r\n  ModuleName, TypeName: String;\r\n\r\n  Module: TTypeInfoModule;\r\n\r\n  TypeFound: PTypeInfo;\r\n\r\nbegin\r\n  if FTypes.hasOwnProperty(AQualifiedName) then\r\n    Result := TRttiType(FTypes[AQualifiedName])\r\n  else\r\n  begin\r\n    Result := nil;\r\n\r\n    for ModuleName in TJSObject.Keys(pas) do\r\n      if AQualifiedName.StartsWith(ModuleName + '.') then\r\n      begin\r\n        Module := TTypeInfoModule(pas[ModuleName]);\r\n        TypeName := Copy(AQualifiedName, Length(ModuleName) + 2, Length(AQualifiedName));\r\n\r\n        if Module.RTTI.HasOwnProperty(TypeName) then\r\n        begin\r\n          TypeFound := PTypeInfo(Module.RTTI[TypeName]);\r\n\r\n          Exit(GetType(TypeFound));\r\n        end;\r\n      end;\r\n  end;\r\nend;\r\n\r\nfunction TRttiPoolTypes.GetType(const ATypeInfo: PTypeInfo): TRTTIType;\r\nvar\r\n  RttiTypeClass: array[TTypeKind] of TRttiTypeClass = (\r\n    nil, // tkUnknown\r\n    TRttiOrdinalType, // tkInteger\r\n    TRttiOrdinalType, // tkChar\r\n    TRttiType, // tkString\r\n    TRttiEnumerationType, // tkEnumeration\r\n    TRttiType, // tkSet\r\n    TRttiType, // tkDouble\r\n    TRttiType, // tkBool\r\n    TRttiType, // tkProcVar\r\n    TRttiType, // tkMethod\r\n    TRttiType, // tkArray\r\n    TRttiDynamicArrayType, // tkDynArray\r\n    TRttiRecordType, // tkRecord\r\n    TRttiInstanceType, // tkClass\r\n    TRttiClassRefType, // tkClassRef\r\n    TRttiType, // tkPointer\r\n    TRttiType, // tkJSValue\r\n    TRttiType, // tkRefToProcVar\r\n    TRttiInterfaceType, // tkInterface\r\n    TRttiType, // tkHelper\r\n    TRttiInstanceExternalType // tkExtClass\r\n  );\r\n\r\n  TheType: TTypeInfo absolute ATypeInfo;\r\n\r\n  Name: String;\r\n\r\n  Parent: TRttiObject;\r\n\r\nbegin\r\n  if IsNull(ATypeInfo) or IsUndefined(ATypeInfo) then\r\n    Exit(nil);\r\n\r\n  Name := TheType.Name;\r\n\r\n  if isModule(TheType.Module) then\r\n    Name := TheType.Module.Name + '.' + Name;\r\n\r\n  if FTypes.hasOwnProperty(Name) then\r\n    Result := TRttiType(FTypes[Name])\r\n  else\r\n  begin\r\n    if (TheType.Kind in [tkClass, tkInterface, tkHelper, tkExtClass]) and TJSObject(TheType).hasOwnProperty('ancestor') then\r\n      Parent := GetType(PTypeInfo(TJSObject(TheType)['ancestor']))\r\n    else\r\n      Parent := nil;\r\n\r\n    Result := RttiTypeClass[TheType.Kind].Create(Parent, ATypeInfo);\r\n\r\n    FTypes[Name] := Result;\r\n  end;\r\nend;\r\n\r\nfunction TRttiPoolTypes.GetType(const AClass: TClass): TRTTIType;\r\nbegin\r\n  if AClass = nil then\r\n    Exit(nil);\r\n\r\n  Result := GetType(TypeInfo(AClass));\r\nend;\r\n\r\nclass function TRttiPoolTypes.AcquireContext: TJSObject;\r\nbegin\r\n  if not Assigned(Pool) then\r\n    Pool := TRttiPoolTypes.Create;\r\n\r\n  Result := Pool.FTypes;\r\n\r\n  Inc(Pool.FReferenceCount);\r\nend;\r\n\r\nclass procedure TRttiPoolTypes.ReleaseContext;\r\nbegin\r\n  Dec(Pool.FReferenceCount);\r\n\r\n  if Pool.FReferenceCount = 0 then\r\n    FreeAndNil(Pool);\r\nend;\r\n\r\n{ TRttiDynamicArrayType }\r\n\r\nfunction TRttiDynamicArrayType.GetDynArrayTypeInfo: TTypeInfoDynArray;\r\nbegin\r\n  Result := TTypeInfoDynArray(inherited Handle);\r\nend;\r\n\r\nfunction TRttiDynamicArrayType.GetElementType: TRttiType;\r\nbegin\r\n  Result := Pool.GetType(DynArrayTypeInfo.ElType);\r\nend;\r\n\r\nconstructor TRttiDynamicArrayType.Create(AParent: TRttiObject; ATypeInfo: PTypeInfo);\r\nbegin\r\n  if not (TTypeInfo(ATypeInfo) is TTypeInfoDynArray) then\r\n    raise EInvalidCast.Create('');\r\n\r\n  inherited;\r\nend;\r\n\r\n{ TRttiOrdinalType }\r\n\r\nfunction TRttiOrdinalType.GetMaxValue: Integer;\r\nbegin\r\n  Result := OrdinalTypeInfo.MaxValue;\r\nend;\r\n\r\nfunction TRttiOrdinalType.GetMinValue: Integer;\r\nbegin\r\n  Result := OrdinalTypeInfo.MinValue;\r\nend;\r\n\r\nfunction TRttiOrdinalType.GetOrdType: TOrdType;\r\nbegin\r\n  Result := OrdinalTypeInfo.OrdType;\r\nend;\r\n\r\nfunction TRttiOrdinalType.GetOrdinalTypeInfo: TTypeInfoInteger;\r\nbegin\r\n  Result := TTypeInfoInteger(inherited Handle);\r\nend;\r\n\r\nconstructor TRttiOrdinalType.Create(AParent: TRttiObject; ATypeInfo: PTypeInfo);\r\nbegin\r\n  if not (TTypeInfo(ATypeInfo) is TTypeInfoInteger) then\r\n    raise EInvalidCast.Create('');\r\n\r\n  inherited;\r\nend;\r\n\r\n{ TRttiEnumerationType }\r\n\r\nfunction TRttiEnumerationType.GetEnumerationTypeInfo: TTypeInfoEnum;\r\nbegin\r\n  Result := TTypeInfoEnum(inherited Handle);\r\nend;\r\n\r\nfunction TRttiEnumerationType.GetNames: TStringArray;\r\nvar\r\n  A, NamesSize: Integer;\r\n\r\nbegin\r\n  NamesSize := GetEnumNameCount(EnumerationTypeInfo);\r\n\r\n  SetLength(Result, NamesSize);\r\n\r\n  for A := 0 to Pred(NamesSize) do\r\n    Result[A] := EnumerationTypeInfo.EnumType.IntToName[A + MinValue];\r\nend;\r\n\r\ngeneric class function TRttiEnumerationType.GetName<T>(AValue: T): String;\r\n\r\nVar\r\n  P : PTypeInfo;\r\n\r\nbegin\r\n  P:=TypeInfo(T);\r\n  if not (TTypeInfo(P).kind=tkEnumeration) then\r\n    raise EInvalidCast.CreateFmt(SErrTypeIsNotEnumerated,[TTypeInfo(P).Name]);\r\n  Result := GetEnumName(TTypeInfoEnum(P), Integer(JSValue(AValue)));\r\nend;\r\n\r\ngeneric class function TRttiEnumerationType.GetValue<T>(const AValue: String): T;\r\n\r\nVar\r\n  P : PTypeInfo;\r\n\r\nbegin\r\n  P:=TypeInfo(T);\r\n  if not (TTypeInfo(P).kind=tkEnumeration) then\r\n    raise EInvalidCast.CreateFmt(SErrTypeIsNotEnumerated,[TTypeInfo(P).Name]);\r\n  Result := T(JSValue(GetEnumValue(TTypeInfoEnum(TypeInfo(T)), AValue)));\r\nend;\r\n\r\nconstructor TRttiEnumerationType.Create(AParent: TRttiObject; ATypeInfo: PTypeInfo);\r\nbegin\r\n  if not (TTypeInfo(ATypeInfo) is TTypeInfoEnum) then\r\n    raise EInvalidCast.Create('');\r\n\r\n  inherited;\r\nend;\r\n\r\n{ TValue }\r\n\r\nfunction TValue.GetTypeKind: TTypeKind;\r\nbegin\r\n  if TypeInfo=nil then\r\n    Result:=tkUnknown\r\n  else\r\n    Result:=FTypeInfo.Kind;\r\nend;\r\n\r\ngeneric function TValue.AsType<T>: T;\r\nbegin\r\n  if IsEmpty then\r\n    Result := Default(T)\r\n  else\r\n    Result := T(AsJSValue)\r\nend;\r\n\r\ngeneric class function TValue.From<T>(const Value: T): TValue;\r\nbegin\r\n  Make(Value, System.TypeInfo(T), Result);\r\nend;\r\n\r\nclass procedure TValue.Make(const ABuffer: JSValue; const ATypeInfo: PTypeInfo; var Result: TValue);\r\nbegin\r\n  Result.FData := ABuffer;\r\n  Result.FTypeInfo := ATypeInfo;\r\nend;\r\n\r\ngeneric class procedure TValue.Make<T>(const Value: T; var Result: TValue);\r\nbegin\r\n  TValue.Make(Value, System.TypeInfo(T), Result);\r\nend;\r\n\r\nfunction TValue.Cast(ATypeInfo: TTypeInfo; const EmptyAsAnyType: Boolean): TValue;\r\nbegin\r\n  if not TryCast(ATypeInfo, Result, EmptyAsAnyType) then\r\n    raise EInvalidCast.Create('');\r\nend;\r\n\r\ngeneric function TValue.Cast<T>(const EmptyAsAnyType: Boolean): TValue;\r\nbegin\r\n  Result := Cast(System.TypeInfo(T), EmptyAsAnyType);\r\nend;\r\n\r\nfunction TValue.IsType(ATypeInfo: TTypeInfo; const EmptyAsAnyType: Boolean): Boolean;\r\nvar\r\n  AnyValue: TValue;\r\n\r\nbegin\r\n  Result := TryCast(ATypeInfo, AnyValue, EmptyAsAnyType);\r\nend;\r\n\r\ngeneric function TValue.TryAsType<T>(var AResult: T; const EmptyAsAnyType: Boolean): Boolean;\r\nvar\r\n  val: TValue;\r\nbegin\r\n  Result := TryCast(System.TypeInfo(T), val, EmptyAsAnyType);\r\n  if Result then\r\n  begin\r\n    if val.IsEmpty then\r\n      AResult := Default(T)\r\n    else\r\n      AResult := T(val.AsJSValue)\r\n  end;\r\nend;\r\n\r\ngeneric function TValue.IsType<T>(const EmptyAsAnyType: Boolean): Boolean;\r\nbegin\r\n  Result := IsType(System.TypeInfo(T), EmptyAsAnyType);\r\nend;\r\n\r\nfunction TValue.TryCast(ATypeInfo: TTypeInfo; out AResult: TValue; const EmptyAsAnyType: Boolean): Boolean;\r\n\r\n  function ConversionAccepted: TTypeKinds;\r\n  begin\r\n    case ATypeInfo.Kind of\r\n      tkString: Exit([tkChar, tkString]);\r\n\r\n      tkDouble: Exit([tkInteger, tkDouble]);\r\n\r\n      tkEnumeration: Exit([tkInteger, tkEnumeration]);\r\n\r\n      else Exit([ATypeInfo.Kind]);\r\n    end;\r\n  end;\r\n\r\nbegin\r\n  if EmptyAsAnyType and IsEmpty then\r\n  begin\r\n    AResult := TValue.Empty;\r\n\r\n    if ATypeInfo <> nil then\r\n    begin\r\n      AResult.FTypeInfo := ATypeInfo;\r\n\r\n      case ATypeInfo.Kind of\r\n        tkBool: AResult.SetData(False);\r\n        tkChar: AResult.SetData(#0);\r\n        tkString: AResult.SetData(EmptyStr);\r\n        tkDouble,\r\n        tkEnumeration,\r\n        tkInteger: AResult.SetData(0);\r\n      end;\r\n\r\n      Exit(True);\r\n    end;\r\n  end;\r\n\r\n  if not EmptyAsAnyType and (FTypeInfo = nil) then\r\n    Exit(False);\r\n\r\n  if FTypeInfo = ATypeInfo then\r\n  begin\r\n    AResult := Self;\r\n    Exit(True);\r\n  end;\r\n\r\n  if ATypeInfo = nil then\r\n    Exit(False);\r\n\r\n  if ATypeInfo = System.TypeInfo(TValue) then\r\n  begin\r\n    TValue.Make(Self, System.TypeInfo(TValue), AResult);\r\n    Exit(True);\r\n  end;\r\n\r\n  Result := TypeInfo.Kind in ConversionAccepted;\r\n\r\n  if Result then\r\n  begin\r\n    AResult.SetData(FData);\r\n    AResult.FTypeInfo := ATypeInfo;\r\n  end;\r\nend;\r\n\r\nclass function TValue.FromJSValue(v: JSValue): TValue;\r\nvar\r\n  i: NativeInt;\r\n  TypeOfValue: TTypeInfo;\r\n\r\nbegin\r\n  case jsTypeOf(v) of\r\n    'number':\r\n      if JS.isInteger(v) then\r\n        begin\r\n        i:=NativeInt(v);\r\n        if (i>=low(integer)) and (i<=high(integer)) then\r\n          TypeOfValue:=System.TypeInfo(Integer)\r\n        else\r\n          TypeOfValue:=System.TypeInfo(NativeInt);\r\n        end\r\n      else\r\n        TypeOfValue:=system.TypeInfo(Double);\r\n    'string':  TypeOfValue:=System.TypeInfo(String);\r\n    'boolean': TypeOfValue:=System.TypeInfo(Boolean);\r\n    'object':\r\n      if v=nil then\r\n        Exit(TValue.Empty)\r\n      else if JS.isClass(v) and JS.isExt(v,TObject) then\r\n        TypeOfValue:=System.TypeInfo(TClass(v))\r\n      else if JS.isObject(v) and JS.isExt(v,TObject) then\r\n        TypeOfValue:=System.TypeInfo(TObject(v))\r\n      else if isRecord(v) then\r\n        TypeOfValue:=System.TypeInfo(TObject(v))\r\n      else if TJSArray.IsArray(V) then\r\n        TypeOfValue:=System.TypeInfo(TObject(v))\r\n      else\r\n        raise EInvalidCast.Create('Type not recognized in FromJSValue!');\r\n    else\r\n      TypeOfValue:=System.TypeInfo(JSValue);\r\n  end;\r\n\r\n  Make(v, TypeOfValue, Result);\r\nend;\r\n\r\nclass function TValue.FromArray(TypeInfo: TTypeInfo; const Values: specialize TArray<TValue>): TValue;\r\nvar\r\n  A: Integer;\r\n\r\n  DynTypeInfo: TTypeInfoDynArray absolute TypeInfo;\r\n\r\n  NewArray: TJSArray;\r\n\r\n  ElementType: TTypeInfo;\r\n\r\nbegin\r\n  if TypeInfo.Kind <> tkDynArray then\r\n    raise EInvalidCast.Create('Type not an array in FromArray!');\r\n\r\n  ElementType := DynTypeInfo.ElType;\r\n  NewArray := TJSArray.new;\r\n  NewArray.Length := Length(Values);\r\n\r\n  for A := 0 to High(Values) do\r\n    NewArray[A] := Values[A].Cast(ElementType).AsJSValue;\r\n\r\n  Result.SetData(NewArray);\r\n  Result.FTypeInfo := TypeInfo;\r\nend;\r\n\r\nclass function TValue.FromOrdinal(ATypeInfo: TTypeInfo; AValue: JSValue): TValue;\r\nbegin\r\n  if (ATypeInfo = nil) or not (ATypeInfo.Kind in [tkBool, tkEnumeration, tkInteger]) then\r\n    raise EInvalidCast.Create('Invalid type in FromOrdinal');\r\n\r\n  if ATypeInfo.Kind = tkBool then\r\n    TValue.Make(AValue = True, ATypeInfo, Result)\r\n  else\r\n    TValue.Make(NativeInt(AValue), ATypeInfo, Result);\r\nend;\r\n\r\nfunction TValue.IsObject: boolean;\r\nbegin\r\n  Result:=IsEmpty or (TypeInfo.Kind=tkClass);\r\nend;\r\n\r\nfunction TValue.AsObject: TObject;\r\nbegin\r\n  if IsObject or (IsClass and not JS.IsObject(GetData)) then\r\n    Result := TObject(GetData)\r\n  else\r\n    raise EInvalidCast.Create(SErrInvalidTypecast);\r\nend;\r\n\r\nfunction TValue.IsObjectInstance: boolean;\r\nbegin\r\n  Result:=(TypeInfo<>nil) and (TypeInfo.Kind=tkClass);\r\nend;\r\n\r\nfunction TValue.IsArray: boolean;\r\nbegin\r\n  case Kind of\r\n    tkDynArray: Exit(True);\r\n    tkArray: Exit(Length(TTypeInfoStaticArray(FTypeInfo).Dims) = 1);\r\n    else Result := False;\r\n  end;\r\nend;\r\n\r\nfunction TValue.IsClass: boolean;\r\nvar\r\n  k: TTypeKind;\r\nbegin\r\n  k:=Kind;\r\n  Result := (k = tkClassRef) or ((k in [tkClass,tkUnknown]) and not JS.IsObject(GetData));\r\nend;\r\n\r\nfunction TValue.AsClass: TClass;\r\nbegin\r\n  if IsClass then\r\n    Result := TClass(GetData)\r\n  else\r\n    raise EInvalidCast.Create(SErrInvalidTypecast);\r\nend;\r\n\r\nfunction TValue.IsOrdinal: boolean;\r\nbegin\r\n  Result := IsEmpty or (Kind in [tkBool, tkInteger, tkChar, tkEnumeration]);\r\nend;\r\n\r\nfunction TValue.AsOrdinal: NativeInt;\r\nbegin\r\n  if IsOrdinal then\r\n    Result:=NativeInt(GetData)\r\n  else\r\n    raise EInvalidCast.Create(SErrInvalidTypecast);\r\nend;\r\n\r\nfunction TValue.AsBoolean: boolean;\r\nbegin\r\n  if (Kind = tkBool) then\r\n    Result:=boolean(GetData)\r\n  else\r\n    raise EInvalidCast.Create(SErrInvalidTypecast);\r\nend;\r\n\r\nfunction TValue.AsInteger: Integer;\r\nbegin\r\n  if JS.isInteger(GetData) then\r\n    Result:=NativeInt(GetData)\r\n  else\r\n    raise EInvalidCast.Create(SErrInvalidTypecast);\r\nend;\r\n\r\nfunction TValue.AsNativeInt: NativeInt;\r\nbegin\r\n  if JS.isInteger(GetData) then\r\n    Result:=NativeInt(GetData)\r\n  else\r\n    raise EInvalidCast.Create(SErrInvalidTypecast);\r\nend;\r\n\r\nfunction TValue.AsInterface: IInterface;\r\nvar\r\n  k: TTypeKind;\r\nbegin\r\n  k:=Kind;\r\n  if k = tkInterface then\r\n    Result := IInterface(GetData)// ToDo\r\n  else if (k in [tkClass, tkClassRef, tkUnknown]) and not JS.isObject(GetData) then\r\n    Result := Nil\r\n  else\r\n    raise EInvalidCast.Create(SErrInvalidTypecast);\r\nend;\r\n\r\nfunction TValue.AsString: string;\r\nbegin\r\n  if js.isString(GetData) then\r\n    Result:=String(GetData)\r\n  else\r\n    raise EInvalidCast.Create(SErrInvalidTypecast);\r\nend;\r\n\r\nfunction TValue.AsUnicodeString: UnicodeString;\r\nbegin\r\n  Result:=AsString;\r\nend;\r\n\r\nfunction TValue.AsExtended: Extended;\r\nbegin\r\n  if js.isNumber(GetData) then\r\n    Result:=Double(GetData)\r\n  else\r\n    raise EInvalidCast.Create(SErrInvalidTypecast);\r\nend;\r\n\r\nfunction TValue.ToString: String;\r\nbegin\r\n  case Kind of\r\n    tkString: Result := AsString;\r\n    tkInteger: Result := IntToStr(AsNativeInt);\r\n    tkBool: Result := BoolToStr(AsBoolean, True);\r\n    tkFloat: Result := FloatToStr(AsExtended);\r\n  else\r\n    Result := '';\r\n  end;\r\nend;\r\n\r\nfunction TValue.GetArrayLength: SizeInt;\r\nbegin\r\n  if IsArray then\r\n    Exit(Length(TJSValueDynArray(GetData)));\r\n\r\n  raise EInvalidCast.Create(SErrInvalidTypecast);\r\nend;\r\n\r\nfunction TValue.GetArrayElement(aIndex: SizeInt): TValue;\r\nbegin\r\n  if IsArray then\r\n  begin\r\n    case Kind of\r\n      tkArray: Result.FTypeInfo:=TTypeInfoStaticArray(FTypeInfo).ElType;\r\n      tkDynArray: Result.FTypeInfo:=TTypeInfoDynArray(FTypeInfo).ElType;\r\n    end;\r\n\r\n    Result.SetData(TJSValueDynArray(GetData)[aIndex]);\r\n  end\r\n  else\r\n    raise EInvalidCast.Create(SErrInvalidTypecast);\r\nend;\r\n\r\nprocedure TValue.SetArrayLength(const Size: SizeInt);\r\nvar\r\n  NewArray: TJSValueDynArray;\r\n\r\nbegin\r\n  NewArray := TJSValueDynArray(GetData);\r\n\r\n  SetLength(NewArray, Size);\r\n\r\n  SetData(NewArray);\r\nend;\r\n\r\nprocedure TValue.SetArrayElement(aIndex: SizeInt; const AValue: TValue);\r\n\r\nbegin\r\n  if IsArray then\r\n    TJSValueDynArray(GetData)[aIndex] := AValue.AsJSValue\r\n  else\r\n    raise EInvalidCast.Create(SErrInvalidTypecast);\r\nend;\r\n\r\nfunction TValue.IsType(ATypeInfo: TTypeInfo): boolean;\r\nbegin\r\n  Result := ATypeInfo = TypeInfo;\r\nend;\r\n\r\nfunction TValue.GetData: JSValue;\r\nbegin\r\n  if FReferenceVariableData then\r\n    Result := TReferenceVariable(FData).Get\r\n  else\r\n    Result := FData;\r\nend;\r\n\r\nprocedure TValue.SetData(const Value: JSValue);\r\nbegin\r\n  if FReferenceVariableData then\r\n    TReferenceVariable(FData).&Set(Value)\r\n  else\r\n    FData := Value;\r\nend;\r\n\r\nfunction TValue.GetIsEmpty: boolean;\r\nbegin\r\n  if (TypeInfo=nil) or (GetData=Undefined) or (GetData=nil) then\r\n    exit(true);\r\n  case TypeInfo.Kind of\r\n  tkDynArray:\r\n    Result:=GetArrayLength=0;\r\n  else\r\n    Result:=false;\r\n  end;\r\nend;\r\n\r\nfunction TValue.AsJSValue: JSValue;\r\nbegin\r\n  Result := GetData;\r\nend;\r\n\r\nclass function TValue.Empty: TValue;\r\nbegin\r\n  Result.SetData(nil);\r\n  Result.FTypeInfo := nil;\r\nend;\r\n\r\n{ TRttiStructuredType }\r\n\r\nfunction TRttiStructuredType.GetMethods: TRttiMethodArray;\r\nvar\r\n  A, Start: Integer;\r\n\r\n  BaseClass: TRttiStructuredType;\r\n\r\n  Declared: TRttiMethodArray;\r\n\r\nbegin\r\n  BaseClass := Self;\r\n  Result := nil;\r\n  while Assigned(BaseClass) do\r\n  begin\r\n    Declared := BaseClass.GetDeclaredMethods;\r\n    Start := Length(Result);\r\n    SetLength(Result, Start + Length(Declared));\r\n    for A := Low(Declared) to High(Declared) do\r\n      Result[Start + A] := Declared[A];\r\n    BaseClass := BaseClass.GetAncestor;\r\n  end;\r\nend;\r\n\r\nfunction TRttiStructuredType.GetMethods(const aName: String): TRttiMethodArray;\r\nvar\r\n  Method: TRttiMethod;\r\n  MethodCount: Integer;\r\n\r\nbegin\r\n  MethodCount := 0;\r\n  for Method in GetMethods do\r\n    if aName = Method.Name then\r\n      Inc(MethodCount);\r\n  SetLength(Result, MethodCount);\r\n  for Method in GetMethods do\r\n    if aName = Method.Name then\r\n    begin\r\n      Dec(MethodCount);\r\n      Result[MethodCount] := Method;\r\n    end;\r\nend;\r\n\r\nfunction TRttiStructuredType.GetProperties: TRttiPropertyArray;\r\nvar\r\n  A, Start: Integer;\r\n\r\n  BaseClass: TRttiStructuredType;\r\n\r\n  Declared: TRttiPropertyArray;\r\n\r\nbegin\r\n  BaseClass := Self;\r\n  Result := nil;\r\n\r\n  while Assigned(BaseClass) do\r\n  begin\r\n    Declared := BaseClass.GetDeclaredProperties;\r\n    Start := Length(Result);\r\n\r\n    SetLength(Result, Start + Length(Declared));\r\n\r\n    for A := Low(Declared) to High(Declared) do\r\n      Result[Start + A] := Declared[A];\r\n\r\n    BaseClass := BaseClass.GetAncestor;\r\n  end;\r\nend;\r\n\r\nfunction TRttiStructuredType.GetMethod(const aName: String): TRttiMethod;\r\nvar\r\n  Method: TRttiMethod;\r\n\r\nbegin\r\n  for Method in GetMethods do\r\n    if aName = Method.Name then\r\n      Exit(Method);\r\nend;\r\n\r\nfunction TRttiStructuredType.GetProperty(const AName: string): TRttiProperty;\r\nvar\r\n  Prop: TRttiProperty;\r\n  lName: String;\r\n\r\nbegin\r\n  lName := LowerCase(AName);\r\n  for Prop in GetProperties do\r\n    if lowercase(Prop.Name) = lName then\r\n      Exit(Prop);\r\n  Result:=nil;\r\nend;\r\n\r\nfunction TRttiStructuredType.GetDeclaredProperties: TRttiPropertyArray;\r\nvar\r\n  A, PropCount: Integer;\r\n\r\nbegin\r\n  if not Assigned(FProperties) then\r\n  begin\r\n    PropCount := StructTypeInfo.PropCount;\r\n\r\n    SetLength(FProperties, PropCount);\r\n\r\n    for A := 0 to Pred(PropCount) do\r\n      FProperties[A] := TRttiProperty.Create(Self, StructTypeInfo.GetProp(A));\r\n  end;\r\n\r\n  Result := FProperties;\r\nend;\r\n\r\nfunction TRttiStructuredType.GetAncestor: TRttiStructuredType;\r\nbegin\r\n  Result := nil;\r\nend;\r\n\r\nfunction TRttiStructuredType.GetStructTypeInfo: TTypeInfoStruct;\r\nbegin\r\n  Result:=TTypeInfoStruct(inherited Handle);\r\nend;\r\n\r\nconstructor TRttiStructuredType.Create(AParent: TRttiObject; ATypeInfo: PTypeInfo);\r\nbegin\r\n  if not (TTypeInfo(ATypeInfo) is TTypeInfoStruct) then\r\n    raise EInvalidCast.Create('');\r\n\r\n  inherited;\r\nend;\r\n\r\ndestructor TRttiStructuredType.Destroy;\r\nvar\r\n  Method: TRttiMethod;\r\n\r\n  Prop: TRttiProperty;\r\n\r\nbegin\r\n  for Method in FMethods do\r\n    Method.Free;\r\n\r\n  for Prop in FProperties do\r\n    Prop.Free;\r\n\r\n  inherited Destroy;\r\nend;\r\n\r\nfunction TRttiStructuredType.GetDeclaredMethods: TRttiMethodArray;\r\nvar\r\n  A, MethodCount: Integer;\r\n\r\nbegin\r\n  if not Assigned(FMethods) then\r\n  begin\r\n    MethodCount := StructTypeInfo.MethodCount;\r\n    SetLength(FMethods, MethodCount);\r\n\r\n    for A := 0 to Pred(MethodCount) do\r\n      FMethods[A] := TRttiMethod.Create(Self, StructTypeInfo.GetMethod(A));\r\n  end;\r\n\r\n  Result := FMethods;\r\nend;\r\n\r\nfunction TRttiStructuredType.GetDeclaredFields: TRttiFieldArray;\r\nvar\r\n  A, FieldCount: Integer;\r\n\r\nbegin\r\n  if not Assigned(FFields) then\r\n  begin\r\n    FieldCount := StructTypeInfo.FieldCount;\r\n\r\n    SetLength(FFields, FieldCount);\r\n\r\n    for A := 0 to Pred(FieldCount) do\r\n      FFields[A] := TRttiField.Create(Self, StructTypeInfo.GetField(A));\r\n  end;\r\n\r\n  Result := FFields;\r\nend;\r\n\r\nfunction TRttiStructuredType.GetFields: TRttiFieldArray;\r\nvar\r\n  A, Start: Integer;\r\n\r\n  BaseClass: TRttiStructuredType;\r\n\r\n  Declared: TRttiFieldArray;\r\n\r\nbegin\r\n  BaseClass := Self;\r\n  Result := nil;\r\n\r\n  while Assigned(BaseClass) do\r\n  begin\r\n    Declared := BaseClass.GetDeclaredFields;\r\n    Start := Length(Result);\r\n\r\n    SetLength(Result, Start + Length(Declared));\r\n\r\n    for A := Low(Declared) to High(Declared) do\r\n      Result[Start + A] := Declared[A];\r\n\r\n    BaseClass := BaseClass.GetAncestor;\r\n  end;\r\nend;\r\n\r\n{ TRttiInstanceType }\r\n\r\nfunction TRttiInstanceType.GetClassTypeInfo: TTypeInfoClass;\r\nbegin\r\n  Result:=TTypeInfoClass(inherited Handle);\r\nend;\r\n\r\nfunction TRttiInstanceType.GetMetaClassType: TClass;\r\nbegin\r\n  Result:=ClassTypeInfo.ClassType;\r\nend;\r\n\r\nfunction TRttiInstanceType.GetAncestor: TRttiStructuredType;\r\nbegin\r\n  Result := GetAncestorType;\r\nend;\r\n\r\nfunction TRttiInstanceType.GetBaseType: TRttiType;\r\nbegin\r\n  Result:=GetAncestorType;\r\nend;\r\n\r\nfunction TRttiInstanceType.GetAncestorType: TRttiInstanceType;\r\nbegin\r\n  Result := inherited Parent as TRttiInstanceType;\r\nend;\r\n\r\nconstructor TRttiInstanceType.Create(AParent: TRttiObject; ATypeInfo: PTypeInfo);\r\nbegin\r\n  if not (TTypeInfo(ATypeInfo) is TTypeInfoClass) then\r\n    raise EInvalidCast.Create('');\r\n\r\n  inherited;\r\nend;\r\n\r\n{ TRttiInterfaceType }\r\n\r\nconstructor TRttiInterfaceType.Create(AParent: TRttiObject; ATypeInfo: PTypeInfo);\r\nbegin\r\n  if not (TTypeInfo(ATypeInfo) is TTypeInfoInterface) then\r\n    raise EInvalidCast.Create('');\r\n\r\n  inherited;\r\nend;\r\n\r\nfunction TRttiInterfaceType.GetGUID: TGUID;\r\nvar\r\n  GUID: String;\r\n\r\nbegin\r\n  GUID := InterfaceTypeInfo.InterfaceInfo.GUID;\r\n\r\n  TryStringToGUID(GUID, Result);\r\nend;\r\n\r\nfunction TRttiInterfaceType.GetInterfaceTypeInfo: TTypeInfoInterface;\r\nbegin\r\n  Result := TTypeInfoInterface(inherited Handle);\r\nend;\r\n\r\nfunction TRttiInterfaceType.GetAncestor: TRttiStructuredType;\r\nbegin\r\n  Result := GetAncestorType;\r\nend;\r\n\r\nfunction TRttiInterfaceType.GetBaseType: TRttiType;\r\nbegin\r\n  Result := GetAncestorType;\r\nend;\r\n\r\nfunction TRttiInterfaceType.GetAncestorType: TRttiInterfaceType;\r\nbegin\r\n  Result := Pool.GetType(InterfaceTypeInfo.Ancestor) as TRttiInterfaceType;\r\nend;\r\n\r\n{ TRttiRecordType }\r\n\r\nfunction TRttiRecordType.GetRecordTypeInfo: TTypeInfoRecord;\r\nbegin\r\n  Result := TTypeInfoRecord(inherited Handle);\r\nend;\r\n\r\nfunction TRttiRecordType.GetIsRecord: Boolean;\r\nbegin\r\n  Result := True;\r\nend;\r\n\r\nconstructor TRttiRecordType.Create(AParent: TRttiObject; ATypeInfo: PTypeInfo);\r\nbegin\r\n  if not (TTypeInfo(ATypeInfo) is TTypeInfoRecord) then\r\n    raise EInvalidCast.Create('');\r\n\r\n  inherited;\r\nend;\r\n\r\n{ TRttiClassRefType }\r\n\r\nconstructor TRttiClassRefType.Create(AParent: TRttiObject; ATypeInfo: PTypeInfo);\r\nbegin\r\n  if not (TTypeInfo(ATypeInfo) is TTypeInfoClassRef) then\r\n    raise EInvalidCast.Create('');\r\n\r\n  inherited;\r\nend;\r\n\r\nfunction TRttiClassRefType.GetClassRefTypeInfo: TTypeInfoClassRef;\r\nbegin\r\n  Result := TTypeInfoClassRef(inherited Handle);\r\nend;\r\n\r\nfunction TRttiClassRefType.GetInstanceType: TRttiInstanceType;\r\nbegin\r\n  Result := Pool.GetType(ClassRefTypeInfo.InstanceType) as TRttiInstanceType;\r\nend;\r\n\r\nfunction TRttiClassRefType.GetMetaclassType: TClass;\r\nbegin\r\n  Result := InstanceType.MetaClassType;\r\nend;\r\n\r\n{ TRttiInstanceExternalType }\r\n\r\nfunction TRttiInstanceExternalType.GetAncestor: TRttiInstanceExternalType;\r\nbegin\r\n  Result := Pool.GetType(ExternalClassTypeInfo.Ancestor) as TRttiInstanceExternalType;\r\nend;\r\n\r\nfunction TRttiInstanceExternalType.GetExternalClassTypeInfo: TTypeInfoExtClass;\r\nbegin\r\n  Result := TTypeInfoExtClass(inherited Handle);\r\nend;\r\n\r\nfunction TRttiInstanceExternalType.GetExternalName: String;\r\nbegin\r\n  Result := ExternalClassTypeInfo.JSClassName;\r\nend;\r\n\r\nconstructor TRttiInstanceExternalType.Create(AParent: TRttiObject; ATypeInfo: PTypeInfo);\r\nbegin\r\n  if not (TTypeInfo(ATypeInfo) is TTypeInfoExtClass) then\r\n    raise EInvalidCast.Create('');\r\n\r\n  inherited;\r\nend;\r\n\r\n{ TRTTIContext }\r\n\r\nclass function TRTTIContext.Create: TRTTIContext;\r\nbegin\r\n  Pool.AcquireContext;\r\nend;\r\n\r\nprocedure TRTTIContext.Free;\r\nbegin\r\n  Pool.ReleaseContext;\r\nend;\r\n\r\nfunction TRTTIContext.GetType(aTypeInfo: PTypeInfo): TRttiType;\r\nbegin\r\n  Result := Pool.GetType(aTypeInfo);\r\nend;\r\n\r\nfunction TRTTIContext.GetType(aClass: TClass): TRTTIType;\r\nbegin\r\n  Result := Pool.GetType(aClass);\r\nend;\r\n\r\nfunction TRTTIContext.FindType(const AQualifiedName: String): TRttiType;\r\nbegin\r\n  Result := Pool.FindType(AQualifiedName);\r\nend;\r\n\r\nfunction TRTTIContext.GetTypes: specialize TArray<TRttiType>;\r\nvar\r\n  ModuleName, ClassName: String;\r\n\r\n  ModuleTypes: TJSObject;\r\n\r\nbegin\r\n  for ModuleName in TJSObject.Keys(pas) do\r\n  begin\r\n    ModuleTypes := TTypeInfoModule(pas[ModuleName]).RTTI;\r\n\r\n    for ClassName in ModuleTypes do\r\n      if TJSObject(ModuleTypes[ClassName]).HasOwnProperty('name') and (ClassName[1] <> '$') then\r\n        GetType(PTypeInfo(ModuleTypes[ClassName]));\r\n  end;\r\n\r\n  Result := specialize TArray<TRttiType>(TJSObject.Values(Pool.FTypes));\r\nend;\r\n\r\nclass procedure TRTTIContext.KeepContext;\r\nbegin\r\n  Pool.AcquireContext;\r\nend;\r\n\r\nclass procedure TRTTIContext.DropContext;\r\nbegin\r\n  Pool.ReleaseContext;\r\nend;\r\n\r\n{ TRttiObject }\r\n\r\nconstructor TRttiObject.Create(AParent: TRttiObject; AHandle: Pointer);\r\nbegin\r\n  FParent := AParent;\r\n  FHandle := AHandle;\r\nend;\r\n\r\ndestructor TRttiObject.Destroy;\r\nvar\r\n  Attribute: TCustomAttribute;\r\nbegin\r\n  for Attribute in FAttributes do\r\n    Attribute.Free;\r\n\r\n  FAttributes := nil;\r\n\r\n  inherited Destroy;\r\nend;\r\n\r\nfunction TRttiObject.LoadCustomAttributes: TCustomAttributeArray;\r\nbegin\r\n  Result := nil;\r\nend;\r\n\r\nfunction TRttiObject.GetAttributes: TCustomAttributeArray;\r\nbegin\r\n  if not FAttributesLoaded then\r\n  begin\r\n    FAttributes := LoadCustomAttributes;\r\n    FAttributesLoaded := True;\r\n  end;\r\n\r\n  Result := FAttributes;\r\nend;\r\n\r\nfunction TRttiObject.GetAttribute(const Attribute: TCustomAttributeClass): TCustomAttribute;\r\nvar\r\n  CustomAttribute: TCustomAttribute;\r\n\r\nbegin\r\n  Result := nil;\r\n\r\n  for CustomAttribute in GetAttributes do\r\n    if CustomAttribute is Attribute then\r\n      Exit(CustomAttribute);\r\nend;\r\n\r\ngeneric function TRttiObject.GetAttribute<T>: T;\r\n\r\nbegin\r\n  Result := T(GetAttribute(TCustomAttributeClass(T.ClassType)));\r\nend;\r\n\r\nfunction TRttiObject.HasAttribute(const Attribute: TCustomAttributeClass): Boolean;\r\nbegin\r\n  Result := GetAttribute(Attribute) <> nil;\r\nend;\r\n\r\ngeneric function TRttiObject.HasAttribute<T>: Boolean;\r\nbegin\r\n  Result := HasAttribute(TCustomAttributeClass(T.ClassType));\r\nend;\r\n\r\n{ TRttiNamedObject }\r\n\r\nfunction TRttiNamedObject.GetName: string;\r\nbegin\r\n  Result:='';\r\nend;\r\n\r\n{ TRttiMember }\r\n\r\nfunction TRttiMember.GetName: string;\r\nbegin\r\n  Result := MemberTypeInfo.Name;\r\nend;\r\n\r\nfunction TRttiMember.GetParent: TRttiType;\r\nbegin\r\n  Result := TRttiType(inherited Parent);\r\nend;\r\n\r\nfunction TRttiMember.GetVisibility: TMemberVisibility;\r\nbegin\r\n  Result := mvPublished;\r\nend;\r\n\r\nconstructor TRttiMember.Create(AParent: TRttiType; ATypeInfo: TTypeMember);\r\nbegin\r\n  if not (ATypeInfo is TTypeMember) then\r\n    raise EInvalidCast.Create('');\r\n\r\n  inherited Create(AParent, ATypeInfo);\r\nend;\r\n\r\nfunction TRttiMember.LoadCustomAttributes: TCustomAttributeArray;\r\nbegin\r\n  Result := GetRTTIAttributes(MemberTypeInfo.Attributes);\r\nend;\r\n\r\nfunction TRttiMember.GetMemberTypeInfo: TTypeMember;\r\nbegin\r\n  Result := TTypeMember(inherited Handle);\r\nend;\r\n\r\n{ TRttiField }\r\n\r\nconstructor TRttiField.Create(AParent: TRttiType; ATypeInfo: TTypeMember);\r\nbegin\r\n  if not (ATypeInfo is TTypeMemberField) then\r\n    raise EInvalidCast.Create('');\r\n\r\n  inherited;\r\nend;\r\n\r\nfunction TRttiField.GetFieldType: TRttiType;\r\nbegin\r\n  Result := Pool.GetType(FieldTypeInfo.TypeInfo);\r\nend;\r\n\r\nfunction TRttiField.GetFieldTypeInfo: TTypeMemberField;\r\nbegin\r\n  Result := TTypeMemberField(inherited Handle);\r\nend;\r\n\r\nfunction TRttiField.GetValue(Instance: JSValue): TValue;\r\nvar\r\n  JSInstance: TJSObject absolute Instance;\r\n\r\nbegin\r\n  Result := TValue.FromJSValue(JSInstance[Name]);\r\nend;\r\n\r\nprocedure TRttiField.SetValue(Instance: JSValue; const AValue: TValue);\r\nvar\r\n  JSInstance: TJSObject absolute Instance;\r\n\r\nbegin\r\n  JSInstance[Name] := AValue.Cast(FieldType.Handle, True).ASJSValue;\r\nend;\r\n\r\n{ TRttiParameter }\r\n\r\nfunction TRttiParameter.GetName: String;\r\nbegin\r\n  Result := FName;\r\nend;\r\n\r\n{ TRttiMethod }\r\n\r\nfunction TRttiMethod.GetMethodTypeInfo: TTypeMemberMethod;\r\nbegin\r\n  Result := TTypeMemberMethod(inherited Handle);\r\nend;\r\n\r\nfunction TRttiMethod.GetIsClassMethod: Boolean;\r\nbegin\r\n  Result:=MethodTypeInfo.MethodKind in [mkClassFunction,mkClassProcedure];\r\nend;\r\n\r\nfunction TRttiMethod.GetIsConstructor: Boolean;\r\nbegin\r\n  Result:=MethodTypeInfo.MethodKind=mkConstructor;\r\nend;\r\n\r\nfunction TRttiMethod.GetIsDestructor: Boolean;\r\nbegin\r\n  Result:=MethodTypeInfo.MethodKind=mkDestructor;\r\nend;\r\n\r\nfunction TRttiMethod.GetIsExternal: Boolean;\r\nbegin\r\n  Result := pfExternal in GetProcedureFlags;\r\nend;\r\n\r\nfunction TRttiMethod.GetIsStatic: Boolean;\r\nbegin\r\n  Result := pfStatic in GetProcedureFlags;\r\nend;\r\n\r\nfunction TRttiMethod.GetIsVarArgs: Boolean;\r\nbegin\r\n  Result := pfVarargs in GetProcedureFlags;\r\nend;\r\n\r\nfunction TRttiMethod.GetIsAsyncCall: Boolean;\r\nbegin\r\n  Result := (pfAsync in GetProcedureFlags) or Assigned(ReturnType) and ReturnType.IsInstanceExternal and (ReturnType.AsInstanceExternal.ExternalName = 'Promise');\r\nend;\r\n\r\nfunction TRttiMethod.GetIsSafeCall: Boolean;\r\nbegin\r\n  Result := pfSafeCall in GetProcedureFlags;\r\nend;\r\n\r\nfunction TRttiMethod.GetMethodKind: TMethodKind;\r\nbegin\r\n  Result:=MethodTypeInfo.MethodKind;;\r\nend;\r\n\r\nfunction TRttiMethod.GetProcedureFlags: TProcedureFlags;\r\nconst\r\n  PROCEDURE_FLAGS: array[TProcedureFlag] of NativeInt = (1, 2, 4, 8, 16);\r\n\r\nvar\r\n  Flag: TProcedureFlag;\r\n\r\n  ProcedureFlags: NativeInt;\r\n\r\nbegin\r\n  ProcedureFlags := MethodTypeInfo.ProcSig.Flags;\r\n  Result := [];\r\n\r\n  for Flag := Low(PROCEDURE_FLAGS) to High(PROCEDURE_FLAGS) do\r\n    if PROCEDURE_FLAGS[Flag] and ProcedureFlags > 0 then\r\n      Result := Result + [Flag];\r\nend;\r\n\r\nfunction TRttiMethod.GetReturnType: TRttiType;\r\nbegin\r\n  Result := Pool.GetType(MethodTypeInfo.ProcSig.ResultType);\r\nend;\r\n\r\nprocedure TRttiMethod.LoadParameters;\r\nconst\r\n  FLAGS_CONVERSION: array[TParamFlag] of NativeInt = (1, 2, 4, 8, 16, 32);\r\n\r\nvar\r\n  A: Integer;\r\n\r\n  Flag: TParamFlag;\r\n\r\n  Param: TProcedureParam;\r\n\r\n  RttiParam: TRttiParameter;\r\n\r\n  MethodParams: TProcedureParams;\r\n\r\nbegin\r\n  FParametersLoaded := True;\r\n  MethodParams := MethodTypeInfo.ProcSig.Params;\r\n\r\n  SetLength(FParameters, Length(MethodParams));\r\n\r\n  for A := Low(FParameters) to High(FParameters) do\r\n  begin\r\n    Param := MethodParams[A];\r\n    RttiParam := TRttiParameter.Create(Self, Param);\r\n    RttiParam.FName := Param.Name;\r\n    RttiParam.FParamType := Pool.GetType(Param.TypeInfo);\r\n\r\n    for Flag := Low(FLAGS_CONVERSION) to High(FLAGS_CONVERSION) do\r\n      if FLAGS_CONVERSION[Flag] and Param.Flags > 0 then\r\n        RttiParam.FFlags := RttiParam.FFlags + [Flag];\r\n\r\n    FParameters[A] := RttiParam;\r\n  end;\r\nend;\r\n\r\nfunction TRttiMethod.GetParameters: TRttiParameterArray;\r\nbegin\r\n  if not FParametersLoaded then\r\n    LoadParameters;\r\n\r\n  Result := FParameters;\r\nend;\r\n\r\nfunction TRttiMethod.Invoke(const Instance: TValue; const Args: array of TValue): TValue;\r\nvar\r\n  A: Integer;\r\n  AArgs: TJSValueDynArray;\r\n\r\nbegin\r\n  if Assigned(ReturnType) then\r\n    Result.FTypeInfo := ReturnType.Handle;\r\n\r\n  SetLength(AArgs, Length(Args));\r\n\r\n  for A := Low(Args) to High(Args) do\r\n    AArgs[A] := Args[A].AsJSValue;\r\n\r\n  Result.SetData(TJSFunction(TJSObject(Instance.AsJSValue)[Name]).apply(TJSObject(Instance.AsJSValue), AArgs));\r\nend;\r\n\r\nfunction TRttiMethod.Invoke(const Instance: TObject; const Args: array of TValue): TValue;\r\n\r\nvar\r\n  v : TValue;\r\n\r\nbegin\r\n  TValue.make(Instance,Instance.ClassInfo,v);\r\n  Result:=Invoke(v,Args);\r\nend;\r\n\r\nfunction TRttiMethod.Invoke(const aClass: TClass; const Args: array of TValue\r\n  ): TValue;\r\nvar\r\n  v : TValue;\r\n\r\nbegin\r\n  TValue.make(aClass,aClass.ClassInfo,v);\r\n  Result:=Invoke(V,Args);\r\nend;\r\n\r\n{ TRttiProperty }\r\n\r\nconstructor TRttiProperty.Create(AParent: TRttiType; ATypeInfo: TTypeMember);\r\nbegin\r\n  if not (ATypeInfo is TTypeMemberProperty) then\r\n    raise EInvalidCast.Create('');\r\n\r\n  inherited;\r\nend;\r\n\r\nfunction TRttiProperty.GetPropertyTypeInfo: TTypeMemberProperty;\r\nbegin\r\n  Result := TTypeMemberProperty(inherited Handle);\r\nend;\r\n\r\nfunction TRttiProperty.GetValue(Instance: JSValue): TValue;\r\nvar\r\n  JSObject: TJSObject absolute Instance;\r\n\r\nbegin\r\n  TValue.Make(GetJSValueProp(JSObject, PropertyTypeInfo), PropertyType.Handle, Result);\r\nend;\r\n\r\nprocedure TRttiProperty.SetValue(Instance: JSValue; const AValue: TValue);\r\nvar\r\n  JSInstance: TJSObject absolute Instance;\r\n\r\nbegin\r\n  SetJSValueProp(JSInstance, PropertyTypeInfo, AValue.Cast(PropertyType.Handle, True).AsJSValue);\r\nend;\r\n\r\nfunction TRttiProperty.GetPropertyType: TRttiType;\r\nbegin\r\n  Result := Pool.GetType(PropertyTypeInfo.TypeInfo);\r\nend;\r\n\r\nfunction TRttiProperty.GetIsWritable: boolean;\r\nbegin\r\n  Result := PropertyTypeInfo.Setter<>'';\r\nend;\r\n\r\nfunction TRttiProperty.GetIsReadable: boolean;\r\nbegin\r\n  Result := PropertyTypeInfo.Getter<>'';\r\nend;\r\n\r\nfunction TRttiProperty.GetVisibility: TMemberVisibility;\r\nbegin\r\n  // At this moment only published rtti-property-info is supported by pas2js\r\n  Result := mvPublished;\r\nend;\r\n\r\n{ TRttiType }\r\n\r\nfunction TRttiType.GetName: string;\r\nbegin\r\n  Result := Handle.Name;\r\nend;\r\n\r\nfunction TRttiType.GetIsInstance: boolean;\r\nbegin\r\n  Result:=Self is TRttiInstanceType;\r\nend;\r\n\r\nfunction TRttiType.GetIsInstanceExternal: boolean;\r\nbegin\r\n  Result:=Self is TRttiInstanceExternalType;\r\nend;\r\n\r\nfunction TRttiType.GetIsOrdinal: boolean;\r\nbegin\r\n  Result:=false;\r\nend;\r\n\r\nfunction TRttiType.GetIsRecord: boolean;\r\nbegin\r\n  Result:=false;\r\nend;\r\n\r\nfunction TRttiType.GetIsSet: boolean;\r\nbegin\r\n  Result:=false;\r\nend;\r\n\r\nfunction TRttiType.GetTypeKind: TTypeKind;\r\nbegin\r\n  Result:=Handle.Kind;\r\nend;\r\n\r\nfunction TRttiType.GetHandle: TTypeInfo;\r\nbegin\r\n  Result := TTypeInfo(inherited Handle);\r\nend;\r\n\r\nfunction TRttiType.GetBaseType: TRttiType;\r\nbegin\r\n  Result:=Nil;\r\nend;\r\n\r\nfunction TRttiType.GetAsInstance: TRttiInstanceType;\r\nbegin\r\n  Result := Self as TRttiInstanceType;\r\nend;\r\n\r\nfunction TRttiType.GetAsInstanceExternal: TRttiInstanceExternalType;\r\nbegin\r\n  Result := Self as TRttiInstanceExternalType;\r\nend;\r\n\r\nfunction TRttiType.LoadCustomAttributes: TCustomAttributeArray;\r\nbegin\r\n  Result:=GetRTTIAttributes(Handle.Attributes);\r\nend;\r\n\r\nfunction TRttiType.GetDeclaredProperties: TRttiPropertyArray;\r\nbegin\r\n  Result:=nil;\r\nend;\r\n\r\nfunction TRttiType.GetProperties: TRttiPropertyArray;\r\nbegin\r\n  Result:=nil;\r\nend;\r\n\r\nfunction TRttiType.GetProperty(const AName: string): TRttiProperty;\r\nbegin\r\n  Result:=nil;\r\n  if AName='' then ;\r\nend;\r\n\r\nfunction TRttiType.GetMethods: TRttiMethodArray;\r\nbegin\r\n  Result:=nil;\r\nend;\r\n\r\nfunction TRttiType.GetMethods(const aName: String): TRttiMethodArray;\r\nbegin\r\n  Result:=nil;\r\nend;\r\n\r\nfunction TRttiType.GetMethod(const aName: String): TRttiMethod;\r\nbegin\r\n  Result:=nil;\r\n  if aName='' then ;\r\nend;\r\n\r\nfunction TRttiType.GetDeclaredMethods: TRttiMethodArray;\r\nbegin\r\n  Result:=nil;\r\nend;\r\n\r\nfunction TRttiType.GetDeclaredFields: TRttiFieldArray;\r\nbegin\r\n  Result:=nil;\r\nend;\r\n\r\nfunction TRttiType.GetField(const AName: string): TRttiField;\r\nvar\r\n  AField: TRttiField;\r\n\r\nbegin\r\n  Result:=nil;\r\n  for AField in GetFields do\r\n    if AField.Name = AName then\r\n      Exit(AField);\r\nend;\r\n\r\nfunction TRttiType.GetFields: TRttiFieldArray;\r\nbegin\r\n  Result := nil;\r\nend;\r\n\r\nfunction TRttiType.GetQualifiedName: String;\r\nbegin\r\n  Result := Format('%s.%s', [Handle.Module.Name, Name]);\r\nend;\r\n\r\n{ TVirtualInterface }\r\n\r\n{$WARNINGS OFF}\r\nconstructor TVirtualInterface.Create(InterfaceTypeInfo: TTypeInfoInterface);\r\nvar\r\n  SelfInterfaceObject, InterfaceObject: TInterfaceObject;\r\n\r\n  Method: TRttiMethod;\r\n\r\n  MethodName: String;\r\n\r\nbegin\r\n  FContext := TRttiContext.Create;\r\n  FInterfaceType := FContext.GetType(InterfaceTypeInfo) as TRttiInterfaceType;\r\n\r\n  if FInterfaceType.InterfaceTypeInfo.InterfaceInfo.kind <> 'com' then\r\n    raise EInvalidCast.Create;\r\n\r\n  InterfaceObject := TInterfaceObject(TJSObject.Create(FInterfaceType.InterfaceTypeInfo.InterfaceInfo));\r\n  InterfaceObject.Obj := Self;\r\n\r\n  for Method in FInterfaceType.GetMethods do\r\n  begin\r\n    asm\r\n      let MethodName = Method.GetName();\r\n    end;\r\n\r\n    InterfaceObject[MethodName] :=\r\n      function: JSValue\r\n      begin\r\n        Result := TVirtualInterface(TInterfaceObject(JSThis).Obj).Invoke(MethodName, TJSValueDynArray(JSValue(JSArguments)));\r\n      end;\r\n  end;\r\n\r\n  InterfaceObject['_AddRef'] := @_AddRef;\r\n  InterfaceObject['_Release'] := @_Release;\r\n  InterfaceObject['QueryInterface'] := @QueryInterface;\r\n\r\n  SelfInterfaceObject := TInterfaceObject(Self);\r\n  SelfInterfaceObject.InterfaceMaps := TJSObject.New;\r\n  SelfInterfaceObject.InterfaceMaps[GUIDToString(IInterface)] := InterfaceObject;\r\n  SelfInterfaceObject.InterfaceMaps[FInterfaceType.Guid.ToString] := TJSObject.New;\r\n  SelfInterfaceObject.Interfaces := TJSObject.New;\r\n  SelfInterfaceObject.Interfaces[FInterfaceType.Guid.ToString] := InterfaceObject;\r\nend;\r\n{$WARNINGS ON}\r\n\r\nconstructor TVirtualInterface.Create(InterfaceTypeInfo: TTypeInfoInterface; const InvokeEvent: TVirtualInterfaceInvokeEvent);\r\nbegin\r\n  Create(InterfaceTypeInfo);\r\n\r\n  OnInvoke := InvokeEvent;\r\nend;\r\n\r\nconstructor TVirtualInterface.Create(InterfaceTypeInfo: TTypeInfoInterface; const InvokeEvent: TVirtualInterfaceInvokeEventJS);\r\nbegin\r\n  Create(InterfaceTypeInfo);\r\n\r\n  OnInvokeJS := InvokeEvent;\r\nend;\r\n\r\ndestructor TVirtualInterface.Destroy;\r\nbegin\r\n  FContext.Free;\r\n\r\n  inherited;\r\nend;\r\n\r\nfunction TVirtualInterface.QueryInterface(const iid: TGuid; out obj): Integer;\r\nbegin\r\n  Result := inherited QueryInterface(iid, obj);\r\nend;\r\n\r\nfunction TVirtualInterface.Invoke(const MethodName: String; const Args: TJSValueDynArray): JSValue;\r\nvar\r\n  Method: TRttiMethod;\r\n\r\n  Return: TValue;\r\n\r\n  function GenerateParams: specialize TArray<TValue>;\r\n  var\r\n    A: Integer;\r\n\r\n    Param: TRttiParameter;\r\n\r\n    Parameters: specialize TArray<TRttiParameter>;\r\n\r\n  begin\r\n    Parameters := Method.GetParameters;\r\n\r\n    SetLength(Result, Length(Parameters));\r\n\r\n    for A := Low(Parameters) to High(Parameters) do\r\n    begin\r\n      Param := Parameters[A];\r\n\r\n      TValue.Make(Args[A], Param.ParamType.Handle, Result[A]);\r\n\r\n      Result[A].FReferenceVariableData := (pfVar in Param.Flags) or (pfOut in Param.Flags);\r\n    end;\r\n  end;\r\n\r\nbegin\r\n  if Assigned(FOnInvokeJS) then\r\n    Result := FOnInvokeJS(MethodName, Args)\r\n  else\r\n  begin\r\n    Method := FInterfaceType.GetMethod(MethodName);\r\n\r\n    FOnInvoke(Method, GenerateParams, Return);\r\n\r\n    Result := Return.AsJSValue;\r\n  end;\r\nend;\r\n\r\nfunction Invoke(ACodeAddress: Pointer; const AArgs: TJSValueDynArray;\r\n  ACallConv: TCallConv; AResultType: PTypeInfo; AIsStatic: Boolean;\r\n  AIsConstructor: Boolean): TValue;\r\nbegin\r\n  if ACallConv=ccReg then ;\r\n  if AIsStatic then ;\r\n  if AIsConstructor then\r\n    raise EInvoke.Create('not supported');\r\n  if isFunction(ACodeAddress) then\r\n    begin\r\n    Result.FData := TJSFunction(ACodeAddress).apply(nil, AArgs);\r\n    if AResultType<>nil then\r\n      Result.FTypeInfo:=AResultType\r\n    else\r\n      Result.FTypeInfo:=TypeInfo(JSValue);\r\n    end\r\n  else\r\n    raise EInvoke.Create(SErrInvokeInvalidCodeAddr);\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.JSON;\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, Web, JS, SysUtils;\r\n\r\ntype\r\n  TJSONObject = class;\r\n  TJSONString = class;\r\n\r\n  TJSONAncestor = class(TObject)\r\n  private\r\n  protected\r\n    function GetStrValue: string; virtual;\r\n    procedure SetStrValue(const Value: string); virtual;\r\n  public\r\n    property Value: string read GetStrValue write SetStrValue;\r\n  end;\r\n\r\n  TJSONValue = class(TJSONAncestor)\r\n  private\r\n    fjv: JSValue;\r\n    fjo: JSValue;\r\n  protected\r\n    function GetStrValue: string; override;\r\n    property jv: JSValue read fjv write fjv;\r\n    class function JSONValueFromJS(const AJSValue: JSValue): TJSONValue;\r\n  public\r\n    constructor Create(AJSValue: JSValue); overload;\r\n    function ToString: string; override;\r\n    function GetValue<T>(const APath: string = ''): T;\r\n    function GetJSValue: JSValue;\r\n  end;\r\n\r\n  TJSONPair = class(TObject)\r\n  private\r\n    fjo: JSValue;\r\n    fjv: TJSONValue;\r\n    fjs: TJSONString;\r\n  public\r\n    constructor Create; overload;\r\n    constructor Create(const Str: string; const Value: TJSONValue); overload;\r\n    constructor Create(const Str: string; const Value: string); overload;\r\n    destructor Destroy; override;\r\n    property JsonValue: TJSONValue read fjv write fjv;\r\n    property JsonString: TJSONString read fjs write fjs;\r\n    function ToString: string; override;\r\n  end;\r\n\r\n  TJSONPairList = class(TList);\r\n\r\n  TJSONObject = class(TJSONValue)\r\n  private\r\n    fjo: TJSObject;\r\n    FMembers: TJSONPairList;\r\n    function GetPair(const I: Integer): TJSONPair;\r\n    function GetCount: Integer;\r\n    function GetItem(const Index: Integer): TJSONValue;\r\n    procedure SetValues(const Name: string; const Value: TJSONValue);\r\n  protected\r\n    property jo: TJSObject read fjo write fjo;\r\n    procedure AddDescendant(const Descendent: TJSONPair); virtual;\r\n  public\r\n    constructor Create; overload;\r\n    constructor Create(AObject: TJSObject); overload;\r\n    destructor Destroy; override;\r\n    property JSObject: TJSObject read fjo;\r\n    class function ParseJSONValue(const data: string): TJSONValue;\r\n    function GetJSONValue(Name: string): string;\r\n    function Get(Name: string): TJSONPair; overload;\r\n    function Get(Index: Integer): TJSONPair; overload;\r\n    function GetValue(const Name: string): TJSONValue;\r\n    procedure SetValue(const Name: string; AValue: string); overload;\r\n    procedure SetValue(const Name: string; AValue: integer); overload;\r\n    procedure SetValue(const Name: string; AValue: double); overload;\r\n    property Items[const Index: Integer]: TJSONValue read GetItem;\r\n    property Values[const Name: string]: TJSONValue read GetValue write SetValues;\r\n    property Pairs[const Index: Integer]: TJSONPair read GetPair;\r\n    property Count: Integer read GetCount;\r\n    function AddPair(const Pair: TJSONPair): TJSONObject; overload;\r\n    function AddPair(const Str: string; const Val: TJSONValue): TJSONObject; overload;\r\n    function AddPair(const Str: string; const Val: string): TJSONObject; overload;\r\n    function AddPair(const Str: string; const Val: Integer): TJSONObject; overload;\r\n    function AddPair(const Str: string; const Val: Int64): TJSONObject; overload;\r\n    function AddPair(const Str: string; const Val: Double): TJSONObject; overload;\r\n    function RemovePair(const PairName: string): TJSONPair;\r\n\r\n    function ToJSON: string;\r\n    function ToString: string; override;\r\n  end;\r\n\r\n  TJSONString = class(TJSONValue)\r\n  private\r\n    FValue: string;\r\n  protected\r\n    function GetStrValue: string; override;\r\n    procedure SetStrValue(const Value: string); override;\r\n  public\r\n    constructor Create(AString: string); overload;\r\n  end;\r\n\r\n  TJSONNumber = class(TJSONString)\r\n  private\r\n    FInt: Integer;\r\n    FInt64: Int64;\r\n    FDouble: Double;\r\n  protected\r\n    function GetStrValue: string; override;\r\n    procedure SetStrValue(const Value: string); override;\r\n  public\r\n    constructor Create(ANumber: integer); overload;\r\n    constructor Create(ANumber: Int64); overload;\r\n    constructor Create(ANumber: double); overload;\r\n\r\n    property AsInt: integer read FInt write FInt;\r\n    property AsInt64: Int64 read FInt64 write FInt64;\r\n    property AsDouble: Double read FDouble write FDouble;\r\n    property AsFloat: Double read FDouble write FDouble;\r\n  end;\r\n\r\n  TJSONBool = class(TJSONValue)\r\n  private\r\n    FBool: boolean;\r\n  protected\r\n    procedure SetStrValue(const Value: string); override;\r\n  public\r\n    constructor Create(const AValue: Boolean); overload;\r\n    property AsBoolean: boolean read FBool write FBool;\r\n  end;\r\n\r\n  TJSONTrue = class(TJSONBool)\r\n  protected\r\n    function GetStrValue: string; override;\r\n  public\r\n    constructor Create;\r\n    function ToString: string; override;\r\n  end;\r\n\r\n  TJSONFalse = class(TJSONBool)\r\n  protected\r\n    function GetStrValue: string; override;\r\n  public\r\n    constructor Create;\r\n    function ToString: string; override;\r\n  end;\r\n\r\n  TJSONNull = class(TJSONValue)\r\n  protected\r\n    function GetStrValue: string; override;\r\n  public\r\n    function ToString: string; override;\r\n  end;\r\n\r\n  TJSONArray = class;\r\n\r\n  TJSONArrayEnumerator = class\r\n  private\r\n    FJSONArray: TJSONArray;\r\n    FPosition: Integer;\r\n  public\r\n    constructor Create(AJSONArray: TJSONArray); reintroduce;\r\n    function GetCurrent: TJSONValue;\r\n    function MoveNext: Boolean;\r\n    property Current: TJSONValue read GetCurrent;\r\n  end;\r\n\r\n  TJSONArray = class(TJSONValue)\r\n  private\r\n    fja: TJSArray;\r\n    function GetItem(index: integer): TJSONValue;\r\n    procedure SetItem(index: integer; const Value: TJSONValue);\r\n    function GetCount: integer; reintroduce;\r\n    function GetJA: TJSArray;\r\n  public\r\n    constructor Create(AArray: TJSArray); overload;\r\n    property ja: TJSArray read GetJA write fja;\r\n    property Count: integer read GetCount;\r\n    property Items[index: integer]: TJSONValue read GetItem write SetItem; default;\r\n    function GetEnumerator: TJSONArrayEnumerator;\r\n    procedure Add(const Element: string); overload;\r\n    procedure Add(const Element: boolean); overload;\r\n    procedure Add(const Element: integer); overload;\r\n    procedure Add(const Element: double); overload;\r\n    procedure Add(const Element: TJSONObject); overload;\r\n    procedure Add(const Element: TJSONPair); overload;\r\n    procedure Add(const Element: TJSONArray); overload;\r\n    procedure AddElement(const Element: TJSONValue);\r\n\r\n    function ToJSON: string;\r\n    function ToString: string; override;\r\n  end;\r\n\r\n  TJSON = class(TObject)\r\n    function Parse(s: string): TJSONValue;\r\n  end;\r\n\r\nimplementation\r\n\r\nfunction JSONObjectToString(const v: JSValue): string; assembler;\r\nasm\r\n  return v+\"\";\r\nend;\r\n\r\n{ TJSON }\r\n\r\nfunction TJSON.Parse(s: string): TJSONValue;\r\nvar\r\n  O: TJSObject;\r\nbegin\r\n  O := TJSJSON.parseObject(s);\r\n\r\n  if isArray(O) then\r\n  begin\r\n    Result := TJSONArray.Create(TJSArray(O));\r\n  end\r\n  else\r\n  begin\r\n    Result := TJSONObject.Create(O);\r\n  end;\r\nend;\r\n\r\n{ TJSONArray }\r\n\r\nprocedure TJSONArray.Add(const Element: string);\r\nbegin\r\n  ja.push(Element);\r\nend;\r\n\r\nprocedure TJSONArray.Add(const Element: integer);\r\nbegin\r\n  ja.push(Element);\r\nend;\r\n\r\nprocedure TJSONArray.Add(const Element: boolean);\r\nbegin\r\n  ja.push(Element);\r\nend;\r\n\r\nprocedure TJSONArray.Add(const Element: TJSONObject);\r\nbegin\r\n  ja.push(Element);\r\nend;\r\n\r\nprocedure TJSONArray.Add(const Element: double);\r\nbegin\r\n  ja.push(Element);\r\nend;\r\n\r\nprocedure TJSONArray.Add(const Element: TJSONPair);\r\nbegin\r\n  ja.push(Element);\r\nend;\r\n\r\nprocedure TJSONArray.AddElement(const Element: TJSONValue);\r\nbegin\r\n  ja.push(Element);\r\nend;\r\n\r\nconstructor TJSONArray.Create(AArray: TJSArray);\r\nbegin\r\n  inherited Create;\r\n  ja := AArray;\r\nend;\r\n\r\nfunction TJSONArray.GetCount: integer;\r\nbegin\r\n  Result := ja.Length;\r\nend;\r\n\r\nfunction TJSONArray.GetEnumerator: TJSONArrayEnumerator;\r\nbegin\r\n  Result := TJSONArrayEnumerator.Create(Self);\r\nend;\r\n\r\nfunction TJSONArray.GetItem(index: integer): TJSONValue;\r\nvar\r\n  jv: JSValue;\r\nbegin\r\n  jv := ja[Index];\r\n  if (jv is TJSONObject) or (jv is TJSONArray) then\r\n    Result := TJSONValue(jv)\r\n  else\r\n    Result := JSONValueFromJS(jv);\r\nend;\r\n\r\nfunction TJSONArray.GetJA: TJSArray;\r\nbegin\r\n  if not Assigned(fja) then\r\n    fja := TJSArray.new;\r\n\r\n  Result := fja;\r\nend;\r\n\r\nprocedure TJSONArray.SetItem(index: integer; const Value: TJSONValue);\r\nbegin\r\n  if Value is TJSONObject then\r\n    ja[index] := TJSONObject(Value).jo;\r\nend;\r\n\r\nfunction TJSONArray.ToJSON: string;\r\nbegin\r\n  Result := ToString;\r\nend;\r\n\r\nfunction TJSONArray.ToString: string;\r\nvar\r\n  i: integer;\r\n  jv: TJSONValue;\r\n  comma: string;\r\nbegin\r\n  Result := '[';\r\n  comma := '';\r\n\r\n  for i := 0 to Count - 1 do\r\n  begin\r\n    jv := Items[i];\r\n\r\n    if Assigned(jv) then\r\n    begin\r\n      if (jv is TJSONObject) then\r\n      begin\r\n        Result := Result + comma + (jv as TJSONObject).ToString;\r\n      end\r\n      else\r\n        Result := Result + comma + jv.ToString;\r\n\r\n      comma := ',';\r\n    end;\r\n  end;\r\n\r\n  Result := Result + ']';\r\nend;\r\n\r\nprocedure TJSONArray.Add(const Element: TJSONArray);\r\nbegin\r\n  ja.push(Element);\r\nend;\r\n\r\n{ TJSONObject }\r\n\r\nconstructor TJSONObject.Create;\r\nbegin\r\n  inherited Create;\r\n  FMembers := TJSONPairList.Create;\r\n  fjo := nil;\r\nend;\r\n\r\n{$HINTS OFF}\r\nfunction TJSONObject.RemovePair(const PairName: string): TJSONPair;\r\nvar\r\n  o: TJSObject;\r\n  p: TJSONPair;\r\n  i: integer;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(fjo) then\r\n  begin\r\n    o := fjo;\r\n    asm\r\n      delete o[PairName];\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    for i := 0 to FMembers.Count - 1 do\r\n    begin\r\n      p := TJSONPair(FMembers.Items[i]);\r\n      if (p.fjs.ToString = '\"'+PairName+'\"') then\r\n      begin\r\n        Result := p;\r\n        FMembers.Delete(i);\r\n        break;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TJSONObject.AddPair(const Pair: TJSONPair): TJSONObject;\r\nvar\r\n  o: TJSObject;\r\nbegin\r\n  if Assigned(Pair) then\r\n  begin\r\n    AddDescendant(Pair);\r\n    if Assigned(fjo) then\r\n    begin\r\n      o := fjo;\r\n\r\n      if Pair.fjv is TJSONArray then\r\n      begin\r\n        asm\r\n          o[Pair.fjs.FValue] = Pair.fjv.fja;\r\n        end;\r\n      end\r\n      else\r\n      begin\r\n        asm\r\n          o[Pair.fjs.FValue] = Pair.fjv.fjv;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\n  Result := Self;\r\nend;\r\n{$HINTS ON}\r\n\r\nfunction TJSONObject.AddPair(const Str: string;\r\n  const Val: TJSONValue): TJSONObject;\r\nbegin\r\n  AddPair(TJSONPair.Create(Str, Val));\r\n  Result := Self;\r\nend;\r\n\r\nprocedure TJSONObject.AddDescendant(const Descendent: TJSONPair);\r\nbegin\r\n  FMembers.Add(Descendent);\r\nend;\r\n\r\nfunction TJSONObject.AddPair(const Str, Val: string): TJSONObject;\r\nbegin\r\n  AddPair(TJSONPair.Create(Str, Val));\r\n  Result := Self;\r\nend;\r\n\r\nfunction TJSONObject.AddPair(const Str: string; const Val: Integer): TJSONObject;\r\nbegin\r\n  AddPair(TJSONPair.Create(Str, TJSONNumber.Create(Val)));\r\n  Result := Self;\r\nend;\r\n\r\nfunction TJSONObject.AddPair(const Str: string; const Val: Int64): TJSONObject;\r\nbegin\r\n  AddPair(TJSONPair.Create(Str, TJSONNumber.Create(Val)));\r\n  Result := Self;\r\nend;\r\n\r\nfunction TJSONObject.AddPair(const Str: string; const Val: Double): TJSONObject;\r\nbegin\r\n  AddPair(TJSONPair.Create(Str, TJSONNumber.Create(Val)));\r\n  Result := Self;\r\nend;\r\n\r\nconstructor TJSONObject.Create(AObject: TJSObject);\r\nbegin\r\n  inherited Create;\r\n  FMembers := TJSONPairList.Create;\r\n  jo := AObject;\r\nend;\r\n\r\ndestructor TJSONObject.Destroy;\r\nbegin\r\n  FMembers.Free;\r\n  inherited Destroy;\r\nend;\r\n\r\nfunction TJSONObject.Get(Index: Integer): TJSONPair;\r\nbegin\r\n  Result := Get(TJSObject.keys(jo)[Index]);\r\nend;\r\n\r\nfunction TJSONObject.Get(Name: string): TJSONPair;\r\nvar\r\n  jv: JSValue;\r\n  jsv: TJSONValue;\r\n  i: integer;\r\n  p: TJSONPair;\r\nbegin\r\n  Result := nil;\r\n\r\n  if Assigned(jo) then\r\n  begin\r\n    jv := jo.Properties[Name];\r\n    if (jv <> Undefined) or (TJSObject(jv) = nil) then    \r\n    begin\r\n      Result := TJSONPair.Create;\r\n      jsv := JSONValueFromJS(jv);\r\n      Result.fjo := jo;\r\n      Result.JsonString.Value := Name;\r\n      Result.JsonValue := jsv;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    for i := 0 to FMembers.Count - 1 do\r\n    begin\r\n      p := TJSONPair(FMembers.Items[i]);\r\n      if (p.fjs.ToString = '\"'+Name+'\"') then\r\n        Result := p;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TJSONObject.GetCount: Integer;\r\nbegin\r\n  if Assigned(jo) then\r\n    Result := Length(TJSObject.keys(jo))\r\n  else\r\n    if Assigned(FMembers) then\r\n      Result := FMembers.Count\r\n    else\r\n      Result := 0;\r\nend;\r\n\r\nfunction TJSONObject.GetItem(const Index: Integer): TJSONValue;\r\nvar\r\n  jv: JSValue;\r\nbegin\r\n  jv := jo[TJSObject.keys(jo)[Index]];\r\n  Result := JSONValueFromJS(jv);\r\nend;\r\n\r\nfunction TJSONObject.GetJSONValue(Name: string): string;\r\nvar\r\n  jv: JSValue;\r\nbegin\r\n  jv :=  jo.Properties[Name];\r\n  Result := JSONObjectToString(jv);\r\nend;\r\n\r\nfunction TJSONObject.GetPair(const I: Integer): TJSONPair;\r\nvar\r\n  v: TJSONValue;\r\n  l: integer;\r\n  s: string;\r\n  jv: JSValue;\r\nbegin\r\n  if (FMembers.Count = 0) and  Assigned(jo) and (length(TJSObject.keys(jo)) > 0) then\r\n  begin\r\n    l := length(TJSObject.keys(jo));\r\n    if I < l then\r\n    begin\r\n      jv := jo[TJSObject.keys(jo)[I]];\r\n      v := JSONValueFromJS(jv);\r\n      s := TJSObject.keys(jo)[I];\r\n      Result := TJSONPair.Create(s,v);\r\n      Exit;\r\n    end;\r\n  end;\r\n\r\n  if (I >= 0) and (I < FMembers.Count) then\r\n    Result := TJSONPair(FMembers[I])\r\n  else\r\n    Result := nil;\r\nend;\r\n\r\nfunction TJSONObject.GetValue(const Name: string): TJSONValue;\r\nvar\r\n  jp: TJSONPair;\r\nbegin\r\n  Result := nil;\r\n\r\n  jp := Get(Name);\r\n\r\n  if Assigned(jp) then\r\n  begin\r\n    Result := jp.JsonValue;\r\n    Result.fjo := jp.fjo;\r\n  end;\r\nend;\r\n\r\nclass function TJSONValue.JSONValueFromJS(const AJSValue: JSValue): TJSONValue;\r\nvar\r\n  d: double;\r\nbegin\r\n  Result := nil;\r\n\r\n  if isArray(AJSValue) then\r\n  begin\r\n    Result := TJSONArray.Create;\r\n    (Result as TJSONArray).ja := TJSArray(AJSValue);\r\n  end\r\n  else\r\n  if isObject(AJSValue) then\r\n  begin\r\n    Result := TJSONObject.Create;\r\n    (Result as TJSONObject).jo := TJSObject(AJSValue);\r\n  end\r\n  else\r\n  if isString(AJSValue) then\r\n  begin\r\n    Result := TJSONString.Create;\r\n    (Result as TJSONString).Value := string(AJSValue);\r\n  end\r\n  else\r\n  if isNumber(AJSValue) then\r\n  begin\r\n    Result := TJSONNumber.Create;\r\n    (Result as TJSONNumber).Value := string(AJSValue);\r\n    d := double(AJSValue);\r\n    (Result as TJSONNumber).AsDouble := d;\r\n    if Frac(d) = 0 then\r\n      (Result as TJSONNumber).AsInt := integer(AJSValue);\r\n  end\r\n  else\r\n  if isNull(AJSValue) then\r\n    Result := TJSONNull.Create\r\n  else\r\n  if isBoolean(AJSValue) then\r\n  begin\r\n    if toBoolean(AJSValue) then\r\n      Result := TJSONTrue.Create\r\n    else\r\n      Result := TJSONFalse.Create;\r\n  end;\r\n\r\n  if not Assigned(Result) then\r\n    Result := TJSONNull.Create;\r\n\r\n  Result.jv := AJSValue;\r\nend;\r\n\r\nclass function TJSONObject.ParseJSONValue(const data: string): TJSONValue;\r\nvar\r\n  O: TJSObject;\r\nbegin\r\n  O := TJSJSON.parseObject(data);\r\n  Result := JSONValueFromJS(O);\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TJSONObject.SetValue(const Name: string; AValue: string);\r\nvar\r\n  O: TJSObject;\r\nbegin\r\n  O := JSObject;\r\n  asm\r\n    O[Name] = AValue;\r\n  end;\r\nend;\r\n\r\nprocedure TJSONObject.SetValue(const Name: string; AValue: integer);\r\nvar\r\n  O: TJSObject;\r\nbegin\r\n  O := JSObject;\r\n  asm\r\n    O[Name] = AValue;\r\n  end;\r\nend;\r\n\r\nprocedure TJSONObject.SetValue(const Name: string; AValue: double);\r\nvar\r\n  O: TJSObject;\r\nbegin\r\n  O := JSObject;\r\n  asm\r\n    O[Name] = AValue;\r\n  end;\r\nend;\r\n\r\nprocedure TJSONObject.SetValues(const Name: string; const Value: TJSONValue);\r\nvar\r\n  O: TJSObject;\r\nbegin\r\n  O := JSObject;\r\n  asm\r\n    O[Name] = Value;\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nfunction TJSONObject.ToJSON: string;\r\nvar\r\n  s: string;\r\n  Size: Integer;\r\n  I: Integer;\r\n  jp: TJSONPair;\r\nbegin\r\n  if Assigned(jo) then\r\n    Size := Count\r\n  else\r\n    Size := FMembers.Count;\r\n\r\n  s := '{';\r\n  if Size > 0 then\r\n  begin\r\n    if Assigned(jo) then\r\n    begin\r\n      jp := TJSONPair(Get(0));\r\n      if Assigned(jp) then\r\n        s := s + jp.ToString\r\n      else\r\n        s := s + '\"' + TJSObject.keys(jo)[0] +'\":null';\r\n    end\r\n    else\r\n      s := s + TJSONPair(FMembers[0]).ToString;\r\n  end;\r\n\r\n  for I := 1 to Size - 1 do\r\n  begin\r\n    if Assigned(jo) then\r\n    begin\r\n      jp := TJSONPair(Get(I));\r\n      if Assigned(jp) then\r\n        s := s + ',' + jp.ToString\r\n      else\r\n        s := s + ',' + '\"' + TJSObject.keys(jo)[I] +'\":null';\r\n    end\r\n    else\r\n      s := s + ',' + TJSONPair(FMembers[I]).ToString;\r\n  end;\r\n  s := s + '}';\r\n  Result := s;\r\nend;\r\n\r\nfunction TJSONObject.ToString: string;\r\nbegin\r\n  Result := ToJSON;\r\nend;\r\n\r\n{ TJSONPair }\r\n\r\nconstructor TJSONPair.Create;\r\nbegin\r\n  inherited;\r\n  fjs := TJSONString.Create;\r\nend;\r\n\r\nconstructor TJSONPair.Create(const Str: string; const Value: TJSONValue);\r\nbegin\r\n  inherited Create;\r\n  JsonString := TJSONString.Create(Str);\r\n  JsonValue := Value;\r\nend;\r\n\r\nconstructor TJSONPair.Create(const Str, Value: string);\r\nbegin\r\n  inherited Create;\r\n  JsonString := TJSONString.Create(Str);\r\n  JsonValue := TJSONString.Create(Value);\r\nend;\r\n\r\ndestructor TJSONPair.Destroy;\r\nbegin\r\n  fjs.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TJSONPair.ToString: string;\r\nbegin\r\n  if (JsonValue is TJSONObject) then\r\n    Result := '\"' + JsonString.GetStrValue + '\":' + (JsonValue as TJSONObject).ToJSON\r\n  else\r\n  begin\r\n    if (JsonString <> nil) and (JsonValue <> nil) then\r\n      Result := '\"' + JsonString.GetStrValue + '\":' + JsonValue.ToString\r\n    else\r\n      Result := '';\r\n  end;\r\nend;\r\n\r\n{ TJSONAncestor }\r\n\r\nfunction TJSONAncestor.GetStrValue: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nprocedure TJSONAncestor.SetStrValue(const Value: string);\r\nbegin\r\n  //\r\nend;\r\n\r\n{ TJSONString }\r\n\r\nconstructor TJSONString.Create(AString: string);\r\nbegin\r\n  inherited Create;\r\n  jv := AString;\r\n  FValue := AString;\r\nend;\r\n\r\nfunction TJSONString.GetStrValue: string;\r\nbegin\r\n  Result := FValue;\r\nend;\r\n\r\nprocedure TJSONString.SetStrValue(const Value: string);\r\nbegin\r\n  FValue := Value;\r\n  jv := Value;\r\n\r\n  if Assigned(fjo) then\r\n  begin\r\n    asm\r\n      var s = Object.keys(this.fjo)[0];\r\n      this.fjo[s] = Value;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TJSONNumber }\r\n\r\nconstructor TJSONNumber.Create(ANumber: integer);\r\nbegin\r\n  inherited Create;\r\n  jv := ANumber;\r\n  FInt := ANumber;\r\n  FInt64 := ANumber;\r\n  FDouble := ANumber;\r\nend;\r\n\r\nconstructor TJSONNumber.Create(ANumber: Int64);\r\nbegin\r\n  inherited Create;\r\n  jv := ANumber;\r\n  FInt := Integer(ANumber);\r\n  FInt64 := ANumber;\r\n  FDouble := ANumber;\r\nend;\r\n\r\nconstructor TJSONNumber.Create(ANumber: double);\r\nbegin\r\n  inherited Create;\r\n  jv := ANumber;\r\n  FInt := Trunc(ANumber);\r\n  FInt64 := Trunc(ANumber);\r\n  FDouble := ANumber;\r\nend;\r\n\r\nfunction TJSONNumber.GetStrValue: string;\r\nbegin\r\n  Result := FloatToStr(FDouble, TFormatSettings.Invariant);\r\nend;\r\n\r\nprocedure TJSONNumber.SetStrValue(const Value: string);\r\nbegin\r\n  FDouble := StrToFloat(Value, TFormatSettings.Invariant);\r\n  if Frac(FDouble) = 0 then\r\n  begin\r\n    if not TryStrToInt64(Value, FInt64, TFormatSettings.Invariant) then\r\n      FInt64 := 0;\r\n    FInt := FInt64;\r\n    jv := FInt64;\r\n  end\r\n  else\r\n    jv := FDouble;\r\nend;\r\n\r\n{ TJSONTrue }\r\n\r\nconstructor TJSONTrue.Create;\r\nbegin\r\n  inherited Create(True);\r\nend;\r\n\r\nfunction TJSONTrue.GetStrValue: string;\r\nbegin\r\n  Result := 'true';\r\nend;\r\n\r\n\r\nfunction TJSONTrue.ToString: string;\r\nbegin\r\n  Result := GetStrValue;\r\nend;\r\n\r\n{ TJSONBool }\r\n\r\nconstructor TJSONBool.Create(const AValue: Boolean);\r\nbegin\r\n  inherited Create(AValue);\r\n  FBool := AValue;\r\nend;\r\n\r\nprocedure TJSONBool.SetStrValue(const Value: string);\r\nvar\r\n  s: string;\r\nbegin\r\n  s := Uppercase(Value);\r\n  FBool := (s = 'TRUE');\r\nend;\r\n\r\n\r\n{ TJSONFalse }\r\n\r\nconstructor TJSONFalse.Create;\r\nbegin\r\n  inherited Create(False);\r\nend;\r\n\r\nfunction TJSONFalse.GetStrValue: string;\r\nbegin\r\n  Result := 'false';\r\nend;\r\n\r\nfunction TJSONFalse.ToString: string;\r\nbegin\r\n  Result := GetStrValue;\r\nend;\r\n\r\n{ TJSONNull }\r\n\r\nfunction TJSONNull.GetStrValue: string;\r\nbegin\r\n  Result := 'null';\r\nend;\r\n\r\n\r\nfunction TJSONNull.ToString: string;\r\nbegin\r\n  Result := GetStrValue;\r\nend;\r\n\r\n{ TJSONValue }\r\n\r\nconstructor TJSONValue.Create(AJSValue: JSValue);\r\nbegin\r\n  inherited Create;\r\n  jv := AJSValue;\r\nend;\r\n\r\nfunction TJSONValue.ToString: string;\r\nbegin\r\n  Result := TJSJSON.stringify(jv);\r\nend;\r\n\r\nfunction TJSONValue.GetStrValue: string;\r\nbegin\r\n  Result := string(jv);\r\nend;\r\n\r\n\r\nfunction TJSONValue.GetValue<T>(const APath: string = ''): T;\r\nbegin\r\n  Result := nil;\r\nend;\r\n\r\nfunction TJSONValue.GetJSValue: JSValue;\r\nbegin\r\n  Result := jv;\r\nend;\r\n\r\n\r\n{ TJSONArrayEnumerator }\r\n\r\nconstructor TJSONArrayEnumerator.Create(AJSONArray: TJSONArray);\r\nbegin\r\n  inherited Create;\r\n  FJSONArray := AJSONArray;\r\n  FPosition := -1;\r\nend;\r\n\r\nfunction TJSONArrayEnumerator.GetCurrent: TJSONValue;\r\nbegin\r\n  Result := FJSONArray[FPosition];\r\nend;\r\n\r\nfunction TJSONArrayEnumerator.MoveNext: Boolean;\r\nbegin\r\n  Inc(FPosition);\r\n  Result := FPosition < FJSONArray.Count;\r\nend;\r\n\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.Storage;\r\n\r\n{$DEFINE NOPP}\r\n\r\ninterface\r\n\r\nuses\r\n  Web, Classes;\r\n\r\ntype\r\n  TStorageChangeEvent = procedure(Sender: TObject; AKey: string; AOldValue: string; ANewValue: string; AURL: string) of object;\r\n\r\n  TLocalStorage = class(TComponent)\r\n  private\r\n    FChangePtr: pointer;\r\n    FOnChange: TStorageChangeEvent;\r\n  protected\r\n    procedure SetValues(AKey, AValue: string);\r\n    function GetValues(AKey: string): string;\r\n    function GetKey(AIndex: integer): string;\r\n    function GetCount: integer;\r\n    procedure StorageChanged(AEvent:TJSStorageEvent);\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    class procedure Clear;\r\n    property Keys[AIndex: integer]: string read GetKey;\r\n    property Count: integer read GetCount;\r\n    property Values[Key: string]: string read GetValues write SetValues;\r\n    class procedure SetValue(AKey, AValue: string);\r\n    class function GetValue(AKey: string): string;\r\n    class procedure RemoveKey(AKey: string);\r\n  published\r\n    property OnChange: TStorageChangeEvent read FOnChange write FOnChange;\r\n  end;\r\n\r\n  TWebLocalStorage = class(TLocalStorage);\r\n\r\n  TSessionStorage = class(TComponent)\r\n  private\r\n    FChangePtr: pointer;\r\n    FOnChange: TStorageChangeEvent;\r\n  protected\r\n    procedure SetValues(AKey, AValue: string);\r\n    function GetValues(AKey: string): string;\r\n    function GetKey(AIndex: integer): string;\r\n    function GetCount: integer;\r\n    procedure StorageChanged(AEvent:TJSStorageEvent);\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    class procedure Clear;\r\n    property Keys[AIndex: integer]: string read GetKey;\r\n    property Count: integer read GetCount;\r\n    property Values[key: string]: string read GetValues write SetValues;\r\n    class procedure SetValue(AKey, AValue: string);\r\n    class function GetValue(AKey: string): string;\r\n    class procedure RemoveKey(AKey: string);\r\n  published\r\n    property OnChange: TStorageChangeEvent read FOnChange write FOnChange;\r\n  end;\r\n\r\n  TWebSessionStorage = class(TSessionStorage);\r\n\r\nimplementation\r\n\r\nuses\r\n  SysUtils;\r\n\r\n{ TLocalStorage }\r\n\r\nclass procedure TLocalStorage.SetValue(AKey, AValue: string);\r\nbegin\r\n  window.localStorage.setItem(AKey, AValue);\r\nend;\r\n\r\nprocedure TLocalStorage.SetValues(AKey, AValue: string);\r\nbegin\r\n  window.localStorage.setItem(AKey, AValue);\r\nend;\r\n\r\nprocedure TLocalStorage.StorageChanged(AEvent: TJSStorageEvent);\r\nvar\r\n  s:string;\r\nbegin\r\n  s := AEvent.storageArea+' ';\r\n  if Assigned(OnChange) and (pos('OBJECT', UpperCase(s)) > 0) then\r\n    OnChange(Self, AEvent.key, AEvent.oldValue, AEvent.newValue, AEVent.url);\r\nend;\r\n\r\nclass function TLocalStorage.GetValue(AKey: string): string;\r\nvar\r\n  s: string;\r\nbegin\r\n  s := window.localStorage.getItem(AKey);\r\n  if not Assigned(s) then\r\n    Result := ''\r\n  else\r\n    Result := s;\r\nend;\r\n\r\nfunction TLocalStorage.GetValues(AKey: string): string;\r\nvar\r\n  s: string;\r\nbegin\r\n  s := window.localStorage.getItem(AKey);\r\n  if not Assigned(s) then\r\n    Result := ''\r\n  else\r\n    Result := s;\r\nend;\r\n\r\nclass procedure TLocalStorage.RemoveKey(AKey: string);\r\nbegin\r\n  window.localStorage.removeItem(AKey);\r\nend;\r\n\r\nfunction TLocalStorage.GetKey(AIndex: integer): string;\r\nbegin\r\n  Result := window.localStorage.Keys[AIndex];\r\nend;\r\n\r\nclass procedure TLocalStorage.Clear;\r\nbegin\r\n  window.sessionStorage.clear;\r\nend;\r\n\r\nconstructor TLocalStorage.Create(AOwner: TComponent);\r\nbegin\r\n  FChangePtr := @StorageChanged;\r\n  inherited;\r\n\r\n  window.addEventListener('storage', FChangePtr);\r\nend;\r\n\r\ndestructor TLocalStorage.Destroy;\r\nbegin\r\n  window.removeEventListener('storage',FChangePtr);\r\n  inherited;\r\nend;\r\n\r\nfunction TLocalStorage.GetCount: integer;\r\nbegin\r\n  Result := window.localStorage.length;\r\nend;\r\n\r\n{ TSessionStorage }\r\n\r\nclass procedure TSessionStorage.SetValue(AKey, AValue: string);\r\nbegin\r\n  window.sessionStorage.setItem(AKey, AValue);\r\nend;\r\n\r\nprocedure TSessionStorage.SetValues(AKey, AValue: string);\r\nbegin\r\n  window.sessionStorage.setItem(AKey, AValue);\r\nend;\r\n\r\nprocedure TSessionStorage.StorageChanged(AEvent: TJSStorageEvent);\r\nvar\r\n  s:string;\r\nbegin\r\n  s := AEvent.storageArea+' ';\r\n  if Assigned(OnChange) and (pos('OBJECT', Uppercase(s)) = 0) then\r\n    OnChange(Self, AEvent.key, AEvent.oldValue, AEvent.newValue, AEVent.url);\r\nend;\r\n\r\nclass function TSessionStorage.GetValue(AKey: string): string;\r\nvar\r\n  s: string;\r\nbegin\r\n  s := window.sessionStorage.getItem(AKey);\r\n  if not Assigned(s) then\r\n    Result := ''\r\n  else\r\n    Result := s;\r\nend;\r\n\r\nfunction TSessionStorage.GetValues(AKey: string): string;\r\nvar\r\n  s: string;\r\nbegin\r\n  s := window.sessionStorage.getItem(AKey);\r\n  if not Assigned(s) then\r\n    Result := ''\r\n  else\r\n    Result := s;\r\nend;\r\n\r\nclass procedure TSessionStorage.RemoveKey(AKey: string);\r\nbegin\r\n  window.sessionStorage.removeItem(AKey);\r\nend;\r\n\r\n\r\nfunction TSessionStorage.GetKey(AIndex: integer): string;\r\nbegin\r\n  Result := window.sessionStorage.Keys[AIndex];\r\nend;\r\n\r\nclass procedure TSessionStorage.Clear;\r\nbegin\r\n  window.sessionStorage.clear;\r\nend;\r\n\r\nconstructor TSessionStorage.Create(AOwner: TComponent);\r\nbegin\r\n  FChangePtr := @StorageChanged;\r\n\r\n  inherited;\r\n\r\n  window.addEventListener('storage', FChangePtr);\r\nend;\r\n\r\ndestructor TSessionStorage.Destroy;\r\nbegin\r\n  window.removeEventListener('storage', FChangePtr);\r\n  inherited;\r\nend;\r\n\r\nfunction TSessionStorage.GetCount: integer;\r\nbegin\r\n  Result := window.sessionStorage.length;\r\nend;\r\n\r\n\r\n\r\nend.","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.REST;\r\n\r\n{$DEFINE NOPP}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, Web, JS, SysUtils, WEBLib.Controls, WEBLib.JSON;\r\n\r\nconst\r\n  ContentTypeJSON = 'application/json;charset=UTF-8';\r\n  ContentTypeForm = 'application/x-www-form-urlencoded';\r\n\r\ntype\r\n  THTTPCommand = (httpGET, httpPOST, httpPUT, httpDELETE, httpHEAD, httpPATCH, httpCUSTOM);\r\n\r\n  THTTPRequestResponseType = (rtDefault, rtText, rtBlob, rtJSON, rtDocument, rtArrayBuffer);\r\n\r\n  THTTPResponseProc = reference to procedure(AResponse: string; ARequest: TJSXMLHttpRequest);\r\n  THTTPErrorProc = reference to procedure(ARequest: TJSXMLHttpRequest);\r\n\r\n  THTTPRequestHandler = reference to procedure(Event: TEventListenerEvent);\r\n\r\n  THTTPProgressEvent = procedure(Sender: TObject; Position, Total: int64) of object;\r\n\r\n  THttpRequest = class(TComponent)\r\n  private\r\n    FURL: string;\r\n    FOnResponse: THTTPResponseEvent;\r\n    FOnAbort: THTTPAbortEvent;\r\n    FHeaders: TStringList;\r\n    FCommand: THTTPCommand;\r\n    FCustomCommand: string;\r\n    FPostData: string;\r\n    FOnRequestResponse: THTTPRequestResponseEvent;\r\n    FPassword: string;\r\n    FUser: string;\r\n    FTimeout: integer;\r\n    FOnTimeout: TNotifyEvent;\r\n    FOnError: THTTPErrorEvent;\r\n    FResponse: THttpResponseProc;\r\n    FErrorProc: THttpErrorProc;\r\n    FTimeOutProc: THttpErrorProc;\r\n    FResponseType: THTTPRequestResponseType;\r\n    FOnProgress: THTTPProgressEvent;\r\n  protected\r\n    function HandleResponse(Event: TEventListenerEvent): boolean;\r\n    function HandleAbort(Event: TEventListenerEvent): boolean;\r\n    function HandleTimeout(Event: TEventListenerEvent): boolean;\r\n    function HandleError(Event: TEventListenerEvent): boolean;\r\n    function HandleProgress(Event: TEventListenerEvent): boolean;\r\n    function HandleReadyStateChange(Event: TEventListenerEvent): boolean;\r\n    procedure SetHeaders(const AValue: TStringList);\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure Loaded; override;\r\n    class function GetResponseType(AResponseType: THTTPRequestResponseType): string;\r\n    procedure ExecuteSizeRequest(AResponse: THTTPResponseProc; AError: THTTPErrorProc; ATimeOut: THTTPErrorProc);\r\n    procedure Execute(AResponse: THTTPResponseProc = nil); overload;\r\n    procedure Execute(AResponse: THTTPResponseProc; AError: THTTPErrorProc); overload;\r\n    procedure Execute(AResponse: THTTPResponseProc; AError: THTTPErrorProc; ATimeOut: THTTPErrorProc); overload;\r\n    [async]\r\n    function GetSize: TJSPromise;\r\n    [async]\r\n    function Perform: TJSPromise;\r\n  published\r\n    property Command: THTTPCommand read FCommand write FCommand;\r\n    property CustomCommand: string read FCustomCommand write FCustomCommand;\r\n    property Headers: TStringList read FHeaders write SetHeaders;\r\n    property Password: string read FPassword write FPassword;\r\n    property PostData: string read FPostData write FPostData;\r\n    property ResponseType: THTTPRequestResponseType read FResponseType write FResponseType default rtDefault;\r\n    property Timeout: integer read FTimeout write FTimeout default 0;\r\n    property URL: string read FURL write FURL;\r\n    property User: string read FUser write FUser;\r\n    property OnError: THTTPErrorEvent read FOnError write FOnError;\r\n    property OnAbort: THTTPAbortEvent read FOnAbort write FOnAbort;\r\n    property OnProgress: THTTPProgressEvent read FOnProgress write FOnProgress;\r\n    property OnRequestResponse: THTTPRequestResponseEvent read FOnRequestResponse write FOnRequestResponse;\r\n    property OnResponse: THTTPResponseEvent read FOnResponse write FOnResponse;\r\n    property OnTimeout: TNotifyEvent read FOnTimeout write FOnTimeout;\r\n  end;\r\n\r\n  TWebHTTPRequest = class(THTTPRequest);\r\n\r\n  THttpResponse = procedure(Sender: TObject; AResponse: string) of object;\r\n  TInternalHttpResponse = procedure(Sender: TObject; AResponse: string; var Handled: boolean) of object;\r\n\r\n  TPersistTokens = class(TPersistent)\r\n  private\r\n    FKey: string;\r\n    FEnabled: boolean;\r\n  public\r\n    constructor Create; reintroduce;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property Key: string read FKey write FKey;\r\n    property Enabled: boolean read FEnabled write FEnabled default false;\r\n  end;\r\n\r\n  TRESTApp = class(TPersistent)\r\n  private\r\n    FKey: string;\r\n    FCallbackURL: string;\r\n    FSecret: string;\r\n    FAuthURL: string;\r\n    FClientID: string;\r\n  public\r\n    function GetKey: string;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property AuthURL: string read FAuthURL write FAuthURL;\r\n    property ClientID: string read FClientID write FClientID;\r\n    property Key: string read FKey write FKey;\r\n    property CallbackURL: string read FCallbackURL write FCallbackURL;\r\n    property Secret: string read FSecret write FSecret;\r\n  end;\r\n\r\n  TAuthLocale = (lcDefault, lcEnglish, lcDutch, lcGerman, lcFrench, lcSpanish, lcItalian,\r\n     lcPortuguese, lcGreek, lcDanish, lcRussian, lcRomanian, lcSwedish, lcFinnish, lcTurkish,\r\n     lcJapanese);\r\n\r\n  TCoreCloudHeader = record\r\n    header: String;\r\n    value: String;\r\n  end;\r\n\r\n  TCoreCloudHeaders = array of TCoreCloudHeader;\r\n\r\n  TRESTClient = class(TComponent)\r\n  private\r\n    FAPIBase: string;\r\n    FAccessToken: string;\r\n    FRefreshToken: string;\r\n    FAccessExpiry: TDateTime;\r\n    FRefreshExpiry: TDateTime;\r\n    FOnAccessToken: TNotifyEvent;\r\n    FOnAuthFailed: TNotifyEvent;\r\n    FEventRegistered: boolean;\r\n    FOnResponse: THttpResponse;\r\n    FPersistTokens: TPersistTokens;\r\n    FOnHttpResponse: TInternalHttpResponse;\r\n    FApp: TRESTApp;\r\n    FScopes: TStrings;\r\n    FLocale: TAuthLocale;\r\n    FOnRequestResponse: THTTPRequestResponseEvent;\r\n    FOnError: THttpErrorEvent;\r\n    FResponseType: THTTPRequestResponseType;\r\n    FLoginWidth: integer;\r\n    FLoginHeight: integer;\r\n    FHandleAccessTokenPtr: pointer;\r\n    FHandleAuthClosePtr: pointer;\r\n    FOpenResolver: TJSPromiseResolver;\r\n    procedure SetPersistTokens(const Value: TPersistTokens);\r\n    procedure SetApp(const Value: TRESTApp);\r\n    procedure SetScopes(const Value: TStrings);\r\n    procedure AuthWinClosed;\r\n  protected\r\n    class function InstallCallback: boolean;\r\n    procedure RemoveOAuthHandler; virtual;\r\n    procedure DoAuthFailed; virtual;\r\n    procedure DoAuthSuccess; virtual;\r\n    function HandleAccessToken(const s: TJSObject): boolean; virtual;\r\n    function HandleResponse(Event: TEventListenerEvent): boolean;\r\n    function GetAuthURL: string; virtual;\r\n    function ScopeParamText(Delimiter: string; Encode: boolean = false): string;\r\n    function GetLocaleParam: string; virtual;\r\n    function GetJSONValue(o: TJSONObject; ID: string): TJSONValue;\r\n    function GetJSONObject(o: TJSONObject; ID: string): TJSONValue;\r\n    property APIBase: string read FAPIBase write FAPIBase;\r\n    property Locale: TAuthLocale read FLocale write FLocale;\r\n    property Token_Access: string read FAccessToken;\r\n    function TMSUTF8Encode(s: string): string;\r\n    procedure HttpRequestEvent(Command, URL: string; Data: string = ''; ContentType: string = ''; headers: TCoreCloudHeaders = nil; AResponse: THTTPRequestHandler = nil; AError: THTTPRequestHandler = nil; ATimeOut: THTTPRequestHandler = nil);\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure HttpsCommand(Command, URL, Data, ContentType: string; headers: TCoreCloudHeaders); virtual;\r\n    procedure HttpsDelete(URL: string); overload; virtual;\r\n    procedure HttpsDelete(URL: string; headers: TCoreCloudHeaders); overload; virtual;\r\n    procedure HttpsGet(URL: string); overload; virtual;\r\n    procedure HttpsGet(URL: string; headers: TCoreCloudHeaders); overload; virtual;\r\n    procedure HttpsPost(URL: string; Data: string); overload; virtual;\r\n    procedure HttpsPost(URL: string; ContentType, Data: string); overload; virtual;\r\n    procedure HttpsPost(URL: string; ContentType, Data: string; headers: TCoreCloudHeaders); overload; virtual;\r\n    procedure HttpsPost(URL: string; headers: TCoreCloudHeaders; Data: string); overload; virtual;\r\n    procedure HttpsUpdate(URL: string; headers: TCoreCloudHeaders; Data: string); virtual;\r\n    procedure HttpsPut(URL: string; ContentType, Data: string); virtual;\r\n\r\n    function HttpRequest(Command, URL: string; Data: string = ''; ContentType: string = ''; headers: TCoreCloudHeaders = nil): TJSPromise;\r\n\r\n    property AccessToken: string read FAccessToken write FAccessToken;\r\n    property RefreshToken: string read FRefreshToken write FRefreshToken;\r\n    property AccessExpiry: TDateTime read FAccessExpiry write FAccessExpiry;\r\n    property RefreshExpiry: TDateTime read FRefreshExpiry write FRefreshExpiry;\r\n    class function URLEncode(URI: string): string;\r\n    class function JSONEscape(s: string): string;\r\n    class function IsoToDateTime(const s: string): TDateTime; overload;\r\n    class function IsoToDateTime(const s: string; IsUTC: Boolean): TDateTime; overload;\r\n    class function IsoToDate(const s: string): TDate;\r\n    class function IsoToTime(const s: string): TTime;\r\n    class function IsIsoDateTime(const s: string): boolean;\r\n    class function GetUTCDateTime: TDateTime;\r\n    class function DateTimeToWL(dt: TDateTime): string;\r\n    class function DateToWL(dt: TDate): string;\r\n    class function TimeToWL(dt: TTime): string;\r\n    class function DateTimeToDaylightSavings(dt: TDateTime): TDateTime;\r\n    class function GetJSONProp(O: TJSONOBject; ID: string): string; overload;\r\n    class function GetJSONInt(O: TJSONOBject; ID: string): integer; overload;\r\n    procedure DoAuth; virtual;\r\n    procedure Connect;\r\n    function Open: TJSPromise;\r\n    function Authenticate: TJSPromise; {$IFDEF PAS2JS} async; {$ENDIF}\r\n    procedure ReadTokens; virtual;\r\n    procedure WriteTokens; virtual;\r\n\r\n    procedure TestTokens; virtual; {$IFDEF PAS2JS} async; {$ENDIF}\r\n    procedure ClearTokens; virtual;\r\n    property OnHttpResponse: TInternalHttpResponse read FOnHttpResponse write FOnHttpResponse;\r\n  published\r\n    property App: TRESTApp read FApp write SetApp;\r\n    property LoginHeight: integer read FLoginHeight write FLoginHeight default 600;\r\n    property LoginWidth: integer read FLoginWidth write FLoginWidth default 800;\r\n    property PersistTokens: TPersistTokens read FPersistTokens write SetPersistTokens;\r\n    property ResponseType: THTTPRequestResponseType read FResponseType write FResponseType default rtDefault;\r\n    property Scopes: TStrings read FScopes write SetScopes;\r\n    property OnAccessToken: TNotifyEvent read FOnAccessToken write FOnAccessToken;\r\n    property OnAuthFailed: TNotifyEvent read FOnAuthFailed write FOnAuthFailed;\r\n    property OnRequestResponse: THTTPRequestResponseEvent read FOnRequestResponse write FOnRequestResponse;\r\n    property OnResponse: THttpResponse read FOnResponse write FOnResponse;\r\n    property OnError: THttpErrorEvent read FOnError write FOnError;\r\n  end;\r\n\r\n  TWebRESTClient = class(TRESTClient);\r\n\r\n  TJSValue = JSValue;\r\n\r\nprocedure AddHeader(var AHeaders: TCoreCloudHeaders; Header: string; Value: string);\r\nfunction GetArraySize(ja: TJSONArray): integer;\r\nfunction GetArrayItem(ja: TJSONArray; Index: integer): TJSONObject;\r\nfunction HTTPCommand(ACommand: THTTPCommand; ACustomCommand: string): string;\r\n\r\nimplementation\r\n\r\nuses\r\n  WEBLib.Storage, WEBLib.Utils;\r\n\r\nfunction HTTPCommand(ACommand: THTTPCommand; ACustomCommand: string): string;\r\nvar\r\n  cmd: string;\r\nbegin\r\n  case ACommand of\r\n    httpGET: cmd := 'GET';\r\n    httpPOST: cmd := 'POST';\r\n    httpPUT: cmd := 'PUT';\r\n    httpDELETE: cmd := 'DELETE';\r\n    httpHEAD: cmd := 'HEAD';\r\n    httpPATCH: cmd := 'PATCH';\r\n    httpCUSTOM: cmd := ACustomCommand;\r\n  end;\r\n  Result := cmd;\r\nend;\r\n\r\nfunction GetArraySize(ja: TJSONArray): integer;\r\nbegin\r\n  Result := ja.Count;\r\nend;\r\n\r\nfunction GetArrayItem(ja: TJSONArray; Index: integer): TJSONObject;\r\nbegin\r\n  Result := TJSONObject(ja.Items[Index]);\r\nend;\r\n\r\n\r\nprocedure AddHeader(var AHeaders: TCoreCloudHeaders; Header: String; Value: String);\r\nbegin\r\n  SetLength(AHeaders, Length(AHeaders) + 1);\r\n  AHeaders[Length(AHeaders) - 1].header := Header;\r\n  AHeaders[Length(AHeaders) - 1].value := Value;\r\nend;\r\n\r\n{ THttpRequest }\r\n\r\nconstructor THttpRequest.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FHeaders := TStringList.Create;\r\n  FResponseType := rtDefault;\r\n  FCommand := httpGET;\r\n  FTimeout := 0;\r\n  FResponse := nil;\r\nend;\r\n\r\ndestructor THttpRequest.Destroy;\r\nbegin\r\n  FHeaders.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure THttpRequest.Loaded;\r\nvar\r\n  i,j: integer;\r\n  s: string;\r\n  flg: boolean;\r\nbegin\r\n  inherited;\r\n  for i := 0 to FHeaders.Count - 1 do\r\n  begin\r\n    s := FHeaders[i];\r\n    flg := false;\r\n    for j := 1 to length(s) do\r\n    begin\r\n      if (s[j] = ':') and not flg then\r\n      begin\r\n        s[j] := '=';\r\n        flg := true;\r\n      end\r\n      else\r\n      if (s[j] = '=') and flg then\r\n      begin\r\n        s[j] := ':';\r\n      end;\r\n    end;\r\n    FHeaders[i] := s;\r\n  end;\r\nend;\r\n\r\nfunction THttpRequest.Perform: TJSPromise;\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n    begin\r\n      Execute(\r\n        procedure(AResponse: string; ARequest: TJSXMLHttpRequest)\r\n        begin\r\n          ASuccess(ARequest);\r\n        end,\r\n        procedure(ARequest: TJSXMLHttpRequest)\r\n        begin\r\n          AFailed(ARequest);\r\n        end,\r\n        procedure(ARequest: TJSXMLHttpRequest)\r\n        begin\r\n          AFailed(ARequest);\r\n        end);\r\n    end);\r\nend;\r\n\r\nprocedure THttpRequest.Execute(AResponse: THttpResponseProc = nil);\r\nbegin\r\n  Execute(AResponse, nil, nil);\r\nend;\r\n\r\nprocedure THttpRequest.Execute(AResponse: THTTPResponseProc; AError: THTTPErrorProc);\r\nbegin\r\n  Execute(AResponse, AError, nil);\r\nend;\r\n\r\n\r\nprocedure THttpRequest.Execute(AResponse: THTTPResponseProc; AError: THTTPErrorProc; ATimeOut: THTTPErrorProc);\r\nvar\r\n  i: integer;\r\n  cmd: string;\r\n  req: TJSXMLHttpRequest;\r\n  headname,headvalue: string;\r\nbegin\r\n  FResponse := AResponse;\r\n  FErrorProc := AError;\r\n  FTimeOutProc := ATimeOut;\r\n\r\n  req := TJSXMLHttpRequest.new;\r\n  req.addEventListener('load', @HandleResponse);\r\n  req.addEventListener('abort',@HandleAbort);\r\n  req.addEventListener('timeout',@HandleTimeout);\r\n  req.addEventListener('error',@HandleError);\r\n  req.addEventListener('progress',@HandleProgress);\r\n  req.responseType := THTTPRequest.GetResponseType(FResponseType);\r\n\r\n  cmd := HTTPCommand(Command, CustomCommand);\r\n\r\n  if FTimeout <> 0 then\r\n    req.timeout := FTimeout;\r\n\r\n  if (FUser <> '') then\r\n  begin\r\n    req.open(cmd, FURL, true);\r\n    req.setRequestHeader('X-Requested-With', 'XMLHttpRequest');\r\n  end\r\n  else\r\n    req.open(cmd, FURL);\r\n\r\n  for i := 0 to FHeaders.Count - 1 do\r\n  begin\r\n    FHeaders.GetNameValue(i, headname, headvalue);\r\n    req.setRequestHeader(headname, headvalue);\r\n  end;\r\n\r\n  if (FUser <> '') then\r\n    req.setRequestHeader('Authorization', 'Basic '+window.btoa(User+':'+Password));\r\n\r\n  if PostData <> '' then\r\n    req.send(PostData)\r\n  else\r\n    req.send;\r\nend;\r\n\r\nprocedure THttpRequest.ExecuteSizeRequest(AResponse: THTTPResponseProc; AError: THTTPErrorProc; ATimeOut: THTTPErrorProc);\r\nvar\r\n  i: integer;\r\n  req: TJSXMLHttpRequest;\r\n  headname,headvalue: string;\r\nbegin\r\n  FResponse := AResponse;\r\n  FErrorProc := AError;\r\n  FTimeOutProc := ATimeOut;\r\n\r\n  req := TJSXMLHttpRequest.new;\r\n  req.addEventListener('readystatechange', @HandleReadyStateChange);\r\n  req.addEventListener('timeout',@HandleTimeout);\r\n  req.addEventListener('error',@HandleError);\r\n\r\n  if FTimeout <> 0 then\r\n    req.timeout := FTimeout;\r\n\r\n  if (FUser <> '') then\r\n  begin\r\n    req.open('HEAD', FURL, true, FUser, FPassword);\r\n    req.setRequestHeader('X-Requested-With', 'XMLHttpRequest');\r\n  end\r\n  else\r\n    req.open('HEAD', FURL);\r\n\r\n  for i := 0 to FHeaders.Count - 1 do\r\n  begin\r\n    FHeaders.GetNameValue(i, headname, headvalue);\r\n    req.setRequestHeader(headname, headvalue);\r\n  end;\r\n\r\n  if (FUser <> '') then\r\n    req.setRequestHeader('Authorization', 'Basic '+window.btoa(User+':'+Password));\r\n\r\n  req.send;\r\nend;\r\n\r\nclass function THttpRequest.GetResponseType(AResponseType: THTTPRequestResponseType): string;\r\nbegin\r\n  Result := '';\r\n  case AResponseType of\r\n  rtText: Result := 'text';\r\n  rtBlob: Result := 'blob';\r\n  rtDocument: Result := 'document';\r\n  rtJSON: Result := 'json';\r\n  rtArrayBuffer: Result := 'arraybuffer';\r\n  end;\r\nend;\r\n\r\nfunction THttpRequest.GetSize: TJSPromise;\r\nvar\r\n  sz: int64;\r\n  e: integer;\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n    begin\r\n      ExecuteSizeRequest(\r\n        procedure(AResponse: string; ARequest: TJSXMLHttpRequest)\r\n        begin\r\n          val(AResponse, sz, e);\r\n          ASuccess(sz);\r\n        end,\r\n        procedure(ARequest: TJSXMLHttpRequest)\r\n        begin\r\n          AFailed(0);\r\n        end,\r\n        procedure(ARequest: TJSXMLHttpRequest)\r\n        begin\r\n          AFailed(ARequest);\r\n        end)\r\n    end);\r\nend;\r\n\r\nfunction THttpRequest.HandleAbort(Event: TEventListenerEvent): boolean;\r\nbegin\r\n  if Assigned(OnAbort) then\r\n    OnAbort(Self);\r\n  Result := true;\r\nend;\r\n\r\nfunction THttpRequest.HandleError(Event: TEventListenerEvent): boolean;\r\nvar\r\n  Handled: boolean;\r\n  LEventRec: TJSEventRecord;\r\n  LRequestRec: TJSXMLHttpRequestRecord;\r\nbegin\r\n  Result := true;\r\n  Handled := false;\r\n\r\n  if Assigned(FOnError) then\r\n  begin\r\n    LEventRec.event := Event;\r\n    LRequestRec.req := TJSXMLHttpRequest(Event.Target);\r\n    FOnError(Self, LRequestRec, LEventRec, Handled);\r\n  end;\r\n\r\n  if Assigned(FErrorProc) then\r\n    FErrorProc(LRequestRec.req);\r\n\r\n  if not Handled then\r\n    raise Exception.Create('HTTP request error @' + URL);\r\nend;\r\n\r\nfunction THttpRequest.HandleProgress(Event: TEventListenerEvent): boolean;\r\nvar\r\n  position, total: int64;\r\nbegin\r\n  Result := true;\r\n\r\n  asm\r\n    position = Event.loaded;\r\n    total = Event.total;\r\n  end;\r\n\r\n  if Assigned(OnProgress) then\r\n    OnProgress(Self, position, total);\r\nend;\r\n\r\nfunction THttpRequest.HandleReadyStateChange(\r\n  Event: TEventListenerEvent): boolean;\r\nvar\r\n  LRequestRec: TJSXMLHttpRequestRecord;\r\n  sz: string;\r\nbegin\r\n  Result := true;\r\n  LRequestRec.req := TJSXMLHttpRequest(Event.target);\r\n\r\n  if (LRequestRec.req.readyState = 4) then\r\n  begin\r\n    if (LRequestRec.req.status >= 200) and (LRequestRec.req.status < 300) then\r\n    begin\r\n      sz := LRequestRec.req.getResponseHeader('Content-Length');\r\n\r\n      if Assigned(FResponse) then\r\n      begin\r\n        FResponse(sz, LRequestRec.req);\r\n      end;\r\n    end\r\n    else\r\n      if Assigned(FErrorProc) then\r\n        FErrorProc(LRequestRec.req);\r\n  end;\r\nend;\r\n\r\nfunction THttpRequest.HandleResponse(Event: TEventListenerEvent): boolean;\r\nvar\r\n  s: string;\r\n  LRequestRec: TJSXMLHttpRequestRecord;\r\n\r\nbegin\r\n  LRequestRec.req := TJSXMLHttpRequest(Event.target);\r\n\r\n  s := '';\r\n  if ResponseType in [rtText, rtDefault] then\r\n  begin\r\n    asm\r\n      s = Event.target.responseText;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(OnRequestResponse) then\r\n  begin\r\n    OnRequestResponse(Self, LRequestRec, s);\r\n  end;\r\n\r\n  if Assigned(OnResponse) then\r\n    OnResponse(Self, s);\r\n\r\n  if Assigned(FResponse) then\r\n  begin\r\n    FResponse(s, LRequestRec.req);\r\n  end;\r\n\r\n  Result := true;\r\nend;\r\n\r\nfunction THttpRequest.HandleTimeout(Event: TEventListenerEvent): boolean;\r\nbegin\r\n  if Assigned(OnTimeout) then\r\n    OnTimeout(Self);\r\n\r\n  if Assigned(FTimeOutProc) then\r\n    FTimeOutProc(TJSXMLHttpRequest(Event.Target));\r\n\r\n  Result := true;\r\nend;\r\n\r\nprocedure THttpRequest.SetHeaders(const AValue: TStringList);\r\nbegin\r\n  FHeaders.Assign(AValue);\r\nend;\r\n\r\n{ TRESTClient }\r\n\r\nfunction TRESTClient.Authenticate: TJSPromise;\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n    var\r\n      ptr: pointer;\r\n\r\n      function HandleOAuthCallBack(const s: TJSObject): boolean;\r\n      var\r\n        token: string;\r\n      begin\r\n        document.removeEventListener('oauthcallback', ptr);\r\n\r\n        asm\r\n          token = s.detail.message;\r\n        end;\r\n\r\n        FAccessToken := token;\r\n        WriteTokens;\r\n        ASuccess(FAccessToken);\r\n      end;\r\n\r\n    begin\r\n      ptr := @HandleOAuthCallBack;\r\n      document.addEventListener('oauthcallback', ptr);\r\n      DoAuth;\r\n    end);\r\nend;\r\n\r\nprocedure TRESTClient.AuthWinClosed;\r\nbegin\r\n  if FEventRegistered then // only fail when auth window was not auto closed\r\n    DoAuthFailed;\r\nend;\r\n\r\nprocedure TRESTClient.ClearTokens;\r\nbegin\r\n  AccessToken := '';\r\n  WriteTokens;\r\nend;\r\n\r\nprocedure TRESTClient.Connect;\r\nbegin\r\n  if FPersistTokens.Enabled then\r\n  begin\r\n    ReadTokens;\r\n  end;\r\n\r\n  if (AccessToken <> '') then\r\n  begin\r\n    TestTokens;\r\n  end\r\n  else\r\n  begin\r\n    DoAuth;\r\n  end;\r\nend;\r\n\r\nfunction TRESTClient.Open: TJSPromise;\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n    begin\r\n      FOpenResolver := ASuccess;\r\n      Connect;\r\n    end\r\n    )\r\nend;\r\n\r\nconstructor TRESTClient.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FPersistTokens := TPersistTokens.Create;\r\n  FApp := TRESTApp.Create;\r\n  FScopes := TStringList.Create;\r\n  FLocale := lcDefault;\r\n  FResponseType := rtDefault;\r\n  FLoginWidth := 800;\r\n  FLoginHeight := 600;\r\n  FHandleAccessTokenPtr := @HandleAccessToken;\r\nend;\r\n\r\nfunction IntToZStr(i,l: Integer): string;\r\nvar\r\n  Res: string;\r\nbegin\r\n  Res := IntToStr(i);\r\n  while Length(Res)<l do\r\n    Res := '0' + Res;\r\n\r\n  Result := Res;\r\nend;\r\n\r\n\r\nclass function TRESTClient.DateTimeToDaylightSavings(dt: TDateTime): TDateTime;\r\nbegin\r\n  Result := dt;\r\nend;\r\n\r\nclass function TRESTClient.DateTimeToWL(dt: TDateTime): string;\r\nvar\r\n  da,mo,ye,ho,mi,se,ms:word;\r\n//  lTimeZone: TTimeZoneInformation;\r\nbegin\r\n//  GetTimeZoneInformation(lTimeZone);\r\n\r\n  DecodeDate(dt,ye,mo,da);\r\n  DecodeTime(dt,ho,mi,se,ms);\r\n  Result := IntToStr(ye) + '-' + IntToZStr(mo,2) + '-' + IntToZStr(da,2) + 'T' +\r\n            IntToZStr(ho,2) + ':' + IntToZStr(mi,2) + ':' + IntToZStr(se,2);\r\n\r\n//    Result := Result + '+';\r\n//  case GetTimeZoneInformation(tz) of\r\n//    TIME_ZONE_ID_STANDARD: Result := Result + IntToZStr((- lTimeZone.Bias) div 60,2) + ':00';\r\n//    TIME_ZONE_ID_DAYLIGHT: Result := Result + IntToZStr((- lTimeZone.Bias - lTimeZone.DaylightBias) div 60,2) + ':00';\r\n//  else\r\n//    Result := Result + '00:00';\r\n//  end;\r\n\r\n  Result := Result + '+00:00';\r\n\r\nend;\r\n\r\nclass function TRESTClient.DateToWL(dt: TDate): string;\r\nvar\r\n  da,mo,ye:word;\r\nbegin\r\n  DecodeDate(dt,ye,mo,da);\r\n\r\n  Result := IntToStr(ye) + '-' + IntToZStr(mo,2) + '-' + IntToZStr(da,2);\r\nend;\r\n\r\nclass function TRESTClient.TimeToWL(dt: TTime): string;\r\nvar\r\n  ho,mi,se,ms:word;\r\nbegin\r\n  DecodeTime(dt,ho,mi,se,ms);\r\n  Result := IntToZStr(ho,2) + ':' + IntToZStr(mi,2) + ':' + IntToZStr(se,2) + '.' + IntToStr(ms);\r\nend;\r\n\r\ndestructor TRESTClient.Destroy;\r\nbegin\r\n  if Assigned(FHandleAuthClosePtr) then\r\n    FHandleAuthClosePtr := nil;\r\n\r\n  FApp.Free;\r\n  FScopes.Free;\r\n  FPersistTokens.Free;\r\n  inherited;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TRESTClient.DoAuth;\r\nvar\r\n  URL: string;\r\n  param: string;\r\n\r\nbegin\r\n  if not FEventRegistered then\r\n  begin\r\n    document.addEventListener('oauthcallback', FHandleAccessTokenPtr);\r\n    FEventRegistered := true;\r\n  end;\r\n\r\n  URL := GetAuthURL;\r\n  param := 'width=' + FLoginWidth.ToString + ',height='+ FLoginHeight.ToString +',location=no,toolbar=no,menubar=no';\r\n\r\n  FHandleAuthClosePtr := @AuthWinClosed;\r\n\r\n  asm\r\n    var authwinfunc = this.FHandleAuthClosePtr;\r\n    var newwindow = window.open(URL, 'oauth', param);\r\n    var timeoutid = 0;\r\n\r\n    function onWindowClosed() {\r\n      clearTimeout(timeoutid);\r\n      authwinfunc();\r\n    }\n\r\n    function checkWindowClosed() {\r\n     if (newwindow.closed) {\r\n        onWindowClosed();\n    } else {\n        timeoutid = setTimeout(checkWindowClosed, 1000); // Check every second\n    }\n    }\r\n\r\n    checkWindowClosed()\r\n  end;\r\nend;\r\n\r\nprocedure TRESTClient.DoAuthFailed;\r\nbegin\r\n  if Assigned(OnAuthFailed) then\r\n    OnAuthFailed(Self);\r\n  if Assigned(FOpenResolver) then\r\n  begin\r\n    FOpenResolver(false);\r\n    FOpenResolver := nil;\r\n  end;\r\nend;\r\n\r\nprocedure TRESTClient.DoAuthSuccess;\r\nbegin\r\n  if Assigned(FOpenResolver) then\r\n  begin\r\n    FOpenResolver(true);\r\n    FOpenResolver := nil;\r\n  end;\r\nend;\r\n\r\n\r\n{$HINTS ON}\r\n\r\nfunction TRESTClient.GetAuthURL: string;\r\nbegin\r\n  Result := App.AuthURL;\r\nend;\r\n\r\nclass function TRESTClient.GetJSONInt(O: TJSONOBject; ID: string): integer;\r\nvar\r\n  jv: JSValue;\r\nbegin\r\n\r\n  jv := o.JSObject.Properties[ID];\r\n\r\n  if isNumber(jv) then\r\n    Result := integer(jv);\r\nend;\r\n\r\n{$HINTS OFF}\r\nfunction TRESTClient.GetJSONObject(o: TJSONObject; ID: string): TJSONValue;\r\nvar\r\n  ro: TJSObject;\r\n  jv: JSValue;\r\nbegin\r\n  jv := o.JSObject.Properties[ID];\r\n\r\n  asm\r\n    ro = jv;\r\n  end;\r\n\r\n  if isArray(ro) then\r\n  begin\r\n    Result := TJSONArray.Create(TJSArray(ro));\r\n    //(Result as TJSONArray).ja := ;\r\n  end\r\n  else\r\n  begin\r\n    Result := TJSONObject.Create(ro);\r\n    //Result.jo := ro;\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nclass function TRESTClient.GetJSONProp(O: TJSONOBject; ID: string): string;\r\nbegin\r\n  Result := O.GetJSONValue(ID);\r\nend;\r\n\r\nfunction TRESTClient.GetJSONValue(o: TJSONObject; ID: string): TJSONValue;\r\nvar\r\n  js: JSValue;\r\n  res: boolean;\r\n  jvb: boolean;\r\nbegin\r\n  Result := nil;\r\n\r\n  js := o.JSObject.Properties[ID];\r\n\r\n  res := false;\r\n\r\n  asm\r\n    res = (js != undefined)\r\n  end;\r\n\r\n  if res then\r\n  begin\r\n    if isboolean(js) then\r\n    begin\r\n      asm\r\n        jvb = js;\r\n      end;\r\n\r\n      if jvb then\r\n        Result := TJSONTrue.Create\r\n      else\r\n        Result := TJSONFalse.Create;\r\n    end;\r\n\r\n    Result := TJSONValue.Create(js);\r\n  end;\r\nend;\r\n\r\nfunction TRESTClient.GetLocaleParam: string;\r\nbegin\r\n  //\r\n  Result := '';\r\nend;\r\n\r\nfunction TRESTClient.HandleAccessToken(const s: TJSObject): boolean;\r\nvar\r\n  token: string;\r\nbegin\r\n  RemoveOAuthHandler;\r\n\r\n  asm\r\n    token = s.detail.message;\r\n  end;\r\n\r\n  FAccessToken := token;\r\n\r\n  WriteTokens;\r\n\r\n  if Assigned(OnAccessToken) then\r\n    OnAccessToken(Self);\r\n\r\n  if Assigned(FOpenResolver) then\r\n  begin\r\n    FOpenResolver(true);\r\n    FOpenResolver := nil;\r\n  end;\r\n\r\n  Result := true;\r\nend;\r\n\r\nprocedure TRESTClient.RemoveOAuthHandler;\r\nbegin\r\n  document.removeEventListener('oauthcallback', FHandleAccessTokenPtr);\r\n  FEventRegistered := false;\r\nend;\r\n\r\nfunction TRESTClient.HandleResponse(Event: TEventListenerEvent): boolean;\r\nvar\r\n  Response: string;\r\n  Handled: boolean;\r\n  LRequestRec: TJSXMLHttpRequestRecord;\r\n\r\nbegin\r\n  LRequestRec.req := TJSXMLHttpRequest(Event.target);\r\n\r\n  Response := '';\r\n\r\n  if (ResponseType in [rtText, rtDefault]) then\r\n  begin\r\n    asm\r\n      Response = Event.target.responseText;\r\n    end;\r\n  end;\r\n\r\n  Handled := false;\r\n\r\n  if Assigned(FOnHttpResponse) then\r\n    FOnHttpResponse(Self, Response, Handled);\r\n\r\n  if Assigned(OnRequestResponse) and not Handled then\r\n    OnRequestResponse(Self, LRequestRec, Response);\r\n\r\n  if Assigned(OnResponse) and not Handled then\r\n    OnResponse(Self, Response);\r\n\r\n  Result := true;\r\nend;\r\n\r\nprocedure TRESTClient.HttpRequestEvent(Command, URL: string; Data: string = ''; ContentType: string = ''; headers: TCoreCloudHeaders = nil; AResponse: THTTPRequestHandler = nil; AError: THTTPRequestHandler = nil; ATimeOut: THTTPRequestHandler = nil);\r\nvar\r\n  i: integer;\r\n  req: TJSXMLHttpRequest;\r\n\r\nbegin\r\n  req := TJSXMLHttpRequest.new;\r\n  req.addEventListener('load', AResponse);\r\n  req.addEventListener('error', AError);\r\n  req.addEventListener('timeout', ATimeOut);\r\n  req.responseType := THTTPRequest.GetResponseType(FResponseType);\r\n  req.open(Command, URL, true);\r\n  if ContentType <> '' then\r\n    req.setRequestHeader('Content-Type', ContentType);\r\n\r\n  if FAccessToken <> '' then\r\n    req.setRequestHeader('Authorization', 'Bearer ' + FAccessToken);\r\n\r\n  if Assigned(headers) then\r\n  begin\r\n    for i := 0 to Length(headers) - 1 do\r\n      req.setRequestHeader(headers[i].header, headers[i].value);\r\n  end;\r\n\r\n  if Data = '' then\r\n    req.send(nil)\r\n  else\r\n    req.send(Data);\r\nend;\r\n\r\nfunction TRESTClient.HttpRequest(Command, URL: string; Data: string = ''; ContentType: string = ''; headers: TCoreCloudHeaders = nil): TJSPromise;\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n    var\r\n      i: integer;\r\n      req: TJSXMLHttpRequest;\r\n      FRequestResponse: THTTPRequestResponseEvent;\r\n      FResponse: THttpResponse;\r\n      FHttpResponse: TInternalHttpResponse;\r\n\r\n      function ResponseHandler(Event: TEventListenerEvent): boolean;\r\n      begin\r\n        ASuccess(Event.target);\r\n      end;\r\n\r\n      function ErrorHandler(Event: TEventListenerEvent): boolean;\r\n      begin\r\n        AFailed(Event.target);\r\n      end;\r\n\r\n    begin\r\n      req := TJSXMLHttpRequest.new;\r\n      req.addEventListener('load', @ResponseHandler);\r\n      req.addEventListener('error', @ErrorHandler);\r\n\r\n      req.responseType := THTTPRequest.GetResponseType(FResponseType);\r\n\r\n      req.open(Command, URL, true);\r\n\r\n      if ContentType <> '' then\r\n        req.setRequestHeader('Content-Type', ContentType);\r\n\r\n      //console.log('request with access token', FAccessToken);\r\n\r\n      if FAccessToken <> '' then\r\n        req.setRequestHeader('Authorization', 'Bearer ' + FAccessToken);\r\n\r\n      if Assigned(headers) then\r\n      begin\r\n        for i := 0 to Length(headers) - 1 do\r\n          req.setRequestHeader(headers[i].header, headers[i].value);\r\n      end;\r\n\r\n      if Data = '' then\r\n        req.send(nil)\r\n      else\r\n        req.send(Data);\r\n    end);\r\nend;\r\n\r\nprocedure TRESTClient.HttpsCommand(Command, URL, Data, ContentType: string; headers: TCoreCloudHeaders);\r\nvar\r\n  i: integer;\r\n  req: TJSXMLHttpRequest;\r\n  FRequestResponse: THTTPRequestResponseEvent;\r\n  FResponse: THttpResponse;\r\n  FHttpResponse: TInternalHttpResponse;\r\n\r\n  function ResponseHandler(Event: TEventListenerEvent): boolean;\r\n  var\r\n    Response: string;\r\n    Handled: boolean;\r\n    LRequestRec: TJSXMLHttpRequestRecord;\r\n\r\n  begin\r\n    LRequestRec.req := TJSXMLHttpRequest(Event.target);\r\n\r\n    asm\r\n      Response = Event.target.responseText;\r\n    end;\r\n\r\n    Handled := false;\r\n\r\n    if Assigned(FHttpResponse) then\r\n      FHttpResponse(Self, Response, Handled);\r\n\r\n    if Assigned(FRequestResponse) and not Handled then\r\n    begin\r\n      FRequestResponse(Self, LRequestRec, Response);\r\n    end;\r\n\r\n    if Assigned(FResponse) and not Handled then\r\n    begin\r\n      FResponse(Self, Response);\r\n    end;\r\n\r\n    Result := true;\r\n  end;\r\n\r\n  function ErrorHandler(Event: TEventListenerEvent): boolean;\r\n  var\r\n    Handled: boolean;\r\n    LEventRec: TJSEventRecord;\r\n    LRequestRec: TJSXMLHttpRequestRecord;\r\n  begin\r\n    Handled := false;\r\n    if Assigned(FOnError) then\r\n    begin\r\n      LRequestRec.req := TJSXMLHttpRequest(Event.target);\r\n      LEventRec.event := Event;\r\n      FOnError(Self, LRequestRec, LEventRec, Handled);\r\n    end;\r\n\r\n    if not Handled then\r\n      raise Exception.Create('HTTP request error @' + URL);\r\n\r\n    Result := true;\r\n  end;\r\n\r\nbegin\r\n  FRequestResponse := OnRequestResponse;\r\n  FResponse := OnResponse;\r\n  FHttpResponse := OnHttpResponse;\r\n\r\n  req := TJSXMLHttpRequest.new;\r\n  //req.addEventListener('load', @HandleResponse);\r\n  req.addEventListener('load', @ResponseHandler);\r\n  req.addEventListener('error', @ErrorHandler);\r\n\r\n  req.responseType := THTTPRequest.GetResponseType(FResponseType);\r\n\r\n  req.open(Command, URL, true);\r\n\r\n  if ContentType <> '' then\r\n    req.setRequestHeader('Content-Type', ContentType);\r\n\r\n  if FAccessToken <> '' then\r\n    req.setRequestHeader('Authorization', 'Bearer ' + FAccessToken);\r\n\r\n  if Assigned(headers) then\r\n  begin\r\n    for i := 0 to Length(headers) - 1 do\r\n      req.setRequestHeader(headers[i].header, headers[i].value);\r\n  end;\r\n\r\n  if Data = '' then\r\n    req.send(nil)\r\n  else\r\n    req.send(Data);\r\nend;\r\n\r\nprocedure TRESTClient.HttpsDelete(URL: string);\r\nbegin\r\n  HttpsCommand('DELETE', URL, '','', nil);\r\nend;\r\n\r\nprocedure TRESTClient.HttpsDelete(URL: string; headers: TCoreCloudHeaders);\r\nbegin\r\n  HttpsCommand('DELETE', URL,'','', headers);\r\nend;\r\n\r\nprocedure TRESTClient.HttpsGet(URL: string; headers: TCoreCloudHeaders);\r\nbegin\r\n  HttpsCommand('GET', URL,'','', headers);\r\nend;\r\n\r\nprocedure TRESTClient.HttpsGet(URL: string);\r\nbegin\r\n  HttpsCommand('GET', URL,'','', nil);\r\nend;\r\n\r\nprocedure TRESTClient.HttpsPost(URL, ContentType, Data: string);\r\nbegin\r\n  HttpsCommand('POST',URL,Data,ContentType,nil);\r\nend;\r\n\r\nprocedure TRESTClient.HttpsPost(URL: string; headers: TCoreCloudHeaders;\r\n  Data: string);\r\nbegin\r\n  HttpsCommand('POST', URL, Data, '', headers);\r\nend;\r\n\r\nprocedure TRESTClient.HttpsPost(URL, ContentType, Data: string;\r\n  headers: TCoreCloudHeaders);\r\nbegin\r\n  HttpsCommand('POST', URL, Data, ContentType, headers);\r\nend;\r\n\r\nprocedure TRESTClient.HttpsPut(URL, ContentType, Data: string);\r\nbegin\r\n  HttpsCommand('PUT', URL, Data, ContentType, nil);\r\nend;\r\n\r\nprocedure TRESTClient.HttpsUpdate(URL: string; headers: TCoreCloudHeaders;\r\n  Data: string);\r\nbegin\r\n  HttpsCommand('PUT', URL, Data, '', headers);\r\nend;\r\n\r\nprocedure TRESTClient.HttpsPost(URL, Data: string);\r\nbegin\r\n  HttpsPost(URL, '', Data);\r\nend;\r\n\r\n{$HINTS OFF}\r\nclass function TRESTClient.InstallCallback: boolean;\r\nvar\r\n  scriptsrc: string;\r\nbegin\r\n  scriptsrc :=\r\n       ' function processAuthData(access_token) {'\r\n      +'var event = new CustomEvent(\"oauthcallback\", {'#13\r\n\t\t\t+'            detail: {'#13\r\n\t\t\t+'                 message: access_token'#13\r\n\t\t\t+'            },'#13\r\n\t\t\t+'  bubbles: true,'#13\r\n\t\t\t+'  cancelable: true});'#13\r\n      +'  document.dispatchEvent(event);'\r\n      +'}';\r\n\r\n  asm\r\n    var script = document.createElement(\"script\");\r\n    script.innerHTML = scriptsrc;\r\n    document.head.appendChild(script);\r\n\r\n    var scr = document.createElement('script');\r\n    scr.async = true;\r\n    scr.defer = true;\r\n    scr.type = 'text/javascript';\r\n    document.body.appendChild(scr);\r\n  end;\r\n\r\n  Result := true;\r\nend;\r\n\r\nclass function TRESTClient.GetUTCDateTime: TDateTime;\r\nvar\r\n  s: string;\r\nbegin\r\n  asm\r\n    const nowt = new Date();\r\n    s = nowt.toISOString();\r\n  end;\r\n\r\n  Result := IsoToDateTime(s);\r\nend;\r\n\r\n{$HINTS ON}\r\nclass function TRESTClient.IsoToDate(const s: string): TDate;\r\nvar\r\n  da,mo,ye: Word;\r\n  err: Integer;\r\nbegin\r\n  Val(Copy(s,1,4),ye,err);\r\n  Val(Copy(s,6,2),mo,err);\r\n  Val(Copy(s,9,2),da,err);\r\n\r\n  if ye < 1 then\r\n    ye := 1;\r\n  if mo < 1 then\r\n    mo := 1;\r\n  if da < 1 then\r\n    da := 1;\r\n\r\n  Result := EncodeDate(ye,mo,da) + EncodeTime(0,0,0,0);\r\nend;\r\n\r\nclass function TRESTClient.IsoToTime(const s: string): TTime;\r\nvar\r\n  ho,mi,se,ms: Word;\r\n  err: Integer;\r\nbegin\r\n  ms := 0;\r\n\r\n  Val(Copy(s,1,2),ho,err);\r\n  Val(Copy(s,4,2),mi,err);\r\n  Val(Copy(s,7,2),se,err);\r\n  if Length(s) > 10 then\r\n    Val(Copy(s,10,4),ms,err);\r\n\r\n  if (ho < 0) or (ho > 23) then\r\n    ho := 0;\r\n  if (mi < 0) or (mi > 59) then\r\n    mi := 0;\r\n  if (se < 0) or (se > 59) then\r\n    se := 0;\r\n  if ms < 0 then\r\n   ms := 0;\r\n\r\n  Result := EncodeTime(ho,mi,se,ms);\r\nend;\r\n\r\n\r\nclass function TRESTClient.IsIsoDateTime(const s: string): boolean;\r\nvar\r\n  da,mo,ye,ho,mi,se: Word;\r\n  err: Integer;\r\nbegin\r\n  Result := true;\r\n\r\n  Val(Copy(s,1,4),ye,err);\r\n  if err <> 0 then\r\n    exit(False);\r\n  if not (copy(s,5,1) = '-') then\r\n    exit(False);\r\n\r\n  Val(Copy(s,6,2),mo,err);\r\n  if err <> 0 then\r\n    exit(False);\r\n\r\n  if not (copy(s,8,1) = '-') then\r\n    exit(False);\r\n\r\n  Val(Copy(s,9,2),da,err);\r\n  if err <> 0 then\r\n    exit(False);\r\n\r\n  Val(Copy(s,12,2),ho,err);\r\n  if err = 0 then\r\n  begin\r\n    if not (copy(s,14,1) = ':') then\r\n      exit(False);\r\n\r\n    Val(Copy(s,15,2),mi,err);\r\n    if err <> 0 then\r\n      exit(False);\r\n\r\n    if not (copy(s,17,1) = ':') then\r\n      exit(False);\r\n\r\n    Val(Copy(s,18,2),se,err);\r\n    if err <> 0 then\r\n      exit(False);\r\n  end;\r\nend;\r\n\r\n\r\nclass function TRESTClient.IsoToDateTime(const s: string;\r\n  IsUTC: Boolean): TDateTime;\r\nvar\r\n  da,mo,ye,ho,mi,se,ms: Word;\r\n  HourOffset, MinuteOffset: Integer;\r\n  err,delta: Integer;\r\n  sign: string;\r\nbegin\r\n  HourOffset := 0;\r\n  MinuteOffset := 0;\r\n  ms := 0;\r\n  delta := 0;\r\n\r\n  Val(Copy(s,1,4),ye,err);\r\n  Val(Copy(s,6,2),mo,err);\r\n  Val(Copy(s,9,2),da,err);\r\n  Val(Copy(s,12,2),ho,err);\r\n  Val(Copy(s,15,2),mi,err);\r\n  Val(Copy(s,18,2),se,err);\r\n\r\n  if (length(s) >= 20) and (s[20] = '.') then\r\n  begin\r\n    Val(Copy(s,21,3),ms,err);\r\n    delta := 4;\r\n  end;\r\n\r\n  if ye < 1 then\r\n    ye := 1;\r\n  if mo < 1 then\r\n    mo := 1;\r\n  if da < 1 then\r\n    da := 1;\r\n\r\n  //Get TimeOffset from ISO string\r\n  if Length(s) > 20 + delta then\r\n  begin\r\n    sign := Copy(s,20 + delta,1);\r\n    Val(Copy(s,22 + delta,2), HourOffset, err);\r\n    Val(Copy(s,25 + delta,2), MinuteOffset, err);\r\n\r\n    if sign = '-' then\r\n    begin\r\n      HourOffset := HourOffset * -1;\r\n      MinuteOffset := MinuteOffset * -1;\r\n    end;\r\n  end;\r\n\r\n  Result := EncodeDate(ye,mo,da) + EncodeTime(ho,mi,se,ms);\r\n//  Result := AdjustDateTime(Result, HourOffset, MinuteOffset, IsUTC);\r\nend;\r\n\r\nclass function TRESTClient.IsoToDateTime(const s: string): TDateTime;\r\nvar\r\n  da,mo,ye,ho,mi,se,ms: Word;\r\n  err: Integer;\r\nbegin\r\n  ms := 0;\r\n\r\n  Val(Copy(s,1,4),ye,err);\r\n  Val(Copy(s,6,2),mo,err);\r\n  Val(Copy(s,9,2),da,err);\r\n  Val(Copy(s,12,2),ho,err);\r\n  Val(Copy(s,15,2),mi,err);\r\n  Val(Copy(s,18,2),se,err);\r\n\r\n  if (length(s) >= 20) and (s[20] = '.') then\r\n  begin\r\n    Val(Copy(s,21,3),ms,err);\r\n  end;\r\n\r\n\r\n  if ye < 1 then\r\n    ye := 1;\r\n  if mo < 1 then\r\n    mo := 1;\r\n  if da < 1 then\r\n    da := 1;\r\n\r\n  Result := EncodeDate(ye,mo,da) + EncodeTime(ho,mi,se,ms);\r\nend;\r\n\r\nclass function TRESTClient.JSONEscape(s: string): string;\r\nbegin\r\n  Result := encodeURIComponent(s);\r\nend;\r\n\r\nprocedure TRESTClient.ReadTokens;\r\nvar\r\n  ls: TLocalStorage;\r\nbegin\r\n  // retrieve the token from local storage\r\n  if FPersistTokens.Enabled and (FPersistTokens.Key <> '') then\r\n  begin\r\n    ls := TLocalStorage.Create;\r\n    FAccessToken := ls.Values[FPersistTokens.Key];\r\n    FRefreshToken := ls.Values[FPersistTokens.Key+'refresh'];\r\n    FAccessExpiry := IsoToDateTime(ls.Values[FPersistTokens.Key+'accessexpiry']);\r\n    FRefreshExpiry := IsoToDateTime(ls.Values[FPersistTokens.Key+'refreshexpiry']);\r\n    ls.Free;\r\n  end;\r\n\r\nend;\r\n\r\nfunction TRESTClient.ScopeParamText(Delimiter: string; Encode: boolean): string;\r\nvar\r\n  i: integer;\r\n  scopestr: string;\r\nbegin\r\n  Result := '';\r\n  for i := 0 to Scopes.Count - 1 do\r\n  begin\r\n    if Encode then\r\n      scopestr := encodeURIComponent(Scopes[i])\r\n    else\r\n      scopestr := Scopes[i];\r\n\r\n    if Result = '' then\r\n      Result := scopestr\r\n    else\r\n      Result := Result + Delimiter + scopestr;\r\n  end;\r\nend;\r\n\r\nprocedure TRESTClient.SetApp(const Value: TRESTApp);\r\nbegin\r\n  FApp.Assign(Value);\r\nend;\r\n\r\nprocedure TRESTClient.SetPersistTokens(const Value: TPersistTokens);\r\nbegin\r\n  FPersistTokens.Assign(Value);\r\nend;\r\n\r\nprocedure TRESTClient.SetScopes(const Value: TStrings);\r\nbegin\r\n  FScopes.Assign(Value);\r\nend;\r\n\r\nprocedure TRESTClient.TestTokens;\r\nbegin\r\n  if Assigned(OnAccessToken) then\r\n    OnAccessToken(Self);\r\nend;\r\n\r\nfunction TRESTClient.TMSUTF8Encode(s: string): string;\r\nbegin\r\n  Result := s;\r\nend;\r\n\r\nclass function TRESTClient.URLEncode(URI: string): string;\r\nbegin\r\n  Result := encodeURIComponent(URI);\r\nend;\r\n\r\nprocedure TRESTClient.WriteTokens;\r\nvar\r\n  ls: TLocalStorage;\r\nbegin\r\n  if FPersistTokens.Enabled and (FPersistTokens.Key <> '') then\r\n  begin\r\n    ls := TLocalStorage.Create;\r\n    ls.Values[FPersistTokens.Key] := FAccessToken;\r\n    ls.Values[FPersistTokens.Key+'refresh'] := FRefreshToken;\r\n    ls.Values[FPersistTokens.Key+'accessexpiry'] := FAccessExpiry.ToIsoString(true);\r\n    ls.Values[FPersistTokens.Key+'refreshexpiry'] := FRefreshExpiry.ToIsoString(true);\r\n    ls.Free;\r\n  end;\r\nend;\r\n\r\n{ TPersistTokens }\r\n\r\nprocedure TPersistTokens.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TPersistTokens) then\r\n  begin\r\n    FKey := (Source as TPersistTokens).Key;\r\n    FEnabled := (Source as TPersistTokens).Enabled;\r\n  end;\r\nend;\r\n\r\nconstructor TPersistTokens.Create;\r\nbegin\r\n  FEnabled := false;\r\n  FKey := '';\r\nend;\r\n\r\n{ TRESTApp }\r\n\r\nfunction TRESTApp.GetKey: string;\r\nbegin\r\n  if (Key <> '') and (ClientID = '') then\r\n    Result := Key\r\n  else\r\n    Result := ClientID;\r\nend;\r\n\r\nprocedure TRESTApp.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TRESTApp) then\r\n  begin\r\n    FKey := (Source as TRESTApp).Key;\r\n    FClientID := (Source as TRESTApp).ClientID;\r\n    FCallbackURL := (Source as TRESTApp).CallbackURL;\r\n    FSecret := (Source as TRESTApp).Secret;\r\n    FAuthURL := (Source as TRESTApp).AuthURL;\r\n  end;\r\nend;\r\n\r\n\r\nbegin\r\n  TRESTClient.InstallCallback;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            Copyright (c) 2019 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.Utils;\r\n\r\ninterface\r\n\r\nuses\r\n  Types, Web, SysUtils, Math, Classes, JS;\r\n\r\nconst\r\n  DayMonday = 1;\r\n  DayTuesday = 2;\r\n  DayWednesday = 3;\r\n  DayThursday = 4;\r\n  DayFriday = 5;\r\n  DaySaturday = 6;\r\n  DaySunday = 7;\r\n\r\n  MonthJanuary = 1;\r\n  MonthFebruary = 2;\r\n  MonthMarch = 3;\r\n  MonthApril = 4;\r\n  MonthMay = 5;\r\n  MonthJune = 6;\r\n  MonthJuly = 7;\r\n  MonthAugust = 8;\r\n  MonthSeptember = 9;\r\n  MonthOctober = 10;\r\n  MonthNovember = 11;\r\n  MonthDecember = 12;\r\n\r\ntype\r\n  TInterfaceList = class;\r\n\r\n  TProc = Types.TProc;\r\n  TProcBoolean = SysUtils.TProc<Boolean>;\r\n  TProcInteger = SysUtils.TProc<Integer>;\r\n  TProcString = Types.TProcString;\r\n\r\n  EConvertError = SysUtils.EConvertError;\r\n\r\n  EEncodingError = class(Exception);\r\n\r\n  EStreamError = Classes.EStreamError;\r\n  EStringStreamError = class(EStreamError);\r\n  EFilerError = Classes.EFilerError;\r\n  EReadError = Classes.EReadError;\r\n  EWriteError = Classes.EWriteError;\r\n\r\n  TBytesHelper = record helper for TBytes\r\n  strict private\r\n    function get_Length: Integer;\r\n    procedure set_Length(const AValue: Integer);\r\n  public\r\n    function Compare(const ARight: TBytes): Integer;\r\n    function High: Integer;\r\n    function Low: Integer;\r\n    function SubBytes(const AStartIndex: Integer): TBytes; overload; inline;\r\n    function SubBytes(const AStartIndex, ALength: Integer): TBytes; overload; inline;\r\n    property Length: Integer read get_Length write set_Length;\r\n  end;\r\n\r\n  TWords = array of Word;\r\n  TWordsHelper = record helper for TWords\r\n  strict private\r\n    function get_Length: Integer;\r\n    procedure set_Length(const AValue: Integer);\r\n  public\r\n    class function FromBytes(const ABytes: TBytes): TWords; static;\r\n    function High: Integer;\r\n    function Low: Integer;\r\n    function ToBytes: TBytes;\r\n    property Length: Integer read get_Length write set_Length;\r\n  end;\r\n\r\n  TCharHelper = record helper for Char\r\n  public const\r\n    Length = 1;\r\n    Size = 2;\r\n  public\r\n    function IsDigit: Boolean; deprecated;\r\n    function ToOrd: Integer; deprecated;\r\n    function ToUpper: Char; overload; deprecated;\r\n    class function ToUpper(const AValue: Char): Char; overload; assembler; static; //deprecated;\r\n  end;\r\n\r\n  (*\r\n  TIntegerHelper = record helper for Integer\r\n  public\r\n    function Equals(const AValue: Integer): Boolean; inline;\r\n    function NotEquals(const AValue: Integer): Boolean; inline;\r\n    class function Parse(const AValue: string): Integer; static;\r\n    function ToString: string; overload;\r\n    class function ToString(const AValue: Integer): string; overload; assembler; static;\r\n    class function TryParse(const AString: string; out AValue: Integer): Boolean; static; inline;\r\n  end;\r\n  *)\r\n\r\n  TLongIntHelper = record helper for LongInt\r\n  public\r\n    function Equals(const AValue: LongInt): Boolean; inline;\r\n    function NotEquals(const AValue: LongInt): Boolean; inline;\r\n    class function Parse(const AValue: string): Integer; static;\r\n    function ToString: string; overload;\r\n    class function ToString(const AValue: LongInt): string; overload; assembler; static;\r\n    class function TryParse(const AString: string; out AValue: Integer): Boolean; static; inline;\r\n  end;\r\n\r\n  (*\r\n  TWordHelper = record helper for Word\r\n  public\r\n    class function FromBytes(const ALow, AHigh: Byte): Word; static;\r\n    procedure ToBytes(out ALow, AHigh: Byte);\r\n  end;\r\n\r\n  TStringHelper = record helper for string\r\n  strict private\r\n    function get_Chars(const AIndex: Integer): Char; inline;\r\n    function get_Length: Integer; inline;\r\n    function Pos(const ASubStr, AStr: string; const AOffset: Integer): Integer;\r\n    function Reverse: string;\r\n    procedure set_Chars(const AIndex: Integer; const AValue: Char); inline;\r\n    procedure set_Length(const AValue: Integer); inline;\r\n  public const\r\n    Empty = '';\r\n  public\r\n    function CompareTo(const AValue: string): Integer; overload;\r\n    class function CompareTo(const ALeft, ARight: string): Integer; overload; assembler; static;\r\n    function Contains(const AValue: string): Boolean;\r\n    function EndsWith(const AValue: string): Boolean; overload;\r\n    function EndsWith(const AValue: string; IgnoreCase: Boolean): Boolean; overload;\r\n    function Equals(const AValue: string): Boolean;\r\n    function FirstChar: Char;\r\n    function Format(const AArgs: array of const): string; overload;\r\n    class function Format(const AValue: string; const AArgs: array of const): string; overload; static;\r\n    function High: Integer; overload; inline;\r\n    function IndexOf(const AValue: Char): Integer; overload; inline;\r\n    function IndexOf(const AValue: string; const AStartIndex, ACount: Integer): Integer; overload;\r\n    function IndexOf(const AValue: string): Integer; overload; inline;\r\n    function Insert(const AStartIndex: Integer; const AValue: string): string;\r\n    function IsEmpty: Boolean; inline;\r\n    function IsNumber: Boolean;\r\n    function LastIndexOf(const AValue: Char): Integer; overload; inline;\r\n    class function Low: Integer; static; inline;\r\n    function NotEquals(const AValue: string): Boolean;\r\n    function NotIsEmpty: Boolean; inline;\r\n    function PadLeft(const ATotalWidth: Integer): string; overload; inline;\r\n    function PadLeft(ATotalWidth: Integer; const APaddingChar: Char): string; overload; inline;\r\n    function Remove(const AStartIndex: Integer): string; overload; inline;\r\n    function Remove(const AStartIndex, ACount: Integer): string; overload; inline;\r\n    function Replace(const AOldValue: string; const ANewValue: string): string; overload;\r\n    function Same(const AValue: string): Boolean; inline;\r\n    class function StartsText(const ASubText, AText: string): Boolean; static;\r\n    function StartsWith(const AValue: string): Boolean; overload; inline;\r\n    function StartsWith(const AValue: string; AIgnoreCase: Boolean): Boolean; overload;\r\n    function Substring(const AStartIndex: Integer): string; overload; inline;\r\n    function Substring(const AStartIndex, ALength: Integer): string; overload; inline;\r\n    function ToLower: string;\r\n    function ToUpper: string;\r\n    function Trim: string;\r\n    property Chars[const AIndex: Integer]: Char read get_Chars write set_Chars;\r\n    property Length: Integer read get_Length write set_Length;\r\n  end;\r\n  *)\r\n\r\n  TDateTimeHelper = record helper for TDateTime\r\n  public\r\n    function Equals(const AValue: TDateTime): Boolean; inline;\r\n    function NotEquals(const AValue: TDateTime): Boolean; inline;\r\n    function ToString: string; inline;\r\n    function ToIsoString(AAddDelimiters: Boolean = False; AAddMilliSeconds: Boolean = False): string;\r\n  end;\r\n\r\n  TMonthNameArray = SysUtils.TMonthNameArray;\r\n  TMonthNames = SysUtils.TMonthNames;\r\n  TDayNames = SysUtils.TDayNames;\r\n\r\n  TFormatSettings = SysUtils.TFormatSettings;\r\n\r\n  TTMSEncoding = SysUtils.TEncoding;\r\n\r\n  TStreamHelper = class helper for TStream\r\n  public\r\n    function CopyFrom(const ASource: TStream; ACount: Int64): Int64;\r\n  end;\r\n\r\n  TTMSStringStream = class(TBytesStream)\r\n  private\r\n    FEncoding: TEncoding;\r\n    FFileName: string;\r\n    FOwnsEncoding: Boolean;\r\n    FError: TProcString;\r\n    FLoaded: TProc;\r\n    FRequest: TJSXMLHTTPRequest;\r\n    function GetDataString: string;\r\n    function InternalLoadFromFileP(const AFileName: string): TJSPromise;\r\n    function OnAbort(AEvent: TEventListenerEvent): Boolean;\r\n    function OnError(AEvent: TEventListenerEvent): Boolean;\r\n    function OnLoad(AEvent: TEventListenerEvent): Boolean;\r\n  public\r\n    constructor Create; overload;\r\n    constructor Create(const AString: string); overload;\r\n    constructor Create(const AString: string; AEncoding: TEncoding; AOwnsEncoding: Boolean = True); overload;\r\n    destructor Destroy; override;\r\n    procedure LoadFromFile(const AFileName: string); overload;\r\n    procedure LoadFromFile(const AFileName: string; const ALoaded: TProc); overload;\r\n    procedure LoadFromFile(const AFileName: string; const ALoaded: TProc; const AError: TProcString); overload; reintroduce;\r\n    function LoadFromFileP(const AFileName: string): Boolean; async;\r\n    function ReadString(ACount: Integer): string;\r\n    procedure WriteString(const AString: string);\r\n    property DataString: string read GetDataString;\r\n  end;\r\n\r\n  IInterfaceList = interface\r\n  ['{285DEA8A-B865-11D1-AAA7-00C04FB17A72}']\r\n    function Add(const AItem: IInterface): Integer;\r\n    procedure Clear;\r\n    procedure Delete(const AIndex: Integer);\r\n    procedure Exchange(const AIndex1, AIndex2: Integer);\r\n    function Expand: TInterfaceList;\r\n    function First: IInterface;\r\n    function get_Capacity: Integer;\r\n    function get_Count: Integer;\r\n    function get_Items(const AIndex: Integer): IInterface;\r\n    function IndexOf(const AItem: IInterface): Integer;\r\n    function IndexOfItem(const AItem: IInterface; const ADirection: TDirection): Integer;\r\n    procedure Insert(const AIndex: Integer; const AItem: IInterface);\r\n    function Last: IInterface;\r\n    procedure Lock;\r\n    function Remove(const AItem: IInterface): Integer;\r\n    function RemoveItem(const AItem: IInterface; const ADirection: TDirection): Integer;\r\n    procedure set_Capacity(const AValue: Integer);\r\n    procedure set_Count(const AValue: Integer);\r\n    procedure set_Items(const AIndex: Integer; const AItem: IInterface);\r\n    procedure Unlock;\r\n    property Count: Integer read get_Count write set_Count;\r\n    property Items[const AIndex: Integer]: IInterface read get_Items write set_Items; default;\r\n  end;\r\n\r\n  TInterfaceListEnumerator = class(TObject)\r\n  strict private\r\n    FIndex: Integer;\r\n    FInterfaceList: TInterfaceList;\r\n    function get_Current: IInterface; inline;\r\n  public\r\n    constructor Create(const AInterfaceList: TInterfaceList);\r\n    function MoveNext: Boolean;\r\n    property Current: IInterface read get_Current;\r\n  end;\r\n\r\n  IInterfaceListEx = interface(IInterfaceList)\r\n    ['{FDB39D70-65B9-4995-9436-6084ACA05DB3}']\r\n    function GetEnumerator: TInterfaceListEnumerator;\r\n  end;\r\n\r\n  TCompareItems = reference to function(const ALeft, ARight: IInterface): TValueRelationship;\r\n\r\n  IInterfaceListEx2 = interface(IInterfaceList)\r\n    ['{4FE71218-0F8F-4027-B050-5E84E2202604}']\r\n    procedure Sort(const ACompare: TCompareItems);\r\n  end;\r\n\r\n  TInterfaceList = class(TInterfacedObject, IInterfaceList, IInterfaceListEx, IInterfaceListEx2)\r\n  strict private\r\n    FList: TFPList;\r\n  strict protected\r\n    function Add(const AItem: IInterface): Integer;\r\n    procedure Clear;\r\n    procedure Delete(const AIndex: Integer);\r\n    procedure Exchange(const AIndex1, AIndex2: Integer);\r\n    function Expand: TInterfaceList;\r\n    function First: IInterface;\r\n    function GetEnumerator: TInterfaceListEnumerator;\r\n    function get_Capacity: Integer;\r\n    function get_Count: Integer;\r\n    function get_Items(const AIndex: Integer): IInterface;\r\n    function IndexOf(const AItem: IInterface): Integer;\r\n    function IndexOfItem(const AItem: IInterface; const ADirection: TDirection): Integer;\r\n    procedure Insert(const AIndex: Integer; const AItem: IInterface);\r\n    function Last: IInterface;\r\n    procedure Lock;\r\n    function Remove(const AItem: IInterface): Integer;\r\n    function RemoveItem(const AItem: IInterface; const ADirection: TDirection): Integer;\r\n    procedure set_Capacity(const AValue: Integer);\r\n    procedure set_Count(const AValue: Integer);\r\n    procedure set_Items(const AIndex: Integer; const AItem: IInterface);\r\n    procedure Sort(const ACompare: TCompareItems);\r\n    procedure Unlock;\r\n    property Capacity: Integer read get_Capacity write set_Capacity;\r\n    property Items[const AIndex: Integer]: IInterface read get_Items write set_Items; default;\r\n  protected\r\n    property Count: Integer read get_Count write set_Count;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\n  TStringBuilder = class(TObject)\r\n  strict private\r\n    FData: string;\r\n    function get_Length: Integer;\r\n    procedure set_Length(const AValue: Integer);\r\n  public\r\n    constructor Create(const AValue: string); overload;\r\n    function Append(const AValue: Integer): TStringBuilder; overload;\r\n    function Append(const AValue: string): TStringBuilder; overload;\r\n    function Insert(const AIndex: Integer; const AValue: Integer): TStringBuilder; overload;\r\n    function Insert(const AIndex: Integer; const AValue: string): TStringBuilder; overload;\r\n    function ToString: string; overload; override;\r\n    property Length: Integer read get_Length write set_Length;\r\n  end;\r\n\r\n  TSysInfo = record\r\n    screenSize: string;\r\n    browser: string;\r\n    browserversion: string;\r\n    browsermajorVersion: string;\r\n    mobile: boolean;\r\n    os: string;\r\n    osVersion: string;\r\n    cookieEnabled: boolean;\r\n    flashVersion: string;\r\n  end;\r\n\r\n  TJsonToObjectHelper = class helper for TObject\r\n  public\r\n    procedure FromJSON(JSONValue: JSValue); overload;\r\n    procedure FromJSON(JSONValue: string); overload;\r\n    function ToJSON: JSValue;\r\n  end;\r\n\r\n\r\nprocedure UseVariable(const AValue: IInterface); overload;\r\nprocedure UseVariable(const AValue: Integer); overload;\r\nprocedure UseVariable(const AValue: string); overload;\r\n\r\nfunction ArrayBufferToBase64(Buffer: TJSArrayBuffer): string;\r\nfunction Base64ToArrayBuffer(Base64: string): TJSArrayBuffer;\r\nfunction StringToBase64(AValue: string): string;\r\nfunction Base64ToString(AValue: string): string;\r\n\r\nfunction SizeOf(const AValue: Double): Integer; overload;\r\nfunction SizeOf(const AValue: Integer): Integer; overload;\r\n\r\nprocedure InsertAfter(newNode, referenceNode: TJSElement);\r\n\r\nfunction MatchStrEx(AValue1, AValue2: string; ACaseSensitive: Boolean = true): Boolean;\r\nfunction MatchStr(AValue1, AValue2:string; ACaseSensitive:Boolean = true):Boolean;\r\n\r\nprocedure SelectElementContents(AElement: TJSElement);\r\n\r\nfunction FormatProp(const AFmt: string; const AArgs: array of const): string;\r\n\r\nfunction StringIsFloat(N: string): boolean;\r\nfunction StringIsInteger(N: string): boolean;\r\n\r\nfunction MD5Hash(N: string): string;\r\n\r\nfunction GetSysInfo: TSysInfo;\r\n\r\nimplementation\r\n\r\nuses\r\n  RTLConsts, WEBLib.Consts, RTTI, WEBLib.REST;\r\n\r\nvar\r\n  FCompare: TCompareItems;\r\n\r\nprocedure UseVariable(const AValue: IInterface);\r\nbegin\r\nend;\r\n\r\nprocedure UseVariable(const AValue: Integer);\r\nbegin\r\nend;\r\n\r\nprocedure UseVariable(const AValue: string);\r\nbegin\r\nend;\r\n\r\n{ TBytesHelper }\r\n\r\nfunction TBytesHelper.Compare(const ARight: TBytes): Integer;\r\nvar\r\n  lCount: Integer;\r\nbegin\r\n  if Length > ARight.Length then\r\n    Exit(GreaterThanValue);\r\n\r\n  if Length < ARight.Length then\r\n    Exit(LessThanValue);\r\n\r\n  Result := EqualsValue;\r\n  for lCount := Low to High do\r\n  begin\r\n    if Self[lCount] > ARight[lCount] then\r\n      Exit(GreaterThanValue);\r\n    if Self[lCount] < ARight[lCount] then\r\n      Exit(LessThanValue);\r\n  end;\r\nend;\r\n\r\nfunction TBytesHelper.get_Length: Integer;\r\nbegin\r\n  Result := System.Length(Self);\r\nend;\r\n\r\nfunction TBytesHelper.High: Integer;\r\nbegin\r\n  Result := System.High(Self);\r\nend;\r\n\r\nfunction TBytesHelper.Low: Integer;\r\nbegin\r\n  Result := System.Low(Self);\r\nend;\r\n\r\nprocedure TBytesHelper.set_Length(const AValue: Integer);\r\nbegin\r\n  System.SetLength(Self, AValue);\r\nend;\r\n\r\nfunction TBytesHelper.SubBytes(const AStartIndex: Integer): TBytes;\r\nbegin\r\n  Result := System.Copy(Self, AStartIndex, Length);\r\nend;\r\n\r\nfunction TBytesHelper.SubBytes(const AStartIndex, ALength: Integer): TBytes;\r\nbegin\r\n  Result := System.Copy(Self, AStartIndex, ALength);\r\nend;\r\n\r\n{ TWordsHelper }\r\n\r\nclass function TWordsHelper.FromBytes(const ABytes: TBytes): TWords;\r\nconst\r\n  cBytesPerWord = 2;\r\nvar\r\n  lCount: Integer;\r\n  lLow: Byte;\r\n  lHigh: Byte;\r\nbegin\r\n  lCount := ABytes.Length;\r\n  if Odd(lCount) then\r\n    Inc(lCount);\r\n  Result.Length := lCount div cBytesPerWord;\r\n\r\n  lCount := ABytes.Low;\r\n  while lCount <= ABytes.High do\r\n  begin\r\n    lLow := ABytes[lCount];\r\n    if lCount + 1 <= ABytes.High then\r\n      lHigh := ABytes[lCount + 1]\r\n    else\r\n      lHigh := 0;\r\n\r\n    Result[lCount div cBytesPerWord] := Word.FromBytes(lLow, lHigh);\r\n    Inc(lCount, cBytesPerWord);\r\n  end;\r\n\r\nend;\r\n\r\nfunction TWordsHelper.get_Length: Integer;\r\nbegin\r\n  Result := System.Length(Self);\r\nend;\r\n\r\nfunction TWordsHelper.High: Integer;\r\nbegin\r\n  Result := System.High(Self);\r\nend;\r\n\r\nfunction TWordsHelper.Low: Integer;\r\nbegin\r\n  Result := System.Low(Self);\r\nend;\r\n\r\nprocedure TWordsHelper.set_Length(const AValue: Integer);\r\nbegin\r\n  System.SetLength(Self, AValue);\r\nend;\r\n\r\nfunction TWordsHelper.ToBytes: TBytes;\r\nconst\r\n  cBytesPerWord = 2;\r\nvar\r\n  lLow: Byte;\r\n  lHigh: Byte;\r\n  lCount: Integer;\r\n  lNewIndex: Integer;\r\nbegin\r\n  Result.Length := Length * cBytesPerWord;\r\n  for lCount := Low to High do\r\n  begin\r\n    Self[lCount].ToBytes(lLow, lHigh);\r\n    lNewIndex := lCount * cBytesPerWord;\r\n    Result[lNewIndex] := lLow;\r\n    Result[lNewIndex + 1] := lHigh;\r\n  end;\r\nend;\r\n\r\n{ TCharHelper }\r\n\r\nfunction TCharHelper.IsDigit: Boolean;\r\nconst\r\n  cNumChars = ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9'];\r\nbegin\r\n  Result := Self in cNumChars;\r\nend;\r\n\r\nfunction TCharHelper.ToOrd: Integer;\r\nbegin\r\n  Result := Ord(Self);\r\nend;\r\n\r\nfunction TCharHelper.ToUpper: Char;\r\nbegin\r\n  Result := ToUpper(Self);\r\nend;\r\n\r\nclass function TCharHelper.ToUpper(const AValue: Char): Char; assembler;\r\nasm\r\n  return AValue.toUpperCase();\r\nend;\r\n\r\n{ TIntegerHelper }\r\n\r\n(*\r\n\r\nfunction TIntegerHelper.Equals(const AValue: Integer): Boolean;\r\nbegin\r\n  Result := Self = AValue;\r\nend;\r\n\r\nfunction TIntegerHelper.NotEquals(const AValue: Integer): Boolean;\r\nbegin\r\n  Result := not Equals(AValue);\r\nend;\r\n\r\nclass function TIntegerHelper.Parse(const AValue: string): Integer;\r\nbegin\r\n  Result := StrToInt(AValue);\r\nend;\r\n\r\nfunction TIntegerHelper.ToString: string;\r\nbegin\r\n  Result := ToString(Self);\r\nend;\r\n\r\nclass function TIntegerHelper.ToString(const AValue: Integer): string; assembler;\r\nasm\r\n  return AValue.toString();\r\nend;\r\n\r\nclass function TIntegerHelper.TryParse(const AString: string; out AValue: Integer): Boolean;\r\nbegin\r\n  Result := TryStrToInt(AString, AValue);\r\nend;\r\n\r\n*)\r\n\r\n{ TLongIntHelper }\r\n\r\nfunction TLongIntHelper.Equals(const AValue: LongInt): Boolean;\r\nbegin\r\n  Result := Self = AValue;\r\nend;\r\n\r\nfunction TLongIntHelper.NotEquals(const AValue: LongInt): Boolean;\r\nbegin\r\n  Result := not Equals(AValue);\r\nend;\r\n\r\nclass function TLongIntHelper.Parse(const AValue: string): Integer;\r\nbegin\r\n  Result := StrToInt(AValue);\r\nend;\r\n\r\nfunction TLongIntHelper.ToString: string;\r\nbegin\r\n  Result := ToString(Self);\r\nend;\r\n\r\nclass function TLongIntHelper.ToString(const AValue: LongInt): string;\r\nasm\r\n  return AValue.toString();\r\nend;\r\n\r\nclass function TLongIntHelper.TryParse(const AString: string; out AValue: Integer): Boolean;\r\nbegin\r\n  Result := TryStrToInt(AString, AValue);\r\nend;\r\n\r\n{ TWordHelper }\r\n\r\n(*\r\n\r\nclass function TWordHelper.FromBytes(const ALow, AHigh: Byte): Word;\r\nconst\r\n  cBitPerByte = 8;\r\nbegin\r\n  Result := ALow + (AHigh shl cBitPerByte);\r\nend;\r\n\r\nprocedure TWordHelper.ToBytes(out ALow, AHigh: Byte);\r\nconst\r\n  cMask: Byte = $FF;\r\n  cBitPerByte = 8;\r\nbegin\r\n  ALow := Self and cMask;\r\n  AHigh := (Self and (cMask shl cBitPerByte)) shr cBitPerByte;\r\nend;\r\n\r\n*)\r\n\r\n{ TStringHelper }\r\n\r\n(*\r\n\r\nfunction TStringHelper.CompareTo(const AValue: string): Integer;\r\nbegin\r\n  Result := CompareTo(Self, AValue);\r\nend;\r\n\r\nclass function TStringHelper.CompareTo(const ALeft, ARight: string): Integer; assembler;\r\nasm\r\n  return ALeft.localeCompare(ARight);\r\nend;\r\n\r\nfunction TStringHelper.Contains(const AValue: string): Boolean;\r\nbegin\r\n  Result := IndexOf(AValue) >= 0;\r\nend;\r\n\r\nfunction TStringHelper.EndsWith(const AValue: string): Boolean;\r\nbegin\r\n  Result := EndsWith(AValue,False);\r\nend;\r\n\r\nfunction TStringHelper.EndsWith(const AValue: string; IgnoreCase: Boolean): Boolean;\r\nvar\r\n  L: SizeInt;\r\n  S: String;\r\n\r\nbegin\r\n  L := System.Length(AVAlue);\r\n  Result := L = 0;\r\n  if not Result then\r\n  begin\r\n    S := System.Copy(Self, Length - L + 1,L);\r\n    Result := System.Length(S) = L;\r\n    if Result then\r\n      if IgnoreCase then\r\n        Result := CompareText(S,AValue) = 0\r\n      else\r\n        Result := S = AValue;\r\n  end;\r\nend;\r\n\r\n\r\nfunction TStringHelper.Equals(const AValue: string): Boolean;\r\nbegin\r\n  Result := Self = AValue;\r\nend;\r\n\r\nfunction TStringHelper.FirstChar: Char;\r\nbegin\r\n  if NotIsEmpty then\r\n    Result := Chars[0]\r\n  else\r\n    Result := #0;\r\nend;\r\n\r\nfunction TStringHelper.Format(const AArgs: array of const): string;\r\nbegin\r\n  Result := SysUtils.Format(Self, AArgs);\r\nend;\r\n\r\nclass function TStringHelper.Format(const AValue: string; const AArgs: array of const): string;\r\nbegin\r\n  Result := SysUtils.Format(AValue, AArgs);\r\nend;\r\n\r\nfunction TStringHelper.get_Chars(const AIndex: Integer): Char;\r\nbegin\r\n  Result := Self[AIndex + 1];\r\nend;\r\n\r\nfunction TStringHelper.get_Length: Integer;\r\nbegin\r\n  Result := System.Length(Self);\r\nend;\r\n\r\nfunction TStringHelper.High: Integer;\r\nbegin\r\n  Result := Length - 1;\r\nend;\r\n\r\nfunction TStringHelper.IndexOf(const AValue: Char): Integer;\r\nbegin\r\n  Result := Pos(AValue, Self, 1) - 1;\r\nend;\r\n\r\nfunction TStringHelper.IndexOf(const AValue: string; const AStartIndex, ACount: Integer): Integer;\r\nbegin\r\n  Result := Pos(AValue, Self, AStartIndex + 1) - 1;\r\n  if (Result + AValue.Length) > (AStartIndex + ACount) then\r\n    Result := -1;\r\nend;\r\n\r\nfunction TStringHelper.IndexOf(const AValue: string): Integer;\r\nbegin\r\n  Result := System.Pos(AValue, Self) - 1;\r\nend;\r\n\r\nfunction TStringHelper.Insert(const AStartIndex: Integer; const AValue: string): string;\r\nbegin\r\n  System.Insert(AValue, Self, AStartIndex + 1);\r\n  Result := Self;\r\nend;\r\n\r\nfunction TStringHelper.IsEmpty: Boolean;\r\nbegin\r\n  Result := Self = Empty;\r\nend;\r\n\r\nfunction TStringHelper.IsNumber: Boolean;\r\nconst\r\n  cNumbers = ['0'..'9'];\r\nvar\r\n  lCount: Integer;\r\nbegin\r\n  if IsEmpty then\r\n    Exit(False);\r\n\r\n  for lCount := 0 to Length - 1 do\r\n  begin\r\n    if not (Chars[lCount] in cNumbers) then\r\n      Exit(False);\r\n  end;\r\n  Result := True;\r\nend;\r\n\r\nfunction TStringHelper.LastIndexOf(const AValue: Char): Integer;\r\nbegin\r\n  Result := Reverse.IndexOf(AValue);\r\n  if Result >= 0 then\r\n    Result := Length - Result - 1;\r\nend;\r\n\r\nclass function TStringHelper.Low: Integer;\r\nbegin\r\n  Result := 0;\r\nend;\r\n\r\nfunction TStringHelper.NotEquals(const AValue: string): Boolean;\r\nbegin\r\n  Result := not Equals(AValue);\r\nend;\r\n\r\nfunction TStringHelper.NotIsEmpty: Boolean;\r\nbegin\r\n  Result := Self <> Empty;\r\nend;\r\n\r\nfunction TStringHelper.PadLeft(const ATotalWidth: Integer): string;\r\nconst\r\n  cDefPadChar = ' ';\r\nbegin\r\n  Result := PadLeft(ATotalWidth, cDefPadChar);\r\nend;\r\n\r\nfunction TStringHelper.PadLeft(ATotalWidth: Integer; const APaddingChar: Char): string;\r\nbegin\r\n  ATotalWidth := ATotalWidth - Length;\r\n  if ATotalWidth > 0 then\r\n    Result := System.StringOfChar(APaddingChar, ATotalWidth) + Self\r\n  else\r\n    Result := Self;\r\nend;\r\n\r\nfunction TStringHelper.Pos(const ASubStr, AStr: string; const AOffset: Integer): Integer;\r\nasm\r\n  return AStr.indexOf(ASubStr, AOffset - 1) + 1;\r\nend;\r\n\r\nfunction TStringHelper.Remove(const AStartIndex: Integer): string;\r\nbegin\r\n  Result := Remove(AStartIndex, 1);\r\nend;\r\n\r\nfunction TStringHelper.Remove(const AStartIndex, ACount: Integer): string;\r\nbegin\r\n  Result := SubString(0, AStartIndex - 1) + SubString(AStartIndex + ACount);\r\nend;\r\n\r\nfunction TStringHelper.Replace(const AOldValue, ANewValue: string): string;\r\nbegin\r\n  Result := SysUtils.StringReplace(Self, AOldValue, ANewValue, [rfReplaceAll]);\r\nend;\r\n\r\nfunction TStringHelper.Reverse: string;\r\nvar\r\n  lCount: Integer;\r\nbegin\r\n  Result := Empty;\r\n  Result.Length := Length;\r\n  for lCount := 0 to Length - 1 do\r\n    Result.Chars[Length - lCount - 1] := Self.Chars[lCount];\r\nend;\r\n\r\nfunction TStringHelper.Same(const AValue: string): Boolean;\r\nbegin\r\n  Result := SysUtils.SameText(Self, AValue);\r\nend;\r\n\r\nprocedure TStringHelper.set_Chars(const AIndex: Integer; const AValue: Char);\r\nbegin\r\n  Self[AIndex + 1] := AValue;\r\nend;\r\n\r\nprocedure TStringHelper.set_Length(const AValue: Integer);\r\nbegin\r\n  System.SetLength(Self, AValue);\r\nend;\r\n\r\nclass function TStringHelper.StartsText(const ASubText, AText: string): Boolean;\r\nbegin\r\n  if ASubText.IsEmpty then\r\n    Result := True\r\n  else\r\n  begin\r\n    if AText.Length >= ASubText.Length then\r\n      Result := SysUtils.SameText(AText.Substring(0, ASubText.Length), ASubText)\r\n    else\r\n      Result := False;\r\n  end;\r\nend;\r\n\r\nfunction TStringHelper.StartsWith(const AValue: string): Boolean;\r\nbegin\r\n  Result := StartsWith(AValue, False);\r\nend;\r\n\r\nfunction TStringHelper.StartsWith(const AValue: string; AIgnoreCase: Boolean): Boolean;\r\nbegin\r\n  if AIgnoreCase then\r\n    Result := StartsText(AValue, Self)\r\n  else\r\n  if AValue = Empty then\r\n    Result := True\r\n  else\r\n  begin\r\n    if (Self.Length >= AValue.Length) then\r\n      Result := Substring(0, AValue.Length).Equals(AValue)\r\n    else\r\n      Result := False;\r\n  end;\r\nend;\r\n\r\nfunction TStringHelper.Substring(const AStartIndex: Integer): string;\r\nbegin\r\n  Result := System.Copy(Self, AStartIndex + 1, Self.Length);\r\nend;\r\n\r\nfunction TStringHelper.Substring(const AStartIndex, ALength: Integer): string;\r\nbegin\r\n  Result := System.Copy(Self, AStartIndex + 1, ALength);\r\nend;\r\n\r\nfunction TStringHelper.ToLower: string;\r\nvar\r\n  lValue: string;\r\nbegin\r\n  lValue := Self;\r\n  asm\r\n    lValue = lValue.toLowerCase();\r\n  end;\r\n  Result := lValue;\r\nend;\r\n\r\nfunction TStringHelper.ToUpper: string;\r\nvar\r\n  lValue: string;\r\nbegin\r\n  lValue := Self;\r\n  asm\r\n    lValue = lValue.toUpperCase();\r\n  end;\r\n  Result := lValue;\r\nend;\r\n\r\nfunction TStringHelper.Trim: string;\r\nbegin\r\n  Result := SysUtils.Trim(Self);\r\nend;\r\n\r\n*)\r\n\r\n{ TDateTimeHelper }\r\n\r\nfunction TDateTimeHelper.Equals(const AValue: TDateTime): Boolean;\r\nbegin\r\n  Result := SameValue(Self, AValue);\r\nend;\r\n\r\nfunction TDateTimeHelper.NotEquals(const AValue: TDateTime): Boolean;\r\nbegin\r\n  Result := not SameValue(Self, AValue);\r\nend;\r\n\r\nfunction TDateTimeHelper.ToString: string;\r\nbegin\r\n  Result := SysUtils.DateTimeToStr(Self, FormatSettings);\r\nend;\r\n\r\nfunction TDateTimeHelper.ToISOString(AAddDelimiters: Boolean = False; AAddMilliSeconds: Boolean = False): string;\r\nvar\r\n  da, mo, ye, ho, mi, se, ms: Word;\r\n  dd, td, msec: string;\r\n\r\n  function IntToZStr(i, l: Integer): string;\r\n  var\r\n    Res: string;\r\n  begin\r\n    Res := IntToStr(i);\r\n    while Length(Res) < l do\r\n      Res := '0' + Res;\r\n\r\n    Result := Res;\r\n  end;\r\nbegin\r\n  if AAddDelimiters then\r\n  begin\r\n    dd := '-';\r\n    td := ':';\r\n  end;\r\n\r\n  DecodeDate(Self, ye, mo, da);\r\n  DecodeTime(Self, ho, mi, se, ms);\r\n\r\n  if AAddMilliSeconds then\r\n    msec := '.' + IntToZStr(ms, 3) + 'Z';\r\n\r\n  Result := IntToZStr(ye,4) + dd + IntToZStr(mo,2) + dd + IntToZStr(da,2) + 'T' +\r\n            IntToZStr(ho,2) + td + IntToZStr(mi,2) + td + IntToZStr(se,2) + msec;\r\nend;\r\n\r\n{ TStreamHelper }\r\n\r\nfunction TStreamHelper.CopyFrom(const ASource: TStream; ACount: Int64): Int64;\r\nconst\r\n  MaxBufSize = $F000;\r\nvar\r\n  lBufSize: Integer;\r\n  lCount: Integer;\r\n  lBuffer: TBytes;\r\nbegin\r\n  if ACount <= 0 then\r\n  begin\r\n    ASource.Position := 0;\r\n    ACount := ASource.Size;\r\n  end;\r\n  Result := ACount;\r\n  if ACount > MaxBufSize then\r\n    lBufSize := MaxBufSize\r\n  else\r\n    lBufSize := ACount;\r\n  lBuffer.Length := lBufSize;\r\n  try\r\n    while ACount <> 0 do\r\n    begin\r\n      if ACount > lBufSize then\r\n        lCount := lBufSize\r\n      else\r\n        lCount := ACount;\r\n      ASource.ReadBuffer(lBuffer, lCount);\r\n      WriteBuffer(lBuffer, lCount);\r\n      Dec(ACount, lCount);\r\n    end;\r\n  finally\r\n    lBuffer.Length := 0;\r\n  end;\r\nend;\r\n\r\n{ TTMSStringStream }\r\n\r\nconstructor TTMSStringStream.Create;\r\nbegin\r\n  Create(string.Empty, TEncoding.Default, False);\r\nend;\r\n\r\nconstructor TTMSStringStream.Create(const AString: string);\r\nbegin\r\n  Create(AString, TEncoding.Default, False);\r\nend;\r\n\r\nconstructor TTMSStringStream.Create(const AString: string; AEncoding: TEncoding; AOwnsEncoding: Boolean);\r\nvar\r\n  lBytes: TBytes;\r\nbegin\r\n  inherited Create;\r\n  FEncoding := AEncoding;\r\n  FOwnsEncoding := AOwnsEncoding and not TEncoding.IsStandardEncoding(AEncoding);\r\n  lBytes := FEncoding.GetBytes(AString);\r\n  SetPointer(BytesToMemory(lBytes), lBytes.Length);\r\nend;\r\n\r\ndestructor TTMSStringStream.Destroy;\r\nbegin\r\n  if FOwnsEncoding then\r\n    FEncoding.Free;\r\n  inherited Destroy;\r\nend;\r\n\r\nfunction TTMSStringStream.GetDataString: string;\r\nbegin\r\n  Result := FEncoding.GetString(Copy(Bytes, 0, Size));\r\nend;\r\n\r\nprocedure TTMSStringStream.LoadFromFile(const AFileName: string);\r\nconst\r\n  cStatusOK = 200;\r\nvar\r\n  lStatus: Integer;\r\n  lResponse: string;\r\nbegin\r\n  lResponse := string.Empty;\r\n  lStatus := cStatusOK;\r\n  asm\r\n    var lRequest = new XMLHttpRequest();\r\n    lRequest.open(\"GET\", AFileName, false);\r\n    lRequest.send();\r\n\r\n    if (lRequest.status == cStatusOK)\r\n      lResponse = lRequest.responseText\r\n    else\r\n      lStatus = lRequest.status;\r\n  end;\r\n\r\n  if lStatus <> cStatusOK then\r\n    raise EStringStreamError.CreateFmt(SCannotGetFile, [AFileName, lStatus]);\r\n  WriteString(lResponse);\r\nend;\r\n\r\nprocedure TTMSStringStream.LoadFromFile(const AFileName: string; const ALoaded: TProc);\r\nbegin\r\n  LoadFromFile(AFileName, ALoaded, nil);\r\nend;\r\n\r\nprocedure TTMSStringStream.LoadFromFile(const AFileName: string; const ALoaded: TProc; const AError: TProcString);\r\nconst\r\n  cAbortMethod = 'abort';\r\n  cErrorMethod = 'error';\r\n  cGetMethod = 'GET';\r\n  cLoadMethod = 'load';\r\nbegin\r\n  FLoaded := ALoaded;\r\n  FError := AError;\r\n  FFileName := AFileName;\r\n  FRequest := TJSXMLHttpRequest.New;\r\n  FRequest.AddEventListener(cAbortMethod, @OnAbort);\r\n  FRequest.AddEventListener(cErrorMethod, @OnError);\r\n  FRequest.AddEventListener(cLoadMethod, @OnLoad);\r\n  try\r\n    FRequest.Open(cGetMethod, AFileName, True);\r\n    FRequest.Send;\r\n  except\r\n    on E: Exception do\r\n    begin\r\n      if Assigned(AError) then\r\n        AError(E.Message)\r\n      else\r\n        raise;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSStringStream.InternalLoadFromFileP(const AFileName: string): TJSPromise;\r\nbegin\r\n  Result := TJSPromise.New(\r\n    procedure(AResolve, AReject : TJSPromiseResolver)\r\n    begin\r\n      LoadFromFile(AFileName,\r\n      procedure()\r\n      begin\r\n        AResolve(True);\r\n      end,\r\n      procedure(const AError: string)\r\n      begin\r\n        AReject(AError);\r\n      end);\r\n    end);\r\nend;\r\n\r\nfunction TTMSStringStream.LoadFromFileP(const AFileName: string): Boolean; async;\r\nbegin\r\n  Result := await(Boolean, InternalLoadFromFileP(AFileName));\r\nend;\r\n\r\nfunction TTMSStringStream.OnAbort(AEvent: TEventListenerEvent): Boolean;\r\nbegin\r\n  Result := True;\r\n  if Assigned(FError) then\r\n    FError(Format(SLoadFromFileAborted, [FFileName]));\r\nend;\r\n\r\nfunction TTMSStringStream.OnError(AEvent: TEventListenerEvent): Boolean;\r\nbegin\r\n  Result := True;\r\n  if Assigned(FError) then\r\n    FError(Format(SErrorLoadFromFile, [FFileName]));\r\nend;\r\n\r\nfunction TTMSStringStream.OnLoad(AEvent: TEventListenerEvent): Boolean;\r\nconst\r\n  cStatusOK = 200;\r\n  cStatusLastOK = 208;\r\nvar\r\n  lReq: TJSXMLHttpRequest;\r\nbegin\r\n  lReq := TJSXMLHttpRequest(AEvent.target);\r\n\r\n  if (lReq.Status < cStatusOK) or (lReq.Status > cStatusLastOK) then\r\n  begin\r\n    if Assigned(FError) then\r\n    begin\r\n      FError(Format(SCannotGetFile, [FFileName, FRequest.Status]));\r\n      Exit;\r\n    end\r\n    else\r\n      raise EStringStreamError.CreateFmt(SCannotGetFile, [FFileName, lReq.Status]);\r\n  end;\r\n  WriteString(lReq.ResponseText);\r\n  Result := True;\r\n  if Assigned(FLoaded) then\r\n    FLoaded();\r\nend;\r\n\r\nfunction TTMSStringStream.ReadString(ACount: Integer): string;\r\nvar\r\n  lBytes: TBytes;\r\n  lDest: TBytes;\r\n  lCount: Integer;\r\nbegin\r\n  if ACount > Size - Position then\r\n    ACount := Size - Position;\r\n\r\n  lDest.Length := ACount;\r\n  lBytes := Bytes;\r\n  for lCount := Position to ACount + Position - 1 do\r\n    lDest[lCount - Position] := lBytes[lCount];\r\n\r\n  Result := FEncoding.GetString(lDest);\r\n  Position := Position + ACount;\r\nend;\r\n\r\nprocedure TTMSStringStream.WriteString(const AString: string);\r\nvar\r\n  lBytes: TBytes;\r\n  lData: string;\r\nbegin\r\n  lBytes := FEncoding.GetBytes(AString);\r\n  Write(lBytes, 0, lBytes.Length);\r\n\r\n  lData := DataString;\r\n  if lData <> AString then\r\n    WriteString(''); \r\nend;\r\n\r\n{ TInterfaceList }\r\n\r\nconstructor TInterfaceList.Create;\r\nbegin\r\n  inherited Create;\r\n  FList := TFPList.Create;\r\nend;\r\n\r\ndestructor TInterfaceList.Destroy;\r\nbegin\r\n  Clear;\r\n  FList.Free;\r\n  inherited Destroy;\r\nend;\r\n\r\nfunction TInterfaceList.Add(const AItem: IInterface): Integer;\r\nbegin\r\n  Result := FList.Add(nil);\r\n  Items[Result] := AItem;\r\nend;\r\n\r\nprocedure TInterfaceList.Clear;\r\nvar\r\n  lCount: Integer;\r\nbegin\r\n  for lCount := 0 to FList.Count - 1 do\r\n    Items[lCount] := nil;\r\n  FList.Clear;\r\nend;\r\n\r\nprocedure TInterfaceList.Delete(const AIndex: Integer);\r\nbegin\r\n  Items[AIndex] := nil;\r\n  FList.Delete(AIndex);\r\nend;\r\n\r\nprocedure TInterfaceList.Exchange(const AIndex1, AIndex2: Integer);\r\nbegin\r\n  FList.Exchange(AIndex1, AIndex2);\r\nend;\r\n\r\nfunction TInterfaceList.Expand: TInterfaceList;\r\nbegin\r\n  FList.Expand;\r\n  Result := Self;\r\nend;\r\n\r\nfunction TInterfaceList.First: IInterface;\r\nbegin\r\n  if Count > 0 then\r\n    Result := Items[0]\r\n  else\r\n    Result := nil;\r\nend;\r\n\r\nfunction TInterfaceList.GetEnumerator: TInterfaceListEnumerator;\r\nbegin\r\n  Result := TInterfaceListEnumerator.Create(Self);\r\nend;\r\n\r\nfunction TInterfaceList.get_Capacity: Integer;\r\nbegin\r\n  Result := FList.Capacity;\r\nend;\r\n\r\nfunction TInterfaceList.get_Count: Integer;\r\nbegin\r\n  Result := FList.Count;\r\nend;\r\n\r\nfunction TInterfaceList.get_Items(const AIndex: Integer): IInterface;\r\nbegin\r\n  Result := IInterface(FList[AIndex]);\r\nend;\r\n\r\nfunction TInterfaceList.IndexOf(const AItem: IInterface): Integer;\r\nbegin\r\n  Result := IndexOfItem(AItem, TDirection.FromBeginning);\r\nend;\r\n\r\nfunction TInterfaceList.IndexOfItem(const AItem: IInterface; const ADirection: TDirection): Integer;\r\nbegin\r\n  Result := FList.IndexOfItem(AItem, ADirection);\r\nend;\r\n\r\nprocedure TInterfaceList.Insert(const AIndex: Integer; const AItem: IInterface);\r\nbegin\r\n  FList.Insert(AIndex, nil);\r\n  Items[AIndex] := AItem;\r\nend;\r\n\r\nfunction TInterfaceList.Last: IInterface;\r\nbegin\r\n  Result := Items[Count - 1];\r\nend;\r\n\r\nprocedure TInterfaceList.Lock;\r\nbegin\r\nend;\r\n\r\nfunction TInterfaceList.Remove(const AItem: IInterface): Integer;\r\nbegin\r\n  Result := RemoveItem(AItem, TDirection.FromBeginning);\r\nend;\r\n\r\nfunction TInterfaceList.RemoveItem(const AItem: IInterface; const ADirection: TDirection): Integer;\r\nbegin\r\n  Result := FList.IndexOfItem(AItem, ADirection);\r\n  if Result > -1 then\r\n    Delete(Result);\r\nend;\r\n\r\nprocedure TInterfaceList.set_Capacity(const AValue: Integer);\r\nbegin\r\n  FList.Capacity := AValue;\r\nend;\r\n\r\nprocedure TInterfaceList.set_Count(const AValue: Integer);\r\nbegin\r\n  FList.Count := AValue;\r\nend;\r\n\r\nprocedure TInterfaceList.set_Items(const AIndex: Integer; const AItem: IInterface);\r\nbegin\r\n  if FList[AIndex] <> nil then\r\n    IInterface(FList[AIndex])._Release;\r\n  FList[AIndex] := AItem;\r\n  if AItem <> nil then\r\n    AItem._AddRef;\r\nend;\r\n\r\nfunction InternalCompare(AItem1, AItem2: JSValue): Integer;\r\nbegin\r\n  Result := FCompare(IInterface(AItem1), IInterface(AItem2));\r\nend;\r\n\r\nprocedure TInterfaceList.Sort(const ACompare: TCompareItems);\r\nbegin\r\n  FCompare := ACompare;\r\n  try\r\n    FList.Sort(@InternalCompare);\r\n  finally\r\n    FCompare := nil;\r\n  end;\r\nend;\r\n\r\nprocedure TInterfaceList.Unlock;\r\nbegin\r\nend;\r\n\r\n{ TInterfaceListEnumerator }\r\n\r\nconstructor TInterfaceListEnumerator.Create(const AInterfaceList: TInterfaceList);\r\nbegin\r\n  inherited Create;\r\n  FIndex := -1;\r\n  FInterfaceList := AInterfaceList;\r\nend;\r\n\r\nfunction TInterfaceListEnumerator.get_Current: IInterface;\r\nbegin\r\n  Result := FInterfaceList[FIndex];\r\nend;\r\n\r\nfunction TInterfaceListEnumerator.MoveNext: Boolean;\r\nbegin\r\n  Result := FIndex < FInterfaceList.Count - 1;\r\n  if Result then\r\n    Inc(FIndex);\r\nend;\r\n\r\n{ TStringBuilder }\r\n\r\nconstructor TStringBuilder.Create(const AValue: string);\r\nbegin\r\n  inherited Create;\r\n  FData := AValue;\r\nend;\r\n\r\nfunction TStringBuilder.Append(const AValue: Integer): TStringBuilder;\r\nbegin\r\n  Result := Append(AValue.ToString);\r\nend;\r\n\r\nfunction TStringBuilder.Append(const AValue: string): TStringBuilder;\r\nbegin\r\n  FData := FData + AValue;\r\n  Result := Self;\r\nend;\r\n\r\nfunction TStringBuilder.get_Length: Integer;\r\nbegin\r\n  Result := FData.Length;\r\nend;\r\n\r\nfunction TStringBuilder.Insert(const AIndex, AValue: Integer): TStringBuilder;\r\nbegin\r\n  Result := Insert(AIndex, AValue.ToString);\r\nend;\r\n\r\nfunction TStringBuilder.Insert(const AIndex: Integer; const AValue: string): TStringBuilder;\r\nbegin\r\n  FData.Insert(AIndex, AValue);\r\n  Result := Self;\r\nend;\r\n\r\nprocedure TStringBuilder.set_Length(const AValue: Integer);\r\nbegin\r\n  FData.Length := AValue;\r\nend;\r\n\r\nfunction TStringBuilder.ToString: string;\r\nbegin\r\n  Result := FData;\r\nend;\r\n\r\n{$HINTS OFF}\r\n\r\nfunction StringToBase64(AValue: string): string;\r\nvar\r\n  res: string;\r\nbegin\r\n  asm\r\n    res = window.btoa(AValue);\r\n  end;\r\n  Result := res;\r\nend;\r\n\r\nfunction Base64ToString(AValue: string): string;\r\nvar\r\n  res: string;\r\nbegin\r\n  asm\r\n    res = window.atob(AValue);\r\n  end;\r\n  Result := res;\r\nend;\r\n\r\nfunction ArrayBufferToBase64(Buffer: TJSArrayBuffer): string;\r\nbegin\r\n  asm\r\n    function _arrayBufferToBase64(buf) {\r\n    var binary = '';\r\n    var bytes = new Uint8Array(buf);\r\n    var len = bytes.byteLength;\r\n    for (var i = 0; i < len; i++) {\r\n        binary += String.fromCharCode( bytes[i] );\r\n    }\r\n    return window.btoa(binary);\r\n    }\r\n    Result = _arrayBufferToBase64(Buffer);\r\n  end;\r\nend;\r\n\r\nfunction Base64ToArrayBuffer(Base64: string): TJSArrayBuffer;\r\nbegin\r\n  asm\r\n    function _base64ToArrayBuffer(data) {\r\n        var binary_string = window.atob(data);\r\n        var len = binary_string.length;\r\n        var bytes = new Uint8Array(len);\r\n        for (var i = 0; i < len; i++) {\r\n            bytes[i] = binary_string.charCodeAt(i);\r\n        }\r\n        return bytes.buffer;\r\n    }\r\n\r\n    Result = _base64ToArrayBuffer(Base64);\r\n  end;\r\nend;\r\n\r\nfunction SizeOf(const AValue: Double): Integer; overload;\r\nconst\r\n  cSizeOfDouble = 8;\r\nbegin\r\n  Result := cSizeOfDouble;\r\nend;\r\n\r\nfunction SizeOf(const AValue: Integer): Integer; overload;\r\nconst\r\n  cSizeOfInteger = 4;\r\nbegin\r\n  Result := cSizeOfInteger;\r\nend;\r\n\r\nprocedure InsertAfter(newNode, referenceNode: TJSElement);\r\nbegin\r\n  referenceNode.parentNode.insertBefore(newNode, referenceNode.nextSibling);\r\nend;\r\n\r\nfunction StripThousandSep(ps: string): string;\r\nbegin\r\n  while (Pos(FormatSettings.ThousandSeparator, ps) > 0) do\r\n    Delete(ps, Pos(FormatSettings.ThousandSeparator, ps), 1);\r\n  Result := ps;\r\nend;\r\n\r\nfunction VarPos(ASubValue, AValue: string; var AResult: Integer): Integer;\r\nbegin\r\n  AResult := Pos(ASubValue, AValue);\r\n  Result := AResult;\r\nend;\r\n\r\nfunction IsDate(AValue: string; var ADate: TDateTime): boolean;\r\nvar\r\n  su, ts: string;\r\n  da,mo,ye,ho,mi,se: Word;\r\n  err: Integer;\r\n  dp,mp,yp,vp: Integer;\r\nbegin\r\n  Result := False;\r\n  ts := '';\r\n  su := UpperCase(FormatSettings.ShortDateFormat);\r\n  dp := pos('D',su);\r\n  mp := pos('M',su);\r\n  yp := pos('Y',su);\r\n\r\n  da := 0;\r\n  mo := 0;\r\n  ye := 0;\r\n  ho := 0;\r\n  mi := 0;\r\n  se := 0;\r\n\r\n  vp := -1;\r\n  if VarPos(FormatSettings.DateSeparator,AValue,vp)>0 then\r\n  begin\r\n    su := Copy(AValue,1,vp - 1);\r\n\r\n    if (dp<mp) and\r\n       (dp<yp) then\r\n       val(su,da,err)\r\n    else\r\n    if (mp<dp) and\r\n       (mp<yp) then\r\n       val(su,mo,err)\r\n    else\r\n    if (yp<mp) and\r\n       (yp<dp) then\r\n       val(su,ye,err);\r\n\r\n    if err<>0 then Exit;\r\n    Delete(AValue,1,vp);\r\n\r\n    if VarPos(FormatSettings.DateSeparator,AValue,vp)>0 then\r\n    begin\r\n      su := Copy(AValue,1,vp - 1);\r\n\r\n      if ((dp>mp) and (dp<yp)) or\r\n         ((dp>yp) and (dp<mp)) then\r\n         val(su,da,err)\r\n      else\r\n      if ((mp>dp) and (mp<yp)) or\r\n         ((mp>yp) and (mp<dp)) then\r\n         val(su,mo,err)\r\n      else\r\n      if ((yp>mp) and (yp<dp)) or\r\n         ((yp>dp) and (yp<mp)) then\r\n         val(su,ye,err);\r\n\r\n      if err<>0 then Exit;\r\n      Delete(AValue,1,vp);\r\n\r\n      AValue := Trim(AValue);\r\n\r\n      if VarPos(' ',AValue, vp) > 0 then  // there is space to separate date & time\r\n      begin\r\n        ts := copy(AValue, vp, length(AValue));\r\n        AValue := copy(AValue, 1, vp - 1);\r\n      end;\r\n\r\n      if (dp>mp) and\r\n         (dp>yp) then\r\n         val(AValue,da,err)\r\n      else\r\n      if (mp>dp) and\r\n         (mp>yp) then\r\n         val(AValue,mo,err)\r\n      else\r\n      if (yp>mp) and\r\n         (yp>dp) then\r\n         val(AValue,ye,err);\r\n\r\n      if err<>0 then Exit;\r\n      if (da>31) then Exit;\r\n      if (mo>12) then Exit;\r\n\r\n      if (ts <> '') then  // there is a time part\r\n      begin\r\n        if VarPos(FormatSettings.TimeSeparator,ts,vp)>0 then\r\n        begin\r\n          su := Copy(ts,1,vp - 1); // hour part\r\n          val(su,ho,err);\r\n\r\n          if (err <> 0) then Exit;\r\n          if (ho > 23) then Exit;\r\n\r\n          Delete(ts,1,vp);\r\n\r\n          if VarPos(FormatSettings.TimeSeparator,ts,vp)>0 then // there is a second part\r\n          begin\r\n            su := Copy(ts,1,vp - 1); // minute part\r\n            val(su,mi,err);\r\n\r\n            if err <> 0 then Exit;\r\n            Delete(ts,1,vp);\r\n\r\n            val(ts,se,err);  // second part\r\n            if (err <> 0) then Exit;\r\n            if (se > 60) then Exit;\r\n          end\r\n          else\r\n          begin\r\n            val(su,mi,err); // minute part\r\n            if (err <> 0) then Exit;\r\n          end;\r\n\r\n          if (mi > 59) then Exit;\r\n\r\n          Result := true;\r\n        end;\r\n      end\r\n      else\r\n        Result := True;\r\n\r\n      try\r\n        ADate := EncodeDate(ye,mo,da) + EncodeTime(ho,mi,se,0);\r\n      except\r\n        Result := False;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction Matches(s0a, s1a: string): Boolean;\r\nconst\r\n  larger = '>';\r\n  smaller = '<';\r\n  logand  = '&';\r\n  logor   = '^';\r\n  asterix = '*';\r\n  qmark = '?';\r\n  negation = '!';\r\n\r\nvar\r\n  matching: boolean;\r\n  done: boolean;\r\n  len: longint;\r\n  lastchar:  char;\r\n  s0,s1,s2,s3: integer;\r\n  oksmaller,oklarger,negflag: boolean;\r\n  compstr: string;\r\n  flag1,flag2,flag3: boolean;\r\n  equal: boolean;\r\n  n1,n2: double;\r\n  code1, code2: Integer;\r\n  dt1,dt2: TDateTime;\r\n  q, i: integer;\r\nbegin\r\n  i := 0;\r\n\r\n  oksmaller := True;\r\n  oklarger := True;\r\n  flag1 := False;\r\n  flag2 := False;\r\n  flag3 := False;\r\n  negflag := False;\r\n  equal := False;\r\n\r\n  { [<>] string [&|] [<>] string }\r\n\r\n  // do larger than or larger than or equal\r\n\r\n  s2 := Pos(larger,s0a);\r\n\r\n  if s2 <> 0 then\r\n  begin\r\n    inc(s2);\r\n    if (s0a[s2 - i] = '=') then\r\n    begin\r\n      Equal := True;\r\n      inc(s2);\r\n    end;\r\n\r\n    while (s0a[s2 - i] = ' ') do\r\n      inc(s2);\r\n\r\n    s3 := s2;\r\n    len := 0;\r\n\r\n    lastchar := #0;\r\n\r\n    q := 0;\r\n\r\n    while ((s2 - i <= Length(s0a)) and (s0a[s2 - i] <> ' ')) and (s2 <= Length(s0a)) and (odd(q) or ((s0a[s2 - i] <> '&') and (s0a[s2 - i] <> '|')))  do\r\n    begin\r\n      if (s0a[s2 - i] = '\"') then\r\n        inc(q);\r\n\r\n      if (len = 0) and (s0a[s2 - i] = '\"') then\r\n        inc(s3)\r\n      else\r\n        inc(len);\r\n\r\n      lastchar := s0a[s2 - i];\r\n      inc(s2);\r\n\r\n      if (s2 - i <= Length(s0a)) and (s0a[s2 - i] = ' ') and odd(q) then // skip space if between quotes\r\n      begin\r\n        lastchar := s0a[s2 - i];\r\n        inc(s2);\r\n      end;\r\n    end;\r\n\r\n    if (len > 0) and (lastchar = '\"') then\r\n      dec(len);\r\n\r\n    compstr := Copy(s0a,s3,len);\r\n\r\n    //StrLCopy(compstr,s3,len);\r\n\r\n    Val(StripThousandSep(s1a),n1,code1);\r\n    Val(StripThousandSep(compstr),n2,code2);\r\n\r\n    dt2 := 0;\r\n    if IsDate(compstr,dt2) then\r\n      code2 := 1;\r\n\r\n    dt1 := 0;\r\n    if IsDate(s1a,dt1) then\r\n      code1 := 1;\r\n\r\n    if (code1 = 0) and (code2 = 0) then {both are numeric types}\r\n    begin\r\n      if equal then\r\n        oklarger := n1 >= n2\r\n      else\r\n        oklarger := n1 > n2;\r\n    end\r\n    else\r\n    begin\r\n      if IsDate(compstr,dt2) and IsDate(s1a,dt1) then\r\n      begin\r\n        if equal then\r\n         oklarger := dt1 >= dt2\r\n        else\r\n         oklarger := dt1 > dt2;\r\n      end\r\n      else\r\n      begin\r\n        if equal then\r\n         oklarger := (CompareStr(compstr,s1a)<=0)\r\n        else\r\n         oklarger := (CompareStr(compstr,s1a)<0);\r\n      end;\r\n    end;\r\n    flag1 := True;\r\n  end;\r\n\r\n  equal := False;\r\n\r\n  // do smaller than or smaller than or equal\r\n  s2 := Pos(smaller, s0a);\r\n  if (s2 <> 0) then\r\n  begin\r\n    inc(s2);\r\n    if (s0a[s2 - i] = '=') then\r\n      begin\r\n       equal := True;\r\n       inc(s2);\r\n      end;\r\n\r\n    lastchar := #0;\r\n\r\n    while (s2 - i <= Length(s0a)) and (s0a[s2 - i] =' ') do inc(s2);\r\n    s3 := s2;\r\n    len := 0;\r\n    q := 0;\r\n\r\n    while (s2 - i <= Length(s0a)) and (s0a[s2 - i] <> ' ') and (s2 <= Length(s0a)) and (odd(q) or ((s0a[s2 - i] <> '&') and (s0a[s2 - i] <> '|'))) do\r\n    begin\r\n      if s0a[s2 - i] = '\"' then\r\n        inc(q);\r\n\r\n      if (len = 0) and (s0a[s2 - i] = '\"') then\r\n        inc(s3)\r\n      else\r\n        inc(len);\r\n\r\n      lastchar := s0a[s2 - i];\r\n      inc(s2);\r\n    end;\r\n\r\n    if (len > 0) and (lastchar = '\"') then\r\n      dec(len);\r\n\r\n    compstr := copy(s0a, s3, len);\r\n\r\n    Val(StripThousandSep(s1a),n1,code1);\r\n    Val(StripThousandSep(compstr),n2,code2);\r\n    if IsDate(compstr,dt2) then code2 := 1;\r\n    if IsDate(s1a,dt1) then code1 := 1;\r\n\r\n    if (code1 = 0) and (code2 = 0) then // both are numeric types\r\n     begin\r\n      if equal then\r\n       oksmaller := n1 <= n2\r\n      else\r\n       oksmaller := n1 < n2;\r\n     end\r\n    else\r\n     begin\r\n      // check for dates here ?\r\n      if IsDate(compstr, dt2) and IsDate(s1a, dt1) then\r\n       begin\r\n        if equal then\r\n         oksmaller := dt1 <= dt2\r\n        else\r\n         oksmaller := dt1 < dt2;\r\n       end\r\n      else\r\n       begin\r\n        if equal then\r\n          oksmaller := (CompareStr(compstr,s1a)>=0)\r\n        else\r\n          oksmaller := (CompareStr(compstr,s1a)>0);\r\n       end;\r\n     end;\r\n\r\n    flag2 := True;\r\n  end;\r\n\r\n  s2 := Pos(negation, s0a);\r\n\r\n  if (s2 <> 0) then\r\n  begin\r\n    inc(s2);\r\n    while (s0a[s2 - i] = ' ') do\r\n      inc(s2);\r\n    s3 := s2;\r\n    len := 0;\r\n\r\n    lastchar := #0;\r\n    q := 0;\r\n\r\n    while (s0a[s2 - i] <> ' ') and (s2 <= length(s0a)) and (odd(q) or ((s0a[s2 - i] <> '&') and (s0a[s2 - i] <> '|'))) do\r\n    begin\r\n      if (s0a[s2 - i] = '\"') then\r\n        inc(q);\r\n\r\n      if (len = 0) and (s0a[s2 - i] = '\"') then\r\n        inc(s3)\r\n      else\r\n        inc(len);\r\n\r\n      lastchar := s0a[s2 - i];\r\n      inc(s2);\r\n    end;\r\n\r\n    if (len > 0) and (lastchar = '\"') then\r\n      dec(len);\r\n\r\n    compstr := copy(s0a, s3, len);\r\n    flag3 := True;\r\n  end;\r\n\r\n  if (flag3) then\r\n  begin\r\n    if Pos(larger, s0a) = 0 then\r\n      flag1 := flag3;\r\n    if Pos(smaller, s0a) = 0 then\r\n      flag2 := flag3;\r\n  end;\r\n\r\n  if (Pos(logor, s0a) <> 0) then\r\n    if flag1 or flag2 then\r\n    begin\r\n      matches := oksmaller or oklarger;\r\n      Exit;\r\n    end;\r\n\r\n  if (Pos(logand, s0a) <> 0) then\r\n    if flag1 and flag2 then\r\n    begin\r\n      matches := oksmaller and oklarger;\r\n      Exit;\r\n    end;\r\n\r\n  if ((Pos(larger, s0a) <> 0) and (oklarger)) or\r\n     ((Pos(smaller, s0a) <> 0) and (oksmaller)) then\r\n  begin\r\n    matches := True;\r\n    Exit;\r\n  end;\r\n\r\n  s0 := 1;\r\n  s1 := 1;\r\n\r\n  done := (s0a = '') or (s1a = '');\r\n\r\n  Matching := True;\r\n\r\n  while not done and matching do\r\n  begin\r\n    case s0a[s0 - i] of\r\n    qmark:\r\n      begin\r\n        matching := s1 <= Length(s1a);\r\n        if matching then\r\n        begin\r\n          inc(s0);\r\n          inc(s1);\r\n        end;\r\n      end;\r\n    negation:\r\n      begin\r\n        negflag:=True;\r\n        inc(s0);\r\n      end;\r\n    '\"':\r\n      begin\r\n        inc(s0);\r\n      end;\r\n    asterix:\r\n      begin\r\n        repeat\r\n          inc(s0)\r\n        until (s0 - i > Length(s0a)) or (s0a[s0 - i] <> asterix);\r\n        len := Length(s1a) - s1;\r\n        inc(s1,len);\r\n        matching := matches(copy(s0a,s0,Length(s0a)),Copy(s1a, s1, Length(s1a)));\r\n\r\n        while (len >= 0) and not matching do\r\n        begin\r\n         dec(s1);\r\n         dec(len);\r\n         matching := matches(copy(s0a,s0,Length(s0a)),Copy(s1a, s1, Length(s1a)));\r\n       end;\r\n       if matching then\r\n       begin\r\n         s0 := Length(s0a) + 1;\r\n         s1 := Length(s1a) + 1;\r\n       end;\r\n    end;\r\n   else\r\n     begin\r\n       if (s0 <= Length(s0a)) and (s1 <= Length(s1a)) then\r\n         matching := s0a[s0 - i] = s1a[s1 - i]\r\n       else\r\n         matching := false;\r\n\r\n       if matching then\r\n       begin\r\n         inc(s0);\r\n         inc(s1);\r\n       end;\r\n     end;\r\n   end;\r\n\r\n   Done := (s0 > Length(s0a)) and (s1 > Length(s1a));\r\n  end;\r\n\r\n  if negflag then\r\n    Matches := not matching\r\n  else\r\n    Matches := matching;\r\nend;\r\n\r\nfunction MatchStr(AValue1, AValue2:string; ACaseSensitive:Boolean = true):Boolean;\r\nbegin\r\n  if ACaseSensitive then\r\n    Result := Matches(AValue1,AValue2)\r\n  else\r\n    Result := Matches(UpperCase(AValue1),UpperCase(AValue2));\r\nend;\r\n\r\nfunction StripLogicSpaces(AValue: string): string;\r\nvar\r\n  i, k: integer;\r\n  q: integer;\r\nbegin\r\n  q := 0;\r\n  i := 1;\r\n  k := length(AValue);\r\n  Result := '';\r\n\r\n  while (i <= k) do\r\n  begin\r\n    if AValue[i] = '\"' then\r\n      inc(q);\r\n\r\n    if (AValue[i] = ' ') then\r\n    begin\r\n      if Odd(q) then\r\n        Result := Result + AValue[i];\r\n    end\r\n    else\r\n      Result := Result + AValue[i];\r\n\r\n    inc(i);\r\n  end;\r\nend;\r\n\r\nfunction FirstChar(ACharset: array of char; AValue: string; var spos: Integer): char;\r\nvar\r\n  i:Integer;\r\n  q: Integer;\r\n  j: Integer;\r\nbegin\r\n  j := 1;\r\n  i := 1;\r\n  q := 0;\r\n  spos := -1;\r\n  Result := #0;\r\n\r\n  while i <= Length(AValue) do\r\n  begin\r\n    if AValue[i - j] = '\"' then\r\n      inc(q);\r\n\r\n    if (CharInSet(AValue[i - j], ACharSet)) and not Odd(q) then\r\n    begin\r\n      spos := i;\r\n      Result := AValue[i - j];\r\n      Break;\r\n    end;\r\n    Inc(i);\r\n  end;\r\nend;\r\n\r\nfunction ClosingParenthesis(s1: string): integer;\r\nvar\r\n  i,j,k,r: integer;\r\nbegin\r\n  r := 0;\r\n  j := 0;\r\n  k := 0;\r\n  i := 1;\r\n\r\n  while (i <= length(s1)) do\r\n  begin\r\n    if (s1[i] = ')') then\r\n      inc(k);\r\n\r\n    if (s1[i] = '(') then\r\n      inc(j);\r\n\r\n    if (s1[i] = ')') and (j = k) then\r\n    begin\r\n      r := i;\r\n      break;\r\n    end;\r\n\r\n    inc(i);\r\n  end;\r\n\r\n  Result := r;\r\nend;\r\n\r\n\r\n\r\nfunction MatchStrEx(AValue1, AValue2: string; ACaseSensitive: Boolean = true): Boolean;\r\nvar\r\n  ch,lastop: Char;\r\n  sep,cp: Integer;\r\n  res,newres: Boolean;\r\n  CharArray: array of char;\r\nbegin\r\n  AValue1 := Trim(AValue1);\r\n  AValue1 := StripLogicSpaces(AValue1);\r\n\r\n  sep := -1;\r\n  if VarPos('=', AValue1, sep) = 1 then\r\n    Delete(AValue1, sep, 1);\r\n\r\n  LastOp := #0;\r\n  Res := True;\r\n\r\n  SetLength(CharArray,5);\r\n  CharArray[0] := '(';\r\n  CharArray[1] := ';';\r\n  CharArray[2] := '^';\r\n  CharArray[3] := '&';\r\n  CharArray[4] := '|';\r\n\r\n  if (AValue1 = '') then\r\n  begin\r\n    Result := (AValue2 = '');\r\n    Exit;\r\n  end;\r\n\r\n  if (AValue1 <> '*') and (AValue2 = '') then\r\n  begin\r\n    Result := False;\r\n    Exit;\r\n  end;\r\n\r\n  repeat\r\n    ch := FirstChar(CharArray, AValue1, sep);\r\n    if ch <> #0 then\r\n    begin\r\n      if (length(AValue1) > 0) and (AValue1[1] = '(') and (pos('(',AValue1) > 0) then\r\n      begin\r\n        cp := ClosingParenthesis(AValue1);\r\n        NewRes := MatchStrEx(copy(AValue1,2,cp - 2),AValue2,ACaseSensitive);\r\n        delete(AValue1,1,cp);\r\n      end\r\n      else\r\n      begin\r\n        NewRes := MatchStr(Copy(AValue1,1,sep - 1),AValue2,ACaseSensitive);\r\n        Delete(AValue1,1,sep);\r\n      end;\r\n\r\n      if LastOp = #0 then\r\n        Res := NewRes\r\n      else\r\n        case LastOp of\r\n        ';','^','|':Res := Res or NewRes;\r\n        '&':Res := Res and NewRes;\r\n        end;\r\n\r\n      LastOp := ch;\r\n     end;\r\n\r\n  until (ch = #0);\r\n\r\n  NewRes := MatchStr(AValue1, AValue2, ACaseSensitive);\r\n\r\n  if LastOp = #0 then\r\n    Res := NewRes\r\n  else\r\n    case LastOp of\r\n    ';','^','|':Res := Res or NewRes;\r\n    '&':Res := Res and NewRes;\r\n    end;\r\n\r\n  Result := Res;\r\nend;\r\n\r\n\r\nprocedure SelectElementContents(AElement: TJSElement);\r\nbegin\r\n  asm\r\n    if (window.getSelection && document.createRange) {\r\n        var sel = window.getSelection();\r\n        var range = document.createRange();\r\n        range.selectNodeContents(AElement);\r\n        sel.removeAllRanges();\r\n        sel.addRange(range);\r\n    } else if (document.selection && document.body.createTextRange) {\r\n        var textRange = document.body.createTextRange();\r\n        textRange.moveToElementText(AElement);\r\n        textRange.select();\r\n    }\r\n  end;\r\nend;\r\n\r\nfunction FormatProp(const AFmt: string; const AArgs: array of const): string;\r\nbegin\r\n  Result := Format(AFmt, AArgs, TFormatSettings.Invariant);\r\nend;\r\n\r\nfunction StringIsFloat(N: string): boolean;\r\nvar\r\n  f: double;\r\nbegin\r\n  Result := TryStrToFloat(N,F);\r\nend;\r\n\r\nfunction StringIsInteger(N: string): boolean;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := True;\r\n  if Trim(N) = '' then\r\n    Exit(False);\r\n\r\n  if (Length(Trim(N)) > 1) and (Trim(N)[1] = '0') then\r\n    Exit(False);\r\n\r\n  if not (N[I] in ['0'..'9','-']) then\r\n    Exit(False);\r\n\r\n  for I := 2 to Length(N) do\r\n  begin\r\n    if not (N[I] in ['0'..'9']) then\r\n    begin\r\n      Result := False;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction MD5Hash(N: String): string;\r\nvar\r\n  h: string;\r\nbegin\r\n  asm\r\n  function md5(inputString) {\r\n    var hc=\"0123456789abcdef\";\r\n    function rh(n) {var j,s=\"\";for(j=0;j<=3;j++) s+=hc.charAt((n>>(j*8+4))&0x0F)+hc.charAt((n>>(j*8))&0x0F);return s;}\r\n    function ad(x,y) {var l=(x&0xFFFF)+(y&0xFFFF);var m=(x>>16)+(y>>16)+(l>>16);return (m<<16)|(l&0xFFFF);}\r\n    function rl(n,c)            {return (n<<c)|(n>>>(32-c));}\r\n    function cm(q,a,b,x,s,t)    {return ad(rl(ad(ad(a,q),ad(x,t)),s),b);}\r\n    function ff(a,b,c,d,x,s,t)  {return cm((b&c)|((~b)&d),a,b,x,s,t);}\r\n    function gg(a,b,c,d,x,s,t)  {return cm((b&d)|(c&(~d)),a,b,x,s,t);}\r\n    function hh(a,b,c,d,x,s,t)  {return cm(b^c^d,a,b,x,s,t);}\r\n    function ii(a,b,c,d,x,s,t)  {return cm(c^(b|(~d)),a,b,x,s,t);}\r\n    function sb(x) {\r\n        var i;var nblk=((x.length+8)>>6)+1;var blks=new Array(nblk*16);for(i=0;i<nblk*16;i++) blks[i]=0;\r\n        for(i=0;i<x.length;i++) blks[i>>2]|=x.charCodeAt(i)<<((i%4)*8);\r\n        blks[i>>2]|=0x80<<((i%4)*8);blks[nblk*16-2]=x.length*8;return blks;\r\n    }\r\n    var i,x=sb(inputString),a=1732584193,b=-271733879,c=-1732584194,d=271733878,olda,oldb,oldc,oldd;\r\n    for(i=0;i<x.length;i+=16) {olda=a;oldb=b;oldc=c;oldd=d;\r\n        a=ff(a,b,c,d,x[i+ 0], 7, -680876936);d=ff(d,a,b,c,x[i+ 1],12, -389564586);c=ff(c,d,a,b,x[i+ 2],17,  606105819);\r\n        b=ff(b,c,d,a,x[i+ 3],22,-1044525330);a=ff(a,b,c,d,x[i+ 4], 7, -176418897);d=ff(d,a,b,c,x[i+ 5],12, 1200080426);\r\n        c=ff(c,d,a,b,x[i+ 6],17,-1473231341);b=ff(b,c,d,a,x[i+ 7],22,  -45705983);a=ff(a,b,c,d,x[i+ 8], 7, 1770035416);\r\n        d=ff(d,a,b,c,x[i+ 9],12,-1958414417);c=ff(c,d,a,b,x[i+10],17,     -42063);b=ff(b,c,d,a,x[i+11],22,-1990404162);\r\n        a=ff(a,b,c,d,x[i+12], 7, 1804603682);d=ff(d,a,b,c,x[i+13],12,  -40341101);c=ff(c,d,a,b,x[i+14],17,-1502002290);\r\n        b=ff(b,c,d,a,x[i+15],22, 1236535329);a=gg(a,b,c,d,x[i+ 1], 5, -165796510);d=gg(d,a,b,c,x[i+ 6], 9,-1069501632);\r\n        c=gg(c,d,a,b,x[i+11],14,  643717713);b=gg(b,c,d,a,x[i+ 0],20, -373897302);a=gg(a,b,c,d,x[i+ 5], 5, -701558691);\r\n        d=gg(d,a,b,c,x[i+10], 9,   38016083);c=gg(c,d,a,b,x[i+15],14, -660478335);b=gg(b,c,d,a,x[i+ 4],20, -405537848);\r\n        a=gg(a,b,c,d,x[i+ 9], 5,  568446438);d=gg(d,a,b,c,x[i+14], 9,-1019803690);c=gg(c,d,a,b,x[i+ 3],14, -187363961);\r\n        b=gg(b,c,d,a,x[i+ 8],20, 1163531501);a=gg(a,b,c,d,x[i+13], 5,-1444681467);d=gg(d,a,b,c,x[i+ 2], 9,  -51403784);\r\n        c=gg(c,d,a,b,x[i+ 7],14, 1735328473);b=gg(b,c,d,a,x[i+12],20,-1926607734);a=hh(a,b,c,d,x[i+ 5], 4,    -378558);\r\n        d=hh(d,a,b,c,x[i+ 8],11,-2022574463);c=hh(c,d,a,b,x[i+11],16, 1839030562);b=hh(b,c,d,a,x[i+14],23,  -35309556);\r\n        a=hh(a,b,c,d,x[i+ 1], 4,-1530992060);d=hh(d,a,b,c,x[i+ 4],11, 1272893353);c=hh(c,d,a,b,x[i+ 7],16, -155497632);\r\n        b=hh(b,c,d,a,x[i+10],23,-1094730640);a=hh(a,b,c,d,x[i+13], 4,  681279174);d=hh(d,a,b,c,x[i+ 0],11, -358537222);\r\n        c=hh(c,d,a,b,x[i+ 3],16, -722521979);b=hh(b,c,d,a,x[i+ 6],23,   76029189);a=hh(a,b,c,d,x[i+ 9], 4, -640364487);\r\n        d=hh(d,a,b,c,x[i+12],11, -421815835);c=hh(c,d,a,b,x[i+15],16,  530742520);b=hh(b,c,d,a,x[i+ 2],23, -995338651);\r\n        a=ii(a,b,c,d,x[i+ 0], 6, -198630844);d=ii(d,a,b,c,x[i+ 7],10, 1126891415);c=ii(c,d,a,b,x[i+14],15,-1416354905);\r\n        b=ii(b,c,d,a,x[i+ 5],21,  -57434055);a=ii(a,b,c,d,x[i+12], 6, 1700485571);d=ii(d,a,b,c,x[i+ 3],10,-1894986606);\r\n        c=ii(c,d,a,b,x[i+10],15,   -1051523);b=ii(b,c,d,a,x[i+ 1],21,-2054922799);a=ii(a,b,c,d,x[i+ 8], 6, 1873313359);\r\n        d=ii(d,a,b,c,x[i+15],10,  -30611744);c=ii(c,d,a,b,x[i+ 6],15,-1560198380);b=ii(b,c,d,a,x[i+13],21, 1309151649);\r\n        a=ii(a,b,c,d,x[i+ 4], 6, -145523070);d=ii(d,a,b,c,x[i+11],10,-1120210379);c=ii(c,d,a,b,x[i+ 2],15,  718787259);\r\n        b=ii(b,c,d,a,x[i+ 9],21, -343485551);a=ad(a,olda);b=ad(b,oldb);c=ad(c,oldc);d=ad(d,oldd);\r\n    }\r\n    return rh(a)+rh(b)+rh(c)+rh(d);\r\n  }\r\n  h = md5(N);\r\nend;\r\n  Result := h;\r\nend;\r\n\r\nfunction GetSysInfo: TSysInfo;\r\nbegin\r\n  asm\r\n    function GetInfo(window)\r\n    {\r\n        var unknown = '-';\r\n\r\n        // screen\r\n        var screenSize = '';\r\n        if (screen.width) {\r\n            var width = (screen.width) ? screen.width : '';\r\n            var height = (screen.height) ? screen.height : '';\r\n            screenSize += '' + width + \" x \" + height;\r\n        }\r\n\r\n        // browser\r\n        var nVer = navigator.appVersion;\r\n        var nAgt = navigator.userAgent;\r\n        var browser = navigator.appName;\r\n        var version = '' + parseFloat(navigator.appVersion);\r\n        var majorVersion = parseInt(navigator.appVersion, 10);\r\n        var nameOffset, verOffset, ix;\r\n\r\n        // Opera\r\n        if ((verOffset = nAgt.indexOf('Opera')) != -1) {\r\n            browser = 'Opera';\r\n            version = nAgt.substring(verOffset + 6);\r\n            if ((verOffset = nAgt.indexOf('Version')) != -1) {\r\n                version = nAgt.substring(verOffset + 8);\r\n            }\r\n        }\r\n        // Opera Next\r\n        if ((verOffset = nAgt.indexOf('OPR')) != -1) {\r\n            browser = 'Opera';\r\n            version = nAgt.substring(verOffset + 4);\r\n        }\r\n        // Legacy Edge\r\n        else if ((verOffset = nAgt.indexOf('Edge')) != -1) {\r\n            browser = 'Microsoft Legacy Edge';\r\n            version = nAgt.substring(verOffset + 5);\r\n        }\r\n        // Edge (Chromium)\r\n        else if ((verOffset = nAgt.indexOf('Edg')) != -1) {\r\n            browser = 'Microsoft Edge';\r\n            version = nAgt.substring(verOffset + 4);\r\n        }\r\n        // MSIE\r\n        else if ((verOffset = nAgt.indexOf('MSIE')) != -1) {\r\n            browser = 'Microsoft Internet Explorer';\r\n            version = nAgt.substring(verOffset + 5);\r\n        }\r\n        // Chrome\r\n        else if ((verOffset = nAgt.indexOf('Chrome')) != -1) {\r\n            browser = 'Chrome';\r\n            version = nAgt.substring(verOffset + 7);\r\n        }\r\n        // Safari\r\n        else if ((verOffset = nAgt.indexOf('Safari')) != -1) {\r\n            browser = 'Safari';\r\n            version = nAgt.substring(verOffset + 7);\r\n            if ((verOffset = nAgt.indexOf('Version')) != -1) {\r\n                version = nAgt.substring(verOffset + 8);\r\n            }\r\n        }\r\n        // Firefox\r\n        else if ((verOffset = nAgt.indexOf('Firefox')) != -1) {\r\n            browser = 'Firefox';\r\n            version = nAgt.substring(verOffset + 8);\r\n        }\r\n        // MSIE 11+\r\n        else if (nAgt.indexOf('Trident/') != -1) {\r\n            browser = 'Microsoft Internet Explorer';\r\n            version = nAgt.substring(nAgt.indexOf('rv:') + 3);\r\n        }\r\n        // Other browsers\r\n        else if ((nameOffset = nAgt.lastIndexOf(' ') + 1) < (verOffset = nAgt.lastIndexOf('/'))) {\r\n            browser = nAgt.substring(nameOffset, verOffset);\r\n            version = nAgt.substring(verOffset + 1);\r\n            if (browser.toLowerCase() == browser.toUpperCase()) {\r\n                browser = navigator.appName;\r\n            }\r\n        }\r\n        // trim the version string\r\n        if ((ix = version.indexOf(';')) != -1) version = version.substring(0, ix);\r\n        if ((ix = version.indexOf(' ')) != -1) version = version.substring(0, ix);\r\n        if ((ix = version.indexOf(')')) != -1) version = version.substring(0, ix);\r\n\r\n        majorVersion = parseInt('' + version, 10);\r\n        if (isNaN(majorVersion)) {\r\n            version = '' + parseFloat(navigator.appVersion);\r\n            majorVersion = parseInt(navigator.appVersion, 10);\r\n        }\r\n\r\n        // mobile version\r\n        var mobile = /Mobile|mini|Fennec|Android|iP(ad|od|hone)/.test(nVer);\r\n\r\n        // cookie\r\n        var cookieEnabled = (navigator.cookieEnabled) ? true : false;\r\n\r\n        if (typeof navigator.cookieEnabled == 'undefined' && !cookieEnabled) {\r\n            document.cookie = 'testcookie';\r\n            cookieEnabled = (document.cookie.indexOf('testcookie') != -1) ? true : false;\r\n        }\r\n\r\n        // system\r\n        var os = unknown;\r\n        var clientStrings = [\r\n            {s:'Windows 10', r:/(Windows 10.0|Windows NT 10.0)/},\r\n            {s:'Windows 8.1', r:/(Windows 8.1|Windows NT 6.3)/},\r\n            {s:'Windows 8', r:/(Windows 8|Windows NT 6.2)/},\r\n            {s:'Windows 7', r:/(Windows 7|Windows NT 6.1)/},\r\n            {s:'Windows Vista', r:/Windows NT 6.0/},\r\n            {s:'Windows Server 2003', r:/Windows NT 5.2/},\r\n            {s:'Windows XP', r:/(Windows NT 5.1|Windows XP)/},\r\n            {s:'Windows 2000', r:/(Windows NT 5.0|Windows 2000)/},\r\n            {s:'Windows ME', r:/(Win 9x 4.90|Windows ME)/},\r\n            {s:'Windows 98', r:/(Windows 98|Win98)/},\r\n            {s:'Windows 95', r:/(Windows 95|Win95|Windows_95)/},\r\n            {s:'Windows NT 4.0', r:/(Windows NT 4.0|WinNT4.0|WinNT|Windows NT)/},\r\n            {s:'Windows CE', r:/Windows CE/},\r\n            {s:'Windows 3.11', r:/Win16/},\r\n            {s:'Android', r:/Android/},\r\n            {s:'Open BSD', r:/OpenBSD/},\r\n            {s:'Sun OS', r:/SunOS/},\r\n            {s:'Chrome OS', r:/CrOS/},\r\n            {s:'Linux', r:/(Linux|X11(?!.*CrOS))/},\r\n            {s:'iOS', r:/(iPhone|iPad|iPod)/},\r\n            {s:'Mac OS X', r:/Mac OS X/},\r\n            {s:'Mac OS', r:/(Mac OS|MacPPC|MacIntel|Mac_PowerPC|Macintosh)/},\r\n            {s:'QNX', r:/QNX/},\r\n            {s:'UNIX', r:/UNIX/},\r\n            {s:'BeOS', r:/BeOS/},\r\n            {s:'OS/2', r:/OS\\/2/},\r\n            {s:'Search Bot', r:/(nuhk|Googlebot|Yammybot|Openbot|Slurp|MSNBot|Ask Jeeves\\/Teoma|ia_archiver)/}\r\n        ];\r\n        for (var id in clientStrings) {\r\n            var cs = clientStrings[id];\r\n            if (cs.r.test(nAgt)) {\r\n                os = cs.s;\r\n                break;\r\n            }\r\n        }\r\n\r\n        var osVersion = unknown;\r\n\r\n        if (/Windows/.test(os)) {\r\n            osVersion = /Windows (.*)/.exec(os)[1];\r\n            os = 'Windows';\r\n        }\r\n\r\n        switch (os) {\r\n            case 'Mac OS':\r\n            case 'Mac OS X':\r\n            case 'Android':\r\n                osVersion = /(?:Android|Mac OS|Mac OS X|MacPPC|MacIntel|Mac_PowerPC|Macintosh) ([\\.\\_\\d]+)/.exec(nAgt)[1];\r\n                break;\r\n\r\n            case 'iOS':\r\n                osVersion = /OS (\\d+)_(\\d+)_?(\\d+)?/.exec(nVer);\r\n                osVersion = osVersion[1] + '.' + osVersion[2] + '.' + (osVersion[3] | 0);\r\n                break;\r\n        }\r\n\r\n        // flash (you'll need to include swfobject)\r\n        /* script src=\"//ajax.googleapis.com/ajax/libs/swfobject/2.2/swfobject.js\" */\r\n        var flashVersion = 'no check';\r\n        if (typeof swfobject != 'undefined') {\r\n            var fv = swfobject.getFlashPlayerVersion();\r\n            if (fv.major > 0) {\r\n                flashVersion = fv.major + '.' + fv.minor + ' r' + fv.release;\r\n            }\r\n            else  {\r\n                flashVersion = unknown;\r\n            }\r\n        }\r\n       Result.screenSize = screenSize;\r\n       Result.browser = browser;\r\n       Result.browserversion = version;\r\n       Result.browsermajorVersion = majorVersion;\r\n       Result.mobile = mobile;\r\n       Result.os = os;\r\n       Result.osVersion = osVersion;\r\n       Result.cookieEnabled = cookieEnabled;\r\n      }\r\n      GetInfo(window);\r\n    end;\r\nend;\r\n\r\n\r\n{ TJsonToObjectHelper }\r\n\r\nprocedure TJsonToObjectHelper.FromJSON(JSONValue: JSValue);\r\nvar\r\n  Context: TRttiContext;\r\n  TypeInfo: TRttiType;\r\n  v: TValue;\r\n\r\n  procedure ListProperties(AObject: TObject; jsv: JSValue);\r\n  begin\r\n    asm\r\n      for (var key in jsv) {\r\n      if (jsv.hasOwnProperty(key)) {\r\n        //console.log(key + \" / \" + jsv[key]);\r\n        SetProperty(AObject, key, jsv[key]);\r\n      }\r\n    }\r\n    end;\r\n  end;\r\n\r\n  procedure SetProperty(AObject: TObject; Name: string; AValue: JSValue);\r\n  var\r\n    pn: string;\r\n    Prop: TRttiProperty;\r\n    PropTypeInfo: TRttiType;\r\n  begin\r\n    if Name = '' then\r\n      Exit;\r\n\r\n    TypeInfo := Context.GetTYpe(AObject.ClassType);\r\n\r\n    Prop := TypeInfo.GetProperty(Name);\r\n\r\n    if Assigned(Prop) then\r\n    begin\r\n      pn := Prop.PropertyType.Name;\r\n\r\n      PropTypeInfo := Prop.PropertyType;\r\n\r\n      if (PropTypeInfo.TypeKind = tkClass) and Prop.GetValue(AObject).IsObject then\r\n      begin\r\n        ListProperties(Prop.GetValue(AObject).AsObject, AValue);\r\n      end;\r\n\r\n      if pn = 'string' then\r\n      begin\r\n        v := TValue.From<string>(string(AValue));\r\n        Prop.SetValue(AObject, v);\r\n      end;\r\n\r\n      if pn = 'longint' then\r\n      begin\r\n        v := TValue.From<integer>(integer(AValue));\r\n        Prop.SetValue(AObject, v);\r\n      end;\r\n\r\n      if pn = 'boolean' then\r\n      begin\r\n        v := TValue.From<boolean>(string(AValue)='true');\r\n        Prop.SetValue(AObject, v);\r\n      end;\r\n\r\n      if pn = 'double' then\r\n      begin\r\n        v := TValue.From<double>(double(AValue));\r\n        Prop.SetValue(AObject, v);\r\n      end;\r\n\r\n      if pn = 'TDateTime' then\r\n      begin\r\n        v := TValue.From<TDateTime>(TRESTClient.IsoToDateTime(string(AValue), true));\r\n        Prop.SetValue(AObject, v);\r\n      end;\r\n\r\n      if pn = 'TDate' then\r\n      begin\r\n        v := TValue.From<TDateTime>(TRESTClient.IsoToDate(string(AValue)));\r\n        Prop.SetValue(AObject, v);\r\n      end;\r\n\r\n      if pn = 'TTime' then\r\n      begin\r\n        v := TValue.From<TDateTime>(TRESTClient.IsoToTime(string(AValue)));\r\n        Prop.SetValue(AObject, v);\r\n      end;\r\n\r\n    end;\r\n  end;\r\n\r\nbegin\r\n  Context := TRttiContext.Create;\r\n  SetProperty(Self,'',nil);  // for sake of warnings\r\n  ListProperties(Self, JSONValue);\r\n  Context.Free;\r\nend;\r\n\r\nprocedure TJsonToObjectHelper.FromJSON(JSONValue: string);\r\nvar\r\n  jsv: JSValue;\r\nbegin\r\n  jsv := nil;\r\n  asm\r\n    jsv = JSON.parse(JSONValue);\r\n  end;\r\n  FromJSON(jsv);\r\nend;\r\n\r\nfunction TJSonToObjectHelper.ToJSON: JSValue;\r\nvar\r\n  Context: TRttiContext;\r\n  TypeInfo: TRttiType;\r\n  Prop: TRttiProperty;\r\n  jsonstr,pn: string;\r\n  res: JSValue;\r\n  PropTypeInfo: TRttiType;\r\n\r\n  procedure ListProperties(AObject: TObject; ATypeInfo: TRttiType;var js: string);\r\n  var\r\n    sub,sep, subn: string;\r\n  begin\r\n    for Prop in ATypeInfo.GetProperties do\r\n    begin\r\n      PropTypeInfo := Prop.PropertyType;\r\n\r\n      sep := '';\r\n      if Length(js) > 1 then\r\n        sep := ',';\r\n\r\n      subn := Prop.Name;\r\n\r\n//      js := js + sep + '\"' + Prop.Name + '\":';\r\n\r\n      pn := Prop.PropertyType.Name;\r\n\r\n      if (PropTypeInfo.TypeKind = tkClass) and Prop.GetValue(AObject).IsObject then\r\n      begin\r\n        sub := '{';\r\n\r\n        ListProperties(Prop.GetValue(AObject).AsObject, Prop.PropertyType, sub);\r\n\r\n        sub := sub + '}';\r\n\r\n        js := js + sep +  '\"' + subn + '\":' + sub;\r\n\r\n        Continue;\r\n      end;\r\n\r\n      if pn = 'string' then\r\n      begin\r\n        js := js + sep + '\"' + Prop.Name + '\":' + '\"' + Prop.GetValue(AObject).ToString +'\"';\r\n      end;\r\n\r\n      if pn = 'longint' then\r\n      begin\r\n        js := js + sep + '\"' + Prop.Name + '\":' + IntToStr(Prop.GetValue(AObject).AsInteger);\r\n      end;\r\n\r\n      if pn = 'boolean' then\r\n      begin\r\n        if Prop.GetValue(AObject).AsBoolean then\r\n          js := js + sep + '\"' + Prop.Name + '\":' + 'true'\r\n        else\r\n          js := js + sep + '\"' + Prop.Name + '\":' + 'false';\r\n      end;\r\n\r\n      if pn = 'double' then\r\n      begin\r\n        js := js + sep + '\"' + Prop.Name + '\":' + floattostr(Prop.GetValue(AObject).AsExtended);\r\n      end;\r\n\r\n      if pn = 'TDateTime' then\r\n      begin\r\n        js := js + sep + '\"' + Prop.Name + '\":' + '\"' + TRESTClient.DateTimeToWL(Prop.GetValue(AObject).AsExtended)+'\"';\r\n      end;\r\n\r\n      if pn = 'TDate' then\r\n      begin\r\n        js := js + sep + '\"' + Prop.Name + '\":' + '\"' + TRESTClient.DateToWL(Prop.GetValue(AObject).AsExtended)+'\"';\r\n      end;\r\n\r\n      if pn = 'TTime' then\r\n      begin\r\n        js := js + sep + '\"' + Prop.Name + '\":' + '\"' + TRESTClient.TimeToWL(Prop.GetValue(AObject).AsExtended)+'\"';\r\n      end;\r\n\r\n    end;\r\n\r\n  end;\r\n\r\n\r\nbegin\r\n  Context := TRttiContext.Create;\r\n  TypeInfo := Context.GetType(Self.ClassType);\r\n\r\n  jsonstr := '{';\r\n\r\n  ListProperties(Self, TypeInfo, jsonstr);\r\n\r\n  jsonstr := jsonstr + '}';\r\n\r\n  asm\r\n    res = JSON.parse(jsonstr);\r\n  end;\r\n\r\n  Result := res;\r\n\r\n  Context.Free;\r\nend;\r\n\r\n\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.WebTools;\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, Web, JS, WEBLib.Controls, WEBLib.Graphics;\r\n\r\nconst\r\n  CRLF = #13#10;\r\n  LNBR = '<BR>';\r\n  cBodyTag = 'body';\r\n  cHTMLExt = '.html';\r\n\r\n\r\ntype\r\n  TOperatingSystem = (osUnknown, osWindows, osmacOS, osLinux, osAndroid, osiOS);\r\n\r\nfunction DoubleToHTML(d: double): string;\r\n\r\nprocedure MessageBeep(AType: integer);\r\nprocedure OutputDebugString(const s: string);\r\nfunction GetTickCount: longint;\r\nfunction GetQueryParam(AName: string): string;\r\nfunction HasQueryParam(AName: string; var AValue: string; CaseSensitive: boolean = true): boolean;\r\nfunction EscapeHTML(AValue: string): string;\r\n\r\nfunction GetLocaleShortDateFormat(ALocale: string = ''): string;\r\nfunction GetLocaleLongDayName(DayOfWeek: integer; ALocale: string = ''): string;\r\nfunction GetLocaleShortDayName(DayOfWeek: integer; ALocale: string = ''): string;\r\nfunction GetLocaleLongMonthName(Month: integer; ALocale: string = ''): string;\r\nfunction GetLocaleShortMonthName(Month: integer; ALocale: string = ''): string;\r\nfunction GetLocaleDecimalSeparator(ALocale: string = ''): string;\r\nfunction GetLocaleThousandSeparator(ALocale: string = ''): string;\r\nfunction LocaleFormatCurrency(Value: double; ACurrency: string; ALocale: string = ''): string;\r\nfunction GetLocaleCurrency(ALocale: string = ''): string;\r\nfunction GetBrowserLocale: string;\r\nfunction GetOperatingSystem: TOperatingSystem;\r\nfunction ProcessAccelerator(AValue: string; var Accelerator: string): string;\r\nfunction GetBase64Image(AImage: TJSHTMLElement; AWidth: integer = 0; AHeight: integer = 0): string;\r\nprocedure DebugBreak;\r\nfunction HexImageDecode(s: string): TJSUint8Array;\r\nfunction HexImageEncodeFromBase64(s: string): string;\r\nfunction HexImageEncode(a: TJSUint8Array): string;\r\nfunction HexImageDecodeAsBase64(s: string): string;\r\nfunction EmptyImage: string;\r\nfunction NumAttribute(s: single): string;\r\nfunction DataURLToFile(AURL: string; FileName: string): TJSHTMLFile;\r\nprocedure DownloadFile(AFile: TJSHTMLFile);\r\nfunction PickerDateToDate(s: string): TDateTime;\r\nfunction PickerTimeToTime(s: string): TDateTime;\r\nfunction URLString(s: string): string;\r\nfunction IsURl(s: string): Boolean;\r\nfunction EmojiString(s: string): string;\r\nfunction HTMLToString(s: string): string;\r\nfunction FileSizeFmt(Size: int64): string;\r\nfunction FileSizeFmtSpeed(Size: int64): string;\r\nfunction ElementVisible(el: TJSHTMLElement): boolean;\r\nfunction GetMaterialGlyph(AGlyph: string; ASize: integer = 0; AColor: TColor = clNone; AType: TMaterialGlyphType = mgNormal): string;\r\n\r\nimplementation\r\n\r\nuses\r\n  SysUtils, WEBLib.Utils;\r\n\r\nfunction EmptyImage: string;\r\nbegin\r\n  Result := 'data:image/gif;base64,R0lGODlhAQABAAAAACH5BAEKAAEALAAAAAABAAEAAAICTAEAOw==';\r\nend;\r\n\r\n\r\nfunction DataURLToFile(AURL: string; FileName: string): TJSHTMLFile;\r\nvar\r\n  afile: TJSHTMLFile;\r\nbegin\r\n  asm\r\n    var arr = AURL.split(','),\r\n    mime = arr[0].match(/:(.*?);/)[1],\r\n    bstr = atob(arr[1]),\r\n    n = bstr.length,\r\n    u8arr = new Uint8Array(n);\r\n    while(n--){\r\n      u8arr[n] = bstr.charCodeAt(n);\r\n    }\r\n    afile = new File([u8arr], FileName, {type:mime});\r\n  end;\r\n  Result := afile;\r\nend;\r\n\r\nprocedure DownloadFile(AFile: TJSHTMLFile);\r\nvar\r\n  a: TJSHTMLLinkElement;\r\nbegin\r\n  a := TJSHTMLLinkElement(document.createElement('a'));\r\n  asm\r\n    a.href = window.URL.createObjectURL(AFile);\r\n    a.download = AFile.name;\r\n  end;\r\n  a.click;\r\nend;\r\n\r\nfunction HexImageDecode(s: string): TJSUint8Array;\r\nvar\r\n  i,j,l: integer;\r\n  res: TJSUint8Array;\r\n  c1,c2: byte;\r\n  hdr: byte;\r\nbegin\r\n  l := Length(s) div 2;\r\n  j := 0;\r\n\r\n  c1 := ord(s[1]) - 48;\r\n  if c1 >= 10 then\r\n    c1 := c1 - 7;\r\n\r\n  c2 := ord(s[2]) -48;\r\n  if c2 >= 10 then\r\n    c2 := c2 - 7;\r\n\r\n  hdr := 1 + (c2 +  (c1 shl 4));\r\n\r\n  i := pos('4A5045474',s);\r\n  // possible extra 4 bytes when TJPEGImage?\r\n  if (i > 1) and (i < 10) then\r\n    inc(hdr,4);\r\n\r\n  i := pos('4269746D6',s);\r\n  // possible extra 4 bytes when TBitmap?\r\n  if (i > 1) and (i < 10) then\r\n    inc(hdr,4);\r\n\r\n  res := TJSUint8Array.new(l - hdr);\r\n\r\n  for i := hdr + 1 to l do\r\n  begin\r\n    c1 := ord(s[i*2 - 1]) - 48;\r\n    if c1 >= 10 then\r\n      c1 := c1 - 7;\r\n\r\n    c2 := ord(s[i*2]) -48;\r\n    if c2 >= 10 then\r\n      c2 := c2 - 7;\r\n\r\n    c2 := c2 +  (c1 shl 4);\r\n\r\n    res[j] := c2;\r\n    inc(j);\r\n  end;\r\n\r\n  Result := res;\r\nend;\r\n\r\n\r\nfunction HexImageEncode(a: TJSUint8Array): string;\r\nvar\r\n  i,l: integer;\r\n  b: byte;\r\n  s,ls: string;\r\nbegin\r\n  Result := '';\r\n\r\n  l := a.length;\r\n\r\n  if l = 0 then\r\n    Exit;\r\n\r\n  l := (l and $FF) shl 24 + (l and $FF00) shl 8 +  (l and $FF0000) shr 8 + (l and $FF000000) shr 24;\r\n\r\n  ls := '';\r\n\r\n  if (a[0] = 137) and (a[1] = 80) then\r\n  begin\r\n    s := 'TPngImage';\r\n    b := Length(s);\r\n  end;\r\n\r\n  if (a[0] = $FF) and (a[1] = $D8) then\r\n  begin\r\n    s := 'TJPEGImage';\r\n    b := Length(s);\r\n    ls := inttohex(l,8);\r\n  end;\r\n\r\n  if (a[0] = 66) and (a[1] = 77) then\r\n  begin\r\n    s := 'TBitmap';\r\n    b := Length(s);\r\n    ls := inttohex(l,8);\r\n  end;\r\n\r\n  if (a[0] = 71) and (a[1] = 73) then\r\n  begin\r\n    s := 'TGIFImage';\r\n    b := Length(s);\r\n  end;\r\n\r\n  Result := inttohex(b,2);\r\n\r\n  for i := 1 to length(s) do\r\n  begin\r\n    b := ord(s[i]);\r\n    Result := Result + inttohex(b,2);\r\n  end;\r\n\r\n  Result := Result + ls;\r\n\r\n  for i := 0 to a.length - 1 do\r\n  begin\r\n    b := a[i];\r\n    Result := Result + inttohex(b,2);\r\n  end;\r\nend;\r\n\r\nfunction PickerDateToDate(s: string): TDateTime;\r\nvar\r\n  ye,mo,da: string;\r\n  yei,moi,dai: word;\r\n  e: integer;\r\n\r\nbegin\r\n  Result := 0;\r\n\r\n  ye := copy(s,1,4);\r\n  mo := copy(s,6,2);\r\n  da := copy(s,9,2);\r\n\r\n  val(ye, yei, e);\r\n  val(mo, moi, e);\r\n  val(da, dai, e);\r\n\r\n  if (yei <> 0) and (moi <> 0) and (dai <> 0) then\r\n    Result := EncodeDate(yei, moi, dai)\r\nend;\r\n\r\nfunction PickerTimeToTime(s: string): TDateTime;\r\nvar\r\n  ho,mi,se: string;\r\n  hoi,mii,sei: word;\r\n  e: integer;\r\n\r\nbegin\r\n  Result := 0;\r\n\r\n  ho := copy(s,1,2);\r\n  mi := copy(s,4,2);\r\n  se := copy(s,7,2);\r\n\r\n  val(ho, hoi, e);\r\n  val(mi, mii, e);\r\n  val(se, sei, e);\r\n\r\n  if (hoi >= 0) and (mii >= 0) and (sei >= 0) then\r\n    Result := EncodeTime(hoi, mii, sei, 0);\r\nend;\r\n\r\nfunction URLString(s: string): string;\r\nvar\r\n  res: string;\r\nbegin\r\n  asm\r\n    function linkify(inputText) {\r\n    var replacedText, replacePattern1, replacePattern2, replacePattern3;\r\n\r\n    //URLs starting with http://, https://, or ftp://\r\n    replacePattern1 = /(\\b(https?|ftp):\\/\\/[-A-Z0-9+&@#\\/%?=~_|!:,.;]*[-A-Z0-9+&@#\\/%=~_|])/gim;\r\n    replacedText = inputText.replace(replacePattern1, '<a href=\"$1\" target=\"_blank\">$1</a>');\r\n\r\n    //URLs starting with \"www.\" (without // before it, or it'd re-link the ones done above).\r\n    replacePattern2 = /(^|[^\\/])(www\\.[\\S]+(\\b|$))/gim;\r\n    replacedText = replacedText.replace(replacePattern2, '$1<a href=\"http://$2\" target=\"_blank\">$2</a>');\r\n\r\n    //Change email addresses to mailto:: links.\r\n    replacePattern3 = /(([a-zA-Z0-9\\-\\_\\.])+@[a-zA-Z\\_]+?(\\.[a-zA-Z]{2,6})+)/gim;\r\n    replacedText = replacedText.replace(replacePattern3, '<a href=\"mailto:$1\">$1</a>');\r\n\r\n    return replacedText;\r\n    }\r\n    res = linkify(s);\r\n  end;\r\n  Result := res;\r\nend;\r\n\r\nfunction IsURl(s: string): Boolean;\r\nvar\r\n  res: Boolean;\r\nbegin\r\n  asm\r\n  function CheckIsUrl(inputText) {\r\n    if(new RegExp(\"([a-zA-Z0-9]+://)?([a-zA-Z0-9_]+:[a-zA-Z0-9_]+@)?([a-zA-Z0-9.-]+\\\\.[A-Za-z]{2,4})(:[0-9]+)?(/.*)?\").test(inputText)) {\r\n        return true;\r\n    }\r\n    return false;\r\n    }\r\n    res = CheckIsUrl(s);\r\n  end; \r\n  Result := res; \r\nend;\r\n\r\nfunction HTMLToString(s: string): string;\r\nbegin\r\n  s := StringReplace(s,'<','&lt;',[rfReplaceAll]);\r\n  Result := StringReplace(s,'>','&gt;',[rfReplaceAll]);\r\nend;\r\n\r\n// info\r\n// https://unicode.org/emoji/charts/full-emoji-list.html\r\n// https://en.wikipedia.org/wiki/List_of_emoticons\r\n\r\nfunction Emojistring(s: string): string;\r\nvar\r\n  ls: TStringList;\r\n  i: integer;\r\n  v,k: string;\r\nbegin\r\n  for i := 1 to Length(s) do\r\n    if s[i] = '|' then\r\n      s[i] := '¦';\r\n\r\n  ls := TStringList.Create;\r\n  ls.AddPair(':)','&#x1F600;');\r\n  ls.AddPair(':D','&#x1F601;');\r\n  ls.AddPair(';)','&#x1F609;');\r\n  ls.AddPair(':O','&#x1F62E;');\r\n  ls.AddPair(':*','&#x1F617;');\r\n  ls.AddPair(':P','&#x1F61C;');\r\n  ls.AddPair(':(','&#x1F641;');\r\n  ls.AddPair(':¦','&#x1F610;');\r\n  ls.AddPair(':X','&#x1F910;');\r\n  ls.AddPair('¦;)','&#x1F60E;');\r\n  ls.AddPair(':<','&#x1F621;');\r\n\r\n  for i := 0 to ls.Count - 1 do\r\n  begin\r\n    v := ls.Names[i];\r\n    k := ls.Values[v];\r\n    s := StringReplace(s,v,k,[rfReplaceAll]);\r\n  end;\r\n\r\n  ls.Free;\r\n\r\n  Result := s;\r\nend;\r\n\r\n{$HINTS OFF}\r\n\r\nfunction HexImageEncodeFromBase64(s: string): string;\r\nvar\r\n  ja: TJSUint8Array;\r\nbegin\r\n  asm\r\n    s = s.replace(/^data:image\\/\\S+;base64,/, \"\");\r\n    //ja = Uint8Array.from(atob(s), c => c.charCodeAt(0))\r\n    ja = Uint8Array.from(atob(s), function(c) { return c.charCodeAt(0);} )\r\n  end;\r\n\r\n  Result := HexImageEncode(ja);\r\nend;\r\n\r\nfunction HexImageDecodeAsBase64(s: string): string;\r\nvar\r\n  ja: TJSUint8Array;\r\nbegin\r\n  ja := HexImageDecode(s);\r\n  asm\r\n    s = btoa(new Uint8Array(ja).reduce(function (data, byte) {\r\n      return data + String.fromCharCode(byte);\r\n      }, ''));\r\n  end;\r\n  Result := s;\r\nend;\r\n\r\nfunction GetBase64Image(AImage: TJSHTMLElement; AWidth: integer = 0; AHeight: integer = 0): string;\r\nvar\r\n  s: string;\r\n  m: TJSHTMLElement;\r\nbegin\r\n  s := '';\r\n  m := AImage;\r\n  asm\r\n    function getBase64Image(img) {\r\n      var canvas = document.createElement(\"canvas\");\r\n      if (AWidth == 0) {\r\n        canvas.width = img.width; }\r\n        else {\r\n        canvas.width = AWidth; }\r\n      if (AHeight == 0) {\r\n      canvas.height = img.height; }\r\n      else {\r\n        canvas.height = AHeight; }\r\n      var ctx = canvas.getContext(\"2d\");\r\n      if ((AWidth == 0) || (AHeight == 0)) {\r\n         ctx.drawImage(img, 0, 0); }\r\n      else {\r\n         ctx.drawImage(img, 0, 0, AWidth, AHeight); }\r\n      var dataURL = canvas.toDataURL(\"image/png\");\r\n      return dataURL.replace(/^data:image\\/(png|jpg);base64,/, \"\");\r\n    }\r\n    s = getBase64Image(m);\r\n  end;\r\n  Result := s;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure DebugBreak;\r\n  asm\r\n    debugger;\r\n  end;\r\n\r\nfunction DoubleToHTML(d: double): string;\r\nbegin\r\n  Result := Format('%g',[d], TFormatSettings.Invariant);\r\nend;\r\n\r\nprocedure OutputDebugString(const s: string);\r\nbegin\r\n  asm\r\n    console.log(s);\r\n  end;\r\nend;\r\n\r\nfunction GetTickCount: longint;\r\nvar\r\n  n: longint;\r\nbegin\r\n  asm\r\n    var d = new Date();\r\n    n = d.getTime();\r\n  end;\r\n\r\n  Result := n;\r\nend;\r\n\r\nfunction HasQueryParam(AName: string; var AValue: string; CaseSensitive: boolean = true): boolean;\r\nvar\r\n  found: boolean;\r\n  s: string;\r\nbegin\r\n  s := '';\r\n  if not CaseSensitive then\r\n    AName := Uppercase(AName);\r\n\r\n  asm\r\n    var query = window.location.search.substring(1);\r\n    var res = \"\";\r\n    var key = \"\";\r\n    found = false;\r\n    var vars = query.split('&');\r\n    for (var i = 0; i < vars.length; i++) {\r\n      var pair = vars[i].split('=');\r\n\r\n      key = decodeURIComponent(pair[0]);\r\n      if (CaseSensitive == false)\r\n      {\r\n        key = key.toUpperCase();\r\n      }\r\n\r\n      if (key == AName) {\r\n          res = decodeURIComponent(pair[1]);\r\n          found = true;\r\n       }\r\n    }\r\n    s = res;\r\n  end;\r\n\r\n  AValue := s;\r\n  Result := found;\r\nend;\r\n\r\nfunction GetQueryParam(AName: string): string;\r\nvar\r\n  res: string;\r\nbegin\r\n  HasQueryParam(AName,res);\r\n  Result := res;\r\nend;\r\n\r\n\r\nfunction GetLocaleShortDateFormat(ALocale: string = ''): string;\r\nbegin\r\n  Result := TFormatSettings.Create(ALocale).ShortDateFormat;\r\nend;\r\n\r\nfunction GetLocaleLongDayName(DayOfWeek: integer; ALocale: string = ''): string;\r\nvar\r\n  res: string;\r\nbegin\r\n  asm\r\n    var baseDate = new Date(2017, 0, 1); // Sunday\r\n    baseDate.setDate(baseDate.getDate() + DayOfWeek - 1);\r\n\r\n    var loc = \"\";\r\n    if (ALocale == '') { loc = navigator.language; }\r\n    else { loc = ALocale; }\r\n\r\n    res = baseDate.toLocaleDateString(loc, { weekday: 'long' });\r\n  end;\r\n  Result := res;\r\nend;\r\n\r\nfunction GetLocaleShortDayName(DayOfWeek: integer; ALocale: string = ''): string;\r\nvar\r\n  res: string;\r\nbegin\r\n  asm\r\n    var baseDate = new Date(2017, 0, 1); // Sunday\r\n    baseDate.setDate(baseDate.getDate() + DayOfWeek - 1);\r\n\r\n    var loc = \"\";\r\n    if (ALocale == '') { loc = navigator.language; }\r\n    else { loc = ALocale; }\r\n\r\n    res = baseDate.toLocaleDateString(loc, { weekday: 'short' });\r\n  end;\r\n  Result := res;\r\nend;\r\n\r\nfunction GetLocaleLongMonthName(Month: integer; ALocale: string = ''): string;\r\nvar\r\n  res: string;\r\nbegin\r\n  asm\r\n    var baseDate = new Date(2017, Month - 1, 1);\r\n\r\n    var loc = \"\";\r\n    if (ALocale == '') { loc = navigator.language; }\r\n    else { loc = ALocale; }\r\n\r\n    res = baseDate.toLocaleDateString(loc, { month: 'long' });\r\n  end;\r\n\r\n  Result := res;\r\nend;\r\n\r\nfunction GetLocaleShortMonthName(Month: integer; ALocale: string = ''): string;\r\nvar\r\n  res: string;\r\nbegin\r\n  asm\r\n    var baseDate = new Date(2017, Month - 1, 1);\r\n\r\n    var loc = \"\";\r\n    if (ALocale == '') { loc = navigator.language; }\r\n    else { loc = ALocale; }\r\n\r\n    res = baseDate.toLocaleDateString(loc, { month: 'short' });\r\n  end;\r\n\r\n  Result := res;\r\nend;\r\n\r\nfunction GetLocaleDecimalSeparator(ALocale: string = ''): string;\r\nvar\r\n  res: string;\r\nbegin\r\n  asm\r\n    var n = 1.1;\r\n    var loc = \"\";\r\n    if (ALocale == '') { loc = navigator.language; }\r\n    else { loc = ALocale; }\r\n\r\n    n = n.toLocaleString(loc).substring(1, 2);\r\n    res = n;\r\n  end;\r\n  Result := res;\r\nend;\r\n\r\nfunction GetLocaleThousandSeparator(ALocale: string = ''): string;\r\nvar\r\n  res: string;\r\nbegin\r\n  asm\r\n    var n = 1000.1;\r\n    var loc = \"\";\r\n    if (ALocale == '') { loc = navigator.language; }\r\n    else { loc = ALocale; }\r\n    n = n.toLocaleString(loc).substring(1, 2);\r\n    res = n;\r\n  end;\r\n  Result := res;\r\nend;\r\n\r\nfunction LocaleFormatCurrency(Value: double; ACurrency: string; ALocale: string = ''): string;\r\nvar\r\n  res: string;\r\nbegin\r\n\r\n  asm\r\n    var loc = \"\";\r\n    if (ALocale == '') { loc = navigator.language; }\r\n    else { loc = ALocale; }\r\n    var number = Value;\r\n    res = number.toLocaleString(loc, { style: 'currency', currency: ACurrency });\r\n  end;\r\n  Result := res;\r\nend;\r\n\r\nfunction GetLocaleCurrency(ALocale: string = ''): string;\r\nvar\r\n  res: string;\r\nbegin\r\n  asm\r\n    var curr =\r\n      {\"BD\": \"BDT\", \"BE\": \"EUR\", \"BF\": \"XOF\", \"BG\": \"BGN\", \"BA\": \"BAM\", \"BB\": \"BBD\", \"WF\": \"XPF\",\r\n       \"BL\": \"EUR\", \"BM\": \"BMD\", \"BN\": \"BND\", \"BO\": \"BOB\", \"BH\": \"BHD\", \"BI\": \"BIF\", \"BJ\": \"XOF\",\r\n       \"BT\": \"BTN\", \"JM\": \"JMD\", \"BV\": \"NOK\", \"BW\": \"BWP\", \"WS\": \"WST\", \"BQ\": \"USD\", \"BR\": \"BRL\",\r\n       \"BS\": \"BSD\", \"JE\": \"GBP\", \"BY\": \"BYR\", \"BZ\": \"BZD\", \"RU\": \"RUB\", \"RW\": \"RWF\", \"RS\": \"RSD\",\r\n       \"TL\": \"USD\", \"RE\": \"EUR\", \"TM\": \"TMT\", \"TJ\": \"TJS\", \"RO\": \"RON\", \"TK\": \"NZD\", \"GW\": \"XOF\",\r\n       \"GU\": \"USD\", \"GT\": \"GTQ\", \"GS\": \"GBP\", \"GR\": \"EUR\", \"GQ\": \"XAF\", \"GP\": \"EUR\", \"JP\": \"JPY\",\r\n       \"GY\": \"GYD\", \"GG\": \"GBP\", \"GF\": \"EUR\", \"GE\": \"GEL\", \"GD\": \"XCD\", \"GB\": \"GBP\", \"GA\": \"XAF\",\r\n       \"SV\": \"USD\", \"GN\": \"GNF\", \"GM\": \"GMD\", \"GL\": \"DKK\", \"GI\": \"GIP\", \"GH\": \"GHS\", \"OM\": \"OMR\",\r\n       \"TN\": \"TND\", \"JO\": \"JOD\", \"HR\": \"HRK\", \"HT\": \"HTG\", \"HU\": \"HUF\", \"HK\": \"HKD\", \"HN\": \"HNL\",\r\n       \"HM\": \"AUD\", \"VE\": \"VEF\", \"PR\": \"USD\", \"PS\": \"ILS\", \"PW\": \"USD\", \"PT\": \"EUR\", \"SJ\": \"NOK\",\r\n       \"PY\": \"PYG\", \"IQ\": \"IQD\", \"PA\": \"PAB\", \"PF\": \"XPF\", \"PG\": \"PGK\", \"PE\": \"PEN\", \"PK\": \"PKR\",\r\n       \"PH\": \"PHP\", \"PN\": \"NZD\", \"PL\": \"PLN\", \"PM\": \"EUR\", \"ZM\": \"ZMK\", \"EH\": \"MAD\", \"EE\": \"EUR\",\r\n       \"EG\": \"EGP\", \"ZA\": \"ZAR\", \"EC\": \"USD\", \"IT\": \"EUR\", \"VN\": \"VND\", \"SB\": \"SBD\", \"ET\": \"ETB\",\r\n       \"SO\": \"SOS\", \"ZW\": \"ZWL\", \"SA\": \"SAR\", \"ES\": \"EUR\", \"ER\": \"ERN\", \"ME\": \"EUR\", \"MD\": \"MDL\",\r\n       \"MG\": \"MGA\", \"MF\": \"EUR\", \"MA\": \"MAD\", \"MC\": \"EUR\", \"UZ\": \"UZS\", \"MM\": \"MMK\", \"ML\": \"XOF\",\r\n       \"MO\": \"MOP\", \"MN\": \"MNT\", \"MH\": \"USD\", \"MK\": \"MKD\", \"MU\": \"MUR\", \"MT\": \"EUR\", \"MW\": \"MWK\",\r\n       \"MV\": \"MVR\", \"MQ\": \"EUR\", \"MP\": \"USD\", \"MS\": \"XCD\", \"MR\": \"MRO\", \"IM\": \"GBP\", \"UG\": \"UGX\",\r\n       \"TZ\": \"TZS\", \"MY\": \"MYR\", \"MX\": \"MXN\", \"IL\": \"ILS\", \"FR\": \"EUR\", \"IO\": \"USD\", \"SH\": \"SHP\",\r\n       \"FI\": \"EUR\", \"FJ\": \"FJD\", \"FK\": \"FKP\", \"FM\": \"USD\", \"FO\": \"DKK\", \"NI\": \"NIO\", \"NL\": \"EUR\",\r\n       \"NO\": \"NOK\", \"NA\": \"NAD\", \"VU\": \"VUV\", \"NC\": \"XPF\", \"NE\": \"XOF\", \"NF\": \"AUD\", \"NG\": \"NGN\",\r\n       \"NZ\": \"NZD\", \"NP\": \"NPR\", \"NR\": \"AUD\", \"NU\": \"NZD\", \"CK\": \"NZD\", \"XK\": \"EUR\", \"CI\": \"XOF\",\r\n       \"CH\": \"CHF\", \"CO\": \"COP\", \"CN\": \"CNY\", \"CM\": \"XAF\", \"CL\": \"CLP\", \"CC\": \"AUD\", \"CA\": \"CAD\",\r\n       \"CG\": \"XAF\", \"CF\": \"XAF\", \"CD\": \"CDF\", \"CZ\": \"CZK\", \"CY\": \"EUR\", \"CX\": \"AUD\", \"CR\": \"CRC\",\r\n       \"CW\": \"ANG\", \"CV\": \"CVE\", \"CU\": \"CUP\", \"SZ\": \"SZL\", \"SY\": \"SYP\", \"SX\": \"ANG\", \"KG\": \"KGS\",\r\n       \"KE\": \"KES\", \"SS\": \"SSP\", \"SR\": \"SRD\", \"KI\": \"AUD\", \"KH\": \"KHR\", \"KN\": \"XCD\", \"KM\": \"KMF\",\r\n       \"ST\": \"STD\", \"SK\": \"EUR\", \"KR\": \"KRW\", \"SI\": \"EUR\", \"KP\": \"KPW\", \"KW\": \"KWD\", \"SN\": \"XOF\",\r\n       \"SM\": \"EUR\", \"SL\": \"SLL\", \"SC\": \"SCR\", \"KZ\": \"KZT\", \"KY\": \"KYD\", \"SG\": \"SGD\", \"SE\": \"SEK\",\r\n       \"SD\": \"SDG\", \"DO\": \"DOP\", \"DM\": \"XCD\", \"DJ\": \"DJF\", \"DK\": \"DKK\", \"VG\": \"USD\", \"DE\": \"EUR\",\r\n       \"YE\": \"YER\", \"DZ\": \"DZD\", \"US\": \"USD\", \"UY\": \"UYU\", \"YT\": \"EUR\", \"UM\": \"USD\", \"LB\": \"LBP\",\r\n       \"LC\": \"XCD\", \"LA\": \"LAK\", \"TV\": \"AUD\", \"TW\": \"TWD\", \"TT\": \"TTD\", \"TR\": \"TRY\", \"LK\": \"LKR\",\r\n       \"LI\": \"CHF\", \"LV\": \"EUR\", \"TO\": \"TOP\", \"LT\": \"LTL\", \"LU\": \"EUR\", \"LR\": \"LRD\", \"LS\": \"LSL\",\r\n       \"TH\": \"THB\", \"TF\": \"EUR\", \"TG\": \"XOF\", \"TD\": \"XAF\", \"TC\": \"USD\", \"LY\": \"LYD\", \"VA\": \"EUR\",\r\n       \"VC\": \"XCD\", \"AE\": \"AED\", \"AD\": \"EUR\", \"AG\": \"XCD\", \"AF\": \"AFN\", \"AI\": \"XCD\", \"VI\": \"USD\",\r\n       \"IS\": \"ISK\", \"IR\": \"IRR\", \"AM\": \"AMD\", \"AL\": \"ALL\", \"AO\": \"AOA\", \"AQ\": \"\", \"AS\": \"USD\",\r\n       \"AR\": \"ARS\", \"AU\": \"AUD\", \"AT\": \"EUR\", \"AW\": \"AWG\", \"IN\": \"INR\", \"AX\": \"EUR\", \"AZ\": \"AZN\",\r\n       \"IE\": \"EUR\", \"ID\": \"IDR\", \"UA\": \"UAH\", \"QA\": \"QAR\", \"MZ\": \"MZN\"}\r\n\r\n    var loc = \"\";\r\n    if (ALocale == '') { loc = navigator.language; }\r\n    else { loc = ALocale; }\r\n    loc = loc.substring(3,5);\r\n    loc = loc.toUpperCase();\r\n    res = curr[loc] || '';\r\n  end;\r\n  Result := res;\r\nend;\r\n\r\n\r\n\r\nfunction GetBrowserLocale: string;\r\nvar\r\n  res: string;\r\nbegin\r\n  asm\r\n    res = navigator.language\r\n  end;\r\n  Result := res;\r\nend;\r\n\r\n\r\nfunction ProcessAccelerator(AValue: string; var Accelerator: string): string;\r\nvar\r\n  i,l: integer;\r\n  res: string;\r\nbegin\r\n  l := Length(AValue);\r\n\r\n  Accelerator := '';\r\n\r\n  res := '';\r\n\r\n  i := 1;\r\n  while (i <= l) do\r\n  begin\r\n    if (AValue[i] = '&') then\r\n    begin\r\n      if (i + 1 <= l) and (AValue[i + 1] <> '&') then\r\n      begin\r\n        res := res + '<u>' + AValue[i + 1] + '</u>';\r\n        Accelerator := AValue[i + 1];\r\n      end\r\n      else\r\n      if (i + 1 <= l) and (AValue[i + 1] = '&') then\r\n        res := res + '&';\r\n      inc(i, 2);\r\n    end\r\n    else\r\n    begin\r\n      res := res + AValue[i];\r\n      inc(i);\r\n    end;\r\n\r\n  end;\r\n\r\n  Result := res;\r\nend;\r\n\r\nfunction EscapeHTML(AValue: string): string;\r\nvar\r\n  s: string;\r\nbegin\r\n  s := AValue;\r\n  asm\r\n    function escapeHTML(AString) {\r\n      return AString.replace(/&/g,'&amp;').replace(/</g,'&lt;').replace(/>/g,'&gt;');\r\n    }\r\n    s = escapeHTML(s);\r\n  end;\r\n  Result := s;\r\nend;\r\n\r\nfunction NumAttribute(s: single): string;\r\nvar\r\n  res: string;\r\nbegin\r\n  res := s.ToString;\r\n  Result := StringReplace(res, ',','.',[rfReplaceAll]);\r\nend;\r\n\r\nfunction FileSizeFmt(Size: int64): string;\r\nbegin\r\n  if Size < 1000 then\r\n    Result := IntToStr(Size) + ' bytes';\r\n  if (Size >= 1000) and (Size < 1000000) then\r\n    Result := Format('%.2f',[Size/1000])+' Kb';\r\n  if (Size >= 1000000) and (Size < 1000000000) then\r\n    Result := Format('%.2f',[Size/1000000])+' Mb';\r\n  if Size >= 1000000000 then\r\n    Result := Format('%.2f',[Size/1000000000])+' Gb'\r\nend;\r\n\r\nfunction FileSizeFmtSpeed(Size: int64): string;\r\nbegin\r\n  if Size < 1000 then\r\n    Result := IntToStr(Size)+' bytes/sec';\r\n  if (Size >= 1000) and (Size < 1000000) then\r\n    Result := Format('%.2f',[Size/1000])+' Kb/sec';\r\n  if (Size >= 1000000) and (Size < 1000000000) then\r\n    Result := Format('%.2f',[Size/1000000])+' Mb/sec';\r\n  if (Size >= 1000000000) then\r\n    Result := Format('%.2f',[Size/1000000000])+' Gb/sec';\r\nend;\r\n\r\nfunction GetOperatingSystem: TOperatingSystem;\r\nvar\r\n  ag: string;\r\n  res: boolean;\r\nbegin\r\n  Result := osUnknown;\r\n\r\n  asm\r\n    ag = navigator.userAgent;\r\n  end;\r\n\r\n  if pos('Win',ag) > 0 then\r\n    Result := osWindows;\r\n\r\n  if pos('Mac',ag) > 0 then\r\n    Result := osmacOS;\r\n\r\n  if pos('Linux',ag) > 0 then\r\n    Result := osLinux;\r\n\r\n  if pos('Android',ag) > 0 then\r\n    Result := osAndroid;\r\n\r\n  if pos('Linux',ag) > 0 then\r\n    Result := osLinux;\r\n\r\n  asm\r\n    res = ag.match(/(iPod|iPhone|iPad)/) &&\r\n    ag.match(/AppleWebKit/);\r\n  end;\r\n\r\n  if res then\r\n    Result := osiOS;\r\nend;\r\n\r\n{$HINTS OFF}\r\n\r\nfunction ElementVisible(el: TJSHTMLElement): boolean;\r\nvar\r\n  p: TJSElement;\r\nbegin\r\n  Result := false;\r\n\r\n  p := el;\r\n  while Assigned(p) do\r\n  begin\r\n    if (lowercase(p.tagName) = cBodyTag) then\r\n      Result := true;\r\n    p := p.parentElement;\r\n  end;\r\n\r\n  if not Result then\r\n    // element is not in the DOM, so not visible\r\n    Exit;\r\n\r\n  while Assigned(el) do\r\n  begin\r\n    if el.style.getPropertyValue('display') = 'none' then\r\n    begin\r\n      Result := false;\r\n      exit;\r\n    end;\r\n    p := el.parentElement;\r\n    if not (p is TJSHTMLElement) then\r\n      Exit;\r\n    el := TJSHTMLElement(p);\r\n  end;\r\nend;\r\n\r\nfunction GetMaterialGlyph(AGlyph: string; ASize: integer = 0; AColor: TColor = clNone; AType: TMaterialGlyphType = mgNormal): string;\r\nvar\r\n  s: string;\r\n  matclr, matsize: string;\r\nbegin\r\n  s := '<i';\r\n\r\n  s := s  + ' class=\"' + GetMaterialClass(AType)+'\"';\r\n\r\n  matclr := '';\r\n\r\n  if AColor <> clNone then\r\n    matclr := 'color:'+ColorToHTML(AColor)+';';\r\n\r\n  matsize := '';\r\n\r\n  if ASize <> 0 then\r\n    matsize := 'font-size:'+IntToStr(ASize)+'px;';\r\n\r\n  s := s + ' style=\"pointer-events:none;' + matclr + matsize +'\"';\r\n\r\n  Result := s + '>' +  AGlyph + '</i>';\r\nend;\r\n\r\n\r\nprocedure MessageBeep(AType: integer);\r\nbegin\r\n  asm\r\n    var snd = new Audio(\"data:audio/wav;base64,//uQRAAAAWMSLwUIYAAsYkXgoQwAEaYLWfkWgAI0wWs/ItAAAGDgYtAgAyN+QWaAAihwMWm4G8QQRDiMcCBcH3Cc+CDv/7xA4Tvh9Rz/y8QADBwMWgQAZG/ILNAARQ4GLTcDeI\"+\r\n        \"IIhxGOBAuD7hOfBB3/94gcJ3w+o5/5eIAIAAAVwWgQAVQ2ORaIQwEMAJiDg95G4nQL7mQVWI6GwRcfsZAcsKkJvxgxEjzFUgfHoSQ9Qq7KNwqHwuB13MA4a1q/DmBrHgPcmjiGoh//EwC5nGPEmS4RcfkVK\"+\r\n\t\"OhJf+WOgoxJclFz3kgn//dBA+ya1GhurNn8zb//9NNutNuhz31f////9vt///z+IdAEAAAK4LQIAKobHItEIYCGAExBwe8jcToF9zIKrEdDYIuP2MgOWFSE34wYiR5iqQPj0JIeoVdlG4VD4XA67mAcNa1f\"+\r\n\t\"hzA1jwHuTRxDUQ//iYBczjHiTJcIuPyKlHQkv/LHQUYkuSi57yQT//uggfZNajQ3Vmz+Zt//+mm3Wm3Q576v////+32///5/EOgAAADVghQAAAAA//uQZAUAB1WI0PZugAAAAAoQwAAAEk3nRd2qAAAAACi\"+\r\n\t\"DgAAAAAAABCqEEQRLCgwpBGMlJkIz8jKhGvj4k6jzRnqasNKIeoh5gI7BJaC1A1AoNBjJgbyApVS4IDlZgDU5WUAxEKDNmmALHzZp0Fkz1FMTmGFl1FMEyodIavcCAUHDWrKAIA4aa2oCgILEBupZgHvAhE\"+\r\n\t\"BcZ6joQBxS76AgccrFlczBvKLC0QI2cBoCFvfTDAo7eoOQInqDPBtvrDEZBNYN5xwNwxQRfw8ZQ5wQVLvO8OYU+mHvFLlDh05Mdg7BT6YrRPpCBznMB2r//xKJjyyOh+cImr2/4doscwD6neZjuZR4AgAABY\"+\r\n\t\"AAAABy1xcdQtxYBYYZdifkUDgzzXaXn98Z0oi9ILU5mBjFANmRwlVJ3/6jYDAmxaiDG3/6xjQQCCKkRb/6kg/wW+kSJ5//rLobkLSiKmqP/0ikJuDaSaSf/6JiLYLEYnW/+kXg1WRVJL/9EmQ1YZIsv/6Qzw\"+\r\n\t\"y5qk7/+tEU0nkls3/zIUMPKNX/6yZLf+kFgAfgGyLFAUwY//uQZAUABcd5UiNPVXAAAApAAAAAE0VZQKw9ISAAACgAAAAAVQIygIElVrFkBS+Jhi+EAuu+lKAkYUEIsmEAEoMeDmCETMvfSHTGkF5RWH7kz/\"+\r\n\t\"ESHWPAq/kcCRhqBtMdokPdM7vil7RG98A2sc7zO6ZvTdM7pmOUAZTnJW+NXxqmd41dqJ6mLTXxrPpnV8avaIf5SvL7pndPvPpndJR9Kuu8fePvuiuhorgWjp7Mf/PRjxcFCPDkW31srioCExivv9lcwKEaHs\"+\r\n\t\"f/7ow2Fl1T/9RkXgEhYElAoCLFtMArxwivDJJ+bR1HTKJdlEoTELCIqgEwVGSQ+hIm0NbK8WXcTEI0UPoa2NbG4y2K00JEWbZavJXkYaqo9CRHS55FcZTjKEk3NKoCYUnSQ0rWxrZbFKbKIhOKPZe1cJKzZS\"+\r\n\t\"aQrIyULHDZmV5K4xySsDRKWOruanGtjLJXFEmwaIbDLX0hIPBUQPVFVkQkDoUNfSoDgQGKPekoxeGzA4DUvnn4bxzcZrtJyipKfPNy5w+9lnXwgqsiyHNeSVpemw4bWb9psYeq//uQZBoABQt4yMVxYAIAAA\"+\r\n\t\"kQoAAAHvYpL5m6AAgAACXDAAAAD59jblTirQe9upFsmZbpMudy7Lz1X1DYsxOOSWpfPqNX2WqktK0DMvuGwlbNj44TleLPQ+Gsfb+GOWOKJoIrWb3cIMeeON6lz2umTqMXV8Mj30yWPpjoSa9ujK8SyeJP5y5\"+\r\n\t\"mOW1D6hvLepeveEAEDo0mgCRClOEgANv3B9a6fikgUSu/DmAMATrGx7nng5p5iimPNZsfQLYB2sDLIkzRKZOHGAaUyDcpFBSLG9MCQALgAIgQs2YunOszLSAyQYPVC2YdGGeHD2dTdJk1pAHGAWDjnkcLKFym\"+\r\n\t\"S3RQZTInzySoBwMG0QueC3gMsCEYxUqlrcxK6k1LQQcsmyYeQPdC2YfuGPASCBkcVMQQqpVJshui1tkXQJQV0OXGAZMXSOEEBRirXbVRQW7ugq7IM7rPWSZyDlM3IuNEkxzCOJ0ny2ThNkyRai1b6ev//3dzN\"+\r\n\t\"GzNb//4uAvHT5sURcZCFcuKLhOFs8mLAAEAt4UWAAIABAAAAAB4qbHo0tIjVkUU//uQZAwABfSFz3ZqQAAAAAngwAAAE1HjMp2qAAAAACZDgAAAD5UkTE1UgZEUExqYynN1qZvqIOREEFmBcJQkwdxiFtw0q\"+\r\n\t\"EOkGYfRDifBui9MQg4QAHAqWtAWHoCxu1Yf4VfWLPIM2mHDFsbQEVGwyqQoQcwnfHeIkNt9YnkiaS1oizycqJrx4KOQjahZxWbcZgztj2c49nKmkId44S71j0c8eV9yDK6uPRzx5X18eDvjvQ6yKo9ZSS6l/\"+\r\n\t\"/8elePK/Lf//IInrOF/FvDoADYAGBMGb7FtErm5MXMlmPAJQVgWta7Zx2go+8xJ0UiCb8LHHdftWyLJE0QIAIsI+UbXu67dZMjmgDGCGl1H+vpF4NSDckSIkk7Vd+sxEhBQMRU8j/12UIRhzSaUdQ+rQU5kG\"+\r\n\t\"eFxm+hb1oh6pWWmv3uvmReDl0UnvtapVaIzo1jZbf/pD6ElLqSX+rUmOQNpJFa/r+sa4e/pBlAABoAAAAA3CUgShLdGIxsY7AUABPRrgCABdDuQ5GC7DqPQCgbbJUAoRSUj+NIEig0YfyWUho1VBBBA//uQZ\"+\r\n\t\"B4ABZx5zfMakeAAAAmwAAAAF5F3P0w9GtAAACfAAAAAwLhMDmAYWMgVEG1U0FIGCBgXBXAtfMH10000EEEEEECUBYln03TTTdNBDZopopYvrTTdNa325mImNg3TTPV9q3pmY0xoO6bv3r00y+IDGid/9aaaZ\"+\r\n\t\"TGMuj9mpu9Mpio1dXrr5HERTZSmqU36A3CumzN/9Robv/Xx4v9ijkSRSNLQhAWumap82WRSBUqXStV/YcS+XVLnSS+WLDroqArFkMEsAS+eWmrUzrO0oEmE40RlMZ5+ODIkAyKAGUwZ3mVKmcamcJnMW26MRP\"+\r\n\t\"gUw6j+LkhyHGVGYjSUUKNpuJUQoOIAyDvEyG8S5yfK6dhZc0Tx1KI/gviKL6qvvFs1+bWtaz58uUNnryq6kt5RzOCkPWlVqVX2a/EEBUdU1KrXLf40GoiiFXK///qpoiDXrOgqDR38JB0bw7SoL+ZB9o1RCk\"+\r\n\t\"QjQ2CBYZKd/+VJxZRRZlqSkKiws0WFxUyCwsKiMy7hUVFhIaCrNQsKkTIsLivwKKigsj8XYlwt/WKi2N4d//uQRCSAAjURNIHpMZBGYiaQPSYyAAABLAAAAAAAACWAAAAApUF/Mg+0aohSIRobBAsMlO//Kk\"+\r\n\t\"4soosy1JSFRYWaLC4qZBYWFRGZdwqKiwkNBVmoWFSJkWFxX4FFRQWR+LsS4W/rFRb////////////////////////////////////////////////////////////////////////////////////////////\"+\r\n\t\"////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////\"+\r\n\t\"////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////\"+\r\n\t\"/////////////VEFHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAU291bmRib3kuZGUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMjAwNGh0dHA6Ly93d3cuc291bmRib3kuZGUAAAAAAAAAACU=\");\r\n    snd.play();\r\n  end;\r\nend;\r\n\r\n{$HINTS ON}\r\n\r\nend.\r\n\r\n","{\r\n    This file is part of the Free Component Library (FCL)\r\n    Copyright (c) 2002 by Florian Klaempfl\r\n\r\n    See the file COPYING.FPC, included in this distribution,\r\n    for details about the copyright.\r\n\r\n    This program is distributed in the hope that it will be useful,\r\n    but WITHOUT ANY WARRANTY; without even the implied warranty of\r\n    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\r\n\r\n **********************************************************************}\r\n{$mode objfpc}\r\n\r\nunit contnrs;\r\n\r\ninterface\r\n\r\nuses\r\n  SysUtils, Classes;\r\n\r\n\r\nType\r\n  TObjectListCallback = Reference to Procedure(data:TObject;arg:JSValue);\r\n\r\n  TFPObjectList = class(TObject)\r\n  private\r\n    FFreeObjects : Boolean;\r\n    FList: TFPList;\r\n    Function GetCount: integer;\r\n    Procedure SetCount(const AValue: integer);\r\n  protected\r\n    Function GetItem(Index: Integer): TObject;\r\n    Procedure SetItem(Index: Integer; AObject: TObject);\r\n    Procedure SetCapacity(NewCapacity: Integer);\r\n    Function GetCapacity: integer;\r\n  public\r\n    constructor Create; reintroduce;\r\n    constructor Create(FreeObjects : Boolean);\r\n    destructor Destroy; override;\r\n    Procedure Clear;\r\n    Function Add(AObject: TObject): Integer;\r\n    Procedure Delete(Index: Integer);\r\n    Procedure Exchange(Index1, Index2: Integer);\r\n    Function Expand: TFPObjectList;\r\n    Function Extract(Item: TObject): TObject;\r\n    Function Remove(AObject: TObject): Integer;\r\n    Function IndexOf(AObject: TObject): Integer;\r\n    Function FindInstanceOf(AClass: TClass; AExact: Boolean; AStartAt: Integer): Integer;\r\n    Procedure Insert(Index: Integer; AObject: TObject);\r\n    Function First: TObject;\r\n    Function Last: TObject;\r\n    Procedure Move(CurIndex, NewIndex: Integer);\r\n    Procedure Assign(Obj:TFPObjectList);\r\n    Procedure Pack;\r\n    Procedure Sort(Compare: TListSortCompare);\r\n    Procedure ForEachCall(proc2call:TObjectListCallback;arg:JSValue);\r\n    property Capacity: Integer read GetCapacity write SetCapacity;\r\n    property Count: Integer read GetCount write SetCount;\r\n    property OwnsObjects: Boolean read FFreeObjects write FFreeObjects;\r\n    property Items[Index: Integer]: TObject read GetItem write SetItem; default;\r\n    property List: TFPList read FList;\r\n  end;\r\n\r\n\r\n  { TObjectList }\r\n\r\n  TObjectList = class(TList)\r\n  private\r\n    FFreeObjects : Boolean;\r\n  Protected\r\n    Procedure Notify(Ptr: JSValue; Action: TListNotification); override;\r\n    Function GetItem(Index: Integer): TObject;\r\n    Procedure SetItem(Index: Integer; AObject: TObject);\r\n  public\r\n    constructor Create; reintroduce;\r\n    constructor Create(FreeObjects : boolean);\r\n    Function Add(AObject: TObject): Integer; reintroduce;\r\n    Function Extract(Item: TObject): TObject; reintroduce;\r\n    Function Remove(AObject: TObject): Integer; reintroduce;\r\n    Function IndexOf(AObject: TObject): Integer; reintroduce;\r\n    Function FindInstanceOf(AClass: TClass; AExact: Boolean; AStartAt: Integer): Integer;\r\n    Procedure Insert(Index: Integer; AObject: TObject); reintroduce;\r\n    Function First: TObject; reintroduce;\r\n    Function Last: TObject; reintroduce;\r\n    property OwnsObjects: Boolean read FFreeObjects write FFreeObjects;\r\n    property Items[Index: Integer]: TObject read GetItem write SetItem; default;\r\n  end;\r\n\r\n  TComponentList = class(TObjectList)\r\n  Private\r\n    FNotifier : TComponent;\r\n  Protected\r\n    Procedure Notify(Ptr: JSValue; Action: TListNotification); override;\r\n    Function GetItems(Index: Integer): TComponent;\r\n    Procedure SetItems(Index: Integer; AComponent: TComponent);\r\n    Procedure HandleFreeNotify(Sender: TObject; AComponent: TComponent);\r\n  public\r\n    destructor Destroy; override;\r\n    Function Add(AComponent: TComponent): Integer; reintroduce;\r\n    Function Extract(Item: TComponent): TComponent; reintroduce;\r\n    Function Remove(AComponent: TComponent): Integer; reintroduce;\r\n    Function IndexOf(AComponent: TComponent): Integer; reintroduce;\r\n    Function First: TComponent; reintroduce;\r\n    Function Last: TComponent; reintroduce;\r\n    Procedure Insert(Index: Integer; AComponent: TComponent); reintroduce;\r\n    property Items[Index: Integer]: TComponent read GetItems write SetItems; default;\r\n  end;\r\n\r\n  TClassList = class(TList)\r\n  protected\r\n    Function GetItems(Index: Integer): TClass;\r\n    Procedure SetItems(Index: Integer; AClass: TClass);\r\n  public\r\n    Function Add(AClass: TClass): Integer; reintroduce;\r\n    Function Extract(Item: TClass): TClass; reintroduce;\r\n    Function Remove(AClass: TClass): Integer; reintroduce;\r\n    Function IndexOf(AClass: TClass): Integer; reintroduce;\r\n    Function First: TClass; reintroduce;\r\n    Function Last: TClass; reintroduce;\r\n    Procedure Insert(Index: Integer; AClass: TClass); reintroduce;\r\n    property Items[Index: Integer]: TClass read GetItems write SetItems; default;\r\n  end;\r\n\r\n  TOrderedList = class(TObject)\r\n  private\r\n    FList: TList;\r\n  protected\r\n    Procedure PushItem(AItem: JSValue); virtual; abstract;\r\n    Function PopItem: JSValue; virtual;\r\n    Function PeekItem: JSValue; virtual;\r\n    property List: TList read FList;\r\n  public\r\n    constructor Create; reintroduce;\r\n    destructor Destroy; override;\r\n    Function Count: Integer;\r\n    Function AtLeast(ACount: Integer): Boolean;\r\n    Function Push(AItem: JSValue): JSValue;\r\n    Function Pop: JSValue;\r\n    Function Peek: JSValue;\r\n  end;\r\n\r\n{ TStack class }\r\n\r\n  TStack = class(TOrderedList)\r\n  protected\r\n    Procedure PushItem(AItem: JSValue); override;\r\n  end;\r\n\r\n{ TObjectStack class }\r\n\r\n  TObjectStack = class(TStack)\r\n  public\r\n    Function Push(AObject: TObject): TObject; reintroduce;\r\n    Function Pop: TObject; reintroduce;\r\n    Function Peek: TObject; reintroduce;\r\n  end;\r\n\r\n{ TQueue class }\r\n\r\n  TQueue = class(TOrderedList)\r\n  protected\r\n    Procedure PushItem(AItem: JSValue); override;\r\n  end;\r\n\r\n{ TObjectQueue class }\r\n\r\n  TObjectQueue = class(TQueue)\r\n  public\r\n    Function Push(AObject: TObject): TObject; reintroduce;\r\n    Function Pop: TObject; reintroduce;\r\n    Function Peek: TObject; reintroduce;\r\n  end;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Hash support, implemented by Dean Zobec\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\n  { Must return a Longword value in the range 0..TableSize,\r\n   usually via a mod operator;  }\r\n  THashFunction = Function(const S: string; const TableSize: Longword): Longword;\r\n\r\n\r\n  { THTNode }\r\n\r\n  THTCustomNode = class(TObject)\r\n  private\r\n    FKey: string;\r\n  public\r\n    constructor CreateWith(const AString: String);\r\n    Function HasKey(const AKey: string): boolean;\r\n    property Key: string read FKey;\r\n  end;\r\n  THTCustomNodeClass = Class of THTCustomNode;\r\n\r\n\r\n  { TFPCustomHashTable }\r\n\r\n  TFPCustomHashTable = class(TObject)\r\n  private\r\n    FHashTable: TFPObjectList;\r\n    FHashFunction: THashFunction;\r\n    FCount: Longword;\r\n    Function GetDensity: Longword;\r\n    Function GetNumberOfCollisions: Longword;\r\n    Procedure SetHashTableSize(const Value: Longword);\r\n    Procedure InitializeHashTable;\r\n    Function GetVoidSlots: Longword;\r\n    Function GetLoadFactor: double;\r\n    Function GetAVGChainLen: double;\r\n    Function GetMaxChainLength: Longword;\r\n  protected\r\n    FHashTableSize: Longword;\r\n    Function Chain(const index: Longword):TFPObjectList;\r\n    Function CreateNewNode(const aKey : string) : THTCustomNode; virtual; abstract;\r\n    Procedure AddNode(ANode : THTCustomNode); virtual; abstract;\r\n    Function ChainLength(const ChainIndex: Longword): Longword; virtual;\r\n    Function FindOrCreateNew(const aKey: string): THTCustomNode; virtual;\r\n    Procedure SetHashFunction(AHashFunction: THashFunction); virtual;\r\n    Function FindChainForAdd(Const aKey : String) : TFPObjectList;\r\n  public\r\n    constructor Create; reintroduce;\r\n    constructor CreateWith(AHashTableSize: Longword; aHashFunc: THashFunction);\r\n    destructor Destroy; override;\r\n    Procedure ChangeTableSize(const ANewSize: Longword); virtual;\r\n    Procedure Clear; virtual;\r\n    Procedure Delete(const aKey: string); virtual;\r\n    Function Find(const aKey: string): THTCustomNode;\r\n    Function IsEmpty: boolean;\r\n    property HashFunction: THashFunction read FHashFunction write SetHashFunction;\r\n    property Count: Longword read FCount;\r\n    property HashTableSize: Longword read FHashTableSize write SetHashTableSize;\r\n    property HashTable: TFPObjectList read FHashTable;\r\n    property VoidSlots: Longword read GetVoidSlots;\r\n    property LoadFactor: double read GetLoadFactor;\r\n    property AVGChainLen: double read GetAVGChainLen;\r\n    property MaxChainLength: Longword read GetMaxChainLength;\r\n    property NumberOfCollisions: Longword read GetNumberOfCollisions;\r\n    property Density: Longword read GetDensity;\r\n  end;\r\n\r\n  { TFPDataHashTable : Hash table with simple data JSValues }\r\n\r\n  THTDataNode = Class(THTCustomNode)\r\n  Private\r\n    FData: JSValue;\r\n  public\r\n    property Data: JSValue read FData write FData;\r\n  end;\r\n  // For compatibility\r\n  THTNode = THTDataNode;\r\n\r\n  TDataIteratorMethod = Procedure(Item: JSValue; const Key: string; var Continue: Boolean) of object;\r\n  TDataIteratorCallBack = Procedure(Item: JSValue; const Key: string; var Continue: Boolean);\r\n\r\n  // For compatibility\r\n  TIteratorMethod = TDataIteratorMethod;\r\n\r\n  TFPDataHashTable = Class(TFPCustomHashTable)\r\n  Private\r\n    FIteratorCallBack: TDataIteratorCallBack;\r\n    Procedure CallbackIterator(Item: JSValue; const Key: string; var Continue: Boolean);\r\n  Protected\r\n    Function CreateNewNode(const aKey : String) : THTCustomNode; override;\r\n    Procedure AddNode(ANode : THTCustomNode); override;\r\n    Procedure SetData(const index: string; const AValue: JSValue); virtual;\r\n    Function GetData(const index: string):JSValue; virtual;\r\n    Function ForEachCall(aMethod: TDataIteratorMethod): THTDataNode; virtual;\r\n  Public\r\n    Function Iterate(aMethod: TDataIteratorMethod): JSValue; virtual;\r\n    Function Iterate(aMethod: TDataIteratorCallBack): JSValue; virtual;\r\n    Procedure Add(const aKey: string; AItem: JSValue); virtual;\r\n    property Items[const index: string]: JSValue read GetData write SetData; default;\r\n  end;\r\n\r\n  { TFPStringHashTable : Hash table with simple strings as data }\r\n  THTStringNode = Class(THTCustomNode)\r\n  Private\r\n    FData : String;\r\n  public\r\n    property Data: String read FData write FData;\r\n  end;\r\n  \r\n  TStringIteratorMethod = Procedure(Item: String; const Key: string; var Continue: Boolean) of object;\r\n  TStringIteratorCallback = Procedure(Item: String; const Key: string; var Continue: Boolean);\r\n\r\n  TFPStringHashTable = Class(TFPCustomHashTable)\r\n  Private\r\n    FIteratorCallBack: TStringIteratorCallback;\r\n    Procedure CallbackIterator(Item: String; const Key: string; var Continue: Boolean);\r\n  Protected\r\n    Function CreateNewNode(const aKey : String) : THTCustomNode; override;\r\n    Procedure AddNode(ANode : THTCustomNode); override;\r\n    Procedure SetData(const Index, AValue: string); virtual;\r\n    Function GetData(const index: string): String; virtual;\r\n    Function ForEachCall(aMethod: TStringIteratorMethod): THTStringNode; virtual;\r\n  Public\r\n    Function Iterate(aMethod: TStringIteratorMethod): String; virtual;\r\n    Function Iterate(aMethod: TStringIteratorCallback): String; virtual;\r\n    Procedure Add(const aKey,aItem: string); virtual;\r\n    property Items[const index: string]: String read GetData write SetData; default;\r\n  end;\r\n\r\n  { TFPStringHashTable : Hash table with simple strings as data }\r\n\r\n\r\n  THTObjectNode = Class(THTCustomNode)\r\n  Private\r\n    FData : TObject;\r\n  public\r\n    property Data: TObject read FData write FData;\r\n  end;\r\n\r\n  THTOwnedObjectNode = Class(THTObjectNode)\r\n  public\r\n    destructor Destroy; override;\r\n  end;\r\n\r\n  TObjectIteratorMethod = Procedure(Item: TObject; const Key: string; var Continue: Boolean) of object;\r\n  TObjectIteratorCallback = Procedure(Item: TObject; const Key: string; var Continue: Boolean);\r\n\r\n  TFPObjectHashTable = Class(TFPCustomHashTable)\r\n  Private\r\n    FOwnsObjects : Boolean;\r\n    FIteratorCallBack: TObjectIteratorCallback;\r\n    procedure CallbackIterator(Item: TObject; const Key: string; var Continue: Boolean);\r\n  Protected\r\n    Function CreateNewNode(const aKey : String) : THTCustomNode; override;\r\n    Procedure AddNode(ANode : THTCustomNode); override;\r\n    Procedure SetData(const Index: string; AObject : TObject); virtual;\r\n    Function GetData(const index: string): TObject; virtual;\r\n    Function ForEachCall(aMethod: TObjectIteratorMethod): THTObjectNode; virtual;\r\n  Public\r\n    constructor Create(AOwnsObjects : Boolean = True); reintroduce;\r\n    constructor CreateWith(AHashTableSize: Longword; aHashFunc: THashFunction; AOwnsObjects : Boolean = True); reintroduce;\r\n    Function Iterate(aMethod: TObjectIteratorMethod): TObject; virtual;\r\n    Function Iterate(aMethod: TObjectIteratorCallback): TObject; virtual;\r\n    Procedure Add(const aKey: string; AItem : TObject); virtual;\r\n    property Items[const index: string]: TObject read GetData write SetData; default;\r\n    Property OwnsObjects : Boolean Read FOwnsObjects;\r\n  end;\r\n\r\n  EDuplicate = class(Exception);\r\n  EKeyNotFound = class(Exception);\r\n\r\n  Function RSHash(const S: string; const TableSize: Longword): Longword;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Bucket lists as in Delphi\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\nType\r\n  TBucketItem = record\r\n    Item, Data: JSValue;\r\n  end;\r\n  TBucketItemArray = array of TBucketItem;\r\n\r\n  TBucket = record\r\n    Count : Integer;\r\n    Items : TBucketItemArray;\r\n  end;\r\n  TBucketArray = array of TBucket;\r\n\r\n  TBucketProc = Reference to Procedure(AInfo, AItem, AData: JSValue; out AContinue: Boolean);\r\n\r\n{ ---------------------------------------------------------------------\r\n  TCustomBucketList\r\n  ---------------------------------------------------------------------}\r\n\r\n  { TCustomBucketList }\r\n\r\n  TCustomBucketList = class(TObject)\r\n  private\r\n    FBuckets: TBucketArray;\r\n    Function GetBucketCount: Integer;\r\n    Function GetData(AItem: JSValue): JSValue;\r\n    Procedure SetData(AItem: JSValue; const AData: JSValue);\r\n    Procedure SetBucketCount(const Value: Integer);\r\n  protected\r\n    Procedure GetBucketItem(AItem: JSValue; out ABucket, AIndex: Integer);\r\n    Function AddItem(ABucket: Integer; AItem, AData: JSValue): JSValue; virtual;\r\n    Function BucketFor(AItem: JSValue): Integer; virtual; abstract;\r\n    Function DeleteItem(ABucket: Integer; AIndex: Integer): JSValue; virtual;\r\n    Procedure Error(Msg : String; Args : Array of Const);\r\n    Function FindItem(AItem: JSValue; out ABucket, AIndex: Integer): Boolean; virtual;\r\n    property Buckets: TBucketArray read FBuckets;\r\n    property BucketCount: Integer read GetBucketCount write SetBucketCount;\r\n  public\r\n    destructor Destroy; override;\r\n    Procedure Clear;\r\n    Function Add(AItem, AData: JSValue): JSValue;\r\n    Procedure Assign(AList: TCustomBucketList);\r\n    Function Exists(AItem: JSValue): Boolean;\r\n    Function Find(AItem: JSValue; out AData: JSValue): Boolean;\r\n    Function ForEach(AProc: TBucketProc; AInfo: JSValue): Boolean;\r\n    Function ForEach(AProc: TBucketProc): Boolean;\r\n    Function Remove(AItem: JSValue): JSValue;\r\n    property Data[AItem: JSValue]: JSValue read GetData write SetData; default;\r\n  end;\r\n\r\n{ ---------------------------------------------------------------------\r\n  TBucketList\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\n  TBucketListSizes = (bl2, bl4, bl8, bl16, bl32, bl64, bl128, bl256);\r\n\r\n  { TBucketList }\r\n\r\n  TBucketList = class(TCustomBucketList)\r\n  private\r\n    FBucketMask: Byte;\r\n  protected\r\n    Function BucketFor(AItem: JSValue): Integer; override;\r\n  public\r\n    constructor Create(ABuckets: TBucketListSizes = bl16); reintroduce;\r\n  end;\r\n\r\n{ ---------------------------------------------------------------------\r\n  TObjectBucketList\r\n  ---------------------------------------------------------------------}\r\n\r\n  { TObjectBucketList }\r\n\r\n  TObjectBucketList = class(TBucketList)\r\n  protected\r\n    Function GetData(AItem: TObject): TObject; reintroduce;\r\n    Procedure SetData(AItem: TObject; const AData: TObject); reintroduce;\r\n  public\r\n    Function Add(AItem, AData: TObject): TObject; reintroduce;\r\n    Function Remove(AItem: TObject): TObject; reintroduce;\r\n    property Data[AItem: TObject]: TObject read GetData write SetData; default;\r\n  end;\r\n\r\n\r\nimplementation\r\n\r\nuses\r\n  js;\r\n\r\nResourceString\r\n  DuplicateMsg   = 'An item with key %0:s already exists';\r\n  //KeyNotFoundMsg = 'Method: %0:s key [''%1:s''] not found in container';\r\n  NotEmptyMsg    = 'Hash table not empty.';\r\n  SErrNoSuchItem = 'No item in list for %p';\r\n  SDuplicateItem = 'Item already exists in list: %p';\r\n\r\nconst\r\n  NPRIMES = 28;\r\n\r\n  PRIMELIST: array[0 .. NPRIMES-1] of Longword =\r\n  ( 53,         97,         193,       389,       769,\r\n    1543,       3079,       6151,      12289,     24593,\r\n    49157,      98317,      196613,    393241,    786433,\r\n    1572869,    3145739,    6291469,   12582917,  25165843,\r\n    50331653,   100663319,  201326611, 402653189, 805306457,\r\n    1610612741, 3221225473, 4294967291 );\r\n\r\nconstructor TFPObjectList.Create(FreeObjects : boolean);\r\nbegin\r\n  Create;\r\n  FFreeObjects:=Freeobjects;\r\nend;\r\n\r\ndestructor TFPObjectList.Destroy;\r\nbegin\r\n  if (FList <> nil) then\r\n  begin\r\n    Clear;\r\n    FList.Destroy;\r\n  end;\r\n  inherited Destroy;\r\nend;\r\n\r\nProcedure TFPObjectList.Clear;\r\nvar\r\n  i: integer;\r\n  O : TObject;\r\nbegin\r\n  if FFreeObjects then\r\n    for i:=FList.Count-1 downto 0 do\r\n      begin\r\n      O:=TObject(FList[i]);\r\n      FList[i]:=Nil;\r\n      O.Free;\r\n      end;\r\n  FList.Clear;\r\nend;\r\n\r\nconstructor TFPObjectList.Create;\r\nbegin\r\n  inherited Create;\r\n  FList:=TFPList.Create;\r\n  FFreeObjects:=True;\r\nend;\r\n\r\nFunction TFPObjectList.GetCount: integer;\r\nbegin\r\n  Result:=FList.Count;\r\nend;\r\n\r\nProcedure TFPObjectList.SetCount(const AValue: integer);\r\nbegin\r\n  if FList.Count <> AValue then\r\n    FList.Count:=AValue;\r\nend;\r\n\r\nFunction TFPObjectList.GetItem(Index: Integer): TObject;\r\nbegin\r\n  Result:=TObject(FList[Index]);\r\nend;\r\n\r\nProcedure TFPObjectList.SetItem(Index: Integer; AObject: TObject);\r\n\r\nVar\r\n  O : TObject;\r\n\r\nbegin\r\n  if OwnsObjects then\r\n    begin\r\n    O:=TObject(FList[Index]);\r\n    FList[Index]:=AObject;\r\n    O.Free;\r\n    end\r\n  else\r\n    FList[index]:=AObject;\r\nend;\r\n\r\nProcedure TFPObjectList.SetCapacity(NewCapacity: Integer);\r\nbegin\r\n  FList.Capacity:=NewCapacity;\r\nend;\r\n\r\nFunction TFPObjectList.GetCapacity: integer;\r\nbegin\r\n  Result:=FList.Capacity;\r\nend;\r\n\r\nFunction TFPObjectList.Add(AObject: TObject): Integer;\r\nbegin\r\n  Result:=FList.Add(AObject);\r\nend;\r\n\r\nProcedure TFPObjectList.Delete(Index: Integer);\r\n\r\nVar\r\n  O : TObject;\r\n\r\nbegin\r\n  if OwnsObjects then\r\n    begin\r\n    O:=TObject(FList[Index]);\r\n    FList[Index]:=Nil;\r\n    O.Free;\r\n    end;\r\n  FList.Delete(Index);\r\nend;\r\n\r\nProcedure TFPObjectList.Exchange(Index1, Index2: Integer);\r\nbegin\r\n  FList.Exchange(Index1, Index2);\r\nend;\r\n\r\nFunction TFPObjectList.Expand: TFPObjectList;\r\nbegin\r\n  FList.Expand;\r\n  Result:=Self;\r\nend;\r\n\r\nFunction TFPObjectList.Extract(Item: TObject): TObject;\r\nbegin\r\n  Result:=TObject(FList.Extract(Item));\r\nend;\r\n\r\nFunction TFPObjectList.Remove(AObject: TObject): Integer;\r\n\r\nVar\r\n  O : TObject;\r\n\r\nbegin\r\n  Result:=IndexOf(AObject);\r\n  if (Result <> -1) then\r\n    begin\r\n    if OwnsObjects then\r\n      begin\r\n      O:=TObject(FList[Result]);\r\n      FList[Result]:=Nil;\r\n      O.Free;\r\n      end;\r\n    FList.Delete(Result);\r\n    end;\r\nend;\r\n\r\nFunction TFPObjectList.IndexOf(AObject: TObject): Integer;\r\nbegin\r\n  Result:=FList.IndexOf(JSValue(AObject));\r\nend;\r\n\r\nFunction TFPObjectList.FindInstanceOf(AClass: TClass; AExact: Boolean; AStartAt : Integer): Integer;\r\nvar\r\n  I : Integer;\r\nbegin\r\n  I:=AStartAt;\r\n  Result:=-1;\r\n  if AExact then\r\n    while (I<Count) and (Result=-1) do\r\n      if Items[i].ClassType=AClass then\r\n        Result:=I\r\n      else\r\n        Inc(I)\r\n  else\r\n    while (I<Count) and (Result=-1) do\r\n      if Items[i].InheritsFrom(AClass) then\r\n        Result:=I\r\n      else\r\n        Inc(I);\r\nend;\r\n\r\nProcedure TFPObjectList.Insert(Index: Integer; AObject: TObject);\r\nbegin\r\n  FList.Insert(Index, JSValue(AObject));\r\nend;\r\n\r\nProcedure TFPObjectList.Move(CurIndex, NewIndex: Integer);\r\nbegin\r\n  FList.Move(CurIndex, NewIndex);\r\nend;\r\n\r\nProcedure TFPObjectList.Assign(Obj: TFPObjectList);\r\nvar\r\n  i: Integer;\r\nbegin\r\n  Clear;\r\n  for i:=0 to Obj.Count - 1 do\r\n    Add(Obj[i]);\r\nend;\r\n\r\nProcedure TFPObjectList.Pack;\r\nbegin\r\n  FList.Pack;\r\nend;\r\n\r\nProcedure TFPObjectList.Sort(Compare: TListSortCompare);\r\nbegin\r\n  FList.Sort(Compare);\r\nend;\r\n\r\nFunction TFPObjectList.First: TObject;\r\nbegin\r\n  Result:=TObject(FList.First);\r\nend;\r\n\r\nFunction TFPObjectList.Last: TObject;\r\nbegin\r\n  Result:=TObject(FList.Last);\r\nend;\r\n\r\nProcedure TFPObjectList.ForEachCall(proc2call:TObjectListCallback;arg:JSValue);\r\nbegin\r\n  FList.ForEachCall(TListCallBack(proc2call),arg);\r\nend;\r\n\r\n{ TObjectList }\r\n\r\nconstructor TObjectList.Create(FreeObjects: boolean);\r\nbegin\r\n  inherited Create;\r\n  FFreeObjects:=FreeObjects;\r\nend;\r\n\r\nconstructor TObjectList.Create;\r\nbegin\r\n  inherited Create;\r\n  FFreeObjects:=True;\r\nend;\r\n\r\nProcedure TObjectList.Notify(Ptr: JSValue; Action: TListNotification);\r\n\r\nVar\r\n  O : TObject;\r\n\r\nbegin\r\n  if FFreeObjects then\r\n    if (Action=lnDeleted) then\r\n      begin\r\n      O:=TObject(Ptr);\r\n      O.Free;\r\n      end;\r\n  inherited Notify(Ptr,Action);\r\nend;\r\n\r\n\r\nFunction TObjectList.GetItem(Index: Integer): TObject;\r\nbegin\r\n  Result:=TObject(inherited Get(Index));\r\nend;\r\n\r\n\r\nProcedure TObjectList.SetItem(Index: Integer; AObject: TObject);\r\nbegin\r\n  // Put will take care of deleting old one in Notify.\r\n  Put(Index,JSValue(AObject));\r\nend;\r\n\r\n\r\nFunction TObjectList.Add(AObject: TObject): Integer;\r\nbegin\r\n  Result:=inherited Add(JSValue(AObject));\r\nend;\r\n\r\n\r\nFunction TObjectList.Extract(Item: TObject): TObject;\r\nbegin\r\n  Result:=TObject(inherited Extract(JSValue(Item)));\r\nend;\r\n\r\n\r\nFunction TObjectList.Remove(AObject: TObject): Integer;\r\nbegin\r\n  Result:=inherited Remove(JSValue(AObject));\r\nend;\r\n\r\n\r\nFunction TObjectList.IndexOf(AObject: TObject): Integer;\r\nbegin\r\n  Result:=inherited IndexOf(JSValue(AObject));\r\nend;\r\n\r\n\r\nFunction TObjectList.FindInstanceOf(AClass: TClass; AExact: Boolean;\r\n  AStartAt: Integer): Integer;\r\nvar\r\n  I : Integer;\r\nbegin\r\n  I:=AStartAt;\r\n  Result:=-1;\r\n  if AExact then\r\n    while (I<Count) and (Result=-1) do\r\n      if Items[i].ClassType=AClass then\r\n        Result:=I\r\n      else\r\n        Inc(I)\r\n  else\r\n    while (I<Count) and (Result=-1) do\r\n      if Items[i].InheritsFrom(AClass) then\r\n        Result:=I\r\n      else\r\n        Inc(I);\r\nend;\r\n\r\n\r\nProcedure TObjectList.Insert(Index: Integer; AObject: TObject);\r\nbegin\r\n  Inherited Insert(Index,JSValue(AObject));\r\nend;\r\n\r\n\r\nFunction TObjectList.First: TObject;\r\nbegin\r\n  Result:=TObject(inherited First);\r\nend;\r\n\r\n\r\nFunction TObjectList.Last: TObject;\r\nbegin\r\n  Result:=TObject(inherited Last);\r\nend;\r\n\r\n{ TListComponent }\r\n\r\ntype\r\n  TlistComponent = class(TComponent)\r\n  private\r\n    Flist : TComponentList;\r\n  public\r\n    Procedure Notification(AComponent: TComponent; Operation: TOperation); override;\r\n  end;\r\n\r\nProcedure TlistComponent.Notification(AComponent: TComponent;\r\n  Operation: TOperation);\r\nbegin\r\n  if (Operation=opRemove) then\r\n    Flist.HandleFreeNotify(Self,AComponent);\r\n  inherited;\r\nend;\r\n\r\n{ TComponentList }\r\n\r\nFunction TComponentList.Add(AComponent: TComponent): Integer;\r\nbegin\r\n  Result:=inherited Add(AComponent);\r\nend;\r\n\r\ndestructor TComponentList.Destroy;\r\nbegin\r\n  inherited;\r\n  FreeAndNil(FNotifier);\r\nend;\r\n\r\nFunction TComponentList.Extract(Item: TComponent): TComponent;\r\nbegin\r\n  Result:=TComponent(inherited Extract(Item));\r\nend;\r\n\r\nFunction TComponentList.First: TComponent;\r\nbegin\r\n  Result:=TComponent(inherited First);\r\nend;\r\n\r\nFunction TComponentList.GetItems(Index: Integer): TComponent;\r\nbegin\r\n  Result:=TComponent(inherited Items[Index]);\r\nend;\r\n\r\nProcedure TComponentList.HandleFreeNotify(Sender: TObject;\r\n  AComponent: TComponent);\r\nbegin\r\n  Extract(AComponent);\r\n  if Sender=nil then ;\r\nend;\r\n\r\nFunction TComponentList.IndexOf(AComponent: TComponent): Integer;\r\nbegin\r\n  Result:=inherited IndexOf(AComponent);\r\nend;\r\n\r\nProcedure TComponentList.Insert(Index: Integer; AComponent: TComponent);\r\nbegin\r\n  inherited Insert(Index,AComponent)\r\nend;\r\n\r\nFunction TComponentList.Last: TComponent;\r\nbegin\r\n  Result:=TComponent(inherited Last);\r\nend;\r\n\r\nProcedure TComponentList.Notify(Ptr: JSValue; Action: TListNotification);\r\nbegin\r\n  if FNotifier=nil then\r\n    begin\r\n    FNotifier:=TlistComponent.Create(nil);\r\n    TlistComponent(FNotifier).FList:=Self;\r\n    end;\r\n  if Assigned(Ptr) then\r\n    with TComponent(Ptr) do\r\n      case Action of\r\n        lnAdded : FreeNotification(FNotifier);\r\n        lnExtracted, lnDeleted: RemoveFreeNotification(FNotifier);\r\n      end;\r\n  inherited Notify(Ptr, Action);\r\nend;\r\n\r\nFunction TComponentList.Remove(AComponent: TComponent): Integer;\r\nbegin\r\n  Result:=inherited Remove(AComponent);\r\nend;\r\n\r\nProcedure TComponentList.SetItems(Index: Integer; AComponent: TComponent);\r\nbegin\r\n  Put(Index,AComponent);\r\nend;\r\n\r\n{ TClassList }\r\n\r\nFunction TClassList.Add(AClass: TClass): Integer;\r\nbegin\r\n  Result:=inherited Add(JSValue(AClass));\r\nend;\r\n\r\nFunction TClassList.Extract(Item: TClass): TClass;\r\nbegin\r\n  Result:=TClass(inherited Extract(JSValue(Item)));\r\nend;\r\n\r\nFunction TClassList.First: TClass;\r\nbegin\r\n  Result:=TClass(inherited First);\r\nend;\r\n\r\nFunction TClassList.GetItems(Index: Integer): TClass;\r\nbegin\r\n  Result:=TClass(inherited Items[Index]);\r\nend;\r\n\r\nFunction TClassList.IndexOf(AClass: TClass): Integer;\r\nbegin\r\n  Result:=inherited IndexOf(JSValue(AClass));\r\nend;\r\n\r\nProcedure TClassList.Insert(Index: Integer; AClass: TClass);\r\nbegin\r\n  inherited Insert(Index,JSValue(AClass));\r\nend;\r\n\r\nFunction TClassList.Last: TClass;\r\nbegin\r\n  Result:=TClass(inherited Last);\r\nend;\r\n\r\nFunction TClassList.Remove(AClass: TClass): Integer;\r\nbegin\r\n  Result:=inherited Remove(JSValue(AClass));\r\nend;\r\n\r\nProcedure TClassList.SetItems(Index: Integer; AClass: TClass);\r\nbegin\r\n  Put(Index,JSValue(AClass));\r\nend;\r\n\r\n{ TOrderedList }\r\n\r\nFunction TOrderedList.AtLeast(ACount: Integer): Boolean;\r\nbegin\r\n  Result:=(FList.Count>=Acount)\r\nend;\r\n\r\nFunction TOrderedList.Count: Integer;\r\nbegin\r\n  Result:=FList.Count;\r\nend;\r\n\r\nconstructor TOrderedList.Create;\r\nbegin\r\n  FList:=Tlist.Create;\r\nend;\r\n\r\ndestructor TOrderedList.Destroy;\r\nbegin\r\n  FList.Free;\r\nend;\r\n\r\nFunction TOrderedList.Peek: JSValue;\r\nbegin\r\n  if AtLeast(1) then\r\n    Result:=PeekItem\r\n  else\r\n    Result:=nil;\r\nend;\r\n\r\nFunction TOrderedList.PeekItem: JSValue;\r\n\r\nbegin\r\n  with Flist do\r\n    Result:=Items[Count-1]\r\nend;\r\n\r\nFunction TOrderedList.Pop: JSValue;\r\nbegin\r\n  If Atleast(1) then\r\n    Result:=PopItem\r\n  else\r\n    Result:=nil;\r\nend;\r\n\r\nFunction TOrderedList.PopItem: JSValue;\r\nbegin\r\n  with FList do\r\n    if Count>0 then\r\n      begin\r\n      Result:=Items[Count-1];\r\n      Delete(Count-1);\r\n      end\r\n    else\r\n      Result:=nil;\r\nend;\r\n\r\nFunction TOrderedList.Push(AItem: JSValue): JSValue;\r\nbegin\r\n  PushItem(AItem);\r\n  Result:=AItem;\r\nend;\r\n\r\n{ TStack }\r\n\r\nProcedure TStack.PushItem(AItem: JSValue);\r\nbegin\r\n  FList.Add(AItem);\r\nend;\r\n\r\n{ TObjectStack }\r\n\r\nFunction TObjectStack.Peek: TObject;\r\nbegin\r\n  Result:=TObject(inherited Peek);\r\nend;\r\n\r\nFunction TObjectStack.Pop: TObject;\r\nbegin\r\n  Result:=TObject(Inherited Pop);\r\nend;\r\n\r\nFunction TObjectStack.Push(AObject: TObject): TObject;\r\nbegin\r\n  Result:=TObject(inherited Push(JSValue(AObject)));\r\nend;\r\n\r\n{ TQueue }\r\n\r\nProcedure TQueue.PushItem(AItem: JSValue);\r\nbegin\r\n  with FList Do\r\n    Insert(0,AItem);\r\nend;\r\n\r\n{ TObjectQueue }\r\n\r\nFunction TObjectQueue.Peek: TObject;\r\nbegin\r\n  Result:=TObject(inherited Peek);\r\nend;\r\n\r\nFunction TObjectQueue.Pop: TObject;\r\nbegin\r\n  Result:=TObject(inherited Pop);\r\nend;\r\n\r\nFunction TObjectQueue.Push(AObject: TObject): TObject;\r\nbegin\r\n  Result:=TObject(inherited Push(JSValue(AObject)));\r\nend;\r\n\r\n\r\n{*****************************************************************************\r\n                            TFPHashList\r\n*****************************************************************************}\r\n(*\r\n    Function FPHash(const s:shortstring):LongWord;\r\n    var\r\n      p,pmax : PChar;\r\n    begin\r\n{$push}\r\n{$Q-}\r\n      Result:=0;\r\n      p:=@s[1];\r\n      pmax:=@s[length(s)+1];\r\n      while (p<pmax) do\r\n        begin\r\n          Result:=LongWord(LongInt(Result shl 5) - LongInt(Result)) xor LongWord(P^);\r\n          Inc(p);\r\n        end;\r\n{$pop}\r\n    end;\r\n\r\n    Function FPHash(P: PChar; Len: Integer): LongWord;\r\n    var\r\n      pmax : PChar;\r\n    begin\r\n{$push}\r\n{$Q-}\r\n      Result:=0;\r\n      pmax:=p+len;\r\n      while (p<pmax) do\r\n        begin\r\n          Result:=LongWord(LongInt(Result shl 5) - LongInt(Result)) xor LongWord(P^);\r\n          Inc(p);\r\n        end;\r\n{$pop}\r\n    end;\r\n\r\n*)\r\n\r\n{ ---------------------------------------------------------------------\r\n    Hash support, by Dean Zobec\r\n  ---------------------------------------------------------------------}\r\n\r\n{ Default hash Function }\r\n\r\nFunction RSHash(const S: string; const TableSize: Longword): Longword;\r\nconst\r\n  b = 378551;\r\nvar\r\n  a: Longword;\r\n  i: Longword;\r\nbegin\r\n  a:=63689;\r\n  Result:=0;\r\n  if length(s)>0 then\r\n    for i:=1 to Length(S) do\r\n      begin\r\n      Result:=Result * a + Ord(S[i]);\r\n      a:=a * b;\r\n      end;\r\n  Result:=(Result and $7FFFFFFF) mod TableSize;\r\nend;\r\n\r\n{ THTNode }\r\n\r\nconstructor THTCustomNode.CreateWith(const AString: string);\r\nbegin\r\n  inherited Create;\r\n  FKey:=AString;\r\nend;\r\n\r\nFunction THTCustomNode.HasKey(const AKey: string): boolean;\r\nbegin\r\n  Result:=(AKey=FKey);\r\nend;\r\n\r\n{ TFPCustomHashTable }\r\n\r\nconstructor TFPCustomHashTable.Create;\r\nbegin\r\n  CreateWith(196613,@RSHash);\r\nend;\r\n\r\nconstructor TFPCustomHashTable.CreateWith(AHashTableSize: Longword;\r\n  aHashFunc: THashFunction);\r\nbegin\r\n  inherited Create;\r\n  FHashTable:=TFPObjectList.Create(True);\r\n  HashTableSize:=AHashTableSize;\r\n  FHashFunction:=aHashFunc;\r\nend;\r\n\r\ndestructor TFPCustomHashTable.Destroy;\r\nbegin\r\n  FHashTable.Free;\r\n  inherited Destroy;\r\nend;\r\n\r\nFunction TFPCustomHashTable.GetDensity: Longword;\r\nbegin\r\n  Result:=FHashTableSize - VoidSlots\r\nend;\r\n\r\nFunction TFPCustomHashTable.GetNumberOfCollisions: Longword;\r\nbegin\r\n  Result:=FCount -(FHashTableSize - VoidSlots)\r\nend;\r\n\r\nProcedure TFPCustomHashTable.SetHashTableSize(const Value: Longword);\r\nvar\r\n  i: Longword;\r\n  newSize: Longword;\r\nbegin\r\n  if Value <> FHashTableSize then\r\n    begin\r\n    i:=0;\r\n    while (PRIMELIST[i] < Value) and (i < 27) do\r\n     Inc(i);\r\n    newSize:=PRIMELIST[i];\r\n    if Count = 0 then\r\n      begin\r\n      FHashTableSize:=newSize;\r\n      InitializeHashTable;\r\n      end\r\n    else\r\n      ChangeTableSize(newSize);\r\n    end;\r\nend;\r\n\r\nProcedure TFPCustomHashTable.InitializeHashTable;\r\nvar\r\n  i: LongWord;\r\nbegin\r\n  if FHashTableSize>0 Then\r\n    for i:=0 to FHashTableSize-1 do\r\n      FHashTable.Add(nil);\r\n  FCount:=0;\r\nend;\r\n\r\nProcedure TFPCustomHashTable.ChangeTableSize(const ANewSize: Longword);\r\nvar\r\n  SavedTable, List: TFPObjectList;\r\n  SavedTableSize: Longword;\r\n  i, j: Longword;\r\n  temp: THTCustomNode;\r\nbegin\r\n  SavedTable:=FHashTable;\r\n  SavedTableSize:=FHashTableSize;\r\n  FHashTableSize:=ANewSize;\r\n  FHashTable:=TFPObjectList.Create(True);\r\n  InitializeHashTable;\r\n  if SavedTableSize>0 Then\r\n    for i:=0 to SavedTableSize-1 do\r\n      begin\r\n      List:=TFPObjectList(SavedTable[i]);\r\n      if Assigned(List) then\r\n        for j:=0 to List.Count -1 do\r\n          begin\r\n          temp:=THTCustomNode(List[j]);\r\n          AddNode(temp);\r\n          end;\r\n      end;\r\n  SavedTable.Free;\r\nend;\r\n\r\nProcedure TFPCustomHashTable.SetHashFunction(AHashFunction: THashFunction);\r\nbegin\r\n  if IsEmpty then\r\n    FHashFunction:=AHashFunction\r\n  else\r\n    raise Exception.Create(NotEmptyMsg);\r\nend;\r\n\r\nFunction TFPCustomHashTable.Find(const aKey: string): THTCustomNode;\r\nvar\r\n  hashCode: Longword;\r\n  chn: TFPObjectList;\r\n  i: Longword;\r\nbegin\r\n  hashCode:=FHashFunction(aKey, FHashTableSize);\r\n  chn:=Chain(hashCode);\r\n  if Assigned(chn) then\r\n    if chn.count>0 then\r\n      for i:=0 to chn.Count - 1 do\r\n        if THTCustomNode(chn[i]).Key=aKey then\r\n          Exit(THTCustomNode(chn[i]));\r\n  Result:=nil;\r\nend;\r\n\r\nFunction TFPCustomHashTable.FindChainForAdd(Const aKey : String) : TFPObjectList;\r\nvar\r\n  hashCode: Longword;\r\n  i: Longword;\r\nbegin\r\n  hashCode:=FHashFunction(aKey, FHashTableSize);\r\n  Result:=Chain(hashCode);\r\n  if Assigned(Result)  then\r\n    begin\r\n    if Result.count>0 then\r\n      for i:=0 to Result.Count - 1 do\r\n        if (THTCustomNode(Result[i]).Key=aKey) then\r\n          raise EDuplicate.CreateFmt(DuplicateMsg, [aKey]);\r\n    end\r\n  else\r\n    begin\r\n    FHashTable[hashcode]:=TFPObjectList.Create(True);\r\n    Result:=Chain(hashCode);\r\n    end;\r\n  Inc(FCount);\r\nend;\r\n\r\n\r\nProcedure TFPCustomHashTable.Delete(const aKey: string);\r\nvar\r\n  hashCode: Longword;\r\n  chn: TFPObjectList;\r\n  i: Longword;\r\nbegin\r\n  hashCode:=FHashFunction(aKey, FHashTableSize);\r\n  chn:=Chain(hashCode);\r\n  if Assigned(chn) then\r\n    if chn.count>0 then\r\n      for i:=0 to chn.Count - 1 do\r\n        if THTCustomNode(chn[i]).Key=aKey then\r\n          begin\r\n          chn.Delete(i);\r\n          dec(FCount);\r\n          Exit;\r\n          end;\r\nend;\r\n\r\nFunction TFPCustomHashTable.IsEmpty: boolean;\r\nbegin\r\n  Result:=(FCount = 0);\r\nend;\r\n\r\nFunction TFPCustomHashTable.Chain(const index: Longword): TFPObjectList;\r\nbegin\r\n  Result:=TFPObjectList(FHashTable[index]);\r\nend;\r\n\r\nFunction TFPCustomHashTable.GetVoidSlots: Longword;\r\nvar\r\n  i: Longword;\r\n  num: Longword;\r\nbegin\r\n  num:=0;\r\n  if FHashTableSize>0 then\r\n    for i:= 0 to FHashTableSize-1 do\r\n      if not Assigned(Chain(i)) then\r\n        Inc(num);\r\n  Result:=num;\r\nend;\r\n\r\nFunction TFPCustomHashTable.GetLoadFactor: double;\r\nbegin\r\n  Result:=Count / FHashTableSize;\r\nend;\r\n\r\nFunction TFPCustomHashTable.GetAVGChainLen: double;\r\nbegin\r\n  Result:=Count / (FHashTableSize - VoidSlots);\r\nend;\r\n\r\nFunction TFPCustomHashTable.GetMaxChainLength: Longword;\r\nvar\r\n  i: Longword;\r\nbegin\r\n  Result:=0;\r\n  if FHashTableSize>0 Then\r\n   for i:=0 to FHashTableSize-1 do\r\n      if ChainLength(i) > Result then\r\n        Result:=ChainLength(i);\r\nend;\r\n\r\nFunction TFPCustomHashTable.FindOrCreateNew(const aKey: string): THTCustomNode;\r\nvar\r\n  hashCode: Longword;\r\n  chn: TFPObjectList;\r\n  i: Longword;\r\nbegin\r\n  hashCode:=FHashFunction(aKey, FHashTableSize);\r\n  chn:=Chain(hashCode);\r\n  if Assigned(chn)  then\r\n    begin\r\n    if chn.count>0 then\r\n      for i:=0 to chn.Count - 1 do\r\n        if (THTCustomNode(chn[i]).Key=aKey) then\r\n          Exit(THTNode(chn[i]));\r\n    end\r\n  else\r\n    begin\r\n    FHashTable[hashcode]:=TFPObjectList.Create(true);\r\n    chn:=Chain(hashcode);\r\n    end;\r\n  Inc(FCount);\r\n  Result:=CreateNewNode(aKey);\r\n  chn.Add(Result);\r\nend;\r\n\r\nFunction TFPCustomHashTable.ChainLength(const ChainIndex: Longword): Longword;\r\nbegin\r\n  if Assigned(Chain(ChainIndex)) then\r\n    Result:=Chain(ChainIndex).Count\r\n  else\r\n    Result:=0;\r\nend;\r\n\r\nProcedure TFPCustomHashTable.Clear;\r\nvar\r\n  i: Longword;\r\nbegin\r\n  if FHashTableSize>0 then\r\n    for i:=0 to FHashTableSize - 1 do\r\n      if Assigned(Chain(i)) then\r\n        Chain(i).Clear;\r\n  FCount:=0;\r\nend;\r\n\r\n\r\n\r\n{ TFPDataHashTable }\r\n\r\nProcedure TFPDataHashTable.Add(const aKey: string; aItem: JSValue);\r\nvar\r\n  chn: TFPObjectList;\r\n  NewNode: THtDataNode;\r\nbegin\r\n  chn:=FindChainForAdd(akey);\r\n  NewNode:=THtDataNode(CreateNewNode(aKey));\r\n  NewNode.Data:=aItem;\r\n  chn.Add(NewNode);\r\nend;\r\n\r\nFunction TFPDataHashTable.GetData(const Index: string): JSValue;\r\nvar\r\n  node: THTDataNode;\r\nbegin\r\n  node:=THTDataNode(Find(Index));\r\n  if Assigned(node) then\r\n    Result:=node.Data\r\n  else\r\n    Result:=nil;\r\nend;\r\n\r\nProcedure TFPDataHashTable.SetData(const index: string; const AValue: JSValue);\r\nbegin\r\n  THTDataNode(FindOrCreateNew(index)).Data:=AValue;\r\nend;\r\n\r\nFunction TFPDataHashTable.CreateNewNode(const aKey : string) : THTCustomNode;\r\n\r\nbegin\r\n  Result:=THTDataNode.CreateWith(aKey);\r\nend;\r\n\r\nFunction TFPDataHashTable.Iterate(aMethod: TDataIteratorMethod): JSValue;\r\nvar\r\n  N : THTDataNode;\r\nbegin\r\n  N:=ForEachCall(AMethod);\r\n  if Assigned(N) then\r\n    Result:=N.Data\r\n  else\r\n    Result:=nil;\r\nend;\r\n\r\nProcedure TFPDataHashTable.CallbackIterator(Item: JSValue; const Key: string; var Continue: Boolean);\r\nbegin\r\n  FIteratorCallBack(Item, Key, Continue);\r\nend;\r\n\r\nFunction TFPDataHashTable.Iterate(aMethod: TDataIteratorCallBack): JSValue;\r\nbegin\r\n  FIteratorCallBack := aMethod;\r\n  Result := Iterate(@CallbackIterator);\r\nend;\r\n\r\nFunction TFPDataHashTable.ForEachCall(aMethod: TDataIteratorMethod): THTDataNode;\r\nvar\r\n  i, j: Longword;\r\n  continue: Boolean;\r\nbegin\r\n  Result:=nil;\r\n  continue:=true;\r\n  if FHashTableSize>0 then\r\n    for i:=0 to FHashTableSize-1 do\r\n      if Assigned(Chain(i)) then\r\n        if chain(i).count>0 then\r\n          for j:=0 to Chain(i).Count-1 do\r\n            begin\r\n            aMethod(THTDataNode(Chain(i)[j]).Data, THTDataNode(Chain(i)[j]).Key, continue);\r\n            if not continue then\r\n              begin\r\n              Result:=THTDataNode(Chain(i)[j]);\r\n              Exit;\r\n              end;\r\n           end;\r\nend;\r\n\r\nProcedure TFPDataHashTable.AddNode(ANode : THTCustomNode);\r\nbegin\r\n  with THTDataNode(ANode) do\r\n    Add(Key,Data);\r\nend;\r\n\r\n{ TFPStringHashTable }\r\n\r\nProcedure TFPStringHashTable.AddNode(ANode : THTCustomNode);\r\nbegin\r\n  with THTStringNode(ANode) do\r\n    Add(Key,Data);\r\nend;\r\n\r\nFunction TFPStringHashTable.GetData(const Index: string): String;\r\nvar\r\n  node: THTStringNode;\r\nbegin\r\n  node:=THTStringNode(Find(Index));\r\n  if Assigned(node) then\r\n    Result:=node.Data\r\n  else\r\n    Result:='';\r\nend;\r\n\r\nProcedure TFPStringHashTable.SetData(const index, AValue: string);\r\nbegin\r\n  THTStringNode(FindOrCreateNew(index)).Data:=AValue;\r\nend;\r\n\r\nProcedure TFPStringHashTable.Add(const aKey, aItem: string);\r\nvar\r\n  chn: TFPObjectList;\r\n  NewNode: THtStringNode;\r\nbegin\r\n  chn:=FindChainForAdd(akey);\r\n  NewNode:=THtStringNode(CreateNewNode(aKey));\r\n  NewNode.Data:=aItem;\r\n  chn.Add(NewNode);\r\nend;\r\n\r\nFunction TFPStringHashTable.CreateNewNode(const aKey : string) : THTCustomNode;\r\nbegin\r\n  Result:=THTStringNode.CreateWith(aKey);\r\nend;\r\n\r\nFunction TFPStringHashTable.Iterate(aMethod: TStringIteratorMethod): String;\r\nvar\r\n  N : THTStringNode;\r\nbegin\r\n  N:=ForEachCall(AMethod);\r\n  if Assigned(N) then\r\n    Result:=N.Data\r\n  else\r\n    Result:='';\r\nend;\r\n\r\nProcedure TFPStringHashTable.CallbackIterator(Item: String; const Key: string; var Continue: Boolean);\r\nbegin\r\n  FIteratorCallBack(Item, Key, Continue);\r\nend;\r\n\r\nFunction TFPStringHashTable.Iterate(aMethod: TStringIteratorCallback): String;\r\nbegin\r\n  FIteratorCallBack := aMethod;\r\n  Result := Iterate(@CallbackIterator);\r\nend;\r\n\r\nFunction TFPStringHashTable.ForEachCall(aMethod: TStringIteratorMethod): THTStringNode;\r\nvar\r\n  i, j: Longword;\r\n  continue: boolean;\r\nbegin\r\n  Result:=nil;\r\n  continue:=True;\r\n  if FHashTableSize>0 then\r\n    for i:=0 to FHashTableSize-1 do\r\n      if Assigned(Chain(i)) then\r\n        if chain(i).Count>0 then\r\n          for j:=0 to Chain(i).Count-1 do\r\n            begin\r\n            aMethod(THTStringNode(Chain(i)[j]).Data, THTStringNode(Chain(i)[j]).Key, continue);\r\n            if not continue then\r\n              begin\r\n              Result:=THTStringNode(Chain(i)[j]);\r\n              Exit;\r\n              end;\r\n            end;\r\nend;\r\n\r\n{ TFPObjectHashTable }\r\n\r\nProcedure TFPObjectHashTable.AddNode(ANode : THTCustomNode);\r\nbegin\r\n  With THTObjectNode(ANode) do\r\n    Add(Key,Data);\r\nend;\r\n\r\nFunction TFPObjectHashTable.GetData(const Index: string): TObject;\r\nvar\r\n  node: THTObjectNode;\r\nbegin\r\n  node:=THTObjectNode(Find(Index));\r\n  if Assigned(node) then\r\n    Result:=node.Data\r\n  else\r\n    Result:=nil;\r\nend;\r\n\r\nProcedure TFPObjectHashTable.SetData(const index : string; AObject : TObject);\r\nbegin\r\n  THTObjectNode(FindOrCreateNew(index)).Data:=AObject;\r\nend;\r\n\r\nProcedure TFPObjectHashTable.Add(const aKey: string; AItem : TObject);\r\nvar\r\n  chn: TFPObjectList;\r\n  NewNode: THTObjectNode;\r\nbegin\r\n  chn:=FindChainForAdd(akey);\r\n  NewNode:=THTObjectNode(CreateNewNode(aKey));\r\n  NewNode.Data:=aItem;\r\n  chn.Add(NewNode);\r\nend;\r\n\r\nFunction TFPObjectHashTable.CreateNewNode(const aKey : string) : THTCustomNode;\r\nbegin\r\n  if OwnsObjects then\r\n    Result:=THTOwnedObjectNode.CreateWith(aKey)\r\n  else\r\n    Result:=THTObjectNode.CreateWith(aKey);\r\nend;\r\n\r\n\r\nFunction TFPObjectHashTable.Iterate(aMethod: TObjectIteratorMethod): TObject;\r\nvar\r\n  N : THTObjectNode;\r\nbegin\r\n  N:=ForEachCall(AMethod);\r\n  if Assigned(N) then\r\n    Result:=N.Data\r\n  else\r\n    Result:=nil;\r\nend;\r\n\r\nProcedure TFPObjectHashTable.CallbackIterator(Item: TObject; const Key: string; var Continue: Boolean);\r\nbegin\r\n  FIteratorCallBack(Item, Key, Continue);\r\nend;\r\n\r\nFunction TFPObjectHashTable.Iterate(aMethod: TObjectIteratorCallback): TObject;\r\nbegin\r\n  FIteratorCallBack := aMethod;\r\n  Result := Iterate(@CallbackIterator);\r\nend;\r\n\r\nFunction TFPObjectHashTable.ForEachCall(aMethod: TObjectIteratorMethod): THTObjectNode;\r\nvar\r\n  i, j: Longword;\r\n  continue: boolean;\r\nbegin\r\n  Result:=nil;\r\n  continue:=true;\r\n  if FHashTableSize>0 then\r\n    for i:=0 to FHashTableSize-1 do\r\n      if Assigned(Chain(i)) then\r\n        if Chain(i).Count>0 then\r\n          for j:=0 to Chain(i).Count-1 do\r\n           begin\r\n           aMethod(THTObjectNode(Chain(i)[j]).Data, THTObjectNode(Chain(i)[j]).Key, continue);\r\n           if not continue then\r\n             begin\r\n             Result:=THTObjectNode(Chain(i)[j]);\r\n             Exit;\r\n             end;\r\n           end;\r\nend;\r\n\r\nconstructor TFPObjectHashTable.Create(AOwnsObjects : Boolean = True);\r\nbegin\r\n  inherited Create;\r\n  FOwnsObjects:=AOwnsObjects;\r\nend;\r\n\r\nconstructor TFPObjectHashTable.CreateWith(AHashTableSize: Longword; aHashFunc: THashFunction; AOwnsObjects : Boolean = True);\r\nbegin\r\n  inherited CreateWith(AHashTableSize,AHashFunc);\r\n  FOwnsObjects:=AOwnsObjects;\r\nend;\r\n\r\ndestructor THTOwnedObjectNode.Destroy;\r\nbegin\r\n  FreeAndNil(FData);\r\n  inherited;\r\nend;\r\n\r\n{ TCustomBucketList }\r\n\r\nFunction TCustomBucketList.GetData(AItem: JSValue): JSValue;\r\nvar\r\n  B,I : Integer;\r\nbegin\r\n  GetBucketItem(AItem,B,I);\r\n  Result:=FBuckets[B].Items[I].Data;\r\nend;\r\n\r\nFunction TCustomBucketList.GetBucketCount: Integer;\r\nbegin\r\n  Result:=Length(FBuckets);\r\nend;\r\n\r\nProcedure TCustomBucketList.SetData(AItem: JSValue; const AData: JSValue);\r\nvar\r\n  B,I : Integer;\r\nbegin\r\n  GetBucketItem(AItem,B,I);\r\n  FBuckets[B].Items[I].Data:=AData;\r\nend;\r\n\r\nProcedure TCustomBucketList.SetBucketCount(const Value: Integer);\r\nbegin\r\n  if (Value<>GetBucketCount) then\r\n    SetLength(FBuckets,Value);\r\nend;\r\n\r\nProcedure TCustomBucketList.GetBucketItem(AItem: JSValue; out ABucket,\r\n  AIndex: Integer);\r\nbegin\r\n  if not FindItem(AItem,ABucket,AIndex) then\r\n    Error(SErrNoSuchItem,[AItem]);\r\nend;\r\n\r\nFunction TCustomBucketList.AddItem(ABucket: Integer; AItem, AData: JSValue\r\n  ): JSValue;\r\nvar\r\n  L : Integer;\r\nbegin\r\n  L:=Length(FBuckets[ABucket].Items);\r\n  if (FBuckets[ABucket].Count=L) then\r\n    begin\r\n    if L<8 then\r\n      L:=8\r\n    else\r\n      L:=L+L div 2;\r\n    SetLength(FBuckets[ABucket].Items,L);\r\n    end;\r\n  with FBuckets[ABucket] do\r\n    begin\r\n    Items[Count].Item:=AItem;\r\n    Items[Count].Data:=AData;\r\n    Result:=AData;\r\n    Inc(Count);\r\n    end;\r\nend;\r\n\r\nFunction TCustomBucketList.DeleteItem(ABucket: Integer; AIndex: Integer): JSValue;\r\nvar\r\n  I,L : Integer;\r\nbegin\r\n  Result:=FBuckets[ABucket].Items[AIndex].Data;\r\n  if FBuckets[ABucket].Count=1 then\r\n    SetLength(FBuckets[ABucket].Items,0)\r\n  else\r\n    begin\r\n    L:=(FBuckets[ABucket].Count-AIndex-1);// No point in moving if last one...\r\n    For I:=0 to L-1 do\r\n      FBuckets[ABucket].Items[AIndex+I]:=FBuckets[ABucket].Items[AIndex+I+1];\r\n    end;\r\n  Dec(FBuckets[ABucket].Count);\r\nend;\r\n\r\nProcedure TCustomBucketList.Error(Msg: String; Args: array of Const);\r\nbegin\r\n  raise ElistError.CreateFmt(Msg,Args);\r\nend;\r\n\r\nFunction TCustomBucketList.FindItem(AItem: JSValue; out ABucket, AIndex: Integer\r\n  ): Boolean;\r\nvar\r\n  I : Integer;\r\n  B : TBucket;\r\nbegin\r\n  ABucket:=BucketFor(AItem);\r\n  B:=FBuckets[ABucket];\r\n  I:=B.Count-1;\r\n  while (I>=0) and (B.Items[I].Item<>AItem) do\r\n    Dec(I);\r\n  Result:=I>=0;\r\n  if Result then\r\n    AIndex:=I;\r\nend;\r\n\r\ndestructor TCustomBucketList.Destroy;\r\nbegin\r\n  Clear;\r\n  inherited Destroy;\r\nend;\r\n\r\nProcedure TCustomBucketList.Clear;\r\nvar\r\n  B : TBucket;\r\n  I,J : Integer;\r\nbegin\r\n  for I:=0 to Length(FBuckets)-1 do\r\n    begin\r\n    B:=FBuckets[I];\r\n    for J:=B.Count-1 downto 0 do\r\n      DeleteItem(I,J);\r\n    end;\r\n  SetLength(FBuckets,0);\r\nend;\r\n\r\nFunction TCustomBucketList.Add(AItem, AData: JSValue): JSValue;\r\nvar\r\n  B,I : Integer;\r\nbegin\r\n  if FindItem(AItem,B,I) then\r\n    Error(SDuplicateItem,[AItem]);\r\n  Result:=AddItem(B,AItem,AData);\r\nend;\r\n\r\nProcedure TCustomBucketList.Assign(AList: TCustomBucketList);\r\nvar\r\n  I,J : Integer;\r\nbegin\r\n  Clear;\r\n  SetLength(FBuckets,Length(Alist.FBuckets));\r\n  for I:=0 to BucketCount-1 do\r\n    begin\r\n    SetLength(FBuckets[i].Items,Length(AList.Fbuckets[I].Items));\r\n    for J:=0 to AList.Fbuckets[I].Count-1 do\r\n      with AList.Fbuckets[I].Items[J] do\r\n        AddItem(I,Item,Data);\r\n    end;\r\nend;\r\n\r\nFunction TCustomBucketList.Exists(AItem: JSValue): Boolean;\r\nvar\r\n  B,I : Integer;\r\nbegin\r\n  Result:=FindItem(AItem,B,I);\r\nend;\r\n\r\nFunction TCustomBucketList.Find(AItem: JSValue; out AData: JSValue): Boolean;\r\nvar\r\n  B,I : integer;\r\nbegin\r\n  Result:=FindItem(AItem,B,I);\r\n  if Result then\r\n    AData:=FBuckets[B].Items[I].Data;\r\nend;\r\n\r\nFunction TCustomBucketList.ForEach(AProc: TBucketProc): Boolean;\r\nbegin\r\n  Result:=Foreach(aProc,Null);\r\nend;\r\n\r\nFunction TCustomBucketList.ForEach(AProc: TBucketProc; AInfo: JSValue): Boolean;\r\nvar\r\n  I,J,S : Integer;\r\n  Bu : TBucket;\r\nbegin\r\n  I:=0;\r\n  Result:=True;\r\n  S:=GetBucketCount;\r\n  while Result and (I<S) do\r\n    begin\r\n    J:=0;\r\n    Bu:=FBuckets[I];\r\n    while Result and (J<Bu.Count) do\r\n      begin\r\n      with Bu.Items[J] do\r\n        AProc(AInfo,Item,Data,Result);\r\n      Inc(J);\r\n      end;\r\n    Inc(I);\r\n    end;\r\nend;\r\n\r\nFunction TCustomBucketList.Remove(AItem: JSValue): JSValue;\r\nvar\r\n  B,I : integer;\r\nbegin\r\n  if FindItem(AItem,B,I) then\r\n    begin\r\n    Result:=FBuckets[B].Items[I].Data;\r\n    DeleteItem(B,I);\r\n    end\r\n  else\r\n    Result:=nil;\r\nend;\r\n\r\n{ TBucketList }\r\n\r\nFunction TBucketList.BucketFor(AItem: JSValue): Integer;\r\nbegin\r\n  // JSValues on average have a granularity of 4\r\n  Result:=(longword(AItem) shr 2) and FBucketMask;\r\nend;\r\n\r\nconstructor TBucketList.Create(ABuckets: TBucketListSizes);\r\nvar\r\n  L : Integer;\r\nbegin\r\n  inherited Create;\r\n  L:=1 shl (Ord(Abuckets)+1);\r\n  SetBucketCount(L);\r\n  FBucketMask:=L-1;\r\nend;\r\n\r\n{ TObjectBucketList }\r\n\r\nFunction TObjectBucketList.GetData(AItem: TObject): TObject;\r\nbegin\r\n  Result:=TObject(inherited GetData(AItem));\r\nend;\r\n\r\nProcedure TObjectBucketList.SetData(AItem: TObject; const AData: TObject);\r\nbegin\r\n  inherited SetData(JSValue(AItem),JSValue(AData));\r\nend;\r\n\r\nFunction TObjectBucketList.Add(AItem, AData: TObject): TObject;\r\nbegin\r\n  Result:=TObject(inherited Add(JSValue(AItem),JSValue(AData)));\r\nend;\r\n\r\nFunction TObjectBucketList.Remove(AItem: TObject): TObject;\r\nbegin\r\n  Result:=TObject(inherited Remove(JSValue(AItem)));\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018                                      }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.Modules;\r\n\r\n{$DEFINE NOPP}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes;\r\n\r\ntype\r\n  TDataModuleClass = class of TDataModule;\r\n  TDataModule = class(TComponent)\r\n  strict private\r\n    FHeight: Integer;\r\n    FOldCreateOrder: Boolean;\r\n    FOnCreate: TNotifyEvent;\r\n    FOnDestroy: TNotifyEvent;\r\n    FWidth: Integer;\r\n  strict protected\r\n    procedure DoCreate; virtual;\r\n    procedure DoDestroy; virtual;\r\n    procedure LoadDFMValues; virtual;\r\n  public\r\n    constructor CreateNew(AOwner: TComponent; Dummy: Integer = 0); virtual;\r\n    procedure AfterConstruction; override;\r\n    procedure BeforeDestruction; override;\r\n    property Height: Integer read FHeight write FHeight;\r\n    property OldCreateOrder: Boolean read FOldCreateOrder write FOldCreateOrder;\r\n    property Width: Integer read FWidth write FWidth;\r\n  published\r\n    property OnCreate: TNotifyEvent read FOnCreate write FOnCreate;\r\n    property OnDestroy: TNotifyEvent read FOnDestroy write FOnDestroy;\r\n  end;\r\n  TWebDataModule = TDataModule;\r\n\r\nimplementation\r\n\r\nconstructor TDataModule.CreateNew(AOwner: TComponent; Dummy: Integer);\r\nbegin\r\n  inherited Create(AOwner);\r\nend;\r\n\r\n{ TDataModule }\r\n\r\nprocedure TDataModule.AfterConstruction;\r\nbegin\r\n  inherited AfterConstruction;\r\n  if not OldCreateOrder then\r\n    DoCreate;\r\nend;\r\n\r\nprocedure TDataModule.BeforeDestruction;\r\nbegin\r\n  inherited BeforeDestruction;\r\n  if not OldCreateOrder then\r\n    DoDestroy;\r\nend;\r\n\r\nprocedure TDataModule.DoCreate;\r\nbegin\r\n  LoadDFMValues;\r\n  if Assigned(FOnCreate) then\r\n    FOnCreate(Self);\r\nend;\r\n\r\nprocedure TDataModule.DoDestroy;\r\nbegin\r\n  if Assigned(FOnDestroy) then\r\n    FOnDestroy(Self);\r\nend;\r\n\r\nprocedure TDataModule.LoadDFMValues;\r\nbegin\r\nend;\r\n\r\nend.\r\n","unit WEBLib.Lang;\r\n\r\ninterface\r\n\r\ntype\r\n\r\n  TUILanguage = (\r\n        lNone,\r\n        lAfar,\r\n        lAbkhazian,\r\n        lAvestan,\r\n        lAfrikaans,\r\n        lAkan,\r\n        lAmharic,\r\n        lAragonese,\r\n        lArabic,\r\n        lAssamese,\r\n        lAvaric,\r\n        lAymara,\r\n        lAzerbaijani,\r\n        lBashkir,\r\n        lBelarusian,\r\n        lBulgarian,\r\n        lBihari,\r\n        lBislama,\r\n        lBambara,\r\n        lBengali,\r\n        lTibetan,\r\n        lBreton,\r\n        lBosnian,\r\n        lCatalan,\r\n        lChechen,\r\n        lChamorro,\r\n        lCorsican,\r\n        lCree,\r\n        lCzech,\r\n        lOldSlavic,\r\n        lChuvash,\r\n        lWelsh,\r\n        lDanish,\r\n        lGerman,\r\n        lDivehi,\r\n        lDzongkha,\r\n        lEwe,\r\n        lEnglish,\r\n        lEsperanto,\r\n        lSpanish,\r\n        lEstonian,\r\n        lBasque,\r\n        lPersian,\r\n        lFulah,\r\n        lFinnish,\r\n        lFijian,\r\n        lFaroese,\r\n        lFrench,\r\n        lWesternFrisian,\r\n        lIrish,\r\n        lGaelic,\r\n        lGalician,\r\n        lGuarani,\r\n        lGujarati,\r\n        lManx,\r\n        lHausa,\r\n        lHebrew,\r\n        lHindi,\r\n        lHiriMotu,\r\n        lCroatian,\r\n        lHaitian,\r\n        lHungarian,\r\n        lArmenian,\r\n        lHerero,\r\n        lInterlingua,\r\n        lIndonesian,\r\n        lInterlingue,\r\n        lIgbo,\r\n        lSichuanYi,\r\n        lInupiaq,\r\n        lIdo,\r\n        lIcelandic,\r\n        lItalian,\r\n        lInuktitut,\r\n        lJapanese,\r\n        lJavanese,\r\n        lGeorgian,\r\n        lKongo,\r\n        lKikuyu,\r\n        lKuanyama,\r\n        lKazakh,\r\n        lKalaallisut,\r\n        lCentralKhmer,\r\n        lKannada,\r\n        lKorean,\r\n        lKanuri,\r\n        lKashmiri,\r\n        lKurdish,\r\n        lKomi,\r\n        lCornish,\r\n        lKirghiz,\r\n        lLatin,\r\n        lLuxembourgish,\r\n        lGanda,\r\n        lLimburgan,\r\n        lLingala,\r\n        lLao,\r\n        lLithuanian,\r\n        lLubaKatanga,\r\n        lLatvian,\r\n        lMalagasy,\r\n        lMarshallese,\r\n        lMaori,\r\n        lMacedonian,\r\n        lMalayalam,\r\n        lMongolian,\r\n        lMarathi,\r\n        lMalay,\r\n        lMaltese,\r\n        lBurmese,\r\n        lNauru,\r\n        lNdebele,\r\n        lNepali,\r\n        lNdonga,\r\n        lDutch,\r\n        lNorwegian,\r\n        lNavajo,\r\n        lChichewa,\r\n        lOccitan,\r\n        lOjibwa,\r\n        lOromo,\r\n        lOriya,\r\n        lOssetian,\r\n        lPanjabi,\r\n        lPali,\r\n        lPolish,\r\n        lPushto,\r\n        lPortuguese,\r\n        lQuechua,\r\n        lRomansh,\r\n        lRundi,\r\n        lRomanian,\r\n        lRussian,\r\n        lKinyarwanda,\r\n        lSanskrit,\r\n        lSardinian,\r\n        lSindhi,\r\n        lNorthernSami,\r\n        lSango,\r\n        lSinhala,\r\n        lSlovak,\r\n        lSlovenian,\r\n        lSamoan,\r\n        lShona,\r\n        lSomali,\r\n        lAlbanian,\r\n        lSerbian,\r\n        lSwati,\r\n        lSotho,\r\n        lSundanese,\r\n        lSwedish,\r\n        lSwahili,\r\n        lTamil,\r\n        lTelugu,\r\n        lTajik,\r\n        lThai,\r\n        lTigrinya,\r\n        lTurkmen,\r\n        lTagalog,\r\n        lTswana,\r\n        lTonga,\r\n        lTurkish,\r\n        lTsonga,\r\n        lTatar,\r\n        lTwi,\r\n        lTahitian,\r\n        lUighur,\r\n        lUkrainian,\r\n        lUrdu,\r\n        lUzbek,\r\n        lVenda,\r\n        lVietnamese,\r\n        lWalloon,\r\n        lWolof,\r\n        lXhosa,\r\n        lYiddish,\r\n        lYoruba,\r\n        lZhuang,\r\n        lChinese,\r\n        lZulu);\r\n\r\nfunction GetLanguageISO639_1Code(ALang: TUILanguage): string;\r\n\r\nimplementation\r\n\r\nfunction GetLanguageISO639_1Code(ALang: TUILanguage): string;\r\nbegin\r\n  case ALang of\r\n    lNone: Result := '';\r\n    lAfar: Result := 'aa';\r\n    lAbkhazian: Result := 'ab';\r\n    lAvestan: Result := 'ae';\r\n    lAfrikaans: Result := 'af';\r\n    lAkan: Result := 'ak';\r\n    lAmharic: Result := 'am';\r\n    lAragonese: Result := 'an';\r\n    lArabic: Result := 'ar';\r\n    lAssamese: Result := 'as';\r\n    lAvaric: Result := 'av';\r\n    lAymara: Result := 'ay';\r\n    lAzerbaijani: Result := 'az';\r\n    lBashkir: Result := 'ba';\r\n    lBelarusian: Result := 'be';\r\n    lBulgarian: Result := 'bg';\r\n    lBihari: Result := 'bh';\r\n    lBislama: Result := 'bi';\r\n    lBambara: Result := 'bm';\r\n    lBengali: Result := 'bn';\r\n    lTibetan: Result := 'bo';\r\n    lBreton: Result := 'br';\r\n    lBosnian: Result := 'bd';\r\n    lCatalan: Result := 'ca';\r\n    lChechen: Result := 'ce';\r\n    lChamorro: Result := 'ch';\r\n    lCorsican: Result := 'co';\r\n    lCree: Result := 'cr';\r\n    lCzech: Result := 'cs';\r\n    lOldSlavic: Result := 'cu';\r\n    lChuvash: Result := 'cv';\r\n    lWelsh: Result := 'cy';\r\n    lDanish: Result := 'da';\r\n    lGerman: Result := 'de';\r\n    lDivehi: Result := 'dv';\r\n    lDzongkha: Result := 'dz';\r\n    lEwe: Result := 'ee';\r\n    lEnglish: Result := 'en';\r\n    lEsperanto: Result := 'eo';\r\n    lSpanish: Result := 'es';\r\n    lEstonian: Result := 'et';\r\n    lBasque: Result := 'eu';\r\n    lPersian: Result := 'fa';\r\n    lFulah: Result := 'ff';\r\n    lFinnish: Result := 'fi';\r\n    lFijian: Result := 'fj';\r\n    lFaroese: Result := 'fo';\r\n    lFrench: Result := 'fr';\r\n    lWesternFrisian: Result := 'fy';\r\n    lIrish: Result := 'ga';\r\n    lGaelic: Result := 'gd';\r\n    lGalician: Result := 'gl';\r\n    lGuarani: Result := 'gn';\r\n    lGujarati: Result := 'gu';\r\n    lManx: Result := 'gv';\r\n    lHausa: Result := 'ha';\r\n    lHebrew: Result := 'he';\r\n    lHindi: Result := 'hi';\r\n    lHiriMotu: Result := 'ho';\r\n    lCroatian: Result := 'hr';\r\n    lHaitian: Result := 'ht';\r\n    lHungarian: Result := 'hu';\r\n    lArmenian: Result := 'hy';\r\n    lHerero: Result := 'hz';\r\n    lInterlingua: Result := 'ia';\r\n    lIndonesian: Result := 'id';\r\n    lInterlingue: Result := 'ie';\r\n    lIgbo: Result := 'ig';\r\n    lSichuanYi: Result := 'ii';\r\n    lInupiaq: Result := 'ik';\r\n    lIdo: Result := 'id';\r\n    lIcelandic: Result := 'is';\r\n    lItalian: Result := 'it';\r\n    lInuktitut: Result := 'iu';\r\n    lJapanese: Result := 'ja';\r\n    lJavanese: Result := 'jv';\r\n    lGeorgian: Result := 'ka';\r\n    lKongo: Result := 'kg';\r\n    lKikuyu: Result := 'ki';\r\n    lKuanyama: Result := 'kj';\r\n    lKazakh: Result := 'kk';\r\n    lKalaallisut: Result := 'kl';\r\n    lCentralKhmer: Result := 'km';\r\n    lKannada: Result := 'kn';\r\n    lKorean: Result := 'ko';\r\n    lKanuri: Result := 'kr';\r\n    lKashmiri: Result := 'ks';\r\n    lKurdish: Result := 'ku';\r\n    lKomi: Result := 'kv';\r\n    lCornish: Result := 'kw';\r\n    lKirghiz: Result := 'ky';\r\n    lLatin: Result := 'la';\r\n    lLuxembourgish: Result := 'lb';\r\n    lGanda: Result := 'lg';\r\n    lLimburgan: Result := 'li';\r\n    lLingala: Result := 'ln';\r\n    lLao: Result := 'lo';\r\n    lLithuanian: Result := 'lt';\r\n    lLubaKatanga: Result := 'lu';\r\n    lLatvian: Result := 'lv';\r\n    lMalagasy: Result := 'mg';\r\n    lMarshallese: Result := 'mh';\r\n    lMaori: Result := 'mi';\r\n    lMacedonian: Result := 'mk';\r\n    lMalayalam: Result := 'ml';\r\n    lMongolian: Result := 'mn';\r\n    lMarathi: Result := 'mr';\r\n    lMalay: Result := 'ms';\r\n    lMaltese: Result := 'mt';\r\n    lBurmese: Result := 'my';\r\n    lNauru: Result := 'na';\r\n    lNdebele: Result := 'nb';\r\n    lNepali: Result := 'nd';\r\n    lNdonga: Result := 'ng';\r\n    lDutch: Result := 'nl';\r\n    lNorwegian: Result := 'no';\r\n    lNavajo: Result := 'nv';\r\n    lChichewa: Result := 'ny';\r\n    lOccitan: Result := 'oc';\r\n    lOjibwa: Result := 'oj';\r\n    lOromo: Result := 'om';\r\n    lOriya: Result := 'or';\r\n    lOssetian: Result := 'os';\r\n    lPanjabi: Result := 'pa';\r\n    lPali: Result := 'pi';\r\n    lPolish: Result := 'pl';\r\n    lPushto: Result := 'ps';\r\n    lPortuguese: Result := 'pt';\r\n    lQuechua: Result := 'qu';\r\n    lRomansh: Result := 'rm';\r\n    lRundi: Result := 'rn';\r\n    lRomanian: Result := 'ro';\r\n    lRussian: Result := 'ru';\r\n    lKinyarwanda: Result := 'rw';\r\n    lSanskrit: Result := 'sa';\r\n    lSardinian: Result := 'sc';\r\n    lSindhi: Result := 'sd';\r\n    lNorthernSami: Result := 'se';\r\n    lSango: Result := 'sg';\r\n    lSinhala: Result := 'si';\r\n    lSlovak: Result := 'sk';\r\n    lSlovenian: Result := 'sl';\r\n    lSamoan: Result := 'sm';\r\n    lShona: Result := 'sn';\r\n    lSomali: Result := 'so';\r\n    lAlbanian: Result := 'sq';\r\n    lSerbian: Result := 'sr';\r\n    lSwati: Result := 'ss';\r\n    lSotho: Result := 'st';\r\n    lSundanese: Result := 'su';\r\n    lSwedish: Result := 'sv';\r\n    lSwahili: Result := 'sw';\r\n    lTamil: Result := 'ta';\r\n    lTelugu: Result := 'te';\r\n    lTajik: Result := 'tg';\r\n    lThai: Result := 'th';\r\n    lTigrinya: Result := 'ti';\r\n    lTurkmen: Result := 'tk';\r\n    lTagalog: Result := 'tl';\r\n    lTswana: Result := 'tn';\r\n    lTonga: Result := 'to';\r\n    lTurkish: Result := 'tr';\r\n    lTsonga: Result := 'ts';\r\n    lTatar: Result := 'tt';\r\n    lTwi: Result := 'tw';\r\n    lTahitian: Result := 'ty';\r\n    lUighur: Result := 'ug';\r\n    lUkrainian: Result := 'uk';\r\n    lUrdu: Result := 'ur';\r\n    lUzbek: Result := 'uz';\r\n    lVenda: Result := 've';\r\n    lVietnamese: Result := 'vi';\r\n    lWalloon: Result := 'wa';\r\n    lWolof: Result := 'wo';\r\n    lXhosa: Result := 'xh';\r\n    lYiddish: Result := 'yi';\r\n    lYoruba: Result := 'yo';\r\n    lZhuang: Result := 'za';\r\n    lChinese: Result := 'zh';\r\n    lZulu: Result := 'zu';\r\n  end;\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2019 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.Menus;\r\n\r\n{$DEFINE NOPP}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, SysUtils, WEBLib.Controls, WEBLib.Graphics, Web;\r\n\r\ntype\r\n  TMainMenu = class;\r\n  TMenuItem = class;\r\n  TCustomMainMenu = class;\r\n\r\n  TMenuItemAutoFlag = (maAutomatic, maManual, maParent);\r\n  TMenuBreak = (mbNone, mbBreak, mbBarBreak);\r\n  THelpContext = -MaxLongint..MaxLongint;\r\n  //TShortCut = Low(Word)..High(Word);\r\n  TShortCut = type Word;\r\n  TMainMenuHamburgerMenuVisible = (hmAlways, hmNever, hmResponsive);\r\n\r\n  TMainMenuChangeEvent = procedure(Sender: TObject; Source: TMenuItem; Rebuild: boolean) of object;\r\n\r\n  TMenuItemList = class(TList)\r\n  private\r\n    function GetItem(Index: Integer): TMenuItem;\r\n    procedure PutItem(Index: Integer; const Value: TMenuItem);\r\n  public\r\n    property Items[Index: Integer]: TMenuItem read GetItem write PutItem; default;\r\n  end;\r\n\r\n  TMenuItem = class(TComponent)\r\n  private\r\n    FOwner: TMenuItem;\r\n    FCaption: string;\r\n    FItems: TMenuItemList;\r\n    FParentItem: TMenuItem;\r\n    FUpdateCount: integer;\r\n    FOnClick: TNotifyEvent;\r\n    FChecked: Boolean;\r\n    FEnabled: Boolean;\r\n    FDefault: Boolean;\r\n    FAutoCheck: Boolean;\r\n    FHint: string;\r\n    FAutoHotkeys: TMenuItemAutoFlag;\r\n    FRadioItem: Boolean;\r\n    FGroupIndex: Byte;\r\n    FVisible: Boolean;\r\n    FShortCut: TShortCut;\r\n    FBreak: TMenuBreak;\r\n    FImageIndex: Integer;\r\n    FAutoLineReduction: TMenuItemAutoFlag;\r\n    FHelpContext: THelpContext;\r\n    FElementClassName: TElementClassName;\r\n    FParentMenu: TComponent;\r\n    procedure SetChecked(const Value: Boolean);\r\n    procedure SetCaption(const Value: string);\r\n    procedure SetImageIndex(const Value: Integer);\r\n    procedure SetEnabled(const Value: Boolean);\r\n    function GetMenuItem(AIndex: integer): TMenuItem;\r\n    procedure SetMenuItem(AIndex: integer; const Value: TMenuItem);\r\n    //function HandleClick(Event: TJSEvent): Boolean; virtual;\r\n  protected\r\n    function GetCount: integer;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure BeginUpdate; virtual; reintroduce;\r\n    procedure EndUpdate; virtual; reintroduce;\r\n    procedure SetParentComponent(Value: TComponent); override;\r\n    procedure Add(Item: TMenuItem);\r\n    procedure Insert(Index: Integer; Item: TMenuItem); reintroduce;\r\n    function IsChild(Item: TMenuItem): boolean;\r\n    function GetOwner: TPersistent; override;\r\n    function GetParentMenu: TCustomMainMenu;\r\n    procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;\r\n    procedure SetChildOrder(Child: TComponent; Order: Integer); override;\r\n    procedure RemoveItem(AOwner, AItem: TComponent);\r\n    property Items: TMenuItemList read FItems write FItems;\r\n    property Item[AIndex: integer]: TMenuItem read GetMenuItem write SetMenuItem; default;\r\n    property Count: Integer read GetCount;\r\n    property Parent: TMenuItem read FParentItem;\r\n    procedure Clear;\r\n    procedure Click;\r\n  published\r\n    property AutoCheck: Boolean read FAutoCheck write FAutoCheck default False;\r\n    property AutoHotkeys: TMenuItemAutoFlag read FAutoHotkeys write FAutoHotkeys default maParent;\r\n    property AutoLineReduction: TMenuItemAutoFlag read FAutoLineReduction write FAutoLineReduction default maParent;\r\n    property Break: TMenuBreak read FBreak write FBreak default mbNone;\r\n    property Caption: string read FCaption write SetCaption;\r\n    property Checked: Boolean read FChecked write SetChecked default False;\r\n    property Default: Boolean read FDefault write FDefault default False;\r\n    property Enabled: Boolean read FEnabled write SetEnabled default True;\r\n    property GroupIndex: Byte read FGroupIndex write FGroupIndex default 0;\r\n    property HelpContext: THelpContext read FHelpContext write FHelpContext default 0;\r\n    property Hint: string read FHint write FHint;\r\n    property ImageIndex: Integer read FImageIndex write SetImageIndex default -1;\r\n    property RadioItem: Boolean read FRadioItem write FRadioItem default False;\r\n    property ShortCut: TShortCut read FShortCut write FShortCut default 0;\r\n    property Visible: Boolean read FVisible write FVisible default True;\r\n    property ElementClassName: TElementClassName read FElementClassName write FElementClassName;\r\n    property OnClick: TNotifyEvent read FOnClick write FOnClick;\r\n  end;\r\n\r\n  TMainMenuAppearance = class;\r\n\r\n  THamburgerMenu = class(TPersistent)\r\n  private\r\n    FOwner: TMainMenuAppearance;\r\n    FVisible: TMainMenuHamburgerMenuVisible;\r\n    FCaption: string;\r\n    FBackgroundColor: TColor;\r\n    FCaptionColor: TColor;\r\n    FResponsiveMaxWidth: Integer;\r\n    procedure SetVisible(const Value: TMainMenuHamburgerMenuVisible);\r\n    procedure SetBackgroundColor(const Value: TColor);\r\n    procedure SetCaption(const Value: string);\r\n    procedure SetCaptionColor(const Value: TColor);\r\n    procedure SetResponsiveMaxWidth(const Value: Integer);\r\n  public\r\n    constructor Create(AOwner: TMainMenuAppearance); overload;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    function GetOwner: TPersistent; override;\r\n  published\r\n    property Caption: string read FCaption write SetCaption;\r\n    property CaptionColor: TColor read FCaptionColor write SetCaptionColor default clWhite;\r\n    property BackgroundColor: TColor read FBackgroundColor write SetBackgroundColor default clSilver;\r\n    property Visible: TMainMenuHamburgerMenuVisible read FVisible write SetVisible default hmResponsive;\r\n    property ResponsiveMaxWidth: Integer read FResponsiveMaxWidth write SetResponsiveMaxWidth default 768;\r\n  end;\r\n\r\n  TMainMenuAppearance = class(TPersistent)\r\n  private\r\n    FOwner: TMainMenu;\r\n    FBackgroundColor: TColor;\r\n    FHoverFontColor: TColor;\r\n    FHoverColor: TColor;\r\n    FImageURLs: TStringList;\r\n    FHamburgerMenu: THamburgerMenu;\r\n    FImageSize: Integer;\r\n    FSubmenuIndicator: string;\r\n    procedure SetBackgroundColor(const Value: TColor);\r\n    procedure SetHoverColor(const Value: TColor);\r\n    procedure SetHoverFontColor(const Value: TColor);\r\n    procedure SetImageURLs(const Value: TStringList);\r\n    procedure SetImageSize(const Value: Integer);\r\n    procedure SetSubmenuIndicator(const Value: string);\r\n  protected\r\n    procedure HandleImageURLsChanged(Sender: TObject);\r\n  public\r\n    constructor Create(AOwner: TMainMenu); overload;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    function GetOwner: TPersistent; override;\r\n  published\r\n    property BackgroundColor: TColor read FBackgroundColor write SetBackgroundColor default $F0F0F0;\r\n    property HamburgerMenu: THamburgerMenu read FHamburgerMenu write FHamburgerMenu;\r\n    property HoverColor: TColor read FHoverColor write SetHoverColor default clHighlight;\r\n    property HoverFontColor: TColor read FHoverFontColor write SetHoverFontColor default clHighlightText;\r\n    property ImageURLs: TStringList read FImageURLs write SetImageURLs;\r\n    property ImageSize: Integer read FImageSize write SetImageSize default 16;\r\n    property SubmenuIndicator: string read FSubmenuIndicator write SetSubmenuIndicator;\r\n  end;\r\n\r\n  TCustomMainMenu = class(TCustomControl)\r\n  private\r\n    FItems: TMenuItem;\r\n    FOnChange: TMainMenuChangeEvent;\r\n  protected\r\n    procedure Loaded; override;\r\n    procedure UpdateElement; override;\r\n    function GetUniqueName(AName: string): string;\r\n    procedure SetName(const NewName: TComponentName); override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;\r\n    procedure SetChildOrder(Child: TComponent; Order: Integer); override;\r\n  published\r\n    property Items: TMenuItem read FItems;\r\n    property OnChange: TMainMenuChangeEvent read FOnChange write FOnChange;\r\n  end;\r\n\r\n  TMainMenu = class(TCustomMainMenu)\r\n  private\r\n    FMenu: TJSHTMLElement;\r\n    FMainMenu: Boolean;\r\n    FMenuIndex: Integer;\r\n    FAppearance: TMainMenuAppearance;\r\n    FContainer: TControl;\r\n    FIsPopupMenu: Boolean;\r\n    FShowPopup: Boolean;\r\n    FAutoMerge: boolean;\r\n    FElementItemClassName: TElementClassName;\r\n    function HandleChange(Event: TJSEvent): Boolean; virtual;\r\n  protected\r\n    procedure Loaded; override;\r\n    procedure UpdateElement; override;\r\n    function GetMenuSource(Item: TMenuItem): TJSHTMLElement;\r\n    function GetItemByName(AMenu: TMenuItem; Name: string): TMenuItem;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    function CreateElement: TJSElement; override;\r\n    destructor Destroy; override;\r\n    property AutoMerge: boolean read FAutoMerge write FAutoMerge;\r\n  published\r\n    property Appearance: TMainMenuAppearance read FAppearance write FAppearance;\r\n    property Container: TControl read FContainer write FContainer;\r\n    property ElementFont;\r\n    property ElementClassName;\r\n    property ElementItemClassName: TElementClassName read FElementItemClassName write FElementItemClassName;\r\n    property Font;\r\n    property ParentFont;\r\n  end;\r\n\r\n  TWebMainMenu = class(TMainMenu);\r\n\r\n  TPopupMenu = class(TMainMenu)\r\n  private\r\n    FOnPopup: TNotifyEvent;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    procedure CreateInitialize; override;\r\n    procedure Popup(X, Y: Integer);\r\n  published\r\n    property OnPopup: TNotifyEvent read FOnPopup write FOnPopup;\r\n  end;\r\n\r\n  TWebPopupMenu = class(TPopupMenu);\r\n\r\n  TWebCustomControlClass = class of TWebCustomControl;\r\n  TWebCustomControl = class(TCustomControl)\r\n  private\r\n    FPopupMenu: TPopupMenu;\r\n  protected\r\n    function HandleDoContextMenu(Event: TJSMouseEvent): Boolean; override;\r\n    procedure Notification(AComponent: TComponent;  Operation: TOperation); override;\r\n    property PopupMenu: TPopupMenu read FPopupMenu write FPopupMenu;\r\n  end;\r\n\r\n  TWebGraphicControl = class(TGraphicControl)\r\n  private\r\n    FPopupMenu: TPopupMenu;\r\n  protected\r\n    function HandleDoContextMenu(Event: TJSMouseEvent): Boolean; override;\r\n    procedure Notification(AComponent: TComponent;  Operation: TOperation); override;\r\n    property PopupMenu: TPopupMenu read FPopupMenu write FPopupMenu;\r\n  end;\r\n\r\n\r\nimplementation\r\n\r\nuses\r\n  Types, WEBLib.Forms;\r\n\r\nfunction MakeValidName(s: string): string;\r\nconst\r\n  Alpha = ['A'..'Z', 'a'..'z', '_'];\r\n  AlphaNum = Alpha + ['0'..'9'];\r\nvar\r\n  i: integer;\r\nbegin\r\n  Result := '';\r\n\r\n  for i := 1 to Length(s) do\r\n  begin\r\n    if s[i] in AlphaNum then\r\n      Result := Result + s[i];\r\n  end;\r\nend;\r\n\r\n\r\n{ TCustomMainMenu }\r\n\r\nprocedure TCustomMainMenu.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FItems := TMenuItem.Create(Self);\r\n  FItems.FParentMenu := Self;\r\n  WidthStyle := ssAuto;\r\n  Height := 30;\r\nend;\r\n\r\ndestructor TCustomMainMenu.Destroy;\r\nbegin\r\n  FItems.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TCustomMainMenu.GetChildren(Proc: TGetChildProc; Root: TComponent);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  if Assigned(FItems) and Assigned(FItems.Items) then\r\n  begin\r\n    for I := 0 to FItems.Items.Count - 1 do\r\n    begin\r\n      Proc(TMenuItem(FItems.Items[I]));\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TCustomMainMenu.GetUniqueName(AName: string): string;\r\nvar\r\n  i,id: integer;\r\n  found: boolean;\r\nbegin\r\n  id := 1;\r\n\r\n  if AName = ''  then\r\n    AName := Name + 'item';\r\n\r\n  AName := MakeValidName(AName);\r\n\r\n  repeat\r\n    Result := AName + inttostr(id);\r\n\r\n    found := true;\r\n\r\n    for i := 0 to Owner.ComponentCount - 1 do\r\n    begin\r\n      if Owner.Components[i].Name = Result then\r\n      begin\r\n        found := false;\r\n        inc(id);\r\n        break;\r\n      end;\r\n    end;\r\n\r\n  until found;\r\nend;\r\n\r\nprocedure TCustomMainMenu.Loaded;\r\nbegin\r\n  inherited;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  if Assigned(ElementHandle) then\r\n    UpdateElement;\r\nend;\r\n\r\nprocedure TCustomMainMenu.SetChildOrder(Child: TComponent; Order: Integer);\r\nvar\r\n  idx: integer;\r\nbegin\r\n  idx := FItems.Items.IndexOf(Child);\r\n  if (idx >= 0) and (Order < FItems.Items.Count) then\r\n  begin\r\n    FItems.Items.Move(idx, Order);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomMainMenu.SetName(const NewName: TComponentName);\r\nbegin\r\n  inherited;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n  if (csLoading in ComponentState) then\r\n    Exit;\r\n\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TCustomMainMenu.UpdateElement;\r\nbegin\r\n  inherited;\r\n  if IsUpdating then\r\n    Exit;\r\nend;\r\n\r\n{ TMainMenu }\r\n\r\nfunction TMainMenu.GetMenuSource(Item: TMenuItem): TJSHTMLElement;\r\nvar\r\n  I: Integer;\r\n  it: TMenuItem;\r\n  MenuClass: string;\r\n  ElListItem, ElLabel, ElCheckBox, ElSymbol: TJSHTMLElement;\r\n  id: Integer;\r\n  caption: string;\r\nbegin\r\n  Result := nil;\r\n\r\n  if Assigned(Item.Items) and (Item.Items.Count > 0) then\r\n  begin\r\n    Result := TJSHTMLElement(document.createElement('UL'));\r\n    if FMainMenu then\r\n    begin\r\n      FMainMenu := False;\r\n      if FIsPopupMenu then\r\n        MenuClass := 'popup-menu'\r\n      else\r\n        MenuClass := 'main-menu';\r\n    end\r\n    else\r\n      MenuClass := 'sub-menu';\r\n\r\n    FMenuIndex := FMenuIndex + 1;\r\n\r\n    Result.setAttribute('class', MenuClass);\r\n\r\n    for I := 0 to Item.Items.Count - 1 do\r\n    begin\r\n      it := TMenuItem(Item.Items[I]);\r\n\r\n      id := id + 1;\r\n\r\n      if it.Name = '' then\r\n      begin\r\n        caption := StringReplace(it.Caption, ' ', '', [rfReplaceAll]);\r\n        caption := MakeValidName(caption);\r\n        if caption = '' then\r\n          caption := 'MenuItem' + IntToStr(id);\r\n        it.Name := caption + IntToStr(id);\r\n      end;\r\n\r\n      if it.Visible then\r\n      begin\r\n        ElListItem := TJSHTMLElement(document.createElement('LI'));\r\n\r\n        if it.Caption <> '-' then\r\n        begin\r\n          ElLabel := TJSHTMLElement(document.createElement('LABEL'));\r\n          if ElementItemClassName <> '' then\r\n            ElLabel.setAttribute('class', FElementItemClassName)\r\n          else\r\n            ElLabel.setAttribute('class', 'drop-label');\r\n          ElLabel.setAttribute('title', it.Hint);\r\n          if (it.ImageIndex >= 0) and (Appearance.ImageURLs.Count > it.ImageIndex) then\r\n            ElLabel.innerHTML := '<img class=\"icon\" src=\"' + Appearance.ImageURLs[it.ImageIndex] + '\">'\r\n        else\r\n          if it.Checked then\r\n          begin\r\n            if it.RadioItem then\r\n              ElLabel.innerHTML := '<span class=\"checked\">&#9679;</span>'\r\n            else\r\n              ElLabel.innerHTML := '<span class=\"checked\">&#10004;</span>';\r\n          end;\r\n          ElLabel.innerHTML := ElLabel.innerHTML + it.Caption;\r\n        end\r\n        else\r\n        begin\r\n          ElLabel := TJSHTMLElement(document.createElement('SPAN'));\r\n          ElLabel.setAttribute('class', 'menu-separator');\r\n          ElLabel.innerHTML := '';\r\n        end;\r\n\r\n        if Assigned(it.Items) and (it.Items.Count > 0) then\r\n        begin\r\n          ElSymbol := TJSHTMLElement(document.createElement('SPAN'));\r\n          ElSymbol.setAttribute('class', 'drop-icon');\r\n//          ElSymbol.innerHTML := '&gt;';\r\n//          ElSymbol.innerHTML := '&#9658;';\r\n//          ElSymbol.innerHTML := '&#9660;';\r\n          ElSymbol.innerHTML := Appearance.SubmenuIndicator;\r\n\r\n          ElLabel.setAttribute('for', 'sm' + IntToStr(FMenuIndex));\r\n          ElLabel.appendChild(ElSymbol);\r\n\r\n          if not it.Enabled then\r\n            ElLabel.style.setProperty('color', 'gray');\r\n\r\n          ElCheckBox := TJSHTMLElement(document.createElement('INPUT'));\r\n          ElCheckBox.setAttribute('type', 'checkbox');\r\n          ElCheckBox.setAttribute('id', 'sm' + IntToStr(FMenuIndex));\r\n\r\n          ElListItem.appendChild(ElLabel);\r\n          ElListItem.appendChild(ElCheckBox);\r\n          if it.Enabled then\r\n            ElListItem.appendChild(GetMenuSource(it));\r\n        end\r\n        else\r\n        begin\r\n          ElLabel.setAttribute('for', GetID + 'tm');\r\n          ElLabel.setAttribute('id', it.Name);\r\n          if it.Enabled then\r\n          begin\r\n            if (MenuClass = 'sub-menu') then\r\n            begin\r\n              //Hide the sub-menu onclick and then revert to the initial state to\r\n              //make it re-appear when hovering\r\n              if it.Enabled then\r\n                ElLabel.setAttribute('onMouseUp', GetID + 'MenuClick(this);');\r\n            end;\r\n            ElLabel.addEventListener('click', @HandleChange);\r\n          end\r\n          else\r\n            ElLabel.style.setProperty('color', 'gray');\r\n\r\n          ElListItem.appendChild(ElLabel);\r\n        end;\r\n\r\n        Result.appendChild(ElListItem);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TMainMenu.GetItemByName(AMenu: TMenuItem; Name: string): TMenuItem;\r\nvar\r\n  I: Integer;\r\n  it: TMenuItem;\r\nbegin\r\n  Result := nil;\r\n\r\n  if Assigned(AMenu.Items) then\r\n  begin\r\n    for I := 0 to AMenu.Items.Count - 1 do\r\n    begin\r\n      it := TMenuItem(AMenu.Items.Items[I]);\r\n\r\n      if it.Name = Name then\r\n      begin\r\n        Result := it;\r\n        if Assigned(it.OnClick) then\r\n          Result.OnClick := it.OnClick;\r\n        Exit;\r\n      end;\r\n\r\n      if not Assigned(Result) then\r\n        Result := GetItemByName(it, Name);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TMainMenu.HandleChange(Event: TJSEvent): Boolean;\r\nvar\r\n  h: TJSHTMLElement;\r\n  it: TMenuItem;\r\nbegin\r\n  Result := True;\r\n\r\n  if FIsPopupMenu then\r\n  begin\r\n    FShowPopup := False;\r\n    UpdateElement;\r\n  end;\r\n\r\n  h := TJSHTMLElement(Event.target);\r\n\r\n  // click on child element in menu item\r\n  if not h.hasAttribute('id') then\r\n    h := TJSHTMLElement(h.parentElement);\r\n\r\n  it := GetItemByName(Items, h.id);\r\n\r\n  if Assigned(it) then\r\n  begin\r\n    if it.AutoCheck then\r\n      it.Checked := not it.Checked;\r\n\r\n    if Assigned(OnChange) then\r\n      OnChange(Self, it, False);\r\n\r\n    it.Click;\r\n  end;\r\nend;\r\n\r\nfunction TMainMenu.CreateElement: TJSElement;\r\nvar\r\n  LLabel: TJSHTMLElement;\r\nbegin\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Result := document.createElement('DIV');\r\n    LLabel := TJSHTMLElement(document.createElement('DIV'));\r\n    LLabel.innerHTML := 'TWebMainMenu';\r\n    BorderStyle := bsSingle;\r\n    LLabel['align'] := 'center';\r\n    LLabel.style.setProperty('border','1px solid gray');\r\n    LLabel.style.setProperty('vertical-align','middle');\r\n    LLabel.style.setProperty('display','table-cell');\r\n    Result.appendChild(LLabel);\r\n  end\r\n  else\r\n  begin\r\n    Result := document.createElement('DIV');\r\n    if FIsPopupMenu then\r\n      Result.setAttribute('onMouseLeave', GetID + 'MenuOut(this);');\r\n  end;\r\nend;\r\n\r\nprocedure TMainMenu.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FAppearance := TMainMenuAppearance.Create(Self);\r\n  FContainer := nil;\r\n  FMainMenu := True;\r\n  FMenuIndex := 0;\r\n  FIsPopupMenu := False;\r\n  FShowPopup := False;\r\n\r\n  Top := 0;\r\n  Left := 0;\r\n  Width := 100;\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    ElementPosition := epRelative;\r\n    WidthPercent := 100;\r\n    WidthStyle := ssPercent;\r\n  end;\r\nend;\r\n\r\ndestructor TMainMenu.Destroy;\r\nbegin\r\n  FAppearance.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TMainMenu.Loaded;\r\nbegin\r\n  inherited;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  if not Assigned(Container) and (Parent is TCustomForm) and ((Parent as TCustomForm).Menu = Self) then\r\n  begin\r\n    FContainer := Parent;\r\n  end;\r\n\r\n  if Assigned(ElementHandle) then\r\n    UpdateElement;\r\nend;\r\n\r\nprocedure TMainMenu.UpdateElement;\r\nvar\r\n  MenuStyle, MenuColorStyle, MenuResponsiveStyle, MenuImageSize, ShowPopup: string;\r\n  ElHandle, ElLabel, ElSpan, ElIcon, ElCheckBox, ElStyle, ElScript, ElItems: TJSHTMLElement;\r\nbegin\r\n  inherited;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  if not Assigned(ElementHandle) and not Assigned(Container) then\r\n    Exit;\r\n\r\n  if Assigned(Container) then\r\n  begin\r\n    ElHandle := Container.ElementHandle;\r\n    Visible := False;\r\n  end\r\n  else\r\n  begin\r\n    ElHandle := ElementHandle;\r\n    ElHandle.style.setProperty('top', IntToStr(Top)+'px');\r\n    ElHandle.style.setProperty('left', IntToStr(Left)+'px');\r\n    if (csDesigning in ComponentState) and not Assigned(Container) then\r\n      TJSHTMLElement(ElementHandle).style.setProperty('background-color','silver');\r\n  end;\r\n\r\n  FMenu := TJSHTMLElement(ElHandle.firstChild);\r\n  if Assigned(FMenu) then\r\n    FMenu.parentElement.removeChild(FMenu);\r\n\r\n  if (csDestroying in ComponentState) then\r\n    Exit;\r\n\r\n  FMenu := TJSHTMLElement(document.createElement('NAV'));\r\n  FMenu.setAttribute('id', GetID + 'menu');\r\n  FMenu.innerHTML := '';\r\n\r\n  if Assigned(Container) then\r\n  begin\r\n    FMenu.style.setProperty('top', '0');\r\n    FMenu.style.setProperty('left', '0');\r\n    FMenu.style.setProperty('position', 'absolute');\r\n    FMenu.style.setProperty('width', '100%');\r\n    FMenu.style.setProperty('z-index', '999997');\r\n  end;\r\n\r\n  //if not Assigned(Container) then\r\n  begin\r\n    //ElHandle.innerHTML := '';\r\n    ElHandle.style.setProperty('overflow', 'visible');\r\n  end;\r\n\r\n  if Appearance.HamburgerMenu.Visible <> hmAlways then\r\n  begin\r\n    if FShowPopup then\r\n      ShowPopup := 'block'\r\n    else\r\n      ShowPopup := 'none';\r\n\r\n    MenuResponsiveStyle :=\r\n      '  #' + GetID + 'menu .main-menu {'#13\r\n      + '    display: block;'#13\r\n      + '  }'#13\r\n\r\n      + '  #' + GetID + 'menu #toggle-menu {'#13\r\n      + '    display: none;'#13\r\n      + '  }'#13\r\n\r\n      + '  #' + GetID + 'menu ul span.drop-label {'#13\r\n      + '    display: inline-block;'#13\r\n      + '  }'#13\r\n\r\n      + '  #' + GetID + 'menu li {'#13\r\n      + '    float: left;'#13\r\n      + '    border-width: 0 1px 0 0;'#13\r\n      + '  }'#13\r\n\r\n      + '  #' + GetID + 'menu .popup-menu li, '#13\r\n      + '  #' + GetID + 'menu .sub-menu li {'#13\r\n      + '    float: none;'#13\r\n      + '  }'#13\r\n\r\n      + '  #' + GetID + 'menu .sub-menu {'#13\r\n      + '    top: 100%;'#13\r\n      + '  }'#13\r\n\r\n      + '  #' + GetID + 'menu .popup-menu { '#13\r\n      + '    top: 0;'#13\r\n      + '  }'#13\r\n\r\n      + '  #' + GetID + 'menu .popup-menu, '#13\r\n      + '  #' + GetID + 'menu .sub-menu {'#13\r\n      + '    border-width: 0;'#13\r\n      + '    margin: 0;'#13\r\n      + '    position: absolute;'#13\r\n      + '    left: 0;'#13\r\n      + '    min-width: 12em;'#13\r\n      + '    z-index: 9999999;'#13\r\n      + '\t   white-space: nowrap;'#13\r\n      + '  }'#13\r\n\r\n      + '  #' + GetID + 'menu .sub-menu {'#13\r\n      + '    top: 100%;'#13\r\n      + '  }'#13\r\n\r\n      + '  #' + GetID + 'menu .popup-menu { '#13\r\n      + '    display: ' + ShowPopup + ';'#13\r\n      + '  }'#13\r\n\r\n      + '  #' + GetID + 'menu .sub-menu,'#13\r\n      + '  #' + GetID + 'menu input[type=\"checkbox\"]:checked + .popup-menu,'#13\r\n      + '  #' + GetID + 'menu input[type=\"checkbox\"]:checked + .sub-menu {'#13\r\n      + '    display: none;'#13\r\n      + '  }'#13\r\n\r\n      + '  #' + GetID + 'menu .popup-menu li, '#13\r\n      + '  #' + GetID + 'menu .sub-menu li {'#13\r\n      + '    border-width: 1px;'#13\r\n      + '  }'#13\r\n\r\n      + '  #' + GetID + 'menu .popup-menu .sub-menu, '#13\r\n      + '  #' + GetID + 'menu .sub-menu .sub-menu {'#13\r\n      + '    top: 0;'#13\r\n      + '    left: 100%;'#13\r\n      + '  }'#13\r\n\r\n      + '  #' + GetID + 'menu li:hover > input[type=\"checkbox\"] + .popup-menu, '#13\r\n      + '  #' + GetID + 'menu li:hover > input[type=\"checkbox\"] + .sub-menu {'#13\r\n      + '    display: block;'#13\r\n      + '  }'#13;\r\n\r\n    if Appearance.HamburgerMenu.Visible = hmResponsive then\r\n    begin\r\n      MenuResponsiveStyle :=\r\n        '@media only screen and (min-width: ' + IntToStr(Appearance.HamburgerMenu.ResponsiveMaxWidth) + 'px) {'#13\r\n        + MenuResponsiveStyle\r\n        + '}';\r\n    end;\r\n  end;\r\n\r\n  if Appearance.ImageSize > 0 then\r\n  begin\r\n    MenuImageSize := '  width: ' + IntToStr(Appearance.ImageSize) + 'px;'#13\r\n      + '  height: ' + IntToStr(Appearance.ImageSize) + 'px;'#13\r\n    ;\r\n  end;\r\n\r\n  MenuStyle :=\r\n    '#' + GetID + 'menu ul {'#13\r\n    + '  margin: 0;'#13\r\n    + '  padding: 0;'#13\r\n    + '}'#13\r\n\r\n    + '#' + GetID + 'menu .main-menu {'#13\r\n    + '  display: none;'#13\r\n    + '}'#13\r\n\r\n    + '#' + GetID + 'menu .popup-menu {'#13\r\n    + '  display: block;'#13\r\n    + '}'#13\r\n\r\n    + '#' + GetID + 'menu label img.icon,' +\r\n    '#' + GetID + 'menu label span.checked {'#13\r\n    + MenuImageSize\r\n    + '  margin-right: 10px;'#13\r\n    + '  pointer-events: none;'#13\r\n//    + '  float: left;'#13\r\n    + '}'#13\r\n\r\n    + '#' + GetID + 'tm:checked + .main-menu {'#13\r\n    + '  display: block;'#13\r\n    + '}'#13\r\n\r\n    + '#' + GetID + 'menu input[type=\"checkbox\"],'#13\r\n    + '#' + GetID + 'menu ul span.drop-label {'#13\r\n    + '  display: none;'#13\r\n    + '}'#13\r\n\r\n    + '#' + GetID + 'menu li,'#13\r\n    + '#' + GetID + 'menu #toggle-menu,'#13\r\n    + '#' + GetID + 'menu .popup-menu,'#13\r\n    + '#' + GetID + 'menu .sub-menu {'#13\r\n    + '  border-width: 1px;'#13\r\n    + '  border-style: solid;'#13\r\n    + '  border-color: rgba(0, 0, 0, .05);'#13\r\n    + '  border-bottom: 0px;'#13\r\n    + '  border-top: 0px;'#13\r\n    + '}'#13\r\n\r\n    + '#' + GetID + 'menu li,'#13\r\n    + '#' + GetID + 'menu #toggle-menu {'#13\r\n    + '  border-width: 0 0 3px;'#13\r\n    + '}'#13\r\n\r\n    + '#' + GetID + 'menu .popup-menu,'#13\r\n    + '#' + GetID + 'menu .sub-menu {'#13\r\n    + '  border-width: 1px 1px 0;'#13\r\n    + '  margin: 0 1em;'#13\r\n    + '}'#13\r\n\r\n    + '#' + GetID + 'menu .popup-menu li:first-child,'#13\r\n    + '#' + GetID + 'menu .sub-menu li:first-child {'#13\r\n    + '  border-top: 1px solid;'#13\r\n    + '  border-color: rgba(0, 0, 0, .05);'#13\r\n    + '}'#13\r\n\r\n    + '#' + GetID + 'menu .popup-menu li:last-child,'#13\r\n    + '#' + GetID + 'menu .sub-menu li:last-child {'#13\r\n    + '  border-bottom: 1px solid;'#13\r\n    + '  border-color: rgba(0, 0, 0, .05);'#13\r\n    + '}'#13\r\n\r\n    + '#' + GetID + 'menu li,'#13\r\n    + '#' + GetID + 'menu #toggle-menu,'#13\r\n    + '#' + GetID + 'menu li label {'#13\r\n    + '  position: relative;'#13\r\n    + '  display: block;'#13\r\n    + '}'#13\r\n\r\n    + '#' + GetID + 'menu #toggle-menu,'#13\r\n    + '#' + GetID + 'menu li label { '#13\r\n    + '  padding: 0.75em 1.5em;'#13\r\n    + '  text-decoration: none;'#13\r\n    + '}'#13\r\n\r\n    + '#' + GetID + 'menu li span.menu-separator { '#13\r\n    + '  display: block;'#13\r\n    + '  width: 100%;'#13\r\n    + '  height: 1px;'#13\r\n    + '  background-color: rgba(0, 0, 0, .05);'#13\r\n    + '}'#13\r\n\r\n    + '#' + GetID + 'menu .popup-menu, '#13\r\n    + '#' + GetID + 'menu .sub-menu {'#13\r\n    + '  display: none;'#13\r\n    + '}'#13\r\n\r\n    + '#' + GetID + 'menu input[type=\"checkbox\"]:checked + .popup-menu,'#13\r\n    + '#' + GetID + 'menu input[type=\"checkbox\"]:checked + .sub-menu {'#13\r\n    + '  display: block;'#13\r\n    + '  z-index: 3000;'#13\r\n    + '}'#13\r\n\r\n    + '#' + GetID + 'menu span.drop-icon {'#13\r\n//    + '  float: right;'#13\r\n    + '  margin-left: 10px;'\r\n    + '}'#13\r\n\r\n    + '#' + GetID + 'menu span.hamburger-icon {'#13\r\n    + '  float: right;'#13\r\n    + '  padding: 0;'#13\r\n    + '  margin: 0;'#13\r\n    + '  font-weight: 900;'#13\r\n    + '}'#13\r\n\r\n    + '@media only screen and (max-width: 64em) and (min-width: 52.01em) {'#13\r\n    + '  #' + GetID + 'menu li {'#13\r\n    + '    width: auto;'#13\r\n    + '  }'#13\r\n\r\n    + '  #' + GetID + 'menu .sub-menu li {'#13\r\n    + '    width: auto;'#13\r\n    + '  }'#13\r\n    + '}'#13;\r\n\r\n  MenuColorStyle := '';\r\n\r\n  if ElementClassName = '' then\r\n  begin\r\n    MenuColorStyle :=\r\n        '#' + GetID + 'menu .popup-menu, '#13\r\n      + '#' + GetID + 'menu .sub-menu {'#13\r\n      + '  background-color: ' + ColorToHtml(Appearance.BackgroundColor) + ';'#13\r\n      + '}'#13\r\n\r\n      + '@media only screen and (max-width: 64em) and (min-width: 52.01em) {'#13\r\n      +   '#' + GetID + 'menu .sub-menu {'#13\r\n      +   '  background-color: ' + ColorToHtml(Appearance.HamburgerMenu.BackgroundColor) + ';'#13\r\n      +   '}'#13\r\n      + '}'#13\r\n\r\n      + '#' + GetID + 'menu li,'#13\r\n      + '#' + GetID + 'menu #toggle-menu,'#13\r\n      + '#' + GetID + 'menu li label {'#13\r\n      + '}'#13\r\n\r\n      + '#' + GetID + 'menu #toggle-menu {'#13\r\n      + '  background-color: ' + ColorToHtml(Appearance.HamburgerMenu.BackgroundColor) + ';'#13\r\n      + '  color: ' + ColorToHtml(Appearance.HamburgerMenu.CaptionColor) + ';'#13\r\n      + '}'#13\r\n\r\n      + '#' + GetID + 'menu .main-menu li label {'#13\r\n      + '  background-color: ' + ColorToHtml(Appearance.BackgroundColor) + ';'#13\r\n      + '}'#13\r\n\r\n      + '#' + GetID + 'menu li label:hover {'#13\r\n      + '  background-color: ' + ColorToHtml(Appearance.HoverColor) + ';'#13\r\n      + '  color: ' + ColorToHtml(Appearance.HoverFontColor) + ';'#13\r\n      + '}'#13\r\n\r\n      + '#' + GetID + 'menu .popup-menu label:hover, '#13\r\n      + '#' + GetID + 'menu .sub-menu label:hover {'#13\r\n      + '  background-color: ' + ColorToHtml(Appearance.HoverColor) + ';'#13\r\n      + '  color: ' + ColorToHtml(Appearance.HoverFontColor) + ';'#13\r\n      + '}'#13;\r\n  end;\r\n\r\n  MenuStyle := MenuStyle\r\n    + MenuColorStyle\r\n    + MenuResponsiveStyle\r\n    ;\r\n\r\n  FMainMenu := True;\r\n  FMenuIndex := 0;\r\n\r\n  ElStyle := TJSHTMLElement(document.createElement('STYLE'));\r\n  ElStyle.innerHTML := MenuStyle;\r\n\r\n  ElScript := TJSHTMLElement(document.createElement('SCRIPT'));\r\n  ElScript.innerHTML := 'function ' + GetID + 'MenuClick(ctrl){'\r\n    + '  el = ctrl.parentElement.parentElement;'\r\n    + '  el.style.display = \"none\";'\r\n    + '  setTimeout(function(){el.style.removeProperty(\"display\")}, 25);'\r\n    + '}'\r\n    + 'function ' + GetID + 'MenuOut(ctrl){'\r\n    + '  menuel = document.getElementById(\"' + GetID + '\");'\r\n    + '  if(menuel) { '\r\n    + '    popupel = menuel.getElementsByClassName(\"popup-menu\");'\r\n    + '    if(popupel) '\r\n    + '      setTimeout(function(){popupel[0].style.display = \"none\"}, 25);'\r\n    + '  }'\r\n    + '}';\r\n\r\n  ElLabel := TJSHTMLElement(document.createElement('LABEL'));\r\n  ElLabel.setAttribute('for', GetID + 'tm');\r\n  ElLabel.setAttribute('id', 'toggle-menu');\r\n  ElLabel.innerHTML := Appearance.HamburgerMenu.Caption;\r\n\r\n  ElSpan := TJSHTMLElement(document.createElement('SPAN'));\r\n  if ElementItemClassName <> '' then\r\n    ElSpan.setAttribute('class', ElementItemClassName)\r\n  else\r\n    ElSpan.setAttribute('class', 'drop-label');\r\n  ElLabel.appendChild(ElSpan);\r\n\r\n  ElIcon := TJSHTMLElement(document.createElement('SPAN'));\r\n  ElIcon.setAttribute('class', 'hamburger-icon');\r\n//  ElIcon.innerHTML := '&gt;';\r\n  ElIcon.innerHTML := '&#9776;';\r\n//  ElIcon.innerHTML := '<svg height=\"32px\" id=\"Layer_1\" style=\"enable-background:new 0 0 32 32;\" version=\"1.1\" viewBox=\"0 0 32 32\" width=\"32px\" xml:space=\"preserve\" xmlns=\"http://www.w3.org/2000/svg\" xmlns:xlink=\"http://www.w3.org/1999/xlink\"><path d=\"M4,10h24c1.104,0,2-0.896,2-2s-0.896-2-2-2H4C2.896,6,2,6.896,2,8S2.896,10,4,10z M28,14H4c-1.104,0-2,0.896-2,2  s0.896,2,2,2h24c1.104,0,2-0.896,2-2S29.104,14,28,14z M28,22H4c-1.104,0-2,0.896-2,2s0.896,2,2,2h24c1.104,0,2-0.896,2-2  S29.104,22,28,22z\"/></svg>';\r\n  ElSpan.appendChild(ElIcon);\r\n\r\n  ElCheckBox := TJSHTMLElement(document.createElement('INPUT'));\r\n  ElCheckBox.setAttribute('type', 'checkbox');\r\n  ElCheckBox.setAttribute('id', GetID + 'tm');\r\n\r\n  FMenu.appendChild(ElStyle);\r\n  FMenu.appendChild(ElScript);\r\n  FMenu.appendChild(ElLabel);\r\n  FMenu.appendChild(ElCheckBox);\r\n\r\n  ElItems := GetMenuSource(Items);\r\n  if ElItems <> nil then\r\n    FMenu.appendChild(ElItems);\r\n  ElHandle.appendChild(FMenu);\r\nend;\r\n\r\n{ TMenuItem }\r\n\r\nprocedure TMenuItem.Assign(Source: TPersistent);\r\nvar\r\n  i: integer;\r\n  srcmenu,mnu: TMenuItem;\r\n  pm: TCustomMainMenu;\r\n\r\nbegin\r\n  if (Source is TMenuItem) then\r\n  begin\r\n    srcmenu := (Source as TMenuItem);\r\n\r\n    FAutoCheck := srcmenu.AutoCheck;\r\n    FAutoHotkeys := srcmenu.AutoHotkeys;\r\n    FAutoLineReduction:= srcmenu.AutoLineReduction;\r\n    FBreak := srcmenu.Break;\r\n    FCaption := srcmenu.Caption;\r\n    FChecked := srcmenu.Checked;\r\n    FDefault := srcmenu.Default;\r\n    FEnabled := srcmenu.Enabled;\r\n    FGroupIndex := srcmenu.GroupIndex;\r\n    FHelpContext := srcmenu.HelpContext;\r\n    FHint := srcmenu.Hint;\r\n    FImageIndex := srcmenu.ImageIndex;\r\n    FRadioItem := srcmenu.RadioItem;\r\n    FShortCut := srcmenu.ShortCut;\r\n    FVisible := srcmenu.Visible;\r\n    FElementClassName := srcmenu.ElementClassName;\r\n\r\n    pm := GetParentMenu;\r\n\r\n    if Assigned(Parent) then\r\n      Name := pm.GetUniqueName(srcmenu.Caption);\r\n\r\n    if Assigned(srcmenu.Items) then\r\n    begin\r\n      if Assigned(FItems) then\r\n      begin\r\n        for I := FItems.Count - 1 downto 0 do\r\n        begin\r\n          RemoveItem(GetParentMenu.Parent, TComponent(FItems[I]));\r\n        end;\r\n        FItems.Clear;\r\n      end\r\n      else\r\n        FItems := TMenuItemList.Create;\r\n\r\n      for i := 0 to srcmenu.Items.Count - 1 do\r\n      begin\r\n        // create with form owner\r\n        mnu := TMenuItem.Create(pm.Owner);\r\n        mnu.FParentMenu := pm;\r\n        mnu.FParentItem := Self;\r\n        mnu.Assign(TMenuItem(srcmenu.Items[i]));\r\n        FItems.Add(mnu);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TMenuItem.BeginUpdate;\r\nbegin\r\n  inc(FUpdateCount);\r\nend;\r\n\r\nprocedure TMenuItem.Clear;\r\nvar\r\n  i: integer;\r\n  mnu: TMenuItem;\r\nbegin\r\n  for i := Count - 1 downto 0 do\r\n  begin\r\n    mnu := TMenuItem(FItems[i]);\r\n    if Assigned(mnu.Items) then\r\n      mnu.Items.Clear;\r\n    mnu.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TMenuItem.Click;\r\nbegin\r\n  if Assigned(OnClick) then\r\n    OnClick(Self);\r\nend;\r\n\r\nconstructor TMenuItem.Create(AOwner: TComponent);\r\nbegin\r\n  FParentMenu := nil;\r\n\r\n  if AOwner is TMainMenu then\r\n    FParentMenu := AOwner;\r\n\r\n  inherited Create(AOwner);\r\n\r\n  FAutoHotkeys := maParent;\r\n  FAutoLineReduction := maParent;\r\n  FImageIndex := -1;\r\n  FHint := '';\r\n  FCaption := 'MenuItem';\r\n  FChecked := False;\r\n  FEnabled := True;\r\n  FDefault := False;\r\n  FRadioItem := False;\r\n  FVisible := True;\r\n  FOwner := TMenuItem(AOwner);\r\nend;\r\n\r\ndestructor TMenuItem.Destroy;\r\nvar\r\n  i: integer;\r\n  pm: TCustomMainMenu;\r\n  mnu: TMenuItem;\r\nbegin\r\n  pm := GetParentMenu;\r\n\r\n  // delete item from the parent item list\r\n  if Assigned(Parent) and Assigned(pm) then\r\n  begin\r\n    pm.BeginUpdate;\r\n\r\n    for i := TMenuItem(Parent).Items.Count - 1 downto 0 do\r\n    begin\r\n      if (TMenuItem(Parent).Items[i] = Self) then\r\n      begin\r\n        TMenuItem(Parent).Items.Delete(i);\r\n      end;\r\n    end;\r\n\r\n    pm.EndUpdate;\r\n  end;\r\n\r\n  // delete its childs\r\n  if Assigned(Items) then\r\n  begin\r\n    for i := Items.Count - 1 downto 0 do\r\n    begin\r\n      mnu := TMenuItem(Items[i]);\r\n      mnu.FParentItem := nil;\r\n      mnu.Free;\r\n      Items.Delete(i);\r\n    end;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TMenuItem.EndUpdate;\r\nbegin\r\n  if (FUpdateCount > 0) then\r\n  begin\r\n    dec(FUpdateCount);\r\n\r\n    if FUpdateCount = 0 then\r\n      GetParentMenu.UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TMenuItem.GetChildren(Proc: TGetChildProc; Root: TComponent);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  if Assigned(Items) then\r\n    for I := 0 to Items.Count - 1 do Proc(TMenuItem(Items[I]));\r\nend;\r\n\r\nfunction TMenuItem.GetCount: integer;\r\nbegin\r\n  if FItems = nil then\r\n    Result := 0\r\n  else\r\n    Result := FItems.Count;\r\nend;\r\n\r\nfunction TMenuItem.GetMenuItem(AIndex: integer): TMenuItem;\r\nbegin\r\n  Result := Items[AIndex];\r\nend;\r\n\r\nfunction TMenuItem.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TMenuItem.GetParentMenu: TCustomMainMenu;\r\nvar\r\n  AOwner: TComponent;\r\nbegin\r\n  Result := nil;\r\n\r\n  AOwner := FParentMenu;\r\n\r\n  while Assigned(AOwner) and (AOwner is TMenuItem) do\r\n  begin\r\n    AOwner := TMenuItem(AOwner).FParentMenu;\r\n  end;\r\n\r\n  if Assigned(AOwner) then\r\n    Result := TCustomMainMenu(AOwner);\r\nend;\r\n\r\nprocedure TMenuItem.Insert(Index: Integer; Item: TMenuItem);\r\nbegin\r\n  if FItems = nil then\r\n    FItems := TMenuItemList.Create;\r\n  FItems.Insert(Index, Item);\r\n  Item.FParentItem := Self;\r\n\r\n  if Assigned(Item.GetParentMenu) then\r\n    Item.GetParentMenu.UpdateElement;\r\nend;\r\n\r\nfunction TMenuItem.IsChild(Item: TMenuItem): boolean;\r\nvar\r\n  i: integer;\r\nbegin\r\n  Result := false;\r\n  if not Assigned(Items) then\r\n    Exit;\r\n\r\n  for i := 0 to Items.Count - 1 do\r\n  begin\r\n    if (Items[i] = Item) then\r\n    begin\r\n      Result := true;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TMenuItem.RemoveItem(AOwner, AItem: TComponent);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  if Assigned(TMenuItem(AItem).Items) then\r\n  begin\r\n    for I := TMenuItem(AItem).Items.Count - 1 downto 0 do\r\n      RemoveItem(AOwner, TComponent(TMenuItem(AItem).Items[I]));\r\n  end;\r\n  AOwner.RemoveComponent(AItem);\r\nend;\r\n\r\nprocedure TMenuItem.Add(Item: TMenuItem);\r\nbegin\r\n  Insert(GetCount, Item);\r\nend;\r\n\r\nprocedure TMenuItem.SetCaption(const Value: string);\r\nvar\r\n  pm: TCustomMainMenu;\r\nbegin\r\n  FCaption := Value;\r\n  pm := GetParentMenu;\r\n  if Assigned(pm) then\r\n    pm.UpdateElement;\r\nend;\r\n\r\nprocedure TMenuItem.SetChecked(const Value: Boolean);\r\nvar\r\n  pm: TCustomMainMenu;\r\n  Item, OtherItem: TMenuItem;\r\n  MenuOwner: TComponent;\r\n  I: Integer;\r\nbegin\r\n  if FChecked <> Value then\r\n  begin\r\n    FChecked := Value;\r\n    MenuOwner := FParentMenu;\r\n    if Assigned(MenuOwner) then\r\n    begin\r\n      if (MenuOwner is TMenuItem) and Value then\r\n      begin\r\n        Item := TMenuItem(MenuOwner);\r\n        for I := 0 to Item.Items.Count - 1 do\r\n        begin\r\n          OtherItem := TMenuItem(Item.Items[I]);\r\n          if (OtherItem.RadioItem) and (OtherItem <> Self) then\r\n            OtherItem.Checked := False;\r\n        end;\r\n      end;\r\n\r\n      while not (MenuOwner is TCustomMainMenu) and Assigned(MenuOwner) do\r\n      begin\r\n        MenuOwner := MenuOwner.Owner;\r\n      end;\r\n    end;\r\n\r\n    pm := GetParentMenu;\r\n    if Assigned(pm) then\r\n      pm.UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TMenuItem.SetChildOrder(Child: TComponent; Order: Integer);\r\nvar\r\n  idx: integer;\r\nbegin\r\n  idx := FItems.IndexOf(Child);\r\n  if (idx >= 0) and (Order < FItems.Count) then\r\n  begin\r\n    FItems.Move(idx, Order);\r\n  end;\r\nend;\r\n\r\nprocedure TMenuItem.SetEnabled(const Value: Boolean);\r\nbegin\r\n  if FEnabled <> Value then\r\n  begin\r\n    FEnabled := Value;\r\n    GetParentMenu.UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TMenuItem.SetImageIndex(const Value: Integer);\r\nvar\r\n  pm: TCustomMainMenu;\r\nbegin\r\n  FImageIndex := Value;\r\n  pm := GetParentMenu;\r\n  if Assigned(pm) then\r\n    pm.UpdateElement;\r\nend;\r\n\r\nprocedure TMenuItem.SetMenuItem(AIndex: integer; const Value: TMenuItem);\r\nbegin\r\n  Items[AIndex] := Value;\r\nend;\r\n\r\nprocedure TMenuItem.SetParentComponent(Value: TComponent);\r\nbegin\r\n  inherited;\r\n\r\n  FParentMenu := Value;\r\n\r\n  if (Value <> nil) then\r\n  begin\r\n    if Value is TCustomMainMenu then\r\n    begin\r\n      if not TCustomMainMenu(Value).Items.IsChild(Self) then\r\n        TCustomMainMenu(Value).Items.Add(Self)\r\n    end\r\n    else if Value is TMenuItem then\r\n    begin\r\n      if not TMenuItem(Value).IsChild(Self) then\r\n        TMenuItem(Value).Add(Self);\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TMainMenuAppearance }\r\n\r\nprocedure TMainMenuAppearance.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if (Source is TMainMenuAppearance) then\r\n  begin\r\n    FBackgroundColor := (Source as TMainMenuAppearance).BackgroundColor;\r\n    FHoverColor := (Source as TMainMenuAppearance).HoverColor;\r\n    FHoverFontColor := (Source as TMainMenuAppearance).HoverFontColor;\r\n    FHamburgerMenu.Assign((Source as TMainMenuAppearance).HamburgerMenu);\r\n    FImageURLs.Assign((Source as TMainMenuAppearance).ImageURLs);\r\n    FImageSize := (Source as TMainMenuAppearance).ImageSize;\r\n    FSubmenuIndicator := (Source as TMainMenuAppearance).SubmenuIndicator;\r\n  end;\r\nend;\r\n\r\nconstructor TMainMenuAppearance.Create(AOwner: TMainMenu);\r\nbegin\r\n  FBackgroundColor := $F0F0F0;\r\n  FHoverColor := clHighlight;\r\n  FHoverFontColor := clHighlightText;\r\n  FHamburgerMenu := THamburgerMenu.Create(Self);\r\n  FImageURLs := TStringList.Create;\r\n  FImageURLs.SkipLastLinebreak := true;\r\n  FImageURLs.OnChange := HandleImageURLsChanged;\r\n  FImageSize := 16;\r\n  FSubmenuIndicator := '&#9658;';\r\n  FOwner := AOwner;\r\nend;\r\n\r\ndestructor TMainMenuAppearance.Destroy;\r\nbegin\r\n  FHamburgerMenu.Free;\r\n  FImageURLs.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TMainMenuAppearance.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nprocedure TMainMenuAppearance.HandleImageURLsChanged(Sender: TObject);\r\nbegin\r\n  FOwner.UpdateElement;\r\nend;\r\n\r\nprocedure TMainMenuAppearance.SetBackgroundColor(const Value: TColor);\r\nbegin\r\n  if FBackgroundColor <> Value then\r\n  begin\r\n    FBackgroundColor := Value;\r\n    FOwner.UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TMainMenuAppearance.SetHoverColor(const Value: TColor);\r\nbegin\r\n  if FHoverColor <> Value then\r\n  begin\r\n    FHoverColor := Value;\r\n    FOwner.UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TMainMenuAppearance.SetHoverFontColor(const Value: TColor);\r\nbegin\r\n  if FHoverFontColor <> Value then\r\n  begin\r\n    FHoverFontColor := Value;\r\n    FOwner.UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TMainMenuAppearance.SetImageSize(const Value: Integer);\r\nbegin\r\n  if FImageSize <> Value then\r\n  begin\r\n    FImageSize := Value;\r\n    FOwner.UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TMainMenuAppearance.SetImageURLs(const Value: TStringList);\r\nbegin\r\n  FImageURLs.Assign(Value);\r\nend;\r\n\r\nprocedure TMainMenuAppearance.SetSubmenuIndicator(const Value: string);\r\nbegin\r\n  if FSubmenuIndicator <> Value then\r\n  begin\r\n    FSubmenuIndicator := Value;\r\n    FOwner.UpdateElement;\r\n  end;\r\nend;\r\n\r\n{ THamburgerMenu }\r\n\r\nprocedure THamburgerMenu.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if (Source is THamburgerMenu) then\r\n  begin\r\n    FBackgroundColor := (Source as THamburgerMenu).BackgroundColor;\r\n    FCaption := (Source as THamburgerMenu).Caption;\r\n    FCaptionColor := (Source as THamburgerMenu).CaptionColor;\r\n    FVisible := (Source as THamburgerMenu).Visible;\r\n    FResponsiveMaxWidth := (Source as THamburgerMenu).ResponsiveMaxWidth;\r\n  end;\r\nend;\r\n\r\nconstructor THamburgerMenu.Create(AOwner: TMainMenuAppearance);\r\nbegin\r\n  FBackgroundColor := clSilver;\r\n  FCaption := 'Menu';\r\n  FCaptionColor := clWhite;\r\n  FVisible := hmResponsive;\r\n  FResponsiveMaxWidth := 768;\r\n  FOwner := AOwner;\r\nend;\r\n\r\ndestructor THamburgerMenu.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nfunction THamburgerMenu.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nprocedure THamburgerMenu.SetBackgroundColor(const Value: TColor);\r\nbegin\r\n  if FBackgroundColor <> Value then\r\n  begin\r\n    FBackgroundColor := Value;\r\n    FOwner.FOwner.UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure THamburgerMenu.SetCaption(const Value: string);\r\nbegin\r\n  if FCaption <> Value then\r\n  begin\r\n    FCaption := Value;\r\n    FOwner.FOwner.UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure THamburgerMenu.SetCaptionColor(const Value: TColor);\r\nbegin\r\n  if FCaptionColor <> Value then\r\n  begin\r\n    FCaptionColor := Value;\r\n    FOwner.FOwner.UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure THamburgerMenu.SetResponsiveMaxWidth(const Value: Integer);\r\nbegin\r\n  if FResponsiveMaxWidth <> Value then\r\n  begin\r\n    FResponsiveMaxWidth := Value;\r\n    FOwner.FOwner.UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure THamburgerMenu.SetVisible(const Value: TMainMenuHamburgerMenuVisible);\r\nbegin\r\n  if FVisible <> Value then\r\n  begin\r\n    FVisible := Value;\r\n    FOwner.FOwner.UpdateElement;\r\n  end;\r\nend;\r\n\r\n{ TMenuItemList }\r\n\r\nfunction TMenuItemList.GetItem(Index: Integer): TMenuItem;\r\nbegin\r\n  Result := TMenuItem(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TMenuItemList.PutItem(Index: Integer; const Value: TMenuItem);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TPopupMenu }\r\n\r\nconstructor TPopupMenu.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  if (AOwner is TControl) then\r\n    Parent := TControl(AOwner);\r\nend;\r\n\r\nprocedure TPopupMenu.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  Appearance.HamburgerMenu.Visible := hmNever;\r\n  FIsPopupMenu := True;\r\nend;\r\n\r\nprocedure TPopupMenu.Popup(X, Y: Integer);\r\nbegin\r\n  if Assigned(OnPopup) then\r\n    OnPopup(Self);\r\n\r\n  Top := Y;\r\n  Left := X;\r\n  FShowPopup := True;\r\n  UpdateElement;\r\n  FShowPopup := False;\r\nend;\r\n\r\n{ TWebCustomControl }\r\n\r\nfunction TWebCustomControl.HandleDoContextMenu(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  pt: TPoint;\r\n  frm: TCustomForm;\r\n  r: TJSDOMRect;\r\nbegin\r\n  inherited;\r\n  if  Assigned(FPopupMenu) then\r\n  begin\r\n    Event.stopPropagation;\r\n    Event.preventDefault;\r\n    pt := Point(Round(Event.clientX), Round(Event.clientY));\r\n\r\n    frm := GetParentForm(Self);\r\n\r\n    if Assigned(frm) {and frm.Popup} and Assigned(frm.Container) then\r\n    begin\r\n      r := frm.Container.getBoundingClientRect;\r\n      pt.X := pt.X - Round(r.Left);\r\n      pt.Y := pt.Y - Round(r.Top);\r\n    end;\r\n\r\n    FPopupMenu.Popup(pt.X,pt.Y);\r\n    Result := true;\r\n  end;\r\nend;\r\n\r\nprocedure TWebCustomControl.Notification(AComponent: TComponent;\r\n  Operation: TOperation);\r\nbegin\r\n  inherited;\r\n  if (Operation = opRemove) and (AComponent = FPopupMenu) then\r\n    FPopupMenu := nil;\r\nend;\r\n\r\n{ TWebGraphicControl }\r\n\r\nfunction TWebGraphicControl.HandleDoContextMenu(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  pt: TPoint;\r\n  frm: TCustomForm;\r\n  r: TJSDOMRect;\r\nbegin\r\n  inherited;\r\n  if  Assigned(FPopupMenu) then\r\n  begin\r\n    Event.stopPropagation;\r\n    Event.preventDefault;\r\n    pt := Point(Round(Event.clientX), Round(Event.clientY));\r\n\r\n    frm := GetParentForm(Self);\r\n\r\n    if Assigned(frm) and (frm.Popup) and Assigned(frm.Container) then\r\n    begin\r\n      r := frm.Container.getBoundingClientRect;\r\n      pt.X := pt.X - Round(r.Left);\r\n      pt.Y := pt.Y - Round(r.Top);\r\n    end;\r\n\r\n    FPopupMenu.Popup(pt.X,pt.Y);\r\n    Result := true;\r\n  end;\r\nend;\r\n\r\nprocedure TWebGraphicControl.Notification(AComponent: TComponent;\r\n  Operation: TOperation);\r\nbegin\r\n  inherited;\r\n  if (Operation = opRemove) and (AComponent = FPopupMenu) then\r\n    FPopupMenu := nil;\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2020                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.ClientConnector;\r\n\r\n{$DEFINE NOPP}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, WEBLib.JSON;\r\n\r\ntype\r\n  TClientConnectorIdentifier = (ciUnknown, ciAndroid, ciiOS, ciWindows, ciMac);\r\n\r\n  TClientConnectorReceivedMessageEvent = procedure(Sender: TObject; AJSON: TJSONObject) of object;\r\n\r\n  TClientConnector = class(TComponent)\r\n  private\r\n    FOnReceivedMessage: TClientConnectorReceivedMessageEvent;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure Receive(AJSON: string);\r\n    procedure Send(AJSON: TJSONObject);\r\n    procedure SendMessage(AMessage: string);\r\n  published\r\n    property OnReceivedMessage: TClientConnectorReceivedMessageEvent read FOnReceivedMessage write FOnReceivedMessage;\r\n  end;\r\n\r\n  TWebClientConnector = class(TClientConnector);\r\n\r\nimplementation\r\n\r\nuses\r\n  Math, JS, WEBLib.Forms, SysUtils, WEBLib.Dialogs;\r\n\r\nconst\r\n  Prefix: string = 'webclientevent://';\r\n\r\nconstructor TClientConnector.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  Application.ClientConnector := Self;\r\nend;\r\n\r\ndestructor TClientConnector.Destroy;\r\nbegin\r\n  Application.ClientConnector := nil;\r\n  inherited;\r\nend;\r\n\r\nprocedure TClientConnector.Receive(AJSON: string);\r\nvar\r\n  js: TJSON;\r\n  o: TJSONObject;\r\n  s: string;\r\nbegin\r\n  js := TJSON.Create;\r\n  s := decodeURIComponent(AJSON);\r\n  o := TJSONObject(js.parse(s));\r\n  if Assigned(OnReceivedMessage) then\r\n    OnReceivedMessage(Self, o);\r\n  o.Free;\r\nend;\r\n\r\nprocedure TClientConnector.Send(AJSON: TJSONObject);\r\nvar\r\n  s: string;\r\nbegin\r\n  s := TJSJSON.stringify(AJSON.JSObject);\r\n  SendMessage(s);\r\nend;\r\n\r\nprocedure TClientConnector.SendMessage(AMessage: string);\r\nconst\r\n  MAXBUFFERCOUNT = 500;\r\nvar\r\n  s: string;\r\n  cid: TClientConnectorIdentifier;\r\n  scid: string;\r\n  sSub: string;\r\n  sc: Integer;\r\n\r\n  procedure InternalSend(m: string);\r\n  begin\r\n    case cid of\r\n      ciAndroid:\r\n      begin\r\n        asm\r\n          injectedObject.Setjsvalue(m);\r\n          injectedObject.performClick();\r\n        end;\r\n      end;\r\n      ciiOS, ciMac:\r\n      begin\r\n        asm\r\n          window.webkit.messageHandlers.bridge.postMessage(m);\r\n        end;\r\n      end;\r\n      ciWindows:\r\n      begin\r\n        asm\r\n          window.location = m;\r\n        end;\r\n      end;\r\n      ciUnknown: ShowMessage('Please perform handshake from client first.');\r\n    end;\r\n  end;\r\nbegin\r\n  s := AMessage;\r\n  asm\r\n    scid = window.TMSWEBCoreClientIdentifier;\r\n  end;\r\n\r\n  cid := ciUnknown;\r\n  case LowerCase(scid) of\r\n    'android': cid := ciAndroid;\r\n    'ios': cid := ciiOS;\r\n    'windows': cid := ciWindows;\r\n    'mac', 'macos': cid := ciMac;\r\n  end;\r\n\r\n\r\n  case LowerCase(scid) of\r\n    'mac', 'macos', 'ios': InternalSend(Prefix + encodeURIcomponent(s));\r\n    'android', 'windows':\r\n    begin\r\n      InternalSend(Prefix + 'BUFFERSTART');\r\n      while Length(s) > 0 do\r\n      begin\r\n        sc := Min(Integer(Length(s)), MAXBUFFERCOUNT);\r\n        sSub := Copy(s, 1, sc);\r\n        Delete(s, 1, sc);\r\n        InternalSend(Prefix + encodeURIcomponent(sSub));\r\n      end;\r\n      InternalSend(Prefix + 'BUFFEREND');\r\n    end;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit Rtl.BrowserLoadHelper;\r\n\r\n{$mode objfpc}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, SysUtils, JS, Web;\r\n\r\nType\r\n  { TBrowserLoadHelper }\r\n\r\n  TBrowserLoadHelper = Class (TLoadHelper)\r\n  Public\r\n    Class Procedure LoadText(aURL : String; aSync : Boolean; OnLoaded : TTextLoadedCallBack; OnError : TErrorCallBack); override;\r\n    Class Procedure LoadBytes(aURL : String; aSync : Boolean; OnLoaded : TBytesLoadedCallBack; OnError : TErrorCallBack); override;\r\n  end;\r\n\r\nimplementation\r\n\r\n{ TBrowserLoadHelper }\r\n\r\nclass procedure TBrowserLoadHelper.LoadText(aURL: String; aSync: Boolean; OnLoaded: TTextLoadedCallBack; OnError: TErrorCallBack);\r\n\r\n  function doFetchOK(response : JSValue) : JSValue;\r\n\r\n  var\r\n    Res : TJSResponse absolute response;\r\n\r\n  begin\r\n    Result:=False;\r\n    If (Res.status<>200) then\r\n      begin\r\n      If Assigned(OnError) then\r\n        OnError('Error '+IntToStr(Res.Status)+ ': '+Res.StatusText)\r\n      end\r\n    else\r\n      Res.Text._then(\r\n        function (value : JSValue) : JSValue\r\n          begin\r\n          OnLoaded(String(value));\r\n          end\r\n      );\r\n  end;\r\n\r\n  function doFetchFail(response : JSValue) : JSValue;\r\n\r\n  begin\r\n    Result:=False;\r\n    OnError('Error 999: unknown error');\r\n  end;\r\n\r\nbegin\r\n  if ASync then\r\n    Window.Fetch(aURl)._then(@DoFetchOK).catch(@DoFetchFail)\r\n  else\r\n    With TJSXMLHttpRequest.new do\r\n      begin\r\n      open('GET', aURL, False);\r\n      AddEventListener('load',Procedure (oEvent: JSValue)\r\n        begin\r\n        OnLoaded(responseText);\r\n        end\r\n      );\r\n      AddEventListener('error',Procedure (oEvent: JSValue)\r\n        begin\r\n        if Assigned(OnError) then\r\n          OnError(TJSError(oEvent).Message);\r\n        end\r\n      );\r\n      send();\r\n      end;\r\nend;\r\n\r\nclass procedure TBrowserLoadHelper.LoadBytes(aURL: String; aSync: Boolean; OnLoaded: TBytesLoadedCallBack; OnError: TErrorCallBack);\r\n\r\n  function doFetchFail(response : JSValue) : JSValue;\r\n\r\n  begin\r\n    Result:=False;\r\n    if isObject(Response) and (TJSObject(Response) is TJSError) then\r\n      OnError('Error 999: '+TJSError(Response).Message)\r\n    else\r\n      OnError('Error 999: unknown error');\r\n  end;\r\n\r\n\r\n  function doFetchOK(response : JSValue) : JSValue;\r\n\r\n  var\r\n    Res : TJSResponse absolute response;\r\n\r\n  begin\r\n    Result:=False;\r\n    If (Res.status<>200) then\r\n      begin\r\n      If Assigned(OnError) then\r\n        OnError('Error '+IntToStr(Res.Status)+ ': '+Res.StatusText)\r\n      end\r\n    else\r\n      Res.Blob._then(\r\n        function (value : JSValue) : JSValue\r\n          begin\r\n          TJSBlob(Value).ArrayBuffer._then(function(arr : JSValue) : JSValue\r\n            begin\r\n            OnLoaded(TJSArrayBuffer(arr))\r\n            end\r\n          ).Catch(@DoFetchFail);\r\n          end\r\n        );\r\n  end;\r\n\r\n\r\n  function StringToArrayBuffer(str : string) : TJSArrayBuffer;\r\n\r\n  Var\r\n    i,l : Integer;\r\n\r\n  begin\r\n    L:=Length(str);\r\n    Result:=TJSArrayBuffer.New(l*2); // 2 bytes for each char\r\n    With TJSUint16Array.New(Result) do\r\n      for i:=1 to L do\r\n        Values[i-1]:=Ord(Str[i]);\r\n  end;\r\n\r\nbegin\r\n  if ASync then\r\n    Window.Fetch(aURl)._then(@DoFetchOK).catch(@DoFetchFail)\r\n  else\r\n    With TJSXMLHttpRequest.new do\r\n      begin\r\n      open('GET', aURL, False);\r\n      AddEventListener('load',Procedure (oEvent: JSValue)\r\n        begin\r\n        if Status<>200 then\r\n          OnError('Error '+IntToStr(Status)+ ': '+StatusText)\r\n        else\r\n          OnLoaded(StringToArrayBuffer(responseText));\r\n        end\r\n      );\r\n      AddEventListener('error',Procedure (oEvent: JSValue)\r\n        begin\r\n        if Assigned(OnError) then\r\n          OnError(TJSError(oEvent).Message);\r\n        end\r\n      );\r\n      send();\r\n      end;\r\nend;\r\n\r\ninitialization\r\n  SetLoadHelperClass(TBrowserLoadHelper);\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.Forms;\r\n\r\n{$DEFINE NOPP}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, Types, SysUtils, WEBLib.Graphics, WEBLib.Controls, WEBLib.Modules,\r\n  WEBLib.Lang, WEBLib.Menus, Web, JS, WEBLib.ClientConnector, Rtl.BrowserLoadHelper\r\n  {$IFDEF SINGLEINSTANCE}\r\n  , WEBLib.WebSocketClient\r\n  {$ENDIF}\r\n  ;\r\n\r\nconst\r\n  WEBCOREVERSION = '2.7.2.2';\r\n\r\n  idOK       = 1;\r\n  idCancel   = 2;\r\n  idAbort    = 3;\r\n  idRetry    = 4;\r\n  idIgnore   = 5;\r\n  idYes      = 6;\r\n  idNo       = 7;\r\n  idClose    = 8;\r\n  idHelp     = 9;\r\n  idTryAgain = 10;\r\n  idContinue = 11;\r\n  mrNone     = 0;\r\n  mrOk       = idOk;\r\n  mrCancel   = idCancel;\r\n  mrAbort    = idAbort;\r\n  mrRetry    = idRetry;\r\n  mrIgnore   = idIgnore;\r\n  mrYes      = idYes;\r\n  mrNo       = idNo;\r\n  mrClose    = idClose;\r\n  mrHelp     = idHelp;\r\n  mrTryAgain = idTryAgain;\r\n  mrContinue = idContinue;\r\n  mrAll      = mrContinue + 1;\r\n  mrNoToAll  = mrAll + 1;\r\n  mrYesToAll = mrNoToAll + 1;\r\n\r\n  rgiFirst = -1024;\r\n  rgiLast  = -513;\r\n  igiFirst = 256;\r\n  igiLast  = 511;\r\n\r\n  clTMSBlue = $E39E00;\r\n  clTMSWEB = $8F8300;\r\n\r\ntype\r\n  TDragDockObject = class;\r\n  TCustomForm = class;\r\n\r\n  TConstraintSize = 0..MaxInt;\r\n  TCloseAction = (caNone, caHide, caFree, caMinimize);\r\n  TModalResult = Integer;\r\n  TFormStyle = (fsNormal, fsStayOnTop);\r\n  TNavigationTarget = (ntBlank, ntPage);\r\n  TGestureID = rgiFirst..igiLast;\r\n  TInteractiveGestureFlag = (gfBegin, gfInertia, gfEnd);\r\n  TInteractiveGestureFlags = set of TInteractiveGestureFlag;\r\n  TMouseActivate = (maDefault, maActivate, maActivateAndEat, maNoActivate, maNoActivateAndEat);\r\n  TScreenOrientation = (soPortrait, soLandscape);\r\n  TApplicationColorScheme = (csNoScheme, csLight, csDark);\r\n\r\n  TSmallPoint  = record\r\n    x, y: SmallInt;\r\n  end;\r\n\r\n  TAlignInfo = record\r\n    AlignList: TList;\r\n    ControlIndex: Integer;\r\n    Align: TAlign;\r\n    Scratch: Integer;\r\n  end;\r\n\r\n  TGestureEventInfo = record\r\n    GestureID: TGestureID;\r\n    Location: TPoint;\r\n    Flags: TInteractiveGestureFlags;\r\n    Angle: Double;\r\n    InertiaVector: TSmallPoint;\r\n    Distance: Integer;\r\n    TapLocation: TSmallPoint;\r\n  end;\r\n\r\n  TOnPaintEvent = TNotifyEvent;\r\n  TCloseEvent = procedure(Sender: TObject; var Action: TCloseAction) of object;\r\n  TCloseQueryEvent = procedure(Sender: TObject; var CanClose: Boolean) of object;\r\n  TOrientationChangeEvent = procedure(Sender: TObject; AOrientation: TScreenOrientation) of object;\r\n  TBeforeUnloadEvent = procedure(Sender: TObject; var AMessage: string) of object;\r\n  TAlignInsertBeforeEvent = function(Sender: TWinControl; C1, C2: TControl): Boolean of object;\r\n  TAlignPositionEvent = procedure(Sender: TWinControl; Control: TControl;\r\n    var NewLeft, NewTop, NewWidth, NewHeight: Integer;\r\n    var AlignRect: TRect; AlignInfo: TAlignInfo) of object;\r\n  TCanResizeEvent = procedure(Sender: TObject; var NewWidth, NewHeight: Integer;\r\n    var Resize: Boolean) of object;\r\n  TConstrainedResizeEvent = procedure(Sender: TObject; var MinWidth, MinHeight,\r\n    MaxWidth, MaxHeight: Integer) of object;\r\n  TContextPopupEvent = procedure(Sender: TObject; MousePos: TPoint; var Handled: Boolean) of object;\r\n  TDockDropEvent = procedure(Sender: TObject; Source: TDragDockObject;\r\n    X, Y: Integer) of object;\r\n  TDockOverEvent = procedure(Sender: TObject; Source: TDragDockObject;\r\n    X, Y: Integer; State: TDragState; var Accept: Boolean) of object;\r\n  TGestureEvent = procedure(Sender: TObject; const EventInfo: TGestureEventInfo;\r\n     var Handled: Boolean) of object;\r\n  TGetSiteInfoEvent = procedure(Sender: TObject; DockClient: TControl;\r\n    var InfluenceRect: TRect; MousePos: TPoint; var CanDock: Boolean) of object;\r\n  TMouseActivateEvent = procedure(Sender: TObject; Button: TMouseButton;\r\n    Shift: TShiftState; X, Y: Integer; HitTest: Integer; var MouseActivate: TMouseActivate) of object;\r\n  TMouseWheelUpDownEvent = procedure(Sender: TObject; Shift: TShiftState;\r\n    MousePos: TPoint; var Handled: Boolean) of object;\r\n  TStartDockEvent = procedure(Sender: TObject;\r\n    var DragObject: TDragDockObject) of object;\r\n  TUnDockEvent = procedure(Sender: TObject; Client: TControl;\r\n    NewTarget: TWinControl; var Allow: Boolean) of object;\r\n\r\n  THashChangeEvent = procedure(Sender: TObject; oldURL, newURL: string) of object;\r\n\r\n  TModalResultProc = reference to procedure(AValue: TModalResult);\r\n  TFormCreatedProc = reference to procedure(AForm: TObject);\r\n\r\n  TWindowState = (wsNormal, wsMinimized, wsMaximized);\r\n\r\n  TPopupMode = (pmNone, pmAuto, pmExplicit);\r\n  TPopupClose = (pcOnDeactivate, pcNever);\r\n  TPosition = (poDesigned, poDefault, poDefaultPosOnly, poDefaultSizeOnly, poScreenCenter, poDesktopCenter, poMainFormCenter, poOwnerFormCenter);\r\n\r\n  TApplicationErrorType = (aeSilent, aeDialog, aeAlert, aeFooter);\r\n\r\n  TFormBorderStyle = (fbNone, fbSingle, fbSizeable, fbDialog, fbDialogSizeable);\r\n  TFormBorder = fbNone..fbSingle;\r\n\r\n  TBootstrapVersion = (bv3, bv4, bv5);\r\n\r\n  TCustomSizeConstraints = class(TPersistent)\r\n  private\r\n    FControl: TControl;\r\n    FMaxHeight: TConstraintSize;\r\n    FMaxWidth: TConstraintSize;\r\n    FMinHeight: TConstraintSize;\r\n    FMinWidth: TConstraintSize;\r\n    FOnChange: TNotifyEvent;\r\n    procedure SetConstraints(AIndex: Integer; AValue: TConstraintSize);\r\n  protected\r\n    procedure Change; virtual;\r\n    procedure AssignTo(ADest: TPersistent); override;\r\n    property Control: TControl read FControl;\r\n    property MaxHeight: TConstraintSize index 0 read FMaxHeight write SetConstraints default 0;\r\n    property MaxWidth: TConstraintSize index 1 read FMaxWidth write SetConstraints default 0;\r\n    property MinHeight: TConstraintSize index 2 read FMinHeight write SetConstraints default 0;\r\n    property MinWidth: TConstraintSize index 3 read FMinWidth write SetConstraints default 0;\r\n  public\r\n    constructor Create(AControl: TControl); virtual;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  end;\r\n\r\n  TSizeConstraints = class(TCustomSizeConstraints)\r\n  published\r\n    property MaxHeight;\r\n    property MaxWidth;\r\n    property MinHeight;\r\n    property MinWidth;\r\n  end;\r\n\r\n  TDragDockObject = class(TObject)\r\n  strict private\r\n    FBrush: TBrush;\r\n    FDockRect: TRect;\r\n    FDropAlign: TAlign;\r\n    FDropOnControl: TControl;\r\n    FEraseDockRect: TRect;\r\n    FEraseWhenMoving: Boolean;\r\n    FFloating: Boolean;\r\n    FFrameWidth: Integer;\r\n  public\r\n    constructor Create(AControl: TControl);\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TDragObject);\r\n    property Brush: TBrush read FBrush write FBrush;\r\n    property DockRect: TRect read FDockRect write FDockRect;\r\n    property DropAlign: TAlign read FDropAlign;\r\n    property DropOnControl: TControl read FDropOnControl;\r\n    property EraseDockRect: TRect read FEraseDockRect write FEraseDockRect;\r\n    property EraseWhenMoving: Boolean read FEraseWhenMoving;\r\n    property Floating: Boolean read FFloating write FFloating;\r\n    property FrameWidth: Integer read FFrameWidth;\r\n  end;\r\n\r\n  TCustomForm = class(TWinControl)\r\n  private\r\n    FDesignContainer: TJSElement;\r\n    FLayer: TJSElement;\r\n    FPopup: Boolean;\r\n    FPopupElement: TJSHTMLElement;\r\n    FFormFileName: string;\r\n    FFormContent: string;\r\n    FFormContainer: TElementID;\r\n    FFormElement: string;\r\n    FFormStyle: TFormStyle;\r\n    FOnCreate: TNotifyEvent;\r\n    FOnShow: TNotifyEvent;\r\n    FModalResult: TModalResult;\r\n    FOnPaint: TOnPaintEvent;\r\n    FOnDeactivate: TNotifyEvent;\r\n    FOnCloseQuery: TCloseQueryEvent;\r\n    FOnClose: TCloseEvent;\r\n    FModalProc: TModalResultProc;\r\n    FCreatedProc: TFormCreatedProc;\r\n    FWindowState: TWindowState;\r\n    FCaption: string;\r\n    FIsResizing: boolean;\r\n    FOnScroll: TNotifyEvent;\r\n    FOnUnload: TNotifyEvent;\r\n    FOnBeforeUnload: TBeforeUnloadEvent;\r\n    FPopupMode: TPopupMode;\r\n    FPopupClose: TPopupClose;\r\n    FPosition: TPosition;\r\n    FActiveControl: TWinControl;\r\n    FMdx, FMdy: integer;\r\n    FDlgX, FDlgY: integer;\r\n    FCaptured: boolean;\r\n    FDown: boolean;\r\n    FHasCaption: boolean;\r\n    FMoveSpan: TJSHTMLElement;\r\n    FCaptionElement: TJSHTMLElement;\r\n    FCaptionCloseElement: TJSHTMLElement;\r\n    FBorder: TFormBorderStyle;\r\n    FShadow: boolean;\r\n    FTimerID: integer;\r\n    FOrigWidth, FOrigHeight: integer;\r\n    FOldWidth, FOldHeight: integer;\r\n    FOnDestroy: TNotifyEvent;\r\n    FPopupOpacity: single;\r\n    FCreating: boolean;\r\n    FCreated: boolean;\r\n    FShown: boolean;\r\n    FLoadedPtr: pointer;\r\n    FDOMContentLoadedPtr: pointer;\r\n    FUnloadPtr: pointer;\r\n    FBeforeUnloadPtr: pointer;\r\n    FResizePtr: pointer;\r\n    FScrollPtr: pointer;\r\n    FDocMouseUpPtr: pointer;\r\n    FDocMouseMovePtr: pointer;\r\n    FTitleDownPtr: pointer;\r\n    FDoClickPtr: pointer;\r\n    FKeyDownPtr: pointer;\r\n    FOrientationChangePtr: pointer;\r\n    FHashChangePtr: pointer;\r\n    FCSSLibrary: TCSSLibrary;\r\n    FNoHTML: boolean;\r\n    FPrevActiveForm: TCustomForm;\r\n    FElementCaptionClassName: TElementClassName;\r\n    FElementPopupClassName: TElementClassName;\r\n    FMenu: TCustomControl;\r\n    FResizeObserver: TJSObject;\r\n    FOnOrientationChange: TOrientationChangeEvent;\r\n    FOnDOMContentLoaded: TNotifyEvent;\r\n    FShowClose: boolean;\r\n    FOnHashChange: THashChangeEvent;\r\n    procedure SetModalResult(const Value: TModalResult);\r\n    function GetFormStyle: TFormStyle;\r\n    procedure SetFormStyle(const Value: TFormStyle); virtual;\r\n    function GetCanvas: TCanvas;\r\n    procedure SetCaption(const AValue: string); virtual;\r\n    procedure SetActiveControl(const Value: TWinControl);\r\n    procedure SetShadow(const Value: boolean);\r\n    procedure SetBorder(const Value: TFormBorderStyle);\r\n    procedure SetFormContainer(const Value: TElementID);\r\n    function GetActiveControl: TWinControl;\r\n    procedure SetWidth(AValue: Integer); override;\r\n    procedure SetHeight(AValue: Integer); override;\r\n    procedure SetPosition(const Value: TPosition); virtual;\r\n    procedure SetClientHeight(const Value: Integer); override;\r\n    function GetClientHeight: integer; override;\r\n    procedure ReadPixelsPerInch(AReader: TReader);\r\n    procedure WritePixelsPerInch(AWriter: TWriter);\r\n  protected\r\n    function HandleHashChange(Event: TEventListenerEvent): boolean; virtual;\r\n    function HandleLoaded(Event: TEventListenerEvent): boolean; virtual;\r\n    function HandleDOMContentLoaded(Event: TEventListenerEvent): boolean; virtual;\r\n    function HandleScroll(Event: TEventListenerEvent): boolean; virtual;\r\n    function HandleUnload(Event: TEventListenerEvent): boolean; virtual;\r\n    function HandleBeforeUnload(Event: TEventListenerEvent): boolean; virtual;\r\n    function HandleObserver: boolean; virtual;\r\n    function HandleResize(Event: TEventListenerEvent): boolean; virtual;\r\n    function HandleDocMouseMove(Event: TJSMouseEvent): Boolean; virtual;\r\n    function HandleDocMouseUp(Event: TJSMouseEvent): Boolean; virtual;\r\n    function HandleTitleDown(Event: TJSMouseEvent): Boolean; virtual;\r\n    function HandleCloseClick(Event: TEventListenerEvent): boolean; virtual;\r\n\r\n    procedure SetLeft(AValue: Integer); override;\r\n    procedure SetTop(AValue: Integer); override;\r\n\r\n    procedure DefineProperties(AFiler: TFiler); override;\r\n    procedure ClearMethodPointers; override;\r\n    procedure GetMethodPointers; override;\r\n    procedure VisibleChanged; override;\r\n    procedure Resize; reintroduce; virtual;\r\n    procedure CreateControl; override;\r\n    procedure DoClose(var CloseAction: TCloseAction); virtual;\r\n    procedure BindEvents; override;\r\n    procedure UnbindEvents; override;\r\n    procedure DoCreate; virtual;\r\n    procedure Realign; override;\r\n    procedure DoResize; virtual;\r\n    procedure DoShow; virtual;\r\n    procedure DoAutoFocus; virtual;\r\n    procedure Paint; virtual;\r\n    function HandleDoClick(Event: TJSMouseEvent): Boolean; reintroduce; virtual;\r\n    function HandleKeyDown(Event: TJSKeyBoardEvent): Boolean; virtual;\r\n    function HandleOrientationChange(Event: TJSEvent): Boolean; virtual;\r\n    procedure HandleDoResize; virtual;\r\n    procedure KeyPreview(var Key: Word; Shift: TShiftState); override;\r\n    function GetWidth: Integer; override;\r\n    function GetHeight: Integer; override;\r\n    function GetLeft: Integer; override;\r\n    function GetTop: Integer; override;\r\n    function GetClientRect: TRect; override;\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElement; override;\r\n    function ContainerElement: TJSElement; override;\r\n    function FormContainerElement: TJSElement; virtual;\r\n    function GetElementBindHandle: TJSEventTarget; override;\r\n    function GetElementHandle: TJSHTMLElement; override;\r\n    procedure SetElementClassName(AValue: string); override;\r\n    function CloseQuery: Boolean; virtual;\r\n    procedure LoadDFMValues; virtual;\r\n    procedure Init; virtual;\r\n    property FormContent: string read FFormContent write FFormContent;\r\n    property WindowState: TWindowState read FWindowState write FWindowState;\r\n    function IsFocused: Boolean; override;\r\n    property PopupMode: TPopupMode read FPopupMode write FPopupMode default pmNone;\r\n    property Position: TPosition read FPosition write SetPosition default poDefaultPosOnly;\r\n    function CreateLayer: TJSHTMLElement;\r\n    function CreateCaption: TJSHTMLElement;\r\n    function GetCaptionHeight: integer;\r\n    procedure SetColorScheme(AScheme: TApplicationColorScheme); virtual;\r\n    procedure SetCSSLibrary(ALibrary: TCSSLibrary);\r\n    procedure SetFormPos; virtual;\r\n    property Border: TFormBorderStyle read FBorder write SetBorder;\r\n    class function GetHTMLFileName: string; virtual;\r\n    procedure LoadedDone; virtual;\r\n    procedure Loaded; override;\r\n    procedure ColorChanging; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    constructor Create(id: string); overload; override;\r\n    constructor Create(id: string; var AReference); overload; virtual;\r\n    constructor Create(AOwner: TComponent); overload; override;\r\n    constructor Create(AOwner: TComponent; IsPopup: boolean; ABorder: TFormBorderStyle = fbSingle; ATitle: string = ''); overload;\r\n    constructor CreateNew(AOwner: TComponent; Dummy: Integer = 0); overload; virtual;\r\n    constructor CreateNew(AFileName: string); overload; virtual;\r\n    constructor CreateNew; overload; virtual;\r\n    constructor CreateNew(AProc: TFormCreatedProc); overload; virtual;\r\n    constructor CreateNew(AElementID: string; AProc: TFormCreatedProc); overload; virtual;\r\n    constructor CreateNew(AElementID, AFileName: string; AProc: TFormCreatedProc); overload; virtual;\r\n    constructor CreateDialog(ACaption: string); virtual;\r\n    constructor CreateDialogNew(ACaption: string); virtual;\r\n\r\n    [async]\r\n    function Load: TJSPromise;\r\n    [async]\r\n    function Execute: TJSPromise;\r\n    [async]\r\n    function LoadAndExecute: TJSPromise;\r\n\r\n    destructor Destroy; override;\r\n    procedure Close; virtual;\r\n    function GetUniqueComponentName(AComponent: TComponent): string;\r\n    function IsMiletus: boolean;\r\n    procedure PreventDefault; reintroduce;\r\n    property ActiveControl: TWinControl read GetActiveControl write SetActiveControl;\r\n    property ModalResult: TModalResult read FModalResult write SetModalResult;\r\n    property Canvas: TCanvas read GetCanvas;\r\n    property CaptionElement: TJSHTMLElement read FCaptionElement;\r\n    property ElementCaptionClassName: TElementClassName read FElementCaptionClassName write FElementCaptionClassName;\r\n    property ElementPopupClassName: TElementClassName read FElementPopupClassName write FElementPopupClassName;\r\n    procedure SetBounds(X, Y, AWidth, AHeight: Integer); override;\r\n    procedure SelectFirst;\r\n    procedure SelectNext(CurControl: TControl; GoForward: boolean; CheckTabStop: boolean);\r\n    procedure Show; reintroduce;\r\n    function ShowModal: Integer; overload; virtual;\r\n    function ShowModal(AProc: TModalResultProc): TModalResult; overload; virtual;\r\n    procedure AddCSS(const id: string; const css: string);\r\n    procedure RemoveCSS(const id: string);\r\n    procedure UpdateCSS(const id: string; const css: string);\r\n    property Caption: string read FCaption write SetCaption;\r\n    property Color;\r\n    property CSSLibrary: TCSSLibrary read FCSSLibrary write SetCSSLibrary default cssNone;\r\n    property FormContainer: TElementID read FFormContainer write SetFormContainer;\r\n    property FormFileName: string read FFormFileName write FFormFileName;\r\n    property FormStyle: TFormStyle read GetFormStyle write SetFormStyle;\r\n    property IsResizing: boolean read FIsResizing;\r\n    property Menu: TCustomControl read FMenu write FMenu;\r\n    property Popup: boolean read FPopup write FPopup;\r\n    property PopupClose: TPopupClose read FPopupClose write FPopupClose default pcOnDeactivate;\r\n    property PopupOpacity: single read FPopupOpacity write FPopupOpacity;\r\n    property ShowClose: boolean read FShowClose write FShowClose default true;\r\n    property Shadow: boolean read FShadow write SetShadow default true;\r\n    property OnBeforeUnload: TBeforeUnloadEvent read FOnBeforeUnload write FOnBeforeUnload;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnDOMContentLoaded: TNotifyEvent read FOnDOMContentLoaded write FOnDOMContentLoaded;\r\n    property OnClose: TCloseEvent read FOnClose write FOnClose;\r\n    property OnCloseQuery: TCloseQueryEvent read FOnCloseQuery write FOnCloseQuery;\r\n    property OnCreate: TNotifyEvent read FOnCreate write FOnCreate;\r\n    property OnDestroy: TNotifyEvent read FOnDestroy write FOnDestroy;\r\n    property OnDeactivate: TNotifyEvent read FOnDeactivate write FOnDeactivate;\r\n    property OnOrientationChange: TOrientationChangeEvent read FOnOrientationChange write FOnOrientationChange;\r\n    property OnPaint: TOnPaintEvent read FOnPaint write FOnPaint;\r\n    property OnScroll: TNotifyEvent read FOnScroll write FOnScroll;\r\n    property OnShow: TNotifyEvent read FOnShow write FOnShow;\r\n    property OnUnload: TNotifyEvent read FOnUnload write FOnUnload;\r\n    property OnHashChange: THashChangeEvent read FOnHashChange write FOnHashChange;\r\n  end;\r\n\r\n  TFormClass = class of TForm;\r\n  TForm = class(TCustomForm)\r\n  public\r\n    property Border;\r\n    property ClientHeight;\r\n    property ClientWidth;\r\n    property PopupMode;\r\n    property Position;\r\n  published\r\n    property Align;\r\n    property Caption;\r\n    property Color;\r\n    property CSSLibrary;\r\n    property ElementClassName;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Font;\r\n    property FormContainer;\r\n    property FormStyle;\r\n    property Menu;\r\n    property ParentFont;\r\n    property Shadow;\r\n    property ShowClose;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property OnBeforeUnload;\r\n    property OnClick;\r\n    property OnClose;\r\n    property OnCloseQuery;\r\n    property OnCreate;\r\n    property OnDblClick;\r\n    property OnDeactivate;\r\n    property OnDestroy;\r\n    property OnDOMContentLoaded;\r\n    property OnHashChange;\r\n    property OnResize;\r\n    property OnShow;\r\n    property OnScroll;\r\n    property OnOrientationChange;\r\n    property OnPaint;\r\n    property OnTouchStart;\r\n    property OnTouchMove;\r\n    property OnTouchEnd;\r\n    property OnUnload;\r\n  end;\r\n\r\n  TWebForm = TForm;\r\n\r\n  TWebFormClass = class of TWebForm;\r\n\r\n  //TTouchManager = class(TComponent)\r\n  //end;\r\n\r\n  TCustomFrame = class(TCustomHTMLDiv)\r\n  private\r\n    FAutoScroll: Boolean;\r\n    FAutoSize: Boolean;\r\n    FBiDiMode: TBiDiMode;\r\n    FConstraints: TSizeConstraints;\r\n    FCtl3D: Boolean;\r\n    FDockSite: Boolean;\r\n    FDragCursor: TCursor;\r\n    FDragKind: TDragKind;\r\n    FDragMode: TDragMode;\r\n    FOnAlignInsertBefore: TAlignInsertBeforeEvent;\r\n    FOnAlignPosition: TAlignPositionEvent;\r\n    FOnCanResize: TCanResizeEvent;\r\n    FOnConstrainedResize: TConstrainedResizeEvent;\r\n    FOnContextPopup: TContextPopupEvent;\r\n    FOnDockDrop: TDockDropEvent;\r\n    FOnDockOver: TDockOverEvent;\r\n    FOnEndDock: TEndDragEvent;\r\n    FOnGesture: TGestureEvent;\r\n    FOnGetSiteInfo: TGetSiteInfoEvent;\r\n    FOnMouseActivate: TMouseActivateEvent;\r\n    FOnMouseWheelDown: TMouseWheelUpDownEvent;\r\n    FOnMouseWheelUp: TMouseWheelUpDownEvent;\r\n    FOnStartDock: TStartDockEvent;\r\n    FOnUnDock: TUnDockEvent;\r\n    FPadding: TPadding;\r\n    FParentBackground: Boolean;\r\n    FParentCtl3D: Boolean;\r\n    FPopupMenu: TPopupMenu;\r\n    procedure LoadHTMLFile(const AId: string);\r\n    //FTouch: TTouchManager;\r\n    //FTouchManager: TTouchManager;\r\n    procedure SetConstraints(const AValue: TSizeConstraints);\r\n    procedure SetPopupMenu(AValue: TPopupMenu);\r\n    procedure SetPadding(AValue: TPadding);\r\n    //procedure SetTouchManager(AValue: TTouchManager);\r\n  protected\r\n    class function GetHTMLFileName: string; virtual;\r\n    procedure LoadDFMValues; virtual;\r\n    procedure UpdateElement; override;\r\n    property AutoScroll: Boolean read FAutoScroll write FAutoScroll default False;\r\n    property AutoSize: Boolean read FAutoSize write FAutoSize default False;\r\n    property BiDiMode: TBiDiMode read FBiDiMode write FBiDiMode stored False;\r\n    property Constraints: TSizeConstraints read FConstraints write SetConstraints;\r\n    property Ctl3D: Boolean read FCtl3D write FCtl3D stored False;\r\n    property DockSite: Boolean read FDockSite write FDockSite default False;\r\n    property DragCursor: TCursor read FDragCursor write FDragCursor default crDrag;\r\n    property DragKind: TDragKind read FDragKind write FDragKind default dkDrag;\r\n    property DragMode: TDragMode read FDragMode write FDragMode default dmManual;\r\n    property Padding: TPadding read FPadding write SetPadding;\r\n    property ParentBackground: Boolean read FParentBackground write FParentBackground;\r\n    property ParentCtl3D: Boolean read FParentCtl3D write FParentCtl3D default True;\r\n    property PopupMenu: TPopupMenu read FPopupMenu write SetPopupMenu;\r\n    //property Touch: TTouchManager read FTouch write SetTouchManager;\r\n    property OnAlignInsertBefore: TAlignInsertBeforeEvent read FOnAlignInsertBefore write FOnAlignInsertBefore;\r\n    property OnAlignPosition: TAlignPositionEvent read FOnAlignPosition write FOnAlignPosition;\r\n    property OnCanResize: TCanResizeEvent read FOnCanResize write FOnCanResize;\r\n    property OnConstrainedResize: TConstrainedResizeEvent read FOnConstrainedResize write FOnConstrainedResize;\r\n    property OnContextPopup: TContextPopupEvent read FOnContextPopup write FOnContextPopup;\r\n    property OnDockDrop: TDockDropEvent read FOnDockDrop write FOnDockDrop;\r\n    property OnDockOver: TDockOverEvent read FOnDockOver write FOnDockOver;\r\n    property OnEndDock: TEndDragEvent read FOnEndDock write FOnEndDock;\r\n    property OnGesture: TGestureEvent read FOnGesture write FOnGesture;\r\n    property OnGetSiteInfo: TGetSiteInfoEvent read FOnGetSiteInfo write FOnGetSiteInfo;\r\n    property OnMouseActivate: TMouseActivateEvent read FOnMouseActivate write FOnMouseActivate;\r\n    property OnMouseWheelDown: TMouseWheelUpDownEvent read FOnMouseWheelDown write FOnMouseWheelDown;\r\n    property OnMouseWheelUp: TMouseWheelUpDownEvent read FOnMouseWheelUp write FOnMouseWheelUp;\r\n    property OnStartDock: TStartDockEvent read FOnStartDock write FOnStartDock;\r\n    property OnUnDock: TUnDockEvent read FOnUnDock write FOnUnDock;\r\n  public\r\n    constructor Create(AId: string); override; overload;\r\n    constructor Create(AOwner: TComponent); override; overload;\r\n    constructor CreateNew(AOwner: TComponent);\r\n    destructor Destroy; override;\r\n    procedure LoadFromForm;\r\n    property ElementHandle;\r\n  end;\r\n\r\n  TFrameClass = class of TFrame;\r\n  TFrame = class(TCustomFrame)\r\n  published\r\n    property Align;\r\n    property Anchors;\r\n    property AutoScroll;\r\n    property AutoSize;\r\n    property BiDiMode;\r\n    property Constraints;\r\n    property DockSite;\r\n    property DoubleBuffered;\r\n    property DragCursor;\r\n    property DragKind;\r\n    property DragMode;\r\n    property Enabled;\r\n    property Color nodefault;\r\n    property Ctl3D;\r\n    property Font;\r\n    property Padding;\r\n    property ParentBackground default True;\r\n    property ParentBiDiMode;\r\n    property ParentColor;\r\n    property ParentCtl3D;\r\n    property ParentDoubleBuffered;\r\n    property ParentFont;\r\n    property ParentShowHint;\r\n    property PopupMenu;\r\n    property ShowHint;\r\n    property TabOrder;\r\n    property TabStop;\r\n    //property Touch;\r\n    property Visible;\r\n    property OnAlignInsertBefore;\r\n    property OnAlignPosition;\r\n    property OnCanResize;\r\n    property OnClick;\r\n    property OnConstrainedResize;\r\n    property OnContextPopup;\r\n    property OnDblClick;\r\n    property OnDockDrop;\r\n    property OnDockOver;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDock;\r\n    property OnEndDrag;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnGesture;\r\n    property OnGetSiteInfo;\r\n    property OnMouseActivate;\r\n    property OnMouseDown;\r\n    property OnMouseEnter;\r\n    property OnMouseLeave;\r\n    property OnMouseMove;\r\n    property OnMouseUp;\r\n    property OnMouseWheel;\r\n    property OnMouseWheelDown;\r\n    property OnMouseWheelUp;\r\n    property OnResize;\r\n    property OnStartDock;\r\n    property OnStartDrag;\r\n    property OnUnDock;\r\n  end;\r\n  TWebFrame = TFrame;\r\n\r\n  TApplicationError = record\r\n    AMessage: string;\r\n    AFile: string;\r\n    ALineNumber: integer;\r\n    AColNumber: integer;\r\n    AStack: string;\r\n    AError: TJSObject;\r\n  end;\r\n\r\n  THintPosition = (hpLeft, hpTop, hpRight, hpBottom);\r\n\r\n  TOnlineStatus = (osOnline, osOffline);\r\n\r\n  TApplicationErrorEvent = procedure(Sender: TObject; AError: TApplicationError; var Handled: boolean) of object;\r\n\r\n  TApplicationHashChangeEvent = procedure(Sender: TObject; AHash: string; var Handled: boolean) of object;\r\n\r\n  TApplicationOnlineChangeEvent = procedure(Sender: TObject; AStatus: TOnlineStatus) of object;\r\n\r\n  TApplicationActiveChangeEvent = procedure(Sender: TObject; Active: boolean) of object;\r\n\r\n  TApplicationCallBackEvent = procedure(Sender: TObject; AQuery: string) of object;\r\n\r\n  TApplicationExceptionEvent = procedure(Sender: TObject; E: Exception) of object;\r\n\r\n  TApplicationPopStateEvent = procedure(Sender: TObject; State: JSValue) of object;\r\n\r\n  TApplicationAutoCreateFormEvent = procedure(Sender: TObject; AInstanceClass: TFormClass; var AReference) of object;\r\n\r\n  TApplication = class(TControl)\r\n  private\r\n    FAppContainer: TElementID;\r\n    FMainFormOnTaskBar: Boolean;\r\n    FCanCreateForm: Boolean;\r\n    FAppInitializing: Boolean;\r\n    FLastReq: TJSXMLHttpRequest;\r\n    FFormCaptionHeight: integer;\r\n    {$IFDEF SINGLEINSTANCE}\r\n    FWebSocket: TSocketClient;\r\n    {$ENDIF}\r\n    FActiveForm: TCustomForm;\r\n    FMainForm: TCustomForm;\r\n    FLoadForm: TCustomForm;\r\n    FInitFormClassName: string;\r\n    FFormStack: TList;\r\n    FParameters: TStrings;\r\n    FIsRedirect: boolean;\r\n    FLanguage: TUILanguage;\r\n    FOnImageCacheReady: TNotifyEvent;\r\n    FOnError: TApplicationErrorEvent;\r\n    FOnHashChange: TApplicationHashChangeEvent;\r\n    FAutoFormRoute: boolean;\r\n    FErrorType: TApplicationErrorType;\r\n    FClientConnector: TClientConnector;\r\n    FOnOnlineChange: TApplicationOnlineChangeEvent;\r\n    FOnActivate: TApplicationActiveChangeEvent;\r\n    FThemeTextColor: TColor;\r\n    FThemeColor: TColor;\r\n    FThemed: boolean;\r\n    FThemeButtonClassName: string;\r\n    FOnOAuthToken: TApplicationCallBackEvent;\r\n    FOnOAuthCallBack: TApplicationCallBackEvent;\r\n    FOnFontCacheReady: TNotifyEvent;\r\n    FOnPopState: TApplicationPopStateEvent;\r\n    FMaxZIndex: integer;\r\n    FCreatedProc: TFormCreatedProc;\r\n    FHandleOAuth: boolean;\r\n    FHintPause: integer;\r\n    FHintHidePause: integer;\r\n    FHintPosition: THintPosition;\r\n    FHintClassName: string;\r\n    FOnExit: TNotifyEvent;\r\n    FOnException: TApplicationExceptionEvent;\r\n    FOnAutoCreateForm: TApplicationAutoCreateFormEvent;\r\n    FRouting: boolean;\r\n    FSBW: integer;\r\n    {$IFDEF FREEWARE}\r\n    FNotifyCount: integer;\r\n    {$ENDIF}\r\n    {$IFDEF HOTRELOAD}\r\n    FHotReloadPollInterval: Integer;\r\n    FHotReloadReq: TJSXMLHttpRequest;\r\n    FHotReloadTimer: NativeInt;\r\n    FHotReloadVersion: Integer;\r\n    FHotReloadFile: string;\r\n    {$ENDIF}\r\n    function DoFormLoad(Event: TEventListenerEvent): boolean;\r\n    function DoFormAbort(Event: TEventListenerEvent): boolean;\r\n    function DoHandleError(Event: TJSErrorEvent): boolean;\r\n    function DoHandleExit(Event: TEventListenerEvent): boolean;\r\n    function DoHashChange(Event: TEventListenerEvent): boolean;\r\n    function DoPopState(Event: TJSPopStateEvent): boolean;\r\n    function DoErrorClose(Event: TJSMOuseEvent): boolean;\r\n    function DoUpdateOnlineStatus(Event: TEventListenerEvent): boolean;\r\n    function DoVisibilityChange(Event: TEventListenerEvent): boolean;\r\n    procedure SetLanguage(const Value: TUILanguage);\r\n    function GetIsOnline: boolean;\r\n    function GetIsMobile: boolean;\r\n    function GetIsPWA: boolean;\r\n    procedure InternalDownloadFile(const AData: TJSUint8Array; const AFileName, AType: string; const ANewTab: Boolean);\r\n    {$IFDEF SINGLEINSTANCE}\r\n    procedure DoGetDataReceived(Sender: TObject; Origin: string; Data: TJSObjectRecord);\r\n    procedure DoGetConnected(Sender: TObject);\r\n    {$ENDIF}\r\n    {$IFDEF HOTRELOAD}\r\n    procedure OnHotReloadTick;\r\n    function OnHotReloadLoad(AEvent: TEventListenerEvent): Boolean;\r\n    function OnHotReloadAbort(AEvent: TEventListenerEvent): Boolean;\r\n    procedure HandleHotReload(const AData: TJSObject);\r\n    procedure StartHotReload;\r\n    procedure StopHotReload;\r\n    {$ENDIF}\r\n  protected\r\n    procedure CreateNewForm(AForm: TCustomForm; HTML: string); overload; virtual;\r\n    function GetFormExtension: string;\r\n    function GetAuthorizationPageHTML(const AAuthorizationSuccess: Boolean): string;\r\n    function GetColorScheme: TApplicationColorScheme; virtual;\r\n    function GetActive: boolean;\r\n    function GetBootstrapVersion: TBootstrapVersion;\r\n    procedure ReloadForm;\r\n    procedure ActivateChildScripts(AElement: TJSHTMLElement);\r\n    procedure ChangeMaxZIndex(Delta: integer);\r\n    procedure TriggerNotification;\r\n    procedure AutoCreateForm(AInstanceClass: TFormClass; var AReference);\r\n    procedure SetHash(const AValue: string);\r\n    function GetHash: string;\r\n  public\r\n    procedure PushForm(AForm: TCustomForm);\r\n    function PopForm: TCustomForm;\r\n    procedure LockForm(AForm: TCustomForm);\r\n    procedure UnLockForm(AForm: TCustomForm);\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    property MaxZIndex: integer read FMaxZIndex write FMaxZIndex;\r\n    function MaxZIndexStr: string;\r\n    function IsPWAInstalled: TJSPromise;\r\n    function CalcScrollBarWidth: integer;\r\n    procedure GoBack;\r\n    function CreateNewForm(AInstanceClass: TFormClass): TCustomForm; overload;\r\n    function CreateNewForm(AInstanceClass: TFormClass; AElementID: string): TCustomForm; overload;\r\n    procedure CreateForm(AInstanceClass: TFormClass; var AReference); overload;\r\n    procedure CreateForm(AInstanceClass: TFormClass; AElementID: string; var AReference); overload;\r\n    procedure CreateForm(AInstanceClass: TFormClass; AElementID: string; var AReference; AProc: TFormCreatedProc); overload;\r\n    procedure CreateForm(AInstanceClass: TFormClass; AElementID: string; var AReference; AProc: TFormCreatedProc; LoadHTML: boolean); overload;\r\n    procedure CreateForm(AInstanceClass: TDataModuleClass; var AReference); overload;\r\n    procedure CreateForm(AInstanceClass: TFrameClass; var AReference); overload;\r\n    procedure CreateForm(AInstanceClass: TFormClass; AElement: TJSHTMLElement; var AReference); overload;\r\n    procedure CreateFormDirect(AInstanceClass: TFormClass; var AReference); overload;\r\n    procedure CreateFormDirect(AInstanceClass: TFormClass; AElementID: string; var AReference); overload;\r\n    procedure CreateFormDirect(AInstanceClass: TDataModuleClass; var AReference); overload;\r\n    procedure CreateFormDirect(AInstanceClass: TFrameClass; var AReference); overload;\r\n    procedure LoadForm(AForm: TCustomForm; AFormFile: string); overload; virtual;\r\n    procedure LoadForm(AForm: TCustomForm; AFormFile: string; FormLoaded: TFormCreatedProc); overload; virtual;\r\n    procedure ChangeCSS(id: string; href:string);\r\n    procedure InsertCSS(id, href: string);\r\n    procedure RemoveCSS(id: string);\r\n    function HasCSS(href:string): boolean;\r\n    procedure ChangeLanguage(const Value: TUILanguage); virtual;\r\n    procedure Initialize;\r\n    function Route: boolean;\r\n    procedure InitFormatSettings(const BrowserLocale: string);\r\n    procedure ReceiveMessageFromClient(const AMessage: string);\r\n    procedure RouteForm(AParameter: string);\r\n    procedure Run;\r\n    procedure RunScript(Source: string);\r\n    procedure Terminate;\r\n    procedure Navigate(const AURL: string; ATarget: TNavigationTarget = ntBlank);\r\n    procedure Download(const AURL: string);\r\n    procedure DownloadTextFile(const AText: string; AFileName: string = '');\r\n    procedure DownloadBinaryFile(const AData: TJSBlob; const AFileName: string = ''; const ANewTab: Boolean = False); overload;\r\n    procedure DownloadBinaryFile(const AData: TBytes; const AFileName: string = ''; const ANewTab: Boolean = False); overload;\r\n    procedure DownloadBinaryFile(const AData: TJSUint8Array; const AFileName: string = ''; const ANewTab: Boolean = False); overload;\r\n    procedure DownloadPDFFile(const AData: TBytes; const AFileName: string = ''; const ANewTab: Boolean = False); overload;\r\n    procedure DownloadPDFFile(const AData: TJSUint8Array; const AFileName: string = ''; const ANewTab: Boolean = False); overload;\r\n    function EXEName: string;\r\n    function IDETheme: string;\r\n    function IDECSS: string;\r\n    function Version: string;\r\n    procedure IDEMessage(const Msg: string);\r\n    procedure IDEOpenURL(const URL: string);\r\n    function NeedsFormRouting: Boolean;\r\n    function ObjectURL(AFile: TJSHTMLFile): string;\r\n    property Active: boolean read GetActive;\r\n    property AppContainer: TElementID read FAppContainer write FAppContainer;\r\n    property AutoFormRoute: boolean read FAutoFormRoute write FAutoFormRoute;\r\n    property ErrorType: TApplicationErrorType read FErrorType write FErrorType;\r\n    property BootstrapVersion: TBootstrapVersion read GetBootstrapVersion;\r\n    property FormCaptionHeight: integer read FFormCaptionHeight write FFormCaptionHeight;\r\n    property Hash: string read GetHash write SetHash;\r\n    property HandleOAuth: boolean read FHandleOAuth write FHandleOAuth;\r\n    property HintHidePause: integer read FHintHidePause write FHintHidePause;\r\n    property HintPause: integer read FHintPause write FHintPause;\r\n    property HintClassName: string read FHintCLassName write FHintClassName;\r\n    property HintPosition: THintPosition read FHintPosition write FHintPosition;\r\n    property IsOnline: boolean read GetIsOnline;\r\n    property IsMobile: boolean read GetIsMobile;\r\n    property IsPWA: boolean read GetIsPWA;\r\n    property ActiveForm: TCustomForm read FActiveForm;\r\n    property ColorScheme: TApplicationColorScheme read GetColorScheme;\r\n    property Routing: boolean read FRouting write FRouting;\r\n    property MainForm: TCustomForm read FMainForm;\r\n    property MainFormOnTaskBar: boolean read FMainFormOnTaskBar write FMainFormOnTaskBar;\r\n    property Parameters: TStrings read FParameters;\r\n    property Language: TUILanguage read FLanguage write SetLanguage;\r\n    property Themed: boolean read FThemed write FThemed;\r\n    property ThemeColor: TColor read FThemeColor write FThemeColor;\r\n    property ThemeTextColor: TColor read FThemeTextColor write FThemeTextColor;\r\n    property ThemeButtonClassName: string read FThemeButtonClassName write FThemeButtonClassName;\r\n    property OnError: TApplicationErrorEvent read FOnError write FOnError;\r\n    property OnException: TApplicationExceptionEvent read FOnException write FOnException;\r\n    property OnExit: TNotifyEvent read FOnExit write FOnExit;\r\n    property OnAutoCreateForm: TApplicationAutoCreateFormEvent read FOnAutoCreateForm write FOnAutoCreateForm;\r\n    property OnImageCacheReady: TNotifyEvent read FOnImageCacheReady write FOnImageCacheReady;\r\n    property OnFontCacheReady: TNotifyEvent read FOnFontCacheReady write FOnFontCacheReady;\r\n    property OnHashChange: TApplicationHashChangeEvent read FOnHashChange write FOnHashChange;\r\n    property OnOnlineChange: TApplicationOnlineChangeEvent read FOnOnlineChange write FOnOnlineChange;\r\n    property OnOAuthCallBack: TApplicationCallBackEvent read FOnOAuthCallBack write FOnOAuthCallBack;\r\n    property OnOAuthToken: TApplicationCallBackEvent read FOnOAuthToken write FOnOAuthToken;\r\n    property OnActivate: TApplicationActiveChangeEvent read FOnActivate write FOnActivate;\r\n    property OnPopState: TApplicationPopStateEvent read FOnPopState write FOnPopState;\r\n    property ClientConnector: TClientConnector read FClientConnector write FClientConnector;\r\n{$IFDEF HOTRELOAD}\r\n    property HotReloadPollInterval: Integer read FHotReloadPollInterval write FHotReloadPollInterval;\r\n    property HotReloadFile: string read FHotReloadFile write FHotReloadFile;\r\n{$ENDIF}\r\n  end;\r\n\r\nfunction GetParentForm(AControl: TControl): TCustomForm;\r\nprocedure Log(v: JSValue); overload;\r\nprocedure Log(arr: array of JSValue); overload;\r\nfunction WinWidth: integer;\r\nfunction WinHeight: integer;\r\nfunction Sleep(milliseconds: cardinal): TJSPromise;\r\n\r\nvar\r\n  Application: TApplication;\r\n  HandShakeScript: TJSHTMLScriptElement;\r\n  VSIDE: TJSObject;\r\n  LastHash: string;\r\n\r\nimplementation\r\n\r\nuses\r\n  WEBLib.Dialogs, WEBLib.WebTools, WEBLib.JSON, WEBLib.Utils, Math\r\n  {$IFDEF HOTRELOAD}, IOUtils{$ENDIF};\r\n\r\ntype\r\n  TFramePreviewForm = class(TWebForm)\r\n  private\r\n    FFrame: TFrame;\r\n  protected\r\n    procedure LoadDFMValues; override;\r\n  end;\r\n\r\nprocedure Log(v: JSValue);\r\nbegin\r\n  asm\r\n    console.log(v);\r\n  end;\r\nend;\r\n\r\nfunction WinHeight: integer;\r\nvar\r\n  h: integer;\r\nbegin\r\n  if Assigned(VSIDE) then\r\n  begin\r\n     asm\r\n       h = pas[\"WEBLib.Forms\"].VSIDE.clientHeight();\r\n     end;\r\n  end\r\n  else\r\n    h := window.innerHeight;\r\n\r\n  Result := h;\r\nend;\r\n\r\nfunction WinWidth: integer;\r\nvar\r\n  w: integer;\r\nbegin\r\n  if Assigned(VSIDE) then\r\n  begin\r\n    asm\r\n      w = pas[\"WEBLib.Forms\"].VSIDE.clientWidth();\r\n    end;\r\n  end\r\n  else\r\n    w := window.innerWidth;\r\n\r\n  Result := w;\r\nend;\r\n\r\n\r\n{$HINTS OFF}\r\nprocedure Log(arr: array of JSValue);\r\nvar\r\n  i: integer;\r\n  s,su: string;\r\nbegin\r\n  s := '[';\r\n  for i := 0 to length(arr) - 1 do\r\n  begin\r\n    asm\r\n      function isPrimitive(test) {\r\n        return (test !== Object(test));\r\n      };\r\n\r\n      if (isPrimitive(arr[i])) {\r\n         var su = arr[i].toString();\r\n         if (s != \"[\") { s = s + \",\"; }\r\n         s = s + su;\r\n         }\r\n      else\r\n      {\r\n        console.log(arr[i]);\r\n         if (s != \"[\") { s = s + \",\"; }\r\n         s = s + \"#object\";\r\n      }\r\n    end;\r\n  end;\r\n\r\n  s := s + ']';\r\n\r\n  log(s);\r\nend;\r\n{$HINTS ON}\r\n\r\nfunction GetParentForm(AControl: TControl): TCustomForm;\r\nvar\r\n  FOwner: TComponent;\r\nbegin\r\n  Result := nil;\r\n\r\n  FOwner := AControl;\r\n\r\n  while Assigned(FOwner) and not (FOwner is TCustomForm) do\r\n  begin\r\n    // it is a control without Owner, created with HTML element ID\r\n    if (FOwner = AControl) and (FOwner.Owner = nil) then\r\n      FOwner := AControl.Parent\r\n    else\r\n      FOwner := FOwner.Owner;\r\n  end;\r\n\r\n  if Assigned(FOwner) and (FOwner is TCustomForm) then\r\n    Result := (FOwner as TCustomForm);\r\nend;\r\n\r\n\r\n{ TCustomForm }\r\n\r\nfunction TCustomForm.Load: TJSPromise;\r\nbegin\r\n  FShown := false;\r\n  FormFileName := GetHTMLFileName;\r\n\r\n  if FormFileName = '' then\r\n  begin\r\n     Result := TJSPromise.new(procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n       begin\r\n         Asuccess(Self);\r\n       end);\r\n  end\r\n  else\r\n  begin\r\n    Result := TJSPromise.new(\r\n      procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n      begin\r\n        Application.LoadForm(Self, FormFileName, procedure(AForm: TObject)\r\n          begin\r\n            ASuccess(AForm);\r\n          end);\r\n      end\r\n    );\r\n  end;\r\nend;\r\n\r\nfunction TCustomForm.Execute: TJSPromise;\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n    begin\r\n      ShowModal(procedure(AValue: TModalResult)\r\n        begin\r\n          ASuccess(AValue);\r\n        end);\r\n    end\r\n    );\r\nend;\r\n\r\nprocedure TCustomForm.KeyPreview(var Key: Word; Shift: TShiftState);\r\nvar\r\n  i,lt,ft,lti,fti:integer;\r\nbegin\r\n  lt := -1;\r\n  ft := $FFFF;\r\n\r\n  for i := 0 to ControlCount - 1 do\r\n  begin\r\n    if not (Controls[i].Visible) and (Controls[i].Enabled) then\r\n      Continue;\r\n\r\n    if Controls[i].TabOrder < ft then\r\n    begin\r\n      ft := Controls[i].TabOrder;\r\n      fti := i;\r\n    end;\r\n\r\n    if Controls[i].TabOrder > lt then\r\n    begin\r\n      lt := Controls[i].TabOrder;\r\n      lti := i;\r\n    end;\r\n\r\n    // check if control handles Default or Cancel with ESC/Return\r\n    if (Key = VK_RETURN) or (Key = VK_ESCAPE) then\r\n      Controls[i].HandleKeyPreview(Key);\r\n  end;\r\n\r\n  if Application.MainForm = Self then\r\n    Exit;\r\n\r\n  if (key = VK_TAB) and not (ssShift in Shift) and (lti < ControlCount) and (fti >= 0) and (fti <> lti) then\r\n  begin\r\n    if Controls[lti].Focused then\r\n    begin\r\n      Controls[fti].SetFocus;\r\n      key := 0;\r\n    end;\r\n  end;\r\n\r\n  if (key = VK_TAB) and (ssShift in Shift) and (fti >= 0) and (lti < ControlCount) and (fti <> lti) then\r\n  begin\r\n    if Controls[fti].Focused then\r\n    begin\r\n      Controls[lti].SetFocus;\r\n      key := 0;\r\n    end;\r\n  end;\r\n\r\n\r\n\r\nend;\r\n\r\nfunction TCustomForm.LoadAndExecute: TJSPromise;\r\n\r\n  function LoadAsync: boolean; async;\r\n  begin\r\n    Result := await(boolean, Load);\r\n  end;\r\n\r\nbegin\r\n  LoadAsync;\r\n\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n    begin\r\n      ShowModal(procedure(AValue: TModalResult)\r\n        begin\r\n          ASuccess(AValue);\r\n        end);\r\n    end\r\n    );\r\nend;\r\n\r\nprocedure TCustomForm.BindEvents;\r\nvar\r\n  pc: TPersistentClass;\r\n  hash: string;\r\nbegin\r\n  inherited;\r\n\r\n  if (document.readyState <> 'loading') then\r\n    if Assigned(OnDOMContentLoaded) then\r\n      OnDomContentLoaded(Self);\r\n\r\n  window.addEventListener('resize', FResizePtr);\r\n  window.addEventListener('load', FLoadedPtr);\r\n  window.addEventListener('DOMContentLoaded', FDOMContentLoadedPtr);\r\n  document.addEventListener('scroll', FScrollPtr);\r\n  window.addEventListener('unload', FUnloadPtr);\r\n  window.addEventListener('beforeunload', FBeforeUnloadPtr);\r\n  window.addEventListener('keydown', FKeyDownPtr);\r\n  window.addEventListener('orientationchange',FOrientationChangePtr);\r\n  window.addEventListener('hashchange',FHashChangePtr);\r\n\r\n  pc := GetClass(ClassName);\r\n\r\n  if Assigned(pc) and not Popup and Application.FRouting then\r\n  begin\r\n    hash := ClassName;\r\n    delete(hash,1,1);\r\n    LastHash := hash;\r\n    window.location.hash := hash;\r\n  end;\r\nend;\r\n\r\nprocedure ReleaseForm(AForm: TCustomForm);\r\nbegin\r\n  AForm.Free;\r\n  AForm := nil;\r\nend;\r\n\r\nprocedure TCustomForm.ReadPixelsPerInch(AReader: TReader);\r\nbegin\r\nend;\r\n\r\nprocedure TCustomForm.WritePixelsPerInch(AWriter: TWriter);\r\nbegin\r\nend;\r\n\r\nprocedure TCustomForm.DefineProperties(AFiler: TFiler);\r\nconst\r\n  cPixelsPerInch = 'PixelsPerInch';\r\nbegin\r\n  inherited DefineProperties(AFiler);\r\n  AFiler.DefineProperty(cPixelsPerInch, @ReadPixelsPerInch, @WritePixelsPerInch, False);\r\nend;\r\n\r\nprocedure TCustomForm.ClearMethodPointers;\r\nbegin\r\n  inherited;\r\n  FLoadedPtr := nil;\r\n  FDOMContentLoadedPtr := nil;\r\n  FUnloadPtr := nil;\r\n  FBeforeUnloadPtr := nil;\r\n  FResizePtr := nil;\r\n  FScrollPtr := nil;\r\n  FDocMouseUpPtr := nil;\r\n  FDocMouseMovePtr := nil;\r\n  FTitleDownPtr := nil;\r\n  FDoClickPtr := nil;\r\n  FKeyDownPtr := nil;\r\n  FOrientationChangePtr := nil;\r\n  FHashChangePtr := nil;\r\nend;\r\n\r\nprocedure TCustomForm.AddCSS(const id: string; const css: string);\r\nbegin\r\n  asm\r\n    function writeStylesOnce(styleName, cssText) {\r\n        var styleElement = document.getElementById(styleName);\r\n        if (styleElement) {\r\n             styleElement.innerHTML = cssText;\r\n          return;\r\n          }\r\n        styleElement = document.createElement('style');\r\n        styleElement.type = 'text/css';\r\n        styleElement.id = styleName;\r\n        styleElement.innerHTML = cssText;\r\n        document.getElementsByTagName('head')[0].appendChild(styleElement);\r\n    }\r\n    writeStylesOnce(id,css);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomForm.RemoveCSS(const id: string);\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  el := document.getElementById(id);\r\n  if Assigned(el) then\r\n    document.head.removeChild(el);\r\nend;\r\n\r\nprocedure TCustomForm.Close;\r\nvar\r\n  lAction: TCloseAction;\r\n  el: TJSElement;\r\nbegin\r\n  if CloseQuery then\r\n  begin\r\n    UnbindEvents;\r\n\r\n    lAction := caHide;\r\n\r\n    if FTimerID <> -1 then\r\n    begin\r\n      window.clearInterval(FTimerID);\r\n      FTimerID := -1;\r\n    end;\r\n\r\n    if Assigned(OnClose) then\r\n      OnClose(Self, lAction);\r\n\r\n    //if lAction = caFree then\r\n    //  DestroyControls;\r\n\r\n    if lAction <> caNone then\r\n    begin\r\n      if Assigned(FLayer) then\r\n      begin\r\n        if Container.parentNode = FLayer then\r\n        begin\r\n          FLayer.removeChild(Container);\r\n        end\r\n        else\r\n        begin\r\n          if Container.parentNode.parentNode = FLayer then\r\n            FLayer.removeChild(Container.parentNode);\r\n        end;\r\n\r\n        Container := nil;\r\n        if FormContainerElement = FLayer.parentNode then\r\n        begin\r\n          FormContainerElement.removeChild(FLayer);\r\n          Application.ChangeMaxZIndex(-1);\r\n        end;\r\n        FLayer := nil;\r\n      end;\r\n\r\n      if (FormFileName = '') then\r\n      begin\r\n        if (FFormElement <> '') and Assigned(Container) then\r\n        begin\r\n          Container.innerHTML := '';\r\n          Container := nil;\r\n        end\r\n        else\r\n          if Assigned(Container) then\r\n          begin\r\n            if FormContainerElement = Container.parentNode then\r\n              FormContainerElement.removeChild(Container);\r\n            Container := nil;\r\n          end;\r\n      end\r\n      else\r\n      begin\r\n        if FFormElement <> '' then\r\n        begin\r\n          Container.innerHTML := '';\r\n          Container := nil;\r\n        end\r\n      end;\r\n\r\n      if (FFormElement <> FormContainer) and (FFormElement <> '') then\r\n      begin\r\n        el := document.getElementById(FFormElement);\r\n        if Assigned(el) then\r\n          el.innerHTML := '';\r\n      end;\r\n\r\n      DoClose(lAction);\r\n\r\n      if (lAction = caFree) and not (csDestroying in ComponentState) then\r\n      begin\r\n        Visible := false;\r\n        ReleaseForm(Self);\r\n        if Application.FMainForm = Self then\r\n          Application.FMainForm := nil;\r\n      end;\r\n\r\n      Application.FActiveForm := FPrevActiveForm;\r\n\r\n      Visible := False;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TCustomForm.CloseQuery: Boolean;\r\nbegin\r\n  Result := True;\r\n  if Assigned(FOnCloseQuery) then\r\n    FOnCloseQuery(Self, Result);\r\nend;\r\n\r\nprocedure TCustomForm.ColorChanging;\r\nbegin\r\n  inherited;\r\n  if Assigned(Container) then\r\n  begin\r\n    TJSHTMLElement(Container).style.setProperty(CSSBackground, ColorToHTML(Color));\r\n  end;\r\nend;\r\n\r\nfunction TCustomForm.ContainerElement: TJSElement;\r\nbegin\r\n  Result := FormContainerElement;\r\nend;\r\n\r\nconstructor TCustomForm.Create(AOwner: TComponent);\r\nbegin\r\n  FNoHTML := false;\r\n  FCreating := true;\r\n  FResizeObserver := nil;\r\n  inherited;\r\n  FBorder := fbSingle;\r\n  FFormFileName := '';\r\n  FPopupMode := pmNone;\r\n  FPopupClose := pcOnDeactivate;\r\n  FPopup := True;\r\n  FPosition := poScreenCenter;\r\n  FPopupOpacity := 1.0;\r\n  FCreated := true;\r\nend;\r\n\r\nconstructor TCustomForm.Create(AOwner: TComponent; IsPopup: boolean; ABorder: TFormBorderStyle; ATitle: string);\r\nbegin\r\n  FNoHTML := false;\r\n  FCreating := true;\r\n  FResizeObserver := nil;\r\n  inherited Create(AOwner);\r\n  FBorder := ABorder;\r\n  FCaption := ATitle;\r\n  FFormFileName := '';\r\n  FPopupMode := pmNone;\r\n  FPopupClose := pcOnDeactivate;\r\n  FPopup := IsPopup;\r\n  FPosition := poScreenCenter;\r\n  FPopupOpacity := 1.0;\r\nend;\r\n\r\nfunction TCustomForm.CreateCaption: TJSHTMLElement;\r\nvar\r\n  BarHeight: string;\r\nbegin\r\n  BarHeight := IntToStr(Application.FormCaptionHeight);\r\n  FCaptionElement := TJSHTMLElement(document.createElement('DIV'));\r\n  FCaptionElement.innerHTML := Caption;\r\n  FCaptionElement.style.setProperty(CSSBackground, ColorToHTML(Application.ThemeColor));\r\n  FCaptionElement.style.setProperty('color', ColorToHTML(Application.ThemeTextColor));\r\n  FCaptionElement.style.setProperty('cursor', 'move');\r\n  //title.style.setProperty('padding', Padding + 'px');\r\n  FCaptionElement.style.setProperty('height', BarHeight + 'px');\r\n  FCaptionElement.style.setProperty('line-height', BarHeight + 'px');\r\n  FCaptionElement.style.setProperty('border-bottom', '1px solid black');\r\n  FCaptionElement.style.setProperty('padding-left','4px');\r\n\r\n  FCaptionElement.style.setProperty('-moz-user-select','none');\r\n  FCaptionElement.style.setProperty('-webkit-user-select','none');\r\n  FCaptionElement.style.setProperty('-ms-user-select','none');\r\n  FCaptionElement.style.setProperty('user-select','none');\r\n  FCaptionElement.style.setProperty('-o-user-select','none');\r\n\r\n  if ElementCaptionClassName <> '' then\r\n    FCaptionElement.setAttribute('class',ElementCaptionClassName);\r\n\r\n  SetHTMLElementFont(FCaptionElement, Font, not ((ElementCaptionClassName = '') and (ElementFont = efProperty)));\r\n\r\n  if not Assigned(FTitleDownPtr) then\r\n    GetMethodPointers;\r\n\r\n  FCaptionElement.innerHTML := FCaption;\r\n  FCaptionElement.addEventListener('mousedown', FTitleDownPtr);\r\n  FHasCaption := true;\r\n\r\n  Result := FCaptionElement;\r\nend;\r\n\r\nprocedure TCustomForm.CreateControl;\r\nvar\r\n  s: string;\r\nbegin\r\n  if not Visible and not FPopup then\r\n    Exit;\r\n\r\n  inherited;\r\n\r\n  s := '';\r\n  asm\r\n    if (typeof CONTAINERID !== \"undefined\") {\r\n      try {\r\n        s = CONTAINERID;\r\n      }\r\n      catch(e)\r\n      {\r\n      }\r\n    }\r\n  end;\r\n\r\n  if s <> '' then\r\n    FormContainer := s;\r\n\r\n  UpdateSize;\r\nend;\r\n\r\nfunction TCustomForm.CreateLayer: TJSHTMLElement;\r\nbegin\r\n  Result := TJSHTMLElement(document.createElement('SPAN'));\r\n  Result.style.setProperty('top', '0');\r\n  Result.style.setProperty('left', '0');\r\n  Result.style.setProperty('right', '0');\r\n  Result.style.setProperty('bottom', '0');\r\n\r\n  Result.style.setProperty('webkit-user-select', 'none');\r\n  Result.style.setProperty('moz-user-select', 'none');\r\n  Result.style.setProperty('khtml-user-select', 'none');\r\n  Result.style.setProperty('ms-user-select', 'none');\r\n  Result.style.setProperty('user-select', 'none');\r\n  Result.style.setProperty('position', 'absolute');\r\n  Result.style.setProperty('z-index', Application.MaxZIndexStr);\r\nend;\r\n\r\nfunction TCustomForm.CreateElement: TJSElement;\r\nvar\r\n  eh,caph: TJSHTMLElement;\r\n\r\nbegin\r\n  if not FPopup and Assigned(FormContainerElement) then\r\n  begin\r\n    Result := FormContainerElement;\r\n    Exit;\r\n  end;\r\n\r\n  //if FPopup then\r\n  begin\r\n    Result := document.createElement('DIV');\r\n\r\n    FLayer := CreateLayer;\r\n    document.body.appendChild(FLayer);\r\n\r\n    eh := TJSHTMLElement(FLayer);\r\n\r\n    if FPopupClose = pcOnDeactivate then\r\n    begin\r\n      // ensure method pointers exist\r\n      GetMethodPointers;\r\n      eh.addEventListener('click', FDoClickPtr);\r\n    end;\r\n\r\n    eh.style.setProperty(CSSZINDEX, Application.MaxZIndexStr);\r\n\r\n    if (Border = fbSizeable) then\r\n    begin\r\n      TJSHTMLElement(Result).style.setProperty('resize','both');\r\n      TJSHTMLElement(Result).style.setProperty('overflow','auto');\r\n    end;\r\n\r\n    FHasCaption := false;\r\n\r\n    if (Border in [fbSizeable, fbDialog, fbDialogSizeable]) then\r\n    begin\r\n      caph := CreateCaption;\r\n      Result.appendChild(caph);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomForm.LoadDFMValues;\r\nbegin\r\nend;\r\n\r\nprocedure TCustomForm.Loaded;\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  inherited;\r\n  if (FormContainer <> '') and (ElementClassName <> '') then\r\n  begin\r\n     el := FormContainerElement;\r\n     if Assigned(el) then\r\n     begin\r\n       el.setAttribute('class', ElementClassName);\r\n     end;\r\n  end;\r\n\r\n  LoadedDone;\r\nend;\r\n\r\nprocedure TCustomForm.LoadedDone;\r\nbegin\r\n  Application.TriggerNotification;\r\nend;\r\n\r\nprocedure TCustomForm.Init;\r\nbegin\r\nend;\r\n\r\nfunction TCustomForm.IsFocused: Boolean;\r\nbegin\r\n  // form is not focused only controls\r\n  Result := false;\r\nend;\r\n\r\nfunction TCustomForm.IsMiletus: boolean;\r\nvar\r\n  cl: TClass;\r\nbegin\r\n  cl := ClassType;\r\n  Result := false;\r\n\r\n  repeat\r\n    cl := cl.ClassParent;\r\n    if Assigned(cl) and (cl.ClassName = 'TMiletusForm') then\r\n    begin\r\n      Result := true;\r\n      break;\r\n    end;\r\n  until not Assigned(cl) or (cl.ClassName = 'TForm');\r\nend;\r\n\r\nprocedure TCustomForm.Resize;\r\nvar\r\n  i,ch: integer;\r\n  neww, newh: integer;\r\n  eh: TJSHTMLElement;\r\n  dr: TJSDOMRect;\r\nbegin\r\n  if (csDestroying in ComponentState) then\r\n    Exit;\r\n\r\n  FIsResizing := true;\r\n\r\n  if FPopup and Assigned(FPopupElement) then\r\n  begin\r\n    eh := FPopupElement;\r\n    dr := eh.getBoundingClientRect;\r\n\r\n    neww := Round(dr.Right - dr.Left - 2);\r\n    if (Border in [fbDialog, fbDialogSizeable]) then\r\n    begin\r\n      ch := GetCaptionHeight;\r\n      newh := Round(dr.Bottom - dr.Top - ch - 2)\r\n    end\r\n    else\r\n      newh := Round(dr.Bottom - dr.Top - 2)\r\n  end\r\n  else\r\n  begin\r\n    neww := window.innerWidth;\r\n    newh := window.innerHeight;\r\n  end;\r\n\r\n  UpdateControlSize(neww, newh);\r\n\r\n  if not (IsAndroid and (document.activeElement.tagName = 'INPUT')) then\r\n    AlignControl(Self);\r\n\r\n  DoResize;\r\n\r\n  FIsResizing := false;\r\n\r\n  if not IsUpdating then\r\n  begin\r\n    if (OrigRect.Left = -1) and (OrigRect.Top = -1) then\r\n      InitAnchoring;\r\n\r\n    for i := 0 to ControlCount - 1 do\r\n      Controls[i].UpdateAnchoring;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TCustomForm.SetActiveControl(const Value: TWinControl);\r\nbegin\r\n  FActiveControl := Value;\r\n  if Assigned(FActiveControl) then\r\n    FActiveControl.SetFocus;\r\nend;\r\n\r\nprocedure TCustomForm.SetBorder(const Value: TFormBorderStyle);\r\nbegin\r\n  if (FBorder <> Value) then\r\n  begin\r\n    FBorder := Value;\r\n    if Assigned(Container) then\r\n      AlignControl(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomForm.SetBounds(X, Y, AWidth, AHeight: Integer);\r\nbegin\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Resize;\r\n    SetBoundsInt(X, Y, AWidth, AHeight);\r\n  end\r\n  else\r\n    inherited SetBounds(X, Y, AWidth, AHeight);\r\nend;\r\n\r\nprocedure TCustomForm.SetCaption(const AValue: string);\r\nbegin\r\n  if FCaption <> AValue then\r\n  begin\r\n    FCaption := AValue;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomForm.SetColorScheme(AScheme: TApplicationColorScheme);\r\nvar\r\n  s: string;\r\nbegin\r\n  if not Application.Themed then\r\n    Exit;\r\n\r\n  case AScheme of\r\n  csDark:\r\n    begin\r\n      Color := $202124;\r\n      s :=\r\n        'label,option,td,table,ul,li {background-color: #202124; color: #BEC1C6;}'+#13#10 +\r\n        'body,input,textarea,select,fieldset {background-color: #202124; color: #BEC1C6; border: 1px solid gray;}'+#13#10 +\r\n        'input:focus, textarea:focus, select:focus, span:focus { border: 1px solid silver; outline: none !important;}';\r\n      AddCSS('appscheme',s);\r\n    end;\r\n  csLight:\r\n    begin\r\n      Color := clWhite;\r\n      RemoveCSS('appscheme');\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomForm.SetCSSLibrary(ALibrary: TCSSLibrary);\r\nbegin\r\n  FCSSLibrary := ALibrary;\r\n  if (ALibrary = cssBootstrap) and (csDesigning in ComponentState) and not (csLoading in ComponentState) then\r\n    ElementFont := efCSS;\r\nend;\r\n\r\nprocedure TCustomForm.SetElementClassName(AValue: string);\r\nbegin\r\n  inherited;\r\n  if FPopup and Assigned(FPopupElement) then\r\n  begin\r\n    FPopupElement['class'] := AValue;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomForm.SetFormContainer(const Value: TElementID);\r\nvar\r\n  el,old: TJSElement;\r\n  i: integer;\r\n\r\nbegin\r\n  old := Container;\r\n\r\n  if (csDesigning in ComponentState) then\r\n    FFormContainer := Value\r\n  else\r\n  begin\r\n    if Uppercase(Value) = 'BODY' then\r\n      FFormContainer := ''\r\n    else\r\n      FFormContainer := Value;\r\n  end;\r\n\r\n  if (csLoading in ComponentState) and not (csDesigning in ComponentState) then\r\n    Exit;\r\n\r\n   // displayed on top of other in layer\r\n  if Assigned(FLayer) then\r\n    el := FLayer\r\n  else\r\n   // update container element\r\n  if Value = '' then\r\n  begin\r\n    el := document.body;\r\n  end\r\n  else\r\n  begin\r\n    el := document.getElementById(Value);\r\n    if not Assigned(el) then\r\n      el := document.body;\r\n  end;\r\n\r\n  if Assigned(el) then\r\n  begin\r\n    Container := el;\r\n\r\n    if Assigned(old) then\r\n    begin\r\n      for i := 0 to ControlCount - 1 do\r\n      begin\r\n        if (Controls[i].ParentElement = old) then\r\n          Controls[i].ParentElementHandle := TJSHTMLElement(el);\r\n\r\n        if Assigned(Controls[i].ElementHandle) and (Controls[i].ElementHandle.parentElement = old) then\r\n        begin\r\n          el.appendChild(Controls[i].ElementHandle);\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomForm.SetFormPos;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  if Position = poScreenCenter then\r\n  begin\r\n    FLeft := Round((WinWidth - Width)/2) + window.scrollX;\r\n    FTop := Round((WinHeight - Height)/2) +  window.scrollY;\r\n  end;\r\n\r\n  TJSHTMLElement(Container).style.setProperty('position','absolute');\r\n  TJSHTMLElement(Container).style.setProperty('width',inttostr(Width)+'px');\r\n  TJSHTMLElement(Container).style.setProperty('height',inttostr(Height)+'px');\r\n  TJSHTMLElement(Container).style.setProperty('left',inttostr(Left)+'px');\r\n  TJSHTMLElement(Container).style.setProperty('top',inttostr(Top)+'px');\r\nend;\r\n\r\nprocedure TCustomForm.SetFormStyle(const Value: TFormStyle);\r\nbegin\r\n  FFormStyle := Value;\r\nend;\r\n\r\nprocedure TCustomForm.SetClientHeight(const Value: Integer);\r\nbegin\r\n  if (Self.Border in [fbDialog, fbDialogSizeable]) then\r\n  begin\r\n    SetHeight(Value + Application.FormCaptionHeight);\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TCustomForm.SetHeight(AValue: Integer);\r\nvar\r\n  eh: TJSHTMLElement;\r\nbegin\r\n  if ((csLoading in ComponentState) and (FFormContainer <> '')) or (not Popup and not Assigned(ElementHandle)) then\r\n  begin\r\n    SetHeightInt(AValue);\r\n    if Assigned(FormContainerElement) then\r\n    begin\r\n      if (Uppercase(FormContainerElement.tagName) <> 'BODY') and not IsLinked then\r\n        TJSHTMLElement(FormContainerElement).style.setProperty('height',inttostr(AValue)+'px');\r\n    end;\r\n    Exit;\r\n  end;\r\n\r\n  inherited;\r\n\r\n  if (FFormContainer <> '') and Assigned(FormContainerElement) then\r\n  begin\r\n    TJSHTMLElement(FormContainerElement).style.setProperty('height',inttostr(AValue)+'px');\r\n    Realign;\r\n  end;\r\n\r\n  if Popup then\r\n  begin\r\n    eh := FPopupElement;\r\n    if Assigned(eh) then\r\n      eh.style.setProperty('height',inttostr(AValue)+'px');\r\n  end;\r\nend;\r\n\r\nprocedure TCustomForm.SetLeft(AValue: Integer);\r\nvar\r\n  eh: TJSHTMLElement;\r\nbegin\r\n  inherited;\r\n  if Popup then\r\n  begin\r\n    eh := FPopupElement;\r\n    if Assigned(eh) then\r\n      eh.style.setProperty('left',inttostr(avalue)+'px');\r\n  end;\r\nend;\r\n\r\nprocedure TCustomForm.SetModalResult(const Value: TModalResult);\r\nbegin\r\n  FModalResult := Value;\r\n  if (FModalResult <> mrNone) then\r\n    Close;\r\nend;\r\n\r\nprocedure TCustomForm.SetPosition(const Value: TPosition);\r\nbegin\r\n  FPosition := Value;\r\nend;\r\n\r\nprocedure TCustomForm.SetShadow(const Value: boolean);\r\nbegin\r\n  if (FShadow <> Value) then\r\n  begin\r\n    FShadow := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomForm.SetTop(AValue: Integer);\r\nvar\r\n  eh: TJSHTMLElement;\r\nbegin\r\n  inherited;\r\n  if Popup then\r\n  begin\r\n    eh := FPopupElement;\r\n    if Assigned(eh) then\r\n      eh.style.setProperty('top',IntToStr(avalue)+'px');\r\n  end;\r\nend;\r\n\r\nprocedure TCustomForm.SetWidth(AValue: Integer);\r\nvar\r\n  eh: TJSHTMLElement;\r\nbegin\r\n  if ((csLoading in ComponentState) and (FFormContainer <> '')) or (not Popup and not Assigned(ElementHandle)) then\r\n  begin\r\n    SetWidthInt(AValue);\r\n    Exit;\r\n  end;\r\n\r\n  inherited;\r\n\r\n  if Popup then\r\n  begin\r\n    eh := FPopupElement;\r\n    if Assigned(eh) then\r\n      eh.style.setProperty('width',IntToStr(avalue)+'px');\r\n  end;\r\nend;\r\n\r\nprocedure TCustomForm.SelectFirst;\r\nbegin\r\n  if ControlCount > 0 then\r\n    Controls[0].SetFocus;\r\nend;\r\n\r\nprocedure TCustomForm.SelectNext(CurControl: TControl; GoForward: boolean; CheckTabStop: boolean);\r\nvar\r\n  i: integer;\r\nbegin\r\n  if ControlCount > 0 then\r\n  begin\r\n    for i := 0 to ControlCount - 1 do\r\n    begin\r\n      if Controls[i] = CurControl then\r\n      begin\r\n        if GoForward then\r\n        begin\r\n          if i + 1 <= ControlCount - 1  then\r\n            Controls[i + 1].SetFocus\r\n          else\r\n            Controls[0].SetFocus;\r\n        end\r\n        else\r\n        begin\r\n          if i - 1 >= 0 then\r\n            Controls[i - 1].SetFocus\r\n          else\r\n            Controls[ControlCount - 1].SetFocus;\r\n        end;\r\n        break;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomForm.Show;\r\nvar\r\n  dr: TJSDOMRect;\r\nbegin\r\n  if FCreating and FPopup then\r\n  begin\r\n    Application.ChangeMaxZIndex(+1);\r\n    FCreating := false;\r\n    UpdateElement;\r\n  end;\r\n\r\n  if (FormFileName = '') then\r\n  begin\r\n    if not Assigned(Container) then\r\n    begin\r\n      if FPopup then\r\n      begin\r\n        Container := CreateElement;\r\n//        TJSHTMLElement(FLayer).style.setProperty(CSSBackground,'silver');\r\n        FPopupElement := TJSHTMLElement(Container);\r\n        SetFormPos;\r\n        UpdateElement;\r\n        FLayer.appendChild(Container);\r\n      end\r\n      else\r\n      begin\r\n        Container := CreateLayer;\r\n        TJSHTMLElement(Container).style.setProperty(CSSBackground,ColorToHTML(Color));\r\n        document.body.appendChild(Container);\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      if FPopup then\r\n      begin\r\n        SetFormPos;\r\n        FLayer.appendChild(Container)\r\n      end\r\n      else\r\n      begin\r\n        if Assigned(FLayer) then\r\n        begin\r\n          FLayer.appendChild(Container)\r\n        end\r\n        else\r\n        begin\r\n          document.body.appendChild(Container);\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    if FPopup then\r\n    begin\r\n      if (Border = fbSizeable) then\r\n      begin\r\n        dr := Container.getBoundingClientRect;\r\n        FOrigWidth := Round(dr.Right - dr.Left);\r\n        FOrigHeight := Round(dr.Bottom - dr.Top);\r\n        FTimerID := window.setInterval(@HandleDoResize, 100);\r\n      end\r\n      else\r\n      begin\r\n        TJSHTMLElement(Container).style.setProperty('resize','');\r\n        TJSHTMLElement(Container).style.setProperty('overflow','');\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  Visible := True;\r\n\r\n  DoShow;\r\nend;\r\n\r\nfunction TCustomForm.ShowModal: Integer;\r\nbegin\r\n  Result := ShowModal(nil);\r\nend;\r\n\r\nfunction TCustomForm.ShowModal(AProc: TModalResultProc): TModalResult;\r\nbegin\r\n  // create runtime form without HTML\r\n  if FNoHTML or (FormFileName = '') then\r\n  begin\r\n    FPrevActiveForm := Application.ActiveForm;\r\n    Application.FActiveForm := Self;\r\n    if not FCreated then\r\n      Application.CreateNewForm(Self, '');\r\n  end;\r\n\r\n  Result := mrNone;\r\n  FNoHTML := false;\r\n  FModalProc := AProc;\r\n  ModalResult := mrNone;\r\n  Show;\r\nend;\r\n\r\nprocedure TCustomForm.UnbindEvents;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(FLayer) and (FPopupClose = pcOnDeactivate) then\r\n    FLayer.removeEventListener('click', FDoClickPtr);\r\n\r\n  if Assigned(FResizeObserver) then\r\n  begin\r\n    asm\r\n      this.FResizeObserver.disconnect();\r\n    end;\r\n  end;\r\n\r\n  window.removeEventListener('resize', FResizePtr);\r\n  window.removeEventListener('load', FLoadedPtr);\r\n  window.removeEventListener('DOMContentLoaded',FDOMContentLoadedPtr);\r\n  document.removeEventListener('scroll', FScrollPtr);\r\n  window.removeEventListener('unload', FUnloadPtr);\r\n  window.removeEventListener('beforeunload', FBeforeUnloadPtr);\r\n  window.removeEventListener('keydown', FKeyDownPtr);\r\n  window.removeEventListener('orientationchange',FOrientationChangePtr);\r\n  window.removeEventListener('hashchange',FHashChangePtr);\r\nend;\r\n\r\nprocedure TCustomForm.UpdateCSS(const id, css: string);\r\nbegin\r\n  RemoveCSS(id);\r\n  AddCSS(id,css);\r\nend;\r\n\r\nprocedure TCustomForm.UpdateElement;\r\nvar\r\n  clr: string;\r\n  el: TJSNode;\r\n\r\nbegin\r\n  if FCreating then\r\n    Exit;\r\n\r\n  inherited;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  if Assigned(ElementHandle) or Assigned(Container) then\r\n  begin\r\n    if (FCaption <> '') then\r\n    begin\r\n      if not FPopup then\r\n        window.document.title := FCaption\r\n      else\r\n      begin\r\n        if Assigned(FCaptionElement) then\r\n        begin\r\n          el := FCaptionElement.childNodes[0];\r\n          if Assigned(el) then\r\n             el.nodeValue := FCaption;\r\n\r\n          if ShowClose and not Assigned(FCaptionCloseElement) then\r\n          begin\r\n            FCaptionCloseElement := TJSHTMLElement(document.createElement('SPAN'));\r\n            FCaptionCloseElement.style.setProperty('float','right');\r\n            FCaptionCloseElement.style.setProperty('cursor','default');\r\n            FCaptionCloseElement.style.setProperty('margin-right','8px');\r\n            FCaptionCloseElement.innerHTML := '&#x2716;';\r\n            FCaptionElement.appendChild(FCaptionCloseElement);\r\n            FCaptionCloseElement.addEventListener('click', @HandleCloseClick);\r\n          end;\r\n\r\n          SetHTMLElementFont(FCaptionElement, Font, not ((ElementCaptionClassName = '') and (ElementFont = efProperty)));\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n\r\n  if Assigned(Container) then\r\n  begin\r\n    clr := ColorToHtml(Color);\r\n\r\n    if Assigned(Container) then\r\n    begin\r\n      if (Color <> clNone) and ((Color <> clWhite) and not Popup) and (ElementClassName = '') then\r\n        TJSHTMLElement(Container).style.setProperty(CSSBackground,clr);\r\n\r\n      if not Popup and (CSSLibrary <> cssNone) then\r\n        TJSHTMLElement(document.body).style.removeProperty(CSSBackground);\r\n\r\n      if (ElementClassName <> '') or (Color = clNone) or ((Color = clWhite) and not Popup) then\r\n        TJSHTMLElement(Container).style.removeProperty(CSSBackground);\r\n\r\n      if (ElementClassName = '') and not Popup then\r\n      begin\r\n        // make sure body stretches over the entire page\r\n        //TJSHTMLElement(Container).style.setProperty('height','100%');\r\n        asm\r\n          document.documentElement.style.setProperty('height','100%');\r\n        end;\r\n      end;\r\n\r\n      SetHTMLElementFont(TJSHTMLElement(Container), Font, not ((ElementClassName = '') and (ElementFont = efProperty)));\r\n    end;\r\n\r\n    if FPopup then\r\n    begin\r\n      if not Assigned(FPopupElement) then\r\n        FPopupElement := TJSHTMLElement(Container);\r\n\r\n      if ElementPopupClassName <> '' then\r\n      begin\r\n        TJSHTMLElement(Container).style.removeProperty('border');\r\n        TJSHTMLElement(FPopupElement).setAttribute('class', FElementPopupClassName);\r\n      end\r\n      else\r\n      begin\r\n        if FShadow then\r\n        begin\r\n          TJSHTMLElement(FPopupElement).style.setProperty('box-shadow','3px 3px 3px silver')\r\n        end\r\n        else\r\n        begin\r\n          TJSHTMLElement(FPopupElement).style.removeProperty('box-shadow');\r\n        end;\r\n\r\n        TJSHTMLElement(FPopupElement).style.setProperty('border','1px solid gray');\r\n      end;\r\n\r\n      if (CSSLibrary = cssBootstrap) and (ElementClassName = '')  then\r\n      begin\r\n        TJSHTMLElement(FPopupElement).setAttribute('class', 'card');\r\n        TJSHTMLElement(FPopupElement).style.setProperty('display', 'block');\r\n        TJSHTMLElement(Container).style.removeProperty('box-shadow');\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      TJSHTMLElement(Container).style.removeProperty('box-shadow');\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomForm.VisibleChanged;\r\nvar\r\n  LIsBody: boolean;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(FLayer) then\r\n  begin\r\n    if Visible then\r\n      TJSHTMLElement(FLayer).style.setProperty('display','')\r\n    else\r\n      TJSHTMLElement(FLayer).style.setProperty('display','none');\r\n  end\r\n  else\r\n  begin\r\n    LIsBody := LowerCase(ElementID) = cBodyTag;\r\n\r\n    if Assigned(Container) and (FormContainer <> '') and not LIsBody then\r\n    begin\r\n      if Visible then\r\n        TJSHTMLElement(Container).style.setProperty('display','')\r\n      else\r\n        TJSHTMLElement(Container).style.setProperty('display','none');\r\n    end;\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TCustomForm.Paint;\r\nbegin\r\n  //\r\nend;\r\n\r\nprocedure TCustomForm.PreventDefault;\r\nbegin\r\n  ElementEvent.preventDefault();\r\nend;\r\n\r\nfunction TCustomForm.HandleObserver: boolean;\r\nbegin\r\n  Resize;\r\n  Result := true;\r\nend;\r\n\r\nfunction TCustomForm.HandleOrientationChange(Event: TJSEvent): Boolean;\r\nvar\r\n  so: TScreenOrientation;\r\n  isPortrait: boolean;\r\nbegin\r\n  Resize;\r\n  Realign;\r\n  Result := true;\r\n\r\n  if Assigned(OnOrientationChange) then\r\n  begin\r\n    asm\r\n      var mql = window.matchMedia(\"(orientation: portrait)\");\r\n      isPortrait = (mql.matches);\r\n    end;\r\n\r\n    if isPortrait then\r\n      so := soLandscape\r\n    else\r\n      so := soPortrait;\r\n\r\n    OnOrientationChange(Self, so);\r\n  end;\r\n\r\n  if Assigned(OnResize) then\r\n    OnResize(Self);\r\nend;\r\n\r\nfunction TCustomForm.HandleResize(Event: TEventListenerEvent): boolean;\r\nbegin\r\n  if Visible and not (csDestroying in ComponentState) then\r\n  begin\r\n    if not Assigned(Container) then\r\n      CreateControl;\r\n\r\n    Resize;\r\n\r\n    // retrigger in case resize changed scrollbar visibility\r\n    if (ElementHandle = document.body) then\r\n      window.setTimeout(@Resize, 25);\r\n  end;\r\n\r\n  // make sure HandleObserver is not optimized away\r\n  if (1<0) then\r\n  begin\r\n    HandleObserver;\r\n  end;\r\n\r\n  Result := true;\r\nend;\r\n\r\nfunction TCustomForm.GetActiveControl: TWinControl;\r\nvar\r\n  i: integer;\r\nbegin\r\n  Result := FActiveControl;\r\n\r\n\r\n  for i := 0 to ControlCount - 1 do\r\n  begin\r\n    if Controls[i].ElementHandle = document.activeElement then\r\n    begin\r\n      Result := TWinControl(Controls[i]);\r\n      break;\r\n    end;\r\n\r\n  end;\r\nend;\r\n\r\nfunction TCustomForm.GetCanvas: TCanvas;\r\nbegin\r\n  Result := nil;\r\nend;\r\n\r\nfunction TCustomForm.GetCaptionHeight: integer;\r\nvar\r\n  r: TJSDOMRect;\r\nbegin\r\n  Result := 0;\r\n  if Assigned(FCaptionElement) and (Border in [fbDialog, fbDialogSizeable]) then\r\n  begin\r\n    r := FCaptionElement.getBoundingClientRect;\r\n    Result := Round(r.Bottom - r.Top);\r\n  end;\r\nend;\r\n\r\nfunction TCustomForm.GetClientRect: TRect;\r\n//var\r\n//  ch: integer;\r\nbegin\r\n  Result := inherited GetClientRect;\r\n\r\n//  if FHasCaption then\r\n//  begin\r\n//    ch := GetCaptionHeight - 2;\r\n//    Result.Top := Result.Top + ch;\r\n//    Result.Bottom := Result.Bottom + ch;\r\n//  end;\r\nend;\r\n\r\nfunction TCustomForm.GetElementBindHandle: TJSEventTarget;\r\nbegin\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Result := TJSEventTarget(window);\r\n    Exit;\r\n  end;\r\n\r\n  if (FormContainer <> '') then\r\n  begin\r\n    Result := TJSEventTarget(window);\r\n  end\r\n  else\r\n  begin\r\n    if not FPopup then\r\n    begin\r\n      Result := TJSEventTarget(window);\r\n    end\r\n    else\r\n      Result := inherited GetElementBindHandle;\r\n  end;\r\nend;\r\n\r\nfunction TCustomForm.GetElementHandle: TJSHTMLElement;\r\nbegin\r\n  if FPopup then\r\n  begin\r\n    Result := inherited GetElementHandle;\r\n    if not Assigned(Result) then\r\n      Result := FPopupElement;\r\n  end\r\n  else\r\n    Result := TJSHTMLElement(FormContainerElement);\r\nend;\r\n\r\nfunction TCustomForm.GetFormStyle: TFormStyle;\r\nbegin\r\n  Result := FFormStyle;\r\nend;\r\n\r\nfunction TCustomForm.GetClientHeight: Integer;\r\nbegin\r\n  if (Self.Border in [fbDialog, fbDialogSizeable]) then\r\n  begin\r\n    Result := Height {- Application.FormCaptionHeight};\r\n  end\r\n  else\r\n    Result := inherited;\r\nend;\r\n\r\nfunction TCustomForm.GetHeight: Integer;\r\nvar\r\n  d: integer;\r\n  s: string;\r\n  css: TJSCSSStyleDeclaration;\r\n  el: TJSHTMLElement;\r\n  dr: TJSDOMRect;\r\nbegin\r\n  if (FFormElement <> '') then\r\n  begin\r\n    el := TJSHTMLElement(document.getElementById(FFormElement));\r\n    if Assigned(el) then\r\n    begin\r\n      dr := el.getBoundingClientRect;\r\n      Result := Round(dr.bottom - dr.top);\r\n      Exit;\r\n    end\r\n  end;\r\n\r\n  if (ElementHandle = document.body) then\r\n  begin\r\n    css := window.getComputedStyle(ElementHandle);\r\n    s := css.getPropertyValue('margin-top');\r\n    s := Copy(s,1,Length(s) - 2);\r\n    d := Round(StrToFloat(s, TFormatSettings.Invariant) - 2); // div 2;\r\n\r\n    dr := document.documentElement.getBoundingClientRect;\r\n    Result := Round(dr.Height);\r\n\r\n    if Result > window.innerHeight then\r\n      Result := window.innerHeight - Max(0,d);\r\n  end\r\n  else\r\n  begin\r\n    if FPopup then\r\n    begin                            // take caption border in account\r\n      Result := inherited GetHeight  // GetCaptionHeight - 2;\r\n    end\r\n    else\r\n    begin\r\n      Result := Round(ElementHandle.offsetHeight);\r\n      if Result = 0 then\r\n      begin\r\n        if FFormContainer <> '' then\r\n          Result := inherited GetHeight\r\n        else\r\n          Result:= window.innerHeight;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TCustomForm.GetHTMLFileName: string;\r\nbegin\r\n  Result := Self.UnitName + Application.GetFormExtension;\r\nend;\r\n\r\nfunction TCustomForm.GetLeft: Integer;\r\nvar\r\n  el: TJSHTMLElement;\r\n  dr: TJSDOMRect;\r\nbegin\r\n  if FPopup then\r\n  begin\r\n    Result := inherited GetLeft\r\n  end\r\n  else\r\n  begin\r\n    if (FFormElement <> '') then\r\n    begin\r\n      el := TJSHTMLElement(document.getElementById(FFormElement));\r\n      if Assigned(el) then\r\n      begin\r\n        dr := el.getBoundingClientRect;\r\n        Result := Round(dr.left);\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      el := nil;\r\n      if (FormContainer <> '') then\r\n        el := TJSHTMLElement(document.getElementById(FormContainer));\r\n\r\n      if not Assigned(el) then\r\n         el := ElementHandle; \r\n\r\n      Result := Round(el.offsetLeft);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomForm.GetMethodPointers;\r\nbegin\r\n  inherited;\r\n\r\n  if FLoadedPtr = nil then\r\n  begin\r\n    FLoadedPtr := @HandleLoaded;\r\n    FDOMContentLoadedPtr := @HandleDOMContentLoaded;\r\n    FUnloadPtr := @HandleUnLoad;\r\n    FBeforeUnloadPtr := @HandleBeforeUnload;\r\n    FResizePtr := @HandleResize;\r\n    FScrollPtr := @HandleScroll;\r\n    FDocMouseUpPtr := @HandleDocMouseUp;\r\n    FDocMouseMovePtr := @HandleDocMouseMove;\r\n    FTitleDownPtr := @HandleTitleDown;\r\n    FDoClickPtr := @HandleDoClick;\r\n    FKeyDownPtr := @HandleKeyDown;\r\n    FOrientationChangePtr := @HandleOrientationChange;\r\n    FHashChangePtr := @HandleHashChange;\r\n  end;\r\nend;\r\n\r\nfunction TCustomForm.GetTop: Integer;\r\nvar\r\n  el: TJSHTMLElement;\r\n  dr: TJSDOMRect;\r\nbegin\r\n  if FPopup then\r\n    Result := inherited GetTop\r\n  else\r\n  begin\r\n    if (FFormElement <> '') then\r\n    begin\r\n      el := TJSHTMLElement(document.getElementById(FFormElement));\r\n      if Assigned(el) then\r\n      begin\r\n        dr := el.getBoundingClientRect;\r\n        Result := Round(dr.top);\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      el := nil;\r\n      if (FormContainer <> '') then\r\n        el := TJSHTMLElement(document.getElementById(FormContainer));\r\n\r\n      if not Assigned(el) then\r\n          el := ElementHandle; \r\n      Result := Round(el.offsetTop);\r\n    end; \r\n  end;\r\nend;\r\n\r\nfunction TCustomForm.GetUniqueComponentName(AComponent: TComponent): string;\r\nvar\r\n  s: string;\r\n  i,j: integer;\r\n  found: boolean;\r\nbegin\r\n  i := 1;\r\n  repeat\r\n    found := false;\r\n\r\n    s := Copy(ClassName,2, Length(ClassName)) + '_' + Copy(AComponent.ClassName, 2, Length(AComponent.ClassName)) + IntToStr(i);\r\n    inc(i);\r\n\r\n    for j := 0 to ComponentCount - 1 do\r\n    begin\r\n      if Components[j].Name = s then\r\n      begin\r\n        found := true;\r\n        break;\r\n      end;\r\n    end;\r\n\r\n  until found = false;\r\n\r\n  Result := s;\r\nend;\r\n\r\nfunction TCustomForm.GetWidth: Integer;\r\nvar\r\n  dr: TJSDOMRect;\r\n  el: TJSHTMLElement;\r\n//  s: string;\r\n//  d: integer;\r\n//  css: TJSCSSStyleDeclaration;\r\nbegin\r\n  if (FFormElement <> '') then\r\n  begin\r\n    el := TJSHTMLElement(document.getElementById(FFormElement));\r\n    if Assigned(el) then\r\n    begin\r\n      dr := el.getBoundingClientRect;\r\n      Result := Round(dr.right - dr.left);\r\n      Exit;\r\n    end\r\n  end;\r\n\r\n  if (ElementHandle = document.body) then\r\n  begin\r\n    {\r\n    css := window.getComputedStyle(ElementHandle);\r\n    s := css.getPropertyValue('margin-left');\r\n    s := Copy(s,1,Length(s) - 2);\r\n    d := StrToInt(s) - 2;\r\n    Result := window.innerWidth - d + 4;\r\n    Result := window.innerWidth;\r\n    }\r\n\r\n    dr := document.documentElement.getBoundingClientRect;\r\n    Result := Round(dr.Width);\r\n\r\n    if Result > window.innerWidth then\r\n      Result := window.innerWidth;\r\n  end\r\n  else\r\n  begin\r\n    if FPopup then\r\n      Result := inherited GetWidth\r\n    else\r\n    begin\r\n\r\n      Result := Round(ElementHandle.offsetWidth);\r\n      if Result = 0 then\r\n      begin\r\n        if FFormContainer <> '' then\r\n          Result := inherited GetWidth\r\n        else\r\n          Result := window.innerWidth;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TCustomForm.HandleBeforeUnload(Event: TEventListenerEvent): boolean;\r\nvar\r\n  msg: string;\r\nbegin\r\n  msg := '';\r\n  if Assigned(OnBeforeUnload) then\r\n    OnBeforeUnload(Self,msg);\r\n\r\n    if msg <> '' then\r\n    begin\r\n      asm\r\n        Event.returnValue = msg;\r\n        return msg;\r\n      end;\r\n    end;\r\n\r\n  Result := true;\r\nend;\r\n\r\nfunction TCustomForm.HandleCloseClick(Event: TEventListenerEvent): boolean;\r\nvar\r\n  CanClose: boolean;\r\n\r\nbegin\r\n  CanClose := true;\r\n\r\n  if Assigned(OnCloseQuery) then\r\n   OnCloseQuery(self, CanClose);\r\n\r\n  if CanClose then\r\n    Close;\r\n\r\n  Result := true;\r\nend;\r\n\r\nfunction TCustomForm.HandleDoClick(Event: TJSMouseEvent): Boolean;\r\nbegin\r\n  Event.stopPropagation;\r\n\r\n  if FPopupClose = pcOnDeactivate then\r\n    Close;\r\n\r\n  Result := True;\r\nend;\r\n\r\nfunction TCustomForm.HandleDocMouseMove(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  deltax,deltay: double;\r\n  el: TJSHTMLElement;\r\n  l,t: integer;\r\nbegin\r\n  if FDown and Assigned(Container) then\r\n  begin\r\n    deltax := Event.clientX - FMdx;\r\n    deltay := Event.clientY - FMdy;\r\n\r\n    if FHasCaption and (FormFileName <> '') then\r\n      el := TJSHTMLElement(Container.parentNode)\r\n    else\r\n      el := TJSHTMLElement(Container);\r\n\r\n    el.style.setProperty('transform','');\r\n    el.style.setProperty('position','absolute');\r\n\r\n    l := round(FDlgX + deltax);\r\n    t := round(FDlgY + deltay);\r\n\r\n    el.style.setProperty('left', inttostr(l)+'px');\r\n    el.style.setProperty('top', inttostr(t)+'px');\r\n\r\n    FLeft := l;\r\n    FTop := t;\r\n\r\n//    el := TJSHTMLElement(FCancel);\r\n//    el.style.setProperty('position', 'absolute');\r\n//    el.style.setProperty('top', '0');\r\n//    el.style.setProperty('right', '0');\r\n  end;\r\n\r\n  Result := true;\r\nend;\r\n\r\nfunction TCustomForm.HandleDocMouseUp(Event: TJSMouseEvent): Boolean;\r\nbegin\r\n  if FDown then\r\n  begin\r\n    FCaptured := false;\r\n    FDown := false;\r\n    document.body.removeEventListener('mousemove', FDocMouseMovePtr);\r\n    document.body.removeEventListener('mouseup', FDocMouseUpPtr);\r\n    if Assigned(FMoveSpan) then\r\n      document.body.removeChild(FMoveSpan);\r\n\r\n    EventStopPropagation :=   EventStopPropagation + [eeMouseMove, eeMouseUp];\r\n\r\n    FMoveSpan := nil;\r\n  end;\r\n  Result := true;\r\nend;\r\n\r\nfunction TCustomForm.HandleDOMContentLoaded(\r\n  Event: TEventListenerEvent): boolean;\r\nbegin\r\n  if Assigned(OnDOMContentLoaded) then\r\n    OnDOMContentLoaded(Self);\r\n  Result := true;\r\nend;\r\n\r\nprocedure TCustomForm.HandleDoResize;\r\nvar\r\n  dr: TJSDOMRect;\r\n  neww,newh: integer;\r\nbegin\r\n  dr := Container.getBoundingClientRect;\r\n\r\n  neww := Round(dr.Right - dr.Left);\r\n  newh := Round(dr.Bottom - dr.Top);\r\n\r\n  if (neww <> FOrigWidth) or (newh <> FOrigHeight) then\r\n  begin\r\n    Width := neww;\r\n    Height := newh;\r\n\r\n    dr := Container.getBoundingClientRect;\r\n    FOrigWidth := Round(dr.Right - dr.Left);\r\n    FOrigHeight := Round(dr.Bottom - dr.Top);\r\n\r\n    AlignControl(Self);\r\n  end;\r\nend;\r\n\r\n\r\nfunction TCustomForm.HandleHashChange(Event: TEventListenerEvent): boolean;\r\nvar\r\n  oldURL,newURL,newHash: string;\r\n  pc: TPersistentClass;\r\n  newform: TForm;\r\nbegin\r\n  asm\r\n    oldURL = Event.oldURL;\r\n    newURL = Event.newURL;\r\n  end;\r\n\r\n  if Assigned(OnHashChange) then\r\n  begin\r\n    OnHashChange(Self, oldURL, newURL);\r\n  end;\r\n\r\n  if Application.FRouting then\r\n  begin\r\n    NewHash := copy(newURL, pos('#', newURL) + 1, Length(newURL));\r\n\r\n    pc := GetClass('T' + Name);\r\n\r\n    if Assigned(pc) and (LastHash <> NewHash) then\r\n    begin\r\n      if (pos('#' + Name + '_', oldURL + '_') <> 0) and\r\n         (pos('#' + Name + '_', newURL + '_') = 0) then\r\n      begin\r\n        Close;\r\n      end;\r\n\r\n      if not Popup then\r\n      begin\r\n        pc := GetClass('T' + NewHash);\r\n        if Assigned(pc) then\r\n        begin\r\n          Application.AutoCreateForm(TFormClass(pc), newform);\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  Result := true;\r\nend;\r\n\r\nfunction TCustomForm.HandleKeyDown(Event: TJSKeyBoardEvent): Boolean;\r\nvar\r\n  k: Word;\r\nbegin\r\n  k := GetKeyCode(Event.Key);\r\n  if not Assigned(k) then\r\n    Exit;\r\n\r\n  if (k = VK_ESCAPE) and not (csDesigning in ComponentState) and Popup then\r\n  begin\r\n    Close;\r\n  end;\r\n  Result := true;\r\nend;\r\n\r\nfunction TCustomForm.HandleTitleDown(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  r: TJSDOMRect;\r\nbegin\r\n  Event.StopPropagation;\r\n  Event.PreventDefault;\r\n\r\n  FPopupClose := pcNever;\r\n\r\n  FMdx := Round(Event.clientX);\r\n  FMdy := Round(Event.clientY);\r\n\r\n  if FHasCaption and (FormFileName <> '') then\r\n    r := TJSHTMLElement(Container.parentNode).getBoundingClientRect()\r\n  else\r\n    r := TJSHTMLElement(Container).getBoundingClientRect();\r\n\r\n  FDlgX := Round(int(r.left));\r\n  FDlgY := Round(int(r.top));\r\n\r\n  FDown := true;\r\n\r\n  if not FCaptured then\r\n  begin\r\n    FCaptured := true;\r\n    FMoveSpan := TJSHTMLElement(document.createElement('SPAN'));\r\n    FMoveSpan.style.setProperty('top', '0');\r\n    FMoveSpan.style.setProperty('left', '0');\r\n    FMoveSpan.style.setProperty('right', '0');\r\n    FMoveSpan.style.setProperty('bottom', '0');\r\n    FMoveSpan.style.setProperty('position', 'absolute');\r\n\r\n    document.body.appendChild(FMoveSpan);\r\n\r\n    EventStopPropagation :=   EventStopPropagation - [eeMouseMove, eeMouseUp];\r\n\r\n    document.body.addEventListener('mousemove', FDocMouseMovePtr);\r\n    document.body.addEventListener('mouseup', FDocMouseUpPtr);\r\n  end;\r\n\r\n  Result := true;\r\nend;\r\n\r\nprocedure TCustomForm.DoClose(var CloseAction: TCloseAction);\r\nbegin\r\n  if Assigned(FModalProc) and (CloseAction <> caNone) then\r\n  begin\r\n    FModalProc(FModalResult);\r\n    FModalProc := nil;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomForm.DoCreate;\r\nbegin\r\n  BeginUpdate;\r\n  LoadDFMValues;\r\n  Loaded;\r\n\r\n  if Assigned(OnCreate) then\r\n    OnCreate(Self);\r\n\r\n  FCreating := false;\r\n\r\n  EndUpdate;\r\n\r\n  UpdateChildren(Self);\r\n\r\n  Realign;\r\n\r\n  DoResize;\r\nend;\r\n\r\nfunction TCustomForm.HandleScroll(Event: TEventListenerEvent): boolean;\r\nbegin\r\n  if Assigned(OnScroll) then\r\n    OnScroll(Self);\r\n  Result := true;\r\nend;\r\n\r\nprocedure TCustomForm.DoAutoFocus;\r\nvar\r\n  i: integer;\r\nbegin\r\n  // Auto focus control on form\r\n  for i := 0 to ControlCount - 1 do\r\n  begin\r\n    if (Controls[i].TabOrder = 0) and (Controls[i].TabStop) then\r\n    begin\r\n      Controls[i].SetFocus;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomForm.DoShow;\r\nbegin\r\n  DoAutoFocus;\r\n  if Assigned(OnShow) and not FShown then\r\n  begin\r\n    FShown := true;\r\n    OnShow(Self);\r\n  end;\r\nend;\r\n\r\nfunction TCustomForm.HandleUnload(Event: TEventListenerEvent): boolean;\r\nbegin\r\n  if Assigned(OnUnload) then\r\n    OnUnload(Self);\r\n  Result := true;\r\nend;\r\n\r\nfunction TCustomForm.FormContainerElement: TJSElement;\r\nbegin\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    if Assigned(FDesignContainer) then\r\n      Result := FDesignContainer\r\n  end;\r\n\r\n  if (FormContainer <> '') then\r\n  begin\r\n    Result := document.getElementById(FormContainer);\r\n    if not Assigned(Result) then\r\n      Result := document.body;\r\n  end\r\n  else\r\n  begin\r\n    Result := document.body;\r\n  end;\r\nend;\r\n\r\nfunction TCustomForm.HandleLoaded(Event: TEventListenerEvent): boolean;\r\nbegin\r\n  Resize;\r\n  InitAnchoring;\r\n  Result := true;\r\nend;\r\n\r\nprocedure TCustomForm.Realign;\r\nvar\r\n  el: TJSHTMLElement;\r\n  dr: TJSDOMRect;\r\n  r: TRect;\r\nbegin\r\n  if (FFormContainer <> '') and (Align <> alNone) then\r\n  begin\r\n    el := TJSHTMLElement( document.getElementById(FFormContainer) );\r\n    if Assigned(el) then\r\n    begin\r\n      dr := el.getBoundingClientRect;\r\n\r\n      if (dr.width = 0) and (dr.height = 0) and (el.style.getPropertyValue('position') = 'absolute') then\r\n      begin\r\n        r := GetHTMLElementAbsoluteRect(el);\r\n      end\r\n      else\r\n      begin\r\n        r := Rect(Round(dr.left), Round(dr.Top), Round(dr.Right), Round(dr.Bottom));\r\n      end;\r\n\r\n      SetBoundsInt(r.Left, r.Top, r.Right - r.Left, r.Bottom - r.Top);\r\n    end;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TCustomForm.DoResize;\r\nvar\r\n  w,h: integer;\r\nbegin\r\n  w := Width;\r\n  h := Height;\r\n\r\n  if (w = FOldWidth) and (h = FOldHeight) then\r\n    Exit;\r\n\r\n  FOldWidth := w;\r\n  FOldHeight := h;\r\n\r\n  if Assigned(OnResize) then\r\n    OnResize(Self);\r\nend;\r\n\r\ndestructor TCustomForm.Destroy;\r\nbegin\r\n  if Visible then\r\n    Close;\r\n\r\n  if Assigned(OnDestroy) then\r\n    OnDestroy(Self);\r\n\r\n  inherited;\r\n\r\n  if Assigned(FLayer) then\r\n  begin\r\n    if FormContainerElement = FLayer.parentNode then\r\n      FormContainerElement.removeChild(FLayer);\r\n    FLayer := nil;\r\n  end;\r\nend;\r\n\r\nconstructor TCustomForm.Create(id: string);\r\nbegin\r\n  FNoHTML := false;\r\n  FCreating := true;\r\n  FFormContainer := id;\r\n  if id = '' then\r\n    inherited Create(cBodyTag)\r\n  else\r\n    inherited Create(id);\r\n\r\n  FFormElement := '';\r\n  FModalResult := mrNone;\r\n  FFormStyle := fsNormal;\r\n  DoCreate;\r\nend;\r\n\r\nconstructor TCustomForm.Create(id: string; var AReference);\r\nbegin\r\n  FCreating := true;\r\n  FFormContainer := id;\r\n  inherited Create(id);\r\n  AReference := Self;\r\n  FFormElement := '';\r\n  FModalResult := mrNone;\r\n  FFormStyle := fsNormal;\r\n  DoCreate;\r\nend;\r\n\r\nprocedure TCustomForm.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  AllowTouch := True;\r\n  FModalResult := mrNone;\r\n  FFormStyle := fsNormal;\r\n  FBorder := fbSizeable;\r\n  FShadow := true;\r\n  FShowClose := true;\r\n  FTimerID := -1;\r\n  FCaptionElement := nil;\r\n  FColor := clWhite;\r\n  TJSEventTarget(window).addEventListener('load', FLoadedPtr);\r\nend;\r\n\r\nconstructor TCustomForm.CreateNew(AOwner: TComponent; Dummy: Integer = 0);\r\nbegin\r\n  Create(AOwner);\r\nend;\r\n\r\nconstructor TCustomForm.CreateDialog(ACaption: string);\r\nvar\r\n  AFileName: string;\r\nbegin\r\n  FCreating := true;\r\n  AFileName := GetHTMLFileName;\r\n  inherited Create(cBodyTag);\r\n  Caption := ACaption;\r\n  Popup := true;\r\n  Border := fbDialog;\r\n  FormFileName := AFileName;\r\n  Application.LoadForm(Self, AFileName);\r\nend;\r\n\r\nconstructor TCustomForm.CreateDialogNew(ACaption: string);\r\nvar\r\n  AFileName: string;\r\nbegin\r\n  FNoHTML := true;\r\n  FCreating := true;\r\n  AFileName := GetHTMLFileName;\r\n  inherited Create(cBodyTag);\r\n  Caption := ACaption;\r\n  Popup := true;\r\n  Border := fbDialog;\r\n  FormFileName := AFileName;\r\nend;\r\n\r\nconstructor TCustomForm.CreateNew;\r\nvar\r\n  AFileName: string;\r\nbegin\r\n  FCreating := true;\r\n  AFileName := GetHTMLFileName;\r\n  inherited Create(cBodyTag);\r\n  FormFileName := AFileName;\r\n  if FormFileName <> '' then\r\n    Application.LoadForm(Self, AFileName);\r\nend;\r\n\r\nconstructor TCustomForm.CreateNew(AFileName: string);\r\nbegin\r\n  FCreating := true;\r\n  inherited Create(cBodyTag);\r\n  FormFileName := AFileName;\r\n  if FormFileName <> '' then\r\n    Application.LoadForm(Self, AFileName);\r\nend;\r\n\r\nconstructor TCustomForm.CreateNew(AProc: TFormCreatedProc);\r\nbegin\r\n  FCreatedProc := AProc;\r\n  CreateNew;\r\nend;\r\n\r\nconstructor TCustomForm.CreateNew(AElementID: string; AProc: TFormCreatedProc);\r\nbegin\r\n  CreateNew(AElementID, '', AProc);\r\nend;\r\n\r\nconstructor TCustomForm.CreateNew(AElementID, AFileName: string; AProc: TFormCreatedProc);\r\nbegin\r\n  FCreating := true;\r\n  FFormContainer := AElementID;\r\n  inherited Create(AElementID);\r\n  FCreatedProc := AProc;\r\n  FFormElement := AElementID;\r\n  if AFileName = '' then\r\n    AFileName := GetHTMLFileName;\r\n\r\n  if AFileName <> '' then\r\n    Application.LoadForm(Self, AFileName)\r\n  else\r\n    if Assigned(FCreatedProc) then\r\n      FCreatedProc(Self);\r\nend;\r\n\r\n{ TApplication }\r\n\r\nfunction TApplication.CreateNewForm(AInstanceClass: TFormClass): TCustomForm;\r\nbegin\r\n  if not Assigned(VSIDE) then\r\n    Result := AInstanceClass.Create(cBodyTag)\r\n  else\r\n    Result := AInstanceClass.Create('');\r\nend;\r\n\r\nfunction TApplication.CreateNewForm(AInstanceClass: TFormClass; AElementID: string): TCustomForm;\r\nvar\r\n  el: TJSHTMLElement;\r\n  AForm: TForm;\r\nbegin\r\n  el := TJSHTMLElement(document.getElementById(AElementID));\r\n\r\n  AForm := AInstanceClass.Create(AElementID);\r\n  AForm.FDesignContainer := el;\r\n  AForm.FormContainer := AElementID;\r\n  AForm.FFormElement := AElementID;\r\n  AForm.CreateControl;\r\n  AForm.Container := el;\r\n  AForm.Init;\r\n\r\n  Result := AForm;\r\nend;\r\n\r\nprocedure TApplication.LoadForm(AForm: TCustomForm; AFormFile: string; FormLoaded: TFormCreatedProc);\r\nbegin\r\n  FCreatedProc := FormLoaded;\r\n  LoadForm(AForm, AFormFile);\r\nend;\r\n\r\nprocedure TApplication.LoadForm(AForm: TCustomForm; AFormFile: string);\r\nbegin\r\n  AForm.FPrevActiveForm := FActiveForm;\r\n\r\n  FActiveForm := AForm;\r\n  FLoadForm := AForm;\r\n\r\n  if FMainForm = nil then\r\n    FMainForm := AForm;\r\n\r\n  FLastReq := TJSXMLHttpRequest.new;\r\n  FLastReq.addEventListener('load', @DoFormLoad);\r\n  FLastReq.addEventListener('abort', @DoFormAbort);\r\n  FLastReq.open('GET', AFormFile);\r\n  FLastReq.send;\r\nend;\r\n\r\nprocedure TApplication.Navigate(const AURL: string; ATarget: TNavigationTarget );\r\nbegin\r\n  if ATarget = ntBlank then\r\n    window.open(AURL, '_blank')\r\n  else\r\n    window.location.href := AURL;\r\nend;\r\n\r\nfunction TApplication.NeedsFormRouting: Boolean;\r\nvar\r\n  s: string;\r\nbegin\r\n  Result := HasQueryParam('form', s);\r\n  if Result then\r\n    RouteForm(s);\r\nend;\r\n\r\nfunction TApplication.ObjectURL(AFile: TJSHTMLFile): string;\r\nvar\r\n  res: string;\r\nbegin\r\n  asm\r\n    res = URL.createObjectURL(AFile);\r\n  end;\r\n  Result := res;\r\nend;\r\n\r\nprocedure TApplication.CreateFormDirect(AInstanceClass: TFormClass; var AReference);\r\nbegin\r\n  CreateForm(AInstanceClass, FAppContainer, AReference, nil, false);\r\nend;\r\n\r\nprocedure TApplication.CreateFormDirect(AInstanceClass: TFormClass; AElementID: string; var AReference);\r\nbegin\r\n  CreateForm(AInstanceClass, AElementID, AReference, nil, false);\r\nend;\r\n\r\nprocedure TApplication.CreateFormDirect(AInstanceClass: TDataModuleClass; var AReference);\r\nbegin\r\n  CreateForm(AInstanceClass, AReference);\r\nend;\r\n\r\nprocedure TApplication.CreateFormDirect(AInstanceClass: TFrameClass; var AReference);\r\nbegin\r\n  CreateForm(AInstanceClass, AReference);\r\nend;\r\n\r\nprocedure TApplication.CreateForm(AInstanceClass: TFormClass; AElementID: string; var AReference);\r\nbegin\r\n  CreateForm(AInstanceClass, AElementID, AReference, nil);\r\nend;\r\n\r\nprocedure TApplication.CreateForm(AInstanceClass: TFormClass; AElement: TJSHTMLElement; var AReference); overload;\r\nbegin\r\n  CreateForm(AInstanceClass, AElement.ID, AReference, nil);\r\nend;\r\n\r\nprocedure TApplication.CreateForm(AInstanceClass: TFormClass; AElementID: string; var AReference; AProc: TFormCreatedProc);\r\nbegin\r\n  CreateForm(AInstanceClass, AElementID, AReference, AProc, true);\r\nend;\r\n\r\nprocedure TApplication.CreateForm(AInstanceClass: TFormClass; AElementID: string; var AReference; AProc: TFormCreatedProc; LoadHTML: boolean);\r\nvar\r\n  LFileName: string;\r\n\r\n  function DoStatusCreate(Event: TEventListenerEvent): boolean;\r\n  var\r\n    LElem: TJSHTMLElement;\r\n    LForm: TForm;\r\n    LResponse: string;\r\n    LIsBody: boolean;\r\n    LisLoaded: boolean;\r\n  begin\r\n    LisLoaded := Assigned(Event);\r\n    // HTML of the form being loaded\r\n    if LisLoaded then\r\n    begin\r\n      asm\r\n        LResponse = Event.target.responseText;\r\n      end;\r\n\r\n      LIsBody := LowerCase(AElementID) = cBodyTag;\r\n\r\n      if LIsBody then\r\n        LElem := TJSHTMLElement(document.body)\r\n      else\r\n        LElem := TJSHTMLElement(document.getElementById(AElementID));\r\n\r\n      LElem.innerHTML := LResponse;\r\n    end\r\n    else\r\n    begin\r\n      LElem := TJSHTMLElement(document.body);\r\n    end;\r\n\r\n    LForm := AInstanceClass.Create(AElementID, AReference);\r\n    LForm.FormFileName := LFileName;\r\n\r\n    if LForm.FormContainer = '' then\r\n      LForm.FormContainer := AElementID;\r\n\r\n    if not LIsBody then\r\n    begin\r\n      LForm.FFormElement := AElementID;\r\n      LForm.Container := LElem;\r\n    end;\r\n\r\n    LForm.CreateControl;\r\n    LForm.Init;\r\n\r\n    LForm.SetColorScheme(Application.ColorScheme);\r\n\r\n    // set previous active form\r\n    LForm.FPrevActiveForm := FActiveForm;\r\n\r\n    FActiveForm := LForm;\r\n\r\n    if FMainForm = nil then\r\n      FMainForm := LForm;\r\n\r\n    if Assigned(AProc) then\r\n      AProc(LForm);\r\n\r\n    Result := true;\r\n\r\n    if LisLoaded then\r\n      ActivateChildScripts(LElem);\r\n\r\n    FActiveForm.DoShow;\r\n\r\n    // force resize\r\n    FActiveForm.Resize;\r\n  end;\r\n\r\nbegin\r\n  if FIsRedirect then\r\n    Exit;\r\n\r\n  if FAppInitializing then\r\n  begin\r\n    if FCanCreateForm then\r\n      FCanCreateForm := False\r\n    else\r\n      Exit;\r\n  end;\r\n\r\n  LFileName := AInstanceClass.GetHTMLFileName;\r\n  if (LFileName <> '') and LoadHTML then\r\n  begin\r\n    FLastReq := TJSXMLHttpRequest.new;\r\n    FLastReq.addEventListener('load', @DoStatusCreate);\r\n    FLastReq.open('GET', lFileName);\r\n    {$IFDEF DEBUG}\r\n    FLastReq.setRequestHeader('Cache-Control', 'no-cache');\r\n    {$ENDIF}\r\n    FLastReq.send;\r\n  end\r\n  else\r\n  begin\r\n    DoStatusCreate(nil);\r\n  end;\r\nend;\r\n\r\nprocedure TApplication.ActivateChildScripts(AElement: TJSHTMLElement);\r\nbegin\r\n  // activate possible child scripts\r\n  asm\r\n    function nodeScriptReplace(node) {\r\n            if ( nodeScriptIs(node) === true ) {\r\n                    node.parentNode.replaceChild( nodeScriptClone(node) , node );\r\n            }\r\n            else {\r\n                    var i        = 0;\r\n                    var children = node.childNodes;\r\n                    while ( i < children.length ) {\r\n                            nodeScriptReplace( children[i++] );\r\n                    }\r\n            }\r\n\r\n            return node;\r\n    }\r\n    function nodeScriptIs(node) {\r\n            return node.tagName === 'SCRIPT';\r\n    }\r\n    function nodeScriptClone(node){\r\n            var script  = document.createElement(\"script\");\r\n            script.async = false;\r\n            script.text = node.innerHTML;\r\n            for( var i = node.attributes.length-1; i >= 0; i-- ) {\r\n                    script.setAttribute( node.attributes[i].name, node.attributes[i].value );\r\n            }\r\n            return script;\r\n    }\r\n    nodeScriptReplace(AElement);\r\n  end;\r\nend;\r\n\r\nprocedure TApplication.ReloadForm;\r\nvar\r\n  lFileName: string;\r\n\r\n  function DoStatusCreate(Event: TEventListenerEvent): boolean;\r\n  var\r\n    i: integer;\r\n    ctl: TControl;\r\n    s: string;\r\n    sl: TStringList;\r\n    response: string;\r\n\r\n  begin\r\n    asm\r\n      response = Event.target.responseText;\r\n    end;\r\n\r\n    sl := TStringList.Create;\r\n\r\n    // persist control state\r\n    for i := FActiveForm.ControlCount - 1 downto 0 do\r\n    begin\r\n      ctl := FActiveForm.Controls[i];\r\n      s := ctl.SaveState;\r\n      ctl.ElementHandle.Id := ctl.Name;\r\n      //s := ctl.Name +'='+ctl.ElementHandle.outerHTML;\r\n      s := ctl.Name +'='+ s;\r\n      sl.Add(s);\r\n    end;\r\n\r\n    for i := FActiveForm.ControlCount - 1 downto 0 do\r\n    begin\r\n      ctl := FActiveForm.Controls[i];\r\n      FActiveForm.RemoveComponent(ctl);\r\n      ctl.Free;\r\n    end;\r\n\r\n    FActiveForm.ClearControls;\r\n    FActiveForm.UnbindEvents;\r\n\r\n    // HTML of the form being loaded\r\n    document.body.innerHTML := response;\r\n\r\n    FActiveForm.CreateControl;\r\n    FActiveForm.DoCreate;\r\n    FActiveForm.Init;\r\n\r\n    // persist control state\r\n    for i := FActiveForm.ControlCount - 1 downto 0 do\r\n    begin\r\n      ctl := FActiveForm.Controls[i];  // get controls back after form init\r\n      // get HTML saved for control\r\n      s := sl.Values[ctl.Name];\r\n\r\n      if s <> '' then\r\n        ctl.LoadState(s);\r\n\r\n      //ctl.ElementHandle.outerHTML := s;\r\n      //ctl.Container := document.getElementById(ctl.Name);\r\n      //ctl.BindEvents;\r\n    end;\r\n\r\n    sl.Free;\r\n\r\n    FActiveForm.DoShow;\r\n\r\n    Result := true;\r\n  end;\r\n\r\nbegin\r\n  lFileName := FActiveForm.GetHTMLFileName;\r\n\r\n  FLastReq := TJSXMLHttpRequest.new;\r\n  FLastReq.addEventListener('load', @DoStatusCreate);\r\n  FLastReq.open('GET', lFileName);\r\n  {$IFDEF DEBUG}\r\n  FLastReq.setRequestHeader('Cache-Control', 'no-cache');\r\n  {$ENDIF}\r\n  FLastReq.send;\r\nend;\r\n\r\nfunction TApplication.HasCSS(href:string): boolean;\r\nvar\r\n  els: TJSNodeList;\r\n  i: integer;\r\n  s: string;\r\nbegin\r\n  Result := false;\r\n  els := document.querySelectorAll('head > link');\r\n  for i := 0 to els.length - 1 do\r\n  begin\r\n    s := TJSHTMLLinkElement(els[i]).href;\r\n\r\n    if CompareText(s, href) = 0 then\r\n    begin\r\n      Result := true;\r\n      break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TApplication.RemoveCSS(id: string);\r\nvar\r\n  styleElement: TJSElement;\r\nbegin\r\n  styleElement := document.getElementById(id);\r\n  if Assigned(styleElement) then\r\n  begin\r\n    styleElement.parentNode.removeChild(styleElement);\r\n  end;\r\nend;\r\n\r\nprocedure TApplication.RouteForm(AParameter: string);\r\nvar\r\n  frm: TCustomForm;\r\n  fc: TFormClass;\r\nbegin\r\n  fc := TFormClass(GetClass(AParameter));\r\n  Application.CreateForm(fc, frm);\r\nend;\r\n\r\nprocedure TApplication.GoBack;\r\nbegin\r\n  window.history.back();\r\nend;\r\n\r\nprocedure TApplication.AutoCreateForm(AInstanceClass: TFormClass; var AReference);\r\nbegin\r\n  if Assigned(OnAutoCreateForm) then\r\n    OnAutoCreateForm(Self, AInstanceClass, AReference)\r\n  else\r\n    CreateForm(AInstanceClass, AReference);\r\nend;\r\n\r\nprocedure TApplication.CreateForm(AInstanceClass: TFormClass; var AReference);\r\nbegin\r\n  CreateForm(AInstanceClass, FAppContainer, AReference, nil);\r\nend;\r\n\r\nprocedure TApplication.CreateForm(AInstanceClass: TDataModuleClass; var AReference);\r\nvar\r\n  lModule: TDataModule;\r\nbegin\r\n  lModule := AInstanceClass.Create(Self);\r\n  AReference := lModule;\r\nend;\r\n\r\nprocedure TApplication.CreateForm(AInstanceClass: TFrameClass; var AReference);\r\nconst\r\n  cHTMLCode = '<html><head><meta http-equiv=\"Content-type\" content=\"text/html; ' +\r\n    'charset=utf-8\" /><title>TMS Web Project</title><style></style></head>' +\r\n    '<body></body></html>';\r\nvar\r\n  lFrame: TFrame;\r\n  lForm: TFramePreviewForm;\r\nbegin\r\n  lForm := TFramePreviewForm.Create(Application);\r\n  lFrame := AInstanceClass.Create(lForm);\r\n  lForm.FFrame := lFrame;\r\n  lForm.Popup := False;\r\n  AReference := lFrame;\r\n\r\n  Application.FActiveForm := lForm;\r\n  Application.CreateNewForm(lForm, cHTMLCode);\r\nend;\r\n\r\nprocedure TApplication.CreateNewForm(AForm: TCustomForm; HTML: string);\r\nvar\r\n  eh,op,span,childspan,formspan: TJSHTMLElement;\r\n  l,t,w,h: integer;\r\n  LCreatedProc: TFormCreatedProc;\r\n  LCaptionDiv: TJSHTMLElement;\r\n  LCaptionHeight: integer;\r\n  ro: TJSOBject;\r\nbegin\r\n  if FMainForm = nil then\r\n    FMainForm := AForm;\r\n\r\n  span := nil;\r\n  formspan := nil;\r\n  LCaptionHeight := 0;\r\n\r\n  // form hosted in designated container\r\n  if not AForm.Popup and (AForm.FFormElement <> '') then\r\n  begin\r\n    AForm.FLayer := nil;\r\n    eh := TJSHTMLElement(document.getElementById(AForm.FFormElement));\r\n    if Assigned(eh) then\r\n    begin\r\n      eh.innerHTML := HTML;\r\n      if (AForm.ElementClassname = '') and (AForm.CSSLibrary = cssNone) then\r\n        eh.style.setProperty(CSSBackground,ColorToHTML(AForm.Color));\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    AForm.ClearControls;\r\n    // transparent mouse blocking layer\r\n    AForm.FLayer := AForm.CreateLayer;\r\n    document.body.appendChild(AForm.FLayer);\r\n\r\n    eh := TJSHTMLElement(AForm.FLayer);\r\n\r\n    // insert opacity layer\r\n    if AForm.Popup and (AForm.PopupOpacity < 1) then\r\n    begin\r\n      op := AForm.CreateLayer;\r\n      op.style.setProperty(CSSBackground, 'black');\r\n      op.style.setProperty('opacity', DoubleToHTML(AForm.PopupOpacity));\r\n      op.style.setProperty(CSSZIndex, Application.MaxZIndexStr);\r\n      eh.appendChild(op);\r\n    end;\r\n\r\n    Application.ChangeMaxZIndex(+1);\r\n\r\n    span := TJSHTMLElement(document.createElement('DIV'));\r\n\r\n    // highest z-index but below modal dialog z-index\r\n    span.style.setProperty(CSSZIndex, Application.MaxZIndexStr);\r\n    AForm.FPopupElement := span;\r\n\r\n    if (AForm.Border = fbDialogSizeable) then\r\n    begin\r\n      span.style.setProperty('resize','both');\r\n      span.style.setProperty('overflow','auto');\r\n\r\n      ro := nil;\r\n      asm\r\n        try\r\n        {\r\n        var frm = AForm;\r\n        ro = new ResizeObserver( function(entries)  {\r\n           window.requestAnimationFrame(() => {\r\n              if (!Array.isArray(entries) || !entries.length) {\r\n                return;\r\n              }\r\n           entries.forEach( function(entry) {\r\n             frm.HandleObserver();\r\n             });\r\n             } );\r\n        });\r\n          // Observe the scrollingElement for when the window gets resized\r\n          ro.observe(span);\r\n        }\r\n        catch(err)\r\n        {\r\n          span.style.removeProperty('resize');\r\n          span.style.removeProperty('overflow');\r\n        }\r\n      end;\r\n\r\n      AForm.FResizeObserver := ro;\r\n    end;\r\n\r\n    if AForm.ElementClassName <> '' then\r\n      span.setAttribute('class', AForm.ElementClassName);\r\n\r\n    if AForm.Shadow and AForm.Popup then\r\n      span.style.setProperty('box-shadow','3px 3px 3px silver');\r\n\r\n    eh.appendChild(span);\r\n\r\n    AForm.GetMethodPointers;\r\n\r\n    if (AForm.Border in [fbDialog, fbDialogSizeable]) then\r\n    begin\r\n      LCaptionDiv := AForm.CreateCaption;\r\n      span.appendChild(LCaptionDiv);\r\n      childspan := TJSHTMLElement(document.createElement('DIV'));\r\n      childspan.style.setProperty('position','absolute');\r\n      childspan.style.setProperty('width','100%');\r\n//      childspan.style.setProperty('height','100%');\r\n      childspan['id']:= 'childspan';\r\n      span.appendChild(childspan);\r\n      formspan := childspan;\r\n      LCaptionHeight := Application.FormCaptionHeight;\r\n    end\r\n    else\r\n    begin\r\n      formspan := span;\r\n    end;\r\n\r\n    formspan.innerHTML := HTML;\r\n    AForm.Container := formspan;\r\n  end;\r\n\r\n  AForm.Init;\r\n  AForm.LoadDFMValues;\r\n\r\n  if (AForm.Border in [fbDialog, fbDialogSizeable]) and (AForm.ElementCaptionClassName <> '') then\r\n  begin\r\n    LCaptionDiv.ClassList.Add(AForm.ElementCaptionClassName);\r\n    LCaptionDiv.style.removeProperty('background-color');\r\n    LCaptionDiv.style.removeProperty('color');\r\n  end;\r\n\r\n  if Assigned(AForm.FLayer) then\r\n  begin\r\n    // ensure full screen background is white or adopts the form elementclassname when it is not popup\r\n    if not AForm.Popup then\r\n    begin\r\n      if (AForm.ElementClassName = '') then\r\n      begin\r\n        if AForm.Color <> clNone then\r\n          eh.style.setProperty(CSSBackground, ColorToHTML(AForm.Color))\r\n        else\r\n          eh.style.setProperty(CSSBackground, 'white')\r\n      end\r\n      else\r\n        eh.setAttribute('class',AForm.ElementClassName);\r\n\r\n      if (AForm.CSSLibrary = cssBootstrap) and (AForm.ElementClassName = '') then\r\n      begin\r\n        eh.setAttribute('class', 'card');\r\n        eh.style.removeProperty('background-color');\r\n        eh.style.setProperty('display','block');\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  // position popup form centered\r\n  if Assigned(span) and (AForm.FormContainer = '') and AForm.Popup and (AForm.Position = poScreenCenter) then\r\n  begin\r\n    span.style.setProperty('position', 'absolute');\r\n\r\n    l := max(0,Round((WinWidth - AForm.Width)/2)) + window.scrollX;\r\n    t := max(0,Round((WinHeight - AForm.Height)/2)) + window.scrollY;\r\n\r\n    w := AForm.Width;\r\n    h := AForm.ClientHeight + LCaptionHeight;\r\n\r\n    AForm.FTop := t;\r\n    AForm.FLeft := l;\r\n    AForm.SetWidthInt(w);\r\n    AForm.SetHeightInt(h);\r\n\r\n    if (AForm.ElementClassName = '') and (AForm.CSSLibrary = cssNone) then\r\n    begin\r\n      span.style.setProperty(CSSBackground,ColorToHTML(AForm.Color));\r\n      span.style.setProperty('border','1px Black solid');\r\n    end;\r\n\r\n    span.style.setProperty('top',IntTostr(t)+'px');\r\n    span.style.setProperty('left',IntToStr(l)+'px');\r\n    span.style.setProperty('width',IntToStr(w)+'px');\r\n    span.style.setProperty('height',IntToStr(h)+'px');\r\n  end;\r\n\r\n  if Assigned(formspan) then\r\n    ActivateChildScripts(formspan);\r\n\r\n  if Assigned(AForm.OnCreate) then\r\n    AForm.OnCreate(AForm);\r\n\r\n  if Assigned(AForm.FCreatedProc) then\r\n  begin\r\n    LCreatedProc := AForm.FCreatedProc;\r\n    AForm.FCreatedProc := nil;\r\n    LCreatedProc(AForm);\r\n  end;\r\n\r\n  AForm.Loaded;\r\n  AForm.InitAnchoring;\r\n  AForm.UpdateChildAnchoring;\r\n  AForm.FCreating := false;\r\n  AForm.UpdateElement;\r\n\r\n  if not AForm.EventsBound then\r\n    AForm.BindEvents;\r\n\r\n  AForm.Resize;\r\n  AForm.DoShow;\r\nend;\r\n\r\nfunction TApplication.DoFormLoad(Event: TEventListenerEvent): boolean;\r\nvar\r\n  LResponse: string;\r\nbegin\r\n  asm\r\n    LResponse = Event.target.responseText;\r\n  end;\r\n\r\n  CreateNewForm(FLoadForm, LResponse);\r\n\r\n  if Assigned(FCreatedProc) then\r\n  begin\r\n    FCreatedProc(Self);\r\n    FCreatedProc := nil;\r\n  end;\r\n\r\n  Result := true;\r\nend;\r\n\r\nfunction TApplication.DoHandleExit(Event: TEventListenerEvent): boolean;\r\nbegin\r\n  Result := true;\r\n  if Assigned(OnExit) then\r\n    OnExit(Self);\r\nend;\r\n\r\nfunction TApplication.DoHandleError(Event: TJSErrorEvent): boolean;\r\nvar\r\n  err: TApplicationError;\r\n  el,sp,x: TJSHTMLElement;\r\n  msg,pmsg,pstack,s: string;\r\n  isError, isPromise: boolean;\r\n  jserror: JSValue;\r\n  ex: Exception;\r\nbegin\r\n  isError := true;\r\n  isPromise := false;\r\n  jserror := nil;\r\n\r\n  err.AFile := '';\r\n  err.ALineNumber := 0;\r\n  err.AColNumber := 0;\r\n  err.AError := nil;\r\n\r\n  asm\r\n    if (Event.message == undefined) {\r\n      isError = false;\r\n      if (Event instanceof PromiseRejectionEvent)\r\n      {\r\n        isError = true;\r\n        isPromise = true;\r\n        pmsg = Event.reason.FMessage;\r\n        pstack = Event.reason.FStack;\r\n        jserror = Event.reason;\r\n      }\r\n    }\r\n  end;\r\n\r\n  // ignore this error\r\n  if not isPromise and (Event.message = 'ResizeObserver loop limit exceeded') then\r\n    Exit;\r\n\r\n  // ignore this error\r\n  if not isPromise and (Event.message = 'ResizeObserver loop completed with undelivered notifications.') then\r\n    Exit;\r\n\r\n  if not isError then\r\n  begin\r\n    err.AMessage := 'Undefined JavaScript exception';\r\n    err.AFile := '';\r\n    err.ALineNumber := 0;\r\n    err.AColNumber := 0;\r\n    err.AError := nil;\r\n\r\n    if Assigned(OnError) then\r\n      OnError(Self, err, Result);\r\n    Exit;\r\n  end;\r\n\r\n  if isPromise then\r\n  begin\r\n    err.AMessage := pmsg;\r\n    err.AStack := pstack;\r\n    err.AError := TJSObject(jserror);\r\n  end\r\n  else\r\n  begin\r\n    err.AMessage := Event.message;\r\n    err.AFile := Event.filename;\r\n    err.ALineNumber := Event.lineno;\r\n    err.AColNumber := Event.colno;\r\n    err.AError := Event.error;\r\n    err.AStack := '';\r\n  end;\r\n\r\n  s := '';\r\n\r\n  // try to get stack & RTL exception message\r\n  if Assigned(Event.error) then\r\n  begin\r\n    asm\r\n      if (Event.error.stack) {\r\n        err.AStack = Event.error.stack;\r\n      }\r\n      if (Event.error.fMessage) {\r\n        err.AMessage = Event.error.fMessage;\r\n      }\r\n    end;\r\n\r\n    asm\r\n      function objToString (obj) {\r\n      var str = '';\r\n      for (var p in obj) {\r\n          if (obj.hasOwnProperty(p)) {\r\n              str += p + '::' + obj[p] + '\\n';\r\n          }\r\n      }\r\n      return str;\r\n      }\r\n\r\n      // detect if it was an RTL exception\r\n      if (Event.error.hasOwnProperty('FJSError'))\r\n      {\r\n        jserror = Event.error['FJSError'];\r\n      }\r\n\r\n      s = objToString(Event.error);\r\n    end;\r\n  end;\r\n\r\n  // it is an RTL exception, allow to handle by application object\r\n  if Assigned(jserror) then\r\n  begin\r\n    asm\r\n      ex = err.AError; //Event.error;\r\n    end;\r\n    if Assigned(OnException) then\r\n      OnException(Self, ex);\r\n  end;\r\n\r\n  Result := false;\r\n\r\n  msg := 'ERROR<br>' + err.AMessage + ' | ' + s + err.AStack + '<BR> at '+err.AFile + ' [' +inttostr(err.ALineNumber)+':'+inttostr(err.AColNumber)+']';\r\n\r\n  case ErrorType of\r\n  aeFooter:\r\n    begin\r\n      el := TJSHTMLElement(document.getElementById('tmserrormessage'));\r\n\r\n      if Assigned(el) then\r\n      begin\r\n        (el.firstChild as TJSHTMLElement).innerHTML := msg;\r\n      end\r\n      else\r\n      begin\r\n        el := TJSHTMLElement(document.createElement('DIV'));\r\n        el.setAttribute('id','tmserrormessage');\r\n        el.style.setProperty('position','absolute');\r\n        el.style.setProperty('font-family','Courier');\r\n        el.style.setProperty('font-size','8pt');\r\n        el.style.setProperty('bottom','0');\r\n        el.style.setProperty('width','100%');\r\n        el.style.setProperty('height','100px');\r\n        el.style.setProperty('background','#ff0000');\r\n        el.style.setProperty('color','#ffffff');\r\n        TJSHTMLElement(document.body).style.setProperty('padding','0');\r\n        TJSHTMLElement(document.body).style.setProperty('margin','0');\r\n        sp := TJSHTMLElement(document.createElement('SPAN'));\r\n        sp.style.setProperty('margin-left','4px');\r\n        sp.style.setProperty('float','left');\r\n        sp.style.setProperty('overflow','hidden');\r\n        sp.style.setProperty('display','block');\r\n        sp.innerHTML := msg;\r\n        el.appendChild(sp);\r\n\r\n        x := TJSHTMLElement(document.createElement('SPAN'));\r\n        x.style.setProperty('font-family','Courier');\r\n        x.style.setProperty('font-size','8pt');\r\n        x.style.setProperty('font-weight','bold');\r\n        x.style.setProperty('position','absolute');\r\n        x.style.setProperty('width','20px');\r\n        x.style.setProperty('vertical-align','top');\r\n        x.style.setProperty('cursor','pointer');\r\n        x.style.setProperty('text-align','right');\r\n        x.style.setProperty('right','4px');\r\n        x.style.setProperty('display','block');\r\n        x.innerHTML := 'X';\r\n        x.onClick := @DoErrorClose;\r\n        el.appendChild(x);\r\n\r\n        document.body.appendChild(el);\r\n      end;\r\n    end;\r\n  aeAlert: window.alert(msg);\r\n  aeDialog:\r\n    begin\r\n        AddControlLink('googlematerial', 'https://fonts.googleapis.com/icon?family=Material+Icons');\r\n      MessageDlg(msg, mtError, [mbOK]);\r\n    end;\r\n  end;\r\n\r\n  if Assigned(OnError) then\r\n    OnError(Self, err, Result);\r\nend;\r\n\r\nfunction TApplication.GetBootstrapVersion: TBootstrapVersion;\r\nvar\r\n  bv: string;\r\nbegin\r\n  bv := '';\r\n\r\n  asm\r\n    if (typeof bootstrap !== 'undefined') {\r\n      bv = bootstrap.Tooltip.VERSION;\r\n    }\r\n  end;\r\n\r\n  Result := bv3;\r\n  if pos('4.',bv) = 1 then\r\n    Result := bv4\r\n  else\r\n  if pos('5.',bv) = 1 then\r\n    Result := bv5;\r\nend;\r\n\r\nfunction TApplication.DoPopState(Event: TJSPopStateEvent): boolean;\r\nbegin\r\n  if Assigned(OnPopState) then\r\n    OnPopState(Self, Event.state);\r\n  Result := true;\r\nend;\r\n\r\n\r\nfunction TApplication.DoHashChange(Event: TEventListenerEvent): boolean;\r\nvar\r\n  s: string;\r\n  fc: TFormClass;\r\n  frm: TCustomForm;\r\n  bdy: TJSHTMLElement;\r\n  Handled: boolean;\r\n\r\nbegin\r\n  Result := true;\r\n\r\n  if not AutoFormRoute then\r\n    Exit;\r\n\r\n  asm\r\n    s  = location.hash;\r\n  end;\r\n\r\n  // remove hash sign to get class name\r\n  Delete(s,1,1);\r\n\r\n  Handled := false;\r\n\r\n  if Assigned(OnHashChange) then\r\n    OnHashChange(Self, s, Handled);\r\n\r\n  if Handled then\r\n    Exit;\r\n\r\n  if s = '' then\r\n    s := FInitFormClassName;\r\n\r\n  if s <> '' then\r\n  begin\r\n    if FInitFormClassName = '' then\r\n      FInitFormClassName := FActiveForm.ClassName;\r\n\r\n    fc := TFormClass(GetClass(s));\r\n\r\n    if Assigned(fc) then\r\n    begin\r\n      bdy := TJSHTMLElement(document.body);\r\n      CreateForm(fc, bdy, frm);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TApplication.DoUpdateOnlineStatus(Event: TEventListenerEvent): boolean;\r\nbegin\r\n  Result := true;\r\n\r\n  if Assigned(OnOnlineChange) then\r\n  begin\r\n    if window.navigator.onLine then\r\n      OnOnlineChange(Self, osOnline)\r\n    else\r\n      OnOnlineChange(Self, osOffline);\r\n  end;\r\nend;\r\n\r\nfunction TApplication.DoVisibilityChange(Event: TEventListenerEvent): boolean;\r\nvar\r\n  res: boolean;\r\nbegin\r\n  Result := true;\r\n\r\n  res :=  (document.visibilityState = 'visible');\r\n\r\n  if Assigned(OnActivate) then\r\n    OnActivate(Self, res);\r\nend;\r\n\r\nprocedure TApplication.Download(const AURL: string);\r\nbegin\r\n  asm\r\n    window.location.href = AURL;\r\n  end;\r\nend;\r\n\r\nprocedure TApplication.DownloadTextFile(const AText: string; AFileName: string = '');\r\nbegin\r\n  asm\r\n    var element = document.createElement('a');\r\n    element.setAttribute('href', 'data:text/plain;charset=utf-8,' + encodeURIComponent(AText));\r\n    if (AFileName != ''){\r\n      element.setAttribute('download', AFileName);\r\n    }\r\n    element.style.display = 'none';\r\n    document.body.appendChild(element);\r\n    element.click();\r\n    document.body.removeChild(element);\r\n  end;\r\nend;\r\n\r\nfunction TApplication.EXEName: string;\r\nbegin\r\n  Result := window.document.location.href;\r\nend;\r\n\r\nfunction TApplication.GetActive: boolean;\r\nbegin\r\n  Result := not document.hidden;\r\nend;\r\n\r\nfunction TApplication.GetColorScheme: TApplicationColorScheme;\r\nbegin\r\n  Result := csNoScheme;\r\n\r\n  if (window.matchMedia('(prefers-color-scheme)').media <> 'not all') then\r\n  begin\r\n\r\n    if (window.matchMedia('(prefers-color-scheme: dark)').matches) then\r\n      Result := csDark\r\n    else\r\n      Result := csLight;\r\n  end;\r\nend;\r\n\r\nfunction TApplication.IDETheme: string;\r\nvar\r\n  s: string;\r\nbegin\r\n  Result := '';\r\n\r\n  if not Assigned(VSIDE) then\r\n    Exit;\r\n\r\n  asm\r\n    s = pas[\"WEBLib.Forms\"].VSIDE.theme;\r\n  end;\r\n\r\n  Result := s;\r\nend;\r\n\r\nprocedure TApplication.IDEOpenURL(const URL: string);\r\nbegin\r\n  asm\r\n    pas[\"WEBLib.Forms\"].VSIDE.Open(URL);\r\n  end;\r\nend;\r\n\r\nprocedure TApplication.IDEMessage(const Msg: string);\r\nbegin\r\n  asm\r\n    pas[\"WEBLib.Forms\"].VSIDE.ShowMessage(Msg);\r\n  end;\r\nend;\r\n\r\nfunction TApplication.IDECSS: string;\r\nbegin\r\n  Result := '';\r\n  if IDETheme = 'vscode-light' then\r\n  begin\r\n    Result := '.IDECaption { background-color: #F0F0F0 !important; color: #555555 !important; border: 1px solid #DDDDDD !important}'+#13#10+\r\n              '.IDEBkg { background-color: white !important; color: #555555 !important; border: 1px solid #DDDDDD !important}'+#13#10+\r\n              '.IDEButton { background-color: #FAFAFA !important; font-size:10pt; color: #555555 !important; border: 1px solid #DDDDDD !important}'+#13#10+\r\n              '.IDEButton:hover {background-color:#F0F0F0 !important}'+#13#10+\r\n              '.IDEFont {font-size:10pt !important}';\r\n  end;\r\n\r\n  if IDETheme = 'vscode' then\r\n  begin\r\n    Result := '.IDECaption,.IDEButton { background-color: #3F3E43 !important; color: #FFFFFF !important; border: 1px solid #35353A !important}'+#13#10+\r\n              '.IDEBkg { background-color: #2A2A2C !important; color: #A9ACB4 !important; border: 1px solid #35353A !important}'+#13#10+\r\n              '.IDEButton:hover {background-color:#434857 !important}'+#13#10+\r\n              '.IDEFont {font-size:10pt !important}';\r\n  end;\r\nend;\r\n\r\nprocedure TApplication.InternalDownloadFile(const AData: TJSUint8Array; const AFileName, AType: string; const ANewTab: Boolean);\r\nbegin\r\n  asm\r\n    var lElement = document.createElement('a');\r\n    var lBlob = new Blob([AData], {type: AType})\r\n    var lUrl = window.URL.createObjectURL(lBlob);\r\n    lElement.href = lUrl;\r\n    if (AFileName != ''){\r\n      lElement.setAttribute('download', AFileName);\r\n    }\r\n    lElement.style.display = 'none';\r\n    if (ANewTab == true) {\r\n      lElement.target = '_blank';\r\n    }\r\n    document.body.appendChild(lElement);\r\n    lElement.click();\r\n    document.body.removeChild(lElement);\r\n  end;\r\nend;\r\n\r\nprocedure TApplication.DownloadBinaryFile(const AData: TJSBlob; const AFileName: string = ''; const ANewTab: Boolean = False);\r\nbegin\r\n  asm\r\n    var lElement = document.createElement('a');\r\n    var lUrl = window.URL.createObjectURL(AData);\r\n    lElement.href = lUrl;\r\n\r\n    if (AFileName != ''){\r\n      lElement.setAttribute('download', AFileName);\r\n    }\r\n\r\n    lElement.style.display = 'none';\r\n    if (ANewTab == true) {\r\n      lElement.target = '_blank';\r\n    }\r\n    document.body.appendChild(lElement);\r\n    lElement.click();\r\n    document.body.removeChild(lElement);\r\n  end;\r\nend;\r\n\r\nprocedure TApplication.DownloadBinaryFile(const AData: TBytes; const AFileName: string; const ANewTab: Boolean);\r\nbegin\r\n  DownloadBinaryFile(TJSUint8Array.from(AData), AFileName, ANewTab);\r\nend;\r\n\r\nprocedure TApplication.DownloadBinaryFile(const AData: TJSUint8Array; const AFileName: string; const ANewTab: Boolean);\r\nbegin\r\n  InternalDownloadFile(AData, AFileName, 'octet/stream', ANewTab);\r\nend;\r\n\r\nprocedure TApplication.DownloadPDFFile(const AData: TBytes; const AFileName: string; const ANewTab: Boolean);\r\nbegin\r\n  DownloadPDFFile(TJSUint8Array.from(AData), AFileName, ANewTab);\r\nend;\r\n\r\nprocedure TApplication.DownloadPDFFile(const AData: TJSUint8Array; const AFileName: string; const ANewTab: Boolean);\r\nbegin\r\n  InternalDownloadFile(AData, AFileName, 'application/pdf', ANewTab);\r\nend;\r\n\r\nfunction TApplication.GetAuthorizationPageHTML(const AAuthorizationSuccess: Boolean): string;\r\nconst\r\n  sExternalBrowserAuthorizationOK = '<div class=\"text2\">Application succesfully authorized</div>You can close this browser window';\r\n  sExternalBrowserAuthorizationFailed = '<div class=\"text2\">Application authorization failed</div><br/>Please try again.';\r\n  LB = #13#10;\r\n\r\n  ImageFail = 'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeA'+\r\n  'AAACXBIWXMAAA7DAAAOwwHHb6hkAAABtElEQVR4nO2bUY7CMAxEhz0NB+EgrDjXCg6yB+E4+9NKCAiN'+\r\n  '7XHcjf1+ED+Z6ahNHScFiqIoBNwvp+v9crpG+3hG6+sgFQFwXv7ejj+/31JBDyy+ugN4ElkJD8Hqqyu'+\r\n  'AhohYjA3D12YAGyIiMSYsXx8D6BTpFmPB9NUMQCjSJcaA7ettAEqRTTErHr5eAjCKfBSz4OXryzhgiz'+\r\n  'OzWCJd/Fs8HoFHzHeCtxf2JNgt3MMID8zXoMpAtDarEDIbidJklMJUQ6MDty6GNDSNRdxtluWwhReDU'+\r\n  'fONKADAx2jkZCsOAOAaXn4pY2let6oAAN/qTIG61lAHAOwmBFO1aQoACA/BXGqbAwDCQqCsOCkBAMND'+\r\n  'oC23aQEAw0Kg9hqoAQDuIdAbLfQAALcQXFptLgEA9BDc+oxeLbF/Qz0C7AFTT4KpX4OpC6HUpXDqxVD'+\r\n  'q5fBOLn5lbEMkdUssdVM0dVs89cZI6q2x1JujqbfHUx+Q2MPFj/LidUqsKajB05NXS4y6Zl/GurHGe6'+\r\n  'QOSpLF5jgqqxSb67C0UGzO4/KdYnN/MLEhluOTmYZY+MWvDPU122dzRVHk5g+X6Lw5aVkK9AAAAABJRU5ErkJggg==';\r\n\r\n  ImageSuccess = 'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaX'+\r\n  'HeAAAACXBIWXMAAA7DAAAOwwHHb6hkAAACC0lEQVR4nO2Zv3GDMBSHv+QyQEbICM4EOW+Q9BS4o2QTU'+\r\n  '9LZBQNkg6zgETyCR0iRkOMIAv3Xk0+/zsiI931nI3iCkpKSkpKSkpKSkpJ7SDN0x2bo3nW//xCymNhp'+\r\n  'hu4E1MAN2PdVe9k6524ETODHXIHXvmpva+c9BqwpWhbgAV6Ar61zsxeggB+z+x1XJmsBG/Bj6mboWtV'+\r\n  'gtvcATfhpPvqq/ZwfzFKABTwoVobsBFjCj7kyWxmyugc4wsPCypCNAA/wY/L7C3iEP/dVe5geEC8gJD'+\r\n  'wIFxAaHgQLiAEPQgXEggeBAmLCgzABseFBkIAU8CBEQCp4ECAgJTwYChibCzYXWpmv9jCVFTwYCJgVa'+\r\n  '31BxXwucapFS4CiWOsLS4EHDQEbxRoXIAkeNgRoFqtdiDR4WBFgWOxmQRLhQdEQsSi2bobuqBqUCg8L'+\r\n  'vwDHYg991Z49zjeNd3iYCfBU7J8E6fAAT7PPOw9znpqhA3hDODz8F7Dnp2vqKmJ1O8ogQeFh+R7wjB8'+\r\n  'JrgkOD4plUICEKPCw/hyQSkI0eNh+EowtISo86L0LxJIQHR703wZDS0gCD2b9gFASksGDeUfIt4Sk8G'+\r\n  'DRE/QoITk8WDZFPUgQAQ8OXWEHCWLgwbEtbiFBFDx42BcwkCAOHjxtjGhIEAkPHneGViSIhQfPW2MLE'+\r\n  'kTDQ4C9wYmEi3T4kpKSkm+5ax+YhPsUTQAAAABJRU5ErkJggg==';\r\n\r\n  PlaceHolderImage = '#PLACEHOLDERIMAGE#';\r\n  PlaceHolderText = '#PLACEHOLDERTEXT#';\r\n  PlaceHolderColor = '#PLACEHOLDERCOLOR#';\r\n\r\n  AuthHTMLTemplate =\r\n  '<!doctype html>'+LB+\r\n  '<html lang=\"en\">'+LB+\r\n  '<head>'+LB+\r\n  '  <title>Authentication Result</title>'+LB+\r\n  '  <meta name=\"viewport\" content=\"width=device-width, initial-scale=1\">'+LB+\r\n  '</head>'+LB+\r\n  '<body>'+LB+\r\n  '<style>'+LB+\r\n  '  hr'+LB+\r\n  '  {'+LB+\r\n  '    border: none;'+LB+\r\n  '    height: 1px;'+LB+\r\n  '    background-color: rgb(171, 171, 171);'+LB+\r\n  '  }'+LB+\r\n  '  div.container'+LB+\r\n  '  {'+LB+\r\n  '    position: fixed;'+LB+\r\n  '    font-family: Arial;'+LB+\r\n  '    font-size: 12pt;'+LB+\r\n  '    max-width: 100%;'+LB+\r\n  '    max-height: 100%;'+LB+\r\n  '    top: 50%;'+LB+\r\n  '    left: 50%;'+LB+\r\n  '    transform: translate(-50%, -50%);'+LB+\r\n  '  }'+LB+\r\n  '  div.section'+LB+\r\n  '  {'+LB+\r\n  '    display: inline-block;'+LB+\r\n  '    margin: 15px;'+LB+\r\n  '    padding: 5px;'+LB+\r\n  '    float: left;'+LB+\r\n  '  }'+LB+\r\n  '  div.image img'+LB+\r\n  '  {'+LB+\r\n  '    height: 100%;'+LB+\r\n  '  }'+LB+\r\n  '  div.text'+LB+\r\n  '  {'+LB+\r\n  '    padding-top: 15px;'+LB+\r\n  '  }'+LB+\r\n  '  div.text2'+LB+\r\n  '  {'+LB+\r\n  '    font-size: 18pt;'+LB+\r\n  '    color: #PLACEHOLDERCOLOR#;'+LB+\r\n  '  }'+LB+\r\n  '  span.title'+LB+\r\n  '  {'+LB+\r\n  '    font-size: 26px;'+LB+\r\n  '  }'+LB+\r\n  '</style>'+LB+\r\n  '  <div class=\"container\">'+LB+\r\n  '  <div class=\"section image\">'+LB+\r\n  '    <img src=\"#PLACEHOLDERIMAGE#\">'+LB+\r\n  '  </div>'+LB+\r\n  '  <div class=\"section text\">'+LB+\r\n  '  #PLACEHOLDERTEXT#'+LB+\r\n  '  </div>'+LB+\r\n  '  </div>'+LB+\r\n  ' </body>'+LB+\r\n  '</html>';\r\n\r\n  function ReplacePlaceHolders(APlaceHolders: array of string; APlaceHolderValues: array of string): string;\r\n  var\r\n    I: Integer;\r\n    s: string;\r\n  begin\r\n    s := AuthHTMLTemplate;\r\n    for I := 0 to Length(APlaceHolders) - 1 do\r\n      s := StringReplace(s, APlaceHolders[I], APlaceHolderValues[I], [rfReplaceAll]);\r\n\r\n    Result := s;\r\n  end;\r\n\r\nbegin\r\n  if AAuthorizationSuccess then\r\n    Result := ReplacePlaceHolders([PlaceHolderImage, PlaceHolderText, PlaceHolderColor], [ImageSuccess, sExternalBrowserAuthorizationOK, 'rgb(104, 164, 144)'])\r\n  else\r\n    Result := ReplacePlaceHolders([PlaceHolderImage, PlaceHolderText, PlaceHolderColor], [ImageFail, sExternalBrowserAuthorizationFailed, 'rgb(216, 99, 68)']);\r\nend;\r\n\r\nfunction TApplication.GetFormExtension: string;\r\nbegin\r\n  if Language <> lNone then\r\n    Result := '_' + GetLanguageISO639_1Code(Language) + cHTMLExt\r\n  else\r\n    Result := cHTMLExt;\r\nend;\r\n\r\nfunction TApplication.GetIsOnline: boolean;\r\nbegin\r\n  Result := window.navigator.onLine;\r\nend;\r\n\r\nfunction TApplication.GetIsPWA: boolean;\r\nvar\r\n  pwa: boolean;\r\nbegin\r\n  asm\r\n    pwa = ('standalone' in window.navigator) && (window.navigator.standalone);\r\n  end;\r\n\r\n  Result := pwa;\r\nend;\r\n\r\n{$HINTS OFF}\r\nfunction TApplication.CalcScrollBarWidth: integer;\r\nvar\r\n  res: integer;\r\nbegin\r\n  if FSBW <> -1 then\r\n  begin\r\n    Result := FSBW;\r\n    Exit;\r\n  end;\r\n\r\n  asm\r\n    function getScrollbarWidth() {\r\n      // Create a temporary div element\r\n      const div = document.createElement('div');\r\n\r\n      // Apply styles to force a scrollbar\r\n      div.style.overflow = 'scroll';\r\n      div.style.position = 'absolute';\r\n      div.style.top = '-9999px'; // Move it off-screen\r\n      div.style.width = '100px';\r\n      div.style.height = '100px';\r\n\r\n      // Append the div to the body\r\n      document.body.appendChild(div);\r\n\r\n      // Calculate the scrollbar width\r\n      const scrollbarWidth = div.offsetWidth - div.clientWidth;\r\n\r\n      // Remove the temporary element\r\n      document.body.removeChild(div);\r\n\r\n      res = scrollbarWidth;\r\n    }\r\n    getScrollbarWidth();\r\n  end;\r\n\r\n  FSBW := res;\r\n  Result := FSBW;\r\nend;\r\n\r\nfunction TApplication.IsPWAInstalled: TJSPromise;\r\nvar\r\n  b: boolean;\r\n  s: string;\r\nbegin\r\n  b := false;\r\n  s := window.location.hostname;\r\n\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver) async\r\n    begin\r\n      asm\r\n        if ('getInstalledRelatedApps' in window.navigator) {\r\n         const relatedApps = await navigator.getInstalledRelatedApps();\r\n         relatedApps.forEach((app) => {\r\n            if (app.id.indexOf(s) >= 0)\r\n            {\r\n              b = true;\r\n            }\r\n         });\r\n        }\r\n      end;\r\n      ASuccess(b);\r\n    end);\r\nend;\r\n{$HINTS ON}\r\n\r\nfunction TApplication.GetIsMobile: boolean;\r\nvar\r\n  mob: boolean;\r\nbegin\r\n  asm\r\n    function TestMobile() {\r\n      var check = false;\r\n     (function(a){if(/(android|bb\\d+|meego).+mobile|avantgo|bada\\/|blackberry|blazer|compal|elaine|fennec|hiptop|iemobile|ip(hone|od)|iris|kindle|lge |maemo|midp|mmp|mobile.+firefox|netfront|opera m(ob|in)i|palm( os)?|phone|p(ixi|re)\\/|plucker|pocket|psp|series(4|6)0|symbian|treo|up\\.(browser|link)|vodafone|wap|windows ce|xda|xiino|android|ipad|playbook|silk/i.test(a)||/1207|6310|6590|3gso|4thp|50[1-6]i|770s|802s|a wa|abac|ac(er|oo|s\\-)|ai(ko|rn)|al(av|ca|co)|amoi|an(ex|ny|yw)|aptu|ar(ch|go)|as(te|us)|attw|au(di|\\-m|r |s )|avan|be(ck|ll|nq)|bi(lb|rd)|bl(ac|az)|br(e|v)w|bumb|bw\\-(n|u)|c55\\/|capi|ccwa|cdm\\-|cell|chtm|cldc|cmd\\-|co(mp|nd)|craw|da(it|ll|ng)|dbte|dc\\-s|devi|dica|dmob|do(c|p)o|ds(12|\\-d)|el(49|ai)|em(l2|ul)|er(ic|k0)|esl8|ez([4-7]0|os|wa|ze)|fetc|fly(\\-|_)|g1 u|g560|gene|gf\\-5|g\\-mo|go(\\.w|od)|gr(ad|un)|haie|hcit|hd\\-(m|p|t)|hei\\-|hi(pt|ta)|hp( i|ip)|hs\\-c|ht(c(\\-| |_|a|g|p|s|t)|tp)|hu(aw|tc)|i\\-(20|go|ma)|i230|iac( |\\-|\\/)|ibro|idea|ig01|ikom|im1k|inno|ipaq|iris|ja(t|v)a|jbro|jemu|jigs|kddi|keji|kgt( |\\/)|klon|kpt |kwc\\-|kyo(c|k)|le(no|xi)|lg( g|\\/(k|l|u)|50|54|\\-[a-w])|libw|lynx|m1\\-w|m3ga|m50\\/|ma(te|ui|xo)|mc(01|21|ca)|m\\-cr|me(rc|ri)|mi(o8|oa|ts)|mmef|mo(01|02|bi|de|do|t(\\-| |o|v)|zz)|mt(50|p1|v )|mwbp|mywa|n10[0-2]|n20[2-3]|n30(0|2)|n50(0|2|5)|n7(0(0|1)|10)|ne((c|m)\\-|on|tf|wf|wg|wt)|nok(6|i)|nzph|o2im|op(ti|wv)|oran|owg1|p800|pan(a|d|t)|pdxg|pg(13|\\-([1-8]|c))|phil|pire|pl(ay|uc)|pn\\-2|po(ck|rt|se)|prox|psio|pt\\-g|qa\\-a|qc(07|12|21|32|60|\\-[2-7]|i\\-)|qtek|r380|r600|raks|rim9|ro(ve|zo)|s55\\/|sa(ge|ma|mm|ms|ny|va)|sc(01|h\\-|oo|p\\-)|sdk\\/|se(c(\\-|0|1)|47|mc|nd|ri)|sgh\\-|shar|sie(\\-|m)|sk\\-0|sl(45|id)|sm(al|ar|b3|it|t5)|so(ft|ny)|sp(01|h\\-|v\\-|v )|sy(01|mb)|t2(18|50)|t6(00|10|18)|ta(gt|lk)|tcl\\-|tdg\\-|tel(i|m)|tim\\-|t\\-mo|to(pl|sh)|ts(70|m\\-|m3|m5)|tx\\-9|up(\\.b|g1|si)|utst|v400|v750|veri|vi(rg|te)|vk(40|5[0-3]|\\-v)|vm40|voda|vulc|vx(52|53|60|61|70|80|81|83|85|98)|w3c(\\-| )|webc|whit|wi(g |nc|nw)|wmlb|wonu|x700|yas\\-|your|zeto|zte\\-/i.test(a.substr(0,4))) check = true;})(navigator.userAgent||navigator.vendor||window.opera);\r\n     return check;\r\n     };\r\n\r\n    mob = TestMobile();\r\n  end;\r\n\r\n  Result := mob;\r\nend;\r\n\r\n{$IFDEF SINGLEINSTANCE}\r\nprocedure TApplication.DoGetDataReceived(Sender: TObject; Origin: string;\r\n  Data: TJSObjectRecord);\r\nbegin\r\n  if Data.jsobject.toString = '#reload' then\r\n  begin\r\n    asm\r\n      location.reload();\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TApplication.DoGetConnected(Sender: TObject);\r\nvar\r\n  url,agent:string;\r\nbegin\r\n  url := window.location.href;\r\n  agent := window.navigator.useragent;\r\n\r\n  if Pos('Edg', agent) > 0 then\r\n    agent := 'Edge'\r\n  else if Pos('Opera', agent) > 0 then\r\n    agent := 'Opera'\r\n  else if Pos('OPR', agent) > 0 then\r\n    agent := 'Opera'\r\n  else if Pos('Chrome', agent) > 0 then\r\n    agent := 'Chrome'\r\n  else if Pos('Safari', agent) > 0 then\r\n    agent := 'Safari'\r\n  else if Pos('Firefox', agent) > 0 then\r\n    agent := 'Firefox'\r\n  else if Pos('Trident', agent) > 0 then\r\n    agent := 'MSIE'\r\n  else\r\n    agent := '';\r\n\r\n  FWebSocket.Send(url + ';' + agent);\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TApplication.DoErrorClose(Event: TJSMouseEvent): boolean;\r\nbegin\r\n  document.body.removeChild(Event.targetElement.parentElement);\r\n  Result := true;\r\nend;\r\n\r\nfunction TApplication.DoFormAbort(Event: TEventListenerEvent): boolean;\r\nbegin\r\n  ShowMessage('Failed to load form HTML template file');\r\n  Result := true;\r\nend;\r\n\r\nprocedure TApplication.TriggerNotification;\r\nbegin\r\n  {$IFDEF FREEWARE}\r\n  if FNotifyCount = 0 then\r\n  begin\r\n    {$IFDEF TMS}\r\n    asm\r\n      alert('TMS WEB Core \\u00A9 2018 - 2024 tmssoftware.com - Trial Version');\r\n    end;\r\n    {$ENDIF}\r\n    {$IFNDEF TMS}\r\n    asm\r\n      alert('Application created with an unlicensed trial version of software');\r\n    end;\r\n    {$ENDIF}\r\n  end;\r\n  inc(FNotifyCount);\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TApplication.InitFormatSettings(const BrowserLocale: string);\r\nvar\r\n  timestr: string;\r\n  i: integer;\r\n  locale: string;\r\nbegin\r\n  locale := BrowserLocale;\r\n\r\n  FormatSettings.ShortDateFormat := GetLocaleShortDateFormat(locale);\r\n\r\n  if (Pos('/',FormatSettings.ShortDateFormat) > 0) then\r\n    FormatSettings.DateSeparator := '/';\r\n\r\n  if (Pos('.',FormatSettings.ShortDateFormat) > 0) then\r\n    FormatSettings.DateSeparator := '.';\r\n\r\n  if (Pos('-',FormatSettings.ShortDateFormat) > 0) then\r\n    FormatSettings.DateSeparator := '-';\r\n\r\n  asm\r\n    var event = new Date('Jan 1, 1980 06:07:08 GMT+00:00');\r\n    var loc = \"\";\r\n    if (locale == \"\") { loc = navigator.language; } else\r\n    { loc = locale; }\r\n    timestr = event.toLocaleTimeString(loc);\r\n  end;\r\n\r\n  if pos(':',timestr) > 0 then\r\n    FormatSettings.TimeSeparator := ':';\r\n\r\n  if pos('.',timestr) > 0 then\r\n    FormatSettings.TimeSeparator := '.';\r\n\r\n  if pos('-',timestr) > 0 then\r\n    FormatSettings.TimeSeparator := '-';\r\n\r\n  for i := 1 to 7 do\r\n  begin\r\n    FormatSettings.ShortDayNames[i] := GetLocaleShortDayName(i,locale);\r\n    FormatSettings.LongDayNames[i] := GetLocaleLongDayName(i,locale);\r\n  end;\r\n\r\n  for i := 1 to 12 do\r\n  begin\r\n    FormatSettings.ShortMonthNames[i] := GetLocaleShortMonthName(i,locale);\r\n    FormatSettings.LongMonthNames[i] := GetLocaleLongMonthName(i,locale);\r\n  end;\r\n\r\n  FormatSettings.DecimalSeparator := GetLocaleDecimalSeparator;\r\n\r\n  if FormatSettings.DecimalSeparator = '.' then\r\n    FormatSettings.ThousandSeparator := ','\r\n  else\r\n    FormatSettings.ThousandSeparator := '.';\r\nend;\r\n\r\n{$HINTS OFF}\r\n\r\nfunction TApplication.Route: boolean;\r\nvar\r\n  frm: TCustomForm;\r\n  hash: string;\r\n  pc: TPersistentClass;\r\nbegin\r\n  Result := false;\r\n  FRouting := true;\r\n  hash := window.location.hash;\r\n\r\n  if (hash <> '') then\r\n  begin\r\n    delete(hash,1,1);\r\n    hash := 'T' + hash;\r\n    pc := GetClass(hash);\r\n    if Assigned(pc) then\r\n    begin\r\n      Result := true;\r\n      Application.AutoCreateForm(TFormClass(pc), frm);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TApplication.Initialize;\r\nvar\r\n  query, token: string;\r\n  p: Integer;\r\n  b: Boolean;\r\nbegin\r\n\r\n  FCanCreateForm := True;\r\n  FAppInitializing := True;\r\n  FParameters.Clear;\r\n  query := window.location.href;\r\n\r\n  InitFormatSettings(GetBrowserLocale);\r\n\r\n  FParameters.Delimiter := '&';\r\n  FParameters.StrictDelimiter := true;\r\n  p := Pos('?', query);\r\n  if p > 0 then\r\n    query := Copy(query, p + 1, Length(query));\r\n  FParameters.DelimitedText := query;\r\n\r\n  asm\r\n    b = (window.name == \"Authentication\");\r\n  end;\r\n\r\n  if Assigned(OnOAuthCallBack) then\r\n  begin\r\n    if (FParameters.IndexOfName('oauthcallback') <> -1) or b then\r\n    begin\r\n      OnOauthCallBack(Self, query);\r\n\r\n      FIsRedirect := true;\r\n      document.body.innerHTML := GetAuthorizationPageHTML(True);\r\n      Exit;\r\n    end;\r\n  end;\r\n\r\n  // there is a code callback\r\n  if (FParameters.IndexOfName('code') <> -1) and HandleOAuth then\r\n  begin\r\n    if Assigned(OnOAuthToken) then\r\n      OnOauthToken(Self, query);\r\n\r\n    FIsRedirect := true;\r\n    token := FParameters.Values['code'];\r\n    asm\r\n      if (window.opener && window.opener.processAuthData){\r\n        window.opener.processAuthData(token);\r\n        window.close();\r\n      }\r\n    end;\r\n  end;\r\n\r\n  window.addEventListener('hashchange',@DoHashChange);\r\n  window.addEventListener('online',  @DoUpdateOnlineStatus);\r\n  window.addEventListener('offline', @DoUpdateOnlineStatus);\r\n  window.addEventListener('popstate', @DoPopState);\r\n  document.addEventListener('visibilitychange', @DoVisibilityChange);\r\n\r\n  if (window.opener <> nil) then\r\n    if (FParameters.IndexOfName('access_token') <> -1) then\r\n    begin\r\n      FIsRedirect := true;\r\n      token := FParameters.Values['access_token'];\r\n      asm\r\n        if (window.opener && window.opener.processAuthData){\r\n          window.opener.processAuthData(token);\r\n        \twindow.close();\r\n        }\r\n      end;\r\n    end;\r\nend;\r\n\r\nprocedure TApplication.InsertCSS(id, href: string);\r\nvar\r\n  styleElement: TJSElement;\r\nbegin\r\n\r\n  styleElement := document.getElementById(id);\r\n  if Assigned(styleElement) then\r\n  begin\r\n    asm\r\n      styleElement.href = href;\r\n    end;\r\n    Exit;\r\n  end;\r\n\r\n  styleElement := document.createElement('link');\r\n  styleElement.id := id;\r\n\r\n  asm\r\n    styleElement.rel = 'stylesheet';\r\n    styleElement.href = href;\r\n  end;\r\n\r\n  document.getElementsByTagName('head')[0].appendChild(styleElement);\r\nend;\r\n\r\n{$HINTS ON}\r\n\r\nprocedure TApplication.Run;\r\nbegin\r\n  FCanCreateForm := True;\r\n  FAppInitializing := False;\r\nend;\r\n\r\nprocedure TApplication.RunScript(Source: string);\r\nbegin\r\n  asm\r\n    eval(Source);\r\n  end;\r\nend;\r\n\r\nprocedure TApplication.Terminate;\r\nbegin\r\n  window.location.href := 'about:blank';\r\nend;\r\n\r\nprocedure TApplication.ReceiveMessageFromClient(const AMessage: string);\r\nbegin\r\n  if Assigned(FClientConnector) then\r\n    FClientConnector.Receive(AMessage);\r\nend;\r\n\r\nprocedure TApplication.ChangeLanguage(const Value: TUILanguage);\r\nbegin\r\n  FLanguage := Value;\r\n  if Assigned(FMainForm) then\r\n    ReloadForm;\r\nend;\r\n\r\nprocedure TApplication.SetLanguage(const Value: TUILanguage);\r\nbegin\r\n  FLanguage := Value;\r\nend;\r\n\r\nprocedure TApplication.ChangeCSS(id, href: string);\r\nbegin\r\n  asm\r\n    var styleElement = document.getElementById(id);\r\n    if (styleElement) {\r\n      styleElement.href = href;\r\n      return;\r\n    }\r\n  end;\r\nend;\r\n\r\nfunction TApplication.MaxZIndexStr: string;\r\nbegin\r\n  Result := IntToStr(FMaxZIndex);\r\nend;\r\n\r\nprocedure TApplication.ChangeMaxZIndex(Delta: integer);\r\nbegin\r\n  FMaxZIndex := FMaxZIndex + Delta;\r\nend;\r\n\r\nconstructor TApplication.Create(AOwner: TComponent);\r\n{$IFDEF HOTRELOAD}\r\nconst\r\n  cDefPollInterval = 1000;\r\n  cDefFileName = 'TMSHotreloadVersion.json';\r\n  {$ENDIF}\r\nbegin\r\n  FFormStack := TList.Create;\r\n  FParameters := TStringList.Create;\r\n  FAppContainer := cBodyTag;\r\n  FMainForm := nil;\r\n  FActiveForm := nil;\r\n  FInitFormClassName := '';\r\n  FIsRedirect := false;\r\n  FAutoFormRoute := false;\r\n  FThemed := false;\r\n  FThemeColor := clTMSBlue;\r\n  FThemeTextColor := clWhite;\r\n  FFormCaptionHeight := 22;\r\n  FMaxZIndex := 998;\r\n  FHandleOAuth := true;\r\n  FHintPause := 200;\r\n  FHintHidePause := 250;\r\n  FHintPosition := hpTop;\r\n  FHintClassName := '';\r\n  FSBW := -1;\r\n  {$IFDEF FREEWARE}\r\n  FNotifyCount := 0;\r\n  {$ENDIF}\r\n  {$IFDEF HOTRELOAD}\r\n  FHotReloadPollInterval := cDefPollInterval;\r\n  FHotReloadFile := cDefFileName;\r\n  StartHotReload;\r\n  {$ENDIF}\r\n  {$IFDEF SINGLEINSTANCE}\r\n  FWebSocket := TSocketClient.Create(Self);\r\n  FWebSocket.Port := DefaultPort;\r\n  FWebSocket.OnDataReceived := @DoGetDataReceived;\r\n  FWebSocket.OnConnect := @DoGetConnected;\r\n  FWebSocket.Connect;\r\n  {$ENDIF}\r\n\r\n  window.addEventListener('error', @DoHandleError);\r\n  window.addEventListener('unhandledrejection', @DoHandleError);\r\n  window.addEventListener('beforeunload', @DoHandleExit);\r\n\r\n  FErrorType := aeSilent;\r\n  {$IFDEF DEBUG}\r\n  FErrorType := aeFooter;\r\n  {$ENDIF}\r\n  //TriggerNotification;\r\nend;\r\n\r\nfunction TApplication.GetHash: string;\r\nvar\r\n  s: string;\r\nbegin\r\n  s := window.location.hash;\r\n  if (Length(s) > 0) and (s[1] = '#') then\r\n    Delete(s,1,1);\r\n\r\n\r\n  Result := s;\r\nend;\r\n\r\nprocedure TApplication.SetHash(const AValue: string);\r\nbegin\r\n  window.location.hash := AValue;\r\nend;\r\n\r\n\r\ndestructor TApplication.Destroy;\r\nbegin\r\n  {$IFDEF HOTRELOAD}\r\n  StopHotReload;\r\n  {$ENDIF}\r\n  {$IFDEF SINGLEINSTANCE}\r\n  FWebSocket.Free;\r\n  {$ENDIF}\r\n  FFormStack.Free;\r\n  FParameters.Free;\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TApplication.LockForm(AForm: TCustomForm);\r\nvar\r\n  i: integer;\r\nbegin\r\n  for i := 0 to AForm.ControlCount - 1 do\r\n  begin\r\n    AForm.Controls[i].DisableTab;\r\n  end;\r\nend;\r\n\r\nprocedure TApplication.UnLockForm(AForm: TCustomForm);\r\nvar\r\n  i: integer;\r\nbegin\r\n  for i := 0 to AForm.ControlCount - 1 do\r\n  begin\r\n    AForm.Controls[i].EnableTab;\r\n  end;\r\nend;\r\n\r\nprocedure TApplication.PushForm(AForm: TCustomForm);\r\nvar\r\n  i: integer;\r\nbegin\r\n  // persist all control settings in HTML to be saved\r\n  for i := 0 to AForm.ControlCount - 1 do\r\n  begin\r\n    AForm.Controls[i].PersistInHTML;\r\n  end;\r\n\r\n  // save with form\r\n  AForm.FormContent := document.body.innerHTML;\r\n\r\n  for i := 0 to AForm.ControlCount - 1 do\r\n  begin\r\n    AForm.Controls[i].DisableTab;\r\n  end;\r\n\r\n  FFormStack.Add(AForm);\r\nend;\r\n\r\nfunction TApplication.PopForm: TCustomForm;\r\nvar\r\n  i: integer;\r\n  frm: string;\r\nbegin\r\n  if (FFormStack.Count > 0) then\r\n  begin\r\n    Result := TCustomForm(FFormStack.Items[FFormStack.Count - 1]);\r\n    frm := Result.FormContent;\r\n    FFormStack.Delete(FFormStack.Count - 1);\r\n\r\n    // restore document\r\n    document.body.innerHTML := frm;\r\n\r\n    Result.InitFromHTML;\r\n\r\n    // rebind form events\r\n    Result.BindEvents;\r\n\r\n    // rehook controls\r\n    for i := 0 to Result.ControlCount - 1 do\r\n      Result.Controls[i].HookElement;\r\n\r\n    for i := 0 to Result.ControlCount - 1 do\r\n    begin\r\n      Result.Controls[i].RecreateCanvas;\r\n      Result.Controls[i].InternalResize;\r\n    end;\r\n\r\n    Application.FActiveForm := Result;\r\n  end;\r\nend;\r\n\r\nfunction TApplication.Version: string;\r\nbegin\r\n  Result := WEBCOREVERSION;\r\nend;\r\n\r\n{$IFDEF HOTRELOAD}\r\nprocedure TApplication.OnHotReloadTick;\r\nconst\r\n  cMethodLoad = 'load';\r\n  cMethodAbort = 'abort';\r\n  cMethodGet = 'GET';\r\n  cDeli = '/';\r\nvar\r\n  lReq: TJSXMLHttpRequest;\r\n  lBuffer: string;\r\nbegin\r\n  if FHotReloadReq <> nil then\r\n    Exit;\r\n\r\n  lReq := TJSXMLHttpRequest.New;\r\n  lReq.AddEventListener(cMethodLoad, @OnHotReloadLoad);\r\n  lReq.AddEventListener(cMethodAbort, @OnHotReloadAbort);\r\n  lBuffer := window.document.location.href;\r\n  lBuffer := TPath.GetDirectoryName(lBuffer);\r\n  lBuffer := lBuffer + cDeli + FHotReloadFile;\r\n  lReq.Open(cMethodGet, lBuffer);\r\n  lReq.setRequestHeader('Cache-Control', 'no-cache, no-store, must-revalidate');\r\n  lReq.Send;\r\n  FHotReloadReq := lReq;\r\nend;\r\n\r\nfunction TApplication.OnHotReloadAbort(AEvent: TEventListenerEvent): Boolean;\r\nbegin\r\n  FHotReloadReq := nil;\r\n  Result := False;\r\nend;\r\n\r\nfunction TApplication.OnHotReloadLoad(AEvent: TEventListenerEvent): Boolean;\r\nvar\r\n  lData: TJSObject;\r\nbegin\r\n  try\r\n    lData := TJSJSON.parseObject(FHotReloadReq.responseText);\r\n    HandleHotReload(lData);\r\n  except\r\n    console.error('Error parsing Hotreload JSON: '+ FHotReloadReq.responseText);\r\n  end;\r\n  FHotReloadReq := nil;\r\n  Result := True;\r\nend;\r\n\r\nprocedure TApplication.HandleHotReload(const AData: TJSObject);\r\nconst\r\n  cAttributeVersion = 'version';\r\nvar\r\n  lVersion: JSValue;\r\nbegin\r\n  lVersion := AData[cAttributeVersion];\r\n  if FHotReloadVersion = 0 then\r\n  begin\r\n    FHotReloadVersion := Integer(lVersion);\r\n    Exit;\r\n  end;\r\n\r\n  if Integer(lVersion) > FHotReloadVersion then\r\n  begin\r\n    FHotReloadVersion := Integer(lVersion);\r\n    window.location.reload(false);\r\n  end;\r\nend;\r\n\r\nprocedure TApplication.StartHotReload;\r\nbegin\r\n  if FHotReloadTimer = 0 then\r\n    FHotReloadTimer := Window.setInterval(@OnHotReloadTick, FHotReloadPollInterval);\r\nend;\r\n\r\nprocedure TApplication.StopHotReload;\r\nbegin\r\n  if FHotReloadTimer <> 0 then\r\n  begin\r\n    Window.ClearInterval(FHotReloadTimer);\r\n    FHotReloadTimer := 0;\r\n  end;\r\nend;\r\n\r\n{$ENDIF}\r\n\r\n{ TCustomFrame }\r\n\r\nconstructor TCustomFrame.Create(AId: string);\r\nbegin\r\n  inherited Create(AId);\r\n  FPadding := TPadding.Create;\r\n  LoadHTMLFile(AId);\r\nend;\r\n\r\nconstructor TCustomFrame.Create(AOwner: TComponent);\r\nbegin\r\n  inherited Create(AOwner);\r\n  FPadding := TPadding.Create;\r\n  FConstraints := TSizeConstraints.Create(Self);\r\nend;\r\n\r\nconstructor TCustomFrame.CreateNew(AOwner: TComponent);\r\nbegin\r\n  Create(AOwner);\r\n  BeforeLoadDFMValues;\r\n  try\r\n    LoadFromForm;\r\n  finally\r\n    AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\ndestructor TCustomFrame.Destroy;\r\nbegin\r\n  FConstraints.Free;\r\n  FPadding.Free;\r\n  inherited Destroy;\r\nend;\r\n\r\nclass function TCustomFrame.GetHTMLFileName: string;\r\nbegin\r\n  Result := UnitName + Application.GetFormExtension;\r\nend;\r\n\r\nprocedure TCustomFrame.LoadDFMValues;\r\nbegin\r\nend;\r\n\r\nprocedure TCustomFrame.LoadFromForm;\r\nbegin\r\n  LoadDFMValues;\r\nend;\r\n\r\nprocedure TCustomFrame.LoadHTMLFile(const AId: string);\r\nconst\r\n  cMethodGet = 'GET';\r\n  cTypeLoad = 'load';\r\n  {$IFDEF DEBUG}\r\n  cHeaderCacheControl = 'Cache-Control';\r\n  cValueNoCache = 'no-cache';\r\n  {$ENDIF}\r\nvar\r\n  lFileName: string;\r\n  lRequest: TJSXMLHttpRequest;\r\n\r\n  function DoStatusCreate(AEvent: TEventListenerEvent): Boolean;\r\n  var\r\n    lElement: TJSHTMLElement;\r\n    lResponse: string;\r\n  begin\r\n    if AEvent = nil then\r\n      Exit(False);\r\n\r\n    asm\r\n      lResponse = AEvent.target.responseText;\r\n    end;\r\n    lElement := TJSHTMLElement(document.getElementById(AId));\r\n    lElement.innerHTML := lResponse;\r\n\r\n    Result := True;\r\n  end;\r\n\r\nbegin\r\n  lFileName := GetHTMLFileName;\r\n  if lFileName <> '' then\r\n  begin\r\n    lRequest := TJSXMLHttpRequest.new;\r\n    lRequest.addEventListener(cTypeLoad, @DoStatusCreate);\r\n    lRequest.open(cMethodGet, lFileName);\r\n    {$IFDEF DEBUG}\r\n    lRequest.setRequestHeader(cHeaderCacheControl, cValueNoCache);\r\n    {$ENDIF}\r\n    lRequest.send;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomFrame.UpdateElement;\r\nvar\r\n  nocolor: boolean;\r\nbegin\r\n  inherited;\r\n\r\n  nocolor := Color in [clBtnFace, clNone, clWhite, clWindow];\r\n\r\n  if Assigned(ElementHandle) and not IsUpdating and (csDesigning in ComponentState) and nocolor then\r\n  begin\r\n    ElementHandle.style.setProperty('background-color',ColorToHTML($F0F0F0));\r\n  end;\r\nend;\r\n\r\nprocedure TCustomFrame.SetConstraints(const AValue: TSizeConstraints);\r\nbegin\r\n  FConstraints.Assign(AValue);\r\nend;\r\n\r\nprocedure TCustomFrame.SetPopupMenu(AValue: TPopupMenu);\r\nbegin\r\n  FPopupMenu := AValue;\r\nend;\r\n\r\nprocedure TCustomFrame.SetPadding(AValue: TPadding);\r\nbegin\r\n  FPadding.Assign(AValue);\r\nend;\r\n\r\n{ TCustomSizeConstraints }\r\n\r\nconstructor TCustomSizeConstraints.Create(AControl: TControl);\r\nbegin\r\n  inherited Create;\r\n  FControl := AControl;\r\nend;\r\n\r\nprocedure TCustomSizeConstraints.AssignTo(ADest: TPersistent);\r\nbegin\r\n  if ADest is TCustomSizeConstraints then\r\n  begin\r\n    with TCustomSizeConstraints(ADest) do\r\n    begin\r\n      FMinHeight := Self.FMinHeight;\r\n      FMaxHeight := Self.FMaxHeight;\r\n      FMinWidth := Self.FMinWidth;\r\n      FMaxWidth := Self.FMaxWidth;\r\n      Change;\r\n    end;\r\n   end\r\n  else\r\n    inherited AssignTo(ADest);\r\nend;\r\n\r\nprocedure TCustomSizeConstraints.SetConstraints(AIndex: Integer; AValue: TConstraintSize);\r\nbegin\r\n  case AIndex of\r\n    0:\r\n      if AValue <> FMaxHeight then\r\n      begin\r\n        FMaxHeight := AValue;\r\n//        if not FControl.FIScaling then\r\n        begin\r\n          if (AValue > 0) and (AValue < FMinHeight) then\r\n            FMinHeight := AValue;\r\n          Change;\r\n        end;\r\n      end;\r\n    1:\r\n      if AValue <> FMaxWidth then\r\n      begin\r\n        FMaxWidth := AValue;\r\n//        if not FControl.FIScaling then\r\n        begin\r\n          if (AValue > 0) and (AValue < FMinWidth) then\r\n            FMinWidth := AValue;\r\n          Change;\r\n        end;\r\n      end;\r\n    2:\r\n      if AValue <> FMinHeight then\r\n      begin\r\n        FMinHeight := AValue;\r\n//        if not FControl.FIScaling then\r\n        begin\r\n          if (FMaxHeight > 0) and (AValue > FMaxHeight) then\r\n            FMaxHeight := AValue;\r\n          Change;\r\n        end;\r\n      end;\r\n    3:\r\n      if AValue <> FMinWidth then\r\n      begin\r\n        FMinWidth := AValue;\r\n //       if not FControl.FIScaling then\r\n        begin\r\n          if (FMaxWidth > 0) and (AValue > FMaxWidth) then\r\n            FMaxWidth := AValue;\r\n          Change;\r\n        end;\r\n      end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomSizeConstraints.Change;\r\nbegin\r\n  if Assigned(FOnChange) then\r\n    FOnChange(Self);\r\nend;\r\n\r\n{ TDragDockObject }\r\n\r\nconstructor TDragDockObject.Create(AControl: TControl);\r\nbegin\r\n  inherited Create;\r\n  FBrush := TBrush.Create;\r\nend;\r\n\r\ndestructor TDragDockObject.Destroy;\r\nbegin\r\n  FBrush.Free;\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TDragDockObject.Assign(Source: TDragObject);\r\nbegin\r\nend;\r\n\r\nprocedure TFramePreviewForm.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  FFrame.SetParentComponent(Self);\r\n  FFrame.LoadFromForm;\r\n  FFrame.BeforeLoadDFMValues;\r\n  try\r\n    FFrame.Name := 'Frame1';\r\n    FFrame.Left := 0;\r\n    FFrame.Top := 0;\r\n    FFrame.Width := 640;\r\n    FFrame.Height := 480;\r\n  finally\r\n    FFrame.AfterLoadDFMValues;\r\n  end;\r\n\r\n  Name := 'Form1';\r\n  Left := 0;\r\n  Top := 0;\r\n  Width := 640;\r\n  Height := 480;\r\nend;\r\n\r\nfunction Sleep(milliseconds: cardinal): TJSPromise;\r\nbegin\r\n  Result := TJSPromise.New(\r\n  procedure(resolve,reject : TJSPromiseResolver)\r\n  begin\r\n    window.setTimeout(\r\n    procedure()\r\n    begin\r\n      resolve(milliseconds);\r\n    end,\r\n    milliseconds);\r\n  end);\r\nend;\r\n\r\n\r\ninitialization\r\nbegin\r\n  HandShakeScript := TJSHTMLScriptElement(document.createElement('script'));\r\n  HandShakeScript.id := 'HandShakeScript';\r\n  HandShakeScript.type_ := 'text/javascript';\r\n  HandShakeScript.innerHTML :=\r\n  'var IDE = null;'+#13#10+\r\n  'var TMSWEBCoreClientIdentifier = \"unknown\";'+#13#10+\r\n  'var TMSWEBCoreOAuthCallback = \"unknown\";'+#13#10+\r\n  'function HandShake(cid){'+#13#10+\r\n  '  TMSWEBCoreClientIdentifier = cid;'+#13#10+\r\n  '}';\r\n  document.body.appendChild(HandShakeScript);\r\n  Application := TApplication.Create(nil);\r\nend;\r\n\r\nend.\r\n\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.StdCtrls;\r\n\r\n{$DEFINE NOPP}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, WEBLib.Controls, SysUtils, Web, WEBLib.Graphics, Types, WEBlib.WebTools,\r\n  WEBLib.Forms, WEBLib.Menus;\r\n\r\ntype\r\n  Single = Double;\r\n  TEditCharCase = (wecLowerCase, wecNormal, wecMixedCase, wecUpperCase);\r\n  TCheckBoxState = (cbChecked, cbGrayed, cbUnchecked);\r\n  TDateTimeKind = (dtkDate, dtkTime);\r\n  TEllipsisPosition = (epEndEllipsis, epNone, epPathEllipsis, epWordEllipsis);\r\n  TTextLayout = (tlTop, tlCenter, tlBottom);\r\n  TSysLinkType = (sltID, sltURL);\r\n\r\n  TLeftRight = TAlignment;\r\n\r\n  TAutoCompletion = (acOff,acHonorificPrefix, acGivenName, acAdditionalName, acFamilyName, acHonorificSuffix,\r\n    acNickName, acEmail, acUserName, acNewPassword, acCurrentPassword, acOrganizationTitle, acOrganization,\r\n    acStreetAddress, acAddressLine1, acAddressLine2, acAddressLine3, acAddressLevel1, acAddressLevel2,\r\n    acAddressLevel3, acAddressLevel4, acCountry, acCountryName, acPostalCode, acCCName, acCCGivenName,\r\n    acCCAdditionalName, acCCFamilyName, acCCNumber, acExpiry, acExpiryMonth, acExpiryYear, acCSC,\r\n    acType, acTransactionCurrency, acTransactionAmount, acLanguage, acBirthday, acBirthdayDay,\r\n    acBirthDayMonth, acBirthDayYear, acSex, acTelephone, acTelephoneCountryCode, acTelephoneNational,\r\n    acTelephoneAreaCode, acTelephoneLocal, acTelephoneExtension, acIMPP, acURL, acPhoto, acNone, acNope);\r\n\r\n  TEditType = (weString, weFloat, weHex, weNumeric, weSignedFloat, weSignedNumeric, weSearch);\r\n\r\n  THTMLType = (tLABELTAG, tSPAN, tDIV, tH1,tH2, tH3, tH4, tH5, tH6, tP);\r\n\r\n  TLinkClickEvent = procedure(Sender: TObject; Link: string; LinkType: TSysLinkType) of object;\r\n\r\n  TCustomLabel = class(TWebCustomControl)\r\n  private\r\n    FContent: TJSElement;\r\n    FAutoSize: boolean;\r\n    FEllipsisPosition: TEllipsisPosition;\r\n    FWordWrap: Boolean;\r\n    FAlignment: TAlignment;\r\n    FLayout: TTextLayout;\r\n    FTransparent: boolean;\r\n    FHTMLType: THTMLType;\r\n    FFocusControl: TWinControl;\r\n    FShowAccelChar: boolean;\r\n    FColor: TColor;\r\n    FHasAccel: boolean;\r\n    FHasHTML: boolean;\r\n    FElementLabelClassName: TElementClassName;\r\n    FOrigWidth: integer;\r\n    FOldWidth, FOldHeight: integer;\r\n    FHTML: string;\r\n    procedure SetLayout(const Value: TTextLayout);\r\n    procedure SetAlignment(const Value: TAlignment);\r\n    function GetContentHandle: TJSHTMLElement;\r\n    procedure SetTransparent(const Value: boolean);\r\n    procedure SetHTMLType(const Value: THTMLType);\r\n    procedure SetColorEx(const Value: TColor);\r\n    procedure SetElementLabelClassName(const Value: TElementClassName);\r\n    procedure SetHTML(const Value: string);\r\n  protected\r\n    procedure SetWidth(AValue: Integer); override;\r\n    function CreateElement: TJSElement; override;\r\n    function CreateLabelElement: TJSElement; virtual;\r\n    function GetDisplayText: string; virtual;\r\n    function CanShowFocus: boolean; override;\r\n    procedure SetParent(AValue: TControl); override;\r\n    procedure BindElement; override;\r\n    procedure Loaded; override;\r\n    procedure UpdateAutoSize; virtual;\r\n    procedure UpdateElementData; override;\r\n    procedure UpdateElementVisual; override;\r\n    procedure UpdateElementSize; override;\r\n    procedure SetAutoSize(AValue: boolean);\r\n    procedure SetCaption(const AValue: string); override;\r\n    procedure SetControlCursor(const Value: TCursor); override;\r\n    procedure SetEllipsisPosition(AValue: TEllipsisPosition);\r\n    property ContentHandle: TJSHTMLElement read GetContentHandle;\r\n    property Alignment: TAlignment read FAlignment write SetAlignment default taLeftJustify;\r\n    property AutoSize: boolean read FAutoSize write SetAutoSize default true;\r\n    property ElementLabelClassName: TElementClassName read FElementLabelClassName write SetElementLabelClassName;\r\n    property EllipsisPosition: TEllipsisPosition read FEllipsisPosition write SetEllipsisPosition default epNone;\r\n    property FocusControl: TWinControl read FFocusControl write FFocusControl;\r\n    property Layout: TTextLayout read FLayout write SetLayout default tlTop;\r\n    property ShowAccelChar: boolean read FShowAccelChar write FShowAccelChar default true;\r\n    property Transparent: boolean read FTransparent write SetTransparent default true;\r\n    property WordWrap: Boolean read FWordWrap write FWordWrap default false;\r\n    property HTML: string read FHTML write SetHTML;\r\n    property HTMLType: THTMLType read FHTMLType write SetHTMLType default tLABELTAG;\r\n    property Color: TColor read FColor write SetColorEx default clWhite;\r\n    function GetWidth: Integer; override;\r\n    function GetHeight: Integer; override;\r\n    procedure InitCSSLibrary(ALibrary: TCSSLibrary); override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n  end;\r\n\r\n  TLabel = class(TCustomLabel)\r\n  published\r\n    property Align;\r\n    property Alignment;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property AutoSize;\r\n    property Caption;\r\n    property ChildOrder;\r\n    property Color;\r\n    property DragMode;\r\n    property EllipsisPosition;\r\n    property Enabled;\r\n    property ElementClassName;\r\n    property ElementLabelClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property FocusControl;\r\n    property Font;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property HTML;\r\n    property HTMLType;\r\n    property Layout;\r\n    property Left;\r\n    property Margins;\r\n    property ParentFont;\r\n    property PopupMenu;\r\n    property ShowAccelChar;\r\n    property ShowHint;\r\n    property TextDirection;\r\n    property Top;\r\n    property Transparent;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property WordWrap;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnTouchStart;\r\n    property OnTouchEnd;\r\n    property OnTouchMove;\r\n    property OnTouchCancel;\r\n    property OnDragOver;\r\n    property OnDragDrop;\r\n    property OnStartDrag;\r\n    property OnEndDrag;\r\n  end;\r\n\r\n  TWebLabel = class(TLabel);\r\n\r\n  TCustomInput = class(TWebCustomControl)\r\n  private\r\n  protected\r\n    function IsInputControl: Boolean; override;\r\n    function GetInputType: string; virtual;\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElementVisual; override;\r\n    procedure LoadState(AState: string); override;\r\n    function SaveState: string; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n  end;\r\n\r\n  TCustomEdit = class(TCustomInput)\r\n  private\r\n    FCharCase: TEditCharCase;\r\n    FMaxLength: integer;\r\n    FReadOnly: Boolean;\r\n    FText: string;\r\n    FTextHint: string;\r\n    FSelStart: Integer;\r\n    FAlignment: TAlignment;\r\n    FHideSelection: Boolean;\r\n    FPasswordChar: Char;\r\n    FOnChange: TNotifyEvent;\r\n    FAutoSize: Boolean;\r\n    FAutoSelect: Boolean;\r\n    FSelLength: Integer;\r\n    FNumeric: Boolean;\r\n    FAutoCompletion: TAutoCompletion;\r\n    FEditType: TEditType;\r\n    FRequired: Boolean;\r\n    FAutoFocus: boolean;\r\n    FPattern: string;\r\n    FHandlePastePtr: pointer;\r\n    FHandleCutPtr: pointer;\r\n    FHandleChangePtr: pointer;\r\n    FHandleInvalidPtr: pointer;\r\n    FHandleSearchPtr: pointer;\r\n    FSpellCheck: boolean;\r\n    FRequiredText: string;\r\n    FOnSearch: TNotifyEvent;\r\n    procedure SetAlignment(const Value: TAlignment);\r\n    procedure SetHideSelection(const Value: Boolean);\r\n    procedure SetAutoSelect(const Value: Boolean);\r\n    procedure SetAutoSize(const Value: Boolean);\r\n    procedure SetSelLength(const Value: Integer);\r\n    procedure SetSelStart(const Value: Integer);\r\n    procedure SetPasswordChar(const Value: Char);\r\n    procedure SetNumeric(const Value: Boolean);\r\n    procedure SetAutoCompletion(const Value: TAutoCompletion);\r\n    procedure SetAutoFocus(const Value: boolean);\r\n    procedure SetRequired(const Value: Boolean);\r\n    procedure SetPattern(const Value: string);\r\n    function GetSelLength: Integer;\r\n    function GetSelStart: Integer;\r\n    procedure SetEditType(const Value: TEditType);\r\n    function GetSelText: string;\r\n    procedure SetSpellCheck(const Value: boolean);\r\n  protected\r\n    function GetElementInputHandle: TJSHTMLInputElement; virtual;\r\n    function DoHandlePaste(Event: TEventListenerEvent): Boolean; virtual;\r\n    function DoHandleCut(Event: TEventListenerEvent): Boolean; virtual;\r\n    function DoHandleChange(Event: TEventListenerEvent): Boolean; virtual;\r\n    function DoHandleInvalid(Event: TJSEvent): Boolean; virtual;\r\n    function DoHandleSearch(Event: TJSEvent): Boolean; virtual;\r\n    function IsCustomEditor: Boolean; virtual;\r\n    procedure KeyPress(var Key: Char); override;\r\n    procedure DoEnter; override;\r\n    function GetInputType: string; override;\r\n    procedure PersistinHTML; override;\r\n    function GetText: string;\r\n    function GetDisplayText: string; virtual;\r\n    function IsReadOnly: boolean; virtual;\r\n    function Validate(AValue: string): boolean; virtual;\r\n    procedure ClearMethodPointers; override;\r\n    procedure GetMethodPointers; override;\r\n    procedure BindEvents; override;\r\n    procedure UnBindEvents; override;\r\n    procedure UpdateElementData; override;\r\n    procedure SetCharCase(AValue: TEditCharCase); virtual;\r\n    procedure SetMaxLength(AValue: integer);\r\n    procedure SetReadOnly(AValue: boolean);\r\n    procedure SetText(AValue: string);\r\n    procedure SetTextHint(AValue: string);\r\n    function CanPaste(AValue: string): boolean; virtual;\r\n    function CanCut: boolean; virtual;\r\n    property Font;\r\n    property AutoCompletion: TAutoCompletion read FAutoCompletion write SetAutoCompletion default acOff;\r\n    property AutoFocus: boolean read FAutoFocus write SetAutoFocus default false;\r\n    property Color;\r\n    property BorderStyle;\r\n    property HideSelection: Boolean read FHideSelection write SetHideSelection;\r\n    property CharCase: TEditCharCase read FCharCase write SetCharCase default wecNormal;\r\n    property MaxLength: integer read FMaxLength write SetMaxLength default 0;\r\n    property Numeric: Boolean read FNumeric write SetNumeric default false;\r\n    property PasswordChar: Char read FPasswordChar write SetPasswordChar default #0;\r\n    property Pattern: string read FPattern write SetPattern;\r\n    property ReadOnly: Boolean read FReadOnly write SetReadOnly default false;\r\n    property Required: Boolean read FRequired write SetRequired default false;\r\n    property RequiredText: string read FRequiredText write FRequiredText;\r\n    property TextHint: string read FTextHint write SetTextHint;\r\n    property AutoSize: Boolean read FAutoSize write SetAutoSize default false;\r\n    property AutoSelect: Boolean read FAutoSelect write SetAutoSelect default true;\r\n    property Alignment: TAlignment read FAlignment write SetAlignment;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnSearch: TNotifyEvent read FOnSearch write FOnSearch;\r\n    procedure InitCSSLibrary(ALibrary: TCSSLibrary); override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    property SelStart: Integer read GetSelStart write SetSelStart;\r\n    property SelLength: Integer read GetSelLength write SetSelLength;\r\n    procedure Clear;\r\n    procedure ClearSelection;\r\n    procedure Change; virtual;\r\n    procedure SelectAll;\r\n    procedure CopyToClipboard;\r\n    procedure SetSelection(ASelStart, ASelLength: integer);\r\n    property Text: string read GetText write SetText;\r\n    property SelText: string read GetSelText;\r\n    property SpellCheck: boolean read FSpellCheck write SetSpellCheck default true;\r\n    property EditType: TEditType read FEditType write SetEditType default weString;\r\n    property ElementInputHandle: TJSHTMLInputElement read GetElementInputHandle;\r\n  end;\r\n\r\n  TEdit = class(TCustomEdit)\r\n  published\r\n    property Alignment;\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property AutoCompletion;\r\n    property AutoFocus;\r\n    property AutoSize;\r\n    property AutoSelect;\r\n    property BiDiMode;\r\n    property BorderStyle;\r\n    property Center;\r\n    property CharCase;\r\n    property ChildOrder;\r\n    property Color;\r\n    property DragMode;\r\n    property EditType;\r\n    property ElementClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Font;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property HideSelection;\r\n    property Left;\r\n    property ParentFont;\r\n    property PasswordChar;\r\n    property Pattern;\r\n    property Margins;\r\n    property MaxLength;\r\n    property PopupMenu;\r\n    property ReadOnly;\r\n    property Required;\r\n    property RequiredText;\r\n    property ShowFocus;\r\n    property ShowHint;\r\n    property SpellCheck;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property Text;\r\n    property TextDirection;\r\n    property TextHint;\r\n    property Top;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnChange;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnSearch;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebEdit = class(TEdit);\r\n\r\n  TSpinEdit = class(TCustomInput)\r\n  private\r\n    FIncrement: integer;\r\n    FMaxValue: integer;\r\n    FMinValue: integer;\r\n    FValue: integer;\r\n    FAutoSize: Boolean;\r\n    FOnChange: TNotifyEvent;\r\n    FReadOnly: boolean;\r\n    FHandleChangePtr: pointer;\r\n    FHandleInvalidPtr: pointer;\r\n    FRequiredText: string;\r\n    FRequired: Boolean;\r\n    function GetText: string;\r\n    procedure SetText(const Value: string);\r\n    function GetElementInputHandle: TJSHTMLInputElement;\r\n    procedure SetReadOnly(const Value: boolean);\r\n    procedure SetRequired(const Value: Boolean);\r\n  protected\r\n    procedure KeyPress(var Key: Char); override;\r\n    procedure PersistinHTML; override;\r\n    function GetInputType: string; override;\r\n    procedure UpdateElementData; override;\r\n    function GetValue: integer;\r\n    procedure SetIncrement(AValue: integer);\r\n    procedure SetMaxValue(AValue: integer);\r\n    procedure SetMinValue(AValue: integer);\r\n    procedure SetValue(AValue: integer);\r\n    function DoHandleChange(Event: TEventListenerEvent): Boolean;\r\n    function DoHandleInvalid(Event: TJSEvent): Boolean; virtual;\r\n    function IsReadOnly: boolean; virtual;\r\n    function GetDisplayText: string; virtual;\r\n    procedure BindEvents; override;\r\n    procedure UnBindEvents; override;\r\n    procedure Change; virtual;\r\n    procedure ClearMethodPointers; override;\r\n    procedure GetMethodPointers; override;\r\n    procedure InitCSSLibrary(ALibrary: TCSSLibrary); override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    property ElementInputHandle: TJSHTMLInputElement read GetElementInputHandle;\r\n    property Text: string read GetText write SetText;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property AutoSize: Boolean read FAutoSize write FAutoSize;\r\n    property BiDiMode;\r\n    property BorderStyle;\r\n    property ChildOrder;\r\n    property Color;\r\n    property DragMode;\r\n    property ElementClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Font;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property Increment: integer read FIncrement write SetIncrement;\r\n    property Left;\r\n    property Margins;\r\n    property MaxValue: integer read FMaxValue write SetMaxValue default 100;\r\n    property MinValue: integer read FMinValue write SetMinValue default 0;\r\n    property ParentFont;\r\n    property ReadOnly: boolean read FReadOnly write SetReadOnly default false;\r\n    property Required: Boolean read FRequired write SetRequired default false;\r\n    property RequiredText: string read FRequiredText write FRequiredText;\r\n    property Role;\r\n    property ShowFocus;\r\n    property ShowHint;\r\n    property TabStop;\r\n    property TabOrder;\r\n    property TextDirection;\r\n    property Value: integer read GetValue write SetValue;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebSpinEdit = class(TSpinEdit);\r\n\r\n  TDateTimePicker = class(TCustomInput)\r\n  private\r\n    FDate: TDate;\r\n    FTime: TTime;\r\n    FKind: TDateTimeKind;\r\n    FOnChange: TNotifyEvent;\r\n    FReadOnly: Boolean;\r\n    FElementCheck: TJSHTMLElement;\r\n    FElementPicker: TJSHTMLElement;\r\n    FShowCheckBox: boolean;\r\n    FClickPtr: pointer;\r\n    FHandleChangePtr: pointer;\r\n    FFocusPtr: pointer;\r\n    FBlurPtr: pointer;\r\n    FChecked: boolean;\r\n    FShowSeconds: boolean;\r\n    FAutoDropDown: boolean;\r\n    FIsBootstrap: boolean;\r\n    FMax: TDateTime;\r\n    FMin: TDateTime;\r\n    procedure SetDate(AValue: TDate);\r\n    function GetDate: TDate;\r\n    procedure SetTime(AValue: TTime);\r\n    function GetTime: TTime;\r\n    procedure SetKind(AValue: TDateTimeKind);\r\n    procedure SetText(const Value: String);\r\n    function GetText: String;\r\n    procedure SetReadOnly(const Value: boolean);\r\n    procedure SetShowCheckBox(const Value: boolean);\r\n    procedure SetChecked(const Value: boolean);\r\n    function GetDateTime: TDateTime;\r\n    procedure SetDateTime(const Value: TDateTime);\r\n    procedure SetShowSeconds(const Value: boolean);\r\n    procedure SetMax(const Value: TDateTime);\r\n    procedure SetMin(const Value: TDateTime);\r\n  protected\r\n    function DoCheckClick(Event: TEventListenerEvent): Boolean;\r\n    function DoPickerFocus(Event: TEventListenerEvent): Boolean;\r\n    function DoPickerBlur(Event: TEventListenerEvent): Boolean;\r\n    function DoHandleChange(Event: TEventListenerEvent): Boolean;\r\n    function HandleDoEnter(Event: TJSFocusEvent): Boolean; override;\r\n    function GetElementBindHandle: TJSEventTarget; override;\r\n    procedure BindEvents; override;\r\n    procedure UnBindEvents; override;\r\n    procedure UpdateElementData; override;\r\n    procedure UpdateElementVisual; override;\r\n    function CreateElement: TJSElement; override;\r\n    function GetInputType: string; override;\r\n    procedure Change; virtual;\r\n    function IsReadOnly: boolean; virtual;\r\n    procedure ClearMethodPointers; override;\r\n    procedure GetMethodPointers; override;\r\n    function GetElementPicker: TJSHTMLElement;\r\n    procedure SetEnabled(Value: Boolean); override;\r\n    procedure InitCSSLibrary(ALibrary: TCSSLibrary); override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    procedure Clear;\r\n    property DateTime: TDateTime read GetDateTime write SetDateTime;\r\n    procedure SetFocus; override;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property AutoDropDown: boolean read FAutoDropDown write FAutoDropDown default false;\r\n    property BorderStyle;\r\n    property Checked: boolean read FChecked write SetChecked default false;\r\n    property ChildOrder;\r\n    property Color;\r\n    property Date: TDate read GetDate write SetDate;\r\n    property DragMode;\r\n    property ElementClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Font;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property Kind: TDateTimeKind read FKind write SetKind;\r\n    property Left;\r\n    property Margins;\r\n    property Max: TDateTime read FMax write SetMax;\r\n    property Min: TDateTime read FMin write SetMin;\r\n    property ParentFont;\r\n    property ReadOnly: boolean read FReadOnly write SetReadOnly default false;\r\n    property Role;\r\n    property ShowCheckBox: boolean read FShowCheckBox write SetShowCheckBox default false;\r\n    property ShowFocus;\r\n    property ShowHint;\r\n    property ShowSeconds: boolean read FShowSeconds write SetShowSeconds default true;\r\n    property TabStop;\r\n    property TabOrder;\r\n    property Text: String read GetText write SetText;\r\n    property TextDirection;\r\n    property Time: TTime read GetTime write SetTime;\r\n    property Top;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnClick;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    property OnDblClick;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebDateTimePicker = class(TDateTimePicker);\r\n\r\n  TButton = class(TWebCustomControl)\r\n  private\r\n    FModalResult: TModalResult;\r\n    FDefault: Boolean;\r\n    FCancel: Boolean;\r\n    FButtonType: string;\r\n    procedure SetButtonType(const Value: string);\r\n    procedure SetDefault(const Value: Boolean);\r\n  protected\r\n    function CreateElement: TJSElement; override;\r\n    procedure SetCaption(const AValue: string); override;\r\n    procedure UpdateElementData; override;\r\n    procedure UpdateElementVisual; override;\r\n    procedure HandleKeyPreview(Key: Word); override;\r\n    procedure InitCSSLibrary(ALibrary: TCSSLibrary); override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    procedure Click; override;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property BiDiMode;\r\n    property BorderStyle;\r\n    property ButtonType: string read FButtonType write SetButtonType;\r\n    property Caption;\r\n    property Cancel: Boolean read FCancel write FCancel default false;\r\n    property Center;\r\n    property ChildOrder;\r\n    property Color;\r\n    property Default: Boolean read FDefault write SetDefault default false;\r\n    property DragMode;\r\n    property ElementClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Font;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property Left;\r\n    property Margins;\r\n    property ModalResult: TModalResult read FModalResult write FModalResult default mrNone;\r\n    property PopupMenu;\r\n    property Role;\r\n    property ParentFont;\r\n    property ShowHint;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property TextDirection;\r\n    property Top;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnClick;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebButton = class(TButton);\r\n\r\n  TCheckBox = class(TWebCustomControl)\r\n  private\r\n    FChecked: boolean;\r\n    FState: TCheckBoxState;\r\n    FElementButtonClassName: TElementClassName;\r\n    FElementLabelClassName: TElementClassName;\r\n    FOnCheckClick: TNotifyEvent;\r\n    FAlignment: TAlignment;\r\n    procedure SetAlignment(const Value: TAlignment);\r\n  protected\r\n    procedure Loaded; override;\r\n    procedure UpdateElementData; override;\r\n    procedure UpdateElementSize; override;\r\n    procedure UpdateElementVisual; override;\r\n    procedure PersistinHTML; override;\r\n    function CreateElement: TJSElement; override;\r\n    procedure SetChecked(AValue: boolean);\r\n    function GetChecked: boolean;\r\n    procedure SetState(AValue: TCheckBoxState);\r\n    function GetState: TCheckBoxState;\r\n    procedure SetCaption(const AValue: string); override;\r\n    procedure SetEnabled(Value: boolean); override;\r\n    function HandleLabelClick(Event: TJSMouseEvent): Boolean; virtual;\r\n    function HandleCheckClick(Event: TJSMouseEvent): Boolean; virtual;\r\n    procedure Click; override;\r\n    procedure DoCheckClick; virtual;\r\n    function GetCheckElement: TJSHTMLElement;\r\n    procedure KeyPress(var ch: char); override;\r\n    procedure LoadState(AState: string); override;\r\n    function SaveState: string; override;\r\n    property OnCheckClick: TNotifyEvent read FOnCheckClick write FOnCheckClick;\r\n    procedure InitCSSLibrary(ALibrary: TCSSLibrary); override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n  published\r\n    property Align;\r\n    property Alignment: TAlignment read FAlignment write SetAlignment default taRightJustify;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property Caption;\r\n    property Checked: boolean read GetChecked write SetChecked default False;\r\n    property ChildOrder;\r\n    property Color default clNone;\r\n    property DragMode;\r\n    property ElementClassName;\r\n    property ElementButtonClassName: TElementClassName read FElementButtonClassName write FElementButtonClassName;\r\n    property ElementLabelClassName: TElementClassName read FElementLabelClassName write FElementLabelClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Font;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property Left;\r\n    property Margins;\r\n    property ParentFont;\r\n    property PopupMenu;\r\n    property Role;\r\n    property ShowFocus;\r\n    property ShowHint;\r\n    property State: TCheckBoxState read GetState write SetState default cbUnchecked;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property Top;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnClick;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebCheckBox = class(TCheckBox);\r\n\r\n  TRadioButton = class(TWebCustomControl)\r\n  private\r\n    FChecked: boolean;\r\n    FGroupName: string;\r\n    FElementButtonClassName: TElementClassName;\r\n    FElementLabelClassName: TElementClassName;\r\n  protected\r\n    procedure PersistInHTML; override;\r\n    function CreateElement: TJSElement; override;\r\n    procedure SetChecked(AValue: boolean);\r\n    function GetChecked: boolean;\r\n    procedure SetEnabled(Value: boolean); override;\r\n    procedure SetCaption(const AValue: string); override;\r\n    procedure SetGroupName(AValue: string);\r\n    function HandleLabelClick(Event: TJSMouseEvent): Boolean; virtual;\r\n    function HandleRadioClick(Event: TJSMouseEvent): Boolean; virtual;\r\n    procedure UpdateElementSize; override;\r\n    procedure UpdateElementData; override;\r\n    procedure UpdateElementVisual; override;\r\n    function GetRadioElement: TJSHTMLElement;\r\n    procedure Keypress(var ch: Char); override;\r\n    procedure LoadState(AState: string); override;\r\n    function SaveState: string; override;\r\n    procedure InitCSSLibrary(ALibrary: TCSSLibrary); override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property Caption;\r\n    property Checked: boolean read GetChecked write SetChecked default false;\r\n    property ChildOrder;\r\n    property Color default clNone;\r\n    property DragMode;\r\n    property ElementClassName;\r\n    property ElementButtonClassName: TElementClassName read FElementButtonClassName write FElementButtonClassName;\r\n    property ElementLabelClassName: TElementClassName read FElementLabelClassName write FElementLabelClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Font;\r\n    property GroupName: string read FGroupName write SetGroupName;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property Left;\r\n    property ParentFont;\r\n    property PopupMenu;\r\n    property Role;\r\n    property ShowFocus;\r\n    property ShowHint;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebRadioButton = class(TRadioButton);\r\n\r\n  TListBox = class(TWebCustomControl)\r\n  private\r\n    FItems: TStrings;\r\n    FItemIndex: integer;\r\n    FMultiSelect: boolean;\r\n    FSelected: TList;\r\n    FItemHeight: Integer;\r\n    FSorted: Boolean;\r\n    FOnChange: TNotifyEvent;\r\n    FHandleChangePtr: pointer;\r\n    FElementItemClassName: string;\r\n    procedure SetItemHeight(const Value: Integer);\r\n    procedure SetSorted(const Value: Boolean);\r\n    function GetCount: Integer;\r\n    function GetElementSelectHandle: TJSHTMLSelectElement;\r\n    function GetSelCount: integer;\r\n    function GetValues(AIndex: integer): string;\r\n    procedure SetValues(AIndex: integer; const Value: string);\r\n  protected\r\n    function DoHandleChange(Event: TEventListenerEvent): Boolean;\r\n    procedure DoItemsChange(Sender: TObject);\r\n    procedure DoUpdateList; virtual;\r\n    procedure PersistinHTML; override;\r\n    function GetItemIndex: integer; virtual;\r\n    function CreateElement: TJSElement; override;\r\n    function GetSelected(AIndex: integer): boolean;\r\n    procedure SetSelected(AIndex: Integer; AValue: boolean);\r\n    procedure SetItems(AItems: TStrings);\r\n    procedure SetItemIndex(AIndex: integer); virtual;\r\n    procedure SetMultiSelect(AValue: boolean);\r\n    procedure Loaded; override;\r\n    procedure UpdateElementData; override;\r\n    procedure UpdateElementVisual; override;\r\n    procedure UpdateParent; override;\r\n    procedure BindEvents; override;\r\n    procedure UnBindEvents; override;\r\n    procedure Change; virtual;\r\n    function SaveState: string; override;\r\n    procedure LoadState(AState: string); override;\r\n    procedure EnableDrag; override;\r\n    procedure DisableDrag; override;\r\n    procedure ClearMethodPointers; override;\r\n    procedure GetMethodPointers; override;\r\n    procedure InitCSSLibrary(ALibrary: TCSSLibrary); override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure EndUpdate; override;\r\n    procedure ClearSelection;\r\n    procedure SelectAll;\r\n    procedure DeleteSelected;\r\n    property Sorted: Boolean read FSorted write SetSorted;\r\n    property Count: Integer read GetCount;\r\n    property SelCount: integer read GetSelCount;\r\n    property ElementSelectHandle: TJSHTMLSelectElement read GetElementSelectHandle;\r\n    procedure AddItem(Item: string; AObject: TObject);\r\n    property Selected[i: Integer]: boolean read GetSelected write SetSelected;\r\n    property Values[AIndex: integer]: string read GetValues write SetValues;\r\n    procedure Clear;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property BiDiMode;\r\n    property BorderStyle;\r\n    property ChildOrder;\r\n    property Color;\r\n    property DragMode;\r\n    property Font;\r\n    property ElementClassName;\r\n    property ElementItemClassName: string read FElementItemClassName write FElementItemClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property ItemHeight: Integer read FItemHeight write SetItemHeight;\r\n    property ItemIndex: integer read GetItemIndex write SetItemIndex default -1;\r\n    property Items: TStrings read FItems write SetItems;\r\n    property Left;\r\n    property MultiSelect: boolean read FMultiSelect write SetMultiSelect;\r\n    property ParentColor;\r\n    property ParentFont;\r\n    property PopupMenu;\r\n    property Role;\r\n    property ShowFocus;\r\n    property ShowHint;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property TextDirection;\r\n    property Top;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnMouseWheel;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebListBox = class(TListBox);\r\n\r\n  TComboBoxStyle = (csDropDownList, csDropDown);\r\n\r\n  TCustomComboBox = class(TWebCustomControl)\r\n  private\r\n    FItems: TStrings;\r\n    FItemIndex: integer;\r\n    FStyle: TComboBoxStyle;\r\n    FDroppedDown: Boolean;\r\n    FOnChange: TNotifyEvent;\r\n    FTextHint: string;\r\n    FListName: string;\r\n    FText: string;\r\n    FHandleChangePtr: pointer;\r\n    FHandleInputPtr: pointer;\r\n    FHandleFocusInPtr: pointer;\r\n    FHandleFocusOutPtr: pointer;\r\n    FOnFocusOut: TNotifyEvent;\r\n    FOnFocusIn: TNotifyEvent;\r\n    FRequired: boolean;\r\n    FRequiredText: string;\r\n    FHandleInvalidPtr: pointer;\r\n    FSorted: boolean;\r\n    function GetText: string;\r\n    procedure SetText(const Value: string);\r\n    procedure SetStyle(const Value: TComboBoxStyle);\r\n    procedure SetDroppedDown(const Value: Boolean);\r\n    function GetElementSelectHandle: TJSHTMLSelectElement;\r\n    procedure SetTextHint(const Value: string);\r\n    function GetValues(AIndex: integer): string;\r\n    procedure SetValues(AIndex: integer; const Value: string);\r\n    procedure SetRequired(const Value: boolean);\r\n    procedure SetSorted(const Value: boolean);\r\n  protected\r\n    function DoHandleChange(Event: TEventListenerEvent): Boolean; virtual;\r\n    function DoHandleInput(Event: TEventListenerEvent): Boolean; virtual;\r\n    function DoHandleFocusIn(Event: TEventListenerEvent): Boolean; virtual;\r\n    function DoHandleFocusOut(Event: TEventListenerEvent): Boolean; virtual;\r\n    function DoHandleInvalid(Event: TJSEvent): Boolean; virtual;\r\n    procedure DoItemsChange(Sender: TObject);\r\n    procedure ClearMethodPointers; override;\r\n    procedure GetMethodPointers; override;\r\n    procedure AddTextHint; virtual;\r\n    procedure DoUpdateList; virtual;\r\n    procedure LoadState(AState: string); override;\r\n    function SaveState: string; override;\r\n    function GetItemIndex: integer;\r\n    function CreateElement: TJSElement; override;\r\n    procedure BindEvents; override;\r\n    procedure UnBindEvents; override;\r\n    procedure UpdateElementData; override;\r\n    procedure UpdateElementVisual; override;\r\n    procedure UpdateParent; override;\r\n    procedure SetItems(AItems: TStrings);\r\n    procedure SetItemIndex(AIndex: integer);\r\n    procedure Loaded; override;\r\n    procedure Change; virtual;\r\n    procedure PersistinHTML; override;\r\n    procedure InitCSSLibrary(ALibrary: TCSSLibrary); override;\r\n    property Items: TStrings read FItems write SetItems;\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property BiDiMode;\r\n    property BorderStyle;\r\n    property Color;\r\n    property ElementClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Font;\r\n    property Height;\r\n    property Hint;\r\n    property ItemIndex: integer read GetItemIndex write SetItemIndex default -1;\r\n    property Left;\r\n    property PopupMenu;\r\n    property Required: boolean read FRequired write SetRequired default false;\r\n    property RequiredText: string read FRequiredText write FRequiredText;\r\n    property ShowHint;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property Text: string read GetText write SetText;\r\n    property TextHint: string read FTextHint write SetTextHint;\r\n    property Top;\r\n    property Visible;\r\n    property Width;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnFocusIn: TNotifyEvent read FOnFocusIn write FOnFocusIn;\r\n    property OnFocusOut: TNotifyEvent read FOnFocusOut write FOnFocusOut;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnMouseWheel;\r\n    property OnEnter;\r\n    property OnExit;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure Clear;\r\n    procedure AddItem(Item: string; AObject: TObject);\r\n    property Values[AIndex: integer]: string read GetValues write SetValues;\r\n    property ElementSelectHandle: TJSHTMLSelectElement read GetElementSelectHandle;\r\n    property Sorted: boolean read FSorted write SetSorted;\r\n    property Style: TComboBoxStyle read FStyle write SetStyle;\r\n    property DroppedDown: Boolean read FDroppedDown write SetDroppedDown;\r\n  end;\r\n\r\n  TComboBox = class(TCustomComboBox)\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property BiDiMode;\r\n    property BorderStyle;\r\n    property ChildOrder;\r\n    property Color;\r\n    property DragMode;\r\n    property ElementClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Font;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property ItemIndex;\r\n    property Items;\r\n    property Left;\r\n    property OnFocusIn;\r\n    property OnFocusOut;\r\n    property ParentFont;\r\n    property Required;\r\n    property RequiredText;\r\n    property Role;\r\n    property ShowFocus;\r\n    property ShowHint;\r\n    property Style;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property Text;\r\n    property TextDirection;\r\n    property TextHint;\r\n    property Top;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnChange;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebComboBox = class(TComboBox);\r\n\r\n  TFontPicker = class(TCustomComboBox)\r\n  public\r\n    procedure CreateInitialize; override;\r\n    property Items;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Color;\r\n    property ElementClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Font;\r\n    property Height;\r\n    property Hint;\r\n    property ItemIndex;\r\n    property Left;\r\n    property ShowHint;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property Text;\r\n    property Top;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property OnChange;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnEnter;\r\n    property OnExit;\r\n  end;\r\n\r\n  TWebFontPicker = class(TFontPicker);\r\n\r\n  TFontSizePickerMode = (fmPointSize, fmRelativeSize);\r\n\r\n  TFontSizePicker = class(TCustomComboBox)\r\n  private\r\n    FPickerMode: TFontSizePickerMode;\r\n    procedure SetPickerMode(const AValue: TFontSizePickerMode);\r\n  protected\r\n    procedure Init; virtual;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    property Items;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Color;\r\n    property ElementClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Font;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property ItemIndex;\r\n    property Left;\r\n    property PickerMode: TFontSizePickerMode read FPickerMode write SetPickerMode;\r\n    property ShowHint;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property Text;\r\n    property Top;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnChange;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnEnter;\r\n    property OnExit;\r\n  end;\r\n\r\n  TLineSpacingPicker = class(TCustomComboBox)\r\n  private\r\n  protected\r\n    procedure CreateInitialize; override;\r\n  public\r\n    property Items;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Color;\r\n    property ElementClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Font;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property ItemIndex;\r\n    property Left;\r\n    property ShowHint;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property Text;\r\n    property Top;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnChange;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnEnter;\r\n    property OnExit;\r\n  end;\r\n\r\n\r\n  TWebFontSizePicker = class(TFontSizePicker);\r\n\r\n  TCaretPosition = TPoint;\r\n\r\n  TCustomMemo = class(TWebCustomControl)\r\n  private\r\n    FWordWrap: Boolean;\r\n    FBlockChange: Boolean;\r\n    FLines: TStrings;\r\n    FSelStart: Integer;\r\n    FSelLength: Integer;\r\n    FCaretPosition: TCaretPosition;\r\n    FAutoSize: Boolean;\r\n    FOnChange: TNotifyEvent;\r\n    FReadOnly: boolean;\r\n    FTextHint: string;\r\n    FHandleChangePtr: pointer;\r\n    FHandlePastePtr: pointer;\r\n    FHandleCutPtr: pointer;\r\n    FHandleInputPtr: pointer;\r\n    FHandleInvalidPtr: pointer;\r\n    FWantTabs: boolean;\r\n    FAutoCompletion: TAutoCompletion;\r\n    FSpellCheck: boolean;\r\n    FModified: boolean;\r\n    FScrollbars: TScrollStyle;\r\n    FRequiredText: string;\r\n    FRequired: Boolean;\r\n    function GetText: String;\r\n    procedure SetText(const Value: String);\r\n    procedure SetSelLength(const Value: Integer);\r\n    procedure SetSelStart(const Value: Integer);\r\n    procedure SetAutoSize(const Value: Boolean);\r\n    function GetElementInputHandle: TJSHTMLInputElement;\r\n    procedure SetReadOnly(const Value: boolean);\r\n    function GetSelLength: Integer;\r\n    function GetSelStart: Integer;\r\n    procedure SetTextHint(const Value: string);\r\n    procedure SetAutoCompletion(const Value: TAutoCompletion);\r\n    procedure SetSpellCheck(const Value: boolean);\r\n    procedure SetWantTabs(const Value: boolean);\r\n    procedure SetWordWrap(const Value: Boolean);\r\n    function GetCaretPos: TPoint;\r\n    procedure SetCaretPos(const Value: TPoint);\r\n    procedure SetScrollBars(const Value: TScrollStyle);\r\n    function GetSelText: string;\r\n    procedure SetRequired(const Value: Boolean);\r\n  protected\r\n    function IsInputControl: Boolean; override;\r\n    function HandleDoKeyDown(Event: TJSKeyBoardEvent): Boolean; override;\r\n    function CreateElement: TJSElement; override;\r\n    function DoHandlePaste(Event: TEventListenerEvent): Boolean; virtual;\r\n    function DoHandleCut(Event: TEventListenerEvent): Boolean; virtual;\r\n    function DoHandleInput(Event: TEventListenerEvent): Boolean; virtual;\r\n    function DoHandleChange(Event: TEventListenerEvent): Boolean; virtual;\r\n    function DoHandleInvalid(Event: TJSEvent): Boolean; virtual;\r\n    function IsReadOnly: boolean; virtual;\r\n    procedure PersistinHTML; override;\r\n    function GetDisplayText: string; virtual;\r\n    procedure DoAutoSize; virtual;\r\n    procedure BindEvents; override;\r\n    procedure UnBindEvents; override;\r\n    procedure UpdateElementData; override;\r\n    procedure UpdateElementVisual; override;\r\n    procedure UpdateElementSize; override;\r\n    procedure SetLines(ALines: TStrings);\r\n    procedure ClearMethodPointers; override;\r\n    procedure GetMethodPointers; override;\r\n    procedure DoLinesChange(Sender: TObject);\r\n    function CanPaste(AValue: string): boolean; virtual;\r\n    function CanCut: boolean; virtual;\r\n    function SaveState: string; override;\r\n    procedure LoadState(AState: string); override;\r\n    property Font;\r\n    property Color;\r\n    property BorderStyle;\r\n    property AutoSize: Boolean read FAutoSize write SetAutoSize;\r\n    property ReadOnly: boolean read FReadOnly write SetReadOnly;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    procedure Change; virtual;\r\n    procedure SetCaret(x,y: integer);\r\n    function GetCaret: TPoint;\r\n    procedure InitCSSLibrary(ALibrary: TCSSLibrary); override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure Clear;\r\n    procedure SelectAll;\r\n    procedure CopyToClipboard;\r\n    procedure ScrollBy(DeltaX, DeltaY: integer);\r\n    property CaretPos: TPoint read GetCaretPos write SetCaretPos;\r\n    property AutoCompletion: TAutoCompletion read FAutoCompletion write SetAutoCompletion default acOff;\r\n    property CaretPosition: TCaretPosition read FCaretPosition write FCaretPosition;\r\n    property ElementInputHandle: TJSHTMLInputElement read GetElementInputHandle;\r\n    property Lines: TStrings read FLines write SetLines;\r\n    property Modified: boolean read FModified write FModified;\r\n    property Required: Boolean read FRequired write SetRequired default false;\r\n    property RequiredText: string read FRequiredText write FRequiredText;\r\n    property Scrollbars: TScrollStyle read FScrollbars write SetScrollBars;\r\n    property SelStart: Integer read GetSelStart write SetSelStart;\r\n    property SelLength: Integer read GetSelLength write SetSelLength;\r\n    property SelText: string read GetSelText;\r\n    property Spellcheck: boolean read FSpellCheck write SetSpellCheck default true;\r\n    property Text: String read GetText write SetText;\r\n    property TextHint: string read FTextHint write SetTextHint;\r\n    property WantTabs: boolean read FWantTabs write SetWantTabs default false;\r\n    property WordWrap: Boolean read FWordWrap write SetWordWrap default true;\r\n  end;\r\n\r\n  TMemo = class(TCustomMemo)\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property AutoSize;\r\n    property BiDiMode;\r\n    property BorderStyle;\r\n    property ChildOrder;\r\n    property Color;\r\n    property DragMode;\r\n    property ElementClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Font;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property Left;\r\n    property Lines;\r\n    property Margins;\r\n    property ParentColor;\r\n    property ParentFont;\r\n    property PopupMenu;\r\n    property ReadOnly;\r\n    property Required;\r\n    property RequiredText;\r\n    property Role;\r\n    property SelStart;\r\n    property SelLength;\r\n    property ShowFocus;\r\n    property ShowHint;\r\n    property SpellCheck;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property TextDirection;\r\n    property Top;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnChange;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnMouseWheel;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebMemo = class(TMemo);\r\n\r\n  TControlGroup = class(TWebCustomControl)\r\n  private\r\n    FControls: TList;\r\n    FOldCount: integer;\r\n    FColumns: integer;\r\n    FItems: TStrings;\r\n    FOnChange: TNotifyEvent;\r\n    FElementButtonClassName: TElementClassName;\r\n    FElementLabelClassName: TElementClassName;\r\n    FElementGroupClassName: TElementClassName;\r\n    FControlPosition: TElementPosition;\r\n    FElementLegendClassName: TElementClassName;\r\n    procedure SetControlPosition(const Value: TElementPosition);\r\n  protected\r\n    function CreateElement: TJSElement; override;\r\n    function DoHandleChange(Event: TEventListenerEvent): Boolean;\r\n    procedure DoHandleClick(AControl: TCustomControl); virtual;\r\n    procedure DoItemsChange(Sender: TObject);\r\n    procedure DoControlClick(Sender: TObject);\r\n    procedure SetCaption(const AValue: string); override;\r\n    procedure SetColumns(AValue: integer);\r\n    procedure SetItems(AItems: TStrings);\r\n    procedure DoUpdateList; virtual;\r\n    procedure Change; virtual;\r\n    procedure Loaded; override;\r\n    procedure FontChanged; override;\r\n    function CreateGroupControl(ALeft, ATop, AIndex: integer; ACaption: string; APosition: TElementPosition; AState, AEnabled: boolean): TCustomControl; virtual;\r\n    function GetGroupControlState(AIndex: integer): boolean; virtual;\r\n    function GetGroupControl(AIndex: integer): TCustomControl;\r\n    procedure SetEnabled(Value: Boolean); override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure EndUpdate; override;\r\n    procedure SetHeight(AValue: Integer); override;\r\n    procedure SetWidth(AValue: Integer); override;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property Caption;\r\n    property ChildOrder;\r\n    property Columns: integer read FColumns write SetColumns;\r\n    property ControlPosition: TElementPosition read FControlPosition write SetControlPosition default epAbsolute;\r\n    property DragMode;\r\n    property ElementClassName;\r\n    property ElementButtonClassName: TElementClassName read FElementButtonClassName write FElementButtonClassName;\r\n    property ElementGroupClassName: TElementClassName read FElementGroupClassName write FElementGroupClassName;\r\n    property ElementLabelClassName: TElementClassName read FElementLabelClassName write FElementLabelClassName;\r\n    property ElementLegendClassName: TElementClassName read FElementLegendClassName write FElementLegendClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Font;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Items: TStrings read FItems write SetItems;\r\n    property Margins;\r\n    property ParentFont;\r\n    property PopupMenu;\r\n    property Role;\r\n    property TabStop;\r\n    property TabOrder;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TRadioGroup = class(TControlGroup)\r\n  private\r\n    FItemIndex: integer;\r\n    FOldItemIndex: integer;\r\n  protected\r\n    procedure DoHandleClick(AControl: TCustomControl); override;\r\n    function GetItemIndex: integer;\r\n    procedure SetItemIndex(AIndex: integer);\r\n    function CreateGroupControl(ALeft, ATop, AIndex: integer; ACaption: string; APosition: TElementPosition; AState, AEnabled: boolean): TCustomControl; override;\r\n    function GetGroupControlState(AIndex: integer): boolean; override;\r\n    procedure LoadState(AState: string); override;\r\n    function SaveState: string; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    procedure SetFocus; override;\r\n  published\r\n    property ItemIndex: integer read GetItemIndex write SetItemIndex;\r\n  end;\r\n\r\n  TWebRadioGroup = class(TRadioGroup);\r\n\r\n  TCheckClickEvent = procedure(Sender: TObject; AIndex: integer) of object;\r\n\r\n  TCheckGroup = class(TControlGroup)\r\n  private\r\n    FOnCheckClick: TCheckClickEvent;\r\n    function GetChecked(AIndex: integer): boolean;\r\n    procedure SetChecked(AIndex: integer; const Value: boolean);\r\n  protected\r\n    procedure DoHandleClick(AControl: TCustomControl); override;\r\n    function CreateGroupControl(ALeft, ATop, AIndex: integer; ACaption: string; APosition: TElementPosition; AState, AEnabled: boolean): TCustomControl; override;\r\n    function GetGroupControlState(AIndex: integer): boolean; override;\r\n    function SaveState: string; override;\r\n    procedure LoadState(AState: string); override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    property Checked[AIndex: integer]: boolean read GetChecked write SetChecked;\r\n    procedure SetFocus; override;\r\n  published\r\n    property OnCheckClick: TCheckClickEvent read FOnCheckClick write FOnCheckClick;\r\n  end;\r\n\r\n  TWebCheckGroup = class(TCheckGroup);\r\n\r\n  TColorPicker = class(TCustomInput)\r\n  private\r\n    FColor: TColor;\r\n    FOnSelect: TNotifyEvent;\r\n    FHandleChangePtr: pointer;\r\n    function GetElementInputHandle: TJSHTMLInputElement;\r\n  protected\r\n    procedure UpdateElementVisual; override;\r\n    function DoHandleChange(Event: TEventListenerEvent): Boolean;\r\n    function GetInputType: string; override;\r\n    function GetColor: TColor;\r\n    procedure SetColor(AValue: TColor); reintroduce;\r\n    procedure BindEvents; override;\r\n    procedure UnBindEvents; override;\r\n    procedure Select; virtual;\r\n    procedure ClearMethodPointers; override;\r\n    procedure GetMethodPointers; override;\r\n    procedure InitCSSLibrary(ALibrary: TCSSLibrary); override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    property ElementInputHandle: TJSHTMLInputElement read GetElementInputHandle;\r\n    property Selected: TColor read GetColor write SetColor;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property ChildOrder;\r\n    property Color: TColor read GetColor write SetColor;\r\n    property DragMode;\r\n    property ElementClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Height;\r\n    property HeightPercent;\r\n    property Left;\r\n    property Margins;\r\n    property Role;\r\n    property Top;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property OnClick;\r\n    property OnSelect: TNotifyEvent read FOnSelect write FOnSelect;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebColorPicker = class(TColorPicker);\r\n\r\n  TScrollBarContent = class(TCustomControl)\r\n  protected\r\n    function CreateElement: TJSElement; override;\r\n  end;\r\n\r\n  TScrollBarInc = Integer;\r\n\r\n  TScrollBar = class(TCustomControl)\r\n  private\r\n    FScrolling: Boolean;\r\n    FContent: TScrollBarContent;\r\n    FKind: TScrollBarKind;\r\n    FPosition: Integer;\r\n    FSmallChange: TScrollBarInc;\r\n    FMax: Integer;\r\n    FMin: Integer;\r\n    FLargeChange: TScrollBarInc;\r\n    FPageSize: Integer;\r\n    FOnChange: TNotifyEvent;\r\n    FScrollPtr: pointer;\r\n    procedure SetKind(const Value: TScrollBarKind);\r\n    procedure SetPosition(const Value: Integer);\r\n    procedure SetMax(const Value: Integer);\r\n    procedure SetMin(const Value: Integer);\r\n    procedure SetPageSize(const Value: Integer);\r\n    function GetPosition: Integer;\r\n    function GetPageSize: Integer;\r\n  protected\r\n    function GetValue(XYPos: Double): Double;\r\n    function CreateElement: TJSElement; override;\r\n    function DoScroll(Event: TJSUIEvent): Boolean; virtual;\r\n    procedure BindEvents; override;\r\n    procedure UnBindEvents; override;\r\n    procedure UpdateElementVisual; override;\r\n    procedure UpdateContent; virtual;\r\n    procedure Loaded; override;\r\n    procedure ClearMethodPointers; override;\r\n    procedure GetMethodPointers; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure SetBounds(X, Y, AWidth, AHeight: Integer); override;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property DragMode;\r\n    property Height;\r\n    property Kind: TScrollBarKind read FKind write SetKind;\r\n    property Position: Integer read GetPosition write SetPosition;\r\n    property Left;\r\n    property SmallChange: TScrollBarInc read FSmallChange write FSmallChange;\r\n    property LargeChange: TScrollBarInc read FLargeChange write FLargeChange;\r\n    property Max: Integer read FMax write SetMax;\r\n    property Min: Integer read FMin write SetMin;\r\n    property PageSize: Integer read GetPageSize write SetPageSize;\r\n    property Top;\r\n    property Visible;\r\n    property Width;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebScrollBar = class(TScrollBar);\r\n\r\nfunction GetAutoCompletionName(aAutoCompletion: TAutoCompletion): string;\r\n\r\nimplementation\r\n\r\nfunction GetAutoCompletionName(aAutoCompletion: TAutoCompletion): string;\r\nbegin\r\n  case aAutoCompletion of\r\n    acOff: Result := '';\r\n    acHonorificPrefix: Result := 'honorific-prefix';\r\n    acGivenName: Result := 'given-name';\r\n    acAdditionalName: Result := 'additional-name';\r\n    acFamilyName: Result := 'family-name';\r\n    acHonorificSuffix: Result := 'honorific-suffix';\r\n    acNickName: Result := 'nickname';\r\n    acEmail: Result := 'email';\r\n    acUserName: Result := 'username';\r\n    acNewPassword: Result := 'new-password';\r\n    acCurrentPassword: Result := 'current-password';\r\n    acOrganizationTitle: Result := 'organization-title';\r\n    acOrganization: Result := 'organization';\r\n    acStreetAddress: Result := 'street-address';\r\n    acAddressLine1: Result := 'address-line1';\r\n    acAddressLine2: Result := 'address-line2';\r\n    acAddressLine3: Result := 'address-line3';\r\n    acAddressLevel1: Result := 'address-level1';\r\n    acAddressLevel2: Result := 'address-level2';\r\n    acAddressLevel3: Result := 'address-level3';\r\n    acAddressLevel4: Result := 'address-level4';\r\n    acCountry: Result := 'country';\r\n    acCountryName: Result := 'country-name';\r\n    acPostalCode: Result := 'postal-code';\r\n    acCCName: Result := 'cc-name';\r\n    acCCGivenName: Result := 'cc-given-name';\r\n    acCCAdditionalName: Result := 'cc-additional-name';\r\n    acCCFamilyName: Result := 'cc-family-name';\r\n    acCCNumber: Result := 'cc-number';\r\n    acExpiry: Result := 'cc-exp';\r\n    acExpiryMonth: Result := 'cc-exp-month';\r\n    acExpiryYear: Result := 'cc-exp-year';\r\n    acCSC: Result := 'cc-csc';\r\n    acType: Result := 'cc-type';\r\n    acTransactionCurrency: Result := 'transaction-currency';\r\n    acTransactionAmount: Result := 'transaction-amount';\r\n    acLanguage: Result := 'language';\r\n    acBirthday: Result := 'bday';\r\n    acBirthdayDay: Result := 'bday-day';\r\n    acBirthDayMonth: Result := 'bday-month';\r\n    acBirthDayYear: Result := 'bday-year';\r\n    acSex: Result := 'sex';\r\n    acTelephone: Result := 'tel';\r\n    acTelephoneCountryCode: Result := 'tel-country-code';\r\n    acTelephoneNational: Result := 'tel-national';\r\n    acTelephoneAreaCode: Result := 'tel-area-code';\r\n    acTelephoneLocal: Result := 'tel-local';\r\n    acTelephoneExtension: Result := 'tel-extension';\r\n    acIMPP: Result := 'impp';\r\n    acURL: Result := 'url';\r\n    acPhoto: Result := 'photo';\r\n    acNope: Result := 'nope';\r\n  end;\r\nend;\r\n\r\n{ TCustomLabel }\r\n\r\nprocedure TCustomLabel.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FAutoSize := true;\r\n  FLayout := tlTop;\r\n  FEllipsisPosition := epNone;\r\n  FColor := clWhite;\r\n  FTransparent := True;\r\n  FAlignment := taLeftJustify;\r\n  TabStop := false;\r\n  FShowAccelChar := true;\r\nend;\r\n\r\nfunction TCustomLabel.CanShowFocus: boolean;\r\nbegin\r\n  Result := false;\r\nend;\r\n\r\nfunction TCustomLabel.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('DIV');\r\n\r\n  FContent := CreateLabelElement;\r\n  Result.appendChild(FContent);\r\nend;\r\n\r\nfunction TCustomLabel.CreateLabelElement: TJSElement;\r\nbegin\r\n  Result := nil;\r\n\r\n  case HTMLType of\r\n  tSPAN: Result := document.createElement('SPAN');\r\n  tDIV: Result := document.createElement('DIV');\r\n  tH1: Result := document.createElement('H1');\r\n  tH2: Result := document.createElement('H2');\r\n  tH3: Result := document.createElement('H3');\r\n  tH4: Result := document.createElement('H4');\r\n  tH5: Result := document.createElement('H5');\r\n  tH6: Result := document.createElement('H6');\r\n  tLABELTAG: Result := document.createElement('LABEL');\r\n  tP: Result := document.createElement('P');\r\n  end;\r\n\r\n  Result.setAttribute('data-lbl','lbl');\r\nend;\r\n\r\nprocedure TCustomLabel.BindElement;\r\nbegin\r\n  FContent := Container.firstElementChild;\r\nend;\r\n\r\nfunction TCustomLabel.GetContentHandle: TJSHTMLElement;\r\nbegin\r\n  Result := TJSHTMLElement(FContent);\r\nend;\r\n\r\nfunction TCustomLabel.GetDisplayText: string;\r\nbegin\r\n  Result := Caption;\r\nend;\r\n\r\nfunction TCustomLabel.GetHeight: Integer;\r\nbegin\r\n  if AutoSize and Assigned(ElementHandle) and Assigned(Parent) then\r\n  begin\r\n    Result := Round(TJSHTMLElement(ElementHandle).offsetHeight);\r\n    if Result = 0 then\r\n       Result := inherited GetHeight;\r\n\r\n    if (Result = 0) and (Caption <> '') and (csDesigning in ComponentState) then\r\n      Result := FOldHeight;\r\n  end\r\n  else\r\n    Result := inherited GetHeight;\r\nend;\r\n\r\nfunction TCustomLabel.GetWidth: Integer;\r\nbegin\r\n  if AutoSize and Assigned(ElementHandle) and Assigned(Parent) then\r\n  begin\r\n    Result := Round(TJSHTMLElement(ElementHandle).offsetWidth);\r\n\r\n    if Result = 0 then\r\n      Result := inherited GetWidth;\r\n\r\n    if (Result = 0) and (Caption <> '') and (csDesigning in ComponentState) then\r\n      Result := FOldWidth;\r\n  end\r\n  else\r\n    Result := inherited GetWidth;\r\nend;\r\n\r\nprocedure TCustomLabel.InitCSSLibrary(ALibrary: TCSSLibrary);\r\nbegin\r\n  if (ALibrary = cssBootstrap) then\r\n  begin\r\n    ElementFont := efCSS;\r\n    HeightStyle := ssAuto;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomLabel.Loaded;\r\nbegin\r\n  inherited;\r\n\r\n  if ShowAccelChar and Assigned(FocusControl) then\r\n    UpdateElementData;\r\nend;\r\n\r\nprocedure TCustomLabel.SetAutoSize(AValue: boolean);\r\nbegin\r\n  if (FAutoSize <> AValue) then\r\n  begin\r\n    FAutoSize := AValue;\r\n    UpdateAutoSize;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomLabel.SetCaption(const AValue: string);\r\nvar\r\n  dw: integer;\r\nbegin\r\n  if Caption <> AValue then\r\n  begin\r\n    dw := Width;\r\n    inherited SetCaption(AValue);\r\n    UpdateAutoSize;\r\n    UpdateElement;\r\n    dw := dw - Width;\r\n    if AutoSize and (Alignment <> taLeftJustify) and (dw <> 0) and (akRight in Anchors) and not IsUpdating then\r\n      Left := Left + dw;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomLabel.SetColorEx(const Value: TColor);\r\nbegin\r\n  FColor := Value;\r\n\r\n  if (csDesigning in ComponentState) and (Color <> clWhite) then\r\n    Transparent := false;\r\n\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TCustomLabel.SetControlCursor(const Value: TCursor);\r\nbegin\r\n  inherited;\r\n  if (ElementClassName = '') and Assigned(ContentHandle) then\r\n    SetElementPointer(ContentHandle, Cursor);\r\nend;\r\n\r\nprocedure TCustomLabel.SetElementLabelClassName(const Value: TElementClassName);\r\nbegin\r\n  if (FElementLabelClassName <> Value) then\r\n  begin\r\n    FElementLabelClassName := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomLabel.SetEllipsisPosition(AValue: TEllipsisPosition);\r\nbegin\r\n  if FEllipsisPosition <> AValue then\r\n  begin\r\n    FEllipsisPosition := AValue;\r\n    if FEllipsisPosition <> epNone then\r\n      FAutoSize := False;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomLabel.SetHTML(const Value: string);\r\nbegin\r\n  if (FHTML <> Value) then\r\n  begin\r\n    FHTML := Value;\r\n    UpdateElementData;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomLabel.SetHTMLType(const Value: THTMLType);\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  if (FHTMLType <> Value) then\r\n  begin\r\n    FHTMLType := Value;\r\n\r\n    if FHTMLType in [tH1..tH6] then\r\n      ElementFont := efCSS;\r\n\r\n    if Assigned(ElementHandle) and Assigned(FContent) then\r\n    begin\r\n      el := TJSElement(ElementHandle.firstChild);\r\n\r\n      if Assigned(el) and (el.getAttribute('data-lbl') = 'lbl') then\r\n      begin\r\n        ElementHandle.removeChild(FContent);\r\n        FContent := CreateLabelElement;\r\n        ElementHandle.appendChild(FContent);\r\n        UpdateElement;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomLabel.SetLayout(const Value: TTextLayout);\r\nbegin\r\n  if FLayout <> Value then\r\n  begin\r\n    FLayout := Value;\r\n    UpdateElementVisual;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomLabel.SetParent(AValue: TControl);\r\nbegin\r\n  inherited;\r\n  if AutoSize and (Alignment <> taLeftJustify) and (FOrigWidth <> -1) then\r\n  begin\r\n    Left := Left + FOrigWidth - Width;\r\n    FOrigWidth := -1;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomLabel.SetTransparent(const Value: boolean);\r\nbegin\r\n  if (FTransparent <> Value) then\r\n  begin\r\n    FTransparent := Value;\r\n    UpdateElementVisual;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomLabel.SetWidth(AValue: Integer);\r\nbegin\r\n  if (AValue <> -1) and (csLoading in ComponentState) then\r\n    FOrigWidth := AValue;\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TCustomLabel.SetAlignment(const Value: TAlignment);\r\nbegin\r\n  if FAlignment <> Value then\r\n  begin\r\n    FAlignment := Value;\r\n    UpdateElementVisual;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomLabel.UpdateAutoSize;\r\nbegin\r\n  if FAutoSize and (Align = alNone) then\r\n  begin\r\n    if Assigned(ElementHandle) and ElementVisible(ElementHandle) {and not (csDesigning in ComponentState)} then\r\n    begin\r\n      Width := -1;\r\n      Height := -1;\r\n    end;\r\n    FEllipsisPosition := epNone;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomLabel.UpdateElementData;\r\nvar\r\n  lTxt: string;\r\n  acc: string;\r\n  ml: boolean;\r\n  contentelement: TJSElement;\r\nbegin\r\n  inherited;\r\n\r\n  acc := '';\r\n\r\n  lTxt := GetDisplayText;\r\n\r\n  if ShowAccelChar and (pos('&', lTxt) > 0) then\r\n    lTxt := ProcessAccelerator(lTxt,acc)\r\n  else\r\n  begin\r\n    if HTML = '' then\r\n      lTxt := HTMLToString(lTxt)\r\n    else\r\n      lTxt := HTML;\r\n  end;\r\n\r\n  ml := false;\r\n\r\n  if (pos(#13, lTxt) > 0) then\r\n  begin\r\n    ml := true;\r\n    if (pos(#10, lTxt) > 0) then\r\n      lTxt := StringReplace(lTxt,#10,'',[rfReplaceAll,rfIgnoreCase]);\r\n    lTxt := StringReplace(lTxt,#13,'<BR>',[rfReplaceAll,rfIgnoreCase]);\r\n  end\r\n  else\r\n    if (pos(#10, lTxt) > 0) then\r\n    begin\r\n      ml := true;\r\n      lTxt := StringReplace(lTxt,#10,'<BR>',[rfReplaceAll,rfIgnoreCase]);\r\n    end;\r\n\r\n  if IsLinked and (lTxt = '') and (csLoading in ComponentState) then\r\n    Exit;\r\n\r\n  if Assigned(ContentHandle) then\r\n  begin\r\n    if isLinked then\r\n    begin\r\n      contentelement := ContentHandle;\r\n\r\n      if (ElementID <> '') then\r\n      begin\r\n        contentelement := document.getElementById(ElementID);\r\n      end;\r\n\r\n      if Assigned(contentelement) then\r\n      begin\r\n        if Assigned(ContentHandle.nodeValue) then\r\n          contentelement.nodeValue := lTxt\r\n        else\r\n          if contentelement.childelementcount = 0 then\r\n            contentelement.innerHTML := lTxt;\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n\r\n      if (ContentHandle.childElementCount > 0) and Assigned(ContentHandle.nodeValue) and not FHasAccel and not FHasHTML and not ml then\r\n      begin\r\n        ContentHandle.nodeValue := lTxt;\r\n      end\r\n      else\r\n      begin\r\n        ContentHandle.innerHTML := lTxt\r\n      end;\r\n    end;\r\n  end\r\n  else\r\n    ElementHandle.innerHTML := lTxt;\r\n\r\n  FHasHTML := pos('</', lTxt) > 0;\r\n  FHasAccel := acc <> '';\r\n\r\n  // https://www.htmlgoodies.com/tutorials/html_401/article.php/3479621\r\n  if (acc <> '') and Assigned(FocusControl) then\r\n  begin\r\n    ContentHandle['accesskey'] := acc;\r\n    ContentHandle['for'] := FocusControl.ElementID;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomLabel.UpdateElementSize;\r\nbegin\r\n  inherited;\r\n\r\n  if AutoSize and (Align = alNone) and Assigned(ElementHandle) then\r\n  begin\r\n    if not (csDesigning in ComponentState) then\r\n    begin\r\n      ElementHandle.style.removeProperty('width');\r\n      ElementHandle.style.removeProperty('height');\r\n    end;\r\n  end;\r\n\r\n  if Assigned(ContentHandle) and (Align in [alLeft, alRight, alClient]) and not AutoSize and (Layout in [tlCenter, tlBottom]) then\r\n  begin\r\n    ContentHandle.style.setProperty('height', Height.ToString+'px');\r\n  end;\r\nend;\r\n\r\nprocedure TCustomLabel.UpdateElementVisual;\r\nvar\r\n  ow,oh: integer;\r\nbegin\r\n  inherited;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    oh := Round(TJSHTMLElement(ElementHandle).offsetHeight);\r\n    ow := Round(TJSHTMLElement(ElementHandle).offsetWidth);\r\n\r\n    if oh > 0 then\r\n      FOldHeight := oh;\r\n    if ow > 0 then\r\n      FOldWidth := ow;\r\n\r\n    if Visible and (not AutoSize or (Align <> alNone)) and ((Alignment <> taLeftJustify) or (Layout <> tlTop)) then\r\n      ElementHandle.style.setProperty('display', 'table');\r\n\r\n    ElementHandle['zindex'] := '1';\r\n\r\n    if AutoSize and (Align = alNone) and not (csDesigning in ComponentState) then\r\n      ElementHandle.style.setProperty('overflow', '')\r\n    else\r\n      ElementHandle.style.setProperty('overflow', 'hidden');\r\n  end;\r\n\r\n  if Assigned(ContentHandle) then\r\n  begin\r\n    case Layout of\r\n      tlTop: ContentHandle.style.setProperty('vertical-align', 'top');\r\n      tlCenter: ContentHandle.style.setProperty('vertical-align', 'middle');\r\n      tlBottom: ContentHandle.style.setProperty('vertical-align', 'bottom');\r\n    end;\r\n\r\n    case Alignment of\r\n    taLeftJustify: ContentHandle.style.removeProperty('text-align');\r\n    taCenter: ContentHandle.style.setProperty('text-align', 'center');\r\n    taRightJustify: ContentHandle.style.setProperty('text-align', 'right');\r\n    end;\r\n\r\n    SetHTMLElementColor(ElementHandle, Color, Transparent or (Color = clNone) or (Color = clWindow));\r\n    SetHTMLElementColor(ContentHandle, Color, Transparent or (Color = clNone) or (Color = clWindow));\r\n\r\n    ContentHandle.style.setProperty('display', 'table-cell');\r\n\r\n    if ElementClassName = '' then\r\n    begin\r\n      if Enabled and (ElementFont = efProperty) and not IsLinked then\r\n        ContentHandle.style.setProperty('color', ColorToHtml(Font.Color))\r\n      else\r\n        ContentHandle.style.removeProperty('color');\r\n\r\n      SetElementPointer(ContentHandle, Cursor);\r\n      SetHTMLElementFont(ContentHandle, Font, not ((ElementFont = efProperty) and not IsLinked) );\r\n    end\r\n    else\r\n    begin\r\n      ContentHandle.style.removeProperty('color');\r\n      SetHTMLElementFont(ContentHandle, Font, true);\r\n    end;\r\n\r\n    if ElementLabelClassName <> '' then\r\n      ContentHandle['class'] := ElementLabelClassName\r\n    else\r\n      ContentHandle.removeAttribute('class');\r\n\r\n    if (ElementPosition = epAbsolute) or (WidthStyle = ssAbsolute) then\r\n    begin\r\n      if FEllipsisPosition = epNone then\r\n        ContentHandle.style.setProperty('text-overflow', 'clip')\r\n      else\r\n        ContentHandle.style.setProperty('text-overflow', 'ellipsis');\r\n    end\r\n    else\r\n      ContentHandle.style.removeProperty('text-overflow');\r\n\r\n    if WordWrap then\r\n      ContentHandle.style.setProperty('white-space', 'normal')\r\n    else\r\n      ContentHandle.style.setProperty('white-space', 'nowrap');\r\n\r\n    // allow selection in labels\r\n    ElementHandle.style.setProperty('user-select', '');\r\n\r\n    // allow default caret on text\r\n    if Cursor = crDefault then\r\n      ElementHandle.style.setProperty('cursor', '');\r\n\r\n    if AutoSize and (Align = alNone) and not (csDesigning in ComponentState) then\r\n    begin\r\n      ElementHandle.style.removeProperty('width');\r\n      ElementHandle.style.removeProperty('height');\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TCustomInput }\r\n\r\nfunction TCustomInput.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('INPUT');\r\n  Result['type'] := GetInputType;\r\nend;\r\n\r\nprocedure TCustomInput.UpdateElementVisual;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(Container) and not IsLinked then\r\n  begin\r\n    TJSHTMLInputElement(Container).style.setProperty('-moz-box-sizing', 'border-box');\r\n    TJSHTMLInputElement(Container).style.setProperty('-webkit-box-sizing', 'border-box');\r\n    TJSHTMLInputElement(Container).style.setProperty('box-sizing', 'border-box');\r\n  end;\r\nend;\r\n\r\nprocedure TCustomInput.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  ShowFocus := true;\r\n  NoUserSelect := false;\r\nend;\r\n\r\nfunction TCustomInput.GetInputType: string;\r\nbegin\r\n   Result := 'EDIT';\r\nend;\r\n\r\nfunction TCustomInput.IsInputControl: Boolean;\r\nbegin\r\n  Result := True;\r\nend;\r\n\r\nprocedure TCustomInput.LoadState(AState: string);\r\nbegin\r\n  TJSHTMLInputElement(ElementHandle).value := AState;\r\nend;\r\n\r\nfunction TCustomInput.SaveState: string;\r\nbegin\r\n  Result := TJSHTMLInputElement(ElementHandle).value;\r\nend;\r\n\r\n{ TCustomEdit }\r\n\r\nprocedure TCustomEdit.BindEvents;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementInputHandle) then\r\n  begin\r\n    ElementInputHandle.addEventListener('input', FHandleChangePtr);\r\n    ElementInputHandle.addEventListener('paste', FHandlePastePtr);\r\n    ElementInputHandle.addEventListener('cut', FHandleCutPtr);\r\n    ElementInputHandle.addEventListener('invalid', FHandleInvalidPtr);\r\n    ElementInputHandle.addEventListener('search', FHandleSearchPtr);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomEdit.UnBindEvents;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementInputHandle) then\r\n  begin\r\n    ElementInputHandle.removeEventListener('input', FHandleChangePtr);\r\n    ElementInputHandle.removeEventListener('paste', FHandlePastePtr);\r\n    ElementInputHandle.removeEventListener('cut', FHandleCutPtr);\r\n    ElementInputHandle.removeEventListener('invalid', FHandleInvalidPtr);\r\n    ElementInputHandle.removeEventListener('search', FHandleSearchPtr);\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TCustomEdit.Change;\r\nbegin\r\n  if Assigned(ElementHandle) then\r\n    FText := ElementInputHandle.value;\r\n\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nprocedure TCustomEdit.Clear;\r\nbegin\r\n  Text := '';\r\nend;\r\n\r\nprocedure TCustomEdit.ClearMethodPointers;\r\nbegin\r\n  inherited;\r\n  FHandlePastePtr := nil;\r\n  FHandleCutPtr := nil;\r\n  FHandleChangePtr := nil;\r\n  FHandleInvalidPtr := nil;\r\n  FHandleSearchPtr := nil;\r\nend;\r\n\r\nprocedure TCustomEdit.ClearSelection;\r\nvar\r\n  s: string;\r\nbegin\r\n  s := Text;\r\n  Text := Copy(s, 1, SelStart) + Copy(s, SelStart + SelLength, Length(s));\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TCustomEdit.CopyToClipboard;\r\nvar\r\n  s: string;\r\nbegin\r\n  s := Text;\r\n  asm\r\n    navigator.clipboard.writeText(s);\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TCustomEdit.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FAutoCompletion := acOff;\r\n  FEditType := weString;\r\n  FText := '';\r\n  FCharCase := wecNormal;\r\n  FMaxLength := 0;\r\n  FReadOnly := false;\r\n  FTextHint := '';\r\n  FPasswordChar := #0;\r\n  FSpellCheck := true;\r\n  FAutoSelect := true;\r\n  Height := 25;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TCustomEdit.DoEnter;\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  inherited;\r\n  if AutoSelect and Assigned(ElementInputHandle) then\r\n  begin\r\n    el := ElementInputHandle;\r\n    asm\r\n      el.select();\r\n    end;\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nfunction TCustomEdit.DoHandleChange(Event: TEventListenerEvent): Boolean;\r\nbegin\r\n  Change;\r\n  Result := True;\r\n  if FRequiredText <> '' then\r\n  begin\r\n    ElementInputHandle.setCustomValidity('');\r\n  end;\r\nend;\r\n\r\nfunction TCustomEdit.DoHandleCut(Event: TEventListenerEvent): Boolean;\r\nbegin\r\n  if not CanCut then\r\n  begin\r\n    asm\r\n      Event.preventDefault();\r\n      Event.stopPropagation();\r\n    end;\r\n  end;\r\n\r\n  Result := False;\r\nend;\r\n\r\nfunction TCustomEdit.DoHandleInvalid(Event: TJSEvent): Boolean;\r\nbegin\r\n  ElementInputHandle.setCustomValidity(FRequiredText);\r\n  Result := true;\r\nend;\r\n\r\nfunction TCustomEdit.DoHandlePaste(Event: TEventListenerEvent): Boolean;\r\nvar\r\n  s: string;\r\n  clp: boolean;\r\nbegin\r\n  clp := false;\r\n  asm\r\n    var clipboardData = Event.clipboardData || window.clipboardData;\r\n    if (clipboardData) {\r\n    s = clipboardData.getData('Text');\r\n    clp = true;\r\n    }\r\n  end;\r\n\r\n  if clp and (not CanPaste(s) or not Validate(s)) then\r\n  begin\r\n    asm\r\n      Event.preventDefault();\r\n      Event.stopPropagation();\r\n    end;\r\n  end;\r\n\r\n  Result := False;\r\nend;\r\n\r\nfunction TCustomEdit.DoHandleSearch(Event: TJSEvent): Boolean;\r\nbegin\r\n  Result := true;\r\n  if Assigned(OnSearch) then\r\n    OnSearch(Self);\r\nend;\r\n\r\nfunction TCustomEdit.CanCut: boolean;\r\nbegin\r\n  Result := True\r\nend;\r\n\r\nfunction TCustomEdit.CanPaste(AValue: string): boolean;\r\nbegin\r\n  Result := True;\r\nend;\r\n\r\nprocedure TCustomEdit.SetReadOnly(AValue: Boolean);\r\nbegin\r\n  if (FReadOnly <> AValue) then\r\n  begin\r\n    FReadOnly := AValue;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomEdit.SetRequired(const Value: Boolean);\r\nbegin\r\n  if (FRequired <> Value) then\r\n  begin\r\n    FRequired := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomEdit.SetSelection(ASelStart, ASelLength: integer);\r\nvar\r\n  eh: TJSHTMLElement;\r\nbegin\r\n  FSelStart := ASelStart;\r\n  FSelLength := ASelLength;\r\n  eh := ElementInputHandle;\r\n  if Assigned(eh) then\r\n  begin\r\n    asm\r\n      eh.setSelectionRange(ASelStart, ASelStart + ASelLength);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomEdit.SetSelLength(const Value: Integer);\r\nbegin\r\n  FSelLength := Value;\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TCustomEdit.SetSelStart(const Value: Integer);\r\nbegin\r\n  FSelStart := Value;\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TCustomEdit.SetSpellCheck(const Value: boolean);\r\nbegin\r\n  if (FSpellCheck <> Value) then\r\n  begin\r\n    FSpellCheck := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomEdit.SetPasswordChar(const Value: Char);\r\nbegin\r\n  FPasswordChar := Value;\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TCustomEdit.SetPattern(const Value: string);\r\nbegin\r\n  if FPattern <> Value then\r\n  begin\r\n    FPattern := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomEdit.SetNumeric(const Value: Boolean);\r\nbegin\r\n  FNumeric := Value;\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TCustomEdit.SetText(AValue: string);\r\nbegin\r\n  FText := AValue;\r\n\r\n  if Assigned(ElementInputHandle) then\r\n  begin\r\n    ElementInputHandle.value := GetDisplayText;\r\n    ElementInputHandle.readOnly := IsReadOnly;\r\n  end;\r\nend;\r\n\r\nfunction TCustomEdit.GetText: string;\r\nbegin\r\n  Result := FText;\r\n  if Assigned(ElementInputHandle) then\r\n    Result := ElementInputHandle.value;\r\n\r\n  if CharCase = wecUpperCase  then\r\n    Result := Uppercase(Result);\r\n\r\n  if CharCase = wecLowerCase  then\r\n    Result := Lowercase(Result);\r\nend;\r\n\r\nprocedure TCustomEdit.InitCSSLibrary(ALibrary: TCSSLibrary);\r\nbegin\r\n  if (ALibrary = cssBootstrap) then\r\n  begin\r\n    ElementFont := efCSS;\r\n    ElementClassName := 'form-control';\r\n    HeightStyle := ssAuto;\r\n  end;\r\nend;\r\n\r\nfunction TCustomEdit.IsCustomEditor: Boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n\r\nfunction TCustomEdit.IsReadOnly: boolean;\r\nbegin\r\n  Result := ReadOnly;\r\nend;\r\n\r\nprocedure TCustomEdit.KeyPress(var Key: Char);\r\nvar\r\n  isValid: boolean;\r\n\r\nbegin\r\n  inherited KeyPress(Key);\r\n\r\n  isValid := true;\r\n\r\n  case EditType of\r\n  weNumeric: isValid := (Key in ['0'..'9']);\r\n  weSignedNumeric: isValid := (Key in ['0'..'9','+','-']);\r\n  weFloat: isValid := (Key in ['0'..'9',',','.']);\r\n  weSignedFloat: isValid := (Key in ['0'..'9',',','.','+','-']);\r\n  weHex: isValid := (Key in ['0'..'9','A'..'F']);\r\n  end;\r\n\r\n  if not isValid then\r\n    Key := #0;\r\nend;\r\n\r\nprocedure TCustomEdit.SetTextHint(AValue: string);\r\nbegin\r\n  FTextHint := AValue;\r\n  UpdateElement;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TCustomEdit.UpdateElementData;\r\nvar\r\n  eh: TJSHTMLElement;\r\n  ss, sl: Integer;\r\n  isNum, doAc: boolean;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementInputHandle) then\r\n  begin\r\n    if not IsLinked then\r\n    begin\r\n      case CharCase of\r\n        wecUpperCase: ElementInputHandle.style.setProperty('text-transform', 'uppercase');\r\n        wecLowerCase: ElementInputHandle.style.setProperty('text-transform', 'lowercase');\r\n        wecMixedCase: ElementInputHandle.style.setProperty('text-transform', 'capitalize');\r\n        wecNormal: ElementInputHandle.style.setProperty('text-transform', 'initial');\r\n      end;\r\n    end;\r\n\r\n    ElementInputHandle.readOnly := IsReadOnly;\r\n\r\n    if TextHint <> '' then\r\n      ElementInputHandle.placeholder := TextHint;\r\n\r\n    doAc := true;\r\n\r\n    if IsLinked then\r\n    begin\r\n      doAc :=  not TJSHTMLElement(ElementInputHandle).hasAttribute('autocomplete');\r\n    end;\r\n\r\n    if doAc then\r\n    begin\r\n      if AutoCompletion = acNope then\r\n      begin\r\n        TJSHTMLElement(ElementInputHandle).setAttribute('autocomplete','nope');\r\n        if not IsLinked then\r\n          TJSHTMLElement(ElementInputHandle).removeAttribute('name');\r\n      end\r\n      else\r\n      if AutoCompletion = acNone then\r\n      begin\r\n        TJSHTMLElement(ElementInputHandle).setAttribute('autocomplete','off');\r\n        if not IsLinked then\r\n          TJSHTMLElement(ElementInputHandle).removeAttribute('name');\r\n      end\r\n      else\r\n      if AutoCompletion <> acOff then\r\n      begin\r\n        TJSHTMLElement(ElementInputHandle).setAttribute('autocomplete','on');\r\n        if not IsLinked then\r\n          TJSHTMLElement(ElementInputHandle).setAttribute('name', GetAutoCompletionName(AutoCompletion));\r\n      end\r\n      else\r\n      begin\r\n        TJSHTMLElement(ElementInputHandle).removeAttribute('autocomplete');\r\n        if not IsLinked then\r\n          TJSHTMLElement(ElementInputHandle).removeAttribute('name');\r\n      end;\r\n   end;\r\n\r\n    if not isLinked then\r\n    begin\r\n      ElementInputHandle['type'] := GetInputType;\r\n      ElementInputHandle['role'] := 'textbox';\r\n\r\n      case Alignment of\r\n      taLeftJustify: TJSHTMLElement(ElementInputHandle).style.removeProperty('text-align');\r\n      taCenter: TJSHTMLElement(ElementInputHandle).style.setProperty('text-align', 'center');\r\n      taRightJustify: TJSHTMLElement(ElementInputHandle).style.setProperty('text-align', 'right');\r\n      end;\r\n\r\n    end;\r\n\r\n    if Required then\r\n      ElementInputHandle.setAttribute('required','')\r\n    else\r\n      if not isLinked then\r\n        ElementInputHandle.removeAttribute('required');\r\n\r\n    if AutoFocus then\r\n      ElementInputHandle.setAttribute('autofocus','')\r\n    else\r\n      if not isLinked then\r\n        ElementInputHandle.removeAttribute('autofocus');\r\n\r\n    if FPattern <> '' then\r\n      ElementInputHandle.setAttribute('pattern',FPattern)\r\n    else\r\n      ElementInputHandle.removeAttribute('pattern');\r\n\r\n    if MaxLength <= 0 then\r\n      ElementInputHandle.removeAttribute('maxLength')\r\n    else\r\n      ElementInputHandle.maxLength := MaxLength;\r\n\r\n    ElementInputHandle.value := GetDisplayText;\r\n\r\n    isNum := Uppercase(GetInputType) = 'NUMBER';\r\n\r\n    if not SpellCheck then\r\n      ElementInputHandle['spellcheck'] := 'false'\r\n    else\r\n      ElementInputHandle.removeAttribute('spellcheck');\r\n\r\n    if (not isNum) and (not isLinked) and (not IsCustomEditor) then\r\n    begin\r\n      ss := FSelStart;\r\n      sl := FSelStart + FSelLength;\r\n      eh := ElementInputHandle;\r\n      asm\r\n        setTimeout(function() {\r\n          eh.setSelectionRange(ss, sl);\r\n        }, 1);\r\n      end;\r\n    end;\r\n\r\n  end;\r\nend;\r\n\r\n{$HINTS ON}\r\n\r\nfunction TCustomEdit.Validate(AValue: string): boolean;\r\nvar\r\n  i: integer;\r\n  Key: char;\r\n  isvalid: boolean;\r\nbegin\r\n  Result := true;\r\n\r\n  for i := 1 to Length(AValue) do\r\n  begin\r\n    Key := AValue[i];\r\n    isValid := true;\r\n\r\n    case EditType of\r\n    weNumeric: isValid := (Key in ['0'..'9']);\r\n    weSignedNumeric: isValid := (Key in ['0'..'9','+','-']);\r\n    weFloat: isValid := (Key in ['0'..'9',',','.']);\r\n    weSignedFloat: isValid := (Key in ['0'..'9',',','.','+','-']);\r\n    weHex: isValid := (Key in ['0'..'9','A'..'F']);\r\n    end;\r\n\r\n    if not IsValid then\r\n    begin\r\n      Result := false;\r\n      break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomEdit.SelectAll;\r\nbegin\r\n  if Assigned(ElementInputHandle) then\r\n    ElementInputHandle.select;\r\nend;\r\n\r\nprocedure TCustomEdit.SetAlignment(const Value: TAlignment);\r\nbegin\r\n  FAlignment := Value;\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TCustomEdit.SetAutoCompletion(const Value: TAutoCompletion);\r\nbegin\r\n  if (FAutoCompletion <> Value) then\r\n  begin\r\n    FAutoCompletion := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomEdit.SetAutoFocus(const Value: boolean);\r\nbegin\r\n  if (FAutoFocus <> Value) then\r\n  begin\r\n    FAutoFocus := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomEdit.SetAutoSelect(const Value: Boolean);\r\nbegin\r\n  if FAutoSelect <> Value then\r\n  begin\r\n    FAutoSelect := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomEdit.SetAutoSize(const Value: Boolean);\r\nbegin\r\n  if FAutoSize <> Value then\r\n  begin\r\n    FAutoSize := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomEdit.SetCharCase(AValue: TEditCharCase);\r\nbegin\r\n  if (FCharcase <> AValue) then\r\n  begin\r\n    FCharcase := AValue;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomEdit.SetEditType(const Value: TEditType);\r\nbegin\r\n  if (FEditType <> Value) then\r\n  begin\r\n    FEditType := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomEdit.SetHideSelection(const Value: Boolean);\r\nbegin\r\n  if (FHideSelection <> Value) then\r\n  begin\r\n    FHideSelection := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomEdit.SetMaxLength(AValue: integer);\r\nbegin\r\n  if (FMaxLength <> AValue) then\r\n  begin\r\n    FMaxLength := AValue;\r\n    UpdateElementData;\r\n  end;\r\nend;\r\n\r\nfunction TCustomEdit.GetDisplayText: string;\r\nbegin\r\n  Result := FText;\r\nend;\r\n\r\nfunction TCustomEdit.GetElementInputHandle: TJSHTMLInputElement;\r\nbegin\r\n  Result := TJSHTMLInputElement(Container);\r\nend;\r\n\r\nfunction TCustomEdit.GetInputType: string;\r\nbegin\r\n  if (PasswordChar <> #0) then\r\n    Result := 'PASSWORD'\r\n  else if Numeric then\r\n    Result := 'NUMBER'\r\n  else\r\n    if (EditType in [weFloat, weNumeric]) then\r\n      Result := 'TEL'\r\n    else\r\n      if EditType = weSearch then\r\n        Result := 'SEARCH'\r\n      else\r\n        Result := 'TEXT';\r\nend;\r\n\r\nprocedure TCustomEdit.GetMethodPointers;\r\nbegin\r\n  inherited;\r\n  FHandlePastePtr := @DoHandlePaste;\r\n  FHandleCutPtr := @DoHandleCut;\r\n  FHandleChangePtr := @DoHandleChange;\r\n  FHandleInvalidPtr := @DoHandleInvalid;\r\n  FHandleSearchPtr := @DoHandleSearch;\r\nend;\r\n\r\nfunction TCustomEdit.GetSelLength: Integer;\r\nbegin\r\n  Result := -1;\r\n  if Assigned(ElementInputHandle) then\r\n    Result := ElementInputHandle.selectionEnd - ElementInputHandle.selectionStart;\r\nend;\r\n\r\nfunction TCustomEdit.GetSelStart: Integer;\r\nbegin\r\n  Result := -1;\r\n  if Assigned(ElementInputHandle) then\r\n    Result := ElementInputHandle.selectionStart;\r\nend;\r\n\r\nfunction TCustomEdit.GetSelText: string;\r\nbegin\r\n  Result := Copy(Text,SelStart + 1, SelLength);\r\nend;\r\n\r\nprocedure TCustomEdit.PersistinHTML;\r\nbegin\r\n  ElementInputHandle.setAttribute('value', Text);\r\nend;\r\n\r\n{ TSpinEdit }\r\n\r\nprocedure TSpinEdit.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FIncrement := 1;\r\n  FMaxValue := 100;\r\n  FMinValue := 0;\r\n  ShowFocus := true;\r\n  Height := 25;\r\n\r\n  // make the spin buttons always visible\r\n  AddControlStyle('input[type=\"number\"]::-webkit-inner-spin-button { opacity: 1 !important; }');\r\nend;\r\n\r\nprocedure TSpinEdit.BindEvents;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementInputHandle) then\r\n  begin\r\n    ElementInputHandle.addEventListener('input', FHandleChangePtr);\r\n    ElementInputHandle.addEventListener('invalid', FHandleInvalidPtr);\r\n  end;\r\nend;\r\n\r\nprocedure TSpinEdit.UnBindEvents;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementInputHandle) then\r\n  begin\r\n    ElementInputHandle.removeEventListener('input', FHandleChangePtr);\r\n    ElementInputHandle.removeEventListener('invalid', FHandleInvalidPtr);\r\n  end;\r\nend;\r\n\r\nfunction TSpinEdit.GetDisplayText: string;\r\nbegin\r\n  Result := IntToStr(FValue);\r\nend;\r\n\r\nfunction TSpinEdit.GetElementInputHandle: TJSHTMLInputElement;\r\nbegin\r\n  Result := TJSHTMLInputElement(Container);\r\nend;\r\n\r\nfunction TSpinEdit.DoHandleChange(Event: TEventListenerEvent): Boolean;\r\nbegin\r\n  Change;\r\n  Result := True;\r\n  if FRequiredText <> '' then\r\n  begin\r\n    ElementInputHandle.setCustomValidity('');\r\n  end;\r\nend;\r\n\r\nfunction TSpinEdit.DoHandleInvalid(Event: TJSEvent): Boolean;\r\nbegin\r\n  ElementInputHandle.setCustomValidity(FRequiredText);\r\n  Result := true;\r\nend;\r\n\r\nprocedure TSpinEdit.Change;\r\nbegin\r\n  FValue := GetValue;\r\n\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nprocedure TSpinEdit.ClearMethodPointers;\r\nbegin\r\n  inherited;\r\n  FHandleChangePtr := nil;\r\n  FHandleInvalidPtr := nil;\r\nend;\r\n\r\nfunction TSpinEdit.GetInputType: string;\r\nbegin\r\n  Result := 'NUMBER';\r\nend;\r\n\r\nprocedure TSpinEdit.GetMethodPointers;\r\nbegin\r\n  inherited;\r\n  FHandleChangePtr := @DoHandleChange;\r\n  FHandleInvalidPtr := @DoHandleInvalid;\r\nend;\r\n\r\nfunction TSpinEdit.GetText: string;\r\nbegin\r\n  Result := IntToStr(Value);\r\nend;\r\n\r\nfunction TSpinEdit.GetValue: integer;\r\nvar\r\n  s: string;\r\nbegin\r\n  Result := FValue;\r\n\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  s := TJSHTMLInputElement(Container).value;\r\n  if (s <> '') then\r\n    Result := StrToInt(s);\r\nend;\r\n\r\nprocedure TSpinEdit.InitCSSLibrary(ALibrary: TCSSLibrary);\r\nbegin\r\n  if (ALibrary = cssBootstrap) then\r\n  begin\r\n    ElementFont := efCSS;\r\n    ElementClassName := 'form-control';\r\n    HeightStyle := ssAuto;\r\n  end;\r\nend;\r\n\r\nfunction TSpinEdit.IsReadOnly: boolean;\r\nbegin\r\n  Result := FReadOnly;\r\nend;\r\n\r\nprocedure TSpinEdit.KeyPress(var Key: Char);\r\nbegin\r\n  if not (Key in ['0'..'9']) then\r\n  begin\r\n    Key := #0;\r\n    PreventDefault;\r\n    StopPropagation;\r\n  end;\r\n  inherited;\r\nend;\r\n\r\nprocedure TSpinEdit.SetIncrement(AValue: integer);\r\nbegin\r\n  FIncrement := AValue;\r\n  if Assigned(Container) then\r\n    Container['step'] := IntToStr(AValue);\r\nend;\r\n\r\nprocedure TSpinEdit.SetMaxValue(AValue: integer);\r\nbegin\r\n  FMaxValue := AValue;\r\n  if Assigned(Container) then\r\n    Container['max'] := IntToStr(AValue);\r\nend;\r\n\r\nprocedure TSpinEdit.SetMinValue(AValue: integer);\r\nbegin\r\n  FMinValue := AValue;\r\n  if Assigned(Container) then\r\n    Container['min'] := IntToStr(AValue);\r\nend;\r\n\r\nprocedure TSpinEdit.SetReadOnly(const Value: boolean);\r\nbegin\r\n  if (FReadOnly <> Value) then\r\n  begin\r\n    FReadOnly := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TSpinEdit.SetRequired(const Value: Boolean);\r\nbegin\r\n  if (FRequired <> Value) then\r\n  begin\r\n    FRequired := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TSpinEdit.SetText(const Value: string);\r\nvar\r\n  i: Integer;\r\nbegin\r\n  i := 0;\r\n  if TryStrToInt(Value, i) then\r\n    Self.Value := i\r\n  else\r\n    Self.Value := 0;\r\nend;\r\n\r\nprocedure TSpinEdit.PersistinHTML;\r\nbegin\r\n  ElementInputHandle.setAttribute('value',IntToStr(Value));\r\nend;\r\n\r\nprocedure TSpinEdit.SetValue(AValue: integer);\r\nbegin\r\n  FValue := AValue;\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TSpinEdit.UpdateElementData;\r\nbegin\r\n  inherited;\r\n  if Assigned(Container) then\r\n  begin\r\n    Container['inputmode'] := 'numeric';\r\n    Container['pattern'] := '[0-9]*';\r\n    TJSHTMLInputElement(Container).value := GetDisplayText;\r\n    ElementInputHandle.readOnly := IsReadOnly;\r\n\r\n    if Required then\r\n      ElementInputHandle.setAttribute('required','')\r\n    else\r\n      ElementInputHandle.removeAttribute('required');\r\n  end;\r\nend;\r\n\r\n{ TDateTimePicker }\r\n\r\nfunction TDateTimePicker.GetInputType: string;\r\nbegin\r\n   if FKind = dtkDate then\r\n    Result := 'DATE'\r\n  else\r\n    Result := 'TIME';\r\nend;\r\n\r\nprocedure TDateTimePicker.GetMethodPointers;\r\nbegin\r\n  inherited;\r\n  FHandleChangePtr := @DoHandleChange;\r\n  FClickPtr := @DoCheckClick;\r\n  FFocusPtr := @DoPickerFocus;\r\n  FBlurPtr := @DoPickerBlur;\r\nend;\r\n\r\nprocedure TDateTimePicker.SetChecked(const Value: boolean);\r\nbegin\r\n  if (FChecked <> Value) then\r\n  begin\r\n    FChecked := Value;\r\n    UpdateElementVisual;\r\n  end;\r\nend;\r\n\r\nprocedure TDateTimePicker.SetDate(AValue: TDate);\r\nbegin\r\n  if FDate <> AValue then\r\n  begin\r\n    FDate := Int(AValue);\r\n    FTime := 0;\r\n    UpdateElementData;\r\n  end;\r\nend;\r\n\r\nprocedure TDateTimePicker.SetDateTime(const Value: TDateTime);\r\nbegin\r\n  FDate := Int(Value);\r\n  FTime := Frac(Value);\r\n  UpdateElementData;\r\nend;\r\n\r\nprocedure TDateTimePicker.SetEnabled(Value: Boolean);\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  inherited;\r\n  el := TJSHTMLElement(GetElementPicker);\r\n  if  Assigned(el) then\r\n  begin\r\n    if Value then\r\n      el.removeAttribute('disabled')\r\n    else\r\n      el.setAttribute('disabled','');\r\n  end;\r\nend;\r\n\r\nprocedure TDateTimePicker.SetFocus;\r\nbegin\r\n  if Assigned(GetElementPicker) then\r\n  begin\r\n    TJSHTMLElement(GetElementPicker).Focus();\r\n  end;\r\nend;\r\n\r\nprocedure TDateTimePicker.BindEvents;\r\nbegin\r\n  inherited;\r\n  if Assigned(FElementCheck) then\r\n    FElementCheck.addEventListener('click',FClickPtr);\r\n\r\n  if Assigned(GetElementPicker) then\r\n  begin\r\n    GetElementPicker.addEventListener('input', FHandleChangePtr);\r\n    GetElementPicker.addEventListener('focus',FFocusPtr);\r\n    GetElementPicker.addEventListener('blur',FBlurPtr);\r\n  end;\r\nend;\r\n\r\nprocedure TDateTimePicker.UnBindEvents;\r\nbegin\r\n  inherited;\r\n  if Assigned(FElementCheck) then\r\n    FElementCheck.removeEventListener('click',FClickPtr);\r\n\r\n  if Assigned(GetElementPicker) then\r\n  begin\r\n    GetElementPicker.removeEventListener('input', FHandleChangePtr);\r\n    GetElementPicker.removeEventListener('focus',FFocusPtr);\r\n    GetElementPicker.removeEventListener('blur',FBlurPtr);\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TDateTimePicker.Change;\r\nbegin\r\n  FTime := GetTime;\r\n  FDate := GetDate;\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nprocedure TDateTimePicker.Clear;\r\nbegin\r\n  TJSHTMLInputElement(GetElementPicker).value := '';\r\nend;\r\n\r\nprocedure TDateTimePicker.ClearMethodPointers;\r\nbegin\r\n  inherited;\r\n  FHandleChangePtr := nil;\r\n  FBlurPtr := nil;\r\n  FFocusPtr := nil;\r\n  FClickPtr := nil;\r\nend;\r\n\r\nfunction TDateTimePicker.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('DIV');\r\n\r\n  FElementCheck := TJSHTMLElement(document.createElement('INPUT'));\r\n  FElementPicker := TJSHTMLElement(document.createElement('INPUT'));\r\n\r\n  Result.appendChild(FElementCheck);\r\n  Result.appendChild(FElementPicker);\r\nend;\r\n\r\nprocedure TDateTimePicker.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FMin := 0;\r\n  FMax := 0;\r\n  Date := now;\r\n  ShowFocus := true;\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Width := 170;\r\n    Height := 25;\r\n  end;\r\n  FDate := Int(Now);\r\n  FTime := 0;\r\n  FReadOnly := false;\r\n  FShowSeconds := true;\r\n  FIsBootstrap := false;\r\nend;\r\n\r\nfunction TDateTimePicker.DoCheckClick(Event: TEventListenerEvent): Boolean;\r\nbegin\r\n  FChecked := TJSHTMLInputElement(FElementCheck).checked;\r\n\r\n  if FChecked then\r\n    GetElementPicker.removeAttribute('disabled')\r\n  else\r\n    GetElementPicker.setAttribute('disabled','true');\r\n\r\n  Result := true;\r\nend;\r\n\r\nfunction TDateTimePicker.DoHandleChange(Event: TEventListenerEvent): Boolean;\r\nbegin\r\n  Change;\r\n  Result := true;\r\nend;\r\n\r\nfunction TDateTimePicker.DoPickerBlur(Event: TEventListenerEvent): Boolean;\r\nbegin\r\n  if not IsLinked and not FIsBootstrap then\r\n    ElementHandle.style.setProperty('outline','none');\r\n  Result := true;\r\n  DoExit;\r\nend;\r\n\r\nfunction TDateTimePicker.DoPickerFocus(Event: TEventListenerEvent): Boolean;\r\nbegin\r\n  if not IsLinked and not FIsBootstrap then\r\n    ElementHandle.style.setProperty('outline','auto');\r\n  Result := true;\r\n  DoEnter;\r\nend;\r\n\r\nfunction TDateTimePicker.GetDate: TDate;\r\nvar\r\n  str: string;\r\n\r\nbegin\r\n  Result := Int(FDate) + Frac(FTime);\r\n  if not Assigned(GetElementPicker) then\r\n    Exit;\r\n\r\n  str := TJSHTMLInputElement(GetElementPicker).value;\r\n\r\n  if Kind = dtkDate then\r\n  begin\r\n    Result := PickerDateToDate(str) + Frac(FTime);\r\n  end\r\n  else\r\n    Result := FTime;\r\nend;\r\n\r\nfunction TDateTimePicker.GetDateTime: TDateTime;\r\nbegin\r\n  Result := Int(FDate) + Frac(FTime);\r\nend;\r\n\r\nfunction TDateTimePicker.GetElementBindHandle: TJSEventTarget;\r\nbegin\r\n  Result := GetElementPicker;\r\nend;\r\n\r\nfunction TDateTimePicker.GetElementPicker: TJSHTMLElement;\r\nbegin\r\n  if IsLinked then\r\n    Result := ElementHandle\r\n  else\r\n    Result := FElementPicker;\r\nend;\r\n\r\nprocedure TDateTimePicker.SetText(const Value: String);\r\nbegin\r\n  if not Assigned(GetElementPicker) then\r\n    Exit;\r\nend;\r\n\r\nprocedure TDateTimePicker.SetTime(AValue: TTime);\r\nbegin\r\n  if FTime <> AValue then\r\n  begin\r\n    FDate := 0;\r\n    FTime := AValue;\r\n    UpdateElementData;\r\n  end;\r\nend;\r\n\r\nprocedure TDateTimePicker.UpdateElementData;\r\nvar\r\n  el: TJSHTMLElement;\r\n  s: string;\r\n  i: integer;\r\n  d,m,y: word;\r\nbegin\r\n  inherited;\r\n\r\n  el := GetElementPicker;\r\n\r\n  if Assigned(el) then\r\n  begin\r\n    el['step'] := '1';\r\n\r\n    case Kind of\r\n      dtkTime:\r\n        begin\r\n          if ShowSeconds then\r\n            s := FormatDateTime('HH:MM:SS', FTime)\r\n          else\r\n            s := FormatDateTime('HH:MM', FTime);\r\n\r\n          for i := 1 to Length(s) do\r\n          begin\r\n            if not (s[i] in ['0'..'9']) then\r\n              s[i] := ':';\r\n          end;\r\n\r\n          TJSHTMLInputElement(el).value := s;\r\n          if not ShowSeconds then\r\n            el['step'] := '60';\r\n        end;\r\n      dtkDate:\r\n        begin\r\n          if FDate = 0 then\r\n            TJSHTMLInputElement(el).value := ''\r\n          else\r\n          begin\r\n            s := FormatDateTime('yyyy-MM-dd', FDate);\r\n            for i := 1 to Length(s) do\r\n            begin\r\n              if not (s[i] in ['0'..'9']) then\r\n                s[i] := '-';\r\n            end;\r\n            TJSHTMLInputElement(el).value := s;\r\n          end;\r\n        end;\r\n    end;\r\n\r\n    if TabStop then\r\n      el.setAttribute('tabindex',inttostr(TabOrder))\r\n    else\r\n      el.setAttribute('tabindex','-1');\r\n\r\n    if Kind = dtkDate then\r\n    begin\r\n      if FMin <> 0 then\r\n      begin\r\n        DecodeDate(FMin, y, m, d);\r\n        el.setAttribute('min', Format('%d',[y])+'-' + Format('%.*d',[2,m])+'-' + Format('%.*d',[2,d]));\r\n      end\r\n      else\r\n        el.removeAttribute('min');\r\n\r\n      if FMax <> 0 then\r\n      begin\r\n        DecodeDate(FMax, y, m, d);\r\n        el.setAttribute('max', Format('%d',[y])+'-' + Format('%.*d',[2,m])+'-' + Format('%.*d',[2,d]));\r\n      end\r\n      else\r\n        el.removeAttribute('max');\r\n    end;\r\n\r\n\r\n    TJSHTMLInputElement(el).readOnly := IsReadOnly;\r\n\r\n    if IsEnabled then\r\n      el.removeAttribute('disabled')\r\n    else\r\n      el.setAttribute('disabled','');\r\n  end;\r\nend;\r\n\r\nprocedure TDateTimePicker.UpdateElementVisual;\r\nvar\r\n  frm: TCustomForm;\r\nbegin\r\n  inherited;\r\n\r\n  frm := GetParentForm(Self);\r\n  FIsBootstrap := Assigned(frm) and (frm.CSSLibrary = cssBootstrap) and (ElementClassName <> '');\r\n\r\n  if Assigned(GetElementPicker) and Assigned(ElementHandle) and Assigned(FElementCheck) then\r\n  begin\r\n    FElementCheck['type'] := 'CHECKBOX';\r\n\r\n    if FKind = dtkDate then\r\n      GetElementPicker['type'] := 'DATE'\r\n    else\r\n      GetElementPicker['type'] := 'TIME';\r\n\r\n    if (ElementClassName = '') then\r\n    begin\r\n      GetElementPicker.style.setProperty('border','none');\r\n      GetElementPicker.style.setProperty('border-width','0px');\r\n      GetElementPicker.style.setProperty('outline','none');\r\n      GetElementPicker.style.setProperty('font-family','inherit');\r\n      GetElementPicker.style.setProperty('font-size','inherit');\r\n      GetElementPicker.style.setProperty('width','100%');\r\n      GetElementPicker.style.setProperty('height','100%');\r\n    end\r\n    else\r\n    begin\r\n      if FIsBootstrap then\r\n      begin\r\n        GetElementPicker.setAttribute('class',ElementClassName);\r\n        ElementHandle.removeAttribute('class');\r\n      end;\r\n    end;\r\n\r\n    if not IsLinked then\r\n    begin\r\n      ElementHandle.style.setProperty('padding','1px');\r\n      ElementHandle.style.setProperty('outline','none');\r\n    end;\r\n\r\n    if (BorderStyle = bsSingle) and (ElementClassName = '') then\r\n    begin\r\n      if not Enabled then\r\n        ElementHandle.style.setProperty('border','1px silver solid')\r\n      else\r\n        ElementHandle.style.setProperty('border','1px solid');\r\n\r\n      ElementHandle.style.setProperty('border-radius','3px');\r\n    end\r\n    else\r\n    begin\r\n      if FIsBootstrap then\r\n      begin\r\n        ElementHandle.style.removeProperty('border');\r\n        ElementHandle.style.removeProperty('box-sizing');\r\n      end;\r\n    end;\r\n\r\n    if Assigned(FElementCheck) then\r\n    begin\r\n      if ShowCheckBox then\r\n        FElementCheck.style.SetProperty('display','')\r\n      else\r\n        FElementCheck.style.SetProperty('display','none');\r\n    end;\r\n\r\n    if ShowCheckBox then\r\n    begin\r\n      if Checked then\r\n        GetElementPicker.removeAttribute('disabled')\r\n      else\r\n        GetElementPicker.setAttribute('disabled','true');\r\n    end;\r\n\r\n  end;\r\nend;\r\n\r\nfunction TDateTimePicker.GetText: String;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(GetElementPicker) then\r\n    Exit;\r\n\r\n  Result := TJSHTMLInputElement(GetElementPicker).value;\r\nend;\r\n\r\nfunction TDateTimePicker.GetTime: TTime;\r\nvar\r\n  str: string;\r\nbegin\r\n  if FDate > 0 then\r\n    Result := Frac(FTime) + Int(FDate)\r\n  else\r\n    Result := Frac(FTime);\r\n\r\n  if not Assigned(GetElementPicker) then\r\n    Exit;\r\n\r\n  str := TJSHTMLInputElement(GetElementPicker).value;\r\n\r\n  if Kind = dtkTime then\r\n  begin\r\n    Result := PickerTimeToTime(str) + Int(FDate);\r\n  end\r\n  else\r\n    Result := FTime;\r\nend;\r\n\r\n{$HINTS OFF}\r\nfunction TDateTimePicker.HandleDoEnter(Event: TJSFocusEvent): Boolean;\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  Result := inherited HandleDoEnter(Event);\r\n  if AutoDropDown then\r\n  begin\r\n    el := GetElementPicker;\r\n    asm\r\n      el.showPicker();\r\n    end;\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TDateTimePicker.InitCSSLibrary(ALibrary: TCSSLibrary);\r\nbegin\r\n  if (ALibrary = cssBootstrap) then\r\n  begin\r\n    ElementFont := efCSS;\r\n    ElementClassName := 'form-control';\r\n    HeightStyle := ssAuto;\r\n  end;\r\nend;\r\n\r\nfunction TDateTimePicker.IsReadOnly: boolean;\r\nbegin\r\n  Result := FReadOnly;\r\nend;\r\n\r\nprocedure TDateTimePicker.SetKind(AValue: TDateTimeKind);\r\nvar\r\n  dt: TDateTime;\r\nbegin\r\n  FKind := AValue;\r\n  if Assigned(GetElementPicker) then\r\n  begin\r\n    dt := Int(FDate) + Frac(FTime);\r\n    if AValue = dtkDate then\r\n      GetElementPicker['type'] := 'DATE'\r\n    else\r\n      GetElementPicker['type'] := 'TIME';\r\n\r\n    Date := dt;\r\n    Time := dt;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TDateTimePicker.SetMax(const Value: TDateTime);\r\nbegin\r\n  if (FMax <> Value) then\r\n  begin\r\n    FMax := Value;\r\n    UpdateElementData;\r\n  end;\r\nend;\r\n\r\nprocedure TDateTimePicker.SetMin(const Value: TDateTime);\r\nbegin\r\n  if (FMin <> Value) then\r\n  begin\r\n    FMin := Value;\r\n    UpdateElementData;\r\n  end;\r\nend;\r\n\r\nprocedure TDateTimePicker.SetReadOnly(const Value: boolean);\r\nbegin\r\n  FReadOnly := Value;\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TDateTimePicker.SetShowCheckBox(const Value: boolean);\r\nbegin\r\n  if (FShowCheckBox <> Value) then\r\n  begin\r\n    FShowCheckBox := Value;\r\n    UpdateElementVisual;\r\n  end;\r\nend;\r\n\r\nprocedure TDateTimePicker.SetShowSeconds(const Value: boolean);\r\nbegin\r\n  if (FShowSeconds <> Value) then\r\n  begin\r\n    FShowSeconds := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\n{ TButton }\r\n\r\nprocedure TButton.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  if (csDesigning in ComponentState) and (Caption = '') then\r\n    Caption := Name;\r\n  Color := clNone;\r\n  FModalResult := mrNone;\r\nend;\r\n\r\nprocedure TButton.HandleKeyPreview(Key: Word);\r\nbegin\r\n  inherited;\r\n  if Default and (Key = VK_RETURN) then\r\n  begin\r\n    Click;\r\n  end;\r\n  if Cancel and (Key = VK_ESCAPE) then\r\n  begin\r\n    Click;\r\n  end;\r\nend;\r\n\r\nprocedure TButton.InitCSSLibrary(ALibrary: TCSSLibrary);\r\nbegin\r\n  if (ALibrary = cssBootstrap) then\r\n  begin\r\n    ElementClassName := 'btn btn-light';\r\n    ElementFont := efCSS;\r\n    HeightStyle := ssAuto;\r\n  end;\r\nend;\r\n\r\nprocedure TButton.Click;\r\nvar\r\n  frm: TCustomForm;\r\nbegin\r\n  inherited;\r\n\r\n  if ModalResult <> mrNone then\r\n  begin\r\n    frm := GetParentForm(Self);\r\n    if Assigned(frm) then\r\n      frm.ModalResult := ModalResult;\r\n  end;\r\nend;\r\n\r\nfunction TButton.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('BUTTON');\r\n  Result['type'] := 'BUTTON';\r\nend;\r\n\r\nprocedure TButton.SetCaption(const AValue: string);\r\nbegin\r\n  if Caption <> AValue then\r\n  begin\r\n    inherited SetCaption(AValue);\r\n    UpdateElementData;\r\n  end;\r\nend;\r\n\r\nprocedure TButton.SetDefault(const Value: Boolean);\r\nbegin\r\n  FDefault := Value;\r\n  if FDefault then\r\n    SetFocus;\r\nend;\r\n\r\nprocedure TButton.SetButtonType(const Value: string);\r\nbegin\r\n  FButtonType := Value;\r\n  UpdateElementData;\r\nend;\r\n\r\nprocedure TButton.UpdateElementData;\r\nvar\r\n  acc: string;\r\nbegin\r\n  inherited;\r\n\r\n  if IsLinked and (Caption = '') then\r\n    Exit;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    if (ElementHandle.childElementCount = 0) or (Pos('</', Caption) > 0) or not IsLinked then\r\n    begin\r\n      ElementHandle.innerHTML := ProcessAccelerator(Caption,acc);\r\n    end;\r\n\r\n    if acc <> '' then\r\n      ElementHandle['accesskey'] := acc;\r\n\r\n    ElementHandle['role'] := 'button';\r\n    ElementHandle['aria-label'] := Caption;\r\n\r\n    if FButtonType <> '' then\r\n      ElementHandle['type'] := FButtonType\r\n    else\r\n      ElementHandle['type'] := 'BUTTON';\r\n  end;\r\nend;\r\n\r\nprocedure TButton.UpdateElementVisual;\r\nvar\r\n  ecn: string;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    ElementHandle.style.removeProperty('outline');\r\n    ElementHandle.style.removeProperty('user-select');\r\n\r\n    ecn := Uppercase(ElementClassName);\r\n\r\n    if (ecn = 'BTN') or (pos('BTN ', ecn) > 0)  then\r\n    begin\r\n//      ElementHandle.style.setProperty('border','none');\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TCheckBox }\r\n\r\nprocedure TCheckBox.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  Color := clNone;\r\n  FChecked := False;\r\n  FState := cbUnchecked;\r\n  Alignment := taRightJustify;\r\n\r\n  if (csDesigning in ComponentState) and (Caption = '') then\r\n     Caption := Name;\r\n\r\n  ShowFocus := true;\r\nend;\r\n\r\nprocedure TCheckBox.DoCheckClick;\r\nbegin\r\n  if Assigned(OnCheckClick) then\r\n    OnCheckClick(Self);\r\nend;\r\n\r\nprocedure TCheckBox.Click;\r\nbegin\r\n  inherited;\r\n  FChecked := GetChecked;\r\n  if FChecked then\r\n    FState := cbChecked\r\n  else\r\n    FState := cbUnChecked;\r\n\r\n  SetFocus;\r\nend;\r\n\r\nfunction TCheckBox.CreateElement: TJSElement;\r\nvar\r\n  btn, lbl: TJSElement;\r\nbegin\r\n  Result := document.createElement('SPAN');\r\n  btn := document.createElement('INPUT');\r\n  lbl := document.createElement('SPAN');\r\n\r\n  btn['TYPE'] := 'CHECKBOX';\r\n  btn['id'] := GetID + 'ck';\r\n  btn['role'] := 'checkbox';\r\n  lbl['id'] := GetID + 'lbl';\r\n  lbl['value'] := GetID;\r\n\r\n  Result.appendChild(btn);\r\n  Result.appendChild(lbl);\r\n\r\n  (btn as TJSHTMLInputElement).OnClick := @HandleCheckClick;\r\nend;\r\n\r\nfunction TCheckBox.HandleCheckClick(Event: TJSMouseEvent): Boolean;\r\nbegin\r\n  DoCheckClick;\r\n  Result := true;\r\nend;\r\n\r\nfunction TCheckBox.HandleLabelClick(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  chk: TJSHTMLInputElement;\r\nbegin\r\n  if Assigned(Container) and Enabled then\r\n  begin\r\n    chk := TJSHTMLInputElement(GetCheckElement);\r\n    chk.checked := not chk.checked;\r\n\r\n    Checked := chk.checked;\r\n  end;\r\n  DoCheckClick;\r\n  Result := true;\r\nend;\r\n\r\nprocedure TCheckBox.InitCSSLibrary(ALibrary: TCSSLibrary);\r\nbegin\r\n  if (ALibrary = cssBootstrap) then\r\n  begin\r\n    ElementFont := efCSS;\r\n    ElementClassName := 'custom-control custom-checkbox';\r\n    ElementButtonClassName := 'custom-control-input';\r\n    ElementLabelClassName := 'custom-control-label';\r\n    HeightStyle := ssAuto;\r\n  end;\r\nend;\r\n\r\nprocedure TCheckBox.KeyPress(var ch: char);\r\nvar\r\n  chk: TJSHTMLInputElement;\r\nbegin\r\n  inherited;\r\n  if ch = #32 then\r\n  begin\r\n    if Assigned(Container) and not IsLinked then\r\n    begin\r\n      chk := TJSHTMLInputElement(GetCheckElement);\r\n      chk.checked := not chk.checked;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCheckBox.Loaded;\r\nvar\r\n  lbl: TJSHTMLInputElement;\r\n\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(Container) then\r\n  begin\r\n    if not IsLinked then\r\n    begin\r\n      lbl := TJSHTMLInputElement(Container.children[1]);\r\n      lbl.OnClick := @HandleLabelClick;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCheckBox.UpdateElementData;\r\nvar\r\n  chk: TJSHTMLInputElement;\r\n  btn: TJSElement;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(Container) then\r\n  begin\r\n    chk := TJSHTMLInputElement(GetCheckElement);\r\n    if Assigned(chk) then\r\n    begin\r\n      chk.disabled := not IsEnabled;\r\n      chk.checked := FChecked;\r\n      chk.indeterminate := (State = cbGrayed);\r\n    end;\r\n\r\n    if not IsLinked then\r\n    begin\r\n      if (Caption <> '') then\r\n        Container.lastElementChild.innerHTML := Caption;\r\n\r\n      ElementHandle.setAttribute('tabindex','-1');\r\n\r\n      btn := TJSElement(ElementHandle.firstChild);\r\n      btn.setAttribute('tabindex','-1');\r\n    end;\r\n\r\n    if TabStop then\r\n      Container.setAttribute('tabindex',inttostr(TabOrder));\r\n  end;\r\nend;\r\n\r\nprocedure TCheckBox.UpdateElementSize;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(Container) and not IsLinked and (ElementPosition = epAbsolute) then\r\n  begin\r\n    if HeightStyle <> ssAuto then\r\n      TJSHTMLElement(Container.firstElementChild).style.setProperty('height','100%')\r\n    else\r\n      TJSHTMLElement(Container.firstElementChild).style.removeProperty('height');\r\n  end;\r\nend;\r\n\r\nprocedure TCheckBox.UpdateElementVisual;\r\nvar\r\n  btn,lbl: TJSElement;\r\n  frm: TCustomForm;\r\n  isbs: boolean;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    btn := TJSElement(ElementHandle.firstChild);\r\n\r\n    if Assigned(btn) then\r\n    begin\r\n      if Assigned(TJSHTMLElement(btn).style) then\r\n        TJSHTMLElement(btn).style.setProperty('margin-right','4px');\r\n\r\n      if ElementClassName = '' then\r\n      begin\r\n        TJSHTMLElement(btn).style.setProperty('vertical-align','middle');\r\n        TJSHTMLElement(btn).style.setProperty('margin-top','0px');\r\n      end;\r\n\r\n      if FElementButtonClassName <> '' then\r\n        btn.setAttribute('class',FElementButtonClassName)\r\n      else\r\n        btn.removeAttribute('class');\r\n    end;\r\n\r\n    lbl := TJSElement(ElementHandle.lastElementChild);\r\n\r\n    if Assigned(lbl) then\r\n    begin\r\n      if FElementLabelClassName <> '' then\r\n        lbl.setAttribute('class',FElementLabelClassName)\r\n      else\r\n        lbl.removeAttribute('class');\r\n    end;\r\n\r\n    if not TabStop or not ShowFocus or (ElementClassName <> '') then\r\n      ElementHandle.style.setProperty('outline','none');\r\n\r\n    if not IsLinked then\r\n    begin\r\n      ElementHandle.style.setProperty('user-select','none');\r\n\r\n      if ElementPosition = epAbsolute then\r\n      begin\r\n        if ElementButtonClassName = '' then\r\n        begin\r\n          if Alignment = taRightJustify then\r\n          begin\r\n            TJSHTMLElement(btn).style.setProperty('float','left');\r\n          end\r\n          else\r\n          begin\r\n            TJSHTMLElement(btn).style.setProperty('float','right');\r\n          end;\r\n\r\n          if HeightStyle = ssAuto then\r\n            TJSHTMLElement(btn).style.removeProperty('height')\r\n          else\r\n            if (ElementPosition = epAbsolute) then\r\n              TJSHTMLElement(btn).style.setProperty('height','100%');\r\n\r\n          TJSHTMLElement(btn).style.setProperty('vertical-align','middle');\r\n\r\n          if not (Parent is TCheckGroup) then\r\n          begin\r\n            TJSHTMLElement(btn).style.setProperty('margin-top','0px');\r\n            TJSHTMLElement(btn).style.setProperty('margin-bottom','0px');\r\n          end;\r\n        end;\r\n\r\n        frm := GetParentForm(Self);\r\n        isbs := Assigned(frm) and (frm.CSSLibrary = cssBootstrap);\r\n\r\n        if (ElementLabelClassName = '') or isbs then\r\n        begin\r\n          lbl := TJSElement(Container.lastElementChild);\r\n          TJSHTMLElement(lbl).style.setProperty('vertical-align','middle');\r\n          TJSHTMLElement(lbl).style.setProperty('min-height','100%');\r\n          TJSHTMLElement(lbl).style.setProperty('height','100%');\r\n          TJSHTMLElement(lbl).style.setProperty('position','absolute');\r\n          TJSHTMLElement(lbl).style.setProperty('overflow','hidden');\r\n          TJSHTMLElement(lbl).style.setProperty('display','inline-flex');\r\n          TJSHTMLElement(lbl).style.setProperty('align-items','center');\r\n        end;\r\n      end;\r\n    end;\r\n\r\n  end;\r\nend;\r\n\r\nprocedure TCheckBox.SetAlignment(const Value: TAlignment);\r\nbegin\r\n  if FAlignment <> Value then\r\n  begin\r\n    FAlignment := Value;\r\n    UpdateElementVisual;\r\n  end;\r\nend;\r\n\r\nprocedure TCheckBox.SetCaption(const AValue: string);\r\nbegin\r\n  if Caption <> AValue then\r\n  begin\r\n    inherited SetCaption(AValue);\r\n    if Assigned(Container) then\r\n    begin\r\n      if IsLinked then\r\n      begin\r\n        if Assigned(Container.lastElementChild) and (Container.lastElementChild.tagName = 'SPAN') then\r\n          Container.lastElementChild.innerHTML := AValue;\r\n      end\r\n      else\r\n        if Assigned(Container.lastElementChild) then\r\n          Container.lastElementChild.innerHTML := AValue;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCheckBox.SetEnabled(Value: boolean);\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  inherited;\r\n  if Assigned(Container) then\r\n  begin\r\n    el := GetCheckElement;\r\n    if Assigned(el) then\r\n      TJSHTMLInputElement(el).disabled := not Value;\r\n  end;\r\nend;\r\n\r\nprocedure TCheckBox.SetChecked(AValue: boolean);\r\nbegin\r\n  FChecked := AValue;\r\n  if AValue then\r\n    FState := cbChecked\r\n  else\r\n    FState := cbUnChecked;\r\n\r\n  UpdateElement;\r\nend;\r\n\r\nfunction TCheckBox.GetChecked: boolean;\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  if Assigned(Container) then\r\n  begin\r\n    el := GetCheckElement;\r\n    if Assigned(el) then\r\n      FChecked := TJSHTMLInputElement(el).checked;\r\n  end;\r\n\r\n  Result := FChecked;\r\nend;\r\n\r\nfunction TCheckBox.GetCheckElement: TJSHTMLElement;\r\nbegin\r\n  if IsLinked then\r\n  begin\r\n    if ElementHandle.tagName = 'INPUT' then\r\n      Result := TJSHTMLElement(ElementHandle)\r\n    else\r\n      Result := TJSHTMLElement(Container.firstElementChild);\r\n  end\r\n  else\r\n    Result := TJSHTMLElement(Container.firstElementChild);\r\nend;\r\n\r\nprocedure TCheckBox.SetState(AValue: TCheckBoxState);\r\nbegin\r\n  FState := AValue;\r\n  FChecked := FState = cbChecked;\r\n  UpdateElement;\r\nend;\r\n\r\nfunction TCheckBox.GetState: TCheckBoxState;\r\nbegin\r\n  Result := FState;\r\nend;\r\n\r\nprocedure TCheckBox.PersistinHTML;\r\nvar\r\n  cb: TJSHTMLInputElement;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  cb := TJSHTMLInputElement(GetCheckElement);\r\n\r\n  if (cb.checked) then\r\n    cb.setAttribute('checked','checked')\r\n  else\r\n    cb.removeAttribute('checked');\r\nend;\r\n\r\nprocedure TCheckBox.LoadState(AState: string);\r\nvar\r\n  cb: TJSHTMLInputElement;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  cb := TJSHTMLInputElement(GetCheckElement);\r\n  cb.checked := AState = '1';\r\nend;\r\n\r\nfunction TCheckBox.SaveState: string;\r\nvar\r\n  cb: TJSHTMLInputElement;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  cb := TJSHTMLInputElement(GetCheckElement);\r\n\r\n  if (cb.checked) then\r\n    Result := '1'\r\n  else\r\n    Result := '0';\r\nend;\r\n\r\n{ TRadioButton }\r\n\r\nprocedure TRadioButton.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  Color := clNone;\r\n\r\n  if (csDesigning in ComponentState) and (Caption = '') then\r\n    Caption := Name;\r\n\r\n  FGroupName := '';\r\n  ShowFocus := true;\r\nend;\r\n\r\nfunction TRadioButton.CreateElement: TJSElement;\r\nvar\r\n  btn, lbl: TJSElement;\r\nbegin\r\n  Result := document.createElement('SPAN');\r\n  btn := document.createElement('INPUT');\r\n  lbl := document.createElement('SPAN');\r\n  Result.addEventListener('click', @HandleLabelClick);\r\n\r\n  btn['TYPE'] := 'RADIO';\r\n  btn['id'] := GetID + 'rd';\r\n  btn['name'] := GroupName;\r\n  btn['role'] := 'radio';\r\n  btn['tabindex'] := '-1';\r\n  btn.AddEventListener('click',@HandleRadioClick);\r\n\r\n  lbl['id'] := GetID + 'lbl';\r\n  lbl['value'] := GetID;\r\n\r\n  Result.appendChild(btn);\r\n  Result.appendChild(lbl);\r\nend;\r\n\r\nfunction TRadioButton.HandleLabelClick(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  rb: TJSHTMLInputElement;\r\nbegin\r\n  if Assigned(Container) and Enabled then\r\n  begin\r\n    rb := TJSHTMLInputElement(GetRadioElement);\r\n    rb.checked := true;\r\n  end;\r\n  Result := true;\r\nend;\r\n\r\nfunction TRadioButton.HandleRadioClick(Event: TJSMouseEvent): Boolean;\r\nbegin\r\n  SetFocus;\r\n  Result := true;\r\nend;\r\n\r\nprocedure TRadioButton.InitCSSLibrary(ALibrary: TCSSLibrary);\r\nbegin\r\n  if (ALibrary = cssBootstrap) then\r\n  begin\r\n    ElementFont := efCSS;\r\n    ElementClassName := 'form-control';\r\n    HeightStyle := ssAuto;\r\n  end;\r\nend;\r\n\r\nprocedure TRadioButton.Keypress(var ch: Char);\r\nvar\r\n  rb: TJSHTMLInputElement;\r\nbegin\r\n  inherited;\r\n  if ch = #32 then\r\n  begin\r\n    rb := TJSHTMLInputElement(GetRadioElement);\r\n    rb.checked := true;\r\n  end;\r\nend;\r\n\r\nprocedure TRadioButton.LoadState(AState: string);\r\nvar\r\n  rb: TJSHTMLInputElement;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  rb := TJSHTMLInputElement(GetRadioElement);\r\n  rb.checked := AState = '1';\r\nend;\r\n\r\nprocedure TRadioButton.SetCaption(const AValue: string);\r\nbegin\r\n  if (Caption <> AValue) then\r\n  begin\r\n    inherited SetCaption(AValue);\r\n    if Assigned(Container) and not IsLinked then\r\n      Container.lastElementChild.innerHTML := AValue;\r\n  end;\r\nend;\r\n\r\nprocedure TRadioButton.SetEnabled(Value: boolean);\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  inherited;\r\n  if Assigned(Container) then\r\n  begin\r\n    el := GetRadioElement;\r\n    if Assigned(el) then\r\n      TJSHTMLInputElement(el).disabled := not Value;\r\n  end;\r\nend;\r\n\r\nprocedure TRadioButton.SetGroupName(AValue: string);\r\nbegin\r\n  FGroupName := AValue;\r\n  UpdateElementData;\r\nend;\r\n\r\nfunction TRadioButton.SaveState: string;\r\nvar\r\n  rb: TJSHTMLInputElement;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  rb := TJSHTMLInputElement(GetRadioElement);\r\n\r\n  if rb.checked then\r\n    Result := '1'\r\n  else\r\n    Result := '0';\r\nend;\r\n\r\nprocedure TRadioButton.UpdateElementData;\r\nvar\r\n  btn: TJSElement;\r\n\r\nbegin\r\n  inherited;\r\n  if Assigned(Container) then\r\n  begin\r\n    if IsLinked then\r\n      TJSHTMLElement(ElementHandle)['name'] := FGroupName\r\n    else\r\n    begin\r\n      Container.firstElementChild['name'] := FGroupName;\r\n      btn := TJSElement(ElementHandle.firstChild);\r\n      TJSHTMLInputElement(btn).disabled := not Enabled;\r\n    end;\r\n\r\n    if not IsLinked then\r\n    begin\r\n      if (Caption <> '') then\r\n        Container.lastElementChild.innerHTML := Caption;\r\n\r\n      ElementHandle.setAttribute('tabindex','-1');\r\n\r\n      if TabStop and Assigned(btn) then\r\n        btn.setAttribute('tabindex','-1');\r\n    end;\r\n\r\n    if TabStop then\r\n      Container.setAttribute('tabindex',inttostr(TabOrder));\r\n  end;\r\nend;\r\n\r\nprocedure TRadioButton.UpdateElementSize;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(Container) and not IsLinked then\r\n  begin\r\n    if (HeightStyle <> ssAuto) then\r\n      TJSHTMLElement(Container.firstElementChild).style.setProperty('height','100%')\r\n    else\r\n      TJSHTMLElement(Container.firstElementChild).style.removeProperty('height')\r\n  end;\r\nend;\r\n\r\nprocedure TRadioButton.UpdateElementVisual;\r\nvar\r\n  btn,lbl: TJSElement;\r\n  isbs: boolean;\r\n  frm: TCustomForm;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n\r\n    if not IsLinked  then\r\n    begin\r\n      btn := TJSElement(ElementHandle.firstChild);\r\n      TJSHTMLElement(btn).style.setProperty('margin-right','4px');\r\n\r\n      TJSHTMLElement(btn).style.setProperty('vertical-align','middle');\r\n      TJSHTMLElement(btn).style.setProperty('margin-top','0px');\r\n\r\n      if Assigned(btn) then\r\n      begin\r\n        if FElementButtonClassName <> '' then\r\n          btn.setAttribute('class',FElementButtonClassName)\r\n        else\r\n          btn.removeAttribute('class');\r\n      end;\r\n\r\n      lbl := TJSElement(ElementHandle.lastElementChild);\r\n\r\n      if Assigned(lbl) then\r\n      begin\r\n        if FElementLabelClassName <> '' then\r\n          lbl.setAttribute('class',FElementLabelClassName)\r\n        else\r\n          lbl.removeAttribute('class');\r\n      end;\r\n    end;\r\n\r\n    if not TabStop or not ShowFocus or (ElementClassName <> '') then\r\n      ElementHandle.style.setProperty('outline','none');\r\n\r\n    if not IsLinked then\r\n    begin\r\n      ElementHandle.style.setProperty('user-select','none');\r\n      ElementHandle.style.setProperty('white-space','normal');\r\n\r\n      if ElementPosition = epAbsolute then\r\n      begin\r\n        if ElementButtonClassName = '' then\r\n        begin\r\n          TJSHTMLElement(btn).style.setProperty('float','left');\r\n\r\n          if HeightStyle <> ssAuto then\r\n            TJSHTMLElement(btn).style.setProperty('height','100%')\r\n          else\r\n            TJSHTMLElement(btn).style.removeProperty('height');\r\n          TJSHTMLElement(btn).style.setProperty('vertical-align','middle');\r\n\r\n          if not (Parent is TRadioGroup) then\r\n          begin\r\n            TJSHTMLElement(btn).style.setProperty('margin-top','0px');\r\n            TJSHTMLElement(btn).style.setProperty('margin-bottom','0px');\r\n          end;\r\n        end;\r\n\r\n        frm := GetParentForm(Self);\r\n        isbs := Assigned(frm) and (frm.CSSLibrary = cssBootstrap);\r\n\r\n        if (ElementLabelClassName = '') or isbs then\r\n        begin\r\n          lbl := TJSElement(Container.lastElementChild);\r\n          TJSHTMLElement(lbl).style.setProperty('vertical-align','middle');\r\n          TJSHTMLElement(lbl).style.setProperty('min-height','100%');\r\n          TJSHTMLElement(lbl).style.setProperty('height','100%');\r\n          if not (Parent is TRadioGroup) then\r\n            TJSHTMLElement(lbl).style.setProperty('position','absolute');\r\n          TJSHTMLElement(lbl).style.setProperty('overflow','hidden');\r\n          TJSHTMLElement(lbl).style.setProperty('display','inline-flex');\r\n          TJSHTMLElement(lbl).style.setProperty('align-items','center');\r\n        end;\r\n      end;\r\n    end;\r\n\r\n  end;\r\nend;\r\n\r\nprocedure TRadioButton.SetChecked(AValue: boolean);\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  FChecked := AValue;\r\n\r\n  if Assigned(Container) then\r\n  begin\r\n    el := GetRadioElement;\r\n    if Assigned(el) then\r\n      TJSHTMLInputElement(el).checked := AValue;\r\n  end;\r\nend;\r\n\r\nfunction TRadioButton.GetChecked: boolean;\r\nvar\r\n  el: TJSHTMLElement;\r\n\r\nbegin\r\n  Result := FChecked;\r\n  if Assigned(Container) then\r\n  begin\r\n    el := GetRadioElement;\r\n    if Assigned(el) then\r\n      Result := TJSHTMLInputElement(el).checked;\r\n  end;\r\nend;\r\n\r\nfunction TRadioButton.GetRadioElement: TJSHTMLElement;\r\nbegin\r\n  if IsLinked then\r\n    Result := TJSHTMLElement(ElementHandle)\r\n  else\r\n    Result := TJSHTMLElement(Container.firstElementChild);\r\nend;\r\n\r\nprocedure TRadioButton.PersistInHTML;\r\nvar\r\n  rb: TJSHTMLInputElement;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  rb := TJSHTMLInputElement(GetRadioElement);\r\n  if (rb.checked) then\r\n    rb.setAttribute('checked','checked')\r\n  else\r\n    rb.removeAttribute('checked');\r\nend;\r\n\r\n{ TListBox }\r\n\r\nprocedure TListBox.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FItems := TStringList.Create;\r\n  FItems.SkipLastLinebreak := true;\r\n  TStringList(FItems).OnChange := DoItemsChange;\r\n  FMultiSelect := false;\r\n  FSelected := TList.Create;\r\n  FItemIndex := -1;\r\n  ShowFocus := true;\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Width := 160;\r\n    Height := 180;\r\n  end;\r\nend;\r\n\r\nfunction TListBox.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('SELECT');\r\n  Result['Size'] := '2';\r\nend;\r\n\r\nprocedure TListBox.DeleteSelected;\r\nvar\r\n  i: integer;\r\nbegin\r\n  Items.BeginUpdate;\r\n  for i := Items.Count - 1 downto 0 do\r\n  begin\r\n    if Selected[i] then\r\n      Items.Delete(i);\r\n  end;\r\n  Items.EndUpdate;\r\nend;\r\n\r\ndestructor TListBox.Destroy;\r\nbegin\r\n  FItems.Free;\r\n  FSelected.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TListBox.DisableDrag;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  for I := 0 to TJSHTMLSelectElement(Container).options.length - 1 do\r\n    TJSHTMLOptionElement(TJSHTMLSelectElement(Container).options[I]).Attrs['draggable'] := 'false';\r\nend;\r\n\r\nfunction TListBox.DoHandleChange(Event: TEventListenerEvent): Boolean;\r\nbegin\r\n  Change;\r\n  Result := True;\r\nend;\r\n\r\nprocedure TListBox.AddItem(Item: string; AObject: TObject);\r\nbegin\r\n  FItems.AddObject(Item, AObject);\r\nend;\r\n\r\nprocedure TListBox.BindEvents;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    ElementHandle.addEventListener('change', FHandleChangePtr);\r\n  end;\r\nend;\r\n\r\nprocedure TListBox.UnBindEvents;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    ElementHandle.removeEventListener('change', FHandleChangePtr);\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TListBox.Change;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nprocedure TListBox.Clear;\r\nbegin\r\n  BeginUpdate;\r\n  FItems.Clear;\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TListBox.ClearMethodPointers;\r\nbegin\r\n  inherited;\r\n  FHandleChangePtr := nil;\r\nend;\r\n\r\nprocedure TListBox.ClearSelection;\r\nvar\r\n  i: integer;\r\nbegin\r\n  ItemIndex := -1;\r\n\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  if ElementHandle.tagName <> 'SELECT' then\r\n    Exit;\r\n\r\n  for i := 0 to TJSHTMLSelectElement(Container).options.length - 1 do\r\n    TJSHTMLOptionElement(TJSHTMLSelectElement(Container).options[i]).selected := false;\r\nend;\r\n\r\nfunction TListBox.SaveState: string;\r\nvar\r\n  i: integer;\r\n  s: string;\r\nbegin\r\n  for i := 0 to Items.Count - 1 do\r\n  begin\r\n    if Selected[i] then\r\n      s := s + ',1'\r\n    else\r\n      s := s + ',0';\r\n  end;\r\n  Delete(s,1,1);\r\n  Result := s;\r\nend;\r\n\r\nprocedure TListBox.SelectAll;\r\nvar\r\n  i: integer;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  if ElementHandle.tagName <> 'SELECT' then\r\n    Exit;\r\n\r\n  for i := 0 to TJSHTMLSelectElement(Container).options.length - 1 do\r\n  begin\r\n    Selected[i] := true;\r\n    TJSHTMLOptionElement(TJSHTMLSelectElement(Container).options[i]).selected := true;\r\n  end;\r\nend;\r\n\r\nprocedure TListBox.SetItems(AItems: TStrings);\r\nbegin\r\n  FItems.Assign(AItems);\r\nend;\r\n\r\nfunction TListBox.GetCount: Integer;\r\nbegin\r\n  Result := FItems.Count;\r\nend;\r\n\r\nfunction TListBox.GetElementSelectHandle: TJSHTMLSelectElement;\r\nbegin\r\n  Result := TJSHTMLSelectElement(Container);\r\nend;\r\n\r\nfunction TListBox.GetItemIndex: integer;\r\nbegin\r\n  Result := FItemIndex;\r\n  if Assigned(Container) then\r\n    Result := TJSHTMLSelectElement(Container).selectedIndex;\r\nend;\r\n\r\nprocedure TListBox.GetMethodPointers;\r\nbegin\r\n  inherited;\r\n  FHandleChangePtr := @DoHandleChange;\r\nend;\r\n\r\nprocedure TListBox.PersistinHTML;\r\nvar\r\n  i: integer;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  if ElementHandle.tagName <> 'SELECT' then\r\n    Exit;\r\n\r\n  for i := 0 to TJSHTMLSelectElement(Container).options.length - 1 do\r\n  begin\r\n    if TJSHTMLOptionElement(TJSHTMLSelectElement(Container).options[i]).selected then\r\n      TJSHTMLOptionElement(TJSHTMLSelectElement(Container).options[i]).setAttribute('selected','selected')\r\n    else\r\n      TJSHTMLOptionElement(TJSHTMLSelectElement(Container).options[i]).removeAttribute('selected');\r\n  end;\r\nend;\r\n\r\nprocedure TListBox.SetItemHeight(const Value: Integer);\r\nbegin\r\n  FItemHeight := Value;\r\nend;\r\n\r\nprocedure TListBox.SetItemIndex(AIndex: integer);\r\nbegin\r\n  if FItemIndex <> AIndex then\r\n  begin\r\n    FItemIndex := AIndex;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TListBox.SetMultiSelect(AValue: boolean);\r\nbegin\r\n  FMultiSelect := AValue;\r\n  if Assigned(Container) then\r\n    TJSHTMLSelectElement(Container).multiple := AValue;\r\nend;\r\n\r\nfunction TListBox.GetSelCount: integer;\r\nvar\r\n  i: integer;\r\nbegin\r\n  Result := 0;\r\n\r\n  if Assigned(Container) then\r\n  begin\r\n    for i := 0 to FItems.Count - 1 do\r\n    begin\r\n      if TJSHTMLOptionElement(TJSHTMLSelectElement(Container).options[i]).selected then\r\n        inc(Result);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TListBox.GetSelected(AIndex: integer): boolean;\r\nbegin\r\n  if (AIndex < FSelected.Count) then\r\n    Result := boolean(FSelected.Items[AIndex])\r\n  else\r\n    Result := False;\r\n\r\n  if ElementHandle.tagName <> 'SELECT' then\r\n    Exit;\r\n\r\n  if Assigned(Container) and (AIndex < TJSHTMLSelectElement(Container).options.length) then\r\n    Result := TJSHTMLOptionElement(TJSHTMLSelectElement(Container).options[Aindex]).selected;\r\nend;\r\n\r\nfunction TListBox.GetValues(AIndex: integer): string;\r\nvar\r\n  opt: TJSHTMLOptionElement;\r\n  el: TJSHTMLSelectElement;\r\nbegin\r\n  if (AIndex >= 0) and (AIndex < Items.Count) then\r\n  begin\r\n    el := TJSHTMLSelectElement(ElementHandle);\r\n    opt := TJSHTMLOptionElement(el.options[AIndex]);\r\n    Result := opt['value'];\r\n  end;\r\nend;\r\n\r\nprocedure TListBox.InitCSSLibrary(ALibrary: TCSSLibrary);\r\nbegin\r\n  if (ALibrary = cssBootstrap) then\r\n  begin\r\n    ElementFont := efCSS;\r\n    ElementClassName := 'form-control';\r\n  end;\r\nend;\r\n\r\nprocedure TListBox.Loaded;\r\nbegin\r\n  inherited;\r\n  DoUpdateList;\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TListBox.LoadState(AState: string);\r\nvar\r\n  sl: TStringList;\r\n  i: integer;\r\nbegin\r\n  sl := TStringList.Create;\r\n  sl.Delimiter := ',';\r\n  sl.CommaText := AState;\r\n\r\n  for i := 0 to sl.Count - 1 do\r\n  begin\r\n    Selected[i] := sl.Strings[i] = '1';\r\n  end;\r\n\r\n  sl.Free;\r\nend;\r\n\r\nprocedure TListBox.SetSelected(AIndex: integer; AValue: boolean);\r\nbegin\r\n  while (AIndex >= FSelected.Count) do\r\n    FSelected.Add(false);\r\n\r\n  FSelected.Items[AIndex] := AValue;\r\n\r\n  if Assigned(Container) then\r\n  begin\r\n    TJSHTMLOptionElement(TJSHTMLSelectElement(Container).options[Aindex]).selected := AValue;\r\n  end;\r\nend;\r\n\r\nprocedure TListBox.SetSorted(const Value: Boolean);\r\nbegin\r\n  FSorted := Value;\r\n  TStringList(Items).Sorted := Value;\r\nend;\r\n\r\nprocedure TListBox.SetValues(AIndex: integer; const Value: string);\r\nvar\r\n  opt: TJSHTMLOptionElement;\r\n  el: TJSHTMLSelectElement;\r\nbegin\r\n  if (AIndex >= 0) and (AIndex < Items.Count) then\r\n  begin\r\n    el := TJSHTMLSelectElement(ElementHandle);\r\n    opt := TJSHTMLOptionElement(el.options[AIndex]);\r\n    opt['value'] := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TListBox.UpdateElementData;\r\nvar\r\n  i: integer;\r\n  b: boolean;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementSelectHandle) then\r\n  begin\r\n    ElementSelectHandle.style.setProperty('overflow', 'auto');\r\n    if not MultiSelect then\r\n      ElementSelectHandle.selectedIndex := FItemIndex\r\n    else\r\n    begin\r\n      for i := 0 to FItems.Count - 1 do\r\n      begin\r\n        if FSelected.Count > i then\r\n        begin\r\n          b := boolean(FSelected.Items[i]);\r\n          if Assigned(Container) then\r\n            TJSHTMLOptionElement(TJSHTMLSelectElement(Container).options[i]).selected := b;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TListBox.UpdateElementVisual;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementSelectHandle) then\r\n  begin\r\n    ElementSelectHandle.style.setProperty('overflow', 'auto');\r\n    ElementSelectHandle['role'] := 'listbox';\r\n    ElementSelectHandle['aria-busy'] := 'true';\r\n  end;\r\nend;\r\n\r\nprocedure TListBox.UpdateParent;\r\nbegin\r\n  inherited;\r\n  DoUpdateList;\r\nend;\r\n\r\nprocedure TListBox.DoItemsChange(Sender: TObject);\r\nbegin\r\n  DoUpdateList;\r\nend;\r\n\r\nprocedure TListBox.DoUpdateList;\r\nvar\r\n  i,j: integer;\r\n  opt: TJSHTMLOptionElement;\r\n  k,v,s: string;\r\n\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  if ElementHandle.tagName <> 'SELECT' then\r\n    Exit;\r\n\r\n  for i := TJSHTMLSelectElement(Container).options.length - 1 downto 0 do\r\n    TJSHTMLSelectElement(Container).remove(i);\r\n\r\n  for i := 0 to FItems.Count - 1 do\r\n  begin\r\n    s := FItems[i];\r\n    k := s;\r\n    v := s;\r\n    j := pos(FItems.NameValueSeparator,s);\r\n\r\n    if j > 0 then\r\n    begin\r\n      v := copy(s,1,j-1);\r\n      k := copy(s,j+1,$FFFF);\r\n    end\r\n    else\r\n      k := '';\r\n\r\n    opt := TJSHTMLOptionElement.New(v);\r\n    if k <> '' then\r\n      opt['value'] := k;\r\n\r\n    opt['role'] := 'listitem';\r\n    if ElementItemClassName <> '' then\r\n      opt['class'] := ElementItemClassName;\r\n\r\n    if DragMode = dmAutomatic then\r\n      opt['draggable'] := 'true';\r\n    TJSHTMLSelectElement(Container).add(opt);\r\n    //Selected[i] := false;\r\n  end;\r\n\r\n  UpdateElementData;\r\nend;\r\n\r\nprocedure TListBox.EnableDrag;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  for I := 0 to TJSHTMLSelectElement(Container).options.length - 1 do\r\n    TJSHTMLOptionElement(TJSHTMLSelectElement(Container).options[I]).Attrs['draggable'] := 'true';\r\nend;\r\n\r\nprocedure TListBox.EndUpdate;\r\nbegin\r\n  inherited;\r\n  DoUpdateList;\r\nend;\r\n\r\n{ TCustomComboBox }\r\n\r\nprocedure TCustomComboBox.AddItem(Item: string; AObject: TObject);\r\nbegin\r\n  FItems.AddObject(Item, AObject);\r\nend;\r\n\r\nprocedure TCustomComboBox.BindEvents;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    ElementHandle.addEventListener('input', FHandleInputPtr);\r\n    ElementHandle.addEventListener('change', FHandleChangePtr);\r\n\r\n    ElementHandle.addEventListener('focusin', FHandleFocusInPtr);\r\n    ElementHandle.addEventListener('focusout', FHandleFocusOutPtr);\r\n\r\n    ElementHandle.addEventListener('invalid', FHandleInvalidPtr);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomComboBox.UnBindEvents;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    ElementHandle.removeEventListener('input', FHandleInputPtr);\r\n    ElementHandle.removeEventListener('change', FHandleChangePtr);\r\n\r\n    ElementHandle.removeEventListener('focusin', FHandleFocusInPtr);\r\n    ElementHandle.removeEventListener('focusout', FHandleFocusOutPtr);\r\n\r\n    ElementHandle.removeEventListener('invalid', FHandleInvalidPtr);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomComboBox.Clear;\r\nbegin\r\n  Items.Clear;\r\nend;\r\n\r\nprocedure TCustomComboBox.ClearMethodPointers;\r\nbegin\r\n  inherited;\r\n  FHandleChangePtr := nil;\r\n  FHandleInputPtr := nil;\r\n  FHandleInvalidPtr := nil;\r\nend;\r\n\r\nprocedure TCustomComboBox.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FItems := TStringList.Create;\r\n  TStringList(FItems).OnChange := DoItemsChange;\r\n  FItemIndex := -1;\r\n  FStyle := csDropDownList;\r\n  ShowFocus := true;\r\n  Height := 25;\r\nend;\r\n\r\nfunction TCustomComboBox.CreateElement: TJSElement;\r\nbegin\r\n  if FStyle = csDropDownList then\r\n    Result := document.createElement('SELECT')\r\n  else\r\n  begin\r\n    Result := document.createElement('INPUT');\r\n    FListName := Name+'_LIST';\r\n    Result['list'] := FListName;\r\n  end;\r\nend;\r\n\r\ndestructor TCustomComboBox.Destroy;\r\nbegin\r\n  FItems.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TCustomComboBox.SetItems(AItems: TStrings);\r\nbegin\r\n  FItems.Assign(AItems);\r\nend;\r\n\r\nprocedure TCustomComboBox.SetRequired(const Value: boolean);\r\nbegin\r\n  if (FRequired <> Value) then\r\n  begin\r\n    FRequired := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomComboBox.SetSorted(const Value: boolean);\r\nbegin\r\n  TStringList(Items).Sorted := true;\r\n  FSorted := Value;\r\nend;\r\n\r\nprocedure TCustomComboBox.SetStyle(const Value: TComboBoxStyle);\r\nbegin\r\n  if FStyle <> Value then\r\n  begin\r\n    FStyle := Value;\r\n    if not IsLinked then\r\n      RecreateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomComboBox.SetText(const Value: string);\r\nvar\r\n  I: Integer;\r\n  AName, AValue: string;\r\nbegin\r\n  if Style = csDropDown then\r\n  begin\r\n    FText := Value;\r\n    UpdateElement;\r\n  end\r\n  else\r\n  begin\r\n    for I := 0 to Items.Count - 1 do\r\n    begin\r\n      Items.GetNameValue(i, AName, AValue);\r\n\r\n      if (Value = Items[I]) or (Value = AName) then\r\n        ItemIndex := I;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomComboBox.SetTextHint(const Value: string);\r\nbegin\r\n  if (FTextHint <> Value) then\r\n  begin\r\n    FTextHint := Value;\r\n    DoUpdateList;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomComboBox.SetValues(AIndex: integer; const Value: string);\r\nvar\r\n  opt: TJSHTMLOptionElement;\r\n  el: TJSHTMLSelectElement;\r\nbegin\r\n  if (AIndex >= 0) and (AIndex < Items.Count) then\r\n  begin\r\n    el := TJSHTMLSelectElement(ElementHandle);\r\n    opt := TJSHTMLOptionElement(el.options[AIndex]);\r\n    opt['value'] := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomComboBox.UpdateElementData;\r\nvar\r\n  d: integer;\r\nbegin\r\n  inherited;\r\n\r\n  if Required then\r\n    ElementHandle.setAttribute('required','')\r\n  else\r\n    if not isLinked then\r\n      ElementHandle.removeAttribute('required');\r\n\r\n  if Style = csDropDown then\r\n  begin\r\n    if Assigned(ElementHandle) then\r\n    begin\r\n      TJSHTMLInputELement(ElementHandle).Value := FText;\r\n\r\n      FListName := Name+'_LIST';\r\n      ElementHandle['list'] := FListName;\r\n    end;\r\n  end\r\n  else\r\n    if Assigned(ElementSelectHandle) then\r\n    begin\r\n      d := 0;\r\n      if (TextHint <> '') then\r\n        d := 1;\r\n\r\n      ElementSelectHandle.selectedIndex := FItemIndex + d;\r\n      ElementSelectHandle['role'] := 'combobox';\r\n    end;\r\nend;\r\n\r\nprocedure TCustomComboBox.UpdateElementVisual;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TCustomComboBox.UpdateParent;\r\nbegin\r\n  inherited;\r\n  DoUpdateList;\r\nend;\r\n\r\nfunction TCustomComboBox.GetElementSelectHandle: TJSHTMLSelectElement;\r\nbegin\r\n  Result := TJSHTMLSelectElement(Container);\r\nend;\r\n\r\nfunction TCustomComboBox.GetItemIndex: integer;\r\nbegin\r\n  if Style = csDropDown then\r\n  begin\r\n    Result := Items.IndexOf(Text);\r\n  end\r\n  else\r\n  begin\r\n    Result := FItemIndex;\r\n\r\n    if Assigned(Container) then\r\n    begin\r\n      Result := TJSHTMLSelectElement(Container).selectedIndex;\r\n      if TextHint <> '' then\r\n        Result := Result - 1;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomComboBox.GetMethodPointers;\r\nbegin\r\n  inherited;\r\n  FHandleChangePtr := @DoHandleChange;\r\n  FHandleInputPtr := @DoHandleInput;\r\n  FHandleFocusInPtr := @DoHandleFocusIn;\r\n  FHandleFocusOutPtr := @DoHandleFocusOut;\r\n  FHandleInvalidPtr := @DoHandleInvalid;\r\nend;\r\n\r\nfunction TCustomComboBox.GetText: string;\r\nvar\r\n  el: TJSHTMLElement;\r\n  AName,AValue: string;\r\nbegin\r\n  Result := '';\r\n  if Style = csDropDown then\r\n  begin\r\n    if Assigned(ElementHandle) then\r\n      Result := TJSHTMLInputElement(ElementHandle).value;\r\n  end\r\n  else\r\n    if (ItemIndex >= 0) then\r\n    begin\r\n      if (ItemIndex < Items.Count) then\r\n      begin\r\n        Items.GetNameValue(ItemIndex, AName, AValue);\r\n        if (AName <> '') and (AValue <> '') then\r\n          Result := AName\r\n        else\r\n          Result := Items[ItemIndex];\r\n      end\r\n      else\r\n      begin\r\n        if IsLinked then\r\n        begin\r\n          if ItemIndex < ElementHandle.childElementCount then\r\n          begin\r\n            el := TJSHTMLElement(ElementHandle.children[ItemIndex]);\r\n            if el.tagName = 'OPTION' then\r\n              Result := el.innerHTML;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\nend;\r\n\r\nfunction TCustomComboBox.GetValues(AIndex: integer): string;\r\nvar\r\n  opt: TJSHTMLOptionElement;\r\n  el: TJSHTMLSelectElement;\r\nbegin\r\n  if (AIndex >= 0) and (AIndex < Items.Count) then\r\n  begin\r\n    el := TJSHTMLSelectElement(ElementHandle);\r\n    opt := TJSHTMLOptionElement(el.options[AIndex]);\r\n    Result := opt['value'];\r\n  end;\r\nend;\r\n\r\nprocedure TCustomComboBox.InitCSSLibrary(ALibrary: TCSSLibrary);\r\nbegin\r\n  if (ALibrary = cssBootstrap) then\r\n  begin\r\n    ElementFont := efCSS;\r\n    ElementClassName := 'form-select';\r\n    HeightStyle := ssAuto;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomComboBox.Change;\r\nbegin\r\n  FItemIndex := GetItemIndex;\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nfunction TCustomComboBox.DoHandleChange(Event: TEventListenerEvent): Boolean;\r\nbegin\r\n  Change;\r\n\r\n  Result := True;\r\n  if FRequiredText <> '' then\r\n  begin\r\n    TJSHTMLInputElement(ElementHandle).setCustomValidity('');\r\n  end;\r\n\r\n  Result := True;\r\nend;\r\n\r\nfunction TCustomComboBox.DoHandleFocusIn(Event: TEventListenerEvent): Boolean;\r\nbegin\r\n  if Assigned(OnFocusIn) then\r\n    OnFocusIn(Self);\r\n  Result := true;\r\nend;\r\n\r\nfunction TCustomComboBox.DoHandleFocusOut(Event: TEventListenerEvent): Boolean;\r\nbegin\r\n  if Assigned(OnFocusOut) then\r\n    OnFocusOut(Self);\r\n  Result := true;\r\nend;\r\n\r\nfunction TCustomComboBox.DoHandleInput(Event: TEventListenerEvent): Boolean;\r\nbegin\r\n  if Style = csDropDown then\r\n    Change;\r\n  Result := True;\r\nend;\r\n\r\nfunction TCustomComboBox.DoHandleInvalid(Event: TJSEvent): Boolean;\r\nbegin\r\n  TJSHTMLInputElement(ElementHandle).setCustomValidity(FRequiredText);\r\n  Result := true;\r\nend;\r\n\r\nprocedure TCustomComboBox.Loaded;\r\nbegin\r\n  inherited;\r\n  DoUpdateList;\r\nend;\r\n\r\nprocedure TCustomComboBox.LoadState(AState: string);\r\nvar\r\n  idx,e: integer;\r\nbegin\r\n  val(AState, idx, e);\r\n  if e = 0 then\r\n    ItemIndex := idx;\r\nend;\r\n\r\nprocedure TCustomComboBox.PersistinHTML;\r\nvar\r\n  sel: TJSHTMLElement;\r\nbegin\r\n  inherited;\r\n\r\n  sel := TJSHTMLElement(ElementHandle.children[ItemIndex]);\r\n  if Assigned(sel) then\r\n    sel.setAttribute('selected','selected');\r\nend;\r\n\r\nfunction TCustomComboBox.SaveState: string;\r\nbegin\r\n  Result := IntToStr(ItemIndex);\r\nend;\r\n\r\nprocedure TCustomComboBox.SetDroppedDown(const Value: Boolean);\r\nbegin\r\n  FDroppedDown := Value;\r\nend;\r\n\r\nprocedure TCustomComboBox.SetItemIndex(AIndex: integer);\r\nbegin\r\n  if (FItemIndex <> AIndex) then\r\n  begin\r\n    FItemIndex := AIndex;\r\n\r\n    if (AIndex >= 0) and (Style in [csDropDown, csDropDownList]) and (AIndex < Items.Count) then\r\n      FText := Items[AIndex];\r\n\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomComboBox.DoItemsChange(Sender: TObject);\r\nbegin\r\n  DoUpdateList;\r\nend;\r\n\r\nprocedure TCustomComboBox.AddTextHint;\r\nvar\r\n  opt: TJSElement;\r\n\r\nbegin\r\n  if (TextHint <> '') and (Style = csDropDownList) then\r\n  begin\r\n    opt := document.createElement('OPTION');\r\n    opt['value'] := '';\r\n    opt['disabled'] := 'true';\r\n    opt['selected'] := 'true';\r\n    opt['hidden'] := 'true';\r\n    opt.innerHTML := TextHint;\r\n    Container.appendChild(opt);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomComboBox.DoUpdateList;\r\nvar\r\n  i,j: integer;\r\n  s,k,v: string;\r\n  opt: TJSElement;\r\n  el: TJSElement;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  if ElementHandle.tagName = 'INPUT' then\r\n  begin\r\n    TJSHTMLInputElement(ElementHandle).value := Text;\r\n\r\n    el := document.getElementById(Name+'_LIST');\r\n    if Assigned(el) then\r\n      el.parentNode.removeChild(el);\r\n\r\n    if TextHint <> '' then\r\n      TJSHTMLInputElement(ElementHandle).placeholder := TextHint;\r\n\r\n    el := document.createElement('DATALIST');\r\n    el['id'] := FListName;\r\n    document.body.appendChild(el);\r\n\r\n    for i := 0 to FItems.Count - 1 do\r\n    begin\r\n      s := FItems[i];\r\n      opt := document.createElement('OPTION');\r\n\r\n      k := s;\r\n      v := s;\r\n      j := pos(FItems.NameValueSeparator,s);\r\n\r\n      if j > 0 then\r\n      begin\r\n        v := copy(s,1,j-1);\r\n        k := copy(s,j+1,$FFFF);\r\n      end;\r\n\r\n      opt['value'] := k;\r\n      opt.innerHTML := v;\r\n      el.appendChild(opt);\r\n    end;\r\n\r\n  end\r\n  else\r\n  begin\r\n    if ElementHandle.tagName <> 'SELECT' then\r\n      Exit;\r\n\r\n    for i := TJSHTMLSelectElement(Container).options.length - 1 downto 0 do\r\n      TJSHTMLSelectElement(Container).remove(i);\r\n\r\n    AddTextHint;\r\n\r\n    for i := 0 to FItems.Count - 1 do\r\n    begin\r\n      s := FItems[i];\r\n      opt := document.createElement('OPTION');\r\n\r\n      k := s;\r\n      v := s;\r\n      j := pos(FItems.NameValueSeparator,s);\r\n\r\n      if j > 0 then\r\n      begin\r\n        v := copy(s,1,j-1);\r\n        k := copy(s,j+1,$FFFF);\r\n      end;\r\n\r\n      opt['value'] := k;\r\n      opt.innerHTML := v;\r\n      Container.appendChild(opt);\r\n    end;\r\n  end;\r\n\r\n  UpdateElement;\r\nend;\r\n\r\n\r\n{ TFontPicker }\r\n\r\nprocedure TFontPicker.CreateInitialize;\r\nvar\r\n  tst: boolean;\r\n  \r\n  procedure Add(s: string);\r\n  begin\r\n    asm\r\n      tst = d.detect(s);\r\n    end;\r\n    if tst then\r\n      Self.Items.Add(s);\r\n  end;\r\n\r\nbegin\r\n  inherited;\r\n\r\n  asm\r\n    var Detector = function() {\r\n    // a font will be compared against all the three default fonts.\r\n    // and if it doesn't match all 3 then that font is not available.\r\n    var baseFonts = ['monospace', 'sans-serif', 'serif'];\r\n\r\n    //we use m or w because these two characters take up the maximum width.\r\n    // And we use a LLi so that the same matching fonts can get separated\r\n    var testString = \"mmmmmmmmmmlli\";\r\n\r\n    //we test using 72px font size, we may use any size. I guess larger the better.\r\n    var testSize = '72px';\r\n\r\n    var h = document.getElementsByTagName(\"body\")[0];\r\n\r\n    // create a SPAN in the document to get the width of the text we use to test\r\n    var s = document.createElement(\"span\");\r\n    s.style.fontSize = testSize;\r\n    s.innerHTML = testString;\r\n    var defaultWidth = {};\r\n    var defaultHeight = {};\r\n    for (var index in baseFonts) {\r\n        //get the default width for the three base fonts\r\n        s.style.fontFamily = baseFonts[index];\r\n        h.appendChild(s);\r\n        defaultWidth[baseFonts[index]] = s.offsetWidth; //width for the default font\r\n        defaultHeight[baseFonts[index]] = s.offsetHeight; //height for the defualt font\r\n        h.removeChild(s);\r\n    }\r\n\r\n    function detect(font) {\r\n        var detected = false;\r\n        for (var index in baseFonts) {\r\n            s.style.fontFamily = font + ',' + baseFonts[index]; // name of the font along with the base font for fallback.\r\n            h.appendChild(s);\r\n            var matched = (s.offsetWidth != defaultWidth[baseFonts[index]] || s.offsetHeight != defaultHeight[baseFonts[index]]);\r\n            h.removeChild(s);\r\n            detected = detected || matched;\r\n        }\r\n        return detected;\r\n    }\r\n\r\n    this.detect = detect;\r\n    };\r\n\r\n    var d = new Detector();\r\n    //tst = d.detect(\"Arial\");\r\n  end;\r\n\r\n  Add('Arial');\r\n  Add('Arial Black');\r\n  Add('Arial Narrow');\r\n  Add('Courier');\r\n  Add('Courier New');\r\n  Add('Georgia');\r\n  Add('Lucida Console');\r\n  Add('Modena');\r\n  Add('Monotype Corsiva');\r\n  Add('Papyrus');\r\n  Add('Tahoma');\r\n  Add('Times');\r\n  Add('Times New Roman');\r\n  Add('Trebuchet MS');\r\n  Add('Verdana');\r\n  Add('Verona');\r\nend;\r\n\r\n{ TFontSizePicker }\r\n\r\nprocedure TFontSizePicker.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  PickerMode := fmPointSize;\r\nend;\r\n\r\nprocedure TFontSizePicker.Init;\r\nbegin\r\n  Items.Clear;\r\n\r\n  case PickerMode of\r\n    fmPointSize:\r\n    begin\r\n      Items.Add('8');\r\n      Items.Add('9');\r\n      Items.Add('10');\r\n      Items.Add('11');\r\n      Items.Add('12');\r\n      Items.Add('14');\r\n      Items.Add('16');\r\n      Items.Add('18');\r\n      Items.Add('20');\r\n      Items.Add('22');\r\n      Items.Add('24');\r\n      Items.Add('26');\r\n      Items.Add('28');\r\n      Items.Add('36');\r\n      Items.Add('48');\r\n      Items.Add('72');\r\n    end;\r\n    fmRelativeSize:\r\n    begin\r\n      Items.Add('8');\r\n      Items.Add('9');\r\n      Items.Add('10');\r\n      Items.Add('14');\r\n      Items.Add('18');\r\n      Items.Add('24');\r\n      Items.Add('36');\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TFontSizePicker.SetPickerMode(const AValue: TFontSizePickerMode);\r\nbegin\r\n  FPickerMode := AValue;\r\n  Init;\r\nend;\r\n\r\n\r\n{ TCustomMemo }\r\n\r\nfunction TCustomMemo.DoHandleChange(Event: TEventListenerEvent): Boolean;\r\nbegin\r\n  FModified := true;\r\n  Change;\r\n\r\n  if FRequiredText <> '' then\r\n  begin\r\n    ElementInputHandle.setCustomValidity('');\r\n  end;\r\n\r\n  Result := true;\r\nend;\r\n\r\nfunction TCustomMemo.DoHandleCut(Event: TEventListenerEvent): Boolean;\r\nbegin\r\n  if not CanCut then\r\n  begin\r\n    asm\r\n      Event.preventDefault();\r\n      Event.stopPropagation();\r\n    end;\r\n  end;\r\n\r\n  Result := False;\r\nend;\r\n\r\nprocedure TCustomMemo.BindEvents;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementInputHandle) then\r\n  begin\r\n    ElementInputHandle.addEventListener('input', FHandleInputPtr);\r\n    ElementInputHandle.addEventListener('change', FHandleChangePtr);\r\n    ElementInputHandle.addEventListener('paste', FHandlePastePtr);\r\n    ElementInputHandle.addEventListener('cut', FHandleCutPtr);\r\n    ElementInputHandle.addEventListener('invalid', FHandleInvalidPtr);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomMemo.UnBindEvents;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementInputHandle) then\r\n  begin\r\n    ElementInputHandle.removeEventListener('input', FHandleInputPtr);\r\n    ElementInputHandle.removeEventListener('change', FHandleChangePtr);\r\n    ElementInputHandle.removeEventListener('paste', FHandlePastePtr);\r\n    ElementInputHandle.removeEventListener('cut', FHandleCutPtr);\r\n    ElementInputHandle.removeEventListener('invalid', FHandleInvalidPtr);\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TCustomMemo.Change;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nprocedure TCustomMemo.Clear;\r\nbegin\r\n  Lines.Clear;\r\nend;\r\n\r\nprocedure TCustomMemo.ClearMethodPointers;\r\nbegin\r\n  inherited;\r\n  FHandleChangePtr := nil;\r\n  FHandleInputPtr := nil;\r\n  FHandlePastePtr := nil;\r\n  FHandleCutPtr := nil;\r\n  FHandleInvalidPtr := nil;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TCustomMemo.CopyToClipboard;\r\nvar\r\n  s: string;\r\nbegin\r\n  s := Text;\r\n  asm\r\n    navigator.clipboard.writeText(s);\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TCustomMemo.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FSpellCheck := true;\r\n  FLines := TStringList.Create;\r\n  FLines.SkipLastLineBreak := true;\r\n  TStringList(FLines).OnChange := DoLinesChange;\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Width := 400;\r\n    Height := 300;\r\n  end;\r\n  ShowFocus := true;\r\n  ClipChildren := false;\r\n  FWantTabs := false;\r\n  FAutoSize := false;\r\n  FAutoCompletion := acOff;\r\n  FWordWrap := true;\r\n  FScrollBars := ssBoth;\r\n  NoUserSelect := false;\r\nend;\r\n\r\nfunction TCustomMemo.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('TEXTAREA');\r\nend;\r\n\r\ndestructor TCustomMemo.Destroy;\r\nbegin\r\n  FLines.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TCustomMemo.DoHandleInput(Event: TEventListenerEvent): Boolean;\r\nbegin\r\n  GetText;\r\n  Change;\r\n  if AutoSize then\r\n    DoAutoSize;\r\n  Result := True;\r\nend;\r\n\r\nfunction TCustomMemo.DoHandleInvalid(Event: TJSEvent): Boolean;\r\nbegin\r\n  ElementInputHandle.setCustomValidity(FRequiredText);\r\n  Result := true;\r\nend;\r\n\r\nfunction TCustomMemo.DoHandlePaste(Event: TEventListenerEvent): Boolean;\r\nvar\r\n  s: string;\r\n  clp: boolean;\r\nbegin\r\n  clp := false;\r\n  asm\r\n    var clipboardData = Event.clipboardData || window.clipboardData;\r\n    if (clipboardData) {\r\n      s = clipboardData.getData('Text');\r\n      clp = true;\r\n    }\r\n  end;\r\n\r\n  if clp and not CanPaste(s) then\r\n  begin\r\n    asm\r\n      Event.preventDefault();\r\n      Event.stopPropagation();\r\n    end;\r\n  end;\r\n\r\n  Result:= false;\r\nend;\r\n\r\nprocedure TCustomMemo.DoLinesChange(Sender: TObject);\r\nbegin\r\n  if Assigned(ElementInputHandle) and not FBlockChange then\r\n  begin\r\n    ElementInputHandle.value := GetDisplayText;\r\n    ElementInputHandle.readOnly := IsReadOnly;\r\n   end;\r\nend;\r\n\r\nfunction TCustomMemo.CanCut: boolean;\r\nbegin\r\n  Result := True;\r\nend;\r\n\r\nfunction TCustomMemo.CanPaste(AValue: string): boolean;\r\nbegin\r\n  Result := True;\r\nend;\r\n\r\nfunction TCustomMemo.SaveState: string;\r\nbegin\r\n  Result := Lines.Text;\r\nend;\r\n\r\nprocedure TCustomMemo.ScrollBy(DeltaX, DeltaY: integer);\r\nbegin\r\n //\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    ElementHandle.scrollTop := ElementHandle.scrollTop + DeltaY;\r\n    ElementHandle.scrollLeft := ElementHandle.scrollLeft + DeltaX;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TCustomMemo.SelectAll;\r\nbegin\r\n  if Assigned(ElementInputHandle) then\r\n    ElementInputHandle.select;\r\nend;\r\n\r\nprocedure TCustomMemo.SetAutoCompletion(const Value: TAutoCompletion);\r\nbegin\r\n  if (FAutoCompletion <> Value) then\r\n  begin\r\n    FAutoCompletion := Value;\r\n    UpdateElementData;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomMemo.SetAutoSize(const Value: Boolean);\r\nbegin\r\n  if FAutoSize <> Value then\r\n  begin\r\n    FAutoSize := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomMemo.SetCaret(x, y: integer);\r\nvar\r\n  i,l: integer;\r\nbegin\r\n  l := 0;\r\n  for i := 0 to Lines.Count -1 do\r\n  begin\r\n    if i < y then\r\n      l := l + Length(Lines[i]) + 1;\r\n  end;\r\n\r\n  SelStart := l + x;\r\nend;\r\n\r\nprocedure TCustomMemo.SetCaretPos(const Value: TPoint);\r\nbegin\r\n  SetCaret(Value.X, Value.Y);\r\nend;\r\n\r\nprocedure TCustomMemo.SetLines(ALines: TStrings);\r\nbegin\r\n  FLines.Assign(ALines);\r\nend;\r\n\r\nprocedure TCustomMemo.SetReadOnly(const Value: boolean);\r\nbegin\r\n  if (FReadOnly <> Value) then\r\n  begin\r\n    FReadOnly := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomMemo.SetRequired(const Value: Boolean);\r\nbegin\r\n  if (FRequired <> Value) then\r\n  begin\r\n    FRequired := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomMemo.SetScrollBars(const Value: TScrollStyle);\r\nbegin\r\n  if (FScrollbars <> Value) then\r\n  begin\r\n    FScrollbars := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomMemo.SetSelLength(const Value: Integer);\r\nbegin\r\n  if FSelLength <> Value then\r\n  begin\r\n    FSelLength := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomMemo.SetSelStart(const Value: Integer);\r\nbegin\r\n  if FSelStart <> Value then\r\n  begin\r\n    FSelStart := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomMemo.SetSpellCheck(const Value: boolean);\r\nbegin\r\n  if FSpellCheck <> Value then\r\n  begin\r\n    FSpellCheck := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomMemo.SetText(const Value: String);\r\nbegin\r\n  FLines.Text := Value;\r\nend;\r\n\r\nprocedure TCustomMemo.SetTextHint(const Value: string);\r\nbegin\r\n  if FTextHint <> Value then\r\n  begin\r\n    FTextHint := Value;\r\n    UpdateElement;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TCustomMemo.SetWantTabs(const Value: boolean);\r\nbegin\r\n  if (FWantTabs <> Value) then\r\n  begin\r\n    FWantTabs := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomMemo.SetWordWrap(const Value: Boolean);\r\nbegin\r\n  if (FWordWrap <> Value) then\r\n  begin\r\n    FWordWrap := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TCustomMemo.UpdateElementData;\r\nvar\r\n  ss,sl: integer;\r\n  e: TJSHTMLElement;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementInputHandle) and not FBlockChange then\r\n  begin\r\n    if Required then\r\n      ElementInputHandle.setAttribute('required','')\r\n    else\r\n      if not isLinked then\r\n        ElementInputHandle.removeAttribute('required');\r\n\r\n    ElementInputHandle.value := GetDisplayText;\r\n\r\n    if (ElementInputHandle.TagName = 'TEXTAREA') then\r\n    begin\r\n      ElementInputHandle.setSelectionRange(SelStart, SelStart + SelLength);\r\n    end;\r\n\r\n    if not IsLinked then\r\n    begin\r\n      ElementInputHandle.style.setProperty('resize', 'none');\r\n    end;\r\n\r\n    ElementInputHandle.readOnly := IsReadOnly;\r\n\r\n    if TextHint <> '' then\r\n      ElementInputHandle.placeholder := TextHint;\r\n\r\n    if not isLinked then\r\n    begin\r\n      if AutoCompletion = acNone then\r\n      begin\r\n        TJSHTMLElement(ElementInputHandle).setAttribute('autocomplete','none');\r\n        if not IsLinked then\r\n          TJSHTMLElement(ElementInputHandle).removeAttribute('name');\r\n      end\r\n      else\r\n      if AutoCompletion <> acOff then\r\n      begin\r\n        TJSHTMLElement(ElementInputHandle).setAttribute('autocomplete','on');\r\n        if not IsLinked then\r\n          TJSHTMLElement(ElementInputHandle).setAttribute('name', GetAutoCompletionName(AutoCompletion));\r\n      end\r\n      else\r\n      begin\r\n        TJSHTMLElement(ElementInputHandle).removeAttribute('autocomplete');\r\n        if not IsLinked then\r\n          TJSHTMLElement(ElementInputHandle).removeAttribute('name');\r\n      end;\r\n\r\n      ss := FSelStart;\r\n      sl := FSelStart + FSelLength;\r\n      e := ElementInputHandle;\r\n      asm\r\n        setTimeout(function() {\r\n          e.setSelectionRange(ss, sl);\r\n        }, 1);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TCustomMemo.DoAutoSize;\r\nvar\r\n  sh: integer;\r\n  el: TJSHTMLElement;\r\nbegin\r\n  ElementInputHandle.style.setProperty('overflow', 'hidden');\r\n  ElementInputHandle.style.SetProperty('height', 'auto');\r\n  el := ElementInputHandle;\r\n  asm\r\n    sh = el.scrollHeight;\r\n  end;\r\n  ElementInputHandle.style.SetProperty('height', sh.ToString+'px');\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TCustomMemo.UpdateElementSize;\r\nbegin\r\n  inherited;\r\n  if AutoSize then\r\n    DoAutoSize;\r\nend;\r\n\r\n{$HINTS ON}\r\n\r\nprocedure TCustomMemo.UpdateElementVisual;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementInputHandle) and not FBlockChange and not IsLinked then\r\n  begin\r\n    if AutoSize then\r\n    begin\r\n      ElementInputHandle.style.setProperty('overflow', 'hidden');\r\n      ElementInputHandle.style.SetProperty('height', 'auto');\r\n    end\r\n    else\r\n    begin\r\n      ElementInputHandle.style.setProperty('overflow', 'auto');\r\n\r\n      case ScrollBars of\r\n      ssNone:\r\n        begin\r\n          ElementInputHandle.style.setProperty('overflow', 'hidden');\r\n        end;\r\n      ssVertical:\r\n        begin\r\n          ElementInputHandle.style.removeProperty('overflow');\r\n          ElementInputHandle.style.setProperty('overflow-x', 'hidden');\r\n          ElementInputHandle.style.setProperty('overflow-y', 'auto');\r\n        end;\r\n      ssHorizontal:\r\n        begin\r\n          ElementInputHandle.style.removeProperty('overflow');\r\n          ElementInputHandle.style.setProperty('overflow-x', 'auto');\r\n          ElementInputHandle.style.setProperty('overflow-y', 'hidden');\r\n        end;\r\n      ssBoth:\r\n        begin\r\n          ElementInputHandle.style.setProperty('overflow', 'auto');\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    ElementInputHandle.style.setProperty('margin', '0');\r\n\r\n    if (Color <> clNone) and (Color <> clWindow) then\r\n      ElementInputHandle.style.setProperty('background-color', ColorToHtml(Color))\r\n    else\r\n      ElementInputHandle.style.removeProperty('background-color');\r\n\r\n    if not SpellCheck then\r\n      ElementInputHandle['spellcheck'] := 'false'\r\n    else\r\n      if ElementInputHandle.hasAttribute('spellcheck') then\r\n        ElementInputHandle.removeAttribute('spellcheck');\r\n\r\n    if not WordWrap then\r\n      ElementInputHandle['wrap'] := 'off'\r\n    else\r\n      if ElementInputHandle.hasAttribute('wrap') then\r\n        ElementInputHandle.removeAttribute('wrap');\r\n  end;\r\nend;\r\n\r\nfunction TCustomMemo.GetText: String;\r\nbegin\r\n  if Assigned(ElementInputHandle) then\r\n  begin\r\n    FBlockChange := True;\r\n    FLines.Text := ElementInputHandle.value;\r\n    FBlockChange := False;\r\n  end;\r\n\r\n  Result := FLines.Text;\r\nend;\r\n\r\n{$HINTS OFF}\r\nfunction TCustomMemo.HandleDoKeyDown(Event: TJSKeyBoardEvent): Boolean;\r\nvar\r\n  eh: TJSHTMLElement;\r\nbegin\r\n  if (GetKeyCode(Event.Key) = 9) and WantTabs then\r\n  begin\r\n    eh := ElementInputHandle;\r\n\r\n    asm\r\n      var sstart = eh.selectionStart;\r\n      var send = eh.selectionEnd;\r\n\r\n      eh.value = eh.value.substring(0, sstart) + \"\\t\" +eh.value.substring(send);\r\n      // put caret at right position again\r\n      eh.selectionStart = eh.selectionEnd = sstart + 1;\r\n\r\n      Event.stopPropagation();\r\n      Event.preventDefault();\r\n    end;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TCustomMemo.InitCSSLibrary(ALibrary: TCSSLibrary);\r\nbegin\r\n  if (ALibrary = cssBootstrap) then\r\n  begin\r\n    ElementFont := efCSS;\r\n    ElementClassName := 'form-control';\r\n  end;\r\nend;\r\n\r\nfunction TCustomMemo.IsInputControl: Boolean;\r\nbegin\r\n  Result := True;\r\nend;\r\n\r\nfunction TCustomMemo.IsReadOnly: boolean;\r\nbegin\r\n  Result := FReadOnly;\r\nend;\r\n\r\nprocedure TCustomMemo.LoadState(AState: string);\r\nbegin\r\n  Lines.Text := AState;\r\nend;\r\n\r\nprocedure TCustomMemo.PersistinHTML;\r\nbegin\r\n  ElementInputHandle.innerHTML := Lines.Text;\r\nend;\r\n\r\nfunction TCustomMemo.GetCaret: TPoint;\r\nvar\r\n  l,i,ll,tl: integer;\r\n  ss: integer;\r\nbegin\r\n  l := 0;\r\n  tl := 0;\r\n  ss := SelStart;\r\n  for i := 0 to Lines.Count - 1 do\r\n  begin\r\n    ll := Length(Lines[i]) + 1;\r\n    if ss > tl + ll then\r\n    begin\r\n      inc(l);\r\n      tl := tl + ll;\r\n    end\r\n    else\r\n    begin\r\n      break;\r\n    end;\r\n  end;\r\n\r\n  Result.X := ss - tl;\r\n  Result.Y := l;\r\nend;\r\n\r\nfunction TCustomMemo.GetCaretPos: TPoint;\r\nbegin\r\n  Result := GetCaret;\r\nend;\r\n\r\nfunction TCustomMemo.GetDisplayText: string;\r\nbegin\r\n  Result := FLines.Text;\r\nend;\r\n\r\nfunction TCustomMemo.GetElementInputHandle: TJSHTMLInputElement;\r\nbegin\r\n  Result := TJSHTMLInputElement(Container);\r\nend;\r\n\r\nprocedure TCustomMemo.GetMethodPointers;\r\nbegin\r\n  inherited;\r\n  FHandleChangePtr := @DoHandleChange;\r\n  FHandleInputPtr := @DoHandleInput;\r\n  FHandlePastePtr := @DoHandlePaste;\r\n  FHandleCutPtr := @DoHandleCut;\r\n  FHandleInvalidPtr := @DoHandleInvalid;\r\nend;\r\n\r\nfunction TCustomMemo.GetSelLength: Integer;\r\nbegin\r\n  Result := -1;\r\n  if Assigned(ElementInputHandle) then\r\n    Result := ElementInputHandle.selectionEnd - ElementInputHandle.selectionStart;\r\nend;\r\n\r\nfunction TCustomMemo.GetSelStart: Integer;\r\nbegin\r\n  Result := -1;\r\n  if Assigned(ElementInputHandle) then\r\n    Result := ElementInputHandle.selectionStart;\r\nend;\r\n\r\nfunction TCustomMemo.GetSelText: string;\r\nbegin\r\n  Result := '';\r\n  if Assigned(ElementInputHandle) then\r\n    Result := ElementInputHandle.Value.Substring(SelStart, SelStart + SelLength);\r\nend;\r\n\r\n{ TControlGroup }\r\n\r\nprocedure TControlGroup.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FColumns := 1;\r\n  FControls := TList.Create;\r\n  FItems := TStringList.Create;\r\n  TStringList(FItems).OnChange := DoItemsChange;\r\n  //BorderWidth := 1;\r\n  FOldCount := -1;\r\n  FControlPosition := epAbsolute;\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Width := 200;\r\n    Height := 200;\r\n  end;\r\nend;\r\n\r\nprocedure TControlGroup.Change;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nfunction TControlGroup.CreateGroupControl(ALeft, ATop, AIndex: integer;\r\n  ACaption: string; APosition: TElementPosition; AState, AEnabled: boolean): TCustomControl;\r\nbegin\r\n  //\r\n  Result := nil;\r\nend;\r\n\r\nfunction TControlGroup.CreateElement: TJSElement;\r\nvar\r\n  legend: TJSElement;\r\nbegin\r\n  Result := document.createElement('FIELDSET');\r\n  legend := document.createElement('LEGEND');\r\n  Result.appendChild(legend);\r\n  legend.innerHTML := Caption;\r\n  legend['class'] := 'w-auto ' + ElementLegendClassName;\r\n\r\n  if Caption = '' then\r\n    TJSHTMLElement(legend).style.setProperty('display', 'none')\r\n  else\r\n    TJSHTMLElement(legend).style.setProperty('display', '');\r\n\r\n  TJSHTMLElement(legend).style.setProperty('float', 'none');\r\n\r\n  TJSHTMLElement(Result).style.setProperty('display', 'inline-block');\r\n\r\n  TJSHTMLElement(Result).style.setProperty('-webkit-padding-before','0px');\r\n  TJSHTMLElement(Result).style.setProperty('-webkit-padding-after','0px');\r\n  TJSHTMLElement(Result).style.setProperty('-webkit-padding-end','0px');\r\n  TJSHTMLElement(Result).style.setProperty('-webkit-padding-start','0px');\r\n  TJSHTMLElement(Result).style.setProperty('border','1px');\r\nend;\r\n\r\ndestructor TControlGroup.Destroy;\r\nbegin\r\n  FControls.Free;\r\n  FItems.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TControlGroup.Loaded;\r\nbegin\r\n  inherited;\r\n  DoUpdateList;\r\nend;\r\n\r\nprocedure TControlGroup.SetCaption(const AValue: string);\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  inherited SetCaption(AValue);\r\n\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  el := TJSHTMLElement(Container.firstElementChild);\r\n\r\n  if Assigned(el) then\r\n  begin\r\n    el.innerHTML := AValue;\r\n\r\n    if AValue = '' then\r\n      el.style.setProperty('display', 'none')\r\n    else\r\n      el.style.setProperty('display', '');\r\n  end;\r\nend;\r\n\r\nprocedure TControlGroup.SetColumns(AValue: integer);\r\nbegin\r\n  if (FColumns > 0) and (FColumns <> AValue) then\r\n  begin\r\n    FColumns := AValue;\r\n    DoUpdateList;\r\n  end;\r\nend;\r\n\r\nprocedure TControlGroup.SetControlPosition(const Value: TElementPosition);\r\nbegin\r\n  if (FControlPosition <> Value) then\r\n  begin\r\n    FControlPosition := Value;\r\n    DoUpdateList;\r\n  end;\r\nend;\r\n\r\nprocedure TControlGroup.SetEnabled(Value: Boolean);\r\nvar\r\n  i: integer;\r\nbegin\r\n  inherited;\r\n  for i := 0 to FControls.Count - 1 do\r\n  begin\r\n    TCustomControl(FControls.Items[i]).Enabled := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TControlGroup.SetHeight(AValue: Integer);\r\nbegin\r\n  inherited;\r\n  DoUpdateList;\r\nend;\r\n\r\nprocedure TControlGroup.SetItems(AItems: TStrings);\r\nbegin\r\n  FItems.Assign(AItems);\r\n  DoUpdateList;\r\nend;\r\n\r\nprocedure TControlGroup.SetWidth(AValue: Integer);\r\nbegin\r\n  inherited;\r\n  DoUpdateList;\r\nend;\r\n\r\nfunction TControlGroup.DoHandleChange(Event: TEventListenerEvent): Boolean;\r\nbegin\r\n  Change;\r\n  Result := true;\r\nend;\r\n\r\nprocedure TControlGroup.DoHandleClick(AControl: TCustomControl);\r\nbegin\r\n  Change;\r\nend;\r\n\r\nprocedure TControlGroup.DoItemsChange(Sender: TObject);\r\nbegin\r\n  DoUpdateList;\r\nend;\r\n\r\nprocedure TControlGroup.DoControlClick(Sender: TObject);\r\nbegin\r\n  DoHandleClick((Sender as TCustomControl));\r\nend;\r\n\r\nprocedure TControlGroup.DoUpdateList;\r\nvar\r\n  i: integer;\r\n  s: string;\r\n  rd: TCustomControl;\r\n  dx, dy, dc, col, row, ypos: integer;\r\n  legend: TJSElement;\r\n  chk: array of boolean;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  if FItems.Count = 0 then\r\n    Exit;\r\n\r\n  dy := Round(Font.Size * 2.5);\r\n  dx := Width div FColumns;\r\n  if Caption <> '' then\r\n    dc := Font.Size\r\n  else\r\n    dc := 4;\r\n\r\n  col := 0;\r\n  row := 0;\r\n\r\n  if FOldCount > 0 then\r\n    setLength(chk, FOldCount);\r\n\r\n  for i := 0 to FOldCount - 1 do\r\n  begin\r\n    rd := TCustomControl(FControls[i]);\r\n\r\n    if rd is TRadioButton then\r\n      chk[i] := (rd as TRadioButton).Checked;\r\n    if rd is TCheckBox then\r\n      chk[i] := (rd as TCheckBox).Checked;\r\n\r\n    rd.Free;\r\n  end;\r\n  FControls.Clear;\r\n\r\n  while Container.childElementCount > 0 do\r\n    Container.removeChild(Container.firstChild);\r\n\r\n  if Caption <> '' then\r\n  begin\r\n    legend := document.createElement('LEGEND');\r\n    ElementHandle.appendChild(legend);\r\n    legend.innerHTML := Caption;\r\n    legend['class'] := 'w-auto ' + ElementLegendClassName;\r\n\r\n    TJSHTMLElement(legend).style.setProperty('float','none');\r\n\r\n    SetHTMLElementFont(TJSHTMLElement(legend), Font, not((ElementFont = efProperty) and (ElementClassName = '')));\r\n  end;\r\n\r\n  if ElementGroupClassName <> '' then\r\n    ElementHandle.setAttribute('class', ElementGroupClassName)\r\n  else\r\n    ElementHandle.setAttribute('class','border p-2');\r\n\r\n  TJSHTMLElement(Container).style.setProperty('margin','0px');\r\n\r\n  for i := 0 to FItems.Count - 1 do\r\n  begin\r\n    ypos := dc + row * dy;\r\n    s := FItems[i];\r\n    rd := CreateGroupControl(4 + col * dx, ypos, i, s, ControlPosition, GetGroupControlState(i), true);\r\n    rd.Enabled := Enabled;\r\n    FControls.Add(rd);\r\n\r\n    if i <= FOldCount then\r\n    begin\r\n      if rd is TRadioButton then\r\n        (rd as TRadioButton).Checked := chk[i];\r\n      if rd is TCheckBox then\r\n        (rd as TCheckBox).Checked := chk[i];\r\n    end;\r\n\r\n    if not IsLinked then\r\n    begin\r\n      TJSHTMLElement(rd.Container).style.setProperty('float', 'left');\r\n      TJSHTMLElement(rd.Container).style.setProperty('width',  IntToStr(Trunc(100 / FColumns) - 5) + '%');\r\n      if TabStop then\r\n      begin\r\n        TJSHTMLElement(rd.Container)['tabindex'] := TabOrder.toString;\r\n        TJSHTMLElement(Container)['tabindex'] := '-1';\r\n      end\r\n      else\r\n        TJSHTMLElement(rd.Container)['tabindex'] := '-1';\r\n    end;\r\n\r\n    if i mod FColumns = 0 then\r\n      TJSHTMLElement(rd.Container).style.setProperty('clear', 'left');\r\n\r\n    ElementHandle.appendChild(rd.Container);\r\n\r\n    if col < FColumns - 1 then\r\n      inc(col)\r\n    else\r\n    begin\r\n      col := 0;\r\n      inc(row);\r\n    end;\r\n  end;\r\n\r\n  FOldCount := Items.Count;\r\nend;\r\n\r\nprocedure TControlGroup.EndUpdate;\r\nbegin\r\n  inherited;\r\n  DoUpdateList;\r\nend;\r\n\r\nprocedure TControlGroup.FontChanged;\r\nbegin\r\n  inherited;\r\n  DoUpdateList;\r\nend;\r\n\r\nfunction TControlGroup.GetGroupControl(AIndex: integer): TCustomControl;\r\nbegin\r\n  Result := TCustomControl(FControls[AIndex]);\r\nend;\r\n\r\nfunction TControlGroup.GetGroupControlState(AIndex: integer): boolean;\r\nbegin\r\n  Result := false;\r\nend;\r\n\r\nfunction TRadioGroup.CreateGroupControl(ALeft, ATop, AIndex: integer;\r\n  ACaption: string; APosition: TElementPosition; AState, AEnabled: boolean): TCustomControl;\r\nvar\r\n  rd: TRadioButton;\r\n  id: string;\r\nbegin\r\n  id := GetID;\r\n  if (id = '') then\r\n    id := Name;\r\n\r\n  rd := TRadioButton.Create(id + IntToStr(AIndex));\r\n  rd.ElementPosition := APosition;\r\n  rd.ElementFont := ElementFont;\r\n  rd.ElementClassName := ElementClassName;\r\n  rd.ElementButtonClassName := ElementButtonClassName;\r\n  rd.ElementLabelClassName := ElementLabelClassName;\r\n  rd.HeightStyle := ssAuto;\r\n  rd.ParentFont := false;\r\n  rd.Font.Assign(Font);\r\n  rd.Parent := Self;\r\n  rd.Caption := ACaption;\r\n  rd.GroupName := id;\r\n  rd.Top := ATop; //dc + row * dy;\r\n  rd.Left := ALeft; //4 + col * dx;\r\n  rd.WidthStyle := ssAuto;\r\n  rd.WidthPercent := 100;\r\n  rd.OnClick := DoControlClick;\r\n  rd.Checked := AState;\r\n  rd.Enabled := AEnabled;\r\n  rd.Tag := AIndex;\r\n  rd.TabStop := true;\r\n  Result := rd;\r\nend;\r\n\r\nprocedure TRadioGroup.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FItemIndex := -1;\r\n  FOldItemIndex := -2;\r\nend;\r\n\r\nprocedure TRadioGroup.DoHandleClick(AControl: TCustomControl);\r\nbegin\r\n  if ItemIndex = FOldItemIndex then\r\n    Exit;\r\n\r\n  Change;\r\n\r\n  FOldItemIndex := ItemIndex;\r\nend;\r\n\r\nfunction TRadioGroup.GetGroupControlState(AIndex: integer): boolean;\r\nbegin\r\n  Result := AIndex = FItemIndex;\r\nend;\r\n\r\nfunction TRadioGroup.GetItemIndex: integer;\r\nvar\r\n  el: TJSElement;\r\n  i: integer;\r\nbegin\r\n  Result := FItemIndex;\r\n\r\n  for i := 0 to FItems.Count -1 do\r\n  begin\r\n    el := document.getElementByID(GetID + IntToStr(i) + 'rd');\r\n    if Assigned(el) then\r\n    begin\r\n      if TJSHTMLInputElement(el).checked then\r\n        Result := i;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TRadioGroup.LoadState(AState: string);\r\nvar\r\n  idx,e: integer;\r\nbegin\r\n  val(AState, idx, e);\r\n\r\n  if (e = 0) then\r\n    ItemIndex := idx;\r\nend;\r\n\r\nfunction TRadioGroup.SaveState: string;\r\nbegin\r\n  Result := IntToStr(ItemIndex);\r\nend;\r\n\r\nprocedure TRadioGroup.SetFocus;\r\nvar\r\n  idx: integer;\r\n  rd: TRadioButton;\r\nbegin\r\n  if Items.Count = 0 then\r\n    Exit;\r\n\r\n  idx := ItemIndex;\r\n  if idx < 0 then\r\n    idx := 0;\r\n\r\n  rd := TRadioButton(GetGroupControl(idx));\r\n  if Assigned(rd) then\r\n    rd.SetFocus;\r\nend;\r\n\r\nprocedure TRadioGroup.SetItemIndex(AIndex: integer);\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  // clear selection\r\n  if (AIndex = -1) and (ItemIndex >= 0) then\r\n  begin\r\n    el := document.getElementByID(GetID + IntToStr(ItemIndex) + 'rd');\r\n\r\n    if Assigned(el) then\r\n      TJSHTMLInputElement(el).checked := False;\r\n\r\n    FItemIndex := -1;\r\n  end\r\n  else\r\n  begin\r\n    // new selection\r\n    FItemIndex := AIndex;\r\n    if (AIndex >= 0) and (AIndex < Items.Count) then\r\n    begin\r\n      el := document.getElementByID(GetID + IntToStr(AIndex) + 'rd');\r\n      if Assigned(el) then\r\n        TJSHTMLInputElement(el).checked := True;\r\n    end;\r\n  end;\r\nend;\r\n\r\n\r\n\r\n{ TColorPicker }\r\n\r\nprocedure TColorPicker.ClearMethodPointers;\r\nbegin\r\n  inherited;\r\n  FHandleChangePtr := nil;\r\nend;\r\n\r\nprocedure TColorPicker.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FColor := clBlack;\r\nend;\r\n\r\nprocedure TColorPicker.BindEvents;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementInputHandle) then\r\n  begin\r\n    ElementInputHandle.addEventListener('input', FHandleChangePtr);\r\n  end;\r\nend;\r\n\r\nfunction TColorPicker.GetElementInputHandle: TJSHTMLInputElement;\r\nbegin\r\n  Result := TJSHTMLInputElement(Container);\r\nend;\r\n\r\nprocedure TColorPicker.UnBindEvents;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementInputHandle) then\r\n  begin\r\n    ElementInputHandle.removeEventListener('input', FHandleChangePtr);\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TColorPicker.UpdateElementVisual;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    ElementHandle.style.setProperty('padding','0px'); \r\n    ElementHandle.style.setProperty('width', IntToStr(Width - 2) + 'px');\r\n    ElementHandle.style.setProperty('height',IntToStr(Height - 2) + 'px');\r\n    ElementHandle.style.setProperty('min-width','32px');\r\n  end;\r\nend;\r\n\r\nfunction TColorPicker.DoHandleChange(Event: TEventListenerEvent): Boolean;\r\nbegin   \r\n  Select;\r\n  Result := true;\r\nend;\r\n\r\nprocedure TColorPicker.Select;\r\nbegin\r\n  if Assigned(OnSelect) then\r\n    OnSelect(Self);\r\nend;\r\n\r\nfunction TColorPicker.GetColor: TColor;\r\nbegin\r\n  Result := FColor;\r\n\r\n  if Assigned(Container) then\r\n    Result := HexToColor(TJSHTMLInputElement(Container).value);\r\nend;\r\n\r\nprocedure TColorPicker.SetColor(AValue: TColor);\r\nbegin\r\n  FColor := AValue;\r\n\r\n  if Assigned(Container) then\r\n    TJSHTMLInputElement(Container).value := ColorToHTML(AValue);\r\nend;\r\n\r\nfunction TColorPicker.GetInputType: string;\r\nbegin \r\n  Result := 'COLOR';\r\nend;\r\n\r\nprocedure TColorPicker.GetMethodPointers;\r\nbegin\r\n  inherited;\r\n  FHandleChangePtr := @DoHandleChange;\r\nend;\r\n\r\nprocedure TColorPicker.InitCSSLibrary(ALibrary: TCSSLibrary);\r\nbegin\r\n  if (ALibrary = cssBootstrap) then\r\n  begin\r\n    ElementClassName := 'form-control';\r\n    ElementFont := efCSS;\r\n    HeightStyle := ssAuto;\r\n  end;\r\nend;\r\n\r\n{ TScrollBar }\r\n\r\nprocedure TScrollBar.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  TabStop := True;\r\n  FKind := sbHorizontal;\r\n  FPosition := 0;\r\n  FMin := 0;\r\n  FMax := 100;\r\n  FSmallChange := 1;\r\n  FLargeChange := 1;\r\n\r\n  FContent := TScrollBarContent.Create(Self);\r\n  FContent.Parent := Self;\r\n  FContent.Width := 121;\r\n  FContent.Height := 17;\r\n\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Width := 121;\r\n    Height := 17;\r\n  end;\r\n\r\n  UpdateContent;\r\nend;\r\n\r\nprocedure TScrollBar.BindEvents;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementHandle) then\r\n    ElementHandle.addEventListener('scroll', FScrollPtr);\r\nend;\r\n\r\nprocedure TScrollBar.ClearMethodPointers;\r\nbegin\r\n  inherited;\r\n  FScrollPtr := nil;\r\nend;\r\n\r\nfunction TScrollBar.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('SPAN');\r\nend;\r\n\r\ndestructor TScrollBar.Destroy;\r\nbegin\r\n  FContent.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TScrollBar.DoScroll(Event: TJSUIEvent): Boolean;\r\nbegin\r\n  FScrolling := True;\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\n\r\n  FScrolling := False;\r\n  Result := True;\r\nend;\r\n\r\nprocedure TScrollBar.GetMethodPointers;\r\nbegin\r\n  inherited;\r\n  FScrollPtr := @DoScroll;\r\nend;\r\n\r\nfunction TScrollBar.GetPageSize: Integer;\r\nbegin\r\n  Result := FPageSize;\r\n  if Result = 0 then\r\n    Result := 25;\r\nend;\r\n\r\nfunction TScrollBar.GetValue(XYPos: Double): Double;\r\nbegin\r\n  Result := 0;\r\n  if Assigned(FContent) then\r\n  begin\r\n    case Kind of\r\n      sbHorizontal:\r\n      begin\r\n        if FContent.Width > 0 then\r\n          Result := (XYPos / FContent.Width) * (Max - Min)\r\n      end;\r\n      sbVertical:\r\n      begin\r\n        if FContent.Height > 0 then\r\n          Result := (XYPos / FContent.Height) * (Max - Min);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TScrollBar.GetPosition: Integer;\r\nbegin\r\n  Result := 0;\r\n  if Assigned(Element) then\r\n  begin\r\n    case Kind of\r\n      sbHorizontal: Result := Round(GetValue(Element.scrollLeft));\r\n      sbVertical: Result := Round(GetValue(Element.scrollTop));\r\n    end;\r\n  end\r\n  else\r\n    Result := FPosition;\r\nend;\r\n\r\nprocedure TScrollBar.Loaded;\r\nbegin\r\n  inherited;\r\n  UpdateContent;\r\nend;\r\n\r\nprocedure TScrollBar.SetBounds(X, Y, AWidth, AHeight: Integer);\r\nbegin\r\n  inherited;\r\n  UpdateContent;\r\nend;\r\n\r\nprocedure TScrollBar.SetKind(const Value: TScrollBarKind);\r\nbegin\r\n  if FKind <> Value then\r\n  begin\r\n    FKind := Value;\r\n//    if not (csLoading in ComponentState) then\r\n    begin\r\n      case Kind of\r\n        sbHorizontal:\r\n        begin\r\n          SetBounds(Left, Top, Height, 17)\r\n        end;\r\n        sbVertical:\r\n        begin\r\n          SetBounds(Left, Top, 17, Width)\r\n        end;\r\n      end;\r\n    end;\r\n    UpdateElement;\r\n    UpdateContent;\r\n  end;\r\nend;\r\n\r\nprocedure TScrollBar.SetMax(const Value: Integer);\r\nbegin\r\n  if FMax <> Value then\r\n  begin\r\n    FMax := Value;\r\n    UpdateContent;\r\n  end;\r\nend;\r\n\r\nprocedure TScrollBar.SetMin(const Value: Integer);\r\nbegin\r\n  if FMin <> Value then\r\n  begin\r\n    FMin := Value;\r\n    UpdateContent;\r\n  end;\r\nend;\r\n\r\nprocedure TScrollBar.SetPageSize(const Value: Integer);\r\nbegin\r\n  if FPageSize <> Value then\r\n  begin\r\n    FPageSize := Value;\r\n    UpdateContent;\r\n  end;\r\nend;\r\n\r\nprocedure TScrollBar.SetPosition(const Value: Integer);\r\nbegin\r\n  if FPosition <> Value then\r\n  begin\r\n    FPosition := Value;\r\n    UpdateContent;\r\n  end;\r\nend;\r\n\r\nprocedure TScrollBar.UpdateElementVisual;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    ElementHandle.style.setProperty('overflow', 'auto');\r\n    case Kind of\r\n      sbHorizontal:\r\n      begin\r\n        ElementHandle.style.setProperty('overflow-y', 'hidden');\r\n        ElementHandle.style.setProperty('overflow-x', '');\r\n      end;\r\n      sbVertical:\r\n      begin\r\n        ElementHandle.style.setProperty('overflow-y', '');\r\n        ElementHandle.style.setProperty('overflow-x', 'hidden');\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TScrollBar.UnBindEvents;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementHandle) then\r\n    ElementHandle.removeEventListener('scroll', FScrollPtr);\r\nend;\r\n\r\nprocedure TScrollBar.UpdateContent;\r\nvar\r\n  x, y, w, h: Integer;\r\n  ps: Integer;\r\n  v: Single;\r\nbegin\r\n  if not Assigned(FContent) or not Assigned(ElementHandle) or FScrolling then\r\n    Exit;\r\n\r\n  ps := PageSize;\r\n  v := (Max - Min) / ps;\r\n\r\n  case Kind of\r\n    sbHorizontal:\r\n    begin\r\n      y := 0;\r\n      h := Height;\r\n      w := Round(v * Width);\r\n      x := Round(((FPosition - Min) / (Max - Min)) * w);\r\n    end;\r\n    sbVertical:\r\n    begin\r\n      x := 0;\r\n      w := Width;\r\n      h := Round(v * Height);\r\n      y := Round(((FPosition - Min) / (Max - Min)) * h);\r\n    end;\r\n  end;\r\n\r\n  FContent.SetBounds(0, 0, w, h);\r\n  ElementHandle.scrollLeft := x;\r\n  ElementHandle.scrollTop := y;\r\nend;\r\n\r\n{ TScrollBarContent }\r\n\r\nfunction TScrollBarContent.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('SPAN');\r\nend;\r\n\r\n{ TCheckGroup }\r\n\r\nfunction TCheckGroup.CreateGroupControl(ALeft, ATop, AIndex: integer;\r\n  ACaption: string; APosition: TElementPosition; AState, AEnabled: boolean): TCustomControl;\r\nvar\r\n  cb: TCheckBox;\r\n  id: string;\r\nbegin\r\n  id := GetID;\r\n  if id = '' then\r\n    id := Name;\r\n\r\n  cb := TCheckBox.Create(id + IntToStr(AIndex));\r\n  cb.Caption := ACaption;\r\n  cb.ElementPosition := APosition;\r\n  cb.ElementFont := ElementFont;\r\n  cb.ElementClassName := ElementClassName;\r\n  cb.ElementButtonClassName := ElementButtonClassName;\r\n  cb.ElementLabelClassName := ElementLabelClassName;\r\n  cb.ParentFont := false;\r\n  cb.Font.Assign(Font);\r\n  cb.Parent := Self;\r\n  cb.Top := ATop;\r\n  cb.Left := ALeft;\r\n  cb.WidthStyle := ssPercent;\r\n  cb.WidthPercent := 100;\r\n  cb.HeightStyle := ssAuto;\r\n\r\n  cb.OnCheckClick := DoControlClick;\r\n  cb.Checked := AState;\r\n  cb.Enabled := AEnabled;\r\n  cb.Tag := AIndex;\r\n  cb.TabStop := true;\r\n  Result := cb;\r\nend;\r\n\r\nprocedure TCheckGroup.CreateInitialize;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TCheckGroup.DoHandleClick(AControl: TCustomControl);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnCheckClick) then\r\n    OnCheckClick(Self, AControl.Tag);\r\nend;\r\n\r\nfunction TCheckGroup.GetChecked(AIndex: integer): boolean;\r\nbegin\r\n  Result := (GetGroupControl(AIndex) as TCheckBox).Checked;\r\nend;\r\n\r\nfunction TCheckGroup.GetGroupControlState(AIndex: integer): boolean;\r\nbegin\r\n  Result := false;\r\nend;\r\n\r\nprocedure TCheckGroup.LoadState(AState: string);\r\nvar\r\n  sl: TStringList;\r\n  i: integer;\r\nbegin\r\n  sl := TStringList.Create;\r\n  sl.Delimiter := ',';\r\n  sl.CommaText := AState;\r\n\r\n  for i := 0 to sl.Count - 1 do\r\n  begin\r\n    Checked[i] := sl.Strings[i] = '1';\r\n  end;\r\n\r\n  sl.Free;\r\nend;\r\n\r\nfunction TCheckGroup.SaveState: string;\r\nvar\r\n  i: integer;\r\n  s: string;\r\nbegin\r\n  s := '';\r\n  for i := 0 to Items.Count - 1 do\r\n  begin\r\n    if Checked[i] then\r\n      s := s + ',1'\r\n    else\r\n      s := s + ',0';\r\n  end;\r\n\r\n  Delete(s,1,1);\r\n  Result := s;\r\nend;\r\n\r\nprocedure TCheckGroup.SetChecked(AIndex: integer; const Value: boolean);\r\nbegin\r\n  (GetGroupControl(AIndex) as TCheckBox).Checked := Value;\r\nend;\r\n\r\nprocedure TCheckGroup.SetFocus;\r\nvar\r\n  cb: TCheckBox;\r\nbegin\r\n  if Items.Count > 0 then\r\n  begin\r\n    cb := TCheckBox(GetGroupControl(0));\r\n    if Assigned(cb) then\r\n      cb.SetFocus;\r\n  end;\r\nend;\r\n\r\n\r\n{ TLineSpacingPicker }\r\n\r\nprocedure TLineSpacingPicker.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  Items.Clear;\r\n  Items.Add('1');\r\n  Items.Add('1.5');\r\n  Items.Add('2');\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.ExtCtrls;\r\n\r\n{$modeswitch externalclass}\r\n\r\n{$DEFINE NOPP}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, SysUtils, Types, WEBLib.Controls, WEBLib.StdCtrls, WEBLib.Graphics,\r\n  Web, JS, WEBLib.WebTools, WEBLib.Menus, WEBLib.REST;\r\n\r\ntype\r\n  TLinkTarget = (ltCurrentTab, ltNewTab);\r\n\r\n  TCustomLinkLabel = class(TCustomLabel)\r\n  private\r\n    FDisplText: string;\r\n    FOnLinkClick: TLinkClickEvent;\r\n    FWidthStyle: TSizeStyle;\r\n    FHeightPercent: TPercentSize;\r\n    FHeightStyle: TSizeStyle;\r\n    FWidthPercent: TPercentSize;\r\n    FTarget: TLinkTarget;\r\n    procedure SetHeightPercent(const Value: TPercentSize); reintroduce;\r\n    procedure SetHeightStyle(const Value: TSizeStyle); reintroduce;\r\n    procedure SetWidthPercent(const Value: TPercentSize); reintroduce;\r\n    procedure SetWidthStyle(const Value: TSizeStyle); reintroduce;\r\n    procedure SetTarget(const Value: TLinkTarget);\r\n  protected\r\n    function GetOuterWidth: integer; override;\r\n    function GetOuterHeight: integer; override;\r\n    function GetDisplayText: string; override;\r\n\r\n    procedure SetCaption(const AValue: string); override;\r\n    function DoLinkClick(Event: TJSMouseEvent): boolean;\r\n  public\r\n    constructor Create(AOwner: TComponent); overload; override;\r\n  published\r\n    property Align;\r\n    property Alignment;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property AutoSize;\r\n    property Caption;\r\n    property Color;\r\n    property DragMode;\r\n    property EllipsisPosition;\r\n    property ElementClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Font;\r\n    property Height;\r\n    property Hint;\r\n    property Layout;\r\n    property Left;\r\n    property Margins;\r\n    property ShowHint;\r\n    property Target: TLinkTarget read FTarget write SetTarget default ltCurrentTab;\r\n    property Top;\r\n    property Transparent default true;\r\n    property Visible;\r\n    property Width;\r\n    property WordWrap;\r\n\r\n    property HeightStyle: TSizeStyle read FHeightStyle write SetHeightStyle default ssAbsolute;\r\n    property WidthStyle: TSizeStyle read FWidthStyle write SetWidthStyle default ssAbsolute;\r\n    property HeightPercent: TPercentSize read FHeightPercent write SetHeightPercent default 100;\r\n    property WidthPercent: TPercentSize read FWidthPercent write SetWidthPercent default 100;\r\n\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnLinkClick: TLinkClickEvent read FOnLinkClick write FOnLinkClick;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TLinkLabel = class(TCustomLinkLabel)\r\n  published\r\n    property Caption;\r\n    property ParentFont;\r\n  end;\r\n\r\n  TWebLinkLabel = class(TLinkLabel);\r\n\r\n  TTrackBarOrientation = (trHorizontal, trVertical);\r\n\r\n  TTrackBar = class(TCustomInput)\r\n  private\r\n    FMax: integer;\r\n    FMin: integer;\r\n    FPosition: integer;\r\n    FOnChange: TNotifyEvent;\r\n    FOrientation: TTrackBarOrientation;\r\n    procedure SetOrientation(const Value: TTrackBarOrientation);\r\n  protected\r\n    function GetElementInputHandle: TJSHTMLInputElement;\r\n    function GetInputType: string; override;\r\n    function DoHandleChange(Event: TEventListenerEvent): Boolean;\r\n    procedure BindEvents; override;\r\n    procedure SetMax(AValue: integer);\r\n    procedure SetMin(AValue: integer);\r\n    procedure SetPosition(AValue: integer);\r\n    function GetPosition: integer;\r\n    procedure DoUpdate;\r\n    procedure Change; virtual;\r\n    procedure CreateControl; override;\r\n    procedure UpdateElementVisual; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    property ElementInputHandle: TJSHTMLInputElement read GetElementInputHandle;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property DragMode;\r\n    property ElementClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Left;\r\n    property Margins;\r\n    property Max: integer read FMax write SetMax default 10;\r\n    property Min: integer read FMin write SetMin default 0;\r\n    property Orientation: TTrackBarOrientation read FOrientation write SetOrientation default trHorizontal;\r\n    property Position: integer read GetPosition write SetPosition default 0;\r\n    property Role;\r\n    property ShowHint;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property Top;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnClick;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebTrackBar = class(TTrackBar);\r\n\r\n  TTimer = class(TComponent)\r\n  private\r\n    FInterval: integer;\r\n    FTimerID: integer;\r\n    FOnTimer: TNotifyEvent;\r\n    FEnabled: boolean;\r\n  protected\r\n    procedure SetEnabled(Value: Boolean); virtual;\r\n    procedure SetInterval(AValue: integer);\r\n    procedure DoTimer;\r\n    procedure DoUpdateTimer;\r\n    procedure DoClearTimer;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n  published\r\n    property Enabled: boolean read FEnabled write SetEnabled default True;\r\n    property Interval: integer read FInterval write SetInterval default 1000;\r\n    property OnTimer: TNotifyEvent read FOnTimer write FOnTimer;\r\n  end;\r\n\r\n  TWebTimer = class(TTimer);\r\n\r\n  TGeolocationEvent = procedure(Sender: TObject; Lat,Lon,Alt:double) of object;\r\n  TGeolocationExEvent = procedure(Sender: TObject; Lat,Lon,Alt,Accuracy:double) of object;\r\n  TGeolocationErrorEvent = procedure(Sender: TObject; ACode: integer; AMessage: string) of object;\r\n\r\n  TGeolocationResponseProc = reference to procedure(APosition: TJSPosition);\r\n\r\n  TGeoLocation = class(TComponent)\r\n  private\r\n    FOnGeolocation: TGeolocationEvent;\r\n    FWidth: integer;\r\n    FHeight: integer;\r\n    FMaximumAge: integer;\r\n    FTimeOut: integer;\r\n    FHighPrecision: boolean;\r\n    FTrackID: integer;\r\n    FOnGeolocationUpdate: TGeolocationEvent;\r\n    FOnGeolocationEx: TGeolocationExEvent;\r\n    FOnGeolocationError: TGeolocationErrorEvent;\r\n    FOnGeolocationUpdateEx: TGeolocationExEvent;\r\n  protected\r\n    procedure DoHandleGeolocation(APosition: TJSPosition);\r\n    procedure DoHandleError(AValue : TJSPositionError);\r\n    procedure DoHandleGeolocationAsync(AProc: TGeolocationResponseProc);\r\n    procedure DoHandleGeolocationUpdate(APosition: TJSPosition);\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    function HasGeolocation: boolean;\r\n    procedure GetGeolocation;\r\n    function GetGeolocationAsync: TJSPromise;\r\n    property Width: integer read FWidth write FWidth;\r\n    property Height: integer read FHeight write FHeight;\r\n    procedure StartTracking;\r\n    procedure StopTracking;\r\n  published\r\n    property HighPrecision: boolean read FHighPrecision write FHighPrecision default false;\r\n    property TimeOut: integer read FTimeOut write FTimeOut default 60000;\r\n    property MaximumAge: integer read FMaximumAge write FMaximumAge default 0;\r\n    property OnGeolocation: TGeolocationEvent read FOnGeolocation write FOnGeolocation;\r\n    property OnGeolocationEx: TGeolocationExEvent read FOnGeolocationEx write FOnGeolocationEx;\r\n    property OnGeolocationError: TGeolocationErrorEvent read FOnGeolocationError write FOnGeolocationError;\r\n    property OnGeolocationUpdate: TGeolocationEvent read FOnGeolocationUpdate write FOnGeolocationUpdate;\r\n    property OnGeolocationUpdateEx: TGeolocationExEvent read FOnGeolocationUpdateEx write FOnGeolocationUpdateEx;\r\n  end;\r\n\r\n  TWebGeoLocation = class(TGeoLocation);\r\n\r\n  TPaintBox = class(TWebGraphicControl)\r\n  private\r\n    FOnPaint: TNotifyEvent;\r\n  protected\r\n    procedure Paint; override;\r\n    procedure UpdateElementVisual; override;\r\n  public\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property DragMode;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Margins;\r\n    property PopupMenu;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnMouseWheel;\r\n    property OnPaint: TNotifyEvent read FOnPaint write FOnPaint;\r\n    property OnTouchStart;\r\n    property OnTouchMove;\r\n    property OnTouchEnd;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebPaintBox = class(TPaintBox);\r\n\r\n  TImageLoadedProc = reference to procedure(AEvent: TJSEvent);\r\n  TImageErrorProc = reference to procedure(AEvent: TJSEvent);\r\n\r\n\r\n  TCustomImageControl = class(TWebCustomControl)\r\n  private\r\n    FURL: string;\r\n    FPicture: TURLPicture;\r\n    FAutoSize: boolean;\r\n    FOnLoaded: TNotifyEvent;\r\n    FOnError: THTTPErrorEvent;\r\n    FImageLoadPtr: pointer;\r\n    FImageErrorPtr: pointer;\r\n    FImageLoaded: TImageLoadedProc;\r\n    FImageError: TImageErrorProc;\r\n    procedure SetURL(AURL: string);\r\n    function GetBase64Img: string;\r\n  protected\r\n    function HandleImageLoad(AEvent: TJSEvent): boolean; virtual;\r\n    function HandleError(AEvent: TJSEvent): boolean; virtual;\r\n\r\n    procedure SetPicture(const Value: TURLPicture);\r\n    procedure PictureChanged(Sender: TObject);\r\n    procedure PictureDataChanged(Sender: TObject);\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElement; override;\r\n    procedure SetContainerURL(AURL: string);\r\n    property Picture: TURLPicture read FPicture write SetPicture;\r\n    property URL: string read FURL write SetURL;\r\n    procedure BindEvents; override;\r\n    procedure UnbindEvents; override;\r\n    procedure ClearMethodPointers; override;\r\n    procedure GetMethodPointers; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure Clear;\r\n    function DataURL: string; overload;\r\n    function DataURL(AWidth, AHeight: integer): string; overload;\r\n    procedure ResizeImage; overload;\r\n    procedure ResizeImage(AWidth, AHeight: integer); overload;\r\n    procedure ResizeImage(AWidth, AHeight: integer; AspectRatio: boolean); overload;\r\n    property Base64Image: string read GetBase64Img;\r\n    function ImageWidth: integer;\r\n    function ImageHeight: integer;\r\n    procedure LoadFromArrayBuffer(AArray: TJSArrayBuffer);\r\n    procedure SaveToArrayBuffer(AArray: TJSArrayBuffer);\r\n    function LoadFromURL(const AURL: string): TJSPromise; overload;\r\n    procedure LoadFromURL(const AURL: string; ImageLoaded: TImageLoadedProc; ImageError: TImageErrorProc); overload;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property AutoSize: boolean read FAutoSize write FAutoSize default false;\r\n    property Center;\r\n    property ChildOrder;\r\n    property DragMode;\r\n    property ElementClassName;\r\n    property ElementFont;\r\n    property ElementID;\r\n    property ElementPosition;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Margins;\r\n    property PopupMenu;\r\n    property ShowHint;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnError: THTTPErrorEvent read FOnError write FOnError;\r\n    property OnLoaded: TNotifyEvent read FOnLoaded write FOnLoaded;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TImageControl = class(TCustomImageControl)\r\n  published\r\n    property Picture;\r\n    property URL;\r\n  end;\r\n\r\n  TWebImageControl = class(TImageControl);\r\n\r\n  TImageZoomControl = class;\r\n\r\n  TImageZoomAppearance = class(TPersistent)\r\n  private\r\n    FOwner: TImageZoomControl;\r\n    FHeightPercent: Integer;\r\n    FWidthPercent: Integer;\r\n    FResponsiveHeightPercent: Integer;\r\n    FResponsiveWidthPercent: Integer;\r\n    FResponsiveMaxWidth: Integer;\r\n    procedure SetHeightPercent(const Value: Integer);\r\n    procedure SetWidthPercent(const Value: Integer);\r\n    procedure SetResponsiveHeightPercent(const Value: Integer);\r\n    procedure SetResponsiveWidthPercent(const Value: Integer);\r\n    procedure SetResponsiveMaxWidth(const Value: Integer);\r\n  public\r\n    constructor Create(AOwner: TImageZoomControl); overload;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    function GetOwner: TPersistent; override;\r\n  published\r\n    property HeightPercent: Integer read FHeightPercent write SetHeightPercent default 100;\r\n    property WidthPercent: Integer read FWidthPercent write SetWidthPercent default 100;\r\n    property ResponsiveHeightPercent: Integer read FResponsiveHeightPercent write SetResponsiveHeightPercent default 100;\r\n    property ResponsiveWidthPercent: Integer read FResponsiveWidthPercent write SetResponsiveWidthPercent default 100;\r\n    property ResponsiveMaxWidth: Integer read FResponsiveMaxWidth write SetResponsiveMaxWidth default 768;\r\n  end;\r\n\r\n  TImageZoomControl = class(TCustomImageControl)\r\n  private\r\n    FStyle: TJSElement;\r\n    FOverlay: TJSElement;\r\n    FPictureZoom: TURLPicture;\r\n    FURLZoom: string;\r\n    FPictureZoomDataURL: string;\r\n    FAppearance: TImageZoomAppearance;\r\n    FZoomBkgOpacity: single;\r\n    FZoomBkgColor: TColor;\r\n    procedure SetPictureZoom(const Value: TURLPicture);\r\n    procedure SetURLZoom(const Value: string);\r\n  protected\r\n    procedure PictureZoomChanged(Sender: TObject);\r\n    procedure PictureZoomDataChanged(Sender: TObject);\r\n    procedure UpdateElement; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    function CreateElement: TJSElement; override;\r\n    destructor Destroy; override;\r\n  published\r\n    property Appearance: TImageZoomAppearance read FAppearance write FAppearance;\r\n    property Picture;\r\n    property PopupMenu;\r\n    property URL;\r\n    property PictureZoom: TURLPicture read FPictureZoom write SetPictureZoom;\r\n    property URLZoom: string read FURLZoom write SetURLZoom;\r\n    property ZoomBkgColor: TColor read FZoomBkgColor write FZoomBkgColor default clBlack;\r\n    property ZoomBkgOpacity: single read FZoomBkgOpacity write FZoomBkgOpacity;\r\n  end;\r\n\r\n  TWebImageZoomControl = class(TImageZoomControl);\r\n\r\n  TCustomPanel = class(TWebCustomControl)\r\n  private\r\n    FAutoSize: Boolean;\r\n    FIsSizing: Boolean;\r\n    FPadding: TPadding;\r\n    FShowCaption: boolean;\r\n    FLabel: TJSHTMLElement;\r\n    FPanelBody: TJSHTMLElement;\r\n    FElementBodyClassName: TElementClassName;\r\n    FAlignment: TAlignment;\r\n    procedure SetShowCaption(const Value: boolean);\r\n    procedure SetPadding(const Value: TPadding);\r\n    procedure SetAlignment(const Value: TAlignment);\r\n  protected\r\n    function CreateElement: TJSElement; override;\r\n    procedure SetCaption(const AValue: string); override;\r\n    procedure SetBorderStyle(const AValue: TBorderStyle); override;\r\n    procedure SetAutoSize(AValue: boolean);\r\n    procedure UpdateElementVisual; override;\r\n    property AutoSize: boolean read FAutoSize write SetAutoSize default false;\r\n    property Alignment: TAlignment read FAlignment write SetAlignment default taCenter;\r\n    property Padding: TPadding read FPadding write SetPadding;\r\n    property ShowCaption: boolean read FShowCaption write SetShowCaption default true;\r\n    function GetOuterWidth: integer; override;\r\n    function GetOuterHeight: integer; override;\r\n    function GetChildContainer: TJSElement; override;\r\n    property ElementBodyClassName: TElementClassName read FElementBodyClassName write FElementBodyClassName;\r\n    procedure RegisterParent(AValue: TControl); override;\r\n    procedure UnRegisterParent(AValue: TControl); override;\r\n    procedure UpdatePadding(var ARect: TRect); override;\r\n    procedure DoAutoSize;\r\n    procedure AlignControl(AControl: TControl); override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure EndUpdate; override;\r\n    procedure SetBounds(X, Y, AWidth, AHeight: Integer); override;\r\n  end;\r\n\r\n  TPanel = class(TCustomPanel)\r\n  published\r\n    property Align;\r\n    property Alignment;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property AutoSize;\r\n    property BorderColor;\r\n    property BorderStyle;\r\n    property Caption;\r\n    property Center;\r\n    property ChildOrder;\r\n    property Color;\r\n    property DragMode;\r\n    property ElementBodyClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Font;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Margins;\r\n    property Padding;\r\n    property ParentFont;\r\n    property PopupMenu;\r\n    property Role;\r\n    property ShowCaption;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n    property OnTouchStart;\r\n    property OnTouchMove;\r\n    property OnTouchEnd;\r\n    property OnTouchCancel;\r\n  end;\r\n\r\n  TDivPanel = class(TPanel)\r\n  protected\r\n    function CreateElement: TJSElement; override;\r\n  end;\r\n\r\n  TWebPanel = class(TPanel);\r\n\r\n  TCustomGroupBox = class(TWebCustomControl)\r\n  private\r\n    FCaption: string;\r\n    FLegend: TJSHTMLElement;\r\n    FFieldSet: TJSHTMLElement;\r\n    FElementLegendClassName: TElementClassName;\r\n    FPadding: TPadding;\r\n    procedure SetElementLegendClassName(const Value: TElementClassName);\r\n    procedure SetPadding(const Value: TPadding);\r\n  protected\r\n    procedure UpdatePadding(var ARect: TRect); override;\r\n    procedure SetFieldSetSize; virtual;\r\n    procedure SetCaption(const Value: string); override;\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElementData; override;\r\n    procedure UpdateElementVisual; override;\r\n    procedure SetBoundsInt(X, Y, AWidth, AHeight: Integer); override;\r\n    property Caption: string read FCaption write SetCaption;\r\n    procedure InitCSSLibrary(ALibrary: TCSSLibrary); override;\r\n  public\r\n    destructor Destroy; override;\r\n    procedure CreateInitialize; override;\r\n    property ElementLegendClassName: TElementClassName read FElementLegendClassName write SetElementLegendClassName;\r\n    property Legend: TJSHTMLElement read FLegend;\r\n    property FieldSet: TJSHTMLElement read FFieldSet;\r\n    property Padding: TPadding read FPadding write SetPadding;\r\n  end;\r\n\r\n  TGroupBox = class(TCustomGroupBox)\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property BorderColor;\r\n    property Caption;\r\n    property Color;\r\n    property DragMode;\r\n    property ElementFont;\r\n    property ElementID;\r\n    property ElementLegendClassName;\r\n    property ElementPosition;\r\n    property Font;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Margins;\r\n    property ParentFont;\r\n    property PopupMenu;\r\n    property Role;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n    property OnTouchStart;\r\n    property OnTouchMove;\r\n    property OnTouchEnd;\r\n    property OnTouchCancel;\r\n\r\n  end;\r\n\r\n  TWebGroupBox = class(TGroupBox);\r\n\r\n  TScrollBox = class(TCustomPanel)\r\n  private\r\n    FAutoScroll: boolean;\r\n    FScrollBars: TScrollStyle;\r\n    FScrollPtr: pointer;\r\n    FOnScroll: TNotifyEvent;\r\n    FVertScrollBar: TControlScrollBar;\r\n    FHorzScrollBar: TControlScrollBar;\r\n    function GetScrollLeft: integer;\r\n    function GetScrollTop: integer;\r\n    procedure SetScrollLeft(const Value: integer);\r\n    procedure SetScrollTop(const Value: integer);\r\n    procedure SetScrollBars(const Value: TScrollStyle);\r\n  protected\r\n    procedure UpdateElement; override;\r\n    procedure SetAutoScroll(AValue: boolean);\r\n    function GetClientRect: TRect; override;\r\n    function HandleDoScroll(Event: TJSMouseEvent): Boolean; virtual;\r\n    procedure DoScroll; virtual;\r\n    procedure ClearMethodPointers; override;\r\n    procedure GetMethodPointers; override;\r\n    procedure BindEvents; override;\r\n    procedure UnbindEvents; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    property ScrollLeft: integer read GetScrollLeft write SetScrollLeft;\r\n    property ScrollTop: integer read GetScrollTop write SetScrollTop;\r\n    procedure ScrollBy(DeltaX: integer; DeltaY: integer);\r\n    procedure EndUpdate; override;\r\n    property VertScrollBar: TControlScrollBar read FVertScrollBar;\r\n    property HorzScrollBar: TControlScrollBar read FHorzScrollBar;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property AutoScroll: boolean read FAutoScroll write SetAutoScroll;\r\n    property BorderColor;\r\n    property BorderStyle;\r\n    property Color;\r\n    property DragMode;\r\n    property ElementFont;\r\n    property ElementID;\r\n    property ElementPosition;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Margins;\r\n    property Padding;\r\n    property PopupMenu;\r\n    property Role;\r\n    property ScrollBars: TScrollStyle read FScrollBars write SetScrollBars;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnMouseDown;\r\n    property OnMouseMove;\r\n    property OnMouseUp;\r\n    property OnResize;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnScroll: TNotifyEvent read FOnScroll write FOnScroll;\r\n    property OnStartDrag;\r\n    property OnTouchStart;\r\n    property OnTouchMove;\r\n    property OnTouchEnd;\r\n    property OnTouchCancel;\r\n\r\n  end;\r\n\r\n  TWebScrollBox = class(TScrollBox);\r\n\r\n  TSplitter = class(TCustomControl)\r\n  private\r\n    FLayer: TJSElement;\r\n    FTouched: boolean;\r\n    FFirstMove: boolean;\r\n    FSplitControl: TControl;\r\n    FSizing: boolean;\r\n    FSizingX,FSizingY: double;\r\n    FOriginalWidth,FOriginalHeight: integer;\r\n    FGripColor: TColor;\r\n    FOnMoved: TNotifyEvent;\r\n    FOnMove: TNotifyEvent;\r\n    procedure SetGripColor(const Value: TColor);\r\n  protected\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElement; override;\r\n    procedure UpdateElementSize; override;\r\n\r\n    procedure ColorChanging; override;\r\n    procedure DoSizeStart(X,Y: integer);\r\n    function HandleDoTouchStart(Event: TJSTouchEvent): Boolean; override;\r\n\r\n    function HandleDocDoMouseMove(Event: TJSMouseEvent): Boolean; virtual;\r\n    function HandleDocDoMouseUp(Event: TJSMouseEvent): Boolean; virtual;\r\n\r\n    function HandleDocDoTouchMove(Event: TJSTouchEvent): Boolean; virtual;\r\n    function HandleDocDoTouchEnd(Event: TJSTouchEvent): Boolean; virtual;\r\n\r\n    procedure DoMouseEnter; override;\r\n    procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X,Y: Integer); override;\r\n    procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X,Y: Integer); override;\r\n    procedure Paint; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Color;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property ElementFont;\r\n    property ElementID;\r\n    property ElementPosition;\r\n    property GripColor: TColor read FGripColor write SetGripColor default clWhite;\r\n    property Margins;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnClick;\r\n    property OnTouchStart;\r\n    property OnTouchMove;\r\n    property OnTouchEnd;\r\n    property OnTouchCancel;\r\n    property OnMove: TNotifyEvent read FOnMove write FOnMove;\r\n    property OnMoved: TNotifyEvent read FOnMoved write FOnMoved;\r\n  end;\r\n\r\n  TWebSplitter = class(TSplitter);\r\n\r\n  TVerticalAlignment = (vaTop, vaCenter, vaBottom);\r\n  TGridPanelExpandStyle = (esAddRows, esAddColumns);\r\n\r\n  TGridPanelRow = class(TCollectionItem)\r\n  private\r\n    FSizeStyle: TSizeStyle;\r\n    FValue: integer;\r\n    FMarginBottom: integer;\r\n    FMarginTop: integer;\r\n    FAlignment: TVerticalAlignment;\r\n    FElementClassName: string;\r\n    procedure SetMarginBottom(const Value: integer);\r\n    procedure SetMarginTop(const Value: integer);\r\n    procedure SetSizeStyle(const Value: TSizeStyle);\r\n    procedure SetValue(const Value: integer);\r\n  protected\r\n    function HeightAttribute: string;\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property Alignment: TVerticalAlignment read FAlignment write FAlignment default vaTop;\r\n    property ElementClassName: string read FElementClassName write FElementClassName;\r\n    property MarginTop: integer read FMarginTop write SetMarginTop;\r\n    property MarginBottom: integer read FMarginBottom write SetMarginBottom;\r\n    property SizeStyle: TSizeStyle read FSizeStyle write SetSizeStyle;\r\n    property Value: integer read FValue write SetValue;\r\n  end;\r\n\r\n  TGridPanelRows = class(TOwnedCollection)\r\n  private\r\n    FOnChange: TNotifyEvent;\r\n    function GetItem(Index: integer): TGridPanelRow; reintroduce;\r\n    procedure SetItem(Index: integer; const Value: TGridPanelRow); reintroduce;\r\n  protected\r\n    procedure Update(Item: TCollectionItem); override;\r\n  public\r\n    constructor Create(AOwner: TComponent); reintroduce;\r\n    function Add: TGridPanelRow; reintroduce;\r\n    function Insert(Index: integer): TGridPanelRow; reintroduce;\r\n    property Items[Index: integer]: TGridPanelRow read GetItem write SetItem; default;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  end;\r\n\r\n  TGridPanelColumn = class(TCollectionItem)\r\n  private\r\n    FSizeStyle: TSizeStyle;\r\n    FValue: integer;\r\n    FMarginLeft: integer;\r\n    FAlignment: TAlignment;\r\n    FMarginRight: integer;\r\n    FElementClassName: string;\r\n    procedure SetMarginLeft(const Value: integer);\r\n    procedure SetMarginRight(const Value: integer);\r\n    procedure SetSizeStyle(const Value: TSizeStyle);\r\n    procedure SetValue(const Value: integer);\r\n  protected\r\n    function WidthAttribute: string;\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property Alignment: TAlignment read FAlignment write FAlignment default taLeftJustify;\r\n    property ElementClassName: string read FElementClassName write FElementClassName;\r\n    property MarginLeft: integer read FMarginLeft write SetMarginLeft default 0;\r\n    property MarginRight: integer read FMarginRight write SetMarginRight default 0;\r\n    property SizeStyle: TSizeStyle read FSizeStyle write SetSizeStyle default ssPercent;\r\n    property Value: integer read FValue write SetValue;\r\n  end;\r\n\r\n  TGridPanelColumns = class(TOwnedCollection)\r\n  private\r\n    FOnChange: TNotifyEvent;\r\n    function GetItem(Index: integer): TGridPanelColumn; reintroduce;\r\n    procedure SetItem(Index: integer; const Value: TGridPanelColumn); reintroduce;\r\n  protected\r\n    procedure Update(Item: TCollectionItem); override;\r\n  public\r\n    constructor Create(AOwner: TComponent); reintroduce;\r\n    function Add: TGridPanelColumn; reintroduce;\r\n    function Insert(Index: integer): TGridPanelColumn; reintroduce;\r\n    property Items[Index: integer]: TGridPanelColumn read GetItem write SetItem; default;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  end;\r\n\r\n  TControlCollectionItem = class(TCollectionItem)\r\n  private\r\n    FControl: TWinControl;\r\n    FRow: integer;\r\n    FColumn: integer;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property Column: integer read FColumn write FColumn;\r\n    property Row: integer read FRow write FRow;\r\n    property Control: TWinControl read FControl write FControl;\r\n  end;\r\n\r\n  TControlCollection = class(TOwnedCollection)\r\n  private\r\n    function GetItem(Index: Integer): TControlCollectionItem; reintroduce;\r\n    procedure SetItem(Index: Integer; const Value: TControlCollectionItem); reintroduce;\r\n  public\r\n    constructor Create(AOwner: TComponent); reintroduce;\r\n    function Add: TControlCollectionItem; reintroduce;\r\n    function Insert(Index: Integer): TControlCollectionItem; reintroduce;\r\n    property Items[Index: Integer]: TControlCollectionItem read GetItem write SetItem;\r\n    function FindItem(AControl: TWinControl): TControlCollectionItem;\r\n    function GetItemAtCell(ACol,ARow: integer): TControlCollectionItem;\r\n  end;\r\n\r\n  TGridPanel = class(TWebCustomControl)\r\n  private\r\n    FDesignTime: boolean;\r\n    FUpdateTable: boolean;\r\n    FColCount: integer;\r\n    FRowCollection: TGridPanelRows;\r\n    FColumnCollection: TGridPanelColumns;\r\n    FControlCollection: TControlCollection;\r\n    FGridLineWidth: integer;\r\n    FGridLineColor: TColor;\r\n    FExpandStyle: TGridPanelExpandStyle;\r\n    FTbl: TJSElement;\r\n    FTblBody: TJSElement;\r\n    procedure SetColumnCollection(const Value: TGridPanelColumns);\r\n    procedure SetRowCollection(const Value: TGridPanelRows);\r\n    procedure SetControlCollection(const Value: TControlCollection);\r\n  protected\r\n    function CreateTable: TJSElement; virtual;\r\n    function CreateRow(AIndex: integer): TJSElement; virtual;\r\n    function CreateElement: TJSElement; override;\r\n    procedure AlignControl(AControl: TControl); override;\r\n    procedure UpdateTable;\r\n    procedure UpdateElement; override;\r\n    procedure UpdateElementVisual; override;\r\n    procedure RegisterParent(AValue: TControl); override;\r\n    procedure TableChanged(Sender: TObject);\r\n    procedure Notification(AComponent: TComponent;  Operation: TOperation); override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure AddControl(AControl: TWinControl);\r\n    procedure RemoveControl(AControl: TWinControl);\r\n    procedure EndUpdate; override;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property Color;\r\n    property ControlCollection: TControlCollection read FControlCollection write SetControlCollection;\r\n    property ColumnCollection: TGridPanelColumns read FColumnCollection write SetColumnCollection;\r\n    property DragMode;\r\n    property ElementFont;\r\n    property ElementID;\r\n    property ElementPosition;\r\n    property ExpandStyle: TGridPanelExpandStyle read FExpandStyle write FExpandStyle default esAddRows;\r\n    property GridLineWidth: integer read FGridLineWidth write FGridLineWidth default 0;\r\n    property GridLineColor: TColor read FGridLineColor write FGridLineColor default clBlack;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Margins;\r\n    property PopupMenu;\r\n    property Role;\r\n    property RowCollection: TGridPanelRows read FRowCollection write SetRowCollection;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n    property OnTouchStart;\r\n    property OnTouchMove;\r\n    property OnTouchEnd;\r\n    property OnTouchCancel;\r\n\r\n  end;\r\n\r\n  TWebGridPanel = class(TGridPanel);\r\n\r\n  TMultiMediaType = (mtVideo, mtAudio);\r\n\r\n  TMultiMediaControl = (mcFullscreen, mcDownload, mcRemoteplayback, mcPlaybackrate, mcPictureInPicture);\r\n  TMultiMediaControls = set of TMultiMediaControl;\r\n\r\n   // nofullscreen nodownload noremoteplayback noplaybackrate\r\n\r\n  TMultiMediaVolume = 0..100;\r\n\r\n  TMultiMediaPreload = (mpAuto, mpNone, mpMetadata);\r\n\r\n  TMultimediaPlayer = class(TCustomControl)\r\n  private\r\n    FURL: string;\r\n    FMultimediaType: TMultimediaType;\r\n    FAutoPlay: boolean;\r\n    FControls: boolean;\r\n    FMuted: boolean;\r\n    FLoop: boolean;\r\n    FVolume: TMultiMediaVolume;\r\n    FPlaybackRate: double;\r\n    FContextMenu: boolean;\r\n    FPoster: string;\r\n    FHideControls: TMultiMediaControls;\r\n    FPreload: TMultiMediaPreload;\r\n    procedure SetAutoPlay(const Value: boolean);\r\n    procedure SetControls(const Value: boolean);\r\n    procedure SetMuted(const Value: boolean);\r\n    procedure SetLoop(const Value: boolean);\r\n    procedure SetURL(const Value: string);\r\n    procedure SetVolume(const Value: TMultiMediaVolume);\r\n    function GetCurrentTime: double;\r\n    procedure SetCurrentTime(const Value: double);\r\n    function GetDuration: double;\r\n    function GetEnded: boolean;\r\n    function GetPaused: boolean;\r\n    procedure SetPlaybackRate(const Value: double);\r\n    procedure SetContextMenu(const Value: boolean);\r\n    procedure SetPoster(const Value: string);\r\n    procedure SetHideControls(const Value: TMultiMediaControls);\r\n    procedure SetPreload(const Value: TMultiMediaPreload);\r\n  protected\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElement; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    procedure Play;\r\n    procedure Pause;\r\n    procedure ReLoad;\r\n    property CurrentTime: double read GetCurrentTime write SetCurrentTime;\r\n    property Duration: double read GetDuration;\r\n    property Ended: boolean read GetEnded;\r\n    property Paused: boolean read GetPaused;\r\n  published\r\n    property AlignWithMargins;\r\n    property AutoPlay: boolean read FAutoPlay write SetAutoPlay;\r\n    property Controls: boolean read FControls write SetControls;\r\n    property ContextMenu: boolean read FContextMenu write SetContextMenu default true;\r\n    property HideControls: TMultiMediaControls read FHideControls write SetHideControls;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Loop: boolean read FLoop write SetLoop;\r\n    property Margins;\r\n    property MultimediaType: TMultimediaType read FMultiMediaType write FMultiMediaType;\r\n    property Muted: boolean read FMuted write SetMuted;\r\n    property PlaybackRate: double read FPlaybackRate write SetPlaybackRate;\r\n    property Poster: string read FPoster write SetPoster;\r\n    property Preload: TMultiMediaPreload read FPreload write SetPreload;\r\n    property URL: string read FURL write SetURL;\r\n    property Volume: TMultiMediaVolume read FVolume write SetVolume;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n//    property OnContextMenu;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n  end;\r\n\r\n  TWebMultiMediaPlayer = class(TMultiMediaPlayer);\r\n\r\n  THTMLContainer = class(TCustomControl)\r\n  private\r\n    FHTML: TStringList;\r\n    FScrollStyle: TScrollStyle;\r\n    FURL: string;\r\n    FOnLoaded: TNotifyEvent;\r\n    procedure SetHTML(const Value: TStringList);\r\n    procedure SetURL(const Value: string);\r\n  protected\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElement; override;\r\n    procedure HTMLChanged(Sender: TObject); virtual;\r\n    procedure DoLoaded; virtual;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    function LoadFromURL(AURL: string): TJSPromise;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property DragMode;\r\n    property ElementFont;\r\n    property ElementID;\r\n    property ElementPosition;\r\n    property Font;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property HTML: TStringList read FHTML write SetHTML;\r\n    property Margins;\r\n    property ParentFont;\r\n    property Role;\r\n    property ScrollStyle: TScrollStyle read FScrollStyle write FScrollStyle;\r\n    property URL: string read FURL write SetURL;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnLoaded: TNotifyEvent read FOnLoaded write FOnLoaded;\r\n    property OnMouseDown;\r\n    property OnMouseMove;\r\n    property OnMouseUp;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnTouchEnd;\r\n    property OnTouchCancel;\r\n    property OnTouchStart;\r\n    property OnTouchMove;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebHTMLContainer = class(THTMLContainer);\r\n\r\n  THTMLForm = class(TCustomControl)\r\n  private\r\n    FOnSubmit: TNotifyEvent;\r\n    FAction: string;\r\n    procedure SetAction(const Value: string);\r\n  protected\r\n    procedure UpdateElement; override;\r\n    function CreateElement: TJSElement; override;\r\n    function DoHandleSubmit(Event: TJSEvent): boolean; virtual;\r\n    function GetChildContainer: TJSElement; override;\r\n    procedure BindEvents; override;\r\n  public\r\n    function CheckValidity: boolean;\r\n    procedure CreateInitialize; override;\r\n  published\r\n    property Action: string read FAction write SetAction;\r\n    property Align;\r\n    property Anchors;\r\n    property ElementPosition;\r\n    property ElementFont;\r\n    property ElementID;\r\n    property Font;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Role;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnSubmit: TNotifyEvent read FOnSubmit write FOnSubmit;\r\n  end;\r\n\r\n  TWebHTMLForm = class(THTMLForm);\r\n\r\n  TBadge = class(TCustomControl)\r\n  private\r\n    FTextColor: TColor;\r\n    FText: string;\r\n    procedure SetTextColor(const Value: TColor);\r\n    procedure SetText(const Value: string);\r\n  protected\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElement; override;\r\n    procedure SetElementClassName(AValue: string); override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property Color default clRed;\r\n    property ElementFont;\r\n    property ElementID;\r\n    property ElementPosition;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Margins;\r\n    property Role;\r\n    property Text: string read FText write SetText;\r\n    property TextColor: TColor read FTextColor write SetTextColor;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n  end;\r\n\r\n\r\n  TWebBadge = class(TBadge);\r\n\r\n  TAccordionSection = class(TCollectionItem)\r\n  private\r\n    FCaption: string;\r\n    FContent: string;\r\n    FTag: integer;\r\n    FExpanded: boolean;\r\n    FControl: TWebCustomControl;\r\n    procedure SetExpanded(const Value: boolean);\r\n    procedure SetCaption(const Value: string);\r\n    procedure SetContent(const Value: string);\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    property Expanded: boolean read FExpanded write SetExpanded;\r\n    function CaptionElement: TJSHTMLElement;\r\n    function PanelElement: TJSHTMLElement;\r\n    property Control: TWebCustomControl read FControl write FControl;\r\n  published\r\n    property Caption: string read FCaption write SetCaption;\r\n    property Content: string read FContent write SetContent;\r\n    property Tag: integer read FTag write FTag;\r\n  end;\r\n\r\n  TAccordionSections = class(TOwnedCollection)\r\n  private\r\n    FOnChange: TNotifyEvent;\r\n    function GetItem(Index: integer): TAccordionSection; reintroduce;\r\n    procedure SetItem(Index: integer; const Value: TAccordionSection);\r\n  protected\r\n    procedure Update(Item: TCollectionItem); override;\r\n  public\r\n    constructor Create(AOwner: TComponent); overload;\r\n    function Add: TAccordionSection; reintroduce;\r\n    function Insert(Index: integer): TAccordionSection; reintroduce;\r\n    property Items[Index: integer]: TAccordionSection read GetItem write SetItem; default;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  end;\r\n\r\n  TAccordionSectionEvent =  procedure(Sender: TObject; ASection: TAccordionSection) of object;\r\n  TAccordionSectionAllowEvent =  procedure(Sender: TObject; ASection: TAccordionSection; var Allow: boolean) of object;\r\n\r\n  TAccordionSectionRenderEvent =  procedure(Sender: TObject; ASection: TAccordionSection; ACaption, APanel: TJSHTMLElementRecord) of object;\r\n\r\n  TAccordion = class(TCustomControl)\r\n  private\r\n    FStyleRendered: boolean;\r\n    FSections: TAccordionSections;\r\n    FOnCollapsing: TAccordionSectionAllowEvent;\r\n    FOnExpanding: TAccordionSectionAllowEvent;\r\n    FOnCollapsed: TAccordionSectionEvent;\r\n    FOnExpanded: TAccordionSectionEvent;\r\n    FOnRenderSection: TAccordionSectionRenderEvent;\r\n    FElementSectionClassName: TElementClassName;\r\n    FElementContentClassName: TElementClassName;\r\n    procedure SetSections(const Value: TAccordionSections);\r\n  protected\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElement; override;\r\n    procedure RenderAccordion;\r\n    procedure RenderStyle;\r\n    procedure SectionsChanged(Sender: TObject); virtual;\r\n    function DoAccordionClick(Event: TJSEvent): Boolean; virtual;\r\n    procedure UpdateElementVisual; override;\r\n    procedure Expand(ASection: TAccordionSection);\r\n    procedure Collapse(ASection: TAccordionSection);\r\n    procedure SetElementClassName(AValue: string); override;\r\n    procedure Loaded; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure EndUpdate; override;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property Margins;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property ElementSectionClassName: TElementClassName read FElementSectionClassName write FElementSectionClassName;\r\n    property ElementContentClassName: TElementClassName read FElementContentClassName write FElementContentClassName;\r\n    property ElementClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Role;\r\n    property Sections: TAccordionSections read FSections write SetSections;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnCollapsed: TAccordionSectionEvent read FOnCollapsed write FOnCollapsed;\r\n    property OnCollapsing: TAccordionSectionAllowEvent read FOnCollapsing write FOnCollapsing;\r\n    property OnExpanded: TAccordionSectionEvent read FOnExpanded write FOnExpanded;\r\n    property OnExpanding: TAccordionSectionAllowEvent read FOnExpanding write FOnExpanding;\r\n    property OnRenderSection: TAccordionSectionRenderEvent read FOnRenderSection write FOnRenderSection;\r\n\r\n    property OnTouchStart;\r\n    property OnTouchMove;\r\n    property OnTouchEnd;\r\n    property OnTouchCancel;\r\n  end;\r\n\r\n  TWebAccordion = class(TAccordion);\r\n\r\n\r\n  TGridStyle = (gTemplateColumns, gTemplateRows);\r\n\r\n  TResponsiveLayoutItem = class(TCollectionItem)\r\n  private\r\n    FWidth: integer;\r\n    FStyleType: TGridStyle;\r\n    FStyle: string;\r\n    FColumnGap: string;\r\n    FRowGap: string;\r\n    FTag: integer;\r\n    FDescription: string;\r\n    FMargins: TMargins;\r\n    procedure SetMargins(const Value: TMargins);\r\n    procedure SetColumnGap(const Value: string);\r\n    procedure SetRowGap(const Value: string);\r\n    procedure SetStyle(const Value: string);\r\n    procedure SetStyleType(const Value: TGridStyle);\r\n    procedure SetWidth(const Value: integer);\r\n  public\r\n    constructor Create(AOwner: TCollection); override;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property ColumnGap: string read FColumnGap write SetColumnGap;\r\n    property Description: string read FDescription write FDescription;\r\n    property Margins: TMargins read FMargins write SetMargins;\r\n    property RowGap: string read FRowGap write SetRowGap;\r\n    property StyleType: TGridStyle read FStyleType write SetStyleType;\r\n    property Style: string read FStyle write SetStyle;\r\n    property Tag: integer read FTag write FTag;\r\n    property Width: integer read FWidth write SetWidth;\r\n  end;\r\n\r\n  TResponsiveLayout = class(TOwnedCollection)\r\n  private\r\n    FOnChange: TNotifyEvent;\r\n    function GetItem(Index: integer): TResponsiveLayoutItem; reintroduce;\r\n    procedure SetItem(Index: integer; const Value: TResponsiveLayoutItem);\r\n  protected\r\n    procedure Update(Item: TCollectionItem); override;\r\n  public\r\n    function GetLayoutForWidth(w: integer): TResponsiveLayoutItem;\r\n    constructor Create(AOwner: TComponent); reintroduce;\r\n    function Add(AWidth: integer; AStyle: string): TResponsiveLayoutItem; overload; reintroduce;\r\n    function Add: TResponsiveLayoutItem; overload; reintroduce;\r\n    function Insert(Index: integer): TResponsiveLayoutItem; reintroduce;\r\n    property Items[Index: integer]: TResponsiveLayoutItem read GetItem write SetItem;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  end;\r\n\r\n  //https://developer.mozilla.org/en-US/docs/Web/CSS/CSS_Grid_Layout\r\n\r\n  TResponsiveLayoutChangeEvent = procedure(Sender: TObject; ALayout: TResponsiveLayoutItem) of object;\r\n\r\n  TResponsiveGridPanel = class(TCustomControl)\r\n  private\r\n    FDesignTime: boolean;\r\n    FLabel: TJSHTMLElement;\r\n    FLayout: TResponsiveLayout;\r\n    FActiveLayoutItem: TResponsiveLayoutItem;\r\n    FOldWidth: integer;\r\n    FControlCollection: TControlCollection;\r\n    FOnLayoutChange: TResponsiveLayoutChangeEvent;\r\n    FResizePtr: pointer;\r\n    procedure SetControlCollection(const Value: TControlCollection);\r\n    function HandleResize(Event: TEventListenerEvent): boolean; virtual;\r\n    procedure SetResponsiveStyle;\r\n  protected\r\n    procedure BindEvents; override;\r\n    procedure UnbindEvents; override;\r\n    procedure UpdateControls;\r\n    function CreateElement: TJSElement; override;\r\n    function GridElementCount: integer;\r\n    procedure UpdateElement; override;\r\n    procedure Loaded; override;\r\n    procedure RegisterParent(AValue: TControl); override;\r\n    procedure Notification(AComponent: TComponent;  Operation: TOperation); override;\r\n    procedure LayoutChanged(Sender: TObject);\r\n  public\r\n    constructor Create(AOwner: TComponent); overload; override;\r\n    destructor Destroy; override;\r\n    procedure CreateInitialize; override;\r\n    procedure AlignControls(AControl: TControl; var Rect: TRect); override;\r\n    procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;\r\n    procedure Resize; override;\r\n    procedure AddControl(AControl: TWinControl);\r\n    procedure RemoveControl(AControl: TWinControl);\r\n    procedure RemoveControls;\r\n    procedure EndUpdate; override;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property ChildOrder;\r\n    property Color;\r\n    property ControlCollection: TControlCollection read FControlCollection write SetControlCollection;\r\n    property ElementClassName;\r\n    property ElementFont;\r\n    property ElementID;\r\n    property ElementPosition;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property Layout: TResponsiveLayout read FLayout write FLayout;\r\n    property Margins;\r\n    property Role;\r\n    property ShowHint;\r\n    property Visible;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnLayoutChange: TResponsiveLayoutChangeEvent read FOnLayoutChange write FOnLayoutChange;\r\n  end;\r\n\r\n  TWebResponsiveGridPanel = class(TResponsiveGridPanel);\r\n\r\n  TLookupValueItem = class(TCollectionItem)\r\n  private\r\n    FValue: string;\r\n    FDisplayText: string;\r\n  public\r\n\r\n  published\r\n    property Value: string read FValue write FValue;\r\n    property DisplayText: string read FDisplayText write FDisplayText;\r\n  end;\r\n\r\n  TLookupValues = class(TOwnedCollection)\r\n  private\r\n    FOnChange: TNotifyEvent;\r\n    function GetItem(Index: integer): TLookupValueItem; reintroduce;\r\n    procedure SetItem(Index: integer; const Value: TLookupValueItem);\r\n  protected\r\n    procedure DoChange; virtual;\r\n    procedure Update(Item: TCollectionItem); override;\r\n  public\r\n    constructor Create(AOwner: TComponent); reintroduce;\r\n    procedure AddPair(AValue, ADisplayText: string);\r\n    procedure InsertPair(Index: Integer; AValue, ADisplayText: string);\r\n    function Add: TLookupValueItem; reintroduce;\r\n    function Insert(Index: integer): TLookupValueItem; reintroduce;\r\n    property Items[Index: integer]: TLookupValueItem read GetItem write SetItem; default;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  end;\r\n\r\n  TCustomLookupComboBox = class(TCustomComboBox)\r\n  private\r\n    FLookupValues: TLookupValues;\r\n    procedure SetLookupValues(const Value: TLookupValues);\r\n    function GetDisplayText: string;\r\n    function GetValue: string;\r\n    procedure SetDisplayText(const Value: string);\r\n  protected\r\n    procedure SetValue(const Value: string); virtual;\r\n    procedure ValuesChanged(Sender: TObject);\r\n    procedure DoUpdateList; override;\r\n    procedure InitCSSLibrary(ALibrary: TCSSLibrary); override;\r\n  public\r\n    destructor Destroy; override;\r\n    procedure CreateInitialize; override;\r\n    property Value: string read GetValue write SetValue;\r\n    property DisplayText: string read GetDisplayText write SetDisplayText;\r\n    property LookupValues: TLookupValues read FLookupValues write SetLookupValues;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property Color;\r\n    property ElementClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Font;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property ItemIndex;\r\n    property Left;\r\n    property Margins;\r\n    property ParentFont;\r\n    property Role;\r\n    property ShowFocus;\r\n    property ShowHint;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property TextDirection;\r\n    property TextHint;\r\n    property Top;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnChange;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnEnter;\r\n    property OnExit;\r\n  end;\r\n\r\n  TLookupComboBox = class(TCustomLookupComboBox)\r\n  published\r\n    property LookupValues;\r\n  end;\r\n\r\n  TWebLookupComboBox = class(TLookupComboBox);\r\n\r\n  TCustomListBox = class(TWebCustomControl)\r\n  private\r\n    FItems: TStrings;\r\n    FItemIndex: integer;\r\n    FItemHeight: Integer;\r\n    FSorted: Boolean;\r\n    FOnChange: TNotifyEvent;\r\n    FHandleChangePtr: pointer;\r\n    FElementItemClassName: string;\r\n    procedure SetItemHeight(const Value: Integer);\r\n    procedure SetSorted(const Value: Boolean);\r\n    function GetCount: Integer;\r\n    function GetItemElement(i: Integer): TJSHTMLElement;\r\n  protected\r\n    function DoHandleChange(Event: TEventListenerEvent): Boolean;\r\n    procedure DoItemsChange(Sender: TObject);\r\n    procedure KeyDown(var Key: Word; Shift: TShiftState); override;\r\n\r\n    procedure DoUpdateList; virtual;\r\n    procedure PersistinHTML; override;\r\n    procedure SetItemIndex(const Value: integer); virtual;\r\n    function GetItemIndex: integer; virtual;\r\n    function CreateElement: TJSElement; override;\r\n    procedure SetItems(AItems: TStrings);\r\n    procedure Loaded; override;\r\n    procedure UpdateElementData; override;\r\n    procedure UpdateElementVisual; override;\r\n    procedure UpdateParent; override;\r\n    procedure BindEvents; override;\r\n    procedure UnBindEvents; override;\r\n    procedure Change; virtual;\r\n    procedure EnableDrag; override;\r\n    procedure DisableDrag; override;\r\n    procedure ClearMethodPointers; override;\r\n    procedure GetMethodPointers; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure EndUpdate; override;\r\n    property Sorted: Boolean read FSorted write SetSorted;\r\n    property Count: Integer read GetCount;\r\n    procedure AddItem(Item: string; AObject: TObject);\r\n    property ItemElement[i: Integer]: TJSHTMLElement read GetItemElement;\r\n    property ItemIndex: integer read GetItemIndex write SetItemIndex;\r\n    procedure SetFilter(AExpression: string; CaseSensitive: boolean = false);\r\n    procedure RemoveFilter;\r\n    procedure Clear;\r\n  // properties to publish\r\n  protected\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property BiDiMode;\r\n    property BorderStyle;\r\n    property ChildOrder;\r\n    property Color;\r\n    property DragMode;\r\n    property Font;\r\n    property ElementClassName;\r\n    property ElementItemClassName: string read FElementItemClassName write FElementItemClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property ItemHeight: Integer read FItemHeight write SetItemHeight;\r\n    property Items: TStrings read FItems write SetItems;\r\n    property Left;\r\n    property ParentColor;\r\n    property ParentFont;\r\n    property PopupMenu;\r\n    property Role;\r\n    property ShowFocus;\r\n    property ShowHint;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property TextDirection;\r\n    property Top;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnMouseWheel;\r\n\r\n    property OnTouchStart;\r\n    property OnTouchMove;\r\n    property OnTouchEnd;\r\n    property OnTouchCancel;\r\n\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TImageListBox = class(TCustomListBox)\r\n  protected\r\n    procedure DoUpdateList; override;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property BiDiMode;\r\n    property BorderStyle;\r\n    property ChildOrder;\r\n    property Color;\r\n    property DragMode;\r\n    property Font;\r\n    property ElementClassName;\r\n    property ElementItemClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property ItemHeight;\r\n    property Items;\r\n    property Left;\r\n    property ParentColor;\r\n    property ParentFont;\r\n    property PopupMenu;\r\n    property Role;\r\n    property ShowFocus;\r\n    property ShowHint;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property Top;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnChange;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnMouseWheel;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebImageListBox = class(TImageListBox);\r\n\r\n\r\n  TSearchEdit = class(TCustomEdit)\r\n  private\r\n    FSearchElement: TJSElement;\r\n    FClearElement: TJSElement;\r\n    FInputElement: TJSElement;\r\n    FClearPtr: pointer;\r\n    FSearchPtr: pointer;\r\n    FOnSearchClick: TNotifyEvent;\r\n    FOnClearClick: TNotifyEvent;\r\n    FClearImageURL: string;\r\n    FSearchImageURL: string;\r\n    procedure SetClearImageURL(const Value: string);\r\n    procedure SetSearchImageURL(const Value: string);\r\n  protected\r\n    function GetElementBindHandle: TJSEventTarget; override;\r\n    function GetElementInputHandle: TJSHTMLInputElement; override;\r\n    procedure UpdateElementVisual; override;\r\n    procedure CreateChildElements(AContainer: TJSElement); override;\r\n    procedure BindEvents; override;\r\n    function HandleDoClear(Event: TJSEvent): Boolean; virtual;\r\n    function HandleDoSearch(Event: TJSEvent): Boolean; virtual;\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElement; override;\r\n    procedure SetEnabled(Value: Boolean); override;\r\n    procedure ClearMethodPointers; override;\r\n    procedure GetMethodPointers; override;\r\n  public\r\n    property SearchImageURL: string read FSearchImageURL write SetSearchImageURL;\r\n    property ClearImageURL: string read FClearImageURL write SetClearImageURL;\r\n  published\r\n    property Alignment;\r\n    property AutoCompletion;\r\n    property AutoSelect;\r\n    property AutoFocus;\r\n    property AutoSize;\r\n    property BorderStyle;\r\n    property CharCase;\r\n    property Color;\r\n    property Font;\r\n    property HideSelection;\r\n    property MaxLength;\r\n    property PasswordChar;\r\n    property Pattern;\r\n    property ReadOnly;\r\n    property Required;\r\n    property RequiredText;\r\n    property TextHint;\r\n    procedure SetFocus; override;\r\n    property Text;\r\n    property OnChange;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n    property OnClearClick: TNotifyEvent read FOnClearClick write FOnClearClick;\r\n    property OnSearchClick: TNotifyEvent read FOnSearchClick write FOnSearchClick;\r\n  end;\r\n\r\n  TWebSearchEdit = class(TSearchEdit)\r\n  published\r\n    property Alignment;\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property AutoCompletion;\r\n    property AutoFocus;\r\n    property AutoSize;\r\n    property AutoSelect;\r\n    property BiDiMode;\r\n    property BorderStyle;\r\n    property CharCase;\r\n    property ChildOrder;\r\n    property ClearImageURL;\r\n    property Color;\r\n    property DragMode;\r\n    property EditType;\r\n    property ElementClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Font;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property HideSelection;\r\n    property Left;\r\n    property ParentFont;\r\n    property PasswordChar;\r\n    property Pattern;\r\n    property Margins;\r\n    property MaxLength;\r\n    property PopupMenu;\r\n    property ReadOnly;\r\n    property Required;\r\n    property SearchImageURL;\r\n    property ShowFocus;\r\n    property ShowHint;\r\n    property SpellCheck;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property Text;\r\n    property TextDirection;\r\n    property TextHint;\r\n    property Top;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnChange;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n    property OnClearClick;\r\n    property OnSearchClick;\r\n  end;\r\n\r\n\r\n  TEditButton = class(TPersistent)\r\n  private\r\n    FMaterialGlyph: TMaterialGlyph;\r\n    FWidth: integer;\r\n    FMaterialGlyphColor: TColor;\r\n    FCaption: string;\r\n    FMaterialGlyphType: TMaterialGlyphType;\r\n    FMaterialGlyphSize: integer;\r\n    FOnChange: TNotifyEvent;\r\n    procedure SetMaterialGlyph(const Value: TMaterialGlyph);\r\n    procedure SetMaterialGlyphSize(const Value: integer);\r\n    procedure SetMaterialGlyphType(const Value: TMaterialGlyphType);\r\n    procedure SetMaterialGyphColor(const Value: TColor);\r\n    procedure SetCaption(const Value: string);\r\n    procedure SetWidth(const Value: integer);\r\n  protected\r\n    procedure Changed;\r\n  public\r\n    constructor Create;\r\n    procedure Assign(Source: TPersistent); override;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  published\r\n    property Caption: string read FCaption write SetCaption;\r\n    property MaterialGlyph: TMaterialGlyph read FMaterialGlyph write SetMaterialGlyph;\r\n    property MaterialGlyphColor: TColor read FMaterialGlyphColor write SetMaterialGyphColor default clNone;\r\n    property MaterialGlyphSize: integer read FMaterialGlyphSize write SetMaterialGlyphSize default 18;\r\n    property MaterialGlyphType: TMaterialGlyphType read FMaterialGlyphType write SetMaterialGlyphType default mgNormal;\r\n    property Width: integer read FWidth write SetWidth default 24;\r\n  end;\r\n\r\n\r\n  TEditBtn = class(TCustomEdit)\r\n  private\r\n    FBtnElement: TJSElement;\r\n    FInputElement: TJSElement;\r\n    FBtnClickPtr: pointer;\r\n    FOnBtnClick: TNotifyEvent;\r\n    FButton: TEditButton;\r\n    FElementInputClassName: TElementClassName;\r\n    FElementButtonClassName: TElementClassName;\r\n    procedure SetButton(const Value: TEditButton);\r\n    procedure SetElementInputClassName(const Value: TElementClassName);\r\n    procedure SetElementButtonClassName(const Value: TElementClassName);\r\n  protected\r\n    function HandleDoBtnClick(Event: TJSEvent): Boolean; virtual;\r\n\r\n    function GetElementBindHandle: TJSEventTarget; override;\r\n    function GetElementInputHandle: TJSHTMLInputElement; override;\r\n\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElement; override;\r\n    procedure ClearMethodPointers; override;\r\n    procedure GetMethodPointers; override;\r\n    procedure BindEvents; override;\r\n    procedure ButtonChanged(Sender: TObject);\r\n    procedure InitCSSLibrary(ALibrary: TCSSLibrary); override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    property Alignment;\r\n    property AutoCompletion;\r\n    property AutoSelect;\r\n    property AutoFocus;\r\n    property AutoSize;\r\n    property BorderStyle;\r\n    property CharCase;\r\n    property Color;\r\n    property Font;\r\n    property HideSelection;\r\n    property MaxLength;\r\n    property ReadOnly;\r\n    property PasswordChar;\r\n    property Pattern;\r\n    property TextHint;\r\n    property Button: TEditButton read FButton write SetButton;\r\n    property ElementButtonClassName: TElementClassName read FElementButtonClassName write SetElementButtonClassName;\r\n    property ElementInputClassName: TElementClassName read FElementInputClassName write SetElementInputClassName;\r\n    property Required;\r\n    property RequiredText;\r\n    property Text;\r\n    property OnBtnClick: TNotifyEvent read FOnBtnClick write FOnBtnClick;\r\n  end;\r\n\r\n  TWebEditBtn = class(TEditBtn)\r\n  published\r\n    property Alignment;\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property AutoCompletion;\r\n    property AutoFocus;\r\n    property AutoSize;\r\n    property AutoSelect;\r\n    property BiDiMode;\r\n    property BorderStyle;\r\n    property Button;\r\n    property CharCase;\r\n    property ChildOrder;\r\n    property Color;\r\n    property DragMode;\r\n    property EditType;\r\n    property ElementClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Font;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property HideSelection;\r\n    property Left;\r\n    property ParentFont;\r\n    property PasswordChar;\r\n    property Pattern;\r\n    property Margins;\r\n    property MaxLength;\r\n    property PopupMenu;\r\n    property ReadOnly;\r\n    property Required;\r\n    property RequiredText;\r\n    property ShowFocus;\r\n    property ShowHint;\r\n    property SpellCheck;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property Text;\r\n    property TextDirection;\r\n    property TextHint;\r\n    property Top;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnChange;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n    property OnBtnClick;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  WEBLib.Utils;\r\n\r\nconst\r\n  btnclearres = 'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAACXBIWXMAAAsTAAALEwEAmpwYAAAA70lEQVQ4jbWSzQ2CQBCFl5OROgSKgAMmHExUDia2QUSswqg9GK1COfnTjCbagm/Cw2wQFw46yZcM+5jZ+Vml/mQ2iMEcpPTt'+\r\n                'NoEWyMAdHMCaiH9jMssUvAcn0KvRHXAGu29JMgZ3DBWKdgGzqmCz7PLmAfA1PQAT+q4q2unqCcaq6LM0nz/1QcjkoabnYKgnWIBlpSq59QGeIKpoK1Vs6G0ZD9smkM2kphYClh21bUGGKD07/I4rATKTKX1P1QxRsSTZc9MaryCpE+VxyCORPbs1usfgrWp4jS'+\r\n                'lLPIINyXmWmIJ1k/5GTJbS/+j5J/YC/YEx2smgMEoAAAAASUVORK5CYII=';\r\n  btnsearchres = 'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAACXBIWXMAAAsTAAALEwEAmpwYAAABNUlEQVQ4jZWSPU7DQBCFU5ECiEBU/AgEcmXJtvxbuAo0pOAE1CAaAigViFNBOAMRFengBNCCwgH4XrQrBXntkJGePLsz782'+\r\n                 'Pt9WqMc/z2mma9sEITAzk9xWr400tiqJtEsdJkjzwPfR9f0WQD4bcvyqnqfIY3OpcFMU+hHMIazaH2L1EnJ0QvFJl45/iX8dxvOXIG4LLigCEFwLdLMsO8G/qxiR2pJ24OpiYeS/AZp1AWZarynUJfElgdmaXsZsOXXy7BPSruk3keSMM7BKbjLynyhLZ9h6X'+\r\n                 'bwIidw3k6W9k1KUKmW8vz/MNEt45P+rxhGG4LMw+JHaw4ySbc890MgDPWiz4sU/5T2Uudk3LJ2Y5x6quFzhvD1ZgZMm2sjr6F9kIfARBsC6RhclG4AzypzpZmIz9Aj6Qcv0OcR9YAAAAAElFTkSuQmCC';\r\n\r\n  emptyimgres = 'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABCAQAAAC1HAwCAAAAC0lEQVR42mNkYAAAAAYAAjCB0C8AAAAASUVORK5CYII=';\r\n\r\nvar\r\n  geolocation : TJSGeoLocation; external name 'navigator.geolocation';\r\n\r\n\r\n{ TCustomLinkLabel }\r\n\r\nprocedure TCustomLinkLabel.SetCaption(const AValue: string);\r\nvar\r\n  iopen, iopena, iopeni, iopenend, iopenendt, iclose: integer;\r\n  scaption, shref, stext, sanchor, sid, stype, slcaption: string;\r\n  anchor, span, contentelement: TJSElement;\r\nbegin\r\n  inherited SetCaption(AValue);\r\n\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  contentelement := ContentHandle;\r\n\r\n  if {IsLinked and} (ElementID <> '') then\r\n  begin\r\n    contentelement := document.getElementById(ElementID);\r\n  end;\r\n\r\n  if Assigned(contentelement) and Assigned(contentelement.nodeValue) then\r\n    contentelement.nodeValue := '';\r\n\r\n  scaption := AValue;\r\n\r\n  slcaption := lowercase(scaption);\r\n\r\n  if (Pos('https://', slcaption) = 1) or\r\n     (Pos('http://', slcaption) = 1) then\r\n  begin\r\n    scaption := '<a href=\"'+ scaption+'\"';\r\n    if (Target = ltNewTab) then\r\n      scaption := scaption + ' target=\"_blank\"';\r\n\r\n    scaption := scaption + '>' + Caption + '</a>';\r\n\r\n    if not Assigned(FOnLinkClick) then\r\n    begin\r\n      contentelement.innerHTML := scaption;\r\n      Exit;\r\n    end;\r\n  end;\r\n\r\n  sanchor := '<a href=\"';\r\n  sid := '<a id=\"';\r\n\r\n  if Assigned(FOnLinkClick) and ((pos(sanchor, scaption) > 0) or (pos(sid, scaption) > 0)) then\r\n  begin\r\n    contentelement.innerHTML := '';\r\n    while (Pos(sanchor, scaption) > 0) or (Pos(sid, scaption) > 0) do\r\n    begin\r\n      //find first link in string\r\n      iopena := pos(sanchor, scaption);\r\n      iopeni := pos(sid, scaption);\r\n\r\n      if ((iopena < iopeni) or (iopeni <= 0)) and (iopena > 0) then\r\n      begin\r\n        stype := '#url#';\r\n        iopen := iopena + length(sanchor);\r\n      end\r\n      else\r\n      begin\r\n        stype := '#id#';\r\n        iopen := iopeni + length(sid);\r\n      end;\r\n\r\n      iopenend := pos('\">', scaption);\r\n      iopenendt := pos('\" ', scaption);\r\n      if (iopenendt > 0) and (iopenendt < iopenend) then\r\n        iopenend := iopenendt;\r\n\r\n      iclose := pos('</a>', scaption);\r\n      shref := copy(scaption, iopen, iopenend - iopen);\r\n\r\n      iopenend := pos('\">', scaption);\r\n      iclose := pos('</a>', scaption);\r\n      stext := copy(scaption, iopenend + 2, iclose - (iopenend + 2));\r\n\r\n      //add prefix text\r\n      span := document.createElement('SPAN');\r\n      span.innerHTML := copy(scaption, 0, iopen);\r\n      contentelement.appendChild(span);\r\n\r\n      //add link\r\n      anchor := document.createElement('A');\r\n      anchor['href'] := '#';\r\n      anchor['id'] := stype + shref;\r\n      anchor.innerHTML := stext;\r\n      TJSHTMLElement(anchor).onclick := DoLinkClick;\r\n      contentelement.appendChild(anchor);\r\n\r\n      //remove prefix + link\r\n      Delete(scaption, 1, Pos('</a>', scaption) + 3);\r\n    end;\r\n\r\n    //suffix text\r\n    span := document.createElement('SPAN');\r\n    span.innerHTML := scaption;\r\n    contentelement.appendChild(span);\r\n    FDisplText := scaption;\r\n  end\r\n  else\r\n  begin\r\n    FDisplText := StringReplace(AValue, '> <', '>&nbsp;<', [rfReplaceAll]);\r\n\r\n    if Assigned(contentElement) and Assigned(contentElement.nodeValue) then\r\n      contentelement.nodeValue := FDisplText\r\n    else\r\n      if Assigned(contentElement) and (contentelement.childelementcount <= 1) then\r\n        contentelement.innerHTML := FDisplText;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomLinkLabel.SetHeightPercent(const Value: TPercentSize);\r\nbegin\r\n  FHeightPercent := Value;\r\nend;\r\n\r\nprocedure TCustomLinkLabel.SetHeightStyle(const Value: TSizeStyle);\r\nbegin\r\n  FHeightStyle := Value;\r\nend;\r\n\r\nprocedure TCustomLinkLabel.SetTarget(const Value: TLinkTarget);\r\nbegin\r\n  if (FTarget <> Value) then\r\n  begin\r\n    FTarget := Value;\r\n    SetCaption(Caption);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomLinkLabel.SetWidthPercent(const Value: TPercentSize);\r\nbegin\r\n  FWidthPercent := Value;\r\nend;\r\n\r\nprocedure TCustomLinkLabel.SetWidthStyle(const Value: TSizeStyle);\r\nbegin\r\n  FWidthStyle := Value;\r\nend;\r\n\r\nconstructor TCustomLinkLabel.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FWidthStyle := ssAbsolute;\r\n  FWidthPercent := 100;\r\n  FHeightStyle := ssAbsolute;\r\n  FHeightPercent := 100;\r\n  Transparent := true;\r\nend;\r\n\r\nfunction TCustomLinkLabel.DoLinkClick(Event: TJSMouseEvent): boolean;\r\nvar\r\n slink, stype, svalue: string;\r\n ltype: TSysLinkType;\r\nbegin\r\n  svalue := event.targetElement['id'];\r\n  stype := '#url#';\r\n  ltype := sltURL;\r\n\r\n  if not (pos(stype, svalue) > 0) then\r\n  begin\r\n    stype := '#id#';\r\n    ltype := sltID;\r\n  end;\r\n\r\n  slink := StringReplace(svalue, stype, '', []);\r\n\r\n  if Assigned(FOnLinkClick) then\r\n    FOnLinkClick(Self, slink, ltype);\r\n\r\n  Result := true;\r\nend;\r\n\r\n\r\nfunction TCustomLinkLabel.GetDisplayText: string;\r\nbegin\r\n  Result := FDisplText;\r\nend;\r\n\r\nfunction TCustomLinkLabel.GetOuterHeight: integer;\r\nbegin\r\n  if Align <> alNone then\r\n    Result := inherited GetOuterHeight\r\n  else\r\n    Result := Height;\r\nend;\r\n\r\nfunction TCustomLinkLabel.GetOuterWidth: integer;\r\nbegin\r\n  if Align <> alNone then\r\n    Result := inherited GetOuterWidth\r\n  else\r\n    Result := Width;\r\nend;\r\n\r\n{ TTrackBar }\r\n\r\nfunction TTrackBar.GetElementInputHandle: TJSHTMLInputElement;\r\nbegin\r\n  Result := TJSHTMLInputElement(Container);\r\nend;\r\n\r\nfunction TTrackBar.GetInputType: string;\r\nbegin\r\n  Result := 'range';\r\nend;\r\n\r\nprocedure TTrackBar.Change;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\n{$HINTS OFF}\r\nfunction TTrackBar.DoHandleChange(Event: TEventListenerEvent): Boolean;\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  el := ElementHandle;\r\n  asm\r\n    this.FPosition = el.value;\r\n  end;\r\n\r\n  Change;\r\n  Result := True;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TTrackBar.BindEvents;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    ElementHandle.oninput := DoHandleChange;\r\n  end;\r\nend;\r\n\r\nprocedure TTrackBar.CreateControl;\r\nbegin\r\n  inherited;\r\n  DoUpdate;\r\nend;\r\n\r\nprocedure TTrackBar.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FMax := 100;\r\n  FMin := 0;\r\n  FPosition := 0;\r\nend;\r\n\r\nprocedure TTrackBar.SetMax(AValue: integer);\r\nbegin\r\n  if (FMax <> AValue) then\r\n  begin\r\n    FMax := AValue;\r\n    DoUpdate;\r\n  end;\r\nend;\r\n\r\nprocedure TTrackBar.SetMin(AValue: integer);\r\nbegin\r\n  if (FMin <> AValue) then\r\n  begin\r\n    FMin := AValue;\r\n    DoUpdate;\r\n  end;\r\nend;\r\n\r\nprocedure TTrackBar.SetOrientation(const Value: TTrackBarOrientation);\r\nvar\r\n  ow, oh: integer;\r\nbegin\r\n  if (FOrientation <> Value) then\r\n  begin\r\n    ow := Width;\r\n    oh := Height;\r\n    FOrientation := Value;\r\n    if not (csLoading in ComponentState) then\r\n    begin\r\n      Width := oh;\r\n      Height := ow;\r\n    end;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TTrackBar.DoUpdate;\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  Container['max'] := IntToStr(FMax);\r\n  Container['min'] := IntToStr(FMin);\r\n\r\n  el := ElementHandle;\r\n\r\n  asm\r\n    el.value = this.FPosition;\r\n    el.setAttribute('value',this.FPosition);\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TTrackBar.SetPosition(AValue: integer);\r\nbegin\r\n  if (FPosition <> AValue) then\r\n  begin\r\n    FPosition := AValue;\r\n    DoUpdate;\r\n  end;\r\nend;\r\n\r\nprocedure TTrackBar.UpdateElementVisual;\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  inherited;\r\n\r\n  el := ElementHandle;\r\n\r\n  if Orientation = trHorizontal then\r\n  begin\r\n    el.removeAttribute('orient');\r\n    el.style.removeProperty('writing-mode');\r\n    el.style.removeProperty('-webkit-appearance');\r\n    el.style.removeProperty('height');\r\n    if WidthStyle = ssAbsolute then\r\n      el.style.setProperty('width', IntToStr(Width));\r\n  end\r\n  else\r\n  begin\r\n    el.setAttribute('orient','vertical');\r\n    el.style.setProperty('writing-mode','bt-lt');\r\n    el.style.setProperty('-webkit-appearance','slider-vertical');\r\n    el.style.removeProperty('width');\r\n    if HeightStyle = ssAbsolute then\r\n      el.style.setProperty('height', IntToStr(Height));\r\n    el.style.setProperty('width','22px');\r\n  end;\r\n\r\nend;\r\n\r\nfunction TTrackBar.GetPosition: integer;\r\nvar\r\n  s: string;\r\nbegin\r\n  Result := FPosition;\r\n\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  s := TJSHTMLInputElement(Container).value;\r\n  if (s <> '') then\r\n    Result := StrToInt(s);\r\nend;\r\n\r\n{ TTimer }\r\n\r\nconstructor TTimer.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FInterval := 1000;\r\n  FTimerID := -1;\r\n  Enabled := True;\r\nend;\r\n\r\nprocedure TTimer.SetEnabled(Value: boolean);\r\nbegin\r\n  FEnabled := Value;\r\n  DoUpdateTimer;\r\nend;\r\n\r\nprocedure TTimer.SetInterval(AValue: integer);\r\nbegin\r\n  FInterval := AValue;\r\n  DoUpdateTimer;\r\nend;\r\n\r\nprocedure TTimer.DoTimer;\r\nbegin\r\n  if Assigned(FOnTimer) then\r\n    FOnTimer(Self);\r\nend;\r\n\r\ndestructor TTimer.Destroy;\r\nbegin\r\n  DoClearTimer;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTimer.DoClearTimer;\r\nbegin\r\n  if FTimerID <> -1 then\r\n  begin\r\n    window.clearInterval(FTimerID);\r\n    FTimerID := -1;\r\n  end;\r\nend;\r\n\r\nprocedure TTimer.DoUpdateTimer;\r\nbegin\r\n  DoClearTimer;\r\n\r\n  if Enabled then\r\n    FTimerID := window.setInterval(@DoTimer, FInterval);\r\nend;\r\n\r\n{ TPaintBox }\r\n\r\nprocedure TPaintBox.UpdateElementVisual;\r\nbegin\r\n  inherited;\r\n\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    ElementHandle.style.setProperty('border', '1px dotted gray');\r\n  end;\r\nend;\r\n\r\nprocedure TPaintBox.Paint;\r\nbegin\r\n  inherited;\r\n  if Assigned(OnPaint) then\r\n    OnPaint(Self);\r\nend;\r\n\r\n{ TScrollBox }\r\n\r\nprocedure TScrollBox.BindEvents;\r\nvar\r\n  eh: TJSEventTarget;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementBindHandle) then\r\n  begin\r\n    eh := ElementBindHandle;\r\n    eh.addEventListener('scroll',FScrollPtr);\r\n  end;\r\nend;\r\n\r\nprocedure TScrollBox.ClearMethodPointers;\r\nbegin\r\n  inherited;\r\n  FScrollPtr := nil;\r\nend;\r\n\r\nprocedure TScrollBox.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FAutoScroll := true;\r\n  FScrollBars := ssBoth;\r\n  FHorzScrollBar := TControlScrollBar.Create(Self, TScrollBarKind.sbHorizontal);\r\n  FVertScrollBar := TControlScrollBar.Create(Self, TScrollBarKind.sbVertical);\r\nend;\r\n\r\ndestructor TScrollBox.Destroy;\r\nbegin\r\n  FHorzScrollBar.Free;\r\n  FVertScrollBar.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TScrollBox.DoScroll;\r\nbegin\r\n  if Assigned(OnScroll) then\r\n    OnScroll(Self);\r\nend;\r\n\r\nprocedure TScrollBox.UnbindEvents;\r\nvar\r\n  eh: TJSEventTarget;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementBindHandle) then\r\n  begin\r\n    eh := ElementBindHandle;\r\n    eh.removeEventListener('scroll', FScrollPtr);\r\n  end;\r\nend;\r\n\r\nprocedure TScrollBox.UpdateElement;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementHandle) and not IsUpdating then\r\n  begin\r\n    case ScrollBars of\r\n    ssNone:\r\n      begin\r\n        ElementHandle.style.setProperty('overflow', 'hidden');\r\n      end;\r\n    ssVertical:\r\n      begin\r\n        ElementHandle.style.removeProperty('overflow');\r\n        ElementHandle.style.setProperty('overflow-x', 'hidden');\r\n        ElementHandle.style.setProperty('overflow-y', 'auto');\r\n      end;\r\n    ssHorizontal:\r\n      begin\r\n        ElementHandle.style.removeProperty('overflow');\r\n        ElementHandle.style.setProperty('overflow-x', 'auto');\r\n        ElementHandle.style.setProperty('overflow-y', 'hidden');\r\n      end;\r\n    ssBoth:\r\n      begin\r\n        ElementHandle.style.setProperty('overflow', 'auto');\r\n      end;\r\n    end;\r\n\r\n    if Visible and not IsLinked then\r\n      ElementHandle.style.setProperty('display', 'inline-block');\r\n  end;\r\nend;\r\n\r\nprocedure TScrollBox.EndUpdate;\r\nbegin\r\n  inherited;\r\n  AlignControl(Self);\r\n  // re-align in case align had effect on scrollbar appearance\r\n  AlignControl(Self);\r\nend;\r\n\r\nfunction TScrollBox.GetClientRect: TRect;\r\nvar\r\n  dw, dh: integer;\r\nbegin\r\n  dw := 0;\r\n  dh := 0;\r\n\r\n  if (ElementHandle.scrollHeight > ElementHandle.ClientHeight) and (ScrollBars in [ssBoth, ssVertical]) then\r\n    dw := 16; //GetScrollBarWidth;\r\n\r\n  if (ElementHandle.scrollWidth > ElementHandle.ClientWidth) and (ScrollBars in [ssBoth, ssHorizontal]) then\r\n    dh := 16; //GetScrollBarHeight;\r\n\r\n  Result := Rect(0,0, TJSHTMLElement(ElementHandle).clientWidth - dw, TJSHTMLElement(ElementHandle).clientHeight - dh);\r\nend;\r\n\r\nprocedure TScrollBox.GetMethodPointers;\r\nbegin\r\n  inherited;\r\n  if FScrollPtr = nil then\r\n  begin\r\n    FScrollPtr := @HandleDoScroll;\r\n  end;\r\nend;\r\n\r\nfunction TScrollBox.GetScrollLeft: integer;\r\nbegin\r\n  Result := ElementHandle.scrollLeft;\r\nend;\r\n\r\nfunction TScrollBox.GetScrollTop: integer;\r\nbegin\r\n  Result := ElementHandle.scrollTop;\r\nend;\r\n\r\nfunction TScrollBox.HandleDoScroll(Event: TJSMouseEvent): Boolean;\r\nbegin\r\n  DoScroll;\r\n  Result := true;\r\nend;\r\n\r\nprocedure TScrollBox.SetAutoScroll(AValue: boolean);\r\nbegin\r\n  FAutoScroll := AValue;\r\nend;\r\n\r\nprocedure TScrollBox.SetScrollBars(const Value: TScrollStyle);\r\nbegin\r\n  if (FScrollBars <> Value) then\r\n  begin\r\n    FScrollBars := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TScrollBox.SetScrollLeft(const Value: integer);\r\nbegin\r\n  ElementHandle.scrollLeft := Value;\r\nend;\r\n\r\nprocedure TScrollBox.SetScrollTop(const Value: integer);\r\nbegin\r\n  ElementHandle.scrollTop := Value;\r\nend;\r\n\r\nprocedure TScrollBox.ScrollBy(DeltaX: integer; DeltaY: integer);\r\nbegin\r\n  ScrollLeft := ScrollLeft + deltaX;\r\n  ScrollTop := ScrollTop + deltaY;\r\nend;\r\n\r\n{ TCustomImageControl }\r\n\r\nprocedure TCustomImageControl.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FPicture := TURLPicture.Create;\r\n  FPicture.OnChange := PictureChanged;\r\n  FPicture.OnDataChange := PictureDataChanged;\r\n  Color := clNone;\r\n  TabStop := false;\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Width := 400;\r\n    Height := 300;\r\n  end;\r\nend;\r\n\r\nfunction TCustomImageControl.DataURL: string;\r\nbegin\r\n  Result := 'data:image/png;base64,' + GetBase64Img;\r\nend;\r\n\r\nfunction TCustomImageControl.DataURL(AWidth, AHeight: integer): string;\r\nbegin\r\n  Result := 'data:image/png;base64,' + GetBase64Image(ElementHandle, AWidth, AHeight);\r\nend;\r\n\r\ndestructor TCustomImageControl.Destroy;\r\nbegin\r\n  FPicture.Free;\r\n  inherited Destroy;\r\nend;\r\n\r\nfunction TCustomImageControl.GetBase64Img: string;\r\nbegin\r\n  Result := GetBase64Image(ElementHandle);\r\nend;\r\n\r\nprocedure TCustomImageControl.GetMethodPointers;\r\nbegin\r\n  inherited;\r\n  if FImageLoadPtr = nil then\r\n    FImageLoadPtr := @HandleImageLoad;\r\n  if FImageErrorPtr = nil then\r\n    FImageErrorPtr := @HandleError;\r\nend;\r\n\r\nprocedure TCustomImageControl.BindEvents;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementBindHandle) then\r\n  begin\r\n    ElementBindHandle.addEventListener('load',FImageLoadPtr);\r\n    if not (csDesigning in ComponentState) then\r\n      ElementBindHandle.addEventListener('error',FImageErrorPtr);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomImageControl.Clear;\r\nbegin\r\n  URL := EmptyImgres;\r\nend;\r\n\r\nprocedure TCustomImageControl.ClearMethodPointers;\r\nbegin\r\n  inherited;\r\n\r\n  FImageLoadPtr := nil;\r\n  FImageErrorPtr := nil;\r\nend;\r\n\r\nfunction TCustomImageControl.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('IMG');\r\n\r\n  if URL <> '' then\r\n    Result.setAttribute('src', URL);\r\nend;\r\n\r\n{$HINTS OFF}\r\nfunction TCustomImageControl.HandleError(AEvent: TJSEvent): boolean;\r\nvar\r\n  Handled: boolean;\r\n  LEventRec: TJSEventRecord;\r\n  LRequestRec: TJSXMLHttpRequestRecord;\r\nbegin\r\n  Result := true;\r\n  Handled := false;\r\n  if Assigned(FOnError) then\r\n  begin\r\n    LEventRec.event := aEvent;\r\n    LRequestRec.req := TJSXMLHttpRequest(aEvent.Target);\r\n    FOnError(Self, LRequestRec, LEventRec, Handled);\r\n  end;\r\n\r\n  if Assigned(FImageError) then\r\n    FImageError(AEvent);\r\n\r\n  if not Handled and not (csDesigning in ComponentState) and (URL <> '') then\r\n    raise Exception.Create('Error loading image ' + URL);\r\nend;\r\n\r\nfunction TCustomImageControl.HandleImageLoad(AEvent: TJSEvent): boolean;\r\nvar\r\n  el: TJSElement;\r\n  w,h: integer;\r\nbegin\r\n  el := ElementHandle;\r\n\r\n  asm\r\n    w = el.naturalWidth;\r\n    h = el.naturalHeight;\r\n  end;\r\n\r\n  FPicture.Width := w;\r\n  FPicture.Height := h;\r\n\r\n  if Assigned(OnLoaded) then\r\n    OnLoaded(Self);\r\n\r\n  if Assigned(FImageLoaded) then\r\n    FImageLoaded(AEvent);\r\n\r\n  Result := true;\r\nend;\r\n\r\nfunction TCustomImageControl.ImageHeight: integer;\r\nvar\r\n  el: TJSElement;\r\n  h: integer;\r\nbegin\r\n  Result := -1;\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    el := ElementHandle;\r\n    asm\r\n      h = el.naturalHeight;\r\n    end;\r\n    Result := h;\r\n  end;\r\nend;\r\n\r\nfunction TCustomImageControl.ImageWidth: integer;\r\nvar\r\n  el: TJSElement;\r\n  w: integer;\r\nbegin\r\n  Result := -1;\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    el := ElementHandle;\r\n    asm\r\n      w = el.naturalWidth;\r\n    end;\r\n    Result := w;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomImageControl.LoadFromURL(const AURL: string;\r\n  ImageLoaded: TImageLoadedProc; ImageError: TImageErrorProc);\r\nbegin\r\n  FImageLoaded := ImageLoaded;\r\n  FImageError := ImageError;\r\n\r\n  URL := AURL;\r\nend;\r\n\r\nfunction TCustomImageControl.LoadFromURL(const AURL: string): TJSPromise;\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n    begin\r\n      LoadFromURL(AURL,\r\n        procedure(AEvent: TJSEvent)\r\n        begin\r\n          ASuccess(AEvent);\r\n        end,\r\n\r\n        procedure(AEvent: TJSEvent)\r\n        begin\r\n          AFailed(AEvent);\r\n        end)\r\n    end);\r\nend;\r\n\r\nprocedure TCustomImageControl.SaveToArrayBuffer(AArray: TJSArrayBuffer);\r\nbegin\r\n  AArray := Base64ToArrayBuffer(GetBase64Img);\r\nend;\r\n\r\nprocedure TCustomImageControl.LoadFromArrayBuffer(AArray: TJSArrayBuffer);\r\nvar\r\n  uint8b: TJSUint8Array;\r\n  dataUri: string;\r\nbegin\r\n  uint8b := TJSUint8Array.new(AArray);\r\n\r\n  asm\r\n    dataUri = btoa(new Uint8Array(uint8b).reduce(function (data, byte) {\r\n       return data + String.fromCharCode(byte);\r\n       }, ''));\r\n  end;\r\n\r\n  URL := 'data:image/jpeg;base64,' + dataUri;\r\nend;\r\n\r\n{$HINTS ON}\r\n\r\nprocedure TCustomImageControl.SetContainerURL(AURL: string);\r\nbegin\r\n  if Assigned(Container) then\r\n  begin\r\n    if AURL = '' then\r\n      Container.removeAttribute('src')\r\n    else\r\n      Container['src'] := AURL;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomImageControl.SetURL(AURL: string);\r\nbegin\r\n  FURL := AURL;\r\n  SetContainerURL(AURL);\r\nend;\r\n\r\nprocedure TCustomImageControl.UnbindEvents;\r\nvar\r\n  eh: TJSEventTarget;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementBindHandle) then\r\n  begin\r\n    eh := ElementBindHandle;\r\n    eh.removeEventListener('load', FImageLoadPtr);\r\n    if not (csDesigning in ComponentState) then\r\n      eh.removeEventListener('error',FImageErrorPtr);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomImageControl.UpdateElement;\r\nbegin\r\n  inherited;\r\n  if AutoSize and Assigned(ElementHandle) then\r\n  begin\r\n    ElementHandle.style.removeProperty('width');\r\n    ElementHandle.style.removeProperty('height');\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TCustomImageControl.SetPicture(const Value: TURLPicture);\r\nbegin\r\n  FPicture.Assign(Value);\r\nend;\r\n\r\nprocedure TCustomImageControl.PictureChanged(Sender: TObject);\r\nbegin\r\n  SetURL(Picture.FileName);\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TCustomImageControl.PictureDataChanged(Sender: TObject);\r\nbegin\r\n  SetContainerURL('data:image/png;base64,' + HexImageDecodeAsBase64(Picture.Data));\r\nend;\r\n\r\nprocedure TCustomImageControl.ResizeImage(AWidth, AHeight: integer);\r\nbegin\r\n  ResizeImage(AWidth, AHeight, false);\r\nend;\r\n\r\nprocedure TCustomImageControl.ResizeImage;\r\nbegin\r\n  ResizeImage(Width, Height, false);\r\nend;\r\n\r\nprocedure TCustomImageControl.ResizeImage(AWidth, AHeight: integer;\r\n  AspectRatio: boolean);\r\nvar\r\n  w,h: integer;\r\n  r: double;\r\nbegin\r\n  if AspectRatio then\r\n  begin\r\n    if (ImageWidth = AWidth) or (ImageHeight = AHeight) then\r\n      Exit;\r\n  end\r\n  else\r\n  begin\r\n    if (ImageWidth = AWidth) and (ImageHeight = AHeight) then\r\n      Exit;\r\n  end;\r\n\r\n  if (AWidth = 0) or (AHeight = 0) then\r\n    Exit;\r\n\r\n  w := AWidth;\r\n  h := AHeight;\r\n\r\n  if AspectRatio then\r\n  begin\r\n    if (ImageWidth/w > ImageHeight/h) then\r\n      r := ImageWidth/w\r\n    else\r\n      r := ImageHeight/h;\r\n\r\n    w := Round(ImageWidth / r);\r\n    h := Round(ImageHeight / r);\r\n  end;\r\n\r\n  URL := 'data:image/png;base64,' + GetBase64Image(ElementHandle, w, h);\r\nend;\r\n\r\n{ TSplitter }\r\n\r\nprocedure TSplitter.ColorChanging;\r\nbegin\r\n  inherited;\r\n  Invalidate;\r\nend;\r\n\r\nfunction TSplitter.CreateElement: TJSElement;\r\nbegin\r\n  Result := inherited CreateElement;\r\nend;\r\n\r\nprocedure TSplitter.CreateInitialize;\r\n begin\r\n   inherited;\r\n   Cursor := crHSplit;\r\n\r\n   if (csDesigning in ComponentState) then\r\n   begin\r\n     Width := 6;\r\n     Height := 100;\r\n   end;\r\n   Align := alLeft;\r\n   FSplitControl := nil;\r\n   GripColor := clWhite;\r\n end;\r\n\r\n procedure TSplitter.Paint;\r\n var\r\n   xofs,dx: integer;\r\n   yofs,dy: integer;\r\n   i: integer;\r\n begin\r\n   if FTouched then\r\n   begin\r\n     Canvas.Brush.Color := clGray;\r\n     Canvas.Pen.Color := clGray;\r\n   end\r\n   else\r\n   begin\r\n     Canvas.Brush.Color := Color;\r\n     Canvas.Pen.Color := Color;\r\n   end;\r\n   Canvas.Brush.Style := bsSolid;\r\n   Canvas.Rectangle(ClientRect);\r\n\r\n   if (Align in [alLeft, alRight]) then\r\n   begin\r\n     dx := 0;\r\n     dy := 6;\r\n     yofs := (Height div 2) - 9;\r\n     xofs := (Width div 2);\r\n   end;\r\n\r\n   if (Align in [alTop, alBottom]) then\r\n   begin\r\n     dx := 6;\r\n     dy := 0;\r\n     xofs := (Width div 2) - 9;\r\n     yofs := (Height div 2) - 1;\r\n   end;\r\n\r\n   Canvas.Brush.Color := GripColor;\r\n   Canvas.Pen.Color := GripColor;\r\n\r\n   for i := 0 to 2 do\r\n   begin\r\n     Canvas.Rectangle(xofs, yofs, xofs + 2, yofs + 2);\r\n     xofs := xofs + dx;\r\n     yofs := yofs + dy;\r\n   end;\r\n end;\r\n\r\nprocedure TSplitter.SetGripColor(const Value: TColor);\r\nbegin\r\n  if (FGripColor <> Value) then\r\n  begin\r\n    FGripColor := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TSplitter.UpdateElement;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TSplitter.UpdateElementSize;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TSplitter.MouseUp(Button: TMouseButton; Shift: TShiftState; X,Y: Integer);\r\nbegin\r\n  inherited;\r\n  FSizing := false;\r\n  FSplitControl := nil;\r\nend;\r\n\r\nprocedure TSplitter.MouseDown(Button: TMouseButton; Shift: TShiftState; X,Y: Integer);\r\nbegin\r\n  inherited;\r\n  DoSizeStart(X,Y);\r\nend;\r\n\r\nprocedure TSplitter.DoMouseEnter;\r\nbegin\r\n  inherited;\r\n  if (Align in [alLeft, alRight]) then\r\n    Cursor := crHSplit;\r\n\r\n  if (Align in [alTop, alBottom]) then\r\n    Cursor := crVSplit;\r\nend;\r\n\r\nprocedure TSplitter.DoSizeStart(X,Y: integer);\r\nvar\r\n  r,rc: TRect;\r\n  i: integer;\r\n  c: TControl;\r\n  eh: TJSHTMLElement;\r\nbegin\r\n  FSizing := true;\r\n\r\n  Y := Y - document.documentElement.scrollTop;\r\n\r\n  r := Rect(Left, Top, Left + Width, Top + Height);\r\n\r\n  if Assigned(Parent) then\r\n  begin\r\n    for i := 0 to Parent.ControlCount - 1 do\r\n    begin\r\n      c := Parent.Controls[i];\r\n\r\n      if (c.Align = Align) and (c <> Self) then\r\n      begin\r\n        rc := Rect(c.Left, c.Top, c.Left + c.Width, c.Top + c.Height);\r\n\r\n        //OutputDebugString(c.GetID+':'+inttostr(rc.Right)+':'+inttostr(r.Left));\r\n\r\n        if (Align = alLeft) and (rc.Right - r.Left < 4) then\r\n        begin\r\n          FSplitControl := c;\r\n          FOriginalWidth := FSplitControl.Width;\r\n          FSizing := true;\r\n          FSizingX := X;\r\n          FSizingY := Y;\r\n          break;\r\n          //OutputDebugString('left:'+c.GetID);\r\n        end;\r\n\r\n        if (Align = alRight) and (rc.Left - r.Right < 4) then\r\n        begin\r\n          FSplitControl := c;\r\n          FOriginalWidth := FSplitControl.Width;\r\n          FSizing := true;\r\n          FSizingX := X;\r\n          FSizingY := Y;\r\n          break;\r\n          //OutputDebugString('left:'+c.GetID);\r\n        end;\r\n\r\n        if (Align = alTop) and (rc.Bottom - r.Top < 4) then\r\n        begin\r\n          FSplitControl := c;\r\n          FOriginalHeight := FSplitControl.Height;\r\n          FSizing := true;\r\n          FSizingX := X;\r\n          FSizingY := Y;\r\n          break;\r\n          //OutputDebugString('top:'+c.GetID);\r\n        end;\r\n\r\n        if (Align = alBottom) and (rc.Top - r.Bottom < 4) then\r\n        begin\r\n          FSplitControl := c;\r\n          FOriginalHeight := FSplitControl.Height;\r\n          FSizing := true;\r\n          FSizingX := X;\r\n          FSizingY := Y;\r\n          break;\r\n          //OutputDebugString('top:'+c.GetID);\r\n        end;\r\n\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  FLayer := document.createElement('SPAN');\r\n  document.body.appendChild(FLayer);\r\n\r\n  eh := TJSHTMLElement(FLayer);\r\n  eh.style.setProperty('top', '0');\r\n  eh.style.setProperty('left', '0');\r\n  eh.style.setProperty('right', '0');\r\n  eh.style.setProperty('bottom', '0');\r\n\r\n  // make sure it is higher than the z-index of the layer associated with popup forms\r\n  eh.style.setProperty('z-index', '99999999');\r\n\r\n  eh.style.setProperty('webkit-user-select', 'none');\r\n  eh.style.setProperty('moz-user-select', 'none');\r\n  eh.style.setProperty('khtml-user-select', 'none');\r\n  eh.style.setProperty('ms-user-select', 'none');\r\n  eh.style.setProperty('user-select', 'none');\r\n  eh.style.setProperty('position', 'fixed');\r\n\r\n  if (Align in [alLeft, alRight]) then\r\n    eh.style.setProperty('cursor', 'col-resize');\r\n\r\n  if (Align in [alTop, alBottom]) then\r\n    eh.style.setProperty('cursor', 'row-resize');\r\n\r\n  FFirstMove := true;\r\n  FSizing := true;\r\n\r\n  eh.addEventListener('mousemove',@HandleDocDoMouseMove);\r\n  eh.addEventListener('mouseup',@HandleDocDoMouseUp);\r\n\r\n  eh.addEventListener('touchmove', @HandleDocDoTouchMove);\r\n  eh.addEventListener('touchend', @HandleDocDoTouchEnd);\r\n\r\nend;\r\n\r\nfunction TSplitter.HandleDocDoMouseMove(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  dx,dy: integer;\r\nbegin\r\n  if FSizing and Assigned(FSplitControl) then\r\n  begin\r\n    if FFirstMove then\r\n    begin\r\n      FSizingX := Event.clientX;\r\n      FSizingY := Event.clientY - document.documentElement.scrollTop;\r\n      FFirstMove := false;\r\n    end\r\n    else\r\n    begin\r\n      dx := Round(Event.clientX - FSizingX);\r\n      dy := Round(Event.clientY - document.documentElement.scrollTop - FSizingY);\r\n\r\n      if Align = alLeft then\r\n        FSplitControl.Width := FOriginalWidth + dx;\r\n\r\n      if Align = alRight then\r\n        FSplitControl.Width := FOriginalWidth - dx;\r\n\r\n      if Align = alTop then\r\n        FSplitControl.Height := FOriginalHeight + dy;\r\n\r\n      if Align = alBottom then\r\n        FSplitControl.Height := FOriginalHeight - dy;\r\n\r\n      DoRealign;\r\n\r\n      if Assigned(OnMove) then\r\n        OnMove(Self);\r\n    end;\r\n  end;\r\n  Result := true;\r\nend;\r\n\r\nfunction TSplitter.HandleDocDoMouseUp(Event: TJSMouseEvent): Boolean;\r\nbegin\r\n  FSizing := false;\r\n  FSplitControl := nil;\r\n  FFirstMove := true;\r\n  FLayer.parentNode.removeChild(FLayer);\r\n  Result := true;\r\n  if Assigned(OnMoved) then\r\n    OnMoved(Self);\r\nend;\r\n\r\n\r\nfunction TSplitter.HandleDocDoTouchMove(Event: TJSTouchEvent): Boolean;\r\nvar\r\n  touch: TJSTouch;\r\n  dx,dy: integer;\r\nbegin\r\n  StopPropagation;\r\n\r\n  if Event.Touches.length > 0 then\r\n  begin\r\n    touch := Event.touches.Touches[0];\r\n\r\n    if FSizing and Assigned(FSplitControl) then\r\n    begin\r\n      if FFirstMove then\r\n      begin\r\n        FSizingX := touch.clientX;\r\n        FSizingY := touch.clientY;\r\n        FFirstMove := false;\r\n      end\r\n      else\r\n      begin\r\n        dx := Round(touch.clientX - FSizingX);\r\n        dy := Round(touch.clientY - FSizingY);\r\n\r\n        if Align = alLeft then\r\n          FSplitControl.Width := FOriginalWidth + dx;\r\n\r\n        if Align = alRight then\r\n          FSplitControl.Width := FOriginalWidth - dx;\r\n\r\n        if Align = alTop then\r\n          FSplitControl.Height := FOriginalHeight + dy;\r\n\r\n        if Align = alBottom then\r\n          FSplitControl.Height := FOriginalHeight - dy;\r\n\r\n        DoRealign;\r\n\r\n        if Assigned(OnMove) then\r\n          OnMove(Self);\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  Result := True;\r\nend;\r\n\r\nfunction TSplitter.HandleDoTouchStart(Event: TJSTouchEvent): Boolean;\r\nvar\r\n  l,t: single;\r\n  touch: TJSTouch;\r\nbegin\r\n  StopPropagation;\r\n  PreventDefault;\r\n\r\n  if Event.Touches.length > 0 then\r\n  begin\r\n    touch := Event.touches.Touches[0];\r\n\r\n    FTouched := true;\r\n    Invalidate;\r\n    Invalidate;\r\n    XYToClient(touch.clientX, touch.clientY, l, t);\r\n\r\n    DoSizeStart(round(l),round(t));\r\n  end;\r\n\r\n  Result := false;\r\nend;\r\n\r\nfunction TSplitter.HandleDocDoTouchEnd(Event: TJSTouchEvent): Boolean;\r\nbegin\r\n  FTouched := false;\r\n  Invalidate;\r\n\r\n  FSizing := false;\r\n  FSplitControl := nil;\r\n  FFirstMove := true;\r\n  FLayer.parentNode.removeChild(FLayer);\r\n  Result := true;\r\n  if Assigned(OnMoved) then\r\n    OnMoved(Self);\r\nend;\r\n\r\n{ TDivPanel }\r\n\r\nfunction TDivPanel.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('DIV');\r\nend;\r\n\r\n{ TCustomPanel }\r\n\r\nprocedure TCustomPanel.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  if (csDesigning in ComponentState) then\r\n    EnablePropagation := True;\r\n  FAutoSize := False;\r\n  FAlignment := taCenter;\r\n  Color := clBtnFace;\r\n  TabStop := False;\r\n  CustomBorder := true;\r\n  ShowCaption := true;\r\n  ControlStyle := ControlStyle + [csAcceptsControls];\r\n  FLabel := nil;\r\n  FPadding := TPadding.Create;\r\n\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Width := 400;\r\n    Height := 300;\r\n  end;\r\nend;\r\n\r\ndestructor TCustomPanel.Destroy;\r\nbegin\r\n  FPadding.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TCustomPanel.EndUpdate;\r\nbegin\r\n  inherited;\r\n  if AutoSize then\r\n    AutoSize := true;\r\nend;\r\n\r\nfunction TCustomPanel.GetChildContainer: TJSElement;\r\nbegin\r\n  if Assigned(FPanelBody) then\r\n    Result := FPanelBody\r\n  else\r\n    Result := inherited;\r\nend;\r\n\r\nfunction TCustomPanel.GetOuterHeight: integer;\r\nbegin\r\n  Result := inherited GetOuterHeight;\r\nend;\r\n\r\nfunction TCustomPanel.GetOuterWidth: integer;\r\nbegin\r\n  Result := inherited GetOuterWidth;\r\nend;\r\n\r\nprocedure TCustomPanel.RegisterParent(AValue: TControl);\r\nbegin\r\n  inherited;\r\n  if AutoSize then\r\n    DoAutoSize;\r\nend;\r\n\r\nprocedure TCustomPanel.AlignControl(AControl: TControl);\r\nbegin\r\n  inherited;\r\n  if AutoSize then\r\n    DoAutoSize;\r\nend;\r\n\r\nfunction TCustomPanel.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('SPAN');\r\n  FPanelBody := TJSHTMLElement(document.createElement('DIV'));\r\n  FPanelBody['class'] := 'card-body';\r\n  Result.appendChild(FPanelBody);\r\nend;\r\n\r\nprocedure TCustomPanel.DoAutoSize;\r\nvar\r\n  i: integer;\r\n  minx,miny,maxx,maxy: integer;\r\n  r: TJSDomRect;\r\n  el: TJSElement;\r\nbegin\r\n  if FIsSizing then\r\n    Exit;\r\n\r\n  FIsSizing := true;\r\n\r\n  if (WidthStyle = ssAbsolute) and (HeightStyle = ssAbsolute) then\r\n  begin\r\n    maxx := 0;\r\n    maxy := 0;\r\n    minx := $FFFF;\r\n    miny := $FFFF;\r\n    for i := 0 to ControlCount - 1 do\r\n    begin\r\n      if Controls[i].WidthStyle = ssAbsolute then\r\n      begin\r\n        if Controls[i].Left + Controls[i].Width > maxx then\r\n          maxx := Controls[i].Left + Controls[i].Width;\r\n\r\n        if Controls[i].Left < minx then\r\n          minx := Controls[i].Left;\r\n      end\r\n      else\r\n      begin\r\n        el := Controls[i].ElementHandle;\r\n        if Assigned(el) then\r\n        begin\r\n          r := el.getBoundingClientRect;\r\n          if r.X - Left + r.Width > maxx then\r\n            maxx := Round(r.X  - Left + r.Width);\r\n\r\n          minx := 0;\r\n        end;\r\n      end;\r\n\r\n      if Controls[i].HeightStyle = ssAbsolute then\r\n      begin\r\n        if Controls[i].Top + Controls[i].Height > maxy then\r\n          maxy := Controls[i].Top + Controls[i].Height;\r\n\r\n        if Controls[i].Top < miny then\r\n          miny := Controls[i].Top;\r\n      end\r\n      else\r\n      begin\r\n        el := Controls[i].ElementHandle;\r\n        if Assigned(el) then\r\n        begin\r\n          r := el.getBoundingClientRect;\r\n          if r.Y - Top + r.Height > maxy then\r\n            maxy := Round(r.Y - Top + r.Height);\r\n          miny := 0;\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    // don't do anything if it would render the panel invisible at design-time\r\n    if (csDesigning in ComponentState) then\r\n    begin\r\n      if (ControlCount = 0) or (maxx = 0) or (maxy = 0) then\r\n        Exit;\r\n    end;\r\n\r\n    if (BorderStyle = bsSingle) then\r\n    begin\r\n      inc(maxx);\r\n      inc(maxy);\r\n    end;\r\n\r\n    for i := 0 to ControlCount - 1 do\r\n    begin\r\n      Controls[i].Left := Controls[i].Left - minx;\r\n      Controls[i].Top := Controls[i].Top - miny;\r\n    end;\r\n\r\n    Width := maxx - minx;\r\n    Height := maxy - miny;\r\n  end\r\n  else\r\n  begin\r\n    Width := -1;\r\n    Height := -1;\r\n  end;\r\n\r\n  UpdateElement;\r\n\r\n  FIsSizing := false;\r\nend;\r\n\r\nprocedure TCustomPanel.SetAlignment(const Value: TAlignment);\r\nbegin\r\n  if (FAlignment <> Value) then\r\n  begin\r\n    FAlignment := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomPanel.SetAutoSize(AValue: boolean);\r\nbegin\r\n  FAutoSize := AValue;\r\n  if FAutoSize and not IsUpdating then\r\n  begin\r\n    DoAutoSize;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomPanel.SetBorderStyle(const AValue: TBorderStyle);\r\nbegin\r\n  inherited;\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TCustomPanel.SetBounds(X, Y, AWidth, AHeight: Integer);\r\nbegin\r\n  inherited;\r\n  if AutoSize then\r\n    DoAutoSize;\r\nend;\r\n\r\nprocedure TCustomPanel.SetCaption(const AValue: string);\r\nbegin\r\n  inherited SetCaption(AValue);\r\n\r\n  if Assigned(ElementHandle) and ShowCaption then\r\n  begin\r\n    if not Assigned(FLabel) then\r\n    begin\r\n      FLabel := TJSHTMLElement(document.createElement('SPAN'));\r\n      FLabel.innerHTML := Caption;\r\n\r\n      if Assigned(ChildContainer) then\r\n        ChildContainer.appendChild(FLabel)\r\n      else\r\n        ElementHandle.appendChild(FLabel);\r\n\r\n      UpdateElementVisual;\r\n    end\r\n    else\r\n    begin\r\n      FLabel.innerHTML := Caption;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomPanel.SetPadding(const Value: TPadding);\r\nbegin\r\n  FPadding.Assign(Value);\r\n  Realign;\r\nend;\r\n\r\nprocedure TCustomPanel.SetShowCaption(const Value: boolean);\r\nbegin\r\n  if (FShowCaption <> Value) then\r\n  begin\r\n    FShowCaption := Value;\r\n    UpdateElementVisual;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomPanel.UnRegisterParent(AValue: TControl);\r\nbegin\r\n  inherited;\r\n  if AutoSize then\r\n    DoAutoSize;\r\n\r\nend;\r\n\r\nprocedure TCustomPanel.UpdateElementVisual;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    if not IsLinked then\r\n    begin\r\n      if AutoSize then\r\n      begin\r\n        ElementHandle.style.setProperty('overflow', '');\r\n        ElementHandle.style.setProperty('white-space', 'normal');\r\n        if Visible then\r\n          ElementHandle.style.setProperty('display', 'inline');\r\n      end\r\n      else\r\n      begin\r\n        ElementHandle.style.setProperty('overflow', 'hidden');\r\n        ElementHandle.style.setProperty('white-space', 'nowrap');\r\n        if Visible then\r\n          ElementHandle.style.setProperty('display', 'inline-block');\r\n      end;\r\n\r\n      ElementHandle.style.setProperty('padding-left',inttostr(Padding.Left)+'px');\r\n      ElementHandle.style.setProperty('padding-right',inttostr(Padding.Right)+'px');\r\n      ElementHandle.style.setProperty('padding-top',inttostr(Padding.Top)+'px');\r\n      ElementHandle.style.setProperty('padding-bottom',inttostr(Padding.Bottom)+'px');\r\n      ElementHandle.style.setProperty('box-sizing','border-box');\r\n\r\n      if ElementBodyClassName <> '' then\r\n        ChildContainer.setAttribute('class', ElementBodyClassName)\r\n      else\r\n        ChildContainer.removeAttribute('class');\r\n    end;\r\n\r\n    if Assigned(FLabel) then\r\n    begin\r\n      if ShowCaption then\r\n        FLabel.innerHTML := Caption\r\n      else\r\n        FLabel.innerHTML := '';\r\n\r\n      // center the label\r\n      if Visible then\r\n      begin\r\n        ElementHandle.style.setProperty('display','flex');\r\n        case Alignment of\r\n        taLeftJustify: ElementHandle.style.setProperty('justify-content','flex-start');\r\n        taCenter: ElementHandle.style.setProperty('justify-content','center');\r\n        taRightJustify: ElementHandle.style.setProperty('justify-content','flex-end');\r\n        end;\r\n        ElementHandle.style.setProperty('align-items','center');\r\n      end;\r\n    end;\r\n\r\n    // do not block selection in child controls\r\n    ElementHandle.style.setProperty('user-select', '');\r\n\r\n    // allow default caret on text\r\n    if Cursor = crDefault then\r\n      ElementHandle.style.setProperty('cursor', '');\r\n  end;\r\nend;\r\n\r\nprocedure TCustomPanel.UpdatePadding(var ARect: TRect);\r\nbegin\r\n  ARect.Left := Padding.Left;\r\n  ARect.Top := Padding.Top;\r\n  ARect.Right := ARect.Right - Padding.Right;\r\n  ARect.Bottom := ARect.Bottom - Padding.Bottom;\r\nend;\r\n\r\n{ TGeoLocation }\r\n\r\nconstructor TGeoLocation.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FHighPrecision := false;\r\n  FTimeOut := 60000;\r\n  FMaximumAge := 0;\r\n  FTrackID := -1;\r\nend;\r\n\r\nprocedure TGeoLocation.DoHandleError(AValue: TJSPositionError);\r\nbegin\r\n  if Assigned(OnGeolocationError) then\r\n    OnGeolocationError(Self, AValue.code, AValue.Message);\r\nend;\r\n\r\nprocedure TGeoLocation.DoHandleGeolocation(APosition: TJSPosition);\r\nbegin\r\n  if Assigned(OnGeolocation) then\r\n    OnGeolocation(Self, APosition.Coords.Latitude, APosition.Coords.Longitude, APosition.Coords.Altitude);\r\n\r\n  if Assigned(OnGeolocationEx) then\r\n    OnGeolocationEx(Self, APosition.Coords.Latitude, APosition.Coords.Longitude, APosition.Coords.Altitude, APosition.Coords.Accuracy);\r\nend;\r\n\r\nprocedure TGeoLocation.DoHandleGeolocationAsync(\r\n  AProc: TGeolocationResponseProc);\r\nvar\r\n posopt: TJSPositionOptions;\r\n\r\n  procedure Handler(APosition: TJSPosition);\r\n  begin\r\n    AProc(APosition);\r\n  end;\r\n\r\nbegin\r\n  posopt.enableHighAccuracy := FHighPrecision;\r\n  posopt.timeout := FTimeOut;\r\n  posopt.maximumAge := FMaximumAge;\r\n  geolocation.getCurrentPosition(TJSGeoLocationCallback(@Handler), nil, posopt);\r\nend;\r\n\r\nprocedure TGeoLocation.DoHandleGeolocationUpdate(APosition: TJSPosition);\r\nbegin\r\n  if Assigned(OnGeolocationUpdate) then\r\n    OnGeolocationUpdate(Self, APosition.Coords.Latitude, APosition.Coords.Longitude, APosition.Coords.Altitude);\r\n\r\n  if Assigned(OnGeolocationUpdateEx) then\r\n    OnGeolocationUpdateEx(Self, APosition.Coords.Latitude, APosition.Coords.Longitude, APosition.Coords.Altitude, APosition.Coords.Accuracy);\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TGeoLocation.GetGeolocation;\r\nvar\r\n  posopt: TJSPositionOptions;\r\nbegin\r\n  if Assigned(geolocation) then\r\n  begin\r\n    posopt.enableHighAccuracy := FHighPrecision;\r\n    posopt.timeout := FTimeOut;\r\n    posopt.maximumAge := FMaximumAge;\r\n    geolocation.getCurrentPosition(TJSGeoLocationCallback(@DoHandleGeoLocation), TJSGeoLocationErrorCallback(@DoHandleError), posopt);\r\n  end;\r\nend;\r\n\r\nfunction TGeoLocation.GetGeolocationAsync: TJSPromise;\r\nvar\r\n  posopt: TJSPositionOptions;\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n    begin\r\n      if Assigned(geolocation) then\r\n      begin\r\n        DoHandleGeolocationAsync(procedure(APosition: TJSPosition)\r\n        begin\r\n          ASuccess(APosition);\r\n        end);\r\n      end\r\n      else\r\n        AFailed(nil);\r\n    end);\r\nend;\r\n\r\n{$HINTS ON}\r\n\r\nfunction TGeoLocation.HasGeolocation: boolean;\r\nbegin\r\n  Result := Assigned(geolocation);\r\nend;\r\n\r\nprocedure TGeoLocation.StartTracking;\r\nvar\r\n  posopt: TJSPositionOptions;\r\nbegin\r\n  if FTrackID <> -1 then\r\n    StopTracking;\r\n\r\n  if Assigned(geolocation) then\r\n  begin\r\n    posopt.enableHighAccuracy := FHighPrecision;\r\n    posopt.timeout := FTimeOut;\r\n    posopt.maximumAge := FMaximumAge;\r\n    FTrackId := geolocation.watchPosition(TJSGeoLocationCallback(@DoHandleGeoLocationUpdate), TJSGeoLocationErrorCallback(@DoHandleError), posopt);\r\n  end;\r\nend;\r\n\r\nprocedure TGeoLocation.StopTracking;\r\nbegin\r\n  if Assigned(geolocation) and (FTrackID <> -1) then\r\n  begin\r\n    geolocation.clearWatch(FTrackID);\r\n    FTrackID := -1;\r\n  end;\r\nend;\r\n\r\n{ TGridPanelRows }\r\n\r\nfunction TGridPanelRows.Add: TGridPanelRow;\r\nbegin\r\n  Result := TGridPanelRow(inherited Add);\r\nend;\r\n\r\nconstructor TGridPanelRows.Create(AOwner: TComponent);\r\nbegin\r\n   inherited Create(AOwner, TGridPanelRow);\r\nend;\r\n\r\nfunction TGridPanelRows.GetItem(Index: integer): TGridPanelRow;\r\nbegin\r\n  Result := TGridPanelRow(inherited Items[Index]);\r\nend;\r\n\r\nfunction TGridPanelRows.Insert(Index: integer): TGridPanelRow;\r\nbegin\r\n  Result := TGridPanelRow(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TGridPanelRows.SetItem(Index: integer; const Value: TGridPanelRow);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nprocedure TGridPanelRows.Update(Item: TCollectionItem);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\n{ TGridPanelColumns }\r\n\r\nfunction TGridPanelColumns.Add: TGridPanelColumn;\r\nbegin\r\n  Result := TGridPanelColumn(inherited Add);\r\nend;\r\n\r\nconstructor TGridPanelColumns.Create(AOwner: TComponent);\r\nbegin\r\n  inherited Create(AOwner, TGridPanelColumn);\r\nend;\r\n\r\nfunction TGridPanelColumns.GetItem(Index: integer): TGridPanelColumn;\r\nbegin\r\n  Result := TGridPanelColumn(inherited Items[Index]);\r\nend;\r\n\r\nfunction TGridPanelColumns.Insert(Index: integer): TGridPanelColumn;\r\nbegin\r\n  Result := TGridPanelColumn(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TGridPanelColumns.SetItem(Index: integer;\r\n  const Value: TGridPanelColumn);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nprocedure TGridPanelColumns.Update(Item: TCollectionItem);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\n{ TGridPanel }\r\n\r\nprocedure TGridPanel.AddControl(AControl: TWinControl);\r\nbegin\r\n  FControlCollection.Add.Control := AControl;\r\n  AControl.Parent := Self;\r\n\r\n  if FControlCollection.Count > FColumnCollection.Count * FRowCollection.Count then\r\n  begin\r\n    if ExpandStyle = esAddRows then\r\n      FRowCollection.Add\r\n    else\r\n      FColumnCollection.Add;\r\n  end;\r\nend;\r\n\r\nprocedure TGridPanel.AlignControl(AControl: TControl);\r\nbegin\r\n  if not (csDestroying in ComponentState) then\r\n    UpdateTable;\r\n\r\n  inherited;\r\nend;\r\n\r\nfunction TGridPanel.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('SPAN');\r\nend;\r\n\r\nprocedure TGridPanel.CreateInitialize;\r\nbegin\r\n  inherited;\r\n\r\n  FDesignTime := (csDesigning in ComponentState) and not\r\n    ((csReading in Owner.ComponentState) or (csLoading in Owner.ComponentState));\r\n\r\n  EnablePropagation := true;\r\n  ControlStyle := ControlStyle + [csAcceptsControls];\r\n  FUpdateTable := true;\r\n  FColCount := -1;\r\n  FRowCollection := TGridPanelRows.Create(Self);\r\n  FRowCollection.PropName := 'RowCollection';\r\n\r\n  if FDesignTime and not (csLoading in ComponentState) then\r\n  begin\r\n    FRowCollection.Add;\r\n    FRowCollection[0].Value := 100;\r\n    FRowCollection[0].SizeStyle := ssPercent;\r\n  end;\r\n\r\n  FColumnCollection := TGridPanelColumns.Create(Self);\r\n  FColumnCollection.PropName := 'ColumnCollection';\r\n\r\n  if FDesignTime and not (csLoading in ComponentState) then\r\n  begin\r\n    FColumnCollection.Add;\r\n    FColumnCollection.Add;\r\n    FColumnCollection[0].Value := 50;\r\n    FColumnCollection[1].Value := 50;\r\n    FColumnCollection[0].SizeStyle := ssPercent;\r\n    FColumnCollection[1].SizeStyle := ssPercent;\r\n  end;\r\n\r\n  FRowCollection.OnChange := TableChanged;\r\n  FColumnCollection.OnChange := TableChanged;\r\n\r\n  FControlCollection := TControlCollection.Create(Self);\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Width := 400;\r\n    Height := 300;\r\n  end;\r\nend;\r\n\r\nfunction TGridPanel.CreateRow(AIndex: integer): TJSElement;\r\nvar\r\n  row, cell: TJSElement;\r\n  i: integer;\r\n  ps: string;\r\n\r\nbegin\r\n  if (GridLineColor <> clNone) and (GridLineWidth > 0) then\r\n    ps := IntToStr(GridLineWidth)+'px solid '+ ColorToHTML(GridLineColor)\r\n  else\r\n  begin\r\n    if (csDesigning in ComponentState) then\r\n      ps := '1px dotted gray'\r\n    else\r\n      ps := '0px';\r\n  end;\r\n\r\n  row := document.createElement('tr');\r\n  if (ElementClassName = '') then\r\n    TJSHTMLElement(row).style.setProperty('border', ps);\r\n\r\n  if AIndex < RowCollection.Count then\r\n  begin\r\n    if RowCollection.Items[AIndex].MarginTop <> 0 then\r\n      TJSHTMLElement(row).style.setProperty('margin-top', IntToStr(RowCollection.Items[AIndex].MarginTop));\r\n\r\n    if RowCollection.Items[AIndex].MarginBottom <> 0 then\r\n      TJSHTMLElement(row).style.setProperty('margin-bottom', IntToStr(RowCollection.Items[AIndex].MarginBottom));\r\n\r\n    if (RowCollection.Items[AIndex].ElementClassName <> '') then\r\n    begin\r\n      TJSHTMLElement(row).setAttribute('class', RowCollection.Items[AIndex].ElementClassName);\r\n    end;\r\n\r\n    case RowCollection.Items[AIndex].Alignment of\r\n    vaCenter: TJSHTMLElement(row).setAttribute('valign','middle');\r\n    vaBottom: TJSHTMLElement(row).setAttribute('valign','bottom');\r\n    end;\r\n\r\n    if (ElementClassName = '') then\r\n      TJSHTMLElement(row).style.setProperty('border', ps);\r\n\r\n    row.setAttribute('height', RowCollection.Items[AIndex].HeightAttribute);\r\n  end;\r\n\r\n  for i := 0 to ColumnCollection.Count - 1 do\r\n  begin\r\n    cell := document.createElement('td');\r\n    if (ElementClassName = '') then\r\n      TJSHTMLElement(cell).style.setProperty('border', ps);\r\n\r\n    if ColumnCollection.Items[i].MarginLeft <> 0 then\r\n      TJSHTMLElement(cell).style.setProperty('padding-left', IntToStr(ColumnCollection.Items[i].MarginLeft) +'px');\r\n\r\n    if ColumnCollection.Items[i].MarginRight <> 0 then\r\n      TJSHTMLElement(cell).style.setProperty('padding-right', IntToStr(ColumnCollection.Items[i].MarginRight)+'px' );\r\n\r\n    if (ColumnCollection.Items[i].ElementClassName <> '') then\r\n    begin\r\n      TJSHTMLElement(cell).setAttribute('class', ColumnCollection.Items[i].ElementClassName);\r\n    end;\r\n\r\n    case ColumnCollection.Items[i].Alignment of\r\n    taCenter: TJSHTMLElement(cell).setAttribute('align','center');\r\n    taRightJustify: TJSHTMLElement(cell).setAttribute('align','right');\r\n    end;\r\n\r\n    cell.setAttribute('id', Name+'R'+IntToStr(AIndex)+'C'+IntToStr(i));\r\n\r\n    if AIndex = 0 then\r\n    begin\r\n      TJSHTMLElement(cell).style.setProperty('width',ColumnCollection.Items[i].WidthAttribute);\r\n    end;\r\n\r\n    //cellText := document.createTextNode('cell is row '+IntToStr(j)+', column '+IntToStr(i));\r\n    //cell.appendChild(cellText);\r\n    row.appendChild(cell);\r\n  end;\r\n\r\n  Result := row;\r\nend;\r\n\r\n\r\nfunction TGridPanel.CreateTable: TJSElement;\r\nvar\r\n  row: TJSElement;\r\n  j: integer;\r\n  ps: string;\r\nbegin\r\n  FTbl := document.createElement('table');\r\n\r\n  FTbl.setAttribute('width','100%');\r\n  FTbl.setAttribute('height','100%');\r\n\r\n  if ElementClassName <> '' then\r\n    FTbl.setAttribute('class', ElementClassName)\r\n  else\r\n  begin\r\n    if (GridLineColor <> clNone) and (GridLineWidth > 0) then\r\n      ps := IntToStr(GridLineWidth)+'px solid '+ ColorToHTML(GridLineColor)\r\n    else\r\n    begin\r\n      if (csDesigning in ComponentState) then\r\n        ps := '1px dotted gray'\r\n      else\r\n        ps := '0px';\r\n    end;\r\n\r\n    TJSHTMLElement(FTbl).style.setProperty('border', ps);\r\n    TJSHTMLElement(FTbl).style.setProperty('border-collapse','collapse');\r\n  end;\r\n\r\n  SetHTMLElementColor(TJSHTMLElement(FTbl), Color, not ((ElementClassName = '') and not IsLinked));\r\n\r\n  FTblBody := document.createElement('tbody');\r\n\r\n  // cells creation\r\n  for  j := 0 to RowCollection.Count - 1 do\r\n  begin\r\n    row := CreateRow(j);\r\n    FTblBody.appendChild(row);\r\n  end;\r\n\r\n  // append the <tbody> inside the <table>\r\n  FTbl.appendChild(FTblBody);\r\n  Result := FTbl;\r\nend;\r\n\r\nprocedure TGridPanel.UpdateTable;\r\nvar\r\n  i,j,k,mw,numrows: integer;\r\n  fragment: TJSDocumentFragment;\r\n  destid: string;\r\n  control: TWinControl;\r\n  el,row: TJSElement;\r\n  isPercent: boolean;\r\n  f: single;\r\n\r\nbegin\r\n  if not Assigned(FTblBody) then\r\n    Exit;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  if (csDestroying in ComponentState) then\r\n    Exit;\r\n\r\n  // row height distribution\r\n  isPercent := true;\r\n  mw := 0;\r\n\r\n  for i := 0 to RowCollection.Count - 1 do\r\n  begin\r\n    begin\r\n      if RowCollection.Items[i].SizeStyle <> ssPercent then\r\n      begin\r\n        isPercent := false;\r\n        break;\r\n      end\r\n      else\r\n        mw := mw + RowCollection.Items[i].Value;\r\n    end;\r\n  end;\r\n\r\n  if isPercent and (mw > 100) then\r\n  begin\r\n    f := mw/100;\r\n    for i := 0 to RowCollection.Count - 1 do\r\n    begin\r\n      RowCollection.Items[i].FValue := Trunc(RowCollection.Items[i].FValue / f);\r\n    end;\r\n  end;\r\n\r\n  // column width distribution\r\n  isPercent := true;\r\n  mw := 0;\r\n\r\n  for i := 0 to ColumnCollection.Count - 1 do\r\n  begin\r\n    begin\r\n      if ColumnCollection.Items[i].SizeStyle <> ssPercent then\r\n      begin\r\n        isPercent := false;\r\n        break;\r\n      end\r\n      else\r\n        mw := mw + ColumnCollection.Items[i].Value;\r\n    end;\r\n  end;\r\n\r\n  if isPercent and (mw > 100) then\r\n  begin\r\n    f := mw/100;\r\n    for i := 0 to ColumnCollection.Count - 1 do\r\n    begin\r\n      ColumnCollection.Items[i].FValue := Trunc(ColumnCollection.Items[i].FValue / f);\r\n    end;\r\n  end;\r\n\r\n  numrows := RowCollection.Count;\r\n\r\n  // change column structure\r\n  if (FColCount <> ColumnCollection.Count) then\r\n    numrows := 0;\r\n\r\n  // remove rows when rows decreased\r\n  while FTblBody.childNodes.length > numrows do\r\n  begin\r\n    FTblBody.removeChild(FTblBody.childNodes[FTblBody.childNodes.length - 1]);\r\n  end;\r\n\r\n  // fill rows to match RowCollection.Count\r\n  while FTblBody.childNodes.length < RowCollection.Count do\r\n  begin\r\n    row := CreateRow(FTblBody.childNodes.length);\r\n    FTblBody.appendChild(row);\r\n  end;\r\n\r\n  for i := 0 to RowCollection.Count - 1 do\r\n  begin\r\n    row := TJSElement(FTblBody.childNodes[i]);\r\n    row.setAttribute('height', RowCollection.Items[i].HeightAttribute);\r\n  end;\r\n\r\n  i := 0;\r\n  j := 0;\r\n\r\n  // assign controls in grid cells\r\n  for k := 0 to ControlCollection.Count - 1 do\r\n  begin\r\n    if Assigned(ControlCollection.Items[k].Control) then\r\n    begin\r\n      fragment := document.createDocumentFragment();\r\n      control := ControlCollection.Items[k].Control;\r\n      ControlCollection.Items[k].Column := i;\r\n      ControlCollection.Items[k].Row := j;\r\n\r\n      control.ElementPosition := epRelative;\r\n      control.ChildOrder := -1;\r\n\r\n      if control.Align = alLeft then\r\n      begin\r\n        control.HeightStyle := ssPercent;\r\n        control.HeightPercent := 100;\r\n        if Assigned(control.ElementHandle) then\r\n          TJSHTMLElement(control.ElementHandle).style.setProperty('float','left');\r\n      end;\r\n\r\n      if control.Align = alRight then\r\n      begin\r\n        control.HeightStyle := ssPercent;\r\n        control.HeightPercent := 100;\r\n        if Assigned(control.ElementHandle) then\r\n          TJSHTMLElement(control.ElementHandle).style.setProperty('float','right');\r\n      end;\r\n\r\n      if (control.Align in [alTop, alBottom]) then\r\n      begin\r\n        control.WidthStyle := ssPercent;\r\n        control.WidthPercent := 100;\r\n      end;\r\n\r\n      if control.Align = alClient then\r\n      begin\r\n        control.WidthStyle := ssPercent;\r\n        control.HeightStyle := ssPercent;\r\n        control.WidthPercent := 100;\r\n        control.HeightPercent:= 100;\r\n      end;\r\n\r\n      row := TJSElement(FTblBody.childNodes[j]);\r\n      if Assigned(row) and (j < RowCollection.Count) then\r\n      begin\r\n        row.setAttribute('height', RowCollection.Items[j].HeightAttribute);\r\n        if (RowCollection.Items[j].ElementClassName <> '') then\r\n          row.setAttribute('class', RowCollection.Items[j].ElementClassName)\r\n        else\r\n          row.removeAttribute('class');\r\n      end;\r\n\r\n      if Assigned(control.ElementHandle) then\r\n        fragment.appendChild(control.ElementHandle);\r\n\r\n      destid := Name + 'R'+ inttostr(j) + 'C' + inttostr(i);\r\n\r\n      el := document.getElementById(destid);\r\n\r\n\r\n      if not Assigned(el) then\r\n      begin\r\n        row := CreateRow(j);\r\n\r\n        FTblBody.appendChild(row);\r\n        el := document.getElementById(destid);\r\n        if RowCollection.Count > j then\r\n          row.setAttribute('height', RowCollection.Items[j].HeightAttribute);\r\n      end\r\n      else\r\n      begin\r\n        if (j = 0) and (i < ColumnCollection.Count) then\r\n        begin\r\n          if ColumnCollection.Items[i].SizeStyle = ssAbsolute then\r\n          begin\r\n            TJSHTMLElement(FTbl).removeAttribute('width');\r\n            TJSHTMLElement(FTbl).removeAttribute('height');\r\n          end\r\n          else\r\n          begin\r\n            TJSHTMLElement(FTbl).setAttribute('width','100%');\r\n            TJSHTMLElement(FTbl).setAttribute('height','100%');\r\n          end;\r\n\r\n          TJSHTMLElement(el).style.setProperty('width',ColumnCollection.Items[i].WidthAttribute);\r\n        end;\r\n      end;\r\n\r\n      if Assigned(el) then\r\n      begin\r\n        el.appendChild(fragment);\r\n\r\n        if control.Align = alTop then\r\n          TJSHTMLElement(el).style.setProperty('vertical-align','top');\r\n\r\n        if control.Align = alBottom then\r\n          TJSHTMLElement(el).style.setProperty('vertical-align','bottom');\r\n      end;\r\n\r\n      inc(i);\r\n      if i = ColumnCollection.Count then\r\n      begin\r\n        i := 0;\r\n        inc(j);\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  for i := 0 to ColumnCollection.Count - 1 do\r\n  begin\r\n    destid := Name + 'R0C' + inttostr(i);\r\n    el := document.getElementById(destid);\r\n    if Assigned(el) then\r\n      TJSHTMLElement(el).style.setProperty('width',ColumnCollection.Items[i].WidthAttribute);\r\n  end;\r\n\r\n  FColCount := ColumnCollection.Count;\r\nend;\r\n\r\ndestructor TGridPanel.Destroy;\r\nbegin\r\n  FRowCollection.Free;\r\n  FColumnCollection.Free;\r\n  FControlCollection.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TGridPanel.EndUpdate;\r\nbegin\r\n  inherited;\r\n  UpdateTable;\r\nend;\r\n\r\nprocedure TGridPanel.Notification(AComponent: TComponent;\r\n  Operation: TOperation);\r\nvar\r\n  i: integer;\r\n  destid: string;\r\n  el: TJSElement;\r\nbegin\r\n  if (Operation = opRemove) and not (csDestroying in ComponentState) then\r\n  begin\r\n    for i := ControlCollection.Count - 1 downto 0 do\r\n    begin\r\n      if ControlCollection.Items[i].Control = AComponent then\r\n      begin\r\n        destid := Name + 'R'+ inttostr(ControlCollection.Items[i].Row) + 'C' + inttostr(ControlCollection.Items[i].Column);\r\n        el := document.getElementById(destid);\r\n        el.removeChild(el.firstChild);\r\n\r\n        ControlCollection.Items[i].FControl := nil;\r\n        ControlCollection.Delete(i);\r\n      end;\r\n    end;\r\n\r\n    UpdateTable;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TGridPanel.RegisterParent(AValue: TControl);\r\nbegin\r\n  inherited;\r\n\r\n  if not IsUpdating and not (csLoading in ComponentState) then\r\n  begin\r\n//    if Assigned(Owner) and (csLoading in Owner.ComponentState) then\r\n//      Exit;\r\n\r\n    if (csLoading in AValue.ComponentState) then\r\n      Exit;\r\n\r\n    ControlCollection.Add.Control := TWinControl(AValue);\r\n\r\n    if ControlCollection.Count > ColumnCollection.Count * RowCollection.Count then\r\n    begin\r\n      if ExpandStyle = esAddRows then\r\n        RowCollection.Add\r\n      else\r\n        ColumnCollection.Add;\r\n    end;\r\n\r\n    UpdateTable;\r\n  end;\r\nend;\r\n\r\nprocedure TGridPanel.RemoveControl(AControl: TWinControl);\r\nvar\r\n  i,r,c: integer;\r\n  row: TJSElement;\r\n  d: double;\r\n\r\nbegin\r\n  for i := 0 to FControlCollection.Count - 1 do\r\n  begin\r\n    if FControlCollection.Items[i].Control =  AControl then\r\n    begin\r\n      r := FControlCollection.Items[i].Row;\r\n      c := FControlCollection.Items[i].Column;\r\n\r\n      row := TJSElement(FTblBody.childNodes[r]);\r\n\r\n      TJSHTMLElement(row.childNodes[c]).innerHTML := '';\r\n\r\n      FControlCollection.Delete(i);\r\n      break;\r\n    end;\r\n  end;\r\n\r\n  if ColumnCollection.Count > 0 then\r\n  begin\r\n    d := ControlCollection.Count / ColumnCollection.Count;\r\n\r\n    if Frac(d) > 0 then\r\n      d := Trunc(d + 1);\r\n\r\n    while d < RowCollection.Count do\r\n    begin\r\n      RowCollection.Delete(RowCollection.Count - 1);\r\n    end;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TGridPanel.SetColumnCollection(const Value: TGridPanelColumns);\r\nbegin\r\n  FColumnCollection.Assign(Value);\r\nend;\r\n\r\nprocedure TGridPanel.SetControlCollection(const Value: TControlCollection);\r\nbegin\r\n  FControlCollection.Assign(Value);\r\nend;\r\n\r\nprocedure TGridPanel.SetRowCollection(const Value: TGridPanelRows);\r\nbegin\r\n  FRowCollection.Assign(Value);\r\nend;\r\n\r\nprocedure TGridPanel.TableChanged(Sender: TObject);\r\nbegin\r\n  UpdateTable;\r\nend;\r\n\r\nprocedure TGridPanel.UpdateElement;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementHandle) and not IsUpdating then\r\n  begin\r\n    // do not block selection in child controls\r\n    ElementHandle.style.setProperty('user-select', '');\r\n\r\n    // allow default caret on text\r\n    if Cursor = crDefault then\r\n      ElementHandle.style.setProperty('cursor', '');\r\n\r\n    if FUpdateTable and Assigned(Container) then\r\n    begin\r\n      TJSElement(Container).appendChild(CreateTable);\r\n      UpdateTable;\r\n      FUpdateTable := false;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TGridPanel.UpdateElementVisual;\r\nbegin\r\n  inherited;\r\n\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    ElementHandle.style.setProperty('border', '1px dotted gray');\r\n  end;\r\n\r\n  if not isLinked and Assigned(FTbl) then\r\n  begin\r\n    if Color <> clNone then\r\n      TJSHTMLElement(FTbl).style.setProperty('background-color',ColorToHTML(Color))\r\n    else\r\n      TJSHTMLElement(FTbl).style.removeProperty('background-color');\r\n  end;\r\nend;\r\n\r\n{ TGridPanelColumn }\r\n\r\nprocedure TGridPanelColumn.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TGridPanelColumn) then\r\n  begin\r\n    FAlignment := (Source as TGridPanelColumn).Alignment;\r\n    FSizeStyle := (Source as TGridPanelColumn).SizeStyle;\r\n    FElementClassName := (Source as TGridPanelColumn).ElementClassName;\r\n    FValue := (Source as TGridPanelColumn).Value;\r\n    FMarginLeft := (Source as TGridPanelColumn).MarginLeft;\r\n    FMarginRight := (Source as TGridPanelColumn).MarginRight;\r\n  end;\r\nend;\r\n\r\nconstructor TGridPanelColumn.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  FSizeStyle := ssPercent;\r\n  FValue := 0;\r\n  FMarginLeft := 0;\r\n  FMarginRight := 0;\r\n  FAlignment := taLeftJustify;\r\nend;\r\n\r\nprocedure TGridPanelColumn.SetMarginLeft(const Value: integer);\r\nbegin\r\n  if (FMarginLeft <> Value) then\r\n  begin\r\n    FMarginLeft := Value;\r\n    TGridPanelColumns(Collection).Update(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TGridPanelColumn.SetMarginRight(const Value: integer);\r\nbegin\r\n  if (FMarginRight <> Value) then\r\n  begin\r\n    FMarginRight := Value;\r\n    TGridPanelColumns(Collection).Update(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TGridPanelColumn.SetSizeStyle(const Value: TSizeStyle);\r\nbegin\r\n  if (FSizeStyle <> Value) then\r\n  begin\r\n    FSizeStyle := Value;\r\n    TGridPanelColumns(Collection).Update(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TGridPanelColumn.SetValue(const Value: integer);\r\nbegin\r\n  if (FValue <> Value) then\r\n  begin\r\n    FValue := Value;\r\n    TGridPanelColumns(Collection).Update(Self);\r\n  end;\r\nend;\r\n\r\nfunction TGridPanelColumn.WidthAttribute: string;\r\nbegin\r\n  Result := '';\r\n  case SizeStyle of\r\n  ssPercent: Result := IntTostr(Value)+'%';\r\n  ssAbsolute: Result := IntTostr(Value)+'px';\r\n  end;\r\nend;\r\n\r\n{ TGridPanelRow }\r\n\r\nprocedure TGridPanelRow.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TGridPanelRow) then\r\n  begin\r\n    FAlignment := (Source as TGridPanelRow).Alignment;\r\n    FSizeStyle := (Source as TGridPanelRow).SizeStyle;\r\n    FElementClassName := (Source as TGridPanelRow).ElementClassName;\r\n    FValue := (Source as TGridPanelRow).Value;\r\n    FMarginTop := (Source as TGridPanelRow).MarginTop;\r\n    FMarginBottom := (Source as TGridPanelRow).MarginBottom;\r\n  end;\r\nend;\r\n\r\nconstructor TGridPanelRow.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  FSizeStyle := ssPercent;\r\n  FAlignment := vaTop;\r\n  FMarginTop := 0;\r\n  FMarginBottom := 0;\r\nend;\r\n\r\nfunction TGridPanelRow.HeightAttribute: string;\r\nbegin\r\n  Result := '';\r\n  case SizeStyle of\r\n  ssPercent: Result := IntTostr(Value)+'%';\r\n  ssAbsolute: Result := IntTostr(Value)+'px';\r\n  end;\r\nend;\r\n\r\nprocedure TGridPanelRow.SetMarginBottom(const Value: integer);\r\nbegin\r\n  if (FMarginBottom <> Value) then\r\n  begin\r\n    FMarginBottom := Value;\r\n    TGridPanelColumns(Collection).Update(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TGridPanelRow.SetMarginTop(const Value: integer);\r\nbegin\r\n  if (FMarginTop <> Value) then\r\n  begin\r\n    FMarginTop := Value;\r\n    TGridPanelColumns(Collection).Update(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TGridPanelRow.SetSizeStyle(const Value: TSizeStyle);\r\nbegin\r\n  if (FSizeStyle <> Value) then\r\n  begin\r\n    FSizeStyle := Value;\r\n    TGridPanelColumns(Collection).Update(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TGridPanelRow.SetValue(const Value: integer);\r\nbegin\r\n  if (FValue <> Value) then\r\n  begin\r\n    FValue := Value;\r\n    TGridPanelColumns(Collection).Update(Self);\r\n  end;\r\nend;\r\n\r\n{ TControlCollectionItem }\r\n\r\nprocedure TControlCollectionItem.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TControlCollectionItem) then\r\n  begin\r\n    FColumn := (Source as TControlCollectionItem).Column;\r\n    FRow := (Source as TControlCollectionItem).Row;\r\n    FControl := (Source as TControlCollectionItem).Control;\r\n  end;\r\nend;\r\n\r\n\r\n{ TControlCollection }\r\n\r\nfunction TControlCollection.Add: TControlCollectionItem;\r\nbegin\r\n  Result := TControlCollectionItem(inherited Add);\r\nend;\r\n\r\nconstructor TControlCollection.Create(AOwner: TComponent);\r\nbegin\r\n  inherited Create(AOwner, TControlCollectionItem);\r\nend;\r\n\r\nfunction TControlCollection.FindItem(AControl: TWinControl): TControlCollectionItem;\r\nvar\r\n  i: integer;\r\nbegin\r\n  Result := nil;\r\n  for i := 0 to Count - 1 do\r\n  begin\r\n    if Items[i].Control = AControl then\r\n    begin\r\n      Result := Items[i];\r\n      Exit;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TControlCollection.GetItemAtCell(ACol,\r\n  ARow: integer): TControlCollectionItem;\r\nvar\r\n  i: integer;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(Owner) and (Owner is TGridPanel) then\r\n  begin\r\n    i := ACol + (Owner as TGridPanel).ColumnCollection.Count * ARow;\r\n    if i < Count then\r\n      Result := Items[i];\r\n  end;\r\nend;\r\n\r\nfunction TControlCollection.GetItem(Index: Integer): TControlCollectionItem;\r\nbegin\r\n  Result := TControlCollectionItem(inherited Items[Index]);\r\nend;\r\n\r\nfunction TControlCollection.Insert(Index: Integer): TControlCollectionItem;\r\nbegin\r\n  Result := TControlCollectionItem(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TControlCollection.SetItem(Index: Integer;\r\n  const Value: TControlCollectionItem);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TWebMultimediaPlayer }\r\n\r\n{$HINTS OFF}\r\nfunction TMultimediaPlayer.CreateElement: TJSElement;\r\nvar\r\n  el, src: TJSElement;\r\n  p: string;\r\nbegin\r\n  if MultimediaType = mtVideo then\r\n    el := document.createElement('VIDEO')\r\n  else\r\n    el := document.createElement('AUDIO');\r\n\r\n  src := document.createElement('SOURCE');\r\n\r\n  case FPreload of\r\n    mpNone: p := 'none';\r\n    mpAuto: p := 'auto';\r\n    mpMetadata: p := 'metadata';\r\n  end;\r\n\r\n  asm\r\n    el.defaultPlaybackRate = this.FPlaybackRate;\r\n    el.preload = p;\r\n  end;\r\n\r\n  el.appendChild(src);\r\n  Result := el;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TMultimediaPlayer.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FVolume := 100;\r\n  FPlaybackRate := 1;\r\n  FMuted := false;\r\n  FAutoPlay := false;\r\n  FContextMenu := true;\r\n  FPreload := mpAuto;\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Width := 400;\r\n    Height := 300;\r\n  end;\r\nend;\r\n\r\nfunction TMultimediaPlayer.GetCurrentTime: double;\r\nvar\r\n  el: TJSElement;\r\n  i: double;\r\nbegin\r\n  el := ElementHandle;\r\n  if Assigned(el) then\r\n  begin\r\n    asm\r\n      i = el.currentTime;\r\n    end;\r\n  end;\r\n\r\n  Result := i;\r\nend;\r\n\r\nfunction TMultimediaPlayer.GetDuration: double;\r\nvar\r\n  el: TJSElement;\r\n  i: double;\r\nbegin\r\n  el := ElementHandle;\r\n  if Assigned(el) then\r\n  begin\r\n    asm\r\n      i = el.duration;\r\n    end;\r\n  end;\r\n  Result := i;\r\nend;\r\n\r\nfunction TMultimediaPlayer.GetEnded: boolean;\r\nvar\r\n  el: TJSElement;\r\n  e: boolean;\r\nbegin\r\n  el := ElementHandle;\r\n  if Assigned(el) then\r\n  begin\r\n    asm\r\n      e = el.ended;\r\n    end;\r\n  end;\r\n\r\n  Result := e;\r\nend;\r\n\r\nfunction TMultimediaPlayer.GetPaused: boolean;\r\nvar\r\n  el: TJSElement;\r\n  e: boolean;\r\nbegin\r\n  el := ElementHandle;\r\n  if Assigned(el) then\r\n  begin\r\n    asm\r\n      e = el.paused;\r\n    end;\r\n  end;\r\n\r\n  Result := e;\r\nend;\r\n\r\n\r\nprocedure TMultimediaPlayer.Pause;\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  el := ElementHandle;\r\n  if Assigned(el) then\r\n  begin\r\n    asm\r\n      el.pause();\r\n    end;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TMultimediaPlayer.Play;\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  el := ElementHandle;\r\n  if Assigned(el) then\r\n  asm\r\n    el.play();\r\n  end;\r\nend;\r\n\r\nprocedure TMultimediaPlayer.ReLoad;\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  el := ElementHandle;\r\n  if Assigned(el) then\r\n  asm\r\n    el.load();\r\n  end;\r\nend;\r\n\r\nprocedure TMultimediaPlayer.SetAutoPlay(const Value: boolean);\r\nbegin\r\n  if (FAutoPlay <> Value) then\r\n  begin\r\n    FAutoPlay := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TMultimediaPlayer.SetContextMenu(const Value: boolean);\r\nbegin\r\n  if (FContextMenu <> Value) then\r\n  begin\r\n    FContextMenu := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TMultimediaPlayer.SetControls(const Value: boolean);\r\nbegin\r\n  if (FControls <> Value) then\r\n  begin\r\n    FControls := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TMultimediaPlayer.SetCurrentTime(const Value: double);\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  el := ElementHandle;\r\n  if Assigned(el) then\r\n  asm\r\n    el.currentTime = Value;\r\n  end;\r\nend;\r\n\r\nprocedure TMultimediaPlayer.SetHideControls(const Value: TMultiMediaControls);\r\nbegin\r\n  if FHideControls <> Value then\r\n  begin\r\n    FHideControls := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\n{$HINTS OFF}\r\n\r\nprocedure TMultimediaPlayer.SetLoop(const Value: boolean);\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  if (FLoop <> Value) then\r\n  begin\r\n    FLoop := Value;\r\n    if Assigned(ElementHandle) then\r\n    begin\r\n      el := ElementHandle;\r\n      asm\r\n        el.loop = Value;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TMultimediaPlayer.SetMuted(const Value: boolean);\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  if (FMuted <> Value) then\r\n  begin\r\n    FMuted := Value;\r\n    if Assigned(ElementHandle) then\r\n    begin\r\n      el := ElementHandle;\r\n      asm\r\n        el.muted = Value;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TMultimediaPlayer.SetPlaybackRate(const Value: double);\r\nbegin\r\n  if (FPlaybackRate <> Value) then\r\n  begin\r\n    FPlaybackRate := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TMultimediaPlayer.SetPoster(const Value: string);\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  if FPoster <> Value then\r\n  begin\r\n    FPoster := Value;\r\n    if Assigned(ElementHandle) then\r\n    begin\r\n      el := ElementHandle;\r\n      asm\r\n        el.poster = Value;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TMultimediaPlayer.SetPreload(const Value: TMultiMediaPreload);\r\nvar\r\n  s: string;\r\n  el: TJSElement;\r\nbegin\r\n  if FPreload <> Value then\r\n  begin\r\n    FPreload := Value;\r\n    if Assigned(ElementHandle) then\r\n    begin\r\n      el := ElementHandle;\r\n      case Value of\r\n        mpNone: s := 'none';\r\n        mpAuto: s := 'auto';\r\n        mpMetadata: s := 'metadata';\r\n      end;\r\n\r\n      asm\r\n        el.preload = s;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TMultimediaPlayer.SetURL(const Value: string);\r\nbegin\r\n  if (FURL <> Value) then\r\n  begin\r\n    FURL := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TMultimediaPlayer.SetVolume(const Value: TMultiMediaVolume);\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  if (FVolume <> Value) and (Value >= 0) and (Value <= 100) then\r\n  begin\r\n    FVolume := Value;\r\n    if Assigned(ElementHandle) then\r\n    begin\r\n      el := ElementHandle;\r\n      asm\r\n        el.volume = Value/100;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TMultimediaPlayer.UpdateElement;\r\nvar\r\n  el: TJSNode;\r\n  vid: TJSElement;\r\n  nocontrols: string;\r\n\r\n  function booltoattr(b: boolean): string;\r\n  begin\r\n    if b then\r\n      result := 'true'\r\n    else\r\n      result := 'false';\r\n  end;\r\n\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    vid := TJSElement(ElementHandle);\r\n    asm\r\n      vid.controls = this.FControls;\r\n      vid.defaultPlaybackRate = this.FPlaybackRate;\r\n      vid.playbackRate = this.FPlaybackRate;\r\n      vid.muted = this.FMuted;\r\n    end;\r\n\r\n    if FControls then\r\n      ElementHandle.setAttribute('controls','')\r\n    else\r\n      ElementHandle.removeAttribute('controls');\r\n\r\n    if FAutoPlay then\r\n      ElementHandle.setAttribute('autoplay',booltoattr(FAutoplay))\r\n    else\r\n      ElementHandle.removeAttribute('autoplay');\r\n\r\n    if FMuted then\r\n      ElementHandle.setAttribute('muted',booltoattr(FMuted))\r\n    else\r\n      ElementHandle.removeAttribute('muted');\r\n\r\n    if not FContextMenu then\r\n      ElementHandle.setAttribute('oncontextmenu','return false;')\r\n    else\r\n      ElementHandle.removeAttribute('oncontextmenu');\r\n\r\n    ElementHandle.setAttribute('volume',FormatProp('%.2f',[FVolume/100]));\r\n    ElementHandle.setAttribute('src',url);\r\n\r\n    nocontrols := '';\r\n\r\n    if mcFullscreen in HideControls then\r\n      nocontrols := 'nofullscreen ';\r\n\r\n    if mcDownload in HideControls then\r\n      nocontrols := nocontrols + 'nodownload ';\r\n\r\n    if mcRemoteplayback in HideControls then\r\n      nocontrols := nocontrols + 'noremoteplayback ';\r\n\r\n    if mcPlaybackrate in HideControls then\r\n      nocontrols := nocontrols + 'noplaybackrate ';\r\n\r\n    if nocontrols <> '' then\r\n      ElementHandle.setAttribute('controlsList',nocontrols)\r\n    else\r\n      if ElementHandle.hasAttribute('controlsList') then\r\n        ElementHandle.removeAttribute('controlsList');\r\n\r\n    if mcPictureInPicture in HideControls then\r\n      ElementHandle.setAttribute('disablePictureInPicture','')\r\n    else\r\n      if ElementHandle.hasAttribute('disablePictureInPicture') then\r\n        ElementHandle.removeAttribute('disablePictureInPicture');\r\n\r\n//    el := ElementHandle.firstChild;\r\n//    if Assigned(el) then\r\n//    begin\r\n//      (el as TJSElement).setAttribute('src',url);\r\n//      (el as TJSElement).setAttribute('type','video/mp4');\r\n//    end;\r\n  end;\r\nend;\r\n\r\n{$HINTS ON}\r\n\r\n{ TCustomGroupBox }\r\n\r\nfunction TCustomGroupBox.CreateElement: TJSElement;\r\nbegin\r\n//  Result := document.createElement('FIELDSET');\r\n//  FFieldSet := TJSHTMLElement(Result);\r\n\r\n  Result := document.createElement('DIV');\r\n\r\n  FFieldSet := TJSHTMLElement(document.createElement('FIELDSET'));\r\n  Result.appendChild(FFieldSet);\r\n\r\n  FLegend := TJSHTMLElement(document.createElement('LEGEND'));\r\n  FFieldSet.appendChild(FLegend);\r\n  FLegend.innerHTML := Caption;\r\nend;\r\n\r\nprocedure TCustomGroupBox.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  EnablePropagation := True;\r\n  ControlStyle := ControlStyle + [csAcceptsControls];\r\n  Color := clBtnFace;\r\n  FPadding := TPadding.Create;\r\n\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Width := 400;\r\n    Height := 300;\r\n  end;\r\nend;\r\n\r\n\r\ndestructor TCustomGroupBox.Destroy;\r\nbegin\r\n  FPadding.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TCustomGroupBox.InitCSSLibrary(ALibrary: TCSSLibrary);\r\nbegin\r\n  if (ALibrary = cssBootstrap) then\r\n  begin\r\n    ElementLegendClassName := 'h6';\r\n  end;\r\nend;\r\n\r\nprocedure TCustomGroupBox.SetBoundsInt(X, Y, AWidth, AHeight: Integer);\r\nbegin\r\n  inherited;\r\n  SetFieldSetSize;\r\nend;\r\n\r\nprocedure TCustomGroupBox.SetCaption(const Value: string);\r\nbegin\r\n  if FCaption <> Value then\r\n  begin\r\n    FCaption := Value;\r\n    UpdateElementData;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomGroupBox.SetElementLegendClassName(const Value: TElementClassName);\r\nbegin\r\n  if (FElementLegendClassName <> Value) then\r\n  begin\r\n    FElementLegendClassName := Value;\r\n    UpdateElementVisual;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomGroupBox.SetFieldSetSize;\r\nvar\r\n  dx,dy: integer;\r\nbegin\r\n  if Assigned(FFieldSet) then\r\n  begin\r\n    dx := 4;\r\n    dy := 2;\r\n    if (ElementClassName <> '') or (ElementLegendClassName <> '') then\r\n    begin\r\n      dx := 0;\r\n      dy := 0;\r\n    end;\r\n\r\n    if (WidthStyle = ssAbsolute) then\r\n      FFieldSet.style.setProperty('width',IntToStr(Width - dx {- Font.Size * 2})+'px')\r\n    else\r\n      FFieldSet.style.setProperty('width','90%');\r\n\r\n    if HeightStyle = ssAbsolute then\r\n      FFieldSet.style.setProperty('height',IntToStr(Height - dy {- Font.Size * 2})+'px')\r\n    else\r\n      FFieldSet.style.setProperty('height','90%');\r\n  end;\r\nend;\r\n\r\nprocedure TCustomGroupBox.SetPadding(const Value: TPadding);\r\nbegin\r\n  FPadding.Assign(Value);\r\n  Realign;\r\nend;\r\n\r\nprocedure TCustomGroupBox.UpdateElementData;\r\nbegin\r\n  inherited;\r\n  if Assigned(FLegend) then\r\n  begin\r\n    FLegend.innerHTML := Caption;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomGroupBox.UpdateElementVisual;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    ElementHandle.style.removeProperty('background-color');\r\n  end;\r\n\r\n  if Assigned(FLegend) then\r\n  begin\r\n    FLegend['class'] := 'w-auto ' + ElementLegendClassName;\r\n    TJSHTMLElement(FLegend).style.setProperty('float', 'none');\r\n  end;\r\n\r\n  if Assigned(FFieldSet) then\r\n  begin\r\n    FFieldSet.style.setProperty('background-color',ColorToHTML(Color));\r\n    FFieldSet.style.setProperty('overflow', 'visible');\r\n\r\n    SetFieldSetSize;\r\n\r\n    FFieldSet.style.setProperty('white-space', 'nowrap');\r\n\r\n    FFieldSet.style.setProperty('padding-left',inttostr(Padding.Left)+'px');\r\n    FFieldSet.style.setProperty('padding-right',inttostr(Padding.Right)+'px');\r\n    FFieldSet.style.setProperty('padding-top',inttostr(Padding.Top)+'px');\r\n    FFieldSet.style.setProperty('padding-bottom',inttostr(Padding.Bottom)+'px');\r\n\r\n    if Visible then\r\n      FFieldSet.style.setProperty('display', 'inline-block');\r\n\r\n    FFieldSet.style.setProperty('webkit-user-select', 'none');\r\n    FFieldSet.style.setProperty('moz-user-select', 'none');\r\n    FFieldSet.style.setProperty('khtml-user-select', 'none');\r\n    FFieldSet.style.setProperty('ms-user-select', 'none');\r\n    FFieldSet.style.setProperty('user-select', 'none');\r\n    FFieldSet.style.setProperty('border','1px solid '+ ColorToHTML(BorderColor));\r\n  end;\r\nend;\r\n\r\nprocedure TCustomGroupBox.UpdatePadding(var ARect: TRect);\r\nbegin\r\n  ARect.Left := Padding.Left;\r\n  ARect.Top := Padding.Top;\r\n  ARect.Right := ARect.Right - Padding.Right;\r\n  ARect.Bottom := ARect.Bottom - Padding.Bottom;\r\nend;\r\n\r\n{ THTMLContainer }\r\n\r\nfunction THTMLContainer.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('DIV');\r\nend;\r\n\r\nprocedure THTMLContainer.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FHTML := TStringList.Create;\r\n  FHTML.SkipLastLinebreak := true;\r\n  FHTML.OnChange := HTMLChanged;\r\n  FScrollStyle := ssBoth;\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Width := 240;\r\n    Height := 160;\r\n  end;\r\nend;\r\n\r\ndestructor THTMLContainer.Destroy;\r\nbegin\r\n  FHTML.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure THTMLContainer.DoLoaded;\r\nbegin\r\n  if Assigned(OnLoaded) then\r\n    OnLoaded(Self);\r\nend;\r\n\r\nprocedure THTMLContainer.HTMLChanged(Sender: TObject);\r\nbegin\r\n  UpdateElement;\r\nend;\r\n\r\nfunction THTMLContainer.LoadFromURL(AURL: string): TJSPromise;\r\nvar\r\n  wr: TWebHTTPRequest;\r\n\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n    begin\r\n       wr := TWebHttpRequest.Create(self);\r\n       wr.URL := AURL;\r\n\r\n       wr.Execute(procedure(AResponse: string; ARequest: TJSXMLHttpRequest)\r\n         begin\r\n           HTML.Text := AResponse;\r\n           DoLoaded;\r\n           ASuccess(true);\r\n         end,\r\n         procedure(ARequest: TJSXMLHttpRequest)\r\n         begin\r\n           AFailed(false);\r\n         end);\r\n    end);\r\nend;\r\n\r\nprocedure THTMLContainer.SetHTML(const Value: TStringList);\r\nbegin\r\n  FHTML.Assign(Value);\r\nend;\r\n\r\nprocedure THTMLContainer.SetURL(const Value: string);\r\nbegin\r\n  FURL := Value;\r\n  LoadFromURL(FURL);\r\nend;\r\n\r\nprocedure THTMLContainer.UpdateElement;\r\nvar\r\n  TextFound: Boolean;\r\nbegin\r\n  inherited;\r\n\r\n  if not IsUpdating and Assigned(ElementHandle) and Assigned(Container) then\r\n  begin\r\n    if (ElementClassname <> '') then\r\n    begin\r\n      ElementHandle.style.removeProperty('border');\r\n      ElementHandle.style.removeProperty('background-color');\r\n    end\r\n    else\r\n      ElementHandle.style.setProperty('white-space','normal');\r\n\r\n    if Assigned(FHTML) then\r\n    begin\r\n      TextFound := FHTML.Text <> '';\r\n      Container.innerHTML := FHTML.Text;\r\n    end;\r\n\r\n   if not IsLinked and (csDesigning in ComponentState) then\r\n      RenderDesigning(ClassName, Container, Self, (not TextFound));\r\n\r\n   if not IsLinked then\r\n   begin\r\n     SetHTMLElementFont(TJSHTMLElement(ElementHandle), Font, ElementFont = efCSS );\r\n   end;\r\n\r\n    case ScrollStyle of\r\n      ssBoth: ElementHandle.style.setProperty('overflow','auto');\r\n      ssNone: ElementHandle.style.setProperty('overflow','');\r\n      ssVertical: ElementHandle.style.setProperty('overflow-y','auto');\r\n      ssHorizontal: ElementHandle.style.setProperty('overflow-x','auto');\r\n    end;\r\n  end;\r\nend;\r\n\r\n\r\n{ THMTMLForm }\r\n\r\n{$HINTS OFF}\r\nprocedure THTMLForm.BindEvents;\r\nbegin\r\n  inherited;\r\n  GetChildContainer.addEventListener('submit',@DoHandleSubmit);\r\nend;\r\n\r\nfunction  THTMLForm.CheckValidity: boolean;\r\nvar\r\n  el: TJSHTMLElement;\r\n  res: boolean;\r\nbegin\r\n  el := ElementHandle;\r\n  asm\r\n    res = el.checkValidity();\r\n  end;\r\n  Result := res;\r\nend;\r\n\r\nfunction THTMLForm.GetChildContainer: TJSElement;\r\nbegin\r\n  if (csDesigning in ComponentState) then\r\n    Result := ElementHandle\r\n  else\r\n  begin\r\n    if IsLinked then\r\n      Result := ElementHandle\r\n    else\r\n      Result := TJSElement(ElementHandle.firstChild);\r\n  end;\r\nend;\r\n\r\n{$HINTS ON}\r\n\r\nfunction THTMLForm.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('DIV');\r\n  Result.appendChild(document.createElement('FORM'));\r\nend;\r\n\r\nprocedure THTMLForm.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  EnablePropagation := true;\r\n  ControlStyle := ControlStyle + [csAcceptsControls];\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Width := 400;\r\n    Height := 300;\r\n  end;\r\nend;\r\n\r\nfunction THTMLForm.DoHandleSubmit(Event: TJSEvent): boolean;\r\nbegin\r\n  ElementEvent := Event;\r\n  if Assigned(OnSubmit) then\r\n    OnSubmit(Self);\r\n  Result := true;\r\nend;\r\n\r\nprocedure THTMLForm.SetAction(const Value: string);\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  FAction := Value;\r\n\r\n  if not (csDesigning in ComponentState) then\r\n  begin\r\n    if IsLinked then\r\n      el := ElementHandle\r\n    else\r\n      el := GetChildContainer;\r\n\r\n    if Assigned(el) then\r\n      el['action'] := FAction;\r\n  end;\r\nend;\r\n\r\nprocedure THTMLForm.UpdateElement;\r\nbegin\r\n  if not Assigned(ElementHandle) then\r\n    Exit;\r\n\r\n  inherited;\r\n\r\n  if (csDesigning in ComponentState) then\r\n    TJSHTMLElement(ElementHandle).style.setProperty('background','repeating-linear-gradient(45deg,#EEEEEE 10px,#EEEEEE 10px, #ffffff 20px)');\r\nend;\r\n\r\n{ TBadge }\r\n\r\nfunction TBadge.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('SPAN');\r\nend;\r\n\r\nprocedure TBadge.CreateInitialize;\r\nvar\r\n  css: string;\r\nbegin\r\n  inherited;\r\n  Color := clRed;\r\n  FTextColor := clWhite;\r\n  FText := '1';\r\n\r\n  css := 'span.tmsbadge {' +\r\n  '  background: #FF0000;' +\r\n  '  border-radius: 0.8em;' +\r\n  '  -moz-border-radius: 0.8em;' +\r\n  '  -webkit-border-radius: 0.8em;' +\r\n  '  color: #ffffff;' +\r\n  '  display: inline-block;' +\r\n  '  line-height: 1.6em;' +\r\n  '  margin-right: 5px;' +\r\n  '  text-align: center;' +\r\n  '  width: 1.6em;' +\r\n  '}';\r\n\r\n  AddControlStyle(css);\r\n\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Width := 20;\r\n    Height := 20;\r\n  end;\r\nend;\r\n\r\ndestructor TBadge.Destroy;\r\nbegin\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TBadge.SetElementClassName(AValue: string);\r\nbegin\r\n  inherited;\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TBadge.SetText(const Value: string);\r\nbegin\r\n  FText := Value;\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TBadge.SetTextColor(const Value: TColor);\r\nbegin\r\n  FTextColor := Value;\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TBadge.UpdateElement;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    ElementHandle.innerHTML := FText;\r\n\r\n    if ElementClassName = '' then\r\n    begin\r\n      ElementHandle.setAttribute('class','tmsbadge');\r\n      ElementHandle.style.setProperty('color',ColorToHTML(TextColor));\r\n    end\r\n    else\r\n    begin\r\n      ElementHandle.style.removeProperty('color');\r\n    end;\r\n\r\n    ElementHandle.style.removeProperty('width');\r\n    ElementHandle.style.removeProperty('height');\r\n  end;\r\nend;\r\n\r\n{ TAccordion }\r\n\r\nprocedure TAccordion.Collapse(ASection: TAccordionSection);\r\nvar\r\n  el,pnl: TJSHTMLElement;\r\n  LClass: string;\r\nbegin\r\n  el := ASection.CaptionElement;\r\n\r\n  LClass := 'accordionactive_'+Name;\r\n\r\n  if el.classList.contains(LClass) then\r\n    el.classList.remove(LClass);\r\n\r\n  pnl := TJSHTMLElement(el.nextElementSibling);\r\n  pnl.style.setProperty('max-height','0')\r\nend;\r\n\r\nfunction TAccordion.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('DIV');\r\nend;\r\n\r\nprocedure TAccordion.CreateInitialize;\r\nbegin\r\n  inherited;\r\n\r\n  FSections := TAccordionSections.Create(Self);\r\n  FSections.OnChange := SectionsChanged;\r\n  FSections.PropName := 'Sections';\r\n  FStyleRendered := false;\r\n\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Width := 400;\r\n    Height := 300;\r\n  end;\r\nend;\r\n\r\ndestructor TAccordion.Destroy;\r\nbegin\r\n  FSections.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TAccordion.DoAccordionClick(Event: TJSEvent): Boolean;\r\nvar\r\n  el: TJSElement;\r\n  pnl: TJSHTMLElement;\r\n  s: string;\r\n  Allow: boolean;\r\n  ASection: TAccordionSection;\r\n  i,e: integer;\r\nbegin\r\n  asm\r\n    el = Event.srcElement;\r\n  end;\r\n\r\n  Allow := true;\r\n  ASection := nil;\r\n\r\n  if el.hasAttribute('id') then\r\n  begin\r\n    s := el['id'];\r\n    s := Copy(s, pos(Name,s) + Length(Name) + 1, Length(s));\r\n    val(s,i,e);\r\n\r\n    if (e = 0) and (i < Sections.Count) then\r\n      ASection := Sections[i];\r\n  end;\r\n\r\n  if el.classlist.contains('accordionactive_'+Name) then\r\n  begin\r\n    if Assigned(OnCollapsing) then\r\n      OnCollapsing(Self, ASection, Allow);\r\n  end\r\n  else\r\n  begin\r\n    if Assigned(OnExpanding) then\r\n      OnExpanding(Self, ASection, Allow);\r\n  end;\r\n\r\n  if not Allow then\r\n    Exit;\r\n\r\n  el.classList.toggle('accordionactive_'+Name);\r\n\r\n  pnl := TJSHTMLElement(el.nextElementSibling);\r\n\r\n  if Assigned(ASection.Control) then\r\n  begin\r\n    ASection.Control.ElementPosition := epRelative;\r\n    pnl.appendChild(ASection.Control.ElementHandle);\r\n    ASection.Control.Visible := true;\r\n  end;\r\n\r\n  s := pnl.style.getPropertyValue('max-height');\r\n\r\n  if (s <> '0px') and (s <> '') then\r\n  begin\r\n    pnl.style.setProperty('max-height','0')\r\n  end\r\n  else\r\n  begin\r\n    pnl.style.setProperty('max-height', IntToStr(pnl.scrollHeight) + 'px');\r\n  end;\r\n\r\n  if el.classlist.contains('accordionactive_'+Name) then\r\n  begin\r\n    ASection.FExpanded := true;\r\n    if Assigned(OnExpanded) then\r\n      OnExpanded(Self, ASection);\r\n  end\r\n  else\r\n  begin\r\n    ASection.FExpanded := false;\r\n    if Assigned(OnCollapsed) then\r\n      OnCollapsed(Self, ASection);\r\n  end;\r\n\r\n  Result := true;\r\nend;\r\n\r\nprocedure TAccordion.EndUpdate;\r\nbegin\r\n  inherited;\r\n  RenderStyle;\r\n  RenderAccordion;\r\nend;\r\n\r\nprocedure TAccordion.Expand(ASection: TAccordionSection);\r\nvar\r\n  el,pnl: TJSHTMLElement;\r\n  LClass: string;\r\nbegin\r\n  el := ASection.CaptionElement;\r\n\r\n  LClass := 'accordionactive_'+Name;\r\n\r\n  if not el.classList.contains(LClass) then\r\n    el.classList.add(LClass);\r\n\r\n  pnl := TJSHTMLElement(el.nextElementSibling);\r\n  pnl.style.setProperty('max-height', IntToStr(pnl.scrollHeight) + 'px');\r\nend;\r\n\r\nprocedure TAccordion.Loaded;\r\nvar\r\n  i: integer;\r\nbegin\r\n  inherited;\r\n  for i := 0 to Sections.Count - 1 do\r\n  begin\r\n    if Assigned(Sections[i].Control) then\r\n      Sections[i].Control.Visible := false;\r\n  end;\r\nend;\r\n\r\nprocedure TAccordion.RenderAccordion;\r\nvar\r\n  i: integer;\r\n  sp,btn,divel,p: TJSHTMLElement;\r\n  LCaptionElementRec, LPanelElementRec: TJSHTMLElementRecord;\r\n\r\nbegin\r\n  if ElementHandle.childNodes.length > 0 then\r\n  begin\r\n    while Assigned(ElementHandle.firstChild) do\r\n      ElementHandle.removeChild(ElementHandle.firstChild);\r\n\r\n    if ElementClassname <> '' then\r\n    begin\r\n      ElementHandle.style.removeProperty('border');\r\n      ElementHandle.style.removeProperty('background-color');\r\n    end;\r\n  end;\r\n\r\n  sp := TJSHTMLElement(document.createElement('SPAN'));\r\n  ElementHandle.appendChild(sp);\r\n\r\n  for i := 0 to FSections.Count - 1 do\r\n  begin\r\n    btn := TJSHTMLElement(document.createElement('BUTTON'));\r\n    btn.innerHTML := FSections.Items[i].Caption;\r\n    btn['id'] := Name + '_' + inttostr(i);\r\n    btn.setAttribute('class','accordion_'+Name);\r\n    if ElementSectionClassName <> '' then\r\n      btn.classList.Add(ElementSectionClassName);\r\n\r\n    btn.addEventListener('click',@DoAccordionClick);\r\n    divel := TJSHTMLElement(document.createElement('DIV'));\r\n    divel.setAttribute('class','accordionpanel_'+Name);\r\n    p := TJSHTMLElement(document.createElement('P'));\r\n    p.style.SetProperty('user-select','text');\r\n    if ElementContentClassName <> '' then\r\n      p.setAttribute('class',ElementContentClassName);\r\n\r\n    p.innerHTML := FSections[i].Content;\r\n\r\n    sp.appendChild(btn);\r\n    sp.appendChild(divel);\r\n    divel.appendChild(p);\r\n\r\n    if Assigned(OnRenderSection) then\r\n    begin\r\n      LCaptionElementRec.element := btn;\r\n      LPanelElementRec.element := p;\r\n      OnRenderSection(Self, FSections.Items[i], LCaptionElementRec, LPanelElementRec);\r\n    end;\r\n  end;\r\n\r\n  if not IsLinked and (csDesigning in ComponentState) then\r\n    RenderDesigning(Classname, Container, Self, (FSections.Count = 0));\r\nend;\r\n\r\nprocedure TAccordion.RenderStyle;\r\nvar\r\n  css: string;\r\nbegin\r\n  if FStyleRendered then\r\n    Exit;\r\n\r\n  FStyleRendered := true;\r\n\r\n  css :=\r\n  '.accordion_'+ Name +' {'+\r\n  'background-color: #eee;'+\r\n  'color: #444;'+\r\n  'cursor: pointer;'+\r\n  'padding: 18px;'+\r\n  'width: 100%;'+\r\n  'text-align: left;'+\r\n  'border: none;' +\r\n  'outline: none;' +\r\n  'transition: 0.4s;'+\r\n  '}' +#13#10 +\r\n\r\n  '.accordionactive_'+Name+', .accordion_'+Name+'::hover {'+\r\n  'background-color: #ccc;'+\r\n  '}' +#13#10 +\r\n\r\n  '.accordionactive_'+Name+'::before {'+\r\n  'transform: rotate(90deg);'+\r\n  '}' +#13#10 +\r\n\r\n  '.accordion_'+Name+'::before {'+\r\n  '  content: \"\\25B6\";'+\r\n  '  font-size: 13px;'+\r\n//  '  color: #777;'+\r\n  '  display: inline-block;'+\r\n  '  margin-right: 5px;'+\r\n  '}' +#13#10 +\r\n\r\n  '.accordionpanel_'+Name+' {'+\r\n  'padding: 0 18px;'+\r\n//  'background-color: white;'+\r\n  'max-height: 0;'+\r\n  'overflow: hidden;'+\r\n  'transition: max-height 0.2s ease-out;'+\r\n  '}';\r\n\r\n  AddInstanceStyle(css);\r\nend;\r\n\r\nprocedure TAccordion.SectionsChanged(Sender: TObject);\r\nbegin\r\n  if not IsUpdating then\r\n  begin\r\n    RenderStyle;\r\n    RenderAccordion;\r\n  end;\r\nend;\r\n\r\nprocedure TAccordion.SetElementClassName(AValue: string);\r\nbegin\r\n  inherited;\r\n  if ElementClassname <> '' then\r\n    RenderAccordion;\r\nend;\r\n\r\nprocedure TAccordion.SetSections(const Value: TAccordionSections);\r\nbegin\r\n  FSections.Assign(Value);\r\nend;\r\n\r\nprocedure TAccordion.UpdateElement;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TAccordion.UpdateElementVisual;\r\nbegin\r\n  inherited;\r\n  ElementHandle.style.setProperty('overflow-y','auto');\r\n  ElementHandle.style.setProperty('overflow-x','hidden');\r\nend;\r\n\r\n{ TAccordionSections }\r\n\r\nfunction TAccordionSections.Add: TAccordionSection;\r\nbegin\r\n  Result := TAccordionSection(inherited Add);\r\nend;\r\n\r\nconstructor TAccordionSections.Create(AOwner: TComponent);\r\nbegin\r\n  inherited Create(AOwner, TAccordionSection);\r\nend;\r\n\r\nfunction TAccordionSections.GetItem(Index: integer): TAccordionSection;\r\nbegin\r\n  Result := TAccordionSection(inherited Items[Index]);\r\nend;\r\n\r\nfunction TAccordionSections.Insert(Index: integer): TAccordionSection;\r\nbegin\r\n  Result := TAccordionSection(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TAccordionSections.SetItem(Index: integer;\r\n  const Value: TAccordionSection);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nprocedure TAccordionSections.Update(Item: TCollectionItem);\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(OnChange) and (UpdateCount = 0) then\r\n    OnChange(Self);\r\nend;\r\n\r\n{ TResponsiveGridPanel }\r\n\r\nprocedure TResponsiveGridPanel.AddControl(AControl: TWinControl);\r\nbegin\r\n  FControlCollection.Add.Control := AControl;\r\n  AControl.Parent := Self;\r\nend;\r\n\r\nprocedure TResponsiveGridPanel.AlignControls(AControl: TControl;\r\n  var Rect: TRect);\r\nbegin\r\n  inherited;\r\n  Resize;\r\nend;\r\n\r\nprocedure TResponsiveGridPanel.BindEvents;\r\nbegin\r\n  inherited;\r\n  FResizePtr := @HandleResize;\r\n  document.defaultView.addEventListener('resize', FResizePtr);\r\nend;\r\n\r\nconstructor TResponsiveGridPanel.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FResizePtr := nil;\r\nend;\r\n\r\nfunction TResponsiveGridPanel.CreateElement: TJSElement;\r\nbegin\r\n  if (csDesigning in ComponentState) and (ControlCollection.Count = 0) then\r\n  begin\r\n    Result := document.createElement('DIV');\r\n    FLabel := TJSHTMLElement(document.createElement('DIV'));\r\n    FLabel.innerHTML := ClassName;\r\n    BorderStyle := bsSingle;\r\n    FLabel['align'] := 'center';\r\n    FLabel.style.setProperty('border','1px solid silver');\r\n    FLabel.style.setProperty('vertical-align','middle');\r\n    FLabel.style.setProperty('display','table-cell');\r\n    Result.appendChild(FLabel);\r\n  end\r\n  else\r\n  begin\r\n    Result := document.createElement('DIV');\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveGridPanel.CreateInitialize;\r\nvar\r\n  li: TResponsiveLayoutItem;\r\nbegin\r\n  inherited;\r\n  FDesignTime := (csDesigning in ComponentState) and not\r\n    ((csReading in Owner.ComponentState) or (csLoading in Owner.ComponentState));\r\n\r\n  EnablePropagation := true;\r\n  ControlStyle := ControlStyle + [csAcceptsControls];\r\n  FControlCollection := TControlCollection.Create(Self);\r\n  FControlCollection.PropName := 'ControlCollection';\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Width := 400;\r\n    Height := 300;\r\n  end;\r\n\r\n  FLabel := nil;\r\n  FActiveLayoutItem := nil;\r\n  FLayout := TResponsiveLayout.Create(Self);\r\n  FLayout.OnChange := LayoutChanged;\r\n  FLayout.PropName := 'Layout';\r\n\r\n  if FDesignTime then\r\n  begin\r\n    li := FLayout.Add;\r\n    li.Description := 'Smartphone';\r\n    li.Width := 575;\r\n    li.Style := '1fr';\r\n\r\n    li := FLayout.Add;\r\n    li.Description := 'Tablet';\r\n    li.Width := 768;\r\n    li.Style := '1fr 1fr';\r\n\r\n    li := FLayout.Add;\r\n    li.Description := 'Desktop';\r\n    li.Width := 991;\r\n    li.Style := '1fr 1fr 1fr';\r\n\r\n    li := FLayout.Add;\r\n    li.Description := 'Large Desktop';\r\n    li.Width := 1199;\r\n    li.Style := '1fr 1fr 1fr 1fr';\r\n\r\n  end;\r\nend;\r\n\r\ndestructor TResponsiveGridPanel.Destroy;\r\nbegin\r\n  FControlCollection.Free;\r\n  FLayout.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TResponsiveGridPanel.EndUpdate;\r\nbegin\r\n  inherited;\r\n  UpdateControls;\r\nend;\r\n\r\nprocedure TResponsiveGridPanel.GetChildren(Proc: TGetChildProc;\r\n  Root: TComponent);\r\n//var\r\n//  i: integer;\r\nbegin\r\n  inherited;\r\n//  for i := 0 to ControlCollection.Count - 1 do\r\n//  begin\r\n//    if Assigned(ControlCollection.Items[i].Control) then\r\n//      Proc(ControlCollection.Items[i].Control);\r\n//  end;\r\nend;\r\n\r\nfunction TResponsiveGridPanel.GridElementCount: integer;\r\nvar\r\n  i: integer;\r\n  el: TJSHTMLElement;\r\nbegin\r\n  Result := 0;\r\n\r\n  for i := 0 to ElementHandle.childElementCount - 1 do\r\n  begin\r\n    el := TJSHTMLElement(ElementHandle.children[i]);\r\n    if (el['data'] = 'grid') then\r\n      inc(Result);\r\n  end;\r\nend;\r\n\r\nfunction TResponsiveGridPanel.HandleResize(Event: TEventListenerEvent): boolean;\r\nvar\r\n  w: integer;\r\nbegin\r\n  if (csDestroying in ComponentState) then\r\n    Exit;\r\n\r\n  Result := true;\r\n  w := Width;\r\n  if FOldWidth <> w then\r\n  begin\r\n    FOldWidth  := w;\r\n    Resize;\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveGridPanel.LayoutChanged(Sender: TObject);\r\nbegin\r\n  inherited;\r\n\r\n  if IsUpdating or (csLoading in ComponentState) then\r\n    Exit;\r\n\r\n  UpdateControls;\r\nend;\r\n\r\nprocedure TResponsiveGridPanel.Loaded;\r\nbegin\r\n  inherited;\r\n  UpdateControls;\r\nend;\r\n\r\nprocedure TResponsiveGridPanel.Notification(AComponent: TComponent;\r\n  Operation: TOperation);\r\nvar\r\n  i: integer;\r\n  upd: boolean;\r\n  el: TJSHTMLElement;\r\n\r\nbegin\r\n  upd := false;\r\n\r\n  if (Operation = opRemove) and not (csDestroying in ComponentState) then\r\n  begin\r\n    for i := ControlCollection.Count - 1 downto 0 do\r\n    begin\r\n      if (ControlCollection.Items[i].Control = AComponent) then\r\n      begin\r\n        el := TJSHTMLElement(ElementHandle.children[i]);\r\n        while el.childElementCount > 0 do\r\n          el.removeChild(el.firstChild);\r\n\r\n        ControlCollection.Items[i].Control := nil;\r\n        ControlCollection.Delete(i);\r\n        upd := true;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  inherited;\r\n\r\n  if upd then\r\n    UpdateControls;\r\nend;\r\n\r\nprocedure TResponsiveGridPanel.RegisterParent(AValue: TControl);\r\nbegin\r\n  inherited;\r\n\r\n  if not IsUpdating and not (csLoading in ComponentState) then\r\n  begin\r\n    ControlCollection.Add.Control := TWinControl(AValue);\r\n    UpdateControls;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TResponsiveGridPanel.RemoveControl(AControl: TWinControl);\r\nvar\r\n  i: integer;\r\n\r\nbegin\r\n  for i := 0 to FControlCollection.Count - 1 do\r\n  begin\r\n    if FControlCollection.Items[i].Control =  AControl then\r\n    begin\r\n      FControlCollection.Delete(i);\r\n      break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveGridPanel.RemoveControls;\r\nvar\r\n  i: integer;\r\nbegin\r\n  for i := FControlCollection.Count - 1 downto 0 do\r\n  begin\r\n    FControlCollection.Delete(i);\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveGridPanel.Resize;\r\nbegin\r\n  inherited;\r\n  SetResponsiveStyle;\r\nend;\r\n\r\nprocedure TResponsiveGridPanel.SetControlCollection(\r\n  const Value: TControlCollection);\r\nbegin\r\n  FControlCollection.Assign(Value);\r\nend;\r\n\r\nprocedure TResponsiveGridPanel.SetResponsiveStyle;\r\nvar\r\n  li: TResponsiveLayoutItem;\r\n  w: integer;\r\n  lGap: string;\r\nbegin\r\n  if not Assigned(Layout) then\r\n    Exit;\r\n\r\n  if (csDestroying in ComponentState) then\r\n    Exit;\r\n\r\n  if not Assigned(ElementHandle) then\r\n    Exit;\r\n\r\n  w := Width;\r\n\r\n  li := Layout.GetLayoutForWidth(w);\r\n\r\n  if Assigned(li) then\r\n  begin\r\n    if li.StyleType = gTemplateColumns then\r\n    begin\r\n      ElementHandle.style.setProperty('grid-template-columns', li.Style);\r\n      ElementHandle.style.removeProperty('grid-template-rows');\r\n    end\r\n    else\r\n    begin\r\n      ElementHandle.style.removeProperty('grid-template-columns');\r\n      ElementHandle.style.setProperty('grid-template-rows', li.Style);\r\n    end;\r\n\r\n    lGap := li.RowGap;\r\n    if lGap.IsNumber then\r\n      lGap := lGap + 'px';\r\n\r\n    ElementHandle.style.setProperty('grid-row-gap', lGap);\r\n\r\n    lGap := li.ColumnGap;\r\n    if lGap.IsNumber then\r\n      lGap := lGap + 'px';\r\n\r\n    ElementHandle.style.setProperty('grid-column-gap', lGap);\r\n\r\n    ElementHandle.style.setProperty('padding-left', inttostr(li.Margins.Left)+'px');\r\n    ElementHandle.style.setProperty('padding-top', inttostr(li.Margins.Top)+'px');\r\n    ElementHandle.style.setProperty('padding-right', inttostr(li.Margins.Right)+'px');\r\n    ElementHandle.style.setProperty('padding-bottom', inttostr(li.Margins.Bottom)+'px');\r\n  end;\r\n\r\n  if li <> FActiveLayoutItem then\r\n  begin\r\n    FActiveLayoutItem := li;\r\n    if Assigned(OnLayoutChange) then\r\n      OnLayoutChange(Self, FActiveLayoutItem);\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveGridPanel.UnbindEvents;\r\nbegin\r\n  inherited;\r\n  if Assigned(FResizePtr) then\r\n  begin\r\n    document.defaultView.removeEventListener('resize', FResizePtr);\r\n    FResizePtr := nil;\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveGridPanel.UpdateControls;\r\nvar\r\n  i,j,k: integer;\r\n  el,sp: TJSHTMLElement;\r\n  fragment: TJSDocumentFragment;\r\n  control: TControl;\r\nbegin\r\n  if (csLoading in ComponentState) then\r\n    Exit;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  if not Assigned(ElementHandle) then\r\n    Exit;\r\n\r\n  if (ControlCollection.Count > 0) and Assigned(FLabel) then\r\n  begin\r\n    ElementHandle.removeChild(FLabel);\r\n    FLabel := nil;\r\n    ElementHandle.style.setProperty('display','grid');\r\n  end;\r\n\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    for i := ElementHandle.childElementCount - 1 downto 0 do\r\n    begin\r\n      if TJSElement(ElementHandle.children[i]).tagName = 'SPAN' then\r\n        ElementHandle.removeChild(ElementHandle.children[i]);\r\n    end;\r\n\r\n    for i := 0 to Layout.Count - 1 do\r\n    begin\r\n      sp := TJSHTMLElement(document.createElement('SPAN'));\r\n      sp.style.setProperty('position','absolute');\r\n      sp.style.setProperty('width','4px');\r\n      sp.style.setProperty('height','12px');\r\n      sp.style.setProperty('background-color','red');\r\n      sp.style.setProperty('top','0px');\r\n      sp.style.setProperty('left', IntToStr(Layout.Items[i].Width)+'px');\r\n      ElementHandle.appendChild(sp);\r\n    end;\r\n  end;\r\n\r\n  for i := 0 to ControlCollection.Count - 1 do\r\n  begin\r\n    if GridElementCount <= i then\r\n    begin\r\n      el := TJSHTMLElement(document.createElement('DIV'));\r\n      el['data'] := 'grid';\r\n\r\n      if (csDesigning in ComponentState) then\r\n        el.style.setProperty('border','1px silver dotted');\r\n\r\n      ElementHandle.appendChild(el);\r\n    end\r\n    else\r\n    begin\r\n      k := 0;\r\n      for j := 0 to ElementHandle.ChildElementCount - 1 do\r\n      begin\r\n        el := TJSHTMLElement(ElementHandle.children[j]);\r\n        if (el['data'] = 'grid') then\r\n        begin\r\n          if (k = i) then\r\n            break\r\n          else\r\n            inc(k);\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    fragment := document.createDocumentFragment();\r\n    control := ControlCollection.Items[i].Control;\r\n    if Assigned(control) then\r\n    begin\r\n      control.ElementPosition := epRelative;\r\n      control.ChildOrder := -1;\r\n      if Assigned(control.ElementHandle) then\r\n      begin\r\n        fragment.appendChild(control.ElementHandle);\r\n        el.appendChild(fragment);\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TResponsiveGridPanel.UpdateElement;\r\nbegin\r\n  inherited;\r\n\r\n  if (csDestroying in ComponentState) then\r\n    Exit;\r\n\r\n  if not Assigned(ElementHandle) then\r\n    Exit;\r\n\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    if (ControlCollection.Count = 0) then\r\n    begin\r\n      TJSHTMLElement(ElementHandle).style.setProperty('display','table');\r\n      if (Color = clNone) then\r\n        TJSHTMLElement(ElementHandle).style.setProperty('background-color','silver');\r\n    end;\r\n  end;\r\n\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    ElementHandle.style.setProperty('border','1px silver dotted');\r\n  end;\r\n\r\n  ElementHandle.style.setProperty('display','grid');\r\n  SetResponsiveStyle;\r\nend;\r\n\r\n{ TLayout }\r\n\r\nfunction TResponsiveLayout.Add: TResponsiveLayoutItem;\r\nbegin\r\n  Result := TResponsiveLayoutItem(inherited Add);\r\nend;\r\n\r\nfunction TResponsiveLayout.Add(AWidth: integer;\r\n  AStyle: string): TResponsiveLayoutItem;\r\nbegin\r\n  Result := Add;\r\n  Result.Width := AWidth;\r\n  Result.Style := AStyle;\r\nend;\r\n\r\nconstructor TResponsiveLayout.Create(AOwner: TComponent);\r\nbegin\r\n  inherited Create(AOwner, TResponsiveLayoutItem);\r\nend;\r\n\r\nfunction TResponsiveLayout.GetItem(Index: integer): TResponsiveLayoutItem;\r\nbegin\r\n  Result := TResponsiveLayoutItem(inherited Items[Index]);\r\nend;\r\n\r\nfunction TResponsiveLayout.GetLayoutForWidth(w: integer): TResponsiveLayoutItem;\r\nvar\r\n  i,d,j,l,mx: integer;\r\n\r\nbegin\r\n  Result := nil;\r\n  if Count = 0 then\r\n    Exit;\r\n\r\n  d := $FFFF;\r\n  j := -1;\r\n  mx := 0;\r\n\r\n  for i := 0 to Count - 1 do\r\n  begin\r\n    if Items[i].Width > mx then\r\n    begin\r\n      mx := Items[i].Width;\r\n      l := i;\r\n    end;\r\n\r\n    if w < Items[i].Width then\r\n    begin\r\n      if Items[i].Width - w < d then\r\n      begin\r\n        d := Items[i].Width - w;\r\n        j := i;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  if j = -1 then\r\n    j := l;\r\n\r\n  Result := Items[j];\r\nend;\r\n\r\nfunction TResponsiveLayout.Insert(Index: integer): TResponsiveLayoutItem;\r\nbegin\r\n  Result := TResponsiveLayoutItem(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TResponsiveLayout.SetItem(Index: integer; const Value: TResponsiveLayoutItem);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nprocedure TResponsiveLayout.Update(Item: TCollectionItem);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\n{ TResponsiveLayoutItem }\r\n\r\nprocedure TResponsiveLayoutItem.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TResponsiveLayoutItem) then\r\n  begin\r\n    FColumnGap := (Source as TResponsiveLayoutItem).ColumnGap;\r\n    FDescription := (Source as TResponsiveLayoutItem).Description;\r\n    FRowGap := (Source as TResponsiveLayoutItem).RowGap;\r\n    FWidth := (Source as TResponsiveLayoutItem).Width;\r\n    FStyle := (Source as TResponsiveLayoutItem).Style;\r\n    FStyleType := (Source as TResponsiveLayoutItem).StyleType;\r\n    FTag := (Source as TResponsiveLayoutItem).Tag;\r\n    FMargins.Assign((Source as TResponsiveLayoutItem).Margins);\r\n  end;\r\nend;\r\n\r\nconstructor TResponsiveLayoutItem.Create(AOwner: TCollection);\r\nbegin\r\n  FMargins := TMargins.Create;\r\n  FMargins.Left := 0;\r\n  FMargins.Top := 0;\r\n  FMargins.Right := 0;\r\n  FMargins.Bottom := 0;\r\n\r\n  inherited;\r\n\r\nend;\r\n\r\ndestructor TResponsiveLayoutItem.Destroy;\r\nbegin\r\n  FMargins.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TResponsiveLayoutItem.SetColumnGap(const Value: string);\r\nbegin\r\n  if (FColumnGap <> Value) then\r\n  begin\r\n    FColumnGap := Value;\r\n    TResponsiveLayout(Collection).Update(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveLayoutItem.SetMargins(const Value: TMargins);\r\nbegin\r\n  FMargins.Assign(Value);\r\n  TResponsiveLayout(Collection).Update(Self);\r\nend;\r\n\r\nprocedure TResponsiveLayoutItem.SetRowGap(const Value: string);\r\nbegin\r\n  if (FRowGap <> Value) then\r\n  begin\r\n    FRowGap := Value;\r\n    TResponsiveLayout(Collection).Update(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveLayoutItem.SetStyle(const Value: string);\r\nbegin\r\n  if (FStyle <> Value) then\r\n  begin\r\n    FStyle := Value;\r\n    TResponsiveLayout(Collection).Update(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveLayoutItem.SetStyleType(const Value: TGridStyle);\r\nbegin\r\n  if (FStyleType <> Value) then\r\n  begin\r\n    FStyleType := Value;\r\n    TResponsiveLayout(Collection).Update(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveLayoutItem.SetWidth(const Value: integer);\r\nbegin\r\n  if (FWidth <> Value) then\r\n  begin\r\n    FWidth := Value;\r\n    TResponsiveLayout(Collection).Update(Self);\r\n  end;\r\nend;\r\n\r\n{ TAccordionSection }\r\n\r\nprocedure TAccordionSection.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TAccordionSection) then\r\n  begin\r\n    FCaption := (Source as TAccordionSection).Caption;\r\n    FContent := (Source as TAccordionSection).Content;\r\n    FTag := (Source as TAccordionSection).Tag;\r\n  end;\r\nend;\r\n\r\nfunction TAccordionSection.CaptionElement: TJSHTMLElement;\r\nbegin\r\n  Result := TJSHTMLElement(document.getElementById(((Collection as TAccordionSections).Owner as TAccordion).Name+'_'+inttostr(Index)));\r\nend;\r\n\r\nfunction TAccordionSection.PanelElement: TJSHTMLElement;\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  el := CaptionElement;\r\n  Result := TJSHTMLElement(el.nextElementSibling);\r\nend;\r\n\r\nprocedure TAccordionSection.SetCaption(const Value: string);\r\nbegin\r\n  FCaption := Value;\r\n  (Collection as TAccordionSections).Update(Self);\r\nend;\r\n\r\nprocedure TAccordionSection.SetContent(const Value: string);\r\nbegin\r\n  FContent := Value;\r\n  (Collection as TAccordionSections).Update(Self);\r\nend;\r\n\r\nprocedure TAccordionSection.SetExpanded(const Value: boolean);\r\nbegin\r\n  if (FExpanded <> Value) then\r\n  begin\r\n    FExpanded := Value;\r\n\r\n    if FExpanded then\r\n      ((Collection as TAccordionSections).Owner as TAccordion).Expand(Self)\r\n    else\r\n      ((Collection as TAccordionSections).Owner as TAccordion).Collapse(Self);\r\n  end;\r\nend;\r\n\r\n{ TImageZoomControl }\r\n\r\nfunction TImageZoomControl.CreateElement: TJSElement;\r\nbegin\r\n  Result := inherited;\r\nend;\r\n\r\nprocedure TImageZoomControl.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FAppearance := TImageZoomAppearance.Create(Self);\r\n  FPictureZoom := TURLPicture.Create;\r\n  FPictureZoom.OnChange := PictureZoomChanged;\r\n  FPictureZoom.OnDataChange := PictureZoomDataChanged;\r\n  FPictureZoomDataURL := '';\r\n  FZoomBkgColor := clBlack;\r\n  FZoomBkgOpacity := 0.9;\r\n\r\n  FStyle := document.createElement('STYLE');\r\n  FOverlay := document.createElement('DIV');\r\n  document.body.appendChild(FStyle);\r\n  document.body.appendChild(FOverlay);\r\n\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Width := 100;\r\n    Height := 75;\r\n  end;\r\nend;\r\n\r\ndestructor TImageZoomControl.Destroy;\r\nbegin\r\n  FAppearance.Free;\r\n  FPictureZoom.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TImageZoomControl.PictureZoomChanged(Sender: TObject);\r\nbegin\r\n  SetURLZoom(PictureZoom.FileName);\r\n  FPictureZoomDataURL := '';\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TImageZoomControl.PictureZoomDataChanged(Sender: TObject);\r\nbegin\r\n  FPictureZoomDataURL := 'data:image/png;base64,' + HexImageDecodeAsBase64(PictureZoom.Data);\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TImageZoomControl.SetPictureZoom(const Value: TURLPicture);\r\nbegin\r\n  FPictureZoom.Assign(Value);\r\nend;\r\n\r\nprocedure TImageZoomControl.SetURLZoom(const Value: string);\r\nbegin\r\n  if FURLZoom <> Value then\r\n  begin\r\n    FURLZoom := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TImageZoomControl.UpdateElement;\r\nvar\r\n  PopupImage: string;\r\n  Popup: TJSElement;\r\n  r,g,b: byte;\r\n  l: longint;\r\n  op: string;\r\nbegin\r\n  inherited;\r\n\r\n  if not Assigned(ElementHandle) then\r\n    Exit;\r\n\r\n  if Assigned(FOverlay) then\r\n  begin\r\n    ElementHandle.setAttribute('onClick', 'document.getElementById(\"' + Name + 'myModal\").style.display = \"block\"');\r\n\r\n    if FPictureZoomDataURL <> '' then\r\n      PopupImage := FPictureZoomDataURL\r\n    else\r\n      PopupImage := URLZoom;\r\n\r\n    if PopupImage = '' then\r\n      PopupImage := URL;\r\n\r\n    if IsLinked and (PopupImage = '') then\r\n    begin\r\n      PopupImage := ElementHandle['src'];\r\n    end;\r\n\r\n    op := floattostr(ZoomBkgOpacity);\r\n    stringreplace(op,',','.',[rfReplaceAll]);\r\n    l := ColorToRGB(ZoomBkgColor);\r\n    r := GetRValue(l);\r\n    g := GetGValue(l);\r\n    b := GetBValue(l);\r\n\r\n    FStyle.innerHTML := '.' + Name + 'modal-overlay {'#13\r\n    + '  display: none;'#13\r\n    + '  position: fixed;'#13\r\n    + '  z-index: 99999999;'#13\r\n    + '  width: 100%;'#13\r\n    + '  height: 100%;'#13\r\n    + '  overflow: hidden;'#13\r\n    + '  top: 50%;'#13\r\n    + '  left: 50%;'#13\r\n    + '  -ms-transform: translate(-50%, -50%);'#13\r\n    + '  transform: translate(-50%, -50%);'#13\r\n    + '  background-color: rgba('+r.ToString+','+g.ToString+','+b.ToString+',0.2);'#13\r\n    + '}'#13\r\n\r\n    + '.' + Name + 'modal {'#13\r\n    + '  display: block;'#13\r\n    + '  position: absolute;'#13\r\n    + '  z-index: 99999999;'#13\r\n    + '  width: ' + IntToStr(Appearance.WidthPercent) + '%;'#13\r\n    + '  height: ' + IntToStr(Appearance.HeightPercent) + '%;'#13\r\n    + '  overflow: hidden;'#13\r\n    + '  top: 50%;'#13\r\n    + '  left: 50%;'#13\r\n    + '  -ms-transform: translate(-50%, -50%);'#13\r\n    + '  transform: translate(-50%, -50%);'#13\r\n    + '  background-color: rgba('+r.ToString+','+g.ToString+','+b.ToString+','+op+');'#13\r\n    + '}'#13\r\n\r\n    + '.' + Name + 'modal-content {'#13\r\n    + '  display: block;'#13\r\n    + '  margin: 0;'#13\r\n    + '  position: absolute;'#13\r\n    + '  top: 50%;'#13\r\n    + '  left: 50%;'#13\r\n    + '  -ms-transform: translate(-50%, -50%);'#13\r\n    + '  transform: translate(-50%, -50%);'#13\r\n    + '  max-width: 100%;'#13\r\n    + '  max-height: 100%;'#13\r\n    + '}'#13\r\n\r\n    + '.' + Name + 'close {'#13\r\n    + '  z-index: 99999999;'#13\r\n    + '  position: absolute;'#13\r\n    + '  top: 15px;'#13\r\n    + '  right: 35px;'#13\r\n    + '  color: #f1f1f1;'#13\r\n    + '  font-size: 40px;'#13\r\n    + '  font-weight: bold;'#13\r\n    + '  transition: 0.3s;'#13\r\n    + '}'#13\r\n\r\n    + '.' + Name + 'close:hover,'#13\r\n    + '.' + Name + 'close:focus {'#13\r\n    + '  color: #bbb;'#13\r\n    + '  text-decoration: none;'#13\r\n    + '  cursor: pointer;'#13\r\n    + '}'#13\r\n\r\n    + '@media only screen and (max-width: 769px) {'#13\r\n    + '\t.' + Name + 'modal {'#13\r\n    + '  width: ' + IntToStr(Appearance.ResponsiveWidthPercent) + '%;'#13\r\n    + '  height: ' + IntToStr(Appearance.ResponsiveHeightPercent) + '%;'#13\r\n    + '\t}'#13\r\n    + '}'#13;\r\n\r\n    FOverlay.setAttribute('onClick', 'this.style.display = \"none\";');\r\n    FOverlay.setAttribute('id', Name + 'myModal');\r\n    FOverlay.setAttribute('class', Name + 'modal-overlay');\r\n\r\n    while Assigned(FOverlay.firstChild) do\r\n      FOverlay.removeChild(FOverlay.firstChild);\r\n\r\n    Popup := document.createElement('DIV');\r\n    Popup.setAttribute('class', Name + 'modal');\r\n    Popup.innerHTML := '<span class=\"' + Name + 'close\">&times;</span>'\r\n    + '<img class=\"' + Name + 'modal-content\" src=\"' + PopupImage + '\">';\r\n\r\n    FOverlay.innerHTML := '';\r\n    FOverlay.AppendChild(Popup);\r\n  end;\r\nend;\r\n\r\n{ TImageZoomAppearance }\r\n\r\nprocedure TImageZoomAppearance.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if (Source is TImageZoomAppearance) then\r\n  begin\r\n    FHeightPercent := (Source as TImageZoomAppearance).HeightPercent;\r\n    FWidthPercent := (Source as TImageZoomAppearance).WidthPercent;\r\n    FResponsiveHeightPercent := (Source as TImageZoomAppearance).ResponsiveHeightPercent;\r\n    FResponsiveWidthPercent := (Source as TImageZoomAppearance).ResponsiveWidthPercent;\r\n    FResponsiveMaxWidth := (Source as TImageZoomAppearance).ResponsiveMaxWidth;\r\n  end;\r\nend;\r\n\r\nconstructor TImageZoomAppearance.Create(AOwner: TImageZoomControl);\r\nbegin\r\n  FHeightPercent := 100;\r\n  FWidthPercent := 100;\r\n  FResponsiveHeightPercent := 100;\r\n  FResponsiveWidthPercent := 100;\r\n  FResponsiveMaxWidth := 768;\r\n  FOwner := AOwner;\r\nend;\r\n\r\ndestructor TImageZoomAppearance.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nfunction TImageZoomAppearance.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nprocedure TImageZoomAppearance.SetHeightPercent(const Value: Integer);\r\nbegin\r\n  if (FHeightPercent <> Value) and (FHeightPercent <= 100) then\r\n  begin\r\n    FHeightPercent := Value;\r\n    FOwner.UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TImageZoomAppearance.SetResponsiveHeightPercent(const Value: Integer);\r\nbegin\r\n  if (FResponsiveHeightPercent <> Value) and (FResponsiveHeightPercent <= 100) then\r\n  begin\r\n    FResponsiveHeightPercent := Value;\r\n    FOwner.UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TImageZoomAppearance.SetResponsiveMaxWidth(const Value: Integer);\r\nbegin\r\n  if (FResponsiveMaxWidth <> Value) and (FResponsiveMaxWidth >= 0) then\r\n  begin\r\n    FResponsiveMaxWidth := Value;\r\n    FOwner.UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TImageZoomAppearance.SetResponsiveWidthPercent(const Value: Integer);\r\nbegin\r\n  if (FResponsiveWidthPercent <> Value) and (FResponsiveWidthPercent <= 100) then\r\n  begin\r\n    FResponsiveWidthPercent := Value;\r\n    FOwner.UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TImageZoomAppearance.SetWidthPercent(const Value: Integer);\r\nbegin\r\n  if (FWidthPercent <> Value) and (FWidthPercent <= 100) then\r\n  begin\r\n    FWidthPercent := Value;\r\n    FOwner.UpdateElement;\r\n  end;\r\nend;\r\n\r\n{ TCustomLookupComboBox }\r\n\r\nprocedure TCustomLookupComboBox.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FLookupValues := TLookupValues.Create(Self);\r\n  FLookupValues.PropName := 'LookupValues';\r\n  FLookupValues.OnChange := ValuesChanged;\r\nend;\r\n\r\ndestructor TCustomLookupComboBox.Destroy;\r\nbegin\r\n  FLookupValues.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TCustomLookupComboBox.DoUpdateList;\r\nvar\r\n  i: integer;\r\n  opt: TJSElement;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  for i := TJSHTMLSelectElement(Container).options.length - 1 downto 0 do\r\n    TJSHTMLSelectElement(Container).remove(i);\r\n\r\n  AddTextHint;\r\n\r\n  for i := 0 to FLookupValues.Count - 1 do\r\n  begin\r\n    opt := document.createElement('OPTION');\r\n    opt['value'] := TLookupValueItem(FLookupValues.Items[i]).Value;\r\n    opt.innerHTML := TLookupValueItem(FLookupValues.Items[i]).DisplayText;\r\n    Container.appendChild(opt);\r\n  end;\r\n\r\n  UpdateElement;\r\nend;\r\n\r\nfunction TCustomLookupComboBox.GetDisplayText: string;\r\nbegin\r\n  Result := '';\r\n  if ItemIndex >= 0 then\r\n    Result := FLookupValues[ItemIndex].DisplayText;\r\nend;\r\n\r\nfunction TCustomLookupComboBox.GetValue: string;\r\nbegin\r\n  Result := '';\r\n  if ItemIndex >= 0 then\r\n    Result := FLookupValues[ItemIndex].Value;\r\nend;\r\n\r\nprocedure TCustomLookupComboBox.InitCSSLibrary(ALibrary: TCSSLibrary);\r\nbegin\r\n  if (ALibrary = cssBootstrap) then\r\n  begin\r\n    ElementFont := efCSS;\r\n    ElementClassName := 'custom-select';\r\n  end;\r\nend;\r\n\r\nprocedure TCustomLookupComboBox.SetDisplayText(const Value: string);\r\nvar\r\n  i,idx: integer;\r\nbegin\r\n  idx := -1;\r\n  for i := 0 to FLookupValues.Count - 1 do\r\n  begin\r\n    if FLookupValues[i].DisplayText = Value then\r\n    begin\r\n      idx := i;\r\n      break;\r\n    end;\r\n  end;\r\n\r\n  ItemIndex := idx;\r\nend;\r\n\r\nprocedure TCustomLookupComboBox.SetLookupValues(const Value: TLookupValues);\r\nbegin\r\n  FLookupValues.Assign(Value);\r\nend;\r\n\r\nprocedure TCustomLookupComboBox.SetValue(const Value: string);\r\nvar\r\n  i,idx: integer;\r\nbegin\r\n  idx := -1;\r\n\r\n  for i := 0 to FLookupValues.Count - 1 do\r\n  begin\r\n    if FLookupValues[i].Value = Value then\r\n    begin\r\n      idx := i;\r\n      break;\r\n    end;\r\n  end;\r\n\r\n  ItemIndex := idx;\r\nend;\r\n\r\nprocedure TCustomLookupComboBox.ValuesChanged(Sender: TObject);\r\nbegin\r\n  DoUpdateList;\r\nend;\r\n\r\n{ TLookupValues }\r\n\r\nfunction TLookupValues.Add: TLookupValueItem;\r\nbegin\r\n  Result := TLookupValueItem(inherited Add);\r\nend;\r\n\r\nprocedure TLookupValues.AddPair(AValue, ADisplayText: string);\r\nvar\r\n  lv: TLookupValueItem;\r\nbegin\r\n  lv := TLookupValueItem(inherited Add);\r\n  lv.Value := AValue;\r\n  lv.DisplayText := ADisplayText;\r\n  if (UpdateCount = 0) then\r\n     DoChange;\r\nend;\r\n\r\nprocedure TLookupValues.InsertPair(Index: Integer; AValue, ADisplayText: string);\r\nvar\r\n  lv: TLookupValueItem;\r\nbegin\r\n  lv := TLookupValueItem(inherited Insert(Index));\r\n  lv.Value := AValue;\r\n  lv.DisplayText := ADisplayText;\r\n  if (UpdateCount = 0) then\r\n     DoChange;\r\nend;\r\n\r\nconstructor TLookupValues.Create(AOwner: TComponent);\r\nbegin\r\n  inherited Create(AOwner, TLookupValueItem);\r\nend;\r\n\r\nprocedure TLookupValues.DoChange;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nfunction TLookupValues.GetItem(Index: integer): TLookupValueItem;\r\nbegin\r\n  Result := TLookupValueItem(inherited Items[Index]);\r\nend;\r\n\r\nfunction TLookupValues.Insert(Index: integer): TLookupValueItem;\r\nbegin\r\n  Result := TLookupValueItem(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TLookupValues.SetItem(Index: integer; const Value: TLookupValueItem);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nprocedure TLookupValues.Update(Item: TCollectionItem);\r\nbegin\r\n  inherited;\r\n  if Item = nil then\r\n    DoChange;\r\nend;\r\n\r\n{ TCustomListBox }\r\n\r\nprocedure TCustomListBox.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FItems := TStringList.Create;\r\n  FItems.SkipLastLinebreak := true;\r\n  TStringList(FItems).OnChange := DoItemsChange;\r\n  FItemIndex := -1;\r\n  BorderStyle := bsSingle;\r\n  CustomBorder := true;\r\n  ShowFocus := true;\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Width := 160;\r\n    Height := 180;\r\n  end;\r\nend;\r\n\r\nfunction TCustomListBox.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('DIV');\r\n//  Result['Size'] := '2';\r\nend;\r\n\r\ndestructor TCustomListBox.Destroy;\r\nbegin\r\n  FItems.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TCustomListBox.DisableDrag;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  for I := 0 to TJSHTMLElement(Container).children.length - 1 do\r\n  begin\r\n    TJSHTMLElement(Container.children[I]).Attrs['draggable'] := 'false';\r\n  end;\r\nend;\r\n\r\nfunction TCustomListBox.DoHandleChange(Event: TEventListenerEvent): Boolean;\r\nbegin\r\n  Change;\r\n  Result := True;\r\nend;\r\n\r\nprocedure TCustomListBox.AddItem(Item: string; AObject: TObject);\r\nbegin\r\n  FItems.AddObject(Item, AObject);\r\nend;\r\n\r\nprocedure TCustomListBox.BindEvents;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    ElementHandle.addEventListener('change', FHandleChangePtr);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomListBox.UnBindEvents;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    ElementHandle.removeEventListener('change', FHandleChangePtr);\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TCustomListBox.Change;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nprocedure TCustomListBox.Clear;\r\nbegin\r\n  BeginUpdate;\r\n  FItems.Clear;\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TCustomListBox.ClearMethodPointers;\r\nbegin\r\n  inherited;\r\n  FHandleChangePtr := nil;\r\nend;\r\n\r\nprocedure TCustomListBox.SetItems(AItems: TStrings);\r\nbegin\r\n  FItems.Assign(AItems);\r\nend;\r\n\r\nfunction TCustomListBox.GetCount: Integer;\r\nbegin\r\n  Result := FItems.Count;\r\nend;\r\n\r\nfunction TCustomListBox.GetItemElement(i: Integer): TJSHTMLElement;\r\nbegin\r\n  Result := nil;\r\n\r\n  if Assigned(Container) and (i < TJSHTMLElement(Container).children.length) then\r\n    Result := TJSHTMLElement(Container.children[i]);\r\nend;\r\n\r\nfunction TCustomListBox.GetItemIndex: integer;\r\nvar\r\n  i: integer;\r\n  el: TJSHTMLElement;\r\nbegin\r\n  Result := FItemIndex;\r\n  if Assigned(Container) then\r\n  begin\r\n    for i := 0 to FItems.Count - 1 do\r\n    begin\r\n      el := ItemElement[i];\r\n      if Assigned(el) then\r\n        el := TJSHTMLElement(el.firstChild);\r\n      if Assigned(el) then\r\n      begin\r\n        if el = document.activeElement then\r\n        begin\r\n          Result := i;\r\n          Break;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomListBox.GetMethodPointers;\r\nbegin\r\n  inherited;\r\n  FHandleChangePtr := @DoHandleChange;\r\nend;\r\n\r\nprocedure TCustomListBox.KeyDown(var Key: Word; Shift: TShiftState);\r\nbegin\r\n  inherited;\r\n\r\n  if Key = VK_DOWN then\r\n  begin\r\n    ItemIndex := ItemIndex + 1;\r\n    key := 0;\r\n  end;\r\n\r\n  if Key = VK_HOME then\r\n  begin\r\n    ItemIndex := 0;\r\n    key := 0;\r\n  end;\r\n\r\n  if Key = VK_NEXT then\r\n  begin\r\n    ItemIndex := ItemIndex + 4;\r\n    key := 0;\r\n  end;\r\n\r\n  if Key = VK_PRIOR then\r\n  begin\r\n    ItemIndex := ItemIndex - 4;\r\n    key := 0;\r\n  end;\r\n\r\n  if Key = VK_END then\r\n  begin\r\n    ItemIndex := Items.Count - 1;\r\n    key := 0;\r\n  end;\r\n\r\n  if Key = VK_UP then\r\n  begin\r\n    ItemIndex := ItemIndex - 1;\r\n    key := 0;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomListBox.PersistinHTML;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  if ElementHandle.tagName <> 'DIV' then\r\n    Exit;\r\n\r\n//  for i := 0 to TJSHTMLSelectElement(Container).options.length - 1 do\r\n//  begin\r\n//    if TJSHTMLOptionElement(TJSHTMLSelectElement(Container).options[i]).selected then\r\n//      TJSHTMLOptionElement(TJSHTMLSelectElement(Container).options[i]).setAttribute('selected','selected')\r\n//    else\r\n//      TJSHTMLOptionElement(TJSHTMLSelectElement(Container).options[i]).removeAttribute('selected');\r\n//  end;\r\nend;\r\n\r\nprocedure TCustomListBox.RemoveFilter;\r\nvar\r\n  i: integer;\r\nbegin\r\n  for i := 0 to Items.Count - 1 do\r\n  begin\r\n    ItemElement[i].style.setProperty('display','block');\r\n  end;\r\nend;\r\n\r\nprocedure TCustomListBox.SetFilter(AExpression: string; CaseSensitive: boolean = false);\r\nvar\r\n  i: integer;\r\n  re: TJSRegexp;\r\nbegin\r\n  if CaseSensitive then\r\n    re := TJSRegexp.new(AExpression)\r\n  else\r\n    re := TJSRegexp.new(AExpression,'i');\r\n\r\n  for i := 0 to Items.Count - 1 do\r\n  begin\r\n    if not re.test(Items[i]) then\r\n    begin\r\n      ItemElement[i].style.setProperty('display','none');\r\n    end\r\n    else\r\n      ItemElement[i].style.setProperty('display','block');\r\n\r\n  end;\r\nend;\r\n\r\nprocedure TCustomListBox.SetItemHeight(const Value: Integer);\r\nbegin\r\n  FItemHeight := Value;\r\nend;\r\n\r\n\r\nprocedure TCustomListBox.SetItemIndex(const Value: integer);\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  el := ItemElement[Value];\r\n  if Assigned(el) then\r\n    TJSHTMLInputElement(el.firstChild).focus;\r\nend;\r\n\r\nprocedure TCustomListBox.Loaded;\r\nbegin\r\n  inherited;\r\n  DoUpdateList;\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TCustomListBox.SetSorted(const Value: Boolean);\r\nbegin\r\n  FSorted := Value;\r\n  TStringList(Items).Sort;\r\nend;\r\n\r\nprocedure TCustomListBox.UpdateElementData;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    ElementHandle.style.setProperty('overflow', 'auto');\r\n  end;\r\nend;\r\n\r\nprocedure TCustomListBox.UpdateElementVisual;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    ElementHandle.style.setProperty('overflow', 'auto');\r\n//    ElementSelectHandle['role'] := 'listbox';\r\n//    ElementSelectHandle['aria-busy'] := 'true';\r\n  end;\r\nend;\r\n\r\nprocedure TCustomListBox.UpdateParent;\r\nbegin\r\n  inherited;\r\n  DoUpdateList;\r\nend;\r\n\r\nprocedure TCustomListBox.DoItemsChange(Sender: TObject);\r\nbegin\r\n  DoUpdateList;\r\nend;\r\n\r\nprocedure TCustomListBox.DoUpdateList;\r\nvar\r\n  i: integer;\r\n  opt: TJSHTMLElement;\r\n  chk: TJSHTMLInputElement;\r\n  txt: TJSNode;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  if ElementHandle.tagName <> 'DIV' then\r\n    Exit;\r\n\r\n  // remove previous content\r\n  while Assigned(Container.firstChild) do\r\n    Container.removeChild(Container.lastChild);\r\n\r\n  for i := 0 to FItems.Count - 1 do\r\n  begin\r\n    opt := TJSHTMLElement(document.createElement('LABEL'));\r\n    chk := TJSHTMLInputElement(document.createElement('INPUT'));\r\n    chk['type'] := 'checkbox';\r\n    chk.style.setProperty('vertical-align','middle');\r\n    opt.style.setProperty('vertical-align','middle');\r\n\r\n    opt.appendChild(chk);\r\n    opt.style.setProperty('display','block');\r\n    txt := document.createTextNode(FItems[i]);\r\n\r\n    opt.appendChild(txt);\r\n\r\n    if ElementItemClassName <> '' then\r\n      opt['class'] := ElementItemClassName;\r\n\r\n    if DragMode = dmAutomatic then\r\n      opt['draggable'] := 'true';\r\n\r\n    Container.appendChild(opt);\r\n  end;\r\n\r\n  UpdateElementData;\r\nend;\r\n\r\nprocedure TCustomListBox.EnableDrag;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  for I := 0 to TJSHTMLSelectElement(Container).options.length - 1 do\r\n    TJSHTMLOptionElement(TJSHTMLSelectElement(Container).options[I]).Attrs['draggable'] := 'true';\r\nend;\r\n\r\nprocedure TCustomListBox.EndUpdate;\r\nbegin\r\n  inherited;\r\n  DoUpdateList;\r\nend;\r\n\r\n\r\n{ TImageListBox }\r\n\r\nprocedure TImageListBox.DoUpdateList;\r\nvar\r\n  i: integer;\r\n  opt, img: TJSHTMLElement;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  if ElementHandle.tagName <> 'DIV' then\r\n    Exit;\r\n\r\n  // remove previous content\r\n  while Assigned(Container.firstChild) do\r\n    Container.removeChild(Container.lastChild);\r\n\r\n  for i := 0 to Items.Count - 1 do\r\n  begin\r\n    opt := TJSHTMLElement(document.createElement('LABEL'));\r\n\r\n    img := TJSHTMLElement(document.createElement('IMG'));\r\n    img['src'] := Items[i];\r\n    img.style.setProperty('display','inline-block');\r\n\r\n    opt.appendChild(img);\r\n\r\n    opt.style.setProperty('display','block');\r\n\r\n    if ElementItemClassName <> '' then\r\n      opt['class'] := ElementItemClassName;\r\n\r\n    if DragMode = dmAutomatic then\r\n      opt['draggable'] := 'true';\r\n\r\n    Container.appendChild(opt);\r\n  end;\r\n\r\n  UpdateElementData;\r\nend;\r\n\r\n{ TCustomSearchEdit }\r\n\r\nprocedure TSearchEdit.BindEvents;\r\nbegin\r\n  inherited;\r\n  if Assigned(FClearElement) then\r\n    FClearElement.addEventListener('click', FClearPtr);\r\n  if Assigned(FSearchElement) then\r\n    FSearchElement.addEventListener('click', FSearchPtr);\r\nend;\r\n\r\nprocedure TSearchEdit.ClearMethodPointers;\r\nbegin\r\n  inherited;\r\n  FClearPtr := nil;\r\n  FSearchPtr := nil;\r\nend;\r\n\r\nprocedure TSearchEdit.CreateChildElements(AContainer: TJSElement);\r\nvar\r\n  FTable,FRow,FCell: TJSElement;\r\nbegin\r\n  inherited;\r\n\r\n  FSearchElement := document.createElement('IMG');\r\n  FClearElement := document.createElement('IMG');\r\n  FInputElement := document.createElement('INPUT');\r\n\r\n  FTable := document.createElement('TABLE');\r\n  TJSHTMLElement(FTable).style.setProperty('height','100%');\r\n  FRow :=  document.createElement('TR');\r\n\r\n  AContainer.appendChild(FTable);\r\n  FTable.appendChild(FRow);\r\n\r\n  FCell := document.createElement('TD');\r\n  FRow.appendChild(FCell);\r\n\r\n  FCell.appendChild(FSearchElement);\r\n\r\n  FCell := document.createElement('TD');\r\n  FRow.appendChild(FCell);\r\n\r\n  FCell.appendChild(FInputElement);\r\n\r\n  FCell := document.createElement('TD');\r\n  FRow.appendChild(FCell);\r\n\r\n  FCell.appendChild(FClearElement);\r\n\r\n  FSearchElement['src'] := btnsearchres;\r\n  FClearElement['src'] := btnclearres;\r\nend;\r\n\r\nfunction TSearchEdit.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('DIV');\r\nend;\r\n\r\nfunction TSearchEdit.GetElementBindHandle: TJSEventTarget;\r\nbegin\r\n  Result := FInputElement;\r\nend;\r\n\r\nfunction TSearchEdit.GetElementInputHandle: TJSHTMLInputElement;\r\nbegin\r\n  Result := TJSHTMLInputElement(FInputElement);\r\nend;\r\n\r\nprocedure TSearchEdit.GetMethodPointers;\r\nbegin\r\n  inherited;\r\n  if FClearPtr = nil then\r\n    FClearPtr := @HandleDoClear;\r\n  if FSearchPtr = nil then\r\n    FSearchPtr := @HandleDoSearch;\r\nend;\r\n\r\nfunction TSearchEdit.HandleDoClear(Event: TJSEvent): Boolean;\r\nbegin\r\n  if Assigned(OnClearClick) then\r\n    OnClearClick(Self);\r\n\r\n  asm\r\n    this.FInputElement.value = '';\r\n    this.FInputElement.focus();\r\n  end;\r\n  Result := true;\r\nend;\r\n\r\nfunction TSearchEdit.HandleDoSearch(Event: TJSEvent): Boolean;\r\nbegin\r\n  if Assigned(OnSearchClick) then\r\n    OnSearchClick(Self);\r\n\r\n  Result := true;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TSearchEdit.SetClearImageURL(const Value: string);\r\nbegin\r\n  FClearImageURL := Value;\r\nend;\r\n\r\nprocedure TSearchEdit.SetEnabled(Value: Boolean);\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementInputHandle) then\r\n  begin\r\n    if Value then\r\n      ElementInputHandle.removeAttribute('disabled')\r\n    else\r\n      ElementInputHandle.setAttribute('disabled','');\r\n  end;\r\nend;\r\n\r\nprocedure TSearchEdit.SetFocus;\r\nvar\r\n  eh: TJSHTMLInputElement;\r\nbegin\r\n  if Assigned(ElementInputHandle) then\r\n  begin\r\n    eh := TJSHTMLInputElement(ElementInputHandle);\r\n    asm\r\n      eh.focus();\r\n    end;\r\n  end;\r\nend;\r\nprocedure TSearchEdit.SetSearchImageURL(const Value: string);\r\nbegin\r\n  FSearchImageURL := Value;\r\nend;\r\n\r\n{$HINTS ON}\r\n\r\nprocedure TSearchEdit.UpdateElement;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementHandle) and (ElementHandle <> ContainerElement) and not IsUpdating then\r\n  begin\r\n    if (ElementClassName = '') and (BorderStyle = bsSingle) then\r\n    begin\r\n      TJSHTMLElement(ElementHandle).style.setProperty('border','1px solid gray');\r\n      TJSHTMLElement(ElementHandle).style.setProperty('border-radius','4px');\r\n    end;\r\n\r\n    TJSHTMLElement(FInputElement).style.setProperty('border','none');\r\n    TJSHTMLElement(FInputElement).style.setProperty('outline','none');\r\n\r\n\r\n    TJSHTMLElement(FInputElement.parentElement).style.setProperty('vertical-align','middle');\r\n    TJSHTMLElement(FInputElement.parentElement).style.setProperty('width','100%');\r\n    TJSHTMLElement(FSearchElement.parentElement).style.setProperty('vertical-align','middle');\r\n    TJSHTMLElement(FClearElement.parentElement).style.setProperty('vertical-align','middle');\r\n\r\n\r\n    if ElementPosition = epAbsolute then\r\n      TJSHTMLElement(FInputElement).style.setProperty('width','100%')\r\n    else\r\n      TJSHTMLElement(FInputElement).style.removeProperty('width');\r\n  end;\r\nend;\r\n\r\nprocedure TSearchEdit.UpdateElementVisual;\r\nbegin\r\n  inherited;\r\n  if Assigned(FSearchElement) then\r\n  begin\r\n    if (FSearchImageURL <> '') then\r\n      FSearchElement['src'] := FSearchImageURL\r\n    else\r\n      FSearchElement['src'] := btnsearchres;\r\n  end;\r\n\r\n  if Assigned(FClearElement) then\r\n  begin\r\n    if (FClearImageURL <> '') then\r\n      FClearElement['src'] := FClearImageURL\r\n    else\r\n      FClearElement['src'] := btnclearres;\r\n  end;\r\nend;\r\n\r\n{ TEditBtn }\r\n\r\nprocedure TEditBtn.BindEvents;\r\nbegin\r\n  inherited;\r\n  if Assigned(FBtnElement) then\r\n    FBtnElement.addEventListener('click', FBtnClickPtr);\r\nend;\r\n\r\nprocedure TEditBtn.ButtonChanged(Sender: TObject);\r\nbegin\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TEditBtn.ClearMethodPointers;\r\nbegin\r\n  inherited;\r\n  FBtnClickPtr := nil;\r\nend;\r\n\r\nconstructor TEditBtn.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FButton := TEditButton.Create;\r\n  FButton.OnChange := ButtonChanged;\r\nend;\r\n\r\nfunction TEditBtn.CreateElement: TJSElement;\r\nvar\r\n  FTable,FRow,FCell1,FCell2: TJSElement;\r\nbegin\r\n  Result := document.createElement('DIV');\r\n  FBtnElement := document.createElement('BUTTON');\r\n  FInputElement := document.createElement('INPUT');\r\n\r\n  FTable := document.createElement('TABLE');\r\n  FRow :=  document.createElement('TR');\r\n\r\n  Result.appendChild(FTable);\r\n  FTable.appendChild(FRow);\r\n\r\n  FCell1 := document.createElement('TD');\r\n  FRow.appendChild(FCell1);\r\n\r\n  FCell1.appendChild(FInputElement);\r\n\r\n  FCell2 := document.createElement('TD');\r\n  FRow.appendChild(FCell2);\r\n\r\n  FCell2.appendChild(FBtnElement);\r\n\r\n  FBtnElement.innerHTML := '&nbsp;';\r\n  TJSHTMLElement(FTable).style.setProperty('border','none');\r\n  TJSHTMLElement(FTable).style.setProperty('border-collapse','collapse');\r\n  TJSHTMLElement(FTable).style.setProperty('height','100%');\r\nend;\r\n\r\ndestructor TEditBtn.Destroy;\r\nbegin\r\n  FButton.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TEditBtn.GetElementBindHandle: TJSEventTarget;\r\nbegin\r\n  Result := FInputElement;\r\nend;\r\n\r\nfunction TEditBtn.GetElementInputHandle: TJSHTMLInputElement;\r\nbegin\r\n  Result := TJSHTMLInputElement(FInputElement);\r\nend;\r\n\r\nprocedure TEditBtn.GetMethodPointers;\r\nbegin\r\n  inherited;\r\n  if FBtnClickPtr = nil then\r\n    FBtnClickPtr := @HandleDoBtnClick;\r\nend;\r\n\r\nfunction TEditBtn.HandleDoBtnClick(Event: TJSEvent): Boolean;\r\nbegin\r\n  if Assigned(OnBtnClick) then\r\n    OnBtnClick(Self);\r\n  Result := true;\r\nend;\r\n\r\nprocedure TEditBtn.InitCSSLibrary(ALibrary: TCSSLibrary);\r\nbegin\r\n  if (ALibrary = cssBootstrap) then\r\n  begin\r\n    ElementFont := efCSS;\r\n    ElementClassName := '';\r\n    ElementInputClassName := 'form-control';\r\n    ElementButtonClassName := 'btn btn-primary';\r\n    HeightStyle := ssAuto;\r\n  end;\r\nend;\r\n\r\nprocedure TEditBtn.SetButton(const Value: TEditButton);\r\nbegin\r\n  FButton.Assign(Value);\r\nend;\r\n\r\nprocedure TEditBtn.SetElementButtonClassName(const Value: TElementClassName);\r\nbegin\r\n  if (FElementButtonClassName <> Value) then\r\n  begin\r\n    FElementButtonClassName := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TEditBtn.SetElementInputClassName(const Value: TElementClassName);\r\nbegin\r\n  if (FElementInputClassName <> Value) then\r\n  begin\r\n    FElementInputClassName := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TEditBtn.UpdateElement;\r\nvar\r\n  h: integer;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementHandle) and (ElementHandle <> ContainerElement) and not IsUpdating then\r\n  begin\r\n    TJSHTMLElement(FInputElement).style.setProperty('outline','none');\r\n    TJSHTMLElement(FInputElement).style.setProperty('box-sizing','unset');\r\n\r\n    if ElementPosition = epAbsolute then\r\n      TJSHTMLElement(FInputElement).style.setProperty('width','100%')\r\n    else\r\n      TJSHTMLElement(FInputElement).style.removeProperty('width');\r\n\r\n    // compensate for edit height\r\n    h := Height - 6 - 4;\r\n\r\n    TJSHTMLElement(FInputElement).style.setProperty('height',h.toString+'px');\r\n\r\n    if ElementInputClassName <> '' then\r\n      TJSHTMLElement(FInputElement).setAttribute('class',ElementInputClassName)\r\n    else\r\n      TJSHTMLElement(FInputElement).removeAttribute('class');\r\n\r\n    if ElementButtonClassName <> '' then\r\n       TJSHTMLElement(FBtnElement).setAttribute('class',ElementButtonClassName)\r\n    else\r\n       TJSHTMLElement(FBtnElement).removeAttribute('class');\r\n\r\n    // compensate for button padding\r\n    h := Height -  4;\r\n\r\n    TJSHTMLElement(FBtnElement).style.setProperty('width', Button.Width.ToString+'px');\r\n    TJSHTMLElement(FBtnElement).style.setProperty('padding', '0');\r\n\r\n    TJSHTMLElement(FBtnElement).style.setProperty('height', h.ToString+'px');\r\n\r\n    SetHTMLElementFont(TJSHTMLElement(FInputElement), Font, ElementFont = efCSS );\r\n\r\n    if (Button.Caption <> '') then\r\n       TJSHTMLElement(FBtnElement).innerHTML := Button.Caption;\r\n\r\n    if (Button.MaterialGlyph <> '') then\r\n    begin\r\n       TJSHTMLElement(FBtnElement).innerHTML := GetMaterialGlyph(Button.MaterialGlyph,Button.MaterialGlyphSize,Button.MaterialGlyphColor, Button.MaterialGlyphType);\r\n    end;\r\n\r\n    TJSHTMLElement(ElementHandle).style.setProperty('border','none');\r\n  end;\r\nend;\r\n\r\n{ TEditButton }\r\n\r\nprocedure TEditButton.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TEditButton) then\r\n  begin\r\n    FWidth := (Source as TEditButton).Width;\r\n    FMaterialGlyph := (Source as TEditButton).MaterialGlyph;\r\n    FMaterialGlyphSize := (Source as TEditButton).MaterialGlyphSize;\r\n    FMaterialGlyphColor := (Source as TEditButton).MaterialGlyphColor;\r\n    FCaption := (Source as TEditButton).Caption;\r\n  end;\r\nend;\r\n\r\nprocedure TEditButton.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nconstructor TEditButton.Create;\r\nbegin\r\n  inherited;\r\n  FWidth := 24;\r\n  FCaption := '';\r\n  FMaterialGlyphColor := clNone;\r\n  FMaterialGlyphSize := 18;\r\n  FMaterialGlyphType := mgNormal;\r\nend;\r\n\r\nprocedure TEditButton.SetCaption(const Value: string);\r\nbegin\r\n  FCaption := Value;\r\n  Changed;\r\nend;\r\n\r\nprocedure TEditButton.SetMaterialGlyph(const Value: TMaterialGlyph);\r\nbegin\r\n  FMaterialGlyph := Value;\r\n  Changed;\r\nend;\r\n\r\nprocedure TEditButton.SetMaterialGlyphSize(const Value: integer);\r\nbegin\r\n  FMaterialGlyphSize := Value;\r\n  Changed;\r\nend;\r\n\r\nprocedure TEditButton.SetMaterialGlyphType(const Value: TMaterialGlyphType);\r\nbegin\r\n  FMaterialGlyphType := Value;\r\n  Changed;\r\nend;\r\n\r\nprocedure TEditButton.SetMaterialGyphColor(const Value: TColor);\r\nbegin\r\n  FMaterialGlyphColor := Value;\r\n  Changed;\r\nend;\r\n\r\nprocedure TEditButton.SetWidth(const Value: integer);\r\nbegin\r\n  FWidth := Value;\r\n  Changed;\r\nend;\r\n\r\nend.\r\n","{*************************************************************************}\r\n{ TAdvTreeNodes                                                           }\r\n{ for Delphi & C++Builder                                                 }\r\n{                                                                         }\r\n{ written by TMS Software                                                 }\r\n{           copyright (c) 2019 - 2023                                     }\r\n{           Email : info@tmssoftware.com                                  }\r\n{           Website : http://www.tmssoftware.com/                         }\r\n{                                                                         }\r\n{ The source code is given as is. The author is not responsible           }\r\n{ for any possible damage done due to the use of this code.               }\r\n{ The component can be freely used in any application. The complete       }\r\n{ source code remains property of the author and may not be distributed,  }\r\n{ published, given or sold in any form as such. No parts of the source    }\r\n{ code can be included in any other component or application without      }\r\n{ written authorization of the author.                                    }\r\n{*************************************************************************}\r\n\r\nunit WEBLib.TreeNodes;\r\n\r\n\r\ninterface\r\nuses\r\n  Classes, Types, SysUtils, Web;\r\n\r\ntype\r\n  TTreeNode = class;\r\n  TTreeNodes = class;\r\n\r\n  TDbgList = class(TList)\r\n  private\r\n    function GetItemsEx(Index: Integer): TTreeNode;\r\n    procedure SetItemsEx(Index: Integer; const Value: TTreeNode);\r\n  public\r\n    procedure AssignList(ListA: TList);\r\n    property Items[Index: Integer]: TTreeNode read GetItemsEx write SetItemsEx; default;\r\n  end;\r\n\r\n{ TTreeNode }\r\n\r\n  TNodeType = (ntText, ntCheckbox, ntRadioButton);\r\n\r\n  TImageIndex = integer;\r\n\r\n  PNodeInfo = ^TNodeInfo;\r\n  TNodeInfo = packed record\r\n    SelectedIndex: Integer;\r\n    StateIndex: Integer;\r\n    OverlayIndex: Integer;\r\n    Data: Pointer;\r\n    Count: Integer;\r\n    Text: string;\r\n    NodeType: TNodeType;\r\n    Checked: Boolean;\r\n    ImageURL: string;\r\n    ImageCollapsedURL: string;\r\n    URL: string;\r\n    Tag: Integer;\r\n    Hint: string;\r\n    IsExpanded: Boolean;\r\n  end;\r\n\r\n  TNodeDataInfo = packed record\r\n    SelectedIndex: Integer;\r\n    StateIndex: Integer;\r\n    OverlayIndex: Integer;\r\n    Data: Pointer;\r\n    Count: Integer;\r\n    NodeType: TNodeType;\r\n    Checked: Boolean;\r\n    Tag: Integer;\r\n    IsExpanded: Boolean;\r\n    TextLen: Byte;\r\n    HintLen: Byte;\r\n    URLLen: Byte;\r\n    ImageURLLen: Byte;\r\n    ImageCollapsedURLLen: Byte;\r\n  end;\r\n\r\n\r\n  TTreeNodeClass = class of TTreeNode;\r\n\r\n  TTreeNode = class(TPersistent)\r\n  private\r\n    FOwner: TTreeNodes;\r\n    FText: string;\r\n    FData: TObject;\r\n    FDeleting: Boolean;\r\n    FIsExpanded: Boolean;\r\n    FFirstChild: TTreeNode;\r\n    FNextSibling: TTreeNode;\r\n    FPrevSibling: TTreeNode;\r\n    FParentNode: TTreeNode;\r\n    FShowText: Boolean;\r\n    FImageCollapsedURL: string;\r\n    FImageURL: string;\r\n    FNodeType: TNodeType;\r\n    FURL: string;\r\n    FChecked: boolean;\r\n    FTag: Integer;\r\n    FHint: string;\r\n    FSelected: boolean;\r\n    function GetLevel: Integer;\r\n    function GetParent: TTreeNode;\r\n    function GetIndex: Integer;\r\n    function GetItem(Index: Integer): TTreeNode;\r\n    function GetCount: Integer;\r\n    procedure SetData(Value: TObject);\r\n    procedure SetItem(Index: Integer; Value: TTreeNode);\r\n    procedure SetText(const S: string);\r\n    function GetHasChildren: Boolean;\r\n    procedure SetShowText(const Value: Boolean);\r\n    //procedure ReadData(Stream: TStream; var Info: TNodeDataInfo);\r\n    //procedure WriteData(Stream: TStream; var Info: TNodeDataInfo);\r\n    procedure SetChecked(const Value: boolean);\r\n    procedure SetImageCollapsedURL(const Value: string);\r\n    procedure SetImageURL(const Value: string);\r\n    procedure SetNodeType(const Value: TNodeType);\r\n    procedure SetURL(const Value: string);\r\n    procedure SetTag(const Value: Integer);\r\n    procedure SetHint(const Value: string);\r\n    procedure SetIsExpanded(const Value: Boolean);\r\n    procedure SetSelected(const Value: boolean);\r\n    function GetAbsoluteIndex: Integer;\r\n  protected\r\n    function CompareCount(CompareMe: Integer): Boolean;\r\n    property Owner: TTreeNodes read FOwner;\r\n    function IsEqual(Node: TTreeNode): Boolean;\r\n    procedure Select;\r\n    procedure UnSelect;\r\n  public\r\n    property Item[Index: Integer]: TTreeNode read GetItem write SetItem; default;\r\n    function IndexOf(Value: TTreeNode): Integer;\r\n    property Count: Integer read GetCount;\r\n    property Index: Integer read GetIndex;\r\n\r\n    constructor Create(AOwner: TTreeNodes);\r\n    destructor Destroy; override;\r\n\r\n    function AddFirstChild(const S: string): TTreeNode; overload;\r\n    function AddFirstChild(const S: string; Data: TObject): TTreeNode; overload;\r\n    function AddChild(const S: string): TTreeNode; overload;\r\n    function AddChild(const S: string; Data: TObject): TTreeNode; overload;\r\n    procedure Assign(Source: TPersistent); override;\r\n\r\n    procedure Expand(Recurse: boolean); virtual;\r\n\r\n    procedure Collapse(Recurse: boolean); virtual;\r\n\r\n    procedure Delete;\r\n    procedure DeleteChildren;\r\n\r\n    function GetFirstChild: TTreeNode;\r\n    function GetLastChild: TTreeNode;\r\n    function GetNextChild(Value: TTreeNode): TTreeNode;\r\n    function GetNextSibling: TTreeNode;\r\n    function GetPrevChild(Value: TTreeNode): TTreeNode;\r\n    function GetPrevSibling: TTreeNode;\r\n    function HasAsParent(Value: TTreeNode): Boolean;\r\n    function IsFirstNode: Boolean;\r\n    function IsFirstChild: Boolean;\r\n    function GetNext: TTreeNode;\r\n    function GetPrev: TTreeNode;\r\n\r\n    property AbsoluteIndex: Integer read GetAbsoluteIndex;\r\n    property Deleting: Boolean read FDeleting;\r\n    property Expanded: Boolean read FIsExpanded write SetIsExpanded;\r\n    property HasChildren: Boolean read GetHasChildren;\r\n    property Level: Integer read GetLevel;\r\n    property Parent: TTreeNode read GetParent;\r\n    property Text: string read FText write SetText;\r\n    property Data: TObject read FData write SetData;\r\n    property ShowText: Boolean read FShowText write SetShowText default true;\r\n    property NodeType: TNodeType read FNodeType write SetNodeType default ntText;\r\n    property Checked: boolean read FChecked write SetChecked default False;\r\n    property URL: string read FURL write SetURL;\r\n    property Selected: boolean read FSelected write SetSelected;\r\n\r\n    property ImageCollapsedURL: string read FImageCollapsedURL write SetImageCollapsedURL;\r\n    property ImageURL: string read FImageURL write SetImageURL;\r\n    property Tag: Integer read FTag write SetTag default 0;\r\n    property Hint: string read FHint write SetHint;\r\n  end;\r\n\r\n  TSelectNodeEvent = procedure(Sender: TObject; ANode: TTreeNode; IsSelected: boolean) of object;\r\n\r\n  TNodeEvent = procedure(Sender: TObject; ANode: TTreeNode) of object;\r\n\r\n{ TTreeNodes }\r\n\r\n  TTreeNodes = class(TPersistent)\r\n  private\r\n    FOwner: TComponent;\r\n    FFirstNode: TTreeNode;\r\n    FNodeList: TDbgList;\r\n    FDeleting: Boolean;\r\n    FReading: Boolean;\r\n    FOnChange: TNotifyEvent;\r\n    FOnExpandedChange: TNodeEvent;\r\n    FOnSelectionChange: TSelectNodeEvent;\r\n    function GetNodeFromIndex(Index: Integer): TTreeNode;\r\n    function GetSiblingCount: Integer;\r\n    function GetSiblingFromIndex(Index: integer): TTreeNode;\r\n    //procedure ReadData(Stream: TStream);\r\n    //procedure WriteData(Stream: TStream);\r\n  protected\r\n    //procedure DefineProperties(Filer: TFiler); override;\r\n    procedure SetItem(Index: Integer; Value: TTreeNode);\r\n    function GetCount: Integer;\r\n    function InsertNode(ParentNode: TTreeNode; DesNode: TTreeNode; InsertBefore: Boolean): TTreeNode;\r\n    function IsVeryFirstNode(Node: TTreeNode): Boolean;\r\n    procedure SelectionChange(Node: TTreeNode; IsSelected: boolean); virtual;\r\n    function CreateNode: TTreeNode; virtual;\r\n    property Reading: Boolean read FReading;\r\n    property OnSelectionChange: TSelectNodeEvent read FOnSelectionChange write FOnSelectionChange;\r\n  public\r\n    constructor Create(AOwner: TComponent);\r\n    destructor Destroy; override;\r\n    function AddFirst(const S: string): TTreeNode; overload;\r\n    function AddFirst(Data: TObject; const S: string): TTreeNode; overload;\r\n    function Add(Sibling: TTreeNode; const S: string): TTreeNode; overload;\r\n    function Add(Sibling: TTreeNode; const S: string; Data: TObject): TTreeNode; overload;\r\n    function Add(const S: string): TTreeNode; overload;\r\n    function Add(const S: string; Data: TObject): TTreeNode; overload;\r\n    function AddChild(Parent: TTreeNode; const S: string): TTreeNode; overload;\r\n    function AddChild(Parent: TTreeNode; const S: string; Data: TObject): TTreeNode; overload;\r\n    function AddChildFirst(Parent: TTreeNode; const S: string): TTreeNode; overload;\r\n    function AddChildFirst(Parent: TTreeNode; const S: string; Data: TObject): TTreeNode; overload;\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure BeginUpdate; virtual;\r\n    procedure EndUpdate; virtual;\r\n    procedure Clear;\r\n    procedure Delete(Node: TTreeNode);\r\n    function GetFirstNode: TTreeNode;\r\n    function GetLastNode: TTreeNode;\r\n    function Insert(Sibling: TTreeNode; const S: string): TTreeNode;\r\n    function InsertObject(Sibling: TTreeNode; const S: string; Data: TObject): TTreeNode;\r\n    property Count: Integer read GetCount;\r\n    property SiblingCount: Integer read GetSiblingCount;\r\n    property Sibling[Index: integer]: TTreeNode read GetSiblingFromIndex;\r\n    property Item[Index: Integer]: TTreeNode read GetNodeFromIndex; default;\r\n    property Owner: TComponent read FOwner;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    property OnExpandedChange: TNodeEvent read FOnExpandedChange write FOnExpandedChange;\r\n    procedure Changed;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  Math;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\n{ TDbgList }\r\n\r\nprocedure TDbgList.AssignList(ListA: TList);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Clear;\r\n  for I := 0 to ListA.Count - 1 do\r\n    Add(ListA[I]);\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TDbgList.GetItemsEx(Index: Integer): TTreeNode;\r\nbegin\r\n  if (Index >= Count) then\r\n  begin\r\n    raise Exception.Create('Index out of bounds in list read access');\r\n  end;\r\n\r\n  if Index < Count then\r\n    Result := TTreeNode(inherited Items[Index])\r\n  else\r\n    Result := nil;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TDbgList.SetItemsEx(Index: Integer; const Value: TTreeNode);\r\nbegin\r\n  if (Index >= Count) then\r\n  begin\r\n    raise Exception.Create('Index out of bounds in list write access');\r\n  end;\r\n  if Index < Count then\r\n    inherited Items[Index] := value;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\n{ TTreeNode }\r\n\r\nconstructor TTreeNode.Create(AOwner: TTreeNodes);\r\nbegin\r\n  inherited Create;\r\n  FOwner := AOwner;\r\n  FShowText := true;\r\n  FNodeType := ntText;\r\n  FChecked := False;\r\n  FIsExpanded := False;\r\n  FTag := 0;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\ndestructor TTreeNode.Destroy;\r\nvar\r\n  N, PN, NN: TTreeNode;\r\n  i: Integer;\r\nbegin\r\n  FDeleting := True;\r\n\r\n  DeleteChildren;\r\n\r\n  N := Parent;\r\n  if (((N <> nil) and (not N.Deleting)) or (N = nil)) and (not Owner.FDeleting) and Assigned(Owner) and Assigned(Owner.Owner) and not (csDestroying in Owner.Owner.ComponentState) then\r\n  begin\r\n    PN := getPrevSibling;\r\n    NN := getNextSibling;\r\n\r\n    if not Assigned(NN) then\r\n    begin\r\n      if IsFirstNode then\r\n        Owner.FFirstNode := nil\r\n      else if Assigned(Parent) and IsFirstChild then\r\n        Parent.FFirstChild := nil\r\n      else\r\n      begin\r\n        if Assigned(PN) then\r\n          PN.FNextSibling := nil;\r\n      end;\r\n    end\r\n    else if not Assigned(PN) then\r\n    begin\r\n      if IsFirstNode then\r\n      begin\r\n        Owner.FFirstNode := NN;\r\n        NN.FPrevSibling := PN;\r\n      end\r\n      else if Assigned(Parent) and IsFirstChild then\r\n        Parent.FFirstChild := NN;\r\n    end\r\n    else\r\n    begin\r\n      PN.FNextSibling := NN;\r\n      NN.FPrevSibling := PN;\r\n    end;\r\n  end;\r\n\r\n  if not Assigned(Parent) then\r\n  begin\r\n    i := Owner.FNodeList.IndexOf(Self);\r\n    if (i >= 0) then\r\n    begin\r\n      Owner.FNodeList.Delete(i);\r\n    end;\r\n  end;\r\n\r\n  Data := nil;\r\n  inherited Destroy;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TTreeNode.Expand(Recurse: boolean);\r\nvar\r\n  i: integer;\r\nbegin\r\n  Expanded := true;\r\n\r\n  if recurse then\r\n  begin\r\n    for i := 0 to Count - 1 do\r\n      Item[i].Expand(Recurse);\r\n  end;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNode.HasAsParent(Value: TTreeNode): Boolean;\r\nbegin\r\n  if Value <> Nil then\r\n  begin\r\n    if Parent = nil then Result := False\r\n    else if Parent = Value then Result := True\r\n    else Result := Parent.HasAsParent(Value);\r\n  end\r\n  else Result := True;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TTreeNode.SetTag(const Value: Integer);\r\nbegin\r\n  FTag := Value;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TTreeNode.SetText(const S: string);\r\nbegin\r\n  if not Deleting and (S <> Text) then\r\n  begin\r\n    FText := S;\r\n  end;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TTreeNode.SetURL(const Value: string);\r\nbegin\r\n  FURL := Value;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TTreeNode.UnSelect;\r\nbegin\r\n  FSelected := false;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TTreeNode.Select;\r\nbegin\r\n  FSelected := true;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TTreeNode.SetChecked(const Value: boolean);\r\nbegin\r\n  FChecked := Value;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TTreeNode.SetData(Value: TObject);\r\nbegin\r\n  if not Deleting and (Value <> Data) then\r\n  begin\r\n    FData := Value;\r\n  end;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TTreeNode.SetHint(const Value: string);\r\nbegin\r\n  FHint := Value;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TTreeNode.SetImageCollapsedURL(const Value: string);\r\nbegin\r\n  FImageCollapsedURL := Value;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TTreeNode.SetImageURL(const Value: string);\r\nbegin\r\n  FImageURL := Value;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TTreeNode.SetIsExpanded(const Value: Boolean);\r\nbegin\r\n  if (FIsExpanded <> Value) then\r\n  begin\r\n    FIsExpanded := Value;\r\n    if Assigned(FOwner) then\r\n      if Assigned(FOwner.OnExpandedChange) then\r\n        FOwner.OnExpandedChange(FOwner, Self);\r\n  end;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TTreeNode.Collapse(Recurse: boolean);\r\nvar\r\n  i: integer;\r\nbegin\r\n  Expanded := false;\r\n\r\n  if recurse then\r\n  begin\r\n    for i := 0 to Count - 1 do\r\n      Item[i].Collapse(Recurse);\r\n  end;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNode.CompareCount(CompareMe: Integer): Boolean;\r\nvar\r\n  Count: integer;\r\n  Node: TTreeNode;\r\nBegin\r\n  Count := 0;\r\n  Result := False;\r\n  Node := GetFirstChild;\r\n  while Node <> nil do\r\n  begin\r\n    Inc(Count);\r\n    Node := Node.GetNextChild(Node);\r\n    if Count > CompareMe then\r\n      Exit;\r\n  end;\r\n  if Count = CompareMe then\r\n    Result := True;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNode.GetHasChildren: Boolean;\r\nbegin\r\n  Result := Assigned(FFirstChild);\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNode.GetParent: TTreeNode;\r\nbegin\r\n  Result := FParentNode;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNode.GetNextSibling: TTreeNode;\r\nbegin\r\n  Result := FNextSibling;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNode.GetPrevSibling: TTreeNode;\r\nbegin\r\n  Result := FPrevSibling;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNode.GetNext: TTreeNode;\r\nvar\r\n  p: TTreeNode;\r\nbegin\r\n  Result := nil;\r\n\r\n  if Count > 0 then\r\n    Result := Item[0]\r\n  else\r\n  begin\r\n    Result := GetNextSibling;\r\n    if not Assigned(Result) then\r\n    begin\r\n      p := Self;\r\n      repeat\r\n        p := p.GetParent;\r\n        if Assigned(p) then\r\n          Result := p.GetNextSibling;\r\n      until not Assigned(p) or Assigned(Result);\r\n    end;\r\n  end;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNode.GetNextChild(Value: TTreeNode): TTreeNode;\r\nbegin\r\n  if Value <> nil then Result := Value.GetNextSibling\r\n  else Result := nil;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNode.GetPrev: TTreeNode;\r\nvar\r\n  cn: TTreeNode;\r\nbegin\r\n  Result := GetPrevSibling;\r\n\r\n  if Assigned(Result) then\r\n  begin\r\n    cn := Result;\r\n\r\n    repeat\r\n      if cn.Count > 0 then\r\n      begin\r\n        Result := cn.Item[cn.Count - 1];\r\n        cn := Result;\r\n      end;\r\n\r\n    until cn.Count = 0;\r\n  end\r\n  else\r\n    Result := GetParent;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNode.GetPrevChild(Value: TTreeNode): TTreeNode;\r\nbegin\r\n  if Value <> nil then Result := Value.GetPrevSibling\r\n  else Result := nil;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNode.GetFirstChild: TTreeNode;\r\nbegin\r\n  Result := FFirstChild;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNode.GetLastChild: TTreeNode;\r\nvar\r\n  Node: TTreeNode;\r\nbegin\r\n  Result := GetFirstChild;\r\n  if Result <> nil then\r\n  begin\r\n    Node := Result;\r\n    repeat\r\n      Result := Node;\r\n      Node := Result.GetNextSibling;\r\n    until Node = nil;\r\n  end;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNode.GetIndex: Integer;\r\nvar\r\n  Node: TTreeNode;\r\nbegin\r\n  Result := -1;\r\n  Node := Self;\r\n//  while Node <> nil do\r\n  while Assigned(Node) do\r\n  begin\r\n    Inc(Result);\r\n    Node := Node.GetPrevSibling;\r\n  end;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNode.GetItem(Index: Integer): TTreeNode;\r\nbegin\r\n  Result := GetFirstChild;\r\n  while (Result <> nil) and (Index > 0) do\r\n  begin\r\n    Result := GetNextChild(Result);\r\n    Dec(Index);\r\n  end;\r\n  if Result = nil then raise Exception.Create('Invalid index');\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TTreeNode.SetItem(Index: Integer; Value: TTreeNode);\r\nbegin\r\n  item[Index].Assign(Value);\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TTreeNode.SetNodeType(const Value: TNodeType);\r\nbegin\r\n  FNodeType := Value;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TTreeNode.SetSelected(const Value: boolean);\r\nbegin\r\n  if (FSelected <> Value) then\r\n  begin\r\n    FSelected := Value;\r\n    FOwner.SelectionChange(Self, Value);\r\n  end;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TTreeNode.SetShowText(const Value: Boolean);\r\nbegin\r\n  FShowText := Value;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNode.IndexOf(Value: TTreeNode): Integer;\r\nvar\r\n  Node: TTreeNode;\r\nbegin\r\n  Result := -1;\r\n  Node := GetFirstChild;\r\n  while (Node <> nil) do\r\n  begin\r\n    Inc(Result);\r\n    if Node = Value then Break;\r\n    Node := GetNextChild(Node);\r\n  end;\r\n  if Node = nil then Result := -1;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNode.GetAbsoluteIndex: Integer;\r\nvar\r\n  Node: TTreeNode;\r\nbegin\r\n  if IsFirstNode then\r\n    Result := 0\r\n  else\r\n  begin\r\n    Result := -1;\r\n    Node := Self;\r\n    while Node <> nil do\r\n    begin\r\n      Inc(Result);\r\n      Node := Node.GetPrev;\r\n    end;\r\n  end;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNode.GetCount: Integer;\r\nvar\r\n  Node: TTreeNode;\r\nbegin\r\n  Result := 0;\r\n  Node := GetFirstChild;\r\n  while Assigned(Node) do\r\n  begin\r\n    Inc(Result);\r\n    Node := Node.GetNextChild(Node);\r\n  end;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNode.IsFirstNode: Boolean;\r\nbegin\r\n  Result := Self = Owner.FFirstNode; // not Deleting and (Parent = nil) and (GetPrevSibling = nil);\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNode.IsFirstChild: Boolean;\r\nbegin\r\n  Result := IsFirstNode or (Assigned(Parent) and (Parent.getFirstChild = Self));\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNode.GetLevel: Integer;\r\nvar\r\n  Node: TTreeNode;\r\nbegin\r\n  Result := 0;\r\n  Node := Parent;\r\n  while Node <> nil do\r\n  begin\r\n    Inc(Result);\r\n    Node := Node.Parent;\r\n  end;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TTreeNode.Delete;\r\nbegin\r\n  if not Deleting then\r\n    Free;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TTreeNode.DeleteChildren;\r\nvar\r\n  ChildList: TDbgList;\r\n  N: TTreeNode;\r\n  i: Integer;\r\nbegin\r\n  ChildList := TDbgList.Create;\r\n  N := GetFirstChild;\r\n  if N <> nil then\r\n  begin\r\n    repeat\r\n      ChildList.Add(N);\r\n      N := N.GetNextSibling;\r\n    until N = nil;\r\n  end;\r\n\r\n  for i := ChildList.Count - 1 downto 0 do\r\n  begin\r\n    N := ChildList[i];\r\n    N.Free;\r\n    ChildList[i].Delete;\r\n  end;\r\n  ChildList.Free;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNode.AddChild(const S: string): TTreeNode;\r\nbegin\r\n  Result := AddChild(S, nil);\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNode.AddChild(const S: string; Data: TObject): TTreeNode;\r\nvar\r\n  N: TTreeNode;\r\nbegin\r\n  N := GetLastChild;\r\n  if Assigned(N) then\r\n    Result := Owner.InsertNode(nil, N, False)\r\n  else\r\n    Result := Owner.InsertNode(Self, nil, False);\r\n  Result.Text := S;\r\n  Result.Data := Data;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNode.AddFirstChild(const S: string): TTreeNode;\r\nbegin\r\n  Result := AddFirstChild(S, nil);\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNode.AddFirstChild(const S: string; Data: TObject): TTreeNode;\r\nbegin\r\n  if not Assigned(FFirstChild) then\r\n    Result := Owner.InsertNode(Self, nil, True)\r\n  else\r\n    Result := Owner.InsertNode(nil, FFirstChild, True);\r\n  Result.Text := S;\r\n  Result.Data := Data;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TTreeNode.Assign(Source: TPersistent);\r\nvar\r\n  Node: TTreeNode;\r\nbegin\r\n  if not Deleting and (Source is TTreeNode) then\r\n  begin\r\n    Node := TTreeNode(Source);\r\n    Text := Node.Text;\r\n    Data := Node.Data;\r\n    ShowText := Node.ShowText;\r\n    NodeType := Node.NodeType;\r\n    Checked := Node.Checked;\r\n    URL := Node.URL;\r\n    Hint := Node.Hint;\r\n    ImageURL := Node.ImageURL;\r\n    ImageCollapsedURL := Node.ImageCollapsedURL;\r\n    Tag := Node.Tag;\r\n    FIsExpanded := Node.Expanded;\r\n  end\r\n  else\r\n    inherited Assign(Source);\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNode.IsEqual(Node: TTreeNode): Boolean;\r\nbegin\r\n  Result := (Text = Node.Text) and (Data = Node.Data);\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n(*\r\nprocedure TTreeNode.ReadData(Stream: TStream; var Info: TNodeDataInfo);\r\nvar\r\n  I, Size, ItemCount, SzM: Integer;\r\n  LNode: TTreeNode;\r\n  s: string;\r\nbegin\r\n  Stream.ReadBuffer(Size, SizeOf(Size));\r\n  Stream.ReadBuffer(Info, SizeOf(TNodeDataInfo));\r\n\r\n  {$IFDEF DELPHI_UNICODE}\r\n  SzM := 2;\r\n  {$ENDIF}\r\n\r\n  {$IFNDEF DELPHI_UNICODE}\r\n  SzM := 1;\r\n  {$ENDIF}\r\n\r\n  SetLength(S, Info.TextLen);\r\n  Stream.ReadBuffer(S[1], SzM * Info.TextLen);\r\n  Text := S;\r\n\r\n  SetLength(S, Info.HintLen);\r\n  Stream.ReadBuffer(S[1], SzM * Info.HintLen);\r\n  Hint := S;\r\n\r\n  SetLength(S, Info.URLLen);\r\n  Stream.ReadBuffer(S[1], SzM * Info.URLLen);\r\n  URL := S;\r\n\r\n  SetLength(S, Info.ImageURLLen);\r\n  Stream.ReadBuffer(S[1], SzM * Info.ImageURLLen);\r\n  ImageURL := S;\r\n\r\n  SetLength(S, Info.ImageCollapsedURLLen);\r\n  Stream.ReadBuffer(S[1], SzM * Info.ImageCollapsedURLLen);\r\n  ImageCollapsedURL := S;\r\n\r\n  NodeType := Info.NodeType;\r\n  Checked := Info.Checked;\r\n  Tag := Info.Tag;\r\n  IsExpanded := Info.IsExpanded;\r\n\r\n  ItemCount := Info.Count;\r\n  for I := 0 to ItemCount - 1 do\r\n  begin\r\n    LNode := AddChild(''); //Owner.Add(Self, '');\r\n    LNode.FParentNode := Self;\r\n    LNode.ReadData(Stream, Info);\r\n    //Owner.Owner.Added(LNode);\r\n  end;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TTreeNode.WriteData(Stream: TStream; var Info: TNodeDataInfo);\r\nvar\r\n  I, Size, ItemCount, SzM: Integer;\r\nbegin\r\n  //L := Length(Text);\r\n  //if L > 255 then L := 255;\r\n  //Size := SizeOf(TNodeInfo) + L - 255;\r\n\r\n  //L := Min(255, Length(Text)) + Min(255, Length(URL)) + Min(255, Length(Hint)) + Min(255, Length(ImageURL)) + Min(255, Length(ImageCollapsedURL));\r\n  //Size := SizeOf(TNodeInfo) + L - 255 * 5;\r\n\r\n  {$IFDEF DELPHI_UNICODE}\r\n  SzM := 2;\r\n  {$ENDIF}\r\n\r\n  {$IFNDEF DELPHI_UNICODE}\r\n  SzM := 1;\r\n  {$ENDIF}\r\n\r\n  Info.TextLen := Min(255, Length(Text));\r\n  Info.HintLen := Min(255, Length(Hint));\r\n  Info.URLLen := Min(255, Length(URL));\r\n  Info.ImageURLLen := Min(255, Length(ImageURL));\r\n  Info.ImageCollapsedURLLen := Min(255, Length(ImageCollapsedURL));\r\n\r\n  Info.NodeType := NodeType;\r\n  Info.Checked := Checked;\r\n  Info.Tag := Tag;\r\n  Info.IsExpanded := IsExpanded;\r\n\r\n  ItemCount := Count;\r\n  Info.Count := ItemCount;\r\n\r\n  Size := SizeOf(TNodeDataInfo) + (Info.TextLen + Info.HintLen + Info.URLLen + Info.ImageURLLen + Info.ImageCollapsedURLLen);\r\n\r\n  Stream.WriteBuffer(Size, SizeOf(Size));\r\n  Stream.WriteBuffer(Info, SizeOf(TNodeDataInfo));\r\n  Stream.WriteBuffer(Text[1], SzM * Info.TextLen);\r\n  Stream.WriteBuffer(Hint[1], SzM * Info.HintLen);\r\n  Stream.WriteBuffer(URL[1], SzM * Info.URLLen);\r\n  Stream.WriteBuffer(ImageURL[1], SzM * Info.ImageURLLen);\r\n  Stream.WriteBuffer(ImageCollapsedURL[1], SzM * Info.ImageCollapsedURLLen);\r\n\r\n  for I := 0 to ItemCount - 1 do\r\n    Item[I].WriteData(Stream, Info);\r\nend;\r\n*)\r\n//------------------------------------------------------------------------------\r\n\r\n{ TTreeNodes }\r\n\r\nconstructor TTreeNodes.Create(AOwner: TComponent);\r\nbegin\r\n  inherited Create;\r\n  FOwner := AOwner;\r\n  FFirstNode := nil;\r\n  FNodeList :=  TDbgList.Create;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNodes.CreateNode: TTreeNode;\r\nvar\r\n  LClass: TTreeNodeClass;\r\nbegin\r\n  LClass := TTreeNode;\r\n  Result := LClass.Create(Self);\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\ndestructor TTreeNodes.Destroy;\r\nbegin\r\n  FDeleting := True;\r\n  Clear;\r\n  FNodeList.Free;\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TTreeNodes.EndUpdate;\r\nbegin\r\n//\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TTreeNodes.Delete(Node: TTreeNode);\r\nbegin\r\n  Node.Delete;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TTreeNodes.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nprocedure TTreeNodes.Clear;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  for i := FNodeList.Count - 1 downto 0 do\r\n    FNodeList[i].Delete;\r\n\r\n  FNodeList.Clear;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNodes.GetSiblingCount: Integer;\r\nbegin\r\n  Result := FNodeList.Count;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNodes.GetSiblingFromIndex(Index: integer): TTreeNode;\r\nbegin\r\n  Result := nil;\r\n  if (Index >= 0) and (Index < FNodeList.Count) then\r\n    Result := FNodeList[Index];\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNodes.GetCount: Integer;\r\nvar\r\n  i: integer;\r\n\r\n  function GetChildCount(tn: TTreeNode): integer;\r\n  var\r\n    j: integer;\r\n  begin\r\n    Result := tn.Count;\r\n    for j := 0 to tn.Count - 1 do\r\n    begin\r\n      Result := Result + GetChildCount(tn.Item[j]);\r\n    end;\r\n  end;\r\n\r\nbegin\r\n  Result := FNodeList.Count;\r\n\r\n  for i := 0 to FNodeList.Count - 1 do\r\n  begin\r\n    Result := Result + GetChildCount(FNodeList.Items[i]);\r\n  end;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNodes.GetNodeFromIndex(Index: Integer): TTreeNode;\r\nvar\r\n  i,idx: integer;\r\n  child: TTreeNode;\r\nbegin\r\n  Result := nil;\r\n  idx := 0;\r\n\r\n  for i := 0 to FNodeList.Count - 1 do\r\n  begin\r\n    child := FNodeList.Items[i];\r\n    repeat\r\n      if (Index = idx) then\r\n      begin\r\n        Result := child;\r\n        Exit;\r\n      end;\r\n      child := child.GetNext;\r\n      inc(idx);\r\n    until (child = nil);\r\n  end;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TTreeNodes.SelectionChange(Node: TTreeNode; IsSelected: boolean);\r\nbegin\r\n  if Assigned(OnSelectionChange) then\r\n    OnSelectionChange(Self, Node, IsSelected);\r\nend;\r\n\r\nprocedure TTreeNodes.SetItem(Index: Integer; Value: TTreeNode);\r\nbegin\r\n  if (Index >= 0) and (Index < FNodeList.Count) then\r\n    GetNodeFromIndex(Index).Assign(Value);\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNodes.Insert(Sibling: TTreeNode; const S: string): TTreeNode;\r\nbegin\r\n  Result := InsertObject(Sibling, S, nil);\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNodes.InsertObject(Sibling: TTreeNode; const S: string;\r\n  Data: TObject): TTreeNode;\r\nbegin\r\n  Result := InsertNode(nil, Sibling, True);\r\n  if Assigned(Result) then\r\n  begin\r\n    Result.Text := S;\r\n    Result.Data := Data;\r\n  end;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNodes.IsVeryFirstNode(Node: TTreeNode): Boolean;\r\nbegin\r\n  Result := Assigned(Node) and (Node = FFirstNode);  \r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNodes.GetFirstNode: TTreeNode;\r\nbegin\r\n  Result := FFirstNode;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNodes.GetLastNode: TTreeNode;\r\nbegin\r\n  Result := FFirstNode;\r\n  if Assigned(Result) then\r\n    while (Result.getNextSibling <> nil) do\r\n      Result := Result.getNextSibling;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNodes.Add(Sibling: TTreeNode; const S: string): TTreeNode;\r\nbegin\r\n  Result := Add(Sibling, S, nil);\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNodes.Add(Sibling: TTreeNode; const S: string; Data: TObject): TTreeNode;\r\nbegin\r\n  Result := InsertNode(Sibling, GetLastNode, False);\r\n  Result.Text := S;\r\n  Result.Data := Data;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNodes.Add(const S: string): TTreeNode;\r\nbegin\r\n  Result := Add(S, nil);\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNodes.Add(const S: string; Data: TObject): TTreeNode;\r\nbegin\r\n  Result := InsertNode(nil, GetLastNode, False);\r\n  Result.Text := S;\r\n  Result.Data := Data;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNodes.AddChild(Parent: TTreeNode; const S: string): TTreeNode;\r\nbegin\r\n  if Parent = nil then\r\n    Result := Add(S, nil)\r\n  else\r\n    Result := AddChild(Parent, S, nil);\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNodes.AddChild(Parent: TTreeNode;\r\n  const S: string; Data: TObject): TTreeNode;\r\nbegin\r\n  Result := nil;\r\n\r\n  if Assigned(Parent) then\r\n    Result := Parent.AddChild(S, Data)\r\n  else\r\n    Result := Add(S, Data);\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNodes.AddChildFirst(Parent: TTreeNode;\r\n  const S: string): TTreeNode;\r\nbegin\r\n  Result := AddChildFirst(Parent, S, nil);\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNodes.AddChildFirst(Parent: TTreeNode;\r\n  const S: string; Data: TObject): TTreeNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(Parent) then\r\n    Result := Parent.AddFirstChild(S, Data)\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNodes.AddFirst(const S: string): TTreeNode;\r\nbegin\r\n  Result := AddFirst(nil, S);\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNodes.AddFirst(Data: TObject; const S: string): TTreeNode;\r\nbegin\r\n  if not Assigned(FFirstNode) then\r\n  begin\r\n    //Result := CreateNode;\r\n    //FFirstNode := Result\r\n    Result := InsertNode(nil, nil, True);\r\n  end\r\n  else\r\n  begin\r\n    Result := InsertNode(nil, FFirstNode, True);\r\n  end;\r\n  Result.Text := S;\r\n  Result.Data := Data;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nfunction TTreeNodes.InsertNode(ParentNode: TTreeNode; DesNode: TTreeNode; InsertBefore: Boolean): TTreeNode;\r\nvar\r\n  N: TTreeNode;\r\nbegin\r\n  Result := nil;\r\n  if not Assigned(DesNode) then\r\n  begin\r\n    if Assigned(ParentNode) then\r\n    begin\r\n      N := ParentNode.GetLastChild;\r\n      if Assigned(N) then\r\n      begin\r\n        InsertNode(nil, N, False);\r\n        Exit;\r\n      end\r\n      else  // First Child Node\r\n      begin\r\n        Result := CreateNode;\r\n        ParentNode.FFirstChild := Result;\r\n        Result.FParentNode := ParentNode;\r\n        Exit;\r\n        {\r\n        if Assigned(ParentNode.GetNextSibling) then\r\n           FNodeList.Insert(ParentNode.GetNextSibling.Index, Result)\r\n        else\r\n          FNodeList.Add(Result);\r\n        }\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      if not Assigned(FFirstNode) then\r\n      begin\r\n        Result := CreateNode;\r\n        FFirstNode := Result;  // very first Node\r\n        FNodeList.Add(Result);\r\n      end;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    Result := CreateNode;\r\n    if InsertBefore then\r\n    begin\r\n      if IsVeryFirstNode(DesNode) then\r\n      begin\r\n        FFirstNode := Result;\r\n        Result.FNextSibling := DesNode;\r\n        DesNode.FPrevSibling := Result;\r\n        FNodeList.Insert(0,Result);\r\n      end\r\n      else\r\n      begin\r\n//fix: if DesNode is not the first node in a treeview, but a first child in a parent node (with DesNode.FPrevSibling = nil),\r\n//then execution continues on \"else\" branch and DesNode.Parent.FFirstChild does not change\r\n//- it remains pointing to DesNode, not on newly inserted node\r\n//        if DesNode.IsFirstNode and Assigned(DesNode.Parent) then\r\n        if DesNode.IsFirstChild and Assigned(DesNode.Parent) then\r\n        begin\r\n          DesNode.Parent.FFirstChild := Result;\r\n          Result.FNextSibling := DesNode;\r\n          DesNode.FPrevSibling := Result;\r\n          Result.FParentNode := DesNode.Parent;\r\n        end\r\n        else\r\n        begin\r\n          Result.FPrevSibling := DesNode.FPrevSibling;\r\n          Result.FNextSibling := DesNode;\r\n          DesNode.FPrevSibling := Result;\r\n          Result.FParentNode := DesNode.Parent;\r\n          if Assigned(Result.FPrevSibling) then\r\n            Result.FPrevSibling.FNextSibling := Result;\r\n        end;\r\n      end;\r\n    end\r\n    else // Insert after DesNode\r\n    begin\r\n      Result.FNextSibling := DesNode.FNextSibling;\r\n      Result.FPrevSibling := DesNode;\r\n      DesNode.FNextSibling := Result;\r\n      if Assigned(Result.FNextSibling) then\r\n        Result.FNextSibling.FPrevSibling := Result;\r\n      Result.FParentNode := DesNode.Parent;\r\n      if not Assigned(DesNode.Parent) then  // Root Node\r\n        FNodeList.Add(Result);\r\n    end;\r\n  end;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TTreeNodes.Assign(Source: TPersistent);\r\nvar\r\n//  TreeNodes: TTreeNodes;\r\n//  MemStream: TMemoryStream;\r\nbegin\r\n\r\n  if Source is TTreeNodes then\r\n  begin\r\n//    TreeNodes := TTreeNodes(Source);\r\n    Clear;\r\n    (*\r\n    MemStream := TMemoryStream.Create;\r\n    try\r\n      TreeNodes.WriteData(MemStream);\r\n      MemStream.Position := 0;\r\n      ReadData(MemStream);\r\n    finally\r\n      MemStream.Free;\r\n    end;\r\n    *)\r\n  end\r\n  else inherited Assign(Source);\r\nend;\r\n\r\nprocedure TTreeNodes.BeginUpdate;\r\nbegin\r\n//\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n(*\r\nprocedure TTreeNodes.DefineProperties(Filer: TFiler);\r\n\r\n  function WriteNodes: Boolean;\r\n  var\r\n    I: Integer;\r\n    Nodes: TTreeNodes;\r\n  begin\r\n    Nodes := TTreeNodes(Filer.Ancestor);\r\n    if Nodes = nil then\r\n      Result := Count > 0\r\n    else if Nodes.Count <> Count then\r\n      Result := True\r\n    else\r\n    begin\r\n      Result := False;\r\n      for I := 0 to Count - 1 do\r\n      begin\r\n        Result := not Item[I].IsEqual(Nodes[I]);\r\n        if Result then\r\n          Break;\r\n      end\r\n    end;\r\n  end;\r\n\r\nbegin\r\n  inherited DefineProperties(Filer);\r\n  Filer.DefineBinaryProperty('Data', ReadData, WriteData, WriteNodes);\r\nend;\r\n*)\r\n//------------------------------------------------------------------------------\r\n(*\r\nprocedure TTreeNodes.ReadData(Stream: TStream);\r\nvar\r\n  I, Count: Integer;\r\n  NodeInfo: TNodeDataInfo;\r\n  LNode: TTreeNode;\r\nbegin\r\n  FReading := True;\r\n  try\r\n    Clear;\r\n    Stream.ReadBuffer(Count, SizeOf(Count));\r\n    for I := 0 to Count - 1 do\r\n    begin\r\n      LNode := Add('');\r\n      LNode.ReadData(Stream, NodeInfo);\r\n    end;\r\n  finally\r\n    FReading := False;\r\n  end;\r\nend;\r\n\r\n//------------------------------------------------------------------------------\r\n\r\nprocedure TTreeNodes.WriteData(Stream: TStream);\r\nvar\r\n  I: Integer;\r\n  Node: TTreeNode;\r\n  NodeInfo: TNodeDataInfo;\r\nbegin\r\n  I := 0;\r\n  Node := GetFirstNode;\r\n  while Node <> nil do\r\n  begin\r\n    Inc(I);\r\n    Node := Node.GetNextSibling;\r\n  end;\r\n  Stream.WriteBuffer(I, SizeOf(I));\r\n  Node := GetFirstNode;\r\n  while Node <> nil do\r\n  begin\r\n    Node.WriteData(Stream, NodeInfo);\r\n    Node := Node.GetNextSibling;\r\n  end;\r\nend;\r\n*)\r\n//------------------------------------------------------------------------------\r\n\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.Buttons;\r\n\r\n{$DEFINE NOPP}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, SysUtils, WEBLib.Controls, Web, WEBLib.Graphics, WEBLib.StdCtrls,\r\n  WEBlib.ComCtrls, WEBLib.ExtCtrls, WEBLib.Forms, WEBLib.Menus;\r\n\r\ntype\r\n\r\n  TButtonLayout = (blGlyphLeft, blGlyphRight, blGlyphTop, blGlyphBottom);\r\n\r\n  TCustomSpeedButton = class(TWebCustomControl)\r\n  private\r\n    FMaterialGlyph: TMaterialGlyph;\r\n    FColor: TColor;\r\n    FIntColor: TColor;\r\n    FDown: boolean;\r\n    FFlat: boolean;\r\n    FGroupIndex: integer;\r\n    FAllowAllUp: boolean;\r\n    FGlyph: TURLPicture;\r\n    FLayout: TButtonLayout;\r\n    FGlyphURL: String;\r\n    FMaterialGlyphSize: integer;\r\n    FMaterialGlyphColor: TColor;\r\n    FMaterialGlyphType: TMaterialGlyphType;\r\n    FGlyphSize: integer;\r\n    procedure SetMaterialGlyph(const AValue: TMaterialGlyph);\r\n    procedure SetColorEx(const AValue: TColor);\r\n    procedure SetIntColor(const AValue: TColor);\r\n    procedure SetGroupIndex(const AValue: integer);\r\n    procedure SetDown(const AValue: boolean);\r\n    procedure SetFlat(const Value: boolean);\r\n    procedure SetGlyph(const Value: TURLPicture);\r\n    procedure SetGlyphURL(const Value: String);\r\n    procedure SetMaterialGlyphSize(const Value: integer);\r\n    procedure SetMaterialGyphColor(const Value: TColor);\r\n    procedure SetMaterialGlyphType(const Value: TMaterialGlyphType);\r\n    procedure SetGlyphSize(const Value: integer);\r\n  protected\r\n    procedure SetEnabled(Value: Boolean); override;\r\n    procedure SetCaption(const AValue: string); override;\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElement; override;\r\n    procedure UpdateElementVisual; override;\r\n    procedure UpdateGroup; virtual;\r\n    procedure DoMouseLeave; override;\r\n    procedure DoMouseEnter; override;\r\n    procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X,Y: Integer); override;\r\n    procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X,Y: Integer); override;\r\n    procedure GlyphChanged(Sender: TObject);\r\n    property AllowAllUp: boolean read FAllowAllUp write FAllowAllUp;\r\n    property Color: TColor read FColor write SetColorEx default clNone;\r\n    property IntColor: TColor read FIntColor write SetIntColor;\r\n    property Down: boolean read FDown write SetDown;\r\n    property Flat: boolean read FFlat write SetFlat default false;\r\n    property Glyph: TURLPicture read FGlyph write SetGlyph;\r\n    property GlyphURL: String read FGlyphURL write SetGlyphURL;\r\n    property GlyphSize: integer read FGlyphSize write SetGlyphSize default 0;\r\n    property GroupIndex: integer read FGroupIndex write SetGroupIndex;\r\n    property Layout: TButtonLayout read FLayout write FLayout default blGlyphLeft;\r\n    property MaterialGlyph: TMaterialGlyph read FMaterialGlyph write SetMaterialGlyph;\r\n    property MaterialGlyphColor: TColor read FMaterialGlyphColor write SetMaterialGyphColor default clNone;\r\n    property MaterialGlyphSize: integer read FMaterialGlyphSize write SetMaterialGlyphSize default 18;\r\n    property MaterialGlyphType: TMaterialGlyphType read FMaterialGlyphType write SetMaterialGlyphType default mgNormal;\r\n    procedure InitCSSLibrary(ALibrary: TCSSLibrary); override;\r\n  public\r\n    destructor Destroy; override;\r\n    procedure CreateInitialize; override;\r\n    function CanFocus: Boolean; override;\r\n  end;\r\n\r\n  TSpeedButton = class(TCustomSpeedButton)\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property AllowAllUp;\r\n    property Caption;\r\n    property Color;\r\n    property Down;\r\n    property ElementClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Flat;\r\n    property Font;\r\n    property Glyph;\r\n    property GlyphURL;\r\n    property GlyphSize;\r\n    property GroupIndex;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property Layout;\r\n    property Margins;\r\n    property MaterialGlyph;\r\n    property MaterialGlyphColor;\r\n    property MaterialGlyphSize;\r\n    property MaterialGlyphType;\r\n    property ParentFont;\r\n    property PopupMenu;\r\n    property ShowHint;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnEnter;\r\n    property OnExit;\r\n  end;\r\n\r\n\r\n  TWebSpeedButton = class(TSpeedButton);\r\n\r\n  TCustomBitBtn = class(TCustomControl)\r\n  private\r\n    FMaterialGlyph: TMaterialGlyph;\r\n    FLayout: TButtonLayout;\r\n    FFlat: boolean;\r\n    FGlyph: TURLPicture;\r\n    FColor: TColor;\r\n    FIntColor: TColor;\r\n    FAlignment: TAlignment;\r\n    FGlyphURL: String;\r\n    FMaterialGlyphSize: integer;\r\n    FMaterialGlyphColor: TColor;\r\n    FMaterialGlyphType: TMaterialGlyphType;\r\n    FGlyphSize: integer;\r\n    FModalResult: TModalResult;\r\n    FDefault: boolean;\r\n    FCancel: boolean;\r\n    procedure SetFlat(const Value: boolean);\r\n    procedure SetGlyph(const Value: TURLPicture);\r\n    procedure SetLayout(const Value: TButtonLayout);\r\n    procedure SetMaterialGlyph(const Value: TMaterialGlyph);\r\n    procedure SetColorEx(const Value: TColor);\r\n    procedure SetIntColor(const Value: TColor);\r\n    procedure SetAlignment(const Value: TAlignment);\r\n    procedure SetGlyphURL(const Value: String);\r\n    procedure SetMaterialGlyphSize(const Value: integer);\r\n    procedure SetMaterialGyphColor(const Value: TColor);\r\n    procedure SetMaterialGlyphType(const Value: TMaterialGlyphType);\r\n    procedure SetGlyphSize(const Value: integer);\r\n  protected\r\n    procedure SetCaption(const AValue: string); override;\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElement; override;\r\n    procedure UpdateElementVisual; override;\r\n    procedure Click; override;\r\n    procedure GlyphChanged(Sender: TObject);\r\n    procedure HandleKeyPreview(Key: Word); override;\r\n    property Alignment: TAlignment read FAlignment write SetAlignment default taCenter;\r\n    property Cancel: boolean read FCancel write FCancel default false;\r\n    property Color: TColor read FColor write SetColorEx;\r\n    property Default: boolean read FDefault write FDefault default false;\r\n    property IntColor: TColor read FIntColor write SetIntColor;\r\n    property Flat: boolean read FFlat write SetFlat default false;\r\n    property Layout: TButtonLayout read FLayout write SetLayout default blGlyphLeft;\r\n    property MaterialGlyph: TMaterialGlyph read FMaterialGlyph write SetMaterialGlyph;\r\n    property MaterialGlyphColor: TColor read FMaterialGlyphColor write SetMaterialGyphColor default clNone;\r\n    property MaterialGlyphSize: integer read FMaterialGlyphSize write SetMaterialGlyphSize default 18;\r\n    property MaterialGlyphType: TMaterialGlyphType read FMaterialGlyphType write SetMaterialGlyphType default mgNormal;\r\n    property ModalResult: TModalResult read FModalResult write FModalResult default mrNone;\r\n    property Glyph: TURLPicture read FGlyph write SetGlyph;\r\n    property GlyphURL: String read FGlyphURL write SetGlyphURL;\r\n    property GlyphSize: integer read FGlyphSize write SetGlyphSize default 0;\r\n    procedure InitCSSLibrary(ALibrary: TCSSLibrary); override;\r\n  public\r\n    destructor Destroy; override;\r\n    procedure CreateInitialize; override;\r\n  end;\r\n\r\n  TBitBtn = class(TCustomBitBtn)\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Alignment;\r\n    property Anchors;\r\n    property Cancel;\r\n    property Caption;\r\n    property Color;\r\n    property Default;\r\n    property DragMode;\r\n    property ElementClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Font;\r\n    property Flat;\r\n    property Glyph;\r\n    property GlyphURL;\r\n    property GlyphSize;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property Layout;\r\n    property MaterialGlyph;\r\n    property MaterialGlyphColor;\r\n    property MaterialGlyphSize;\r\n    property MaterialGlyphType;\r\n    property ModalResult;\r\n    property ParentFont;\r\n    property ShowHint;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebBitBtn = class(TBitBtn);\r\n\r\n  TCustomToolBar = class(TCustomControl)\r\n  protected\r\n    function CreateElement: TJSElement; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    property Color default $CFCFCF;\r\n  end;\r\n\r\n  TToolBar = class(TCustomToolBar)\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property Color;\r\n    property DragMode;\r\n    property Enabled;\r\n    property ElementClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property Left;\r\n    property Margins;\r\n    property ShowHint;\r\n    property Top;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebToolBar = class(TToolBar);\r\n\r\n  TRichEditBtn = (reFont, reFontSize, reBold, reItalic, reUnderline, reStrikeThrough,\r\n    reAlignLeft, reAlignCenter, reAlignRight, reUnorderedList, reOrderedList, reForegroundColor, reBackgroundColor, reHyperlink, reImageInsert, reLineSpacing);\r\n\r\n  TRichEditButtonSet = set of TRichEditBtn;\r\n\r\n  TRichEditToolBar = class(TToolBar)\r\n  private\r\n    FBold: TSpeedButton;\r\n    FItalic: TSpeedButton;\r\n    FUnderline: TSpeedButton;\r\n    FStrikeThrough: TSpeedButton;\r\n    FAlignLeft: TSpeedButton;\r\n    FAlignCenter: TSpeedButton;\r\n    FAlignRight: TSpeedButton;\r\n    FUList: TSpeedButton;\r\n    FOList: TSpeedButton;\r\n    FURL: TSpeedButton;\r\n    FRichEdit: TRichEdit;\r\n    FFnt: TFontPicker;\r\n    FFntSize: TFontSizePicker;\r\n    FFgClr: TWebColorPicker;\r\n    FBkClr: TWebColorPicker;\r\n    FImage: TSpeedButton;\r\n    FLineSpacing: TLineSpacingPicker;\r\n    FOnSpeedButtonClick: TNotifyEvent;\r\n    FTextColor: TColor;\r\n    FBackgroundColor: TColor;\r\n    FVisibleButtons: TRichEditButtonSet;\r\n    FHints: TStrings;\r\n    FBtnID: string;\r\n    FFilePicker: TJSHTMLElement;\r\n    FPtrFileLoad: pointer;\r\n    procedure SetRichEdit(const AValue: TRichEdit);\r\n    function GetRichEdit: TRichEdit;\r\n    procedure SetTextColor(const Value: TColor);\r\n    procedure SetBackgroundColor(const Value: TColor);\r\n    procedure SetVisibleButtons(const Value: TRichEditButtonSet);\r\n    procedure SetHints(const Value: TStrings);\r\n    function HandleDoFileLoad(Event: TEventListenerEvent): Boolean; virtual;\r\n  protected\r\n    procedure Notification(AComponent: TComponent;  Operation: TOperation); override;\r\n    procedure CreateButton(var btn: TSpeedButton; BtnID, Glyph, Hint: string);\r\n    procedure HandleSpeedButtonClick(Sender: TObject); virtual;\r\n    procedure FgSelect(Sender: TObject);\r\n    procedure BkSelect(Sender: TObject);\r\n    procedure FntChange(Sender: TObject);\r\n    procedure FntSizeChange(Sender: TObject);\r\n    procedure LineSpacingChange(Sender: TObject);\r\n    procedure UpdateButtons; virtual;\r\n    procedure UpdateElement; override;\r\n    procedure Loaded; override;\r\n    procedure HandleAttributeChanged(Sender: TObject; Attributes: TSelAttributes);\r\n    procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;\r\n    function InitButtons(): boolean;\r\n    procedure SetParent(AValue: TControl); override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    property FontPicker: TFontPicker read FFnt;\r\n    property FontSizePicker: TFontSizePicker read FFntSize;\r\n    property BoldButton: TSpeedButton read FBold;\r\n    property ItalicButton: TSpeedButton read FItalic;\r\n    property UnderlineButton: TSpeedButton read FUnderline;\r\n    property StrikeThroughButton: TSpeedButton read FStrikeThrough;\r\n    property AlignLeftButton: TSpeedButton read FAlignLeft;\r\n    property AlignCenterButton: TSpeedButton read FAlignCenter;\r\n    property AlignRightButton: TSpeedButton read FAlignRight;\r\n    property UListButton: TSpeedButton read FUList;\r\n    property OListButton: TSpeedButton read FOList;\r\n    property URLButton: TSpeedButton read FURL;\r\n    property ImageButton: TSpeedButton read FImage;\r\n    property ForegroundColorPicker: TWebColorPicker read FFgClr;\r\n    property BackgroundColorPicker: TWebColorPicker read FBkClr;\r\n    property LineSpacingPicker: TLineSpacingPicker read FLineSpacing;\r\n  published\r\n    property BackgroundColor: TColor read FBackgroundColor write SetBackgroundColor default clWhite;\r\n    property Hints: TStrings read FHints write SetHints;\r\n    property RichEdit: TRichEdit read GetRichEdit write SetRichEdit;\r\n    property TextColor: TColor read FTextColor write SetTextColor default clBlack;\r\n    property VisibleButtons: TRichEditButtonSet read FVisibleButtons write SetVisibleButtons;\r\n    property OnSpeedButtonClick: TNotifyEvent read FOnSpeedButtonClick write FOnSpeedButtonClick;\r\n  end;\r\n\r\n  TWebRichEditToolBar = class(TRichEditToolBar);\r\n\r\n  TToggleButtonStyle = (tsRectangular, tsRounded);\r\n\r\n  TToggleButton = class(TCustomControl)\r\n  private\r\n    FChecked: boolean;\r\n    FLabel: TJSHTMLElement;\r\n    FInput: TJSHTMLElement;\r\n    FSlider: TJSHTMLElement;\r\n    FStyle: TToggleButtonStyle;\r\n    procedure SetStyle(const Value: TToggleButtonStyle);\r\n    function GetChecked: boolean;\r\n    procedure SetChecked(const Value: boolean);\r\n  protected\r\n    function HandleDoClick(Event: TJSMouseEvent): Boolean; override;\r\n    procedure UpdateElement; override;\r\n    procedure UpdateCSS;\r\n    function CreateElement: TJSElement; override;\r\n    procedure Loaded; override;\r\n    procedure Resize; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n  published\r\n    property Anchors;\r\n    property Checked: boolean read GetChecked write SetChecked;\r\n    property DragMode;\r\n    property ElementClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Style: TToggleButtonStyle read FStyle write SetStyle default tsRectangular;\r\n    property Visible;\r\n    property OnClick;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebToggleButton = class(TToggleButton);\r\n\r\n\r\nimplementation\r\n\r\nuses\r\n  WEBLib.WebTools, Math;\r\n\r\n// https://stackoverflow.com/questions/1720320/how-to-dynamically-create-css-class-in-javascript-and-apply\r\n// https://www.w3schools.com/howto/howto_css_switch.asp\r\n\r\ntype\r\n  TRichEditorCracker = class(TRichEdit);\r\n\r\n{ TCustomSpeedButton }\r\n\r\nprocedure TCustomSpeedButton.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FColor := clNone;\r\n  FIntColor := clNone;\r\n  FGroupIndex := 0;\r\n  FDown := false;\r\n  FFlat := false;\r\n  FGlyph := TURLPicture.Create;\r\n  FGlyph.OnChange := GlyphChanged;\r\n  FGlyph.OnDataChange := GlyphChanged;\r\n  FLayout := blGlyphLeft;\r\n  FMaterialGlyphSize := 18;\r\n  FMaterialGlyphColor := clNone;\r\n  FMaterialGlyphType := mgNormal;\r\nend;\r\n\r\nfunction TCustomSpeedButton.CanFocus: Boolean;\r\nbegin\r\n  Result := false;\r\nend;\r\n\r\nfunction TCustomSpeedButton.CreateElement: TJSElement;\r\nbegin\r\n  if FFlat then\r\n    Result := document.createElement('SPAN')\r\n  else\r\n  begin\r\n    Result := document.createElement('BUTTON');\r\n    Result['type'] := 'BUTTON';\r\n  end;\r\nend;\r\n\r\nprocedure TCustomSpeedButton.SetCaption(const AValue: string);\r\nbegin\r\n  if (Caption <> AValue) then\r\n  begin\r\n    inherited SetCaption(AValue);\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomSpeedButton.SetColorEx(const AValue: TColor);\r\nbegin\r\n  if FColor <> AValue then\r\n  begin\r\n    FColor := AValue;\r\n    FIntColor := AValue;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomSpeedButton.SetDown(const AValue: boolean);\r\nbegin\r\n  if (FDown <> AValue) then\r\n  begin\r\n    FDown := AValue;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomSpeedButton.SetEnabled(Value: Boolean);\r\nbegin\r\n  inherited;\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TCustomSpeedButton.SetFlat(const Value: boolean);\r\nbegin\r\n  if (FFlat <> Value) then\r\n  begin\r\n    FFlat := Value;\r\n    RecreateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomSpeedButton.SetIntColor(const AValue: TColor);\r\nbegin\r\n  if FIntColor <> AValue then\r\n  begin\r\n    FIntColor := AValue;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomSpeedButton.SetMaterialGlyph(const AValue: TMaterialGlyph);\r\nbegin\r\n  if FMaterialGlyph <> AValue then\r\n  begin\r\n    FMaterialGlyph := AValue;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomSpeedButton.SetMaterialGlyphSize(const Value: integer);\r\nbegin\r\n  if (Value > 0) and (Value < 100) then\r\n  begin\r\n    FMaterialGlyphSize := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomSpeedButton.SetMaterialGlyphType(const Value: TMaterialGlyphType);\r\nbegin\r\n  if FMaterialGlyphType <> Value then\r\n  begin\r\n    FMaterialGlyphType := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomSpeedButton.SetMaterialGyphColor(const Value: TColor);\r\nbegin\r\n  if (FMaterialGlyphColor <> Value) then\r\n  begin\r\n    FMaterialGlyphColor := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomSpeedButton.SetGlyph(const Value: TURLPicture);\r\nbegin\r\n  FGlyph.Assign(Value);\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TCustomSpeedButton.SetGlyphSize(const Value: integer);\r\nbegin\r\n  if (FGlyphSize <> Value) then\r\n  begin\r\n    FGlyphSize := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomSpeedButton.SetGlyphURL(const Value: String);\r\nbegin\r\n  if FGlyphURL <> Value then\r\n  begin\r\n    FGlyphURL := Value;\r\n    RecreateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomSpeedButton.SetGroupIndex(const AValue: integer);\r\nbegin\r\n  FGroupIndex := AValue;\r\nend;\r\n\r\nprocedure TCustomSpeedButton.UpdateElement;\r\nvar\r\n  s,inactive,noptr,icn,imgsrc,gs: string;\r\n  matclr,cap,acc: string;\r\nbegin\r\n  inherited;\r\n\r\n  if not IsUpdating and (MaterialGlyph <> '') then\r\n    AddControlLink('googlematerial', 'https://fonts.googleapis.com/icon?family=Material+Icons');\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    ElementHandle.style.setProperty('vertical-align','middle');\r\n\r\n//    if Visible then\r\n//      ElementHandle.style.setProperty('display','table');\r\n\r\n    ElementHandle.style.setProperty('overflow','hidden');\r\n    ElementHandle.style.setProperty('padding','0px');\r\n    ElementHandle.style.setProperty('text-align','center');\r\n\r\n    ElementHandle.style.setProperty('min-width','32px');\r\n\r\n    if FFlat and Visible then\r\n    begin\r\n      ElementHandle.style.setProperty('display','flex');\r\n      ElementHandle.style.setProperty('justify-content','center');\r\n    end;\r\n\r\n    s := '';\r\n    inactive := '';\r\n    noptr := '';\r\n\r\n    if not Enabled then\r\n      inactive := ' md-light md-inactive';\r\n\r\n    noptr := 'pointer-events:none';\r\n\r\n    if FMaterialGlyph <> '' then\r\n    begin\r\n      matclr := '';\r\n      if FMaterialGlyphColor <> clNone then\r\n      begin\r\n        if Enabled then\r\n          matclr := ';color:'+ColorToHTML(FMaterialGlyphColor)\r\n        else\r\n          matclr := ';color:'+ColorToHTML($A0A0A0);\r\n      end;\r\n\r\n      icn := '<i class=\"' + GetMaterialClass(MaterialGlyphType) + inactive+'\" style=\"'+noptr+';font-size:'+ IntToStr(FMaterialGlyphSize)+'px' + matclr+'\">' + FMaterialGlyph + '</i>';\r\n    end;\r\n\r\n    if FGlyph.Data <> '' then\r\n      imgsrc :=  'data:image/jpeg;base64,' + HexImageDecodeAsBase64(FGlyph.Data)\r\n    else\r\n    if FGlyph.FileName <> '' then\r\n      imgsrc := FGlyph.FileName\r\n    else\r\n    if FGlyphURL <> '' then\r\n      imgsrc := FGlyphURL;\r\n\r\n    gs := '';\r\n    if GlyphSize <> 0 then\r\n      gs := 'width:'+GlyphSize.ToString+'px';\r\n\r\n    if imgsrc <> '' then\r\n      icn := '<img style=\"'+noptr+';vertical-align:middle;'+gs+'\" src=\"'+ imgsrc + '\">';\r\n\r\n    if (ElementHandle.childElementCount = 0) or not IsLinked then\r\n      cap := ProcessAccelerator(Caption,acc);\r\n\r\n    if acc <> '' then\r\n      ElementHandle['accesskey'] := acc;\r\n\r\n    if TabStop then\r\n      ElementHandle['tabindex'] := inttostr(TabOrder)\r\n    else\r\n      ElementHandle['tabindex'] := '-1';\r\n\r\n    case Layout of\r\n    blGlyphLeft: s := '<table border=\"0\" align=\"center\" style=\"'+noptr+'\"><tr><td style=\"border:none\">'+icn+'</td><td style=\"border:none\">'+cap+'</td></tr></table>';\r\n    blGlyphRight:  s := '<table border=\"0\" align=\"center\" style=\"'+noptr+'\"><tr><td style=\"border:none\">'+cap+'</td><td style=\"border:none\">'+icn+'</td></tr></table>';\r\n    blGlyphTop: s := '<table border=\"0\" align=\"center\" style=\"'+noptr+'\"><tr><td style=\"border:none\">'+icn+'</td></tr><tr><td style=\"border:none\">'+cap+'</td></tr></table>';\r\n    blGlyphBottom:  s := '<table border=\"0\" align=\"center\" style=\"'+noptr+'\"><tr><td style=\"border:none\">'+cap+'</td></tr><tr><td style=\"border:none\">'+icn+'</td></tr></table>';\r\n    end;\r\n\r\n    ElementHandle.innerHTML := s;\r\n\r\n    SetHTMLElementFont(TJSHTMLElement(ElementHandle.firstChild), Font, not ((ElementClassName = '') and (ElementFont = efProperty)) );\r\n\r\n    if not IsEnabled then\r\n      TJSHTMLElement(ElementHandle).style.removeProperty('color')\r\n    else // restore color when font color is used\r\n      if (ELementFont = efProperty) and (ElementClassName = '') then\r\n      begin\r\n        TJSHTMLElement(ElementHandle).style.setProperty('color',ColorToHTML(Font.Color));\r\n        if (csDesigning in ComponentState) then\r\n          TJSHTMLElement(ElementHandle.firstChild).style.setProperty('color',ColorToHTML(Font.Color));\r\n      end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomSpeedButton.UpdateElementVisual;\r\nvar\r\n  clr: TColor;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    if Down then\r\n      clr := clGray\r\n    else\r\n      clr := FIntColor;\r\n\r\n    if (clr <> clNone) and (ElementClassName = '') then\r\n      ElementHandle.style.setProperty('background-color', ColorToHTML(clr))\r\n    else\r\n      ElementHandle.style.setProperty('background-color', '');\r\n\r\n    if Assigned(ElementHandle.firstChild) then\r\n      SetHTMLElementFont(TJSHTMLElement(ElementHandle.firstChild), Font, not ((ElementClassName = '') and (ElementFont = efProperty)) );\r\n\r\n    if not IsEnabled then\r\n      TJSHTMLElement(ElementHandle).style.removeProperty('color')\r\n    else // restore color when font color is used\r\n      if (ELementFont = efProperty) and (ElementClassName = '') then\r\n      begin\r\n        TJSHTMLElement(ElementHandle).style.setProperty('color',ColorToHTML(Font.Color));\r\n        if (csDesigning in ComponentState) and Assigned(ElementHandle.firstChild) then\r\n          TJSHTMLElement(ElementHandle.firstChild).style.setProperty('color',ColorToHTML(Font.Color));\r\n      end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomSpeedButton.UpdateGroup;\r\nvar\r\n  i: integer;\r\nbegin\r\n  if Assigned(Parent) then\r\n  begin\r\n    for i := 0 to Parent.ControlCount - 1 do\r\n    begin\r\n      if (Parent.Controls[i] <> Self) and (Parent.Controls[i] is TSpeedButton) and ((Parent.Controls[i] as TSpeedButton).GroupIndex = GroupIndex) then\r\n        (Parent.Controls[i] as TSpeedButton).Down := false;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomSpeedButton.DoMouseLeave;\r\nvar\r\n  frm: TCustomForm;\r\nbegin\r\n  inherited;\r\n  frm := GetParentForm(Self);\r\n  if Assigned(frm) and (frm.CSSLibrary = cssBootstrap) and ShowHint and (Hint <> '') then\r\n    Exit;\r\n\r\n  IntColor := FColor;\r\nend;\r\n\r\nprocedure TCustomSpeedButton.GlyphChanged(Sender: TObject);\r\nbegin\r\n  UpdateElement;\r\nend;\r\n\r\n\r\nprocedure TCustomSpeedButton.InitCSSLibrary(ALibrary: TCSSLibrary);\r\nbegin\r\n  if ALibrary = cssBootstrap then\r\n  begin\r\n    ElementClassName := 'btn btn-light';\r\n    ElementFont := efCSS;\r\n    HeightStyle := ssAuto;\r\n  end;\r\nend;\r\n\r\ndestructor TCustomSpeedButton.Destroy;\r\nbegin\r\n  FGlyph.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TCustomSpeedButton.DoMouseEnter;\r\nvar\r\n  frm: TCustomForm;\r\nbegin\r\n  inherited;\r\n\r\n  frm := GetParentForm(Self);\r\n  if Assigned(frm) and (frm.CSSLibrary = cssBootstrap) and ShowHint and (Hint <> '') then\r\n    Exit;\r\n  if Enabled then\r\n    IntColor := clSilver;\r\nend;\r\n\r\nprocedure TCustomSpeedButton.MouseUp(Button: TMouseButton; Shift: TShiftState; X,Y: Integer);\r\nbegin\r\n  inherited;\r\n  if Enabled then\r\n    IntColor := clSilver;\r\nend;\r\n\r\nprocedure TCustomSpeedButton.MouseDown(Button: TMouseButton; Shift: TShiftState; X,Y: Integer);\r\nbegin\r\n  inherited;\r\n  if not Enabled then\r\n    Exit;\r\n\r\n  IntColor := clGray;\r\n\r\n  if GroupIndex > 0 then\r\n  begin\r\n    if Down and AllowAllUp then\r\n      Down := false\r\n    else\r\n    begin\r\n      Down := true;\r\n      UpdateGroup;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TCustomToolBar }\r\n\r\nfunction TCustomToolBar.CreateElement: TJSElement;\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  Result := document.createElement('SPAN');\r\n  // add design-time layer to prevent interacting with the controls on the toolbar\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    el := TJSHTMLElement(document.createElement('DIV'));\r\n    el.style.setProperty('z-index','10');\r\n    el.style.setProperty('width','100%');\r\n    el.style.setProperty('height','100%');\r\n    el.style.setProperty('webkit-user-select', 'none');\r\n    el.style.setProperty('moz-user-select', 'none');\r\n    el.style.setProperty('khtml-user-select', 'none');\r\n    el.style.setProperty('ms-user-select', 'none');\r\n    el.style.setProperty('user-select', 'none');\r\n    el.style.setProperty('position', 'absolute');\r\n\r\n    Result.appendChild(el);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomToolBar.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  Color := $CFCFCF;\r\n  ControlStyle := ControlStyle + [csAcceptsControls];\r\n  Width := 300;\r\n  Height := 32;\r\nend;\r\n\r\n{ TRichEditToolBar }\r\n\r\nprocedure TRichEditToolBar.CreateInitialize;\r\n\r\nbegin\r\n  inherited;\r\n  FPtrFileLoad := @HandleDoFileLoad;\r\n\r\n  // do not permit other child controls\r\n  ControlStyle := ControlStyle - [csAcceptsControls];\r\n\r\n  FTextColor := clBlack;\r\n  FBackgroundColor := clWhite;\r\n\r\n  FBtnID := FindUniqueName('RETBBtn');\r\n\r\n  FFnt := TFontPicker.Create(Self);\r\n  FFnt.Name := FBtnID + '_fontname';\r\n  FFnt.Parent := Self;\r\n  FFnt.Width := 150;\r\n  FFnt.Align := alLeft;\r\n  FFnt.ItemIndex := 0;\r\n  FFnt.OnChange := FntChange;\r\n\r\n  FFntSize := TFontSizePicker.Create(Self);\r\n  FFntSize.Name := FBtnID + '_fontsize';\r\n  FFntSize.Parent := Self;\r\n  FFntSize.Width := 50;\r\n  FFntSize.Align := alLeft;\r\n  FFntSize.PickerMode := fmRelativeSize;\r\n  FFntSize.ItemIndex := 0;\r\n  FFntSize.OnChange := FntSizeChange;\r\n\r\n  FHints := TStringList.Create;\r\n  FHints.Add('Bold');\r\n  FHints.Add('Italic');\r\n  FHints.Add('Underline');\r\n  FHints.Add('Strike Throught');\r\n\r\n  FHints.Add('Text Color');\r\n  FHints.Add('Background Color');\r\n  FHints.Add('Align left');\r\n  FHints.Add('Align center');\r\n  FHints.Add('Align right');\r\n  FHints.Add('Numbered list');\r\n  FHints.Add('List');\r\n  FHints.Add('Hyperlink');\r\n  FHints.Add('Insert image');\r\n  FHints.Add('Line spacing');\r\n\r\n  CreateButton(FBold, FBtnID + '_bold', '&#xE238;',FHints.Strings[0]);\r\n  CreateButton(FItalic, FBtnID + '_italic', '&#xE23F;',FHints.Strings[1]);\r\n  CreateButton(FUnderline, FBtnID + '_underline', '&#xE249;',FHints.Strings[2]);\r\n  CreateButton(FStrikeThrough, FBtnID + '_strikethrough', '&#xE257;',FHints.Strings[3]);\r\n\r\n  FFgClr := TWebColorPicker.Create(Self);\r\n  FFgClr.Name := FBtnID + '_fgclr';\r\n  FFgClr.Parent := Self;\r\n  FFgClr.Align := alLeft;\r\n  FFgClr.Hint := FHints.Strings[4];\r\n  FFgClr.Width := 32;\r\n  FFgClr.Height := 24;\r\n  FFgClr.Color := clBlack;\r\n  FFgClr.OnSelect := FgSelect;\r\n  FFgClr.ShowHint := true;\r\n\r\n  FBkClr := TWebColorPicker.Create(Self);\r\n  FBkClr.Name := FBtnID + '_bkclr';\r\n  FBkClr.Parent := Self;\r\n  FBkClr.Align := alLeft;\r\n  FBkClr.Hint := FHints.Strings[5];\r\n  FBkClr.Width := 32;\r\n  FBkClr.Height := 24;\r\n  FBkClr.Color := clWhite;\r\n  FBkClr.OnSelect := BkSelect;\r\n  FBkClr.ShowHint := true;\r\n\r\n  CreateButton(FAlignLeft, FBtnID + '_alignleft', '&#xE236;',FHints.Strings[6]);\r\n  CreateButton(FAlignCenter, FBtnID + '_aligncenter', '&#xE234;',FHints.Strings[7]);\r\n  CreateButton(FAlignRight, FBtnID + '_alignright', '&#xE237;',FHints.Strings[8]);\r\n\r\n  CreateButton(FOList, FBtnID + '_olist','&#xE242;',FHints.Strings[9]);\r\n  CreateButton(FUList, FBtnID + '_ulist','&#xE241;',FHints.Strings[10]);\r\n\r\n  CreateButton(FURL, FBtnID + '_url', '&#xE250;',FHints.Strings[11]);\r\n\r\n  CreateButton(FImage,  FBtnID + '_image', '&#xE3f4;',FHints.Strings[12]);\r\n\r\n  FVisibleButtons := [reFont, reFontSize, reBold, reItalic, reUnderline, reStrikeThrough,\r\n    reAlignLeft, reAlignCenter, reAlignRight, reUnorderedList, reOrderedList, reForegroundColor, reBackgroundColor, reHyperlink, reImageInsert, reLineSpacing];\r\n\r\n  Width := 540;\r\n  Height := 32;\r\n\r\n  RichEdit := nil;\r\n\r\n  FFilePicker := TJSHTMLElement(document.createElement('INPUT'));\r\n  FFilePicker['type'] := 'file';\r\n  FFilePicker.style.setProperty('visibility','hidden');\r\n  FFilePicker.addEventListener('change', FPtrFileLoad);\r\n  ElementHandle.appendChild(FFilePicker);\r\n\r\n  FLineSpacing := TLineSpacingPicker.Create(Self);\r\n  FLineSpacing.Name := FBtnID + '_linespacing';\r\n  FLineSpacing.Parent := Self;\r\n  FLineSpacing.Width := 40;\r\n  FLineSpacing.Align := alLeft;\r\n  FLineSpacing.ItemIndex := 0;\r\n  FLineSpacing.ShowHint := true;\r\n  FLineSpacing.Hint := FHints.Strings[13];\r\n  FLineSpacing.OnChange := LineSpacingChange;\r\nend;\r\n\r\ndestructor TRichEditToolBar.Destroy;\r\nbegin\r\n  FHints.Free;\r\n  if Assigned(FRichEdit) then\r\n    TRichEditorCracker(FRichEdit).OnAttributesChanged := nil;\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TRichEditToolBar.CreateButton(var btn: TSpeedButton; BtnID, Glyph, Hint: string);\r\nbegin\r\n  btn := TSpeedButton.Create(BtnID);\r\n  btn.Name := BtnID;\r\n  btn.Parent := Self;\r\n  btn.MaterialGlyph := Glyph;\r\n  btn.Top := 0;\r\n  btn.Width := 32;\r\n  btn.Height := 24;\r\n  btn.Align := alLeft;\r\n  btn.Flat := true;\r\n  btn.Hint := Hint;\r\n  btn.ShowHint := Hint <> '';\r\n  btn.Enabled := true;\r\n  btn.OnClick := HandleSpeedButtonClick;\r\nend;\r\n\r\nprocedure TRichEditToolBar.SetBackgroundColor(const Value: TColor);\r\nbegin\r\n  FBackgroundColor := Value;\r\n  FBkClr.Color := Value;\r\nend;\r\n\r\nprocedure TRichEditToolBar.SetHints(const Value: TStrings);\r\nbegin\r\n  FHints.Assign(Value);\r\nend;\r\n\r\nprocedure TRichEditToolBar.SetParent(AValue: TControl);\r\nbegin\r\n  inherited;\r\n\r\n  if not (csLoading in ComponentState) then\r\n    InitButtons;\r\nend;\r\n\r\nprocedure TRichEditToolBar.SetRichEdit(const AValue: TRichEdit);\r\nbegin\r\n  if Assigned(AValue) then\r\n  begin\r\n    FRichEdit := AValue;\r\n    FRichEdit.Owner := Self;\r\n    TRichEditorCracker(FRichEdit).OnAttributesChanged := HandleAttributeChanged;\r\n  end;\r\nend;\r\n\r\nprocedure TRichEditToolBar.SetTextColor(const Value: TColor);\r\nbegin\r\n  FTextColor := Value;\r\n  FFgClr.Color := Value;\r\nend;\r\n\r\nprocedure TRichEditToolBar.SetVisibleButtons(const Value: TRichEditButtonSet);\r\nbegin\r\n  FVisibleButtons := Value;\r\n  UpdateButtons;\r\nend;\r\n\r\nprocedure TRichEditToolBar.UpdateButtons;\r\nbegin\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  FBold.Visible := reBold in FVisibleButtons;\r\n  FItalic.Visible := reItalic in VisibleButtons;\r\n  FUnderline.Visible := reUnderline in VisibleButtons;\r\n  FStrikeThrough.Visible := reStrikeThrough in VisibleButtons;\r\n  FAlignLeft.Visible := reAlignLeft in VisibleButtons;\r\n  FAlignCenter.Visible := reAlignCenter in VisibleButtons;\r\n  FAlignRight.Visible := reAlignRight in VisibleButtons;\r\n  FUList.Visible := reUnorderedList in VisibleButtons;\r\n  FOList.Visible := reOrderedList in VisibleButtons;\r\n  FFnt.Visible := reFont in VisibleButtons;\r\n  FFntSize.Visible := reFontSize in VisibleButtons;\r\n  FFgClr.Visible := reForegroundColor in VisibleButtons;\r\n  FBkClr.Visible := reBackgroundColor in VisibleButtons;\r\n  FURL.Visible := reHyperlink in VisibleButtons;\r\n  FImage.Visible := reImageInsert in VisibleButtons;\r\n  FLineSpacing.Visible := reLineSpacing in VisibleButtons;\r\n\r\n  if ElementPosition = epRelative then\r\n  begin\r\n    if Assigned(ElementHandle) then\r\n      ElementHandle.style.setProperty('display','flex');\r\n  end;\r\n\r\n  FFnt.ElementPosition := ElementPosition;\r\n  FFntSize.ElementPosition := ElementPosition;\r\n  FBold.ElementPosition := ElementPosition;\r\n  FItalic.ElementPosition := ElementPosition;\r\n  FUnderline.ElementPosition := ElementPosition;\r\n  FStrikeThrough.ElementPosition := ElementPosition;\r\n  FFgClr.ElementPosition := ElementPosition;\r\n  FBkClr.ElementPosition := ElementPosition;\r\n  FAlignLeft.ElementPosition := ElementPosition;\r\n  FAlignCenter.ElementPosition := ElementPosition;\r\n  FAlignRight.ElementPosition := ElementPosition;\r\n  FUList.ElementPosition := ElementPosition;\r\n  FOList.ElementPosition := ElementPosition;\r\n  FURL.ElementPosition := ElementPosition;\r\n  FImage.ElementPosition := ElementPosition;\r\n  FLineSpacing.ElementPosition := ElementPosition;\r\n\r\n  while FHints.Count < 14 do\r\n    FHints.Add('');\r\n\r\n  FBold.Hint := FHints.Strings[0];\r\n  FItalic.Hint := FHints.Strings[1];\r\n  FUnderline.Hint := FHints.Strings[2];\r\n  FStrikeThrough.Hint := FHints.Strings[3];\r\n  FFgClr.Hint := FHints.Strings[4];\r\n  FBkClr.Hint := FHints.Strings[5];\r\n\r\n  FAlignLeft.Hint := FHints.Strings[6];\r\n  FAlignCenter.Hint := FHints.Strings[7];\r\n  FAlignRight.Hint := FHints.Strings[8];\r\n  FUList.Hint := FHints.Strings[9];\r\n  FOList.Hint := FHints.Strings[10];\r\n  FURL.Hint := FHints.Strings[11];\r\n  FImage.Hint := FHints.Strings[12];\r\n  FLineSpacing.Hint := FHints.Strings[13];\r\nend;\r\n\r\nprocedure TRichEditToolBar.UpdateElement;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    ElementHandle.style.SetProperty('height', '32px');\r\n  end;\r\nend;\r\n\r\nprocedure TRichEditToolBar.GetChildren(Proc: TGetChildProc; Root: TComponent);\r\nbegin\r\n  // do nothing\r\nend;\r\n\r\nfunction TRichEditToolBar.GetRichEdit: TRichEdit;\r\nbegin\r\n  Result := FRichEdit;\r\nend;\r\n\r\nprocedure TRichEditToolBar.FgSelect(Sender: TObject);\r\nbegin\r\n  if Assigned(RichEdit) then\r\n    RichEdit.SelAttributes.Color := FFgClr.Color;\r\nend;\r\n\r\nprocedure TRichEditToolBar.BkSelect(Sender: TObject);\r\nbegin\r\n  if Assigned(RichEdit) then\r\n    RichEdit.SelAttributes.BackColor := FBkClr.Color;\r\nend;\r\n\r\nprocedure TRichEditToolBar.FntChange(Sender: TObject);\r\nbegin\r\n  if Assigned(RichEdit) then\r\n    RichEdit.SelAttributes.Name := FFnt.Items[FFnt.ItemIndex];\r\nend;\r\n\r\nprocedure TRichEditToolBar.FntSizeChange(Sender: TObject);\r\nbegin\r\n  if Assigned(RichEdit) then\r\n    RichEdit.SelAttributes.Height := FFntSize.ItemIndex + 1;\r\nend;\r\n\r\nprocedure TRichEditToolBar.HandleAttributeChanged(Sender: TObject; Attributes: TSelAttributes);\r\nbegin\r\n  FFnt.ItemIndex := Max(0,FFnt.Items.IndexOf(Attributes.FontName));\r\n  FFntSize.ItemIndex := Max(0,FFntSize.Items.IndexOf(Attributes.FontSize));\r\n  FBold.Down := Attributes.isBold;\r\n  FItalic.Down := Attributes.isItalic;\r\n  FUnderline.Down := Attributes.isUnderline;\r\n  FStrikeThrough.Down := Attributes.isStrikeOut;\r\n\r\n  FAlignLeft.Down := Attributes.isLeft;\r\n  FAlignRight.Down := Attributes.isRight;\r\n  FAlignCenter.Down := Attributes.isCenter;\r\n\r\n  if Attributes.FontColor <> '' then\r\n  begin\r\n    FFgClr.Color := HexToColor(Attributes.FontColor);\r\n  end;\r\n\r\n  if Attributes.BkColor <> '' then\r\n  begin\r\n    FBkClr.Color := RgbToColor(Attributes.BkColor);\r\n  end;\r\nend;\r\n\r\nfunction TRichEditToolBar.HandleDoFileLoad(Event: TEventListenerEvent): Boolean;\r\n\r\n  procedure InsertImage(DataURL: string);\r\n  begin\r\n    RichEdit.InsertImage(DataURL);\r\n  end;\r\n\r\nbegin\r\n  if 1 < 0 then\r\n    InsertImage('');\r\n\r\n  asm\r\n    var file = this.FFilePicker.files[0];\r\n    var reader  = new FileReader();\r\n\r\n    reader.addEventListener(\"load\", function () {\r\n        InsertImage(reader.result);\r\n    }, false);\r\n\r\n    if (file)\r\n        reader.readAsDataURL(file);\r\n  end;\r\n\r\n  Result := true;\r\nend;\r\n\r\nprocedure TRichEditToolBar.HandleSpeedButtonClick(Sender: TObject);\r\nvar\r\n  BID: string;\r\nbegin\r\n  if Assigned(RichEdit) then\r\n  begin\r\n    BID := TControl(Sender).GetID;\r\n\r\n    if BID = FBtnID + '_bold' then\r\n    begin\r\n      if fsBold in RichEdit.SelAttributes.Style then\r\n        RichEdit.SelAttributes.Style := RichEdit.SelAttributes.Style - [fsBold]\r\n      else\r\n        RichEdit.SelAttributes.Style := RichEdit.SelAttributes.Style + [fsBold];\r\n    end\r\n    else if BID = FBtnID + '_italic' then\r\n    begin\r\n      if fsItalic in RichEdit.SelAttributes.Style then\r\n        RichEdit.SelAttributes.Style := RichEdit.SelAttributes.Style - [fsItalic]\r\n      else\r\n        RichEdit.SelAttributes.Style := RichEdit.SelAttributes.Style + [fsItalic];\r\n    end\r\n    else if BID = FBtnID + '_underline' then\r\n    begin\r\n      if fsUnderline in RichEdit.SelAttributes.Style then\r\n        RichEdit.SelAttributes.Style := RichEdit.SelAttributes.Style - [fsUnderline]\r\n      else\r\n        RichEdit.SelAttributes.Style := RichEdit.SelAttributes.Style + [fsUnderline];\r\n    end\r\n    else if BID = FBtnID + '_strikethrough' then\r\n    begin\r\n      if fsStrikeOut in RichEdit.SelAttributes.Style then\r\n        RichEdit.SelAttributes.Style := RichEdit.SelAttributes.Style - [fsStrikeOut]\r\n      else\r\n        RichEdit.SelAttributes.Style := RichEdit.SelAttributes.Style + [fsStrikeOut];\r\n    end\r\n    else if BID = FBtnID + '_alignleft' then\r\n      RichEdit.SelAttributes.Alignment := taleftJustify\r\n    else if BID = FBtnID + '_aligncenter' then\r\n      RichEdit.SelAttributes.Alignment := taCenter\r\n    else if BID = FBtnID + '_alignright' then\r\n      RichEdit.SelAttributes.Alignment := taRightJustify\r\n    else if BID = FBtnID + '_olist' then\r\n      RichEdit.SelAttributes.OrderedList := not RichEdit.SelAttributes.OrderedList\r\n    else if BID = FBtnID + '_ulist' then\r\n      RichEdit.SelAttributes.UnOrderedList := not RichEdit.SelAttributes.UnOrderedList\r\n    else if BID = FBtnID + '_url' then\r\n      RichEdit.SelAttributes.Link\r\n    else if BID = FBtnID + '_image' then\r\n      FFilePicker.click();\r\n\r\n  end;\r\n\r\n  if Assigned(OnSpeedButtonClick) then\r\n    OnSpeedButtonClick(Sender);\r\nend;\r\n\r\n{$HINTS OFF}\r\nfunction TRichEditToolBar.InitButtons(): boolean;\r\n\r\n  procedure HandleTimeOut;\r\n  var\r\n    i: integer;\r\n  begin\r\n    for i := 0 to ControlCount - 1 do\r\n    begin\r\n      Controls[i].UpdateElement;\r\n    end;\r\n  end;\r\n\r\nbegin\r\n  Result := true;\r\n  if not IsLinked then\r\n    Exit;\r\n\r\n  if (1 < 0) then\r\n    HandleTimeOut;\r\n\r\n  asm\r\n    setTimeout(function() {HandleTimeOut();}, 10);\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TRichEditToolBar.LineSpacingChange(Sender: TObject);\r\nvar\r\n  spacing: single;\r\nbegin\r\n  case FLineSpacing.ItemIndex of\r\n  0: spacing := 1;\r\n  1: spacing := 1.5;\r\n  2: spacing := 2;\r\n  end;\r\n  FRichEdit.SetSelectionSpacing(spacing);\r\nend;\r\n\r\nprocedure TRichEditToolBar.Loaded;\r\nbegin\r\n  inherited;\r\n  UpdateButtons;\r\n  InitButtons;\r\nend;\r\n\r\nprocedure TRichEditToolBar.Notification(AComponent: TComponent;\r\n  Operation: TOperation);\r\nbegin\r\n  inherited;\r\n  if (Operation = opRemove) and (AComponent = FRichEdit) then\r\n  begin\r\n    FRichEdit := nil;\r\n  end;\r\nend;\r\n\r\n{ TToggleButton }\r\n\r\nfunction TToggleButton.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('span');\r\n  FLabel := TJSHTMLElement(document.createElement('label'));\r\n  FInput := TJSHTMLElement(document.createElement('input'));\r\n  FSlider := TJSHTMLElement(document.createElement('span'));\r\n  FInput.setAttribute('type','checkbox');\r\n  FInput.style.setProperty('display','none');\r\n\r\n  Result.appendChild(FLabel);\r\n  FLabel.appendChild(FInput);\r\n  FLabel.appendChild(FSlider);\r\nend;\r\n\r\nprocedure TToggleButton.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  Width := 48;\r\n  Height := 24;\r\nend;\r\n\r\nfunction TToggleButton.GetChecked: boolean;\r\nbegin\r\n  if Assigned(Container) then\r\n    FChecked := TJSHTMLInputElement(FInput).checked;\r\n\r\n  Result := FChecked;\r\nend;\r\n\r\nfunction TToggleButton.HandleDoClick(Event: TJSMouseEvent): Boolean;\r\nbegin\r\n  ElementEvent := Event;\r\n  StopPropagation;\r\n\r\n  if Event.target  = FInput then\r\n  begin\r\n    if Assigned(OnClick) then\r\n      OnClick(Self);\r\n  end;\r\n  Result := True;\r\n  ElementEvent := nil;\r\nend;\r\n\r\nprocedure TToggleButton.Loaded;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TToggleButton.Resize;\r\nbegin\r\n  inherited;\r\n  UpdateCSS;\r\nend;\r\n\r\nprocedure TToggleButton.SetChecked(const Value: boolean);\r\nbegin\r\n  FChecked := Value;\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TToggleButton.SetStyle(const Value: TToggleButtonStyle);\r\nbegin\r\n  if (FStyle <> Value) then\r\n  begin\r\n    FStyle := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TToggleButton.UpdateCSS;\r\nvar\r\n  css: string;\r\n  wpx,hpx,hwpx,wspx,hspx: string;\r\nbegin\r\n  wpx := width.ToString+'px';\r\n  hpx := height.ToString+'px';\r\n  hwpx := (width div 2).toString+'px';\r\n\r\n  wspx := ((width div 2) - 8).toString+'px';\r\n  hspx := (height - 8).toString+'px';\r\n\r\n  css := '.'+Name+'_switch {'+\r\n    'position: relative;'+\r\n    'display: inline-block;'+\r\n    'width: '+wpx+';'+\r\n    'height: '+hpx+';'+\r\n  '}'+\r\n\r\n  '.switch input {display:none;}'+\r\n\r\n  '.'+Name+'_slider {'+\r\n    'position: absolute;'+\r\n    'cursor: pointer;'+\r\n    'top: 0;'+\r\n    'left: 0;'+\r\n    'right: 0;'+\r\n    'bottom: 0;'+\r\n    'background-color: #ccc;'+\r\n    '-webkit-transition: .4s;'+\r\n    'transition: .4s;'+\r\n  '}'+\r\n\r\n  '.'+Name+'_slider:before {'+\r\n    'position: absolute;'+\r\n    'content: \"\";'+\r\n    'height: '+hspx+';'+\r\n    'width: '+ wspx+';'+\r\n    'left: 4px;'+\r\n    'bottom: 4px;'+\r\n    'background-color: white;'+\r\n    '-webkit-transition: .4s;'+\r\n    'transition: .4s;'+\r\n  '}'+\r\n\r\n  'input:checked + .'+Name+'_slider {'+\r\n    'background-color: #2196F3;'+\r\n  '}'+\r\n\r\n  'input:focus + .'+Name+'_slider {'+\r\n    'box-shadow: 0 0 1px #2196F3;'+\r\n  '}'+\r\n\r\n  'input:checked + .'+Name+'_slider:before {'+\r\n    '-webkit-transform: translateX('+hwpx+');'+\r\n    '-ms-transform: translateX('+hwpx+');'+\r\n    'transform: translateX('+hwpx+');'+\r\n  '}'+\r\n\r\n  '/* Rounded sliders */'+\r\n  '.'+Name+'_slider.round {'+\r\n    'border-radius: '+ wspx+ ';'+\r\n  '}'+\r\n\r\n  '.'+Name+'_slider.round:before {'+\r\n    'border-radius: 50%;'+\r\n  '}';\r\n\r\n  AddInstanceStyle(css);\r\nend;\r\n\r\nprocedure TToggleButton.UpdateElement;\r\nbegin\r\n  inherited;\r\n  if not IsUpdating and Assigned(FLabel) then\r\n  begin\r\n    UpdateCSS;\r\n    InjectCSS;\r\n\r\n    FLabel.setAttribute('class', Name + '_switch');\r\n\r\n    TJSHTMLInputElement(FInput).checked := FChecked;\r\n\r\n    if Style = tsRectangular then\r\n      FSlider.setAttribute('class', Name +'_slider')\r\n    else\r\n      FSlider.setAttribute('class',Name +'_slider round');\r\n  end;\r\nend;\r\n\r\n{ TCustomBitBtn }\r\n\r\nprocedure TCustomBitBtn.Click;\r\nvar\r\n  frm: TCustomForm;\r\nbegin\r\n  inherited;\r\n\r\n  if ModalResult <> mrNone then\r\n  begin\r\n    frm := GetParentForm(Self);\r\n    if Assigned(frm) then\r\n      frm.ModalResult := ModalResult;\r\n  end;\r\nend;\r\n\r\nfunction TCustomBitBtn.CreateElement: TJSElement;\r\nbegin\r\n  if FFlat then\r\n    Result := document.createElement('SPAN')\r\n  else\r\n  begin\r\n    Result := document.createElement('BUTTON');\r\n    Result['type'] := 'BUTTON';\r\n  end;\r\nend;\r\n\r\nprocedure TCustomBitBtn.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FColor := clNone;\r\n  FIntColor := clNone;\r\n  FFlat := false;\r\n  Width := 80;\r\n  Height := 25;\r\n  FAlignment := taCenter;\r\n  FGlyph := TURLPicture.Create;\r\n  FGlyph.OnChange := GlyphChanged;\r\n  FGlyph.OnDataChange := GlyphChanged;\r\n  FGlyphSize := 0;\r\n  FMaterialGlyphSize := 18;\r\n  FMaterialGlyphColor := clNone;\r\n  FMaterialGlyphType := mgNormal;\r\n  FModalResult := mrNone;\r\nend;\r\n\r\ndestructor TCustomBitBtn.Destroy;\r\nbegin\r\n  FGlyph.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TCustomBitBtn.GlyphChanged(Sender: TObject);\r\nbegin\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TCustomBitBtn.HandleKeyPreview(Key: Word);\r\nbegin\r\n  inherited;\r\n  if Default and (Key = VK_RETURN) then\r\n  begin\r\n    Click;\r\n  end;\r\n  if Cancel and (Key = VK_ESCAPE) then\r\n  begin\r\n    Click;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomBitBtn.InitCSSLibrary(ALibrary: TCSSLibrary);\r\nbegin\r\n  if (ALibrary = cssBootstrap) then\r\n  begin\r\n    ElementClassName := 'btn btn-light';\r\n    ElementFont := efCSS;\r\n    HeightStyle := ssAuto;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomBitBtn.SetCaption(const AValue: string);\r\nbegin\r\n  if (Caption <> AValue) then\r\n  begin\r\n    inherited SetCaption(AValue);\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomBitBtn.SetColorEx(const Value: TColor);\r\nbegin\r\n  if (FColor <> Value) then\r\n  begin\r\n    FColor := Value;\r\n    inherited Color := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomBitBtn.SetFlat(const Value: boolean);\r\nbegin\r\n  if (FFlat <> Value) then\r\n  begin\r\n    FFlat := Value;\r\n    RecreateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomBitBtn.SetGlyph(const Value: TURLPicture);\r\nbegin\r\n  FGlyph.Assign(Value);\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TCustomBitBtn.SetGlyphSize(const Value: integer);\r\nbegin\r\n  if (FGlyphSize <> Value) then\r\n  begin\r\n    FGlyphSize := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomBitBtn.SetGlyphURL(const Value: String);\r\nbegin\r\n  if FGlyphURL <> Value then\r\n  begin\r\n    FGlyphURL := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomBitBtn.SetIntColor(const Value: TColor);\r\nbegin\r\n  FIntColor := Value;\r\nend;\r\n\r\nprocedure TCustomBitBtn.SetAlignment(const Value: TAlignment);\r\nbegin\r\n  if (FAlignment <> Value) then\r\n  begin\r\n    FAlignment := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomBitBtn.SetLayout(const Value: TButtonLayout);\r\nbegin\r\n  if (FLayout <> Value) then\r\n  begin\r\n    FLayout := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomBitBtn.SetMaterialGlyph(const Value: TMaterialGlyph);\r\nbegin\r\n  if (FMaterialGlyph <> Value) then\r\n  begin\r\n    FMaterialGlyph := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomBitBtn.SetMaterialGlyphSize(const Value: integer);\r\nbegin\r\n  if (Value > 0) and (Value < 100) then\r\n  begin\r\n    FMaterialGlyphSize := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomBitBtn.SetMaterialGlyphType(const Value: TMaterialGlyphType);\r\nbegin\r\n  if (FMaterialGlyphType <> Value) then\r\n  begin\r\n    FMaterialGlyphType := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomBitBtn.SetMaterialGyphColor(const Value: TColor);\r\nbegin\r\n  if (FMaterialGlyphColor <> Value) then\r\n  begin\r\n    FMaterialGlyphColor := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomBitBtn.UpdateElement;\r\nvar\r\n  s,inactive,noptr,matgl,imgsrc,matclr,cap,acc,gs: string;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    if (FColor <> clNone) and not Flat then\r\n      ElementHandle.style.setProperty('background-color', ColorToHTML(FColor))\r\n    else\r\n      ElementHandle.style.setProperty('background-color', '');\r\n\r\n    ElementHandle.style.setProperty('vertical-align','middle');\r\n    if Visible then\r\n      ElementHandle.style.setProperty('display','table');\r\n    ElementHandle.style.setProperty('overflow','hidden');\r\n    ElementHandle.style.setProperty('padding','0px');\r\n\r\n    case Alignment of\r\n      taLeftJustify: ElementHandle.style.setProperty('text-align','left');\r\n      taCenter: ElementHandle.style.setProperty('text-align','center');\r\n      taRightJustify: ElementHandle.style.setProperty('text-align','right');\r\n    end;\r\n\r\n    s := '';\r\n    inactive := '';\r\n    noptr := '';\r\n    matgl := '';\r\n\r\n    if not Enabled then\r\n      inactive := ' md-light md-inactive';\r\n\r\n    noptr := 'pointer-events:none';\r\n\r\n    if FMaterialGlyph <> '' then\r\n    begin\r\n      matclr := '';\r\n      if FMaterialGlyphColor <> clNone then\r\n        matclr := ';color:'+ColorToHTML(FMaterialGlyphColor);\r\n\r\n      matgl := '<i class=\"'+GetMaterialClass(MaterialGlyphType)+ inactive +'\" style=\"vertical-align:middle;'+noptr+';font-size:'+ IntToStr(FMaterialGlyphSize)+'px'+matclr+'\">' + FMaterialGlyph + '</i>';\r\n    end;\r\n\r\n//    if (FMaterialGlyph <> '') and (Caption <> '') then\r\n//      s := s + '&nbsp;';\r\n\r\n    if (ElementHandle.childElementCount = 0) or not IsLinked then\r\n      cap := ProcessAccelerator(Caption,acc);\r\n\r\n    if acc <> '' then\r\n      ElementHandle['accesskey'] := acc;\r\n\r\n\r\n    if (cap <> '') then\r\n      s := '<span style=\"'+noptr+'\">' + cap + '</span>';\r\n\r\n    gs := '';\r\n    if GlyphSIze <> 0 then\r\n      gs := 'width:'+GlyphSize.ToString+'px;';\r\n\r\n\r\n    if FGlyph.Data <> '' then\r\n      imgsrc :=  'data:image/jpeg;base64,' + HexImageDecodeAsBase64(FGlyph.Data)\r\n    else\r\n    if FGlyph.FileName <> '' then\r\n      imgsrc := FGlyph.FileName\r\n    else\r\n    if FGlyphURL <> '' then\r\n      imgsrc := FGlyphURL;\r\n\r\n    case Layout of\r\n    blGlyphLeft:\r\n      begin\r\n        if (matgl <> '') then\r\n        begin\r\n          if cap <> '' then\r\n            s := matgl + '&nbsp;' + s\r\n          else\r\n            s := matgl;\r\n        end;\r\n\r\n        if imgsrc <> '' then\r\n          s := '<img style=\"vertical-align:middle;' + gs + '\" src=\"'+ imgsrc + '\">&nbsp;' + s;\r\n      end;\r\n\r\n    blGlyphRight:\r\n      begin\r\n        if (matgl <> '') then\r\n        begin\r\n          if (cap <> '') then\r\n            s := s + '&nbsp;' + matgl\r\n          else\r\n            s := matgl;\r\n        end;\r\n\r\n        if imgsrc <> '' then\r\n           s := s+ '&nbsp;<img style=\"'+gs+'\" src=\"'+ imgsrc + '\">';\r\n      end;\r\n\r\n    blGlyphTop:\r\n      begin\r\n        if matgl <> '' then\r\n        begin\r\n          if cap <> '' then\r\n            s := matgl + '<br>' + s\r\n          else\r\n            s := matgl;\r\n        end;\r\n\r\n        if imgsrc <> '' then\r\n           s := '<img style=\"'+gs+'\" src=\"'+ imgsrc + '\"><br>' + s;\r\n      end;\r\n\r\n    blGlyphBottom:\r\n      begin\r\n        if matgl <> '' then\r\n        begin\r\n          if cap <> '' then\r\n            s := s+ '<br>' + matgl\r\n          else\r\n            s := matgl;\r\n        end;\r\n\r\n        if imgsrc <> '' then\r\n           s := s + '<br><img style=\"'+gs+'\" src=\"'+ imgsrc + '\">';\r\n      end;\r\n    end;\r\n\r\n    ElementHandle.innerHTML := s;\r\n    SetHTMLElementFont(TJSHTMLElement(ElementHandle), Font, not ((ElementClassName = '') and (ElementFont = efProperty)) );\r\n  end;\r\nend;\r\n\r\nprocedure TCustomBitBtn.UpdateElementVisual;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    ElementHandle.style.removeProperty('outline');\r\n    ElementHandle.style.removeProperty('user-select');\r\n  end;\r\n\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.ComCtrls;\r\n\r\n{$DEFINE NOPP}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, SysUtils, Web, WEBLib.Controls, WEBLib.Graphics, WEBLib.ExtCtrls,\r\n  WEBLib.TreeNodes, WebLib.Menus;\r\n\r\ntype\r\n  TCustomRichEdit = class;\r\n\r\n  TTextAttributes = class(TPersistent)\r\n  private\r\n    RichEdit: TCustomRichEdit;\r\n    FAlignment: TAlignment;\r\n    FIsBold: Boolean;\r\n    FIsItalic: Boolean;\r\n    FIsUnderline: Boolean;\r\n    FIsStrikeOut: Boolean;\r\n    FBackColor: TColor;\r\n    FColor: TColor;\r\n    FHeight: Integer;\r\n    FName: String;\r\n    FOrderedList: Boolean;\r\n    FSize: Integer;\r\n    FStyle: TFontStyles;\r\n    FUnOrderedList: Boolean;\r\n    procedure SetAlignment(Value: TAlignment);\r\n    procedure SetBackColor(Value: TColor);\r\n    procedure SetColor(Value: TColor);\r\n    procedure SetHeight(Value: Integer);\r\n    procedure SetName(Value: String);\r\n    procedure SetOrderedList(Value: Boolean);\r\n    procedure SetSize(Value: Integer);\r\n    procedure SetStyle(Value: TFontStyles);\r\n    procedure SetUnOrderedList(Value: Boolean);\r\n  protected\r\n    procedure AssignTo(Dest: TPersistent); override;\r\n    function FontSizeToEM(const Value: integer): string;\r\n  public\r\n    constructor Create(AOwner: TCustomRichEdit); reintroduce;\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure Cut;\r\n    procedure Copy;\r\n    procedure Paste;\r\n    procedure Image;\r\n    procedure Link;\r\n    property Alignment: TAlignment read FAlignment write SetAlignment;\r\n    property BackColor: TColor read FBackColor write SetBackColor;\r\n    property Color: TColor read FColor write SetColor;\r\n    property Height: Integer read FHeight write SetHeight;\r\n    property Name: String read FName write SetName;\r\n    property OrderedList: Boolean read FOrderedList write SetOrderedList;\r\n    property Size: Integer read FSize write SetSize;\r\n    property Style: TFontStyles read FStyle write SetStyle;\r\n    property UnOrderedList: Boolean read FUnOrderedList write SetUnOrderedList;\r\n  end;\r\n\r\n  TSelAttributes = record\r\n    FontName: string;\r\n    FontSize: string;\r\n    FontColor: string;\r\n    BkColor: string;\r\n    IsBold: boolean;\r\n    IsItalic: boolean;\r\n    IsStrikeOut: boolean;\r\n    IsUnderline: boolean;\r\n    IsLeft: boolean;\r\n    IsRight: boolean;\r\n    IsCenter: boolean;\r\n  end;\r\n\r\n  TAttributesChangeEvent = procedure(Sender: TObject; Attributes: TSelAttributes) of object;\r\n\r\n  TCustomRichEdit = class(TWebCustomControl)\r\n  private\r\n    FOwner: TCustomControl;\r\n    FLines: TStrings;\r\n    FSelAttributes: TTextAttributes;\r\n    FAutoSize: Boolean;\r\n    FOnSelectionChange: TNotifyEvent;\r\n    FShowFocus: boolean;\r\n    FInsertLineBreaks: boolean;\r\n    FWantTabs: boolean;\r\n    FReadOnly: boolean;\r\n    FOnChange: TNotifyEvent;\r\n    FOnAttributesChanged: TAttributesChangeEvent;\r\n    FWantImages: boolean;\r\n    function GetText: String;\r\n    function GetPlainText: String;\r\n    procedure SetText(const Value: String);\r\n    procedure SetSelAttributes(Value: TTextAttributes);\r\n    procedure SetAutoSize(const Value: Boolean);\r\n    procedure SetShowFocus(const Value: boolean); reintroduce;\r\n    procedure SetReadOnly(const Value: boolean);\r\n    function GetLines: TStrings;\r\n    function GetSelStart: integer;\r\n    procedure SetSelStart(const Value: integer);\r\n  protected\r\n    function CreateElement: TJSElement; override;\r\n//    function ElementIFrameHandle: TJSWindow;\r\n    function ElementIFrameHandle: TJSDocument;\r\n    procedure UpdateElement; override;\r\n    procedure Loaded; override;\r\n    function CanShowFocus: boolean; override;\r\n    procedure DoHandleInput(Event: TJSEvent); virtual;\r\n    procedure DoHandlePaste(Event: TJSEvent); virtual;\r\n    function HandleDoSelectionChange(Event: TEventListenerEvent): Boolean; virtual;\r\n    function HandleDoKeyDown(Event: TJSKeyBoardEvent): Boolean; override;\r\n    function HandleDoKeyUp(Event: TJSKeyBoardEvent): Boolean; override;\r\n    procedure SetLines(ALines: TStrings);\r\n    procedure DoLinesChange(Sender: TObject);\r\n    property Text: String read GetText write SetText;\r\n    property Font;\r\n    property Color;\r\n    property BorderStyle;\r\n    property AutoSize: Boolean read FAutoSize write SetAutoSize default false;\r\n    property Lines: TStrings read GetLines write SetLines;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    property OnSelectionChange: TNotifyEvent read FOnSelectionChange write FOnSelectionChange;\r\n    property PlainText: string read GetPlainText;\r\n    procedure DoChange; virtual;\r\n    procedure BindEvents; override;\r\n    function GetSelectionAttributes(selnode:TJSNode): TSelAttributes;\r\n    property OnAttributesChanged: TAttributesChangeEvent read FOnAttributesChanged write FOnAttributesChanged;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    function GetContent: string;\r\n    function GetSelection: string;\r\n    procedure DoSelectAction(StartPosition, EndPosition: integer);\r\n    procedure DoEditAction(ActionString: string); overload;\r\n    procedure DoEditAction(ActionString: string; Data: string); overload;\r\n    procedure SelectText(StartPosition, EndPosition: integer);\r\n    procedure SetSelectionSpacing(ASpacing: double);\r\n    procedure DoImageAction;\r\n    procedure DoLinkAction;\r\n    procedure AppendHTML(HTML: string);\r\n    procedure AppendLineBreak;\r\n    procedure InsertHTML(HTML: String);\r\n    procedure InsertLineBreak;\r\n    procedure InsertImage(DataURL: string);\r\n    property CursorPosition: integer read GetSelStart write SetSelStart;\r\n    property InsertLineBreaks: boolean read FInsertLineBreaks write FInsertLineBreaks default false;\r\n    property SelAttributes: TTextAttributes read FSelAttributes write SetSelAttributes;\r\n    property ShowFocus: boolean read FShowFocus write SetShowFocus default true;\r\n    property Owner: TCustomControl read FOwner write FOwner;\r\n    property ReadOnly: boolean read FReadOnly write SetReadOnly default false;\r\n    property WantImages: boolean read FWantImages write FWantImages default true;\r\n    property WantTabs: boolean read FWantTabs write FWantTabs default false;\r\n  end;\r\n\r\n  TRichEdit = class(TCustomRichEdit)\r\n  public\r\n    property Owner;\r\n    property PlainText;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property AutoSize;\r\n    property ElementClassName;\r\n    property ElementFont;\r\n    property ElementID;\r\n    property ElementPosition;\r\n    property Font;\r\n    property Color;\r\n    property DragMode;\r\n    property BorderStyle;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property InsertLinebreaks;\r\n    property Lines;\r\n    property Margins;\r\n    property ReadOnly;\r\n    property PopupMenu;\r\n    property WantTabs;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnChange;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnSelectionChange;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebRichEdit = class(TRichEdit);\r\n\r\n  TTabSet = class(TWebCustomControl)\r\n  private\r\n    FItems: TStringList;\r\n    FItemIndex: integer;\r\n    FSelectedColor: TColor;\r\n    FOnChange: TNotifyEvent;\r\n    FSelectedTextColor: TColor;\r\n    FElementTabActiveClassName: TElementClassName;\r\n    FElementTabClassName: TElementClassName;\r\n    FElementTabItemClassName: TElementClassName;\r\n    FUseHash: boolean;\r\n    procedure SetSelectedColor(const Value: TColor);\r\n    procedure SetSelectedTextColor(const Value: TColor);\r\n  protected\r\n    function CreateElement: TJSElement; override;\r\n    function HandleDoClick(Event: TJSMouseEvent): Boolean; override;\r\n    function HandleDoChange(Event: TEventListenerEvent): Boolean; virtual;\r\n    function HandleDoItemMouseOut(Event: TJSMouseEvent): Boolean; virtual;\r\n    function HandleDoItemMouseOver(Event: TJSMouseEvent): Boolean; virtual;\r\n    procedure BindEvents; override;\r\n    procedure SetItems(AItems: TStringList);\r\n    procedure SetItemIndex(AIndex: integer);\r\n    procedure DoUpdateList; virtual;\r\n    procedure Loaded; override;\r\n    procedure ItemsChanged(Sender: TObject);\r\n    procedure EnableDrag; override;\r\n    procedure DisableDrag; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure EndUpdate; override;\r\n    procedure Clear;\r\n    procedure SelectNextTab(GoForward: boolean);\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property Color;\r\n    property DragMode;\r\n    property ElementClassName;\r\n    property ElementTabClassName: TElementClassName read FElementTabClassName write FElementTabClassName;\r\n    property ElementTabActiveClassName: TElementClassName read FElementTabActiveClassName write FElementTabActiveClassName;\r\n    property ElementTabItemClassName: TElementClassName read FElementTabItemClassName write FElementTabItemClassName;\r\n    property ElementFont;\r\n    property ElementID;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Font;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property ItemIndex: integer read FItemIndex write SetItemIndex;\r\n    property Items: TStringList read FItems write SetItems;\r\n    property Left;\r\n    property Margins;\r\n    property ParentFont;\r\n    property PopupMenu;\r\n    property ShowHint;\r\n    property SelectedColor: TColor read FSelectedColor write SetSelectedColor default clSilver;\r\n    property SelectedTextColor: TColor read FSelectedTextColor write SetSelectedTextColor default clBlack;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property Top;\r\n    property UseHash: boolean read FUseHash write FUseHash default true;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebTabSet = class(TTabSet);\r\n\r\n  TTabSheet = class(TCustomPanel)\r\n  private\r\n    FTabVisible: Boolean;\r\n    FTabEnabled: Boolean;\r\n    FPosUpdating: Boolean;\r\n    FOnShow: TNotifyEvent;\r\n    FOnHide: TNotifyEvent;\r\n    FMaterialGlyph: TMaterialGlyph;\r\n    FMaterialGlyphColor: TColor;\r\n    FMaterialGlyphType: TMaterialGlyphType;\r\n    FMaterialGlyphSize: integer;\r\n    procedure SetTabVisible(const Value: Boolean);\r\n    procedure SetTabEnabled(const Value: Boolean);\r\n    function GetPageIndex: integer;\r\n    procedure SetPageIndex(const Value: integer);\r\n    procedure SetMaterialGlyph(const Value: TMaterialGlyph);\r\n    procedure SetMaterialGlyphColor(const Value: TColor);\r\n    procedure SetMaterialGlyphSize(const Value: integer);\r\n    procedure SetMaterialGlyphType(const Value: TMaterialGlyphType);\r\n  protected\r\n    procedure SetCaption(const AValue: string); override;\r\n    procedure SetParent(AValue: TControl); override;\r\n    procedure ResetUpdate;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    procedure EndUpdate; override;\r\n    procedure SetBounds(X, Y, AWidth, AHeight: Integer); override;\r\n    destructor Destroy; override;\r\n    property ShowCaption;\r\n  published\r\n    property Alignment;\r\n    property AlignWithMargins;\r\n    property BorderColor;\r\n    property BorderStyle;\r\n    property Caption;\r\n    property Color;\r\n    property DragMode;\r\n    property ElementBodyClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Font;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Margins;\r\n    property MaterialGlyph: TMaterialGlyph read FMaterialGlyph write SetMaterialGlyph;\r\n    property MaterialGlyphColor: TColor read FMaterialGlyphColor write SetMaterialGlyphColor default clNone;\r\n    property MaterialGlyphSize: integer read FMaterialGlyphSize write SetMaterialGlyphSize default 18;\r\n    property MaterialGlyphType: TMaterialGlyphType read FMaterialGlyphType write SetMaterialGlyphType default mgNormal;\r\n    property Padding;\r\n    property PageIndex: integer read GetPageIndex write SetPageIndex stored false;\r\n    property ParentFont;\r\n    property Role;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property TabVisible: Boolean read FTabVisible write SetTabVisible default True;\r\n    property TabEnabled: Boolean read FTabEnabled write SetTabEnabled default True;\r\n    property Visible;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnHide: TNotifyEvent read FOnHide write FOnHide;\r\n    property OnMouseDown;\r\n    property OnMouseMove;\r\n    property OnMouseUp;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnShow: TNotifyEvent read FOnShow write FOnShow;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebTabSheet = class(TTabSheet);\r\n\r\n  TPageControl = class(TWebCustomControl)\r\n  private\r\n    FDesignTime: boolean;\r\n    FPrevTabIndex: Integer;\r\n    FItems: TStringList;\r\n    FTabIndex: Integer;\r\n    FSelectedColor: TColor;\r\n    FOnChange: TNotifyEvent;\r\n    FSelectedTextColor: TColor;\r\n    FDisabledTextColor: TColor;\r\n    FShowTabs: boolean;\r\n    FOldVisible: boolean;\r\n    FUseHash: boolean;\r\n    FElementTabActiveClassName: TElementClassName;\r\n    FElementTabClassName: TElementClassName;\r\n    FElementTabItemClassName: TElementClassName;\r\n    procedure SetSelectedColor(const AValue: TColor);\r\n    procedure SetItems(AItems: TStringList);\r\n    procedure SetTabIndex(AIndex: integer);\r\n    function GetActivePage: TTabsheet;\r\n    function GetActivePageIndex: integer;\r\n    procedure SetActivePageIndex(const Value: integer);\r\n    procedure SetSelectedTextColor(const Value: TColor);\r\n    procedure SetActivePage(const Value: TTabsheet);\r\n    procedure SetShowTabs(const Value: boolean);\r\n    procedure SetDisabledTextColor(const Value: TColor);\r\n  protected\r\n    function GetPage(Index: integer): TTabSheet;\r\n    function CreateElement: TJSElement; override;\r\n    function HandleDoClick(Event: TJSMouseEvent): Boolean; override;\r\n    function HandleDoChange(Event: TJSMouseEvent): Boolean; virtual;\r\n    function HandleDoItemMouseOut(Event: TJSMouseEvent): Boolean; virtual;\r\n    function HandleDoItemMouseOver(Event: TJSMouseEvent): Boolean; virtual;\r\n    function CanAcceptChild(AValue: TControl): TControl; override;\r\n    procedure BindEvents; override;\r\n    procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;\r\n    procedure UpdateElement; override;\r\n    procedure DoUpdateList; virtual;\r\n    procedure DoUpdateResize; virtual;\r\n    procedure Loaded; override;\r\n    procedure VisibleChanged; override;\r\n    procedure ItemsChanged(Sender: TObject); virtual;\r\n    procedure SetParent(AValue: TControl); override;\r\n    function GetUniqueName: string;\r\n    procedure EnableDrag; override;\r\n    procedure DisableDrag; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure Clear;\r\n    procedure EndUpdate; override;\r\n    procedure SelectNextPage(GoForward: boolean);\r\n    function PageCount: integer;\r\n    function PageIndexFromElement(AElement: TJSElement): Integer;\r\n    property Pages[index: integer]: TTabSheet read GetPage;\r\n    property ActivePageIndex: integer read GetActivePageIndex write SetActivePageIndex;\r\n    property ActivePage: TTabsheet read GetActivePage write SetActivePage;\r\n    property Items: TStringList read FItems write SetItems;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property BorderStyle default bsNone;\r\n    property ChildOrder;\r\n    property DisabledTextColor: TColor read FDisabledTextColor write SetDisabledTextColor default clGray;\r\n    property DragMode;\r\n    property ElementClassName;\r\n    property ElementTabClassName: TElementClassName read FElementTabClassName write FElementTabClassName;\r\n    property ElementTabActiveClassName: TElementClassName read FElementTabActiveClassName write FElementTabActiveClassName;\r\n    property ElementTabItemClassName: TElementClassName read FElementTabItemClassName write FElementTabItemClassName;\r\n    property ElementFont;\r\n    property ElementID;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Font;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property TabIndex: integer read FTabIndex write SetTabIndex;\r\n    property Left;\r\n    property Margins;\r\n    property ParentFont;\r\n    property PopupMenu;\r\n    property ShowHint;\r\n    property ShowTabs: boolean read FShowTabs write SetShowTabs default true;\r\n    property SelectedColor: TColor read FSelectedColor write SetSelectedColor default clSilver;\r\n    property SelectedTextColor: TColor read FSelectedTextColor write SetSelectedTextColor default clBlack;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property Top;\r\n    property UseHash: boolean read FUseHash write FUseHash default true;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebPageControl = class(TPageControl);\r\n\r\n  TProgressBarStyle = (pbstNormal, pbstMarquee, pbstDiv);\r\n  TProgressBarValue = (pbvNone, pbvPercentage, pbvAbsolute);\r\n\r\n  TProgressBar = class(TWebCustomControl)\r\n  private\r\n    FMax: integer;\r\n    FMin: integer;\r\n    FPosition: integer;\r\n    FStyle: TProgressBarStyle;\r\n    FElementBarClassName: string;\r\n    FValue: TProgressBarValue;\r\n    FValueColor: TColor;\r\n    procedure SetStyle(const Value: TProgressBarStyle);\r\n    procedure SetElementBarClassName(const Value: string);\r\n    procedure SetValue(const Value: TProgressBarValue);\r\n    procedure SetValueColor(const Value: TColor);\r\n  protected\r\n    function CreateElement: TJSElement; override;\r\n    procedure SetMax(AValue: integer);\r\n    procedure SetMin(AValue: integer);\r\n    procedure SetPosition(AValue: integer);\r\n    procedure DoUpdate; virtual;\r\n    procedure UpdateElementVisual; override;\r\n    procedure CreateProgressElement(AElement: TJSElement);\r\n  public\r\n    procedure CreateInitialize; override;\r\n    procedure AfterLoadDFMValues; override;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property DragMode;\r\n    property ElementBarClassName: string read FElementBarClassName write SetElementBarClassName;\r\n    property ElementPosition;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Left;\r\n    property Margins;\r\n    property Max: integer read FMax write SetMax;\r\n    property Min: integer read FMin write SetMin;\r\n    property PopupMenu;\r\n    property Position: integer read FPosition write SetPosition;\r\n    property Style: TProgressBarStyle read FStyle write SetStyle;\r\n    property Top;\r\n    property Value: TProgressBarValue read FValue write SetValue;\r\n    property ValueColor: TColor read FValueColor write SetValueColor default clNone;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebProgressBar = class(TProgressBar);\r\n\r\n  TTreeViewNodeEvent = procedure(Sender: TObject; Node: TTreeNode) of object;\r\n  TTreeViewNodeStateEvent = procedure(Sender: TObject; Node: TTreeNode; AState: boolean) of object;\r\n  TTreeViewNodeAllowEvent = procedure(Sender: TObject; Node: TTreeNode; var Allow: boolean) of object;\r\n\r\n  TTreeViewNodeRenderEvent = procedure(Sender: TObject; Node: TTreeNode; AElement: TJSHTMLElementRecord) of object;\r\n\r\n  TTreeView = class(TWebCustomControl)\r\n  private\r\n    FItems: TTreeNodes;\r\n    FSelected: TTreeNode;\r\n    FOnCollapsing: TTreeViewNodeAllowEvent;\r\n    FOnExpanding: TTreeViewNodeAllowEvent;\r\n    FOnCollapsed: TTreeViewNodeEvent;\r\n    FOnExpanded: TTreeViewNodeEvent;\r\n    FOnClickNode: TTreeViewNodeEvent;\r\n    FOnDblClickNode: TTreeViewNodeEvent;\r\n    FOnRenderNode: TTreeViewNodeRenderEvent;\r\n    FAutoExpand: boolean;\r\n    FOnChange: TTreeViewNodeEvent;\r\n    FOnChanging: TTreeViewNodeAllowEvent;\r\n    FElementNodeSelectedClassName: TElementClassName;\r\n    FElementNodeClassName: TElementClassName;\r\n    FOnClickRadio: TTreeViewNodeStateEvent;\r\n    FOnClickCheckBox: TTreeViewNodeStateEvent;\r\n    procedure SetItems(const Value: TTreeNodes);\r\n    function GetSelected: TTreeNode;\r\n    procedure SetSelected(const Value: TTreeNode);\r\n    procedure SetElementNodeClassName(const Value: TElementClassName);\r\n    procedure SetElementNodeSelectedClassName(const Value: TElementClassName);\r\n    function GetTopItem: TTreeNode;\r\n    procedure SetTopItem(const Value: TTreeNode);\r\n  protected\r\n    procedure DoRenderNode(ANode: TTreeNode; AElement: TJSHTMLElement);\r\n    function RenderControl(ANode: TTreeNode; AElementName: string): string;\r\n    function RenderNode(ANode: TTreeNode; AElementName: string): TJSHTMLElement;\r\n    procedure RenderNodes;\r\n    function CreateNodes: TTreeNodes; virtual;\r\n    function CreateElement: TJSElement; override;\r\n    procedure DoNodesChanged(Sender: TObject);\r\n    procedure DoExpandedChanged(Sender: TObject; ANode: TTreeNode);\r\n    procedure DoSelectionChanged(Sender: TObject; ANode: TTreeNode; IsSelected: boolean);\r\n    function HandleNode(Event: TJSEvent): Boolean; virtual;\r\n    function HandleClick(Event: TJSEvent): Boolean; virtual;\r\n    function HandleDblClick(Event: TJSEvent): Boolean; virtual;\r\n    procedure ClickCheck(ANode: TTreeNode; AState: boolean); virtual;\r\n    procedure ClickRadio(ANode: TTreeNode; AState: boolean); virtual;\r\n    procedure KeyDown(var Key: Word; Shift: TShiftState); override;\r\n    procedure DoChangeSelection(NewNode: TTreeNode); virtual;\r\n    procedure EnableDrag; override;\r\n    procedure DisableDrag; override;\r\n    function FormPrefix: string;\r\n    procedure InitCSSLibrary(ALibrary: TCSSLibrary); override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure BeginUpdate; override;\r\n    procedure EndUpdate; override;\r\n    function GetNodeFromID(AId: string): TTreeNode;\r\n    function GetNodeElement(ANode: TTreeNode): TJSHTMLElement;\r\n    property Selected: TTreeNode read GetSelected write SetSelected;\r\n    procedure Select(const ANode: TTreeNode);\r\n    procedure FullExpand;\r\n    procedure FullCollapse;\r\n    property TopItem: TTreeNode read GetTopItem write SetTopItem;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n\r\n    property AutoExpand: boolean read FAutoExpand write FAutoExpand;\r\n    property DragMode;\r\n    property ElementNodeClassName: TElementClassName read FElementNodeClassName write SetElementNodeClassName;\r\n    property ElementNodeSelectedClassName: TElementClassName read FElementNodeSelectedClassName write SetElementNodeSelectedClassName;\r\n    property ElementClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n\r\n    property Font;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n\r\n    property Items: TTreeNodes read FItems write SetItems;\r\n    property Margins;\r\n    property ParentFont;\r\n    property PopupMenu;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnClick;\r\n    property OnClickCheckBox: TTreeViewNodeStateEvent read FOnClickCheckBox write FOnClickCheckBox;\r\n    property OnClickRadio: TTreeViewNodeStateEvent read FOnClickRadio write FOnClickRadio;\r\n    property OnDblClick;\r\n    property OnClickNode: TTreeViewNodeEvent read FOnClickNode write FOnClickNode;\r\n    property OnDblClickNode: TTreeViewNodeEvent read FOnDblClickNode write FOnDblClickNode;\r\n    property OnRenderNode: TTreeViewNodeRenderEvent read FOnRenderNode write FOnRenderNode;\r\n    property OnChange: TTreeViewNodeEvent read FOnChange write FOnChange;\r\n    property OnChanging: TTreeViewNodeAllowEvent read FOnChanging write FOnChanging;\r\n\r\n    property OnCollapsed: TTreeViewNodeEvent read FOnCollapsed write FOnCollapsed;\r\n    property OnCollapsing: TTreeViewNodeAllowEvent read FOnCollapsing write FOnCollapsing;\r\n    property OnExpanded: TTreeViewNodeEvent read FOnExpanded write FOnExpanded;\r\n    property OnExpanding: TTreeViewNodeAllowEvent read FOnExpanding write FOnExpanding;\r\n\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebTreeView = class(TTreeView);\r\n\r\n\r\n\r\nimplementation\r\n\r\nuses\r\n  WEBLib.Buttons, WEBLib.Forms, WEBLib.Utils;\r\n\r\ntype\r\n  TTreeNodeEx = class(TTreeNode);\r\n  TTreeNodesEx = class(TTreeNodes);\r\n\r\n{ TCustomRichEdit }\r\n\r\nprocedure TCustomRichEdit.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FLines := TStringList.Create;\r\n  TStringList(FLines).OnChange := DoLinesChange;\r\n  FSelAttributes := TTextAttributes.Create(Self);\r\n  FShowFocus := true;\r\n  FWantImages := true;\r\n  FInsertLineBreaks := false;\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Width := 400;\r\n    Height := 300;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomRichEdit.BindEvents;\r\nbegin\r\n  inherited;\r\n  Container.addEventListener('input',@DoHandleInput);\r\n  Container.addEventListener('paste',@DoHandlePaste);\r\nend;\r\n\r\nfunction TCustomRichEdit.CanShowFocus: boolean;\r\nbegin\r\n  Result := FShowFocus;\r\nend;\r\n\r\nfunction TCustomRichEdit.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('DIV');\r\n  TJSHTMLElement(Result).style.setProperty('white-space','normal');\r\nend;\r\n\r\ndestructor TCustomRichEdit.Destroy;\r\nbegin\r\n  FLines.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TCustomRichEdit.DoLinesChange(Sender: TObject);\r\nbegin\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TCustomRichEdit.SelectText(StartPosition, EndPosition: integer);\r\nbegin\r\n  DoSelectAction(StartPosition, EndPosition);\r\nend;\r\n\r\nprocedure TCustomRichEdit.SetAutoSize(const Value: Boolean);\r\nbegin\r\n  if FAutoSize <> Value then\r\n  begin\r\n    FAutoSize := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomRichEdit.SetLines(ALines: TStrings);\r\nbegin\r\n  FLines.Assign(ALines);\r\nend;\r\n\r\nprocedure TCustomRichEdit.SetReadOnly(const Value: boolean);\r\nbegin\r\n  if FReadOnly <> Value then\r\n  begin\r\n    FReadOnly := Value;\r\n    if Assigned(ElementHandle) then\r\n    begin\r\n      if FReadOnly then\r\n        ElementHandle.contentEditable := 'false'\r\n      else\r\n        ElementHandle.contentEditable := 'true';\r\n    end;\r\n\r\n  end;\r\nend;\r\n\r\nprocedure TCustomRichEdit.SetText(const Value: String);\r\nbegin\r\n  FLines.Text := Value;\r\n  UpdateElement;\r\nend;\r\n\r\n//function TCustomRichEdit.ElementIFrameHandle: TJSWindow;\r\nfunction TCustomRichEdit.ElementIFrameHandle: TJSDocument;\r\n//var\r\n//  iframe: TJSHTMLIFrameElement;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n//    iframe := TJSHTMLIFrameElement(document.getElementById(ElementID));\r\n//    if Assigned(iframe) then\r\n//      result := iframe.contentWindow.document;\r\n    Result := document;\r\n  end;\r\nend;\r\n\r\nprocedure GetTextNodes(node: TJSNode; nodes: TList);\r\nvar\r\n  children: TJSNodeList;\r\n  i, j: integer;\r\n  childlist: TList;\r\nbegin\r\n  if (node.nodeType = 3) then\r\n    nodes.Add(node)\r\n  else\r\n  begin\r\n    children := node.childNodes;\r\n\r\n    childlist := TList.Create;\r\n    for i := 0 to children.length - 1 do\r\n    begin\r\n      GetTextNodes(children[i], childlist);\r\n      for j := 0 to childlist.count - 1 do\r\n        nodes.Add(childlist[j]);\r\n    end;\r\n    childlist.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomRichEdit.DoSelectAction(StartPosition, EndPosition: integer);\r\nvar\r\n  s: string;\r\n  sstart, send: integer;\r\n  el: TJSElement;\r\n  range: TJSRange;\r\n  textNodes: TList;\r\n  textNode: TJSNode;\r\n  i: integer;\r\n  foundStart: boolean;\r\n  charCount, endCharCount: integer;\r\n  sel: TJSSelection;\r\nbegin\r\n  s := ElementID;\r\n  sstart := StartPosition;\r\n  send := EndPosition;\r\n\r\n  el := document.getElementById(s);\r\n  if Assigned(el) then\r\n  begin\r\n    range := document.createRange;\r\n    range.selectNodeContents(el);\r\n    textNodes := TList.Create;\r\n\r\n    GetTextNodes(el, textNodes);\r\n    foundStart := false;\r\n    charCount := 0;\r\n    endCharCount := 0;\r\n\r\n    for i := 0 to textNodes.count - 1 do\r\n    begin\r\n      textNode := TJSNode(textNodes[i]);\r\n      endCharCount := charCount + length(TJSNode(textNode).nodeValue);\r\n\r\n      if (not foundStart) and (sstart >= charCount) and ((sstart < endCharCount) or ((sstart = endCharCount) and (i <= textNodes.count))) then\r\n      begin\r\n        range.setStart(textNode, sstart - charCount);\r\n        foundStart := true;\r\n      end;\r\n\r\n      if (foundStart) and (send <= endCharCount) then\r\n      begin\r\n        range.setEnd(textNode, send - charCount);\r\n      \tbreak;\r\n      end;\r\n      charCount := endCharCount;\r\n    end;\r\n\r\n    sel := document.getSelection();\r\n    sel.removeAllRanges();\r\n    sel.addRange(range);\r\n\r\n    textNodes.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomRichEdit.DoEditAction(ActionString: string);\r\nbegin\r\n  if Assigned(ElementIFrameHandle) then\r\n  begin\r\n    ElementIFrameHandle.execCommand(ActionString, false);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomRichEdit.DoChange;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nprocedure TCustomRichEdit.DoEditAction(ActionString: string; Data: string);\r\nbegin\r\n  if Assigned(ElementIFrameHandle) then\r\n  begin\r\n    ElementIFrameHandle.execCommand(ActionString, false, Data);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomRichEdit.DoHandleInput(Event: TJSEvent);\r\nbegin\r\n  DoChange;\r\nend;\r\n\r\nprocedure TCustomRichEdit.DoHandlePaste(Event: TJSEvent);\r\nbegin\r\n  if FWantImages then\r\n    Exit;\r\n  asm\r\n    var pastedData = Event.clipboardData.getData('text');\r\n    var regex = /^[a-zA-Z0-9@  `!@#$%^&*()_+\\-=\\[\\]{};':\"\\\\|,.<>\\/?~]/;\r\n    if (regex.test(pastedData) !== true) {\r\n            Event.preventDefault();\r\n    }\r\n  end;\r\nend;\r\n\r\nprocedure TCustomRichEdit.DoLinkAction;\r\nvar\r\n  url: string;\r\nbegin\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    url := window.prompt('Enter URL:', 'http://');\r\n    if Assigned(url) then\r\n    begin\r\n      if (url <> '') and (url <> 'http://') and (url <> 'https://') then\r\n        DoEditAction('createLink', url);\r\n      end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomRichEdit.DoImageAction;\r\nvar\r\n  url: string;\r\nbegin\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    url := window.prompt('Enter Image URL:', 'http://');\r\n    if Assigned(url) then\r\n    begin\r\n      if (url <> '') and (url <> 'http://') and (url <> 'https://') then\r\n        DoEditAction('insertImage', url);\r\n      end;\r\n  end; \r\nend;\r\n\r\nprocedure TCustomRichEdit.UpdateElement;\r\nvar\r\n  i: integer;\r\n  s: string;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementIFrameHandle) then\r\n  begin\r\n//    ElementIFrameHandle.designMode := 'On';\r\n//    ElementIFrameHandle.document.open;\r\n//    ElementIFrameHandle.document.write(FLines.Text);\r\n//    ElementIFrameHandle.document.close;\r\n//    ElementIFrameHandle.document.contentEditable = true;\r\n//    ElementIFrameHandle.body.innerHTML := FLines.Text;\r\n  end;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    s := '';\r\n    for i := 0 to FLines.Count - 1 do\r\n    begin\r\n      if i > 0 then\r\n        s := s + '<br>';\r\n      s := s + FLines[i];\r\n    end;\r\n\r\n    ElementHandle.innerHTML := s;\r\n\r\n    if ReadOnly then\r\n      ElementHandle.contentEditable := 'false'\r\n    else\r\n      ElementHandle.contentEditable := 'true';\r\n\r\n    ElementHandle.style.setProperty('overflow', 'auto');\r\n    ElementHandle.style.setProperty('padding', '3px');\r\n\r\n    if BorderStyle = bsSingle then\r\n      ElementHandle.style.setProperty('border', '1px solid silver')\r\n    else\r\n      ElementHandle.style.setProperty('border', '');\r\n  end;\r\nend;\r\n\r\nfunction TCustomRichEdit.GetText: String;\r\nbegin\r\n  if Assigned(ElementHandle) then\r\n    FLines.Text := ElementHandle.innerHTML;\r\n  Result := FLines.Text;\r\nend;\r\n\r\nfunction TCustomRichEdit.GetContent: string;\r\nbegin\r\n  Result := self.GetText;\r\nend;\r\n\r\nfunction TCustomRichEdit.GetLines: TStrings;\r\nbegin\r\n  Result := FLines;\r\nend;\r\n\r\nfunction TCustomRichEdit.GetPlainText: String;\r\nbegin\r\n  Result := '';\r\n  if Assigned(ElementHandle) then\r\n    Result := ElementHandle.innerText;\r\nend;\r\n\r\nfunction TCustomRichEdit.GetSelection: string;\r\nvar\r\n  res: string;\r\nbegin\r\n  res := '';\r\n  asm\r\n    // window.getSelection() gives you a Selection object representing the range of text selected by the user or the current position of the caret.\r\n    if (window.getSelection) {\r\n      res = window.getSelection().toString();\r\n    }\r\n  end;\r\n\r\n  Result := res;\r\nend;\r\n\r\nfunction TCustomRichEdit.GetSelectionAttributes(selnode: TJSNode): TSelAttributes;\r\nvar\r\n  el: TJSElement;\r\n  fn,fs,fc,fbk: string;\r\n  found: boolean;\r\n  Attr: TSelAttributes;\r\nbegin\r\n  begin\r\n    asm\r\n      el = null;\r\n      if (selnode.focusNode) {\r\n        el = selnode.focusNode.parentElement;\r\n      }\r\n    end;\r\n\r\n    repeat\r\n      found := false;\r\n\r\n      if Assigned(el) then\r\n      begin\r\n        if el.tagName = 'B' then\r\n        begin\r\n          found := true;\r\n          Attr.IsBold := true;\r\n        end;\r\n        if el.tagName = 'I' then\r\n        begin\r\n          found := true;\r\n          Attr.IsItalic := true;\r\n        end;\r\n        if el.tagName = 'U' then\r\n        begin\r\n          found := true;\r\n          Attr.IsUnderline := true;\r\n        end;\r\n        if el.tagName = 'STRIKE' then\r\n        begin\r\n          found := true;\r\n          Attr.IsStrikeOut := true;\r\n        end;\r\n\r\n        if el.tagName = 'SPAN' then\r\n        begin\r\n          fbk := TJSHTMLElement(el).style.getPropertyValue('background-color');\r\n\r\n          asm\r\n            if (fbk == null) {\r\n              fbk = ''; }\r\n          end;\r\n          Attr.BkColor := fbk;\r\n\r\n          found := true;\r\n        end;\r\n\r\n        if el.tagName = 'DIV' then\r\n        begin\r\n          fbk := TJSHTMLElement(el).style.getPropertyValue('text-align');\r\n\r\n          asm\r\n            if (fbk == null) {\r\n              fbk = ''; }\r\n          end;\r\n\r\n          if fbk = 'center' then\r\n            Attr.isCenter := true;\r\n\r\n          if fbk = 'right' then\r\n            Attr.isRight := true;\r\n\r\n          if fbk = 'left' then\r\n            Attr.isLeft := true;\r\n\r\n          found := true;\r\n        end;\r\n\r\n        if el.tagName = 'FONT' then\r\n        begin\r\n          fn := el['face'];\r\n\r\n          asm\r\n            if (fn == null) {\r\n              fn = ''; }\r\n          end;\r\n\r\n          fs := el['size'];\r\n\r\n          asm\r\n            if (fs == null) {\r\n              fs = ''; }\r\n          end;\r\n\r\n          fc := el['color'];\r\n\r\n          asm\r\n            if (fc == null) {\r\n              fc = ''; }\r\n          end;\r\n\r\n          fbk := TJSHTMLElement(el).style.getPropertyValue('background-color');\r\n\r\n          asm\r\n            if (fbk == null) {\r\n              fbk = ''; }\r\n          end;\r\n\r\n          found := true;\r\n\r\n          Attr.FontName := fn;\r\n          Attr.FontColor := fc;\r\n\r\n          if (fs <> '') then\r\n          begin\r\n            if fs = '7' then\r\n              fs := '36';\r\n\r\n            if fs = '6' then\r\n              fs := '24';\r\n\r\n            if fs = '5' then\r\n              fs := '18';\r\n\r\n            if fs = '4' then\r\n              fs := '14';\r\n\r\n            if fs = '3' then\r\n              fs := '10';\r\n\r\n            if fs = '2' then\r\n              fs := '9';\r\n\r\n            if fs = '1' then\r\n              fs := '8';\r\n          end;\r\n\r\n          Attr.FontSize := fs;\r\n          Attr.BkColor := fbk;\r\n        end;\r\n\r\n        el := TJSElement(el.parentElement);\r\n\r\n        if (el = ElementHandle) then\r\n          found := false;\r\n      end;\r\n    until not found;\r\n\r\n    Result := Attr;\r\n\r\n    if Assigned(OnAttributesChanged) then\r\n      OnAttributesChanged(Self, Attr);\r\n  end;\r\nend;\r\n\r\n{$HINTS OFF}\r\n\r\nfunction TCustomRichEdit.GetSelStart: integer;\r\nvar\r\n  res: integer;\r\n  el: TJSHTMLElement;\r\nbegin\r\n  el := TJSHTMLElement(ElementHandle);\r\n  asm\r\n    const selection = window.getSelection();\r\n    const range = selection.getRangeAt(0);\r\n    const preSelectionRange = range.cloneRange();\r\n    preSelectionRange.selectNodeContents(el);\r\n    preSelectionRange.setEnd(range.startContainer, range.startOffset);\r\n    res = preSelectionRange.toString().length;\r\n  end;\r\n\r\n  Result := res;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TCustomRichEdit.SetSelAttributes(Value: TTextAttributes);\r\nbegin\r\n  SelAttributes.Assign(Value);\r\nend;\r\n\r\nprocedure TCustomRichEdit.SetSelectionSpacing(ASpacing: double);\r\nvar\r\n  sel: TJSSelection;\r\n  range: TJSRange;\r\n  node, pNode: TJSNode;\r\n  i: integer;\r\n  lh: string;\r\n\r\n  function getNextNode(anode: TJSNode): TJSNode;\r\n  begin\r\n    if Assigned(anode.firstChild) then\r\n        Result := anode.firstChild\r\n    else\r\n    while Assigned(anode) do\r\n    begin\r\n        if Assigned(anode.nextSibling) then\r\n        begin\r\n          Result := anode.nextSibling;\r\n          break;\r\n        end;\r\n        anode := anode.parentNode;\r\n    end;\r\n  end;\r\n\r\nbegin\r\n  sel := document.getSelection;\r\n\r\n  if not Assigned(sel) then\r\n    Exit;\r\n\r\n  lh := FormatProp('%g',[ASpacing]);\r\n\r\n  for i := 0 to sel.rangeCount - 1 do\r\n  begin\r\n    range := sel.getRangeAt(i);\r\n\r\n    node := range.startContainer;\r\n\r\n    if node.nodeName = '#text' then\r\n    begin\r\n      pNode := node.parentNode;\r\n      if pNode.nodeName = 'DIV' then\r\n        TJSHTMLElement(pNode).style.setProperty('line-height',lh);\r\n    end;\r\n\r\n    while node <> range.endContainer do\r\n    begin\r\n      node := getNextNode(node);\r\n      if node.nodeName = 'DIV' then\r\n        TJSHTMLElement(node).style.setProperty('line-height',lh);\r\n    end;\r\n  end;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TCustomRichEdit.SetSelStart(const Value: integer);\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  el := TJSHTMLElement(ElementHandle);\r\n\r\n  asm\r\n    const range = document.createRange();\r\n    const sel = window.getSelection();\r\n\r\n    var i = 0;\r\n    while (i < el.childNodes.length) {\r\n      if (Value <=el.childNodes[i].textContent.length) {\r\n        range.setStart(el.childNodes[i], Value);\r\n      }\r\n      else {\r\n         Value = Value - el.childNodes[i].textContent.length;\r\n      }\r\n      i++;\r\n    }\r\n    range.collapse(true);\r\n    sel.removeAllRanges();\r\n    sel.addRange(range);\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\n\r\nprocedure TCustomRichEdit.SetShowFocus(const Value: boolean);\r\nbegin\r\n  if (FShowFocus <> Value) then\r\n  begin\r\n    FShowFocus := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomRichEdit.Loaded;\r\nvar\r\n  doc: TJSDocument;\r\n  el: TJSHTMLElement;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementIFrameHandle) then\r\n  begin\r\n    doc := ElementIFrameHandle;\r\n    el := ElementHandle;\r\n    el.onclick := @HandleDoClick;\r\n    el.ondblclick := @HandleDoDblClick;\r\n    el.onmousedown := @HandleDoMouseDown;\r\n    el.onmouseup := @HandleDoMouseUp;\r\n    el.onmousemove := @HandleDoMouseMove;\r\n    el.onkeydown := @HandleDoKeyDown;\r\n    el.onkeyup := @HandleDoKeyUp;\r\n    el.onkeypress := @HandleDoKeyPress;\r\n    el.onfocus := @HandleDoEnter;\r\n    el.onblur := @HandleDoExit;\r\n    doc.onselectionchange := @HandleDoSelectionChange;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomRichEdit.AppendHTML(HTML: string);\r\nvar\r\n  sel: TJSSelection;\r\n  range: TJSRange;\r\n  el: TJSHTMLElement;\r\n  frag: TJSDocumentFragment;\r\n  node, lastNode: TJSNode;\r\nbegin\r\n  sel := nil;\r\n\r\n  if Focused then\r\n  begin\r\n    sel := document.getSelection;\r\n    range := sel.getRangeAt(0);\r\n    range.deleteContents;\r\n  end\r\n  else\r\n  begin\r\n    range := document.createRange();\r\n    node := ElementHandle.firstChild;\r\n    lastNode := node;\r\n    while Assigned(node) do\r\n    begin\r\n      node := node.nextSibling;\r\n      if Assigned(node) then\r\n        lastNode := node;\r\n    end;\r\n\r\n    if Assigned(lastNode) then\r\n    begin\r\n      range.setStartAfter(lastNode);\r\n      range.setEndAfter(lastNode);\r\n    end\r\n    else\r\n    begin\r\n      range.setStart(ElementHandle, 0);\r\n      range.setEnd(ElementHandle,0);\r\n    end;\r\n  end;\r\n\r\n  el := TJSHTMLElement(document.createElement('div'));\r\n  el.innerHTML := HTML;\r\n  frag := document.createDocumentFragment;\r\n  node := el.firstChild;\r\n\r\n  while (node = el.firstChild) do\r\n  begin\r\n    lastNode := frag.appendChild(node);\r\n    range.insertNode(frag);\r\n  end;\r\n\r\n  if Assigned(lastNode) then\r\n  begin\r\n    range := range.cloneRange();\r\n    range.setStartAfter(lastNode);\r\n    range.collapse;\r\n    if  Assigned(sel) then\r\n    begin\r\n      sel.removeAllRanges;\r\n      sel.addRange(range);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomRichEdit.AppendLinebreak;\r\nbegin\r\n  AppendHTML('<BR>');\r\nend;\r\n\r\nprocedure TCustomRichEdit.InsertHTML(HTML: String);\r\nvar\r\n  sel: TJSSelection;\r\n  range: TJSRange;\r\n  el: TJSHTMLElement;\r\n  frag: TJSDocumentFragment;\r\n  node, lastNode: TJSNode;\r\nbegin\r\n  sel := nil;\r\n  if Focused then\r\n  begin\r\n    sel := document.getSelection;\r\n    range := sel.getRangeAt(0);\r\n    range.deleteContents;\r\n  end\r\n  else\r\n  begin\r\n    range := document.createRange();\r\n    range.setStart(ElementHandle, 0);\r\n    range.setEnd(ElementHandle, 0);\r\n  end;\r\n\r\n  el := TJSHTMLElement(document.createElement('div'));\r\n  el.innerHTML := HTML;\r\n  frag := document.createDocumentFragment;\r\n  node := el.firstChild;\r\n\r\n\r\n  while (node = el.firstChild) do\r\n  begin\r\n    lastNode := frag.appendChild(node);\r\n    range.insertNode(frag);\r\n  end;\r\n\r\n  if Assigned(lastNode) then\r\n  begin\r\n    range := range.cloneRange();\r\n    range.setStartAfter(lastNode);\r\n    range.collapse;\r\n    if  Assigned(sel) then\r\n    begin\r\n      sel.removeAllRanges;\r\n      sel.addRange(range);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomRichEdit.InsertImage(DataURL: string);\r\nbegin\r\n  DoEditAction('insertImage', DataURL);\r\nend;\r\n\r\nprocedure TCustomRichEdit.InsertLineBreak;\r\nbegin\r\n  InsertHTML('<BR>');\r\nend;\r\n\r\nfunction TCustomRichEdit.HandleDoSelectionChange(Event: TEventListenerEvent): Boolean;\r\nvar\r\n  Attr: TSelAttributes;\r\nbegin\r\n  if Assigned(Owner) then\r\n  begin\r\n    //reset to a color close to black to avoid being unable to\r\n    //select black as the new color\r\n    (Owner as TRichEditToolBar).TextColor := $000001;\r\n    (Owner as TRichEditToolBar).BackgroundColor := $000001;\r\n  end;\r\n\r\n  Attr := GetSelectionAttributes(TJSNode(document.getSelection()));\r\n\r\n  SelAttributes.Style := [];\r\n\r\n  if Attr.IsBold then\r\n    SelAttributes.Style := SelAttributes.Style + [fsBold];\r\n  if Attr.IsItalic then\r\n    SelAttributes.Style := SelAttributes.Style + [fsItalic];\r\n  if Attr.IsUnderline then\r\n    SelAttributes.Style := SelAttributes.Style + [fsUnderline];\r\n  if Attr.IsStrikeOut then\r\n    SelAttributes.Style := SelAttributes.Style + [fsStrikeOut];\r\n\r\n  if Assigned(OnSelectionChange) then\r\n    OnSelectionChange(Self);\r\n\r\n  Result := True;\r\nend;\r\n\r\nfunction TCustomRichEdit.HandleDoKeyDown(Event: TJSKeyBoardEvent): Boolean;\r\nbegin\r\n  Result := false;\r\n\r\n  if (Event.ctrlKey = true) and (Event.key = 'Control') and ReadOnly then\r\n  begin\r\n    ElementHandle.contentEditable := 'false';\r\n  end;\r\n\r\n  //Handle Return Key\r\n  if (GetKeyCode(Event.Key) = 13) and InsertLineBreaks then\r\n    InsertHTML('<br>')\r\n  else\r\n  //Handle Tab Key\r\n  if (GetKeyCode(Event.Key) = 9) and WantTabs then\r\n    InsertHTML('<span style=white-space:pre>&#9;</span>')\r\n  else\r\n  begin\r\n    Result := True;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\n\r\nfunction TCustomRichEdit.HandleDoKeyUp(Event: TJSKeyBoardEvent): Boolean;\r\nbegin\r\n  Result := false;\r\n\r\n  if (Event.ctrlKey = false) and (Event.key = 'Control') and not ReadOnly then\r\n  begin\r\n    ElementHandle.contentEditable := 'true';\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\n{ TTextAttributes }\r\n\r\nconstructor TTextAttributes.Create(AOwner: TCustomRichEdit);\r\nbegin\r\n  inherited Create;\r\n  RichEdit := AOwner;\r\n  FAlignment := taLeftJustify;\r\n  FIsBold := False;\r\n  FIsItalic := False;\r\n  FIsUnderline := False;\r\n  FIsStrikeOut := False;\r\n  FOrderedList := False;\r\n  FUnOrderedList := False;\r\nend;\r\n\r\nprocedure TTextAttributes.Cut;\r\nbegin\r\n  RichEdit.DoEditAction('cut');\r\nend;\r\n\r\nfunction TTextAttributes.FontSizeToEM(const Value: integer): string;\r\nbegin\r\n  Result :=  '0.63';\r\n  case Value of\r\n  1: Result := '0.63em';\r\n  2: Result := '0.82em';\r\n  3: Result := '1.0em';\r\n  4: Result := '1.13em';\r\n  5: Result := '1.5em';\r\n  6: Result := '2em';\r\n  7: Result := '3em';\r\n  end;\r\nend;\r\n\r\nprocedure TTextAttributes.Copy;\r\nbegin\r\n  RichEdit.DoEditAction('copy');\r\nend;\r\n\r\nprocedure TTextAttributes.Paste;\r\nbegin\r\n  RichEdit.DoEditAction('paste');\r\nend;\r\n\r\nprocedure TTextAttributes.Image;\r\nbegin\r\n  RichEdit.DoImageAction;\r\nend;\r\n\r\nprocedure TTextAttributes.Link;\r\nbegin\r\n  RichEdit.DoLinkAction;\r\nend;\r\n\r\nprocedure TTextAttributes.SetAlignment(Value: TAlignment);\r\nbegin\r\n  FAlignment := Value;\r\n\r\n  case FAlignment of\r\n    taLeftJustify: RichEdit.DoEditAction('justifyleft');\r\n    taCenter: RichEdit.DoEditAction('justifycenter');\r\n    taRightJustify: RichEdit.DoEditAction('justifyright');\r\n  end;\r\nend;\r\n\r\nprocedure TTextAttributes.SetBackColor(Value: TColor);\r\nbegin\r\n  FColor := Value;\r\n  RichEdit.DoEditAction('hiliteColor', ColorToHtml(Value));\r\nend;\r\n\r\nprocedure TTextAttributes.SetColor(Value: TColor);\r\nbegin\r\n  FColor := Value;\r\n  RichEdit.DoEditAction('foreColor', ColorToHtml(Value));\r\nend;\r\n\r\nprocedure TTextAttributes.SetName(Value: string);\r\nbegin\r\n  FName := Value;\r\n  RichEdit.DoEditAction('fontName', Value);\r\nend;\r\n\r\nprocedure TTextAttributes.SetOrderedList(Value: Boolean);\r\nbegin\r\n  if (FOrderedLIst <> Value) then\r\n    RichEdit.DoEditAction('insertorderedlist');\r\n\r\n  FOrderedList := Value;\r\nend;\r\n\r\nprocedure TTextAttributes.SetUnOrderedList(Value: Boolean);\r\nbegin\r\n  if (FUnOrderedLIst <> Value) then\r\n    RichEdit.DoEditAction('insertunorderedlist');\r\n\r\n  FUnOrderedList := Value;\r\nend;\r\n\r\nprocedure TTextAttributes.SetStyle(Value: TFontStyles);\r\nbegin\r\n  FStyle := Value;\r\n\r\n  if (fsBold in FStyle) and (not FIsBold) then\r\n  begin\r\n    RichEdit.DoEditAction('bold');\r\n    FIsBold := True;\r\n  end;\r\n\r\n  if (not(fsBold in FStyle)) and (FIsBold) then\r\n  begin\r\n    RichEdit.DoEditAction('bold');\r\n    FIsBold := False;\r\n  end;\r\n\r\n  if (fsItalic in FStyle) and (not FIsItalic) then\r\n  begin\r\n    RichEdit.DoEditAction('italic');\r\n    FIsItalic := True;\r\n  end;\r\n\r\n  if (not(fsItalic in FStyle)) and (FIsItalic) then\r\n  begin\r\n    RichEdit.DoEditAction('italic');\r\n    FIsItalic := False;\r\n  end;\r\n\r\n  if (fsUnderline in FStyle) and (not FIsUnderline) then\r\n  begin\r\n    RichEdit.DoEditAction('underline');\r\n    FIsUnderline := True;\r\n  end;\r\n\r\n  if (not(fsUnderline in FStyle)) and (FIsUnderline) then\r\n  begin\r\n    RichEdit.DoEditAction('underline');\r\n    FIsUnderline := False;\r\n  end;\r\n\r\n  if (fsStrikeOut in FStyle) and (not FIsStrikeOut) then\r\n  begin\r\n    RichEdit.DoEditAction('strikethrough');\r\n    FIsStrikeOut := True;\r\n  end;\r\n\r\n  if (not(fsStrikeOut in FStyle)) and (FIsStrikeOut) then\r\n  begin\r\n    RichEdit.DoEditAction('strikethrough');\r\n    FIsStrikeOut := False;\r\n  end;\r\n\r\n//  RichEdit.UpdateElement;\r\nend;\r\n\r\nprocedure TTextAttributes.SetSize(Value: Integer);\r\nbegin\r\n  if (Value > 0) and (Value < 8) then\r\n  begin\r\n    FSize := Value;\r\n    FHeight := Value;\r\n    RichEdit.DoEditAction('fontSize', IntToStr(Value));\r\n    asm\r\n      var selection = window.getSelection();\r\n    end;\r\n  end;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TTextAttributes.SetHeight(Value: Integer);\r\nvar\r\n  eh: TJSElement;\r\n  fs: string;\r\nbegin\r\n  if (Value > 0) and (Value < 8) then\r\n  begin\r\n    FSize := Value;\r\n    FHeight := Value;\r\n    fs := IntToStr(Value);\r\n    RichEdit.DoEditAction('fontSize', fs);\r\n\r\n    fs := FontSizeToEm(Value);\r\n\r\n    eh := RichEdit.ElementHandle;\r\n\r\n    // fix browser shortcoming that it doesn't apply font size changes to LI elements\r\n    asm\r\n      var selection = window.getSelection();\r\n      if (selection.rangeCount > 0) {\r\n        var range = selection.getRangeAt(0);\r\n        const selectedElements = eh.querySelectorAll('*');\r\n        selectedElements.forEach(element => {\r\n          if (range.intersectsNode(element)) {\r\n            if (element.tagName == \"LI\") {\r\n              element.style.setProperty(\"font-size\",fs);\r\n            }\r\n          }\r\n        });\r\n      }\r\n    end;\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TTextAttributes.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TFont then\r\n  begin\r\n    Color := TFont(Source).Color;\r\n    Name := TFont(Source).Name;\r\n    Style := TFont(Source).Style;\r\n    Size := TFont(Source).Size;\r\n  end\r\n  else if Source is TTextAttributes then\r\n  begin\r\n    Color := TTextAttributes(Source).Color;\r\n    Name := TTextAttributes(Source).Name;\r\n    Style := TTextAttributes(Source).Style;\r\n    Size := TTextAttributes(Source).Size;\r\n  end\r\n  else inherited Assign(Source);\r\nend;\r\n\r\nprocedure TTextAttributes.AssignTo(Dest: TPersistent);\r\nbegin\r\n  if Dest is TFont then\r\n  begin\r\n    TFont(Dest).Color := Color;\r\n    TFont(Dest).Name := Name;\r\n    TFont(Dest).Style := Style;\r\n    TFont(Dest).Size := Size;\r\n  end\r\n  else if Dest is TTextAttributes then\r\n  begin\r\n    TTextAttributes(Dest).Color := Color;\r\n    TTextAttributes(Dest).Name := Name;\r\n    TTextAttributes(Dest).Style := Style;\r\n  end\r\n  else inherited AssignTo(Dest);\r\nend;\r\n\r\n{ TTabSet }\r\n\r\nprocedure TTabSet.BindEvents;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    ElementHandle.onchange := @HandleDoChange;\r\n  end;\r\nend;\r\n\r\nprocedure TTabSet.Clear;\r\nbegin\r\n  Items.Clear;\r\nend;\r\n\r\nprocedure TTabSet.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FItems := TStringList.Create;\r\n  FItems.OnChange := ItemsChanged;\r\n  FItemIndex := 0;\r\n  FSelectedColor := clSilver;\r\n  FSelectedTextColor := clBlack;\r\n  FUseHash := true;\r\nend;\r\n\r\nfunction TTabSet.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('SPAN');\r\nend;\r\n\r\ndestructor TTabSet.Destroy;\r\nbegin\r\n  FItems.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTabSet.DisableDrag;\r\n  procedure RemoveDraggableAttribute(AElement: TJSElement);\r\n  var\r\n    I: Integer;\r\n  begin\r\n    for I := 0 to AElement.children.length - 1 do\r\n    begin\r\n      if TJSElement(AElement.children[I]).tagName = 'LI' then\r\n      begin\r\n        TJSElement(AElement.children[I]).removeAttribute('draggable');\r\n        RemoveDraggableAttribute(TJSElement(AElement.children[I]));\r\n      end\r\n      else if TJSElement(AElement.children[I]).tagName = 'A' then\r\n        TJSElement(AElement.children[I]).removeAttribute('draggable')\r\n      else\r\n        RemoveDraggableAttribute(TJSElement(AElement.children[I]));\r\n    end;\r\n  end;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  RemoveDraggableAttribute(Container);\r\nend;\r\n\r\nprocedure TTabSet.SetItems(AItems: TStringList);\r\nbegin\r\n  FItems.Assign(AItems);\r\nend;\r\n\r\nfunction TTabSet.HandleDoChange(Event: TEventListenerEvent): Boolean;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\n  Result := True;\r\nend;\r\n\r\nprocedure TTabSet.Loaded;\r\nbegin\r\n  inherited;\r\n  DoUpdateList;\r\nend;\r\n\r\nprocedure TTabSet.SelectNextTab(GoForward: boolean);\r\nbegin\r\n  if GoForward then\r\n  begin\r\n    if ItemIndex < Items.Count - 1 then\r\n      ItemIndex := ItemIndex + 1\r\n    else\r\n      ItemIndex := 0;\r\n  end\r\n  else\r\n  begin\r\n    if ItemIndex > 0 then\r\n      ItemIndex := ItemIndex - 1\r\n    else\r\n      ItemIndex := Items.Count - 1;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TTabSet.SetItemIndex(AIndex: integer);\r\nbegin\r\n  if FItemIndex <> AIndex then\r\n  begin\r\n    FItemIndex := AIndex;\r\n    DoUpdateList;\r\n  end;\r\nend;\r\n\r\nprocedure TTabSet.SetSelectedColor(const Value: TColor);\r\nbegin\r\n  if FSelectedColor <> Value then\r\n  begin\r\n    FSelectedColor := Value;\r\n    DoUpdateList;\r\n  end;\r\nend;\r\n\r\nprocedure TTabSet.SetSelectedTextColor(const Value: TColor);\r\nbegin\r\n  if (FSelectedColor <> Value) then\r\n  begin\r\n    FSelectedTextColor := Value;\r\n    DoUpdateList;\r\n  end;\r\nend;\r\n\r\nprocedure TTabSet.DoUpdateList;\r\nvar\r\n  i: integer;\r\n  s, cid: string;\r\n  ul, li, a: TJSElement;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  while Assigned(Container.firstChild) do\r\n    Container.removeChild(Container.firstChild);\r\n\r\n  Container['class'] := '';\r\n\r\n  ul := document.createElement('UL');\r\n  ul['class'] := ElementClassName;\r\n\r\n  if ElementClassName <> '' then\r\n    ul['role'] := 'tablist'\r\n  else\r\n  begin\r\n    (TJSHTMLElement(ul)).style.setProperty('list-style-type', 'none');\r\n    (TJSHTMLElement(ul)).style.setProperty('margin', '0');\r\n    (TJSHTMLElement(ul)).style.setProperty('padding', '0');\r\n    (TJSHTMLElement(ul)).style.setProperty('display', 'inline-block');\r\n  end;\r\n\r\n  Container.appendChild(ul);\r\n\r\n  for i := 0 to FItems.Count - 1 do\r\n  begin\r\n    s := FItems[i];\r\n\r\n    li := document.createElement('LI');\r\n\r\n    if ElementClassName <> '' then\r\n    begin\r\n      if ElementTabItemClassName = '' then\r\n        li['class'] := 'nav-item'\r\n      else\r\n        li['class'] := ElementTabItemClassName;\r\n    end\r\n    else\r\n    begin\r\n      (TJSHTMLElement(li)).style.setProperty('float', 'left');\r\n      (TJSHTMLElement(li)).style.setProperty('border-bottom', '1px solid lightgray');\r\n    end;\r\n\r\n    SetHTMLElementFont(TJSHTMLElement(li), Font, not ((ElementClassName = '') and (ElementFont = efProperty)));\r\n\r\n    if DragMode = dmAutomatic then\r\n      li['draggable'] := 'true';\r\n\r\n    ul.appendChild(li);\r\n\r\n    if not Enabled then\r\n      a := document.createElement('SPAN')\r\n    else\r\n    begin\r\n      a := document.createElement('A');\r\n      if FUseHash then\r\n        a['href'] := '#' + s;\r\n    end;\r\n\r\n    a.innerHTML := s;\r\n\r\n    cid := GetID;\r\n    if cid = '' then\r\n      cid := Name;\r\n\r\n    a['id'] := cid + '_' + IntToStr(i);\r\n\r\n    if ElementClassName <> '' then\r\n    begin\r\n      if ItemIndex = i then\r\n      begin\r\n        if ElementTabActiveClassName = '' then\r\n          a['class'] := 'nav-link active'\r\n        else\r\n          a['class'] := ElementTabActiveClassName;\r\n      end\r\n      else\r\n      begin\r\n        if ElementTabClassName = '' then\r\n          a['class'] := 'nav-link'\r\n        else\r\n          a['class'] := ElementTabClassName;\r\n      end;\r\n      a['role'] := 'tab';\r\n\r\n      a['data-toggle'] := 'tab';\r\n      a['aria-controls'] := s;\r\n\r\n      if ItemIndex = i then\r\n        a['aria-selected'] := 'true'\r\n      else\r\n        a['aria-selected'] := 'false';\r\n\r\n      if DragMode = dmAutomatic then\r\n        a['draggable'] := 'false';\r\n    end\r\n    else\r\n    begin\r\n      (TJSHTMLElement(a)).style.setProperty('display', 'block');\r\n      (TJSHTMLElement(a)).style.setProperty('text-align', 'center');\r\n      (TJSHTMLElement(a)).style.setProperty('padding', '3px 15px');\r\n      (TJSHTMLElement(a)).style.setProperty('text-decoration', 'none');\r\n      (TJSHTMLElement(a)).style.setProperty('min-width', '50px');\r\n\r\n      (TJSHTMLElement(a)).style.setProperty('color', 'inherit');\r\n      (TJSHTMLElement(a)).style.setProperty('font-family', 'inherit');\r\n      (TJSHTMLElement(a)).style.setProperty('font-style', 'inherit');\r\n      (TJSHTMLElement(a)).style.setProperty('font-size', 'inherit');\r\n\r\n      if not Enabled then\r\n        (TJSHTMLElement(a)).style.setProperty('pointer-events', 'none');\r\n\r\n      if DragMode = dmAutomatic then\r\n        a['draggable'] := 'false';\r\n\r\n      if ItemIndex = i then\r\n      begin\r\n        if SelectedColor <> clNone then\r\n          (TJSHTMLElement(a)).style.setProperty('background-color', ColorToHtml(SelectedColor));\r\n        if SelectedTextColor <> clNone then\r\n          (TJSHTMLElement(a)).style.setProperty('color', ColorToHtml(SelectedTextColor));\r\n      end;\r\n    end;\r\n\r\n    li.appendChild(a);\r\n  end;\r\n\r\n  if not IsLinked and (csDesigning in ComponentState) then\r\n    RenderDesigning('TWebTabSet', Container, Self, (FItems.Count = 0));\r\n\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TTabSet.EnableDrag;\r\n  procedure AddDraggableAttribute(AElement: TJSElement);\r\n  var\r\n    I: Integer;\r\n  begin\r\n    for I := 0 to AElement.children.length - 1 do\r\n    begin\r\n      if TJSElement(AElement.children[I]).tagName = 'LI' then\r\n      begin\r\n        TJSElement(AElement.children[I]).Attrs['draggable'] := 'true';\r\n        AddDraggableAttribute(TJSElement(AElement.children[I]));\r\n      end\r\n      else if TJSElement(AElement.children[I]).tagName = 'A' then\r\n        TJSElement(AElement.children[I]).Attrs['draggable'] := 'false'\r\n      else\r\n        AddDraggableAttribute(TJSElement(AElement.children[I]));\r\n    end;\r\n  end;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  AddDraggableAttribute(Container);\r\nend;\r\n\r\nprocedure TTabSet.EndUpdate;\r\nbegin\r\n  inherited;\r\n  DoUpdateList;\r\nend;\r\n\r\nfunction TTabSet.HandleDoClick(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  sid, cid: string;\r\n  i: integer;\r\n  el: TJSElement;\r\nbegin\r\n  el := Event.targetElement;\r\n\r\n  sid := '';\r\n  if el.hasAttribute('id') then\r\n    sid := el.getAttribute('id');\r\n\r\n  if sid <> '' then\r\n  begin\r\n    cid := GetID;\r\n    if cid = '' then\r\n      cid := Name;\r\n\r\n    sid := StringReplace(sid, cid + '_', '', []);\r\n    if TryStrToInt(sid,i) then\r\n    begin\r\n      FItemIndex := i;\r\n      DoUpdateList;\r\n    end;\r\n    inherited;\r\n  end;\r\n\r\n  Result := true;\r\nend;\r\n\r\nfunction TTabSet.HandleDoItemMouseOut(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  Result := true;\r\n  //Event.stopPropagation;\r\n\r\n  el := TJSHTMLElement(Event.relatedTarget);\r\n  if Assigned(el) then\r\n  begin\r\n    if el.nodeName = 'A' then\r\n      el.style.setProperty('background-color', '');\r\n  end\r\nend;\r\n\r\nfunction TTabSet.HandleDoItemMouseOver(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  Result := true;\r\n  //Event.stopPropagation;\r\n\r\n  el := TJSHTMLElement(Event.relatedTarget);\r\n  if Assigned(el) then\r\n  begin\r\n    if el.nodeName = 'A' then\r\n      el.style.setProperty('background-color', 'lightgray');\r\n  end\r\nend;\r\n\r\n\r\nprocedure TTabSet.ItemsChanged(Sender: TObject);\r\nbegin\r\n  DoUpdateList;\r\nend;\r\n\r\n{ TPageControl }\r\n\r\nprocedure TPageControl.BindEvents;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    //The ElementHandle doesn't have an onchange event\r\n    //so the onclick is used instead.\r\n    //HandleDoChange checks if a different tab is clicked\r\n    ElementHandle.onclick := @HandleDoChange;\r\n  end;\r\nend;\r\n\r\nfunction TPageControl.CanAcceptChild(AValue: TControl): TControl;\r\nbegin\r\n  Result := inherited;\r\n\r\n  if Assigned(AValue) and not (AValue is TTabSheet) then\r\n  begin\r\n    Result := Parent;\r\n  end;\r\nend;\r\n\r\nprocedure TPageControl.Clear;\r\nbegin\r\n  Items.Clear;\r\nend;\r\n\r\nprocedure TPageControl.CreateInitialize;\r\nbegin\r\n  inherited;\r\n\r\n  FDesignTime := (csDesigning in ComponentState) and not\r\n    ((csReading in Owner.ComponentState) or (csLoading in Owner.ComponentState));\r\n\r\n  ControlStyle := ControlStyle + [csAcceptsControls];\r\n  BorderStyle := bsNone;\r\n  FItems := TStringList.Create;\r\n  FItems.OnChange := ItemsChanged;\r\n  FTabIndex := 0;\r\n  FPrevTabIndex := FTabIndex;\r\n  FShowTabs := true;\r\n  FUseHash := true;\r\n  TabStop := false;\r\n  FSelectedColor := clSilver;\r\n  FSelectedTextColor := clBlack;\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Width := 400;\r\n    Height := 300;\r\n  end;\r\n  EnablePropagation := true;\r\n  FOldVisible := true;\r\nend;\r\n\r\nfunction TPageControl.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('SPAN');\r\nend;\r\n\r\ndestructor TPageControl.Destroy;\r\nbegin\r\n  FItems.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TPageControl.DisableDrag;\r\n  procedure RemoveDraggableAttribute(AElement: TJSElement);\r\n  var\r\n    I: Integer;\r\n    tn: string;\r\n  begin\r\n    for I := 0 to AElement.children.length - 1 do\r\n    begin\r\n      tn := TJSElement(AElement.children[I]).tagName;\r\n      if tn = 'LI' then\r\n      begin\r\n        TJSElement(AElement.children[I]).removeAttribute('draggable');\r\n        RemoveDraggableAttribute(TJSElement(AElement.children[I]));\r\n      end\r\n      else if tn = 'A' then\r\n        TJSElement(AElement.children[I]).removeAttribute('draggable')\r\n      else if tn = 'UL' then\r\n        RemoveDraggableAttribute(TJSElement(AElement.children[I]));\r\n    end;\r\n  end;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  RemoveDraggableAttribute(Container);\r\nend;\r\n\r\nprocedure TPageControl.SelectNextPage(GoForward: boolean);\r\nbegin\r\n  if GoForward then\r\n  begin\r\n    if TabIndex < PageCount - 1 then\r\n      TabIndex := TabIndex + 1\r\n    else\r\n      TabIndex := 0;\r\n  end\r\n  else\r\n  begin\r\n    if TabIndex > 0 then\r\n      TabIndex := TabIndex - 1\r\n    else\r\n      TabIndex := PageCount - 1;\r\n  end;\r\nend;\r\n\r\nfunction TPageControl.PageCount: integer;\r\nvar\r\n  i: integer;\r\nbegin\r\n  Result := 0;\r\n\r\n  for i := 0 to ControlCount - 1 do\r\n  begin\r\n    if (Controls[i] is TTabSheet) then\r\n      inc(Result);\r\n  end;\r\nend;\r\n\r\n\r\nfunction TPageControl.PageIndexFromElement(AElement: TJSElement): Integer;\r\nvar\r\n  sid, cid: string;\r\n  i: Integer;\r\nbegin\r\n  Result := -1;\r\n\r\n  sid := '';\r\n  if AElement.tagName = 'LI' then\r\n    AElement := TJSElement(AElement.firstChild);\r\n\r\n  if AElement.hasAttribute('id') then\r\n    sid := AElement.getAttribute('id');\r\n\r\n  if (sid <> '') then\r\n  begin\r\n    cid := GetID;\r\n    if cid = '' then\r\n      cid := Name;\r\n\r\n    sid := StringReplace(sid, cid + '_', '', []);\r\n    if TryStrToInt(sid, i) then\r\n      Result := i;\r\n  end;\r\nend;\r\n\r\nfunction TPageControl.GetActivePage: TTabsheet;\r\nvar\r\n  pi: integer;\r\nbegin\r\n  Result := nil;\r\n\r\n  pi := GetActivePageIndex;\r\n  if (pi >= 0) then\r\n    Result := Pages[pi];\r\nend;\r\n\r\nfunction TPageControl.GetActivePageIndex: integer;\r\nbegin\r\n  Result := -1;\r\n  if (PageCount >= 0) and (TabIndex >= 0) and (TabIndex < PageCount) then\r\n    Result := TabIndex;\r\nend;\r\n\r\nprocedure TPageControl.GetChildren(Proc: TGetChildProc; Root: TComponent);\r\nvar\r\n  i: integer;\r\nbegin\r\n  for i := 0 to ControlCount - 1 do\r\n  begin\r\n    if (Controls[i] is TTabSheet) then\r\n    begin\r\n      Proc(Controls[i]);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TPageControl.GetPage(index: integer): TTabSheet;\r\nvar\r\n  c,i: integer;\r\nbegin\r\n  c := -1;\r\n  Result := nil;\r\n\r\n  for i := 0 to ControlCount - 1 do\r\n  begin\r\n    if (Controls[i] is TTabSheet) then\r\n      inc(c);\r\n\r\n     if c = index then\r\n     begin\r\n       Result := Controls[i] as TTabSheet;\r\n       break;\r\n     end;\r\n  end;\r\nend;\r\n\r\n\r\nfunction TPageControl.GetUniqueName: string;\r\nvar\r\n  i,id: integer;\r\n  found: boolean;\r\n  AName: string;\r\nbegin\r\n  id := 1;\r\n\r\n  AName := Name + 'sheet';\r\n\r\n  repeat\r\n    Result := AName + inttostr(id);\r\n\r\n    found := true;\r\n\r\n    for i := 0 to Owner.ComponentCount - 1 do\r\n    begin\r\n      if Owner.Components[i].Name = Result then\r\n      begin\r\n        found := false;\r\n        inc(id);\r\n        break;\r\n      end;\r\n    end;\r\n\r\n  until found;\r\nend;\r\n\r\nprocedure TPageControl.SetActivePage(const Value: TTabsheet);\r\nvar\r\n  i: integer;\r\nbegin\r\n  for i := 0 to ControlCount - 1 do\r\n  begin\r\n    if Controls[i] = Value then\r\n    begin\r\n      ActivePageINdex := i;\r\n      break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TPageControl.SetActivePageIndex(const Value: integer);\r\nbegin\r\n  if (Value >= 0) and (Value < PageCount) then\r\n    TabIndex := Value;\r\nend;\r\n\r\n\r\nprocedure TPageControl.SetDisabledTextColor(const Value: TColor);\r\nbegin\r\n  if (FDisabledTextColor <> Value) then\r\n  begin\r\n    FDisabledTextColor := Value;\r\n    DoUpdateList;\r\n  end;\r\nend;\r\n\r\nprocedure TPageControl.SetItems(AItems: TStringList);\r\nbegin\r\n  FItems.Assign(AItems);\r\nend;\r\n\r\nprocedure TPageControl.SetParent(AValue: TControl);\r\nvar\r\n  ts: TTabSheet;\r\n  frm: TCustomForm;\r\nbegin\r\n  inherited;\r\n\r\n  if FDesignTime then\r\n  begin\r\n    frm := GetParentForm(Self);\r\n\r\n    FDesignTime := false;\r\n    ts := TWebTabSheet.Create(frm);\r\n    ts.Parent := Self;\r\n    ts.Caption := 'Page1';\r\n    ts.Name := GetUniqueName;\r\n\r\n    ts := TWebTabSheet.Create(frm);\r\n    ts.Parent := Self;\r\n    ts.Caption := 'Page2';\r\n    ts.Name := GetUniqueName;\r\n  end;\r\n\r\n  DoUpdateList;\r\nend;\r\n\r\nfunction TPageControl.HandleDoChange(Event: TJSMouseEvent): Boolean;\r\nbegin\r\n  if FPrevTabIndex <> FTabIndex then\r\n  begin\r\n    FPrevTabIndex := FTabIndex;\r\n    if Assigned(OnChange) then\r\n      OnChange(Self);\r\n  end;\r\n  Result := True;\r\nend;\r\n\r\nprocedure TPageControl.Loaded;\r\nbegin\r\n  inherited;\r\n  DoUpdateList;\r\n  TabIndex := FTabIndex;\r\n  FOldVisible := Visible;\r\nend;\r\n\r\nprocedure TPageControl.SetTabIndex(AIndex: integer);\r\nbegin\r\n  if (csLoading in ComponentState) then\r\n    FTabIndex := AIndex;\r\n\r\n  if (FTabIndex <> AIndex) and (AIndex >= 0) and (AIndex < PageCount) then\r\n  begin\r\n    FTabIndex := AIndex;\r\n    FPrevTabIndex := FTabIndex;\r\n    DoUpdateList;\r\n  end;\r\nend;\r\n\r\nprocedure TPageControl.UpdateElement;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TPageControl.VisibleChanged;\r\nbegin\r\n  inherited;\r\n  if FOldVisible <> Visible then\r\n  begin\r\n    DoUpdateList;\r\n    FOldVisible := Visible;\r\n  end;\r\nend;\r\n\r\nprocedure TPageControl.SetSelectedColor(const AValue: TColor);\r\nbegin\r\n  if FSelectedColor <> AValue then\r\n  begin\r\n    FSelectedColor := AValue;\r\n    DoUpdateList;\r\n  end;\r\nend;\r\n\r\nprocedure TPageControl.SetSelectedTextColor(const Value: TColor);\r\nbegin\r\n  if FSelectedTextColor <> Value then\r\n  begin\r\n    FSelectedTextColor := Value;\r\n    DoUpdateList;\r\n  end;\r\nend;\r\n\r\nprocedure TPageControl.SetShowTabs(const Value: boolean);\r\nbegin\r\n  if FShowTabs <> Value then\r\n  begin\r\n    FShowTabs := Value;\r\n    DoUpdateList;\r\n  end;\r\nend;\r\n\r\nprocedure TPageControl.DoUpdateList;\r\nvar\r\n  i, vistabindex: integer;\r\n  ena: TObject;\r\n  s, cid: string;\r\n  shidden: string;\r\n  n: TJSNode;\r\n  ul, li, a: TJSElement;\r\n  tabs: TStringList;\r\n  tab: TTabSheet;\r\n  LLabel: TJSHTMLElement;\r\n  LHasLabel: boolean;\r\n  matclr,icn,noptr,inactive: string;\r\n  th: integer;\r\n\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  if not Assigned(ElementHandle) or IsUpdating then\r\n    Exit;\r\n\r\n  tab := nil;\r\n\r\n  if ControlCount > 0 then\r\n  begin\r\n    BorderStyle := bsNone;\r\n    LLabel := TJSHTMLElement(ElementHandle.firstChild);\r\n    LHasLabel := Assigned(LLabel) and (LLabel.tagName = 'DIV') and (LLabel.getAttribute('data-design') = '1');\r\n    if LHasLabel then\r\n    begin\r\n      ElementHandle.removeChild(ElementHandle.firstChild);\r\n      ElementHandle.style.removeProperty('border');\r\n    end;\r\n\r\n    tabs := TStringList.Create;\r\n\r\n    shidden := '{#hidden#}';\r\n\r\n    vistabindex := TabIndex;\r\n\r\n    for i := 0 to ControlCount - 1 do\r\n    begin\r\n      if (csDestroying in Controls[i].ComponentState) and (i <= TabIndex) then\r\n        inc(vistabindex);\r\n\r\n      if (Controls[i] is TTabSheet) and not (csDestroying in Controls[i].ComponentState) then\r\n      begin\r\n        tab := TTabSheet(Controls[i]);\r\n\r\n        icn := '';\r\n\r\n        if tab.TabEnabled then\r\n          ena := Self\r\n        else\r\n          ena := nil;\r\n\r\n        if tab.TabVisible then\r\n        begin\r\n          if tab.MaterialGlyph <> '' then\r\n          begin\r\n            matclr := '';\r\n            inactive := '';\r\n\r\n            if not tab.Enabled then\r\n              inactive := ' md-light md-inactive';\r\n\r\n            if tab.FMaterialGlyphColor <> clNone then\r\n              matclr := ';color:'+ColorToHTML(tab.MaterialGlyphColor);\r\n            noptr := 'pointer-events:none';\r\n\r\n            icn := '<i class=\"' + GetMaterialClass(tab.MaterialGlyphType) + inactive+'\" style=\"'+noptr+';font-size:'+ IntToStr(tab.MaterialGlyphSize)+'px' + matclr+'\">' + tab.MaterialGlyph + '</i>&nbsp;';\r\n          end;\r\n          tabs.AddObject(icn + tab.Caption, ena);\r\n        end\r\n        else\r\n          tabs.AddObject(shidden, ena);\r\n\r\n        tab.BeginUpdate;\r\n\r\n        if (vistabindex = i) then\r\n          tab.Align := alClient\r\n        else\r\n          tab.Align := alNone;\r\n\r\n        tab.AlignWithMargins := True;\r\n        tab.Margins.Left := 0;\r\n        tab.Margins.Right := 0;\r\n        tab.Margins.Bottom := 0;\r\n//        tab.BorderStyle := bsSingle;\r\n        tab.Visible := (vistabindex = i);\r\n\r\n        tab.ResetUpdate;\r\n\r\n        // change order of tabs to bring visible tab to front\r\n        if (vistabindex = i) then\r\n          tab.ElementHandle.parentElement.insertBefore(tab.ElementHandle,  nil {tab.ElementHandle.parentElement.firstChild});\r\n\r\n        tab.GetElementHandle.style.setProperty('background-color', ColorToHtml(tab.Color));\r\n      end;\r\n    end;\r\n\r\n    cid := GetID;\r\n    if cid = '' then\r\n      cid := Name;\r\n\r\n    for i := 0 to Container.childNodes.length - 1 do\r\n    begin\r\n      n := Container.childNodes[i];\r\n      if Assigned(n) and (TJSElement(n)['id'] = cid + '_UL') then\r\n        Container.removeChild(n);\r\n    end;\r\n\r\n    Container['class'] := '';\r\n\r\n    if not Enabled then\r\n      ElementHandle.style.setProperty('pointer-events', 'none')\r\n    else\r\n      ElementHandle.style.setProperty('pointer-events', 'auto');\r\n\r\n    if ShowTabs then\r\n    begin\r\n      ul := document.createElement('UL');\r\n      ul['class'] := ElementClassName;\r\n      ul['id'] := cid + '_UL';\r\n\r\n      if ElementClassName <> '' then\r\n        ul['role'] := 'tablist'\r\n      else\r\n      begin\r\n        (TJSHTMLElement(ul)).style.setProperty('list-style-type', 'none');\r\n        (TJSHTMLElement(ul)).style.setProperty('margin', '0');\r\n        (TJSHTMLElement(ul)).style.setProperty('padding', '0');\r\n        (TJSHTMLElement(ul)).style.setProperty('display', 'inline-block')\r\n      end;\r\n\r\n      Container.appendChild(ul);\r\n    end;\r\n\r\n    for i := 0 to tabs.Count - 1 do\r\n    begin\r\n      s := tabs[i];\r\n      if (s <> shidden) and ShowTabs then\r\n      begin\r\n        if s = '' then\r\n          s := 'tab' + IntToStr(i);\r\n\r\n        li := document.createElement('LI');\r\n\r\n        if ElementClassName <> '' then\r\n        begin\r\n          if ElementTabItemClassName = '' then\r\n            li['class'] := 'nav-item'\r\n          else\r\n            li['class'] := ElementTabItemClassName;\r\n        end\r\n        else\r\n        begin\r\n          (TJSHTMLElement(li)).style.setProperty('float', 'left');\r\n          if BorderStyle <> bsNone then\r\n            (TJSHTMLElement(li)).style.setProperty('border-bottom', '1px solid lightgray');\r\n        end;\r\n\r\n        if (tabs.Objects[i] = nil)  then\r\n        begin\r\n          (TJSHTMLElement(li)).style.setProperty('pointer-events', 'none');\r\n          (TJSHTMLElement(li)).style.setProperty('color', ColorToHTML(DisabledTextColor));\r\n        end;\r\n\r\n        if DragMode = dmAutomatic then\r\n          li['draggable'] := 'true';\r\n\r\n        SetHTMLElementFont(TJSHTMLElement(li), Font, not ((ElementClassName = '') and (ElementFont = efProperty)));\r\n\r\n        ul.appendChild(li);\r\n\r\n        if not Enabled then\r\n          a := document.createElement('SPAN')\r\n        else\r\n        begin\r\n          a := document.createElement('A');\r\n          if UseHash then\r\n            a['href'] := '#' + s;\r\n        end;\r\n\r\n        if DragMode = dmAutomatic then\r\n          a['draggable'] := 'false';\r\n\r\n        a.innerHTML := s;\r\n        a['id'] := cid + '_' + IntToStr(i);\r\n\r\n        if ElementClassName <> '' then\r\n        begin\r\n          if TabIndex = i then\r\n          begin\r\n            if ElementTabActiveClassName = '' then\r\n              a['class'] := 'nav-link active'\r\n            else\r\n              a['class'] := ElementTabActiveClassName;\r\n          end\r\n          else\r\n          begin\r\n            if ElementTabClassName = '' then\r\n              a['class'] := 'nav-link'\r\n            else\r\n              a['class'] := ElementTabClassName;\r\n          end;\r\n          a['role'] := 'tab';\r\n\r\n          a['data-toggle'] := 'tab';\r\n          a['aria-controls'] := s;\r\n\r\n          if TabIndex = i then\r\n            a['aria-selected'] := 'true'\r\n          else\r\n            a['aria-selected'] := 'false';\r\n        end\r\n        else\r\n        begin\r\n          (TJSHTMLElement(a)).style.setProperty('display', 'block');\r\n          (TJSHTMLElement(a)).style.setProperty('text-align', 'center');\r\n          (TJSHTMLElement(a)).style.setProperty('padding', '3px 15px');\r\n          (TJSHTMLElement(a)).style.setProperty('text-decoration', 'none');\r\n          (TJSHTMLElement(a)).style.setProperty('min-width', '50px');\r\n\r\n          (TJSHTMLElement(a)).style.setProperty('color', 'inherit');\r\n          (TJSHTMLElement(a)).style.setProperty('font-family', 'inherit');\r\n          (TJSHTMLElement(a)).style.setProperty('font-style', 'inherit');\r\n          (TJSHTMLElement(a)).style.setProperty('font-size', 'inherit');\r\n\r\n//          if not enabled then\r\n//            (TJSHTMLElement(a)).style.setProperty('pointer-events', 'none');\r\n\r\n          if TabIndex = i then\r\n          begin\r\n            if SelectedColor <> clNone then\r\n              (TJSHTMLElement(a)).style.setProperty('background-color', ColorToHtml(SelectedColor));\r\n            if SelectedTextColor <> clNone then\r\n              (TJSHTMLElement(a)).style.setProperty('color', ColorToHtml(SelectedTextColor));\r\n          end;\r\n        end;\r\n\r\n        li.appendChild(a);\r\n      end;\r\n    end;\r\n\r\n    for i := 0 to ControlCount - 1 do\r\n    begin\r\n      if Controls[i] is TTabSheet then\r\n      begin\r\n        if ShowTabs then\r\n          th := Round((TJSHTMLElement(ul)).offsetHeight) - 1\r\n        else\r\n          th := 0;\r\n\r\n        TTabSheet(Controls[i]).Margins.Top := th;\r\n        TTabSheet(Controls[i]).ElementHandle.style.setProperty('white-space', '');\r\n      end;\r\n    end;\r\n\r\n    tabs.Free;\r\n  end\r\n  else\r\n  begin\r\n    if not IsLinked then\r\n    begin\r\n      ClearChildElements;\r\n      if (csDesigning in ComponentState) then\r\n      begin\r\n        RenderDesigning('TWebPageControl', Container, Self, True);\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  DoUpdateResize;\r\n\r\n  if Assigned(tab) then\r\n  begin\r\n    tab.Align := alNone;\r\n    tab.Align := alClient;\r\n  end;\r\n\r\n  UpdateElement;\r\n\r\n  if not IsLinked and (ControlCount = 0) then\r\n  begin\r\n    ElementHandle.style.setProperty('border','1px solid lightgray');\r\n  end;\r\nend;\r\n\r\nprocedure TPageControl.DoUpdateResize;\r\nvar\r\n  i, vistabindex: integer;\r\nbegin\r\n  // hide all\r\n  for i := 0 to ControlCount - 1 do\r\n  begin\r\n    if Controls[i] is TTabSheet then\r\n       Controls[i].Visible := false;\r\n  end;\r\n\r\n  // cause client alignment for all\r\n  for i := 0 to ControlCount - 1 do\r\n  begin\r\n    if Controls[i] is TTabSheet then\r\n    begin\r\n      Controls[i].Visible := true;\r\n      Controls[i].Align := alNone;\r\n      Controls[i].Align := alClient;\r\n      Controls[i].Visible := false;\r\n    end;\r\n  end;\r\n\r\n  vistabindex := TabIndex;\r\n\r\n  // make active tab visible\r\n  for i := 0 to ControlCount - 1 do\r\n  begin\r\n    if (csDestroying in Controls[i].ComponentState) and (i <= TabIndex) then\r\n      inc(vistabindex);\r\n\r\n    if Controls[i] is TTabSheet then\r\n    begin\r\n      Controls[i].Visible := (vistabindex = i);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TPageControl.EnableDrag;\r\n  procedure AddDraggableAttribute(AElement: TJSElement);\r\n  var\r\n    I: Integer;\r\n    tn: string;\r\n  begin\r\n    for I := 0 to AElement.children.length - 1 do\r\n    begin\r\n      tn := TJSElement(AElement.children[I]).tagName;\r\n      if tn = 'LI' then\r\n      begin\r\n        TJSElement(AElement.children[I]).Attrs['draggable'] := 'true';\r\n        AddDraggableAttribute(TJSElement(AElement.children[I]));\r\n      end\r\n      else if tn = 'A' then\r\n        TJSElement(AElement.children[I]).Attrs['draggable'] := 'false'\r\n      else if tn = 'UL' then\r\n        AddDraggableAttribute(TJSElement(AElement.children[I]));\r\n    end;\r\n  end;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  AddDraggableAttribute(Container);\r\nend;\r\n\r\nprocedure TPageControl.EndUpdate;\r\nbegin\r\n  inherited;\r\n  DoUpdateList;\r\nend;\r\n\r\nfunction TPageControl.HandleDoClick(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  sid, cid: string;\r\n  i: integer;\r\n  el: TJSElement;\r\n  ts: TTabSheet;\r\n\r\nbegin\r\n  el := Event.targetElement;\r\n\r\n  sid := '';\r\n  if el.hasAttribute('id') then\r\n    sid := el.getAttribute('id');\r\n\r\n  if (sid <> '') then\r\n  begin\r\n    cid := GetID;\r\n    if cid = '' then\r\n      cid := Name;\r\n\r\n    sid := StringReplace(sid, cid + '_', '', []);\r\n    if TryStrToInt(sid,i) then\r\n    begin\r\n      if FTabIndex <> -1 then\r\n      begin\r\n        ts := GetPage(FTabIndex);\r\n        if Assigned(ts) and Assigned(ts.OnHide) then\r\n          ts.OnHide(ts);\r\n      end;\r\n\r\n      FTabIndex := i;\r\n\r\n      DoUpdateList;\r\n\r\n      if FTabIndex <> -1 then\r\n      begin\r\n        ts := GetPage(FTabIndex);\r\n        if Assigned(ts) and Assigned(ts.OnShow) then\r\n          ts.OnShow(ts);\r\n      end;\r\n\r\n    end;\r\n    inherited;\r\n  end;\r\n\r\n  Result := true;\r\nend;\r\n\r\nfunction TPageControl.HandleDoItemMouseOut(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  Result := true;\r\n  //Event.stopPropagation;\r\n\r\n  el := TJSHTMLElement(Event.relatedTarget);\r\n  if Assigned(el) then\r\n  begin\r\n    if el.nodeName = 'A' then\r\n      el.style.setProperty('background-color', '');\r\n  end\r\nend;\r\n\r\nfunction TPageControl.HandleDoItemMouseOver(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  Result := true;\r\n  //Event.stopPropagation;\r\n\r\n  el := TJSHTMLElement(Event.relatedTarget);\r\n  if Assigned(el) then\r\n  begin\r\n    if el.nodeName = 'A' then\r\n      el.style.setProperty('background-color', 'lightgray');\r\n  end\r\nend;\r\n\r\nprocedure TPageControl.ItemsChanged(Sender: TObject);\r\nvar\r\n  i: integer;\r\n  ts: TTabSheet;\r\n\r\nbegin\r\n  if (PageCount = 0) and (Items.Count > 0) and (ElementHandle.childElementCount > 0) then\r\n  begin\r\n    ElementHandle.removeChild(ElementHandle.firstChild);\r\n  end;\r\n\r\n  for i := 0 to FItems.Count - 1 do\r\n  begin\r\n    if PageCount <= i then\r\n    begin\r\n      ts := TTabSheet.Create(Owner);\r\n      ts.Parent := Self;\r\n      ts.Name := Name + 'sheet' + inttostr(i + 1);\r\n    end;\r\n    Pages[i].Caption := FItems[i];\r\n  end;\r\n\r\n  for i := PageCount - 1  downto 0 do\r\n  begin\r\n    if i >= Items.Count then\r\n    begin\r\n      ts := Pages[i];\r\n      ts.Free;\r\n    end;\r\n  end;\r\n\r\n  DoUpdateList;\r\nend;\r\n\r\n{ TTabSheet }\r\n\r\nprocedure TTabSheet.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  EnablePropagation := true;\r\n  ControlStyle := ControlStyle + [csAcceptsControls];\r\n  Color := clWhite;\r\n  TabVisible := True;\r\n  TabEnabled := True;\r\n  ShowCaption := False;\r\n  FPosUpdating := False;\r\n  FMaterialGlyphSize := 18;\r\n  FMaterialGlyphType := mgNormal;\r\n  FMaterialGlyphColor := clNone;\r\nend;\r\n\r\ndestructor TTabSheet.Destroy;\r\nvar\r\n  p: TPageControl;\r\nbegin\r\n  p := nil;\r\n\r\n  if Assigned(Parent) then\r\n  begin\r\n    if Parent is TPageControl then\r\n    begin\r\n      p := (Parent as TPageControl);\r\n    end;\r\n  end;\r\n\r\n  inherited;\r\n\r\n  if Assigned(p) then\r\n  begin\r\n    p.DoUpdateList;\r\n    p.TabIndex := 0;\r\n  end;\r\nend;\r\n\r\nprocedure TTabSheet.EndUpdate;\r\nbegin\r\n  inherited;\r\n  if Assigned(Parent) then\r\n  begin\r\n    if Parent is TPageControl then\r\n      (Parent as TPageControl).DoUpdateList;\r\n  end;\r\nend;\r\n\r\nfunction TTabSheet.GetPageIndex: integer;\r\nvar\r\n  i,j: integer;\r\n  FPageControl: TPageControl;\r\nbegin\r\n  Result := -1;\r\n\r\n  if (Parent is TPageControl) then\r\n  begin\r\n    FPageControl := (Parent as TPageControl);\r\n\r\n    j := 0;\r\n    for i := 0 to FPageControl.ControlCount - 1 do\r\n      begin\r\n        if FPageControl.Controls[i] is TTabSheet then\r\n        begin\r\n          if FPageControl.Controls[i] = Self then\r\n          begin\r\n            Result := j;\r\n          end\r\n          else\r\n            inc(j);\r\n        end;\r\n      end;\r\n  end;\r\nend;\r\n\r\nprocedure TTabSheet.ResetUpdate;\r\nbegin\r\n  inherited EndUpdate;\r\nend;\r\n\r\nprocedure TTabSheet.SetBounds(X, Y, AWidth, AHeight: Integer);\r\nbegin\r\n  inherited;\r\n\r\n  if (Parent is TPageControl) and not FPosUpdating then\r\n  begin\r\n    FPosupdating := true;\r\n    (Parent as TPageControl).DoUpdateList;\r\n    FPosupdating := false;\r\n  end;\r\nend;\r\n\r\nprocedure TTabSheet.SetCaption(const AValue: string);\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(Parent) then\r\n  begin\r\n    if Parent is TPageControl then\r\n      (Parent as TPageControl).DoUpdateList;\r\n  end;\r\nend;\r\n\r\nprocedure TTabSheet.SetMaterialGlyph(const Value: TMaterialGlyph);\r\nbegin\r\n  if (FMaterialGlyph <> Value) then\r\n  begin\r\n    FMaterialGlyph := Value;\r\n    if Parent is TPageControl then\r\n      (Parent as TPageControl).DoUpdateList;\r\n  end;\r\nend;\r\n\r\nprocedure TTabSheet.SetMaterialGlyphColor(const Value: TColor);\r\nbegin\r\n  if (FMaterialGlyphColor <> Value) then\r\n  begin\r\n    FMaterialGlyphColor := Value;\r\n    if Parent is TPageControl then\r\n      (Parent as TPageControl).DoUpdateList;\r\n  end;\r\nend;\r\n\r\nprocedure TTabSheet.SetMaterialGlyphSize(const Value: integer);\r\nbegin\r\n  if (FMaterialGlyphSize <> Value) then\r\n  begin\r\n    FMaterialGlyphSize := Value;\r\n    if Parent is TPageControl then\r\n      (Parent as TPageControl).DoUpdateList;\r\n  end;\r\nend;\r\n\r\nprocedure TTabSheet.SetMaterialGlyphType(const Value: TMaterialGlyphType);\r\nbegin\r\n  if (FMaterialGlyphType <> Value) then\r\n  begin\r\n    FMaterialGlyphType := Value;\r\n    if Parent is TPageControl then\r\n      (Parent as TPageControl).DoUpdateList;\r\n  end;\r\nend;\r\n\r\nprocedure TTabSheet.SetPageIndex(const Value: integer);\r\nbegin\r\n  //\r\nend;\r\n\r\nprocedure TTabSheet.SetParent(AValue: TControl);\r\nbegin\r\n  if (AValue is TTabSheet) then\r\n  begin\r\n    if (AValue as TTabSheet).Parent is TPageControl then\r\n      AValue := (AValue as TTabSheet).Parent;\r\n  end;\r\n\r\n  inherited SetParent(AValue);\r\n\r\n  if Assigned(Parent) then\r\n  begin\r\n    if Parent is TPageControl then\r\n    begin\r\n      (Parent as TPageControl).DoUpdateList;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTabSheet.SetTabVisible(const Value: Boolean);\r\nbegin\r\n  if FTabVisible <> Value then\r\n  begin\r\n    FTabVisible := Value;\r\n\r\n    if Assigned(Parent) then\r\n    begin\r\n      if Parent is TPageControl then\r\n        (Parent as TPageControl).DoUpdateList;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTabSheet.SetTabEnabled(const Value: Boolean);\r\nbegin\r\n  if FTabEnabled <> Value then\r\n  begin\r\n    FTabEnabled := Value;\r\n\r\n    if Assigned(Parent) then\r\n    begin\r\n      if Parent is TPageControl then\r\n        (Parent as TPageControl).DoUpdateList;\r\n    end;\r\n  end;\r\nend;\r\n\r\n\r\n{ TProgressBar }\r\n\r\nprocedure TProgressBar.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FMax := 100;\r\n  FMin := 0;\r\n  FPosition := 0;\r\n  FStyle := pbstNormal;\r\n  FValueColor := clNone;\r\nend;\r\n\r\nprocedure TProgressBar.CreateProgressElement(AElement: TJSElement);\r\nvar\r\n  d: TJSElement;\r\nbegin\r\n  while Assigned(AElement.firstChild) do\r\n    AElement.removeChild(AElement.firstChild);\r\n\r\n  if FStyle = pbstDiv then\r\n  begin\r\n    d := document.createElement('DIV');\r\n    d.appendChild(document.createElement('DIV'));\r\n  end\r\n  else\r\n    d := document.createElement('PROGRESS');\r\n\r\n  AElement.appendChild(d);\r\nend;\r\n\r\nprocedure TProgressBar.AfterLoadDFMValues;\r\nbegin\r\n  inherited;\r\n  DoUpdate;\r\nend;\r\n\r\nfunction TProgressBar.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('SPAN');\r\n  CreateProgressElement(Result);\r\nend;\r\n\r\nprocedure TProgressBar.SetElementBarClassName(const Value: string);\r\nbegin\r\n  FElementBarClassName := Value;\r\n  DoUpdate;\r\nend;\r\n\r\nprocedure TProgressBar.SetMax(AValue: integer);\r\nbegin\r\n  FMax := AValue;\r\n  DoUpdate;\r\nend;\r\n\r\nprocedure TProgressBar.SetMin(AValue: integer);\r\nbegin\r\n  FMin := AValue;\r\n  DoUpdate;\r\nend;\r\n\r\nprocedure TProgressBar.DoUpdate;\r\nvar\r\n  pvalue: integer;\r\n  maxvalue: integer;\r\n  el: TJSHTMLElement;\r\n  pos: integer;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  if FMax <> FMin then\r\n    pos := Round((FPosition - Min) / (Max - Min) * 100)\r\n  else\r\n    pos := 0;\r\n\r\n  //\r\n  if isLinked then\r\n  begin\r\n    if ElementHandle.TagName= 'DIV' then\r\n    begin\r\n      if ElementHandle['role'] = 'progressbar' then\r\n        ElementHandle.style.setProperty('width',inttostr(pos)+'%')\r\n      else\r\n        ElementHandle.innerHTML := inttostr(pos)\r\n    end\r\n    else\r\n      ElementHandle.setAttribute('value',inttostr(pos));\r\n\r\n    Exit;\r\n  end;\r\n\r\n\r\n  if Style = pbstDiv then\r\n  begin\r\n    el := TJSHTMLElement(ElementHandle.firstChild);\r\n\r\n    if ElementClassName <> '' then\r\n    begin\r\n      el.setAttribute('class',ElementClassName);\r\n      ElementHandle.removeAttribute('class');\r\n    end;\r\n\r\n    el.style.setProperty('height',inttostr(Height)+'px');\r\n\r\n    if WidthStyle = ssAbsolute then\r\n      el.style.setProperty('width',inttostr(Width)+'px');\r\n\r\n    el := TJSHTMLElement(el.firstChild);\r\n    el.style.setProperty('background-color','#3397FD');\r\n\r\n    if ElementBarClassName <> '' then\r\n      el.setAttribute('class',ElementBarClassName);\r\n\r\n    el.setAttribute('role','progressbar');\r\n    el.style.setProperty('width',inttostr(pos)+'%');\r\n\r\n    case Value of\r\n    pbvPercentage: el.innerHTML := inttostr(pos)+'%';\r\n    pbvAbsolute: el.innerHTML := inttostr(Position);\r\n    pbvNone: el.innerHTML := '&nbsp;';\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    el := TJSHTMLElement(ElementHandle.firstChild);\r\n    el.style.setProperty('width','100%');\r\n    el.style.setProperty('height','100%');\r\n    pvalue := FPosition - FMin;\r\n    maxvalue := FMax - FMin;\r\n    el['max'] := IntToStr(maxvalue);\r\n\r\n    if Style = pbstNormal then\r\n      el['value'] := IntToStr(pvalue)\r\n    else\r\n      el.removeAttribute('value');\r\n  end;\r\nend;\r\n\r\nprocedure TProgressBar.SetPosition(AValue: integer);\r\nbegin\r\n  if (AValue >= Min) and (AValue <= Max) then\r\n  begin\r\n    FPosition := AValue;\r\n    DoUpdate;\r\n  end;\r\nend;\r\n\r\nprocedure TProgressBar.SetStyle(const Value: TProgressBarStyle);\r\nbegin\r\n  if FStyle <> Value then\r\n  begin\r\n    FStyle := Value;\r\n\r\n    if Assigned(ElementHandle) then\r\n    begin\r\n      CreateProgressElement(ElementHandle);\r\n      DoUpdate;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TProgressBar.SetValue(const Value: TProgressBarValue);\r\nbegin\r\n  FValue := Value;\r\n  DoUpdate;\r\nend;\r\n\r\nprocedure TProgressBar.SetValueColor(const Value: TColor);\r\nbegin\r\n  if (FValueColor <> Value) then\r\n  begin\r\n    FValueColor := Value;\r\n    UpdateElementVisual;\r\n  end;\r\nend;\r\n\r\nprocedure TProgressBar.UpdateElementVisual;\r\nvar\r\n  el: TJSHTMLElement;\r\n\r\nbegin\r\n  inherited;\r\n  if (ValueColor <> clNone) then\r\n  begin\r\n    if Style = pbstDiv then\r\n    begin\r\n      el := TJSHTMLElement(ElementHandle.firstChild);\r\n      el := TJSHTMLElement(el.firstChild);\r\n      el.style.setProperty('background-color',ColorToHTML(ValueColor));\r\n    end\r\n    else\r\n    begin\r\n      el := TJSHTMLElement(ElementHandle.firstChild);\r\n      el.style.setProperty('accent-color',ColorToHTML(ValueColor));\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TWebTreeView }\r\n\r\nprocedure TTreeView.BeginUpdate;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTreeView.ClickCheck(ANode: TTreeNode; AState: boolean);\r\nbegin\r\n  if Assigned(OnClickCheckBox) then\r\n    OnClickCheckBox(Self, ANode, AState);\r\nend;\r\n\r\nprocedure TTreeView.ClickRadio(ANode: TTreeNode; AState: boolean);\r\nbegin\r\n  if Assigned(OnClickRadio) then\r\n    OnClickRadio(Self, ANode, AState);\r\nend;\r\n\r\nfunction TTreeView.CreateElement: TJSElement;\r\nvar\r\n  tn: TTreeNode;\r\nbegin\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    BeginUpdate;\r\n\r\n    tn := Items.Add('<font color=\"#E5413C\" style=\"font-size:10pt\">&#x25FC;</font> Item 1');\r\n    Items.AddChild(tn,'Child Item 1');\r\n\r\n    tn := Items.Add('<font color=\"#F39527\" style=\"font-size:10pt\">&#x25FC;</font> Item 2');\r\n    Items.AddChild(tn,'Child Item 2');\r\n\r\n    tn := Items.Add('<font color=\"#BDC6CB\" style=\"font-size:10pt\">&#x25FC;</font> Item 3');\r\n    Items.AddChild(tn,'Child Item 3');\r\n\r\n    EndUpdate;\r\n  end;\r\n\r\n  Result := document.createElement('DIV');\r\nend;\r\n\r\nprocedure TTreeView.CreateInitialize;\r\nvar\r\n  css: string;\r\nbegin\r\n  inherited;\r\n  FSelected := nil;\r\n  FItems := CreateNodes;\r\n  FItems.OnChange := DoNodesChanged;\r\n  FItems.OnExpandedChange := DoExpandedChanged;\r\n  TTreeNodesEx(FItems).OnSelectionChange := DoSelectionChanged;\r\n\r\n  // remove default bullets\r\n  css := '.TVUL {' +\r\n    ' list-style-type: none;' +\r\n    ' margin: 0;' +\r\n    ' padding-left: 15px;' +\r\n    '}' + #13#10 +\r\n\r\n    ' .TVCARET {' +\r\n    '  cursor: pointer;' +\r\n    '  user-select: none;' +\r\n    '}' + #13#10 +\r\n\r\n    '.TVCARET::before {' +\r\n    'content: \"\\25B6\";' +\r\n//    'color: black;' +\r\n    'display: inline-block;' +\r\n    'margin-right: 6px;' +\r\n    '}' + #13#10 +\r\n\r\n    '.TVCARET-DOWN::before {'+\r\n    'transform: rotate(90deg);'+\r\n    '}'+ #13#10 +\r\n\r\n    '.TVNESTED {' +\r\n    '  display: none;' +\r\n    '}' + #13#10 +\r\n\r\n    '.TVACTIVE {' +\r\n    '  display: block;' +\r\n    '}' + #13#10 +\r\n\r\n    '.TVNODE {' +\r\n    ' padding: 3px;'+\r\n    ' display: inline-block;' +\r\n    '}' + #13#10 +\r\n\r\n    '.TVNOCURSOR {' +\r\n    ' cursor: initial;'+\r\n    '}' + #13#10 +\r\n\r\n    '.TVSELECTED {' +\r\n    '  background-color: #0000ff;' +\r\n    '  color: #ffffff;' +\r\n    '}';\r\n\r\n  AddControlStyle(css);\r\n\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Width := 200;\r\n    Height := 200;\r\n  end;\r\nend;\r\n\r\nfunction TTreeView.CreateNodes: TTreeNodes;\r\nbegin\r\n  Result := TTreeNodes.Create(Self);\r\nend;\r\n\r\ndestructor TTreeView.Destroy;\r\nbegin\r\n  FItems.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTreeView.DisableDrag;\r\n  procedure RemoveDraggableAttribute(AElement: TJSElement);\r\n  var\r\n    I: Integer;\r\n  begin\r\n    for I := 0 to AElement.children.length - 1 do\r\n    begin\r\n      if TJSElement(AElement.children[I]).tagName = 'LI' then\r\n      begin\r\n        TJSElement(AElement.children[I]).removeAttribute('draggable');\r\n        RemoveDraggableAttribute(TJSElement(AElement.children[I]));\r\n      end\r\n      else\r\n        RemoveDraggableAttribute(TJSElement(AElement.children[I]));\r\n    end;\r\n  end;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  RemoveDraggableAttribute(Container);\r\nend;\r\n\r\nprocedure TTreeView.DoChangeSelection(NewNode: TTreeNode);\r\nvar\r\n  Allow: boolean;\r\nbegin\r\n  Allow := true;\r\n\r\n  if Assigned(OnChanging) and (NewNode <> Selected) then\r\n    OnChanging(Self, NewNode, Allow);\r\n\r\n  if Allow and (Selected <> NewNode) then\r\n  begin\r\n    Selected := NewNode;\r\n    if Assigned(OnChange) then\r\n      OnChange(Self, NewNode);\r\n  end;\r\nend;\r\n\r\nprocedure TTreeView.DoExpandedChanged(Sender: TObject; ANode: TTreeNode);\r\nvar\r\n  el, su: TJSElement;\r\n  i: integer;\r\nbegin\r\n  if ANode.Count > 0 then\r\n  begin\r\n    el := GetNodeElement(ANode);\r\n\r\n    if Assigned(el) and Assigned(el.parentElement) and Assigned(el.parentElement.parentElement) then\r\n    begin\r\n      su := el.parentElement.parentElement.querySelector('.TVNESTED');\r\n      if Assigned(su) then\r\n      begin\r\n        if ANode.Expanded then\r\n          su.classList.add('TVACTIVE')\r\n        else\r\n          su.classList.remove('TVACTIVE');\r\n\r\n\r\n//        su.classList.toggle('TVACTIVE');\r\n        el.parentElement.classList.toggle('TVCARET-DOWN');\r\n      end;\r\n    end;\r\n\r\n    if AutoExpand then\r\n    begin\r\n      for i := 0 to ANode.Count - 1 do\r\n      begin\r\n        if ANode.Item[i].Count > 0 then\r\n        begin\r\n          ANode.Item[i].Expanded := ANode.Expanded;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTreeView.DoNodesChanged(Sender: TObject);\r\nbegin\r\n  //\r\nend;\r\n\r\nprocedure TTreeView.DoRenderNode(ANode: TTreeNode; AElement: TJSHTMLElement);\r\nvar\r\n  LElementRec: TJSHTMLElementRecord;\r\nbegin\r\n  if Assigned(OnRenderNode) then\r\n  begin\r\n    LElementRec.element := AElement;\r\n    OnRenderNode(Self, ANode, LElementRec);\r\n  end;\r\nend;\r\n\r\nprocedure TTreeView.DoSelectionChanged(Sender: TObject; ANode: TTreeNode;\r\n  IsSelected: boolean);\r\nbegin\r\n  if IsSelected then\r\n    Selected := ANode\r\n  else\r\n    Selected := nil;\r\nend;\r\n\r\nprocedure TTreeView.EnableDrag;\r\n  procedure AddDraggableAttribute(AElement: TJSElement);\r\n  var\r\n    I: Integer;\r\n  begin\r\n    for I := 0 to AElement.children.length - 1 do\r\n    begin\r\n      if TJSElement(AElement.children[I]).tagName = 'LI' then\r\n      begin\r\n        TJSElement(AElement.children[I]).Attrs['draggable'] := 'true';\r\n        AddDraggableAttribute(TJSElement(AElement.children[I]));\r\n      end\r\n      else\r\n        AddDraggableAttribute(TJSElement(AElement.children[I]));\r\n    end;\r\n  end;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  AddDraggableAttribute(Container);\r\nend;\r\n\r\nprocedure TTreeView.EndUpdate;\r\nbegin\r\n  inherited;\r\n\r\n  if not IsUpdating then\r\n  begin\r\n    Selected := nil;\r\n    RenderNodes;\r\n  end;\r\nend;\r\n\r\nfunction TTreeView.FormPrefix: string;\r\nvar\r\n  frm: TCustomForm;\r\nbegin\r\n  Result := '';\r\n  frm := GetParentForm(Self);\r\n  if Assigned(frm) then\r\n    Result := frm.ClassName;\r\nend;\r\n\r\nprocedure TTreeView.FullExpand;\r\nvar\r\n  i: integer;\r\nbegin\r\n  for i := 0 to Items.SiblingCount - 1 do\r\n    Items.Sibling[i].Expand(true);\r\nend;\r\n\r\nprocedure TTreeView.FullCollapse;\r\nvar\r\n  i: integer;\r\nbegin\r\n  for i := 0 to Items.SiblingCount - 1 do\r\n    Items.Sibling[i].Collapse(true);\r\nend;\r\n\r\nfunction TTreeView.GetNodeElement(ANode: TTreeNode): TJSHTMLElement;\r\nvar\r\n  s: string;\r\n  tn: TTreeNode;\r\nbegin\r\n  Result := nil;\r\n  tn := ANode;\r\n\r\n  if not Assigned(tn) then\r\n    Exit;\r\n\r\n  s := '';\r\n\r\n  // generate HTML element ID\r\n  repeat\r\n    if s = '' then\r\n      s := IntToStr(tn.Index)\r\n    else\r\n      s := IntTostr(tn.Index) + '_' + s;\r\n\r\n    tn := tn.Parent;\r\n\r\n//  until (tn = nil);\r\n  until (not Assigned(tn));\r\n\r\n  s := FormPrefix + Name + '_' + s;\r\n\r\n  Result := TJSHTMLElement(document.getElementById(s));\r\n\r\n  if Assigned(Result) then\r\n  begin\r\n    if Result.classlist.contains('TVCARET') then\r\n      Result := TJSHTMLElement(Result.firstChild);\r\n  end;\r\nend;\r\n\r\nfunction TTreeView.GetNodeFromID(AId: string): TTreeNode;\r\nvar\r\n  s: string;\r\n  sl: TStringList;\r\n  n: TTreeNode;\r\n  i,j,e: integer;\r\n\r\nbegin\r\n  Result := nil;\r\n\r\n  s := AID;\r\n  s := Copy(s, Length(FormPrefix + Name) + 2, Length(s));\r\n\r\n  if (s <> '') then\r\n  begin\r\n    sl := TStringList.Create;\r\n    sl.Delimiter := '_';\r\n    sl.StrictDelimiter := true;\r\n    sl.DelimitedText := s;\r\n\r\n    n := nil;\r\n    for i := 0 to sl.Count - 1 do\r\n    begin\r\n      val(sl.Strings[i], j, e);\r\n\r\n      if (i = 0) then\r\n        n  := Items.Sibling[j]\r\n      else\r\n        n := n.Item[j];\r\n    end;\r\n    sl.Free;\r\n\r\n    Result := n;\r\n  end;\r\nend;\r\n\r\nfunction TTreeView.GetSelected: TTreeNode;\r\nbegin\r\n  Result := FSelected;\r\nend;\r\n\r\nfunction TTreeView.GetTopItem: TTreeNode;\r\nvar\r\n  el: TJSHTMLElement;\r\n  tn: TTreeNode;\r\n  h: single;\r\n\r\nbegin\r\n  Result := nil;\r\n\r\n  if Items.SiblingCount = 0 then\r\n    Exit;\r\n\r\n  h := ElementHandle.getBoundingClientRect().top;\r\n\r\n  tn := Items.Sibling[0];\r\n\r\n  while Assigned(tn) do\r\n  begin\r\n    el := GetNodeElement(tn);\r\n    if el.getBoundingClientRect().top >= h then\r\n    begin\r\n      Result := tn;\r\n      break;\r\n    end;\r\n\r\n    tn := tn.GetNext;\r\n  end;\r\nend;\r\n\r\nfunction TTreeView.HandleClick(Event: TJSEvent): Boolean;\r\nvar\r\n  n: TTreeNode;\r\n  el,chk: TJSHTMLElement;\r\nbegin\r\n  Result := true;\r\n  asm\r\n    el = Event.srcElement;\r\n  end;\r\n\r\n  while Assigned(el) and (el.tagName <> 'SPAN') do\r\n     el := TJSHTMLElement(el.parentElement);\r\n\r\n  if Assigned(el) then\r\n  begin\r\n    if el.hasAttribute('id') then\r\n    begin\r\n      n := GetNodeFromID(el['id']);\r\n\r\n      if (n.NodeType in [ntCheckBox, ntRadioButton]) then\r\n      begin\r\n        chk := TJSHTMLElement(el.firstChild);\r\n        if chk.TagName = 'INPUT' then\r\n        begin\r\n          if chk['type'] = 'radio' then\r\n            ClickRadio(n, TJSHTMLInputElement(chk).checked)\r\n          else\r\n            ClickCheck(n, TJSHTMLInputElement(chk).checked);\r\n\r\n          n.Checked := TJSHTMLInputElement(chk).checked;\r\n        end;\r\n      end;\r\n\r\n      if Assigned(OnClick) then\r\n        OnClick(Self);\r\n\r\n      if Assigned(n) then\r\n      begin\r\n        DoChangeSelection(n);\r\n\r\n        if Assigned(OnClickNode) then\r\n          OnClickNode(Self, n);\r\n      end;\r\n    end;\r\n\r\n  end;\r\nend;\r\n\r\nfunction TTreeView.HandleDblClick(Event: TJSEvent): Boolean;\r\nvar\r\n  n: TTreeNode;\r\n  el: TJSElement;\r\n  Allow: boolean;\r\nbegin\r\n  Result := true;\r\n\r\n  asm\r\n    el = Event.srcElement;\r\n  end;\r\n\r\n  while Assigned(el) and (el.tagName <> 'SPAN') do\r\n     el := TJSHTMLElement(el.parentElement);\r\n\r\n  if Assigned(el) then\r\n  begin\r\n    if not el.hasAttribute('id') then\r\n      el := el.parentElement;\r\n\r\n    if el.hasAttribute('id') then\r\n    begin\r\n      n := GetNodeFromID(el['id']);\r\n\r\n      if Assigned(OnDblClick) then\r\n        OnDblClick(Self);\r\n\r\n      if Assigned(n) then\r\n      begin\r\n        DoChangeSelection(n);\r\n\r\n        Allow := true;\r\n\r\n        if n.Expanded then\r\n        begin\r\n          if Assigned(OnCollapsing) then\r\n            OnCollapsing(Self, n, Allow);\r\n        end\r\n        else\r\n        begin\r\n          if Assigned(OnExpanding) then\r\n            OnExpanding(Self, n, Allow);\r\n        end;\r\n\r\n        if Allow then\r\n        begin\r\n          n.Expanded := not n.Expanded;\r\n\r\n          if n.Expanded then\r\n          begin\r\n            if Assigned(OnExpanded) then\r\n              OnExpanded(Self, N);\r\n          end\r\n          else\r\n          if not n.Expanded then\r\n          begin\r\n            if Assigned(OnCollapsed) then\r\n              OnCollapsed(Self, N);\r\n          end;\r\n        end;\r\n\r\n\r\n        if Assigned(n) and Assigned(OnDblClickNode) then\r\n          OnDblClickNode(Self, n);\r\n      // toggle expanded state on dbl click\r\n      end;\r\n\r\n    end;\r\n  end;\r\n\r\n  Event.StopPropagation;\r\n  Result := true;\r\nend;\r\n\r\nfunction TTreeView.HandleNode(Event: TJSEvent): Boolean;\r\nvar\r\n  el: TJSElement;\r\n  n: TTreeNode;\r\n  Allow: boolean;\r\nbegin\r\n  asm\r\n    el = Event.srcElement;\r\n  end;\r\n\r\n  if Assigned(el) and (el.hasAttribute('id')) then\r\n  begin\r\n    n := GetNodeFromID(el['id']);\r\n\r\n    Allow := true;\r\n\r\n    if n.Expanded then\r\n    begin\r\n      if Assigned(OnCollapsing) then\r\n        OnCollapsing(Self, n, Allow);\r\n    end\r\n    else\r\n    begin\r\n      if Assigned(OnExpanding) then\r\n        OnExpanding(Self, n, Allow);\r\n    end;\r\n\r\n    if Allow then\r\n    begin\r\n      n.Expanded := not n.Expanded;\r\n\r\n      if n.Expanded then\r\n      begin\r\n        if Assigned(OnExpanded) then\r\n          OnExpanded(Self, n);\r\n      end\r\n      else\r\n      begin\r\n        if Assigned(OnCollapsed) then\r\n          OnCollapsed(Self, n);\r\n      end;\r\n    end;\r\n\r\n    DoChangeSelection(n);\r\n\r\n    if Assigned(OnClickNode) then\r\n      OnClickNode(Self, n);\r\n\r\n    Result := true;\r\n    Event.preventDefault;\r\n  end\r\n  else\r\n  begin\r\n    if Assigned(el) then\r\n    begin\r\n      el := el.parentElement;\r\n      if el.hasAttribute('id') then\r\n      begin\r\n        n := GetNodeFromID(el['id']);\r\n        DoChangeSelection(n);\r\n\r\n        if Assigned(OnClickNode) then\r\n          OnClickNode(Self, n);\r\n\r\n        Result := true;\r\n        Event.preventDefault;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTreeView.InitCSSLibrary(ALibrary: TCSSLibrary);\r\nbegin\r\n  if (ALibrary = cssBootstrap) then\r\n  begin\r\n    ElementFont := efCSS;\r\n  end;\r\nend;\r\n\r\nprocedure TTreeView.KeyDown(var Key: Word; Shift: TShiftState);\r\nvar\r\n  tn,sn,ln: TTreeNode;\r\nbegin\r\n  tn := Selected;\r\n\r\n  if (Key = VK_HOME) then\r\n  begin\r\n    if Assigned(Items.Sibling[0]) then\r\n      DoChangeSelection(Items.Sibling[0]);\r\n  end;\r\n\r\n  if (Key = VK_END) and (Items.SiblingCount > 0) then\r\n  begin\r\n    tn := Items.Sibling[Items.SiblingCount - 1];\r\n\r\n    while tn.Expanded do\r\n    begin\r\n      if tn.Count > 0 then\r\n        tn := tn.Item[tn.Count -1];\r\n    end;\r\n\r\n    DoChangeSelection(tn);\r\n  end;\r\n\r\n  if (Key = VK_DOWN) then\r\n  begin\r\n    if Assigned(tn) then\r\n    begin\r\n      if tn.Expanded and (tn.Count > 0) then\r\n      begin\r\n        tn := tn.GetFirstChild;\r\n      end\r\n      else\r\n        tn := tn.GetNextSibling;\r\n\r\n      if not Assigned(tn) then\r\n      begin\r\n        tn := Selected;\r\n        sn := tn;\r\n\r\n        while not Assigned(sn.GetNextSibling) and Assigned(sn.Parent) do\r\n        begin\r\n          sn := sn.Parent;\r\n          if Assigned(sn) then\r\n            ln := sn.GetNextSibling;\r\n\r\n          if Assigned(ln) then\r\n          begin\r\n            tn := ln;\r\n          end;\r\n        end;\r\n      end;\r\n\r\n      if Assigned(tn) then\r\n        DoChangeSelection(tn);\r\n    end;\r\n  end;\r\n\r\n  if (Key = VK_UP) then\r\n  begin\r\n    if Assigned(tn) then\r\n    begin\r\n      tn := tn.GetPrevSibling;\r\n      if Assigned(tn) then\r\n      begin\r\n        sn := tn;\r\n        while Assigned(sn) and sn.Expanded and (sn.Count > 0) do\r\n        begin\r\n          sn := sn.Item[tn.Count - 1];\r\n          if Assigned(sn) then\r\n            tn := sn;\r\n        end;\r\n\r\n        DoChangeSelection(tn);\r\n      end\r\n      else\r\n      begin\r\n        tn := Selected.Parent;\r\n        if Assigned(tn) then\r\n          DoChangeSelection(tn);\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  if (Key = VK_RIGHT) then\r\n  begin\r\n    if Assigned(tn) then\r\n      Selected.Expanded := true;\r\n  end;\r\n\r\n  if (Key = VK_LEFT) then\r\n  begin\r\n    if Assigned(tn) then\r\n      Selected.Expanded := false;\r\n  end;\r\n\r\n  if (Key in [VK_LEFT, VK_RIGHT, VK_DOWN, VK_UP]) then\r\n  begin\r\n    Key := 0;\r\n    Exit;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\nfunction TTreeView.RenderControl(ANode: TTreeNode;\r\n  AElementName: string): string;\r\nvar\r\n  chk, rname: string;\r\n  l: integer;\r\nbegin\r\n  chk := '';\r\n  if ANode.Checked then\r\n    chk := ' checked';\r\n\r\n  rname := AElementName;\r\n\r\n  l := Length(rname);\r\n  if pos('_',rname)> 0 then\r\n  begin\r\n    while (rname[l] <> '_') do\r\n    begin\r\n      dec(l);\r\n    end;\r\n\r\n    rname := Copy(rname,1,l-1);\r\n  end;\r\n\r\n  case ANode.NodeType of\r\n  ntCheckBox: Result := '<input type=\"checkbox\"'+ chk +'></input>&nbsp;' + ANode.Text;\r\n  ntRadioButton: Result := '<input type=\"radio\"'+ chk + ' name=\"'+ rname + '\"></input>&nbsp;' + ANode.Text;\r\n  ntText: Result := ANode.Text;\r\n  end;\r\nend;\r\n\r\nfunction TTreeView.RenderNode(ANode: TTreeNode; AElementName: string): TJSHTMLElement;\r\nbegin\r\n  Result := TJSHTMLElement(document.createElement('SPAN'));\r\n  if AElementName <> '' then\r\n    Result.setAttribute('id',AElementName);\r\n\r\n  Result.innerHTML := RenderControl(ANode, AElementName);\r\n\r\n  Result.classlist.add('TVNODE');\r\n\r\n  if ElementNodeClassName <> '' then\r\n    Result.classlist.add(ElementNodeClassName);\r\n\r\n  if Assigned(Selected) then\r\n  begin\r\n    if Selected = ANode then\r\n    begin\r\n      Result.classlist.add('TVSELECTED');\r\n      if ElementNodeSelectedClassName <> '' then\r\n        Result.classlist.add(ElementNodeSelectedClassName);\r\n    end;\r\n  end;\r\n\r\n//  if not Assigned(OnClickNode) and not Assigned(OnDblClickNode) then\r\n//    Result.style.setProperty('pointer-events','none');\r\n\r\n  if ANode.Hint <> '' then\r\n    Result.setAttribute('title', ANode.Hint);\r\nend;\r\n\r\nprocedure TTreeView.RenderNodes;\r\n\r\n  procedure RenderChildNode(LinkElement: TJSHTMLElement; ANode: TTreeNode; AElementName: string);\r\n  var\r\n    sp,nd: TJSHTMLElement;\r\n  begin\r\n    sp := TJSHTMLElement(document.createElement('SPAN'));\r\n    if AElementName <> '' then\r\n      sp.setAttribute('id', AElementName);\r\n\r\n    sp.addEventListener('click',@HandleNode);\r\n    sp.addEventListener('dblclick',@HandleDblClick);\r\n\r\n    nd := TJSHTMLElement(document.createElement('SPAN'));\r\n\r\n    if AutoExpand then\r\n      nd.style.setProperty('pointer-events', 'none');\r\n\r\n    nd.innerHTML := RenderControl(ANode, AElementName);\r\n\r\n    nd.classlist.add('TVNODE');\r\n\r\n    if ElementNodeClassName <> '' then\r\n      nd.classlist.add(ElementNodeClassName);\r\n\r\n    if not AutoExpand then\r\n      nd.classlist.add('TVNOCURSOR');\r\n\r\n    if Assigned(Selected) then\r\n    begin\r\n      if Selected = ANode then\r\n      begin\r\n        nd.classlist.add('TVSELECTED');\r\n        if ElementNodeSelectedClassName <> '' then\r\n          nd.classlist.add(ElementNodeSelectedClassName);\r\n      end;\r\n    end;\r\n\r\n    if ANode.Hint <> '' then\r\n      nd.setAttribute('title', ANode.Hint);\r\n\r\n    LinkElement.appendChild(sp);\r\n    sp.appendChild(nd);\r\n    if ANode.Expanded then\r\n      sp.setAttribute('class', 'TVCARET TVCARET-DOWN')\r\n    else\r\n      sp.setAttribute('class', 'TVCARET');\r\n\r\n    DoRenderNode(ANode, nd);\r\n  end;\r\n\r\n  procedure FillChilds(ParentElement: TJSElement; ParentName: string; ANode: TTreeNode);\r\n  var\r\n    i: integer;\r\n    ul: TJSElement;\r\n    nd,li: TJSHTMLElement;\r\n    nn: string;\r\n  begin\r\n    ul := document.createElement('UL');\r\n    ul.setAttribute('class','TVUL');\r\n    ul.setAttribute('id',ParentName);\r\n    if DragMode = dmAutomatic then\r\n      ul.setAttribute('draggable', 'true');\r\n    ParentElement.appendChild(ul);\r\n\r\n    if not Assigned(ANode) then\r\n    begin\r\n      // root items\r\n      for i := 0 to FItems.SiblingCount - 1 do\r\n      begin\r\n        nn := ParentName + '_' + inttostr(i);\r\n\r\n        li := TJSHTMLElement(document.createElement('LI'));\r\n        if DragMode = dmAutomatic then\r\n          li.setAttribute('draggable', 'true');\r\n        ul.appendChild(li);\r\n\r\n        if FItems.Sibling[i].Count > 0 then\r\n        begin\r\n          RenderChildNode(li, FItems.Sibling[i], nn);\r\n          FillChilds(li, nn, FItems.Sibling[i]);\r\n        end\r\n        else\r\n        begin\r\n          nd := RenderNode(FItems.Sibling[i], nn);\r\n          li.appendChild(nd);\r\n          DoRenderNode(FItems.Sibling[i], nd);\r\n\r\n          nd.addEventListener('click', @HandleClick);\r\n          nd.addEventListener('dblclick', @HandleDblClick);\r\n        end;\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      // child items\r\n      if ANode.Expanded then\r\n        ul.setAttribute('class','TVNESTED TVUL TVACTIVE')\r\n      else\r\n        ul.setAttribute('class','TVNESTED TVUL');\r\n\r\n      for i := 0 to ANode.Count - 1 do\r\n      begin\r\n        nn := ParentName + '_' + inttostr(i);\r\n\r\n        li := TJSHTMLElement(document.createElement('LI'));\r\n        if DragMode = dmAutomatic then\r\n          li.setAttribute('draggable', 'true');\r\n        ul.appendChild(li);\r\n\r\n        if ANode.Item[i].Count > 0 then\r\n        begin\r\n          RenderChildNode(li, ANode.Item[i], nn);\r\n          FillChilds(li, nn, ANode.Item[i]);\r\n        end\r\n        else\r\n        begin\r\n          nd := RenderNode(ANode.Item[i], nn);\r\n          li.appendChild(nd);\r\n\r\n          DoRenderNode(ANode.Item[i], nd);\r\n\r\n          nd.addEventListener('click', @HandleClick);\r\n          nd.addEventListener('dblclick', @HandleDblClick);\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\n\r\nbegin\r\n  if not Assigned(ElementHandle) then\r\n    Exit;\r\n\r\n  // remove previous tree\r\n  while ElementHandle.childNodes.length > 0 do\r\n    ElementHandle.removeChild(ElementHandle.FirstChild);\r\n\r\n  FillChilds(ElementHandle, FormPrefix + Name, nil);\r\n  ElementHandle.style.setProperty('overflow','auto');\r\nend;\r\n\r\nprocedure TTreeView.Select(const ANode: TTreeNode);\r\nbegin\r\n  SetSelected(ANode);\r\nend;\r\n\r\nprocedure TTreeView.SetElementNodeClassName(const Value: TElementClassName);\r\nbegin\r\n  if (FElementNodeClassName <> Value) then\r\n  begin\r\n    FElementNodeClassName := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TTreeView.SetElementNodeSelectedClassName(\r\n  const Value: TElementClassName);\r\nbegin\r\n  if (FElementNodeSelectedClassName <> Value) then\r\n  begin\r\n    FElementNodeSelectedClassName := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TTreeView.SetItems(const Value: TTreeNodes);\r\nbegin\r\n  FItems.Assign(Value);\r\nend;\r\n\r\nprocedure TTreeView.SetSelected(const Value: TTreeNode);\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  if Assigned(FSelected) then\r\n  begin\r\n    TTreeNodeEx(FSelected).UnSelect;\r\n\r\n    el := GetNodeElement(FSelected);\r\n    if Assigned(el) then\r\n    begin\r\n      el.classlist.toggle('TVSELECTED');\r\n      if ElementNodeSelectedClassName <> '' then\r\n        el.classlist.toggle(ElementNodeSelectedClassName);\r\n    end;\r\n  end;\r\n\r\n  FSelected := Value;\r\n\r\n  if Assigned(FSelected) then\r\n    TTreeNodeEx(FSelected).Select;\r\n\r\n  el := GetNodeElement(FSelected);\r\n  if Assigned(el) then\r\n  begin\r\n    el.classlist.toggle('TVSELECTED');\r\n    if ElementNodeSelectedClassName <> '' then\r\n      el.classlist.toggle(ElementNodeSelectedClassName);\r\n  end;\r\nend;\r\n\r\nprocedure TTreeView.SetTopItem(const Value: TTreeNode);\r\nvar\r\n  el: TJSHTMLElement;\r\n  h,ch: single;\r\n\r\nbegin\r\n  if not Assigned(Value) then\r\n    raise Exception.Create('Value is not assigned');\r\n\r\n  el := GetNodeElement(Value);\r\n  h := el.getBoundingClientRect().top + ElementHandle.scrollTop;\r\n\r\n  ch := ElementHandle.getBoundingClientRect().top;\r\n\r\n  ElementHandle.scrollTop := Round(h - ch);\r\nend;\r\n\r\nend.","{\r\n    Delphi/Kylix compatibility unit: String handling routines.\r\n\r\n    This file is part of the Free Pascal run time library.\r\n    Copyright (c) 2018 by the Free Pascal development team\r\n\r\n    See the file COPYING.FPC, included in this distribution,\r\n    for details about the copyright.\r\n\r\n    This program is distributed in the hope that it will be useful,\r\n    but WITHOUT ANY WARRANTY; without even the implied warranty of\r\n    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\r\n\r\n **********************************************************************}\r\n{$mode objfpc}\r\n\r\n{$inline on}\r\nunit StrUtils;\r\n\r\ninterface\r\n\r\nuses\r\n  SysUtils, Types;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Case insensitive search/replace\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction AnsiResemblesText(const AText, AOther: string): Boolean;\r\nFunction AnsiContainsText(const AText, ASubText: string): Boolean;\r\nFunction AnsiStartsText(const ASubText, AText: string): Boolean;\r\nFunction AnsiEndsText(const ASubText, AText: string): Boolean;\r\nFunction AnsiReplaceText(const AText, AFromText, AToText: string): string;\r\nFunction AnsiMatchText(const AText: string; const AValues: array of string): Boolean;\r\nFunction AnsiIndexText(const AText: string; const AValues: array of string): Integer;\r\n\r\nFunction StartsText(const ASubText, AText: string): Boolean;\r\nFunction EndsText(const ASubText, AText: string): Boolean;\r\n\r\nfunction ResemblesText(const AText, AOther: string): Boolean;\r\nfunction ContainsText(const AText, ASubText: string): Boolean;\r\nfunction MatchText(const AText: string; const AValues: array of string): Boolean;\r\nfunction IndexText(const AText: string; const AValues: array of string): Integer;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Case sensitive search/replace\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction AnsiContainsStr(const AText, ASubText: string): Boolean;\r\nFunction AnsiStartsStr(const ASubText, AText: string): Boolean;\r\nFunction AnsiEndsStr(const ASubText, AText: string): Boolean;\r\nFunction AnsiReplaceStr(const AText, AFromText, AToText: string): string;\r\nFunction AnsiMatchStr(const AText: string; const AValues: array of string): Boolean;\r\nFunction AnsiIndexStr(const AText: string; const AValues: array of string): Integer;\r\nFunction MatchStr(const AText: String; const AValues: array of String): Boolean;\r\nFunction IndexStr(const AText: String; const AValues: array of String): Integer;\r\nfunction ContainsStr(const AText, ASubText: string): Boolean;\r\nFunction StartsStr(const ASubText, AText: string): Boolean;\r\nFunction EndsStr(const ASubText, AText: string): Boolean;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Miscellaneous\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction DupeString(const AText: string; ACount: Integer): string;\r\nFunction ReverseString(const AText: string): string;\r\nFunction AnsiReverseString(const AText: String): String;\r\nFunction StuffString(const AText: string; AStart, ALength: Cardinal;  const ASubText: string): string;\r\nFunction RandomFrom(const AValues: array of string): string; overload;\r\nFunction IfThen(AValue: Boolean; const ATrue: string; const AFalse: string = ''): string; overload;\r\nfunction NaturalCompareText (const S1 , S2 : string ): Integer ;\r\nfunction NaturalCompareText(const Str1, Str2: string; const ADecSeparator, AThousandSeparator: String): Integer;\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n    VB emulations.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction LeftStr(const AText: String; const ACount: SizeInt): String;\r\nFunction RightStr(const AText: String; const ACount: SizeInt): String;\r\nFunction MidStr(const AText: String; const AStart, ACount: SizeInt): String;\r\nFunction RightBStr(const AText: String; const AByteCount: SizeInt): String;\r\nFunction MidBStr(const AText: String; const AByteStart, AByteCount: SizeInt): String;\r\nFunction AnsiLeftStr(const AText: String; const ACount: SizeInt): String;\r\nFunction AnsiRightStr(const AText: String; const ACount: SizeInt): String;\r\nFunction AnsiMidStr(const AText: String; const AStart, ACount: SizeInt): String;\r\nFunction LeftBStr(const AText: String; const AByteCount: SizeInt): String;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Extended search and replace\r\n  ---------------------------------------------------------------------}\r\n\r\nVar\r\n  { Default word delimiters are any character except the core alphanumerics. }\r\n  WordDelimiters: Array of Char;// = [#0..#255] - ['a'..'z','A'..'Z','1'..'9','0'];\r\n  \r\nConst\r\n  SErrAmountStrings    = 'Amount of search and replace strings don''t match';\r\n  SInvalidRomanNumeral = '%s is not a valid Roman numeral';\r\n\r\ntype\r\n  TStringSearchOption = (soDown, soMatchCase, soWholeWord);\r\n  TStringSearchOptions = set of TStringSearchOption;\r\n  TStringSeachOption = TStringSearchOption;\r\n\r\nFunction PosEx(const SubStr, S: string; Offset: SizeUint): SizeInt;\r\nFunction PosEx(const SubStr, S: string): SizeInt; // Offset: Cardinal = 1\r\nFunction PosEx(c:char; const S: string; Offset: SizeUint): SizeInt;\r\nfunction StringsReplace(const S: string; OldPattern, NewPattern: array of string;  Flags: TReplaceFlags): string;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Delphi compat\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction ReplaceStr(const AText, AFromText, AToText: string): string;\r\nFunction ReplaceText(const AText, AFromText, AToText: string): string;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Soundex Functions.\r\n  ---------------------------------------------------------------------}\r\n\r\ntype\r\n  TSoundexLength = 1..MaxInt;\r\n\r\nFunction Soundex(const AText: string; ALength: TSoundexLength): string;\r\nFunction Soundex(const AText: string): string; // ; ALength: TSoundexLength = 4\r\n\r\ntype\r\n  TSoundexIntLength = 1..8;\r\n\r\nFunction SoundexInt(const AText: string; ALength: TSoundexIntLength): Integer;\r\nFunction SoundexInt(const AText: string): Integer; //; ALength: TSoundexIntLength = 4\r\nFunction DecodeSoundexInt(AValue: Integer): string;\r\nFunction SoundexWord(const AText: string): Word;\r\nFunction DecodeSoundexWord(AValue: Word): string;\r\nFunction SoundexSimilar(const AText, AOther: string; ALength: TSoundexLength): Boolean;\r\nFunction SoundexSimilar(const AText, AOther: string): Boolean; //; ALength: TSoundexLength = 4\r\nFunction SoundexCompare(const AText, AOther: string; ALength: TSoundexLength): Integer;\r\nFunction SoundexCompare(const AText, AOther: string): Integer; //; ALength: TSoundexLength = 4\r\nFunction SoundexProc(const AText, AOther: string): Boolean;\r\n\r\ntype\r\n  TCompareTextProc = Function(const AText, AOther: string): Boolean;\r\n\r\nVar\r\n  AnsiResemblesProc: TCompareTextProc;\r\n  ResemblesProc: TCompareTextProc;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Other functions, based on RxStrUtils.\r\n  ---------------------------------------------------------------------}\r\ntype\r\n TRomanConversionStrictness = (rcsStrict, rcsRelaxed, rcsDontCare);\r\n\r\n\r\nfunction IsEmptyStr(const S: string; const EmptyChars: Array of char): Boolean;\r\nfunction DelSpace(const S: string): string;\r\nfunction DelChars(const S: string; Chr: Char): string;\r\nfunction DelSpace1(const S: string): string;\r\nfunction Tab2Space(const S: string; Numb: Byte): string;\r\nfunction NPos(const C: string; S: string; N: Integer): SizeInt;\r\nFunction RPosEX(C:char;const S : String;offs:cardinal):SizeInt; overload;\r\nFunction RPosex (Const Substr : String; Const Source : String;offs:cardinal) : SizeInt; overload;\r\nFunction RPos(c:char;const S : String):SizeInt; overload;\r\nFunction RPos (Const Substr : String; Const Source : String) : SizeInt; overload;\r\nfunction AddChar(C: Char; const S: string; N: Integer): string;\r\nfunction AddCharR(C: Char; const S: string; N: Integer): string;\r\nfunction PadLeft(const S: string; N: Integer): string;\r\nfunction PadRight(const S: string; N: Integer): string;\r\nfunction PadCenter(const S: string; Len: SizeInt): string;\r\nfunction Copy2Symb(const S: string; Symb: Char): string;\r\nfunction Copy2SymbDel(var S: string; Symb: Char): string;\r\nfunction Copy2Space(const S: string): string;\r\nfunction Copy2SpaceDel(var S: string): string;\r\nfunction AnsiProperCase(const S: string; const WordDelims: Array of char): string;\r\nfunction WordCount(const S: string; const WordDelims: Array of char): SizeInt;\r\nfunction WordPosition(const N: Integer; const S: string; const WordDelims: Array of char): SizeInt;\r\nfunction ExtractWord(N: Integer; const S: string;  const WordDelims: Array of char): string;\r\nfunction ExtractWordPos(N: Integer; const S: string; const WordDelims: Array of char; out Pos: Integer): string;\r\nfunction ExtractDelimited(N: Integer; const S: string;  const Delims: Array of char): string;\r\nfunction ExtractSubstr(const S: string; var Pos: Integer;  const Delims: Array of char): string;\r\nfunction IsWordPresent(const W, S: string; const WordDelims: Array of char): Boolean;\r\nfunction FindPart(const HelpWilds, InputStr: string): SizeInt;\r\nfunction IsWild(InputStr, Wilds: string; IgnoreCase: Boolean): Boolean;\r\nfunction XorString(const Key, Src: String): String;\r\nfunction XorEncode(const Key, Source: string): string;\r\nfunction XorDecode(const Key, Source: string): string;\r\nfunction GetCmdLineArg(const Switch: string; SwitchChars: Array of char): string;\r\nfunction Numb2USA(const S: string): string;\r\nfunction Hex2Dec(const S: string): Longint;\r\nfunction Dec2Numb(N: Longint; Len, Base: Byte): string;\r\nfunction Numb2Dec(S: string; Base: Byte): Longint;\r\nfunction IntToBin(Value: Longint; Digits, Spaces: Integer): string;\r\nfunction IntToBin(Value: Longint; Digits: Integer): string;\r\nfunction IntToBin(Value: NativeInt; Digits:integer): string;\r\nfunction IntToRoman(Value: Longint): string;\r\nfunction TryRomanToInt(S: String; out N: LongInt; Strictness: TRomanConversionStrictness = rcsRelaxed): Boolean;\r\nfunction RomanToInt(const S: string; Strictness: TRomanConversionStrictness = rcsRelaxed): Longint;\r\nfunction RomanToIntDef(Const S : String; const ADefault: Longint = 0; Strictness: TRomanConversionStrictness = rcsRelaxed): Longint;\r\n\r\nconst\r\n  DigitChars = ['0'..'9'];\r\n  Brackets = ['(',')','[',']','{','}'];\r\n  StdWordDelims = [#0..' ',',','.',';','/','\\',':','''','\"','`'] + Brackets;\r\n  StdSwitchChars = ['-','/'];\r\n\r\nfunction PosSet (const c:Array of char;const s : String ):SizeInt;\r\nfunction PosSet (const c:string;const s : String ):SizeInt;\r\nfunction PosSetEx (const c:Array of char;const s : String;count:Integer ):SizeInt;\r\nfunction PosSetEx (const c:string;const s : String;count:Integer ):SizeInt;\r\n\r\nProcedure Removeleadingchars(VAR S : String; Const CSet:Array of char);\r\nProcedure RemoveTrailingChars(VAR S : String;Const CSet:Array of char);\r\nProcedure RemovePadChars(VAR S : String;Const CSet:Array of char);\r\n\r\nfunction TrimLeftSet(const S: String;const CSet:Array of char): String;\r\nFunction TrimRightSet(const S: String;const CSet:Array of char): String;\r\nfunction TrimSet(const S: String;const CSet:Array of char): String;\r\n\r\nFunction SplitString(const S, Delimiters: string): TStringDynArray;\r\n\r\ntype\r\n  SizeIntArray = array of SizeInt;\r\n\r\n\r\nimplementation\r\n\r\nuses js;\r\n\r\n{ ---------------------------------------------------------------------\r\n   Possibly Exception raising functions\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\nfunction Hex2Dec(const S: string): Longint;\r\nvar\r\n  HexStr: string;\r\nbegin\r\n  if Pos('$',S)=0 then\r\n    HexStr:='$'+ S\r\n  else\r\n    HexStr:=S;\r\n  Result:=StrToInt(HexStr);\r\nend;\r\n\r\n{\r\n  We turn off implicit exceptions, since these routines are tested, and it \r\n  saves 20% codesize (and some speed) and don't throw exceptions, except maybe \r\n  heap related. If they don't, that is consider a bug.\r\n\r\n  In the future, be wary with routines that use strtoint, floating point \r\n  and/or format() derivatives. And check every divisor for 0.\r\n}\r\n\r\n{$IMPLICITEXCEPTIONS OFF}\r\n\r\n{ ---------------------------------------------------------------------\r\n    Case insensitive search/replace\r\n  ---------------------------------------------------------------------}\r\nFunction AnsiResemblesText(const AText, AOther: string): Boolean;\r\n\r\nbegin\r\n  if Assigned(AnsiResemblesProc) then\r\n    Result:=AnsiResemblesProc(AText,AOther)\r\n  else\r\n    Result:=False;\r\nend;\r\n\r\nFunction AnsiContainsText(const AText, ASubText: string): Boolean;\r\nbegin\r\n  Result:=Pos(Uppercase(ASubText),Uppercase(AText))>0;\r\nend;\r\n\r\n\r\nFunction AnsiStartsText(const ASubText, AText: string): Boolean;\r\nbegin\r\n  if (Length(AText) >= Length(ASubText)) and (ASubText <> '') then\r\n    Result := SameText(ASubText,Copy(AText,1,Length(ASubText)))\r\n  else\r\n    Result := False;\r\nend;\r\n\r\n\r\nFunction AnsiEndsText(const ASubText, AText: string): Boolean;\r\nbegin\r\n  if Length(AText) >= Length(ASubText) then\r\n    Result := SameText(aSubText,RightStr(aText,Length(ASubText)))\r\n  else\r\n    Result := False;\r\nend;\r\n\r\n\r\nFunction AnsiReplaceText(const AText, AFromText, AToText: string): string;\r\nbegin\r\n  Result := StringReplace(AText,AFromText,AToText,[rfReplaceAll,rfIgnoreCase]);\r\nend;\r\n\r\n\r\nFunction AnsiMatchText(const AText: string; const AValues: array of string): Boolean;\r\nbegin\r\n  Result:=(AnsiIndexText(AText,AValues)<>-1)\r\nend;\r\n\r\n\r\nFunction AnsiIndexText(const AText: string; const AValues: array of string): Integer;\r\n\r\nvar\r\n  i : Integer;\r\n\r\nbegin\r\n  Result:=-1;\r\n  if (high(AValues)=-1) or (High(AValues)>MaxInt) Then\r\n    Exit;\r\n  for i:=low(AValues) to High(Avalues) do\r\n     if CompareText(avalues[i],atext)=0 Then\r\n       exit(i);  // make sure it is the first val.\r\nend;\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n    Case sensitive search/replace\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction AnsiContainsStr(const AText, ASubText: string): Boolean;\r\nbegin\r\n  Result := Pos(ASubText,AText)>0;\r\nend;\r\n\r\n\r\nFunction AnsiStartsStr(const ASubText, AText: string): Boolean;\r\nbegin\r\n  if (Length(AText) >= Length(ASubText)) and (ASubText <> '') then\r\n    Result := (ASubText=Copy(aText,1,Length(ASubtext)))\r\n  else\r\n    Result := False;\r\nend;\r\n\r\n\r\nFunction AnsiEndsStr(const ASubText, AText: string): Boolean;\r\nbegin\r\n  if Length(AText) >= Length(ASubText) then\r\n    Result := (ASubText=RightStr(aText,Length(ASubText)))\r\n  else\r\n    Result := False;\r\nend;\r\n\r\n\r\nFunction AnsiReplaceStr(const AText, AFromText, AToText: string): string;\r\nbegin\r\n  Result := StringReplace(AText,AFromText,AToText,[rfReplaceAll]);\r\nend;\r\n\r\n\r\nFunction AnsiMatchStr(const AText: string; const AValues: array of string): Boolean;\r\nbegin\r\n  Result:=AnsiIndexStr(AText,Avalues)<>-1;\r\nend;\r\n\r\n\r\nFunction AnsiIndexStr(const AText: string; const AValues: array of string): Integer;\r\nvar\r\n  i : longint;\r\nbegin\r\n  result:=-1;\r\n  if (high(AValues)=-1) or (High(AValues)>MaxInt) Then\r\n    Exit;\r\n  for i:=low(AValues) to High(Avalues) do\r\n     if (avalues[i]=AText) Then\r\n       exit(i);                                 // make sure it is the first val.\r\nend;\r\n\r\n\r\nFunction MatchStr(const AText: String; const AValues: array of String): Boolean;\r\nbegin\r\n  Result := IndexStr(AText,AValues) <> -1;\r\nend;\r\n\r\n\r\nFunction IndexStr(const AText: String; const AValues: array of String): Integer;\r\nvar\r\n  i: longint;\r\nbegin\r\n  Result := -1;\r\n  if (high(AValues) = -1) or (High(AValues) > MaxInt) Then\r\n    Exit;\r\n  for i := low(AValues) to High(Avalues) do\r\n     if (avalues[i] = AText) Then\r\n       exit(i);                                 // make sure it is the first val.\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Playthingies\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction DupeString(const AText: string; ACount: Integer): string;\r\n\r\nvar i : SizeInt;\r\n\r\nbegin\r\n result:='';\r\n for i:=1 to ACount do\r\n   Result:=Result+aText;\r\nend;\r\n\r\nFunction ReverseString(const AText: string): string;\r\n\r\nvar\r\n  i,j : SizeInt;\r\n\r\nbegin\r\n  setlength(result,length(atext));\r\n  i:=1; j:=length(atext);\r\n  while (i<=j) do\r\n    begin\r\n    result[i]:=atext[j-i+1];\r\n    inc(i);\r\n    end;\r\nend;\r\n\r\n\r\nFunction AnsiReverseString(const AText: String): String;\r\n\r\nbegin\r\n  Result:=ReverseString(AText);\r\nend;\r\n\r\n\r\nFunction StuffString(const AText: string; AStart, ALength: Cardinal;  const ASubText: string): string;\r\n\r\nvar i,j,k : SizeUInt;\r\n\r\nbegin\r\n  j:=length(ASubText);\r\n  i:=length(AText);\r\n  if AStart>i then \r\n    aStart:=i+1;\r\n  k:=i+1-AStart;\r\n  if ALength> k then\r\n    ALength:=k;\r\n  SetLength(Result,i+j-ALength);\r\n  Result:=Copy(AText,1,AStart-1)+Copy(ASubText,1,J)+Copy(AText,AStart+ALength,I+1-AStart-ALength);\r\nend;\r\n\r\nFunction RandomFrom(const AValues: array of string): string; overload;\r\n\r\nbegin\r\n  if high(AValues)=-1 then exit('');\r\n  result:=Avalues[random(High(AValues)+1)];\r\nend;\r\n\r\nFunction IfThen(AValue: Boolean; const ATrue: string; const AFalse: string = ''): string; overload;\r\n\r\nbegin\r\n  if avalue then\r\n    result:=atrue\r\n  else\r\n    result:=afalse;\r\nend;\r\n\r\nfunction NaturalCompareText(const Str1, Str2: string; const ADecSeparator, AThousandSeparator: String): Integer;\r\n{\r\n NaturalCompareBase compares strings in a collated order and\r\n so numbers are sorted too. It sorts like this:\r\n\r\n 01\r\n 001\r\n 0001\r\n\r\n and\r\n\r\n 0\r\n 00\r\n 000\r\n 000_A\r\n 000_B\r\n\r\n in a intuitive order.\r\n }\r\nvar\r\n  Num1, Num2: double;\r\n  pStr1, pStr2: integer;\r\n  Len1, Len2: SizeInt;\r\n  TextLen1, TextLen2: SizeInt;\r\n  TextStr1: string = '';\r\n  TextStr2: string = '';\r\n  i: SizeInt;\r\n  j: SizeInt;\r\n  \r\n  function Sign(const AValue: sizeint): integer;\r\n\r\n  begin\r\n    If Avalue<0 then\r\n      Result:=-1\r\n    else If Avalue>0 then\r\n      Result:=1\r\n    else\r\n      Result:=0;\r\n  end;\r\n\r\n  function IsNumber(ch: char): boolean; overload;\r\n  begin\r\n    Result := ch in ['0'..'9'];\r\n  end;\r\n\r\n  function GetInteger(aString : String; var pch: integer; var Len: sizeint): double;\r\n\r\n  begin\r\n    Result := 0;\r\n    while (pch<=length(astring)) and IsNumber(AString[pch]) do\r\n      begin\r\n      Result := (Result * 10) + Ord(Astring[pch]) - Ord('0');\r\n      Inc(Len);\r\n      Inc(pch);\r\n      end;\r\n  end;\r\n\r\n  procedure GetChars;\r\n\r\n  begin\r\n    TextLen1 := 0;\r\n    while not (Str1[pStr1 + TextLen1] in ['0'..'9']) and ((pStr1 + TextLen1)<=Length(Str1)) do\r\n      Inc(TextLen1);\r\n    TextStr1:='';\r\n    i := 1;\r\n    j := 0;\r\n    while i <= TextLen1 do\r\n      begin\r\n      TextStr1 := TextStr1+Str1[pStr1 + j];\r\n      Inc(i);\r\n      Inc(j);\r\n      end;\r\n\r\n    TextLen2 := 0;\r\n    while not (Str2[pStr2 + TextLen2] in ['0'..'9']) and ((pStr2 + TextLen2)<=Length(Str2)) do\r\n      Inc(TextLen2);\r\n    i := 1;\r\n    j := 0;\r\n    while i <= TextLen2 do\r\n      begin\r\n      TextStr2 := TextStr2+Str2[pStr2 + j];\r\n      Inc(i);\r\n      Inc(j);\r\n    end;\r\n  end;\r\n\r\nbegin\r\n  if (Str1 <> '') and (Str2 <> '') then\r\n    begin\r\n    pStr1 := 1;\r\n    pStr2 := 1;\r\n    Result := 0;\r\n    while (pStr1<=Length(Str1)) and (pStr2 <=Length(Str2)) do\r\n      begin\r\n      TextLen1 := 1;\r\n      TextLen2 := 1;\r\n      Len1 := 0;\r\n      Len2 := 0;\r\n      while (Str1[pStr1] = ' ') do\r\n      begin\r\n        Inc(pStr1);\r\n        Inc(Len1);\r\n      end;\r\n      while (Str2[pstr2] = ' ') do\r\n        begin\r\n        Inc(pStr2);\r\n        Inc(Len2);\r\n        end;\r\n      if IsNumber(Str1[pStr1]) and IsNumber(Str2[pStr2]) then\r\n        begin\r\n         Num1 := GetInteger(Str1,pStr1, Len1);\r\n         Num2 := GetInteger(Str2, pStr2, Len2);\r\n        if Num1 < Num2 then\r\n          Result := -1\r\n        else if Num1 > Num2 then\r\n          Result := 1\r\n        else\r\n        begin\r\n          Result := Sign(Len1 - Len2);\r\n        end;\r\n        Dec(pStr1);\r\n        Dec(pStr2);\r\n        end\r\n      else\r\n        begin\r\n        GetChars;\r\n        if TextStr1 <> TextStr2 then\r\n          Result := CompareText(TextStr1, TextStr2)\r\n        else\r\n          Result := 0;\r\n        end;\r\n      if Result <> 0 then\r\n        Break;\r\n      Inc(pStr1, TextLen1);\r\n      Inc(pStr2, TextLen2);\r\n      end;\r\n    end;\r\n  Num1:=Length(Str1);\r\n  Num2:=Length(Str2);\r\n  if (Result = 0) and (Num1 <> Num2) then\r\n    begin\r\n    if Num1 < Num2 then\r\n      Result := -1\r\n    else\r\n      Result := 1;\r\n    end;\r\n  if ADecSeparator='' then ;\r\n  if aThousandSeparator='' then ;\r\nend;\r\n\r\nfunction NaturalCompareText (const S1 , S2 : string ): Integer ;\r\nbegin\r\n  Result := NaturalCompareText(S1, S2, FormatSettings.DecimalSeparator,FormatSettings.ThousandSeparator);\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    VB emulations.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction LeftStr(const AText: String; const ACount: SizeInt): String;\r\n\r\nbegin\r\n  Result:=Copy(AText,1,ACount);\r\nend;\r\n\r\nFunction RightStr(const AText: String; const ACount: SizeInt): String;\r\n\r\nvar j,l:SizeInt;\r\n\r\nbegin\r\n  l:=length(atext);\r\n  j:=ACount;\r\n  if j>l then j:=l;\r\n  Result:=Copy(AText,l-j+1,j);\r\nend;\r\n\r\nFunction MidStr(const AText: String; const AStart, ACount: SizeInt): String;\r\n\r\nbegin\r\n  if (ACount=0) or (AStart>length(atext)) then\r\n    exit('');\r\n  Result:=Copy(AText,AStart,ACount);\r\nend;\r\n\r\n\r\n\r\nFunction LeftBStr(const AText: String; const AByteCount: SizeInt): String;\r\n\r\nbegin\r\n  Result:=LeftStr(AText,AByteCount);\r\nend;\r\n\r\n\r\nFunction RightBStr(const AText: String; const AByteCount: SizeInt): String;\r\nbegin\r\n  Result:=RightStr(Atext,AByteCount);\r\nend;\r\n\r\n\r\nFunction MidBStr(const AText: String; const AByteStart, AByteCount: SizeInt): String;\r\nbegin\r\n  Result:=MidStr(AText,AByteStart,AByteCount);\r\nend;\r\n\r\n\r\nFunction AnsiLeftStr(const AText: String; const ACount: SizeInt): String;\r\nbegin\r\n  Result := copy(AText,1,ACount);\r\nend;\r\n\r\n\r\nFunction AnsiRightStr(const AText: String; const ACount: SizeInt): String;\r\nbegin\r\n  Result := copy(AText,length(AText)-ACount+1,ACount);\r\nend;\r\n\r\n\r\nFunction AnsiMidStr(const AText: String; const AStart, ACount: SizeInt): String;\r\nbegin\r\n  Result:=Copy(AText,AStart,ACount);\r\nend;\r\n\r\n\r\nFunction PosEx(const SubStr, S: string; Offset: SizeUint): SizeInt;\r\n\r\n\r\nbegin\r\n  result:=TJSString.New(S).IndexOf(SubStr,offset-1)+1;\r\nend;\r\n\r\nFunction PosEx(c:char; const S: string; Offset: SizeUint): SizeInt;\r\nbegin\r\n  result:=TJSString.New(S).IndexOf(c,offset-1)+1;\r\nend;\r\n\r\nFunction PosEx(const SubStr, S: string): SizeInt; // Offset: Cardinal = 1\r\n\r\nbegin\r\n  Result:=posex(substr,s,1);\r\nend;\r\n\r\n\r\nfunction StringsReplace(const S: string; OldPattern, NewPattern: array of string;  Flags: TReplaceFlags): string;\r\n\r\nvar pc,pcc,lastpc : integer;\r\n    strcount      : integer;\r\n    ResStr,\r\n    CompStr       : string;\r\n    Found         : Boolean;\r\n    sc            : sizeint;\r\n\r\nbegin\r\n  sc := length(OldPattern);\r\n  if sc <> length(NewPattern) then\r\n    raise exception.Create(SErrAmountStrings);\r\n\r\n  dec(sc);\r\n\r\n  if rfIgnoreCase in Flags then\r\n    begin\r\n    CompStr:=UpperCase(S);\r\n    for strcount := 0 to sc do\r\n      OldPattern[strcount] := UpperCase(OldPattern[strcount]);\r\n    end\r\n  else\r\n    CompStr := s;\r\n\r\n  ResStr := '';\r\n  pc := 1;\r\n  pcc := 1;\r\n  lastpc := pc+Length(S);\r\n\r\n  while pc < lastpc do\r\n    begin\r\n    Found := False;\r\n    for strcount := 0 to sc do\r\n      begin\r\n      if (Copy(compStr,pc,Length(OldPattern[strcount]))=OldPattern[strcount]) then\r\n        begin\r\n        ResStr := ResStr + NewPattern[strcount];\r\n        pc := pc+Length(OldPattern[strcount]);\r\n        pcc := pcc+Length(OldPattern[strcount]);\r\n        Found := true;\r\n        end\r\n      end;\r\n    if not found then\r\n      begin\r\n      ResStr := ResStr + S[pcc];\r\n      inc(pc);\r\n      inc(pcc);\r\n      end\r\n    else if not (rfReplaceAll in Flags) then\r\n      begin\r\n      ResStr := ResStr + copy(S,pcc,Length(S)-pcc+1);\r\n      break;\r\n      end;\r\n    end;\r\n  Result := ResStr;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Delphi compat\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction ReplaceStr(const AText, AFromText, AToText: string): string;\r\nbegin\r\n  result:=AnsiReplaceStr(AText, AFromText, AToText);\r\nend;\r\n\r\nFunction ReplaceText(const AText, AFromText, AToText: string): string;\r\nbegin\r\n  result:=AnsiReplaceText(AText, AFromText, AToText);\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Soundex Functions.\r\n  ---------------------------------------------------------------------}\r\nVar\r\n  SScore : String =\r\n      '00000000000000000000000000000000'+ // 1..32\r\n      '00000000000000000000000000000000'+ // 33..64\r\n      '0123012i02245501262301i2i2'+ // 65..90\r\n      '000000'+ // 91..96\r\n      '0123012i02245501262301i2i2'+ // 97..122\r\n      '00000000000000000000000000000000'+ // 123..154\r\n      '00000000000000000000000000000000'+ // 155..186\r\n      '00000000000000000000000000000000'+ // 187..218\r\n      '00000000000000000000000000000000'+ // 219..250\r\n      '00000'; // 251..255\r\n\r\nFunction Soundex(const AText: string; ALength: TSoundexLength): string;\r\n\r\nVar\r\n  S,PS : Char;\r\n  I,L : SizeInt;\r\n\r\nbegin\r\n  Result:='';\r\n  PS:=#0;\r\n  If Length(AText)>0 then\r\n    begin\r\n    Result:=Upcase(AText[1]);\r\n    I:=2;\r\n    L:=Length(AText);\r\n    While (I<=L) and (Length(Result)<ALength) do\r\n      begin\r\n      S:=SScore[Ord(AText[i])];\r\n      If Not (S in ['0','i',PS]) then\r\n        Result:=Result+S;\r\n      If (S<>'i') then\r\n        PS:=S;\r\n      Inc(I);\r\n      end;\r\n    end;\r\n  L:=Length(Result);\r\n  If (L<ALength) then\r\n    Result:=Result+StringOfChar('0',Alength-L);\r\nend;\r\n\r\n\r\n\r\nFunction Soundex(const AText: string): string; // ; ALength: TSoundexLength = 4\r\n\r\nbegin\r\n  Result:=Soundex(AText,4);\r\nend;\r\n\r\nConst\r\n  Ord0 = Ord('0');\r\n  OrdA = Ord('A');\r\n\r\nFunction SoundexInt(const AText: string; ALength: TSoundexIntLength): Integer;\r\n\r\nvar\r\n  SE: string;\r\n  I: SizeInt;\r\n\r\nbegin\r\n  Result:=-1;\r\n  SE:=Soundex(AText,ALength);\r\n  If Length(SE)>0 then\r\n    begin\r\n    Result:=Ord(SE[1])-OrdA;\r\n    if ALength > 1 then\r\n      begin\r\n      Result:=Result*26+(Ord(SE[2])-Ord0);\r\n      for I:=3 to ALength do\r\n        Result:=(Ord(SE[I])-Ord0)+Result*7;\r\n      end;\r\n    Result:=ALength+Result*9;\r\n    end;\r\nend;\r\n\r\n\r\nFunction SoundexInt(const AText: string): Integer; //; ALength: TSoundexIntLength = 4\r\nbegin\r\n  Result:=SoundexInt(AText,4);\r\nend;\r\n\r\n\r\nFunction DecodeSoundexInt(AValue: Integer): string;\r\n\r\nvar\r\n  I, Len: Integer;\r\n\r\nbegin\r\n  Result := '';\r\n  Len := AValue mod 9;\r\n  AValue := AValue div 9;\r\n  for I:=Len downto 3 do\r\n    begin\r\n    Result:=Chr(Ord0+(AValue mod 7))+Result;\r\n    AValue:=AValue div 7;\r\n    end;\r\n  if Len>1 then\r\n    begin\r\n    Result:=Chr(Ord0+(AValue mod 26))+Result;\r\n    AValue:=AValue div 26;\r\n    end;\r\n  Result:=Chr(OrdA+AValue)+Result;\r\nend;\r\n\r\n\r\nFunction SoundexWord(const AText: string): Word;\r\n\r\nVar\r\n  S : String;\r\n\r\nbegin\r\n  S:=SoundEx(Atext,4);\r\n  Result:=Ord(S[1])-OrdA;\r\n  Result:=Result*26+ord(S[2])-48;\r\n  Result:=Result*7+ord(S[3])-48;\r\n  Result:=Result*7+ord(S[4])-48;\r\nend;\r\n\r\n\r\nFunction DecodeSoundexWord(AValue: Word): string;\r\nbegin\r\n  Result := Chr(Ord0+ (AValue mod 7));\r\n  AValue := AValue div 7;\r\n  Result := Chr(Ord0+ (AValue mod 7)) + Result;\r\n  AValue := AValue div 7;\r\n  Result := IntToStr(AValue mod 26) + Result;\r\n  AValue := AValue div 26;\r\n  Result := Chr(OrdA+AValue) + Result;\r\nend;\r\n\r\n\r\nFunction SoundexSimilar(const AText, AOther: string; ALength: TSoundexLength): Boolean;\r\nbegin\r\n  Result:=Soundex(AText,ALength)=Soundex(AOther,ALength);\r\nend;\r\n\r\n\r\nFunction SoundexSimilar(const AText, AOther: string): Boolean; //; ALength: TSoundexLength = 4\r\nbegin\r\n  Result:=SoundexSimilar(AText,AOther,4);\r\nend;\r\n\r\n\r\nFunction SoundexCompare(const AText, AOther: string; ALength: TSoundexLength): Integer;\r\nbegin\r\n  Result:=AnsiCompareStr(Soundex(AText,ALength),Soundex(AOther,ALength));\r\nend;\r\n\r\n\r\nFunction SoundexCompare(const AText, AOther: string): Integer; //; ALength: TSoundexLength = 4\r\nbegin\r\n  Result:=SoundexCompare(AText,AOther,4);\r\nend;\r\n\r\n\r\nFunction SoundexProc(const AText, AOther: string): Boolean;\r\nbegin\r\n  Result:=SoundexSimilar(AText,AOther);\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    RxStrUtils-like functions.\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\n\r\nfunction IsEmptyStr(const S: string; const EmptyChars: Array of char): Boolean;\r\n\r\nvar\r\n  i,l: SizeInt;\r\n\r\nbegin\r\n  l:=Length(S);\r\n  i:=1;\r\n  Result:=True;\r\n  while Result and (i<=l) do\r\n    begin\r\n    Result:=CharInSet(S[i],EmptyChars);\r\n    Inc(i);\r\n    end;\r\nend;\r\n\r\nfunction DelSpace(const S: String): string;\r\n\r\nbegin\r\n  Result:=DelChars(S,' ');\r\nend;\r\n\r\nfunction DelChars(const S: string; Chr: Char): string;\r\n\r\nvar\r\n  I,J: SizeInt;\r\n\r\nbegin\r\n  Result:=S;\r\n  I:=Length(Result);\r\n  While I>0 do\r\n    begin\r\n    if Result[I]=Chr then\r\n      begin\r\n      J:=I-1;\r\n      While (J>0) and (Result[J]=Chr) do\r\n        Dec(j);\r\n      Delete(Result,J+1,I-J);\r\n      I:=J+1;\r\n      end;\r\n    dec(I);\r\n    end;\r\nend;\r\n\r\nfunction DelSpace1(const S: string): string;\r\n\r\nvar\r\n  I : SizeInt;\r\n\r\nbegin\r\n  Result:=S;\r\n  for i:=Length(Result) downto 2 do\r\n    if (Result[i]=' ') and (Result[I-1]=' ') then\r\n      Delete(Result,I,1);\r\nend;\r\n\r\nfunction Tab2Space(const S: string; Numb: Byte): string;\r\n\r\nvar\r\n  I: SizeInt;\r\n\r\nbegin\r\n  I:=1;\r\n  Result:=S;\r\n  while I <= Length(Result) do\r\n    if Result[I]<>Chr(9) then\r\n      inc(I)\r\n    else\r\n      begin\r\n      Result[I]:=' ';\r\n      If (Numb>1) then\r\n        Insert(StringOfChar(' ',Numb-1),Result,I);\r\n      Inc(I,Numb);\r\n      end;\r\nend;\r\n\r\nfunction NPos(const C: string; S: string; N: Integer): SizeInt;\r\n\r\nvar\r\n  i,p,k: SizeInt;\r\n\r\nbegin\r\n  Result:=0;\r\n  if N<1 then\r\n    Exit;\r\n  k:=0;\r\n  i:=1;\r\n  Repeat\r\n    p:=pos(C,S);\r\n    Inc(k,p);\r\n    if p>0 then\r\n      delete(S,1,p);\r\n    Inc(i);\r\n  Until (i>n) or (p=0);\r\n  If (P>0) then\r\n    Result:=K;\r\nend;\r\n\r\nfunction AddChar(C: Char; const S: string; N: Integer): string;\r\n\r\nVar\r\n  l : SizeInt;\r\n\r\nbegin\r\n  Result:=S;\r\n  l:=Length(Result);\r\n  if l<N then\r\n    Result:=StringOfChar(C,N-l)+Result;\r\nend;\r\n\r\nfunction AddCharR(C: Char; const S: string; N: Integer): string;\r\n\r\nVar\r\n  l : SizeInt;\r\n\r\nbegin\r\n  Result:=S;\r\n  l:=Length(Result);\r\n  if l<N then\r\n    Result:=Result+StringOfChar(C,N-l);\r\nend;\r\n\r\n\r\nfunction PadRight(const S: string; N: Integer): string;\r\nbegin\r\n  Result:=AddCharR(' ',S,N);\r\nend;\r\n\r\n\r\nfunction PadLeft(const S: string; N: Integer): string;\r\nbegin\r\n  Result:=AddChar(' ',S,N);\r\nend;\r\n\r\n\r\nfunction Copy2Symb(const S: string; Symb: Char): string;\r\n\r\nvar\r\n  p: SizeInt;\r\n\r\nbegin\r\n  p:=Pos(Symb,S);\r\n  if p=0 then\r\n    p:=Length(S)+1;\r\n  Result:=Copy(S,1,p-1);\r\nend;\r\n\r\nfunction Copy2SymbDel(var S: string; Symb: Char): string;\r\n\r\nvar\r\n  p: SizeInt;\r\n\r\nbegin\r\n  p:=Pos(Symb,S);\r\n  if p=0 then\r\n    begin\r\n      result:=s;\r\n      s:='';\r\n    end\r\n  else\r\n    begin\t\r\n      Result:=Copy(S,1,p-1);\r\n      delete(s,1,p);\t\t\r\n    end;\r\nend;\r\n\r\nfunction Copy2Space(const S: string): string;\r\nbegin\r\n  Result:=Copy2Symb(S,' ');\r\nend;\r\n\r\nfunction Copy2SpaceDel(var S: string): string;\r\nbegin\r\n  Result:=Copy2SymbDel(S,' ');\r\nend;\r\n\r\nfunction AnsiProperCase(const S: string; const WordDelims: Array of char): string;\r\n\r\nvar\r\n  P,L : Integer;\r\n\r\nbegin\r\n  Result:=LowerCase(S);\r\n  P:=1;\r\n  L:=Length(Result);\r\n  while (P<=L) do\r\n    begin\r\n    while (P<=L) and (CharInSet(Result[P],WordDelims)) do\r\n      inc(P);\r\n    if (P<=L) then\r\n      Result[P]:=UpCase(Result[P]);\r\n    while (P<=L) and not CharInSet(Result[P],WordDelims) do\r\n      inc(P);\r\n    end;\r\nend;\r\n\r\nfunction WordCount(const S: string; const WordDelims: Array of char): SizeInt;\r\n\r\nvar\r\n  P,L : Integer;\r\n\r\nbegin\r\n  Result:=0;\r\n  P:=1;\r\n  L:=Length(S);\r\n  while (P<=L) do\r\n    begin\r\n    while (P<=L) and (CharInSet(S[P],WordDelims)) do\r\n      Inc(P);\r\n    if (P<=L) then\r\n      inc(Result);\r\n    while (P<=L) and not (CharInSet(S[P],WordDelims)) do\r\n      inc(P);\r\n    end;\r\nend;\r\n\r\nfunction WordPosition(const N: Integer; const S: string; const WordDelims: Array of char): SizeInt;\r\n\r\nvar\r\n  PS,P,PE,Count : Integer;\r\n\r\nbegin\r\n  Result:=0;\r\n  Count:=0;\r\n  PS:=1;\r\n  PE:=Length(S);\r\n  P:=PS;\r\n  while (P<=PE) and (Count<>N) do\r\n    begin\r\n    while (P<=PE) and CharInSet(S[P],WordDelims) do\r\n      inc(P);\r\n    if (P<=PE) then\r\n      inc(Count);\r\n    if (Count<>N) then\r\n      while (P<=PE) and not CharInSet(S[P],WordDelims) do\r\n        inc(P)\r\n    else\r\n      Result:=(P-PS)+1;\r\n    end;\r\nend;\r\n\r\n\r\nfunction ExtractWord(N: Integer; const S: string; const WordDelims: Array of char): string;\r\nvar\r\n  i: LongInt;\r\nbegin\r\n  Result:=ExtractWordPos(N,S,WordDelims,i);\r\nend;\r\n\r\n\r\nfunction ExtractWordPos(N: Integer; const S: string; const WordDelims: Array of char; out Pos: Integer): string;\r\n\r\nvar\r\n  i,j,l: SizeInt;\r\n\r\nbegin\r\n  j:=0;\r\n  i:=WordPosition(N, S, WordDelims);\r\n  if (I>MaxInt) then\r\n    begin\r\n    Result:='';\r\n    Pos:=-1;\r\n    Exit;\r\n    end;\r\n  Pos:=i;\r\n  if (i<>0) then\r\n    begin\r\n    j:=i;\r\n    l:=Length(S);\r\n    while (j<=L) and not CharInSet(S[j],WordDelims) do\r\n      inc(j);\r\n    end;\r\n  Result:=Copy(S,I,j-I);\r\nend;\r\n\r\n\r\nfunction ExtractDelimited(N: Integer; const S: string; const Delims: Array of char): string;\r\nvar\r\n  w,i,l,len: SizeInt;\r\nbegin\r\n  w:=0;\r\n  i:=1;\r\n  l:=0;\r\n  len:=Length(S);\r\n  SetLength(Result, 0);\r\n  while (i<=len) and (w<>N) do\r\n    begin\r\n    if CharInSet(S[i],Delims) then\r\n      inc(w)\r\n    else\r\n      begin\r\n      if (N-1)=w then\r\n        begin\r\n        inc(l);\r\n        Result:=Result+S[i];\r\n        end;\r\n      end;\r\n    inc(i);\r\n    end;\r\nend;\r\n\r\n\r\nfunction ExtractSubstr(const S: string; var Pos: Integer; const Delims: Array of char): string;\r\n\r\nvar\r\n  i,l: SizeInt;\r\n\r\nbegin\r\n  i:=Pos;\r\n  l:=Length(S);\r\n  while (i<=l) and not CharInSet(S[i],Delims) do\r\n    inc(i);\r\n  Result:=Copy(S,Pos,i-Pos);\r\n  while (i<=l) and CharInSet(S[i],Delims) do\r\n    inc(i);\r\n  if I>MaxInt then\r\n    Pos:=MaxInt\r\n  else\r\n    Pos:=i;\r\nend;\r\n\r\nfunction isWordPresent(const W, S: string; const WordDelims: Array of char): Boolean;\r\n\r\nvar\r\n  i,Count : SizeInt;\r\n\r\nbegin\r\n  Result:=False;\r\n  Count:=WordCount(S, WordDelims);\r\n  I:=1;\r\n  While (Not Result) and (I<=Count) do\r\n    begin\r\n    Result:=ExtractWord(i,S,WordDelims)=W;\r\n    Inc(i);\r\n    end;\r\nend;\r\n\r\n\r\nfunction Numb2USA(const S: string): string;\r\nvar\r\n  i, NA: Integer;\r\nbegin\r\n  i:=Length(S);\r\n  Result:=S;\r\n  NA:=0;\r\n  while (i > 0) do begin\r\n    if ((Length(Result) - i + 1 - NA) mod 3 = 0) and (i <> 1) then\r\n    begin\r\n      insert(',', Result, i);\r\n      inc(NA);\r\n    end;\r\n    Dec(i);\r\n  end;\r\nend;\r\n\r\nfunction PadCenter(const S: string; Len: SizeInt): string;\r\nbegin\r\n  if Length(S)<Len then\r\n    begin\r\n    Result:=StringOfChar(' ',(Len div 2) -(Length(S) div 2))+S;\r\n    Result:=Result+StringOfChar(' ',Len-Length(Result));\r\n    end\r\n  else\r\n    Result:=S;\r\nend;\r\n\r\n\r\nfunction Dec2Numb(N: Longint; Len, Base: Byte): string;\r\n\r\nvar\r\n  C: Integer;\r\n  Number: Longint;\r\n\r\nbegin\r\n  if N=0 then\r\n    Result:='0'\r\n  else\r\n    begin\r\n    Number:=N;\r\n    Result:='';\r\n    while Number>0 do\r\n      begin\r\n      C:=Number mod Base;\r\n      if C>9 then\r\n        C:=C+55\r\n      else\r\n        C:=C+48;\r\n      Result:=Chr(C)+Result;\r\n      Number:=Number div Base;\r\n      end;\r\n    end;\r\n  if (Result<>'') then\r\n    Result:=AddChar('0',Result,Len);\r\nend;\r\n\r\nfunction Numb2Dec(S: string; Base: Byte): Longint;\r\n\r\nvar\r\n  i, P: sizeint;\r\n\r\nbegin\r\n  i:=Length(S);\r\n  Result:=0;\r\n  S:=UpperCase(S);\r\n  P:=1;\r\n  while (i>=1) do\r\n    begin\r\n    if (S[i]>'@') then\r\n      Result:=Result+(Ord(S[i])-55)*P\r\n    else\r\n      Result:=Result+(Ord(S[i])-48)*P;\r\n    Dec(i);\r\n    P:=P*Base;\r\n    end;\r\nend;\r\n\r\nFunction RomanValues(C : Char) : Word;\r\n\r\nbegin\r\n  Case c of\r\n    'C' : Result:=100;\r\n    'D' : Result:=500;\r\n    'I' : Result:=1;\r\n    'L' : Result:=50;\r\n    'M' : Result:=1000;\r\n    'V' : Result:=5;\r\n    'X' : Result:=10;\r\n  else\r\n    Result:=0;\r\n  end;\r\nend;\r\n\r\nfunction RomanToIntDontCare(const S: String): Longint;\r\n{This was the original implementation of RomanToInt,\r\n it is internally used in TryRomanToInt when Strictness = rcsDontCare}\r\nconst\r\n  RomanChars  = ['C','D','I','L','M','V','X'];\r\n\r\nvar\r\n  index, Next: Char;\r\n  i,l: SizeInt;\r\n  Negative: Boolean;\r\n\r\nbegin\r\n  Result:=0;\r\n  i:=0;\r\n  Negative:=(Length(S)>0) and (S[1]='-');\r\n  if Negative then\r\n    inc(i);\r\n  l:=Length(S);\r\n  while (i<l) do\r\n    begin\r\n    inc(i);\r\n    index:=UpCase(S[i]);\r\n    if index in RomanChars then\r\n      begin\r\n      if (i+1)<=l then\r\n        Next:=UpCase(S[i+1])\r\n      else\r\n        Next:=#0;\r\n      if (Next in RomanChars) and (RomanValues(index)<RomanValues(Next)) then\r\n        begin\r\n        inc(Result, RomanValues(Next));\r\n        Dec(Result, RomanValues(index));\r\n        inc(i);\r\n        end\r\n      else\r\n        inc(Result, RomanValues(index));\r\n      end\r\n    else\r\n      begin\r\n      Result:=0;\r\n      Exit;\r\n      end;\r\n    end;\r\n  if Negative then\r\n    Result:=-Result;\r\nend;\r\n\r\n\r\n{ TryRomanToInt: try to convert a roman numeral to an integer\r\n  Parameters:\r\n  S: Roman numeral (like: 'MCMXXII')\r\n  N: Integer value of S (only meaningfull if the function succeeds)\r\n  Stricness: controls how strict the parsing of S is\r\n    - rcsStrict:\r\n      * Follow common subtraction rules\r\n         - only 1 preceding subtraction character allowed: IX = 9, but IIX <> 8\r\n         - from M you can only subtract C\r\n         - from D you can only subtract C\r\n         - from C you can only subtract X\r\n         - from L you can only subtract X\r\n         - from X you can only subtract I\r\n         - from V you can only subtract I\r\n      *  The numeral is parsed in \"groups\" (first M's, then D's etc.), the next group to be parsed\r\n         must always be of a lower denomination than the previous one.\r\n         Example: 'MMDCCXX' is allowed but 'MMCCXXDD' is not\r\n      * There can only ever be 3 consecutive M's, C's, X's or I's\r\n      * There can only ever be 1 D, 1 L and 1 V\r\n      * After IX or IV there can be no more characters\r\n      * Negative numbers are not supported\r\n      // As a consequence the maximum allowed Roman numeral is MMMCMXCIX = 3999, also N can never become 0 (zero)\r\n\r\n    - rcsRelaxed: Like rcsStrict but with the following exceptions:\r\n      * An infinite number of (leading) M's is allowed\r\n      * Up to 4 consecutive M's, C's, X's and I's are allowed\r\n      // So this is allowed: 'MMMMMMCXIIII'  = 6124\r\n\r\n    - rcsDontCare:\r\n      * no checking on the order of \"groups\" is done\r\n      * there are no restrictions on the number of consecutive chars\r\n      * negative numbers are supported\r\n      * an empty string as input will return True and N will be 0\r\n      * invalid input will return false\r\n      // for backwards comatibility: it supports rather ludicrous input like '-IIIMIII' -> -(2+(1000-1)+3)=-1004\r\n}\r\n\r\nfunction TryRomanToInt(S: String; out N: LongInt; Strictness: TRomanConversionStrictness = rcsRelaxed): Boolean;\r\n\r\nvar\r\n  i, Len: SizeInt;\r\n  Terminated: Boolean;\r\n\r\nbegin\r\n  Result := (False);\r\n  S := UpperCase(S);  //don't use AnsiUpperCase please\r\n  Len := Length(S);\r\n  if (Strictness = rcsDontCare) then\r\n  begin\r\n    N := RomanToIntDontCare(S);\r\n    if (N = 0) then\r\n    begin\r\n      Result := (Len = 0);\r\n    end\r\n    else\r\n      Result := True;\r\n    Exit;\r\n  end;\r\n  if (Len = 0) then Exit;\r\n  i := 1;\r\n  N := 0;\r\n  Terminated := False;\r\n  //leading M's\r\n  while (i <= Len) and ((Strictness <> rcsStrict) or (i < 4)) and (S[i] = 'M') do\r\n  begin\r\n    //writeln('TryRomanToInt: Found 1000');\r\n    Inc(i);\r\n    N := N + 1000;\r\n  end;\r\n  //then CM or or CD or D or (C, CC, CCC, CCCC)\r\n  if (i <= Len) and (S[i] = 'D') then\r\n  begin\r\n    //writeln('TryRomanToInt: Found 500');\r\n    Inc(i);\r\n    N := N + 500;\r\n  end\r\n  else if (i + 1 <= Len) and (S[i] = 'C') then\r\n  begin\r\n    if (S[i+1] = 'M') then\r\n    begin\r\n      //writeln('TryRomanToInt: Found 900');\r\n      Inc(i,2);\r\n      N := N + 900;\r\n    end\r\n    else if (S[i+1] = 'D') then\r\n    begin\r\n      //writeln('TryRomanToInt: Found 400');\r\n      Inc(i,2);\r\n      N := N + 400;\r\n    end;\r\n  end ;\r\n  //next max 4 or 3 C's, depending on Strictness\r\n  if (i <= Len) and (S[i] = 'C') then\r\n  begin\r\n    //find max 4 C's\r\n    //writeln('TryRomanToInt: Found 100');\r\n    Inc(i);\r\n    N := N + 100;\r\n    if (i <= Len) and (S[i] = 'C') then\r\n    begin\r\n      //writeln('TryRomanToInt: Found 100');\r\n      Inc(i);\r\n      N := N + 100;\r\n    end;\r\n    if (i <= Len) and (S[i] = 'C') then\r\n    begin\r\n      //writeln('TryRomanToInt: Found 100');\r\n      Inc(i);\r\n      N := N + 100;\r\n    end;\r\n    if (Strictness <> rcsStrict) and (i <= Len) and (S[i] = 'C') then\r\n    begin\r\n      //writeln('TryRomanToInt: Found 100');\r\n      Inc(i);\r\n      N := N + 100;\r\n    end;\r\n  end;\r\n\r\n  //then XC or XL\r\n  if (i + 1 <= Len) and (S[i] = 'X') then\r\n  begin\r\n    if (S[i+1] = 'C') then\r\n    begin\r\n      //writeln('TryRomanToInt: Found 90');\r\n      Inc(i,2);\r\n      N := N + 90;\r\n    end\r\n    else if  (S[i+1] = 'L') then\r\n    begin\r\n      //writeln('TryRomanToInt: Found 40');\r\n      Inc(i,2);\r\n      N := N + 40;\r\n    end;\r\n  end;\r\n\r\n  //then L\r\n  if (i <= Len) and (S[i] = 'L') then\r\n  begin\r\n    //writeln('TryRomanToInt: Found 50');\r\n    Inc(i);\r\n    N := N + 50;\r\n  end;\r\n\r\n  //then (X, xx, xxx, xxxx)\r\n  if (i <= Len) and (S[i] = 'X') then\r\n  begin\r\n    //find max 3 or 4 X's, depending on Strictness\r\n    //writeln('TryRomanToInt: Found 10');\r\n    Inc(i);\r\n    N := N + 10;\r\n    if (i <= Len) and (S[i] = 'X') then\r\n    begin\r\n      //writeln('TryRomanToInt: Found 10');\r\n      Inc(i);\r\n      N := N + 10;\r\n    end;\r\n    if (i <= Len) and (S[i] = 'X') then\r\n    begin\r\n      //writeln('TryRomanToInt: Found 10');\r\n      Inc(i);\r\n      N := N + 10;\r\n    end;\r\n    if (Strictness <> rcsStrict) and (i <= Len) and (S[i] = 'X') then\r\n    begin\r\n      //writeln('TryRomanToInt: Found 10');\r\n      Inc(i);\r\n      N := N + 10;\r\n    end;\r\n  end;\r\n\r\n  //then IX or IV\r\n  if (i + 1 <= Len) and (S[i] = 'I') then\r\n  begin\r\n    if (S[i+1] = 'X') then\r\n    begin\r\n      Terminated := (True);\r\n      //writeln('TryRomanToInt: Found 9');\r\n      Inc(i,2);\r\n      N := N + 9;\r\n    end\r\n    else if (S[i+1] = 'V') then\r\n    begin\r\n      Terminated := (True);\r\n      //writeln('TryRomanToInt: Found 4');\r\n      Inc(i,2);\r\n      N := N + 4;\r\n    end;\r\n  end;\r\n\r\n  //then V\r\n  if (not Terminated) and (i <= Len) and (S[i] = 'V') then\r\n  begin\r\n    //writeln('TryRomanToInt: Found 5');\r\n    Inc(i);\r\n    N := N + 5;\r\n  end;\r\n\r\n\r\n  //then I\r\n  if (not Terminated) and (i <= Len) and (S[i] = 'I') then\r\n  begin\r\n    Terminated := (True);\r\n    //writeln('TryRomanToInt: Found 1');\r\n    Inc(i);\r\n    N := N + 1;\r\n    //Find max 2 or 3 closing I's, depending on strictness\r\n    if (i <= Len) and (S[i] = 'I') then\r\n    begin\r\n      //writeln('TryRomanToInt: Found 1');\r\n      Inc(i);\r\n      N := N + 1;\r\n    end;\r\n    if (i <= Len) and (S[i] = 'I') then\r\n    begin\r\n      //writeln('TryRomanToInt: Found 1');\r\n      Inc(i);\r\n      N := N + 1;\r\n    end;\r\n    if (Strictness <> rcsStrict) and (i <= Len) and (S[i] = 'I') then\r\n    begin\r\n      //writeln('TryRomanToInt: Found 1');\r\n      Inc(i);\r\n      N := N + 1;\r\n    end;\r\n  end;\r\n\r\n  //writeln('TryRomanToInt: Len = ',Len,' i = ',i);\r\n  Result := (i > Len);\r\n  //if Result then writeln('TryRomanToInt: N = ',N);\r\n\r\nend;\r\n\r\nfunction RomanToInt(const S: string; Strictness: TRomanConversionStrictness = rcsRelaxed): Longint;\r\nbegin\r\n  if not TryRomanToInt(S, Result, Strictness) then\r\n    raise EConvertError.CreateFmt(SInvalidRomanNumeral,[S]);\r\nend;\r\n\r\nfunction RomanToIntDef(const S: String; const ADefault: Longint;\r\n  Strictness: TRomanConversionStrictness): Longint;\r\nbegin\r\n  if not TryRomanToInt(S, Result, Strictness) then\r\n    Result := ADefault;\r\nend;\r\n\r\n\r\n\r\n\r\nfunction intToRoman(Value: Longint): string;\r\n\r\nconst\r\n  Arabics : Array[1..13] of Integer\r\n          = (1,4,5,9,10,40,50,90,100,400,500,900,1000);\r\n  Romans  :  Array[1..13] of String\r\n          = ('I','IV','V','IX','X','XL','L','XC','C','CD','D','CM','M');\r\n\r\nvar\r\n  i: Integer;\r\n\r\nbegin\r\n  Result:='';\r\n  for i:=13 downto 1 do\r\n    while (Value >= Arabics[i]) do\r\n      begin\r\n        Value:=Value-Arabics[i];\r\n        Result:=Result+Romans[i];\r\n      end;\r\nend;\r\n\r\nfunction intToBin(Value: Longint; Digits, Spaces: Integer): string;\r\n\r\nvar endpos : integer;\r\n    p,p2: integer;\r\n    k: integer;\r\n\r\nbegin\r\n  Result:='';\r\n  if (Digits>32) then\r\n    Digits:=32;\r\n  if (spaces=0) then\r\n   begin\r\n     result:=inttobin(value,digits);\r\n     exit;\r\n   end;\r\n  endpos:=digits+ (digits-1) div spaces;\r\n  setlength(result,endpos);\r\n  p:=endpos;\r\n  p2:=1;\r\n  k:=spaces;\r\n  while (p>=p2) do\r\n    begin\r\n      if k=0 then\r\n       begin\r\n         Result[p]:=' ';\r\n         dec(p);\r\n         k:=spaces;\r\n       end;\r\n      Result[P]:=chr(48+(cardinal(value) and 1));\r\n      value:=cardinal(value) shr 1;\r\n      dec(p); \r\n      dec(k);\r\n   end;\r\nend;\r\n\r\nfunction intToBin(Value: Longint; Digits:integer): string;\r\n\r\nvar\r\n    p,p2 : integer;\r\n\r\nbegin\r\n  result:='';\r\n  if digits<=0 then exit;\r\n  setlength(result,digits);\r\n  p:=digits;\r\n  p2:=1;\r\n  // typecasts because we want to keep intto* delphi compat and take an integer\r\n  while (p>=p2) and (cardinal(value)>0) do     \r\n    begin\r\n       Result[p]:=chr(48+(cardinal(value) and 1));\r\n       value:=cardinal(value) shr 1;\r\n       dec(p); \r\n    end;\r\n  digits:=p-p2+1;\r\n  While digits>0 do\r\n    begin\r\n    Result[Digits]:=Chr(48);\r\n    Dec(Digits);\r\n    end;\r\nend;\r\n\r\nfunction IntToBin(Value: NativeInt; Digits:integer): string;\r\nvar\r\n      p,p2 : integer;\r\nbegin\r\n  result:='';\r\n  if digits<=0 then exit;\r\n  setlength(result,digits);\r\n  p:=digits;\r\n  p2:=1;\r\n  // typecasts because we want to keep intto* delphi compat and take a signed val\r\n  // and avoid warnings\r\n  while (p>=p2) and (value>0) do\r\n    begin\r\n       Result[p]:=chr(48+(cardinal(value) and 1));\r\n       value:=value div 2;\r\n       dec(p); \r\n    end;\r\n  digits:=p-p2+1;\r\n  While digits>0 do\r\n    result[digits]:=#48;\r\nend;\r\n\r\n\r\nfunction FindPart(const HelpWilds, inputStr: string): SizeInt;\r\nvar\r\n  Diff, i, J: SizeInt;\r\n\r\nbegin\r\n  Result:=0;\r\n  i:=Pos('?',HelpWilds);\r\n  if (i=0) then\r\n    Result:=Pos(HelpWilds, inputStr)\r\n  else\r\n    begin\r\n    Diff:=Length(inputStr) - Length(HelpWilds);\r\n    for i:=0 to Diff do\r\n      begin\r\n      for J:=1 to Length(HelpWilds) do\r\n        if (inputStr[i + J] = HelpWilds[J]) or (HelpWilds[J] = '?') then\r\n          begin\r\n          if (J=Length(HelpWilds)) then\r\n            begin\r\n            Result:=i+1;\r\n            Exit;\r\n            end;\r\n          end\r\n        else\r\n          Break;\r\n      end;\r\n    end;\r\nend;\r\n\r\nFunction isMatch(level : integer;inputstr,wilds : string; CWild, CinputWord: SizeInt;MaxInputword,maxwilds : SizeInt; Out EOS : Boolean) : Boolean;\r\n\r\nbegin\r\n  EOS:=False;\r\n  Result:=True;\r\n  repeat\r\n    if Wilds[CWild] = '*' then { handling of '*' }\r\n      begin\r\n      inc(CWild);\r\n      while Wilds[CWild] = '?' do { equal to '?' }\r\n        begin\r\n        { goto next letter }\r\n        inc(CWild);\r\n        inc(CinputWord);\r\n        end;\r\n      { increase until a match }\r\n      Repeat\r\n        while (inputStr[CinputWord]<>Wilds[CWild]) and (CinputWord <= MaxinputWord) do\r\n          inc(CinputWord);\r\n        Result:=isMatch(Level+1,inputstr,wilds,CWild, CinputWord,MaxInputword,maxwilds,EOS);\r\n        if not Result then\r\n          Inc(cInputWord);\r\n      Until Result or (CinputWord>=MaxinputWord);\r\n      if Result and EOS then\r\n        Exit;\r\n      Continue;\r\n      end;\r\n    if Wilds[CWild] = '?' then { equal to '?' }\r\n      begin\r\n      { goto next letter }\r\n      inc(CWild);\r\n      inc(CinputWord);\r\n      Continue;\r\n      end;\r\n    if inputStr[CinputWord] = Wilds[CWild] then { equal letters }\r\n      begin\r\n      { goto next letter }\r\n      inc(CWild);\r\n      inc(CinputWord);\r\n      Continue;\r\n      end;\r\n    Result:=false;\r\n    Exit;\r\n  until (CinputWord > MaxinputWord) or (CWild > MaxWilds);\r\n  { no completed evaluation, we need to check what happened }\r\n  if (CinputWord <= MaxinputWord) or (CWild < MaxWilds) then\r\n    Result:=false\r\n  else if (CWild>Maxwilds) then\r\n    EOS:=False\r\n  else\r\n    begin\r\n    EOS:=Wilds[CWild]='*';\r\n    if not EOS then\r\n      Result:=False;\r\n    end\r\nend;\r\n\r\nfunction isWild(inputStr, Wilds: string; ignoreCase: boolean): boolean;\r\n\r\nvar\r\n  i: SizeInt;\r\n  MaxinputWord, MaxWilds: SizeInt; { Length of inputStr and Wilds }\r\n  eos : Boolean;\r\n\r\nbegin\r\n  Result:=true;\r\n  if Wilds = inputStr then\r\n    Exit;\r\n  { delete '**', because '**' = '*' }\r\n  i:=Pos('**', Wilds);\r\n  while i > 0 do\r\n    begin\r\n    Delete(Wilds, i, 1);\r\n    i:=Pos('**', Wilds);\r\n    end;\r\n  if Wilds = '*' then { for fast end, if Wilds only '*' }\r\n    Exit;\r\n  MaxinputWord:=Length(inputStr);\r\n  MaxWilds:=Length(Wilds);\r\n  if (MaxWilds = 0) or (MaxinputWord = 0) then\r\n    begin\r\n    Result:=false;\r\n    Exit;\r\n    end;\r\n  if ignoreCase then { upcase all letters }\r\n    begin\r\n    inputStr:=UpperCase(inputStr);\r\n    Wilds:=UpperCase(Wilds);\r\n    end;\r\n  Result:=isMatch(1,inputStr,wilds,1,1,MaxinputWord, MaxWilds,EOS);\r\nend;\r\n\r\n\r\nfunction XorString(const Key, Src: String): String;\r\nvar\r\n  i: SizeInt;\r\nbegin\r\n  Result:=Src;\r\n  if Length(Key) > 0 then\r\n    for i:=1 to Length(Src) do\r\n      Result[i]:=Chr(Ord(Key[1 + ((i - 1) mod Length(Key))]) xor Ord(Src[i]));\r\nend;\r\n\r\nfunction XorEncode(const Key, Source: string): string;\r\n\r\nvar\r\n  i: Integer;\r\n  C: Byte;\r\n\r\nbegin\r\n  Result:='';\r\n  for i:=1 to Length(Source) do\r\n    begin\r\n    if Length(Key) > 0 then\r\n      C:=Ord(Key[1 + ((i - 1) mod Length(Key))]) xor Ord(Source[i])\r\n    else\r\n      C:=Ord(Source[i]);\r\n    Result:=Result+LowerCase(intToHex(C, 2));\r\n    end;\r\nend;\r\n\r\nfunction XorDecode(const Key, Source: string): string;\r\nvar\r\n  i: Integer;\r\n  C: Char;\r\nbegin\r\n  Result:='';\r\n  for i:=0 to Length(Source) div 2 - 1 do\r\n    begin\r\n    C:=Chr(StrTointDef('$' + Copy(Source, (i * 2) + 1, 2), Ord(' ')));\r\n    if Length(Key) > 0 then\r\n      C:=Chr(Ord(Key[1 + (i mod Length(Key))]) xor Ord(C));\r\n    Result:=Result + C;\r\n    end;\r\nend;\r\n\r\nfunction GetCmdLineArg(const Switch: string; SwitchChars: Array of char): string;\r\nvar\r\n  i: Integer;\r\n  S: string;\r\nbegin\r\n  i:=1;\r\n  Result:='';\r\n  while (Result='') and (i<=ParamCount) do\r\n    begin\r\n    S:=ParamStr(i);\r\n    if (Length(SwitchChars)=0) or (CharInSet(S[1],SwitchChars) and (Length(S) > 1)) and\r\n       (CompareText(Copy(S,2,Length(S)-1),Switch)=0) then\r\n      begin\r\n      inc(i);\r\n      if i<=ParamCount then\r\n        Result:=ParamStr(i);\r\n      end;\r\n    inc(i);\r\n    end;\r\nend;\r\n\r\nFunction RPosEX(C:char;const S : String;offs:cardinal):SizeInt; overload;\r\n\r\nBegin\r\n Result:=TJSString.New(S).lastIndexOf(c,offs-1)+1;\r\nEnd;\r\n\r\nFunction RPos(c:char;const S : String):SizeInt;\r\n\r\nbegin\r\n  Result:=RPosEx(string(C),S,Length(S));\r\nend;\r\n\r\nFunction RPos (Const Substr : String; Const Source : String) : SizeInt; overload;\r\nbegin\r\n  Result:=RPosEx(SubStr,Source,Length(Source));\r\nend;\r\n\r\nFunction RPosex (Const Substr : String; Const Source : String;offs:cardinal) : SizeInt; overload;\r\n\r\nbegin\r\n  Result:=TJSString.New(Source).lastIndexOf(SubStr,offs-1)+1;\r\nend;\r\n\r\nfunction possetex (const c:Array of char;const s : String;count:Integer ):SizeInt;\r\n\r\nvar i,j:SizeInt;\r\n\r\nbegin\r\n  if s='' then\r\n    j:=0\r\n  else\r\n    begin\r\n    i:=length(s);\r\n    j:=count;\r\n    if j>i then\r\n      begin\r\n      result:=0;\r\n      exit;\r\n      end;\r\n    while (j<=i) and (not CharInSet(s[j],c)) do inc(j);\r\n    if (j>i) then\r\n      j:=0;                                         // not found.\r\n    end;\r\n result:=j;\r\nend;\r\n\r\nfunction PosSetEx (const c:string;const s : String;count:Integer ):SizeInt;\r\n\r\nvar\r\n  cset : Array of char;\r\n  i,l    : SizeInt;\r\nbegin\r\n  L:=Length(C);\r\n  SetLength(Cset,L);\r\n  if L>0 then\r\n    for i:=1 to l do\r\n      cset[i-1]:=c[i];\r\n  Result:=PosSetEx(cset,s,count);\r\nend;\r\n\r\nfunction posset (const c:Array of char;const s : String ):SizeInt;\r\n\r\nbegin\r\n  result:=possetex(c,s,1);\r\nend;\r\n\r\nfunction PosSet (const c:string;const s : String ):SizeInt;\r\n\r\nbegin\r\n  Result:=PosSetEx(c,S,1);\r\nend;\r\n\r\n\r\nProcedure Removeleadingchars(Var S : String; Const CSet:Array of char);\r\n\r\nvar\r\n  I,J : Longint;\r\n\r\nbegin\r\n  I:=Length(S);\r\n  if (I>0) then\r\n    begin\r\n    J:=1;\r\n    while (J<=I) and CharInSet(S[J],CSet) DO\r\n      inc(J);\r\n    if J>1 then\r\n      Delete(S,1,J-1);\r\n    end;\r\nend;\r\n\r\n\r\nfunction TrimLeftSet(const S: String;const CSet:Array of char): String;\r\n\r\nbegin\r\n  result:=s;\r\n  removeleadingchars(result,cset); \r\nend;\r\n\r\nProcedure RemoveTrailingChars(VAR S : String;Const CSet:Array of char);\r\n\r\nvar\r\n  i,j : longint;\r\n\r\nbegin\r\n  I:=Length(S);\r\n  if (I>0) then\r\n    begin\r\n    J:=I;\r\n    while (j>0) and CharInSet(S[J],CSet) do\r\n      dec(J);\r\n    if J<>I then\r\n      setLength(S,J);\r\n    End;\r\nEnd;\r\n\r\nFunction TrimRightSet(const S: String;const CSet:Array of char): String;\r\n\r\nbegin\r\n  result:=s;\r\n  RemoveTrailingchars(result,cset); \r\nend;\r\n\r\nProcedure RemovePadChars(VAR S : String;Const CSet:Array of char);\r\n\r\nvar\r\n  I,J,K: longint;\r\n\r\nbegin\r\n  I:=Length(S);\r\n  if I=0 then exit;\r\n  J:=I;\r\n  while (j>0) and CharInset(S[J],CSet) do\r\n    dec(J);\r\n  if j=0 Then\r\n    begin\r\n    s:='';\r\n    exit;\r\n    end;\r\n  SetLength(S,J);\r\n  I:=J;\r\n  k:=1;\r\n  while (k<=I) and CharInSet(S[k],CSet) do\r\n    inc(k);\r\n  if k>1 Then\r\n    Delete(S,1,K-1);\r\nend;\r\n\r\nfunction TrimSet(const S: String;const CSet:Array of char): String;\r\n\r\nbegin\r\n  Result:=s;\r\n  RemovePadChars(Result,cset);\r\nend;\r\n\r\nfunction SplitString(const S, Delimiters: string): TStringDynArray;\r\nbegin\r\n  Result:=S.Split(Delimiters);\r\nend;\r\n\r\nfunction StartsText(const ASubText, AText: string): Boolean;\r\nbegin\r\n  Result := AnsiStartsText(ASubText, AText);\r\nend;\r\n\r\n\r\nfunction EndsText(const ASubText, AText: string): Boolean;\r\nbegin\r\n  Result := AnsiEndsText(ASubText, AText);\r\nend;\r\n\r\nfunction ResemblesText(const AText, AOther: string): Boolean;\r\nbegin\r\n  if Assigned(ResemblesProc) then\r\n    Result := ResemblesProc(AText, AOther)\r\n  else\r\n    Result := False;\r\nend;\r\n\r\nfunction ContainsText(const AText, ASubText: string): Boolean;\r\nbegin\r\n  Result := AnsiContainsText(AText, ASubText);\r\nend;\r\n\r\nfunction MatchText(const AText: string; const AValues: array of string): Boolean;\r\nbegin\r\n  Result := AnsiMatchText(AText, AValues);\r\nend;\r\n\r\nfunction IndexText(const AText: string; const AValues: array of string): Integer;\r\nbegin\r\n  Result := AnsiIndexText(AText, AValues);\r\nend;\r\n\r\nfunction ContainsStr(const AText, ASubText: string): Boolean;\r\nbegin\r\n  Result := AnsiContainsStr(AText, ASubText);\r\nend;\r\n\r\nFunction StartsStr(const ASubText, AText: string): Boolean;\r\n\r\nbegin\r\n  Result := AnsiStartsStr(ASubText, AText);\r\nend;\r\n\r\nFunction EndsStr(const ASubText, AText: string): Boolean;\r\n\r\nbegin\r\n  Result := AnsiEndsStr(ASubText, AText);\r\nend;\r\n\r\n\r\ninitialization\r\n  AnsiResemblesProc:= @SoundexProc;\r\n  ResemblesProc:=@SoundexProc;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            Copyright (c) 2022                                      }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit TimeSpan;\r\n\r\ninterface\r\n\r\ntype\r\n  TTimeSpan = record\r\n  private\r\n    FTicks: Int64;\r\n  strict private\r\n    function GetDays: Integer;\r\n    function GetHours: Integer;\r\n    function GetMinutes: Integer;\r\n    function GetSeconds: Integer;\r\n    function GetMilliseconds: Integer;\r\n    function GetTotalDays: Double;\r\n    function GetTotalHours: Double;\r\n    function GetTotalMinutes: Double;\r\n    function GetTotalSeconds: Double;\r\n    function GetTotalMilliseconds: Double;\r\n    class function GetScaledInterval(const AValue: Double; const AScale: Integer): TTimeSpan; static;\r\n    class constructor Create;\r\n    class function get_MaxValue: TTimeSpan; static;\r\n    class function get_MinValue: TTimeSpan; static;\r\n    class function get_Zero: TTimeSpan; static;\r\n  strict private class var\r\n    FMinValue: Int64;\r\n    FMaxValue: Int64;\r\n    FZero: Int64;\r\n  strict private const\r\n    cIntLengthShift = 52 - 1;\r\n    MillisecondsPerTick = 0.0001;\r\n    SecondsPerTick = 1e-07;\r\n    MinutesPerTick = 1.6666666666666667E-09;\r\n    HoursPerTick = 2.7777777777777777E-11;\r\n    DaysPerTick = 1.1574074074074074E-12;\r\n    MillisPerSecond = 1000;\r\n    MillisPerMinute = 60 * MillisPerSecond;\r\n    MillisPerHour = 60 * MillisPerMinute;\r\n    MillisPerDay = 24 * MillisPerHour;\r\n    MaxSeconds = 922337203685;\r\n    MinSeconds = -922337203685;\r\n    MaxMilliseconds = 922337203685477;\r\n    MinMilliseconds = -922337203685477;\r\n  public const\r\n    TicksPerMillisecond = 10000;\r\n    TicksPerSecond = 1000 * Int64(TicksPerMillisecond);\r\n    TicksPerMinute = 60 * Int64(TicksPerSecond);\r\n    TicksPerHour = 60 * Int64(TicksPerMinute);\r\n    TicksPerDay = 24 * TicksPerHour;\r\n  public\r\n    constructor Create(ATicks: Int64); overload;\r\n    constructor Create(const AHours, AMinutes, ASeconds: Integer); overload;\r\n    constructor Create(const ADays, AHours, AMinutes, ASeconds: Integer); overload;\r\n    constructor Create(const ADays, AHours, AMinutes, ASeconds, AMilliseconds: Integer); overload;\r\n\r\n    function Add(const ATimeSpan: TTimeSpan): TTimeSpan; overload;\r\n    function Duration: TTimeSpan;\r\n    function Negate: TTimeSpan;\r\n    function Subtract(const ATimeSpan: TTimeSpan): TTimeSpan; overload;\r\n    function ToString: string;\r\n\r\n    class function FromDays(const AValue: Double): TTimeSpan; static;\r\n    class function FromHours(const AValue: Double): TTimeSpan; static;\r\n    class function FromMinutes(const AValue: Double): TTimeSpan; static;\r\n    class function FromSeconds(const AValue: Double): TTimeSpan; static;\r\n    class function FromMilliseconds(const AValue: Double): TTimeSpan; static;\r\n    class function FromTicks(const AValue: Int64): TTimeSpan; static;\r\n    class function Subtract(const ADateTimeLeft, ADateTimeRight: TDateTime): TTimeSpan; overload; static;\r\n\r\n    class function Parse(const AValue: string): TTimeSpan; static;\r\n    class function TryParse(const AValue: string; out ATimeSpan: TTimeSpan): Boolean; static;\r\n\r\n    property Ticks: Int64 read FTicks;\r\n    property Days: Integer read GetDays;\r\n    property Hours: Integer read GetHours;\r\n    property Minutes: Integer read GetMinutes;\r\n    property Seconds: Integer read GetSeconds;\r\n    property Milliseconds: Integer read GetMilliseconds;\r\n    property TotalDays: Double read GetTotalDays;\r\n    property TotalHours: Double read GetTotalHours;\r\n    property TotalMinutes: Double read GetTotalMinutes;\r\n    property TotalSeconds: Double read GetTotalSeconds;\r\n    property TotalMilliseconds: Double read GetTotalMilliseconds;\r\n\r\n    class property MinValue: TTimeSpan read get_MinValue;\r\n    class property MaxValue: TTimeSpan read get_MaxValue;\r\n    class property Zero: TTimeSpan read get_Zero;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  SysUtils, Math;\r\n\r\nresourcestring\r\n  SCannotNegateTimespan = 'Negating the minimum value of a Timespan is invalid';\r\n  SInvalidTimespanDuration = 'The duration cannot be returned because the absolute value exceeds the value of TTimeSpan.MaxValue';\r\n  SInvalidTimespanFormat = 'Invalid Timespan format';\r\n  STimespanElementTooLong = 'Timespan element too long';\r\n  STimespanTooLong = 'Timespan too long';\r\n  STimespanValueCannotBeNan = 'Value cannot be NaN';\r\n\r\ntype\r\n  TTimeSpanParser = record\r\n  public type\r\n    TParseError = (peNone, peFormat, peOverflow, peOverflowHMS);\r\n  private\r\n    FStr: string;\r\n    FPos: Integer;\r\n  public\r\n    function CurrentChar: Char; inline;\r\n    function NextChar: Char; inline;\r\n    function NextNonDigit: Char;\r\n    function Convert(const AValue: string): Int64;\r\n    function TryConvert(const AString: string; out AValue: Int64): TParseError;\r\n    function NextInt(AMaxValue: Integer; out AValue: Integer): TParseError;\r\n    function ConvertTime(out ATime: Int64): TParseError;\r\n    procedure SkipWhite;\r\n  end;\r\n\r\n{ TTimeSpanParser }\r\n\r\nfunction TTimeSpanParser.CurrentChar: Char;\r\nbegin\r\n  if (FPos>= Low(string)) and (FPos <= High(FStr)) then\r\n    Result := FStr[FPos]\r\n  else\r\n    Result := #0;\r\nend;\r\n\r\nfunction TTimeSpanParser.NextChar: Char;\r\nbegin\r\n  if FPos <= High(FStr) then\r\n    Inc(FPos);\r\n  Result := CurrentChar;\r\nend;\r\n\r\nfunction TTimeSpanParser.NextNonDigit: Char;\r\nvar\r\n  lCount: Integer;\r\nbegin\r\n  for lCount := FPos to High(FStr) do\r\n  begin\r\n    Result := FStr[lCount];\r\n    if (Result < '0') or (Result > '9') then\r\n      Exit;\r\n  end;\r\n  Result := #0;\r\nend;\r\n\r\nfunction TTimeSpanParser.Convert(const AValue: string): Int64;\r\nbegin\r\n  Result := 0;\r\n  case TryConvert(AValue, Result) of\r\n    peFormat:\r\n      raise Exception.Create(sInvalidTimespanFormat);\r\n    peOverflow:\r\n      raise EIntOverflow.Create(sTimespanTooLong);\r\n    peOverflowHMS:\r\n      raise EIntOverflow.Create(sTimespanElementTooLong);\r\n  end;\r\nend;\r\n\r\nfunction TTimeSpanParser.NextInt(AMaxValue: Integer; out AValue: Integer): TParseError;\r\nvar\r\n  lChar: Char;\r\n  lStartPos: Integer;\r\nbegin\r\n  AValue := 0;\r\n  lStartPos := FPos;\r\n  lChar := CurrentChar;\r\n  while (lChar >= '0') and (lChar <= '9') do\r\n  begin\r\n    if AValue and $F0000000 <> 0 then\r\n      Exit(peOverflow);\r\n    AValue := AValue * 10 + (Ord(lChar) - $30);\r\n    if AValue < 0 then\r\n      Exit(peOverflow);\r\n    lChar := NextChar;\r\n  end;\r\n  if FPos = lStartPos then\r\n    Exit(peFormat);\r\n  if AValue > AMaxValue then\r\n    Exit(peOverflow);\r\n  Result := peNone;\r\nend;\r\n\r\nfunction TTimeSpanParser.ConvertTime(out ATime: Int64): TParseError;\r\nvar\r\n  lChar: Char;\r\n  lPart: Integer;\r\nbegin\r\n  ATime := 0;\r\n  Result := NextInt(23, lPart);\r\n  if Result <> peNone then\r\n  begin\r\n    if Result = peOverflow then\r\n      Result := peOverflowHMS;\r\n    Exit;\r\n  end;\r\n  ATime := lPart * TTimeSpan.TicksPerHour;\r\n  if CurrentChar <> ':' then\r\n    Exit(peFormat);\r\n  NextChar;\r\n  Result := NextInt(59, lPart);\r\n  if Result <> peNone then\r\n  begin\r\n    if Result = peOverflow then\r\n      Result := peOverflowHMS;\r\n    Exit;\r\n  end;\r\n  ATime := ATime + lPart * TTimeSpan.TicksPerMinute;\r\n  if CurrentChar = ':' then\r\n  begin\r\n    if NextChar <> '.' then\r\n    begin\r\n      Result := NextInt(59, lPart);\r\n      if Result <> peNone then\r\n      begin\r\n        if Result = peOverflow then\r\n          Result := peOverflowHMS;\r\n        Exit;\r\n      end;\r\n      ATime := ATime + lPart * TTimeSpan.TicksPerSecond;\r\n    end;\r\n    if CurrentChar = '.' then\r\n    begin\r\n      lChar := NextChar;\r\n      lPart := TTimeSpan.TicksPerSecond;\r\n      while (lPart > 1) and ((lChar >= '0') and (lChar <= '9')) do\r\n      begin\r\n        lPart := lPart div 10;\r\n        ATime := ATime + (Ord(lChar) - $30) * lPart;\r\n        lChar := NextChar;\r\n      end;\r\n    end;\r\n  end;\r\n  Result := peNone;\r\nend;\r\n\r\nprocedure TTimeSpanParser.SkipWhite;\r\nvar\r\n  lChar: Char;\r\nbegin\r\n  lChar := CurrentChar;\r\n  while (lChar= ' ') or (lChar = #9) do\r\n    lChar := NextChar;\r\nend;\r\n\r\nfunction TTimeSpanParser.TryConvert(const AString: string; out AValue: Int64): TParseError;\r\nvar\r\n  lDays: Integer;\r\n  lIsNegative: Boolean;\r\n  lTicks: Int64;\r\n  lTimeVal: Int64;\r\nbegin\r\n  lTicks := 0;\r\n  AValue := 0;\r\n  FStr := AString;\r\n  FPos := Low(string);\r\n  SkipWhite;\r\n  lIsNegative := False;\r\n  if CurrentChar = '-' then\r\n  begin\r\n    lIsNegative := True;\r\n    NextChar;\r\n  end;\r\n  if NextNonDigit = ':' then\r\n  begin\r\n    Result := ConvertTime(lTicks);\r\n    if Result <> peNone then\r\n      Exit;\r\n  end\r\n  else\r\n  begin\r\n    Result := NextInt($a2e3ff, lDays);\r\n    if Result <> peNone then\r\n      Exit;\r\n    lTicks := lDays * TTimeSpan.TicksPerDay;\r\n    if CurrentChar = '.' then\r\n    begin\r\n      NextChar;\r\n      Result := ConvertTime(lTimeVal);\r\n      if Result <> peNone  then\r\n        Exit;\r\n      lTicks := lTicks + lTimeVal;\r\n    end;\r\n  end;\r\n  if lIsNegative then\r\n  begin\r\n    lTicks := -lTicks;\r\n    if lTicks > 0 then\r\n      Exit(peOverflow);\r\n  end\r\n  else if lTicks < 0 then\r\n    Exit(peOverflow);\r\n  SkipWhite;\r\n  if FPos <= High(FStr) then\r\n    Exit(peFormat);\r\n  AValue := lTicks;\r\n  Result := peNone;\r\nend;\r\n\r\n{ TTimeSpan }\r\n\r\nconstructor TTimeSpan.Create(ATicks: Int64);\r\nbegin\r\n  FTicks := ATicks;\r\nend;\r\n\r\nconstructor TTimeSpan.Create(const AHours, AMinutes, ASeconds: Integer);\r\nbegin\r\n  FTicks := Int64(AHours) * SecsPerHour + Int64(AMinutes) * SecsPerMin + ASeconds;\r\n  if (FTicks > MaxSeconds) or (FTicks < MinSeconds) then\r\n    raise EArgumentOutOfRangeException.Create(STimespanTooLong);\r\n  FTicks := FTicks * TicksPerSecond;\r\nend;\r\n\r\nconstructor TTimeSpan.Create(const ADays, AHours, AMinutes, ASeconds: Integer);\r\nbegin\r\n  Create(ADays, AHours, AMinutes, ASeconds, 0);\r\nend;\r\n\r\nconstructor TTimeSpan.Create(const ADays, AHours, AMinutes, ASeconds, AMilliseconds: Integer);\r\nvar\r\n  lTicks: Int64;\r\nbegin\r\n  lTicks := (Int64(ADays) * SecsPerDay + Int64(AHours) * SecsPerHour + Int64(AMinutes) * SecsPerMin + ASeconds) * MillisPerSecond + AMilliseconds;\r\n  if (lTicks > MaxMilliseconds) or (lTicks < MinMilliseconds) then\r\n    raise EArgumentOutOfRangeException.Create(sTimespanTooLong);\r\n  FTicks := lTicks * TicksPerMillisecond;\r\nend;\r\n\r\nfunction TTimeSpan.Add(const ATimeSpan: TTimeSpan): TTimeSpan;\r\nvar\r\n  lNewTicks: Int64;\r\nbegin\r\n  lNewTicks := FTicks + ATimeSpan.FTicks;\r\n  if ((FTicks shr cIntLengthShift) = (ATimeSpan.FTicks shr cIntLengthShift)) and ((FTicks shr cIntLengthShift) <> (lNewTicks shr cIntLengthShift)) then\r\n    raise EArgumentOutOfRangeException.Create(STimespanTooLong);\r\n  Result := TTimeSpan.Create(lNewTicks);\r\nend;\r\n\r\nfunction TTimeSpan.Duration: TTimeSpan;\r\nbegin\r\n  if FTicks = MinValue.FTicks then\r\n    raise EIntOverflow.Create(SInvalidTimespanDuration);\r\n  if FTicks < 0 then\r\n    Result := TTimeSpan.Create(-FTicks)\r\n  else\r\n    Result := TTimeSpan.Create(FTicks);\r\nend;\r\n\r\nclass function TTimeSpan.FromDays(const AValue: Double): TTimeSpan;\r\nbegin\r\n  Result := GetScaledInterval(AValue, MillisPerDay);\r\nend;\r\n\r\nclass function TTimeSpan.FromHours(const AValue: Double): TTimeSpan;\r\nbegin\r\n  Result := GetScaledInterval(AValue, MillisPerHour);\r\nend;\r\n\r\nclass function TTimeSpan.FromMilliseconds(const AValue: Double): TTimeSpan;\r\nbegin\r\n  Result := GetScaledInterval(AValue, 1);\r\nend;\r\n\r\nclass function TTimeSpan.FromMinutes(const AValue: Double): TTimeSpan;\r\nbegin\r\n  Result := GetScaledInterval(AValue, MillisPerMinute);\r\nend;\r\n\r\nclass function TTimeSpan.FromSeconds(const AValue: Double): TTimeSpan;\r\nbegin\r\n  Result := GetScaledInterval(AValue, MillisPerSecond);\r\nend;\r\n\r\nclass function TTimeSpan.FromTicks(const AValue: Int64): TTimeSpan;\r\nbegin\r\n  Result := TTimeSpan.Create(AValue);\r\nend;\r\n\r\nfunction TTimeSpan.GetDays: Integer;\r\nbegin\r\n  Result := Integer(FTicks div TicksPerDay);\r\nend;\r\n\r\nfunction TTimeSpan.GetHours: Integer;\r\nbegin\r\n  Result := Integer((FTicks div TicksPerHour) mod HoursPerDay);\r\nend;\r\n\r\nfunction TTimeSpan.GetMilliseconds: Integer;\r\nbegin\r\n  Result := Integer((FTicks div TicksPerMillisecond) mod MillisPerSecond);\r\nend;\r\n\r\nfunction TTimeSpan.GetMinutes: Integer;\r\nbegin\r\n  Result := Integer((FTicks div TicksPerMinute) mod MinsPerHour);\r\nend;\r\n\r\nfunction TTimeSpan.GetSeconds: Integer;\r\nbegin\r\n  Result := Integer((FTicks div TicksPerSecond) mod SecsPerMin);\r\nend;\r\n\r\nfunction TTimeSpan.GetTotalDays: Double;\r\nbegin\r\n  Result := FTicks * DaysPerTick;\r\nend;\r\n\r\nfunction TTimeSpan.GetTotalHours: Double;\r\nbegin\r\n  Result := FTicks * HoursPerTick;\r\nend;\r\n\r\nfunction TTimeSpan.GetTotalMilliseconds: Double;\r\nbegin\r\n  Result := MillisecondsPerTick;\r\n  Result := FTicks * Result;\r\n  if Result > MaxMilliseconds then\r\n    Result := MaxMilliseconds\r\n  else if Result < MinMilliseconds then\r\n    Result := MinMilliseconds;\r\nend;\r\n\r\nfunction TTimeSpan.GetTotalMinutes: Double;\r\nbegin\r\n  Result := FTicks * MinutesPerTick;\r\nend;\r\n\r\nfunction TTimeSpan.GetTotalSeconds: Double;\r\nbegin\r\n  Result := FTicks * SecondsPerTick;\r\nend;\r\n\r\nclass constructor TTimeSpan.Create;\r\nbegin\r\n  FMinValue := High(Int64);\r\n  FMaxValue := Low(Int64);\r\nend;\r\n\r\nclass function TTimeSpan.GetScaledInterval(const AValue: Double; const AScale: Integer): TTimeSpan;\r\nvar\r\n  lNewValue: Double;\r\nbegin\r\n  if IsNan(AValue) then\r\n    raise EArgumentException.Create(STimespanValueCannotBeNan);\r\n  lNewValue := AValue * AScale;\r\n  if AValue >= 0.0 then\r\n    lNewValue := lNewValue + 0.5\r\n  else\r\n    lNewValue := lNewValue - 0.5;\r\n  if (lNewValue > MaxMilliseconds) or (lNewValue < MinMilliseconds) then\r\n    raise EArgumentOutOfRangeException.Create(STimespanElementTooLong);\r\n  Result := TTimeSpan.Create(Trunc(lNewValue) * TicksPerMillisecond);\r\nend;\r\n\r\nclass function TTimeSpan.get_MaxValue: TTimeSpan;\r\nbegin\r\n  Result.FTicks := FMaxValue;\r\nend;\r\n\r\nclass function TTimeSpan.get_MinValue: TTimeSpan;\r\nbegin\r\n  Result.FTicks := FMinValue;\r\nend;\r\n\r\nclass function TTimeSpan.get_Zero: TTimeSpan;\r\nbegin\r\n  Result.FTicks := FZero;\r\nend;\r\n\r\nfunction TTimeSpan.Negate: TTimeSpan;\r\nbegin\r\n  if FTicks = MinValue.FTicks then\r\n    raise EIntOverflow.Create(SCannotNegateTimespan);\r\n  Result := TTimeSpan.Create(-FTicks);\r\nend;\r\n\r\nclass function TTimeSpan.Parse(const AValue: string): TTimeSpan;\r\nvar\r\n  lParser: TTimeSpanParser;\r\nbegin\r\n  Result := TTimeSpan.Create(lParser.Convert(AValue));\r\nend;\r\n\r\nfunction TTimeSpan.Subtract(const ATimeSpan: TTimeSpan): TTimeSpan;\r\nvar\r\n  lNewTicks: Int64;\r\nbegin\r\n  lNewTicks := FTicks - ATimeSpan.FTicks;\r\n  if ((FTicks shr cIntLengthShift) <> (ATimeSpan.FTicks shr cIntLengthShift)) and ((FTicks shr cIntLengthShift) <> (lNewTicks shr cIntLengthShift)) then\r\n    raise EArgumentOutOfRangeException.Create(sTimespanTooLong);\r\n  Result := TTimeSpan.Create(lNewTicks);\r\nend;\r\n\r\nfunction TTimeSpan.ToString: string;\r\nvar\r\n  lFormat: string;\r\n  lDays: Int64;\r\n  lSecondTicks: Int64;\r\n  lTicks: Int64;\r\nbegin\r\n  lFormat := '%1:.2d:%2:.2d:%3:.2d';\r\n  lDays := FTicks div TicksPerDay;\r\n  lTicks := FTicks mod TicksPerDay;\r\n  if FTicks < 0 then\r\n    lTicks := -lTicks;\r\n  if lDays <> 0 then\r\n    lFormat := '%0:d.' + lFormat;\r\n  lSecondTicks := lTicks mod TicksPerSecond;\r\n  if lSecondTicks <> 0 then\r\n    lFormat := lFormat + '.%4:.7d';\r\n  Result := string.Format(lFormat, [lDays, (lTicks div TicksPerHour) mod HoursPerDay,\r\n    (lTicks div TicksPerMinute) mod MinsPerHour, (lTicks div TicksPerSecond) mod SecsPerMin,\r\n    lSecondTicks]);\r\nend;\r\n\r\nclass function TTimeSpan.TryParse(const AValue: string; out ATimeSpan: TTimeSpan): Boolean;\r\nvar\r\n  lTicks: Int64;\r\n  lParser: TTimeSpanParser;\r\nbegin\r\n  Result := lParser.TryConvert(AValue, lTicks) = TTimeSpanParser.TParseError.peNone;\r\n  if Result then\r\n    ATimeSpan := TTimeSpan.Create(lTicks)\r\n  else\r\n    ATimeSpan := Zero;\r\nend;\r\n\r\nclass function TTimeSpan.Subtract(const ADateTimeLeft, ADateTimeRight: TDateTime): TTimeSpan;\r\nbegin\r\n  Result := TTimeSpan.Create(Trunc(TimeStampToMSecs(DateTimeToTimeStamp(ADateTimeLeft)) - TimeStampToMSecs(DateTimeToTimeStamp(ADateTimeRight))) * TicksPerMillisecond);\r\nend;\r\n\r\nend.\r\n\r\n","unit Generics.Defaults;\r\n\r\n{$MODE DELPHI}\r\n\r\ninterface\r\n\r\n//uses Classes;\r\n\r\ntype\r\n\r\n  { IComparer }\r\n\r\n  IComparer<T> = interface ['{505778ED-F783-4456-9691-32F419CC5E18}']\r\n    function Compare(const Left, Right: T): Integer; overload;\r\n  end;\r\n\r\n  TOnComparison<T> = reference to function(const Left, Right: T): Integer;\r\n\r\n  { TComparer }\r\n\r\n  TComparer<T> = class(TInterfacedObject, IComparer<T>)\r\n  private\r\n    type TMyComparer = TComparer<T>;\r\n    class var DefaultComparer: TMyComparer;\r\n  public\r\n    class function Default: IComparer<T>; static;\r\n    function Compare(const ALeft, ARight: T): Integer; virtual; abstract; overload;\r\n\r\n    class function Construct(const AComparison: TOnComparison<T>): IComparer<T>; overload;\r\n  end;\r\n\r\n  { TDefaultComparer }\r\n\r\n  TDefaultComparer<T> = class(TComparer<T>)\r\n  public\r\n    function Compare(const ALeft, ARight: T): Integer; override; overload;\r\n  end;\r\n\r\n  { TDelegatedComparerEvents }\r\n\r\n  TDelegatedComparerEvents<T> = class(TComparer<T>)\r\n  private\r\n    FComparison: TOnComparison<T>;\r\n  public\r\n    function Compare(const ALeft, ARight: T): Integer; override;\r\n    constructor Create(AComparison: TOnComparison<T>);\r\n  end;\r\n\r\n  IEnumerator<T> = interface\r\n    function GetCurrent: T;\r\n    function MoveNext: Boolean;\r\n    procedure Reset;\r\n    property Current: T read GetCurrent;\r\n  end;\r\n\r\n  IEnumerable<T> = interface\r\n    function GetEnumerator: IEnumerator<T>;\r\n  end;\r\n\r\nimplementation\r\n\r\n{ TComparer }\r\n\r\nclass function TComparer<T>.Default: IComparer<T>;\r\nbegin\r\n  if DefaultComparer=nil then\r\n    DefaultComparer:=TDefaultComparer<T>.Create;\r\n  Result:=DefaultComparer;\r\nend;\r\n\r\nclass function TComparer<T>.Construct(const AComparison: TOnComparison<T>\r\n  ): IComparer<T>;\r\nbegin\r\n   Result := TDelegatedComparerEvents<T>.Create(AComparison);\r\nend;\r\n\r\n{ TDefaultComparer }\r\n\r\nfunction TDefaultComparer<T>.Compare(const ALeft, ARight: T): Integer;\r\nbegin\r\n  asm\r\n    if (ALeft < ARight) return -1;\r\n    if (ALeft > ARight) return 1;\r\n  end;\r\n  Result:=0;\r\n  if ALeft = ARight then exit;\r\nend;\r\n\r\n{ TDelegatedComparerEvents }\r\n\r\nfunction TDelegatedComparerEvents<T>.Compare(const ALeft, ARight: T\r\n  ): Integer;\r\nbegin\r\n  Result := FComparison(ALeft, ARight);\r\nend;\r\n\r\nconstructor TDelegatedComparerEvents<T>.Create(AComparison: TOnComparison<T>);\r\nbegin\r\n  Inherited create;\r\n  FComparison := AComparison;\r\nend;\r\n\r\n\r\nend.\r\n\r\n","unit XData.Model.Types;\r\n\r\n{$I XData.inc}\r\n\r\ninterface\r\n\r\nuses\r\n  Generics.Collections,\r\n  SysUtils, Bcl.SysUtils,\r\n  Bcl.Collections.Common,\r\n  XData.Model.Classes;\r\n\r\ntype\r\n  TXDataPrimitiveType = class(TXDataScalarType)\r\n  public\r\n    destructor Destroy; override;\r\n  end;\r\n\r\n  TXDataBinaryType = class(TXDataPrimitiveType)\r\n  strict protected\r\n    function GetName: string; override;\r\n    function GetTypeKind: TXTypeKind; override;\r\n  public\r\n    function ValueToLiteral(Value: TBytes; var Literal: string): boolean;\r\n    function LiteralToValue(const Literal: string; var Value: TBytes): boolean;\r\n  end;\r\n\r\n  TXDataBooleanType = class(TXDataPrimitiveType)\r\n  strict protected\r\n    function GetName: string; override;\r\n    function GetTypeKind: TXTypeKind; override;\r\n  public\r\n    function ValueToLiteral(Value: Boolean; var Literal: string): boolean;\r\n    function LiteralToValue(const Literal: string; var Value: boolean): boolean;\r\n  end;\r\n\r\n  TXDataByteType = class(TXDataPrimitiveType)\r\n  strict protected\r\n    function GetName: string; override;\r\n    function GetTypeKind: TXTypeKind; override;\r\n  public\r\n    function ValueToLiteral(Value: byte; var Literal: string): boolean;\r\n    function LiteralToValue(const Literal: string; var Value: byte): boolean;\r\n  end;\r\n\r\n  TXDataDateTimeType = class(TXDataPrimitiveType)\r\n  strict protected\r\n    function GetName: string; override;\r\n    function GetTypeKind: TXTypeKind; override;\r\n  public\r\n    function ValueToLiteral(Value: TDateTime; var Literal: string): boolean;\r\n    function LiteralToValue(const Literal: string; var Value: TDateTime): boolean;\r\n  end;\r\n\r\n  TXDataDateType = class(TXDataPrimitiveType)\r\n  strict protected\r\n    function GetName: string; override;\r\n    function GetTypeKind: TXTypeKind; override;\r\n  public\r\n    function ValueToLiteral(Value: TDate; var Literal: string): boolean;\r\n    function LiteralToValue(const Literal: string; var Value: TDate): boolean;\r\n  end;\r\n\r\n  TXDataCurrencyType = class(TXDataPrimitiveType)\r\n  strict protected\r\n    function GetName: string; override;\r\n    function GetTypeKind: TXTypeKind; override;\r\n  {$IFNDEF PAS2JS}\r\n  strict private\r\n    FFormatSettings: TFormatSettings;\r\n  public\r\n    procedure AfterConstruction; override;\r\n    function ValueToLiteral(Value: Currency; var Literal: string): boolean;\r\n    function LiteralToValue(const Literal: string; var Value: Currency): boolean;\r\n  {$ENDIF}\r\n  end;\r\n\r\n  TXDataDoubleType = class(TXDataPrimitiveType)\r\n  strict protected\r\n    function GetName: string; override;\r\n    function GetTypeKind: TXTypeKind; override;\r\n  public\r\n    function ValueToLiteral(Value: Double; var Literal: string): boolean;\r\n    function LiteralToValue(const Literal: string; var Value: double): boolean;\r\n  end;\r\n\r\n  TXDataGuidType = class(TXDataPrimitiveType)\r\n  strict protected\r\n    function GetName: string; override;\r\n    function GetTypeKind: TXTypeKind; override;\r\n  public\r\n    {$IFDEF PAS2JS}\r\n    function ValueToLiteral(Value: string; var Literal: string): boolean;\r\n    function LiteralToValue(const Literal: string; var Value: string): boolean;\r\n    {$ELSE}\r\n    function ValueToLiteral(Value: TGuid; var Literal: string): boolean;\r\n    function LiteralToValue(const Literal: string; var Value: TGuid): boolean;\r\n    {$ENDIF}\r\n  end;\r\n\r\n  TXDataVariantType = class(TXDataPrimitiveType)\r\n  strict protected\r\n    function GetName: string; override;\r\n    function GetTypeKind: TXTypeKind; override;\r\n  public\r\n  {$IFNDEF PAS2JS}\r\n    function ValueToLiteral(Value: Variant; var Literal: string): boolean;\r\n    function LiteralToValue(const Literal: string; var Value: Variant): boolean;\r\n  {$ELSE}\r\n    function ValueToLiteral(Value: JSValue; var Literal: string): boolean;\r\n    function LiteralToValue(const Literal: string; var Value: JSValue): boolean;\r\n  {$ENDIF}\r\n  end;\r\n\r\n  TXDataInt16Type = class(TXDataPrimitiveType)\r\n  strict protected\r\n    function GetName: string; override;\r\n    function GetTypeKind: TXTypeKind; override;\r\n  public\r\n    function ValueToLiteral(Value: Integer; var Literal: string): boolean;\r\n    function LiteralToValue(const Literal: string; var Value: Integer): boolean;\r\n  end;\r\n\r\n  TXDataInt32Type = class(TXDataPrimitiveType)\r\n  strict protected\r\n    function GetName: string; override;\r\n    function GetTypeKind: TXTypeKind; override;\r\n  public\r\n    function ValueToLiteral(const Value: Integer; var Literal: string): boolean;\r\n    function LiteralToValue(const Literal: string; var Value: integer): boolean;\r\n  end;\r\n\r\n  TXDataInt64Type = class(TXDataPrimitiveType)\r\n  strict protected\r\n    function GetName: string; override;\r\n    function GetTypeKind: TXTypeKind; override;\r\n  public\r\n    {$IFDEF PAS2JS}\r\n    function ValueToLiteral(const Value: Integer; var Literal: string): boolean;\r\n    function LiteralToValue(const Literal: string; var Value: integer): boolean;\r\n    {$ELSE}\r\n    function ValueToLiteral(Value: Int64; var Literal: string): boolean;\r\n    function LiteralToValue(const Literal: string; var Value: Int64): boolean;\r\n    {$ENDIF}\r\n  end;\r\n\r\n  TXDataSByteType = class(TXDataPrimitiveType)\r\n  strict protected\r\n    function GetName: string; override;\r\n    function GetTypeKind: TXTypeKind; override;\r\n  public\r\n    function ValueToLiteral(Value: ShortInt; var Literal: string): boolean;\r\n    function LiteralToValue(const Literal: string; var Value: ShortInt): boolean;\r\n  end;\r\n\r\n  TXDataStringType = class(TXDataPrimitiveType)\r\n  strict protected\r\n    function GetName: string; override;\r\n    function GetTypeKind: TXTypeKind; override;\r\n  public\r\n    function ValueToLiteral(const Value: string; var Literal: string): boolean;\r\n    function LiteralToValue(const Literal: string; var Value: string): boolean;\r\n  end;\r\n\r\n  TXDataTimeType = class(TXDataPrimitiveType)\r\n  strict protected\r\n    function GetName: string; override;\r\n    function GetTypeKind: TXTypeKind; override;\r\n  public\r\n    function ValueToLiteral(Value: TTime; var Literal: string): boolean;\r\n    function LiteralToValue(const Literal: string; var Value: TTime): boolean;\r\n  end;\r\n\r\n  TXDataStreamType = class(TXDataPrimitiveType)\r\n  strict protected\r\n    function GetName: string; override;\r\n    function GetTypeKind: TXTypeKind; override;\r\n  end;\r\n\r\n  TXDataRawType = class(TXDataPrimitiveType)\r\n  strict protected\r\n    function GetName: string; override;\r\n    function GetTypeKind: TXTypeKind; override;\r\n  end;\r\n\r\n  TXDataTypeMap = TStringMap;\r\n\r\n  TXDataPrimitiveTypes = class\r\n  strict private\r\n    class var\r\n      FInstance: TXDataPrimitiveTypes;\r\n  strict private\r\n    FTypes: TXDataTypeMap;\r\n    FTypeList: TList<TXDataPrimitiveType>;\r\n    FBinaryType: TXDataBinaryType;\r\n    FBooleanType: TXDataBooleanType;\r\n    FByteType: TXDataByteType;\r\n    FDateTimeType: TXDataDateTimeType;\r\n    FDateType: TXDataDateType;\r\n    FDoubleType: TXDataDoubleType;\r\n    FInt16Type: TXDataInt16Type;\r\n    FInt32Type: TXDataInt32Type;\r\n    FInt64Type: TXDataInt64Type;\r\n    FSByteType: TXDataSByteType;\r\n    FStringType: TXDataStringType;\r\n    FTimeType: TXDataTimeType;\r\n    FStreamType: TXDataStreamType;\r\n    FRawType: TXDataRawType;\r\n    FGuidType: TXDataGuidType;\r\n    FCurrencyType: TXDataCurrencyType;\r\n    FVariantType: TXDataVariantType;\r\n    procedure PrivateCreate;\r\n    procedure PrivateDestroy;\r\n    procedure AddType(const Key: string; Value: TXDataPrimitiveType);\r\n    function GetTypes: TList<TXDataPrimitiveType>;\r\n  public\r\n    class function Instance: TXDataPrimitiveTypes;\r\n    class procedure ClassDestroy;\r\n    function Find(const AName: string): TXDataPrimitiveType; overload;\r\n    destructor Destroy; override;\r\n    property Types: TList<TXDataPrimitiveType> read GetTypes;\r\n    property BinaryType: TXDataBinaryType read FBinaryType;\r\n    property BooleanType: TXDataBooleanType read FBooleanType;\r\n    property ByteType: TXDataByteType read FByteType;\r\n    property DateTimeType: TXDataDateTimeType read FDateTimeType;\r\n    property DateType: TXDataDateType read FDateType;\r\n    property DoubleType: TXDataDoubleType read FDoubleType;\r\n    property Int16Type: TXDataInt16Type read FInt16Type;\r\n    property Int32Type: TXDataInt32Type read FInt32Type;\r\n    property Int64Type: TXDataInt64Type read FInt64Type;\r\n    property SByteType: TXDataSByteType read FSByteType;\r\n    property StringType: TXDataStringType read FStringType;\r\n    property TimeType: TXDataTimeType read FTimeType;\r\n    property StreamType: TXDataStreamType read FStreamType;\r\n    property RawType: TXDataRawType read FRawType;\r\n    property GuidType: TXDataGuidType read FGuidType;\r\n    property CurrencyType: TXDataCurrencyType read FCurrencyType;\r\n    property VariantType: TXDataVariantType read FVariantType;\r\n  end;\r\n\r\n// helper methods for some base types. Should refactor this to a better place later\r\nfunction LiteralQuote(const Str: string): string;\r\nfunction LiteralUnquote(var Str: string): boolean;\r\n\r\nimplementation\r\n\r\nuses\r\n  {$IFDEF PAS2JS}\r\n  JS,\r\n  {$ELSE}\r\n  System.Variants,\r\n  {$ENDIF}\r\n  Bcl.Utils;\r\n\r\nfunction LiteralUnquote(var Str: string): boolean;\r\nvar\r\n  Len: integer;\r\nbegin\r\n  Result := True;\r\n  Len := Length(Str);\r\n  if (Len >= 2) and (Str[1] = '''') and (Str[Len] = '''') then\r\n  begin\r\n    Str := Copy(Str, 2, Len - 2);\r\n    Str := StringReplace(Str, '''''', '''', [rfReplaceAll]);\r\n  end;\r\nend;\r\n\r\nfunction LiteralQuote(const Str: string): string;\r\nbegin\r\n  Result := StringReplace(Str, '''', '''''', [rfReplaceAll]);\r\n  Result := '''' + Result + '''';\r\nend;\r\n\r\n{ TXDataPrimitiveTypes }\r\n\r\nprocedure TXDataPrimitiveTypes.AddType(const Key: string;\r\n  Value: TXDataPrimitiveType);\r\nbegin\r\n  FTypes.Add(Key, Value);\r\n  FTypeList.Add(Value);\r\nend;\r\n\r\ndestructor TXDataPrimitiveTypes.Destroy;\r\nbegin\r\n  PrivateDestroy;\r\n  inherited;\r\nend;\r\n\r\nclass procedure TXDataPrimitiveTypes.ClassDestroy;\r\nbegin\r\n  if FInstance <> nil then\r\n  begin\r\n    FInstance.Free;\r\n    FInstance := nil;\r\n  end;\r\nend;\r\n\r\nfunction TXDataPrimitiveTypes.Find(const AName: string): TXDataPrimitiveType;\r\nbegin\r\n  if FTypes.ContainsKey(Lowercase(AName)) then\r\n    Result := TXDataPrimitiveType(FTypes[Lowercase(AName)])\r\n  else\r\n    Result := nil;\r\nend;\r\n\r\nfunction TXDataPrimitiveTypes.GetTypes: TList<TXDataPrimitiveType>;\r\nbegin\r\n  Result := FTypeList;\r\nend;\r\n\r\nclass function TXDataPrimitiveTypes.Instance: TXDataPrimitiveTypes;\r\nbegin\r\n  if FInstance = nil then\r\n  begin\r\n    FInstance := TXDataPrimitiveTypes.Create;\r\n    FInstance.PrivateCreate;\r\n  end;\r\n  Result := FInstance;\r\nend;\r\n\r\nprocedure TXDataPrimitiveTypes.PrivateCreate;\r\nbegin\r\n  FTypes := TXDataTypeMap.Create(False);\r\n  FTypeList := TList<TXDataPrimitiveType>.Create;\r\n\r\n  FBinaryType := TXDataBinaryType.Create;\r\n  FBooleanType := TXDataBooleanType.Create;\r\n  FByteType := TXDataByteType.Create;\r\n  FDateTimeType := TXDataDateTimeType.Create;\r\n  FDateType := TXDataDateType.Create;\r\n  FDoubleType := TXDataDoubleType.Create;\r\n  FInt16Type := TXDataInt16Type.Create;\r\n  FInt32Type := TXDataInt32Type.Create;\r\n  FInt64Type := TXDataInt64Type.Create;\r\n  FSByteType := TXDataSByteType.Create;\r\n  FStringType := TXDataStringType.Create;\r\n  FTimeType := TXDataTimeType.Create;\r\n  FStreamType := TXDataStreamType.Create;\r\n  FRawType := TXDataRawType.Create;\r\n  FGuidType := TXDataGuidType.Create;\r\n  FCurrencyType := TXDataCurrencyType.Create;\r\n  FVariantType := TXDataVariantType.Create;\r\n\r\n  AddType(Lowercase(FBinaryType.Name), FBinaryType);\r\n  AddType(Lowercase(FBooleanType.Name), FBooleanType);\r\n  AddType(Lowercase(FByteType.Name), FByteType);\r\n  AddType(Lowercase(FDateTimeType.Name), FDateTimeType);\r\n  AddType(Lowercase(FDateType.Name), FDateType);\r\n  AddType(Lowercase(FDoubleType.Name), FDoubleType);\r\n  AddType(Lowercase(FInt16Type.Name), FInt16Type);\r\n  AddType(Lowercase(FInt32Type.Name), FInt32Type);\r\n  AddType(Lowercase(FInt64Type.Name), FInt64Type);\r\n  AddType(Lowercase(FSByteType.Name), FSByteType);\r\n  AddType(Lowercase(FStringType.Name), FStringType);\r\n  AddType(Lowercase(FTimeType.Name), FTimeType);\r\n  AddType(Lowercase(FStreamType.Name), FStreamType);\r\n  AddType(Lowercase(FRawType.Name), FRawType);\r\n  AddType(Lowercase(FGuidType.Name), FGuidType);\r\n  AddType(Lowercase(FCurrencyType.Name), FCurrencyType);\r\n  AddType(Lowercase(FVariantType.Name), FVariantType);\r\nend;\r\n\r\nprocedure TXDataPrimitiveTypes.PrivateDestroy;\r\nbegin\r\n  FTypeList.Free;\r\n  FTypes.Free;\r\n  FVariantType.Free;\r\n  FCurrencyType.Free;\r\n  FGuidType.Free;\r\n  FBinaryType.Free;\r\n  FBooleanType.Free;\r\n  FByteType.Free;\r\n  FDateTimeType.Free;\r\n  FDateType.Free;\r\n  FDoubleType.Free;\r\n  FInt16Type.Free;\r\n  FInt32Type.Free;\r\n  FInt64Type.Free;\r\n  FSByteType.Free;\r\n  FStringType.Free;\r\n  FTimeType.Free;\r\n  FStreamType.Free;\r\n  FRawType.Free;\r\nend;\r\n\r\n{ TXDataStreamType }\r\n\r\nfunction TXDataStreamType.GetName: string;\r\nbegin\r\n  Result := 'Stream';\r\nend;\r\n\r\nfunction TXDataStreamType.GetTypeKind: TXTypeKind;\r\nbegin\r\n  Result := TXTypeKind.xtStream;\r\nend;\r\n\r\n{ TXDataBinaryType }\r\n\r\nfunction TXDataBinaryType.GetName: string;\r\nbegin\r\n  Result := 'Binary';\r\nend;\r\n\r\nfunction TXDataBinaryType.GetTypeKind: TXTypeKind;\r\nbegin\r\n  Result := TXTypeKind.xtBinary;\r\nend;\r\n\r\nfunction TXDataBinaryType.LiteralToValue(const Literal: string;\r\n  var Value: TBytes): boolean;\r\nbegin\r\n  Value := TBclUtils.DecodeBase64(Literal);\r\n  Result := true;\r\nend;\r\n\r\nfunction TXDataBinaryType.ValueToLiteral(Value: TBytes;\r\n  var Literal: string): boolean;\r\nbegin\r\n  Literal := TBclUtils.EncodeBase64(Value);\r\n  Result := true;\r\nend;\r\n\r\n{ TXDataBooleanType }\r\n\r\nfunction TXDataBooleanType.GetName: string;\r\nbegin\r\n  Result := 'Boolean';\r\nend;\r\n\r\nfunction TXDataBooleanType.GetTypeKind: TXTypeKind;\r\nbegin\r\n  Result := TXTypeKind.xtBoolean;\r\nend;\r\n\r\nfunction TXDataBooleanType.LiteralToValue(const Literal: string;\r\n  var Value: boolean): boolean;\r\nbegin\r\n  if SameText(Literal, 'true') then\r\n  begin\r\n    Value := true;\r\n    Result := true;\r\n  end\r\n  else\r\n  if SameText(Literal, 'false') then\r\n  begin\r\n    Value := false;\r\n    Result := true;\r\n  end\r\n  else\r\n    Result := false;\r\nend;\r\n\r\nfunction TXDataBooleanType.ValueToLiteral(Value: Boolean; var Literal: string): boolean;\r\nbegin\r\n  if Value then\r\n    Literal := 'true'\r\n  else\r\n    Literal := 'false';\r\n  Result := true;\r\nend;\r\n\r\n{ TXDataByteType }\r\n\r\nfunction TXDataByteType.GetName: string;\r\nbegin\r\n  Result := 'Byte';\r\nend;\r\n\r\nfunction TXDataByteType.GetTypeKind: TXTypeKind;\r\nbegin\r\n  Result := TXTypeKind.xtByte;\r\nend;\r\n\r\nfunction TXDataByteType.LiteralToValue(const Literal: string; var Value: byte): boolean;\r\nvar\r\n  V: integer;\r\nbegin\r\n  Result := TryStrToInt(Literal, V);\r\n  Value := byte(V);\r\nend;\r\n\r\nfunction TXDataByteType.ValueToLiteral(Value: byte; var Literal: string): boolean;\r\nbegin\r\n  Literal := IntToStr(Value);\r\n  Result := True;\r\nend;\r\n\r\n{ TXDataDateTimeType }\r\n\r\nfunction TXDataDateTimeType.GetName: string;\r\nbegin\r\n  Result := 'DateTime'; // DateTimeOffset\r\nend;\r\n\r\nfunction TXDataDateTimeType.GetTypeKind: TXTypeKind;\r\nbegin\r\n  Result := TXTypeKind.xtDateTime;\r\nend;\r\n\r\nfunction TXDataDateTimeType.LiteralToValue(const Literal: string;\r\n  var Value: TDateTime): boolean;\r\nbegin\r\n  Result := TBclUtils.TryISOToDateTime(Literal, Value);\r\nend;\r\n\r\nfunction TXDataDateTimeType.ValueToLiteral(Value: TDateTime;\r\n  var Literal: string): boolean;\r\nbegin\r\n  Result := true;\r\n  Literal := TBclUtils.DateTimeToISO(Value, false);\r\nend;\r\n\r\n{ TXDataCurrencyType }\r\n\r\n{$IFNDEF PAS2JS}\r\nprocedure TXDataCurrencyType.AfterConstruction;\r\nbegin\r\n  inherited;\r\n  TBclUtils.InitFormatSettings(FFormatSettings);\r\n  FFormatSettings.DecimalSeparator := '.';\r\n  FFormatSettings.ThousandSeparator := #0;\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TXDataCurrencyType.GetName: string;\r\nbegin\r\n  Result := 'Currency';\r\nend;\r\n\r\nfunction TXDataCurrencyType.GetTypeKind: TXTypeKind;\r\nbegin\r\n  Result := TXTypeKind.xtCurrency;\r\nend;\r\n\r\n{$IFNDEF PAS2JS}\r\nfunction TXDataCurrencyType.LiteralToValue(const Literal: string; var Value: Currency): boolean;\r\nbegin\r\n  Result := TryStrToCurr(Literal, Value, FFormatSettings);\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFNDEF PAS2JS}\r\nfunction TXDataCurrencyType.ValueToLiteral(Value: Currency; var Literal: string): boolean;\r\nbegin\r\n  Literal := CurrToStr(Value, FFormatSettings);\r\n  Result := true;\r\nend;\r\n{$ENDIF}\r\n\r\n{ TXDataDoubleType }\r\n\r\nfunction TXDataDoubleType.GetName: string;\r\nbegin\r\n  Result := 'Double';\r\nend;\r\n\r\nfunction TXDataDoubleType.GetTypeKind: TXTypeKind;\r\nbegin\r\n  Result := TXTypeKind.xtDouble;\r\nend;\r\n\r\nfunction TXDataDoubleType.LiteralToValue(const Literal: string;\r\n  var Value: double): boolean;\r\nbegin\r\n  Result := TryStrToNumber(Literal, Value);\r\nend;\r\n\r\nfunction TXDataDoubleType.ValueToLiteral(Value: Double;\r\n  var Literal: string): boolean;\r\nbegin\r\n  Literal := NumberToStr(Value);\r\n  Result := true;\r\nend;\r\n\r\n{ TXDataGuidType }\r\n\r\nfunction TXDataGuidType.GetName: string;\r\nbegin\r\n  Result := 'Guid';\r\nend;\r\n\r\nfunction TXDataGuidType.GetTypeKind: TXTypeKind;\r\nbegin\r\n  Result := TXTypeKind.xtGuid;\r\nend;\r\n\r\n{$IFDEF PAS2JS}\r\nfunction TXDataGuidType.LiteralToValue(const Literal: string;\r\n  var Value: string): boolean;\r\nbegin\r\n  Result := True;\r\n  case Length(Literal) of\r\n    36: Value := Literal;\r\n    38: Value := Copy(Literal, 2, 36);\r\n  else\r\n    Result := False;\r\n  end;\r\nend;\r\n\r\nfunction TXDataGuidType.ValueToLiteral(Value: string;\r\n  var Literal: string): boolean;\r\nbegin\r\n  Result := True;\r\n  case Length(Value) of\r\n    36: Literal := Value;\r\n    38: Literal := Copy(Value, 2, 36);\r\n  else\r\n    Result := False;\r\n  end;\r\nend;\r\n{$ELSE}\r\nfunction TXDataGuidType.LiteralToValue(const Literal: string;\r\n  var Value: TGuid): boolean;\r\nbegin\r\n  Result := TBclUtils.TryStringToGuid(Literal, Value);\r\nend;\r\n\r\nfunction TXDataGuidType.ValueToLiteral(Value: TGuid;\r\n  var Literal: string): boolean;\r\nbegin\r\n  Literal := Copy(GuidToString(Value), 2, 36);\r\n  Result := true;\r\nend;\r\n{$ENDIF}\r\n\r\n{ TXDataInt16Type }\r\n\r\nfunction TXDataInt16Type.GetName: string;\r\nbegin\r\n  Result := 'Int16';\r\nend;\r\n\r\nfunction TXDataInt16Type.GetTypeKind: TXTypeKind;\r\nbegin\r\n  Result := TXTypeKind.xtInt16;\r\nend;\r\n\r\nfunction TXDataInt16Type.LiteralToValue(const Literal: string;\r\n  var Value: integer): boolean;\r\nbegin\r\n  Result := TryStrToInt(Literal, Value);\r\nend;\r\n\r\nfunction TXDataInt16Type.ValueToLiteral(Value: Integer;\r\n  var Literal: string): boolean;\r\nbegin\r\n  Literal := IntToStr(Value);\r\n  Result := True;\r\nend;\r\n\r\n{ TXDataInt32Type }\r\n\r\nfunction TXDataInt32Type.GetName: string;\r\nbegin\r\n  Result := 'Int32';\r\nend;\r\n\r\nfunction TXDataInt32Type.GetTypeKind: TXTypeKind;\r\nbegin\r\n  Result := TXTypeKind.xtInt32;\r\nend;\r\n\r\nfunction TXDataInt32Type.LiteralToValue(const Literal: string;\r\n  var Value: integer): boolean;\r\nbegin\r\n  Result := TryStrToInt(Literal, Value);\r\nend;\r\n\r\nfunction TXDataInt32Type.ValueToLiteral(const Value: Integer;\r\n  var Literal: string): boolean;\r\nbegin\r\n  Literal := IntToStr(Value);\r\n  Result := True;\r\nend;\r\n\r\n{ TXDataInt64Type }\r\n\r\nfunction TXDataInt64Type.GetName: string;\r\nbegin\r\n  Result := 'Int64';\r\nend;\r\n\r\nfunction TXDataInt64Type.GetTypeKind: TXTypeKind;\r\nbegin\r\n  Result := TXTypeKind.xtInt64;\r\nend;\r\n\r\n{$IFDEF PAS2JS}\r\nfunction TXDataInt64Type.LiteralToValue(const Literal: string;\r\n  var Value: Integer): boolean;\r\nbegin\r\n  Result := TryStrToInt(Literal, Value);\r\nend;\r\n\r\nfunction TXDataInt64Type.ValueToLiteral(const Value: Integer;\r\n  var Literal: string): boolean;\r\nbegin\r\n  Literal := IntToStr(Value);\r\n  Result := True;\r\nend;\r\n{$ELSE}\r\nfunction TXDataInt64Type.LiteralToValue(const Literal: string;\r\n  var Value: Int64): boolean;\r\nbegin\r\n  Result := TryStrToInt64(Literal, Value);\r\nend;\r\n\r\nfunction TXDataInt64Type.ValueToLiteral(Value: Int64;\r\n  var Literal: string): boolean;\r\nbegin\r\n  Literal := IntToStr(Value);\r\n  Result := True;\r\nend;\r\n{$ENDIF}\r\n\r\n{ TXDataSByteType }\r\n\r\nfunction TXDataSByteType.GetName: string;\r\nbegin\r\n  Result := 'SByte';\r\nend;\r\n\r\nfunction TXDataSByteType.GetTypeKind: TXTypeKind;\r\nbegin\r\n  Result := TXTypeKind.xtSByte;\r\nend;\r\n\r\nfunction TXDataSByteType.LiteralToValue(const Literal: string; var Value: ShortInt): boolean;\r\nvar\r\n  V: integer;\r\nbegin\r\n  Result := TryStrToInt(Literal, V);\r\n  Value := ShortInt(V);\r\nend;\r\n\r\nfunction TXDataSByteType.ValueToLiteral(Value: ShortInt; var Literal: string): boolean;\r\nbegin\r\n  Literal := IntToStr(Value);\r\n  Result := True;\r\nend;\r\n\r\n{ TXDataStringType }\r\n\r\nfunction TXDataStringType.GetName: string;\r\nbegin\r\n  Result := 'String';\r\nend;\r\n\r\nfunction TXDataStringType.GetTypeKind: TXTypeKind;\r\nbegin\r\n  Result := TXTypeKind.xtText;\r\nend;\r\n\r\nfunction TXDataStringType.LiteralToValue(const Literal: string;\r\n  var Value: string): boolean;\r\nbegin\r\n  Value := Literal;\r\n  Result := true;\r\nend;\r\n\r\nfunction TXDataStringType.ValueToLiteral(const Value: string;\r\n  var Literal: string): boolean;\r\nbegin\r\n  // strictly we should convert it to UTF-8. Let's keep it this way as a trade-off for speed\r\n  Literal := Value;\r\n  Result := true;\r\nend;\r\n\r\n{ TXDataTimeType }\r\n\r\nfunction TXDataTimeType.GetName: string;\r\nbegin\r\n  Result := 'Time';\r\nend;\r\n\r\nfunction TXDataTimeType.GetTypeKind: TXTypeKind;\r\nbegin\r\n  Result := TXTypeKind.xtTime;\r\nend;\r\n\r\nfunction TXDataTimeType.LiteralToValue(const Literal: string;\r\n  var Value: TTime): boolean;\r\nbegin\r\n  Result := TBclUtils.TryISOToTime(Literal, Value);\r\nend;\r\n\r\nfunction TXDataTimeType.ValueToLiteral(Value: TTime;\r\n  var Literal: string): boolean;\r\nbegin\r\n  Result := true;\r\n  Literal := TBclUtils.TimeToISO(Value);\r\nend;\r\n\r\n{ TXDataDateType }\r\n\r\nfunction TXDataDateType.GetName: string;\r\nbegin\r\n  Result := 'Date';\r\nend;\r\n\r\nfunction TXDataDateType.GetTypeKind: TXTypeKind;\r\nbegin\r\n  Result := TXTypeKind.xtDate;\r\nend;\r\n\r\nfunction TXDataDateType.LiteralToValue(const Literal: string; var Value: TDate): boolean;\r\nbegin\r\n  Result := TBclUtils.TryISOToDate(Literal, Value);\r\nend;\r\n\r\nfunction TXDataDateType.ValueToLiteral(Value: TDate; var Literal: string): boolean;\r\nbegin\r\n  Result := true;\r\n  Literal := TBclUtils.DateToISO(Value);\r\nend;\r\n\r\n{ TXDataVariantType }\r\n\r\nfunction TXDataVariantType.GetName: string;\r\nbegin\r\n  Result := 'Variant';\r\nend;\r\n\r\nfunction TXDataVariantType.GetTypeKind: TXTypeKind;\r\nbegin\r\n  Result := TXTypeKind.xtVariant;\r\nend;\r\n\r\n{$IFDEF PAS2JS}\r\nfunction TXDataVariantType.LiteralToValue(const Literal: string;\r\n  var Value: JSValue): boolean;\r\nvar\r\n  T: TXDataPrimitiveTypes;\r\n  BoolValue: Boolean;\r\n  Int32Value: Integer;\r\n  Int64Value: Integer;\r\n  DoubleValue: Double;\r\n  StringValue: string;\r\nbegin\r\n  T := TXDataPrimitiveTypes.Instance;\r\n  Result := True;\r\n  if Literal = 'null' then\r\n    Value := nil\r\n  else\r\n  if T.BooleanType.LiteralToValue(Literal, BoolValue) then\r\n    Value := BoolValue\r\n  else\r\n  if T.Int32Type.LiteralToValue(Literal, Int32Value) then\r\n    Value := Int32Value\r\n  else\r\n  if T.Int64Type.LiteralToValue(Literal, Int64Value) then\r\n    Value := Int64Value\r\n  else\r\n  if T.DoubleType.LiteralToValue(Literal, DoubleValue) then\r\n    Value := DoubleValue\r\n  else\r\n  if T.StringType.LiteralToValue(Literal, StringValue) and LiteralUnquote(StringValue) then\r\n    Value := StringValue\r\n  else\r\n    Result := False;\r\nend;\r\n\r\nfunction TXDataVariantType.ValueToLiteral(Value: JSValue;\r\n  var Literal: string): boolean;\r\nvar\r\n  T: TXDataPrimitiveTypes;\r\nbegin\r\n  T := TXDataPrimitiveTypes.Instance;\r\n  Result := True;\r\n  case GetValueType(Value) of\r\n    jvtNull:\r\n      Literal := 'null';\r\n    jvtBoolean:\r\n      Result := T.BooleanType.ValueToLiteral(Boolean(Value), Literal);\r\n    jvtInteger:\r\n      Result := T.Int32Type.ValueToLiteral(NativeInt(Value), Literal);\r\n    jvtFloat:\r\n      Result := T.DoubleType.ValueToLiteral(Double(Value), Literal);\r\n    jvtString:\r\n      begin\r\n        Result := T.StringType.ValueToLiteral(string(Value), Literal);\r\n        Literal := LiteralQuote(Literal);\r\n      end;\r\n  else\r\n    Result := False;\r\n  end;\r\nend;\r\n{$ELSE}\r\nfunction TXDataVariantType.LiteralToValue(const Literal: string;\r\n  var Value: Variant): boolean;\r\nvar\r\n  T: TXDataPrimitiveTypes;\r\n  BoolValue: Boolean;\r\n  Int32Value: Integer;\r\n  Int64Value: Int64;\r\n  DoubleValue: Double;\r\n  GuidValue: TGuid;\r\n  StringValue: string;\r\nbegin\r\n  T := TXDataPrimitiveTypes.Instance;\r\n  Result := True;\r\n  if Literal = 'null' then\r\n    Value := NULL\r\n  else\r\n  if T.BooleanType.LiteralToValue(Literal, BoolValue) then\r\n    Value := BoolValue\r\n  else\r\n  if T.Int32Type.LiteralToValue(Literal, Int32Value) then\r\n    Value := Int32Value\r\n  else\r\n  if T.Int64Type.LiteralToValue(Literal, Int64Value) then\r\n    Value := Int64Value\r\n  else\r\n  if T.DoubleType.LiteralToValue(Literal, DoubleValue) then\r\n    Value := DoubleValue\r\n  else\r\n  if T.GuidType.LiteralToValue(Literal, GuidValue) then\r\n    Value := GuidToString(GuidValue)\r\n  else\r\n  if T.StringType.LiteralToValue(Literal, StringValue) and LiteralUnquote(StringValue) then\r\n    Value := StringValue\r\n  else\r\n    Result := False;\r\nend;\r\n\r\nfunction TXDataVariantType.ValueToLiteral(Value: Variant;\r\n  var Literal: string): boolean;\r\nvar\r\n  VarData: TVarData;\r\n  T: TXDataPrimitiveTypes;\r\nbegin\r\n  T := TXDataPrimitiveTypes.Instance;\r\n  VarData := TVarData(Value);\r\n  Result := True;\r\n  case VarType(Value) of\r\n    varEmpty, varNull:\r\n      Literal := 'null';\r\n    varBoolean:\r\n      Result := T.BooleanType.ValueToLiteral(VarData.VBoolean, Literal);\r\n    varShortInt:\r\n      Result := T.Int32Type.ValueToLiteral(VarData.VShortInt, Literal);\r\n    varSmallint:\r\n      Result := T.Int32Type.ValueToLiteral(VarData.VSmallInt, Literal);\r\n    varInteger:\r\n      Result := T.Int32Type.ValueToLiteral(VarData.VInteger, Literal);\r\n    varSingle:\r\n      Result := T.DoubleType.ValueToLiteral(VarData.VSingle, Literal);\r\n    varDouble:\r\n      Result := T.DoubleType.ValueToLiteral(VarData.VDouble, Literal);\r\n    varCurrency:\r\n      Result := T.CurrencyType.ValueToLiteral(VarData.VCurrency, Literal);\r\n//    varDate:\r\n//      Result := T.DaType.ValueToLiteral(VarData.VCurrency, Literal);\r\n//      Writer.WriteDouble(VarData.VDate);\r\n    varOleStr:\r\n      begin\r\n        Result := T.StringType.ValueToLiteral(VarData.VOleStr, Literal);\r\n        Literal := LiteralQuote(Literal);\r\n      end;\r\n    varError:\r\n      Result := T.Int32Type.ValueToLiteral(VarData.VError, Literal);\r\n    varByte:\r\n      Result := T.Int32Type.ValueToLiteral(VarData.VByte, Literal);\r\n    varWord:\r\n      Result := T.Int32Type.ValueToLiteral(VarData.VWord, Literal);\r\n    varLongWord:\r\n      Result := T.Int32Type.ValueToLiteral(VarData.VLongWord, Literal);\r\n    varInt64:\r\n      Result := T.Int64Type.ValueToLiteral(VarData.VInt64, Literal);\r\n    varUInt64:\r\n      Result := T.Int64Type.ValueToLiteral(VarData.VUInt64, Literal);\r\n    varString:\r\n      begin\r\n        {$IFNDEF NEXTGEN}\r\n        Result := T.StringType.ValueToLiteral(string(AnsiString(VarData.VString)), Literal);\r\n        {$ELSE}\r\n        Result := T.StringType.ValueToLiteral(string(VarData.VString), Literal);\r\n        {$ENDIF}\r\n        Literal := LiteralQuote(Literal);\r\n      end;\r\n    varUString:\r\n      begin\r\n        Result := T.StringType.ValueToLiteral(UnicodeString(VarData.VUString), Literal);\r\n        Literal := LiteralQuote(Literal);\r\n      end\r\n  else\r\n    Result := False;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\n{ TXDataRawType }\r\n\r\nfunction TXDataRawType.GetName: string;\r\nbegin\r\n  Result := 'Raw';\r\nend;\r\n\r\nfunction TXDataRawType.GetTypeKind: TXTypeKind;\r\nbegin\r\n  Result := TXTypeKind.xtRaw;\r\nend;\r\n\r\n{ TXDataPrimitiveType }\r\n\r\ndestructor TXDataPrimitiveType.Destroy;\r\nbegin\r\n{$IFNDEF PAS2JS}\r\n  UrlConverter.Free;\r\n{$ENDIF}\r\n  inherited;\r\nend;\r\n\r\n{$IFNDEF PAS2JS}\r\ninitialization\r\nfinalization\r\n  TXDataPrimitiveTypes.ClassDestroy;\r\n{$ENDIF}\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2017 - 2021                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCPersistence;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF CMNLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  {$IFDEF MSWINDOWS}\r\n  Windows,\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  fgl,\r\n  {$IFNDEF MSWINDOWS}\r\n  LCLIntF,\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFNDEF LCLLIB}\r\n  Generics.Collections,\r\n  {$ENDIF}\r\n  Classes, TypInfo, Variants, SysUtils,\r\n  WEBLib.TMSFNCTypes,\r\n  WEBLib.TMSFNCJSONReader,\r\n  WEBLib.TMSFNCJSONWriter\r\n  {$IFDEF FNCLIB}\r\n  {$IFDEF WEBLIB}\r\n  ,WEBLib.JSON\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  ,JSON\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  ,JSON\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fpjson\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  ITMSFNCPersistence = interface\r\n  ['{363F04AF-B8A7-4C47-A2D6-8ED9C44CEFF6}']\r\n    procedure SaveSettingsToFile(AFileName: string; AAppearanceOnly: Boolean = False);\r\n    procedure LoadSettingsFromFile(AFileName: string);\r\n    procedure SaveSettingsToStream(AStream: TStream; AAppearanceOnly: Boolean = False);\r\n    procedure LoadSettingsFromStream(AStream: TStream);\r\n    function CanSaveProperty(AObject: TObject; APropertyName: string; APropertyType: TTypeKind): Boolean;\r\n    function CanLoadProperty(AObject: TObject; APropertyName: string; APropertyType: TTypeKind): Boolean;\r\n  end;\r\n\r\n  ITMSFNCCustomReadWriteIO = interface\r\n  ['{3BC2E91F-A937-47EE-A4CB-6F705B154901}']\r\n    procedure CustomWriteProperty(AObject: TObject; APropertyName: string; APropertyKind: TTypeKind; AWriter: TTMSFNCJSONWriter; var ACanWrite: Boolean);\r\n    procedure CustomReadProperty(AObject: TObject; APropertyName: string; APropertyKind: TTypeKind; AReader: TTMSFNCJSONReader; var ACanRead: Boolean);\r\n  end;\r\n\r\n  ITMSFNCBaseListIO = interface\r\n  ['{FAB1D21E-D798-4CE0-B17B-9D75E4456AB4}']\r\n    function GetItemClass: TClass;\r\n  end;\r\n\r\n  ITMSFNCBasePersistenceIO = interface\r\n    ['{91DEAFC3-8932-45F4-A3ED-5AAA0C0E9250}']\r\n    function CreateObject(const AClassName: string; const ABaseClass: TClass): TObject;\r\n  end;\r\n\r\n  ITMSFNCBaseCollectionIO = interface\r\n  ['{90FDF257-7362-411D-B7F6-E2BEE2265016}']\r\n    function AddItem(const AObject: TObject): TCollectionItem;\r\n  end;\r\n\r\n  ITMSFNCPersistenceIO = interface(ITMSFNCBasePersistenceIO)\r\n  ['{11B625F8-447A-4AE5-BB88-5ECDEA979AF7}']\r\n    function NeedsObjectReference(const AClass: TClass): Boolean;\r\n    function GetObjectReference(const AObject: TObject): string;\r\n    function FindObject(const AReference: string): TObject;\r\n    procedure FixOwners(const AObject: TObject; const AObjectList: TObject);\r\n  end;\r\n\r\n  ETMSFNCReaderException = class(Exception)\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCPropertyInfo = TTypeMemberProperty;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCPropertyInfo = PPropInfo;\r\n  {$ENDIF}\r\n\r\n  TTMSFNCStringObjectDictionary = class(TDictionary<string, TObject>);\r\n  TTMSFNCIntegerObjectDictionary = class(TDictionary<Integer, TObject>);\r\n  TTMSFNCIntegerIntegerDictionary = class(TDictionary<Integer, Integer>);\r\n  TTMSFNCIntegerBooleanDictionary = class(TDictionary<Integer, Boolean>);\r\n  TTMSFNCIntegerDoubleDictionary = class(TDictionary<Integer, Double>);\r\n  TTMSFNCObjectList = class(TObjectList<TObject>);\r\n  TTMSFNCStringList = class(TList<string>);\r\n  TTMSFNCIntegerList = class(TList<Integer>);\r\n  TTMSFNCDoubleList = class(TList<Double>);\r\n\r\n  TTMSFNCObjectArray = array of TObject;\r\n\r\n  TTMSFNCWriterCustomWritePropertyEvent = procedure(AObject: TObject; APropertyName: string; APropertyKind: TTypeKind; AWriter: TTMSFNCJSONWriter; var ACanWrite: Boolean) of object;\r\n  TTMSFNCWriterCustomIsAssignablePropertyEvent = procedure(AObject: TObject; APropertyName: string; var AIsAssignable: Boolean) of object;\r\n\r\n  TTMSFNCExcludePropertyListArray = array of string;\r\n\r\n  TTMSFNCWriter = class\r\n  private\r\n    FWriter: TTMSFNCJSONWriter;\r\n    FWriterRef: Boolean;\r\n    FIOReference: TObject;\r\n    FOnCustomWriteProperty: TTMSFNCWriterCustomWritePropertyEvent;\r\n    FRootObject: TObject;\r\n    FExcludeProperties: TTMSFNCExcludePropertyListArray;\r\n    FOnCustomIsAssignableProperty: TTMSFNCWriterCustomIsAssignablePropertyEvent;\r\n    procedure SetRootObject(const Value: TObject);\r\n    procedure SetExcludeProperties(\r\n      const Value: TTMSFNCExcludePropertyListArray);\r\n    procedure SetIOReference(const Value: TObject);\r\n    property Writer: TTMSFNCJSONWriter read FWriter;\r\n    procedure WritePropInfoValue(AInstance: TObject; const APropInfo: TTMSFNCPropertyInfo);\r\n    procedure WriteProperties(AObject: TObject);\r\n    procedure WriteProperty(AObject: TObject; AProp: TTMSFNCPropertyInfo);\r\n    procedure WriteGenericObjectList(AList: TTMSFNCObjectList);\r\n    procedure WriteGenericStringList(AList: TTMSFNCStringList);\r\n    procedure WriteGenericIntegerList(AList: TTMSFNCIntegerList);\r\n    procedure WriteGenericDoubleList(AList: TTMSFNCDoubleList);\r\n    procedure WriteStrings(AList: TStrings);\r\n    procedure WriteGenericStringObjectDictionary(ADictionary: TTMSFNCStringObjectDictionary);\r\n    procedure WriteGenericIntegerObjectDictionary(ADictionary: TTMSFNCIntegerObjectDictionary);\r\n    procedure WriteGenericIntegerIntegerDictionary(ADictionary: TTMSFNCIntegerIntegerDictionary);\r\n    procedure WriteGenericIntegerBooleanDictionary(ADictionary: TTMSFNCIntegerBooleanDictionary);\r\n    procedure WriteGenericIntegerDoubleDictionary(ADictionary: TTMSFNCIntegerDoubleDictionary);\r\n    procedure WriteCollection(ACollection: TCollection);\r\n    procedure WriteList(AList: TList);\r\n    procedure WriteBitmap(ABitmap: TTMSFNCBitmap);\r\n    procedure WriteSingleObject(AObject: TObject);\r\n    procedure WriteObject(AObject: TObject);\r\n  public\r\n    constructor Create(AStream: TStream); overload;\r\n    constructor Create(AWriter: TTMSFNCJSONWriter); overload;\r\n    destructor Destroy; override;\r\n    procedure Write(AObject: TObject);\r\n    procedure WriteArray(AName: string; AArray: TTMSFNCObjectArray);\r\n    property JSONWriter: TTMSFNCJSONWriter read FWriter;\r\n    property IOReference: TObject read FIOReference write SetIOReference;\r\n    property RootObject: TObject read FRootObject write SetRootObject;\r\n    property ExcludeProperties: TTMSFNCExcludePropertyListArray read FExcludeProperties write SetExcludeProperties;\r\n    property OnCustomWriteProperty: TTMSFNCWriterCustomWritePropertyEvent read FOnCustomWriteProperty write FOnCustomWriteProperty;\r\n    property OnCustomIsAssignableProperty: TTMSFNCWriterCustomIsAssignablePropertyEvent read FOnCustomIsAssignableProperty write FOnCustomIsAssignableProperty;\r\n  end;\r\n\r\n  TTMSFNCReaderCustomReadPropertyEvent = procedure(AObject: TObject; APropertyName: string; APropertyKind: TTypeKind; AReader: TTMSFNCJSONReader; var ACanRead: Boolean) of object;\r\n\r\n  TTMSFNCObjectReference = class\r\n  public\r\n    Instance: TObject;\r\n    Prop: TTMSFNCPropertyInfo;\r\n    Id: string;\r\n    constructor Create(AInstance: TObject; AProp: TTMSFNCPropertyInfo; const AId: string);\r\n  end;\r\n\r\n  TTMSFNCObjectReferences = TObjectList<TTMSFNCObjectReference>;\r\n\r\n  TTMSFNCReader = class\r\n  private\r\n    FReaderRef: Boolean;\r\n    FReferences: TTMSFNCObjectReferences;\r\n    FReader: TTMSFNCJSONReader;\r\n    FIOReference: TObject;\r\n    FOnCustomReadProperty: TTMSFNCReaderCustomReadPropertyEvent;\r\n    FRootObject: TObject;\r\n    FExcludeProperties: TTMSFNCExcludePropertyListArray;\r\n    FOnCustomIsAssignableProperty: TTMSFNCWriterCustomIsAssignablePropertyEvent;\r\n    function ReadSingleObject(ABaseClass: TClass): TObject; overload;\r\n    procedure SetRootObject(const Value: TObject);\r\n    procedure SetExcludeProperties(\r\n      const Value: TTMSFNCExcludePropertyListArray);\r\n    procedure SetIOReference(const Value: TObject);\r\n    property Reader: TTMSFNCJSONReader read FReader;\r\n    procedure ReadSingleObject(AObject: TObject); overload;\r\n    procedure ReadProperties(AObject: TObject);\r\n    procedure ReadProperty(AObject: TObject; AProp: TTMSFNCPropertyInfo);\r\n    procedure ReadPropInfoValue(AInstance: TObject; const APropInfo: TTMSFNCPropertyInfo);\r\n    procedure ReadExistingObject(AObject: TObject);\r\n    procedure ReadGenericStringList(AList: TTMSFNCStringList);\r\n    procedure ReadGenericDoubleList(AList: TTMSFNCDoubleList);\r\n    procedure ReadGenericIntegerList(AList: TTMSFNCIntegerList);\r\n    procedure ReadStrings(AList: TStrings);\r\n    procedure ReadGenericObjectList(AList: TTMSFNCObjectList);\r\n    procedure ReadGenericStringObjectDictionary(ADictionary: TTMSFNCStringObjectDictionary);\r\n    procedure ReadGenericIntegerObjectDictionary(ADictionary: TTMSFNCIntegerObjectDictionary);\r\n    procedure ReadGenericIntegerIntegerDictionary(ADictionary: TTMSFNCIntegerIntegerDictionary);\r\n    procedure ReadGenericIntegerBooleanDictionary(ADictionary: TTMSFNCIntegerBooleanDictionary);\r\n    procedure ReadGenericIntegerDoubleDictionary(ADictionary: TTMSFNCIntegerDoubleDictionary);\r\n    procedure ReadCollection(ACollection: TCollection);\r\n    procedure ReadList(AList: TList);\r\n    procedure ReadBitmap(ABitmap: TTMSFNCBitmap);\r\n    procedure ReadObject(AObject: TObject);\r\n  public\r\n    constructor Create(AStream: TStream); overload;\r\n    constructor Create(AReader: TTMSFNCJSONReader); overload;\r\n    destructor Destroy; override;\r\n    function Read(AClass: TClass): TObject; overload;\r\n    procedure Read(AObject: TObject); overload;\r\n    function ReadArray(AName: string): TTMSFNCObjectArray; overload;\r\n    property JSONReader: TTMSFNCJSONReader read FReader;\r\n    property IOReference: TObject read FIOReference write SetIOReference;\r\n    property RootObject: TObject read FRootObject write SetRootObject;\r\n    property ExcludeProperties: TTMSFNCExcludePropertyListArray read FExcludeProperties write SetExcludeProperties;\r\n    property OnCustomReadProperty: TTMSFNCReaderCustomReadPropertyEvent read FOnCustomReadProperty write FOnCustomReadProperty;\r\n    property OnCustomIsAssignableProperty: TTMSFNCWriterCustomIsAssignablePropertyEvent read FOnCustomIsAssignableProperty write FOnCustomIsAssignableProperty;\r\n    procedure SolveReferences;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  PTypeInfo = TypInfo.TTypeInfo;\r\n  {$ELSE}\r\n  PTypeInfo = TypInfo.PTypeInfo;\r\n  {$ENDIF}\r\n\r\n  TTMSFNCObjectPersistence = class\r\n  public\r\n    class function SaveObjectToString(AObject: TObject): string;\r\n    class procedure LoadObjectFromString(AObject: TObject; AString: string);\r\n  end;\r\n\r\n  TTMSFNCPersistence = class\r\n  public class var\r\n    ClassTypeVariable: string;\r\n    IgnoreExceptions: Boolean;\r\n  private\r\n    class var FOnCustomReadProperty: TTMSFNCReaderCustomReadPropertyEvent;\r\n    class var FOnCustomWriteProperty: TTMSFNCWriterCustomWritePropertyEvent;\r\n    class var FRootObject: TObject;\r\n    class var FExcludeProperties: TTMSFNCExcludePropertyListArray;\r\n    class var FIOReference: TObject;\r\n    class procedure DoCustomReadProperty(AObject: TObject; APropertyName: string; APropertyKind: TTypeKind; AReader: TTMSFNCJSONReader; var ACanRead: Boolean);\r\n    class procedure DoCustomWriteProperty(AObject: TObject; APropertyName: string; APropertyKind: TTypeKind; AWriter: TTMSFNCJSONWriter; var ACanWrite: Boolean);\r\n  public\r\n    class procedure SaveSettingsToFile(AObject: TObject; AFileName: string);\r\n    class procedure LoadSettingsFromFile(AObject: TObject; AFileName: string);\r\n    class procedure SaveSettingsToStream(AObject: TObject; AStream: TStream);\r\n    class procedure LoadSettingsFromStream(AObject: TObject; AStream: TStream);\r\n    class procedure GetEnumValues(AValues: TStrings; APropInfo: TTMSFNCPropertyInfo);\r\n    class function CreateObject(const AClassName: string; BaseClass: TClass): TObject;\r\n    class function GetPropInfoDataTypeInfo(APropInfo: TTMSFNCPropertyInfo): PTypeInfo;\r\n    class function GetPropInfoDataTypeInfoClassType(APropInfo: TTMSFNCPropertyInfo): TClass;\r\n    class function GetPropInfoType(APropInfo: TTMSFNCPropertyInfo): TTypeKind; virtual;\r\n    class function GetPropInfoName(APropInfo: TTMSFNCPropertyInfo): string; virtual;\r\n    class function GetPropInfoTypeName(APropInfo: TTMSFNCPropertyInfo): string;\r\n    class function GetEnumName(ATypeInfo: PTypeInfo; AValue: Integer): string;\r\n    class function IsWriteOnly(APropInfo: TTMSFNCPropertyInfo): Boolean; virtual;\r\n    class function IsReadOnly(APropInfo: TTMSFNCPropertyInfo): Boolean; virtual;\r\n    class function IsAssignableProperty(AObject: TObject; APropInfo: TTMSFNCPropertyInfo): Boolean; virtual;\r\n    class function IsColor(APropertyName: string): Boolean; virtual;\r\n    class function IsStrokeKind(APropertyName: string): Boolean; virtual;\r\n    class function IsFillKind(APropertyName: string): Boolean; virtual;\r\n    class function IsDate(APropertyName: string): Boolean; virtual;\r\n    class function IsDateTime(APropertyName: string): Boolean; virtual;\r\n    class function IsTime(APropertyName: string): Boolean; virtual;\r\n    class function GetGenericListType(AClass: TClass): TClass; virtual;\r\n    class function GetGenericDictionaryValueType(AClass: TClass): TClass; virtual;\r\n    class function IsGenericDictionaryValueTypeObject(AClass: TClass): Boolean; virtual;\r\n    class function IsGenericDictionaryValueTypeInteger(AClass: TClass): Boolean; virtual;\r\n    class function IsGenericDictionaryValueTypeBoolean(AClass: TClass): Boolean; virtual;\r\n    class function IsGenericDictionaryValueTypeDouble(AClass: TClass): Boolean; virtual;\r\n    class function IsGenericList(AClass: TClass; AType: string = ''): Boolean; virtual;\r\n    class function IsGenericDictionary(AClass: TClass): Boolean; virtual;\r\n    class function IsGenericStringDictionary(AClass: TClass): Boolean; virtual;\r\n    class function IsGenericIntegerDictionary(AClass: TClass): Boolean; virtual;\r\n    class function IsCollection(AClass: TClass): Boolean; virtual;\r\n    class function IsComponent(AClass: TClass): Boolean; virtual;\r\n    class function IsControl(AClass: TClass): Boolean; virtual;\r\n    class function IsList(AClass: TClass): Boolean; virtual;\r\n    class function IsDescendingClass(AClass: TClass; AClassParentList: array of string): Boolean; virtual;\r\n    class function IsBitmap(AClass: TClass): Boolean; virtual;\r\n    class function IsStrings(AClass: TClass): Boolean; virtual;\r\n    class property OnCustomWriteProperty: TTMSFNCWriterCustomWritePropertyEvent read FOnCustomWriteProperty write FOnCustomWriteProperty;\r\n    class property OnCustomReadProperty: TTMSFNCReaderCustomReadPropertyEvent read FOnCustomReadProperty write FOnCustomReadProperty;\r\n    class property RootObject: TObject read FRootObject write FRootObject;\r\n    class property ExcludeProperties: TTMSFNCExcludePropertyListArray read FExcludeProperties write FExcludeProperties;\r\n    class property IOReference: TObject read FIOReference write FIOReference;\r\n  end;\r\n\r\n  {$IFDEF FNCLIB}\r\n  TTMSFNCJSONToClassPropertyType = (cptUndefined, cptString, cptBoolean, cptDateTime, cptObject, cptDouble, cptInteger,\r\n    cptInteger64, cptObjectArray, cptStringArray, cptBooleanArray, cptDateTimeArray, cptDoubleArray, cptIntegerArray, cptInteger64Array);\r\n\r\n  TTMSFNCJSONToClassBaseClass = (cbcNone, cbcPersistent);\r\n\r\n  TTMSFNCJSONToClassOptions = record\r\n    SortProperties: Boolean;\r\n    DelphiCasing: Boolean;\r\n    RemoveSpecialCharacters: Boolean;\r\n    AddConstructor: Boolean;\r\n    AddDestructor: Boolean;\r\n    AddAssign: Boolean;\r\n    AddUnit: Boolean;\r\n    BaseClass: TTMSFNCJSONToClassBaseClass;\r\n    AddImplementation: Boolean;\r\n  end;\r\n\r\n  TTMSFNCJSONToClassExportEvent = {$IFNDEF LCLLIB}reference to {$ENDIF}procedure(var APropertyName: string; var APropertyType: TTMSFNCJSONToClassPropertyType){$IFDEF LCLLIB} of object{$ENDIF};\r\n\r\n  TTMSFNCJSONToClassProperty = class\r\n  private\r\n    FName: string;\r\n    FType: TTMSFNCJSONToClassPropertyType;\r\n    function FixKeyWord(AValue: string): string;\r\n  public\r\n    function IsObject: Boolean;\r\n    function DelphiName(ACallBack: TTMSFNCJSONToClassExportEvent; AOptions: TTMSFNCJSONToClassOptions; AFixKeyWord: Boolean = True): string;\r\n    function DelphiType(ACallBack: TTMSFNCJSONToClassExportEvent; AOptions: TTMSFNCJSONToClassOptions): string;\r\n    constructor Create(AName: string; AType: TTMSFNCJSONToClassPropertyType);\r\n    property Name: string read FName write FName;\r\n    property &Type: TTMSFNCJSONToClassPropertyType read FType write FType;\r\n  end;\r\n\r\n  TTMSFNCJSONToClassProperties = class(TObjectList<TTMSFNCJSONToClassProperty>);\r\n\r\n  TTMSFNCJSONToClassItem = class\r\n  private\r\n    FProperties: TTMSFNCJSONToClassProperties;\r\n    FParentProperty: TTMSFNCJSONToClassProperty;\r\n    function GetProperties: TTMSFNCJSONToClassProperties;\r\n  public\r\n    function GetClassName(ACallBack: TTMSFNCJSONToClassExportEvent; AOptions: TTMSFNCJSONToClassOptions): string;\r\n    constructor Create(AParentProperty: TTMSFNCJSONToClassProperty);\r\n    destructor Destroy; override;\r\n    property Properties: TTMSFNCJSONToClassProperties read GetProperties;\r\n    property ParentProperty: TTMSFNCJSONToClassProperty read FParentProperty;\r\n  end;\r\n\r\n  TTMSFNCJSONToClassItems = class(TObjectList<TTMSFNCJSONToClassItem>);\r\n\r\n  TTMSFNCJSONToClass = class\r\n  private\r\n    class var FClasses: TTMSFNCJSONToClassItems;\r\n  protected\r\n    class procedure JSONValueToClass(AParentProperty: TTMSFNCJSONToClassProperty; AJSONValue: TJSONValue);\r\n    class function JSONValueToPropertyType(AJSONValue: TJSONValue): TTMSFNCJSONToClassPropertyType;\r\n  public\r\n    class function ExportToDelphi(AJSONString: string; AOptions: TTMSFNCJSONToClassOptions; ACallBack: TTMSFNCJSONToClassExportEvent = nil): string; overload;\r\n    class function ExportToDelphi(AJSONString: string; ACallBack: TTMSFNCJSONToClassExportEvent = nil): string; overload;\r\n    class function ExportToDelphi(AJSONValue: TJSONValue; AOptions: TTMSFNCJSONToClassOptions; ACallBack: TTMSFNCJSONToClassExportEvent = nil): string; overload;\r\n    class function ExportToDelphi(AJSONValue: TJSONValue; ACallBack: TTMSFNCJSONToClassExportEvent = nil): string; overload;\r\n    class function ExportToDelphiFromFile(AFileName: string; ACallBack: TTMSFNCJSONToClassExportEvent = nil): string; overload;\r\n    class function ExportToDelphiFromFile(AFileName: string; AOptions: TTMSFNCJSONToClassOptions; ACallBack: TTMSFNCJSONToClassExportEvent = nil): string; overload;\r\n  end;\r\n  {$ENDIF}\r\n\r\nvar\r\n  ExcludePropertyList: array[0..52] of string = (\r\n     'Align',\r\n     'AllowFocus',\r\n     'Anchors',\r\n     'BevelEdges',\r\n     'BevelInner',\r\n     'BevelKind',\r\n     'BevelOuter',\r\n     'BevelWidth',\r\n     'BiDiMode',\r\n     'BitmapContainer',\r\n     'BorderSpacing',\r\n     'CanParentFocus',\r\n     'ClipChildren',\r\n     'ClipParent',\r\n     'Constraints',\r\n     'Ctl3D',\r\n     'DisableFocusEffect',\r\n     'DoubleBuffered',\r\n     'DragCursor',\r\n     'DragKind',\r\n     'DragMode',\r\n     'Enabled',\r\n     'EnableDragHighLight',\r\n     'Height',\r\n     'Hint',\r\n     'HitTest',\r\n     'Locked',\r\n     'Margins',\r\n     'Name',\r\n     'Opacity',\r\n     'Padding',\r\n     'ParentBiDiMode',\r\n     'ParentColor',\r\n     'ParentCtl3D',\r\n     'ParentDoubleBuffered',\r\n     'ParentFont',\r\n     'ParentShowHint',\r\n     'PopupMenu',\r\n     'Position',\r\n     'RotationAngle',\r\n     'RotationCenter',\r\n     'Scale',\r\n     'ShowHint',\r\n     'Size',\r\n     'StyleElements',\r\n     'StyleName',\r\n     'TabOrder',\r\n     'TabStop',\r\n     'Tag',\r\n     'Touch',\r\n     'TouchTargetExpansion',\r\n     'Visible',\r\n     'Width');\r\n\r\n{$IFDEF FNCLIB}\r\nfunction DefaultJSONToClassOptions: TTMSFNCJSONToClassOptions;\r\n{$ENDIF}\r\n\r\nimplementation\r\n\r\nuses\r\n  {$IFNDEF LCLLIB}\r\n  Rtti,\r\n  {$ENDIf}\r\n  {$IFDEF FMXLIB}\r\n  UITypes,\r\n  {$ENDIF}\r\n  DateUtils,\r\n  StrUtils,\r\n  WEBLib.Controls,\r\n  WEBLib.Graphics,\r\n  {$IFDEF WEBLIB}\r\n  js,\r\n  {$ENDIF}\r\n  {$IFNDEF LCLLIB}\r\n  Generics.Defaults,\r\n  {$ENDIF}\r\n  WEBLib.TMSFNCUtils;\r\n\r\nconst\r\n  {$IFDEF FMXLIB}\r\n  gcNull = $00000000;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  gcNull = -1;\r\n  {$ENDIF}\r\n\r\ntype\r\n  {$IFDEF FMXLIB}\r\n  TTMSFNCPersistenceColor = TAlphaColor;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  TTMSFNCPersistenceColor = TColor;\r\n  {$ENDIF}\r\n\r\n{$IFDEF FNCLIB}\r\ntype\r\n  {$IFNDEF LCLWEBLIB}\r\n  TTMSFNCJSONToClassPropertyNameComparer = class(TComparer<TTMSFNCJSONToClassProperty>)\r\n  public\r\n    function Compare(const Left, Right: TTMSFNCJSONToClassProperty): Integer; override;\r\n  end;\r\n  {$ENDIF}\r\n{$ENDIF}\r\n\r\n{$IFDEF FMXLIB}\r\n  TControlClass = class of TControl;\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\n  TCustomControlClass = class of TCustomControl;\r\n{$ENDIF}\r\n\r\n{$IFNDEF WEBLIB}\r\n{$IFNDEF FMXMOBILE}\r\n{$IFNDEF LCLLIB}\r\ntype\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION < 26}\r\n  TSymbolNameBase = string[255];\r\n  TSymbolName = type TSymbolNameBase;\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  PSymbolName = ^TSymbolName;\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\ntype\r\n  PSymbolName = ^ShortString;\r\n{$ENDIF}\r\n\r\nfunction GetShortStringString(const ShortStringPointer: PSymbolName): string;\r\nbegin\r\n  Result := string(ShortStringPointer^);\r\nend;\r\n{$ENDIF}\r\n{$IFDEF FMXMOBILE}\r\nfunction GetShortStringString(const ShortStringPointer: PByte): string;\r\nvar\r\n  ShortStringLength: Byte;\r\n  FirstShortStringCharacter: MarshaledAString;\r\n  ConvertedLength: Cardinal;\r\n  UnicodeCharacters: array[Byte] of Char;\r\nbegin\r\n  if not Assigned(ShortStringPointer) then\r\n    Result := ''\r\n  else\r\n  begin\r\n    ShortStringLength := ShortStringPointer^;\r\n    if ShortStringLength = 0 then\r\n      Result := ''\r\n    else\r\n    begin\r\n      FirstShortStringCharacter := MarshaledAString(ShortStringPointer+1);\r\n      ConvertedLength := UTF8ToUnicode(\r\n          UnicodeCharacters,\r\n          Length(UnicodeCharacters),\r\n          FirstShortStringCharacter,\r\n          ShortStringLength\r\n        );\r\n\r\n      ConvertedLength := ConvertedLength-1;\r\n      SetString(Result, UnicodeCharacters, ConvertedLength);\r\n    end;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\nfunction GetTypeInfoEx(APropInfo: TTMSFNCPropertyInfo): PTypeInfo;\r\nbegin\r\n  {$IFNDEF WEBLIB}\r\n  Result := APropInfo^.PropType{$IFNDEF LCLLIB}^{$ENDIF};\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Result := APropInfo.typeinfo;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction GetColorRed(AColor: TTMSFNCPersistenceColor): Byte;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Result := TAlphaColorRec(AColor).R;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  AColor := ColorToRGB(AColor);\r\n  Result := GetRValue(AColor);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction GetColorGreen(AColor: TTMSFNCPersistenceColor): Byte;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Result := TAlphaColorRec(AColor).G;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  AColor := ColorToRGB(AColor);\r\n  Result := GetGValue(AColor);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction GetColorBlue(AColor: TTMSFNCPersistenceColor): Byte;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Result := TAlphaColorRec(AColor).B;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  AColor := ColorToRGB(AColor);\r\n  Result := GetBValue(AColor);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction HTMLToColorEx(AHTML: string): TTMSFNCPersistenceColor;\r\n\r\nfunction HexVal(s:string): Integer;\r\nvar\r\n  i,j: Integer;\r\n  i1, i2: Integer;\r\nbegin\r\n  if Length(s) < 2 then\r\n  begin\r\n    Result := 0;\r\n    Exit;\r\n  end;\r\n\r\n  {$IFDEF ZEROSTRINGINDEX}\r\n  i1 := 0;\r\n  i2 := 1;\r\n  {$ELSE}\r\n  i1 := 1;\r\n  i2 := 2;\r\n  {$ENDIF}\r\n\r\n  if s[i1] >= 'A' then\r\n    i := ord(s[i1]) - ord('A') + 10\r\n  else\r\n    i := ord(s[i1]) - ord('0');\r\n\r\n  if s[i2] >= 'A' then\r\n    j := ord(s[i2]) - ord('A') + 10\r\n  else\r\n    j := ord(s[i2]) - ord('0');\r\n\r\n  Result := i shl 4 + j;\r\nend;\r\n\r\n{$IFDEF CMNWEBLIB}\r\nvar\r\n  r,g,b: Integer;\r\nbegin\r\n  r := Hexval(Copy(AHTML,2,2));\r\n  g := Hexval(Copy(AHTML,4,2)) shl 8;\r\n  b := Hexval(Copy(AHTML,6,2)) shl 16;\r\n  Result :=  b + g + r;\r\n{$ENDIF}\r\n\r\n{$IFDEF FMXLIB}\r\nconst\r\n  Alpha = TTMSFNCPersistenceColor($FF000000);\r\nvar\r\n  r,g,b: Integer;\r\nbegin\r\n  r := Hexval(Copy(AHTML,2,2)) shl 16;\r\n  g := Hexval(Copy(AHTML,4,2)) shl 8;\r\n  b := Hexval(Copy(AHTML,6,2));\r\n  Result := Alpha or TTMSFNCPersistenceColor(b + g + r);\r\n{$ENDIF}\r\nend;\r\n\r\nfunction ColorToHTMLEx(AColor: TTMSFNCPersistenceColor): string;\r\nconst\r\n  HTMLHexColor = '#RRGGBB';\r\n  HexDigit: array[0..$F] of Char = '0123456789ABCDEF';\r\nvar\r\n  c: TTMSFNCPersistenceColor;\r\n  i: Integer;\r\nbegin\r\n  {$IFDEF ZEROSTRINGINDEX}\r\n  i := 0;\r\n  {$ELSE}\r\n  i := 1;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF FMXLIB}\r\n  c := AColor;\r\n  {$ENDIF}\r\n  {$IFNDEF FMXLIB}\r\n  c := ColorToRGB(AColor);\r\n  {$ENDIF}\r\n  Result := HtmlHexColor;\r\n  Result[1 + i] := HexDigit[GetColorRed(c) shr 4];\r\n  Result[2 + i] := HexDigit[GetColorRed(c) and $F];\r\n  Result[3 + i] := HexDigit[GetColorGreen(c) shr 4];\r\n  Result[4 + i] := HexDigit[GetColorGreen(c) and $F];\r\n  Result[5 + i] := HexDigit[GetColorBlue(c) shr 4];\r\n  Result[6 + i] := HexDigit[GetColorBlue(c) and $F];\r\nend;\r\n\r\n{$IFDEF FNCLIB}\r\nfunction DefaultJSONToClassOptions: TTMSFNCJSONToClassOptions;\r\nbegin\r\n  Result.AddUnit := False;\r\n  Result.AddImplementation := False;\r\n  Result.AddConstructor := False;\r\n  Result.AddDestructor := False;\r\n  Result.AddAssign := False;\r\n  Result.BaseClass := cbcNone;\r\n  Result.SortProperties := True;\r\n  Result.DelphiCasing := True;\r\n  Result.RemoveSpecialCharacters := True;\r\nend;\r\n{$ENDIF}\r\n\r\n{ TTMSFNCWriter }\r\n\r\nconstructor TTMSFNCWriter.Create(AStream: TStream);\r\nbegin\r\n  FWriter := TTMSFNCJSONWriter.Create(AStream);\r\n  FWriterRef := False;\r\nend;\r\n\r\nconstructor TTMSFNCWriter.Create(AWriter: TTMSFNCJSONWriter);\r\nbegin\r\n  FWriter := AWriter;\r\n  FWriterRef := True;\r\nend;\r\n\r\ndestructor TTMSFNCWriter.Destroy;\r\nbegin\r\n  if FWriterRef then\r\n    FWriter := nil\r\n  else\r\n    FWriter.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCWriter.SetExcludeProperties(\r\n  const Value: TTMSFNCExcludePropertyListArray);\r\nbegin\r\n  FExcludeProperties := Value;\r\n  TTMSFNCPersistence.ExcludeProperties := FExcludeProperties;\r\nend;\r\n\r\nprocedure TTMSFNCWriter.SetIOReference(const Value: TObject);\r\nbegin\r\n  FIOReference := Value;\r\n  TTMSFNCPersistence.IOReference := FIOReference;\r\nend;\r\n\r\nprocedure TTMSFNCWriter.SetRootObject(const Value: TObject);\r\nbegin\r\n  FRootObject := Value;\r\n  TTMSFNCPersistence.RootObject := FRootObject;\r\nend;\r\n\r\nprocedure TTMSFNCWriter.WriteGenericStringObjectDictionary(\r\n  ADictionary: TTMSFNCStringObjectDictionary);\r\nvar\r\n  {$IFDEF LCLLIB}\r\n  k: Integer;\r\n  key: string;\r\n  {$ENDIF}\r\n  {$IFNDEF LCLLIB}\r\n  key: string;\r\n  {$ENDIF}\r\nbegin\r\n  Writer.WriteBeginArray;\r\n  {$IFDEF LCLLIB}\r\n  for k := 0 to ADictionary.Count - 1 do\r\n  begin\r\n    key := ADictionary.Keys[k];\r\n  {$ENDIF}\r\n  {$IFNDEF LCLLIB}\r\n  for key in ADictionary.Keys do\r\n  begin\r\n  {$ENDIF}\r\n    Writer.WriteBeginObject;\r\n    Writer.WriteName(key);\r\n    WriteSingleObject(ADictionary[key]);\r\n    Writer.WriteEndObject;\r\n  end;\r\n  Writer.WriteEndArray;\r\nend;\r\n\r\nprocedure TTMSFNCWriter.WriteGenericIntegerObjectDictionary(\r\n  ADictionary: TTMSFNCIntegerObjectDictionary);\r\nvar\r\n  {$IFDEF LCLLIB}\r\n  k: Integer;\r\n  key: Integer;\r\n  {$ENDIF}\r\n  {$IFNDEF LCLLIB}\r\n  key: Integer;\r\n  {$ENDIF}\r\nbegin\r\n  Writer.WriteBeginArray;\r\n  {$IFDEF LCLLIB}\r\n  for k := 0 to ADictionary.Count - 1 do\r\n  begin\r\n    key := ADictionary.Keys[k];\r\n  {$ENDIF}\r\n  {$IFNDEF LCLLIB}\r\n  for key in ADictionary.Keys do\r\n  begin\r\n  {$ENDIF}\r\n    Writer.WriteBeginObject;\r\n    Writer.WriteName(IntToStr(key));\r\n    WriteSingleObject(ADictionary[key]);\r\n    Writer.WriteEndObject;\r\n  end;\r\n  Writer.WriteEndArray;\r\nend;\r\n\r\nprocedure TTMSFNCWriter.WriteGenericIntegerIntegerDictionary(\r\n  ADictionary: TTMSFNCIntegerIntegerDictionary);\r\nvar\r\n  {$IFDEF LCLLIB}\r\n  k: Integer;\r\n  key: Integer;\r\n  {$ENDIF}\r\n  {$IFNDEF LCLLIB}\r\n  key: Integer;\r\n  {$ENDIF}\r\nbegin\r\n  Writer.WriteBeginArray;\r\n  {$IFDEF LCLLIB}\r\n  for k := 0 to ADictionary.Count - 1 do\r\n  begin\r\n    key := ADictionary.Keys[k];\r\n  {$ENDIF}\r\n  {$IFNDEF LCLLIB}\r\n  for key in ADictionary.Keys do\r\n  begin\r\n  {$ENDIF}\r\n    Writer.WriteBeginObject;\r\n    Writer.WriteName(IntToStr(key));\r\n    Writer.WriteInteger(ADictionary[key]);\r\n    Writer.WriteEndObject;\r\n  end;\r\n  Writer.WriteEndArray;\r\nend;\r\n\r\nprocedure TTMSFNCWriter.WriteGenericIntegerBooleanDictionary(\r\n  ADictionary: TTMSFNCIntegerBooleanDictionary);\r\nvar\r\n  {$IFDEF LCLLIB}\r\n  k: Integer;\r\n  key: Integer;\r\n  {$ENDIF}\r\n  {$IFNDEF LCLLIB}\r\n  key: Integer;\r\n  {$ENDIF}\r\nbegin\r\n  Writer.WriteBeginArray;\r\n  {$IFDEF LCLLIB}\r\n  for k := 0 to ADictionary.Count - 1 do\r\n  begin\r\n    key := ADictionary.Keys[k];\r\n  {$ENDIF}\r\n  {$IFNDEF LCLLIB}\r\n  for key in ADictionary.Keys do\r\n  begin\r\n  {$ENDIF}\r\n    Writer.WriteBeginObject;\r\n    Writer.WriteName(IntToStr(key));\r\n    Writer.WriteBoolean(ADictionary[key]);\r\n    Writer.WriteEndObject;\r\n  end;\r\n  Writer.WriteEndArray;\r\nend;\r\n\r\nprocedure TTMSFNCWriter.WriteGenericIntegerDoubleDictionary(\r\n  ADictionary: TTMSFNCIntegerDoubleDictionary);\r\nvar\r\n  {$IFDEF LCLLIB}\r\n  k: Integer;\r\n  key: Integer;\r\n  {$ENDIF}\r\n  {$IFNDEF LCLLIB}\r\n  key: Integer;\r\n  {$ENDIF}\r\nbegin\r\n  Writer.WriteBeginArray;\r\n  {$IFDEF LCLLIB}\r\n  for k := 0 to ADictionary.Count - 1 do\r\n  begin\r\n    key := ADictionary.Keys[k];\r\n  {$ENDIF}\r\n  {$IFNDEF LCLLIB}\r\n  for key in ADictionary.Keys do\r\n  begin\r\n  {$ENDIF}\r\n    Writer.WriteBeginObject;\r\n    Writer.WriteName(IntToStr(key));\r\n    Writer.WriteDouble(ADictionary[key]);\r\n    Writer.WriteEndObject;\r\n  end;\r\n  Writer.WriteEndArray;\r\nend;\r\n\r\nprocedure TTMSFNCWriter.WriteGenericDoubleList(AList: TTMSFNCDoubleList);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Writer.WriteBeginArray;\r\n  for I := 0 to AList.Count - 1 do\r\n    Writer.WriteDouble(AList[I]);\r\n  Writer.WriteEndArray;\r\nend;\r\n\r\nprocedure TTMSFNCWriter.WriteGenericIntegerList(AList: TTMSFNCIntegerList);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Writer.WriteBeginArray;\r\n  for I := 0 to AList.Count - 1 do\r\n    Writer.WriteInteger(AList[I]);\r\n  Writer.WriteEndArray;\r\nend;\r\n\r\nprocedure TTMSFNCWriter.WriteGenericObjectList(AList: TTMSFNCObjectList);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Writer.WriteBeginArray;\r\n  for I := 0 to AList.Count - 1 do\r\n    WriteSingleObject(AList[I]);\r\n  Writer.WriteEndArray;\r\nend;\r\n\r\nprocedure TTMSFNCWriter.WriteGenericStringList(AList: TTMSFNCStringList);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Writer.WriteBeginArray;\r\n  for I := 0 to AList.Count - 1 do\r\n    Writer.WriteString(AList[I]);\r\n  Writer.WriteEndArray;\r\nend;\r\n\r\nprocedure TTMSFNCWriter.Write(AObject: TObject);\r\nbegin\r\n  WriteObject(AObject);\r\nend;\r\n\r\nprocedure TTMSFNCWriter.WriteArray(AName: string; AArray: TTMSFNCObjectArray);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Writer.WriteBeginObject;\r\n  Writer.WriteName(AName);\r\n  Writer.WriteBeginArray;\r\n  for I := 0 to Length(AArray) - 1 do\r\n    WriteSingleObject(AArray[I]);\r\n  Writer.WriteEndArray;\r\n  Writer.WriteEndObject;\r\nend;\r\n\r\nprocedure TTMSFNCWriter.WriteBitmap(ABitmap: TTMSFNCBitmap);\r\n{$IFNDEF WEBLIB}\r\nvar\r\n  ms: TMemoryStream;\r\n{$ENDIF}\r\nbegin\r\n  if IsBitmapEmpty(ABitmap) then\r\n  begin\r\n    FWriter.WriteString('');\r\n    Exit;\r\n  end;\r\n\r\n {$IFNDEF WEBLIB}\r\n  ms := TMemoryStream.Create;\r\n  try\r\n    ABitmap.SaveToStream(ms);\r\n    ms.Position := 0;\r\n    FWriter.WriteString(TTMSFNCUtils.SaveStreamToHexStr(ms));\r\n  finally\r\n    ms.Free;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  FWriter.WriteString(ABitmap.Data);\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCWriter.WriteCollection(ACollection: TCollection);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Writer.WriteBeginArray;\r\n  for I := 0 to ACollection.Count - 1 do\r\n    WriteSingleObject(ACollection.Items[I]);\r\n  Writer.WriteEndArray;\r\nend;\r\n\r\nprocedure TTMSFNCWriter.WriteList(AList: TList);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Writer.WriteBeginArray;\r\n  for I := 0 to AList.Count - 1 do\r\n    WriteSingleObject(TObject(AList[I]));\r\n  Writer.WriteEndArray;\r\nend;\r\n\r\nprocedure TTMSFNCWriter.WriteObject(AObject: TObject);\r\nvar\r\n  b: ITMSFNCPersistenceIO;\r\nbegin\r\n  if AObject = nil then\r\n    Writer.WriteNull\r\n  else\r\n  begin\r\n    if TTMSFNCPersistence.IsGenericList(AObject.ClassType, 'String') then\r\n      WriteGenericStringList(TTMSFNCStringList(AObject))\r\n    else if TTMSFNCPersistence.IsGenericList(AObject.ClassType, 'Integer') then\r\n      WriteGenericIntegerList(TTMSFNCIntegerList(AObject))\r\n    else if TTMSFNCPersistence.IsGenericList(AObject.ClassType, 'Double') then\r\n      WriteGenericDoubleList(TTMSFNCDoubleList(AObject))\r\n    else if TTMSFNCPersistence.IsGenericList(AObject.ClassType) then\r\n      WriteGenericObjectList(TTMSFNCObjectList(AObject))\r\n    else if TTMSFNCPersistence.IsGenericStringDictionary(AObject.ClassType) then\r\n    begin\r\n      if TTMSFNCPersistence.IsGenericDictionaryValueTypeObject(AObject.ClassType) then\r\n        WriteGenericStringObjectDictionary(TTMSFNCStringObjectDictionary(AObject))\r\n      else\r\n        Writer.WriteNull;\r\n    end\r\n    else if TTMSFNCPersistence.IsGenericIntegerDictionary(AObject.ClassType) then\r\n    begin\r\n      if TTMSFNCPersistence.IsGenericDictionaryValueTypeObject(AObject.ClassType) then\r\n        WriteGenericIntegerObjectDictionary(TTMSFNCIntegerObjectDictionary(AObject))\r\n      else if TTMSFNCPersistence.IsGenericDictionaryValueTypeInteger(AObject.ClassType) then\r\n        WriteGenericIntegerIntegerDictionary(TTMSFNCIntegerIntegerDictionary(AObject))\r\n      else if TTMSFNCPersistence.IsGenericDictionaryValueTypeBoolean(AObject.ClassType) then\r\n        WriteGenericIntegerBooleanDictionary(TTMSFNCIntegerBooleanDictionary(AObject))\r\n      else if TTMSFNCPersistence.IsGenericDictionaryValueTypeDouble(AObject.ClassType) then\r\n        WriteGenericIntegerDoubleDictionary(TTMSFNCIntegerDoubleDictionary(AObject))\r\n      else\r\n        Writer.WriteNull;\r\n    end\r\n    else if TTMSFNCPersistence.IsList(AObject.ClassType) then\r\n      WriteList(TList(AObject))\r\n    else if TTMSFNCPersistence.IsCollection(AObject.ClassType) then\r\n      WriteCollection(TCollection(AObject))\r\n    else if TTMSFNCPersistence.IsBitmap(AObject.ClassType) then\r\n      WriteBitmap(TTMSFNCBitmap(AObject))\r\n    else if TTMSFNCPersistence.IsDescendingClass(AObject.ClassType, ['TStrings']) then\r\n      WriteStrings(TStrings(AObject))\r\n    else\r\n    begin\r\n      if Assigned(IOReference) and Supports(IOReference, ITMSFNCPersistenceIO, b) then\r\n      begin\r\n        if b.NeedsObjectReference(AObject.ClassType) then\r\n          Writer.WriteString(b.GetObjectReference(AObject))\r\n        else\r\n          WriteSingleObject(AObject);\r\n      end\r\n      else\r\n        WriteSingleObject(AObject);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCWriter.WriteSingleObject(AObject: TObject);\r\nbegin\r\n  Writer.WriteBeginObject;\r\n  if TTMSFNCPersistence.ClassTypeVariable <> '' then\r\n  begin\r\n    Writer.WriteName(TTMSFNCPersistence.ClassTypeVariable);\r\n    Writer.WriteString(AObject.ClassName);\r\n  end;\r\n  WriteProperties(AObject);\r\n  Writer.WriteEndObject;\r\nend;\r\n\r\nprocedure TTMSFNCWriter.WriteStrings(AList: TStrings);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Writer.WriteBeginArray;\r\n  for I := 0 to AList.Count - 1 do\r\n    Writer.WriteString(AList[I]);\r\n  Writer.WriteEndArray;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TTMSFNCWriter.WritePropInfoValue(AInstance: TObject; const APropInfo: TTMSFNCPropertyInfo);\r\nvar\r\n  cn: string;\r\n  pName: string;\r\n  en: string;\r\n  k: TTypeKind;\r\n  p: TTMSFNCPropertyInfo;\r\n  o: TObject;\r\n  v: TMethod;\r\n  c: TTMSFNCPersistenceColor;\r\n  {$IFNDEF LCLLIB}\r\n  {$IFDEF WEBLIB}\r\n  vr: JSValue;\r\n  {$ELSE}\r\n  vr: Variant;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nbegin\r\n  if TTMSFNCPersistence.IsWriteOnly(APropInfo) then\r\n  begin\r\n    Writer.WriteNull;\r\n    Exit;\r\n  end;\r\n\r\n  o := AInstance;\r\n  p := APropInfo;\r\n  k := TTMSFNCPersistence.GetPropInfoType(p);\r\n  pName := TTMSFNCPersistence.GetPropInfoName(p);\r\n\r\n  case k of\r\n    tkInteger:\r\n    begin\r\n      cn := TTMSFNCPersistence.GetPropInfoTypeName(p);\r\n      if (cn = 'TAlphaColor') or (cn = 'TColor') or (cn = 'TGraphicsColor') then\r\n      begin\r\n        if GetOrdProp(o, p) = gcNull then\r\n          Writer.WriteString('gcNull')\r\n        else\r\n        begin\r\n          c := TTMSFNCPersistenceColor(GetOrdProp(o, p));\r\n          Writer.WriteString(ColorToHTMLEx(c))\r\n        end;\r\n      end\r\n      else\r\n        Writer.WriteInteger(GetOrdProp(o, p));\r\n    end;\r\n    {$IFNDEF WEBLIB}tkWChar, tkLString, tkUString,{$ENDIF}tkChar, tkString{$IFDEF LCLLIB},tkAString{$ENDIF}: Writer.WriteString(GetStrProp(o, p));\r\n    tkEnumeration:\r\n      if TTMSFNCPersistence.GetPropInfoDataTypeInfo(p) = TypeInfo(Boolean) then\r\n        Writer.WriteBoolean(Boolean(GetOrdProp(o, p)))\r\n      else\r\n        Writer.WriteInteger(GetOrdProp(o, p));\r\n    {$IFDEF LCLLIB}\r\n    tkBool: Writer.WriteBoolean(Boolean(GetOrdProp(o, p)));\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    tkBool: Writer.WriteBoolean(GetBoolProp(o, p));\r\n    {$ENDIF}\r\n    tkFloat: Writer.WriteDouble(GetFloatProp(o, p));\r\n    {$IFNDEF WEBLIB}\r\n    tkInt64: Writer.WriteInteger(GetInt64Prop(o, p));\r\n    {$ENDIF}\r\n    tkSet: Writer.WriteInteger(GetOrdProp(o, p));\r\n    {$IFNDEF LCLLIB}\r\n    {$IFDEF WEBLIB}\r\n    tkJSValue:\r\n    begin\r\n      vr := GetJSValueProp(o, p);\r\n      if isUndefined(vr) or isNull(vr) then\r\n        Writer.WriteNull\r\n      else if IsNumber(vr) then\r\n      begin\r\n        if Frac(Double(vr))=0 then\r\n          Writer.WriteInteger(NativeInt(vr))\r\n        else\r\n          Writer.WriteDouble(Double(vr))\r\n      end\r\n      else if isBoolean(vr) then\r\n        Writer.WriteBoolean(Boolean(vr))\r\n      else if isString(vr) then\r\n        Writer.WriteString(string(vr))\r\n      else\r\n        Writer.WriteNull;\r\n    end;\r\n    {$ELSE}\r\n    tkVariant:\r\n    begin\r\n      vr := GetVariantProp(o, p);\r\n      case VarType(vr) of\r\n        varEmpty, varNull: Writer.WriteNull;\r\n        varBoolean: Writer.WriteBoolean(TVarData(vr).VBoolean);\r\n        varShortInt: Writer.WriteInteger(TVarData(vr).VShortInt);\r\n        varSmallint: Writer.WriteInteger(TVarData(vr).VSmallInt);\r\n        varInteger:  Writer.WriteInteger(TVarData(vr).VInteger);\r\n        varSingle:  Writer.WriteDouble(TVarData(vr).VSingle);\r\n        varDouble: Writer.WriteDouble(TVarData(vr).VDouble);\r\n        varCurrency: Writer.WriteDouble(TVarData(vr).VCurrency);\r\n        varDate: Writer.WriteDouble(TVarData(vr).VDate);\r\n        varOleStr: Writer.WriteString(string(TVarData(vr).VOleStr));\r\n        varByte: Writer.WriteInteger(TVarData(vr).VByte);\r\n        varWord: Writer.WriteInteger(TVarData(vr).VWord);\r\n        varLongWord: Writer.WriteInteger(TVarData(vr).VLongWord);\r\n        varInt64: Writer.WriteInteger(TVarData(vr).VInt64);\r\n        varUInt64: Writer.WriteInteger(TVarData(vr).VUInt64);\r\n        varString: Writer.WriteString(string(TVarData(vr).VString));\r\n        varUString: Writer.WriteString(UnicodeString(TVarData(vr).VUString));\r\n        else\r\n          Writer.WriteNull;\r\n      end;\r\n    end;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    tkMethod:\r\n    begin\r\n      v := GetMethodProp(o, p);\r\n      if v.Code = nil then\r\n        Writer.WriteNull\r\n      else\r\n      begin\r\n        if Assigned(TTMSFNCPersistence.RootObject) then\r\n          Writer.WriteString(TTMSFNCPersistence.RootObject.MethodName(v.Code))\r\n        else\r\n          Writer.WriteNull;\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      en := TTMSFNCPersistence.GetEnumName(TypeInfo(TTypeKind), Integer(k));\r\n      Writer.WriteNull;\r\n    end;\r\n  end;\r\n\r\n  if (o is TFont) and (pName = 'Size') then\r\n  begin\r\n    Writer.WriteName('IsFMX');\r\n    Writer.WriteBoolean({$IFDEF FMXLIB}True{$ELSE}False{$ENDIF});\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TTMSFNCWriter.WriteProperties(AObject: TObject);\r\nvar\r\n  {$IFNDEF WEBLIB}\r\n  ci: Pointer;\r\n  c: Integer;\r\n  pl: PPropList;\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ci: TTypeInfoClass;\r\n  a: TTypeMemberPropertyDynArray;\r\n  {$ENDIF}\r\n  I: Integer;\r\nbegin\r\n  if Assigned(AObject) then\r\n  begin\r\n    {$IFNDEF WEBLIB}\r\n    ci := AObject.ClassInfo;\r\n    c := GetPropList(ci, tkAny, nil);\r\n    GetMem(pl, c * SizeOf(TTMSFNCPropertyInfo));\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    ci := TypeInfo(AObject);\r\n    {$ENDIF}\r\n    try\r\n      {$IFNDEF WEBLIB}\r\n      GetPropList(ci, tkAny, pl);\r\n      for I := 0 to c - 1 do\r\n        WriteProperty(AObject, pl^[i]);\r\n      {$ENDIF}\r\n      {$IFDEF WEBLIB}\r\n      a := GetPropList(ci, tkAny);\r\n      for I := 0 to Length(a) - 1 do\r\n        WriteProperty(AObject, a[I]);\r\n      {$ENDIF}\r\n    finally\r\n      {$IFNDEF WEBLIB}\r\n      FreeMem(pl);\r\n      {$ENDIF}\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCWriter.WriteProperty(AObject: TObject; AProp: TTMSFNCPropertyInfo);\r\nvar\r\n  pName: string;\r\n  k: TTypeKind;\r\n  b, a, ap: Boolean;\r\n  p: ITMSFNCPersistence;\r\n  crw: ITMSFNCCustomReadWriteIO;\r\n  o: TObject;\r\nbegin\r\n  if not Assigned(AProp) then\r\n    Exit;\r\n\r\n  pName := TTMSFNCPersistence.GetPropInfoName(AProp);\r\n  k := TTMSFNCPersistence.GetPropInfoType(AProp);\r\n\r\n  b := TTMSFNCUtils.IndexOfTextInArray(pName, TTMSFNCPersistence.ExcludeProperties) = -1;\r\n  if Supports(AObject, ITMSFNCPersistence, p) then\r\n    b := p.CanSaveProperty(AObject, pName, k);\r\n\r\n  if b then\r\n  begin\r\n    a := True;\r\n    if Assigned(OnCustomWriteProperty) then\r\n      OnCustomWriteProperty(AObject, pName, k, Writer, a);\r\n\r\n    if a and Supports(AObject, ITMSFNCCustomReadWriteIO, crw) then\r\n      crw.CustomWriteProperty(AObject, pName, k, Writer, a);\r\n\r\n    if a then\r\n    begin\r\n      Writer.WriteName(pName);\r\n\r\n      if k in [tkClass] then\r\n      begin\r\n        o := GetObjectProp(AObject, pName);\r\n\r\n        ap := TTMSFNCPersistence.IsAssignableProperty(AObject, AProp);\r\n\r\n        if Assigned(OnCustomIsAssignableProperty) then\r\n          OnCustomIsAssignableProperty(AObject, pName, ap);\r\n\r\n        if ap then\r\n        begin\r\n          if o is TComponent then\r\n            Writer.WriteString((o as TComponent).Name)\r\n          else\r\n            Writer.WriteString('');\r\n        end\r\n        else\r\n          WriteObject(o);\r\n      end\r\n      else\r\n        WritePropInfoValue(AObject, AProp);\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCReader }\r\n\r\nconstructor TTMSFNCReader.Create(AStream: TStream);\r\nbegin\r\n  FReader := TTMSFNCJSONReader.Create(AStream);\r\n  FReaderRef := False;\r\n  FReferences := TTMSFNCObjectReferences.Create(true);\r\nend;\r\n\r\nconstructor TTMSFNCReader.Create(AReader: TTMSFNCJSONReader);\r\nbegin\r\n  FReader := AReader;\r\n  FReaderRef := True;\r\n  FReferences := TTMSFNCObjectReferences.Create(true);\r\nend;\r\n\r\ndestructor TTMSFNCReader.Destroy;\r\nbegin\r\n  if FReaderRef then\r\n    FReader := nil\r\n  else\r\n    FReader.Free;\r\n\r\n  FReferences.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCReader.ReadSingleObject(ABaseClass: TClass): TObject;\r\nvar\r\n  cn: string;\r\n  b: ITMSFNCBasePersistenceIO;\r\n  p: ITMSFNCPersistenceIO;\r\nbegin\r\n  Reader.ReadBeginObject;\r\n  if TTMSFNCPersistence.ClassTypeVariable <> '' then\r\n  begin\r\n    if not Reader.HasNext or (Reader.ReadName <> TTMSFNCPersistence.ClassTypeVariable) then\r\n      raise ETMSFNCReaderException.Create('\"'+TTMSFNCPersistence.ClassTypeVariable+'\" property not found in Object descriptor.');\r\n\r\n    cn := Reader.ReadString;\r\n  end;\r\n\r\n  if cn = '' then\r\n    cn := ABaseClass.ClassName;\r\n\r\n  Result := nil;\r\n\r\n  if Assigned(FIOReference) then\r\n  begin\r\n    if Supports(FIOReference, ITMSFNCBasePersistenceIO, b) then\r\n      Result := b.CreateObject(cn, ABaseClass)\r\n    else if Supports(FIOReference, ITMSFNCPersistenceIO, p) then\r\n      Result := p.CreateObject(cn, ABaseClass);\r\n  end;\r\n\r\n  if not Assigned(Result) then\r\n    Result := TTMSFNCPersistence.CreateObject(cn, ABaseClass);\r\n    \r\n  try\r\n    ReadProperties(Result);\r\n    Reader.ReadEndObject;\r\n  except\r\n    Result.Free;\r\n    raise;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCReader.ReadExistingObject(AObject: TObject);\r\nbegin\r\n  if Assigned(AObject) then\r\n  begin\r\n    if not Reader.IsNull then\r\n    begin\r\n      Reader.ReadBeginObject;\r\n      if TTMSFNCPersistence.ClassTypeVariable <> '' then\r\n      begin\r\n        if not Reader.HasNext or (Reader.ReadName <> TTMSFNCPersistence.ClassTypeVariable) then\r\n          raise ETMSFNCReaderException.Create('\"'+TTMSFNCPersistence.ClassTypeVariable+'\" property not found in Object descriptor.');\r\n\r\n        Reader.ReadString;\r\n      end;\r\n\r\n      ReadProperties(AObject);\r\n      Reader.ReadEndObject;\r\n    end\r\n    else\r\n      Reader.SkipValue;\r\n  end\r\n  else\r\n    Reader.ReadNull;\r\nend;\r\n\r\nprocedure TTMSFNCReader.ReadGenericStringObjectDictionary(ADictionary: TTMSFNCStringObjectDictionary);\r\nvar\r\n  obj: TObject;\r\n  k: string;\r\n  c: TClass;\r\n  i: ITMSFNCBaseListIO;\r\n  cl: Boolean;\r\nbegin\r\n  if Supports(ADictionary, ITMSFNCBaseListIO, i) then\r\n    c := i.GetItemClass\r\n  else\r\n    c := TTMSFNCPersistence.GetGenericDictionaryValueType(ADictionary.ClassType);\r\n\r\n  cl := False;\r\n  ADictionary.Clear;\r\n  Reader.ReadBeginArray;\r\n  if not Reader.HasNext then\r\n    ADictionary.Clear\r\n  else\r\n  begin\r\n    while Reader.HasNext do\r\n    begin\r\n      if not Reader.IsNull then\r\n      begin\r\n        Reader.ReadBeginObject;\r\n        k := Reader.ReadName;\r\n        obj := ReadSingleObject(c);\r\n        if Assigned(obj) then\r\n        begin\r\n          if not cl then\r\n          begin\r\n            ADictionary.Clear;\r\n            cl := True;\r\n          end;\r\n\r\n          ADictionary.Add(k, obj);\r\n        end;\r\n        Reader.ReadEndObject;\r\n      end\r\n      else\r\n        Reader.SkipValue;\r\n    end;\r\n  end;\r\n  Reader.ReadEndArray;\r\nend;\r\n\r\nprocedure TTMSFNCReader.ReadGenericIntegerObjectDictionary(ADictionary: TTMSFNCIntegerObjectDictionary);\r\nvar\r\n  obj: TObject;\r\n  k: Integer;\r\n  c: TClass;\r\n  i: ITMSFNCBaseListIO;\r\n  cl: Boolean;\r\nbegin\r\n  if Supports(ADictionary, ITMSFNCBaseListIO, i) then\r\n    c := i.GetItemClass\r\n  else\r\n    c := TTMSFNCPersistence.GetGenericDictionaryValueType(ADictionary.ClassType);\r\n\r\n  cl := False;\r\n  ADictionary.Clear;\r\n  Reader.ReadBeginArray;\r\n  if not Reader.HasNext then\r\n    ADictionary.Clear\r\n  else\r\n  begin\r\n    while Reader.HasNext do\r\n    begin\r\n      if not Reader.IsNull then\r\n      begin\r\n        Reader.ReadBeginObject;\r\n        TryStrToInt(Reader.ReadName, k);\r\n        obj := ReadSingleObject(c);\r\n        if Assigned(obj) then\r\n        begin\r\n          if not cl then\r\n          begin\r\n            ADictionary.Clear;\r\n            cl := True;\r\n          end;\r\n\r\n          ADictionary.Add(k, obj);\r\n        end;\r\n        Reader.ReadEndObject;\r\n      end\r\n      else\r\n        Reader.SkipValue;\r\n    end;\r\n  end;\r\n  Reader.ReadEndArray;\r\nend;\r\n\r\nprocedure TTMSFNCReader.ReadGenericIntegerDoubleDictionary(ADictionary: TTMSFNCIntegerDoubleDictionary);\r\nvar\r\n  obj: Double;\r\n  k: Integer;\r\n  cl: Boolean;\r\nbegin\r\n  cl := False;\r\n  ADictionary.Clear;\r\n  Reader.ReadBeginArray;\r\n  if not Reader.HasNext then\r\n    ADictionary.Clear\r\n  else\r\n  begin\r\n    while Reader.HasNext do\r\n    begin\r\n      if not Reader.IsNull then\r\n      begin\r\n        Reader.ReadBeginObject;\r\n        TryStrToInt(Reader.ReadName, k);\r\n        obj := Reader.ReadDouble;\r\n        if not cl then\r\n        begin\r\n          ADictionary.Clear;\r\n          cl := True;\r\n        end;\r\n\r\n        ADictionary.Add(k, obj);\r\n        Reader.ReadEndObject;\r\n      end\r\n      else\r\n        Reader.SkipValue;\r\n    end;\r\n  end;\r\n  Reader.ReadEndArray;\r\nend;\r\n\r\nprocedure TTMSFNCReader.ReadGenericIntegerBooleanDictionary(ADictionary: TTMSFNCIntegerBooleanDictionary);\r\nvar\r\n  obj: Boolean;\r\n  k: Integer;\r\n  cl: Boolean;\r\nbegin\r\n  cl := False;\r\n  ADictionary.Clear;\r\n  Reader.ReadBeginArray;\r\n  if not Reader.HasNext then\r\n    ADictionary.Clear\r\n  else\r\n  begin\r\n    while Reader.HasNext do\r\n    begin\r\n      if not Reader.IsNull then\r\n      begin\r\n        Reader.ReadBeginObject;\r\n        TryStrToInt(Reader.ReadName, k);\r\n        obj := Reader.ReadBoolean;\r\n        if not cl then\r\n        begin\r\n          ADictionary.Clear;\r\n          cl := True;\r\n        end;\r\n\r\n        ADictionary.Add(k, obj);\r\n        Reader.ReadEndObject;\r\n      end\r\n      else\r\n        Reader.SkipValue;\r\n    end;\r\n  end;\r\n  Reader.ReadEndArray;\r\nend;\r\n\r\nprocedure TTMSFNCReader.ReadGenericIntegerIntegerDictionary(ADictionary: TTMSFNCIntegerIntegerDictionary);\r\nvar\r\n  obj: Integer;\r\n  k: Integer;\r\n  cl: Boolean;\r\nbegin\r\n  cl := False;\r\n  ADictionary.Clear;\r\n  Reader.ReadBeginArray;\r\n  if not Reader.HasNext then\r\n    ADictionary.Clear\r\n  else\r\n  begin\r\n    while Reader.HasNext do\r\n    begin\r\n      if not Reader.IsNull then\r\n      begin\r\n        Reader.ReadBeginObject;\r\n        TryStrToInt(Reader.ReadName, k);\r\n        obj := Reader.ReadInteger;\r\n        if not cl then\r\n        begin\r\n          ADictionary.Clear;\r\n          cl := True;\r\n        end;\r\n\r\n        ADictionary.Add(k, obj);\r\n        Reader.ReadEndObject;\r\n      end\r\n      else\r\n        Reader.SkipValue;\r\n    end;\r\n  end;\r\n  Reader.ReadEndArray;\r\nend;\r\n\r\nprocedure TTMSFNCReader.ReadGenericStringList(AList: TTMSFNCStringList);\r\nvar\r\n  obj: string;\r\nbegin\r\n  AList.Clear;\r\n  Reader.ReadBeginArray;\r\n  while Reader.HasNext do\r\n  begin\r\n    if not Reader.IsNull then\r\n    begin\r\n      obj := Reader.ReadString;\r\n      AList.Add(obj);\r\n    end\r\n    else\r\n      Reader.SkipValue;\r\n  end;\r\n  Reader.ReadEndArray;\r\nend;\r\n\r\nprocedure TTMSFNCReader.ReadGenericIntegerList(AList: TTMSFNCIntegerList);\r\nvar\r\n  obj: Integer;\r\nbegin\r\n  AList.Clear;\r\n  Reader.ReadBeginArray;\r\n  while Reader.HasNext do\r\n  begin\r\n    if not Reader.IsNull then\r\n    begin\r\n      obj := Reader.ReadInteger;\r\n      AList.Add(obj);\r\n    end\r\n    else\r\n      Reader.SkipValue;\r\n  end;\r\n  Reader.ReadEndArray;\r\nend;\r\n\r\nprocedure TTMSFNCReader.ReadGenericDoubleList(AList: TTMSFNCDoubleList);\r\nvar\r\n  obj: Double;\r\nbegin\r\n  AList.Clear;\r\n  Reader.ReadBeginArray;\r\n  while Reader.HasNext do\r\n  begin\r\n    if not Reader.IsNull then\r\n    begin\r\n      obj := Reader.ReadDouble;\r\n      AList.Add(obj);\r\n    end\r\n    else\r\n      Reader.SkipValue;\r\n  end;\r\n  Reader.ReadEndArray;\r\nend;\r\n\r\nprocedure TTMSFNCReader.ReadGenericObjectList(AList: TTMSFNCObjectList);\r\nvar\r\n  obj: TObject;\r\n  b: ITMSFNCPersistenceIO;\r\n  c: TClass;\r\n  i: ITMSFNCBaseListIO;\r\n  cl: Boolean;\r\nbegin\r\n  if Supports(AList, ITMSFNCBaseListIO, i) then\r\n    c := i.GetItemClass\r\n  else\r\n    c := TTMSFNCPersistence.GetGenericListType(AList.ClassType);\r\n\r\n  cl := False;\r\n  Reader.ReadBeginArray;\r\n  if not Reader.HasNext then\r\n    AList.Clear\r\n  else\r\n  begin\r\n    while Reader.HasNext do\r\n    begin\r\n      if not Reader.IsNull then\r\n      begin\r\n        obj := ReadSingleObject(c);\r\n        if Assigned(obj) then\r\n        begin\r\n          if not cl then\r\n          begin\r\n            AList.Clear;\r\n            cl := True;\r\n          end;\r\n\r\n          if Assigned(IOReference) and Supports(IOReference, ITMSFNCPersistenceIO, b) then\r\n            b.FixOwners(obj, AList);\r\n\r\n          AList.Add(obj);\r\n        end;\r\n      end\r\n      else\r\n        Reader.SkipValue;\r\n    end;\r\n  end;\r\n  Reader.ReadEndArray;\r\nend;\r\n\r\nfunction TTMSFNCReader.Read(AClass: TClass): TObject;\r\nbegin\r\n  Result := ReadSingleObject(AClass);\r\nend;\r\n\r\nprocedure TTMSFNCReader.Read(AObject: TObject);\r\nbegin\r\n  ReadObject(AObject);\r\nend;\r\n\r\nprocedure TTMSFNCReader.ReadBitmap(ABitmap: TTMSFNCBitmap);\r\nvar\r\n  s: string;\r\n  {$IFNDEF WEBLIB}\r\n  ms: TMemoryStream;\r\n  {$ENDIF}\r\nbegin\r\n  if Reader.IsNull then\r\n    Exit;\r\n\r\n  s := Reader.ReadString;\r\n  if s <> '' then\r\n  begin\r\n    {$IFNDEF WEBLIB}\r\n    ms := TMemoryStream.Create;\r\n    try\r\n      TTMSFNCUtils.LoadStreamFromHexStr(s, ms);\r\n      ms.Position := 0;\r\n      ABitmap.LoadFromStream(ms);\r\n    finally\r\n      ms.Free;\r\n    end;\r\n    {$ELSE}\r\n    ABitmap.Data := s;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCReader.ReadCollection(ACollection: TCollection);\r\nvar\r\n  obj: TObject;\r\n  c: TClass;\r\n  i: ITMSFNCBaseListIO;\r\n  ii: ITMSFNCBaseCollectionIO;\r\n  cl: Boolean;\r\nbegin\r\n  if Supports(ACollection, ITMSFNCBaseListIO, i) then\r\n    c := i.GetItemClass\r\n  else\r\n    c := ACollection.ItemClass;\r\n\r\n  Supports(ACollection, ITMSFNCBaseCollectionIO, ii);\r\n\r\n  cl := False;\r\n\r\n  Reader.ReadBeginArray;\r\n  if not Reader.HasNext then\r\n    ACollection.Clear\r\n  else\r\n  begin\r\n    while Reader.HasNext do\r\n    begin\r\n      if not Reader.IsNull then\r\n      begin\r\n        obj := ReadSingleObject(c);\r\n        if Assigned(obj) then\r\n        begin\r\n          if not cl then\r\n          begin\r\n            ACollection.Clear;\r\n            cl := True;\r\n          end;\r\n\r\n          try\r\n            if obj is TPersistent then\r\n            begin\r\n              if Assigned(ii) then\r\n                ii.AddItem(obj).Assign(obj as TPersistent)\r\n              else\r\n                ACollection.Add.Assign(obj as TPersistent);\r\n            end;\r\n          finally\r\n            obj.Free;\r\n          end;\r\n        end;\r\n      end\r\n      else\r\n        Reader.SkipValue;\r\n    end;\r\n  end;\r\n  Reader.ReadEndArray;\r\nend;\r\n\r\nfunction TTMSFNCReader.ReadArray(AName: string): TTMSFNCObjectArray;\r\nvar\r\n  Name: string;\r\nbegin\r\n  Reader.ReadBeginObject;\r\n  while Reader.HasNext do\r\n  begin\r\n    if not Reader.IsNull then\r\n    begin\r\n      Name := Reader.ReadName;\r\n      if Name = AName then\r\n      begin\r\n        Reader.ReadBeginArray;\r\n        while Reader.HasNext do\r\n        begin\r\n          SetLength(Result, Length(Result) + 1);\r\n          Result[Length(Result) - 1] := ReadSingleObject(TObject);\r\n        end;\r\n        Reader.ReadEndArray;\r\n      end\r\n      else\r\n        Reader.SkipValue;\r\n    end\r\n    else\r\n      Reader.SkipValue;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCReader.ReadList(AList: TList);\r\nvar\r\n  obj: TObject;\r\n  b: ITMSFNCPersistenceIO;\r\n  c: TClass;\r\n  i: ITMSFNCBaseListIO;\r\n  cl: Boolean;\r\nbegin\r\n  c := TObject;\r\n  if Supports(AList, ITMSFNCBaseListIO, i) then\r\n    c := i.GetItemClass;\r\n\r\n  cl := False;\r\n\r\n  Reader.ReadBeginArray;\r\n  if not Reader.HasNext then\r\n    AList.Clear\r\n  else\r\n  begin\r\n    while Reader.HasNext do\r\n    begin\r\n      if not Reader.IsNull then\r\n      begin\r\n        obj := ReadSingleObject(c);\r\n        if Assigned(obj) then\r\n        begin\r\n          if not cl then\r\n          begin\r\n            AList.Clear;\r\n            cl := True;\r\n          end;\r\n\r\n          if Assigned(IOReference) and Supports(IOReference, ITMSFNCPersistenceIO, b) then\r\n            b.FixOwners(obj, AList);\r\n          AList.Add(obj);\r\n        end;\r\n      end\r\n      else\r\n        Reader.SkipValue;\r\n    end;\r\n  end;\r\n  Reader.ReadEndArray;\r\nend;\r\n\r\nprocedure TTMSFNCReader.ReadObject(AObject: TObject);\r\nbegin\r\n  if AObject = nil then\r\n    Reader.ReadNull\r\n  else\r\n  begin\r\n    if TTMSFNCPersistence.IsGenericList(AObject.ClassType, 'String') then\r\n      ReadGenericStringList(TTMSFNCStringList(AObject))\r\n    else if TTMSFNCPersistence.IsGenericList(AObject.ClassType, 'Double') then\r\n      ReadGenericDoubleList(TTMSFNCDoubleList(AObject))\r\n    else if TTMSFNCPersistence.IsGenericList(AObject.ClassType, 'Integer') then\r\n      ReadGenericIntegerList(TTMSFNCIntegerList(AObject))\r\n    else if TTMSFNCPersistence.IsGenericList(AObject.ClassType) then\r\n      ReadGenericObjectList(TTMSFNCObjectList(AObject))\r\n    else if TTMSFNCPersistence.IsGenericStringDictionary(AObject.ClassType) then\r\n    begin\r\n      if TTMSFNCPersistence.IsGenericDictionaryValueTypeObject(AObject.ClassType) then\r\n        ReadGenericStringObjectDictionary(TTMSFNCStringObjectDictionary(AObject))\r\n      else\r\n        Reader.ReadNull\r\n    end\r\n    else if TTMSFNCPersistence.IsGenericIntegerDictionary(AObject.ClassType) then\r\n    begin\r\n      if TTMSFNCPersistence.IsGenericDictionaryValueTypeObject(AObject.ClassType) then\r\n        ReadGenericIntegerObjectDictionary(TTMSFNCIntegerObjectDictionary(AObject))\r\n      else if TTMSFNCPersistence.IsGenericDictionaryValueTypeInteger(AObject.ClassType) then\r\n        ReadGenericIntegerIntegerDictionary(TTMSFNCIntegerIntegerDictionary(AObject))\r\n      else if TTMSFNCPersistence.IsGenericDictionaryValueTypeBoolean(AObject.ClassType) then\r\n        ReadGenericIntegerBooleanDictionary(TTMSFNCIntegerBooleanDictionary(AObject))\r\n      else if TTMSFNCPersistence.IsGenericDictionaryValueTypeDouble(AObject.ClassType) then\r\n        ReadGenericIntegerDoubleDictionary(TTMSFNCIntegerDoubleDictionary(AObject))\r\n      else\r\n        Reader.ReadNull;\r\n    end\r\n    else if TTMSFNCPersistence.IsList(AObject.ClassType) then\r\n      ReadList(TList(AObject))\r\n    else if TTMSFNCPersistence.IsCollection(AObject.ClassType) then\r\n      ReadCollection(TCollection(AObject))\r\n    else if TTMSFNCPersistence.IsBitmap(AObject.ClassType) then\r\n      ReadBitmap(TTMSFNCBitmap(AObject))\r\n    else if TTMSFNCPersistence.IsDescendingClass(AObject.ClassType, ['TStrings']) then\r\n      ReadStrings(TStrings(AObject))\r\n    else\r\n      ReadSingleObject(AObject);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCReader.ReadProperties(AObject: TObject);\r\nvar\r\n  Prop: TTMSFNCPropertyInfo;\r\nbegin\r\n  while Reader.HasNext do\r\n  begin\r\n    if not Reader.IsNull then\r\n    begin\r\n      Prop := nil;\r\n      if Assigned(AObject) then\r\n        Prop := GetPropInfo(AObject, Reader.ReadName);\r\n      if Assigned(Prop) then\r\n        ReadProperty(AObject, Prop)\r\n      else\r\n        Reader.SkipValue;\r\n    end\r\n    else\r\n      Reader.SkipValue;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCReader.ReadProperty(AObject: TObject; AProp: TTMSFNCPropertyInfo);\r\nvar\r\n  pName: string;\r\n  ct: TClass;\r\n  b: Boolean;\r\n  p: ITMSFNCPersistence;\r\n  pio: ITMSFNCPersistenceIO;\r\n  k: TTypeKind;\r\n  a, ap: Boolean;\r\n  o: TObject;\r\n  n: string;\r\n  crw: ITMSFNCCustomReadWriteIO;\r\nbegin\r\n  if not Assigned(AProp) then\r\n    Exit;\r\n\r\n  k := TTMSFNCPersistence.GetPropInfoType(AProp);\r\n  pName := TTMSFNCPersistence.GetPropInfoName(AProp);\r\n\r\n  b := TTMSFNCUtils.IndexOfTextInArray(pName, TTMSFNCPersistence.ExcludeProperties) = -1;\r\n  if Supports(AObject, ITMSFNCPersistence, p) then\r\n    b := p.CanLoadProperty(AObject, pName, k);\r\n\r\n  if b then\r\n  begin\r\n    a := True;\r\n    if Assigned(OnCustomReadProperty) then\r\n      OnCustomReadProperty(AObject, pName, k, Reader, a);\r\n\r\n    if a and Supports(AObject, ITMSFNCCustomReadWriteIO, crw) then\r\n      crw.CustomReadProperty(AObject, pName, k, Reader, a);\r\n\r\n    if a then\r\n    begin\r\n      if k in [tkClass] then\r\n      begin\r\n        ct := TTMSFNCPersistence.GetPropInfoDataTypeInfoClassType(AProp);\r\n        if TTMSFNCPersistence.IsGenericList(ct, 'String') then\r\n          ReadGenericStringList(TTMSFNCStringList(GetObjectProp(AObject, pName)))\r\n        else if TTMSFNCPersistence.IsGenericList(ct, 'Double') then\r\n          ReadGenericDoubleList(TTMSFNCDoubleList(GetObjectProp(AObject, pName)))\r\n        else if TTMSFNCPersistence.IsGenericList(ct, 'Integer') then\r\n          ReadGenericIntegerList(TTMSFNCIntegerList(GetObjectProp(AObject, pName)))\r\n        else if TTMSFNCPersistence.IsGenericList(ct) then\r\n          ReadGenericObjectList(TTMSFNCObjectList(GetObjectProp(AObject, pName)))\r\n        else if TTMSFNCPersistence.IsGenericStringDictionary(ct) then\r\n        begin\r\n          if TTMSFNCPersistence.IsGenericDictionaryValueTypeObject(ct) then\r\n            ReadGenericStringObjectDictionary(TTMSFNCStringObjectDictionary(GetObjectProp(AObject, pName)))\r\n          else\r\n            Reader.SkipValue;\r\n        end\r\n        else if TTMSFNCPersistence.IsGenericIntegerDictionary(ct) then\r\n        begin\r\n          if TTMSFNCPersistence.IsGenericDictionaryValueTypeObject(ct) then\r\n            ReadGenericIntegerObjectDictionary(TTMSFNCIntegerObjectDictionary(GetObjectProp(AObject, pName)))\r\n          else if TTMSFNCPersistence.IsGenericDictionaryValueTypeInteger(ct) then\r\n            ReadGenericIntegerIntegerDictionary(TTMSFNCIntegerIntegerDictionary(GetObjectProp(AObject, pName)))\r\n          else if TTMSFNCPersistence.IsGenericDictionaryValueTypeBoolean(ct) then\r\n            ReadGenericIntegerBooleanDictionary(TTMSFNCIntegerBooleanDictionary(GetObjectProp(AObject, pName)))\r\n          else if TTMSFNCPersistence.IsGenericDictionaryValueTypeDouble(ct) then\r\n            ReadGenericIntegerDoubleDictionary(TTMSFNCIntegerDoubleDictionary(GetObjectProp(AObject, pName)))\r\n          else\r\n            Reader.SkipValue;\r\n        end\r\n        else if TTMSFNCPersistence.IsList(ct) then\r\n          ReadList(TList(GetObjectProp(AObject, pName)))\r\n        else if TTMSFNCPersistence.IsCollection(ct) then\r\n          ReadCollection(TCollection(GetObjectProp(AObject, pName)))\r\n        else if TTMSFNCPersistence.IsBitmap(ct) then\r\n          ReadBitmap(TTMSFNCBitmap(GetObjectProp(AObject, pName)))\r\n        else if TTMSFNCPersistence.IsDescendingClass(ct, ['TStrings']) then\r\n          ReadStrings(TStrings(GetObjectProp(AObject, pName)))\r\n        else\r\n        begin\r\n          a := False;\r\n          if Assigned(IOReference) and Supports(IOReference, ITMSFNCPersistenceIO, pio) then\r\n            a := pio.NeedsObjectReference(ct);\r\n\r\n          if a then\r\n          begin\r\n            if Reader.IsNull then\r\n            begin\r\n              Reader.ReadNull;\r\n              SetObjectProp(AObject, pName, nil);\r\n            end\r\n            else\r\n              FReferences.Add(TTMSFNCObjectReference.Create(AObject, AProp, Reader.ReadString));\r\n          end\r\n          else\r\n          begin\r\n            o := GetObjectProp(AObject, pName);\r\n\r\n            ap := TTMSFNCPersistence.IsAssignableProperty(AObject, AProp);\r\n            if Assigned(OnCustomIsAssignableProperty) then\r\n              OnCustomIsAssignableProperty(AObject, pName, ap);\r\n\r\n            if ap then\r\n            begin\r\n              n := Reader.ReadString;\r\n              if Assigned(FRootObject) and (FRootObject is TComponent) then\r\n                SetObjectProp(AObject, pName, (FRootObject as TComponent).FindComponent(n));\r\n            end\r\n            else\r\n              ReadExistingObject(o);\r\n          end;\r\n        end;\r\n      end\r\n      else\r\n        ReadPropInfoValue(AObject, AProp);\r\n    end;\r\n  end\r\n  else\r\n    Reader.SkipValue;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TTMSFNCReader.ReadPropInfoValue(AInstance: TObject; const APropInfo: TTMSFNCPropertyInfo);\r\nvar\r\n  pName, cn, cnv, en: string;\r\n  k: TTypeKind;\r\n  p: TTMSFNCPropertyInfo;\r\n  o: TObject;\r\n  i: Integer;\r\n  s: string;\r\n  b: Boolean;\r\n  d: Double;\r\n  ii: Int64;\r\n  v: string;\r\n  m: TMethod;\r\n  bsz: Boolean;\r\n  {$IFNDEF LCLLIB}\r\n  {$IFDEF WEBLIB}\r\n  vr: JSValue;\r\n  {$ELSE}\r\n  vr: Variant;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nbegin\r\n  if TTMSFNCPersistence.IsWriteOnly(APropInfo) or Reader.IsNull then\r\n  begin\r\n    Reader.ReadNull;        \r\n    Exit;\r\n  end;\r\n \r\n  o := AInstance;\r\n  p := APropInfo;\r\n  pName := TTMSFNCPersistence.GetPropInfoName(p);\r\n  k := TTMSFNCPersistence.GetPropInfoType(p);\r\n\r\n  case k of\r\n    tkInteger:\r\n    begin\r\n      cn := TTMSFNCPersistence.GetPropInfoTypeName(p);\r\n      if (cn = 'TAlphaColor') or (cn = 'TColor') or (cn = 'TGraphicsColor') then\r\n      begin\r\n        cnv := Reader.ReadString;\r\n        if not TTMSFNCPersistence.IsReadOnly(p) then\r\n        begin\r\n          if cnv = 'gcNull' then\r\n            SetOrdProp(o, pName, gcNull)\r\n          else\r\n          begin\r\n            {$RANGECHECKS OFF}\r\n            SetOrdProp(o, pName, HTMLToColorEx(cnv));\r\n            {$RANGECHECKS ON}\r\n          end;\r\n        end;\r\n      end\r\n      else\r\n      begin\r\n        i := Reader.ReadInteger;\r\n        if not TTMSFNCPersistence.IsReadOnly(p) then\r\n          SetOrdProp(o, p, i);\r\n      end;\r\n    end;\r\n    {$IFNDEF WEBLIB}tkWChar, tkLString, tkUString,{$ENDIF}tkChar, tkString{$IFDEF LCLLIB},tkAString{$ENDIF}: \r\n    begin\r\n      s := Reader.ReadString;\r\n      if not TTMSFNCPersistence.IsReadOnly(p) then\r\n        SetStrProp(o, p, s);\r\n    end;\r\n    tkEnumeration:\r\n      if TTMSFNCPersistence.GetPropInfoDataTypeInfo(p) = TypeInfo(Boolean) then\r\n      begin\r\n        b := Reader.ReadBoolean;\r\n        if not TTMSFNCPersistence.IsReadOnly(p) then        \r\n          SetOrdProp(o, p, Integer(b))\r\n      end\r\n      else\r\n      begin\r\n        i := Reader.ReadInteger;\r\n        if not TTMSFNCPersistence.IsReadOnly(p) then\r\n          SetOrdProp(o, p, i);\r\n      end;\r\n    {$IFDEF LCLWEBLIB}\r\n    tkBool:\r\n    begin\r\n      b := Reader.ReadBoolean;\r\n      if not TTMSFNCPersistence.IsReadOnly(p) then\r\n      begin\r\n        {$IFDEF LCLLIB}\r\n        SetOrdProp(o, p, Integer(b))\r\n        {$ELSE}\r\n        SetBoolProp(o, p, b)\r\n        {$ENDIF}\r\n      end;\r\n    end;\r\n    {$ENDIF}\r\n    tkFloat:\r\n    begin\r\n      d := Reader.ReadDouble;\r\n      if not TTMSFNCPersistence.IsReadOnly(p) then\r\n        SetFloatProp(o, p, d)\r\n    end;\r\n    {$IFNDEF WEBLIB}\r\n    tkInt64:\r\n    begin\r\n      ii := Reader.ReadInt64;\r\n      if not TTMSFNCPersistence.IsReadOnly(p) then\r\n        SetOrdProp(o, p, ii)\r\n    end;\r\n    {$ENDIF}\r\n    tkSet:\r\n    begin\r\n      i := Reader.ReadInteger;\r\n      if not TTMSFNCPersistence.IsReadOnly(p) then\r\n        SetOrdProp(o, p, i);\r\n    end;\r\n    {$IFNDEF LCLLIB}\r\n    {$IFDEF WEBLIB}tkJSValue{$ELSE}tkVariant{$ENDIF}:\r\n    begin\r\n      {$IFDEF WEBLIB}\r\n      vr := nil;\r\n      {$ELSE}\r\n      vr := varEmpty;\r\n      {$ENDIF}\r\n\r\n      if Reader.HasDouble then\r\n        vr := Reader.ReadDouble\r\n      else if Reader.HasInt64 then\r\n        vr := Reader.ReadInt64\r\n      else if Reader.HasBoolean then\r\n        vr := Reader.ReadBoolean\r\n      else if Reader.HasString then\r\n        vr := Reader.ReadString\r\n      else\r\n        Reader.ReadNull;\r\n\r\n      if not TTMSFNCPersistence.IsReadOnly(p) then\r\n      begin\r\n        {$IFDEF WEBLIB}\r\n        SetJSValueProp(o, p, vr);\r\n        {$ELSE}\r\n        SetVariantProp(o, p, vr);\r\n        {$ENDIF}\r\n      end;\r\n    end;\r\n    {$ENDIF}\r\n    tkMethod:\r\n    begin\r\n      m.Data := nil;\r\n      m.Code := nil;\r\n      if Reader.IsNull then\r\n        Reader.ReadNull\r\n      else\r\n      begin\r\n        if Assigned(TTMSFNCPersistence.RootObject) then\r\n        begin\r\n          v := Reader.ReadString;\r\n          m.Code := TTMSFNCPersistence.RootObject.MethodAddress(v);\r\n          if m.Code <> nil then\r\n            m.Data := TTMSFNCPersistence.RootObject;\r\n        end\r\n        else\r\n          Reader.ReadNull;\r\n      end;\r\n\r\n      SetMethodProp(o, p, m);\r\n    end\r\n    else\r\n    begin\r\n      en := TTMSFNCPersistence.GetEnumName(TypeInfo(TTypeKind), Integer(k));\r\n      Reader.ReadNull;\r\n    end;\r\n  end;\r\n\r\n  if (o is TFont) and (pName = 'Size') then\r\n  begin\r\n    if Reader.HasNext then\r\n    begin\r\n      s := Reader.PeekName;\r\n      if s = 'IsFMX' then\r\n      begin\r\n        Reader.ReadName;\r\n        bsz := Reader.ReadBoolean;\r\n        if bsz then\r\n        begin\r\n          {$IFNDEF FMXLIB}\r\n          (o as TFont).Size := Round(((o as TFont).Size / 96) * 72);\r\n          {$ENDIF}\r\n        end\r\n        else\r\n        begin\r\n          {$IFDEF FMXLIB}\r\n          (o as TFont).Size := ((o as TFont).Size / 72) * 96;\r\n          {$ENDIF}\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TTMSFNCReader.ReadSingleObject(AObject: TObject);\r\nbegin\r\n  Reader.ReadBeginObject;\r\n  if TTMSFNCPersistence.ClassTypeVariable <> '' then\r\n  begin\r\n    if not Reader.HasNext or (Reader.ReadName <> TTMSFNCPersistence.ClassTypeVariable) then\r\n      raise ETMSFNCReaderException.Create('\"'+TTMSFNCPersistence.ClassTypeVariable+'\" property not found in Object descriptor.');\r\n    Reader.ReadString;\r\n  end;\r\n\r\n  try\r\n    ReadProperties(AObject);\r\n    Reader.ReadEndObject;\r\n  except\r\n    raise;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCReader.ReadStrings(AList: TStrings);\r\nvar\r\n  obj: string;\r\nbegin\r\n  AList.Clear;\r\n  Reader.ReadBeginArray;\r\n  while Reader.HasNext do\r\n  begin\r\n    if not Reader.IsNull then\r\n    begin\r\n      obj := Reader.ReadString;\r\n      AList.Add(obj);\r\n    end\r\n    else\r\n      Reader.SkipValue;\r\n  end;\r\n  Reader.ReadEndArray;\r\nend;\r\n\r\nprocedure TTMSFNCReader.SetExcludeProperties(\r\n  const Value: TTMSFNCExcludePropertyListArray);\r\nbegin\r\n  FExcludeProperties := Value;\r\n  TTMSFNCPersistence.ExcludeProperties := FExcludeProperties;\r\nend;\r\n\r\nprocedure TTMSFNCReader.SetIOReference(const Value: TObject);\r\nbegin\r\n  FIOReference := Value;\r\n  TTMSFNCPersistence.IOReference := FIOReference;\r\nend;\r\n\r\nprocedure TTMSFNCReader.SetRootObject(const Value: TObject);\r\nbegin\r\n  FRootObject := Value;\r\n  TTMSFNCPersistence.RootObject := FRootObject;\r\nend;\r\n\r\nprocedure TTMSFNCReader.SolveReferences;\r\nvar\r\n  b: ITMSFNCPersistenceIO;\r\n  r: Integer;\r\n  rf: TTMSFNCObjectReference;\r\n  o: TObject;\r\nbegin\r\n  if Assigned(IOReference) and Supports(IOReference, ITMSFNCPersistenceIO, b) then\r\n  begin\r\n    for r := 0 to FReferences.Count - 1 do\r\n    begin\r\n      rf := FReferences[r];\r\n      o := b.FindObject(rf.Id);\r\n      SetObjectProp(rf.Instance, rf.Prop, o);\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCObjectReference }\r\n\r\nconstructor TTMSFNCObjectReference.Create(AInstance: TObject;\r\n  AProp: TTMSFNCPropertyInfo; const AId: string);\r\nbegin\r\n  Instance := AInstance;\r\n  Prop := AProp;\r\n  Id := AId;\r\nend;\r\n\r\n{ TTMSFNCPersistence }\r\n\r\nclass procedure TTMSFNCPersistence.LoadSettingsFromFile(AObject: TObject; AFileName: string);\r\nvar\r\n  ms: TMemoryStream;\r\nbegin\r\n  ms := TMemoryStream.Create;\r\n  try\r\n    {$IFNDEF WEBLIB}\r\n    ms.LoadFromFile(AFileName);\r\n    {$ENDIF}\r\n    LoadSettingsFromStream(AObject, ms);\r\n  finally\r\n    ms.Free;\r\n  end;\r\nend;\r\n\r\nclass procedure TTMSFNCPersistence.LoadSettingsFromStream(AObject: TObject; AStream: TStream);\r\nvar\r\n  Reader: TTMSFNCReader;\r\nbegin\r\n  AStream.Position := 0;\r\n  Reader := TTMSFNCReader.Create(AStream);\r\n  try\r\n    Reader.IOReference := TTMSFNCPersistence.IOReference;\r\n    Reader.RootObject := TTMSFNCPersistence.RootObject;\r\n    Reader.OnCustomReadProperty := DoCustomReadProperty;\r\n    Reader.Read(AObject);\r\n  finally\r\n    Reader.Free;\r\n  end;\r\nend;\r\n\r\nclass procedure TTMSFNCPersistence.SaveSettingsToFile(AObject: TObject;\r\n  AFileName: string);\r\nvar\r\n  ms: TMemoryStream;\r\nbegin\r\n  ms := TMemoryStream.Create;\r\n  try\r\n    SaveSettingsToStream(AObject, ms);\r\n    ms.SaveToFile(AFileName);\r\n  finally\r\n    ms.Free;\r\n  end;\r\nend;\r\n\r\nclass procedure TTMSFNCPersistence.SaveSettingsToStream(AObject: TObject;\r\n  AStream: TStream);\r\nvar\r\n  Writer: TTMSFNCWriter;\r\nbegin\r\n  Writer := TTMSFNCWriter.Create(AStream);\r\n  try\r\n    Writer.IOReference := TTMSFNCPersistence.IOReference;\r\n    Writer.RootObject := TTMSFNCPersistence.RootObject;\r\n    Writer.OnCustomWriteProperty := DoCustomWriteProperty;\r\n    Writer.Write(AObject);\r\n  finally\r\n    Writer.Free;\r\n  end;\r\nend;\r\n\r\n{$HINTS OFF}\r\nclass procedure TTMSFNCPersistence.GetEnumValues(AValues: TStrings; APropInfo: TTMSFNCPropertyInfo);\r\nvar\r\n  p: PTypeInfo;\r\n  {$IFNDEF WEBLIB}\r\n  su: PTypeData;\r\n  {$IFNDEF LCLLIB}\r\n  ct: PPTypeInfo;\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ct: PTypeInfo;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  pi: TTypeInfoInteger;\r\n  ps: PTypeInfo;\r\n  {$ENDIF}\r\n  I: Integer;\r\n  k: TTypeKind;\r\nbegin\r\n  p := GetTypeInfoEx(APropInfo);\r\n  {$IFNDEF WEBLIB}\r\n  su := GetTypeData(p);\r\n  if Assigned(su) then\r\n  begin\r\n    if p{$IFDEF LCLLIB}^{$ENDIF}.Kind = tkSet then\r\n    begin\r\n      ct := su^.CompType;\r\n      if Assigned(ct) then\r\n      begin\r\n        k := ct^.Kind;\r\n        case k of\r\n          tkEnumeration:\r\n          begin\r\n            su := GetTypeData(ct{$IFNDEF LCLLIB}^{$ENDIF});\r\n            for i := su^.MinValue to su^.MaxValue do\r\n              AValues.Add(TTMSFNCPersistence.GetEnumName(ct{$IFNDEF LCLLIB}^{$ENDIF},i));\r\n          end;\r\n        end;\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      for i := su^.MinValue to su^.MaxValue do\r\n        AValues.Add(TTMSFNCPersistence.GetEnumName(p,i));\r\n    end;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  if Assigned(p) and (p is TTypeInfoSet) then\r\n    p := TTypeInfoSet(p).comptype;\r\n\r\n  if Assigned(p) and (p is TTypeInfoInteger) then\r\n  begin\r\n   pi := TTypeInfoInteger(p);\r\n   for i := pi.MinValue to pi.MaxValue do\r\n     AValues.Add(TTMSFNCPersistence.GetEnumName(p, i));\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCPersistence.GetGenericDictionaryValueType(\r\n  AClass: TClass): TClass;\r\nvar\r\n  cn: string;\r\n  po, pc, poc: Integer;\r\n  fn: string;\r\n  sl: TStringList;\r\n  c, I: Integer;\r\n  p: TPersistentClass;\r\nbegin\r\n  if not Assigned(AClass) then\r\n    Exit(TClass(TObject));\r\n  repeat\r\n    cn := AClass.ClassName;\r\n    if AnsiStartsStr('TDictionary<', cn) or AnsiStartsStr('TObjectDictionary<', cn) then\r\n    begin\r\n      po := Pos('<', cn);\r\n      pc := Pos('>', cn);\r\n      if (po > 0) and (pc > 0) then\r\n      begin\r\n        fn := Copy(cn, po+1, pc - po - 1);\r\n        poc := Pos(',', fn);\r\n\r\n        if poc > 0 then\r\n        begin\r\n          fn := Copy(fn, poc + 1, Length(fn) - poc);\r\n          sl := TStringList.Create;\r\n          try\r\n            sl.Delimiter := '.';\r\n            sl.DelimitedText := fn;\r\n\r\n            while sl.Count > 0 do\r\n            begin\r\n              fn := sl.DelimitedText;\r\n              p := GetClass(fn);\r\n              if Assigned(p) then\r\n                Exit(p);\r\n\r\n              sl.Delete(0);\r\n            end;\r\n\r\n          finally\r\n            sl.Free;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n    AClass := AClass.ClassParent;\r\n  until not Assigned(AClass);\r\n  Result := TClass(TObject);\r\nend;\r\n\r\nclass function TTMSFNCPersistence.IsGenericDictionaryValueTypeBoolean(\r\n  AClass: TClass): Boolean;\r\nvar\r\n  cn: string;\r\n  po, pc, poc: Integer;\r\n  fn: string;\r\n  sl: TStringList;\r\n  c, I: Integer;\r\nbegin\r\n  if not Assigned(AClass) then\r\n    Exit(False);\r\n  repeat\r\n    cn := AClass.ClassName;\r\n    if AnsiStartsStr('TDictionary<', cn) or AnsiStartsStr('TObjectDictionary<', cn) then\r\n    begin\r\n      po := Pos('<', cn);\r\n      pc := Pos('>', cn);\r\n      if (po > 0) and (pc > 0) then\r\n      begin\r\n        fn := Copy(cn, po+1, pc - po - 1);\r\n        poc := Pos(',', fn);\r\n\r\n        if poc > 0 then\r\n        begin\r\n          fn := Copy(fn, poc + 1, Length(fn) - poc);\r\n          sl := TStringList.Create;\r\n          try\r\n            sl.Delimiter := '.';\r\n            sl.DelimitedText := fn;\r\n\r\n            while sl.Count > 0 do\r\n            begin\r\n              fn := sl.DelimitedText;\r\n              if (UpperCase(fn) = 'BOOLEAN') or (UpperCase(fn) = 'SYSTEM.BOOLEAN') then\r\n                Exit(True);\r\n\r\n              sl.Delete(0);\r\n            end;\r\n\r\n          finally\r\n            sl.Free;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n    AClass := AClass.ClassParent;\r\n  until not Assigned(AClass);\r\n  Result := False;\r\nend;\r\n\r\nclass function TTMSFNCPersistence.IsGenericDictionaryValueTypeDouble(\r\n  AClass: TClass): Boolean;\r\nvar\r\n  cn: string;\r\n  po, pc, poc: Integer;\r\n  fn: string;\r\n  sl: TStringList;\r\n  c, I: Integer;\r\nbegin\r\n  if not Assigned(AClass) then\r\n    Exit(False);\r\n  repeat\r\n    cn := AClass.ClassName;\r\n    if AnsiStartsStr('TDictionary<', cn) or AnsiStartsStr('TObjectDictionary<', cn) then\r\n    begin\r\n      po := Pos('<', cn);\r\n      pc := Pos('>', cn);\r\n      if (po > 0) and (pc > 0) then\r\n      begin\r\n        fn := Copy(cn, po+1, pc - po - 1);\r\n        poc := Pos(',', fn);\r\n\r\n        if poc > 0 then\r\n        begin\r\n          fn := Copy(fn, poc + 1, Length(fn) - poc);\r\n          sl := TStringList.Create;\r\n          try\r\n            sl.Delimiter := '.';\r\n            sl.DelimitedText := fn;\r\n\r\n            while sl.Count > 0 do\r\n            begin\r\n              fn := sl.DelimitedText;\r\n              if (UpperCase(fn) = 'DOUBLE') or (UpperCase(fn) = 'SYSTEM.DOUBLE') then\r\n                Exit(True);\r\n\r\n              sl.Delete(0);\r\n            end;\r\n\r\n          finally\r\n            sl.Free;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n    AClass := AClass.ClassParent;\r\n  until not Assigned(AClass);\r\n  Result := False;\r\nend;\r\n\r\nclass function TTMSFNCPersistence.IsGenericDictionaryValueTypeInteger(\r\n  AClass: TClass): Boolean;\r\nvar\r\n  cn: string;\r\n  po, pc, poc: Integer;\r\n  fn: string;\r\n  sl: TStringList;\r\n  c, I: Integer;\r\nbegin\r\n  if not Assigned(AClass) then\r\n    Exit(False);\r\n  repeat\r\n    cn := AClass.ClassName;\r\n    if AnsiStartsStr('TDictionary<', cn) or AnsiStartsStr('TObjectDictionary<', cn) then\r\n    begin\r\n      po := Pos('<', cn);\r\n      pc := Pos('>', cn);\r\n      if (po > 0) and (pc > 0) then\r\n      begin\r\n        fn := Copy(cn, po+1, pc - po - 1);\r\n        poc := Pos(',', fn);\r\n\r\n        if poc > 0 then\r\n        begin\r\n          fn := Copy(fn, poc + 1, Length(fn) - poc);\r\n          sl := TStringList.Create;\r\n          try\r\n            sl.Delimiter := '.';\r\n            sl.DelimitedText := fn;\r\n\r\n            while sl.Count > 0 do\r\n            begin\r\n              fn := sl.DelimitedText;\r\n              if (UpperCase(fn) = 'INTEGER') or (UpperCase(fn) = 'SYSTEM.INTEGER')\r\n                or (UpperCase(fn) = 'LONGINT') or (UpperCase(fn) = 'SYSTEM.LONGINT') then\r\n                  Exit(True);\r\n\r\n              sl.Delete(0);\r\n            end;\r\n\r\n          finally\r\n            sl.Free;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n    AClass := AClass.ClassParent;\r\n  until not Assigned(AClass);\r\n  Result := False;\r\nend;\r\n\r\nclass function TTMSFNCPersistence.IsGenericDictionaryValueTypeObject(\r\n  AClass: TClass): Boolean;\r\nvar\r\n  cn: string;\r\n  po, pc, poc: Integer;\r\n  fn: string;\r\n  sl: TStringList;\r\n  c, I: Integer;\r\n  p: TPersistentClass;\r\nbegin\r\n  if not Assigned(AClass) then\r\n    Exit(False);\r\n  repeat\r\n    cn := AClass.ClassName;\r\n    if AnsiStartsStr('TDictionary<', cn) or AnsiStartsStr('TObjectDictionary<', cn) then\r\n    begin\r\n      po := Pos('<', cn);\r\n      pc := Pos('>', cn);\r\n      if (po > 0) and (pc > 0) then\r\n      begin\r\n        fn := Copy(cn, po+1, pc - po - 1);\r\n        poc := Pos(',', fn);\r\n\r\n        if poc > 0 then\r\n        begin\r\n          fn := Copy(fn, poc + 1, Length(fn) - poc);\r\n          sl := TStringList.Create;\r\n          try\r\n            sl.Delimiter := '.';\r\n            sl.DelimitedText := fn;\r\n\r\n            while sl.Count > 0 do\r\n            begin\r\n              fn := sl.DelimitedText;\r\n              p := GetClass(fn);\r\n              if Assigned(p) then\r\n                Exit(True);\r\n\r\n              sl.Delete(0);\r\n            end;\r\n\r\n          finally\r\n            sl.Free;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n    AClass := AClass.ClassParent;\r\n  until not Assigned(AClass);\r\n  Result := False;\r\nend;\r\n\r\nclass function TTMSFNCPersistence.GetGenericListType(AClass: TClass): TClass;\r\nvar\r\n  cn: string;\r\n  po, pc: Integer;\r\n  fn: string;\r\n  sl: TStringList;\r\n  c, I: Integer;\r\n  p: TPersistentClass;\r\nbegin\r\n  if not Assigned(AClass) then\r\n    Exit(TClass(TObject));\r\n  repeat\r\n    cn := AClass.ClassName;\r\n    if AnsiStartsStr('TList<', cn) or AnsiStartsStr('TObjectList<', cn) then\r\n    begin\r\n      po := Pos('<', cn);\r\n      pc := Pos('>', cn);\r\n      if (po > 0) and (pc > 0) then\r\n      begin\r\n        fn := Copy(cn, po+1, pc - po - 1);\r\n\r\n        sl := TStringList.Create;\r\n        try\r\n          sl.Delimiter := '.';\r\n          sl.DelimitedText := fn;\r\n\r\n          while sl.Count > 0 do\r\n          begin\r\n            fn := sl.DelimitedText;\r\n            p := GetClass(fn);\r\n            if Assigned(p) then\r\n              Exit(p);\r\n\r\n            sl.Delete(0);\r\n          end;\r\n\r\n        finally\r\n          sl.Free;\r\n        end;\r\n      end;\r\n    end;\r\n    AClass := AClass.ClassParent;\r\n  until not Assigned(AClass);\r\n  Result := TClass(TObject);\r\nend;\r\n\r\nclass function TTMSFNCPersistence.GetPropInfoDataTypeInfoClassType(APropInfo: TTMSFNCPropertyInfo): TClass;\r\n{$IFDEF WEBLIB}\r\nvar\r\n  t: PTypeInfo;\r\n{$ENDIF}\r\nbegin\r\n  {$IFNDEF WEBLIB}\r\n  Result := GetTypeData(APropInfo^.PropType{$IFNDEF LCLLIB}^{$ENDIF})^.ClassType\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Result := nil;\r\n  if Assigned(APropInfo) and Assigned(APropInfo.typeinfo) then\r\n  begin\r\n    t := APropInfo.typeinfo;\r\n    asm\r\n      if (t.class){\r\n        return t.class.ClassType();\r\n      }\r\n    end;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n{$HINTS ON}\r\n\r\nclass function TTMSFNCPersistence.GetPropInfoDataTypeInfo(\r\n  APropInfo: TTMSFNCPropertyInfo): PTypeInfo;\r\nbegin\r\n  {$IFNDEF WEBLIB}\r\n  Result := GetTypeData(APropInfo^.PropType{$IFNDEF LCLLIB}^{$ENDIF})^.BaseType{$IFNDEF LCLLIB}^{$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Result := nil;\r\n  if Assigned(APropInfo) then\r\n    Result := APropInfo.typeinfo;\r\n  {$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCPersistence.GetPropInfoName(APropInfo: TTMSFNCPropertyInfo): string;\r\nbegin\r\n  {$IFNDEF WEBLIB}\r\n  Result := GetShortStringString(@APropInfo{$IFDEF LCLLIB}^{$ENDIF}.Name);\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Result := APropInfo.name;\r\n  {$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCPersistence.GetPropInfoType(APropInfo: TTMSFNCPropertyInfo): TTypeKind;\r\nbegin\r\n  {$IFNDEF WEBLIB}\r\n  Result := APropInfo^.PropType^{$IFNDEF LCLLIB}^{$ENDIF}.Kind;\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  if Assigned(APropInfo.typeinfo) then\r\n    Result := APropInfo.typeinfo.kind\r\n  else\r\n    Result := tkUnknown;\r\n  {$ENDIF}\r\nend;\r\n\r\nclass procedure TTMSFNCPersistence.DoCustomReadProperty(AObject: TObject;\r\n  APropertyName: string; APropertyKind: TTypeKind; AReader: TTMSFNCJSONReader;\r\n  var ACanRead: Boolean);\r\nbegin\r\n  if Assigned(OnCustomReadProperty) then\r\n    OnCustomReadProperty(AObject, APropertyName, APropertyKind, AReader, ACanRead);\r\nend;\r\n\r\nclass procedure TTMSFNCPersistence.DoCustomWriteProperty(AObject: TObject;\r\n  APropertyName: string; APropertyKind: TTypeKind; AWriter: TTMSFNCJSONWriter;\r\n  var ACanWrite: Boolean);\r\nbegin\r\n  if Assigned(OnCustomWriteProperty) then\r\n    OnCustomWriteProperty(AObject, APropertyName, APropertyKind, AWriter, ACanWrite);\r\nend;\r\n\r\nclass function TTMSFNCPersistence.GetEnumName(ATypeInfo: PTypeInfo; AValue: Integer): string;\r\nbegin\r\n  {$IFNDEF WEBLIB}\r\n  Result := TypInfo.GetEnumName(ATypeInfo, AValue);\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Result := TTypeInfoEnum(ATypeInfo).EnumType.IntToName[AValue];\r\n  {$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCPersistence.GetPropInfoTypeName(APropInfo: TTMSFNCPropertyInfo): string;\r\nbegin\r\n  {$IFNDEF WEBLIB}\r\n  Result := GetShortStringString(@APropInfo{$IFDEF LCLLIB}^{$ENDIF}.PropType^.Name);\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Result := '';\r\n  if Assigned(APropInfo.typeinfo) then\r\n    Result := APropInfo.typeinfo.name;\r\n  {$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCPersistence.IsList(AClass: TClass): boolean;\r\nbegin\r\n  Result := IsDescendingClass(AClass, ['TList']);\r\nend;\r\n\r\nclass function TTMSFNCPersistence.IsAssignableProperty(AObject: TObject;\r\n  APropInfo: TTMSFNCPropertyInfo): Boolean;\r\nvar\r\n  oProp: TObject;\r\n  k: TTypeKind;\r\n  pName: string;\r\nbegin\r\n  Result := False;\r\n  k := GetPropInfoType(APropInfo);\r\n  if k in [tkClass] then\r\n  begin\r\n    pName := GetPropInfoName(APropInfo);\r\n    oProp := GetObjectProp(AObject, pName);\r\n    Result := (Assigned(oProp) and IsComponent(oProp.ClassType)) or not Assigned(oProp);\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCPersistence.IsBitmap(AClass: TClass): Boolean;\r\nbegin\r\n  Result := IsDescendingClass(AClass, ['TBitmap', 'TPicture', 'TTMSFNCBitmap'{$IFDEF WEBLIB}, 'TGraphic'{$ENDIF}]);\r\nend;\r\n\r\nclass function TTMSFNCPersistence.IsReadOnly(\r\n  APropInfo: TTMSFNCPropertyInfo): Boolean;\r\nbegin\r\n  {$IFNDEF WEBLIB}\r\n  Result := APropInfo^.SetProc = nil;\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Result := APropInfo.setter = '';\r\n  {$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCPersistence.IsStrings(AClass: TClass): Boolean;\r\nbegin\r\n  Result := IsDescendingClass(AClass, ['TStrings']);\r\nend;\r\n\r\nclass function TTMSFNCPersistence.IsStrokeKind(APropertyName: string): Boolean;\r\nbegin\r\n  Result := (APropertyName = 'TTMSFNCGraphicsStrokeKind');\r\nend;\r\n\r\nclass function TTMSFNCPersistence.IsTime(APropertyName: string): Boolean;\r\nbegin\r\n  Result := (APropertyName = 'TTime');\r\nend;\r\n\r\nclass function TTMSFNCPersistence.IsWriteOnly(APropInfo: TTMSFNCPropertyInfo): Boolean;\r\nbegin\r\n  {$IFNDEF WEBLIB}\r\n  Result := APropInfo^.GetProc = nil;\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Result := APropInfo.getter = '';\r\n  {$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCPersistence.IsCollection(AClass: TClass): Boolean;\r\nbegin\r\n  Result := IsDescendingClass(AClass, ['TCollection']);\r\nend;\r\n\r\nclass function TTMSFNCPersistence.IsColor(APropertyName: string): Boolean;\r\nbegin\r\n  Result := (APropertyName = 'TAlphaColor') or (APropertyName = 'TColor') or (APropertyName = 'TGraphicsColor');\r\nend;\r\n\r\nclass function TTMSFNCPersistence.IsComponent(AClass: TClass): Boolean;\r\nbegin\r\n  Result := IsDescendingClass(AClass, ['TComponent', 'TTMSFNCCustomComponent']);\r\nend;\r\n\r\nclass function TTMSFNCPersistence.IsControl(AClass: TClass): Boolean;\r\nbegin\r\n  Result := IsDescendingClass(AClass, ['TControl']);\r\nend;\r\n\r\nclass function TTMSFNCPersistence.IsDate(APropertyName: string): Boolean;\r\nbegin\r\n  Result := (APropertyName = 'TDate');\r\nend;\r\n\r\nclass function TTMSFNCPersistence.IsDateTime(APropertyName: string): Boolean;\r\nbegin\r\n  Result := (APropertyName = 'TDateTime');\r\nend;\r\n\r\nclass function TTMSFNCPersistence.IsDescendingClass(AClass: TClass;\r\n  AClassParentList: array of string): Boolean;\r\nvar\r\n  cn: string;\r\n  I: Integer;\r\nbegin\r\n  if not Assigned(AClass) then\r\n    Exit(False);\r\n  repeat\r\n    cn := AClass.ClassName;\r\n    for I := 0 to Length(AClassParentList) - 1 do\r\n    begin\r\n      if (cn = AClassParentList[I]) then\r\n        Exit(True);\r\n    end;\r\n    AClass := AClass.ClassParent;\r\n  until not Assigned(AClass);\r\n  Result := False;\r\nend;\r\n\r\nclass function TTMSFNCPersistence.IsFillKind(APropertyName: string): Boolean;\r\nbegin\r\n  Result := (APropertyName = 'TTMSFNCGraphicsFillKind');\r\nend;\r\n\r\nclass function TTMSFNCPersistence.IsGenericDictionary(AClass: TClass): Boolean;\r\nvar\r\n  cn: string;\r\nbegin\r\n  if not Assigned(AClass) then\r\n    Exit(False);\r\n  repeat\r\n    cn := AClass.ClassName;\r\n    if AnsiStartsStr('TDictionary<', cn) or AnsiStartsStr('TObjectDictionary<', cn) then\r\n      Exit(True);\r\n    AClass := AClass.ClassParent;\r\n  until not Assigned(AClass);\r\n  Result := False;\r\nend;\r\n\r\nclass function TTMSFNCPersistence.IsGenericStringDictionary(AClass: TClass): Boolean;\r\nvar\r\n  cn: string;\r\nbegin\r\n  if not Assigned(AClass) then\r\n    Exit(False);\r\n  repeat\r\n    cn := AClass.ClassName;\r\n    if AnsiStartsStr('TDictionary<string', cn) or AnsiStartsStr('TObjectDictionary<string', cn) or\r\n      AnsiStartsStr('TDictionary<System.string', cn) or AnsiStartsStr('TObjectDictionary<System.string', cn) then\r\n        Exit(True);\r\n    AClass := AClass.ClassParent;\r\n  until not Assigned(AClass);\r\n  Result := False;\r\nend;\r\n\r\nclass function TTMSFNCPersistence.IsGenericIntegerDictionary(AClass: TClass): Boolean;\r\nvar\r\n  cn: string;\r\nbegin\r\n  if not Assigned(AClass) then\r\n    Exit(False);\r\n  repeat\r\n    cn := AClass.ClassName;\r\n    if AnsiStartsStr('TDictionary<Integer', cn) or AnsiStartsStr('TObjectDictionary<Integer', cn) or\r\n      AnsiStartsStr('TDictionary<System.Integer', cn) or AnsiStartsStr('TObjectDictionary<System.Integer', cn) or\r\n        AnsiStartsStr('TDictionary<System.Longint', cn) or AnsiStartsStr('TObjectDictionary<System.Longint', cn) then\r\n          Exit(True);\r\n    AClass := AClass.ClassParent;\r\n  until not Assigned(AClass);\r\n  Result := False;\r\nend;\r\n\r\nclass function TTMSFNCPersistence.IsGenericList(AClass: TClass; AType: string = ''): Boolean;\r\nvar\r\n  cn: string;\r\nbegin\r\n  if not Assigned(AClass) then\r\n    Exit(False);\r\n  repeat\r\n    cn := AClass.ClassName;\r\n    if AnsiStartsStr('TList<', cn) or AnsiStartsStr('TObjectList<', cn) then\r\n    begin\r\n      if (AType = '') or ((AType <> '') and (Pos(LowerCase(AType), LowerCase(cn)) > 0) or (Pos(LowerCase(AType), LowerCase(cn)) > 0)) then\r\n        Exit(True);\r\n    end;\r\n    AClass := AClass.ClassParent;\r\n  until not Assigned(AClass);\r\n  Result := False;\r\nend;\r\n\r\nclass function TTMSFNCPersistence.CreateObject(const AClassName: string;\r\n  BaseClass: TClass): TObject;\r\nvar\r\n  ObjType: TPersistentClass;\r\nbegin\r\n  ObjType := GetClass(AClassName);\r\n  if (ObjType = nil) then\r\n  begin\r\n    if TTMSFNCPersistence.IgnoreExceptions then\r\n    begin\r\n      Result := nil;\r\n      Exit;\r\n    end\r\n    else\r\n      raise ETMSFNCReaderException.CreateFmt('Type \"%s\" not found', [AClassName]);\r\n  end;\r\n  \r\n  if not TTMSFNCPersistence.IgnoreExceptions then\r\n  begin\r\n    if not ObjType.InheritsFrom(TObject) then\r\n      raise ETMSFNCReaderException.Create('Type \"%s\" is not an class type');\r\n    \r\n    if BaseClass <> nil then\r\n      if not ObjType.InheritsFrom(BaseClass) then\r\n        raise ETMSFNCReaderException.CreateFmt('Type \"%s\" does not inherit from %s',\r\n          [AClassName, BaseClass.ClassName]);\r\n  end;\r\n\r\n  {$IFDEF CMNWEBLIB}\r\n  if ObjType.InheritsFrom(TCustomControl) then\r\n    Result := TCustomControlClass(ObjType).Create(nil)\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  if ObjType.InheritsFrom(TControl) then\r\n    Result := TControlClass(ObjType).Create(nil)\r\n  {$ENDIF}\r\n  else if ObjType.InheritsFrom(TComponent) then\r\n    Result := TComponentClass(ObjType).Create(nil)\r\n  else if ObjType.InheritsFrom(TCollectionItem) then\r\n    Result := TCollectionItemClass(ObjType).Create(nil)\r\n  else if ObjType.InheritsFrom(TPersistent) then\r\n    Result := TPersistentClass(ObjType).Create\r\n  else\r\n    raise ETMSFNCReaderException.CreateFmt('Type \"%s\" not supported', [AClassName]);\r\nend;\r\n\r\n{ TTMSFNCObjectPersistence }\r\n\r\nclass procedure TTMSFNCObjectPersistence.LoadObjectFromString(AObject: TObject; AString: string);\r\nvar\r\n  ms: TStringStream;\r\nbegin\r\n  ms := TStringStream.Create(AString{$IFDEF WEBLIB}, TEncoding.UTF8{$ENDIF});\r\n  try\r\n    TTMSFNCPersistence.LoadSettingsFromStream(AObject, ms);\r\n  finally\r\n    ms.Free;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCObjectPersistence.SaveObjectToString(\r\n  AObject: TObject): string;\r\nvar\r\n  ss: TStringStream;\r\nbegin\r\n  ss := TStringStream.Create(''{$IFDEF WEBLIB}, TEncoding.UTF8{$ENDIF});\r\n  try\r\n    TTMSFNCPersistence.SaveSettingsToStream(AObject, ss);\r\n    ss.Position := 0;\r\n    Result := ss.DataString;\r\n  finally\r\n    ss.Free;\r\n  end;\r\nend;\r\n\r\n{$IFDEF FNCLIB}\r\n\r\n{ TTMSFNCJSONToClass }\r\n\r\nclass procedure TTMSFNCJSONToClass.JSONValueToClass(AParentProperty: TTMSFNCJSONToClassProperty; AJSONValue: TJSONValue);\r\nvar\r\n  v: TJSONValue;\r\n  n: string;\r\n  p: TTMSFNCJSONToClassProperty;\r\n  sz: Integer;\r\n  K: Integer;\r\n  t: TTMSFNCJSONToClassPropertyType;\r\n  ci: TTMSFNCJSONToClassItem;\r\nbegin\r\n  if AJSONValue is TJSONObject then\r\n  begin\r\n    ci := TTMSFNCJSONToClassItem.Create(AParentProperty);\r\n    FClasses.Add(ci);\r\n\r\n    sz := TTMSFNCUtils.GetJSONObjectSize(AJSONValue as TJSONObject);\r\n    for k := 0 to sz - 1 do\r\n    begin\r\n      n := TTMSFNCUtils.GetJSONObjectName(AJSONValue as TJSONObject, k);\r\n      v := TTMSFNCUtils.GetJSONValue(AJSONValue, n);\r\n\r\n      p := nil;\r\n      if Assigned(v) then\r\n      begin\r\n        t := JSONValueToPropertyType(v);\r\n        if t <> cptUndefined then\r\n        begin\r\n          p := TTMSFNCJSONToClassProperty.Create(n, t);\r\n          ci.Properties.Add(p);\r\n        end;\r\n      end;\r\n\r\n      JSONValueToClass(p, v);\r\n    end;\r\n  end\r\n  else if AJSONValue is TJSONArray then\r\n  begin\r\n    if TTMSFNCUtils.GetJSONArraySize(AJSONValue as TJSONArray) > 0 then\r\n    begin\r\n      t := JSONValueToPropertyType(AJSONValue);\r\n      v := TTMSFNCUtils.GetJSONArrayItem(AJSONValue as TJSONArray, 0);\r\n      if not Assigned(AParentProperty) and (t <> cptUndefined) then\r\n      begin\r\n        ci := TTMSFNCJSONToClassItem.Create(nil);\r\n        p := TTMSFNCJSONToClassProperty.Create('Items', t);\r\n        ci.Properties.Add(p);\r\n        FClasses.Add(ci);\r\n        AParentProperty := p;\r\n      end;\r\n\r\n      JSONValueToClass(AParentProperty, v);\r\n    end\r\n    else\r\n    begin\r\n      ci := TTMSFNCJSONToClassItem.Create(AParentProperty);\r\n      FClasses.Add(ci);\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCJSONToClass.JSONValueToPropertyType(\r\n  AJSONValue: TJSONValue): TTMSFNCJSONToClassPropertyType;\r\nvar\r\n  s: string;\r\n  dt: TDateTime;\r\n  b: Boolean;\r\n  v: TJSONValue;\r\n  p: TTMSFNCJSONToClassPropertyType;\r\n  d: Double;\r\n  i: Integer;\r\n  i64: Int64;\r\nbegin\r\n  Result := cptUndefined;\r\n  if not Assigned(AJSONValue) then\r\n    Exit;\r\n\r\n  if AJSONValue is TJSONObject then\r\n    Result := cptObject\r\n  else if AJSONValue is TJSONArray then\r\n  begin\r\n    Result := cptObjectArray;\r\n    if TTMSFNCUtils.GetJSONArraySize(AJSONValue as TJSONArray) > 0 then\r\n    begin\r\n      v := TTMSFNCUtils.GetJSONArrayItem(AJSONValue as TJSONArray, 0);\r\n      if Assigned(v) then\r\n      begin\r\n        p := JSONValueToPropertyType(v);\r\n        case p of\r\n          cptString: Result := cptStringArray;\r\n          cptBoolean: Result := cptBooleanArray;\r\n          cptDateTime: Result := cptDateTimeArray;\r\n          cptObject: Result := cptObjectArray;\r\n          cptDouble: Result := cptDoubleArray;\r\n          cptInteger: Result := cptIntegerArray;\r\n          cptInteger64: Result := cptInteger64Array;\r\n        end;\r\n      end;\r\n    end;\r\n  end\r\n  else if AJSONValue is TJSONNumber then\r\n  begin\r\n    s := AJSONValue.Value;\r\n    if TryStrToInt(s, i) then\r\n      Result := cptInteger\r\n    else if TryStrToInt64(s, i64) then\r\n      Result := cptInteger64\r\n    else if not TTMSFNCUtils.TryStrToFloatDot(s, d) then\r\n      Result := cptString\r\n    else\r\n      Result := cptDouble;\r\n  end\r\n  {$IFDEF LCLLIB}\r\n  else if AJSONValue is TJSONBoolean then\r\n    Result := cptBoolean\r\n  {$ENDIF}\r\n  {$IFNDEF LCLLIB}\r\n  else if (AJSONValue is TJSONTrue) or (AJSONValue is TJSONFalse) then\r\n    Result := cptBoolean\r\n  {$ENDIF}\r\n  else if AJSONValue is TJSONString then\r\n  begin\r\n    s := AJSONValue.Value;\r\n\r\n    if TTMSFNCUtils.TryStrToFloatDot(s, d) then\r\n      Result := cptString\r\n    else if TTMSFNCUtils.IsDate(s, dt) or {$IFDEF FNCLIB}(TTMSFNCUtils.ISOToDateTime(s, True) > 0) or{$ENDIF} TryStrToDateTime(s, dt) then\r\n      Result := cptDateTime\r\n    else if TryStrToBool(s, b) then\r\n      Result := cptBoolean\r\n    else\r\n      Result:= cptString;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCJSONToClass.ExportToDelphiFromFile(AFileName: string; ACallBack: TTMSFNCJSONToClassExportEvent = nil): string;\r\nbegin\r\n  Result := ExportToDelphiFromFile(AFileName, DefaultJSONToClassOptions, ACallBack);\r\nend;\r\n\r\nclass function TTMSFNCJSONToClass.ExportToDelphi(AJSONString: string; ACallBack: TTMSFNCJSONToClassExportEvent = nil): string;\r\nbegin\r\n  Result := ExportToDelphi(AJSONString, DefaultJSONToClassOptions, ACallBack);\r\nend;\r\n\r\nclass function TTMSFNCJSONToClass.ExportToDelphi(AJSONValue: TJSONValue; ACallBack: TTMSFNCJSONToClassExportEvent = nil): string;\r\nbegin\r\n  Result := ExportToDelphi(AJSONValue.ToString, DefaultJSONToClassOptions, ACallBack);\r\nend;\r\n\r\nclass function TTMSFNCJSONToClass.ExportToDelphiFromFile(AFileName: string; AOptions: TTMSFNCJSONToClassOptions; ACallBack: TTMSFNCJSONToClassExportEvent = nil): string;\r\nvar\r\n  sl: TStringList;\r\nbegin\r\n  sl := TStringList.Create;\r\n  try\r\n    sl.LoadFromFile(AFileName);\r\n    Result := ExportToDelphi(sl.Text, AOptions, ACallBack);\r\n  finally\r\n    sl.Free;\r\n  end;\r\nend;\r\n\r\n{$IFDEF LCLLIB}\r\nfunction CompareNameVal(const Item1, Item2: TTMSFNCJSONToClassProperty): Integer;\r\nbegin\r\n  Result := CompareText(Item1.Name, Item2.Name);\r\nend;\r\n{$ENDIF}\r\n\r\nclass function TTMSFNCJSONToClass.ExportToDelphi(AJSONValue: TJSONValue; AOptions: TTMSFNCJSONToClassOptions; ACallBack: TTMSFNCJSONToClassExportEvent = nil): string;\r\nbegin\r\n  Result := ExportToDelphi(AJSONValue.ToString, AOptions, ACallBack);\r\nend;\r\n\r\nclass function TTMSFNCJSONToClass.ExportToDelphi(AJSONString: string; AOptions: TTMSFNCJSONToClassOptions; ACallBack: TTMSFNCJSONToClassExportEvent = nil): string;\r\nvar\r\n  root: TJSONValue;\r\n  I, K: Integer;\r\n  c: TTMSFNCJSONToClassItem;\r\n  sl: TStringList;\r\n  p: TTMSFNCJSONToClassProperty;\r\n  ind: string;\r\n  cn: string;\r\n  slRendered: TStringList;\r\n\r\n  procedure SortList(const AList: TTMSFNCJSONToClassProperties);\r\n  {$IFNDEF LCLWEBLIB}\r\n  var\r\n    cmp: TTMSFNCJSONToClassPropertyNameComparer;\r\n  {$ENDIF}\r\n  begin\r\n    {$IFNDEF LCLWEBLIB}\r\n    cmp := TTMSFNCJSONToClassPropertyNameComparer.Create;\r\n    try\r\n      AList.Sort(cmp);\r\n    finally\r\n      cmp.Free;\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF LCLLIB}\r\n    AList.Sort(@CompareNameVal);\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    AList.Sort(TComparer<TTMSFNCJSONToClassProperty>.Construct(\r\n      function(const ALeft, ARight: TTMSFNCJSONToClassProperty): Integer\r\n      begin\r\n        Result := CompareText(ALeft.Name, ARight.Name);\r\n      end));\r\n    {$ENDIF}\r\n  end;\r\nbegin\r\n  root := TTMSFNCUtils.ParseJSON(AJSONString);\r\n  if Assigned(root) then\r\n  begin\r\n    try\r\n      FClasses := TTMSFNCJSONToClassItems.Create;\r\n      try\r\n        JSONValueToClass(nil, root);\r\n\r\n        sl := TStringList.Create;\r\n        slRendered := TStringList.Create;\r\n        try\r\n          {$IFNDEF LCLLIB}\r\n          {$HINTS OFF}\r\n          {$IF COMPILERVERSION > 30}\r\n          sl.TrailingLineBreak := False;\r\n          {$IFEND}\r\n          {$HINTS ON}\r\n          {$ENDIF}\r\n\r\n          ind := '';\r\n          if AOptions.AddUnit then\r\n          begin\r\n            sl.Add('unit MyDelphiUnit;');\r\n            sl.Add('');\r\n            sl.Add('interface');\r\n            sl.Add('');\r\n            sl.Add('uses');\r\n            sl.Add('  Classes, System.Generics.Collections;');\r\n            sl.Add('');\r\n            sl.Add('type');\r\n            ind := '  ';\r\n          end;\r\n\r\n          for I := FClasses.Count - 1 downto 0 do\r\n          begin\r\n            c := FClasses[I];\r\n            cn := c.GetClassName(ACallBack, AOptions);\r\n            if slRendered.IndexOf(cn) = -1 then\r\n            begin\r\n              case AOptions.BaseClass of\r\n                cbcNone: sl.Add(ind + cn + ' = class');\r\n                cbcPersistent: sl.Add(ind + cn + ' = class(TPersistent)');\r\n              end;\r\n\r\n              if AOptions.SortProperties then\r\n                SortList(c.Properties);\r\n\r\n\r\n              if c.Properties.Count > 0 then\r\n              begin\r\n                sl.Add(ind + 'private');\r\n                for K := 0 to c.Properties.Count - 1 do\r\n                begin\r\n                  p := c.Properties[K];\r\n                  sl.Add(ind + '  F' + p.DelphiName(ACallBack, AOptions, False) + ': ' + p.DelphiType(ACallBack, AOptions) + ';');\r\n                end;\r\n              end;\r\n\r\n              if AOptions.AddConstructor or AOptions.AddDestructor or AOptions.AddAssign then\r\n              begin\r\n                sl.Add(ind + 'public');\r\n\r\n                if AOptions.AddAssign then\r\n                begin\r\n                  case AOptions.BaseClass of\r\n                    cbcNone: sl.Add(ind + '  procedure Assign(Source: TObject);');\r\n                    cbcPersistent: sl.Add(ind + '  procedure Assign(Source: TPersistent); override;');\r\n                  end;\r\n                end;\r\n\r\n                if AOptions.AddConstructor then\r\n                  sl.Add(ind + '  constructor Create;');\r\n\r\n                if AOptions.AddDestructor then\r\n                  sl.Add(ind + '  destructor Destroy; override;');\r\n              end;\r\n\r\n              if c.Properties.Count > 0 then\r\n              begin\r\n                sl.Add(ind + 'published');\r\n                for K := 0 to c.Properties.Count - 1 do\r\n                begin\r\n                  p := c.Properties[K];\r\n                  sl.Add(ind + '  property ' + p.DelphiName(ACallBack, AOptions) + ': ' + p.DelphiType(ACallBack, AOptions) + ' read F' + p.DelphiName(ACallBack, AOptions, False) + ' write F' + p.DelphiName(ACallBack, AOptions, False) + ';');\r\n                end;\r\n              end;\r\n\r\n              sl.Add(ind + 'end;');\r\n              sl.Add('');\r\n\r\n              slRendered.Add(cn);\r\n            end;\r\n          end;\r\n\r\n          slRendered.Clear;\r\n\r\n          if AOptions.AddUnit then\r\n          begin\r\n            sl.Add('implementation');\r\n            sl.Add('');\r\n            if AOptions.AddImplementation then\r\n            begin\r\n              slRendered.Clear;\r\n\r\n              for I := FClasses.Count - 1 downto 0 do\r\n              begin\r\n                c := FClasses[I];\r\n\r\n                cn := c.GetClassName(ACallBack,AOptions);\r\n                if slRendered.IndexOf(cn) = -1 then\r\n                begin\r\n                  if AOptions.AddConstructor or AOptions.AddDestructor or AOptions.AddAssign then\r\n                  begin\r\n                    sl.Add('{ ' + c.GetClassName(ACallBack, AOptions)  + ' }');\r\n                    sl.Add('');\r\n\r\n                    if AOptions.AddAssign then\r\n                    begin\r\n                      case AOptions.BaseClass of\r\n                        cbcNone: sl.Add('procedure ' + cn + '.Assign(Source: TObject);');\r\n                        cbcPersistent: sl.Add('procedure ' + cn + '.Assign(Source: TPersistent);');\r\n                      end;\r\n\r\n                      sl.Add('begin');\r\n                      sl.Add('  if (Source is ' + cn + ') then');\r\n                      sl.Add('  begin');\r\n                      for K := 0 to c.Properties.Count - 1 do\r\n                      begin\r\n                        p := c.Properties[K];\r\n                        if (p.&Type = cptObject) then\r\n                          sl.Add('    F' + p.DelphiName(ACallBack, AOptions, False) + '.Assign((Source as ' + cn + ').' + p.DelphiName(ACallBack, AOptions, True) + ');')\r\n                        else if not p.IsObject then\r\n                          sl.Add('    F' + p.DelphiName(ACallBack, AOptions, False) + ' := (Source as ' + cn + ').' + p.DelphiName(ACallBack, AOptions, True) + ';')\r\n                        else\r\n                          sl.Add('    //F' + p.DelphiName(ACallBack, AOptions, False) + ' := (Source as ' + cn + ').' + p.DelphiName(ACallBack, AOptions, True) + '; //implement list copy');\r\n                      end;\r\n                      sl.Add('  end;');\r\n                      sl.Add('end;');\r\n                      sl.Add('');\r\n                    end;\r\n\r\n                    if AOptions.AddConstructor then\r\n                    begin\r\n                      sl.Add('constructor ' + cn + '.Create;');\r\n                      sl.Add('begin');\r\n                      sl.Add('  inherited;');\r\n                      for K := 0 to c.Properties.Count - 1 do\r\n                      begin\r\n                        p := c.Properties[K];\r\n                        if p.IsObject then\r\n                          sl.Add('  F' + p.DelphiName(ACallBack, AOptions, False) + ' := ' + p.DelphiType(ACallBack, AOptions) + '.Create;');\r\n                      end;\r\n                      sl.Add('end;');\r\n                      sl.Add('');\r\n                    end;\r\n\r\n                    if AOptions.AddDestructor then\r\n                    begin\r\n                      sl.Add('destructor ' + cn + '.Destroy;');\r\n                      sl.Add('begin');\r\n                      for K := 0 to c.Properties.Count - 1 do\r\n                      begin\r\n                        p := c.Properties[K];\r\n                        if p.IsObject then\r\n                          sl.Add('  F' + p.DelphiName(ACallBack, AOptions, False) + '.Free;');\r\n                      end;\r\n                      sl.Add('  inherited;');\r\n                      sl.Add('end;');\r\n                      sl.Add('');\r\n                    end;\r\n\r\n                    slRendered.Add(cn);\r\n                  end;\r\n                end;\r\n              end;\r\n            end;\r\n\r\n            sl.Add('end.');\r\n          end;\r\n\r\n          while sl.Count > 0 do\r\n          begin\r\n            if sl[sl.Count - 1] = '' then\r\n              sl.Delete(sl.Count - 1)\r\n            else\r\n              Break;\r\n          end;\r\n\r\n          Result := sl.Text;\r\n        finally\r\n          slRendered.Free;\r\n          sl.Free;\r\n        end;\r\n\r\n      finally\r\n        FClasses.Free;\r\n      end;\r\n    finally\r\n      root.Free;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCJSONToClassItem }\r\n\r\nconstructor TTMSFNCJSONToClassItem.Create(\r\n  AParentProperty: TTMSFNCJSONToClassProperty);\r\nbegin\r\n  FParentProperty := AParentProperty;\r\nend;\r\n\r\ndestructor TTMSFNCJSONToClassItem.Destroy;\r\nbegin\r\n  if Assigned(FProperties) then\r\n    FProperties.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCJSONToClassItem.GetClassName(ACallBack: TTMSFNCJSONToClassExportEvent; AOptions: TTMSFNCJSONToClassOptions): string;\r\nbegin\r\n  Result := 'TMyDelphiClass';\r\n  if Assigned(ParentProperty) then\r\n    Result := 'T' + ParentProperty.DelphiName(ACallBack, AOptions, False);\r\nend;\r\n\r\nfunction TTMSFNCJSONToClassItem.GetProperties: TTMSFNCJSONToClassProperties;\r\nbegin\r\n  if not Assigned(FProperties) then\r\n    FProperties := TTMSFNCJSONToClassProperties.Create;\r\n\r\n  Result := FProperties;\r\nend;\r\n\r\n{ TTMSFNCJSONToClassProperty }\r\n\r\nconstructor TTMSFNCJSONToClassProperty.Create(AName: string;\r\n  AType: TTMSFNCJSONToClassPropertyType);\r\nbegin\r\n  FName := AName;\r\n  FType := AType;\r\nend;\r\n\r\nfunction TTMSFNCJSONToClassProperty.DelphiName(ACallBack: TTMSFNCJSONToClassExportEvent; AOptions: TTMSFNCJSONToClassOptions; AFixKeyWord: Boolean = True): string;\r\nvar\r\n  n, s: string;\r\n  c: Char;\r\n  sl: TStringList;\r\n  I: Integer;\r\n  p: string;\r\n  pt: TTMSFNCJSONToClassPropertyType;\r\nbegin\r\n  Result := '';\r\n  if Length(Name) > 0 then\r\n  begin\r\n    p := Name;\r\n    pt := &Type;\r\n\r\n    if Assigned(ACallBack) then\r\n      ACallBack(p, pt);\r\n\r\n    sl := TStringList.Create;\r\n    try\r\n\r\n      if AOptions.RemoveSpecialCharacters then\r\n      begin\r\n        s := p;\r\n        p := '';\r\n\r\n        for c in s do\r\n        begin\r\n          if TTMSFNCUtils.IsLetterOrDigit(c) then\r\n            p := p + c\r\n          else\r\n            p := p + '_'\r\n        end;\r\n      end;\r\n\r\n      TTMSFNCUtils.Split('_', p, sl);\r\n\r\n      for I := 0 to sl.Count - 1 do\r\n      begin\r\n        n := sl[I];\r\n\r\n        if Length(n) > 0 then\r\n        begin\r\n          if AOptions.DelphiCasing then\r\n            n := UpperCase(n[{$IFNDEF ZEROSTRINGINDEX}1{$ELSE}0{$ENDIF}]) + Copy(n, 2, Length(n) - 1);\r\n        end;\r\n\r\n        Result := Result + n;\r\n      end;\r\n\r\n      if AFixKeyWord then\r\n        Result := FixKeyWord(Result);\r\n\r\n    finally\r\n      sl.Free;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCJSONToClassProperty.DelphiType(ACallBack: TTMSFNCJSONToClassExportEvent; AOptions: TTMSFNCJSONToClassOptions): string;\r\nvar\r\n  n: string;\r\n  t: TTMSFNCJSONToClassPropertyType;\r\nbegin\r\n  Result := '';\r\n\r\n  n := Name;\r\n  t := FType;\r\n  if Assigned(ACallBack) then\r\n    ACallBack(n, t);\r\n\r\n  case t of\r\n    cptUndefined: Result := 'UNDEFINED';\r\n    cptString: Result := 'string';\r\n    cptBoolean: Result := 'Boolean';\r\n    cptDateTime: Result := 'TDateTime';\r\n    cptObject: Result := 'T' + DelphiName(ACallback, AOptions, False);\r\n    cptDouble: Result := 'Double';\r\n    cptInteger: Result := 'Integer';\r\n    cptInteger64: Result := 'Int64';\r\n    cptObjectArray: Result := 'TObjectList<' + 'T' + DelphiName(ACallback, AOptions, False) + '>';\r\n    cptDoubleArray: Result := 'TList<Double>';\r\n    cptStringArray: Result := 'TList<string>';\r\n    cptBooleanArray: Result := 'TList<Boolean>';\r\n    cptDateTimeArray: Result := 'TList<TDateTime>';\r\n    cptIntegerArray: Result := 'TList<Integer>';\r\n    cptInteger64Array: Result := 'TList<Int64>';\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCJSONToClassProperty.FixKeyWord(AValue: string): string;\r\nconst\r\n  a: array[0..64] of string = ('and','array', 'as', 'asm', 'begin',\r\n                               'case', 'class', 'const', 'constructor', 'destructor',\r\n                               'dispinterface', 'div',\t'do',\t'downto',\t'else',\r\n                               'end',\t'except',\t'exports',\t'file',\t'finalization',\r\n                               'finally',\t'for',\t'function',\t'goto',\t'if',\r\n                               'implementation',\t'in',\t'inherited',\t'initialization',\t'inline',\r\n                               'interface',\t'is',\t'label',\t'library', 'mod',\r\n                               'nil',\t'not',\t'object',\t'of',\t'or',\r\n                               'out',\t'packed',\t'procedure',\t'program', 'property',\r\n                               'raise',\t'record',\t'repeat',\t'resourcestring',\t'set',\r\n                               'shl',\t'shr',\t'string',\t'then',\t'threadvar',\r\n                               'to',\t'try',\t'type',\t'unit',\t'until',\r\n                               'uses',\t'var',\t'while',\t'with',\t'xor');\r\nbegin\r\n  Result := AValue;\r\n  if TTMSFNCUtils.IndexOfTextInArray(UpperCase(AValue), a) <> -1 then\r\n    Result := '&' + AValue;\r\nend;\r\n\r\nfunction TTMSFNCJSONToClassProperty.IsObject: Boolean;\r\nbegin\r\n  Result := &Type in [cptObject, cptObjectArray, cptStringArray, cptBooleanArray, cptDateTimeArray, cptDoubleArray, cptIntegerArray, cptInteger64Array];\r\nend;\r\n\r\n{ TTMSFNCJSONToClassPropertyNameComparer }\r\n\r\n{$IFNDEF LCLWEBLIB}\r\nfunction TTMSFNCJSONToClassPropertyNameComparer.Compare(const Left,\r\n  Right: TTMSFNCJSONToClassProperty): Integer;\r\nbegin\r\n  Result := CompareText(Left.Name, Right.Name);\r\nend;\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\n\r\ninitialization\r\nbegin\r\n  TTMSFNCPersistence.ClassTypeVariable := '$type';\r\n  TTMSFNCPersistence.IgnoreExceptions := False;\r\nend;\r\n\r\nend.\r\n\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : https://www.tmssoftware.com                       }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCWebBrowser;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF CMNLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\n{$IFDEF MSWINDOWS}\r\n{$DEFINE USEEDGE}\r\n{$ENDIF}\r\n\r\n{$IFDEF USEEDGE}\r\n{$DEFINE EDGESUPPORT}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  {$IFDEF MSWINDOWS}\r\n  Windows,\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  UITypes, FMX.Types, System.Messaging, FMX.Menus,\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  VCL.Menus, Messages,\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  Menus,\r\n  {$ENDIF}\r\n  Types, WEBLib.TMSFNCCustomControl, WEBLib.TMSFNCGraphics, WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes,\r\n  Classes, TypInfo,\r\n  {$IFNDEF LCLLIB}\r\n  Generics.Collections,\r\n  {$ELSE}\r\n  fgl,\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Contnrs, WEBLib.Menus,\r\n  {$ENDIF}\r\n  WEBLib.StdCtrls, WEBLib.Forms, WEBLib.Controls\r\n  {$IFDEF ANDROID}\r\n  ,FMX.Platform.Android, AndroidApi.JNI.Embarcadero, AndroidApi.JNI.App, Androidapi.JNI.GraphicsContentViewText, AndroidApi.JNI.JavaTypes,\r\n  AndroidApi.JNI.Widget, FMX.Helpers.Android, AndroidApi.JNIBridge, AndroidApi.Helpers\r\n  {$ENDIF}\r\n  {$IFDEF IOS}\r\n  ,FMX.Platform.iOS, iOSApi.CocoaTypes, iOSApi.CoreGraphics, iOSApi.UIKit, iOSApi.Foundation,\r\n  Macapi.ObjectiveC, MacApi.ObjcRuntime\r\n  {$ENDIF}\r\n  {$IFDEF MACOS}\r\n  {$IFNDEF IOS}\r\n  ,MacApi.Foundation, MacApi.AppKit, MacApi.CocoaTypes, FMX.Platform.Mac\r\n  {$ENDIF}\r\n  ,MacApi.Helpers\r\n  {$ENDIF}\r\n  ;\r\n\r\nconst\r\n  {$IFDEF FNCLIB}\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 1; // Minor version nr.\r\n  REL_VER = 8; // Release nr.\r\n  BLD_VER = 2; // Build nr.\r\n  {$ENDIF}\r\n  {$IFNDEF FNCLIB}\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 3; // Minor version nr.\r\n  REL_VER = 3; // Release nr.\r\n  BLD_VER = 3; // Build nr.\r\n  {$ENDIF}\r\n  DESIGNTIMEMESSAGE = 'Selectable/Draggable area (only active at designtime)';\r\n\r\n  //v1.0.0.0 : First release\r\n  //v1.0.0.1 : Improved : Interfaces added to Edge Chromium to add JavaScript object injection\r\n  //           (bridge to Delphi) and capture preview capabilities in TTMSFNCWebBrowser\r\n  //1.1.0.0 : New : CaptureScreenShot method\r\n  //        : New : JavaScript bridge support\r\n  //        : Fixed : Issue with Visibility / Parenting in FMX\r\n  //1.1.1.0 : Improved : Support for Microsoft Edge Chromium Stable v85.0.564.41 detection/fallback mechanism\r\n  //1.1.2.0 : Improved : CacheFolderName & ClearCache for defining Edge Chromium cache folder\r\n  //        : Improved : Moved Edge detection entry points and variables to be available at application level\r\n  //1.1.2.1 : Fixed : Issue detecting stable version v86.0.622.38 (copy to temp folder solution)\r\n  //1.1.3.0 : New : CacheFolder, CacheFolderName & AutoClearCache properties\r\n  //        : Improved : Changed ClearCache property to method to manually clear cache\r\n  //        : Fixed : Issues with clearing cache when AutoClearCache = False\r\n  //1.1.4.0 : New : EnableAcceleratorKeys to enable/disable keyboard accelerator keys\r\n  //1.1.4.1 : Fixed : Issue with default value of EnableAcceleratorKeys\r\n  //1.1.4.2 : Fixed : Issue with reparenting in Windows\r\n  //1.1.4.3 : Fixed : Issue with scaling in FMX\r\n  //1.1.4.4 : Fixed : Issue with focus exception in combination with TMS Scripter\r\n  //1.1.4.5 : Fixed : Issue with keyboard handling in macOS\r\n  //1.1.4.6 : Fixed : Issue with border being visible in Linux GTK\r\n  //1.1.4.7 : Fixed : Issue with retaining and releasing focus in macOS\r\n  {$IFDEF FNCLIB}\r\n  //1.1.4.8 : New : Methods added for TMSFNCEdgeWebBrowser\r\n  //1.1.4.9 : Fixed : Issue with the menus unit in Linux Lazarus\r\n  //1.1.5.0 : New : DevTool Protocol methods implemented\r\n  //        : New : Download Manager implemented\r\n  //1.1.5.1 : Fixed : Issue parsing JavaScript functions in WEB\r\n  //1.1.5.2 : Fixed : Edge Chromium fallback implementation causing multiple copies in Windows temp folder during runtime update mechanism\r\n  //1.1.6.0 : New : Additional events added\r\n  //        : Fixed : Issue with download assign in TMSFNCWebBrowser.Win\r\n  //1.1.6.1 : Fixed : Issue with focus in FMX\r\n  //        : Fixed : Issue with URL property set on retrieving frame\r\n  //        : Fixed : Issue with persistence of EnableContextMenu property\r\n  //1.1.7.0 : New : Setup settings Additional Browser Arguments and language properties available\r\n  //1.1.8.0 : New : Virtual Hosting methods\r\n  //1.1.8.1 : Fixed : Issue with request parameters in OnWebResourceRequested event\r\n  //1.1.8.2 : Fixed : Issue with accessing local files in Linux\r\n  {$ENDIF}\r\n  {$IFNDEF FNCLIB}\r\n  //1.2.0.0 : New : Print and save to PDF\r\n  //        : New : Use popupmenu or manipulate context menu\r\n  //        : New : Manage Cookies\r\n  //        : New : Navigate with custom method and data\r\n  //1.3.0.0 : New : DevTool Protocol methods implemented\r\n  //        : New : Download Manager implemented\r\n  //1.3.0.1 : Fixed : Issue parsing JavaScript functions in WEB\r\n  //1.3.0.2 : Fixed : Edge Chromium fallback implementation causing multiple copies in Windows temp folder during runtime update mechanism\r\n  //1.3.1.0 : New : Additional events added\r\n  //        : Fixed : Issue with download assign in TMSFNCWebBrowser.Win\r\n  //1.3.1.1 : Fixed : Issue with URL property set on retrieving frame\r\n  //        : Fixed : Issue with persistence of EnableContextMenu property\r\n  //1.3.1.2 : Fixed : Issue with Handled parameter in NewWindowRequested\r\n  //1.3.2.0 : New : Setup settings Additional Browser Arguments and language properties available\r\n  //1.3.3.0 : New : Virtual Hosting methods\r\n  //1.3.3.1 : Improved : WebView2 Downloads Estimated End Time event and property added\r\n  //1.3.3.2 : Fixed : Issue with request parameters in OnWebResourceRequested event\r\n  //1.3.3.3 : Fixed : Issue with accessing local files in Linux\r\n  {$ENDIF}\r\nconst\r\n  {$IFDEF FNCLIB}\r\n  IID_ITMSFNCCustomWebBrowserGUID = '{F74562D0-56C7-4ED2-B01B-8C9C16DD9361}';\r\n  IID_ITMSFNCCustomWebBrowserExGUID = '{6B5D75C1-B5EC-463D-A602-1FFB97C8668C}';\r\n  IID_ITMSFNCCustomWebBrowserContextMenuGUID = '{04BD0560-104B-4D3B-8CB1-45628D16CB0D}';\r\n  IID_ITMSFNCCustomWebBrowserBridgeGUID = '{AC2934EC-9397-4A99-8E0A-1EF58803C8EA}';\r\n  IID_ITMSFNCCustomWebBrowserSettingsGUID = '{25142510-A807-4635-BAE7-CB261D00137E}';\r\n  IID_ITMSFNCCustomWebBrowserCookiesGUID = '{A50ABF08-0A6F-4877-AC92-FC834CF36AE6}';\r\n  IID_ITMSFNCCustomWebBrowserServiceGUID = '{4B7A5FE1-A889-47C6-B40F-A611BB6266E6}';\r\n  IID_ITMSFNCCustomWebBrowserPrintGUID = '{56EFC9E8-CD92-4FAC-B79C-084BF3DB0FBD}';\r\n  IID_ITMSFNCCustomWebBrowserEdgeGUID = '{BAA1AC1A-4392-4496-A595-47388CC6A083}';\r\n  IID_ITMSFNCCustomWebBrowserInfoGUID = '{307CE047-ED5D-4B5C-87EF-0237EC695C08}';\r\n  IID_ITMSFNCCustomWebBrowserVirtualHostingGUID = '{CCAC3B8B-6A04-4D01-BFB3-D873D645C965}';\r\n  {$ELSE}\r\n  IID_ITMSFNCCustomWebBrowserGUID = '{8CE780C0-D22F-4063-993B-CFB0DD7D1351}';\r\n  IID_ITMSFNCCustomWebBrowserExGUID = '{8620B994-4E90-4A43-82A6-62BD445E76F5}';\r\n  IID_ITMSFNCCustomWebBrowserContextMenuGUID = '{45D26565-5CB6-4343-80F0-2E31991C13E1}';\r\n  IID_ITMSFNCCustomWebBrowserBridgeGUID = '{E639C360-3FD0-4F63-9132-E8D0044EF860}';\r\n  IID_ITMSFNCCustomWebBrowserSettingsGUID = '{86DF94BF-9310-4291-B22A-2E791A797E29}';\r\n  IID_ITMSFNCCustomWebBrowserCookiesGUID = '{6B92ADFC-FD76-4708-B8AB-60904123449E}';\r\n  IID_ITMSFNCCustomWebBrowserServiceGUID = '{94C7BF89-2B0A-40DF-8C24-B393CEB91389}';\r\n  IID_ITMSFNCCustomWebBrowserPrintGUID = '{8C4A1B85-CC31-4A4D-9334-6D76DBAC569C}';\r\n  IID_ITMSFNCCustomWebBrowserEdgeGUID = '{CCFBAF21-A278-40DC-AD61-51A70D58EAE4}';\r\n  IID_ITMSFNCCustomWebBrowserInfoGUID = '{A89FBC24-BA7C-486C-8D49-1C8F6D60418D}';\r\n  IID_ITMSFNCCustomWebBrowserVirtualHostingGUID = '{4D6BD1AE-33BA-42CD-A792-442C10F9F6CF}';\r\n  {$ENDIF}\r\n  IID_ITMSFNCCustomWebBrowser: TGUID = IID_ITMSFNCCustomWebBrowserGUID;\r\n  IID_ITMSFNCCustomWebBrowserBridge: TGUID = IID_ITMSFNCCustomWebBrowserBridgeGUID;\r\n  IID_ITMSFNCCustomWebBrowserSettings: TGUID = IID_ITMSFNCCustomWebBrowserSettingsGUID;\r\n  IID_ITMSFNCCustomWebBrowserCookies: TGUID = IID_ITMSFNCCustomWebBrowserCookiesGUID;\r\n  IID_ITMSFNCCustomWebBrowserService: TGUID = IID_ITMSFNCCustomWebBrowserServiceGUID;\r\n  IID_ITMSFNCCustomWebBrowserEx: TGUID = IID_ITMSFNCCustomWebBrowserExGUID;\r\n  IID_ITMSFNCCustomWebBrowserEdge: TGUID = IID_ITMSFNCCustomWebBrowserEdgeGUID;\r\n  IID_ITMSFNCCustomWebBrowserContextMenu: TGUID = IID_ITMSFNCCustomWebBrowserContextMenuGUID;\r\n  IID_ITMSFNCCustomWebBrowserPrint: TGUID = IID_ITMSFNCCustomWebBrowserPrintGUID;\r\n  IID_ITMSFNCCustomWebBrowserVirtualHosting: TGUID = IID_ITMSFNCCustomWebBrowserVirtualHostingGUID;\r\n\r\ntype\r\n  TTMSFNCWebBrowserJavaScriptCompleteEvent = {$IFNDEF LCLLIB}reference to {$ENDIF}procedure(const AValue: string){$IFDEF LCLLIB} of object{$ENDIF};\r\n  TTMSFNCWebBrowserCaptureScreenShotCompleteEvent = {$IFNDEF LCLLIB}reference to {$ENDIF}procedure(const AScreenShot: TTMSFNCBitmap){$IFDEF LCLLIB} of object{$ENDIF};\r\n\r\n  TTMSFNCWebBrowserContextMenuType = (mtPage, mtImage, mtSelectedText, mtAudio, mtVideo, (*not implemented in dll only for Delphi usage*)mtSubMenu);\r\n  TTMSFNCWebBrowserContextMenuItemKind = (ikCommand, ikCheckBox, ikRadioButton, ikSeperator, ikSubMenu);\r\n  TTMSFNCWebBrowserPrintOrientation = (poPortrait, poLandscape);\r\n  TTMSFNCWebBrowserHostResourceAccessKind = (akDeny, akAllow, akDenyCors);\r\n\r\n  TTMSFNCWebBrowserSystemContextMenuItem = class;\r\n  TTMSFNCWebBrowserCustomContextMenuItem = class;\r\n\r\n  {$IFNDEF MACOS}\r\n  TTMSFNCWebBrowserSameSiteType = (sstNone, sstLax, sstSameSite);   //Lax means same-site and cross-site\r\n  {$ENDIF}\r\n\r\n  TTMSFNCWebBrowserCookie = record\r\n    Path: string;\r\n    Name: string;\r\n    Expires: TDateTime;\r\n    Domain: string;\r\n    Secure: Boolean;\r\n    HTTPOnly: Boolean;\r\n    Value: string;\r\n    Session: Boolean;\r\n    {$IFNDEF MACOS}\r\n    SameSite: TTMSFNCWebBrowserSameSiteType;\r\n    {$ENDIF}\r\n  end;\r\n\r\n  TTMSFNCCustomWebBrowser = class;\r\n\r\n  TTMSFNCWebBrowserLogSeverityLevel = (lslUnknown, lslVerbose, lslInfo, lslWarning, lslError);\r\n//  TTMSFNCWebBrowserLogSource = (lsOther, lsXML, lsJavascript, lsNetwork, lsStorage, lsAppCache, lsRendering, lsSecurity, lsDeprecation, lsWorker, lsViolation, lsIntervention, lsRecommendation);\r\n\r\n  TTMSFNCWebBrowserLogEntry = record\r\n    Level: TTMSFNCWebBrowserLogSeverityLevel;\r\n    Text: string;\r\n//    Source: TTMSFNCWebBrowserLogSource\r\n    Url: string;\r\n    LineNumber: integer;\r\n    TimeStamp: TDateTime;\r\n  end;\r\n\r\n  TTMSFNCWebBrowserDownloadInterruptReason = (dirNone, dirFileFailed, dirFileAccessDenied, dirFileNoSpace, dirFileNameTooLong, dirFileTooLarge, dirFileMalicious, dirFileTransientError, dirFileBlockedByPolicy,\r\n    dirFileSecurityCheckFailed, dirFileTooShort, dirFileHasMismatch, dirNetworkFailed, dirNetworkTimeout, dirNetworkDisconnected, dirNetworkServerDown, dirNetworkInvalidRequest, dirServerFailed, dirServerNoRange,\r\n    dirServerBadContent, dirServerUnauthorized, dirServerCertificateProblem, dirServerForbidden, dirServerUnexpectedResponse, dirServerContentLengthMismatch, dirServerCrossOriginRedirect, dirUserCanceled,\r\n    dirUserShutdown, dirUserPaused, dirDownloadProcessCrashed);\r\n\r\n  TTMSFNCWebBrowserDownloadState = (dsInProgress, dsInterrupted, dsCompleted, dsCancelled);\r\n\r\n  TTMSFNCWebBrowserDownload = class(TCollectionItem)\r\n  private\r\n    FOwner: TTMSFNCCustomWebBrowser;\r\n    FDataPointer: Pointer;\r\n    FDataBoolean: Boolean;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FInterruptReason: TTMSFNCWebBrowserDownloadInterruptReason;\r\n    FCanResume: Boolean;\r\n    FState: TTMSFNCWebBrowserDownloadState;\r\n    FBytesReceived: Int64;\r\n    FMimeType: string;\r\n    FURI: string;\r\n    FTotalBytes: Int64;\r\n    FResultFilePath: string;\r\n    FEstimatedEndTime: TDateTime;\r\n    procedure SetResultFilePath(const Value: string);\r\n  protected\r\n    FInternalOperationInterface: IInterface;\r\n    procedure SetURI(const Value: string);\r\n    procedure SetTotalBytes(const Value: Int64);\r\n    procedure SetBytesReceived(const Value: Int64);\r\n    procedure SetState(const Value: TTMSFNCWebBrowserDownloadState);\r\n    procedure SetInterruptReason(const Value: TTMSFNCWebBrowserDownloadInterruptReason);\r\n    procedure SetMimeType(const Value: string);\r\n    procedure SetCanResume(const Value: boolean);\r\n    procedure SetEstimatedEndTime(const Value: TDateTime);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    destructor Destroy; override;\r\n    procedure Cancel;\r\n    procedure Pause;\r\n    procedure Resume;\r\n    property URI: string read FURI;\r\n    property ResultFilePath: string read FResultFilePath write SetResultFilePath;\r\n    property State: TTMSFNCWebBrowserDownloadState read FState;\r\n    property InterruptReason: TTMSFNCWebBrowserDownloadInterruptReason read FInterruptReason;\r\n    property BytesReceived: Int64 read FBytesReceived;\r\n    property TotalBytes: Int64 read FTotalBytes;\r\n    property MimeType: string read FMimeType;\r\n    property EstimatedEndTime: TDateTime read FEstimatedEndTime write FEstimatedEndTime;\r\n    property CanResume: Boolean read FCanResume;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCWebBrowserDownloads = class(TTMSFNCOwnedCollection)\r\n  {$ELSE}\r\n  TTMSFNCWebBrowserDownloads = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCWebBrowserDownload>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TTMSFNCCustomWebBrowser;\r\n    function GetItem(Index: Integer): TTMSFNCWebBrowserDownload;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCWebBrowserDownload);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; virtual;\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCCustomWebBrowser); virtual;\r\n    property Items[Index: Integer]: TTMSFNCWebBrowserDownload read GetItem write SetItem; default;\r\n    function Add: TTMSFNCWebBrowserDownload;\r\n    function Insert(Index: Integer): TTMSFNCWebBrowserDownload;\r\n    procedure ClearFinishedDownloads;\r\n    function GetDownloadByURI(AURI: string): TTMSFNCWebBrowserDownload;\r\n    function GetDownloadByResultFile(AResultFilePath: string): TTMSFNCWebBrowserDownload;\r\n    procedure RemoveDownloadsByState(AState: TTMSFNCWebBrowserDownloadState);\r\n  end;\r\n\r\n  TTMSFNCWebBrowserTargetItem = record\r\n    Kind: TTMSFNCWebBrowserContextMenuType;\r\n    URI: string;\r\n    SelectionText: string;\r\n    LinkText: string;\r\n  end;\r\n\r\n  TTMSFNCWebBrowserContextMenuItem = class;\r\n\r\n  TTMSFNCWebBrowserContextMenuItemList = class(TObjectList<TTMSFNCWebBrowserContextMenuItem>);\r\n\r\n  TTMSFNCWebBrowserContextMenuItem = class(TPersistent)\r\n  private\r\n    FParentItem: TTMSFNCWebBrowserContextMenuItem;\r\n    FName: string;\r\n    FText: string;\r\n    FChildren: TTMSFNCWebBrowserContextMenuItemList;\r\n    FCommandId: Integer;\r\n    FEnabled: Boolean;\r\n    FShortcutKeyDescription: string;\r\n    FKind: TTMSFNCWebBrowserContextMenuItemKind;\r\n    FChecked: Boolean;\r\n    FOriginalIndex: Integer;\r\n    FInternalObject: TObject;\r\n    FDataPointer: Pointer;\r\n    FDataBoolean: Boolean;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FIcon: TTMSFNCBitmap;\r\n    FEventHandlerObject: TObject;\r\n    procedure SetShortcutKeyDescription(const Value: string);\r\n  protected\r\n    property Name: string read FName write FName;\r\n    property Text: string read FText write FText;\r\n    property Children: TTMSFNCWebBrowserContextMenuItemList read FChildren write FChildren;\r\n    property OriginalIndex: Integer read FOriginalIndex write FOriginalIndex;\r\n    property CommandId: Integer read FCommandId write FCommandId;\r\n    property ShortcutKeyDescription: string read FShortcutKeyDescription write SetShortcutKeyDescription;\r\n    property Icon: TTMSFNCBitmap read FIcon write FIcon;\r\n    property Kind: TTMSFNCWebBrowserContextMenuItemKind read FKind write FKind;\r\n    property Enabled: Boolean read FEnabled write FEnabled;\r\n    property Checked: Boolean read FChecked write FChecked;\r\n    property InternalObject: TObject read FInternalObject write FInternalObject;\r\n    property EventHandlerObject: TObject read FEventHandlerObject write FEventHandlerObject;\r\n    property ParentItem: TTMSFNCWebBrowserContextMenuItem read FParentItem write FParentItem;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n    function AsCustom: TTMSFNCWebBrowserCustomContextMenuItem;\r\n    function AsSystem: TTMSFNCWebBrowserSystemContextMenuItem;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n  end;\r\n\r\n  TTMSFNCWebBrowserSystemContextMenuItem = class(TTMSFNCWebBrowserContextMenuItem)\r\n  private\r\n    function GetName: string;\r\n    function GetText: string;\r\n    function GetChildren: TObjectList<TTMSFNCWebBrowserContextMenuItem>;\r\n    function GetKind: TTMSFNCWebBrowserContextMenuItemKind;\r\n    function GetChecked: Boolean;\r\n    function GetEnabled: Boolean;\r\n    function GetIcon: TTMSFNCBitmap;\r\n    function GetParentItem: TTMSFNCWebBrowserContextMenuItem;\r\n  public\r\n    property Name: string read GetName;\r\n    property Text: string read GetText;\r\n    property Children: TObjectList<TTMSFNCWebBrowserContextMenuItem> read GetChildren;\r\n    property Kind: TTMSFNCWebBrowserContextMenuItemKind read GetKind;\r\n    property Enabled: Boolean read GetEnabled;\r\n    property Checked: Boolean read GetChecked;\r\n    property Icon: TTMSFNCBitmap read GetIcon;\r\n    property ParentItem: TTMSFNCWebBrowserContextMenuItem read GetParentItem;\r\n  end;\r\n\r\n  TTMSFNCWebBrowserCustomContextMenuItem = class(TTMSFNCWebBrowserContextMenuItem)\r\n  private\r\n    function GetParentItem: TTMSFNCWebBrowserContextMenuItem;\r\n  public\r\n    property Name;\r\n    property Text;\r\n    property Children;\r\n    property Kind;\r\n    property Enabled;\r\n    property Checked;\r\n    property Icon;\r\n    property ParentItem: TTMSFNCWebBrowserContextMenuItem read GetParentItem;\r\n  end;\r\n\r\n  TTMSFNCWebBrowserPrintSettings = record\r\n    Orientation: TTMSFNCWebBrowserPrintOrientation;\r\n    ScaleFactor: Double;\r\n    PageWidth: Integer;\r\n    PageHeight: Integer;\r\n    MarginLeft: Integer;\r\n    MarginTop: Integer;\r\n    MarginRight: Integer;\r\n    MarginBottom: Integer;\r\n    PrintBackgrounds: Boolean;\r\n    PrintSelectionOnly: Boolean;\r\n    PrintHeaderAndFooter: Boolean;\r\n    HeaderTitle: string;\r\n    FooterURI: string;\r\n  end;\r\n\r\n  TTMSFNCWebBrowserOnGetContextMenu = procedure(Sender: TObject; ATarget: TTMSFNCWebBrowserTargetItem; AContextMenu: TObjectList<TTMSFNCWebBrowserContextMenuItem>) of object;\r\n  TTMSFNCWebBrowserOnGetPopupMenuForContextMenu = procedure(Sender: TObject; ATarget: TTMSFNCWebBrowserTargetItem; var APopupMenu: TPopupMenu) of object;\r\n  TTMSFNCWebBrowserOnCustomContextMenuItemSelected = procedure(Sender: TObject; ASelectedItem: TTMSFNCWebBrowserCustomContextMenuItem) of object;\r\n  TTMSFNCWebBrowserOnGetCookies = procedure(Sender: TObject; ACookies: array of TTMSFNCWebBrowserCookie) of object;\r\n  TTMSFNCWebBrowserOnGetPrintPDFStream = procedure(Sender: TObject; AStream: TMemoryStream) of object;\r\n  TTMSFNCWebBrowserOnGetDevTools = procedure(Sender: TObject; AEventName: string; AJSONResponse: string) of object;\r\n  TTMSFNCWebBrowserOnDownloadStarted = procedure(Sender: TObject; ADownload: TTMSFNCWebBrowserDownload; var ASilent: Boolean; var APause: Boolean; var AResume: Boolean; var ACancel: Boolean) of object;\r\n  TTMSFNCWebBrowserOnDownloadStateChanged = procedure(Sender: TObject; ADownload: TTMSFNCWebBrowserDownload; AState: TTMSFNCWebBrowserDownloadState; var APause: Boolean; var AResume: Boolean; var ACancel: Boolean) of object;\r\n  TTMSFNCWebBrowserOnDownloadBytesChanged = procedure(Sender: TObject; ADownload: TTMSFNCWebBrowserDownload; ABytesReceived: Int64; var APause: Boolean; var AResume: Boolean; var ACancel: Boolean) of object;\r\n  TTMSFNCWebBrowserOnDownloadTimeChanged = procedure(Sender: TObject; ADownload: TTMSFNCWebBrowserDownload; ATime: TDateTime; var APause: Boolean; var AResume: Boolean; var ACancel: Boolean) of object;\r\n\r\n  ITMSFNCCustomWebBrowserBridge = interface(IInterface)\r\n  {$IFNDEF WEBLIB}\r\n  [IID_ITMSFNCCustomWebBrowserBridgeGUID]\r\n  {$ENDIF}\r\n    function GetObjectMessage: string;\r\n    procedure SetObjectMessage(const AValue: string);\r\n    property ObjectMessage: string read GetObjectMessage write SetObjectMessage;\r\n  end;\r\n\r\n  ITMSFNCCustomWebBrowser = interface(IInterface)\r\n  {$IFNDEF WEBLIB}\r\n  [IID_ITMSFNCCustomWebBrowserGUID]\r\n  {$ENDIF}\r\n    procedure SetFocus;\r\n    procedure ClearFocus;\r\n    procedure SetUserAgent(const AValue: string);\r\n    procedure SetURL(const AValue: string);\r\n    procedure SetExternalBrowser(const AValue: Boolean);\r\n    procedure SetEnableContextMenu(const AValue: Boolean);\r\n    procedure SetEnableShowDebugConsole(const AValue: Boolean);\r\n    procedure SetEnableAcceleratorKeys(const AValue: Boolean);\r\n    procedure SetCacheFolderName(const Value: string);\r\n    procedure SetAutoClearCache(const Value: Boolean);\r\n    procedure SetCacheFolder(const Value: string);\r\n    procedure Navigate(const AURL: String); overload;\r\n    procedure Navigate; overload;\r\n    procedure LoadHTML(AHTML: String);\r\n    procedure LoadFile(AFile: String);\r\n    procedure GoForward;\r\n    procedure GoBack;\r\n    procedure Reload;\r\n    procedure Close;\r\n    procedure StopLoading;\r\n    procedure AddBridge(ABridgeName: string; ABridgeObject: TObject);\r\n    procedure RemoveBridge(ABridgeName: string);\r\n    procedure UpdateBounds;\r\n    procedure CaptureScreenShot(ACompleteEvent: TTMSFNCWebBrowserCaptureScreenShotCompleteEvent = nil);\r\n    procedure UpdateVisible;\r\n    procedure UpdateEnabled;\r\n    procedure BeforeChangeParent;\r\n    procedure Initialize;\r\n    procedure DeInitialize;\r\n    procedure ClearCache;\r\n    procedure ShowDebugConsole;\r\n    function GetUserAgent: string;\r\n    function GetURL: string;\r\n    function GetExternalBrowser: Boolean;\r\n    function GetEnableContextMenu: Boolean;\r\n    function GetEnableShowDebugConsole: Boolean;\r\n    function GetEnableAcceleratorKeys: Boolean;\r\n    procedure ExecuteJavaScript(AScript: String; ACompleteEvent: TTMSFNCWebBrowserJavaScriptCompleteEvent; ACallback: TNotifyEvent);\r\n    function NativeEnvironment: Pointer;\r\n    function NativeBrowser: Pointer;\r\n    function GetBrowserInstance: IInterface;\r\n    function CanGoBack: Boolean;\r\n    function CanGoForward: Boolean;\r\n    function NativeDialog: Pointer;\r\n    function IsFMXBrowser: Boolean;\r\n    function GetCacheFolderName: string;\r\n    function GetAutoClearCache: Boolean;\r\n    function GetCacheFolder: string;\r\n    procedure UpdateContentFromControl;\r\n    property UserAgent: string read GetUserAgent write SetUserAgent;\r\n    property CacheFolderName: string read GetCacheFolderName write SetCacheFolderName;\r\n    property CacheFolder: string read GetCacheFolder write SetCacheFolder;\r\n    property AutoClearCache: Boolean read GetAutoClearCache write SetAutoClearCache;\r\n    property URL: string read GetURL write SetURL;\r\n    property ExternalBrowser: Boolean read GetExternalBrowser write SetExternalBrowser;\r\n    property EnableContextMenu: Boolean read GetEnableContextMenu write SetEnableContextMenu;\r\n    property EnableShowDebugConsole: Boolean read GetEnableShowDebugConsole write SetEnableShowDebugConsole;\r\n    property EnableAcceleratorKeys: Boolean read GetEnableAcceleratorKeys write SetEnableAcceleratorKeys;\r\n  end;\r\n\r\n  ITMSFNCCustomWebBrowserEx = interface(IInterface)\r\n  {$IFNDEF WEBLIB}\r\n  [IID_ITMSFNCCustomWebBrowserExGUID]\r\n  {$ENDIF}\r\n    procedure OpenTaskManagerWindow;\r\n    procedure NavigateWithData(AURI: string; AMethod: string; ABody: string; AHeaders: TStrings = nil); overload;\r\n    procedure NavigateWithData(AURI: string; AMethod: string; ABodyStream: TStream; AHeaders: TStrings = nil); overload;\r\n  end;\r\n\r\n  ITMSFNCCustomWebBrowserInfo = interface(IInterface)\r\n  {$IFNDEF WEBLIB}\r\n  [IID_ITMSFNCCustomWebBrowserInfoGUID]\r\n  {$ENDIF}\r\n    function GetDocumentTitle: string;\r\n    function GetContainsFullScreenElement: Boolean;\r\n    function GetParentWindowHandle: Cardinal;\r\n    function GetBrowserVersion: string;\r\n    function GetUserDataFolder: string;\r\n  end;\r\n\r\n  ITMSFNCCustomWebBrowserSettings = interface(IInterface)\r\n  {$IFNDEF WEBLIB}\r\n  [IID_ITMSFNCCustomWebBrowserSettingsGUID]\r\n  {$ENDIF}\r\n    function GetEnableScript: Boolean;\r\n    procedure SetEnableScript(const Value: Boolean);\r\n    function GetAllowExternalDrop: Boolean;\r\n    procedure SetAllowExternalDrop(const Value: Boolean);\r\n    property EnableScript: boolean read GetEnableScript write SetEnableScript;\r\n    property AllowExternalDrop: boolean read GetAllowExternalDrop write SetAllowExternalDrop;\r\n  end;\r\n\r\n  ITMSFNCCustomWebBrowserCookies = interface(IInterface)\r\n  {$IFNDEF WEBLIB}\r\n  [IID_ITMSFNCCustomWebBrowserCookiesGUID]\r\n  {$ENDIF}\r\n    procedure GetCookies(AURI: string);\r\n    procedure AddCookie(ACookie: TTMSFNCWebBrowserCookie);\r\n    procedure DeleteAllCookies;\r\n    procedure DeleteCookie(AName: string; ADomain: string; APath: string);\r\n  end;\r\n\r\n  ITMSFNCCustomWebBrowserEdge = interface(IInterface)\r\n  {$IFNDEF WEBLIB}\r\n  [IID_ITMSFNCCustomWebBrowserEdgeGUID]\r\n  {$ENDIF}\r\n    procedure SubscribeDevtools(AEventName: string);\r\n    procedure CallDevToolsProtocolMethod(AMethodName: string; AParametersAsJSON: string);\r\n    procedure EnableDevToolDomain(AEventName: string; AJSONParameters: string = '');\r\n    procedure DisableDevToolDomain(ADomain: string);\r\n    procedure SetupStartDomains;\r\n    procedure CancelDownload(ADownload: TTMSFNCWebBrowserDownload);\r\n    procedure PauseDownload(ADownload: TTMSFNCWebBrowserDownload);\r\n    procedure ResumeDownload(ADownload: TTMSFNCWebBrowserDownload);\r\n  end;\r\n\r\n  ITMSFNCCustomWebBrowserContextMenu = interface(IInterface)\r\n  {$IFNDEF WEBLIB}\r\n  [IID_ITMSFNCCustomWebBrowserContextMenuGUID]\r\n  {$ENDIF}\r\n  end;\r\n\r\n  ITMSFNCCustomWebBrowserPrint = interface(IInterface)\r\n  {$IFNDEF WEBLIB}\r\n  [IID_ITMSFNCCustomWebBrowserPrintGUID]\r\n  {$ENDIF}\r\n    procedure ShowPrintUI;\r\n    procedure Print; overload;\r\n    procedure Print(APrintSettings: TTMSFNCWebBrowserPrintSettings); overload;\r\n    procedure PrintToPDFStream(APrintSettings: TTMSFNCWebBrowserPrintSettings); overload;\r\n    procedure PrintToPDFStream; overload;\r\n    procedure PrintToPDF(AFileName: string; APrintSettings: TTMSFNCWebBrowserPrintSettings); overload;\r\n    procedure PrintToPDF(AFileName: string); overload;\r\n  end;\r\n\r\n  ITMSFNCCustomWebBrowserVirtualHosting = interface(IInterface)\r\n  {$IFNDEF WEBLIB}\r\n  [IID_ITMSFNCCustomWebBrowserVirtualHostingGUID]\r\n  {$ENDIF}\r\n    procedure SetVirtualHostNameToFolderMapping(AHostName, AFolderPath: string; AAccessKind: TTMSFNCWebBrowserHostResourceAccessKind);\r\n    procedure ClearVirtualHostNameToFolderMapping(AHostName: string);\r\n  end;\r\n\r\n  ITMSFNCWebBrowserService = interface(IInterface)\r\n  {$IFNDEF WEBLIB}\r\n  [IID_ITMSFNCCustomWebBrowserServiceGUID]\r\n  {$ENDIF}\r\n    function CreateWebBrowser(const AValue: TTMSFNCCustomWebBrowser): ITMSFNCCustomWebBrowser;\r\n    procedure DeleteCookies;\r\n    procedure DestroyWebBrowser(const AValue: ITMSFNCCustomWebBrowser);\r\n  end;\r\n\r\n  TTMSFNCCustomWebBrowserNavigateCompleteParams = record\r\n    URL: String;\r\n    Success: Boolean;\r\n    ErrorCode: Integer;\r\n  end;\r\n\r\n  TTMSFNCCustomWebBrowserBeforeNavigateParams = record\r\n    URL: String;\r\n    Cancel: Boolean;\r\n  end;\r\n\r\n  TTMSFNCCustomWebBrowserFrameNavigateCompleteParams = record\r\n    URL: String;\r\n    Success: Boolean;\r\n    ErrorCode: Integer;\r\n  end;\r\n\r\n  TTMSFNCCustomWebBrowserBeforeFrameNavigateParams = record\r\n    URL: String;\r\n    Cancel: Boolean;\r\n  end;\r\n\r\n  TTMSFNCWebBrowserNewWindowRequestedParams = record\r\n    URL: String;\r\n    Handled: Boolean;\r\n    IsUserInitiated: Boolean;\r\n  end;\r\n\r\n  TTMSFNCWebBrowserPermissionKind = (pkUnknown, pkMicrophone, pkCamera, pkGeolocation, pkNotifications, pkOtherSensors, pkClipboardRead);\r\n  TTMSFNCWebBrowserPermissionState = (psDefault, psAllow, psDeny);\r\n\r\n  TTMSFNCWebBrowserPermissionRequestedParams = record\r\n    State: TTMSFNCWebBrowserPermissionState;\r\n    URL: String;\r\n    PermissionKind: TTMSFNCWebBrowserPermissionKind;\r\n    IsUserInitiated: Boolean;\r\n  end;\r\n\r\n  TTMSFNCWebBrowserProcessFailedKind = (pfkBrowserProcessExited, pfkRenderProcessExited, pfkRenderProcessUnresponsive, pfkFrameRenderProcessExited, pfkUtilityProcessExited,\r\n      pfkSandboxHelperProcessExited, pfkGpuProcessExited, pfkPpapiPluginProcessExited, pfkPpapiBrokerProcessExited, pfkUnknownProcessExited);\r\n\r\n  TTMSFNCWebBrowserProcessFailedParams = record\r\n    ProcessFailedKind: TTMSFNCWebBrowserProcessFailedKind;\r\n  end;\r\n\r\n  TTMSFNCWebBrowserScriptDialogKind = (sdkAlert, sdkConfirm, sdkPrompt, sdkBeforeUnload, sdkUnknown);\r\n\r\n  TTMSFNCWebBrowserScriptDialogOpeningParams = record\r\n    URL: String;\r\n    ResultText: String;\r\n    Accept: Boolean;\r\n    DialogMessage: String;\r\n    DialogKind: TTMSFNCWebBrowserScriptDialogKind;\r\n    DefaultText: String;\r\n  end;\r\n\r\n  TTMSFNCWebBrowserSourceChangedParams = record\r\n    IsNewDocument: Boolean;\r\n  end;\r\n\r\n  TTMSFNCWebBrowserWebMessageReceivedParams = record\r\n    Source: String;\r\n    WebMessageAsJSON: String;\r\n  end;\r\n\r\n  TTMSFNCWebBrowserWebResourceRequest = record\r\n    URL: String;\r\n    Method: String;\r\n  end;\r\n\r\n  TTMSFNCWebBrowserWebResourceContext = (wrcAll, wrcDocument, wrcStylesheet, wrcImage, wrcMedia, wrcFont, wrcScript, wrcXMLHTTPRequest, wrcFetch, wrcTextTrack, wrcEventSource, wrcWebSocket, wrcManifest, wrcSignedExchange, wrcPing, wrcCSPViolationReport, wrcOther);\r\n\r\n  TTMSFNCWebBrowserWebResourceRequestedParams = record\r\n    Request: TTMSFNCWebBrowserWebResourceRequest;\r\n    ResourceContext: TTMSFNCWebBrowserWebResourceContext;\r\n  end;\r\n\r\n  TTMSFNCCustomWebBrowserNavigateComplete = procedure(Sender: TObject; var Params: TTMSFNCCustomWebBrowserNavigateCompleteParams) of object;\r\n  TTMSFNCCustomWebBrowserBeforeNavigate = procedure(Sender: TObject; var Params: TTMSFNCCustomWebBrowserBeforeNavigateParams) of object;\r\n  TTMSFNCCustomWebBrowserCaptureScreenShot = procedure(Sender: TObject; AScreenShot: TTMSFNCBitmap) of object;\r\n  TTMSFNCCustomWebBrowserOnExecuteSuccessful = procedure(Sender: TObject; ASuccessful: Boolean) of object;\r\n  TTMSFNCCustomWebBrowserOnGetConsoleMessage = procedure(Sender: TObject; ALogEntry: TTMSFNCWebBrowserLogEntry) of object;\r\n  TTMSFNCWebBrowserFrameNavigateComplete = procedure(Sender: TObject; var Params: TTMSFNCCustomWebBrowserFrameNavigateCompleteParams) of object;\r\n  TTMSFNCWebBrowserBeforeFrameNavigate = procedure(Sender: TObject; var Params: TTMSFNCCustomWebBrowserBeforeFrameNavigateParams) of object;\r\n  TTMSFNCWebBrowserNewWindowRequested = procedure(Sender: TObject; var Params: TTMSFNCWebBrowserNewWindowRequestedParams) of object;\r\n  TTMSFNCWebBrowserPermissionRequested = procedure(Sender: TObject; var Params: TTMSFNCWebBrowserPermissionRequestedParams) of object;\r\n  TTMSFNCWebBrowserProcessFailed = procedure(Sender: TObject; var Params: TTMSFNCWebBrowserProcessFailedParams) of object;\r\n  TTMSFNCWebBrowserScriptDialogOpening = procedure(Sender: TObject; var Params: TTMSFNCWebBrowserScriptDialogOpeningParams) of object;\r\n  TTMSFNCWebBrowserSourceChanged = procedure(Sender: TObject; var Params: TTMSFNCWebBrowserSourceChangedParams) of object;\r\n  TTMSFNCWebBrowserWebMessageReceivedChanged = procedure(Sender: TObject; var Params: TTMSFNCWebBrowserWebMessageReceivedParams) of object;\r\n  TTMSFNCWebBrowserWebResourceRequested = procedure(Sender: TObject; var Params: TTMSFNCWebBrowserWebResourceRequestedParams) of object;\r\n\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCWebBrowserDocumentReadyStateThread = class(TThread)\r\n  private\r\n    FWebBrowser: TTMSFNCCustomWebBrowser;\r\n  protected\r\n    procedure Execute; override;\r\n  public\r\n    constructor Create(AWebBrowser: TTMSFNCCustomWebBrowser);\r\n  end;\r\n  {$ENDIF}\r\n\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCScript = class\r\n  private\r\n    FScript: string;\r\n    FCompleteEvent: TTMSFNCWebBrowserJavaScriptCompleteEvent;\r\n  public\r\n    constructor Create(AScript: string; ACompleteEvent: TTMSFNCWebBrowserJavaScriptCompleteEvent);\r\n  end;\r\n\r\n  TTMSFNCScriptList = class(TObjectList<TTMSFNCScript>);\r\n  {$ENDIF}\r\n\r\n  TTMSFNCCustomWebBrowserSettings = class(TPersistent)\r\n  private\r\n    FOwner: TTMSFNCCustomWebBrowser;\r\n    FAllowExternalDrop: Boolean;\r\n    FEnableScript: Boolean;\r\n    FEnableAcceleratorKeys: Boolean;\r\n    FEnableContextMenu: Boolean;\r\n    FEnableShowDebugConsole: Boolean;\r\n    FUsePopupMenuAsContextMenu: Boolean;\r\n    FLanguage: string;\r\n    FAdditionalBrowserArguments: TStringList;\r\n    function GetEnableAcceleratorKeys: Boolean;\r\n    function GetEnableContextMenu: Boolean;\r\n    function GetEnableScript: Boolean;\r\n    function GetEnableShowDebugConsole: Boolean;\r\n    procedure SetEnableAcceleratorKeys(const Value: Boolean);\r\n    procedure SetEnableContextMenu(const Value: Boolean);\r\n    procedure SetEnableShowDebugConsole(const Value: Boolean);\r\n    procedure SetEnableScript(const Value: boolean);\r\n    function GetUsePopupMenuAsContextMenu: Boolean;\r\n    procedure SetUsePopupMenuAsContextMenu(const Value: Boolean);\r\n    function GetAllowExternalDrop: Boolean;\r\n    procedure SetAllowExternalDrop(const Value: Boolean);\r\n    procedure SetAdditionalBrowserArguments(const Value: TStringList);\r\n  protected\r\n    procedure ApplySettings;\r\n    property EnableScript: Boolean read GetEnableScript write SetEnableScript;\r\n    property EnableContextMenu: Boolean read GetEnableContextMenu write SetEnableContextMenu;\r\n    property EnableShowDebugConsole: Boolean read GetEnableShowDebugConsole write SetEnableShowDebugConsole;\r\n    property EnableAcceleratorKeys: Boolean read GetEnableAcceleratorKeys write SetEnableAcceleratorKeys;\r\n    property UsePopupMenuAsContextMenu: Boolean read GetUsePopupMenuAsContextMenu write SetUsePopupMenuAsContextMenu;\r\n    property AllowExternalDrop: Boolean read GetAllowExternalDrop write SetAllowExternalDrop;\r\n    property AdditionalBrowserArguments: TStringList read FAdditionalBrowserArguments write SetAdditionalBrowserArguments;\r\n    property Language: string read FLanguage write FLanguage;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCCustomWebBrowser);\r\n    destructor Destroy; override;\r\n  end;\r\n\r\n  TTMSFNCWebBrowserSettings = class(TTMSFNCCustomWebBrowserSettings)\r\n  published\r\n//    property EnableScript;\r\n    property EnableContextMenu;\r\n    property EnableShowDebugConsole;\r\n    property EnableAcceleratorKeys;\r\n    property AllowExternalDrop;\r\n    property UsePopupMenuAsContextMenu;\r\n    property Language;\r\n    property AdditionalBrowserArguments;\r\n  end;\r\n\r\n  TTMSFNCWebBrowserError = class(TPersistent)\r\n  private\r\n    FMessage: string;\r\n    FType: string;\r\n    function GetMessage: string;\r\n    function GetType: string;\r\n  protected\r\n    function GetDefaultErrorMessage: string; virtual;\r\n    function GetDefaultType: string; virtual;\r\n  public\r\n    constructor Create(AMessage, AType: string); overload; virtual;\r\n    constructor Create(AMessage: string); overload; virtual;\r\n    constructor CreateDefault; virtual;\r\n  published\r\n    property &Message: string read GetMessage;\r\n    property &Type: string read GetType;\r\n  end;\r\n\r\n  TTMSFNCWebBrowserErrorEvent = procedure(Sender: TObject; AError: TTMSFNCWebBrowserError) of object;\r\n\r\n  TTMSFNCCustomWebBrowser = class(TTMSFNCCustomControl)\r\n  private\r\n    FInitializeEventCalled: Boolean;\r\n    FDesigntimeEnabled: Boolean;\r\n    FCanDestroyDispatch: Boolean;\r\n    FSyncValue: string;\r\n    FSyncValueExecuted: Boolean;\r\n    FThreadDone: Boolean;\r\n    FReady: Boolean;\r\n    FInitialized: Boolean;\r\n    {$IFNDEF WEBLIB}\r\n    FScriptList: TTMSFNCScriptList;\r\n    FDocumentReadyStateThread: TTMSFNCWebBrowserDocumentReadyStateThread;\r\n    {$ENDIF}\r\n    FWebBrowser: ITMSFNCCustomWebBrowser;\r\n    FURL: string;\r\n    FExternalBrowser, FEnableShowDebugConsole, FEnableAcceleratorKeys, FEnableContextMenu: Boolean;\r\n    FOnNavigateComplete: TTMSFNCCustomWebBrowserNavigateComplete;\r\n    FOnBeforeNavigate: TTMSFNCCustomWebBrowserBeforeNavigate;\r\n    FOnHardwareButtonClicked: TNotifyEvent;\r\n    FOnInitialized: TNotifyEvent;\r\n    FOnCloseForm: TNotifyEvent;\r\n    FOnDocumentComplete: TNotifyEvent;\r\n    FOnCaptureScreenShot: TTMSFNCCustomWebBrowserCaptureScreenShot;\r\n    FSettings: TTMSFNCWebBrowserSettings;\r\n    FOnGetContextMenu: TTMSFNCWebBrowserOnGetContextMenu;\r\n    FOnGetCookies: TTMSFNCWebBrowserOnGetCookies;\r\n    FOnGetPrintPDFStream: TTMSFNCWebBrowserOnGetPrintPDFStream;\r\n    FOnPrintedToPDF: TTMSFNCCustomWebBrowserOnExecuteSuccessful;\r\n    FOnPrinted: TTMSFNCCustomWebBrowserOnExecuteSuccessful;\r\n    FOnCustomContextMenuItemSelected: TTMSFNCWebBrowserOnCustomContextMenuItemSelected;\r\n    FOnGetPopupMenuForContextMenu: TTMSFNCWebBrowserOnGetPopupMenuForContextMenu;\r\n    FOnDevToolsSubscribedEvent: TTMSFNCWebBrowserOnGetDevTools;\r\n    FOnDevToolsMethodCompleted: TTMSFNCWebBrowserOnGetDevTools;\r\n    FOnGetConsoleMessage: TTMSFNCCustomWebBrowserOnGetConsoleMessage;\r\n    FOnDownloadStarted: TTMSFNCWebBrowserOnDownloadStarted;\r\n    FDownloads: TTMSFNCWebBrowserDownloads;\r\n    FOnDownloadStateChanged: TTMSFNCWebBrowserOnDownloadStateChanged;\r\n    FOnDownloadBytesReceivedChanged: TTMSFNCWebBrowserOnDownloadBytesChanged;\r\n    FOnContainsFullScreenElementChanged: TNotifyEvent;\r\n    FOnDocumentTitleChanged: TNotifyEvent;\r\n    FOnFrameNavigateComplete: TTMSFNCWebBrowserFrameNavigateComplete;\r\n    FOnBeforeFrameNavigate: TTMSFNCWebBrowserBeforeFrameNavigate;\r\n    FOnHistoryChanged: TNotifyEvent;\r\n    FOnNewWindowRequested: TTMSFNCWebBrowserNewWindowRequested;\r\n    FOnPermissionRequested: TTMSFNCWebBrowserPermissionRequested;\r\n    FOnProcessFailed: TTMSFNCWebBrowserProcessFailed;\r\n    FOnScriptDialogOpening: TTMSFNCWebBrowserScriptDialogOpening;\r\n    FOnSourceChanged: TTMSFNCWebBrowserSourceChanged;\r\n    FOnWebMessageReceived: TTMSFNCWebBrowserWebMessageReceivedChanged;\r\n    FOnWebResourceRequested: TTMSFNCWebBrowserWebResourceRequested;\r\n    FOnWindowCloseRequested: TNotifyEvent;\r\n    FOnZoomFactorChanged: TNotifyEvent;\r\n    FOnDownloadEstimatedEndTimeChanged: TTMSFNCWebBrowserOnDownloadTimeChanged;\r\n    FOnError: TTMSFNCWebBrowserErrorEvent;\r\n    function GetURL: string;\r\n    procedure SetURL(const Value: string);\r\n    function GetExternalBrowser: Boolean;\r\n    procedure SetExternalBrowser(const Value: Boolean);\r\n    function GetEnableContextMenu: Boolean;\r\n    function GetEnableShowDebugConsole: Boolean;\r\n    procedure SetEnableContextMenu(const Value: Boolean);\r\n    procedure SetEnableShowDebugConsole(const Value: Boolean);\r\n    function GetCacheFolder: string;\r\n    function GetCacheFolderName: string;\r\n    function GetAutoClearCache: Boolean;\r\n    procedure SetCacheFolder(const Value: string);\r\n    procedure SetCacheFolderName(const Value: string);\r\n    procedure SetAutoClearCache(const Value: Boolean);\r\n    procedure SetDesigntimeEnabled(const Value: Boolean);\r\n    function GetEnableAcceleratorKeys: Boolean;\r\n    procedure SetEnabledAcceleratorKeys(const Value: Boolean);\r\n    function GetUserAgent: string;\r\n    procedure SetUserAgent(const Value: string);\r\n    procedure DoExecuteJavaScriptSync(const AValue: string);\r\n    procedure SetSettings(const Value: TTMSFNCWebBrowserSettings);\r\n    function GetSettingsI: ITMSFNCCustomWebBrowserSettings;\r\n    {$IFDEF FMXLIB}\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION > 32}\r\n    procedure FormHandleCreated(const Sender: TObject; const Msg: TMessage);\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n    {$ENDIF}\r\n    {$IFDEF VCLLIB}\r\n    procedure CMVisibleChanged(var Message: TMessage); message CM_VISIBLECHANGED;\r\n    {$ENDIF}\r\n  protected\r\n    {$IFDEF LCLLIB}\r\n    {$IFDEF UNIX}\r\n    {$IFDEF LCLGTK3}\r\n    class procedure WSRegisterClass; override;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n\r\n    function GetDocURL: string; override;\r\n    function GetVersion: string; override;\r\n    function CanCreateBrowser: Boolean;\r\n    function CanBeVisible: Boolean; virtual;\r\n    function CheckIdentifier: Boolean; virtual;\r\n    class procedure DeleteCookies; virtual;\r\n    {$IFNDEF WEBLIB}\r\n    procedure StartDocumentReadyStateThread; virtual;\r\n    procedure DoTerminate(Sender: TObject);\r\n    procedure StopDocumentReadyStateThread;\r\n    procedure DoScriptHandled(Sender: TObject);\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    procedure UpdateElement; override;\r\n    {$ENDIF}\r\n    procedure DoEnter; override;\r\n    procedure DoExit; override;\r\n    procedure DoError(AError: TTMSFNCWebBrowserError); virtual;\r\n    procedure ChangeDPIScale({%H-}M, {%H-}D: Integer); override;\r\n    procedure CreateClasses; virtual;\r\n    procedure DoDocumentComplete; virtual;\r\n    procedure CheckApplicationInitialized;\r\n    procedure DoCheckReadyState(const AValue: string);\r\n    procedure DoCheckIdentifier(const AValue: string);\r\n    procedure DoHardwareButtonClicked; virtual;\r\n    procedure DoCloseForm; virtual;\r\n    procedure DoCaptureScreenShot(AScreenShot: TTMSFNCBitmap); virtual;\r\n    procedure BeforeNavigate(var Params: TTMSFNCCustomWebBrowserBeforeNavigateParams); virtual;\r\n    procedure NavigateComplete(var Params: TTMSFNCCustomWebBrowserNavigateCompleteParams); virtual;\r\n    procedure Initialized; virtual;\r\n    {$IFDEF FMXLIB}\r\n    procedure AncestorVisibleChanged(const Visible: Boolean); override;\r\n    procedure SetParent(const Value: TFmxObject); override;\r\n    procedure SetVisible(const Value: Boolean); override;\r\n    procedure SetEnabled(const Value: Boolean); override;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    {$IFDEF CMNLIB}\r\n    procedure SetParent(Value: TWinControl); override;\r\n    {$ELSE}\r\n    procedure SetParent(Value: TControl); override;\r\n    {$ENDIF}\r\n    procedure SetEnabled(Value: Boolean); override;\r\n    {$ENDIF}\r\n    procedure DoKeyPressed(var Key: Word); virtual;\r\n    procedure Draw({%H-}AGraphics: TTMSFNCGraphics; {%H-}ARect: TRectF); override;\r\n    procedure Loaded; override;\r\n    property OnInitialized: TNotifyEvent read FOnInitialized write FOnInitialized;\r\n    property OnError: TTMSFNCWebBrowserErrorEvent read FOnError write FOnError;\r\n    property ExternalBrowser: Boolean read GetExternalBrowser write SetExternalBrowser default False;\r\n    procedure Navigate; overload; virtual;\r\n    procedure Navigate(const AURL: string); overload; virtual;\r\n    procedure ExecuteJavaScript(AScript: String; ACompleteEvent: TTMSFNCWebBrowserJavaScriptCompleteEvent = nil; AImmediate: Boolean = False); virtual;\r\n    function ExecuteJavaScriptSync(AScript: string): string; virtual;\r\n    procedure LoadHTML(AHTML: String); virtual;\r\n    procedure LoadFile(AFile: String); virtual;\r\n    procedure Initialize; virtual;\r\n    procedure DeInitialize; virtual;\r\n    procedure GoForward; virtual;\r\n    procedure GoBack; virtual;\r\n    procedure Reload; virtual;\r\n    procedure StopLoading; virtual;\r\n    procedure AddBridge(ABridgeName: string; ABridgeObject: TObject); virtual;\r\n    procedure RemoveBridge(ABridgeName: string); virtual;\r\n    procedure CaptureScreenShot(ACompleteEvent: TTMSFNCWebBrowserCaptureScreenShotCompleteEvent = nil); virtual;\r\n    procedure ShowDebugConsole; virtual;\r\n    property URL: string read GetURL write SetURL;\r\n    property SettingsI: ITMSFNCCustomWebBrowserSettings read GetSettingsI;\r\n    function GetBridgeCommunicationLayer(ABridgeName: string): string; virtual;\r\n    function NativeEnvironment: Pointer; virtual;\r\n    function NativeBrowser: Pointer; virtual;\r\n    function IsFMXBrowser: Boolean; virtual;\r\n    function CanGoBack: Boolean; virtual;\r\n    function CanGoForward: Boolean; virtual;\r\n    {$IFDEF ANDROID}\r\n    function NativeDialog: Pointer; virtual;\r\n    {$ENDIF}\r\n    {$IFDEF MSWINDOWS}\r\n    function GetWebBrowserInstance: IInterface; virtual;\r\n    {$ENDIF}\r\n    property OnCloseForm: TNotifyEvent read FOnCloseForm write FOnCloseForm;\r\n    property OnBeforeNavigate: TTMSFNCCustomWebBrowserBeforeNavigate read FOnBeforeNavigate write FOnBeforeNavigate;\r\n    property OnNavigateComplete: TTMSFNCCustomWebBrowserNavigateComplete read FOnNavigateComplete write FOnNavigateComplete;\r\n    property OnHardwareButtonClicked: TNotifyEvent read FOnHardwareButtonClicked write FOnHardwareButtonClicked;\r\n    property OnDocumentComplete: TNotifyEvent read FOnDocumentComplete write FOnDocumentComplete;\r\n    property OnCaptureScreenShot: TTMSFNCCustomWebBrowserCaptureScreenShot read FOnCaptureScreenShot write FOnCaptureScreenShot;\r\n    property EnableContextMenu: Boolean read GetEnableContextMenu write SetEnableContextMenu default True;\r\n    property EnableShowDebugConsole: Boolean read GetEnableShowDebugConsole write SetEnableShowDebugConsole default True;\r\n    property EnableAcceleratorKeys: Boolean read GetEnableAcceleratorKeys write SetEnabledAcceleratorKeys default True;\r\n    property CacheFolder: string read GetCacheFolder write SetCacheFolder;\r\n    property CacheFolderName: string read GetCacheFolderName write SetCacheFolderName;\r\n    property AutoClearCache: Boolean read GetAutoClearCache write SetAutoClearCache;\r\n    property UserAgent: string read GetUserAgent write SetUserAgent;\r\n    property CanDestroyDispatch: Boolean read FCanDestroyDispatch write FCanDestroyDispatch;\r\n    property DesigntimeEnabled: Boolean read FDesigntimeEnabled write SetDesigntimeEnabled default True;\r\n    property Settings: TTMSFNCWebBrowserSettings read FSettings write SetSettings;\r\n    property OnGetContextMenu: TTMSFNCWebBrowserOnGetContextMenu read FOnGetContextMenu write FOnGetContextMenu;\r\n    property OnGetPopupMenuForContextMenu: TTMSFNCWebBrowserOnGetPopupMenuForContextMenu read FOnGetPopupMenuForContextMenu write FOnGetPopupMenuForContextMenu;\r\n    property OnCustomContextMenuItemSelected: TTMSFNCWebBrowserOnCustomContextMenuItemSelected read FOnCustomContextMenuItemSelected write FOnCustomContextMenuItemSelected;\r\n    procedure DoGetContextMenuItemEvent(ATarget: TTMSFNCWebBrowserTargetItem; AContextMenu: TObjectList<TTMSFNCWebBrowserContextMenuItem>);\r\n    procedure DoGetPopupMenuForContextMenu(ATarget: TTMSFNCWebBrowserTargetItem; var APopUpMenu: TPopupMenu);\r\n    procedure DoCustomContextMenuItemSelected(ASelectedItem: TTMSFNCWebBrowserCustomContextMenuItem); virtual;\r\n    function InitialPrintSettings: TTMSFNCWebBrowserPrintSettings; virtual;\r\n    procedure DoGetPrintPDFStream(AStream: TMemoryStream); virtual;\r\n    property OnGetPrintPDFStream: TTMSFNCWebBrowserOnGetPrintPDFStream read FOnGetPrintPDFStream write FOnGetPrintPDFStream;\r\n    property OnGetCookies: TTMSFNCWebBrowserOnGetCookies read FOnGetCookies write FOnGetCookies;\r\n    procedure DoGetCookies(ACookies: array of TTMSFNCWebBrowserCookie); virtual;\r\n    procedure DoPrintedToPDF(ASuccesfull: Boolean); virtual;\r\n    procedure DoPrinted(APrinterStatus: Boolean); virtual;\r\n    property OnPrintedToPDF: TTMSFNCCustomWebBrowserOnExecuteSuccessful read FOnPrintedToPDF write FOnPrintedToPDF;\r\n    property OnPrinted: TTMSFNCCustomWebBrowserOnExecuteSuccessful read FOnPrinted write FOnPrinted;\r\n    procedure OpenTaskManager; virtual;\r\n    procedure GetCookies(AURI: string = ''); virtual;\r\n    procedure AddCookie(ACookie: TTMSFNCWebBrowserCookie); virtual;\r\n    procedure DeleteAllCookies; virtual;\r\n    procedure DeleteCookie(AName: string; ADomain: string; APath: string); virtual;\r\n    procedure SetVirtualHostNameToFolderMapping(AHostName, AFolderPath: string; AAccessKind: TTMSFNCWebBrowserHostResourceAccessKind); virtual;\r\n    procedure ClearVirtualHostNameToFolderMapping(AHostName: string); virtual;\r\n    procedure ShowPrintUI; virtual;\r\n    procedure Print(APrintSettings: TTMSFNCWebBrowserPrintSettings); overload; virtual;\r\n    procedure Print; overload; virtual;\r\n    procedure PrintToPDFStream(APrintSettings: TTMSFNCWebBrowserPrintSettings); overload; virtual;\r\n    procedure PrintToPDFStream; overload; virtual;\r\n    procedure PrintToPDF(AFileName: string; APrintSettings: TTMSFNCWebBrowserPrintSettings); overload; virtual;\r\n    procedure PrintToPDF(AFileName: string); overload; virtual;\r\n    procedure NavigateWithData(AURI: string; AMethod: string; ABody: string; AHeaders: TStrings = nil); overload; virtual;\r\n    procedure NavigateWithData(AURI: string; AMethod: string; ABodyStream: TStream; AHeaders: TStrings = nil); overload; virtual;\r\n    procedure ClearCache; virtual;\r\n    procedure SubscribeDevtools(AEventName: string); virtual;\r\n    procedure CallDevToolsProtocolMethod(AMethodName: string; AParametersAsJSON: string); virtual;\r\n    procedure DoDevToolsMethodCompleted(AEventName: string; AJSONResponse: string); virtual;\r\n    procedure DoDevToolsSubscribedEvent(AEventName: string; AJSONResponse: string); virtual;\r\n    procedure DoGetConsoleMessage(ALogEntry: TTMSFNCWebBrowserLogEntry); virtual;\r\n    procedure SetupStartDomains; virtual;\r\n    property OnDevToolsMethodCompleted: TTMSFNCWebBrowserOnGetDevTools read FOnDevToolsMethodCompleted write FOnDevToolsMethodCompleted;\r\n    property OnDevToolsSubscribedEvent: TTMSFNCWebBrowserOnGetDevTools read FOnDevToolsSubscribedEvent write FOnDevToolsSubscribedEvent;\r\n    property  OnGetConsoleMessage: TTMSFNCCustomWebBrowserOnGetConsoleMessage read FOnGetConsoleMessage write FOnGetConsoleMessage;\r\n    procedure DoDownloadStarted(ADownload: TTMSFNCWebBrowserDownload; var ASilent: Boolean; var APause: Boolean; var AResume: Boolean; var ACancel: Boolean); virtual;\r\n    procedure DoDownloadStateChanged(ADownload: TTMSFNCWebBrowserDownload; AState: TTMSFNCWebBrowserDownloadState; var APause: Boolean; var AResume: Boolean; var ACancel: Boolean); virtual;\r\n    procedure DoDownloadBytesReceivedChanged(ADownload: TTMSFNCWebBrowserDownload; ABytesReceived: Int64; var APause: Boolean; var AResume: Boolean; var ACancel: Boolean); virtual;\r\n    procedure DoDownloadEstimatedEndTimeChanged(ADownload: TTMSFNCWebBrowserDownload; AEstimatedEndTime: TDateTime; var APause: Boolean; var AResume: Boolean; var ACancel: Boolean); virtual;\r\n    procedure CancelDownload(ADownload: TTMSFNCWebBrowserDownload);\r\n    procedure PauseDownload(ADownload: TTMSFNCWebBrowserDownload);\r\n    procedure ResumeDownload(ADownload: TTMSFNCWebBrowserDownload);\r\n    function GetDownloadInterruptReasonText(ADownloadInterruptReason: TTMSFNCWebBrowserDownloadInterruptReason): string; virtual;\r\n    function GetDownloadStateText(ADownloadState: TTMSFNCWebBrowserDownloadState): string; virtual;\r\n    function GetDocumentTitle: string; virtual;\r\n    function GetContainsFullScreenElement: Boolean; virtual;\r\n    function GetParentWindowHandle: Cardinal; virtual;\r\n    function GetBrowserVersion: string; virtual;\r\n    function GetUserDataFolder: string; virtual;\r\n    procedure DoContainsFullScreenElementChanged; virtual;\r\n    procedure DoDocumentTitleChanged; virtual;\r\n    procedure DoBeforeFrameNavigate(var Params: TTMSFNCCustomWebBrowserBeforeFrameNavigateParams); virtual;\r\n    procedure DoFrameNavigationComplete(var Params: TTMSFNCCustomWebBrowserFrameNavigateCompleteParams); virtual;\r\n    procedure DoHistoryChanged; virtual;\r\n    procedure DoNewWindowRequested(var Params: TTMSFNCWebBrowserNewWindowRequestedParams); virtual;\r\n    procedure DoPermissionRequested(var Params: TTMSFNCWebBrowserPermissionRequestedParams); virtual;\r\n    procedure DoProcessFailed(var Params: TTMSFNCWebBrowserProcessFailedParams); virtual;\r\n    procedure DoScriptDialogOpening(var Params: TTMSFNCWebBrowserScriptDialogOpeningParams); virtual;\r\n    procedure DoSourceChanged(var Params: TTMSFNCWebBrowserSourceChangedParams); virtual;\r\n    procedure DoWebMessageReceived(var Params: TTMSFNCWebBrowserWebMessageReceivedParams); virtual;\r\n    procedure DoWebResourceRequested(var Params: TTMSFNCWebBrowserWebResourceRequestedParams); virtual;\r\n    procedure DoWindowCloseRequested; virtual;\r\n    procedure DoZoomFactorChanged; virtual;\r\n    property OnDownloadStarted: TTMSFNCWebBrowserOnDownloadStarted read FOnDownloadStarted write FOnDownloadStarted;\r\n    property OnDownloadStateChanged: TTMSFNCWebBrowserOnDownloadStateChanged read FOnDownloadStateChanged write FOnDownloadStateChanged;\r\n    property OnDownloadBytesReceivedChanged: TTMSFNCWebBrowserOnDownloadBytesChanged read FOnDownloadBytesReceivedChanged write FOnDownloadBytesReceivedChanged;\r\n    property OnDownloadEstimatedEndTimeChanged: TTMSFNCWebBrowserOnDownloadTimeChanged read FOnDownloadEstimatedEndTimeChanged write FOnDownloadEstimatedEndTimeChanged;\r\n    property Downloads: TTMSFNCWebBrowserDownloads read FDownloads write FDownloads;\r\n    property OnContainsFullScreenElementChanged: TNotifyEvent read FOnContainsFullScreenElementChanged write FOnContainsFullScreenElementChanged;\r\n    property OnDocumentTitleChanged: TNotifyEvent read FOnDocumentTitleChanged write FOnDocumentTitleChanged;\r\n    property OnBeforeFrameNavigate: TTMSFNCWebBrowserBeforeFrameNavigate read FOnBeforeFrameNavigate write FOnBeforeFrameNavigate;\r\n    property OnFrameNavigateComplete: TTMSFNCWebBrowserFrameNavigateComplete read FOnFrameNavigateComplete write FOnFrameNavigateComplete;\r\n    property OnHistoryChanged: TNotifyEvent read FOnHistoryChanged write FOnHistoryChanged;\r\n    property OnNewWindowRequested: TTMSFNCWebBrowserNewWindowRequested read FOnNewWindowRequested write FOnNewWindowRequested;\r\n    property OnPermissionRequested: TTMSFNCWebBrowserPermissionRequested read FOnPermissionRequested write FOnPermissionRequested;\r\n    property OnProcessFailed: TTMSFNCWebBrowserProcessFailed read FOnProcessFailed write FOnProcessFailed;\r\n    property OnScriptDialogOpening: TTMSFNCWebBrowserScriptDialogOpening read FOnScriptDialogOpening write FOnScriptDialogOpening;\r\n    property OnSourceChanged: TTMSFNCWebBrowserSourceChanged read FOnSourceChanged write FOnSourceChanged;\r\n    property OnWebMessageReceived: TTMSFNCWebBrowserWebMessageReceivedChanged read FOnWebMessageReceived write FOnWebMessageReceived;\r\n    property OnWebResourceRequested: TTMSFNCWebBrowserWebResourceRequested read FOnWebResourceRequested write FOnWebResourceRequested;\r\n    property OnWindowCloseRequested: TNotifyEvent read FOnWindowCloseRequested write FOnWindowCloseRequested;\r\n    property OnZoomFactorChanged: TNotifyEvent read FOnZoomFactorChanged write FOnZoomFactorChanged;\r\n    {$IFDEF FMXLIB}\r\n    procedure Show; override;\r\n    procedure Hide; override;\r\n    procedure Move; override;\r\n    procedure DoAbsoluteChanged; override;\r\n    {$ENDIF}\r\n    {$IFDEF VCLLIB}\r\n    procedure CreateWnd; override;\r\n    {$ENDIF}\r\n    function CanRecreate: Boolean; virtual;\r\n    function CanLoadDefaultHTML: Boolean; virtual;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    {$IFDEF FMXLIB}\r\n    procedure SetBounds(X, Y, AWidth, AHeight: Single); override;\r\n    {$ENDIF}\r\n    procedure UpdateControlAfterResize; override;\r\n    property Version: string read GetVersion;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCWebBrowserList = class(TList)\r\n  private\r\n    function GetItem(Index: Integer): ITMSFNCCustomWebBrowser;\r\n    procedure SetItem(Index: Integer; const Value: ITMSFNCCustomWebBrowser);\r\n  public\r\n    property Items[Index: Integer]: ITMSFNCCustomWebBrowser read GetItem write SetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCWebBrowserList = class(TList<ITMSFNCCustomWebBrowser>);\r\n  {$ENDIF}\r\n\r\n  TTMSFNCWebBrowserFactoryService = class(TInterfacedObject, ITMSFNCWebBrowserService)\r\n  protected\r\n    FWebBrowsers: TTMSFNCWebBrowserList;\r\n    function DoCreateWebBrowser(const AValue: TTMSFNCCustomWebBrowser): ITMSFNCCustomWebBrowser; virtual; abstract;\r\n    procedure DoRemoveWebBrowser(const AValue: ITMSFNCCustomWebBrowser);\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n    function CreateWebBrowser(const AValue: TTMSFNCCustomWebBrowser): ITMSFNCCustomWebBrowser;\r\n    procedure DeleteCookies; virtual; abstract;\r\n    procedure DestroyWebBrowser(const AValue: ITMSFNCCustomWebBrowser);\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatforms)]\r\n  {$ENDIF}\r\n  TTMSFNCWebBrowser = class(TTMSFNCCustomWebBrowser)\r\n  public\r\n    {$IFNDEF WEBLIB}\r\n    procedure StartDocumentReadyStateThread; override;\r\n    {$ENDIF}\r\n    procedure Navigate; overload; override;\r\n    procedure Navigate(const AURL: string); overload; override;\r\n    procedure ExecuteJavaScript(AScript: String; ACompleteEvent: TTMSFNCWebBrowserJavaScriptCompleteEvent = nil; AImmediate: Boolean = False); override;\r\n    function ExecuteJavaScriptSync(AScript: string): string; override;\r\n    procedure LoadHTML(AHTML: String); override;\r\n    procedure LoadFile(AFile: String); override;\r\n    procedure Initialize; override;\r\n    procedure DeInitialize; override;\r\n    procedure GoForward; override;\r\n    procedure GoBack; override;\r\n    procedure Reload; override;\r\n    procedure StopLoading; override;\r\n    procedure ShowDebugConsole; override;\r\n    procedure AddBridge(ABridgeName: string; ABridgeObject: TObject); override;\r\n    procedure RemoveBridge(ABridgeName: string); override;\r\n    procedure CaptureScreenShot(ACompleteEvent: TTMSFNCWebBrowserCaptureScreenShotCompleteEvent = nil); override;\r\n    function GetBridgeCommunicationLayer(ABridgeName: string): string; override;\r\n    function NativeEnvironment: Pointer; override;\r\n    function NativeBrowser: Pointer; override;\r\n    function IsFMXBrowser: Boolean; override;\r\n    function CanGoBack: Boolean; override;\r\n    function CanGoForward: Boolean; override;\r\n    {$IFDEF ANDROID}\r\n    function NativeDialog: Pointer; override;\r\n    {$ENDIF}\r\n    {$IFDEF MSWINDOWS}\r\n    function GetWebBrowserInstance: IInterface; override;\r\n    {$ENDIF}\r\n    {$IFNDEF FNCLIB}\r\n    procedure OpenTaskManager; override;\r\n    procedure GetCookies(AURI: string = ''); override;\r\n    procedure AddCookie(ACookie: TTMSFNCWebBrowserCookie); override;\r\n    procedure DeleteAllCookies; override;\r\n    procedure DeleteCookie(AName: string; ADomain: string; APath: string); override;\r\n    function InitialPrintSettings: TTMSFNCWebBrowserPrintSettings; override;\r\n    procedure ShowPrintUI; override;\r\n    procedure SetVirtualHostNameToFolderMapping(AHostName, AFolderPath: string; AAccessKind: TTMSFNCWebBrowserHostResourceAccessKind); override;\r\n    procedure ClearVirtualHostNameToFolderMapping(AHostName: string); override;\r\n    procedure Print(APrintSettings: TTMSFNCWebBrowserPrintSettings); overload; override;\r\n    procedure Print; overload; override;\r\n    procedure PrintToPDFStream(APrintSettings: TTMSFNCWebBrowserPrintSettings); overload; override;\r\n    procedure PrintToPDFStream; overload; override;\r\n    procedure PrintToPDF(AFileName: string; APrintSettings: TTMSFNCWebBrowserPrintSettings); overload; override;\r\n    procedure PrintToPDF(AFileName: string); overload; override;\r\n    procedure NavigateWithData(AURI: string; AMethod: string; ABody: string; AHeaders: TStrings = nil); overload; override;\r\n    procedure NavigateWithData(AURI: string; AMethod: string; ABodyStream: TStream; AHeaders: TStrings = nil); overload; override;\r\n    procedure SubscribeDevtools(AEventName: string); override;\r\n    procedure CallDevToolsProtocolMethod(AMethodName: string; AParametersAsJSON: string); override;\r\n    function GetDownloadInterruptReasonText(ADownloadInterruptReason: TTMSFNCWebBrowserDownloadInterruptReason): string; override;\r\n    function GetDownloadStateText(ADownloadState: TTMSFNCWebBrowserDownloadState): string; override;\r\n    property Downloads;\r\n    {$ENDIF}\r\n    property OnCloseForm;\r\n    property EnableContextMenu;\r\n    property EnableShowDebugConsole;\r\n    property EnableAcceleratorKeys;\r\n    property CacheFolder;\r\n    property CacheFolderName;\r\n    property AutoClearCache;\r\n    procedure ClearCache; override;\r\n    property UserAgent;\r\n  published\r\n    property OnInitialized;\r\n    property OnError;\r\n    property URL;\r\n    property OnBeforeNavigate;\r\n    property OnNavigateComplete;\r\n    property OnHardwareButtonClicked;\r\n    property OnCaptureScreenShot;\r\n    property OnDocumentComplete;\r\n    property Version;\r\n    property DesigntimeEnabled;\r\n    {$IFNDEF FNCLIB}\r\n    property Settings;\r\n    property OnGetContextMenu;\r\n    property OnGetCookies;\r\n    property OnPrintedToPDF;\r\n    property OnGetPrintPDFStream;\r\n    property OnPrinted;\r\n    property OnCustomContextMenuItemSelected;\r\n    property OnGetPopupMenuForContextMenu;\r\n    property OnDevToolsMethodCompleted;\r\n    property OnDevToolsSubscribedEvent;\r\n    property OnGetConsoleMessage;\r\n    property OnDownloadStarted;\r\n    property OnDownloadStateChanged;\r\n    property OnDownloadBytesReceivedChanged;\r\n    property OnContainsFullScreenElementChanged;\r\n    property OnDocumentTitleChanged;\r\n    property OnBeforeFrameNavigate;\r\n    property OnFrameNavigateComplete;\r\n    property OnHistoryChanged;\r\n    property OnNewWindowRequested;\r\n    property OnPermissionRequested;\r\n    property OnProcessFailed;\r\n    property OnScriptDialogOpening;\r\n    property OnSourceChanged;\r\n    property OnWebMessageReceived;\r\n    property OnWebResourceRequested;\r\n    property OnWindowCloseRequested;\r\n    {$ENDIF}\r\n  end;\r\n\r\n  TTMSFNCWebBrowserPopup = class;\r\n\r\n  {$IFDEF FMXMOBILE}\r\n  TTMSFNCWebBrowserPopupForm = class(TCommonCustomForm)\r\n  {$ELSE}\r\n  TTMSFNCWebBrowserPopupForm = class(TCustomForm)\r\n  {$ENDIF}\r\n  private\r\n    FWebBrowserPopup: TTMSFNCWebBrowserPopup;\r\n  protected\r\n    procedure UpdateBackGround;\r\n  public\r\n    procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;\r\n  end;\r\n\r\n  {$IFDEF IOS}\r\n  ITMSFNCWebBrowserPopupButtonEventHandler = interface(NSObject)\r\n  ['{723E9874-7EEF-4E40-896D-9E2DAC8E6DD4}']\r\n    procedure Click; cdecl;\r\n  end;\r\n\r\n  TTMSFNCWebBrowserPopupButtonEventHandler = class(TOCLocal)\r\n  private\r\n    FWebBrowserPopup: TTMSFNCWebBrowserPopup;\r\n  protected\r\n    function GetObjectiveCClass: PTypeInfo; override;\r\n  public\r\n    procedure Click; cdecl;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF ANDROID}\r\n  TTMSFNCWebBrowserPopupButtonEventHandler = class(TJavaLocal, JView_OnClickListener)\r\n  private\r\n    FWebBrowserPopup: TTMSFNCWebBrowserPopup;\r\n  public\r\n    procedure onClick(P1: JView); cdecl;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  TTMSFNCCustomWebBrowserClass = class of TTMSFNCCustomWebBrowser;\r\n\r\n  {$IFDEF FMXLIB}\r\n  TTMSFNCWebBrowserFormPosition = TFormPosition;\r\n  {$ENDIF}\r\n  {$IFNDEF FMXLIB}\r\n  TTMSFNCWebBrowserFormPosition = TPosition;\r\n  {$ENDIF}\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatforms)]\r\n  {$ENDIF}\r\n  TTMSFNCWebBrowserPopup = class(TComponent)\r\n  private\r\n    {$IFDEF MSWINDOWS}\r\n    FLoadURL: String;\r\n    FFirstLoad: Boolean;\r\n    {$ENDIF}\r\n    FModal: Boolean;\r\n    {$IFDEF IOS}\r\n    FButton: UIButton;\r\n    {$ENDIF}\r\n    {$IFNDEF ANDROID}\r\n    {$IFNDEF CMNWEBLIB}\r\n    FPopup: TPopup;\r\n    {$ENDIF}\r\n    FWebBrowserForm: TTMSFNCWebBrowserPopupForm;\r\n    {$ENDIF}\r\n    {$IFDEF ANDROID}\r\n    FButton: JButton;\r\n    {$ENDIF}\r\n    {$IFDEF FMXMOBILE}\r\n    FButtonEventHandler: TTMSFNCWebBrowserPopupButtonEventHandler;\r\n    {$ENDIF}\r\n    FWebBrowser: TTMSFNCCustomWebBrowser;\r\n    FOnNavigateComplete: TTMSFNCCustomWebBrowserNavigateComplete;\r\n    FOnBeforeNavigate: TTMSFNCCustomWebBrowserBeforeNavigate;\r\n    FURL: String;\r\n    FPosition: TTMSFNCWebBrowserFormPosition;\r\n    FWidth: Integer;\r\n    FHeight: Integer;\r\n    FT: Integer;\r\n    FL: Integer;\r\n    FFullScreen: Boolean;\r\n    FCloseButton: Boolean;\r\n    FOnClose: TNotifyEvent;\r\n    FCloseButtonText: String;\r\n    FExternalBrowser: Boolean;\r\n  protected\r\n    procedure ButtonClose(Sender: TObject);\r\n    {$IFDEF MSWINDOWS}\r\n    procedure FormShow(Sender: TObject);\r\n    {$ENDIF}\r\n    {$IFNDEF ANDROID}\r\n    procedure FormClose(Sender: TObject; var Action: TCloseAction);\r\n    {$ENDIF}\r\n    procedure CloseForm(Sender: TObject);\r\n    procedure DoBeforeNavigate(Sender: TObject; var Params: TTMSFNCCustomWebBrowserBeforeNavigateParams); virtual;\r\n    procedure DoNavigateComplete(Sender: TObject; var Params: TTMSFNCCustomWebBrowserNavigateCompleteParams); virtual;\r\n    procedure InitializeWebBrowser(AWebBrowser: TTMSFNCCustomWebBrowser); virtual;\r\n    function GetWebBrowserClass: TTMSFNCCustomWebBrowserClass; virtual;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    function Open(AModal: Boolean = True): TModalResult; overload;\r\n    function Open(AURL: String; AModal: Boolean = True): TModalResult; overload;\r\n    procedure Close(AModalResult: TModalResult = mrOk);\r\n    property WebBrowser: TTMSFNCCustomWebBrowser read FWebBrowser;\r\n    property ExternalBrowser: Boolean read FExternalBrowser write FExternalBrowser default False;\r\n  published\r\n    property OnBeforeNavigate: TTMSFNCCustomWebBrowserBeforeNavigate read FOnBeforeNavigate write FOnBeforeNavigate;\r\n    property OnNavigateComplete: TTMSFNCCustomWebBrowserNavigateComplete read FOnNavigateComplete write FOnNavigateComplete;\r\n    property URL: String read FURL write FURL;\r\n    {$IFDEF FMXLIB}\r\n    property Position: TTMSFNCWebBrowserFormPosition read FPosition write FPosition default TFormPosition.ScreenCenter;\r\n    {$ENDIF}\r\n    {$IFNDEF FMXLIB}\r\n    property Position: TTMSFNCWebBrowserFormPosition read FPosition write FPosition default poScreenCenter;\r\n    {$ENDIF}\r\n    property FullScreen: Boolean read FFullScreen write FFullScreen default False;\r\n    property Width: Integer read FWidth write FWidth default 640;\r\n    property Height: Integer read FHeight write FHeight default 480;\r\n    property Left: Integer read FL write FL default 0;\r\n    property Top: Integer read FT write FT default 0;\r\n    property CloseButton: Boolean read FCloseButton write FCloseButton default False;\r\n    property CloseButtonText: String read FCloseButtonText write FCloseButtonText;\r\n    property OnClose: TNotifyEvent read FOnClose write FOnClose;\r\n  end;\r\n\r\n  TTMSFNCWebBrowserPlatformServicesService = class\r\n  private\r\n    FInterface: IInterface;\r\n    FGUID: string;\r\n  public\r\n    constructor Create(AGUID: string; AInterface: IInterface);\r\n    property GUID: string read FGUID;\r\n    property &Interface: IInterface read FInterface;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCWebBrowserPlatformServicesList = class(TObjectList)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCWebBrowserPlatformServicesService;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCWebBrowserPlatformServicesService);\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCWebBrowserPlatformServicesService read GetItem write SetItem; default;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCWebBrowserPlatformServicesList = class(TObjectList<TTMSFNCWebBrowserPlatformServicesService>)\r\n  {$ENDIF}\r\n  private\r\n    function GetValue(AGUID: string): IInterface;\r\n  public\r\n    function ContainsKey(AGUID: string): Boolean;\r\n    procedure RemoveByGUID(AGUID: string);\r\n    property Interfaces[AGUID: string]: IInterface read GetValue;\r\n  end;\r\n\r\n  TTMSFNCWebBrowserPlatformServices = class\r\n  private\r\n    FServicesList: TTMSFNCWebBrowserPlatformServicesList;\r\n    class var FCurrent: TTMSFNCWebBrowserPlatformServices;\r\n    class var FCurrentReleased: Boolean;\r\n{$IFNDEF AUTOREFCOUNT}\r\n    class procedure ReleaseCurrent;\r\n{$ENDIF}\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n    procedure AddPlatformService(const AServiceGUID: TGUID; const AService: IInterface);\r\n    procedure RemovePlatformService(const AServiceGUID: TGUID);\r\n    function Count: Integer;\r\n    function GetPlatformService(const AServiceGUID: TGUID): IInterface;\r\n    function SupportsPlatformService(const AServiceGUID: TGUID): Boolean; overload;\r\n    function SupportsPlatformService(const AServiceGUID: TGUID; var AService: IInterface): Boolean; overload;\r\n    class function Current: TTMSFNCWebBrowserPlatformServices;\r\n  end;\r\n\r\n{$IFDEF MACOS}\r\nfunction NSStrEx(AString: string): NSString;\r\n{$ENDIF}\r\n\r\nimplementation\r\n\r\nuses\r\n  SysUtils, WEBLib.TMSFNCGraphicsTypes\r\n{$IFDEF FMXLIB}\r\n  ,FMX.Platform\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\n  ,WEBLib.TMSFNCWebBrowser.WEB\r\n{$ENDIF}\r\n{$IFDEF MSWINDOWS}\r\n  ,WEBLib.TMSFNCWebBrowser.Win\r\n{$ENDIF}\r\n{$IFDEF UNIX}\r\n  ,WEBLib.TMSFNCWebBrowser.Unix\r\n{$ENDIF}\r\n{$IFDEF MACOS}\r\n{$IFDEF IOS}\r\n  ,WEBLib.TMSFNCWebBrowser.iOS\r\n{$ELSE}\r\n  ,WEBLib.TMSFNCWebBrowser.Mac\r\n{$ENDIF}\r\n{$ENDIF}\r\n{$IFDEF ANDROID}\r\n  ,WEBLib.TMSFNCWebBrowser.Android\r\n{$ENDIF}\r\n  ;\r\n\r\nvar\r\n  FTrial: Integer = 0;\r\n\r\nfunction Hiword(L: DWORD): integer;\r\nbegin\r\n  Result := L shr 16;\r\nend;\r\n\r\nfunction LoWord(L: DWORD): Integer;\r\nbegin\r\n  Result := L AND $FFFF;\r\nend;\r\n\r\nfunction MakeWord(b1,b2: integer): integer;\r\nbegin\r\n  Result := b1 or b2 shl 8;\r\nend;\r\n\r\nfunction MakeLong(i1,i2: integer): integer;\r\nbegin\r\n  Result := i1 or i2 shl 16;\r\nend;\r\n\r\n{$IFDEF MACOS}\r\nfunction NSStrEx(AString: string): NSString;\r\nbegin\r\n  Result := StrToNSStr(AString);\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF IOS}\r\nfunction GetSharedApplication: UIApplication;\r\nbegin\r\n  Result := TUIApplication.Wrap(TUIApplication.OCClass.sharedApplication);\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF FREEWARE}\r\nfunction ScrambleEx(s:string): string;\r\nvar\r\n  r:string;\r\n  i: integer;\r\n  c: char;\r\n  b: byte;\r\nbegin\r\n  r := '';\r\n  {$IFDEF ZEROSTRINGINDEX}\r\n  for i := 0 to length(s) - 1 do\r\n  {$ELSE}\r\n  for i := 1 to length(s) do\r\n  {$ENDIF}\r\n  begin\r\n    b := ord(s[i]);\r\n    b := (b and $E0) + ((b and $1F) xor 5);\r\n    c := chr(b);\r\n    r := r + c;\r\n  end;\r\n  Result := r;\r\nend;\r\n{$ENDIF}\r\n\r\n{ TTMSFNCCustomWebBrowser }\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomWebBrowser.Show;\r\nbegin\r\n  inherited;\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.UpdateBounds;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomWebBrowser.AddBridge(ABridgeName: string;\r\n  ABridgeObject: TObject);\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    FWebBrowser.RemoveBridge(ABridgeName);\r\n    FWebBrowser.AddBridge(ABridgeName, ABridgeObject);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.AddCookie(ACookie: TTMSFNCWebBrowserCookie);\r\nvar\r\n  ic: ITMSFNCCustomWebBrowserCookies;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(IID_ITMSFNCCustomWebBrowserCookies, ic) = S_OK then\r\n      ic.AddCookie(ACookie);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.BeforeNavigate(\r\n  var Params: TTMSFNCCustomWebBrowserBeforeNavigateParams);\r\nbegin\r\n  if Assigned(OnBeforeNavigate) then\r\n    OnBeforeNavigate(Self, Params);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.CallDevToolsProtocolMethod(AMethodName, AParametersAsJSON: string);\r\nvar\r\n  ie: ITMSFNCCustomWebBrowserEdge;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(IID_ITMSFNCCustomWebBrowserEdge, ie) = S_OK then\r\n      ie.CallDevToolsProtocolMethod(AMethodName, AParametersAsJSON);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.CanBeVisible: Boolean;\r\nbegin\r\n  Result := True;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.CancelDownload(ADownload: TTMSFNCWebBrowserDownload);\r\nvar\r\n  ie: ITMSFNCCustomWebBrowserEdge;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(IID_ITMSFNCCustomWebBrowserEdge, ie) = S_OK then\r\n      ie.CancelDownload(ADownload);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.CheckIdentifier: Boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.CanCreateBrowser: Boolean;\r\nbegin\r\n  {$IFDEF EDGESUPPORT}\r\n  Result := True;\r\n  {$ELSE}\r\n  {$IFDEF WEBLIB}\r\n  Result := True;\r\n  {$ELSE}\r\n  Result := not IsDesigning\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.CanGoBack: Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(FWebBrowser) then\r\n    Result := FWebBrowser.CanGoBack;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.CanGoForward: Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(FWebBrowser) then\r\n    Result := FWebBrowser.CanGoForward;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.CaptureScreenShot(ACompleteEvent: TTMSFNCWebBrowserCaptureScreenShotCompleteEvent = nil);\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.CaptureScreenShot(ACompleteEvent);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.ChangeDPIScale(M, D: Integer);\r\nbegin\r\n  inherited;\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.UpdateBounds;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.CheckApplicationInitialized;\r\nbegin\r\n  ExecuteJavaScript('document.readyState', {$IFDEF LCLWEBLIB}@{$ENDIF}DoCheckReadyState);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.ClearCache;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.ClearCache;\r\nend;\r\n\r\nconstructor TTMSFNCCustomWebBrowser.Create(AOwner: TComponent);\r\nvar\r\n  WebBrowserService: ITMSFNCWebBrowserService;\r\nbegin\r\n  inherited;\r\n  FSettings := TTMSFNCWebBrowserSettings.Create(Self);\r\n  FCanDestroyDispatch := True;\r\n  FDesigntimeEnabled := True;\r\n  {$IFDEF FMXLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 32}\r\n  TMessageManager.DefaultManager.SubscribeToMessage(TAfterCreateFormHandle, FormHandleCreated);\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  FScriptList := TTMSFNCScriptList.Create;\r\n  {$ENDIF}\r\n\r\n  FDownloads := TTMSFNCWebBrowserDownloads.Create(Self);\r\n\r\n  FExternalBrowser := False;\r\n  FEnableShowDebugConsole := True;\r\n  FEnableContextMenu := True;\r\n  FEnableAcceleratorKeys := True;\r\n\r\n  CreateClasses;\r\n\r\n  if CanCreateBrowser then\r\n    if TTMSFNCWebBrowserPlatformServices.Current.SupportsPlatformService(ITMSFNCWebBrowserService, IInterface(WebBrowserService)) then\r\n      FWebBrowser := WebBrowserService.CreateWebBrowser(Self);\r\n\r\n  Width := 500;\r\n  Height := 350;\r\nend;\r\n\r\n{$IFDEF WEBLIB}\r\nprocedure TTMSFNCCustomWebBrowser.UpdateElement;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementHandle) then\r\n    ElementHandle.style.setProperty('overflow', 'auto');\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomWebBrowser.CreateClasses;\r\nbegin\r\n//\r\nend;\r\n\r\ndestructor TTMSFNCCustomWebBrowser.Destroy;\r\nvar\r\n  WebBrowserService: ITMSFNCWebBrowserService;\r\nbegin\r\n  {$IFNDEF WEBLIB}\r\n  StopDocumentReadyStateThread;\r\n  {$ENDIF}\r\n\r\n  if CanCreateBrowser and TTMSFNCWebBrowserPlatformServices.Current.SupportsPlatformService(ITMSFNCWebBrowserService, IInterface(WebBrowserService)) then\r\n    WebBrowserService.DestroyWebBrowser(FWebBrowser);\r\n\r\n  if Assigned(FDownloads) then\r\n    FDownloads.Free;\r\n\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    FWebBrowser.Deinitialize;\r\n    FWebBrowser := nil;\r\n  end;\r\n\r\n  {$IFNDEF WEBLIB}\r\n  FScriptList.Free;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF FMXLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 32}\r\n  TMessageManager.DefaultManager.Unsubscribe(TAfterCreateFormHandle, FormHandleCreated);\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n\r\n  FreeAndNil(FSettings);\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoBeforeFrameNavigate(var Params: TTMSFNCCustomWebBrowserBeforeFrameNavigateParams);\r\nbegin\r\n  if Assigned(OnBeforeFrameNavigate) then\r\n    OnBeforeFrameNavigate(Self, Params);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoCaptureScreenShot(AScreenShot: TTMSFNCBitmap);\r\nbegin\r\n  if Assigned(OnCaptureScreenShot) then\r\n    OnCaptureScreenShot(Self, AScreenShot);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoCheckIdentifier(const AValue: string);\r\nbegin\r\n  if LowerCase(StringReplace(AValue, '\"', '', [rfReplaceAll])) = 'unknown' then\r\n    FReady := True;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoDevToolsMethodCompleted(AEventName, AJSONResponse: string);\r\nbegin\r\n  if Assigned(OnDevToolsMethodCompleted) then\r\n    OnDevToolsMethodCompleted(Self, AEventName, AJSONResponse);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoDevToolsSubscribedEvent(AEventName, AJSONResponse: string);\r\nbegin\r\n  if Assigned(OnDevToolsSubscribedEvent) then\r\n    OnDevToolsSubscribedEvent(Self, AEventName, AJSONResponse);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoDocumentComplete;\r\nbegin\r\n  if Assigned(OnDocumentComplete) then\r\n    OnDocumentComplete(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoDocumentTitleChanged;\r\nbegin\r\n  if Assigned(OnDocumentTitleChanged) then\r\n    OnDocumentTitleChanged(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoCheckReadyState(const AValue: string);\r\nbegin\r\n  if LowerCase(StringReplace(AValue, '\"', '', [rfReplaceAll]))  = 'complete' then\r\n  begin\r\n    if CheckIdentifier then\r\n      ExecuteJavaScript('window.TMSWEBCoreClientIdentifier', {$IFDEF LCLWEBLIB}@{$ENDIF}DoCheckIdentifier)\r\n    else\r\n      FReady := True;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoCloseForm;\r\nbegin\r\n  if Assigned(OnCloseForm) then\r\n    OnCloseForm(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoContainsFullScreenElementChanged;\r\nbegin\r\n  if Assigned(OnContainsFullScreenElementChanged) then\r\n    OnContainsFullScreenElementChanged(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoCustomContextMenuItemSelected(ASelectedItem: TTMSFNCWebBrowserCustomContextMenuItem);\r\nbegin\r\n  if Assigned(OnCustomContextMenuItemSelected) then\r\n    OnCustomContextMenuItemSelected(Self, ASelectedItem);\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\nprocedure TTMSFNCCustomWebBrowser.DoTerminate(Sender: TObject);\r\nbegin\r\n  FThreadDone := True;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoWebMessageReceived(var Params: TTMSFNCWebBrowserWebMessageReceivedParams);\r\nbegin\r\n  if Assigned(OnWebMessageReceived) then\r\n    OnWebMessageReceived(Self, Params);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoWebResourceRequested(var Params: TTMSFNCWebBrowserWebResourceRequestedParams);\r\nbegin\r\n  if Assigned(OnWebResourceRequested) then\r\n    OnWebResourceRequested(Self, Params);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoWindowCloseRequested;\r\nbegin\r\n  if Assigned(OnWindowCloseRequested) then\r\n    OnWindowCloseRequested(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoZoomFactorChanged;\r\nbegin\r\n  if Assigned(OnZoomFactorChanged) then\r\n    OnZoomFactorChanged(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoHardwareButtonClicked;\r\nbegin\r\n  if Assigned(OnHardwareButtonClicked) then\r\n    OnHardwareButtonClicked(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoHistoryChanged;\r\nbegin\r\n  if Assigned(OnHistoryChanged) then\r\n    OnHistoryChanged(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoKeyPressed(var Key: Word);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoNewWindowRequested(var Params: TTMSFNCWebBrowserNewWindowRequestedParams);\r\nbegin\r\n  if Assigned(OnNewWindowRequested) then\r\n    OnNewWindowRequested(Self, Params);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoPermissionRequested(var Params: TTMSFNCWebBrowserPermissionRequestedParams);\r\nbegin\r\n  if Assigned(OnPermissionRequested) then\r\n    OnPermissionRequested(Self, Params);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoPrinted(APrinterStatus: Boolean);\r\nbegin\r\n  if Assigned(OnPrinted) then\r\n    OnPrinted(Self, APrinterStatus);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoPrintedToPDF(ASuccesfull: Boolean);\r\nbegin\r\n  if Assigned(OnPrintedToPDF) then\r\n    OnPrintedToPDF(Self, ASuccesfull);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoProcessFailed(var Params: TTMSFNCWebBrowserProcessFailedParams);\r\nbegin\r\n  if Assigned(OnProcessFailed) then\r\n    OnProcessFailed(Self, Params);\r\nend;\r\n\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoScriptDialogOpening(var Params: TTMSFNCWebBrowserScriptDialogOpeningParams);\r\nbegin\r\n  if Assigned(OnScriptDialogOpening) then\r\n    OnScriptDialogOpening(Self, Params);\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\nprocedure TTMSFNCCustomWebBrowser.DoScriptHandled(Sender: TObject);\r\nvar\r\n  s: TTMSFNCScript;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FScriptList.Count > 0 then\r\n      FScriptList.Delete(0);\r\n\r\n    if FScriptList.Count > 0 then\r\n    begin\r\n      s := FScriptList[0];\r\n      FWebBrowser.ExecuteJavaScript(s.FScript, s.FCompleteEvent, {$IFDEF LCLWEBLIB}@{$ENDIF}DoScriptHandled);\r\n    end;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoSourceChanged(var Params: TTMSFNCWebBrowserSourceChangedParams);\r\nbegin\r\n  if Assigned(OnSourceChanged) then\r\n    OnSourceChanged(Self, Params);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nvar\r\n  s: string;\r\n  sz: Single;\r\nbegin\r\n  inherited;\r\n  if IsDesigning then\r\n  begin\r\n    AGraphics.Font.Size := 12;\r\n    AGraphics.Font.Name := 'Montserrat';\r\n    {$IFDEF MSWINDOWS}\r\n    if not EdgeLoaded then\r\n      AGraphics.DrawText(RectF(0, 0, Width, Height), EErrorMessageNoDLL, True, gtaCenter, gtaCenter)\r\n    else\r\n    {$ENDIF}\r\n    s := DESIGNTIMEMESSAGE;\r\n    sz := AGraphics.CalculateTextHeight(s);\r\n    AGraphics.DrawText(RectF(ScalePaintValue(5), ScalePaintValue(5), Width - ScalePaintValue(5), sz + ScalePaintValue(5)), s);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoEnter;\r\nbegin\r\n  inherited;\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.SetFocus;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoExecuteJavaScriptSync(const AValue: string);\r\nbegin\r\n  FSyncValue := AValue;\r\n  FSyncValueExecuted := True;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoError(AError: TTMSFNCWebBrowserError);\r\nbegin\r\n  if Assigned(OnError) then\r\n    OnError(Self, AError);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoExit;\r\nbegin\r\n  inherited;\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.ClearFocus;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoFrameNavigationComplete(var Params: TTMSFNCCustomWebBrowserFrameNavigateCompleteParams);\r\nbegin\r\n  if Assigned(OnFrameNavigateComplete) then\r\n    OnFrameNavigateComplete(Self, Params);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoGetConsoleMessage(ALogEntry: TTMSFNCWebBrowserLogEntry);\r\nbegin\r\n  if Assigned(OnGetConsoleMessage) then\r\n    OnGetConsoleMessage(Self, ALogEntry);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoGetContextMenuItemEvent(ATarget: TTMSFNCWebBrowserTargetItem; AContextMenu: TObjectList<TTMSFNCWebBrowserContextMenuItem>);\r\nbegin\r\n  if Assigned(FOnGetContextMenu) then\r\n    OnGetContextMenu(Self, ATarget, AContextMenu);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoGetCookies(ACookies: array of TTMSFNCWebBrowserCookie);\r\nbegin\r\n  if Assigned(OnGetCookies) then\r\n    OnGetCookies(Self, ACookies);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoDownloadBytesReceivedChanged(ADownload: TTMSFNCWebBrowserDownload; ABytesReceived: Int64;\r\n  var APause, AResume, ACancel: Boolean);\r\nbegin\r\n  if Assigned(OnDownloadBytesReceivedChanged) then\r\n    OnDownloadBytesReceivedChanged(Self, ADownload, ABytesReceived, APause, AResume, ACancel);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoDownloadEstimatedEndTimeChanged(ADownload: TTMSFNCWebBrowserDownload; AEstimatedEndTime: TDateTime;\r\n  var APause, AResume, ACancel: Boolean);\r\nbegin\r\n  if Assigned(OnDownloadEstimatedEndTimeChanged) then\r\n    OnDownloadEstimatedEndTimeChanged(Self, ADownload, AEstimatedEndTime, APause, AResume, ACancel);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoDownloadStarted(ADownload: TTMSFNCWebBrowserDownload; var ASilent, APause, AResume, ACancel: Boolean);\r\nbegin\r\n  if Assigned(OnDownloadStarted) then\r\n    OnDownloadStarted(Self, ADownload, ASilent, APause, AResume, ACancel);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoDownloadStateChanged(ADownload: TTMSFNCWebBrowserDownload; AState: TTMSFNCWebBrowserDownloadState;\r\n  var APause, AResume, ACancel: Boolean);\r\nbegin\r\n  if Assigned(OnDownloadStateChanged) then\r\n    OnDownloadStateChanged(Self, ADownload, AState, APause, AResume, ACancel);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoGetPopupMenuForContextMenu(ATarget: TTMSFNCWebBrowserTargetItem; var APopUpMenu: TPopupMenu);\r\nbegin\r\n  if Assigned(OnGetPopupMenuForContextMenu) then\r\n    OnGetPopupMenuForContextMenu(Self, ATarget, APopupMenu);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoGetPrintPDFStream(AStream: TMemoryStream);\r\nbegin\r\n  if Assigned(OnGetPrintPDFStream) then\r\n    OnGetPrintPDFStream(Self, AStream);\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.ExecuteJavaScriptSync(AScript: string): string;\r\n{$IFNDEF WEBLIB}\r\n{$IFNDEF ANDROID}\r\nvar\r\n  i: Integer;\r\n{$ENDIF}\r\n{$ENDIF}\r\nbegin\r\n  Result := '';\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    FSyncValue := '';\r\n    FSyncValueExecuted := False;\r\n    FWebBrowser.ExecuteJavaScript(AScript, {$IFDEF LCLWEBLIB}@{$ENDIF}DoExecuteJavaScriptSync, nil);\r\n    {$IFNDEF ANDROID}\r\n    {$IFNDEF WEBLIB}\r\n    i := 0;\r\n    while not FSyncValueExecuted and (i <= 60000) do\r\n    begin\r\n      Application.ProcessMessages;\r\n      Sleep(1);\r\n      Inc(i);\r\n    end;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n\r\n    Result := FSyncValue;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.ExecuteJavaScript(AScript: String; ACompleteEvent: TTMSFNCWebBrowserJavaScriptCompleteEvent = nil; AImmediate: Boolean = False);\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if AImmediate and FInitialized then\r\n      FWebBrowser.ExecuteJavaScript(AScript, ACompleteEvent, nil)\r\n    else\r\n    begin\r\n      {$IFNDEF WEBLIB}\r\n      FScriptList.Add(TTMSFNCScript.Create(AScript, ACompleteEvent));\r\n      if FScriptList.Count = 1 then\r\n      begin\r\n        if FInitialized then\r\n          FWebBrowser.ExecuteJavaScript(AScript, ACompleteEvent, {$IFNDEF WEBLIB}{$IFDEF LCLLIB}@{$ENDIF}DoScriptHandled{$ELSE}nil{$ENDIF})\r\n        else\r\n          DoScriptHandled(nil);\r\n      end\r\n      else if not FInitialized then\r\n        DoScriptHandled(nil);\r\n      {$ELSE}\r\n      FWebBrowser.ExecuteJavaScript(AScript, ACompleteEvent, {$IFNDEF WEBLIB}{$IFDEF LCLLIB}@{$ENDIF}DoScriptHandled{$ELSE}nil{$ENDIF});\r\n      {$ENDIF}\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.GetBridgeCommunicationLayer(ABridgeName: string): string;\r\nconst\r\n  LB = #13;\r\nbegin\r\n  Result :=\r\n    'var send' + ABridgeName + 'ObjectMessage = function(parameters) {' + LB +\r\n    '  var v = parameters;' + LB +\r\n    {$IFDEF ANDROID}\r\n    '  if (!' + ABridgeName + ') {' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + ABridgeName + '.Setjsvalue(v); ' + LB +\r\n    '  ' + ABridgeName + '.performClick();' + LB +\r\n    {$ENDIF}\r\n    {$IFDEF MACOS}\r\n    '  if (!window.webkit || !window.webkit.messageHandlers || !window.webkit.messageHandlers.' + ABridgeName + ') {' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  window.webkit.messageHandlers.' + ABridgeName + '.postMessage(v);' + LB +\r\n    {$ENDIF}\r\n    {$IFDEF MSWINDOWS}\r\n    'if (!window.chrome || !window.chrome.webview || !window.chrome.webview.hostObjects || !window.chrome.webview.hostObjects.sync) {' + LB +\r\n    '  return;' + LB +\r\n    '}' + LB +\r\n    'var obj = window.chrome.webview.hostObjects.sync.' + ABridgeName + ';' + LB +\r\n    '  if (obj) {' + LB +\r\n    '    obj.ObjectMessage = v;' + LB +\r\n    '  }' + LB +\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    '  var event = new CustomEvent(\"' + ABridgeName + '\", {detail: v});' + LB +\r\n    '  ' + ElementID + '.dispatchEvent(event);' + LB +\r\n    {$ENDIF}\r\n    {$IFDEF LINUX}\r\n    '  if (!window.webkit || !window.webkit.messageHandlers || !window.webkit.messageHandlers.' + ABridgeName + ') {' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  window.webkit.messageHandlers.' + ABridgeName + '.postMessage(v);' + LB +\r\n    {$ENDIF}\r\n    '};';\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.GetBrowserVersion: string;\r\nvar\r\n  ii: ITMSFNCCustomWebBrowserInfo;\r\nbegin\r\n  Result := '';\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(ITMSFNCCustomWebBrowserInfo, ii) = S_OK then\r\n      Result := ii.GetBrowserVersion;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.GetCacheFolder: string;\r\nbegin\r\n  Result := '';\r\n  if Assigned(FWebBrowser) then\r\n    Result := FWebBrowser.CacheFolder;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.GetCacheFolderName: string;\r\nbegin\r\n  Result := '';\r\n  if Assigned(FWebBrowser) then\r\n    Result := FWebBrowser.CacheFolderName;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.GetContainsFullScreenElement: Boolean;\r\nvar\r\n  ii: ITMSFNCCustomWebBrowserInfo;\r\nbegin\r\n  Result := False;\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(IID_ITMSFNCCustomWebBrowserEx, ii) = S_OK then\r\n      Result := ii.GetContainsFullScreenElement;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.GetCookies(AURI: string = '');\r\nvar\r\n  ic: ITMSFNCCustomWebBrowserCookies;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(IID_ITMSFNCCustomWebBrowserCookies, ic) = S_OK then\r\n      ic.GetCookies(AURI);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.GetDocumentTitle: string;\r\nvar\r\n  ii: ITMSFNCCustomWebBrowserInfo;\r\nbegin\r\n  Result := '';\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(ITMSFNCCustomWebBrowserInfo, ii) = S_OK then\r\n      Result := ii.GetDocumentTitle;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.GetDocURL: string;\r\nbegin\r\n  Result := TTMSFNCBaseDocURL + 'tmsfnccore/components/ttmsfncwebbrowser';\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.GetDownloadInterruptReasonText(ADownloadInterruptReason: TTMSFNCWebBrowserDownloadInterruptReason): string;\r\nbegin\r\n  case ADownloadInterruptReason of\r\n    dirNone: Result := 'None';\r\n    dirFileFailed: Result := 'File Failed';\r\n    dirFileAccessDenied: Result := 'File Access Denied';\r\n    dirFileNoSpace: Result := 'File No Space';\r\n    dirFileNameTooLong: Result := 'File Name Too Long';\r\n    dirFileTooLarge: Result := 'File Too Large';\r\n    dirFileMalicious: Result := 'File Malicious';\r\n    dirFileTransientError: Result := 'File Transient Error';\r\n    dirFileBlockedByPolicy: Result := 'File Blocked By Policy';\r\n    dirFileSecurityCheckFailed: Result := 'File Security Check Failed';\r\n    dirFileTooShort: Result := 'File Too Short';\r\n    dirFileHasMismatch: Result := 'File Has Mismatch';\r\n    dirNetworkFailed: Result := 'Network Failed';\r\n    dirNetworkTimeout: Result := 'Network Timeout';\r\n    dirNetworkDisconnected: Result := 'Network Disconnected';\r\n    dirNetworkServerDown: Result := 'Network Server Down';\r\n    dirNetworkInvalidRequest: Result := 'Network Invalid Request';\r\n    dirServerFailed: Result := 'Server Failed';\r\n    dirServerNoRange: Result := 'Server No Range';\r\n    dirServerBadContent: Result := 'Server Bad Content';\r\n    dirServerUnauthorized: Result := 'Server Unauthorized';\r\n    dirServerCertificateProblem: Result := 'Server Certificate Problem';\r\n    dirServerForbidden: Result := 'Server Forbidden';\r\n    dirServerUnexpectedResponse: Result := 'Server Unexpected Response';\r\n    dirServerContentLengthMismatch: Result := 'Server Content Length Mismatch';\r\n    dirServerCrossOriginRedirect: Result := 'Server Cross Origin Redirect';\r\n    dirUserCanceled: Result := 'User Canceled';\r\n    dirUserShutdown: Result := 'User Shutdown';\r\n    dirUserPaused: Result := 'User Paused';\r\n    dirDownloadProcessCrashed: Result := 'Download Process Crashed';\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.GetDownloadStateText(ADownloadState: TTMSFNCWebBrowserDownloadState): string;\r\nbegin\r\n  case ADownloadState of\r\n    dsInProgress: Result := 'In Progress';\r\n    dsInterrupted: Result := 'Interrupted';\r\n    dsCompleted: Result := 'Completed';\r\n    dsCancelled: Result := 'Cancelled';\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.GetAutoClearCache: Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(FWebBrowser) then\r\n    Result := FWebBrowser.AutoClearCache;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.GetEnableAcceleratorKeys: Boolean;\r\nbegin\r\n  if FWebBrowser <> nil then\r\n    Result := FWebBrowser.EnableAcceleratorKeys\r\n  else\r\n    Result := FEnableAcceleratorKeys;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.GetEnableContextMenu: Boolean;\r\nbegin\r\n  if FWebBrowser <> nil then\r\n    Result := FWebBrowser.EnableContextMenu\r\n  else\r\n    Result := FEnableContextMenu;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.GetEnableShowDebugConsole: Boolean;\r\nbegin\r\n  if FWebBrowser <> nil then\r\n    Result := FWebBrowser.EnableShowDebugConsole\r\n  else\r\n    Result := FEnableShowDebugConsole;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.GetExternalBrowser: Boolean;\r\nbegin\r\n  if FWebBrowser <> nil then\r\n    Result := FWebBrowser.ExternalBrowser\r\n  else\r\n    Result := FExternalBrowser;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.GetParentWindowHandle: Cardinal;\r\nvar\r\n  ii: ITMSFNCCustomWebBrowserInfo;\r\nbegin\r\n  Result := 0;\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(ITMSFNCCustomWebBrowserInfo, ii) = S_OK then\r\n      Result := ii.GetParentWindowHandle;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.GetSettingsI: ITMSFNCCustomWebBrowserSettings;\r\nvar\r\n  s: ITMSFNCCustomWebBrowserSettings;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(IID_ITMSFNCCustomWebBrowserSettings, s) = S_OK then\r\n      Result := s;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.GetURL: string;\r\nbegin\r\n  if FWebBrowser <> nil then\r\n    Result := FWebBrowser.URL\r\n  else\r\n    Result := FURL;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.GetUserAgent: string;\r\nbegin\r\n  Result := '';\r\n  if Assigned(FWebBrowser) then\r\n    Result := FWebBrowser.UserAgent;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.GetUserDataFolder: string;\r\nvar\r\n  ii: ITMSFNCCustomWebBrowserInfo;\r\nbegin\r\n  Result := '';\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(ITMSFNCCustomWebBrowserInfo, ii) = S_OK then\r\n      Result := ii.GetUserDataFolder;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.GoBack;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.GoBack;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.GetVersion: string;\r\nbegin\r\n  Result := GetVersionNumber(MAJ_VER, MIN_VER, REL_VER, BLD_VER);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.GoForward;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.GoForward;\r\nend;\r\n\r\n{$IFDEF VCLLIB}\r\nprocedure TTMSFNCCustomWebBrowser.CreateWnd;\r\nbegin\r\n  if CanRecreate and (not isLoading and not IsDestroying) then\r\n  begin\r\n    Deinitialize;\r\n    inherited;\r\n    Initialize;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomWebBrowser.Hide;\r\nbegin\r\n  inherited;\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.UpdateBounds;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DoAbsoluteChanged;\r\nbegin\r\n  inherited;\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.UpdateBounds;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomWebBrowser.Initialize;\r\nbegin\r\n  if (IsDesigning and FDesigntimeEnabled) or not IsDesigning then\r\n  begin\r\n    if Assigned(FWebBrowser) then\r\n      FWebBrowser.Initialize;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.Initialized;\r\nbegin\r\n  {$IFNDEF FNCLIB}\r\n  SetupStartDomains;\r\n  {$ENDIF}\r\n\r\n  FInitialized := True;\r\n\r\n  if Assigned(Settings) then\r\n    Settings.ApplySettings;\r\n\r\n  if Assigned(OnInitialized) and not FInitializeEventCalled then\r\n  begin\r\n    FInitializeEventCalled := True;\r\n    OnInitialized(Self);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.InitialPrintSettings: TTMSFNCWebBrowserPrintSettings;\r\nbegin\r\n  Result.Orientation := poPortrait;\r\n  Result.ScaleFactor := 0;\r\n  Result.PageWidth := 0;\r\n  Result.PageHeight := 0;\r\n  Result.MarginLeft := 0;\r\n  Result.MarginRight := 0;\r\n  Result.MarginTop := 0;\r\n  Result.MarginBottom := 0;\r\n  Result.PrintBackgrounds := False;\r\n  Result.PrintSelectionOnly := False;\r\n  Result.PrintHeaderAndFooter := False;\r\n  Result.HeaderTitle := '';\r\n  Result.FooterURI := '';\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.CanLoadDefaultHTML: Boolean;\r\nbegin\r\n  Result := True;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.CanRecreate: Boolean;\r\nbegin\r\n  Result := True;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.IsFMXBrowser: Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(FWebBrowser) then\r\n    Result := FWebBrowser.IsFMXBrowser;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.Loaded;\r\nbegin\r\n  inherited;\r\n  Initialize;\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.UpdateBounds;\r\n\r\n  if Assigned(OnInitialized) and FInitialized and not FInitializeEventCalled then\r\n  begin\r\n    FInitializeEventCalled := True;\r\n    OnInitialized(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.LoadFile(AFile: String);\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.LoadFile(AFile);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.LoadHTML(AHTML: String);\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.LoadHTML(AHTML);\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomWebBrowser.Move;\r\nbegin\r\n  inherited;\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.UpdateBounds;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF ANDROID}\r\nfunction TTMSFNCCustomWebBrowser.NativeDialog: Pointer;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FWebBrowser) then\r\n    Result := FWebBrowser.NativeDialog;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF MSWINDOWS}\r\nfunction TTMSFNCCustomWebBrowser.GetWebBrowserInstance: IInterface;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FWebBrowser) then\r\n    Result := FWebBrowser.GetBrowserInstance;\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TTMSFNCCustomWebBrowser.NativeBrowser: Pointer;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FWebBrowser) then\r\n    Result := FWebBrowser.NativeBrowser;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowser.NativeEnvironment: Pointer;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FWebBrowser) then\r\n    Result := FWebBrowser.NativeEnvironment;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.Navigate(const AURL: string);\r\nbegin\r\n  FReady := False;\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.Navigate(AURL);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.NavigateComplete(\r\n  var Params: TTMSFNCCustomWebBrowserNavigateCompleteParams);\r\nbegin\r\n  if Assigned(OnNavigateComplete) then\r\n    OnNavigateComplete(Self, Params);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.NavigateWithData(AURI: string; AMethod: string; ABodyStream: TStream; AHeaders: TStrings = nil);\r\nvar\r\n  iX: ITMSFNCCustomWebBrowserEx;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(IID_ITMSFNCCustomWebBrowserEx, iX) = S_OK then\r\n      iX.NavigateWithData(AURI, AMethod, ABodyStream, AHeaders);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.NavigateWithData(AURI, AMethod, ABody: string; AHeaders: TStrings);\r\nvar\r\n  iX: ITMSFNCCustomWebBrowserEx;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(IID_ITMSFNCCustomWebBrowserEx, iX) = S_OK then\r\n      iX.NavigateWithData(AURI, AMethod, ABody, AHeaders);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.OpenTaskManager;\r\nvar\r\n  iX: ITMSFNCCustomWebBrowserEx;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(IID_ITMSFNCCustomWebBrowserEx, iX) = S_OK then\r\n      iX.OpenTaskManagerWindow;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.SetVirtualHostNameToFolderMapping(AHostName, AFolderPath: string; AAccessKind: TTMSFNCWebBrowserHostResourceAccessKind);\r\nvar\r\n  vh: ITMSFNCCustomWebBrowserVirtualHosting;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(IID_ITMSFNCCustomWebBrowserVirtualHosting, vh) = S_OK then\r\n      vh.SetVirtualHostNameToFolderMapping(AHostName, AFolderPath, AAccessKind);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.ClearVirtualHostNameToFolderMapping(AHostName: string);\r\nvar\r\n  vh: ITMSFNCCustomWebBrowserVirtualHosting;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(IID_ITMSFNCCustomWebBrowserVirtualHosting, vh) = S_OK then\r\n      vh.ClearVirtualHostNameToFolderMapping(AHostName);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.Print(APrintSettings: TTMSFNCWebBrowserPrintSettings);\r\nvar\r\n  ip: ITMSFNCCustomWebBrowserPrint;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(IID_ITMSFNCCustomWebBrowserPrint, ip) = S_OK then\r\n      ip.Print(APrintSettings);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.PauseDownload(ADownload: TTMSFNCWebBrowserDownload);\r\nvar\r\n  ie: ITMSFNCCustomWebBrowserEdge;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(IID_ITMSFNCCustomWebBrowserEdge, ie) = S_OK then\r\n      ie.PauseDownload(ADownload);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.Print;\r\nvar\r\n  ip: ITMSFNCCustomWebBrowserPrint;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(IID_ITMSFNCCustomWebBrowserPrint, ip) = S_OK then\r\n      ip.Print;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.PrintToPDF(AFileName: string);\r\nvar\r\n  ip: ITMSFNCCustomWebBrowserPrint;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(IID_ITMSFNCCustomWebBrowserPrint, ip) = S_OK then\r\n      ip.PrintToPDF(AFileName);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.PrintToPDF(AFileName: string; APrintSettings: TTMSFNCWebBrowserPrintSettings);\r\nvar\r\n  ip: ITMSFNCCustomWebBrowserPrint;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(IID_ITMSFNCCustomWebBrowserPrint, ip) = S_OK then\r\n      ip.PrintToPDF(AFileName, APrintSettings);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.PrintToPDFStream;\r\nvar\r\n  ip: ITMSFNCCustomWebBrowserPrint;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(IID_ITMSFNCCustomWebBrowserPrint, ip) = S_OK then\r\n      ip.PrintToPDFStream;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.PrintToPDFStream(APrintSettings: TTMSFNCWebBrowserPrintSettings);\r\nvar\r\n  ip: ITMSFNCCustomWebBrowserPrint;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(IID_ITMSFNCCustomWebBrowserPrint, ip) = S_OK then\r\n      ip.PrintToPDFStream(APrintSettings);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.Reload;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.Reload;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.RemoveBridge(ABridgeName: string);\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.RemoveBridge(ABridgeName);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.ResumeDownload(ADownload: TTMSFNCWebBrowserDownload);\r\nvar\r\n  ie: ITMSFNCCustomWebBrowserEdge;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(IID_ITMSFNCCustomWebBrowserEdge, ie) = S_OK then\r\n      ie.ResumeDownload(ADownload);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.UpdateControlAfterResize;\r\nbegin\r\n  inherited;\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.UpdateBounds;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.Navigate;\r\nbegin\r\n  FReady := False;\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.Navigate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.SetCacheFolder(const Value: string);\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.CacheFolder := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.SetCacheFolderName(const Value: string);\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.CacheFolderName := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.SetDesigntimeEnabled(const Value: Boolean);\r\nbegin\r\n  FDesigntimeEnabled := Value;\r\n  if IsDesigning then\r\n  begin\r\n    if FDesigntimeEnabled and not FInitialized then\r\n      Initialize\r\n    else\r\n      DeInitialize;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.SetAutoClearCache(const Value: Boolean);\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.AutoClearCache := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.SetEnableContextMenu(const Value: Boolean);\r\nbegin\r\n  FEnableContextMenu := Value;\r\n  if Assigned(Settings) then\r\n    Settings.FEnableContextMenu := Value;\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.EnableContextMenu := Value;\r\nend;\r\n\r\n{$IFDEF VCLLIB}\r\nprocedure TTMSFNCCustomWebBrowser.CMVisibleChanged(var Message: TMessage);\r\nbegin\r\n  inherited;\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.UpdateVisible;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF FMXLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 32}\r\nprocedure TTMSFNCCustomWebBrowser.FormHandleCreated(const Sender: TObject; const Msg: TMessage);\r\n\r\n  function GetParentForm(Control: TFmxObject): TCommonCustomForm;\r\n  begin\r\n    if (Control.Root <> nil) and (Control.Root.GetObject is TCommonCustomForm) then\r\n      Result := TCommonCustomForm(Control.Root.GetObject)\r\n    else\r\n      Result := nil;\r\n  end;\r\n\r\nbegin\r\n  if not (csDesigning in ComponentState) and ((FWebBrowser = nil) or (Sender = GetParentForm(self as TFmxObject))) then\r\n  begin\r\n    FWebBrowser.UpdateContentFromControl;\r\n{$IFNDEF MACOS}\r\n    DeInitialize;\r\n    Initialize;\r\n{$ENDIF}\r\n  end;\r\nend;\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomWebBrowser.SetEnabledAcceleratorKeys(const Value: Boolean);\r\nbegin\r\n  FEnableAcceleratorKeys := Value;\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.EnableAcceleratorKeys := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.SetEnableShowDebugConsole(const Value: Boolean);\r\nbegin\r\n  FEnableShowDebugConsole := Value;\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.EnableShowDebugConsole := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.SetExternalBrowser(const Value: Boolean);\r\nbegin\r\n  FExternalBrowser := Value;\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.ExternalBrowser := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.SetSettings(const Value: TTMSFNCWebBrowserSettings);\r\nbegin\r\n  FSettings.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.SetupStartDomains;\r\nvar\r\n  ie: ITMSFNCCustomWebBrowserEdge;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(IID_ITMSFNCCustomWebBrowserEdge, ie) = S_OK then\r\n      ie.SetupStartDomains;\r\n  end;\r\nend;\r\n\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCCustomWebBrowser.SetEnabled(Value: Boolean);\r\nbegin\r\n  inherited;\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.UpdateEnabled;\r\nend;\r\n\r\n{$IFDEF CMNLIB}\r\nprocedure TTMSFNCCustomWebBrowser.SetParent(Value: TWinControl);\r\n{$ELSE}\r\nprocedure TTMSFNCCustomWebBrowser.SetParent(Value: TControl);\r\n{$ENDIF}\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.BeforeChangeParent;\r\n  inherited;\r\n  Initialize;\r\n  {$IFDEF WEBLIB}\r\n  BeginUpdate;\r\n  EndUpdate;\r\n  {$ENDIF}\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomWebBrowser.SetBounds(X, Y, AWidth, AHeight: Single);\r\nbegin\r\n  inherited;\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.UpdateBounds;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.SetEnabled(const Value: Boolean);\r\nbegin\r\n  inherited;\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.UpdateEnabled;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.AncestorVisibleChanged(const Visible: Boolean);\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.UpdateVisible;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.SetParent(const Value: TFmxObject);\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.BeforeChangeParent;\r\n  inherited;\r\n  Initialize;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.SetVisible(const Value: Boolean);\r\nbegin\r\n  inherited;\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.UpdateVisible;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomWebBrowser.SetURL(const Value: string);\r\nbegin\r\n  FURL := Value;\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    FWebBrowser.URL := Value;\r\n    if CanCreateBrowser and (Value <> '') then\r\n      Navigate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.SetUserAgent(const Value: string);\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.UserAgent := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.ShowDebugConsole;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.ShowDebugConsole;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.ShowPrintUI;\r\nvar\r\n  ip: ITMSFNCCustomWebBrowserPrint;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(IID_ITMSFNCCustomWebBrowserPrint, ip) = S_OK then\r\n    begin\r\n      ip.ShowPrintUI;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DeInitialize;\r\nbegin\r\n  FInitialized := False;\r\n  FInitializeEventCalled := False;\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.DeInitialize;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DeleteAllCookies;\r\nvar\r\n  ic: ITMSFNCCustomWebBrowserCookies;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(IID_ITMSFNCCustomWebBrowserCookies, ic) = S_OK then\r\n      ic.DeleteAllCookies;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.DeleteCookie(AName, ADomain, APath: string);\r\nvar\r\n  ic: ITMSFNCCustomWebBrowserCookies;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(IID_ITMSFNCCustomWebBrowserCookies, ic) = S_OK then\r\n      ic.DeleteCookie(AName, ADomain, APath);\r\n  end;\r\nend;\r\n\r\n{$IFDEF LCLLIB}\r\n{$IFDEF UNIX}\r\n{$IFDEF LCLGTK3}\r\nclass procedure TTMSFNCCustomWebBrowser.WSRegisterClass;\r\nbegin\r\n  inherited WSRegisterClass;\r\n  RegisterGTK3WebBrowser;\r\nend;\r\n{$ENDIF}\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\nclass procedure TTMSFNCCustomWebBrowser.DeleteCookies;\r\nvar\r\n  WebBrowserService: ITMSFNCWebBrowserService;\r\nbegin\r\n  inherited;\r\n  if TTMSFNCWebBrowserPlatformServices.Current.SupportsPlatformService(ITMSFNCWebBrowserService, IInterface(WebBrowserService)) then\r\n    WebBrowserService.DeleteCookies;\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\nprocedure TTMSFNCCustomWebBrowser.StartDocumentReadyStateThread;\r\nbegin\r\n  StopDocumentReadyStateThread;\r\n\r\n  if not Assigned(FDocumentReadyStateThread) then\r\n  begin\r\n    FDocumentReadyStateThread := TTMSFNCWebBrowserDocumentReadyStateThread.Create(Self);\r\n    FDocumentReadyStateThread.OnTerminate := DoTerminate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.StopDocumentReadyStateThread;\r\nbegin\r\n  if Assigned(FDocumentReadyStateThread) then\r\n  begin\r\n    FDocumentReadyStateThread.Terminate;\r\n    FDocumentReadyStateThread.WaitFor;\r\n\r\n    while not FThreadDone do\r\n    begin\r\n      Sleep(100);\r\n      Application.ProcessMessages;\r\n    end;\r\n\r\n    FreeAndNil(FDocumentReadyStateThread);\r\n    FThreadDone := False;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomWebBrowser.StopLoading;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n    FWebBrowser.StopLoading;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowser.SubscribeDevtools(AEventName: string);\r\nvar\r\n  ie: ITMSFNCCustomWebBrowserEdge;\r\nbegin\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    if FWebBrowser.QueryInterface(IID_ITMSFNCCustomWebBrowserEdge, ie) = S_OK then\r\n      ie.SubscribeDevtools(AEventName);\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCWebBrowserFactoryService }\r\n\r\nconstructor TTMSFNCWebBrowserFactoryService.Create;\r\nbegin\r\n  inherited Create;\r\n  FWebBrowsers := TTMSFNCWebBrowserList.Create;\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserFactoryService.CreateWebBrowser(const AValue: TTMSFNCCustomWebBrowser): ITMSFNCCustomWebBrowser;\r\nbegin\r\n  Result := DoCreateWebBrowser(AValue);\r\n  FWebBrowsers.Add(Result);\r\nend;\r\n\r\ndestructor TTMSFNCWebBrowserFactoryService.Destroy;\r\nbegin\r\n  FreeAndNil(FWebBrowsers);\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserFactoryService.DestroyWebBrowser(const AValue: ITMSFNCCustomWebBrowser);\r\nbegin\r\n  DoRemoveWebBrowser(AValue);\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserFactoryService.DoRemoveWebBrowser(const AValue: ITMSFNCCustomWebBrowser);\r\nbegin\r\n  if (FWebBrowsers <> nil) and (AValue <> nil) then\r\n    FWebBrowsers.Remove(AValue);\r\nend;\r\n\r\n{ TTMSFNCWebBrowserPopup }\r\n\r\nprocedure TTMSFNCWebBrowserPopup.DoBeforeNavigate(Sender: TObject; var Params: TTMSFNCCustomWebBrowserBeforeNavigateParams);\r\nbegin\r\n  if Assigned(OnBeforeNavigate) then\r\n    OnBeforeNavigate(Self, Params);\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserPopup.Close(AModalResult: TModalResult = mrOk);\r\nbegin\r\n  {$IFDEF ANDROID}\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    FWebBrowser.Free;\r\n    FWebBrowser := nil;\r\n  end;\r\n  if Assigned(OnClose) then\r\n    OnClose(Self);\r\n  {$ELSE}\r\n  if Assigned(FWebBrowserForm) then\r\n  begin\r\n    if FModal then\r\n      FWebBrowserForm.ModalResult := AModalResult\r\n    else\r\n    begin\r\n      if Assigned(FWebBrowserForm) then\r\n        FWebBrowserForm.Close;\r\n    end;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserPopup.CloseForm(Sender: TObject);\r\nbegin\r\n  Close;\r\nend;\r\n\r\nconstructor TTMSFNCWebBrowserPopup.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  {$IFNDEF ANDROID}\r\n  {$IFNDEF CMNWEBLIB}\r\n  FPopup := TPopup.Create(Self);\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  FPosition := TFormPosition.ScreenCenter;\r\n  {$ENDIF}\r\n  {$IFNDEF FMXLIB}\r\n  FPosition := poScreenCenter;\r\n  {$ENDIF}\r\n  {$IFDEF FMXMOBILE}\r\n  FButtonEventHandler := TTMSFNCWebBrowserPopupButtonEventHandler.Create;\r\n  FButtonEventHandler.FWebBrowserPopup := Self;\r\n  {$ENDIF}\r\n  FFullScreen := False;\r\n  FWidth := 640;\r\n  FHeight := 480;\r\n  FL := 0;\r\n  FT := 0;\r\n  FExternalBrowser := False;\r\n  if csDesigning in ComponentState then\r\n    FCloseButtonText := 'Close';\r\nend;\r\n\r\ndestructor TTMSFNCWebBrowserPopup.Destroy;\r\nbegin\r\n  {$IFNDEF ANDROID}\r\n  {$IFNDEF CMNWEBLIB}\r\n  if Assigned(FPopup) then\r\n    FPopup := nil;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF FMXMOBILE}\r\n  if Assigned(FButtonEventHandler) then\r\n  begin\r\n    FButtonEventHandler.Free;\r\n    FButtonEventHandler := nil;\r\n  end;\r\n  {$ENDIF}\r\n  if Assigned(FWebBrowser) then\r\n  begin\r\n    FWebBrowser.Free;\r\n    FWebBrowser := nil;\r\n  end;\r\n  inherited;\r\nend;\r\n\r\n{$IFDEF MSWINDOWS}\r\nprocedure TTMSFNCWebBrowserPopup.FormShow(Sender: TObject);\r\nbegin\r\n  if FFirstLoad then\r\n  begin\r\n    FFirstLoad := False;\r\n    if Assigned(FWebBrowser) then\r\n      FWebBrowser.URL := FLoadURL;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TTMSFNCWebBrowserPopup.GetWebBrowserClass: TTMSFNCCustomWebBrowserClass;\r\nbegin\r\n  Result := TTMSFNCCustomWebBrowser;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserPopup.InitializeWebBrowser(AWebBrowser: TTMSFNCCustomWebBrowser);\r\nbegin\r\n\r\nend;\r\n\r\n{$IFNDEF ANDROID}\r\nprocedure TTMSFNCWebBrowserPopup.FormClose(Sender: TObject; var Action: TCloseAction);\r\nbegin\r\n  if FModal then\r\n  begin\r\n    {$IFDEF MACOS}\r\n    {$IFDEF IOS}\r\n    Action := TCloseAction.caFree;\r\n    {$ENDIF}\r\n    {$ELSE}\r\n    Action := TCloseAction.caFree;\r\n    {$ENDIF}\r\n  end\r\n  else\r\n    Action := TCloseAction.caFree;\r\n\r\n  FWebBrowserForm := nil;\r\n  FWebBrowser := nil;\r\n\r\n  if Assigned(OnClose) then\r\n    OnClose(Self);\r\nend;\r\n\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCWebBrowserPopup.DoNavigateComplete(Sender: TObject; var Params: TTMSFNCCustomWebBrowserNavigateCompleteParams);\r\nbegin\r\n  if Assigned(OnNavigateComplete) then\r\n    OnNavigateComplete(Self, Params);\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserPopup.Open(AURL: String;\r\n  AModal: Boolean = True): TModalResult;\r\nbegin\r\n  URL := AURL;\r\n  Result := Open(AModal);\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserPopup.ButtonClose(Sender: TObject);\r\nbegin\r\n  Close;\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserPopup.Open(AModal: Boolean = True): TModalResult;\r\n{$IFNDEF FMXMOBILE}\r\nvar\r\n  b: TButton;\r\n{$ENDIF}\r\n{$IFDEF IOS}\r\nvar\r\n  h: TiOSWindowHandle;\r\n  wbv: UIView;\r\n  p: Pointer;\r\n{$ENDIF}\r\n{$IFDEF ANDROID}\r\nvar\r\n  wb: JWebBrowser;\r\n  {$IF COMPILERVERSION < 32}\r\n  wnd: JWindow;\r\n  dl: JDialog;\r\n  {$ENDIF}\r\n  ll: JLinearLayout;\r\n{$ENDIF}\r\nbegin\r\n  try\r\n    FModal := AModal;\r\n    {$IFDEF ANDROID}\r\n    FModal := False;\r\n    {$ENDIF}\r\n\r\n    {$IFNDEF ANDROID}\r\n    {$IFDEF CMNWEBLIB}\r\n    FWebBrowserForm := TTMSFNCWebBrowserPopupForm.CreateNew(Application);\r\n    {$ELSE}\r\n    FWebBrowserForm := TTMSFNCWebBrowserPopupForm.CreateNew(FPopup);\r\n    {$ENDIF}\r\n    FWebBrowserForm.FWebBrowserPopup := Self;\r\n    {$IFDEF DELPHHI_LLVM}\r\n    FWebBrowserForm.FullScreen := FullScreen;\r\n    {$ENDIF}\r\n    FWebBrowserForm.OnClose := FormClose;\r\n    {$IFDEF MSWINDOWS}\r\n    FFirstLoad := True;\r\n    FWebBrowserForm.OnShow := FormShow;\r\n    {$ENDIF}\r\n    FWebBrowserForm.Position := Position;\r\n    FWebBrowserForm.Left := Left;\r\n    FWebBrowserForm.Top := Top;\r\n    FWebBrowserForm.Width := Width;\r\n    FWebBrowserForm.Height := Height;\r\n    {$ENDIF}\r\n\r\n    FWebBrowser := GetWebBrowserClass.Create(Self);\r\n    FWebBrowser.ExternalBrowser := ExternalBrowser;\r\n    FWebBrowser.OnCloseForm := CloseForm;\r\n    FWebBrowser.OnBeforeNavigate := DoBeforeNavigate;\r\n    FWebBrowser.OnNavigateComplete := DoNavigateComplete;\r\n    InitializeWebBrowser(FWebBrowser);\r\n\r\n    {$IFDEF MSWINDOWS}\r\n    FLoadURL := URL;\r\n    if FWebBrowser.ExternalBrowser then\r\n      FWebBrowser.URL := URL;\r\n    {$ELSE}\r\n    FWebBrowser.URL := URL;\r\n    {$ENDIF}\r\n    {$IFNDEF FMXMOBILE}\r\n    FWebBrowser.ControlAlignment := caClient;\r\n    {$ENDIF}\r\n\r\n    {$IFDEF ANDROID}\r\n    FWebBrowser.Parent := Application.MainForm;\r\n    if FullScreen then\r\n    begin\r\n      FWebBrowser.ControlAlignment := caClient;\r\n    end\r\n    else\r\n    begin\r\n      case Position of\r\n        TFormPosition.ScreenCenter, TFormPosition.DesktopCenter, TFormPosition.MainFormCenter,\r\n          TFormPosition.OwnerFormCenter:\r\n        FWebBrowser.Align := TAlignLayout.Center;\r\n      end;\r\n    end;\r\n    {$ELSE}\r\n    FWebBrowser.Parent := FWebBrowserForm;\r\n    {$ENDIF}\r\n\r\n    {$IFDEF FMXLIB}\r\n    FWebBrowser.Position.X := Left;\r\n    FWebBrowser.Position.Y := Top;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    FWebBrowser.Left := Left;\r\n    FWebBrowser.Top := Top;\r\n    {$ENDIF}\r\n    FWebBrowser.Width := Width;\r\n    FWebBrowser.Height := Height;\r\n\r\n    if CloseButton then\r\n    begin\r\n      {$IFNDEF FMXMOBILE}\r\n      b := TButton.Create(FWebBrowserForm);\r\n      b.Parent := FWebBrowserForm;\r\n      {$IFDEF FMXLIB}\r\n      b.Text := CloseButtonText;\r\n      {$ENDIF}\r\n      {$IFDEF CMNWEBLIB}\r\n      b.Caption := CloseButtonText;\r\n      {$ENDIF}\r\n      b.OnClick := ButtonClose;\r\n      {$IFNDEF FMXMOBILE}\r\n      {$IFDEF FMXLIB}\r\n      b.Align := TAlignLayout.Top;\r\n      {$ENDIF}\r\n      {$IFNDEF FMXLIB}\r\n      b.Align := alTop;\r\n      {$ENDIF}\r\n      {$ELSE}\r\n      if FullScreen then\r\n      begin\r\n        {$IFDEF FMXLIB}\r\n        b.Align := TAlignLayout.Top;\r\n        {$ENDIF}\r\n        {$IFNDEF FMXLIB}\r\n        b.Align := alTop;\r\n        {$ENDIF}\r\n      end;\r\n\r\n      {$IFDEF FMXLIB}\r\n      FWebBrowser.Position.Y := FWebBrowser.Position.Y + b.Height;\r\n      FWebBrowser.Height := FWebBrowser.Height - b.Height;\r\n      b.Position.X := FWebBrowser.Position.X;\r\n      b.Position.Y := FWebBrowser.Position.Y - b.Height;\r\n      {$ENDIF}\r\n      {$IFDEF CMNWEBLIB}\r\n      FWebBrowser.Position.Y := FWebBrowser.Top + b.Height;\r\n      FWebBrowser.Height := FWebBrowser.Height - b.Height;\r\n      b.Position.X := FWebBrowser.Left;\r\n      b.Position.Y := FWebBrowser.Top - b.Height;\r\n      {$ENDIF}\r\n      b.Width := FWebBrowserForm.Width;\r\n      {$ENDIF}\r\n      {$ELSE}\r\n      {$IFDEF IOS}\r\n      FButton := TUIButton.Wrap(TUIButton.OCClass.buttonWithType(UIButtonTypeRoundedRect));\r\n      FButton.addTarget(FButtonEventHandler.GetObjectID, sel_getUid('Click'), UIControlEventTouchUpInside);\r\n      FButton.setTitle(NSStrEx(CloseButtonText), UIControlStateNormal);\r\n      FWebBrowser.Position.Y := FWebBrowser.Position.Y + FButton.frame.size.height;\r\n      FWebBrowser.Height := FWebBrowser.Height - FButton.frame.size.height;\r\n      FButton.setFrame(CGRectMake(FWebBrowser.Position.X, FWebBrowser.Position.Y - FButton.frame.size.height, FWebBrowser.Width, 30));\r\n      {$ELSE}\r\n      CallInUIThreadAndWaitFinishing(\r\n      procedure\r\n      begin\r\n        FButton := TJButton.JavaClass.init(SharedActivityEx);\r\n        FButton.setText(StrToJCharSequence(CloseButtonText));\r\n        FButton.setOnClickListener(FButtonEventHandler);\r\n        wb := TJWebBrowser.Wrap(FWebBrowser.NativeBrowser);\r\n        ll := TJLinearLayout.Wrap((wb.getParent as ILocalObject).GetObjectID);\r\n        ll.addView(FButton, 0);\r\n      end\r\n      );\r\n      {$ENDIF}\r\n      {$ENDIF}\r\n    end;\r\n\r\n    {$IFDEF ANDROID}\r\n    {$HINTS ON}\r\n    {$IF COMPILERVERSION < 32}\r\n    CallInUIThreadAndWaitFinishing(\r\n    procedure\r\n    begin\r\n      dl := TJDialog.Wrap(FWebBrowser.NativeDialog);\r\n      wnd := dl.getWindow;\r\n      wnd.clearFlags(TJWindowManager_LayoutParams.JavaClass.FLAG_NOT_TOUCH_MODAL);\r\n      wnd.addFlags(TJWindowManager_LayoutParams.JavaClass.FLAG_DIM_BEHIND);\r\n    end\r\n    );\r\n    {$IFEND}\r\n    {$HINTS OFF}\r\n    FWebBrowser.SetFocus;\r\n    {$ENDIF}\r\n\r\n    {$IFDEF IOS}\r\n    p := FWebBrowser.NativeBrowser;\r\n    if Assigned(p) then\r\n    begin\r\n      wbv := TUIView.Wrap(p);\r\n      wbv.layer.setShadowColor(TUIColor.OCClass.blackColor);\r\n      wbv.layer.setShadowColor(TUIColor.Wrap(TUIColor.OCClass.blackColor).CGColor);\r\n      wbv.layer.setShadowOffset(CGSizeMake(1,1));\r\n      wbv.layer.setShadowRadius(5);\r\n      wbv.layer.setShadowOpacity(0.75);\r\n\r\n      h := WindowHandleToPlatform(FWebBrowserForm.Handle);\r\n      h.View.setBackgroundColor(TUIColor.Wrap(TUIColor.OCClass.whiteColor).colorWithAlphaComponent(0.75));\r\n      if Assigned(FButton) then\r\n      begin\r\n        h.View.addSubview(FButton);\r\n        FButton.layer.setShadowColor(TUIColor.OCClass.blackColor);\r\n        FButton.layer.setShadowColor(TUIColor.Wrap(TUIColor.OCClass.blackColor).CGColor);\r\n        FButton.layer.setShadowOffset(CGSizeMake(1,1));\r\n        FButton.layer.setShadowRadius(5);\r\n        FButton.layer.setShadowOpacity(0.75);\r\n        h.View.sendSubviewToBack(FButton);\r\n      end;\r\n    end;\r\n    {$ENDIF}\r\n\r\n    if ExternalBrowser then\r\n    begin\r\n      if Assigned(FWebBrowser) then\r\n      begin\r\n        FWebBrowser.Free;\r\n        FWebBrowser := nil;\r\n      end;\r\n\r\n      {$IFNDEF ANDROID}\r\n      if Assigned(FWebBrowserForm) then\r\n      begin\r\n        FWebBrowserForm.Free;\r\n        FWebBrowserForm := nil;\r\n      end;\r\n      {$ENDIF}\r\n\r\n      Result := mrOk;\r\n      Exit;\r\n    end;\r\n\r\n    {$IFNDEF ANDROID}\r\n    if FModal then\r\n    begin\r\n      Result := FWebBrowserForm.ShowModal;\r\n      {$IFDEF MACOS}\r\n      {$IFNDEF IOS}\r\n      FWebBrowserForm.Free;\r\n      FWebBrowserForm := nil;\r\n      {$ENDIF}\r\n      {$ENDIF}\r\n    end\r\n    else\r\n    begin\r\n      FWebBrowserForm.Show;\r\n      Result := mrOk;\r\n    end;\r\n    {$ELSE}\r\n    Result := mrOk;\r\n    {$ENDIF}\r\n  finally\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCWebBrowserPopupForm }\r\n\r\nprocedure TTMSFNCWebBrowserPopupForm.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);\r\nbegin\r\n  inherited;\r\n  UpdateBackGround;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserPopupForm.UpdateBackGround;\r\nvar\r\n  wb: TTMSFNCCustomWebBrowser;\r\n  {$IFDEF IOS}\r\n  btn: UIButton;\r\n  {$ENDIF}\r\nbegin\r\n  if Assigned(FWebBrowserPopup) then\r\n  begin\r\n    wb := FWebBrowserPopup.FWebBrowser;\r\n    if Assigned(wb) then\r\n    begin\r\n      if FWebBrowserPopup.FullScreen then\r\n      begin\r\n        wb.SetBounds(0, 0, Width, Height);\r\n      end\r\n      else\r\n      begin\r\n        {$IFDEF FMXLIB}\r\n        case Position of\r\n          TFormPosition.ScreenCenter, TFormPosition.DesktopCenter, TFormPosition.MainFormCenter,\r\n            TFormPosition.OwnerFormCenter:\r\n          begin\r\n            wb.SetBounds((Width - FWebBrowserPopup.Width) / 2 , (Height - FWebBrowserPopup.Height) / 2, FWebBrowserPopup.Width, FWebBrowserPopup.Height);\r\n          end;\r\n        {$ENDIF}\r\n        {$IFDEF CMNWEBLIB}\r\n        case Position of\r\n          poScreenCenter, poDesktopCenter, poMainFormCenter, poOwnerFormCenter:\r\n          begin\r\n            wb.SetBounds((Width - FWebBrowserPopup.Width) div 2 , (Height - FWebBrowserPopup.Height) div 2, FWebBrowserPopup.Width, FWebBrowserPopup.Height);\r\n          end;\r\n        {$ENDIF}\r\n          else\r\n          begin\r\n            wb.SetBounds(FWebBrowserPopup.Left, FWebBrowserPopup.Top, FWebBrowserPopup.Width, FWebBrowserPopup.Height);\r\n          end;\r\n        end;\r\n      end;\r\n      {$IFDEF IOS}\r\n      if Assigned(FWebBrowserPopup.FButton) and FWebBrowserPopup.CloseButton then\r\n      begin\r\n        btn := FWebBrowserPopup.FButton;\r\n        btn.setFrame(CGRectMake(wb.Position.X, wb.Position.Y - FWebBrowserPopup.FButton.frame.size.height, wb.Width, FWebBrowserPopup.FButton.frame.size.height));\r\n        wb.Position.Y := wb.Position.Y + btn.frame.size.height;\r\n        wb.Height := wb.Height - btn.frame.size.height;\r\n        btn.setFrame(CGRectMake(wb.Position.X, wb.Position.Y - btn.frame.size.height, wb.Width, 30));\r\n      end;\r\n      {$ENDIF}\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCWebBrowserError }\r\n\r\nconstructor TTMSFNCWebBrowserError.Create(AMessage, AType: string);\r\nbegin\r\n  FMessage := AMessage;\r\n  FType := AType;\r\nend;\r\n\r\nconstructor TTMSFNCWebBrowserError.Create(AMessage: string);\r\nbegin\r\n  FMessage := AMessage;\r\n  FType := GetDefaultType;\r\nend;\r\n\r\nconstructor TTMSFNCWebBrowserError.CreateDefault;\r\nbegin\r\n  Create(GetDefaultErrorMessage, GetDefaultType);\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserError.GetDefaultErrorMessage: string;\r\nbegin\r\n  Result := 'Error Message';\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserError.GetDefaultType: string;\r\nbegin\r\n  Result := 'ERROR_TYPE';\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserError.GetMessage: string;\r\nbegin\r\n  Result := FMessage;\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserError.GetType: string;\r\nbegin\r\n  Result := FType;\r\nend;\r\n\r\n{ TTMSFNCWebBrowserDownloads }\r\n\r\nfunction TTMSFNCWebBrowserDownloads.Add: TTMSFNCWebBrowserDownload;\r\nbegin\r\n  Result := TTMSFNCWebBrowserDownload(inherited Add);\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserDownloads.RemoveDownloadsByState(AState: TTMSFNCWebBrowserDownloadState);\r\nvar\r\n  I: integer;\r\nbegin\r\n  I := 0;\r\n  while I < Self.Count do\r\n  begin\r\n    if Items[I].State = AState then\r\n      Delete(I)\r\n    else\r\n      Inc(I);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserDownloads.ClearFinishedDownloads;\r\nbegin\r\n  RemoveDownloadsByState(dsCompleted);\r\nend;\r\n\r\nconstructor TTMSFNCWebBrowserDownloads.Create(AOwner: TTMSFNCCustomWebBrowser);\r\nbegin\r\n  inherited Create(AOwner, CreateItemClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserDownloads.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCWebBrowserDownload;\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserDownloads.GetDownloadByResultFile(AResultFilePath: string): TTMSFNCWebBrowserDownload;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := nil;\r\n  for I := Count - 1 downto 0 do\r\n  begin\r\n    if Items[I].ResultFilePath = AResultFilePath then\r\n    begin\r\n      Result := Items[I];\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserDownloads.GetDownloadByURI(AURI: string): TTMSFNCWebBrowserDownload;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := nil;\r\n  for I := Count - 1 downto 0 do\r\n  begin\r\n    if Items[I].URI = AURI then\r\n    begin\r\n      Result := Items[I];\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserDownloads.GetItem(Index: Integer): TTMSFNCWebBrowserDownload;\r\nbegin\r\n  Result := TTMSFNCWebBrowserDownload(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserDownloads.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserDownloads.Insert(Index: Integer): TTMSFNCWebBrowserDownload;\r\nbegin\r\n  Result := TTMSFNCWebBrowserDownload(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserDownloads.SetItem(Index: Integer; const Value: TTMSFNCWebBrowserDownload);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCWebBrowserDownload }\r\n\r\nprocedure TTMSFNCWebBrowserDownload.Cancel;\r\nbegin\r\n  if Assigned(FOwner) then\r\n    FOwner.CancelDownload(Self);\r\nend;\r\n\r\nconstructor TTMSFNCWebBrowserDownload.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if (Collection is TTMSFNCWebBrowserDownloads) then\r\n    FOwner := (Collection as TTMSFNCWebBrowserDownloads).FOwner;\r\nend;\r\n\r\ndestructor TTMSFNCWebBrowserDownload.Destroy;\r\nbegin\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserDownload.Pause;\r\nbegin\r\n  if Assigned(FOwner) then\r\n    FOwner.PauseDownload(Self);\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserDownload.Resume;\r\nbegin\r\n  if Assigned(FOwner) then\r\n    FOwner.ResumeDownload(Self);\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserDownload.SetBytesReceived(const Value: Int64);\r\nbegin\r\n  if FBytesReceived <> Value then\r\n    FBytesReceived := Value;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserDownload.SetCanResume(const Value: boolean);\r\nbegin\r\n  if FCanResume <> Value then\r\n    FCanResume := Value;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserDownload.SetEstimatedEndTime(const Value: TDateTime);\r\nbegin\r\n  if FEstimatedEndTime <> Value then\r\n    FEstimatedEndTime := Value;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserDownload.SetInterruptReason(const Value: TTMSFNCWebBrowserDownloadInterruptReason);\r\nbegin\r\n  if FInterruptReason <> Value then\r\n    FInterruptReason := Value;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserDownload.SetMimeType(const Value: string);\r\nbegin\r\n  if FMimeType <> Value then\r\n    FMimeType := Value;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserDownload.SetResultFilePath(const Value: string);\r\nbegin\r\n  if FResultFilePath <> Value then\r\n    FResultFilePath := Value;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserDownload.SetState(const Value: TTMSFNCWebBrowserDownloadState);\r\nbegin\r\n  if FState <> Value then\r\n  FState := Value;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserDownload.SetTotalBytes(const Value: Int64);\r\nbegin\r\n  if FTotalBytes <> Value then\r\n    FTotalBytes := Value;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserDownload.SetURI(const Value: string);\r\nbegin\r\n  if FURI <> Value then\r\n    FURI := Value;\r\nend;\r\n\r\n{ TTMSFNCWebBrowserCustomContextMenuItem }\r\n\r\nfunction TTMSFNCWebBrowserCustomContextMenuItem.GetParentItem: TTMSFNCWebBrowserContextMenuItem;\r\nbegin\r\n  Result := inherited ParentItem;\r\nend;\r\n\r\n{ TTMSFNCBrowserContextMenuItem }\r\n\r\nfunction TTMSFNCWebBrowserContextMenuItem.AsCustom: TTMSFNCWebBrowserCustomContextMenuItem;\r\nbegin\r\n  if Self is TTMSFNCWebBrowserCustomContextMenuItem then\r\n    Result := TTMSFNCWebBrowserCustomContextMenuItem(Self)\r\n  else\r\n    Result := nil;\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserContextMenuItem.AsSystem: TTMSFNCWebBrowserSystemContextMenuItem;\r\nbegin\r\n  if Self is TTMSFNCWebBrowserSystemContextMenuItem then\r\n    Result := TTMSFNCWebBrowserSystemContextMenuItem(Self)\r\n  else if Self is TTMSFNCWebBrowserCustomContextMenuItem then\r\n    Result :=  TTMSFNCWebBrowserSystemContextMenuItem(Self)\r\n  else\r\n    Result := nil;\r\nend;\r\n\r\nconstructor TTMSFNCWebBrowserContextMenuItem.Create;\r\nbegin\r\n  FKind := ikCommand;\r\n  FEnabled := True;\r\n  FOriginalIndex := -1;\r\n  FChildren := TTMSFNCWebBrowserContextMenuItemList.Create;\r\n  FIcon := TTMSFNCBitmap.Create;\r\nend;\r\n\r\ndestructor TTMSFNCWebBrowserContextMenuItem.Destroy;\r\nbegin\r\n  if Assigned(FEventHandlerObject) then\r\n    FreeAndNil(FEventHandlerObject);\r\n\r\n  FIcon.Free;\r\n  FChildren.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserContextMenuItem.SetShortcutKeyDescription(const Value: string);\r\nbegin\r\n  FShortcutKeyDescription := Value;\r\nend;\r\n\r\n{ TTMSFNCBrowserSystemContextMenuItem }\r\n\r\nfunction TTMSFNCWebBrowserSystemContextMenuItem.GetChecked: Boolean;\r\nbegin\r\n  Result := inherited Checked;\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserSystemContextMenuItem.GetChildren: TObjectList<TTMSFNCWebBrowserContextMenuItem>;\r\nbegin\r\n  Result := inherited Children;\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserSystemContextMenuItem.GetEnabled: Boolean;\r\nbegin\r\n  Result := inherited Enabled;\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserSystemContextMenuItem.GetIcon: TTMSFNCBitmap;\r\nbegin\r\n  Result := inherited Icon;\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserSystemContextMenuItem.GetKind: TTMSFNCWebBrowserContextMenuItemKind;\r\nbegin\r\n  Result := inherited Kind;\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserSystemContextMenuItem.GetName: string;\r\nbegin\r\n  Result := inherited Name;\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserSystemContextMenuItem.GetParentItem: TTMSFNCWebBrowserContextMenuItem;\r\nbegin\r\n  Result := inherited ParentItem;\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserSystemContextMenuItem.GetText: string;\r\nbegin\r\n  Result := inherited Text;\r\nend;\r\n\r\n{ TTMSFNCCustomWebBrowserSettings }\r\n\r\nprocedure TTMSFNCCustomWebBrowserSettings.ApplySettings;\r\nbegin\r\n  SetEnableAcceleratorKeys(FEnableAcceleratorKeys);\r\n  SetEnableContextMenu(FEnableContextMenu);\r\n  SetEnableShowDebugConsole(FEnableShowDebugConsole);\r\n  SetAllowExternalDrop(FAllowExternalDrop);\r\n//  SetEnableScript(FEnableScript);\r\nend;\r\n\r\nconstructor TTMSFNCCustomWebBrowserSettings.Create(AOwner: TTMSFNCCustomWebBrowser);\r\nbegin\r\n  inherited Create;\r\n  FEnableScript := True;\r\n  FEnableContextMenu := True;\r\n  FEnableAcceleratorKeys := True;\r\n  FEnableShowDebugConsole := True;\r\n  FAllowExternalDrop := True;\r\n  FAdditionalBrowserArguments := TStringList.Create;\r\n  FLanguage := '';\r\n\r\n  FOwner := AOwner;\r\nend;\r\n\r\ndestructor TTMSFNCCustomWebBrowserSettings.Destroy;\r\nbegin\r\n  FAdditionalBrowserArguments.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowserSettings.GetAllowExternalDrop: Boolean;\r\nvar\r\n  s: ITMSFNCCustomWebBrowserSettings;\r\nbegin\r\n  Result := FAllowExternalDrop;\r\n  if Assigned(FOwner) and Assigned(FOwner.FWebBrowser) then\r\n  begin\r\n    if FOwner.FWebBrowser.QueryInterface(IID_ITMSFNCCustomWebBrowserSettings, s) = S_OK then\r\n      Result := s.AllowExternalDrop;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowserSettings.GetEnableAcceleratorKeys: Boolean;\r\nbegin\r\n  Result := FEnableAcceleratorKeys;\r\n  if Assigned(FOwner) and FOwner.FInitialized then\r\n    Result := FOwner.EnableAcceleratorKeys;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowserSettings.GetEnableContextMenu: Boolean;\r\nbegin\r\n  Result := FEnableContextMenu;\r\n  if Assigned(FOwner) and FOwner.FInitialized then\r\n    Result := FOwner.EnableContextMenu;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowserSettings.GetEnableScript: Boolean;\r\nvar\r\n  s: ITMSFNCCustomWebBrowserSettings;\r\nbegin\r\n  if Assigned(FOwner) and FOwner.FInitialized then\r\n  begin\r\n    if Assigned(FOwner) then\r\n    begin\r\n      s := FOwner.SettingsI;\r\n      if Assigned(s) then\r\n        FEnableScript := s.GetEnableScript;\r\n    end;\r\n  end;\r\n  Result := FEnableScript;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowserSettings.GetEnableShowDebugConsole: Boolean;\r\nbegin\r\n  Result := FEnableShowDebugConsole;\r\n  if Assigned(FOwner) and FOwner.FInitialized then\r\n    Result := FOwner.EnableShowDebugConsole;\r\nend;\r\n\r\nfunction TTMSFNCCustomWebBrowserSettings.GetUsePopupMenuAsContextMenu: Boolean;\r\nbegin\r\n  Result := FUsePopupMenuAsContextMenu;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowserSettings.SetAdditionalBrowserArguments(\r\n  const Value: TStringList);\r\nbegin\r\n  FAdditionalBrowserArguments.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowserSettings.SetAllowExternalDrop(const Value: Boolean);\r\nvar\r\n  s: ITMSFNCCustomWebBrowserSettings;\r\nbegin\r\n  FAllowExternalDrop := Value;\r\n  if Assigned(FOwner) and Assigned(FOwner.FWebBrowser) then\r\n  begin\r\n    if FOwner.FWebBrowser.QueryInterface(IID_ITMSFNCCustomWebBrowserSettings, s) = S_OK then\r\n      s.SetAllowExternalDrop(FAllowExternalDrop);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowserSettings.SetEnableAcceleratorKeys(const Value: Boolean);\r\nbegin\r\n  FEnableAcceleratorKeys := Value;\r\n  if Assigned(FOwner) then\r\n    FOwner.EnableAcceleratorKeys := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowserSettings.SetEnableContextMenu(const Value: Boolean);\r\nbegin\r\n  FEnableContextMenu := Value;\r\n  if Assigned(FOwner) then\r\n    FOwner.EnableContextMenu := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowserSettings.SetEnableScript(const Value: boolean);\r\nvar\r\n  s: ITMSFNCCustomWebBrowserSettings;\r\nbegin\r\n  FEnableScript := Value;\r\n  if Assigned(FOwner) then\r\n  begin\r\n    s := FOwner.SettingsI;\r\n    if Assigned(s) then\r\n      s.SetEnableScript(Value);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowserSettings.SetEnableShowDebugConsole(const Value: Boolean);\r\nbegin\r\n  FEnableShowDebugConsole := Value;\r\n  if Assigned(FOwner) then\r\n    FOwner.EnableShowDebugConsole := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomWebBrowserSettings.SetUsePopupMenuAsContextMenu(const Value: Boolean);\r\nbegin\r\n  FUsePopupMenuAsContextMenu := Value;\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\n\r\n{ TTMSFNCScript }\r\n\r\nconstructor TTMSFNCScript.Create(AScript: string; ACompleteEvent: TTMSFNCWebBrowserJavaScriptCompleteEvent);\r\nbegin\r\n  FScript := AScript;\r\n  FCompleteEvent := ACompleteEvent;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF IOS}\r\n\r\n{ TTMSFNCWebBrowserPopupButtonEventHandler }\r\n\r\nprocedure TTMSFNCWebBrowserPopupButtonEventHandler.Click;\r\nbegin\r\n  if Assigned(FWebBrowserPopup) then\r\n    FWebBrowserPopup.Close;\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserPopupButtonEventHandler.GetObjectiveCClass: PTypeInfo;\r\nbegin\r\n  Result := TypeInfo(ITMSFNCWebBrowserPopupButtonEventHandler);\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF ANDROID}\r\n\r\n{ TTMSFNCWebBrowserPopupButtonEventHandler }\r\n\r\nprocedure TTMSFNCWebBrowserPopupButtonEventHandler.onClick(P1: JView);\r\nbegin\r\n  if Assigned(FWebBrowserPopup) then\r\n    FWebBrowserPopup.Close;\r\nend;\r\n\r\n{$ENDIF}\r\n\r\n{$IFNDEF WEBLIB}\r\n\r\n{ TTMSFNCWebBrowserDocumentReadyStateThread }\r\n\r\nconstructor TTMSFNCWebBrowserDocumentReadyStateThread.Create(AWebBrowser: TTMSFNCCustomWebBrowser);\r\nbegin\r\n  inherited Create(False);\r\n  FWebBrowser := AWebBrowser;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserDocumentReadyStateThread.Execute;\r\nbegin\r\n  while not Terminated do\r\n  begin\r\n    if Assigned(FWebBrowser) then\r\n    begin\r\n      Synchronize(FWebBrowser.CheckApplicationInitialized);\r\n      Sleep(100);\r\n      if FWebBrowser.FReady then\r\n      begin\r\n        Synchronize(FWebBrowser.DoDocumentComplete);\r\n        Terminate;\r\n      end;\r\n    end\r\n    else\r\n      Terminate;\r\n  end;\r\nend;\r\n\r\n{$ENDIF}\r\n\r\n{ TTMSFNCWebBrowserPlatformServices }\r\n\r\nfunction TTMSFNCWebBrowserPlatformServices.Count: Integer;\r\nbegin\r\n  Result := FServicesList.Count;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserPlatformServices.AddPlatformService(const AServiceGUID: TGUID; const AService: IInterface);\r\nvar\r\n  LService: IInterface;\r\nbegin\r\n  if not FServicesList.ContainsKey(GUIDToString(AServiceGUID)) then\r\n  begin\r\n    if Supports(AService, AServiceGUID, LService) then\r\n      FServicesList.Add(TTMSFNCWebBrowserPlatformServicesService.Create(GUIDToString(AServiceGUID), AService));\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCWebBrowserPlatformServices.Create;\r\nbegin\r\n  inherited;\r\n  FServicesList := TTMSFNCWebBrowserPlatformServicesList.Create;\r\nend;\r\n\r\ndestructor TTMSFNCWebBrowserPlatformServices.Destroy;\r\nbegin\r\n  FreeAndNil(FServicesList);\r\n  inherited;\r\nend;\r\n\r\n{$IFNDEF AUTOREFCOUNT}\r\nclass procedure TTMSFNCWebBrowserPlatformServices.ReleaseCurrent;\r\nbegin\r\n  FreeAndNil(FCurrent);\r\n  FCurrentReleased := True;\r\nend;\r\n{$ENDIF}\r\n\r\nclass function TTMSFNCWebBrowserPlatformServices.Current: TTMSFNCWebBrowserPlatformServices;\r\nbegin\r\n  if (FCurrent = nil) and not FCurrentReleased then\r\n    FCurrent := TTMSFNCWebBrowserPlatformServices.Create;\r\n  Result := FCurrent;\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserPlatformServices.GetPlatformService(const AServiceGUID: TGUID): IInterface;\r\nvar\r\n  k: IInterface;\r\nbegin\r\n  k := FServicesList.Interfaces[GUIDToString(AServiceGUID)];\r\n  Supports(k, AServiceGUID, Result);\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserPlatformServices.RemovePlatformService(const AServiceGUID: TGUID);\r\nbegin\r\n  FServicesList.RemoveByGUID(GUIDToString(AServiceGUID));\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserPlatformServices.SupportsPlatformService(const AServiceGUID: TGUID;\r\n  var AService: IInterface): Boolean;\r\nbegin\r\n  if FServicesList.ContainsKey(GUIDToString(AServiceGUID)) then\r\n    Result := Supports(FServicesList.Interfaces[GUIDToString(AServiceGUID)], AServiceGUID, AService)\r\n  else\r\n  begin\r\n    AService := nil;\r\n    Result := False;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserPlatformServices.SupportsPlatformService(const AServiceGUID: TGUID): Boolean;\r\nbegin\r\n  Result := FServicesList.ContainsKey(GUIDToString(AServiceGUID));\r\nend;\r\n\r\n{ TTMSFNCWebBrowserPlatformServicesService }\r\n\r\nconstructor TTMSFNCWebBrowserPlatformServicesService.Create(AGUID: string;\r\n  AInterface: IInterface);\r\nbegin\r\n  FGUID := AGUID;\r\n  FInterface := AInterface;\r\nend;\r\n\r\n{ TTMSFNCWebBrowserPlatformServicesList }\r\n\r\nfunction TTMSFNCWebBrowserPlatformServicesList.ContainsKey(AGUID: string): Boolean;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := False;\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    if Items[I].GUID = AGUID then\r\n    begin\r\n      Result := True;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserPlatformServicesList.GetValue(AGUID: string): IInterface;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := nil;\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    if Items[I].GUID = AGUID then\r\n    begin\r\n      Result := Items[I].&Interface;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserPlatformServicesList.RemoveByGUID(AGUID: string);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := Count - 1 downto 0 do\r\n  begin\r\n    if Items[I].GUID = AGUID then\r\n    begin\r\n      Remove(Items[I]);\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{$IFDEF WEBLIB}\r\nfunction TTMSFNCWebBrowserList.GetItem(Index: Integer): ITMSFNCCustomWebBrowser;\r\nbegin\r\n  Result := ITMSFNCCustomWebBrowser(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserList.SetItem(Index: Integer; const Value: ITMSFNCCustomWebBrowser);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nfunction TTMSFNCWebBrowserPlatformServicesList.GetItem(Index: Integer): TTMSFNCWebBrowserPlatformServicesService;\r\nbegin\r\n  Result := TTMSFNCWebBrowserPlatformServicesService(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowserPlatformServicesList.SetItem(Index: Integer; const Value: TTMSFNCWebBrowserPlatformServicesService);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n{$ENDIF}\r\n\r\n{ TTMSFNCWebBrowser }\r\n\r\nprocedure TTMSFNCWebBrowser.AddBridge(ABridgeName: string; ABridgeObject: TObject);\r\nbegin\r\n  inherited AddBridge(ABridgeName, ABridgeObject);\r\nend;\r\n\r\n{$IFNDEF FNCLIB}\r\nprocedure TTMSFNCWebBrowser.AddCookie(ACookie: TTMSFNCWebBrowserCookie);\r\nbegin\r\n  inherited AddCookie(ACookie);\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.DeleteAllCookies;\r\nbegin\r\n  inherited DeleteAllCookies;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.DeleteCookie(AName, ADomain, APath: string);\r\nbegin\r\n  inherited DeleteCookie(AName, ADomain, APath);\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.GetCookies(AURI: string);\r\nbegin\r\n  inherited GetCookies(AURI);\r\nend;\r\n\r\nfunction TTMSFNCWebBrowser.InitialPrintSettings: TTMSFNCWebBrowserPrintSettings;\r\nbegin\r\n  Result := inherited InitialPrintSettings;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.OpenTaskManager;\r\nbegin\r\n  inherited OpenTaskManager;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.ShowPrintUI;\r\nbegin\r\n  inherited ShowPrintUI;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.Print(APrintSettings: TTMSFNCWebBrowserPrintSettings);\r\nbegin\r\n  inherited Print(APrintSettings);\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.PrintToPDFStream(APrintSettings: TTMSFNCWebBrowserPrintSettings);\r\nbegin\r\n  inherited PrintToPDFStream(APrintSettings);\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.SetVirtualHostNameToFolderMapping(AHostName, AFolderPath: string; AAccessKind: TTMSFNCWebBrowserHostResourceAccessKind);\r\nbegin\r\n  inherited SetVirtualHostNameToFolderMapping(AHostName, AFolderPath, AAccessKind);\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.ClearVirtualHostNameToFolderMapping(AHostName: string);\r\nbegin\r\n  inherited ClearVirtualHostNameToFolderMapping(AHostName);\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.Print;\r\nbegin\r\n  inherited Print;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.PrintToPDF(AFileName: string;\r\n  APrintSettings: TTMSFNCWebBrowserPrintSettings);\r\nbegin\r\n  inherited PrintToPDF(AFileName, APrintSettings);\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.PrintToPDF(AFileName: string);\r\nbegin\r\n  inherited PrintToPDF(AFileName);\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.PrintToPDFStream;\r\nbegin\r\n  inherited PrintToPDFStream;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.NavigateWithData(AURI: string; AMethod: string; ABodyStream: TStream; AHeaders: TStrings);\r\nbegin\r\n  inherited NavigateWithData(AURI, AMethod, ABodyStream, AHeaders);\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.NavigateWithData(AURI, AMethod, ABody: string; AHeaders: TStrings);\r\nbegin\r\n  inherited NavigateWithData(AURI, AMethod, ABody, AHeaders);\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.SubscribeDevtools(AEventName: string);\r\nbegin\r\n  inherited SubscribeDevtools(AEventName);\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.CallDevToolsProtocolMethod(AMethodName: string; AParametersAsJSON: string);\r\nbegin\r\n  inherited CallDevToolsProtocolMethod(AMethodName, AParametersAsJSON);\r\nend;\r\n\r\nfunction TTMSFNCWebBrowser.GetDownloadInterruptReasonText(ADownloadInterruptReason: TTMSFNCWebBrowserDownloadInterruptReason): string;\r\nbegin\r\n  Result := inherited GetDownloadInterruptReasonText(ADownloadInterruptReason);\r\nend;\r\n\r\nfunction TTMSFNCWebBrowser.GetDownloadStateText(ADownloadState: TTMSFNCWebBrowserDownloadState): string;\r\nbegin\r\n  Result := inherited GetDownloadStateText(ADownloadState);\r\nend;\r\n\r\n{$ENDIF}\r\n\r\nfunction TTMSFNCWebBrowser.CanGoBack: Boolean;\r\nbegin\r\n  Result := inherited CanGoBack;\r\nend;\r\n\r\nfunction TTMSFNCWebBrowser.CanGoForward: Boolean;\r\nbegin\r\n  Result := inherited CanGoForward;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.CaptureScreenShot(ACompleteEvent: TTMSFNCWebBrowserCaptureScreenShotCompleteEvent = nil);\r\nbegin\r\n  inherited CaptureScreenShot(ACompleteEvent);\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.ClearCache;\r\nbegin\r\n  inherited ClearCache;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.DeInitialize;\r\nbegin\r\n  inherited DeInitialize;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.ExecuteJavaScript(AScript: String; ACompleteEvent: TTMSFNCWebBrowserJavaScriptCompleteEvent = nil; AImmediate: Boolean = False);\r\nbegin\r\n  inherited ExecuteJavaScript(AScript, ACompleteEvent, AImmediate);\r\nend;\r\n\r\nfunction TTMSFNCWebBrowser.ExecuteJavaScriptSync(AScript: string): string;\r\nbegin\r\n  Result := inherited ExecuteJavaScriptSync(AScript);\r\nend;\r\n\r\nfunction TTMSFNCWebBrowser.GetBridgeCommunicationLayer(ABridgeName: string): string;\r\nbegin\r\n  Result := inherited GetBridgeCommunicationLayer(ABridgeName);\r\nend;\r\n\r\n{$IFDEF ANDROID}\r\nfunction TTMSFNCWebBrowser.NativeDialog: Pointer;\r\nbegin\r\n  Result := inherited NativeDialog;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF MSWINDOWS}\r\nfunction TTMSFNCWebBrowser.GetWebBrowserInstance: IInterface;\r\nbegin\r\n  Result := inherited GetWebBrowserInstance;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCWebBrowser.GoBack;\r\nbegin\r\n  inherited GoBack;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.GoForward;\r\nbegin\r\n  inherited GoForward;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.Initialize;\r\nbegin\r\n  inherited Initialize;\r\nend;\r\n\r\nfunction TTMSFNCWebBrowser.IsFMXBrowser: Boolean;\r\nbegin\r\n  Result := inherited IsFMXBrowser;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.LoadFile(AFile: String);\r\nbegin\r\n  inherited LoadFile(AFile);\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.LoadHTML(AHTML: String);\r\nbegin\r\n  inherited LoadHTML(AHTML);\r\nend;\r\n\r\nfunction TTMSFNCWebBrowser.NativeBrowser: Pointer;\r\nbegin\r\n  Result := inherited NativeBrowser;\r\nend;\r\n\r\nfunction TTMSFNCWebBrowser.NativeEnvironment: Pointer;\r\nbegin\r\n  Result := inherited NativeEnvironment;\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\nprocedure TTMSFNCWebBrowser.StartDocumentReadyStateThread;\r\nbegin\r\n  inherited StartDocumentReadyStateThread;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCWebBrowser.Navigate;\r\nbegin\r\n  inherited Navigate;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.Navigate(const AURL: string);\r\nbegin\r\n  inherited Navigate(AURL);\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.Reload;\r\nbegin\r\n  inherited Reload;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.RemoveBridge(ABridgeName: string);\r\nbegin\r\n  inherited RemoveBridge(ABridgeName);\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.ShowDebugConsole;\r\nbegin\r\n  inherited ShowDebugConsole;\r\nend;\r\n\r\nprocedure TTMSFNCWebBrowser.StopLoading;\r\nbegin\r\n  inherited StopLoading;\r\nend;\r\n\r\ninitialization\r\nbegin\r\n  TTMSFNCWebBrowserPlatformServices.FCurrentReleased := False;\r\n  RegisterWebBrowserService;\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\nfinalization\r\nbegin\r\n  UnRegisterWebBrowserService;\r\n{$IFNDEF AUTOREFCOUNT}\r\n  TTMSFNCWebBrowserPlatformServices.ReleaseCurrent;\r\n{$ENDIF}\r\nend;\r\n{$ENDIF}\r\n\r\nend.\r\n","unit Generics.Strings;\r\n\r\n{$Mode Delphi}\r\n\r\ninterface\r\n\r\nresourcestring\r\n  SArgumentOutOfRange = 'Argument out of range';\r\n  //SArgumentNilNode = 'Node is nil';\r\n  //SDuplicatesNotAllowed = 'Duplicates not allowed in dictionary';\r\n  //SCollectionInconsistency = 'Collection inconsistency';\r\n  //SCollectionDuplicate = 'Collection does not allow duplicates';\r\n  //SDictionaryKeyDoesNotExist = 'Dictionary key does not exist';\r\n  //SItemNotFound = 'Item not found';\r\n\r\nimplementation\r\n\r\nend.\r\n\r\n","unit Generics.Collections;\r\n\r\n{$Mode Delphi}\r\n{$COperators On}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, SysUtils, rtlconsts, Types,\r\n  {$IFDEF Pas2js}JS,{$ENDIF}\r\n  Generics.Strings, Generics.Defaults;\r\n\r\ntype\r\n  TCollectionNotification = (cnAdded, cnRemoved, cnExtracted);\r\n  TCollectionNotifyEvent<T> = procedure(ASender: TObject; const AItem: T;\r\n    AAction: TCollectionNotification) of object;\r\n\r\n  { TBinarySearchResult }\r\n\r\n  TBinarySearchResult = record\r\n    FoundIndex, CandidateIndex: SizeInt;\r\n    CompareResult: SizeInt;\r\n  end;\r\n\r\n  { TCustomArrayHelper }\r\n\r\n  TCustomArrayHelper<T> = class abstract\r\n  protected\r\n    class procedure QuickSort(var AValues: array of T; ALeft, ARight: SizeInt;\r\n      const AComparer: IComparer<T>); virtual; abstract;\r\n  public\r\n    //class procedure Sort(var AValues: array of T); overload;\r\n    class procedure Sort(var AValues: array of T;\r\n      const AComparer: IComparer<T>); overload;\r\n    class procedure Sort(var AValues: array of T;\r\n      const AComparer: IComparer<T>; AIndex, ACount: SizeInt); overload;\r\n\r\n    class function BinarySearch(const AValues: array of T; const AItem: T;\r\n      out ASearchResult: TBinarySearchResult; const AComparer: IComparer<T>;\r\n      AIndex, ACount: SizeInt): Boolean; virtual; abstract; overload;\r\n    class function BinarySearch(const AValues: array of T; const AItem: T;\r\n      out AFoundIndex: SizeInt; const AComparer: IComparer<T>;\r\n      AIndex, ACount: SizeInt): Boolean; virtual; abstract; overload;\r\n    class function BinarySearch(const AValues: array of T; const AItem: T;\r\n      out AFoundIndex: SizeInt; const AComparer: IComparer<T>): Boolean; overload;\r\n    class function BinarySearch(const AValues: array of T; const AItem: T;\r\n      out ASearchResult: TBinarySearchResult; const AComparer: IComparer<T>): Boolean; overload;\r\n    // No support for automatically creating a comparer.\r\n    //  class function BinarySearch(const AValues: array of T; const AItem: T;\r\n    //  out AFoundIndex: SizeInt): Boolean; overload;\r\n    //  class function BinarySearch(const AValues: array of T; const AItem: T;\r\n    //  out ASearchResult: TBinarySearchResult): Boolean; overload;\r\n  end;\r\n\r\n  { TArrayHelper }\r\n\r\n  TArrayHelper<T> = class(TCustomArrayHelper<T>)\r\n  protected\r\n    class procedure QuickSort(var AValues: array of T; ALeft, ARight: SizeInt;\r\n      const AComparer: IComparer<T>); override;\r\n  public\r\n    class function BinarySearch(const AValues: array of T; const AItem: T;\r\n      out ASearchResult: TBinarySearchResult; const AComparer: IComparer<T>;\r\n      AIndex, ACount: SizeInt): Boolean; override; overload;\r\n    class function BinarySearch(const AValues: array of T; const AItem: T;\r\n      out AFoundIndex: SizeInt; const AComparer: IComparer<T>;\r\n      AIndex, ACount: SizeInt): Boolean; override; overload;\r\n  end;\r\n\r\n  { TEnumerator }\r\n\r\n  TEnumerator<T> = class abstract\r\n  protected\r\n    function DoGetCurrent: T; virtual; abstract;\r\n    function DoMoveNext: boolean; virtual; abstract;\r\n  public\r\n    property Current: T read DoGetCurrent;\r\n    function MoveNext: boolean;\r\n  end;\r\n\r\n  { TEnumerable }\r\n\r\n  TEnumerable<T> = class abstract\r\n  protected\r\n    type\r\n      TMyEnumerator = TEnumerator<T>;\r\n    function DoGetEnumerator: TMyEnumerator; virtual; abstract;\r\n  public\r\n    type\r\n      TMyArray = TArray<T>;\r\n    function GetEnumerator: TMyEnumerator; inline;\r\n    function ToArray: TMyArray; virtual;\r\n  end;\r\n\r\n  { TCustomList }\r\n\r\n  TCustomList<T> = class abstract(TEnumerable<T>)\r\n  private\r\n    FOnNotify: TCollectionNotifyEvent<T>;\r\n    function GetCapacity: SizeInt; inline;\r\n  protected\r\n    type TMyArrayHelper = TArrayHelper<T>;\r\n  protected\r\n    FLength: SizeInt;\r\n    FItems: array of T;\r\n    function PrepareAddingItem: SizeInt; virtual;\r\n    function PrepareAddingRange(ACount: SizeInt): SizeInt; virtual;\r\n    procedure Notify(const AValue: T; ACollectionNotification: TCollectionNotification); virtual;\r\n    function DoRemove(AIndex: SizeInt; ACollectionNotification: TCollectionNotification): T; virtual;\r\n    procedure SetCapacity(AValue: SizeInt); virtual; abstract;\r\n    function GetCount: SizeInt; virtual;\r\n  public\r\n    property Count: SizeInt read GetCount;\r\n    property Capacity: SizeInt read GetCapacity write SetCapacity;\r\n    property OnNotify: TCollectionNotifyEvent<T> read FOnNotify write FOnNotify;\r\n    procedure TrimExcess; virtual; abstract;\r\n  end;\r\n\r\n  { TCustomListEnumerator }\r\n\r\n  TCustomListEnumerator<T> = class abstract(TEnumerator<T>)\r\n  private\r\n    FList: TCustomList<T>;\r\n    FIndex: SizeInt;\r\n  protected\r\n    function DoMoveNext: boolean; override;\r\n    function DoGetCurrent: T; override;\r\n    function GetCurrent: T; virtual;\r\n  public\r\n    constructor Create(AList: TCustomList<T>);\r\n  end;\r\n\r\n  { TCustomInvertedListEnumerator }\r\n\r\n  TCustomInvertedListEnumerator<T> = class abstract(TEnumerator<T>)\r\n  private\r\n    FList: TCustomList<T>;\r\n    FIndex: SizeInt;\r\n  protected\r\n    function DoMoveNext: boolean; override;\r\n    function DoGetCurrent: T; override;\r\n    function GetCurrent: T; virtual;\r\n  public\r\n    constructor Create(AList: TCustomList<T>);\r\n  end;\r\n\r\n  { TList }\r\n{$SCOPEDENUMS ON}\r\n  TDirection = (FromBeginning,fromEnd);\r\n{$SCOPEDENUMS OFF}\r\n\r\n  TList<T> = class(TCustomList<T>)\r\n  private\r\n    FComparer: IComparer<T>;\r\n    function SameValue(const Left, Right: T): Boolean;\r\n  protected\r\n    procedure SetCapacity(AValue: SizeInt); override;\r\n    procedure SetCount(AValue: SizeInt);\r\n    procedure InitializeList; virtual;\r\n    procedure InternalInsert(AIndex: SizeInt; const AValue: T);\r\n    function DoGetEnumerator: TEnumerator<T>; override;\r\n  private\r\n    function GetItem(AIndex: SizeInt): T;\r\n    procedure SetItem(AIndex: SizeInt; const AValue: T);\r\n  public\r\n    type\r\n      TEnumerator = class(TCustomListEnumerator<T>);\r\n      TMyType = TList<T>;\r\n    function GetEnumerator: TEnumerator; reintroduce;\r\n  public\r\n    constructor Create; overload;\r\n    constructor Create(const AComparer: IComparer<T>); overload;\r\n    constructor Create(ACollection: TEnumerable<T>); overload;\r\n\r\n    destructor Destroy; override;\r\n\r\n    function Add(const AValue: T): SizeInt; virtual;\r\n    procedure AddRange(const AValues: array of T); virtual; overload;\r\n    procedure AddRange(const AEnumerable: IEnumerable<T>); overload;\r\n    procedure AddRange(AEnumerable: TEnumerable<T>); overload;\r\n\r\n    procedure Insert(AIndex: SizeInt; const AValue: T); virtual;\r\n    procedure InsertRange(AIndex: SizeInt; const AValues: array of T); virtual; overload;\r\n    procedure InsertRange(AIndex: SizeInt; const AEnumerable: IEnumerable<T>); overload;\r\n    procedure InsertRange(AIndex: SizeInt; const AEnumerable: TEnumerable<T>); overload;\r\n\r\n    function Remove(const AValue: T): SizeInt;\r\n    function RemoveItem(const AValue: T; Direction : TDirection): SizeInt;\r\n    procedure Delete(AIndex: SizeInt); inline;\r\n    procedure DeleteRange(AIndex, ACount: SizeInt);\r\n    function ExtractIndex(const AIndex: SizeInt): T; overload;\r\n    function Extract(const AValue: T): T; overload;\r\n\r\n    procedure Exchange(AIndex1, AIndex2: SizeInt); virtual;\r\n    procedure Move(AIndex, ANewIndex: SizeInt); virtual;\r\n\r\n    function First: T; inline;\r\n    function Last: T; inline;\r\n\r\n    procedure Clear;\r\n\r\n    function Contains(const AValue: T): Boolean; inline;\r\n    function IndexOf(const AValue: T): SizeInt; virtual;\r\n    function LastIndexOf(const AValue: T): SizeInt; virtual;\r\n\r\n    procedure Reverse;\r\n\r\n    procedure TrimExcess; override;\r\n\r\n    procedure Sort; overload;\r\n    procedure Sort(const AComparer: IComparer<T>); overload;\r\n    function BinarySearch(const AItem: T; out AIndex: SizeInt): Boolean; overload;\r\n    function BinarySearch(const AItem: T; out AIndex: SizeInt; const AComparer: IComparer<T>): Boolean; overload;\r\n\r\n    property Count: SizeInt read FLength write SetCount;\r\n    property Items[Index: SizeInt]: T read GetItem write SetItem; default;\r\n  end;\r\n\r\n\r\n  TObjectList<T: class> = class(TList<T>)\r\n  private\r\n    FObjectsOwner: Boolean;\r\n  protected\r\n    procedure Notify(const aValue: T; Action: TCollectionNotification); override;\r\n  public\r\n    constructor Create(aOwnsObjects: Boolean = True); overload;\r\n    constructor Create(const AComparer: IComparer<T>; aOwnsObjects: Boolean = True); overload;\r\n    constructor Create(const aCollection: TEnumerable<T>; aOwnsObjects: Boolean = True); overload;\r\n    property OwnsObjects: Boolean read FObjectsOwner write FObjectsOwner;\r\n  end;\r\n\r\n  { TThreadList }\r\n  // This is provided for delphi/FPC compatibility\r\n  // No locking is done, since Javascript is single-threaded. We do keep a lock count for debugging purposes.\r\n\r\n  TThreadList<T> = class\r\n  private\r\n    FList: TList<T>;\r\n    FLock: Integer;\r\n    FDuplicates: TDuplicates;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n    procedure Add(const Item: T);\r\n    procedure Clear;\r\n    function LockList: TList<T>;\r\n    procedure Remove(const Item: T); inline;\r\n    procedure RemoveItem(const Item: T; Direction: TDirection);\r\n    procedure UnlockList; inline;\r\n    property Duplicates: TDuplicates read FDuplicates write FDuplicates;\r\n  end;\r\n\r\n  { TQueue }\r\n\r\n  TQueue<T> = class(TCustomList<T>)\r\n  private\r\n    FMaxGapLength: Integer;\r\n    FLow: SizeInt;\r\n  protected\r\n    function DoGetEnumerator: TEnumerator<T>; override;\r\n  public\r\n    type\r\n      TMyType = TQueue<T>;\r\n      { TEnumerator }\r\n      TEnumerator = class(TCustomListEnumerator<T>)\r\n      public\r\n        constructor Create(AQueue: TMyType);\r\n      end;\r\n    function GetEnumerator: TEnumerator; reintroduce;\r\n  protected\r\n    Procedure Rebase; virtual;\r\n    procedure SetCapacity(AValue: SizeInt); override;\r\n    function DoRemove(AIndex: SizeInt; ACollectionNotification: TCollectionNotification): T; override;\r\n    function GetCount: SizeInt; override;\r\n  public\r\n    Constructor Create; overload;\r\n    constructor Create(ACollection: TEnumerable<T>); overload;\r\n    destructor Destroy; override;\r\n    procedure Enqueue(const AValue: T);\r\n    function Dequeue: T;\r\n    function Extract: T;\r\n    function Peek: T;\r\n    procedure Clear;\r\n    procedure TrimExcess; override;\r\n    // Maximum gap (=amount of empty slots in array before first element)\r\n    // before doing a rebase of the list. Defaults to 10.\r\n    Property MaxGapLength : Integer Read FMaxGapLength Write FMaxGapLength;\r\n  end;\r\n\r\n  { TObjectQueue }\r\n\r\n  TObjectQueue<T: class> = class(TQueue<T>)\r\n  private\r\n    FOwnsObjects: Boolean;\r\n  protected\r\n    procedure Notify(const Value: T; Action: TCollectionNotification); override;\r\n  public\r\n    constructor Create(AOwnsObjects: Boolean = True); overload;\r\n    constructor Create(const Collection: TEnumerable<T>; AOwnsObjects: Boolean = True); overload;\r\n    procedure Dequeue; reintroduce; // Can't use the result, it might have been freed;\r\n    property OwnsObjects: Boolean read FOwnsObjects write FOwnsObjects;\r\n  end;\r\n\r\n  { TStack }\r\n\r\n  TStack<T> = class(TCustomList<T>)\r\n  private\r\n  protected\r\n    function DoRemove(AIndex: SizeInt; ACollectionNotification: TCollectionNotification): T; override;\r\n    procedure SetCapacity(AValue: SizeInt); override;\r\n    function DoGetEnumerator: TEnumerator<T>; override;\r\n  public\r\n    type\r\n      TMyType = TStack<T>;\r\n\r\n      { TEnumerator }\r\n\r\n      TEnumerator = class(TCustomListEnumerator<T>)\r\n      public\r\n        constructor Create(AStack: TMyType);\r\n      end;\r\n    function GetEnumerator: TEnumerator; reintroduce;\r\n  Public\r\n    destructor Destroy; override;\r\n    procedure Clear;\r\n    procedure Push(const aValue: T);\r\n    function Pop: T;\r\n    function Peek: T;\r\n    function Extract: T;\r\n    procedure TrimExcess; override;\r\n    property Count: SizeInt read GetCount;\r\n  end;\r\n\r\n  { TObjectStack }\r\n\r\n  TObjectStack<T: class> = class(TStack<T>)\r\n  private\r\n    FOwnsObjects: Boolean;\r\n  protected\r\n    procedure Notify(const aValue: T; Action: TCollectionNotification); override;\r\n  public\r\n    constructor Create(AOwnsObjects: Boolean = True); overload;\r\n    constructor Create(const Collection: TEnumerable<T>; AOwnsObjects: Boolean = True); overload;\r\n    procedure Pop; reintroduce; // Can't use the result, it might have been freed;\r\n    property OwnsObjects: Boolean read FOwnsObjects write FOwnsObjects;\r\n  end;\r\n\r\n\r\n  { TPair }\r\n\r\n  TPair<TKey,TValue> = record\r\n    Key: TKey;\r\n    Value: TValue;\r\n    constructor Create(const AKey: TKey; const AValue: TValue);\r\n  end;\r\n\r\n  // Hash table using linear probing\r\n\r\n  { TDictionary }\r\n  EDictionary = Class(Exception);\r\n\r\n  TDictionary<TKey,TValue> = class(TEnumerable<TPair<TKey,TValue>>)\r\n  private\r\n    FMap: TJSMap;\r\n    FComparer: IComparer<TKey>;\r\n    function GetEffectiveKey(Key : TKey) : TKey;\r\n    function GetItem(const Key: TKey): TValue;\r\n    procedure SetItem(const Key: TKey; const Value: TValue);\r\n    procedure DoAdd(const Key: TKey; const Value: TValue);\r\n    function DoRemove(const Key: TKey; Notification: TCollectionNotification): TValue;\r\n    Function GetCount : Integer;\r\n  protected\r\n    Function CanClearMap : Boolean; virtual;\r\n    function DoGetEnumerator: TEnumerator<TPair<TKey,TValue>>; override;\r\n    procedure PairNotify(const Key: TKey; Value : TValue; Action: TCollectionNotification); virtual;\r\n    procedure KeyNotify(const Key: TKey; Action: TCollectionNotification); virtual;\r\n    procedure ValueNotify(const Value: TValue; Action: TCollectionNotification); virtual;\r\n  public\r\n    Type\r\n      TMyType = TDictionary<TKey,TValue>;\r\n      TMyPair = TPair<TKey,TValue>;\r\n\r\n    constructor Create(ACapacity: Integer=0); overload;\r\n    constructor Create(const Collection: TEnumerable<TMyPair>); overload;\r\n    constructor Create(const AComparer: IComparer<TKey>); overload;\r\n    destructor Destroy; override;\r\n\r\n    procedure Add(const Key: TKey; const Value: TValue);\r\n    procedure Remove(const Key: TKey);\r\n    function ExtractPair(const Key: TKey): TMyPair;\r\n    procedure Clear;\r\n    function TryGetValue(const Key: TKey; out Value: TValue): Boolean;\r\n    procedure AddOrSetValue(const Key: TKey; const Value: TValue);\r\n    function ContainsKey(const Key: TKey): Boolean;\r\n    function ContainsValue(const Value: TValue): Boolean;\r\n    function ToArray: TArray<TMyPair>; override;\r\n\r\n    property Items[const Key: TKey]: TValue read GetItem write SetItem; default;\r\n    property Count: Integer read GetCount;\r\n\r\n    type\r\n      { TPairEnumerator }\r\n\r\n      TPairEnumerator = class(TEnumerator<TMyPair>)\r\n      private\r\n        FIter: TJSIterator;\r\n        FVal : TJSIteratorValue;\r\n        function GetCurrent: TMyPair;\r\n      protected\r\n        function DoGetCurrent: TMyPair; override;\r\n        function DoMoveNext: Boolean; override;\r\n      public\r\n        constructor Create(const ADictionary: TMyType);\r\n        function MoveNext: Boolean; reintroduce;\r\n        property Current: TMyPair read GetCurrent;\r\n      end;\r\n\r\n      { TKeyEnumerator }\r\n\r\n      TKeyEnumerator = class(TEnumerator<TKey>)\r\n      private\r\n        FIter: TJSIterator;\r\n        FVal : TJSIteratorValue;\r\n        function GetCurrent: TKey;\r\n      protected\r\n        function DoGetCurrent: TKey; override;\r\n        function DoMoveNext: Boolean; override;\r\n      public\r\n        constructor Create(const AIter: TJSIterator); overload;\r\n        constructor Create(const ADictionary: TMyType); overload;\r\n        function MoveNext: Boolean; reintroduce;\r\n        property Current: TKey read GetCurrent;\r\n      end;\r\n\r\n      { TValueEnumerator }\r\n\r\n      TValueEnumerator = class(TEnumerator<TValue>)\r\n      private\r\n        FIter: TJSIterator;\r\n        FVal : TJSIteratorValue;\r\n        function GetCurrent: TValue;\r\n      protected\r\n        function DoGetCurrent: TValue; override;\r\n        function DoMoveNext: Boolean; override;\r\n      public\r\n        constructor Create(const AIter: TJSIterator); overload;\r\n        constructor Create(const ADictionary: TMyType); overload;\r\n        function MoveNext: Boolean; reintroduce;\r\n        property Current: TValue read GetCurrent;\r\n      end;\r\n\r\n      { TValueCollection }\r\n\r\n      TValueCollection = class(TEnumerable<TValue>)\r\n      private\r\n        FMap: TJSMap;\r\n        function GetCount: Integer;\r\n      protected\r\n        function DoGetEnumerator: TEnumerator<TValue>; override;\r\n      public\r\n        constructor Create(const ADictionary: TMyType);\r\n        function GetEnumerator: TValueEnumerator; reintroduce;\r\n        function ToArray: TArray<TValue>; override;\r\n        property Count: Integer read GetCount;\r\n      end;\r\n\r\n      { TKeyCollection }\r\n\r\n      TKeyCollection = class(TEnumerable<TKey>)\r\n      private\r\n        FMap: TJSMap;\r\n        function GetCount: Integer;\r\n      protected\r\n        function DoGetEnumerator: TEnumerator<TKey>; override;\r\n      public\r\n        constructor Create(const ADictionary: TMyType);\r\n        function GetEnumerator: TKeyEnumerator; reintroduce;\r\n        function ToArray: TArray<TKey>; override;\r\n        property Count: Integer read GetCount;\r\n      end;\r\n\r\n  private\r\n    FOnKeyNotify: TCollectionNotifyEvent<TKey>;\r\n    FOnValueNotify: TCollectionNotifyEvent<TValue>;\r\n    FKeyCollection: TKeyCollection;\r\n    FValueCollection: TValueCollection;\r\n    function GetKeys: TKeyCollection;\r\n    function GetValues: TValueCollection;\r\n  public\r\n    function GetEnumerator: TPairEnumerator; reintroduce;\r\n    property Keys: TKeyCollection read GetKeys;\r\n    property Values: TValueCollection read GetValues;\r\n    property OnKeyNotify: TCollectionNotifyEvent<TKey> read FOnKeyNotify write FOnKeyNotify;\r\n    property OnValueNotify: TCollectionNotifyEvent<TValue> read FOnValueNotify write FOnValueNotify;\r\n  end;\r\n\r\n    TDictionaryOwnership = (doOwnsKeys, doOwnsValues);\r\n    TDictionaryOwnerships = set of TDictionaryOwnership;\r\n\r\n    { TObjectDictionary }\r\n\r\n    TObjectDictionary<TKey,TValue> = class(TDictionary<TKey,TValue>)\r\n    private\r\n      FOwnerships: TDictionaryOwnerships;\r\n    protected\r\n      Function CanClearMap : Boolean; override;\r\n      procedure KeyNotify(const Key: TKey; Action: TCollectionNotification); override;\r\n      procedure ValueNotify(const Value: TValue; Action: TCollectionNotification); override;\r\n    public\r\n      constructor Create(aOwnerships: TDictionaryOwnerships; ACapacity: Integer); overload;\r\n      constructor Create(aOwnerships: TDictionaryOwnerships); overload;\r\n      Property OwnerShips : TDictionaryOwnerships Read FOwnerships Write FOwnerShips;\r\n    end;\r\n\r\nimplementation\r\n\r\n{ TCustomArrayHelper }\r\n\r\nclass procedure TCustomArrayHelper<T>.Sort(var AValues: array of T;\r\n  const AComparer: IComparer<T>);\r\nbegin\r\n  Sort(AValues, AComparer, Low(AValues), Length(AValues));\r\nend;\r\n\r\nclass procedure TCustomArrayHelper<T>.Sort(var AValues: array of T;\r\n  const AComparer: IComparer<T>; AIndex, ACount: SizeInt);\r\nbegin\r\n  if ACount <= 1 then\r\n    Exit;\r\n  QuickSort(AValues, AIndex, Pred(AIndex + ACount), AComparer);\r\nend;\r\n\r\nclass function TCustomArrayHelper<T>.BinarySearch(const AValues: array of T;\r\n  const AItem: T; out AFoundIndex: SizeInt; const AComparer: IComparer<T>\r\n  ): Boolean;\r\nbegin\r\n  Result := BinarySearch(AValues, AItem, AFoundIndex, AComparer,\r\n                         0, Length(AValues));\r\nend;\r\n\r\nclass function TCustomArrayHelper<T>.BinarySearch(const AValues: array of T;\r\n  const AItem: T; out ASearchResult: TBinarySearchResult;\r\n  const AComparer: IComparer<T>): Boolean;\r\nbegin\r\n  Result := BinarySearch(AValues, AItem, ASearchResult, AComparer,\r\n                         0, Length(AValues));\r\nend;\r\n\r\n{ TArrayHelper }\r\n\r\nclass procedure TArrayHelper<T>.QuickSort(var AValues: array of T; ALeft,\r\n  ARight: SizeInt; const AComparer: IComparer<T>);\r\nvar\r\n  I, J: SizeInt;\r\n  P, Q: T;\r\nbegin\r\n  if ((ARight - ALeft) <= 0) or (Length(AValues) = 0) then\r\n    Exit;\r\n  repeat\r\n    I := ALeft;\r\n    J := ARight;\r\n    P := AValues[ALeft + (ARight - ALeft) shr 1];\r\n    repeat\r\n      while AComparer.Compare(AValues[I], P) < 0 do\r\n        Inc(I);\r\n      while AComparer.Compare(AValues[J], P) > 0 do\r\n        Dec(J);\r\n      if I <= J then\r\n      begin\r\n        if I <> J then\r\n        begin\r\n          Q := AValues[I];\r\n          AValues[I] := AValues[J];\r\n          AValues[J] := Q;\r\n        end;\r\n        Inc(I);\r\n        Dec(J);\r\n      end;\r\n    until I > J;\r\n    // sort the smaller range recursively\r\n    // sort the bigger range via the loop\r\n    // Reasons: memory usage is O(log(n)) instead of O(n) and loop is faster than recursion\r\n    if J - ALeft < ARight - I then\r\n    begin\r\n      if ALeft < J then\r\n        QuickSort(AValues, ALeft, J, AComparer);\r\n      ALeft := I;\r\n    end\r\n    else\r\n    begin\r\n      if I < ARight then\r\n        QuickSort(AValues, I, ARight, AComparer);\r\n      ARight := J;\r\n    end;\r\n  until ALeft >= ARight;\r\nend;\r\n\r\nclass function TArrayHelper<T>.BinarySearch(const AValues: array of T;\r\n  const AItem: T; out ASearchResult: TBinarySearchResult;\r\n  const AComparer: IComparer<T>; AIndex, ACount: SizeInt): Boolean;\r\nvar\r\n  imin, imax, imid, ilo: Int32;\r\n\r\nbegin\r\n  // Writeln('Enter ',Length(aValues),' Idx ',aIndex,' acount: ',aCount);\r\n  // continually narrow search until just one element remains\r\n  imin := AIndex;\r\n  imax := Pred(AIndex + ACount);\r\n  // Writeln('Start Imax, imin : ',Imax, ' - ', imin);\r\n  ilo:=imid * imid;\r\n  imid:=ilo*imid;\r\n  while (imin < imax) do\r\n  begin\r\n    imid := (imax+imin) div 2;\r\n    // writeln('imid',imid);\r\n\r\n    ASearchResult.CompareResult := AComparer.Compare(AValues[imid], AItem);\r\n    // reduce the search\r\n    if (ASearchResult.CompareResult < 0) then\r\n      imin := imid + 1\r\n    else\r\n    begin\r\n      if ASearchResult.CompareResult = 0 then\r\n      begin\r\n        ASearchResult.FoundIndex := imid;\r\n        ASearchResult.CandidateIndex := imid;\r\n        Exit(True);\r\n      end;\r\n      imax := imid;\r\n    end;\r\n  end;\r\n  // At exit of while:\r\n  //   if A[] is empty, then imax < imin\r\n  //   otherwise imax == imin\r\n\r\n  // deferred test for equality\r\n  // Writeln('End Imax, imin : ',Imax, ' - ', imin);\r\n  Result:=(imax = imin);\r\n  if Result then\r\n    begin\r\n    ASearchResult.CompareResult := AComparer.Compare(AValues[imin], AItem);\r\n    ASearchResult.CandidateIndex := imin;\r\n    Result:=(ASearchResult.CompareResult = 0);\r\n    if Result then\r\n      ASearchResult.FoundIndex := imin\r\n    else\r\n      ASearchResult.FoundIndex := -1;\r\n    end\r\n  else\r\n    begin\r\n    ASearchResult.CompareResult := 0;\r\n    ASearchResult.FoundIndex := -1;\r\n    ASearchResult.CandidateIndex := -1;\r\n    end;\r\nend;\r\n\r\nclass function TArrayHelper<T>.BinarySearch(const AValues: array of T;\r\n  const AItem: T; out AFoundIndex: SizeInt; const AComparer: IComparer<T>;\r\n  AIndex, ACount: SizeInt): Boolean;\r\nvar\r\n  imin, imax, imid: Int32;\r\n  LCompare: SizeInt;\r\nbegin\r\n  // continually narrow search until just one element remains\r\n  imin := AIndex;\r\n  imax := Pred(AIndex + ACount);\r\n\r\n  // http://en.wikipedia.org/wiki/Binary_search_algorithm\r\n  while (imin < imax) do\r\n  begin\r\n    imid := (imin + imax) div 2;\r\n\r\n    // code must guarantee the interval is reduced at each iteration\r\n    // assert(imid < imax);\r\n    // note: 0 <= imin < imax implies imid will always be less than imax\r\n\r\n    LCompare := AComparer.Compare(AValues[imid], AItem);\r\n    // reduce the search\r\n    if (LCompare < 0) then\r\n      imin := imid + 1\r\n    else\r\n    begin\r\n      if LCompare = 0 then\r\n      begin\r\n        AFoundIndex := imid;\r\n        Exit(True);\r\n      end;\r\n      imax := imid;\r\n    end;\r\n  end;\r\n  // At exit of while:\r\n  //   if A[] is empty, then imax < imin\r\n  //   otherwise imax == imin\r\n\r\n  // deferred test for equality\r\n  LCompare := AComparer.Compare(AValues[imin], AItem);\r\n  Result:=(imax = imin) and (LCompare = 0);\r\n  if Result then\r\n    AFoundIndex := imin\r\n  else\r\n    AFoundIndex := -1;\r\nend;\r\n\r\n{ TEnumerator }\r\n\r\nfunction TEnumerator<T>.MoveNext: boolean;\r\nbegin\r\n  Result:=DoMoveNext;\r\nend;\r\n\r\n{ TEnumerable }\r\n\r\nfunction TEnumerable<T>.GetEnumerator: TMyEnumerator;\r\nbegin\r\n  Result:=DoGetEnumerator;\r\nend;\r\n\r\nfunction TEnumerable<T>.ToArray: TMyArray;\r\nvar\r\n  LEnumerator: TMyEnumerator;\r\nbegin\r\n  Result:=[];\r\n  LEnumerator := GetEnumerator;\r\n  try\r\n    while LEnumerator.MoveNext do\r\n      TJSArray(Result).push(LEnumerator.Current);\r\n  finally\r\n    LEnumerator.Free;\r\n  end;\r\nend;\r\n\r\n{ TCustomList }\r\n\r\nfunction TCustomList<T>.GetCapacity: SizeInt;\r\nbegin\r\n  Result:=length(FItems);\r\nend;\r\n\r\nfunction TCustomList<T>.PrepareAddingItem: SizeInt;\r\nbegin\r\n  if FLength=length(FItems) then\r\n    TJSArray(FItems).push(Default(T));\r\n\r\n  Result := FLength;\r\n  Inc(FLength);\r\nend;\r\n\r\nfunction TCustomList<T>.PrepareAddingRange(ACount: SizeInt): SizeInt;\r\nvar\r\n  l: SizeInt;\r\nbegin\r\n  if ACount < 0 then\r\n    raise EArgumentOutOfRangeException.Create(SArgumentOutOfRange);\r\n  if ACount = 0 then\r\n    Exit(FLength - 1);\r\n\r\n  for l:=length(FItems)+1 to FLength+ACount do\r\n    TJSArray(FItems).push(Default(T));\r\n\r\n  Result := FLength;\r\n  Inc(FLength, ACount);\r\nend;\r\n\r\nprocedure TCustomList<T>.Notify(const AValue: T;\r\n  ACollectionNotification: TCollectionNotification);\r\nbegin\r\n  if Assigned(FOnNotify) then\r\n    FOnNotify(Self, AValue, ACollectionNotification);\r\nend;\r\n\r\nfunction TCustomList<T>.DoRemove(AIndex: SizeInt;\r\n  ACollectionNotification: TCollectionNotification): T;\r\nbegin\r\n  if (AIndex < 0) or (AIndex >= FLength) then\r\n    raise EArgumentOutOfRangeException.Create(SArgumentOutOfRange);\r\n\r\n  Result := FItems[AIndex];\r\n  Dec(FLength);\r\n\r\n  FItems[AIndex] := Default(T); // needed for refcounted types\r\n  TJSArray(FItems).splice(AIndex,1);\r\n\r\n  Notify(Result, ACollectionNotification);\r\nend;\r\n\r\nfunction TCustomList<T>.GetCount: SizeInt;\r\nbegin\r\n  Result := FLength;\r\nend;\r\n\r\n\r\n{ TCustomListEnumerator }\r\n\r\nfunction TCustomListEnumerator<T>.DoMoveNext: boolean;\r\nbegin\r\n  Inc(FIndex);\r\n  Result := (FList.FLength > 0) and (FIndex < FList.FLength)\r\nend;\r\n\r\nfunction TCustomListEnumerator<T>.DoGetCurrent: T;\r\nbegin\r\n  Result := GetCurrent;\r\nend;\r\n\r\nfunction TCustomListEnumerator<T>.GetCurrent: T;\r\nbegin\r\n  Result := FList.FItems[FIndex];\r\nend;\r\n\r\nconstructor TCustomListEnumerator<T>.Create(AList: TCustomList<T>);\r\nbegin\r\n  inherited Create;\r\n  FIndex := -1;\r\n  FList := AList;\r\nend;\r\n\r\n{ TList }\r\n\r\nfunction TList<T>.SameValue(const Left, Right: T): Boolean;\r\nbegin\r\n  if Assigned(FComparer) then\r\n    Result:=(FComparer.Compare(Left, Right) = 0)\r\n  else\r\n    Result:=(Left = Right);\r\nend;\r\n\r\nprocedure TList<T>.SetCapacity(AValue: SizeInt);\r\nbegin\r\n  if AValue < Count then\r\n    Count := AValue;\r\n  SetLength(FItems, AValue);\r\nend;\r\n\r\nprocedure TList<T>.SetCount(AValue: SizeInt);\r\nbegin\r\n  if AValue < 0 then\r\n    raise EArgumentOutOfRangeException.Create(SArgumentOutOfRange);\r\n\r\n  if AValue > Capacity then\r\n    Capacity := AValue\r\n  else if AValue < Count then\r\n    DeleteRange(AValue, Count - AValue);\r\n\r\n  FLength := AValue;\r\nend;\r\n\r\nprocedure TList<T>.InitializeList;\r\nbegin\r\nend;\r\n\r\nprocedure TList<T>.InternalInsert(AIndex: SizeInt; const AValue: T);\r\nbegin\r\n  if (AIndex < 0) or (AIndex > Count) then\r\n    raise EArgumentOutOfRangeException.Create(SArgumentOutOfRange);\r\n  TJSArray(FItems).splice(AIndex,0,AValue);\r\n  inc(FLength);\r\n\r\n  FItems[AIndex] := AValue;\r\n  Notify(AValue, cnAdded);\r\nend;\r\n\r\nfunction TList<T>.DoGetEnumerator: TEnumerator<T>;\r\nbegin\r\n  Result := GetEnumerator;\r\nend;\r\n\r\nfunction TList<T>.GetItem(AIndex: SizeInt): T;\r\nbegin\r\n  if (AIndex < 0) or (AIndex >= Count) then\r\n    raise EArgumentOutOfRangeException.Create(SArgumentOutOfRange);\r\n\r\n  Result := FItems[AIndex];\r\nend;\r\n\r\nprocedure TList<T>.SetItem(AIndex: SizeInt; const AValue: T);\r\nbegin\r\n  if (AIndex < 0) or (AIndex >= Count) then\r\n    raise EArgumentOutOfRangeException.Create(SArgumentOutOfRange);\r\n  Notify(FItems[AIndex], cnRemoved);\r\n  FItems[AIndex] := AValue;\r\n  Notify(AValue, cnAdded);\r\nend;\r\n\r\nfunction TList<T>.GetEnumerator: TEnumerator;\r\nbegin\r\n  Result := TEnumerator.Create(Self);\r\nend;\r\n\r\nconstructor TList<T>.Create;\r\nbegin\r\n  InitializeList;\r\nend;\r\n\r\nconstructor TList<T>.Create(const AComparer: IComparer<T>);\r\nbegin\r\n  InitializeList;\r\n  FComparer := AComparer;\r\nend;\r\n\r\nconstructor TList<T>.Create(ACollection: TEnumerable<T>);\r\nvar\r\n  LItem: T;\r\nbegin\r\n  Create;\r\n  for LItem in ACollection do\r\n    Add(LItem);\r\nend;\r\n\r\ndestructor TList<T>.Destroy;\r\nbegin\r\n  SetCapacity(0);\r\nend;\r\n\r\nfunction TList<T>.Add(const AValue: T): SizeInt;\r\nbegin\r\n  Result := PrepareAddingItem;\r\n  FItems[Result] := AValue;\r\n  Notify(AValue, cnAdded);\r\nend;\r\n\r\nprocedure TList<T>.AddRange(const AValues: array of T);\r\nbegin\r\n  InsertRange(Count, AValues);\r\nend;\r\n\r\nprocedure TList<T>.AddRange(const AEnumerable: IEnumerable<T>);\r\nvar\r\n  LValue: T;\r\nbegin\r\n  for LValue in AEnumerable do\r\n    Add(LValue);\r\nend;\r\n\r\nprocedure TList<T>.AddRange(AEnumerable: TEnumerable<T>);\r\nvar\r\n  LValue: T;\r\nbegin\r\n  for LValue in AEnumerable do\r\n    Add(LValue);\r\nend;\r\n\r\nprocedure TList<T>.Insert(AIndex: SizeInt; const AValue: T);\r\nbegin\r\n  if (AIndex < 0) or (AIndex > Count) then\r\n    raise EArgumentOutOfRangeException.Create(SArgumentOutOfRange);\r\n\r\n  InternalInsert(AIndex, AValue);\r\nend;\r\n\r\nprocedure TList<T>.InsertRange(AIndex: SizeInt; const AValues: array of T);\r\nvar\r\n  LLength, i: sizeint;\r\n  LValue: T;\r\nbegin\r\n  if (AIndex < 0) or (AIndex > Count) then\r\n    raise EArgumentOutOfRangeException.Create(SArgumentOutOfRange);\r\n\r\n  LLength := Length(AValues);\r\n  if LLength = 0 then\r\n    Exit;\r\n\r\n  if AIndex <> PrepareAddingRange(LLength) then\r\n  begin\r\n    for i := AIndex to Count - LLength -1 do\r\n      FItems[i+LLength] := FItems[i];\r\n    for i := 0 to LLength -1 do\r\n      FItems[AIndex+i] := Default(T);\r\n  end;\r\n\r\n  for i := 0 to Pred(LLength) do\r\n  begin\r\n    LValue:=AValues[i];\r\n    FItems[i+AIndex] := LValue;\r\n    Notify(LValue, cnAdded);\r\n  end;\r\nend;\r\n\r\nprocedure TList<T>.InsertRange(AIndex: SizeInt; const AEnumerable: IEnumerable<T>);\r\nvar\r\n  LValue: T;\r\n  i: SizeInt;\r\nbegin\r\n  if (AIndex < 0) or (AIndex > Count) then\r\n    raise EArgumentOutOfRangeException.Create(SArgumentOutOfRange);\r\n\r\n  i := 0;\r\n  for LValue in AEnumerable do\r\n  begin\r\n    InternalInsert(AIndex + i, LValue);\r\n    Inc(i);\r\n  end;\r\nend;\r\n\r\nprocedure TList<T>.InsertRange(AIndex: SizeInt; const AEnumerable: TEnumerable<T>);\r\nvar\r\n  LValue: T;\r\n  i:  SizeInt;\r\nbegin\r\n  if (AIndex < 0) or (AIndex > Count) then\r\n    raise EArgumentOutOfRangeException.Create(SArgumentOutOfRange);\r\n\r\n  i := 0;\r\n  for LValue in AEnumerable do\r\n  begin\r\n    InternalInsert(Aindex + i, LValue);\r\n    Inc(i);\r\n  end;\r\nend;\r\n\r\nfunction TList<T>.RemoveItem(const AValue: T; Direction : TDirection): SizeInt;\r\n\r\nbegin\r\n  if Direction=TDirection.FromEnd then\r\n    Result := LastIndexOf(AValue)\r\n  else\r\n    Result := IndexOf(AValue);\r\n  if Result >= 0 then\r\n    DoRemove(Result, cnRemoved);\r\nend;\r\n\r\nfunction TList<T>.Remove(const AValue: T): SizeInt;\r\nbegin\r\n  Result := IndexOf(AValue);\r\n  if Result >= 0 then\r\n    DoRemove(Result, cnRemoved);\r\nend;\r\n\r\nprocedure TList<T>.Delete(AIndex: SizeInt);\r\nbegin\r\n  DoRemove(AIndex, cnRemoved);\r\nend;\r\n\r\nprocedure TList<T>.DeleteRange(AIndex, ACount: SizeInt);\r\nvar\r\n  LDeleted: TMyArray;\r\n  i: SizeInt;\r\nbegin\r\n  if ACount = 0 then\r\n    Exit;\r\n\r\n  if (ACount < 0) or (AIndex < 0) or (AIndex + ACount > Count) then\r\n    raise EArgumentOutOfRangeException.Create(SArgumentOutOfRange);\r\n\r\n  LDeleted:=TMyArray(TJSArray(FItems).splice(AIndex,Count));\r\n  Dec(FLength, ACount);\r\n\r\n  for i := 0 to High(LDeleted) do\r\n    Notify(LDeleted[i], cnRemoved);\r\nend;\r\n\r\nfunction TList<T>.ExtractIndex(const AIndex: SizeInt): T;\r\nbegin\r\n  Result := DoRemove(AIndex, cnExtracted);\r\nend;\r\n\r\nfunction TList<T>.Extract(const AValue: T): T;\r\nvar\r\n  LIndex: SizeInt;\r\nbegin\r\n  LIndex := IndexOf(AValue);\r\n  if LIndex < 0 then\r\n    Result:=Default(T)\r\n  else\r\n    Result := DoRemove(LIndex, cnExtracted);\r\nend;\r\n\r\nprocedure TList<T>.Exchange(AIndex1, AIndex2: SizeInt);\r\nvar\r\n  LTemp: T;\r\nbegin\r\n  LTemp := FItems[AIndex1];\r\n  FItems[AIndex1] := FItems[AIndex2];\r\n  FItems[AIndex2] := LTemp;\r\nend;\r\n\r\nprocedure TList<T>.Move(AIndex, ANewIndex: SizeInt);\r\nvar\r\n  Arr: TJSArray;\r\n  LTemp: JSValue;\r\n  i: SizeInt;\r\nbegin\r\n  if ANewIndex = AIndex then\r\n    Exit;\r\n\r\n  if (ANewIndex < 0) or (ANewIndex >= Count) then\r\n    raise EArgumentOutOfRangeException.Create(SArgumentOutOfRange);\r\n\r\n  Arr := TJSArray(FItems);\r\n  LTemp := Arr[AIndex];\r\n  if AIndex < ANewIndex then\r\n    for i := AIndex to ANewIndex-1 do\r\n      Arr[i] := Arr[i+1]\r\n  else\r\n    for i := AIndex downto ANewIndex+1 do\r\n      Arr[i] := Arr[i-1];\r\n  Arr[ANewIndex] := LTemp;\r\nend;\r\n\r\nfunction TList<T>.First: T;\r\nbegin\r\n  Result := Items[0];\r\nend;\r\n\r\nfunction TList<T>.Last: T;\r\nbegin\r\n  Result := Items[Pred(Count)];\r\nend;\r\n\r\nprocedure TList<T>.Clear;\r\nbegin\r\n  SetCount(0);\r\n  SetCapacity(0);\r\nend;\r\n\r\nfunction TList<T>.Contains(const AValue: T): Boolean;\r\nbegin\r\n  Result := IndexOf(AValue) >= 0;\r\nend;\r\n\r\nfunction TList<T>.IndexOf(const AValue: T): SizeInt;\r\nvar\r\n  i: SizeInt;\r\nbegin\r\n  for i := 0 to Count - 1 do\r\n    if SameValue(AValue, FItems[i]) then\r\n      Exit(i);\r\n  Result:=-1;\r\nend;\r\n\r\nfunction TList<T>.LastIndexOf(const AValue: T): SizeInt;\r\nvar\r\n  i: SizeInt;\r\nbegin\r\n  for i := Count - 1 downto 0 do\r\n    if SameValue(AValue, FItems[i]) then\r\n      Exit(i);\r\n  Result:=-1;\r\nend;\r\n\r\nprocedure TList<T>.Reverse;\r\nvar\r\n  a, b: SizeInt;\r\n  LTemp: T;\r\nbegin\r\n  a := 0;\r\n  b := Count - 1;\r\n  while a < b do\r\n  begin\r\n    LTemp := FItems[a];\r\n    FItems[a] := FItems[b];\r\n    FItems[b] := LTemp;\r\n    Inc(a);\r\n    Dec(b);\r\n  end;\r\nend;\r\n\r\nprocedure TList<T>.TrimExcess;\r\nbegin\r\n  SetCapacity(Count);\r\nend;\r\n\r\nprocedure TList<T>.Sort;\r\nbegin\r\n  TMyArrayHelper.Sort(FItems, FComparer, 0, Count);\r\nend;\r\n\r\nprocedure TList<T>.Sort(const AComparer: IComparer<T>);\r\nbegin\r\n  TMyArrayHelper.Sort(FItems, AComparer, 0, Count);\r\nend;\r\n\r\nfunction TList<T>.BinarySearch(const AItem: T; out AIndex: SizeInt): Boolean;\r\nbegin\r\n  Result := TMyArrayHelper.BinarySearch(FItems, AItem, AIndex, FComparer, 0, Count);\r\nend;\r\n\r\nfunction TList<T>.BinarySearch(const AItem: T; out AIndex: SizeInt;\r\n  const AComparer: IComparer<T>): Boolean;\r\nbegin\r\n  Result := TMyArrayHelper.BinarySearch(FItems, AItem, AIndex, AComparer, 0, Count);\r\nend;\r\n\r\n{ TPair }\r\n\r\nconstructor TPair<TKey,TValue>.Create(const AKey: TKey; const AValue: TValue);\r\nbegin\r\n  Key:=aKey;\r\n  Value:=aValue;\r\nend;\r\n\r\n{ TDictionary }\r\n\r\nResourceString\r\n  SErrDictKeyNotFound = 'Key value not found';\r\n  SErrDictDuplicateKey = 'Duplicate key value';\r\n\r\nfunction TDictionary<TKey, TValue>.GetEffectiveKey(Key: TKey): TKey;\r\n\r\nVar\r\n  it : TJSIterator;\r\n  v : TJSIteratorValue;\r\n\r\nbegin\r\n  if Not assigned(FComparer) then\r\n    Exit(key);\r\n  it:=FMap.Keys;\r\n  v:=it.next;\r\n  While not v.Done do\r\n    begin\r\n    Result:=TKey(v.Value);\r\n    if FComparer.Compare(Result,Key)=0 then\r\n      exit;\r\n    v:=it.Next;\r\n    end;\r\n  Result:=Key;\r\nend;\r\n\r\nfunction TDictionary<TKey, TValue>.GetItem(const Key: TKey): TValue;\r\n\r\nVar\r\n  V : JSValue;\r\n\r\nbegin\r\n  v:=FMap.Get(GetEffectiveKey(Key));\r\n  if isUndefined(v) then\r\n    Raise EDictionary.Create(SErrDictKeyNotFound);\r\n  Result:=TValue(V);\r\nend;\r\n\r\nprocedure TDictionary<TKey, TValue>.SetItem(const Key: TKey; const Value: TValue);\r\n\r\nVar\r\n  V : JSValue;\r\n\r\nbegin\r\n  v:=FMap.Get(GetEffectiveKey(Key));\r\n  if Not isUndefined(v) then\r\n    ValueNotify(TValue(V),cnRemoved);\r\n  FMap.&Set(Key,Value);\r\n  ValueNotify(Value, cnAdded);\r\nend;\r\n\r\nprocedure TDictionary<TKey, TValue>.DoAdd(const Key: TKey; const Value: TValue);\r\nbegin\r\n  FMap.&Set(GetEffectiveKey(Key),Value);\r\n  KeyNotify(Key,cnAdded);\r\n  ValueNotify(Value,cnAdded);\r\nend;\r\n\r\n\r\nfunction TDictionary<TKey, TValue>.DoRemove(const Key: TKey; Notification: TCollectionNotification): TValue;\r\nVar\r\n  V : JSValue;\r\n  K : TKey;\r\n\r\nbegin\r\n  K:=GetEffectiveKey(Key);\r\n  V:=FMap.Get(k);\r\n  if Not isUndefined(v) then\r\n    begin\r\n    FMap.Delete(k);\r\n    Result:=TValue(v);\r\n    KeyNotify(Key,Notification);\r\n    ValueNotify(Result,Notification);\r\n    end;\r\nend;\r\n\r\nfunction TDictionary<TKey, TValue>.GetCount: Integer;\r\nbegin\r\n  Result:=FMap.Size;\r\nend;\r\n\r\nfunction TDictionary<TKey, TValue>.DoGetEnumerator: TEnumerator<TPair<TKey,\r\n  TValue>>;\r\nbegin\r\n  Result:=TPairEnumerator.Create(Self);\r\nend;\r\n\r\nprocedure TDictionary<TKey, TValue>.PairNotify(const Key: TKey; Value : TValue; Action: TCollectionNotification);\r\n\r\nbegin\r\n  KeyNotify(Key,action);\r\n  ValueNotify(Value,action);\r\nend;\r\n\r\nprocedure TDictionary<TKey, TValue>.KeyNotify(const Key: TKey; Action: TCollectionNotification);\r\nbegin\r\n  if Assigned(FOnKeyNotify) then\r\n    FOnKeyNotify(Self,Key,Action);\r\nend;\r\n\r\nprocedure TDictionary<TKey, TValue>.ValueNotify(const Value: TValue; Action: TCollectionNotification);\r\nbegin\r\n  if Assigned(FOnValueNotify) then\r\n    FOnValueNotify(Self,Value,Action);\r\nend;\r\n\r\nconstructor TDictionary<TKey, TValue>.Create(ACapacity: Integer = 0);\r\nbegin\r\n  FMap:=TJSMap.New;\r\n  if ACapacity>0 then ; // ToDo\r\nend;\r\n\r\nconstructor TDictionary<TKey, TValue>.Create(const Collection: TEnumerable<TMyPair>);\r\n\r\nVar\r\n  aPair : TMyPair;\r\n\r\nbegin\r\n  Create(0);\r\n  For aPair in Collection do\r\n    Add(aPair.Key,aPair.Value);\r\nend;\r\n\r\nconstructor TDictionary<TKey, TValue>.Create(const AComparer: IComparer<TKey>);\r\nbegin\r\n  Create(0);\r\n  FComparer:=aComparer;\r\nend;\r\n\r\ndestructor TDictionary<TKey, TValue>.Destroy;\r\nbegin\r\n  FreeAndNil(FKeyCollection);\r\n  FreeAndNil(FValueCollection);\r\n  Clear;\r\n  FMap:=Nil;\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TDictionary<TKey, TValue>.Add(const Key: TKey; const Value: TValue);\r\nbegin\r\n  if FMap.Has(GetEffectiveKey(Key)) then\r\n    Raise EDictionary.Create(SErrDictDuplicateKey);\r\n  DoAdd(Key,Value);\r\nend;\r\n\r\nprocedure TDictionary<TKey, TValue>.Remove(const Key: TKey);\r\nbegin\r\n  doRemove(Key,cnRemoved);\r\nend;\r\n\r\nfunction TDictionary<TKey, TValue>.ExtractPair(const Key: TKey): TMyPair;\r\n\r\nVar\r\n  K : TKey;\r\n\r\nbegin\r\n  Result:=Default(TMyPair);\r\n  K:=GetEffectiveKey(Key);\r\n  if FMap.Has(K) then\r\n    begin\r\n    Result.Create(Key,TValue(FMap.get(K)));\r\n    FMap.Delete(k);\r\n    end\r\n  else\r\n    Result.Create(Key,Default(TValue));\r\nend;\r\n\r\nfunction TDictionary<TKey, TValue>.CanClearMap: Boolean;\r\n\r\nbegin\r\n  Result:=(FOnKeyNotify=Nil) and (FOnValueNotify=Nil);\r\nend;\r\n\r\nprocedure TDictionary<TKey, TValue>.Clear;\r\n\r\nVar\r\n  Iter : TJSIterator;\r\n  IVal : TJSIteratorValue;\r\n  A : TJSValueDynArray;\r\n  K : TKey;\r\n  V : TValue;\r\n\r\nbegin\r\n  if CanClearMap then\r\n    Fmap.Clear\r\n  else\r\n    begin\r\n    Iter:=FMap.Entries;\r\n    Repeat\r\n      IVal:=Iter.next;\r\n      if not ival.Done then\r\n        begin\r\n        A:=TJSValueDynArray(IVal.Value);\r\n        K:=TKey(A[0]);\r\n        V:=TValue(A[1]);\r\n        FMap.delete(k);\r\n        PairNotify(K,V,cnRemoved);\r\n        end;\r\n    Until Ival.Done;\r\n    end;\r\nend;\r\n\r\n\r\nfunction TDictionary<TKey, TValue>.TryGetValue(const Key: TKey; out Value: TValue): Boolean;\r\n\r\nVar\r\n  K : TKey;\r\nbegin\r\n  K:=GetEffectiveKey(Key);\r\n  Result:=FMap.Has(K);\r\n  If Result then\r\n    Value:=TValue(FMap.get(K));\r\nend;\r\n\r\n\r\nprocedure TDictionary<TKey, TValue>.AddOrSetValue(const Key: TKey; const Value: TValue);\r\n\r\nVar\r\n  k : TKey;\r\n\r\nbegin\r\n  K:=GetEffectiveKey(Key);\r\n  if Not FMap.Has(k) then\r\n    DoAdd(Key,Value)\r\n  else\r\n    SetItem(K,Value);\r\nend;\r\n\r\nfunction TDictionary<TKey, TValue>.ContainsKey(const Key: TKey): Boolean;\r\nbegin\r\n  Result:=FMap.Has(GetEffectiveKey(Key));\r\nend;\r\n\r\nfunction TDictionary<TKey, TValue>.ContainsValue(const Value: TValue): Boolean;\r\n\r\nVar\r\n  It : TJSIterator;\r\n  Res : TJSIteratorValue;\r\n\r\nbegin\r\n  Result:=False;\r\n  It:=FMap.Values;\r\n  Repeat\r\n    Res:=It.next;\r\n    if not Res.done then\r\n      Result:=(Value=TValue(Res.value));\r\n  Until (Result or Res.done);\r\nend;\r\n\r\nfunction TDictionary<TKey, TValue>.ToArray: TArray<TMyPair>;\r\nbegin\r\n  Result:=inherited ToArray;\r\nend;\r\n\r\nfunction TDictionary<TKey, TValue>.GetKeys: TKeyCollection;\r\nbegin\r\n  if FKeyCollection=Nil then\r\n    FKeyCollection:=TKeyCollection.Create(Self);\r\n  Result:=FKeyCollection;\r\nend;\r\n\r\nfunction TDictionary<TKey, TValue>.GetValues: TValueCollection;\r\nbegin\r\n  if FValueCollection=Nil then\r\n    FValueCollection:=TValueCollection.Create(Self);\r\n  Result:=FValueCollection;\r\nend;\r\n\r\nfunction TDictionary<TKey, TValue>.GetEnumerator: TPairEnumerator;\r\nbegin\r\n  Result:=TPairEnumerator.Create(Self);\r\nend;\r\n\r\n{ TDictionary.TPairEnumerator }\r\n\r\nfunction TDictionary<TKey, TValue>.TPairEnumerator.GetCurrent: TMyPair;\r\nbegin\r\n  Result:=DoGetCurrent();\r\nend;\r\n\r\nfunction TDictionary<TKey, TValue>.TPairEnumerator.DoGetCurrent: TMyPair;\r\n\r\nVar\r\n  A : TJSValueDynArray;\r\n\r\nbegin\r\n  A:=TJSValueDynArray(FVal.Value);\r\n  Result:=Default(TMyPair);\r\n  Result.Create(TKey(A[0]),TValue(A[1]));\r\nend;\r\n\r\nfunction TDictionary<TKey, TValue>.TPairEnumerator.DoMoveNext: Boolean;\r\nbegin\r\n  FVal:=FIter.Next;\r\n  Result:=Not FVal.Done;\r\nend;\r\n\r\nconstructor TDictionary<TKey, TValue>.TPairEnumerator.Create(const ADictionary: TMyType);\r\nbegin\r\n  FIter:=ADictionary.FMap.Entries;\r\nend;\r\n\r\nfunction TDictionary<TKey, TValue>.TPairEnumerator.MoveNext: Boolean;\r\nbegin\r\n  Result:=DoMoveNext;\r\nend;\r\n\r\n{ TDictionary.TKeyEnumerator }\r\n\r\nfunction TDictionary<TKey, TValue>.TKeyEnumerator.GetCurrent: TKey;\r\nbegin\r\n  Result:=DoGetCurrent();\r\nend;\r\n\r\nfunction TDictionary<TKey, TValue>.TKeyEnumerator.DoGetCurrent: TKey;\r\nbegin\r\n  Result:=TKey(FVal.Value);\r\nend;\r\n\r\nfunction TDictionary<TKey, TValue>.TKeyEnumerator.DoMoveNext: Boolean;\r\nbegin\r\n  FVal:=FIter.Next;\r\n  Result:=Not FVal.Done;\r\nend;\r\n\r\nconstructor TDictionary<TKey, TValue>.TKeyEnumerator.Create(const ADictionary: TMyType);\r\nbegin\r\n  Create(ADictionary.FMap.Keys);\r\nend;\r\n\r\nconstructor TDictionary<TKey, TValue>.TKeyEnumerator.Create(const AIter : TJSIterator);\r\nbegin\r\n  FIter:=aIter;\r\nend;\r\n\r\nfunction TDictionary<TKey, TValue>.TKeyEnumerator.MoveNext: Boolean;\r\nbegin\r\n  Result:=DoMoveNext;\r\nend;\r\n\r\n{ TDictionary.TValueEnumerator }\r\n\r\nfunction TDictionary<TKey, TValue>.TValueEnumerator.GetCurrent: TValue;\r\nbegin\r\n  Result:=DoGetCurrent();\r\nend;\r\n\r\nfunction TDictionary<TKey, TValue>.TValueEnumerator.DoGetCurrent: TValue;\r\nbegin\r\n  Result:=TValue(FVal.Value);\r\nend;\r\n\r\nfunction TDictionary<TKey, TValue>.TValueEnumerator.DoMoveNext: Boolean;\r\nbegin\r\n  FVal:=FIter.Next;\r\n  Result:=Not FVal.Done;\r\nend;\r\n\r\nconstructor TDictionary<TKey, TValue>.TValueEnumerator.Create(const ADictionary: TMyType);\r\nbegin\r\n  Create(aDictionary.FMap.Values);\r\nend;\r\n\r\nconstructor TDictionary<TKey, TValue>.TValueEnumerator.Create(const AIter: TJSIterator);\r\nbegin\r\n  FIter:=AIter;\r\nend;\r\n\r\nfunction TDictionary<TKey, TValue>.TValueEnumerator.MoveNext: Boolean;\r\nbegin\r\n  Result:=DoMoveNext;\r\nend;\r\n\r\n{ TDictionary.TValueCollection }\r\n\r\nfunction TDictionary<TKey, TValue>.TValueCollection.GetCount: Integer;\r\nbegin\r\n  Result:=FMap.Size;\r\nend;\r\n\r\nfunction TDictionary<TKey, TValue>.TValueCollection.DoGetEnumerator: TEnumerator<TValue>;\r\nbegin\r\n  Result:=TValueEnumerator.Create(FMap.Values);\r\nend;\r\n\r\nconstructor TDictionary<TKey, TValue>.TValueCollection.Create(const ADictionary: TMyType);\r\nbegin\r\n  FMap:=ADictionary.FMap;\r\nend;\r\n\r\nfunction TDictionary<TKey, TValue>.TValueCollection.GetEnumerator: TValueEnumerator;\r\nbegin\r\n  Result:=TValueEnumerator(DoGetEnumerator);\r\nend;\r\n\r\nfunction TDictionary<TKey, TValue>.TValueCollection.ToArray: TArray<TValue>;\r\n\r\nVar\r\n  I : Integer;\r\n  P : TValue;\r\n\r\nbegin\r\n  SetLength(Result,FMap.Size);\r\n  For P in Self do\r\n    begin\r\n    Result[i]:=P;\r\n    Inc(I);\r\n    End;\r\nend;\r\n\r\n{ TDictionary.TKeyCollection }\r\n\r\nfunction TDictionary<TKey, TValue>.TKeyCollection.GetCount: Integer;\r\nbegin\r\n  Result:=FMap.Size;\r\nend;\r\n\r\nfunction TDictionary<TKey, TValue>.TKeyCollection.DoGetEnumerator: TEnumerator<TKey>;\r\nbegin\r\n  Result:=GetEnumerator;\r\nend;\r\n\r\nconstructor TDictionary<TKey, TValue>.TKeyCollection.Create(const ADictionary: TMyType);\r\nbegin\r\n  FMap:=aDictionary.FMap;\r\nend;\r\n\r\nfunction TDictionary<TKey, TValue>.TKeyCollection.GetEnumerator: TKeyEnumerator;\r\nbegin\r\n  Result:=TKeyEnumerator.Create(FMap.Keys);\r\nend;\r\n\r\nfunction TDictionary<TKey, TValue>.TKeyCollection.ToArray: TArray<TKey>;\r\nbegin\r\n  Result:=inherited ToArray;\r\nend;\r\n\r\n\r\n{ TObjectList<T> }\r\n\r\nprocedure TObjectList<T>.Notify(const aValue: T; Action: TCollectionNotification);\r\n\r\nVar\r\n  A : TObject absolute aValue; // needed to fool compiler\r\n\r\nbegin\r\n  inherited Notify(aValue, Action);\r\n  if FObjectsOwner and (action = cnRemoved) then\r\n    a.Free;\r\nend;\r\n\r\nconstructor TObjectList<T>.Create(AOwnsObjects: Boolean);\r\nbegin\r\n  inherited Create;\r\n  FObjectsOwner := AOwnsObjects;\r\nend;\r\n\r\nconstructor TObjectList<T>.Create(const AComparer: IComparer<T>; AOwnsObjects: Boolean);\r\nbegin\r\n  inherited Create(AComparer);\r\n  FObjectsOwner := AOwnsObjects;\r\nend;\r\n\r\nconstructor TObjectList<T>.Create(const ACollection: TEnumerable<T>; aOwnsObjects: Boolean);\r\nbegin\r\n  inherited Create(ACollection);\r\n  FObjectsOwner := AOwnsObjects;\r\nend;\r\n\r\n{ TThreadList }\r\n\r\nconstructor TThreadList<T>.Create;\r\nbegin\r\n  inherited Create;\r\n  FLock:=0;\r\n  FList := TList<T>.Create;\r\n  FDuplicates := dupIgnore;\r\nend;\r\n\r\ndestructor TThreadList<T>.Destroy;\r\nbegin\r\n  // No need to unlock.\r\n  FList.Free;\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TThreadList<T>.Add(const Item: T);\r\nbegin\r\n  LockList;\r\n  try\r\n    if (Duplicates = dupAccept) or (FList.IndexOf(Item) = -1) then\r\n      FList.Add(Item)\r\n    else if Duplicates = dupError then\r\n      raise EListError.Create(SDuplicateItem);\r\n  finally\r\n    UnlockList;\r\n  end;\r\nend;\r\n\r\nprocedure TThreadList<T>.Clear;\r\nbegin\r\n  LockList;\r\n  try\r\n    FList.Clear;\r\n  finally\r\n    UnlockList;\r\n  end;\r\nend;\r\n\r\nfunction TThreadList<T>.LockList: TList<T>;\r\nbegin\r\n  Inc(FLock);\r\n  if (FLock>1) then\r\n    Writeln('Locking already locked list, lockcount : ',FLock);\r\n  Result:=FList;\r\nend;\r\n\r\nprocedure TThreadList<T>.Remove(const Item: T);\r\n\r\nbegin\r\n  RemoveItem(Item,TDirection.FromBeginning);\r\nend;\r\n\r\nprocedure TThreadList<T>.RemoveItem(const Item: T; Direction: TDirection);\r\nbegin\r\n  LockList;\r\n  try\r\n    FList.RemoveItem(Item,Direction);\r\n  finally\r\n    UnlockList;\r\n  end;\r\nend;\r\n\r\nprocedure TThreadList<T>.UnlockList;\r\nbegin\r\n  Dec(FLock);\r\n  if (FLock<0) then\r\n    Writeln('Unlocking already unlocked list, lockcount : ',FLock);\r\nend;\r\n\r\n{ TObjectDictionary }\r\n\r\nfunction TObjectDictionary<TKey, TValue>.CanClearMap: Boolean;\r\nbegin\r\n  Result:=(Inherited CanClearMap) and (FOwnerships=[]);\r\nend;\r\n\r\nprocedure TObjectDictionary<TKey, TValue>.KeyNotify(const Key: TKey; Action: TCollectionNotification);\r\n\r\nVar\r\n  A : TObject absolute key; // Avoid typecast, refused by compiler\r\n\r\nbegin\r\n  inherited KeyNotify(Key, Action);\r\n  if (doOwnsKeys in FOwnerships) and (Action = cnRemoved) then\r\n    A.Free;\r\nend;\r\n\r\nprocedure TObjectDictionary<TKey, TValue>.ValueNotify(const Value: TValue; Action: TCollectionNotification);\r\n\r\nVar\r\n  A : TObject absolute Value; // Avoid typecast, refused by compiler\r\n\r\nbegin\r\n  inherited ValueNotify(Value, Action);\r\n  if (doOwnsValues in FOwnerships) and (Action = cnRemoved) then\r\n    A.Free;\r\nend;\r\n\r\nconstructor TObjectDictionary<TKey, TValue>.Create(aOwnerships: TDictionaryOwnerships; ACapacity: Integer);\r\nbegin\r\n  FOwnerShips:=aOwnerships;\r\n  inherited Create(ACapacity);\r\nend;\r\n\r\nconstructor TObjectDictionary<TKey, TValue>.Create(aOwnerships: TDictionaryOwnerships);\r\nbegin\r\n  Inherited Create;\r\n  FOwnerShips:=aOwnerships;\r\nend;\r\n\r\n{ TQueue }\r\n\r\nfunction TQueue<T>.DoGetEnumerator: TEnumerator<T>;\r\nbegin\r\n  Result:=GetEnumerator;\r\nend;\r\n\r\nfunction TQueue<T>.GetEnumerator: TEnumerator;\r\nbegin\r\n  Result := TEnumerator.Create(Self);\r\nend;\r\n\r\nprocedure TQueue<T>.SetCapacity(AValue: SizeInt);\r\nbegin\r\n  if AValue < Count then\r\n    raise EArgumentOutOfRangeException.Create(SArgumentOutOfRange);\r\n  if FLow>0 then\r\n    Rebase;\r\n  SetLength(FItems,aValue);\r\nend;\r\n\r\nfunction TQueue<T>.DoRemove(AIndex: SizeInt; ACollectionNotification: TCollectionNotification): T;\r\n\r\nbegin\r\n  if (FLow>=FLength) then\r\n    raise EArgumentOutOfRangeException.Create(SArgumentOutOfRange);\r\n  Result := FItems[AIndex];\r\n  FItems[AIndex] := Default(T);\r\n  Inc(FLow);\r\n  if FLow >= FLength then\r\n    begin\r\n    FLow:=0;\r\n    FLength:=0;\r\n    end;\r\n  Notify(Result, ACollectionNotification);\r\nend;\r\n\r\nfunction TQueue<T>.GetCount: SizeInt;\r\nbegin\r\n  Result:=FLength-FLow;\r\nend;\r\n\r\nconstructor TQueue<T>.Create;\r\nbegin\r\n  FMaxGapLength:=10;\r\nend;\r\n\r\nconstructor TQueue<T>.Create(ACollection: TEnumerable<T>);\r\n\r\nvar\r\n  Itm: T;\r\n\r\nbegin\r\n  Create;\r\n  for Itm in ACollection do\r\n    Enqueue(Itm);\r\nend;\r\n\r\ndestructor TQueue<T>.Destroy;\r\nbegin\r\n  Clear;\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TQueue<T>.Enqueue(const AValue: T);\r\nbegin\r\n  if Capacity<=FLength then\r\n    SetCapacity(FLength+10);\r\n  FItems[FLength]:=aValue;\r\n  Inc(FLength);\r\n  Notify(aValue,cnAdded);\r\nend;\r\n\r\nfunction TQueue<T>.Dequeue: T;\r\nbegin\r\n  Result := DoRemove(FLow, cnRemoved);\r\n  if FLow>FMaxGapLength then\r\n    Rebase;\r\nend;\r\n\r\nfunction TQueue<T>.Extract: T;\r\nbegin\r\n  Result := DoRemove(FLow, cnExtracted);\r\n  if FLow>FMaxGapLength then\r\n    Rebase;\r\nend;\r\n\r\nfunction TQueue<T>.Peek: T;\r\nbegin\r\n  if (Count=0) then\r\n      raise EArgumentOutOfRangeException.Create(SArgumentOutOfRange);\r\n  Result:=FItems[FLow];\r\nend;\r\n\r\nprocedure TQueue<T>.Clear;\r\nbegin\r\n  while Count <> 0 do\r\n    Dequeue;\r\nend;\r\n\r\nprocedure TQueue<T>.Rebase;\r\n\r\nVar\r\n  I,Spare : integer;\r\n\r\nbegin\r\n  Spare:=Capacity-Count;\r\n  if FLow>0 then\r\n    begin\r\n    For I:=Flow to FLength do\r\n      FItems[I-FLow]:=FItems[I];\r\n    SetLength(FItems,FLength+Spare);\r\n    FLength:=FLength-Flow+1;\r\n    Flow:=0;\r\n    end;\r\nend;\r\n\r\nprocedure TQueue<T>.TrimExcess;\r\nbegin\r\n  Rebase;\r\n  SetCapacity(Count);\r\nend;\r\n\r\n{ TQueue.TEnumerator }\r\n\r\nconstructor TQueue<T>.TEnumerator.Create(AQueue: TMyType);\r\nbegin\r\n  aQueue.Rebase;\r\n  Inherited Create(aQueue);\r\nend;\r\n\r\n{ TObjectQueue }\r\n\r\nprocedure TObjectQueue<T>.Notify(const Value: T; Action: TCollectionNotification);\r\n\r\nVar\r\n  A : TObject absolute Value;\r\n\r\nbegin\r\n  inherited Notify(Value, Action);\r\n  if OwnsObjects and (Action = cnRemoved) then\r\n    A.Free;\r\nend;\r\n\r\nconstructor TObjectQueue<T>.Create(AOwnsObjects: Boolean);\r\nbegin\r\n  Inherited create;\r\n  FOwnsObjects:=aOwnsObjects;\r\nend;\r\n\r\nconstructor TObjectQueue<T>.Create(const Collection: TEnumerable<T>; AOwnsObjects: Boolean);\r\nVar\r\n  A : T;\r\n\r\nbegin\r\n  Create(aOwnsObjects);\r\n  For A in Collection do\r\n    EnQueue(A);\r\nend;\r\n\r\nprocedure TObjectQueue<T>.Dequeue;\r\nbegin\r\n  Inherited DeQueue;\r\nend;\r\n\r\n{ TStack }\r\n\r\nfunction TStack<T>.DoRemove(aIndex : SizeInt; ACollectionNotification: TCollectionNotification): T;\r\n\r\nbegin\r\n  if (FLength=0) or (aIndex<>FLength-1) then\r\n    raise EArgumentOutOfRangeException.Create(SArgumentOutOfRange);\r\n  Result:=FItems[AIndex];\r\n  FItems[AIndex] := Default(T);\r\n  Dec(FLength);\r\n  Notify(Result, ACollectionNotification);\r\nend;\r\n\r\nprocedure TStack<T>.SetCapacity(aValue: SizeInt);\r\n\r\nbegin\r\n  if AValue < Count then\r\n    raise EArgumentOutOfRangeException.Create(SArgumentOutOfRange);\r\n  SetLength(FItems,aValue);\r\nend;\r\n\r\nfunction TStack<T>.DoGetEnumerator: TEnumerator<T>;\r\nbegin\r\n  Result:=GetEnumerator;\r\nend;\r\n\r\nfunction TStack<T>.GetEnumerator: TEnumerator;\r\nbegin\r\n  Result:=TEnumerator.Create(Self);\r\nend;\r\n\r\n\r\ndestructor TStack<T>.Destroy;\r\nbegin\r\n  Clear;\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TStack<T>.Clear;\r\nbegin\r\n  While Count>0 do Pop;\r\nend;\r\n\r\nprocedure TStack<T>.Push(const aValue: T);\r\nbegin\r\n  if Capacity<=FLength then\r\n    SetCapacity(FLength+10);\r\n  FItems[FLength]:=aValue;\r\n  Inc(FLength);\r\n  Notify(aValue,cnAdded);\r\nend;\r\n\r\nfunction TStack<T>.Pop: T;\r\nbegin\r\n  Result:=DoRemove(FLength-1,cnRemoved);\r\nend;\r\n\r\nfunction TStack<T>.Peek: T;\r\nbegin\r\n  if Count<1 then\r\n    raise EArgumentOutOfRangeException.Create(SArgumentOutOfRange);\r\n  Result:=FItems[FLength-1];\r\nend;\r\n\r\nfunction TStack<T>.Extract: T;\r\nbegin\r\n  Result:=DoRemove(FLength-1,cnExtracted);\r\nend;\r\n\r\nprocedure TStack<T>.TrimExcess;\r\nbegin\r\n  SetCapacity(FLength);\r\nend;\r\n\r\n{ TCustomInvertedListEnumerator }\r\n\r\nfunction TCustomInvertedListEnumerator<T>.DoMoveNext: boolean;\r\nbegin\r\n  Result:=FIndex>0;\r\n  If Result then\r\n    Dec(FIndex);\r\nend;\r\n\r\nfunction TCustomInvertedListEnumerator<T>.DoGetCurrent: T;\r\nbegin\r\n  Result:=FList.FItems[FIndex];\r\nend;\r\n\r\nfunction TCustomInvertedListEnumerator<T>.GetCurrent: T;\r\nbegin\r\n  Result:=DoGetCurrent();\r\nend;\r\n\r\nconstructor TCustomInvertedListEnumerator<T>.Create(AList: TCustomList<T>);\r\nbegin\r\n  inherited Create;\r\n  FList:=AList;\r\n  FIndex:=AList.FLength;\r\nend;\r\n\r\n{ TStack.TEnumerator }\r\n\r\nconstructor TStack<T>.TEnumerator.Create(AStack: TMyType);\r\nbegin\r\n  Inherited Create(aStack);\r\nend;\r\n\r\n{ TObjectStack }\r\n\r\nprocedure TObjectStack<T>.Notify(const aValue: T; Action: TCollectionNotification);\r\n\r\nVar\r\n  A : T absolute aValue;\r\n\r\nbegin\r\n  inherited Notify(aValue, Action);\r\n  if (Action=cnRemoved) and FOwnsObjects then\r\n    a.Free;\r\nend;\r\n\r\nconstructor TObjectStack<T>.Create(AOwnsObjects: Boolean);\r\nbegin\r\n  Inherited Create;\r\n  FOwnsObjects:=aOwnsObjects;\r\nend;\r\n\r\nconstructor TObjectStack<T>.Create(const Collection: TEnumerable<T>; AOwnsObjects: Boolean);\r\n\r\nVar\r\n  A : T;\r\n\r\nbegin\r\n  Create(aOwnsObjects);\r\n  For A in Collection do\r\n    Push(A);\r\nend;\r\n\r\nprocedure TObjectStack<T>.Pop;\r\nbegin\r\n  Inherited Pop;\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.DesignIntf;\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, Web, JS, TypInfo, WEBLib.Forms, WEBLib.Menus;\r\n\r\ntype\r\n  IMenuItem = interface;\r\n\r\n  IMenuItems = interface\r\n    ['{1F683FB4-D9CF-4CC7-934D-99A300314500}']\r\n\r\n    // protected\r\n    function GetItem(Index: Integer): IMenuItem;\r\n\r\n    // public\r\n    function SameAs(const AItem: IUnknown): Boolean;\r\n    function Find(const ACaption: WideString): IMenuItem;\r\n    function FindByName(const AName: string): IMenuItem;\r\n    function Count: Integer;\r\n    property Items[Index: Integer]: IMenuItem read GetItem;\r\n    procedure Clear;\r\n\r\n    function AddItem(const ACaption: WideString; AShortCut: TShortCut;\r\n      AChecked, AEnabled: Boolean; AOnClick: TNotifyEvent = nil;\r\n      hCtx: THelpContext = 0; const AName: string = ''): IMenuItem; overload;\r\n\r\n    function InsertItem(const ACaption: WideString;\r\n      AShortCut: TShortCut; AChecked, AEnabled: Boolean; AOnClick: TNotifyEvent = nil;\r\n      hCtx: THelpContext = 0; const AName: string = ''): IMenuItem; overload;\r\n    function InsertItem(Index: Integer; const ACaption: WideString;\r\n      AShortCut: TShortCut; AChecked, AEnabled: Boolean; AOnClick: TNotifyEvent = nil;\r\n      hCtx: THelpContext = 0; const AName: string = ''): IMenuItem; overload;\r\n\r\n    function AddLine(const AName: string = ''): IMenuItem;\r\n\r\n    function InsertLine(const AName: string = ''): IMenuItem; overload;\r\n    function InsertLine(Index: Integer; const AName: string = ''): IMenuItem; overload;\r\n  end;\r\n\r\n  IMenu = interface\r\n    ['{C24B5609-AD3A-4246-8FDC-65B57EFA75AA}']\r\n    function Items: IMenuItems;\r\n  end;\r\n\r\n  IMainMenu = interface(IMenu)\r\n    ['{4605DA9D-79C3-4969-8DC4-FAD9B96D287B}']\r\n  end;\r\n\r\n  IPopupMenu = interface(IMenu)\r\n    ['{16ABD57D-6CC6-4004-B4FD-53C46429894F}']\r\n\r\n    procedure Popup(X, Y: Integer);\r\n    function PopupComponent: TComponent;\r\n  end;\r\n\r\n  IMenuItem = interface(IMenuItems)\r\n    ['{FEA8F8DA-E0D9-4DB3-B7B7-C1C38394BA17}']\r\n\r\n    // protected\r\n    function GetCaption: WideString;\r\n    procedure SetCaption(const ACaption: WideString);\r\n    function GetChecked: Boolean;\r\n    procedure SetChecked(AChecked: Boolean);\r\n    function GetEnabled: Boolean;\r\n    procedure SetEnabled(AEnabled: Boolean);\r\n    function GetGroupIndex: Byte;\r\n    procedure SetGroupIndex(AGroupIndex: Byte);\r\n    function GetHelpContext: THelpContext;\r\n    procedure SetHelpContext(AHelpContext: THelpContext);\r\n    function GetHint: string;\r\n    procedure SetHint(const AHint: string);\r\n    function GetRadioItem: Boolean;\r\n    procedure SetRadioItem(ARadioItem: Boolean);\r\n    function GetShortCut: TShortCut;\r\n    procedure SetShortCut(AShortCut: TShortCut);\r\n\r\n    function GetTag: LongInt;\r\n    procedure SetTag(AValue: LongInt);\r\n    function GetVisible: Boolean;\r\n    procedure SetVisible(AVisible: Boolean);\r\n\r\n    // public\r\n    function Name: TComponentName;\r\n    function MenuIndex: Integer;\r\n    function Parent: IMenuItem;\r\n    function HasParent: Boolean;\r\n    function IsLine: Boolean;\r\n\r\n    property Caption: WideString read GetCaption write SetCaption;\r\n    property Checked: Boolean read GetChecked write SetChecked;\r\n    property Enabled: Boolean read GetEnabled write SetEnabled;\r\n    property GroupIndex: Byte read GetGroupIndex write SetGroupIndex;\r\n    property HelpContext: THelpContext read GetHelpContext write SetHelpContext;\r\n    property Hint: string read GetHint write SetHint;\r\n    property RadioItem: Boolean read GetRadioItem write SetRadioItem;\r\n    property ShortCut: TShortCut read GetShortCut write SetShortCut;\r\n\r\n    property Tag: LongInt read GetTag write SetTag;\r\n    property Visible: Boolean read GetVisible write SetVisible;\r\n  end;\r\n\r\n  IMenuItem2 = interface(IMenuItem)\r\n    ['{7BB2E6D5-A47D-4ECD-B891-29ECB256199F}']\r\n    procedure Click;\r\n  end;\r\n\r\n  TLoadJavaScriptCallBack = procedure(AJavaScriptFile: String) of object;\r\n  TErrorJavaScriptCallBack = procedure(AError: TJSErrorEvent) of object;\r\n\r\n  TComponentClass = class of TComponent;\r\n\r\n  TIconArray = array of string;\r\n\r\n  TComponentClassArray = array of TComponentClass;\r\n\r\n  TRegisteredComponent = class\r\n  private\r\n    FClass: TComponentClass;\r\n    FIcon: string;\r\n    FPage: string;\r\n  public\r\n    constructor Create(APage: string; AClass: TComponentClass; AIcon: string = '');\r\n    property &Class: TComponentClass read FClass write FClass;\r\n    property Page: string read FPage write FPage;\r\n    property Icon: string read FIcon write FIcon;\r\n  end;\r\n\r\n  IDesignerSelections = interface\r\n    function Add(const Item: TPersistent): Integer;\r\n    function Get(Index: Integer): TPersistent;\r\n    function GetCount: Integer;\r\n    property Count: Integer read GetCount;\r\n    property Items[Index: Integer]: TPersistent read Get; default;\r\n  end;\r\n\r\n  TGetStrProc = procedure(AUnitName: string);\r\n\r\n  TSelectionEditor = class(TObject)\r\n  public\r\n    procedure RequiresUnits(Proc: TGetStrProc); virtual;\r\n  end;\r\n\r\n  TSelectionEditorClass = class of TSelectionEditor;\r\n\r\n  TRegisteredSelectionEditor = class\r\n  private\r\n    FClass: TComponentClass;\r\n    FEditor: TSelectionEditorClass;\r\n  public\r\n    constructor Create(AClass: TComponentClass; AEditorClass: TSelectionEditorClass);\r\n    property &Class: TComponentClass read FClass write FClass;\r\n    property Editor: TSelectionEditorClass read FEditor write FEditor;\r\n  end;\r\n\r\n  TLibraryRequirementsEditor = class\r\n  public\r\n    procedure RequiresLibraries(Proc: TGetStrProc); virtual;\r\n  end;\r\n\r\n  TLibraryRequirementsEditorClass = class of TLibraryRequirementsEditor;\r\n\r\n  TRegisteredLibraryRequirementsEditor = class\r\n  private\r\n    FClass: TComponentClass;\r\n    FEditor: TLibraryRequirementsEditorClass;\r\n  public\r\n    constructor Create(AClass: TComponentClass; AEditorClass: TLibraryRequirementsEditorClass);\r\n    property &Class: TComponentClass read FClass write FClass;\r\n    property Editor: TLibraryRequirementsEditorClass read FEditor write FEditor;\r\n  end;\r\n\r\n  TPropertyAttribute = (paDialog, paValueList, paSortList, paValueEditable, paSubProperties);\r\n\r\n  TPropertyAttributes = set of TPropertyAttribute;\r\n\r\n  TPropertyEditor = class(TObject)\r\n  private\r\n    FComponent: TPersistent;\r\n    FPropertyName: string;\r\n    FPropertyInfo: TTypeMemberProperty;\r\n    FResultProc: TModalResultProc;\r\n  protected\r\n    property ResultProc: TModalResultProc read FResultProc;\r\n    function GetStrValue: string;\r\n    function GetStrValueAt(Index: Integer): string;\r\n    procedure SetStrValue(const Value: string);\r\n    procedure Modified; virtual;\r\n  public\r\n    constructor Create;\r\n    property Component: TPersistent read FComponent write FComponent;\r\n    property PropertyName: string read FPropertyName write FPropertyName;\r\n    property PropertyInfo: TTypeMemberProperty read FPropertyInfo write FPropertyInfo;\r\n    procedure Edit; virtual; overload;\r\n    procedure Edit(AProc: TModalResultProc); virtual; overload;\r\n    function GetAttributes: TPropertyAttributes; virtual;\r\n    function GetValue: string; virtual;\r\n    function GetComponent: TPersistent; virtual; overload;\r\n    function GetComponent(Index: Integer): TPersistent; virtual; overload;\r\n    procedure GetValues(Proc: TGetStrProc); virtual;\r\n    procedure SetValue(const Value: string); virtual;\r\n    function GetOrdValue: Longint; virtual;\r\n    function GetOrdValueAt(Index: Integer): Longint; virtual;\r\n    function GetObjectValue: TObject; virtual;\r\n    function GetObjectValueAt(Index: Integer): TObject; virtual;\r\n    procedure SetOrdValue(Value: Integer); virtual;\r\n  end;\r\n\r\n  TStringProperty = class(TPropertyEditor)\r\n  public\r\n    function GetValue: string; override;\r\n    procedure SetValue(const Value: string); override;\r\n  end;\r\n\r\n  TIntegerProperty = class(TPropertyEditor);\r\n\r\n  TClassProperty = class(TPropertyEditor);\r\n\r\n  TPropertyEditorClass = class of TPropertyEditor;\r\n\r\n  TRegisteredPropertyEditor = class\r\n  private\r\n    FClass: TComponentClass;\r\n    FPropertyName: string;\r\n    FPropertyType: PTypeInfo;\r\n    FEditor: TPropertyEditorClass;\r\n  public\r\n    constructor Create(APropertyType: PTypeInfo; AClass: TComponentClass; AProperty: string; AEditor: TPropertyEditorClass);\r\n    property &Class: TComponentClass read FClass write FClass;\r\n    property PropertyType: PTypeInfo read FPropertyType write FPropertyType;\r\n    property PropertyName: string read FPropertyName write FPropertyName;\r\n    property Editor: TPropertyEditorClass read FEditor write FEditor;\r\n  end;\r\n\r\n  TRegisteredIgnoredProperty = class\r\n  private\r\n    FClass: TComponentClass;\r\n    FPropertyName: string;\r\n  public\r\n    constructor Create(AClass: TComponentClass; AProperty: string);\r\n    property &Class: TComponentClass read FClass write FClass;\r\n    property PropertyName: string read FPropertyName write FPropertyName;\r\n  end;\r\n\r\n  TComponentEditor = class\r\n  private\r\n    FComponent: TComponent;\r\n    FResultProc: TModalResultProc;\r\n    FExecResultProc: TModalResultProc;\r\n  protected\r\n    property ResultProc: TModalResultProc read FResultProc;\r\n    property ExecResultProc: TModalResultProc read FExecResultProc;\r\n  public\r\n    property Component: TComponent read FComponent write FComponent;\r\n    procedure Edit; virtual; overload;\r\n    procedure Edit(AProc: TModalResultProc); virtual; overload;\r\n    procedure ExecuteVerb(Index: Integer); virtual; overload;\r\n    procedure ExecuteVerb(Index: Integer; AProc: TModalResultProc); virtual; overload;\r\n    procedure PrepareItem(Index: Integer; const AItem: IMenuItem); virtual;\r\n    function GetVerb(Index: Integer): string; virtual;\r\n    function GetVerbCount: Integer; virtual;\r\n    function GetComponent: TComponent; virtual; overload;\r\n    function GetComponent(Index: Integer): TComponent; virtual; overload;\r\n    function GetDefaultProperty: string; virtual;\r\n  end;\r\n\r\n  TComponentEditorClass = class of TComponentEditor;\r\n\r\n  TRegisteredComponentEditor = class\r\n  private\r\n    FClass: TComponentClass;\r\n    FEditor: TComponentEditorClass;\r\n  public\r\n    constructor Create(AClass: TComponentClass; AEditorClass: TComponentEditorClass);\r\n    property &Class: TComponentClass read FClass write FClass;\r\n    property Editor: TComponentEditorClass read FEditor write FEditor;\r\n  end;\r\n\r\n  TDefaultEditor = class(TComponentEditor);\r\n\r\n  TIdentToInt = function(const Ident: string; var Int: Integer): Boolean;\r\n  TIntToIdent = function(Int: Integer; var Ident: string): Boolean;\r\n\r\n  TRegisteredIdentToInt = class\r\n  private\r\n    FIdentToInt: TIdentToInt;\r\n    FIntToIdent: TIntToIdent;\r\n    FPropertyType: PTypeInfo;\r\n  public\r\n    constructor Create(APropertyType: PTypeInfo; AIdentToInt: TIdentToInt; AIntToIdent: TIntToIdent);\r\n    property PropertyType: PTypeInfo read FPropertyType write FPropertyType;\r\n    property IdentToInt: TIdentToInt read FIdentToInt write FIdentToInt;\r\n    property IntToIdent: TIntToIdent read FIntToIdent write FIntToIdent;\r\n  end;\r\n\r\n\r\n\r\n\r\nprocedure RegisterComponents(Page: string; ComponentClasses: TComponentClassArray; Icons: TIconArray = nil);\r\nprocedure RegisterSelectionEditor(AClass: TComponentClass; AEditorClass: TSelectionEditorClass);\r\nprocedure RegisterPropertyEditor(PropertyType: PTypeInfo; ComponentClass: TClass; const PropertyName: string; EditorClass: TPropertyEditorClass);\r\nprocedure RegisterComponentEditor(AClass: TComponentClass; ComponentEditor: TComponentEditorClass);\r\nprocedure RegisterIgnoredProperty(ComponentClass: TClass; const PropertyName: string);\r\nprocedure RegisterLibraryRequirementsEditor(AClass: TComponentClass; AEditorClass: TLibraryRequirementsEditorClass);\r\nprocedure RegisterIcon(const AComponentName, AIconName, AUnitName: string);\r\n\r\nprocedure GetRegisteredComponents(List: TList);\r\nprocedure GetRegisteredPages(List: TList);\r\nprocedure GetSelectionEditors(List: TList);\r\nprocedure LoadComponentFromJavaScript(JavaScriptFile: string; CallBack: TLoadJavaScriptCallBack; ErrorCallBack: TErrorJavaScriptCallBack = nil);\r\nprocedure InitializeComponentFromJavaScript(JavaScriptFile: string);\r\nfunction GetRegisteredComponentClass(ComponentClassName: string): TComponentClass;\r\nfunction GetRegisteredComponent(ComponentClassName: string): TRegisteredComponent;\r\nfunction GetRegisteredSelectionEditor(ComponentClassName: string): TRegisteredSelectionEditor;\r\nfunction GetRegisteredLibraryRequirementsEditor(ComponentClassName: string): TRegisteredLibraryRequirementsEditor;\r\nfunction GetRegisteredPropertyEditor(PropertyType: PTypeInfo; AClass: TComponentClass; AProperty: string): TRegisteredPropertyEditor;\r\nfunction GetRegisteredComponentEditor(AClass: TComponentClass): TRegisteredComponentEditor;\r\nfunction IsComponentFromJavaScriptLoaded(JavaScriptFile: string): Boolean;\r\nfunction IsIgnoredProperty(AClass: TComponentClass; AProperty: string): boolean;\r\n\r\nprocedure RegisterIntegerConsts(IntegerPropertyType: PTypeInfo; AIdentToInt: TIdentToInt; AIntToIdent: TIntToIdent);\r\nfunction GetRegisteredIdentToInt(IntegerPropertyType: PTypeInfo): TIdentToInt;\r\nfunction GetRegisteredIntToIdent(IntegerPropertyType: PTypeInfo): TIntToIdent;\r\n\r\n\r\nimplementation\r\n\r\nuses\r\n  SysUtils, Generics.Collections;\r\n\r\ntype\r\n  TIconData = class(TObject)\r\n  strict private\r\n    FNameConst: string;\r\n    FNameUnit: string;\r\n  public\r\n    property NameConst: string read FNameConst write FNameConst;\r\n    property NameUnit: string read FNameUnit write FNameUnit;\r\n  end;\r\n\r\n  TIconDataDict = class(TObject)\r\n  strict private\r\n    class var FDict: TObjectDictionary<string, TIconData>;\r\n  public\r\n    class destructor Destroy;\r\n    class procedure Add(const AComponentName, AConstantName, AUnitName: string);\r\n    class function Find(const AComponentName: string): string;\r\n  end;\r\n\r\nvar\r\n  RegisteredComponentList: TJSObject;\r\n  RegisteredSelectionEditorList: TJSObject;\r\n  RegisteredPropertyEditorList: TJSObject;\r\n  RegisteredIgnoredPropertyList: TJSObject;\r\n  RegisteredLibraryRequirementsEditorList: TJSObject;\r\n  RegisteredComponentEditorList: TJSObject;\r\n  RegisteredIdentToIntList: TJSObject;\r\n\r\nprocedure RegisterComponents(Page: string; ComponentClasses: TComponentClassArray; Icons: TIconArray = nil);\r\nconst\r\n  cPNGExt = '_PNG';\r\nvar\r\n  I: Integer;\r\n  c: TComponentClass;\r\n  ic: String;\r\nbegin\r\n  for I := 0 to Length(ComponentClasses) - 1 do\r\n  begin\r\n    c := ComponentClasses[I];\r\n    if Assigned(Icons) then\r\n      ic := Icons[I]\r\n    else\r\n      ic := '';\r\n    if ic = '' then\r\n      ic := TIconDataDict.Find(c.ClassName + cPNGExt);\r\n    if ic = '' then\r\n      ic := TIconDataDict.Find(c.ClassName);\r\n\r\n    RegisteredComponentList[c.ClassName] := TRegisteredComponent.Create(Page, c, ic);\r\n  end;\r\nend;\r\n\r\nfunction GetRegisteredComponent(ComponentClassName: string): TRegisteredComponent;\r\nvar\r\n  res: TRegisteredComponent;\r\nbegin\r\n  Result := nil;\r\n  if ComponentClassName = '' then\r\n    Exit;\r\n\r\n  res := nil;\r\n\r\n  // case insensitive class search\r\n  asm\r\n    var a = Object.keys($impl.RegisteredComponentList).map(function(key) {\r\n      return [$impl.RegisteredComponentList[key]];\r\n    });\r\n\r\n    for (let el of a) {\r\n      if (el[0].FClass.$classname.toLowerCase() == ComponentClassName.toLowerCase()) {\r\n        res = el[0];\r\n        break; }\r\n    }\r\n  end;\r\n\r\n  Result := res;\r\n\r\n//  Result := TRegisteredComponent(RegisteredComponentList[ComponentClassName]);\r\nend;\r\n\r\nfunction GetRegisteredComponentClass(ComponentClassName: string): TComponentClass;\r\nvar\r\n  r: TRegisteredComponent;\r\nbegin\r\n  Result := nil;\r\n  r := GetRegisteredComponent(ComponentClassName);\r\n  if Assigned(r) then\r\n    Result := r.&Class;\r\nend;\r\n\r\nprocedure GetRegisteredPages(List: TList);\r\nbegin\r\n  asm\r\n    var a = Object.keys($impl.RegisteredComponentList).map(function(key) {\r\n      return [$impl.RegisteredComponentList[key]];\r\n    });\r\n\r\n    a.forEach(function(element) {\r\n      var p = element[0].FPage;\r\n      if (List.IndexOf(p) == -1) {\r\n        List.Add(element[0].FPage);\r\n      }\r\n    });\r\n  end;\r\nend;\r\n\r\nprocedure GetRegisteredComponents(List: TList);\r\nbegin\r\n  asm\r\n    var a = Object.keys($impl.RegisteredComponentList).map(function(key) {\r\n      return [$impl.RegisteredComponentList[key]];\r\n    });\r\n\r\n    a.forEach(function(element) {\r\n      List.Add(element[0]);\r\n    });\r\n  end;\r\nend;\r\n\r\nprocedure RegisterSelectionEditor(AClass: TComponentClass; AEditorClass: TSelectionEditorClass);\r\nbegin\r\n  RegisteredSelectionEditorList[AClass.ClassName] := TRegisteredSelectionEditor.Create(AClass, AEditorClass);\r\nend;\r\n\r\n\r\nprocedure GetSelectionEditors(List: TList);\r\nbegin\r\n  asm\r\n    var a = Object.keys($impl.RegisteredSelectionEditorList).map(function(key) {\r\n      return [$impl.RegisteredSelectionEditorList[key]];\r\n    });\r\n\r\n    a.forEach(function(element) {\r\n      List.Add(element[0]);\r\n    });\r\n  end;\r\nend;\r\n\r\nfunction GetRegisteredSelectionEditor(ComponentClassName: string): TRegisteredSelectionEditor;\r\nvar\r\n  cn: string;\r\n  c: TClass;\r\nbegin\r\n  Result := nil;\r\n  if ComponentClassName = '' then\r\n    Exit;\r\n\r\n  c := GetClass(ComponentClassName);\r\n\r\n  if not Assigned(c) then\r\n  begin\r\n    c := GetRegisteredComponentClass(ComponentClassName);\r\n    if not Assigned(c) then\r\n      Exit(nil);\r\n  end;\r\n  repeat\r\n    cn := c.ClassName;\r\n    Result := TRegisteredSelectionEditor(RegisteredSelectionEditorList[cn]);\r\n    if Assigned(Result) then\r\n      Exit;\r\n    c := c.ClassParent;\r\n  until not Assigned(c);\r\nend;\r\n\r\nfunction GetRegisteredComponentEditor(AClass: TComponentClass): TRegisteredComponentEditor;\r\nvar\r\n  cn: string;\r\n  c: TClass;\r\nbegin\r\n  Result := nil;\r\n  if not Assigned(AClass) then\r\n    Exit;\r\n\r\n  c := AClass;\r\n\r\n  if not Assigned(c) then\r\n    Exit(nil);\r\n  repeat\r\n    cn := c.ClassName;\r\n    Result := TRegisteredComponentEditor(RegisteredComponentEditorList[cn]);\r\n    if Assigned(Result) then\r\n      Exit;\r\n    c := c.ClassParent;\r\n  until not Assigned(c);\r\nend;\r\n\r\nprocedure RegisterLibraryRequirementsEditor(AClass: TComponentClass; AEditorClass: TLibraryRequirementsEditorClass);\r\nbegin\r\n  RegisteredLibraryRequirementsEditorList[AClass.ClassName] := TRegisteredLibraryRequirementsEditor.Create(AClass, AEditorClass);\r\nend;\r\n\r\nprocedure RegisterIcon(const AComponentName, AIconName, AUnitName: string);\r\nbegin\r\n  TIconDataDict.Add(AComponentName, AIconName, AUnitName);\r\nend;\r\n\r\nfunction GetRegisteredLibraryRequirementsEditor(ComponentClassName: string): TRegisteredLibraryRequirementsEditor;\r\nvar\r\n  cn: string;\r\n  c: TClass;\r\nbegin\r\n  Result := nil;\r\n  if ComponentClassName = '' then\r\n    Exit;\r\n\r\n  c := GetClass(ComponentClassName);\r\n\r\n  if not Assigned(c) then\r\n    Exit(nil);\r\n  repeat\r\n    cn := c.ClassName;\r\n    Result := TRegisteredLibraryRequirementsEditor(RegisteredLibraryRequirementsEditorList[cn]);\r\n    if Assigned(Result) then\r\n      Exit;\r\n    c := c.ClassParent;\r\n  until not Assigned(c);\r\nend;\r\n\r\nprocedure GetPropertyEditors(List: TList);\r\nbegin\r\n  asm\r\n    var a = Object.keys($impl.RegisteredPropertyEditorList).map(function(key) {\r\n      return [$impl.RegisteredPropertyEditorList[key]];\r\n    });\r\n\r\n    a.forEach(function(element) {\r\n      List.Add(element[0]);\r\n    });\r\n  end;\r\nend;\r\n\r\nprocedure RegisterPropertyEditor(PropertyType: PTypeInfo; ComponentClass: TClass; const PropertyName: string; EditorClass: TPropertyEditorClass);\r\nvar\r\n  LKey, LType, LClass: string;\r\nbegin\r\n  LType := '';\r\n  if Assigned(PropertyType) then\r\n    LType := TTypeInfo(PropertyType).Name;\r\n\r\n  LClass := '';\r\n  if Assigned(ComponentClass) then\r\n    LClass := ComponentClass.ClassName;\r\n\r\n  LKey := LType + '_' + LClass + '_' + PropertyName;\r\n  RegisteredPropertyEditorList[LKey] := TRegisteredPropertyEditor.Create(PropertyType, TComponentClass(ComponentClass), PropertyName, EditorClass);\r\nend;\r\n\r\nfunction GetRegisteredPropertyEditor(PropertyType: PTypeInfo; AClass: TComponentClass; AProperty: string): TRegisteredPropertyEditor;\r\nvar\r\n  LKey, LType: string;\r\n  LPropEditor: TRegisteredPropertyEditor;\r\n  LList: TList;\r\n  i: integer;\r\n  c: TClass;\r\nbegin\r\n  Result := nil;\r\n\r\n  LType := TTypeInfo(PropertyType).Name;\r\n\r\n  LKey := LType + '__';\r\n  LPropEditor := TRegisteredPropertyEditor(RegisteredPropertyEditorList[LKey]);\r\n\r\n  if Assigned(LPropEditor) then\r\n    Result := LPropEditor;\r\n\r\n  if not Assigned(Result) and Assigned(AClass) and (AProperty <> '') then\r\n  begin\r\n    c := AClass;\r\n    repeat\r\n      LKey := LType + '_' + c.ClassName + '_' + AProperty;\r\n      LPropEditor := TRegisteredPropertyEditor(RegisteredPropertyEditorList[LKey]);\r\n      if Assigned(LPropEditor) then\r\n      begin\r\n        Result := LPropEditor;\r\n        Break;\r\n      end;\r\n\r\n      c := c.ClassParent;\r\n    until not Assigned(c);\r\n  end;\r\n\r\n  if not Assigned(Result) then\r\n  begin\r\n    LList  := Classes.TList.Create;\r\n    GetPropertyEditors(LList);\r\n\r\n    for i := 0 to LList.Count - 1 do\r\n    begin\r\n      LPropEditor := TRegisteredPropertyEditor(LList.Items[i]);\r\n\r\n      if (LPropEditor.PropertyType = PropertyType) then\r\n      begin\r\n        if (LPropEditor.PropertyName = '') or (LPropEditor.PropertyName = AProperty) then\r\n        begin\r\n          if not Assigned(LPropEditor.&Class) then\r\n          begin\r\n            Result := LPropEditor;\r\n            Break;\r\n          end\r\n          else if Assigned(AClass) then\r\n          begin\r\n            c := AClass;\r\n            repeat\r\n              if (LPropEditor.&Class.ClassName = c.ClassName) then\r\n              begin\r\n                Result := LPropEditor;\r\n                Break;\r\n              end;\r\n\r\n              c := c.ClassParent;\r\n            until not Assigned(c);\r\n\r\n            if Assigned(Result) then\r\n              Break;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n    LList.Free;\r\n  end;\r\nend;\r\n\r\nconstructor TRegisteredIdentToInt.Create(APropertyType: PTypeInfo; AIdentToInt: TIdentToInt; AIntToIdent: TIntToIdent);\r\nbegin\r\n\r\n  FPropertyType := APropertyType;\r\n  FIdentToInt := AIdentToInt;\r\n  FIntToIdent := AIntToIdent;\r\nend;\r\n\r\nprocedure RegisterIntegerConsts(IntegerPropertyType: PTypeInfo; AIdentToInt: TIdentToInt; AIntToIdent: TIntToIdent);\r\nvar\r\n  LKey: string;\r\nbegin\r\n  LKey := TTypeInfo(IntegerPropertyType).Name;\r\n  RegisteredIdentToIntList[LKey] := TRegisteredIdentToInt.Create(IntegerPropertyType, AIdentToInt, AIntToIdent);\r\nend;\r\n\r\nfunction GetRegisteredIdentToInt(IntegerPropertyType: PTypeInfo): TIdentToInt;\r\nvar\r\n  ri: TRegisteredIdentToInt;\r\n  LKey: string;\r\nbegin\r\n  Result := nil;\r\n\r\n  LKey := TTypeInfo(IntegerPropertyType).Name;\r\n\r\n  ri := TRegisteredIdentToInt(RegisteredIdentToIntList[LKey]);\r\n  if Assigned(ri) then\r\n    Result := ri.IdentToInt;\r\nend;\r\n\r\nfunction GetRegisteredIntToIdent(IntegerPropertyType: PTypeInfo): TIntToIdent;\r\nvar\r\n  ri: TRegisteredIdentToInt;\r\n  LKey: string;\r\nbegin\r\n  Result := nil;\r\n  LKey := TTypeInfo(IntegerPropertyType).Name;\r\n\r\n  ri := TRegisteredIdentToInt(RegisteredIdentToIntList[LKey]);\r\n  if Assigned(ri) then\r\n    Result := ri.IntToIdent;\r\nend;\r\n\r\nprocedure RegisterComponentEditor(AClass: TComponentClass; ComponentEditor: TComponentEditorClass);\r\nbegin\r\n  RegisteredComponentEditorList[AClass.ClassName] := TRegisteredComponentEditor.Create(AClass, ComponentEditor);\r\nend;\r\n\r\n\r\nconstructor TRegisteredIgnoredProperty.Create(AClass: TComponentClass; AProperty: string);\r\nbegin\r\n  inherited Create;\r\n\r\n  FClass := AClass;\r\n  FPropertyName := AProperty;\r\nend;\r\n\r\nprocedure RegisterIgnoredProperty(ComponentClass: TClass; const PropertyName: string);\r\nvar\r\n  LKey, LClass: string;\r\nbegin\r\n  LClass := '';\r\n  if Assigned(ComponentClass) then\r\n    LClass := ComponentClass.ClassName;\r\n\r\n  LKey := LClass + '_' + PropertyName;\r\n  RegisteredIgnoredPropertyList[LKey] := TRegisteredIgnoredProperty.Create(TComponentClass(ComponentClass), PropertyName);\r\nend;\r\n\r\nfunction IsIgnoredProperty(AClass: TComponentClass; AProperty: string): boolean;\r\nvar\r\n  LKey: string;\r\n  LIgnoredProperty: TRegisteredIgnoredProperty;\r\n\r\nbegin\r\n  Result := false;\r\n\r\n  if not Assigned(AClass) then\r\n  begin\r\n    LKey := '_' + AProperty;\r\n    LIgnoredProperty := TRegisteredIgnoredProperty(RegisteredIgnoredPropertyList[LKey]);\r\n    if Assigned(LIgnoredProperty) then\r\n    begin\r\n      Result := true;\r\n    end;\r\n  end\r\n  else\r\n  if Assigned(AClass) and (AProperty <> '') then\r\n  begin\r\n    LKey := AClass.ClassName + '_' + AProperty;\r\n    LIgnoredProperty := TRegisteredIgnoredProperty(RegisteredIgnoredPropertyList[LKey]);\r\n    if Assigned(LIgnoredProperty) then\r\n    begin\r\n      Result := true;\r\n    end\r\n    else\r\n    begin\r\n      LKey := '_' + AProperty;\r\n      LIgnoredProperty := TRegisteredIgnoredProperty(RegisteredIgnoredPropertyList[LKey]);\r\n      if Assigned(LIgnoredProperty) then\r\n      begin\r\n        Result := true;\r\n      end;\r\n    end;\r\n  end\r\nend;\r\n\r\n\r\n{$HINTS OFF}\r\nprocedure InitializeComponentFromJavaScript(JavaScriptFile: string);\r\nvar\r\n  src: String;\r\nbegin\r\n  if IsComponentFromJavaScriptLoaded(JavaScriptFile) then\r\n  begin\r\n    src := JavaScriptFile;\r\n    asm\r\n      var n = src.substr(0, src.lastIndexOf(\".\"))\r\n      var module = pas[n];\r\n      rtl.loadintf(module);\r\n      rtl.loadimpl(module);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction IsComponentFromJavaScriptLoaded(JavaScriptFile: string): Boolean;\r\nvar\r\n  src: String;\r\nbegin\r\n  src := JavaScriptFile;\r\n  asm\r\n    var n = src.substr(0, src.lastIndexOf(\".\"))\r\n    return (pas[n]);\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure LoadComponentFromJavaScript(JavaScriptFile: string; CallBack: TLoadJavaScriptCallBack; ErrorCallBack: TErrorJavaScriptCallBack = nil);\r\nbegin\r\n  asm\r\n    var self = this;\r\n    var JavaScript = {\r\n      loadcomponent: function(src) {\r\n        var n = src.substr(0, src.lastIndexOf(\".\"));\r\n        if (!pas[n]) {\r\n          var script = document.createElement('script'), loaded;\r\n          script.async = false;\r\n          script.setAttribute('src', src);\r\n          script.onerror = function(e){\r\n            if (ErrorCallBack != null)\r\n            {\r\n              ErrorCallBack(e);\r\n            }\r\n          }\r\n          script.onreadystatechange = script.onload = function() {\r\n            if (!loaded) {\r\n              if (CallBack != null)\r\n                CallBack(src);\r\n            }\r\n            loaded = true;\r\n          };\r\n          document.getElementsByTagName('head')[0].appendChild(script);\r\n        }\r\n      }\r\n    };\r\n\r\n    JavaScript.loadcomponent(JavaScriptFile);\r\n  end;\r\nend;\r\n\r\n{ TRegisteredComponent }\r\n\r\nconstructor TRegisteredComponent.Create(APage: string; AClass: TComponentClass; AIcon: string = '');\r\nbegin\r\n  FPage := APage;\r\n  FClass := AClass;\r\n  FIcon := AIcon;\r\nend;\r\n\r\n{ TSelectionEditor }\r\n\r\nprocedure TSelectionEditor.RequiresUnits(Proc: TGetStrProc);\r\nbegin\r\n  //\r\nend;\r\n\r\n{ TRegisteredSelectionEditor }\r\n\r\nconstructor TRegisteredSelectionEditor.Create(AClass: TComponentClass;\r\n  AEditorClass: TSelectionEditorClass);\r\nbegin\r\n  inherited Create;\r\n  FClass := AClass;\r\n  FEditor := AEditorClass;\r\nend;\r\n\r\n{ TRegisteredComponentEditor }\r\n\r\nconstructor TRegisteredComponentEditor.Create(AClass: TComponentClass;\r\n  AEditorClass: TComponentEditorClass);\r\nbegin\r\n  inherited Create;\r\n  FClass := AClass;\r\n  FEditor := AEditorClass;\r\nend;\r\n\r\n\r\n{ TRegisteredLibraryRequirementsEditor }\r\n\r\nconstructor TRegisteredLibraryRequirementsEditor.Create(AClass: TComponentClass; AEditorClass: TLibraryRequirementsEditorClass);\r\nbegin\r\n  inherited Create;\r\n  FClass := AClass;\r\n  FEditor := AEditorClass;\r\nend;\r\n\r\n{ TPropertyEditor }\r\n\r\nfunction TPropertyEditor.GetObjectValue: TObject;\r\nbegin\r\n  Result := GetObjectValueAt(0);\r\nend;\r\n\r\nfunction TPropertyEditor.GetObjectValueAt(Index: Integer): TObject;\r\nbegin\r\n  Result := GetObjectProp(FComponent, FPropertyInfo);\r\nend;\r\n\r\nfunction TPropertyEditor.GetOrdValue: Longint;\r\nbegin\r\n  Result := GetOrdValueAt(0);\r\nend;\r\n\r\nfunction TPropertyEditor.GetOrdValueAt(Index: Integer): Longint;\r\nbegin\r\n  Result := GetOrdProp(FComponent, FPropertyInfo);\r\nend;\r\n\r\nconstructor TPropertyEditor.Create;\r\nbegin\r\n  FPropertyName := '';\r\n  FPropertyInfo := nil;\r\nend;\r\n\r\nfunction TPropertyEditor.GetComponent: TPersistent;\r\nbegin\r\n  Result := FComponent;\r\nend;\r\n\r\nfunction TPropertyEditor.GetComponent(Index: Integer): TPersistent;\r\nbegin\r\n  Result := FComponent;\r\nend;\r\n\r\nprocedure TPropertyEditor.Edit;\r\nbegin\r\n  Edit(nil);\r\nend;\r\n\r\nprocedure TPropertyEditor.Edit(AProc: TModalResultProc);\r\nbegin\r\n  FResultProc := AProc;\r\nend;\r\n\r\nfunction TPropertyEditor.GetAttributes: TPropertyAttributes;\r\nbegin\r\n  Result := [paDialog];\r\nend;\r\n\r\nfunction TPropertyEditor.GetValue: string;\r\nbegin\r\n  Result := '(Unknown)';\r\nend;\r\n\r\nprocedure TPropertyEditor.GetValues(Proc: TGetStrProc);\r\nbegin\r\n  //\r\nend;\r\n\r\nfunction TPropertyEditor.GetStrValue: string;\r\nbegin\r\n  Result := GetStrValueAt(0);\r\nend;\r\n\r\nprocedure TPropertyEditor.Modified;\r\nbegin\r\nend;\r\n\r\nfunction TPropertyEditor.GetStrValueAt(Index: Integer): string;\r\nbegin\r\n  Result := GetStrProp(FComponent, FPropertyInfo);\r\nend;\r\n\r\nprocedure TPropertyEditor.SetStrValue(const Value: string);\r\nbegin\r\n  SetStrProp(FComponent, FPropertyInfo, Value);\r\nend;\r\n\r\nprocedure TPropertyEditor.SetOrdValue(Value: Integer);\r\nbegin\r\n  SetOrdProp(FComponent, FPropertyInfo, Value);\r\nend;\r\n\r\nprocedure TPropertyEditor.SetValue(const Value: string);\r\nbegin\r\n\r\nend;\r\n\r\n{ TStringProperty}\r\n\r\nfunction TStringProperty.GetValue: string;\r\nbegin\r\n  Result := GetStrValue;\r\nend;\r\n\r\nprocedure TStringProperty.SetValue(const Value: string);\r\nbegin\r\n  SetStrValue(Value);\r\nend;\r\n\r\n{ TComponentEditor }\r\n\r\nprocedure TComponentEditor.Edit;\r\nbegin\r\n  Edit(nil);\r\nend;\r\n\r\nprocedure TComponentEditor.Edit(AProc: TModalResultProc);\r\nbegin\r\n  FResultProc := AProc;\r\nend;\r\n\r\nprocedure TComponentEditor.ExecuteVerb(Index: Integer);\r\nbegin\r\n  ExecuteVerb(Index, nil);\r\nend;\r\n\r\nprocedure TComponentEditor.PrepareItem(Index: Integer; const AItem: IMenuItem);\r\nbegin\r\nend;\r\n\r\nprocedure TComponentEditor.ExecuteVerb(Index: Integer; AProc: TModalResultProc);\r\nbegin\r\n  FExecResultProc := AProc;\r\nend;\r\n\r\nfunction TComponentEditor.GetVerb(Index: Integer): string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TComponentEditor.GetVerbCount: Integer;\r\nbegin\r\n  Result := 0;\r\nend;\r\n\r\nfunction TComponentEditor.GetComponent: TComponent;\r\nbegin\r\n  Result := FComponent;\r\nend;\r\n\r\nfunction TComponentEditor.GetComponent(Index: Integer): TComponent;\r\nbegin\r\n  Result := FComponent;\r\nend;\r\n\r\nfunction TComponentEditor.GetDefaultProperty: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\n{ TRegisteredPropertyEditor }\r\n\r\nconstructor TRegisteredPropertyEditor.Create(APropertyType: PTypeInfo; AClass: TComponentClass; AProperty: string; AEditor: TPropertyEditorClass);\r\nbegin\r\n  inherited Create;\r\n\r\n  FClass := AClass;\r\n  FPropertyName := AProperty;\r\n  FPropertyType := APropertyType;\r\n  FEditor := AEditor;\r\nend;\r\n\r\n\r\nprocedure TLibraryRequirementsEditor.RequiresLibraries(Proc: TGetStrProc);\r\nbegin\r\n  //\r\nend;\r\n\r\n{ TIconDataDict }\r\n\r\nclass destructor TIconDataDict.Destroy;\r\nbegin\r\n  FDict.Free;\r\nend;\r\n\r\nclass procedure TIconDataDict.Add(const AComponentName, AConstantName, AUnitName: string);\r\nvar\r\n  lData: TIconData;\r\nbegin\r\n  if FDict = nil then\r\n    FDict := TObjectDictionary<string, TIconData>.Create([doOwnsValues]);\r\n  if FDict.TryGetValue(AComponentName.ToUpper, lData) then\r\n    Exit;\r\n\r\n  lData := TIconData.Create;\r\n  try\r\n    lData.NameConst := AConstantName;\r\n    lData.NameUnit := AUnitName;\r\n\r\n    //make the compiler happy\r\n    if lData.NameConst.IsEmpty then;\r\n    if lData.NameUnit.IsEmpty then;\r\n\r\n    FDict.Add(AComponentName.ToUpper, lData);\r\n    lData := nil;\r\n  finally\r\n    lData.Free;\r\n  end;\r\nend;\r\n\r\nclass function TIconDataDict.Find(const AComponentName: string): string;\r\nvar\r\n  lData: TIconData;\r\nbegin\r\n  Result := string.Empty;\r\n  if (FDict = nil) or (not FDict.TryGetValue(AComponentName.ToUpper, lData)) then\r\n    Exit;\r\n\r\n  asm\r\n    Result = pas[lData.FNameUnit][lData.FNameConst];\r\n  end;\r\nend;\r\n\r\ninitialization\r\nbegin\r\n  RegisteredComponentList := TJSObject.Create(nil);\r\n  RegisteredSelectionEditorList := TJSObject.Create(nil);\r\n  RegisteredPropertyEditorList := TJSObject.Create(nil);\r\n  RegisteredIgnoredPropertyList := TJSObject.Create(nil);\r\n  RegisteredLibraryRequirementsEditorList := TJSObject.Create(nil);\r\n  RegisteredComponentEditorList := TJSObject.Create(nil);\r\n  RegisteredIdentToIntList := TJSObject.Create(nil);\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            Copyright (c) 2022                                      }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : https://www.tmssoftware.com                       }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit dateutils.helper;\r\n\r\n{$Mode Delphi}\r\n\r\ninterface\r\n\r\nuses\r\n  Generics.Defaults, Generics.Collections;\r\n\r\ntype\r\n  TDSTPoints = TPair<TDateTime, TDateTime>;\r\n\r\n  TDateUtilsHelper = class(TObject)\r\n  strict private\r\n    FCache: TDictionary<Integer, TDSTPoints>;\r\n    function CalcPoints(const AYear: Integer; out AValue: TDSTPoints): Boolean;\r\n    function Find(const AYear: Integer; out AResult: TDSTPoints): Boolean;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n    function Force(const AYear: Integer; out AValue: TDSTPoints): Boolean;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  SysUtils, JS;\r\n\r\n{ TDateUtilsHelper }\r\n\r\nconstructor TDateUtilsHelper.Create;\r\nbegin\r\n  inherited Create;\r\n  FCache := TDictionary<Integer, TDSTPoints>.Create;\r\nend;\r\n\r\ndestructor TDateUtilsHelper.Destroy;\r\nbegin\r\n  FCache.Free;\r\n  inherited Destroy;\r\nend;\r\n\r\nfunction TDateUtilsHelper.CalcPoints(const AYear: Integer; out AValue: TDSTPoints): Boolean;\r\nconst\r\n  cJanuary = 0;\r\n  cDecember = 11;\r\nvar\r\n  lMonth: Integer;\r\n  lDay: Integer;\r\n  lHour: Integer;\r\n  lDate: TJSDate;\r\n  lOffset: NativeInt;\r\n  lOffsetNext: NativeInt;\r\n  lFirst: Boolean;\r\n  lDateTime: TDateTime;\r\nbegin\r\n  lFirst := True;\r\n  for lMonth := cJanuary to cDecember do\r\n  begin\r\n    for lDay := 1 to MonthDays[IsLeapYear(AYear)][lMonth + 1] do\r\n    begin\r\n      for lHour := 0 to HoursPerDay - 1 do\r\n      begin\r\n        lDate := TJSDate.New(AYear, lMonth, lDay, lHour);\r\n        lOffset := lDate.getTimezoneOffset;\r\n\r\n        lDate.Hours := lDate.Hours + 1;\r\n        lOffsetNext := lDate.getTimezoneOffset;\r\n\r\n        if lOffset <> lOffsetNext then\r\n        begin\r\n          lDateTime := EncodeDate(AYear, lMonth + 1, lDay);\r\n          if lFirst then\r\n            AValue.Key := lDateTime + EncodeTime(lHour + 1, 0, 0, 0)\r\n          else\r\n            AValue.Value := lDateTime + EncodeTime(lHour, 0, 0, 0);\r\n          lFirst := False;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\n  Result := not lFirst;\r\n  if Result then\r\n    FCache.Add(AYear, AValue);\r\nend;\r\n\r\nfunction TDateUtilsHelper.Find(const AYear: Integer; out AResult: TDSTPoints): Boolean;\r\nbegin\r\n  Result := FCache.TryGetValue(AYear, AResult);\r\nend;\r\n\r\nfunction TDateUtilsHelper.Force(const AYear: Integer; out AValue: TDSTPoints): Boolean;\r\nbegin\r\n  Result := Find(AYear, AValue);\r\n  if not Result then\r\n    Result := CalcPoints(AYear, AValue);\r\nend;\r\n\r\nend.\r\n\r\n","{$mode objfpc}\r\n\r\n{\r\n    This file is part of the Free Pascal run time library.\r\n    Copyright (c) 2018 by the Free Pascal development team\r\n\r\n    Delphi/Kylix compatibility unit, provides Date/Time handling routines.\r\n\r\n    See the file COPYING.FPC, included in this distribution,\r\n    for details about the copyright.\r\n\r\n    This program is distributed in the hope that it will be useful,\r\n    but WITHOUT ANY WARRANTY; without even the implied warranty of\r\n    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\r\n\r\n **********************************************************************}\r\n\r\nunit DateUtils;\r\n\r\ninterface\r\n\r\nuses\r\n  SysUtils, Math, TimeSpan, DateUtils.Helper;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Various constants\r\n  ---------------------------------------------------------------------}\r\n\r\nconst\r\n  DaysPerWeek        = 7;\r\n  WeeksPerFortnight  = 2;\r\n  MonthsPerYear      = 12;\r\n  YearsPerDecade     = 10;\r\n  YearsPerCentury    = 100;\r\n  YearsPerMillennium = 1000;\r\n\r\n  // ISO day numbers.\r\n  DayMonday    = 1;\r\n  DayTuesday   = 2;\r\n  DayWednesday = 3;\r\n  DayThursday  = 4;\r\n  DayFriday    = 5;\r\n  DaySaturday  = 6;\r\n  DaySunday    = 7;\r\n\r\n  // Fraction of a day\r\n  OneHour        = TDateTime(1)/HoursPerDay;\r\n  OneMinute      = TDateTime(1)/MinsPerDay;\r\n  OneSecond      = TDateTime(1)/SecsPerDay;\r\n  OneMillisecond = TDateTime(1)/MSecsPerDay;\r\n\r\n  { This is actual days per year but you need to know if it's a leap year}\r\n  DaysPerYear: array [Boolean] of Word = (365, 366);\r\n\r\n  { Used in RecodeDate, RecodeTime and RecodeDateTime for those datetime }\r\n  {  fields you want to leave alone }\r\n  RecodeLeaveFieldAsIs = 65535;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Global variables used in this unit\r\n  ---------------------------------------------------------------------}\r\n\r\nConst\r\n\r\n  { Average over a 4 year span. Valid for next 100 years }\r\n  ApproxDaysPerMonth: Double = 30.4375;\r\n  ApproxDaysPerYear: Double  = 365.25;\r\n\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n    Simple trimming functions.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction DateOf(const AValue: TDateTime): TDateTime;\r\nFunction TimeOf(const AValue: TDateTime): TDateTime;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Identification functions.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction IsInLeapYear(const AValue: TDateTime): Boolean;\r\nFunction IsPM(const AValue: TDateTime): Boolean;\r\nFunction IsValidDate(const AYear, AMonth, ADay: Word): Boolean;\r\nFunction IsValidTime(const AHour, AMinute, ASecond, AMilliSecond: Word): Boolean;\r\nFunction IsValidDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word): Boolean;\r\nFunction IsValidDateDay(const AYear, ADayOfYear: Word): Boolean;\r\nFunction IsValidDateWeek(const AYear, AWeekOfYear, ADayOfWeek: Word): Boolean;\r\nFunction IsValidDateMonthWeek(const AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word): Boolean;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Enumeration functions.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction WeeksInYear(const AValue: TDateTime): Word;\r\nFunction WeeksInAYear(const AYear: Word): Word;\r\nFunction DaysInYear(const AValue: TDateTime): Word;\r\nFunction DaysInAYear(const AYear: Word): Word;\r\nFunction DaysInMonth(const AValue: TDateTime): Word;\r\nFunction DaysInAMonth(const AYear, AMonth: Word): Word;\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n    Variations on current date/time.\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\nFunction Today: TDateTime;\r\nFunction Yesterday: TDateTime;\r\nFunction Tomorrow: TDateTime;\r\nFunction IsToday(const AValue: TDateTime): Boolean;\r\nFunction IsSameDay(const AValue, ABasis: TDateTime): Boolean;\r\nfunction IsSameMonth(const Avalue, ABasis: TDateTime): Boolean;\r\nFunction PreviousDayOfWeek (DayOfWeek : Word) : Word;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Extraction functions.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction YearOf(const AValue: TDateTime): Word;\r\nFunction MonthOf(const AValue: TDateTime): Word;\r\nFunction WeekOf(const AValue: TDateTime): Word;\r\nFunction DayOf(const AValue: TDateTime): Word;\r\nFunction HourOf(const AValue: TDateTime): Word;\r\nFunction MinuteOf(const AValue: TDateTime): Word;\r\nFunction SecondOf(const AValue: TDateTime): Word;\r\nFunction MilliSecondOf(const AValue: TDateTime): Word;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Start/End of year functions.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction StartOfTheYear(const AValue: TDateTime): TDateTime;\r\nFunction EndOfTheYear(const AValue: TDateTime): TDateTime;\r\nFunction StartOfAYear(const AYear: Word): TDateTime;\r\nFunction EndOfAYear(const AYear: Word): TDateTime;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Start/End of month functions.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction StartOfTheMonth(const AValue: TDateTime): TDateTime;\r\nFunction EndOfTheMonth(const AValue: TDateTime): TDateTime;\r\nFunction StartOfAMonth(const AYear, AMonth: Word): TDateTime;\r\nFunction EndOfAMonth(const AYear, AMonth: Word): TDateTime;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Start/End of week functions.\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\nFunction StartOfTheWeek(const AValue: TDateTime): TDateTime;\r\nFunction EndOfTheWeek(const AValue: TDateTime): TDateTime;\r\nFunction StartOfAWeek(const AYear, AWeekOfYear: Word; const ADayOfWeek: Word): TDateTime;\r\nFunction StartOfAWeek(const AYear, AWeekOfYear: Word): TDateTime; // ADayOFWeek 1\r\nFunction EndOfAWeek(const AYear, AWeekOfYear: Word; const ADayOfWeek: Word): TDateTime;\r\nFunction EndOfAWeek(const AYear, AWeekOfYear: Word): TDateTime; // const ADayOfWeek: Word = 7\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n    Start/End of day functions.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction StartOfTheDay(const AValue: TDateTime): TDateTime;\r\nFunction EndOfTheDay(const AValue: TDateTime): TDateTime;\r\nFunction StartOfADay(const AYear, AMonth, ADay: Word): TDateTime; overload;\r\nFunction StartOfADay(const AYear, ADayOfYear: Word): TDateTime; overload;\r\nFunction EndOfADay(const AYear, AMonth, ADay: Word): TDateTime; overload;\r\nFunction EndOfADay(const AYear, ADayOfYear: Word): TDateTime; overload;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Part of year functions.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction MonthOfTheYear(const AValue: TDateTime): Word;\r\nFunction WeekOfTheYear(const AValue: TDateTime): Word; overload;\r\nFunction WeekOfTheYear(const AValue: TDateTime; out AYear: Word): Word; overload;\r\nFunction DayOfTheYear(const AValue: TDateTime): Word;\r\nFunction HourOfTheYear(const AValue: TDateTime): Word;\r\nFunction MinuteOfTheYear(const AValue: TDateTime): LongWord;\r\nFunction SecondOfTheYear(const AValue: TDateTime): LongWord;\r\nFunction MilliSecondOfTheYear(const AValue: TDateTime): NativeLargeInt;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Part of month functions.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction WeekOfTheMonth(const AValue: TDateTime): Word; overload;\r\nFunction WeekOfTheMonth(const AValue: TDateTime; out AYear, AMonth: Word): Word; overload;\r\nFunction DayOfTheMonth(const AValue: TDateTime): Word;\r\nFunction HourOfTheMonth(const AValue: TDateTime): Word;\r\nFunction MinuteOfTheMonth(const AValue: TDateTime): Word;\r\nFunction SecondOfTheMonth(const AValue: TDateTime): LongWord;\r\nFunction MilliSecondOfTheMonth(const AValue: TDateTime): LongWord;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Part of week functions.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction DayOfTheWeek(const AValue: TDateTime): Word;\r\nFunction HourOfTheWeek(const AValue: TDateTime): Word;\r\nFunction MinuteOfTheWeek(const AValue: TDateTime): Word;\r\nFunction SecondOfTheWeek(const AValue: TDateTime): LongWord;\r\nFunction MilliSecondOfTheWeek(const AValue: TDateTime): LongWord;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Part of day functions.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction HourOfTheDay(const AValue: TDateTime): Word;\r\nFunction MinuteOfTheDay(const AValue: TDateTime): Word;\r\nFunction SecondOfTheDay(const AValue: TDateTime): LongWord;\r\nFunction MilliSecondOfTheDay(const AValue: TDateTime): LongWord;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Part of hour functions.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction MinuteOfTheHour(const AValue: TDateTime): Word;\r\nFunction SecondOfTheHour(const AValue: TDateTime): Word;\r\nFunction MilliSecondOfTheHour(const AValue: TDateTime): LongWord;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Part of minute functions.\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\nFunction SecondOfTheMinute(const AValue: TDateTime): Word;\r\nFunction MilliSecondOfTheMinute(const AValue: TDateTime): LongWord;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Part of second functions.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction MilliSecondOfTheSecond(const AValue: TDateTime): Word;\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n    Range checking functions.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction WithinPastYears(const ANow, AThen: TDateTime; const AYears: Integer): Boolean;\r\nFunction WithinPastMonths(const ANow, AThen: TDateTime; const AMonths: Integer): Boolean;\r\nFunction WithinPastWeeks(const ANow, AThen: TDateTime; const AWeeks: Integer): Boolean;\r\nFunction WithinPastDays(const ANow, AThen: TDateTime; const ADays: Integer): Boolean;\r\nFunction WithinPastHours(const ANow, AThen: TDateTime; const AHours: NativeLargeInt): Boolean;\r\nFunction WithinPastMinutes(const ANow, AThen: TDateTime; const AMinutes: NativeLargeInt): Boolean;\r\nFunction WithinPastSeconds(const ANow, AThen: TDateTime; const ASeconds: NativeLargeInt): Boolean;\r\nFunction WithinPastMilliSeconds(const ANow, AThen: TDateTime; const AMilliSeconds: NativeLargeInt): Boolean;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Period functions.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction YearsBetween(const ANow, AThen: TDateTime; AExact : Boolean = False): Integer;\r\nFunction MonthsBetween(const ANow, AThen: TDateTime; AExact : Boolean = False): Integer;\r\nFunction WeeksBetween(const ANow, AThen: TDateTime): Integer;\r\nFunction DaysBetween(const ANow, AThen: TDateTime): Integer;\r\nFunction HoursBetween(const ANow, AThen: TDateTime): NativeLargeInt;\r\nFunction MinutesBetween(const ANow, AThen: TDateTime): NativeLargeInt;\r\nFunction SecondsBetween(const ANow, AThen: TDateTime): NativeLargeInt;\r\nFunction MilliSecondsBetween(const ANow, AThen: TDateTime): NativeLargeInt;\r\nProcedure PeriodBetween(const ANow, AThen: TDateTime; Out Years, months, days : Word); \r\n\r\n{ ---------------------------------------------------------------------\r\n    Timespan in xxx functions.\r\n  ---------------------------------------------------------------------}\r\n\r\n{ YearSpan and MonthSpan are approximate values }\r\nFunction YearSpan(const ANow, AThen: TDateTime): Double;\r\nFunction MonthSpan(const ANow, AThen: TDateTime): Double;\r\nFunction WeekSpan(const ANow, AThen: TDateTime): Double;\r\nFunction DaySpan(const ANow, AThen: TDateTime): Double;\r\nFunction HourSpan(const ANow, AThen: TDateTime): Double;\r\nFunction MinuteSpan(const ANow, AThen: TDateTime): Double;\r\nFunction SecondSpan(const ANow, AThen: TDateTime): Double;\r\nFunction MilliSecondSpan(const ANow, AThen: TDateTime): Double;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Increment/decrement functions.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction IncYear(const AValue: TDateTime; const ANumberOfYears: Integer ): TDateTime;\r\nFunction IncYear(const AValue: TDateTime): TDateTime; // ; const ANumberOfYears: Integer = 1)\r\n// Function IncMonth is in SysUtils\r\nFunction IncWeek(const AValue: TDateTime; const ANumberOfWeeks: Integer): TDateTime;\r\nFunction IncWeek(const AValue: TDateTime): TDateTime; // ; const ANumberOfWeeks: Integer = 1)\r\nFunction IncDay(const AValue: TDateTime; const ANumberOfDays: Integer): TDateTime;\r\nFunction IncDay(const AValue: TDateTime): TDateTime; //; const ANumberOfDays: Integer = 1)\r\nFunction IncHour(const AValue: TDateTime; const ANumberOfHours: NativeLargeInt): TDateTime;\r\nFunction IncHour(const AValue: TDateTime): TDateTime; //; const ANumberOfHours: NativeLargeInt = 1\r\nFunction IncMinute(const AValue: TDateTime; const ANumberOfMinutes: NativeLargeInt): TDateTime;\r\nFunction IncMinute(const AValue: TDateTime): TDateTime; // ; const ANumberOfMinutes: NativeLargeInt = 1\r\nFunction IncSecond(const AValue: TDateTime; const ANumberOfSeconds: NativeLargeInt): TDateTime;\r\nFunction IncSecond(const AValue: TDateTime): TDateTime; // ; const ANumberOfSeconds: NativeLargeInt = 1\r\nFunction IncMilliSecond(const AValue: TDateTime; const ANumberOfMilliSeconds: NativeLargeInt): TDateTime;\r\nFunction IncMilliSecond(const AValue: TDateTime): TDateTime; // ; const ANumberOfMilliSeconds: NativeLargeInt = 1\r\n\r\n{ ---------------------------------------------------------------------\r\n    Encode/Decode of complete timestamp\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction EncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word): TDateTime;\r\nProcedure DecodeDateTime(const AValue: TDateTime; out AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word);\r\nFunction TryEncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word; out AValue: TDateTime): Boolean;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Encode/decode date, specifying week of year and day of week\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction EncodeDateWeek(const AYear, AWeekOfYear: Word; const ADayOfWeek: Word): TDateTime;\r\nFunction EncodeDateWeek(const AYear, AWeekOfYear: Word): TDateTime; //; const ADayOfWeek: Word = 1\r\nProcedure DecodeDateWeek(const AValue: TDateTime; out AYear, AWeekOfYear, ADayOfWeek: Word);\r\nFunction TryEncodeDateWeek(const AYear, AWeekOfYear: Word; out AValue: TDateTime; const ADayOfWeek: Word): Boolean;\r\nFunction TryEncodeDateWeek(const AYear, AWeekOfYear: Word; out AValue: TDateTime): Boolean; //; const ADayOfWeek: Word = 1\r\n\r\n{ ---------------------------------------------------------------------\r\n    Encode/decode date, specifying day of year\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction EncodeDateDay(const AYear, ADayOfYear: Word): TDateTime;\r\nProcedure DecodeDateDay(const AValue: TDateTime; out AYear, ADayOfYear: Word);\r\nFunction TryEncodeDateDay(const AYear, ADayOfYear: Word; out AValue: TDateTime): Boolean;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Encode/decode date, specifying week of month\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction EncodeDateMonthWeek(const AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word): TDateTime;\r\nProcedure DecodeDateMonthWeek(const AValue: TDateTime; out AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word);\r\nFunction TryEncodeDateMonthWeek(const AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word; out AValue: TDateTime): Boolean;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Encode time interval, allowing hours>24\r\n  ---------------------------------------------------------------------}\r\n\r\nfunction TryEncodeTimeInterval(Hour, Min, Sec, MSec:word; Out Time : TDateTime) : boolean;\r\nfunction EncodeTimeInterval(Hour, Minute, Second, MilliSecond:word): TDateTime;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Replace given element with supplied value.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction RecodeYear(const AValue: TDateTime; const AYear: Word): TDateTime;\r\nFunction RecodeMonth(const AValue: TDateTime; const AMonth: Word): TDateTime;\r\nFunction RecodeDay(const AValue: TDateTime; const ADay: Word): TDateTime;\r\nFunction RecodeHour(const AValue: TDateTime; const AHour: Word): TDateTime;\r\nFunction RecodeMinute(const AValue: TDateTime; const AMinute: Word): TDateTime;\r\nFunction RecodeSecond(const AValue: TDateTime; const ASecond: Word): TDateTime;\r\nFunction RecodeMilliSecond(const AValue: TDateTime; const AMilliSecond: Word): TDateTime;\r\nFunction RecodeDate(const AValue: TDateTime; const AYear, AMonth, ADay: Word): TDateTime;\r\nFunction RecodeTime(const AValue: TDateTime; const AHour, AMinute, ASecond, AMilliSecond: Word): TDateTime;\r\nFunction RecodeDateTime(const AValue: TDateTime; const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word): TDateTime;\r\nFunction TryRecodeDateTime(const AValue: TDateTime; const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word; out AResult: TDateTime): Boolean;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Comparision of date/time\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction CompareDateTime(const A, B: TDateTime): TValueRelationship;\r\nFunction CompareDate(const A, B: TDateTime): TValueRelationship;\r\nFunction CompareTime(const A, B: TDateTime): TValueRelationship;\r\nFunction SameDateTime(const A, B: TDateTime): Boolean;\r\nFunction SameDate(const A, B: TDateTime): Boolean;\r\nFunction SameTime(const A, B: TDateTime): Boolean;\r\n\r\n{ For a given date these Functions tell you the which day of the week of the\r\n  month (or year).  If its a Thursday, they will tell you if its the first,\r\n  second, etc Thursday of the month (or year).  Remember, even though its\r\n  the first Thursday of the year it doesn't mean its the first week of the\r\n  year.  See ISO 8601 above for more information. }\r\n\r\nFunction NthDayOfWeek(const AValue: TDateTime): Word;\r\n\r\nProcedure DecodeDayOfWeekInMonth(const AValue: TDateTime; out AYear, AMonth, ANthDayOfWeek, ADayOfWeek: Word);\r\n\r\nFunction EncodeDayOfWeekInMonth(const AYear, AMonth, ANthDayOfWeek,  ADayOfWeek: Word): TDateTime;\r\nFunction TryEncodeDayOfWeekInMonth(const AYear, AMonth, ANthDayOfWeek,  ADayOfWeek: Word; out AValue: TDateTime): Boolean;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Exception throwing routines\r\n  ---------------------------------------------------------------------}\r\n\r\nProcedure InvalidDateTimeError(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word; const ABaseDate: TDateTime);\r\nProcedure InvalidDateTimeError(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word); // const ABaseDate: TDateTime = 0\r\nProcedure InvalidDateWeekError(const AYear, AWeekOfYear, ADayOfWeek: Word);\r\nProcedure InvalidDateDayError(const AYear, ADayOfYear: Word);\r\nProcedure InvalidDateMonthWeekError(const AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word);\r\nProcedure InvalidDayOfWeekInMonthError(const AYear, AMonth, ANthDayOfWeek,  ADayOfWeek: Word);\r\n\r\n{ ---------------------------------------------------------------------\r\n    Julian and Modified Julian Date conversion support\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction DateTimeToJulianDate(const AValue: TDateTime): Double;\r\nFunction JulianDateToDateTime(const AValue: Double): TDateTime;\r\nFunction TryJulianDateToDateTime(const AValue: Double; out ADateTime: TDateTime): Boolean;\r\n\r\nFunction DateTimeToModifiedJulianDate(const AValue: TDateTime): Double;\r\nFunction ModifiedJulianDateToDateTime(const AValue: Double): TDateTime;\r\nFunction TryModifiedJulianDateToDateTime(const AValue: Double; out ADateTime: TDateTime): Boolean;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Unix timestamp support.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction DateTimeToUnix(const AValue: TDateTime): NativeLargeInt;\r\nFunction UnixToDateTime(const AValue: NativeLargeInt; AReturnUTC: Boolean = True): TDateTime;\r\nFunction UnixTimeStampToMac(const AValue: NativeLargeInt): NativeLargeInt;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Mac timestamp support.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction DateTimeToMac(const AValue: TDateTime): NativeLargeInt;\r\nFunction MacToDateTime(const AValue: NativeLargeInt): TDateTime;\r\nFunction MacTimeStampToUnix(const AValue: NativeLargeInt): NativeLargeInt;\r\n\r\n{ .....................................................................\r\n    Dos <-> Delphi datetime support\r\n  .....................................................................}\r\n\r\nFunction DateTimeToDosDateTime(const AValue: TDateTime): longint;\r\nFunction DosDateTimeToDateTime( AValue: longint): TDateTime;\r\n\r\n{ UTC <-> Local time }\r\n\r\nFunction UniversalTimeToLocal(UT: TDateTime): TDateTime;\r\nFunction UniversalTimeToLocal(UT: TDateTime; TZOffset : Integer): TDateTime;\r\nFunction LocalTimeToUniversal(LT: TDateTime): TDateTime;\r\nFunction LocalTimeToUniversal(LT: TDateTime; TZOffset: Integer): TDateTime;\r\n\r\n{ RFC 3339 support }\r\n\r\nFunction DateTimeToRFC3339(ADate :TDateTime):string;\r\nFunction DateToRFC3339(ADate :TDateTime):string;\r\nFunction TimeToRFC3339(ADate :TDateTime):string;\r\nFunction TryRFC3339ToDateTime(const Avalue: String; out ADateTime: TDateTime): Boolean;\r\nFunction RFC3339ToDateTime(const Avalue: String): TDateTime;\r\n\r\nfunction DateTimeToMilliseconds(const ADateTime: TDateTime): Int64;\r\nfunction TimeToMilliseconds(const ATime: TTime): Integer;\r\n\r\nType\r\n  {\r\n    Inverse of formatdatetime, destined for the dateutils unit of FPC.\r\n\r\n    Limitations/implementation details:\r\n    - An inverse of FormatDateTime is not 100% an inverse, simply because one can put e.g. time tokens twice in the format string,\r\n         and scandatetime wouldn't know which time to pick.\r\n    - Strings like hn can't be reversed safely. E.g. 1:2 (2 minutes after 1) delivers 12 which is parsed as 12:00 and then\r\n         misses chars for the \"n\" part.\r\n    - trailing characters are ignored.\r\n    - no support for Eastern Asian formatting characters since they are windows only.\r\n    - no MBCS support.\r\n\r\n    Extensions\r\n    - #9 eats whitespace.\r\n    - whitespace at the end of a pattern is optional.\r\n    - ? matches any char.\r\n    - Quote the above chars to really match the char.\r\n  }\r\n\r\n  { TDateTimeScanner }\r\n\r\n  TDateTimeScanner = Class\r\n  Private\r\n    FPattern: String;\r\n    FText: String;\r\n    FPatternOffset,\r\n    FLen,FPatternLen: Integer;\r\n    FPatternPos,FPos : Integer;\r\n    FY,FM,FD : Word;\r\n    FTimeval : TDateTime;\r\n    procedure ArrayMatchError;\r\n    procedure DoDateTime;\r\n    procedure SetPattern(AValue: String);\r\n    procedure SetText(AValue: String);\r\n    function ScanFixedInt(maxv:integer):integer;\r\n    function ScanPatternLength :integer;\r\n    procedure MatchChar(c:char);\r\n    function FindIMatch(const values :array of string; aTerm : string):integer;\r\n    function FindMatch(const Values : array of string):integer;\r\n    Procedure MatchPattern(const aPattern : String);\r\n    Procedure DoYear;\r\n    Procedure DoMonth;\r\n    Procedure DoDay;\r\n    Procedure DoTime;\r\n    Procedure DoAMPM;\r\n  Public\r\n    Function Scan(StartPos: integer = -1) : TDateTime;\r\n    property Pattern : String Read FPattern Write SetPattern;\r\n    Property Text : String Read FText Write SetText;\r\n    Property PatternOffset : Integer Read FPatternOffset;\r\n    Property Position: Integer read FPos;\r\n  end;\r\n\r\n  // Easy access function\r\nFunction ScanDateTime(APattern,AValue: String; APos : integer = 1) : TDateTime;\r\n\r\n{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            Copyright (c) 2022                                      }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\ntype\r\n  TLocalTimeType = (lttStandard, lttDaylight, lttAmbiguous, lttInvalid);\r\n\r\n  ELocalTimeInvalid = class(Exception);\r\n  EDateTimeException = class(Exception);\r\n\r\n  TTimeZone = class abstract(TObject)\r\n  strict private class var\r\n    FLocal: TTimeZone;\r\n  strict private\r\n    function GetAbbreviationForNow: string;\r\n    function GetCurrentUtcOffset: TTimeSpan;\r\n    function GetDisplayNameForNow: string;\r\n    class function GetLocal: TTimeZone;\r\n    function GetUtcOffsetInSeconds(const ADateTime: TDateTime; const AForceDaylight: Boolean): Int64;\r\n  strict protected\r\n    function DoGetDisplayName(const ADateTime: TDateTime; const AForceDaylight: Boolean): string; virtual; abstract;\r\n    function DoGetID: string; virtual; abstract;\r\n    procedure DoGetOffsetsAndType(const ADateTime: TDateTime; out AOffset, ADstSave: Int64; out AType: TLocalTimeType); virtual; abstract;\r\n  public\r\n    function GetAbbreviation(const ADateTime: TDateTime; const AForceDaylight: Boolean = False): string;\r\n    function GetDisplayName(const ADateTime: TDateTime; const AForceDaylight: Boolean = False): string;\r\n    function GetLocalTimeType(const ADateTime: TDateTime): TLocalTimeType; inline;\r\n    function GetUtcOffset(const ADateTime: TDateTime; const AForceDaylight: Boolean = False): TTimeSpan; inline;\r\n    function HasDST: Boolean; overload; inline;\r\n    function HasDST(const AYear: TDateTime): Boolean; overload;\r\n    function IncMilliSecond(const AValue: TDateTime; const ANumberOfMilliSeconds: Int64 = 1): TDateTime;\r\n    function IncSecond(const AValue: TDateTime; const ANumberOfSeconds: Int64 = 1): TDateTime; inline;\r\n    function IsAmbiguousTime(const ADateTime: TDateTime): Boolean; inline;\r\n    function IsDaylightTime(const ADateTime: TDateTime; const AForceDaylight: Boolean = False): Boolean;\r\n    function IsInvalidTime(const ADateTime: TDateTime): Boolean; inline;\r\n    function IsStandardTime(const ADateTime: TDateTime; const AForceDaylight: Boolean = False): Boolean;\r\n    function ToLocalTime(const ADateTime: TDateTime): TDateTime;\r\n    function ToUniversalTime(const ADateTime: TDateTime; const AForceDaylight: Boolean = False): TDateTime; inline;\r\n    property Abbreviation: string read GetAbbreviationForNow;\r\n    property DisplayName: string read GetDisplayNameForNow;\r\n    property ID: string read DoGetID;\r\n    class property Local: TTimeZone read GetLocal;\r\n    property UtcOffset: TTimeSpan read GetCurrentUtcOffset;\r\n  end;\r\n\r\n  TLocalTimeZone = class(TTimeZone)\r\n  strict private\r\n    FDST: TDateUtilsHelper;\r\n  strict protected\r\n    function DoGetDisplayName(const ADateTime: TDateTime; const AForceDaylight: Boolean): string; override;\r\n    function DoGetID: string; override;\r\n    procedure DoGetOffsetsAndType(const ADateTime: TDateTime; out AOffset, ADstSave: Int64; out AType: TLocalTimeType); override;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses js, rtlconsts;\r\n\r\nconst\r\n  TDateTimeEpsilon = 2.2204460493e-16;\r\n  HalfMilliSecond = OneMillisecond /2 ;\r\n\r\nresourcestring\r\n  SLocalTimeInvalid = 'The given \"%s\" local time is invalid (situated within the missing period prior to DST).';\r\n\r\n{ ---------------------------------------------------------------------\r\n    Simple trimming functions.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction DateOf(const AValue: TDateTime): TDateTime;\r\nbegin\r\n  Result:=Trunc(AValue);\r\nend;\r\n\r\n\r\nFunction TimeOf(const AValue: TDateTime): TDateTime;\r\nbegin\r\n  Result:=Frac(Avalue);\r\nend;\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n    Identification functions.\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\nFunction IsInLeapYear(const AValue: TDateTime): Boolean;\r\nbegin\r\n  Result:=IsLeapYear(YearOf(AValue));\r\nend;\r\n\r\n\r\nFunction IsPM(const AValue: TDateTime): Boolean;\r\nbegin\r\n  Result:=(HourOf(AValue)>=12);\r\nend;\r\n\r\n\r\nFunction IsValidMonth(AMonth : Word) : Boolean;\r\n\r\nbegin\r\n  Result:=(AMonth>=1) and (AMonth<=12);\r\nend;\r\n\r\nFunction IsValidDayOfWeek(ADayOfWeek : Word) : Boolean;\r\n\r\nbegin\r\n  Result:=(ADayOfWeek>=1) and (ADayOfWeek<=7);\r\nend;\r\n\r\nFunction IsValidWeekOfMonth(AWeekOfMonth : Word) : Boolean;\r\n\r\nbegin\r\n  Result:=(AWeekOfMonth>=1) and (AWeekOfMonth<=5);\r\nend;\r\n\r\nFunction IsValidDate(const AYear, AMonth, ADay: Word): Boolean;\r\nbegin\r\n  Result:=(AYear<>0) and (AYear<10000)\r\n          and IsValidMonth(AMonth)\r\n          and (ADay<>0) and (ADay<=MonthDays[IsleapYear(AYear),AMonth]);\r\nend;\r\n\r\n\r\nFunction IsValidTime(const AHour, AMinute, ASecond, AMilliSecond: Word): Boolean;\r\nbegin\r\n  Result:=(AHour=HoursPerDay) and (AMinute=0) and (ASecond=0) and (AMillisecond=0);\r\n  Result:=Result or\r\n          ((AHour<HoursPerDay) and (AMinute<MinsPerHour) and (ASecond<SecsPerMin) and\r\n           (AMillisecond<MSecsPerSec));\r\nend;\r\n\r\n\r\nFunction IsValidDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word): Boolean;\r\nbegin\r\n  Result:=IsValidDate(AYear,AMonth,ADay) and\r\n          IsValidTime(AHour,AMinute,ASecond,AMillisecond)\r\nend;\r\n\r\n\r\nFunction IsValidDateDay(const AYear, ADayOfYear: Word): Boolean;\r\nbegin\r\n  Result:=(AYear<>0) and (ADayOfYear<>0) and (AYear<10000) and\r\n          (ADayOfYear<=DaysPerYear[IsLeapYear(AYear)]);\r\nend;\r\n\r\n\r\nFunction IsValidDateWeek(const AYear, AWeekOfYear, ADayOfWeek: Word): Boolean;\r\nbegin\r\n  Result:=(AYear<>0) and (AYear<10000)\r\n          and IsValidDayOfWeek(ADayOfWeek)\r\n          and (AWeekOfYear<>0)\r\n          and (AWeekOfYear<=WeeksInaYear(AYear));\r\n  { should we not also check whether the day of the week is not\r\n    larger than the last day of the last week in the year 9999 ?? }\r\nend;\r\n\r\n\r\nFunction IsValidDateMonthWeek(const AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word): Boolean;\r\n\r\nbegin\r\n  Result:=(AYear<>0) and (AYear<10000)\r\n          and IsValidMonth(AMonth)\r\n          and IsValidWeekOfMonth(AWeekOfMonth)\r\n          and IsValidDayOfWeek(ADayOfWeek);\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Enumeration functions.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction WeeksInYear(const AValue: TDateTime): Word;\r\nbegin\r\n  Result:=WeeksInAYear(YearOf(AValue));\r\nend;\r\n\r\n\r\nFunction WeeksInAYear(const AYear: Word): Word;\r\n\r\nVar\r\n  DOW : Word;\r\n\r\nbegin\r\n  Result:=52;\r\n  DOW:=DayOfTheWeek(StartOfAYear(AYear));\r\n  If (DOW=4) or ((DOW=3) and IsLeapYear(AYear)) then\r\n    Inc(Result);\r\nend;\r\n\r\n\r\nFunction DaysInYear(const AValue: TDateTime): Word;\r\nbegin\r\n  Result:=DaysPerYear[IsLeapYear(YearOf(AValue))];\r\nend;\r\n\r\n\r\nFunction DaysInAYear(const AYear: Word): Word;\r\nbegin\r\n  Result:=DaysPerYear[Isleapyear(AYear)];\r\nend;\r\n\r\n\r\nFunction DaysInMonth(const AValue: TDateTime): Word;\r\n\r\nVar\r\n  Y,M,D : Word;\r\n\r\nbegin\r\n  Decodedate(AValue,Y,M,D);\r\n  Result:=MonthDays[IsLeapYear(Y),M];\r\nend;\r\n\r\n\r\nFunction DaysInAMonth(const AYear, AMonth: Word): Word;\r\nbegin\r\n  Result:=MonthDays[IsLeapYear(AYear),AMonth];\r\nend;\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n    Variations on current date/time.\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\nFunction Today: TDateTime;\r\nbegin\r\n  Result:=Date();\r\nend;\r\n\r\n\r\nFunction Yesterday: TDateTime;\r\nbegin\r\n  Result:=Date()-1;\r\nend;\r\n\r\n\r\nFunction Tomorrow: TDateTime; \r\nbegin\r\n  Result:=Date()+1;\r\nend;\r\n\r\n\r\nFunction IsToday(const AValue: TDateTime): Boolean;\r\nbegin\r\n  Result:=IsSameDay(AValue,Date());\r\nend;\r\n\r\n\r\nFunction IsSameDay(const AValue, ABasis: TDateTime): Boolean;\r\n\r\nVar\r\n  D : TDateTime;\r\n\r\nbegin\r\n  D:=AValue-Trunc(ABasis);\r\n  Result:=(D>=0) and (D<1);\r\nend;\r\n\r\nfunction IsSameMonth(const Avalue, ABasis: TDateTime): Boolean;\r\nbegin\r\n     result:=( YearOf(Avalue) = YearOf(Abasis) );\r\n     result:=result and ( MonthOf(AValue) = MonthOf(ABasis) );\r\nend;\r\n\r\nconst\r\n  DOWMap: array [1..7] of Word = (7, 1, 2, 3, 4, 5, 6);\r\n\r\nFunction PreviousDayOfWeek (DayOfWeek : Word) : Word;\r\n\r\nbegin\r\n  If Not IsValidDayOfWeek(DayOfWeek) then\r\n    Raise EConvertError.CreateFmt(SErrInvalidDayOfWeek,[DayOfWeek]);\r\n  Result:=DOWMap[DayOfWeek];\r\nend;\r\n\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n    Extraction functions.\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\nFunction YearOf(const AValue: TDateTime): Word;\r\n\r\nVar\r\n  D,M : Word;\r\n\r\nbegin\r\n  DecodeDate(AValue,Result,D,M);\r\nend;\r\n\r\n\r\nFunction MonthOf(const AValue: TDateTime): Word;\r\n\r\nVar\r\n  Y,D : Word;\r\n\r\nbegin\r\n  DecodeDate(AValue,Y,Result,D);\r\nend;\r\n\r\n\r\nFunction WeekOf(const AValue: TDateTime): Word;\r\nbegin\r\n  Result:=WeekOfTheYear(AValue);\r\nend;\r\n\r\n\r\nFunction DayOf(const AValue: TDateTime): Word;\r\n\r\nVar\r\n  Y,M : Word;\r\n\r\nbegin\r\n  DecodeDate(AValue,Y,M,Result);\r\nend;\r\n\r\n\r\nFunction HourOf(const AValue: TDateTime): Word;\r\n\r\nVar\r\n  N,S,MS : Word;\r\n\r\nbegin\r\n  DecodeTime(AValue,Result,N,S,MS);\r\nend;\r\n\r\n\r\nFunction MinuteOf(const AValue: TDateTime): Word;\r\n\r\nVar\r\n  H,S,MS : Word;\r\n\r\nbegin\r\n  DecodeTime(AValue,H,Result,S,MS);\r\nend;\r\n\r\n\r\nFunction SecondOf(const AValue: TDateTime): Word;\r\n\r\nVar\r\n  H,N,MS : Word;\r\n\r\nbegin\r\n  DecodeTime(AValue,H,N,Result,MS);\r\nend;\r\n\r\n\r\nFunction MilliSecondOf(const AValue: TDateTime): Word;\r\n\r\nVar\r\n  H,N,S : Word;\r\n\r\nbegin\r\n  DecodeTime(AValue,H,N,S,Result);\r\nend;\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n    Start/End of year functions.\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\nFunction StartOfTheYear(const AValue: TDateTime): TDateTime;\r\nbegin\r\n  Result:=EncodeDate(YearOf(AValue),1,1);\r\nend;\r\n\r\n\r\nFunction EndOfTheYear(const AValue: TDateTime): TDateTime;\r\nbegin\r\n  Result:=EncodeDateTime(YearOf(AValue),12,31,23,59,59,999);\r\nend;\r\n\r\n\r\nFunction StartOfAYear(const AYear: Word): TDateTime;\r\nbegin\r\n  Result:=EncodeDate(AYear,1,1);\r\nend;\r\n\r\n\r\nFunction EndOfAYear(const AYear: Word): TDateTime;\r\n\r\nbegin\r\n  Result:=(EncodeDateTime(AYear,12,31,23,59,59,999));\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Start/End of month functions.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction StartOfTheMonth(const AValue: TDateTime): TDateTime;\r\n\r\nVar\r\n  Y,M,D : Word;\r\n\r\nbegin\r\n  DecodeDate(AValue,Y,M,D);\r\n  Result:=EncodeDate(Y,M,1);\r\n//  MonthDays[IsLeapYear(Y),M])\r\nend;\r\n\r\n\r\nFunction EndOfTheMonth(const AValue: TDateTime): TDateTime;\r\n\r\nVar\r\n  Y,M,D : Word;\r\n\r\nbegin\r\n  DecodeDate(AValue,Y,M,D);\r\n  Result:=EncodeDateTime(Y,M,MonthDays[IsLeapYear(Y),M],23,59,59,999);\r\nend;\r\n\r\n\r\nFunction StartOfAMonth(const AYear, AMonth: Word): TDateTime;\r\nbegin\r\n  Result:=EncodeDate(AYear,AMonth,1);\r\nend;\r\n\r\n\r\nFunction EndOfAMonth(const AYear, AMonth: Word): TDateTime;\r\n\r\nbegin\r\n  Result:=EncodeDateTime(AYear,AMonth,MonthDays[IsLeapYear(AYear),AMonth],23,59,59,999);\r\nend;\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n    Start/End of week functions.\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\nFunction StartOfTheWeek(const AValue: TDateTime): TDateTime;\r\nbegin\r\n  Result:=Trunc(AValue)-DayOfTheWeek(AValue)+1;\r\nend;\r\n\r\n\r\nFunction EndOfTheWeek(const AValue: TDateTime): TDateTime;\r\nbegin\r\n  Result:=EndOfTheDay(AValue-DayOfTheWeek(AValue)+7);\r\nend;\r\n\r\n\r\nFunction StartOfAWeek(const AYear, AWeekOfYear: Word; const ADayOfWeek: Word): TDateTime;\r\nbegin\r\n  Result:=EncodeDateWeek(AYear,AWeekOfYear,ADayOfWeek);\r\nend;\r\n\r\n\r\nFunction StartOfAWeek(const AYear, AWeekOfYear: Word): TDateTime;  // ADayOFWeek 1\r\nbegin\r\n  Result:=StartOfAWeek(AYear,AWeekOfYear,1)\r\nend;\r\n\r\n\r\nFunction EndOfAWeek(const AYear, AWeekOfYear: Word; const ADayOfWeek: Word): TDateTime;\r\nbegin\r\n  Result := EndOfTheDay(EncodeDateWeek(AYear, AWeekOfYear, ADayOfWeek));\r\nend;\r\n\r\n\r\nFunction EndOfAWeek(const AYear, AWeekOfYear: Word): TDateTime; // const ADayOfWeek: Word = 7\r\n\r\n\r\nbegin\r\n  Result:=EndOfAWeek(AYear,AWeekOfYear,7);\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Start/End of day functions.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction StartOfTheDay(const AValue: TDateTime): TDateTime;\r\nbegin\r\n  Result:=Trunc(Avalue);\r\nend;\r\n\r\n\r\nFunction EndOfTheDay(const AValue: TDateTime): TDateTime;\r\n\r\nVar\r\n  Y,M,D : Word;\r\n\r\nbegin\r\n  DecodeDate(AValue,Y,M,D);\r\n  Result:=EncodeDateTime(Y,M,D,23,59,59,999);\r\nend;\r\n\r\n\r\nFunction StartOfADay(const AYear, AMonth, ADay: Word): TDateTime;\r\nbegin\r\n  Result:=EncodeDate(AYear,AMonth,ADay);\r\nend;\r\n\r\n\r\nFunction StartOfADay(const AYear, ADayOfYear: Word): TDateTime;\r\nbegin\r\n  Result:=StartOfAYear(AYear)+ADayOfYear-1;\r\nend;\r\n\r\n\r\nFunction EndOfADay(const AYear, AMonth, ADay: Word): TDateTime;\r\nbegin\r\n  Result:=EndOfTheDay(EncodeDate(AYear,AMonth,ADay));\r\nend;\r\n\r\n\r\nFunction EndOfADay(const AYear, ADayOfYear: Word): TDateTime;\r\n\r\n\r\nbegin\r\n  Result:=StartOfAYear(AYear)+ADayOfYear-1+EncodeTime(23,59,59,999);\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Part of year functions.\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\nFunction MonthOfTheYear(const AValue: TDateTime): Word;\r\nbegin\r\n  Result:=MonthOf(AValue);\r\nend;\r\n\r\n\r\nFunction WeekOfTheYear(const AValue: TDateTime): Word;\r\n\r\nVar\r\n  Y,DOW : Word;\r\n\r\nbegin\r\n  DecodeDateWeek(AValue,Y,Result,DOW)\r\nend;\r\n\r\n\r\nFunction WeekOfTheYear(const AValue: TDateTime; out AYear: Word): Word;\r\n\r\nVar\r\n  DOW : Word;\r\n\r\nbegin\r\n  DecodeDateWeek(AValue,AYear,Result,DOW);\r\nend;\r\n\r\n\r\nFunction DayOfTheYear(const AValue: TDateTime): Word;\r\nbegin\r\n  Result:=Trunc(AValue-StartOfTheYear(AValue)+1);\r\nend;\r\n\r\n\r\nFunction HourOfTheYear(const AValue: TDateTime): Word;\r\n\r\nVar\r\n  H,M,S,MS : Word;\r\n\r\nbegin\r\n  DecodeTime(AValue,H,M,S,MS);\r\n  Result:=H+((DayOfTheYear(AValue)-1)*24);\r\nend;\r\n\r\n\r\nFunction MinuteOfTheYear(const AValue: TDateTime): LongWord;\r\n\r\nVar\r\n  H,M,S,MS : Word;\r\n\r\nbegin\r\n  DecodeTime(AValue,H,M,S,MS);\r\n  Result:=M+(H+((DayOfTheYear(AValue)-1)*24))*60;\r\nend;\r\n\r\n\r\nFunction SecondOfTheYear(const AValue: TDateTime): LongWord;\r\n\r\nVar\r\n  H,M,S,MS : Word;\r\n\r\nbegin\r\n  DecodeTime(AValue,H,M,S,MS);\r\n  Result:=(M+(H+((DayOfTheYear(AValue)-1)*24))*60)*60+S;\r\nend;\r\n\r\n\r\nFunction MilliSecondOfTheYear(const AValue: TDateTime): NativeLargeInt;\r\n\r\nVar\r\n  H,M,S,MS : Word;\r\n\r\nbegin\r\n  DecodeTime(AValue,H,M,S,MS);\r\n  Result:=((M+(H+((NativeLargeInt(DayOfTheYear(AValue))-1)*24))*60)*60+S)*1000+MS;\r\nend;\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n    Part of month functions.\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\nFunction WeekOfTheMonth(const AValue: TDateTime): Word;\r\n\r\nvar\r\n  Y,M,DOW : word;\r\n\r\nbegin\r\n  DecodeDateMonthWeek(AValue,Y,M,Result,DOW);\r\nend;\r\n\r\n\r\nFunction WeekOfTheMonth(const AValue: TDateTime; out AYear, AMonth: Word): Word;\r\n\r\nVar\r\n  DOW : Word;\r\n\r\nbegin\r\n  DecodeDateMonthWeek(AValue,AYear,AMonth,Result,DOW);\r\nend;\r\n\r\n\r\nFunction DayOfTheMonth(const AValue: TDateTime): Word;\r\n\r\nVar\r\n  Y,M : Word;\r\n\r\nbegin\r\n  DecodeDate(AValue,Y,M,Result);\r\nend;\r\n\r\n\r\nFunction HourOfTheMonth(const AValue: TDateTime): Word;\r\n\r\nVar\r\n  Y,M,D,H,N,S,MS : Word;\r\n\r\nbegin\r\n  DecodeDateTime(AValue,Y,M,D,H,N,S,MS);\r\n  Result:=(D-1)*24+H;\r\nend;\r\n\r\n\r\nFunction MinuteOfTheMonth(const AValue: TDateTime): Word;\r\n\r\nVar\r\n  Y,M,D,H,N,S,MS : Word;\r\n\r\nbegin\r\n  DecodeDateTime(AValue,Y,M,D,H,N,S,MS);\r\n  Result:=((D-1)*24+H)*60+N;\r\nend;\r\n\r\n\r\nFunction SecondOfTheMonth(const AValue: TDateTime): LongWord;\r\n\r\nVar\r\n  Y,M,D,H,N,S,MS : Word;\r\n\r\nbegin\r\n  DecodeDateTime(AValue,Y,M,D,H,N,S,MS);\r\n  Result:=(((D-1)*24+H)*60+N)*60+S;\r\nend;\r\n\r\n\r\nFunction MilliSecondOfTheMonth(const AValue: TDateTime): LongWord;\r\n\r\nVar\r\n  Y,M,D,H,N,S,MS : Word;\r\n\r\nbegin\r\n  DecodeDateTime(AValue,Y,M,D,H,N,S,MS);\r\n  Result:=((((D-1)*24+H)*60+N)*60+S)*1000+MS;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Part of week functions.\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\nFunction DayOfTheWeek(const AValue: TDateTime): Word;\r\n\r\nbegin\r\n  Result:=DowMAP[DayOfWeek(AValue)];\r\nend;\r\n\r\n\r\nFunction HourOfTheWeek(const AValue: TDateTime): Word;\r\n\r\nVar\r\n  H,M,S,MS : Word;\r\n\r\nbegin\r\n  DecodeTime(AValue,H,M,S,MS);\r\n  Result:=(DayOfTheWeek(AValue)-1)*24+H;\r\nend;\r\n\r\n\r\nFunction MinuteOfTheWeek(const AValue: TDateTime): Word;\r\n\r\nVar\r\n  H,M,S,MS : Word;\r\n\r\nbegin\r\n  DecodeTime(AValue,H,M,S,MS);\r\n  Result:=((DayOfTheWeek(AValue)-1)*24+H)*60+M;\r\nend;\r\n\r\n\r\nFunction SecondOfTheWeek(const AValue: TDateTime): LongWord;\r\n\r\nVar\r\n  H,M,S,MS : Word;\r\n\r\nbegin\r\n  DecodeTime(AValue,H,M,S,MS);\r\n  Result:=(((DayOfTheWeek(AValue)-1)*24+H)*60+M)*60+S;\r\nend;\r\n\r\n\r\nFunction MilliSecondOfTheWeek(const AValue: TDateTime): LongWord;\r\n\r\n\r\nVar\r\n  H,M,S,MS : Word;\r\n\r\nbegin\r\n  DecodeTime(AValue,H,M,S,MS);\r\n  Result:=((((DayOfTheWeek(AValue)-1)*24+H)*60+M)*60+S)*1000+MS;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Part of day functions.\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\nFunction HourOfTheDay(const AValue: TDateTime): Word;\r\nbegin\r\n  Result:=HourOf(AValue);\r\nend;\r\n\r\n\r\nFunction MinuteOfTheDay(const AValue: TDateTime): Word;\r\n\r\nVar\r\n  H,M,S,MS : Word;\r\n\r\nbegin\r\n  DecodeTime(AValue,H,M,S,MS);\r\n  Result:=(H*60)+M;\r\nend;\r\n\r\n\r\nFunction SecondOfTheDay(const AValue: TDateTime): LongWord;\r\n\r\nVar\r\n  H,M,S,MS : Word;\r\n\r\nbegin\r\n  DecodeTime(AValue,H,M,S,MS);\r\n  Result:=((H*60)+M)*60+S;\r\nend;\r\n\r\n\r\nFunction MilliSecondOfTheDay(const AValue: TDateTime): LongWord;\r\n\r\nVar\r\n  H,M,S,MS : Word;\r\n\r\nbegin\r\n  DecodeTime(AValue,H,M,S,MS);\r\n  Result:=(((H*60)+M)*60+S)*1000+MS;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Part of hour functions.\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\nFunction MinuteOfTheHour(const AValue: TDateTime): Word;\r\nbegin\r\n  Result:=MinuteOf(AValue);\r\nend;\r\n\r\n\r\nFunction SecondOfTheHour(const AValue: TDateTime): Word;\r\n\r\nVar\r\n  H,S,M,MS : Word;\r\n\r\nbegin\r\n  DecodeTime(AValue,H,M,S,MS);\r\n  Result:=M*60+S;\r\nend;\r\n\r\n\r\nFunction MilliSecondOfTheHour(const AValue: TDateTime): LongWord;\r\n\r\nVar\r\n  H,S,M,MS : Word;\r\n\r\nbegin\r\n  DecodeTime(AValue,H,M,S,MS);\r\n  Result:=(M*60+S)*1000+MS;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Part of minute functions.\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\nFunction SecondOfTheMinute(const AValue: TDateTime): Word;\r\nbegin\r\n  Result:=SecondOf(AValue);\r\nend;\r\n\r\n\r\nFunction MilliSecondOfTheMinute(const AValue: TDateTime): LongWord;\r\n\r\nVar\r\n  H,S,M,MS : Word;\r\n\r\nbegin\r\n  DecodeTime(AValue,H,M,S,MS);\r\n  Result:=S*1000+MS;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Part of second functions.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction MilliSecondOfTheSecond(const AValue: TDateTime): Word;\r\nbegin\r\n  Result:=MilliSecondOf(AValue);\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Range checking functions.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction WithinPastYears(const ANow, AThen: TDateTime; const AYears: Integer): Boolean;\r\nbegin\r\n  Result:=YearsBetween(ANow,AThen)<=AYears;\r\nend;\r\n\r\n\r\nFunction WithinPastMonths(const ANow, AThen: TDateTime; const AMonths: Integer): Boolean;\r\nbegin\r\n  Result:=MonthsBetween(ANow,AThen)<=AMonths;\r\nend;\r\n\r\n\r\nFunction WithinPastWeeks(const ANow, AThen: TDateTime; const AWeeks: Integer): Boolean;\r\nbegin\r\n  Result:=WeeksBetween(ANow,AThen)<=AWeeks;\r\nend;\r\n\r\n\r\nFunction WithinPastDays(const ANow, AThen: TDateTime; const ADays: Integer): Boolean;\r\nbegin\r\n  Result:=DaysBetween(ANow,AThen)<=ADays;\r\nend;\r\n\r\n\r\nFunction WithinPastHours(const ANow, AThen: TDateTime; const AHours: NativeLargeInt): Boolean;\r\nbegin\r\n  Result:=HoursBetween(ANow,AThen)<=AHours;\r\nend;\r\n\r\n\r\nFunction WithinPastMinutes(const ANow, AThen: TDateTime; const AMinutes: NativeLargeInt): Boolean;\r\nbegin\r\n  Result:=MinutesBetween(ANow,AThen)<=AMinutes;\r\nend;\r\n\r\n\r\nFunction WithinPastSeconds(const ANow, AThen: TDateTime; const ASeconds: NativeLargeInt): Boolean;\r\nbegin\r\n  Result:=SecondsBetween(ANow,Athen)<=ASeconds;\r\nend;\r\n\r\n\r\nFunction WithinPastMilliSeconds(const ANow, AThen: TDateTime; const AMilliSeconds: NativeLargeInt): Boolean;\r\nbegin\r\n  Result:=MilliSecondsBetween(ANow,AThen)<=AMilliSeconds;\r\nend;\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n    Period functions.\r\n  ---------------------------------------------------------------------}\r\n\r\n{\r\n  These functions are declared as approximate by Borland.\r\n  A bit strange, since it can be calculated exactly ?\r\n\r\n  -- No, because you need rounding or truncating (JM)\r\n}\r\n\r\n\r\nFunction DateTimeDiff(const ANow, AThen: TDateTime): TDateTime;\r\nbegin\r\n  Result:= ANow - AThen;\r\n  if (ANow>0) and (AThen<0) then\r\n    Result:=Result-0.5\r\n  else if (ANow<-1.0) and (AThen>-1.0) then\r\n    Result:=Result+0.5;\r\nend;\r\n\r\n\r\nFunction YearsBetween(const ANow, AThen: TDateTime; AExact : Boolean = False): Integer;\r\n\r\nvar\r\n  yy, mm, dd: Word;\r\n  \r\nbegin\r\n  if AExact and (ANow >= -DateDelta) and (AThen >= -DateDelta) and\r\n     (ANow <= MaxDateTime) and (AThen <= MaxDateTime) then\r\n    begin\r\n    PeriodBetween(ANow, AThen, yy , mm, dd);\r\n    Result := yy;\r\n    end\r\n  else\r\n    Result:=Trunc((Abs(DateTimeDiff(ANow,AThen))+HalfMilliSecond)/ApproxDaysPerYear);\r\nend;\r\n\r\n\r\nFunction MonthsBetween(const ANow, AThen: TDateTime; AExact : Boolean = False): Integer;\r\n\r\nvar\r\n  y, m, d: Word;\r\n\r\nbegin\r\n  if AExact and (ANow >= -DateDelta) and (AThen >= -DateDelta) and\r\n     (ANow <= MaxDateTime) and (AThen <= MaxDateTime) then\r\n    begin\r\n    PeriodBetween(ANow, AThen, y, m, d);\r\n    Result := y*12 + m;\r\n    end\r\n  else\r\n    Result:=Trunc((Abs(DateTimeDiff(ANow,AThen))+HalfMilliSecond)/ApproxDaysPerMonth);\r\nend;\r\n\r\n\r\nFunction WeeksBetween(const ANow, AThen: TDateTime): Integer;\r\nbegin\r\n  Result:=Trunc(Abs(DateTimeDiff(ANow,AThen))+HalfMilliSecond) div 7;\r\nend;\r\n\r\n\r\nFunction DaysBetween(const ANow, AThen: TDateTime): Integer;\r\nbegin\r\n  Result:=Trunc(Abs(DateTimeDiff(ANow,AThen))+HalfMilliSecond);\r\nend;\r\n\r\n\r\nFunction HoursBetween(const ANow, AThen: TDateTime): NativeLargeInt;\r\nbegin\r\n  Result:=Trunc((Abs(DateTimeDiff(ANow,AThen))+HalfMilliSecond)*HoursPerDay);\r\nend;\r\n\r\n\r\nFunction MinutesBetween(const ANow, AThen: TDateTime): NativeLargeInt;\r\nbegin\r\n  Result:=Trunc((Abs(DateTimeDiff(ANow,AThen))+HalfMilliSecond)*MinsPerDay);\r\nend;\r\n\r\n\r\nFunction SecondsBetween(const ANow, AThen: TDateTime): NativeLargeInt;\r\nbegin\r\n  Result:=Trunc((Abs(DateTimeDiff(ANow,AThen))+HalfMilliSecond)*SecsPerDay);\r\nend;\r\n\r\n\r\nFunction MilliSecondsBetween(const ANow, AThen: TDateTime): NativeLargeInt;\r\nbegin\r\n  Result:=Trunc((Abs(DateTimeDiff(ANow,AThen))+HalfMilliSecond)*MSecsPerDay);\r\nend;\r\n\r\nProcedure PeriodBetween(Const ANow, AThen: TDateTime; Out Years, months, days : Word); \r\n\r\nvar\r\n  Y1, Y2, M1, M2, D1, D2: word;\r\n\r\nbegin\r\n  if (AThen>ANow) then\r\n    begin\r\n    DecodeDate(ANow,Y1,M1,D1);\r\n    DecodeDate(AThen,Y2,M2,D2);\r\n    end\r\n  else\r\n    begin  \r\n    DecodeDate(AThen,Y1,M1,D1);\r\n    DecodeDate(ANow,Y2,M2,D2);\r\n    end;\r\n  Years:=Y2-Y1;\r\n  if (M1>M2) or ((M1=M2) and (D1>D2)) then Dec(Years);\r\n  if (M1>M2) then Inc(M2,12); //already adjusted Years in that case\r\n  Months:=M2-M1;\r\n  if (D2>=D1) then\r\n    Days:=D2-D1\r\n  else\r\n    begin\r\n    if (Months=0) then\r\n      Months:=11\r\n    else\r\n      Dec(Months);\r\n    Days:=(DaysInAMonth(Y1,M1)-D1)+D2;\r\n    end;\r\nend;                    \r\n\r\n{ ---------------------------------------------------------------------\r\n    Timespan in xxx functions.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction YearSpan(const ANow, AThen: TDateTime): Double;\r\nbegin\r\n  Result:=Abs(DateTimeDiff(ANow,AThen))/ApproxDaysPerYear;\r\nend;\r\n\r\n\r\nFunction MonthSpan(const ANow, AThen: TDateTime): Double;\r\nbegin\r\n  Result:=Abs(DateTimeDiff(ANow,AThen))/ApproxDaysPerMonth;\r\nend;\r\n\r\n\r\nFunction WeekSpan(const ANow, AThen: TDateTime): Double;\r\nbegin\r\n  Result:=Abs(DateTimeDiff(ANow,AThen)) / 7\r\nend;\r\n\r\n\r\nFunction DaySpan(const ANow, AThen: TDateTime): Double;\r\nbegin\r\n  Result:=Abs(DateTimeDiff(ANow,AThen));\r\nend;\r\n\r\n\r\nFunction HourSpan(const ANow, AThen: TDateTime): Double;\r\nbegin\r\n  Result:=Abs(DateTimeDiff(ANow,AThen))*HoursPerDay;\r\nend;\r\n\r\n\r\nFunction MinuteSpan(const ANow, AThen: TDateTime): Double;\r\nbegin\r\n  Result:=Abs(DateTimeDiff(ANow,AThen))*MinsPerDay;\r\nend;\r\n\r\n\r\nFunction SecondSpan(const ANow, AThen: TDateTime): Double;\r\nbegin\r\n  Result:=Abs(DateTimeDiff(ANow,AThen))*SecsPerDay;\r\nend;\r\n\r\n\r\nFunction MilliSecondSpan(const ANow, AThen: TDateTime): Double;\r\nbegin\r\n  Result:=Abs(DateTimeDiff(ANow,AThen))*MSecsPerDay;\r\nend;\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n    Increment/decrement functions.\r\n  ---------------------------------------------------------------------}\r\n\r\n{ TDateTime is not defined in the interval [-1.0..0.0[. Additionally, when\r\n  negative the time part must be treated using its absolute value (0.25 always\r\n  means \"6 a.m.\") -> skip the gap and convert the time part when crossing the\r\n  gap -- and take care of rounding errors }\r\nProcedure MaybeSkipTimeWarp(OldDate: TDateTime; var NewDate: TDateTime);\r\nbegin\r\n  if (OldDate>=0) and (NewDate<-TDateTimeEpsilon) then\r\n    NewDate:=int(NewDate-1.0+TDateTimeEpsilon)-frac(1.0+frac(NewDate))\r\n  else if (OldDate<=-1.0) and (NewDate>-1.0+TDateTimeEpsilon) then\r\n    NewDate:=int(NewDate+1.0-TDateTimeEpsilon)+frac(1.0-abs(frac(1.0+NewDate)));\r\nend;\r\n\r\n\r\nfunction IncNegativeTime(AValue, Addend: TDateTime): TDateTime;\r\nvar\r\n  newtime: tdatetime;\r\nbegin\r\n  newtime:=-frac(Avalue)+frac(Addend);\r\n  { handle rounding errors }\r\n  if SameValue(newtime,int(newtime)+1,TDateTimeEpsilon) then\r\n    newtime:=int(newtime)+1\r\n  else if SameValue(newtime,int(newtime),TDateTimeEpsilon) then\r\n    newtime:=int(newtime);\r\n  { time underflow -> previous day }\r\n  if newtime<-TDateTimeEpsilon then\r\n    begin\r\n      newtime:=1.0+newtime;\r\n      avalue:=int(avalue)-1;\r\n    end\r\n  { time overflow -> next day }\r\n  else if newtime>=1.0-TDateTimeEpsilon then\r\n    begin\r\n      newtime:=newtime-1.0;\r\n      avalue:=int(avalue)+1;\r\n    end;\r\n  Result:=int(AValue)+int(Addend)-newtime;\r\nend;\r\n\r\nFunction IncYear(const AValue: TDateTime; const ANumberOfYears: Integer ): TDateTime;\r\n\r\nVar\r\n  Y,M,D,H,N,S,MS : Word;\r\nbegin\r\n  DecodeDateTime(AValue,Y,M,D,H,N,S,MS);\r\n  Y:=Y+ANumberOfYears;\r\n  If (M=2) and (D=29) And (Not IsLeapYear(Y)) then\r\n    D:=28;\r\n  Result:=EncodeDateTime(Y,M,D,H,N,S,MS);\r\nend;\r\n\r\n\r\nFunction IncYear(const AValue: TDateTime): TDateTime; // ; const ANumberOfYears: Integer = 1)\r\nbegin\r\n  Result:=IncYear(Avalue,1);\r\nend;\r\n\r\n\r\nFunction IncWeek(const AValue: TDateTime; const ANumberOfWeeks: Integer): TDateTime;\r\nbegin\r\n  Result:=AValue+ANumberOfWeeks*7;\r\n  MaybeSkipTimeWarp(AValue,Result);\r\nend;\r\n\r\n\r\nFunction IncWeek(const AValue: TDateTime): TDateTime; // ; const ANumberOfWeeks: Integer = 1)\r\nbegin\r\n  Result:=IncWeek(Avalue,1);\r\nend;\r\n\r\n\r\nFunction IncDay(const AValue: TDateTime; const ANumberOfDays: Integer): TDateTime;\r\nbegin\r\n  Result:=AValue+ANumberOfDays;\r\n  MaybeSkipTimeWarp(AValue,Result);\r\nend;\r\n\r\n\r\nFunction IncDay(const AValue: TDateTime): TDateTime; //; const ANumberOfDays: Integer = 1)\r\nbegin\r\n  Result:=IncDay(Avalue,1);\r\nend;\r\n\r\n\r\nFunction IncHour(const AValue: TDateTime; const ANumberOfHours: NativeLargeInt): TDateTime;\r\nbegin\r\n  if AValue>=0 then\r\n    Result:=AValue+ANumberOfHours/HoursPerDay\r\n  else\r\n    Result:=IncNegativeTime(Avalue,ANumberOfHours/HoursPerDay);\r\n  MaybeSkipTimeWarp(AValue,Result);\r\nend;\r\n\r\n\r\nFunction IncHour(const AValue: TDateTime): TDateTime; //; const ANumberOfHours: NativeLargeInt = 1\r\nbegin\r\n  Result:=IncHour(AValue,1);\r\nend;\r\n\r\n\r\nFunction IncMinute(const AValue: TDateTime; const ANumberOfMinutes: NativeLargeInt): TDateTime;\r\nbegin\r\n  if AValue>=0 then\r\n    Result:=AValue+ANumberOfMinutes/MinsPerDay\r\n  else\r\n    Result:=IncNegativeTime(Avalue,ANumberOfMinutes/MinsPerDay);\r\n  MaybeSkipTimeWarp(AValue,Result);\r\nend;\r\n\r\n\r\nFunction IncMinute(const AValue: TDateTime): TDateTime; // ; const ANumberOfMinutes: NativeLargeInt = 1\r\nbegin\r\n  Result:=IncMinute(AValue,1);\r\nend;\r\n\r\n\r\nFunction IncSecond(const AValue: TDateTime; const ANumberOfSeconds: NativeLargeInt): TDateTime;\r\nbegin\r\n  if AValue>=0 then\r\n    Result:=AValue+ANumberOfSeconds/SecsPerDay\r\n  else\r\n    Result:=IncNegativeTime(Avalue,ANumberOfSeconds/SecsPerDay);\r\n  MaybeSkipTimeWarp(AValue,Result);\r\nend;\r\n\r\n\r\nFunction IncSecond(const AValue: TDateTime): TDateTime; // ; const ANumberOfSeconds: NativeLargeInt = 1\r\nbegin\r\n  Result:=IncSecond(Avalue,1);\r\nend;\r\n\r\n\r\nFunction IncMilliSecond(const AValue: TDateTime; const ANumberOfMilliSeconds: NativeLargeInt): TDateTime;\r\nbegin\r\n  if Avalue>=0 then\r\n    Result:=AValue+ANumberOfMilliSeconds/MSecsPerDay\r\n  else\r\n    Result:=IncNegativeTime(Avalue,ANumberOfMilliSeconds/MSecsPerDay);\r\n  MaybeSkipTimeWarp(AValue,Result);\r\nend;\r\n\r\n\r\nFunction IncMilliSecond(const AValue: TDateTime): TDateTime; // ; const ANumberOfMilliSeconds: NativeLargeInt = 1\r\nbegin\r\n  Result:=IncMilliSecond(AValue,1);\r\nend;\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n    Encode/Decode of complete timestamp\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\nFunction EncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word): TDateTime;\r\nbegin\r\n  If Not TryEncodeDateTime(AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond,Result) then\r\n    InvalidDateTimeError(AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond)\r\nend;\r\n\r\n\r\nProcedure DecodeDateTime(const AValue: TDateTime; out AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word);\r\nbegin\r\n  DecodeTime(AValue,AHour,AMinute,ASecond,AMilliSecond);\r\n  if AHour=24 then // can happen due rounding issues mantis 17123\r\n    begin\r\n      AHour:=0; // rest is already zero\r\n      DecodeDate(round(AValue),AYear,AMonth,ADay);\r\n    end\r\n  else\r\n    DecodeDate(AValue,AYear,AMonth,ADay);\r\nend;\r\n\r\n\r\nFunction TryEncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word; out AValue: TDateTime): Boolean;\r\n\r\nVar\r\n tmp : TDateTime;\r\n\r\nbegin\r\n  Result:=TryEncodeDate(AYear,AMonth,ADay,AValue);\r\n  Result:=Result and TryEncodeTime(AHour,AMinute,ASecond,Amillisecond,Tmp);\r\n  If Result then\r\n    Avalue:=ComposeDateTime(AValue,Tmp);\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Encode/decode date, specifying week of year and day of week\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction EncodeDateWeek(const AYear, AWeekOfYear: Word; const ADayOfWeek: Word): TDateTime;\r\nbegin\r\n  If Not TryEncodeDateWeek(AYear,AWeekOfYear,Result,ADayOfWeek) then\r\n    InvalidDateWeekError(AYear,AWeekOfYear,ADayOfWeek);\r\nend;\r\n\r\n\r\nFunction EncodeDateWeek(const AYear, AWeekOfYear: Word): TDateTime; //; const ADayOfWeek: Word = 1\r\nbegin\r\n  Result := EncodeDateWeek(AYear,AWeekOfYear,1);\r\nend;\r\n\r\n\r\nProcedure DecodeDateWeek(const AValue: TDateTime; out AYear, AWeekOfYear, ADayOfWeek: Word);\r\n\r\nvar\r\n  DOY : Integer;\r\n  D: Word;\r\n  YS : TDateTime;\r\n  YSDOW, YEDOW: Word;\r\n\r\nbegin\r\n  AYear:=YearOf(AValue);\r\n  // Correct to ISO DOW\r\n  ADayOfWeek:=DayOfWeek(AValue)-1;\r\n  If ADAyOfWeek=0 then\r\n    ADayofweek:=7;\r\n  YS:=StartOfAYear(AYear);\r\n  DOY:=Trunc(AValue-YS)+1;\r\n  YSDOW:=DayOfTheWeek(YS);\r\n  // Correct week if later than wednesday. First week never starts later than wednesday\r\n  if (YSDOW<5) then\r\n    Inc(DOY,YSDOW-1)\r\n  else\r\n    Dec(DOY,8-YSDOW);\r\n  if (DOY<=0) then // Day is in last week of previous year.\r\n    DecodeDateWeek(YS-1,AYear,AWeekOfYear,D)\r\n  else\r\n    begin\r\n    AWeekOfYear:=DOY div 7;\r\n    if ((DOY mod 7)<>0) then\r\n      Inc(AWeekOfYear);\r\n    if (AWeekOfYear>52) then // Maybe in first week of next year ?\r\n      begin\r\n      YEDOW:=YSDOW;\r\n      if IsLeapYear(AYear) then\r\n        begin\r\n        Inc(YEDOW);\r\n        if (YEDOW>7) then\r\n          YEDOW:=1;\r\n        end;\r\n      if (YEDOW<4) then // Really next year.\r\n        begin\r\n        Inc(AYear);\r\n        AWeekOfYear:=1;\r\n        end;\r\n      end;\r\n  end;\r\nend;\r\n\r\n\r\n\r\nFunction TryEncodeDateWeek(const AYear, AWeekOfYear: Word; out AValue: TDateTime; const ADayOfWeek: Word): Boolean;\r\n\r\nVar\r\n  DOW : Word;\r\n  Rest : Integer;\r\n\r\nbegin\r\n  Result:=IsValidDateWeek(Ayear,AWeekOfYear,ADayOfWeek);\r\n  If Result then\r\n    begin\r\n    AValue:=EncodeDate(AYear,1,1)+(7*(AWeekOfYear-1));\r\n    DOW:=DayOfTheWeek(AValue);\r\n    Rest:=ADayOfWeek-DOW;\r\n    If (DOW>4) then\r\n      Inc(Rest,7);\r\n    AValue:=AValue+Rest;\r\n    end;\r\nend;\r\n\r\n\r\nFunction TryEncodeDateWeek(const AYear, AWeekOfYear: Word; out AValue: TDateTime): Boolean; //; const ADayOfWeek: Word = 1\r\nbegin\r\n  Result:=TryEncodeDateWeek(AYear,AWeekOfYear,AValue,1);\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Encode/decode date, specifying day of year\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction EncodeDateDay(const AYear, ADayOfYear: Word): TDateTime;\r\nbegin\r\n  If Not TryEncodeDateDay(AYear,ADayOfYear,Result) then\r\n    InvalidDateDayError(AYear,ADayOfYear);\r\nend;\r\n\r\n\r\nProcedure DecodeDateDay(const AValue: TDateTime; out AYear, ADayOfYear: Word);\r\n\r\nVar\r\n  M,D : Word;\r\n\r\nbegin\r\n  DecodeDate(AValue,AYear,M,D);\r\n  ADayOfyear:=Trunc(AValue-EncodeDate(AYear,1,1))+1;\r\nend;\r\n\r\n\r\nFunction TryEncodeDateDay(const AYear, ADayOfYear: Word; out AValue: TDateTime): Boolean;\r\nbegin\r\n  Result:=(ADayOfYear<>0) and (ADayOfYear<=DaysPerYear [IsleapYear(AYear)]);\r\n  If Result then\r\n    AValue:=EncodeDate(AYear,1,1)+ADayOfYear-1;\r\nend;\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n    Encode/decode date, specifying week of month\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\nFunction EncodeDateMonthWeek(const AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word): TDateTime;\r\nbegin\r\n  If Not TryEncodeDateMonthWeek(Ayear,AMonth,AWeekOfMonth,ADayOfWeek,Result) then\r\n    InvalidDateMonthWeekError(AYear,AMonth,AWeekOfMonth,ADayOfWeek);\r\nend;\r\n\r\nProcedure DecodeDateMonthWeek(const AValue: TDateTime; out AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word);\r\n\r\nVar\r\n  D,SDOM,EDOM : Word;\r\n  SOM : TdateTime;\r\n  DOM : Integer;\r\nbegin\r\n  DecodeDate(AValue,AYear,AMonth,D);\r\n  ADayOfWeek:=DayOfTheWeek(AValue);\r\n  SOM:=EncodeDate(Ayear,Amonth,1);\r\n  SDOM:=DayOfTheWeek(SOM);\r\n  DOM:=D-1+SDOM;\r\n  If SDOM>4 then\r\n    Dec(DOM,7);\r\n  // Too early in the month. First full week is next week, day is after thursday.\r\n  If DOM<=0 Then\r\n    DecodeDateMonthWeek(SOM-1,AYear,AMonth,AWeekOfMonth,D)\r\n  else\r\n    begin\r\n    AWeekOfMonth:=(DOM div 7);\r\n    if (DOM mod 7)<>0 then\r\n      Inc(AWeekOfMonth);\r\n    EDOM:=DayOfTheWeek(EndOfAMonth(Ayear,AMonth));\r\n    // In last days of last long week, so in next month...\r\n    If (EDOM<4) and ((DaysInAMonth(AYear,Amonth)-D)<EDOM) then\r\n      begin\r\n      AWeekOfMonth:=1;\r\n      Inc(AMonth);\r\n      If (AMonth=13) then\r\n        begin\r\n        AMonth:=1;\r\n        Inc(AYear);\r\n        end;\r\n      end;\r\n    end;\r\nend;\r\n\r\nFunction TryEncodeDateMonthWeek(const AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word; out AValue: TDateTime): Boolean;\r\n\r\nvar\r\n  S : Word;\r\n  DOM : Integer;\r\n\r\nbegin\r\n  Result:=IsValidDateMonthWeek(AYear,AMonth,AWeekOfMonth,ADayOfWeek);\r\n  if Result then\r\n    begin\r\n    AValue:=EncodeDate(AYear,AMonth,1);\r\n    DOM:=(AWeekOfMonth-1)*7+ADayOfWeek-1;\r\n    { Correct for first week in last month.}\r\n    S:=DayOfTheWeek(AValue);\r\n    Dec(DOM,S-1);\r\n    if (S=DayFriday) or (S=DaySaturday) or (S=DaySunday) then\r\n      Inc(DOM,7);\r\n    AValue:=AValue+DOM;\r\n    end;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Encode time interval, allowing hours>24\r\n  ---------------------------------------------------------------------}\r\n\r\nfunction TryEncodeTimeInterval(Hour, Min, Sec, MSec: word; out Time: TDateTime): boolean;\r\nbegin\r\n Result:= (Min<60) and (Sec<60) and (MSec<1000);\r\n If Result then\r\n   Time:=TDateTime(cardinal(Hour)*3600000+cardinal(Min)*60000+cardinal(Sec)*1000+MSec)/MSecsPerDay;\r\nend;\r\n\r\nfunction EncodeTimeInterval(Hour, Minute, Second, MilliSecond: word): TDateTime;\r\nbegin\r\n   If not TryEncodeTimeInterval(Hour,Minute,Second,MilliSecond,Result) then\r\n     Raise EConvertError.CreateFmt(SerrInvalidHourMinuteSecMsec,\r\n                               [Hour,Minute,Second,MilliSecond]);\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Replace given element with supplied value.\r\n  ---------------------------------------------------------------------}\r\n\r\nConst\r\n  LFAI = RecodeLeaveFieldAsIS; // Less typing, readable code\r\n{\r\n  Note: We have little choice but to implement it like Borland did:\r\n  If AValue contains some 'wrong' value, it will throw an error.\r\n  To simulate this we'd have to check in each function whether\r\n  both arguments are correct. To avoid it, all is routed through\r\n  the 'central' RecodeDateTime function as in Borland's implementation.\r\n}\r\n\r\nFunction RecodeYear(const AValue: TDateTime; const AYear: Word): TDateTime;\r\n\r\nbegin\r\n  Result := RecodeDateTime(AValue,AYear,LFAI,LFAI,LFAI,LFAI,LFAI,LFAI);\r\nend;\r\n\r\n\r\nFunction RecodeMonth(const AValue: TDateTime; const AMonth: Word): TDateTime;\r\nbegin\r\n  Result := RecodeDateTime(AValue,LFAI,AMonth,LFAI,LFAI,LFAI,LFAI,LFAI);\r\nend;\r\n\r\n\r\nFunction RecodeDay(const AValue: TDateTime; const ADay: Word): TDateTime;\r\nbegin\r\n  Result := RecodeDateTime(AValue,LFAI,LFAI,ADay,LFAI,LFAI,LFAI,LFAI);\r\nend;\r\n\r\n\r\nFunction RecodeHour(const AValue: TDateTime; const AHour: Word): TDateTime;\r\nbegin\r\n  Result := RecodeDateTime(AValue,LFAI,LFAI,LFAI,AHour,LFAI,LFAI,LFAI);\r\nend;\r\n\r\n\r\nFunction RecodeMinute(const AValue: TDateTime; const AMinute: Word): TDateTime;\r\nbegin\r\n  Result := RecodeDateTime(AValue,LFAI,LFAI,LFAI,LFAI,AMinute,LFAI,LFAI);\r\nend;\r\n\r\n\r\nFunction RecodeSecond(const AValue: TDateTime; const ASecond: Word): TDateTime;\r\nbegin\r\n  Result := RecodeDateTime(AValue,LFAI,LFAI,LFAI,LFAI,LFAI,ASecond,LFAI);\r\nend;\r\n\r\n\r\nFunction RecodeMilliSecond(const AValue: TDateTime; const AMilliSecond: Word): TDateTime;\r\nbegin\r\n  Result := RecodeDateTime(AValue,LFAI,LFAI,LFAI,LFAI,LFAI,LFAI,AMilliSecond);\r\nend;\r\n\r\n\r\nFunction RecodeDate(const AValue: TDateTime; const AYear, AMonth, ADay: Word): TDateTime;\r\nbegin\r\n  Result := RecodeDateTime(AValue,AYear,AMonth,ADay,LFAI,LFAI,LFAI,LFAI);\r\nend;\r\n\r\n\r\nFunction RecodeTime(const AValue: TDateTime; const AHour, AMinute, ASecond, AMilliSecond: Word): TDateTime;\r\nbegin\r\n  Result := RecodeDateTime(AValue,LFAI,LFAI,LFAI,AHour,AMinute,ASecond,AMilliSecond);\r\nend;\r\n\r\n\r\nFunction RecodeDateTime(const AValue: TDateTime; const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word): TDateTime;\r\nbegin\r\n  If Not TryRecodeDateTime(AValue,AYear,AMonth,ADay,AHour,AMinute,ASecond,AMilliSecond,Result) then\r\n    InvalidDateTimeError(AYear,AMonth,ADay,AHour,AMinute,ASecond,AMilliSecond,AValue);\r\nend;\r\n\r\n\r\nFunction TryRecodeDateTime(const AValue: TDateTime; const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word; out AResult: TDateTime): Boolean;\r\n\r\n  Procedure FV (var AV{%H-} : Word; Arg : Word);\r\n\r\n  begin\r\n    If (Arg<>LFAI) then\r\n      AV:=Arg;\r\n  end;\r\n\r\nVar\r\n  Y,M,D,H,N,S,MS : Word;\r\n\r\nbegin\r\n  DecodeDateTime(AValue,Y,M,D,H,N,S,MS);\r\n  FV(Y,AYear);\r\n  FV(M,AMonth);\r\n  FV(D,ADay);\r\n  FV(H,AHour);\r\n  FV(N,AMinute);\r\n  FV(S,ASecond);\r\n  FV(MS,AMillisecond);\r\n  Result:=TryEncodeDateTime(Y,M,D,H,N,S,MS,AResult);\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Comparision of date/time\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\nFunction CompareDateTime(const A, B: TDateTime): TValueRelationship;\r\nbegin\r\n  If SameDateTime(A,B) then\r\n    Result:=EqualsValue\r\n  else if trunc(a)=trunc(b) then\r\n    begin\r\n    if abs(frac(a))>abs(frac(b)) then \r\n      result:=GreaterThanValue\r\n    else \r\n      result:=LessThanValue;\r\n    end \r\n  else \r\n    begin\r\n    if a>b then \r\n      result:=GreaterThanValue\r\n    else \r\n      result:=LessThanValue;\r\n    end;\r\nend;\r\n\r\n\r\nFunction CompareDate(const A, B: TDateTime): TValueRelationship;\r\nbegin\r\n  If SameDate(A,B) then\r\n    Result:=EQualsValue\r\n  else if A<B then\r\n    Result:=LessThanValue\r\n  else\r\n    Result:=GreaterThanValue;\r\nend;\r\n\r\n\r\nFunction CompareTime(const A, B: TDateTime): TValueRelationship;\r\n\r\nbegin\r\n  If SameTime(A,B) then\r\n    Result:=EQualsValue\r\n  else If Frac(A)<Frac(B) then\r\n    Result:=LessThanValue\r\n  else\r\n    Result:=GreaterThanValue;\r\nend;\r\n\r\n\r\nFunction SameDateTime(const A, B: TDateTime): Boolean;\r\nbegin\r\n  Result:=Abs(A-B)<OneMilliSecond;\r\nend;\r\n\r\n\r\nFunction SameDate(const A, B: TDateTime): Boolean;\r\nbegin\r\n  Result:=Trunc(A)=Trunc(B);\r\nend;\r\n\r\n\r\nFunction SameTime(const A, B: TDateTime): Boolean;\r\n\r\nbegin\r\n  Result:=Frac(Abs(A-B))<OneMilliSecond;\r\nend;\r\n\r\n\r\nFunction InternalNthDayOfWeek(DoM : Word) : Word;\r\n\r\nbegin\r\n  Result:=(Dom-1) div 7 +1;\r\nend;\r\n\r\nFunction NthDayOfWeek(const AValue: TDateTime): Word;\r\n\r\nbegin\r\n  Result:=InternalNthDayOfWeek(DayOfTheMonth(AValue));\r\nend;\r\n\r\n\r\nProcedure DecodeDayOfWeekInMonth(const AValue: TDateTime; out AYear, AMonth, ANthDayOfWeek, ADayOfWeek: Word);\r\n\r\nvar\r\n  D: Word;\r\n\r\nbegin\r\n  DecodeDate(AValue,AYear,AMonth,D);\r\n  ADayOfWeek:=DayOfTheWeek(AValue);\r\n  ANthDayOfWeek:=InternalNthDayOfWeek(D);\r\nend;\r\n\r\n\r\nFunction EncodeDayOfWeekInMonth(const AYear, AMonth, ANthDayOfWeek,  ADayOfWeek: Word): TDateTime;\r\nbegin\r\n  If Not TryEncodeDayOfWeekInMonth(AYear,AMonth,ANthDayOfWeek,ADayOfWeek,Result) then\r\n    InvalidDayOfWeekInMonthError(AYear,AMonth,ANthDayOfWeek,ADayOfWeek);\r\nend;\r\n\r\n\r\nFunction TryEncodeDayOfWeekInMonth(const AYear, AMonth, ANthDayOfWeek,  ADayOfWeek: Word; out AValue: TDateTime): Boolean;\r\n\r\nVar\r\n  SOM,D : Word;\r\n\r\nbegin\r\n  SOM:=DayOfTheWeek(EncodeDate(Ayear,AMonth,1));\r\n  D:=1+ADayOfWeek-SOM+7*(ANthDayOfWeek-1);\r\n  If SOM>ADayOfWeek then\r\n    D:=D+7; // Clearer would have been Inc(ANthDayOfweek) but it's a const\r\n  Result:=TryEncodeDate(Ayear,AMonth,D,AValue);\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Exception throwing routines\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\n\r\nProcedure InvalidDateTimeError(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word; const ABaseDate: TDateTime);\r\n\r\n  Function DoField(Arg,Def : Word; Unknown: String) : String;\r\n\r\n  begin\r\n    if Def=0 then ;\r\n    If (Arg<>LFAI) then\r\n      Result:=Format('%.*d',[Length(Unknown),Arg])\r\n    else if (ABaseDate=0) then\r\n      Result:=Unknown\r\n    else\r\n      Result:=Format('%.*d',[Length(Unknown),Arg]);\r\n  end;\r\n\r\nVar\r\n  Y,M,D,H,N,S,MS : Word;\r\n  Msg : String;\r\n\r\nbegin\r\n  DecodeDateTime(ABasedate,Y,M,D,H,N,S,MS);\r\n  Msg:=DoField(AYear,Y,'????');\r\n  Msg:=Msg+FormatSettings.DateSeparator+DoField(AMonth,M,'??');\r\n  Msg:=Msg+FormatSettings.DateSeparator+DoField(ADay,D,'??');\r\n  Msg:=Msg+' '+DoField(AHour,H,'??');\r\n  Msg:=Msg+FormatSettings.TimeSeparator+DoField(AMinute,N,'??');\r\n  Msg:=Msg+FormatSettings.TimeSeparator+Dofield(ASecond,S,'??');\r\n  Msg:=Msg+FormatSettings.DecimalSeparator+DoField(AMilliSecond,MS,'???');\r\n  Raise EConvertError.CreateFmt(SErrInvalidTimeStamp,[Msg]);\r\nend;\r\n\r\n\r\nProcedure InvalidDateTimeError(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word); // const ABaseDate: TDateTime = 0\r\nbegin\r\n  InvalidDateTimeError(AYear,AMonth,ADay,AHour,AMinute,ASecond,AMilliSecond,0);\r\nend;\r\n\r\n\r\nProcedure InvalidDateWeekError(const AYear, AWeekOfYear, ADayOfWeek: Word);\r\nbegin\r\n  Raise EConvertError.CreateFmt(SErrInvalidDateWeek,[AYear,AWeekOfYear,ADayOfWeek]);\r\nend;\r\n\r\n\r\nProcedure InvalidDateDayError(const AYear, ADayOfYear: Word);\r\nbegin\r\n  Raise EConvertError.CreateFmt(SErrInvalidDayOfYear,[AYear,ADayOfYear]);\r\nend;\r\n\r\n\r\nProcedure InvalidDateMonthWeekError(const AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word);\r\nbegin\r\n  Raise EConvertError.CreateFmt(SErrInvalidDateMonthWeek,[Ayear,AMonth,AWeekOfMonth,ADayOfWeek]);\r\nend;\r\n\r\n\r\nProcedure InvalidDayOfWeekInMonthError(const AYear, AMonth, ANthDayOfWeek,  ADayOfWeek: Word);\r\n\r\nbegin\r\n  Raise EConvertError.CreateFmt(SErrInvalidDayOfWeekInMonth,[AYear,AMonth,ANthDayOfWeek,ADayOfWeek]);\r\nend;\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n    Julian and Modified Julian Date conversion support\r\n  ---------------------------------------------------------------------}\r\n\r\n{$push}\r\n{$R-}\r\n{$Q-}\r\n\r\nFunction DateTimeToJulianDate(const AValue: TDateTime): Double;\r\nvar\r\n  day,month,year: word;\r\n  a,y,m: longint;\r\nbegin\r\n  DecodeDate ( AValue, year, month, day );\r\n  a := (14-month) div 12;\r\n  y := year + 4800 - a;\r\n  m := month + (12*a) - 3;\r\n  result := day + ((153*m+2) div 5) + (365*y)\r\n    + (y div 4) - (y div 100) + (y div 400) - 32045.5 + frac(avalue);\r\nend;\r\n\r\n\r\nFunction JulianDateToDateTime(const AValue: Double): TDateTime;\r\nbegin\r\n  if not TryJulianDateToDateTime(AValue, Result) then\r\n    raise EConvertError.CreateFmt(SInvalidJulianDate, [AValue]);\r\nend;\r\n\r\n\r\nFunction TryJulianDateToDateTime(const AValue: Double; out ADateTime: TDateTime): Boolean;\r\nvar\r\n  a,b,c,d,e,m:longint;\r\n  day,month,year: word;\r\nbegin\r\n  a := trunc(AValue + 32044.5);\r\n  b := (4*a + 3) div 146097;\r\n  c := a - (146097*b div 4);\r\n  d := (4*c + 3) div 1461;\r\n  e := c - (1461*d div 4);\r\n  m := (5*e+2) div 153;\r\n  day := e - ((153*m + 2) div 5) + 1;\r\n  month := m + 3 - 12 *  ( m div 10 );\r\n  year := (100*b) + d - 4800 + ( m div 10 );\r\n  result := TryEncodeDate ( Year, Month, Day, ADateTime );\r\n  if Result then\r\n//    ADateTime:=IncMilliSecond(IncHour(ADateTime,-12),MillisecondOfTheDay(Abs(Frac(aValue))));\r\n    ADateTime:=ADateTime+frac(AValue-0.5);\r\nend;\r\n\r\nFunction DateTimeToModifiedJulianDate(const AValue: TDateTime): Double;\r\nbegin\r\n  result := DateTimeToJulianDate(AValue) - 2400000.5;\r\nend;\r\n\r\n\r\nFunction ModifiedJulianDateToDateTime(const AValue: Double): TDateTime;\r\nbegin\r\n  result := JulianDateToDateTime(AValue + 2400000.5);\r\nend;\r\n\r\n\r\nFunction TryModifiedJulianDateToDateTime(const AValue: Double; out ADateTime: TDateTime): Boolean;\r\nbegin\r\n  Result:=TryJulianDateToDateTime(AValue + 2400000.5, ADateTime);\r\nend;\r\n\r\n{$pop}//{$R-}{$Q-} for Julian conversion functions\r\n\r\n{ ---------------------------------------------------------------------\r\n    Unix timestamp support.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction DateTimeToUnix(const AValue: TDateTime): NativeLargeInt;\r\n\r\nbegin\r\n  Result:=Round(DateTimeDiff(RecodeMillisecond(AValue,0),UnixEpoch)*SecsPerDay);\r\nend;\r\n\r\n\r\nFunction UnixToDateTime(const AValue: NativeLargeInt; AReturnUTC: Boolean): TDateTime;\r\nbegin\r\n  if AReturnUTC then\r\n    Result := IncSecond(UnixEpoch, AValue)\r\n  else\r\n    Result := TTimeZone.Local.ToLocalTime(IncSecond(UnixEpoch, AValue));\r\nend;\r\n\r\n\r\nFunction UnixTimeStampToMac(const AValue: NativeLargeInt): NativeLargeInt;\r\nconst\r\n  Epoch=24107 * 24 * 3600;\r\nbegin\r\n  Result:=AValue + Epoch;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Mac timestamp support.\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction DateTimeToMac(const AValue: TDateTime): NativeLargeInt;\r\nvar\r\n  Epoch:TDateTime;\r\nbegin\r\n  Epoch:=EncodeDateTime( 1904, 1, 1, 0, 0, 0, 0 );\r\n  Result:=SecondsBetween( Epoch, AValue );\r\nend;\r\n\r\n\r\nFunction MacToDateTime(const AValue: NativeLargeInt): TDateTime;\r\nvar\r\n  Epoch:TDateTime;\r\nbegin\r\n  Epoch:=EncodeDateTime( 1904, 1, 1, 0, 0, 0, 0 );\r\n  Result:=IncSecond( Epoch, AValue );\r\nend;\r\n\r\n\r\nFunction MacTimeStampToUnix(const AValue: NativeLargeInt): NativeLargeInt;\r\nconst\r\n  Epoch=24107 * 24 * 3600;\r\nbegin\r\n  Result:=AValue - Epoch;\r\nend;\r\n\r\nFunction DateTimeToDosDateTime(const AValue: TDateTime): longint;\r\nvar year,month,day,hour,min,sec,msec : word;\r\n    zs : longint;\r\nbegin\r\n  decodedatetime(avalue,year,month,day,hour,min,sec,msec);\r\n  result:=-1980;\r\n  result:=result+year and 127;\r\n  result:=result shl 4;\r\n  result:=result+month;\r\n  result:=result shl 5;\r\n  result:=result+day;\r\n  result:=result shl 16;\r\n  zs:=hour;\r\n  zs:=zs shl 6;\r\n  zs:=zs+min;\r\n  zs:=zs shl 5;\r\n  zs:=zs+sec div 2;\r\n  result:=result+(zs and $ffff);\r\nend;\r\n\r\nFunction DosDateTimeToDateTime( AValue: longint): TDateTime;\r\nvar year,month,day,hour,min,sec : integer;\r\nbegin\r\n  sec:=(AValue and 31) * 2;\r\n  avalue:=AValue shr 5;\r\n  min:=AValue and 63;\r\n  avalue:=AValue shr 6;\r\n  hour:=AValue and 31;\r\n  avalue:=AValue shr 5;\r\n  day:=AValue and 31;\r\n  avalue:=AValue shr 5;\r\n  month:=AValue and 15;\r\n  avalue:=AValue shr 4;\r\n  year:=AValue+1980;\r\n  result:=EncodeDateTime(year,month,day,hour,min,sec,0);\r\nend;\r\n\r\n\r\n\r\nconst whitespace  = [' ',#13,#10];\r\n      hrfactor    = 1/(24);\r\n      minfactor   = 1/(24*60);\r\n      secfactor   = 1/(24*60*60);\r\n      mssecfactor = 1/(24*60*60*1000);\r\n\r\nconst AMPMformatting : array[0..2] of string =('am/pm','a/p','ampm');\r\n\r\nprocedure raiseexception(const s:string);\r\n\r\nbegin\r\n  raise EConvertError.Create(s);\r\nend;\r\n\r\n{ Conversion of UTC to local time and vice versa }\r\n\r\nFunction GetLocalTimeOffset : Integer;\r\n\r\nbegin\r\n  Result:=TJSDate.New.getTimezoneOffset();\r\nend;\r\n\r\nfunction UniversalTimeToLocal(UT: TDateTime): TDateTime;\r\n\r\nbegin\r\n  Result:=UniversalTimeToLocal(UT,-GetLocalTimeOffset);\r\nend;\r\n\r\nfunction UniversalTimeToLocal(UT: TDateTime; TZOffset : Integer): TDateTime;\r\n\r\nbegin\r\n  if (TZOffset > 0) then\r\n    Result := UT + EncodeTime(TZOffset div 60, TZOffset mod 60, 0, 0)\r\n  else if (TZOffset < 0) then\r\n    Result := UT - EncodeTime(Abs(TZOffset) div 60, Abs(TZOffset) mod 60, 0, 0)\r\n  else\r\n    Result := UT;\r\nend;\r\n \r\nFunction LocalTimeToUniversal(LT: TDateTime): TDateTime;\r\n\r\nbegin\r\n  Result:=LocalTimeToUniversal(LT,-GetLocalTimeOffset);\r\nend;\r\n\r\nFunction LocalTimeToUniversal(LT: TDateTime;TZOffset: Integer): TDateTime;\r\n\r\nbegin\r\n  if (TZOffset > 0) then\r\n    Result := LT - EncodeTime(TZOffset div 60, TZOffset mod 60, 0, 0)\r\n  else if (TZOffset < 0) then\r\n    Result := LT + EncodeTime(Abs(TZOffset) div 60, Abs(TZOffset) mod 60, 0, 0)\r\n  else\r\n    Result := LT;\r\nend;\r\n\r\n\r\n{ RFC 3339 }\r\n\r\nfunction DateTimeToRFC3339(ADate :TDateTime):string;\r\n\r\nbegin\r\n  Result:=FormatDateTime('yyyy-mm-dd\"T\"hh\":\"nn\":\"ss\".\"zzz\"Z\"',ADate);\r\nend;\r\n\r\nfunction DateToRFC3339(ADate: TDateTime): string;\r\nbegin\r\n  Result:=FormatDateTime('yyyy-mm-dd',ADate);\r\nend;\r\n\r\nfunction TimeToRFC3339(ADate :TDateTime):string;\r\n\r\nbegin\r\n  Result:=FormatDateTime('hh\":\"nn\":\"ss\".\"zzz',ADate);\r\nend;\r\n\r\nFunction TryRFC3339ToDateTime(const Avalue: String; out ADateTime: TDateTime): Boolean;\r\n\r\n//          1         2\r\n// 12345678901234567890123\r\n// yyyy-mm-ddThh:nn:ss.zzz\r\n\r\nType\r\n  TPartPos = (ppTime,ppYear,ppMonth,ppDay,ppHour,ppMinute,ppSec,ppMSec);\r\n  TPos = Array [TPartPos] of byte;\r\n\r\nConst\r\n  P : TPos = (11,1,6,9,12,15,18,21);\r\n\r\nvar\r\n  lY, lM, lD, lH, lMi, lS, lMs: Integer;\r\n\r\nbegin\r\n  if Trim(AValue) = '' then\r\n    begin\r\n    Result:=True;\r\n    ADateTime:=0;\r\n    end;\r\n  lY:=StrToIntDef(Copy(AValue,P[ppYear],4),-1);\r\n  lM:=StrToIntDef(Copy(AValue,P[ppMonth],2),-1);\r\n  lD:=StrToIntDef(Copy(AValue,P[ppDay],2),-1);\r\n  if (Length(AValue)>=P[ppTime]) then\r\n    begin\r\n    lH:=StrToIntDef(Copy(AValue,P[ppHour],2),-1);\r\n    lMi:=StrToIntDef(Copy(AValue,P[ppMinute],2),-1);\r\n    // Bug ID 37974\r\n    if (Length(AValue)>=P[ppSec]) then\r\n      lS:=StrToIntDef(Copy(AValue,P[ppSec],2),-1)\r\n    else\r\n      LS:=0;\r\n    if (Length(AValue)>=P[ppMSec]) then\r\n      lmS := StrToIntDef(Copy(AValue,P[ppMSec],3),-1);\r\n    end\r\n  else\r\n    begin\r\n    lH:=0;\r\n    lMi:=0;\r\n    lS:=0;\r\n    lMS:=0;\r\n    end;\r\n  Result:=(lY>=0) and (lM>=0) and (lD>=0) and (lH>=0) and (lMi>=0) and (ls>=0) and (lMS>=0);\r\n  if Not Result then\r\n    ADateTime:=0\r\n  else\r\n    { Cannot EncodeDate if any part equals 0. EncodeTime is okay. }\r\n    if (lY = 0) or (lM = 0) or (lD = 0) then\r\n      ADateTime:=EncodeTime(lH, lMi, lS, 0)\r\n    else\r\n      ADateTime:=EncodeDate(lY, lM, lD) + EncodeTime(lH, lMi, lS, lMs);\r\nend;\r\n\r\nFunction RFC3339ToDateTime(const Avalue: String): TDateTime;\r\n\r\nbegin\r\n  if Not TryRFC3339ToDateTime(AValue,Result) then\r\n    Result:=0;\r\nend;\r\n\r\nconst\r\n\r\n  SPatternCharMismatch = 'Pattern mismatch char \"%s\" at position %d.';\r\n  SNoCharMatch         = 'Mismatch char \"%s\" <> \"%s\" at pattern position %d, string position %d.';\r\n  SHHMMError           = 'mm in a sequence hh:mm is interpreted as minutes. No longer versions allowed! (Position : %d).' ;\r\n  SNoArrayMatch        = 'Can''t match any allowed value at pattern position %d, string position %d.';\r\n  //SFullpattern         = 'Couldn''t match entire pattern string. Input too short at pattern position %d.';\r\n\r\n\r\n{ TDateTimeScanner }\r\nprocedure TDateTimeScanner.ArrayMatchError;\r\n\r\nbegin\r\n  raiseexception(format(SNoArrayMatch,[FPatternPos+1,FPos]))\r\nend;\r\n\r\nprocedure TDateTimeScanner.SetPattern(AValue: String);\r\nbegin\r\n  if FPattern=AValue then Exit;\r\n  FPattern:=AValue;\r\n  FPatternLen:=Length(FPattern);\r\nend;\r\n\r\nprocedure TDateTimeScanner.SetText(AValue: String);\r\nbegin\r\n  if FText=AValue then Exit;\r\n  FText:=AValue;\r\n  FLen:=Length(FText);\r\nend;\r\n\r\nfunction TDateTimeScanner.ScanFixedInt(maxv:integer):integer;\r\n\r\nvar\r\n  c,n : char;\r\n  oi:integer;\r\n\r\nbegin\r\n  Result:=0;\r\n  oi:=FPos;\r\n  c:=FPattern[FPatternPos];\r\n  while (FPatternPos<=FPatternLen) and (FPattern[FPatternPos]=c) do\r\n    Inc(FPatternPos);\r\n  N:=FText[FPos];\r\n  while (maxv>0) and (FPos<=FLen) and (N IN ['0'..'9']) do\r\n    begin\r\n    Result:=(Result*10)+ord(N)-48;\r\n    inc(FPos);\r\n    dec(maxv);\r\n    if FPos<=FLen then\r\n      N:=FText[FPos];\r\n    end;\r\n  if (OI=FPos) then\r\n    raiseexception(format(SPatternCharMismatch,[c,oi]));\r\nend;\r\n\r\nfunction TDateTimeScanner.FindIMatch(const values :array of string; aTerm : string):integer;\r\n\r\nvar\r\n  l,i : integer;\r\n\r\nbegin\r\n  Result:=-1;\r\n  l:=high(values);\r\n  i:=0;\r\n  while (i<=l) and (result=-1) do\r\n    begin\r\n    if SameText(Copy(aTerm,1,Length(values[i])),values[i]) then\r\n      Result:=i;\r\n    inc(i);\r\n    end;\r\nend;\r\n\r\nfunction TDateTimeScanner.FindMatch(const Values : array of string):integer;\r\n\r\nbegin\r\n  result:=FindIMatch(Values,Copy(FText,FPos,FLen-FPos+1));\r\n  if result=-1 then\r\n    arraymatcherror\r\n  else\r\n    begin\r\n    inc(FPos,length(Values[result])+1);\r\n    inc(FPatternPos,length(Values[result])+1);\r\n    inc(result); // was 0 based.\r\n    end;\r\nend;\r\n\r\n\r\nprocedure TDateTimeScanner.MatchChar(c:char);\r\n\r\nVar\r\n  N : Char;\r\n\r\nbegin\r\n  if (FPos<=Flen) then\r\n    N:=FText[FPos]\r\n  else\r\n    N:='?';\r\n  if (N<>c) then\r\n    raiseexception(format(SNoCharMatch,[N,C,FPatternPos+FPatternOffset,FPos]));\r\n  inc(FPatternPos);\r\n  inc(FPos);\r\nend;\r\n\r\nfunction TDateTimeScanner.ScanPatternLength :integer;\r\n\r\nvar\r\n  c : char;\r\n  i : Integer;\r\n\r\nbegin\r\n  result:=FPatternPos;\r\n  I:=FPatternPos;\r\n  c:=FPattern[I];\r\n  while (I<=FPatternLen) and (FPattern[i]=c) do\r\n    inc(I);\r\n  Result:=I-Result;\r\nend;\r\n\r\nprocedure TDateTimeScanner.MatchPattern(const aPattern: String);\r\n\r\nVar\r\n  T : String;\r\n  cPos: Integer;\r\n\r\nbegin\r\n  T:=FPattern;\r\n  cPos:=FPatternPos;\r\n  FPatternOffset:=FPatternPos;\r\n  FPattern:=aPattern;\r\n  FPatternLen:=Length(aPattern);\r\n  try\r\n    Scan;\r\n  finally\r\n    FPattern:=T;\r\n    FPatternLen:=Length(aPattern);\r\n    FPatternPos:=cPos;\r\n    FPatternOffset:=0;\r\n  end;\r\nend;\r\n\r\nprocedure TDateTimeScanner.DoDay;\r\n\r\nVar\r\n  I : integer;\r\n\r\nbegin\r\n  i:=ScanPatternLength;\r\n  case i of\r\n  1,2 : FD:=scanfixedint(2);\r\n  3   : FD:=findmatch(FormatSettings.shortDayNames);\r\n  4   : FD:=findmatch(FormatSettings.longDayNames);\r\n  5   : matchpattern(FormatSettings.shortdateformat);\r\n  6   : matchpattern(FormatSettings.longdateformat);\r\n  end;\r\nend;\r\n\r\nprocedure TDateTimeScanner.DoYear;\r\n\r\nVar\r\n  I : integer;\r\n  pivot : Integer;\r\n\r\nbegin\r\n  i:=ScanPatternLength;\r\n  FY:=scanfixedint(4);\r\n  if i<=2 then\r\n    begin\r\n    Pivot:=YearOf(Now)-TwoDigitYearCenturyWindow;\r\n    inc(FY, Pivot div 100 * 100);\r\n    if (TwoDigitYearCenturyWindow > 0) and (FY < Pivot) then\r\n      inc(FY, 100);\r\n    end;\r\nend;\r\n\r\nprocedure TDateTimeScanner.DoMonth;\r\n\r\nVar\r\n  I : integer;\r\n\r\nbegin\r\n  I:=ScanPatternLength;\r\n  case i of\r\n  1,2: FM:=scanfixedint(2);\r\n  3:   FM:=findmatch(FormatSettings.ShortMonthNames);\r\n  4:   FM:=findmatch(FormatSettings.LongMonthNames);\r\n  end;\r\nend;\r\n\r\nprocedure TDateTimeScanner.DoTime;\r\n\r\nVar\r\n  I : integer;\r\n\r\nbegin\r\n  i:=ScanPatternLength;\r\n  case i of\r\n    1: matchpattern(FormatSettings.ShortTimeFormat);\r\n    2: matchpattern(FormatSettings.LongTimeFormat);\r\n  end;\r\nend;\r\n\r\nprocedure TDateTimeScanner.DoDateTime;\r\n\r\nbegin\r\n  MatchPattern(FormatSettings.ShortDateFormat);\r\n  MatchPattern(#9);\r\n  MatchPattern(FormatSettings.LongTimeFormat);\r\n  inc(FPatternPos);\r\nend;\r\n\r\nprocedure TDateTimeScanner.DoAMPM;\r\n\r\nVar\r\n  I : integer;\r\n\r\nbegin\r\n  i:=FindIMatch(AMPMformatting,Copy(FPattern,FPatternPos,5));\r\n  case i of\r\n  0:\r\n    begin\r\n    i:=FindIMatch(['AM','PM'],Copy(FText,FPos,2));\r\n    case i of\r\n      0: ;\r\n      1: FTimeval:=FTimeval+12*hrfactor;\r\n    else\r\n      ArrayMatchError\r\n    end;\r\n    inc(FPatternPos,length(AMPMformatting[0]));\r\n    inc(FPos,2);\r\n    end;\r\n  1:\r\n    begin\r\n    case Upcase(FText[FPos]) of\r\n      'A' : ;\r\n      'P' : FTimeval:=FTimeval+12*hrfactor;\r\n    else\r\n      ArrayMatchError\r\n    end;\r\n    inc(FPatternPos,length(AMPMformatting[1]));\r\n    inc(FPos);\r\n    end;\r\n  2:\r\n    begin\r\n    i:=FindIMatch([FormatSettings.TimeAMString,FormatSettings.TimePMString],Copy(FText,FPos,5));\r\n    case i of\r\n    0: inc(FPos,length(FormatSettings.TimeAMString));\r\n    1: begin\r\n       FTimeval:=FTimeval+12*hrfactor;\r\n       inc(FPos,length(FormatSettings.TimePMString));\r\n       end;\r\n    else\r\n      arraymatcherror\r\n    end;\r\n    inc(FPatternPos,length(AMPMformatting[2]));\r\n    inc(FPatternPos,2);\r\n    inc(FPos,2);\r\n    end;\r\n  else  // no AM/PM match. Assume 'a' is simply a char\r\n     MatchChar(FPattern[FPatternPos]);\r\n  end;\r\nend;\r\n\r\nfunction TDateTimeScanner.Scan(StartPos: integer): TDateTime;\r\n\r\nvar\r\n  lasttoken,\r\n  activequote,\r\n  lch : char;\r\n  i : Integer;\r\n\r\nbegin\r\n  if StartPos<1 then\r\n    StartPos:=1;\r\n  if FPos<StartPos then\r\n    FPos:=StartPos;\r\n  FPatternPos:=1;\r\n  activequote:=#0;\r\n  lasttoken:=' ';\r\n  while (FPos<=FLen) and (FPatternPos<=FPatternlen) do\r\n    begin\r\n    lch:=upcase(FPattern[FPatternPos]);\r\n    if activequote<>#0 then\r\n      begin\r\n      if (activequote<>lch) then\r\n        MatchChar(lch)\r\n      else\r\n        begin\r\n        activequote:=#0;\r\n        inc(FPatternPos);\r\n        end\r\n      end\r\n    else\r\n      begin\r\n      if (lch='M') and (lasttoken='H') then\r\n        begin\r\n        i:=ScanPatternLength;\r\n        if i>2 then\r\n           raiseexception(format(SHHMMError,[FPatternOffset+FPatternPos+1]));\r\n        FTimeval:=FTimeval+scanfixedint(2)* minfactor;\r\n        end\r\n      else\r\n        case lch of\r\n        'Y': DoYear;\r\n        'M': DoMonth;\r\n        'D': DoDay;\r\n        'T': DoTime;\r\n        'H': FTimeval:=FTimeval+scanfixedint(2)* hrfactor;\r\n        'N': FTimeval:=FTimeval+scanfixedint(2)* minfactor;\r\n        'S': FTimeval:=FTimeval+scanfixedint(2)* secfactor;\r\n        'Z': FTimeval:=FTimeval+scanfixedint(3)* mssecfactor;\r\n        'A': DoAMPM;\r\n        '/': MatchChar(FormatSettings.DateSeparator);\r\n        ':': begin\r\n             MatchChar(FormatSettings.TimeSeparator);\r\n             lch:=lasttoken;\r\n             end;\r\n        #39,'\"' :\r\n             begin\r\n             activequote:=lch;\r\n             inc(FPatternPos);\r\n             end;\r\n        'C': DoDateTime;\r\n        '?': begin\r\n             inc(FPatternPos);\r\n             inc(FPos)\r\n             end;\r\n        #9: begin\r\n            while (FPos<=FLen) and (FText[FPos] in WhiteSpace) do\r\n              inc(FPos);\r\n            inc(FPatternPos);\r\n            end;\r\n        else\r\n          MatchChar(FPattern[FPatternPos]);\r\n        end; {case}\r\n      lasttoken:=lch;\r\n      end\r\n  end;\r\n//  if (FPatternPos<FLen) and (FPatternLen>0) and (FPattern[FPatternLen-1]<>#9) then  // allow omission of trailing whitespace\r\n//    RaiseException(format(SFullpattern,[FPatternOffset+FPatternPos]));\r\n  Result:=FTimeval;\r\n  if (FY>0) and (FM>0) and (FD>0) then\r\n    Result:=Result+EncodeDate(FY,FM,FD);\r\nend;\r\n\r\nFunction ScanDateTime(APattern,AValue: String; APos : integer = 1) : TDateTime;\r\n\r\nVar\r\n  T : TDateTimeScanner;\r\n\r\nbegin\r\n  T:=TDateTimeScanner.Create;\r\n  try\r\n    T.Pattern:=APattern;\r\n    T.Text:=AValue;\r\n    Result:=T.Scan(APos);\r\n  finally\r\n    T.Free;\r\n  end;\r\nend;\r\n\r\n\r\n{ TTimeZone }\r\n\r\nfunction TTimeZone.GetAbbreviation(const ADateTime: TDateTime; const AForceDaylight: Boolean): string;\r\nconst\r\n  cAbbreviationFormat_Hours = '%s%s%.2d';\r\n  cAbbreviationFormat_Minutes = '%s%s%.2d:%.2d';\r\n  cGMT = 'GMT';\r\n  cMinus = '-';\r\n  cPlus = '+';\r\nvar\r\n  lAbsOffset: Int64;\r\n  lHours: Integer;\r\n  lMinutes: Integer;\r\n  lOffset: Int64;\r\n  lSignChar: Char;\r\nbegin\r\n  lOffset := GetUtcOffsetInSeconds(ADateTime, AForceDaylight);\r\n\r\n  if lOffset = 0 then\r\n    Result := cGMT\r\n  else\r\n  begin\r\n    lAbsOffset := Abs(lOffset);\r\n\r\n    lHours := lAbsOffset div SecsPerHour;\r\n    lMinutes := (lAbsOffset mod SecsPerHour) div SecsPerMin;\r\n\r\n    if lOffset < 0 then\r\n      lSignChar := cMinus\r\n    else\r\n      lSignChar := cPlus;\r\n\r\n    if lMinutes > 0 then\r\n      Result := Format(cAbbreviationFormat_Minutes, [cGMT, lSignChar, lHours, lMinutes])\r\n    else\r\n      Result := Format(cAbbreviationFormat_Hours, [cGMT, lSignChar, lHours]);\r\n  end;\r\nend;\r\n\r\nfunction TTimeZone.GetAbbreviationForNow: string;\r\nbegin\r\n  Result := GetAbbreviation(Now);\r\nend;\r\n\r\nfunction TTimeZone.GetCurrentUtcOffset: TTimeSpan;\r\nbegin\r\n  Result := GetUtcOffset(Now);\r\nend;\r\n\r\nfunction TTimeZone.GetDisplayName(const ADateTime: TDateTime; const AForceDaylight: Boolean): string;\r\nbegin\r\n  if GetLocalTimeType(ADateTime) = lttInvalid then\r\n    raise ELocalTimeInvalid.CreateFmt(SLocalTimeInvalid, [DateTimeToStr(ADateTime)]);\r\n\r\n  Result := DoGetDisplayName(ADateTime, AForceDaylight);\r\nend;\r\n\r\nfunction TTimeZone.GetDisplayNameForNow: string;\r\nbegin\r\n  Result := GetDisplayName(Now);\r\nend;\r\n\r\nclass function TTimeZone.GetLocal: TTimeZone;\r\nbegin\r\n  if not Assigned(FLocal) then\r\n    FLocal := TLocalTimeZone.Create;\r\n  Result := FLocal;\r\nend;\r\n\r\nfunction TTimeZone.GetLocalTimeType(const ADateTime: TDateTime): TLocalTimeType;\r\nvar\r\n  lDSTSave: Int64;\r\n  lOffset: Int64;\r\nbegin\r\n  DoGetOffsetsAndType(ADateTime, lOffset, lDSTSave, Result);\r\nend;\r\n\r\nfunction TTimeZone.GetUtcOffset(const ADateTime: TDateTime; const AForceDaylight: Boolean): TTimeSpan;\r\nbegin\r\n  Result := TTimeSpan.FromSeconds(GetUtcOffsetInSeconds(ADateTime, AForceDaylight));\r\nend;\r\n\r\nfunction TTimeZone.GetUtcOffsetInSeconds(const ADateTime: TDateTime; const AForceDaylight: Boolean): Int64;\r\nvar\r\n  lDSTSave: Int64;\r\n  lOffset: Int64;\r\n  lType: TLocalTimeType;\r\nbegin\r\n  DoGetOffsetsAndType(ADateTime, lOffset, lDSTSave, lType);\r\n\r\n  if (lType = lttInvalid) then\r\n    raise ELocalTimeInvalid.CreateFmt(SLocalTimeInvalid, [DateTimeToStr(ADateTime)])\r\n  else if (lType = lttDaylight) or ((lType = lttAmbiguous) and AForceDaylight) then\r\n    Result := lOffset + lDSTSave\r\n  else\r\n    Result := lOffset;\r\nend;\r\n\r\nfunction TTimeZone.HasDST: Boolean;\r\nbegin\r\n  Result := HasDST(Now);\r\nend;\r\n\r\nfunction TTimeZone.HasDST(const AYear: TDateTime): Boolean;\r\nvar\r\n  lDstSave: Int64;\r\n  lOffset: Int64;\r\n  lType: TLocalTimeType;\r\nbegin\r\n  DoGetOffsetsAndType(AYear, lOffset, lDstSave, lType);\r\n  Result := lDstSave <> 0;\r\nend;\r\n\r\nfunction TTimeZone.IncMilliSecond(const AValue: TDateTime; const ANumberOfMilliSeconds: Int64 = 1): TDateTime;\r\nvar\r\n  lTempTime: Int64;\r\n  lTimeStamp: TTimeStamp;\r\nbegin\r\n  lTimeStamp := DateTimeToTimeStamp(AValue);\r\n  lTempTime := TimeStampToMSecs(lTimeStamp);\r\n  lTempTime := lTempTime + ANumberOfMilliSeconds;\r\n  lTimeStamp := MSecsToTimeStamp(lTempTime);\r\n  Result := TimeStampToDateTime(lTimeStamp);\r\nend;\r\n\r\nfunction TTimeZone.IncSecond(const AValue: TDateTime; const ANumberOfSeconds: Int64 = 1): TDateTime;\r\nbegin\r\n  Result := IncMilliSecond(AValue, ANumberOfSeconds * MSecsPerSec);\r\nend;\r\n\r\nfunction TTimeZone.IsAmbiguousTime(const ADateTime: TDateTime): Boolean;\r\nbegin\r\n  Result := GetLocalTimeType(ADateTime) = lttAmbiguous;\r\nend;\r\n\r\nfunction TTimeZone.IsDaylightTime(const ADateTime: TDateTime; const AForceDaylight: Boolean): Boolean;\r\nbegin\r\n  case GetLocalTimeType(ADateTime) of\r\n    lttDaylight: Result := True;\r\n    lttAmbiguous: Result := AForceDaylight;\r\n  else\r\n    Result := False;\r\n  end;\r\nend;\r\n\r\nfunction TTimeZone.IsInvalidTime(const ADateTime: TDateTime): Boolean;\r\nbegin\r\n  Result := GetLocalTimeType(ADateTime) = lttInvalid;\r\nend;\r\n\r\nfunction TTimeZone.IsStandardTime(const ADateTime: TDateTime; const AForceDaylight: Boolean): Boolean;\r\nbegin\r\n  case GetLocalTimeType(ADateTime) of\r\n    lttStandard: Result := True;\r\n    lttAmbiguous: Result := not AForceDaylight;\r\n  else\r\n    Result := False;\r\n  end;\r\nend;\r\n\r\nfunction TTimeZone.ToLocalTime(const ADateTime: TDateTime): TDateTime;\r\nvar\r\n  lDSTSave: Int64;\r\n  lOffset: Int64;\r\n  lType: TLocalTimeType;\r\nbegin\r\n  DoGetOffsetsAndType(ADateTime, lOffset, lDSTSave, lType);\r\n  Result := IncSecond(ADateTime, lOffset);\r\n\r\n  DoGetOffsetsAndType(Result, lOffset, lDSTSave, lType);\r\n\r\n  if lType in [lttInvalid, lttDaylight] then\r\n    Result := IncSecond(Result, lDSTSave);\r\nend;\r\n\r\nfunction TTimeZone.ToUniversalTime(const ADateTime: TDateTime; const AForceDaylight: Boolean): TDateTime;\r\nvar\r\n  lOffset: Int64;\r\nbegin\r\n  lOffset := GetUtcOffsetInSeconds(ADateTime, AForceDaylight);\r\n\r\n  Result := IncSecond(ADateTime, -lOffset);\r\nend;\r\n\r\n{ TLocalTimeZone }\r\n\r\nconstructor TLocalTimeZone.Create;\r\nbegin\r\n  inherited Create;\r\n  FDST := TDateUtilsHelper.Create;\r\nend;\r\n\r\ndestructor TLocalTimeZone.Destroy;\r\nbegin\r\n  FDST.Free;\r\n  inherited Destroy;\r\nend;\r\n\r\nfunction TLocalTimeZone.DoGetDisplayName(const ADateTime: TDateTime; const AForceDaylight: Boolean): string;\r\nvar\r\n  lDateTime: NativeLargeInt;\r\n  lLocale: string;\r\nbegin\r\n  asm\r\n    lLocale = undefined;\r\n  end;\r\n  lDateTime := DateTimeToUnix(ADateTime) * MSecsPerSec;\r\n  Result := TJSDate.New(lDateTime).toLocaleDateString(lLocale, new(['day', '2-digit', 'timeZoneName', 'long']));\r\n  Result := Result.Substring(4);\r\nend;\r\n\r\nfunction TLocalTimeZone.DoGetID: string;\r\nvar\r\n  lLocale: string;\r\nbegin\r\n  asm\r\n    lLocale = undefined;\r\n  end;\r\n  Result := TJSDate.new().toLocaleDateString(lLocale, new(['day', '2-digit', 'timeZoneName', 'longGeneric']));\r\n  Result := Result.Substring(4);\r\nend;\r\n\r\nprocedure TLocalTimeZone.DoGetOffsetsAndType(const ADateTime: TDateTime; out AOffset, ADstSave: Int64; out AType: TLocalTimeType);\r\nconst\r\n  cIndexJanuary = 0;\r\n  cIndexJuly = 6;\r\nvar\r\n  lDate: TJSDate;\r\n  lOffsetSummer: NativeInt;\r\n  lOffsetWinter: NativeInt;\r\n  lStdOffset: NativeInt;\r\n  lDST: TDSTPoints;\r\nbegin\r\n  lDate := TJSDate.New(DateTimeToUnix(ADateTime) * MSecsPerSec);\r\n\r\n  lOffsetSummer := TJSDate.New(YearOf(ADateTime), cIndexJuly).getTimezoneOffset;\r\n  lOffsetWinter := TJSDate.New(YearOf(ADateTime), cIndexJanuary).getTimezoneOffset;\r\n\r\n  lStdOffset := Max(lOffsetSummer, lOffsetWinter);\r\n  AOffset := -lStdOffset * SecsPerMin;\r\n  ADstSave := Abs(lOffsetSummer - lOffsetWinter) * SecsPerMin;\r\n\r\n  if FDST.Force(YearOf(ADateTime), lDST) then\r\n  begin\r\n    if (ADateTime > lDST.Key) and (ADateTime < IncHour(lDST.Key)) then\r\n    begin\r\n      AType := TLocalTimeType.lttInvalid;\r\n      Exit;\r\n    end;\r\n\r\n    if (ADateTime > lDST.Value) and (ADateTime < IncHour(lDST.Value)) then\r\n    begin\r\n      AType := TLocalTimeType.lttAmbiguous;\r\n      Exit;\r\n    end;\r\n  end;\r\n\r\n  if lDate.getTimezoneOffset = lStdOffset then\r\n    AType := TLocalTimeType.lttStandard\r\n  else\r\n    AType := TLocalTimeType.lttDaylight;\r\nend;\r\n\r\nfunction DateTimeToMilliseconds(const ADateTime: TDateTime): Int64;\r\nvar\r\n  LTimeStamp: TTimeStamp;\r\nbegin\r\n  LTimeStamp := DateTimeToTimeStamp(ADateTime);\r\n  Result := LTimeStamp.Date;\r\n  Result := (Result * MSecsPerDay) + LTimeStamp.Time;\r\nend;\r\n\r\nfunction TimeToMilliSeconds(const ATime: TTime): Integer;\r\nbegin\r\n  result := Round(Abs(TimeOf(ATime)) * MSecsPerDay);\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            Copyright (c) 2018 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.Login;\r\n\r\n{$DEFINE NOPP}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, SysUtils, Types, WEBLib.Controls, WEBLib.StdCtrls, WEBLib.Graphics, WEBLib.Dialogs,\r\n  Web;\r\n\r\ntype\r\n  TLoginPanel = class(TCustomControl)\r\n  private\r\n    FPasswordLabel: string;\r\n    FOnLogin: TNotifyEvent;\r\n    FUserLabel: string;\r\n    FPassword: string;\r\n    FCaptionLabel: string;\r\n    FUser: string;\r\n    FBorderColor: TColor;\r\n    FLoginLabel: string;\r\n    FElementButtonClassname: string;\r\n    FElementInputClassName: string;\r\n    FElementClassName: string;\r\n    FUserInput: TJSHTMLElement;\r\n    FPasswordInput: TJSHTMLElement;\r\n    FUserLabelSpan: TJSHTMLElement;\r\n    FPasswordLabelSpan: TJSHTMLElement;\r\n    FButton: TJSHTMLElement;\r\n    FCaption: TJSHTMLElement;\r\n    FElementCaptionClassName: string;\r\n    FPadding: integer;\r\n    FMargin: integer;\r\n    FElementLabelClassName: string;\r\n    FCreated: boolean;\r\n    procedure SetPassword(const Value: string);\r\n    procedure SetPasswordLabel(const Value: string);\r\n    procedure SetUser(const Value: string);\r\n    procedure SetUserLabel(const Value: string);\r\n    function HandleLoginClick(Event: TJSMouseEvent): Boolean; virtual;\r\n    function HandlePasswordKeypress(Event: TJSKeyBoardEvent): Boolean; virtual;\r\n    function GetPassword: string;\r\n    function GetUser: string;\r\n    procedure SetBorderColor(const Value: TColor); reintroduce;\r\n    procedure SetCaptionLabel(const Value: string);\r\n    procedure SetElementButtonClassName(const Value: string);\r\n    procedure SetElementCaptionClassName(const Value: string);\r\n    procedure SetElementClassName(const Value: string); reintroduce;\r\n    procedure SetElementInputClassName(const Value: string);\r\n    procedure SetMargin(const Value: integer);\r\n    procedure SetPadding(const Value: integer);\r\n    procedure SetElementLabelClassName(const Value: string);\r\n    procedure SetLoginLabel(const Value: string);\r\n  protected\r\n    procedure DoLogin; virtual;\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElementVisual; override;\r\n    procedure UpdateElementData; override;\r\n    procedure BindEvents; override;\r\n    procedure UnbindEvents; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property BorderColor: TColor read FBorderColor write SetBorderColor;\r\n    property CaptionLabel: string read FCaptionLabel write SetCaptionLabel;\r\n    property Center;\r\n    property ElementClassName: string read FElementClassName write SetElementClassName;\r\n    property ElementFont;\r\n    property ElementID;\r\n    property ElementPosition;\r\n    property ElementCaptionClassName: string read FElementCaptionClassName write SetElementCaptionClassName;\r\n    property ElementInputClassName: string read FElementInputClassName write SetElementInputClassName;\r\n    property ElementButtonClassName: string read FElementButtonClassName write SetElementButtonClassName;\r\n    property ElementLabelClassName: string read FElementLabelClassName write SetElementLabelClassName;\r\n    property Font;\r\n    property LoginLabel: string read FLoginLabel write SetLoginLabel;\r\n    property Margin: integer read FMargin write SetMargin;\r\n    property Padding: integer read FPadding write SetPadding;\r\n    property Password: string read GetPassword write SetPassword;\r\n    property PasswordLabel: string read FPasswordLabel write SetPasswordLabel;\r\n    property User: string read GetUser write SetUser;\r\n    property UserLabel: string read FUserLabel write SetUserLabel;\r\n    property OnClick;\r\n    property OnLogin: TNotifyEvent read FOnLogin write FOnLogin;\r\n\r\n  end;\r\n\r\n  TWebLoginPanel = class(TLoginPanel);\r\n\r\nimplementation\r\n\r\n{ TLoginPanel }\r\n\r\nprocedure TLoginPanel.BindEvents;\r\nvar\r\n  s: string;\r\nbegin\r\n  inherited;\r\n\r\n  if FCreated then\r\n  begin\r\n    FButton.addEventListener('click', @HandleLoginClick);\r\n    FPasswordInput.addEventListener('keypress', @HandlePasswordKeypress);\r\n    FCreated := false;\r\n  end\r\n  else\r\n  begin\r\n    s := GetID + '_btn';\r\n    FButton := TJSHTMLElement(document.getElementById(s));\r\n    FButton.addEventListener('click', @HandleLoginClick);\r\n\r\n    s := GetID + '_usr';\r\n    FUserInput := TJSHTMLElement(document.getElementById(s));\r\n    s := GetID + '_pwd';\r\n    FPasswordInput := TJSHTMLElement(document.getElementById(s));\r\n    FPasswordInput.addEventListener('keypress', @HandlePasswordKeypress);\r\n  end;\r\nend;\r\n\r\nfunction TLoginPanel.CreateElement: TJSElement;\r\nvar\r\n  br: TJSElement;\r\n  useCSS: boolean;\r\nbegin\r\n  FCreated := true;\r\n  Result := document.createElement('SPAN');\r\n\r\n  FCaption := TJSHTMLElement(document.createElement('DIV'));\r\n\r\n  FUserInput := TJSHTMLElement(document.createElement('INPUT'));\r\n  FUserInput['id'] := Name + '_usr';\r\n  FPasswordInput := TJSHTMLElement(document.createElement('INPUT'));\r\n  FPasswordInput.setAttribute('type','password');\r\n  FPasswordInput['id'] := Name + '_pwd';\r\n\r\n  FUserLabelSpan := TJSHTMLElement(document.createElement('DIV'));\r\n  FPasswordLabelSpan := TJSHTMLElement(document.createElement('DIV'));\r\n\r\n  useCSS := UseCSSFont;\r\n\r\n  SetHTMLElementFont(FCaption, Font, useCSS);\r\n  SetHTMLElementFont(FUserLabelSpan, Font, useCSS);\r\n  SetHTMLElementFont(FUserInput, Font, useCSS);\r\n  SetHTMLElementFont(FPasswordLabelSpan, Font, useCSS);\r\n  SetHTMLElementFont(FPasswordInput, Font, useCSS);\r\n\r\n  Result.appendChild(FCaption);\r\n  Result.appendChild(FUserLabelSpan);\r\n  Result.appendChild(FUserInput);\r\n  Result.appendChild(FPasswordLabelSpan);\r\n  Result.appendChild(FPasswordInput);\r\n\r\n  br := document.createElement('BR');\r\n  Result.appendChild(br);\r\n\r\n  FButton := TJSHTMLElement(document.createElement('BUTTON'));\r\n  FButton['id'] := Name + '_btn';\r\n  Result.appendChild(FButton);\r\nend;\r\n\r\nprocedure TLoginPanel.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  Color := clInfoBk;\r\n  FCaptionLabel := 'Login';\r\n  FBorderColor := clSilver;\r\n  FUserLabel := 'Username:';\r\n  FPasswordLabel := 'Password:';\r\n  FLoginLabel := 'Login';\r\n  FPadding := 10;\r\n  FMargin := 5;\r\n  Height := 155;\r\n  Width := 185;\r\nend;\r\n\r\nprocedure TLoginPanel.DoLogin;\r\nbegin\r\n  if Assigned(OnLogin) then\r\n    OnLogin(Self);\r\nend;\r\n\r\nfunction TLoginPanel.GetPassword: string;\r\nbegin\r\n  if Assigned(FPasswordInput) then\r\n    Result := (FPasswordInput as TJSHTMLInputElement).value\r\n  else\r\n    Result := FPassword;\r\nend;\r\n\r\nfunction TLoginPanel.GetUser: string;\r\nbegin\r\n  if Assigned(FUserInput) then\r\n    Result := (FUserInput as TJSHTMLInputElement).value\r\n  else\r\n    Result := FUser;\r\nend;\r\n\r\nfunction TLoginPanel.HandleLoginClick(Event: TJSMouseEvent): Boolean;\r\nbegin\r\n  Result := true;\r\n  DoLogin;\r\nend;\r\n\r\nfunction TLoginPanel.HandlePasswordKeypress(Event: TJSKeyBoardEvent): Boolean;\r\nbegin\r\n  Result := true;\r\n  if (Event.Key = 'Enter') then\r\n    DoLogin;\r\nend;\r\n\r\nprocedure TLoginPanel.SetBorderColor(const Value: TColor);\r\nbegin\r\n  if (FBorderColor <> Value) then\r\n  begin\r\n    FBorderColor := Value;\r\n    UpdateElementVisual;\r\n  end;\r\nend;\r\n\r\nprocedure TLoginPanel.SetCaptionLabel(const Value: string);\r\nbegin\r\n  if (FCaptionLabel <> Value) then\r\n  begin\r\n    FCaptionLabel := Value;\r\n    UpdateElementData;\r\n  end;\r\nend;\r\n\r\nprocedure TLoginPanel.SetElementButtonClassName(const Value: string);\r\nbegin\r\n  FElementButtonClassname := Value;\r\nend;\r\n\r\nprocedure TLoginPanel.SetElementCaptionClassName(const Value: string);\r\nbegin\r\n  FElementCaptionClassName := Value;\r\nend;\r\n\r\nprocedure TLoginPanel.SetElementClassName(const Value: string);\r\nbegin\r\n  FElementClassName := Value;\r\nend;\r\n\r\nprocedure TLoginPanel.SetElementInputClassName(const Value: string);\r\nbegin\r\n  FElementInputClassName := Value;\r\nend;\r\n\r\nprocedure TLoginPanel.SetElementLabelClassName(const Value: string);\r\nbegin\r\n  if (FElementLabelClassName <> Value) then\r\n  begin\r\n    FElementLabelClassName := Value;\r\n    UpdateElementVisual;\r\n  end;\r\nend;\r\n\r\nprocedure TLoginPanel.SetLoginLabel(const Value: string);\r\nbegin\r\n  if FLoginLabel <> Value then\r\n  begin\r\n    FLoginLabel := Value;\r\n    UpdateElementData;\r\n  end;\r\nend;\r\n\r\nprocedure TLoginPanel.SetMargin(const Value: integer);\r\nbegin\r\n  if (FMargin <> Value) then\r\n  begin\r\n    FMargin := Value;\r\n    UpdateElementVisual;\r\n  end;\r\nend;\r\n\r\nprocedure TLoginPanel.SetPadding(const Value: integer);\r\nbegin\r\n  if (FPadding <> Value) then\r\n  begin\r\n    FPadding := Value;\r\n    UpdateElementVisual;\r\n  end;\r\nend;\r\n\r\nprocedure TLoginPanel.SetPassword(const Value: string);\r\nbegin\r\n  if (FPassword <> Value) then\r\n  begin\r\n    FPassword := Value;\r\n    UpdateElementData;\r\n  end;\r\nend;\r\n\r\nprocedure TLoginPanel.SetPasswordLabel(const Value: string);\r\nbegin\r\n  if (FPasswordLabel <> Value) then\r\n  begin\r\n    FPasswordLabel := Value;\r\n    UpdateElementData;\r\n  end;\r\nend;\r\n\r\nprocedure TLoginPanel.SetUser(const Value: string);\r\nbegin\r\n  if (FUser <> Value) then\r\n  begin\r\n    FUser := Value;\r\n    UpdateElementData;\r\n  end;\r\nend;\r\n\r\nprocedure TLoginPanel.SetUserLabel(const Value: string);\r\nbegin\r\n  if (FUserLabel <> Value) then\r\n  begin\r\n    FUserLabel := Value;\r\n    UpdateElementData;\r\n  end;\r\nend;\r\n\r\nprocedure TLoginPanel.UnbindEvents;\r\nbegin\r\n  inherited;\r\n  FButton.removeEventListener('click',@HandleLoginClick);\r\nend;\r\n\r\nprocedure TLoginPanel.UpdateElementData;\r\nbegin\r\n  inherited;\r\n  FUserLabelSpan.innerHTML := FUserLabel;\r\n  FPasswordLabelSpan.innerHTML := FPasswordLabel;\r\n  FButton.innerHTML := FLoginLabel;\r\n  FCaption.innerHTML := FCaptionLabel;\r\n  (FUserInput as TJSHTMLInputElement).value := FUser;\r\n  (FPasswordInput as TJSHTMLInputElement).value := FPassword;\r\nend;\r\n\r\nprocedure TLoginPanel.UpdateElementVisual;\r\nvar\r\n  strpadding,strmargin: string;\r\n  useCSS: boolean;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    useCSS := UseCSSFont;\r\n\r\n    strpadding := IntToStr(Padding)+'px';\r\n    strmargin := IntToStr(Margin)+'px';\r\n\r\n    ElementHandle.setAttribute('class',ElementClassName);\r\n\r\n    if (ElementClassName = '') then\r\n    begin\r\n      ElementHandle.style.setProperty('border', 'solid 1px '+ColorToHTML(BorderColor));\r\n      ElementHandle.style.setProperty('padding',strPadding);\r\n    end;\r\n\r\n    if Visible then\r\n      ElementHandle.style.setProperty('display','table');\r\n\r\n    FCaption.setAttribute('class',ElementCaptionClassName);\r\n\r\n    if (ElementCaptionClassName = '') then\r\n    begin\r\n      FCaption.style.setProperty('margin-top',strMargin);\r\n      FCaption.style.setProperty('margin-bottom',strMargin);\r\n      FCaption.style.setProperty('font-weight','bold');\r\n\r\n      SetHTMLElementFont(FCaption, Font, useCSS);\r\n    end;\r\n\r\n    FUserInput.setAttribute('class',ElementInputClassName);\r\n    FPasswordInput.setAttribute('class',ElementInputClassName);\r\n\r\n    if (ElementInputClassName = '') then\r\n    begin\r\n      FUserInput.style.setProperty('margin-top',strMargin);\r\n      FUserInput.style.setProperty('margin-bottom',strMargin);\r\n      FPasswordInput.style.setProperty('margin-top',strMargin);\r\n      FPasswordInput.style.setProperty('margin-bottom',strMargin);\r\n\r\n      SetHTMLElementFont(FUserInput, Font, useCSS);\r\n      SetHTMLElementFont(FPasswordInput, Font, useCSS);\r\n    end;\r\n\r\n    FUserInput.style.setProperty('width','100%');\r\n    FUserInput.style.setProperty('display','table-cell');\r\n\r\n    FPasswordInput.style.setProperty('width','100%');\r\n    FPasswordInput.style.setProperty('display','table-cell');\r\n\r\n    FUserLabelSpan.setAttribute('class',ElementLabelClassName);\r\n    FPasswordLabelSpan.setAttribute('class',ElementLabelClassName);\r\n\r\n    if (ElementLabelClassName = '') then\r\n    begin\r\n      FUserLabelSpan.style.setProperty('margin-top',strMargin);\r\n      FUserLabelSpan.style.setProperty('margin-bottom',strMargin);\r\n      FPasswordLabelSpan.style.setProperty('margin-top',strMargin);\r\n      FPasswordLabelSpan.style.setProperty('margin-bottom',strMargin);\r\n\r\n      SetHTMLElementFont(FUserLabelSpan, Font, useCSS);\r\n      SetHTMLElementFont(FPasswordLabelSpan, Font, useCSS);\r\n    end;\r\n\r\n    FButton.setAttribute('class',ElementButtonClassName);\r\n\r\n    if (ElementButtonClassname = '') then\r\n    begin\r\n      FButton.style.setProperty('margin-top',strMargin);\r\n      FButton.style.setProperty('margin-bottom',strMargin);\r\n\r\n      SetHTMLElementFont(FButton, Font, useCSS);\r\n    end;\r\n\r\n    FButton.style.setProperty('float','right');\r\n  end;\r\nend;\r\n\r\nend.\r\n","{\r\n    This file is part of the Free Pascal run time library.\r\n    Copyright (c) 1999-2000 by Michael Van Canneyt, member of the\r\n    Free Pascal development team\r\n\r\n    Constants used for displaying messages in DB units\r\n\r\n    See the file COPYING.FPC, included in this distribution,\r\n    for details about the copyright.\r\n\r\n    This program is distributed in the hope that it will be useful,\r\n    but WITHOUT ANY WARRANTY; without even the implied warranty of\r\n    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\r\n\r\n **********************************************************************}\r\n\r\nunit DBConst;\r\n\r\nInterface\r\n\r\nResourcestring\r\n  SActiveDataset           = 'Operation cannot be performed on an active dataset';\r\n  SBadParamFieldType       = 'Bad fieldtype for parameter \"%s\".';\r\n  SCantSetAutoIncFields    = 'AutoInc Fields are read-only';\r\n  SConnected               = 'Operation cannot be performed on a connected database';\r\n  SDatasetReadOnly         = 'Dataset is read-only.';\r\n  SDatasetRegistered       = 'Dataset already registered : \"%s\"';\r\n  SDuplicateFieldName      = 'Duplicate fieldname : \"%s\"';\r\n  SErrAssTransaction       = 'Cannot assign transaction while old transaction active!';\r\n  SErrColumnNotFound       = 'Column \"%s\" not found.';\r\n  SErrDatabasenAssigned    = 'Database not assigned!';\r\n  SErrNoDatabaseAvailable  = 'Invalid operation: Not attached to database';\r\n  SErrNoDatabaseName       = 'Database connect string (DatabaseName) not filled in!';\r\n  SErrNoSelectStatement    = 'Cannot open a non-select statement';\r\n  SErrNoStatement          = 'SQL statement not set';\r\n  SErrTransAlreadyActive   = 'Transaction already active';\r\n  SErrTransactionnSet      = 'Transaction not set';\r\n  SErrIndexResultTooLong   = 'Index result for \"%s\" too long, >100 characters (%d).';\r\n  SErrIndexBasedOnInvField = 'Field \"%s\" has an invalid field type (%s) to base index on.';\r\n  SErrIndexBasedOnUnkField = 'Index based on unknown field \"%s\".';\r\n  SErrConnTransactionnSet  = 'Transaction of connection not set';\r\n  SErrNotASQLConnection    = '\"%s\" is not a TSQLConnection';\r\n  SErrNotASQLQuery         = '\"%s\" is not a TCustomSQLQuery';\r\n  STransNotActive          = 'Operation cannot be performed on an inactive transaction';\r\n  STransActive             = 'Operation cannot be performed on an active transaction';\r\n  SFieldNotFound           = 'Field not found : \"%s\"';\r\n  SInactiveDataset         = 'Operation cannot be performed on an inactive dataset';\r\n  SInvalidDisplayValues    = '\"%s\" are not valid boolean displayvalues';\r\n  SInvalidFieldKind        = '%s : invalid field kind : ';\r\n  SInvalidBookmark         = 'Invalid bookmark';\r\n  SInvalidFieldSize        = 'Invalid field size : %d';\r\n  SInvalidTypeConversion   = 'Invalid type conversion to %s in field %s';\r\n  SNeedField               = 'Field %s is required, but not supplied.';\r\n  SNeedFieldName           = 'Field needs a name';\r\n  SNoDataset               = 'No dataset asssigned for field : \"%s\"';\r\n  SNoDatasetRegistered     = 'No such dataset registered : \"%s\"';\r\n  SNoDatasets              = 'No datasets are attached to the database';\r\n  SNoSuchRecord            = 'Could not find the requested record.';\r\n  SNoTransactionRegistered = 'No such transaction registered : \"%s\"';\r\n  SNoTransactions          = 'No transactions are attached to the database';\r\n  SNotABoolean             = '\"%s\" is not a valid boolean';\r\n  SNotAFloat               = '\"%s\" is not a valid float';\r\n  SNotAninteger            = '\"%s\" is not a valid integer';\r\n  SNotConnected            = 'Operation cannot be performed on an disconnected database';\r\n  SNotEditing              = 'Operation not allowed, dataset \"%s\" is not in an edit or insert state.';\r\n  SParameterNotFound       = 'Parameter \"%s\" not found';\r\n  SRangeError              = '%f is not between %f and %f for %s';\r\n  SReadOnlyField           = 'Field %s cannot be modified, it is read-only.';\r\n  STransactionRegistered   = 'Transaction already registered : \"%s\"';\r\n  SUniDirectional          = 'Operation cannot be performed on an unidirectional dataset';\r\n  SUnknownField            = 'No field named \"%s\" was found in dataset \"%s\"';\r\n  SUnknownFieldType        = 'Unknown field type : %s';\r\n  SUnknownParamFieldType   = 'Unknown fieldtype for parameter \"%s\".';\r\n  SMetadataUnavailable     = 'The metadata is not available for this type of database.';\r\n  SDeletedRecord           = 'The record is deleted.';\r\n  SIndexNotFound           = 'Index ''%s'' not found';\r\n  SParameterCountIncorrect = 'The number of parameters is incorrect.';\r\n  SUnsupportedParameter    = 'Parameters of the type ''%s'' are not (yet) supported.';\r\n  SFieldValueError         = 'Invalid value for field ''%s''';\r\n  SInvalidCalcType         = 'Field ''%s'' cannot be a calculated or lookup field';\r\n  SDuplicateName           = 'Duplicate name ''%s'' in %s';\r\n  SNoParseSQL              = '%s is only possible if ParseSQL is True';\r\n  SLookupInfoError         = 'Lookup information for field ''%s'' is incomplete';\r\n  SUnsupportedFieldType    = 'Fieldtype %s is not supported';\r\n  SInvPacketRecordsValue   = 'PacketRecords has to be larger then 0';\r\n  SInvPacketRecordsValueFieldNames = 'PacketRecords must be -1 if IndexFieldNames is set';\r\n  SInvalidSearchFieldType  = 'Searching in fields of type %s is not supported';\r\n  SDatasetEmpty            = 'The dataset is empty';\r\n  SFieldIsNull             = 'The field is null';\r\n  SOnUpdateError           = 'An error occurred while applying the updates in a record: %s';\r\n  SApplyRecNotSupported    = 'Applying updates is not supported by this TDataset descendent';\r\n  SNoWhereFields           = 'No %s query specified and failed to generate one. (No fields for inclusion in where statement found)';\r\n  SNoUpdateFields          = 'No %s query specified and failed to generate one. (No fields found for insert- or update-statement found)';\r\n  SNotSupported            = 'Operation is not supported by this type of database';\r\n  SDBCreateDropFailed      = 'Creation or dropping of database failed';\r\n  SMaxIndexes              = 'The maximum amount of indexes is reached';\r\n  SMinIndexes              = 'The minimum amount of indexes is 1';\r\n  STooManyFields           = 'More fields specified then really exist';\r\n// These are added for Delphi-compatilility, but not used by the fcl:\r\n  SFieldIndexError         = 'Field index out of range';\r\n  SIndexFieldMissing       = 'Cannot access index field ''%s''';\r\n  SNoFieldIndexes          = 'No index currently active';\r\n  SNotIndexField           = 'Field ''%s'' is not indexed and cannot be modified';\r\n  SErrUnknownConnectorType = 'Unknown connector type: \"%s\"';\r\n  SNoIndexFieldNameGiven   = 'There are no fields selected to base the index on';\r\n  SStreamNotRecognised     = 'The data-stream format is not recognized';\r\n  SNoReaderClassRegistered = 'There is no TDatapacketReaderClass registered for this kind of data-stream';\r\n  SErrCircularDataSourceReferenceNotAllowed = 'Circular datasource references are not allowed.';\r\n  SCommitting               = 'Committing transaction';\r\n  SRollingBack              = 'Rolling back transaction';\r\n  SCommitRetaining          = 'Commit and retaining transaction';\r\n  SRollBackRetaining        = 'Rollback and retaining transaction';\r\n  SErrNoFieldsDefined       = 'Can not create a dataset when there are no fielddefinitions or fields defined';\r\n  SErrApplyUpdBeforeRefresh = 'Must apply updates before refreshing data';\r\n  SErrNoDataset             = 'Missing (compatible) underlying dataset, can not open';\r\n  SErrDisconnectedPacketRecords = 'For disconnected TSQLQuery instances, packetrecords must be -1';\r\n  SErrImplicitNoRollBack      = 'Implicit use of transactions does not allow rollback.';\r\n  SErrNoImplicitTransaction   = 'Connection %s does not allow implicit transactions.';\r\n  SErrImplictTransactionStart = 'Error: attempt to implicitly start a transaction on Connection \"%s\", transaction \"%s\".';\r\n  SErrImplicitConnect         = 'Error: attempt to implicitly activate connection \"%s\".';\r\n  SErrFailedToUpdateRecord    = 'Failed to apply record updates: %d rows updated.';\r\n  SErrRefreshNotSingleton     = 'Refresh SQL resulted in multiple records: %d.';\r\n  SErrRefreshEmptyResult      = 'Refresh SQL resulted in empty result set.';\r\n  SErrNoKeyFieldForRefreshClause = 'No key field found to construct refresh SQL WHERE clause';\r\n  SErrFailedToFetchReturningResult = 'Failed to fetch returning result';\r\n  SLogParamValue              = 'Parameter \"%s\" value : \"%s\"';\r\n  SErrInvalidDateTime         = 'Invalid date/time value : \"%s\"';\r\n  SatEOFInternalOnly          = 'loAtEOF is for internal use only.';\r\n  SErrInsertingSameRecordtwice = 'Attempt to insert the same record twice.';\r\n  SErrDoApplyUpdatesNeedsProxy = 'Cannot apply updates without Data proxy';\r\n  SNestedDataSetClass = 'Nested dataset must inherit from %s';\r\n  SCircularDataLink = 'Circular datalinks are not allowed';\n\r\nImplementation\r\n\r\nend.\r\n","{\r\n    This file is part of the Free Pascal run time library.\r\n    Copyright (c) 1999-2017 by Michael Van Canneyt, member of the\r\n    Free Pascal development team\r\n\r\n    DB database unit\r\n\r\n    See the file COPYING.FPC, included in this distribution,\r\n    for details about the copyright.\r\n\r\n    This program is distributed in the hope that it will be useful,\r\n    but WITHOUT ANY WARRANTY; without even the implied warranty of\r\n    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\r\n\r\n **********************************************************************}\r\nunit DB;\r\n\r\n{$mode objfpc}\r\n\r\n{ $define dsdebug}\r\n\r\ninterface\r\n\r\nuses Classes, SysUtils, JS, Types, DateUtils;\r\n\r\nconst\r\n\r\n  dsMaxBufferCount = MAXINT div 8;\r\n  dsMaxStringSize = 8192;\r\n\r\n  // Used in AsBoolean for string fields to determine\r\n  // whether it's true or false.\r\n  YesNoChars : Array[Boolean] of char = ('N', 'Y');\r\n\r\n  SQLDelimiterCharacters = [';',',',' ','(',')',#13,#10,#9];\r\n\r\ntype\r\n\r\n{ Misc Dataset types }\r\n\r\n  TDataSetState = (dsInactive, dsBrowse, dsEdit, dsInsert, dsSetKey,\r\n    dsCalcFields, dsFilter, dsNewValue, dsOldValue, dsCurValue, dsBlockRead,\r\n    dsInternalCalc, dsOpening, dsRefreshFields);\r\n\r\n  TDataEvent = (deFieldChange, deRecordChange, deDataSetChange,\r\n    deDataSetScroll, deLayoutChange, deUpdateRecord, deUpdateState,\r\n    deCheckBrowseMode, dePropertyChange, deFieldListChange, deFocusControl,\r\n    deParentScroll,deConnectChange,deReconcileError,deDisabledStateChange);\r\n\r\n  TUpdateStatus = (usModified, usInserted, usDeleted);\r\n  TUpdateStatusSet = Set of TUpdateStatus;\r\n\r\n  TResolveStatus = (rsUnresolved, rsResolving, rsResolved, rsResolveFailed);\r\n  TResolveStatusSet = Set of TResolveStatus;\r\n\r\n  TUpdateMode = (upWhereAll, upWhereChanged, upWhereKeyOnly);\r\n  TResolverResponse = (rrSkip, rrAbort, rrMerge, rrApply, rrIgnore);\r\n\r\n  TProviderFlag = (pfInUpdate, pfInWhere, pfInKey, pfHidden, pfRefreshOnInsert,pfRefreshOnUpdate);\r\n  TProviderFlags = set of TProviderFlag;\r\n\r\n{ Forward declarations }\r\n\r\n  TFieldDef = class;\r\n  TFieldDefs = class;\r\n  TField = class;\r\n  TFields = Class;\r\n  TDataSet = class;\r\n  TDataSource = Class;\r\n  TDataLink = Class;\r\n  TDataProxy = Class;\r\n  TDataRequest = class;\r\n  TRecordUpdateDescriptor = class;\r\n  TRecordUpdateDescriptorList = class;\r\n  TRecordUpdateBatch = class;\r\n\r\n{ Exception classes }\r\n\r\n  EDatabaseError = class(Exception);\r\n\r\n  EUpdateError   = class(EDatabaseError)\r\n  private\r\n    FContext           : String;\r\n    FErrorCode         : integer;\r\n    FOriginalException : Exception;\r\n    FPreviousError     : Integer;\r\n  public\r\n    constructor Create(NativeError, Context : String;\r\n      ErrCode, PrevError : integer; E: Exception); reintroduce;\r\n    Destructor Destroy; override;\r\n    property Context : String read FContext;\r\n    property ErrorCode : integer read FErrorcode;\r\n    property OriginalException : Exception read FOriginalException;\r\n    property PreviousError : Integer read FPreviousError;\r\n  end;\r\n  \r\n\r\n{ TFieldDef }\r\n\r\n  TFieldClass = class of TField;\r\n\r\n  // Data type for field.\r\n  TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord, // 0..4\r\n    ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime, // 5..11\r\n    ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo, // 12..18\r\n    ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString, // 19..24\r\n    ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob, // 25..31\r\n    ftVariant, ftInterface, ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd, // 32..37\r\n    ftFixedWideChar, ftWideMemo, ftOraTimeStamp, ftOraInterval, // 38..41\r\n    ftLongWord, ftShortint, ftByte, ftExtended, ftConnection, ftParams, ftStream, //42..48\r\n    ftTimeStampOffset, ftObject, ftSingle); //49..51\r\n\r\nconst\r\n  ftNonTextTypes = [ftBytes, ftVarBytes, ftBlob, ftMemo, ftGraphic, ftFmtMemo,\r\n    ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftADT, ftArray,\r\n    ftReference, ftDataSet];\r\n\r\ntype\r\n\r\n{ TDateTimeRec }\r\n\r\n  TFieldAttribute = (faHiddenCol, faReadonly, faRequired, faLink, faUnNamed, faFixed);\r\n  TFieldAttributes = set of TFieldAttribute;\r\n\r\n{ TNamedItem }\r\n\r\n  TNamedItem = class(TCollectionItem)\r\n  private\r\n    FName: string;\r\n  protected\r\n    function GetDisplayName: string; override;\r\n    procedure SetDisplayName(const Value: string); override;\r\n  Public  \r\n    property DisplayName : string read GetDisplayName write SetDisplayName;\r\n  published\r\n    property Name : string read FName write SetDisplayName;\r\n  end;\r\n\r\n{ TDefCollection }\r\n\r\n  TDefCollection = class(TOwnedCollection)\r\n  private\r\n    FDataset: TDataset;\r\n    FUpdated: boolean;\r\n  protected\r\n    procedure SetItemName(Item: TCollectionItem); override;\r\n  public\r\n    constructor create(ADataset: TDataset; AOwner: TPersistent; AClass: TCollectionItemClass); reintroduce;\r\n    function Find(const AName: string): TNamedItem;\r\n    procedure GetItemNames(List: TStrings);\r\n    function IndexOf(const AName: string): Longint;\r\n    property Dataset: TDataset read FDataset;\r\n    property Updated: boolean read FUpdated write FUpdated;\r\n  end;\r\n\r\n{ TFieldDef }\r\n\r\n  TFieldDef = class(TNamedItem)\r\n  Private\r\n    FAttributes : TFieldAttributes;\r\n    FDataType : TFieldType;\r\n    FFieldNo : Longint;\r\n    FInternalCalcField : Boolean;\r\n    FPrecision : Longint;\r\n    FRequired : Boolean;\r\n    FSize : Integer;\r\n    Function GetFieldClass : TFieldClass;\r\n    procedure SetAttributes(AValue: TFieldAttributes);\r\n    procedure SetDataType(AValue: TFieldType);\r\n    procedure SetPrecision(const AValue: Longint);\r\n    procedure SetSize(const AValue: Integer);\r\n    procedure SetRequired(const AValue: Boolean);\r\n  public\r\n    constructor Create(ACollection : TCollection); override;\r\n    constructor Create(AOwner: TFieldDefs; const AName: string;  ADataType: TFieldType; ASize: Integer; ARequired: Boolean; AFieldNo: Longint); overload;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    function CreateField(AOwner: TComponent): TField;\r\n    property FieldClass: TFieldClass read GetFieldClass;\r\n    property FieldNo: Longint read FFieldNo;\r\n    property InternalCalcField: Boolean read FInternalCalcField write FInternalCalcField;\r\n    property Required: Boolean read FRequired write SetRequired;\r\n  Published\r\n    property Attributes: TFieldAttributes read FAttributes write SetAttributes default [];\r\n    property DataType: TFieldType read FDataType write SetDataType;\r\n    property Precision: Longint read FPrecision write SetPrecision default 0;\r\n    property Size: Integer read FSize write SetSize default 0;\r\n  end;\r\n  TFieldDefClass = Class of TFieldDef;\r\n\r\n{ TFieldDefs }\r\n\r\n  TFieldDefs = class(TDefCollection)\r\n  private\r\n    FHiddenFields : Boolean;\r\n    function GetItem(Index: Longint): TFieldDef; reintroduce;\r\n    procedure SetItem(Index: Longint; const AValue: TFieldDef); reintroduce;\r\n  Protected\r\n    Class Function FieldDefClass : TFieldDefClass; virtual;\r\n  public\r\n    constructor Create(ADataSet: TDataSet); reintroduce;\r\n//    destructor Destroy; override;\r\n    Function Add(const AName: string; ADataType: TFieldType; ASize, APrecision{%H-}: Integer; ARequired, AReadOnly: Boolean; AFieldNo : Integer) : TFieldDef; overload;\r\n    Function Add(const AName: string; ADataType: TFieldType; ASize: Word; ARequired: Boolean; AFieldNo : Integer) : TFieldDef; overload;\r\n    procedure Add(const AName: string; ADataType: TFieldType; ASize: Word; ARequired: Boolean); overload;\r\n    procedure Add(const AName: string; ADataType: TFieldType; ASize: Word); overload;\r\n    procedure Add(const AName: string; ADataType: TFieldType); overload;\r\n    function Add: TFieldDef; overload; reintroduce;\r\n    Function AddFieldDef : TFieldDef;\r\n    procedure Assign(FieldDefs: TFieldDefs); overload;\r\n    function Find(const AName: string): TFieldDef; reintroduce;\r\n//    procedure Clear;\r\n//    procedure Delete(Index: Longint);\r\n    procedure Update; overload;\r\n    Function MakeNameUnique(const AName : String) : string; virtual;\r\n    Property HiddenFields : Boolean Read FHiddenFields Write FHiddenFields;\r\n    property Items[Index: Longint]: TFieldDef read GetItem write SetItem; default;\r\n  end;\r\n  TFieldDefsClass = Class of TFieldDefs;\r\n\r\n{ TField }\r\n\r\n  TFieldKind = (fkData, fkCalculated, fkLookup, fkInternalCalc);\r\n  TFieldKinds = Set of TFieldKind;\r\n\r\n  TFieldNotifyEvent = procedure(Sender: TField) of object;\r\n  TFieldGetTextEvent = procedure(Sender: TField; var aText: string;\r\n    DisplayText: Boolean) of object;\r\n  TFieldSetTextEvent = procedure(Sender: TField; const aText: string) of object;\r\n  TFieldChars = Array of Char;\r\n\r\n{ TLookupList }\r\n\r\n  TAutoRefreshFlag = (arNone, arAutoInc, arDefault);\r\n  TLookupList = class(TObject)\r\n  private\r\n    FList: TFPList;\r\n  public\r\n    constructor Create; reintroduce;\r\n    destructor Destroy; override;\r\n    procedure Add(const AKey, AValue: JSValue);\r\n    procedure Clear;\r\n    function FirstKeyByValue(const AValue: JSValue): JSValue;\r\n    function ValueOfKey(const AKey: JSValue): JSValue;\r\n    procedure ValuesToStrings(AStrings: TStrings);\r\n  end;\r\n\r\n{ TField }\r\n\r\n  TField = class(TComponent)\r\n  private\r\n    FAlignment : TAlignment;\r\n    FAttributeSet : String;\r\n    FAutoGenerateValue: TAutoRefreshFlag;\r\n    FCalculated : Boolean;\r\n    FConstraintErrorMessage : String;\r\n    FCustomConstraint : String;\r\n    FDataSet : TDataSet;\r\n//    FDataSize : Word;\r\n    FDataType : TFieldType;\r\n    FDefaultExpression : String;\r\n    FDisplayLabel : String;\r\n    FDisplayWidth : Longint;\r\n//    FEditMask: TEditMask;\r\n    FFieldDef: TFieldDef;\r\n    FFieldKind : TFieldKind;\r\n    FFieldName : String;\r\n    FFieldNo : Longint;\r\n    FFields : TFields;\r\n    FHasConstraints : Boolean;\r\n    FImportedConstraint : String;\r\n    FIsIndexField : Boolean;\r\n    FKeyFields : String;\r\n    FLookupCache : Boolean;\r\n    FLookupDataSet : TDataSet;\r\n    FLookupKeyfields : String;\r\n    FLookupresultField : String;\r\n    FLookupList: TLookupList;\r\n    FOnChange : TFieldNotifyEvent;\r\n    FOnGetText: TFieldGetTextEvent;\r\n    FOnSetText: TFieldSetTextEvent;\r\n    FOnValidate: TFieldNotifyEvent;\r\n    FOrigin : String;\r\n    FReadOnly : Boolean;\r\n    FRequired : Boolean;\r\n    FSize : integer;\r\n    FValidChars : TFieldChars;\r\n    FValueBuffer : JSValue;\r\n    FValidating : Boolean;\r\n    FVisible : Boolean;\r\n    FProviderFlags : TProviderFlags;\r\n    function GetIndex : longint;\r\n    function GetLookup: Boolean;\r\n    procedure SetAlignment(const AValue: TAlignMent);\r\n    procedure SetIndex(const AValue: Longint);\r\n    function GetDisplayText: String;\r\n    function GetEditText: String;\r\n    procedure SetEditText(const AValue: string);\r\n    procedure SetDisplayLabel(const AValue: string);\r\n    procedure SetDisplayWidth(const AValue: Longint);\r\n    function GetDisplayWidth: integer;\r\n    procedure SetLookup(const AValue: Boolean);\r\n    procedure SetReadOnly(const AValue: Boolean);\r\n    procedure SetVisible(const AValue: Boolean);\r\n    function IsDisplayLabelStored : Boolean;\r\n    function IsDisplayWidthStored: Boolean;\r\n    function GetLookupList: TLookupList;\r\n    procedure CalcLookupValue;\r\n  protected\r\n    Procedure RaiseAccessError(const TypeName: string);\r\n    function AccessError(const TypeName: string): EDatabaseError;\r\n    procedure CheckInactive;\r\n    class procedure CheckTypeSize(AValue: Longint); virtual;\r\n    procedure Change; virtual;\r\n    procedure Bind(Binding: Boolean); virtual;\r\n    procedure DataChanged;\r\n    function GetAsBoolean: Boolean; virtual;\r\n    function GetAsBytes: TBytes; virtual;\r\n    function GetAsLargeInt: NativeInt; virtual;\r\n    function GetAsDateTime: TDateTime; virtual;\r\n    function GetAsFloat: Double; virtual;\r\n    function GetAsLongint: Longint; virtual;\r\n    function GetAsInteger: Longint; virtual;\r\n    function GetAsJSValue: JSValue; virtual;\r\n    function GetOldValue: JSValue; virtual;\r\n    function GetAsString: string; virtual;\r\n    function GetCanModify: Boolean; virtual;\r\n    function GetClassDesc: String; virtual;\r\n    function GetDataSize: Integer; virtual;\r\n    function GetDefaultWidth: Longint; virtual;\r\n    function GetDisplayName : String;\r\n    function GetCurValue: JSValue; virtual;\r\n    function GetNewValue: JSValue; virtual;\r\n    function GetIsNull: Boolean; virtual;\r\n    procedure GetText(var AText: string; ADisplayText{%H-}: Boolean); virtual;\r\n    procedure Notification(AComponent: TComponent; Operation: TOperation); override;\r\n    procedure PropertyChanged(LayoutAffected: Boolean);\r\n    procedure SetAsBoolean(AValue{%H-}: Boolean); virtual;\r\n    procedure SetAsDateTime(AValue{%H-}: TDateTime); virtual;\r\n    procedure SetAsFloat(AValue{%H-}: Double); virtual;\r\n    procedure SetAsLongint(AValue: Longint); virtual;\r\n    procedure SetAsInteger(AValue{%H-}: Longint); virtual;\r\n    procedure SetAsLargeInt(AValue{%H-}: NativeInt); virtual;\r\n    procedure SetAsJSValue(const AValue: JSValue); virtual;\r\n    procedure SetAsString(const AValue{%H-}: string); virtual;\r\n    procedure SetDataset(AValue : TDataset); virtual;\r\n    procedure SetDataType(AValue: TFieldType);\r\n    procedure SetNewValue(const AValue: JSValue);\r\n    procedure SetSize(AValue: Integer); virtual;\r\n    procedure SetText(const AValue: string); virtual;\r\n    procedure SetVarValue(const AValue{%H-}: JSValue); virtual;\r\n    procedure SetAsBytes(const AValue{%H-}: TBytes); virtual;\r\n    procedure DefineProperties(Filer: TFiler);  override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    function GetParentComponent: TComponent; override;\r\n    procedure SetParentComponent(Value: TComponent); override;\r\n    function HasParent: Boolean; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure AssignValue(const AValue: JSValue);\r\n    procedure Clear; virtual;\r\n    procedure FocusControl;\r\n    function GetData : JSValue;\r\n    class function IsBlob: Boolean; virtual;\r\n    function IsValidChar(InputChar: Char): Boolean; virtual;\r\n    procedure RefreshLookupList;\r\n    procedure SetData(Buffer: JSValue); overload;\r\n    procedure SetFieldType(AValue{%H-}: TFieldType); virtual;\r\n    procedure Validate(Buffer: Pointer);\r\n    property AsBytes: TBytes read GetAsBytes write SetAsBytes;\r\n    property AsBoolean: Boolean read GetAsBoolean write SetAsBoolean;\r\n    property AsDateTime: TDateTime read GetAsDateTime write SetAsDateTime;\r\n    property AsFloat: Double read GetAsFloat write SetAsFloat;\r\n    property AsLongint: Longint read GetAsLongint write SetAsLongint;\r\n    property AsLargeInt: NativeInt read GetAsLargeInt write SetAsLargeInt;\r\n    property AsInteger: Longint read GetAsInteger write SetAsInteger;\r\n    property AsString: string read GetAsString write SetAsString;\r\n    property AsJSValue: JSValue read GetAsJSValue write SetAsJSValue;\r\n    property AutoGenerateValue: TAutoRefreshFlag read FAutoGenerateValue write FAutoGenerateValue default arNone;\r\n    property AttributeSet: string read FAttributeSet write FAttributeSet;\r\n    property Calculated: Boolean read FCalculated write FCalculated;\r\n    property CanModify: Boolean read GetCanModify;\r\n    property CurValue: JSValue read GetCurValue;\r\n    property DataSet: TDataSet read FDataSet write SetDataSet;\r\n    property DataSize: Integer read GetDataSize;\r\n    property DataType: TFieldType read FDataType;\r\n    property DisplayName: String Read GetDisplayName;\r\n    property DisplayText: String read GetDisplayText;\r\n    property FieldNo: Longint read FFieldNo;\r\n    property IsIndexField: Boolean read FIsIndexField;\r\n    property IsNull: Boolean read GetIsNull;\r\n    property Lookup: Boolean read GetLookup write SetLookup; //deprecated;\r\n    property NewValue: JSValue read GetNewValue write SetNewValue;\r\n    property Size: Integer read FSize write SetSize;\r\n    property Text: string read GetEditText write SetEditText;\r\n    property ValidChars : TFieldChars read FValidChars write FValidChars;\r\n    property Value: JSValue read GetAsJSValue write SetAsJSValue;\r\n    property OldValue: JSValue read GetOldValue;\r\n    property LookupList: TLookupList read GetLookupList;\r\n    Property FieldDef : TFieldDef Read FFieldDef;\r\n  published\r\n    property Alignment : TAlignment read FAlignment write SetAlignment default taLeftJustify;\r\n    property CustomConstraint: string read FCustomConstraint write FCustomConstraint;\r\n    property ConstraintErrorMessage: string read FConstraintErrorMessage write FConstraintErrorMessage;\r\n    property DefaultExpression: string read FDefaultExpression write FDefaultExpression;\r\n    property DisplayLabel : string read GetDisplayName write SetDisplayLabel stored IsDisplayLabelStored;\r\n    property DisplayWidth: Longint read GetDisplayWidth write SetDisplayWidth stored IsDisplayWidthStored;\r\n    property FieldKind: TFieldKind read FFieldKind write FFieldKind;\r\n    property FieldName: string read FFieldName write FFieldName;\r\n    property HasConstraints: Boolean read FHasConstraints;\r\n    property Index: Longint read GetIndex write SetIndex;\r\n    property ImportedConstraint: string read FImportedConstraint write FImportedConstraint;\r\n    property KeyFields: string read FKeyFields write FKeyFields;\r\n    property LookupCache: Boolean read FLookupCache write FLookupCache;\r\n    property LookupDataSet: TDataSet read FLookupDataSet write FLookupDataSet;\r\n    property LookupKeyFields: string read FLookupKeyFields write FLookupKeyFields;\r\n    property LookupResultField: string read FLookupResultField write FLookupResultField;\r\n    property Origin: string read FOrigin write FOrigin;\r\n    property ProviderFlags : TProviderFlags read FProviderFlags write FProviderFlags;\r\n    property ReadOnly: Boolean read FReadOnly write SetReadOnly;\r\n    property Required: Boolean read FRequired write FRequired;\r\n    property Visible: Boolean read FVisible write SetVisible default True;\r\n    property OnChange: TFieldNotifyEvent read FOnChange write FOnChange;\r\n    property OnGetText: TFieldGetTextEvent read FOnGetText write FOnGetText;\r\n    property OnSetText: TFieldSetTextEvent read FOnSetText write FOnSetText;\r\n    property OnValidate: TFieldNotifyEvent read FOnValidate write FOnValidate;\r\n  end;\r\n\r\n{ TStringField }\r\n\r\n  TStringField = class(TField)\r\n  private\r\n    FFixedChar     : boolean;\r\n    FTransliterate : Boolean;\r\n  protected\r\n    class procedure CheckTypeSize(AValue: Longint); override;\r\n    function GetAsBoolean: Boolean; override;\r\n    function GetAsDateTime: TDateTime; override;\r\n    function GetAsFloat: Double; override;\r\n    function GetAsInteger: Longint; override;\r\n    function GetAsLargeInt: NativeInt; override;\r\n    function GetAsString: String; override;\r\n    function GetAsJSValue: JSValue; override;\r\n    function GetDefaultWidth: Longint; override;\r\n    procedure GetText(var AText: string; ADisplayText{%H-}: Boolean); override;\r\n    procedure SetAsBoolean(AValue: Boolean); override;\r\n    procedure SetAsDateTime(AValue: TDateTime); override;\r\n    procedure SetAsFloat(AValue: Double); override;\r\n    procedure SetAsInteger(AValue: Longint); override;\r\n    procedure SetAsLargeInt(AValue: NativeInt); override;\r\n    procedure SetAsString(const AValue: String); override;\r\n    procedure SetVarValue(const AValue: JSValue); override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    procedure SetFieldType(AValue: TFieldType); override;\r\n    property FixedChar : Boolean read FFixedChar write FFixedChar;\r\n    property Transliterate: Boolean read FTransliterate write FTransliterate;\r\n    property Value: String read GetAsString write SetAsString;\r\n  published\r\n    property Size default 20;\r\n  end;\r\n\r\n\r\n{ TNumericField }\r\n\r\n  TNumericField = class(TField)\r\n  Private\r\n    FDisplayFormat : String;\r\n    FEditFormat : String;\r\n  protected\r\n    class procedure CheckTypeSize(AValue: Longint); override;\r\n    procedure RangeError(AValue, Min, Max: Double);\r\n    procedure SetDisplayFormat(const AValue: string);\r\n    procedure SetEditFormat(const AValue: string);\r\n    function  GetAsBoolean: Boolean; override;\r\n    Procedure SetAsBoolean(AValue: Boolean); override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n  published\r\n    property Alignment default taRightJustify;\r\n    property DisplayFormat: string read FDisplayFormat write SetDisplayFormat;\r\n    property EditFormat: string read FEditFormat write SetEditFormat;\r\n  end;\r\n\r\n{ TLongintField }\r\n\r\n  TIntegerField = class(TNumericField)\r\n  private\r\n    FMinValue,\r\n    FMaxValue,\r\n    FMinRange,\r\n    FMaxRange  : Longint;\r\n    Procedure SetMinValue (AValue : longint);\r\n    Procedure SetMaxValue (AValue : longint);\r\n  protected\r\n    function GetAsFloat: Double; override;\r\n    function GetAsInteger: Longint; override;\r\n    function GetAsString: string; override;\r\n    function GetAsJSValue: JSValue; override;\r\n    procedure GetText(var AText: string; ADisplayText: Boolean); override;\r\n    function GetValue(var AValue: Longint): Boolean;\r\n    procedure SetAsFloat(AValue: Double); override;\r\n    procedure SetAsInteger(AValue: Longint); override;\r\n    procedure SetAsString(const AValue: string); override;\r\n    procedure SetVarValue(const AValue: JSValue); override;\r\n    function GetAsLargeInt: NativeInt; override;\r\n    procedure SetAsLargeInt(AValue: NativeInt); override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    Function CheckRange(AValue : Longint) : Boolean;\r\n    property Value: Longint read GetAsInteger write SetAsInteger;\r\n  published\r\n    property MaxValue: Longint read FMaxValue write SetMaxValue default 0;\r\n    property MinValue: Longint read FMinValue write SetMinValue default 0;\r\n  end;\r\n\r\n  TSmallIntField = class(TIntegerField);\r\n\r\n  TWordField = class(TIntegerField)\r\n  private\r\n    procedure SetAsWord(AValue: word);\r\n    function GetAsWord: word;\r\n  public\r\n    property Value: Word read GetAsWord write SetAsWord;\r\n  end;\r\n\r\n{ TLargeintField }\r\n\r\n  TLargeintField = class(TNumericField)\r\n  private\r\n    FMinValue,\r\n    FMaxValue,\r\n    FMinRange,\r\n    FMaxRange  : NativeInt;\r\n    Procedure SetMinValue (AValue : NativeInt);\r\n    Procedure SetMaxValue (AValue : NativeInt);\r\n  protected\r\n    function GetAsFloat: Double; override;\r\n    function GetAsInteger: Longint; override;\r\n    function GetAsLargeInt: NativeInt; override;\r\n    function GetAsString: string; override;\r\n    function GetAsJSValue: JSValue; override;\r\n    procedure GetText(var AText: string; ADisplayText: Boolean); override;\r\n    function GetValue(var AValue: NativeInt): Boolean;\r\n    procedure SetAsFloat(AValue: Double); override;\r\n    procedure SetAsInteger(AValue: Longint); override;\r\n    procedure SetAsLargeInt(AValue: NativeInt); override;\r\n    procedure SetAsString(const AValue: string); override;\r\n    procedure SetVarValue(const AValue: JSValue); override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    Function CheckRange(AValue : NativeInt) : Boolean;\r\n    property Value: NativeInt read GetAsLargeInt write SetAsLargeInt;\r\n  published\r\n    property MaxValue: NativeInt read FMaxValue write SetMaxValue default 0;\r\n    property MinValue: NativeInt read FMinValue write SetMinValue default 0;\r\n  end;\r\n\r\n{ TAutoIncField }\r\n\r\n  TAutoIncField = class(TIntegerField)\r\n  Protected\r\n    procedure SetAsInteger(AValue: Longint); override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n  end;\r\n\r\n{ TFloatField }\r\n\r\n  TFloatField = class(TNumericField)\r\n  private\r\n    FCurrency: Boolean;\r\n    FMaxValue : Double;\r\n    FMinValue : Double;\r\n    FPrecision : Longint;\r\n    procedure SetCurrency(const AValue: Boolean);\r\n    procedure SetPrecision(const AValue: Longint);\r\n  protected\r\n    function GetAsFloat: Double; override;\r\n    function GetAsLargeInt: NativeInt; override;\r\n    function GetAsInteger: Longint; override;\r\n    function GetAsJSValue: JSValue; override;\r\n    function GetAsString: string; override;\r\n    procedure GetText(var AText: string; ADisplayText: Boolean); override;\r\n    procedure SetAsFloat(AValue: Double); override;\r\n    procedure SetAsLargeInt(AValue: NativeInt); override;\r\n    procedure SetAsInteger(AValue: Longint); override;\r\n    procedure SetAsString(const AValue: string); override;\r\n    procedure SetVarValue(const AValue: JSValue); override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    Function CheckRange(AValue : Double) : Boolean;\r\n    property Value: Double read GetAsFloat write SetAsFloat;\r\n\r\n  published\r\n    property Currency: Boolean read FCurrency write SetCurrency default False;\r\n    property MaxValue: Double read FMaxValue write FMaxValue;\r\n    property MinValue: Double read FMinValue write FMinValue;\r\n    property Precision: Longint read FPrecision write SetPrecision default 15; // min 2 instellen, delphi compat\r\n  end;\r\n\r\n\r\n{ TBooleanField }\r\n\r\n  TBooleanField = class(TField)\r\n  private\r\n    FDisplayValues : String;\r\n    // First byte indicates uppercase or not.\r\n    FDisplays : Array[Boolean,Boolean] of string;\r\n    Procedure SetDisplayValues(const AValue : String);\r\n  protected\r\n    function GetAsBoolean: Boolean; override;\r\n    function GetAsString: string; override;\r\n    function GetAsJSValue: JSValue; override;\r\n    function GetAsInteger: Longint; override;\r\n    function GetDefaultWidth: Longint; override;\r\n    procedure SetAsBoolean(AValue: Boolean); override;\r\n    procedure SetAsString(const AValue: string); override;\r\n    procedure SetAsInteger(AValue: Longint); override;\r\n    procedure SetVarValue(const AValue: JSValue); override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    property Value: Boolean read GetAsBoolean write SetAsBoolean;\r\n  published\r\n    property DisplayValues: string read FDisplayValues write SetDisplayValues;\r\n  end;\r\n\r\n{ TDateTimeField }\r\n\r\n  TDateTimeField = class(TField)\r\n  private\r\n    FDisplayFormat : String;\r\n    procedure SetDisplayFormat(const AValue: string);\r\n  protected\r\n    Function ConvertToDateTime(aValue : JSValue; aRaiseError : Boolean) : TDateTime; virtual;\r\n    Function DateTimeToNativeDateTime(aValue : TDateTime) : JSValue; virtual;\r\n    function GetAsDateTime: TDateTime; override;\r\n    function GetAsFloat: Double; override;\r\n    function GetAsString: string; override;\r\n    function GetAsJSValue: JSValue; override;\r\n    function GetDataSize: Integer; override;\r\n    procedure GetText(var AText: string; ADisplayText: Boolean); override;\r\n    procedure SetAsDateTime(AValue: TDateTime); override;\r\n    procedure SetAsFloat(AValue: Double); override;\r\n    procedure SetAsString(const AValue: string); override;\r\n    procedure SetVarValue(const AValue: JSValue); override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    property Value: TDateTime read GetAsDateTime write SetAsDateTime;\r\n  published\r\n    property DisplayFormat: string read FDisplayFormat write SetDisplayFormat;\r\n  end;\r\n\r\n{ TDateField }\r\n\r\n  TDateField = class(TDateTimeField)\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n  end;\r\n\r\n{ TTimeField }\r\n\r\n  TTimeField = class(TDateTimeField)\r\n  protected\r\n    procedure SetAsString(const AValue: string); override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n  end;\r\n\r\n{ TBinaryField }\r\n\r\n  TBinaryField = class(TField)\r\n  protected\r\n    class procedure CheckTypeSize(AValue: Longint); override;\r\n    Function BlobToBytes(aValue : JSValue) : TBytes; virtual;\r\n    Function BytesToBlob(aValue : TBytes) : JSValue; virtual;\r\n    function GetAsString: string; override;\r\n    function GetAsJSValue: JSValue; override;\r\n    function GetValue(var AValue: TBytes): Boolean;\r\n    procedure SetAsString(const AValue: string); override;\r\n    procedure SetVarValue(const AValue: JSValue); override;\r\n    Function GetAsBytes: TBytes; override;\r\n    Procedure SetAsBytes(const aValue: TBytes); override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n  published\r\n    property Size default 16;\r\n  end;\r\n\r\n{ TBytesField }\r\n\r\n\r\n{ TBlobField }\r\n  TBlobDisplayValue = (dvClass, dvFull, dvClip, dvFit);\r\n  TBlobStreamMode = (bmRead, bmWrite, bmReadWrite);\r\n  TBlobType = ftBlob..ftWideMemo;\r\n\r\n  TBlobField = class(TBinaryField)\r\n  private\r\n    FDisplayValue: TBlobDisplayValue;\r\n    FModified : Boolean;\r\n    // Wrapper that retrieves FDataType as a TBlobType\r\n    function GetBlobType: TBlobType;\r\n    // Wrapper that calls SetFieldType\r\n    procedure SetBlobType(AValue: TBlobType);\r\n    procedure SetDisplayValue(AValue: TBlobDisplayValue);\r\n  protected\r\n    class procedure CheckTypeSize(AValue: Longint); override;\r\n    function GetBlobSize: Longint; virtual;\r\n    function GetIsNull: Boolean; override;\r\n    procedure GetText(var AText: string; ADisplayText{%H-}: Boolean); override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    procedure Clear; override;\r\n    class function IsBlob: Boolean; override;\r\n    procedure SetFieldType(AValue: TFieldType); override;\r\n    property BlobSize: Longint read GetBlobSize;\r\n    property Modified: Boolean read FModified write FModified;\r\n    property Value: string read GetAsString write SetAsString;\r\n  published\r\n    property DisplayValue: TBlobDisplayValue read FDisplayValue write SetDisplayValue default dvClass;\r\n    property BlobType: TBlobType read GetBlobType write SetBlobType; // default ftBlob;\r\n    property Size default 0;\r\n  end;\r\n\r\n{ TMemoField }\r\n\r\n  TMemoField = class(TBlobField)\r\n  protected\r\n    procedure GetText(var AText: string; ADisplayText{%H-}: Boolean); override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n  end;\r\n\r\n{ TGraphicField }\r\n\r\n  TGraphicField = class(TBlobField)\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n  end;\r\n\r\n{ TVariantField }\r\n\r\n  TVariantField = class(TField)\r\n  protected\r\n    class procedure CheckTypeSize(aValue{%H-}: Integer); override;\r\n\r\n    function GetAsBoolean: Boolean; override;\r\n    procedure SetAsBoolean(aValue: Boolean); override;\r\n\r\n    function GetAsDateTime: TDateTime; override;\r\n    procedure SetAsDateTime(aValue: TDateTime); override;\r\n\r\n    function GetAsFloat: Double; override;\r\n    procedure SetAsFloat(aValue: Double); override;\r\n\r\n    function GetAsInteger: Longint; override;\r\n    procedure SetAsInteger(AValue: Longint); override;\r\n\r\n    function GetAsString: string; override;\r\n    procedure SetAsString(const aValue: string); override;\r\n\r\n\r\n    function GetAsJSValue: JSValue; override;\r\n    procedure SetVarValue(const aValue: JSValue); override;\r\n\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n  end;\r\n\r\n  TDataSetField = class(TField)\r\n  private\r\n    FNestedDataSet: TDataSet;\r\n    procedure AssignNestedDataSet(Value: TDataSet);\r\n  protected\r\n    procedure Bind(Binding: Boolean); override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n\r\n    destructor Destroy; override;\r\n  end;\r\n\r\n{ TIndexDef }\r\n\r\n  TIndexDefs = class;\r\n\r\n  TIndexOption = (ixPrimary, ixUnique, ixDescending, ixCaseInsensitive,\r\n    ixExpression, ixNonMaintained);\r\n  TIndexOptions = set of TIndexOption;\r\n\r\n  TIndexDef = class(TNamedItem)\r\n  Private\r\n    FCaseinsFields: string;\r\n    FDescFields: string;\r\n    FExpression : String;\r\n    FFields : String;\r\n    FOptions : TIndexOptions;\r\n    FSource : String;\r\n  protected\r\n    function GetExpression: string;\r\n    procedure SetCaseInsFields(const AValue: string); virtual;\r\n    procedure SetDescFields(const AValue: string);\r\n    procedure SetExpression(const AValue: string);\r\n  public\r\n    constructor Create(Owner: TIndexDefs; const AName, TheFields: string;\r\n      TheOptions: TIndexOptions); overload;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property Expression: string read GetExpression write SetExpression;\r\n    property Fields: string read FFields write FFields;\r\n    property CaseInsFields: string read FCaseinsFields write SetCaseInsFields;\r\n    property DescFields: string read FDescFields write SetDescFields;\r\n    property Options: TIndexOptions read FOptions write FOptions;\r\n    property Source: string read FSource write FSource;\r\n  end;\r\n  TIndexDefClass = class of TIndexDef;\r\n{ TIndexDefs }\r\n\r\n  TIndexDefs = class(TDefCollection)\r\n  Private\r\n    Function  GetItem(Index: Integer): TIndexDef; reintroduce;\r\n    Procedure SetItem(Index: Integer; Value: TIndexDef); reintroduce;\r\n  public\r\n    constructor Create(ADataSet: TDataSet); virtual; overload;\r\n    procedure Add(const Name, Fields: string; Options: TIndexOptions); reintroduce;\r\n    Function AddIndexDef: TIndexDef;\r\n    function Find(const IndexName: string): TIndexDef; reintroduce;\r\n    function FindIndexForFields(const Fields{%H-}: string): TIndexDef;\r\n    function GetIndexForFields(const Fields: string;\r\n      CaseInsensitive: Boolean): TIndexDef;\r\n    procedure Update; overload; virtual;\r\n    Property Items[Index: Integer] : TIndexDef read GetItem write SetItem; default;\r\n  end;\r\n\r\n{ TCheckConstraint }\r\n\r\n  TCheckConstraint = class(TCollectionItem)\r\n  Private\r\n    FCustomConstraint : String;\r\n    FErrorMessage : String;\r\n    FFromDictionary : Boolean;\r\n    FImportedConstraint : String;\r\n  public\r\n    procedure Assign(Source{%H-}: TPersistent); override;\r\n  //  function GetDisplayName: string; override;\r\n  published\r\n    property CustomConstraint: string read FCustomConstraint write FCustomConstraint;\r\n    property ErrorMessage: string read FErrorMessage write FErrorMessage;\r\n    property FromDictionary: Boolean read FFromDictionary write FFromDictionary;\r\n    property ImportedConstraint: string read FImportedConstraint write FImportedConstraint;\r\n  end;\r\n\r\n{ TCheckConstraints }\r\n\r\n  TCheckConstraints = class(TCollection)\r\n  Private\r\n   Function GetItem(Index{%H-} : Longint) : TCheckConstraint; reintroduce;\r\n   Procedure SetItem(index{%H-} : Longint; Value{%H-} : TCheckConstraint); reintroduce;\r\n  protected\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create(AOwner{%H-}: TPersistent); reintroduce;\r\n    function Add: TCheckConstraint; reintroduce;\r\n    property Items[Index: Longint]: TCheckConstraint read GetItem write SetItem; default;\r\n  end;\r\n\r\n  { TFieldsEnumerator }\r\n\r\n  TFieldsEnumerator = class\r\n  private\r\n    FPosition: Integer;\r\n    FFields: TFields;\r\n    function GetCurrent: TField;\r\n  public\r\n    constructor Create(AFields: TFields); reintroduce;\r\n    function MoveNext: Boolean;\r\n    property Current: TField read GetCurrent;\r\n  end;\r\n\r\n{ TFields }\r\n\r\n  TFields = Class(TObject)\r\n  Private\r\n    FDataset : TDataset;\r\n    FFieldList : TFpList;\r\n    FOnChange : TNotifyEvent;\r\n    FValidFieldKinds : TFieldKinds;\r\n  Protected\r\n    Procedure ClearFieldDefs;\r\n    Procedure Changed;\r\n    Procedure CheckfieldKind(Fieldkind : TFieldKind; Field : TField);\r\n    Function GetCount : Longint;\r\n    Function GetField (Index : Integer) : TField;\r\n    Procedure SetField(Index: Integer; Value: TField);\r\n    Procedure SetFieldIndex (Field : TField;Value : Integer);\r\n    Property OnChange : TNotifyEvent Read FOnChange Write FOnChange;\r\n    Property ValidFieldKinds : TFieldKinds Read FValidFieldKinds;\r\n  Public\r\n    Constructor Create(ADataset : TDataset); reintroduce;\r\n    Destructor Destroy;override;\r\n    Procedure Add(Field : TField);\r\n    Procedure CheckFieldName (Const Value : String);\r\n    Procedure CheckFieldNames (Const Value : String);\r\n    Procedure Clear;\r\n    Function FindField (Const Value : String) : TField;\r\n    Function FieldByName (Const Value : String) : TField;\r\n    Function FieldByNumber(FieldNo : Integer) : TField;\r\n    Function GetEnumerator: TFieldsEnumerator;\r\n    Procedure GetFieldNames (Values : TStrings);\r\n    Function IndexOf(Field : TField) : Longint;\r\n    procedure Remove(Value : TField);\r\n    Property Count : Integer Read GetCount;\r\n    Property Dataset : TDataset Read FDataset;\r\n    Property Fields [Index : Integer] : TField Read GetField Write SetField; default;\r\n  end;\r\n  TFieldsClass = Class of TFields;\r\n\r\n{ TParam }\r\n\r\n  TBlobData = TBytes;  // Delphi defines it as alias to TBytes\r\n\r\n  TParamBinding = array of integer;\r\n\r\n  TParamType = (ptUnknown, ptInput, ptOutput, ptInputOutput, ptResult);\r\n  TParamTypes = set of TParamType;\r\n\r\n  TParamStyle = (psInterbase,psPostgreSQL,psSimulated);\r\n\r\n  TParams = class;\r\n\r\n  TParam = class(TCollectionItem)\r\n  private\r\n    FValue: JSValue;\r\n    FPrecision: Integer;\r\n    FNumericScale: Integer;\r\n    FName: string;\r\n    FDataType: TFieldType;\r\n    FBound: Boolean;\r\n    FParamType: TParamType;\r\n    FSize: Integer;\r\n    Function GetDataSet: TDataSet;\r\n    Function IsParamStored: Boolean;\r\n  protected\r\n    Procedure AssignParam(Param: TParam);\r\n    Procedure AssignTo(Dest: TPersistent); override;\r\n    Function GetAsBoolean: Boolean;\r\n    Function GetAsBytes: TBytes;\r\n    Function GetAsDateTime: TDateTime;\r\n    Function GetAsFloat: Double;\r\n    Function GetAsInteger: Longint;\r\n    Function GetAsLargeInt: NativeInt;\r\n    Function GetAsMemo: string;\r\n    Function GetAsString: string;\r\n    Function GetAsJSValue: JSValue;\r\n    Function GetDisplayName: string; override;\r\n    Function GetIsNull: Boolean;\r\n    Function IsEqual(AValue: TParam): Boolean;\r\n    Procedure SetAsBlob(const AValue: TBlobData);\r\n    Procedure SetAsBoolean(AValue: Boolean);\r\n    Procedure SetAsBytes(const AValue{%H-}: TBytes);\r\n    Procedure SetAsDate(const AValue: TDateTime);\r\n    Procedure SetAsDateTime(const AValue: TDateTime);\r\n    Procedure SetAsFloat(const AValue: Double);\r\n    Procedure SetAsInteger(AValue: Longint);\r\n    Procedure SetAsLargeInt(AValue: NativeInt);\r\n    Procedure SetAsMemo(const AValue: string);\r\n    Procedure SetAsString(const AValue: string);\r\n    Procedure SetAsTime(const AValue: TDateTime);\r\n    Procedure SetAsJSValue(const AValue: JSValue);\r\n    Procedure SetDataType(AValue: TFieldType);\r\n    Procedure SetText(const AValue: string);\r\n  public\r\n    constructor Create(ACollection: TCollection); overload; override;\r\n    constructor Create(AParams: TParams; AParamType: TParamType); reintroduce; overload;\r\n    Procedure Assign(Source: TPersistent); override;\r\n    Procedure AssignField(Field: TField);\r\n    Procedure AssignToField(Field: TField);\r\n    Procedure AssignFieldValue(Field: TField; const AValue: JSValue);\r\n    Procedure AssignFromField(Field : TField);\r\n    Procedure Clear;\r\n    Property AsBlob : TBlobData read GetAsBytes  write SetAsBytes;\r\n    Property AsBoolean : Boolean read GetAsBoolean write SetAsBoolean;\r\n    Property AsBytes : TBytes read GetAsBytes write SetAsBytes;\r\n    Property AsDate : TDateTime read GetAsDateTime write SetAsDate;\r\n    Property AsDateTime : TDateTime read GetAsDateTime write SetAsDateTime;\r\n    Property AsFloat : Double read GetAsFloat write SetAsFloat;\r\n    Property AsInteger : LongInt read GetAsInteger write SetAsInteger;\r\n    Property AsLargeInt : NativeInt read GetAsLargeInt write SetAsLargeInt;\r\n    Property AsMemo : string read GetAsMemo write SetAsMemo;\r\n    Property AsSmallInt : LongInt read GetAsInteger write SetAsInteger;\r\n    Property AsString : string read GetAsString write SetAsString;\r\n    Property AsTime : TDateTime read GetAsDateTime write SetAsTime;\r\n    Property Bound : Boolean read FBound write FBound;\r\n    Property Dataset : TDataset Read GetDataset;\r\n    Property IsNull : Boolean read GetIsNull;\r\n    Property Text : string read GetAsString write SetText;\r\n  published\r\n    Property DataType : TFieldType read FDataType write SetDataType;\r\n    Property Name : string read FName write FName;\r\n    Property NumericScale : Integer read FNumericScale write FNumericScale default 0;\r\n    Property ParamType : TParamType read FParamType write FParamType;\r\n    Property Precision : Integer read FPrecision write FPrecision default 0;\r\n    Property Size : Integer read FSize write FSize default 0;\r\n    Property Value : JSValue read GetAsJSValue write SetAsJSValue stored IsParamStored;\r\n  end;\r\n  TParamClass = Class of TParam;\r\n\r\n{ TParams }\r\n\r\n  TParams = class(TCollection)\r\n  private\r\n    FOwner: TPersistent;\r\n    Function  GetItem(Index: Integer): TParam; reintroduce;\r\n    Function  GetParamValue(const ParamName: string): JSValue;\r\n    Procedure SetItem(Index: Integer; Value: TParam); reintroduce;\r\n    Procedure SetParamValue(const ParamName: string; const Value: JSValue);\r\n  protected\r\n    Procedure AssignTo(Dest: TPersistent); override;\r\n    Function  GetDataSet: TDataSet;\r\n    Function  GetOwner: TPersistent; override;\r\n    Class Function ParamClass : TParamClass; virtual;\r\n  public\r\n    Constructor Create(AOwner: TPersistent; AItemClass : TCollectionItemClass); overload;\r\n    Constructor Create(AOwner: TPersistent); overload;\r\n    Constructor Create; overload; reintroduce;\r\n    Procedure AddParam(Value: TParam);\r\n    Procedure AssignValues(Value: TParams);\r\n    Function  CreateParam(FldType: TFieldType; const ParamName: string; ParamType: TParamType): TParam;\r\n    Function  FindParam(const Value: string): TParam;\r\n    Procedure GetParamList(List: TList; const ParamNames: string);\r\n    Function  IsEqual(Value: TParams): Boolean;\r\n    Function  ParamByName(const Value: string): TParam;\r\n    Function  ParseSQL(SQL: String; DoCreate: Boolean): String; overload;\r\n    Function  ParseSQL(SQL: String; DoCreate, EscapeSlash, EscapeRepeat : Boolean; ParameterStyle : TParamStyle): String; overload;\r\n    Function  ParseSQL(SQL: String; DoCreate, EscapeSlash, EscapeRepeat : Boolean; ParameterStyle : TParamStyle; out ParamBinding: TParambinding): String; overload;\r\n    Function  ParseSQL(SQL: String; DoCreate, EscapeSlash, EscapeRepeat : Boolean; ParameterStyle : TParamStyle; out ParamBinding: TParambinding; out ReplaceString : string): String; overload;\r\n    Procedure RemoveParam(Value: TParam);\r\n    Procedure CopyParamValuesFromDataset(ADataset : TDataset; CopyBound : Boolean);\r\n    Property Dataset : TDataset Read GetDataset;\r\n    Property Items[Index: Integer] : TParam read GetItem write SetItem; default;\r\n    function Add: TParam; reintroduce;\r\n    Property ParamValues[const ParamName: string] : JSValue read GetParamValue write SetParamValue;\r\n  end;\r\n\r\n{ TDataSet }\r\n  \r\n  TBookmarkFlag = (bfCurrent, bfBOF, bfEOF, bfInserted);\r\n  TBookmark = record\r\n    Data : JSValue;\r\n    Flag : TBookmarkFlag;\r\n  end; // Bookmark is always the index in the data array.\r\n  TBookmarkStr = string; // JSON encoded version of the above\r\n\r\n  TGetMode = (gmCurrent, gmNext, gmPrior);\r\n  TGetResult = (grOK, grBOF, grEOF, grError);\r\n\r\n  TResyncMode = set of (rmExact, rmCenter);\r\n  TDataAction = (daFail, daAbort, daRetry);\r\n  TUpdateAction = (uaFail, uaAbort, uaSkip, uaRetry, uaApplied);\r\n  TUpdateKind = (ukModify, ukInsert, ukDelete);\r\n\r\n  TLocateOption = (loCaseInsensitive, loPartialKey, loFromCurrent);\r\n  TLocateOptions = set of TLocateOption;\r\n  TDataOperation = procedure of object;\r\n\r\n  TDataSetNotifyEvent = procedure(DataSet: TDataSet) of object;\r\n  TDataSetErrorEvent = procedure(DataSet: TDataSet; E: EDatabaseError;\r\n    var DataAction: TDataAction) of object;\r\n\r\n  TFilterOption = (foCaseInsensitive, foNoPartialCompare);\r\n  TFilterOptions = set of TFilterOption;\r\n\r\n  TLoadOption = (loNoOpen,loNoEvents,loAtEOF,loCancelPending);\r\n  TLoadOptions = Set of TLoadOption;\r\n  TDatasetLoadEvent = procedure(DataSet: TDataSet; Data : JSValue) of object;\r\n  TDatasetLoadFailEvent = procedure(DataSet: TDataSet; ID : Integer; Const ErrorMsg : String) of object;\r\n\r\n  TFilterRecordEvent = procedure(DataSet: TDataSet;\r\n    var Accept: Boolean) of object;\r\n  TDatasetClass = Class of TDataset;\r\n\r\n  TRecordState = (rsNew,rsClean,rsUpdate,rsDelete);\r\n  TDataRecord = record\r\n    data : JSValue;\r\n    state : TRecordState;\r\n    bookmark : JSValue;\r\n    bookmarkFlag : TBookmarkFlag;\r\n  end;\r\n  TBuffers = Array of TDataRecord;\r\n\r\n  TResolveInfo = record\r\n    Data : JSValue;\r\n    Status : TUpdateStatus;\r\n    ResolveStatus : TResolveStatus;\r\n    Error : String; // Only filled on error.\r\n    BookMark : TBookmark;\r\n    _private : JSValue; // for use by descendents of TDataset\r\n  end;\r\n  TResolveInfoArray = Array of TResolveInfo;\r\n\r\n  // Record so we can extend later on\r\n  TResolveResults = record\r\n    Records : TResolveInfoArray;\r\n  end;\r\n\r\n  TOnRecordResolveEvent = Procedure (Sender : TDataset; info : TResolveInfo) of object;\r\n  TApplyUpdatesEvent = Procedure (Sender : TDataset; info : TResolveResults) of object;\r\n\r\n  TNestedDataSetsList = TFPList;\r\n\r\n{------------------------------------------------------------------------------}\r\n\r\n  TDataSet = class(TComponent)\r\n  Private\r\n    FAfterApplyUpdates: TApplyUpdatesEvent;\r\n    FAfterLoad: TDatasetNotifyEvent;\r\n    FBeforeApplyUpdates: TDatasetNotifyEvent;\r\n    FBeforeLoad: TDatasetNotifyEvent;\r\n    FBlockReadSize: Integer;\r\n    FCalcBuffer: TDataRecord;\r\n    FCalcFieldsCount: Longint;\r\n    FOnLoadFail: TDatasetLoadFailEvent;\r\n    FOnRecordResolved: TOnRecordResolveEvent;\r\n    FOpenAfterRead : boolean;\r\n    FActiveRecord: Longint;\r\n    FAfterCancel: TDataSetNotifyEvent;\r\n    FAfterClose: TDataSetNotifyEvent;\r\n    FAfterDelete: TDataSetNotifyEvent;\r\n    FAfterEdit: TDataSetNotifyEvent;\r\n    FAfterInsert: TDataSetNotifyEvent;\r\n    FAfterOpen: TDataSetNotifyEvent;\r\n    FAfterPost: TDataSetNotifyEvent;\r\n    FAfterRefresh: TDataSetNotifyEvent;\r\n    FAfterScroll: TDataSetNotifyEvent;\r\n    FAutoCalcFields: Boolean;\r\n    FBOF: Boolean;\r\n    FBeforeCancel: TDataSetNotifyEvent;\r\n    FBeforeClose: TDataSetNotifyEvent;\r\n    FBeforeDelete: TDataSetNotifyEvent;\r\n    FBeforeEdit: TDataSetNotifyEvent;\r\n    FBeforeInsert: TDataSetNotifyEvent;\r\n    FBeforeOpen: TDataSetNotifyEvent;\r\n    FBeforePost: TDataSetNotifyEvent;\r\n    FBeforeRefresh: TDataSetNotifyEvent;\r\n    FBeforeScroll: TDataSetNotifyEvent;\r\n    FBlobFieldCount: Longint;\r\n    FBuffers : TBuffers;\r\n    // The actual length of FBuffers is FBufferCount+1\r\n    FBufferCount: Longint;\r\n    FConstraints: TCheckConstraints;\r\n    FDisableControlsCount : Integer;\r\n    FDisableControlsState : TDatasetState;\r\n    FCurrentRecord: Longint;\r\n    FDataSources : TFPList;\r\n    FDefaultFields: Boolean;\r\n    FEOF: Boolean;\r\n    FEnableControlsEvent : TDataEvent;\r\n    FFieldList : TFields;\r\n    FFieldDefs: TFieldDefs;\r\n    FFilterOptions: TFilterOptions;\r\n    FFilterText: string;\r\n    FFiltered: Boolean;\r\n    FFound: Boolean;\r\n    FInternalCalcFields: Boolean;\r\n    FModified: Boolean;\r\n    FOnCalcFields: TDataSetNotifyEvent;\r\n    FOnDeleteError: TDataSetErrorEvent;\r\n    FOnEditError: TDataSetErrorEvent;\r\n    FOnFilterRecord: TFilterRecordEvent;\r\n    FOnNewRecord: TDataSetNotifyEvent;\r\n    FOnPostError: TDataSetErrorEvent;\r\n    FRecordCount: Longint;\r\n    FIsUniDirectional: Boolean;\r\n    FState : TDataSetState;\r\n    FInternalOpenComplete: Boolean;\r\n    FDataProxy : TDataProxy;\r\n    FDataRequestID : Integer;\r\n    FUpdateBatchID : Integer;\r\n    FChangeList : TFPList;\r\n    FBatchList : TFPList;\r\n    FInApplyupdates : Boolean;\r\n    FLoadCount : Integer;\r\n    FMinLoadID : Integer;\r\n    FDataSetField: TDataSetField;\r\n    FNestedDataSets: TNestedDataSetsList;\r\n    FNestedDataSetClass: TDataSetClass;\r\n    Procedure DoInsertAppend(DoAppend : Boolean);\r\n    Procedure DoInternalOpen;\r\n    Function  GetBuffer (Index : longint) : TDataRecord;\r\n    function GetDataProxy: TDataProxy;\r\n    function GetIsLoading: Boolean;\r\n    Procedure RegisterDataSource(ADataSource : TDataSource);\r\n    procedure SetConstraints(Value: TCheckConstraints);\r\n    procedure SetDataProxy(AValue: TDataProxy);\r\n    Procedure ShiftBuffersForward;\r\n    Procedure ShiftBuffersBackward;\r\n    Function  TryDoing(P: TDataOperation; Ev : TDatasetErrorEvent) : Boolean;\r\n    Function GetActive : boolean;\r\n    Procedure UnRegisterDataSource(ADataSource : TDataSource);\r\n    procedure SetBlockReadSize(AValue: Integer); virtual;\r\n    Procedure SetFieldDefs(AFieldDefs: TFieldDefs);\r\n    procedure DoInsertAppendRecord(const Values: array of jsValue; DoAppend : boolean);\r\n    // Callback for Tdataproxy.DoGetData;\r\n    function ResolveRecordUpdate(anUpdate: TRecordUpdateDescriptor): Boolean;\r\n    procedure HandleRequestResponse(ARequest: TDataRequest);\r\n    function GetNestedDataSets: TNestedDataSetsList;\r\n  protected\r\n    // Proxy methods\r\n    // Override this to integrate package in local data\r\n    // call OnRecordResolved\r\n    procedure DoOnRecordResolved(anUpdate: TRecordUpdateDescriptor); virtual;\r\n    // Convert TRecordUpdateDescriptor to ResolveInfo\r\n    function RecordUpdateDescriptorToResolveInfo(anUpdate: TRecordUpdateDescriptor): TResolveInfo; virtual;\r\n    function DoResolveRecordUpdate(anUpdate{%H-}: TRecordUpdateDescriptor): Boolean; virtual;\r\n    Function GetRecordUpdates(AList: TRecordUpdateDescriptorList) : Integer; virtual;\r\n    procedure ResolveUpdateBatch(Sender: TObject; aBatch: TRecordUpdateBatch); virtual;\r\n    Function DataPacketReceived(ARequest{%H-}: TDataRequest) : Boolean; virtual;\r\n    function DoLoad(aOptions: TLoadOptions; aAfterLoad: TDatasetLoadEvent): Boolean; virtual;\r\n    function DoGetDataProxy: TDataProxy; virtual;\r\n    Procedure InitChangeList; virtual;\r\n    Procedure DoneChangeList; virtual;\r\n    Procedure ClearChangeList;\r\n    procedure ResetUpdateDescriptors;\r\n    function GetApplyUpdateData(aBuffer: TDataRecord) : JSValue; virtual;\r\n    Function IndexInChangeList(aBookmark: TBookmark): Integer; virtual;\r\n    Function AddToChangeList(aChange : TUpdateStatus) : TRecordUpdateDescriptor ; virtual;\r\n    Procedure RemoveFromChangeList(R : TRecordUpdateDescriptor); virtual;\r\n    Procedure DoApplyUpdates;\r\n    procedure RecalcBufListSize;\r\n    procedure ActivateBuffers; virtual;\r\n    procedure BindFields(Binding: Boolean);\r\n    procedure BlockReadNext; virtual;\r\n    function  BookmarkAvailable: Boolean;\r\n    procedure CalculateFields(Var Buffer: TDataRecord); virtual;\r\n    procedure CheckActive; virtual;\r\n    procedure CheckInactive; virtual;\r\n    procedure CheckBiDirectional;\r\n    procedure Loaded; override;\r\n    procedure ClearBuffers; virtual;\r\n    procedure ClearCalcFields(var Buffer{%H-}: TDataRecord); virtual;\r\n    procedure CloseBlob(Field{%H-}: TField); virtual;\r\n    procedure CloseCursor; virtual;\r\n    procedure CreateFields; virtual;\r\n    procedure DataEvent(Event: TDataEvent; Info: JSValue); virtual;\r\n    procedure DestroyFields; virtual;\r\n    procedure DoAfterCancel; virtual;\r\n    procedure DoAfterClose; virtual;\r\n    procedure DoAfterDelete; virtual;\r\n    procedure DoAfterEdit; virtual;\r\n    procedure DoAfterInsert; virtual;\r\n    procedure DoAfterOpen; virtual;\r\n    procedure DoAfterPost; virtual;\r\n    procedure DoAfterScroll; virtual;\r\n    procedure DoAfterRefresh; virtual;\r\n    procedure DoBeforeCancel; virtual;\r\n    procedure DoBeforeClose; virtual;\r\n    procedure DoBeforeDelete; virtual;\r\n    procedure DoBeforeEdit; virtual;\r\n    procedure DoBeforeInsert; virtual;\r\n    procedure DoBeforeOpen; virtual;\r\n    procedure DoBeforePost; virtual;\r\n    procedure DoBeforeScroll; virtual;\r\n    procedure DoBeforeRefresh; virtual;\r\n    procedure DoOnCalcFields; virtual;\r\n    procedure DoOnNewRecord; virtual;\r\n    procedure DoBeforeLoad; virtual;\r\n    procedure DoAfterLoad; virtual;\r\n    procedure DoBeforeApplyUpdates; virtual;\r\n    procedure DoAfterApplyUpdates(const ResolveInfo: TResolveResults); virtual;\r\n    function  FieldByNumber(FieldNo: Longint): TField;\r\n    function  FindRecord(Restart{%H-}, GoForward{%H-}: Boolean): Boolean; virtual;\r\n    function  GetBookmarkStr: TBookmarkStr; virtual;\r\n    procedure GetCalcFields(Var Buffer: TDataRecord); virtual;\r\n    function  GetCanModify: Boolean; virtual;\r\n    procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;\r\n    function  GetFieldClass(FieldType: TFieldType): TFieldClass; virtual;\r\n    Function  GetfieldCount : Integer;\r\n    function  GetFieldValues(const FieldName : string) : JSValue; virtual;\r\n    function  GetIsIndexField(Field{%H-}: TField): Boolean; virtual;\r\n    function  GetIndexDefs(IndexDefs : TIndexDefs; IndexTypes : TIndexOptions) : TIndexDefs;\r\n    function  GetNextRecords: Longint; virtual;\r\n    function  GetNextRecord: Boolean; virtual;\r\n    function  GetPriorRecords: Longint; virtual;\r\n    function  GetPriorRecord: Boolean; virtual;\r\n    function  GetRecordCount: Longint; virtual;\r\n    function  GetRecNo: Longint; virtual;\r\n    procedure InitFieldDefs; virtual;\r\n    procedure InitFieldDefsFromfields;\r\n    procedure InitRecord(var Buffer: TDataRecord); virtual;\r\n    procedure InternalCancel; virtual;\r\n    procedure InternalEdit; virtual;\r\n    procedure InternalInsert; virtual;\r\n    procedure InternalRefresh; virtual;\r\n    procedure OpenCursor(InfoQuery: Boolean); virtual;\r\n    procedure OpenCursorcomplete; virtual;\r\n    procedure RefreshInternalCalcFields(Var Buffer{%H-}: TDataRecord); virtual;\r\n    procedure RestoreState(const Value: TDataSetState);\r\n    Procedure SetActive (Value : Boolean); virtual;\r\n    procedure SetBookmarkStr(const Value: TBookmarkStr); virtual;\r\n    procedure SetBufListSize(Value: Longint); virtual;\r\n    procedure SetChildOrder(Child: TComponent; Order: Longint); override;\r\n    procedure SetCurrentRecord(Index: Longint); virtual;\r\n    procedure SetDefaultFields(const Value: Boolean);\r\n    procedure SetFiltered(Value: Boolean); virtual;\r\n    procedure SetFilterOptions(Value: TFilterOptions); virtual;\r\n    procedure SetFilterText(const Value: string); virtual;\r\n    procedure SetFieldValues(const FieldName: string; Value: JSValue); virtual;\r\n    procedure SetFound(const Value: Boolean); virtual;\r\n    procedure SetModified(Value: Boolean);\r\n    procedure SetName(const NewName: TComponentName); override;\r\n    procedure SetOnFilterRecord(const Value: TFilterRecordEvent); virtual;\r\n    procedure SetRecNo(Value{%H-}: Longint); virtual;\r\n    procedure SetState(Value: TDataSetState);\r\n    function SetTempState(const Value: TDataSetState): TDataSetState;\r\n    Function TempBuffer: TDataRecord;\r\n    procedure UpdateIndexDefs; virtual;\r\n    property ActiveRecord: Longint read FActiveRecord;\r\n    property CurrentRecord: Longint read FCurrentRecord;\r\n    property BlobFieldCount: Longint read FBlobFieldCount;\r\n    property Buffers[Index: Longint]: TDataRecord read GetBuffer;\r\n    property BufferCount: Longint read FBufferCount;\r\n    property CalcBuffer: TDataRecord read FCalcBuffer;\r\n    property CalcFieldsCount: Longint read FCalcFieldsCount;\r\n    property InternalCalcFields: Boolean read FInternalCalcFields;\r\n    property Constraints: TCheckConstraints read FConstraints write SetConstraints;\r\n    function AllocRecordBuffer: TDataRecord; virtual;\r\n    procedure FreeRecordBuffer(var Buffer{%H-}: TDataRecord); virtual;\r\n    procedure GetBookmarkData(Buffer{%H-}: TDataRecord; var Data{%H-}: TBookmark); virtual;\r\n    function GetBookmarkFlag(Buffer{%H-}: TDataRecord): TBookmarkFlag; virtual;\r\n    function GetDataSource: TDataSource; virtual;\r\n    function GetRecordSize: Word; virtual;\r\n    procedure InternalAddRecord(Buffer{%H-}: Pointer; AAppend{%H-}: Boolean); virtual;\r\n    procedure InternalDelete; virtual;\r\n    procedure InternalFirst; virtual;\r\n    procedure InternalGotoBookmark(ABookmark{%H-}: TBookmark); virtual;\r\n    procedure InternalHandleException(E: Exception); virtual;\r\n    procedure InternalInitRecord(var Buffer{%H-}: TDataRecord); virtual;\r\n    procedure InternalLast; virtual;\r\n    procedure InternalPost; virtual;\r\n    procedure InternalSetToRecord(Buffer{%H-}: TDataRecord); virtual;\r\n    procedure SetBookmarkFlag(Var Buffer{%H-}: TDataRecord; Value{%H-}: TBookmarkFlag); virtual;\r\n    procedure SetBookmarkData(Var Buffer{%H-}: TDataRecord; Data{%H-}: TBookmark); virtual;\r\n    procedure SetUniDirectional(const Value: Boolean);\r\n    procedure Notification(AComponent: TComponent; Operation: TOperation); override;\r\n    procedure SetDataSetField(const Value: TDataSetField); virtual;\r\n    // These use the active buffer\r\n    function GetFieldData(Field: TField): JSValue;  virtual; overload;\r\n    procedure SetFieldData(Field: TField; AValue : JSValue);  virtual; overload;\r\n    function GetFieldData(Field: TField; Buffer: TDatarecord): JSValue;  virtual; overload;\r\n    procedure SetFieldData(Field: TField; var Buffer: TDatarecord; AValue : JSValue);  virtual; overload;\r\n    class function FieldDefsClass : TFieldDefsClass; virtual;\r\n    class function FieldsClass : TFieldsClass; virtual;\r\n    property NestedDataSets: TNestedDataSetsList read GetNestedDataSets;\r\n  protected { abstract methods }\r\n    function GetRecord(var Buffer: TDataRecord; GetMode: TGetMode; DoCheck: Boolean): TGetResult; virtual; abstract;\r\n    procedure InternalClose; virtual; abstract;\r\n    procedure InternalOpen; virtual; abstract;\r\n    procedure InternalInitFieldDefs; virtual; abstract;\r\n    function IsCursorOpen: Boolean; virtual; abstract;\r\n    function GetBOF: boolean; virtual;\r\n    function GetEOF: boolean; virtual;\r\n    property DataProxy : TDataProxy Read GetDataProxy Write SetDataProxy;\r\n    property LoadCount : Integer Read FLoadCount;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    function ActiveBuffer: TDataRecord;\r\n    procedure Append;\r\n    procedure AppendRecord(const Values: array of jsValue);\r\n    function GetClonedDataSet(WithSettings: Boolean): TDataSet; virtual;\r\n    function BookmarkValid(ABookmark{%H-}: TBookmark): Boolean; virtual;\r\n    function ConvertToDateTime(aField : TField; aValue : JSValue; ARaiseException : Boolean) : TDateTime; virtual;\r\n    function ConvertDateTimeToNative(aField : TField; aValue : TDateTime) : JSValue; virtual;\r\n    Class function DefaultConvertToDateTime(aField : TField; aValue : JSValue; ARaiseException{%H-} : Boolean) : TDateTime; virtual;\r\n    Class function DefaultConvertDateTimeToNative(aField : TField; aValue : TDateTime) : JSValue; virtual;\r\n    Function BlobDataToBytes(aValue : JSValue) : TBytes; virtual;\r\n    Class Function DefaultBlobDataToBytes(aValue : JSValue) : TBytes; virtual;\r\n    Function BytesToBlobData(aValue : TBytes) : JSValue ; virtual;\r\n    Class Function DefaultBytesToBlobData(aValue : TBytes) : JSValue; virtual;\r\n    procedure Cancel; virtual;\r\n    procedure CheckBrowseMode;\r\n    procedure ClearFields;\r\n    procedure Close;\r\n    Function GetUpdateCount(UnresolvedOnly : Boolean) : Integer;\r\n    Procedure ApplyUpdates;\r\n    function  ControlsDisabled: Boolean;\r\n    function CompareBookmarks(Bookmark1{%H-}, Bookmark2{%H-}: TBookmark): Longint; virtual;\r\n    procedure CursorPosChanged;\r\n    procedure Delete; virtual;\r\n    procedure DisableControls;\r\n    procedure Edit; virtual;\r\n    procedure EnableControls;\r\n    function FieldByName(const FieldName: string): TField;\r\n    function FindField(const FieldName: string): TField;\r\n    function FindFirst: Boolean; virtual;\r\n    function FindLast: Boolean; virtual;\r\n    function FindNext: Boolean; virtual;\r\n    function FindPrior: Boolean; virtual;\r\n    procedure First;\r\n    procedure FreeBookmark(ABookmark{%H-}: TBookmark); virtual;\r\n    function GetBookmark: TBookmark; virtual;\r\n    function GetCurrentRecord(Buffer{%H-}: TDataRecord): Boolean; virtual;\r\n    procedure GetFieldList(List: TList; const FieldNames: string); overload;\r\n    procedure GetFieldList(List: TFPList; const FieldNames: string); overload;\r\n    procedure GetFieldNames(List: TStrings);\r\n    procedure GotoBookmark(const ABookmark: TBookmark);\r\n    procedure Insert; reintroduce;\r\n    procedure InsertRecord(const Values: array of JSValue);\r\n    function IsEmpty: Boolean; virtual;\r\n    function IsLinkedTo(ADataSource: TDataSource): Boolean;\r\n    function IsSequenced: Boolean; virtual;\r\n    procedure Last;\r\n    Function Load(aOptions : TLoadOptions; aAfterLoad : TDatasetLoadEvent) : Boolean;\r\n    function Locate(const KeyFields{%H-}: string; const KeyValues{%H-}: JSValue; Options{%H-}: TLocateOptions) : boolean; virtual;\r\n    function Lookup(const KeyFields{%H-}: string; const KeyValues{%H-}: JSValue; const ResultFields{%H-}: string): JSValue; virtual;\r\n    function MoveBy(Distance: Longint): Longint;\r\n    procedure Next; virtual;\r\n    procedure Open;\r\n    procedure Post; virtual;\r\n    procedure Prior; virtual;\r\n    procedure Refresh;\r\n    procedure Resync(Mode: TResyncMode); virtual;\r\n    Procedure CancelLoading;\r\n    procedure SetFields(const Values: array of JSValue);\r\n    procedure UpdateCursorPos;\r\n    procedure UpdateRecord;\r\n    Function GetPendingUpdates : TResolveInfoArray;\r\n    property DataSetField: TDataSetField read FDataSetField write SetDataSetField;\r\n    Property Loading : Boolean Read GetIsLoading;\r\n    property BlockReadSize: Integer read FBlockReadSize write SetBlockReadSize;\r\n    property BOF: Boolean read GetBOF;\r\n    property Bookmark: TBookmark read GetBookmark write GotoBookmark;\r\n    property CanModify: Boolean read GetCanModify;\r\n    property DataSource: TDataSource read GetDataSource;\r\n    property DefaultFields: Boolean read FDefaultFields;\r\n    property EOF: Boolean read GetEOF;\r\n    property FieldCount: Longint read GetFieldCount;\r\n    property FieldDefs: TFieldDefs read FFieldDefs write SetFieldDefs;\r\n    property Found: Boolean read FFound;\r\n    property Modified: Boolean read FModified;\r\n    property IsUniDirectional: Boolean read FIsUniDirectional default False;\r\n    property RecordCount: Longint read GetRecordCount;\r\n    property RecNo: Longint read GetRecNo write SetRecNo;\r\n    property RecordSize: Word read GetRecordSize;\r\n    property State: TDataSetState read FState;\r\n    property Fields : TFields read FFieldList;\r\n    property FieldValues[const FieldName : string] : JSValue read GetFieldValues write SetFieldValues; default;\r\n    property Filter: string read FFilterText write SetFilterText;\r\n    property Filtered: Boolean read FFiltered write SetFiltered default False;\r\n    property FilterOptions: TFilterOptions read FFilterOptions write SetFilterOptions;\r\n    property Active: Boolean read GetActive write SetActive default False;\r\n    property AutoCalcFields: Boolean read FAutoCalcFields write FAutoCalcFields default true;\r\n    property BeforeOpen: TDataSetNotifyEvent read FBeforeOpen write FBeforeOpen;\r\n    property AfterOpen: TDataSetNotifyEvent read FAfterOpen write FAfterOpen;\r\n    property BeforeClose: TDataSetNotifyEvent read FBeforeClose write FBeforeClose;\r\n    property AfterClose: TDataSetNotifyEvent read FAfterClose write FAfterClose;\r\n    property BeforeInsert: TDataSetNotifyEvent read FBeforeInsert write FBeforeInsert;\r\n    property AfterInsert: TDataSetNotifyEvent read FAfterInsert write FAfterInsert;\r\n    property BeforeEdit: TDataSetNotifyEvent read FBeforeEdit write FBeforeEdit;\r\n    property AfterEdit: TDataSetNotifyEvent read FAfterEdit write FAfterEdit;\r\n    property BeforePost: TDataSetNotifyEvent read FBeforePost write FBeforePost;\r\n    property AfterPost: TDataSetNotifyEvent read FAfterPost write FAfterPost;\r\n    property BeforeCancel: TDataSetNotifyEvent read FBeforeCancel write FBeforeCancel;\r\n    property AfterCancel: TDataSetNotifyEvent read FAfterCancel write FAfterCancel;\r\n    property BeforeDelete: TDataSetNotifyEvent read FBeforeDelete write FBeforeDelete;\r\n    property AfterDelete: TDataSetNotifyEvent read FAfterDelete write FAfterDelete;\r\n    property BeforeScroll: TDataSetNotifyEvent read FBeforeScroll write FBeforeScroll;\r\n    property AfterScroll: TDataSetNotifyEvent read FAfterScroll write FAfterScroll;\r\n    property BeforeRefresh: TDataSetNotifyEvent read FBeforeRefresh write FBeforeRefresh;\r\n    property BeforeLoad : TDatasetNotifyEvent Read FBeforeLoad Write FBeforeLoad;\r\n    Property AfterLoad : TDatasetNotifyEvent Read FAfterLoad Write FAfterLoad;\r\n    Property BeforeApplyUpdates : TDatasetNotifyEvent Read FBeforeApplyUpdates Write FBeforeApplyUpdates;\r\n    Property AfterApplyUpdates : TApplyUpdatesEvent Read FAfterApplyUpdates Write FAfterApplyUpdates;\r\n    property AfterRefresh: TDataSetNotifyEvent read FAfterRefresh write FAfterRefresh;\r\n    property OnCalcFields: TDataSetNotifyEvent read FOnCalcFields write FOnCalcFields;\r\n    property OnDeleteError: TDataSetErrorEvent read FOnDeleteError write FOnDeleteError;\r\n    property OnEditError: TDataSetErrorEvent read FOnEditError write FOnEditError;\r\n    property OnFilterRecord: TFilterRecordEvent read FOnFilterRecord write SetOnFilterRecord;\r\n    property OnNewRecord: TDataSetNotifyEvent read FOnNewRecord write FOnNewRecord;\r\n    Property OnRecordResolved : TOnRecordResolveEvent Read FOnRecordResolved Write FOnRecordResolved;\r\n    property OnPostError: TDataSetErrorEvent read FOnPostError write FOnPostError;\r\n    property OnLoadFail : TDatasetLoadFailEvent Read FOnLoadFail Write FOnLoadFail;\r\n  end;\r\n\r\n{ TDataLink }\r\n\r\n  TDataLink = class(TPersistent)\r\n  private\r\n    FFirstRecord,\r\n    FBufferCount : Integer;\r\n    FActive,\r\n    FDataSourceFixed,\r\n    FEditing,\r\n    FReadOnly,\r\n    FUpdatingRecord,\r\n    FVisualControl : Boolean;\r\n    FDataSource : TDataSource;\r\n    Function  CalcFirstRecord(Index : Integer) : Integer;\r\n    Procedure CalcRange;\r\n    Procedure CheckActiveAndEditing;\r\n    Function  GetDataset : TDataset;\r\n    procedure SetActive(AActive: Boolean);\r\n    procedure SetDataSource(Value: TDataSource);\r\n    Procedure SetReadOnly(Value : Boolean);\r\n  protected\r\n    procedure ActiveChanged; virtual;\r\n    procedure CheckBrowseMode; virtual;\r\n    procedure DataEvent(Event: TDataEvent; Info: JSValue); virtual;\r\n    procedure DataSetChanged; virtual;\r\n    procedure DataSetScrolled(Distance{%H-}: Integer); virtual;\r\n    procedure EditingChanged; virtual;\r\n    procedure FocusControl(Field{%H-}: JSValue); virtual;\r\n    function  GetActiveRecord: Integer; virtual;\r\n    function  GetBOF: Boolean; virtual;\r\n    function  GetBufferCount: Integer; virtual;\r\n    function  GetEOF: Boolean; virtual;\r\n    function  GetRecordCount: Integer; virtual;\r\n    procedure LayoutChanged; virtual;\r\n    function  MoveBy(Distance: Integer): Integer; virtual;\r\n    procedure RecordChanged(Field{%H-}: TField); virtual;\r\n    procedure SetActiveRecord(Value: Integer); virtual;\r\n    procedure SetBufferCount(Value: Integer); virtual;\r\n    procedure UpdateData; virtual;\r\n    property VisualControl: Boolean read FVisualControl write FVisualControl;\r\n    property FirstRecord: Integer read FFirstRecord write FFirstRecord;\r\n  public\r\n    constructor Create; reintroduce;\r\n    destructor Destroy; override;\r\n    function  Edit: Boolean;\r\n    procedure UpdateRecord;\r\n    property Active: Boolean read FActive;\r\n    property ActiveRecord: Integer read GetActiveRecord write SetActiveRecord;\r\n    property BOF: Boolean read GetBOF;\r\n    property BufferCount: Integer read GetBufferCount write SetBufferCount;\r\n    property DataSet: TDataSet read GetDataSet;\r\n    property DataSource: TDataSource read FDataSource write SetDataSource;\r\n    property DataSourceFixed: Boolean read FDataSourceFixed write FDataSourceFixed;\r\n    property Editing: Boolean read FEditing;\r\n    property Eof: Boolean read GetEOF;\r\n    property ReadOnly: Boolean read FReadOnly write SetReadOnly;\r\n    property RecordCount: Integer read GetRecordCount;\r\n  end;\r\n\r\n{ TDetailDataLink }\r\n\r\n  TDetailDataLink = class(TDataLink)\r\n  protected\r\n    function GetDetailDataSet: TDataSet; virtual;\r\n  public\r\n    property DetailDataSet: TDataSet read GetDetailDataSet;\r\n  end;\r\n\r\n{ TMasterDataLink }\r\n\r\n  TMasterDataLink = class(TDetailDataLink)\r\n  private\r\n    FDetailDataSet: TDataSet;\r\n    FFieldNames: string;\r\n    FFields: TList;\r\n    FOnMasterChange: TNotifyEvent;\r\n    FOnMasterDisable: TNotifyEvent;\r\n    procedure SetFieldNames(const Value: string);\r\n  protected\r\n    procedure ActiveChanged; override;\r\n    procedure CheckBrowseMode; override;\r\n    function GetDetailDataSet: TDataSet; override;\r\n    procedure LayoutChanged; override;\r\n    procedure RecordChanged(Field: TField); override;\r\n    Procedure DoMasterDisable; virtual;\r\n    Procedure DoMasterChange; virtual;\r\n  public\r\n    constructor Create(ADataSet: TDataSet);virtual; reintroduce;\r\n    destructor Destroy; override;\r\n    property FieldNames: string read FFieldNames write SetFieldNames;\r\n    property Fields: TList read FFields;\r\n    property OnMasterChange: TNotifyEvent read FOnMasterChange write FOnMasterChange;\r\n    property OnMasterDisable: TNotifyEvent read FOnMasterDisable write FOnMasterDisable;\r\n  end;\r\n\r\n{ TMasterParamsDataLink }\r\n\r\n  TMasterParamsDataLink = Class(TMasterDataLink)\r\n  Private\r\n    FParams : TParams;\r\n    Procedure SetParams(AValue : TParams);\r\n  Protected\r\n    Procedure DoMasterDisable; override;\r\n    Procedure DoMasterChange; override;\r\n  Public\r\n    constructor Create(ADataSet: TDataSet); override;\r\n    Procedure RefreshParamNames; virtual;\r\n    Procedure CopyParamsFromMaster(CopyBound : Boolean); virtual;\r\n    Property Params : TParams Read FParams Write SetParams;\r\n  end;\r\n\r\n{ TDataSource }\r\n\r\n  TDataChangeEvent = procedure(Sender: TObject; Field: TField) of object;\r\n\r\n  TDataSource = class(TComponent)\r\n  private\r\n    FDataSet: TDataSet;\r\n    FDataLinks: TList;\r\n    FEnabled: Boolean;\r\n    FAutoEdit: Boolean;\r\n    FState: TDataSetState;\r\n    FOnStateChange: TNotifyEvent;\r\n    FOnDataChange: TDataChangeEvent;\r\n    FOnUpdateData: TNotifyEvent;\r\n    procedure DistributeEvent(Event: TDataEvent; Info: JSValue);\r\n    procedure RegisterDataLink(DataLink: TDataLink);\r\n    Procedure ProcessEvent(Event : TDataEvent; Info : JSValue);\r\n    procedure SetDataSet(ADataSet: TDataSet);\r\n    procedure SetEnabled(Value: Boolean);\r\n    procedure UnregisterDataLink(DataLink: TDataLink);\r\n  protected\r\n    Procedure DoDataChange (Info : Pointer);virtual;\r\n    Procedure DoStateChange; virtual;\r\n    Procedure DoUpdateData;\r\n    property DataLinks: TList read FDataLinks;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure Edit;\r\n    function IsLinkedTo(ADataSet{%H-}: TDataSet): Boolean;\r\n    property State: TDataSetState read FState;\r\n  published\r\n    property AutoEdit: Boolean read FAutoEdit write FAutoEdit default True;\r\n    property DataSet: TDataSet read FDataSet write SetDataSet;\r\n    property Enabled: Boolean read FEnabled write SetEnabled default True;\r\n    property OnStateChange: TNotifyEvent read FOnStateChange write FOnStateChange;\r\n    property OnDataChange: TDataChangeEvent read FOnDataChange write FOnDataChange;\r\n    property OnUpdateData: TNotifyEvent read FOnUpdateData write FOnUpdateData;\r\n  end;\r\n\r\n\r\n  { TDataRequest }\r\n  TDataRequestResult = (rrFail,rrEOF,rrOK);\r\n  TDataRequestEvent = Procedure (ARequest : TDataRequest) of object;\r\n\r\n  TDataRequest = Class(TObject)\r\n  private\r\n    FBookmark: TBookMark;\r\n    FCurrent: TBookMark;\r\n    FDataset: TDataset;\r\n    FErrorMsg: String;\r\n    FEvent: TDatasetLoadEvent;\r\n    FLoadOptions: TLoadOptions;\r\n    FRequestID: Integer;\r\n    FSuccess: TDataRequestResult;\r\n    FData : JSValue;\r\n    FAfterRequest : TDataRequestEvent;\r\n    FDataProxy : TDataProxy;\r\n  Protected\r\n    Procedure DoAfterRequest;\r\n  Public\r\n    Constructor Create(aDataProxy : TDataProxy; aOptions: TLoadOptions; aAfterRequest: TDataRequestEvent; aAfterLoad: TDatasetLoadEvent); virtual; reintroduce;\r\n    property DataProxy : TDataProxy Read FDataProxy;\r\n    Property Dataset : TDataset Read FDataset;\r\n    Property Bookmark : TBookMark Read FBookmark;\r\n    Property RequestID : Integer Read FRequestID;\r\n    Property LoadOptions : TLoadOptions Read FLoadOptions;\r\n    Property Current : TBookMark Read FCurrent;\r\n    Property Success : TDataRequestResult Read FSuccess Write FSuccess;\r\n    Property Event : TDatasetLoadEvent Read FEvent;\r\n    Property ErrorMsg : String Read FErrorMsg Write FErrorMsg;\r\n    Property Data : JSValue read FData Write FData;\r\n  end;\r\n  TDataRequestClass = Class of TDataRequest;\r\n\r\n  { TRecordUpdateDescriptor }\r\n\r\n  TRecordUpdateDescriptor = Class(TObject)\r\n  private\r\n    FBookmark: TBookmark;\r\n    FData: JSValue;\r\n    FDataset: TDataset;\r\n    FProxy: TDataProxy;\r\n    FResolveStatus: TResolveStatus;\r\n    FResolveError: String;\r\n    FServerData: JSValue;\r\n    FStatus: TUpdateStatus;\r\n  Protected\r\n    Procedure SetResolveStatus(aValue : TResolveStatus); virtual;\r\n    Procedure Reset;\r\n  Public\r\n    Constructor Create(aProxy : TDataProxy; aDataset : TDataset; aBookmark : TBookMark; AData : JSValue; AStatus : TUpdateStatus); reintroduce;\r\n    Procedure Resolve(aData : JSValue);\r\n    Procedure ResolveFailed(aError : String);\r\n    Property Proxy : TDataProxy read FProxy;\r\n    Property Dataset : TDataset Read FDataset;\r\n    Property OriginalStatus : TUpdateStatus Read FStatus; deprecated;\r\n    Property Status : TUpdateStatus Read FStatus;\r\n    Property ResolveStatus : TResolveStatus Read FResolveStatus;\r\n    Property ServerData : JSValue Read FServerData;\r\n    Property Data : JSValue Read FData;\r\n    Property Bookmark : TBookmark Read FBookmark;\r\n    Property ResolveError : String Read FResolveError ;\r\n  end;\r\n\r\n  TRecordUpdateDescriptorClass = Class of TRecordUpdateDescriptor;\r\n\r\n  { TRecordUpdateDescriptorList }\r\n\r\n  TRecordUpdateDescriptorList = Class(TFPList)\r\n  private\r\n    function GetUpdate(AIndex : Integer): TRecordUpdateDescriptor;\r\n  Public\r\n    Property UpdateDescriptors[AIndex : Integer] : TRecordUpdateDescriptor Read GetUpdate; Default;\r\n  end;\r\n\r\n  { TRecordUpdateBatch }\r\n  TUpdateBatchStatus = (ubsPending,ubsProcessing,ubsProcessed,ubsResolved);\r\n  TResolveBatchEvent = Procedure (Sender : TObject; ARequest : TRecordUpdateBatch) of object;\r\n\r\n  TRecordUpdateBatch = class(TObject)\r\n  private\r\n    FBatchID: Integer;\r\n    FDataset: TDataset;\r\n    FLastChangeIndex: Integer;\r\n    FList: TRecordUpdateDescriptorList;\r\n    FOnResolve: TResolveBatchEvent;\r\n    FOwnsList: Boolean;\r\n    FStatus: TUpdateBatchStatus;\r\n  Protected\r\n    Property LastChangeIndex : Integer Read FLastChangeIndex;\r\n  Public\r\n    Constructor Create (aBatchID : Integer; AList : TRecordUpdateDescriptorList; AOwnsList : Boolean); reintroduce;\r\n    Destructor Destroy; override;\r\n    Procedure FreeList;\r\n    Property Dataset : TDataset Read FDataset Write FDataset;\r\n    Property OnResolve : TResolveBatchEvent Read FOnResolve Write FOnResolve;\r\n    Property OwnsList : Boolean Read FOwnsList;\r\n    property BatchID : Integer Read FBatchID;\r\n    Property Status : TUpdateBatchStatus Read FStatus Write FStatus;\r\n    Property List : TRecordUpdateDescriptorList Read FList;\r\n  end;\r\n  TRecordUpdateBatchClass = Class of TRecordUpdateBatch;\r\n\r\n  { TDataProxy }\r\n\r\n  TDataProxy = Class(TComponent)\r\n  Protected\r\n    Function GetDataRequestClass : TDataRequestClass; virtual;\r\n    Function GetUpdateDescriptorClass : TRecordUpdateDescriptorClass; virtual;\r\n    Function GetUpdateBatchClass : TRecordUpdateBatchClass; virtual;\r\n    // Use this to call resolve event, and free the batch.\r\n    Procedure ResolveBatch(aBatch : TRecordUpdateBatch);\r\n  Public\r\n    Function GetDataRequest(aOptions: TLoadOptions; aAfterRequest: TDataRequestEvent; aAfterLoad: TDatasetLoadEvent) : TDataRequest; virtual;\r\n    Function GetUpdateDescriptor(aDataset : TDataset; aBookmark : TBookMark; AData : JSValue; AStatus : TUpdateStatus) : TRecordUpdateDescriptor; virtual;\r\n    function GetRecordUpdateBatch(aBatchID: Integer; AList: TRecordUpdateDescriptorList; AOwnsList: Boolean=True): TRecordUpdateBatch; virtual;\r\n    // actual calls to do the work. Dataset wi\r\n    Function DoGetData(aRequest : TDataRequest) : Boolean; virtual; abstract;\r\n    // TDataProxy is responsible for calling OnResolve and if not, Freeing the batch.\r\n    Function ProcessUpdateBatch(aBatch : TRecordUpdateBatch): Boolean; virtual; abstract;\r\n  end;\r\n\r\nconst\r\n  {\r\n  TFieldType = (\r\n    ftUnknown, ftString, ftInteger, ftLargeInt, ftBoolean, ftFloat, ftDate,\r\n    ftTime, ftDateTime,  ftAutoInc, ftBlob, ftMemo, ftFixedChar,\r\n    ftVariant\r\n  );\r\n  }\r\n\r\nConst\r\n  FieldTypeNames: array[TFieldType] of string = (\r\n    'Unknown', 'String', 'SmallInt', 'Integer', 'Word', 'Boolean', 'Float',\r\n    'Currency', 'BCD', 'Date', 'Time', 'DateTime', 'Bytes', 'VarBytes',\r\n    'AutoInc', 'Blob', 'Memo', 'Graphic', 'FmtMemo', 'ParadoxOle',\r\n    'dBaseOle', 'TypedBinary', 'Cursor', 'FixedChar', 'WideString',\r\n    'LargeInt', 'ADT', 'Array', 'Reference', 'DataSet', 'OraBlob', 'OraClob',\r\n    'Variant', 'Interface', 'IDispatch', 'Guid', 'TimeStamp', 'FMTBcd',\r\n    'FixedWideChar', 'WideMemo', 'OraTimeStamp', 'OraInterval',\r\n    'LongWord', 'ShortInt', 'Byte', 'Extended', 'Connection', 'Params', 'Stream',\r\n    'TimeStampOffset', 'Object', 'Single');\r\n\r\n  DefaultFieldClasses: array[TFieldType] of TFieldClass = (\r\n    nil,                       { ftUnknown }\r\n    TStringField,              { ftString }\r\n    TSmallintField,            { ftSmallint }\r\n    TIntegerField,             { ftInteger }\r\n    TWordField,                { ftWord }\r\n    TBooleanField,             { ftBoolean }\r\n    TFloatField,               { ftFloat }\r\n    nil,                       { ftCurrency }\r\n    nil,                       { ftBCD }\r\n    TDateField,                { ftDate }\r\n    TTimeField,                { ftTime }\r\n    TDateTimeField,            { ftDateTime }\r\n    nil,                       { ftBytes }\r\n    nil,                       { ftVarBytes }\r\n    TAutoIncField,             { ftAutoInc }\r\n    TBlobField,                { ftBlob }\r\n    TMemoField,                { ftMemo }\r\n    TGraphicField,             { ftGraphic }\r\n    TBlobField,                { ftFmtMemo }\r\n    TBlobField,                { ftParadoxOle }\r\n    TBlobField,                { ftDBaseOle }\r\n    TBlobField,                { ftTypedBinary }\r\n    nil,                       { ftCursor }\r\n    TStringField,              { ftFixedChar }\r\n    nil,                       { ftWideString }\r\n    TLargeIntField,            { ftLargeInt }\r\n    nil,                       { ftADT }\r\n    nil,                       { ftArray }\r\n    nil,                       { ftReference }\r\n    TDataSetField,             { ftDataSet }\r\n    TBlobField,                { ftOraBlob }\r\n    TMemoField,                { ftOraClob }\r\n    TVariantField,             { ftVariant }\r\n    nil,                       { ftInterface }\r\n    nil,                       { ftIDispatch }\r\n    nil,                       { ftGuid }\r\n    nil,                       { ftTimeStamp }\r\n    nil,                       { ftFMTBcd }\r\n    nil,                       { ftFixedWideChar }\r\n    nil,                       { ftWideMemo }\r\n    nil,                       { ftOraTimeStamp }\r\n    TStringField,              { ftOraInterval }\r\n    nil,                       { ftLongWord }\r\n    nil,                       { ftShortint }\r\n    nil,                       { ftByte }\r\n    nil,                       { ftExtended }\r\n    nil,                       { ftConnection }\r\n    nil,                       { ftParams }\r\n    nil,                       { ftStream }\r\n    nil,                       { ftTimeStampOffset }\r\n    nil,                       { ftObject }\r\n    nil);                      { ftSingle }\r\n\r\n  dsEditModes = [dsEdit, dsInsert, dsSetKey];\r\n  dsWriteModes = [dsEdit, dsInsert, dsSetKey, dsCalcFields, dsFilter,\r\n                  dsNewValue, dsInternalCalc, dsRefreshFields];\r\n\r\n{ Auxiliary functions }\r\n\r\nProcedure DatabaseError (Const Msg : String); overload;\r\nProcedure DatabaseError (Const Msg : String; Comp : TComponent); overload;\r\nProcedure DatabaseErrorFmt (Const Fmt : String; Const Args : Array Of const); overload;\r\nProcedure DatabaseErrorFmt (Const Fmt : String; Const Args : Array Of const; Comp : TComponent); overload;\r\nFunction ExtractFieldName(Const Fields: String; var Pos: Integer): String;\r\n\r\n// function SkipComments(var p: PChar; EscapeSlash, EscapeRepeat : Boolean) : boolean;\r\n\r\n// operator Enumerator(ADataSet: TDataSet): TDataSetEnumerator;\r\n \r\nimplementation\r\n\r\nuses DBConst,TypInfo;\r\n\r\n{ ---------------------------------------------------------------------\r\n    Auxiliary functions\r\n  ---------------------------------------------------------------------}\r\n\r\nProcedure DatabaseError (Const Msg : String);\r\n\r\nbegin\r\n  Raise EDataBaseError.Create(Msg);\r\nend;\r\n\r\nProcedure DatabaseError (Const Msg : String; Comp : TComponent);\r\n\r\nbegin\r\n  if assigned(Comp) and (Comp.Name <> '') then\r\n    Raise EDatabaseError.CreateFmt('%s : %s',[Comp.Name,Msg])\r\n  else\r\n    DatabaseError(Msg);\r\nend;\r\n\r\nProcedure DatabaseErrorFmt (Const Fmt : String; Const Args : Array Of const);\r\n\r\nbegin\r\n  Raise EDatabaseError.CreateFmt(Fmt,Args);\r\nend;\r\n\r\nProcedure DatabaseErrorFmt (Const Fmt : String; Const Args : Array Of const;\r\n                            Comp : TComponent);\r\nbegin\r\n  if assigned(comp) then\r\n    Raise EDatabaseError.CreateFmt(Format('%s : %s',[Comp.Name,Fmt]),Args)\r\n  else\r\n    DatabaseErrorFmt(Fmt, Args);\r\nend;\r\n\r\nfunction ExtractFieldName(const Fields: string; var Pos: Integer): string;\r\nvar\r\n  i: Integer;\r\n  FieldsLength: Integer;\r\nbegin\r\n  i:=Pos;\r\n  FieldsLength:=Length(Fields);\r\n  while (i<=FieldsLength) and (Fields[i]<>';') do Inc(i);\r\n  Result:=Trim(Copy(Fields,Pos,i-Pos));\r\n  if (i<=FieldsLength) and (Fields[i]=';') then Inc(i);\r\n  Pos:=i;\r\nend;\r\n\r\n{ TRecordUpdateBatch }\r\n\r\nconstructor TRecordUpdateBatch.Create(aBatchID: Integer; AList: TRecordUpdateDescriptorList; AOwnsList : Boolean);\r\nbegin\r\n  FBatchID:=aBatchID;\r\n  FList:=AList;\r\n  FOwnsList:=AOwnsList;\r\n  FStatus:=ubsPending;\r\nend;\r\n\r\ndestructor TRecordUpdateBatch.Destroy;\r\nbegin\r\n  if OwnsList then\r\n    FreeList;\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TRecordUpdateBatch.FreeList;\r\nbegin\r\n  FreeAndNil(FList);\r\nend;\r\n\r\n{ TRecordUpdateDescriptorList }\r\n\r\nfunction TRecordUpdateDescriptorList.GetUpdate(AIndex : Integer): TRecordUpdateDescriptor;\r\nbegin\r\n  Result:=TRecordUpdateDescriptor(Items[AIndex]);\r\nend;\r\n\r\n{ TRecordUpdateDescriptor }\r\n\r\nprocedure TRecordUpdateDescriptor.SetResolveStatus(aValue: TResolveStatus);\r\nbegin\r\n  FResolveStatus:=AValue;\r\nend;\r\n\r\nprocedure TRecordUpdateDescriptor.Reset;\r\nbegin\r\n  FResolveStatus:=rsUnresolved;\r\n  FResolveError:='';\r\n  FServerData:=Null;\r\nend;\r\n\r\nconstructor TRecordUpdateDescriptor.Create(aProxy: TDataProxy; aDataset: TDataset; aBookmark: TBookMark; AData: JSValue;\r\n  AStatus: TUpdateStatus);\r\nbegin\r\n  FDataset:=aDataset;\r\n  FBookmark:=aBookmark;\r\n  FData:=AData;\r\n  FStatus:=AStatus;\r\n  FProxy:=aProxy;\r\nend;\r\n\r\n\r\nprocedure TRecordUpdateDescriptor.Resolve(aData: JSValue);\r\nbegin\r\n  SetResolveStatus(rsResolved);\r\n  FServerData:=AData;\r\nend;\r\n\r\nprocedure TRecordUpdateDescriptor.ResolveFailed(aError: String);\r\nbegin\r\n  SetResolveStatus(rsResolveFailed);\r\n  FResolveError:=AError;\r\nend;\r\n\r\n{ TDataRequest }\r\n\r\nprocedure TDataRequest.DoAfterRequest;\r\nbegin\r\n  if Assigned(FAfterRequest) then\r\n    FAfterRequest(Self);\r\nend;\r\n\r\nconstructor TDataRequest.Create(aDataProxy : TDataProxy; aOptions: TLoadOptions; aAfterRequest: TDataRequestEvent; aAfterLoad: TDatasetLoadEvent);\r\nbegin\r\n  FDataProxy:=aDataProxy;\r\n  FLoadOptions:=aOptions;\r\n  FEvent:=aAfterLoad;\r\n  FAfterRequest:=aAfterRequest;\r\nend;\r\n\r\n{ TDataProxy }\r\n\r\nfunction TDataProxy.GetDataRequestClass: TDataRequestClass;\r\nbegin\r\n  Result:=TDataRequest;\r\nend;\r\n\r\nfunction TDataProxy.GetUpdateDescriptorClass: TRecordUpdateDescriptorClass;\r\nbegin\r\n  Result:=TRecordUpdateDescriptor;\r\nend;\r\n\r\nfunction TDataProxy.GetUpdateBatchClass: TRecordUpdateBatchClass;\r\nbegin\r\n  Result:=TRecordUpdateBatch;\r\nend;\r\n\r\nprocedure TDataProxy.ResolveBatch(aBatch: TRecordUpdateBatch);\r\nbegin\r\n  try\r\n    If Assigned(ABatch.FOnResolve) then\r\n      ABatch.FOnResolve(Self,ABatch);\r\n  finally\r\n    aBatch.Free;\r\n  end;\r\nend;\r\n\r\nfunction TDataProxy.GetDataRequest(aOptions: TLoadOptions; aAfterRequest : TDataRequestEvent; aAfterLoad: TDatasetLoadEvent): TDataRequest;\r\nbegin\r\n  Result:=GetDataRequestClass.Create(Self,aOptions,aAfterRequest,aAfterLoad);\r\nend;\r\n\r\nfunction TDataProxy.GetUpdateDescriptor(aDataset : TDataset; aBookmark: TBookMark; AData: JSValue; AStatus: TUpdateStatus): TRecordUpdateDescriptor;\r\nbegin\r\n  Result:=GetUpdateDescriptorClass.Create(Self,aDataset, aBookmark,AData,AStatus);\r\nend;\r\n\r\nfunction TDataProxy.GetRecordUpdateBatch(aBatchID: Integer; AList: TRecordUpdateDescriptorList; AOwnsList : Boolean = True): TRecordUpdateBatch;\r\nbegin\r\n  Result:=GetUpdateBatchClass.Create(aBatchID,AList,AOwnsList);\r\nend;\r\n\r\n\r\n{ EUpdateError }\r\nconstructor EUpdateError.Create(NativeError, Context : String;\r\n                                ErrCode, PrevError : integer; E: Exception);\r\n                                \r\nbegin\r\n  Inherited CreateFmt(NativeError,[Context]);\r\n  FContext := Context;\r\n  FErrorCode := ErrCode;\r\n  FPreviousError := PrevError;\r\n  FOriginalException := E;\r\nend;\r\n\r\nDestructor EUpdateError.Destroy;\r\n\r\nbegin\r\n  FOriginalException.Free;\r\n  Inherited;\r\nend;\r\n\r\n{ TNamedItem }\r\n\r\nfunction TNamedItem.GetDisplayName: string;\r\nbegin\r\n  Result := FName;\r\nend;\r\n\r\nprocedure TNamedItem.SetDisplayName(const Value: string);\r\nVar TmpInd : Integer;\r\nbegin\r\n  if FName=Value then exit;\r\n  if (Value <> '') and (Collection is TFieldDefs ) then\r\n    begin\r\n    TmpInd :=  (TDefCollection(Collection).IndexOf(Value));\r\n    if (TmpInd >= 0) and (TmpInd <> Index) then\r\n      DatabaseErrorFmt(SDuplicateName, [Value, Collection.ClassName]);\r\n    end;\r\n  FName:=Value;\r\n  inherited SetDisplayName(Value);\r\nend;\r\n\r\n{ TDefCollection }\r\n\r\nprocedure TDefCollection.SetItemName(Item: TCollectionItem);\r\n\r\nVar\r\n  N : TNamedItem;\r\n  TN : String;\r\n\r\nbegin\r\n  N:=Item as TNamedItem;\r\n  if N.Name = '' then\r\n    begin\r\n    TN:=Copy(ClassName, 2, 5) + IntToStr(N.ID+1);\r\n    if assigned(Dataset) then\r\n      TN:=Dataset.Name+TN;\r\n    N.Name:=TN;\r\n    end\r\n  else\r\n    inherited SetItemName(Item);\r\nend;\r\n\r\nconstructor TDefCollection.create(ADataset: TDataset; AOwner: TPersistent;\r\n  AClass: TCollectionItemClass);\r\nbegin\r\n  inherited Create(AOwner,AClass);\r\n  FDataset := ADataset;\r\nend;\r\n\r\nfunction TDefCollection.Find(const AName: string): TNamedItem;\r\nvar i: integer;\r\nbegin\r\n  Result := Nil;\r\n  for i := 0 to Count - 1 do\r\n    if AnsiSameText(TNamedItem(Items[i]).Name, AName) then\r\n    begin\r\n    Result := TNamedItem(Items[i]);\r\n    Break;\r\n    end;\r\nend;\r\n\r\nprocedure TDefCollection.GetItemNames(List: TStrings);\r\nvar i: LongInt;\r\nbegin\r\n  for i := 0 to Count - 1 do\r\n    List.Add(TNamedItem(Items[i]).Name);\r\nend;\r\n\r\nfunction TDefCollection.IndexOf(const AName: string): Longint;\r\nvar i: LongInt;\r\nbegin\r\n  Result := -1;\r\n  for i := 0 to Count - 1 do\r\n    if AnsiSameText(TNamedItem(Items[i]).Name, AName) then\r\n    begin\r\n    Result := i;\r\n    Break;\r\n    end;\r\nend;\r\n\r\n{ TIndexDef }\r\n\r\nprocedure TIndexDef.SetDescFields(const AValue: string);\r\nbegin\r\n  if FDescFields=AValue then exit;\r\n  if AValue <> '' then FOptions:=FOptions + [ixDescending];\r\n  FDescFields:=AValue;\r\nend;\r\n\r\nprocedure TIndexDef.Assign(Source: TPersistent);\r\nvar idef : TIndexDef;\r\nbegin\r\n  idef := nil;\r\n  if Source is TIndexDef then\r\n    idef := Source as TIndexDef;\r\n  if Assigned(idef) then\r\n     begin\r\n     FName := idef.Name;\r\n     FFields := idef.Fields;\r\n     FOptions := idef.Options;\r\n     FCaseinsFields := idef.CaseInsFields;\r\n     FDescFields := idef.DescFields;\r\n     FSource := idef.Source;\r\n     FExpression := idef.Expression;\r\n     end\r\n  else\r\n    inherited Assign(Source);\r\nend;\r\n\r\nfunction TIndexDef.GetExpression: string;\r\nbegin\r\n  Result := FExpression;\r\nend;\r\n\r\nprocedure TIndexDef.SetExpression(const AValue: string);\r\nbegin\r\n  FExpression := AValue;\r\nend;\r\n\r\nprocedure TIndexDef.SetCaseInsFields(const AValue: string);\r\nbegin\r\n  if FCaseinsFields=AValue then exit;\r\n  if AValue <> '' then FOptions:=FOptions + [ixCaseInsensitive];\r\n  FCaseinsFields:=AValue;\r\nend;\r\n\r\nconstructor TIndexDef.Create(Owner: TIndexDefs; const AName, TheFields: string;\r\n      TheOptions: TIndexOptions);\r\n\r\nbegin\r\n  FName := aname;\r\n  inherited create(Owner);\r\n  FFields := TheFields;\r\n  FOptions := TheOptions;\r\nend;\r\n\r\n\r\n{ TIndexDefs }\r\n\r\nFunction TIndexDefs.GetItem (Index : integer) : TIndexDef;\r\n\r\nbegin\r\n  Result:=(Inherited GetItem(Index)) as TIndexDef;\r\nend;\r\n\r\nProcedure TIndexDefs.SetItem(Index: Integer; Value: TIndexDef);\r\nbegin\r\n  Inherited SetItem(Index,Value);\r\nend;\r\n\r\nconstructor TIndexDefs.Create(ADataSet: TDataSet);\r\n\r\nbegin\r\n  inherited create(ADataset, Owner, TIndexDef);\r\nend;\r\n\r\n\r\nFunction TIndexDefs.AddIndexDef: TIndexDef;\r\n\r\nbegin\r\n//  Result := inherited add as TIndexDef;\r\n  Result:=TIndexDefClass(Self.ItemClass).Create(Self,'','',[]);\r\nend;\r\n\r\nprocedure TIndexDefs.Add(const Name, Fields: string; Options: TIndexOptions);\r\n\r\nbegin\r\n  TIndexDefClass(Self.ItemClass).Create(Self,Name,Fields,Options);\r\nend;\r\n\r\nfunction TIndexDefs.Find(const IndexName: string): TIndexDef;\r\nbegin\r\n  Result := (inherited Find(IndexName)) as TIndexDef;\r\n  if (Result=Nil) Then\r\n    DatabaseErrorFmt(SIndexNotFound, [IndexName], FDataSet);\r\nend;\r\n\r\nfunction TIndexDefs.FindIndexForFields(const Fields: string): TIndexDef;\r\n\r\nbegin\r\n  //!! To be implemented\r\n  Result:=nil;\r\nend;\r\n\r\n\r\nfunction TIndexDefs.GetIndexForFields(const Fields: string;\r\n  CaseInsensitive: Boolean): TIndexDef;\r\n\r\nvar\r\n  i, FieldsLen: integer;\r\n  Last: TIndexDef;\r\nbegin\r\n  Last := nil;\r\n  FieldsLen := Length(Fields);\r\n  for i := 0 to Count - 1 do\r\n  begin\r\n    Result := Items[I];\r\n    if (Result.Options * [ixDescending, ixExpression] = []) and\r\n       (not CaseInsensitive or (ixCaseInsensitive in Result.Options)) and\r\n       AnsiSameText(Fields, Result.Fields) then\r\n    begin\r\n      Exit;\r\n    end else\r\n    if AnsiSameText(Fields, Copy(Result.Fields, 1, FieldsLen)) and\r\n       ((Length(Result.Fields) = FieldsLen) or\r\n       (Result.Fields[FieldsLen + 1] = ';')) then\r\n    begin\r\n      if (Last = nil) or\r\n         ((Last <> nil) And (Length(Last.Fields) > Length(Result.Fields))) then\r\n           Last := Result;\r\n    end;\r\n  end;\r\n  Result := Last;\r\nend;\r\n\r\nprocedure TIndexDefs.Update;\r\n\r\nbegin\r\n  if (not updated) and assigned(Dataset) then\r\n    begin\r\n    Dataset.UpdateIndexDefs;\r\n    updated := True;\r\n    end;\r\nend;\r\n\r\n{ TCheckConstraint }\r\n\r\nprocedure TCheckConstraint.Assign(Source: TPersistent);\r\n\r\nbegin\r\n  //!! To be implemented\r\nend;\r\n\r\n\r\n\r\n{ TCheckConstraints }\r\n\r\nFunction TCheckConstraints.GetItem(Index : Longint) : TCheckConstraint;\r\n\r\nbegin\r\n  //!! To be implemented\r\n  Result := nil;\r\nend;\r\n\r\n\r\nProcedure TCheckConstraints.SetItem(index : Longint; Value : TCheckConstraint);\r\n\r\nbegin\r\n  //!! To be implemented\r\nend;\r\n\r\n\r\nfunction TCheckConstraints.GetOwner: TPersistent;\r\n\r\nbegin\r\n  //!! To be implemented\r\n  Result := nil;\r\nend;\r\n\r\n\r\nconstructor TCheckConstraints.Create(AOwner: TPersistent);\r\n\r\nbegin\r\n  //!! To be implemented\r\n  inherited Create(TCheckConstraint);\r\nend;\r\n\r\n\r\nfunction TCheckConstraints.Add: TCheckConstraint;\r\n\r\nbegin\r\n  //!! To be implemented\r\n  Result := nil;\r\nend;\r\n\r\n{ TLookupList }\r\n\r\nconstructor TLookupList.Create;\r\n\r\nbegin\r\n  FList := TFPList.Create;\r\nend;\r\n\r\ndestructor TLookupList.Destroy;\r\n\r\nbegin\r\n  Clear;\r\n  FList.Destroy;\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TLookupList.Add(const AKey, AValue: JSValue);\r\n\r\nvar LookupRec: TJSObject;\r\n\r\nbegin\r\n  LookupRec:=New(['Key',AKey,'Value',AValue]);\r\n  FList.Add(LookupRec);\r\nend;\r\n\r\nprocedure TLookupList.Clear;\r\n\r\nbegin\r\n  FList.Clear;\r\nend;\r\n\r\nfunction TLookupList.FirstKeyByValue(const AValue: JSValue): JSValue;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  for i := 0 to FList.Count - 1 do\r\n    with TJSObject(FList[i]) do\r\n      if Properties['Value'] = AValue then\r\n        begin\r\n        Result := Properties['Key'];\r\n        exit;\r\n        end;\r\n  Result := Null;\r\nend;\r\n\r\nfunction TLookupList.ValueOfKey(const AKey: JSValue): JSValue;\r\n\r\n  Function VarArraySameValues(VarArray1,VarArray2 : TJSValueDynArray) : Boolean;\r\n  // This only works for one-dimensional vararrays with a lower bound of 0\r\n  // and equal higher bounds wich only contains JSValues.\r\n  // The vararrays returned by GetFieldValues do apply.\r\n  var i : integer;\r\n  begin\r\n    Result := True;\r\n    if (Length(VarArray1)<>Length(VarArray2)) then\r\n      exit;\r\n    for i := 0 to Length(VarArray1) do\r\n      begin\r\n      if VarArray1[i]<>VarArray2[i] then\r\n        begin\r\n        Result := false;\r\n        Exit;\r\n        end;\r\n    end;\r\n  end;\r\n\r\nvar I: Integer;\r\nbegin\r\n  Result := Null;\r\n  if IsNull(AKey) then Exit;\r\n  i := FList.Count - 1;\r\n  if IsArray(AKey) then\r\n    while (i >= 0) And not VarArraySameValues(TJSValueDynArray(TJSOBject(FList.Items[I]).Properties['Key']),TJSValueDynArray(AKey)) do Dec(i)\r\n  else\r\n    while (i >= 0) And (TJSObject(FList[I]).Properties['Key'] <> AKey) do Dec(i);\r\n  if i >= 0 then Result := TJSObject(FList[I]).Properties['Value'];\r\nend;\r\n\r\nprocedure TLookupList.ValuesToStrings(AStrings: TStrings);\r\n\r\nvar\r\n  i: Integer;\r\n  p: TJSObject;\r\n\r\nbegin\r\n  AStrings.Clear;\r\n  for i := 0 to FList.Count - 1 do\r\n    begin\r\n    p := TJSObject(FList[i]);\r\n    AStrings.AddObject(String(p.properties['Value']), TObject(p));\r\n    end;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    TDataSet\r\n  ---------------------------------------------------------------------}\r\n\r\nConst\r\n  DefaultBufferCount = 10;\r\n\r\nconstructor TDataSet.Create(AOwner: TComponent);\r\n\r\nbegin\r\n  Inherited Create(AOwner);\r\n  FFieldDefs:=FieldDefsClass.Create(Self);\r\n  FFieldList:=FieldsClass.Create(Self);\r\n  FDataSources:=TFPList.Create;\r\n  FConstraints:=TCheckConstraints.Create(Self);\r\n  SetLength(FBuffers,1);\r\n  FActiveRecord := 0;\r\n  FEOF := True;\r\n  FBOF := True;\r\n  FIsUniDirectional := False;\r\n  FAutoCalcFields := True;\r\n  FDataRequestID:=0;\r\n  FNestedDataSetClass := TDataSetClass(Self.ClassType);\r\nend;\r\n\r\n\r\ndestructor TDataSet.Destroy;\r\n\r\nvar\r\n  i: Integer;\r\n\r\nbegin\r\n  Active:=False;\r\n\r\n  SetDataSetField(nil);\r\n\r\n  FFieldDefs.Free;\r\n  FFieldList.Free;\r\n  FNestedDataSets.Free;\r\n  With FDataSources do\r\n    begin\r\n    While Count>0 do\r\n      TDataSource(Items[Count - 1]).DataSet:=Nil;\r\n    Destroy;\r\n    end;\r\n  for i := 0 to FBufferCount do\r\n    FreeRecordBuffer(FBuffers[i]);\r\n  FConstraints.Free;\r\n  SetLength(FBuffers,1);\r\n  Inherited Destroy;\r\nend;\r\n\r\n// This procedure must be called when the first record is made/read\r\nprocedure TDataSet.ActivateBuffers;\r\n\r\nbegin\r\n  FBOF:=False;\r\n  FEOF:=False;\r\n  FActiveRecord:=0;\r\nend;\r\n\r\nprocedure TDataSet.BindFields(Binding: Boolean);\r\n\r\nvar i, FieldIndex: Integer;\r\n    FieldDef: TFieldDef;\r\n    Field: TField;\r\n\r\nbegin\r\n  { FieldNo is set to -1 for calculated/lookup fields, to 0 for unbound field\r\n    and for bound fields it is set to FieldDef.FieldNo }\r\n  FCalcFieldsCount := 0;\r\n  FBlobFieldCount := 0;\r\n  for i := 0 to Fields.Count - 1 do\r\n    begin\r\n    Field := Fields[i];\r\n    Field.FFieldDef := Nil;\r\n    if not Binding then\r\n      Field.FFieldNo := 0\r\n    else if Field.FieldKind in [fkCalculated, fkLookup] then\r\n      begin\r\n      Field.FFieldNo := -1;\r\n      Inc(FCalcFieldsCount);\r\n      end\r\n    else\r\n      begin\r\n      FieldIndex := FieldDefs.IndexOf(Field.FieldName);\r\n      if FieldIndex = -1 then\r\n        DatabaseErrorFmt(SFieldNotFound,[Field.FieldName],Self)\r\n      else\r\n        begin\r\n        FieldDef := FieldDefs[FieldIndex];\r\n        Field.FFieldDef := FieldDef;\r\n        Field.FFieldNo := FieldDef.FieldNo;\r\n        if FieldDef.InternalCalcField then\r\n          FInternalCalcFields := True;\r\n        if Field.IsBlob then\r\n          begin\r\n          Field.FSize := FieldDef.Size;\r\n          Inc(FBlobFieldCount);\r\n          end;\r\n        // synchronize CodePage between TFieldDef and TField\r\n        // character data in record buffer and field buffer should have same CodePage\r\n        end;\r\n      end;\r\n    Field.Bind(Binding);\r\n    end;\r\nend;\r\n\r\nfunction TDataSet.BookmarkAvailable: Boolean;\r\n\r\nConst BookmarkStates = [dsBrowse,dsEdit,dsInsert];\r\n\r\nbegin\r\n  Result:=(Not IsEmpty) and  not FIsUniDirectional and (State in BookmarkStates)\r\n          and (getBookMarkFlag(ActiveBuffer)=bfCurrent);\r\nend;\r\n\r\nprocedure TDataSet.CalculateFields(var Buffer: TDataRecord);\r\nvar\r\n  i: Integer;\r\nbegin\r\n  FCalcBuffer := Buffer;\r\n\r\n  if FState <> dsInternalCalc then\r\n  begin\r\n    ClearCalcFields(FCalcBuffer);\r\n\r\n    if not IsUniDirectional then\r\n      for i := 0 to FFieldList.Count - 1 do\r\n        if FFieldList[i].FieldKind = fkLookup then\r\n          FFieldList[i].CalcLookupValue;\r\n  end;\r\n\r\n  DoOnCalcFields;\r\nend;\r\n\r\nprocedure TDataSet.CheckActive;\r\n\r\nbegin\r\n  If Not Active then\r\n    DataBaseError(SInactiveDataset,Self);\r\nend;\r\n\r\nprocedure TDataSet.CheckInactive;\r\n\r\nbegin\r\n  If Active then\r\n    DataBaseError(SActiveDataset,Self);\r\nend;\r\n\r\nprocedure TDataSet.ClearBuffers;\r\n\r\nbegin\r\n  FRecordCount:=0;\r\n  FActiveRecord:=0;\r\n  FCurrentRecord:=-1;\r\n  FBOF:=True;\r\n  FEOF:=True;\r\nend;\r\n\r\nprocedure TDataSet.ClearCalcFields(var Buffer: TDataRecord);\r\n\r\nbegin\r\n  // Empty\r\nend;\r\n\r\nprocedure TDataSet.CloseBlob(Field: TField);\r\n\r\nbegin\r\n  //!! To be implemented\r\nend;\r\n\r\nprocedure TDataSet.CloseCursor;\r\n\r\nbegin\r\n  ClearBuffers;\r\n  SetBufListSize(1);\r\n  Fields.ClearFieldDefs;\r\n  InternalClose;\r\n  FInternalOpenComplete := False;\r\nend;\r\n\r\nprocedure TDataSet.CreateFields;\r\n\r\nVar I : longint;\r\n\r\nbegin\r\n{$ifdef DSDebug}\r\n  Writeln ('Creating fields');\r\n  Writeln ('Count : ',fielddefs.Count);\r\n  For I:=0 to FieldDefs.Count-1 do\r\n    Writeln('Def ',I,' : ',Fielddefs.items[i].Name,'(',Fielddefs.items[i].FieldNo,')');\r\n{$endif}\r\n  For I:=0 to FieldDefs.Count-1 do\r\n    With FieldDefs.Items[I] do\r\n      If DataType<>ftUnknown then\r\n        begin\r\n        {$ifdef DSDebug}\r\n        Writeln('About to create field ',FieldDefs.Items[i].Name);\r\n        {$endif}\r\n        CreateField(self);\r\n        end;\r\nend;\r\n\r\nprocedure TDataSet.DataEvent(Event: TDataEvent; Info: JSValue);\r\n\r\n  procedure HandleFieldChange(aField: TField);\r\n  begin\r\n    if aField.FieldKind in [fkData, fkInternalCalc] then\r\n      SetModified(True);\r\n      \r\n    if State <> dsSetKey then begin\r\n      if aField.FieldKind = fkData then begin\r\n        if FInternalCalcFields then\r\n          RefreshInternalCalcFields(FBuffers[FActiveRecord])\r\n        else if FAutoCalcFields and (FCalcFieldsCount <> 0) then\r\n          CalculateFields(FBuffers[FActiveRecord]);\r\n      end;\r\n      aField.Change;\r\n    end;\r\n  end;\r\n  \r\n  procedure HandleScrollOrChange;\r\n  var\r\n    A: Integer;\r\n    NestedDataSet: TDataSet;\r\n\r\n  begin\r\n    if State <> dsInsert then\r\n      UpdateCursorPos;\r\n\r\n    if Assigned(FNestedDataSets) then\r\n      for A := 0 to Pred(NestedDataSets.Count) do\r\n      begin\r\n        NestedDataSet := TDataSet(NestedDataSets[A]);\r\n\r\n        if NestedDataSet.Active then\r\n          NestedDataSet.DataEvent(deParentScroll, 0);\r\n      end;\r\n  end;\r\n\r\nvar\r\n  i: Integer;\r\nbegin\r\n  case Event of\r\n    deFieldChange   : HandleFieldChange(TField(Info));\r\n    deDataSetChange,\r\n    deDataSetScroll : HandleScrollOrChange;\r\n    deLayoutChange  : FEnableControlsEvent:=deLayoutChange;\r\n  end;\r\n\r\n  if not ControlsDisabled and (FState <> dsBlockRead) then begin\r\n    for i := 0 to FDataSources.Count - 1 do\r\n      TDataSource(FDataSources[i]).ProcessEvent(Event, Info);\r\n  end;\r\nend;\r\n\r\nprocedure TDataSet.DestroyFields;\r\n\r\nbegin\r\n  FFieldList.Clear;\r\nend;\r\n\r\nprocedure TDataSet.DoAfterCancel;\r\n\r\nbegin\r\n If assigned(FAfterCancel) then\r\n   FAfterCancel(Self);\r\nend;\r\n\r\nprocedure TDataSet.DoAfterClose;\r\n\r\nbegin\r\n If assigned(FAfterClose) and not (csDestroying in ComponentState) then\r\n   FAfterClose(Self);\r\nend;\r\n\r\nprocedure TDataSet.DoAfterDelete;\r\n\r\nbegin\r\n If assigned(FAfterDelete) then\r\n   FAfterDelete(Self);\r\nend;\r\n\r\nprocedure TDataSet.DoAfterEdit;\r\n\r\nbegin\r\n If assigned(FAfterEdit) then\r\n   FAfterEdit(Self);\r\nend;\r\n\r\nprocedure TDataSet.DoAfterInsert;\r\n\r\nbegin\r\n If assigned(FAfterInsert) then\r\n   FAfterInsert(Self);\r\nend;\r\n\r\nprocedure TDataSet.DoAfterOpen;\r\n\r\nbegin\r\n If assigned(FAfterOpen) then\r\n   FAfterOpen(Self);\r\nend;\r\n\r\nprocedure TDataSet.DoAfterPost;\r\n\r\nbegin\r\n If assigned(FAfterPost) then\r\n   FAfterPost(Self);\r\nend;\r\n\r\nprocedure TDataSet.DoAfterScroll;\r\n\r\nbegin\r\n If assigned(FAfterScroll) then\r\n   FAfterScroll(Self);\r\nend;\r\n\r\nprocedure TDataSet.DoAfterRefresh;\r\n\r\nbegin\r\n If assigned(FAfterRefresh) then\r\n   FAfterRefresh(Self);\r\nend;\r\n\r\nprocedure TDataSet.DoBeforeCancel;\r\n\r\nbegin\r\n If assigned(FBeforeCancel) then\r\n   FBeforeCancel(Self);\r\nend;\r\n\r\nprocedure TDataSet.DoBeforeClose;\r\n\r\nbegin\r\n If assigned(FBeforeClose) and not (csDestroying in ComponentState) then\r\n   FBeforeClose(Self);\r\nend;\r\n\r\nprocedure TDataSet.DoBeforeDelete;\r\n\r\nbegin\r\n If assigned(FBeforeDelete) then\r\n   FBeforeDelete(Self);\r\nend;\r\n\r\nprocedure TDataSet.DoBeforeEdit;\r\n\r\nbegin\r\n If assigned(FBeforeEdit) then\r\n   FBeforeEdit(Self);\r\nend;\r\n\r\nprocedure TDataSet.DoBeforeInsert;\r\n\r\nbegin\r\n If assigned(FBeforeInsert) then\r\n   FBeforeInsert(Self);\r\nend;\r\n\r\nprocedure TDataSet.DoBeforeOpen;\r\n\r\nbegin\r\n If assigned(FBeforeOpen) then\r\n   FBeforeOpen(Self);\r\nend;\r\n\r\nprocedure TDataSet.DoBeforePost;\r\n\r\nbegin\r\n If assigned(FBeforePost) then\r\n   FBeforePost(Self);\r\nend;\r\n\r\nprocedure TDataSet.DoBeforeScroll;\r\n\r\nbegin\r\n If assigned(FBeforeScroll) then\r\n   FBeforeScroll(Self);\r\nend;\r\n\r\nprocedure TDataSet.DoBeforeRefresh;\r\n\r\nbegin\r\n If assigned(FBeforeRefresh) then\r\n   FBeforeRefresh(Self);\r\nend;\r\n\r\nprocedure TDataSet.DoInternalOpen;\r\n\r\nbegin\r\n  InternalOpen;\r\n  FInternalOpenComplete := True;\r\n{$ifdef dsdebug}\r\n  Writeln ('Calling internal open');\r\n{$endif}\r\n{$ifdef dsdebug}\r\n  Writeln ('Calling RecalcBufListSize');\r\n{$endif}\r\n  FRecordCount := 0;\r\n  RecalcBufListSize;\r\n  FBOF := True;\r\n  FEOF := (FRecordCount = 0);\r\n//  if Assigned(DataProxy) then\r\n    InitChangeList;\r\nend;\r\n\r\nprocedure TDataSet.DoOnCalcFields;\r\n\r\nbegin\r\n If Assigned(FOnCalcfields) then\r\n   FOnCalcFields(Self);\r\nend;\r\n\r\nprocedure TDataSet.DoOnNewRecord;\r\n\r\nbegin\r\n If assigned(FOnNewRecord) then\r\n   FOnNewRecord(Self);\r\nend;\r\n\r\nprocedure TDataSet.DoBeforeLoad;\r\nbegin\r\n  If Assigned(FBeforeLoad) then\r\n    FBeforeLoad(Self);\r\nend;\r\n\r\nprocedure TDataSet.DoAfterLoad;\r\nbegin\r\n  if Assigned(FAfterLoad) then\r\n    FAfterLoad(Self);\r\nend;\r\n\r\nprocedure TDataSet.DoBeforeApplyUpdates;\r\n\r\nbegin\r\n  If Assigned(FBeforeApplyUpdates) then\r\n    FBeforeApplyUpdates(Self);\r\nend;\r\n\r\nprocedure TDataSet.DoAfterApplyUpdates(const ResolveInfo: TResolveResults);\r\n\r\nbegin\r\n  If Assigned(FAfterApplyUpdates) then\r\n    FAfterApplyUpdates(Self,ResolveInfo);\r\nend;\r\n\r\nfunction TDataSet.FieldByNumber(FieldNo: Longint): TField;\r\n\r\nbegin\r\n  Result:=FFieldList.FieldByNumber(FieldNo);\r\nend;\r\n\r\nfunction TDataSet.FindRecord(Restart, GoForward: Boolean): Boolean;\r\n\r\nbegin\r\n  //!! To be implemented\r\n  Result:=false;\r\nend;\r\n\r\n\r\nfunction TDataSet.GetBookmarkStr: TBookmarkStr;\r\n\r\nVar\r\n  B : TBookMark;\r\n\r\nbegin\r\n  Result:='';\r\n  If BookMarkAvailable then\r\n    begin\r\n    GetBookMarkData(ActiveBuffer,B);\r\n    Result:=TJSJSON.stringify(B);\r\n    end\r\nend;\r\n\r\nfunction TDataSet.GetBuffer(Index: longint): TDataRecord;\r\n\r\nbegin\r\n  Result:=FBuffers[Index];\r\nend;\r\n\r\nfunction TDataSet.DoGetDataProxy: TDataProxy;\r\n\r\nbegin\r\n  Result:=nil;\r\nend;\r\n\r\nprocedure TDataSet.InitChangeList;\r\n\r\nbegin\r\n  DoneChangeList;\r\n  FChangeList:=TFPList.Create;\r\nend;\r\n\r\nprocedure TDataSet.ClearChangeList;\r\n\r\nVar\r\n  I : integer;\r\n\r\nbegin\r\n  If not Assigned(FChangeList) then\r\n    exit;\r\n  For I:=0 to FChangeList.Count-1 do\r\n    begin\r\n    TObject(FChangeList[i]).Destroy;\r\n    FChangeList[i]:=Nil;\r\n    end;\r\nend;\r\n\r\nprocedure TDataSet.ResetUpdateDescriptors;\r\n\r\nVar\r\n  I : Integer;\r\n\r\nbegin\r\n  For I:=0 to FChangeList.Count-1 do\r\n    TRecordUpdateDescriptor(FChangeList[i]).Reset;\r\nend;\r\n\r\nfunction TDataSet.IndexInChangeList(aBookmark: TBookmark): Integer;\r\n\r\nbegin\r\n  Result:=-1;\r\n  if Not assigned(FChangeList) then\r\n    exit;\r\n  Result:=FChangeList.Count-1;\r\n  While (Result>=0) and (CompareBookmarks(aBookMark,TRecordUpdateDescriptor(FChangeList[Result]).Bookmark)<>0) do\r\n    Dec(Result);\r\nend;\r\n\r\nfunction TDataSet.GetApplyUpdateData(aBuffer : TDataRecord) : JSValue;\r\n\r\nbegin\r\n  Result:=aBuffer.Data;\r\nend;\r\n\r\nfunction TDataSet.AddToChangeList(aChange: TUpdateStatus): TRecordUpdateDescriptor;\r\n\r\nVar\r\n  B : TBookmark;\r\n  I : Integer;\r\n  aData : JSValue;\r\n\r\nbegin\r\n  Result:=Nil;\r\n  if Not Assigned(FChangeList) then\r\n    Exit;\r\n  B:=GetBookmark;\r\n  I:=IndexInChangeList(B);\r\n  if (I=-1) then\r\n    begin\r\n    aData:=GetApplyUpdateData(ActiveBuffer);\r\n    if Assigned(DataProxy) then\r\n      Result:=DataProxy.GetUpdateDescriptor(Self,B,aData,aChange)\r\n    else\r\n      Result:=TRecordUpdateDescriptor.Create(Nil,Self,B,aData,aChange);\r\n    FChangeList.Add(Result);\r\n    end\r\n  else\r\n    begin\r\n    Result:=TRecordUpdateDescriptor(FChangeList[i]);\r\n    Case aChange of\r\n      usDeleted :\r\n        begin\r\n        if Result.FStatus = usInserted then\r\n          FChangeList.Delete(I)\r\n        else\r\n          Result.FStatus:=usDeleted;\r\n        end;\r\n      usInserted : DatabaseError(SErrInsertingSameRecordtwice,Self);\r\n      usModified : Result.FData:=GetApplyUpdateData(ActiveBuffer);\r\n    end\r\n    end;\r\nend;\r\n\r\nprocedure TDataSet.RemoveFromChangeList(R: TRecordUpdateDescriptor);\r\n\r\nbegin\r\n  if Not (Assigned(R) and Assigned(FChangeList)) then\r\n    Exit;\r\nend;\r\n\r\nfunction TDataSet.GetRecordUpdates(AList: TRecordUpdateDescriptorList): Integer;\r\n\r\nVar\r\n  I,MinIndex : integer;\r\n\r\nbegin\r\n  MinIndex:=0; // Check batch list for minimal index ?\r\n  For I:=MinIndex to FChangeList.Count-1 do\r\n    if TRecordUpdateDescriptor(FChangeList[i]).ResolveStatus=rsUnResolved  then\r\n      Alist.Add(FChangeList[i]);\r\n  Result:=FChangeList.Count;\r\nend;\r\n\r\nfunction TDataSet.ResolveRecordUpdate(anUpdate: TRecordUpdateDescriptor): Boolean;\r\n\r\n// This must return true if the record may be removed from the list of 'modified' records.\r\n// If it returns false, the record is kept in the list of modified records.\r\n\r\nbegin\r\n  try\r\n    Result:=DoResolveRecordUpdate(anUpdate);\r\n    If not Result then\r\n      anUpdate.SetResolveStatus(rsResolveFailed);\r\n  except\r\n    On E : Exception do\r\n      begin\r\n      anUpdate.ResolveFailed(E.Classname+': '+E.Message);\r\n      Result:=False;\r\n      end;\r\n  end;\r\n  DoOnRecordResolved(anUpdate);\r\nend;\r\n\r\nfunction TDataSet.RecordUpdateDescriptorToResolveInfo(anUpdate: TRecordUpdateDescriptor): TResolveInfo;\r\n\r\nbegin\r\n  Result.BookMark:=anUpdate.Bookmark;\r\n  Result.Data:=anUpdate.Data;\r\n  Result.Status:=anUpdate.Status;\r\n  Result.ResolveStatus:=anUpdate.ResolveStatus;\r\n  Result.Error:=anUpdate.ResolveError;\r\nend;\r\n\r\nprocedure TDataSet.DoOnRecordResolved(anUpdate: TRecordUpdateDescriptor) ;\r\n\r\nVar\r\n  Info : TResolveInfo;\r\n\r\nbegin\r\n  if Not Assigned(OnRecordResolved) then exit;\r\n  Info:=RecordUpdateDescriptorToResolveInfo(anUpdate);\r\n  OnRecordResolved(Self,Info);\r\nend;\r\n\r\nprocedure TDataSet.ResolveUpdateBatch(Sender: TObject; aBatch : TRecordUpdateBatch);\r\n\r\nVar\r\n  BI,RI,Idx: integer;\r\n  RUD : TRecordUpdateDescriptor;\r\n  doRemove : Boolean;\r\n  Results : TResolveResults;\r\n\r\nbegin\r\n  if Assigned(FBatchList) and (aBatch.Dataset=Self) then\r\n    BI:=FBatchList.IndexOf(aBatch)\r\n  else\r\n    BI:=-1;\r\n  if (BI=-1) then\r\n    Exit;\r\n  FBatchList.Delete(Bi);\r\n  SetLength(Results.Records, aBatch.List.Count);\r\n  For RI:=0 to aBatch.List.Count-1 do\r\n    begin\r\n    RUD:=aBatch.List[RI];\r\n    Results.Records[RI]:=RecordUpdateDescriptorToResolveInfo(RUD);\r\n    aBatch.List.Items[RI]:=Nil;\r\n    Idx:=IndexInChangeList(RUD.Bookmark);\r\n    if (Idx<>-1) then\r\n      begin\r\n      doRemove:=False;\r\n      if (RUD.ResolveStatus=rsResolved) then\r\n        DoRemove:=ResolveRecordUpdate(RUD)\r\n      else\r\n        // What if not resolvable.. ?\r\n        DoRemove:=(RUD.ResolveStatus=rsResolved);\r\n      If DoRemove then\r\n        begin\r\n        RUD.Free;\r\n        FChangeList.Delete(Idx);\r\n        end\r\n      else\r\n        RUD.Reset; // So we try it again in next applyupdates.\r\n      end;\r\n    end;\r\n  if (FBatchList.Count=0) then\r\n    FreeAndNil(FBatchList);\r\n  DoAfterApplyUpdates(Results);\r\nend;\r\n\r\nprocedure TDataSet.DoApplyUpdates;\r\n\r\nVar\r\n  B : TRecordUpdateBatch;\r\n  l : TRecordUpdateDescriptorList;\r\n  I : integer;\r\n\r\nbegin\r\n  if Not Assigned(DataProxy) then\r\n    DatabaseError(SErrDoApplyUpdatesNeedsProxy,Self);\r\n  if FInApplyupdates then\r\n    exit;\r\n  try\r\n    FInApplyupdates:=True;\r\n    if Not (Assigned(FChangeList) and (FChangeList.Count>0)) then\r\n      Exit;\r\n    L:=TRecordUpdateDescriptorList.Create;\r\n    try\r\n      I:=GetRecordUpdates(L);\r\n    except\r\n      L.Free;\r\n      Raise;\r\n    end;\r\n    Inc(FUpdateBatchID);\r\n    For I:=0 to L.Count-1 do\r\n      TRecordUpdateDescriptor(L[i]).SetResolveStatus(rsResolving);\r\n    B:=DataProxy.GetRecordUpdateBatch(FUpdateBatchID,L,True);\r\n    B.FDataset:=Self;\r\n    B.FLastChangeIndex:=I;\r\n    B.OnResolve:=@ResolveUpdateBatch;\r\n    If not Assigned(FBatchlist) then\r\n      FBatchlist:=TFPList.Create;\r\n    FBatchList.Add(B);\r\n    DataProxy.ProcessUpdateBatch(B);\r\n  Finally\r\n    FInApplyupdates:=False;\r\n  end;\r\nend;\r\n\r\nprocedure TDataSet.DoneChangeList;\r\n\r\nbegin\r\n  ClearChangeList;\r\n  FreeAndNil(FChangeList);\r\nend;\r\n\r\nfunction TDataSet.GetDataProxy: TDataProxy;\r\n\r\nbegin\r\n  If (FDataProxy=Nil) then\r\n    DataProxy:=DoGetDataProxy;\r\n  Result:=FDataProxy;\r\nend;\r\n\r\nfunction TDataSet.GetIsLoading: Boolean;\r\nbegin\r\n//  Writeln(Name,' GetIsLoading Loadcount : ',LoadCount);\r\n  Result:=(FLoadCount>0);\r\nend;\r\n\r\nfunction TDataSet.DataPacketReceived(ARequest: TDataRequest): Boolean;\r\n\r\nbegin\r\n  Result:=False;\r\nend;\r\n\r\nprocedure TDataSet.HandleRequestResponse(ARequest: TDataRequest);\r\n\r\nVar\r\n  DataAdded : Boolean;\r\n\r\nbegin\r\n  if Not Assigned(ARequest) then\r\n    exit;\r\n//  Writeln(Name,' Check request response: ',ARequest.FRequestID,', min: ',FMinLoadID,' Loadcount:',FLoadCount);\r\n  if ARequest.FRequestID<=FMinLoadID then\r\n    begin\r\n    ARequest.Destroy;\r\n    Exit;\r\n    end;\r\n  Dec(FloadCount);\r\n//  Writeln(Name,' Handle request response: ',ARequest.FRequestID,', min: ',FMinLoadID,' Loadcount:',FLoadCount);\r\n  Case ARequest.Success of\r\n  rrFail:\r\n    begin\r\n    if Assigned(FOnLoadFail) then\r\n      FOnLoadFail(Self,aRequest.RequestID,aRequest.ErrorMsg);\r\n    end;\r\n  rrEOF,\r\n  rrOK :\r\n    begin\r\n    DataAdded:=False;\r\n    // Notify caller\r\n    if Assigned(ARequest.Event) then\r\n      ARequest.Event(Self,aRequest.Data);\r\n    // allow descendent to integrate data.\r\n    // Must be done before user is notified or dataset is opened...\r\n    if (ARequest.Success<>rrEOF) then\r\n      DataAdded:=DataPacketReceived(aRequest);\r\n    // Open if needed.\r\n    if Not (Active or (loNoOpen in aRequest.LoadOptions)) then\r\n      begin\r\n      // Notify user\r\n      if not (loNoEvents in aRequest.LoadOptions) then\r\n        DoAfterLoad;\r\n      Open\r\n      end\r\n    else\r\n      begin\r\n      if (loAtEOF in aRequest.LoadOptions) and DataAdded then\r\n        FEOF:=False;\r\n      if not (loNoEvents in aRequest.LoadOptions) then\r\n        DoAfterLoad;\r\n      end;\r\n    end;\r\n  end;\r\n  aRequest.Destroy;\r\nend;\r\n\r\nfunction TDataSet.DoResolveRecordUpdate(anUpdate: TRecordUpdateDescriptor): Boolean;\r\nbegin\r\n  Result:=True;\r\nend;\r\n\r\nprocedure TDataSet.GetCalcFields(var Buffer: TDataRecord);\r\nvar\r\n  OldState: TDatasetState;\r\nbegin\r\n  if (FCalcFieldsCount > 0) or FInternalCalcFields then\r\n  begin\r\n    OldState := FState;\r\n    FState := dsCalcFields;\r\n    try\r\n      CalculateFields(Buffer);\r\n    finally\r\n      FState := OldState;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TDataSet.GetCanModify: Boolean;\r\n\r\nbegin\r\n  Result:= not FIsUnidirectional;\r\nend;\r\n\r\nprocedure TDataSet.GetChildren(Proc: TGetChildProc; Root: TComponent);\r\n\r\nvar\r\n I: Integer;\r\n Field: TField;\r\n\r\nbegin\r\n for I := 0 to Fields.Count - 1 do begin\r\n   Field := Fields[I];\r\n   if (Field.Owner = Root) then\r\n     Proc(Field);\r\n end;\r\nend;\r\n\r\nfunction TDataSet.GetDataSource: TDataSource;\r\nbegin\r\n  Result:=nil;\r\nend;\r\n\r\nfunction TDataSet.GetRecordSize: Word;\r\nbegin\r\n  Result := 0;\r\nend;\r\n\r\nprocedure TDataSet.InternalAddRecord(Buffer: Pointer; AAppend: Boolean);\r\nbegin\r\n  // empty stub\r\nend;\r\n\r\nprocedure TDataSet.InternalDelete;\r\nbegin\r\n  // empty stub\r\nend;\r\n\r\nprocedure TDataSet.InternalFirst;\r\nbegin\r\n  // empty stub\r\nend;\r\n\r\nprocedure TDataSet.InternalGotoBookmark(ABookmark: TBookmark);\r\nbegin\r\n  // empty stub\r\nend;\r\n\r\nprocedure TDataSet.SetDataSetField(const Value: TDataSetField);\r\nbegin\r\n  if Value = FDataSetField then\r\n    exit;\r\n  if (Value <> nil) and ((Value.DataSet = Self) or\r\n     ((Value.DataSet.GetDataSource <> nil) and\r\n      (Value.DataSet.GetDataSource.DataSet = Self))) then\r\n    DatabaseError(SCircularDataLink, Self);\r\n  if Assigned(Value) and not InheritsFrom(Value.DataSet.FNestedDataSetClass) then\r\n    DatabaseErrorFmt(SNestedDataSetClass, [Value.DataSet.FNestedDataSetClass.ClassName], Self);\r\n  if Active then\r\n    Close;\r\n  if Assigned(FDataSetField) then\r\n    FDataSetField.AssignNestedDataSet(nil);\r\n  FDataSetField := Value;\r\n  if Assigned(Value) then\r\n    begin\r\n    Value.AssignNestedDataSet(Self);\r\n    if Value.DataSet.Active then\r\n      Open;\r\n    end;\r\nend;\r\n\r\nfunction TDataSet.GetNestedDataSets: TNestedDataSetsList;\r\nbegin\r\n  if not Assigned(FNestedDataSets) then\r\n    FNestedDataSets := TNestedDataSetsList.Create;\r\n  Result := FNestedDataSets;\r\nend;\r\n\r\nfunction TDataSet.GetBOF: boolean;\r\nbegin\r\n  Result := FBOF;\r\nend;\r\n\r\nfunction TDataSet.GetEOF: boolean;\r\nbegin\r\n  Result := FEOF;\r\nend;\r\n\r\nfunction TDataSet.GetFieldData(Field: TField; Buffer: TDatarecord): JSValue;\r\n\r\nbegin\r\n  Result:=TJSObject(buffer.data).Properties[Field.FieldName];\r\n  if isUndefined(Result) then\r\n    Result:=Null;\r\nend;\r\n\r\n\r\nprocedure TDataSet.SetFieldData(Field: TField; var Buffer: TDatarecord; AValue: JSValue);\r\n\r\nbegin\r\n  TJSObject(buffer.data).Properties[Field.FieldName]:=AValue;\r\nend;\r\n\r\n\r\nfunction TDataSet.GetFieldClass(FieldType: TFieldType): TFieldClass;\r\n\r\nbegin\r\n  Result := DefaultFieldClasses[FieldType];\r\nend;\r\n\r\nfunction TDataSet.GetIsIndexField(Field: TField): Boolean;\r\n\r\nbegin\r\n  Result:=False;\r\nend;\r\n\r\nfunction TDataSet.GetIndexDefs(IndexDefs: TIndexDefs; IndexTypes: TIndexOptions\r\n  ): TIndexDefs;\r\n\r\nvar i,f : integer;\r\n    IndexFields : TStrings;\r\n\r\nbegin\r\n  IndexDefs.Update;\r\n  Result := TIndexDefs.Create(Self);\r\n  Result.Assign(IndexDefs);\r\n  i := 0;\r\n  IndexFields := TStringList.Create;\r\n  while i < result.Count do\r\n    begin\r\n    if (not ((IndexTypes = []) and (result[i].Options = []))) and\r\n       ((IndexTypes * result[i].Options) = []) then\r\n      begin\r\n      result.Delete(i);\r\n      dec(i);\r\n      end\r\n    else\r\n      begin\r\n//      ExtractStrings([';'],[' '],result[i].Fields,Indexfields);\r\n      for f := 0 to IndexFields.Count-1 do\r\n        if FindField(Indexfields[f]) = nil  then\r\n         begin\r\n        result.Delete(i);\r\n        dec(i);\r\n        break;\r\n        end;\r\n      end;\r\n    inc(i);\r\n    end;\r\n  IndexFields.Free;\r\nend;\r\n\r\nfunction TDataSet.GetNextRecord: Boolean;\r\n\r\nVar\r\n   T : TDataRecord;\r\n\r\nbegin\r\n{$ifdef dsdebug}\r\n  Writeln ('Getting next record. Internal RecordCount : ',FRecordCount);\r\n  Writeln ('Getting next record. Internal buffercount : ',FBufferCount);\r\n{$endif}\r\n  If FRecordCount>0 Then\r\n    SetCurrentRecord(FRecordCount-1);\r\n  Result:=GetRecord(FBuffers[FBufferCount],gmNext,True)=grOK;\r\n  if Result then\r\n    begin\r\n    If FRecordCount=0 then ActivateBuffers;\r\n    if FRecordCount=FBufferCount then\r\n      ShiftBuffersBackward\r\n    else\r\n      begin\r\n      Inc(FRecordCount);\r\n      FCurrentRecord:=FRecordCount - 1;\r\n      T:=FBuffers[FCurrentRecord];\r\n      FBuffers[FCurrentRecord]:=FBuffers[FBufferCount];\r\n      FBuffers[FBufferCount]:=T;\r\n      end;\r\n    end\r\n  else\r\n    CursorPosChanged;\r\n{$ifdef dsdebug}\r\n  Writeln ('Result getting next record : ',Result);\r\n{$endif}\r\nend;\r\n\r\nfunction TDataSet.GetNextRecords: Longint;\r\n\r\nbegin\r\n  Result:=0;\r\n{$ifdef dsdebug}\r\n  Writeln ('Getting next record(s), need :',FBufferCount);\r\n{$endif}\r\n  While (FRecordCount<FBufferCount) and GetNextRecord do\r\n    Inc(Result);\r\n{$ifdef dsdebug}\r\n  Writeln ('Result Getting next record(S), GOT :',RESULT);\r\n{$endif}\r\nend;\r\n\r\nfunction TDataSet.GetPriorRecord: Boolean;\r\n\r\nbegin\r\n{$ifdef dsdebug}\r\n  Writeln ('GetPriorRecord: Getting previous record');\r\n{$endif}\r\n  CheckBiDirectional;\r\n  If FRecordCount>0 Then SetCurrentRecord(0);\r\n  Result:=GetRecord(FBuffers[FBufferCount],gmPrior,True)=grOK;\r\n  if Result then\r\n    begin\r\n      If FRecordCount=0 then ActivateBuffers;\r\n      ShiftBuffersForward;\r\n\r\n      if FRecordCount<FBufferCount then\r\n        Inc(FRecordCount);\r\n    end\r\n  else\r\n    CursorPosChanged;\r\n{$ifdef dsdebug}\r\n  Writeln ('Result getting prior record : ',Result);\r\n{$endif}\r\nend;\r\n\r\nfunction TDataSet.GetPriorRecords: Longint;\r\n\r\nbegin\r\n  Result:=0;\r\n{$ifdef dsdebug}\r\n  Writeln ('Getting previous record(s), need :',FBufferCount);\r\n{$endif}\r\n  While (FRecordCount<FBufferCount) and GetPriorRecord do\r\n    Inc(Result);\r\nend;\r\n\r\nfunction TDataSet.GetRecNo: Longint;\r\n\r\nbegin\r\n  Result := -1;\r\nend;\r\n\r\nfunction TDataSet.GetRecordCount: Longint;\r\n\r\nbegin\r\n  Result := -1;\r\nend;\r\n\r\nprocedure TDataSet.InitFieldDefs;\r\n\r\nbegin\r\n  if IsCursorOpen then\r\n    InternalInitFieldDefs\r\n  else\r\n    begin\r\n    try\r\n      OpenCursor(True);\r\n    finally\r\n      CloseCursor;\r\n      end;\r\n    end;\r\nend;\r\n\r\nprocedure TDataSet.SetBlockReadSize(AValue: Integer);\r\nbegin\r\n  // the state is changed even when setting the same BlockReadSize (follows Delphi behavior)\r\n  // e.g., state is dsBrowse and BlockReadSize is 1. Setting BlockReadSize to 1 will change state to dsBlockRead\r\n  FBlockReadSize := AValue;\r\n  if AValue > 0 then\r\n  begin\r\n    CheckActive; \r\n    SetState(dsBlockRead);\r\n  end\t\r\n  else\r\n  begin\r\n    //update state only when in dsBlockRead \r\n    if FState = dsBlockRead then\r\n      SetState(dsBrowse);\r\n  end;\t\r\nend;\r\n\r\nprocedure TDataSet.SetFieldDefs(AFieldDefs: TFieldDefs);\r\n\r\nbegin\r\n  Fields.ClearFieldDefs;\r\n  FFieldDefs.Assign(AFieldDefs);\r\nend;\r\n\r\nprocedure TDataSet.DoInsertAppendRecord(const Values: array of jsValue; DoAppend: boolean);\r\nvar i : integer;\r\n    ValuesSize : integer;\r\nbegin\r\n  ValuesSize:=Length(Values);\r\n  if ValuesSize>FieldCount then DatabaseError(STooManyFields,self);\r\n  if DoAppend then\r\n    Append\r\n  else\r\n    Insert;\r\n  for i := 0 to ValuesSize-1 do\r\n    Fields[i].AssignValue(Values[i]);\r\n  Post;\r\nend;\r\n\r\nprocedure TDataSet.InitFieldDefsFromfields;\r\nvar i : integer;\r\n\r\nbegin\r\n  if FieldDefs.Count = 0 then\r\n    begin\r\n    FieldDefs.BeginUpdate;\r\n    try\r\n      for i := 0 to Fields.Count-1 do with Fields[i] do\r\n        if not (FieldKind in [fkCalculated,fkLookup]) then // Do not add fielddefs for calculated/lookup fields.\r\n          begin\r\n          FFieldDef:=FieldDefs.FieldDefClass.Create(FieldDefs,FieldName,DataType,Size,Required,FieldDefs.Count+1);\r\n          with FFieldDef do\r\n            begin\r\n            if Required then Attributes := Attributes + [faRequired];\r\n            if ReadOnly then Attributes := Attributes + [faReadOnly];\r\n            end;\r\n          end;\r\n    finally\r\n      FieldDefs.EndUpdate;\r\n      end;\r\n    end;\r\nend;\r\n\r\nprocedure TDataSet.InitRecord(var Buffer: TDataRecord);\r\n\r\nbegin\r\n  InternalInitRecord(Buffer);\r\n  ClearCalcFields(Buffer);\r\nend;\r\n\r\nprocedure TDataSet.InternalCancel;\r\n\r\nbegin\r\n  //!! To be implemented\r\nend;\r\n\r\nprocedure TDataSet.InternalEdit;\r\n\r\nbegin\r\n  //!! To be implemented\r\nend;\r\n\r\nprocedure TDataSet.InternalRefresh;\r\n\r\nbegin\r\n  //!! To be implemented\r\nend;\r\n\r\nprocedure TDataSet.OpenCursor(InfoQuery: Boolean);\r\n\r\nbegin\r\n  if InfoQuery then\r\n    InternalInitFieldDefs\r\n  else if State <> dsOpening then\r\n    DoInternalOpen;\r\nend;\r\n\r\nprocedure TDataSet.OpenCursorcomplete;\r\nbegin\r\n  try\r\n    if FState = dsOpening then DoInternalOpen\r\n  finally\r\n    if FInternalOpenComplete then\r\n      begin\r\n      SetState(dsBrowse);\r\n      DoAfterOpen;\r\n      if not IsEmpty then\r\n        DoAfterScroll;\r\n      end\r\n    else\r\n      begin\r\n      SetState(dsInactive);\r\n      CloseCursor;\r\n      end;\r\n  end;\r\nend;\r\n\r\nprocedure TDataSet.RefreshInternalCalcFields(var Buffer: TDataRecord);\r\n\r\nbegin\r\n  //!! To be implemented\r\nend;\r\n\r\nfunction TDataSet.SetTempState(const Value: TDataSetState): TDataSetState;\r\n\r\nbegin\r\n  result := FState;\r\n  FState := value;\r\n  inc(FDisableControlsCount);\r\nend;\r\n\r\nprocedure TDataSet.RestoreState(const Value: TDataSetState);\r\n\r\nbegin\r\n  FState := value;\r\n  dec(FDisableControlsCount);\r\nend;\r\n\r\nfunction TDataSet.GetActive: boolean;\r\n\r\nbegin\r\n  result := (FState <> dsInactive) and (FState <> dsOpening);\r\nend;\r\n\r\nprocedure TDataSet.InternalHandleException(E :Exception);\r\n\r\nbegin\r\n  ShowException(E,Nil);\r\nend;\r\n\r\nprocedure TDataSet.InternalInitRecord(var Buffer: TDataRecord);\r\nbegin\r\n  // empty stub\r\nend;\r\n\r\nprocedure TDataSet.InternalLast;\r\nbegin\r\n  // empty stub\r\nend;\r\n\r\nprocedure TDataSet.InternalPost;\r\n\r\n  Procedure CheckRequiredFields;\r\n\r\n  Var I : longint;\r\n\r\n  begin\r\n    For I:=0 to FFieldList.Count-1 do\r\n      With FFieldList[i] do\r\n        // Required fields that are NOT autoinc !! Autoinc cannot be set !!\r\n        if Required and not ReadOnly and\r\n           (FieldKind=fkData) and Not (DataType=ftAutoInc) and IsNull then\r\n          DatabaseErrorFmt(SNeedField,[DisplayName],Self);\r\n  end;\r\n\r\nbegin\r\n  CheckRequiredFields;\r\nend;\r\n\r\nprocedure TDataSet.InternalSetToRecord(Buffer: TDataRecord);\r\nbegin\r\n  // empty stub\r\nend;\r\n\r\nprocedure TDataSet.SetBookmarkFlag(var Buffer: TDataRecord; Value: TBookmarkFlag);\r\nbegin\r\n  // empty stub\r\nend;\r\n\r\nprocedure TDataSet.SetBookmarkData(var Buffer: TDataRecord; Data: TBookmark);\r\nbegin\r\n  // empty stub\r\nend;\r\n\r\nprocedure TDataSet.SetUniDirectional(const Value: Boolean);\r\nbegin\r\n  FIsUniDirectional := Value;\r\nend;\r\n\r\nprocedure TDataSet.Notification(AComponent: TComponent; Operation: TOperation);\r\nbegin\r\n  inherited Notification(AComponent, Operation);\r\n  if (Operation=opRemove) and (AComponent=FDataProxy) then\r\n    FDataProxy:=Nil;\r\nend;\r\n\r\nclass function TDataSet.FieldDefsClass: TFieldDefsClass;\r\nbegin\r\n  Result:=TFieldDefs;\r\nend;\r\n\r\nclass function TDataSet.FieldsClass: TFieldsClass;\r\nbegin\r\n  Result:=TFields;\r\nend;\r\n\r\nprocedure TDataSet.SetActive(Value: Boolean);\r\n\r\nbegin\r\n  if value and (Fstate = dsInactive) then\r\n    begin\r\n    if csLoading in ComponentState then\r\n      begin\r\n      FOpenAfterRead := true;\r\n      exit;\r\n      end\r\n    else\r\n      begin\r\n      DoBeforeOpen;\r\n      FEnableControlsEvent:=deLayoutChange;\r\n      FInternalCalcFields:=False;\r\n      try\r\n        FDefaultFields:=FieldCount=0;\r\n        OpenCursor(False);\r\n      finally\r\n        if FState <> dsOpening then OpenCursorComplete;\r\n        end;\r\n      end;\r\n    FModified:=False;\r\n    end\r\n  else if not value and (Fstate <> dsinactive) then\r\n    begin\r\n    DoBeforeClose;\r\n    SetState(dsInactive);\r\n    FDataRequestID:=0;\r\n    DoneChangeList;\r\n    CloseCursor;\r\n    DoAfterClose;\r\n    FModified:=False;\r\n    end\r\nend;\r\n\r\nprocedure TDataSet.Loaded;\r\n\r\nbegin\r\n  inherited;\r\n  try\r\n    if FOpenAfterRead then SetActive(true);\r\n  except\r\n    on E : Exception do\r\n      if csDesigning in Componentstate then\r\n        InternalHandleException(E);\r\n      else\r\n        raise;\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TDataSet.RecalcBufListSize;\r\n\r\nvar\r\n  i, j, ABufferCount: Integer;\r\n  DataLink: TDataLink;\r\n\r\nbegin\r\n{$ifdef dsdebug}\r\n  Writeln('Recalculating buffer list size - check cursor');\r\n{$endif}\r\n  If Not IsCursorOpen Then\r\n    Exit;\r\n{$ifdef dsdebug}\r\n  Writeln('Recalculating buffer list size');\r\n{$endif}\r\n  if IsUniDirectional then\r\n    ABufferCount := 1\r\n  else\r\n    ABufferCount := DefaultBufferCount;\r\n{$ifdef dsdebug}\r\n  Writeln('Recalculating buffer list size, start count: ',ABufferCount);\r\n{$endif}\r\n  for i := 0 to FDataSources.Count - 1 do\r\n    for j := 0 to TDataSource(FDataSources[i]).DataLinks.Count - 1 do\r\n      begin\r\n      DataLink:=TDataLink(TDataSource(FDataSources[i]).DataLinks[j]);\r\n      if ABufferCount<DataLink.BufferCount then\r\n        ABufferCount:=DataLink.BufferCount;\r\n      end;\r\n{$ifdef dsdebug}\r\n  Writeln('Recalculating buffer list size, end  count: ',ABufferCount);\r\n{$endif}\r\n\r\n  If (FBufferCount=ABufferCount) Then\r\n    exit;\r\n\r\n{$ifdef dsdebug}\r\n  Writeln('Setting buffer list size');\r\n{$endif}\r\n  SetBufListSize(ABufferCount);\r\n{$ifdef dsdebug}\r\n  Writeln('Getting next buffers');\r\n{$endif}\r\n  GetNextRecords;\r\n  if (FRecordCount < FBufferCount) and not IsUniDirectional then\r\n    begin\r\n    FActiveRecord := FActiveRecord + GetPriorRecords;\r\n    CursorPosChanged;\r\n    end;\r\n{$Ifdef dsDebug}\r\n  WriteLn(\r\n    'SetBufferCount: FActiveRecord=',FActiveRecord,\r\n    ' FCurrentRecord=',FCurrentRecord,\r\n    ' FBufferCount= ',FBufferCount,\r\n    ' FRecordCount=',FRecordCount);\r\n{$Endif}\r\nend;\r\n\r\nprocedure TDataSet.SetBookmarkStr(const Value: TBookmarkStr);\r\n\r\nVar\r\n  O: TJSObject;\r\n  B : TBookmark;\r\n\r\nbegin\r\n  O:=TJSJSON.parseObject(Value);\r\n  B.Flag:=TBookmarkFlag(O.Properties['flag']);\r\n  B.Data:=O.Properties['Index'];\r\n  GotoBookMark(B)\r\nend;\r\n\r\nprocedure TDataSet.SetBufListSize(Value: Longint);\r\n\r\nVar\r\n  I : Integer;\r\n\r\nbegin\r\n  if Value < 0 then Value := 0;\r\n  If Value=FBufferCount Then\r\n    exit;\r\n  // Less buffers, shift buffers.\r\n  if value>FBufferCount then\r\n    begin\r\n    SetLength(FBuffers,Value+1); // FBuffers[FBufferCount] is used as a temp buffer\r\n    For I:=FBufferCount to Value do\r\n      FBuffers[i]:=AllocRecordBuffer;\r\n    end\r\n  else if value<FBufferCount then\r\n    if (value>=0) and (FActiveRecord>Value-1) then\r\n      begin\r\n      for i := 0 to (FActiveRecord-Value) do\r\n        ShiftBuffersBackward;\r\n      FActiveRecord := Value -1;\r\n      end;\r\n  SetLength(FBuffers,Value+1); // FBuffers[FBufferCount] is used as a temp buffer\r\n  FBufferCount:=Value;\r\n  if FRecordCount > FBufferCount then\r\n    FRecordCount := FBufferCount;\r\n\r\nend;\r\n\r\nprocedure TDataSet.SetChildOrder(Child: TComponent; Order: Longint);\r\n\r\nvar\r\n  Field: TField;\r\nbegin\r\n  Field := Child as TField;\r\n  if Fields.IndexOf(Field) >= 0 then\r\n    Field.Index := Order;\r\nend;\r\n\r\nprocedure TDataSet.SetCurrentRecord(Index: Longint);\r\n\r\nbegin\r\n  If FCurrentRecord<>Index then\r\n    begin\r\n{$ifdef DSdebug}\r\n    Writeln ('Setting current record to: ',index);\r\n{$endif}\r\n    if not FIsUniDirectional then Case GetBookMarkFlag(FBuffers[Index]) of\r\n      bfCurrent : InternalSetToRecord(FBuffers[Index]);\r\n      bfBOF : InternalFirst;\r\n      bfEOF : InternalLast;\r\n      end;\r\n    FCurrentRecord:=Index;\r\n    end;\r\nend;\r\n\r\nprocedure TDataSet.SetDefaultFields(const Value: Boolean);\r\nbegin\r\n  FDefaultFields := Value;\r\nend;\r\n\r\nprocedure TDataSet.CheckBiDirectional;\r\n\r\nbegin\r\n  if FIsUniDirectional then DataBaseError(SUniDirectional,Self);\r\nend;\r\n\r\nprocedure TDataSet.SetFilterOptions(Value: TFilterOptions);\r\n\r\nbegin\r\n  CheckBiDirectional;\r\n  FFilterOptions := Value;\r\nend;\r\n\r\nprocedure TDataSet.SetFilterText(const Value: string);\r\n\r\nbegin\r\n  FFilterText := value;\r\nend;\r\n\r\nprocedure TDataSet.SetFiltered(Value: Boolean);\r\n\r\nbegin\r\n  if Value then CheckBiDirectional;\r\n  FFiltered := value;\r\nend;\r\n\r\nprocedure TDataSet.SetFound(const Value: Boolean);\r\nbegin\r\n  FFound := Value;\r\nend;\r\n\r\nprocedure TDataSet.SetModified(Value: Boolean);\r\n\r\nbegin\r\n  FModified := value;\r\nend;\r\n\r\nprocedure TDataSet.SetName(const NewName: TComponentName);\r\n\r\n  function CheckName(const FieldName: string): string;\r\n  var i,j: integer;\r\n  begin\r\n    Result := FieldName;\r\n    i := 0;\r\n    j := 0;\r\n    while (i < Fields.Count) do begin\r\n      if Result = Fields[i].FieldName then begin\r\n        inc(j);\r\n        Result := FieldName + IntToStr(j);\r\n      end else Inc(i);\r\n    end;\r\n  end;\r\n\r\nvar\r\n  i: integer;\r\n  nm: string;\r\n  old: string;\r\n\r\nbegin\r\n  if Self.Name = NewName then Exit;\r\n  old := Self.Name;\r\n  inherited SetName(NewName);\r\n  if (csDesigning in ComponentState) then\r\n    for i := 0 to Fields.Count - 1 do begin\r\n      nm := old + Fields[i].FieldName;\r\n      if Copy(Fields[i].Name, 1, Length(nm)) = nm then\r\n        Fields[i].Name := CheckName(NewName + Fields[i].FieldName);\r\n    end;\r\nend;\r\n\r\nprocedure TDataSet.SetOnFilterRecord(const Value: TFilterRecordEvent);\r\n\r\nbegin\r\n  CheckBiDirectional;\r\n  FOnFilterRecord := Value;\r\nend;\r\n\r\nprocedure TDataSet.SetRecNo(Value: Longint);\r\n\r\nbegin\r\n  //!! To be implemented\r\nend;\r\n\r\nprocedure TDataSet.SetState(Value: TDataSetState);\r\n\r\nbegin\r\n  If Value<>FState then\r\n    begin\r\n    FState:=Value;\r\n    if Value=dsBrowse then\r\n      FModified:=false;\r\n    DataEvent(deUpdateState,0);\r\n    end;\r\nend;\r\n\r\nfunction TDataSet.TempBuffer: TDataRecord;\r\n\r\nbegin\r\n  Result := FBuffers[FRecordCount];\r\nend;\r\n\r\nprocedure TDataSet.UpdateIndexDefs;\r\n\r\nbegin\r\n  // Empty Abstract\r\nend;\r\n\r\nfunction TDataSet.AllocRecordBuffer: TDataRecord;\r\nbegin\r\n  Result.data:=Null;\r\n  Result.state:=rsNew;\r\n//  Result := nil;\r\nend;\r\n\r\nprocedure TDataSet.FreeRecordBuffer(var Buffer: TDataRecord);\r\nbegin\r\n  // empty stub\r\nend;\r\n\r\nprocedure TDataSet.GetBookmarkData(Buffer: TDataRecord; var Data: TBookmark);\r\nbegin\r\n\r\nend;\r\n\r\n\r\nfunction TDataSet.GetBookmarkFlag(Buffer: TDataRecord): TBookmarkFlag;\r\nbegin\r\n  Result := bfCurrent;\r\nend;\r\n\r\nfunction TDataSet.ControlsDisabled: Boolean;\r\n\r\nbegin\r\n  Result := (FDisableControlsCount > 0);\r\nend;\r\n\r\nfunction TDataSet.ActiveBuffer: TDataRecord;\r\n\r\nbegin\r\n{$ifdef dsdebug}\r\n  Writeln ('Active buffer requested. Returning record number: ',ActiveRecord);\r\n{$endif}\r\n  if FactiveRecord<>-1 then\r\n    Result:=FBuffers[FActiveRecord]\r\n  else\r\n    Result:=Default(TDataRecord);\r\nend;\r\n\r\nfunction TDataSet.GetFieldData(Field: TField): JSValue;\r\nbegin\r\n  Result:=GetFieldData(Field,ActiveBuffer);\r\nend;\r\n\r\nprocedure TDataSet.SetFieldData(Field: TField; AValue: JSValue);\r\nbegin\r\n  SetFieldData(Field,FBuffers[FActiveRecord],AValue);\r\nend;\r\n\r\nprocedure TDataSet.Append;\r\n\r\nbegin\r\n  DoInsertAppend(True);\r\nend;\r\n\r\nprocedure TDataSet.InternalInsert;\r\n\r\nbegin\r\n  //!! To be implemented\r\nend;\r\n\r\nprocedure TDataSet.AppendRecord(const Values: array of jsValue);\r\n\r\nbegin\r\n  DoInsertAppendRecord(Values,True);\r\nend;\r\n\r\nfunction TDataSet.GetClonedDataSet(WithSettings: Boolean): TDataSet;\r\nbegin\r\n  Result := nil;\r\nend;\r\n\r\nfunction TDataSet.BookmarkValid(ABookmark: TBookmark): Boolean;\r\n{\r\n  Should be overridden by descendant objects.\r\n}\r\nbegin\r\n  Result:=False\r\nend;\r\n\r\n\r\n\r\nfunction TDataSet.ConvertToDateTime(aField: TField; aValue: JSValue; ARaiseException: Boolean): TDateTime;\r\nbegin\r\n  Result:=DefaultConvertToDateTime(aField,aValue,ARaiseException);\r\nend;\r\n\r\nclass function TDataSet.DefaultConvertToDateTime(aField: TField; aValue: JSValue; ARaiseException: Boolean): TDateTime;\r\nbegin\r\n  Result:=0;\r\n  if IsString(aValue) then\r\n    begin\r\n    if not TryRFC3339ToDateTime(String(AValue),Result) then\r\n      Raise EConvertError.CreateFmt(SErrInvalidDateTime,[String(aValue)])\r\n    end\r\n  else if IsNumber(aValue) then\r\n    Result:=TDateTime(AValue)\r\n  else if IsDate(aValue) then\r\n    Result := JSDateToDateTime(TJSDate(aValue));\r\nend;\r\n\r\nfunction TDataSet.ConvertDateTimeToNative(aField: TField; aValue : TDateTime) : JSValue;\r\n\r\nbegin\r\n  Result:=DefaultConvertDateTimeToNative(aField, aValue);\r\nend;\r\n\r\nclass function TDataSet.DefaultConvertDateTimeToNative(aField: TField; aValue: TDateTime): JSValue;\r\n\r\nbegin\r\n  Result:=DateTimeToRFC3339(aValue);\r\nend;\r\n\r\nfunction TDataSet.BlobDataToBytes(aValue: JSValue): TBytes;\r\nbegin\r\n  Result:=DefaultBlobDataToBytes(aValue);\r\nend;\r\n\r\nclass function TDataSet.DefaultBlobDataToBytes(aValue: JSValue): TBytes;\r\n\r\nVar\r\n  S : String;\r\n  I,J,L : Integer;\r\nbegin\r\n  SetLength(Result,0);\r\n  // We assume a string, hex-encoded.\r\n  if isString(AValue) then\r\n    begin\r\n    S:=String(Avalue);\r\n    L:=Length(S);\r\n    SetLength(Result,(L+1) div 2);\r\n    I:=1;\r\n    J:=0;\r\n    While (I<L) do\r\n      begin\r\n      try\r\n        Result[J]:=StrToInt('$'+Copy(S,I,2));\r\n        Inc(I,2);\r\n        Inc(J,1);\r\n      except\r\n        Result[J]:=Ord(S[I]);\r\n        inc(I);\r\n        inc(j);\r\n      end;\r\n      end;\r\n    end;\r\nend;\r\n\r\nfunction TDataSet.BytesToBlobData(aValue: TBytes): JSValue;\r\n\r\nbegin\r\n  Result:=DefaultBytesToBlobData(aValue);\r\nend;\r\n\r\nclass function TDataSet.DefaultBytesToBlobData(aValue: TBytes): JSValue;\r\n\r\nVar\r\n  S : String;\r\n  I : Integer;\r\n\r\nbegin\r\n  if Length(AValue)=0 then\r\n    Result:=Null\r\n  else\r\n    begin\r\n    S:='';\r\n    For I:=0 to Length(AValue)- 1 do\r\n      S:=TJSString(S).Concat(IntToHex(aValue[i],2));\r\n    Result:=S;\r\n    end;\r\nend;\r\n\r\nprocedure TDataSet.Cancel;\r\n\r\nbegin\r\n  If State in [dsEdit,dsInsert] then\r\n    begin\r\n    DataEvent(deCheckBrowseMode,0);\r\n    DoBeforeCancel;\r\n    UpdateCursorPos;\r\n    InternalCancel;\r\n    if (State = dsInsert) and (FRecordCount = 1) then\r\n      begin\r\n      FEOF := true;\r\n      FBOF := true;\r\n      FRecordCount := 0;\r\n      InitRecord(FBuffers[FActiveRecord]);\r\n      SetState(dsBrowse);\r\n      DataEvent(deDatasetChange,0);\r\n      end\r\n    else\r\n      begin\r\n      SetState(dsBrowse);\r\n      SetCurrentRecord(FActiveRecord);\r\n      resync([]);\r\n      end;\r\n    DoAfterCancel;\r\n    end;\r\nend;\r\n\r\nprocedure TDataSet.CheckBrowseMode;\r\n\r\nbegin\r\n  CheckActive;\r\n  DataEvent(deCheckBrowseMode,0);\r\n  Case State of\r\n    dsEdit,dsInsert:\r\n      begin\r\n      UpdateRecord;\r\n      If Modified then\r\n        Post\r\n      else\r\n        Cancel;\r\n      end;\r\n    dsSetKey: Post;\r\n  end;\r\nend;\r\n\r\nprocedure TDataSet.ClearFields;\r\n\r\n\r\nbegin\r\n  DataEvent(deCheckBrowseMode, 0);\r\n  InternalInitRecord(FBuffers[FActiveRecord]);\r\n  if State <> dsSetKey then\r\n    GetCalcFields(FBuffers[FActiveRecord]);\r\n  DataEvent(deRecordChange, 0);\r\nend;\r\n\r\nprocedure TDataSet.Close;\r\n\r\nbegin\r\n  Active:=False;\r\nend;\r\n\r\nfunction TDataSet.GetUpdateCount(UnresolvedOnly: Boolean): Integer;\r\n\r\nVar\r\n  I : Integer;\r\n\r\nbegin\r\n  Result:=0;\r\n  if Not Assigned(FChangeList) then\r\n    exit;\r\n  If Not UnresolvedOnly then\r\n    Result:=FChangeList.Count\r\n  else\r\n    For I:=0 to FChangeList.Count-1 do\r\n      if TRecordUpdateDescriptor(FChangeList[i]).ResolveStatus=rsUnresolved then\r\n        Inc(Result);\r\nend;\r\n\r\nprocedure TDataSet.ApplyUpdates;\r\nbegin\r\n  DoBeforeApplyUpdates;\r\n  DoApplyUpdates;\r\nend;\r\n\r\nfunction TDataSet.CompareBookmarks(Bookmark1, Bookmark2: TBookmark): Longint;\r\n\r\nbegin\r\n  Result:=0;\r\nend;\r\n\r\nprocedure TDataSet.CursorPosChanged;\r\n\r\n\r\nbegin\r\n  FCurrentRecord:=-1;\r\nend;\r\n\r\nprocedure TDataSet.Delete;\r\n\r\nVar\r\n  R : TRecordUpdateDescriptor;\r\n\r\nbegin\r\n  If Not CanModify then\r\n    DatabaseError(SDatasetReadOnly,Self);\r\n  If IsEmpty then\r\n    DatabaseError(SDatasetEmpty,Self);\r\n  if State in [dsInsert] then\r\n  begin\r\n    Cancel;\r\n  end else begin\r\n    DataEvent(deCheckBrowseMode,0);\r\n{$ifdef dsdebug}\r\n    writeln ('Delete: checking required fields');\r\n{$endif}\r\n    DoBeforeDelete;\r\n    DoBeforeScroll;\r\n    R:=AddToChangeList(usDeleted);\r\n    If Not TryDoing(@InternalDelete,OnDeleteError) then\r\n      begin\r\n      if Assigned(R) then\r\n        RemoveFromChangeList(R);\r\n      exit;\r\n      end;\r\n{$ifdef dsdebug}\r\n    writeln ('Delete: Internaldelete succeeded');\r\n{$endif}\r\n    SetState(dsBrowse);\r\n{$ifdef dsdebug}\r\n    writeln ('Delete: Browse mode set');\r\n{$endif}\r\n    SetCurrentRecord(FActiveRecord);\r\n    Resync([]);\r\n    DoAfterDelete;\r\n    DoAfterScroll;\r\n  end;\r\nend;\r\n\r\nprocedure TDataSet.DisableControls;\r\n\r\n\r\nbegin\r\n  If FDisableControlsCount=0 then\r\n    begin\r\n    { Save current state,\r\n      needed to detect change of state when enabling controls.\r\n    }\r\n    FDisableControlsState:=FState;\r\n    FEnableControlsEvent:=deDatasetChange;\r\n    end;\r\n  Inc(FDisableControlsCount);\r\nend;\r\n\r\nprocedure TDataSet.DoInsertAppend(DoAppend: Boolean);\r\n\r\n\r\n  procedure DoInsert(DoAppend : Boolean);\r\n\r\n  Var\r\n    BookBeforeInsert : TBookmark;\r\n    TempBuf : TDataRecord;\r\n    I : integer;\r\n\r\n  begin\r\n  // need to scroll up al buffers after current one,\r\n  // but copy current bookmark to insert buffer.\r\n  If FRecordCount > 0 then\r\n    BookBeforeInsert:=Bookmark;\r\n\r\n  if not DoAppend then\r\n    begin\r\n    if FRecordCount > 0 then\r\n      begin\r\n      TempBuf := FBuffers[FBufferCount];\r\n      for I:=FBufferCount downto FActiveRecord+1 do\r\n        FBuffers[I]:=FBuffers[I-1];\r\n      FBuffers[FActiveRecord]:=TempBuf;\r\n      end;\r\n    end\r\n  else if FRecordCount=FBufferCount then\r\n    ShiftBuffersBackward\r\n  else\r\n    begin\r\n    if FRecordCount>0 then\r\n      inc(FActiveRecord);\r\n    end;\r\n\r\n  // Active buffer is now edit buffer. Initialize.\r\n  InitRecord(FBuffers[FActiveRecord]);\r\n  CursorPosChanged;\r\n\r\n  // Put bookmark in edit buffer.\r\n  if FRecordCount=0 then\r\n    SetBookmarkFlag(FBuffers[FActiveRecord],bfEOF)\r\n  else\r\n    begin\r\n    fBOF := false;\r\n    // 29:01:05, JvdS: Why is this here?!? It can result in records with the same bookmark-data?\r\n    // I would say that the 'internalinsert' should do this. But I don't know how Tdbf handles it\r\n\r\n    // 1-apr-06, JvdS: It just sets the bookmark of the newly inserted record to the place\r\n    // where the record should be inserted. So it is ok.\r\n    if FRecordCount > 0 then\r\n      begin\r\n      SetBookMarkData(FBuffers[FActiveRecord],BookBeforeInsert);\r\n      FreeBookmark(BookBeforeInsert);\r\n      end;\r\n    end;\r\n\r\n  InternalInsert;\r\n\r\n  // update buffer count.\r\n  If FRecordCount<FBufferCount then\r\n    Inc(FRecordCount);\r\n  end;\r\n\r\nbegin\r\n  CheckBrowseMode;\r\n  If Not CanModify then\r\n    DatabaseError(SDatasetReadOnly,Self);\r\n  DoBeforeInsert;\r\n  DoBeforeScroll;\r\n  If Not DoAppend then\r\n    begin\r\n{$ifdef dsdebug}\r\n    Writeln ('going to insert mode');\r\n{$endif}\r\n    DoInsert(false);\r\n    end\r\n  else\r\n    begin\r\n{$ifdef dsdebug}\r\n    Writeln ('going to append mode');\r\n{$endif}\r\n    ClearBuffers;\r\n    InternalLast;\r\n    GetPriorRecords;\r\n    if FRecordCount>0 then\r\n      FActiveRecord:=FRecordCount-1;\r\n    DoInsert(True);\r\n    SetBookmarkFlag(FBuffers[FActiveRecord],bfEOF);\r\n    FBOF :=False;\r\n    FEOF := true;\r\n    end;\r\n  SetState(dsInsert);\r\n  try\r\n    DoOnNewRecord;\r\n  except\r\n    SetCurrentRecord(FActiveRecord);\r\n    resync([]);\r\n    raise;\r\n  end;\r\n  // mark as not modified.\r\n  FModified:=False;\r\n  // Final events.\r\n  DataEvent(deDatasetChange,0);\r\n  DoAfterInsert;\r\n  DoAfterScroll;\r\n{$ifdef dsdebug}\r\n  Writeln ('Done with append');\r\n{$endif}\r\nend;\r\n\r\nprocedure TDataSet.Edit;\r\n\r\nbegin\r\n  If State in [dsEdit,dsInsert] then exit;\r\n  CheckBrowseMode;\r\n  If Not CanModify then\r\n    DatabaseError(SDatasetReadOnly,Self);\r\n  If FRecordCount = 0 then\r\n    begin\r\n    Append;\r\n    Exit;\r\n    end;\r\n  DoBeforeEdit;\r\n  If Not TryDoing(@InternalEdit,OnEditError) then exit;\r\n  GetCalcFields(FBuffers[FActiveRecord]);\r\n  SetState(dsEdit);\r\n  DataEvent(deRecordChange,0);\r\n  DoAfterEdit;\r\nend;\r\n\r\nprocedure TDataSet.EnableControls;\r\n\r\n\r\nbegin\r\n  if FDisableControlsCount > 0 then\r\n    Dec(FDisableControlsCount);\r\n\r\n  if FDisableControlsCount = 0 then begin\r\n    if FState <> FDisableControlsState then\r\n      DataEvent(deUpdateState, 0);\r\n\r\n    if (FState <> dsInactive) and (FDisableControlsState <> dsInactive) then\r\n      DataEvent(FEnableControlsEvent, 0);\r\n  end;\r\nend;\r\n\r\nfunction TDataSet.FieldByName(const FieldName: string): TField;\r\n\r\n\r\nbegin\r\n  Result:=FindField(FieldName);\r\n  If Result=Nil then\r\n    DatabaseErrorFmt(SFieldNotFound,[FieldName],Self);\r\nend;\r\n\r\nfunction TDataSet.FindField(const FieldName: string): TField;\r\n\r\n\r\nbegin\r\n  Result:=FFieldList.FindField(FieldName);\r\nend;\r\n\r\nfunction TDataSet.FindFirst: Boolean;\r\n\r\n\r\nbegin\r\n  Result:=False;\r\nend;\r\n\r\nfunction TDataSet.FindLast: Boolean;\r\n\r\n\r\nbegin\r\n  Result:=False;\r\nend;\r\n\r\nfunction TDataSet.FindNext: Boolean;\r\n\r\n\r\nbegin\r\n  Result:=False;\r\nend;\r\n\r\nfunction TDataSet.FindPrior: Boolean;\r\n\r\n\r\nbegin\r\n  Result:=False;\r\nend;\r\n\r\nprocedure TDataSet.First;\r\n\r\n\r\nbegin\r\n  CheckBrowseMode;\r\n  DoBeforeScroll;\r\n  if not FIsUniDirectional then\r\n    ClearBuffers\r\n  else if not FBof then\r\n    begin\r\n    Active := False;\r\n    Active := True;\r\n    end;\r\n  try\r\n    InternalFirst;\r\n    if not FIsUniDirectional then GetNextRecords;\r\n  finally\r\n    FBOF:=True;\r\n    DataEvent(deDatasetChange,0);\r\n    DoAfterScroll;\r\n    end;\r\nend;\r\n\r\nprocedure TDataSet.FreeBookmark(ABookmark: TBookmark);\r\n\r\n\r\nbegin\r\n  {$ifdef noautomatedbookmark}\r\n   FreeMem(ABookMark,FBookMarkSize);\r\n  {$endif}\r\nend;\r\n\r\nfunction TDataSet.GetBookmark: TBookmark;\r\n\r\n\r\nbegin\r\n  if BookmarkAvailable then\r\n    GetBookMarkdata(ActiveBuffer,Result)\r\n  else\r\n    Result.Data:=Null;\r\nend;\r\n\r\nfunction TDataSet.GetCurrentRecord(Buffer: TDataRecord): Boolean;\r\n\r\n\r\nbegin\r\n  Result:=False;\r\nend;\r\n\r\nprocedure TDataSet.GetFieldList(List: TList; const FieldNames: string);\r\n\r\nvar\r\n  F: TField;\r\n  N: String;\r\n  StrPos: Integer;\r\n\r\nbegin\r\n  if (FieldNames = '') or (List = nil) then\r\n    Exit;\r\n  StrPos := 1;\r\n  repeat\r\n    N := ExtractFieldName(FieldNames, StrPos);\r\n    F := FieldByName(N);\r\n    List.Add(F);\r\n  until StrPos > Length(FieldNames);\r\nend;\r\n\r\nprocedure TDataSet.GetFieldList(List: TFPList; const FieldNames: string);\r\nvar\r\n  F: TField;\r\n  N: String;\r\n  StrPos: Integer;\r\n\r\nbegin\r\n  if (FieldNames = '') or (List = nil) then\r\n    Exit;\r\n  StrPos := 1;\r\n  repeat\r\n    N := ExtractFieldName(FieldNames, StrPos);\r\n    F := FieldByName(N);\r\n    List.Add(F);\r\n  until StrPos > Length(FieldNames);\r\nend;\r\n\r\nprocedure TDataSet.GetFieldNames(List: TStrings);\r\n\r\n\r\nbegin\r\n  FFieldList.GetFieldNames(List);\r\nend;\r\n\r\nprocedure TDataSet.GotoBookmark(const ABookmark: TBookmark);\r\n\r\n\r\nbegin\r\n  If Not IsNull(ABookMark.Data) then\r\n    begin\r\n    CheckBrowseMode;\r\n    DoBeforeScroll;\r\n{$ifdef dsdebug}\r\n    Writeln('Gotobookmark: ',ABookMark.Data);\r\n{$endif}\r\n    InternalGotoBookMark(ABookMark);\r\n    Resync([rmExact,rmCenter]);\r\n    DoAfterScroll;\r\n    end;\r\nend;\r\n\r\nprocedure TDataSet.Insert;\r\n\r\nbegin\r\n  DoInsertAppend(False);\r\nend;\r\n\r\nprocedure TDataSet.InsertRecord(const Values: array of JSValue);\r\n\r\nbegin\r\n  DoInsertAppendRecord(Values,False);\r\nend;\r\n\r\nfunction TDataSet.IsEmpty: Boolean;\r\n\r\nbegin\r\n  Result:=(fBof and fEof) and\r\n          (not (State = dsInsert)); // After an insert on an empty dataset, both fBof and fEof are true\r\nend;\r\n\r\nfunction TDataSet.IsLinkedTo(ADataSource: TDataSource): Boolean;\r\n\r\nbegin\r\n//!! Not tested, I never used nested DS\r\n  if (ADataSource = nil) or (ADataSource.Dataset = nil) then begin\r\n    Result := False\r\n  end else if ADataSource.Dataset = Self then begin\r\n    Result := True;\r\n  end else begin\r\n    Result := ADataSource.Dataset.IsLinkedTo(ADataSource.Dataset.DataSource);\r\n  end;\r\n//!! DataSetField not implemented\r\nend;\r\n\r\nfunction TDataSet.IsSequenced: Boolean;\r\n\r\nbegin\r\n  Result := True;\r\nend;\r\n\r\nprocedure TDataSet.Last;\r\n\r\nbegin\r\n  CheckBiDirectional;\r\n  CheckBrowseMode;\r\n  DoBeforeScroll;\r\n  ClearBuffers;\r\n  try\r\n    // Writeln('FActiveRecord before last',FActiveRecord);\r\n    InternalLast;\r\n    // Writeln('FActiveRecord after last',FActiveRecord);\r\n    GetPriorRecords;\r\n    // Writeln('FRecordCount: ',FRecordCount);\r\n    if FRecordCount>0 then\r\n      FActiveRecord:=FRecordCount-1;\r\n    // Writeln('FActiveRecord ',FActiveRecord);\r\n  finally\r\n    FEOF:=true;\r\n    DataEvent(deDataSetChange, 0);\r\n    DoAfterScroll;\r\n    end;\r\nend;\r\n\r\nfunction TDataSet.DoLoad(aOptions: TLoadOptions; aAfterLoad: TDatasetLoadEvent): Boolean;\r\n\r\nVar\r\n  Request : TDataRequest;\r\n\r\nbegin\r\n  if not (loNoEvents in aOptions) then\r\n    DoBeforeLoad;\r\n  Result:=DataProxy<>Nil;\r\n  if Not Result then\r\n    Exit;\r\n  Request:=DataProxy.GetDataRequest(aOptions,@HandleRequestResponse,aAfterLoad);\r\n  Request.FDataset:=Self;\r\n  If Active then\r\n    Request.FBookmark:=GetBookmark;\r\n  Inc(FDataRequestID);\r\n  Request.FRequestID:=FDataRequestID;\r\n  if DataProxy.DoGetData(Request) then\r\n    Inc(FLoadCount)\r\n  else\r\n    Request.Free;\r\n//  Writeln(Name,' End of Load call. Count: ',LoadCount);\r\nend;\r\n\r\n\r\nfunction TDataSet.Load(aOptions: TLoadOptions; aAfterLoad: TDatasetLoadEvent): Boolean;\r\n\r\nbegin\r\n  if loAtEOF in aOptions then\r\n    DatabaseError(SatEOFInternalOnly,Self);\r\n  if loCancelPending in aOptions then\r\n    CancelLoading;\r\n  Result:=DoLoad(aOptions,aAfterLoad);\r\nend;\r\n\r\nfunction TDataSet.MoveBy(Distance: Longint): Longint;\r\nVar\r\n  TheResult: Integer;\r\n\r\n  Function ScrollForward : Integer;\r\n  begin\r\n    Result:=0;\r\n{$ifdef dsdebug}\r\n    Writeln('Scrolling forward : ',Distance);\r\n    Writeln('Active buffer : ',FActiveRecord);\r\n    Writeln('RecordCount   : ',FRecordCount);\r\n    WriteLn('BufferCount   : ',FBufferCount);\r\n{$endif}\r\n    FBOF:=False;\r\n    While (Distance>0) and not FEOF do\r\n      begin\r\n      If FActiveRecord<FRecordCount-1 then\r\n        begin\r\n        Inc(FActiveRecord);\r\n        Dec(Distance);\r\n        Inc(TheResult); //Inc(Result);\r\n        end\r\n      else\r\n        begin\r\n{$ifdef dsdebug}\r\n       Writeln('Moveby : need next record');\r\n{$endif}\r\n        If GetNextRecord then\r\n          begin\r\n          Dec(Distance);\r\n          Dec(Result);\r\n          Inc(TheResult); //Inc(Result);\r\n          end\r\n        else\r\n          begin\r\n          FEOF:=true;\r\n          // Allow to load more records.\r\n          DoLoad([loNoOpen,loAtEOF],Nil);\r\n          end;\r\n        end;\r\n      end\r\n  end;\r\n\r\n  Function ScrollBackward : Integer;\r\n  begin\r\n    CheckBiDirectional;\r\n    Result:=0;\r\n{$ifdef dsdebug}\r\n    Writeln('Scrolling backward : ',Abs(Distance));\r\n    Writeln('Active buffer : ',FActiveRecord);\r\n    Writeln('RecordCunt    : ',FRecordCount);\r\n    WriteLn('BufferCount   : ',FBufferCount);\r\n{$endif}\r\n    FEOF:=False;\r\n    While (Distance<0) and not FBOF do\r\n      begin\r\n      If FActiveRecord>0 then\r\n        begin\r\n        Dec(FActiveRecord);\r\n        Inc(Distance);\r\n        Dec(TheResult); //Dec(Result);\r\n        end\r\n      else\r\n        begin\r\n       {$ifdef dsdebug}\r\n       Writeln('Moveby : need next record');\r\n       {$endif}\r\n        If GetPriorRecord then\r\n          begin\r\n          Inc(Distance);\r\n          Inc(Result);\r\n          Dec(TheResult); //Dec(Result);\r\n          end\r\n        else\r\n          FBOF:=true;\r\n        end;\r\n      end\r\n  end;\r\n\r\nVar\r\n  Scrolled : Integer;\r\n\r\nbegin\r\n  CheckBrowseMode;\r\n  Result:=0; TheResult:=0;\r\n  DoBeforeScroll;\r\n  If (Distance = 0) or\r\n     ((Distance>0) and FEOF) or\r\n     ((Distance<0) and FBOF) then\r\n    exit;\r\n  Try\r\n    Scrolled := 0;\r\n    If Distance>0 then\r\n      Scrolled:=ScrollForward\r\n    else\r\n      Scrolled:=ScrollBackward;\r\n  finally\r\n{$ifdef dsdebug}\r\n    WriteLn('ActiveRecord=', FActiveRecord,' FEOF=',FEOF,' FBOF=',FBOF);\r\n{$Endif}\r\n    DataEvent(deDatasetScroll,Scrolled);\r\n    DoAfterScroll;\r\n    Result:=TheResult;\r\n  end;\r\nend;\r\n\r\nprocedure TDataSet.Next;\r\nbegin\r\n  if BlockReadSize>0 then\r\n    BlockReadNext\r\n  else\r\n    MoveBy(1);\r\nend;\r\n\r\nprocedure TDataSet.BlockReadNext;\r\nbegin\r\n  MoveBy(1);\r\nend;\r\n\r\nprocedure TDataSet.Open;\r\nbegin\r\n  Active:=True;\r\nend;\r\n\r\nprocedure TDataSet.Post;\r\n\r\nConst\r\n  UpdateStates : Array[Boolean] of TUpdateStatus = (usModified,usInserted);\r\n\r\nVar\r\n  R : TRecordUpdateDescriptor;\r\n  WasInsert : Boolean;\r\n\r\nbegin\r\n  UpdateRecord;\r\n  if State in [dsEdit,dsInsert] then\r\n    begin\r\n    DataEvent(deCheckBrowseMode,0);\r\n{$ifdef dsdebug}\r\n    writeln ('Post: checking required fields');\r\n{$endif}\r\n    DoBeforePost;\r\n    WasInsert:=State=dsInsert;\r\n    If Not TryDoing(@InternalPost,OnPostError) then exit;\r\n    CursorPosChanged;\r\n{$ifdef dsdebug}\r\n    writeln ('Post: Internalpost succeeded');\r\n{$endif}\r\n// First set the state to dsBrowse, then the Resync, to prevent the calling of\r\n// the deDatasetChange event, while the state is still 'editable', while the db isn't\r\n    SetState(dsBrowse);\r\n    Resync([]);\r\n    // We get the new values here, since the bookmark should now be correct to find the record later on when doing applyupdates.\r\n    R:=AddToChangeList(UpdateStates[wasInsert]);\r\n    if Assigned(R) then\r\n      R.FBookmark:=BookMark;\r\n{$ifdef dsdebug}\r\n    writeln ('Post: Browse mode set');\r\n{$endif}\r\n    DoAfterPost;\r\n    end\r\n  else if State<>dsSetKey then\r\n    DatabaseErrorFmt(SNotEditing, [Name], Self);\r\nend;\r\n\r\nprocedure TDataSet.Prior;\r\n\r\nbegin\r\n  MoveBy(-1);\r\nend;\r\n\r\nprocedure TDataSet.Refresh;\r\n\r\nbegin\r\n  CheckbrowseMode;\r\n  DoBeforeRefresh;\r\n  UpdateCursorPos;\r\n  InternalRefresh;\r\n{ SetCurrentRecord is called by UpdateCursorPos already, so as long as\r\n  InternalRefresh doesn't do strange things this should be ok. }\r\n//  SetCurrentRecord(FActiveRecord);\r\n  Resync([]);\r\n  DoAfterRefresh;\r\nend;\r\n\r\nprocedure TDataSet.RegisterDataSource(ADataSource: TDataSource);\r\n\r\nbegin\r\n  FDataSources.Add(ADataSource);\r\n  RecalcBufListSize;\r\nend;\r\n\r\n\r\nprocedure TDataSet.Resync(Mode: TResyncMode);\r\n\r\nvar i,count : integer;\r\n\r\nbegin\r\n  // See if we can find the requested record.\r\n{$ifdef dsdebug}\r\n    Writeln ('Resync called');\r\n{$endif}\r\n  if FIsUnidirectional then Exit;\r\n// place the cursor of the underlying dataset to the active record\r\n//  SetCurrentRecord(FActiveRecord);\r\n\r\n// Now look if the data on the current cursor of the underlying dataset is still available\r\n  If GetRecord(FBuffers[0],gmCurrent,False)<>grOk Then\r\n// If that fails and rmExact is set, then raise an exception\r\n    If rmExact in Mode then\r\n      DatabaseError(SNoSuchRecord,Self)\r\n// else, if rmexact is not set, try to fetch the next  or prior record in the underlying dataset\r\n    else if (GetRecord(FBuffers[0],gmNext,True)<>grOk) and\r\n            (GetRecord(FBuffers[0],gmPrior,True)<>grOk) then\r\n      begin\r\n{$ifdef dsdebug}\r\n      Writeln ('Resync: fuzzy resync');\r\n{$endif}\r\n      // nothing found, invalidate buffer and bail out.\r\n      ClearBuffers;\r\n      // Make sure that the active record is 'empty', ie: that all fields are null\r\n      InternalInitRecord(FBuffers[FActiveRecord]);\r\n      DataEvent(deDatasetChange,0);\r\n      exit;\r\n      end;\r\n  FCurrentRecord := 0;\r\n  FEOF := false;\r\n  FBOF := false;\r\n\r\n// If we've arrived here, FBuffer[0] is the current record\r\n  If (rmCenter in Mode) then\r\n    count := (FRecordCount div 2)\r\n  else\r\n    count := FActiveRecord;\r\n  i := 0;\r\n  FRecordCount := 1;\r\n  FActiveRecord := 0;\r\n\r\n// Fill the buffers before the active record\r\n  while (i < count) and GetPriorRecord do\r\n    inc(i);\r\n  FActiveRecord := i;\r\n// Fill the rest of the buffer\r\n  GetNextRecords;\r\n// If the buffer is not full yet, try to fetch some more prior records\r\n  if FRecordCount < FBufferCount then FActiveRecord:=FActiveRecord+getpriorrecords;\r\n// That's all folks!\r\n  DataEvent(deDatasetChange,0);\r\nend;\r\n\r\nprocedure TDataSet.CancelLoading;\r\nbegin\r\n  FMinLoadID:=FDataRequestID;\r\n  FloadCount:=0;\r\nend;\r\n\r\nprocedure TDataSet.SetFields(const Values: array of JSValue);\r\n\r\nVar I  : longint;\r\nbegin\r\n  For I:=0 to high(Values) do\r\n    Fields[I].AssignValue(Values[I]);\r\nend;\r\n\r\nfunction TDataSet.TryDoing(P: TDataOperation; Ev: TDatasetErrorEvent): Boolean;\r\n\r\nVar Retry : TDataAction;\r\n\r\nbegin\r\n{$ifdef dsdebug}\r\n  Writeln ('Trying to do');\r\n  If P=Nil then writeln ('Procedure to call is nil !!!');\r\n{$endif dsdebug}\r\n  Result:=True;\r\n  Retry:=daRetry;\r\n  while Retry=daRetry do\r\n    Try\r\n{$ifdef dsdebug}\r\n      Writeln ('Trying : updatecursorpos');\r\n{$endif dsdebug}\r\n      UpdateCursorPos;\r\n{$ifdef dsdebug}\r\n      Writeln ('Trying to do it');\r\n{$endif dsdebug}\r\n      P();\r\n      exit;\r\n    except\r\n      On E : EDatabaseError do\r\n        begin\r\n        retry:=daFail;\r\n        If Assigned(Ev) then\r\n          Ev(Self,E,Retry);\r\n        Case Retry of\r\n          daFail : Raise;\r\n          daAbort : Abort;\r\n        end;\r\n        end;\r\n    else\r\n      Raise;\r\n    end;\r\n{$ifdef dsdebug}\r\n  Writeln ('Exit Trying to do');\r\n{$endif dsdebug}\r\nend;\r\n\r\nprocedure TDataSet.UpdateCursorPos;\r\n\r\nbegin\r\n  If FRecordCount>0 then\r\n    SetCurrentRecord(FActiveRecord);\r\nend;\r\n\r\nprocedure TDataSet.UpdateRecord;\r\n\r\nbegin\r\n  if not (State in dsEditModes) then\r\n    DatabaseErrorFmt(SNotEditing, [Name], Self);\r\n  DataEvent(deUpdateRecord, 0);\r\nend;\r\n\r\nfunction TDataSet.GetPendingUpdates: TResolveInfoArray;\r\n\r\nVar\r\n  L : TRecordUpdateDescriptorList;\r\n  I : integer;\r\n\r\nbegin\r\n  L:=TRecordUpdateDescriptorList.Create;\r\n  try\r\n    SetLength(Result,GetRecordUpdates(L));\r\n    For I:=0 to L.Count-1 do\r\n      Result[i]:=RecordUpdateDescriptorToResolveInfo(L[i]);\r\n  finally\r\n    L.Free;\r\n  end;\r\nend;\r\n\r\n\r\n\r\nprocedure TDataSet.SetConstraints(Value: TCheckConstraints);\r\nbegin\r\n  FConstraints.Assign(Value);\r\nend;\r\n\r\nprocedure TDataSet.SetDataProxy(AValue: TDataProxy);\r\nbegin\r\n  If AValue=FDataProxy then\r\n    exit;\r\n  if Assigned(FDataProxy) then\r\n    FDataProxy.RemoveFreeNotification(Self);\r\n  FDataProxy:=AValue;\r\n  if Assigned(FDataProxy) then\r\n    FDataProxy.FreeNotification(Self)\r\nend;\r\n\r\nfunction TDataSet.GetfieldCount: Integer;\r\n\r\nbegin\r\n  Result:=FFieldList.Count;\r\nend;\r\n\r\nprocedure TDataSet.ShiftBuffersBackward;\r\n\r\nvar\r\n  TempBuf : TDataRecord;\r\n  I : Integer;\r\n\r\nbegin\r\n  TempBuf := FBuffers[0];\r\n  For I:=1 to FBufferCount do\r\n    FBuffers[I-1]:=FBuffers[i];\r\n  FBuffers[FBufferCount]:=TempBuf;\r\nend;\r\n\r\nprocedure TDataSet.ShiftBuffersForward;\r\n\r\nvar\r\n  TempBuf : TDataRecord;\r\n  I : Integer;\r\n\r\nbegin\r\n  TempBuf := FBuffers[FBufferCount];\r\n  For I:=FBufferCount downto 1 do\r\n    FBuffers[I]:=FBuffers[i-1];\r\n  FBuffers[0]:=TempBuf;\r\nend;\r\n\r\nfunction TDataSet.GetFieldValues(const FieldName: string): JSValue;\r\n\r\nvar\r\n  i: Integer;\r\n  FieldList: TList;\r\n  A : TJSValueDynArray;\r\n\r\nbegin\r\n  FieldList := TList.Create;\r\n  try\r\n    GetFieldList(FieldList, FieldName);\r\n    if FieldList.Count>1 then\r\n      begin\r\n      SetLength(A,FieldList.Count);\r\n      for i := 0 to FieldList.Count - 1 do\r\n        A[i] := TField(FieldList[i]).Value;\r\n      Result:=A;\r\n      end\r\n    else\r\n      Result := FieldByName(FieldName).Value;\r\n  finally\r\n    FieldList.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TDataSet.SetFieldValues(const FieldName: string; Value: JSValue);\r\n\r\nvar\r\n  i : Integer;\r\n  FieldList: TList;\r\n  A : TJSValueDynArray;\r\n\r\nbegin\r\n  if IsArray(Value) then\r\n    begin\r\n    FieldList := TList.Create;\r\n    try\r\n      GetFieldList(FieldList, FieldName);\r\n      A:=TJSValueDynArray(Value);\r\n      if (FieldList.Count = 1) and (Length(A)>0) then\r\n        // Allow for a field type that can deal with an array\r\n        FieldByName(FieldName).Value := Value\r\n      else\r\n        for i := 0 to FieldList.Count - 1 do\r\n          TField(FieldList[i]).Value := A[i];\r\n    finally\r\n      FieldList.Free;\r\n    end;\r\n    end\r\n  else\r\n    FieldByName(FieldName).Value := Value;\r\nend;\r\n\r\nfunction TDataSet.Locate(const KeyFields: string; const KeyValues: JSValue;\r\n  Options: TLocateOptions): boolean;\r\n\r\nbegin\r\n  CheckBiDirectional;\r\n  Result := False;\r\nend;\r\n\r\nfunction TDataSet.Lookup(const KeyFields: string; const KeyValues: JSValue;\r\n  const ResultFields: string): JSValue;\r\n\r\nbegin\r\n  CheckBiDirectional;\r\n  Result := Null;\r\nend;\r\n\r\n\r\nprocedure TDataSet.UnRegisterDataSource(ADataSource: TDataSource);\r\n\r\nbegin\r\n  FDataSources.Remove(ADataSource);\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    TFieldDef\r\n  ---------------------------------------------------------------------}\r\n\r\nconstructor TFieldDef.Create(ACollection: TCollection);\r\n\r\nbegin\r\n  Inherited Create(ACollection);\r\n  FFieldNo:=Index+1;\r\nend;\r\n\r\nconstructor TFieldDef.Create(AOwner: TFieldDefs; const AName: string; ADataType: TFieldType; ASize: Integer; ARequired: Boolean;\r\n  AFieldNo: Longint);\r\nbegin\r\n{$ifdef dsdebug }\r\n  Writeln('TFieldDef.Create : ',Aname,'(',AFieldNo,')');\r\n{$endif}\r\n  Inherited Create(AOwner);\r\n  Name:=Aname;\r\n  FDatatype:=ADatatype;\r\n  FSize:=ASize;\r\n  FRequired:=ARequired;\r\n  FPrecision:=-1;\r\n  FFieldNo:=AFieldNo;\r\nend;\r\n\r\ndestructor TFieldDef.Destroy;\r\n\r\nbegin\r\n  Inherited destroy;\r\nend;\r\n\r\nprocedure TFieldDef.Assign(Source: TPersistent);\r\nvar fd: TFieldDef;\r\nbegin\r\n  fd := nil;\r\n  if Source is TFieldDef then\r\n    fd := Source as TFieldDef;\r\n  if Assigned(fd) then begin\r\n    Collection.BeginUpdate;\r\n    try\r\n      Name := fd.Name;\r\n      DataType := fd.DataType;\r\n      Size := fd.Size;\r\n      Precision := fd.Precision;\r\n      FRequired := fd.Required;\r\n    finally\r\n      Collection.EndUpdate;\r\n    end;\r\n  end\r\n  else\r\n    inherited Assign(Source);\r\nend;\r\n\r\nfunction TFieldDef.CreateField(AOwner: TComponent): TField;\r\n\r\nvar TheField : TFieldClass;\r\n\r\nbegin\r\n{$ifdef dsdebug}\r\n  Writeln ('Creating field '+FNAME);\r\n{$endif dsdebug}\r\n  TheField:=GetFieldClass;\r\n  if TheField=Nil then\r\n    DatabaseErrorFmt(SUnknownFieldType,[FName]);\r\n  Result:=TheField.Create(AOwner);\r\n  Try\r\n    Result.FFieldDef:=Self;\r\n    Result.Size:=FSize;\r\n    Result.Required:=FRequired;\r\n    Result.FFieldName:=FName;\r\n    Result.FDisplayLabel:=DisplayName;\r\n    Result.FFieldNo:=Self.FieldNo;\r\n    Result.SetFieldType(DataType);\r\n    Result.FReadOnly:=(faReadOnly in Attributes);\r\n{$ifdef dsdebug}\r\n    Writeln ('TFieldDef.CreateField : Result Fieldno : ',Result.FieldNo,'; Self : ',FieldNo);\r\n    Writeln ('TFieldDef.CreateField : Trying to set dataset');\r\n{$endif dsdebug}\r\n    Result.Dataset:=TFieldDefs(Collection).Dataset;\r\n   if (Result is TFloatField) then\r\n      TFloatField(Result).Precision := FPrecision;\r\n  except\r\n    Result.Free;\r\n    Raise;\r\n  end;\r\nend;\r\n\r\nprocedure TFieldDef.SetAttributes(AValue: TFieldAttributes);\r\nbegin\r\n  FAttributes := AValue;\r\n  Changed(False);\r\nend;\r\n\r\nprocedure TFieldDef.SetDataType(AValue: TFieldType);\r\nbegin\r\n  FDataType := AValue;\r\n  Changed(False);\r\nend;\r\n\r\nprocedure TFieldDef.SetPrecision(const AValue: Longint);\r\nbegin\r\n  FPrecision := AValue;\r\n  Changed(False);\r\nend;\r\n\r\nprocedure TFieldDef.SetSize(const AValue: Integer);\r\nbegin\r\n  FSize := AValue;\r\n  Changed(False);\r\nend;\r\n\r\nprocedure TFieldDef.SetRequired(const AValue: Boolean);\r\nbegin\r\n  FRequired := AValue;\r\n  Changed(False);\r\nend;\r\n\r\nfunction TFieldDef.GetFieldClass: TFieldClass;\r\n\r\nbegin\r\n  //!! Should be owner as tdataset but that doesn't work ??\r\n\r\n  If Assigned(Collection) And\r\n     (Collection is TFieldDefs) And\r\n     Assigned(TFieldDefs(Collection).Dataset) then\r\n    Result:=TFieldDefs(Collection).Dataset.GetFieldClass(FDataType)\r\n  else\r\n    Result:=Nil;\r\nend;\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n    TFieldDefs\r\n  ---------------------------------------------------------------------}\r\n\r\n{\r\ndestructor TFieldDefs.Destroy;\r\n\r\nbegin\r\n  FItems.Free;\r\n  // This will destroy all fielddefs since we own them...\r\n  Inherited Destroy;\r\nend;\r\n}\r\n\r\nprocedure TFieldDefs.Add(const AName: string; ADataType: TFieldType);\r\n\r\nbegin\r\n  Add(AName,ADatatype,0,False);\r\nend;\r\n\r\nprocedure TFieldDefs.Add(const AName: string; ADataType: TFieldType; ASize : Word);\r\n\r\nbegin\r\n  Add(AName,ADatatype,ASize,False);\r\nend;\r\n\r\nprocedure TFieldDefs.Add(const AName: string; ADataType: TFieldType; ASize: Word;\r\n  ARequired: Boolean);\r\n\r\nbegin\r\n  If Length(AName)=0 Then\r\n    DatabaseError(SNeedFieldName,Dataset);\r\n  // the fielddef will register itself here as an owned component.\r\n  // fieldno is 1 based !\r\n  BeginUpdate;\r\n  try\r\n    Add(AName,ADataType,ASize,ARequired,Count+1);\r\n  finally\r\n    EndUpdate;\r\n  end;\r\nend;\r\n\r\nfunction TFieldDefs.Add: TFieldDef;\r\nbegin\r\n  Result := TFieldDef(inherited Add);\r\nend;\r\n\r\nfunction TFieldDefs.GetItem(Index: Longint): TFieldDef;\r\n\r\nbegin\r\n  Result := TFieldDef(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TFieldDefs.SetItem(Index: Longint; const AValue: TFieldDef);\r\nbegin\r\n  inherited Items[Index] := AValue;\r\nend;\r\n\r\nclass function TFieldDefs.FieldDefClass: TFieldDefClass;\r\nbegin\r\n  Result:=TFieldDef;\r\nend;\r\n\r\nconstructor TFieldDefs.Create(ADataSet: TDataSet);\r\nbegin\r\n  Inherited Create(ADataset, Owner, FieldDefClass);\r\nend;\r\n\r\nfunction TFieldDefs.Add(const AName: string; ADataType: TFieldType; ASize, APrecision: Integer;\r\n  ARequired, AReadOnly: Boolean; AFieldNo: Integer): TFieldDef;\r\nbegin\r\n  Result:=FieldDefClass.Create(Self, MakeNameUnique(AName), ADataType, ASize, ARequired, AFieldNo);\r\n  if AReadOnly then\r\n    Result.Attributes := Result.Attributes + [faReadOnly];\r\nend;\r\n\r\nfunction TFieldDefs.Add(const AName: string; ADataType: TFieldType; ASize: Word; ARequired: Boolean; AFieldNo: Integer): TFieldDef;\r\nbegin\r\n  Result:=FieldDefClass.Create(Self,AName,ADataType,ASize,ARequired,AFieldNo);\r\nend;\r\n\r\nprocedure TFieldDefs.Assign(FieldDefs: TFieldDefs);\r\n\r\nvar I : longint;\r\n\r\nbegin\r\n  Clear;\r\n  For i:=0 to FieldDefs.Count-1 do\r\n    With FieldDefs[i] do\r\n      Add(Name,DataType,Size,Required);\r\nend;\r\n\r\nfunction TFieldDefs.Find(const AName: string): TFieldDef;\r\nbegin\r\n  Result := (Inherited Find(AName)) as TFieldDef;\r\n  if Result=nil then DatabaseErrorFmt(SFieldNotFound,[AName],FDataset);\r\nend;\r\n\r\n{\r\nprocedure TFieldDefs.Clear;\r\n\r\nvar I : longint;\r\n\r\nbegin\r\n  For I:=FItems.Count-1 downto 0 do\r\n    TFieldDef(Fitems[i]).Free;\r\n  FItems.Clear;\r\nend;\r\n}\r\n\r\nprocedure TFieldDefs.Update;\r\n\r\nbegin\r\n  if not Updated then\r\n    begin\r\n    If Assigned(Dataset) then\r\n      DataSet.InitFieldDefs;\r\n    Updated := True;\r\n    end;\r\nend;\r\n\r\nfunction TFieldDefs.MakeNameUnique(const AName: String): string;\r\nvar DblFieldCount : integer;\r\nbegin\r\n  DblFieldCount := 0;\r\n  Result := AName;\r\n  while assigned(inherited Find(Result)) do\r\n    begin\r\n    inc(DblFieldCount);\r\n    Result := AName + '_' + IntToStr(DblFieldCount);\r\n    end;\r\nend;\r\n\r\nfunction TFieldDefs.AddFieldDef: TFieldDef;\r\n\r\nbegin\r\n  Result:=FieldDefClass.Create(Self,'',ftUnknown,0,False,Count+1);\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    TField\r\n  ---------------------------------------------------------------------}\r\n\r\nConst\r\n//  SBCD = 'BCD';\r\n  SBoolean = 'Boolean';\r\n  SDateTime = 'TDateTime';\r\n  SFloat = 'Float';\r\n  SInteger = 'Integer';\r\n  SLargeInt = 'NativeInt';\r\n  SJSValue = 'JSValue';\r\n  SString = 'String';\r\n  SBytes = 'Bytes';\r\n\r\nconstructor TField.Create(AOwner: TComponent);\r\n\r\n//Var\r\n//  I : Integer;\r\n\r\nbegin\r\n  Inherited Create(AOwner);\r\n  FVisible:=True;\r\n  SetLength(FValidChars,255);\r\n//  For I:=0 to 255 do\r\n//    FValidChars[i]:=Char(i);\r\n\r\n  FProviderFlags := [pfInUpdate,pfInWhere];\r\nend;\r\n\r\ndestructor TField.Destroy;\r\n\r\nbegin\r\n  IF Assigned(FDataSet) then\r\n    begin\r\n    FDataSet.Active:=False;\r\n    if Assigned(FFields) then\r\n      FFields.Remove(Self);\r\n    end;\r\n  FLookupList.Free;\r\n  Inherited Destroy;\r\nend;\r\n\r\nProcedure TField.RaiseAccessError(const TypeName: string);\r\n\r\nVar\r\n  E : EDatabaseError;\r\n\r\nbegin\r\n  E:=AccessError(TypeName);\r\n  Raise E;\r\nend;\r\n\r\nfunction TField.AccessError(const TypeName: string): EDatabaseError;\r\n\r\nbegin\r\n  Result:=EDatabaseError.CreateFmt(SinvalidTypeConversion,[TypeName,FFieldName]);\r\nend;\r\n\r\nprocedure TField.DefineProperties(Filer: TFiler); \r\n  procedure IgnoreReadString(Reader: TReader);\r\n  begin\r\n    Reader.ReadString;\r\n  end;\r\n  \r\n  procedure IgnoreReadBoolean(Reader: TReader);\r\n  begin\r\n    Reader.ReadBoolean;\r\n  end;\r\n\r\n  procedure IgnoreWrite(Writer: TWriter);\r\n  begin\r\n    if writer=Nil then;\r\n  end;\r\n\r\nbegin\r\n  Filer.DefineProperty('AttributeSet', @IgnoreReadString, @IgnoreWrite, False);\r\n  Filer.DefineProperty('Calculated', @IgnoreReadBoolean, @IgnoreWrite, False);\r\n  Filer.DefineProperty('Lookup', @IgnoreReadBoolean, @IgnoreWrite, False);\r\nend;\r\n\r\nprocedure TField.Assign(Source: TPersistent);\r\n\r\nbegin\r\n  if Source = nil then Clear\r\n  else if Source is TField then begin\r\n    Value := TField(Source).Value;\r\n  end else\r\n    inherited Assign(Source);\r\nend;\r\n\r\nprocedure TField.AssignValue(const AValue: JSValue);\r\n\r\n  procedure Error;\r\n  begin\r\n    DatabaseErrorFmt(SFieldValueError, [DisplayName]);\r\n  end;\r\n\r\nbegin\r\n  Case GetValueType(AValue) of\r\n    jvtNull : Clear;\r\n    jvtBoolean : AsBoolean:=Boolean(AValue);\r\n    jvtInteger : AsLargeInt:=NativeInt(AValue);\r\n    jvtFloat : AsFloat:=Double(AValue);\r\n    jvtString : AsString:=String(AValue);\r\n    jvtArray : SetAsBytes(TBytes(AValue));\r\n  else\r\n    Error;\r\n  end;\r\nend;\r\n\r\nprocedure TField.Bind(Binding: Boolean);\r\n\r\nbegin\r\n  if Binding and (FieldKind=fkLookup) then\r\n    begin\r\n    if ((FLookupDataSet = nil) or (FLookupKeyFields = '') or\r\n       (FLookupResultField = '') or (FKeyFields = '')) then\r\n      DatabaseErrorFmt(SLookupInfoError, [DisplayName]);\r\n    FFields.CheckFieldNames(FKeyFields);\r\n    FLookupDataSet.Open;\r\n    FLookupDataSet.Fields.CheckFieldNames(FLookupKeyFields);\r\n    FLookupDataSet.FieldByName(FLookupResultField);\r\n    if FLookupCache then\r\n      RefreshLookupList;\r\n    end;\r\nend;\r\n\r\nprocedure TField.Change;\r\n\r\nbegin\r\n  If Assigned(FOnChange) Then\r\n    FOnChange(Self);\r\nend;\r\n\r\nprocedure TField.CheckInactive;\r\n\r\nbegin\r\n  If Assigned(FDataSet) then\r\n    FDataset.CheckInactive;\r\nend;\r\n\r\nprocedure TField.Clear;\r\n\r\nbegin\r\n  SetData(Nil);\r\nend;\r\n\r\nprocedure TField.DataChanged;\r\n\r\nbegin\r\n  FDataset.DataEvent(deFieldChange,self);\r\nend;\r\n\r\nprocedure TField.FocusControl;\r\nvar\r\n  Field1: TField;\r\nbegin\r\n  Field1 := Self;\r\n  FDataSet.DataEvent(deFocusControl,Field1);\r\nend;\r\n\r\nfunction TField.GetAsBoolean: Boolean;\r\nbegin\r\n  raiseAccessError(SBoolean);\r\n  Result:=false;\r\nend;\r\n\r\nfunction TField.GetAsBytes: TBytes;\r\n\r\nbegin\r\n  raiseAccessError(SBytes);\r\n  Result:=nil;\r\nend;\r\n\r\n\r\nfunction TField.GetAsDateTime: TDateTime;\r\n\r\nbegin\r\n  raiseAccessError(SdateTime);\r\n  Result:=0.0;\r\nend;\r\n\r\nfunction TField.GetAsFloat: Double;\r\n\r\nbegin\r\n  raiseAccessError(SDateTime);\r\n  Result:=0.0;\r\nend;\r\n\r\nfunction TField.GetAsLargeInt: NativeInt;\r\nbegin\r\n  RaiseAccessError(SLargeInt);\r\n  Result:=0;\r\nend;\r\n\r\nfunction TField.GetAsLongint: Longint;\r\n\r\nbegin\r\n  Result:=GetAsInteger;\r\nend;\r\n\r\nfunction TField.GetAsInteger: Longint;\r\n\r\nbegin\r\n  RaiseAccessError(SInteger);\r\n  Result:=0;\r\nend;\r\n\r\nfunction TField.GetAsJSValue: JSValue;\r\n\r\nbegin\r\n  Result:=GetData\r\nend;\r\n\r\n\r\nfunction TField.GetAsString: string;\r\nbegin\r\n  Result := GetClassDesc\r\nend;\r\n\r\nfunction TField.GetOldValue: JSValue;\r\n\r\nvar SaveState : TDatasetState;\r\n\r\nbegin\r\n  SaveState := FDataset.State;\r\n  try\r\n    FDataset.SetTempState(dsOldValue);\r\n    Result := GetAsJSValue;\r\n  finally\r\n    FDataset.RestoreState(SaveState);\r\n  end;\r\nend;\r\n\r\nfunction TField.GetNewValue: JSValue;\r\n\r\nvar SaveState : TDatasetState;\r\n\r\nbegin\r\n  SaveState := FDataset.State;\r\n  try\r\n    FDataset.SetTempState(dsNewValue);\r\n    Result := GetAsJSValue;\r\n  finally\r\n    FDataset.RestoreState(SaveState);\r\n  end;\r\nend;\r\n\r\nprocedure TField.SetNewValue(const AValue: JSValue);\r\n\r\nvar SaveState : TDatasetState;\r\n\r\nbegin\r\n  SaveState := FDataset.State;\r\n  try\r\n    FDataset.SetTempState(dsNewValue);\r\n    SetAsJSValue(AValue);\r\n  finally\r\n    FDataset.RestoreState(SaveState);\r\n  end;\r\nend;\r\n\r\nfunction TField.GetCurValue: JSValue;\r\n\r\nvar SaveState : TDatasetState;\r\n\r\nbegin\r\n  SaveState := FDataset.State;\r\n  try\r\n    FDataset.SetTempState(dsCurValue);\r\n    Result := GetAsJSValue;\r\n  finally\r\n    FDataset.RestoreState(SaveState);\r\n  end;\r\nend;\r\n\r\nfunction TField.GetCanModify: Boolean;\r\n\r\nbegin\r\n  Result:=Not ReadOnly;\r\n  If Result then\r\n    begin\r\n    Result := FieldKind in [fkData, fkInternalCalc];\r\n    if Result then\r\n      begin\r\n      Result:=Assigned(DataSet) and Dataset.Active;\r\n      If Result then\r\n        Result:= DataSet.CanModify;\r\n      end;\r\n    end;\r\nend;\r\n\r\nfunction TField.GetClassDesc: String;\r\nvar ClassN : string;\r\nbegin\r\n  ClassN := copy(ClassName,2,pos('Field',ClassName)-2);\r\n  if isNull then\r\n    result := '(' + LowerCase(ClassN) + ')'\r\n   else\r\n    result := '(' + UpperCase(ClassN) + ')';\r\nend;\r\n\r\n\r\nfunction TField.GetData : JSValue;\r\n\r\nbegin\r\n  IF FDataset=Nil then\r\n    DatabaseErrorFmt(SNoDataset,[FieldName]);\r\n  If FValidating then\r\n    result:=FValueBuffer\r\n  else\r\n    begin\r\n    Result:=FDataset.GetFieldData(Self);\r\n    If IsUndefined(Result) then\r\n      Result:=Null;\r\n    end;\r\nend;\r\n\r\nfunction TField.GetDataSize: Integer;\r\n\r\nbegin\r\n  Result:=0;\r\nend;\r\n\r\nfunction TField.GetDefaultWidth: Longint;\r\n\r\nbegin\r\n  Result:=10;\r\nend;\r\n\r\nfunction TField.GetDisplayName  : String;\r\n\r\nbegin\r\n  If FDisplayLabel<>'' then\r\n    result:=FDisplayLabel\r\n  else\r\n    Result:=FFieldName;\r\nend;\r\n\r\nfunction TField.IsDisplayLabelStored: Boolean;\r\n\r\nbegin\r\n  Result:=(DisplayLabel<>FieldName);\r\nend;\r\n\r\nfunction TField.IsDisplayWidthStored: Boolean;\r\n\r\nbegin\r\n  Result:=(FDisplayWidth<>0);\r\nend;\r\n\r\nfunction TField.GetLookupList: TLookupList;\r\nbegin\r\n  if not Assigned(FLookupList) then\r\n    FLookupList := TLookupList.Create;\r\n  Result := FLookupList;\r\nend;\r\n\r\nprocedure TField.CalcLookupValue;\r\nbegin\r\n// MVC: TODO\r\n//  if FLookupCache then\r\n//    Value := LookupList.ValueOfKey(FDataSet.FieldValues[FKeyFields])\r\n//  else if\r\n  if Assigned(FLookupDataSet) and FLookupDataSet.Active then\r\n    Value := FLookupDataSet.Lookup(FLookupKeyfields, FDataSet.FieldValues[FKeyFields], FLookupresultField)\r\n  else\r\n    Value:=Null;\r\nend;\r\n\r\nfunction TField.GetIndex: longint;\r\n\r\nbegin\r\n  If Assigned(FDataset) then\r\n    Result:=FDataset.FFieldList.IndexOf(Self)\r\n  else\r\n    Result:=-1;\r\nend;\r\n\r\nfunction TField.GetLookup: Boolean;\r\nbegin\r\n  Result := FieldKind = fkLookup;\r\nend;\r\n\r\nprocedure TField.SetAlignment(const AValue: TAlignMent);\r\nbegin\r\n  if FAlignment <> AValue then\r\n    begin\r\n    FAlignment := AValue;\r\n    PropertyChanged(false);\r\n    end;\r\nend;\r\n\r\nprocedure TField.SetIndex(const AValue: Longint);\r\nbegin\r\n  if FFields <> nil then FFields.SetFieldIndex(Self, AValue)\r\nend;\r\n\r\nfunction TField.GetIsNull: Boolean;\r\n\r\nbegin\r\n  Result:=js.IsNull(GetData);\r\nend;\r\n\r\nfunction TField.GetParentComponent: TComponent;\r\n\r\nbegin\r\n  Result := DataSet;\r\nend;\r\n\r\nprocedure TField.GetText(var AText: string; ADisplayText: Boolean);\r\n\r\nbegin\r\n  AText:=GetAsString;\r\nend;\r\n\r\nfunction TField.HasParent: Boolean;\r\n\r\nbegin\r\n  HasParent:=True;\r\nend;\r\n\r\nfunction TField.IsValidChar(InputChar: Char): Boolean;\r\n\r\nbegin\r\n  // FValidChars must be set in Create.\r\n  Result:=CharInset(InputChar,FValidChars);\r\nend;\r\n\r\nprocedure TField.RefreshLookupList;\r\nvar\r\n  tmpActive: Boolean;\r\nbegin\r\n  if not Assigned(FLookupDataSet) or (Length(FLookupKeyfields) = 0)\r\n  or (Length(FLookupresultField) = 0) or (Length(FKeyFields) = 0) then\r\n    Exit;\r\n    \r\n  tmpActive := FLookupDataSet.Active;\r\n  try\r\n    FLookupDataSet.Active := True;\r\n    FFields.CheckFieldNames(FKeyFields);\r\n    FLookupDataSet.Fields.CheckFieldNames(FLookupKeyFields);\r\n    FLookupDataset.FieldByName(FLookupResultField); // I presume that if it doesn't exist it throws exception, and that a field with null value is still valid\r\n    LookupList.Clear; // have to be F-less because we might be creating it here with getter!\r\n\r\n    FLookupDataSet.DisableControls;\r\n    try\r\n      FLookupDataSet.First;\r\n      while not FLookupDataSet.Eof do\r\n      begin\r\n//        FLookupList.Add(FLookupDataSet.FieldValues[FLookupKeyfields], FLookupDataSet.FieldValues[FLookupResultField]);\r\n        FLookupDataSet.Next;\r\n      end;\r\n    finally\r\n      FLookupDataSet.EnableControls;\r\n    end;\r\n  finally\r\n    FLookupDataSet.Active := tmpActive;\r\n  end;\r\nend;\r\n\r\nprocedure TField.Notification(AComponent: TComponent; Operation: TOperation);\r\n\r\nbegin\r\n  Inherited Notification(AComponent,Operation);\r\n  if (Operation = opRemove) and (AComponent = FLookupDataSet) then\r\n    FLookupDataSet := nil;\r\nend;\r\n\r\nprocedure TField.PropertyChanged(LayoutAffected: Boolean);\r\n\r\nbegin\r\n  If (FDataset<>Nil) and (FDataset.Active) then\r\n    If LayoutAffected then\r\n      FDataset.DataEvent(deLayoutChange,0)\r\n    else\r\n      FDataset.DataEvent(deDatasetchange,0);\r\nend;\r\n\r\n\r\nprocedure TField.SetAsBytes(const AValue: TBytes);\r\nbegin\r\n  RaiseAccessError(SBytes);\r\nend;\r\n\r\nprocedure TField.SetAsBoolean(AValue: Boolean);\r\n\r\nbegin\r\n  RaiseAccessError(SBoolean);\r\nend;\r\n\r\nprocedure TField.SetAsDateTime(AValue: TDateTime);\r\n\r\nbegin\r\n  RaiseAccessError(SDateTime);\r\nend;\r\n\r\nprocedure TField.SetAsFloat(AValue: Double);\r\n\r\nbegin\r\n  RaiseAccessError(SFloat);\r\nend;\r\n\r\nprocedure TField.SetAsJSValue(const AValue: JSValue);\r\n\r\nbegin\r\n  if js.IsNull(AValue) then\r\n    Clear\r\n  else\r\n    try\r\n      SetVarValue(AValue);\r\n    except\r\n      on EVariantError do\r\n        DatabaseErrorFmt(SFieldValueError, [DisplayName]);\r\n    end;\r\nend;\r\n\r\n\r\nprocedure TField.SetAsLongint(AValue: Longint);\r\nbegin\r\n  SetAsInteger(AValue);\r\nend;\r\n\r\nprocedure TField.SetAsInteger(AValue: Longint);\r\nbegin\r\n  RaiseAccessError(SInteger);\r\nend;\r\n\r\nprocedure TField.SetAsLargeInt(AValue: NativeInt);\r\nbegin\r\n  RaiseAccessError(SLargeInt);\r\nend;\r\n\r\nprocedure TField.SetAsString(const AValue: string);\r\nbegin\r\n  RaiseAccessError(SString);\r\nend;\r\n\r\nprocedure TField.SetData(Buffer: JSValue);\r\n\r\nbegin\r\n  If Not Assigned(FDataset) then\r\n    DatabaseErrorFmt(SNoDataset,[FieldName]);\r\n  FDataSet.SetFieldData(Self,Buffer);\r\nend;\r\n\r\nprocedure TField.SetDataset(AValue: TDataset);\r\n\r\nbegin\r\n{$ifdef dsdebug}\r\n  Writeln ('Setting dataset');\r\n{$endif}\r\n  If AValue=FDataset then exit;\r\n  If Assigned(FDataset) Then\r\n    begin\r\n    FDataset.CheckInactive;\r\n    FDataset.FFieldList.Remove(Self);\r\n    end;\r\n  If Assigned(AValue) then\r\n    begin\r\n    AValue.CheckInactive;\r\n    AValue.FFieldList.Add(Self);\r\n    end;\r\n  FDataset:=AValue;\r\nend;\r\n\r\nprocedure TField.SetDataType(AValue: TFieldType);\r\nbegin\r\n  FDataType := AValue;\r\nend;\r\n\r\nprocedure TField.SetFieldType(AValue: TFieldType);\r\nbegin\r\n  { empty }\r\nend;\r\n\r\nprocedure TField.SetParentComponent(Value: TComponent);\r\nbegin\r\n//  if not (csLoading in ComponentState) then\r\n    DataSet := Value as TDataSet\r\nend;\r\n\r\nprocedure TField.SetSize(AValue: Integer);\r\nbegin\r\n  CheckInactive;\r\n  CheckTypeSize(AValue);\r\n  FSize:=AValue;\r\nend;\r\n\r\nprocedure TField.SetText(const AValue: string);\r\nbegin\r\n  SetAsString(AValue);\r\nend;\r\n\r\nprocedure TField.SetVarValue(const AValue: JSValue);\r\nbegin\r\n  RaiseAccessError(SJSValue);\r\nend;\r\n\r\nprocedure TField.Validate(Buffer: Pointer);\r\nbegin\r\n  If assigned(OnValidate) Then\r\n    begin\r\n    FValueBuffer:=Buffer;\r\n    FValidating:=True;\r\n    Try\r\n      OnValidate(Self);\r\n    finally\r\n      FValidating:=False;\r\n    end;\r\n    end;\r\nend;\r\n\r\nclass function TField.IsBlob: Boolean;\r\nbegin\r\n  Result:=False;\r\nend;\r\n\r\nclass procedure TField.CheckTypeSize(AValue: Longint);\r\n\r\nbegin\r\n  If (AValue<>0) and Not IsBlob Then\r\n    DatabaseErrorFmt(SInvalidFieldSize,[AValue]);\r\nend;\r\n\r\n// TField private methods\r\n\r\nprocedure TField.SetEditText(const AValue: string);\r\nbegin\r\n  if Assigned(OnSetText) then\r\n    OnSetText(Self, AValue)\r\n  else\r\n    SetText(AValue);\r\nend;\r\n\r\nfunction TField.GetEditText: String;\r\nbegin\r\n  SetLength(Result, 0);\r\n  if Assigned(OnGetText) then\r\n    OnGetText(Self, Result, False)\r\n  else\r\n    GetText(Result, False);\r\nend;\r\n\r\nfunction TField.GetDisplayText: String;\r\nbegin\r\n  SetLength(Result, 0);\r\n  if Assigned(OnGetText) then\r\n    OnGetText(Self, Result, True)\r\n  else\r\n    GetText(Result, True);\r\nend;\r\n\r\nprocedure TField.SetDisplayLabel(const AValue: string);\r\nbegin\r\n  if FDisplayLabel<>AValue then\r\n    begin\r\n    FDisplayLabel:=AValue;\r\n    PropertyChanged(true);\r\n    end;\r\nend;\r\n\r\nprocedure TField.SetDisplayWidth(const AValue: Longint);\r\nbegin\r\n  if FDisplayWidth<>AValue then\r\n    begin\r\n    FDisplayWidth:=AValue;\r\n    PropertyChanged(True);\r\n    end;\r\nend;\r\n\r\nfunction TField.GetDisplayWidth: integer;\r\nbegin\r\n  if FDisplayWidth=0 then\r\n    result:=GetDefaultWidth\r\n  else\r\n    result:=FDisplayWidth;\r\nend;\r\n\r\nprocedure TField.SetLookup(const AValue: Boolean);\r\nconst\r\n  ValueToLookupMap: array[Boolean] of TFieldKind = (fkData, fkLookup);\r\nbegin\r\n  FieldKind := ValueToLookupMap[AValue];\r\nend;\r\n\r\nprocedure TField.SetReadOnly(const AValue: Boolean);\r\nbegin\r\n  if (FReadOnly<>AValue) then\r\n    begin\r\n    FReadOnly:=AValue;\r\n    PropertyChanged(True);\r\n    end;\r\nend;\r\n\r\nprocedure TField.SetVisible(const AValue: Boolean);\r\nbegin\r\n  if FVisible<>AValue then\r\n    begin\r\n    FVisible:=AValue;\r\n    PropertyChanged(True);\r\n    end;\r\nend;\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n    TStringField\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\nconstructor TStringField.Create(AOwner: TComponent);\r\n\r\nbegin\r\n  Inherited Create(AOwner);\r\n  SetDataType(ftString);\r\n  FFixedChar := False;\r\n  FTransliterate := False;\r\n  FSize := 20;\r\nend;\r\n\r\nprocedure TStringField.SetFieldType(AValue: TFieldType);\r\nbegin\r\n  if AValue in [ftString, ftFixedChar, ftWideString] then\r\n    SetDataType(AValue);\r\nend;\r\n\r\nclass procedure TStringField.CheckTypeSize(AValue: Longint);\r\n\r\nbegin\r\n// A size of 0 is allowed, since for example Firebird allows\r\n// a query like: 'select '' as fieldname from table' which\r\n// results in a string with size 0.\r\n  If (AValue<0) Then\r\n    DatabaseErrorFmt(SInvalidFieldSize,[AValue])\r\nend;\r\n\r\nfunction TStringField.GetAsBoolean: Boolean;\r\n\r\nvar S : String;\r\n\r\nbegin\r\n  S:=GetAsString;\r\n  result := (Length(S)>0) and (Upcase(S[1]) in ['T',YesNoChars[True]]);\r\nend;\r\n\r\nfunction TStringField.GetAsDateTime: TDateTime;\r\n\r\nbegin\r\n  Result:=StrToDateTime(GetAsString);\r\nend;\r\n\r\nfunction TStringField.GetAsFloat: Double;\r\n\r\nbegin\r\n  Result:=StrToFloat(GetAsString);\r\nend;\r\n\r\nfunction TStringField.GetAsInteger: Longint;\r\n\r\nbegin\r\n  Result:=StrToInt(GetAsString);\r\nend;\r\n\r\nfunction TStringField.GetAsLargeInt: NativeInt;\r\n\r\nbegin\r\n  Result:=StrToInt64(GetAsString);\r\nend;\r\n\r\nfunction TStringField.GetAsString: String;\r\n\r\nVar\r\n  V : JSValue;\r\n\r\nbegin\r\n  V:=GetData;\r\n  if isString(V) then\r\n    Result := String(V)\r\n  else\r\n    Result:='';\r\nend;\r\n\r\n\r\nfunction TStringField.GetAsJSValue: JSValue;\r\n\r\nbegin\r\n  Result:=GetData\r\nend;\r\n\r\n\r\nfunction TStringField.GetDefaultWidth: Longint;\r\n\r\nbegin\r\n  result:=Size;\r\nend;\r\n\r\nprocedure TStringField.GetText(var AText: string; ADisplayText: Boolean);\r\n\r\nbegin\r\n    AText:=GetAsString;\r\nend;\r\n\r\n\r\nprocedure TStringField.SetAsBoolean(AValue: Boolean);\r\n\r\nbegin\r\n  If AValue Then\r\n    SetAsString('T')\r\n  else\r\n    SetAsString('F');\r\nend;\r\n\r\nprocedure TStringField.SetAsDateTime(AValue: TDateTime);\r\n\r\nbegin\r\n  SetAsString(DateTimeToStr(AValue));\r\nend;\r\n\r\nprocedure TStringField.SetAsFloat(AValue: Double);\r\n\r\nbegin\r\n  SetAsString(FloatToStr(AValue));\r\nend;\r\n\r\nprocedure TStringField.SetAsInteger(AValue: Longint);\r\n\r\nbegin\r\n  SetAsString(IntToStr(AValue));\r\nend;\r\n\r\nprocedure TStringField.SetAsLargeInt(AValue: NativeInt);\r\n\r\nbegin\r\n  SetAsString(IntToStr(AValue));\r\nend;\r\n\r\n\r\nprocedure TStringField.SetAsString(const AValue: String);\r\nbegin\r\n  SetData(AValue);\r\nend;\r\n\r\n\r\nprocedure TStringField.SetVarValue(const AValue: JSValue);\r\nbegin\r\n  if isString(AVAlue) then\r\n    SetAsString(String(AValue))\r\n  else\r\n    RaiseAccessError(SFieldValueError);\r\nend;\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n    TNumericField\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\nconstructor TNumericField.Create(AOwner: TComponent);\r\n\r\nbegin\r\n  Inherited Create(AOwner);\r\n  AlignMent:=taRightJustify;\r\nend;\r\n\r\nclass procedure TNumericField.CheckTypeSize(AValue: Longint);\r\nbegin\r\n  // This procedure is only added because some TDataset descendents have the\r\n  // but that they set the Size property as if it is the DataSize property.\r\n  // To avoid problems with those descendents, allow values <= 16.\r\n  If (AValue>16) Then\r\n    DatabaseErrorFmt(SInvalidFieldSize,[AValue]);\r\nend;\r\n\r\nprocedure TNumericField.RangeError(AValue, Min, Max: Double);\r\n\r\nbegin\r\n  DatabaseErrorFmt(SRangeError,[AValue,Min,Max,FieldName]);\r\nend;\r\n\r\nprocedure TNumericField.SetDisplayFormat(const AValue: string);\r\n\r\nbegin\r\n If FDisplayFormat<>AValue then\r\n   begin\r\n   FDisplayFormat:=AValue;\r\n   PropertyChanged(True);\r\n   end;\r\nend;\r\n\r\nprocedure TNumericField.SetEditFormat(const AValue: string);\r\n\r\nbegin\r\n  If FEditFormat<>AValue then\r\n    begin\r\n    FEditFormat:=AValue;\r\n    PropertyChanged(True);\r\n    end;\r\nend;\r\n\r\nfunction TNumericField.GetAsBoolean: Boolean;\r\nbegin\r\n  Result:=GetAsInteger<>0;\r\nend;\r\n\r\nprocedure TNumericField.SetAsBoolean(AValue: Boolean);\r\nbegin\r\n  SetAsInteger(ord(AValue));\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    TIntegerField\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\nconstructor TIntegerField.Create(AOwner: TComponent);\r\n\r\nbegin\r\n  Inherited Create(AOwner);\r\n  SetDataType(ftInteger);\r\n  FMinRange:=Low(LongInt);\r\n  FMaxRange:=High(LongInt);\r\n//  MVC : Todo\r\n//  FValidchars:=['+','-','0'..'9'];\r\nend;\r\n\r\nfunction TIntegerField.GetAsFloat: Double;\r\n\r\nbegin\r\n  Result:=GetAsInteger;\r\nend;\r\n\r\nfunction TIntegerField.GetAsLargeInt: NativeInt;\r\nbegin\r\n  Result:=GetAsInteger;\r\nend;\r\n\r\nfunction TIntegerField.GetAsInteger: Longint;\r\n\r\nbegin\r\n  If Not GetValue(Result) then\r\n    Result:=0;\r\nend;\r\n\r\nfunction TIntegerField.GetAsJSValue: JSValue;\r\n\r\nvar L : Longint;\r\n\r\nbegin\r\n  If GetValue(L) then\r\n    Result:=L\r\n  else\r\n    Result:=Null;\r\nend;\r\n\r\nfunction TIntegerField.GetAsString: string;\r\n\r\nvar L : Longint;\r\n\r\nbegin\r\n  If GetValue(L) then\r\n    Result:=IntTostr(L)\r\n  else\r\n    Result:='';\r\nend;\r\n\r\n\r\nprocedure TIntegerField.GetText(var AText: string; ADisplayText: Boolean);\r\n\r\nvar l : longint;\r\n    fmt : string;\r\n\r\nbegin\r\n  Atext:='';\r\n  If Not GetValue(l) then exit;\r\n  If ADisplayText or (FEditFormat='') then\r\n    fmt:=FDisplayFormat\r\n  else\r\n    fmt:=FEditFormat;\r\n  If length(fmt)<>0 then\r\n    AText:=FormatFloat(fmt,L)\r\n  else\r\n    Str(L,AText);\r\nend;\r\n\r\nfunction TIntegerField.GetValue(var AValue: Longint): Boolean;\r\n\r\nvar\r\n  V : JSValue;\r\n\r\nbegin\r\n  V:=GetData;\r\n  Result:=isInteger(V);\r\n  if Result then\r\n    AValue:=Longint(V);\r\nend;\r\n\r\nprocedure TIntegerField.SetAsLargeInt(AValue: NativeInt);\r\nbegin\r\n  if (AValue>=FMinRange) and (AValue<=FMaxRange) then\r\n    SetAsInteger(AValue)\r\n  else\r\n    RangeError(AValue,FMinRange,FMaxRange);\r\nend;\r\n\r\nprocedure TIntegerField.SetAsFloat(AValue: Double);\r\n\r\nbegin\r\n  SetAsInteger(Round(AValue));\r\nend;\r\n\r\nprocedure TIntegerField.SetAsInteger(AValue: Longint);\r\nbegin\r\n  If CheckRange(AValue) then\r\n    SetData(AValue)\r\n  else\r\n    if (FMinValue<>0) or (FMaxValue<>0) then\r\n      RangeError(AValue,FMinValue,FMaxValue)\r\n    else\r\n      RangeError(AValue,FMinRange,FMaxRange);\r\nend;\r\n\r\nprocedure TIntegerField.SetVarValue(const AValue: JSValue);\r\nbegin\r\n  if IsInteger(aValue) then\r\n    SetAsInteger(Integer(AValue))\r\n  else\r\n    RaiseAccessError(SInteger);\r\nend;\r\n\r\nprocedure TIntegerField.SetAsString(const AValue: string);\r\n\r\nvar L,Code : longint;\r\n\r\nbegin\r\n  If length(AValue)=0 then\r\n    Clear\r\n  else\r\n    begin\r\n    Val(AValue,L,Code);\r\n    If Code=0 then\r\n      SetAsInteger(L)\r\n    else\r\n      DatabaseErrorFmt(SNotAnInteger,[AValue]);\r\n    end;\r\nend;\r\n\r\nFunction TIntegerField.CheckRange(AValue : longint) : Boolean;\r\n\r\nbegin\r\n  if (FMinValue<>0) or (FMaxValue<>0) then\r\n    Result := (AValue>=FMinValue) and (AValue<=FMaxValue)\r\n  else\r\n    Result := (AValue>=FMinRange) and (AValue<=FMaxRange);\r\nend;\r\n\r\nProcedure TIntegerField.SetMaxValue (AValue : longint);\r\n\r\nbegin\r\n  If (AValue>=FMinRange) and (AValue<=FMaxRange) then\r\n    FMaxValue:=AValue\r\n  else\r\n    RangeError(AValue,FMinRange,FMaxRange);\r\nend;\r\n\r\nProcedure TIntegerField.SetMinValue (AValue : longint);\r\n\r\nbegin\r\n  If (AValue>=FMinRange) and (AValue<=FMaxRange) then\r\n    FMinValue:=AValue\r\n  else\r\n    RangeError(AValue,FMinRange,FMaxRange);\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    TWordField\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\nprocedure TWordField.SetAsWord(AValue: word);\r\nbegin\r\n  SetAsInteger(AValue);\r\nend;\r\n\r\nfunction TWordField.GetAsWord: word;\r\nvar\r\n  w: longint;\r\nbegin\r\n  if not GetValue(w) then\r\n    Result := 0\r\n  else\r\n    Result := w;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    TLargeintField\r\n  ---------------------------------------------------------------------}\r\n\r\n\r\nconstructor TLargeintField.Create(AOwner: TComponent);\r\n\r\nbegin\r\n  Inherited Create(AOwner);\r\n  SetDataType(ftLargeint);\r\n  FMinRange:=Low(NativeInt);\r\n  FMaxRange:=High(NativeInt);\r\n// MVC : Todo\r\n//  FValidchars:=['+','-','0'..'9'];\r\nend;\r\n\r\nfunction TLargeintField.GetAsFloat: Double;\r\n\r\nbegin\r\n  Result:=GetAsLargeInt;\r\nend;\r\n\r\nfunction TLargeintField.GetAsLargeInt: NativeInt;\r\n\r\nbegin\r\n  If Not GetValue(Result) then\r\n    Result:=0;\r\nend;\r\n\r\nfunction TLargeIntField.GetAsJSValue: JSValue;\r\n\r\nvar L : NativeInt;\r\n\r\nbegin\r\n  If GetValue(L) then\r\n    Result:=L\r\n  else\r\n    Result:=Null;\r\nend;\r\n\r\nfunction TLargeintField.GetAsInteger: Longint;\r\n\r\nbegin\r\n  Result:=GetAsLargeInt;\r\nend;\r\n\r\nfunction TLargeintField.GetAsString: string;\r\n\r\nvar L : NativeInt;\r\n\r\nbegin\r\n  If GetValue(L) then\r\n    Result:=IntTostr(L)\r\n  else\r\n    Result:='';\r\nend;\r\n\r\nprocedure TLargeintField.GetText(var AText: string; ADisplayText: Boolean);\r\n\r\nvar l : NativeInt;\r\n    fmt : string;\r\n\r\nbegin\r\n  Atext:='';\r\n  If Not GetValue(l) then exit;\r\n  If ADisplayText or (FEditFormat='') then\r\n    fmt:=FDisplayFormat\r\n  else\r\n    fmt:=FEditFormat;\r\n  If length(fmt)<>0 then\r\n    AText:=FormatFloat(fmt,L)\r\n  else\r\n    Str(L,AText);\r\nend;\r\n\r\nfunction TLargeintField.GetValue(var AValue: NativeInt): Boolean;\r\n\r\nvar\r\n  P : JSValue;\r\n\r\nbegin\r\n  P:=GetData;\r\n  Result:=isInteger(P);\r\n  if Result then\r\n    AValue:=NativeInt(P);\r\nend;\r\n\r\nprocedure TLargeintField.SetAsFloat(AValue: Double);\r\n\r\nbegin\r\n  SetAsLargeInt(Round(AValue));\r\nend;\r\n\r\nprocedure TLargeintField.SetAsLargeInt(AValue: NativeInt);\r\n\r\nbegin\r\n  If CheckRange(AValue) then\r\n    SetData(AValue)\r\n  else\r\n    RangeError(AValue,FMinValue,FMaxValue);\r\nend;\r\n\r\nprocedure TLargeintField.SetAsInteger(AValue: Longint);\r\n\r\nbegin\r\n  SetAsLargeInt(AValue);\r\nend;\r\n\r\nprocedure TLargeintField.SetAsString(const AValue: string);\r\n\r\nvar L     : NativeInt;\r\n    code  : Longint;\r\n\r\nbegin\r\n  If length(AValue)=0 then\r\n    Clear\r\n  else\r\n    begin\r\n    Val(AValue,L,Code);\r\n    If Code=0 then\r\n      SetAsLargeInt(L)\r\n    else\r\n      DatabaseErrorFmt(SNotAnInteger,[AValue]);\r\n    end;\r\nend;\r\n\r\nprocedure TLargeintField.SetVarValue(const AValue: JSValue);\r\nbegin\r\n  if IsInteger(Avalue) then\r\n    SetAsLargeInt(NativeInt(AValue))\r\n  else\r\n    RaiseAccessError(SLargeInt);\r\nend;\r\n\r\nFunction TLargeintField.CheckRange(AValue : NativeInt) : Boolean;\r\n\r\nbegin\r\n  if (FMinValue<>0) or (FMaxValue<>0) then\r\n    Result := (AValue>=FMinValue) and (AValue<=FMaxValue)\r\n  else\r\n    Result := (AValue>=FMinRange) and (AValue<=FMaxRange);\r\nend;\r\n\r\nProcedure TLargeintField.SetMaxValue (AValue : NativeInt);\r\n\r\nbegin\r\n  If (AValue>=FMinRange) and (AValue<=FMaxRange) then\r\n    FMaxValue:=AValue\r\n  else\r\n    RangeError(AValue,FMinRange,FMaxRange);\r\nend;\r\n\r\nProcedure TLargeintField.SetMinValue (AValue : NativeInt);\r\n\r\nbegin\r\n  If (AValue>=FMinRange) and (AValue<=FMaxRange) then\r\n    FMinValue:=AValue\r\n  else\r\n    RangeError(AValue,FMinRange,FMaxRange);\r\nend;\r\n\r\n\r\n{ TAutoIncField }\r\n\r\nconstructor TAutoIncField.Create(AOwner: TComponent);\r\n\r\nbegin\r\n  Inherited Create(AOWner);\r\n  SetDataType(ftAutoInc);\r\nend;\r\n\r\nProcedure TAutoIncField.SetAsInteger(AValue: Longint);\r\n\r\nbegin\r\n  // Some databases allows insertion of explicit values into identity columns\r\n  // (some of them also allows (some not) updating identity columns)\r\n  // So allow it at client side and leave check for server side\r\n  //if not(FDataSet.State in [dsFilter,dsSetKey,dsInsert]) then\r\n  //  DataBaseError(SCantSetAutoIncFields);\r\n  inherited;\r\nend;\r\n\r\n{ TFloatField }\r\n\r\nprocedure TFloatField.SetCurrency(const AValue: Boolean);\r\nbegin\r\n  if FCurrency=AValue then exit;\r\n  FCurrency:=AValue;\r\nend;\r\n\r\nprocedure TFloatField.SetPrecision(const AValue: Longint);\r\nbegin\r\n  if (AValue = -1) or (AValue > 1) then\r\n    FPrecision := AValue\r\n  else\r\n    FPrecision := 2;\r\nend;\r\n\r\nfunction TFloatField.GetAsFloat: Double;\r\n\r\nVar\r\n  P : JSValue;\r\n\r\nbegin\r\n  P:=GetData;\r\n  If IsNumber(P) then\r\n    Result:=Double(P)\r\n  else\r\n    Result:=0.0;\r\nend;\r\n\r\nfunction TFloatField.GetAsJSValue: JSValue;\r\n\r\nvar\r\n  P : JSValue;\r\n\r\nbegin\r\n  P:=GetData;\r\n  if IsNumber(P) then\r\n    Result:=P\r\n  else\r\n    Result:=Null;\r\nend;\r\n\r\nfunction TFloatField.GetAsLargeInt: NativeInt;\r\nbegin\r\n  Result:=Round(GetAsFloat);\r\nend;\r\n\r\nfunction TFloatField.GetAsInteger: Longint;\r\n\r\nbegin\r\n  Result:=Round(GetAsFloat);\r\nend;\r\n\r\nfunction TFloatField.GetAsString: string;\r\n\r\nvar\r\n  P : JSValue;\r\n\r\nbegin\r\n  P:=GetData;\r\n  if IsNumber(P) then\r\n    Result:=FloatToStr(Double(P))\r\n  else\r\n    Result:='';\r\nend;\r\n\r\nprocedure TFloatField.GetText(var AText: string; ADisplayText: Boolean);\r\n\r\nVar\r\n  fmt : string;\r\n  E : Double;\r\n  Digits : integer;\r\n  ff: TFloatFormat;\r\n  P : JSValue;\r\n\r\nbegin\r\n  AText:='';\r\n  P:=GetData;\r\n  if Not IsNumber(P) then\r\n    exit;\r\n  E:=Double(P);\r\n  If ADisplayText or (Length(FEditFormat) = 0) Then\r\n    Fmt:=FDisplayFormat\r\n  else\r\n    Fmt:=FEditFormat;\r\n    \r\n  Digits := 0;\r\n  if not FCurrency then\r\n    ff := ffGeneral\r\n  else\r\n    begin\r\n    Digits := 2;\r\n    ff := ffFixed;\r\n    end;\r\n\r\n\r\n  If fmt<>'' then\r\n    AText:=FormatFloat(fmt,E)\r\n  else\r\n    AText:=FloatToStrF(E,ff,FPrecision,Digits);\r\nend;\r\n\r\nprocedure TFloatField.SetAsFloat(AValue: Double);\r\n\r\nbegin\r\n  If CheckRange(AValue) then\r\n    SetData(AValue)\r\n  else\r\n    RangeError(AValue,FMinValue,FMaxValue);\r\nend;\r\n\r\nprocedure TFloatField.SetAsLargeInt(AValue: NativeInt);\r\nbegin\r\n  SetAsFloat(AValue);\r\nend;\r\n\r\nprocedure TFloatField.SetAsInteger(AValue: Longint);\r\n\r\nbegin\r\n  SetAsFloat(AValue);\r\nend;\r\n\r\nprocedure TFloatField.SetAsString(const AValue: string);\r\n\r\nvar f : Double;\r\n\r\nbegin\r\n  If (AValue='') then\r\n    Clear\r\n  else  \r\n    begin\r\n    If not TryStrToFloat(AValue,F) then\r\n      DatabaseErrorFmt(SNotAFloat, [AValue]);\r\n    SetAsFloat(f);\r\n    end;\r\nend;\r\n\r\nprocedure TFloatField.SetVarValue(const AValue: JSValue);\r\nbegin\r\n  if IsNumber(aValue) then\r\n    SetAsFloat(Double(AValue))\r\n  else\r\n    RaiseAccessError('Float');\r\nend;\r\n\r\nconstructor TFloatField.Create(AOwner: TComponent);\r\n\r\nbegin\r\n  Inherited Create(AOwner);\r\n  SetDataType(ftFloat);\r\n  FPrecision:=15;\r\n// MVC\r\n//  FValidChars := [DecimalSeparator, '+', '-', '0'..'9', 'E', 'e'];\r\nend;\r\n\r\nFunction TFloatField.CheckRange(AValue : Double) : Boolean;\r\n\r\nbegin\r\n  If (FMinValue<>0) or (FMaxValue<>0) then\r\n    Result:=(AValue>=FMinValue) and (AValue<=FMaxValue)\r\n  else\r\n    Result:=True;\r\nend;\r\n\r\n{ TBooleanField }\r\n\r\nfunction TBooleanField.GetAsBoolean: Boolean;\r\n\r\nvar\r\n  P : JSValue;\r\n\r\nbegin\r\n  P:=GetData;\r\n  if isBoolean(P) then\r\n    Result:=Boolean(P)\r\n  else\r\n    Result:=False;\r\nend;\r\n\r\nfunction TBooleanField.GetAsJSValue: JSValue;\r\n\r\nvar\r\n  P : JSValue;\r\n\r\nbegin\r\n  P:=GetData;\r\n  if isBoolean(P) then\r\n    Result:=Boolean(P)\r\n  else\r\n    Result:=Null;\r\nend;\r\n\r\nfunction TBooleanField.GetAsString: string;\r\n\r\nvar\r\n  P : JSValue;\r\n\r\nbegin\r\n  P:=GetData;\r\n  if isBoolean(P) then\r\n    Result:=FDisplays[False,Boolean(P)]\r\n  else\r\n    result:='';\r\nend;\r\n\r\nfunction TBooleanField.GetDefaultWidth: Longint;\r\n\r\nbegin\r\n  Result:=Length(FDisplays[false,false]);\r\n  If Result<Length(FDisplays[false,True]) then\r\n    Result:=Length(FDisplays[false,True]);\r\nend;\r\n\r\nfunction TBooleanField.GetAsInteger: Longint;\r\nbegin\r\n  Result := ord(GetAsBoolean);\r\nend;\r\n\r\nprocedure TBooleanField.SetAsInteger(AValue: Longint);\r\nbegin\r\n  SetAsBoolean(AValue<>0);\r\nend;\r\n\r\nprocedure TBooleanField.SetAsBoolean(AValue: Boolean);\r\n\r\nbegin\r\n  SetData(AValue);\r\nend;\r\n\r\nprocedure TBooleanField.SetAsString(const AValue: string);\r\n\r\nvar Temp : string;\r\n\r\nbegin\r\n  Temp:=UpperCase(AValue);\r\n  if Temp='' then\r\n    Clear\r\n  else if pos(Temp, FDisplays[True,True])=1 then\r\n    SetAsBoolean(True)\r\n  else if pos(Temp, FDisplays[True,False])=1 then\r\n    SetAsBoolean(False)\r\n  else\r\n    DatabaseErrorFmt(SNotABoolean,[AValue]);\r\nend;\r\n\r\nprocedure TBooleanField.SetVarValue(const AValue: JSValue);\r\nbegin\r\n  if isBoolean(aValue) then\r\n    SetAsBoolean(Boolean(AValue))\r\n  else if isNumber(aValue) then\r\n    SetAsBoolean(Double(AValue)<>0)\r\nend;\r\n\r\nconstructor TBooleanField.Create(AOwner: TComponent);\r\n\r\nbegin\r\n  Inherited Create(AOwner);\r\n  SetDataType(ftBoolean);\r\n  DisplayValues:='True;False';\r\nend;\r\n\r\nProcedure TBooleanField.SetDisplayValues(const AValue : String);\r\n\r\nvar I : longint;\r\n\r\nbegin\r\n  If FDisplayValues<>AValue then\r\n    begin\r\n    I:=Pos(';',AValue);\r\n    If (I<2) or (I=Length(AValue)) then\r\n      DatabaseErrorFmt(SInvalidDisplayValues,[AValue]);\r\n    FdisplayValues:=AValue;\r\n    // Store display values and their uppercase equivalents;\r\n    FDisplays[False,True]:=Copy(AValue,1,I-1);\r\n    FDisplays[True,True]:=UpperCase(FDisplays[False,True]);\r\n    FDisplays[False,False]:=Copy(AValue,I+1,Length(AValue)-i);\r\n    FDisplays[True,False]:=UpperCase(FDisplays[False,False]);\r\n    PropertyChanged(True);\r\n    end;\r\nend;\r\n\r\n{ TDateTimeField }\r\n\r\nprocedure TDateTimeField.SetDisplayFormat(const AValue: string);\r\nbegin\r\n  if FDisplayFormat<>AValue then begin\r\n    FDisplayFormat:=AValue;\r\n    PropertyChanged(True);\r\n  end;\r\nend;\r\n\r\nfunction TDateTimeField.ConvertToDateTime(aValue: JSValue; aRaiseError: Boolean): TDateTime;\r\nbegin\r\n  if JS.isNull(aValue) then\r\n    Result:=0\r\n  else if Assigned(Dataset) then\r\n    Result:=Dataset.ConvertToDateTime(Self,aValue,aRaiseError)\r\n  else\r\n    Result:=TDataset.DefaultConvertToDateTime(Self,aValue,aRaiseError);\r\nend;\r\n\r\nfunction TDateTimeField.DateTimeToNativeDateTime(aValue: TDateTime): JSValue;\r\nbegin\r\n  if Assigned(Dataset) then\r\n    Result:=Dataset.ConvertDateTimeToNative(Self,aValue)\r\n  else\r\n    Result:=TDataset.DefaultConvertDateTimeToNative(Self,aValue);\r\nend;\r\n\r\nfunction TDateTimeField.GetAsDateTime: TDateTime;\r\n\r\nbegin\r\n  Result:=ConvertToDateTime(GetData,False);\r\nend;\r\n\r\nprocedure TDateTimeField.SetVarValue(const AValue: JSValue);\r\n\r\nbegin\r\n  SetAsDateTime(ConvertToDateTime(aValue,True));\r\nend;\r\n\r\nfunction TDateTimeField.GetAsJSValue: JSValue;\r\n\r\nbegin\r\n  Result:=GetData;\r\n  if Not isString(Result) then\r\n    Result:=Null;\r\nend;\r\n\r\nfunction TDateTimeField.GetDataSize: Integer;\r\nbegin\r\n  Result:=inherited GetDataSize;\r\nend;\r\n\r\nfunction TDateTimeField.GetAsFloat: Double;\r\n\r\nbegin\r\n  Result:=GetAsdateTime;\r\nend;\r\n\r\n\r\nfunction TDateTimeField.GetAsString: string;\r\n\r\nbegin\r\n  GetText(Result,False);\r\nend;\r\n\r\n\r\nProcedure TDateTimeField.GetText(var AText: string; ADisplayText: Boolean);\r\n\r\nvar\r\n  R : TDateTime;\r\n  F : String;\r\n\r\nbegin\r\n  R:=ConvertToDateTime(GetData,false);\r\n  If (R=0) then\r\n    AText:=''\r\n  else\r\n    begin\r\n    If (ADisplayText) and (Length(FDisplayFormat)<>0) then\r\n      F:=FDisplayFormat\r\n    else\r\n      Case DataType of\r\n       ftTime : F:=FormatSettings.LongTimeFormat;\r\n       ftDate : F:=FormatSettings.ShortDateFormat;\r\n      else\r\n       F:='c'\r\n      end;\r\n    AText:=FormatDateTime(F,R);\r\n    end;\r\nend;\r\n\r\n\r\nprocedure TDateTimeField.SetAsDateTime(AValue: TDateTime);\r\n\r\nbegin\r\n  SetData(DateTimeToNativeDateTime(aValue));\r\nend;\r\n\r\n\r\nprocedure TDateTimeField.SetAsFloat(AValue: Double);\r\n\r\nbegin\r\n  SetAsDateTime(AValue);\r\nend;\r\n\r\n\r\nprocedure TDateTimeField.SetAsString(const AValue: string);\r\n\r\nvar R : TDateTime;\r\n\r\nbegin\r\n  if AValue<>'' then\r\n    begin\r\n    R:=StrToDateTime(AValue);\r\n    SetData(DateTimeToNativeDateTime(R));\r\n    end\r\n  else\r\n    SetData(Null);\r\nend;\r\n\r\n\r\nconstructor TDateTimeField.Create(AOwner: TComponent);\r\n\r\nbegin\r\n  Inherited Create(AOwner);\r\n  SetDataType(ftDateTime);\r\nend;\r\n\r\n\r\n{ TDateField }\r\n\r\nconstructor TDateField.Create(AOwner: TComponent);\r\n\r\nbegin\r\n  Inherited Create(AOwner);\r\n  SetDataType(ftDate);\r\nend;\r\n\r\n\r\n{ TTimeField }\r\n\r\nconstructor TTimeField.Create(AOwner: TComponent);\r\n\r\nbegin\r\n  Inherited Create(AOwner);\r\n  SetDataType(ftTime);\r\nend;\r\n\r\nprocedure TTimeField.SetAsString(const AValue: string);\r\n\r\nvar\r\n  R : TDateTime;\r\n\r\nbegin\r\n  if AValue<>'' then\r\n    begin\r\n    R:=StrToTime(AValue);\r\n    SetData(DateTimeToNativeDateTime(R));\r\n    end\r\n  else\r\n    SetData(Null);\r\nend;\r\n\r\n\r\n\r\n{ TBinaryField }\r\n\r\nclass procedure TBinaryField.CheckTypeSize(AValue: Longint);\r\n\r\nbegin\r\n  // Just check for really invalid stuff; actual size is\r\n  // dependent on the record...\r\n  If AValue<1 then\r\n    DatabaseErrorFmt(SInvalidFieldSize,[AValue]);\r\nend;\r\n\r\nfunction TBinaryField.BlobToBytes(aValue: JSValue): TBytes;\r\n\r\nbegin\r\n  if Assigned(Dataset) then\r\n    Result:=DataSet.BlobDataToBytes(aValue)\r\n  else\r\n    Result:=TDataSet.DefaultBlobDataToBytes(aValue)\r\nend;\r\n\r\nfunction TBinaryField.BytesToBlob(aValue: TBytes): JSValue;\r\n\r\nbegin\r\n  if Assigned(Dataset) then\r\n    Result:=DataSet.BytesToBlobData(aValue)\r\n  else\r\n    Result:=TDataSet.DefaultBytesToBlobData(aValue)\r\nend;\r\n\r\nfunction TBinaryField.GetAsString: string;\r\n\r\nvar\r\n  V : JSValue;\r\n  S : TBytes;\r\n  I : Integer;\r\n\r\nbegin\r\n  Result := '';\r\n  V:=GetData;\r\n  if V<>Null then\r\n    if (DataType in [ftMemo, ftGraphic]) then\r\n      Result:=String(V)\r\n    else\r\n      begin\r\n      S:=BlobToBytes(V);\r\n      For I:=0 to Length(S)-1 do\r\n         Result:=TJSString(Result).Concat(TJSString.fromCharCode(S[I]));\r\n      end;\r\nend;\r\n\r\n\r\nfunction TBinaryField.GetAsJSValue: JSValue;\r\n\r\nbegin\r\n  Result:=GetData;\r\nend;\r\n\r\n\r\nfunction TBinaryField.GetValue(var AValue: TBytes): Boolean;\r\nvar\r\n  V : JSValue;\r\nbegin\r\n  V:=GetData;\r\n  Result:=(V<>Null);\r\n  if Result then\r\n    AValue:=BlobToBytes(V)\r\n  else\r\n    SetLength(AValue,0);\r\nend;\r\n\r\n\r\n\r\nprocedure TBinaryField.SetAsString(const AValue: string);\r\n\r\nvar\r\n  B : TBytes;\r\n  i : Integer;\r\n\r\nbegin\r\n  if DataType in [ftMemo, ftGraphic] then\r\n    SetData(aValue)\r\n  else\r\n    begin\r\n    SetLength(B, Length(aValue));\r\n    For I:=1 to Length(aValue) do\r\n      B[i-1]:=Ord(aValue[i]);\r\n    SetAsBytes(B);\r\n    end;\r\nend;\r\n\r\n\r\nprocedure TBinaryField.SetVarValue(const AValue: JSValue);\r\n\r\nvar\r\n  B: TBytes;\r\n  I,Len: integer;\r\n\r\nbegin\r\n  if IsArray(AValue) then\r\n    begin\r\n    Len:=Length(TJSValueDynArray(AValue));\r\n    SetLength(B, Len);\r\n    For I:=1 to Len-1 do\r\n      B[i]:=TBytes(AValue)[i];\r\n    SetAsBytes(B);\r\n    end\r\n  else if IsString(AValue) then\r\n    SetAsString(String(AValue))\r\n  else\r\n    RaiseAccessError('Blob');\r\nend;\r\n\r\nfunction TBinaryField.GetAsBytes: TBytes;\r\n\r\nVar\r\n  V : JSValue;\r\n\r\nbegin\r\n  V:=GetData;\r\n  if Assigned(V) then\r\n    Result:=BlobToBytes(V)\r\n  else\r\n    SetLength(Result,0);\r\nend;\r\n\r\nprocedure TBinaryField.SetAsBytes(const aValue: TBytes);\r\nbegin\r\n  SetData(BytesToBlob(aValue))\r\nend;\r\n\r\n\r\nconstructor TBinaryField.Create(AOwner: TComponent);\r\n\r\nbegin\r\n  Inherited Create(AOwner);\r\nend;\r\n\r\n\r\n\r\n{ TBlobField }\r\n\r\nconstructor TBlobField.Create(AOwner: TComponent);\r\n\r\nbegin\r\n  Inherited Create(AOwner);\r\n  SetDataType(ftBlob);\r\nend;\r\n\r\nprocedure TBlobField.Clear;\r\nbegin\r\n  SetData(Null);\r\nend;\r\n\r\n\r\nfunction TBlobField.GetBlobType: TBlobType;\r\nbegin\r\n  Result := TBlobType(DataType);\r\nend;\r\n\r\nprocedure TBlobField.SetBlobType(AValue: TBlobType);\r\nbegin\r\n  if BlobType <> AValue then\r\n  begin\r\n    SetFieldType(AValue);\r\n    PropertyChanged(True);\r\n  end;\r\nend;\r\n\r\nprocedure TBlobField.SetDisplayValue(AValue: TBlobDisplayValue);\r\nbegin\r\n  if FDisplayValue=AValue then Exit;\r\n  FDisplayValue:=AValue;\r\n  PropertyChanged(False);\r\nend;\r\n\r\nclass procedure TBlobField.CheckTypeSize(AValue: Longint);\r\nbegin\r\n  If AValue<0 then\r\n    DatabaseErrorFmt(SInvalidFieldSize,[AValue]);\r\nend;\r\n\r\nfunction TBlobField.GetBlobSize: Longint;\r\n\r\nvar\r\n  B : TBytes;\r\n\r\nbegin\r\n  B:=GetAsBytes;\r\n  Result:=Length(B);\r\nend;\r\n\r\n\r\nfunction TBlobField.GetIsNull: Boolean;\r\n\r\nbegin\r\n  if Not Modified then\r\n    Result:= inherited GetIsNull\r\n  else\r\n    Result:=GetBlobSize=0;\r\nend;\r\n\r\nprocedure TBlobField.GetText(var AText: string; ADisplayText: Boolean);\r\nbegin\r\n  Case FDisplayValue of\r\n  dvClass:\r\n    aText:=GetClassDesc;\r\n  dvFull:\r\n    aText:=GetAsString;\r\n  dvClip:\r\n    begin\r\n    aText:=GetAsString;\r\n    if aDisplayText and (Length(aText)>DisplayWidth) then\r\n      aText:=Copy(Text,1,DisplayWidth) + '...';\r\n    end;\r\n  dvFit:\r\n    begin\r\n    aText:=GetAsString;\r\n    if aDisplayText and (Length(aText)>DisplayWidth) then\r\n      aText:=GetClassDesc;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TBlobField.IsBlob: Boolean;\r\n\r\nbegin\r\n  Result:=True;\r\nend;\r\n\r\nprocedure TBlobField.SetFieldType(AValue: TFieldType);\r\nbegin\r\n  if AValue in [Low(TBlobType)..High(TBlobType)] then\r\n    SetDataType(AValue);\r\nend;\r\n\r\n{ TGraphicField }\r\n\r\nconstructor TGraphicField.Create(AOwner: TComponent);\r\nbegin\r\n  inherited Create(AOwner);\r\n  SetDataType(ftGraphic);\r\nend;\r\n\r\n{ TMemoField }\r\n\r\nconstructor TMemoField.Create(AOwner: TComponent);\r\nbegin\r\n  inherited Create(AOwner);\r\n  SetDataType(ftMemo);\r\nend;\r\n\r\nprocedure TMemoField.GetText(var AText: string; ADisplayText: Boolean);\r\nbegin\r\n  AText := inherited GetAsString;\r\nend;\r\n\r\n\r\n{ TVariantField }\r\n\r\nconstructor TVariantField.Create(AOwner: TComponent);\r\nbegin\r\n  inherited Create(AOwner);\r\n  SetDataType(ftVariant);\r\nend;\r\n\r\nclass procedure TVariantField.CheckTypeSize(aValue: Integer);\r\nbegin\r\n  { empty }\r\nend;\r\n\r\nfunction TVariantField.GetAsBoolean: Boolean;\r\nbegin\r\n  Result :=GetAsJSValue=True;\r\nend;\r\n\r\nfunction TVariantField.GetAsDateTime: TDateTime;\r\n\r\nVar\r\n  V : JSValue;\r\n\r\nbegin\r\n  V:=GetData;\r\n  if Assigned(Dataset) then\r\n    Result:=Dataset.ConvertToDateTime(Self,V,True)\r\n  else\r\n    Result:=TDataset.DefaultConvertToDateTime(Self,V,True)\r\nend;\r\n\r\nfunction TVariantField.GetAsFloat: Double;\r\n\r\nVar\r\n  V : JSValue;\r\n\r\nbegin\r\n  V:=GetData;\r\n  if isNumber(V) then\r\n    Result:=Double(V)\r\n  else if isString(V) then\r\n    Result:=parsefloat(String(V))\r\n  else\r\n    RaiseAccessError('Variant');\r\nend;\r\n\r\nfunction TVariantField.GetAsInteger: Longint;\r\nVar\r\n  V : JSValue;\r\n\r\nbegin\r\n  V:=GetData;\r\n  if isInteger(V) then\r\n    Result:=Integer(V)\r\n  else if isString(V) then\r\n    Result:=parseInt(String(V))\r\n  else\r\n    RaiseAccessError('Variant');\r\nend;\r\n\r\nfunction TVariantField.GetAsString: string;\r\nVar\r\n  V : JSValue;\r\n\r\nbegin\r\n  V:=GetData;\r\n  if isInteger(V) then\r\n    Result:=IntToStr(Integer(V))\r\n  else if isNumber(V) then\r\n      Result:=FloatToStr(Double(V))\r\n  else if isString(V) then\r\n    Result:=String(V)\r\n  else\r\n    RaiseAccessError('Variant');\r\nend;\r\n\r\n\r\nfunction TVariantField.GetAsJSValue: JSValue;\r\nbegin\r\n  Result:=GetData;\r\nend;\r\n\r\nprocedure TVariantField.SetAsBoolean(aValue: Boolean);\r\nbegin\r\n  SetVarValue(aValue);\r\nend;\r\n\r\nprocedure TVariantField.SetAsDateTime(aValue: TDateTime);\r\nbegin\r\n  SetVarValue(aValue);\r\nend;\r\n\r\nprocedure TVariantField.SetAsFloat(aValue: Double);\r\nbegin\r\n  SetVarValue(aValue);\r\nend;\r\n\r\nprocedure TVariantField.SetAsInteger(AValue: Longint);\r\nbegin\r\n  SetVarValue(aValue);\r\nend;\r\n\r\nprocedure TVariantField.SetAsString(const aValue: string);\r\nbegin\r\n  SetVarValue(aValue);\r\nend;\r\n\r\nprocedure TVariantField.SetVarValue(const aValue: JSValue);\r\nbegin\r\n  SetData(aValue);\r\nend;\r\n\r\n{ TFieldsEnumerator }\r\n\r\nfunction TFieldsEnumerator.GetCurrent: TField;\r\nbegin\r\n  Result := FFields[FPosition];\r\nend;\r\n\r\nconstructor TFieldsEnumerator.Create(AFields: TFields);\r\nbegin\r\n  inherited Create;\r\n  FFields := AFields;\r\n  FPosition := -1;\r\nend;\r\n\r\nfunction TFieldsEnumerator.MoveNext: Boolean;\r\nbegin\r\n  inc(FPosition);\r\n  Result := FPosition < FFields.Count;\r\nend;\r\n\r\n{ TFields }\r\n\r\nconstructor TFields.Create(ADataset: TDataset);\r\n\r\nbegin\r\n  FDataSet:=ADataset;\r\n  FFieldList:=TFpList.Create;\r\n  FValidFieldKinds:=[fkData..fkInternalcalc];\r\nend;\r\n\r\ndestructor TFields.Destroy;\r\n\r\nbegin\r\n  if Assigned(FFieldList) then\r\n    Clear;\r\n  FreeAndNil(FFieldList);\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TFields.ClearFieldDefs;\r\n\r\nVar\r\n  i : Integer;\r\n\r\nbegin\r\n  For I:=0 to Count-1 do\r\n    Fields[i].FFieldDef:=Nil;\r\nend;\r\n\r\nprocedure TFields.Changed;\r\n\r\nbegin\r\n  // Removed FDataSet.Active check, needed for Persistent fields (see bug ID 30954)\r\n  if (FDataSet <> nil) and not (csDestroying in FDataSet.ComponentState) then\r\n    FDataSet.DataEvent(deFieldListChange, 0);\r\n  If Assigned(FOnChange) then\r\n    FOnChange(Self);\r\nend;\r\n\r\nprocedure TFields.CheckfieldKind(Fieldkind: TFieldKind; Field: TField);\r\n\r\nbegin\r\n  If Not (FieldKind in ValidFieldKinds) Then\r\n    DatabaseErrorFmt(SInvalidFieldKind,[Field.FieldName]);\r\nend;\r\n\r\nfunction TFields.GetCount: Longint;\r\n\r\nbegin\r\n  Result:=FFieldList.Count;\r\nend;\r\n\r\n\r\nfunction TFields.GetField(Index: Integer): TField;\r\n\r\nbegin\r\n  Result:=Tfield(FFieldList[Index]);\r\nend;\r\n\r\nprocedure TFields.SetField(Index: Integer; Value: TField);\r\nbegin\r\n  Fields[Index].Assign(Value);\r\nend;\r\n\r\nprocedure TFields.SetFieldIndex(Field: TField; Value: Integer);\r\nvar Old : Longint;\r\nbegin\r\n  Old := FFieldList.indexOf(Field);\r\n  If Old=-1 then\r\n    Exit;\r\n  // Check value\r\n  If Value<0 Then Value:=0;\r\n  If Value>=Count then Value:=Count-1;\r\n  If Value<>Old then\r\n    begin\r\n    FFieldList.Delete(Old);\r\n    FFieldList.Insert(Value,Field);\r\n    Field.PropertyChanged(True);\r\n    Changed;\r\n    end;\r\nend;\r\n\r\nprocedure TFields.Add(Field: TField);\r\n\r\nbegin\r\n  CheckFieldName(Field.FieldName);\r\n  FFieldList.Add(Field);\r\n  Field.FFields:=Self;\r\n  Changed;\r\nend;\r\n\r\nprocedure TFields.CheckFieldName(const Value: String);\r\n\r\nbegin\r\n  If FindField(Value)<>Nil then\r\n    DataBaseErrorFmt(SDuplicateFieldName,[Value],FDataset);\r\nend;\r\n\r\nprocedure TFields.CheckFieldNames(const Value: String);\r\n\r\nvar\r\n  N: String;\r\n  StrPos: Integer;\r\n\r\nbegin\r\n  if Value = '' then\r\n    Exit;\r\n  StrPos := 1;\r\n  repeat\r\n    N := ExtractFieldName(Value, StrPos);\r\n    // Will raise an error if no such field...\r\n    FieldByName(N);\r\n  until StrPos > Length(Value);\r\nend;\r\n\r\nprocedure TFields.Clear;\r\nvar\r\n  AField: TField;\r\nbegin\r\n  while FFieldList.Count > 0 do \r\n    begin\r\n    AField := TField(FFieldList.Last);\r\n    AField.FDataSet := Nil;\r\n    AField.Free;\r\n    FFieldList.Delete(FFieldList.Count - 1);\r\n    end;\r\n  Changed;\r\nend;\r\n\r\nfunction TFields.FindField(const Value: String): TField;\r\nvar S : String;\r\n    I : longint;\r\nbegin\r\n  S:=UpperCase(Value);\r\n  For I:=0 To FFieldList.Count-1 do\r\n  begin\r\n    Result:=TField(FFieldList[I]);\r\n    if S=UpperCase(Result.FieldName) then\r\n    begin\r\n      {$ifdef dsdebug}\r\n      Writeln ('Found field ',Value);\r\n      {$endif}\r\n      Exit;\r\n    end;\r\n  end;\r\n  Result:=Nil;\r\nend;\r\n\r\nfunction TFields.FieldByName(const Value: String): TField;\r\n\r\nbegin\r\n  Result:=FindField(Value);\r\n  If result=Nil then\r\n    DatabaseErrorFmt(SFieldNotFound,[Value],FDataset);\r\nend;\r\n\r\nfunction TFields.FieldByNumber(FieldNo: Integer): TField;\r\nvar i : Longint;\r\nbegin\r\n  For I:=0 to FFieldList.Count-1 do\r\n  begin\r\n    Result:=TField(FFieldList[I]);\r\n    if FieldNo=Result.FieldNo then\r\n      Exit;\r\n  end;\r\n  Result:=Nil;\r\nend;\r\n\r\nfunction TFields.GetEnumerator: TFieldsEnumerator;\r\n\r\nbegin\r\n  Result:=TFieldsEnumerator.Create(Self);\r\nend;\r\n\r\nprocedure TFields.GetFieldNames(Values: TStrings);\r\nvar i : longint;\r\nbegin\r\n  Values.Clear;\r\n  For I:=0 to FFieldList.Count-1 do\r\n    Values.Add(Tfield(FFieldList[I]).FieldName);\r\nend;\r\n\r\nfunction TFields.IndexOf(Field: TField): Longint;\r\n\r\nbegin\r\n  Result:=FFieldList.IndexOf(Field);\r\nend;\r\n\r\nprocedure TFields.Remove(Value : TField);\r\n\r\nbegin\r\n  FFieldList.Remove(Value);\r\n  Value.FFields := nil;\r\n  Changed;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    TDatalink\r\n  ---------------------------------------------------------------------}\r\n\r\nConstructor TDataLink.Create;\r\n\r\nbegin\r\n  Inherited Create;\r\n  FBufferCount:=1;\r\n  FFirstRecord := 0;\r\n  FDataSource := nil;\r\n  FDatasourceFixed:=False;\r\nend;\r\n\r\n\r\nDestructor TDataLink.Destroy;\r\n\r\nbegin\r\n  Factive:=False;\r\n  FEditing:=False;\r\n  FDataSourceFixed:=False;\r\n  DataSource:=Nil;\r\n  Inherited Destroy;\r\nend;\r\n\r\n\r\nProcedure TDataLink.ActiveChanged;\r\n\r\nbegin\r\n  FFirstRecord := 0;\r\nend;\r\n\r\nProcedure TDataLink.CheckActiveAndEditing;\r\n\r\nVar\r\n  B : Boolean;\r\n\r\nbegin\r\n  B:=Assigned(DataSource) and Not (DataSource.State in [dsInactive,dsOpening]);\r\n  If B<>FActive then\r\n    begin\r\n    FActive:=B;\r\n    ActiveChanged;\r\n    end;\r\n  B:=Assigned(DataSource) and (DataSource.State in dsEditModes) and Not FReadOnly;\r\n  If B<>FEditing Then\r\n    begin\r\n    FEditing:=B;\r\n    EditingChanged;\r\n    end;\r\nend;\r\n\r\n\r\nProcedure TDataLink.CheckBrowseMode;\r\n\r\nbegin\r\nend;\r\n\r\n\r\nFunction TDataLink.CalcFirstRecord(Index : Integer) : Integer;\r\nbegin\r\n  if DataSource.DataSet.FActiveRecord > FFirstRecord + Index + FBufferCount - 1 then\r\n    Result := DataSource.DataSet.FActiveRecord - (FFirstRecord + Index + FBufferCount - 1)\r\n  else if DataSource.DataSet.FActiveRecord < FFirstRecord + Index then\r\n    Result := DataSource.DataSet.FActiveRecord - (FFirstRecord + Index)\r\n  else Result := 0;\r\n  \r\n  Inc(FFirstRecord, Index + Result);\r\nend;\r\n\r\n\r\nProcedure TDataLink.CalcRange;\r\nvar\r\n    aMax, aMin: integer;\r\nbegin\r\n  aMin:= DataSet.FActiveRecord - FBufferCount + 1;\r\n  If aMin < 0 Then aMin:= 0;\r\n  aMax:= Dataset.FBufferCount - FBufferCount;\r\n  If aMax < 0 then aMax:= 0;\r\n\r\n  If aMax>DataSet.FActiveRecord Then aMax:=DataSet.FActiveRecord;\r\n  If FFirstRecord < aMin Then FFirstRecord:= aMin;\r\n  If FFirstrecord > aMax Then FFirstRecord:= aMax;\r\n\r\n  If (FfirstRecord<>0) And\r\n     (DataSet.FActiveRecord - FFirstRecord < FBufferCount -1) Then\r\n    Dec(FFirstRecord, 1);\r\n\r\nend;\r\n\r\nprocedure TDataLink.DataEvent(Event: TDataEvent; Info: JSValue);\r\nbegin\r\n  if Event = deUpdateState then\r\n    CheckActiveAndEditing\r\n  else if Active then\r\n    case Event of\r\n      deFieldChange, deRecordChange:\r\n        if not FUpdatingRecord then\r\n          RecordChanged(TField(Info));\r\n      deDataSetChange:\r\n      begin\r\n        SetActive(DataSource.DataSet.Active);\r\n        CalcRange;\r\n        CalcFirstRecord(Integer(Info));\r\n        DatasetChanged;\r\n      end;\r\n      deDataSetScroll: DatasetScrolled(CalcFirstRecord(Integer(Info)));\r\n      deLayoutChange:\r\n      begin\r\n        CalcFirstRecord(Integer(Info));\r\n        LayoutChanged;\r\n      end;\r\n      deUpdateRecord: UpdateRecord;\r\n      deCheckBrowseMode: CheckBrowseMode;\r\n      deFocusControl: FocusControl(Info);\r\n    end;\r\nend;\r\n\r\nprocedure TDataLink.DataSetChanged;\r\nbegin\r\n  RecordChanged(Nil);\r\nend;\r\n\r\nProcedure TDataLink.DataSetScrolled(Distance: Integer);\r\n\r\nbegin\r\n  DataSetChanged;\r\nend;\r\n\r\n\r\nProcedure TDataLink.EditingChanged;\r\n\r\nbegin\r\nend;\r\n\r\n\r\nProcedure TDataLink.FocusControl(Field: JSValue);\r\n\r\nbegin\r\nend;\r\n\r\n\r\nFunction TDataLink.GetActiveRecord: Integer;\r\n\r\nbegin\r\n  Result:=Dataset.FActiveRecord - FFirstRecord;\r\nend;\r\n\r\nFunction TDatalink.GetDataSet : TDataset;\r\n\r\nbegin\r\n  If Assigned(Datasource) then\r\n    Result:=DataSource.DataSet\r\n  else\r\n    Result:=Nil;  \r\nend;\r\n\r\n\r\nFunction TDataLink.GetBOF: Boolean;\r\n\r\nbegin\r\n  Result:=DataSet.BOF\r\nend;\r\n\r\n\r\nFunction TDataLink.GetBufferCount: Integer;\r\n\r\nbegin\r\n  Result:=FBufferCount;\r\nend;\r\n\r\n\r\nFunction TDataLink.GetEOF: Boolean;\r\n\r\nbegin\r\n  Result:=DataSet.EOF\r\nend;\r\n\r\n\r\nFunction TDataLink.GetRecordCount: Integer;\r\n\r\nbegin\r\n  Result:=Dataset.FRecordCount;\r\n  If Result>BufferCount then\r\n    Result:=BufferCount;\r\nend;\r\n\r\n\r\nProcedure TDataLink.LayoutChanged;\r\n\r\nbegin\r\n  DataSetChanged;\r\nend;\r\n\r\n\r\nFunction TDataLink.MoveBy(Distance: Integer): Integer;\r\n\r\nbegin\r\n  Result:=DataSet.MoveBy(Distance);\r\nend;\r\n\r\n\r\nProcedure TDataLink.RecordChanged(Field: TField);\r\n\r\nbegin\r\nend;\r\n\r\n\r\nProcedure TDataLink.SetActiveRecord(Value: Integer);\r\n\r\nbegin\r\n{$ifdef dsdebug}\r\n  Writeln('Datalink. Setting active record to ',Value,' with firstrecord ',ffirstrecord);\r\n{$endif}\r\n  Dataset.FActiveRecord:=Value + FFirstRecord;\r\nend;\r\n\r\n\r\nProcedure TDataLink.SetBufferCount(Value: Integer);\r\n\r\nbegin\r\n  If FBufferCount<>Value then\r\n    begin\r\n      FBufferCount:=Value;\r\n      if Active then begin\r\n        DataSet.RecalcBufListSize;\r\n        CalcRange;\r\n      end;\r\n    end;\r\nend;\r\n\r\nprocedure TDataLink.SetActive(AActive: Boolean);\r\nbegin\r\n  if Active <> AActive then\r\n  begin\r\n    FActive := AActive;\r\n    // !!!: Set internal state\r\n    ActiveChanged;\r\n  end;\r\nend;\r\n\r\nProcedure TDataLink.SetDataSource(Value : TDatasource);\r\n\r\nbegin\r\n  if FDataSource = Value then\r\n    Exit;\r\n  if not FDataSourceFixed then\r\n    begin\r\n    if Assigned(DataSource) then\r\n      Begin\r\n      DataSource.UnregisterDatalink(Self);\r\n      FDataSource := nil;\r\n      CheckActiveAndEditing;\r\n      End;\r\n    FDataSource := Value;\r\n    if Assigned(DataSource) then\r\n      begin\r\n      DataSource.RegisterDatalink(Self);\r\n      CheckActiveAndEditing;\r\n      End;\r\n    end;\r\nend;\r\n\r\nProcedure TDatalink.SetReadOnly(Value : Boolean);\r\n\r\nbegin\r\n  If FReadOnly<>Value then\r\n    begin\r\n    FReadOnly:=Value;\r\n    CheckActiveAndEditing;\r\n    end;\r\nend;\r\n\r\nProcedure TDataLink.UpdateData;\r\n\r\nbegin\r\nend;\r\n\r\n\r\n\r\nFunction TDataLink.Edit: Boolean;\r\n\r\nbegin\r\n  If Not FReadOnly then\r\n    DataSource.Edit;\r\n  // Triggered event will set FEditing\r\n  Result:=FEditing;\r\nend;\r\n\r\n\r\nProcedure TDataLink.UpdateRecord;\r\n\r\nbegin\r\n  FUpdatingRecord:=True;\r\n  Try\r\n    UpdateData;\r\n  finally\r\n    FUpdatingRecord:=False;\r\n  end;\r\nend;\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n    TDetailDataLink\r\n  ---------------------------------------------------------------------}\r\n\r\nFunction TDetailDataLink.GetDetailDataSet: TDataSet;\r\n\r\nbegin\r\n  Result := nil;\r\nend;\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n    TMasterDataLink\r\n  ---------------------------------------------------------------------}\r\n\r\nconstructor TMasterDataLink.Create(ADataSet: TDataSet);\r\n\r\nbegin\r\n  inherited Create;\r\n  FDetailDataSet:=ADataSet;\r\n  FFields:=TList.Create;\r\nend;\r\n\r\n\r\ndestructor TMasterDataLink.Destroy;\r\n\r\nbegin\r\n  FFields.Free;\r\n  inherited Destroy;\r\nend;\r\n\r\n\r\nProcedure TMasterDataLink.ActiveChanged;\r\n\r\nbegin\r\n  FFields.Clear;\r\n  if Active then\r\n    try\r\n      DataSet.GetFieldList(FFields, FFieldNames);\r\n    except\r\n      FFields.Clear;\r\n      raise;\r\n    end;\r\n  if FDetailDataSet.Active and not (csDestroying in FDetailDataSet.ComponentState) then\r\n    if Active and (FFields.Count > 0) then\r\n      DoMasterChange\r\n    else\r\n      DoMasterDisable;  \r\nend;\r\n\r\n\r\nProcedure TMasterDataLink.CheckBrowseMode;\r\n\r\nbegin\r\n  if FDetailDataSet.Active then FDetailDataSet.CheckBrowseMode;\r\nend;\r\n\r\n\r\nFunction TMasterDataLink.GetDetailDataSet: TDataSet;\r\n\r\nbegin\r\n  Result := FDetailDataSet;\r\nend;\r\n\r\n\r\nProcedure TMasterDataLink.LayoutChanged;\r\n\r\nbegin\r\n  ActiveChanged;\r\nend;\r\n\r\n\r\nProcedure TMasterDataLink.RecordChanged(Field: TField);\r\n\r\nbegin\r\n  if (DataSource.State <> dsSetKey) and FDetailDataSet.Active and\r\n     (FFields.Count > 0) and ((Field = nil) or\r\n     (FFields.IndexOf(Field) >= 0)) then\r\n    DoMasterChange;  \r\nend;\r\n\r\nprocedure TMasterDatalink.SetFieldNames(const Value: string);\r\n\r\nbegin\r\n  if FFieldNames <> Value then\r\n    begin\r\n    FFieldNames := Value;\r\n    ActiveChanged;\r\n    end;\r\nend;\r\n\r\nProcedure TMasterDataLink.DoMasterDisable; \r\n\r\nbegin\r\n  if Assigned(FOnMasterDisable) then \r\n    FOnMasterDisable(Self);\r\nend;\r\n\r\nProcedure TMasterDataLink.DoMasterChange; \r\n\r\nbegin\r\n  If Assigned(FOnMasterChange) then\r\n    FOnMasterChange(Self);\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    TMasterParamsDataLink\r\n  ---------------------------------------------------------------------}\r\n\r\nconstructor TMasterParamsDataLink.Create(ADataSet: TDataSet);\r\n\r\nVar\r\n  P : TParams;\r\n\r\nbegin\r\n  inherited Create(ADataset);\r\n  If (ADataset<>Nil) then\r\n    begin\r\n    P:=TParams(GetObjectProp(ADataset,'Params',TParams));\r\n    if (P<>Nil) then\r\n      Params:=P;\r\n    end;  \r\nend;\r\n\r\n\r\nProcedure TMasterParamsDataLink.SetParams(AValue : TParams);\r\n\r\nbegin\r\n  FParams:=AValue;\r\n  If (AValue<>Nil) then\r\n    RefreshParamNames;\r\nend;\r\n\r\nProcedure TMasterParamsDataLink.RefreshParamNames; \r\n\r\nVar\r\n  FN : String;\r\n  DS : TDataset;\r\n  F  : TField;\r\n  I : Integer;\r\n  P : TParam;\r\n\r\n\r\nbegin\r\n  FN:='';\r\n  DS:=Dataset;\r\n  If Assigned(FParams) then\r\n    begin\r\n    F:=Nil;\r\n    For I:=0 to FParams.Count-1 do\r\n      begin\r\n      P:=FParams[i];\r\n      if not P.Bound then\r\n        begin\r\n        If Assigned(DS) then\r\n          F:=DS.FindField(P.Name);\r\n        If (Not Assigned(DS)) or (not DS.Active) or (F<>Nil) then\r\n          begin\r\n          If (FN<>'') then\r\n            FN:=FN+';';\r\n          FN:=FN+P.Name;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  FieldNames:=FN;  \r\nend;\r\n\r\nProcedure TMasterParamsDataLink.CopyParamsFromMaster(CopyBound : Boolean);\r\n\r\nbegin\r\n  if Assigned(FParams) then\r\n    FParams.CopyParamValuesFromDataset(Dataset,CopyBound);\r\nend;\r\n\r\nProcedure TMasterParamsDataLink.DoMasterDisable; \r\n\r\nbegin\r\n  Inherited;\r\n  // If master dataset is closing, leave detail dataset intact (Delphi compatible behavior)\r\n  // If master dataset is reopened, relationship will be reestablished\r\nend;\r\n\r\nProcedure TMasterParamsDataLink.DoMasterChange; \r\n\r\nbegin\r\n  Inherited;\r\n  if Assigned(Params) and Assigned(DetailDataset) and DetailDataset.Active then\r\n    begin\r\n    DetailDataSet.CheckBrowseMode;\r\n    DetailDataset.Close;\r\n    DetailDataset.Open;\r\n    end;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n    TDatasource\r\n  ---------------------------------------------------------------------}\r\n\r\nConstructor TDataSource.Create(AOwner: TComponent);\r\n\r\nbegin\r\n  Inherited Create(AOwner);\r\n  FDatalinks := TList.Create;\r\n  FEnabled := True;\r\n  FAutoEdit := True;\r\nend;\r\n\r\n\r\nDestructor TDataSource.Destroy;\r\n\r\nbegin\r\n  FOnStateCHange:=Nil;\r\n  Dataset:=Nil;\r\n  With FDataLinks do\r\n    While Count>0 do\r\n      TDatalink(Items[Count - 1]).DataSource:=Nil;\r\n  FDatalinks.Free;\r\n  inherited Destroy;\r\nend;\r\n\r\n\r\nProcedure TDatasource.Edit;\r\n\r\nbegin\r\n  If (State=dsBrowse) and AutoEdit Then\r\n    Dataset.Edit;\r\nend;\r\n\r\n\r\nFunction TDataSource.IsLinkedTo(ADataSet: TDataSet): Boolean;\r\n\r\nbegin\r\n  Result:=False;\r\nend;\r\n\r\n\r\nprocedure TDatasource.DistributeEvent(Event: TDataEvent; Info: JSValue);\r\n\r\n\r\nVar\r\n  i : Longint;\r\n\r\nbegin\r\n  With FDatalinks do\r\n    begin\r\n    For I:=0 to Count-1 do\r\n      With TDatalink(Items[i]) do\r\n        If Not VisualControl Then\r\n          DataEvent(Event,Info);\r\n    For I:=0 to Count-1 do\r\n      With TDatalink(Items[i]) do\r\n        If VisualControl Then\r\n          DataEvent(Event,Info);\r\n    end;\r\nend;\r\n\r\nprocedure TDatasource.RegisterDataLink(DataLink: TDataLink);\r\n\r\nbegin\r\n  FDatalinks.Add(DataLink);\r\n  if Assigned(DataSet) then\r\n    DataSet.RecalcBufListSize;\r\nend;\r\n\r\n\r\nprocedure TDatasource.SetDataSet(ADataSet: TDataSet);\r\nbegin\r\n  If FDataset<>Nil Then\r\n    Begin\r\n    FDataset.UnRegisterDataSource(Self);\r\n    FDataSet:=nil;\r\n    ProcessEvent(deUpdateState,0);\r\n    End;\r\n  If ADataset<>Nil Then\r\n    begin\r\n    ADataset.RegisterDatasource(Self);\r\n    FDataSet:=ADataset;\r\n    ProcessEvent(deUpdateState,0);\r\n    End;\r\nend;\r\n\r\n\r\nprocedure TDatasource.SetEnabled(Value: Boolean);\r\nbegin\r\n  FEnabled:=Value;\r\n  ProcessEvent(deUpdateState,0);\r\nend;\r\n\r\nprocedure TDatasource.DoDataChange (Info : Pointer);\r\nbegin\r\n  if Assigned(OnDataChange) then\r\n    if Assigned(Info) Then\r\n      OnDataChange(Self, TField(Info))\r\n    else\r\n      OnDataChange(Self, nil);\r\nend;\r\n\r\nprocedure TDatasource.DoStateChange;\r\nbegin\r\n  If Assigned(OnStateChange) Then\r\n    OnStateChange(Self);\r\nend;\r\n\r\nprocedure TDatasource.DoUpdateData;\r\nbegin\r\n  If Assigned(OnUpdateData) Then\r\n    OnUpdateData(Self);\r\nend;\r\n\r\n\r\nprocedure TDatasource.UnregisterDataLink(DataLink: TDataLink);\r\n\r\nbegin\r\n  FDatalinks.Remove(Datalink);\r\n  If Dataset<>Nil then\r\n    DataSet.RecalcBufListSize;\r\n  //Dataset.SetBufListSize(DataLink.BufferCount);\r\nend;\r\n\r\n\r\nprocedure TDataSource.ProcessEvent(Event : TDataEvent; Info : JSValue);\r\n\r\nConst\r\n    OnDataChangeEvents = [deRecordChange, deDataSetChange, deDataSetScroll,\r\n                          deLayoutChange,deUpdateState];\r\n\r\nVar\r\n  NeedDataChange : Boolean;\r\n  FLastState : TdataSetState;\r\n\r\nbegin\r\n  // Special UpdateState handling.\r\n  If Event=deUpdateState then\r\n    begin\r\n    NeedDataChange:=(FState=dsInactive);\r\n    FLastState:=FState;\r\n    If Assigned(Dataset) and enabled then\r\n      FState:=Dataset.State\r\n    else\r\n      FState:=dsInactive;\r\n    // Don't do events if nothing changed.\r\n    If FState=FLastState then\r\n      exit;\r\n    end\r\n  else\r\n    NeedDataChange:=True;\r\n  DistributeEvent(Event,Info);\r\n  // Extra handlers\r\n  If Not (csDestroying in ComponentState) then\r\n    begin\r\n    If (Event=deUpdateState) then\r\n      DoStateChange;\r\n    If (Event in OnDataChangeEvents) and\r\n       NeedDataChange Then\r\n      DoDataChange(Nil);\r\n    If (Event = deFieldChange) Then\r\n      DoDataCHange(Pointer(Info));\r\n    If (Event=deUpdateRecord) then\r\n      DoUpdateData;\r\n    end;\r\n end;\r\n\r\n\r\nprocedure SkipQuotesString(S : String; var p : integer; QuoteChar : char; EscapeSlash, EscapeRepeat : Boolean);\r\n\r\nvar notRepeatEscaped : boolean;\r\nbegin\r\n  Inc(p);\r\n  repeat\r\n    notRepeatEscaped := True;\r\n    while not CharInSet(S[p],[#0, QuoteChar]) do\r\n      begin\r\n      if EscapeSlash and (S[p]='\\') and (P<Length(S)) then\r\n        Inc(p,2) // make sure we handle \\' and \\\\ correct\r\n      else\r\n        Inc(p);\r\n      end;\r\n    if S[p]=QuoteChar then\r\n      begin\r\n      Inc(p); // skip final '\r\n      if (S[p]=QuoteChar) and EscapeRepeat then // Handle escaping by ''\r\n        begin\r\n        notRepeatEscaped := False;\r\n        inc(p);\r\n        end\r\n      end;\r\n  until notRepeatEscaped;\r\nend;\r\n\r\n\r\n{ TParams }\r\n\r\nfunction TParams.Add: TParam;\r\nbegin\r\n  Result := TParam(inherited Add)\r\nend;\r\n\r\nFunction TParams.GetItem(Index: Integer): TParam;\r\nbegin\r\n  Result:=(Inherited GetItem(Index)) as TParam;\r\nend;\r\n\r\nFunction TParams.GetParamValue(const ParamName: string): JSValue;\r\nbegin\r\n  Result:=ParamByName(ParamName).Value;\r\nend;\r\n\r\nProcedure TParams.SetItem(Index: Integer; Value: TParam);\r\nbegin\r\n  Inherited SetItem(Index,Value);\r\nend;\r\n\r\nProcedure TParams.SetParamValue(const ParamName: string; const Value: JSValue);\r\nbegin\r\n  ParamByName(ParamName).Value:=Value;\r\nend;\r\n\r\nProcedure TParams.AssignTo(Dest: TPersistent);\r\nbegin\r\n if (Dest is TParams) then\r\n   TParams(Dest).Assign(Self)\r\n else\r\n   inherited AssignTo(Dest);\r\nend;\r\n\r\nFunction TParams.GetDataSet: TDataSet;\r\nbegin\r\n  If (FOwner is TDataset) Then\r\n    Result:=TDataset(FOwner)\r\n  else\r\n    Result:=Nil;\r\nend;\r\n\r\nFunction TParams.GetOwner: TPersistent;\r\nbegin\r\n  Result:=FOwner;\r\nend;\r\n\r\nClass Function TParams.ParamClass: TParamClass;\r\nbegin\r\n  Result:=TParam;\r\nend;\r\n\r\nConstructor TParams.Create(AOwner: TPersistent; AItemClass: TCollectionItemClass\r\n  );\r\nbegin\r\n  Inherited Create(AItemClass);\r\n  FOwner:=AOwner;\r\nend;\r\n\r\n\r\nConstructor TParams.Create(AOwner: TPersistent);\r\nbegin\r\n  Create(AOwner,ParamClass);\r\nend;\r\n\r\nConstructor TParams.Create;\r\nbegin\r\n  Create(Nil);\r\nend;\r\n\r\nProcedure TParams.AddParam(Value: TParam);\r\nbegin\r\n  Value.Collection:=Self;\r\nend;\r\n\r\nProcedure TParams.AssignValues(Value: TParams);\r\n\r\nVar\r\n  I : Integer;\r\n  P,PS : TParam;\r\n\r\nbegin\r\n  For I:=0 to Value.Count-1 do\r\n    begin\r\n    PS:=Value[i];\r\n    P:=FindParam(PS.Name);\r\n    If Assigned(P) then\r\n      P.Assign(PS);\r\n    end;\r\nend;\r\n\r\nFunction TParams.CreateParam(FldType: TFieldType; const ParamName: string;\r\n  ParamType: TParamType): TParam;\r\n\r\nbegin\r\n  Result:=Add as TParam;\r\n  Result.Name:=ParamName;\r\n  Result.DataType:=FldType;\r\n  Result.ParamType:=ParamType;\r\nend;\r\n\r\nFunction TParams.FindParam(const Value: string): TParam;\r\n\r\nVar\r\n  I : Integer;\r\n\r\nbegin\r\n  Result:=Nil;\r\n  I:=Count-1;\r\n  While (Result=Nil) and (I>=0) do\r\n    If (CompareText(Value,Items[i].Name)=0) then\r\n      Result:=Items[i]\r\n    else\r\n      Dec(i);\r\nend;\r\n\r\nProcedure TParams.GetParamList(List: TList; const ParamNames: string);\r\n\r\nVar\r\n  P: TParam;\r\n  N: String;\r\n  StrPos: Integer;\r\n\r\nbegin\r\n  if (ParamNames = '') or (List = nil) then\r\n    Exit;\r\n  StrPos := 1;\r\n  repeat\r\n    N := ExtractFieldName(ParamNames, StrPos);\r\n    P := ParamByName(N);\r\n    List.Add(P);\r\n  until StrPos > Length(ParamNames);\r\nend;\r\n\r\nFunction TParams.IsEqual(Value: TParams): Boolean;\r\n\r\nVar\r\n  I : Integer;\r\n\r\nbegin\r\n  Result:=(Value.Count=Count);\r\n  I:=Count-1;\r\n  While Result and (I>=0) do\r\n    begin\r\n    Result:=Items[I].IsEqual(Value[i]);\r\n    Dec(I);\r\n    end;\r\nend;\r\n\r\nFunction TParams.ParamByName(const Value: string): TParam;\r\nbegin\r\n  Result:=FindParam(Value);\r\n  If (Result=Nil) then\r\n    DatabaseErrorFmt(SParameterNotFound,[Value],Dataset);\r\nend;\r\n\r\nFunction TParams.ParseSQL(SQL: String; DoCreate: Boolean): String;\r\n\r\nvar pb : TParamBinding;\r\n    rs : string;\r\n\r\nbegin\r\n  Result := ParseSQL(SQL,DoCreate,True,True,psInterbase, pb, rs);\r\nend;\r\n\r\nFunction TParams.ParseSQL(SQL: String; DoCreate, EscapeSlash,\r\n  EscapeRepeat: Boolean; ParameterStyle: TParamStyle): String;\r\n\r\nvar pb : TParamBinding;\r\n    rs : string;\r\n\r\nbegin\r\n  Result := ParseSQL(SQL,DoCreate,EscapeSlash,EscapeRepeat,ParameterStyle,pb, rs);\r\nend;\r\n\r\nFunction TParams.ParseSQL(SQL: String; DoCreate, EscapeSlash,\r\n  EscapeRepeat: Boolean; ParameterStyle: TParamStyle; out\r\n  ParamBinding: TParambinding): String;\r\n\r\nvar rs : string;\r\n\r\nbegin\r\n  Result := ParseSQL(SQL,DoCreate,EscapeSlash, EscapeRepeat, ParameterStyle,ParamBinding, rs);\r\nend;\r\n\r\nfunction SkipComments(S : String; Var p: Integer; EscapeSlash, EscapeRepeat : Boolean) : Boolean;\r\n\r\nbegin\r\n  Result := False;\r\n  case S[P] of\r\n  '''', '\"', '`':\r\n    begin\r\n    Result := True;\r\n    // single quote, double quote or backtick delimited string\r\n    SkipQuotesString(S,p, S[p], EscapeSlash, EscapeRepeat);\r\n    end;\r\n  '-': // possible start of -- comment\r\n    begin\r\n    Inc(p);\r\n    if S[p]='-' then // -- comment\r\n      begin\r\n      Result := True;\r\n      repeat // skip until at end of line\r\n        Inc(p);\r\n      until CharInset(S[p],[#10, #13, #0]);\r\n      while CharInSet(S[p],[#10, #13]) do\r\n        Inc(p); // newline is part of comment\r\n      end;\r\n    end;\r\n  '/': // possible start of /* */ comment\r\n    begin\r\n    Inc(p);\r\n    if S[p]='*' then // /* */ comment\r\n      begin\r\n      Result := True;\r\n      Inc(p);\r\n      while p<=Length(S) do\r\n        begin\r\n        if S[p]='*' then // possible end of comment\r\n          begin\r\n          Inc(p);\r\n          if S[p]='/' then Break; // end of comment\r\n          end\r\n        else\r\n          Inc(p);\r\n        end;\r\n      if (P<=Length(s)) and (S[p]='/') then\r\n        Inc(p); // skip final /\r\n      end;\r\n    end;\r\n  end; {case}\r\nend;\r\n\r\nFunction TParams.ParseSQL(SQL: String; DoCreate, EscapeSlash,\r\n  EscapeRepeat: Boolean; ParameterStyle: TParamStyle; out\r\n  ParamBinding: TParambinding; out ReplaceString: string): String;\r\n\r\ntype\r\n  // used for ParamPart\r\n  TStringPart = record\r\n    Start,Stop:integer;\r\n  end;\r\n\r\nconst\r\n  ParamAllocStepSize = 8;\r\n  PAramDelimiters : Array of char = (';',',',' ','(',')',#13,#10,#9,#0,'=','+','-','*','\\','/','[',']','|');\r\n\r\nvar\r\n  IgnorePart:boolean;\r\n  p,ParamNameStart,BufStart:Integer;\r\n  ParamName:string;\r\n  QuestionMarkParamCount,ParameterIndex,NewLength:integer;\r\n  ParamCount:integer; // actual number of parameters encountered so far;\r\n                      // always <= Length(ParamPart) = Length(Parambinding)\r\n                      // Parambinding will have length ParamCount in the end\r\n  ParamPart:array of TStringPart; // describe which parts of buf are parameters\r\n  NewQueryLength:integer;\r\n  NewQuery:string;\r\n  NewQueryIndex,BufIndex,CopyLen,i:integer;    // Parambinding will have length ParamCount in the end\r\n  tmpParam:TParam;\r\n\r\nbegin\r\n  if DoCreate then Clear;\r\n  // Parse the SQL and build ParamBinding\r\n  ParamCount:=0;\r\n  NewQueryLength:=Length(SQL);\r\n  SetLength(ParamPart,ParamAllocStepSize);\r\n  SetLength(ParamBinding,ParamAllocStepSize);\r\n  QuestionMarkParamCount:=0; // number of ? params found in query so far\r\n\r\n  ReplaceString := '$';\r\n  if ParameterStyle = psSimulated then\r\n    while pos(ReplaceString,SQL) > 0 do ReplaceString := ReplaceString+'$';\r\n\r\n  p:=1;\r\n  BufStart:=p; // used to calculate ParamPart.Start values\r\n  repeat\r\n    while SkipComments(SQL,p,EscapeSlash,EscapeRepeat) do ;\r\n    case SQL[p] of\r\n    ':','?': // parameter\r\n      begin\r\n      IgnorePart := False;\r\n      if SQL[p]=':' then\r\n        begin // find parameter name\r\n        Inc(p);\r\n        if charInSet(SQL[p],[':','=',' ']) then  // ignore ::, since some databases uses this as a cast (wb 4813)\r\n          begin\r\n          IgnorePart := True;\r\n          Inc(p);\r\n          end\r\n        else\r\n          begin\r\n          if (SQL[p]='\"') then // Check if the parameter-name is between quotes\r\n             begin\r\n             ParamNameStart:=p;\r\n             SkipQuotesString(SQL,p,'\"',EscapeSlash,EscapeRepeat);\r\n             // Do not include the quotes in ParamName, but they must be included\r\n             // when the parameter is replaced by some place-holder.\r\n             ParamName:=Copy(SQL,ParamNameStart+1,p-ParamNameStart-2);\r\n             end\r\n          else\r\n             begin\r\n             ParamNameStart:=p;\r\n             while not CharInSet(SQL[p], ParamDelimiters) do\r\n               Inc(p);\r\n             ParamName:=Copy(SQL,ParamNameStart,p-ParamNameStart);\r\n             end;\r\n          end;\r\n        end\r\n      else\r\n        begin\r\n        Inc(p);\r\n        ParamNameStart:=p;\r\n        ParamName:='';\r\n        end;\r\n      if not IgnorePart then\r\n        begin\r\n        Inc(ParamCount);\r\n        if ParamCount>Length(ParamPart) then\r\n          begin\r\n          NewLength:=Length(ParamPart)+ParamAllocStepSize;\r\n          SetLength(ParamPart,NewLength);\r\n          SetLength(ParamBinding,NewLength);\r\n          end;\r\n        if DoCreate then\r\n          begin\r\n          // Check if this is the first occurance of the parameter\r\n          tmpParam := FindParam(ParamName);\r\n          // If so, create the parameter and assign the Parameterindex\r\n          if not assigned(tmpParam) then\r\n            ParameterIndex := CreateParam(ftUnknown, ParamName, ptInput).Index\r\n          else  // else only assign the ParameterIndex\r\n            ParameterIndex := tmpParam.Index;\r\n          end\r\n        // else find ParameterIndex\r\n        else\r\n          begin\r\n          if ParamName<>'' then\r\n            ParameterIndex:=ParamByName(ParamName).Index\r\n          else\r\n            begin\r\n            ParameterIndex:=QuestionMarkParamCount;\r\n            Inc(QuestionMarkParamCount);\r\n            end;\r\n          end;\r\n        if ParameterStyle in [psPostgreSQL,psSimulated] then\r\n          begin\r\n          i:=ParameterIndex+1;\r\n          repeat\r\n            inc(NewQueryLength);\r\n            i:=i div 10;\r\n          until i=0;\r\n          end;\r\n        // store ParameterIndex in FParamIndex, ParamPart data\r\n        ParamBinding[ParamCount-1]:=ParameterIndex;\r\n        ParamPart[ParamCount-1].Start:=ParamNameStart-BufStart;\r\n        ParamPart[ParamCount-1].Stop:=p-BufStart+1;\r\n        // update NewQueryLength\r\n        Dec(NewQueryLength,p-ParamNameStart);\r\n        end;\r\n      end;\r\n    #0:\r\n      Break; // end of SQL\r\n    else\r\n      Inc(p);\r\n    end;\r\n  until false;\r\n  SetLength(ParamPart,ParamCount);\r\n  SetLength(ParamBinding,ParamCount);\r\n  if ParamCount<=0 then\r\n    NewQuery:=SQL\r\n  else\r\n    begin\r\n    // replace :ParamName by ? for interbase and by $x for postgresql/psSimulated\r\n    // (using ParamPart array and NewQueryLength)\r\n    if (ParameterStyle = psSimulated) and (length(ReplaceString) > 1) then\r\n      inc(NewQueryLength,(paramcount)*(length(ReplaceString)-1));\r\n\r\n    SetLength(NewQuery,NewQueryLength);\r\n    NewQueryIndex:=1;\r\n    BufIndex:=1;\r\n    for i:=0 to High(ParamPart) do\r\n      begin\r\n      CopyLen:=ParamPart[i].Start-BufIndex;\r\n      NewQuery:=NewQuery+Copy(SQL,BufIndex,CopyLen);\r\n      Inc(NewQueryIndex,CopyLen);\r\n      case ParameterStyle of\r\n        psInterbase : begin\r\n                        NewQuery:=NewQuery+'?';\r\n                        Inc(NewQueryIndex);\r\n                      end;\r\n        psPostgreSQL,\r\n        psSimulated : begin\r\n                      ParamName := IntToStr(ParamBinding[i]+1);\r\n                      NewQuery:=StringOfChar('$',Length(ReplaceString));\r\n                      NewQuery:=NewQuery+ParamName;\r\n                      end;\r\n      end;\r\n      BufIndex:=ParamPart[i].Stop;\r\n    end;\r\n    CopyLen:=Length(SQL)+1-BufIndex;\r\n    if (CopyLen>0) then\r\n      NewQuery:=NewQuery+Copy(SQL,BufIndex,CopyLen);\r\n    end;\r\n  Result:=NewQuery;\r\nend;\r\n\r\n\r\nProcedure TParams.RemoveParam(Value: TParam);\r\nbegin\r\n   Value.Collection:=Nil;\r\nend;\r\n\r\n{ TParam }\r\n\r\nFunction TParam.GetDataSet: TDataSet;\r\nbegin\r\n  If Assigned(Collection) and (Collection is TParams) then\r\n    Result:=TParams(Collection).GetDataset\r\n  else\r\n    Result:=Nil;\r\nend;\r\n\r\nFunction TParam.IsParamStored: Boolean;\r\nbegin\r\n  Result:=Bound;\r\nend;\r\n\r\nProcedure TParam.AssignParam(Param: TParam);\r\nbegin\r\n  if Not Assigned(Param) then\r\n    begin\r\n    Clear;\r\n    FDataType:=ftunknown;\r\n    FParamType:=ptUnknown;\r\n    Name:='';\r\n    Size:=0;\r\n    Precision:=0;\r\n    NumericScale:=0;\r\n    end\r\n  else\r\n    begin\r\n    FDataType:=Param.DataType;\r\n    if Param.IsNull then\r\n      Clear\r\n    else\r\n      FValue:=Param.FValue;\r\n    FBound:=Param.Bound;\r\n    Name:=Param.Name;\r\n    if (ParamType=ptUnknown) then\r\n      ParamType:=Param.ParamType;\r\n    Size:=Param.Size;\r\n    Precision:=Param.Precision;\r\n    NumericScale:=Param.NumericScale;\r\n    end;\r\nend;\r\n\r\nProcedure TParam.AssignTo(Dest: TPersistent);\r\nbegin\r\n  if (Dest is TField) then\r\n    AssignToField(TField(Dest))\r\n  else\r\n    inherited AssignTo(Dest);\r\nend;\r\n\r\nFunction TParam.GetAsBoolean: Boolean;\r\nbegin\r\n  if not IsNull and (FDataType = ftString) then\r\n  begin\r\n    Result := StrToBool(string(FValue));\r\n  end\r\n  else\r\n  begin\r\n    If IsNull then\r\n      Result:=False\r\n    else\r\n      Result:=FValue=true;\r\n  end;\r\nend;\r\n\r\nFunction TParam.GetAsBytes: TBytes;\r\nbegin\r\n  if IsNull then\r\n    Result:=nil\r\n  else if isArray(FValue) then\r\n    Result := TBytes(FValue)\r\nend;\r\n\r\nFunction TParam.GetAsDateTime: TDateTime;\r\nbegin\r\n  if not IsNull and (FDataType = ftString) then\r\n  begin\r\n    Result := StrToDateTime(string(FValue));\r\n  end\r\n  else\r\n  begin\r\n    If IsNull then\r\n      Result := 0.0\r\n    else\r\n      Result := TDateTime(FValue);\r\n  end;\r\nend;\r\n\r\nFunction TParam.GetAsFloat: Double;\r\nbegin\r\n  if not IsNull and (FDataType = ftString) then\r\n  begin\r\n    Result := StrToFloat(string(FValue));\r\n  end\r\n  else\r\n  begin\r\n    If IsNull then\r\n      Result := 0.0\r\n    else\r\n      Result := Double(FValue);\r\n  end;\r\nend;\r\n\r\nFunction TParam.GetAsInteger: Longint;\r\nbegin\r\n  if not IsNull and (FDataType = ftString) then\r\n  begin\r\n    Result := StrToInt(string(FValue));\r\n  end\r\n  else\r\n  begin\r\n    If IsNull or not IsInteger(FValue) then\r\n      Result := 0\r\n    else\r\n      Result := Integer(FValue);\r\n  end;\r\nend;\r\n\r\nFunction TParam.GetAsLargeInt: NativeInt;\r\nbegin\r\n  if not IsNull and (FDataType = ftString) then\r\n  begin\r\n    Result := StrToInt(string(FValue));\r\n  end\r\n  else\r\n  begin\r\n    If IsNull or not IsInteger(FValue) then\r\n      Result:=0\r\n    else\r\n      Result:=NativeInt(FValue);\r\n  end;\r\nend;\r\n\r\n\r\nFunction TParam.GetAsMemo: string;\r\nbegin\r\n  If IsNull or not IsString(FValue) then\r\n    Result:=''\r\n  else\r\n    Result:=String(FValue);\r\nend;\r\n\r\nFunction TParam.GetAsString: string;\r\n\r\nbegin\r\n  If IsNull or not IsString(FValue) then\r\n    Result:=''\r\n  else\r\n    Result:=String(FValue);\r\nend;\r\n\r\nFunction TParam.GetAsJSValue: JSValue;\r\nbegin\r\n  if IsNull then\r\n    Result:=Null\r\n  else\r\n    Result:=FValue;\r\nend;\r\nFunction TParam.GetDisplayName: string;\r\nbegin\r\n  if (FName<>'') then\r\n    Result:=FName\r\n  else\r\n    Result:=inherited GetDisplayName\r\nend;\r\n\r\nFunction TParam.GetIsNull: Boolean;\r\nbegin\r\n  Result:= JS.IsNull(FValue);\r\nend;\r\n\r\nFunction TParam.IsEqual(AValue: TParam): Boolean;\r\nbegin\r\n  Result:=(Name=AValue.Name)\r\n          and (IsNull=AValue.IsNull)\r\n          and (Bound=AValue.Bound)\r\n          and (DataType=AValue.DataType)\r\n          and (ParamType=AValue.ParamType)\r\n          and (GetValueType(FValue)=GetValueType(AValue.FValue))\r\n          and (FValue=AValue.FValue);\r\nend;\r\n\r\nProcedure TParam.SetAsBlob(const AValue: TBlobData);\r\nbegin\r\n  FDataType:=ftBlob;\r\n  Value:=AValue;\r\nend;\r\n\r\nProcedure TParam.SetAsBoolean(AValue: Boolean);\r\nbegin\r\n  FDataType:=ftBoolean;\r\n  Value:=AValue;\r\nend;\r\n\r\nprocedure TParam.SetAsBytes(const AValue: TBytes);\r\nbegin\r\n\r\nend;\r\n\r\nProcedure TParam.SetAsDate(const AValue: TDateTime);\r\nbegin\r\n  FDataType:=ftDate;\r\n  Value:=AValue;\r\nend;\r\n\r\nProcedure TParam.SetAsDateTime(const AValue: TDateTime);\r\nbegin\r\n  FDataType:=ftDateTime;\r\n  Value:=AValue;\r\nend;\r\n\r\nProcedure TParam.SetAsFloat(const AValue: Double);\r\nbegin\r\n  FDataType:=ftFloat;\r\n  Value:=AValue;\r\nend;\r\n\r\nProcedure TParam.SetAsInteger(AValue: Longint);\r\nbegin\r\n  FDataType:=ftInteger;\r\n  Value:=AValue;\r\nend;\r\n\r\nProcedure TParam.SetAsLargeInt(AValue: NativeInt);\r\nbegin\r\n  FDataType:=ftLargeint;\r\n  Value:=AValue;\r\nend;\r\n\r\nProcedure TParam.SetAsMemo(const AValue: string);\r\nbegin\r\n  FDataType:=ftMemo;\r\n  Value:=AValue;\r\nend;\r\n\r\nProcedure TParam.SetAsString(const AValue: string);\r\nbegin\r\n  if FDataType <> ftFixedChar then\r\n    FDataType := ftString;\r\n  Value:=AValue;\r\nend;\r\n\r\n\r\nProcedure TParam.SetAsTime(const AValue: TDateTime);\r\nbegin\r\n  FDataType:=ftTime;\r\n  Value:=AValue;\r\nend;\r\n\r\nProcedure TParam.SetAsJSValue(const AValue: JSValue);\r\n\r\nbegin\r\n  FValue:=AValue;\r\n  FBound:=not JS.IsNull(AValue);\r\n  if FBound then\r\n    case GetValueType(aValue) of\r\n      jvtBoolean : FDataType:=ftBoolean;\r\n      jvtInteger : FDataType:=ftInteger;\r\n      jvtFloat : FDataType:=ftFloat;\r\n      jvtObject,jvtArray : FDataType:=ftBlob;\r\n    end;\r\nend;\r\n\r\nProcedure TParam.SetDataType(AValue: TFieldType);\r\n\r\n\r\nbegin\r\n  FDataType:=AValue;\r\n\r\nend;\r\n\r\nProcedure TParam.SetText(const AValue: string);\r\nbegin\r\n  Value:=AValue;\r\nend;\r\n\r\nconstructor TParam.Create(ACollection: TCollection);\r\nbegin\r\n  inherited Create(ACollection);\r\n  ParamType:=ptUnknown;\r\n  DataType:=ftUnknown;\r\n  FValue:=Null;\r\nend;\r\n\r\nconstructor TParam.Create(AParams: TParams; AParamType: TParamType);\r\nbegin\r\n  Create(AParams);\r\n  ParamType:=AParamType;\r\nend;\r\n\r\nProcedure TParam.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TParam) then\r\n    AssignParam(TParam(Source))\r\n  else if (Source is TField) then\r\n    AssignField(TField(Source))\r\n  else if (source is TStrings) then\r\n    AsMemo:=TStrings(Source).Text\r\n  else\r\n    inherited Assign(Source);\r\nend;\r\n\r\nProcedure TParam.AssignField(Field: TField);\r\nbegin\r\n  if Assigned(Field) then\r\n    begin\r\n    // Need TField.Value\r\n    AssignFieldValue(Field,Field.Value);\r\n    Name:=Field.FieldName;\r\n    end\r\n  else\r\n    begin\r\n    Clear;\r\n    Name:='';\r\n    end\r\nend;\r\n\r\nProcedure TParam.AssignToField(Field : TField);\r\n\r\nbegin\r\n  if Assigned(Field) then\r\n    case FDataType of\r\n      ftUnknown  : DatabaseErrorFmt(SUnknownParamFieldType,[Name],DataSet);\r\n      // Need TField.AsSmallInt\r\n      // Need TField.AsWord\r\n      ftInteger,\r\n      ftAutoInc  : Field.AsInteger:=AsInteger;\r\n      ftFloat    : Field.AsFloat:=AsFloat;\r\n      ftBoolean  : Field.AsBoolean:=AsBoolean;\r\n      ftBlob,\r\n      ftString,\r\n      ftWideString,\r\n      ftMemo,\r\n      ftFixedChar: Field.AsString:=AsString;\r\n      ftTime,\r\n      ftDate,\r\n      ftDateTime : Field.AsDateTime:=AsDateTime;\r\n    end;\r\nend;\r\n\r\nProcedure TParam.AssignFromField(Field : TField);\r\n\r\nbegin\r\n  if Assigned(Field) then\r\n    begin\r\n    FDataType:=Field.DataType;\r\n    case Field.DataType of\r\n      ftUnknown  : DatabaseErrorFmt(SUnknownParamFieldType,[Name],DataSet);\r\n      ftInteger,\r\n      ftAutoInc  : AsInteger:=Field.AsInteger;\r\n      ftFloat    : AsFloat:=Field.AsFloat;\r\n      ftBoolean  : AsBoolean:=Field.AsBoolean;\r\n      ftBlob,\r\n      ftString,\r\n      ftWideString,\r\n      ftMemo,\r\n      ftFixedChar: AsString:=Field.AsString;\r\n      ftTime,\r\n      ftDate,\r\n      ftDateTime : AsDateTime:=Field.AsDateTime;\r\n    end;\r\n    end;\r\nend;\r\n\r\nProcedure TParam.AssignFieldValue(Field: TField; const AValue: JSValue);\r\n\r\nbegin\r\n  If Assigned(Field) then\r\n    begin\r\n\r\n    if (Field.DataType = ftString) and TStringField(Field).FixedChar then\r\n      FDataType := ftFixedChar\r\n    else if (Field.DataType = ftMemo) and (Field.Size > 255) then\r\n      FDataType := ftString\r\n    else\r\n      FDataType := Field.DataType;\r\n    if JS.IsNull(AValue) then\r\n      Clear\r\n    else\r\n      Value:=AValue;\r\n\r\n    Size:=Field.DataSize;\r\n    FBound:=True;\r\n\r\n    end;\r\nend;\r\n\r\nProcedure TParam.Clear;\r\nbegin\r\n  FValue:=Null;\r\nend;\r\n\r\n\r\nProcedure TParams.CopyParamValuesFromDataset(ADataSet: TDataSet;\r\n  CopyBound: Boolean);\r\n\r\nVar\r\n  I : Integer;\r\n  P : TParam;\r\n  F : TField;\r\n\r\nbegin\r\n  If assigned(ADataSet) then\r\n    For I:=0 to Count-1 do\r\n     begin\r\n     P:=Items[i];\r\n     if CopyBound or (not P.Bound) then\r\n       begin\r\n       // Master dataset must be active and unbound parameters must have fields\r\n       // with same names in master dataset (Delphi compatible behavior)\r\n       F:=ADataSet.FieldByName(P.Name);\r\n       P.AssignField(F);\r\n       If Not CopyBound then\r\n         P.Bound:=False;\r\n       end;\r\n    end;\r\nend;\r\n\r\n{ TDataSetField }\r\n\r\nconstructor TDataSetField.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n\r\n  SetDataType(ftDataSet);\r\nend;\r\n\r\nprocedure TDataSetField.Bind(Binding: Boolean);\r\nbegin\r\n  inherited;\r\n  if Assigned(FNestedDataSet) then\r\n    if Binding then\r\n    begin\r\n      if FNestedDataSet.State = dsInActive then\r\n        FNestedDataSet.Open;\r\n    end\r\n    else\r\n      FNestedDataSet.Close;\r\nend;\r\n\r\nprocedure TDataSetField.AssignNestedDataSet(Value: TDataSet);\r\nbegin\r\n  if Assigned(FNestedDataSet) then\r\n  begin\r\n    FNestedDataSet.Close;\r\n    FNestedDataSet.FDataSetField := nil;\r\n    if Assigned(DataSet) then\r\n      DataSet.NestedDataSets.Remove(FNestedDataSet);\r\n  end;\r\n\r\n  if Assigned(Value) then\r\n    DataSet.NestedDataSets.Add(Value);\r\n\r\n  FNestedDataSet := Value;\r\nend;\r\n\r\ndestructor TDataSetField.Destroy;\r\nbegin\r\n  AssignNestedDataSet(nil);\r\n\r\n  inherited;\r\nend;\r\n\r\nend.\r\n","{\r\n    This file is part of the Free Component Library (FCL)\r\n    Copyright (c) 2008 Michael Van Canneyt.\r\n\r\n    Expression parser, supports variables, functions and\r\n    float/integer/string/boolean/datetime operations.\r\n\r\n    See the file COPYING.FPC, included in this distribution,\r\n    for details about the copyright.\r\n\r\n    This program is distributed in the hope that it will be useful,\r\n    but WITHOUT ANY WARRANTY; without even the implied warranty of\r\n    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\r\n\r\n **********************************************************************}\r\n{$IFNDEF FPC_DOTTEDUNITS} \r\nunit fpexprpars;\r\n{$ENDIF}\r\n\r\n{$mode objfpc}\r\n{$h+}\r\n\r\ninterface\r\n\r\nuses\r\n{$IFDEF FPC_DOTTEDUNITS} \r\n  System.Classes, System.SysUtils, System.Contnrs, JSApi.JS;\r\n{$ELSE}\r\n  Classes, SysUtils, contnrs, js;\r\n{$ENDIF}\r\n\r\nType\r\n  // tokens\r\n  TTokenType = (ttPlus, ttMinus, ttLessThan, ttLargerThan, ttEqual, ttDiv,\r\n                ttMod, ttMul, ttLeft, ttRight, ttLessThanEqual,\r\n                ttLargerThanEqual, ttunequal, ttNumber, ttString, ttIdentifier,\r\n                ttComma, ttAnd, ttOr, ttXor, ttTrue, ttFalse, ttNot, ttif,\r\n                ttCase, ttPower, ttLike, ttEOF); // keep ttEOF last\r\n\r\n  TExprFloat = Double;\r\n\r\nConst\r\n  ttDelimiters = [ttPlus, ttMinus, ttLessThan, ttLargerThan, ttEqual, ttDiv,\r\n                  ttMul, ttLeft, ttRight, ttLessThanEqual, ttLargerThanEqual,\r\n                  ttunequal, ttPower];\r\n  ttComparisons = [ttLargerThan,ttLessthan,\r\n                   ttLargerThanEqual,ttLessthanEqual,\r\n                   ttEqual,ttUnequal, ttLike];\r\n\r\nType\r\n\r\n  TFPExpressionParser = Class;\r\n  TExprBuiltInManager = Class;\r\n  TFPExprFunction = Class;\r\n  TFPExprFunctionClass = Class of TFPExprFunction;\r\n\r\n  TNumberKind = (nkDecimal, nkHex, nkOctal, nkBinary);\r\n\r\n  { TFPExpressionScanner }\r\n\r\n  TFPExpressionScanner = Class(TObject)\r\n    FSource : String;\r\n    LSource,\r\n    FPos : Integer;\r\n    FChar : Char;\r\n    FToken : String;\r\n    FTokenType : TTokenType;\r\n  private\r\n    FAllowLike: Boolean;\r\n    function GetCurrentChar: Char;\r\n    procedure ScanError(Msg: String);\r\n  protected\r\n    procedure SetSource(const AValue: String); virtual;\r\n    function DoIdentifier: TTokenType;\r\n    function DoNumber(AKind: TNumberKind): TTokenType;\r\n    function DoDelimiter: TTokenType;\r\n    function DoString: TTokenType;\r\n    Function NextPos : Char; // inline;\r\n    procedure SkipWhiteSpace; // inline;\r\n    function IsWordDelim(C : Char) : Boolean; // inline;\r\n    function IsDelim(C : Char) : Boolean; // inline;\r\n    function IsDigit(C : Char; AKind: TNumberKind) : Boolean; // inline;\r\n    function IsAlpha(C : Char) : Boolean; // inline;\r\n  public\r\n    Constructor Create;\r\n    Function GetToken : TTokenType;\r\n    Property Token : String Read FToken;\r\n    Property TokenType : TTokenType Read FTokenType;\r\n    Property Source : String Read FSource Write SetSource;\r\n    Property Pos : Integer Read FPos;\r\n    Property CurrentChar : Char Read GetCurrentChar;\r\n    Property AllowLike : Boolean Read FAllowLike Write FAllowLike;\r\n  end;\r\n\r\n  EExprScanner = Class(Exception);\r\n\r\n  TResultType = (rtBoolean,rtInteger,rtFloat,rtDateTime,rtString,rtCurrency);\r\n  TResultTypes = set of TResultType;\r\n\r\n  TFPExpressionResult = record\r\n    ResultType : TResultType;\r\n    resValue : JSValue;\r\n  end;\r\n  PFPExpressionResult = ^TFPExpressionResult;\r\n  TExprParameterArray = Array of TFPExpressionResult;\r\n\r\n  { TFPExprNode }\r\n\r\n  TFPExprNode = Class(TObject)\r\n  Protected\r\n    Procedure CheckNodeType(Anode : TFPExprNode; Allowed : TResultTypes);\r\n    // A procedure with var saves an implicit try/finally in each node\r\n    // A marked difference in execution speed.\r\n    Function GetNodeValue : TFPExpressionResult; virtual; abstract;\r\n  Public\r\n    Procedure Check; virtual; abstract;\r\n    Procedure InitAggregate; virtual;\r\n    Procedure UpdateAggregate; virtual;\r\n    Class Function IsAggregate : Boolean; virtual;\r\n    Function HasAggregate : Boolean; virtual;\r\n    Function NodeType : TResultType; virtual; abstract;\r\n    Function NodeValue : TFPExpressionResult;\r\n    Function AsString : string; virtual; abstract;\r\n  end;\r\n  TExprArgumentArray = Array of TFPExprNode;\r\n\r\n  { TFPBinaryOperation }\r\n\r\n  TFPBinaryOperation = Class(TFPExprNode)\r\n  private\r\n    FLeft: TFPExprNode;\r\n    FRight: TFPExprNode;\r\n  Protected\r\n    Procedure CheckSameNodeTypes;\r\n  Public\r\n    Constructor Create(ALeft,ARight : TFPExprNode); virtual;\r\n    Destructor Destroy; override;\r\n    Procedure InitAggregate; override;\r\n    Procedure UpdateAggregate; override;\r\n    Function HasAggregate : Boolean; override;\r\n    Procedure Check; override;\r\n    Property left : TFPExprNode Read FLeft;\r\n    Property Right : TFPExprNode Read FRight;\r\n  end;\r\n  TFPBinaryOperationClass = Class of TFPBinaryOperation;\r\n\r\n\r\n  { TFPBooleanOperation }\r\n\r\n  TFPBooleanOperation = Class(TFPBinaryOperation)\r\n  Public\r\n    Procedure Check; override;\r\n    Function NodeType : TResultType; override;\r\n  end;\r\n  { TFPBinaryAndOperation }\r\n\r\n  TFPBinaryAndOperation = Class(TFPBooleanOperation)\r\n  Protected\r\n    Function GetNodeValue : TFPExpressionResult; override;\r\n  Public\r\n    Function AsString : string ; override;\r\n  end;\r\n\r\n  { TFPBinaryOrOperation }\r\n\r\n  TFPBinaryOrOperation = Class(TFPBooleanOperation)\r\n  Protected\r\n    Function GetNodeValue : TFPExpressionResult; override;\r\n  Public\r\n    Function AsString : string ; override;\r\n  end;\r\n\r\n  { TFPBinaryXOrOperation }\r\n\r\n  TFPBinaryXOrOperation = Class(TFPBooleanOperation)\r\n  Protected\r\n    Function GetNodeValue : TFPExpressionResult; override;\r\n  Public\r\n    Function AsString : string ; override;\r\n  end;\r\n\r\n  { TFPBooleanResultOperation }\r\n\r\n  TFPBooleanResultOperation = Class(TFPBinaryOperation)\r\n  Public\r\n    Procedure Check; override;\r\n    Function NodeType : TResultType; override;\r\n  end;\r\n  TFPBooleanResultOperationClass = Class of TFPBooleanResultOperation;\r\n\r\n\r\n  { TFPEqualOperation }\r\n\r\n  TFPEqualOperation = Class(TFPBooleanResultOperation)\r\n  Protected\r\n    Function GetNodeValue : TFPExpressionResult; override;\r\n  Public\r\n    Function AsString : string ; override;\r\n  end;\r\n\r\n  { TFPEqualOperation }\r\n\r\n  { TFPLikeOperation }\r\n\r\n  TFPLikeOperation = Class(TFPBooleanResultOperation)\r\n  Protected\r\n    FRE : TJSRegexp;\r\n    FLast : String;\r\n    Function GetNodeValue : TFPExpressionResult; override;\r\n  Public\r\n    procedure check; override;\r\n    Function AsString : string ; override;\r\n  end;\r\n\r\n\r\n  { TFPUnequalOperation }\r\n\r\n  TFPUnequalOperation = Class(TFPEqualOperation)\r\n  Protected\r\n    Function GetNodeValue : TFPExpressionResult; override;\r\n  Public\r\n    Function AsString : string ; override;\r\n  end;\r\n\r\n  { TFPOrderingOperation }\r\n\r\n  TFPOrderingOperation = Class(TFPBooleanResultOperation)\r\n  Public\r\n    Procedure Check; override;\r\n  end;\r\n\r\n  { TFPLessThanOperation }\r\n\r\n  TFPLessThanOperation = Class(TFPOrderingOperation)\r\n  Protected\r\n    Function GetNodeValue : TFPExpressionResult; override;\r\n  Public\r\n    Function AsString : string ; override;\r\n  end;\r\n\r\n  { TFPGreaterThanOperation }\r\n\r\n  TFPGreaterThanOperation = Class(TFPOrderingOperation)\r\n  Protected\r\n    Function GetNodeValue : TFPExpressionResult; override;\r\n  Public\r\n    Function AsString : string ; override;\r\n  end;\r\n\r\n  { TFPLessThanEqualOperation }\r\n\r\n  TFPLessThanEqualOperation = Class(TFPGreaterThanOperation)\r\n  Protected\r\n    Function GetNodeValue : TFPExpressionResult; override;\r\n  Public\r\n    Function AsString : string ; override;\r\n  end;\r\n\r\n\r\n  { TFPGreaterThanEqualOperation }\r\n\r\n  TFPGreaterThanEqualOperation = Class(TFPLessThanOperation)\r\n  Protected\r\n    Function GetNodeValue : TFPExpressionResult; override;\r\n  Public\r\n    Function AsString : string ; override;\r\n  end;\r\n\r\n  { TIfOperation }\r\n\r\n  TIfOperation = Class(TFPBinaryOperation)\r\n  private\r\n    FCondition: TFPExprNode;\r\n  protected\r\n    Function GetNodeValue : TFPExpressionResult; override;\r\n  Public\r\n    Procedure Check; override;\r\n    Procedure InitAggregate; override;\r\n    Procedure UpdateAggregate; override;\r\n    Function HasAggregate : Boolean; override;\r\n    Function NodeType : TResultType; override;\r\n    Constructor Create(ACondition,ALeft,ARight : TFPExprNode); reintroduce;\r\n    Destructor destroy; override;\r\n    Function AsString : string ; override;\r\n    Property Condition : TFPExprNode Read FCondition;\r\n  end;\r\n\r\n  { TCaseOperation }\r\n\r\n  TCaseOperation = Class(TFPExprNode)\r\n  private\r\n    FArgs : TExprArgumentArray;\r\n    FCondition: TFPExprNode;\r\n  protected\r\n    Function GetNodeValue : TFPExpressionResult; override;\r\n  Public\r\n    Procedure Check; override;\r\n    Procedure InitAggregate; override;\r\n    Procedure UpdateAggregate; override;\r\n    function HasAggregate: Boolean; override;\r\n    Function NodeType : TResultType; override;\r\n    Constructor Create(Args : TExprArgumentArray);\r\n    Destructor destroy; override;\r\n    Function AsString : string ; override;\r\n    Property Condition : TFPExprNode Read FCondition;\r\n  end;\r\n\r\n  { TMathOperation }\r\n\r\n  TMathOperation = Class(TFPBinaryOperation)\r\n  Public\r\n    Procedure Check; override;\r\n    Function NodeType : TResultType; override;\r\n  end;\r\n\r\n  { TFPAddOperation }\r\n\r\n  TFPAddOperation = Class(TMathOperation)\r\n  Protected\r\n    Function GetNodeValue : TFPExpressionResult; override;\r\n  Public\r\n    Function AsString : string ; override;\r\n  end;\r\n\r\n  { TFPSubtractOperation }\r\n\r\n  TFPSubtractOperation = Class(TMathOperation)\r\n  Public\r\n    Procedure Check; override;\r\n    Function GetNodeValue : TFPExpressionResult; override;\r\n    Function AsString : string ; override;\r\n  end;\r\n\r\n  { TFPMultiplyOperation }\r\n\r\n  TFPMultiplyOperation = Class(TMathOperation)\r\n  Public\r\n    Procedure check; override;\r\n    Function AsString : string ; override;\r\n    Function GetNodeValue : TFPExpressionResult; override;\r\n  end;\r\n\r\n  { TFPDivideOperation }\r\n\r\n  TFPDivideOperation = Class(TMathOperation)\r\n  Public\r\n    Procedure Check; override;\r\n    Function AsString : string ; override;\r\n    Function NodeType : TResultType; override;\r\n    Function GetNodeValue : TFPExpressionResult; override;\r\n  end;\r\n\r\n  { TFPModuloOperation }\r\n\r\n  TFPModuloOperation = Class(TMathOperation)\r\n  Public\r\n    Procedure Check; override;\r\n    Function AsString : string ; override;\r\n    Function NodeType : TResultType; override;\r\n    Function GetNodeValue : TFPExpressionResult; override;\r\n  end;\r\n\r\n\r\n  { TFPPowerOperation }\r\n  TFPPowerOperation = class(TMathOperation)\r\n  public\r\n    Procedure Check; override;\r\n    Function AsString : string ; override;\r\n    Function NodeType : TResultType; override;\r\n    Function GetNodeValue : TFPExpressionResult; override;\r\n  end;\r\n\r\n\r\n  { TFPUnaryOperator }\r\n\r\n  TFPUnaryOperator = Class(TFPExprNode)\r\n  private\r\n    FOperand: TFPExprNode;\r\n  Public\r\n    Constructor Create(AOperand : TFPExprNode);\r\n    Destructor Destroy; override;\r\n    Procedure InitAggregate; override;\r\n    Procedure UpdateAggregate; override;\r\n    Function HasAggregate : Boolean; override;\r\n    Procedure Check; override;\r\n    Property Operand : TFPExprNode Read FOperand;\r\n  end;\r\n\r\n  { TFPConvertNode }\r\n\r\n  TFPConvertNode = Class(TFPUnaryOperator)\r\n    Function AsString : String; override;\r\n  end;\r\n\r\n  { TFPNotNode }\r\n\r\n  TFPNotNode = Class(TFPUnaryOperator)\r\n  Public\r\n    Procedure Check; override;\r\n    Function NodeType : TResultType;  override;\r\n    Function GetNodeValue : TFPExpressionResult;  override;\r\n    Function AsString : String; override;\r\n  end;\r\n\r\n  TIntConvertNode = Class(TFPConvertNode)\r\n  Public\r\n    Procedure Check; override;\r\n  end;\r\n\r\n  { TIntToFloatNode }\r\n\r\n  TIntToFloatNode = Class(TIntConvertNode)\r\n  Public\r\n    Function NodeType : TResultType;  override;\r\n    Function GetNodeValue : TFPExpressionResult;  override;\r\n  end;\r\n\r\n  { TIntToCurrencyNode }\r\n\r\n  TIntToCurrencyNode = Class(TIntConvertNode)\r\n  Public\r\n    Function NodeType : TResultType;  override;\r\n    Function GetNodeValue : TFPExpressionResult;  override;\r\n  end;\r\n\r\n  { TIntToDateTimeNode }\r\n\r\n  TIntToDateTimeNode = Class(TIntConvertNode)\r\n  Public\r\n    Function NodeType : TResultType;  override;\r\n    Function GetNodeValue : TFPExpressionResult;  override;\r\n  end;\r\n\r\n  { TFloatToDateTimeNode }\r\n\r\n  TFloatToDateTimeNode = Class(TFPConvertNode)\r\n  Public\r\n    Procedure Check; override;\r\n    Function NodeType : TResultType;  override;\r\n    Function GetNodeValue : TFPExpressionResult;  override;\r\n  end;\r\n\r\n  { TFloatToCurrencyNode }\r\n\r\n  TFloatToCurrencyNode = Class(TFPConvertNode)\r\n  Public\r\n    Procedure Check; override;\r\n    Function NodeType : TResultType;  override;\r\n    Function GetNodeValue : TFPExpressionResult;  override;\r\n  end;\r\n\r\n  { TCurrencyToDateTimeNode }\r\n\r\n  TCurrencyToDateTimeNode = Class(TFPConvertNode)\r\n  Public\r\n    Procedure Check; override;\r\n    Function NodeType : TResultType;  override;\r\n    Function GetNodeValue : TFPExpressionResult;  override;\r\n  end;\r\n\r\n  { TCurrencyToFloatNode }\r\n\r\n  TCurrencyToFloatNode = Class(TFPConvertNode)\r\n  Public\r\n    Procedure Check; override;\r\n    Function NodeType : TResultType;  override;\r\n    Function GetNodeValue : TFPExpressionResult;  override;\r\n  end;\r\n\r\n\r\n  { TFPNegateOperation }\r\n\r\n  TFPNegateOperation = Class(TFPUnaryOperator)\r\n  Public\r\n    Procedure Check; override;\r\n    Function NodeType : TResultType;  override;\r\n    Function GetNodeValue : TFPExpressionResult;  override;\r\n    Function AsString : String; override;\r\n  end;\r\n\r\n  { TFPConstExpression }\r\n\r\n  TFPConstExpression = Class(TFPExprnode)\r\n  private\r\n    FValue : TFPExpressionResult;\r\n  public\r\n    Constructor CreateString(AValue : String);\r\n    Constructor CreateInteger(AValue : NativeInt);\r\n    Constructor CreateDateTime(AValue : TDateTime);\r\n    Constructor CreateFloat(AValue : TExprFloat);\r\n    Constructor CreateBoolean(AValue : Boolean);\r\n    constructor CreateCurrency(AValue: Currency);\r\n    Procedure Check; override;\r\n    Function NodeType : TResultType;  override;\r\n    Function GetNodeValue : TFPExpressionResult;  override;\r\n    Function AsString : string ; override;\r\n   // For inspection\r\n    Property ConstValue : TFPExpressionResult read FValue;\r\n  end;\r\n\r\n\r\n  TIdentifierType = (itVariable,itFunctionHandler,itFunctionNode);\r\n  TFPExprFunctionEvent = reference to Function (Const Args : TExprParameterArray) : TFPExpressionResult ;\r\n  TFPExprVariableEvent = Reference to Function (Const AName : String) : TFPExpressionResult;\r\n\r\n  { TFPExprIdentifierDef }\r\n\r\n  TFPExprIdentifierDef = Class(TCollectionItem)\r\n  private\r\n    FNodeType: TFPExprFunctionClass;\r\n    FOnGetVarValue: TFPExprVariableEvent;\r\n    FStringValue : String;\r\n    FValue : TFPExpressionResult;\r\n    FArgumentTypes: String;\r\n    FIDType: TIdentifierType;\r\n    FName: string;\r\n    FOnGetValue: TFPExprFunctionEvent;\r\n    function GetAsBoolean: Boolean;\r\n    function GetAsDateTime: TDateTime;\r\n    function GetAsFloat: TExprFloat;\r\n    function GetAsCurrency : Currency;\r\n    function GetAsInteger: NativeInt;\r\n    function GetAsString: String;\r\n    function GetResultType: TResultType;\r\n    function GetValue: String;\r\n    procedure SetArgumentTypes(const AValue: String);\r\n    procedure SetAsBoolean(const AValue: Boolean);\r\n    procedure SetAsDateTime(const AValue: TDateTime);\r\n    procedure SetAsFloat(const AValue: TExprFloat);\r\n    procedure SetAsCurrency(const AValue: Currency);\r\n    procedure SetAsInteger(const AValue: NativeInt);\r\n    procedure SetAsString(const AValue: String);\r\n    procedure SetName(const AValue: string);\r\n    procedure SetResultType(const AValue: TResultType);\r\n    procedure SetValue(const AValue: String);\r\n  Protected\r\n    Procedure CheckResultType(Const AType : TResultType);\r\n    Procedure CheckVariable;\r\n    Procedure FetchValue;\r\n  Public\r\n    Function ArgumentCount : Integer;\r\n    Procedure Assign(Source : TPersistent); override;\r\n    Function EventBasedVariable : Boolean; Inline;\r\n    Property AsFloat : TExprFloat Read GetAsFloat Write SetAsFloat;\r\n    Property AsCurrency : Currency Read GetAsCurrency Write SetAsCurrency;\r\n    Property AsInteger : NativeInt Read GetAsInteger Write SetAsInteger;\r\n    Property AsString : String Read GetAsString Write SetAsString;\r\n    Property AsBoolean : Boolean Read GetAsBoolean Write SetAsBoolean;\r\n    Property AsDateTime : TDateTime Read GetAsDateTime Write SetAsDateTime;\r\n  Published\r\n    Property IdentifierType : TIdentifierType Read FIDType Write FIDType;\r\n    Property Name : string Read FName Write SetName;\r\n    Property Value : String Read GetValue Write SetValue;\r\n    Property ParameterTypes : String Read FArgumentTypes Write SetArgumentTypes;\r\n    Property ResultType : TResultType Read GetResultType Write SetResultType;\r\n    Property OnGetFunctionValue : TFPExprFunctionEvent Read FOnGetValue Write FOnGetValue;\r\n    Property OnGetVariableValue : TFPExprVariableEvent Read FOnGetVarValue Write FOnGetVarValue;\r\n    Property NodeType : TFPExprFunctionClass Read FNodeType Write FNodeType;\r\n  end;\r\n\r\n\r\n  TBuiltInCategory = (bcStrings,bcDateTime,bcMath,bcBoolean,bcConversion,bcData,bcVaria,bcUser,bcAggregate);\r\n  TBuiltInCategories = Set of TBuiltInCategory;\r\n\r\n  { TFPBuiltInExprIdentifierDef }\r\n\r\n  TFPBuiltInExprIdentifierDef = Class(TFPExprIdentifierDef)\r\n  private\r\n    FCategory: TBuiltInCategory;\r\n  Public\r\n    Procedure Assign(Source : TPersistent); override;\r\n  Published\r\n    Property Category : TBuiltInCategory Read FCategory Write FCategory;\r\n  end;\r\n\r\n  { TFPExprIdentifierDefs }\r\n\r\n  TFPExprIdentifierDefs = Class(TCollection)\r\n  private\r\n    FParser: TFPExpressionParser;\r\n    function GetI(AIndex : Integer): TFPExprIdentifierDef;\r\n    procedure SetI(AIndex : Integer; const AValue: TFPExprIdentifierDef);\r\n  Protected\r\n    procedure Update(Item: TCollectionItem); override;\r\n    Property Parser: TFPExpressionParser Read FParser;\r\n  Public\r\n    Function IndexOfIdentifier(Const AName : string) : Integer;\r\n    Function FindIdentifier(Const AName : string) : TFPExprIdentifierDef;\r\n    Function IdentifierByName(Const AName : string) : TFPExprIdentifierDef;\r\n    Function AddVariable(Const AName : string; AResultType : TResultType; ACallback : TFPExprVariableEvent) : TFPExprIdentifierDef;\r\n    Function AddVariable(Const AName : string; AResultType : TResultType; AValue : String) : TFPExprIdentifierDef;\r\n    Function AddBooleanVariable(Const AName : string; AValue : Boolean) : TFPExprIdentifierDef;\r\n    Function AddIntegerVariable(Const AName : string; AValue : Integer) : TFPExprIdentifierDef;\r\n    Function AddFloatVariable(Const AName : string; AValue : TExprFloat) : TFPExprIdentifierDef;\r\n    Function AddCurrencyVariable(Const AName : string; AValue : Currency) : TFPExprIdentifierDef;\r\n    Function AddStringVariable(Const AName : string; AValue : String) : TFPExprIdentifierDef;\r\n    Function AddDateTimeVariable(Const AName : string; AValue : TDateTime) : TFPExprIdentifierDef;\r\n    Function AddFunction(Const AName : string; Const AResultType : Char; Const AParamTypes : String; ACallBack : TFPExprFunctionEvent) : TFPExprIdentifierDef;\r\n    Function AddFunction(Const AName : string; Const AResultType : Char; Const AParamTypes : String; ANodeClass : TFPExprFunctionClass) : TFPExprIdentifierDef;\r\n    property Identifiers[AIndex : Integer] : TFPExprIdentifierDef Read GetI Write SetI; Default;\r\n  end;\r\n\r\n  { TFPExprIdentifierNode }\r\n\r\n  TFPExprIdentifierNode = Class(TFPExprNode)\r\n  Private\r\n    FID : TFPExprIdentifierDef;\r\n    PResult : PFPExpressionResult;\r\n    FResultType : TResultType;\r\n  public\r\n    Constructor CreateIdentifier(AID : TFPExprIdentifierDef);\r\n    Function NodeType : TResultType;  override;\r\n    Function GetNodeValue : TFPExpressionResult;  override;\r\n    Property Identifier : TFPExprIdentifierDef Read FID;\r\n  end;\r\n\r\n  { TFPExprVariable }\r\n\r\n  TFPExprVariable = Class(TFPExprIdentifierNode)\r\n    Procedure Check; override;\r\n    function AsString: string; override;\r\n  end;\r\n\r\n  { TFPExprFunction }\r\n\r\n  TFPExprFunction = Class(TFPExprIdentifierNode)\r\n  private\r\n    FArgumentNodes : TExprArgumentArray;\r\n    FargumentParams : TExprParameterArray;\r\n  Protected\r\n    Procedure CalcParams;\r\n    function ConvertArgument(aIndex: Integer; aNode: TFPExprNode; aType: TResultType): TFPExprNode; virtual;\r\n  Public\r\n    Procedure Check; override;\r\n    Constructor CreateFunction(AID : TFPExprIdentifierDef; Const Args : TExprArgumentArray); virtual;\r\n    Destructor Destroy; override;\r\n    Procedure InitAggregate; override;\r\n    Procedure UpdateAggregate; override;\r\n    Function HasAggregate : Boolean; override;\r\n    Property ArgumentNodes : TExprArgumentArray Read FArgumentNodes;\r\n    Property ArgumentParams : TExprParameterArray Read FArgumentParams;\r\n    Function AsString : String; override;\r\n  end;\r\n\r\n  { TAggregateExpr }\r\n\r\n  TAggregateExpr = Class(TFPExprFunction)\r\n  Protected\r\n    FResult : TFPExpressionResult;\r\n  public\r\n    Class Function IsAggregate : Boolean; override;\r\n    Function GetNodeValue : TFPExpressionResult;  override;\r\n  end;\r\n\r\n  { TAggregateMin }\r\n\r\n  TAggregateMin = Class(TAggregateExpr)\r\n  Public\r\n    FFirst: Boolean;\r\n  Public\r\n    Procedure InitAggregate; override;\r\n    Procedure UpdateAggregate; override;\r\n  end;\r\n\r\n  { TAggregateMax }\r\n\r\n  TAggregateMax = Class(TAggregateExpr)\r\n  Public\r\n    FFirst: Boolean;\r\n  Public\r\n    Procedure InitAggregate; override;\r\n    Procedure UpdateAggregate; override;\r\n  end;\r\n\r\n  { TAggregateSum }\r\n\r\n  TAggregateSum = Class(TAggregateExpr)\r\n  Public\r\n    function ConvertArgument(aIndex: Integer; aNode: TFPExprNode; aType: TResultType): TFPExprNode; override;\r\n    Procedure InitAggregate; override;\r\n    Procedure UpdateAggregate; override;\r\n  end;\r\n\r\n  { TAggregateAvg }\r\n\r\n  TAggregateAvg = Class(TAggregateSum)\r\n  Protected\r\n    FCount : Integer;\r\n  Public\r\n    Procedure InitAggregate; override;\r\n    Procedure UpdateAggregate; override;\r\n    Function GetNodeValue : TFPExpressionResult;  override;\r\n  end;\r\n\r\n  { TAggregateCount }\r\n\r\n  TAggregateCount = Class(TAggregateExpr)\r\n  Public\r\n    Procedure InitAggregate; override;\r\n    Procedure UpdateAggregate; override;\r\n  end;\r\n\r\n  { TFPFunctionEventHandler }\r\n\r\n  TFPFunctionEventHandler = Class(TFPExprFunction)\r\n  Private\r\n    FCallBack : TFPExprFunctionEvent;\r\n  Public\r\n    Constructor CreateFunction(AID : TFPExprIdentifierDef; Const Args : TExprArgumentArray); override;\r\n    Function GetNodeValue : TFPExpressionResult; override;\r\n    Property CallBack : TFPExprFunctionEvent Read FCallBack;\r\n  end;\r\n\r\n  { TFPExpressionParser }\r\n\r\n  TFPExpressionParser = class(TComponent)\r\n  private\r\n    FBuiltIns: TBuiltInCategories;\r\n    FExpression: String;\r\n    FScanner : TFPExpressionScanner;\r\n    FExprNode : TFPExprNode;\r\n    FIdentifiers : TFPExprIdentifierDefs;\r\n    FHashList : TFPObjectHashTable;\r\n    FDirty : Boolean;\r\n    procedure CheckEOF;\r\n    function GetAsBoolean: Boolean;\r\n    function GetAsDateTime: TDateTime;\r\n    function GetAsFloat: TExprFloat;\r\n    function GetAsCurrency: Currency;\r\n    function GetAsInteger: NativeInt;\r\n    function GetAsString: String;\r\n    function GetAllowLike: Boolean;\r\n    function MatchNodes(Todo, Match: TFPExprNode): TFPExprNode;\r\n    procedure CheckNodes(var Left, Right: TFPExprNode);\r\n    procedure SetBuiltIns(const AValue: TBuiltInCategories);\r\n    procedure SetIdentifiers(const AValue: TFPExprIdentifierDefs);\r\n    procedure SetAllowLike(AValue: Boolean);\r\n  Protected\r\n    procedure ParserError(Msg: String);\r\n    procedure SetExpression(const AValue: String); virtual;\r\n    Procedure CheckResultType(Const Res :TFPExpressionResult; AType : TResultType); inline;\r\n    Procedure CheckResultTypes(Const Res :TFPExpressionResult; ATypes : TResultTypes); inline;\r\n    Class function ConvertNode(Todo: TFPExprNode; ToType: TResultType): TFPExprNode;\r\n    class Function BuiltinsManager : TExprBuiltInManager;\r\n    Function Level1 : TFPExprNode;\r\n    Function Level2 : TFPExprNode;\r\n    Function Level3 : TFPExprNode;\r\n    Function Level4 : TFPExprNode;\r\n    Function Level5 : TFPExprNode;\r\n    Function Level6 : TFPExprNode;\r\n    Function Level7 : TFPExprNode;\r\n    Function Primitive : TFPExprNode;\r\n    function GetToken: TTokenType;\r\n    Function TokenType : TTokenType;\r\n    Function CurrentToken : String;\r\n    Procedure CreateHashList;\r\n    Property Scanner : TFPExpressionScanner Read FScanner;\r\n    Property ExprNode : TFPExprNode Read FExprNode;\r\n    Property Dirty : Boolean Read FDirty;\r\n  public\r\n    Constructor Create(AOwner :TComponent); override;\r\n    Destructor Destroy; override;\r\n    Function IdentifierByName(const AName : string) : TFPExprIdentifierDef; virtual;\r\n    Procedure Clear;\r\n    Class function Evaluate(aExpression : String): TFPExpressionResult; overload;\r\n    Procedure EvaluateExpression(Out Result : TFPExpressionResult);\r\n    function ExtractNode(var N: TFPExprNode): Boolean;\r\n    Function Evaluate : TFPExpressionResult;overload;\r\n    Function ResultType : TResultType;\r\n    Function HasAggregate : Boolean;\r\n    Procedure InitAggregate;\r\n    Procedure UpdateAggregate;\r\n    Property AllowLike : Boolean Read GetAllowLike Write SetAllowLike;\r\n    Property AsFloat : TExprFloat Read GetAsFloat;\r\n    Property AsCurrency : Currency Read GetAsCurrency;\r\n    Property AsInteger : NativeInt Read GetAsInteger;\r\n    Property AsString : String Read GetAsString;\r\n    Property AsBoolean : Boolean Read GetAsBoolean;\r\n    Property AsDateTime : TDateTime Read GetAsDateTime;\r\n  Published\r\n    // The Expression to parse\r\n    property Expression : String read FExpression write SetExpression;\r\n    Property Identifiers : TFPExprIdentifierDefs Read FIdentifiers Write SetIdentifiers;\r\n    Property BuiltIns : TBuiltInCategories Read FBuiltIns Write SetBuiltIns;\r\n  end;\r\n  TFPExpressionParserClass = Class of TFPExpressionParser;\r\n  { TExprBuiltInManager }\r\n\r\n  TExprBuiltInManager = Class(TComponent)\r\n  Private\r\n    FDefs : TFPExprIdentifierDefs;\r\n    function GetCount: Integer;\r\n    function GetI(AIndex : Integer): TFPBuiltInExprIdentifierDef;\r\n  protected\r\n    Property Defs : TFPExprIdentifierDefs Read FDefs;\r\n  Public\r\n    Constructor Create(AOwner : TComponent); override;\r\n    Destructor Destroy; override;\r\n    Function IndexOfIdentifier(Const AName : string) : Integer;\r\n    Function FindIdentifier(Const AName : string) : TFPBuiltinExprIdentifierDef;\r\n    Function IdentifierByName(Const AName : string) : TFPBuiltinExprIdentifierDef;\r\n    Function AddVariable(Const ACategory : TBuiltInCategory; Const AName : string; AResultType : TResultType; AValue : String) : TFPBuiltInExprIdentifierDef;\r\n    Function AddBooleanVariable(Const ACategory : TBuiltInCategory; Const AName : string; AValue : Boolean) : TFPBuiltInExprIdentifierDef;\r\n    Function AddIntegerVariable(Const ACategory : TBuiltInCategory; Const AName : string; AValue : Integer) : TFPBuiltInExprIdentifierDef;\r\n    Function AddFloatVariable(Const ACategory : TBuiltInCategory; Const AName : string; AValue : TExprFloat) : TFPBuiltInExprIdentifierDef;\r\n    Function AddCurrencyVariable(Const ACategory : TBuiltInCategory; Const AName : string; AValue : Currency) : TFPBuiltInExprIdentifierDef;\r\n    Function AddStringVariable(Const ACategory : TBuiltInCategory; Const AName : string; AValue : String) : TFPBuiltInExprIdentifierDef;\r\n    Function AddDateTimeVariable(Const ACategory : TBuiltInCategory; Const AName : string; AValue : TDateTime) : TFPBuiltInExprIdentifierDef;\r\n    Function AddFunction(Const ACategory : TBuiltInCategory; Const AName : string; Const AResultType : Char; Const AParamTypes : String; ACallBack : TFPExprFunctionEvent) : TFPBuiltInExprIdentifierDef;\r\n    Function AddFunction(Const ACategory : TBuiltInCategory; Const AName : string; Const AResultType : Char; Const AParamTypes : String; ANodeClass : TFPExprFunctionClass) : TFPBuiltInExprIdentifierDef;\r\n    Property IdentifierCount : Integer Read GetCount;\r\n    Property Identifiers[AIndex : Integer] :TFPBuiltInExprIdentifierDef Read GetI;\r\n  end;\r\n\r\n  EExprParser = Class(Exception);\r\n\r\nConst\r\n  AllBuiltIns = [bcStrings,bcDateTime,bcMath,bcBoolean,bcConversion,bcData,bcVaria,bcUser,bcAggregate];\r\n\r\nFunction TokenName (AToken : TTokenType) : String;\r\nFunction ResultTypeName (AResult : TResultType) : String;\r\nFunction CharToResultType(C : Char) : TResultType;\r\nFunction BuiltinIdentifiers : TExprBuiltInManager;\r\nProcedure RegisterStdBuiltins(AManager : TExprBuiltInManager; Categories : TBuiltInCategories = AllBuiltIns);\r\nfunction ArgToFloat(Arg: TFPExpressionResult): TExprFloat;\r\n\r\n\r\n\r\nimplementation\r\n\r\nuses \r\n{$IFDEF FPC_DOTTEDUNITS}\r\n  System.Typinfo;\r\n{$ELSE}\r\n  typinfo;\r\n{$ENDIF}\r\n\r\n{ TFPExpressionParser }\r\n\r\nconst\r\n  cNull=#0;\r\n  cSingleQuote = '''';\r\n  cHexIdentifier = '$';\r\n  cOctalIdentifier = '&';\r\n  cBinaryIdentifier = '%';\r\n\r\n  Digits        = ['0'..'9','.'];\r\n  HexDigits     = ['0'..'9', 'A'..'F', 'a'..'f'];\r\n  OctalDigits   = ['0'..'7'];\r\n  BinaryDigits  = ['0', '1'];\r\n  WhiteSpace    = [' ',#13,#10,#9];\r\n  Operators     = ['+','-','<','>','=','/','*','^'];\r\n  Delimiters    = Operators+[',','(',')'];\r\n  Symbols       = ['%']+Delimiters;\r\n  WordDelimiters = WhiteSpace + Symbols;\r\n\r\nvar\r\n  FileFormatSettings: TFormatSettings;\r\n\r\nResourcestring\r\n  SBadQuotes        = 'Unterminated string';\r\n  SUnknownDelimiter = 'Unknown delimiter character: \"%s\"';\r\n  SErrUnknownCharacter = 'Unknown character at pos %d: \"%s\"';\r\n  SErrUnexpectedEndOfExpression = 'Unexpected end of expression';\r\n  SErrUnknownComparison = 'Internal error: Unknown comparison';\r\n  SErrUnknownBooleanOp = 'Internal error: Unknown boolean operation';\r\n  SErrBracketExpected = 'Expected ) bracket at position %d, but got %s';\r\n  SerrUnknownTokenAtPos = 'Unknown token at pos %d : %s';\r\n  SErrLeftBracketExpected = 'Expected ( bracket at position %d, but got %s';\r\n  SErrInvalidFloat = '%s is not a valid floating-point value';\r\n  SErrUnknownIdentifier = 'Unknown identifier: %s';\r\n  SErrInExpression = 'Cannot evaluate: error in expression';\r\n  SErrInExpressionEmpty = 'Cannot evaluate: empty expression';\r\n  SErrCommaExpected =  'Expected comma (,) at position %d, but got %s';\r\n  SErrInvalidNumberChar = 'Unexpected character in number : %s';\r\n  SErrInvalidNumber = 'Invalid numerical value : %s';\r\n  SErrUnterminatedIdentifier = 'Unterminated quoted identifier: %s';\r\n  SErrNoOperand = 'No operand for unary operation %s';\r\n  SErrNoleftOperand = 'No left operand for binary operation %s';\r\n  SErrNoRightOperand = 'No right operand for binary operation %s';\r\n  SErrNoNegation = 'Cannot negate expression of type %s : %s';\r\n  SErrNoNOTOperation = 'Cannot perform \"not\" on expression of type %s: %s';\r\n  SErrTypesDoNotMatch = 'Type mismatch: %s<>%s for expressions \"%s\" and \"%s\".';\r\n  SErrNoNodeToCheck = 'Internal error: No node to check !';\r\n  SInvalidNodeType = 'Node type (%s) not in allowed types (%s) for expression: %s';\r\n  SErrUnterminatedExpression = 'Badly terminated expression. Found token at position %d : %s';\r\n  SErrDuplicateIdentifier = 'An identifier with name \"%s\" already exists.';\r\n  SErrInvalidResultCharacter = '\"%s\" is not a valid return type indicator';\r\n  ErrInvalidArgumentCount = 'Invalid argument count for function %s';\r\n  SErrInvalidArgumentType = 'Invalid type for argument %d: Expected %s, got %s';\r\n  SErrInvalidResultType = 'Invalid result type: %s';\r\n  SErrNotVariable = 'Identifier %s is not a variable';\r\n  SErrIFNeedsBoolean = 'First argument to IF must be of type boolean: %s';\r\n  SErrCaseNeeds3 = 'Case statement needs to have at least 4 arguments';\r\n  SErrCaseEvenCount = 'Case statement needs to have an even number of arguments';\r\n  SErrCaseLabelNotAConst = 'Case label %d \"%s\" is not a constant expression';\r\n  SErrCaseLabelType = 'Case label %d \"%s\" needs type %s, but has type %s';\r\n  SErrCaseValueType = 'Case value %d \"%s\" needs type %s, but has type %s';\r\n  SErrStringTypeRequired = 'Expression requires string type, got type \"%s\" for %s';\r\n\r\n{ ---------------------------------------------------------------------\r\n  Auxiliary functions\r\n  ---------------------------------------------------------------------}\r\n\r\nProcedure RaiseParserError(Msg : String);\r\nbegin\r\n  Raise EExprParser.Create(Msg);\r\nend;\r\n\r\nProcedure RaiseParserError(Fmt : String; Args : Array of Const);\r\nbegin\r\n  Raise EExprParser.CreateFmt(Fmt,Args);\r\nend;\r\n\r\nfunction TokenName(AToken: TTokenType): String;\r\n\r\nbegin\r\n  Result:=GetEnumName(TypeInfo(TTokenType),Ord(AToken));\r\nend;\r\n\r\nfunction ResultTypeName(AResult: TResultType): String;\r\n\r\nbegin\r\n  Result:=GetEnumName(TypeInfo(TResultType),Ord(AResult));\r\nend;\r\n\r\nfunction CharToResultType(C: Char): TResultType;\r\nbegin\r\n  Case Upcase(C) of\r\n    'S' : Result:=rtString;\r\n    'D' : Result:=rtDateTime;\r\n    'B' : Result:=rtBoolean;\r\n    'I' : Result:=rtInteger;\r\n    'F' : Result:=rtFloat;\r\n    'C' : Result:=rtCurrency;\r\n  else\r\n    RaiseParserError(SErrInvalidResultCharacter,[C]);\r\n  end;\r\nend;\r\n\r\nVar\r\n  BuiltIns : TExprBuiltInManager;\r\n\r\nfunction BuiltinIdentifiers: TExprBuiltInManager;\r\n\r\nbegin\r\n  If (BuiltIns=Nil) then\r\n    BuiltIns:=TExprBuiltInManager.Create(Nil);\r\n  Result:=BuiltIns;\r\nend;\r\n\r\n\r\n{ TFloatToCurrencyNode }\r\n\r\nprocedure TFloatToCurrencyNode.Check;\r\nbegin\r\n  CheckNodeType(Operand,[rtFloat]);\r\nend;\r\n\r\nfunction TFloatToCurrencyNode.NodeType: TResultType;\r\nbegin\r\n  Result:=rtCurrency;\r\nend;\r\n\r\nFunction TFloatToCurrencyNode.GetNodeValue: TFPExpressionResult;\r\nbegin\r\n  Result:=Operand.GetNodeValue;\r\n  Result.ResultType:=rtCurrency;\r\n  Result.resValue:=Result.resValue;\r\nend;\r\n\r\n{ TIntToCurrencyNode }\r\n\r\nfunction TIntToCurrencyNode.NodeType: TResultType;\r\nbegin\r\n  Result:=rtCurrency;\r\nend;\r\n\r\nFunction TIntToCurrencyNode.GetNodeValue: TFPExpressionResult;\r\nbegin\r\n  Result:=Operand.GetNodeValue;\r\n  Result.resValue:=Result.resValue;\r\n  Result.ResultType:=rtCurrency;\r\nend;\r\n\r\n{ TFPModuloOperation }\r\n\r\nprocedure TFPModuloOperation.Check;\r\nbegin\r\n  CheckNodeType(Left,[rtInteger]);\r\n  CheckNodeType(Right,[rtInteger]);\r\n  inherited Check;\r\nend;\r\n\r\nfunction TFPModuloOperation.AsString: string;\r\nbegin\r\n  Result:=Left.AsString+' mod '+Right.asString;\r\nend;\r\n\r\nfunction TFPModuloOperation.NodeType: TResultType;\r\nbegin\r\n  Result:=rtInteger;\r\nend;\r\n\r\nfunction TFPModuloOperation.GetNodeValue: TFPExpressionResult;\r\n\r\nVar\r\n  RRes : TFPExpressionResult;\r\n\r\nbegin\r\n  Result:=Left.GetNodeValue;\r\n  RRes:=Right.GetNodeValue;\r\n  Result.resValue:=NativeInt(Result.resValue) mod NativeInt(RRes.resValue);\r\n  Result.ResultType:=rtInteger;\r\nend;\r\n\r\n{ TAggregateMax }\r\n\r\nprocedure TAggregateMax.InitAggregate;\r\nbegin\r\n  inherited InitAggregate;\r\n  FFirst:=True;\r\n  FResult.ResultType:=FArgumentNodes[0].NodeType;\r\n  Case FResult.ResultType of\r\n    rtFloat : FResult.resValue:=0.0;\r\n    rtCurrency : FResult.resValue:=0.0;\r\n    rtInteger : FResult.resValue:=0;\r\n  end;\r\nend;\r\n\r\nprocedure TAggregateMax.UpdateAggregate;\r\n\r\nVar\r\n  OK : Boolean;\r\n  N : TFPExpressionResult;\r\n\r\nbegin\r\n  N:=FArgumentNodes[0].GetNodeValue;\r\n  if FFirst then\r\n    begin\r\n    FResult.ResultType:=N.ResultType;\r\n    FFirst:=False;\r\n    OK:=True;\r\n    end\r\n  else\r\n    Case N.ResultType of\r\n      rtFloat: OK:=TExprFloat(N.resValue)>TExprFloat(FResult.resValue);\r\n      rtCurrency: OK:=Currency(N.resValue)>Currency(FResult.resValue);\r\n      rtinteger: OK:=NativeInt(N.resValue)>NativeInt(FResult.resValue);\r\n    end;\r\n  if OK then\r\n    Case N.ResultType of\r\n      rtFloat: FResult.resValue:=N.resValue;\r\n      rtinteger: FResult.resValue:=N.resValue;\r\n      rtCurrency: FResult.resValue:=N.resValue;\r\n    end;\r\nend;\r\n\r\n{ TAggregateMin }\r\n\r\nprocedure TAggregateMin.InitAggregate;\r\nbegin\r\n  inherited InitAggregate;\r\n  FFirst:=True;\r\n  FResult.ResultType:=FArgumentNodes[0].NodeType;\r\n  Case FResult.ResultType of\r\n    rtFloat : FResult.resValue:=0.0;\r\n    rtCurrency : FResult.resValue:=0.0;\r\n    rtInteger : FResult.resValue:=0;\r\n  end;\r\nend;\r\n\r\nprocedure TAggregateMin.UpdateAggregate;\r\n\r\nVar\r\n  OK : Boolean;\r\n  N : TFPExpressionResult;\r\n\r\nbegin\r\n  N:=FArgumentNodes[0].GetNodeValue;\r\n  if FFirst then\r\n    begin\r\n    FFirst:=False;\r\n    OK:=True;\r\n    end\r\n  else\r\n    Case N.ResultType of\r\n      rtFloat: OK:=TExprFloat(N.resValue)<TExprFloat(FResult.resValue);\r\n      rtCurrency: OK:=Currency(N.resValue)<Currency(FResult.resValue);\r\n      rtinteger: OK:=NativeInt(N.resValue)<NativeInt(FResult.resValue);\r\n    end;\r\n  if OK then\r\n    Case FResult.ResultType of\r\n      rtFloat: FResult.resValue:=N.resValue;\r\n      rtCurrency: FResult.resValue:=N.resValue;\r\n      rtinteger: FResult.resValue:=N.resValue;\r\n    end;\r\n  inherited UpdateAggregate;\r\nend;\r\n\r\n{ TAggregateAvg }\r\n\r\nprocedure TAggregateAvg.InitAggregate;\r\nbegin\r\n  inherited InitAggregate;\r\nend;\r\n\r\nprocedure TAggregateAvg.UpdateAggregate;\r\nbegin\r\n  inherited UpdateAggregate;\r\n  Inc(FCount);\r\nend;\r\n\r\nFunction TAggregateAvg.GetNodeValue: TFPExpressionResult;\r\nbegin\r\n  Result:=inherited GetNodeValue;\r\n  Result.ResultType:=FResult.ResultType;\r\n  if FCount=0 then\r\n    Case FResult.ResultType of\r\n      rtInteger:\r\n        begin\r\n        Result.ResultType:=rtFloat;\r\n        Result.resValue:=0.0;\r\n        end;\r\n      rtFloat:\r\n        Result.resValue:=0.0;\r\n      rtCurrency:\r\n        Result.resValue:=0.0;\r\n    end\r\n  else\r\n    Case FResult.ResultType of\r\n      rtInteger:\r\n        begin\r\n        Result.ResultType:=rtFloat;\r\n        Result.resValue:=NativeInt(FResult.resValue)/FCount;\r\n        end;\r\n      rtFloat:\r\n        Result.resValue:=TExprFloat(FResult.resValue)/FCount;\r\n      rtCurrency:\r\n        Result.resValue:=Currency(FResult.resValue)/FCount;\r\n    end;\r\nend;\r\n\r\n{ TAggregateCount }\r\n\r\nprocedure TAggregateCount.InitAggregate;\r\nbegin\r\n  FResult.ResultType:=rtInteger;\r\n  FResult.resValue:=0;\r\nend;\r\n\r\nprocedure TAggregateCount.UpdateAggregate;\r\nbegin\r\n  FResult.resValue:=NativeInt(FResult.resValue)+1;\r\nend;\r\n\r\n{ TAggregateExpr }\r\n\r\nclass function TAggregateExpr.IsAggregate: Boolean;\r\nbegin\r\n  Result:=True;\r\nend;\r\n\r\nFunction TAggregateExpr.GetNodeValue: TFPExpressionResult;\r\nbegin\r\n  Result:=FResult;\r\nend;\r\n\r\n{ TAggregateSum }\r\n\r\nfunction TAggregateSum.ConvertArgument(aIndex: Integer; aNode: TFPExprNode; aType: TResultType): TFPExprNode;\r\nbegin\r\n  if not (aNode.NodeType in [rtFloat,rtInteger,rtCurrency]) then\r\n    RaiseParserError(SErrInvalidArgumentType,[aIndex,ResultTypeName(aType),ResultTypeName(aNode.NodeType)]);\r\n  Result:=aNode;\r\nend;\r\n\r\nprocedure TAggregateSum.InitAggregate;\r\n\r\nbegin\r\n  FResult.ResultType:=FArgumentNodes[0].NodeType;\r\n  Case FResult.ResultType of\r\n    rtFloat: FResult.resValue:=0.0;\r\n    rtCurrency : FResult.resValue:=0.0;\r\n    rtinteger: FResult.resValue:=0;\r\n  end;\r\nend;\r\n\r\nprocedure TAggregateSum.UpdateAggregate;\r\n\r\nVar\r\n  R : TFPExpressionResult;\r\n\r\nbegin\r\n  R:=FArgumentNodes[0].GetNodeValue;\r\n  Case FResult.ResultType of\r\n    rtFloat: FResult.resValue:=TExprFloat(FResult.resValue)+TExprFloat(R.resValue);\r\n    rtCurrency: FResult.resValue:=Currency(FResult.resValue)+Currency(R.resValue);\r\n    rtinteger: FResult.resValue:=NativeInt(FResult.resValue)+NativeInt(R.resValue);\r\n  end;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  TFPExpressionScanner\r\n  ---------------------------------------------------------------------}\r\n\r\nfunction TFPExpressionScanner.IsAlpha(C: Char): Boolean;\r\nbegin\r\n  Result := C in ['A'..'Z', 'a'..'z'];\r\nend;\r\n\r\nconstructor TFPExpressionScanner.Create;\r\nbegin\r\n  Source:='';\r\nend;\r\n\r\n\r\nprocedure TFPExpressionScanner.SetSource(const AValue: String);\r\nbegin\r\n  FSource:=AValue;\r\n  LSource:=Length(FSource);\r\n  FTokenType:=ttEOF;\r\n  If LSource=0 then\r\n    begin\r\n    FPos:=0;\r\n    FChar:=cNull;\r\n    end\r\n  else\r\n    begin\r\n    FPos:=1;\r\n    FChar:=FSource[1];\r\n    end;\r\n  FToken:='';\r\nend;\r\n\r\nfunction TFPExpressionScanner.NextPos: Char;\r\nbegin\r\n  Inc(FPos);\r\n  if FPos>Length(FSource) then\r\n    FChar:=cNull\r\n  else\r\n    FChar:=FSource[FPos];\r\n  Result:=FChar;\r\nend;\r\n\r\n\r\nfunction TFPExpressionScanner.IsWordDelim(C: Char): Boolean;\r\nbegin\r\n  Result:=C in WordDelimiters;\r\nend;\r\n\r\nfunction TFPExpressionScanner.IsDelim(C: Char): Boolean;\r\nbegin\r\n  Result:=C in Delimiters;\r\nend;\r\n\r\nfunction TFPExpressionScanner.IsDigit(C: Char; AKind: TNumberKind): Boolean;\r\nbegin\r\n  case AKind of\r\n    nkDecimal: Result := C in Digits;\r\n    nkHex    : Result := C in HexDigits;\r\n    nkOctal  : Result := C in OctalDigits;\r\n    nkBinary : Result := C in BinaryDigits;\r\n  end;\r\nend;\r\n\r\nprocedure TFPExpressionScanner.SkipWhiteSpace;\r\n\r\nbegin\r\n  While (FChar in WhiteSpace) and (FPos<=LSource) do\r\n    NextPos;\r\nend;\r\n\r\nfunction TFPExpressionScanner.DoDelimiter: TTokenType;\r\n\r\nVar\r\n  B : Boolean;\r\n  C,D : Char;\r\n\r\nbegin\r\n  C:=FChar;\r\n  FToken:=C;\r\n  B:=C in ['<','>'];\r\n  D:=C;\r\n  C:=NextPos;\r\n\r\n  if B and (C in ['=','>']) then\r\n    begin\r\n    FToken:=FToken+C;\r\n    NextPos;\r\n    If (D='>') then\r\n      Result:=ttLargerThanEqual\r\n    else if (C='>') then\r\n      Result:=ttUnequal\r\n    else\r\n      Result:=ttLessThanEqual;\r\n    end\r\n  else\r\n    Case D of\r\n      '+' : Result := ttPlus;\r\n      '-' : Result := ttMinus;\r\n      '<' : Result := ttLessThan;\r\n      '>' : Result := ttLargerThan;\r\n      '=' : Result := ttEqual;\r\n      '/' : Result := ttDiv;\r\n      '*' : Result := ttMul;\r\n      '(' : Result := ttLeft;\r\n      ')' : Result := ttRight;\r\n      ',' : Result := ttComma;\r\n      '^' : Result := ttPower;\r\n    else\r\n      ScanError(Format(SUnknownDelimiter,[D]));\r\n    end;\r\n\r\nend;\r\n\r\nprocedure TFPExpressionScanner.ScanError(Msg: String);\r\n\r\nbegin\r\n  Raise EExprScanner.Create(Msg)\r\nend;\r\n\r\n\r\nfunction TFPExpressionScanner.DoString: TTokenType;\r\n\r\n  Function TerminatingChar(C : Char) : boolean;\r\n\r\n  begin\r\n    Result:=(C=cNull) or\r\n            ((C=cSingleQuote) and\r\n              Not ((FPos<LSource) and (FSource[FPos+1]=cSingleQuote)));\r\n  end;\r\n\r\n\r\nVar\r\n  C : Char;\r\n\r\nbegin\r\n  FToken := '';\r\n  C:=NextPos;\r\n  while not TerminatingChar(C) do\r\n    begin\r\n    FToken:=FToken+C;\r\n    If C=cSingleQuote then\r\n      NextPos;\r\n    C:=NextPos;\r\n    end;\r\n  if (C=cNull) then\r\n    ScanError(SBadQuotes);\r\n  Result := ttString;\r\n  FTokenType:=Result;\r\n  NextPos;\r\nend;\r\n\r\nfunction TFPExpressionScanner.GetCurrentChar: Char;\r\nbegin\r\n  Result:=FChar;\r\nend;\r\n\r\n{$ifndef pas2js}\r\nprocedure Val(const S: string; out V: TExprFloat; out Code: Integer); overload;\r\nvar\r\n  L64: NativeInt;\r\nbegin\r\n  if (S <> '') and (S[1] in ['&', '$', '%']) then\r\n  begin\r\n    System.Val(S, L64, Code);\r\n    if Code = 0 then\r\n      V := L64\r\n  end\r\n  else\r\n    System.Val(S, V, Code);\r\nend;\r\n{$endif}\r\n\r\nfunction TFPExpressionScanner.DoNumber(AKind: TNumberKind): TTokenType;\r\n\r\nVar\r\n  C : Char;\r\n  X : TExprFloat;\r\n  I : Integer;\r\n  prevC: Char;\r\n\r\n  function ValidDigit(C: Char; AKind: TNumberKind): Boolean;\r\n  begin\r\n    Result := IsDigit(C, AKind);\r\n    if (not Result) then\r\n      case AKind of\r\n        nkDecimal:\r\n          Result := ((FToken <> '') and (UpCase(C)='E')) or\r\n                    ((FToken <> '') and (C in ['+','-']) and (prevC='E'));\r\n        nkHex:\r\n          Result := (C = cHexIdentifier) and (prevC = #0);\r\n        nkOctal:\r\n          Result := (C = cOctalIdentifier) and (prevC = #0);\r\n        nkBinary:\r\n          Result := (C = cBinaryIdentifier) and (prevC = #0);\r\n      end;\r\n  end;\r\n\r\nbegin\r\n  C:=CurrentChar;\r\n  prevC := #0;\r\n  while (C <> cNull) do\r\n  begin\r\n    if IsWordDelim(C) then\r\n      case AKind of\r\n        nkDecimal:\r\n          if not (prevC in ['E','-','+']) then break;\r\n        nkHex, nkOctal:\r\n          break;\r\n        nkBinary:\r\n          if (prevC <> #0) then break;   // allow '%' as first char\r\n      end;\r\n    if not ValidDigit(C, AKind) then\r\n      ScanError(Format(SErrInvalidNumberChar,[C]));\r\n    FToken := FToken+C;\r\n    prevC := Upcase(C);\r\n    C:=NextPos;\r\n    end;\r\n  Val(FToken,X,I);\r\n  If (I<>0) then\r\n    ScanError(Format(SErrInvalidNumber,[FToken]));\r\n  Result:=ttNumber;\r\nend;\r\n\r\nfunction TFPExpressionScanner.DoIdentifier: TTokenType;\r\nVar\r\n  C : Char;\r\n  S : String;\r\n  IsBracket: boolean;\r\nbegin\r\n  C:=CurrentChar;\r\n  IsBracket := false;\r\n  while (not IsWordDelim(C)) and (C<>cNull) or (IsBracket and (C = ' ')) do\r\n    begin\r\n    if (C='[') then\r\n      IsBracket := true;\r\n    if (C=']') then\r\n      IsBracket := false;\r\n\r\n    if (C<>'\"') then\r\n      FToken:=FToken+C\r\n    else\r\n      begin\r\n      C:=NextPos;\r\n      While Not (C in [cNull,'\"']) do\r\n        begin\r\n        FToken:=FToken+C;\r\n        C:=NextPos;\r\n        end;\r\n      if (C<>'\"') then\r\n        ScanError(Format(SErrUnterminatedIdentifier,[FToken]));\r\n      end;\r\n    C:=NextPos;\r\n    end;\r\n  S:=LowerCase(Token);\r\n  If (S='or') then\r\n    Result:=ttOr\r\n  else if (S='xor') then\r\n    Result:=ttXOr\r\n  else if (S='and') then\r\n    Result:=ttAnd\r\n  else if (S='true') then\r\n    Result:=ttTrue\r\n  else if (S='false') then\r\n    Result:=ttFalse\r\n  else if (S='not') then\r\n    Result:=ttnot\r\n  else if (S='if') then\r\n    Result:=ttif\r\n  else if (S='case') then\r\n    Result:=ttcase\r\n  else if (S='mod') then\r\n    Result:=ttMod\r\n  else if (S='like') and AllowLike then\r\n    Result:=ttLike\r\n  else\r\n    Result:=ttIdentifier;\r\nend;\r\n\r\nfunction TFPExpressionScanner.GetToken: TTokenType;\r\n\r\nVar\r\n  C : Char;\r\n\r\nbegin\r\n  FToken := '';\r\n  SkipWhiteSpace;\r\n  C:=FChar;\r\n  if c=cNull then\r\n    Result:=ttEOF\r\n  else if IsDelim(C) then\r\n    Result:=DoDelimiter\r\n  else if (C=cSingleQuote) then\r\n    Result:=DoString\r\n  else if (C=cHexIdentifier) then\r\n    Result := DoNumber(nkHex)\r\n  else if (C=cOctalIdentifier) then\r\n    Result := DoNumber(nkOctal)\r\n  else if (C=cBinaryIdentifier) then\r\n    Result := DoNumber(nkBinary)\r\n  else if IsDigit(C, nkDecimal) then\r\n    Result:=DoNumber(nkDecimal)\r\n  else if IsAlpha(C) or (C='\"') or (C='_') or (C='[') or (C=']') then\r\n    Result:=DoIdentifier\r\n  else\r\n    ScanError(Format(SErrUnknownCharacter,[FPos,C]))  ;\r\n  FTokenType:=Result;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  TFPExpressionParser\r\n  ---------------------------------------------------------------------}\r\n\r\nfunction TFPExpressionParser.TokenType: TTokenType;\r\n\r\nbegin\r\n  Result:=FScanner.TokenType;\r\nend;\r\n\r\nfunction TFPExpressionParser.CurrentToken: String;\r\nbegin\r\n  Result:=FScanner.Token;\r\nend;\r\n\r\nprocedure TFPExpressionParser.CreateHashList;\r\n\r\nVar\r\n  ID : TFPExpridentifierDef;\r\n  BID : TFPBuiltinExpridentifierDef;\r\n  I  : Integer;\r\n  M : TExprBuiltinManager;\r\n\r\nbegin\r\n  FHashList.Clear;\r\n  // Builtins\r\n  M:=BuiltinsManager;\r\n  If (FBuiltins<>[]) and Assigned(M) then\r\n    For I:=0 to M.IdentifierCount-1 do\r\n      begin\r\n      BID:=M.Identifiers[I];\r\n      If BID.Category in FBuiltins then\r\n        FHashList.Add(LowerCase(BID.Name),BID);\r\n      end;\r\n  // User\r\n  For I:=0 to FIdentifiers.Count-1 do\r\n    begin\r\n    ID:=FIdentifiers[i];\r\n    FHashList.Add(LowerCase(ID.Name),ID);\r\n    end;\r\n  FDirty:=False;\r\nend;\r\n\r\nfunction TFPExpressionParser.IdentifierByName(const AName: string): TFPExprIdentifierDef;\r\nvar\r\n  s: string;\r\nbegin\r\n  If FDirty then\r\n    CreateHashList;\r\n\r\n  s := AName;\r\n  if (Length(s) > 2) then\r\n  begin\r\n    if (s[1] = '[') and (s[Length(s)] = ']') then\r\n    begin\r\n      Delete(s,1,1);\r\n      Delete(s,Length(s),1);\r\n    end;\r\n  end;\r\n\r\n  Result:=TFPExprIdentifierDef(FHashList[LowerCase(s)]);\r\nend;\r\n\r\nprocedure TFPExpressionParser.Clear;\r\nbegin\r\n  FExpression:='';\r\n  FHashList.Clear;\r\n  FExprNode.Free;\r\nend;\r\n\r\nclass function TFPExpressionParser.Evaluate(aExpression: String): TFPExpressionResult;\r\n\r\nVar\r\n  F : TFPExpressionParser;\r\n\r\nbegin\r\n  F:=TFPExpressionParser.Create(Nil);\r\n  try\r\n    F.Expression:=aExpression;\r\n    Result:=F.Evaluate;\r\n  finally\r\n    F.Free;\r\n  end;\r\nend;\r\n\r\nconstructor TFPExpressionParser.Create(AOwner: TComponent);\r\nbegin\r\n  inherited Create(AOwner);\r\n  FIdentifiers:=TFPExprIdentifierDefs.Create(TFPExprIdentifierDef);\r\n  FIdentifiers.FParser:=Self;\r\n  FScanner:=TFPExpressionScanner.Create;\r\n  FHashList:=TFPObjectHashTable.Create(False);\r\nend;\r\n\r\ndestructor TFPExpressionParser.Destroy;\r\nbegin\r\n  FreeAndNil(FHashList);\r\n  FreeAndNil(FExprNode);\r\n  FreeAndNil(FIdentifiers);\r\n  FreeAndNil(FScanner);\r\n  inherited Destroy;\r\nend;\r\n\r\nfunction TFPExpressionParser.GetToken: TTokenType;\r\n\r\nbegin\r\n  Result:=FScanner.GetToken;\r\nend;\r\n\r\nprocedure TFPExpressionParser.CheckEOF;\r\n\r\nbegin\r\n  If (TokenType=ttEOF) then\r\n    ParserError(SErrUnexpectedEndOfExpression);\r\nend;\r\n\r\nprocedure TFPExpressionParser.SetIdentifiers(const AValue: TFPExprIdentifierDefs\r\n  );\r\nbegin\r\n  FIdentifiers.Assign(AValue)\r\nend;\r\n\r\nprocedure TFPExpressionParser.SetAllowLike(AValue: Boolean);\r\nbegin\r\n  FScanner.AllowLike:=aValue;\r\nend;\r\n\r\nfunction TFPExpressionParser.Evaluate: TFPExpressionResult;\r\nbegin\r\n  If (FExpression='') then\r\n    ParserError(SErrInExpressionEmpty);\r\n  if not Assigned(FExprNode) then\r\n    ParserError(SErrInExpression);\r\n  Result:=FExprNode.GetNodeValue;\r\nend;\r\n\r\n\r\nprocedure TFPExpressionParser.EvaluateExpression(out Result: TFPExpressionResult);\r\nbegin\r\n  Result:=Evaluate;\r\nend;\r\n\r\nfunction TFPExpressionParser.ExtractNode(var N: TFPExprNode): Boolean;\r\nbegin\r\n  Result:=Assigned(FExprNode);\r\n  if Result then\r\n    begin\r\n    N:=FExprNode;\r\n    FExprNode:=Nil;\r\n    FExpression:='';\r\n    end;\r\nend;\r\n\r\nprocedure TFPExpressionParser.ParserError(Msg: String);\r\nbegin\r\n  Raise EExprParser.Create(Msg);\r\nend;\r\n\r\nclass function TFPExpressionParser.ConvertNode(Todo: TFPExprNode; ToType: TResultType): TFPExprNode;\r\nbegin\r\n  Result:=ToDo;\r\n  Case ToDo.NodeType of\r\n    rtInteger :\r\n      Case ToType of\r\n        rtFloat    : Result:=TIntToFloatNode.Create(Result);\r\n        rtCurrency : Result:=TIntToCurrencyNode.Create(Result);\r\n        rtDateTime : Result:=TIntToDateTimeNode.Create(Result);\r\n      end;\r\n    rtFloat :\r\n      Case ToType of\r\n        rtCurrency : Result:=TFloatToCurrencyNode.Create(Result);\r\n        rtDateTime : Result:=TFloatToDateTimeNode.Create(Result);\r\n      end;\r\n    rtCurrency :\r\n      Case ToType of\r\n        rtFloat    : Result:=TCurrencyToFloatNode.Create(Result);\r\n        rtDateTime : Result:=TCurrencyToDateTimeNode.Create(Result);\r\n      end;\r\n  end;\r\nend;\r\n\r\nfunction TFPExpressionParser.GetAsBoolean: Boolean;\r\n\r\nvar\r\n  Res: TFPExpressionResult;\r\n\r\nbegin\r\n  EvaluateExpression(Res);\r\n  CheckResultType(Res,rtBoolean);\r\n  Result:=Boolean(Res.resValue);\r\nend;\r\n\r\nfunction TFPExpressionParser.GetAsDateTime: TDateTime;\r\nvar\r\n  Res: TFPExpressionResult;\r\n\r\nbegin\r\n  EvaluateExpression(Res);\r\n  CheckResultType(Res,rtDateTime);\r\n  Result:=TDateTime(Res.resValue);\r\nend;\r\n\r\nfunction TFPExpressionParser.GetAsFloat: TExprFloat;\r\n\r\nvar\r\n  Res: TFPExpressionResult;\r\n\r\nbegin\r\n  EvaluateExpression(Res);\r\n  CheckResultTypes(Res,[rtFloat,rtCurrency,rtInteger]);\r\n  case Res.ResultType of\r\n    rtInteger : Result:=NativeInt(Res.resValue);\r\n    rtFloat : Result:=TExprFloat(Res.resValue);\r\n    rtCurrency : Result:=Currency(res.resValue);\r\n  end;\r\nend;\r\n\r\nfunction TFPExpressionParser.GetAsCurrency: Currency;\r\nvar\r\n  Res: TFPExpressionResult;\r\n\r\nbegin\r\n  EvaluateExpression(Res);\r\n  CheckResultTypes(Res,[rtFloat,rtCurrency,rtInteger]);\r\n  case Res.ResultType of\r\n    rtInteger : Result:=NativeInt(Res.resValue);\r\n    rtFloat : Result:=TExprFloat(Res.resValue);\r\n    rtCurrency : Result:=Currency(res.resValue);\r\n  end;\r\nend;\r\n\r\nfunction TFPExpressionParser.GetAsInteger: NativeInt;\r\n\r\nvar\r\n  Res: TFPExpressionResult;\r\n\r\nbegin\r\n  EvaluateExpression(Res);\r\n  CheckResultType(Res,rtInteger);\r\n  Result:=NativeInt(Res.resValue);\r\nend;\r\n\r\nfunction TFPExpressionParser.GetAsString: String;\r\n\r\nvar\r\n  Res: TFPExpressionResult;\r\n\r\nbegin\r\n  EvaluateExpression(Res);\r\n  CheckResultType(Res,rtString);\r\n  Result:=String(Res.resValue);\r\nend;\r\n\r\nfunction TFPExpressionParser.GetAllowLike: Boolean;\r\nbegin\r\n  Result:=FScanner.AllowLike;\r\nend;\r\n\r\n{\r\n  Checks types of todo and match. If ToDO can be converted to it matches\r\n  the type of match, then a node is inserted.\r\n  For binary operations, this function is called for both operands.\r\n}\r\n\r\nfunction TFPExpressionParser.MatchNodes(Todo,Match : TFPExprNode): TFPExprNode;\r\n\r\nVar\r\n  FromType,ToType : TResultType;\r\n\r\nbegin\r\n  Result:=Todo;\r\n  FromType:=Todo.NodeType;\r\n  ToType:=Match.NodeType;\r\n  If (FromType<>ToType) then\r\n    Case FromType of\r\n    rtInteger:\r\n      if (ToType in [rtFloat,rtCurrency,rtDateTime]) then\r\n        Result:=ConvertNode(Todo,toType);\r\n    rtFloat:\r\n      if (ToType in [rtCurrency,rtDateTime]) then\r\n        Result:=ConvertNode(Todo,toType);\r\n    rtCurrency:\r\n      if (ToType in [rtFloat,rtDateTime]) then\r\n        Result:=ConvertNode(Todo,toType);\r\n    end;\r\nend;\r\n\r\n{\r\n  if the result types differ, they are converted to a common type if possible.\r\n}\r\n\r\nprocedure TFPExpressionParser.CheckNodes(var Left, Right: TFPExprNode);\r\n\r\nbegin\r\n  Left:=MatchNodes(Left,Right);\r\n  Right:=MatchNodes(Right,Left);\r\nend;\r\n\r\nprocedure TFPExpressionParser.SetBuiltIns(const AValue: TBuiltInCategories);\r\nbegin\r\n  if FBuiltIns=AValue then exit;\r\n  FBuiltIns:=AValue;\r\n  FDirty:=True;\r\nend;\r\n\r\nfunction TFPExpressionParser.Level1: TFPExprNode;\r\n\r\nvar\r\n  tt: TTokenType;\r\n  Right : TFPExprNode;\r\n\r\nbegin\r\n{$ifdef debugexpr}Writeln('Level 1 ',TokenName(TokenType),': ',CurrentToken);{$endif debugexpr}\r\n  if TokenType = ttNot then\r\n    begin\r\n    GetToken;\r\n    CheckEOF;\r\n    Right:=Level2;\r\n    Result:=TFPNotNode.Create(Right);\r\n    end\r\n  else\r\n    Result:=Level2;\r\n  Try\r\n    while (TokenType in [ttAnd,ttOr,ttXor]) do\r\n      begin\r\n      tt:=TokenType;\r\n      GetToken;\r\n      CheckEOF;\r\n      Right:=Level2;\r\n      Case tt of\r\n        ttOr  : Result:=TFPBinaryOrOperation.Create(Result,Right);\r\n        ttAnd : Result:=TFPBinaryAndOperation.Create(Result,Right);\r\n        ttXor : Result:=TFPBinaryXorOperation.Create(Result,Right);\r\n      Else\r\n        ParserError(SErrUnknownBooleanOp)\r\n      end;\r\n      end;\r\n  Except\r\n    Result.Free;\r\n    Raise;\r\n  end;\r\nend;\r\n\r\nfunction TFPExpressionParser.Level2: TFPExprNode;\r\n\r\nvar\r\n  Right : TFPExprNode;\r\n  tt : TTokenType;\r\n  C : TFPBinaryOperationClass;\r\n\r\nbegin\r\n{$ifdef debugexpr}  Writeln('Level 2 ',TokenName(TokenType),': ',CurrentToken);{$endif debugexpr}\r\n  Result:=Level3;\r\n  try\r\n    if (TokenType in ttComparisons) then\r\n      begin\r\n      tt:=TokenType;\r\n      GetToken;\r\n      CheckEOF;\r\n      Right:=Level3;\r\n      CheckNodes(Result,Right);\r\n      Case tt of\r\n        ttLessthan         : C:=TFPLessThanOperation;\r\n        ttLessthanEqual    : C:=TFPLessThanEqualOperation;\r\n        ttLargerThan       : C:=TFPGreaterThanOperation;\r\n        ttLargerThanEqual  : C:=TFPGreaterThanEqualOperation;\r\n        ttEqual            : C:=TFPEqualOperation;\r\n        ttUnequal          : C:=TFPUnequalOperation;\r\n        ttLike             : C:=TFPLikeOperation;\r\n      Else\r\n        ParserError(SErrUnknownComparison)\r\n      end;\r\n      Result:=C.Create(Result,Right);\r\n      end;\r\n  Except\r\n    Result.Free;\r\n    Raise;\r\n  end;\r\nend;\r\n\r\nfunction TFPExpressionParser.Level3: TFPExprNode;\r\n\r\nvar\r\n  tt : TTokenType;\r\n  right : TFPExprNode;\r\n\r\nbegin\r\n{$ifdef debugexpr}  Writeln('Level 3 ',TokenName(TokenType),': ',CurrentToken);{$endif debugexpr}\r\n  Result:=Level4;\r\n  try\r\n    while TokenType in [ttPlus,ttMinus] do\r\n      begin\r\n      tt:=TokenType;\r\n      GetToken;\r\n      CheckEOF;\r\n      Right:=Level4;\r\n      CheckNodes(Result,Right);\r\n      Case tt of\r\n        ttPlus  : Result:=TFPAddOperation.Create(Result,Right);\r\n        ttMinus : Result:=TFPSubtractOperation.Create(Result,Right);\r\n      end;\r\n      end;\r\n  Except\r\n    Result.Free;\r\n    Raise;\r\n  end;\r\nend;\r\n\r\n\r\n\r\n\r\nfunction TFPExpressionParser.Level4: TFPExprNode;\r\n\r\nvar\r\n  tt : TTokenType;\r\n  right : TFPExprNode;\r\n\r\nbegin\r\n{$ifdef debugexpr}  Writeln('Level 4 ',TokenName(TokenType),': ',CurrentToken);{$endif debugexpr}\r\n  Result:=Level5;\r\n  try\r\n    while (TokenType in [ttMul,ttDiv,ttMod]) do\r\n      begin\r\n      tt:=TokenType;\r\n      GetToken;\r\n      Right:=Level5;\r\n      CheckNodes(Result,Right);\r\n      Case tt of\r\n        ttMul : Result:=TFPMultiplyOperation.Create(Result,Right);\r\n        ttDiv : Result:=TFPDivideOperation.Create(Result,Right);\r\n        ttMod : Result:=TFPModuloOperation.Create(Result,Right);\r\n      end;\r\n      end;\r\n  Except\r\n    Result.Free;\r\n    Raise;\r\n  end;\r\nend;\r\n\r\nfunction TFPExpressionParser.Level5: TFPExprNode;\r\n\r\nVar\r\n  B : Boolean;\r\n\r\nbegin\r\n{$ifdef debugexpr}  Writeln('Level 5 ',TokenName(TokenType),': ',CurrentToken);{$endif debugexpr}\r\n  B:=False;\r\n  if (TokenType in [ttPlus,ttMinus]) then\r\n    begin\r\n    B:=TokenType=ttMinus;\r\n    GetToken;\r\n    end;\r\n  Result:=Level6;\r\n  If B then\r\n    Result:=TFPNegateOperation.Create(Result);\r\nend;\r\n\r\nfunction TFPExpressionParser.Level6: TFPExprNode;\r\nvar\r\n  right: TFPExprNode;\r\nbegin\r\n{$ifdef debugexpr} Writeln('Level 6 ',TokenName(TokenType),': ',CurrentToken);{$endif debugexpr}\r\n  Result := Level7;\r\n  try\r\n    while (TokenType = ttPower) do\r\n    begin\r\n      GetToken;\r\n      right := Level5;           // Accept '(', unary '+', '-' as next tokens\r\n      CheckNodes(Result, right);\r\n      Result := TFPPowerOperation.Create(Result, right);\r\n    end;\r\n  except\r\n    Result.Free;\r\n    Raise;\r\n  end;\r\nend;\r\n\r\nfunction TFPExpressionParser.Level7: TFPExprNode;\r\nbegin\r\n{$ifdef debugexpr}  Writeln('Level 7 ',TokenName(TokenType),': ',CurrentToken);{$endif debugexpr}\r\n  if (TokenType=ttLeft) then\r\n    begin\r\n    GetToken;\r\n    Result:=Level1;\r\n    try\r\n      if (TokenType<>ttRight) then\r\n        ParserError(Format(SErrBracketExpected,[SCanner.Pos,CurrentToken]));\r\n      GetToken;\r\n    Except\r\n      Result.Free;\r\n      Raise;\r\n    end;\r\n    end\r\n  else\r\n    Result:=Primitive;\r\nend;\r\n\r\nfunction TFPExpressionParser.Primitive: TFPExprNode;\r\n\r\nVar\r\n  I : NativeInt;\r\n  C : Integer;\r\n  X : TExprFloat;\r\n  ACount : Integer;\r\n  IFF : Boolean;\r\n  IFC : Boolean;\r\n  ID : TFPExprIdentifierDef;\r\n  Args : TExprArgumentArray;\r\n  AI : Integer;\r\n\r\nbegin\r\n{$ifdef debugexpr}  Writeln('Primitive : ',TokenName(TokenType),': ',CurrentToken);{$endif debugexpr}\r\n  SetLength(Args,0);\r\n  if (TokenType=ttNumber) then\r\n    begin\r\n    if TryStrToInt64(CurrentToken,I) then\r\n      Result:=TFPConstExpression.CreateInteger(I)\r\n    else\r\n      begin\r\n      Val(CurrentToken,X,C);\r\n      If (C=0) then\r\n        Result:=TFPConstExpression.CreateFloat(X)\r\n      else\r\n        ParserError(Format(SErrInvalidFloat,[CurrentToken]));\r\n      end;\r\n    end\r\n  else if (TokenType=ttString) then\r\n    Result:=TFPConstExpression.CreateString(CurrentToken)\r\n  else if (TokenType in [ttTrue,ttFalse]) then\r\n    Result:=TFPConstExpression.CreateBoolean(TokenType=ttTrue)\r\n  else if Not (TokenType in [ttIdentifier,ttIf,ttcase]) then\r\n    ParserError(Format(SerrUnknownTokenAtPos,[Scanner.Pos,CurrentToken]))\r\n  else\r\n    begin\r\n    IFF:=TokenType=ttIf;\r\n    IFC:=TokenType=ttCase;\r\n    if Not (IFF or IFC) then\r\n      begin\r\n      ID:=self.IdentifierByName(CurrentToken);\r\n      If (ID=Nil) then\r\n        ParserError(Format(SErrUnknownIdentifier,[CurrentToken]))\r\n      end;\r\n    // Determine number of arguments\r\n    if Iff then\r\n      ACount:=3\r\n    else if IfC then\r\n      ACount:=-4\r\n    else if (ID.IdentifierType in [itFunctionHandler,itFunctionNode]) then\r\n      ACount:=ID.ArgumentCount\r\n    else\r\n      ACount:=0;\r\n    // Parse arguments.\r\n    // Negative is for variable number of arguments, where Abs(value) is the minimum number of arguments\r\n    If (ACount<>0) then\r\n      begin\r\n      GetToken;\r\n      If (TokenType<>ttLeft) then\r\n         ParserError(Format(SErrLeftBracketExpected,[Scanner.Pos,CurrentToken]));\r\n      SetLength(Args,Abs(ACount));\r\n      AI:=0;\r\n      Try\r\n        Repeat\r\n          GetToken;\r\n          // Check if we must enlarge the argument array\r\n          If (ACount<0) and (AI=Length(Args)) then\r\n            begin\r\n            SetLength(Args,AI+1);\r\n            Args[AI]:=Nil;\r\n            end;\r\n          Args[AI]:=Level1;\r\n          Inc(AI);\r\n          If (TokenType<>ttComma) then\r\n            If (AI<Abs(ACount)) then\r\n              ParserError(Format(SErrCommaExpected,[Scanner.Pos,CurrentToken]))\r\n        Until (AI=ACount) or ((ACount<0) and (TokenType=ttRight));\r\n        If TokenType<>ttRight then\r\n          ParserError(Format(SErrBracketExpected,[Scanner.Pos,CurrentToken]));\r\n      except\r\n        On E : Exception do\r\n          begin\r\n          Dec(AI);\r\n          While (AI>=0) do\r\n            begin\r\n            FreeAndNil(Args[Ai]);\r\n            Dec(AI);\r\n            end;\r\n          Raise;\r\n          end;\r\n      end;\r\n      end;\r\n    If Iff then\r\n      Result:=TIfOperation.Create(Args[0],Args[1],Args[2])\r\n    else If IfC then\r\n      Result:=TCaseOperation.Create(Args)\r\n    else\r\n      Case ID.IdentifierType of\r\n        itVariable         : Result:= TFPExprVariable.CreateIdentifier(ID);\r\n        itFunctionHandler  : Result:= TFPFunctionEventHandler.CreateFunction(ID,Args);\r\n        itFunctionNode     : Result:= ID.NodeType.CreateFunction(ID,Args);\r\n      end;\r\n    end;\r\n  GetToken;\r\nend;\r\n\r\n\r\nprocedure TFPExpressionParser.SetExpression(const AValue: String);\r\nbegin\r\n  if FExpression=AValue then exit;\r\n  FExpression:=AValue;\r\n  FScanner.Source:=AValue;\r\n  If Assigned(FExprNode) then\r\n    FreeAndNil(FExprNode);\r\n  If (FExpression<>'') then\r\n    begin\r\n    GetToken;\r\n    FExprNode:=Level1;\r\n    If (TokenType<>ttEOF) then\r\n      ParserError(Format(SErrUnterminatedExpression,[Scanner.Pos,CurrentToken]));\r\n    FExprNode.Check;\r\n    end\r\n  else\r\n    FExprNode:=Nil;\r\nend;\r\n\r\nprocedure TFPExpressionParser.CheckResultType(const Res: TFPExpressionResult;\r\n  AType: TResultType); inline;\r\nbegin\r\n  If (Res.ResultType<>AType) then\r\n    RaiseParserError(SErrInvalidResultType,[ResultTypeName(Res.ResultType)]);\r\nend;\r\n\r\nprocedure TFPExpressionParser.CheckResultTypes(const Res: TFPExpressionResult; ATypes: TResultTypes);\r\nbegin\r\n  If Not (Res.ResultType in ATypes) then\r\n    RaiseParserError(SErrInvalidResultType,[ResultTypeName(Res.ResultType)]);\r\nend;\r\n\r\nclass function TFPExpressionParser.BuiltinsManager: TExprBuiltInManager;\r\nbegin\r\n  Result:=BuiltinIdentifiers;\r\nend;\r\n\r\n\r\n\r\nfunction TFPExpressionParser.ResultType: TResultType;\r\nbegin\r\n  if not Assigned(FExprNode) then\r\n    ParserError(SErrInExpression);\r\n  Result:=FExprNode.NodeType;\r\nend;\r\n\r\nfunction TFPExpressionParser.HasAggregate: Boolean;\r\nbegin\r\n  Result:=Assigned(FExprNode) and FExprNode.HasAggregate;\r\nend;\r\n\r\nprocedure TFPExpressionParser.InitAggregate;\r\nbegin\r\n  If Assigned(FExprNode) then\r\n    FExprNode.InitAggregate;\r\nend;\r\n\r\nprocedure TFPExpressionParser.UpdateAggregate;\r\nbegin\r\n  If Assigned(FExprNode) then\r\n    FExprNode.UpdateAggregate;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  TFPExprIdentifierDefs\r\n  ---------------------------------------------------------------------}\r\n\r\nfunction TFPExprIdentifierDefs.GetI(AIndex : Integer): TFPExprIdentifierDef;\r\nbegin\r\n  Result:=TFPExprIdentifierDef(Items[AIndex]);\r\nend;\r\n\r\nprocedure TFPExprIdentifierDefs.SetI(AIndex : Integer;\r\n  const AValue: TFPExprIdentifierDef);\r\nbegin\r\n  Items[AIndex]:=AValue;\r\nend;\r\n\r\nprocedure TFPExprIdentifierDefs.Update(Item: TCollectionItem);\r\nbegin\r\n  Inherited Update(Item);\r\n  If Assigned(FParser) then\r\n    FParser.FDirty:=True;\r\nend;\r\n\r\nfunction TFPExprIdentifierDefs.IndexOfIdentifier(const AName: string\r\n  ): Integer;\r\nbegin\r\n  Result:=Count-1;\r\n  While (Result>=0) And (CompareText(GetI(Result).Name,AName)<>0) do\r\n    Dec(Result);\r\nend;\r\n\r\nfunction TFPExprIdentifierDefs.FindIdentifier(const AName: string\r\n  ): TFPExprIdentifierDef;\r\n\r\nVar\r\n  I : Integer;\r\n\r\nbegin\r\n  I:=IndexOfIdentifier(AName);\r\n  If (I=-1) then\r\n    Result:=Nil\r\n  else\r\n    Result:=GetI(I);\r\nend;\r\n\r\nfunction TFPExprIdentifierDefs.IdentifierByName(const AName: string\r\n  ): TFPExprIdentifierDef;\r\nbegin\r\n  Result:=FindIdentifier(AName);\r\n  if (Result=Nil) then\r\n    RaiseParserError(SErrUnknownIdentifier,[AName]);\r\nend;\r\n\r\n\r\nfunction TFPExprIdentifierDefs.AddVariable(const AName: string;\r\n  AResultType: TResultType; ACallback: TFPExprVariableEvent\r\n  ): TFPExprIdentifierDef;\r\nbegin\r\n  Result:=Add as TFPExprIdentifierDef;\r\n  Result.IdentifierType:=itVariable;\r\n  Result.Name:=AName;\r\n  Result.ResultType:=AResultType;\r\n  Result.OnGetVariableValue:=ACallBack\r\nend;\r\n\r\nfunction TFPExprIdentifierDefs.AddVariable(const AName: string;\r\n  AResultType: TResultType; AValue: String): TFPExprIdentifierDef;\r\nbegin\r\n  Result:=Add as TFPExprIdentifierDef;\r\n  Result.IdentifierType:=itVariable;\r\n  Result.Name:=AName;\r\n  Result.ResultType:=AResultType;\r\n  Result.Value:=AValue;\r\nend;\r\n\r\nfunction TFPExprIdentifierDefs.AddBooleanVariable(const AName: string;\r\n  AValue: Boolean): TFPExprIdentifierDef;\r\nbegin\r\n  Result:=Add as TFPExprIdentifierDef;\r\n  Result.IdentifierType:=itVariable;\r\n  Result.Name:=AName;\r\n  Result.ResultType:=rtBoolean;\r\n  Result.FValue.resValue:=AValue;\r\nend;\r\n\r\nfunction TFPExprIdentifierDefs.AddIntegerVariable(const AName: string;\r\n  AValue: Integer): TFPExprIdentifierDef;\r\nbegin\r\n  Result:=Add as TFPExprIdentifierDef;\r\n  Result.IdentifierType:=itVariable;\r\n  Result.Name:=AName;\r\n  Result.ResultType:=rtInteger;\r\n  Result.FValue.resValue:=AValue;\r\nend;\r\n\r\nfunction TFPExprIdentifierDefs.AddFloatVariable(const AName: string;\r\n  AValue: TExprFloat): TFPExprIdentifierDef;\r\nbegin\r\n  Result:=Add as TFPExprIdentifierDef;\r\n  Result.IdentifierType:=itVariable;\r\n  Result.Name:=AName;\r\n  Result.ResultType:=rtFloat;\r\n  Result.FValue.resValue:=AValue;\r\nend;\r\n\r\nfunction TFPExprIdentifierDefs.AddCurrencyVariable(const AName: string; AValue: Currency): TFPExprIdentifierDef;\r\nbegin\r\n  Result:=Add as TFPExprIdentifierDef;\r\n  Result.IdentifierType:=itVariable;\r\n  Result.Name:=AName;\r\n  Result.ResultType:=rtCurrency;\r\n  Result.FValue.resValue:=AValue;\r\nend;\r\n\r\nfunction TFPExprIdentifierDefs.AddStringVariable(const AName: string;\r\n  AValue: String): TFPExprIdentifierDef;\r\nbegin\r\n  Result:=Add as TFPExprIdentifierDef;\r\n  Result.IdentifierType:=itVariable;\r\n  Result.Name:=AName;\r\n  Result.ResultType:=rtString;\r\n  Result.FValue.resValue:=AValue;\r\nend;\r\n\r\nfunction TFPExprIdentifierDefs.AddDateTimeVariable(const AName: string;\r\n  AValue: TDateTime): TFPExprIdentifierDef;\r\nbegin\r\n  Result:=Add as TFPExprIdentifierDef;\r\n  Result.IdentifierType:=itVariable;\r\n  Result.Name:=AName;\r\n  Result.ResultType:=rtDateTime;\r\n  Result.FValue.resValue:=AValue;\r\nend;\r\n\r\n\r\nfunction TFPExprIdentifierDefs.AddFunction(const AName: string;\r\n  const AResultType: Char; const AParamTypes: String;\r\n  ACallBack: TFPExprFunctionEvent): TFPExprIdentifierDef;\r\nbegin\r\n  Result:=Add as TFPExprIdentifierDef;\r\n  Result.Name:=Aname;\r\n  Result.IdentifierType:=itFunctionHandler;\r\n  Result.ParameterTypes:=AParamTypes;\r\n  Result.ResultType:=CharToResultType(AResultType);\r\n  Result.FOnGetValue:=ACallBack;\r\nend;\r\n\r\nfunction TFPExprIdentifierDefs.AddFunction(const AName: string;\r\n  const AResultType: Char; const AParamTypes: String;\r\n  ANodeClass: TFPExprFunctionClass): TFPExprIdentifierDef;\r\nbegin\r\n  Result:=Add as TFPExprIdentifierDef;\r\n  Result.Name:=Aname;\r\n  Result.IdentifierType:=itFunctionNode;\r\n  Result.ParameterTypes:=AParamTypes;\r\n  Result.ResultType:=CharToResultType(AResultType);\r\n  Result.FNodeType:=ANodeClass;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  TFPExprIdentifierDef\r\n  ---------------------------------------------------------------------}\r\n\r\nprocedure TFPExprIdentifierDef.SetName(const AValue: string);\r\nbegin\r\n  if FName=AValue then exit;\r\n  If (AValue<>'') then\r\n    If Assigned(Collection) and (TFPExprIdentifierDefs(Collection).IndexOfIdentifier(AValue)<>-1) then\r\n      RaiseParserError(SErrDuplicateIdentifier,[AValue]);\r\n  FName:=AValue;\r\nend;\r\n\r\nprocedure TFPExprIdentifierDef.SetResultType(const AValue: TResultType);\r\n\r\nbegin\r\n  If AValue<>FValue.ResultType then\r\n    begin\r\n    FValue.ResultType:=AValue;\r\n    SetValue(FStringValue);\r\n    end;\r\nend;\r\n\r\nprocedure TFPExprIdentifierDef.SetValue(const AValue: String);\r\nbegin\r\n  FStringValue:=AValue;\r\n  If (AValue<>'') then\r\n    Case FValue.ResultType of\r\n      rtBoolean  : FValue.resValue:=FStringValue='True';\r\n      rtInteger  : FValue.resValue:=StrToInt(AValue);\r\n      rtFloat    : FValue.resValue:=StrToFloat(AValue);\r\n      rtCurrency : FValue.resValue:=StrToCurr(AValue);\r\n      rtDateTime : FValue.resValue:=StrToDateTime(AValue);\r\n      rtString   : FValue.resValue:=AValue;\r\n    end\r\n  else\r\n    Case FValue.ResultType of\r\n      rtBoolean  : FValue.resValue:=False;\r\n      rtInteger  : FValue.resValue:=0;\r\n      rtFloat    : FValue.resValue:=0.0;\r\n      rtCurrency : FValue.resValue:=0.0;\r\n      rtDateTime : FValue.resValue:=0;\r\n      rtString   : FValue.resValue:='';\r\n    end\r\nend;\r\n\r\nprocedure TFPExprIdentifierDef.CheckResultType(const AType: TResultType);\r\nbegin\r\n  If FValue.ResultType<>AType then\r\n    RaiseParserError(SErrInvalidResultType,[ResultTypeName(AType)])\r\nend;\r\n\r\nprocedure TFPExprIdentifierDef.CheckVariable;\r\nbegin\r\n  If Identifiertype<>itvariable then\r\n    RaiseParserError(SErrNotVariable,[Name]);\r\n  if EventBasedVariable then\r\n    FetchValue;\r\nend;\r\n\r\nfunction TFPExprIdentifierDef.ArgumentCount: Integer;\r\nbegin\r\n  Result:=Length(FArgumentTypes);\r\nend;\r\n\r\nprocedure TFPExprIdentifierDef.Assign(Source: TPersistent);\r\n\r\nVar\r\n  EID : TFPExprIdentifierDef;\r\n\r\nbegin\r\n  if (Source is TFPExprIdentifierDef) then\r\n    begin\r\n    EID:=Source as TFPExprIdentifierDef;\r\n    FStringValue:=EID.FStringValue;\r\n    FValue:=EID.FValue;\r\n    FArgumentTypes:=EID.FArgumentTypes;\r\n    FIDType:=EID.FIDType;\r\n    FName:=EID.FName;\r\n    FOnGetValue:=EID.FOnGetValue;\r\n    FOnGetVarValue:=EID.FOnGetVarValue;\r\n    end\r\n  else\r\n    inherited Assign(Source);\r\nend;\r\n\r\nprocedure TFPExprIdentifierDef.SetArgumentTypes(const AValue: String);\r\n\r\nVar\r\n  I : integer;\r\n\r\nbegin\r\n  if FArgumentTypes=AValue then exit;\r\n  For I:=1 to Length(AValue) do\r\n    CharToResultType(AValue[i]);\r\n  FArgumentTypes:=AValue;\r\nend;\r\n\r\nprocedure TFPExprIdentifierDef.SetAsBoolean(const AValue: Boolean);\r\nbegin\r\n  CheckVariable;\r\n  CheckResultType(rtBoolean);\r\n  FValue.resValue:=AValue;\r\nend;\r\n\r\nprocedure TFPExprIdentifierDef.SetAsDateTime(const AValue: TDateTime);\r\nbegin\r\n  CheckVariable;\r\n  CheckResultType(rtDateTime);\r\n  FValue.resValue:=AValue;\r\nend;\r\n\r\nprocedure TFPExprIdentifierDef.SetAsFloat(const AValue: TExprFloat);\r\nbegin\r\n  CheckVariable;\r\n  CheckResultType(rtFloat);\r\n  FValue.resValue:=AValue;\r\nend;\r\n\r\nprocedure TFPExprIdentifierDef.SetAsCurrency(const AValue: Currency);\r\nbegin\r\n  CheckVariable;\r\n  CheckResultType(rtCurrency);\r\n  FValue.resValue:=AValue;\r\nend;\r\n\r\nprocedure TFPExprIdentifierDef.SetAsInteger(const AValue: NativeInt);\r\nbegin\r\n  CheckVariable;\r\n  CheckResultType(rtInteger);\r\n  FValue.resValue:=AValue;\r\nend;\r\n\r\nprocedure TFPExprIdentifierDef.SetAsString(const AValue: String);\r\nbegin\r\n  CheckVariable;\r\n  CheckResultType(rtString);\r\n  FValue.resValue:=AValue;\r\nend;\r\n\r\nfunction TFPExprIdentifierDef.GetValue: String;\r\nbegin\r\n  Case FValue.ResultType of\r\n    rtBoolean  : If FValue.resValue then\r\n                   Result:='True'\r\n                 else\r\n                   Result:='False';\r\n    rtInteger  : Result:=IntToStr(NativeInt(FValue.resValue));\r\n    rtFloat    : Result:=FloatToStr(TExprFloat(FValue.resValue));\r\n    rtCurrency : Result:=CurrToStr(Currency(FValue.resValue));\r\n    rtDateTime : Result:=FormatDateTime('cccc',TExprFloat(FValue.resValue));\r\n    rtString   : Result:=String(FValue.resValue);\r\n  end;\r\nend;\r\n\r\nprocedure TFPExprIdentifierDef.FetchValue;\r\n\r\nVar\r\n  RT,RT2 : TResultType;\r\n  I : Integer;\r\n\r\nbegin\r\n  RT:=ResultType;\r\n  if Assigned(FOnGetVarValue) then\r\n    FValue:=FOnGetVarValue(FName);\r\n  RT2:=FValue.ResultType;\r\n  if RT2<>RT then\r\n    begin\r\n    // Automatically convert integer to float.\r\n    if (rt2=rtInteger) and (rt=rtFloat) then\r\n      begin\r\n      FValue.ResultType:=RT;\r\n      I:=NativeInt(FValue.resValue);\r\n      FValue.resValue:=I;\r\n      end\r\n    else\r\n      begin\r\n      // Restore\r\n      FValue.ResultType:=RT;\r\n      Raise EExprParser.CreateFmt('Value handler for variable %s returned wrong type, expected \"%s\", got \"%s\"',[\r\n        FName,\r\n        GetEnumName(TypeInfo(TResultType),Ord(rt)),\r\n        GetEnumName(TypeInfo(TResultType),Ord(rt2))\r\n        ]);\r\n      end;\r\n    end;\r\nend;\r\n\r\nfunction TFPExprIdentifierDef.EventBasedVariable: Boolean;\r\nbegin\r\n  Result:=Assigned(FOnGetVarValue);\r\nend;\r\n\r\nfunction TFPExprIdentifierDef.GetResultType: TResultType;\r\nbegin\r\n  Result:=FValue.ResultType;\r\nend;\r\n\r\nfunction TFPExprIdentifierDef.GetAsFloat: TExprFloat;\r\nbegin\r\n  CheckResultType(rtFloat);\r\n  CheckVariable;\r\n  Result:=TExprFloat(FValue.resValue);\r\nend;\r\n\r\nfunction TFPExprIdentifierDef.GetAsCurrency: Currency;\r\nbegin\r\n  CheckResultType(rtCurrency);\r\n  CheckVariable;\r\n  Result:=Currency(FValue.resValue);\r\nend;\r\n\r\nfunction TFPExprIdentifierDef.GetAsBoolean: Boolean;\r\nbegin\r\n  CheckResultType(rtBoolean);\r\n  CheckVariable;\r\n  Result:=Boolean(FValue.resValue);\r\nend;\r\n\r\nfunction TFPExprIdentifierDef.GetAsDateTime: TDateTime;\r\nbegin\r\n  CheckResultType(rtDateTime);\r\n  CheckVariable;\r\n  Result:=TDateTime(FValue.resValue);\r\nend;\r\n\r\nfunction TFPExprIdentifierDef.GetAsInteger: NativeInt;\r\nbegin\r\n  CheckResultType(rtInteger);\r\n  CheckVariable;\r\n  Result:=NativeInt(FValue.resValue);\r\nend;\r\n\r\nfunction TFPExprIdentifierDef.GetAsString: String;\r\nbegin\r\n  CheckResultType(rtString);\r\n  CheckVariable;\r\n  Result:=String(FValue.resValue);\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  TExprBuiltInManager\r\n  ---------------------------------------------------------------------}\r\n\r\nfunction TExprBuiltInManager.GetCount: Integer;\r\nbegin\r\n  Result:=FDefs.Count;\r\nend;\r\n\r\nfunction TExprBuiltInManager.GetI(AIndex : Integer\r\n  ): TFPBuiltInExprIdentifierDef;\r\nbegin\r\n  Result:=TFPBuiltInExprIdentifierDef(FDefs[Aindex])\r\nend;\r\n\r\nconstructor TExprBuiltInManager.Create(AOwner: TComponent);\r\nbegin\r\n  inherited Create(AOwner);\r\n  FDefs:=TFPExprIdentifierDefs.Create(TFPBuiltInExprIdentifierDef)\r\nend;\r\n\r\ndestructor TExprBuiltInManager.Destroy;\r\nbegin\r\n  FreeAndNil(FDefs);\r\n  inherited Destroy;\r\nend;\r\n\r\nfunction TExprBuiltInManager.IndexOfIdentifier(const AName: string\r\n  ): Integer;\r\nbegin\r\n  Result:=FDefs.IndexOfIdentifier(AName);\r\nend;\r\n\r\nfunction TExprBuiltInManager.FindIdentifier(const AName: string\r\n  ): TFPBuiltinExprIdentifierDef;\r\nbegin\r\n  Result:=TFPBuiltinExprIdentifierDef(FDefs.FindIdentifier(AName));\r\nend;\r\n\r\nfunction TExprBuiltInManager.IdentifierByName(const AName: string\r\n  ): TFPBuiltinExprIdentifierDef;\r\nbegin\r\n  Result:=TFPBuiltinExprIdentifierDef(FDefs.IdentifierByName(AName));\r\nend;\r\n\r\nfunction TExprBuiltInManager.AddVariable(const ACategory: TBuiltInCategory;\r\n  const AName: string; AResultType: TResultType; AValue: String\r\n  ): TFPBuiltInExprIdentifierDef;\r\nbegin\r\n  Result:=TFPBuiltInExprIdentifierDef(FDefs.Addvariable(AName,AResultType,AValue));\r\n  Result.Category:=ACategory;\r\nend;\r\n\r\nfunction TExprBuiltInManager.AddBooleanVariable(\r\n  const ACategory: TBuiltInCategory; const AName: string; AValue: Boolean\r\n  ): TFPBuiltInExprIdentifierDef;\r\nbegin\r\n  Result:=TFPBuiltInExprIdentifierDef(FDefs.AddBooleanvariable(AName,AValue));\r\n  Result.Category:=ACategory;\r\nend;\r\n\r\nfunction TExprBuiltInManager.AddIntegerVariable(\r\n  const ACategory: TBuiltInCategory; const AName: string; AValue: Integer\r\n  ): TFPBuiltInExprIdentifierDef;\r\nbegin\r\n  Result:=TFPBuiltInExprIdentifierDef(FDefs.AddIntegerVariable(AName,AValue));\r\n  Result.Category:=ACategory;\r\nend;\r\n\r\nfunction TExprBuiltInManager.AddFloatVariable(\r\n  const ACategory: TBuiltInCategory; const AName: string;\r\n  AValue: TExprFloat): TFPBuiltInExprIdentifierDef;\r\nbegin\r\n  Result:=TFPBuiltInExprIdentifierDef(FDefs.AddFloatVariable(AName,AValue));\r\n  Result.Category:=ACategory;\r\nend;\r\n\r\nfunction TExprBuiltInManager.AddCurrencyVariable(const ACategory: TBuiltInCategory; const AName: string; AValue: Currency\r\n  ): TFPBuiltInExprIdentifierDef;\r\nbegin\r\n  Result:=TFPBuiltInExprIdentifierDef(FDefs.AddCurrencyVariable(AName,AValue));\r\n  Result.Category:=ACategory;\r\nend;\r\n\r\nfunction TExprBuiltInManager.AddStringVariable(\r\n  const ACategory: TBuiltInCategory; const AName: string; AValue: String\r\n  ): TFPBuiltInExprIdentifierDef;\r\nbegin\r\n  Result:=TFPBuiltInExprIdentifierDef(FDefs.AddStringVariable(AName,AValue));\r\n  Result.Category:=ACategory;\r\nend;\r\n\r\nfunction TExprBuiltInManager.AddDateTimeVariable(\r\n  const ACategory: TBuiltInCategory; const AName: string; AValue: TDateTime\r\n  ): TFPBuiltInExprIdentifierDef;\r\nbegin\r\n  Result:=TFPBuiltInExprIdentifierDef(FDefs.AddDateTimeVariable(AName,AValue));\r\n  Result.Category:=ACategory;\r\nend;\r\n\r\n\r\nfunction TExprBuiltInManager.AddFunction(const ACategory: TBuiltInCategory;\r\n  const AName: string; const AResultType: Char; const AParamTypes: String;\r\n  ACallBack: TFPExprFunctionEvent): TFPBuiltInExprIdentifierDef;\r\nbegin\r\n  Result:=TFPBuiltInExprIdentifierDef(FDefs.AddFunction(AName,AResultType,AParamTypes,ACallBack));\r\n  Result.Category:=ACategory;\r\nend;\r\n\r\nfunction TExprBuiltInManager.AddFunction(const ACategory: TBuiltInCategory;\r\n  const AName: string; const AResultType: Char; const AParamTypes: String;\r\n  ANodeClass: TFPExprFunctionClass): TFPBuiltInExprIdentifierDef;\r\nbegin\r\n  Result:=TFPBuiltInExprIdentifierDef(FDefs.AddFunction(AName,AResultType,AParamTypes,ANodeClass));\r\n  Result. Category:=ACategory;\r\nend;\r\n\r\n\r\n{ ---------------------------------------------------------------------\r\n  Various Nodes\r\n  ---------------------------------------------------------------------}\r\n\r\n{ TFPBinaryOperation }\r\n\r\nprocedure TFPBinaryOperation.CheckSameNodeTypes;\r\n\r\nVar\r\n  LT,RT : TResultType;\r\n\r\n\r\nbegin\r\n  LT:=Left.NodeType;\r\n  RT:=Right.NodeType;\r\n  if (RT<>LT) then\r\n    RaiseParserError(SErrTypesDoNotMatch,[ResultTypeName(LT),ResultTypeName(RT),Left.AsString,Right.AsString])\r\nend;\r\n\r\nconstructor TFPBinaryOperation.Create(ALeft, ARight: TFPExprNode);\r\nbegin\r\n  FLeft:=ALeft;\r\n  FRight:=ARight;\r\nend;\r\n\r\ndestructor TFPBinaryOperation.Destroy;\r\nbegin\r\n  FreeAndNil(FLeft);\r\n  FreeAndNil(FRight);\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TFPBinaryOperation.InitAggregate;\r\nbegin\r\n  inherited InitAggregate;\r\n  if Assigned(Left) then\r\n    Left.InitAggregate;\r\n  if Assigned(Right) then\r\n    Right.InitAggregate;\r\nend;\r\n\r\nprocedure TFPBinaryOperation.UpdateAggregate;\r\nbegin\r\n  inherited UpdateAggregate;\r\n  if Assigned(Left) then\r\n    Left.UpdateAggregate;\r\n  if Assigned(Right) then\r\n    Right.UpdateAggregate;\r\nend;\r\n\r\nfunction TFPBinaryOperation.HasAggregate: Boolean;\r\nbegin\r\n  Result:=inherited HasAggregate;\r\n  if Assigned(Left) then\r\n    Result:=Result or Left.HasAggregate;\r\n  if Assigned(Right) then\r\n    Result:=Result or Right.HasAggregate;\r\nend;\r\n\r\nprocedure TFPBinaryOperation.Check;\r\nbegin\r\n  If Not Assigned(Left) then\r\n    RaiseParserError(SErrNoLeftOperand,[classname]);\r\n  If Not Assigned(Right) then\r\n    RaiseParserError(SErrNoRightOperand,[classname]);\r\nend;\r\n\r\n{ TFPUnaryOperator }\r\n\r\nconstructor TFPUnaryOperator.Create(AOperand: TFPExprNode);\r\nbegin\r\n  FOperand:=AOperand;\r\nend;\r\n\r\ndestructor TFPUnaryOperator.Destroy;\r\nbegin\r\n  FreeAndNil(FOperand);\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TFPUnaryOperator.InitAggregate;\r\nbegin\r\n  inherited InitAggregate;\r\n  if Assigned(FOperand) then\r\n    FOperand.InitAggregate;\r\n\r\nend;\r\n\r\nprocedure TFPUnaryOperator.UpdateAggregate;\r\nbegin\r\n  inherited UpdateAggregate;\r\n  if Assigned(FOperand) then\r\n    FOperand.UpdateAggregate;\r\nend;\r\n\r\nfunction TFPUnaryOperator.HasAggregate: Boolean;\r\nbegin\r\n  Result:=inherited HasAggregate;\r\n  if Assigned(FOperand) then\r\n    Result:=Result or FOperand.HasAggregate;\r\nend;\r\n\r\nprocedure TFPUnaryOperator.Check;\r\nbegin\r\n  If Not Assigned(Operand) then\r\n    RaiseParserError(SErrNoOperand,[Self.className]);\r\nend;\r\n\r\n{ TFPConstExpression }\r\n\r\nconstructor TFPConstExpression.CreateString(AValue: String);\r\nbegin\r\n  FValue.ResultType:=rtString;\r\n  FValue.resValue:=AValue;\r\nend;\r\n\r\nconstructor TFPConstExpression.CreateInteger(AValue: NativeInt);\r\nbegin\r\n  FValue.ResultType:=rtInteger;\r\n  FValue.resValue:=AValue;\r\nend;\r\n\r\nconstructor TFPConstExpression.CreateDateTime(AValue: TDateTime);\r\nbegin\r\n  FValue.ResultType:=rtDateTime;\r\n  FValue.resValue:=AValue;\r\nend;\r\n\r\nconstructor TFPConstExpression.CreateFloat(AValue: TExprFloat);\r\nbegin\r\n  Inherited create;\r\n  FValue.ResultType:=rtFloat;\r\n  FValue.resValue:=AValue;\r\nend;\r\n\r\nconstructor TFPConstExpression.CreateCurrency(AValue: Currency);\r\nbegin\r\n  Inherited create;\r\n  FValue.ResultType:=rtCurrency;\r\n  FValue.resValue:=AValue;\r\nend;\r\n\r\nconstructor TFPConstExpression.CreateBoolean(AValue: Boolean);\r\nbegin\r\n  FValue.ResultType:=rtBoolean;\r\n  FValue.resValue:=AValue;\r\nend;\r\n\r\nprocedure TFPConstExpression.Check;\r\nbegin\r\n  // Nothing to check;\r\nend;\r\n\r\nfunction TFPConstExpression.NodeType: TResultType;\r\nbegin\r\n  Result:=FValue.ResultType;\r\nend;\r\n\r\nFunction TFPConstExpression.GetNodeValue : TFPExpressionResult;\r\nbegin\r\n  Result:=FValue;\r\nend;\r\n\r\nfunction TFPConstExpression.AsString: string ;\r\n\r\nbegin\r\n  Case NodeType of\r\n    rtString  : Result:=''''+String(FValue.resValue)+'''';\r\n    rtInteger : Result:=IntToStr(NativeInt(FValue.resValue));\r\n    rtDateTime : Result:=''''+FormatDateTime('cccc',TDateTime(FValue.resValue))+'''';\r\n    rtBoolean : If Boolean(FValue.resValue) then Result:='True' else Result:='False';\r\n    rtFloat : Str(TExprFloat(FValue.resValue),Result);\r\n    rtCurrency : Str(Currency(FValue.resValue),Result);\r\n  end;\r\nend;\r\n\r\n\r\n{ TFPNegateOperation }\r\n\r\nprocedure TFPNegateOperation.Check;\r\nbegin\r\n  Inherited;\r\n  If Not (Operand.NodeType in [rtInteger,rtFloat,rtCurrency]) then\r\n    RaiseParserError(SErrNoNegation,[ResultTypeName(Operand.NodeType),Operand.AsString])\r\nend;\r\n\r\nfunction TFPNegateOperation.NodeType: TResultType;\r\nbegin\r\n  Result:=Operand.NodeType;\r\nend;\r\n\r\nFunction TFPNegateOperation.GetNodeValue : TFPExpressionResult;\r\nbegin\r\n  Result:=Operand.GetNodeValue;\r\n  Case Result.ResultType of\r\n    rtInteger : Result.resValue:=-NativeInt(Result.resValue);\r\n    rtFloat : Result.resValue:=-TExprFloat(Result.resValue);\r\n    rtCurrency : Result.resValue:=-Currency(Result.resValue);\r\n  end;\r\nend;\r\n\r\nfunction TFPNegateOperation.AsString: String;\r\nbegin\r\n  Result:='-'+TrimLeft(Operand.AsString);\r\nend;\r\n\r\n{ TFPBinaryAndOperation }\r\n\r\nprocedure TFPBooleanOperation.Check;\r\nbegin\r\n  inherited Check;\r\n  CheckNodeType(Left,[rtInteger,rtBoolean]);\r\n  CheckNodeType(Right,[rtInteger,rtBoolean]);\r\n  CheckSameNodeTypes;\r\nend;\r\n\r\nfunction TFPBooleanOperation.NodeType: TResultType;\r\nbegin\r\n  Result:=Left.NodeType;\r\nend;\r\n\r\nFunction TFPBinaryAndOperation.GetNodeValue : TFPExpressionResult;\r\n\r\nVar\r\n  RRes : TFPExpressionResult;\r\n\r\nbegin\r\n  Result:=Left.GetNodeValue;\r\n  RRes:=Right.GetNodeValue;\r\n  Case Result.ResultType of\r\n    rtBoolean : Result.resValue:=Boolean(Result.resValue) and Boolean(RRes.resValue);\r\n    rtInteger : Result.resValue:=NativeInt(Result.resValue) and NativeInt(RRes.resValue);\r\n  end;\r\nend;\r\n\r\nfunction TFPBinaryAndOperation.AsString: string;\r\nbegin\r\n  Result:=Left.AsString+' and '+Right.AsString;\r\nend;\r\n\r\n{ TFPExprNode }\r\n\r\nprocedure TFPExprNode.CheckNodeType(Anode: TFPExprNode; Allowed: TResultTypes);\r\n\r\nVar\r\n  S : String;\r\n  A : TResultType;\r\n\r\nbegin\r\n  If (Anode=Nil) then\r\n    RaiseParserError(SErrNoNodeToCheck);\r\n  If Not (ANode.NodeType in Allowed) then\r\n    begin\r\n    S:='';\r\n    For A:=Low(TResultType) to High(TResultType) do\r\n      If A in Allowed then\r\n        begin\r\n        If S<>'' then\r\n          S:=S+',';\r\n        S:=S+ResultTypeName(A);\r\n        end;\r\n    RaiseParserError(SInvalidNodeType,[ResultTypeName(ANode.NodeType),S,ANode.AsString]);\r\n    end;\r\nend;\r\n\r\nprocedure TFPExprNode.InitAggregate;\r\nbegin\r\n  // Do nothing\r\nend;\r\n\r\nprocedure TFPExprNode.UpdateAggregate;\r\nbegin\r\n  // Do nothing\r\nend;\r\n\r\nfunction TFPExprNode.HasAggregate: Boolean;\r\nbegin\r\n  Result:=IsAggregate;\r\nend;\r\n\r\nclass function TFPExprNode.IsAggregate: Boolean;\r\nbegin\r\n  Result:=False;\r\nend;\r\n\r\nfunction TFPExprNode.NodeValue: TFPExpressionResult;\r\nbegin\r\n  Result:=GetNodeValue;\r\nend;\r\n\r\n{ TFPBinaryOrOperation }\r\n\r\nfunction TFPBinaryOrOperation.AsString: string;\r\nbegin\r\n  Result:=Left.AsString+' or '+Right.AsString;\r\nend;\r\n\r\nFunction TFPBinaryOrOperation.GetNodeValue : TFPExpressionResult;\r\n\r\nVar\r\n  RRes : TFPExpressionResult;\r\n\r\nbegin\r\n  Result:=Left.GetNodeValue;\r\n  RRes:=Right.GetNodeValue;\r\n  Case Result.ResultType of\r\n    rtBoolean : Result.resValue:=Boolean(Result.resValue) or Boolean(RRes.resValue);\r\n    rtInteger : Result.resValue:=NativeInt(Result.resValue) or NativeInt(RRes.resValue);\r\n  end;\r\nend;\r\n\r\n{ TFPBinaryXOrOperation }\r\n\r\nfunction TFPBinaryXOrOperation.AsString: string;\r\nbegin\r\n  Result:=Left.AsString+' xor '+Right.AsString;\r\nend;\r\n\r\nFunction TFPBinaryXOrOperation.GetNodeValue : TFPExpressionResult;\r\n\r\nVar\r\n  RRes : TFPExpressionResult;\r\n\r\nbegin\r\n  Result:=Left.GetNodeValue;\r\n  RRes:=Right.GetNodeValue;\r\n  Case Result.ResultType of\r\n    rtBoolean : Result.resValue:=Boolean(Result.resValue) xor Boolean(RRes.resValue);\r\n    rtInteger : Result.resValue:=NativeInt(Result.resValue) xor NativeInt(RRes.resValue);\r\n  end;\r\nend;\r\n\r\n{ TFPNotNode }\r\n\r\nprocedure TFPNotNode.Check;\r\nbegin\r\n  If Not (Operand.NodeType in [rtInteger,rtBoolean]) then\r\n    RaiseParserError(SErrNoNotOperation,[ResultTypeName(Operand.NodeType),Operand.AsString])\r\nend;\r\n\r\nfunction TFPNotNode.NodeType: TResultType;\r\nbegin\r\n  Result:=Operand.NodeType;\r\nend;\r\n\r\nFunction TFPNotNode.GetNodeValue: TFPExpressionResult;\r\nbegin\r\n  Result:=Operand.GetNodeValue;\r\n  Case result.ResultType of\r\n    rtInteger : Result.resValue:=Not Result.resValue;\r\n    rtBoolean : Result.resValue:=Not Result.resValue;\r\n  end\r\nend;\r\n\r\nfunction TFPNotNode.AsString: String;\r\nbegin\r\n  Result:='not '+Operand.AsString;\r\nend;\r\n\r\n{ TIfOperation }\r\n\r\nconstructor TIfOperation.Create(ACondition, ALeft, ARight: TFPExprNode);\r\nbegin\r\n  Inherited Create(ALeft,ARight);\r\n  FCondition:=ACondition;\r\nend;\r\n\r\ndestructor TIfOperation.destroy;\r\nbegin\r\n  FreeAndNil(FCondition);\r\n  inherited destroy;\r\nend;\r\n\r\nFunction TIfOperation.GetNodeValue: TFPExpressionResult;\r\n\r\nbegin\r\n  Result:=FCondition.GetNodeValue;\r\n  If Boolean(Result.resValue) then\r\n    Result:=Left.GetNodeValue\r\n  else\r\n    Result:=Right.GetNodeValue;\r\nend;\r\n\r\nprocedure TIfOperation.Check;\r\nbegin\r\n  inherited Check;\r\n  if (Condition.NodeType<>rtBoolean) then\r\n    RaiseParserError(SErrIFNeedsBoolean,[Condition.AsString]);\r\n  CheckSameNodeTypes;\r\nend;\r\n\r\nprocedure TIfOperation.InitAggregate;\r\nbegin\r\n  inherited InitAggregate;\r\n  If Assigned(FCondition) then\r\n    fCondition.InitAggregate;\r\nend;\r\n\r\nprocedure TIfOperation.UpdateAggregate;\r\nbegin\r\n  inherited UpdateAggregate;\r\n  If Assigned(FCondition) then\r\n    FCondition.UpdateAggregate;\r\nend;\r\n\r\nfunction TIfOperation.HasAggregate: Boolean;\r\nbegin\r\n  Result:=inherited HasAggregate;\r\n  if Assigned(Condition) then\r\n    Result:=Result or Condition.HasAggregate;\r\nend;\r\n\r\nfunction TIfOperation.NodeType: TResultType;\r\nbegin\r\n  Result:=Left.NodeType;\r\nend;\r\n\r\nfunction TIfOperation.AsString: string;\r\nbegin\r\n  Result:=Format('if(%s , %s , %s)',[Condition.AsString,Left.AsString,Right.AsString]);\r\nend;\r\n\r\n{ TCaseOperation }\r\n\r\nFunction TCaseOperation.GetNodeValue: TFPExpressionResult;\r\n\r\nVar\r\n  I,L : Integer;\r\n  B : Boolean;\r\n  RT,RV : TFPExpressionResult;\r\n\r\nbegin\r\n  RT:=FArgs[0].GetNodeValue;\r\n  L:=Length(FArgs);\r\n  I:=2;\r\n  B:=False;\r\n  While (Not B) and (I<L) do\r\n    begin\r\n    Result:=FArgs[i].GetNodeValue;\r\n    Case RT.ResultType of\r\n      rtBoolean  : B:=RT.resValue=RV.resValue;\r\n      rtInteger  : B:=RT.resValue=RV.resValue;\r\n      rtFloat    : B:=RT.resValue=RV.resValue;\r\n      rtCurrency : B:=RT.resValue=RV.resValue;\r\n      rtDateTime : B:=RT.resValue=RV.resValue;\r\n      rtString   : B:=RT.resValue=RV.resValue;\r\n    end;\r\n    If Not B then\r\n      Inc(I,2);\r\n    end;\r\n  // Set result type.\r\n  Result.ResultType:=FArgs[1].NodeType;\r\n  If B then\r\n    Result:=FArgs[I+1].GetNodeValue\r\n  else if ((L mod 2)=0) then\r\n    Result:=FArgs[1].GetNodeValue;\r\nend;\r\n\r\nprocedure TCaseOperation.Check;\r\n\r\nVar\r\n  T,V : TResultType;\r\n  I : Integer;\r\n  N : TFPExprNode;\r\n\r\nbegin\r\n  If (Length(FArgs)<3) then\r\n    RaiseParserError(SErrCaseNeeds3);\r\n  If ((Length(FArgs) mod 2)=1) then\r\n    RaiseParserError(SErrCaseEvenCount);\r\n  T:=FArgs[0].NodeType;\r\n  V:=FArgs[1].NodeType;\r\n  For I:=2 to Length(Fargs)-1 do\r\n    begin\r\n    N:=FArgs[I];\r\n    // Even argument types (labels) must equal tag.\r\n    If ((I mod 2)=0) then\r\n      begin\r\n      If Not (N is TFPConstExpression) then\r\n        RaiseParserError(SErrCaseLabelNotAConst,[I div 2,N.AsString]);\r\n      If (N.NodeType<>T) then\r\n        RaiseParserError(SErrCaseLabelType,[I div 2,N.AsString,ResultTypeName(T),ResultTypeName(N.NodeType)]);\r\n      end\r\n    else // Odd argument types (values) must match first.\r\n      begin\r\n      If (N.NodeType<>V) then\r\n        RaiseParserError(SErrCaseValueType,[(I-1)div 2,N.AsString,ResultTypeName(V),ResultTypeName(N.NodeType)]);\r\n      end\r\n    end;\r\nend;\r\n\r\nprocedure TCaseOperation.InitAggregate;\r\n\r\nVar\r\n  I : Integer;\r\n\r\nbegin\r\n  inherited InitAggregate;\r\n  if Assigned(FCondition) then\r\n    FCondition.InitAggregate;\r\n  For I:=0 to Length(Fargs)-1 do\r\n    FArgs[i].InitAggregate;\r\nend;\r\n\r\nprocedure TCaseOperation.UpdateAggregate;\r\nVar\r\n  I : Integer;\r\nbegin\r\n  inherited UpdateAggregate;\r\n  if Assigned(FCondition) then\r\n    FCondition.UpdateAggregate;\r\n  For I:=0 to Length(Fargs)-1 do\r\n    FArgs[i].InitAggregate;\r\nend;\r\n\r\nFunction  TCaseOperation.HasAggregate : Boolean;\r\n\r\nVar\r\n  I,L : Integer;\r\nbegin\r\n  Result:=inherited HasAggregate;\r\n  L:=Length(Fargs);\r\n  I:=0;\r\n  While (Not Result) and (I<L) do\r\n    begin\r\n    Result:=Result or FArgs[i].HasAggregate;\r\n    Inc(I)\r\n    end;\r\nend;\r\n\r\nfunction TCaseOperation.NodeType: TResultType;\r\nbegin\r\n  Result:=FArgs[1].NodeType;\r\nend;\r\n\r\nconstructor TCaseOperation.Create(Args: TExprArgumentArray);\r\nbegin\r\n  Fargs:=Args;\r\nend;\r\n\r\ndestructor TCaseOperation.destroy;\r\n\r\nVar\r\n  I : Integer;\r\n\r\nbegin\r\n  For I:=0 to Length(FArgs)-1 do\r\n    FreeAndNil(Fargs[I]);\r\n  inherited destroy;\r\nend;\r\n\r\nfunction TCaseOperation.AsString: string;\r\n\r\nVar\r\n  I : integer;\r\n\r\nbegin\r\n  Result:='';\r\n  For I:=0 to Length(FArgs)-1 do\r\n    begin\r\n    If (Result<>'') then\r\n      Result:=Result+', ';\r\n    Result:=Result+FArgs[i].AsString;\r\n    end;\r\n  Result:='Case('+Result+')';\r\nend;\r\n\r\n{ TFPBooleanResultOperation }\r\n\r\nprocedure TFPBooleanResultOperation.Check;\r\nbegin\r\n  inherited Check;\r\n  CheckSameNodeTypes;\r\nend;\r\n\r\nfunction TFPBooleanResultOperation.NodeType: TResultType;\r\nbegin\r\n  Result:=rtBoolean;\r\nend;\r\n\r\n{ TFPEqualOperation }\r\n\r\nfunction TFPEqualOperation.AsString: string;\r\nbegin\r\n  Result:=Left.AsString+' = '+Right.AsString;\r\nend;\r\n\r\nFunction TFPEqualOperation.GetNodeValue : TFPExpressionResult;\r\n\r\nVar\r\n  RRes : TFPExpressionResult;\r\n\r\nbegin\r\n  Result:=Left.GetNodeValue;\r\n  RRes:=Right.GetNodeValue;\r\n  Result.resValue:=Result.resValue=RRes.resValue;\r\n  Result.ResultType:=rtBoolean;\r\nend;\r\n\r\n{ TFPLikeOperation }\r\n\r\nfunction TFPLikeOperation.GetNodeValue: TFPExpressionResult;\r\n\r\nconst\r\n  RESpecials = '([\\$\\+\\[\\]\\(\\)\\\\\\.\\*\\^\\?\\|])';\r\n\r\nVar\r\n  S: String;\r\n  RE : TJSRegexp;\r\n\r\nbegin\r\n  // We need to recreate a regexp every time, since the RE can change any time the right-hand expression changes\r\n  S:=String(Right.NodeValue.resValue);\r\n  if (FLast<>'') and (S=FLast) then\r\n    RE:=FRE\r\n  else\r\n    begin\r\n    FLast:=S;\r\n    S:=TJSString(S).replace(TJSRegexp.new(RESpecials,'g'),'\\$1');\r\n    S:=StringReplace(S,'%','(.*)',[rfReplaceAll]);\r\n    S:=StringReplace(S,'_','(.)',[rfReplaceAll]);\r\n    S:='^'+S+'$';\r\n    try\r\n      // Writeln('Ex: ',FLast,' -> ',S);\r\n      FRE:=TJSRegexp.New(S,'i');\r\n      Re:=FRe;\r\n    except\r\n      Result.resValue:=False;\r\n      exit;\r\n    end;\r\n    end;\r\n  Result.resValue:=RE.Test(String(Left.NodeValue.resValue));\r\n  // Writeln('Checking : ',flast,' (',FRE.Source,') on ',Left.NodeValue.resValue,' : ',  Result.resValue);\r\nend;\r\n\r\n\r\nprocedure TFPLikeOperation.check;\r\nbegin\r\n  if Left.NodeType<>rtString then\r\n    RaiseParserError(SErrStringTypeRequired,[ResultTypeName(Left.NodeType),Left.AsString]);\r\n  if Right.NodeType<>rtString then\r\n    RaiseParserError(SErrStringTypeRequired,[ResultTypeName(Right.NodeType),Right.AsString]);\r\n  inherited check;\r\nend;\r\n\r\nfunction TFPLikeOperation.AsString: string;\r\nbegin\r\n  Result:=Left.AsString+' LIKE '+Right.AsString;\r\nend;\r\n\r\n{ TFPUnequalOperation }\r\n\r\nfunction TFPUnequalOperation.AsString: string;\r\nbegin\r\n  Result:=Left.AsString+' <> '+Right.AsString;\r\nend;\r\n\r\nFunction TFPUnequalOperation.GetNodeValue : TFPExpressionResult;\r\nbegin\r\n  Result:=Inherited GetNodeValue;\r\n  Result.resValue:=Not Result.resValue;\r\nend;\r\n\r\n\r\n{ TFPLessThanOperation }\r\n\r\nfunction TFPLessThanOperation.AsString: string;\r\nbegin\r\n  Result:=Left.AsString+' < '+Right.AsString;\r\nend;\r\n\r\nFunction TFPLessThanOperation.GetNodeValue : TFPExpressionResult;\r\nVar\r\n  RRes : TFPExpressionResult;\r\n\r\nbegin\r\n  Result:=Left.GetNodeValue;\r\n  RRes:=Right.GetNodeValue;\r\n  Case Result.ResultType of\r\n    rtInteger  : Result.resValue:=NativeInt(Result.resValue)<NativeInt(RRes.resValue);\r\n    rtFloat    : Result.resValue:=TExprFloat(Result.resValue)<TExprFloat(RRes.resValue);\r\n    rtCurrency : Result.resValue:=Currency(Result.resValue)<Currency(RRes.resValue);\r\n    rtDateTime : Result.resValue:=TDateTime(Result.resValue)<TDateTime(RRes.resValue);\r\n    rtString   : Result.resValue:=String(Result.resValue)<String(RRes.resValue);\r\n  end;\r\n  Result.ResultType:=rtBoolean;\r\nend;\r\n\r\n{ TFPGreaterThanOperation }\r\n\r\nfunction TFPGreaterThanOperation.AsString: string;\r\nbegin\r\n  Result:=Left.AsString+' > '+Right.AsString;\r\nend;\r\n\r\nFunction TFPGreaterThanOperation.GetNodeValue : TFPExpressionResult;\r\n\r\nVar\r\n  RRes : TFPExpressionResult;\r\n\r\nbegin\r\n  Result:=Left.GetNodeValue;\r\n  RRes:=Right.GetNodeValue;\r\n  Case Result.ResultType of\r\n    rtInteger : case Right.NodeType of\r\n                  rtInteger : Result.resValue:=NativeInt(Result.resValue)>NativeInt(RRes.resValue);\r\n                  rtFloat : Result.resValue:=NativeInt(Result.resValue)>TExprFloat(RRes.resValue);\r\n                  rtCurrency : Result.resValue:=NativeINt(Result.resValue)>Currency(RRes.resValue);\r\n                end;\r\n    rtFloat   : case Right.NodeType of\r\n                  rtInteger : Result.resValue:=TExprFloat(Result.resValue)>NativeInt(RRes.resValue);\r\n                  rtFloat : Result.resValue:=TExprFloat(Result.resValue)>TExprFloat(RRes.resValue);\r\n                  rtCurrency : Result.resValue:=TExprFloat(Result.resValue)>Currency(RRes.resValue);\r\n                end;\r\n    rtCurrency   : case Right.NodeType of\r\n                  rtInteger : Result.resValue:=Currency(Result.resValue)>NativeInt(RRes.resValue);\r\n                  rtFloat : Result.resValue:=Currency(Result.resValue)>TExprFloat(RRes.resValue);\r\n                  rtCurrency : Result.resValue:=Currency(Result.resValue)>Currency(RRes.resValue);\r\n                end;\r\n    rtDateTime : Result.resValue:=TDateTime(Result.resValue)>TDateTime(RRes.resValue);\r\n    rtString   : Result.resValue:=String(Result.resValue)>String(RRes.resValue);\r\n  end;\r\n  Result.ResultType:=rtBoolean;\r\nend;\r\n\r\n{ TFPGreaterThanEqualOperation }\r\n\r\nfunction TFPGreaterThanEqualOperation.AsString: string;\r\nbegin\r\n  Result:=Left.AsString+' >= '+Right.AsString;\r\nend;\r\n\r\nFunction TFPGreaterThanEqualOperation.GetNodeValue : TFPExpressionResult;\r\nbegin\r\n  Result:=Inherited GetNodeValue;\r\n  Result.resValue:=Not Result.resValue;\r\nend;\r\n\r\n{ TFPLessThanEqualOperation }\r\n\r\nfunction TFPLessThanEqualOperation.AsString: string;\r\nbegin\r\n  Result:=Left.AsString+' <= '+Right.AsString;\r\nend;\r\n\r\nFunction TFPLessThanEqualOperation.GetNodeValue : TFPExpressionResult;\r\nbegin\r\n  Result:=Inherited GetNodeValue;\r\n  Result.resValue:=Not Result.resValue;\r\nend;\r\n\r\n{ TFPOrderingOperation }\r\n\r\nprocedure TFPOrderingOperation.Check;\r\n\r\nConst\r\n  AllowedTypes =[rtInteger,rtfloat,rtCurrency,rtDateTime,rtString];\r\n\r\nbegin\r\n  CheckNodeType(Left,AllowedTypes);\r\n  CheckNodeType(Right,AllowedTypes);\r\n  inherited Check;\r\nend;\r\n\r\n{ TMathOperation }\r\n\r\nprocedure TMathOperation.Check;\r\n\r\nConst\r\n  AllowedTypes =[rtInteger,rtfloat,rtCurrency,rtDateTime,rtString];\r\n\r\nbegin\r\n  inherited Check;\r\n  CheckNodeType(Left,AllowedTypes);\r\n  CheckNodeType(Right,AllowedTypes);\r\n  CheckSameNodeTypes;\r\nend;\r\n\r\nfunction TMathOperation.NodeType: TResultType;\r\nbegin\r\n  Result:=Left.NodeType;\r\nend;\r\n\r\n{ TFPAddOperation }\r\n\r\nfunction TFPAddOperation.AsString: string;\r\nbegin\r\n  Result:=Left.AsString+' + '+Right.asString;\r\nend;\r\n\r\nFunction TFPAddOperation.GetNodeValue : TFPExpressionResult;\r\n\r\nVar\r\n  RRes : TFPExpressionResult;\r\n\r\nbegin\r\n  Result:=Left.GetNodeValue;\r\n  RRes:=Right.GetNodeValue;\r\n  case Result.ResultType of\r\n    rtInteger  : Result.resValue:=NativeInt(Result.resValue)+NativeInt(RRes.resValue);\r\n    rtString   : Result.resValue:=String(Result.resValue)+String(RRes.resValue);\r\n    rtDateTime : Result.resValue:=TDateTime(Result.resValue)+TDateTime(RRes.resValue);\r\n    rtFloat    : Result.resValue:=TExprFloat(Result.resValue)+TExprFloat(RRes.resValue);\r\n    rtCurrency : Result.resValue:=Currency(Result.resValue)+Currency(RRes.resValue);\r\n  end;\r\n  Result.ResultType:=NodeType;\r\nend;\r\n\r\n{ TFPSubtractOperation }\r\n\r\nprocedure TFPSubtractOperation.check;\r\n\r\nConst\r\n  AllowedTypes =[rtInteger,rtfloat,rtCurrency,rtDateTime];\r\n\r\nbegin\r\n  CheckNodeType(Left,AllowedTypes);\r\n  CheckNodeType(Right,AllowedTypes);\r\n  inherited check;\r\nend;\r\n\r\nfunction TFPSubtractOperation.AsString: string;\r\nbegin\r\n  Result:=Left.AsString+' - '+Right.asString;\r\nend;\r\n\r\nFunction TFPSubtractOperation.GetNodeValue : TFPExpressionResult;\r\n\r\nVar\r\n  RRes : TFPExpressionResult;\r\n\r\nbegin\r\n  Result:=Left.GetNodeValue;\r\n  RRes:=Right.GetNodeValue;\r\n  case Result.ResultType of\r\n    rtInteger  : Result.resValue:=NativeInt(Result.resValue)-NativeInt(RRes.resValue);\r\n    rtDateTime : Result.resValue:=TDateTime(Result.resValue)-TDateTime(RRes.resValue);\r\n    rtFloat    : Result.resValue:=TExprFloat(Result.resValue)-TExprFloat(RRes.resValue);\r\n    rtCurrency : Result.resValue:=Currency(Result.resValue)-Currency(RRes.resValue);\r\n  end;\r\nend;\r\n\r\n{ TFPMultiplyOperation }\r\n\r\nprocedure TFPMultiplyOperation.check;\r\n\r\nConst\r\n  AllowedTypes =[rtInteger,rtCurrency,rtfloat];\r\n\r\nbegin\r\n  CheckNodeType(Left,AllowedTypes);\r\n  CheckNodeType(Right,AllowedTypes);\r\n  Inherited;\r\nend;\r\n\r\nfunction TFPMultiplyOperation.AsString: string;\r\nbegin\r\n  Result:=Left.AsString+' * '+Right.asString;\r\nend;\r\n\r\nFunction TFPMultiplyOperation.GetNodeValue : TFPExpressionResult;\r\nVar\r\n  RRes : TFPExpressionResult;\r\n\r\nbegin\r\n  Result:=Left.GetNodeValue;\r\n  RRes:=Right.GetNodeValue;\r\n  case Result.ResultType of\r\n    rtInteger  : Result.resValue:=NativeInt(Result.resValue)*NativeInt(RRes.resValue);\r\n    rtFloat    : Result.resValue:=TExprFloat(Result.resValue)*TExprFloat(RRes.resValue);\r\n    rtCurrency : Result.resValue:=Currency(Result.resValue)*Currency(RRes.resValue);\r\n  end;\r\nend;\r\n\r\n{ TFPDivideOperation }\r\n\r\nprocedure TFPDivideOperation.check;\r\nConst\r\n  AllowedTypes =[rtInteger,rtCurrency,rtfloat];\r\n\r\nbegin\r\n  CheckNodeType(Left,AllowedTypes);\r\n  CheckNodeType(Right,AllowedTypes);\r\n  inherited check;\r\nend;\r\n\r\nfunction TFPDivideOperation.AsString: string;\r\nbegin\r\n  Result:=Left.AsString+' / '+Right.asString;\r\nend;\r\n\r\nfunction TFPDivideOperation.NodeType: TResultType;\r\n\r\nbegin\r\n  if (Left.NodeType=rtCurrency) and (Right.NodeType=rtCurrency) then\r\n    Result:=rtCurrency\r\n  else\r\n    Result:=rtFloat;\r\nend;\r\n\r\nFunction TFPDivideOperation.GetNodeValue : TFPExpressionResult;\r\n\r\nVar\r\n  RRes : TFPExpressionResult;\r\n\r\nbegin\r\n  Result:=Left.GetNodeValue;\r\n  RRes:=Right.GetNodeValue;\r\n  case Result.ResultType of\r\n    rtInteger  : Result.resValue:=NativeInt(Result.resValue)/NativeInt(RRes.resValue);\r\n    rtFloat    : Result.resValue:=TExprFloat(Result.resValue)/TExprFloat(RRes.resValue);\r\n    rtCurrency :\r\n        if NodeType=rtCurrency then\r\n          Result.resValue:=Currency(Result.resValue)/Currency(RRes.resValue)\r\n        else\r\n          Result.resValue:=TExprFloat(Result.resValue)/TExprFloat(RRes.resValue);\r\n  end;\r\n  Result.ResultType:=NodeType;\r\nend;\r\n\r\n{ TFPPowerOperation }\r\n\r\nprocedure TFPPowerOperation.Check;\r\nconst\r\n  AllowedTypes = [rtInteger, rtCurrency, rtFloat];\r\nbegin\r\n  CheckNodeType(Left, AllowedTypes);\r\n  CheckNodeType(Right, AllowedTypes);\r\nend;\r\n\r\nfunction TFPPowerOperation.AsString: String;\r\nbegin\r\n  Result := Left.AsString + '^' + Right.AsString;\r\nend;\r\n\r\nfunction TFPPowerOperation.NodeType: TResultType;\r\nbegin\r\n  Result := rtFloat;\r\nend;\r\n\r\nfunction power(base,exponent: TExprFloat): TExprFloat;\r\n// Adapted from unit \"math\"\r\nvar\r\n  ex: Integer;\r\nbegin\r\n  if Exponent = 0.0 then\r\n    result := 1.0\r\n  else if (base = 0.0) and (exponent > 0.0) then\r\n    result := 0.0\r\n  else if (base < 0.0) and (frac(exponent) = 0.0) then\r\n  begin\r\n    ex := round(exponent);\r\n    result := exp( exponent * ln(-base));\r\n    if odd(ex) then result := -result;\r\n  end\r\n  else\r\n    result := exp( exponent * ln(base) );\r\nend;\r\n\r\nFunction TFPPowerOperation.GetNodeValue: TFPExpressionResult;\r\nvar\r\n  RRes: TFPExpressionResult;\r\nbegin\r\n  Result:=Left.GetNodeValue;\r\n  RRes:=Right.GetNodeValue;\r\n  Result.resValue := power(ArgToFloat(Result), ArgToFloat(RRes));\r\n  Result.ResultType := rtFloat;\r\nend;\r\n\r\n{ TFPConvertNode }\r\n\r\nfunction TFPConvertNode.AsString: String;\r\nbegin\r\n  Result:=Operand.AsString;\r\nend;\r\n\r\n{ TIntToFloatNode }\r\n\r\nprocedure TIntConvertNode.Check;\r\nbegin\r\n  inherited Check;\r\n  CheckNodeType(Operand,[rtInteger])\r\nend;\r\n\r\nfunction TIntToFloatNode.NodeType: TResultType;\r\nbegin\r\n  Result:=rtFloat;\r\nend;\r\n\r\nFunction TIntToFloatNode.GetNodeValue : TFPExpressionResult;\r\nbegin\r\n  Result:=Operand.GetNodeValue;\r\n  Result.resValue:=Result.resValue;\r\n  Result.ResultType:=rtFloat;\r\nend;\r\n\r\n\r\n{ TIntToDateTimeNode }\r\n\r\nfunction TIntToDateTimeNode.NodeType: TResultType;\r\nbegin\r\n  Result:=rtDatetime;\r\nend;\r\n\r\nFunction TIntToDateTimeNode.GetNodeValue : TFPExpressionResult;\r\nbegin\r\n  Result:=Operand.GetNodeValue;\r\n  Result.ResultType:=rtDateTime;\r\nend;\r\n\r\n{ TFloatToDateTimeNode }\r\n\r\nprocedure TFloatToDateTimeNode.Check;\r\nbegin\r\n  inherited Check;\r\n  CheckNodeType(Operand,[rtFloat]);\r\nend;\r\n\r\nfunction TFloatToDateTimeNode.NodeType: TResultType;\r\nbegin\r\n  Result:=rtDateTime;\r\nend;\r\n\r\nFunction TFloatToDateTimeNode.GetNodeValue : TFPExpressionResult;\r\nbegin\r\n  Result:=Operand.GetNodeValue;\r\n  Result.ResultType:=rtDateTime;\r\nend;\r\n\r\n{ TCurrencyToDateTimeNode }\r\n\r\nprocedure TCurrencyToDateTimeNode.Check;\r\n\r\nbegin\r\n  inherited Check;\r\n  CheckNodeType(Operand,[rtCurrency]);\r\nend;\r\n\r\nfunction TCurrencyToDateTimeNode.NodeType: TResultType;\r\nbegin\r\n  Result:=rtDateTime;\r\nend;\r\n\r\nFunction TCurrencyToDateTimeNode.GetNodeValue : TFPExpressionResult;\r\n\r\nVar\r\n  R : TFPExpressionResult;\r\nbegin\r\n  R:=Operand.GetNodeValue;\r\n  Result.resValue:=Currency(R.resValue);\r\n  Result.ResultType:=rtDateTime;\r\nend;\r\n\r\n{ TCurrencyToFloatNode }\r\n\r\nprocedure TCurrencyToFloatNode.Check;\r\nbegin\r\n  inherited Check;\r\n  CheckNodeType(Operand,[rtCurrency]);\r\nend;\r\n\r\nfunction TCurrencyToFloatNode.NodeType: TResultType;\r\nbegin\r\n  Result:=rtFloat;\r\nend;\r\n\r\nFunction TCurrencyToFloatNode.GetNodeValue : TFPExpressionResult;\r\n\r\nbegin\r\n  Result:=Operand.GetNodeValue;\r\n  Result.resValue:=Currency(Result.resValue);\r\n  Result.ResultType:=rtFloat;\r\nend;\r\n\r\n{ TFPExprIdentifierNode }\r\n\r\nconstructor TFPExprIdentifierNode.CreateIdentifier(AID: TFPExprIdentifierDef);\r\nbegin\r\n  Inherited Create;\r\n  FID:=AID;\r\n  PResult:=@FID.FValue;\r\n  FResultType:=FID.ResultType;\r\nend;\r\n\r\nfunction TFPExprIdentifierNode.NodeType: TResultType;\r\nbegin\r\n  Result:=FResultType;\r\nend;\r\n\r\nFunction TFPExprIdentifierNode.GetNodeValue : TFPExpressionResult;\r\nbegin\r\n  if Identifier.EventBasedVariable then\r\n    begin\r\n    Identifier.FetchValue;\r\n    PResult:=@FID.FValue;\r\n    end;\r\n  Result:=PResult^;\r\n  Result.ResultType:=FResultType;\r\nend;\r\n\r\n{ TFPExprVariable }\r\n\r\nprocedure TFPExprVariable.Check;\r\nbegin\r\n  // Do nothing;\r\nend;\r\n\r\nfunction TFPExprVariable.AsString: string;\r\nbegin\r\n  Result:=FID.Name;\r\nend;\r\n\r\n{ TFPExprFunction }\r\n\r\nprocedure TFPExprFunction.CalcParams;\r\n\r\nVar\r\n  I : Integer;\r\n\r\nbegin\r\n  For I:=0 to Length(FArgumentParams)-1 do\r\n    begin\r\n    FArgumentParams[i]:=FArgumentNodes[i].GetNodeValue;\r\n    end;\r\nend;\r\n\r\nFunction TFPExprFunction.ConvertArgument(aIndex : Integer; aNode : TFPExprNode; aType : TResultType) : TFPExprNode;\r\n\r\nVar\r\n  N : TFPExprNode;\r\n\r\nbegin\r\n  // Automatically convert integers to floats for float/currency parameters\r\n  N:=TFPExpressionParser.ConvertNode(aNode,aType);\r\n  if (aNode=N) then\r\n    // No conversion was performed, raise error\r\n    RaiseParserError(SErrInvalidArgumentType,[aIndex,ResultTypeName(aType),ResultTypeName(aNode.NodeType)]);\r\n  Result:=N;\r\nend;\r\n\r\nfunction TFPExprFunction.HasAggregate: Boolean;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := true;\r\n  if IsAggregate then\r\n    exit;\r\n  For I:=0 to Length(FArgumentNodes)-1 do\r\n    if FArgumentNodes[I].HasAggregate then\r\n      exit;\r\n  Result := false;\r\nend;\r\n\r\nprocedure TFPExprFunction.Check;\r\n\r\nVar\r\n  I : Integer;\r\n  rtp,rta : TResultType;\r\n\r\nbegin\r\n  If Length(FArgumentNodes)<>FID.ArgumentCount then\r\n    RaiseParserError(ErrInvalidArgumentCount,[FID.Name]);\r\n  For I:=0 to Length(FArgumentNodes)-1 do\r\n    begin\r\n    rtp:=CharToResultType(FID.ParameterTypes[i+1]);\r\n    rta:=FArgumentNodes[i].NodeType;\r\n    If (rtp<>rta) then\r\n      FArgumentNodes[i]:=ConvertArgument(I+1,FArgumentNodes[i],rtp);\r\n    end;\r\nend;\r\n\r\nconstructor TFPExprFunction.CreateFunction(AID: TFPExprIdentifierDef; const Args: TExprArgumentArray);\r\n\r\nbegin\r\n  Inherited CreateIdentifier(AID);\r\n  FArgumentNodes:=Args;\r\n  SetLength(FArgumentParams,Length(Args));\r\nend;\r\n\r\ndestructor TFPExprFunction.Destroy;\r\n\r\nVar\r\n  I : Integer;\r\n\r\nbegin\r\n  For I:=0 to Length(FArgumentNodes)-1 do\r\n    FreeAndNil(FArgumentNodes[I]);\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TFPExprFunction.InitAggregate;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  For I:=0 to Length(FArgumentNodes)-1 do\r\n    FArgumentNodes[i].InitAggregate;\r\nend;\r\n\r\nprocedure TFPExprFunction.UpdateAggregate;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  For I:=0 to Length(FArgumentNodes)-1 do\r\n    FArgumentNodes[i].UpdateAggregate;\r\nend;\r\n\r\nfunction TFPExprFunction.AsString: String;\r\n\r\nVar\r\n  S : String;\r\n  I : Integer;\r\n\r\nbegin\r\n  S:='';\r\n  For I:=0 to length(FArgumentNodes)-1 do\r\n    begin\r\n    If (S<>'') then\r\n      S:=S+',';\r\n    S:=S+FArgumentNodes[I].AsString;\r\n    end;\r\n  If (S<>'') then\r\n    S:='('+S+')';\r\n  Result:=FID.Name+S;\r\nend;\r\n\r\n{ TFPFunctionEventHandler }\r\n\r\nconstructor TFPFunctionEventHandler.CreateFunction(AID: TFPExprIdentifierDef;\r\n  Const Args : TExprArgumentArray);\r\nbegin\r\n  Inherited;\r\n  FCallBack:=AID.OnGetFunctionValue;\r\nend;\r\n\r\nFunction TFPFunctionEventHandler.GetNodeValue : TFPExpressionResult;\r\nbegin\r\n  If Length(FArgumentParams)>0 then\r\n    CalcParams;\r\n  Result:=FCallBack(FArgumentParams);\r\n  Result.ResultType:=NodeType;\r\nend;\r\n\r\n{ ---------------------------------------------------------------------\r\n  Standard Builtins support\r\n  ---------------------------------------------------------------------}\r\n\r\n{ Template for builtin.\r\n\r\nProcedure MyCallback (Var Result : TFPExpressionResult; Const Args : TExprParameterArray);\r\nbegin\r\nend;\r\n\r\n}\r\n\r\nfunction ArgToFloat(Arg: TFPExpressionResult): TExprFloat;\r\n// Utility function for the built-in math functions. Accepts also integers\r\n// in place of the floating point arguments. To be called in builtins or\r\n// user-defined callbacks having float results.\r\nbegin\r\n  if Arg.ResultType = rtInteger then\r\n    result := NativeInt(Arg.resValue)\r\n  else if Arg.ResultType = rtCurrency then\r\n    result := Currency(Arg.resValue)\r\n  else\r\n    result := TExprFloat(Arg.resValue);\r\nend;\r\n\r\n// Math builtins\r\n\r\nFunction BuiltInCos(Const Args : TExprParameterArray) : TFPExpressionResult;\r\nbegin\r\n  Result.ResultType:=rtFloat;\r\n  Result.resValue:=Cos(ArgToFloat(Args[0]));\r\nend;\r\n\r\nFunction BuiltInSin(Const Args : TExprParameterArray) : TFPExpressionResult;\r\nbegin\r\n  Result.ResultType:=rtFloat;\r\n  Result.resValue:=Sin(ArgToFloat(Args[0]));\r\nend;\r\n\r\n(*\r\nFunction BuiltInArcTan(Const Args : TExprParameterArray) : TFPExpressionResult;\r\nbegin\r\n//  Result.resValue:=Arctan(ArgToFloat(Args[0]));\r\nend;\r\n*)\r\n\r\nFunction BuiltInAbs(Const Args : TExprParameterArray) : TFPExpressionResult;\r\nbegin\r\n  Result.ResultType:=rtFloat;\r\n  Result.resValue:=Abs(ArgToFloat(Args[0]));\r\nend;\r\n\r\nFunction BuiltInSqr(Const Args : TExprParameterArray) : TFPExpressionResult;\r\nbegin\r\n  Result.ResultType:=rtFloat;\r\n  Result.resValue:=Sqr(ArgToFloat(Args[0]));\r\nend;\r\n\r\nFunction BuiltInSqrt(Const Args : TExprParameterArray) : TFPExpressionResult;\r\nbegin\r\n  Result.ResultType:=rtFloat;\r\n  Result.resValue:=Sqrt(ArgToFloat(Args[0]));\r\nend;\r\n\r\nFunction BuiltInExp(Const Args : TExprParameterArray) : TFPExpressionResult;\r\nbegin\r\n  Result.ResultType:=rtFloat;\r\n  Result.resValue:=Exp(ArgToFloat(Args[0]));\r\nend;\r\n\r\nFunction BuiltInLn(Const Args : TExprParameterArray) : TFPExpressionResult;\r\nbegin\r\n  Result.ResultType:=rtFloat;\r\n  Result.resValue:=Ln(ArgToFloat(Args[0]));\r\nend;\r\n\r\nVar\r\n  L10 : TExprFloat;\r\n\r\nFunction BuiltInLog(Const Args : TExprParameterArray) : TFPExpressionResult;\r\nbegin\r\n  Result.ResultType:=rtFloat;\r\n  Result.resValue:=Ln(ArgToFloat(Args[0]))/L10;\r\nend;\r\n\r\nFunction BuiltInRound(Const Args : TExprParameterArray) : TFPExpressionResult;\r\nbegin\r\n  Result.ResultType:=rtInteger;\r\n  Result.resValue:=Round(ArgToFloat(Args[0]));\r\nend;\r\n\r\nFunction BuiltInTrunc(Const Args : TExprParameterArray) : TFPExpressionResult;\r\nbegin\r\n  Result.ResultType:=rtInteger;\r\n  Result.resValue:=Trunc(ArgToFloat(Args[0]));\r\nend;\r\n\r\nFunction BuiltInInt(Const Args : TExprParameterArray) : TFPExpressionResult;\r\nbegin\r\n  Result.ResultType:=rtInteger;\r\n  Result.resValue:=Int(ArgToFloat(Args[0]));\r\nend;\r\n\r\nFunction BuiltInFrac(Const Args : TExprParameterArray) : TFPExpressionResult;\r\nbegin\r\n  Result.ResultType:=rtFloat;\r\n  Result.resValue:=frac(ArgToFloat(Args[0]));\r\nend;\r\n\r\n// String builtins\r\n\r\nFunction BuiltInLength(Const Args : TExprParameterArray) : TFPExpressionResult;\r\nbegin\r\n  Result.ResultType:=rtInteger;\r\n  Result.resValue:=Length(String(Args[0].resValue));\r\nend;\r\n\r\nFunction BuiltInCopy(Const Args : TExprParameterArray) : TFPExpressionResult;\r\nbegin\r\n  Result.ResultType:=rtString;\r\n  Result.resValue:=Copy(String(Args[0].resValue),NativeInt(Args[1].resValue),NativeInt(Args[2].resValue));\r\nend;\r\n\r\nFunction BuiltInDelete(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nVar\r\n  S : String;\r\n\r\nbegin\r\n  Result.ResultType:=rtString;\r\n  S:=String(Args[0].resValue);\r\n  Delete(S,NativeInt(Args[1].resValue),NativeInt(Args[2].resValue));\r\n  Result.resValue:=S;\r\nend;\r\n\r\nFunction BuiltInPos(Const Args : TExprParameterArray) : TFPExpressionResult;\r\nbegin\r\n  result.ResultType:=rtInteger;\r\n  Result.resValue:=Pos(String(Args[0].resValue),String(Args[1].resValue));\r\nend;\r\n\r\nFunction BuiltInUppercase(Const Args : TExprParameterArray) : TFPExpressionResult;\r\nbegin\r\n  Result.ResultType:=rtString;\r\n  Result.resValue:=Uppercase(String(Args[0].resValue));\r\nend;\r\n\r\nFunction BuiltInLowercase(Const Args : TExprParameterArray) : TFPExpressionResult;\r\nbegin\r\n  Result.ResultType:=rtString;\r\n  Result.resValue:=Lowercase(String(Args[0].resValue));\r\nend;\r\n\r\nFunction BuiltInStringReplace(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nVar\r\n  F : TReplaceFlags;\r\n\r\nbegin\r\n  Result.ResultType:=rtString;\r\n  F:=[];\r\n  If Boolean(Args[3].resValue) then\r\n    Include(F,rfReplaceAll);\r\n  If Boolean(Args[4].resValue) then\r\n    Include(F,rfIgnoreCase);\r\n  Result.resValue:=StringReplace(String(Args[0].resValue),String(Args[1].resValue),String(Args[2].resValue),f);\r\nend;\r\n\r\nFunction BuiltInCompareText(Const Args : TExprParameterArray) : TFPExpressionResult;\r\nbegin\r\n  Result.ResultType:=rtInteger;\r\n  Result.resValue:=CompareText(String(Args[0].resValue),String(Args[1].resValue));\r\nend;\r\n\r\n// Date/Time builtins\r\n\r\nFunction BuiltInDate(Const Args : TExprParameterArray) : TFPExpressionResult;\r\nbegin\r\n  if Args=nil then ;\r\n  Result.ResultType:=rtDateTime;\r\n  Result.resValue:=Date;\r\nend;\r\n\r\nFunction BuiltInTime(Const Args : TExprParameterArray) : TFPExpressionResult;\r\nbegin\r\n  if Args=nil then ;\r\n  Result.ResultType:=rtDateTime;\r\n  Result.resValue:=Time;\r\nend;\r\n\r\nFunction BuiltInNow(Const Args : TExprParameterArray) : TFPExpressionResult;\r\nbegin\r\n  if Args=nil then ;\r\n  Result.ResultType:=rtDateTime;\r\n  Result.resValue:=Now;\r\nend;\r\n\r\nFunction BuiltInDayofWeek(Const Args : TExprParameterArray) : TFPExpressionResult;\r\nbegin\r\n  Result.ResultType:=rtInteger;\r\n  Result.resValue:=DayOfWeek(TDateTime(Args[0].resValue));\r\nend;\r\n\r\nFunction BuiltInExtractYear(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nVar\r\n  Y,M,D : Word;\r\n\r\nbegin\r\n  Result.ResultType:=rtInteger;\r\n  DecodeDate(TDateTime(Args[0].resValue),Y,M,D);\r\n  Result.resValue:=Y;\r\nend;\r\n\r\nFunction BuiltInExtractMonth(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nVar\r\n  Y,M,D : Word;\r\n\r\nbegin\r\n  Result.ResultType:=rtInteger;\r\n  DecodeDate(TDateTime(Args[0].resValue),Y,M,D);\r\n  Result.resValue:=M;\r\nend;\r\n\r\nFunction BuiltInExtractDay(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nVar\r\n  Y,M,D : Word;\r\n\r\nbegin\r\n  Result.ResultType:=rtInteger;\r\n  DecodeDate(TDateTime(Args[0].resValue),Y,M,D);\r\n  Result.resValue:=D;\r\nend;\r\n\r\nFunction BuiltInExtractHour(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nVar\r\n  H,M,S,MS : Word;\r\n\r\nbegin\r\n  Result.ResultType:=rtInteger;\r\n  DecodeTime(TDateTime(Args[0].resValue),H,M,S,MS);\r\n  Result.resValue:=H;\r\nend;\r\n\r\nFunction BuiltInExtractMin(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nVar\r\n  H,M,S,MS : Word;\r\n\r\nbegin\r\n  Result.ResultType:=rtInteger;\r\n  DecodeTime(TDateTime(Args[0].resValue),H,M,S,MS);\r\n  Result.resValue:=M;\r\nend;\r\n\r\nFunction BuiltInExtractSec(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nVar\r\n  H,M,S,MS : Word;\r\n\r\nbegin\r\n  Result.ResultType:=rtInteger;\r\n  DecodeTime(TdateTime(Args[0].resValue),H,M,S,MS);\r\n  Result.resValue:=S;\r\nend;\r\n\r\nFunction BuiltInExtractMSec(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nVar\r\n  H,M,S,MS : Word;\r\n\r\nbegin\r\n  Result.ResultType:=rtInteger;\r\n  DecodeTime(TDateTime(Args[0].resValue),H,M,S,MS);\r\n  Result.resValue:=MS;\r\nend;\r\n\r\nFunction BuiltInEncodedate(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtDateTime;\r\n  Result.resValue:=Encodedate(NativeInt(Args[0].resValue),NativeInt(Args[1].resValue),NativeInt(Args[2].resValue));\r\nend;\r\n\r\nFunction BuiltInEncodeTime(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtDateTime;\r\n  Result.resValue:=EncodeTime(NativeInt(Args[0].resValue),NativeInt(Args[1].resValue),NativeInt(Args[2].resValue),NativeInt(Args[3].resValue));\r\nend;\r\n\r\nFunction BuiltInEncodeDateTime(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtDateTime;\r\n  Result.resValue:=EncodeDate(NativeInt(Args[0].resValue),NativeInt(Args[1].resValue),NativeInt(Args[2].resValue))\r\n                     +EncodeTime(NativeInt(Args[3].resValue),NativeInt(Args[4].resValue),NativeInt(Args[5].resValue),NativeInt(Args[6].resValue));\r\nend;\r\n\r\nFunction BuiltInShortDayName(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtString;\r\n  Result.resValue:=FormatSettings.ShortDayNames[NativeInt(Args[0].resValue)];\r\nend;\r\n\r\nFunction BuiltInShortMonthName(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtString;\r\n  Result.resValue:=FormatSettings.ShortMonthNames[NativeInt(Args[0].resValue)];\r\nend;\r\nFunction BuiltInLongDayName(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.resValue:=FormatSettings.LongDayNames[NativeInt(Args[0].resValue)];\r\nend;\r\n\r\nFunction BuiltInLongMonthName(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtString;\r\n  Result.resValue:=FormatSettings.LongMonthNames[NativeInt(Args[0].resValue)];\r\nend;\r\n\r\nFunction BuiltInFormatDateTime(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtString;\r\n  Result.resValue:=FormatDateTime(String(Args[0].resValue),TDateTime(Args[1].resValue));\r\nend;\r\n\r\n\r\n// Conversion\r\nFunction BuiltInIntToStr(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtString;\r\n  Result.resValue:=IntToStr(NativeInt(Args[0].resValue));\r\nend;\r\n\r\nFunction BuiltInStrToInt(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtInteger;\r\n  Result.resValue:=StrToInt(String(Args[0].resValue));\r\nend;\r\n\r\nFunction BuiltInStrToIntDef(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtInteger;\r\n  Result.resValue:=StrToIntDef(String(Args[0].resValue),NativeInt(Args[1].resValue));\r\nend;\r\n\r\nFunction BuiltInFloatToStr(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtString;\r\n  Result.resValue:=FloatToStr(TExprFloat(Args[0].resValue));\r\nend;\r\n\r\nFunction BuiltInStrToFloat(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtFloat;\r\n  Result.resValue:=StrToFloat(String(Args[0].resValue));\r\nend;\r\n\r\nFunction BuiltInStrToFloatDef(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtFloat;\r\n  Result.resValue:=StrToFloatDef(String(Args[0].resValue),TExprFloat(Args[1].resValue));\r\nend;\r\n\r\nFunction BuiltInDateToStr(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtString;\r\n  Result.resValue:=DateToStr(TDateTime(Args[0].resValue));\r\nend;\r\n\r\nFunction BuiltInTimeToStr(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtString;\r\n  Result.resValue:=TimeToStr(TDateTime(Args[0].resValue));\r\nend;\r\n\r\nFunction BuiltInStrToDate(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtDateTime;\r\n  Result.resValue:=StrToDate(String(Args[0].resValue));\r\nend;\r\n\r\nFunction BuiltInStrToDateDef(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtDateTime;\r\n  Result.resValue:=StrToDateDef(String(Args[0].resValue),TDateTime(Args[1].resValue));\r\nend;\r\n\r\nFunction BuiltInStrToTime(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtDateTime;\r\n  Result.resValue:=StrToTime(String(Args[0].resValue));\r\nend;\r\n\r\nFunction BuiltInStrToTimeDef(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtDateTime;\r\n  Result.resValue:=StrToTimeDef(String(Args[0].resValue),TDateTime(Args[1].resValue));\r\nend;\r\n\r\nFunction BuiltInStrToDateTime(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtDateTime;\r\n  Result.resValue:=StrToDateTime(String(Args[0].resValue));\r\nend;\r\n\r\nFunction BuiltInStrToDateTimeDef(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtDateTime;\r\n  Result.resValue:=StrToDateTimeDef(String(Args[0].resValue),TDateTime(Args[1].resValue));\r\nend;\r\n\r\nFunction BuiltInFormatFloat(Const Args : TExprParameterArray) : TFPExpressionResult;\r\nbegin\r\n  Result.ResultType:=rtString;\r\n  result.resValue := FormatFloat(String(Args[0].resValue), TExprFloat(Args[1].resValue));\r\nend;\r\n\r\nFunction BuiltInBoolToStr(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtString;\r\n  Result.resValue:=BoolToStr(Boolean(Args[0].resValue));\r\nend;\r\n\r\nFunction BuiltInStrToBool(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtBoolean;\r\n  Result.resValue:=StrToBool(String(Args[0].resValue));\r\nend;\r\n\r\nFunction BuiltInStrToBoolDef(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.resValue:=StrToBoolDef(String(Args[0].resValue),Boolean(Args[1].resValue));\r\n  Result.ResultType:=rtBoolean;\r\nend;\r\n\r\n// Boolean\r\nFunction BuiltInShl(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtinteger;\r\n  Result.resValue:=NativeInt(Args[0].resValue) shl NativeInt(Args[1].resValue);\r\nend;\r\n\r\nFunction BuiltInShr(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtinteger;\r\n  Result.resValue:=NativeInt(Args[0].resValue) shr NativeInt(Args[1].resValue);\r\nend;\r\n\r\nFunction BuiltinIFS(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtString;\r\n  If Boolean(Args[0].resValue) then\r\n    Result.resValue:=Args[1].resValue\r\n  else\r\n    Result.resValue:=Args[2].resValue\r\nend;\r\n\r\nFunction BuiltinIFI(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtinteger;\r\n  If Boolean(Args[0].resValue) then\r\n    Result.resValue:=Args[1].resValue\r\n  else\r\n    Result.resValue:=Args[2].resValue\r\nend;\r\n\r\nFunction BuiltinIFF(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtFloat;\r\n  If Boolean(Args[0].resValue) then\r\n    Result.resValue:=Args[1].resValue\r\n  else\r\n    Result.resValue:=Args[2].resValue\r\nend;\r\n\r\nFunction BuiltinIFD(Const Args : TExprParameterArray) : TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtDateTime;\r\n  If Boolean(Args[0].resValue) then\r\n    Result.resValue:=Args[1].resValue\r\n  else\r\n    Result.resValue:=Args[2].resValue\r\nend;\r\n\r\nprocedure RegisterStdBuiltins(AManager: TExprBuiltInManager;  Categories: TBuiltInCategories = AllBuiltIns);\r\n\r\nbegin\r\n  With AManager do\r\n    begin\r\n    if bcMath in Categories then\r\n      begin\r\n      AddFloatVariable(bcMath,'pi',Pi);\r\n      // Math functions\r\n      AddFunction(bcMath,'cos','F','F',@BuiltinCos);\r\n      AddFunction(bcMath,'sin','F','F',@BuiltinSin);\r\n//      AddFunction(bcMath,'arctan','F','F',@BuiltinArctan);\r\n      AddFunction(bcMath,'abs','F','F',@BuiltinAbs);\r\n      AddFunction(bcMath,'sqr','F','F',@BuiltinSqr);\r\n      AddFunction(bcMath,'sqrt','F','F',@BuiltinSqrt);\r\n      AddFunction(bcMath,'exp','F','F',@BuiltinExp);\r\n      AddFunction(bcMath,'ln','F','F',@BuiltinLn);\r\n      AddFunction(bcMath,'log','F','F',@BuiltinLog);\r\n      AddFunction(bcMath,'frac','F','F',@BuiltinFrac);\r\n      AddFunction(bcMath,'int','F','F',@BuiltinInt);\r\n      AddFunction(bcMath,'round','I','F',@BuiltinRound);\r\n      AddFunction(bcMath,'trunc','I','F',@BuiltinTrunc);\r\n      end;\r\n    if bcStrings in Categories then\r\n      begin\r\n      // String\r\n      AddFunction(bcStrings,'length','I','S',@BuiltinLength);\r\n      AddFunction(bcStrings,'copy','S','SII',@BuiltinCopy);\r\n      AddFunction(bcStrings,'delete','S','SII',@BuiltinDelete);\r\n      AddFunction(bcStrings,'pos','I','SS',@BuiltinPos);\r\n      AddFunction(bcStrings,'lowercase','S','S',@BuiltinLowercase);\r\n      AddFunction(bcStrings,'uppercase','S','S',@BuiltinUppercase);\r\n      AddFunction(bcStrings,'stringreplace','S','SSSBB',@BuiltinStringReplace);\r\n      AddFunction(bcStrings,'comparetext','I','SS',@BuiltinCompareText);\r\n      end;\r\n    if bcDateTime in Categories then\r\n      begin\r\n      // Date/Time\r\n      AddFunction(bcDateTime,'date','D','',@BuiltinDate);\r\n      AddFunction(bcDateTime,'time','D','',@BuiltinTime);\r\n      AddFunction(bcDateTime,'now','D','',@BuiltinNow);\r\n      AddFunction(bcDateTime,'dayofweek','I','D',@BuiltinDayofweek);\r\n      AddFunction(bcDateTime,'extractyear','I','D',@BuiltinExtractYear);\r\n      AddFunction(bcDateTime,'extractmonth','I','D',@BuiltinExtractMonth);\r\n      AddFunction(bcDateTime,'extractday','I','D',@BuiltinExtractDay);\r\n      AddFunction(bcDateTime,'extracthour','I','D',@BuiltinExtractHour);\r\n      AddFunction(bcDateTime,'extractmin','I','D',@BuiltinExtractMin);\r\n      AddFunction(bcDateTime,'extractsec','I','D',@BuiltinExtractSec);\r\n      AddFunction(bcDateTime,'extractmsec','I','D',@BuiltinExtractMSec);\r\n      AddFunction(bcDateTime,'encodedate','D','III',@BuiltinEncodedate);\r\n      AddFunction(bcDateTime,'encodetime','D','IIII',@BuiltinEncodeTime);\r\n      AddFunction(bcDateTime,'encodedatetime','D','IIIIIII',@BuiltinEncodeDateTime);\r\n      AddFunction(bcDateTime,'shortdayname','S','I',@BuiltinShortDayName);\r\n      AddFunction(bcDateTime,'shortmonthname','S','I',@BuiltinShortMonthName);\r\n      AddFunction(bcDateTime,'longdayname','S','I',@BuiltinLongDayName);\r\n      AddFunction(bcDateTime,'longmonthname','S','I',@BuiltinLongMonthName);\r\n      end;\r\n    if bcBoolean in Categories then\r\n      begin\r\n      // Boolean\r\n      AddFunction(bcBoolean,'shl','I','II',@BuiltinShl);\r\n      AddFunction(bcBoolean,'shr','I','II',@BuiltinShr);\r\n      AddFunction(bcBoolean,'IFS','S','BSS',@BuiltinIFS);\r\n      AddFunction(bcBoolean,'IFF','F','BFF',@BuiltinIFF);\r\n      AddFunction(bcBoolean,'IFD','D','BDD',@BuiltinIFD);\r\n      AddFunction(bcBoolean,'IFI','I','BII',@BuiltinIFI);\r\n      end;\r\n    if (bcConversion in Categories) then\r\n      begin\r\n      // Conversion\r\n      AddFunction(bcConversion,'inttostr','S','I',@BuiltInIntToStr);\r\n      AddFunction(bcConversion,'strtoint','I','S',@BuiltInStrToInt);\r\n      AddFunction(bcConversion,'strtointdef','I','SI',@BuiltInStrToIntDef);\r\n      AddFunction(bcConversion,'floattostr','S','F',@BuiltInFloatToStr);\r\n      AddFunction(bcConversion,'strtofloat','F','S',@BuiltInStrToFloat);\r\n      AddFunction(bcConversion,'strtofloatdef','F','SF',@BuiltInStrToFloatDef);\r\n      AddFunction(bcConversion,'booltostr','S','B',@BuiltInBoolToStr);\r\n      AddFunction(bcConversion,'strtobool','B','S',@BuiltInStrToBool);\r\n      AddFunction(bcConversion,'strtobooldef','B','SB',@BuiltInStrToBoolDef);\r\n      AddFunction(bcConversion,'datetostr','S','D',@BuiltInDateToStr);\r\n      AddFunction(bcConversion,'timetostr','S','D',@BuiltInTimeToStr);\r\n      AddFunction(bcConversion,'strtodate','D','S',@BuiltInStrToDate);\r\n      AddFunction(bcConversion,'strtodatedef','D','SD',@BuiltInStrToDateDef);\r\n      AddFunction(bcConversion,'strtotime','D','S',@BuiltInStrToTime);\r\n      AddFunction(bcConversion,'strtotimedef','D','SD',@BuiltInStrToTimeDef);\r\n      AddFunction(bcConversion,'strtodatetime','D','S',@BuiltInStrToDateTime);\r\n      AddFunction(bcConversion,'strtodatetimedef','D','SD',@BuiltInStrToDateTimeDef);\r\n      AddFunction(bcConversion,'formatfloat','S','SF',@BuiltInFormatFloat);\r\n      AddFunction(bcConversion,'formatdatetime','S','SD',@BuiltinFormatDateTime);\r\n      end;\r\n    if bcAggregate in Categories then\r\n      begin\r\n      AddFunction(bcAggregate,'count','I','',TAggregateCount);\r\n      AddFunction(bcAggregate,'sum','F','F',TAggregateSum);\r\n      AddFunction(bcAggregate,'avg','F','F',TAggregateAvg);\r\n      AddFunction(bcAggregate,'min','F','F',TAggregateMin);\r\n      AddFunction(bcAggregate,'max','F','F',TAggregateMax);\r\n      end;\r\n    end;\r\nend;\r\n\r\n{ TFPBuiltInExprIdentifierDef }\r\n\r\nprocedure TFPBuiltInExprIdentifierDef.Assign(Source: TPersistent);\r\nbegin\r\n  inherited Assign(Source);\r\n  If Source is TFPBuiltInExprIdentifierDef then\r\n    FCategory:=(Source as TFPBuiltInExprIdentifierDef).Category;\r\nend;\r\n\r\nprocedure InitFileFormatSettings;\r\nbegin\r\n  FileFormatSettings := FormatSettings;\r\n  FileFormatSettings.DecimalSeparator := '.';\r\n  FileFormatSettings.DateSeparator := '-';\r\n  FileFormatSettings.TimeSeparator := ':';\r\n  FileFormatsettings.ShortDateFormat := 'yyyy-mm-dd';\r\n  FileFormatSettings.LongTimeFormat := 'hh:nn:ss';\r\nend;\r\n\r\ninitialization\r\n  L10:=Ln(10);\r\n  RegisterStdBuiltins(BuiltinIdentifiers);\r\n  InitFileFormatSettings;\r\n\r\nend.\r\n","{\r\n    This file is part of the Free Pascal run time library.\r\n    Copyright (c) 2019 by Michael Van Canneyt, member of the\r\n    Free Pascal development team\r\n\r\n    Simple JSON dataset component.\r\n\r\n    See the file COPYING.FPC, included in this distribution,\r\n    for details about the copyright.\r\n\r\n    This program is distributed in the hope that it will be useful,\r\n    but WITHOUT ANY WARRANTY; without even the implied warranty of\r\n    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\r\n\r\n **********************************************************************}\r\n{$IFNDEF FPC_DOTTEDUNITS}\r\nunit JSONDataset;\r\n{$ENDIF}\r\n\r\n{$mode objfpc}\r\n\r\ninterface\r\n\r\nuses\r\n{$IFDEF FPC_DOTTEDUNITS}\r\n  System.Types, JSApi.JS, Data.DB, System.Classes, System.SysUtils, System.Typinfo, Fcl.Expressions;\r\n{$ELSE}\r\n  Types, JS, DB, Classes, SysUtils, typinfo, fpexprpars;\r\n{$ENDIF}\r\n\r\ntype\r\n  TBaseJSONDataset = Class;\r\n  TJSONIndexDef = class;\r\n\r\n  // How are rows encoded in the JSON ?\r\n  TJSONRowType = (rtJSONObject, // Each row is an object.\r\n                  rtJSONArray   // Each row is an array.\r\n                  );\r\n\r\n  { TJSONFieldMapper }\r\n  // This class is responsible for mapping the field objects of the records.\r\n  TJSONFieldMapper = Class(TObject)\r\n  Public\r\n    Function CopyRow(aRow : JSValue) : JSValue; virtual;\r\n    // Remove a field from the\r\n    Procedure RemoveField(Const FieldName : String; FieldIndex : Integer; Row : JSValue); virtual; abstract;\r\n    // Return row TJSONData instance with data for field 'FieldName' or 'FieldIndex'.\r\n    Function GetJSONDataForField(Const FieldName : String; FieldIndex : Integer; Row : JSValue) : JSValue; virtual; abstract;\r\n    // Same, but now based on TField.\r\n    Function GetJSONDataForField(F : TField; Row : JSValue) : JSValue; virtual;\r\n    // Set data for field 'FieldName' or 'FieldIndex' to supplied TJSONData instance in row\r\n    procedure SetJSONDataForField(Const FieldName : String; FieldIndex : Integer; Row,Data : JSValue); virtual; abstract;\r\n    // Set data for field TField to supplied TJSONData instance\r\n    procedure SetJSONDataForField(F : TField; Row,Data : JSValue); virtual;\r\n    // Create a new row.\r\n    Function CreateRow : JSValue; virtual; abstract;\r\n  end;\r\n\r\n  // JSON has no date/time type, so we use a string field.\r\n  // ExtJS provides the date/time  format in it's field config: 'dateFormat'\r\n  // The below field classes store this in the NNNFormat field.\r\n  { TJSONDateField }\r\n\r\n  TJSONDateField = Class(TDateField)\r\n  private\r\n    FDateFormat: String;\r\n  Published\r\n    Property DateFormat : String Read FDateFormat Write FDateFormat;\r\n  end;\r\n\r\n  { TJSONTimeField }\r\n\r\n  TJSONTimeField = Class(TTimeField)\r\n  private\r\n    FTimeFormat: String;\r\n  Published\r\n    Property TimeFormat : String Read FTimeFormat Write FTimeFormat;\r\n  end;\r\n\r\n  { TJSONDateTimeField }\r\n\r\n  TJSONDateTimeField = Class(TDateTimeField)\r\n  private\r\n    FDateTimeFormat: String;\r\n  Published\r\n    Property DateTimeFormat : String Read FDateTimeFormat Write FDateTimeFormat;\r\n  end;\r\n\r\n  { TFieldComparer }\r\n\r\n  TFieldComparer = Class\r\n  Private\r\n    FDesc: Boolean;\r\n    FValue : JSValue;\r\n    FField : TField;\r\n    FOptions : TLocateOptions;\r\n    FDataset : TBaseJSONDataset;\r\n  Public\r\n    Constructor Create(aDataset : TBaseJSONDataset; aField : TField; aValue : JSValue; aOptions : TLocateOptions);\r\n    Function GetFieldValue(RowIndex : integer) : JSValue;\r\n    Function CompareRows (RowIndex1,RowIndex2 : Integer) : Integer; virtual;\r\n    // First value is always dataset value.\r\n    Function Compare (RowIndex : Integer; aValue : JSValue) : Integer; virtual; abstract;\r\n    Function Compare (RowIndex : Integer) : Integer; virtual;\r\n    Property Value : JSValue read FValue Write FValue;\r\n    Property Options : TLocateOptions Read FOptions Write FOptions;\r\n    Property Dataset : TBaseJSONDataset Read FDataset;\r\n    Property Field : TField Read FField;\r\n    Property Desc : Boolean Read FDesc Write FDesc;\r\n  end;\r\n  TFieldComparerClass = Class of TFieldComparer;\r\n\r\n  { TStringFieldComparer }\r\n\r\n  TStringFieldComparer = Class (TFieldComparer)\r\n    Function Compare (RowIndex : Integer; aValue : JSValue) : Integer; override;\r\n  end;\r\n\r\n  { TNativeIntFieldComparer }\r\n\r\n  TNativeIntFieldComparer = Class (TFieldComparer)\r\n    Function Compare (RowIndex : Integer; aValue : JSValue) : Integer; override;\r\n  end;\r\n\r\n  { TBooleanFieldComparer }\r\n\r\n  TBooleanFieldComparer = Class (TFieldComparer)\r\n    Function Compare (RowIndex : Integer; aValue : JSValue) : Integer; override;\r\n  end;\r\n\r\n  { TDateTimeFieldComparer }\r\n\r\n  TDateTimeFieldComparer = Class (TFieldComparer)\r\n    Function Compare (RowIndex : Integer; aValue : JSValue) : Integer; override;\r\n  end;\r\n\r\n  { TFloatFieldComparer }\r\n\r\n  TFloatFieldComparer = Class (TFieldComparer)\r\n    Function Compare (RowIndex : Integer; aValue : JSValue) : Integer; override;\r\n  end;\r\n\r\n  { TRecordComparer }\r\n\r\n  TRecordComparer = class\r\n  private\r\n    FDataset: TBaseJSONDataset;\r\n    FIndexBased: Boolean;\r\n    FItems : Array of TFieldComparer;\r\n    FOptions: TLocateOptions;\r\n    FValues: TJSValueDynArray;\r\n    function GetFieldComparer(Index : Integer): TFieldComparer;\r\n  Protected\r\n    procedure ConstructItems(aFields: String); virtual;\r\n    function DataTypeToComparerClass(aFieldType: TFieldType): TFieldComparerClass;\r\n    Function Compare(aRowindex : integer) : Integer;\r\n    Function CompareRows(aRowindex1,aRowIndex2 : integer) : Integer;\r\n    procedure updateFromIndex(aIndex : TJSONIndexDef); virtual;\r\n  Public\r\n    Constructor Create(aDataset : TBaseJSONDataset; aFields : String; aValues : JSValue; aOptions : TLocateOptions);\r\n    Constructor Create(aDataset : TBaseJSONDataset; aIndex : TJSONIndexDef);\r\n    Destructor Destroy; override;\r\n    Property Dataset : TBaseJSONDataset Read FDataset;\r\n    property Items [Index : Integer] : TFieldComparer Read GetFieldComparer;\r\n    Property Options : TLocateOptions Read FOptions Write FOptions;\r\n    Property Values : TJSValueDynArray Read FValues;\r\n    Property IndexBased : Boolean Read FIndexBased;\r\n  end;\r\n  TRecordComparerClass = Class of TRecordComparer;\r\n\r\n  { TBaseJSONDataSet }\r\n\r\n  { TJSONIndex }\r\n\r\n  TJSONIndex = Class\r\n    FList : TJSArray; // Indexes of elements in FRows.\r\n    FRows : TJSArray;\r\n    FDataset : TBaseJSONDataset;\r\n  private\r\n    function GetRecordIndex(aListIndex : Integer): NativeInt;\r\n  protected\r\n    Function GetCount: Integer; virtual;\r\n    Procedure CreateIndex; Virtual; abstract;\r\n    Procedure ClearIndex;\r\n    Property List : TJSArray Read FList;\r\n    Property Rows : TJSArray Read FRows;\r\n    Property Dataset : TBaseJSONDataset Read FDataset;\r\n  Public\r\n    Constructor Create(aDataset: TBaseJSONDataset; aRows : TJSArray); reintroduce;\r\n    // Append remainder of FRows to FList.\r\n    Procedure AppendToIndex; virtual; abstract;\r\n    // Delete aListIndex from list, not from row. Return Recordindex of deleted record.\r\n    Function Delete(aListIndex : Integer) : Integer; virtual;\r\n    // Delete By rowIndex, Return list index of deleted record.\r\n    Function DeleteByRowIndex(aRowIndex : Integer) : Integer; virtual;\r\n    // Append aRecordIndex to list. Return ListIndex of appended record.\r\n    Function Append(aRecordIndex : Integer) : Integer; virtual; abstract;\r\n    // Insert record into list. By default, this does an append. Return ListIndex of inserted record\r\n    Function Insert(aCurrentIndex{%H-}, aRecordIndex : Integer) : Integer; virtual;\r\n    // Record at index aCurrentIndex has changed. Update index and return new listindex.\r\n    Function Update(aRecordIndex : Integer) : Integer; virtual; abstract;\r\n    // Find list index for Record at index aCurrentIndex. Return -1 if not found.\r\n    Function FindRecord(aRecordIndex : Integer) : Integer; virtual; abstract;\r\n    // index of record in index list, based on Row index.\r\n    Function IndexOfRow(aRowIndex : Integer): NativeInt;\r\n    // index of record in FRows based on aListIndex in List.\r\n    Property RecordIndex[aListIndex : Integer] : NativeInt Read GetRecordIndex;\r\n    // Number of records in index. This can differ from FRows, e.g. when filtering.\r\n    Property Count : Integer Read GetCount;\r\n  end;\r\n\r\n  { TDefaultJSONIndex }\r\n\r\n  TDefaultJSONIndex = Class(TJSONIndex)\r\n  public\r\n    Procedure CreateIndex; override;\r\n    Procedure AppendToIndex; override;\r\n    Function Append(aRecordIndex : Integer) : Integer; override;\r\n    Function Insert(aCurrentIndex, aRecordIndex : Integer) : Integer; override;\r\n    Function FindRecord(aRecordIndex : Integer) : Integer; override;\r\n    Function Update(aRecordIndex : Integer) : Integer; override;\r\n  end;\r\n\r\n  { TSortedJSONIndex }\r\n\r\n  TSortedJSONIndex = Class(TJSONIndex)\r\n  Private\r\n    FComparer : TRecordComparer;\r\n    FUnique: Boolean;\r\n    function FindPos(aRecordIndex: Integer): Integer;\r\n    function MergeSort(aList: TJSArray): TJSArray;\r\n  Protected\r\n    Property Comparer : TRecordComparer Read FComparer Write FComparer;\r\n  public\r\n    Destructor Destroy; override;\r\n    procedure CreateComparer(aIndex: TJSONIndexDef);\r\n    Procedure CreateIndex; override;\r\n    Procedure AppendToIndex; override;\r\n    Function Append(aRecordIndex : Integer) : Integer; override;\r\n    Function FindRecord(aRecordIndex : Integer) : Integer; override;\r\n    Function Update(aRecordIndex : Integer) : Integer; override;\r\n    Property Unique : Boolean Read FUnique Write FUnique;\r\n  end;\r\n\r\n  { TJSONIndexDef }\r\n\r\n  TJSONIndexDef = class(TIndexDef)\r\n  Private\r\n    FIndex : TSortedJSONIndex;\r\n  Protected\r\n    Procedure ClearIndex;\r\n    Property Index : TSortedJSONIndex Read FIndex Write FIndex;\r\n  Public\r\n    Procedure BuildIndex(aDataset : TBaseJSONDataset);\r\n  end;\r\n\r\n  { TJSONIndexDefs }\r\n\r\n  TJSONIndexDefs = Class(TIndexDefs)\r\n  private\r\n    function GetD(aIndex : Integer): TJSONIndexDef;\r\n    procedure SetD(aIndex : Integer; AValue: TJSONIndexDef);\r\n  Public\r\n    Function AddJSONIndexDef: TJSONIndexDef;\r\n    Property Defs[aIndex : Integer] : TJSONIndexDef Read GetD Write SetD; default;\r\n  end;\r\n\r\n  TBlobFormat = (bfHex, bfBase64, bfBytes, bfCustom);\r\n  TBlobFormats = Set of TBlobFormat;\r\n\r\n  TOnDecodeBlobBytesEvent = Procedure (Sender : TDataset; aValue : JSValue; var aData : TBytes) of object;\r\n  TOnEncodeBlobBytesEvent = Procedure (Sender : TDataset; aData : TBytes; var aValue : JSValue) of object;\r\n\r\n  // basic JSON dataset. Does nothing ExtJS specific.\r\n  TBaseJSONDataSet = class (TDataSet)\r\n  private\r\n    FActiveIndex: String;\r\n    FBlobFormat: TBlobFormat;\r\n    FIndexes: TJSONIndexDefs;\r\n    FMUS: Boolean;\r\n    FOnDecodeBlobValue: TOnDecodeBlobBytesEvent;\r\n    FOnEncodeBlobValue: TOnEncodeBlobBytesEvent;\r\n    FOwnsData : Boolean;\r\n    FDefaultIndex : TJSONIndex; // Default index, built from array\r\n    FCurrentIndex : TJSONIndex; // Currently active index.\r\n    FCurrent: Integer; // Record Index in the current IndexList\r\n    // Possible metadata to configure fields from.\r\n    FMetaData : TJSObject;\r\n    // This will contain the rows.\r\n    FRows : TJSArray;\r\n    // Deleted rows\r\n    FDeletedRows : TJSArray;\r\n    FFieldMapper : TJSONFieldMapper;\r\n    // When editing, this object is edited.\r\n    FEditIdx : Integer;\r\n    FEditRow : JSValue;\r\n    // When filtering, this is the current row;\r\n    FFilterRow : JSValue;\r\n    FUseDateTimeFormatFields: Boolean;\r\n    FRowType: TJSONRowType;\r\n    FFilterExpression : TFPExpressionParser;\r\n    function GetFilterField(const AName: String): TFPExpressionResult;\r\n    procedure SetActiveIndex(AValue: String);\r\n    procedure SetIndexes(AValue: TJSONIndexDefs);\r\n    procedure SetMetaData(AValue: TJSObject);\r\n    procedure SetRows(AValue: TJSArray);\r\n    procedure SetRowType(AValue: TJSONRowType);\r\n  protected\r\n    // Remove calculated fields from buffer\r\n    procedure RemoveCalcFields(Buf: JSValue);\r\n    procedure ActivateIndex(Build : Boolean);\r\n    // Determine filter value type based on field type\r\n    function FieldTypeToExpressionType(aDataType: TFieldType): TResultType; virtual;\r\n    // Callback for IsNull filter function.\r\n    function GetFilterIsNull(const Args: TExprParameterArray): TFPExpressionResult; virtual;\r\n    // Expression parser class. Override this to create a customized version.\r\n    function FilterExpressionClass: TFPExpressionParserClass; virtual;\r\n    // Create filter expression.\r\n    function CreateFilterExpression: TFPExpressionParser; virtual;\r\n    // Function called to check if current buffer should be accepted.\r\n    function DoFilterRecord: Boolean; virtual;\r\n    // Override this to return customized version.\r\n    function CreateIndexDefs: TJSONIndexDefs; virtual;\r\n    // override this to return a customized version if you are so inclined\r\n    function RecordComparerClass: TRecordComparerClass; virtual;\r\n    // Return index of Row in FRows matching keyfields/values. If not found, -1 is returned.\r\n    function LocateRecordIndex(const KeyFields: string; const KeyValues: JSValue; Options: TLocateOptions): Integer; virtual;\r\n    // dataset virtual methods\r\n    function AllocRecordBuffer: TDataRecord; override;\r\n    procedure FreeRecordBuffer(var Buffer: TDataRecord); override;\r\n    procedure InternalInitRecord(var Buffer: TDataRecord); override;\r\n    function GetRecord(Var Buffer: TDataRecord; GetMode: TGetMode; DoCheck{%H-}: Boolean): TGetResult; override;\r\n    function GetRecordSize: Word; override;\r\n    procedure AddToRows(AValue: TJSArray);\r\n    procedure InternalClose; override;\r\n    procedure InternalDelete; override;\r\n    procedure InternalFirst; override;\r\n    procedure InternalLast; override;\r\n    procedure InternalOpen; override;\r\n    procedure InternalPost; override;\r\n    procedure InternalInsert; override;\r\n    procedure InternalEdit; override;\r\n    procedure InternalCancel; override;\r\n    procedure InternalInitFieldDefs; override;\r\n    procedure InternalSetToRecord(Buffer: TDataRecord); override;\r\n    procedure SetFilterText(const Value: string); override;\r\n    procedure SetFiltered(Value: Boolean); override;\r\n    function  GetFieldClass(FieldType: TFieldType): TFieldClass; override;\r\n    Function GetApplyUpdateData(Buffer : TDataRecord) : JSValue; override;\r\n    function IsCursorOpen: Boolean; override;\r\n    // Bookmark operations\r\n    procedure GetBookmarkData(Buffer: TDataRecord; var Data: TBookmark); override;\r\n    function GetBookmarkFlag(Buffer: TDataRecord): TBookmarkFlag; override;\r\n    procedure InternalGotoBookmark(ABookmark: TBookmark); override;\r\n    procedure SetBookmarkFlag(Var Buffer: TDataRecord; Value: TBookmarkFlag); override;\r\n    procedure SetBookmarkData(Var Buffer: TDataRecord; Data: TBookmark); override;\r\n    function GetRecordCount: Integer; override;\r\n    procedure SetRecNo(Value: Integer); override;\r\n    function GetRecNo: Integer; override;\r\n  Protected\r\n    // New methods.\r\n    // Build all sorted indexes. Default index is not built.\r\n    Procedure BuildIndexes;\r\n    // Called when dataset is closed. If OwnsData is true, metadata and rows are freed.\r\n    Procedure FreeData; virtual;\r\n    // Fill default list.\r\n    procedure AppendToIndexes; virtual;\r\n    procedure Clone(Source: TBaseJSONDataSet);\r\n\r\n    Procedure CreateIndexes; virtual;\r\n    // Convert MetaData object to FieldDefs.\r\n    Procedure MetaDataToFieldDefs; virtual;\r\n    // Initialize Date/Time info in all date/time fields. Called during InternalOpen\r\n    procedure InitDateTimeFields; virtual;\r\n    // Convert JSON date S to DateTime for Field F\r\n    function ConvertDateTimeField(S: String; F: TField): TDateTime; virtual;\r\n    // Format JSON date to from DT for Field F\r\n    function FormatDateTimeField(DT : TDateTime; F: TField): String; virtual;\r\n    // Create fieldmapper. A descendent MUST implement this.\r\n    Function CreateFieldMapper : TJSONFieldMapper; virtual;\r\n    // If True, then the dataset will free MetaData and FRows when it is closed.\r\n    Property OwnsData : Boolean Read FownsData Write FOwnsData;\r\n    // set to true if unknown field types should be handled as string fields.\r\n    Property MapUnknownToStringType : Boolean Read FMUS Write FMUS;\r\n    // Metadata\r\n    Property MetaData : TJSObject Read FMetaData Write SetMetaData;\r\n    // Rows\r\n    Property Rows : TJSArray Read FRows Write SetRows;\r\n    // RowType\r\n    Property RowType : TJSONRowType Read FRowType Write SetRowType;\r\n    // Fieldmapper\r\n    Property FieldMapper : TJSONFieldMapper Read FFieldMapper;\r\n    // FieldClass\r\n    Property UseDateTimeFormatFields : Boolean Read FUseDateTimeFormatFields Write FUseDateTimeFormatFields;\r\n    // Indexes\r\n    Property Indexes : TJSONIndexDefs Read FIndexes Write SetIndexes;\r\n    // Active index name. Set to empty for default index.\r\n    Property ActiveIndex : String Read FActiveIndex Write SetActiveIndex;\r\n    // Blob format returned by server\r\n    Property BlobFormat : TBlobFormat Read FBlobFormat Write FBlobFormat;\r\n    // Called when BlobFormat is custom to decode incoming server data to TBytes\r\n    Property OnDecodeBlobValue : TOnDecodeBlobBytesEvent Read FOnDecodeBlobValue Write FOnDecodeBlobValue;\r\n    // Called when BlobFormat is custom to encode TBytes to server data.\r\n    Property OnEncodeBlobValue : TOnEncodeBlobBytesEvent Read FOnEncodeBlobValue Write FOnEncodeBlobValue;\r\n  public\r\n    constructor Create (AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    Function BlobDataToBytes(aValue : JSValue) : TBytes; override;\r\n    Function BytesToBlobData(aValue : TBytes) : JSValue ; override;\r\n    function ConvertDateTimeToNative(aField : TField; aValue : TDateTime) : JSValue; override;\r\n    function Locate(const KeyFields: string; const KeyValues: JSValue; Options: TLocateOptions): boolean; override;\r\n    function Lookup(const KeyFields: string; const KeyValues: JSValue; const ResultFields: string): JSValue; override;\r\n    function GetFieldData(Field: TField; Buffer: TDatarecord): JSValue;  override;\r\n    procedure SetFieldData(Field: TField; var Buffer{%H-}: TDatarecord; AValue : JSValue);  override;\r\n    function GetClonedDataSet(WithSettings: Boolean): TDataSet; override;\r\n    function BookmarkValid(ABookmark: TBookmark): Boolean; override;\r\n    function CompareBookmarks(Bookmark1, Bookmark2: TBookmark): Longint; override;\r\n  end;\r\n\r\n  TJSONDataset = Class(TBaseJSONDataset)\r\n  published\r\n    Property FieldDefs;\r\n    Property RowType;\r\n    Property UseDateTimeFormatFields;\r\n    Property Indexes;\r\n    Property ActiveIndex;\r\n    property Active;\r\n    property BeforeOpen;\r\n    property AfterOpen;\r\n    property BeforeClose;\r\n    property AfterClose;\r\n    property BeforeInsert;\r\n    property AfterInsert;\r\n    property BeforeEdit;\r\n    property AfterEdit;\r\n    property BeforePost;\r\n    property AfterPost;\r\n    property BeforeCancel;\r\n    property AfterCancel;\r\n    property BeforeDelete;\r\n    property AfterDelete;\r\n    property BeforeScroll;\r\n    property AfterScroll;\r\n    property OnCalcFields;\r\n    property OnDeleteError;\r\n    property OnEditError;\r\n    property OnFilterRecord;\r\n    property OnNewRecord;\r\n    property OnPostError;\r\n    Property OnRecordResolved;\r\n    property OnLoadFail;\r\n    Property BlobFormat;\r\n    Property OnDecodeBlobValue;\r\n    Property OnEncodeBlobValue;\r\n  end;\r\n\r\n  { TJSONObjectFieldMapper }\r\n  // Fieldmapper to be used when the data is in an object\r\n  TJSONObjectFieldMapper = Class(TJSONFieldMapper)\r\n  Public\r\n    Procedure RemoveField(Const FieldName : String; FieldIndex{%H-} : Integer; Row : JSValue); override;\r\n    procedure SetJSONDataForField(Const FieldName : String; FieldIndex{%H-} : Integer; Row,Data : JSValue); override;\r\n    Function GetJSONDataForField(Const FieldName : String; FieldIndex{%H-} : Integer; Row : JSValue) : JSValue; override;\r\n    Function CreateRow : JSValue; override;\r\n  end;\r\n\r\n  { TJSONArrayFieldMapper }\r\n  // Fieldmapper to be used when the data is in an array\r\n  TJSONArrayFieldMapper = Class(TJSONFieldMapper)\r\n  Public\r\n    Procedure RemoveField(Const FieldName{%H-} : String; FieldIndex : Integer; Row : JSValue); override;\r\n    procedure SetJSONDataForField(Const FieldName{%H-} : String; FieldIndex : Integer; Row,Data : JSValue); override;\r\n    Function GetJSONDataForField(Const FieldName{%H-} : String; FieldIndex : Integer; Row : JSValue) : JSValue; override;\r\n    Function CreateRow : JSValue; override;\r\n  end;\r\n\r\n  EJSONDataset = Class(EDatabaseError);\r\n  \r\nimplementation\r\n\r\nuses\r\n{$IFDEF FPC_DOTTEDUNITS}\r\n  System.DateUtils;\r\n{$ELSE}\r\n  DateUtils;\r\n{$ENDIF}\r\n\r\nFunction atob (s : String) : string; external name 'atob';\r\nFunction btoa (s : String) : string; external name 'btoa';\r\n\r\n{ TJSONIndexDef }\r\n\r\nprocedure TJSONIndexDef.ClearIndex;\r\nbegin\r\n  FreeAndNil(FIndex);\r\nend;\r\n\r\nprocedure TJSONIndexDef.BuildIndex(aDataset : TBaseJSONDataset);\r\n\r\nbegin\r\n  if Findex=Nil then\r\n    FIndex:=TSortedJSONIndex.Create(aDataset,aDataset.Rows)\r\n  else\r\n    FIndex.ClearIndex;\r\n  FIndex.CreateComparer(Self);\r\n  FIndex.CreateIndex;\r\nend;\r\n\r\n{ TJSONIndexDefs }\r\n\r\nfunction TJSONIndexDefs.GetD(aIndex : Integer): TJSONIndexDef;\r\nbegin\r\n  Result:=Items[aIndex] as TJSONIndexDef;\r\nend;\r\n\r\nprocedure TJSONIndexDefs.SetD(aIndex : Integer; AValue: TJSONIndexDef);\r\nbegin\r\n  Items[aIndex]:=aValue;\r\nend;\r\n\r\nfunction TJSONIndexDefs.AddJSONIndexDef: TJSONIndexDef;\r\nbegin\r\n  Result:=Add as TJSONIndexDef;\r\nend;\r\n\r\n{ TSortedJSONIndex }\r\n\r\nFunction TSortedJSONIndex.MergeSort(aList : TJSArray) : TJSArray;\r\n\r\nVar\r\n  temp : TJSArray;\r\n  l,p,q,e,tail : integer;\r\n  insize, nmerges, psize, qsize : Integer;\r\n\r\nbegin\r\n  if aList=Nil then\r\n    Exit(Nil);\r\n  L:=aList.length;\r\n  Result:=TJSArray.new(l);\r\n  if L=0 then exit;\r\n  insize:=1;\r\n  Repeat\r\n    p:=0;\r\n    Tail:=0;\r\n    nmerges := 0;  // count number of merges we do in this pass\r\n    while (p<L) do\r\n      begin\r\n      Inc(nmerges);  { there exists a merge to be done }\r\n      { step `insize' places along from p }\r\n      pSize:=L-P;\r\n      if Insize<pSize then\r\n        pSize:=InSize;\r\n      Q:=P+pSize;\r\n      qsize:=insize;\r\n       //* now we have two lists; merge them */\r\n      while (psize>0) or ((qsize > 0) and (Q<L)) do\r\n        begin // /* decide whether next element of merge comes from p or q */\r\n        if (psize=0) then\r\n          begin  // * p is empty; e must come from q. */\r\n          e := q; Inc(q); Dec(qsize);\r\n          end\r\n        else if ((qsize = 0) or (q>=L)) then\r\n          begin // * q is empty; e must come from p. */\r\n          e := p; Inc(p); Dec(psize);\r\n          end\r\n        else if (FComparer.CompareRows(Integer(aList[p]),Integer(aList[q])) <= 0) then\r\n          begin // * First element of p is lower (or same); * e must come from p. */\r\n          e:=p; inc(p); Dec(psize);\r\n          end\r\n        else\r\n          begin // * First element of q is lower; e must come from q. */\r\n          e := q; Inc(q); Dec(qsize);\r\n          end;\r\n        Result[Tail]:=aList[e];\r\n        Inc(tail);\r\n        end;\r\n      p:=q;\r\n      end;\r\n    // * If we have done only one merge, we're finished. */\r\n    if (nmerges <= 1) then  //* allow for nmerges==0, the empty list case */\r\n      exit;\r\n    // * Otherwise repeat, merging lists twice the size */\r\n    InSize:=Insize * 2;\r\n    // Swap lists for next round.\r\n    Temp:=Result;\r\n    Result:=aList;\r\n    aList:=Temp;\r\n  until false;\r\nend;\r\n\r\ndestructor TSortedJSONIndex.Destroy;\r\nbegin\r\n  FreeAndNil(FComparer);\r\n  Inherited;\r\nend;\r\n\r\nprocedure TSortedJSONIndex.CreateComparer(aIndex: TJSONIndexDef);\r\nbegin\r\n  FreeAndNil(FComparer);\r\n  FComparer:=TRecordComparer.Create(Dataset,aindex);\r\nend;\r\n\r\nprocedure TSortedJSONIndex.CreateIndex;\r\n\r\nVar\r\n  Lst : Array of Integer;\r\n  I,SrcLen,Destlen : Integer;\r\nbegin\r\n  // CreateIndex is called during constructor. We cannot build index then, so we exit\r\n  if FComparer=Nil then\r\n    exit;\r\n  SrcLen:=FRows.Length;\r\n  // Temp list, mergsort destroys list\r\n  SetLength(Lst,SrcLen);\r\n  DestLen:=0;\r\n  For I:=0 to SrcLen-1 do\r\n    begin\r\n    if not isUndefined(FRows[I]) then\r\n      begin\r\n      Lst[DestLen]:=I;\r\n      Inc(DestLen);\r\n      end;\r\n    end;\r\n  SetLength(Lst,DestLen);\r\n  FList:=MergeSort(TJSArray(Lst));\r\nend;\r\n\r\nprocedure TSortedJSONIndex.AppendToIndex;\r\nbegin\r\n  // In theory, we could sort the rest of the list, and then merge the 2 sublists.\r\n  CreateIndex;\r\nend;\r\n\r\nfunction TSortedJSONIndex.FindPos(aRecordIndex: Integer): Integer;\r\n\r\nVar\r\n  L,R,I, CompareRes : Integer;\r\n\r\nbegin\r\n  if not Assigned(FComparer) then\r\n    exit;\r\n  L := 0;\r\n  R := Count - 1;\r\n  while (L<=R) do\r\n    begin\r\n    I := L + (R - L) div 2;\r\n    CompareRes := FComparer.CompareRows(aRecordIndex, Integer(Flist[I]));\r\n    if (CompareRes>0) then\r\n      L := I+1\r\n    else\r\n      begin\r\n      R := I-1;\r\n      if (CompareRes=0) then\r\n        begin\r\n        if Unique then\r\n          L := I; // forces end of while loop\r\n        end;\r\n      end;\r\n    end;\r\n  Result:=L;\r\nend;\r\n\r\nfunction TSortedJSONIndex.Append(aRecordIndex: Integer): Integer;\r\n\r\n\r\nbegin\r\n  Result:=FindPos(aRecordIndex);\r\n  // insert in list\r\n  FList.Splice(Result,0,aRecordIndex);\r\nend;\r\n\r\n\r\nfunction TSortedJSONIndex.FindRecord(aRecordIndex: Integer): Integer;\r\nbegin\r\n  Result:=FList.indexOf(aRecordIndex);\r\nend;\r\n\r\nfunction TSortedJSONIndex.Update(aRecordIndex: Integer): Integer;\r\n\r\nVar\r\n  aCurrentIndex : Integer;\r\n\r\nbegin\r\n  // Old pos\r\n  aCurrentIndex:=FindRecord(aRecordIndex);\r\n  // New pos\r\n  Result:=FindPos(aRecordIndex);\r\n  if Result<>aCurrentIndex then\r\n    FList.Splice(Result,0,FList.Splice(aCurrentIndex,1)[0])\r\nend;\r\n\r\n{ TFloatFieldComparer }\r\n\r\nfunction TFloatFieldComparer.Compare(RowIndex: Integer; aValue: JSValue): Integer;\r\nvar\r\n  D1,D2 : Double;\r\n\r\nbegin\r\n  D1:=Double(GetFieldValue(Rowindex));\r\n  D2:=Double(aValue);\r\n  Result:=Round(D1-D2);\r\nend;\r\n\r\n{ TDateTimeFieldComparer }\r\n\r\nfunction TDateTimeFieldComparer.Compare(RowIndex: Integer; aValue: JSValue): Integer;\r\n\r\nvar\r\n  D1,D2 : TDateTime;\r\n\r\n  Function ToDate(v: JSValue) : TDateTime;\r\n\r\n  begin\r\n    if IsDate(v) then\r\n      Result:= JSDateToDateTime(TJSDate(v))\r\n    else\r\n      Result:=Dataset.ConvertDateTimeField(String(v),Self.Field);\r\n  end;\r\n\r\nbegin\r\n  D1:=ToDate(GetFieldValue(RowIndex));\r\n  D2:=ToDate(aValue);\r\n  Result:=Round(D1-D2);\r\nend;\r\n\r\n{ TBooleanFieldComparer }\r\n\r\nfunction TBooleanFieldComparer.Compare(RowIndex: Integer; aValue: JSValue): Integer;\r\n\r\nvar\r\n  B1,B2 : Boolean;\r\n\r\nbegin\r\n  B1:=Boolean(GetFieldValue(Rowindex));\r\n  B2:=Boolean(aValue);\r\n  Result:=Ord(B1)-Ord(B2);\r\nend;\r\n\r\n{ TNativeIntFieldComparer }\r\n\r\nfunction TNativeIntFieldComparer.Compare(RowIndex: Integer; aValue: JSValue): Integer;\r\n\r\nvar\r\n  I1,I2 : NativeInt;\r\n\r\nbegin\r\n  I1:=NativeInt(GetFieldValue(Rowindex));\r\n  I2:=NativeInt(aValue);\r\n  Result:=I1-I2;\r\nend;\r\n\r\n{ TStringFieldComparer }\r\n\r\nfunction TStringFieldComparer.Compare(RowIndex: Integer; aValue: JSValue): Integer;\r\n\r\nvar\r\n  S1,S2 : String;\r\n\r\nbegin\r\n  S1:=String(GetFieldValue(Rowindex));\r\n  S2:=String(aValue);\r\n  if loPartialKey in Options then\r\n    S1:=Copy(S1,1,Length(S2));\r\n  if loCaseInsensitive in options then\r\n    Result := CompareText(S1,S2)\r\n  else\r\n    Result := CompareStr(S1,S2);\r\nend;\r\n\r\n{ TFieldComparer }\r\n\r\nconstructor TFieldComparer.Create(aDataset: TBaseJSONDataset; aField: TField; aValue: JSValue; aOptions: TLocateOptions);\r\n\r\nbegin\r\n  FField:=AField;\r\n  FValue:=aValue;\r\n  FOptions:=aOptions;\r\n  FDataset:=aDataset;\r\nend;\r\n\r\nfunction TFieldComparer.GetFieldValue(RowIndex: integer): JSValue;\r\nbegin\r\n  Result:=FDataset.FieldMapper.GetJSONDataForField(FField,FDataset.FRows[Rowindex]);\r\nend;\r\n\r\nfunction TFieldComparer.CompareRows(RowIndex1, RowIndex2: Integer): Integer;\r\nbegin\r\n  Result:=Compare(RowIndex1,GetFieldValue(RowIndex2));\r\nend;\r\n\r\nfunction TFieldComparer.Compare(RowIndex: Integer): Integer;\r\nbegin\r\n  Result:=Compare(RowIndex,FValue);\r\nend;\r\n\r\n{ TRecordComparer }\r\n\r\nfunction TRecordComparer.GetFieldComparer(Index: Integer): TFieldComparer;\r\nbegin\r\n  if (Index<0) or (Index>=Length(Fitems)) then\r\n    Raise EListError.CreateFmt('Index out of bounds: %d not in [%d,%d]',[Index,0,Length(Fitems)-1]);\r\n  Result:=Items[Index];\r\nend;\r\n\r\nprocedure TRecordComparer.ConstructItems(aFields : String);\r\n\r\nVar\r\n  L : TFPlist;\r\n  FCC : TFieldComparerClass;\r\n  F : TField;\r\n  I : Integer;\r\n\r\n\r\nbegin\r\n  L:=TFPList.Create;\r\n  try\r\n    Dataset.GetFieldList(L,aFields);\r\n    if Not Indexbased and (L.Count<>Length(FValues)) then\r\n       Raise EDatabaseError.CreateFmt('Array of values has different length (%d) from array of fields (%d)',[Length(FValues), L.Count]);\r\n    SetLength(FItems,L.Count);\r\n    For I:=0 to L.Count-1 do\r\n      begin\r\n      F:=TField(L[i]);\r\n      FCC:=DataTypeToComparerClass(F.DataType);\r\n      If FCC=Nil then\r\n        Raise EDatabaseError.CreateFmt('Cannot locate on field %s of type %s)',[F.FieldName,GetEnumName(TypeInfo(TFieldType),Ord(F.DataType))]);\r\n      if IndexBased then\r\n        Fitems[i]:=FCC.Create(FDataset,F,Null,FOptions)\r\n      else\r\n        Fitems[i]:=FCC.Create(FDataset,F,FValues[i],FOptions);\r\n      end;\r\n  finally\r\n    L.Free;\r\n  end;\r\nend;\r\n\r\nfunction TRecordComparer.DataTypeToComparerClass(aFieldType: TFieldType): TFieldComparerClass;\r\n\r\nbegin\r\n  Case aFieldType of\r\n    ftMemo, ftFixedChar,ftString :\r\n      Result:=TStringFieldComparer;\r\n    ftAutoInc, ftInteger, ftLargeInt:\r\n      Result:=TNativeIntFieldComparer;\r\n    ftBoolean:\r\n      Result:=TBooleanFieldComparer;\r\n    ftFloat:\r\n      Result:=TFloatFieldComparer;\r\n    ftDate, ftTime, ftDateTime:\r\n      Result:=TDateTimeFieldComparer;\r\n  else\r\n   result:=Nil;\r\n  end;\r\nend;\r\n\r\nfunction TRecordComparer.Compare(aRowindex: integer): Integer;\r\n\r\nVar\r\n  I,L : Integer;\r\n\r\nbegin\r\n  Result:=0;\r\n  I:=0;\r\n  L:=Length(FItems);\r\n  While (Result=0) and (I<L) do\r\n    begin\r\n    Result:=Fitems[i].Compare(aRowindex);\r\n    Inc(I);\r\n    end;\r\nend;\r\n\r\nfunction TRecordComparer.CompareRows(aRowindex1, aRowIndex2: integer): Integer;\r\n\r\nVar\r\n  I,L : Integer;\r\n\r\nbegin\r\n  Result:=0;\r\n  I:=0;\r\n  L:=Length(FItems);\r\n  While (Result=0) and (I<L) do\r\n    begin\r\n    Result:=Fitems[i].CompareRows(aRowindex1,aRowIndex2);\r\n    if (Result<>0) and Fitems[i].Desc then\r\n      Result:=-Result;\r\n    Inc(I);\r\n    end;\r\nend;\r\n\r\nprocedure TRecordComparer.updateFromIndex(aIndex: TJSONIndexDef);\r\n\r\nVar\r\n  L : TFPList;\r\n  I : Integer;\r\n\r\nbegin\r\n  L:=TFPList.Create;\r\n  try\r\n    if (aIndex.CaseInsFields<>'') then\r\n      begin\r\n      Dataset.GetFieldList(L,aIndex.CaseInsFields);\r\n      for I:=0 to Length(FItems)-1 do\r\n        if L.IndexOf(FItems[i].Field)<>-1 then\r\n          Fitems[i].Options:=Fitems[i].Options+[loCaseInsensitive];\r\n      end;\r\n    L.Clear;\r\n    Dataset.GetFieldList(L,aIndex.DescFields);\r\n    for I:=0 to Length(FItems)-1 do\r\n      Fitems[i].Desc:=(ixDescending in aIndex.Options) or (L.IndexOf(FItems[i].Field)<>-1);\r\n  finally\r\n    L.Free;\r\n  end;\r\nend;\r\n\r\nconstructor TRecordComparer.Create(aDataset: TBaseJSONDataset; aFields: String; aValues: JSValue; aOptions: TLocateOptions);\r\nbegin\r\n  FDataset:=aDataset;\r\n  if isArray(aValues) then\r\n    FValues:=TJSValueDynArray(aValues)\r\n  else\r\n    begin\r\n    SetLength(FValues,1);\r\n    FValues[0]:=Avalues;\r\n    end;\r\n  Foptions:=aOptions;\r\n  ConstructItems(aFields);\r\nend;\r\n\r\nconstructor TRecordComparer.Create(aDataset: TBaseJSONDataset; aIndex: TJSONIndexDef);\r\nbegin\r\n  FDataset:=aDataset;\r\n  FIndexBased:=True;\r\n  if ixCaseInsensitive in aIndex.Options then\r\n    FOptions:=[loCaseInsensitive];\r\n  ConstructItems(aIndex.Fields);\r\n  UpdateFromIndex(aIndex);\r\nend;\r\n\r\ndestructor TRecordComparer.Destroy;\r\n\r\nVar\r\n  I : Integer;\r\n\r\nbegin\r\n  For I:=0 to Length(FItems)-1 do\r\n    FItems[i].Free;\r\n  inherited Destroy;\r\nend;\r\n\r\n{ TDefaultJSONIndex }\r\n\r\nprocedure TDefaultJSONIndex.CreateIndex;\r\n\r\nVar\r\n  I : Integer;\r\n\r\nbegin\r\n  For I:=0 to FRows.length-1 do\r\n    FList[i]:=I;\r\nend;\r\n\r\nprocedure TDefaultJSONIndex.AppendToIndex;\r\n\r\nVar\r\n  I,L : Integer;\r\n\r\nbegin\r\n  L:=FList.Length;\r\n  FList.Length:=FRows.Length;\r\n  For I:=L to FRows.Length-1 do\r\n    FList[i]:=I;\r\nend;\r\n\r\nfunction TDefaultJSONIndex.Append(aRecordIndex: Integer): Integer;\r\nbegin\r\n  Result:=FList.Push(aRecordIndex)-1;\r\nend;\r\n\r\nfunction TDefaultJSONIndex.Insert(aCurrentIndex, aRecordIndex: Integer\r\n  ): Integer;\r\nbegin\r\n  FList.splice(aCurrentIndex, 0, aRecordIndex);\r\n  Result:=aCurrentIndex;\r\nend;\r\n\r\nfunction TDefaultJSONIndex.FindRecord(aRecordIndex: Integer): Integer;\r\nbegin\r\n  Result:=FList.indexOf(aRecordIndex);\r\nend;\r\n\r\nfunction TDefaultJSONIndex.Update(aRecordIndex: Integer\r\n  ): Integer;\r\nbegin\r\n  Result:=aRecordIndex;\r\nend;\r\n\r\n{ TJSONIndex }\r\n\r\nconstructor TJSONIndex.Create(aDataset: TBaseJSONDataset; aRows: TJSArray);\r\nbegin\r\n  FRows:=aRows;\r\n  FList:=TJSArray.New(FRows.length);\r\n  FDataset:=aDataset;\r\n  CreateIndex;\r\nend;\r\n\r\nfunction TJSONIndex.Delete(aListIndex: Integer): Integer;\r\n\r\nVar\r\n  a : TJSArray;\r\n\r\nbegin\r\n  A:=FList.Splice(aListIndex,1);\r\n  If a.Length>0 then\r\n    Result:=Integer(A[0])\r\n  else\r\n    Result:=-1;\r\nend;\r\n\r\nfunction TJSONIndex.DeleteByRowIndex(aRowIndex: Integer): Integer;\r\nbegin\r\n  Result:=IndexOfRow(aRowIndex);\r\n  if Result<>-1 then\r\n    FList.Splice(Result,1);\r\nend;\r\n\r\nfunction TJSONIndex.Insert(aCurrentIndex, aRecordIndex: Integer): Integer;\r\nbegin\r\n  Result:=Append(aRecordIndex);\r\nend;\r\n\r\nfunction TJSONIndex.IndexOfRow(aRowIndex: Integer): NativeInt;\r\nbegin\r\n  Result:=FList.indexOf(aRowIndex);\r\nend;\r\n\r\nfunction TJSONIndex.GetCount: Integer;\r\nbegin\r\n  Result:=FList.Length;\r\nend;\r\n\r\nprocedure TJSONIndex.ClearIndex;\r\nbegin\r\n  FList.Length:=0;\r\nend;\r\n\r\nfunction TJSONIndex.GetRecordIndex(aListIndex : Integer): NativeInt;\r\nbegin\r\n  if isUndefined(FList[aListIndex]) then\r\n    Result:=-1\r\n  else\r\n    Result:=NativeInt(FList[aListIndex]);\r\nend;\r\n\r\n\r\n\r\n{ TJSONFieldMapper }\r\n\r\nfunction TJSONFieldMapper.CopyRow(aRow: JSValue): JSValue;\r\nbegin\r\n  Result:=TJSJSON.parse(TJSJSON.stringify(aRow));\r\nend;\r\n\r\nfunction TJSONFieldMapper.GetJSONDataForField(F: TField; Row: JSValue  ): JSValue;\r\nbegin\r\n  // This supposes that Index is correct, i.e. the field positions have not been changed.\r\n  Result:=GetJSONDataForField(F.FieldName,F.Index,Row);\r\nend;\r\n\r\nprocedure TJSONFieldMapper.SetJSONDataForField(F: TField; Row,Data: JSValue);\r\nbegin\r\n  SetJSONDataForField(F.FieldName,F.Index,Row,Data);\r\nend;\r\n\r\n\r\n{ TJSONArrayFieldMapper }\r\n\r\nprocedure TJSONArrayFieldMapper.RemoveField(const FieldName: String; FieldIndex: Integer; Row: JSValue);\r\nbegin\r\n  TJSArray(Row).Splice(FieldIndex,1);\r\nend;\r\n\r\nprocedure TJSONArrayFieldMapper.SetJSONDataForField(const FieldName: String;\r\n  FieldIndex: Integer; Row, Data: JSValue);\r\nbegin\r\n  TJSValueDynArray(Row)[FieldIndex]:=Data;\r\nend;\r\n\r\nfunction TJSONArrayFieldMapper.GetJSONDataForField(const FieldName: String; FieldIndex: Integer; Row: JSValue): JSValue;\r\nbegin\r\n  Result:=TJSValueDynArray(Row)[FieldIndex];\r\nend;\r\n\r\nfunction TJSONArrayFieldMapper.CreateRow: JSValue;\r\n\r\nbegin\r\n  Result:=TJSArray.New;\r\nend;\r\n\r\n{ TJSONObjectFieldMapper }\r\n\r\nprocedure TJSONObjectFieldMapper.RemoveField(const FieldName: String; FieldIndex: Integer; Row: JSValue);\r\nbegin\r\n  jsDelete(Row,FieldName);\r\nend;\r\n\r\nprocedure TJSONObjectFieldMapper.SetJSONDataForField(const FieldName: String;\r\n  FieldIndex: Integer; Row, Data: JSValue);\r\nbegin\r\n  TJSObject(Row).Properties[FieldName]:=Data;\r\nend;\r\n\r\nfunction TJSONObjectFieldMapper.GetJSONDataForField(const FieldName: String;\r\n  FieldIndex: Integer; Row: JSValue): JSValue;\r\nbegin\r\n  Result:=TJSObject(Row).Properties[FieldName];\r\nend;\r\n\r\nfunction TJSONObjectFieldMapper.CreateRow: JSValue;\r\nbegin\r\n  Result:=TJSObject.New;\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.SetMetaData(AValue: TJSObject);\r\nbegin\r\n  CheckInActive;\r\n  FMetaData:=AValue;\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.SetIndexes(AValue: TJSONIndexDefs);\r\nbegin\r\n  if FIndexes=AValue then Exit;\r\n  FIndexes.Assign(aValue);\r\n  if Active then\r\n    BuildIndexes;\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.SetActiveIndex(AValue: String);\r\n\r\n\r\nbegin\r\n  if FActiveIndex=AValue then Exit;\r\n  FActiveIndex:=AValue;\r\n  if (csLoading in ComponentState) then\r\n    exit;\r\n  ActivateIndex(Active);\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.ActivateIndex(Build : Boolean);\r\n\r\nVar\r\n  Idx : TJSONIndexDef;\r\n\r\nbegin\r\n  if (FActiveIndex<>'') then\r\n    Idx:=FIndexes.Find(FActiveIndex) as TJSONIndexDef\r\n  else\r\n    Idx:=nil;\r\n  if Idx=Nil then\r\n    FCurrentIndex:=FDefaultIndex\r\n  else\r\n    begin\r\n    if (Idx.Index=Nil) and Build then\r\n      Idx.BuildIndex(Self);\r\n    FCurrentIndex:=Idx.Index;\r\n    end;\r\n  if Active then\r\n    Resync([rmCenter]);\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.AddToRows(AValue: TJSArray);\r\n\r\nbegin\r\n  if FRows=Nil then\r\n    FRows:=AValue\r\n  else\r\n    begin\r\n    FRows:=FRows.Concat(AValue);\r\n    AppendToIndexes;\r\n    end;\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.SetRows(AValue: TJSArray);\r\nbegin\r\n  if AValue=FRows then exit;\r\n  CheckInActive;\r\n  FRows:=Nil;\r\n  AddToRows(AValue);\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.SetRowType(AValue: TJSONRowType);\r\nbegin\r\n  if FRowType=AValue then Exit;\r\n  CheckInactive;\r\n  FRowType:=AValue;\r\nend;\r\n\r\n\r\n\r\nfunction TBaseJSONDataSet.BlobDataToBytes(aValue: JSValue): TBytes;\r\n\r\nbegin\r\n  Result:=[];\r\n  Case BlobFormat of\r\n  bfHex:\r\n    Result:=DefaultBlobDataToBytes(aValue);\r\n  bfBase64:\r\n    Result:=BytesOf(atob(String(aValue)));\r\n  bfBytes:\r\n    Result:=TBytes(aValue);\r\n  bfCustom:\r\n    if Assigned(FOnDecodeBlobValue) then\r\n      FOnDecodeBlobValue(Self,aValue,Result);\r\n  end;\r\nend;\r\n\r\nfunction TBaseJSONDataSet.BytesToBlobData(aValue: TBytes): JSValue;\r\n\r\nbegin\r\n  Result:='';\r\n  Case BlobFormat of\r\n  bfHex:\r\n    Result:=DefaultBytesToBlobData(aValue);\r\n  bfBase64:\r\n    begin\r\n    Result:=BtoA(StringOf(aValue));\r\n    end;\r\n  bfBytes:\r\n    Result:=TBytes(aValue);\r\n  bfCustom:\r\n    if Assigned(FOnEncodeBlobValue) then\r\n      FOnEncodeBlobValue(Self,aValue,Result);\r\n  end;\r\nend;\r\n\r\nfunction TBaseJSONDataSet.ConvertDateTimeToNative(aField : TField; aValue: TDateTime): JSValue;\r\nbegin\r\n  if jsISNan(aValue) then\r\n    Result:=Null\r\n  else\r\n    Result:=FormatDateTimeField(aValue,aField)\r\nend;\r\n\r\n\r\nfunction TBaseJSONDataSet.AllocRecordBuffer: TDataRecord;\r\nbegin\r\n  Result.data:=TJSObject.New;\r\n  Result.bookmark:=null;\r\n  Result.state:=rsNew;\r\nend;\r\n\r\n// the next two are particularly ugly.\r\nprocedure TBaseJSONDataSet.InternalInitRecord(var Buffer: TDataRecord);\r\nbegin\r\n//  Writeln('TBaseJSONDataSet.InternalInitRecord');\r\n  Buffer.Data:=FFieldMapper.CreateRow;\r\n  Buffer.bookmark:=null;\r\n  Buffer.state:=rsNew;\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.FreeRecordBuffer (var Buffer: TDataRecord);\r\nbegin\r\n  Buffer.Data:=Null;\r\n  Buffer.bookmark:=null;\r\n  Buffer.state:=rsNew;\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.GetBookmarkData(Buffer: TDataRecord; var Data: TBookmark);\r\nbegin\r\n   Data.Data:=Buffer.bookmark;\r\nend;\r\n\r\nfunction TBaseJSONDataSet.GetBookmarkFlag(Buffer: TDataRecord): TBookmarkFlag;\r\nbegin\r\n  Result :=Buffer.BookmarkFlag;\r\nend;\r\n\r\nfunction TBaseJSONDataSet.GetClonedDataSet(WithSettings: Boolean): TDataSet;\r\nvar\r\n  DS: TBaseJSONDataSet;\r\nbegin\r\n  Result := TBaseJSONDataSet.Create(nil);\r\n  try\r\n    DS := Result as TBaseJSONDataSet;\r\n    if WithSettings then\r\n    begin\r\n      DS.Filter := Filter;\r\n      DS.OnFilterRecord := OnFilterRecord;\r\n      DS.FilterOptions := FilterOptions;\r\n      DS.Filtered := Filtered;\r\n//      if IndexName <> '' then\r\n//        DS.IndexName := IndexName\r\n//      else\r\n//        DS.IndexFieldNames := IndexFieldNames;\r\n//      DS.DataSource := DataSource;\r\n//      DS.MasterFields := MasterFields;\r\n    end;\r\n    DS.Clone(Self);\r\n    DS.Active := Active;\r\n  except\r\n    Result.Free;\r\n    raise;\r\n  end;\r\nend;\r\n\r\nfunction TBaseJSONDataSet.GetRecNo: Integer;\r\nvar\r\n  bkmIdx: Integer;\r\n\r\nbegin\r\n  bkmIdx := Integer(ActiveBuffer.bookmark);\r\n  Result := FCurrentIndex.FindRecord(bkmIdx)+1;\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.InternalInitFieldDefs;\r\nbegin\r\n  if Assigned(FMetaData) then\r\n    MetaDataToFieldDefs;\r\n  if (FieldDefs.Count = 0) then\r\n    raise EJSONDataset.Create('No fields found');\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.FreeData;\r\n\r\nVar\r\n I : integer;\r\n\r\nbegin\r\n  If FOwnsData then\r\n    begin\r\n    FRows:=Nil;\r\n    FMetaData:=Nil;\r\n    end;\r\n  For I:=0 to FIndexes.Count-1 do\r\n    FIndexes[i].ClearIndex;\r\n  FCurrentIndex:=Nil;\r\n  FreeAndNil(FDefaultindex);\r\n  FreeAndNil(FFieldMapper);\r\n  FCurrentIndex:=Nil;\r\n  FDeletedRows:=Nil;\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.AppendToIndexes;\r\n\r\nbegin\r\n  FDefaultIndex.AppendToIndex;\r\n  if Assigned(FCurrentIndex) and (FCurrentIndex<>FDefaultIndex) then\r\n    FCurrentIndex.AppendToIndex;\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.CreateIndexes;\r\n\r\nbegin\r\n  FDefaultIndex:=TDefaultJSONIndex.Create(Self,FRows);\r\n  AppendToIndexes;\r\n  if FCurrentIndex=Nil then\r\n    FCurrentIndex:=FDefaultIndex;\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.MetaDataToFieldDefs;\r\nbegin\r\nend;\r\n\r\nfunction TBaseJSONDataSet.FilterExpressionClass : TFPExpressionParserClass;\r\n\r\nbegin\r\n  Result:=TFPExpressionParser;\r\nend;\r\n\r\nfunction TBaseJSONDataSet.GetFilterIsNull(const Args: TExprParameterArray): TFPExpressionResult;\r\n\r\nbegin\r\n  Result.ResultType:=rtBoolean;\r\n  Result.ResValue:=FieldByName(String(Args[0].resValue)).IsNull;\r\nend;\r\n\r\nfunction TBaseJSONDataSet.FieldTypeToExpressionType(aDataType : TFieldType) : TResultType;\r\n\r\nbegin\r\n  Case aDataType of\r\n    ftMemo,\r\n    ftFixedChar,\r\n    ftString : Result:=rtString;\r\n    ftInteger,\r\n    ftAutoInc,\r\n    ftLargeInt : Result:=rtInteger;\r\n    ftBoolean : Result:=rtBoolean;\r\n    ftFloat : Result:=rtFloat;\r\n    ftDate,\r\n    ftTime,\r\n    ftDateTime : Result:=rtDateTime;\r\n  else\r\n    DatabaseErrorFmt('Fields of type %s are not supported in filter expressions.',[Fieldtypenames[aDataType]],Self);\r\n  end;\r\nend;\r\n\r\nfunction TBaseJSONDataSet.GetFilterField(const AName: String): TFPExpressionResult;\r\n\r\nVar\r\n  F : TField;\r\n  C : Currency;\r\n\r\nbegin\r\n  F:=FieldByName(aName);\r\n  Result.resultType:=FieldTypeToExpressionType(F.DataType);\r\n  case Result.resultType of\r\n    rtBoolean : Result.resValue:=F.AsBoolean;\r\n    rtInteger : Result.resValue:=F.AsLargeInt;\r\n    rtFloat : Result.resValue:=F.AsFloat;\r\n    rtDateTime : Result.resValue:=F.AsDateTime;\r\n    rtString : Result.resValue:=F.AsString;\r\n    rtCurrency :\r\n      begin\r\n      C:=Currency(F.AsFloat);\r\n      Result.resValue:=C;\r\n      end;\r\n  end;\r\n//  Writeln('Filtering field ',aName,'value: ',result.resValue);\r\nend;\r\n\r\n\r\nfunction TBaseJSONDataSet.CreateFilterExpression : TFPExpressionParser;\r\n\r\nVar\r\n  I : Integer;\r\n\r\nbegin\r\n  Result:=FilterExpressionClass.Create(Self);\r\n  Result.AllowLike:=True;\r\n  for I:=0 to Fields.Count-1 do\r\n    if not (Fields[i].DataType in [ftBlob,ftMemo]) then\r\n      Result.Identifiers.AddVariable(Fields[i].FieldName,FieldTypeToExpressionType(Fields[i].DataType),@GetFilterField);\r\n  Result.Identifiers.AddFunction('IsNull','B','S',@GetFilterIsNull);\r\n  Result.Expression:=Filter;\r\nend;\r\n\r\nfunction TBaseJSONDataSet.DoFilterRecord : Boolean;\r\n\r\nVar\r\n  DS : TDatasetState;\r\n\r\nbegin\r\n  // Writeln('Filtering');\r\n  Result:=True;\r\n  DS:=SetTempState(dsFilter);\r\n  try\r\n    if Assigned(OnFilterRecord) then\r\n      begin\r\n      OnFilterRecord(Self,Result);\r\n      if Not Result then\r\n        Exit;\r\n      end;\r\n    if not Filtered or (Filter='') then\r\n      Exit;\r\n    if (FFilterExpression=Nil) then\r\n      FFilterExpression:=CreateFilterExpression;\r\n    Result:=FFilterExpression.AsBoolean;\r\n  finally\r\n    RestoreState(DS);\r\n  end;\r\nend;\r\n\r\nfunction TBaseJSONDataSet.GetRecord(var Buffer: TDataRecord; GetMode: TGetMode; DoCheck: Boolean): TGetResult;\r\n\r\nVar\r\n  BkmIdx : Integer;\r\n  recordAccepted : Boolean;\r\nbegin\r\n  Result := grOK; // default\r\n  Repeat\r\n    recordAccepted:=True;\r\n    case GetMode of\r\n      gmNext: // move on\r\n        if fCurrent < fCurrentIndex.Count - 1 then\r\n          Inc (fCurrent)\r\n        else\r\n          Result := grEOF; // end of file\r\n      gmPrior: // move back\r\n        if fCurrent > 0 then\r\n          Dec (fCurrent)\r\n        else\r\n          Result := grBOF; // begin of file\r\n      gmCurrent: // check if empty\r\n        if (FCurrent<0) or (fCurrent >= fCurrentIndex.Count) then\r\n          Result := grEOF;\r\n    end;\r\n    if Result = grOK then // read the data\r\n      begin\r\n      BkmIdx:=FCurrentIndex.RecordIndex[FCurrent];\r\n      Buffer.Data:=FRows[bkmIdx];\r\n      Buffer.BookmarkFlag := bfCurrent;\r\n      Buffer.Bookmark:=BkmIdx;\r\n      GetCalcFields(Buffer);\r\n      if Filtered then\r\n        begin\r\n        FFilterRow:=Buffer.Data;\r\n        recordAccepted:=DoFilterRecord;\r\n        if Not RecordAccepted and (GetMode=gmCurrent) then\r\n          begin\r\n          // Transform to EOF.\r\n          RecordAccepted:=True;\r\n          Result:=grEOF;\r\n          end;\r\n        end;\r\n      end;\r\n  until recordAccepted;\r\nend;\r\n\r\nfunction TBaseJSONDataSet.GetRecordCount: Integer;\r\n  \r\nbegin\r\n  if Assigned(FCurrentIndex) then\r\n    Result:=FCurrentIndex.Count\r\n  else\r\n    Result:=0;\r\nend;\r\n\r\nfunction TBaseJSONDataSet.GetRecordSize: Word;\r\nbegin\r\n  Result := 0; // actual data without house-keeping\r\nend;\r\n\r\n\r\nprocedure TBaseJSONDataSet.InternalClose;\r\nbegin\r\n  // disconnect and destroy field objects\r\n  BindFields (False);\r\n  if DefaultFields then\r\n    DestroyFields;\r\n  FreeData;\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.InternalDelete;\r\n\r\nVar\r\n  I,RowIdx : Integer;\r\n  aIndex : TJSONIndex;\r\n\r\nbegin\r\n  RowIdx:=FCurrentIndex.Delete(FCurrent);\r\n  if (RowIdx<>-1) then\r\n    begin\r\n    For I:=0 to FIndexes.Count-1 do\r\n      begin\r\n      aIndex:=FIndexes[i].Index;\r\n      if aIndex<>FCurrentIndex then\r\n        aIndex.DeleteByRowIndex(RowIdx);\r\n      end;\r\n    // ...\r\n    // Add to array of deleted records.\r\n    if Not Assigned(FDeletedRows) then\r\n      FDeletedRows:=TJSArray.New(FRows[RowIdx])\r\n    else\r\n      FDeletedRows.Push(FRows[RowIdx]);\r\n    FRows[RowIdx]:=Undefined;\r\n    end;\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.InternalFirst;\r\nbegin\r\n  FCurrent := -1;\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.InternalGotoBookmark(ABookmark: TBookmark);\r\nbegin\r\n  if isNumber(ABookmark.Data) then\r\n    FCurrent:=FCurrentIndex.FindRecord(Integer(ABookmark.Data));\r\n//  Writeln('Fcurrent', FCurrent,' from ',ABookmark.Data);\r\nend;\r\n\r\n\r\nprocedure TBaseJSONDataSet.InternalInsert;\r\n\r\nVar\r\n  I : Integer;\r\n  D : TFieldDef;\r\n\r\nbegin\r\n//  Writeln('TBaseJSONDataSet.InternalInsert');\r\n  FEditRow:=ActiveBuffer.Data;\r\n  For I:=0 to FieldDefs.Count-1 do\r\n    begin\r\n    D:=FieldDefs[i];\r\n    FFieldMapper.SetJSONDataForField(D.Name,D.Index,FEditRow,Null);\r\n    end;\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.RemoveCalcFields(Buf : JSValue);\r\n\r\nVar\r\n  i : integer;\r\n\r\nbegin\r\n  For I:=0 to Fields.Count-1 do\r\n    if Fields[i].FieldKind in [fkCalculated,fkInternalCalc,fkLookup] then\r\n      FieldMapper.RemoveField(FIelds[i].FieldName,FIelds[i].Index,Buf);\r\n\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.InternalEdit;\r\n\r\nbegin\r\n//  Writeln('TBaseJSONDataSet.InternalEdit:  ');\r\n  FEditIdx:=FCurrentIndex.RecordIndex[FCurrent];\r\n  if not isUndefined(Rows[FEditIdx]) then\r\n    begin\r\n    FEditRow:=FieldMapper.CopyRow(Rows[FEditIdx]);\r\n\r\n    end\r\n  else\r\n    FEditRow:=FFieldMapper.CreateRow;\r\n//  Writeln('TBaseJSONDataSet.InternalEdit: ',FEditRow);\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.InternalCancel;\r\nbegin\r\n  FEditIdx:=-1;\r\n  FEditRow:=Nil;\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.InternalLast;\r\nbegin\r\n  // The first thing that will happen is a GetPrior Record.\r\n  FCurrent:=FCurrentIndex.Count;\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.InitDateTimeFields;\r\n\r\nbegin\r\n  // Do nothing\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.InternalOpen;\r\nbegin\r\n  FreeAndNil(FFieldMapper);\r\n  FFieldMapper:=CreateFieldMapper;\r\n  IF (FRows=Nil) then // opening from fielddefs ?\r\n    begin\r\n    FRows:=TJSArray.New;\r\n    OwnsData:=True;\r\n    end;\r\n  CreateIndexes;\r\n  InternalInitFieldDefs;\r\n  if DefaultFields then\r\n    CreateFields;\r\n  BindFields (True);\r\n  InitDateTimeFields;\r\n  if FActiveIndex<>'' then\r\n    ActivateIndex(True);\r\n  FCurrent := -1;\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.InternalPost;\r\n\r\nVar\r\n  I,NewIdx,NewCurrent,Idx : integer;\r\n  B : TBookmark;\r\n\r\nbegin\r\n  inherited;\r\n  NewCurrent:=-1;\r\n  GetBookMarkData(ActiveBuffer,B);\r\n  if (State=dsInsert) then\r\n    begin // Insert or Append\r\n    Idx:=FRows.push(FEditRow)-1;\r\n    if GetBookMarkFlag(ActiveBuffer)=bfEOF then\r\n      begin // Append\r\n      FDefaultIndex.Append(Idx);\r\n      for I:=0 to FIndexes.Count-1 do\r\n        if Assigned(FIndexes[i].Findex) then\r\n          begin\r\n          NewIdx:=FIndexes[i].Findex.Append(Idx);\r\n          if FIndexes[i].Findex=FCurrentIndex then\r\n            NewCurrent:=NewIdx;\r\n          end;\r\n      end\r\n    else  // insert\r\n      begin\r\n      FCurrent:=FDefaultIndex.Insert(FCurrent,Idx);\r\n      for I:=0 to FIndexes.Count-1 do\r\n\t    if Assigned(FIndexes[i].Findex) then\r\n          begin\r\n          NewIdx:=FIndexes[i].Findex.Append(Idx);\r\n          if FIndexes[i].Findex=FCurrentIndex then\r\n            NewCurrent:=NewIdx;\r\n          end;\r\n      end;\r\n    end\r\n  else\r\n    begin // Edit\r\n    if (FEditIdx=-1) then\r\n      DatabaseErrorFmt('Failed to retrieve record index for record %d',[FCurrent]);\r\n    // Update source record\r\n    Idx:=FEditIdx;\r\n    FRows[Idx]:=FEditRow;\r\n    FDefaultIndex.Update(Idx);\r\n    // Must replace this by updating all indexes.\r\n    // Note that this will change current index.\r\n    for I:=0 to FIndexes.Count-1 do\r\n      begin\r\n      // Determine old index.\r\n      NewIdx:=FCurrentIndex.Update(Idx);\r\n      if Assigned(FIndexes[i].Findex) then\r\n        if FIndexes[i].Findex=FCurrentIndex then\r\n          NewCurrent:=NewIdx;\r\n      end;\r\n    end;\r\n  // We have an active index, set current to that index.\r\n  if NewCurrent<>-1 then\r\n    FCurrent:=NewCurrent;\r\n  FEditIdx:=-1;\r\n  FEditRow:=Nil;\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.InternalSetToRecord(Buffer: TDataRecord);\r\nbegin\r\n  FCurrent:=FCurrentIndex.FindRecord(Integer(Buffer.Bookmark));\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.SetFilterText(const Value: string);\r\nbegin\r\n  inherited SetFilterText(Value);\r\n  FreeAndNil(FFilterExpression);\r\n  if Active then\r\n    Resync([rmCenter]);\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.SetFiltered(Value: Boolean);\r\nbegin\r\n  inherited SetFiltered(Value);\r\n  FreeAndNil(FFilterExpression);\r\n  if Active then\r\n    Resync([rmCenter]);\r\nend;\r\n\r\nfunction TBaseJSONDataSet.GetFieldClass(FieldType: TFieldType): TFieldClass;\r\nbegin\r\n  If UseDateTimeFormatFields and (FieldType in [ftDate,ftDateTime,ftTime]) then\r\n    case FieldType of\r\n      ftDate : Result:=TJSONDateField;\r\n      ftDateTime : Result:=TJSONDateTimeField;\r\n      ftTime : Result:=TJSONTimeField;\r\n    end\r\n  else\r\n    Result:=inherited GetFieldClass(FieldType);\r\nend;\r\n\r\nfunction TBaseJSONDataSet.GetApplyUpdateData(Buffer: TDataRecord): JSValue;\r\nbegin\r\n  Result:=FieldMapper.CopyRow(Buffer.Data);\r\n  RemoveCalcFields(Result);\r\nend;\r\n\r\nfunction TBaseJSONDataSet.IsCursorOpen: Boolean;\r\nbegin\r\n  Result := Assigned(FDefaultIndex);\r\nend;\r\n\r\nfunction TBaseJSONDataSet.BookmarkValid(ABookmark: TBookmark): Boolean;\r\nbegin\r\n  Result:=isNumber(ABookmark.Data);\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.SetBookmarkData(var Buffer: TDataRecord;  Data: TBookmark);\r\nbegin\r\n  Buffer.Bookmark:=Data.Data;\r\n//  Writeln('Set Bookmark from: ',Data.Data);\r\nend;\r\n\r\nfunction TBaseJSONDataSet.ConvertDateTimeField(S : String; F : TField) : TDateTime;\r\n\r\nVar\r\n  Ptrn : string;\r\n\r\nbegin\r\n  Result:=0;\r\n  Ptrn:='';\r\n  Case F.DataType of\r\n    ftDate : if F is TJSONDateField then\r\n               Ptrn:=(F as TJSONDateField).DateFormat;\r\n    ftTime : if F is TJSONTimeField then\r\n               Ptrn:=(F as TJSONTimeField).TimeFormat;\r\n    ftDateTime : if F is TJSONDateTimeField then\r\n               Ptrn:=(F as TJSONDateTimeField).DateTimeFormat;\r\n  end;\r\n  If (Ptrn='') then\r\n    Result := DefaultConvertToDateTime(F,S,True)\r\n  else\r\n    Result:=ScanDateTime(ptrn,S,1);\r\nend;\r\n\r\nfunction TBaseJSONDataSet.FormatDateTimeField(DT: TDateTime; F: TField\r\n  ): String;\r\n\r\nVar\r\n  Ptrn : string;\r\nbegin\r\n  Result:='';\r\n  Ptrn:='';\r\n  Case F.DataType of\r\n    ftDate : if F is TJSONDateField then\r\n                Ptrn:=TJSONDateField(F).DateFormat;\r\n    ftTime : if F is TJSONTimeField then\r\n                Ptrn:=TJSONTimeField(F).TimeFormat;\r\n    ftDateTime : if F is TJSONDateTimeField then\r\n                Ptrn:=TJSONDateTimeField(F).DateTimeFormat;\r\n  end;\r\n  If (Ptrn='') then\r\n    Result := DateTimeToRFC3339(DT)\r\n  else\r\n    Result:=FormatDateTime(ptrn,DT);\r\nend;\r\n\r\nfunction TBaseJSONDataSet.CreateFieldMapper: TJSONFieldMapper;\r\nbegin\r\n  if FRowType=rtJSONArray then\r\n    Result:=TJSONArrayFieldMapper.Create\r\n  else\r\n    Result:=TJSONObjectFieldMapper.Create;\r\nend;\r\n\r\nfunction TBaseJSONDataSet.GetFieldData(Field: TField; Buffer: TDatarecord): JSValue;\r\n\r\nvar\r\n  R : JSValue;\r\n\r\nbegin\r\n  if State in [dsCalcFields,dsInternalCalc] then\r\n    R:=CalcBuffer.data\r\n  else if (State=dsFilter) then\r\n    R:=FFilterRow\r\n  else if (FEditIdx=Buffer.Bookmark) then\r\n    begin\r\n    if State=dsOldValue then\r\n      R:=Buffer.data\r\n    else\r\n      R:=FEditRow;\r\n    end\r\n  else\r\n    begin\r\n    if State=dsOldValue then\r\n      Exit(Null)\r\n    else\r\n      R:=Buffer.data;\r\n    end;\r\n  Result:=FFieldMapper.GetJSONDataForField(Field,R);\r\n  if isUndefined(Result) then\r\n    Result:=Null;\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.SetFieldData(Field: TField; var Buffer: TDatarecord; AValue : JSValue);\r\n\r\nvar\r\n  R : JSValue;\r\n\r\nbegin\r\n  if State in [dsCalcFields,dsInternalCalc] then\r\n    R:=CalcBuffer.Data\r\n  else\r\n    R:=FEditRow;\r\n  FFieldMapper.SetJSONDataForField(Field,R,AValue);\r\n  \r\n  if not(State in [dsCalcFields, dsInternalCalc, dsFilter, dsNewValue]) then\r\n    DataEvent(deFieldChange, Field);\r\n\r\n  SetModified(True);\r\n//  FFieldMapper.SetJSONDataForField(Field,Buffer.Data,AValue);\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.SetBookmarkFlag(var Buffer: TDataRecord; Value: TBookmarkFlag);\r\n\r\nbegin\r\n  Buffer.BookmarkFlag := Value;\r\nend;\r\n\r\nprocedure TBaseJSONDataSet.Clone(Source: TBaseJSONDataSet);\r\nbegin\r\n  if Source.FieldDefs.Count > 0 then\r\n  begin\r\n    FieldDefs.Assign(Source.FieldDefs);\r\n    CreateFields;\r\n  end\r\n  else\r\n  begin\r\n    Source.InitFieldDefsFromfields;\r\n    FieldDefs.Assign(Source.FieldDefs);\r\n    CreateFields;\r\n  end;\r\n  Rows := Source.Rows;\r\nend;\r\n\r\nfunction TBaseJSONDataSet.CompareBookmarks(Bookmark1, Bookmark2: TBookmark): Longint;\r\n\r\nbegin\r\n  if isNumber(Bookmark1.Data) and isNumber(Bookmark2.Data) then\r\n    Result := Integer(Bookmark2.Data) - Integer(Bookmark1.Data)\r\n  else\r\n  begin\r\n    if isNumber(Bookmark1.Data) then\r\n      Result := -1\r\n    else\r\n    if isNumber(Bookmark2.Data) then\r\n      Result := 1\r\n    else\r\n      Result := 0;\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TBaseJSONDataSet.SetRecNo(Value: Integer);\r\nbegin\r\n  CheckBrowseMode;\r\n  DoBeforeScroll;\r\n  if (Value < 1) or (Value > FCurrentIndex.Count) then\r\n    raise EJSONDataset.CreateFmt('%s: SetRecNo: index %d out of range',[Name,Value]);\r\n  FCurrent := Value - 1;\r\n  Resync([]);\r\n  DoAfterScroll;\r\nend;\r\n\r\nconstructor TBaseJSONDataSet.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FownsData:=True;\r\n  UseDateTimeFormatFields:=False;\r\n  FEditIdx:=-1;\r\n  FIndexes:=CreateIndexDefs;\r\nend;\r\n\r\ndestructor TBaseJSONDataSet.Destroy;\r\nbegin\r\n  Close;\r\n  FreeAndNil(FFilterExpression);\r\n  FreeAndNil(FIndexes);\r\n  FEditIdx:=-1;\r\n  inherited;\r\nend;\r\n\r\nfunction TBaseJSONDataSet.CreateIndexDefs: TJSONIndexDefs;\r\n\r\nbegin\r\n  Result:=TJSONIndexDefs.Create(Self,Self,TJSONIndexDef);\r\nend;\r\n\r\n\r\nprocedure TBaseJSONDataSet.BuildIndexes;\r\n\r\nVar\r\n  I : integer;\r\n\r\nbegin\r\n  For I:=0 to FIndexes.Count-1 do\r\n    FIndexes[i].BuildIndex(Self);\r\nend;\r\n\r\nfunction TBaseJSONDataSet.RecordComparerClass : TRecordComparerClass;\r\n\r\nbegin\r\n  Result:=TRecordComparer;\r\nend;\r\n\r\nfunction TBaseJSONDataSet.LocateRecordIndex(const KeyFields: string; const KeyValues: JSValue; Options: TLocateOptions): Integer;\r\n\r\nVar\r\n  Comp : TRecordComparer;\r\n  RI,I : Integer;\r\n\r\nbegin\r\n  Result:=-1;\r\n  Comp:=RecordComparerClass.Create(Self,KeyFields,KeyValues,Options);\r\n  try\r\n    if loFromCurrent in Options then\r\n      I:=FCurrent\r\n    else\r\n      I:=0;\r\n    RI:=FCurrentIndex.GetRecordIndex(I);\r\n    While (Result=-1) and (RI<>-1) do\r\n      begin\r\n      if Comp.Compare(RI)=0 then\r\n        Result:=RI;\r\n      inc(I);\r\n      RI:=FCurrentIndex.GetRecordIndex(I);\r\n      end;\r\n  finally\r\n    Comp.Free;\r\n  end;\r\nend;\r\n\r\nfunction TBaseJSONDataSet.Locate(const KeyFields: string; const KeyValues: JSValue; Options: TLocateOptions): boolean;\r\n\r\nVar\r\n  I : Integer;\r\n  BM : TBookMark;\r\n\r\nbegin\r\n  Result:=Inherited;\r\n  I:=LocateRecordIndex(KeyFields,KeyValues,Options);\r\n  Result:=I<>-1;\r\n  if Result then\r\n    begin\r\n    // Construct bookmark.\r\n    // Bookmark is always the index in the FRows array.\r\n    BM.Data:=I;\r\n    BM.Flag:=bfCurrent;\r\n    GotoBookMark(BM);\r\n    end;\r\nend;\r\n\r\nfunction TBaseJSONDataSet.Lookup(const KeyFields: string; const KeyValues: JSValue; const ResultFields: string): JSValue;\r\n\r\nVar\r\n  RI,I : Integer;\r\n  l : TFPList;\r\n  Vals : TJSValueDynArray;\r\n\r\nbegin\r\n  Result:=Null;\r\n  l:=TFPList.Create;\r\n  try\r\n    GetFieldList(L,ResultFields);\r\n    Result:=inherited Lookup(KeyFields, KeyValues, ResultFields);\r\n    RI:=LocateRecordIndex(KeyFields,KeyValues,[]);\r\n    if RI<>-1 then\r\n      begin\r\n      SetLength(Vals,L.Count);\r\n      For I:=0 to L.Count-1 do\r\n        Vals[i]:=FFieldMapper.GetJSONDataForField(TField(L[I]),FRows[RI]);\r\n      if L.Count=1 then\r\n        Result:=Vals[i]\r\n      else\r\n        Result:=Vals;\r\n      end;\r\n  finally\r\n    L.Free;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit Bcl.Utils;\r\n\r\n{$I Bcl.inc}\r\n\r\ninterface\r\n\r\nuses\r\n  SysUtils, Classes,\r\n  {$IFNDEF PAS2JS}\r\n  Character;\r\n  {$ELSE}\r\n  JS,\r\n  WEBLib.Utils;\r\n  {$ENDIF}\r\n\r\ntype\r\n  TBase64EncodeTable = array[0..63] of Char;\r\n\r\n  TTimeZoneMode = (Error, Ignore, AsUTC, AsLocal);\r\n\r\n  TTimeZoneInfo = record\r\n    HourOff: Integer;\r\n    MinOff: Integer;\r\n    HasTimeZone: Boolean;\r\n    IsUTC: Boolean;\r\n    procedure Init;\r\n  end;\r\n\r\n  TBclUtils = class\r\n  public\r\n    class procedure InitFormatSettings(var FS: TFormatSettings); {$IFNDEF PAS2JS}static;{$ENDIF}\r\n  private\r\n    class function InternalISOToTime(const Text: string; out DateTime: TDateTime; out TimeZone: TTimeZoneInfo): boolean; overload; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n    class function AdjustTimeZone(var DateTime: TDateTime; const TimeZone: TTimeZoneInfo;\r\n      TimeZoneMode: TTimeZoneMode): Boolean; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n  public\r\n    class function DateTimeToISO(const Value: TDateTime; FullNotation: boolean): string; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n    class function TryISOToDateTime(const Value: string; out DateTime: TDateTime): boolean; overload; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n    class function TryISOToDateTime(const Value: string; out DateTime: TDateTime; TimeZoneMode: TTimeZoneMode): boolean; overload; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n    class function TryISOToDateTime(const Value: string; out DateTime: TDateTime; out TimeZone: TTimeZoneInfo; TimeZoneMode: TTimeZoneMode): boolean; overload; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n    class function TimeToISO(const Value: TTime): string; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n    class function TryISOToTime(const Value: string; out DateTime: TTime): boolean; overload; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n    class function TryISOToTime(const Value: string; out DateTime: TTime; TimeZoneMode: TTimeZoneMode): boolean; overload; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n    class function DateToISO(const Value: TDate): string; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n    class function TryISOToDate(const Text: string; out DateTime: TDate): boolean; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n    class function ISOToDate(const Value: string): TDate; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n    class function ISOToDateTime(const Value: string): TDateTime; overload; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n    class function ISOToDateTime(const Value: string; TimeZoneMode: TTimeZoneMode): TDateTime; overload; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n    class function ISOToTime(const Value: string): TTime; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n    class function DateTimeToUtcString(const Value: TDateTime): string; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n    class function EncodeBase64(const Input: TBytes): string; overload; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n    {$IFNDEF PAS2JS}\r\n    class function EncodeBase64(Data: Pointer; Len: Integer): string; overload; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n    {$ENDIF}\r\n    class function EncodeBase64Url(const Input: TBytes): string; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n    class function DecodeBase64(const Input: string): TBytes; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n    class function DecodeBase64Url(const Input: string): TBytes; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n\r\n    {$IFNDEF PAS2JS}\r\n    class function TryStringToGuid(const Value: string; out Guid: TGuid; WithBrackets: Boolean = false): boolean; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n    {$ENDIF}\r\n\r\n//    class function RandomNumber(Length: Integer): string;\r\n//    class function RandomString(Length: Integer): string;\r\n     class function RandomBytes(Length: Integer): TBytes;\r\n     class function RandomString(ByteLength: Integer = 32): string;\r\n     class function BytesToHex(Bytes: TBytes; AsUpperCase: Boolean = False): string;\r\n  public\r\n    {$IFNDEF PAS2JS}\r\n    class function IsLetter(C: Char): Boolean; {$IFNDEF PAS2JS}static; inline;{$ENDIF}\r\n    class function IsLower(C: Char): Boolean; {$IFNDEF PAS2JS}static; inline;{$ENDIF}\r\n    class function IsUpper(C: Char): Boolean; {$IFNDEF PAS2JS}static; inline;{$ENDIF}\r\n    {$ENDIF}\r\n    class function IsDigit(C: Char): Boolean; {$IFNDEF PAS2JS}static; inline;{$ENDIF}\r\n  public\r\n    class function CombineUrlFast(const AbsoluteUrl, RelativeUrl: string): string; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n  private\r\n    class function InternalEncodeBase64(const Input: TBytes;\r\n      EncodeTable: TBase64EncodeTable; Padding: Boolean): string; overload; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n\r\n    {$IFNDEF PAS2JS}\r\n    class function InternalEncodeBase64(Data: Pointer; Len: Integer;\r\n      EncodeTable: TBase64EncodeTable; Padding: Boolean): string; overload; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n    {$ENDIF}\r\n  public\r\n    class function PercentEncode(const S: string): string; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n    class function PercentDecode(const S: string): string; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n  end;\r\n\r\n{$IFDEF PAS2JS}\r\nprocedure FreeObj(var Obj);\r\n{$ELSE}\r\n  {$IFDEF DELPHISYDNEY_LVL}\r\nprocedure FreeObj(const [ref] Obj: TObject); inline;\r\n  {$ELSE}\r\nprocedure FreeObj(var Obj); inline;\r\n  {$ENDIF}\r\n{$ENDIF}\r\n\r\n{$IFNDEF PAS2JS}\r\nconst\r\n{$HINTS OFF}\r\n  BIZPlatforms = pidWin32 or pidWin64 or pidOSX32\r\n{$IF CompilerVersion >= 35}\r\n  or pidiOSSimulator32 or pidiOSSimulator64 or pidiOSDevice32 or pidiOSDevice64 or pidAndroidArm32 or pidAndroidArm64 or pidLinux64 or pidOSX64 or pidOSXArm64 or pidiOSSimulatorArm64\r\n{$ELSEIF CompilerVersion >= 33}\r\n  or pidiOSSimulator32 or pidiOSSimulator64 or pidiOSDevice32 or pidiOSDevice64 or pidAndroid32Arm or pidAndroid64Arm or pidLinux64 or pidOSX64\r\n{$ELSEIF CompilerVersion >= 32}\r\n  or pidiOSSimulator or pidiOSDevice32 or pidiOSDevice64 or pidAndroid or pidLinux64\r\n{$ELSEIF CompilerVersion >= 29}\r\n  or pidiOSSimulator or pidiOSDevice32 or pidiOSDevice64 or pidAndroid\r\n{$ELSEIF CompilerVersion >= 26}\r\n  or pidiOSSimulator or pidiOSDevice or pidAndroid\r\n{$ELSEIF CompilerVersion >= 25}\r\n  or pidiOSSimulator or pidiOSDevice\r\n{$IFEND};\r\n{$HINTS ON}\r\n{$ENDIF}\r\n\r\nvar\r\n  DefaultTimeZoneMode: TTimeZoneMode;\r\n  FullISOTimeNotation: Boolean;\r\n\r\nimplementation\r\n\r\nuses\r\n  {$IFNDEF PAS2JS}\r\n  Types, StrUtils,\r\n  {$ENDIF}\r\n  DateUtils;\r\n\r\nconst\r\n  SInvalidDateFormat = 'Value %s is not a valid datetime';\r\n\r\n\r\n{$IFDEF PAS2JS}\r\nprocedure FreeObj(var Obj);\r\n{$ELSE}\r\n  {$IFDEF DELPHISYDNEY_LVL}\r\nprocedure FreeObj(const [ref] Obj: TObject);\r\n  {$ELSE}\r\nprocedure FreeObj(var Obj);\r\n  {$ENDIF}\r\n{$ENDIF}\r\n{$IFDEF AUTOREFCOUNT}\r\nbegin\r\n  if (Pointer(Obj) <> nil) then TObject(Obj).DisposeOf;\r\n  TObject(Obj) := nil;\r\nend;\r\n{$ELSE}\r\nbegin\r\n  FreeAndNil(Obj);\r\nend;\r\n{$ENDIF}\r\n\r\n\r\n{ TBclUtils }\r\n\r\n//type\r\n//  TAcceptItem = record\r\n//    TypeName: string;\r\n//    SubType: string;\r\n//    Q: double;\r\n//  end;\r\n//\r\n//  TMatchWeight = record\r\n//    Value: integer;\r\n//    Q: double;\r\n//    TypeName: string;\r\n//  end;\r\n//\r\n//function ParseMediaItem(const Item: string): TAcceptItem;\r\n//var\r\n//  Parts: TStringDynArray;\r\n//  Param, ParamName, ParamValue: string;\r\n//  QValue: double;\r\n//  I: integer;\r\n//  P: integer;\r\n//  FullType: string;\r\n//begin\r\n//  Parts := SplitString(Trim(Item), ';');\r\n//\r\n//  // parse params\r\n//  Result.Q := 1;\r\n//  for I := 1 to Length(Parts) - 1 do\r\n//  begin\r\n//    Param := Parts[I];\r\n//    P := Pos('=', Param);\r\n//    if P > 0 then\r\n//    begin\r\n//      ParamName := Copy(Param, 1, P - 1);\r\n//      ParamValue := Copy(Param, P + 1, MaxInt);\r\n//      if ParamName = 'q' then\r\n//      begin\r\n//        // ignore other parameters for now\r\n//        if not TryStrToFloat(ParamValue, QValue) or (QValue < 0) or (QValue > 1) then\r\n//          QValue := 1;\r\n//        Result.Q := QValue;\r\n//      end;\r\n//    end;\r\n//  end;\r\n//\r\n//  if Length(Parts) > 0 then\r\n//    FullType := Parts[0]\r\n//  else\r\n//    FullType := '*/*';\r\n//  if FullType = '*' then\r\n//    FullType := '*/*';\r\n//\r\n//  P := Pos('/', FullType);\r\n//  if P > 0 then\r\n//  begin\r\n//    Result.TypeName := Copy(FullType, 1, P - 1);\r\n//    Result.SubType := Copy(FullType, P + 1, MaxInt);\r\n//  end\r\n//  else\r\n//  begin\r\n//    Result.TypeName := FullType;\r\n//    Result.SubType := '*';\r\n//  end;\r\n//end;\r\n//\r\n//function MediaItemWeight(const Item: string; Acceptables: TArray<TAcceptItem>): TMatchWeight;\r\n//var\r\n//  Target: TAcceptItem;\r\n//  Acceptable: TAcceptItem;\r\n//  EqualsType, EqualsSubType: boolean;\r\n//  TempWeight: integer;\r\n//begin\r\n//  Target := ParseMediaItem(Item);\r\n//  Result.Value := -1;\r\n//  Result.Q := 0;\r\n//\r\n//  for Acceptable in Acceptables do\r\n//  begin\r\n//    EqualsType := SameText(Target.TypeName, Acceptable.TypeName);\r\n//    EqualsSubType := SameText(Target.SubType, Acceptable.SubType);\r\n//    if (EqualsType or (Acceptable.TypeName = '*') or (Target.TypeName = '*'))\r\n//      and\r\n//      (EqualsSubType or (Acceptable.SubType = '*') or (Target.SubType = '*')) then\r\n//    begin\r\n//      TempWeight := 0;\r\n//      if EqualsType then\r\n//        TempWeight := TempWeight + 100;\r\n//      if EqualsSubType then\r\n//        TempWeight := TempWeight + 10;\r\n//      if (TempWeight > Result.Value) then\r\n//      begin\r\n//        Result.Value := TempWeight;\r\n//        Result.Q := Acceptable.Q;\r\n//      end;\r\n//    end;\r\n//  end;\r\n//end;\r\n//\r\n//function GetAcceptables(const Accept: string): TArray<TAcceptItem>;\r\n//var\r\n//  MediaItems: TStringDynArray;\r\n//  I: integer;\r\n//begin\r\n//  MediaItems := SplitString(Accept, ',');\r\n//  SetLength(Result, Length(MediaItems));\r\n//  for I := 0 to Length(MediaItems) - 1 do\r\n//    Result[I] := ParseMediaItem(MediaItems[I]);\r\n//end;\r\n//\r\n//function BestAcceptableMatch(Acceptables: TArray<TAcceptItem>; Values: TArray<string>): TMatchWeight;\r\n//var\r\n//  Weight: TMatchWeight;\r\n//  I: integer;\r\n//begin\r\n//  Result.Value := -1;\r\n//  Result.Q := 0;\r\n//  for I := 0 to Length(Values) - 1 do\r\n//  begin\r\n//    Weight := MediaItemWeight(Values[I], Acceptables);\r\n//    if Weight.Value = -1 then Continue;\r\n//\r\n//    if (Weight.Value > Result.Value) or\r\n//      ((Weight.Value = Result.Value) and (Weight.Q > Result.Q)) or\r\n//      (Result.Q = 0) then\r\n//    begin\r\n//      Result := Weight;\r\n//      Result.TypeName := Values[I];\r\n//    end;\r\n//  end;\r\n////  if Result.Q > 0 then\r\n////    Result := '';\r\n//end;\r\n//\r\n//class function TBclUtils.AcceptsType(const Accept: string; const Value: string): boolean;\r\n//begin\r\n//  Result := AcceptsType(Accept, TArray<string>.Create(Value)) <> '';\r\n//end;\r\n//\r\n//class function TBclUtils.AcceptsType(const Accept: string; const Values: TArray<string>): string;\r\n//var\r\n//  Acceptables: TArray<TAcceptItem>;\r\n//  Match: TMatchWeight;\r\n//begin\r\n//  if Length(Values) = 0 then Exit('');\r\n//  if Accept = '' then Exit(Values[0]);\r\n//\r\n//  Acceptables := GetAcceptables(Accept);\r\n//\r\n//  Match := BestAcceptableMatch(Acceptables, Values);\r\n//  if Match.Q > 0 then\r\n//    Result := Match.TypeName\r\n//  else\r\n//    Result := '';\r\n//end;\r\n//\r\n//class function TBclUtils.AcceptsEncoding(const Accept: string; const Value: string): boolean;\r\n//begin\r\n//  Result := AcceptsType(Accept, TArray<string>.Create(Value)) <> '';\r\n//end;\r\n//\r\n//class function TBclUtils.AcceptsEncoding(const Accept: string; const Values: TArray<string>): string;\r\n//var\r\n//  Acceptables: TArray<TAcceptItem>;\r\n//  Acceptable: TAcceptItem;\r\n//  HasIdentity: boolean;\r\n//  Value: string;\r\n//  Match: TMatchWeight;\r\n//begin\r\n//  if Length(Values) = 0 then Exit('');\r\n////  if Accept = '' then Exit(Values[0]); // we must consider identity\r\n//\r\n//  HasIdentity := false;\r\n//  Acceptables := GetAcceptables(Accept);\r\n//  for Acceptable in Acceptables do\r\n//  begin\r\n//    if not HasIdentity and SameText(Acceptable.TypeName, 'identity') then\r\n//      HasIdentity := True;\r\n//  end;\r\n//\r\n//  Match := BestAcceptableMatch(Acceptables, Values);\r\n//  if Match.Q > 0 then\r\n//    Exit(Match.TypeName);\r\n//\r\n//  // check for identity\r\n//  if not HasIdentity and not SameText(Match.TypeName, 'identity') then\r\n//    for Value in Values do\r\n//      if SameText(Value, 'identity') then\r\n//        Exit(Value);\r\n//end;\r\n//\r\n//class function TBclUtils.BasicAuthHeaderValue(const UserName, Password: string): string;\r\n//begin\r\n//  Result := 'Basic ' + EncodeBase64(TEncoding.UTF8.GetBytes(Format('%s:%s', [UserName, Password])));\r\n//end;\r\n//\r\n//class function TBclUtils.CombineUrlFast(const AbsoluteUrl,\r\n//  RelativeUrl: string): string;\r\n//begin\r\n//  // Do a faster url combination because we know RelativeUrl comes correct\r\n//  Result := AbsoluteUrl;\r\n//  if (Length(Result) > 0) and (Result[Length(Result)] <> '/') then\r\n//    Result := Result + '/';\r\n//  Result := Result + RelativeUrl;\r\n//end;\r\n\r\n//class function TBclUtils.DateTimeToDayTimeDuration(\r\n//  const Value: TTime): string;\r\n//var\r\n//  D, H, M, S, MS: Word;\r\n//begin\r\n//  D := Trunc(Value);\r\n//  DecodeTime(Value, H, M, S, MS);\r\n//  Result := 'P';\r\n//  if D > 0 then\r\n//    Result := Result + IntToStr(D) + 'D';\r\n//  if H > 0 then\r\n//    Result := Result + IntToStr(H) + 'H';\r\n//  if M > 0 then\r\n//    Result := Result + IntToStr(M) + 'M';\r\n//  if S > 0 then\r\n//    Result := Result + IntToStr(S) + 'S';\r\n//  if Result = 'P' then\r\n//    Result := 'P0D';\r\n//end;\r\n\r\n{$IFNDEF PAS2JS}\r\nclass function TBclUtils.IsDigit(C: Char): Boolean;\r\nbegin\r\n  {$IFDEF DELPHIXE4_LVL}\r\n  Result := C.IsDigit;\r\n  {$ELSE}\r\n  Result := Character.IsDigit(C);\r\n  {$ENDIF}\r\nend;\r\n{$ELSE}\r\nclass function TBclUtils.IsDigit(C: Char): Boolean;\r\nbegin\r\n  Result := (C >= '0') and (C <= '9');\r\nend;\r\n{$ENDIF}\r\n\r\nclass function TBclUtils.AdjustTimeZone(var DateTime: TDateTime; const TimeZone: TTimeZoneInfo;\r\n  TimeZoneMode: TTimeZoneMode): Boolean;\r\n\r\n  function AdjustTime(Value: TDateTime; HourOff, MinOff: Integer): TDateTime;\r\n  var\r\n    Delta: TDateTime;\r\n  begin\r\n    Result := Value;\r\n    Delta := EncodeTime(Abs(HourOff), Abs(MinOff), 0, 0);\r\n    if ((HourOff * MinsPerHour) + MinOff) > 0 then\r\n      Result := Result - Delta\r\n    else\r\n      Result := Result + Delta;\r\n  end;\r\n\r\nbegin\r\n  case TimeZoneMode of\r\n    TTimeZoneMode.Error:\r\n      // do not accept timezone in the format, otherwise, return local date time\r\n      if TimeZone.HasTimeZone then Exit(False);\r\n\r\n    TTimeZoneMode.Ignore: ;\r\n      // Return local time ignoring time zone\r\n\r\n    TTimeZoneMode.AsUTC:\r\n      if TimeZone.HasTimeZone then\r\n        DateTime := AdjustTime(DateTime, TimeZone.HourOff, TimeZone.MinOff)\r\n      else\r\n      begin\r\n        {$IFDEF PAS2JS}\r\n        DateTime := IncMinute(DateTime, DateTimeToJSDate(DateTime).getTimezoneOffset);\r\n        {$ELSE}\r\n        DateTime := TTimeZone.Local.ToUniversalTime(DateTime);\r\n        {$ENDIF}\r\n      end;\r\n\r\n    TTimeZoneMode.AsLocal:\r\n      if TimeZone.HasTimeZone then\r\n      begin\r\n        DateTime := AdjustTime(DateTime, TimeZone.HourOff, TimeZone.MinOff);\r\n        {$IFDEF PAS2JS}\r\n        DateTime := IncMinute(DateTime, -DateTimeToJSDate(DateTime).getTimezoneOffset);\r\n        {$ELSE}\r\n        DateTime := TTimeZone.Local.ToLocalTime(DateTime);\r\n        {$ENDIF}\r\n      end;\r\n    end;\r\n  Result := True;\r\nend;\r\n\r\nclass function TBclUtils.BytesToHex(Bytes: TBytes; AsUpperCase: Boolean = False): string;\r\ntype\r\n  THexChar = array[0..15] of Char;\r\nconst\r\n  HexChars: array[Boolean] of THexChar = (\r\n    '0123456789abcdef',\r\n    '0123456789ABCDEF'\r\n  );\r\nvar\r\n  ByteIndex: Integer;\r\n  StrIndex: Integer;\r\n  Len: Integer;\r\nbegin\r\n  Len := Length(Bytes);\r\n  SetLength(Result, Len * 2);\r\n  StrIndex := 1;\r\n  for ByteIndex := 0 to Len - 1 do\r\n  begin\r\n    Result[StrIndex] := HexChars[AsUpperCase][Bytes[ByteIndex] shr 4];\r\n    Result[StrIndex + 1] := HexChars[AsUpperCase][Bytes[ByteIndex] and $0f];\r\n    Inc(StrIndex, 2);\r\n  end;\r\nend;\r\n\r\nclass function TBclUtils.CombineUrlFast(const AbsoluteUrl,\r\n  RelativeUrl: string): string;\r\nbegin\r\n  // Do a faster url combination because we know RelativeUrl comes correct\r\n  Result := AbsoluteUrl;\r\n  if (Length(Result) > 0) and (Result[Length(Result)] <> '/') then\r\n    Result := Result + '/';\r\n  Result := Result + RelativeUrl;\r\nend;\r\n\r\nclass function TBclUtils.DateTimeToISO(const Value: TDateTime; FullNotation: boolean): string;\r\nvar\r\n  Year, Month, Day, Hour, Minute, Second, MS: Word;\r\nbegin\r\n  if not FullNotation and (Value = DateOf(Value)) then\r\n    Result := DateToISO(Value)\r\n  else\r\n  begin\r\n    DecodeDateTime(Value, Year, Month, Day, Hour, Minute, Second, MS);\r\n    if FullNotation or (DateOf(Value) <> 0) then\r\n      Result := Format('%sT%s', [DateToISO(Value), TimeToISO(Value)])\r\n    else\r\n      Result := Format('%s', [TimeToISO(Value)])\r\n  end;\r\nend;\r\n\r\nclass function TBclUtils.DateTimeToUtcString(const Value: TDateTime): string;\r\nconst\r\n  DayNames: array[1..7] of string = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');\r\n  MonthNames: array[1..12] of string = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul',\r\n    'Aug', 'Sep', 'Oct', 'Nov', 'Dec');\r\nvar\r\n  Y, M, D: Word;\r\n  H, Mn, S, MS: Word;\r\nbegin\r\n  DecodeDate(Value, Y, M, D);\r\n  DecodeTime(Value, H, Mn, S, MS);\r\n  Result := Format('%s, %.2d %s %.4d %.2d:%.2d:%.2d GMT',\r\n    [DayNames[DayOfWeek(Value)], D, MonthNames[M], Y, H, Mn, S]\r\n  );\r\nend;\r\n\r\n//class function TBclUtils.DateTimeToJson(const Value: TDateTime): string;\r\n//begin\r\n//  Result := Format('\\/Date(%d)\\/', [DateTimeToUnix(Value) * 1000]);\r\n//end;\r\n//\r\n//class function TBclUtils.DateTimeToUnix(const Value: TDateTime): Int64;\r\n//begin\r\n//  Result := Round((Value - UnixDateDelta) * SecsPerDay);\r\n//end;\r\n\r\ntype\r\n  TPacket = packed record\r\n    a: array[0..3] of Byte;\r\n  end;\r\n\r\nclass function TBclUtils.DecodeBase64(const Input: string): TBytes;\r\nvar\r\n  StrLen: Integer;\r\nconst\r\n  DecodeTable: array[#0..#127] of Integer = (\r\n    61, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64,\r\n    64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64,\r\n    64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 62, 64, 62, 64, 63,\r\n    52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 64, 64, 64, 64, 64, 64,\r\n    64,  0,  1,  2,  3,  4,  5,  6,  7,  8,  9, 10, 11, 12, 13, 14,\r\n    15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 64, 64, 64, 64, 63,\r\n    64, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40,\r\n    41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 64, 64, 64, 64, 64);\r\n\r\n  function DecodePacket(Idx: Integer; var nChars: Integer): TPacket;\r\n  begin\r\n    Result.a[0] := (DecodeTable[Input[Idx + 0]] shl 2) or\r\n      (DecodeTable[Input[Idx + 1]] shr 4);\r\n    NChars := 1;\r\n    if (Idx + 2 <= StrLen) and (Input[Idx + 2] <> '=') then\r\n    begin\r\n      Inc(NChars);\r\n      Result.a[1] := ((DecodeTable[Input[Idx + 1]] shl 4) or (DecodeTable[Input[Idx + 2]] shr 2)) and $FF;\r\n    end;\r\n    if (Idx + 3 <= StrLen) and (Input[Idx + 3] <> '=') then\r\n    begin\r\n      Inc(NChars);\r\n      Result.a[2] := ((DecodeTable[Input[Idx + 2]] shl 6) or DecodeTable[Input[Idx + 3]]) and $FF;\r\n    end;\r\n  end;\r\n\r\nvar\r\n  I, J, K: Integer;\r\n  Packet: TPacket;\r\n  Len: integer;\r\nbegin\r\n  SetLength(Result, ((Length(Input) + 2) div 4) * 3);\r\n  StrLen := Length(Input);\r\n  Len := 0;\r\n  for I := 1 to (StrLen + 2) div 4 do\r\n  begin\r\n    Packet := DecodePacket((I - 1) * 4 + 1, J);\r\n    K := 0;\r\n    while J > 0 do\r\n    begin\r\n      Result[Len] := Packet.a[K];\r\n      Inc(Len);\r\n      Inc(K);\r\n      Dec(J);\r\n    end;\r\n  end;\r\n  SetLength(Result, Len);\r\nend;\r\n\r\nclass function TBclUtils.DecodeBase64Url(const Input: string): TBytes;\r\nbegin\r\n  Result := DecodeBase64(Input);\r\nend;\r\n\r\nclass function TBclUtils.EncodeBase64(const Input: TBytes): string;\r\nconst\r\n  EncodeTable: TBase64EncodeTable =\r\n    'ABCDEFGHIJKLMNOPQRSTUVWXYZ' +\r\n    'abcdefghijklmnopqrstuvwxyz' +\r\n    '0123456789+/';\r\nbegin\r\n  Result := InternalEncodeBase64(Input, EncodeTable, True);\r\nend;\r\n\r\n{$IFNDEF PAS2JS}\r\nclass function TBclUtils.EncodeBase64(Data: Pointer; Len: Integer): string;\r\nconst\r\n  EncodeTable: TBase64EncodeTable =\r\n    'ABCDEFGHIJKLMNOPQRSTUVWXYZ' +\r\n    'abcdefghijklmnopqrstuvwxyz' +\r\n    '0123456789+/';\r\nbegin\r\n  Result := InternalEncodeBase64(Data, Len, EncodeTable, True);\r\nend;\r\n{$ENDIF}\r\n\r\nclass function TBclUtils.EncodeBase64Url(const Input: TBytes): string;\r\nconst\r\n  EncodeTable: TBase64EncodeTable =\r\n    'ABCDEFGHIJKLMNOPQRSTUVWXYZ' +\r\n    'abcdefghijklmnopqrstuvwxyz' +\r\n    '0123456789-_';\r\nbegin\r\n  Result := InternalEncodeBase64(Input, EncodeTable, False);\r\nend;\r\n\r\nclass function TBclUtils.InternalEncodeBase64(const Input: TBytes;\r\n  EncodeTable: TBase64EncodeTable; Padding: Boolean): string;\r\nvar\r\n  Output: string;\r\n\r\n  procedure EncodePacket(const Packet: TPacket; NumChars: Integer; Idx: Integer);\r\n  begin\r\n    Output[Idx + 0] := EnCodeTable[Packet.a[0] shr 2];\r\n    Output[Idx + 1] := EnCodeTable[((Packet.a[0] shl 4) or (Packet.a[1] shr 4)) and $0000003f];\r\n\r\n    if NumChars < 2 then\r\n      Output[Idx + 2] := '='\r\n    else\r\n      Output[Idx + 2] := EnCodeTable[((Packet.a[1] shl 2) or (Packet.a[2] shr 6)) and $0000003f];\r\n\r\n    if NumChars < 3 then\r\n      Output[Idx + 3] := '='\r\n    else\r\n      Output[Idx + 3] := EnCodeTable[Packet.a[2] and $0000003f];\r\n  end;\r\n\r\nvar\r\n  I, K, J: Integer;\r\n  Packet: TPacket;\r\nbegin\r\n  Output := '';\r\n  I := (Length(Input) div 3) * 4;\r\n  if Length(Input) mod 3 > 0 then Inc(I, 4);\r\n  SetLength(Output, I);\r\n  J := 1;\r\n  for I := 1 to Length(Input) div 3 do\r\n  begin\r\n    Packet.a[0] := Input[(I - 1) * 3];\r\n    Packet.a[1] := Input[(I - 1) * 3 + 1];\r\n    Packet.a[2] := Input[(I - 1) * 3 + 2];\r\n    Packet.a[3] := 0;\r\n    EncodePacket(Packet, 3, J);\r\n    Inc(J, 4);\r\n  end;\r\n  K := 0;\r\n\r\n  Packet.a[0] := 0;\r\n  Packet.a[1] := 0;\r\n  Packet.a[2] := 0;\r\n  Packet.a[3] := 0;\r\n\r\n  for I := Length(Input) - (Length(Input) mod 3) + 1 to Length(Input) do\r\n  begin\r\n    Packet.a[K] := Byte(Input[I - 1]);\r\n    Inc(K);\r\n    if I = Length(Input) then\r\n      EncodePacket(Packet, Length(Input) mod 3, J);\r\n  end;\r\n\r\n  if not Padding and (Length(Output) >= 2) then\r\n  begin\r\n    if Output[Length(Output) - 1] = '=' then\r\n      SetLength(Output, Length(Output) - 2)\r\n    else\r\n    if Output[Length(Output)] = '=' then\r\n      SetLength(Output, Length(Output) - 1);\r\n  end;\r\n  Result := Output;\r\nend;\r\n\r\nclass function TBclUtils.InternalISOToTime(const Text: string; //FI:C103\r\n  out DateTime: TDateTime; out TimeZone: TTimeZoneInfo): boolean;\r\nvar\r\n  TextLen: Integer;\r\n\r\n  function ExtractDigit(var CharIndex: Integer; out Value: Integer): Boolean;\r\n  begin\r\n    Result := (CharIndex <= TextLen) and IsDigit(Text[CharIndex]);\r\n    if Result then\r\n    begin\r\n      Value := Ord(Text[CharIndex]) - Ord('0');\r\n      Inc(CharIndex);\r\n    end;\r\n  end;\r\n\r\n  function ExtractDoubleDigit(var CharIndex: Integer; out Value: Integer): Boolean;\r\n  var\r\n    N10, N: Integer;\r\n  begin\r\n    Result := ExtractDigit(CharIndex, N10) and ExtractDigit(CharIndex, N);\r\n    if Result then\r\n      Value := N10 * 10 + N;\r\n  end;\r\n\r\n  function ExtractChar(var CharIndex: Integer; C: Char): Boolean;\r\n  begin\r\n    Result := (CharIndex <= TextLen) and (Text[CharIndex] = C);\r\n    if Result then\r\n      Inc(CharIndex);\r\n  end;\r\n\r\n  function ExtractHourMinOffset(var CharIndex: Integer; out HourOff, MinOff: Integer): Boolean;\r\n  begin\r\n    if not ExtractDoubleDigit(CharIndex, HourOff) then Exit(False);\r\n    ExtractChar(CharIndex, ':');\r\n    if not ExtractDoubleDigit(CharIndex, MinOff) then Exit(False);\r\n    Result := (CharIndex > TextLen);\r\n  end;\r\n\r\n  function ExtractTimeZone(var CharIndex: Integer; out HourOff, MinOff: Integer): Boolean;\r\n  begin\r\n    HourOff := 0;\r\n    MinOff := 0;\r\n    if ExtractChar(CharIndex, 'Z') then\r\n    begin\r\n      Result := CharIndex > TextLen;\r\n    end\r\n    else\r\n    if ExtractChar(CharIndex, '+') then\r\n    begin\r\n      Result := ExtractHourMinOffset(CharIndex, HourOff, MinOff);\r\n    end\r\n    else\r\n    if ExtractChar(CharIndex, '-') then\r\n    begin\r\n      Result := ExtractHourMinOffset(CharIndex, HourOff, MinOff);\r\n      HourOff := -HourOff;\r\n      MinOff := -MinOff;\r\n    end\r\n    else\r\n      Result := False;\r\n  end;\r\n\r\n  function IsFinal(var CharIndex: Integer; out HasTimeZone: Boolean; out IsUTC: Boolean): Boolean;\r\n  var\r\n    C: Char;\r\n  begin\r\n    if CharIndex <= TextLen then\r\n      C := Text[CharIndex]\r\n    else\r\n      C := #0;\r\n    Result := (C = #0) or (C = 'Z') or (C = '+') or (C = '-');\r\n    HasTimeZone := C <> #0;\r\n    IsUTC := C = 'Z';\r\n  end;\r\n\r\nvar\r\n  Hour, Min, Sec, MSec, MsecDigit: Integer;\r\n  HourOff, MinOff: Integer;\r\n  HasTimeChar: Boolean;\r\n  HasTimeZone: Boolean;\r\n  IsUTC: Boolean;\r\n  CharIndex: Integer;\r\n  Mul: Integer;\r\nbegin\r\n  DateTime := 0;\r\n  if Text = '' then\r\n  begin\r\n    Result := True;\r\n  end else\r\n  begin\r\n    Hour := 0;\r\n    Min := 0;\r\n    Sec := 0;\r\n    MSec := 0;\r\n    HourOff := 0;\r\n    MinOff := 0;\r\n    HasTimeZone := False;\r\n    IsUTC := False;\r\n\r\n    TextLen := Length(Text);\r\n    CharIndex := 1;\r\n    if not ExtractDoubleDigit(CharIndex, Hour) then Exit(False);\r\n    HasTimeChar := ExtractChar(CharIndex, ':');\r\n    if not ExtractDoubleDigit(CharIndex, Min) then Exit(False);\r\n    if not IsFinal(CharIndex, HasTimeZone, IsUTC) then\r\n    begin\r\n      if HasTimeChar and not ExtractChar(CharIndex, ':') then Exit(False);\r\n      if not ExtractDoubleDigit(CharIndex, Sec) then Exit(False);\r\n      if not IsFinal(CharIndex, HasTimeZone, IsUTC) then\r\n      begin\r\n        // extract miliseconds\r\n        if not ExtractChar(CharIndex, '.') then\r\n          Exit(False);\r\n        Mul := 100;\r\n        repeat\r\n          if not ExtractDigit(CharIndex, MsecDigit) then Exit(False);\r\n          Msec := Msec + MsecDigit * Mul;\r\n          Mul := Mul div 10;\r\n        until IsFinal(CharIndex, HasTimeZone, IsUTC);\r\n      end;\r\n    end;\r\n    if HasTimeZone then\r\n    begin\r\n      if not ExtractTimeZone(CharIndex, HourOff, MinOff) then Exit(False);\r\n    end;\r\n\r\n    Result := TryEncodeTime(Hour, Min, Sec, MSec, DateTime);\r\n    if Result then\r\n    begin\r\n      TimeZone.HourOff := HourOff;\r\n      TimeZone.MinOff := MinOff;\r\n      TimeZone.HasTimeZone := HasTimeZone;\r\n      TimeZone.IsUTC := IsUTC;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass procedure TBclUtils.InitFormatSettings(var FS: TFormatSettings);\r\nbegin\r\n{$IF Defined(PAS2JS)}\r\n  FS := TFormatSettings.Create;\r\n{$ELSEIF Defined(DELPHIXE2_LVL)}\r\n  FS := System.SysUtils.FormatSettings;\r\n{$ELSEIF Defined(DELPHIXE_LVL)}\r\n  FS := TFormatSettings.Create;\r\n{$ELSE}\r\n  GetLocaleFormatSettings(0, FS);\r\n{$IFEND}\r\nend;\r\n\r\n{$IFNDEF PAS2JS}\r\nclass function TBclUtils.IsLetter(C: Char): Boolean;\r\nbegin\r\n  {$IFDEF DELPHIXE4_LVL}\r\n  Result := C.IsLetter;\r\n  {$ELSE}\r\n  Result := Character.IsLetter(C);\r\n  {$ENDIF}\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFNDEF PAS2JS}\r\nclass function TBclUtils.IsLower(C: Char): Boolean;\r\nbegin\r\n  {$IFDEF DELPHIXE4_LVL}\r\n  Result := C.IsLower;\r\n  {$ELSE}\r\n  Result := Character.IsLower(C);\r\n  {$ENDIF}\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFNDEF PAS2JS}\r\nclass function TBclUtils.IsUpper(C: Char): Boolean;\r\nbegin\r\n  {$IFDEF DELPHIXE4_LVL}\r\n  Result := C.IsUpper;\r\n  {$ELSE}\r\n  Result := Character.IsUpper(C);\r\n  {$ENDIF}\r\nend;\r\n{$ENDIF}\r\n\r\nclass function TBclUtils.PercentDecode(const S: string): string;\r\n{$IFDEF PAS2JS}\r\nbegin\r\n  Result := decodeURIComponent(S);\r\nend;\r\n{$ELSE}\r\n\r\n  function IsHexa(C: Char): boolean;\r\n  begin\r\n    Result := ((C >= '0') and (C <= '9'))\r\n      or ((C >= 'a') and (C <= 'f'))\r\n      or ((C >= 'A') and (C <= 'F'));\r\n  end;\r\n\r\nvar\r\n  {$IFDEF PAS2JS}\r\n  B: string;\r\n  {$ELSE}\r\n  B: TBytes;\r\n  {$ENDIF}\r\n  L: integer;\r\n  I: integer;\r\nbegin\r\n  SetLength(B, Length(S));\r\n  L := 1;\r\n  I := 0;\r\n  while L <= Length(S) do\r\n  begin\r\n    if (S[L] = '%') and (L + 2 <= Length(S)) and IsHexa(S[L + 1]) and IsHexa(S[L + 2]) then\r\n    begin\r\n      B[I] := StrToInt('$' + S[L + 1] + S[L + 2]);\r\n      Inc(L, 3);\r\n    end\r\n    else\r\n    begin\r\n      B[I] := Ord(S[L]);\r\n      Inc(L);\r\n    end;\r\n    Inc(I);\r\n  end;\r\n  SetLength(B, I);\r\n{$IFDEF PAS2JS}\r\n  Result := B;\r\n{$ELSE}\r\n  Result := TEncoding.UTF8.GetString(B);\r\n{$ENDIF}\r\nend;\r\n{$ENDIF}\r\n\r\nclass function TBclUtils.PercentEncode(const S: string): string;\r\n{$IFDEF PAS2JS}\r\nbegin\r\n  Result := encodeURIComponent(S);\r\nend;\r\n{$ELSE}\r\nvar\r\n  {$IFDEF PAS2JS}\r\n  Bytes: string;\r\n  {$ELSE}\r\n  Bytes: TBytes;\r\n  {$ENDIF}\r\n  B: Byte;\r\n  I: integer;\r\n  L: integer;\r\n  H: string;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Bytes := S;\r\n  {$ELSE}\r\n  Bytes := TEncoding.UTF8.GetBytes(S);\r\n  {$ENDIF}\r\n\r\n  SetLength(Result, Length(Bytes) * 3); // final string will be maximum 3 times the original bytes\r\n  L := 1;\r\n  {$IFDEF PAS2JS}\r\n  for I := 1 to Length(Bytes) do\r\n  begin\r\n    B := Ord(Bytes[I]);\r\n  {$ELSE}\r\n  for I := 0 to Length(Bytes) - 1 do\r\n  begin\r\n    B := Bytes[I];\r\n  {$ENDIF}\r\n\r\n    // Check if is unreserved char\r\n    if ((B >= 65) and (B <= 90)) // A..Z\r\n      or ((B >= 97) and (B <= 122)) // a..z\r\n      or ((B >= 48) and (B <= 57)) //0..9\r\n      or (B in [45, 46, 95, 126]) // - . _ ~\r\n      or (B in [33, 39, 40, 41, 42]) then // ! ' ( ) *\r\n    begin\r\n      Result[L] := Chr(B);\r\n      Inc(L);\r\n    end else\r\n    begin\r\n      Result[L] := '%';\r\n      H := IntToHex(B, 2);\r\n      Result[L + 1] := H[1];\r\n      Result[L + 2] := H[2];\r\n      Inc(L, 3);\r\n    end;\r\n  end;\r\n  SetLength(Result, L - 1);\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF PAS2JS}\r\nclass function TBclUtils.RandomBytes(Length: Integer): TBytes; assembler;\r\nasm\r\n  var crypto = (typeof window !== 'undefined') ? (window.crypto || window.msCrypto) : null;\r\n  return crypto.getRandomValues(new Uint8Array(Length));\r\nend;\r\n{$ELSE}\r\nclass function TBclUtils.RandomBytes(Length: Integer): TBytes;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  // TODO: Use better cryptographic random number generator\r\n  SetLength(Result, Length);\r\n  for I := 0 to Length - 1 do\r\n    Result[I] := Random(256);\r\nend;\r\n{$ENDIF}\r\n\r\nclass function TBclUtils.RandomString(ByteLength: Integer): string;\r\nbegin\r\n  Result := EncodeBase64Url(RandomBytes(ByteLength));\r\nend;\r\n\r\n//class function TBclUtils.RandomNumber(Length: Integer): string;\r\n//const\r\n//  cNumbers = '0123456789';\r\n//var\r\n//  I: integer;\r\n//begin\r\n//  SetLength(Result, Length);\r\n//  for I := 1 to Length do\r\n//    Result[I] := cNumbers[Random(10) + 1];\r\n//end;\r\n\r\n//class procedure TBclUtils.GetNameAndAnnotation(const Text: string; out AName,\r\n//  AAnnotation: string);\r\n//var\r\n//  P: integer;\r\n//begin\r\n//  P := Pos('@', Text);\r\n//  if P = 0 then\r\n//  begin\r\n//    AName := Text;\r\n//    AAnnotation := '';\r\n//  end else\r\n//  begin\r\n//    AName := Copy(Text, 1, P - 1);\r\n//    AAnnotation := Copy(Text, P + 1, MaxInt);\r\n//  end;\r\n//end;\r\n//\r\n//class function TBclUtils.GetQueryParams(const Query: string): TArray<TPair<string, string>>;\r\n//var\r\n//  QueryItem: string;\r\n//  QueryItems: TStringDynArray;\r\n//  I, P: integer;\r\n//  Name, Value: string;\r\n//begin\r\n//  if (Length(Query) > 0) and (Query[1] = '?') then\r\n//    QueryItems := SplitString(Copy(Query, 2, MaxInt), '&')\r\n//  else\r\n//    QueryItems := SplitString(Query, '&');\r\n//  SetLength(Result, Length(QueryItems));\r\n//  for I := 0 to Length(QueryItems) - 1 do\r\n//  begin\r\n//    QueryItem := QueryItems[I];\r\n//    P := Pos('=', QueryItem);\r\n//    Name := Copy(QueryItem, 1, P - 1);\r\n//    Value := Copy(QueryItem, P + 1, MaxInt);\r\n//    Name := TBclUtils.PercentDecode(Name);\r\n//    Value := TBclUtils.PercentDecode(Value);\r\n//    Result[I].Key := Name;\r\n//    Result[I].Value := Value;\r\n//  end;\r\n//end;\r\n//\r\n//class function TBclUtils.GetStatusReason(const StatusCode: integer): string;\r\n//begin\r\n//  case StatusCode of\r\n//    100: Result := 'Continue';\r\n//    101: Result := 'Switching Protocols';\r\n//    102: Result := 'Processing';\r\n//    200: Result := 'OK';\r\n//    201: Result := 'Created';\r\n//    202: Result := 'Accepted';\r\n//    203: Result := 'Non-Authoritative Information';\r\n//    204: Result := 'No Content';\r\n//    205: Result := 'Reset Content';\r\n//    206: Result := 'Partial Content';\r\n//    207: Result := 'Multi-Status';\r\n//    208: Result := 'Already Reported';\r\n//    300: Result := 'Multiple Choices';\r\n//    301: Result := 'Moved Permanently';\r\n//    302: Result := 'Found';\r\n//    303: Result := 'See Other';\r\n//    304: Result := 'Not Modified';\r\n//    305: Result := 'Use Proxy';\r\n//    306: Result := 'Switch Proxy';\r\n//    307: Result := 'Temporary Redirect';\r\n//    400: Result := 'Bad Request';\r\n//    401: Result := 'Unauthorized';\r\n//    402: Result := 'Payment Required';\r\n//    403: Result := 'Forbidden';\r\n//    404: Result := 'Not Found';\r\n//    405: Result := 'Method Not Allowed';\r\n//    406: Result := 'Not Acceptable';\r\n//    407: Result := 'Proxy Authentication Required';\r\n//    408: Result := 'Request Timeout';\r\n//    409: Result := 'Conflict';\r\n//    410: Result := 'Gone';\r\n//    411: Result := 'Length Required';\r\n//    412: Result := 'Precondition Failed';\r\n//    413: Result := 'Request Entity Too Large';\r\n//    414: Result := 'Request-URI Too Long';\r\n//    415: Result := 'Unsupported Media Type';\r\n//    416: Result := 'Request Range Not Satisfiable';\r\n//    417: Result := 'Expectation Failed';\r\n//    422: Result := 'Unprocessable Entity';\r\n//    423: Result := 'Locked';\r\n//    424: Result := 'Failed Dependency';\r\n//    500: Result := 'Internal Server Error';\r\n//    501: Result := 'Not Implemented';\r\n//    502: Result := 'Bad Gateway';\r\n//    503: Result := 'Service Unavailable';\r\n//    504: Result := 'Gateway Timeout';\r\n//    505: Result := 'Http Version Not Supported';\r\n//    506: Result := 'Variant Also Negotiates';\r\n//    507: Result := 'Insufficient Storage';\r\n//  else\r\n//    Result := '';\r\n//  end;\r\n//end;\r\n//\r\n//class function TBclUtils.ISOToTime(const Value: string): TTime;\r\n//begin\r\n//  if Value = '' then Exit(0);\r\n//  Result := StrToDateTime(Value, FISODateSettings);\r\n//end;\r\n\r\nclass function TBclUtils.TimeToISO(const Value: TTime): string;\r\nvar\r\n  Year, Month, Day, Hour, Minute, Second, MS: Word;\r\nbegin\r\n  DecodeDateTime(Value, Year, Month, Day, Hour, Minute, Second, MS);\r\n  if (MS <> 0) or FullISOTimeNotation then\r\n    Result := Format('%.2d:%.2d:%.2d.%.3d', [Hour, Minute, Second, MS])\r\n  else\r\n  if Second <> 0 then\r\n    Result := Format('%.2d:%.2d:%.2d', [Hour, Minute, Second])\r\n  else\r\n    Result := Format('%.2d:%.2d', [Hour, Minute]);\r\nend;\r\n\r\nclass function TBclUtils.TryISOToTime(const Value: string; out DateTime: TTime;\r\n  TimeZoneMode: TTimeZoneMode): boolean;\r\nvar\r\n  TimeZone: TTimeZoneInfo;\r\n  TempDate: TDateTime;\r\nbegin\r\n  Result := InternalISOToTime(Value, TempDate, TimeZone);\r\n  if Result then\r\n  begin\r\n    TempDate := Date + TempDate;\r\n    Result := AdjustTimeZone(TempDate, TimeZone, TimeZoneMode);\r\n    TempDate := Frac(TempDate);\r\n  end;\r\n  DateTime := TempDate;\r\nend;\r\n\r\n//class function TBclUtils.ISOToDateTime(const Value: string): TDateTime;\r\n//begin\r\n//  if Value = '' then Exit(0);\r\n//  Result := StrToDateTime(Value, FISODateSettings);\r\n//end;\r\n//\r\n//class function TBclUtils.PercentDecode(const S: string): string;\r\n//\r\n//  function IsHexa(C: Char): boolean;\r\n//  begin\r\n//    Result := ((C >= '0') and (C <= '9'))\r\n//      or ((C >= 'a') and (C <= 'f'))\r\n//      or ((C >= 'A') and (C <= 'F'));\r\n//  end;\r\n//\r\n//var\r\n//  B: TBytes;\r\n//  L: integer;\r\n//  I: integer;\r\n//begin\r\n//  SetLength(B, Length(S));\r\n//  L := 1;\r\n//  I := 0;\r\n//  while L <= Length(S) do\r\n//  begin\r\n//    if (S[L] = '%') and (L + 2 <= Length(S)) and IsHexa(S[L + 1]) and IsHexa(S[L + 2]) then\r\n//    begin\r\n//      B[I] := StrToInt('$' + S[L + 1] + S[L + 2]);\r\n//      Inc(L, 3);\r\n//    end\r\n//    else\r\n//    begin\r\n//      B[I] := Ord(S[L]);\r\n//      Inc(L);\r\n//    end;\r\n//    Inc(I);\r\n//  end;\r\n//  SetLength(B, I);\r\n//  Result := TEncoding.UTF8.GetString(B);\r\n//end;\r\n//\r\n//class function TBclUtils.PercentEncode(Segments: TArray<string>): string;\r\n//var\r\n//  Segment: string;\r\n//begin\r\n//  Result := '';\r\n//  for Segment in Segments do\r\n//  begin\r\n//    if Result <> '' then\r\n//      Result := Result + '/';\r\n//    Result := Result + PercentEncode(Segment);\r\n//  end;\r\n//end;\r\n//\r\n//class function TBclUtils.PercentEncode(const S: string): string;\r\n//var\r\n//  B: TBytes;\r\n//  I: integer;\r\n//  L: integer;\r\n//  H: string;\r\n//begin\r\n//  B := TEncoding.UTF8.GetBytes(S);\r\n//  SetLength(Result, Length(B) * 3); // final string will be maximum 3 times the original bytes\r\n//  L := 1;\r\n//  for I := 0 to Length(B) - 1 do\r\n//  begin\r\n//    // Check if is unreserved char\r\n//    if ((B[I] >= 65) and (B[I] <= 90)) // A..Z\r\n//      or ((B[I] >= 97) and (B[I] <= 122)) // a..z\r\n//      or ((B[I] >= 48) and (B[I] <= 57)) //0..9\r\n//      or (B[I] in [45, 46, 95, 126]) // - . _ ~\r\n//      or (B[I] in [33, 39, 40, 41, 42]) then // ! ' ( ) *\r\n//    begin\r\n//      Result[L] := Char(B[I]);\r\n//      Inc(L);\r\n//    end else\r\n//    begin\r\n//      Result[L] := '%';\r\n//      H := IntToHex(B[I], 2);\r\n//      Result[L + 1] := H[1];\r\n//      Result[L + 2] := H[2];\r\n//      Inc(L, 3);\r\n//    end;\r\n//  end;\r\n//  SetLength(Result, L - 1);\r\n//end;\r\n//\r\n//class function TBclUtils.TryDayTimeDurationToDateTime(const Value: string;\r\n//  out Time: TTime): boolean;\r\n//var\r\n//  Len: integer;\r\n//  Day, Hour, Min, Sec: integer;\r\n//\r\n//  function ExtractNumber(const Value: string; var I: integer): boolean;\r\n//  var\r\n//    Start: integer;\r\n//    C: Char;\r\n//    Number: integer;\r\n//  begin\r\n//    Start := I;\r\n//    while (I <= Len) and\r\n//      {$IFDEF DELPHIXE4_LVL}\r\n//      Value[I].IsDigit\r\n//      {$ELSE}\r\n//      IsDigit(Value[I])\r\n//      {$ENDIF}\r\n//      do\r\n//      Inc(I);\r\n//    Result := TryStrToInt(Copy(Value, Start, I - Start), Number) and (I <= Len);\r\n//    if Result then\r\n//    begin\r\n//      C := Value[I];\r\n//      Inc(I);\r\n//      if C = 'D' then\r\n//        Day := Number\r\n//      else\r\n//      if C = 'H' then\r\n//        Hour := Number\r\n//      else\r\n//      if C = 'M' then\r\n//        Min := Number\r\n//      else\r\n//      if C = 'S' then\r\n//        Sec := Number\r\n//      else\r\n//        Result := false;\r\n//    end;\r\n//  end;\r\n//\r\n//var\r\n//  I: integer;\r\n//begin\r\n//  Len := Length(Value);\r\n//  if (Len = 0) or (Value[1] <> 'P') then\r\n//    Exit(false);\r\n//  I := 2;\r\n//\r\n//  Day := 0;\r\n//  Hour := 0;\r\n//  Min := 0;\r\n//  Sec := 0;\r\n//\r\n//  // at least one part must exist\r\n//  if not ExtractNumber(Value, I) then\r\n//    Exit(false);\r\n//\r\n//  // now extract as many as exist\r\n//  while ExtractNumber(Value, I) do ;\r\n//  Time := EncodeTime(Hour, Min, Sec, 0);\r\n//  Result := true;\r\n//end;\r\n\r\nclass function TBclUtils.ISOToDate(const Value: string): TDate;\r\nbegin\r\n  if not TryISOToDate(Value, Result) then\r\n    raise EConvertError.CreateFmt(SInvalidDateFormat, [Value]);\r\nend;\r\n\r\nclass function TBclUtils.ISOToDateTime(const Value: string; TimeZoneMode: TTimeZoneMode): TDateTime;\r\nbegin\r\n  if not TryISOToDateTime(Value, Result, TimeZoneMode) then\r\n    raise EConvertError.CreateFmt(SInvalidDateFormat, [Value]);\r\nend;\r\n\r\nclass function TBclUtils.ISOToDateTime(const Value: string): TDateTime;\r\nbegin\r\n  if not TryISOToDateTime(Value, Result) then\r\n    raise EConvertError.CreateFmt(SInvalidDateFormat, [Value]);\r\nend;\r\n\r\nclass function TBclUtils.ISOToTime(const Value: string): TTime;\r\nbegin\r\n  if not TryISOToTime(Value, Result) then\r\n    raise EConvertError.CreateFmt(SInvalidDateFormat, [Value]);\r\nend;\r\n\r\nclass function TBclUtils.TryISOToDateTime(const Value: string;\r\n  out DateTime: TDateTime): boolean;\r\nbegin\r\n  Result := TryISOToDateTime(Value, DateTime, DefaultTimeZoneMode);\r\nend;\r\n\r\nclass function TBclUtils.TryISOToTime(const Value: string; out DateTime: TTime): boolean;\r\nbegin\r\n  Result := TryISOToTime(Value, DateTime, DefaultTimeZoneMode);\r\nend;\r\n\r\n{$IFNDEF PAS2JS}\r\nclass function TBclUtils.TryStringToGuid(const Value: string; out Guid: TGuid; WithBrackets: Boolean = false): boolean;\r\nbegin\r\n  // TODO: Optimize this to a TryStringToGUID\r\n  try\r\n    if not WithBrackets then\r\n      Guid := StringToGUID('{' + Value + '}')\r\n    else\r\n      Guid := StringToGUID(Value);\r\n    Result := true;\r\n  except\r\n    Result := false;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nclass function TBclUtils.TryISOToDate(const Text: string; out DateTime: TDate): boolean;\r\nvar\r\n  TextLen: Integer;\r\n\r\n  function ExtractDigit(var CharIndex: Integer; out Value: Integer): Boolean;\r\n  begin\r\n    Result := (CharIndex <= TextLen) and IsDigit(Text[CharIndex]);\r\n    if Result then\r\n    begin\r\n      Value := Ord(Text[CharIndex]) - Ord('0');\r\n      Inc(CharIndex);\r\n    end;\r\n  end;\r\n\r\n  function ExtractDoubleDigit(var CharIndex: Integer; out Value: Integer): Boolean;\r\n  var\r\n    N10, N: Integer;\r\n  begin\r\n    Result := ExtractDigit(CharIndex, N10) and ExtractDigit(CharIndex, N);\r\n    if Result then\r\n      Value := N10 * 10 + N;\r\n  end;\r\n\r\n  function ExtractFourDigits(var CharIndex: Integer; out Value: Integer): Boolean;\r\n  var\r\n    N1000, N100, N10, N: Integer;\r\n  begin\r\n    Result := ExtractDigit(CharIndex, N1000) and ExtractDigit(CharIndex, N100)\r\n      and ExtractDigit(CharIndex, N10) and ExtractDigit(CharIndex, N);\r\n    if Result then\r\n      Value := N1000 * 1000 + N100 * 100 + N10 * 10 + N;\r\n  end;\r\n\r\n  function ExtractChar(var CharIndex: Integer; C: Char): Boolean;\r\n  begin\r\n    Result := (CharIndex <= TextLen) and (Text[CharIndex] = C);\r\n    if Result then\r\n      Inc(CharIndex);\r\n  end;\r\n\r\n  function IsFinal(var CharIndex: Integer): Boolean;\r\n  var\r\n    C: Char;\r\n  begin\r\n    if CharIndex <= TextLen then\r\n      C := Text[CharIndex]\r\n    else\r\n      C := #0;\r\n    Result := (C = #0);\r\n  end;\r\n\r\nvar\r\n  Year, Month, Day: Integer;\r\n  CharIndex: Integer;\r\n  HasDateChar: Boolean;\r\n  TempDate: TDateTime;\r\nbegin\r\n  DateTime := 0;\r\n  if Text = '' then\r\n  begin\r\n    Result := True;\r\n  end else\r\n  begin\r\n    Year := 0;\r\n    Month := 0;\r\n\r\n    TextLen := Length(Text);\r\n    CharIndex := 1;\r\n    if not ExtractFourDigits(CharIndex, Year) then Exit(False);\r\n    HasDateChar := ExtractChar(CharIndex, '-');\r\n    if not ExtractDoubleDigit(CharIndex, Month) then Exit(False);\r\n    if HasDateChar and not ExtractChar(CharIndex, '-') then Exit(False);\r\n    if not ExtractDoubleDigit(CharIndex, Day) then Exit(False);\r\n    if not IsFinal(CharIndex) then Exit(False);\r\n\r\n    Result := TryEncodeDate(Year, Month, Day, TempDate);\r\n    if Result then\r\n      DateTime := TempDate;\r\n  end;\r\nend;\r\n\r\n\r\nclass function TBclUtils.TryISOToDateTime(const Value: string;\r\n  out DateTime: TDateTime; out TimeZone: TTimeZoneInfo;\r\n  TimeZoneMode: TTimeZoneMode): boolean;\r\nvar\r\n  DatePart: TDate;\r\n  TimePart: TDateTime;\r\n  TIndex: Integer;\r\nbegin\r\n  TimeZone.Init;\r\n  DateTime := 0;\r\n  if Value = '' then\r\n  begin\r\n    Result := true;\r\n  end else\r\n  begin\r\n    Result := False;\r\n    TIndex := Pos('T', Value);\r\n    if TIndex > 0 then\r\n    begin\r\n      Result := TryISOToDate(Copy(Value, 1, TIndex - 1), DatePart) and\r\n        InternalISOToTime(Copy(Value, TIndex + 1, MaxInt), TimePart, TimeZone);\r\n      if Result then\r\n        DateTime := DatePart + TimePart;\r\n    end\r\n    else\r\n    if TryISOToDate(Value, DatePart) then\r\n    begin\r\n      Result := True;\r\n      DateTime := DatePart;\r\n    end\r\n    else\r\n    if InternalISOToTime(Value, TimePart, TimeZone) then\r\n    begin\r\n      Result := True;\r\n      DateTime := TimePart;\r\n    end;\r\n    if Result then\r\n      Result := AdjustTimeZone(DateTime, TimeZone, TimeZoneMode);\r\n  end;\r\nend;\r\n\r\n(*class function TBclUtils.TryISOToDate(const Value: string; out DateTime: TDate): boolean;\r\nvar\r\n  Year, Month, Day: Integer;\r\nbegin\r\n  DateTime := 0;\r\n  if Value = '' then\r\n  begin\r\n    Result := true;\r\n  end else\r\n  begin\r\n    case Length(Value) of\r\n      10:\r\n        begin\r\n          Result := (Value[5] = '-') and (Value[8] = '-')\r\n            and TryStrToInt(Copy(Value, 1, 4), Year)\r\n            and TryStrToInt(Copy(Value, 6, 2), Month)\r\n            and TryStrToInt(Copy(Value, 9, 2), Day);\r\n          if Result then\r\n            DateTime := EncodeDate(Year, Month, Day);\r\n        end;\r\n    else\r\n      Result := False;\r\n    end;\r\n  end;\r\nend;*)\r\n\r\n//{$IFDEF PAS2JS}\r\n//class function TBclUtils.TryISOToDateTime(const Value: string;\r\n//  out DateTime: TDateTime; TimeZoneMode: TTimeZoneMode): boolean;\r\n//var\r\n//  JD: TJSDate;\r\n//begin\r\n//  JD := TJSDate.new(Value);\r\n//  Result := not JSisNan(JD);\r\n//  if Result then\r\n//    case TimeZoneMode of\r\n//      TTimeZoneMode.Error, TTimeZoneMode.Ignore, TTimeZoneMode.AsLocal:\r\n//       //  In Pas2JS, Error and Ignore are not supported and considered as local\r\n//        DateTime := EncodeDateTime(JD.FullYear, JD.Month + 1, JD.Date,\r\n//          JD.Hours, JD.Minutes, JD.Seconds, JD.Milliseconds);\r\n//    else\r\n//      // UTC\r\n//      DateTime := EncodeDateTime(JD.UTCFullYear, JD.UTCMonth + 1, JD.UTCDate,\r\n//        JD.UTCHours, JD.UTCMinutes, JD.UTCSeconds, JD.UTCMilliseconds);\r\n//    end;\r\n//end;\r\n//{$ELSE}\r\nclass function TBclUtils.TryISOToDateTime(const Value: string;\r\n  out DateTime: TDateTime; TimeZoneMode: TTimeZoneMode): boolean;\r\nvar\r\n  TimeZone: TTimeZoneInfo;\r\nbegin\r\n  Result := TryISOToDateTime(Value, DateTime, TimeZone, TimeZoneMode);\r\nend;\r\n//{$ENDIF}\r\n\r\n//class function TBclUtils.ISOToDate(const Value: string): TDate;\r\n//begin\r\n//  if Value = '' then Exit(0);\r\n//  Result := StrToDate(Value, FISODateSettings);\r\n//end;\r\n\r\nclass function TBclUtils.DateToISO(const Value: TDate): string;\r\nvar\r\n  Year, Month, Day: Word;\r\nbegin\r\n  DecodeDate(Value, Year, Month, Day);\r\n  Result := Format('%.4d-%.2d-%.2d', [Year, Month, Day]);\r\nend;\r\n\r\n{ TTimeZoneInfo }\r\n\r\nprocedure TTimeZoneInfo.Init;\r\nbegin\r\n  HourOff := 0;\r\n  MinOff := 0;\r\n  HasTimeZone := False;\r\n  IsUTC := False;\r\nend;\r\n\r\n{$IFNDEF PAS2JS}\r\nclass function TBclUtils.InternalEncodeBase64(Data: Pointer; Len: Integer;\r\n  EncodeTable: TBase64EncodeTable; Padding: Boolean): string;\r\nvar\r\n  Output: string;\r\n\r\n  procedure EncodePacket(const Packet: TPacket; NumChars: Integer; Idx: Integer);\r\n  begin\r\n    Output[Idx + 0] := EnCodeTable[Packet.a[0] shr 2];\r\n    Output[Idx + 1] := EnCodeTable[((Packet.a[0] shl 4) or (Packet.a[1] shr 4)) and $0000003f];\r\n\r\n    if NumChars < 2 then\r\n      Output[Idx + 2] := '='\r\n    else\r\n      Output[Idx + 2] := EnCodeTable[((Packet.a[1] shl 2) or (Packet.a[2] shr 6)) and $0000003f];\r\n\r\n    if NumChars < 3 then\r\n      Output[Idx + 3] := '='\r\n    else\r\n      Output[Idx + 3] := EnCodeTable[Packet.a[2] and $0000003f];\r\n  end;\r\n\r\nvar\r\n  I, K, J: Integer;\r\n  Packet: TPacket;\r\n  Input: PByte;\r\nbegin\r\n  Input := PByte(Data);\r\n  Output := '';\r\n  I := (Len div 3) * 4;\r\n  if Len mod 3 > 0 then Inc(I, 4);\r\n  SetLength(Output, I);\r\n  J := 1;\r\n  for I := 1 to Len div 3 do\r\n  begin\r\n    Packet.a[0] := Input[(I - 1) * 3];\r\n    Packet.a[1] := Input[(I - 1) * 3 + 1];\r\n    Packet.a[2] := Input[(I - 1) * 3 + 2];\r\n    Packet.a[3] := 0;\r\n    EncodePacket(Packet, 3, J);\r\n    Inc(J, 4);\r\n  end;\r\n  K := 0;\r\n\r\n  Packet.a[0] := 0;\r\n  Packet.a[1] := 0;\r\n  Packet.a[2] := 0;\r\n  Packet.a[3] := 0;\r\n\r\n  for I := Len - (Len mod 3) + 1 to Len do\r\n  begin\r\n    Packet.a[K] := Byte(Input[I - 1]);\r\n    Inc(K);\r\n    if I = Len then\r\n      EncodePacket(Packet, Len mod 3, J);\r\n  end;\r\n\r\n  if not Padding and (Length(Output) >= 2) then\r\n  begin\r\n    if Output[Length(Output) - 1] = '=' then\r\n      SetLength(Output, Length(Output) - 2)\r\n    else\r\n    if Output[Length(Output)] = '=' then\r\n      SetLength(Output, Length(Output) - 1);\r\n  end;\r\n  Result := Output;\r\nend;\r\n{$ENDIF}\r\n\r\ninitialization\r\n  {$IFNDEF PAS2JS}\r\n  Randomize;\r\n  {$ENDIF}\r\n  DefaultTimeZoneMode := TTimeZoneMode.Error;\r\n  FullISOTimeNotation := False;\r\nend.\r\n\r\n","unit XData.Web.JsonDataset;\r\n\r\ninterface\r\n\r\nuses\r\n  JS, DB, Classes, SysUtils, JsonDataset;\r\n\r\ntype\r\n  TJSONFieldMapper = JsonDataset.TJSONFieldMapper;\r\n//  TJSONObjectFieldMapper = JsonDataset.TJSONObjectFieldMapper;\r\n\r\n  TXDataObjectFieldMapper = class(TJSONObjectFieldMapper)\r\n  private\r\n    function GetPropValue(APropName: string; Obj: TJSObject): JSValue;\r\n  public\r\n    procedure SetJSONDataForField(const FieldName: string; FieldIndex: Integer; Row, Data: JSValue); override;\r\n    function GetJSONDataForField(const FieldName: string; FieldIndex: Integer; Row: JSValue): JSValue; override;\r\n  end;\r\n\r\n  TXDataWebEntityField = class(TVariantField)\r\n  protected\r\n    function GetAsString: string; override;\r\n//    procedure SetAsString(const aValue: string); override;\r\n//  protected\r\n//    function GetAsVariant: Variant; override;\r\n//    procedure SetVarValue(const Value: Variant); override;\r\n//  public\r\n//    property AsObject: TObject read GetAsObject write SetAsObject;\r\n//    function AsEntity<T: class>: T;\r\n  end;\r\n\r\n  TXDataWebDatasetField = class(TVariantField)\r\n  protected\r\n    function GetAsString: string; override;\r\n  end;\r\n\r\n  TXDataWebCurrencyField = class(TFloatField)\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n  published\r\n    property Currency default True;\r\n  end;\r\n\r\n//  TXDataWebGuidField = class(TStringField)\r\n//  end;\r\n\r\n  EXDataDatasetException = class(Exception)\r\n  end;\r\n\r\n  TXDataJsonDataset = Class(TBaseJSONDataset)\r\n  protected\r\n    procedure MetaDataToFieldDefs; override;\r\n    function GetFieldClass(FieldType: TFieldType): TFieldClass; override;\r\n    function CreateFieldMapper: TJSONFieldMapper; override;\r\n  public\r\n    procedure SetJsonData(Data: JSValue);\r\n    function ConvertToDateTime(AField: TField; AValue: JSValue; ARaiseException: Boolean): TDateTime; override;\r\n    function ConvertDateTimeToNative(AField: TField; AValue: TDateTime): JSValue; override;\r\n    property ActiveIndex;\r\n  published\r\n    // redeclared data set properties\r\n//    property Active;\r\n    property Indexes;\r\n    property Filter;\r\n    property Filtered;\r\n\r\n    property AfterApplyUpdates;\r\n    property BeforeOpen;\r\n    property AfterOpen;\r\n    property BeforeClose;\r\n    property AfterClose;\r\n    property BeforeInsert;\r\n    property AfterInsert;\r\n    property BeforeEdit;\r\n    property AfterEdit;\r\n    property BeforePost;\r\n    property AfterPost;\r\n    property BeforeCancel;\r\n    property AfterCancel;\r\n    property BeforeDelete;\r\n    property AfterDelete;\r\n    property BeforeScroll;\r\n    property AfterScroll;\r\n    property OnCalcFields;\r\n    property OnDeleteError;\r\n    property OnEditError;\r\n    property OnFilterRecord;\r\n    property OnNewRecord;\r\n    property OnPostError;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  DBConst,\r\n  Bcl.Utils;\r\n\r\n{ TXDataWebEntityField }\r\n\r\nfunction TXDataWebEntityField.GetAsString: string;\r\nvar\r\n  V: JSValue;\r\nbegin\r\n  V := GetData;\r\n  if IsObject(V) then\r\n    Result := '[object]'\r\n  else\r\n  if JS.IsNull(V) or JS.IsUndefined(V) then\r\n    Result := 'null'\r\n  else\r\n    Result := inherited GetAsString;\r\nend;\r\n\r\n{ TXDataObjectFieldMapper }\r\n\r\nfunction TXDataObjectFieldMapper.GetJSONDataForField(const FieldName: string;\r\n  FieldIndex: Integer; Row: JSValue): JSValue;\r\nbegin\r\n  Result := GetPropValue(FieldName, TJSObject(Row));\r\n//  Result:=TJSObject(Row).Properties[FieldName];\r\nend;\r\n\r\nprocedure SplitProp(const AText: string; var AProp, ASubProp: string);\r\nvar\r\n  p: integer;\r\nbegin\r\n  p := Pos('.', AText);\r\n  if p = 0 then\r\n  begin\r\n    AProp := AText;\r\n    ASubProp := '';\r\n  end else\r\n  begin\r\n    AProp := Copy(AText, 1, p - 1);\r\n    ASubProp := Copy(AText, p + 1, MaxInt);\r\n  end;\r\nend;\r\n\r\nfunction TXDataObjectFieldMapper.GetPropValue(APropName: string;\r\n  Obj: TJSObject): JSValue;\r\nvar\r\n  Value: JSValue;\r\n  Prop, SubProp: string;\r\nbegin\r\n  if Obj = nil then Exit(Null);\r\n  SplitProp(APropName, Prop, SubProp);\r\n\r\n//  // Special treatment for TCriteriaResult objects\r\n//  if Obj is TCriteriaResult then\r\n//  begin\r\n//    CriteriaResult := TCriteriaResult(Obj);\r\n//    if CriteriaResult.HasProp(Prop) and (SubProp = '') then\r\n//      Exit(CriteriaResult.Values[Prop])\r\n//    else\r\n//      Exit(Null);\r\n//  end;\r\n\r\n  Value := Obj.Properties[Prop];\r\n  if IsObject(Value) then\r\n  begin\r\n    if SubProp = '' then\r\n      Result := Value\r\n    else\r\n      Result := GetPropValue(SubProp, TJSObject(Value));\r\n  end\r\n  else\r\n  begin\r\n    if SubProp = '' then\r\n      Result := Value\r\n    else\r\n//      if IsEnumeration(Value.TypeInfo) and SameText(SubProp, EnumNameSufix) then\r\n//        Result := GetEnumName(Value.TypeInfo, Value.AsOrdinal)\r\n//      else\r\n        Result := Null;\r\n  end;\r\nend;\r\n\r\nprocedure TXDataObjectFieldMapper.SetJSONDataForField(const FieldName: string;\r\n  FieldIndex: Integer; Row, Data: JSValue);\r\nbegin\r\n  inherited;\r\n\r\nend;\r\n\r\n{ TXDataJsonDataset }\r\n\r\nfunction TXDataJsonDataset.ConvertDateTimeToNative(AField: TField; AValue: TDateTime): JSValue;\r\nbegin\r\n  Result := TBclUtils.DateTimeToIso(AValue, False);\r\nend;\r\n\r\nfunction TXDataJsonDataset.ConvertToDateTime(AField: TField; AValue: JSValue;\r\n  ARaiseException: Boolean): TDateTime;\r\nbegin\r\n  Result := 0;\r\n  if JS.IsString(AValue) then\r\n  begin\r\n    if not TBclUtils.TryIsoToDateTime(string(AValue), Result) and ARaiseException then\r\n      Raise EConvertError.CreateFmt(SErrInvalidDateTime,[String(aValue)])\r\n  end\r\n  else\r\n  if JS.IsNumber(AValue) then\r\n    Result := TDateTime(AValue);\r\nend;\r\n\r\nfunction TXDataJsonDataset.CreateFieldMapper: TJSONFieldMapper;\r\nbegin\r\n  Result := TXDataObjectFieldMapper.Create;\r\nend;\r\n\r\nfunction TXDataJsonDataset.GetFieldClass(FieldType: TFieldType): TFieldClass;\r\nbegin\r\n  case FieldType of\r\n    ftVariant: Result := TXDataWebEntityField;\r\n    ftDataset: Result := TXDataWebDatasetField;\r\n//    ftCurrency: Result := TXDataWebCurrencyField;\r\n//    ftGuid: Result := TXDataWebGuidField;\r\n  else\r\n    result := inherited GetFieldClass(FieldType);\r\n  end;\r\nend;\r\n\r\nprocedure TXDataJsonDataset.MetaDataToFieldDefs;\r\nbegin\r\nend;\r\n\r\nprocedure TXDataJsonDataset.SetJsonData(Data: JSValue);\r\nvar\r\n  ArrayData: TJSArray;\r\nbegin\r\n  if IsArray(Data) then\r\n    ArrayData := TJSArray(Data)\r\n  else\r\n    ArrayData := TJSArray.new(Data);\r\n  Rows := ArrayData;\r\nend;\r\n\r\n{ TXDataWebDatasetField }\r\n\r\nfunction TXDataWebDatasetField.GetAsString: string;\r\nvar\r\n  V: JSValue;\r\nbegin\r\n  V := GetData;\r\n  if IsArray(V) then\r\n    Result := '[dataset]'\r\n  else\r\n  if JS.IsNull(V) or JS.IsUndefined(V) then\r\n    Result := 'null'\r\n  else\r\n    Result := inherited GetAsString;\r\nend;\r\n\r\n{ TXDataWebCurrencyField }\r\n\r\nconstructor TXDataWebCurrencyField.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  Currency := True;\r\nend;\r\n\r\nend.\r\n","unit Bcl.Rtti.Common;\r\n\r\n{$I Bcl.inc}\r\n\r\ninterface\r\n\r\nuses\r\n  SysUtils,\r\n  {$IFDEF PAS2JS}\r\n  JS;\r\n  {$ELSE}\r\n  Rtti,\r\n  Bcl.TypInfo.Common;\r\n  {$ENDIF}\r\n\r\ntype\r\n  {$IFDEF ISDELPHI}\r\n  TValue = Rtti.TValue;\r\n  {$ELSE}\r\n    {$IFDEF PAS2JS}\r\n    TValue = JSValue;\r\n    {$ELSE}\r\n    TValue = Pointer;\r\n    {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF PAS2JS}\r\n  EInvalidJSCast = class(Exception)\r\n  public\r\n    constructor Create(Value: TValue; const TypeName: string); reintroduce;\r\n  end;\r\n  {$ENDIF}\r\n\r\nfunction TValue_IsArray(const Value: TValue): Boolean; {$IFDEF ISDELPHI}inline;{$ENDIF}\r\nfunction TValue_GetArrayLength(const Value: TValue): Integer; {$IFDEF ISDELPHI}inline;{$ENDIF}\r\nfunction TValue_GetArrayElement(const Value: TValue; Index: Integer): TValue; {$IFDEF ISDELPHI}inline;{$ENDIF}\r\nfunction TValue_AsString(const Value: TValue): String;\r\nfunction TValue_AsInteger(const Value: TValue): Integer;\r\nfunction TValue_AsOrdinal(const Value: TValue): {$IFDEF PAS2JS}Integer{$ELSE}Int64{$ENDIF};\r\nfunction TValue_AsBoolean(const Value: TValue): Boolean;\r\nfunction TValue_AsExtended(const Value: TValue): Extended;\r\nfunction TValue_AsDouble(const Value: TValue): Double;\r\nfunction TValue_AsBytes(const Value: TValue): TBytes;\r\nfunction TValue_IsEmpty(const Value: TValue): Boolean;\r\n\r\nfunction TValue_FromDateTime(const Value: TDateTime): TValue;\r\nfunction TValue_FromDate(const Value: TDate): TValue;\r\nfunction TValue_FromTime(const Value: TTime): TValue;\r\nfunction TValue_FromBytes(const Value: TBytes): TValue;\r\n\r\nfunction TValue_ToString(const Value: TValue): string;\r\n\r\n\r\nimplementation\r\n\r\n{ EInvalidJSCast }\r\n\r\n{$IFDEF PAS2JS}\r\nconstructor EInvalidJSCast.Create(Value: TValue; const TypeName: string);\r\nbegin\r\n  inherited CreateFmt('Cannot cast value %s to type %s',\r\n    [TValue_ToString(Value), TypeName]);\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF PAS2JS}\r\nfunction TValue_ToString(const Value: TValue): string;\r\nasm\r\n  Result = \"\" + Value;\r\nend;\r\n{$ELSE}\r\nfunction TValue_ToString(const Value: TValue): string;\r\nbegin\r\n  Result := Value.ToString;\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TValue_IsArray(const Value: TValue): Boolean;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := JS.IsArray(Value);\r\n  {$ELSE}\r\n  Result := Value.IsArray;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TValue_GetArrayLength(const Value: TValue): Integer;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := TJSArray(Value).Length;\r\n  {$ELSE}\r\n  Result := Value.GetArrayLength;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TValue_GetArrayElement(const Value: TValue; Index: Integer): TValue;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := TJSArray(Value)[Index];\r\n  {$ELSE}\r\n  Result := Value.GetArrayElement(Index);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TValue_AsString(const Value: TValue): string;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  if not JS.isString(Value) then\r\n    raise EInvalidJSCast.Create(Value, 'String');\r\n  Result := string(Value);\r\n  {$ELSE}\r\n  Result := Value.AsString;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TValue_AsInteger(const Value: TValue): Integer;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := 0; // Avoid hint\r\n  asm\r\n    Result = Math.floor(Value);\r\n  end;\r\n  if (Result <> Value) or (jsTypeOf(Value) <> 'number') then\r\n    raise EInvalidJSCast.Create(Value, 'Integer');\r\n  {$ELSE}\r\n  Result := Value.AsInteger;\r\n  {$ENDIF}\r\nend;\r\n\r\n{$IFDEF PAS2JS}\r\nfunction TValue_AsOrdinal(const Value: TValue): Integer;\r\nbegin\r\n  Result := TValue_AsInteger(Value);\r\nend;\r\n{$ELSE}\r\nfunction TValue_AsOrdinal(const Value: TValue): Int64;\r\nbegin\r\n  Result := Value.AsOrdinal;\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TValue_AsBoolean(const Value: TValue): Boolean;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := False; // Avoid hint\r\n  if not JS.isBoolean(Value) then\r\n    raise EInvalidJSCast.Create(Value, 'Boolean');\r\n  asm\r\n    Result = !(Value == false);\r\n  end;\r\n  {$ELSE}\r\n  Result := Value.AsBoolean;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TValue_AsExtended(const Value: TValue): Extended;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := 0.0; // Avoid hint\r\n  if not JS.isNumber(Value) then\r\n    raise EInvalidJSCast.Create(Value, 'Number');\r\n  asm\r\n    Result = rtl.getNumber(Value);\r\n  end;\r\n  {$ELSE}\r\n  Result := Value.AsExtended;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TValue_FromDateTime(const Value: TDateTime): TValue;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := Value;\r\n  {$ELSE}\r\n  Result := TValue.From<TDateTime>(Value);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TValue_FromDate(const Value: TDate): TValue;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := Value;\r\n  {$ELSE}\r\n  Result := TValue.From<TDate>(Value);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TValue_FromTime(const Value: TTime): TValue;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := Value;\r\n  {$ELSE}\r\n  Result := TValue.From<TTime>(Value);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TValue_AsDouble(const Value: TValue): Double;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := TValue_AsExtended(Value);\r\n  {$ELSE}\r\n  Result := Value.AsType<double>;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TValue_AsBytes(const Value: TValue): TBytes;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := TBytes(Value);\r\n  {$ELSE}\r\n  Result := Value.AsType<TBytes>;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TValue_FromBytes(const Value: TBytes): TValue;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := Value;\r\n  {$ELSE}\r\n  Result := TValue.From<TBytes>(Value);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TValue_IsEmpty(const Value: TValue): Boolean;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := Value = nil;\r\n  {$ELSE}\r\n  Result := Value.IsEmpty;\r\n  {$ENDIF}\r\nend;\r\n\r\nend.\r\n","unit Bcl.Json.Common;\r\n\r\n{$I Bcl.inc}\r\n\r\ninterface\r\n\r\nuses\r\n  Types,\r\n  {$IFDEF PAS2JS}\r\n  JS;\r\n  {$ELSE}\r\n  Bcl.Json.Classes;\r\n  {$ENDIF}\r\n\r\ntype\r\n{$IFDEF PAS2JS}\r\n  TJElement = JSValue;\r\n  TJObject = TJSObject;\r\n  TJArray = TJSArray;\r\n{$ELSE}\r\n  TJElement = Bcl.Json.Classes.TJElement;\r\n  TJObject = Bcl.Json.Classes.TJObject;\r\n  TJArray = Bcl.Json.Classes.TJArray;\r\n{$ENDIF}\r\n\r\nfunction JValue(const Value: string): TJElement; overload;\r\nfunction JValue(const Value: Integer): TJElement; overload;\r\n{$IFNDEF PAS2JS}\r\nfunction JValue(const Value: Int64): TJElement; overload;\r\n{$ENDIF}\r\nfunction JValue(const Value: Double): TJElement; overload;\r\nfunction JValue(const Value: Boolean): TJElement; overload;\r\n\r\nfunction JToInt(Value: TJElement): Integer;\r\nfunction JToStr(Value: TJElement): string;\r\nfunction JToBool(Value: TJElement): Boolean;\r\nfunction JIsString(Value: TJElement): Boolean;\r\nfunction JIsArray(Value: TJElement): Boolean;\r\nfunction JIsInteger(Value: TJElement): Boolean;\r\nfunction JIsBool(Value: TJElement): Boolean;\r\nfunction AsJObject(Value: TJElement): TJObject;\r\nfunction AsJArray(Value: TJElement): TJArray;\r\n\r\nfunction JStringOrDefault(Element: TJElement): string;\r\nfunction JIntegerOrDefault(Element: TJElement): Integer;\r\nfunction JBooleanOrDefault(Element: TJElement): Boolean;\r\nfunction JObjectKeys(Value: TJObject): TStringDynArray;\r\n\r\nimplementation\r\n\r\nfunction JValue(const Value: string): TJElement; overload;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := Value;\r\n  {$ELSE}\r\n  Result := TJPrimitive.Create(Value);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction JValue(const Value: Integer): TJElement; overload;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := Value;\r\n  {$ELSE}\r\n  Result := TJPrimitive.Create(Value);\r\n  {$ENDIF}\r\nend;\r\n\r\n{$IFNDEF PAS2JS}\r\nfunction JValue(const Value: Int64): TJElement; overload;\r\nbegin\r\n  Result := TJPrimitive.Create(Value);\r\nend;\r\n{$ENDIF}\r\n\r\nfunction JValue(const Value: Double): TJElement; overload;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := Value;\r\n  {$ELSE}\r\n  Result := TJPrimitive.Create(Value);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction JValue(const Value: Boolean): TJElement; overload;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := Value;\r\n  {$ELSE}\r\n  Result := TJPrimitive.Create(Value);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction JToBool(Value: TJElement): Boolean;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := Boolean(Value);\r\n  {$ELSE}\r\n  Result := Value.AsBoolean;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction JToInt(Value: TJElement): Integer;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := Integer(Value);\r\n  {$ELSE}\r\n  Result := Value.AsInteger;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction JToStr(Value: TJElement): string;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := string(Value);\r\n  {$ELSE}\r\n  Result := Value.AsString;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction JIsString(Value: TJElement): Boolean;\r\nbegin\r\n{$IFDEF PAS2JS}\r\n  Result := JS.IsString(Value);\r\n{$ELSE}\r\n  Result := (Value <> nil) and Value.IsString;\r\n{$ENDIF}\r\nend;\r\n\r\nfunction JIsInteger(Value: TJElement): Boolean;\r\nbegin\r\n{$IFDEF PAS2JS}\r\n  Result := JS.IsInteger(Value);\r\n{$ELSE}\r\n  Result := (Value <> nil) and Value.IsInteger;\r\n{$ENDIF}\r\nend;\r\n\r\nfunction JIsBool(Value: TJElement): Boolean;\r\nbegin\r\n{$IFDEF PAS2JS}\r\n  Result := JS.IsBoolean(Value);\r\n{$ELSE}\r\n  Result := (Value <> nil) and Value.IsBoolean;\r\n{$ENDIF}\r\nend;\r\n\r\nfunction JIsArray(Value: TJElement): Boolean;\r\nbegin\r\n{$IFDEF PAS2JS}\r\n  Result := JS.IsArray(Value);\r\n{$ELSE}\r\n  Result := (Value <> nil) and Value.IsArray;\r\n{$ENDIF}\r\nend;\r\n\r\nfunction AsJObject(Value: TJElement): TJObject;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := TJObject(Value);\r\n  {$ELSE}\r\n  Result := Value.AsObject;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction AsJArray(Value: TJElement): TJArray;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := TJArray(Value);\r\n  {$ELSE}\r\n  Result := Value.AsArray;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction JObjectKeys(Value: TJObject): TStringDynArray;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := TJSObject.keys(Value);\r\n  {$ELSE}\r\n  Result := TJObject.keys(Value)\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction JStringOrDefault(Element: TJElement): string;\r\nbegin\r\n  if JIsString(Element) then\r\n    Result := JToStr(Element)\r\n  else\r\n    Result := '';\r\nend;\r\n\r\nfunction JIntegerOrDefault(Element: TJElement): Integer;\r\nbegin\r\n  if JIsInteger(Element) then\r\n    Result := JToInt(Element)\r\n  else\r\n    Result := 0;\r\nend;\r\n\r\nfunction JBooleanOrDefault(Element: TJElement): Boolean;\r\nbegin\r\n  if JIsBool(Element) then\r\n    Result := JToBool(Element)\r\n  else\r\n    Result := False;\r\nend;\r\n\r\nend.\r\n","unit Bcl.Json.Attributes;\r\n\r\n{$I Bcl.inc}\r\n\r\ninterface\r\n\r\nuses\r\n  Generics.Collections,\r\n  {$IFNDEF PAS2JS}\r\n  Bcl.JSON.Converters,\r\n  {$ENDIF}\r\n  Classes;\r\n\r\ntype\r\n  {$IFDEF PAS2JS}\r\n  TInclusionMode = (Always, NonDefault);\r\n  TJsonNamingStrategy = class\r\n  end;\r\n  TJsonNamingStrategyClass = class of TJsonNamingStrategy;\r\n  TCustomJsonConverter = class\r\n  end;\r\n  TCustomJsonConverterClass = class of TCustomJsonConverter;\r\n  {$ELSE}\r\n  TInclusionMode = Bcl.Json.Converters.TInclusionMode;\r\n  {$ENDIF}\r\n\r\n\r\n  JsonPropertyAttribute = class(TCustomAttribute)\r\n  strict private\r\n    FName: string;\r\n  public\r\n    constructor Create; overload;\r\n    constructor Create(const AName: string); overload;\r\n    property Name: string read FName;\r\n  end;\r\n\r\n  JsonIgnoreAttribute = class(TCustomAttribute)\r\n  end;\r\n\r\n  JsonIncludeAttribute = class(TCustomAttribute)\r\n  strict private\r\n    FInclusionMode: TInclusionMode;\r\n  public\r\n    constructor Create(AInclusionMode: TInclusionMode);\r\n    property InclusionMode: TInclusionMode read FInclusionMode;\r\n  end;\r\n\r\n  JsonNamingStrategyAttribute = class(TCustomAttribute)\r\n  strict private\r\n    FStrategyClass: TJsonNamingStrategyClass;\r\n  public\r\n    constructor Create(AStrategyClass: TJsonNamingStrategyClass);\r\n    property StrategyClass: TJsonNamingStrategyClass read FStrategyClass;\r\n  end;\r\n\r\n  JsonEnumValuesAttribute = class(TCustomAttribute)\r\n  strict private\r\n    FEnumValues: TList<string>;\r\n  public\r\n    constructor Create(const AEnumValues: string);\r\n    destructor Destroy; override;\r\n    property EnumValues: TList<string> read FEnumValues;\r\n  end;\r\n\r\n  JsonConverterAttribute = class(TCustomAttribute)\r\n  strict private\r\n    FConverterClass: TCustomJsonConverterClass;\r\n  private\r\n    procedure SetConverterClass(const Value: TCustomJsonConverterClass);\r\n  public\r\n    constructor Create(AConverterClass: TCustomJsonConverterClass);\r\n    property ConverterClass: TCustomJsonConverterClass read FConverterClass write SetConverterClass;\r\n  end;\r\n\r\n  JsonManagedAttribute = class(TCustomAttribute)\r\n  end;\r\n\r\nimplementation\r\n\r\n{ JsonPropertyAttribute }\r\n\r\nconstructor JsonPropertyAttribute.Create(const AName: string);\r\nbegin\r\n  FName := AName;\r\nend;\r\n\r\nconstructor JsonPropertyAttribute.Create;\r\nbegin\r\n  Create('');\r\nend;\r\n\r\n{ JsonIncludeAttribute }\r\n\r\nconstructor JsonIncludeAttribute.Create(AInclusionMode: TInclusionMode);\r\nbegin\r\n  FInclusionMode := AInclusionMode;\r\nend;\r\n\r\n{ JsonNamingStrategyAttribute }\r\n\r\nconstructor JsonNamingStrategyAttribute.Create(AStrategyClass: TJsonNamingStrategyClass);\r\nbegin\r\n  FStrategyClass := AStrategyClass;\r\nend;\r\n\r\n{ JsonEnumValuesAttribute }\r\n\r\nconstructor JsonEnumValuesAttribute.Create(const AEnumValues: string);\r\nvar\r\n  List: TStringList;\r\n  I: Integer;\r\nbegin\r\n  FEnumValues := TList<string>.Create;\r\n\r\n  List := TStringList.Create;\r\n  try\r\n    {$IFNDEF PAS2JS}\r\n    ExtractStrings([',', ';'], [' '], PChar(AEnumValues), List);\r\n    {$ENDIF}\r\n    for I := 0 to List.Count - 1 do\r\n      FEnumValues.Add(List[I]);\r\n  finally\r\n    List.Free;\r\n  end;\r\nend;\r\n\r\ndestructor JsonEnumValuesAttribute.Destroy;\r\nbegin\r\n  FEnumValues.Free;\r\n  inherited;\r\nend;\r\n\r\n{ JsonConverterAttribute }\r\n\r\nconstructor JsonConverterAttribute.Create(\r\n  AConverterClass: TCustomJsonConverterClass);\r\nbegin\r\n  FConverterClass := AConverterClass;\r\nend;\r\n\r\nprocedure JsonConverterAttribute.SetConverterClass(\r\n  const Value: TCustomJsonConverterClass);\r\nbegin\r\n  FConverterClass := Value;\r\nend;\r\n\r\nend.\r\n","unit Bcl.Collections.Common;\r\n\r\n{$I Bcl.inc}\r\n\r\ninterface\r\n\r\nuses\r\n  Types,\r\n  {$IFDEF ISDELPHI}\r\n  Generics.Collections,\r\n  {$ELSE}\r\n  Bcl.Json.Common,\r\n  JS,\r\n  {$ENDIF}\r\n  SysUtils;\r\n\r\ntype\r\n  TStringMap = class\r\n  private\r\n    {$IFDEF PAS2JS}\r\n    FMap: TJObject;\r\n    {$ELSE}\r\n    FDictionary: TObjectDictionary<string, TObject>;\r\n    {$ENDIF}\r\n    function GetItem(const Key: string): TObject;\r\n    function GetKeys: TStringDynArray;\r\n  public\r\n    constructor Create(AOwnsObjects: Boolean = False); reintroduce;\r\n    destructor Destroy; override;\r\n    procedure Clear;\r\n    procedure Add(const Key: string; const Value: TObject);\r\n    procedure AddOrSetValue(const Key: string; const Value: TObject);\r\n    function ContainsKey(const Key: string): Boolean;\r\n    procedure Remove(const Key: string);\r\n    property Items[const Key: string]: TObject read GetItem; default;\r\n    property Keys: TStringDynArray read GetKeys;\r\n  end;\r\n\r\nimplementation\r\n\r\n{ TStringMap }\r\n\r\nprocedure TStringMap.Add(const Key: string; const Value: TObject);\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  FMap[Key] := Value;\r\n  {$ELSE}\r\n  FDictionary.Add(Key, Value);\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TStringMap.AddOrSetValue(const Key: string; const Value: TObject);\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  FMap[Key] := Value;\r\n  {$ELSE}\r\n  FDictionary.AddOrSetValue(Key, Value);\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TStringMap.Clear;\r\n{$IFDEF PAS2JS}\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := Length(Keys) - 1 downto 0 do\r\n    Remove(Keys[I]);\r\nend;\r\n{$ELSE}\r\nbegin\r\n  FDictionary.Clear;\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TStringMap.ContainsKey(const Key: string): Boolean;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := FMap.hasOwnProperty(Key);\r\n  {$ELSE}\r\n  Result := FDictionary.ContainsKey(Key);\r\n  {$ENDIF}\r\nend;\r\n\r\nconstructor TStringMap.Create(AOwnsObjects: Boolean);\r\n{$IFDEF PAS2JS}\r\nbegin\r\n  FMap := TJSObject.new;\r\nend;\r\n{$ELSE}\r\nvar\r\n  Ownership: TDictionaryOwnerships;\r\nbegin\r\n  Ownership := [];\r\n  if AOwnsObjects then\r\n    Ownership := [doOwnsValues];\r\n  FDictionary := TObjectDictionary<string, TObject>.Create(Ownership);\r\nend;\r\n{$ENDIF}\r\n\r\ndestructor TStringMap.Destroy;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  {$ELSE}\r\n  FDictionary.Free;\r\n  {$ENDIF}\r\n  inherited;\r\nend;\r\n\r\nfunction TStringMap.GetItem(const Key: string): TObject;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := TObject(FMap[Key]);\r\n  {$ELSE}\r\n  Result := FDictionary[Key];\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TStringMap.GetKeys: TStringDynArray;\r\n{$IFDEF PAS2JS}\r\nbegin\r\n  Result := TJSObject.Keys(FMap);\r\nend;\r\n{$ELSE}\r\nvar\r\n  Key: string;\r\n  I: Integer;\r\nbegin\r\n  SetLength(Result, FDictionary.Keys.Count);\r\n  I := 0;\r\n  for Key in FDictionary.Keys do\r\n  begin\r\n    Result[I] := Key;\r\n    Inc(I);\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TStringMap.Remove(const Key: string);\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  asm delete this.FMap[Key]; end;\r\n  {$ELSE}\r\n  FDictionary.Remove(Key);\r\n  {$ENDIF}\r\nend;\r\n\r\nend.\r\n","unit Bcl.SysUtils;\r\n\r\n{$I Bcl.inc}\r\n\r\ninterface\r\n\r\nfunction TryStrToNumber(const S: string; out Value: double): Boolean;\r\nfunction NumberToStr(const Value: double): string; {$IFDEF PAS2JS}assembler;{$ENDIF}\r\n\r\nimplementation\r\n\r\nuses\r\n  {$IFDEF PAS2JS}\r\n  JS;\r\n  {$ELSE}\r\n  SysUtils;\r\n  {$ENDIF}\r\n\r\nfunction TryStrToNumber(const S: string; out Value: double): Boolean;\r\n{$IFDEF PAS2JS}\r\nvar\r\n  J: JSValue;\r\nbegin\r\n  J := parseFloat(S);\r\n  Result := not jsIsNaN(J);\r\n  if Result then\r\n    Value := double(J);\r\nend;\r\n{$ELSE}\r\nvar\r\n  FS: TFormatSettings;\r\nbegin\r\n  FS.DecimalSeparator := '.';\r\n  FS.ThousandSeparator := #0;\r\n  Result := TryStrToFloat(S, Value, FS);\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF PAS2JS}\r\nfunction NumberToStr(const Value: double): string; assembler;\r\nasm\r\n  return Value.toString();\r\nend;\r\n{$ELSE}\r\nfunction NumberToStr(const Value: double): string;\r\nvar\r\n  FS: TFormatSettings;\r\nbegin\r\n  FS.DecimalSeparator := '.';\r\n  FS.ThousandSeparator := #0;\r\n  Result := FloatToStr(Value, FS);\r\nend;\r\n{$ENDIF}\r\n\r\nend.\r\n","unit XData.Types.Converters;\r\n\r\n{$I XData.inc}\r\n\r\ninterface\r\n\r\nuses\r\n  SysUtils,\r\n  Bcl.Rtti.Common,\r\n  {$IFDEF PAS2JS}\r\n  JS,\r\n  {$ELSE}\r\n  Rtti, TypInfo,\r\n  {$ENDIF}\r\n  XData.Model.Classes;\r\n\r\ntype\r\n  TXDataTypeBaseConverter = class(TXDataTypeConverter)\r\n  end;\r\n\r\n  TXDataInt32Converter = class(TXDataTypeBaseConverter)\r\n  strict protected\r\n    function GetXDataType: TXDataScalarType; override;\r\n  strict protected\r\n    function TryValueToUrl(const Value: TValue; out Literal: string): boolean; override;\r\n    function TryUrlToValue(const Literal: string; out Value: TValue): boolean; override;\r\n  end;\r\n\r\n  TXDataInt16Converter = class(TXDataTypeBaseConverter)\r\n  strict protected\r\n    function GetXDataType: TXDataScalarType; override;\r\n  strict protected\r\n    function TryValueToUrl(const Value: TValue; out Literal: string): boolean; override;\r\n    function TryUrlToValue(const Literal: string; out Value: TValue): boolean; override;\r\n  end;\r\n\r\n  {$IFDEF PAS2JS}\r\n  TXDataInt64Converter = TXDataInt32Converter;\r\n  {$ELSE}\r\n  TXDataInt64Converter = class(TXDataTypeBaseConverter)\r\n  strict protected\r\n    function GetXDataType: TXDataScalarType; override;\r\n  strict protected\r\n    function TryValueToUrl(const Value: TValue; out Literal: string): boolean; override;\r\n    function TryUrlToValue(const Literal: string; out Value: TValue): boolean; override;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  TXDataBooleanConverter = class(TXDataTypeBaseConverter)\r\n  strict protected\r\n    function GetXDataType: TXDataScalarType; override;\r\n  strict protected\r\n    function TryValueToUrl(const Value: TValue; out Literal: string): boolean; override;\r\n    function TryUrlToValue(const Literal: string; out Value: TValue): boolean; override;\r\n  end;\r\n\r\n  TXDataDoubleConverter = class(TXDataTypeBaseConverter)\r\n  strict protected\r\n    function GetXDataType: TXDataScalarType; override;\r\n  strict protected\r\n    function TryValueToUrl(const Value: TValue; out Literal: string): boolean; override;\r\n    function TryUrlToValue(const Literal: string; out Value: TValue): boolean; override;\r\n  end;\r\n\r\n  {$IFNDEF PAS2JS}\r\n  TXDataCurrencyConverter = class(TXDataTypeBaseConverter)\r\n  strict protected\r\n    function GetXDataType: TXDataScalarType; override;\r\n  strict protected\r\n    function TryValueToUrl(const Value: TValue; out Literal: string): boolean; override;\r\n    function TryUrlToValue(const Literal: string; out Value: TValue): boolean; override;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  TXDataDateTimeConverter = class(TXDataTypeBaseConverter)\r\n  strict protected\r\n    function GetXDataType: TXDataScalarType; override;\r\n  strict protected\r\n    function TryValueToUrl(const Value: TValue; out Literal: string): boolean; override;\r\n    function TryUrlToValue(const Literal: string; out Value: TValue): boolean; override;\r\n  end;\r\n\r\n  TXDataDateConverter = class(TXDataTypeBaseConverter)\r\n  strict protected\r\n    function GetXDataType: TXDataScalarType; override;\r\n  strict protected\r\n    function TryValueToUrl(const Value: TValue; out Literal: string): boolean; override;\r\n    function TryUrlToValue(const Literal: string; out Value: TValue): boolean; override;\r\n  end;\r\n\r\n  TXDataTimeConverter = class(TXDataTypeBaseConverter)\r\n  strict protected\r\n    function GetXDataType: TXDataScalarType; override;\r\n  strict protected\r\n    function TryValueToUrl(const Value: TValue; out Literal: string): boolean; override;\r\n    function TryUrlToValue(const Literal: string; out Value: TValue): boolean; override;\r\n  end;\r\n\r\n  TXDataBinaryConverter = class(TXDataTypeBaseConverter)\r\n  strict protected\r\n    function GetXDataType: TXDataScalarType; override;\r\n  strict protected\r\n    function TryValueToUrl(const Value: TValue; out Literal: string): boolean; override;\r\n    function TryUrlToValue(const Literal: string; out Value: TValue): boolean; override;\r\n  end;\r\n\r\n  TXDataStringConverter = class(TXDataTypeBaseConverter)\r\n  strict protected\r\n    function GetXDataType: TXDataScalarType; override;\r\n  strict protected\r\n    function TryValueToUrl(const Value: TValue; out Literal: string): boolean; override;\r\n    function TryUrlToValue(const Literal: string; out Value: TValue): boolean; override;\r\n  end;\r\n\r\n  TXDataUnquotedStringConverter = class(TXDataStringConverter)\r\n  strict protected\r\n    function TryValueToUrl(const Value: TValue; out Literal: string): boolean; override;\r\n  end;\r\n\r\n  TXDataCharConverter = class(TXDataTypeBaseConverter)\r\n  strict protected\r\n    function GetXDataType: TXDataScalarType; override;\r\n  strict protected\r\n    function TryValueToUrl(const Value: TValue; out Literal: string): boolean; override;\r\n    function TryUrlToValue(const Literal: string; out Value: TValue): boolean; override;\r\n  end;\r\n\r\n  TXDataGuidConverter = class(TXDataTypeBaseConverter)\r\n  strict protected\r\n    function GetXDataType: TXDataScalarType; override;\r\n  strict protected\r\n    function TryValueToUrl(const Value: TValue; out Literal: string): boolean; override;\r\n    function TryUrlToValue(const Literal: string; out Value: TValue): boolean; override;\r\n  end;\r\n\r\n  TXDataVariantConverter = class(TXDataTypeBaseConverter)\r\n  strict protected\r\n    function GetXDataType: TXDataScalarType; override;\r\n  strict protected\r\n    function TryValueToUrl(const Value: TValue; out Literal: string): boolean; override;\r\n    function TryUrlToValue(const Literal: string; out Value: TValue): boolean; override;\r\n  end;\r\n\r\n  TXDataEnumConverter = class(TXDataTypeConverter)\r\n  strict private\r\n    {$IFDEF AUTOREFCOUNT}[Weak]{$ENDIF}\r\n    FEnumType: TXDataEnumType;\r\n  strict protected\r\n    function GetXDataType: TXDataScalarType; override;\r\n  strict protected\r\n    function TryValueToUrl(const Value: TValue; out Literal: string): boolean; override;\r\n    function TryUrlToValue(const Literal: string; out Value: TValue): boolean; override;\r\n  public\r\n    constructor Create(AEnumType: TXDataEnumType); reintroduce;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  XData.Model.Types;\r\n\r\nprocedure AddDefaultUrlConverters;\r\nvar\r\n  Types: TXDataPrimitiveTypes;\r\nbegin\r\n  Types := TXDataPrimitiveTypes.Instance;\r\n\r\n  // Integer types\r\n  Types.Int32Type.UrlConverter := TXDataInt32Converter.Create;\r\n  Types.Int16Type.UrlConverter := TXDataInt16Converter.Create;\r\n  Types.Int64Type.UrlConverter := TXDataInt64Converter.Create;\r\n\r\n  // Boolean types\r\n  Types.BooleanType.UrlConverter := TXDataBooleanConverter.Create;\r\n\r\n  // Float types\r\n  Types.DoubleType.UrlConverter := TXDataDoubleConverter.Create;\r\n  {$IFDEF PAS2JS}\r\n  Types.CurrencyType.UrlConverter := TXDataDoubleConverter.Create;\r\n  {$ELSE}\r\n  Types.CurrencyType.UrlConverter := TXDataCurrencyConverter.Create;\r\n  {$ENDIF}\r\n\r\n  // Date time types\r\n  Types.DateTimeType.UrlConverter := TXDataDateTimeConverter.Create;\r\n  Types.DateType.UrlConverter := TXDataDateConverter.Create;\r\n  Types.TimeType.UrlConverter := TXDataTimeConverter.Create;\r\n\r\n  // Blob types\r\n  Types.BinaryType.UrlConverter := TXDataBinaryConverter.Create;\r\n  Types.StreamType.UrlConverter := TXDataBinaryConverter.Create;\r\n\r\n  // String types\r\n  Types.StringType.UrlConverter := TXDataStringConverter.Create;\r\n\r\n  // Char types\r\n//  Types.CharType.UrlConverter := TXDataCharConverter.Create;\r\n\r\n  // Guid types\r\n  Types.GuidType.UrlConverter := TXDataGuidConverter.Create;\r\n\r\n  // Variant\r\n  Types.VariantType.UrlConverter := TXDataVariantConverter.Create;\r\nend;\r\n\r\n{ TXDataIntegerConverter }\r\n\r\nfunction TXDataInt32Converter.GetXDataType: TXDataScalarType;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.Int32Type;\r\nend;\r\n\r\nfunction TXDataInt32Converter.TryUrlToValue(const Literal: string; out Value: TValue): boolean;\r\nvar\r\n  IntValue: integer;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.Int32Type.LiteralToValue(Literal, IntValue);\r\n  Value := IntValue;\r\nend;\r\n\r\nfunction TXDataInt32Converter.TryValueToUrl(const Value: TValue; out Literal: string): boolean;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.Int32Type.ValueToLiteral(\r\n    TValue_AsInteger(Value), Literal);\r\nend;\r\n\r\n{ TXDataInt16Converter }\r\n\r\nfunction TXDataInt16Converter.GetXDataType: TXDataScalarType;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.Int16Type;\r\nend;\r\n\r\nfunction TXDataInt16Converter.TryUrlToValue(const Literal: string; out Value: TValue): boolean;\r\nvar\r\n  IntValue: integer;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.Int16Type.LiteralToValue(Literal, IntValue);\r\n  Value := IntValue;\r\nend;\r\n\r\nfunction TXDataInt16Converter.TryValueToUrl(const Value: TValue; out Literal: string): boolean;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.Int16Type.ValueToLiteral(\r\n    TValue_AsInteger(Value), Literal);\r\nend;\r\n\r\n{ TXDataInt64Converter }\r\n\r\n{$IFNDEF PAS2JS}\r\nfunction TXDataInt64Converter.GetXDataType: TXDataScalarType;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.Int64Type;\r\nend;\r\n\r\nfunction TXDataInt64Converter.TryUrlToValue(const Literal: string; out Value: TValue): boolean;\r\nvar\r\n  IntValue: Int64;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.Int64Type.LiteralToValue(Literal, IntValue);\r\n  Value := IntValue;\r\nend;\r\n\r\nfunction TXDataInt64Converter.TryValueToUrl(const Value: TValue; out Literal: string): boolean;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.Int64Type.ValueToLiteral(\r\n    TValue_AsOrdinal(Value),\r\n    Literal);\r\nend;\r\n{$ENDIF}\r\n\r\n{ TXDataBooleanConverter }\r\n\r\nfunction TXDataBooleanConverter.GetXDataType: TXDataScalarType;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.BooleanType;\r\nend;\r\n\r\nfunction TXDataBooleanConverter.TryUrlToValue(const Literal: string; out Value: TValue): boolean;\r\nvar\r\n  BoolValue: boolean;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.BooleanType.LiteralToValue(Literal, BoolValue);\r\n  if Result then\r\n    Value := BoolValue;\r\nend;\r\n\r\nfunction TXDataBooleanConverter.TryValueToUrl(const Value: TValue; out Literal: string): boolean;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.BooleanType.ValueToLiteral(\r\n    TValue_AsBoolean(Value), Literal);\r\nend;\r\n\r\n{ TXDataDoubleConverter }\r\n\r\nfunction TXDataDoubleConverter.GetXDataType: TXDataScalarType;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.DoubleType;\r\nend;\r\n\r\nfunction TXDataDoubleConverter.TryUrlToValue(const Literal: string; out Value: TValue): boolean;\r\nvar\r\n  DoubleValue: Double;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.DoubleType.LiteralToValue(Literal, DoubleValue);\r\n  if Result then\r\n    Value := DoubleValue;\r\nend;\r\n\r\nfunction TXDataDoubleConverter.TryValueToUrl(const Value: TValue; out Literal: string): boolean;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.DoubleType.ValueToLiteral(\r\n    TValue_AsExtended(Value), Literal);\r\nend;\r\n\r\n{ TXDataDateTimeConverter }\r\n\r\nfunction TXDataDateTimeConverter.GetXDataType: TXDataScalarType;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.DateTimeType;\r\nend;\r\n\r\nfunction TXDataDateTimeConverter.TryUrlToValue(const Literal: string; out Value: TValue): boolean;\r\nvar\r\n  DateValue: TDateTime;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.DateTimeType.LiteralToValue(Literal, DateValue);\r\n  if Result then\r\n    Value := TValue_FromDateTime(DateValue);\r\nend;\r\n\r\nfunction TXDataDateTimeConverter.TryValueToUrl(const Value: TValue; out Literal: string): boolean;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  // for Pas2JS, value can be string thus we just bypass the value (todo: test format yyyy-mm-dd)\r\n  if JS.IsString(Value) then\r\n  begin\r\n    Result := True;\r\n    Literal := string(value);\r\n  end\r\n  else\r\n  {$ENDIF}\r\n  Result := TXDataPrimitiveTypes.Instance.DateTimeType.ValueToLiteral(\r\n    TDateTime(TValue_AsDouble(Value)), Literal);\r\nend;\r\n\r\n{ TXDataTimeConverter }\r\n\r\nfunction TXDataTimeConverter.GetXDataType: TXDataScalarType;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.TimeType;\r\nend;\r\n\r\nfunction TXDataTimeConverter.TryUrlToValue(const Literal: string; out Value: TValue): boolean;\r\nvar\r\n  TimeValue: TTime;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.TimeType.LiteralToValue(Literal, TimeValue);\r\n  if Result then\r\n    Value := TValue_FromTime(TimeValue);\r\nend;\r\n\r\nfunction TXDataTimeConverter.TryValueToUrl(const Value: TValue; out Literal: string): boolean;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  // for Pas2JS, value can be string thus we just bypass the value (todo: test format yyyy-mm-dd)\r\n  if JS.IsString(Value) then\r\n  begin\r\n    Result := True;\r\n    Literal := string(value);\r\n  end\r\n  else\r\n  {$ENDIF}\r\n  Result := TXDataPrimitiveTypes.Instance.TimeType.ValueToLiteral(\r\n    TTime(TValue_AsDouble(Value)), Literal);\r\nend;\r\n\r\n{ TXDataBinaryConverter }\r\n\r\nfunction TXDataBinaryConverter.GetXDataType: TXDataScalarType;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.BinaryType;\r\nend;\r\n\r\nfunction TXDataBinaryConverter.TryUrlToValue(const Literal: string; out Value: TValue): boolean;\r\nvar\r\n  Bytes: TBytes;\r\n  StringValue: string;\r\nbegin\r\n  StringValue := Literal;\r\n  LiteralUnquote(StringValue);\r\n  Result := TXDataPrimitiveTypes.Instance.BinaryType.LiteralToValue(StringValue, Bytes);\r\n  if Result then\r\n    Value := TValue_FromBytes(Bytes);\r\nend;\r\n\r\nfunction TXDataBinaryConverter.TryValueToUrl(const Value: TValue; out Literal: string): boolean;\r\nvar\r\n  Bytes: TBytes;\r\nbegin\r\n  Bytes := TValue_AsBytes(Value);\r\n  Result := TXDataPrimitiveTypes.Instance.BinaryType.ValueToLiteral(Bytes, Literal);\r\n  Literal := LiteralQuote(Literal);\r\nend;\r\n\r\n{ TXDataStringConverter<T>  }\r\n\r\nfunction TXDataStringConverter.GetXDataType: TXDataScalarType;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.StringType;\r\nend;\r\n\r\nfunction TXDataStringConverter.TryUrlToValue(const Literal: string; out Value: TValue): boolean;\r\nvar\r\n  StringValue: string;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.StringType.LiteralToValue(Literal, StringValue)\r\n    and LiteralUnquote(StringValue);\r\n  if Result then\r\n    Value := StringValue;\r\nend;\r\n\r\nfunction TXDataStringConverter.TryValueToUrl(const Value: TValue; out Literal: string): boolean;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.StringType.ValueToLiteral(\r\n    LiteralQuote(TValue_AsString(Value)), Literal);\r\nend;\r\n\r\n{ TXDataCharConverter<T> }\r\n\r\nfunction TXDataCharConverter.GetXDataType: TXDataScalarType;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.StringType;\r\nend;\r\n\r\nfunction TXDataCharConverter.TryUrlToValue(const Literal: string; out Value: TValue): boolean;\r\nvar\r\n  StringValue: string;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.StringType.LiteralToValue(Literal, StringValue)\r\n    and LiteralUnquote(StringValue);\r\n  if Result then\r\n    Value := StringValue;\r\nend;\r\n\r\nfunction TXDataCharConverter.TryValueToUrl(const Value: TValue; out Literal: string): boolean;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.StringType.ValueToLiteral(\r\n    LiteralQuote(TValue_AsString(Value)), Literal);\r\nend;\r\n\r\n{ TXDataGuidConverter }\r\n\r\nfunction TXDataGuidConverter.GetXDataType: TXDataScalarType;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.GuidType;\r\nend;\r\n\r\n{$IFDEF PAS2JS}\r\ntype TGuid = string;\r\n{$ENDIF}\r\n\r\nfunction TXDataGuidConverter.TryUrlToValue(const Literal: string; out Value: TValue): boolean;\r\nvar\r\n  GuidValue: TGuid;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.GuidType.LiteralToValue(Literal, GuidValue);\r\n  if Result then\r\n    {$IFDEF PAS2JS}\r\n    Value := GuidValue;\r\n    {$ELSE}\r\n    Value := TValue.From<TGuid>(GuidValue);\r\n    {$ENDIF}\r\nend;\r\n\r\nfunction TXDataGuidConverter.TryValueToUrl(const Value: TValue; out Literal: string): boolean;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := TXDataPrimitiveTypes.Instance.GuidType.ValueToLiteral(TValue_AsString(Value), Literal);\r\n  {$ELSE}\r\n  Result := TXDataPrimitiveTypes.Instance.GuidType.ValueToLiteral(Value.AsType<TGuid>, Literal);\r\n  {$ENDIF}\r\nend;\r\n\r\n{ TXDataCurrencyConverter }\r\n\r\n{$IFNDEF PAS2JS}\r\nfunction TXDataCurrencyConverter.GetXDataType: TXDataScalarType;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.CurrencyType;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFNDEF PAS2JS}\r\nfunction TXDataCurrencyConverter.TryUrlToValue(const Literal: string; out Value: TValue): boolean;\r\nvar\r\n  Curr: Currency;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.CurrencyType.LiteralToValue(Literal, Curr);\r\n  if Result then\r\n    Value := Curr;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFNDEF PAS2JS}\r\nfunction TXDataCurrencyConverter.TryValueToUrl(const Value: TValue; out Literal: string): boolean;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.CurrencyType.ValueToLiteral(Value.AsCurrency, Literal);\r\nend;\r\n{$ENDIF}\r\n\r\n{ TXDataEnumConverter }\r\n\r\nconstructor TXDataEnumConverter.Create(AEnumType: TXDataEnumType);\r\nbegin\r\n  FEnumType := AEnumType;\r\nend;\r\n\r\nfunction TXDataEnumConverter.GetXDataType: TXDataScalarType;\r\nbegin\r\n  Result := FEnumType;\r\nend;\r\n\r\nfunction TXDataEnumConverter.TryUrlToValue(const Literal: string; out Value: TValue): boolean;\r\nvar\r\n  I: integer;\r\n  StringValue: string;\r\nbegin\r\n  StringValue := Literal;\r\n  Result := False;\r\n  if LiteralUnquote(StringValue) then\r\n    for I := 0 to FEnumType.Members.Count - 1 do\r\n      if StringValue = FEnumType.Members[I].Name then\r\n      begin\r\n        Value := FEnumType.Members[I].Value;\r\n        Exit(True);\r\n      end;\r\nend;\r\n\r\nfunction TXDataEnumConverter.TryValueToUrl(const Value: TValue; out Literal: string): boolean;\r\nvar\r\n  I: Integer;\r\n  EnumValue: Integer;\r\nbegin\r\n  EnumValue := TValue_AsOrdinal(Value);\r\n  Result := False;\r\n  for I := 0 to FEnumType.Members.Count - 1 do\r\n    if EnumValue = FEnumType.Members[I].Value then\r\n    begin\r\n      Result := TXDataPrimitiveTypes.Instance.StringType.ValueToLiteral(\r\n        FEnumType.Members[I].Name,\r\n        Literal);\r\n      Exit;\r\n    end;\r\nend;\r\n\r\n{ TXDataDateConverter }\r\n\r\nfunction TXDataDateConverter.GetXDataType: TXDataScalarType;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.DateType;\r\nend;\r\n\r\nfunction TXDataDateConverter.TryUrlToValue(const Literal: string; out Value: TValue): boolean;\r\nvar\r\n  DateValue: TDate;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.DateType.LiteralToValue(Literal, DateValue);\r\n  if Result then\r\n    Value := TValue_FromDate(DateValue);\r\nend;\r\n\r\nfunction TXDataDateConverter.TryValueToUrl(const Value: TValue; out Literal: string): boolean;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  // for Pas2JS, value can be string thus we just bypass the value (todo: test format yyyy-mm-dd)\r\n  if JS.IsString(Value) then\r\n  begin\r\n    Result := True;\r\n    Literal := string(value);\r\n  end\r\n  else\r\n  {$ENDIF}\r\n  Result := TXDataPrimitiveTypes.Instance.DateType.ValueToLiteral(\r\n    TDate(TValue_AsDouble(Value)), Literal);\r\nend;\r\n\r\n{ TXDataVariantConverter }\r\n\r\nfunction TXDataVariantConverter.GetXDataType: TXDataScalarType;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.VariantType;\r\nend;\r\n\r\n{$IFDEF PAS2JS}\r\ntype\r\n  Variant = JSValue;\r\n{$ENDIF}\r\n\r\nfunction TXDataVariantConverter.TryUrlToValue(const Literal: string; out Value: TValue): boolean;\r\nvar\r\n  VariantValue: Variant;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.VariantType.LiteralToValue(Literal, VariantValue);\r\n  {$IFNDEF PAS2JS}\r\n  if Result then\r\n    Value := TValue.From<Variant>(VariantValue);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TXDataVariantConverter.TryValueToUrl(const Value: TValue; out Literal: string): boolean;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.VariantType.ValueToLiteral(\r\n    {$IFDEF PAS2JS}\r\n    Value,\r\n    {$ELSE}\r\n    Value.AsType<Variant>,\r\n    {$ENDIF}\r\n    Literal);\r\nend;\r\n\r\n{ TXDataUnquotedStringConverter }\r\n\r\nfunction TXDataUnquotedStringConverter.TryValueToUrl(const Value: TValue; out Literal: string): boolean;\r\nbegin\r\n  Result := TXDataPrimitiveTypes.Instance.StringType.ValueToLiteral(TValue_AsString(Value), Literal);\r\nend;\r\n\r\ninitialization\r\n  AddDefaultUrlConverters;\r\n\r\nend.\r\n\r\n","unit XData.Utils;\r\n\r\n{$I XData.inc}\r\n\r\ninterface\r\n\r\nuses\r\n  SysUtils;\r\n\r\ntype\r\n  TXDataUtils = class\r\n  public\r\n    class function GetNameAndKey(const Input: string; out Name, Key: string): boolean;\r\n    class procedure GetQualifiedName(const AQualifiedName: string; out APrefix, AName: string); {$IFNDEF PAS2JS}{$IFNDEF PAS2JS}static;{$ENDIF}{$ENDIF}\r\n    class function XSBoolean(const S: string; ADefault: boolean = false): boolean; {$IFNDEF PAS2JS}inline; static;{$ENDIF}\r\n//    class function DateTimeToDayTimeDuration(const Value: TTime): string; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n//    class function TryDayTimeDurationToDateTime(const Value: string; out Time: TTime): boolean; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n    class function CombineUrlFast(const AbsoluteUrl, RelativeUrl: string): string; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n    {$IFDEF PAS2JS}\r\n    class function DateTimeToUnix(const Value: TDateTime): Integer;\r\n    {$ELSE}\r\n    class function DateTimeToUnix(const Value: TDateTime): Int64; static;\r\n    {$ENDIF}\r\n    class function DateTimeToJson(const Value: TDateTime): string; {$IFNDEF PAS2JS}static;{$ENDIF}\r\n  end;\r\n\r\nimplementation\r\n\r\n{ TXDataUtils }\r\n\r\nclass function TXDataUtils.CombineUrlFast(const AbsoluteUrl,\r\n  RelativeUrl: string): string;\r\nbegin\r\n  // Do a faster url combination because we know RelativeUrl comes correct\r\n  Result := AbsoluteUrl;\r\n  if (Length(Result) > 0) and (Result[Length(Result)] <> '/') then\r\n    Result := Result + '/';\r\n  Result := Result + RelativeUrl;\r\nend;\r\n\r\n//class function TXDataUtils.DateTimeToDayTimeDuration(\r\n//  const Value: TTime): string;\r\n//var\r\n//  D, H, M, S, MS: Word;\r\n//begin\r\n//  D := Trunc(Value);\r\n//  DecodeTime(Value, H, M, S, MS);\r\n//  Result := 'P';\r\n//  if D > 0 then\r\n//    Result := Result + IntToStr(D) + 'D';\r\n//  if H > 0 then\r\n//    Result := Result + IntToStr(H) + 'H';\r\n//  if M > 0 then\r\n//    Result := Result + IntToStr(M) + 'M';\r\n//  if S > 0 then\r\n//    Result := Result + IntToStr(S) + 'S';\r\n//  if Result = 'P' then\r\n//    Result := 'P0D';\r\n//end;\r\n\r\nclass function TXDataUtils.DateTimeToJson(const Value: TDateTime): string;\r\nbegin\r\n  Result := Format('\\/Date(%d)\\/', [DateTimeToUnix(Value) * 1000]);\r\nend;\r\n\r\n{$IFDEF PAS2JS}\r\nclass function TXDataUtils.DateTimeToUnix(const Value: TDateTime): Integer;\r\n{$ELSE}\r\nclass function TXDataUtils.DateTimeToUnix(const Value: TDateTime): Int64;\r\n{$ENDIF}\r\nbegin\r\n  Result := Round((Value - UnixDateDelta) * SecsPerDay);\r\nend;\r\n\r\nclass function TXDataUtils.GetNameAndKey(const Input: string; out Name, Key: string): boolean;\r\nvar\r\n  P1: integer;\r\n  Len: integer;\r\n  KeyLen: integer;\r\nbegin\r\n  P1 := Pos('(', Input);\r\n  Len := Length(Input);\r\n  KeyLen := Len - P1 - 1;\r\n  Result :=\r\n    (P1 > 1) //open parentesis must exist and must have one space for name\r\n    and (Len >= 4) // at least one char for name and one char for key plus 2 parentesis: A(B)\r\n    and (Input[Len] = ')') // last char must be close parentesis\r\n    and (KeyLen > 0); // and key must have at least one char\r\n  if Result then\r\n  begin\r\n    Name := Copy(Input, 1, P1 - 1);\r\n    Key := Copy(Input, P1 + 1, KeyLen);\r\n  end;\r\nend;\r\n\r\nclass procedure TXDataUtils.GetQualifiedName(const AQualifiedName: string;\r\n  out APrefix, AName: string);\r\nvar\r\n  I, Len: integer;\r\nbegin\r\n  Len := Length(AQualifiedName);\r\n  I := Len;\r\n  while I > 0 do\r\n  begin\r\n    if AQualifiedName[I] = '.' then\r\n      break;\r\n    Dec(I);\r\n  end;\r\n  if I > 0 then\r\n  begin\r\n    APrefix := Copy(AQualifiedName, 1, I - 1);\r\n    AName := Copy(AQualifiedName, I + 1, MaxInt)\r\n  end\r\n  else\r\n  begin\r\n    APrefix := '';\r\n    AName := AQualifiedName;\r\n  end;\r\nend;\r\n\r\n//class function TXDataUtils.TryDayTimeDurationToDateTime(const Value: string;\r\n//  out Time: TTime): boolean;\r\n//var\r\n//  Len: integer;\r\n//  Day, Hour, Min, Sec: integer;\r\n//\r\n//  function ExtractNumber(const Value: string; var I: integer): boolean;\r\n//  var\r\n//    Start: integer;\r\n//    C: Char;\r\n//    Number: integer;\r\n//  begin\r\n//    Start := I;\r\n//    {$IFDEF DELPHIXE4_LVL}\r\n//    while (I <= Len) and Value[I].IsDigit do\r\n//    {$ELSE}\r\n//    while (I <= Len) and IsDigit(Value[I]) do\r\n//    {$ENDIF}\r\n//      Inc(I);\r\n//    Result := TryStrToInt(Copy(Value, Start, I - Start), Number) and (I <= Len);\r\n//    if Result then\r\n//    begin\r\n//      C := Value[I];\r\n//      Inc(I);\r\n//      if C = 'D' then\r\n//        Day := Number\r\n//      else\r\n//      if C = 'H' then\r\n//        Hour := Number\r\n//      else\r\n//      if C = 'M' then\r\n//        Min := Number\r\n//      else\r\n//      if C = 'S' then\r\n//        Sec := Number\r\n//      else\r\n//        Result := false;\r\n//    end;\r\n//  end;\r\n//\r\n//var\r\n//  I: integer;\r\n//begin\r\n//  Len := Length(Value);\r\n//  if (Len = 0) or (Value[1] <> 'P') then\r\n//    Exit(false);\r\n//  I := 2;\r\n//\r\n//  Day := 0;\r\n//  Hour := 0;\r\n//  Min := 0;\r\n//  Sec := 0;\r\n//\r\n//  // at least one part must exist\r\n//  if not ExtractNumber(Value, I) then\r\n//    Exit(false);\r\n//\r\n//  // now extract as many as exist\r\n//  while ExtractNumber(Value, I) do ;\r\n//  Time := EncodeTime(Hour, Min, Sec, 0);\r\n//  Result := true;\r\n//end;\r\n\r\nclass function TXDataUtils.XSBoolean(const S: string; ADefault: boolean): boolean;\r\nbegin\r\n  if S = '' then\r\n    Exit(ADefault);\r\n  Result := (S = 'true') or (S = '1') or (S = 'yes');\r\nend;\r\n\r\nend.\r\n\r\n","unit XData.Model.Classes;\r\n\r\n{$I XData.inc}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, SysUtils, Types, StrUtils, TypInfo,\r\n  {$IFDEF ISDELPHI}\r\n  Rtti,\r\n  Bcl.TypInfo.Common,\r\n  {$ELSE}\r\n//  JS,\r\n  {$ENDIF}\r\n  {$IFDEF GENERICS}\r\n  Generics.Defaults,\r\n  Generics.Collections,\r\n  {$ELSE}\r\n  Contnrs,\r\n  {$ENDIF}\r\n  Bcl.Json.Attributes,\r\n  Bcl.Collections.Common,\r\n  Bcl.Rtti.Common;\r\n\r\ntype\r\n//  TXDataVersion = (v1, v2);\r\n  TXDataEntityType = class;\r\n  TXDataStructuredType = class;\r\n  TXDataInstanceType = class;\r\n\r\n  TXTypeKind = (\r\n    xtUndefined,\r\n    xtText,\r\n    xtInt32,\r\n    xtInt64,\r\n    xtDouble,\r\n    xtBoolean,\r\n    xtDateTime,\r\n    xtDate,\r\n    xtTime,\r\n    xtCurrency,\r\n    xtGuid,\r\n    xtVariant,\r\n    xtBinary,\r\n    xtStream,\r\n    xtInt16,\r\n    xtByte,\r\n    xtSByte,\r\n    xtEntity,\r\n    xtEntityCollection,\r\n    xtEnum,\r\n    xtScalarCollection,\r\n    xtRaw,\r\n    xtInstance,\r\n    xtInstanceCollection\r\n  );\r\n\r\n  TXDataSchema = class;\r\n  TXDataModel = class;\r\n  TXDataTypeConverter = class;\r\n\r\n  /// <summary>\r\n  ///   Base class for all XData model classes.\r\n  /// </summary>\r\n  [JsonInclude(TInclusionMode.NonDefault)]\r\n  TXDataModelObject = class\r\n  strict private\r\n    [JsonIgnore]\r\n    FData: TValue;\r\n    [JsonIgnore]\r\n    FOwnsDataObject: Boolean;\r\n    FDescription: string;\r\n    {$IFDEF AUTOREFCOUNT}[Weak]{$ENDIF}\r\n    [JsonIgnore]\r\n    FParent: TXDataModelObject;\r\n  protected\r\n    property Parent: TXDataModelObject read FParent write FParent;\r\n  public\r\n    destructor Destroy; override;\r\n\r\n    /// <summary>\r\n    ///   A holder for arbitrary data associated with the XData model object.\r\n    /// </summary>\r\n    property Data: TValue read FData write FData;\r\n    property OwnsDataObject: boolean read FOwnsDataObject write FOwnsDataObject;\r\n    property Description: string read FDescription write FDescription;\r\n  end;\r\n\r\n  {$IFDEF GENERICS}\r\n  {$ELSE}\r\n  TXDataOwnedList = class(TObjectList)\r\n  private\r\n    [JsonIgnore]\r\n    {$IFDEF AUTOREFCOUNT}[Weak]{$ENDIF}\r\n    FOwner: TXDataModelObject;\r\n  protected\r\n    {$IFDEF PAS2JS}\r\n    procedure Notify(Ptr: JSValue; Action: TListNotification); override;\r\n    {$ELSE}\r\n    procedure Notify(Ptr: Pointer; Action: TListNotification); override;\r\n    {$ENDIF}\r\n  public\r\n    constructor Create(AOwner: TXDataModelObject); overload;\r\n    constructor Create; reintroduce; overload;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  /// <summary>\r\n  ///   Base type for all XData model classes representing types.\r\n  /// </summary>\r\n  TXDataType = class(TXDataModelObject)\r\n  strict private\r\n    FName: string;\r\n    [JsonIgnore] FUrlConverter: TXDataTypeConverter;\r\n  strict protected\r\n    function GetName: string; virtual;\r\n    function GetIsCollection: boolean; virtual;\r\n    function GetWrappedType: TXDataType; virtual;\r\n    function GetTypeKind: TXTypeKind; virtual;\r\n  public\r\n    function QualifiedName: string; virtual;\r\n    property Name: string read GetName write FName;\r\n    property IsCollection: boolean read GetIsCollection;\r\n    property WrappedType: TXDataType read GetWrappedType;\r\n    property TypeKind: TXTypeKind read GetTypeKind;\r\n    property UrlConverter: TXDataTypeConverter read FUrlConverter write FUrlConverter;\r\n  end;\r\n\r\n  TXDataScalarCollectionType = class;\r\n\r\n  TXDataScalarType = class(TXDataType)\r\n  strict private\r\n    [JsonIgnore]\r\n    FCollection: TXDataScalarCollectionType;\r\n  strict protected\r\n    function GetCollection: TXDataScalarType;\r\n  public\r\n    destructor Destroy; override;\r\n    property Collection: TXDataScalarType read GetCollection;\r\n  end;\r\n\r\n  TXDataEnumMember = class(TXDataModelObject)\r\n  private\r\n    FName: string;\r\n    FValue: integer;\r\n  public\r\n    property Name: string read FName write FName;\r\n    property Value: integer read FValue write FValue;\r\n  end;\r\n\r\n  {$IFDEF GENERICS}\r\n  TXDataEnumMemberList = TList<TXDataEnumMember>;\r\n  {$ELSE}\r\n  TXDataEnumMemberList = class(TObjectList)\r\n  private\r\n    function GetItem(Index: Integer): TXDataEnumMember; reintroduce;\r\n  public\r\n    property Items[Index: Integer]: TXDataEnumMember read GetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  [JsonInclude(TInclusionMode.NonDefault)]\r\n  TXDataEnumType = class(TXDataScalarType)\r\n  strict private\r\n    FMembers: TXDataEnumMemberList;\r\n    function GetSchema: TXDataSchema;\r\n  strict protected\r\n    function GetTypeKind: TXTypeKind; override;\r\n  public\r\n    function QualifiedName: string; override;\r\n    property Schema: TXDataSchema read GetSchema;\r\n  public\r\n    constructor Create; reintroduce;\r\n    destructor Destroy; override;\r\n    function AddMember(const AName: string; AValue: integer): TXDataEnumMember;\r\n    property Members: TXDataEnumMemberList read FMembers;\r\n  end;\r\n\r\n  {$IFDEF GENERICS}\r\n  TXDataEnumTypeList = TList<TXDataEnumType>;\r\n  {$ELSE}\r\n  TXDataEnumTypeList = class(TXDataOwnedList)\r\n  private\r\n    function GetItem(Index: Integer): TXDataEnumType; reintroduce;\r\n  public\r\n    property Items[Index: Integer]: TXDataEnumType read GetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  TXDataScalarCollectionType = class(TXDataScalarType)\r\n  strict private\r\n    {$IFDEF AUTOREFCOUNT}[Weak]{$ENDIF}\r\n    [JsonIgnore]\r\n    FItemType: TXDataScalarType;\r\n  strict protected\r\n    function GetIsCollection: boolean; override;\r\n    function GetName: string; override;\r\n    function GetWrappedType: TXDataType; override;\r\n    function GetTypeKind: TXTypeKind; override;\r\n  public\r\n    function QualifiedName: string; override;\r\n    property ItemType: TXDataScalarType read FItemType write FItemType;\r\n  end;\r\n\r\n  TDocRequired = (Default, Required, NotRequired);\r\n\r\n  [JsonInclude(TInclusionMode.NonDefault)]\r\n  TXDataProperty = class(TXDataModelObject)\r\n  strict private\r\n    FName: string;\r\n    FRequired: Boolean;\r\n    [JsonIgnore]\r\n    FDocRequired: TDocRequired;\r\n    function GetParent: TXDataStructuredType;\r\n  strict protected\r\n    function GetTypeKind: TXTypeKind; virtual; abstract;\r\n    function GetValueType: TXDataType; virtual; abstract;\r\n  public\r\n    function IsSimple: Boolean; virtual; abstract;\r\n    property Parent: TXDataStructuredType read GetParent;\r\n    property TypeKind: TXTypeKind read GetTypeKind;\r\n  public\r\n    constructor Create; reintroduce;\r\n    destructor Destroy; override;\r\n    function QualifiedName: string;\r\n    property Name: string read FName write FName;\r\n    property Required: Boolean read FRequired write FRequired;\r\n    property DocRequired: TDocRequired read FDocRequired write FDocRequired;\r\n    property ValueType: TXDataType read GetValueType;\r\n  end;\r\n\r\n  {$IFDEF GENERICS}\r\n  TXDataPropertyList = TList<TXDataProperty>;\r\n  {$ELSE}\r\n  TXDataPropertyList = class(TObjectList)\r\n  private\r\n    function GetItem(Index: Integer): TXDataProperty; reintroduce;\r\n  public\r\n    property Items[Index: Integer]: TXDataProperty read GetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  [JsonInclude(TInclusionMode.NonDefault)]\r\n  TXDataScalarProperty = class(TXDataProperty)\r\n  strict private\r\n    [JsonIgnore] FType: TXDataScalarType;\r\n    FLength: Integer;\r\n    FPrecision: Integer;\r\n    FScale: Integer;\r\n    procedure SetType(const Value: TXDataScalarType);\r\n    function GetUrlConverter: TXDataTypeConverter;\r\n  private\r\n    [JsonIgnore] FTypeRef: string;\r\n    function GetTypeRef: string;\r\n  private\r\n    [JsonIgnore]\r\n    FDefaultValue: TValue;\r\n    [JsonIgnore]\r\n    FHasDefaultValue: Boolean;\r\n    procedure SetDefaultValue(const Value: TValue);\r\n  strict protected\r\n    function GetTypeKind: TXTypeKind; override;\r\n    function GetValueType: TXDataType; override;\r\n  public\r\n    function IsSimple: Boolean; override;\r\n    [JsonProperty('Type')]\r\n    property TypeRef: string read GetTypeRef write FTypeRef;\r\n    property UrlConverter: TXDataTypeConverter read GetUrlConverter;\r\n    property PropertyType: TXDataScalarType read FType write SetType;\r\n    property Length: Integer read FLength write FLength;\r\n    property Precision: Integer read FPrecision write FPrecision;\r\n    property Scale: Integer read FScale write FScale;\r\n    property DefaultValue: TValue read FDefaultValue write SetDefaultValue;\r\n    property HasDefaultValue: Boolean read FHasDefaultValue write FHasDefaultValue;\r\n  end;\r\n\r\n  TXDataSimpleProperty = class(TXDataScalarProperty)\r\n  strict private\r\n    function GetParent: TXDataEntityType;\r\n  private\r\n    procedure Prepare;\r\n  public\r\n    property Parent: TXDataEntityType read GetParent;\r\n  end;\r\n\r\n  TXDataInstanceSimpleProperty = class(TXDataScalarProperty)\r\n  strict private\r\n    function GetParent: TXDataInstanceType;\r\n  private\r\n    procedure Prepare;\r\n  public\r\n    property Parent: TXDataInstanceType read GetParent;\r\n  end;\r\n\r\n  {$IFDEF GENERICS}\r\n  TXDataSimplePropertyList = TList<TXDataSimpleProperty>;\r\n  {$ELSE}\r\n  TXDataSimplePropertyList = class(TXDataOwnedList)\r\n  private\r\n    function GetItem(Index: Integer): TXDataSimpleProperty; reintroduce;\r\n  public\r\n    property Items[Index: Integer]: TXDataSimpleProperty read GetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF GENERICS}\r\n  TXDataInstanceScalarPropertyList = TList<TXDataInstanceSimpleProperty>;\r\n  {$ELSE}\r\n  TXDataInstanceScalarPropertyList = class(TXDataOwnedList)\r\n  private\r\n    function GetItem(Index: Integer): TXDataInstanceSimpleProperty; reintroduce;\r\n  public\r\n    property Items[Index: Integer]: TXDataInstanceSimpleProperty read GetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  [JsonInclude(TInclusionMode.NonDefault)]\r\n  TXDataStructuredProperty = class(TXDataProperty)\r\n  private\r\n    [JsonIgnore] FTargetRef: string;\r\n    function GetTargetRef: string;\r\n  strict protected\r\n    function GetTarget: TXDataStructuredType; virtual; abstract;\r\n    function GetValueType: TXDataType; override;\r\n  public\r\n    [JsonProperty('Target')]\r\n    property TargetRef: string read GetTargetRef write FTargetRef;\r\n    function IsSimple: Boolean; override;\r\n    property Target: TXDataStructuredType read GetTarget;\r\n  end;\r\n\r\n  [JsonInclude(TInclusionMode.NonDefault)]\r\n  TXDataInstanceNavigationProperty = class(TXDataStructuredProperty)\r\n  strict private\r\n    [JsonIgnore] FTarget: TXDataStructuredType;\r\n    function GetParent: TXDataInstanceType;\r\n  private\r\n    procedure Prepare;\r\n  strict protected\r\n    function GetTypeKind: TXTypeKind; override;\r\n    function GetTarget: TXDataStructuredType; override;\r\n  public\r\n    property Target: TXDataStructuredType read FTarget write FTarget;\r\n    property Parent: TXDataInstanceType read GetParent;\r\n  end;\r\n\r\n  [JsonInclude(TInclusionMode.NonDefault)]\r\n  TXDataNavigationProperty = class(TXDataStructuredProperty)\r\n  strict private\r\n    [JsonIgnore] FTarget: TXDataEntityType;\r\n    function GetParent: TXDataEntityType;\r\n  private\r\n    procedure Prepare;\r\n  strict protected\r\n    function GetTypeKind: TXTypeKind; override;\r\n    function GetTarget: TXDataStructuredType; override;\r\n  public\r\n    property Target: TXDataEntityType read FTarget write FTarget;\r\n    property Parent: TXDataEntityType read GetParent;\r\n  end;\r\n\r\n  {$IFDEF GENERICS}\r\n  TXDataNavigationPropertyList = TList<TXDataNavigationProperty>;\r\n  {$ELSE}\r\n  TXDataNavigationPropertyList = class(TXDataOwnedList)\r\n  private\r\n    function GetItem(Index: Integer): TXDataNavigationProperty; reintroduce;\r\n  public\r\n    property Items[Index: Integer]: TXDataNavigationProperty read GetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF GENERICS}\r\n  TXDataInstanceNavigationPropertyList = TList<TXDataInstanceNavigationProperty>;\r\n  {$ELSE}\r\n  TXDataInstanceNavigationPropertyList = class(TXDataOwnedList)\r\n  private\r\n    function GetItem(Index: Integer): TXDataInstanceNavigationProperty; reintroduce;\r\n  public\r\n    property Items[Index: Integer]: TXDataInstanceNavigationProperty read GetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  TXDataSimplePropertyArray = array of TXDataSimpleProperty;\r\n\r\n  TXDataStructuredType = class(TXDataType)\r\n  strict private\r\n    function GetSchema: TXDataSchema;\r\n  public\r\n    function ScalarPropertyCount: Integer; virtual; abstract;\r\n    function GetScalarProperty(Index: Integer): TXDataScalarProperty; virtual; abstract;\r\n    function StructuredPropertyCount: Integer; virtual; abstract;\r\n    function GetStructuredProperty(Index: Integer): TXDataStructuredProperty; virtual; abstract;\r\n    function FindScalarProperty(const AName: string): TXDataScalarProperty; virtual;\r\n    function FindStructuredProperty(const AName: string): TXDataStructuredProperty; virtual;\r\n    function FindAnyProperty(const AName: string): TXDataProperty; virtual;\r\n    property Schema: TXDataSchema read GetSchema;\r\n  end;\r\n\r\n  TXDataInstanceCollectionType = class;\r\n\r\n  [JsonInclude(TInclusionMode.NonDefault)]\r\n  TXDataInstanceType = class(TXDataStructuredType)\r\n  strict private\r\n    [JsonIgnore]\r\n    FBaseType: TXDataInstanceType;\r\n    FProperties: TXDataInstanceScalarPropertyList;\r\n    FNavigationProperties: TXDataInstanceNavigationPropertyList;\r\n    [JsonIgnore]\r\n    FCollection: TXDataInstanceCollectionType;\r\n  private\r\n    [JsonIgnore]\r\n    FBaseTypeRef: string;\r\n    function GetBaseTypeRef: string;\r\n  public\r\n    [JsonProperty('BaseType')]\r\n    property BaseTypeRef: string read GetBaseTypeRef write FBaseTypeRef;\r\n  private\r\n    procedure Prepare;\r\n  strict protected\r\n    function GetCollection: TXDataInstanceCollectionType;\r\n    function GetTypeKind: TXTypeKind; override;\r\n  public\r\n    function ScalarPropertyCount: Integer; override;\r\n    function GetScalarProperty(Index: Integer): TXDataScalarProperty; override;\r\n    function StructuredPropertyCount: Integer; override;\r\n    function GetStructuredProperty(Index: Integer): TXDataStructuredProperty; override;\r\n    function QualifiedName: string; override;\r\n  public\r\n    constructor Create; reintroduce;\r\n    destructor Destroy; override;\r\n    property BaseType: TXDataInstanceType read FBaseType write FBaseType;\r\n    property Properties: TXDataInstanceScalarPropertyList read FProperties;\r\n    property NavigationProperties: TXDataInstanceNavigationPropertyList read FNavigationProperties;\r\n    property Collection: TXDataInstanceCollectionType read GetCollection;\r\n  end;\r\n\r\n  TXDataInstanceCollectionType = class(TXDataInstanceType)\r\n  strict private\r\n    {$IFDEF AUTOREFCOUNT}[Weak]{$ENDIF}\r\n    [JsonIgnore]\r\n    FItemType: TXDataInstanceType;\r\n  strict protected\r\n    function GetName: string; override;\r\n    function GetIsCollection: Boolean; override;\r\n    function GetWrappedType: TXDataType; override;\r\n    function GetTypeKind: TXTypeKind; override;\r\n  public\r\n    function QualifiedName: string; override;\r\n    property ItemType: TXDataInstanceType read FItemType write FItemType;\r\n  end;\r\n\r\n  TXDataEntityCollectionType = class;\r\n  TXDataEntitySet = class;\r\n\r\n  [JsonInclude(TInclusionMode.NonDefault)]\r\n  TXDataEntityType = class(TXDataStructuredType)\r\n  strict private\r\n    [JsonIgnore]\r\n    FKey: TXDataPropertyList;\r\n    [JsonIgnore]\r\n    FBaseType: TXDataEntityType;\r\n    FProperties: TXDataSimplePropertyList;\r\n    FNavigationProperties: TXDataNavigationPropertyList;\r\n    [JsonIgnore]\r\n    FCollection: TXDataEntityCollectionType;\r\n    {$IFDEF AUTOREFCOUNT}[Weak]{$ENDIF}\r\n    [JsonIgnore]\r\n    FDefaultEntitySet: TXDataEntitySet;\r\n  private\r\n    [JsonIgnore]\r\n    FBaseTypeRef: string;\r\n    [JsonIgnore]\r\n    FKeyRef: TStringDynArray;\r\n    function GetBaseTypeRef: string;\r\n    function GetKeyRef: TStringDynArray;\r\n  public\r\n    [JsonProperty('BaseType')]\r\n    property BaseTypeRef: string read GetBaseTypeRef write FBaseTypeRef;\r\n    [JsonProperty('Key')]\r\n    property KeyRef: TStringDynArray read GetKeyRef write FKeyRef;\r\n  private\r\n    procedure Prepare;\r\n  strict protected\r\n    function GetCollection: TXDataEntityCollectionType;\r\n    function GetTypeKind: TXTypeKind; override;\r\n  private\r\n    property DefaultEntitySet: TXDataEntitySet read FDefaultEntitySet write FDefaultEntitySet;\r\n  public\r\n    function ScalarPropertyCount: Integer; override;\r\n    function GetScalarProperty(Index: Integer): TXDataScalarProperty; override;\r\n    function StructuredPropertyCount: Integer; override;\r\n    function GetStructuredProperty(Index: Integer): TXDataStructuredProperty; override;\r\n    function QualifiedName: string; override;\r\n    function FindScalarProperty(const AName: string): TXDataScalarProperty; override;\r\n    function FindStructuredProperty(const AName: string): TXDataStructuredProperty; override;\r\n    function FindProperty(const AName: string): TXDataSimpleProperty;\r\n    function FindNavigationProperty(const AName: string): TXDataNavigationProperty;\r\n    function IsInheritedFrom(ABase: TXDataEntityType): boolean;\r\n    function RootType: TXDataEntityType;\r\n    function KeyScalarProperties: TXDataSimplePropertyArray;\r\n  public\r\n    constructor Create; reintroduce;\r\n    destructor Destroy; override;\r\n    property BaseType: TXDataEntityType read FBaseType write FBaseType;\r\n    property Key: TXDataPropertyList read FKey;\r\n    property Properties: TXDataSimplePropertyList read FProperties;\r\n    property NavigationProperties: TXDataNavigationPropertyList read FNavigationProperties;\r\n    property Collection: TXDataEntityCollectionType read GetCollection;\r\n  end;\r\n\r\n  TXDataEntityCollectionType = class(TXDataEntityType)\r\n  strict private\r\n    {$IFDEF AUTOREFCOUNT}[Weak]{$ENDIF}\r\n    [JsonIgnore]\r\n    FItemType: TXDataEntityType;\r\n  strict protected\r\n    function GetName: string; override;\r\n    function GetIsCollection: boolean; override;\r\n    function GetWrappedType: TXDataType; override;\r\n    function GetTypeKind: TXTypeKind; override;\r\n  public\r\n    function QualifiedName: string; override;\r\n    property ItemType: TXDataEntityType read FItemType write FItemType;\r\n  end;\r\n\r\n  TXDataEntityContainer = class;\r\n\r\n  [JsonInclude(TInclusionMode.NonDefault)]\r\n  TXDataEntitySet = class(TXDataModelObject)\r\n  strict private\r\n    FName: string;\r\n    [JsonIgnore]\r\n    FEntityType: TXDataEntityType;\r\n    [JsonIgnore]\r\n    FTagName: string;\r\n    [JsonIgnore]\r\n    FTagGroup: string;\r\n    function GetContainer: TXDataEntityContainer;\r\n  private\r\n    [JsonIgnore]\r\n    FEntityTypeRef: string;\r\n    function GetEntityTypeRef: string;\r\n  public\r\n    [JsonProperty('EntityType')]\r\n    property EntityTypeRef: string read GetEntityTypeRef write FEntityTypeRef;\r\n  private\r\n    procedure Prepare;\r\n  public\r\n    property Name: string read FName write FName;\r\n    property EntityType: TXDataEntityType read FEntityType write FEntityType;\r\n    property Container: TXDataEntityContainer read GetContainer;\r\n    property TagName: string read FTagName write FTagName;\r\n    property TagGroup: string read FTagGroup write FTagGroup;\r\n  end;\r\n\r\n  {$IFDEF GENERICS}\r\n  TXDataEntitySetList = TList<TXDataEntitySet>;\r\n  {$ELSE}\r\n  TXDataEntitySetList = class(TXDataOwnedList)\r\n  private\r\n    function GetItem(Index: Integer): TXDataEntitySet; reintroduce;\r\n  public\r\n    property Items[Index: Integer]: TXDataEntitySet read GetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  [JsonInclude(TInclusionMode.NonDefault)]\r\n  TXDataEntityContainer = class(TXDataModelObject)\r\n  strict private\r\n    FName: string;\r\n    FEntitySets: TXDataEntitySetList;\r\n    function GetSchema: TXDataSchema;\r\n  public\r\n    property Schema: TXDataSchema read GetSchema;\r\n  public\r\n    constructor Create; reintroduce;\r\n    destructor Destroy; override;\r\n    function FindEntitySet(const AName: string): TXDataEntitySet;\r\n    property Name: string read FName write FName;\r\n    property EntitySets: TXDataEntitySetList read FEntitySets;\r\n  end;\r\n\r\n  {$IFDEF GENERICS}\r\n  TXDataEntityContainerList = TList<TXDataEntityContainer>;\r\n  {$ELSE}\r\n  TXDataEntityContainerList = class(TXDataOwnedList)\r\n  private\r\n    function GetItem(Index: Integer): TXDataEntityContainer; reintroduce;\r\n  public\r\n    property Items[Index: Integer]: TXDataEntityContainer read GetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  TXDataAction = class;\r\n\r\n  TBindingMode = (FromBody, FromURI {FromQuery}, FromPath);\r\n\r\n  [JsonInclude(TInclusionMode.NonDefault)]\r\n  TXDataParamDef = class(TXDataModelObject)\r\n  strict private\r\n    FName: string;\r\n    function GetUrlConverter: TXDataTypeConverter;\r\n  private\r\n    [JsonIgnore]\r\n    FTypeRef: string;\r\n    [JsonIgnore]\r\n    FTypeNameRef: string;\r\n    [JsonIgnore]\r\n    FDocRequired: TDocRequired;\r\n    function GetTypeRef: string;\r\n    function GetTypeNameRef: string;\r\n  public\r\n    [JsonProperty('Type')]\r\n    property TypeRef: string read GetTypeRef write FTypeRef;\r\n    [JsonProperty('TypeName')]\r\n    property TypeNameRef: string read GetTypeNameRef write FTypeNameRef;\r\n  private\r\n    procedure Prepare;\r\n  private\r\n    [JsonIgnore]\r\n    FType: TXDataType;\r\n    FBindingMode: TBindingMode;\r\n    FOutput: Boolean;\r\n    FInput: Boolean;\r\n    [JsonIgnore]\r\n    FDefaultValue: TValue;\r\n    [JsonIgnore]\r\n    FHasDefaultValue: Boolean;\r\n    procedure SetDefaultValue(const Value: TValue);\r\n    function GetParent: TXDataAction;\r\n  {$IFDEF ISDELPHI}\r\n  strict private\r\n    [JsonIgnore]\r\n    FRttiType: TRttiType;\r\n  public\r\n    property RttiType: TRttiType read FRttiType write FRttiType;\r\n  {$ENDIF}\r\n  public\r\n    function Index: Integer;\r\n    property Parent: TXDataAction read GetParent;\r\n  public\r\n    property UrlConverter: TXDataTypeConverter read GetUrlConverter;\r\n    property Name: string read FName write FName;\r\n    property BindingMode: TBindingMode read FBindingMode write FBindingMode;\r\n    property Output: Boolean read FOutput write FOutput;\r\n    property Input: Boolean read FInput write FInput;\r\n    property DefaultValue: TValue read FDefaultValue write SetDefaultValue;\r\n    property HasDefaultValue: Boolean read FHasDefaultValue write FHasDefaultValue;\r\n    property ParamType: TXDataType read FType write FType;\r\n    property DocRequired: TDocRequired read FDocRequired write FDocRequired;\r\n  end;\r\n\r\n  {$IFDEF GENERICS}\r\n  TXDataParamDefList = TList<TXDataParamDef>;\r\n  {$ELSE}\r\n  TXDataParamDefList = class(TXDataOwnedList)\r\n  private\r\n    function GetItem(Index: Integer): TXDataParamDef; reintroduce;\r\n  public\r\n    property Items[Index: Integer]: TXDataParamDef read GetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  EFromURIBindingNotSupported = class(Exception)\r\n  public\r\n    constructor Create(AParam: TXDataParamDef); reintroduce;\r\n  end;\r\n\r\n  TXDataController = class;\r\n\r\n//  TXDataRouteSegmentType = (Literal, Parameter);\r\n\r\n  TXDataRouteSegment = class\r\n  private\r\n    FParamName: string;\r\n    FValue: string;\r\n    FParamIndex: Integer;\r\n    FIsParam: Boolean;\r\n//    FSegmentType: TXDataRouteSegmentType;\r\n  public\r\n    constructor Create(const AValue: string);\r\n//    property SegmentType: TXDataRouteSegmentType read FSegmentType;\r\n    property Value: string read FValue write FValue;\r\n    property ParamName: string read FParamName write FParamName;\r\n    property ParamIndex: Integer read FParamIndex write FParamIndex;\r\n    property IsParam: Boolean read FIsParam;\r\n  end;\r\n\r\n  {$IFDEF GENERICS}\r\n  TXDataRouteSegmentList = TObjectList<TXDataRouteSegment>;\r\n  {$ELSE}\r\n  TXDataRouteSegmentList = class(TXDataOwnedList)\r\n  private\r\n    function GetItem(Index: Integer): TXDataRouteSegment; reintroduce;\r\n  public\r\n    property Items[Index: Integer]: TXDataRouteSegment read GetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  TXDataRouteInfo = class\r\n  strict private\r\n    FSegments: TXDataRouteSegmentList;\r\n    FParamCount: Integer;\r\n    FPriority: Integer;\r\n    function GetSegment(Index: Integer): TXDataRouteSegment;\r\n    function GetSegmentCount: Integer;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n    procedure Process(const ARoute: string);\r\n    property Segments[Index: Integer]: TXDataRouteSegment read GetSegment;\r\n    property SegmentCount: Integer read GetSegmentCount;\r\n    property ParamCount: Integer read FParamCount;\r\n    property Priority: Integer read FPriority;\r\n  end;\r\n\r\n  [JsonInclude(TInclusionMode.NonDefault)]\r\n  TXDataAction = class(TXDataModelObject)\r\n  strict private\r\n    FName: string;\r\n    FParameters: TXDataParamDefList;\r\n    FHttpMethod: string;\r\n    FIsParamStream: Boolean;\r\n    FIsResultStream: Boolean;\r\n    FIsResultCriteria: Boolean;\r\n    FIsResultSingleObject: Boolean;\r\n    FOperationId: string;\r\n    FConsumes: string;\r\n    [JsonIgnore]\r\n    FRemarks: string;\r\n    [JsonIgnore]\r\n    FRouteInfo: TXDataRouteInfo;\r\n    [JsonIgnore]\r\n    FReturnType: TXDataType;\r\n    [JsonIgnore]\r\n    FIsDeprecated: Boolean;\r\n    function ParamCount(Binding: TBindingMode): Integer;\r\n    function GetParam(Binding: TBindingMode; Index: Integer): TXDataParamDef;\r\n  strict private\r\n    [JsonIgnore]\r\n    FReturnTypeRef: string;\r\n    function GetReturnTypeRef: string;\r\n  public\r\n    [JsonProperty('ReturnType')]\r\n    property ReturnTypeRef: string read GetReturnTypeRef write FReturnTypeRef;\r\n  private\r\n    procedure Prepare;\r\n    function GetBodyParam(Index: Integer): TXDataParamDef;\r\n    function GetPathParam(Index: Integer): TXDataParamDef;\r\n    function GetQueryParam(Index: Integer): TXDataParamDef;\r\n  protected\r\n    function GetController: TXDataController;\r\n  public\r\n    property Controller: TXDataController read GetController;\r\n    property Remarks: string read FRemarks write FRemarks;\r\n    property IsDeprecated: Boolean read FIsDeprecated write FIsDeprecated;\r\n  public\r\n    property IsParamStream: Boolean read FIsParamStream write FIsParamStream;\r\n    property IsResultStream: Boolean read FIsResultStream write FIsResultStream;\r\n    property IsResultCriteria: Boolean read FIsResultCriteria write FIsResultCriteria;\r\n    property IsResultSingleObject: Boolean read FIsResultSingleObject write FIsResultSingleObject;\r\n    property OperationId: string read FOperationId write FOperationId;\r\n    property Consumes: string read FConsumes write FConsumes;\r\n    function HasOutputParams: Boolean;\r\n    function IsFormContent: Boolean;\r\n    function IsJsonContent: Boolean;\r\n  public\r\n    constructor Create; reintroduce;\r\n    destructor Destroy; override;\r\n    function FindParameter(const AName: string): TXDataParamDef;\r\n    function IndexOfParameter(const AName: string): Integer;\r\n    function IndexOf(Param: TXDataParamDef): Integer;\r\n    function ParamStreamIndex: Integer;\r\n    function BodyParamCount: Integer;\r\n    property BodyParams[Index: Integer]: TXDataParamDef read GetBodyParam;\r\n    function QueryParamCount: Integer;\r\n    property QueryParams[Index: Integer]: TXDataParamDef read GetQueryParam;\r\n    function RequiredPathParamCount: Integer;\r\n    function PathParamCount: Integer;\r\n    property PathParams[Index: Integer]: TXDataParamDef read GetPathParam;\r\n    property RouteInfo: TXDataRouteInfo read FRouteInfo;\r\n  public\r\n    // Despite the name, kept this way for backward compatibility, Name property is actually\r\n    // the relative Route (path) for the action, so besides just \"GetCustomers\" it can also\r\n    // be \"customers/?/items\", for example\r\n    property Name: string read FName write FName;\r\n    property Parameters: TXDataParamDefList read FParameters;\r\n    property HttpMethod: string read FHttpMethod write FHttpMethod;\r\n    property ReturnType: TXDataType read FReturnType write FReturnType;\r\n  end;\r\n\r\n  {$IFDEF GENERICS}\r\n  TXDataActionList = TList<TXDataAction>;\r\n  {$ELSE}\r\n  TXDataActionList = class(TXDataOwnedList)\r\n  private\r\n    function GetItem(Index: Integer): TXDataAction; reintroduce;\r\n  public\r\n    property Items[Index: Integer]: TXDataAction read GetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  [JsonInclude(TInclusionMode.NonDefault)]\r\n  TXDataController = class(TXDataModelObject)\r\n  strict private\r\n    FName: string;\r\n    FActions: TXDataActionList;\r\n    [JsonIgnore]\r\n    FServiceClass: TClass;\r\n    [JsonIgnore]\r\n    FRouteInfo: TXDataRouteInfo;\r\n    [JsonIgnore]\r\n    FTagName: string;\r\n    [JsonIgnore]\r\n    FTagGroup: string;\r\n    function GetSchema: TXDataSchema;\r\n  public\r\n    property Schema: TXDataSchema read GetSchema;\r\n  public\r\n    property ServiceClass: TClass read FServiceClass write FServiceClass;\r\n    property RouteInfo2: TXDataRouteInfo read FRouteInfo;\r\n    property TagName: string read FTagName write FTagName;\r\n    property TagGroup: string read FTagGroup write FTagGroup;\r\n  private\r\n    procedure Prepare;\r\n  public\r\n    constructor Create; reintroduce;\r\n    destructor Destroy; override;\r\n    property Name: string read FName write FName;\r\n    property Actions: TXDataActionList read FActions;\r\n  end;\r\n\r\n  {$IFDEF GENERICS}\r\n  TXDataEntityTypeList = TList<TXDataEntityType>;\r\n  {$ELSE}\r\n  TXDataEntityTypeList = class(TXDataOwnedList)\r\n  private\r\n    function GetItem(Index: Integer): TXDataEntityType; reintroduce;\r\n  public\r\n    property Items[Index: Integer]: TXDataEntityType read GetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF GENERICS}\r\n  TXDataInstanceTypeList = TList<TXDataInstanceType>;\r\n  {$ELSE}\r\n  TXDataInstanceTypeList = class(TXDataOwnedList)\r\n  private\r\n    function GetItem(Index: Integer): TXDataInstanceType; reintroduce;\r\n  public\r\n    property Items[Index: Integer]: TXDataInstanceType read GetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF GENERICS}\r\n  TXDataControllerList = TList<TXDataController>;\r\n  {$ELSE}\r\n  TXDataControllerList = class(TXDataOwnedList)\r\n  private\r\n    function GetItem(Index: Integer): TXDataController; reintroduce;\r\n  public\r\n    property Items[Index: Integer]: TXDataController read GetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  [JsonInclude(TInclusionMode.NonDefault)]\r\n  TXDataSchema = class(TXDataModelObject)\r\n  private\r\n    FNamespace: string;\r\n    FAlias: string;\r\n    function GetModel: TXDataModel;\r\n    function IsCollectionName(const Name: string; var SubType: string): Boolean;\r\n  strict private\r\n    FEntityTypes: TXDataEntityTypeList;\r\n    FEntityContainers: TXDataEntityContainerList;\r\n    FEnumTypes: TXDataEnumTypeList;\r\n    FInstanceTypes: TXDataInstanceTypeList;\r\n    FControllers: TXDataControllerList;\r\n  public\r\n    constructor Create; reintroduce;\r\n    destructor Destroy; override;\r\n    function FindOrDefineConverter(AType: TXDataType): TXDataTypeConverter;\r\n    function FindEntityType(const AName: string): TXDataEntityType;\r\n    function FindInstanceType(const AName: string): TXDataInstanceType;\r\n    function FindEnumType(const AName: string): TXDataEnumType;\r\n    function FindEnumMember(const AName: string): TXDataEnumMember;\r\n    function FindScalarType(const Name: string): TXDataScalarType;\r\n    function FindType(const Name: string): TXDataType;\r\n    function FindContainer(const AName: string): TXDataEntityContainer;\r\n    function FindController(const AName: string): TXDataController;\r\n  public\r\n    property Namespace: string read FNamespace write FNamespace;\r\n    property Alias: string read FAlias write FAlias;\r\n    property EntityTypes: TXDataEntityTypeList read FEntityTypes;\r\n    property InstanceTypes: TXDataInstanceTypeList read FInstanceTypes;\r\n    property EntityContainers: TXDataEntityContainerList read FEntityContainers;\r\n    property EnumTypes: TXDataEnumTypeList read FEnumTypes;\r\n    property Controllers: TXDataControllerList read FControllers;\r\n    property Model: TXDataModel read GetModel;\r\n  end;\r\n\r\n  {$IFDEF GENERICS}\r\n  TXDataSchemaList = TList<TXDataSchema>;\r\n  {$ELSE}\r\n  TXDataSchemaList = class(TXDataOwnedList)\r\n  private\r\n    function GetItem(Index: Integer): TXDataSchema; reintroduce;\r\n  public\r\n    property Items[Index: Integer]: TXDataSchema read GetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  TXDataUrlConverters = class\r\n  strict private\r\n    FConverterMap: TStringMap;\r\n  public\r\n    constructor Create; reintroduce;\r\n    destructor Destroy; override;\r\n    function Find(const ATypeName: string): TXDataTypeConverter;\r\n    procedure RegisterConverter(const ATypeName: string; AConverter: TXDataTypeConverter);\r\n  end;\r\n\r\n  [JsonInclude(TInclusionMode.NonDefault)]\r\n  TXDataBaseModel = class(TXDataModelObject)\r\n  strict private\r\n    FTitle: string;\r\n    FVersion: string;\r\n    FSchemas: TXDataSchemaList;\r\n  private\r\n    [JsonIgnore]\r\n    FUrlConverters: TXDataUrlConverters;\r\n  strict private\r\n    function GetDefaultEntityContainer: TXDataEntityContainer;\r\n  public\r\n    // This method must be called before using a model. It does the initialization of several\r\n    // parts of the model, like solving references and settings converters\r\n    procedure Prepare;\r\n  public\r\n    constructor Create; reintroduce;\r\n    destructor Destroy; override;\r\n    function FindSchema(const APrefix: string): TXDataSchema;\r\n    property Schemas: TXDataSchemaList read FSchemas;\r\n    function GetEntityType(const QualifiedName: string): TXDataEntityType;\r\n    function FindEntityType(const QualifiedName: string): TXDataEntityType;\r\n    function GetEntitySet(const QualifiedName: string): TXDataEntitySet;\r\n    function FindEntitySet(const QualifiedName: string): TXDataEntitySet;\r\n    function FindInstanceType(const QualifiedName: string): TXDataInstanceType;\r\n    function FindController(const AName: string): TXDataController;\r\n    function FindActionByOperationId(const AOperationId: string): TXDataAction;\r\n    function DefaultEntitySet(AType: TXDataEntityType): TXDataEntitySet;\r\n    procedure DefineDefaultEntitySet(AType: TXDataEntityType; EntitySet: TXDataEntitySet);\r\n    property DefaultEntityContainer: TXDataEntityContainer read GetDefaultEntityContainer;\r\n    property Title: string read FTitle write FTitle;\r\n    property Version: string read FVersion write FVersion;\r\n  end;\r\n\r\n  TXDataGetPropValueProc = reference to function(Entity: TValue; Prop: TXDataSimpleProperty): TValue;\r\n  TXDataGetNavPropValueProc = reference to function(Entity: TValue; NavProp: TXDataNavigationProperty): TValue;\r\n\r\n  [JsonInclude(TInclusionMode.NonDefault)]\r\n  TXDataModel = class(TXDataBaseModel)\r\n  strict protected\r\n    ///\t<summary>\r\n    ///\t  Returns the key predicate of an object instance, to be used in Url.\r\n    ///\t</summary>\r\n    ///\t<param name=\"Entity\">\r\n    ///\t  The object instance for which the key predicate will be generated\r\n    ///\t</param>\r\n    ///\t<param name=\"AType\">\r\n    ///\t  The entity type associated with the object. Just for optimization purposes\r\n    ///\t</param>\r\n    ///\t<param name=\"GetPropValue\">\r\n    ///\t  Reference to a procedure that will read the value of a property\r\n    ///\t</param>\r\n    ///\t<param name=\"GetNavPropValue\">\r\n    ///\t  Reference to a procedure that will read the value of a navigation property\r\n    ///\t</param>\r\n    ///\t<returns>\r\n    ///\t  The key predicate of the object\r\n    ///\t</returns>\r\n    ///\t<remarks>\r\n    ///\t  This function returns a string containing the key predicate of an\r\n    ///\t  object instance. The key predicate is a string representation of the\r\n    ///\t  object id, to be used in an Url to identify a web resource relate to\r\n    ///\t  the object. For example, in the url\r\n    ///\t  <see href=\"http://localhost/Customers('ABC'\" />), the key predicate\r\n    ///\t  is 'ABC' (with the quotes).\r\n    ///\t</remarks>\r\n    function IdToKeyPredicate(const Entity: TValue; AType: TXDataEntityType;\r\n      GetPropValue: TXDataGetPropValueProc; GetNavPropValue: TXDataGetNavPropValueProc): string; overload;\r\n    /// <summary>\r\n    ///   Returns the key predicate for an entity of the specified class, given a specified value\r\n    /// </summary>\r\n    ///\t<remarks>\r\n    ///\t  This function returns a string containing the key predicate of a class given the specified id.\r\n    ///\t  The key predicate is a string representation of the\r\n    ///\t  object id, to be used in an Url to identify a web resource relate to\r\n    ///\t  the object. For example, in the url\r\n    ///\t  <see href=\"http://localhost/Customers('ABC'\" />), the key predicate\r\n    ///\t  is 'ABC' (with the quotes).\r\n    ///   If the class has multiple keys (composite key), TValue must be an array of TValue elements\r\n    ///   with the same number of elements as the entity key properties\r\n    ///\t</remarks>\r\n    function IdToKeyPredicate(AType: TXDataEntityType; const Id: TValue): string; overload;\r\n  public\r\n    ///\t<summary>\r\n    ///\t  Retrieves the canonical relative Url for an object instance.\r\n    ///\t</summary>\r\n    ///\t<param name=\"AObject\">\r\n    ///\t  The object instance which the canonical Url will be generated for\r\n    ///\t</param>\r\n    ///\t<param name=\"EntityType\">\r\n    ///\t  The TXDataEntityType object which relates to the AObject instance.\r\n    ///   It's used only for optimization and can be nil. If AType doesn't match\r\n    ///   the exact type associated with the object, the function will find\r\n    ///   the correct type. If type matches, a search is avoided for performance reasons\r\n    ///\t</param>\r\n    ///\t<param name=\"Id\">\r\n    ///   The identifier or the entity\r\n    ///\t</param>\r\n    ///\t<returns>\r\n    ///\t  The canonical Url, relative to the server base path, without trailing\r\n    ///\t  slash\r\n    ///\t</returns>\r\n    ///\t<remarks>\r\n    ///\t  Use this method to build the Url to the resource that represents the\r\n    ///\t  object instance. The canonical Url returned is relative to the server\r\n    ///\t  base path.\r\n    ///\t</remarks>\r\n    ///\t<example>\r\n    ///\t  <para>\r\n    ///\t    CanonicalUrl := Model.CanonicalUrl(Customer, CustomerType);\r\n    ///\t  </para>\r\n    ///\t  <para>\r\n    ///\t    // returns \"Customers(15)\" if Customer.Id is equal to 15\r\n    ///\t  </para>\r\n    ///\t</example>\r\n    function CanonicalUrlFromId(EntityType: TXDataEntityType; Id: TValue): string; overload;\r\n    function CanonicalUrlFromEntity(EntityType: TXDataEntityType; const Entity: TValue;\r\n      GetPropValue: TXDataGetPropValueProc; GetNavPropValue: TXDataGetNavPropValueProc): string;\r\n    function EntitySetUrl(const AEntitySet: TXDataEntitySet): string;\r\n    function DefaultSchema: TXDataSchema;\r\n  end;\r\n\r\n  ECannotSetTypeKind = class(Exception)\r\n  public\r\n    constructor Create(Prop: TXDataProperty; Value: TXTypeKind); reintroduce;\r\n  end;\r\n\r\n  TXDataTypeConverter = class\r\n  strict private\r\n  strict protected\r\n    function GetXDataType: TXDataScalarType; virtual; abstract;\r\n    function TryValueToUrl(const Value: TValue; out Literal: string): boolean; virtual;\r\n    function TryUrlToValue(const Literal: string; out Value: TValue): boolean; virtual;\r\n  public\r\n    destructor Destroy; override;\r\n    function ValueToUrl(const Value: TValue; const PropName: string = ''): string;\r\n    function UrlToValue(const Literal: string; const PropName: string = ''): TValue;\r\n    property XDataType: TXDataScalarType read GetXDataType;\r\n  end;\r\n\r\n  EConvertToUrlError = class(Exception)\r\n  public\r\n    constructor Create(const PropName: string; Value: TValue); reintroduce;\r\n  end;\r\n\r\n  EConvertFromUrlError = class(Exception)\r\n  public\r\n    constructor Create(const PropName, Literal: string); reintroduce;\r\n  end;\r\n\r\n  EModelTypeNotFound = class(Exception);\r\n\r\n  EModelReferenceNotFound = class(Exception);\r\n\r\n  EXDataEntityTypeNotFound = class(Exception)\r\n  public\r\n    constructor Create(const AName: string); reintroduce;\r\n  end;\r\n\r\n  EXDataEntitySetNotFound = class(Exception)\r\n  public\r\n    constructor Create(const AName: string); reintroduce;\r\n  end;\r\n\r\n  ECannotBuildKeyPredicateWrongValueLength = class(Exception)\r\n  public\r\n    constructor Create(AType: TXDataEntityType); reintroduce;\r\n  end;\r\n\r\n  ECannotBuildCanonicalUrl = class(Exception)\r\n  public\r\n    constructor Create(AType: TXDataEntityType); reintroduce;\r\n  end;\r\n\r\n  EUrlConverterNotFound = class(Exception)\r\n  public\r\n    constructor Create(AType: TXDataType); reintroduce;\r\n  end;\r\n\r\n  EIndexOutOfRange = class(Exception)\r\n  end;\r\n\r\n  EXDataInvalidRouteParam = class(Exception)\r\n  public\r\n    constructor Create(Action: TXDataAction; const ParamName: string);\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  XData.Model.Types,\r\n  XData.Types.Converters,\r\n  XData.Utils;\r\n\r\nprocedure ErrorOutOfRange;\r\nbegin\r\n  raise EIndexOutOfRange.Create('Index out of range');\r\nend;\r\n\r\n{ TXDataTypeConverter }\r\n\r\nfunction TXDataTypeConverter.UrlToValue(const Literal: string; const PropName: string = ''): TValue;\r\nbegin\r\n  if not TryUrlToValue(Literal, Result) then\r\n    raise EConvertFromUrlError.Create(PropName, Literal);\r\nend;\r\n\r\ndestructor TXDataTypeConverter.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nfunction TXDataTypeConverter.TryUrlToValue(const Literal: string; out Value: TValue): boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n\r\nfunction TXDataTypeConverter.TryValueToUrl(const Value: TValue; out Literal: string): boolean;\r\nbegin\r\n  Result := false;\r\nend;\r\n\r\nfunction TXDataTypeConverter.ValueToUrl(const Value: TValue; const PropName: string = ''): string;\r\nbegin\r\n  {$IFDEF ISDELPHI}\r\n  if Value.IsEmpty then\r\n    Exit('null')\r\n  else\r\n  {$ELSE}\r\n  if Value = nil then\r\n    Exit('null')\r\n  else\r\n  {$ENDIF}\r\n  begin\r\n    if not TryValueToUrl(Value, Result) then\r\n      raise EConvertToUrlError.Create(PropName, Value);\r\n  end;\r\nend;\r\n\r\n{ EConvertToUrlError }\r\n\r\nconstructor EConvertToUrlError.Create(const PropName: string; Value: TValue);\r\nbegin\r\n  if PropName <> '' then\r\n    inherited CreateFmt('Cannot serialize value \"%s\" to Url parameter \"%s\"', [\r\n      {$IFDEF ISDELPHI}\r\n      Value.ToString\r\n      {$ELSE}\r\n      TValue_ToString(Value)\r\n      {$ENDIF}\r\n      , PropName]\r\n    )\r\n  else\r\n    inherited CreateFmt('Cannot serialize value \"%s\" to Url',\r\n      {$IFDEF ISDELPHI}\r\n      [Value.ToString]\r\n      {$ELSE}\r\n      [TValue_ToString(Value)]\r\n      {$ENDIF}\r\n    );\r\nend;\r\n\r\n{ EConvertFromUrlError }\r\n\r\nconstructor EConvertFromUrlError.Create(const PropName, Literal: string);\r\nbegin\r\n  if PropName <> '' then\r\n    inherited CreateFmt('Cannot deserialize value \"%s\" from Url parameter \"%s\"', [Literal, PropName])\r\n  else\r\n    inherited CreateFmt('Cannot deserialize value \"%s\" from Url', [Literal])\r\nend;\r\n\r\n{ TOwnedList }\r\n\r\n{$IFDEF GENERICS}\r\ntype\r\n  TOwnedList<T: TXDataModelObject; TOwner: TXDataModelObject> = class(TObjectList<T>)\r\n  strict private\r\n    {$IFDEF AUTOREFCOUNT}[Weak]{$ENDIF}\r\n    FOwner: {$IFDEF DELPHIXE6_LVL}TOwner{$ELSE}TObject{$ENDIF};\r\n  protected\r\n    procedure Notify(const Value: T; Action: TCollectionNotification); override;\r\n  public\r\n    constructor Create(AOwner: TOwner);\r\n  end;\r\n\r\nconstructor TOwnedList<T, TOwner>.Create(AOwner: TOwner);\r\nbegin\r\n  inherited Create(true);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nprocedure TOwnedList<T, TOwner>.Notify(const Value: T;\r\n  Action: TCollectionNotification);\r\nbegin\r\n  if Action = cnAdded then\r\n    {$IFDEF DELPHIXE6_LVL}\r\n    Value.Parent := FOwner\r\n    {$ELSE}\r\n    Value.Parent := TXDataModelObject(FOwner)\r\n    {$ENDIF}\r\n  else\r\n    Value.Parent := nil;\r\n  inherited;\r\nend;\r\n{$ENDIF}\r\n\r\n{ TXDataSchema }\r\n\r\nconstructor TXDataSchema.Create;\r\nbegin\r\n  inherited;\r\n  {$IFDEF GENERICS}\r\n  FEntityTypes := TOwnedList<TXDataEntityType, TXDataSchema>.Create(Self);\r\n  FInstanceTypes := TOwnedList<TXDataInstanceType, TXDataSchema>.Create(Self);\r\n  FEnumTypes := TOwnedList<TXDataEnumType, TXDataSchema>.Create(Self);\r\n  FEntityContainers := TOwnedList<TXDataEntityContainer, TXDataSchema>.Create(Self);\r\n  FControllers := TOwnedList<TXDataController, TXDataSchema>.Create(Self);\r\n  {$ELSE}\r\n  FEntityTypes := TXDataEntityTypeList.Create(Self);\r\n  FInstanceTypes := TXDataInstanceTypeList.Create(Self);\r\n  FEnumTypes := TXDataEnumTypeList.Create(Self);\r\n  FEntityContainers := TXDataEntityContainerList.Create(Self);\r\n  FControllers := TXDataControllerList.Create(Self);\r\n  {$ENDIF}\r\nend;\r\n\r\ndestructor TXDataSchema.Destroy;\r\nbegin\r\n  FEntityTypes.Free;\r\n  FInstanceTypes.Free;\r\n  FEnumTypes.Free;\r\n  FEntityContainers.Free;\r\n  FControllers.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TXDataSchema.FindController(const AName: string): TXDataController;\r\nvar\r\n  Controller: TXDataController;\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to Controllers.Count - 1 do\r\n  begin\r\n    Controller := Controllers[I];\r\n    if SameText(Controller.Name, AName) then\r\n      Exit(Controller);\r\n  end;\r\n  Result := nil;\r\nend;\r\n\r\nfunction TXDataSchema.FindContainer(const AName: string): TXDataEntityContainer;\r\nvar\r\n  Container: TXDataEntityContainer;\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to EntityContainers.Count - 1 do\r\n  begin\r\n    Container := EntityContainers[I];\r\n    if SameText(Container.Name, AName) then\r\n      Exit(Container);\r\n  end;\r\n  Result := nil;\r\nend;\r\n\r\nfunction TXDataSchema.FindEntityType(const AName: string): TXDataEntityType;\r\nvar\r\n  EntityType: TXDataEntityType;\r\n  SubType: string;\r\n  I: Integer;\r\nbegin\r\n  // Check if it's a collection type\r\n  if IsCollectionName(AName, SubType) then\r\n  begin\r\n    EntityType := FindEntityType(SubType);\r\n    if EntityType <> nil then\r\n      Result := EntityType.Collection\r\n    else\r\n      Result := nil;\r\n  end\r\n  else\r\n  begin\r\n    for I := 0 to EntityTypes.Count - 1 do\r\n    begin\r\n      EntityType := EntityTypes[I];\r\n      if SameText(EntityType.Name, AName) then\r\n        Exit(EntityType);\r\n    end;\r\n\r\n    Result := nil;\r\n  end;\r\nend;\r\n\r\nfunction TXDataSchema.FindEnumMember(const AName: string): TXDataEnumMember;\r\nvar\r\n  EnumType: TXDataEnumType;\r\n  EnumMember: TXDataEnumMember;\r\n  I, J: Integer;\r\nbegin\r\n  for I := 0 to EnumTypes.Count - 1 do\r\n  begin\r\n    EnumType := EnumTypes[I];\r\n    for J := 0 to EnumType.Members.Count - 1 do\r\n    begin\r\n      EnumMember := EnumType.Members[J];\r\n      if SameText(EnumMember.Name, AName) then\r\n        Exit(EnumMember);\r\n    end;\r\n  end;\r\n  Result := nil;\r\nend;\r\n\r\nfunction TXDataSchema.FindEnumType(const AName: string): TXDataEnumType;\r\nvar\r\n  EnumType: TXDataEnumType;\r\n  I: Integer;\r\n//  SubType: string;\r\nbegin\r\n  // Check if it's a collection type\r\n//  if IsCollectionName(AName, SubType) then\r\n//  begin\r\n//    EnumType := FindEnumType(SubType);\r\n//    if EnumType <> nil then\r\n//      Result := EnumType.Collection\r\n//    else\r\n//      Result := nil;\r\n//  end\r\n//  else\r\n  begin\r\n    for I := 0 to EnumTypes.Count - 1 do\r\n    begin\r\n      EnumType := EnumTypes[I];\r\n      if SameText(EnumType.Name, AName) then\r\n        Exit(EnumType);\r\n    end;\r\n    Result := nil;\r\n  end;\r\nend;\r\n\r\nfunction TXDataSchema.FindInstanceType(const AName: string): TXDataInstanceType;\r\nvar\r\n  InstanceType: TXDataInstanceType;\r\n  SubType: string;\r\n  I: Integer;\r\nbegin\r\n  // Check if it's a collection type\r\n  if IsCollectionName(AName, SubType) then\r\n  begin\r\n    InstanceType := FindInstanceType(SubType);\r\n    if InstanceType <> nil then\r\n      Result := InstanceType.Collection\r\n    else\r\n      Result := nil;\r\n  end\r\n  else\r\n  begin\r\n    for I := 0 to InstanceTypes.Count - 1 do\r\n    begin\r\n      InstanceType := InstanceTypes[I];\r\n      if SameText(InstanceType.Name, AName) then\r\n        Exit(InstanceType);\r\n    end;\r\n\r\n    Result := nil;\r\n  end;\r\nend;\r\n\r\nfunction TXDataSchema.FindOrDefineConverter(\r\n  AType: TXDataType): TXDataTypeConverter;\r\nbegin\r\n  if AType = nil then Exit(nil);\r\n  if AType.UrlConverter <> nil then Exit(AType.UrlConverter);\r\n\r\n  Result := Model.FUrlConverters.Find(AType.Name);\r\n  if Result = nil then\r\n  begin\r\n    if AType is TXDataEnumType then\r\n    begin\r\n      Result := TXDataEnumConverter.Create(TXDataEnumType(AType));\r\n      Model.FUrlConverters.RegisterConverter(AType.Name, Result);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TXDataSchema.FindScalarType(const Name: string): TXDataScalarType;\r\nvar\r\n  SubType: string;\r\nbegin\r\n  Result := FindEnumType(Name);\r\n  if Result = nil then\r\n  begin\r\n    // Check if it's a collection type\r\n    if IsCollectionName(Name, SubType) then\r\n    begin\r\n      Result := TXDataPrimitiveTypes.Instance.Find(SubType);\r\n      if Result <> nil then\r\n        Result := Result.Collection;\r\n    end\r\n    else\r\n      Result := TXDataPrimitiveTypes.Instance.Find(Name);\r\n  end;\r\nend;\r\n\r\nfunction TXDataSchema.FindType(const Name: string): TXDataType;\r\nbegin\r\n  Result := FindScalarType(Name);\r\n  if Result = nil then\r\n    Result := FindEntityType(Name);\r\n  if Result = nil then\r\n    Result := FindInstanceType(Name);\r\nend;\r\n\r\nfunction TXDataSchema.GetModel: TXDataModel;\r\nbegin\r\n  Result := TXDataModel(inherited Parent);\r\nend;\r\n\r\nfunction TXDataSchema.IsCollectionName(const Name: string; var SubType: string): Boolean;\r\nvar\r\n  Wrapper: string;\r\nbegin\r\n  Result := TXDataUtils.GetNameAndKey(Name, Wrapper, SubType) and\r\n    (Wrapper = 'Collection');\r\nend;\r\n\r\n{ TXDataProperty }\r\n\r\nconstructor TXDataProperty.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TXDataProperty.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nfunction TXDataProperty.GetParent: TXDataStructuredType;\r\nbegin\r\n  Result := TXDataStructuredType(inherited Parent);\r\nend;\r\n\r\nfunction TXDataProperty.QualifiedName: string;\r\nbegin\r\n  if Parent <> nil then\r\n    Result := Parent.QualifiedName + '.' + Self.Name\r\n  else\r\n    Result := Self.Name;\r\nend;\r\n\r\n{ TXDataEntityType }\r\n\r\nconstructor TXDataEntityType.Create;\r\nbegin\r\n  inherited;\r\n  {$IFDEF GENERICS}\r\n  FKey := TList<TXDataProperty>.Create;\r\n  FProperties := TOwnedList<TXDataSimpleProperty, TXDataEntityType>.Create(Self);\r\n  FNavigationProperties := TOwnedList<TXDataNavigationProperty, TXDataEntityType>.Create(Self);\r\n  {$ELSE}\r\n  FKey := TXDataPropertyList.Create(False);\r\n  FProperties := TXDataSimplePropertyList.Create(Self);\r\n  FNavigationProperties := TXDataNavigationPropertyList.Create(Self);\r\n  {$ENDIF}\r\nend;\r\n\r\ndestructor TXDataEntityType.Destroy;\r\nbegin\r\n  FKey.Free;\r\n  FNavigationProperties.Free;\r\n  FProperties.Free;\r\n  FCollection.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TXDataEntityType.FindNavigationProperty(const AName: string): TXDataNavigationProperty;\r\nbegin\r\n  Result := TXDataNavigationProperty(FindStructuredProperty(AName));\r\nend;\r\n\r\nfunction TXDataEntityType.FindProperty(const AName: string): TXDataSimpleProperty;\r\nbegin\r\n  Result := TXDataSimpleProperty(FindScalarProperty(AName));\r\nend;\r\n\r\nfunction TXDataEntityType.FindStructuredProperty(const AName: string): TXDataStructuredProperty;\r\nbegin\r\n  Result := inherited FindStructuredProperty(AName);\r\n  if (Result = nil) and (BaseType <> nil) then\r\n    Result := BaseType.FindStructuredProperty(AName);\r\nend;\r\n\r\nfunction TXDataEntityType.FindScalarProperty(const AName: string): TXDataScalarProperty;\r\nbegin\r\n  Result := inherited FindScalarProperty(AName);\r\n  if (Result = nil) and (BaseType <> nil) then\r\n    Result := BaseType.FindScalarProperty(AName);\r\nend;\r\n\r\nfunction TXDataEntityType.GetBaseTypeRef: string;\r\nbegin\r\n  if FBaseType <> nil then\r\n    Result := FBaseType.Name\r\n  else\r\n    Result := '';\r\nend;\r\n\r\nfunction TXDataEntityType.GetCollection: TXDataEntityCollectionType;\r\nbegin\r\n  if FCollection = nil then\r\n  begin\r\n    FCollection := TXDataEntityCollectionType.Create;\r\n    FCollection.ItemType := Self;\r\n    FCollection.Parent := Self.Parent;\r\n  end;\r\n  Result := FCollection;\r\nend;\r\n\r\nfunction TXDataEntityType.GetKeyRef: TStringDynArray;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  SetLength(Result, Key.Count);\r\n  for I := 0 to Key.Count - 1 do\r\n    Result[I] := Key[I].Name;\r\nend;\r\n\r\nfunction TXDataEntityType.GetStructuredProperty(Index: Integer): TXDataStructuredProperty;\r\nbegin\r\n  Result := NavigationProperties[Index];\r\nend;\r\n\r\nfunction TXDataEntityType.GetScalarProperty(Index: Integer): TXDataScalarProperty;\r\nbegin\r\n  Result := Properties[Index];\r\nend;\r\n\r\nfunction TXDataEntityType.GetTypeKind: TXTypeKind;\r\nbegin\r\n  Result := TXTypeKind.xtEntity;\r\nend;\r\n\r\nfunction TXDataEntityType.IsInheritedFrom(ABase: TXDataEntityType): boolean;\r\nbegin\r\n  if ABase = Self then\r\n    Result := true\r\n  else\r\n    Result := (BaseType <> nil) and BaseType.IsInheritedFrom(ABase);\r\nend;\r\n\r\nfunction TXDataEntityType.KeyScalarProperties: TXDataSimplePropertyArray;\r\n\r\n  procedure FillKeyConverters(AType: TXDataEntityType; var KeyProps: TXDataSimplePropertyArray);\r\n  var\r\n    Key: TXDataProperty;\r\n    I: Integer;\r\n  begin\r\n    AType := AType.RootType;\r\n    for I := 0 to AType.Key.Count - 1 do\r\n    begin\r\n      Key := AType.Key[I];\r\n      if Key.IsSimple then\r\n      begin\r\n        SetLength(KeyProps, Length(KeyProps) + 1);\r\n        KeyProps[Length(KeyProps) - 1] := TXDataSimpleProperty(Key);\r\n      end\r\n      else\r\n        FillKeyConverters(TXDataNavigationProperty(Key).Target, KeyProps);\r\n    end;\r\n  end;\r\n\r\nvar\r\n  KeyProps: TXDataSimplePropertyArray;\r\nbegin\r\n  SetLength(KeyProps, 0);\r\n  FillKeyConverters(Self, KeyProps);\r\n  Result := KeyProps;\r\nend;\r\n\r\nfunction TXDataEntityType.StructuredPropertyCount: Integer;\r\nbegin\r\n  Result := NavigationProperties.Count;\r\nend;\r\n\r\nfunction TXDataEntityType.QualifiedName: string;\r\nbegin\r\n  Result := Self.Name;\r\n  if Self.Schema <> nil then\r\n  begin\r\n    if Self.Schema.Alias <> '' then\r\n      Result := Self.Schema.Alias + '.' + Self.Name\r\n    else\r\n    if Self.Schema.Namespace <> '' then\r\n      Result := Self.Schema.Namespace + '.' + Self.Name;\r\n  end;\r\nend;\r\n\r\nfunction TXDataEntityType.RootType: TXDataEntityType;\r\nbegin\r\n  Result := Self;\r\n  while Result.BaseType <> nil do\r\n    Result := Result.BaseType;\r\nend;\r\n\r\nprocedure TXDataEntityType.Prepare;\r\nvar\r\n  KeyItem: string;\r\n  TempProp: TXDataProperty;\r\n  I: Integer;\r\nbegin\r\n  if FBaseTypeRef <> '' then\r\n  begin\r\n    BaseType := Schema.FindEntityType(FBaseTypeRef);\r\n    if BaseType = nil then\r\n      raise EModelReferenceNotFound.CreateFmt('BaseType %s not found for entity type %s', [FBaseTypeRef, Name]);\r\n    FBaseTypeRef := '';\r\n  end;\r\n  if BaseType <> nil then\r\n    BaseType.Prepare;\r\n\r\n  if Length(FKeyRef) > 0 then\r\n  begin\r\n    Key.Clear;\r\n    for I := 0 to Length(FKeyRef) - 1 do\r\n    begin\r\n      KeyItem := FKeyRef[I];\r\n      TempProp := FindProperty(KeyItem);\r\n      if TempProp = nil then\r\n        TempProp := FindNavigationProperty(KeyItem);\r\n      if TempProp = nil then\r\n        raise EModelReferenceNotFound.CreateFmt('Key property %s not found on entity type %s', [KeyItem, Name]);\r\n      Key.Add(TempProp);\r\n    end;\r\n    SetLength(FKeyRef, 0);\r\n  end;\r\n\r\n  for I := 0 to Properties.Count - 1 do\r\n    Properties[I].Prepare;\r\n  for I := 0 to NavigationProperties.Count - 1 do\r\n    NavigationProperties[I].Prepare;\r\nend;\r\n\r\nfunction TXDataEntityType.ScalarPropertyCount: Integer;\r\nbegin\r\n  Result := Properties.Count;\r\nend;\r\n\r\n{ TXDataSimpleProperty }\r\n\r\nfunction TXDataScalarProperty.GetTypeKind: TXTypeKind;\r\nbegin\r\n  if PropertyType = nil then\r\n    Result := TXTypeKind.xtUndefined\r\n  else\r\n    Result := PropertyType.TypeKind;\r\nend;\r\n\r\nfunction TXDataScalarProperty.GetTypeRef: string;\r\nbegin\r\n  if FType <> nil then\r\n    Result := FType.Name\r\n  else\r\n    Result := '';\r\nend;\r\n\r\nfunction TXDataScalarProperty.GetUrlConverter: TXDataTypeConverter;\r\nbegin\r\n  if PropertyType <> nil then\r\n    Result := PropertyType.UrlConverter\r\n  else\r\n    Result := nil;\r\nend;\r\n\r\nfunction TXDataScalarProperty.GetValueType: TXDataType;\r\nbegin\r\n  Result := PropertyType;\r\nend;\r\n\r\nfunction TXDataScalarProperty.IsSimple: Boolean;\r\nbegin\r\n  Result := True;\r\nend;\r\n\r\nprocedure TXDataScalarProperty.SetDefaultValue(const Value: TValue);\r\nbegin\r\n  FDefaultValue := Value;\r\n  FHasDefaultValue := True;\r\nend;\r\n\r\nprocedure TXDataScalarProperty.SetType(const Value: TXDataScalarType);\r\nbegin\r\n  // add a restriction here, property cannot be entity type\r\n  // (but can be complex type so we can't restrict by class)\r\n\r\n  // Also, type must be in scope (same namespace as property). I.e, property can be\r\n  // either a scalar type, a collection or a complex type in scope\r\n  FType := Value;\r\nend;\r\n\r\n{ TXDataSimpleProperty }\r\n\r\nfunction TXDataSimpleProperty.GetParent: TXDataEntityType;\r\nbegin\r\n  Result := TXDataEntityType(inherited Parent);\r\nend;\r\n\r\nprocedure TXDataSimpleProperty.Prepare;\r\nbegin\r\n  // Resolve type reference\r\n  if FTypeRef <> '' then\r\n  begin\r\n    PropertyType := Parent.Schema.FindScalarType(FTypeRef);\r\n    if PropertyType = nil then\r\n      raise EModelReferenceNotFound.CreateFmt('Property type %s not found for property %s.%s',\r\n        [FTypeRef, Parent.Name, Name]);\r\n    FTypeRef := '';\r\n  end;\r\n\r\n  // Set converter\r\n  if PropertyType.UrlConverter = nil then\r\n    raise EUrlConverterNotFound.Create(PropertyType);\r\nend;\r\n\r\n{ TXDataEntityContainer }\r\n\r\nconstructor TXDataEntityContainer.Create;\r\nbegin\r\n  inherited;\r\n  {$IFDEF GENERICS}\r\n  FEntitySets := TOwnedList<TXDataEntitySet, TXDataEntityContainer>.Create(Self);\r\n  {$ELSE}\r\n  FEntitySets := TXDataEntitySetList.Create(Self);\r\n  {$ENDIF}\r\nend;\r\n\r\ndestructor TXDataEntityContainer.Destroy;\r\nbegin\r\n  FEntitySets.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TXDataEntityContainer.FindEntitySet(\r\n  const AName: string): TXDataEntitySet;\r\nvar\r\n  EntitySet: TXDataEntitySet;\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to EntitySets.Count - 1 do\r\n  begin\r\n    EntitySet := EntitySets[I];\r\n    if SameText(EntitySet.Name, AName) then\r\n      Exit(EntitySet);\r\n  end;\r\n  Result := nil;\r\nend;\r\n\r\nfunction TXDataEntityContainer.GetSchema: TXDataSchema;\r\nbegin\r\n  Result := TXDataSchema(inherited Parent);\r\nend;\r\n\r\n{ TXDataEnumType }\r\n\r\nfunction TXDataEnumType.AddMember(const AName: string; AValue: integer): TXDataEnumMember;\r\nbegin\r\n  Result := TXDataEnumMember.Create;\r\n  Members.Add(Result);\r\n  Result.Name := AName;\r\n  Result.Value := AValue;\r\nend;\r\n\r\nconstructor TXDataEnumType.Create;\r\nbegin\r\n  {$IFDEF GENERICS}\r\n  FMembers := TObjectList<TXDataEnumMember>.Create(True);\r\n  {$ELSE}\r\n  FMembers := TXDataEnumMemberList.Create;\r\n  {$ENDIF}\r\nend;\r\n\r\ndestructor TXDataEnumType.Destroy;\r\nbegin\r\n  FMembers.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TXDataEnumType.GetSchema: TXDataSchema;\r\nbegin\r\n  Result := TXDataSchema(inherited Parent);\r\nend;\r\n\r\nfunction TXDataEnumType.GetTypeKind: TXTypeKind;\r\nbegin\r\n  Result := TXTypeKind.xtEnum;\r\nend;\r\n\r\nfunction TXDataEnumType.QualifiedName: string;\r\nbegin\r\n  Result := Self.Name;\r\n  if Self.Schema <> nil then\r\n  begin\r\n    if Self.Schema.Alias <> '' then\r\n      Result := Self.Schema.Alias + '.' + Self.Name\r\n    else\r\n    if Self.Schema.Namespace <> '' then\r\n      Result := Self.Schema.Namespace + '.' + Self.Name;\r\n  end;\r\nend;\r\n\r\n{ TXDataModel }\r\n\r\nconstructor TXDataBaseModel.Create;\r\nbegin\r\n  FTitle := 'Server API';\r\n  FVersion := '3';\r\n  {$IFDEF GENERICS}\r\n  FSchemas := TOwnedList<TXDataSchema, TXDataBaseModel>.Create(Self);\r\n  {$ELSE}\r\n  FSchemas := TXDataSchemaList.Create(Self);\r\n  {$ENDIF}\r\n  FUrlConverters := TXDataUrlConverters.Create;\r\nend;\r\n\r\nfunction TXDataBaseModel.DefaultEntitySet(AType: TXDataEntityType): TXDataEntitySet;\r\nvar\r\n  Schema: TXDataSchema;\r\n  EntitySet: TXDataEntitySet;\r\n  Container: TXDataEntityContainer;\r\n  SchemaIndex, ContainerIndex, EntitySetIndex: Integer;\r\nbegin\r\n  if AType.DefaultEntitySet <> nil then\r\n    Exit(AType.DefaultEntitySet);\r\n\r\n  for SchemaIndex := 0 to Schemas.Count - 1 do\r\n  begin\r\n    Schema := Schemas[SchemaIndex];\r\n    for ContainerIndex := 0 to Schema.EntityContainers.Count - 1 do\r\n    begin\r\n      Container := Schema.EntityContainers[ContainerIndex];\r\n      for EntitySetIndex := 0 to Container.EntitySets.Count - 1 do\r\n      begin\r\n        EntitySet := Container.EntitySets[EntitySetIndex];\r\n        if EntitySet.EntityType = AType then\r\n        begin\r\n          DefineDefaultEntitySet(AType, EntitySet);\r\n          Exit(EntitySet);\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\n  Result := nil;\r\nend;\r\n\r\nprocedure TXDataBaseModel.DefineDefaultEntitySet(AType: TXDataEntityType;\r\n  EntitySet: TXDataEntitySet);\r\nbegin\r\n  AType.DefaultEntitySet := EntitySet;\r\nend;\r\n\r\ndestructor TXDataBaseModel.Destroy;\r\nbegin\r\n  FSchemas.Free;\r\n  FUrlConverters.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TXDataBaseModel.FindActionByOperationId(\r\n  const AOperationId: string): TXDataAction;\r\nvar\r\n  Schema: TXDataSchema;\r\n  Controller: TXDataController;\r\n  Action: TXDataAction;\r\n  I, J, L: Integer;\r\nbegin\r\n  Result := nil;\r\n  for I := 0 to Schemas.Count - 1 do\r\n  begin\r\n    Schema := Schemas[I];\r\n    for J := 0 to Schema.Controllers.Count - 1 do\r\n    begin\r\n      Controller := Schema.Controllers[J];\r\n      for L := 0 to Controller.Actions.Count - 1 do\r\n      begin\r\n        Action := Controller.Actions[L];\r\n\r\n        if SameText(Action.OperationId, AOperationId) then\r\n          Exit(Action);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TXDataBaseModel.FindController(const AName: string): TXDataController;\r\nvar\r\n  Schema: TXDataSchema;\r\n  I: Integer;\r\nbegin\r\n  Result := nil;\r\n  for I := 0 to Schemas.Count - 1 do\r\n  begin\r\n    Schema := Schemas[I];\r\n    Result := Schema.FindController(AName);\r\n    if Result <> nil then\r\n      break;\r\n  end;\r\nend;\r\n\r\nfunction TXDataBaseModel.FindEntitySet(const QualifiedName: string): TXDataEntitySet;\r\nvar\r\n  Prefix, LocalName: string;\r\n  Schema: TXDataSchema;\r\n  Container: TXDataEntityContainer;\r\n  I: Integer;\r\nbegin\r\n  Result := nil;\r\n  TXDataUtils.GetQualifiedName(QualifiedName, Prefix, LocalName);\r\n  Container := nil;\r\n  if Prefix = '' then\r\n  begin\r\n    Container := DefaultEntityContainer;\r\n  end else\r\n  begin\r\n    for I := 0 to Schemas.Count - 1 do\r\n    begin\r\n      Schema := Schemas[I];\r\n      Container := Schema.FindContainer(Prefix);\r\n      if Container <> nil then\r\n        break;\r\n    end;\r\n  end;\r\n  if Container <> nil then\r\n    Result := Container.FindEntitySet(LocalName);\r\nend;\r\n\r\nfunction TXDataBaseModel.FindEntityType(\r\n  const QualifiedName: string): TXDataEntityType;\r\nvar\r\n  Prefix, LocalName: string;\r\n  Schema: TXDataSchema;\r\nbegin\r\n  Result := nil;\r\n  TXDataUtils.GetQualifiedName(QualifiedName, Prefix, LocalName);\r\n  Schema := FindSchema(Prefix);\r\n  if Schema <> nil then\r\n    Result := Schema.FindEntityType(LocalName);\r\nend;\r\n\r\nfunction TXDataBaseModel.FindInstanceType(const QualifiedName: string): TXDataInstanceType;\r\nvar\r\n  Prefix, LocalName: string;\r\n  Schema: TXDataSchema;\r\nbegin\r\n  Result := nil;\r\n  TXDataUtils.GetQualifiedName(QualifiedName, Prefix, LocalName);\r\n  Schema := FindSchema(Prefix);\r\n  if Schema <> nil then\r\n    Result := Schema.FindInstanceType(LocalName);\r\nend;\r\n\r\nfunction TXDataBaseModel.FindSchema(const APrefix: string): TXDataSchema;\r\nvar\r\n  LocalSchema: TXDataSchema;\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to Schemas.Count - 1 do\r\n  begin\r\n    LocalSchema := Schemas[I];\r\n    if SameText(APrefix, LocalSchema.Namespace) or SameText(APrefix, LocalSchema.Alias) then\r\n      Exit(LocalSchema);\r\n  end;\r\n  Result := nil;\r\nend;\r\n\r\nfunction TXDataBaseModel.GetDefaultEntityContainer: TXDataEntityContainer;\r\nbegin\r\n  if (Schemas.Count > 0) and (Schemas[0].EntityContainers.Count > 0) then\r\n    Result := Schemas[0].EntityContainers[0]\r\n  else\r\n    Result := nil;\r\nend;\r\n\r\nfunction TXDataBaseModel.GetEntitySet(\r\n  const QualifiedName: string): TXDataEntitySet;\r\nbegin\r\n  Result := FindEntitySet(QualifiedName);\r\n  if Result = nil then\r\n    raise EXDataEntitySetNotFound.Create(QualifiedName);\r\nend;\r\n\r\nfunction TXDataBaseModel.GetEntityType(\r\n  const QualifiedName: string): TXDataEntityType;\r\nbegin\r\n  Result := FindEntityType(QualifiedName);\r\n  if Result = nil then\r\n    raise EXDataEntityTypeNotFound.Create(QualifiedName);\r\nend;\r\n\r\nprocedure TXDataBaseModel.Prepare;\r\nvar\r\n  Schema: TXDataSchema;\r\n  Container: TXDataEntityContainer;\r\n  EntitySet: TXDataEntitySet;\r\n  EntityType: TXDataEntityType;\r\n  InstanceType: TXDataInstanceType;\r\n  SchemaIndex: Integer;\r\n  ContainerIndex: Integer;\r\n  EntitySetIndex: Integer;\r\n  EntityTypeIndex: Integer;\r\n  InstanceTypeIndex: Integer;\r\n  ControllerIndex: Integer;\r\n  Controller: TXDataController;\r\n  ScalarTypeIndex: Integer;\r\n  ScalarType: TXDataScalarType;\r\nbegin\r\n  for SchemaIndex := 0 to Schemas.Count - 1 do\r\n  begin\r\n    Schema := Schemas[SchemaIndex];\r\n\r\n//    Schema.EntityTypes.Sort(TComparer<TXDataEntityType>.Construct(\r\n//      function(const Left, Right: TXDataEntityType): Integer\r\n//      begin\r\n//        Result := CompareText(Left.Name, Right.Name);\r\n//      end));\r\n\r\n    // set the UrlConverter for all types\r\n    for ScalarTypeIndex := 0 to TXDataPrimitiveTypes.Instance.Types.Count - 1 do\r\n    begin\r\n      ScalarType := TXDataPrimitiveTypes.Instance.Types[ScalarTypeIndex];\r\n      ScalarType.UrlConverter := Schema.FindOrDefineConverter(ScalarType);\r\n      ScalarType.Collection.UrlConverter := Schema.FindOrDefineConverter(ScalarType.Collection);\r\n    end;\r\n    for ScalarTypeIndex := 0 to Schema.EnumTypes.Count - 1 do\r\n    begin\r\n      ScalarType := Schema.EnumTypes[ScalarTypeIndex];\r\n      ScalarType.UrlConverter := Schema.FindOrDefineConverter(ScalarType);\r\n    end;\r\n    for EntityTypeIndex := 0 to Schema.EntityTypes.Count - 1 do\r\n    begin\r\n      EntityType := Schema.EntityTypes[EntityTypeIndex];\r\n      EntityType.UrlConverter := Schema.FindOrDefineConverter(EntityType);\r\n      EntityType.Collection.UrlConverter := Schema.FindOrDefineConverter(EntityType.Collection);\r\n    end;\r\n    for InstanceTypeIndex := 0 to Schema.InstanceTypes.Count - 1 do\r\n    begin\r\n      InstanceType := Schema.InstanceTypes[InstanceTypeIndex];\r\n      InstanceType.UrlConverter := Schema.FindOrDefineConverter(InstanceType);\r\n      InstanceType.Collection.UrlConverter := Schema.FindOrDefineConverter(InstanceType.Collection);\r\n    end;\r\n\r\n    for ContainerIndex := 0 to Schema.EntityContainers.Count - 1 do\r\n    begin\r\n      Container := Schema.EntityContainers[ContainerIndex];\r\n      for EntitySetIndex := 0 to Container.EntitySets.Count - 1 do\r\n      begin\r\n        EntitySet := Container.EntitySets[EntitySetIndex];\r\n        EntitySet.Prepare;\r\n      end;\r\n    end;\r\n\r\n    for EntityTypeIndex := 0 to Schema.EntityTypes.Count - 1 do\r\n    begin\r\n      EntityType := Schema.EntityTypes[EntityTypeIndex];\r\n      EntityType.Prepare;\r\n    end;\r\n\r\n    for InstanceTypeIndex := 0 to Schema.InstanceTypes.Count - 1 do\r\n    begin\r\n      InstanceType := Schema.InstanceTypes[InstanceTypeIndex];\r\n      InstanceType.Prepare;\r\n    end;\r\n\r\n    for ControllerIndex := 0 to Schema.Controllers.Count - 1 do\r\n    begin\r\n      Controller := Schema.Controllers[ControllerIndex];\r\n      Controller.Prepare;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TXDataModel }\r\n\r\ntype\r\n  TValueArray = array of TValue;\r\n\r\nfunction TXDataModel.IdToKeyPredicate(const Entity: TValue; AType: TXDataEntityType;\r\n  GetPropValue: TXDataGetPropValueProc; GetNavPropValue: TXDataGetNavPropValueProc): string;\r\n\r\n  procedure FillKeyValues(Entity: TValue; AType: TXDataEntityType; var Values: TValueArray);\r\n  var\r\n    Key: TXDataProperty;\r\n    I: Integer;\r\n  begin\r\n    AType := AType.RootType;\r\n    for I := 0 to AType.Key.Count - 1 do\r\n    begin\r\n      Key := AType.Key[I];\r\n      if Key.IsSimple then\r\n      begin\r\n        SetLength(Values, Length(Values) + 1);\r\n        Values[Length(Values) - 1] := GetPropValue(Entity, TXDataSimpleProperty(Key));\r\n      end\r\n      else\r\n        FillKeyValues(\r\n          GetNavPropValue(Entity, TXDataNavigationProperty(Key)),\r\n          TXDataNavigationProperty(Key).Target,\r\n          Values\r\n        );\r\n    end;\r\n  end;\r\n\r\nvar\r\n  ValueList: TValueArray;\r\n  SimpleKey: TXDataSimpleProperty;\r\nbegin\r\n  AType := AType.RootType;\r\n  if AType.Key.Count = 0 then\r\n    Exit('');\r\n\r\n  if (AType.Key.Count = 1) and AType.Key[0].IsSimple then\r\n  begin\r\n    SimpleKey := TXDataSimpleProperty(AType.Key[0]);\r\n    Result := SimpleKey.UrlConverter.ValueToUrl(\r\n      GetPropValue(Entity, SimpleKey),\r\n      SimpleKey.Name\r\n      )\r\n  end\r\n  else\r\n  begin\r\n    SetLength(ValueList, 0);\r\n    FillKeyValues(Entity, AType, ValueList);\r\n    {$IFDEF PAS2JS}\r\n    Result := IdToKeyPredicate(AType, ValueList);\r\n    {$ELSE}\r\n    Result := IdToKeyPredicate(AType, TValue.From<TValueArray>(ValueList));\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nfunction TXDataModel.CanonicalUrlFromEntity(EntityType: TXDataEntityType;\r\n  const Entity: TValue; GetPropValue: TXDataGetPropValueProc;\r\n  GetNavPropValue: TXDataGetNavPropValueProc): string;\r\nvar\r\n  EntitySet: TXDataEntitySet;\r\nbegin\r\n  EntitySet := DefaultEntitySet(EntityType);\r\n  if EntitySet = nil then\r\n    raise ECannotBuildCanonicalUrl.Create(EntityType);\r\n  Result := Format('%s(%s)', [\r\n    EntitySetUrl(EntitySet),\r\n    IdToKeyPredicate(Entity, EntityType, GetPropValue, GetNavPropValue)\r\n  ]);\r\nend;\r\n\r\nfunction TXDataModel.CanonicalUrlFromId(EntityType: TXDataEntityType; Id: TValue): string;\r\nvar\r\n  EntitySet: TXDataEntitySet;\r\nbegin\r\n  EntitySet := DefaultEntitySet(EntityType);\r\n  if EntitySet = nil then\r\n    raise ECannotBuildCanonicalUrl.Create(EntityType);\r\n  Result := Format('%s(%s)', [EntitySetUrl(EntitySet), IdToKeyPredicate(EntityType, Id)]);\r\nend;\r\n\r\nfunction TXDataModel.DefaultSchema: TXDataSchema;\r\nbegin\r\n  if Schemas.Count >= 0 then\r\n    Result := Schemas[0]\r\n  else\r\n    Result := nil;\r\nend;\r\n\r\nfunction TXDataModel.EntitySetUrl(const AEntitySet: TXDataEntitySet): string;\r\nbegin\r\n  // todo: use prefixed, qualified name when model has more than one entity container\r\n  // for now, we will consider there is only one default entity container\r\n  Result := AEntitySet.Name;\r\nend;\r\n\r\nfunction TXDataModel.IdToKeyPredicate(AType: TXDataEntityType;\r\n  const Id: TValue): string;\r\nvar\r\n  I: integer;\r\n  Value, CastValue: TValue;\r\n  IsArray: Boolean;\r\n  KeyProps: TXDataSimplePropertyArray;\r\nbegin\r\n  AType := AType.RootType;\r\n  if AType.Key.Count = 0 then\r\n    Exit('');\r\n  if (AType.Key.Count = 1) and AType.Key[0].IsSimple then\r\n    Result := TXDataSimpleProperty(AType.Key[0]).UrlConverter.ValueToUrl(Id, AType.Key[0].Name)\r\n  else\r\n  begin\r\n    // complex predicate (composite or using associations)\r\n    KeyProps := AType.KeyScalarProperties;\r\n    IsArray := TValue_IsArray(Id);\r\n    if IsArray and (TValue_GetArrayLength(Id) <> Length(KeyProps)) then\r\n      raise ECannotBuildKeyPredicateWrongValueLength.Create(AType);\r\n    if not IsArray and (Length(KeyProps) <> 1) then\r\n      raise ECannotBuildKeyPredicateWrongValueLength.Create(AType);\r\n\r\n    for I := 0 to Length(KeyProps) - 1 do\r\n    begin\r\n      if IsArray then\r\n        Value := TValue_GetArrayElement(Id, I)\r\n      else\r\n        Value := Id;\r\n      {$IFDEF PAS2JS}\r\n      CastValue := Value;\r\n      {$ELSE}\r\n      if Value.TypeInfo = TypeInfo(TValue) then\r\n        CastValue := Value.AsType<TValue>\r\n      else\r\n        CastValue := Value;\r\n      {$ENDIF}\r\n\r\n      if Result <> '' then\r\n        Result := Result + ',';\r\n      Result := Result + KeyProps[I].UrlConverter.ValueToUrl(CastValue, KeyProps[I].Name);\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TXDataModelObject }\r\n\r\ndestructor TXDataModelObject.Destroy;\r\nbegin\r\n  {$IFDEF ISDELPHI}\r\n  {$IFNDEF AUTOREFCOUNT}\r\n  if OwnsDataObject and FData.IsObject then\r\n    FData.AsObject.Free;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  inherited;\r\nend;\r\n\r\n{ TXDataType }\r\n\r\nfunction TXDataType.GetIsCollection: boolean;\r\nbegin\r\n  Result := false;\r\nend;\r\n\r\nfunction TXDataType.GetName: string;\r\nbegin\r\n  Result := FName;\r\nend;\r\n\r\n\r\nfunction TXDataType.GetTypeKind: TXTypeKind;\r\nbegin\r\n  Result := TXTypeKind.xtUndefined;\r\nend;\r\n\r\nfunction TXDataType.GetWrappedType: TXDataType;\r\nbegin\r\n  Result := nil;\r\nend;\r\n\r\nfunction TXDataType.QualifiedName: string;\r\nbegin\r\n  Result := Name;\r\nend;\r\n\r\n{ TXDataScalarType }\r\n\r\ndestructor TXDataScalarType.Destroy;\r\nbegin\r\n  FCollection.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TXDataScalarType.GetCollection: TXDataScalarType;\r\nbegin\r\n  if FCollection = nil then\r\n  begin\r\n    FCollection := TXDataScalarCollectionType.Create;\r\n    FCollection.ItemType := Self;\r\n  end;\r\n  Result := FCollection;\r\nend;\r\n\r\n{ TDataScalarCollectionType }\r\n\r\nfunction TXDataScalarCollectionType.GetIsCollection: boolean;\r\nbegin\r\n  Result := true;\r\nend;\r\n\r\n{ TXDataEntityCollectionType }\r\n\r\nfunction TXDataEntityCollectionType.GetIsCollection: boolean;\r\nbegin\r\n  Result := true;\r\nend;\r\n\r\nfunction TXDataScalarCollectionType.GetName: string;\r\nbegin\r\n  if ItemType <> nil then\r\n    Result := Format('Collection(%s)', [ItemType.Name])\r\n  else\r\n    Result := 'Collection()';\r\nend;\r\n\r\nfunction TXDataScalarCollectionType.GetTypeKind: TXTypeKind;\r\nbegin\r\n  Result := TXTypeKind.xtScalarCollection;\r\nend;\r\n\r\nfunction TXDataScalarCollectionType.GetWrappedType: TXDataType;\r\nbegin\r\n  Result := ItemType;\r\nend;\r\n\r\nfunction TXDataScalarCollectionType.QualifiedName: string;\r\nbegin\r\n  if ItemType <> nil then\r\n    Result := Format('Collection(%s)', [ItemType.QualifiedName])\r\n  else\r\n    Result := 'Collection()';\r\nend;\r\n\r\nfunction TXDataEntityCollectionType.GetName: string;\r\nbegin\r\n  if ItemType <> nil then\r\n    Result := Format('Collection(%s)', [ItemType.Name])\r\n  else\r\n    Result := 'Collection()';\r\nend;\r\n\r\nfunction TXDataEntityCollectionType.GetTypeKind: TXTypeKind;\r\nbegin\r\n  Result := TXTypeKind.xtEntityCollection;\r\nend;\r\n\r\nfunction TXDataEntityCollectionType.GetWrappedType: TXDataType;\r\nbegin\r\n  Result := ItemType;\r\nend;\r\n\r\nfunction TXDataEntityCollectionType.QualifiedName: string;\r\nbegin\r\n  if ItemType <> nil then\r\n    Result := Format('Collection(%s)', [ItemType.QualifiedName])\r\n  else\r\n    Result := 'Collection()';\r\nend;\r\n\r\n{ TXDataEntitySet }\r\n\r\nfunction TXDataEntitySet.GetContainer: TXDataEntityContainer;\r\nbegin\r\n  Result := TXDataEntityContainer(inherited Parent);\r\nend;\r\n\r\nfunction TXDataEntitySet.GetEntityTypeRef: string;\r\nbegin\r\n  if EntityType <> nil then\r\n    Result := EntityType.Name\r\n  else\r\n    Result := '';\r\nend;\r\n\r\nprocedure TXDataEntitySet.Prepare;\r\nbegin\r\n  if FEntityTypeRef <> '' then\r\n  begin\r\n    EntityType := Container.Schema.FindEntityType(FEntityTypeRef);\r\n    if EntityType = nil then\r\n      raise EModelReferenceNotFound.CreateFmt('EntityType not found: %s', [FEntityTypeRef]);\r\n    FEntityTypeRef := '';\r\n  end;\r\nend;\r\n\r\n{ ECannotSetTypeKind }\r\n\r\nconstructor ECannotSetTypeKind.Create(Prop: TXDataProperty; Value: TXTypeKind);\r\nbegin\r\n  inherited CreateFmt('Cannot set property \"%s\" type to type kind %s',\r\n    [Prop.QualifiedName, IntToStr(Ord(Value))]);\r\nend;\r\n\r\n{ TXDataAction }\r\n\r\nfunction TXDataAction.BodyParamCount: Integer;\r\nbegin\r\n  Result := ParamCount(TBindingMode.FromBody);\r\nend;\r\n\r\nconstructor TXDataAction.Create;\r\nbegin\r\n  FHttpMethod := 'POST';\r\n  {$IFDEF GENERICS}\r\n  FParameters := TOwnedList<TXDataParamDef, TXDataAction>.Create(Self);\r\n  {$ELSE}\r\n  FParameters := TXDataParamDefList.Create(Self);\r\n  {$ENDIF}\r\nend;\r\n\r\ndestructor TXDataAction.Destroy;\r\nbegin\r\n  FParameters.Free;\r\n  FRouteInfo.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TXDataAction.FindParameter(const AName: string): TXDataParamDef;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  I := IndexOfParameter(AName);\r\n  if I >= 0 then\r\n    Result := Parameters[I]\r\n  else\r\n    Result := nil;\r\nend;\r\n\r\nfunction TXDataAction.HasOutputParams: Boolean;\r\nvar\r\n  ParamDef: TXDataParamDef;\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to Parameters.Count - 1 do\r\n  begin\r\n    ParamDef := Parameters[I];\r\n    if ParamDef.Output then\r\n      Exit(True);\r\n  end;\r\n  Result := False;\r\nend;\r\n\r\nfunction TXDataAction.IndexOf(Param: TXDataParamDef): Integer;\r\nbegin\r\n  Result := FParameters.IndexOf(Param);\r\nend;\r\n\r\nfunction TXDataAction.IndexOfParameter(const AName: string): Integer;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to Parameters.Count - 1 do\r\n    if SameText(Parameters[I].Name, AName) then\r\n      Exit(I);\r\n  Result := -1;\r\nend;\r\n\r\nfunction TXDataAction.IsFormContent: Boolean;\r\nbegin\r\n  Result := SameText(Consumes, 'application/x-www-form-urlencoded');\r\nend;\r\n\r\nfunction TXDataAction.IsJsonContent: Boolean;\r\nbegin\r\n  Result := (Consumes = '') or SameText(Consumes, 'application/json');\r\nend;\r\n\r\nfunction TXDataAction.ParamCount(Binding: TBindingMode): Integer;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := 0;\r\n  for I := 0 to Parameters.Count - 1 do\r\n    if Parameters[I].BindingMode = Binding then\r\n      Inc(Result);\r\nend;\r\n\r\nfunction TXDataAction.PathParamCount: Integer;\r\nbegin\r\n  Result := ParamCount(TBindingMode.FromPath);\r\nend;\r\n\r\nprocedure TXDataAction.Prepare;\r\nvar\r\n  ParamDefIndex: Integer;\r\n  ParamDef: TXDataParamDef;\r\n  Segment: TXDataRouteSegment;\r\n  I: Integer;\r\nbegin\r\n  for ParamDefIndex := 0 to Parameters.Count - 1 do\r\n  begin\r\n    ParamDef := Parameters[ParamDefIndex];\r\n    ParamDef.Prepare;\r\n  end;\r\n\r\n  // Solve return type reference, if any\r\n  if FReturnTypeRef <> '' then\r\n  begin\r\n    ReturnType := Controller.Schema.FindType(FReturnTypeRef);\r\n    if ReturnType = nil then\r\n      raise EModelReferenceNotFound.CreateFmt('Return type %s not found for action %s.%s',\r\n        [FReturnTypeRef, Controller.Name, Name]);\r\n    FReturnTypeRef := '';\r\n  end;\r\n\r\n  // Prepare Route\r\n  FreeAndNil(FRouteInfo);\r\n  FRouteInfo := TXDataRouteInfo.Create;\r\n  FRouteInfo.Process(Controller.Name + '/' + Self.Name);\r\n\r\n  // Bind parameters to existing PathParams\r\n  for I := 0 to FRouteInfo.SegmentCount - 1 do\r\n  begin\r\n    Segment := FRouteInfo.Segments[I];\r\n    if Segment.IsParam then\r\n    begin\r\n      Segment.ParamIndex := -1;\r\n      // find an existing parameter by name\r\n      for ParamDefIndex := 0 to PathParamCount - 1 do\r\n        if SameText(PathParams[ParamDefIndex].Name, Segment.ParamName) then\r\n        begin\r\n          Segment.ParamIndex := ParamDefIndex;\r\n          break;\r\n        end;\r\n      if Segment.ParamIndex = -1 then\r\n        raise EXDataInvalidRouteParam.Create(Self, Segment.Value);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TXDataAction.QueryParamCount: Integer;\r\nbegin\r\n  Result := ParamCount(TBindingMode.FromURI);\r\nend;\r\n\r\nfunction TXDataAction.RequiredPathParamCount: Integer;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := 0;\r\n  for I := 0 to Parameters.Count - 1 do\r\n    if Parameters[I].BindingMode = TBindingMode.FromPath then\r\n      if not Parameters[I].HasDefaultValue then\r\n        Inc(Result);\r\nend;\r\n\r\nfunction TXDataAction.ParamStreamIndex: Integer;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to Parameters.Count - 1 do\r\n    if Assigned(Parameters[I].ParamType) and (Parameters[I].ParamType.TypeKind = TXTypeKind.xtRaw) then\r\n    begin\r\n      Result := I;\r\n      Exit;\r\n    end;\r\n\r\n  if IsParamStream then\r\n    Result := 0\r\n  else\r\n    Result := -1;\r\nend;\r\n\r\nfunction TXDataAction.GetBodyParam(Index: Integer): TXDataParamDef;\r\nbegin\r\n  Result := GetParam(TBindingMode.FromBody, Index);\r\nend;\r\n\r\nfunction TXDataAction.GetController: TXDataController;\r\nbegin\r\n  Result := TXDataController(inherited Parent);\r\nend;\r\n\r\nfunction TXDataAction.GetParam(Binding: TBindingMode; Index: Integer): TXDataParamDef;\r\nvar\r\n  I, CurIndex: Integer;\r\nbegin\r\n  Result := nil;\r\n  CurIndex := -1;\r\n  for I := 0 to Parameters.Count - 1 do\r\n    if Parameters[I].BindingMode = Binding then\r\n    begin\r\n      Inc(CurIndex);\r\n      if Index = CurIndex then\r\n      begin\r\n        Result := Parameters[I];\r\n        Exit;\r\n      end;\r\n    end;\r\n  ErrorOutOfRange;\r\nend;\r\n\r\nfunction TXDataAction.GetPathParam(Index: Integer): TXDataParamDef;\r\nbegin\r\n  Result := GetParam(TBindingMode.FromPath, Index);\r\nend;\r\n\r\nfunction TXDataAction.GetQueryParam(Index: Integer): TXDataParamDef;\r\nbegin\r\n  Result := GetParam(TBindingMode.FromURI, Index);\r\nend;\r\n\r\nfunction TXDataAction.GetReturnTypeRef: string;\r\nbegin\r\n  if FReturnType <> nil then\r\n    Result := FReturnType.Name\r\n  else\r\n    Result := '';\r\nend;\r\n\r\n{ TXDataParamDef }\r\n\r\nfunction TXDataParamDef.GetParent: TXDataAction;\r\nbegin\r\n  Result := TXDataAction(inherited Parent);\r\nend;\r\n\r\nfunction TXDataParamDef.GetTypeNameRef: string;\r\nbegin\r\n  if (FType <> nil) and (GetTypeRef = '') then\r\n    Result := FType.Name\r\n  else\r\n    Result := '';\r\nend;\r\n\r\nfunction TXDataParamDef.GetTypeRef: string;\r\nbegin\r\n  // backward compatibility: GetType only returns value if the type is\r\n  // scalar type and not a collection. This is what previous XData clients expect\r\n  if (FType <> nil) and (FType is TXDataScalarType) and not FType.IsCollection then\r\n    Result := FType.Name\r\n  else\r\n    Result := '';\r\nend;\r\n\r\nfunction TXDataParamDef.GetUrlConverter: TXDataTypeConverter;\r\nbegin\r\n  if ParamType <> nil then\r\n    Result := ParamType.UrlConverter\r\n  else\r\n    Result := nil;\r\nend;\r\n\r\nfunction TXDataParamDef.Index: Integer;\r\nbegin\r\n  Result := Parent.IndexOf(Self);\r\nend;\r\n\r\nprocedure TXDataParamDef.Prepare;\r\nbegin\r\n  // Solve type reference, if any\r\n  if FTypeRef <> '' then\r\n  begin\r\n    ParamType := Parent.Controller.Schema.FindType(FTypeRef);\r\n    if ParamType = nil then\r\n      raise EModelReferenceNotFound.CreateFmt('Param type %s not found for property %s.%s',\r\n        [FTypeRef, Parent.Name, Name]);\r\n    FTypeRef := '';\r\n  end;\r\n  if FTypeNameRef <> '' then\r\n  begin\r\n    ParamType := Parent.Controller.Schema.FindType(FTypeNameRef);\r\n    FTypeNameRef := '';\r\n  end;\r\nend;\r\n\r\nprocedure TXDataParamDef.SetDefaultValue(const Value: TValue);\r\nbegin\r\n  FDefaultValue := Value;\r\n  FHasDefaultValue := True;\r\nend;\r\n\r\n{ TXDataController }\r\n\r\nconstructor TXDataController.Create;\r\nbegin\r\n  {$IFDEF GENERICS}\r\n  FActions := TOwnedList<TXDataAction, TXDataController>.Create(Self);\r\n  {$ELSE}\r\n  FActions := TXDataActionList.Create(Self);\r\n  {$ENDIF}\r\nend;\r\n\r\ndestructor TXDataController.Destroy;\r\nbegin\r\n  FActions.Free;\r\n  FRouteInfo.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TXDataController.GetSchema: TXDataSchema;\r\nbegin\r\n  Result := TXDataSchema(inherited Parent);\r\nend;\r\n\r\nprocedure TXDataController.Prepare;\r\nvar\r\n  ActionIndex: Integer;\r\n  Action: TXDataAction;\r\nbegin\r\n  // prepare RouteInof\r\n  FreeAndNil(FRouteInfo);\r\n  FRouteInfo := TXDataRouteInfo.Create;\r\n  FRouteInfo.Process(Name);\r\n\r\n  // prepare actions\r\n  for ActionIndex := 0 to Actions.Count - 1 do\r\n  begin\r\n    Action := Actions[ActionIndex];\r\n    Action.Prepare;\r\n  end;\r\nend;\r\n\r\n{ TXDataNavigationProperty }\r\n\r\nfunction TXDataNavigationProperty.GetParent: TXDataEntityType;\r\nbegin\r\n  Result := TXDataEntityType(inherited Parent);\r\nend;\r\n\r\nfunction TXDataNavigationProperty.GetTarget: TXDataStructuredType;\r\nbegin\r\n  Result := Target;\r\nend;\r\n\r\nfunction TXDataNavigationProperty.GetTypeKind: TXTypeKind;\r\nbegin\r\n  if (Target <> nil) and (Target.IsCollection) then\r\n    Result := TXTypeKind.xtEntityCollection\r\n  else\r\n    Result := TXTypeKind.xtEntity;\r\nend;\r\n\r\nprocedure TXDataNavigationProperty.Prepare;\r\nbegin\r\n  if FTargetRef <> '' then\r\n  begin\r\n    Target := Parent.Schema.FindEntityType(FTargetRef);\r\n    if Target = nil then\r\n      raise EModelReferenceNotFound.CreateFmt('Target %s not found for navigation property %s.%s',\r\n        [FTargetRef, Parent.Name, Name]);\r\n    FTargetRef := '';\r\n  end;\r\nend;\r\n\r\n{ TXDataOwnedList }\r\n\r\n{$IFNDEF GENERICS}\r\nconstructor TXDataOwnedList.Create;\r\nbegin\r\n  Create(nil);\r\nend;\r\n\r\nconstructor TXDataOwnedList.Create(AOwner: TXDataModelObject);\r\nbegin\r\n  inherited Create(AOwner <> nil);\r\n  FOwner := AOwner;\r\nend;\r\n\r\n{$IFDEF PAS2JS}\r\nprocedure TXDataOwnedList.Notify(Ptr: JSValue; Action: TListNotification);\r\n{$ELSE}\r\nprocedure TXDataOwnedList.Notify(Ptr: Pointer; Action: TListNotification);\r\n{$ENDIF}\r\nbegin\r\n  if FOwner = nil then Exit; // not managed\r\n  \r\n  if Action = lnAdded then\r\n    TXDataModelObject(Ptr).Parent := FOwner\r\n  else\r\n    TXDataModelObject(Ptr).Parent := nil;\r\n  inherited;\r\nend;\r\n{$ENDIF}\r\n\r\n{ TXDataParamDefList }\r\n\r\n{$IFNDEF GENERICS}\r\nfunction TXDataParamDefList.GetItem(Index: Integer): TXDataParamDef;\r\nbegin\r\n  Result := TXDataParamDef(inherited Items[Index]);\r\nend;\r\n{$ENDIF}\r\n\r\n{ TXDataEntityContainerList }\r\n\r\n{$IFNDEF GENERICS}\r\nfunction TXDataEntityContainerList.GetItem(\r\n  Index: Integer): TXDataEntityContainer;\r\nbegin\r\n  Result := TXDataEntityContainer(inherited Items[Index]);\r\nend;\r\n{$ENDIF}\r\n\r\n{ TXDataSchemaList }\r\n\r\n{$IFNDEF GENERICS}\r\nfunction TXDataSchemaList.GetItem(Index: Integer): TXDataSchema;\r\nbegin\r\n  Result := TXDataSchema(inherited Items[Index]);\r\nend;\r\n{$ENDIF}\r\n\r\n{ TXDataPropertyList }\r\n\r\n{$IFNDEF GENERICS}\r\nfunction TXDataPropertyList.GetItem(Index: Integer): TXDataProperty;\r\nbegin\r\n  Result := TXDataProperty(inherited Items[Index]);\r\nend;\r\n{$ENDIF}\r\n\r\n{ TXDataEnumTypeList }\r\n\r\n{$IFNDEF GENERICS}\r\nfunction TXDataEnumTypeList.GetItem(Index: Integer): TXDataEnumType;\r\nbegin\r\n  Result := TXDataEnumType(inherited Items[Index]);\r\nend;\r\n{$ENDIF}\r\n\r\n{ TXDataEnumMemberList }\r\n\r\n{$IFNDEF GENERICS}\r\nfunction TXDataEnumMemberList.GetItem(Index: Integer): TXDataEnumMember;\r\nbegin\r\n  Result := TXDataEnumMember(inherited Items[Index]);\r\nend;\r\n{$ENDIF}\r\n\r\n{ TXDataEntityTypeList }\r\n\r\n{$IFNDEF GENERICS}\r\nfunction TXDataEntityTypeList.GetItem(Index: Integer): TXDataEntityType;\r\nbegin\r\n  Result := TXDataEntityType(inherited Items[Index]);\r\nend;\r\n{$ENDIF}\r\n\r\n{ TXDataInstanceTypeList }\r\n\r\n{$IFNDEF GENERICS}\r\nfunction TXDataInstanceTypeList.GetItem(Index: Integer): TXDataInstanceType;\r\nbegin\r\n  Result := TXDataInstanceType(inherited Items[Index]);\r\nend;\r\n{$ENDIF}\r\n\r\n{ TXDataControllerList }\r\n\r\n{$IFNDEF GENERICS}\r\nfunction TXDataControllerList.GetItem(Index: Integer): TXDataController;\r\nbegin\r\n  Result := TXDataController(inherited Items[Index]);\r\nend;\r\n{$ENDIF}\r\n\r\n{ TXDataOwnedActionList }\r\n\r\n{$IFNDEF GENERICS}\r\nfunction TXDataActionList.GetItem(Index: Integer): TXDataAction;\r\nbegin\r\n  Result := TXDataAction(inherited Items[Index]);\r\nend;\r\n{$ENDIF}\r\n\r\n{ TXDataSimplePropertyList }\r\n\r\n{$IFNDEF GENERICS}\r\nfunction TXDataSimplePropertyList.GetItem(Index: Integer): TXDataSimpleProperty;\r\nbegin\r\n  Result := TXDataSimpleProperty(inherited Items[Index]);\r\nend;\r\n{$ENDIF}\r\n\r\n{ EXDataEntityTypeNotFound }\r\n\r\nconstructor EXDataEntityTypeNotFound.Create(const AName: string);\r\nbegin\r\n  inherited CreateFmt('Entity type not found for type \"%s\"', [AName]);\r\nend;\r\n\r\n{ EXDataEntitySetNotFound }\r\n\r\nconstructor EXDataEntitySetNotFound.Create(const AName: string);\r\nbegin\r\n  inherited CreateFmt('Entity set \"%s\" not found', [AName]);\r\nend;\r\n\r\n{ ECannotBuildKeyPredicateWrongValueLength }\r\n\r\nconstructor ECannotBuildKeyPredicateWrongValueLength.Create(\r\n  AType: TXDataEntityType);\r\nbegin\r\n  inherited CreateFmt('Cannot create id predicate for type \"%s\". ' +\r\n    'The length of id value does not match number of elements in composite key', [AType.QualifiedName]);\r\nend;\r\n\r\n{ ECannotBuildCanonicalUrl }\r\n\r\nconstructor ECannotBuildCanonicalUrl.Create(AType: TXDataEntityType);\r\nbegin\r\n  inherited CreateFmt('Cannot create canonical url for type \"%s\"', [AType.QualifiedName]);\r\nend;\r\n\r\n{ TXDataEntitySetList }\r\n\r\n{$IFNDEF GENERICS}\r\nfunction TXDataEntitySetList.GetItem(Index: Integer): TXDataEntitySet;\r\nbegin\r\n  Result := TXDataEntitySet(inherited Items[Index]);\r\nend;\r\n{$ENDIF}\r\n\r\n{ TXDataNavigationPropertyList }\r\n\r\n{$IFNDEF GENERICS}\r\nfunction TXDataNavigationPropertyList.GetItem(\r\n  Index: Integer): TXDataNavigationProperty;\r\nbegin\r\n  Result := TXDataNavigationProperty(inherited Items[Index]);\r\nend;\r\n{$ENDIF}\r\n\r\n{ EFromURIBindingNotSupported }\r\n\r\nconstructor EFromURIBindingNotSupported.Create(AParam: TXDataParamDef);\r\nvar\r\n  ParamTypeName: string;\r\nbegin\r\n  if AParam.ParamType <> nil then\r\n    ParamTypeName := AParam.ParamType.Name\r\n  else\r\n    ParamTypeName := '(undefined)';\r\n\r\n  inherited CreateFmt('Cannot define action \"%s\": Type \"%s\" for param \"%s\" cannot be bound from URI',\r\n    [AParam.Parent.Name, ParamTypeName, AParam.Name]);\r\nend;\r\n\r\n{ EUrlConverterNotFound }\r\n\r\nconstructor EUrlConverterNotFound.Create(AType: TXDataType);\r\nvar\r\n  ATypeName: string;\r\nbegin\r\n  if AType = nil then\r\n    ATypeName := '(null)'\r\n  else\r\n    ATypeName := AType.Name;\r\n  inherited CreateFmt('Could not find URL converter for type \"%s\"', [ATypeName]);\r\nend;\r\n\r\n{ TXDataUrlConverters }\r\n\r\nconstructor TXDataUrlConverters.Create;\r\nbegin\r\n  inherited Create;\r\n  FConverterMap := TStringMap.Create(True);\r\nend;\r\n\r\ndestructor TXDataUrlConverters.Destroy;\r\nbegin\r\n  FConverterMap.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TXDataUrlConverters.Find(const ATypeName: string): TXDataTypeConverter;\r\nbegin\r\n  if FConverterMap.ContainsKey(ATypeName) then\r\n    Result := TXDataTypeConverter(FConverterMap[ATypeName])\r\n  else\r\n    Result := nil;\r\nend;\r\n\r\nprocedure TXDataUrlConverters.RegisterConverter(const ATypeName: string;\r\n  AConverter: TXDataTypeConverter);\r\nbegin\r\n  FConverterMap.AddOrSetValue(ATypeName, AConverter);\r\nend;\r\n\r\n{ TXDataRouteInfo }\r\n\r\nconstructor TXDataRouteInfo.Create;\r\nbegin\r\n  FSegments := TXDataRouteSegmentList.Create;\r\nend;\r\n\r\ndestructor TXDataRouteInfo.Destroy;\r\nbegin\r\n  FSegments.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TXDataRouteInfo.GetSegment(Index: Integer): TXDataRouteSegment;\r\nbegin\r\n  Result := FSegments[Index];\r\nend;\r\n\r\nfunction TXDataRouteInfo.GetSegmentCount: Integer;\r\nbegin\r\n  Result := FSegments.Count;\r\nend;\r\n\r\n{$IFDEF PAS2JS}\r\nfunction FindDelimiter(const S: string; StartIdx: Integer = 1): Integer;\r\nvar\r\n  Stop: Boolean;\r\n  Len: Integer;\r\nbegin\r\n  Result := 0;\r\n\r\n  Len := Length(S);\r\n  Stop := False;\r\n  while (not Stop) and (StartIdx <= Len) do\r\n    if S[StartIdx] = '/' then\r\n    begin\r\n      Result := StartIdx;\r\n      Stop := True;\r\n    end\r\n    else\r\n      Inc(StartIdx);\r\nend;\r\n\r\nfunction SplitString(const S, Delimiters: string): TStringDynArray;\r\nvar\r\n  StartIdx: Integer;\r\n  FoundIdx: Integer;\r\n  SplitPoints: Integer;\r\n  CurrentSplit: Integer;\r\n  i: Integer;\r\nbegin\r\n  Result := nil;\r\n\r\n  if S <> '' then\r\n  begin\r\n    { Determine the length of the resulting array }\r\n    SplitPoints := 0;\r\n    for i := 1 to Length(S) do\r\n      if S[i] = '/' then\r\n        Inc(SplitPoints);\r\n\r\n    SetLength(Result, SplitPoints + 1);\r\n\r\n    { Split the string and fill the resulting array }\r\n    StartIdx := 1;\r\n    CurrentSplit := 0;\r\n    repeat\r\n      FoundIdx := FindDelimiter(S, StartIdx);\r\n      if FoundIdx <> 0 then\r\n      begin\r\n        Result[CurrentSplit] := Copy(S, StartIdx, FoundIdx - StartIdx);\r\n        Inc(CurrentSplit);\r\n        StartIdx := FoundIdx + 1;\r\n      end;\r\n    until CurrentSplit = SplitPoints;\r\n\r\n    // copy the remaining part in case the string does not end in a delimiter\r\n    Result[SplitPoints] := Copy(S, StartIdx, Length(S) - StartIdx + 1);\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TXDataRouteInfo.Process(const ARoute: string);\r\nvar\r\n  I: Integer;\r\n  StrSegments: TStringDynArray;\r\nbegin\r\n  // add the segments\r\n  StrSegments := SplitString(ARoute, '/');\r\n  for I := 0 to Length(StrSegments) - 1 do\r\n    if StrSegments[I] <> '' then\r\n      FSegments.Add(TXDataRouteSegment.Create(StrSegments[I]));\r\n\r\n  // Define the priority and count the parameters\r\n  // Priority is defined as this: all the exact segments that come first have\r\n  // higher priority. Any segment with parameter is less priority.\r\n  // For example, the following routes are in order of priority (higher to low)\r\n  // a/b/c\r\n  // a/b/?\r\n  // a/?/c\r\n  // ?/b/c\r\n  // ?\r\n  FPriority := 0;\r\n  FParamCount := 0;\r\n  for I := 0 to SegmentCount - 1 do\r\n  begin\r\n    if Segments[I].IsParam then\r\n      Inc(FParamCount)\r\n    else\r\n      FPriority := FPriority or (1 shl (16 - I));\r\n  end;\r\nend;\r\n\r\n{ TXDataRouteSegment }\r\n\r\nconstructor TXDataRouteSegment.Create(const AValue: string);\r\nbegin\r\n  FValue := AValue;\r\n//  if Value = '?' then\r\n//    FSegmentType := TXDataRouteSegmentType.Parameter;\r\n\r\n  if (Length(Value) >= 3) and (Value[1] = '{') and (Value[Length(Value)] = '}') then\r\n  begin\r\n    FIsParam := True;\r\n    FParamName := Copy(Value, 2, Length(Value) - 2);\r\n  end;\r\nend;\r\n\r\n{ EXDataInvalidRouteParam }\r\n\r\nconstructor EXDataInvalidRouteParam.Create(Action: TXDataAction;\r\n  const ParamName: string);\r\nbegin\r\n  inherited CreateFmt('Invalid param \"%s\" in route of action \"%s\"',\r\n    [ParamName, Action.OperationId]);\r\nend;\r\n\r\n{ TXDataRouteSegmentList }\r\n\r\n{$IFNDEF GENERICS}\r\nfunction TXDataRouteSegmentList.GetItem(Index: Integer): TXDataRouteSegment;\r\nbegin\r\n  Result := TXDataRouteSegment(inherited Items[Index]);\r\nend;\r\n{$ENDIF}\r\n\r\n{ TXDataInstanceType }\r\n\r\nconstructor TXDataInstanceType.Create;\r\nbegin\r\n  inherited;\r\n  {$IFDEF GENERICS}\r\n  FProperties := TOwnedList<TXDataInstanceSimpleProperty, TXDataInstanceType>.Create(Self);\r\n  FNavigationProperties := TOwnedList<TXDataInstanceNavigationProperty, TXDataInstanceType>.Create(Self);\r\n  {$ELSE}\r\n  FProperties := TXDataInstanceScalarPropertyList.Create(Self);\r\n  FNavigationProperties := TXDataInstanceNavigationPropertyList.Create(Self);\r\n  {$ENDIF}\r\nend;\r\n\r\ndestructor TXDataInstanceType.Destroy;\r\nbegin\r\n  FNavigationProperties.Free;\r\n  FProperties.Free;\r\n  FCollection.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TXDataInstanceType.GetBaseTypeRef: string;\r\nbegin\r\n  if FBaseType <> nil then\r\n    Result := FBaseType.Name\r\n  else\r\n    Result := '';\r\nend;\r\n\r\nfunction TXDataInstanceType.GetCollection: TXDataInstanceCollectionType;\r\nbegin\r\n  if FCollection = nil then\r\n  begin\r\n    FCollection := TXDataInstanceCollectionType.Create;\r\n    FCollection.ItemType := Self;\r\n    FCollection.Parent := Self.Parent;\r\n  end;\r\n  Result := FCollection;\r\nend;\r\n\r\nfunction TXDataInstanceType.GetStructuredProperty(Index: Integer): TXDataStructuredProperty;\r\nbegin\r\n  Result := NavigationProperties[Index]\r\nend;\r\n\r\nfunction TXDataInstanceType.GetScalarProperty(Index: Integer): TXDataScalarProperty;\r\nbegin\r\n  Result := Properties[Index];\r\nend;\r\n\r\nfunction TXDataInstanceType.GetTypeKind: TXTypeKind;\r\nbegin\r\n  Result := TXTypeKind.xtInstance;\r\nend;\r\n\r\nfunction TXDataInstanceType.StructuredPropertyCount: Integer;\r\nbegin\r\n  Result := NavigationProperties.Count;\r\nend;\r\n\r\nprocedure TXDataInstanceType.Prepare;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  if FBaseTypeRef <> '' then\r\n  begin\r\n    BaseType := Schema.FindInstanceType(FBaseTypeRef);\r\n    if BaseType = nil then\r\n      raise EModelReferenceNotFound.CreateFmt('BaseType %s not found for instance type %s', [FBaseTypeRef, Name]);\r\n    FBaseTypeRef := '';\r\n  end;\r\n  if BaseType <> nil then\r\n    BaseType.Prepare;\r\n\r\n  for I := 0 to Properties.Count - 1 do\r\n    Properties[I].Prepare;\r\n  for I := 0 to NavigationProperties.Count - 1 do\r\n    NavigationProperties[I].Prepare;\r\nend;\r\n\r\nfunction TXDataInstanceType.ScalarPropertyCount: Integer;\r\nbegin\r\n  Result := Properties.Count;\r\nend;\r\n\r\nfunction TXDataInstanceType.QualifiedName: string;\r\nbegin\r\n  Result := Self.Name;\r\n  if Self.Schema <> nil then\r\n  begin\r\n    if Self.Schema.Alias <> '' then\r\n      Result := Self.Schema.Alias + '.' + Self.Name\r\n    else\r\n    if Self.Schema.Namespace <> '' then\r\n      Result := Self.Schema.Namespace + '.' + Self.Name;\r\n  end;\r\nend;\r\n\r\n{ TXDataInstanceCollectionType }\r\n\r\nfunction TXDataInstanceCollectionType.GetIsCollection: Boolean;\r\nbegin\r\n  Result := True;\r\nend;\r\n\r\nfunction TXDataInstanceCollectionType.GetName: string;\r\nbegin\r\n  if ItemType <> nil then\r\n    Result := Format('Collection(%s)', [ItemType.Name])\r\n  else\r\n    Result := 'Collection()';\r\nend;\r\n\r\nfunction TXDataInstanceCollectionType.GetTypeKind: TXTypeKind;\r\nbegin\r\n  Result := TXTypeKind.xtInstanceCollection;\r\nend;\r\n\r\nfunction TXDataInstanceCollectionType.GetWrappedType: TXDataType;\r\nbegin\r\n  Result := ItemType;\r\nend;\r\n\r\nfunction TXDataInstanceCollectionType.QualifiedName: string;\r\nbegin\r\n  if ItemType <> nil then\r\n    Result := Format('Collection(%s)', [ItemType.QualifiedName])\r\n  else\r\n    Result := 'Collection()';\r\nend;\r\n\r\n{ TXDataStructuredProperty }\r\n\r\nfunction TXDataStructuredProperty.GetTargetRef: string;\r\nbegin\r\n  if Target <> nil then\r\n    Result := Target.Name\r\n  else\r\n    Result := FTargetRef;\r\nend;\r\n\r\nfunction TXDataStructuredProperty.GetValueType: TXDataType;\r\nbegin\r\n  Result := Target;\r\nend;\r\n\r\nfunction TXDataStructuredProperty.IsSimple: Boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n\r\n{ TXDataInstanceNavigationProperty }\r\n\r\nfunction TXDataInstanceNavigationProperty.GetParent: TXDataInstanceType;\r\nbegin\r\n  Result := TXDataInstanceType(inherited Parent);\r\nend;\r\n\r\nfunction TXDataInstanceNavigationProperty.GetTarget: TXDataStructuredType;\r\nbegin\r\n  Result := Target;\r\nend;\r\n\r\nfunction TXDataInstanceNavigationProperty.GetTypeKind: TXTypeKind;\r\nbegin\r\n  if Target = nil then Exit(TXTypeKind.xtUndefined);\r\n\r\n  if Target is TXDataEntityType then\r\n  begin\r\n    if Target.IsCollection then\r\n      Result := TXTypeKind.xtEntityCollection\r\n    else\r\n      Result := TXTypeKind.xtEntity;\r\n  end\r\n  else\r\n  begin\r\n    if Target.IsCollection then\r\n      Result := TXTypeKind.xtInstanceCollection\r\n    else\r\n      Result := TXTypeKind.xtInstance;\r\n  end;\r\nend;\r\n\r\nprocedure TXDataInstanceNavigationProperty.Prepare;\r\nbegin\r\n  if FTargetRef <> '' then\r\n  begin\r\n    Target := Parent.Schema.FindEntityType(FTargetRef);\r\n    if Target = nil then\r\n      Target := Parent.Schema.FindInstanceType(FTargetRef);\r\n    FTargetRef := '';\r\n  end;\r\nend;\r\n\r\n{ TXDataInstanceSimpleProperty }\r\n\r\nfunction TXDataInstanceSimpleProperty.GetParent: TXDataInstanceType;\r\nbegin\r\n  Result := TXDataInstanceType(inherited Parent);\r\nend;\r\n\r\nprocedure TXDataInstanceSimpleProperty.Prepare;\r\nbegin\r\n  // Resolve type reference\r\n  if FTypeRef <> '' then\r\n  begin\r\n    PropertyType := Parent.Schema.FindScalarType(FTypeRef);\r\n    FTypeRef := '';\r\n  end;\r\nend;\r\n\r\n{ TXDataInstanceScalarPropertyList }\r\n\r\n{$IFNDEF GENERICS}\r\nfunction TXDataInstanceScalarPropertyList.GetItem(Index: Integer): TXDataInstanceSimpleProperty;\r\nbegin\r\n  Result := TXDataInstanceSimpleProperty(inherited Items[Index]);\r\nend;\r\n{$ENDIF}\r\n\r\n{ TXDataInstancePropertyList }\r\n\r\n{$IFNDEF GENERICS}\r\nfunction TXDataInstanceNavigationPropertyList.GetItem(Index: Integer): TXDataInstanceNavigationProperty;\r\nbegin\r\n  Result := TXDataInstanceNavigationProperty(inherited Items[Index]);\r\nend;\r\n{$ENDIF}\r\n\r\n{ TXDataStructuredType }\r\n\r\nfunction TXDataStructuredType.FindAnyProperty(const AName: string): TXDataProperty;\r\nbegin\r\n  Result := FindScalarProperty(AName);\r\n  if Result = nil then\r\n    Result := FindStructuredProperty(AName);\r\nend;\r\n\r\nfunction TXDataStructuredType.FindScalarProperty(const AName: string): TXDataScalarProperty;\r\nvar\r\n  Prop: TXDataScalarProperty;\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to ScalarPropertyCount - 1 do\r\n  begin\r\n    Prop := GetScalarProperty(I);\r\n    if SameText(AName, Prop.Name) then\r\n      Exit(Prop);\r\n  end;\r\n  Result := nil;\r\nend;\r\n\r\nfunction TXDataStructuredType.FindStructuredProperty(const AName: string): TXDataStructuredProperty;\r\nvar\r\n  Prop: TXDataStructuredProperty;\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to StructuredPropertyCount - 1 do\r\n  begin\r\n    Prop := GetStructuredProperty(I);\r\n    if SameText(AName, Prop.Name) then\r\n      Exit(Prop);\r\n  end;\r\n  Result := nil;\r\nend;\r\n\r\nfunction TXDataStructuredType.GetSchema: TXDataSchema;\r\nbegin\r\n  Result := TXDataSchema(inherited Parent);\r\nend;\r\n\r\nend.\r\n\r\n","unit XData.Web.Headers;\r\n\r\ninterface\r\n\r\nuses\r\n  Types, SysUtils, Bcl.Collections.Common;\r\n\r\ntype\r\n  THttpHeaderInfo = class\r\n  private\r\n    FName: string;\r\n    FValue: string;\r\n  public\r\n    constructor Create(const AName, AValue: string); reintroduce;\r\n    property Name: string read FName;\r\n    property Value: string read FValue;\r\n  end;\r\n\r\n  THttpHeaders = class\r\n  strict private\r\n    FHeaders: TStringMap;\r\n  private\r\n    function GetHeaderNames: TStringDynArray;\r\n  public\r\n    constructor Create; reintroduce;\r\n    destructor Destroy; override;\r\n    procedure SetValue(const HeaderName, HeaderValue: string);\r\n    procedure AddValue(const HeaderName, HeaderValue: string);\r\n    function Get(const HeaderName: string): string;\r\n    function Exists(const HeaderName: string): boolean;\r\n    function GetIfExists(const HeaderName: string; var HeaderValue: string): Boolean;\r\n    procedure Remove(const HeaderName: string);\r\n    procedure Clear;\r\n    property HeaderNames: TStringDynArray read GetHeaderNames;\r\n  end;\r\n\r\nimplementation\r\n\r\n{ THttpHeaderInfo }\r\n\r\nconstructor THttpHeaderInfo.Create(const AName, AValue: string);\r\nbegin\r\n  FName := AName;\r\n  FValue := AValue;\r\nend;\r\n\r\n{ THttpHeaders }\r\n\r\nprocedure THttpHeaders.AddValue(const HeaderName, HeaderValue: string);\r\nbegin\r\n  if Exists(HeaderName) then\r\n    SetValue(HeaderName, Get(HeaderName) + ',' + HeaderValue)\r\n  else\r\n    SetValue(HeaderName, HeaderValue);\r\nend;\r\n\r\nprocedure THttpHeaders.Clear;\r\nbegin\r\n  FHeaders.Clear;\r\nend;\r\n\r\nconstructor THttpHeaders.Create;\r\nbegin\r\n  FHeaders := TStringMap.Create(True);\r\nend;\r\n\r\ndestructor THttpHeaders.Destroy;\r\nbegin\r\n  FHeaders.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction THttpHeaders.Exists(const HeaderName: string): boolean;\r\nbegin\r\n  Result := FHeaders.ContainsKey(LowerCase(HeaderName));\r\nend;\r\n\r\nfunction THttpHeaders.Get(const HeaderName: string): string;\r\nbegin\r\n  if FHeaders.ContainsKey(Lowercase(HeaderName)) then\r\n    Result := THttpHeaderInfo(FHeaders[Lowercase(HeaderName)]).Value\r\n  else\r\n    Result := '';\r\nend;\r\n\r\nfunction THttpHeaders.GetHeaderNames: TStringDynArray;\r\nbegin\r\n  Result := FHeaders.Keys;\r\nend;\r\n\r\nfunction THttpHeaders.GetIfExists(const HeaderName: string;\r\n  var HeaderValue: string): Boolean;\r\nbegin\r\n  Result := Exists(HeaderName);\r\n  if Result then\r\n    HeaderValue := Get(HeaderName);\r\nend;\r\n\r\nprocedure THttpHeaders.Remove(const HeaderName: string);\r\nbegin\r\n  if FHeaders.ContainsKey(LowerCase(HeaderName)) then\r\n    FHeaders.Remove(LowerCase(HeaderName));\r\nend;\r\n\r\nprocedure THttpHeaders.SetValue(const HeaderName, HeaderValue: string);\r\nbegin\r\n  if HeaderName <> '' then\r\n    FHeaders.AddOrSetValue(Lowercase(HeaderName),\r\n      THttpHeaderInfo.Create(Lowercase(HeaderName), Trim(HeaderValue)));\r\nend;\r\n\r\nend.","unit XData.Web.Request;\r\n\r\ninterface\r\n\r\nuses\r\n  XData.Web.Headers;\r\n\r\ntype\r\n  IHttpRequest = interface\r\n  ['{782AF543-EFEB-4DA5-AC25-842DF76723A0}']\r\n    function GetMethod: string;\r\n    procedure SetMethod(const Value: string);\r\n    function GetUri: string;\r\n    procedure SetUri(const Value: string);\r\n    function GetTimeout: Integer;\r\n    procedure SetTimeout(const Value: Integer);\r\n    function GetHeaders: THttpHeaders;\r\n    function GetContent: JSValue;\r\n    procedure SetContent(const Value: JSValue);\r\n    function GetResponseType: string;\r\n    procedure SetResponseType(const Value: string);\r\n    property Method: string read GetMethod write SetMethod;\r\n    property Uri: string read GetUri write SetUri;\r\n    property Headers: THttpHeaders read GetHeaders;\r\n    property Content: JSValue read GetContent write SetContent;\r\n    property Timeout: Integer read GetTimeout write SetTimeout;\r\n    property ResponseType: string read GetResponseType write SetResponseType;\r\n  end;\r\n\r\n  THttpRequest = class(TInterfacedObject, IHttpRequest)\r\n  private\r\n    FMethod: string;\r\n    FUri: string;\r\n    FHeaders: THttpHeaders;\r\n    FContent: JSValue;\r\n    FTimeout: Integer;\r\n    FResponseType: string;\r\n    function GetMethod: string;\r\n    procedure SetMethod(const Value: string);\r\n    function GetUri: string;\r\n    procedure SetUri(const Value: string);\r\n    function GetTimeout: Integer;\r\n    procedure SetTimeout(const Value: Integer);\r\n    function GetHeaders: THttpHeaders;\r\n    function GetContent: JSValue;\r\n    procedure SetContent(const Value: JSValue);\r\n    function GetResponseType: string;\r\n    procedure SetResponseType(const Value: string);\r\n  public\r\n    constructor Create; reintroduce; overload;\r\n    constructor Create(const AUri: string); overload;\r\n    constructor Create(const AUri, AMethod: string); overload;\r\n    destructor Destroy; override;\r\n    property Method: string read GetMethod write SetMethod;\r\n    property Uri: string read GetUri write SetUri;\r\n    property Headers: THttpHeaders read GetHeaders;\r\n    property Content: JSValue read GetContent write SetContent;\r\n    property Timeout: Integer read GetTimeout write SetTimeout;\r\n    property ResponseType: string read GetResponseType write SetResponseType;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  SysUtils;\r\n\r\n{ THttpRequest }\r\n\r\nconstructor THttpRequest.Create;\r\nbegin\r\n  Create('', 'GET');\r\nend;\r\n\r\nconstructor THttpRequest.Create(const AUri, AMethod: string);\r\nbegin\r\n  FHeaders := THttpHeaders.Create;\r\n  FUri := AUri;\r\n  FMethod := AMethod;\r\n  FTimeout := 0;\r\nend;\r\n\r\nconstructor THttpRequest.Create(const AUri: string);\r\nbegin\r\n  Create(AUri, 'GET');\r\nend;\r\n\r\ndestructor THttpRequest.Destroy;\r\nbegin\r\n  FHeaders.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction THttpRequest.GetContent: JSValue;\r\nbegin\r\n  Result := FContent;\r\nend;\r\n\r\nfunction THttpRequest.GetHeaders: THttpHeaders;\r\nbegin\r\n  Result := FHeaders;\r\nend;\r\n\r\nfunction THttpRequest.GetMethod: string;\r\nbegin\r\n  Result := FMethod;\r\nend;\r\n\r\nfunction THttpRequest.GetResponseType: string;\r\nbegin\r\n  Result := FResponseType;\r\nend;\r\n\r\nfunction THttpRequest.GetTimeout: Integer;\r\nbegin\r\n  Result := FTimeout;\r\nend;\r\n\r\nfunction THttpRequest.GetUri: string;\r\nbegin\r\n  Result := FUri;\r\nend;\r\n\r\nprocedure THttpRequest.SetContent(const Value: JSValue);\r\nbegin\r\n  FContent := Value;\r\nend;\r\n\r\nprocedure THttpRequest.SetMethod(const Value: string);\r\nbegin\r\n  FMethod := UpperCase(Value);\r\nend;\r\n\r\nprocedure THttpRequest.SetResponseType(const Value: string);\r\nbegin\r\n  FResponseType := Value;\r\nend;\r\n\r\nprocedure THttpRequest.SetTimeout(const Value: Integer);\r\nbegin\r\n  FTimeout := Value;\r\nend;\r\n\r\nprocedure THttpRequest.SetUri(const Value: string);\r\nbegin\r\n  FUri := Value;\r\nend;\r\n\r\nend.","unit XData.Web.Response;\r\n\r\ninterface\r\n\r\nuses\r\n  XData.Web.Headers,\r\n  Web;\r\n\r\ntype\r\n  IHttpResponse = interface\r\n  ['{4F5FBBEB-2D03-446F-AD75-FFF8DB09B0B0}']\r\n    function GetStatusCode: Integer;\r\n    function GetStatusReason: string;\r\n    function GetHeaders: THttpHeaders;\r\n    function GetContentAsText: string;\r\n    function GetContent: JSValue;\r\n    property StatusCode: Integer read GetStatusCode;\r\n    property StatusReason: string read GetStatusReason;\r\n    property Headers: THttpHeaders read GetHeaders;\r\n    property ContentAsText: string read GetContentAsText;\r\n    property Content: JSValue read GetContent;\r\n  end;\r\n\r\n  THttpResponse = class(TInterfacedObject, IHttpResponse)\r\n  strict private\r\n    FPrepared: Boolean;\r\n    function GetHeaders: THttpHeaders;\r\n  strict protected\r\n    FHeaders: THttpHeaders;\r\n    procedure PrepareResponse;\r\n  strict protected\r\n    function GetStatusCode: Integer; virtual; abstract;\r\n    function GetStatusReason: string; virtual; abstract;\r\n    procedure UpdateHeaders(AHeaders: THttpHeaders); virtual; abstract;\r\n    function GetContentAsText: string; virtual; abstract;\r\n    function GetContent: JSValue; virtual; abstract;\r\n  public\r\n    constructor Create; reintroduce;\r\n    destructor Destroy; override;\r\n    property StatusCode: integer read GetStatusCode;\r\n    property StatusReason: string read GetStatusReason;\r\n    property Headers: THttpHeaders read GetHeaders;\r\n    property ContentAsText: string read GetContentAsText;\r\n    property Content: JSValue read GetContent;\r\n  end;\r\n\r\n  // Move this class to another unit later\r\n  TXhrHttpResponse = class(THttpResponse, IHttpResponse)\r\n  strict private\r\n    FXhr: TJSXmlHttpRequest;\r\n  strict protected\r\n    function GetStatusCode: Integer; override;\r\n    function GetStatusReason: string; override;\r\n    procedure UpdateHeaders(AHeaders: THttpHeaders); override;\r\n    function GetContentAsText: string; override;\r\n    function GetContent: JSValue; override;\r\n  public\r\n    constructor Create(AXhr: TJSXmlHttpRequest); reintroduce;\r\n  end;\r\n\r\n  // Move this class to another unit later\r\n  TDummyHttpResponse = class(THttpResponse, IHttpResponse)\r\n  strict protected\r\n    function GetStatusCode: Integer; override;\r\n    function GetStatusReason: string; override;\r\n    procedure UpdateHeaders(AHeaders: THttpHeaders); override;\r\n    function GetContentAsText: string; override;\r\n    function GetContent: JSValue; override;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  Types, SysUtils, JS;\r\n\r\n{ THttpResponse }\r\n\r\nconstructor THttpResponse.Create;\r\nbegin\r\n  FHeaders := THttpHeaders.Create;\r\nend;\r\n\r\ndestructor THttpResponse.Destroy;\r\nbegin\r\n  FHeaders.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction THttpResponse.GetHeaders: THttpHeaders;\r\nbegin\r\n  PrepareResponse;\r\n  Result := FHeaders;\r\nend;\r\n\r\nprocedure THttpResponse.PrepareResponse;\r\nbegin\r\n  if FPrepared then\r\n    Exit;\r\n  FPrepared := True;\r\n  UpdateHeaders(FHeaders);\r\nend;\r\n\r\n{ TXhrHttpResponse }\r\n\r\nconstructor TXhrHttpResponse.Create(AXhr: TJSXmlHttpRequest);\r\nbegin\r\n  inherited Create;\r\n  FXhr := AXhr;\r\nend;\r\n\r\nfunction TXhrHttpResponse.GetContent: JSValue;\r\nbegin\r\n  Result := FXhr.response;\r\nend;\r\n\r\nfunction TXhrHttpResponse.GetContentAsText: string;\r\nbegin\r\n  Result := FXhr.responseText;\r\nend;\r\n\r\nfunction TXhrHttpResponse.GetStatusCode: Integer;\r\nbegin\r\n  Result := FXhr.status;\r\nend;\r\n\r\nfunction TXhrHttpResponse.GetStatusReason: string;\r\nbegin\r\n  Result := FXhr.statusText;\r\nend;\r\n\r\n{$HINTS OFF}\r\n// Pas2Js is raising a hint about \"HeaderPair never used\"\r\n// Let's disable the hint for now and remove it when compiler is fixed\r\nprocedure TXhrHttpResponse.UpdateHeaders(AHeaders: THttpHeaders);\r\nvar\r\n  I: Integer;\r\n  SplitHeaders: TStringDynArray;\r\n  HeaderPair: TStringDynArray;\r\nbegin\r\n  SplitHeaders := TJSString(Trim(FXhr.getAllResponseHeaders)).split(#13#10);\r\n  FHeaders.Clear;\r\n  for I := 0 to Length(SplitHeaders) - 1 do\r\n  begin\r\n    HeaderPair := TJSString(SplitHeaders[I]).split(':');\r\n    FHeaders.SetValue(Trim(HeaderPair[0]), Trim(HeaderPair[1]));\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\n{ TDummyHttpResponse }\r\n\r\nfunction TDummyHttpResponse.GetContent: JSValue;\r\nbegin\r\n  Result := JS.Undefined;\r\nend;\r\n\r\nfunction TDummyHttpResponse.GetContentAsText: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TDummyHttpResponse.GetStatusCode: Integer;\r\nbegin\r\n  Result := 0;\r\nend;\r\n\r\nfunction TDummyHttpResponse.GetStatusReason: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nprocedure TDummyHttpResponse.UpdateHeaders(AHeaders: THttpHeaders);\r\nbegin\r\nend;\r\n\r\nend.\r\n","unit Bcl.TypInfo.Common;\r\n\r\n{$I Bcl.inc}\r\n\r\ninterface\r\n\r\nuses\r\n  TypInfo;\r\n\r\ntype\r\n{$IFDEF PAS2JS}\r\n  PTypeInfo = TypInfo.TTypeInfo;\r\n{$ELSE}\r\n  PTypeInfo = TypInfo.PTypeInfo;\r\n{$ENDIF}\r\n\r\nfunction GetTypeName_(TypeInfo: PTypeInfo): string;\r\nfunction GetEnumName_(TypeInfo: PTypeInfo; Value: Integer): string;\r\nfunction GetEnumValue_(TypeInfo: PTypeInfo; const Name: string): Integer;\r\n\r\n\r\nimplementation\r\n\r\nfunction GetTypeName_(TypeInfo: PTypeInfo): string;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := TypeInfo.Name;\r\n  {$ELSE}\r\n  Result := TypInfo.GetTypeName(TypeInfo);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction GetEnumName_(TypeInfo: PTypeInfo; Value: Integer): string;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := TTypeInfoEnum(TypeInfo).EnumType.IntToName[Value];\r\n  {$ELSE}\r\n  Result := TypInfo.GetEnumName(TypeInfo, Value);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction GetEnumValue_(TypeInfo: PTypeInfo; const Name: string): Integer;\r\nbegin\r\n  {$IFDEF PAS2JS}\r\n  Result := TTypeInfoEnum(TypeInfo).EnumType.NameToInt[Name];\r\n  {$ELSE}\r\n  Result := TypInfo.GetEnumValue(TypeInfo, Name);\r\n  {$ENDIF}\r\nend;\r\n\r\nend.","unit XData.Model.Deserializer;\r\n\r\n{$I XData.inc}\r\n\r\ninterface\r\n\r\nuses\r\n  SysUtils, Types, TypInfo,\r\n  {$IFDEF PAS2JS}\r\n  JS,\r\n  {$ELSE}\r\n  Bcl.Json.Classes,\r\n  Bcl.Json,\r\n  {$ENDIF}\r\n  Bcl.Json.Common,\r\n  Bcl.TypInfo.Common,\r\n  XData.Model.Classes;\r\n\r\ntype\r\n  EXDataModelDeserialization = class(Exception);\r\n\r\n  TXDataModelDeserializer = class\r\n  strict private\r\n    FModel: TXDataModel;\r\n    FRoot: TJObject;\r\n  public\r\n    constructor Create(AModel: TXDataModel; const Json: string); reintroduce;\r\n    destructor Destroy; override;\r\n\r\n    procedure Read;\r\n    procedure ReadBase(Base: TXDataModelObject; JObj: TJObject);\r\n    procedure ReadType(XDataType: TXDataType; JObj: TJObject);\r\n    procedure ReadStructuredType(StructuredType: TXDataStructuredType; JObj: TJObject);\r\n    procedure ReadScalarType(ScalarType: TXDataScalarType; JObj: TJObject);\r\n\r\n    procedure ReadModel(Model: TXDataModel; JObj: TJObject);\r\n    procedure ReadSchema(Schema: TXDataSchema; JObj: TJObject);\r\n    procedure ReadEntityType(EntityType: TXDataEntityType; JObj: TJObject);\r\n    procedure ReadInstanceType(InstanceType: TXDataInstanceType; JObj: TJObject);\r\n    procedure ReadScalarProperty(ScalarProperty: TXDataScalarProperty; JObj: TJObject);\r\n    procedure ReadSimpleProperty(SimpleProperty: TXDataSimpleProperty; JObj: TJObject);\r\n    procedure ReadInstanceSimpleProperty(ScalarProperty: TXDataInstanceSimpleProperty; JObj: TJObject);\r\n    procedure ReadStructuredProperty(StructuredProperty: TXDataStructuredProperty; JObj: TJObject);\r\n    procedure ReadNavigationProperty(NavigationProperty: TXDataNavigationProperty; JObj: TJObject);\r\n    procedure ReadInstanceNavigationProperty(NavigationProperty: TXDataInstanceNavigationProperty; JObj: TJObject);\r\n    procedure ReadProperty(Prop: TXDataProperty; JObj: TJObject);\r\n    procedure ReadEntityContainer(Container: TXDataEntityContainer; JObj: TJObject);\r\n    procedure ReadEntitySet(EntitySet: TXDataEntitySet; JObj: TJObject);\r\n    procedure ReadEnumType(EnumType: TXDataEnumType; JObj: TJObject);\r\n    procedure ReadEnumMember(EnumMember: TXDataEnumMember; JObj: TJObject);\r\n    procedure ReadController(Controller: TXDataController; JObj: TJObject);\r\n    procedure ReadAction(Action: TXDataAction; JObj: TJObject);\r\n    procedure ReadParamDef(ParamDef: TXDataParamDef; JObj: TJObject);\r\n  public\r\n    class procedure Deserialize(AModel: TXDataModel; const Json: string);\r\n  end;\r\n\r\nimplementation\r\n\r\n{ TXDataModelDeserializer }\r\n\r\nconstructor TXDataModelDeserializer.Create(AModel: TXDataModel; const Json: string);\r\nbegin\r\n  FModel := AModel;\r\n  {$IFDEF PAS2JS}\r\n  FRoot := TJSJSON.parseObject(Json);\r\n  {$ELSE}\r\n  FRoot := TJson.Deserialize<TJObject>(Json);\r\n  {$ENDIF}\r\nend;\r\n\r\nclass procedure TXDataModelDeserializer.Deserialize(AModel: TXDataModel; const Json: string);\r\nvar\r\n  Deserializer: TXDataModelDeserializer;\r\nbegin\r\n  Deserializer := TXDataModelDeserializer.Create(AModel, Json);\r\n  try\r\n    Deserializer.Read;\r\n  finally\r\n    Deserializer.Free;\r\n  end;\r\nend;\r\n\r\ndestructor TXDataModelDeserializer.Destroy;\r\nbegin\r\n  {$IFNDEF PAS2JS}\r\n  FRoot.Free;\r\n  {$ENDIF}\r\n  inherited;\r\nend;\r\n\r\nprocedure TXDataModelDeserializer.ReadModel(Model: TXDataModel; JObj: TJObject);\r\nvar\r\n  Key: string;\r\n  I: Integer;\r\n  JSchemas: TJArray;\r\n  Keys: TStringDynArray;\r\n  KeyIndex: Integer;\r\nbegin\r\n  ReadBase(Model, JObj);\r\n  Model.Schemas.Clear;\r\n  Keys := JObjectKeys(JObj);\r\n  for KeyIndex := 0 to Length(Keys) - 1 do\r\n  begin\r\n    Key := Keys[KeyIndex];\r\n    if Key = 'Title' then\r\n      Model.Title := JToStr(JObj[Key])\r\n    else\r\n    if Key = 'Version' then\r\n      Model.Version := JToStr(JObj[Key])\r\n    else\r\n    if Key = 'Schemas' then\r\n    begin\r\n      JSchemas := AsJArray(JObj[Key]);\r\n      for I := 0 to JSchemas.Length - 1 do\r\n        ReadSchema(Model.Schemas[Model.Schemas.Add(TXDataSchema.Create)], AsJObject(JSchemas[I]));\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TXDataModelDeserializer.ReadNavigationProperty(\r\n  NavigationProperty: TXDataNavigationProperty; JObj: TJObject);\r\nbegin\r\n  ReadStructuredProperty(NavigationProperty, JObj);\r\nend;\r\n\r\nprocedure TXDataModelDeserializer.ReadParamDef(ParamDef: TXDataParamDef;\r\n  JObj: TJObject);\r\nvar\r\n  Key: string;\r\n  Keys: TStringDynArray;\r\n  KeyIndex: Integer;\r\nbegin\r\n  ReadBase(ParamDef, JObj);\r\n  Keys := JObjectKeys(JObj);\r\n  for KeyIndex := 0 to Length(Keys) - 1 do\r\n  begin\r\n    Key := Keys[KeyIndex];\r\n    if Key = 'Name' then\r\n      ParamDef.Name := JToStr(JObj[Key])\r\n    else\r\n    if Key = 'BindingMode' then\r\n      ParamDef.BindingMode := TBindingMode(GetEnumValue_(TypeInfo(TBindingMode), JToStr(JObj[Key])))\r\n    else\r\n    if Key = 'Output' then\r\n      ParamDef.Output := JToBool(JObj[Key])\r\n    else\r\n    if Key = 'Input' then\r\n      ParamDef.Input := JToBool(JObj[Key])\r\n    else\r\n    if Key = 'Type' then\r\n      ParamDef.TypeRef := JToStr(JObj[Key])\r\n    else\r\n    if Key = 'TypeName' then\r\n      ParamDef.TypeNameRef := JToStr(JObj[Key]);\r\n  end;\r\nend;\r\n\r\nprocedure TXDataModelDeserializer.ReadProperty(Prop: TXDataProperty;\r\n  JObj: TJObject);\r\nvar\r\n  Key: string;\r\n  Keys: TStringDynArray;\r\n  KeyIndex: Integer;\r\nbegin\r\n  ReadBase(Prop, JObj);\r\n  Keys := JObjectKeys(JObj);\r\n  for KeyIndex := 0 to Length(Keys) - 1 do\r\n  begin\r\n    Key := Keys[KeyIndex];\r\n    if Key = 'Name' then\r\n      Prop.Name := JToStr(JObj[Key])\r\n    else\r\n    if Key = 'Required' then\r\n      Prop.Required := JToBool(JObj[Key]);\r\n  end;\r\nend;\r\n\r\nprocedure TXDataModelDeserializer.Read;\r\nbegin\r\n  ReadModel(FModel, FRoot);\r\n  FModel.Prepare;\r\nend;\r\n\r\nprocedure TXDataModelDeserializer.ReadAction(Action: TXDataAction;\r\n  JObj: TJObject);\r\nvar\r\n  Key: string;\r\n  I: Integer;\r\n  JParamDefs: TJArray;\r\n  Keys: TStringDynArray;\r\n  KeyIndex: Integer;\r\nbegin\r\n  ReadBase(Action, JObj);\r\n  Keys := JObjectKeys(JObj);\r\n  for KeyIndex := 0 to Length(Keys) - 1 do\r\n  begin\r\n    Key := Keys[KeyIndex];\r\n    if Key = 'Name' then\r\n      Action.Name := JToStr(JObj[Key])\r\n    else\r\n    if Key = 'Parameters' then\r\n    begin\r\n      JParamDefs := AsJArray(JObj[Key]);\r\n      for I := 0 to JParamDefs.Length - 1 do\r\n        ReadParamDef(Action.Parameters[Action.Parameters.Add(TXDataParamDef.Create)], AsJObject(JParamDefs[I]));\r\n    end\r\n    else\r\n    if Key = 'HttpMethod' then\r\n      Action.HttpMethod := JToStr(JObj[Key])\r\n    else\r\n    if Key = 'IsParamStream' then\r\n      Action.IsParamStream := JToBool(JObj[Key])\r\n    else\r\n    if Key = 'IsResultStream' then\r\n      Action.IsResultStream := JToBool(JObj[Key])\r\n    else\r\n    if Key = 'IsResultCriteria' then\r\n      Action.IsResultCriteria := JToBool(JObj[Key])\r\n    else\r\n    if Key = 'IsResultSingleObject' then\r\n      Action.IsResultSingleObject := JToBool(JObj[Key])\r\n    else\r\n    if Key = 'OperationId' then\r\n      Action.OperationId := JToStr(JObj[Key])\r\n    else\r\n    if Key = 'ReturnType' then\r\n      Action.ReturnTypeRef := JToStr(JObj[Key])\r\n    else\r\n    if Key = 'Consumes' then\r\n      Action.Consumes := JToStr(JObj[Key]);\r\n  end;\r\nend;\r\n\r\nprocedure TXDataModelDeserializer.ReadBase(Base: TXDataModelObject;\r\n  JObj: TJObject);\r\nvar\r\n  Key: string;\r\n  Keys: TStringDynArray;\r\n  KeyIndex: Integer;\r\nbegin\r\n  Keys := JObjectKeys(JObj);\r\n  for KeyIndex := 0 to Length(Keys) - 1 do\r\n  begin\r\n    Key := Keys[KeyIndex];\r\n    if Key = 'Description' then\r\n      Base.Description := JToStr(JObj[Key]);\r\n  end;\r\nend;\r\n\r\nprocedure TXDataModelDeserializer.ReadController(Controller: TXDataController;\r\n  JObj: TJObject);\r\nvar\r\n  Key: string;\r\n  I: Integer;\r\n  JActions: TJArray;\r\n  Keys: TStringDynArray;\r\n  KeyIndex: Integer;\r\nbegin\r\n  ReadBase(Controller, JObj);\r\n  Keys := JObjectKeys(JObj);\r\n  for KeyIndex := 0 to Length(Keys) - 1 do\r\n  begin\r\n    Key := Keys[KeyIndex];\r\n    if Key = 'Name' then\r\n      Controller.Name := JToStr(JObj[Key])\r\n    else\r\n    if Key = 'Actions' then\r\n    begin\r\n      JActions := AsJArray(JObj[Key]);\r\n      for I := 0 to JActions.Length - 1 do\r\n        ReadAction(Controller.Actions[Controller.Actions.Add(TXDataAction.Create)], AsJObject(JActions[I]));\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TXDataModelDeserializer.ReadEntityContainer(\r\n  Container: TXDataEntityContainer; JObj: TJObject);\r\nvar\r\n  Key: string;\r\n  I: Integer;\r\n  JEntitySets: TJArray;\r\n  Keys: TStringDynArray;\r\n  KeyIndex: Integer;\r\nbegin\r\n  ReadBase(Container, JObj);\r\n  Keys := JObjectKeys(JObj);\r\n  for KeyIndex := 0 to Length(Keys) - 1 do\r\n  begin\r\n    Key := Keys[KeyIndex];\r\n    if Key = 'Name' then\r\n      Container.Name := JToStr(JObj[Key])\r\n    else\r\n    if Key = 'EntitySets' then\r\n    begin\r\n      JEntitySets := AsJArray(JObj[Key]);\r\n      for I := 0 to JEntitySets.Length - 1 do\r\n        ReadEntitySet(Container.EntitySets[Container.EntitySets.Add(TXDataEntitySet.Create)], AsJObject(JEntitySets[I]));\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TXDataModelDeserializer.ReadEntitySet(EntitySet: TXDataEntitySet;\r\n  JObj: TJObject);\r\nvar\r\n  Key: string;\r\n  Keys: TStringDynArray;\r\n  KeyIndex: Integer;\r\nbegin\r\n  ReadBase(EntitySet, JObj);\r\n  Keys := JObjectKeys(JObj);\r\n  for KeyIndex := 0 to Length(Keys) - 1 do\r\n  begin\r\n    Key := Keys[KeyIndex];\r\n    if Key = 'Name' then\r\n      EntitySet.Name := JToStr(JObj[Key])\r\n    else\r\n    if Key = 'EntityType' then\r\n      EntitySet.EntityTypeRef := JToStr(JObj[Key]); // Reference\r\n  end;\r\nend;\r\n\r\nprocedure TXDataModelDeserializer.ReadEntityType(EntityType: TXDataEntityType;\r\n  JObj: TJObject);\r\nvar\r\n  Key: string;\r\n  I: Integer;\r\n  JProperties: TJArray;\r\n  JNavigationProperties: TJArray;\r\n  JKey: TJArray;\r\n  TempKeyRef: TStringDynArray;\r\n  Keys: TStringDynArray;\r\n  KeyIndex: Integer;\r\nbegin\r\n  ReadStructuredType(EntityType, JObj);\r\n  SetLength(TempKeyRef, 0);\r\n  EntityType.Properties.Clear;\r\n  EntityType.NavigationProperties.Clear;\r\n  Keys := JObjectKeys(JObj);\r\n  for KeyIndex := 0 to Length(Keys) - 1 do\r\n  begin\r\n    Key := Keys[KeyIndex];\r\n    if Key = 'Properties' then\r\n    begin\r\n      JProperties := AsJArray(JObj[Key]);\r\n      for I := 0 to JProperties.Length - 1 do\r\n        ReadSimpleProperty(EntityType.Properties[EntityType.Properties.Add(TXDataSimpleProperty.Create)], AsJObject(JProperties[I]));\r\n    end\r\n    else\r\n    if Key = 'NavigationProperties' then\r\n    begin\r\n      JNavigationProperties := AsJArray(JObj[Key]);\r\n      for I := 0 to JNavigationProperties.Length - 1 do\r\n        ReadNavigationProperty(EntityType.NavigationProperties[EntityType.NavigationProperties.Add(TXDataNavigationProperty.Create)], AsJObject(JNavigationProperties[I]));\r\n    end\r\n    else\r\n    if Key = 'BaseType' then\r\n      EntityType.BaseTypeRef := JToStr(JObj[Key])\r\n    else\r\n    if Key = 'Key' then\r\n    begin\r\n      JKey := AsJArray(JObj[Key]);\r\n      SetLength(TempKeyRef, JKey.Length);\r\n      for I := 0 to JKey.Length - 1 do\r\n        TempKeyRef[I] := JToStr(JKey[I]);\r\n      EntityType.KeyRef := TempKeyRef;\r\n    end\r\n  end;\r\nend;\r\n\r\nprocedure TXDataModelDeserializer.ReadEnumMember(EnumMember: TXDataEnumMember;\r\n  JObj: TJObject);\r\nvar\r\n  Key: string;\r\n  Keys: TStringDynArray;\r\n  KeyIndex: Integer;\r\nbegin\r\n  ReadBase(EnumMember, JObj);\r\n  Keys := JObjectKeys(JObj);\r\n  for KeyIndex := 0 to Length(Keys) - 1 do\r\n  begin\r\n    Key := Keys[KeyIndex];\r\n    if Key = 'Name' then\r\n      EnumMember.Name := JToStr(JObj[Key])\r\n    else\r\n    if Key = 'Value' then\r\n      EnumMember.Value := JToInt(JObj[Key]);\r\n  end;\r\nend;\r\n\r\nprocedure TXDataModelDeserializer.ReadEnumType(EnumType: TXDataEnumType;\r\n  JObj: TJObject);\r\nvar\r\n  Key: string;\r\n  I: Integer;\r\n  JMembers: TJArray;\r\n  Keys: TStringDynArray;\r\n  KeyIndex: Integer;\r\nbegin\r\n  ReadScalarType(EnumType, JObj);\r\n  Keys := JObjectKeys(JObj);\r\n  for KeyIndex := 0 to Length(Keys) - 1 do\r\n  begin\r\n    Key := Keys[KeyIndex];\r\n    if Key = 'Members' then\r\n    begin\r\n      JMembers := AsJArray(JObj[Key]);\r\n      for I := 0 to JMembers.Length - 1 do\r\n        ReadEnumMember(EnumType.Members[EnumType.Members.Add(TXDataEnumMember.Create)], AsJObject(JMembers[I]));\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TXDataModelDeserializer.ReadInstanceNavigationProperty(NavigationProperty: TXDataInstanceNavigationProperty;\r\n  JObj: TJObject);\r\nbegin\r\n  ReadStructuredProperty(NavigationProperty, JObj);\r\nend;\r\n\r\nprocedure TXDataModelDeserializer.ReadInstanceSimpleProperty(ScalarProperty: TXDataInstanceSimpleProperty;\r\n  JObj: TJObject);\r\nbegin\r\n  ReadScalarProperty(ScalarProperty, JObj);\r\nend;\r\n\r\nprocedure TXDataModelDeserializer.ReadInstanceType(InstanceType: TXDataInstanceType; JObj: TJObject);\r\nvar\r\n  Key: string;\r\n  I: Integer;\r\n  JProperties: TJArray;\r\n  JNavigationProperties: TJArray;\r\n  Keys: TStringDynArray;\r\n  KeyIndex: Integer;\r\nbegin\r\n  ReadStructuredType(InstanceType, JObj);\r\n  InstanceType.Properties.Clear;\r\n  InstanceType.NavigationProperties.Clear;\r\n  Keys := JObjectKeys(JObj);\r\n  for KeyIndex := 0 to Length(Keys) - 1 do\r\n  begin\r\n    Key := Keys[KeyIndex];\r\n    if Key = 'Properties' then\r\n    begin\r\n      JProperties := AsJArray(JObj[Key]);\r\n      for I := 0 to JProperties.Length - 1 do\r\n        ReadInstanceSimpleProperty(InstanceType.Properties[InstanceType.Properties.Add(TXDataInstanceSimpleProperty.Create)], AsJObject(JProperties[I]));\r\n    end\r\n    else\r\n    if Key = 'NavigationProperties' then\r\n    begin\r\n      JNavigationProperties := AsJArray(JObj[Key]);\r\n      for I := 0 to JNavigationProperties.Length - 1 do\r\n        ReadInstanceNavigationProperty(InstanceType.NavigationProperties[InstanceType.NavigationProperties.Add(TXDataInstanceNavigationProperty.Create)], AsJObject(JNavigationProperties[I]));\r\n    end\r\n    else\r\n    if Key = 'BaseType' then\r\n      InstanceType.BaseTypeRef := JToStr(JObj[Key]);\r\n  end;\r\nend;\r\n\r\nprocedure TXDataModelDeserializer.ReadScalarProperty(ScalarProperty: TXDataScalarProperty; JObj: TJObject);\r\nvar\r\n  Key: string;\r\n  Keys: TStringDynArray;\r\n  KeyIndex: Integer;\r\nbegin\r\n  ReadProperty(ScalarProperty, JObj);\r\n  Keys := JObjectKeys(JObj);\r\n  for KeyIndex := 0 to Length(Keys) - 1 do\r\n  begin\r\n    Key := Keys[KeyIndex];\r\n    if Key = 'Length' then\r\n      ScalarProperty.Length := JToInt(JObj[Key])\r\n    else\r\n    if Key = 'Precision' then\r\n      ScalarProperty.Precision := JToInt(JObj[Key])\r\n    else\r\n    if Key = 'Scale' then\r\n      ScalarProperty.Scale := JToInt(JObj[Key])\r\n    else\r\n    if Key = 'Type' then\r\n      ScalarProperty.TypeRef := JToStr(JObj[Key]);\r\n  end;\r\nend;\r\n\r\nprocedure TXDataModelDeserializer.ReadScalarType(ScalarType: TXDataScalarType;\r\n  JObj: TJObject);\r\nbegin\r\n  ReadType(ScalarType, JObj);\r\nend;\r\n\r\nprocedure TXDataModelDeserializer.ReadSchema(Schema: TXDataSchema;\r\n  JObj: TJObject);\r\nvar\r\n  Key: string;\r\n  I: Integer;\r\n  JEntityTypes: TJArray;\r\n  JInstanceTypes: TJArray;\r\n  JEntityContainers: TJArray;\r\n  JEnumTypes: TJArray;\r\n  JControllers: TJArray;\r\n  Keys: TStringDynArray;\r\n  KeyIndex: Integer;\r\nbegin\r\n  ReadBase(Schema, JObj);\r\n  Schema.EntityTypes.Clear;\r\n  Schema.InstanceTypes.Clear;\r\n  Schema.EntityContainers.Clear;\r\n  Schema.EnumTypes.Clear;\r\n  Schema.Controllers.Clear;\r\n  Keys := JObjectKeys(JObj);\r\n  for KeyIndex := 0 to Length(Keys) - 1 do\r\n  begin\r\n    Key := Keys[KeyIndex];\r\n    if Key = 'Namespace' then\r\n      Schema.Namespace := JToStr(JObj[Key])\r\n    else\r\n    if Key = 'Alias' then\r\n      Schema.Alias := JToStr(JObj[Key])\r\n    else\r\n    if Key = 'EntityTypes' then\r\n    begin\r\n      JEntityTypes := AsJArray(JObj[Key]);\r\n      for I := 0 to JEntityTypes.Length - 1 do\r\n        ReadEntityType(Schema.EntityTypes[Schema.EntityTypes.Add(TXDataEntityType.Create)], AsJObject(JEntityTypes[I]));\r\n    end\r\n    else\r\n    if Key = 'InstanceTypes' then\r\n    begin\r\n      JInstanceTypes := AsJArray(JObj[Key]);\r\n      for I := 0 to JInstanceTypes.Length - 1 do\r\n        ReadInstanceType(Schema.InstanceTypes[Schema.InstanceTypes.Add(TXDataInstanceType.Create)], AsJObject(JInstanceTypes[I]));\r\n    end\r\n    else\r\n    if Key = 'EntityContainers' then\r\n    begin\r\n      JEntityContainers := AsJArray(JObj[Key]);\r\n      for I := 0 to JEntityContainers.Length - 1 do\r\n        ReadEntityContainer(Schema.EntityContainers[Schema.EntityContainers.Add(TXDataEntityContainer.Create)], AsJObject(JEntityContainers[I]));\r\n    end\r\n    else\r\n    if Key = 'EnumTypes' then\r\n    begin\r\n      JEnumTypes := AsJArray(JObj[Key]);\r\n      for I := 0 to JEnumTypes.Length - 1 do\r\n        ReadEnumType(Schema.EnumTypes[Schema.EnumTypes.Add(TXDataEnumType.Create)], AsJObject(JEnumTypes[I]));\r\n    end\r\n    else\r\n    if Key = 'Controllers' then\r\n    begin\r\n      JControllers := AsJArray(JObj[Key]);\r\n      for I := 0 to JControllers.Length - 1 do\r\n        ReadController(Schema.Controllers[Schema.Controllers.Add(TXDataController.Create)], AsJObject(JControllers[I]));\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TXDataModelDeserializer.ReadSimpleProperty(\r\n  SimpleProperty: TXDataSimpleProperty; JObj: TJObject);\r\nbegin\r\n  ReadScalarProperty(SimpleProperty, JObj);\r\nend;\r\n\r\nprocedure TXDataModelDeserializer.ReadStructuredProperty(StructuredProperty: TXDataStructuredProperty; JObj: TJObject);\r\nvar\r\n  Key: string;\r\n  Keys: TStringDynArray;\r\n  KeyIndex: Integer;\r\nbegin\r\n  ReadProperty(StructuredProperty, JObj);\r\n  Keys := JObjectKeys(JObj);\r\n  for KeyIndex := 0 to Length(Keys) - 1 do\r\n  begin\r\n    Key := Keys[KeyIndex];\r\n    if Key = 'Target' then\r\n      StructuredProperty.TargetRef := JToStr(JObj[Key]);\r\n  end;\r\nend;\r\n\r\nprocedure TXDataModelDeserializer.ReadStructuredType(\r\n  StructuredType: TXDataStructuredType; JObj: TJObject);\r\nbegin\r\n  ReadType(StructuredType, JObj);\r\nend;\r\n\r\nprocedure TXDataModelDeserializer.ReadType(XDataType: TXDataType;\r\n  JObj: TJObject);\r\nvar\r\n  Key: string;\r\n  Keys: TStringDynArray;\r\n  KeyIndex: Integer;\r\nbegin\r\n  ReadBase(XDataType, JObj);\r\n  Keys := JObjectKeys(JObj);\r\n  for KeyIndex := 0 to Length(Keys) - 1 do\r\n  begin\r\n    Key := Keys[KeyIndex];\r\n    if Key = 'Name' then\r\n      XDataType.Name := JToStr(JObj[Key]);\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit XData.Web.Connection;\r\n\r\n{$I XData.inc}\r\n{$IF PAS2JS_FULLVERSION >= 20000}\r\n  {$DEFINE JSASYNC}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  Types, Classes, SysUtils, Web, JS,\r\n  XData.Web.Request, XData.Web.Response,\r\n  XData.Model.Classes;\r\n\r\ntype\r\n  TXDataWebConnection = class;\r\n  TXDataWebConnectionDesignData = class;\r\n\r\n// Later refactor this to THttpEngine + THttpClient\r\n  THttpResponseProc = reference to procedure(Response: IHttpResponse);\r\n  THttpErrorProc = reference to procedure;\r\n  THttpEventProc = reference to procedure(Event: JSValue);\r\n  THttpRequestProc = reference to procedure(Request: IHttpRequest);\r\n\r\n  TXDataWebConnectionRequest = class\r\n  strict private\r\n    FRequest: IHttpRequest;\r\n    FConnection: TXDataWebConnection;\r\n    FRequestProc: THttpRequestProc;\r\n    FAsync: Boolean;\r\n  strict protected\r\n    property Connection: TXDataWebConnection read FConnection;\r\n  public\r\n    constructor Create(AConnection: TXDataWebConnection; ARequest: IHttpRequest); reintroduce;\r\n    property Request: IHttpRequest read FRequest;\r\n    property RequestProc: THttpRequestProc read FRequestProc write FRequestProc;\r\n    property Async: Boolean read FAsync write FAsync;\r\n  end;\r\n\r\n  TXDataWebConnectionResponse = class\r\n  strict private\r\n    FRequest: IHttpRequest;\r\n    FResponse: IHttpResponse;\r\n    FConnection: TXDataWebConnection;\r\n    FSuccessProc: THttpResponseProc;\r\n    FAsync: Boolean;\r\n  strict protected\r\n    property Connection: TXDataWebConnection read FConnection;\r\n  public\r\n    constructor Create(AConnection: TXDataWebConnection; ARequest: IHttpRequest;\r\n      AResponse: IHttpResponse); reintroduce;\r\n    property Request: IHttpRequest read FRequest;\r\n    property Response: IHttpResponse read FResponse write FResponse;\r\n    property SuccessProc: THttpResponseProc read FSuccessProc write FSuccessProc;\r\n    property Async: Boolean read FAsync write FAsync;\r\n  end;\r\n\r\n  TXDataWebConnectionError = class\r\n  strict private\r\n    FResponse: IHttpResponse;\r\n    FConnection: TXDataWebConnection;\r\n    FErrorMessage: string;\r\n    FRequestUrl: string;\r\n  strict protected\r\n    property Connection: TXDataWebConnection read FConnection;\r\n  public\r\n    constructor Create(AConnection: TXDataWebConnection; AResponse: IHttpResponse;\r\n      ARequestUrl: string; AErrorMessage: string); reintroduce;\r\n    property Response: IHttpResponse read FResponse;\r\n    property ErrorMessage: string read FErrorMessage;\r\n    property RequestUrl: string read FRequestUrl;\r\n  end;\r\n\r\n  EXDataWebConnectionException = class(Exception)\r\n  strict private\r\n    FError: TXDataWebConnectionError;\r\n  public\r\n    constructor Create(AError: TXDataWebConnectionError);\r\n    property Error: TXDataWebConnectionError read FError;\r\n  end;\r\n\r\n  TXDataWebConnectionRequestEvent = procedure(Args: TXDataWebConnectionRequest) of object;\r\n  TXDataWebConnectionResponseEvent = procedure(Args: TXDataWebConnectionResponse) of object;\r\n  TXDataWebConnectionErrorEvent = procedure(Error: TXDataWebConnectionError) of object;\r\n  TXDataWebConnectionErrorProc = reference to procedure(Error: TXDataWebConnectionError);\r\n  TXDataWebConnectionConnectProc = reference to procedure;\r\n\r\n  TXDataWebConnection = class(TComponent)\r\n  private\r\n    FURL: string;\r\n    FModel: TXDataModel;\r\n    FOnConnect: TNotifyEvent;\r\n    FStreamedConnected: Boolean;\r\n    FOnRequest: TXDataWebConnectionRequestEvent;\r\n    FOnResponse: TXDataWebConnectionResponseEvent;\r\n    FOnError: TXDataWebConnectionErrorEvent;\r\n    FDesignData: TXDataWebConnectionDesignData;\r\n    function GetConnected: Boolean;\r\n    procedure SetConnected(const Value: Boolean);\r\n    function IsDesignDataStored: Boolean;\r\n    procedure SetDesignData(const Value: TXDataWebConnectionDesignData);\r\n    procedure DoError(Response: IHttpResponse; RequestUrl: string; ErrorMessage: string;\r\n      ErrorProc: TXDataWebConnectionErrorProc);\r\n    procedure SetURL(const Value: string);\r\n  protected\r\n    procedure DoConnect(ConnectProc: TXDataWebConnectionConnectProc;\r\n      ErrorProc: TXDataWebConnectionErrorProc); virtual;\r\n    procedure DoDisconnect; virtual;\r\n  public\r\n    procedure LoadModel; deprecated;\r\n    procedure SendRequest(Request: IHttpRequest; SuccessProc: THttpResponseProc; ErrorProc: THttpErrorProc = nil);\r\n    {$IFDEF JSASYNC}\r\n    function SendRequestAsync(Request: IHttpRequest): IHttpResponse; async;\r\n    {$ENDIF}\r\n    function AbsoluteUrl(const RelativeUrl: string): string;\r\n    property Model: TXDataModel read FModel;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure Open(ConnectProc: TXDataWebConnectionConnectProc = nil; ErrorProc: TXDataWebConnectionErrorProc = nil);\r\n    {$IFDEF JSASYNC}\r\n    function OpenAsync: JSValue; async;\r\n    {$ENDIF}\r\n    procedure Close;\r\n    procedure Loaded; override;\r\n  published\r\n    property URL: string read FURL write SetURL;\r\n    property DesignData: TXDataWebConnectionDesignData read FDesignData write SetDesignData stored IsDesignDataStored;\r\n    property Connected: Boolean read GetConnected write SetConnected default False;\r\n    property OnConnect: TNotifyEvent read FOnConnect write FOnConnect;\r\n    property OnError: TXDataWebConnectionErrorEvent read FOnError write FOnError;\r\n    property OnRequest: TXDataWebConnectionRequestEvent read FOnRequest write FOnRequest;\r\n    property OnResponse: TXDataWebConnectionResponseEvent read FOnResponse write FOnResponse;\r\n  end;\r\n\r\n  TXDataWebConnectionDesignData = class(TPersistent)\r\n  private\r\n    FHeaders: TStrings;\r\n    FPersist: Boolean;\r\n    function IsStored: Boolean;\r\n    procedure SetHeaders(const Value: TStrings);\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property Headers: TStrings read FHeaders write SetHeaders stored IsStored;\r\n    property Persist: Boolean read FPersist write FPersist stored IsStored;\r\n  end;\r\n\r\n  EEventException = class(Exception)\r\n  strict private\r\n    FEvent: JSValue;\r\n  public\r\n    constructor Create(const Msg: string; AEvent: JSValue);\r\n    property Event: JSValue read FEvent;\r\n  end;\r\n\r\nprocedure InternalSendRequest(Req: IHttpRequest; SuccessProc: THttpResponseProc; ErrorProc: THttpEventProc = nil);\r\nfunction InternalSendRequestAsync(Req: IHttpRequest; SuccessProc: THttpResponseProc;\r\n  ErrorProc: THttpEventProc = nil): JSValue; async;\r\n\r\nimplementation\r\n\r\nuses\r\n  Bcl.Utils,\r\n  XData.Model.Deserializer;\r\n\r\nprocedure InternalSendRequest(Req: IHttpRequest; SuccessProc: THttpResponseProc;\r\n  ErrorProc: THttpEventProc = nil);\r\nvar\r\n  Xhr: TJSXmlHttpRequest;\r\n\r\n  procedure XhrLoad;\r\n  var\r\n    Resp: IHttpResponse;\r\n  begin\r\n    Resp := TXhrHttpResponse.Create(Xhr);\r\n    if Assigned(SuccessProc) then\r\n      SuccessProc(Resp);\r\n  end;\r\n\r\n  procedure XhrError(Event: JSValue);\r\n  begin\r\n    if Assigned(ErrorProc) then\r\n      ErrorProc(Event);\r\n  end;\r\n\r\nvar\r\n  HeaderNames: TStringDynArray;\r\n  I: Integer;\r\nbegin\r\n  Xhr := TJSXMLHttpRequest.new;\r\n  Xhr.open(Req.Method, Req.Uri, True);\r\n  HeaderNames := Req.Headers.HeaderNames;\r\n  for I := 0 to Length(HeaderNames) - 1 do\r\n    Xhr.setRequestHeader(HeaderNames[I], Req.Headers.Get(HeaderNames[I]));\r\n\r\n  Xhr.addEventListener('load', @XhrLoad);\r\n  Xhr.addEventListener('error', @XhrError);\r\n  Xhr.addEventListener('timeout', @XhrError);\r\n  if Req.Timeout > 0 then\r\n    Xhr.timeout := Req.Timeout;\r\n  if Req.ResponseType <> '' then\r\n    Xhr.responseType := Req.ResponseType;\r\n  if not Js.IsNull(Req.Content) then\r\n    Xhr.send(Req.Content)\r\n  else\r\n    Xhr.send;\r\nend;\r\n\r\nfunction InternalSendRequestAsync(Req: IHttpRequest; SuccessProc: THttpResponseProc;\r\n  ErrorProc: THttpEventProc = nil): JSValue;\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(resolve, reject: TJSPromiseResolver)\r\n    begin\r\n      InternalSendRequest(Req,\r\n        procedure(Response: IHttpResponse)\r\n        begin\r\n          resolve(Response);\r\n        end,\r\n        procedure(Event: JSValue)\r\n        begin\r\n          reject(EEventException.Create('XHR request failed', Event));\r\n        end\r\n      );\r\n    end\r\n  );\r\nend;\r\n\r\n//{$IFDEF JSASYNC}\r\n//function InternalSendRequestAsync(Req: IHttpRequest): IHttpResponse; async;\r\n//var\r\n//  Promise: TJSPromise;\r\n//begin\r\n//  Promise := TJSPromise.new(\r\n//    procedure(resolve, reject: TJSPromiseResolver)\r\n//    begin\r\n//      InternalSendRequest(\r\n//        Req,\r\n//        procedure(Response: IHttpResponse)\r\n//        begin\r\n//          resolve(Response);\r\n//        end,\r\n//        procedure\r\n//        begin\r\n//          reject(Exception.Create('Request error: ' + Req.Uri));\r\n//        end\r\n//      );\r\n//    end\r\n//  );\r\n//  Exit(Promise);\r\n//end;\r\n//{$ENDIF}\r\n\r\n{ EEventException }\r\n\r\nconstructor EEventException.Create(const Msg: string; AEvent: JSValue);\r\nbegin\r\n  inherited Create(Msg);\r\n  FEvent := AEvent;\r\nend;\r\n\r\n{ TXDataWebConnection }\r\n\r\nfunction TXDataWebConnection.AbsoluteUrl(const RelativeUrl: string): string;\r\nbegin\r\n  Result := TBclUtils.CombineUrlFast(Self.URL, RelativeUrl);\r\nend;\r\n\r\nprocedure TXDataWebConnection.Close;\r\nbegin\r\n  SetConnected(False);\r\nend;\r\n\r\nconstructor TXDataWebConnection.Create(AOwner: TComponent);\r\nbegin\r\n  inherited Create(AOwner);\r\n  FDesignData := TXDataWebConnectionDesignData.Create;\r\nend;\r\n\r\ndestructor TXDataWebConnection.Destroy;\r\nbegin\r\n  FDesignData.Free;\r\n  FModel.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TXDataWebConnection.DoConnect(ConnectProc: TXDataWebConnectionConnectProc = nil;\r\n  ErrorProc: TXDataWebConnectionErrorProc = nil);\r\nvar\r\n  ModelUrl: string;\r\n\r\n  procedure OnSuccess(Resp: IHttpResponse);\r\n  var\r\n    LocalModel: TXDataModel;\r\n  begin\r\n    if Resp.StatusCode = 200 then\r\n    begin\r\n      LocalModel := TXDataModel.Create;\r\n      try\r\n        TXDataModelDeserializer.Deserialize(LocalModel, Resp.ContentAsText);\r\n        FModel := LocalModel;\r\n      except\r\n        LocalModel.Free;\r\n        raise;\r\n      end;\r\n\r\n      // Connect callback\r\n      if Assigned(ConnectProc) then\r\n        ConnectProc()\r\n      else\r\n      if Assigned(FOnConnect) then\r\n        FOnConnect(Self);\r\n    end\r\n    else\r\n      DoError(Resp, ModelUrl,\r\n        Format('Error %d. Could not connect retrieve XData model from %s', [Resp.StatusCode, ModelUrl]),\r\n        ErrorProc\r\n      );\r\n  end;\r\n\r\n  procedure LocalError;\r\n  var\r\n    Resp: IHttpResponse;\r\n  begin\r\n    Resp := TDummyHttpResponse.Create;\r\n    DoError(Resp, ModelUrl, 'Error connecting to XData server', ErrorProc);\r\n  end;\r\n\r\nvar\r\n  Req: IHttpRequest;\r\n  I: Integer;\r\nbegin\r\n  // DoDisconnect\r\n  FModel.Free;\r\n  FModel := nil;\r\n\r\n  ModelUrl := TBclUtils.CombineUrlFast(Self.URL, '$model');\r\n\r\n  Req := THttpRequest.Create(ModelUrl);\r\n  for I := 0 to DesignData.Headers.Count - 1 do\r\n    if DesignData.Headers.Names[I] <> '' then\r\n      Req.Headers.SetValue(DesignData.Headers.Names[I], DesignData.Headers.ValueFromIndex[I]);\r\n\r\n  SendRequest(Req, @OnSuccess, @LocalError);\r\nend;\r\n\r\nprocedure TXDataWebConnection.DoDisconnect;\r\nbegin\r\n  FModel.Free;\r\n  FModel := nil;\r\nend;\r\n\r\nprocedure TXDataWebConnection.DoError(Response: IHttpResponse;\r\n  RequestUrl: string; ErrorMessage: string; ErrorProc: TXDataWebConnectionErrorProc);\r\nvar\r\n  Error: TXDataWebConnectionError;\r\nbegin\r\n  Error := TXDataWebConnectionError.Create(Self, Response, RequestUrl, ErrorMessage);\r\n  if Assigned(ErrorProc) then\r\n    ErrorProc(Error)\r\n  else\r\n  if Assigned(FOnError) then\r\n    FOnError(Error)\r\n  else\r\n    raise Exception.Create('XDataConnectionError: ' + ErrorMessage);\r\nend;\r\n\r\nfunction TXDataWebConnection.GetConnected: Boolean;\r\nbegin\r\n  Result := Assigned(FModel);\r\nend;\r\n\r\nfunction TXDataWebConnection.IsDesignDataStored: Boolean;\r\nbegin\r\n  Result := FDesignData.Persist;\r\nend;\r\n\r\nprocedure TXDataWebConnection.Loaded;\r\nbegin\r\n  inherited Loaded;\r\n  if FStreamedConnected then SetConnected(True);\r\nend;\r\n\r\nprocedure TXDataWebConnection.LoadModel;\r\nbegin\r\n  DoConnect(nil, nil);\r\nend;\r\n\r\nprocedure TXDataWebConnection.Open(ConnectProc: TXDataWebConnectionConnectProc = nil; ErrorProc: TXDataWebConnectionErrorProc = nil);\r\nbegin\r\n  if not Connected then\r\n    DoConnect(ConnectProc, ErrorProc);\r\nend;\r\n\r\n{$IFDEF JSASYNC}\r\nfunction TXDataWebConnection.OpenAsync: JSValue; async;\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(resolve, reject: TJSPromiseResolver)\r\n    begin\r\n      DoConnect(\r\n        procedure\r\n        begin\r\n          if Assigned(FOnConnect) then\r\n            FOnConnect(Self);\r\n          resolve(nil);\r\n        end,\r\n        procedure(Error: TXDataWebConnectionError)\r\n        begin\r\n          reject(EXDataWebConnectionException.Create(Error));\r\n        end\r\n      );\r\n    end\r\n  );\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TXDataWebConnection.SendRequest(Request: IHttpRequest;\r\n  SuccessProc: THttpResponseProc; ErrorProc: THttpErrorProc);\r\n\r\n  procedure LocalSuccess(Response: IHttpResponse);\r\n  var\r\n    ResponseArgs: TXDataWebConnectionResponse;\r\n    Async: Boolean;\r\n  begin\r\n    Async := False;\r\n    if Assigned(FOnResponse) then\r\n    begin\r\n      ResponseArgs := TXDataWebConnectionResponse.Create(Self, Request, Response);\r\n      try\r\n        ResponseArgs.SuccessProc :=\r\n          procedure(Response: IHttpResponse)\r\n          begin\r\n            SuccessProc(Response);\r\n          end;\r\n        FOnResponse(ResponseArgs);\r\n        Async := ResponseArgs.Async;\r\n        if not Async then\r\n          Response := ResponseArgs.Response;\r\n      finally\r\n        if not Async then\r\n          ResponseArgs.Free;\r\n      end;\r\n    end;\r\n    if not Async then\r\n      SuccessProc(Response);\r\n  end;\r\n\r\nvar\r\n  RequestArgs: TXDataWebConnectionRequest;\r\n  Async: Boolean;\r\nbegin\r\n  Async := False;\r\n\r\n  if Assigned(FOnRequest) then\r\n  begin\r\n    RequestArgs := TXDataWebConnectionRequest.Create(Self, Request);\r\n    try\r\n      RequestArgs.RequestProc :=\r\n        procedure(Request: IHttpRequest)\r\n        begin\r\n          InternalSendRequest(Request, @LocalSuccess,\r\n            procedure(Event: JSValue)\r\n            begin\r\n              ErrorProc();\r\n            end);\r\n        end;\r\n      FOnRequest(RequestArgs);\r\n      Async := RequestArgs.Async;\r\n    finally\r\n      if not Async then\r\n        RequestArgs.Free;\r\n    end;\r\n  end;\r\n  if not Async then\r\n    InternalSendRequest(Request, @LocalSuccess,\r\n      procedure(Event: JSValue)\r\n      begin\r\n        ErrorProc();\r\n      end);\r\nend;\r\n\r\n{$IFDEF JSASYNC}\r\nfunction TXDataWebConnection.SendRequestAsync(\r\n  Request: IHttpRequest): IHttpResponse;\r\nvar\r\n  Promise: TJSPromise;\r\nbegin\r\n  Promise := TJSPromise.new(\r\n    procedure(resolve, reject: TJSPromiseResolver)\r\n    begin\r\n      SendRequest(\r\n        Request,\r\n        procedure(Response: IHttpResponse)\r\n        begin\r\n          Response._AddRef;\r\n          resolve(Response);\r\n        end,\r\n        procedure\r\n        begin\r\n          reject(Exception.Create('Request error: ' + Request.Uri));\r\n        end\r\n      );\r\n    end\r\n  );\r\n  Exit(Promise);\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TXDataWebConnection.SetConnected(const Value: Boolean);\r\nbegin\r\n  if (csLoading in ComponentState) and Value then\r\n    FStreamedConnected := True else\r\n  begin\r\n    if Value = GetConnected then Exit;\r\n    if Value then\r\n    begin\r\n      DoConnect(nil, nil);\r\n    end else\r\n    begin\r\n      DoDisconnect;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TXDataWebConnection.SetDesignData(\r\n  const Value: TXDataWebConnectionDesignData);\r\nbegin\r\n  FDesignData.Assign(Value);\r\nend;\r\n\r\nprocedure TXDataWebConnection.SetURL(const Value: string);\r\nbegin\r\n  if FURL <> Value then\r\n  begin\r\n    FUrl := Value;\r\n    DoDisconnect;\r\n  end;\r\nend;\r\n\r\n{ TXDataWebConnectionRequest }\r\n\r\nconstructor TXDataWebConnectionRequest.Create(AConnection: TXDataWebConnection;\r\n  ARequest: IHttpRequest);\r\nbegin\r\n  FConnection := AConnection;\r\n  FRequest := ARequest;\r\nend;\r\n\r\n{ TXDataWebConnectionError }\r\n\r\nconstructor TXDataWebConnectionError.Create(AConnection: TXDataWebConnection;\r\n  AResponse: IHttpResponse; ARequestUrl: string; AErrorMessage: string);\r\nbegin\r\n  FConnection := AConnection;\r\n  FResponse := AResponse;\r\n  FErrorMessage := AErrorMessage;\r\n  FRequestUrl := ARequestUrl;\r\nend;\r\n\r\n{ TXDataWebConnectionDesignData }\r\n\r\nprocedure TXDataWebConnectionDesignData.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TXDataWebConnectionDesignData then\r\n  begin\r\n    Persist := TXDataWebConnectionDesignData(Source).Persist;\r\n    Headers := TXDataWebConnectionDesignData(Source).Headers;\r\n  end\r\n  else\r\n    inherited Assign(Source);\r\nend;\r\n\r\nconstructor TXDataWebConnectionDesignData.Create;\r\nbegin\r\n  inherited Create;\r\n  FHeaders := TStringList.Create;\r\nend;\r\n\r\ndestructor TXDataWebConnectionDesignData.Destroy;\r\nbegin\r\n  FHeaders.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TXDataWebConnectionDesignData.IsStored: Boolean;\r\nbegin\r\n  Result := FPersist;\r\nend;\r\n\r\nprocedure TXDataWebConnectionDesignData.SetHeaders(const Value: TStrings);\r\nbegin\r\n  FHeaders.Assign(Value);\r\nend;\r\n\r\n{ TXDataWebConnectionResponse }\r\n\r\nconstructor TXDataWebConnectionResponse.Create(AConnection: TXDataWebConnection;\r\n  ARequest: IHttpRequest; AResponse: IHttpResponse);\r\nbegin\r\n  FConnection := AConnection;\r\n  FRequest := ARequest;\r\n  FResponse := AResponse;\r\nend;\r\n\r\n{ EXDataWebConnectionException }\r\n\r\nconstructor EXDataWebConnectionException.Create(\r\n  AError: TXDataWebConnectionError);\r\nbegin\r\n  FError := AError;\r\n  inherited CreateFmt('Error connecting to %s', [AError.RequestUrl]);\r\nend;\r\n\r\nend.\r\n","unit XData.Bind.Converter;\r\n\r\ninterface\r\n\r\nuses\r\n  TypInfo, SysUtils,\r\n  XData.Model.Classes;\r\n\r\nfunction BindValueToUrl(const Value: JSValue; const PropName: string; const Info: TTypeInfo;\r\n  UrlConverter: TXDataTypeConverter): string;\r\n\r\nimplementation\r\n\r\nfunction BindValueToUrl(const Value: JSValue; const PropName: string; const Info: TTypeInfo;\r\n  UrlConverter: TXDataTypeConverter): string;\r\nbegin\r\n  Result := UrlConverter.ValueToUrl(Value, PropName);\r\nend;\r\n\r\nend.\r\n","unit XData.Web.Client;\r\n\r\n{$I XData.inc}\r\n{$SCOPEDENUMS OFF} // to keep backward compatibility\r\n{$IF PAS2JS_FULLVERSION >= 20000}\r\n  {$DEFINE JSASYNC}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  JS, SysUtils, Classes, Types,\r\n  Bcl.Rtti.Common,\r\n  Bcl.Json.Common,\r\n  XData.Model.Classes,\r\n  XData.Web.Connection,\r\n  XData.Web.Request,\r\n  XData.Web.Response;\r\n\r\ntype\r\n  TXDataWebClient = class;\r\n  TXDataClientRequestType = (rtGet, rtList, rtPut, rtPost, rtDelete, rtRawInvoke);\r\n\r\n  TXDataClientResponse = class\r\n  strict private\r\n    FResponse: IHttpResponse;\r\n    FRequestType: TXDataClientRequestType;\r\n    FResult: JSValue;\r\n    FRequestId: string;\r\n    FCount: Integer;\r\n    FClient: TXDataWebClient;\r\n    function GetResponseText: string;\r\n    function GetStatusCode: Integer;\r\n  strict private\r\n    function GetResultAsArray: TJSArray;\r\n    function GetResultAsObject: TJSObject; protected\r\n    property RequestType: TXDataClientRequestType read FRequestType;\r\n  public\r\n    constructor Create(AClient: TXDataWebClient; AResponse: IHttpResponse; AResult: JSValue;\r\n      ARequestType: TXDataClientRequestType; ARequestId: string; ACount: Integer = 0); reintroduce;\r\n    property StatusCode: Integer read GetStatusCode;\r\n    property ResponseText: string read GetResponseText;\r\n    property Result: JSValue read FResult;\r\n    property ResultAsObject: TJSObject read GetResultAsObject;\r\n    property ResultAsArray: TJSArray read GetResultAsArray;\r\n    property RequestId: string read FRequestId;\r\n    property Count: Integer read FCount;\r\n    property Client: TXDataWebClient read FClient;\r\n    property Response: IHttpResponse read FResponse;\r\n  end;\r\n\r\n  TXDataClientRequest = class\r\n  strict private\r\n    FRequest: IHttpRequest;\r\n    FRequestType: TXDataClientRequestType;\r\n    FRequestId: string;\r\n    FClient: TXDataWebClient;\r\n  strict protected\r\n    property RequestType: TXDataClientRequestType read FRequestType;\r\n  public\r\n    constructor Create(AClient: TXDataWebClient; ARequest: IHttpRequest;\r\n      ARequestType: TXDataClientRequestType; ARequestId: string); reintroduce;\r\n    property RequestId: string read FRequestId;\r\n    property Client: TXDataWebClient read FClient;\r\n    property Request: IHttpRequest read FRequest;\r\n  end;\r\n\r\n  TXDataClientError = class\r\n  private\r\n    FResponse: IHttpResponse;\r\n    FRequestId: string;\r\n    FErrorCode: string;\r\n    FErrorMessage: string;\r\n    FRequestUrl: string;\r\n    FClient: TXDataWebClient;\r\n    function GetStatusCode: Integer;\r\n  public\r\n    constructor Create(AClient: TXDataWebClient; AResponse: IHttpResponse;\r\n      const ARequestUrl, AErrorCode, AErrorMessage, ARequestId: string); reintroduce;\r\n    property StatusCode: Integer read GetStatusCode;\r\n    property RequestUrl: string read FRequestUrl;\r\n    property RequestId: string read FRequestId;\r\n    property ErrorCode: string read FErrorCode;\r\n    property ErrorMessage: string read FErrorMessage;\r\n    property Client: TXDataWebClient read FClient;\r\n    property Response: IHttpResponse read FResponse;\r\n  end;\r\n\r\n  TXDataClientLoadEvent = procedure(Response: TXDataClientResponse) of object;\r\n  TXDataClientLoadProc = reference to procedure(Response: TXDataClientResponse);\r\n  TXDataClientErrorEvent = procedure(Error: TXDataClientError) of object;\r\n  TXDataClientErrorProc = reference to procedure(Error: TXDataClientError);\r\n  TXDataClientRequestEvent = procedure(Request: TXDataClientRequest) of object;\r\n  THttpResponseProc = reference to procedure(Response: IHttpResponse);\r\n\r\n  TReferenceSolvingMode = (rsAll, rsNone);\r\n\r\n  TXDataWebClient = class(TComponent)\r\n  strict private\r\n    FOnLoad: TXDataClientLoadEvent;\r\n    FOnError: TXDataClientErrorEvent;\r\n    FOnRequest: TXDataClientRequestEvent;\r\n//    FMaxEagerFetchDepth: integer;\r\n    FConnection: TXDataWebConnection;\r\n    FReferenceSolvingMode: TReferenceSolvingMode;\r\n    function EntityTypeFromEntitySet(const EntitySetName: string): TXDataEntityType;\r\n    procedure SetConnection(const Value: TXDataWebConnection);\r\n    function Model: TXDataModel;\r\n    function Url: string;\r\n    procedure CheckConnection;\r\n    procedure ParseError(Response: IHttpResponse; var ErrorCode, ErrorMessage: string);\r\n    procedure SolveReferences(json: JSValue);\r\n//    procedure SetIdFromResponse(Entity: TObject; Req: THttpRequest; Resp: THttpResponse);\r\n  private\r\n    { callback functions to build canonical url's }\r\n    procedure DoLoad(Response: TXDataClientResponse; SuccessProc: TXDataClientLoadProc; AsyncMode: Boolean);\r\n    procedure DoError(Response: IHttpResponse; RequestUrl, RequestId: string;\r\n      ErrorMessage: string; ErrorProc: TXDataClientErrorProc; AsyncMode: Boolean);\r\n    function RequestUrl(const RelativeUrl: string): string;\r\n    function GetNavPropValue(Entity: JSValue; Prop: TXDataNavigationProperty): JSValue;\r\n    function GetPropValue(Entity: JSValue; Prop: TXDataSimpleProperty): JSValue;\r\n  private\r\n    procedure InternalGet(const EntitySet, QueryString: string; Id: JSValue; const RequestId: string;\r\n      SuccessProc: TXDataClientLoadProc; ErrorProc: TXDataClientErrorProc; AsyncMode: Boolean = False);\r\n    procedure InternalPut(const EntitySet: string; Entity: TJObject; const RequestId: string;\r\n      SuccessProc: TXDataClientLoadProc; ErrorProc: TXDataClientErrorProc; AsyncMode: Boolean = False);\r\n    procedure InternalPost(const EntitySet: string; Entity: TJObject; const RequestId: string;\r\n      SuccessProc: TXDataClientLoadProc; ErrorProc: TXDataClientErrorProc; AsyncMode: Boolean = False);\r\n    procedure InternalDelete(const EntitySet: string; Entity: TJObject; const RequestId: string;\r\n      SuccessProc: TXDataClientLoadProc; ErrorProc: TXDataClientErrorProc; AsyncMode: Boolean = False);\r\n    procedure InternalList(const EntitySet: string; const Query: string; const RequestId: string;\r\n      SuccessProc: TXDataClientLoadProc; ErrorProc: TXDataClientErrorProc; AsyncMode: Boolean = False);\r\n    procedure InternalRawInvoke(const OperationId: string; Args: array of JSValue;\r\n      const Query: string; RequestId: string; SuccessProc: TXDataClientLoadProc;\r\n      ErrorProc: TXDataClientErrorProc; AsyncMode: Boolean = False);\r\n  protected\r\n    procedure DoRequest(Request: TXDataClientRequest);\r\n    procedure Send(Req: IHttpRequest; SuccessProc: THttpResponseProc; ErrorProc: THttpErrorProc);\r\n    procedure Notification(AComponent: TComponent; Operation: TOperation); override;\r\n  public\r\n    procedure Get(const EntitySet: string; Id: JSValue; const RequestId: string = 'get'); overload;\r\n    procedure Get(const EntitySet: string; Id: JSValue; SuccessProc: TXDataClientLoadProc; ErrorProc: TXDataClientErrorProc = nil); overload;\r\n    procedure Get(const EntitySet, QueryString: string; Id: JSValue; const RequestId: string = 'get'); overload;\r\n    procedure Get(const EntitySet, QueryString: string; Id: JSValue; SuccessProc: TXDataClientLoadProc; ErrorProc: TXDataClientErrorProc = nil); overload;\r\n    {$IFDEF JSASYNC}\r\n    function GetAsync(const EntitySet, QueryString: string; Id: JSValue): TXDataClientResponse; async; overload;\r\n    function GetAsync(const EntitySet: string; Id: JSValue): TXDataClientResponse; async; overload;\r\n    {$ENDIF}\r\n\r\n    procedure Put(const EntitySet: string; Entity: TJObject; const RequestId: string = 'put'); overload;\r\n    procedure Put(const EntitySet: string; Entity: TJObject; SuccessProc: TXDataClientLoadProc; ErrorProc: TXDataClientErrorProc = nil); overload;\r\n    {$IFDEF JSASYNC}\r\n    function PutAsync(const EntitySet: string; Entity: TJObject): TXDataClientResponse; async;\r\n    {$ENDIF}\r\n\r\n    procedure Post(const EntitySet: string; Entity: TJObject; const RequestId: string = 'post'); overload;\r\n    procedure Post(const EntitySet: string; Entity: TJObject; SuccessProc: TXDataClientLoadProc; ErrorProc: TXDataClientErrorProc = nil); overload;\r\n    {$IFDEF JSASYNC}\r\n    function PostAsync(const EntitySet: string; Entity: TJObject): TXDataClientResponse; async;\r\n    {$ENDIF}\r\n\r\n    procedure Delete(const EntitySet: string; Entity: TJObject; const RequestId: string = 'delete'); overload;\r\n    procedure Delete(const EntitySet: string; Entity: TJObject; SuccessProc: TXDataClientLoadProc; ErrorProc: TXDataClientErrorProc = nil); overload;\r\n    {$IFDEF JSASYNC}\r\n    function DeleteAsync(const EntitySet: string; Entity: TJObject): TXDataClientResponse; async;\r\n    {$ENDIF}\r\n\r\n    procedure List(const EntitySet: string; const Query: string = ''; const RequestId: string = 'list'); overload;\r\n    procedure List(const EntitySet: string; const Query: string; SuccessProc: TXDataClientLoadProc; ErrorProc: TXDataClientErrorProc = nil); overload;\r\n    {$IFDEF JSASYNC}\r\n    function ListAsync(const EntitySet: string; const Query: string = ''): TXDataClientResponse; async;\r\n    {$ENDIF}\r\n\r\n    procedure RawInvoke(const OperationId: string; Args: array of JSValue; const Query: string; SuccessProc: TXDataClientLoadProc; ErrorProc: TXDataClientErrorProc = nil); overload;\r\n    procedure RawInvoke(const OperationId: string; Args: array of JSValue; RequestId: string = ''); overload;\r\n    procedure RawInvoke(const OperationId: string; Args: array of JSValue; SuccessProc: TXDataClientLoadProc; ErrorProc: TXDataClientErrorProc = nil); overload;\r\n    {$IFDEF JSASYNC}\r\n    function RawInvokeAsync(const OperationId: string; Args: array of JSValue): TXDataClientResponse; async; overload;\r\n    function RawInvokeAsync(const OperationId: string; Args: array of JSValue; const Query: string): TXDataClientResponse; async; overload;\r\n    {$ENDIF}\r\n\r\n//    function Count(Clazz: TClass; const Query: string = ''): Integer;\r\n//    function Service<T>: T;\r\n  published\r\n    property Connection: TXDataWebConnection read FConnection write SetConnection;\r\n    property OnLoad: TXDataClientLoadEvent read FOnLoad write FOnLoad;\r\n    property OnError: TXDataClientErrorEvent read FOnError write FOnError;\r\n    property OnRequest: TXDataClientRequestEvent read FOnRequest write FOnRequest;\r\n    property ReferenceSolvingMode: TReferenceSolvingMode read FReferenceSolvingMode write FReferenceSolvingMode default rsAll;\r\n  end;\r\n\r\n  TXDataWebInvoker = class\r\n  strict private\r\n    FClient: TXDataWebClient;\r\n    FAction: TXDataAction;\r\n    FRequestId: string;\r\n    FSuccessProc: TXDataClientLoadProc;\r\n    FErrorProc: TXDataClientErrorProc;\r\n    FAsyncMode: Boolean;\r\n  protected\r\n    procedure DoLoad(Response: TXDataClientResponse);\r\n    procedure DoError(Response: IHttpResponse; RequestUrl, RequestId: string;\r\n      ErrorMessage: string);\r\n    property Action: TXDataAction read FAction;\r\n    property RequestId: string read FRequestId write FRequestId;\r\n  strict private\r\n    function CreateHttpRequest: IHttpRequest;\r\n    function RequestUrl(const RelativeUrl: string): string;\r\n  strict private\r\n    function BuildQueryString(Args: array of JSValue; BindingModeFilter: TBindingMode; const Query: string = ''): string;\r\n    function GetPathParamValues(Args: array of JSValue): TStringDynArray;\r\n    function BuildUrlRoute(Args: array of JSValue): string;\r\n    procedure SetParamStreamBody(Req: IHttpRequest; const Args: array of JSValue; ArgIndex: Integer);\r\n    procedure SetJsonParamsBody(Req: IHttpRequest; const Args: array of JSValue);\r\n    procedure SetJsonObjectBody(Req: IHttpRequest; const Args: array of JSValue);\r\n    procedure SetFormBody(Req: IHttpRequest; const Args: array of JSValue);\r\n    procedure TransformParam(Param: TXDataParamDef; var Value: JSValue);\r\n  public\r\n    constructor Create(AClient: TXDataWebClient; AAction: TXDataAction;\r\n      ASuccessProc: TXDataClientLoadProc; AErrorProc: TXDataClientErrorProc;\r\n      AAsyncMode: Boolean); reintroduce;\r\n    procedure Execute(const Args: array of JSValue; const Query: string = '');\r\n  end;\r\n\r\n  EXDataClientException = class(Exception)\r\n  end;\r\n\r\n  EXDataClientRequestException = class(EXDataClientException)\r\n  private\r\n    FErrorResult: TXDataClientError;\r\n  public\r\n    constructor Create(AClientError: TXDataClientError); reintroduce;\r\n    property ErrorResult: TXDataClientError read FErrorResult;\r\n  end;\r\n\r\n  EXDataOperationRequestException = class(EXDataClientRequestException)\r\n  end;\r\n\r\n  EXDataWrongParameterCount = class(EXDataClientException)\r\n  public\r\n    constructor Create(Action: TXDataAction; PassedParameters: integer); reintroduce;\r\n  end;\r\n\r\n  EXDataWrongRouteParams = class(EXDataClientException)\r\n  public\r\n    constructor Create(Action: TXDataAction);\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  Bcl.Utils,\r\n  XData.Bind.Converter,\r\n  XData.Utils;\r\n\r\n{ TXDataWebClient }\r\n\r\nprocedure TXDataWebClient.CheckConnection;\r\nbegin\r\n  if not Assigned(FConnection) then\r\n    raise EXDataClientException.Create('Missing XData Connection');\r\nend;\r\n\r\nprocedure TXDataWebClient.Delete(const EntitySet: string; Entity: TJObject;\r\n  const RequestId: string = 'delete');\r\nbegin\r\n  InternalDelete(EntitySet, Entity, RequestId, nil, nil);\r\nend;\r\n\r\nprocedure TXDataWebClient.Delete(const EntitySet: string; Entity: TJObject;\r\n  SuccessProc: TXDataClientLoadProc; ErrorProc: TXDataClientErrorProc);\r\nbegin\r\n  InternalDelete(EntitySet, Entity, 'delete', SuccessProc, ErrorProc);\r\nend;\r\n\r\n{$IFDEF JSASYNC}\r\nfunction TXDataWebClient.DeleteAsync(const EntitySet: string; Entity: TJObject): TXDataClientResponse;\r\nvar\r\n  Promise: TJSPromise;\r\nbegin\r\n  Promise := TJSPromise.new(\r\n    procedure(resolve, reject: TJSPromiseResolver)\r\n    begin\r\n      InternalDelete(EntitySet, Entity, 'delete',\r\n        procedure(Response: TXDataClientResponse)\r\n        begin\r\n          resolve(Response);\r\n        end,\r\n        procedure(Error: TXDataClientError)\r\n        begin\r\n          reject(EXDataClientRequestException.Create(Error));\r\n        end,\r\n        True\r\n      );\r\n    end\r\n  );\r\n  Exit(Promise);\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TXDataWebClient.DoError(Response: IHttpResponse; RequestUrl, RequestId: string;\r\n  ErrorMessage: string; ErrorProc: TXDataClientErrorProc; AsyncMode: Boolean);\r\nvar\r\n  ErrorCode: string;\r\n  ClientError: TXDataClientError;\r\nbegin\r\n  if Response = nil then\r\n    Response := TDummyHttpResponse.Create;\r\n\r\n  ErrorCode := '';\r\n  if ErrorMessage = '' then\r\n    ParseError(Response, ErrorCode, ErrorMessage);\r\n  ClientError := TXDataClientError.Create(Self, Response, RequestUrl, ErrorCode, ErrorMessage, RequestId);\r\n\r\n  if AsyncMode then\r\n  begin\r\n    if Assigned(FOnError) then\r\n      FOnError(ClientError);\r\n    if Assigned(ErrorProc) then\r\n      ErrorProc(ClientError)\r\n    else\r\n      raise EXDataClientRequestException.Create(ClientError);\r\n  end\r\n  else\r\n  begin\r\n    if Assigned(ErrorProc) then\r\n    begin\r\n      ErrorProc(ClientError);\r\n      Exit;\r\n    end;\r\n\r\n    if Assigned(FOnError) then\r\n      FOnError(ClientError)\r\n    else\r\n      raise EXDataClientRequestException.Create(ClientError);\r\n  end;\r\nend;\r\n\r\nprocedure TXDataWebClient.DoLoad(Response: TXDataClientResponse;\r\n  SuccessProc: TXDataClientLoadProc; AsyncMode: Boolean);\r\nbegin\r\n  try\r\n    case ReferenceSolvingMode of\r\n      rsAll: SolveReferences(Response.Result);\r\n    end;\r\n\r\n    if AsyncMode then\r\n    begin\r\n      if Assigned(FOnLoad) then\r\n        FOnLoad(Response);\r\n      if Assigned(SuccessProc) then\r\n        SuccessProc(Response);\r\n    end\r\n    else\r\n    begin\r\n      if Assigned(SuccessProc) then\r\n      begin\r\n        SuccessProc(Response);\r\n        Exit;\r\n      end;\r\n      if Assigned(FOnLoad) then\r\n        FOnLoad(Response);\r\n    end;\r\n  finally\r\n    if not AsyncMode then\r\n      Response.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TXDataWebClient.DoRequest(Request: TXDataClientRequest);\r\nbegin\r\n  try\r\n    if Assigned(FOnRequest) then\r\n      FOnRequest(Request);\r\n  finally\r\n    Request.Free;\r\n  end;\r\nend;\r\n\r\nfunction TXDataWebClient.EntityTypeFromEntitySet(\r\n  const EntitySetName: string): TXDataEntityType;\r\nbegin\r\n  Result := nil;\r\n  Result := Model.GetEntitySet(EntitySetName).EntityType;\r\n\r\n  if Result = nil then\r\n    raise EXDataClientException.CreateFmt('Invalid entity set \"%s\"', [EntitySetName]);\r\nend;\r\n\r\nprocedure TXDataWebClient.Get(const EntitySet: string; Id: JSValue;\r\n  const RequestId: string = 'get');\r\nbegin\r\n  Get(EntitySet, '', id, RequestId);\r\nend;\r\n\r\nprocedure TXDataWebClient.Get(const EntitySet, QueryString: string; Id: JSValue;\r\n  const RequestId: string);\r\nbegin\r\n  InternalGet(EntitySet, QueryString, Id, RequestId, nil, nil);\r\nend;\r\n\r\nprocedure TXDataWebClient.Get(const EntitySet: string; Id: JSValue;\r\n  SuccessProc: TXDataClientLoadProc; ErrorProc: TXDataClientErrorProc);\r\nbegin\r\n  InternalGet(EntitySet, '', Id, 'get', SuccessProc, ErrorProc);\r\nend;\r\n\r\nfunction TXDataWebClient.GetNavPropValue(Entity: JSValue;\r\n  Prop: TXDataNavigationProperty): JSValue;\r\nbegin\r\n  Result := TJSObject(Entity)[Prop.Name];\r\nend;\r\n\r\nfunction TXDataWebClient.GetPropValue(Entity: JSValue;\r\n  Prop: TXDataSimpleProperty): JSValue;\r\nbegin\r\n  Result := TJSObject(Entity)[Prop.Name];\r\nend;\r\n\r\nprocedure TXDataWebClient.InternalDelete(const EntitySet: string;\r\n  Entity: TJObject; const RequestId: string; SuccessProc: TXDataClientLoadProc;\r\n  ErrorProc: TXDataClientErrorProc; AsyncMode: Boolean = False);\r\nvar\r\n  Req: IHttpRequest;\r\n  RequestUri: string;\r\n\r\n  procedure LocalSuccess(Resp: IHttpResponse);\r\n  begin\r\n    if Resp.StatusCode = 204 then\r\n      DoLoad(TXDataClientResponse.Create(Self, Resp, JS.NULL, rtDelete, RequestId), SuccessProc, AsyncMode)\r\n    else\r\n      DoError(Resp, RequestUri, RequestId, '', ErrorProc, AsyncMode);\r\n  end;\r\n\r\n  procedure LocalError;\r\n  begin\r\n    DoError(nil, RequestUri, RequestId, '', ErrorProc, AsyncMode);\r\n  end;\r\n\r\nbegin\r\n  RequestUri := RequestUrl(TBclUtils.PercentEncode(\r\n    Model.CanonicalUrlFromEntity(EntityTypeFromEntitySet(EntitySet), Entity,\r\n      @GetPropValue, @GetNavPropValue)));\r\n\r\n  Req := THttpRequest.Create(RequestUri, 'DELETE');\r\n  DoRequest(TXDataClientRequest.Create(Self, Req, rtDelete, RequestId));\r\n  Send(Req, @LocalSuccess, @LocalError);\r\nend;\r\n\r\nprocedure TXDataWebClient.InternalGet(const EntitySet, QueryString: string;\r\n  Id: JSValue; const RequestId: string; SuccessProc: TXDataClientLoadProc;\r\n  ErrorProc: TXDataClientErrorProc; AsyncMode: Boolean = False);\r\nvar\r\n  RequestUri: string;\r\n\r\n  procedure LocalSuccess(Resp: IHttpResponse);\r\n  var\r\n    JsonResult: JSValue;\r\n  begin\r\n    if Resp.StatusCode = 200 then\r\n    begin\r\n      JsonResult := TJSJSON.parse(Resp.ContentAsText);\r\n      if isObject(JsonResult) then\r\n        DoLoad(TXDataClientResponse.Create(Self, Resp, JsonResult, rtGet, RequestId), SuccessProc, AsyncMode)\r\n      else\r\n        DoError(Resp, RequestUri, RequestId, 'Invalid JSON object from GET request', ErrorProc, AsyncMode);\r\n    end\r\n    else\r\n    if Resp.StatusCode = 404 then\r\n      DoLoad(TXDataClientResponse.Create(Self, Resp, JS.NULL, rtGet, RequestId), SuccessProc, AsyncMode)\r\n    else\r\n      DoError(Resp, RequestUri, RequestId, '', ErrorProc, AsyncMode);\r\n  end;\r\n\r\n  procedure LocalError;\r\n  begin\r\n    DoError(nil, RequestUri, RequestId, '', ErrorProc, AsyncMode);\r\n  end;\r\n\r\nvar\r\n  Req: IHttpRequest;\r\nbegin\r\n  RequestUri := RequestUrl(TBclUtils.PercentEncode(\r\n    Model.CanonicalUrlFromId(EntityTypeFromEntitySet(EntitySet), Id)));\r\n  if QueryString <> '' then\r\n    RequestUri := RequestUri + '?' + QueryString;\r\n\r\n  Req := THttpRequest.Create(RequestUri);\r\n  DoRequest(TXDataClientRequest.Create(Self, Req, rtGet, RequestId));\r\n  Send(Req, @LocalSuccess, @LocalError);\r\nend;\r\n\r\nprocedure TXDataWebClient.InternalList(const EntitySet, Query,\r\n  RequestId: string; SuccessProc: TXDataClientLoadProc;\r\n  ErrorProc: TXDataClientErrorProc; AsyncMode: Boolean);\r\nvar\r\n  RequestUri: string;\r\n\r\n  procedure LocalSuccess(Resp: IHttpResponse);\r\n  var\r\n    JsonResult: JSValue;\r\n    ObjResult: TJSObject;\r\n    Count: Integer;\r\n  begin\r\n    if Resp.StatusCode = 200 then\r\n    begin\r\n      JsonResult := TJSJSON.parse(Resp.ContentAsText);\r\n      if isObject(JsonResult) and isArray(TJSObject(JsonResult)['value']) then\r\n      begin\r\n        ObjResult := TJSObject(JsonResult);\r\n        if ObjResult.hasOwnProperty('@xdata.count') then\r\n          Count := Integer(ObjResult['@xdata.count'])\r\n        else\r\n          Count := 0;\r\n        DoLoad(TXDataClientResponse.Create(Self, Resp, ObjResult['value'], rtList, RequestId, Count), SuccessProc, AsyncMode);\r\n      end\r\n      else\r\n        DoError(Resp, RequestUri, RequestId, 'Invalid JSON array from LIST request', ErrorProc, AsyncMode);\r\n    end\r\n    else\r\n      DoError(Resp, RequestUri, RequestId, '', ErrorProc, AsyncMode);\r\n  end;\r\n\r\n  procedure LocalError;\r\n  begin\r\n    DoError(nil, RequestUri, RequestId, '', ErrorProc, AsyncMode);\r\n  end;\r\n\r\nvar\r\n  Req: IHttpRequest;\r\nbegin\r\n  RequestUri := RequestUrl(TBclUtils.PercentEncode(\r\n    Model.EntitySetUrl(Model.GetEntitySet(EntitySet))));\r\n  if Query <> '' then\r\n    RequestUri := RequestUri + '?' + Query;\r\n\r\n  Req := THttpRequest.Create(RequestUri);\r\n  DoRequest(TXDataClientRequest.Create(Self, Req, rtList, RequestId));\r\n  Send(Req, @LocalSuccess, @LocalError);\r\nend;\r\n\r\nprocedure TXDataWebClient.InternalPost(const EntitySet: string;\r\n  Entity: TJObject; const RequestId: string; SuccessProc: TXDataClientLoadProc;\r\n  ErrorProc: TXDataClientErrorProc; AsyncMode: Boolean = False);\r\nvar\r\n  RequestUri: string;\r\n\r\n  procedure LocalSuccess(Resp: IHttpResponse);\r\n  var\r\n    Value: JSValue;\r\n    Obj: TJSObject;\r\n    EntityType: TXDataEntityType;\r\n    I: Integer;\r\n    Prop: string;\r\n  begin\r\n    // SetIdFromResponse\r\n    if Resp.StatusCode = 201 then\r\n    begin\r\n      // Get the resulted object and set the id from the result\r\n      Value := TJSJSON.parse(Resp.ContentAsText);\r\n      if IsObject(Value) then\r\n      begin\r\n        Obj := ToObject(Value);\r\n        EntityType := EntityTypeFromEntitySet(EntitySet);\r\n        for I := 0 to EntityType.Key.Count - 1 do\r\n        begin\r\n          Prop := EntityType.Key[I].Name;\r\n          if not IsNull(Obj[Prop]) then\r\n            Entity[Prop] := Obj[Prop];\r\n        end;\r\n      end;\r\n\r\n      DoLoad(TXDataClientResponse.Create(Self, Resp, TJSJSON.parse(Resp.ContentAsText), rtPost, RequestId), SuccessProc, AsyncMode);\r\n    end\r\n    else\r\n      DoError(Resp, RequestUri, RequestId, '', ErrorProc, AsyncMode);\r\n  end;\r\n\r\n  procedure LocalError;\r\n  begin\r\n    DoError(nil, RequestUri, RequestId, '', ErrorProc, AsyncMode);\r\n  end;\r\n\r\nvar\r\n  Req: IHttpRequest;\r\nbegin\r\n  RequestUri := RequestUrl(TBclUtils.PercentEncode(\r\n    Model.EntitySetUrl(Model.GetEntitySet(EntitySet))\r\n  ));\r\n\r\n  Req := THttpRequest.Create(RequestUri, 'POST');\r\n  Req.Headers.SetValue('content-type', 'application/json');\r\n  Req.Content := TJSJson.stringify(Entity);\r\n  DoRequest(TXDataClientRequest.Create(Self, Req, rtPost, RequestId));\r\n  Send(Req, @LocalSuccess, @LocalError);\r\nend;\r\n\r\nprocedure TXDataWebClient.InternalPut(const EntitySet: string; Entity: TJObject;\r\n  const RequestId: string; SuccessProc: TXDataClientLoadProc;\r\n  ErrorProc: TXDataClientErrorProc; AsyncMode: Boolean = False);\r\nvar\r\n  RequestUri: string;\r\n\r\n  procedure LocalSuccess(Resp: IHttpResponse);\r\n  begin\r\n    if Resp.StatusCode = 200 then\r\n      DoLoad(TXDataClientResponse.Create(Self, Resp, JS.NULL, rtPut, RequestId), SuccessProc, AsyncMode)\r\n    else\r\n      DoError(Resp, RequestUri, RequestId, '', ErrorProc, AsyncMode);\r\n  end;\r\n\r\n  procedure LocalError;\r\n  begin\r\n    DoError(nil, RequestUri, RequestId, '', ErrorProc, AsyncMode);\r\n  end;\r\n\r\nvar\r\n  Req: IHttpRequest;\r\nbegin\r\n  RequestUri := RequestUrl(TBclUtils.PercentEncode(\r\n    Model.CanonicalUrlFromEntity(EntityTypeFromEntitySet(EntitySet), Entity,\r\n      @GetPropValue, @GetNavPropValue)));\r\n\r\n  Req := THttpRequest.Create(RequestUri, 'PUT');\r\n  Req.Headers.SetValue('content-type', 'application/json');\r\n  Req.Content := TJSJson.stringify(Entity);\r\n  DoRequest(TXDataClientRequest.Create(Self, Req, rtPut, RequestId));\r\n  Send(Req, @LocalSuccess, @LocalError);\r\nend;\r\n\r\nprocedure TXDataWebClient.InternalRawInvoke(const OperationId: string;\r\n  Args: array of JSValue; const Query: string; RequestId: string;\r\n  SuccessProc: TXDataClientLoadProc; ErrorProc: TXDataClientErrorProc; AsyncMode: Boolean = False);\r\nvar\r\n  Invoker: TXDataWebInvoker;\r\n  Action: TXDataAction;\r\nbegin\r\n  if RequestId = '' then\r\n    RequestId := OperationId;\r\n\r\n  Action := Model.FindActionByOperationId(OperationId);\r\n  if Action = nil then\r\n    raise EXDataClientException.CreateFmt('Operation \"%s\" not found', [OperationId]);\r\n\r\n  Invoker := TXDataWebInvoker.Create(Self, Action, SuccessProc, ErrorProc, AsyncMode);\r\n  Invoker.RequestId := RequestId;\r\n  Invoker.Execute(Args, Query);\r\nend;\r\n\r\nprocedure TXDataWebClient.List(const EntitySet, Query: string;\r\n  SuccessProc: TXDataClientLoadProc; ErrorProc: TXDataClientErrorProc);\r\nbegin\r\n  InternalList(EntitySet, Query, 'list', SuccessProc, ErrorProc);\r\nend;\r\n\r\nprocedure TXDataWebClient.List(const EntitySet, Query: string; const RequestId: string = 'list');\r\nbegin\r\n  InternalList(EntitySet, Query, RequestId, nil, nil);\r\nend;\r\n\r\n{$IFDEF JSASYNC}\r\nfunction TXDataWebClient.ListAsync(const EntitySet: string; const Query: string = ''): TXDataClientResponse;\r\nvar\r\n  Promise: TJSPromise;\r\nbegin\r\n  Promise := TJSPromise.new(\r\n    procedure(resolve, reject: TJSPromiseResolver)\r\n    begin\r\n      InternalList(EntitySet, Query, 'list',\r\n        procedure(Response: TXDataClientResponse)\r\n        begin\r\n          resolve(Response);\r\n        end,\r\n        procedure(Error: TXDataClientError)\r\n        begin\r\n          reject(EXDataClientRequestException.Create(Error));\r\n        end,\r\n        True\r\n      );\r\n    end\r\n  );\r\n  Exit(Promise);\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TXDataWebClient.Model: TXDataModel;\r\nbegin\r\n  CheckConnection;\r\n  if not Assigned(Connection.Model) then\r\n    raise EXDataClientException.Create('TXDataWebConnection is not connected');\r\n  Result := Connection.Model;\r\nend;\r\n\r\nprocedure TXDataWebClient.Notification(AComponent: TComponent;\r\n  Operation: TOperation);\r\nbegin\r\n  inherited;\r\n  if (Operation = opRemove) and (AComponent = FConnection) then\r\n    Connection := nil;\r\nend;\r\n\r\nprocedure TXDataWebClient.ParseError(Response: IHttpResponse; var ErrorCode,\r\n  ErrorMessage: string);\r\nvar\r\n  ErrorResult: JSValue;\r\n  ErrorObject: TJSObject;\r\nbegin\r\n  ErrorCode := '';\r\n  ErrorMessage := Response.StatusReason;\r\n  if SameText(Response.Headers.Get('content-type'), 'application/json') then\r\n  begin\r\n    ErrorResult := JS.Null;\r\n    try\r\n      ErrorResult := TJSJson.parse(Response.ContentAsText);\r\n    except\r\n    end;\r\n    if IsObject(ErrorResult) and IsObject(TJSObject(ErrorResult)['error']) then\r\n    begin\r\n      ErrorObject := TJSObject(TJSObject(ErrorResult)['error']);\r\n      ErrorCode := JS.ToString(ErrorObject['code']);\r\n      ErrorMessage := JS.ToString(ErrorObject['message']);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TXDataWebClient.Post(const EntitySet: string; Entity: TJObject;\r\n  SuccessProc: TXDataClientLoadProc; ErrorProc: TXDataClientErrorProc);\r\nbegin\r\n  InternalPost(EntitySet, Entity, 'post', SuccessProc, ErrorProc);\r\nend;\r\n\r\nprocedure TXDataWebClient.Post(const EntitySet: string; Entity: TJObject;\r\n  const RequestId: string = 'post');\r\nbegin\r\n  InternalPost(EntitySet, Entity, RequestId, nil, nil);\r\nend;\r\n\r\n{$IFDEF JSASYNC}\r\nfunction TXDataWebClient.PostAsync(const EntitySet: string; Entity: TJObject): TXDataClientResponse;\r\nvar\r\n  Promise: TJSPromise;\r\nbegin\r\n  Promise := TJSPromise.new(\r\n    procedure(resolve, reject: TJSPromiseResolver)\r\n    begin\r\n      InternalPost(EntitySet, Entity, 'post',\r\n        procedure(Response: TXDataClientResponse)\r\n        begin\r\n          resolve(Response);\r\n        end,\r\n        procedure(Error: TXDataClientError)\r\n        begin\r\n          reject(EXDataClientRequestException.Create(Error));\r\n        end,\r\n        True\r\n      );\r\n    end\r\n  );\r\n  Exit(Promise);\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TXDataWebClient.Put(const EntitySet: string; Entity: TJObject;\r\n  const RequestId: string = 'put');\r\nbegin\r\n  InternalPut(EntitySet, Entity, RequestId, nil, nil);\r\nend;\r\n\r\nprocedure TXDataWebClient.RawInvoke(const OperationId: string;\r\n  Args: array of JSValue; const Query: string;\r\n  SuccessProc: TXDataClientLoadProc; ErrorProc: TXDataClientErrorProc);\r\nbegin\r\n  InternalRawInvoke(OperationId, Args, Query, '', SuccessProc, ErrorProc);\r\nend;\r\n\r\nprocedure TXDataWebClient.RawInvoke(const OperationId: string;\r\n  Args: array of JSValue; RequestId: string);\r\nbegin\r\n  InternalRawInvoke(OperationId, Args, '', RequestId, nil, nil);\r\nend;\r\n\r\nprocedure TXDataWebClient.RawInvoke(const OperationId: string;\r\n  Args: array of JSValue; SuccessProc: TXDataClientLoadProc;\r\n  ErrorProc: TXDataClientErrorProc);\r\nbegin\r\n  InternalRawInvoke(OperationId, Args, '', '', SuccessProc, ErrorProc);\r\nend;\r\n\r\n{$IFDEF JSASYNC}\r\nfunction TXDataWebClient.RawInvokeAsync(const OperationId: string;\r\n  Args: array of JSValue): TXDataClientResponse;\r\nvar\r\n  Promise: TJSPromise;\r\nbegin\r\n  Promise := TJSPromise.new(\r\n    procedure(resolve, reject: TJSPromiseResolver)\r\n    begin\r\n      InternalRawInvoke(OperationId, Args, '', '',\r\n        procedure(Response: TXDataClientResponse)\r\n        begin\r\n          resolve(Response);\r\n        end,\r\n        procedure(Error: TXDataClientError)\r\n        begin\r\n          reject(EXDataClientRequestException.Create(Error));\r\n        end,\r\n        True\r\n      );\r\n    end\r\n  );\r\n  Exit(Promise);\r\nend;\r\n\r\nfunction TXDataWebClient.RawInvokeAsync(const OperationId: string;\r\n  Args: array of JSValue; const Query: string): TXDataClientResponse;\r\nvar\r\n  Promise: TJSPromise;\r\nbegin\r\n  Promise := TJSPromise.new(\r\n    procedure(resolve, reject: TJSPromiseResolver)\r\n    begin\r\n      InternalRawInvoke(OperationId, Args, Query, '',\r\n        procedure(Response: TXDataClientResponse)\r\n        begin\r\n          resolve(Response);\r\n        end,\r\n        procedure(Error: TXDataClientError)\r\n        begin\r\n          reject(EXDataClientRequestException.Create(Error));\r\n        end,\r\n        True\r\n      );\r\n    end\r\n  );\r\n  Exit(Promise);\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TXDataWebClient.RequestUrl(const RelativeUrl: string): string;\r\nbegin\r\n  Result := TXDataUtils.CombineUrlFast(Self.Url, RelativeUrl);\r\nend;\r\n\r\nprocedure TXDataWebClient.Send(Req: IHttpRequest; SuccessProc: THttpResponseProc;\r\n  ErrorProc: THttpErrorProc);\r\nbegin\r\n  Connection.SendRequest(Req, SuccessProc, ErrorProc);\r\nend;\r\n\r\nprocedure TXDataWebClient.SetConnection(const Value: TXDataWebConnection);\r\nbegin\r\n  if Value <> FConnection then\r\n  begin\r\n    if FConnection <> nil then\r\n      FConnection.RemoveFreeNotification(Self);\r\n    FConnection := Value;\r\n    if FConnection <> nil then\r\n      FConnection.FreeNotification(Self);\r\n  end;\r\nend;\r\n\r\n//procedure TXDataWebClient.SetIdFromResponse(Entity: TObject; Req: THttpRequest;\r\n//  Resp: THttpResponse);\r\n//var\r\n//  Uri: TUri;\r\n//  Len: integer;\r\n//  IdValue: Variant;\r\n//  Clazz: TClass;\r\n//begin\r\n//  if not Resp.Headers.Exists('location') then\r\n//    raise EXDataMissingLocationHeader.Create(Req.Uri);\r\n//  Uri := TUri.Create(Resp.Headers.Get('location'));\r\n//  try\r\n//    Len := Length(Uri.Segments);\r\n//    if Len = 0 then\r\n//      raise EXDataInvalidLocationHeader.Create(Req.Uri, Resp.Headers.Get('location'));\r\n//    Clazz := Entity.ClassType;\r\n//    Model.ParseCanonicalUrl(Uri.Segments[Len - 1], Clazz, IdValue);\r\n//  finally\r\n//    Uri.Free;\r\n//  end;\r\n//\r\n//  // If the server generates the id, the set it now\r\n//  if not FModel.Explorer.GetId(Clazz).IsUserAssignedId then\r\n//    FModel.Explorer.SetIdValue(Entity, IdValue);\r\n//end;\r\n\r\nprocedure TXDataWebClient.SolveReferences(json: JSValue);\r\nasm\r\n    var byid = {}, // all objects by id\r\n            refs = []; // references to objects that could not be resolved\r\n    json = (function recurse(obj, prop, parent) {\r\n        if (typeof obj !== 'object' || !obj) // a primitive value\r\n            return obj;\r\n        if (Object.prototype.toString.call(obj) === '[object Array]') {\r\n            for (var i = 0; i < obj.length; i++)\r\n                // check also if the array element is not a primitive value\r\n                if (typeof obj[i] !== 'object' || !obj[i]) // a primitive value\r\n                    continue;\r\n                else if (\"$ref\" in obj[i])\r\n                    obj[i] = recurse(obj[i], i, obj);\r\n                else\r\n                    obj[i] = recurse(obj[i], prop, obj);\r\n            return obj;\r\n        }\r\n        if (\"$ref\" in obj) { // a reference\r\n            var ref = obj.$ref;\r\n            if (ref in byid)\r\n                return byid[ref];\r\n            // else we have to make it lazy:\r\n            refs.push([parent, prop, ref]);\r\n            return;\r\n        } else if (\"$id\" in obj) {\r\n            var id = obj.$id;\r\n            delete obj.$id;\r\n            if (\"$values\" in obj) // an array\r\n                obj = obj.$values.map(recurse);\r\n            else // a plain object\r\n                for (var p in obj)\r\n                    obj[p] = recurse(obj[p], p, obj);\r\n            byid[id] = obj;\r\n        }\r\n        return obj;\r\n    })(json); // run it!\r\n\r\n    for (var i = 0; i < refs.length; i++) { // resolve previously unknown references\r\n        var ref = refs[i];\r\n        ref[0][ref[1]] = byid[ref[2]];\r\n        // Notice that this throws if you put in a reference at top-level\r\n    }\r\nend;\r\n\r\nfunction TXDataWebClient.Url: string;\r\nbegin\r\n  CheckConnection;\r\n  Result := Connection.URL;\r\nend;\r\n\r\nprocedure TXDataWebClient.Get(const EntitySet, QueryString: string; Id: JSValue;\r\n  SuccessProc: TXDataClientLoadProc; ErrorProc: TXDataClientErrorProc);\r\nbegin\r\n  InternalGet(EntitySet, QueryString, Id, 'get', SuccessProc, ErrorProc);\r\nend;\r\n\r\n{$IFDEF JSASYNC}\r\nfunction TXDataWebClient.GetAsync(const EntitySet, QueryString: string;\r\n  Id: JSValue): TXDataClientResponse;\r\nvar\r\n  Promise: TJSPromise;\r\nbegin\r\n  Promise := TJSPromise.new(\r\n    procedure(resolve, reject: TJSPromiseResolver)\r\n    begin\r\n      InternalGet(EntitySet, QueryString, Id, 'get',\r\n        procedure(Response: TXDataClientResponse)\r\n        begin\r\n          resolve(Response);\r\n        end,\r\n        procedure(Error: TXDataClientError)\r\n        begin\r\n          reject(EXDataClientRequestException.Create(Error));\r\n        end,\r\n        True\r\n      );\r\n    end\r\n  );\r\n  Exit(Promise);\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF JSASYNC}\r\nfunction TXDataWebClient.GetAsync(const EntitySet: string;\r\n  Id: JSValue): TXDataClientResponse;\r\nbegin\r\n  Result := await(GetAsync(EntitySet, '', Id));\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TXDataWebClient.Put(const EntitySet: string; Entity: TJObject;\r\n  SuccessProc: TXDataClientLoadProc; ErrorProc: TXDataClientErrorProc);\r\nbegin\r\n  InternalPut(EntitySet, Entity, 'put', SuccessProc, ErrorProc);\r\nend;\r\n\r\n{$IFDEF JSASYNC}\r\nfunction TXDataWebClient.PutAsync(const EntitySet: string; Entity: TJObject): TXDataClientResponse;\r\nvar\r\n  Promise: TJSPromise;\r\nbegin\r\n  Promise := TJSPromise.new(\r\n    procedure(resolve, reject: TJSPromiseResolver)\r\n    begin\r\n      InternalPut(EntitySet, Entity, 'put',\r\n        procedure(Response: TXDataClientResponse)\r\n        begin\r\n          resolve(Response);\r\n        end,\r\n        procedure(Error: TXDataClientError)\r\n        begin\r\n          reject(EXDataClientRequestException.Create(Error));\r\n        end,\r\n        True\r\n      );\r\n    end\r\n  );\r\n  Exit(Promise);\r\nend;\r\n{$ENDIF}\r\n\r\n{ TXDataClientResponse }\r\n\r\nconstructor TXDataClientResponse.Create(AClient: TXDataWebClient; AResponse: IHttpResponse;\r\n  AResult: JSValue; ARequestType: TXDataClientRequestType; ARequestId: string; ACount: Integer = 0);\r\nbegin\r\n  FResponse := AResponse;\r\n  FResult := AResult;\r\n  FRequestType := ARequestType;\r\n  FRequestId := ARequestId;\r\n  FCount := ACount;\r\n  FClient := AClient;\r\nend;\r\n\r\nfunction TXDataClientResponse.GetResponseText: string;\r\nbegin\r\n  Result := Response.ContentAsText;\r\nend;\r\n\r\nfunction TXDataClientResponse.GetStatusCode: Integer;\r\nbegin\r\n  Result := Response.StatusCode;\r\nend;\r\n\r\nfunction TXDataClientResponse.GetResultAsArray: TJSArray;\r\nbegin\r\n  Result := JS.ToArray(Self.FResult);\r\nend;\r\n\r\nfunction TXDataClientResponse.GetResultAsObject: TJSObject;\r\nbegin\r\n  Result := JS.ToObject(Self.FResult);\r\nend;\r\n\r\n{ EXDataClientRequestException }\r\n\r\nconstructor EXDataClientRequestException.Create(AClientError: TXDataClientError);\r\nvar\r\n  Msg: string;\r\nbegin\r\n  FErrorResult := AClientError;\r\n  Msg := 'XData server request error.' + sLineBreak + 'Uri: ' + AClientError.RequestUrl;\r\n  Msg := Msg + sLineBreak + 'Status code: ' + IntToStr(AClientError.StatusCode);\r\n  if AClientError.ErrorCode <> '' then\r\n    Msg := Msg + sLineBreak + 'Error Code: ' + AClientError.ErrorCode;\r\n  if AClientError.ErrorMessage <> '' then\r\n    Msg := Msg + sLineBreak + AClientError.ErrorMessage;\r\n  inherited Create(Msg);\r\nend;\r\n\r\n{ TXDataClientError }\r\n\r\nconstructor TXDataClientError.Create(AClient: TXDataWebClient; AResponse: IHttpResponse;\r\n  const ARequestUrl, AErrorCode, AErrorMessage, ARequestId: string);\r\nbegin\r\n  FResponse := AResponse;\r\n  FErrorCode := AErrorCode;\r\n  FErrorMessage := AErrorMessage;\r\n  FRequestId := ARequestId;\r\n  FRequestUrl := ARequestUrl;\r\n  FClient := AClient;\r\nend;\r\n\r\nfunction TXDataClientError.GetStatusCode: Integer;\r\nbegin\r\n  Result := Response.StatusCode;\r\nend;\r\n\r\n{ TXDataClientRequest }\r\n\r\nconstructor TXDataClientRequest.Create(AClient: TXDataWebClient;\r\n  ARequest: IHttpRequest; ARequestType: TXDataClientRequestType;\r\n  ARequestId: string);\r\nbegin\r\n  FRequest := ARequest;\r\n  FRequestType := ARequestType;\r\n  FRequestId := ARequestId;\r\n  FClient := AClient;\r\nend;\r\n\r\n{ TXDataWebInvoker }\r\n\r\nfunction TXDataWebInvoker.GetPathParamValues(Args: array of JSValue): TStringDynArray;\r\nvar\r\n  I: Integer;\r\n  Param: TXDataParamDef;\r\n  ParamIndex: Integer;\r\nbegin\r\n  ParamIndex := 0;\r\n  SetLength(Result, Action.Parameters.Count);\r\n  for I := 0 to Action.Parameters.Count - 1 do\r\n    if Action.Parameters[I].BindingMode = TBindingMode.FromPath then\r\n    begin\r\n      Param := Action.Parameters[I];\r\n      if Param.Input and (I <= Length(Args)) then\r\n      begin\r\n        Result[ParamIndex] :=\r\n          TBclUtils.PercentEncode(\r\n            BindValueToUrl(Args[I], Param.Name, nil {Param.RttiType.Handle}, Param.UrlConverter)\r\n          );\r\n        Inc(ParamIndex);\r\n      end;\r\n    end;\r\n  Result := Copy(Result, 0, ParamIndex);\r\nend;\r\n\r\nfunction TXDataWebInvoker.BuildUrlRoute(Args: array of JSValue): string;\r\nvar\r\n  PathParamValues: TStringDynArray;\r\n  UsedParamValues: array of Boolean;\r\n\r\n  procedure AddRouteSegments(RouteInfo: TXDataRouteInfo);\r\n  var\r\n    I: Integer;\r\n  begin\r\n    for I := 0 to RouteInfo.SegmentCount - 1 do\r\n    begin\r\n      if RouteInfo.Segments[I].IsParam then\r\n      begin\r\n        // Segment is a path param\r\n        if RouteInfo.Segments[I].ParamIndex < Length(PathParamValues) then\r\n          Result := Result + PathParamValues[RouteInfo.Segments[I].ParamIndex]\r\n        else\r\n          raise EXDataWrongRouteParams.Create(Action);\r\n        UsedParamValues[RouteInfo.Segments[I].ParamIndex] := True;\r\n      end\r\n      else\r\n        Result := Result + RouteInfo.Segments[I].Value;\r\n      Result := Result + '/';\r\n    end;\r\n  end;\r\n\r\nvar\r\n  I: Integer;\r\nbegin\r\n  PathParamValues := GetPathParamValues(Args);\r\n  SetLength(UsedParamValues, Length(PathParamValues));\r\n  Result := '';\r\n\r\n  AddRouteSegments(Action.RouteInfo);\r\n\r\n  for I := 0 to Length(UsedParamValues) - 1 do\r\n    if not UsedParamValues[I] then\r\n      Result := Result + PathParamValues[I] + '/';\r\nend;\r\n\r\nfunction TXDataWebInvoker.BuildQueryString(Args: array of JSValue; BindingModeFilter: TBindingMode; const Query: string): string;\r\nvar\r\n  QueryString: string;\r\n\r\n  procedure WriteQueryParam(const Name, Value: string);\r\n  begin\r\n    if QueryString <> '' then\r\n      QueryString := QueryString + '&';\r\n    QueryString := QueryString + TBclUtils.PercentEncode(Name) +\r\n      '=' + TBclUtils.PercentEncode(Value);\r\n  end;\r\n\r\n  procedure WriteObjectToQuery(Obj: TJSObject; AType: TXDataStructuredType);\r\n  var\r\n    I: Integer;\r\n    Prop: TXDataScalarProperty;\r\n    Value: JSValue;\r\n  begin\r\n    if Obj = nil then Exit;\r\n\r\n    for I := 0 to AType.ScalarPropertyCount - 1 do\r\n    begin\r\n      Prop := AType.GetScalarProperty(I);\r\n      Value := Obj[Prop.Name];\r\n      if not JS.IsUndefined(Value) then\r\n        WriteQueryParam(Prop.Name,\r\n          BindValueToUrl(Value, Prop.Name, nil {PropInfo.RttiInfo.RealType.Handle}, Prop.UrlConverter));\r\n    end;\r\n  end;\r\n\r\nvar\r\n  I: Integer;\r\n  Param: TXDataParamDef;\r\nbegin\r\n  // set query string (parameters that are defined to be in uri query string)\r\n  QueryString := Query;\r\n  for I := 0 to Action.Parameters.Count - 1 do\r\n    if Action.Parameters[I].BindingMode = BindingModeFilter then\r\n    begin\r\n      Param := Action.Parameters[I];\r\n      if Param.Input and (I <= Length(Args)) then\r\n      begin\r\n        if Param.ParamType is TXDataStructuredType then\r\n        begin\r\n          Assert(JS.IsObject(Args[I]));\r\n          WriteObjectToQuery(Js.ToObject(Args[I]), TXDataStructuredType(Param.ParamType));\r\n        end\r\n        else\r\n          WriteQueryParam(Param.Name, BindValueToUrl(Args[I], Param.Name, nil {Param.RttiType.Handle}, Param.UrlConverter));\r\n      end;\r\n    end;\r\n  Result := QueryString;\r\nend;\r\n\r\nconstructor TXDataWebInvoker.Create(AClient: TXDataWebClient; AAction: TXDataAction;\r\n  ASuccessProc: TXDataClientLoadProc; AErrorProc: TXDataClientErrorProc; AAsyncMode: Boolean);\r\nbegin\r\n  FClient := AClient;\r\n  FAction := AAction;\r\n  FSuccessProc := ASuccessProc;\r\n  FErrorProc := AErrorProc;\r\n  FAsyncMode := AAsyncMode;\r\nend;\r\n\r\nfunction TXDataWebInvoker.CreateHttpRequest: IHttpRequest;\r\nbegin\r\n  Result := THttpRequest.Create;\r\nend;\r\n\r\nprocedure TXDataWebInvoker.DoError(Response: IHttpResponse; RequestUrl,\r\n  RequestId, ErrorMessage: string);\r\nbegin\r\n  FClient.DoError(Response, RequestUrl, RequestId, ErrorMessage, FErrorProc, FAsyncMode);\r\nend;\r\n\r\nprocedure TXDataWebInvoker.DoLoad(Response: TXDataClientResponse);\r\nbegin\r\n  FClient.DoLoad(Response, FSuccessProc, FAsyncMode);\r\nend;\r\n\r\nprocedure TXDataWebInvoker.Execute(const Args: array of JSValue; const Query: string);\r\nvar\r\n  RequestUrl: string;\r\n\r\n  procedure OnSuccess(Resp: IHttpResponse);\r\n  var\r\n    ResultValue: JSValue;\r\n    JsonResult: JSValue;\r\n  begin\r\n    // check errors\r\n    if (Resp.StatusCode <> 200) and (Resp.StatusCode <> 204) and (Resp.StatusCode <> 404) then\r\n    begin\r\n      DoError(Resp, RequestUrl, RequestId, '');\r\n      Exit;\r\n    end;\r\n\r\n    // has content\r\n    if Action.IsResultStream then\r\n    begin\r\n      if Resp.StatusCode = 404 then\r\n        DoError(Resp, RequestUrl, RequestId, '')\r\n      else\r\n      begin\r\n        ResultValue := Resp.Content; //TBytesStream.Create(Resp.ContentAsBytes);\r\n        DoLoad(TXDataClientResponse.Create(FClient, Resp, ResultValue, rtRawInvoke, RequestId));\r\n      end;\r\n    end\r\n    else\r\n    if Action.IsResultCriteria then\r\n    begin\r\n      DoError(Resp, RequestUrl, RequestId, 'TCriteria result yet not supported in TXDataClient');\r\n    end\r\n    else\r\n    begin\r\n      if (Resp.StatusCode <> 204) then\r\n      begin\r\n        JsonResult := TJSJSON.parse(Resp.ContentAsText)\r\n      end\r\n      else\r\n        JsonResult := JS.Null;\r\n      DoLoad(TXDataClientResponse.Create(FClient, Resp, JsonResult, rtRawInvoke, RequestId));\r\n    end;\r\n  end;\r\n\r\n  procedure LocalError;\r\n  begin\r\n    DoError(nil, RequestUrl, RequestId, '');\r\n  end;\r\n\r\nvar\r\n  Req: IHttpRequest;\r\n  QueryString: string;\r\n  SingleBodyParamIndex: Integer;\r\nbegin\r\n  // check number of parameters\r\n  // note that first item in Args array is not the parameter, but instead always the interface pointer\r\n//  if Action.Parameters.Count <> Length(Args) then\r\n//    raise EXDataWrongParameterCount.Create(Action, Length(Args));\r\n\r\n//  Resp := nil;\r\n  Req := CreateHttpRequest;\r\n\r\n  // Set request uri, method and other parameters before setting message body\r\n  // TODO: Later Uri must be defined based on a more advanced routing system\r\n    QueryString := BuildQueryString(Args, TBindingMode.FromURI, Query);\r\n  RequestUrl := BuildUrlRoute(Args);\r\n  if QueryString <> '' then\r\n    RequestUrl := RequestUrl + '?' + QueryString;\r\n  RequestUrl := Self.RequestUrl(RequestUrl);\r\n  Req.Uri := RequestUrl;\r\n  Req.Method := Action.HttpMethod;\r\n\r\n  if Action.IsResultStream then\r\n    Req.ResponseType := 'blob';\r\n\r\n  if Action.IsParamStream then\r\n    SetParamStreamBody(Req, Args, Action.ParamStreamIndex)\r\n  else\r\n  if Action.BodyParamCount > 0 then\r\n  begin\r\n    // Set content (parameters that are defined to be in the message body)\r\n    if Action.IsFormContent then\r\n      SetFormBody(Req, Args)\r\n    else\r\n    begin\r\n      // Check for special case: single parameter object and list. Server-side equivalent code for this is\r\n      // in XData.Payload.Json.Reader unit: TJsonParamsReader.ReadParams method\r\n      // Check there if you change something here.\r\n  //    if (Action.Parameters.Count = 1) and (Action.Parameters[0].ParamType is TXDataEntityType) then\r\n      SingleBodyParamIndex := Action.BodyParams[0].Index;\r\n      if (Action.BodyParamCount = 1) and (Length(Args) > SingleBodyParamIndex) and (JS.IsObject(Args[SingleBodyParamIndex])) then\r\n        SetJsonObjectBody(Req, Args)\r\n      else\r\n        SetJsonParamsBody(Req, Args);\r\n    end;\r\n\r\n    if Action.Consumes <> '' then\r\n      Req.Headers.SetValue('content-type', Action.Consumes)\r\n    else\r\n      Req.Headers.SetValue('content-type', 'application/json');\r\n  end;\r\n\r\n  FClient.DoRequest(TXDataClientRequest.Create(FClient, Req, rtRawInvoke, FRequestId));\r\n  FClient.Send(Req, @OnSuccess, @LocalError);\r\nend;\r\n\r\nfunction TXDataWebInvoker.RequestUrl(const RelativeUrl: string): string;\r\nbegin\r\n  Result := FClient.RequestUrl(RelativeUrl);\r\nend;\r\n\r\nprocedure TXDataWebInvoker.SetFormBody(Req: IHttpRequest;\r\n  const Args: array of JSValue);\r\nbegin\r\n  Req.Content := BuildQueryString(Args, TBindingMode.FromBody);\r\nend;\r\n\r\nprocedure TXDataWebInvoker.SetJsonObjectBody(Req: IHttpRequest;\r\n  const Args: array of JSValue);\r\nvar\r\n  ParamIndex: Integer;\r\nbegin\r\n  // Review this when Aurelius entities are supported\r\n  // For now, just set the raw Json content\r\n  ParamIndex := Action.BodyParams[0].Index;\r\n  if Length(Args) <= ParamIndex then\r\n    raise EXDataWrongParameterCount.Create(Action, ParamIndex + 1);\r\n  Req.Content := TJSJson.stringify(Args[ParamIndex]);\r\nend;\r\n\r\nprocedure TXDataWebInvoker.SetJsonParamsBody(Req: IHttpRequest;\r\n  const Args: array of JSValue);\r\nvar\r\n  I: Integer;\r\n  Param: TXDataParamDef;\r\n  ParamObj: TJSObject;\r\n  ParamValue: JSValue;\r\nbegin\r\n  ParamObj := TJSObject.new;\r\n  for I := 0 to Action.Parameters.Count - 1 do\r\n    if Action.Parameters[I].BindingMode = TBindingMode.FromBody then\r\n    begin\r\n      Param := Action.Parameters[I];\r\n      if Param.Input and (I < Length(Args)) then\r\n      begin\r\n        ParamValue := Args[I];\r\n        TransformParam(Param, ParamValue);\r\n        ParamObj[Param.Name] := ParamValue;\r\n      end;\r\n    end;\r\n  Req.Content := TJSJson.stringify(ParamObj);\r\nend;\r\n\r\nprocedure TXDataWebInvoker.SetParamStreamBody(Req: IHttpRequest;\r\n  const Args: array of JSValue; ArgIndex: Integer);\r\nbegin\r\n  if ArgIndex >= Length(Args) then\r\n    raise EXDataWrongParameterCount.Create(Action, ArgIndex + 1);\r\n  Req.Content := Args[ArgIndex];\r\nend;\r\n\r\nprocedure TXDataWebInvoker.TransformParam(Param: TXDataParamDef;\r\n  var Value: JSValue);\r\nbegin\r\n//  case Param.ParamType.TypeKind of\r\n////    xtDateTime,\r\n////    xtDate,\r\n////    xtTime,\r\n//    TXTypeKind.xtGuid:\r\n//      begin\r\n//        // Must be TGuid type\r\n//        if JS.IsObject(Value) then\r\n//        begin\r\n//          Value := Copy(GuidToString(TGuid(Value)), 2, 36);\r\n//        end;\r\n//      end;\r\n////    xtBinary,\r\n////    xtEnum,\r\n////    xtScalarCollection\r\n//  end;\r\nend;\r\n\r\n{ EXDataWrongParameterCount }\r\n\r\nconstructor EXDataWrongParameterCount.Create(Action: TXDataAction;\r\n  PassedParameters: integer);\r\nbegin\r\n  inherited CreateFmt('Incorrect parameter count for Operation \"%s\". Expected at least: %d, actual: %d',\r\n    [Action.OperationId, Action.Parameters.Count, PassedParameters]);\r\nend;\r\n\r\n{ EXDataWrongRouteParams }\r\n\r\nconstructor EXDataWrongRouteParams.Create(Action: TXDataAction);\r\nbegin\r\n  inherited CreateFmt('Invalid number of route params for Operation \"%s\". ' +\r\n    'Route params: %d, Path params: %d',\r\n    [Action.OperationId, Action.RouteInfo.ParamCount, Action.PathParamCount]);\r\nend;\r\n\r\nend.\r\n","unit XData.Web.DatasetCommon;\r\n\r\ninterface\r\n\r\nuses\r\n  DB,\r\n  XData.Model.Classes;\r\n\r\nprocedure InitFieldDefsFromEntityType(Dataset: TDataset; EntityType: TXDataEntityType;\r\n  SubPropsDepth: Integer; EnumAsString: Boolean = False);\r\n//procedure AddFieldDefsFromEntityType(Dataset: TDataset; SubPropsDepth: Integer; const APrefix: string;\r\n//  EntityType: TXDataEntityType; ADepth: Integer);\r\n//function XDataTypeToFieldType(AType: TXDataType; ALength: Integer;\r\n//  ForceAnsiString: boolean): TFieldType;\r\n\r\nimplementation\r\n\r\n{$IFDEF PAS2JS}\r\nconst\r\n  { Field types with a fixed size.  TField.Size = 0 for all of these }\r\n  ftFixedSizeTypes = [ftInteger, ftBoolean, ftFloat,\r\n    ftDate, ftTime, ftDateTime, ftAutoInc, ftLargeint];\r\n{$ENDIF}\r\n\r\nfunction XDataTypeToFieldType(AType: TXDataType; var ALength: Integer;\r\n  ForceAnsiString: boolean; EnumAsString: Boolean): TFieldType;\r\nvar\r\n  IsMemo: Boolean;\r\n  EnumMember: TXDataEnumMember;\r\n  I: Integer;\r\nbegin\r\n  case AType.TypeKind of\r\n    TXTypeKind.xtText:\r\n      begin\r\n        IsMemo := ALength > 65535; {arbitrary big number}\r\n        if IsMemo then\r\n        begin\r\n          {$IFDEF PAS2JS}\r\n          Result := TFieldType.ftMemo;\r\n          {$ELSE}\r\n          if ForceAnsiString then\r\n            Result := TFieldType.ftMemo\r\n          else\r\n            Result := TFieldType.ftWideMemo;\r\n          {$ENDIF}\r\n        end\r\n        else\r\n        begin\r\n          {$IFDEF PAS2JS}\r\n          Result := TFieldType.ftString;\r\n          {$ELSE}\r\n          if ForceAnsiString then\r\n            Result := TFieldType.ftString\r\n          else\r\n            Result := TFieldType.ftWideString;\r\n          {$ENDIF}\r\n        end;\r\n      end;\r\n    TXTypeKind.xtInt32:\r\n      Result := ftInteger;\r\n    TXTypeKind.xtInt64:\r\n      Result := ftLargeInt;\r\n    TXTypeKind.xtDouble:\r\n      Result := ftFloat;\r\n    TXTypeKind.xtBoolean:\r\n      Result := ftBoolean;\r\n    TXTypeKind.xtDateTime:\r\n      Result := ftDateTime;\r\n    TXTypeKind.xtDate:\r\n      Result := ftDate;\r\n    TXTypeKind.xtTime:\r\n      Result := ftTime;\r\n    TXTypeKind.xtCurrency:\r\n      {$IFDEF PAS2JS}\r\n      Result := ftFloat;\r\n      {$ELSE}\r\n      Result := ftCurrency;\r\n      {$ENDIF}\r\n    TXTypeKind.xtGuid:\r\n      {$IFDEF PAS2JS}\r\n      Result := ftString;\r\n      {$ELSE}\r\n      Result := ftGuid;\r\n      {$ENDIF}\r\n    TXTypeKind.xtVariant:\r\n      Result := ftVariant;\r\n    TXTypeKind.xtBinary:\r\n      Result := ftBlob;\r\n    TXTypeKind.xtStream:\r\n      Result := ftBlob;\r\n    TXTypeKind.xtInt16:\r\n      {$IFDEF PAS2JS}\r\n      Result := ftInteger;\r\n      {$ELSE}\r\n      Result := ftSmallInt;\r\n      {$ENDIF}\r\n    TXTypeKind.xtByte:\r\n      {$IFDEF PAS2JS}\r\n      Result := ftInteger;\r\n      {$ELSE}\r\n      Result := ftSmallInt;\r\n      {$ENDIF}\r\n    TXTypeKind.xtSByte:\r\n      {$IFDEF PAS2JS}\r\n      Result := ftInteger;\r\n      {$ELSE}\r\n      Result := ftSmallInt;\r\n      {$ENDIF}\r\n    TXTypeKind.xtEnum:\r\n      if EnumAsString then\r\n      begin\r\n        Result := ftString;\r\n        if (ALength = 0) and (AType is TXDataEnumType) then\r\n          for I := 0 to TXDataEnumType(AType).Members.Count - 1 do\r\n          begin\r\n            EnumMember := TXDataEnumType(AType).Members[I];\r\n            if Length(EnumMember.Name) > ALength then\r\n              ALength := Length(EnumMember.Name);\r\n          end;\r\n      end\r\n      else\r\n        Result := ftInteger;\r\n  else\r\n    Result := ftUnknown;\r\n  end;\r\nend;\r\n\r\nprocedure AddFieldDefsFromEntityType(Dataset: TDataset; SubPropsDepth: Integer; const APrefix: string;\r\n  EntityType: TXDataEntityType; ADepth: Integer; EnumAsString: Boolean);\r\nvar\r\n  DataType: TFieldType;\r\n  Len: integer;\r\n  FieldDef: TFieldDef;\r\n  NavProp: TXDataNavigationProperty;\r\n  Prop: TXDataSimpleProperty;\r\n  I: Integer;\r\nbegin\r\n  if EntityType.BaseType <> nil then\r\n    AddFieldDefsFromEntityType(Dataset, SubPropsDepth, APrefix, EntityType.BaseType, ADepth, EnumAsString);\r\n\r\n  for I := 0 to EntityType.NavigationProperties.Count - 1 do\r\n  begin\r\n    NavProp := EntityType.NavigationProperties[I];\r\n    if NavProp.Target <> nil then\r\n    begin\r\n      if not NavProp.Target.IsCollection then\r\n      begin\r\n        FieldDef := Dataset.FieldDefs.AddFieldDef;\r\n        FieldDef.Name := APrefix + NavProp.Name;\r\n        FieldDef.DataType := ftVariant;\r\n        FieldDef.Required := NavProp.Required and (ADepth = 0);\r\n\r\n//        if not NavProp.CanWrite then\r\n//          FieldDef.Attributes := FieldDef.Attributes + [TFieldAttribute.faReadonly];\r\n\r\n        if ADepth < SubPropsDepth then\r\n          AddFieldDefsFromEntityType(Dataset, SubPropsDepth, APrefix + NavProp.Name + '.', NavProp.Target, ADepth + 1, EnumAsString);\r\n      end else\r\n      begin\r\n        FieldDef := Dataset.FieldDefs.AddFieldDef;\r\n        FieldDef.Name := APrefix + NavProp.Name;\r\n        FieldDef.DataType := ftDataSet;\r\n        FieldDef.Required := false;\r\n        FieldDef.Attributes := FieldDef.Attributes + [TFieldAttribute.faReadonly];\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  for I := 0 to EntityType.Properties.Count - 1 do\r\n  begin\r\n    Prop := EntityType.Properties[I];\r\n    if Prop.PropertyType <> nil then\r\n    begin\r\n      Len := Prop.Length;\r\n      DataType := XDataTypeToFieldType(Prop.PropertyType, Len, True, EnumAsString);\r\n\r\n      // Put a default value for field length. This should not be needed\r\n      // as XData model should always return length for string types\r\n      if (Len = 0) and (DataType in [ftString{$IFNDEF PAS2JS}, ftWideString{$ENDIF}]) then\r\n        Len := 255;\r\n\r\n      // Force guid fields to be size of 38 (required by Guid fields)\r\n      {$IFNDEF PAS2JS}\r\n      if DataType = ftGuid then\r\n        Len := 38;\r\n      {$ENDIF}\r\n\r\n      FieldDef := Dataset.FieldDefs.AddFieldDef;\r\n      FieldDef.Name := APrefix + Prop.Name;\r\n      FieldDef.DataType := DataType;\r\n\r\n      // Only set length for field types that need size. This avoids problems, for example, with enumerated types\r\n      // enumerated field type will always be integer here (due to call to RttiTypeToFieldType above. But if the enumerated\r\n      // is mapped in model as a string field, then Len will be not zero here (although datatype is ftInteger).\r\n      // So we must keep Size 0 for integer fields otherwise an error will be raised by the dataset\r\n      if not (FieldDef.DataType in ftFixedSizeTypes) then\r\n        FieldDef.Size := Len;\r\n\r\n      FieldDef.Required := Prop.Required;\r\n//      FieldDef.Required := not (O.IsNullable or (DataType in [ftMemo, ftBlob, ftWideMemo]));\r\n      FieldDef.Required := FieldDef.Required and (ADepth = 0);\r\n\r\n      // Make read-only properties to become read-only fields. Except dynamic properties which are always writeable\r\n//      if not Prop.CanWrite then\r\n//        FieldDef.Attributes := FieldDef.Attributes + [TFieldAttribute.faReadonly];\r\n\r\n//      if (C <> nil) and (TColumnProp.NoUpdate in C.Properties) then\r\n//        FieldDef.Attributes := FieldDef.Attributes + [TFieldAttribute.faReadonly];\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure InitFieldDefsFromEntityType(Dataset: TDataset;\r\n  EntityType: TXDataEntityType; SubPropsDepth: Integer; EnumAsString: Boolean);\r\nbegin\r\n  if EntityType = nil then\r\n  begin\r\n    Dataset.FieldDefs.Clear;\r\n    Exit;\r\n  end;\r\n\r\n  AddFieldDefsFromEntityType(Dataset, SubPropsDepth, '', EntityType, 0, EnumAsString);\r\nend;\r\n\r\nend.\r\n","unit XData.Web.Dataset;\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, DB, SysUtils, Types,\r\n  XData.Web.Client,\r\n  XData.Web.Connection,\r\n  XData.Web.DatasetCommon,\r\n  XData.Web.JsonDataset,\r\n  XData.Model.Classes, JS;\r\n\r\ntype\r\n  TServerRecordCountMode = (smNone, smInlineCount);\r\n  TProc = reference to procedure;\r\n\r\n  TXDataWebDataSet = class(TXDataJsonDataset)\r\n  private\r\n    FEntitySetName: string;\r\n    FConnection: TXDataWebConnection;\r\n    FSubpropsDepth: Integer;\r\n    FQueryString: string;\r\n    FServerRecordCountMode: TServerRecordCountMode;\r\n    FQuerySkip: Integer;\r\n    FQueryTop: Integer;\r\n    FServerRecordCount: Integer;\r\n    FDesignLoad: Boolean;\r\n    FEnumAsInteger: Boolean;\r\n    procedure SetConnection(const Value: TXDataWebConnection);\r\n    procedure CheckConnected;\r\n    procedure CheckConnection;\r\n    procedure CheckEntitySetName;\r\n    procedure EnsureConnected(Proc: TProc);\r\n    procedure SetEntitySetName(const Value: string);\r\n    procedure SetSubpropsDepth(const Value: Integer);\r\n    procedure SetDesignLoad(const Value: Boolean);\r\n  protected\r\n    procedure Notification(AComponent: TComponent; Operation: TOperation); override;\r\n    procedure InternalInitFieldDefs; override;\r\n    procedure InitializeFieldDefinitions;\r\n    function GetCurrentData: JSValue; virtual;\r\n    procedure InternalClose; override;\r\n  protected\r\n    function DataPacketReceived(ARequest: TDataRequest): Boolean; override;\r\n    function DoGetDataProxy: TDataProxy; override;\r\n  public\r\n    procedure Load; reintroduce;\r\n    property CurrentData: JSValue read GetCurrentData;\r\n    property ServerRecordCount: Integer read FServerRecordCount;\r\n  published\r\n    property DesignLoad: Boolean read FDesignLoad write SetDesignLoad;\r\n    property EntitySetName: string read FEntitySetName write SetEntitySetName;\r\n    property Connection: TXDataWebConnection read FConnection write SetConnection;\r\n    property SubpropsDepth: Integer read FSubpropsDepth write SetSubpropsDepth default 0;\r\n    property QueryString: string read FQueryString write FQueryString;\r\n    property QueryTop: Integer read FQueryTop write FQueryTop default 0;\r\n    property QuerySkip: Integer read FQuerySkip write FQuerySkip default 0;\r\n    property ServerRecordCountMode: TServerRecordCountMode read FServerRecordCountMode write FServerRecordCountMode default smNone;\r\n    property EnumAsInteger: Boolean read FEnumAsInteger write FEnumAsInteger default false;\r\n  end;\r\n\r\n  TXDataDataProxy = class(TDataProxy)\r\n  private\r\n    FDataset: TXDataWebDataSet;\r\n    function GetConnection: TXDataWebConnection;\r\n    procedure CheckBatchComplete(ABatch: TRecordUpdateBatch);\r\n    function QueryToObject(const Query: string): TJSObject;\r\n    function ObjectToQuery(Obj: TJSObject): string;\r\n    function BuildQueryString: string;\r\n  protected\r\n    function GetUpdateDescriptorClass: TRecordUpdateDescriptorClass; override;\r\n    function ProcessUpdateBatch(ABatch: TRecordUpdateBatch): Boolean; override;\r\n  protected\r\n    Function DoGetData(ARequest: TDataRequest): Boolean; override;\r\n    Function GetDataRequest(aOptions: TLoadOptions;\r\n      aAfterRequest: TDataRequestEvent; aAfterLoad: TDatasetLoadEvent)\r\n      : TDataRequest; override;\r\n  Public\r\n    Constructor Create(AOwner: TComponent); override;\r\n    Property Dataset: TXDataWebDataSet Read FDataset;\r\n    property Connection: TXDataWebConnection read GetConnection;\r\n  end;\r\n\r\n  TXDataDataRequest = Class(TDataRequest)\r\n  protected\r\n    procedure OnSuccess(Resp: TXDataClientResponse); virtual;\r\n  end;\r\n\r\n  TXDataUpdateDescriptor = Class(TRecordUpdateDescriptor)\r\n  Private\r\n    FBatch: TRecordUpdateBatch;\r\n    FApplying: Boolean;\r\n  protected\r\n    procedure OnLoad(Response: TXDataClientResponse); virtual;\r\n    procedure OnError(Error: TXDataClientError); virtual;\r\n  end;\r\n\r\nimplementation\r\n\r\n{ TXDataDBRequest }\r\n\r\nprocedure TXDataDataRequest.OnSuccess(Resp: TXDataClientResponse);\r\nbegin\r\n  if (Resp.StatusCode = 200) then\r\n  begin\r\n    TXDataDataProxy(DataProxy).FDataset.FServerRecordCount := Resp.Count;\r\n    Data := Resp.Result;\r\n    if isArray(Data) then\r\n    begin\r\n      if (TJSArray(Data).Length = 0) then\r\n        Success := rrEOF\r\n      else\r\n        Success := rrOK;\r\n    end\r\n    else\r\n    begin\r\n      Success := rrFail;\r\n      ErrorMsg := 'Result is not an array';\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    TXDataDataProxy(DataProxy).FDataset.FServerRecordCount := 0;\r\n    Data := nil;\r\n    Success := rrFail;\r\n    ErrorMsg := Resp.Response.StatusReason;\r\n  end;\r\n  DoAfterRequest;\r\nend;\r\n\r\n{ TXDataWebDataSet }\r\n\r\nprocedure TXDataWebDataSet.CheckConnected;\r\nbegin\r\n  CheckConnection;\r\n  if not Connection.Connected then\r\n    DatabaseError('Connection not active');\r\nend;\r\n\r\nprocedure TXDataWebDataSet.CheckConnection;\r\nbegin\r\n  if Connection = nil then\r\n    DatabaseError('Connection not assigned');\r\nend;\r\n\r\nprocedure TXDataWebDataSet.CheckEntitySetName;\r\nbegin\r\n  if EntitySetName = '' then\r\n    DatabaseError('EntitySetName not specified.');\r\nend;\r\n\r\nfunction TXDataWebDataSet.DataPacketReceived(ARequest: TDataRequest): Boolean;\r\nvar\r\n  A: TJSArray;\r\nbegin\r\n  Result := False;\r\n  If isNull(ARequest.Data) then\r\n    exit;\r\n\r\n  if isArray(ARequest.Data) then\r\n    A := TJSArray(ARequest.Data)\r\n  else\r\n    DatabaseError('Cannot handle data packet');\r\n\r\n  Result := A.Length > 0;\r\n  AddToRows(A);\r\nend;\r\n\r\nfunction TXDataWebDataSet.DoGetDataProxy: TDataProxy;\r\nbegin\r\n  Result := TXDataDataProxy.Create(Self);\r\nend;\r\n\r\nprocedure TXDataWebDataSet.EnsureConnected(Proc: TProc);\r\n\r\n  procedure Success;\r\n  begin\r\n    Proc();\r\n  end;\r\n\r\nbegin\r\n  CheckConnection;\r\n  if Connection.Connected then\r\n    Proc()\r\n  else\r\n    Connection.Open(@Success);\r\nend;\r\n\r\nfunction TXDataWebDataSet.GetCurrentData: JSValue;\r\nbegin\r\n  Result := ActiveBuffer.Data;\r\nend;\r\n\r\nprocedure TXDataWebDataSet.InitializeFieldDefinitions;\r\nbegin\r\n  CheckConnected;\r\n  CheckEntitySetName;\r\n  InitFieldDefsFromEntityType(Self, Connection.Model.GetEntitySet(EntitySetName).EntityType,\r\n    SubPropsDepth, not EnumAsInteger);\r\nend;\r\n\r\nprocedure TXDataWebDataSet.InternalClose;\r\nbegin\r\n  FServerRecordCount := 0;\r\n  inherited;\r\nend;\r\n\r\nprocedure TXDataWebDataSet.InternalInitFieldDefs;\r\nbegin\r\n  FieldDefs.Clear;\r\n  if not(csDesigning in ComponentState) and (FieldCount > 0) then\r\n  begin\r\n    InitFieldDefsFromFields;\r\n    exit;\r\n  end;\r\n\r\n  InitializeFieldDefinitions;\r\nend;\r\n\r\nprocedure TXDataWebDataSet.Load;\r\n\r\n  procedure LocalExecute;\r\n  begin\r\n    inherited Load([], nil);\r\n  end;\r\n\r\nbegin\r\n  EnsureConnected(@LocalExecute);\r\nend;\r\n\r\nprocedure TXDataWebDataSet.Notification(AComponent: TComponent;\r\n  Operation: TOperation);\r\nbegin\r\n  inherited;\r\n  if (Operation = opRemove) and (AComponent = FConnection) then\r\n    Connection := nil;\r\nend;\r\n\r\nprocedure TXDataWebDataSet.SetConnection(const Value: TXDataWebConnection);\r\nbegin\r\n  if Value <> FConnection then\r\n  begin\r\n    Active := False;\r\n    if FConnection <> nil then\r\n      FConnection.RemoveFreeNotification(Self);\r\n    FConnection := Value;\r\n    if FConnection <> nil then\r\n      FConnection.FreeNotification(Self);\r\n    FieldDefs.Updated := False;\r\n  end;\r\nend;\r\n\r\nprocedure TXDataWebDataSet.SetDesignLoad(const Value: Boolean);\r\nbegin\r\n  if Value <> FDesignLoad then\r\n  begin\r\n    FDesignLoad := Value;\r\n    if Value then\r\n      Load\r\n    else\r\n      Close;\r\n  end;\r\nend;\r\n\r\nprocedure TXDataWebDataSet.SetEntitySetName(const Value: string);\r\nbegin\r\n  if FEntitySetName <> Value then\r\n  begin\r\n    FEntitySetName := Value;\r\n    FieldDefs.Updated := False;\r\n  end;\r\nend;\r\n\r\nprocedure TXDataWebDataSet.SetSubpropsDepth(const Value: Integer);\r\nbegin\r\n  if FSubpropsDepth <> Value then\r\n  begin\r\n    FSubpropsDepth := Value;\r\n    FieldDefs.Updated := False;\r\n  end;\r\nend;\r\n\r\n{ TXDataDatasetProxy }\r\n\r\nfunction TXDataDataProxy.BuildQueryString: string;\r\nvar\r\n  Query: TJSObject;\r\nbegin\r\n  Query := QueryToObject(Self.FDataset.QueryString);\r\n  if Self.FDataset.QueryTop <> 0 then\r\n    Query['$top'] := IntToStr(Self.FDataset.QueryTop);\r\n  if Self.FDataset.QuerySkip <> 0 then\r\n    Query['$skip'] := IntToStr(Self.FDataset.QuerySkip);\r\n  if Self.FDataset.ServerRecordCountMode = smInlineCount then\r\n    Query['$inlinecount'] := 'allpages';\r\n  Result := ObjectToQuery(Query);\r\nend;\r\n\r\nprocedure TXDataDataProxy.CheckBatchComplete(ABatch: TRecordUpdateBatch);\r\nVar\r\n  BatchOK: Boolean;\r\n  I: Integer;\r\nbegin\r\n  BatchOK := True;\r\n  I := ABatch.List.Count - 1;\r\n  While BatchOK and (I >= 0) do\r\n  begin\r\n    BatchOK := ABatch.List[I].ResolveStatus in [rsResolved, rsResolveFailed];\r\n    Dec(I);\r\n  end;\r\n  if BatchOK and Assigned(ABatch.OnResolve) then\r\n    ABatch.OnResolve(Self, ABatch);\r\nend;\r\n\r\nconstructor TXDataDataProxy.Create(AOwner: TComponent);\r\nbegin\r\n  Inherited Create(AOwner);\r\n  if AOwner is TXDataWebDataSet then\r\n    FDataset := AOwner as TXDataWebDataSet\r\n  else\r\n    raise EXDataDatasetException.Create('Proxy created with invalid dataset');\r\nend;\r\n\r\nfunction TXDataDataProxy.DoGetData(ARequest: TDataRequest): Boolean;\r\nvar\r\n  XClient: TXDataWebClient;\r\nbegin\r\n  if not (loAtEof in ARequest.LoadOptions) then\r\n  begin\r\n    XClient := TXDataWebClient.Create(nil);\r\n    XClient.Connection := Self.FDataset.Connection;\r\n    XClient.List(Self.FDataset.EntitySetName, BuildQueryString,\r\n      @TXDataDataRequest(ARequest).OnSuccess);\r\n  end;\r\n\r\n  Result := True; // not used by TDataset for now\r\nend;\r\n\r\nfunction TXDataDataProxy.GetConnection: TXDataWebConnection;\r\nbegin\r\n  Result := FDataset.Connection;\r\nend;\r\n\r\nfunction TXDataDataProxy.GetDataRequest(aOptions: TLoadOptions;\r\n  aAfterRequest: TDataRequestEvent; aAfterLoad: TDatasetLoadEvent)\r\n  : TDataRequest;\r\nbegin\r\n  Result := TXDataDataRequest.Create(Self, aOptions, aAfterRequest, aAfterLoad);\r\nend;\r\n\r\nfunction TXDataDataProxy.GetUpdateDescriptorClass: TRecordUpdateDescriptorClass;\r\nbegin\r\n  Result := TXDataUpdateDescriptor;\r\nend;\r\n\r\nfunction TXDataDataProxy.ObjectToQuery(Obj: TJSObject): string;\r\nvar\r\n  Key: string;\r\nbegin\r\n  Result := '';\r\n  for Key in TJSObject.keys(Obj) do\r\n  begin\r\n    if Result <> '' then\r\n      Result := Result + '&';\r\n    Result := Result + key + '=' + JS.ToString(Obj[key]);\r\n  end;\r\nend;\r\n\r\nfunction TXDataDataProxy.ProcessUpdateBatch(ABatch: TRecordUpdateBatch): Boolean;\r\nvar\r\n  R: TXDataUpdateDescriptor;\r\n  I: Integer;\r\n  XClient: TXDataWebClient;\r\n  Entity: TJSObject;\r\nbegin\r\n  I := 0;\r\n  while I <= ABatch.List.Count - 1 do\r\n  begin\r\n    R := ABatch.List[I] as TXDataUpdateDescriptor;\r\n    if R.FApplying then \r\n      ABatch.List.Delete(I)\r\n    else\r\n    begin\r\n      Inc(I);\r\n      R.FBatch := ABatch;\r\n      R.FApplying := True;\r\n\r\n      XClient := TXDataWebClient.Create(nil);\r\n      XClient.Connection := Self.Connection;\r\n      XClient.OnLoad := @R.OnLoad;\r\n      XClient.OnError := @R.OnError;\r\n      Entity := TJSObject(R.Data);\r\n      Case R.Status of\r\n        usInserted:\r\n            XClient.Post(Dataset.EntitySetName, Entity);\r\n        usModified:\r\n            XClient.Put(Dataset.EntitySetName, Entity);\r\n        usDeleted:\r\n            XClient.Delete(Dataset.EntitySetName, Entity);\r\n      end;\r\n    end;\r\n  end;\r\n  Result := True;\r\nend;\r\n\r\nfunction TXDataDataProxy.QueryToObject(const Query: string): TJSObject;\r\nvar\r\n  Params: TStringDynArray;\r\n  P: Integer;\r\n  I: Integer;\r\nbegin\r\n  Result := TJSObject.new;\r\n  Params := TJSString(Query).split('&');\r\n  for I := 0 to Length(Params) - 1 do\r\n  begin\r\n    P := Pos('=', Params[I]);\r\n    if P > 1 then\r\n      Result[Copy(Params[I], 1, P - 1)] := Copy(Params[I], P + 1, MaxInt);\r\n  end;\r\nend;\r\n\r\n{ TXDataUpdateRequest }\r\n\r\nprocedure TXDataUpdateDescriptor.OnError(Error: TXDataClientError);\r\nbegin\r\n  ResolveFailed(Error.ErrorMessage);\r\n  FApplying := False;\r\n  (Proxy as TXDataDataProxy).CheckBatchComplete(FBatch);\r\nend;\r\n\r\nprocedure TXDataUpdateDescriptor.onLoad(Response: TXDataClientResponse);\r\nbegin\r\n  Resolve(Response.Result);\r\n  FApplying := False;\r\n  (Proxy as TXDataDataProxy).CheckBatchComplete(FBatch);\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.DB;\r\n\r\n{$DEFINE NOPP}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, DB, jsondataset;\r\n\r\ntype\r\n  TWebDataSource = class(TDataSource);\r\n\r\nimplementation\r\n\r\nend.","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.WebCtrls;\r\n\r\n{$DEFINE NOPP}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, WEBLib.Controls, WEBLib.Graphics, SysUtils, Web, JS, WEBLib.Menus;\r\n\r\ntype\r\n  TBrowserSandboxType = (stAllowForms, stAllowModals, stAllowOrientationLock, stAllowPointerLock, stAllowPopups, stAllowPopupsToEscapeSandbox,\r\n    stAllowPresentation, stAllowSameOrigin, stAllowScripts, stAllowTopNavigation, stAllowTopNavigationByUserActivation);\r\n\r\n  TBrowserSandboxTypes = set of TBrowserSandboxType;\r\n\r\n  TBrowserReferrerPolicy = (rfNone, rfNoReferrer, rfNoReferrerWhenDowngrade, rfOrigin, rfOriginWhenCrossOrigin, rfUnsafeUrl);\r\n\r\n  TBrowserLoadEvent = procedure(Sender: TObject; AEvent: TJSEvent) of object;\r\n\r\n  TBrowserControl = class(TCustomControl)\r\n  private\r\n    FURL: string;\r\n    FSandbox: TBrowserSandboxTypes;\r\n    FReferrerPolicy: TBrowserReferrerPolicy;\r\n    FLoadPtr: pointer;\r\n    FOnLoad: TBrowserLoadEvent;\r\n    procedure SetURL(const Value: string);\r\n    procedure SetSandbox(const Value: TBrowserSandboxTypes);\r\n    procedure SetReferrerPolicy(const Value: TBrowserReferrerPolicy);\r\n    procedure DoLoad(Event: TJSEvent);\r\n  protected\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElementVisual; override;\r\n    procedure BindEvents; override;\r\n    procedure UnBindEvents; override;\r\n    procedure ClearMethodPointers; override;\r\n    procedure GetMethodPointers; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    procedure Navigate(const AURL: string);\r\n    function CurrentURL: string;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property BorderStyle;\r\n    property ReferrerPolicy: TBrowserReferrerPolicy read FReferrerPolicy write SetReferrerPolicy;\r\n    property Sandbox: TBrowserSandboxTypes read FSandbox write SetSandbox;\r\n    property URL: string read FURL write SetURL;\r\n    property Visible;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnLoad: TBrowserLoadEvent read FOnLoad write FOnLoad;\r\n    property OnMouseDown;\r\n    property OnMouseMove;\r\n    property OnMouseUp;\r\n  end;\r\n\r\n  TWebBrowserControl = class(TBrowserControl);\r\n\r\n  TYoutube = class(TCustomControl)\r\n  private\r\n    FVideoID: string;\r\n    FAllowFullScreen: boolean;\r\n    FAutoPlay: boolean;\r\n    procedure SetAllowFullScreen(const Value: boolean);\r\n  protected\r\n    procedure SetVideoID(const Value: string);\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElement; override;\r\n    procedure UpdateElementVisual; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n  published\r\n    property Align;\r\n    property AllowFullScreen: boolean read FAllowFullScreen write SetAllowFullScreen;\r\n    property AutoPlay: boolean read FAutoPlay write FAutoPlay;\r\n    property Center;\r\n    property VideoID: string read FVideoID write SetVideoID;\r\n  end;\r\n\r\n  TWebYoutube = class(TYoutube);\r\n\r\n  TMapClickEvent = procedure(Sender: TObject; Lon, Lat: double) of object;\r\n  TMapZoomEvent = procedure(Sender: TObject; ZoomLevel: integer) of object;\r\n  TMapMarkerClickEvent = procedure(Sender: TObject; AIndex: integer; AMarker: TJSObjectRecord) of object;\r\n  TMapPolygonClickEvent = procedure(Sender: TObject; AIndex: integer; APolygon: TJSObjectRecord) of object;\r\n  TMapPolylineClickEvent = procedure(Sender: TObject; AIndex: integer; APolyline: TJSObjectRecord) of object;\r\n  TMapCircleClickEvent = procedure(Sender: TObject; AIndex: integer; ACircle: TJSObjectRecord) of object;\r\n  TMapRectangleClickEvent = procedure(Sender: TObject; AIndex: integer; ARectangle: TJSObjectRecord) of object;\r\n  TMapKMLClickEvent = procedure(Sender: TObject; AIndex: integer; AKML: TJSObjectRecord) of object;\r\n\r\n  TGoogleMarkerColor = (mcDefault, mcRed, mcBlue, mcGreen, mcPurple, mcYellow);\r\n  TGoogleMarkerShape = (msPin, msPinDot, msFlag, msBookmark, msFlagSmall, msHome, msFavorite, msStar, msCustom);\r\n  TGoogleTravelMode = (tmDriving, tmWalking, tmBicycling, tmTransit);\r\n  TGoogleMapType = (mtDefault, mtSatellite, mtHybrid, mtTerrain);\r\n  TGoogleMapStyle = (mstDefault, mstNightMode, mstCustom);\r\n\r\n  TGoogleMaps = class;\r\n\r\n  TGoogleMapsOptions = class(TPersistent)\r\n  private\r\n    FOwner: TGoogleMaps;\r\n    FCustomStyle: TStringList;\r\n    FMapStyle: TGoogleMapStyle;\r\n    FDefaultLongitude: Double;\r\n    FDefaultLatitude: Double;\r\n    FDefaultZoomLevel: Integer;\r\n    procedure SetCustomStyle(const Value: TStringList);\r\n    procedure SetMapStyle(const Value: TGoogleMapStyle);\r\n    procedure SetDefaultLatitude(const Value: Double);\r\n    procedure SetDefaultLongitude(const Value: Double);\r\n    procedure SetDefaultZoomLevel(const Value: Integer);\r\n  public\r\n    constructor Create(AGoogleMaps: TGoogleMaps);\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property CustomStyle: TStringList read FCustomStyle write SetCustomStyle;\r\n    property MapStyle: TGoogleMapStyle read FMapStyle write SetMapStyle default mstDefault;\r\n    property DefaultLatitude: Double read FDefaultLatitude write SetDefaultLatitude default -34.397;\r\n    property DefaultLongitude: Double read FDefaultLongitude write SetDefaultLongitude default 150.644;\r\n    property DefaultZoomLevel: Integer read FDefaultZoomLevel write SetDefaultZoomLevel default 8;\r\n  end;\r\n\r\n  TGoogleMapsRender = (mrRaster, mrVector);\r\n\r\n  TGoogleMaps = class(TCustomControl)\r\n  private\r\n    FUpdateCount: integer;\r\n    FReq: TJSXMLHttpRequest;\r\n    FAPIKey: string;\r\n    FOldAPIKey: string;\r\n    FMap: TJSHTMLElement;\r\n    FDirectionsService: TJSElement;\r\n    FDirectionsDisplay: TJSElement;\r\n    FCode: boolean;\r\n    FBound: boolean;\r\n    FOnMapClick: TMapClickEvent;\r\n    FOnMapDblClick: TMapClickEvent;\r\n    FOnMapZoom: TMapZoomEvent;\r\n    FOnMapPan: TMapClickEvent;\r\n    FOnGeoCoded: TMapClickEvent;\r\n    FOnMapIdle: TNotifyEvent;\r\n    FOnMapLoaded: TNotifyEvent;\r\n    FOnMarkerClick: TMapMarkerClickEvent;\r\n    FOnPolygonClick: TMapPolygonClickEvent;\r\n    FOnPolylineClick: TMapPolylineClickEvent;\r\n    FOnCircleClick: TMapCircleClickEvent;\r\n    FOnRectangleClick: TMapRectangleClickEvent;\r\n    FOnKMLClick: TMapKMLClickEvent;\r\n    FOptions: TGoogleMapsOptions;\r\n    FMapID: string;\r\n    FMapRender: TGoogleMapsRender;\r\n    procedure SetAPIKey(const Value: string);\r\n    function GetMarker(AIndex: integer): TJSObject;\r\n    function GetCircle(AIndex: integer): TJSObject;\r\n    function GetRectangle(AIndex: integer): TJSObject;\r\n    function GetPolygon(AIndex: integer): TJSObject;\r\n    function GetPolyline(AIndex: integer): TJSObject;\r\n    procedure SetMapID(const Value: string);\r\n    procedure SetMapRender(const Value: TGoogleMapsRender);\r\n  protected\r\n    function GetMap: TJSHTMLElement;\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElement; override;\r\n    procedure SetControlCursor(const Value: TCursor); override;\r\n    procedure BindEvents; override;\r\n\r\n    procedure HandleMapClick(e: TJSEvent);\r\n    procedure HandleMapDblClick(e: TJSEvent);\r\n    procedure HandleMapPan(e: TJSEvent);\r\n    procedure HandleMapZoom(e: TJSEvent);\r\n    procedure HandleMapIdle(e: TJSEvent);\r\n    procedure HandleMarkerClick(e: TJSEvent);\r\n    procedure HandlePolygonClick(e: TJSEvent);\r\n    procedure HandlePolylineClick(e: TJSEvent);\r\n    procedure HandleCircleClick(e: TJSEvent);\r\n    procedure HandleRectangleClick(e: TJSEvent);\r\n    procedure HandleKMLClick(e: TJSEvent);\r\n    function HandleResponse(Event: TEventListenerEvent): boolean;\r\n    function HandleAbort(Event: TEventListenerEvent): boolean;\r\n    function TravelModeStr(ATravelMode: TGoogleTravelMode): string;\r\n    function DoLoaded(Event: TEventListenerEvent): boolean; virtual;\r\n    procedure Loaded; override;\r\n    function GoogleLoaded: boolean;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    procedure SetCenter(Lat, Lon: Double);\r\n    function GetCenter(var Lat, Lon: Double): Boolean;\r\n    function GetBounds(var NorthEastLat, NorthEastLon, SouthWestLat, SouthWestLon: Double): Boolean;\r\n    procedure SetDoubleClickZoom(AValue: Boolean);\r\n    procedure SetDraggable(AValue: Boolean);\r\n    procedure SetScrollWheel(AValue: Boolean);\r\n    procedure SetMapType(AMapType: TGoogleMapType = mtDefault);\r\n    procedure SetZoom(Zoom: integer);\r\n    procedure SetHeading(AHeading: double);\r\n    procedure SetTilt(ATilt: double);\r\n    procedure PanTo(Lat, Lon: double);\r\n    procedure PanToBounds(Lat1, Lon1, Lat2, Lon2: double);\r\n    procedure AddGPX(AGPX: string; AColor: TColor = clRed; AWidth: integer = 2; AOpacity: Double = 1);\r\n    procedure AddKML(Url: string; ZoomToBounds: Boolean = true);\r\n    procedure AddPolyLine(Points: TJSArray; AColor: TColor = clRed;AWidth: integer = 2; AOpacity: Double = 1);\r\n    procedure AddPolygon(Points: TJSArray; AFillColor: TColor = clRed; AStrokeColor: TColor = clBlack; AWidth: Integer = 2; AOpacity: Double = 1);\r\n    procedure AddCircle(Lat, Lon: double; Radius: Integer; AFillColor: TColor = clRed; AStrokeColor: TColor = clBlack; AWidth: Integer = 2; AOpacity: double = 1);\r\n    procedure AddRectangle(NorthEastLat, NorthEastLon, SouthWestLat, SouthWestLon: double; AFillColor: TColor = clRed; AStrokeColor: TColor = clBlack; AWidth: integer = 2; AOpacity: double = 1);\r\n    procedure AddMarker(Lat,Lon: Double; Title: string = ''); overload;\r\n    procedure AddMarker(Lat,Lon: Double; Color: TGoogleMarkerColor; Title: string = ''); overload;\r\n    procedure AddMarker(Lat,Lon: Double; Color: TColor; PinLetter: string; Title: string = ''); overload;\r\n    procedure AddMarker(Lat,Lon: Double; PinIcon: string; Title: string; XOffset: integer = 0; YOffset: integer = 0); overload;\r\n    procedure AddMarker(Lat,Lon: Double; Shape: TGoogleMarkerShape; Color: TColor; Title: string = ''); overload;\r\n    procedure AddMarker(Lat,Lon: Double; Shape: TGoogleMarkerShape; Color: TColor = clRed; BorderColor: TColor = clBlack; Scale: Double = 1; CustomShape: string = ''; Title: string = ''); overload;\r\n    procedure SetMarkerTitle(AIndex: Integer; ATitle: string);\r\n    procedure SetMarkerLocation(AIndex: Integer; Lat, Lon: Double);\r\n    procedure SetMarkerIcon(AIndex: Integer; Url: string);\r\n    procedure SetCircleCenter(AIndex: Integer; Lat, Lon: Double);\r\n    procedure SetCircleRadius(AIndex, Radius: Integer);\r\n    procedure SetCircleColors(AIndex: Integer; AFillColor, AStrokeColor: TColor);\r\n    procedure SetRectangleLocation(AIndex: Integer; NorthEastLat, NorthEastLon, SouthWestLat, SouthWestLon: Double);\r\n    procedure SetRectangleColors(AIndex: Integer; AFillColor, AStrokeColor: TColor);\r\n    procedure SetPolylineColor(AIndex: Integer; AColor: TColor);\r\n    procedure SetPolylinePoints(AIndex: Integer; Points: TJSArray);\r\n    procedure SetPolygonColors(AIndex: Integer; AFillColor, AStrokeColor: TColor);\r\n    procedure SetPolygonPoints(AIndex: Integer; Points: TJSArray);\r\n    procedure FitBounds(LatMin, LonMin, LatMax, LonMax: Double);\r\n    procedure ClearMarkers;\r\n    procedure ClearKMLs;\r\n    procedure ClearPolylines;\r\n    procedure ClearPolygons;\r\n    procedure ClearCircles;\r\n    procedure ClearRectangles;\r\n    procedure ShowDirections(Source, Destination: string; ATravelMode: TGoogleTravelMode = tmDriving; WayPoints: TStringList = nil; OptimizeWayPoints: Boolean = False; AvoidHighways: Boolean = False; AvoidTolls: Boolean = False); overload;\r\n    procedure ShowDirections(SourceLon, SourceLat, DestLon, DestLat: Double; ATravelMode: TGoogleTravelMode = tmDriving; WayPoints: TStringList = nil; OptimizeWayPoints: Boolean = False; AvoidHighways: Boolean = False; AvoidTolls: Boolean = False); overload;\r\n    procedure ShowStreetView(Lat, Lon: Double; Heading: Integer = 0; Zoom: Integer = 0; Pitch: Integer = 0);\r\n    procedure HideStreetView;\r\n    procedure MoveMarker(AIndex: integer; NewLat, NewLon: double);\r\n    procedure RemoveDirections;\r\n    procedure RemoveMarker(AIndex: Integer);\r\n    procedure RemovePolygon(AIndex: Integer);\r\n    procedure RemovePolyline(AIndex: Integer);\r\n    procedure RemoveCircle(AIndex: Integer);\r\n    procedure RemoveRectangle(AIndex: Integer);\r\n    procedure GeoCode(const Address: string);\r\n    function GetCoord(Lon,Lat: double): JSValue;\r\n    function Distance(Lon1,Lat1,Lon2,Lat2: double): double;\r\n    function GetBBox(Lon1,Lat1,Lon2,Lat2: double): JSValue;\r\n    property Markers[AIndex: Integer]: TJSObject read GetMarker;\r\n    property Polygons[AIndex: Integer]: TJSObject read GetPolygon;\r\n    property Polylines[AIndex: Integer]: TJSObject read GetPolyline;\r\n    property Circles[AIndex: Integer]: TJSObject read GetCircle;\r\n    property Rectangles[AIndex: Integer]: TJSObject read GetRectangle;\r\n    property MapElement: TJSHTMLElement read GetMap;\r\n  published\r\n    property Align;\r\n    property APIKey: string read FAPIKey write SetAPIKey;\r\n    property Center;\r\n    property MapID: string read FMapID write SetMapID;\r\n    property MapRender: TGoogleMapsRender read FMapRender write SetMapRender default mrRaster;\r\n    property Options: TGoogleMapsOptions read FOptions write FOptions;\r\n    property OnGeoCoded: TMapClickEvent read FOnGeoCoded write FOnGeoCoded;\r\n    property OnKeyDown;\r\n    property OnKeyUp;\r\n    property OnKeyPress;\r\n    property OnMapClick: TMapClickEvent read FOnMapClick write FOnMapClick;\r\n    property OnMapDblClick: TMapClickEvent read FOnMapDblClick write FOnMapDblClick;\r\n    property OnMapIdle: TNotifyEvent read FOnMapIdle write FOnMapIdle;\r\n    property OnMapPan: TMapClickEvent read FOnMapPan write FOnMapPan;\r\n    property OnMapLoaded: TNotifyEvent read FOnMapLoaded write FOnMapLoaded;\r\n    property OnMapZoom: TMapZoomEvent read FOnMapZoom write FOnMapZoom;\r\n    property OnMarkerClick: TMapMarkerClickEvent read FOnMarkerClick write FOnMarkerClick;\r\n    property OnPolygonClick: TMapPolygonClickEvent read FOnPolygonClick write FOnPolygonClick;\r\n    property OnPolylineClick: TMapPolylineClickEvent read FOnPolylineClick write FOnPolylineClick;\r\n    property OnCircleClick: TMapCircleClickEvent read FOnCircleClick write FOnCircleClick;\r\n    property OnRectangleClick: TMapRectangleClickEvent read FOnRectangleClick write FOnRectangleClick;\r\n    property OnKMLClick: TMapKMLClickEvent read FOnKMLClick write FOnKMLClick;\r\n  end;\r\n\r\n  TWebGoogleMaps = class(TGoogleMaps);\r\n\r\n  TLeafletMaps = class;\r\n\r\n  TLeafletMarkerEvent = procedure(Sender: TObject; Lon, Lat: double; ID: string) of object;\r\n\r\n  TLeafletZoom = (lzTopLeft, lzTopRight, lzBottomLeft, lzBottomRight, lzNone);\r\n\r\n  TLeafletMapsOptions = class(TPersistent)\r\n  private\r\n    FOwner: TLeafletMaps;\r\n    FDefaultLongitude: Double;\r\n    FZoomControl: TLeafletZoom;\r\n    FDefaultZoomLevel: Integer;\r\n    FDefaultLatitude: Double;\r\n    procedure SetDefaultLatitude(const Value: Double);\r\n    procedure SetDefaultLongitude(const Value: Double);\r\n    procedure SetDefaultZoomLevel(const Value: Integer);\r\n    procedure SetZoomControl(const Value: TLeafletZoom);\r\n\r\n  public\r\n    constructor Create(AOwner: TLeafletMaps);\r\n    procedure Assign(Source: TPersistent); override;\r\n\r\n  published\r\n    property ZoomControl: TLeafletZoom read FZoomControl write SetZoomControl default lzTopLeft;\r\n    property DefaultLatitude: Double read FDefaultLatitude write SetDefaultLatitude default -34.397;\r\n    property DefaultLongitude: Double read FDefaultLongitude write SetDefaultLongitude default 150.644;\r\n    property DefaultZoomLevel: Integer read FDefaultZoomLevel write SetDefaultZoomLevel default 13;\r\n  end;\r\n\r\n  TLeafletMaps = class(TCustomControl)\r\n  private\r\n    FMap: TJSHTMLElement;\r\n    FMapObject: JSValue;\r\n    FMarkerGroup: JSValue;\r\n    FZoomControl: JSValue;\r\n    FCircles: TList;\r\n    FRectangles: TList;\r\n    FPolygons: TList;\r\n    FPolyLines: TList;\r\n    FMapClickPtr: pointer;\r\n    FMapDblClickPtr: pointer;\r\n    FMapPanPtr: pointer;\r\n    FMapZoomPtr: pointer;\r\n    FMarkerClickPtr: pointer;\r\n    FOnMapClick: TMapClickEvent;\r\n    FOnMapDblClick: TMapClickEvent;\r\n    FOnMapPan: TMapClickEvent;\r\n    FOnMapZoom: TMapZoomEvent;\r\n    FOnMarkerClick: TLeafletMarkerEvent;\r\n    FOptions: TLeafletMapsOptions;\r\n    procedure SetOptions(const Value: TLeafletMapsOptions);\r\n  protected\r\n    function GetMap: TJSHTMLElement;\r\n    function CreateElement: TJSElement; override;\r\n    procedure BindEvents; override;\r\n    procedure InitScript; override;\r\n\r\n    function HandleDoMouseDown(Event: TJSMouseEvent): Boolean; override;\r\n    function HandleDoMouseUp(Event: TJSMouseEvent): Boolean; override;\r\n    function HandleDoMouseMove(Event: TJSMouseEvent): Boolean; override;\r\n\r\n    procedure DoHandleMapClick(AEvent: JSValue);\r\n    procedure DoHandleMapDblClick(AEvent: JSValue);\r\n    procedure DoHandleMapPan(AEvent: JSValue);\r\n    procedure DoHandleMapZoom(AEvent: JSValue);\r\n    procedure DoHandleMarkerclick(AEvent: JSValue);\r\n    procedure ClearMethodPointers; override;\r\n    procedure GetMethodPointers; override;\r\n    procedure SetBoundsInt(X, Y, AWidth, AHeight: Integer); override;\r\n    procedure SetZoomControl(const Value: TLeafletZoom);\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure SetCenter(Lat, Lon: Double);\r\n    function GetCenter(var Lat, Lon: Double): Boolean;\r\n    procedure SetZoom(Zoom: integer);\r\n    procedure AddMarker(Lat,Lon: Double; ID: string = ''; Title: string = ''; Popup: string = ''); overload;\r\n    procedure ClearMarkers;\r\n    procedure AddPolyLine(Points: TJSArray; AColor: TColor = clRed;AWidth: integer = 2; AOpacity: Double = 1);\r\n    procedure AddPolygon(Points: TJSArray; AFillColor: TColor = clRed; AStrokeColor: TColor = clBlack; AWidth: Integer = 2; AOpacity: Double = 1);\r\n    procedure AddCircle(Lat, Lon: double; Radius: Integer; AFillColor: TColor = clRed; AStrokeColor: TColor = clBlack; AWidth: Integer = 2; AOpacity: double = 1);\r\n    procedure AddRectangle(NorthEastLat, NorthEastLon, SouthWestLat, SouthWestLon: double; AFillColor: TColor = clRed; AStrokeColor: TColor = clBlack; AWidth: integer = 2; AOpacity: double = 1);\r\n    procedure ClearPolylines;\r\n    procedure ClearPolygons;\r\n    procedure ClearCircles;\r\n    procedure ClearRectangles;\r\n    procedure LatLonToXY(Lat, Lon: double; var X, Y: integer);\r\n    procedure XYToLatLon(X, Y: integer; var Lat, Lon: double);\r\n    function Distance(Lon1,Lat1,Lon2,Lat2: double): double;\r\n  published\r\n    property Center;\r\n    property Options: TLeafletMapsOptions read FOptions write SetOptions;\r\n    property OnKeyUp;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnMapClick: TMapClickEvent read FOnMapClick write FOnMapClick;\r\n    property OnMapDblClick: TMapClickEvent read FOnMapDblClick write FOnMapDblClick;\r\n    property OnMapPan: TMapClickEvent read FOnMapPan write FOnMapPan;\r\n    property OnMapZoom: TMapZoomEvent read FOnMapZoom write FOnMapZoom;\r\n    property OnMarkerClick: TLeafletMarkerEvent read FOnMarkerClick write FOnMarkerClick;\r\n    property OnMouseDown;\r\n    property OnMouseMove;\r\n    property OnMouseUp;\r\n  end;\r\n\r\n  TWebLeafletMaps = class(TLeafletMaps);\r\n\r\n  TDriveView = (dvList, dvGrid);\r\n\r\n  TGoogleDrive = class(TCustomControl)\r\n  private\r\n    FView: TDriveView;\r\n    FFolderID: string;\r\n    FFrameHandle: TJSElement;\r\n    procedure SetFolderID(const Value: string);\r\n    procedure SetView(const Value: TDriveView);\r\n  protected\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElement; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n  published\r\n    property FolderID: string read FFolderID write SetFolderID;\r\n    property View: TDriveView read FView write SetView;\r\n  end;\r\n\r\n  TWebGoogleDrive = class(TGoogleDrive);\r\n\r\n  TTwitterFeed = class(TCustomControl)\r\n  private\r\n    FUpdatedFeed: boolean;\r\n    FFeed: string;\r\n    FFeedLinkText: string;\r\n    procedure SetFeed(const Value: string);\r\n    procedure SetFeedLinkText(const Value: string);\r\n  protected\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElement; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n  published\r\n    property Center;\r\n    property Feed: string read FFeed write SetFeed;\r\n    property FeedLinkText: string read FFeedLinkText write SetFeedLinkText;\r\n    property Visible;\r\n  end;\r\n\r\n  TWebTwitterFeed = class(TTwitterFeed);\r\n\r\n  THTMLDiv = class(TCustomControl)\r\n  private\r\n    FHTML: TStrings;\r\n    FOldText: string;\r\n    procedure SetHTML(const Value: TStrings);\r\n  protected\r\n    procedure UpdateElementData; override;\r\n    procedure HTMLChanged(Sender: TObject);\r\n    function CreateElement: TJSElement; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property Center;\r\n    property ChildOrder;\r\n    property DragMode;\r\n    property ElementClassName;\r\n    property ElementFont;\r\n    property ElementID;\r\n    property ElementPosition;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property HTML: TStrings read FHTML write SetHTML;\r\n    property Role;\r\n    property Visible;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnTouchStart;\r\n    property OnTouchEnd;\r\n    property OnTouchMove;\r\n    property OnTouchCancel;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebHTMLDiv = class(THTMLDiv);\r\n\r\n  THTMLSpan = class(TCustomControl)\r\n  private\r\n    FHTML: TStrings;\r\n    FOldText: string;\r\n    procedure SetHTML(const Value: TStrings);\r\n  protected\r\n    procedure UpdateElementData; override;\r\n    procedure HTMLChanged(Sender: TObject);\r\n    function CreateElement: TJSElement; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property Center;\r\n    property ChildOrder;\r\n    property DragMode;\r\n    property ElementClassName;\r\n    property ElementFont;\r\n    property ElementID;\r\n    property ElementPosition;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property HTML: TStrings read FHTML write SetHTML;\r\n    property Role;\r\n    property Visible;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnTouchStart;\r\n    property OnTouchEnd;\r\n    property OnTouchMove;\r\n    property OnTouchCancel;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebHTMLSpan = class(THTMLSpan);\r\n\r\n  THTMLAnchor = class(TCustomControl)\r\n  private\r\n    FHref: string;\r\n    FTarget: string;\r\n    procedure SetHref(const Value: string);\r\n    procedure SetTarget(const Value: string);\r\n  protected\r\n    procedure SetCaption(const Value: string); override;\r\n    function HandleDoClick(Event: TJSMouseEvent): Boolean; override;\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElementData; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property Caption;\r\n    property Center;\r\n    property ChildOrder;\r\n    property ElementClassName;\r\n    property ElementFont;\r\n    property ElementID;\r\n    property ElementPosition;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property HRef: string read FHref write SetHref;\r\n    property Target: string read FTarget write SetTarget;\r\n    property Role;\r\n    property Visible;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n  end;\r\n\r\n  TWebHTMLAnchor = class(THTMLAnchor);\r\n\r\n  TURLValidatorEvent = procedure(Sender: TObject; IsValid: boolean) of object;\r\n\r\n  TURLValidator = class(TComponent)\r\n  private\r\n    FURL: string;\r\n    FOnValidated: TURLValidatorEvent;\r\n  protected\r\n    procedure HandleResult(IsValid: boolean);\r\n  public\r\n    procedure Validate;\r\n  published\r\n    property URL: string read FURL write FURL;\r\n    property OnValidated: TURLValidatorEvent read FOnValidated write FOnValidated;\r\n  end;\r\n\r\n  TWebURLValidator = class(TURLValidator);\r\n\r\n\r\n  TJSHTMLFileArray = array of TJSHTMLFile;\r\n\r\n  TShare = class(TComponent)\r\n  private\r\n    FTitle: string;\r\n    FText: string;\r\n    FURL: string;\r\n  public\r\n    function Share(ATitle,AText,AURL: string): boolean; virtual overload;\r\n    function Share(ATitle,AText,AURL: string; AFiles: TJSHTMLFileArray): boolean; virtual overload;\r\n    function CanShareFiles: boolean;\r\n    function Execute: boolean;\r\n  published\r\n    property Title: string read FTitle write FTitle;\r\n    property Text: string read FText write FText;\r\n    property URL: string read FURL write FURL;\r\n  end;\r\n\r\n  TWebShare = class(TShare);\r\n\r\n  TDeviceOrientationError = (oeDenied, oeNotSupported);\r\n\r\n  TDeviceOrientationEvent = procedure(Sender: TObject; Heading: double) of object;\r\n  TDeviceOrientationErrorEvent = procedure(Sender: TObject; AError: TDeviceOrientationError) of object;\r\n\r\n  TDeviceOrientation = class(TComponent)\r\n  private\r\n    FOnHeadingChange: TDeviceOrientationEvent;\r\n    FOnInitialized: TNotifyEvent;\r\n    FOnError: TDeviceOrientationErrorEvent;\r\n    FStarted: boolean;\r\n  protected\r\n    FOrientationPtr: pointer;\r\n    function DoHandleOrientationEvent(e: TJSEvent): boolean;\r\n  public\r\n    function Enabled: boolean;\r\n    procedure Start;\r\n    property Started: boolean read FStarted;\r\n  published\r\n    property OnHeadingChange: TDeviceOrientationEvent read FOnHeadingChange write FOnHeadingChange;\r\n    property OnInitialized: TNotifyEvent read FOnInitialized write FOnInitialized;\r\n    property OnError: TDeviceOrientationErrorEvent read FOnError write FOnError;\r\n  end;\r\n\r\n  TWebDeviceOrientation = class(TDeviceOrientation);\r\n\r\n  TSpeechSynthesis = class(TComponent)\r\n  private\r\n    FVolume: single;\r\n    FPitch: single;\r\n    FRate: single;\r\n    FVoices: TStrings;\r\n    FOnVoicesReady: TNotifyEvent;\r\n    FVoice: string;\r\n    procedure SetVolume(const Value: single);\r\n    procedure SetPitch(const Value: single);\r\n    procedure SetRate(const Value: single);\r\n    procedure SetVoice(const Value: string);\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure Speak(AText: string);\r\n    procedure Cancel;\r\n    function GetVoices: TStrings;\r\n    property Voices: TStrings read FVoices;\r\n    function IsSpeaking: boolean;\r\n    function Supported: boolean;\r\n  published\r\n    property Pitch: single read FPitch write SetPitch;\r\n    property Rate: single read FRate write SetRate;\r\n    property Voice: string read FVoice write SetVoice;\r\n    property Volume: single read FVolume write SetVolume;\r\n    property OnVoicesReady: TNotifyEvent read FOnVoicesReady write FOnVoicesReady;\r\n  end;\r\n\r\n  TWebSpeechSynthesis = class(TSpeechSynthesis);\r\n\r\n  TConsoleLog = class(TWebCustomControl)\r\n  private\r\n    FLog: TJSHTMLElement;\r\n    FInit: boolean;\r\n    FAutoScroll: boolean;\r\n  protected\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElement; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure Clear;\r\n  published\r\n    property AutoScroll: boolean read FAutoScroll write FAutoScroll default true;\r\n  end;\r\n\r\n  TWebConsoleLog = class(TConsoleLog);\r\n\r\nfunction GPXToCoordinates(AGPXData: string): TJSArray;\r\n\r\nimplementation\r\n\r\nuses\r\n  WEBLib.Dialogs, WEBLib.WebTools;\r\n\r\nconst\r\n  TWITTERSCRIPTID = 'twitterscriptid';\r\n  LMapNotCreated = 'Map not created';\r\n\r\n\r\n{ TYouTube }\r\n\r\nfunction TYoutube.CreateElement: TJSElement;\r\nvar\r\n//  LLabel: TJSHTMLElement;\r\n  LDiv: TJSHTMLElement;\r\nbegin\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    LDiv := TJSHTMLElement(document.createElement('DIV'));\r\n    {\r\n    LLabel := TJSHTMLElement(document.createElement('DIV'));\r\n    LLabel.innerHTML := 'TWebYouTube';\r\n    BorderStyle := bsSingle;\r\n    LLabel['align'] := 'center';\r\n    LLabel.style.setProperty('border','1px solid gray');\r\n    LLabel.style.setProperty('vertical-align','middle');\r\n    LLabel.style.setProperty('display','table-cell');\r\n    Result.appendChild(LLabel);\r\n    }\r\n\r\n    LDiv.style.setProperty('background-color','slategray');\r\n    LDiv.style.setProperty('background-repeat','no-repeat');\r\n    LDiv.style.setProperty('background-position-y','center');\r\n    LDiv.style.setProperty('background-image',\r\n       'url(data:image/svg+xml;base64,PD94bWwgdmVyc2lvbj0iMS4wIiA/PjxzdmcgdmVyc2lvbj0iMS4xIiB2aWV3Qm94PSIwIDAuNDc5OTk5OTU5NDY4ODQyIDE2OS43MDk4Njkz'+\r\n       'ODQ3NjYgMTE5LjA4NTYyODA5MjI4OSIgeG1sbnM9Imh0dHA6Ly93d3cudzMub3JnLzIwMDAvc3ZnIiB4bWxuczp4bGluaz0iaHR0cDovL3d3dy53My5vcmcvMTk5OS94bGluayI+PG'+\r\n       'RlZnM+PGxpbmVhckdyYWRpZW50IGlkPSJkZWYwIiB4MT0iMC41IiB4Mj0iMC41IiB5MT0iMSIgeTI9IjMuMTAwNzJFLTA2Ij48c3RvcCBvZmZzZXQ9IjAiIHN0b3AtY29sb3I9IiNG'+\r\n       'RjAwMDAiLz48c3RvcCBvZmZzZXQ9IjEiIHN0b3AtY29sb3I9IiNGRjZCMDAiLz48L2xpbmVhckdyYWRpZW50PjwvZGVmcz48Zz48cGF0aCBkPSJNMzEuMDI5MywxLjc3NzM0QzEzLj'+\r\n       'E0MjcsMi45OTQ2Nyw0LjE1NDY3LDYuMTIsMS40ODgsMjguNzkzM0wxLjQ4OCwyOC43OTMzQzAuNTA2NjY3LDM3LjEzNiwwLjAwOTMzMzMzLDQ4LjQwMTMsMCw1OS42OTg3TDAsNjAu'+\r\n       'MzQ1M0MwLjAwOTMzMzMzLDcxLjYyOTMsMC41MDQsODIuODg5MywxLjQ4OCw5MS4yNTA3TDEuNDg4LDkxLjI1MDdDNC4xNTQ2NywxMTMuOTI3LDEzLjE0MjcsMTE3LjA1MiwzMS4wMj'+\r\n       'kzLDExOC4yNjdMMzEuMDI5MywxMTguMjY3QzU2LjQ3NzMsMTIwLDExMy4yNTEsMTE5Ljk5NywxMzguNjgsMTE4LjI2N0wxMzguNjgsMTE4LjI2N0MxNTYuNTY4LDExNy4wNTIsMTY1'+\r\n       'LjU1NSwxMTMuOTI3LDE2OC4yMjMsOTEuMjUwN0wxNjguMjIzLDkxLjI1MDdDMTcwLjIwMyw3NC40MTczLDE3MC4yMDgsNDUuNjg2NywxNjguMjIzLDI4Ljc5MzNMMTY4LjIyMywyOC'+\r\n       '43OTMzQzE2NS41NTUsNi4xMTg2OCwxNTYuNTY4LDIuOTk0NjcsMTM4LjY4LDEuNzc3MzRMMTM4LjY4LDEuNzc3MzRDMTI1Ljk2MywwLjkxMjAxLDEwNS4zOTcsMC40ODAwMDMsODQu'+\r\n       'ODQsMC40ODAwMDNMODQuODQsMC40ODAwMDNDNjQuMjkyLDAuNDc4Njc2LDQzLjc1MDcsMC45MTIwMSwzMS4wMjkzLDEuNzc3MzR6IiBmaWxsPSJ1cmwoI2RlZjApIi8+PHBhdGggZD'+\r\n       '0iTTEwOC40MjUsNjAuMDIyN0w2Mi4yNDE5LDkxLjk0NjcgNjIuMjQxOSwyOC4wOTg3IDEwOC40MjUsNjAuMDIyN3oiIGZpbGw9IiNGRkZGRkYiLz48L2c+PC9zdmc+)');\r\n    LDiv.style.setProperty('background-position-x','center');\r\n    LDiv.style.setProperty('background-size','128px');\r\n    Result := LDiv;\r\n  end\r\n  else\r\n  begin\r\n    Result := document.createElement('IFRAME');\r\n    Result.setAttribute('id', GetID);\r\n    Result.setAttribute('frameborder','0');\r\n  end;\r\nend;\r\n\r\nprocedure TYoutube.UpdateElement;\r\nvar\r\n  FURL: string;\r\nbegin\r\n  inherited;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    if Assigned(ElementHandle) then\r\n    begin\r\n      TJSHTMLElement(ElementHandle).style.setProperty('background-color','slategray');\r\n    end;\r\n  end;\r\n\r\n  if Assigned(Container) then\r\n  begin\r\n    if FVideoID <> '' then\r\n    begin\r\n      FURL := 'https://www.youtube.com/embed/' + FVideoID;\r\n      if AutoPlay then\r\n        FURL := FURL + '?autoplay=1';\r\n      Container.setAttribute('src', FURL);\r\n    end;\r\n    if FAllowFullScreen then\r\n      Container.setAttribute('allowfullscreen','allowfullscreen')\r\n    else\r\n      Container.removeAttribute('allowfullscreen');\r\n  end;\r\nend;\r\n\r\nprocedure TYoutube.UpdateElementVisual;\r\nbegin\r\n  inherited;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    if Assigned(ElementHandle) then\r\n    begin\r\n      TJSHTMLElement(ElementHandle).style.setProperty('background-color','slategray');\r\n    end;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TYoutube.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  Width := 400;\r\n  Height := 300;\r\nend;\r\n\r\nprocedure TYoutube.SetAllowFullScreen(const Value: boolean);\r\nbegin\r\n  FAllowFullScreen := Value;\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TYoutube.SetVideoID(const Value: string);\r\nbegin\r\n  FVideoID := Value;\r\n  UpdateElement;\r\nend;\r\n\r\n{ TGoogleMaps }\r\n\r\n{$HINTS OFF}\r\nprocedure TGoogleMaps.AddPolyLine(Points: TJSArray; AColor: TColor = clRed; AWidth: integer = 2; AOpacity: double = 1);\r\nvar\r\n  map: TJSHTMLElement;\r\n  clr: string;\r\n  ptr: Pointer;\r\nbegin\r\n  ptr := @HandlePolylineClick;\r\n  map := GetMap;\r\n  clr := ColorToHTML(AColor);\r\n\r\n  asm\r\n    var poly = new google.maps.Polyline({\r\n      map: map,\r\n  \t  path: Points,\r\n\t    strokeColor: clr,\r\n  \t  strokeOpacity: AOpacity,\r\n  \t  strokeWeight: AWidth\r\n  \t});\r\n\r\n    poly.idx = this.FPolylines.length;\r\n    poly.addListener('click', function() { ptr(poly); } );\r\n    this.FPolylines.push(poly);\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.AddRectangle(NorthEastLat, NorthEastLon, SouthWestLat,\r\n  SouthWestLon: double; AFillColor, AStrokeColor: TColor; AWidth: integer;\r\n  AOpacity: double);\r\nvar\r\n  map: TJSHTMLElement;\r\n  clrF,clrS: string;\r\n  ptr: Pointer;\r\nbegin\r\n  ptr := @HandleRectangleClick;\r\n  map := GetMap;\r\n  clrF := ColorToHTML(AFillColor);\r\n  clrS := ColorToHTML(AStrokeColor);\r\n\r\n  asm\r\n    var NELatLng = {lat: NorthEastLat, lng: NorthEastLon};\r\n    var SWLatLng = {lat: SouthWestLat, lng: SouthWestLon};\r\n    var rect = new google.maps.Rectangle({\r\n      map: map,\r\n  \t  bounds: new google.maps.LatLngBounds(NELatLng, SWLatLng),\r\n      fillColor: clrF,\r\n      fillOpacity: AOpacity,\r\n\t    strokeColor: clrS,\r\n  \t  strokeOpacity: AOpacity,\r\n  \t  strokeWeight: AWidth\r\n  \t});\r\n\r\n    rect.idx = this.FRectangles.length;\r\n    rect.addListener('click', function() { ptr(rect); } );\r\n    this.FRectangles.push(rect);\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.AddPolygon(Points: TJSArray; AFillColor: TColor = clRed; AStrokeColor: TColor = clBlack; AWidth: integer = 2; AOpacity: double = 1);\r\nvar\r\n  map: TJSHTMLElement;\r\n  clrF,clrS: string;\r\n  ptr: Pointer;\r\nbegin\r\n  ptr := @HandlePolygonClick;\r\n  map := GetMap;\r\n  clrF := ColorToHTML(AFillColor);\r\n  clrS := ColorToHTML(AStrokeColor);\r\n\r\n  asm\r\n    var poly = new google.maps.Polygon({\r\n      map: map,\r\n  \t  paths: Points,\r\n      fillColor: clrF,\r\n      fillOpacity: AOpacity,\r\n\t    strokeColor: clrS,\r\n  \t  strokeOpacity: AOpacity,\r\n  \t  strokeWeight: AWidth\r\n  \t});\r\n\r\n    poly.idx = this.FPolygons.length;\r\n    poly.addListener('click', function() { ptr(poly); } );\r\n    this.FPolygons.push(poly);\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.AddCircle(Lat, Lon: double; Radius: Integer;\r\n  AFillColor, AStrokeColor: TColor; AWidth: integer; AOpacity: double);\r\nvar\r\n  map: TJSHTMLElement;\r\n  clrF,clrS: string;\r\n  ptr: Pointer;\r\nbegin\r\n  ptr := @HandleCircleClick;\r\n  map := GetMap;\r\n  clrF := ColorToHTML(AFillColor);\r\n  clrS := ColorToHTML(AStrokeColor);\r\n\r\n  asm\r\n    var myLatLng = {lat: Lat, lng: Lon};\r\n    var circle = new google.maps.Circle({\r\n      map: map,\r\n  \t  center: myLatLng,\r\n      radius: Radius,\r\n      fillColor: clrF,\r\n      fillOpacity: AOpacity,\r\n\t    strokeColor: clrS,\r\n  \t  strokeOpacity: AOpacity,\r\n  \t  strokeWeight: AWidth\r\n  \t});\r\n\r\n    circle.idx = this.FCircles.length;\r\n    circle.addListener('click', function() { ptr(circle); } );\r\n    this.FCircles.push(circle);\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.AddMarker(Lat, Lon: double; Title: string = '');\r\nvar\r\n  map: TJSHTMLElement;\r\n  ptr: Pointer;\r\nbegin\r\n  ptr := @HandleMarkerClick;\r\n  map := GetMap;\r\n  asm\r\n    var myLatLng = {lat: Lat, lng: Lon};\r\n    var marker = new google.maps.Marker({\r\n          position: myLatLng,\r\n          map: map,\r\n          title: Title\r\n        });\r\n    marker.idx = this.FMarkers.length;\r\n    marker.addListener('click', function() { ptr(marker); } );\r\n    this.FMarkers.push(marker);\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.AddMarker(Lat, Lon: double; Color: TGoogleMarkerColor; Title: string);\r\nvar\r\n  map: TJSHTMLElement;\r\n  clr: string;\r\n  ptr: Pointer;\r\nbegin\r\n  ptr := @HandleMarkerClick;\r\n\r\n  case Color of\r\n  mcDefault: clr := '';\r\n  mcRed: clr := 'red-dot.png';\r\n  mcGreen: clr := 'green-dot.png';\r\n  mcYellow: clr := 'yellow-dot.png';\r\n  mcPurple: clr := 'purple-dot.png';\r\n  mcBlue: clr := 'blue-dot.png';\r\n  end;\r\n\r\n  map := GetMap;\r\n  asm\r\n    var myLatLng = {lat: Lat, lng: Lon};\r\n\r\n    var marker = new google.maps.Marker({\r\n          position: myLatLng,\r\n          map: map,\r\n          title: Title\r\n        });\r\n\r\n    if (clr != \"\") {\r\n      marker.setIcon('http://maps.google.com/mapfiles/ms/icons/' + clr);\r\n    }\r\n    marker.idx = this.FMarkers.length;\r\n    marker.addListener('click', function() { ptr(marker); } );\r\n\r\n    this.FMarkers.push(marker);\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.AddMarker(Lat, Lon: double; Color: TColor; PinLetter: string; Title: string);\r\nvar\r\n  map: TJSHTMLElement;\r\n  clr,url: string;\r\n  ch: string;\r\n  ptr: Pointer;\r\nbegin\r\n  ptr := @HandleMarkerClick;\r\n\r\n  clr := ColorToHTML(Color);\r\n  delete(clr,1,1);\r\n  map := GetMap;\r\n  asm\r\n    var myLatLng = {lat: Lat, lng: Lon};\r\n\r\n    url = \"http://chart.apis.google.com/chart?chst=d_map_pin_letter&chld=\"+ PinLetter + \"|\" + clr;\r\n\r\n    var pinImage = new google.maps.MarkerImage(url);\r\n\r\n    var marker = new google.maps.Marker({\r\n          position: myLatLng,\r\n          map: map,\r\n          title: Title,\r\n          icon: pinImage\r\n        });\r\n    marker.idx = this.FMarkers.length;\r\n    marker.addListener('click', function() { ptr(marker); } );\r\n\r\n    this.FMarkers.push(marker);\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.AddMarker(Lat, Lon: double; PinIcon, Title: string; XOffset: integer = 0; YOffset: integer = 0);\r\nvar\r\n  map: TJSHTMLElement;\r\n  ptr: Pointer;\r\nbegin\r\n  ptr := @HandleMarkerClick;\r\n\r\n  map := GetMap;\r\n  asm\r\n    var pinImage = new google.maps.MarkerImage(PinIcon, null, null,new google.maps.Point(XOffset, YOffset));\r\n    var myLatLng = {lat: Lat, lng: Lon};\r\n    var marker = new google.maps.Marker({\r\n          position: myLatLng,\r\n          map: map,\r\n          title: Title,\r\n          icon: pinImage\r\n        });\r\n    marker.idx = this.FMarkers.length;\r\n    marker.addListener('click', function() { ptr(marker); } );\r\n\r\n    this.FMarkers.push(marker);\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.AddMarker(Lat, Lon: double; Shape: TGoogleMarkerShape;\r\n  Color: TColor; Title: string);\r\n begin\r\n   AddMarker(Lat, Lon, Shape, Color, clBlack, 1, Title);\r\n end;\r\n\r\nprocedure TGoogleMaps.AddGPX(AGPX: string; AColor: TColor; AWidth: integer;\r\n  AOpacity: double);\r\nvar\r\n  Points: TJSArray;\r\n  LatMax,LonMax,LatMin,LonMin: double;\r\nbegin\r\n  Points := TJSArray.new;\r\n  asm\r\n    var parser = new DOMParser();\r\n    var doc = parser.parseFromString(AGPX, 'text/xml');\r\n    var trk = doc.getElementsByTagName(\"trk\")[0];\r\n    var name = trk.getElementsByTagName(\"name\")[0];\r\n    var trkseg = doc.getElementsByTagName(\"trkseg\")[0];\r\n    var i = trkseg.getElementsByTagName(\"trkpt\").length;\r\n    var trkpt;\r\n    var j;\r\n    var lat;\r\n    var lon;\r\n    var bounds = new google.maps.LatLngBounds ();\r\n\r\n    for (j= 0; j < i; j++)\r\n    {\r\n      trkpt = trkseg.getElementsByTagName(\"trkpt\")[j];\r\n      lat = trkpt.getAttribute('lat');\r\n      lon = trkpt.getAttribute('lon');\r\n\r\n      var p = new google.maps.LatLng(lat, lon);\r\n  \t  Points.push(p);\r\n      bounds.extend(p);\r\n    }\r\n    LatMax = bounds.getNorthEast().lat();\r\n    LonMax = bounds.getNorthEast().lng();\r\n\r\n    LatMin = bounds.getSouthWest().lat();\r\n    LonMin = bounds.getSouthWest().lng();\r\n  end;\r\n\r\n  AddPolyLine(Points, AColor, AWidth, AOpacity);\r\n  FitBounds(LatMin, LonMin, LatMax, LonMax);\r\nend;\r\n\r\nprocedure TGoogleMaps.AddKML(Url: string; ZoomToBounds: Boolean);\r\nvar\r\n  map: TJSHTMLElement;\r\n  clr: string;\r\n  ptr: Pointer;\r\nbegin\r\n  ptr := @HandleKMLClick;\r\n  map := GetMap;\r\n\r\n  asm\r\n    var kml = new google.maps.KmlLayer(Url, {\r\n      map: map,\r\n      clickable: true,\r\n      preserveViewport: !ZoomToBounds\r\n  \t});\r\n\r\n    kml.idx = this.FKMLs.length;\r\n    kml.addListener('click', function() { ptr(kml); } );\r\n    this.FKMLs.push(kml);\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.AddMarker(Lat, Lon: double; Shape: TGoogleMarkerShape;\r\n  Color: TColor; BorderColor: TColor; Scale: Double; CustomShape: string; Title: string);\r\nvar\r\n  map: TJSHTMLElement;\r\n  clr: string;\r\n  bclr: string;\r\n  pth: string;\r\n  scl: string;\r\n  ptr: pointer;\r\nbegin\r\n  ptr := @HandleMarkerClick;\r\n  map := GetMap;\r\n  clr := ColorToHTML(Color);\r\n  bclr := ColorToHTML(BorderColor);\r\n  scl := StringReplace(FloatToStr(Scale), ',', '.', []);\r\n\r\n  case Shape of\r\n  msPin: pth:= 'M 0,0 C -2,-20 -10,-22 -10,-30 A 10,10 0 1,1 10,-30 C 10,-22 2,-20 0,0 z';\r\n  msPinDot: pth := 'M 0,0 C -2,-20 -10,-22 -10,-30 A 10,10 0 1,1 10,-30 C 10,-22 2,-20 0,0 z M -2,-30 a 2,2 0 1,1 4,0 2,2 0 1,1 -4,0';\r\n  msFlag:  pth := 'M 0,0 -1,-2 V -43 H 1 V -2 z M 1,-40 H 30 V -20 H 1 z';\r\n  msBookmark: pth := 'M17 3h-10c-1.1 0-1.99.9-1.99 2l-.01 16 7-3 7 3v-16c0-1.1-.9-2-2-2z';\r\n  msFlagSmall: pth := 'M14.4 6l-.4-2h-9v17h2v-7h5.6l.4 2h7v-10z';\r\n  msHome: pth := 'M10 20v-6h4v6h5v-8h3l-10-9-10 9h3v8z';\r\n  msFavorite: pth := 'M12 21.35l-1.45-1.32c-5.15-4.67-8.55-7.75-8.55-11.53 0-3.08 2.42-5.5 5.5-5.5 1.74 0 3.41.81 4.5 2.09 1.09-1.28 2.76-2.09 4.5-2.09 3.08 0 5.5 2.42 5.5 5.5 0 3.78-3.4 6.86-8.55 11.54l-1.45 1.31z';\r\n  msStar: pth := 'M12 17.27L18.18 21l-1.64-7.03L22 9.24l-7.19-.61L12 2 9.19 8.63 2 9.24l5.46 4.73L5.82 21z';\r\n  msCustom: pth := CustomShape;\r\n  end;\r\n\r\n  asm\r\n    function pinSymbol(color, bcolor, scale) {\r\n    return {\r\n        path: pth,\r\n        fillColor: color,\r\n        fillOpacity: 1,\r\n        strokeColor: bcolor,\r\n        strokeWeight: 1,\r\n        scale: parseFloat(scale),\r\n        };\r\n    }\r\n    var myLatLng = {lat: Lat, lng: Lon};\r\n    var marker = new google.maps.Marker({\r\n          position: myLatLng,\r\n          map: map,\r\n          title: Title,\r\n          icon: pinSymbol(clr, bclr, scl)\r\n        });\r\n    marker.idx = this.FMarkers.length;\r\n    marker.addListener('click', function() { ptr(marker); } );\r\n\r\n    this.FMarkers.push(marker);\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.BindEvents;\r\nvar\r\n  map: TJSHTMLElement;\r\n  ptr1,ptr2,ptr3,ptr4,ptr5: pointer;\r\n  dirsvc, dirdispl: TJSElement;\r\nbegin\r\n  inherited;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  map := GetMap;\r\n\r\n  if Assigned(map) and not FBound and not (csDesigning in ComponentState) then\r\n  begin\r\n    ptr1 := @HandleMapClick;\r\n    ptr2 := @HandleMapDblClick;\r\n    ptr3 := @HandleMapPan;\r\n    ptr4 := @HandleMapZoom;\r\n    ptr5 := @HandleMapIdle;\r\n\r\n    asm\r\n      this.FMarkers = [];\r\n      this.FPolygons = [];\r\n      this.FPolylines = [];\r\n      this.FCircles = [];\r\n      this.FRectangles = [];\r\n      this.FKMLs = [];\r\n    end;\r\n\r\n\r\n    asm\r\n      dirsvc = new google.maps.DirectionsService;\r\n      dirdispl = new google.maps.DirectionsRenderer;\r\n      dirdispl.setMap(map);\r\n      map.addListener('click', ptr1);\r\n      map.addListener('dblclick', ptr2);\r\n      map.addListener('center_changed',ptr3);\r\n      map.addListener('zoom_changed',ptr4);\r\n      map.addListener('tilesloaded',ptr5);\r\n    end;\r\n\r\n    FDirectionsService := dirsvc;\r\n    FDirectionsDisplay := dirdispl;\r\n\r\n    FBound := true;\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\n\r\nprocedure TGoogleMaps.ClearCircles;\r\nbegin\r\n  asm\r\n    for (var i = 0; i < this.FCircles.length; i++) {\r\n          this.FCircles[i].setMap(null);\r\n          }\r\n    this.FMarkers = [];\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.ClearKMLs;\r\nbegin\r\n  asm\r\n    for (var i = 0; i < this.FKMLs.length; i++) {\r\n          this.FKMLs[i].setMap(null);\r\n          }\r\n    this.FKMLs = [];\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.ClearMarkers;\r\nbegin\r\n  asm\r\n    for (var i = 0; i < this.FMarkers.length; i++) {\r\n          this.FMarkers[i].setMap(null);\r\n          }\r\n    this.FMarkers = [];\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.ClearPolygons;\r\nbegin\r\n  asm\r\n    for (var i = 0; i < this.FPolygons.length; i++) {\r\n          this.FPolygons[i].setMap(null);\r\n          }\r\n    this.FPolyLines = [];\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.ClearPolyLines;\r\nbegin\r\n  asm\r\n    for (var i = 0; i < this.FPolylines.length; i++) {\r\n          this.FPolylines[i].setMap(null);\r\n          }\r\n    this.FPolyLines = [];\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.ClearRectangles;\r\nbegin\r\n  asm\r\n    for (var i = 0; i < this.FRectangles.length; i++) {\r\n          this.FRectangles[i].setMap(null);\r\n          }\r\n    this.FRectangles = [];\r\n  end;\r\nend;\r\n\r\nfunction TGoogleMaps.CreateElement: TJSElement;\r\nbegin\r\n  FDirectionsService := nil;\r\n  FDirectionsDisplay := nil;\r\n\r\n  Result := document.createElement('DIV');\r\n  Result.setAttribute('id', GetID);\r\n  FMap := nil;\r\nend;\r\n\r\nprocedure TGoogleMaps.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FOptions := TGoogleMapsOptions.Create(Self);\r\n  Width := 400;\r\n  Height := 300;\r\nend;\r\n\r\nfunction TGoogleMaps.Distance(Lon1, Lat1, Lon2, Lat2: double): double;\r\nbegin\r\n  Result := 0;\r\n  asm\r\n    var R = 3958.8; // Radius of the Earth in miles\r\n    var rlat1 = Lat1 * (Math.PI/180); // Convert degrees to radians\r\n    var rlat2 = Lat2 * (Math.PI/180); // Convert degrees to radians\r\n    var difflat = rlat2-rlat1; // Radian difference (latitudes)\r\n    var difflon = (Lon2-Lon1) * (Math.PI/180); // Radian difference (longitudes)\r\n    var d = 2 * R * Math.asin(Math.sqrt(Math.sin(difflat/2)*Math.sin(difflat/2)+Math.cos(rlat1)*Math.cos(rlat2)*Math.sin(difflon/2)*Math.sin(difflon/2)));\r\n    Result = d;\r\n  end;\r\nend;\r\n\r\nfunction TGoogleMaps.DoLoaded(Event: TEventListenerEvent): boolean;\r\nbegin\r\n  BindEvents;\r\n  Result := true;\r\n\r\n  Options.SetMapStyle(Options.MapStyle);\r\n\r\n  if Cursor <> crDefault then\r\n    SetControlCursor(Cursor);\r\n\r\n  if Assigned(OnMapLoaded) then\r\n    OnMapLoaded(Self);\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TGoogleMaps.FitBounds(LatMin, LonMin, LatMax, LonMax: double);\r\nvar\r\n  map: TJSHTMLElement;\r\nbegin\r\n  map := GetMap;\r\n\r\n  if Assigned(map) and GoogleLoaded then\r\n  begin\r\n    asm\r\n      var ne = new google.maps.LatLng(LatMax, LonMax);\r\n      var sw = new google.maps.LatLng(LatMin, LonMin);\r\n      var bounds = new google.maps.LatLngBounds(sw,ne);\r\n      map.fitBounds(bounds);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.Loaded;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TGoogleMaps.MoveMarker(AIndex: integer; NewLat, NewLon: double);\r\nvar\r\n  marker: JSValue;\r\nbegin\r\n  marker := Markers[AIndex];\r\n  asm\r\n    var latlng = new google.maps.LatLng(NewLat,NewLon);\r\n    marker.setPosition(latlng);\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\n\r\nprocedure TGoogleMaps.GeoCode(const Address: string);\r\nvar\r\n  FURL: string;\r\nbegin\r\n  FReq := TJSXMLHttpRequest.new;\r\n  FReq.addEventListener('load', @HandleResponse);\r\n  FReq.addEventListener('abort',@HandleAbort);\r\n\r\n  FURL := 'https://maps.googleapis.com/maps/api/geocode/json?address=' + encodeURIComponent(Address) +'&key=' + APIKey;\r\n  FReq.open('GET', FURL);\r\n  FReq.send;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TGoogleMaps.PanTo(Lat, Lon: double);\r\nvar\r\n  map: TJSHTMLElement;\r\nbegin\r\n  map := GetMap;\r\n  if Assigned(map) and GoogleLoaded then\r\n  begin\r\n    asm\r\n      map.panTo(new google.maps.LatLng(Lat, Lon));\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.PanToBounds(Lat1, Lon1, Lat2, Lon2: double);\r\nvar\r\n  bounds: JSValue;\r\n  map: TJSHTMLElement;\r\nbegin\r\n  map := GetMap;\r\n  if Assigned(map) and GoogleLoaded then\r\n  begin\r\n    bounds := GetBBox(Lon1,Lat1,Lon2,Lat2);\r\n    asm\r\n      map.panToBounds(bounds);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TGoogleMaps.GetMap: TJSHTMLElement;\r\nvar\r\n  map: TJSHTMLElement;\r\n  id: string;\r\nbegin\r\n  if Assigned(FMap) then\r\n    Result := FMap\r\n  else\r\n  begin\r\n    map := nil;\r\n\r\n    id := GetID;\r\n    asm\r\n      var el = document.getElementById(id);\r\n      if (el != null) {\r\n        map = el.gMap;\r\n      }\r\n    end;\r\n\r\n    Result := map;\r\n    if Assigned(map) then\r\n      FMap := Result;\r\n  end;\r\nend;\r\n\r\nfunction TGoogleMaps.GetBounds(var NorthEastLat, NorthEastLon, SouthWestLat,\r\n  SouthWestLon: Double): Boolean;\r\nvar\r\n  neLon, neLat, swLon, swLat: String;\r\nbegin\r\n  Result := false;\r\n  NorthEastLon := -1;\r\n  NorthEastLat := -1;\r\n  SouthWestLon := -1;\r\n  SouthWestLat := -1;\r\n\r\n  asm\r\n    neLon = map.getBounds().getNorthEast().lng().toString();\r\n    neLat = map.getBounds().getNorthEast().lat().toString();\r\n    swLon = map.getBounds().getSouthWest().lng().toString();\r\n    swLat = map.getBounds().getSouthWest().lat().toString();\r\n  end;\r\n\r\n  if (neLon <> '') and (neLat <> '') and (swLon <> '') and (swLat <> '') then\r\n  begin\r\n    NorthEastLon := StrToFloat(swLon);\r\n    NorthEastLat := StrToFloat(swLat);\r\n    SouthWestLon := StrToFloat(swLon);\r\n    SouthWestLat := StrToFloat(swLat);\r\n    Result := true;\r\n  end;\r\nend;\r\n\r\nfunction TGoogleMaps.GetBBox(Lon1, Lat1, Lon2, Lat2: double): JSValue;\r\nvar\r\n  SW,NE: JSValue;\r\nbegin\r\n  SW := GetCoord(Lon1,Lat1);\r\n  NE := GetCoord(Lon2,Lat2);\r\n\r\n  asm\r\n    Result = new google.maps.LatLngBounds(SW,NE);\r\n  end;\r\nend;\r\n\r\nfunction TGoogleMaps.GetCenter(var Lat, Lon: Double): Boolean;\r\nvar\r\n  sLon, sLat: String;\r\nbegin\r\n  Result := false;\r\n  Lon := -1;\r\n  Lat := -1;\r\n\r\n  asm\r\n    sLon = map.getCenter().lng().toString();\r\n    sLat = map.getCenter().lat().toString();\r\n  end;\r\n\r\n  if (sLon <> '') and (sLat <> '') then\r\n  begin\r\n    Lon := StrToFloat(sLon);\r\n    Lat := StrToFloat(sLat);\r\n    Result := true;\r\n  end;\r\nend;\r\n\r\nfunction TGoogleMaps.GetCircle(AIndex: integer): TJSObject;\r\nvar\r\n  res: TJSObject;\r\nbegin\r\n  asm\r\n    res = this.FCircles[AIndex];\r\n  end;\r\n\r\n  Result := res;\r\nend;\r\n\r\nfunction TGoogleMaps.GetCoord(Lon, Lat: double): JSValue;\r\nbegin\r\n  asm\r\n    Result = new google.maps.LatLng(Lat,Lon);\r\n  end;\r\nend;\r\n\r\nfunction TGoogleMaps.GetMarker(AIndex: integer): TJSObject;\r\nvar\r\n  res: TJSObject;\r\nbegin\r\n  asm\r\n    res = this.FMarkers[AIndex];\r\n  end;\r\n\r\n  Result := res;\r\nend;\r\n\r\nfunction TGoogleMaps.GetPolygon(AIndex: integer): TJSObject;\r\nvar\r\n  res: TJSObject;\r\nbegin\r\n  asm\r\n    res = this.FPolygon[AIndex];\r\n  end;\r\n\r\n  Result := res;\r\nend;\r\n\r\nfunction TGoogleMaps.GetPolyline(AIndex: integer): TJSObject;\r\nvar\r\n  res: TJSObject;\r\nbegin\r\n  asm\r\n    res = this.FPolyline[AIndex];\r\n  end;\r\n\r\n  Result := res;\r\nend;\r\n\r\nfunction TGoogleMaps.GetRectangle(AIndex: integer): TJSObject;\r\nvar\r\n  res: TJSObject;\r\nbegin\r\n  asm\r\n    res = this.FGetRectangle[AIndex];\r\n  end;\r\n\r\n  Result := res;\r\nend;\r\n\r\nfunction TGoogleMaps.GoogleLoaded: boolean;\r\nvar\r\n  res: boolean;\r\nbegin\r\n  res := false;\r\n\r\n  asm\r\n    if (typeof google === 'object' && typeof google.maps === 'object')\r\n    {\r\n      res = true;\r\n    }\r\n  end;\r\n\r\n  Result := res;\r\nend;\r\n\r\nfunction TGoogleMaps.HandleAbort(Event: TEventListenerEvent): boolean;\r\nbegin\r\n  //\r\n  Result := true;\r\nend;\r\n\r\nprocedure TGoogleMaps.HandleCircleClick(e: TJSEvent);\r\nvar\r\n  idx: integer;\r\n  LObjRec: TJSObjectRecord;\r\nbegin\r\n  asm\r\n    idx = e.idx;\r\n  end;\r\n\r\n  if Assigned(OnCircleClick) then\r\n  begin\r\n    LObjRec.jsobject := TJSObject(e);\r\n    OnCircleClick(Self, idx, LObjRec);\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.HandleKMLClick(e: TJSEvent);\r\nvar\r\n  idx: integer;\r\n  LObjRec: TJSObjectRecord;\r\nbegin\r\n  asm\r\n    idx = e.idx;\r\n  end;\r\n\r\n  if Assigned(OnKMLClick) then\r\n  begin\r\n    LObjRec.jsobject := TJSObject(e);\r\n    OnKMLClick(Self, idx, LObjRec);\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.HandleRectangleClick(e: TJSEvent);\r\nvar\r\n  idx: integer;\r\n  LObjRec: TJSObjectRecord;\r\nbegin\r\n  asm\r\n    idx = e.idx;\r\n  end;\r\n\r\n  if Assigned(OnRectangleClick) then\r\n  begin\r\n    LObjRec.jsobject := TJSObject(e);\r\n    OnRectangleClick(Self, idx, LObjRec);\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.HandleMapClick(e: TJSEvent);\r\nvar\r\n  lon,lat: double;\r\nbegin\r\n  asm\r\n    lon = e.latLng.lng();\r\n    lat = e.latLng.lat();\r\n  end;\r\n\r\n  if Assigned(OnMapClick) then\r\n    OnMapClick(Self, lon, lat);\r\nend;\r\n\r\nprocedure TGoogleMaps.HandleMapDblClick(e: TJSEvent);\r\nvar\r\n  lon,lat: double;\r\nbegin\r\n  asm\r\n    lon = e.latLng.lng();\r\n    lat = e.latLng.lat();\r\n  end;\r\n\r\n  if Assigned(OnMapDblClick) then\r\n    OnMapDblClick(Self, lon, lat);\r\nend;\r\n\r\nprocedure TGoogleMaps.HandleMapIdle(e: TJSEvent);\r\nbegin\r\n  if Assigned(OnMapIdle) then\r\n    OnMapIdle(Self);\r\nend;\r\n\r\nprocedure TGoogleMaps.HandleMapPan(e: TJSEvent);\r\nvar\r\n  lon,lat: double;\r\nbegin\r\n  asm\r\n    var c = map.getCenter();\r\n    lon = c.lng();\r\n    lat = c.lat();\r\n  end;\r\n\r\n  if Assigned(OnMapPan) then\r\n    OnMapPan(Self, lon, lat);\r\nend;\r\n\r\nprocedure TGoogleMaps.HandleMapZoom(e: TJSEvent);\r\nvar\r\n  map: TJSHTMLElement;\r\n  zoom: integer;\r\nbegin\r\n  map := GetMap;\r\n  asm\r\n    zoom = map.getZoom();\r\n  end;\r\n  if Assigned(OnMapZoom) then\r\n    OnMapZoom(Self, zoom);\r\nend;\r\n\r\nprocedure TGoogleMaps.HandleMarkerClick(e: TJSEvent);\r\nvar\r\n  idx: integer;\r\n  LObjRec: TJSObjectRecord;\r\nbegin\r\n  asm\r\n    idx = e.idx;\r\n  end;\r\n\r\n  if Assigned(OnMarkerClick) then\r\n  begin\r\n    LObjRec.jsobject := TJSObject(e);\r\n    OnMarkerClick(Self, idx, LObjRec);\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TGoogleMaps.HandlePolygonClick(e: TJSEvent);\r\nvar\r\n  idx: integer;\r\n  LObjRec: TJSObjectRecord;\r\nbegin\r\n  asm\r\n    idx = e.idx;\r\n  end;\r\n\r\n  if Assigned(OnPolygonClick) then\r\n  begin\r\n    LObjRec.jsobject := TJSObject(e);\r\n    OnPolygonClick(Self, idx, LObjRec);\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.HandlePolylineClick(e: TJSEvent);\r\nvar\r\n  idx: integer;\r\n  LObjRec: TJSObjectRecord;\r\nbegin\r\n  asm\r\n    idx = e.idx;\r\n  end;\r\n\r\n  if Assigned(OnPolylineClick) then\r\n  begin\r\n    LObjRec.jsobject := TJSObject(e);\r\n    OnPolylineClick(Self, idx, LObjRec);\r\n  end;\r\nend;\r\n\r\nfunction TGoogleMaps.HandleResponse(Event: TEventListenerEvent): boolean;\r\nvar\r\n  fnd: boolean;\r\n  reslat, reslon: double;\r\nbegin\r\n  Result := true;\r\n  fnd := false;\r\n\r\n  asm\r\n    var s = Event.target.responseText;\r\n    var js = JSON.parse(s);\r\n    if (js.status == \"OK\") {\r\n      fnd = true;\r\n      var lat = js.results[0].geometry.location.lat;\r\n      var lng = js.results[0].geometry.location.lng;\r\n      reslon = lng;\r\n      reslat = lat;\r\n    }\r\n  end;\r\n\r\n  if fnd and Assigned(OnGeoCoded) then\r\n  begin\r\n    OnGeoCoded(Self, reslon, reslat);\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.RemoveDirections;\r\nvar\r\n  dirdispl: TJSElement;\r\nbegin\r\n  if not Assigned(FDirectionsDisplay) then\r\n    BindEvents;\r\n\r\n  dirdispl := FDirectionsDisplay;\r\n\r\n  asm\r\n    dirdispl.setMap(null);\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\n\r\nprocedure TGoogleMaps.SetAPIKey(const Value: string);\r\nbegin\r\n  if FAPIKey <> Value then\r\n  begin\r\n    FAPIKey := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TGoogleMaps.SetCenter(Lat, Lon: double);\r\nvar\r\n  map: TJSHTMLElement;\r\nbegin\r\n  map := GetMap;\r\n  if Assigned(map) then\r\n  begin\r\n    asm\r\n      map.setCenter(new google.maps.LatLng(Lat, Lon));\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.SetDoubleClickZoom(AValue: Boolean);\r\nvar\r\n  map: TJSHTMLElement;\r\nbegin\r\n  map := GetMap;\r\n  if Assigned(map) then\r\n  begin\r\n    asm\r\n      map.setOptions( {disableDoubleClickZoom:!AValue} );\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.SetDraggable(AValue: Boolean);\r\nvar\r\n  map: TJSHTMLElement;\r\nbegin\r\n  map := GetMap;\r\n  if Assigned(map) then\r\n  begin\r\n    asm\r\n      map.setOptions( {draggable:AValue} );\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.SetHeading(AHeading: double);\r\nvar\r\n  map: TJSHTMLElement;\r\nbegin\r\n  map := GetMap;\r\n  if Assigned(map) then\r\n  begin\r\n    asm\r\n      map.setHeading(AHeading);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.SetMapID(const Value: string);\r\nbegin\r\n  if FMapID <> Value then\r\n  begin\r\n    FMapID := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.SetMapRender(const Value: TGoogleMapsRender);\r\nbegin\r\n  if FMapRender <> Value then\r\n  begin\r\n    FMapRender := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.SetMapType(AMapType: TGoogleMapType);\r\nvar\r\n  map: TJSHTMLElement;\r\n  smt: string;\r\nbegin\r\n  map := GetMap;\r\n\r\n  case AMapType of\r\n    mtDefault: smt := 'roadmap';\r\n    mtSatellite: smt := 'satellite';\r\n    mtHybrid: smt := 'hybrid';\r\n    mtTerrain: smt := 'terrain';\r\n  end;\r\n\r\n  asm\r\n    map.setMapTypeId(smt);\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.RemoveCircle(AIndex: Integer);\r\nbegin\r\n  asm\r\n    if (AIndex < this.FPolygons.length)\r\n    {\r\n      this.FCircles[AIndex].setMap(null);\r\n      this.FCircles.splice(AIndex, 1);\r\n    }\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TGoogleMaps.RemoveMarker(AIndex: Integer);\r\nbegin\r\n  asm\r\n    if (AIndex < this.FMarkers.length)\r\n    {\r\n      this.FMarkers[AIndex].setMap(null);\r\n      this.FMarkers.splice(AIndex, 1);\r\n    }\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.RemovePolygon(AIndex: Integer);\r\nbegin\r\n  asm\r\n    if (AIndex < this.FPolygons.length)\r\n    {\r\n      this.FPolygons[AIndex].setMap(null);\r\n      this.FPolygons.splice(AIndex, 1);\r\n    }\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.RemovePolyline(AIndex: Integer);\r\nbegin\r\n  asm\r\n    if (AIndex < this.FPolylines.length)\r\n    {\r\n      this.FPolylines[AIndex].setMap(null);\r\n      this.FPolylines.splice(AIndex, 1);\r\n    }\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.RemoveRectangle(AIndex: Integer);\r\nbegin\r\n  asm\r\n    if (AIndex < this.FPolygons.length)\r\n    {\r\n      this.FRectangles[AIndex].setMap(null);\r\n      this.FRectangles.splice(AIndex, 1);\r\n    }\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.SetMarkerIcon(AIndex: Integer; Url: string);\r\nbegin\r\n  asm\r\n    if (AIndex < this.FMarkers.length)\r\n    {\r\n      this.FMarkers[AIndex].setIcon(Url);\r\n    }\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.SetMarkerLocation(AIndex: Integer; Lat, Lon: Double);\r\nbegin\r\n  asm\r\n    if (AIndex < this.FMarkers.length)\r\n    {\r\n      this.FMarkers[AIndex].setPosition(new google.maps.LatLng(Lat, Lon));\r\n    }\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.SetMarkerTitle(AIndex: Integer; ATitle: string);\r\nbegin\r\n  asm\r\n    if (AIndex < this.FMarkers.length)\r\n    {\r\n      this.FMarkers[AIndex].setTitle(ATitle);\r\n    }\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.SetPolygonColors(AIndex: Integer; AFillColor,\r\n  AStrokeColor: TColor);\r\nvar\r\n  clrF, clrS: string;\r\nbegin\r\n  clrF := ColorToHTML(AFillColor);\r\n  clrS := ColorToHTML(AStrokeColor);\r\n  asm\r\n    if (AIndex < this.FPolygons.length)\r\n    {\r\n      this.FPolygons[AIndex].setOptions({ fillColor: clrF, strokeColor: clrS });\r\n    }\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.SetPolygonPoints(AIndex: Integer; Points: TJSArray);\r\nbegin\r\n  asm\r\n    if (AIndex < this.FPolygons.length)\r\n    {\r\n      this.FPolygons[AIndex].setOptions({ path: Points });\r\n    }\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.SetPolylineColor(AIndex: Integer; AColor: TColor);\r\nvar\r\n  clr: string;\r\nbegin\r\n  clr := ColorToHTML(AColor);\r\n  asm\r\n    if (AIndex < this.FPolylines.length)\r\n    {\r\n      this.FPolylines[AIndex].setOptions({ strokeColor: clr });\r\n    }\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.SetPolylinePoints(AIndex: Integer; Points: TJSArray);\r\nbegin\r\n  asm\r\n    if (AIndex < this.FPolylines.length)\r\n    {\r\n      this.FPolylines[AIndex].setOptions({ path: Points });\r\n    }\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.SetRectangleColors(AIndex: Integer; AFillColor,\r\n  AStrokeColor: TColor);\r\nvar\r\n  clrF, clrS: string;\r\nbegin\r\n  clrF := ColorToHTML(AFillColor);\r\n  clrS := ColorToHTML(AStrokeColor);\r\n  asm\r\n    if (AIndex < this.FRectangles.length)\r\n    {\r\n      this.FRectangles[AIndex].setOptions({ fillColor: clrF, strokeColor: clrS });\r\n    }\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.SetRectangleLocation(AIndex: Integer; NorthEastLat,\r\n  NorthEastLon, SouthWestLat, SouthWestLon: double);\r\nbegin\r\n  asm\r\n    if (AIndex < this.FRectangles.length)\r\n    {\r\n      var NELatLng = {lat: NorthEastLat, lng: NorthEastLon};\r\n      var SWLatLng = {lat: SouthWestLat, lng: SouthWestLon};\r\n      this.FRectangles[AIndex].setOptions({ bounds: new google.maps.LatLngBounds(NELatLng, SWLatLng) });\r\n    }\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.SetCircleCenter(AIndex: Integer; Lat, Lon: Double);\r\nbegin\r\n  asm\r\n    if (AIndex < this.FCircles.length)\r\n    {\r\n      this.FCircles[AIndex].setCenter(new google.maps.LatLng(Lat, Lon));\r\n    }\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.SetCircleColors(AIndex: Integer; AFillColor,\r\n  AStrokeColor: TColor);\r\nvar\r\n  clrF, clrS: string;\r\nbegin\r\n  clrF := ColorToHTML(AFillColor);\r\n  clrS := ColorToHTML(AStrokeColor);\r\n  asm\r\n    if (AIndex < this.FCircles.length)\r\n    {\r\n      this.FCircles[AIndex].setOptions({ fillColor: clrF, strokeColor: clrS });\r\n    }\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.SetCircleRadius(AIndex, Radius: Integer);\r\nbegin\r\n  asm\r\n    if (AIndex < this.FCircles.length)\r\n    {\r\n      this.FCircles[AIndex].setRadius(Radius);\r\n    }\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.SetControlCursor(const Value: TCursor);\r\nvar\r\n  map: TJSHTMLElement;\r\n  s: string;\r\nbegin\r\n  inherited;\r\n\r\n  map := GetMap;\r\n  if Value = crDefault then\r\n    s := ''''''\r\n  else\r\n    s := GetHTMLCursorName(Value);\r\n\r\n  if Assigned(map) then\r\n  begin\r\n    asm\r\n      map.setOptions({draggableCursor: s});\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.SetScrollWheel(AValue: Boolean);\r\nvar\r\n  map: TJSHTMLElement;\r\nbegin\r\n  map := GetMap;\r\n  asm\r\n    map.setOptions( {scrollWheel:AValue} );\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.SetTilt(ATilt: double);\r\nvar\r\n  map: TJSHTMLElement;\r\nbegin\r\n  map := GetMap;\r\n  if Assigned(map) then\r\n  begin\r\n    asm\r\n      map.setTitle(ATilt);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.SetZoom(Zoom: Integer);\r\nvar\r\n  map: TJSHTMLElement;\r\nbegin\r\n  map := GetMap;\r\n  if Assigned(map) then\r\n  begin\r\n    asm\r\n      map.setZoom(Zoom);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.ShowDirections(SourceLon, SourceLat, DestLon,\r\n  DestLat: double; ATravelMode: TGoogleTravelMode = tmDriving;\r\n  WayPoints: TStringList = nil; OptimizeWayPoints: Boolean = False;\r\n  AvoidHighways: Boolean = False; AvoidTolls: Boolean = False);\r\nvar\r\n  dirsvc,dirdispl,map: TJSElement;\r\n  tm: string;\r\n  wp: TJSArray;\r\n  I: Integer;\r\nbegin\r\n  if not Assigned(FDirectionsDisplay) then\r\n    BindEvents;\r\n\r\n  dirsvc := FDirectionsService;\r\n  dirdispl := FDirectionsDisplay;\r\n  map := GetMap;\r\n  tm := TravelModeStr(ATravelMode);\r\n  wp := TJSArray.New;\r\n  if WayPoints <> nil then\r\n  begin\r\n    for I := 0 to WayPoints.Count - 1 do\r\n      wp.Push(New(['location', WayPoints[I]]));\r\n  end;\r\n\r\n  asm\r\n    var sourcelatlon = new google.maps.LatLng(SourceLat, SourceLon);\r\n    var destlatlon = new google.maps.LatLng(DestLat, DestLon);\r\n\r\n    dirdispl.setMap(map);\r\n    dirsvc.route({\r\n          origin: sourcelatlon,\r\n          destination: destlatlon,\r\n          waypoints: wp,\r\n          optimizeWaypoints: OptimizeWayPoints,\r\n          avoidHighways: AvoidHighways,\r\n          avoidTolls: AvoidTolls,\r\n          travelMode: tm\r\n        }, function(response, status) {\r\n          if (status === 'OK') {\r\n            dirdispl.setDirections(response);\r\n          } else {\r\n            window.alert('Directions request failed due to ' + status);\r\n          }\r\n        });\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.HideStreetView;\r\nvar\r\n  map: TJSElement;\r\nbegin\r\n  map := GetMap;\r\n  asm\r\n    map.streetView.setVisible(false);\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.ShowStreetView(Lat, Lon: Double; Heading, Zoom,\r\n  Pitch: Integer);\r\nvar\r\n  map: TJSElement;\r\n  mapid: string;\r\nbegin\r\n  map := GetMap;\r\n  mapid := GetID;\r\n  asm\r\n    var LatLng = {lat: Lat, lng: Lon};\r\n    var panorama = new google.maps.StreetViewPanorama(\r\n        document.getElementById(mapid), {\r\n          position: LatLng,\r\n          pov: {\r\n            heading: Heading,\r\n            zoom: Zoom,\r\n            pitch: Pitch\r\n          }\r\n        });\r\n    map.setStreetView(panorama);\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.ShowDirections(Source, Destination: string;\r\n  ATravelMode: TGoogleTravelMode; WayPoints: TStringList; OptimizeWayPoints,\r\n  AvoidHighways, AvoidTolls: Boolean);\r\nvar\r\n  dirsvc,dirdispl,map: TJSElement;\r\n  tm: string;\r\n  wp: TJSArray;\r\n  I: Integer;\r\nbegin\r\n  if not Assigned(FDirectionsDisplay) then\r\n    BindEvents;\r\n\r\n  dirsvc := FDirectionsService;\r\n  dirdispl := FDirectionsDisplay;\r\n  map := GetMap;\r\n  tm := TravelModeStr(ATravelMode);\r\n  wp := TJSArray.New;\r\n  if WayPoints <> nil then\r\n  begin\r\n    for I := 0 to WayPoints.Count - 1 do\r\n      wp.Push(New(['location', WayPoints[I]]));\r\n  end;\r\n\r\n  asm\r\n    dirdispl.setMap(map);\r\n\r\n    dirsvc.route({\r\n          origin: Source,\r\n          destination: Destination,\r\n          waypoints: wp,\r\n          optimizeWaypoints: OptimizeWayPoints,\r\n          avoidHighways: AvoidHighways,\r\n          avoidTolls: AvoidTolls,\r\n          travelMode: tm\r\n        }, function(response, status) {\r\n          if (status === 'OK') {\r\n            dirdispl.setDirections(response);\r\n          } else {\r\n            window.alert('Directions request failed due to ' + status);\r\n          }\r\n        });\r\n  end;\r\nend;\r\n\r\nfunction TGoogleMaps.TravelModeStr(ATravelMode: TGoogleTravelMode): string;\r\nbegin\r\n  Result := 'DRIVING';\r\n  case ATravelMode of\r\n    tmDriving: Result := 'DRIVING';\r\n    tmWalking: Result := 'WALKING';\r\n    tmBicycling: Result := 'BICYCLING';\r\n    tmTransit: Result := 'TRANSIT';\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMaps.UpdateElement;\r\nvar\r\n  map: TJSHTMLElement;\r\n  id: string;\r\n  srcurl: string;\r\n  scriptsrc: string;\r\n  mapidstr: string;\r\n  mapbeta: string;\r\n  scr,scro: TJSElement;\r\n  sp: TJSHTMLElement;\r\n\r\nbegin\r\n  inherited;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  if FUpdateCount > 0 then\r\n    Exit;\r\n\r\n  if IsLinked and (csLoading in ComponentState) then\r\n    Exit;\r\n\r\n  if ((not FCode) and (FAPIKey <> '')) or (FAPIKey <> FOldAPIKey) then\r\n  begin\r\n    FCode := true;\r\n    id := GetID;\r\n    FOldAPIKey := FAPIKey;\r\n\r\n    scr := document.getElementById('scrgooglemaps');\r\n    if Assigned(scr) then\r\n    begin\r\n      document.head.removeChild(scr);\r\n    end;\r\n\r\n    scro := document.getElementById('scrogooglemaps');\r\n    if Assigned(scro) then\r\n    begin\r\n      document.head.removeChild(scro);\r\n    end;\r\n\r\n    if (MapRender = mrVector) and (MapID <> '') then\r\n      mapbeta := 'v=beta&';\r\n\r\n    mapidstr := '';\r\n    if MapID <> '' then\r\n      mapidstr := 'mapId:'''+MapID+''','+#13#10;\r\n\r\n    srcurl := 'https://maps.googleapis.com/maps/api/js?'+mapbeta+'key=' + FAPIKey + '&callback=initMap'+id;\r\n\r\n    scriptsrc := 'var gmapserror = false;'+#13#10+\r\n         'function initMap'+id+'() { '+#13#10+\r\n         'var el = document.getElementById(\"'+id+'\");'+#13#10+\r\n         'if (el == null) { alert(\"Google Maps DIV element not found!\"); return; }'+#13#10+\r\n         'map = new google.maps.Map(el, {'+#13#10+\r\n         'center: {lat: ' + StringReplace(FloatToStr(Options.DefaultLatitude), ',', '.', [rfReplaceAll]) + ', lng: ' + StringReplace(FloatToStr(Options.DefaultLongitude), ',', '.', [rfReplaceAll]) + '},'+#13#10+\r\n         mapidstr+\r\n         'zoom: ' + IntToStr(Options.DefaultZoomLevel) + '});'+#13#10+\r\n         'el.gMap = map;'+#13#10+\r\n         '}';\r\n\r\n    scr := document.createElement('script');\r\n    scr.addEventListener('load',@DoLoaded);\r\n    asm\r\n      scr.defer = true;\r\n      scr.async = true;\r\n      scr.src = srcurl;\r\n      scr.type = 'text/javascript';\r\n    end;\r\n\r\n    document.head.appendChild(scr);\r\n    scr['id'] := 'scrgooglemaps';\r\n\r\n    scro := document.createElement('script');\r\n    TJSHTMLElement(scro).innerHTML := scriptsrc;\r\n    document.head.appendChild(scro);\r\n    scro['id'] := 'scrogooglemaps';\r\n\r\n  end\r\n  else if Assigned(ElementHandle) then\r\n  begin\r\n    ElementHandle.style.setProperty('border', '1px solid gray');\r\n    ElementHandle.style.setProperty('background-color', '#eee');\r\n    if (ElementHandle.childElementCount = 0) then\r\n    begin\r\n      sp := TJSHTMLElement(document.createElement('SPAN'));\r\n\r\n      srcurl := '<br>Set the Google Maps JavaScript API key via WebGoogleMaps.APIKey in order to see the map.<br>'+\r\n                'Request the key via <a href=\"https://developers.google.com/maps/documentation/javascript/get-api-key\">this page</a>';\r\n      sp.innerHTML := srcurl;\r\n      ElementHandle.appendChild(sp);\r\n    end;\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\n{ TTwitterFeed }\r\n\r\nfunction TTwitterFeed.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('SPAN');\r\nend;\r\n\r\nprocedure TTwitterFeed.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  Width := 400;\r\n  Height := 300;\r\nend;\r\n\r\nprocedure TTwitterFeed.SetFeed(const Value: string);\r\nbegin\r\n  FFeed := Value;\r\n  FUpdatedFeed := false;\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TTwitterFeed.SetFeedLinkText(const Value: string);\r\nbegin\r\n  FFeedLinkText := Value;\r\n  UpdateElement;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TTwitterFeed.UpdateElement;\r\nvar\r\n  srcurl,img: string;\r\n  script: TJSElement;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementHandle) and not IsUpdating then\r\n  begin\r\n    srcurl := 'https://platform.twitter.com/widgets.js';\r\n\r\n    script := document.getElementById(TWITTERSCRIPTID);\r\n\r\n    if not Assigned(script) then\r\n    begin\r\n      script := document.createElement('script');\r\n      script['id'] := TWITTERSCRIPTID;\r\n      asm\r\n        script.async = true;\r\n      end;\r\n      script['type'] := 'text/javascript';\r\n      script['charset'] := 'utf-8';\r\n      script['src'] := srcurl;\r\n      document.head.appendChild(script);\r\n    end;\r\n  end;\r\n\r\n  if Assigned(ElementHandle) and not IsUpdating and not FUpdatedFeed then\r\n  begin\r\n    if (Feed <> '') and not (csDesigning in ComponentState) then\r\n    begin\r\n      srcurl := '<a class=\"twitter-timeline\" href=\"https://twitter.com/' + Feed +'\" data-chrome=\"nofooter noborders\">'+ FeedLinkText + '</a>';\r\n\r\n      BorderStyle := bsNone;\r\n      ElementHandle.innerHTML := srcurl;\r\n      asm\r\n        if (typeof twttr !== 'undefined') {\r\n          twttr.widgets.load() }\r\n      end;\r\n      FUpdatedFeed := true;\r\n    end\r\n    else\r\n    begin\r\n      img := 'data:image/svg+xml;base64,PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiPz4NCjxzdmcgeG1sbnM9Imh0dHA6Ly93d3cudzMub3JnLzIwMDAvc3ZnIg0KICAgd2lkdGg9IjMwMCINCiAgIGhlaWdodD0iMzAwIj4NCjxwYX'+\r\n             'RoIGQ9Im0gMjUwLDg3Ljk3NCBjIC03LjM1OCwzLjI2NCAtMTUuMjY3LDUuNDY5IC0yMy41NjYsNi40NjEgOC40NzEsLTUuMDc4IDE0Ljk3OCwtMTMuMTE5IDE4LjA0MSwtMjIuNzAxIC03LjkyOSw0LjcwMyAtMTYuNzEsOC4xMTcgLTI2LjA1Ny'+\r\n             'w5Ljk1NyAtNy40ODQsLTcuOTc1IC0xOC4xNDgsLTEyLjk1NyAtMjkuOTUsLTEyLjk1NyAtMjIuNjYsMCAtNDEuMDMzLDE4LjM3MSAtNDEuMDMzLDQxLjAzMSAwLDMuMjE2IDAuMzYzLDYuMzQ4IDEuMDYyLDkuMzUxIC0zNC4xMDIsLTEuNzExIC'+\r\n             '02NC4zMzYsLTE4LjA0NyAtODQuNTc0LC00Mi44NzIgLTMuNTMyLDYuMDYgLTUuNTU2LDEzLjEwOCAtNS41NTYsMjAuNjI4IDAsMTQuMjM2IDcuMjQ0LDI2Ljc5NSAxOC4yNTQsMzQuMTUzIC02LjcyNiwtMC4yMTMgLTEzLjA1MywtMi4wNTkgLT'+\r\n             'E4LjU4NSwtNS4xMzIgLTAuMDA0LDAuMTcxIC0wLjAwNCwwLjM0MyAtMC4wMDQsMC41MTYgMCwxOS44OCAxNC4xNDQsMzYuNDY0IDMyLjkxNSw0MC4yMzQgLTMuNDQzLDAuOTM4IC03LjA2OCwxLjQzOSAtMTAuODEsMS40MzkgLTIuNjQ0LDAgLT'+\r\n             'UuMjE0LC0wLjI1OCAtNy43MiwtMC43MzYgNS4yMjIsMTYuMzAxIDIwLjM3NSwyOC4xNjUgMzguMzMxLDI4LjQ5NSAtMTQuMDQzLDExLjAwNiAtMzEuNzM1LDE3LjU2NSAtNTAuOTYsMTcuNTY1IC0zLjMxMiwwIC02LjU3OCwtMC4xOTQgLTkuNz'+\r\n             'g4LC0wLjU3NCAxOC4xNTksMTEuNjQzIDM5LjcyNywxOC40MzcgNjIuODk5LDE4LjQzNyA3NS40NzMsMCAxMTYuNzQ2LC02Mi41MjQgMTE2Ljc0NiwtMTE2Ljc0NyAwLC0xLjc3OSAtMC4wNCwtMy41NDggLTAuMTE5LC01LjMwOSA4LjAxNywtNS'+\r\n             '43ODQgMTQuOTczLC0xMy4wMTEgMjAuNDc0LC0yMS4yMzkgeiIgc3R5bGU9ImZpbGw6IzNhYWFlMSIgLz4NCjwvc3ZnPg==';\r\n\r\n      RenderDesigning(ClassName, Container, Self, True, img);\r\n    end;\r\n  end;\r\n\r\n  if Assigned(ElementHandle)  then\r\n    ElementHandle.style.setProperty('overflow-y','auto');\r\nend;\r\n{$HINTS ON}\r\n\r\n{ TBrowserControl }\r\n\r\nprocedure TBrowserControl.BindEvents;\r\nvar\r\n  eh: TJSEventTarget;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementBindHandle) then\r\n  begin\r\n    eh := ElementBindHandle;\r\n    eh.addEventListener('load', FLoadPtr);\r\n  end;\r\nend;\r\n\r\nprocedure TBrowserControl.ClearMethodPointers;\r\nbegin\r\n  inherited;\r\n  FLoadPtr := nil;\r\nend;\r\n\r\nfunction TBrowserControl.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('IFRAME');\r\nend;\r\n\r\nprocedure TBrowserControl.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  Width := 400;\r\n  Height := 300;\r\nend;\r\n\r\n{$HINTS OFF}\r\nfunction TBrowserControl.CurrentURL: string;\r\nvar\r\n  url: string;\r\n  el: TJSElement;\r\nbegin\r\n  el := ElementHandle;\r\n\r\n  asm\r\n    url = el.contentWindow.location;\r\n  end;\r\n\r\n  Result := url;\r\nend;\r\n\r\nprocedure TBrowserControl.DoLoad(Event: TJSEvent);\r\nbegin\r\n  if Assigned(OnLoad) then\r\n    OnLoad(Self, Event);\r\nend;\r\n\r\nprocedure TBrowserControl.GetMethodPointers;\r\nbegin\r\n  inherited;\r\n  FLoadPtr := @DoLoad;\r\nend;\r\n\r\n{$HINTS ON}\r\n\r\nprocedure TBrowserControl.Navigate(const AURL: string);\r\nbegin\r\n  URL := AURL;\r\nend;\r\n\r\nprocedure TBrowserControl.SetReferrerPolicy(\r\n  const Value: TBrowserReferrerPolicy);\r\nbegin\r\n  FReferrerPolicy := Value;\r\n  UpdateElementVisual;\r\nend;\r\n\r\nprocedure TBrowserControl.SetSandbox(const Value: TBrowserSandboxTypes);\r\nbegin\r\n  FSandbox := Value;\r\n  UpdateElementVisual;\r\nend;\r\n\r\nprocedure TBrowserControl.SetURL(const Value: string);\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  FURL := Value;\r\n  el := ElementHandle;\r\n  el.setAttribute('src',Value);\r\nend;\r\n\r\nprocedure TBrowserControl.UnBindEvents;\r\nvar\r\n  eh: TJSEventTarget;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementBindHandle) then\r\n  begin\r\n    eh := ElementBindHandle;\r\n    eh.removeEventListener('load', FLoadPtr);\r\n  end;\r\nend;\r\n\r\nprocedure TBrowserControl.UpdateElementVisual;\r\nvar\r\n  SandboxStr: string;\r\n\r\n  procedure AppendStr(var s: string; appstr: string);\r\n  begin\r\n    if s = '' then\r\n      s := appstr\r\n    else\r\n      s := s + ' ' + appstr;\r\n  end;\r\n\r\nbegin\r\n  inherited;\r\n\r\n\r\n  if BorderStyle = bsSingle then\r\n    ElementHandle.style.setProperty('border','1px solid silver')\r\n  else\r\n    ElementHandle.style.setProperty('border','0px');\r\n\r\n  SandboxStr := '';\r\n\r\n  if stAllowForms in Sandbox then\r\n    AppendStr(SandboxStr, 'allow-forms');\r\n  if stAllowModals in Sandbox then\r\n    AppendStr(SandboxStr, 'allow-modals');\r\n  if stAllowOrientationLock in Sandbox then\r\n    AppendStr(SandboxStr, 'allow-orientation-lock');\r\n  if stAllowPointerLock in Sandbox then\r\n    AppendStr(SandboxStr, 'allow-pointer-lock');\r\n  if stAllowPopups in Sandbox then\r\n    AppendStr(SandboxStr, 'allow-popups');\r\n  if stAllowPopupsToEscapeSandbox in Sandbox then\r\n    AppendStr(SandboxStr, 'allow-popups-to-escape-sandbox');\r\n  if stAllowPresentation in Sandbox then\r\n    AppendStr(SandboxStr, 'allow-presentation');\r\n  if stAllowSameOrigin in Sandbox then\r\n    AppendStr(SandboxStr, 'allow-same-origin');\r\n  if stAllowScripts in  Sandbox then\r\n    AppendStr(SandboxStr, 'allow-scripts');\r\n  if stAllowTopNavigation in  Sandbox then\r\n    AppendStr(SandboxStr, 'allow-top-navigation');\r\n  if stAllowTopNavigationByUserActivation in  Sandbox then\r\n    AppendStr(SandboxStr, 'allow-top-navigation-by-user-activation');\r\n\r\n  if SandboxStr <> '' then\r\n  begin\r\n    ElementHandle.setAttribute('sandbox',SandboxStr);\r\n  end;\r\n\r\n  case ReferrerPolicy of\r\n    rfNoReferrer: ElementHandle.setAttribute('referrerpolicy','no-referrer');\r\n    rfNoReferrerWhenDowngrade: ElementHandle.setAttribute('referrerpolicy','no-referrer-when-downgrade');\r\n    rfOrigin: ElementHandle.setAttribute('referrerpolicy','origin');\r\n    rfOriginWhenCrossOrigin: ElementHandle.setAttribute('referrerpolicy','origin-when-cross-origin');\r\n    rfUnsafeUrl: ElementHandle.setAttribute('referrerpolicy','unsafe-url');\r\n  end;\r\nend;\r\n\r\n{ TGoogleDrive }\r\n\r\nfunction TGoogleDrive.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('DIV');\r\n  FFrameHandle := document.createElement('IFRAME');\r\n  Result.appendChild(FFrameHandle);\r\n  FFrameHandle.setAttribute('frameborder','0');\r\nend;\r\n\r\nprocedure TGoogleDrive.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  Width := 400;\r\n  Height := 300;\r\nend;\r\n\r\nprocedure TGoogleDrive.SetFolderID(const Value: string);\r\nbegin\r\n  if (FFolderID <> Value) then\r\n  begin\r\n    FFolderID := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleDrive.SetView(const Value: TDriveView);\r\nbegin\r\n  if (FView <> Value) then\r\n  begin\r\n    FView := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleDrive.UpdateElement;\r\nvar\r\n  vs,img: string;\r\nbegin\r\n  inherited;\r\n\r\n  case View of\r\n  dvList: vs := 'list';\r\n  dvGrid: vs := 'grid';\r\n  end;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    if FolderID <> '' then\r\n    begin\r\n      FFrameHandle.setAttribute('src','https://drive.google.com/embeddedfolderview?id='+ FolderID + '&embedded=true#' + vs);\r\n      TJSHTMLElement(FFrameHandle).style.setProperty('border','0');\r\n    end\r\n    else\r\n//      if (csDesigning in ComponentState) then\r\n      begin\r\n        img := 'data:image/svg+xml;base64,PD94bWwgdmVyc2lvbj0iMS4wIiA/PjwhRE9DVFlQRSBzdmcgIFBVQkxJQyAnLS8vVzNDLy9EVEQgU1ZHIDEuMS8vRU4nICAnaHR0cDovL3d3dy53My5vcmcvR3JhcGhpY3MvU1ZHLzEuMS9EVEQvc3ZnMTEuZHRkJz48c3ZnIGV'+\r\n               'uYWJsZS1iYWNrZ3JvdW5kPSJuZXcgMCAwIDEyOCAxMjgiIGlkPSJTb2NpYWxfSWNvbnMiIHZlcnNpb249IjEuMSIgdmlld0JveD0iMCAwIDEyOCAxMjgiIHhtbDpzcGFjZT0icHJlc2VydmUiIHhtbG5zPSJodHRwOi8vd3d3LnczLm9yZy8yMDAwL3N2ZyIgeG1s'+\r\n               'bnM6eGxpbms9Imh0dHA6Ly93d3cudzMub3JnLzE5OTkveGxpbmsiPjxnIGlkPSJfeDMzX19zdHJva2UiPjxnIGlkPSJHb29nbGVfRHJpdmUiPjxyZWN0IGNsaXAtcnVsZT0iZXZlbm9kZCIgZmlsbD0ibm9uZSIgZmlsbC1ydWxlPSJldmVub2RkIiBoZWlnaHQ9I'+\r\n               'jEyOCIgd2lkdGg9IjEyOCIvPjxnIGlkPSJHb29nbGVfRHJpdmVfMV8iPjxwb2x5Z29uIGNsaXAtcnVsZT0iZXZlbm9kZCIgZmlsbD0iIzM3NzdFMyIgZmlsbC1ydWxlPSJldmVub2RkIiBwb2ludHM9IjIxLjMzNSwxMjAgNDIuNjY2LDgyLjY2NyAxMjgsODIuNj'+\r\n               'Y3IDEwNi42NjYsMTIwICAgICAgICAgIi8+PHBvbHlnb24gY2xpcC1ydWxlPSJldmVub2RkIiBmaWxsPSIjRkZDRjYzIiBmaWxsLXJ1bGU9ImV2ZW5vZGQiIHBvaW50cz0iODUuMzM1LDgyLjY2NyAxMjgsODIuNjY3IDg1LjMzNSw4IDQyLjY2Niw4ICAgICIvPjx'+\r\n               'wb2x5Z29uIGNsaXAtcnVsZT0iZXZlbm9kZCIgZmlsbD0iIzExQTg2MSIgZmlsbC1ydWxlPSJldmVub2RkIiBwb2ludHM9IjAsODIuNjY3IDIxLjMzNSwxMjAgNjQsNDUuMzMzIDQyLjY2Niw4ICAgICIvPjwvZz48L2c+PC9nPjwvc3ZnPg==';\r\n\r\n        RenderDesigning(ClassName, Container, Self, True, Img);\r\n      end;\r\n  end;\r\nend;\r\n\r\n\r\n{ THTMLDiv }\r\n\r\nfunction THTMLDiv.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('DIV');\r\nend;\r\n\r\nprocedure THTMLDiv.CreateInitialize;\r\nbegin\r\n  FHTML := TStringList.Create;\r\n  FHTML.SkipLastLineBreak := true;\r\n  (FHTML as TStringList).OnChange := HTMLChanged;\r\n\r\n  inherited;\r\n\r\n  ControlStyle := ControlStyle + [csAcceptsControls];\r\n  ClipChildren := false;\r\n  TabStop := false;\r\n\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Width := 240;\r\n    Height := 160;\r\n  end;\r\nend;\r\n\r\ndestructor THTMLDiv.Destroy;\r\nbegin\r\n  FHTML.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure THTMLDiv.HTMLChanged(Sender: TObject);\r\nbegin\r\n  UpdateElementData;\r\nend;\r\n\r\nprocedure THTMLDiv.SetHTML(const Value: TStrings);\r\nbegin\r\n  FHTML.Assign(Value);\r\nend;\r\n\r\nprocedure THTMLDiv.UpdateElementData;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    if (FOldText <> '') or (FHTML.Text <> '') then\r\n      ElementHandle.innerHTML := FHTML.Text;\r\n    FOldText := FHTML.Text;\r\n  end\r\n  else\r\n  begin\r\n    if not IsLinked and (csDesigning in ComponentState) then\r\n      RenderDesigning(ClassName, Container, Self, True);\r\n  end;\r\nend;\r\n\r\n{ THTMLSpan }\r\n\r\nfunction THTMLSpan.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('SPAN');\r\nend;\r\n\r\nprocedure THTMLSpan.CreateInitialize;\r\nbegin\r\n  FHTML := TStringList.Create;\r\n  (FHTML as TStringList).OnChange := HTMLChanged;\r\n\r\n  inherited;\r\n\r\n  ControlStyle := ControlStyle + [csAcceptsControls];\r\n  TabStop := false;\r\n  ClipChildren := false;\r\n\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Width := 240;\r\n    Height := 160;\r\n  end;\r\nend;\r\n\r\ndestructor THTMLSpan.Destroy;\r\nbegin\r\n  FHTML.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure THTMLSpan.HTMLChanged(Sender: TObject);\r\nbegin\r\n  UpdateElementData;\r\nend;\r\n\r\nprocedure THTMLSpan.SetHTML(const Value: TStrings);\r\nbegin\r\n  FHTML.Assign(Value);\r\nend;\r\n\r\nprocedure THTMLSpan.UpdateElementData;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    if (FOldText <> '') or (FHTML.Text <> '') then\r\n      ElementHandle.innerHTML := FHTML.Text;\r\n    FOldText := FHTML.Text;\r\n  end\r\n  else\r\n  begin\r\n    if not IsLinked and (csDesigning in ComponentState) then\r\n      RenderDesigning(ClassName, Container, Self, True);\r\n  end;\r\nend;\r\n\r\n{ THTMLAnchor }\r\n\r\nfunction THTMLAnchor.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('A');\r\nend;\r\n\r\nprocedure THTMLAnchor.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  Caption := 'WebHTMLAnchor';\r\nend;\r\n\r\nfunction THTMLAnchor.HandleDoClick(Event: TJSMouseEvent): Boolean;\r\nbegin\r\n  if Assigned(OnClick) then\r\n  begin\r\n    Event.preventDefault();\r\n    StopPropagation;\r\n    Result := false;\r\n    OnClick(Self);\r\n  end\r\n  else\r\n    Result := inherited;\r\nend;\r\n\r\nprocedure THTMLAnchor.SetCaption(const Value: string);\r\nbegin\r\n  inherited SetCaption(Value);\r\n  UpdateElementData;\r\nend;\r\n\r\nprocedure THTMLAnchor.SetHref(const Value: string);\r\nbegin\r\n  FHref := Value;\r\n  UpdateElementData;\r\nend;\r\n\r\nprocedure THTMLAnchor.SetTarget(const Value: string);\r\nbegin\r\n  FTarget := Value;\r\n  UpdateElementData;\r\nend;\r\n\r\nprocedure THTMLAnchor.UpdateElementData;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    if Caption <> '' then\r\n     ElementHandle.innerHTML := Caption;\r\n    ElementHandle.setAttribute('href', FHref);\r\n    ElementHandle.setAttribute('target', FTarget);\r\n  end;\r\nend;\r\n\r\n{ TURLValidator }\r\n\r\nprocedure TURLValidator.HandleResult(IsValid: boolean);\r\nbegin\r\n  if Assigned(OnValidated) then\r\n    OnValidated(Self, IsValid);\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TURLValidator.Validate;\r\nvar\r\n  s: string;\r\n  ptr: pointer;\r\nbegin\r\n  s := URL;\r\n  ptr := @HandleResult;\r\n  asm\r\n    var request = new XMLHttpRequest();\r\n    request.open('GET', s, true);\r\n    request.onreadystatechange = function(){\r\n       if (request.readyState === 4){\r\n           ptr(request.status === 200);\r\n           }\r\n    };\r\n    request.send();\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\n{ TGoogleMapsOptions }\r\n\r\nprocedure TGoogleMapsOptions.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  FCustomStyle := (Source as TGoogleMapsOptions).CustomStyle;\r\n  FMapStyle := (Source as TGoogleMapsOptions).MapStyle;\r\n  FDefaultLatitude := (Source as TGoogleMapsOptions).DefaultLatitude;\r\n  FDefaultLongitude := (Source as TGoogleMapsOptions).DefaultLongitude;\r\n  FDefaultZoomLevel := (Source as TGoogleMapsOptions).DefaultZoomLevel;\r\nend;\r\n\r\nconstructor TGoogleMapsOptions.Create(AGoogleMaps: TGoogleMaps);\r\nbegin\r\n  inherited Create;\r\n  FCustomStyle := TStringList.Create;\r\n  FMapStyle := mstDefault;\r\n  FDefaultLatitude := -34.397;\r\n  FDefaultLongitude := 150.644;\r\n  FDefaultZoomLevel := 8;\r\n  FOwner := AGoogleMaps;\r\nend;\r\n\r\ndestructor TGoogleMapsOptions.Destroy;\r\nbegin\r\n  FCustomStyle.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TGoogleMapsOptions.SetCustomStyle(const Value: TStringList);\r\nbegin\r\n  FCustomStyle.Assign(Value);\r\nend;\r\n\r\nprocedure TGoogleMapsOptions.SetDefaultLatitude(const Value: Double);\r\nbegin\r\n  if FDefaultLatitude <> Value then\r\n  begin\r\n    FDefaultLatitude := Value;\r\n    FOwner.UpdateElement;\r\n    FOwner.PanTo(DefaultLatitude, DefaultLongitude);\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMapsOptions.SetDefaultLongitude(const Value: Double);\r\nbegin\r\n  if FDefaultLongitude <> Value then\r\n  begin\r\n    FDefaultLongitude := Value;\r\n    FOwner.UpdateElement;\r\n    FOwner.PanTo(DefaultLatitude, DefaultLongitude);\r\n  end;\r\nend;\r\n\r\nprocedure TGoogleMapsOptions.SetDefaultZoomLevel(const Value: Integer);\r\nbegin\r\n  if (FDefaultZoomLevel <> Value) and (Value >= 0) and (Value <= 21) then\r\n  begin\r\n    FDefaultZoomLevel := Value;\r\n    FOwner.UpdateElement;\r\n    FOwner.SetZoom(Value);\r\n  end;\r\nend;\r\n\r\n\r\n{$HINTS OFF}\r\nprocedure TGoogleMapsOptions.SetMapStyle(const Value: TGoogleMapStyle);\r\nvar\r\n  map: TJSHTMLElement;\r\n  cstyle: string;\r\n  ostyle: TJSObject;\r\nbegin\r\n  FMapStyle := Value;\r\n  map := FOwner.GetMap;\r\n\r\n  if not Assigned(map) then\r\n    Exit;\r\n\r\n  if FMapStyle = mstNightMode then\r\n  begin\r\n    asm\r\n      var myStyle =\r\n      [\r\n        {\r\n          \"elementType\": \"geometry\",\r\n          \"stylers\": [\r\n            {\r\n              \"color\": \"#242f3e\"\r\n            }\r\n          ]\r\n        },\r\n        {\r\n          \"elementType\": \"labels.text.fill\",\r\n          \"stylers\": [\r\n            {\r\n              \"color\": \"#746855\"\r\n            }\r\n          ]\r\n        },\r\n        {\r\n          \"elementType\": \"labels.text.stroke\",\r\n          \"stylers\": [\r\n            {\r\n              \"color\": \"#242f3e\"\r\n            }\r\n          ]\r\n        },\r\n        {\r\n          \"featureType\": \"administrative.locality\",\r\n          \"elementType\": \"labels.text.fill\",\r\n          \"stylers\": [\r\n            {\r\n              \"color\": \"#d59563\"\r\n            }\r\n          ]\r\n        },\r\n        {\r\n          \"featureType\": \"poi\",\r\n          \"elementType\": \"labels.text.fill\",\r\n          \"stylers\": [\r\n            {\r\n              \"color\": \"#d59563\"\r\n            }\r\n          ]\r\n        },\r\n        {\r\n          \"featureType\": \"poi.park\",\r\n          \"elementType\": \"geometry\",\r\n          \"stylers\": [\r\n            {\r\n              \"color\": \"#263c3f\"\r\n            }\r\n          ]\r\n        },\r\n        {\r\n          \"featureType\": \"poi.park\",\r\n          \"elementType\": \"labels.text.fill\",\r\n          \"stylers\": [\r\n            {\r\n              \"color\": \"#6b9a76\"\r\n            }\r\n          ]\r\n        },\r\n        {\r\n          \"featureType\": \"road\",\r\n          \"elementType\": \"geometry\",\r\n          \"stylers\": [\r\n            {\r\n              \"color\": \"#38414e\"\r\n            }\r\n          ]\r\n        },\r\n        {\r\n          \"featureType\": \"road\",\r\n          \"elementType\": \"geometry.stroke\",\r\n          \"stylers\": [\r\n            {\r\n              \"color\": \"#212a37\"\r\n            }\r\n          ]\r\n        },\r\n        {\r\n          \"featureType\": \"road\",\r\n          \"elementType\": \"labels.text.fill\",\r\n          \"stylers\": [\r\n            {\r\n              \"color\": \"#9ca5b3\"\r\n            }\r\n          ]\r\n        },\r\n        {\r\n          \"featureType\": \"road.highway\",\r\n          \"elementType\": \"geometry\",\r\n          \"stylers\": [\r\n            {\r\n              \"color\": \"#746855\"\r\n            }\r\n          ]\r\n        },\r\n        {\r\n          \"featureType\": \"road.highway\",\r\n          \"elementType\": \"geometry.stroke\",\r\n          \"stylers\": [\r\n            {\r\n              \"color\": \"#1f2835\"\r\n            }\r\n          ]\r\n        },\r\n        {\r\n          \"featureType\": \"road.highway\",\r\n          \"elementType\": \"labels.text.fill\",\r\n          \"stylers\": [\r\n            {\r\n              \"color\": \"#f3d19c\"\r\n            }\r\n          ]\r\n        },\r\n        {\r\n          \"featureType\": \"transit\",\r\n          \"elementType\": \"geometry\",\r\n          \"stylers\": [\r\n            {\r\n              \"color\": \"#2f3948\"\r\n            }\r\n          ]\r\n        },\r\n        {\r\n          \"featureType\": \"transit.station\",\r\n          \"elementType\": \"labels.text.fill\",\r\n          \"stylers\": [\r\n            {\r\n              \"color\": \"#d59563\"\r\n            }\r\n          ]\r\n        },\r\n        {\r\n          \"featureType\": \"water\",\r\n          \"elementType\": \"geometry\",\r\n          \"stylers\": [\r\n            {\r\n              \"color\": \"#17263c\"\r\n            }\r\n          ]\r\n        },\r\n        {\r\n          \"featureType\": \"water\",\r\n          \"elementType\": \"labels.text.fill\",\r\n          \"stylers\": [\r\n            {\r\n              \"color\": \"#515c6d\"\r\n            }\r\n          ]\r\n        },\r\n        {\r\n          \"featureType\": \"water\",\r\n          \"elementType\": \"labels.text.stroke\",\r\n          \"stylers\": [\r\n            {\r\n              \"color\": \"#17263c\"\r\n            }\r\n          ]\r\n        }\r\n      ];\r\n\r\n      map.setOptions({styles: myStyle});\r\n    end;\r\n  end\r\n  else if (FMapStyle = mstCustom) and (CustomStyle.Text <> '') then\r\n  begin\r\n    cstyle := CustomStyle.Text;\r\n    try\r\n      ostyle := TJSObject(TJSJSON.Parse(cstyle));\r\n      asm\r\n        map.setOptions({styles: ostyle});\r\n      end;\r\n    except\r\n\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    asm\r\n      map.setOptions({styles: []});\r\n    end;\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\n\r\n\r\n{ TShare }\r\n\r\nfunction TShare.CanShareFiles: boolean;\r\nvar\r\n  res: boolean;\r\nbegin\r\n  res := false;\r\n  asm\r\n    if (navigator.share) {\r\n    try\r\n    {\r\n      res = navigator.canShare;\r\n    }\r\n    catch(err)\r\n    {\r\n    }\r\n    }\r\n  end;\r\n  Result := res;\r\nend;\r\n\r\nfunction TShare.Share(ATitle, AText, AURL: string): boolean;\r\nvar\r\n  res: boolean;\r\nbegin\r\n  res := false;\r\n  asm\r\n    if (navigator.share) {\r\n      res = true;\r\n      navigator.share({\r\n        title: ATitle,\r\n        text: AText,\r\n        url: AURL });\r\n    }\r\n  end;\r\n  Result := res;\r\nend;\r\n\r\nfunction TShare.Execute: boolean;\r\nbegin\r\n  Result := Share(FTitle, FText, FURL);\r\nend;\r\n\r\nfunction TShare.Share(ATitle, AText, AURL: string; AFiles: TJSHTMLFileArray): boolean;\r\nvar\r\n  res: boolean;\r\nbegin\r\n  res := false;\r\n\r\n  asm\r\n  if (navigator.canShare && navigator.canShare({ files: AFiles })) {\r\n    res = true;\r\n    navigator.share({\r\n    files: AFiles,\r\n    title: ATitle,\r\n    text: AText });\r\n   }\r\n  end;\r\n  Result := res;\r\nend;\r\n\r\n{ TDeviceOrientation }\r\n\r\n{$HINTS OFF}\r\nfunction TDeviceOrientation.DoHandleOrientationEvent(e: TJSEvent): boolean;\r\nvar\r\n  s: double;\r\n  compass: JSValue;\r\nbegin\r\n  s := 0.0;\r\n  asm\r\n    compass = e.webkitCompassHeading || Math.abs(e.alpha - 360);\r\n    var d = 0.0;\r\n    s = d + compass;\r\n  end;\r\n\r\n  if Assigned(OnHeadingChange) then\r\n    OnHeadingChange(Self, s);\r\nend;\r\n\r\nfunction TDeviceOrientation.Enabled: boolean;\r\nbegin\r\n  asm\r\n    Result = window.DeviceOrientationEvent != null;\r\n  end;\r\nend;\r\n\r\nprocedure TDeviceOrientation.Start;\r\nvar\r\n  os: TOperatingSystem;\r\n  ptr: pointer;\r\n\r\n  procedure HandleDeny;\r\n  begin\r\n    if Assigned(OnError) then\r\n      OnError(Self, oeDenied);\r\n  end;\r\n\r\n  procedure HandleError;\r\n  begin\r\n    if Assigned(OnError) then\r\n      OnError(Self, oeNotSupported);\r\n  end;\r\n\r\n  procedure HandleSuccess;\r\n  begin\r\n    FStarted := true;\r\n    if Assigned(OnInitialized) then\r\n      OnInitialized(Self);\r\n  end;\r\n\r\nbegin\r\n  os := GetOperatingSystem;\r\n\r\n  FOrientationPtr := @DoHandleOrientationEvent;\r\n\r\n  ptr := FOrientationPtr;\r\n\r\n  if (os in [osiOS,osmacOS]) then\r\n  begin\r\n    asm\r\n      if (DeviceOrientationEvent==null) return;\r\n      if (DeviceOrientationEvent.requestPermission==null) return;\r\n\r\n      DeviceOrientationEvent.requestPermission().then((response) => {\r\n        if (response === \"granted\") {\r\n          window.addEventListener(\"deviceorientation\", ptr, true);\r\n          HandleSuccess();\r\n        } else {\r\n          HandleDeny();\r\n        }\r\n      })\r\n      .catch(() => HandleError());\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    asm\r\n      window.addEventListener(\"deviceorientationabsolute\", ptr, true);\r\n      HandleSuccess();\r\n    end;\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\n\r\n{ TWebSpeechSynthesis }\r\n\r\nprocedure TSpeechSynthesis.Cancel;\r\nbegin\r\n  asm\r\n    window.speechSynthesis.cancel();\r\n  end;\r\nend;\r\n\r\nconstructor TSpeechSynthesis.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FVolume := 1;\r\n  FRate := 1;\r\n  FPitch := 1;\r\n  FVoices := TStringList.Create;\r\n\r\n  if Supported then\r\n    GetVoices;\r\nend;\r\n\r\ndestructor TSpeechSynthesis.Destroy;\r\nbegin\r\n  FVoices.Free;\r\n  inherited;\r\nend;\r\n\r\n{$HINTS OFF}\r\n\r\nfunction TSpeechSynthesis.GetVoices: TStrings;\r\nvar\r\n  sl: TStrings;\r\n\r\n  procedure VoicesReady;\r\n  begin\r\n    if Assigned(OnVoicesReady) then\r\n      OnVoicesReady(Self);\r\n  end;\r\n\r\nbegin\r\n  sl := FVoices;\r\n\r\n  if (1<0) then\r\n    VoicesReady;\r\n\r\n  asm\r\n    function populateVoiceList()\r\n    {\r\n    \tvar voices = speechSynthesis.getVoices();\r\n      // console.log(voices);\r\n      // Loop through each of the voices.\r\n     \tvoices.forEach(function(voice, i) {\r\n        sl.Add(voice.name);\r\n        //console.log(voice.name);\r\n    \t});\r\n      if (voices.length > 0) { VoicesReady(); }\r\n\r\n   }\r\n   populateVoiceList();\r\n   if (window.speechSynthesis.onvoiceschanged !== undefined) {\r\n     speechSynthesis.onvoiceschanged = populateVoiceList;\r\n   }\r\n  end;\r\nend;\r\n\r\nfunction TSpeechSynthesis.IsSpeaking: boolean;\r\nvar\r\n  res: boolean;\r\nbegin\r\n  asm\r\n    res = window.speechSynthesis.speaking;\r\n  end;\r\n\r\n  Result := res;\r\nend;\r\n\r\nprocedure TSpeechSynthesis.SetPitch(const Value: single);\r\nbegin\r\n  if (Value >=0) and (Value <= 10) then\r\n    FPitch := Value;\r\nend;\r\n\r\nprocedure TSpeechSynthesis.SetRate(const Value: single);\r\nbegin\r\n  if (Value >= 0) and (Value <= 2) then\r\n   FRate := Value;\r\nend;\r\n\r\nprocedure TSpeechSynthesis.SetVoice(const Value: string);\r\nbegin\r\n  FVoice := Value;\r\nend;\r\n\r\nprocedure TSpeechSynthesis.SetVolume(const Value: single);\r\nbegin\r\n  if (Value >= 0) and (Value <= 1) then\r\n    FVolume := Value;\r\nend;\r\n\r\nprocedure TSpeechSynthesis.Speak(AText: string);\r\nvar\r\n  v,r,p: single;\r\n  avoice: string;\r\nbegin\r\n  v := FVolume;\r\n  r := FRate;\r\n  p := FPitch;\r\n  avoice := FVoice;\r\n  asm\r\n    // Create a new instance of SpeechSynthesisUtterance.\r\n  \tvar msg = new SpeechSynthesisUtterance();\r\n\r\n    // Set the text.\r\n  \tmsg.text = AText;\r\n\r\n    // Set the attributes.\r\n\t  msg.volume = v;\r\n  \tmsg.rate = r;\r\n  \tmsg.pitch = p;\r\n\r\n    // If a voice has been selected, find the voice and set the\r\n    // utterance instance's voice attribute.\r\n  \tif (avoice != \"\") {\r\n  \t\tmsg.voice = speechSynthesis.getVoices().filter(function(voice) { return voice.name == avoice; })[0];\r\n  \t}\r\n\r\n    // Queue this utterance.\r\n\t  window.speechSynthesis.speak(msg);\r\n  end;\r\nend;\r\n\r\nfunction TSpeechSynthesis.Supported: boolean;\r\nvar\r\n  res: boolean;\r\nbegin\r\n  res := false;\r\n  asm\r\n    if ('speechSynthesis' in window) { res = true; }\r\n  end;\r\n  Result := res;\r\nend;\r\n{$HINTS ON}\r\n\r\n{ TConsoleLog }\r\n\r\nprocedure TConsoleLog.Clear;\r\nbegin\r\n  FLog.innerHTML := '';\r\nend;\r\n\r\n{$HINTS OFF}\r\nfunction TConsoleLog.CreateElement: TJSElement;\r\nvar\r\n  el,ellog: TJSHTMLElement;\r\n  LAutoScroll: boolean;\r\nbegin\r\n  LAutoScroll := FAutoScroll;\r\n  el := TJSHTMLElement(document.createElement('DIV'));\r\n  ellog := TJSHTMLElement(document.createElement('PRE'));\r\n  el.appendChild(ellog);\r\n\r\n  Result := el;\r\n  FLog := ellog;\r\n\r\n  if (csDesigning in ComponentState) then\r\n    Exit;\r\n\r\n  AddControlStyle(\r\n    '.log-warn { color: orange }'+CRLF+\r\n    '.log-error { color: red }'+CRLF+\r\n    '.log-info { color: skyblue }'+CRLF+\r\n    '.log-log { color: silver }'+CRLF+\r\n    '.log-warn, .log-error { font-weight: bold; }'\r\n  );\r\n\r\n  AddControlScriptSource(\r\n  '    function unfixLoggingFunc(name) {' + CRLF +\r\n  '        console[name] = console[\"old\" + name];' + CRLF +\r\n  ' }'+CRLF+\r\n  'function unwireLogging() {' + CRLF +\r\n  '    unfixLoggingFunc(\"log\");' + CRLF +\r\n  '    unfixLoggingFunc(\"debug\");' + CRLF +\r\n  '    unfixLoggingFunc(\"warn\");' + CRLF +\r\n  '    unfixLoggingFunc(\"error\");' + CRLF +\r\n  '    unfixLoggingFunc(\"info\");' + CRLF +\r\n  '}' + CRLF +\r\n  'function rewireLoggingToElement(eleLocator, eleOverflowLocator, autoScroll) {' + CRLF +\r\n  '    fixLoggingFunc(\"log\");' + CRLF +\r\n  '    fixLoggingFunc(\"debug\");' + CRLF +\r\n  '    fixLoggingFunc(\"warn\");' + CRLF +\r\n  '    fixLoggingFunc(\"error\");' + CRLF +\r\n  '    fixLoggingFunc(\"info\");' + CRLF +\r\n  '' + CRLF +\r\n  '    function fixLoggingFunc(name) {' + CRLF +\r\n  '        console[\"old\" + name] = console[name];' + CRLF +\r\n  '        console[name] = function(...arguments) {' + CRLF +\r\n  '            const output = produceOutput(name, arguments);' + CRLF +\r\n  '            const eleLog = eleLocator;' + CRLF +\r\n  '' + CRLF +\r\n  '            if (autoScroll) {' + CRLF +\r\n  '                const eleContainerLog = eleOverflowLocator;' + CRLF +\r\n  '                const isScrolledToBottom = eleContainerLog.scrollHeight - eleContainerLog.clientHeight <= eleContainerLog.scrollTop + 1;' + CRLF +\r\n  '                eleLog.innerHTML += output + \"<br>\";' + CRLF +\r\n  '                if (isScrolledToBottom) {' + CRLF +\r\n  '                    eleContainerLog.scrollTop = eleContainerLog.scrollHeight - eleContainerLog.clientHeight;' + CRLF +\r\n  '                }' + CRLF +\r\n  '            } else {' + CRLF +\r\n  '                eleLog.innerHTML += output + \"<br>\";' + CRLF +\r\n  '            }' + CRLF +\r\n  '' + CRLF +\r\n  '            console[\"old\" + name].apply(undefined, arguments);' + CRLF +\r\n  '        };' + CRLF +\r\n  '    }' + CRLF +\r\n  '' + CRLF +\r\n  '   function produceOutput(name, args) {' + CRLF +\r\n  '       return args.reduce((output, arg) => {' + CRLF +\r\n  '            return output +' + CRLF +\r\n  '                \"<span class=\\\"log-\" + (typeof arg) + \" log-\" + name + \"\\\">\" +' + CRLF +\r\n  '                    (typeof arg === \"object\" && (JSON || {}).stringify ? JSON.stringify(arg) : arg) +' + CRLF +\r\n  '                \"</span>&nbsp;\";' + CRLF +\r\n  '        }, \"\");' + CRLF +\r\n  '    }' + CRLF +\r\n  '}'\r\n  );\r\n\r\n  asm\r\n    rewireLoggingToElement(ellog, el, LAutoScroll);\r\n  end;\r\n\r\n  FInit := true;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TConsoleLog.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FAutoScroll := true;\r\nend;\r\n\r\ndestructor TConsoleLog.Destroy;\r\nbegin\r\n  if FInit then\r\n  begin\r\n    asm\r\n      unwireLogging();\r\n    end;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TConsoleLog.UpdateElement;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementHandle) then\r\n    ElementHandle.style.setProperty('overflow','auto');\r\nend;\r\n\r\n{ TLeafletMaps }\r\n\r\n{$HINTS OFF}\r\nprocedure TLeafletMaps.AddCircle(Lat, Lon: double; Radius: Integer; AFillColor,\r\n  AStrokeColor: TColor; AWidth: Integer; AOpacity: double);\r\nvar\r\n  fillcolor,strokecolor: string;\r\n  circle: JSValue;\r\nbegin\r\n  fillcolor := ColorToHTML(AFillColor);\r\n  strokecolor := ColorToHTML(AStrokeColor);\r\n\r\n  asm\r\n    var center = [Lat, Lon];\r\n    // Create and add the rectangle to the map\r\n    circle = L.circle(center, {radius: Radius, color: strokecolor, weight: AWidth, fillcolor: fillcolor, fillopacity: AOpacity}).addTo(this.FMapObject);\r\n  end;\r\n  FCircles.Add(circle);\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TLeafletMaps.AddMarker(Lat, Lon: Double; ID: string = ''; Title: string = ''; Popup: string = '');\r\nbegin\r\n  if Assigned(FMarkergroup) then\r\n  begin\r\n\r\n  asm\r\n    var mrkr = L.marker([Lat, Lon]).addTo(this.FMarkerGroup);\r\n    // Optionally, you can add a popup to the marker\r\n    if (Title != \"\") {\r\n      mrkr.bindTooltip(Title); }\r\n    if (Popup != \"\") {\r\n      mrkr.bindPopup(Title); }\r\n    mrkr.myCustomId = ID;\r\n    mrkr.on('click', this.FMarkerClickPtr);\r\n  end;\r\n  end;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TLeafletMaps.AddPolygon(Points: TJSArray; AFillColor,\r\n  AStrokeColor: TColor; AWidth: Integer; AOpacity: Double);\r\nvar\r\n  Fillcolor,Strokecolor: string;\r\n  poly: JSValue;\r\nbegin\r\n  Strokecolor := ColorToHTML(AStrokeColor);\r\n  Fillcolor := ColorToHTML(AFillColor);\r\n  asm\r\n    poly = L.polygon(Points, {color: Strokecolor, fillcolor: Fillcolor, fillopacity: AOpacity, weight: AWidth}).addTo(this.FMapObject);\r\n  end;\r\n  FPolygons.Add(poly);\r\nend;\r\n\r\nprocedure TLeafletMaps.AddPolyLine(Points: TJSArray; AColor: TColor;\r\n  AWidth: integer; AOpacity: Double);\r\nvar\r\n  strokecolor: string;\r\n  polyline: JSValue;\r\nbegin\r\n  strokecolor := ColorToHTML(AColor);\r\n  asm\r\n    polyline = L.polyline(Points, {color: strokecolor, weight: AWidth}).addTo(this.FMapObject);\r\n  end;\r\n  FPolylines.Add(polyline);\r\nend;\r\n\r\nprocedure TLeafletMaps.AddRectangle(NorthEastLat, NorthEastLon, SouthWestLat,\r\n  SouthWestLon: double; AFillColor, AStrokeColor: TColor; AWidth: integer;\r\n  AOpacity: double);\r\nvar\r\n  Fillcolor,Strokecolor: string;\r\n  rect: JSValue;\r\nbegin\r\n  Fillcolor := ColorToHTML(AFillColor);\r\n  Strokecolor := ColorToHTML(AStrokeColor);\r\n  asm\r\n    var bounds = [[NorthEastLat, NorthEastLon], [SouthWestLat, SouthWestLon]];\r\n    // Create and add the rectangle to the map\r\n    rect = L.rectangle(bounds, {color: Strokecolor, weight: AWidth, fillcolor: Fillcolor, fillopacity: AOpacity}).addTo(this.FMapObject);\r\n  end;\r\n  FRectangles.Add(rect);\r\nend;\r\n{$HINTS OFF}\r\n\r\nprocedure TLeafletMaps.BindEvents;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TLeafletMaps.ClearCircles;\r\nvar\r\n  i: integer;\r\n  c: JSValue;\r\nbegin\r\n  for i := 0 to FCircles.Count - 1 do\r\n  begin\r\n    c := JSValue(FCircles.Items[i]);\r\n    asm\r\n      this.FMapObject.removeLayer(c);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TLeafletMaps.ClearMarkers;\r\nbegin\r\n  asm\r\n    this.FMarkerGroup.clearLayers();\r\n  end;\r\nend;\r\n\r\nprocedure TLeafletMaps.ClearMethodPointers;\r\nbegin\r\n  inherited;\r\n  FMapClickPtr := nil;\r\n  FMapDblClickPtr := nil;\r\n  FMapPanPtr := nil;\r\n  FMapZoomPtr := nil;\r\n  FMarkerClickPtr := nil;\r\nend;\r\n\r\nprocedure TLeafletMaps.ClearPolygons;\r\nvar\r\n  i: integer;\r\n  c: JSValue;\r\nbegin\r\n  for i := 0 to FPolygons.Count - 1 do\r\n  begin\r\n    c := JSValue(FPolygons.Items[i]);\r\n    asm\r\n      this.FMapObject.removeLayer(c);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TLeafletMaps.ClearPolylines;\r\nvar\r\n  i: integer;\r\n  c: JSValue;\r\nbegin\r\n  for i := 0 to FPolylines.Count - 1 do\r\n  begin\r\n    c := JSValue(FPolylines.Items[i]);\r\n    asm\r\n      this.FMapObject.removeLayer(c);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TLeafletMaps.ClearRectangles;\r\nvar\r\n  i: integer;\r\n  c: JSValue;\r\nbegin\r\n  for i := 0 to FRectangles.Count - 1 do\r\n  begin\r\n    c := JSValue(FRectangles.Items[i]);\r\n    asm\r\n      this.FMapObject.removeLayer(c);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TLeafletMaps.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('DIV');\r\n  Result.setAttribute('id', GetID);\r\n  FMap := nil;\r\nend;\r\n\r\nprocedure TLeafletMaps.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FCircles := TList.Create;\r\n  FRectangles := TList.Create;\r\n  FPolygons := TList.Create;\r\n  FPolylines := TList.Create;\r\n  FOptions := TLeafletMapsOptions.Create(Self);\r\nend;\r\n\r\ndestructor TLeafletMaps.Destroy;\r\nbegin\r\n  FCircles.Free;\r\n  FRectangles.Free;\r\n  FPolygons.Free;\r\n  FPolylines.Free;\r\n  FOptions.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TLeafletMaps.Distance(Lon1, Lat1, Lon2, Lat2: double): double;\r\nbegin\r\n  if Assigned(FMapObject) then\r\n  begin\r\n    asm\r\n      var pt1 = L.latLng(Lat1,Lon1);\r\n      var pt2 = L.latLng(Lat2,Lon2);\r\n      Result = pt1.distanceTo(pt2);\r\n    end;\r\n  end\r\n  else\r\n    raise Exception.Create(LMapNotCreated);\r\nend;\r\n\r\nprocedure TLeafletMaps.DoHandleMapClick(AEvent: JSValue);\r\nvar\r\n  Lon,Lat: double;\r\nbegin\r\n  asm\r\n    Lat = AEvent.latlng.lat;\r\n    Lon = AEvent.latlng.lng;\r\n  end;\r\n\r\n  if Assigned(OnMapClick) then\r\n    OnMapClick(Self,Lon,Lat);\r\nend;\r\n\r\nprocedure TLeafletMaps.DoHandleMapDblClick(AEvent: JSValue);\r\nvar\r\n  Lon,Lat: double;\r\nbegin\r\n  asm\r\n    Lat = AEvent.latlng.lat;\r\n    Lon = AEvent.latlng.lng;\r\n  end;\r\n\r\n  if Assigned(OnMapDblClick) then\r\n    OnMapDblClick(Self,Lon,Lat);\r\nend;\r\n\r\nprocedure TLeafletMaps.DoHandleMapPan(AEvent: JSValue);\r\nvar\r\n  Lon,Lat: double;\r\nbegin\r\n  asm\r\n    var center = this.FMapObject.getCenter();\r\n    Lon = center.lng;\r\n    Lat = center.lat;\r\n  end;\r\n\r\n  if Assigned(OnMapPan) then\r\n    OnMapPan(Self,Lat,Lon);\r\nend;\r\n\r\nprocedure TLeafletMaps.DoHandleMapZoom(AEvent: JSValue);\r\nvar\r\n  zoom: integer;\r\nbegin\r\n  asm\r\n    zoom = this.FMapObject.getZoom();\r\n  end;\r\n\r\n  if Assigned(OnMapZoom) then\r\n    OnMapZoom(Self, zoom);\r\nend;\r\n\r\nprocedure TLeafletMaps.DoHandleMarkerclick(AEvent: JSValue);\r\nvar\r\n  Lon,Lat: double;\r\n  ID: string;\r\n\r\nbegin\r\n  asm\r\n    Lon = AEvent.latlng.lng;\r\n    Lat = AEvent.latlng.lat;\r\n    ID = AEvent.target.myCustomId;\r\n  end;\r\n\r\n  if Assigned(OnMarkerClick) then\r\n    OnMarkerClick(Self, Lon, Lat, ID);\r\nend;\r\n\r\nfunction TLeafletMaps.GetCenter(var Lat, Lon: Double): Boolean;\r\nvar\r\n  la,lo: double;\r\nbegin\r\n  Result := false;\r\n\r\n  if not Assigned(FMapObject) then\r\n    Exit;\r\n\r\n  asm\r\n    var center = this.FMapObject.getCenter();\r\n    la = center.lat;\r\n    lo = center.lng;\r\n  end;\r\n\r\n  Lat := la;\r\n  Lon := lo;\r\n\r\n  Result := true;\r\nend;\r\n\r\nfunction TLeafletMaps.GetMap: TJSHTMLElement;\r\nbegin\r\n  Result := FMap;\r\nend;\r\n\r\nprocedure TLeafletMaps.GetMethodPointers;\r\nbegin\r\n  inherited;\r\n  FMapClickPtr := @DoHandleMapClick;\r\n  FMapDblClickPtr := @DoHandleMapDblClick;\r\n  FMapPanPtr := @DoHandleMapPan;\r\n  FMapZoomPtr := @DoHandleMapZoom;\r\n  FMarkerClickPtr := @DoHandleMarkerClick;\r\nend;\r\n\r\nfunction TLeafletMaps.HandleDoMouseDown(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  me: TJSMouseEvent;\r\nbegin\r\n  asm\r\n    me = Event.originalEvent;\r\n  end;\r\n  if not Assigned(me) then\r\n    inherited HandleDoMouseDown(Event);\r\nend;\r\n\r\nfunction TLeafletMaps.HandleDoMouseMove(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  me: TJSMouseEvent;\r\nbegin\r\n  asm\r\n    me = Event.originalEvent;\r\n  end;\r\n\r\n  if not Assigned(me) then\r\n    inherited HandleDoMouseMove(Event);\r\nend;\r\n\r\nfunction TLeafletMaps.HandleDoMouseUp(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  me: TJSMouseEvent;\r\nbegin\r\n  asm\r\n    me = Event.originalEvent;\r\n  end;\r\n\r\n  if not Assigned(me) then\r\n    inherited HandleDoMouseUp(Event);\r\nend;\r\n\r\nprocedure TLeafletMaps.InitScript;\r\nvar\r\n  id: string;\r\n  el: TJSElement;\r\nbegin\r\n  inherited;\r\n\r\n  id := GetID;\r\n  el := document.getElementById(id);\r\n  if not Assigned(el) then\r\n    Exit;\r\n\r\n  if not Assigned(FMapObject) and Assigned(FMapZoomPtr) and Assigned(FMapPanPtr) and Assigned(FMapClickPtr) and Assigned(FMapDblClickPtr)\r\n     and Assigned(FMarkerClickPtr) then\r\n  begin\r\n     asm\r\n       this.FMapObject = L.map(id, {zoomControl: false}).setView([51.505, -0.09], 13);\r\n\r\n       // Add an OpenStreetMap tile layer\r\n       L.tileLayer('https://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png', {\r\n          maxZoom: 19,\r\n          attribution: '© OpenStreetMap contributors'\r\n       }).addTo(this.FMapObject);\r\n\r\n       this.FMapObject.on(\"click\", this.FMapClickPtr);\r\n       this.FMapObject.on(\"dblclick\", this.FMapDblClickPtr);\r\n       this.FMapObject.on(\"dragend\", this.FMapPanPtr);\r\n       this.FMapObject.on(\"zoomend\", this.FMapZoomPtr);\r\n       this.FMarkerGroup = L.layerGroup().addTo(this.FMapObject);\r\n       this.FZoomControl = L.control.zoom({\r\n         position: 'topleft' // You can specify the position as 'topleft', 'topright', 'bottomleft', or 'bottomright'\r\n         }).addTo(this.FMapObject);\r\n\r\n       var map = this.FMapObject;\r\n\r\n       setTimeout(function() { map.invalidateSize(); }, 200);\r\n     end;\r\n  end;\r\nend;\r\n\r\nprocedure TLeafletMaps.SetBoundsInt(X, Y, AWidth, AHeight: Integer);\r\nbegin\r\n  inherited;\r\n  if Assigned(FMapObject) then\r\n  begin\r\n    asm\r\n      this.FMapObject.invalidateSize();\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TLeafletMaps.SetCenter(Lat, Lon: Double);\r\nbegin\r\n  asm\r\n    this.FMapObject.setView([Lat,Lon]);\r\n    this.FMapObject.invalidateSize();\r\n  end;\r\nend;\r\n\r\nprocedure TLeafletMaps.SetOptions(const Value: TLeafletMapsOptions);\r\nbegin\r\n  FOptions.Assign(Value);\r\nend;\r\n\r\nprocedure TLeafletMaps.SetZoom(Zoom: integer);\r\nbegin\r\n  asm\r\n    this.FMapObject.setZoom(Zoom);\r\n    this.FMapObject.invalidateSize();\r\n  end;\r\nend;\r\n\r\nprocedure TLeafletMaps.LatLonToXY(Lat, Lon: double; var X, Y: integer);\r\nvar\r\n  px,py: integer;\r\nbegin\r\n  if Assigned(FMapObject) then\r\n  begin\r\n    asm\r\n      var latLng = L.latLng(Lat,Lon);\r\n      var point = this.FMapObject.latLngToContainerPoint(latLng);\r\n      px = point.x;\r\n      py = point.y;\r\n    end;\r\n\r\n    X := px;\r\n    Y := py;\r\n  end\r\n  else\r\n    raise Exception.Create(LMapNotCreated);\r\nend;\r\n\r\nprocedure TLeafletMaps.XYToLatLon(X, Y: integer; var Lat, Lon: double);\r\nvar\r\n  la,lo:double;\r\nbegin\r\n  if Assigned(FMapObject) then\r\n  begin\r\n    asm\r\n      var point = L.point(X, Y);\r\n      var latLng = this.FMapObject.containerPointToLatLng(point);\r\n      la = latLng.lat;\r\n      lo = latLng.lng;\r\n    end;\r\n\r\n    Lat := la;\r\n    Lon := lo;\r\n  end\r\n  else\r\n    raise Exception.Create(LMapNotCreated);\r\nend;\r\n\r\nprocedure TLeafletMaps.SetZoomControl(const Value: TLeafletZoom);\r\nvar\r\n  s: string;\r\nbegin\r\n  if not Assigned(FMapObject) then\r\n    Exit;\r\n\r\n  if not Assigned(FZoomControl) then\r\n    Exit;\r\n\r\n  case Value of\r\n  lzTopLeft: s := 'topleft';\r\n  lzTopRight: s := 'topright';\r\n  lzBottomLeft: s := 'bottomleft';\r\n  lzBottomRight: s := 'bottomright';\r\n  end;\r\n\r\n  asm\r\n    this.FZoomControl.remove();\r\n  end;\r\n\r\n  if Value <> lzNone then\r\n  begin\r\n    asm\r\n      this.FZoomControl = L.control.zoom({\r\n        position: s  // Choose: 'topleft', 'topright', 'bottomleft', 'bottomright'\r\n      }).addTo(this.FMapObject);\r\n\r\n      this.FMapObject.invalidateSize();\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction GPXToCoordinates(AGPXData: string): TJSArray;\r\nbegin\r\n  Result := nil;\r\n  asm\r\n    var parser = new DOMParser();\r\n    var xmlDoc = parser.parseFromString(AGPXData, \"application/xml\");\r\n\r\n    var trkpts = xmlDoc.getElementsByTagName(\"trkpt\");\r\n    if (trkpts.length == 0) {\r\n      trkpts = xmlDoc.getElementsByTagName(\"rtept\");\r\n    }\r\n\r\n    var coordinates = [];\r\n\r\n    for (var i = 0; i < trkpts.length; i++) {\r\n        var trkpt = trkpts[i];\r\n        var lat = trkpt.getAttribute(\"lat\");\r\n        var lon = trkpt.getAttribute(\"lon\");\r\n        var coord = [];\r\n        coord.push(parseFloat(lat));\r\n        coord.push(parseFloat(lon));\r\n        //coordinates.push({ latitude: parseFloat(lat), longitude: parseFloat(lon) });\r\n        coordinates.push(coord);\r\n     }\r\n    return coordinates;\r\n  end;\r\nend;\r\n\r\n{ TLeafletMapsOptions }\r\n\r\nprocedure TLeafletMapsOptions.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TLeafletMapsOptions) then\r\n  begin\r\n    FDefaultLatitude := (Source as TLeafletMapsOptions).DefaultLatitude;\r\n    FDefaultLongitude := (Source as TLeafletMapsOptions).DefaultLongitude;\r\n    FDefaultZoomLevel := (Source as TLeafletMapsOptions).DefaultZoomLevel;\r\n    FZoomControl := (Source as TLeafletMapsOptions).ZoomControl;\r\n  end;\r\nend;\r\n\r\nconstructor TLeafletMapsOptions.Create(AOwner: TLeafletMaps);\r\nbegin\r\n  FOwner := AOwner;\r\n  FDefaultLatitude := -34.397;\r\n  FDefaultLongitude := 150.644;\r\n  FDefaultZoomLevel := 13;\r\n  FZoomControl := lzTopLeft;\r\nend;\r\n\r\nprocedure TLeafletMapsOptions.SetDefaultLatitude(const Value: Double);\r\nbegin\r\n  FDefaultLatitude := Value;\r\n  if Assigned(FOwner) then\r\n    FOwner.SetCenter(FDefaultLatitude, FDefaultLongitude);\r\nend;\r\n\r\nprocedure TLeafletMapsOptions.SetDefaultLongitude(const Value: Double);\r\nbegin\r\n  FDefaultLongitude := Value;\r\n  if Assigned(FOwner) then\r\n    FOwner.SetCenter(FDefaultLatitude, FDefaultLongitude);\r\nend;\r\n\r\nprocedure TLeafletMapsOptions.SetDefaultZoomLevel(const Value: Integer);\r\nbegin\r\n  FDefaultZoomLevel := Value;\r\n  if Assigned(FOwner) then\r\n    FOwner.SetZoom(FDefaultZoomLevel);\r\nend;\r\n\r\nprocedure TLeafletMapsOptions.SetZoomControl(const Value: TLeafletZoom);\r\nbegin\r\n  FZoomControl := Value;\r\n  if Assigned(FOwner) then\r\n    FOwner.SetZoomControl(Value);\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            Copyright (c) 2018 - 2020                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit jsdelphisystem;\r\n\r\ninterface\r\n\r\nimplementation\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.Mask;\r\n\r\n{$DEFINE NOPP}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, SysUtils, StrUtils, WEBLib.Controls, WEBLib.StdCtrls, Web;\r\n\r\ntype\r\n  TMaskedState = set of (mStateMasked, mStateReEnter, mStateDBSetText);\r\n\r\n  TMaskedText = type string;\r\n  TEditMask = type string;\r\n\r\n  TCustomMaskEdit = class(TEdit)\r\n  private\r\n    FEditMask: TEditMask;\r\n    FMaskBlank: Char;\r\n    FMaxChars: Integer;\r\n    FMaskState: TMaskedState;\r\n    FCaretPos: Integer;\r\n    FOldValue: string;\r\n    FEditText: string;\r\n    function GetEditText: string;\r\n    procedure SetEditText(const Value: string);\r\n    function AddEditFormat(const Value: string; Active: Boolean): string;\r\n    function RemoveEditFormat(const Value: string): string;\r\n    procedure ArrowKeys(CharCode: Word; Shift: TShiftState);\r\n    procedure CursorInc(CursorPos: Integer; Incr: Integer);\r\n    function CursorDec(CursorPos: Integer): Integer;\r\n    procedure DeleteKeys(CharCode: Word);\r\n    function DeleteSelection(var Value: string; Offset: Integer;\r\n      Len: Integer): Boolean;\r\n    procedure HomeEndKeys(CharCode: Word; Shift: TShiftState);\r\n    function CharKeys(var CharCode: Char): Boolean;\r\n    function InputChar(var NewChar: Char; Offset: Integer): Boolean;\r\n    function DoInputChar(var NewChar: Char; MaskOffset: Integer): Boolean;\r\n    function FindLiteralChar (MaskOffset: Integer; InChar: Char): Integer;\r\n  protected\r\n    procedure SetEditMask(const Value: TEditMask);\r\n    function GetMasked: Boolean;\r\n    function GetTextLen: integer;\r\n    function EditCanModify: boolean; virtual;\r\n    procedure ReformatText(const NewMask: string);\r\n    procedure KeyDown(var Key: Word; Shift: TShiftState); override;\r\n    procedure KeyUp(var Key: Word; Shift: TShiftState); override;\r\n    procedure KeyPress(var Key: Char); override;\r\n    procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X,Y: Integer); override;\r\n    procedure CheckCursor;\r\n    procedure Reset; virtual;\r\n    procedure Loaded; override;\r\n    procedure DoEnter; override;\r\n    procedure InitCSSLibrary(ALibrary: TCSSLibrary); override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    procedure GetSel(var ASelStart: Integer; var ASelStop: Integer);\r\n    procedure SetSel(ASelStart: Integer; ASelStop: Integer);\r\n    procedure SetCursor(Pos: Integer);\r\n\r\n    property EditMask: TEditMask read FEditMask write SetEditMask;\r\n    property EditText: string read GetEditText write SetEditText;\r\n\r\n    function GetFirstEditChar: Integer;\r\n    function GetLastEditChar: Integer;\r\n    function GetNextEditChar(Offset: Integer): Integer;\r\n    function GetPriorEditChar(Offset: Integer): Integer;\r\n    function GetMaxChars: Integer;\r\n    property IsMasked: Boolean read GetMasked;\r\n  end;\r\n\r\n  TMaskEdit = class(TCustomMaskEdit)\r\n  published\r\n    property EditMask;\r\n    property ElementClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n  end;\r\n\r\n  TWebMaskEdit = class(TMaskEdit);\r\n\r\nimplementation\r\n\r\nuses\r\n  Math, WEBLib.WebTools;\r\n\r\ntype\r\n  TMaskCharType = (mcNone, mcLiteral, mcIntlLiteral, mcDirective, mcMask,\r\n    mcMaskOpt, mcFieldSeparator, mcField);\r\n\r\n  TMaskInstructions = set of (miReverseDir, miUpperCase, miLowerCase,\r\n    miLiteralChar);\r\n\r\nconst\r\n  dMaskReverse = '!';\r\n  dMaskUpperCase = '>';\r\n  dMaskLowerCase = '<';\r\n  dMaskLiteral = '\\';\r\n\r\n  cMaskAlpha = 'L';\r\n  cMaskAlphaOpt = 'l';\r\n  cMaskAlphaNum = 'A';\r\n  cMaskAlphaNumOpt  = 'a';\r\n  cMaskAscii = 'C';\r\n  cMaskAsciiOpt = 'c';\r\n  cMaskNumeric = '0';\r\n  cMaskNumericOpt = '9';\r\n  cMaskNumSymOpt = '#';\r\n  cMaskTimeSeparator = ':';\r\n  cMaskDateSeparator = '/';\r\n  mskSeparator = ';';\r\n  mskBlank = '_';\r\n\r\nfunction IsCharAlpha(IChar: Char): boolean;\r\nbegin\r\n  Result := ((IChar >= 'a') and (IChar <= 'z')) or\r\n     ((IChar >= 'A') and (IChar <= 'Z'));\r\nend;\r\n\r\nfunction IsCharAlphaNumeric(IChar: Char): boolean;\r\nbegin\r\n  Result := ((IChar >= 'a') and (IChar <= 'z')) or\r\n     ((IChar >= 'A') and (IChar <= 'Z')) or\r\n     ((IChar >= '0') and (IChar <= '9'));\r\nend;\r\n\r\nfunction GetMaskCharType(const EditMask: string; MaskOffset: Integer): TMaskCharType;\r\nvar\r\n  MaskChar: Char;\r\nbegin\r\n  Result := mcLiteral;\r\n  MaskChar := #0;\r\n  if MaskOffset <= Length(EditMask) then\r\n    MaskChar := EditMask[MaskOffset];\r\n  if MaskOffset > Length(EditMask) then\r\n    Result := mcNone\r\n  else if (MaskOffset > 1) and (EditMask[MaskOffset - 1] = dMaskLiteral) and\r\n      not ((MaskOffset > 2) and (EditMask[MaskOffset - 2] = dMaskLiteral)) then\r\n    Result := mcLiteral\r\n  else if (MaskChar = mskSeparator) and\r\n         (Length(EditMask) >= 4) and\r\n         (MaskOffset > Length(EditMask) - 4) then\r\n    Result := mcFieldSeparator\r\n  else if (Length(EditMask) >= 4) and\r\n         (MaskOffset > (Length(EditMask) - 4)) and\r\n         (EditMask[MaskOffset - 1] = mskSeparator) and\r\n         not ((MaskOffset > 2) and (EditMask[MaskOffset - 2] = dMaskLiteral)) then\r\n    Result := mcField\r\n\r\n  else if MaskChar in [cMaskTimeSeparator, cMaskDateSeparator] then\r\n    Result := mcIntlLiteral\r\n\r\n  else if MaskChar in [dMaskReverse, dMaskUpperCase, dMaskLowerCase,\r\n      dMaskLiteral] then\r\n    Result := mcDirective\r\n\r\n  else if MaskChar in [cMaskAlphaOpt, cMaskAlphaNumOpt, cMaskAsciiOpt,\r\n      cMaskNumSymOpt, cMaskNumericOpt] then\r\n    Result := mcMaskOpt\r\n\r\n  else if MaskChar in [cMaskAlpha, cMaskAlphaNum, cMaskAscii, cMaskNumeric] then\r\n    Result := mcMask;\r\nend;\r\n\r\n\r\nfunction GetMaskInstructions(const EditMask: string; MaskOffset: Integer): TMaskInstructions;\r\nvar\r\n  I: Integer;\r\n  MaskChar: Char;\r\nbegin\r\n  Result := [];\r\n  for I := 0 to Length(EditMask) - 1 do\r\n  begin\r\n    MaskChar := EditMask[I+1];\r\n    if (MaskChar = dMaskReverse) then\r\n      Result := Result + [miReverseDir]\r\n    else\r\n    if (MaskChar = dMaskLowerCase) and (I < MaskOffset-1) then\r\n    begin\r\n      Result := Result - [miUpperCase] + [miLowerCase];\r\n    end\r\n    else\r\n    if (MaskChar = dMaskUpperCase) and (I < MaskOffset-1) then\r\n    begin\r\n      Result := Result - [miLowerCase];\r\n      if not ((I > 0) and (EditMask[I] = dMaskLowerCase)) then\r\n        Result := Result + [miUpperCase];\r\n    end;\r\n  end;\r\n  if GetMaskCharType(EditMask, MaskOffset) = mcLiteral then\r\n    Result := Result + [miLiteralChar];\r\nend;\r\n\r\nfunction GetFormatSettingsChar(IChar: Char): Char;\r\nbegin\r\n  Result := IChar;\r\n  case IChar of\r\n    cMaskTimeSeparator: Result := Char(FormatSettings.TimeSeparator);\r\n    cMaskDateSeparator: Result := Char(FormatSettings.DateSeparator);\r\n  end;\r\nend;\r\n\r\nfunction MaskOffsetToString(const EditMask: String; MaskOffset: Integer): string;\r\nvar\r\n  I: Integer;\r\n  CType: TMaskCharType;\r\nbegin\r\n  Result := '';\r\n  for I := 1 to MaskOffset do\r\n  begin\r\n    CType := GetMaskCharType(EditMask, I);\r\n    if not (CType in [mcDirective, mcField, mcFieldSeparator]) then\r\n      Result := Result + EditMask[I];\r\n  end;\r\nend;\r\n\r\nfunction MaskOffsetToOffset(const EditMask: String; MaskOffset: Integer): Integer;\r\nbegin\r\n  Result := Length(MaskOffsetToString(Editmask, MaskOffset));\r\nend;\r\n\r\nfunction OffsetToMaskOffset(const EditMask: string; Offset: Integer): Integer;\r\nvar\r\n  I: Integer;\r\n  Count: Integer;\r\n  MaxChars: Integer;\r\nbegin\r\n  MaxChars := MaskOffsetToOffset(EditMask, Length(EditMask));\r\n  if Offset > MaxChars then\r\n  begin\r\n    Result := -1;\r\n    Exit;\r\n  end;\r\n\r\n  Result := 0;\r\n  Count := Offset;\r\n  for I := 1 to Length(EditMask) do\r\n  begin\r\n    Inc(Result);\r\n    if not (mcDirective = GetMaskCharType(EditMask, I)) then\r\n    begin\r\n      Dec(Count);\r\n      if Count < 0 then\r\n        Exit;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction FormatMaskedText(const EditMask: string; const Value: string; Blank: Char): string;\r\nvar\r\n  I: Integer;\r\n  Offset, MaskOffset: Integer;\r\n  CType: TMaskCharType;\r\n  Dir: TMaskInstructions;\r\nbegin\r\n  Result := Value;\r\n  Dir := GetMaskInstructions(EditMask, 1);\r\n\r\n  if not (miReverseDir in Dir) then\r\n  begin\r\n    { starting at the beginning, insert literal chars in the string\r\n      and add spaces on the end }\r\n    Offset := 1;\r\n    for MaskOffset := 1 to Length(EditMask) do\r\n    begin\r\n      CType := GetMaskCharType(EditMask, MaskOffset);\r\n\r\n      if CType in [mcLiteral, mcIntlLiteral] then\r\n      begin\r\n        Result := Copy(Result, 1, Offset - 1) +\r\n          GetFormatSettingsChar(EditMask[MaskOffset]) +\r\n          Copy(Result,  Offset, Length(Result) - Offset + 1);\r\n        Inc(Offset);\r\n      end\r\n      else if CType in [mcMask, mcMaskOpt] then\r\n      begin\r\n        if Offset > Length(Result) then\r\n          Result := Result + Blank;\r\n        Inc(Offset);\r\n      end;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n      { starting at the end, insert literal chars in the string\r\n        and add spaces at the beginning }\r\n    Offset := Length(Result);\r\n    for I := 0 to (Length(EditMask) - 1) do\r\n    begin\r\n      MaskOffset := Length(EditMask) - I;\r\n      CType := GetMaskCharType(EditMask, MaskOffset);\r\n\r\n      if CType in [mcLiteral, mcIntlLiteral] then\r\n      begin\r\n        Result := Copy(Result, 1, Offset) +\r\n               GetFormatSettingsChar(EditMask[MaskOffset]) +\r\n               Copy(Result, Offset + 1, Length(Result) - Offset);\r\n      end\r\n      else if CType in [mcMask, mcMaskOpt] then\r\n      begin\r\n        if Offset < 1 then\r\n          Result := Blank + Result\r\n        else\r\n          Dec(Offset);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction IsLiteralChar(const EditMask: string; Offset: Integer): Boolean;\r\nvar\r\n  MaskOffset: Integer;\r\n  CType: TMaskCharType;\r\nbegin\r\n  Result := False;\r\n  MaskOffset := OffsetToMaskOffset(EditMask, Offset);\r\n  if MaskOffset >= 0 then\r\n  begin\r\n    CType := GetMaskCharType(EditMask, MaskOffset);\r\n    Result := CType in [mcLiteral, mcIntlLiteral];\r\n  end;\r\nend;\r\n\r\nfunction GetMaskBlank(const EditMask: string): Char;\r\nbegin\r\n  Result := mskBlank;\r\n  if Length(EditMask) >= 4 then\r\n  begin\r\n    if (GetMaskCharType(EditMask, Length(EditMask) - 1) = mcFieldSeparator) then\r\n    begin\r\n      if (GetMaskCharType(EditMask, Length(EditMask) - 2) = mcFieldSeparator) or\r\n        (GetMaskCharType(EditMask, Length(EditMask) - 3) = mcFieldSeparator) then\r\n      begin\r\n        Result := EditMask[Length(EditMask)];\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TCustomMaskEdit }\r\n\r\nfunction TCustomMaskEdit.AddEditFormat(const Value: string;\r\n  Active: Boolean): string;\r\nbegin\r\n  if not Active then\r\n    Result := FormatMaskedText(EditMask, Value, ' ')\r\n  else\r\n    Result := FormatMaskedText(EditMask, Value, FMaskBlank);\r\nend;\r\n\r\nprocedure TCustomMaskEdit.ArrowKeys(CharCode: Word; Shift: TShiftState);\r\nvar\r\n  ASelStart, ASelStop : Integer;\r\nbegin\r\n  if (ssCtrl in Shift) then Exit;\r\n  GetSel(ASelStart, ASelStop);\r\n  if (ssShift in Shift) then\r\n  begin\r\n    if (CharCode = VK_RIGHT) then\r\n    begin\r\n      Inc(FCaretPos);\r\n      if (ASelStop = ASelStart + 1) then\r\n      begin\r\n        SetSel(ASelStart, ASelStop);  {reset caret to end of string}\r\n        Inc(FCaretPos);\r\n      end;\r\n      if FCaretPos > FMaxChars then FCaretPos := FMaxChars;\r\n    end\r\n    else  {if (CharCode = VK_LEFT) then}\r\n    begin\r\n      Dec(FCaretPos);\r\n      if (ASelStop = ASelStart + 2) and\r\n        (FCaretPos > ASelStart) then\r\n      begin\r\n        SetSel(ASelStart + 1, ASelStart + 1);  {reset caret to show up at start}\r\n        Dec(FCaretPos);\r\n      end;\r\n      if FCaretPos < 0 then FCaretPos := 0;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    if (ASelStop - ASelStart) > 1 then\r\n    begin\r\n      if ASelStop = FCaretPos then\r\n        Dec(FCaretPos);\r\n      SetCursor(FCaretPos);\r\n    end\r\n    else if (CharCode = VK_LEFT) then\r\n      CursorDec(ASelStart)\r\n    else   { if (CharCode = VK_RIGHT) then  }\r\n    begin\r\n      if ASelStop = ASelStart then\r\n        SetCursor(ASelStart)\r\n      else\r\n        CursorInc(ASelStart, 1);\r\n    end;\r\n  end;\r\n\r\nend;\r\n\r\nfunction TCustomMaskEdit.CharKeys(var CharCode: Char): Boolean;\r\nvar\r\n  ASelStart, ASelStop : Integer;\r\n  Txt: string;\r\nbegin\r\n  Result := False;\r\n\r\n  GetSel(ASelStart, ASelStop);\r\n\r\n  if (ASelStop - ASelStart) > 1 then\r\n  begin\r\n    DeleteKeys(VK_DELETE);\r\n    ASelStart := GetNextEditChar(ASelStart);\r\n    SetCursor(ASelStart);\r\n  end;\r\n\r\n  Result := InputChar(CharCode, ASelStart);\r\n\r\n  if Result then\r\n  begin\r\n    Txt := CharCode;\r\n\r\n    Text := Copy(Text, 1, ASelStart) + Txt + Copy(Text, ASelStop + 1, Length(Text));\r\n\r\n    CursorInc(ASelStart, 1);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomMaskEdit.CheckCursor;\r\nvar\r\n  ASelStart, ASelStop: Integer;\r\nbegin\r\n  if not HandleAllocated then Exit;\r\n  if (IsMasked) then\r\n  begin\r\n    GetSel(ASelStart, ASelStop);\r\n    if ASelStart = ASelStop then\r\n      SetCursor(ASelStart);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomMaskEdit.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  Height := 25;\r\nend;\r\n\r\nfunction TCustomMaskEdit.CursorDec(CursorPos: Integer): integer;\r\nvar\r\n  nuPos: Integer;\r\nbegin\r\n  Result := 0;\r\n\r\n  if CursorPos > 0 then\r\n  begin\r\n    nuPos := CursorPos;\r\n    Dec(nuPos);\r\n    nuPos := GetPriorEditChar(nuPos);\r\n    SetCursor(NuPos);\r\n    Result := NuPos;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomMaskEdit.CursorInc(CursorPos, Incr: Integer);\r\nvar\r\n  NuPos: Integer;\r\nbegin\r\n  if (CursorPos < Length(Text)) then\r\n  begin\r\n    NuPos := CursorPos + Incr;\r\n    NuPos := GetNextEditChar(NuPos);\r\n    if IsLiteralChar(EditMask, nuPos) then\r\n      NuPos := CursorPos;\r\n    SetCursor(NuPos);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomMaskEdit.DeleteKeys(CharCode: Word);\r\nvar\r\n  ASelStart, ASelStop: Integer;\r\n  Str, Orig: string;\r\nbegin\r\n  GetSel(ASelStart, ASelStop);\r\n\r\n  if (ASelStop - ASelStart) < 1 then Exit;\r\n\r\n  Str := Text;\r\n  Orig := Text;\r\n\r\n  DeleteSelection(Str, ASelStart, ASelStop - ASelStart);\r\n\r\n  Str := Copy(Str, ASelStart + 1, ASelStop - ASelStart);\r\n\r\n  Str := Copy(Orig, 1, ASelStart) + Str + Copy(Orig, ASelStop + 1, Length(Orig));\r\n\r\n  Text := Str;\r\n\r\n  SetCursor(ASelStart);\r\n  Change;\r\nend;\r\n\r\nfunction TCustomMaskEdit.DeleteSelection(var Value: string; Offset,\r\n  Len: Integer): Boolean;\r\nvar\r\n  EndDel: Integer;\r\n  StrOffset, MaskOffset, Temp: Integer;\r\n  CType: TMaskCharType;\r\nbegin\r\n  Result := True;\r\n  if Len = 0 then Exit;\r\n\r\n  StrOffset := Offset + 1;\r\n  EndDel := StrOffset + Len;\r\n  Temp := OffsetToMaskOffset(EditMask, Offset);\r\n  if Temp < 0 then  Exit;\r\n  for MaskOffset := Temp to Length(EditMask) do\r\n  begin\r\n    CType := GetMaskCharType(EditMask, MaskOffset);\r\n    if CType in [mcLiteral, mcIntlLiteral] then\r\n      Inc(StrOffset)\r\n    else if CType in [mcMask, mcMaskOpt] then\r\n    begin\r\n      Value[StrOffset] := FMaskBlank;\r\n      Inc(StrOffset);\r\n    end;\r\n    if StrOffset >= EndDel then Break;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomMaskEdit.DoEnter;\r\nbegin\r\n  inherited;\r\n  SelStart := 0;\r\n  SelLength := 1;\r\nend;\r\n\r\nfunction TCustomMaskEdit.DoInputChar(var NewChar: Char;\r\n  MaskOffset: Integer): Boolean;\r\nvar\r\n  Instr: TMaskInstructions;\r\n  Str: string;\r\n  CType: TMaskCharType;\r\n\r\nbegin\r\n  Result := True;\r\n  CType := GetMaskCharType(EditMask, MaskOffset);\r\n  if CType in [mcLiteral, mcIntlLiteral] then\r\n    NewChar := GetFormatSettingsChar(EditMask[MaskOffset])\r\n  else\r\n  begin\r\n    Instr := GetMaskInstructions(EditMask, MaskOffset);\r\n    case EditMask[MaskOffset] of\r\n      cMaskNumeric, cMaskNumericOpt:\r\n        begin\r\n          if not ((NewChar >= '0') and (NewChar <= '9')) then\r\n            Result := False;\r\n        end;\r\n      cMaskNumSymOpt:\r\n        begin\r\n          if not (((NewChar >= '0') and (NewChar <= '9')) or\r\n                 (NewChar = ' ') or(NewChar = '+') or(NewChar = '-')) then\r\n            Result := False;\r\n        end;\r\n      cMaskAscii, cMaskAsciiOpt:\r\n        begin\r\n          if IsCharAlpha(NewChar) then\r\n          begin\r\n            Str := ' ';\r\n            Str[1] := NewChar;\r\n            if (miUpperCase in Instr)  then\r\n              Str := UpperCase(Str)\r\n            else if miLowerCase in Instr then\r\n              Str := LowerCase(Str);\r\n            NewChar := Str[1];\r\n          end;\r\n        end;\r\n      cMaskAlpha, cMaskAlphaOpt, cMaskAlphaNum, cMaskAlphaNumOpt:\r\n        begin\r\n          Str := ' ';\r\n          Str[1] := NewChar;\r\n          if not IsCharAlpha(NewChar) then\r\n          begin\r\n            Result := False;\r\n            if ((EditMask[MaskOffset] = cMaskAlphaNum) or\r\n                (EditMask[MaskOffset] = cMaskAlphaNumOpt)) and\r\n                (IsCharAlphaNumeric(NewChar)) then\r\n              Result := True;\r\n          end\r\n          else if miUpperCase in Instr then\r\n            Str := UpperCase(Str)\r\n          else if miLowerCase in Instr then\r\n            Str := LowerCase(Str);\r\n          NewChar := Str[1];\r\n        end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TCustomMaskEdit.EditCanModify: boolean;\r\nbegin\r\n  Result := not ReadOnly;\r\nend;\r\n\r\nfunction TCustomMaskEdit.FindLiteralChar(MaskOffset: Integer;\r\n  InChar: Char): Integer;\r\nvar\r\n  CType: TMaskCharType;\r\n  LitChar: Char;\r\nbegin\r\n  Result := -1;\r\n  while MaskOffset < Length(EditMask) do\r\n  begin\r\n    Inc(MaskOffset);\r\n    CType := GetMaskCharType(EditMask, MaskOffset);\r\n    if CType in [mcLiteral, mcIntlLiteral] then\r\n    begin\r\n      LitChar := EditMask[MaskOffset];\r\n      if CType = mcIntlLiteral then\r\n        LitChar := GetFormatSettingsChar(LitChar);\r\n      if LitChar = InChar then\r\n        Result := MaskOffset;\r\n      Exit;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TCustomMaskEdit.GetEditText: string;\r\nbegin\r\n  Result := RemoveEditFormat(inherited Text);\r\nend;\r\n\r\nfunction TCustomMaskEdit.GetFirstEditChar: Integer;\r\nbegin\r\n  Result := 0;\r\n  if IsMasked then\r\n    Result := GetNextEditChar(0);\r\nend;\r\n\r\nfunction TCustomMaskEdit.GetLastEditChar: Integer;\r\nbegin\r\n  Result := GetMaxChars;\r\n  if IsMasked then\r\n    Result := GetPriorEditChar(Result - 1);\r\nend;\r\n\r\nfunction TCustomMaskEdit.GetMasked: Boolean;\r\nbegin\r\n  Result := EditMask <> '';\r\nend;\r\n\r\nfunction TCustomMaskEdit.GetMaxChars: Integer;\r\nbegin\r\n  if IsMasked then\r\n    Result := FMaxChars\r\n  else\r\n    Result := GetTextLen;\r\nend;\r\n\r\nfunction TCustomMaskEdit.GetNextEditChar(Offset: Integer): Integer;\r\nbegin\r\n  Result := Offset;\r\n  while (Result < FMaxChars) and (IsLiteralChar(EditMask, Result)) do\r\n    Inc(Result);\r\nend;\r\n\r\nfunction TCustomMaskEdit.GetPriorEditChar(Offset: Integer): Integer;\r\nbegin\r\n  Result := Offset;\r\n  while (Result >= 0) and (IsLiteralChar(EditMask, Result)) do\r\n    Dec(Result);\r\n  if Result < 0 then\r\n    Result := GetNextEditChar(Result);\r\nend;\r\n\r\nprocedure TCustomMaskEdit.GetSel(var ASelStart, ASelStop: Integer);\r\nbegin\r\n  ASelStart := SelStart;\r\n  ASelStop := SelStart + SelLength;\r\nend;\r\n\r\nfunction TCustomMaskEdit.GetTextLen: integer;\r\nbegin\r\n  Result := Length(Text);\r\nend;\r\n\r\nprocedure TCustomMaskEdit.HomeEndKeys(CharCode: Word; Shift: TShiftState);\r\nvar\r\n  ASelStart, ASelStop : Integer;\r\nbegin\r\n  GetSel(ASelStart, ASelStop);\r\n  if (CharCode = VK_HOME) then\r\n  begin\r\n    if (ssShift in Shift) then\r\n    begin\r\n      if (ASelStart <> FCaretPos) and (ASelStop <> (ASelStart + 1)) then\r\n        ASelStop := ASelStart + 1;\r\n      SetSel(0, ASelStop);\r\n      CheckCursor;\r\n    end\r\n    else\r\n      SetCursor(0);\r\n    FCaretPos := 0;\r\n  end\r\n  else\r\n  begin\r\n    if (ssShift in Shift) then\r\n    begin\r\n      if (ASelStop <> FCaretPos) and (ASelStop <> (ASelStart + 1)) then\r\n        ASelStart := ASelStop - 1;\r\n      SetSel(ASelStart, FMaxChars);\r\n      CheckCursor;\r\n    end\r\n    else\r\n      SetCursor(FMaxChars - 1);\r\n    FCaretPos := FMaxChars;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TCustomMaskEdit.InitCSSLibrary(ALibrary: TCSSLibrary);\r\nbegin\r\n  if (ALibrary = cssBootstrap) then\r\n  begin\r\n    ElementClassName := 'form-control';\r\n    ElementFont := efCSS;\r\n    HeightStyle := ssAuto;\r\n  end;\r\nend;\r\n\r\nfunction TCustomMaskEdit.InputChar(var NewChar: Char; Offset: Integer): Boolean;\r\nvar\r\n  MaskOffset: Integer;\r\n  CType: TMaskCharType;\r\n  InChar: Char;\r\nbegin\r\n  Result := True;\r\n\r\n  if EditMask <> '' then\r\n  begin\r\n    Result := False;\r\n    if Offset < FMaxChars then\r\n    begin\r\n      MaskOffset := OffsetToMaskOffset(EditMask, Offset);\r\n      if MaskOffset >= 0 then\r\n      begin\r\n        CType := GetMaskCharType(EditMask, MaskOffset);\r\n        InChar := NewChar;\r\n        Result := DoInputChar(NewChar, MaskOffset);\r\n        if not Result and (CType in [mcMask, mcMaskOpt]) then\r\n        begin\r\n          MaskOffset := FindLiteralChar (MaskOffset, InChar);\r\n          if MaskOffset > 0 then\r\n          begin\r\n            MaskOffset := MaskOffsetToOffset(EditMask, MaskOffset);\r\n            SetCursor (MaskOffset);\r\n            Exit;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\n  if not Result and (NewChar <> #13) and (NewChar <> #27) then\r\n  begin\r\n    MessageBeep(0)\r\n  end\r\n  else\r\n    Change;\r\nend;\r\n\r\nprocedure TCustomMaskEdit.KeyDown(var Key: Word; Shift: TShiftState);\r\nbegin\r\n  inherited KeyDown(Key, Shift);\r\n\r\n  if (Key in [VK_LEFT, VK_RIGHT, VK_HOME, VK_END]) then\r\n  begin\r\n    PreventDefault;\r\n    StopPropagation;\r\n  end;\r\n\r\n  if IsMasked and (Key <> 0) and not (ssAlt in Shift) then\r\n  begin\r\n    if not (Key in [VK_LEFT, VK_RIGHT, VK_HOME, VK_END]) then\r\n    begin\r\n      if SelLength > 1 then\r\n      begin\r\n        SelStart := 0;\r\n        SelLength := 1;\r\n      end;\r\n    end;\r\n\r\n    if (Key = VK_LEFT) or(Key = VK_RIGHT) then\r\n    begin\r\n      ArrowKeys(Key, Shift);\r\n      if not ((ssShift in Shift) or (ssCtrl in Shift)) then\r\n        Key := 0;\r\n      Exit;\r\n    end\r\n    else if (Key = VK_UP) or(Key = VK_DOWN) then\r\n    begin\r\n      Key := 0;\r\n      Exit;\r\n    end\r\n    else if (Key = VK_HOME) or(Key = VK_END) then\r\n    begin\r\n      HomeEndKeys(Key, Shift);\r\n      Key := 0;\r\n      Exit;\r\n    end\r\n    else if ((Key = VK_DELETE) and not (ssShift in Shift)) or\r\n      (Key = VK_BACK) then\r\n    begin\r\n      if EditCanModify then\r\n        DeleteKeys(Key);\r\n\r\n      if not (Key = VK_BACK) then\r\n      begin\r\n        Key := 0;\r\n        PreventDefault;\r\n        StopPropagation;\r\n      end;\r\n      Exit;\r\n    end;\r\n    CheckCursor;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomMaskEdit.KeyPress(var Key: Char);\r\nbegin\r\n  inherited KeyPress(Key);\r\n\r\n  if IsMasked and (Key <> #0) and not CharInSet(Key, [^V, ^X, ^C, #8]) then\r\n  begin\r\n    CharKeys(Key);\r\n    Key := #0;\r\n    PreventDefault;\r\n    StopPropagation;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomMaskEdit.KeyUp(var Key: Word; Shift: TShiftState);\r\nbegin\r\n  inherited KeyUp(Key, Shift);\r\n\r\n  if IsMasked and (Key <> 0) then\r\n  begin\r\n    if ((Key = VK_LEFT) or(Key = VK_RIGHT)) and (ssCtrl in Shift) then\r\n      CheckCursor;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomMaskEdit.Loaded;\r\nbegin\r\n  inherited;\r\n  //Text := FEditText;\r\nend;\r\n\r\nprocedure TCustomMaskEdit.MouseUp(Button: TMouseButton; Shift: TShiftState; X,\r\n  Y: Integer);\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TCustomMaskEdit.ReformatText(const NewMask: string);\r\nvar\r\n  OldText: string;\r\nbegin\r\n  OldText := RemoveEditFormat(EditText);\r\n  FEditMask := NewMask;\r\n  FMaxChars  := MaskOffsetToOffset(EditMask, Length(NewMask));\r\n  FMaskBlank := GetMaskBlank(NewMask);\r\n//  OldText := AddEditFormat(OldText, True);\r\n  EditText := OldText;\r\nend;\r\n\r\nfunction TCustomMaskEdit.RemoveEditFormat(const Value: string): string;\r\nvar\r\n  I: Integer;\r\n  OldLen: Integer;\r\n  Offset, MaskOffset: Integer;\r\n  CType: TMaskCharType;\r\n  Dir: TMaskInstructions;\r\nbegin\r\n  Offset := 1;\r\n  Result := Value;\r\n  for MaskOffset := 1 to Length(EditMask) do\r\n  begin\r\n    CType := GetMaskCharType(EditMask, MaskOffset);\r\n\r\n    if CType in [mcLiteral, mcIntlLiteral] then\r\n      Result := Copy(Result, 1, Offset - 1) +\r\n        Copy(Result, Offset + 1, Length(Result) - Offset);\r\n    if CType in [mcMask, mcMaskOpt] then Inc(Offset);\r\n  end;\r\n\r\n  Dir := GetMaskInstructions(EditMask, 1);\r\n  if miReverseDir in Dir then\r\n  begin\r\n    Offset := 1;\r\n    for I := 1 to Length(Result) do\r\n    begin\r\n      if Result[I] = FMaskBlank then\r\n        Inc(Offset)\r\n      else\r\n        break;\r\n    end;\r\n    if Offset <> 1 then\r\n      Result := Copy(Result, Offset, Length(Result) - Offset + 1);\r\n  end\r\n  else begin\r\n    OldLen := Length(Result);\r\n    for I := 1 to OldLen do\r\n    begin\r\n      if Result[OldLen - I + 1] = FMaskBlank then\r\n        SetLength(Result, Length(Result) - 1)\r\n      else Break;\r\n    end;\r\n  end;\r\n  if FMaskBlank <> ' ' then\r\n  begin\r\n    OldLen := Length(Result);\r\n    for I := 1 to OldLen do\r\n    begin\r\n      if Result[I] = FMaskBlank then\r\n        Result[I] := ' ';\r\n      if I > OldLen then Break;\r\n    end;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TCustomMaskEdit.Reset;\r\nbegin\r\n  EditText := FOldValue;\r\nend;\r\n\r\nprocedure TCustomMaskEdit.SetCursor(Pos: Integer);\r\nbegin\r\n  SetSel(Pos,Pos + 1);\r\nend;\r\n\r\nprocedure TCustomMaskEdit.SetEditMask(const Value: TEditMask);\r\nvar\r\n  SelStart, SelStop: Integer;\r\nbegin\r\n  if Value <> EditMask then\r\n  begin\r\n    if (csDesigning in ComponentState) and (Value <> '') and\r\n      not (csLoading in ComponentState) then\r\n      EditText := '';\r\n\r\n    if HandleAllocated then GetSel(SelStart, SelStop);\r\n\r\n    ReformatText(Value);\r\n    Exclude(FMaskState, mStateMasked);\r\n\r\n    if EditMask <> '' then\r\n      Include(FMaskState, mStateMasked);\r\n\r\n    inherited MaxLength := 0;\r\n\r\n    if IsMasked and (FMaxChars > 0) then\r\n    begin\r\n      inherited MaxLength := FMaxChars;\r\n    end;\r\n\r\n    if HandleAllocated and Focused and\r\n       not (csDesigning in ComponentState) then\r\n      SetCursor(SelStart);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomMaskEdit.SetEditText(const Value: string);\r\nbegin\r\n  FEditText := AddEditFormat(Value, True);\r\n  inherited Text := FEditText;\r\nend;\r\n\r\nprocedure TCustomMaskEdit.SetSel(ASelStart, ASelStop: Integer);\r\nbegin\r\n  SelStart := ASelStart;\r\n  SelLength := Max(1,ASelStop - ASelStart);\r\nend;\r\n\r\nend.\r\n","unit WEBLib.Ctrls.SVG;\r\n\r\ninterface\r\n\r\nconst\r\n  ICON_SEARCH = 'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAPJJREFUOE+l0i0sR1EUAPDfv0ka0UemEhUzhU0yjea'+\r\n    'j0YxJiCrDRqFoPpqPbjRTbHRVQLO73bfd//Mue3s3nt3zO+eee1oanlbDfFXAJFYwFPF77OCyqlgZ2MYqXnEdE8bQjy2sl5EUCJXPcYQlfMXLHdjFHMKdtk5S4A49GEiSi4IBecYbRtMu'+\r\n    'UuADJ1jIDHYfM+j8CzjFfAY4wBS6csAtev95wgvGc8AELnCMxdIQ9zCLaZzlgBDfxFocVvqNfTHpKQ7xvUCqFil0soxhfOMRh9jAINqQOqvcjZuIPBSbWgcIXQfkCp8YCYG6wK8fbgz8A'+\r\n    'H9+LhG4lkRRAAAAAElFTkSuQmCC';\r\n\r\n  ICON_SEARCH_SVG = 'data:image/svg+xml;base64,PD94bWwgdmVyc2lvbj0iMS4wIiA/PjxzdmcgZW5hYmxlLWJhY2tncm91bmQ9Im5ldyAwIDAgMzIgMzIiIGlkPSJHbHlwaCIgdmV'+\r\n    'yc2lvbj0iMS4xIiB2aWV3Qm94PSIwIDAgMzIgMzIiIHhtbDpzcGFjZT0icHJlc2VydmUiIHhtbG5zPSJodHRwOi8vd3d3LnczLm9yZy8yMDAwL3N2ZyIgeG1sbnM6eGxpbms9Imh0dHA6'+\r\n    'Ly93d3cudzMub3JnLzE5OTkveGxpbmsiPjxwYXRoIGQ9Ik0yNy40MTQsMjQuNTg2bC01LjA3Ny01LjA3N0MyMy4zODYsMTcuOTI4LDI0LDE2LjAzNSwyNCwxNGMwLTUuNTE0LTQuNDg2L'+\r\n    'TEwLTEwLTEwUzQsOC40ODYsNCwxNCAgczQuNDg2LDEwLDEwLDEwYzIuMDM1LDAsMy45MjgtMC42MTQsNS41MDktMS42NjNsNS4wNzcsNS4wNzdjMC43OCwwLjc4MSwyLjA0OCwwLjc4MS'+\r\n    'wyLjgyOCwwICBDMjguMTk1LDI2LjYzMywyOC4xOTUsMjUuMzY3LDI3LjQxNCwyNC41ODZ6IE03LDE0YzAtMy44NiwzLjE0LTcsNy03czcsMy4xNCw3LDdzLTMuMTQsNy03LDdTNywxNy4'+\r\n    '4Niw3LDE0eiIgaWQ9IlhNTElEXzIyM18iLz48L3N2Zz4=';\r\n\r\n  ICON_FILTER = 'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAPhJREFUOE/N078rxWEUx/HXpYz+ABN2A4q6ZTBZkCy'+\r\n    '3rMomm7qDukWxir9BpKRYLW7Rne5kpvwHRj+io+dbt2/fr68fi7M9z/mcd+d8zvPU/DFqGMYu+n/IekMzAKPoYgAX34Qs4BnjAYiYwyW2sFcBaWIbS1GTAaJmHftYwXEJZBmn2MBhaHoB'+\r\n    'cT7AKmbRyUEmcI0jrGW5PCCMPMckpvGYhEMJeId5vJYB4n4QN8mkmSRsJ5PreOrtLN9BlovV3iNmjjjDCB7y3pQBQveORio4KfDrM/W/AS+4wi1avxlhETsYSz4UjvuVB1HXlzYxhc2i1'+\r\n    '1kFqPxbH57RKFOftCADAAAAAElFTkSuQmCC';\r\n\r\n  ICON_FILTER_SVG = 'data:image/svg+xml;base64,PD94bWwgdmVyc2lvbj0iMS4wIiA/PjxzdmcgaWQ9IkxheWVyXzEiIHN0eWxlPSJlbmFibGUtYmFja2dyb3VuZDpuZXcgMCAwIDI0'+\r\n    'IDI0OyIgdmVyc2lvbj0iMS4xIiB2aWV3Qm94PSIwIDAgMjQgMjQiIHhtbDpzcGFjZT0icHJlc2VydmUiIHhtbG5zPSJodHRwOi8vd3d3LnczLm9yZy8yMDAwL3N2ZyIgeG1sbnM6eGxpb'+\r\n    'ms9Imh0dHA6Ly93d3cudzMub3JnLzE5OTkveGxpbmsiPjxzdHlsZSB0eXBlPSJ0ZXh0L2NzcyI+Cgkuc3Qwe2ZpbGw6bm9uZTtzdHJva2U6IzAwMDAwMDtzdHJva2Utd2lkdGg6MS42Nz'+\r\n    'I0O3N0cm9rZS1saW5lY2FwOnJvdW5kO3N0cm9rZS1saW5lam9pbjpyb3VuZDtzdHJva2UtbWl0ZXJsaW1pdDoxMDt9Cgkuc3Qxe2ZpbGw6bm9uZTtzdHJva2U6IzAwMDAwMDtzdHJva2U'+\r\n    'td2lkdGg6MS41O3N0cm9rZS1saW5lY2FwOnJvdW5kO3N0cm9rZS1saW5lam9pbjpyb3VuZDtzdHJva2UtbWl0ZXJsaW1pdDoxMDt9Cgkuc3Qye2ZpbGw6bm9uZTtzdHJva2U6IzAwMDAw'+\r\n    'MDtzdHJva2Utd2lkdGg6MS41O3N0cm9rZS1saW5lam9pbjpyb3VuZDtzdHJva2UtbWl0ZXJsaW1pdDoxMDt9Cjwvc3R5bGU+PGc+PGc+PGc+PHBhdGggZD0iTTIyLjIsMS41bC04LjUsM'+\r\n    'TEuMmMtMC4yLDAuMy0wLjMsMC42LTAuMywwLjl2Ny44bC0yLjcsMC44di04LjZjMC0wLjMtMC4xLTAuNi0wLjMtMC45TDEuOCwxLjVIMjIuMiBNMjIuOCwwSDEuMiAgICAgYy0xLDAtMS'+\r\n    '41LDEuMS0wLjksMS45bDguOSwxMS44djkuNmMwLDAuNCwwLjMsMC43LDAuNywwLjdjMC4xLDAsMC4xLDAsMC4yLDBsNC4zLTEuM2MwLjMtMC4xLDAuNS0wLjQsMC41LTAuN3YtOC4zbDg'+\r\n    'uOS0xMS44ICAgICBDMjQuMywxLjEsMjMuOCwwLDIyLjgsMEwyMi44LDB6Ii8+PC9nPjwvZz48L2c+PC9zdmc+';\r\n\r\n  ICON_EYE = 'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAQJJREFUOE+1080qxVEUBfDfnZABGWNCyUDJSDyCJ2BiJu'+\r\n    'V7aoKYMJCirq8p5QV4CMxkyIjyBsiEto7a3e4tt5sz+f/P3uuss9Y651S0OCotrvcvBN1YwBQG8YUnXOEYz1l1rYJZ7KOzgbU3rBfMDyQTbGCrLPwswIsyn8E22sr8EKuZYBqXadc1POC'+\r\n    '0WJjDCHYTZhFHoWAIt+hKzZ5S6yu18D2G14T5wHgQDOMOHanZixtkggm81COI2goOaizc4yxZGMVOwiyh+htifE8QXmNEiBHqeYMQq1gO8nwK8R/hbaK9wTG+l/5eUVb3JvZjHpMYKESP'+\r\n    'uP7LRWr6afzLW2hKxTf9UTFvsYQFoAAAAABJRU5ErkJggg==';\r\n\r\n\r\n  ICON_EYE_SVG = 'data:image/svg+xml;base64,PD94bWwgdmVyc2lvbj0iMS4wIiA/PjwhRE9DVFlQRSBzdmcgIFBVQkxJQyAnLS8vVzNDLy9EVEQgU1ZHIDEuMS8vRU4nICAnaHR0cD'+\r\n    'ovL3d3dy53My5vcmcvR3JhcGhpY3MvU1ZHLzEuMS9EVEQvc3ZnMTEuZHRkJz48c3ZnIGVuYWJsZS1iYWNrZ3JvdW5kPSJuZXcgMCAwIDI0IDI0IiBoZWlnaHQ9IjI0cHgiIGlkPSJMYXl'+\r\n    'lcl8xIiB2ZXJzaW9uPSIxLjEiIHZpZXdCb3g9IjAgMCAyNCAyNCIgd2lkdGg9IjI0cHgiIHhtbDpzcGFjZT0icHJlc2VydmUiIHhtbG5zPSJodHRwOi8vd3d3LnczLm9yZy8yMDAwL3N2'+\r\n    'ZyIgeG1sbnM6eGxpbms9Imh0dHA6Ly93d3cudzMub3JnLzE5OTkveGxpbmsiPjxnPjxnPjxwYXRoIGNsaXAtcnVsZT0iZXZlbm9kZCIgZD0iTTEyLDRDNC4wNjMsNC0wLjAxMiwxMi0wL'+\r\n    'jAxMiwxMlMzLjA2MywyMCwxMiwyMCAgICBjOC4wOTMsMCwxMi4wMTEtNy45NjksMTIuMDExLTcuOTY5UzIwLjA2Miw0LDEyLDR6IE0xMi4wMTgsMTdjLTIuOTAyLDAtNS0yLjE4OC01LT'+\r\n    'VjMC0yLjgxMywyLjA5OC01LDUtNWMyLjkwMiwwLDUsMi4xODcsNSw1ICAgIEMxNy4wMTgsMTQuODEyLDE0LjkyLDE3LDEyLjAxOCwxN3ogTTEyLjAxOCw5Yy0xLjY1OCwwLjAwMy0zLDE'+\r\n    'uMzkzLTMsM2MwLDEuNjA2LDEuMzQyLDMsMywzYzEuNjU4LDAsMy0xLjM5NSwzLTMgICAgQzE1LjAxOCwxMC4zOTIsMTMuNjc2LDguOTk3LDEyLjAxOCw5eiIgZmlsbC1ydWxlPSJldmVu'+\r\n    'b2RkIi8+PC9nPjwvZz48L3N2Zz4=';\r\n\r\nimplementation\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            Copyright (c) 2018 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.Grids;\r\n\r\n{$DEFINE NOPP}\r\n\r\ninterface\r\n\r\n{$HINTS OFF}\r\n\r\nuses\r\n  Classes, JS, WEBLib.Controls, WEBLib.Graphics, Web, DB, jsdelphisystem,\r\n  WEBLib.Menus, WEBLib.StdCtrls, WEBLib.Mask, WEBLib.Ctrls.SVG, Types;\r\n\r\ntype\r\n{\r\n  TJSTable = class external name 'Table' (TJSNode)\r\n  private\r\n    FRows : TJSElement; external name 'rows';\r\n\r\n  public\r\n\r\n  end;\r\n}\r\n  TInitMethod = (imRandom, imLinear);\r\n\r\n  TGridRect = record\r\n    Left, Top, Right, Bottom: Longint;\r\n  end;\r\n\r\n  TGridCoord = record\r\n    X: Longint;\r\n    Y: Longint;\r\n  end;\r\n\r\n  TGridOption = (goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine,\r\n    goRangeSelect, goDrawFocusSelected, goRowSizing, goColSizing, goRowMoving,\r\n    goColMoving, goEditing, goTabs, goRowSelect, goAlwaysShowEditor,\r\n    goThumbTracking, goFixedColClick, goFixedRowClick, goFixedHotTrack,goFixedRowDefAlign);\r\n\r\n  TGridDrawState = set of (gdSelected, gdFocused, gdFixed, gdRowSelected,\r\n    gdHotTrack, gdPressed);\r\n\r\n  TGridSortIndicator = (siNone, siAscending, siDescending);\r\n\r\n  TGridCellEditor = (geText, geNumber, geDate, geTime, geRange, geColor, geWeek, geMonth, geURL, geEmail, geTel, geMask, geCombo, geMemo, geNone, geCustom);\r\n\r\n  TGridOptions = set of TGridOption;\r\n\r\n  TGridGetCellDataEvent = procedure(Sender: TObject; ACol,ARow: integer; AField: TField; var AValue: string) of object;\r\n\r\n  TGridGetCellClassEvent = procedure(Sender: TObject; ACol,ARow: integer; AField: TField; AValue: string; var AClassName: string) of object;\r\n\r\n  TGridGetCellChildrenEvent = procedure(Sender: TObject; ACol,ARow: integer; AField: TField; AValue: string; AElement: TJSHTMLElementRecord) of object;\r\n\r\n  TGridGetCellEditorEvent = procedure(Sender: TObject; ACol,ARow: integer; var AEditor: TGridCellEditor) of object;\r\n\r\n  TGridRequestEvent = procedure(Sender: TObject; ARequest: TJSXMLHttpRequestRecord) of object;\r\n\r\n  TGridSortClickEvent = procedure(Sender: TObject; ACol,ARow: integer; ASortIndicator: TGridSortIndicator) of object;\r\n\r\n  TDrawCellEvent = procedure(Sender: TObject; ACol, ARow: Longint; Rect: TRect; State: TGridDrawState) of object;\r\n\r\n  TGetEditEvent = procedure(Sender: TObject; ACol, ARow: Longint; var Value: string) of object;\r\n  TSetEditEvent = procedure(Sender: TObject; ACol, ARow: Longint; const Value: string) of object;\r\n\r\n  TSetEditControlValueEvent = procedure(Sender: TObject; ACol, ARow: Longint; AControl: TControl; const Value: string) of object;\r\n  TGetEditControlValueEvent = procedure(Sender: TObject; ACol, ARow: Longint; AControl: TControl; var Value: string) of object;\r\n\r\n  TCustomGrid = class(TWebCustomControl)\r\n  private\r\n    FRowCount: integer;\r\n    FColCount: integer;\r\n    function GetCells(ACol, ARow: integer): string; virtual;\r\n    procedure SetCells(ACol, ARow: integer; const Value: string); virtual;\r\n    function GetCellsArray: TJSArray;\r\n    procedure SetCellsArray(const Value: TJSArray);\r\n  protected\r\n    function ColOffset: integer; virtual;\r\n    function RowOffset: integer; virtual;\r\n    procedure SetColCount(const Value: integer); virtual;\r\n    procedure SetRowCount(const Value: integer); virtual;\r\n    procedure GridChanged; virtual;\r\n    procedure RowCountChanged(delta: integer); virtual;\r\n    procedure ColCountChanged(delta: integer); virtual;\r\n    property RowCount: integer read FRowCount write SetRowCount;\r\n    property ColCount: integer read FColCount write SetColCount;\r\n  public\r\n    property CellsArray: TJSArray read GetCellsArray write SetCellsArray;\r\n    property Visible;\r\n    procedure Clear; virtual;\r\n    property Cells[ACol,ARow: integer]: string read GetCells write SetCells;\r\n    property BorderColor;\r\n  end;\r\n\r\n  // for VCL design-time compatibility\r\n  TGridDrawingStyle = (gdsClassic, gdsThemed, gdsGradient);\r\n\r\n  TCellEvent = procedure(Sender: TObject; ACol, ARow: integer) of object;\r\n  TCellCheckEvent = procedure(Sender: TObject; ACol, ARow: integer; Checked: boolean) of object;\r\n  TCellCanEditEvent = procedure(Sender: TObject; ACol,ARow: integer; var CanEdit: boolean) of object;\r\n\r\n  TSelectCellEvent = procedure(Sender: TObject; ACol, ARow: integer; var CanSelect: boolean) of object;\r\n  TColumnSizedEvent = procedure(Sender: TObject; ACol: integer) of object;\r\n\r\n  TGridRange = class(TPersistent)\r\n  private\r\n    FMax: single;\r\n    FMin: single;\r\n    FStep: single;\r\n  public\r\n    constructor Create;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property Min: single read FMin write FMin default 0;\r\n    property Max: single read FMax write FMax default 100;\r\n    property Step: single read FStep write FStep default 1;\r\n  end;\r\n\r\n  TObjectRow = TList;\r\n\r\n  TCustomStringGrid = class(TCustomGrid, ITMSFNCDataBinderGrid)\r\n  private\r\n    FReq: TJSXMLHttpRequest;\r\n    FDataNode: string;\r\n    FOrigVal: string;\r\n    FGrid: TJSElement;\r\n    FFixedColor: TColor;\r\n    FFixedColRow: TJSElement;\r\n    FFixedRow: TJSElement;\r\n    FFixedCol: TJSElement;\r\n    FNormalCells: TJSElement;\r\n    FDefaultColAlignment: TAlignment;\r\n    FDefaultRowHeight: integer;\r\n    FDefaultColWidth: integer;\r\n    FColWidths: TList;\r\n    FRowHeights: TList;\r\n    FColAlignments: TList;\r\n    FSelectedCell: TJSElement;\r\n    FEdit: TJSHTMLElement;\r\n    FFixedCols: integer;\r\n    FFixedRows: integer;\r\n    FEditMode: boolean;\r\n    FBlockFocus: boolean;\r\n    FOnSelectCell: TSelectCellEvent;\r\n    FOnTopLeftChanged: TNotifyEvent;\r\n    FOptions: TGridOptions;\r\n    FDelimiter: char;\r\n    FLoadFixed: boolean;\r\n    FSelection: TGridRect;\r\n    FStartCell: TGridCoord;\r\n    FOnHttpRequestError: TNotifyEvent;\r\n    FOnHttpRequestSuccess: TNotifyEvent;\r\n    FOnGetCellClass: TGridGetCellClassEvent;\r\n    FOnGetCellData: TGridGetCellDataEvent;\r\n    FOnGetCellChildren: TGridGetCellChildrenEvent;\r\n    FScrollBars: TScrollStyle;\r\n    FSelMouseDown: boolean;\r\n    FStyleElements: TStyleElements;\r\n    FDefaultDrawing: boolean;\r\n    FDragCursor: TCursor;\r\n    FDragKind: TDragKind;\r\n    FGradientStartColor: TColor;\r\n    FGradientEndColor: TColor;\r\n    FEditCol: integer;\r\n    FEditRow: integer;\r\n    FEditType: TGridCellEditor;\r\n    FFixedFont: TFont;\r\n    FCtl3D: boolean;\r\n    FParentCtl3D: boolean;\r\n    FOnGetEditText: TGetEditEvent;\r\n    FOnSetEditText: TSetEditEvent;\r\n    FOnHttpRequest: TGridRequestEvent;\r\n    FOnCheckClick: TCellCheckEvent;\r\n    FOnFixedCellClick: TCellEvent;\r\n    FOnValidateEdit: TGetEditEvent;\r\n    FHandleEditBlurPtr: pointer;\r\n    FHandleEditKeypressPtr: pointer;\r\n    FHandleCheckClickPtr: pointer;\r\n    FHandleButtonClickPtr: pointer;\r\n    FHandleMouseDownPtr: pointer;\r\n    FHandleMouseMovePtr: pointer;\r\n    FHandleMouseUpPtr: pointer;\r\n    FHandleFocusPtr: pointer;\r\n    FHandleBlurPtr: pointer;\r\n    FHandleFixedClickPtr: pointer;\r\n    FHandleClickPtr: pointer;\r\n    FDrawingStyle: TGridDrawingStyle;\r\n    FOnCanEditCell: TCellCanEditEvent;\r\n    FOnColumnSized: TColumnSizedEvent;\r\n    FRows: TStringList;\r\n    FRowsIndex: integer;\r\n    FOnGetCellEditor: TGridGetCellEditorEvent;\r\n    FCombo: TWebComboBox;\r\n    FMemo: TWebMemo;\r\n    FMask: TWebMaskEdit;\r\n    FEditMask: TEditMask;\r\n    FComboBoxItems: TStrings;\r\n    FRange: TGridRange;\r\n    FShowSelection: boolean;\r\n    FOnClickCell: TCellEvent;\r\n    FElementTableClassName: string;\r\n    FGridLineColor: TColor;\r\n    FSelectionTextColor: TColor;\r\n    FSelectionColor: TColor;\r\n    FWordWrap: boolean;\r\n    FOnButtonClick: TCellEvent;\r\n    FSortIndex: integer;\r\n    FSortDirection: TGridSortIndicator;\r\n    FOnSortClick: TGridSortClickEvent;\r\n    FHasMergedCells: boolean;\r\n    FObjectRows: TList;\r\n    FEditAdvance: boolean;\r\n    FEditControl: TControl;\r\n    FOrigID: string;\r\n    FOnSetEditControlValue: TSetEditControlValueEvent;\r\n    FOnGetEditControlValue: TGetEditControlValueEvent;\r\n    FOnDblClickCell: TCellEvent;\r\n    function GetCells(ACol, ARow: integer): string; override;\r\n    procedure SetCells(ACol, ARow: integer; const Value: string); override;\r\n    procedure SetFixedCols(const Value: integer);\r\n    procedure SetFixedRows(const Value: integer);\r\n    procedure SetColor(AValue: TColor); override;\r\n    function GetColWidths(ACol: integer): integer;\r\n    function GetRowHeights(ARow: integer): integer;\r\n    procedure SetColWidths(ACol: integer; const Value: integer);\r\n    procedure SetRowHeights(ARow: integer; const Value: integer);\r\n    procedure SetDefaultColWidth(const Value: integer);\r\n    procedure SetDefaultRowHeight(const Value: integer);\r\n    function GetCol: integer;\r\n    function GetRow: integer;\r\n    procedure SetCol(const Value: integer);\r\n    procedure SetRow(const Value: integer);\r\n    function GetCellElements(ACol, ARow: integer): TJSHTMLElement;\r\n    function GetCheckElement(ACol, ARow: integer): TJSHTMLElement;\r\n    function GetCanvasElement(ACol, ARow: integer): TJSHTMLElement;\r\n    function GetButtonElement(ACol, ARow: integer): TJSHTMLElement;\r\n    function GetProgressElement(ACol, ARow: integer): TJSHTMLElement;\r\n    function GetSelection: TGridRect;\r\n    procedure SetSelection(const Value: TGridRect);\r\n    function GetLeftCol: integer;\r\n    function GetTopRow: integer;\r\n    procedure SetLeftCol(const Value: integer);\r\n    procedure SetTopRow(const Value: integer);\r\n    procedure SetFixedColor(const Value: TColor);\r\n    procedure SetFixedTextColor(const Value: TColor);\r\n    function GetFixedTextColor: TColor;\r\n    function GetVisibleColCount: integer;\r\n    function GetVisibleRowCount: integer;\r\n    function GetRows(Index: integer): TStrings;\r\n    procedure SetRows(Index: integer; const Value: TStrings);\r\n    procedure RowsChanged(Sender: TObject);\r\n    function GetCheckState(ACol, ARow: integer): boolean;\r\n    procedure SetCheckState(ACol, ARow: integer; const Value: boolean);\r\n    function GetCheckEnabled(ACol, ARow: integer): boolean;\r\n    procedure SetCheckEnabled(ACol, ARow: integer; const Value: boolean);\r\n    procedure SetRange(const Value: TGridRange);\r\n    procedure SetElementTableClassName(const Value: string);\r\n    procedure SetGridLineColor(const Value: TColor);\r\n    procedure SetSelectionColor(const Value: TColor);\r\n    procedure SetSelectionTextColor(const Value: TColor);\r\n    function GetColAlignments(ACol: integer): TAlignment;\r\n    procedure SetColAlignments(ACol: integer; const Value: TAlignment);\r\n    procedure SetAlignAttr(AAlign: TAlignment; AElement: TJSElement);\r\n    procedure SetSortIndex(const Value: integer);\r\n    procedure SetDefaultColAlignment(const Value: TAlignment);\r\n    function GetObjects(ACol, ARow: integer): TObject;\r\n    procedure SetObjects(ACol, ARow: integer; const Value: TObject);\r\n    procedure SetFixedFont(const Value: TFont);\r\n  protected\r\n    // ITMSFNCDataBinderGrid interface\r\n    function GetDataRowCount: Integer;\r\n    procedure ClearData;\r\n    procedure SetDataColumnCount(AValue: Integer);\r\n    procedure SetDataRowCount(AValue: Integer);\r\n    procedure SetDataValue(AColumn, ARow: Integer; AValue: string);\r\n    procedure SetDataHeader(AColumn: Integer; AValue: string);\r\n    procedure DataBeginUpdate;\r\n    procedure DataEndUpdate;\r\n    procedure DataInsertRow(AInsertPosition: Integer);\r\n    procedure FontChanged; override;\r\n    procedure UnbindEvents; override;\r\n    procedure FixedFontChanged(Sender: TObject); virtual;\r\n\r\n    function StylePrefix: string;\r\n    function ColOffset: integer; override;\r\n    function RowOffset: integer; override;\r\n    function CellColSpan(ACol,ARow: integer): integer;\r\n    function CellRowSpan(ACol,ARow: integer): integer;\r\n    function CellRealElement(const ACol,ARow: integer): TJSHTMLElement;\r\n    procedure CellRealCoords(AElement: TJSHTMLElement;var ACol: integer; var ARow: integer);\r\n    function GetDirectCellElements(ACol, ARow: integer): TJSHTMLElement;\r\n\r\n    procedure MouseMove(Shift: TShiftState; X,Y: Integer); override;\r\n    function HandleClick(Event: TJSEvent): Boolean; virtual;\r\n    function HandleFixedClick(Event: TJSEvent): Boolean; virtual;\r\n    function HandleMouseDown(Event: TJSMouseEvent): Boolean; virtual;\r\n    function HandleMouseMove(Event: TJSMouseEvent): Boolean; virtual;\r\n    function HandleMouseUp(Event: TJSMouseEvent): Boolean; virtual;\r\n    function HandleKeyDown(Event: TJSKeyboardEvent): boolean; virtual;\r\n    function HandleTableFocus(Event: TJSEvent): Boolean; virtual;\r\n    function HandleTableBlur(Event: TJSEvent): Boolean; virtual;\r\n    function HandleScroll(Event: TJSEvent): Boolean; virtual;\r\n    function HandleEditBlur(Event: TJSEvent): Boolean; virtual;\r\n    function HandleEditKeyPress(Event: TJSKeyboardEvent): boolean; virtual;\r\n\r\n    procedure HandleComboExit(Sender: TObject);\r\n    procedure HandleComboKeyPress(Sender: TObject; var Key: Char);\r\n    procedure HandleMaskExit(Sender: TObject);\r\n    procedure HandleMaskKeyPress(Sender: TObject; var Key: Char);\r\n    procedure HandleMemoExit(Sender: TObject);\r\n    procedure HandleMemoKeyPress(Sender: TObject; var Key: Char);\r\n\r\n    function HandleCheckBoxClick(Event: TJSEvent): Boolean; virtual;\r\n    function HandleButtonClick(Event: TJSEvent): Boolean; virtual;\r\n    function HandleDoMouseUp(Event: TJSMouseEvent): Boolean; override;\r\n    function HandleDoMouseMove(Event: TJSMouseEvent): Boolean; override;\r\n    function HandleDoClick(Event: TJSMouseEvent): Boolean; override;\r\n    function HandleDoDblClick(Event: TJSMouseEvent): Boolean; override;\r\n    function DoHttpLoadJson(Event: TEventListenerEvent): boolean; virtual;\r\n    function DoHttpLoadCsv(Event: TEventListenerEvent): boolean; virtual;\r\n    function DoHttpAbort(Event: TEventListenerEvent): boolean; virtual;\r\n    procedure DoHttpRequest(ARequest: TJSXMLHttpRequest); virtual;\r\n    procedure DoCheckClick(ACol, ARow: Longint; Checked: boolean); virtual;\r\n    procedure DoButtonClick(ACol, ARow: Longint); virtual;\r\n    procedure DoSortClick(ACol, ARow: Longint; ASortIndicator: TGridSortIndicator); virtual;\r\n    function GetEditText(ACol, ARow: Longint): string; virtual;\r\n    procedure SetEditText(ACol, ARow: Longint; const AValue: string); virtual;\r\n\r\n    procedure SetEditControlValue(ACol,ARow: Longint; AControl: TControl; AValue: string); virtual;\r\n    procedure GetEditControlValue(ACol,ARow: Longint; AControl: TControl; var AValue: string); virtual;\r\n    procedure DoEditControlExit(Sender: TObject); virtual;\r\n\r\n    procedure GetCellData(ACol,ARow: integer; AField: TField; var AValue: string); virtual;\r\n    procedure GetCellClassName(ACol,ARow: integer; AField: TField; AValue: string; var AClassName: string); virtual;\r\n    procedure GetCellChildren(ACol,ARow: integer; AField: TField; AValue: string; AElement: TJSHTMLElement); virtual;\r\n    procedure GetCellEditor(const ACol,ARow: integer; var AEditor: TGridCellEditor); virtual;\r\n    procedure AddSelection(ACell: TJSElement); virtual;\r\n    procedure RemoveSelection(ACell: TJSElement); virtual;\r\n    procedure BindCellChildren(ACol,ARow: integer; AElement: TJSHTMLElement); virtual;\r\n    procedure UnBindCellChildren(ACol,ARow: integer; AElement: TJSHTMLElement); virtual;\r\n    procedure DoBoundsChange; override;\r\n    procedure DoColumnSized(AColumn: integer); virtual;\r\n    procedure LoadFromStringList(AStrings: TStrings);\r\n    function GetGridCSS(id: string): string; virtual;\r\n    procedure RenderGrid;\r\n    procedure ReRenderGrid;\r\n    procedure RenderGridSize;\r\n    procedure RenderGridScript;\r\n    procedure UpdateGridSize;\r\n    procedure UpdateGridAlignment;\r\n    procedure BindEvents; override;\r\n    procedure Resize; override;\r\n    procedure DoEnter; override;\r\n    procedure DoExit; override;\r\n    procedure GridChanged; override;\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElement; override;\r\n    procedure UpdateElementVisual; override;\r\n    function FixedColWidth: integer;\r\n    function FixedRowHeight: integer;\r\n    function NormalColWidth: integer;\r\n    function NormalRowHeight: integer;\r\n    function FocusedCell: TJSElement;\r\n    function CanSelect(ACol, ARow: integer): boolean; virtual;\r\n    function CanRowAdvance: boolean; virtual;\r\n    function HasSelection: boolean;\r\n    procedure UpdateCell(ACol, ARow: integer; var AValue: string); virtual;\r\n    procedure ValidateCell(ACol, ARow: integer; var AValue: string); virtual;\r\n    procedure TopLeftChanged; virtual;\r\n    procedure RowCountChanged(delta: integer); override;\r\n    procedure ColCountChanged(delta: integer); override;\r\n    procedure ClearMethodPointers; override;\r\n    procedure GetMethodPointers; override;\r\n    procedure StartEdit(ch: string); virtual;\r\n    function StopEdit: string; virtual;\r\n    function CanEditCell(ACol,ARow: integer): boolean; virtual;\r\n    procedure ChangeRow; virtual;\r\n    property ColCount;\r\n    property RowCount;\r\n    property OriginalValue: string read FOrigVal;\r\n    property OnHttpRequestError: TNotifyEvent read FOnHttpRequestError write FOnHttpRequestError;\r\n    property OnHttpRequestSuccess: TNotifyEvent read FOnHttpRequestSuccess write FOnHttpRequestSuccess;\r\n    property OnHttpRequest: TGridRequestEvent read FOnHttpRequest write FOnHttpRequest;\r\n    procedure EnableColResize;\r\n    procedure EnableDrag; override;\r\n    procedure DisableDrag; override;\r\n    procedure BindCellButton(ACol,ARow: integer; AElement: TJSHTMLElement); virtual;\r\n    procedure InitCSSLibrary(ALibrary: TCSSLibrary); override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override; overload;\r\n    destructor Destroy; override;\r\n    procedure CreateInitialize; override;\r\n    procedure SetFocus; override;\r\n    procedure ShowEdit; virtual;\r\n    procedure HideEdit(Advance: boolean = false); virtual;\r\n    procedure CancelEdit; virtual;\r\n    procedure Clear; override;\r\n    procedure ClearSelection;\r\n    property Rows[Index: integer]: TStrings read GetRows write SetRows;\r\n    procedure InitSample(AInitMethod: TInitMethod);\r\n    property Ctl3D: boolean read FCtl3D write FCtl3D;\r\n    property ParentCtl3D: boolean read FParentCtl3D write FParentCtl3D;\r\n    property Col: integer read GetCol write SetCol;\r\n    property Row: integer read GetRow write SetRow;\r\n    property Selection: TGridRect read GetSelection write SetSelection;\r\n    property EditMode: boolean read FEditMode;\r\n    property EditControl: TControl read FEditControl write FEditControl;\r\n    property SortIndex: integer read FSortIndex write SetSortIndex;\r\n    property SortDirection: TGridSortIndicator read FSortDirection;\r\n    procedure Sort(AColumn: integer; ADirection: TGridSortIndicator);\r\n    procedure MouseToCell(X,Y: integer; var C, R: integer);\r\n    procedure LoadFromJSON(const AURL: string; ADataNode: string = ''); overload;\r\n    procedure LoadFromJSON(AJSON: TJSObject; ADataNode: string = ''); overload;\r\n    function LoadFromJSONAsync(const AURL: string; ADataNode: string = ''): TJSPromise;\r\n    procedure LoadFromCSV(const AURL: string; Delimiter: char = ';'; LoadFixed: boolean = false);\r\n    function LoadFromCSVAsync(const AURL: string; Delimiter: char = ';'; LoadFixed: boolean = false): TJSPromise;\r\n    procedure LoadFromStrings(AStrings: TStrings; Delimiter: char = ';'; LoadFixed: boolean = false);\r\n    procedure SaveToCSV(const AFileName: string; Delimiter: char = ';'; SaveFixed: boolean = false);\r\n    procedure SaveToStrings(AStrings: TStrings; Delimiter: char = ';'; SaveFixed: boolean = false);\r\n    procedure SelectCell(ACol, ARow: integer); virtual;\r\n    procedure InsertRow(const Index: integer);\r\n    procedure RemoveRow(const Index: integer);\r\n    procedure InsertColumn(const Index: integer);\r\n    procedure RemoveColumn(const Index: integer);\r\n    property CellElements[ACol,ARow: integer]: TJSHTMLElement read GetCellElements;\r\n    property ColAlignments[ACol: integer]: TAlignment read GetColAlignments write SetColAlignments;\r\n    property ColWidths[ACol: integer]: integer read GetColWidths write SetColWidths;\r\n    property RowHeights[ARow: integer]: integer read GetRowHeights write SetRowHeights;\r\n    property FixedColRow: TJSElement read FFixedColRow;\r\n    property FixedCol: TJSElement read FFixedCol;\r\n    property FixedRow: TJSElement read FFixedRow;\r\n    property TopRow: integer read GetTopRow write SetTopRow;\r\n    property LeftCol: integer read GetLeftCol write SetLeftCol;\r\n    property VisibleRowCount: integer read GetVisibleRowCount;\r\n    property VisibleColCount: integer read GetVisibleColCount;\r\n\r\n    procedure AddCheckBox(const ACol,ARow: integer; AState: boolean = false);\r\n    procedure RemoveCheckBox(const ACol,ARow: integer);\r\n    function HasCheckBox(const ACol,ARow: integer): boolean;\r\n    procedure AddButton(ACol,ARow: integer; AText: string; AStyle: string = '');\r\n    procedure RemoveButton(const ACol,ARow: integer);\r\n    function HasButton(const ACol,ARow: integer): boolean;\r\n\r\n    procedure AddCanvas(const ACol,ARow: integer);\r\n    procedure RemoveCanvas(const ACol,ARow: integer);\r\n    function HasCanvas(const ACol,ARow: integer): boolean;\r\n    function GetCanvas(const ACol,ARow: integer): TJSHTMLCanvasElement;\r\n\r\n    procedure AddSortIndicator(const ACol,ARow: integer; AIndicator: TGridSortIndicator);\r\n    procedure SelectSortIndicator(const ACol,ARow: integer; ASelect: boolean);\r\n    procedure SetSortIndicator(const ACol,ARow: integer; AIndicator: TGridSortIndicator);\r\n    function HasSortIndicator(const ACol, ARow: integer): boolean;\r\n    procedure RemoveSortIndicator(const ACol, ARow: integer);\r\n\r\n    procedure AddProgress(ACol,ARow: integer; APosition: integer; AStyle: string = '');\r\n    procedure SetProgress(ACol,ARow: integer; APosition: integer);\r\n    procedure RemoveProgress(const ACol,ARow: integer);\r\n    function HasProgress(const ACol,ARow: integer): boolean;\r\n\r\n    function HasVertScrollBar: boolean; override;\r\n    function HasHorzScrollBar: boolean; override;\r\n    property CheckState[ACol,ARow: integer]: boolean read GetCheckState write SetCheckState;\r\n    property CheckEnabled[ACol,ARow: integer]: boolean read GetCheckEnabled write SetCheckEnabled;\r\n\r\n    procedure MergeCells(const ACol,ARow, NumCol,NumRow: integer);\r\n    procedure SplitCells(const ACol,ARow: integer);\r\n    function IsMergedCell(const ACol,ARow: integer; var NumCol,NumRow: integer): boolean;\r\n\r\n    property ComboBoxItems: TStrings read FComboBoxItems;\r\n    property Objects[ACol,ARow: integer]: TObject read GetObjects write SetObjects;\r\n\r\n    // for design-time VCL class compatibility\r\n    property DefaultDrawing: boolean read FDefaultDrawing write FDefaultDrawing;\r\n    property DragCursor: TCursor read FDragCursor write FDragCursor;\r\n    property DragKind: TDragKind read FDragKind write FDragKind;\r\n    property DrawingStyle: TGridDrawingStyle read FDrawingStyle write FDrawingStyle;\r\n    property GradientEndColor: TColor read FGradientEndColor write FGradientEndColor;\r\n    property GradientStartColor: TColor read FGradientStartColor write FGradientStartColor;\r\n    property FixedTextColor: TColor read GetFixedTextColor write SetFixedTextColor default clBlack;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property BiDiMode;\r\n    property BorderColor;\r\n    property BorderStyle;\r\n    property Color default clWindow;\r\n    property DragMode;\r\n    property DefaultColAlignment: TAlignment read FDefaultColAlignment write SetDefaultColAlignment default taLeftJustify;\r\n    property DefaultColWidth: integer read FDefaultColWidth write SetDefaultColWidth default 64;\r\n    property DefaultRowHeight: integer read FDefaultRowHeight write SetDefaultRowHeight default 24;\r\n    property EditAdvance: boolean read FEditAdvance write FEditAdvance default false;\r\n    property EditMask: TEditMask read FEditMask write FEditMask;\r\n\r\n    property ElementID;\r\n    property ElementClassName;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property ElementTableClassName: string read FElementTableClassName write SetElementTableClassName;\r\n    property FixedRows: integer read FFixedRows write SetFixedRows default 1;\r\n    property FixedCols: integer read FFixedCols write SetFixedCols default 1;\r\n    property FixedColor: TColor read FFixedColor write SetFixedColor default clBtnFace;\r\n    property FixedFont: TFont read FFixedFont write SetFixedFont;\r\n    property Font;\r\n    property GridLineColor: TColor read FGridLineColor write SetGridLineColor default clSilver;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Margins;\r\n    property Options: TGridOptions read FOptions write FOptions;\r\n    property ParentFont;\r\n    property ParentBiDiMode;\r\n    property PopupMenu;\r\n    property RangeEdit: TGridRange read FRange write SetRange;\r\n    property Scrollbars: TScrollStyle read FScrollBars write FScrollBars default ssBoth;\r\n    property SelectionColor: TColor read FSelectionColor write SetSelectionColor default $FF8F5B;\r\n    property SelectionTextColor: TColor read FSelectionTextColor write SetSelectionTextColor default $FFFFFF;\r\n    property ShowSelection: boolean read FShowSelection write FShowSelection default true;\r\n    property StyleElements: TStyleElements read FStyleElements write FStyleElements;\r\n    property TabOrder;\r\n\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property WordWrap: boolean read FWordWrap write FWordWrap default false;\r\n\r\n    property OnClick;\r\n    property OnClickCell: TCellEvent read FOnClickCell write FOnClickCell;\r\n    property OnDblClick;\r\n    property OnDblClickCell: TCellEvent read FOnDblClickCell write FOnDblClickCell;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnMouseWheelDown;\r\n    property OnMouseWheelUp;\r\n    property OnCanEditCell: TCellCanEditEvent read FOnCanEditCell write FOnCanEditCell;\r\n    property OnColumnSized: TColumnSizedEvent read FOnColumnSized write FOnColumnSized;\r\n    property OnGetCellData: TGridGetCellDataEvent read FOnGetCellData write FOnGetCellData;\r\n    property OnGetCellChildren: TGridGetCellChildrenEvent read FOnGetCellChildren write FOnGetCellChildren;\r\n    property OnGetCellClass: TGridGetCellClassEvent read FOnGetCellClass write FOnGetCellClass;\r\n    property OnGetCellEditor: TGridGetCellEditorEvent read FOnGetCellEditor write FOnGetCellEditor;\r\n    property OnButtonClick: TCellEvent read FOnButtonClick write FOnButtonClick;\r\n    property OnCheckClick: TCellCheckEvent read FOnCheckClick write FOnCheckClick;\r\n    property OnFixedCellClick: TCellEvent read FOnFixedCellClick write FOnFixedCellClick;\r\n    property OnGetEditText: TGetEditEvent read FOnGetEditText write FOnGetEditText;\r\n    property OnSetEditText: TSetEditEvent read FOnSetEditText write FOnSetEditText;\r\n\r\n    property OnSetEditControlValue: TSetEditControlValueEvent read FOnSetEditControlValue write FOnSetEditControlValue;\r\n    property OnGetEditControlValue: TGetEditCOntrolValueEvent read FOnGetEditControlValue write FOnGetEditControlValue;\r\n\r\n    property OnSelectCell: TSelectCellEvent read FOnSelectCell write FOnSelectCell;\r\n    property OnSortClick: TGridSortClickEvent read FOnSortClick write FOnSortClick;\r\n    property OnTopLeftChanged: TNotifyEvent read FOnTopLeftChanged write FOnTopLeftChanged;\r\n    property OnValidateEdit: TGetEditEvent read FOnValidateEdit write FOnValidateEdit;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TStringGrid = class(TCustomStringGrid)\r\n  published\r\n    property ColCount;\r\n    property RowCount;\r\n    property OnHttpRequestError;\r\n    property OnHttpRequestSuccess;\r\n  end;\r\n\r\n  TWebStringGrid = class(TStringGrid);\r\n\r\n  TCustomTableControl = class;\r\n\r\n  TTablePager = (tpNone, tpDropDown, tpLink, tpButton, tpList, tpPrevNext);\r\n  TTablePagerAlign = (paRight, paCenter, paLeft);\r\n\r\n  TTableControlHeader = class(TPersistent)\r\n  private\r\n    FPageEventPtr: pointer;\r\n    FFilterEventPtr: pointer;\r\n    FSearchEventPtr: pointer;\r\n    FOwner: TCustomTableControl;\r\n    FElement: TJSHTMLElement;\r\n    FPagerElement: TJSHTMLElement;\r\n    FSearchElement: TJSHTMLElement;\r\n    FFilterElement: TJSHTMLElement;\r\n    FSearchInput: TJSHTMLElement;\r\n    FFilterInput: TJSHTMLElement;\r\n    FVisible: boolean;\r\n    FCaption: string;\r\n    FSearchValue: string;\r\n    FFilterValue: string;\r\n    FOnChange: TNotifyEvent;\r\n    FPager: TTablePager;\r\n    FButtonElementClassName: TElementClassName;\r\n    FLinkElementClassName: TElementClassName;\r\n    FDropDownElementClassName: TElementClassName;\r\n    FListElementClassName: TElementClassName;\r\n    FListItemElementClassName: TElementClassName;\r\n    FInputElementClassName: TElementClassName;\r\n    FFilterColumn: integer;\r\n    FSearch: boolean;\r\n    FFilter: boolean;\r\n    FButtonActiveElementClassName: TElementClassName;\r\n    FLinkActiveElementClassName: TElementClassName;\r\n    FListLinkElementClassName: TElementClassName;\r\n    FPagerAlign: TTablePagerAlign;\r\n    procedure SetCaption(const Value: string);\r\n    procedure SetVisible(const Value: boolean);\r\n    procedure SetPager(const Value: TTablePager);\r\n    procedure SetPagerAlign(const Value: TTablePagerAlign);\r\n  protected\r\n    procedure Changed; virtual;\r\n    procedure Update(PageSize, RowCount, ActivePage: integer);\r\n    function HandlePagerClick(Event: TJSInputEvent): Boolean; virtual;\r\n    function HandleSearchClick(Event: TJSInputEvent): Boolean; virtual;\r\n    function HandleFilterClick(Event: TJSInputEvent): Boolean; virtual;\r\n  public\r\n    constructor Create(AOwner: TCustomTableControl);\r\n    procedure Assign(Source: TPersistent); override;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    property Element: TJSHTMLElement read FElement;\r\n  published\r\n    property FilterColumn: integer read FFilterColumn write FFilterColumn default 0;\r\n    property Filter: boolean read FFilter write FFilter default false;\r\n    property Search: boolean read FSearch write FSearch default false;\r\n    property ButtonActiveElementClassName: TElementClassName read FButtonActiveElementClassName write FButtonActiveElementClassName;\r\n    property ButtonElementClassName: TElementClassName read FButtonElementClassName write FButtonElementClassName;\r\n    property DropDownElementClassName: TElementClassName read FDropDownElementClassName write FDropDownElementClassName;\r\n    property InputElementClassName: TElementClassName read FInputElementClassName write FInputElementClassName;\r\n    property LinkActiveElementClassName: TElementClassName read FLinkActiveElementClassName write FLinkActiveElementClassName;\r\n    property LinkElementClassName: TElementClassName read FLinkElementClassName write FLinkElementClassName;\r\n    property ListElementClassName: TElementClassName read FListElementClassName write FListElementClassName;\r\n    property ListLinkElementClassName: TElementClassName read FListLinkElementClassName write FListLinkElementClassName;\r\n    property ListItemElementClassName: TElementClassName read FListItemElementClassName write FListItemElementClassName;\r\n    property Caption: string read FCaption write SetCaption;\r\n    property Pager: TTablePager read FPager write SetPager;\r\n    property PagerAlign: TTablePagerAlign read FPagerAlign write SetPagerAlign default paRight;\r\n    property Visible: boolean read FVisible write SetVisible default false;\r\n  end;\r\n\r\n  TTableControlPaging = class(TPersistent)\r\n  private\r\n    FOwner: TCustomTableControl;\r\n    FSize: integer;\r\n    FIndex: integer;\r\n    FEnabled: boolean;\r\n    FActivePage: integer;\r\n    FPageCount: integer;\r\n    procedure SetIndex(const Value: integer);\r\n    procedure SetSize(const Value: integer);\r\n    procedure SetEnabled(const Value: boolean);\r\n  public\r\n    constructor Create(AOwner: TCustomTableControl);\r\n    procedure Assign(Source: TPersistent); override;\r\n    property ActivePage: integer read FActivePage;\r\n    property PageCount: integer read FPageCount;\r\n  published\r\n    property Enabled: boolean read FEnabled write SetEnabled default false;\r\n    property Index: integer read FActivePage write SetIndex default 0;\r\n    property Size: integer read FSize write SetSize default 10;\r\n  end;\r\n\r\n  TTableControlOptions = class(TPersistent)\r\n  private\r\n    FOwner: TCustomTableControl;\r\n    FScrollVertical: boolean;\r\n    FResizeColumns: boolean;\r\n    FAutoCellURL: boolean;\r\n    FAutoCellEmail: boolean;\r\n    FAutoCellImage: boolean;\r\n    FCellBorderColor: TColor;\r\n    FCellBorders: boolean;\r\n    FAutoNumAlign: boolean;\r\n    FImageAlign: TAlignment;\r\n    FImageWidth: integer;\r\n    procedure SetResizeColumns(const Value: boolean);\r\n    procedure SetCellBorderColor(const Value: TColor);\r\n    procedure SetCellBorders(const Value: boolean);\r\n    procedure SetScrollVertical(const Value: boolean);\r\n  public\r\n    constructor Create(AOwner: TCustomTableControl);\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property AutoCellEmail: boolean read FAutoCellEmail write FAutoCellEmail default false;\r\n    property AutoCellURL: boolean read FAutoCellURL write FAutoCellURL default false;\r\n    property AutoCellImage: boolean read FAutoCellImage write FAutoCellImage default false;\r\n    property AutoNumAlign: boolean read FAutoNumAlign write FAutoNumAlign default false;\r\n    property CellBorders: boolean read FCellBorders write SetCellBorders default false;\r\n    property CellBorderColor: TColor read FCellBorderColor write SetCellBorderColor default clSilver;\r\n    property ImageAlign: TAlignment read FImageAlign write FImageAlign default taLeftJustify;\r\n    property ImageWidth: integer read FImageWidth write FImageWidth default 0;\r\n    property ScrollVertical: boolean read FScrollVertical write SetScrollVertical default false;\r\n    property ResizeColumns: boolean read FResizeColumns write SetResizeColumns default false;\r\n  end;\r\n\r\n  TPageSelectEvent = procedure(Sender: TObject; NewPage: integer; var Allow: boolean; var DefaultSelect: boolean) of object;\r\n\r\n  TCustomTableControl = class(TCustomGrid, ITMSFNCDataBinderGrid)\r\n  private\r\n    FReq: TJSXMLHttpRequest;\r\n    FDataNode: string;\r\n    FData: JSValue;\r\n    FUnfiltered: JSValue;\r\n    FTable: TJSElement;\r\n    FBody: TJSElement;\r\n    FRowHeader: boolean;\r\n    FColHeader: boolean;\r\n    FDelimiter: char;\r\n    FLoadFixed: boolean;\r\n    FFindCol, FFindRow: integer;\r\n    FFindCase: boolean;\r\n    FFindCondition: string;\r\n    FElementHeaderClassName: TElementClassName;\r\n    FElementTableClassName: TElementClassName;\r\n    FOnHttpRequestError: TNotifyEvent;\r\n    FOnHttpRequestSuccess: TNotifyEvent;\r\n    FOnDblClickCell: TCellEvent;\r\n    FOnClickCell: TCellEvent;\r\n    FOptions: TTableControlOptions;\r\n    FOnGetCellClass: TGridGetCellClassEvent;\r\n    FOnGetCellData: TGridGetCellDataEvent;\r\n    FOnGetCellChildren: TGridGetCellChildrenEvent;\r\n    FOnHttpRequest: TGridRequestEvent;\r\n    FOnCheckClick: TCellCheckEvent;\r\n    FOnButtonClick: TCellEvent;\r\n    FHandleCheckClickPtr: pointer;\r\n    FHandleButtonClickPtr: pointer;\r\n    FOnSortClick: TGridSortClickEvent;\r\n    FSortIndex: integer;\r\n    FSortDirection: TGridSortIndicator;\r\n    FElementSelectionClassName: TElementClassName;\r\n    FElementRowSelectClassName: TElementClassName;\r\n    FRowIndex: integer;\r\n    FSelectionTextColor: TColor;\r\n    FSelectionColor: TColor;\r\n    FHeader: TTableControlHeader;\r\n    FFooter: TTableControlHeader;\r\n    FPaging: TTableControlPaging;\r\n    FOnSelectPage: TPageSelectEvent;\r\n    FHiddenCols: TStringList;\r\n    FWordWrap: boolean;\r\n    function GetCells(col, row: integer): string; override;\r\n    procedure SetCells(col, row: integer; const Value: string); override;\r\n    function GetRowClassName(row: integer): TElementClassName;\r\n    procedure SetRowClassName(row: integer; const Value: TElementClassName);\r\n    function GetCellElement(col, row: integer): TJSHTMLElement;\r\n    function GetCheckElement(ACol, ARow: integer): TJSHTMLElement;\r\n    function GetButtonElement(ACol, ARow: integer): TJSHTMLElement;\r\n    function GetProgressElement(ACol, ARow: integer): TJSHTMLElement;\r\n    procedure SetOptions(const Value: TTableControlOptions);\r\n    procedure SetElementHeaderClassName(const Value: TElementClassName);\r\n    procedure SetElementTableClassName(const Value: TElementClassName);\r\n    procedure SetColHeader(const Value: boolean);\r\n    procedure SetRowHeader(const Value: boolean);\r\n    procedure SetSortIndex(const Value: integer);\r\n    procedure SetRowIndex(const Value: integer);\r\n    procedure SetSelectionColor(const Value: TColor);\r\n    procedure SetSelectionTextColor(const Value: TColor);\r\n    procedure SetFooter(const Value: TTableControlHeader);\r\n    procedure SetHeader(const Value: TTableControlHeader);\r\n    procedure SetPaging(const Value: TTableControlPaging);\r\n    procedure SetTableCell(ACol,ARow: integer; ACell: TJSHTMLElement; const Value: string);\r\n    function GetColWidth(const ACol: integer): integer;\r\n    procedure SetColWidth(const ACol: integer; AWidth: integer);\r\n    procedure SetWordWrap(const AValue: boolean);\r\n  protected\r\n    // ITMSFNCDataBinderGrid interface\r\n    function GetDataRowCount: Integer;\r\n    procedure ClearData;\r\n    procedure SetDataColumnCount(AValue: Integer);\r\n    procedure SetDataRowCount(AValue: Integer);\r\n    procedure SetDataValue(AColumn, ARow: Integer; AValue: string);\r\n    procedure SetDataHeader(AColumn: Integer; AValue: string);\r\n    procedure DataBeginUpdate;\r\n    procedure DataEndUpdate;\r\n    procedure DataInsertRow(AInsertPosition: Integer);\r\n    procedure ClearMethodPointers; override;\r\n    procedure GetMethodPointers; override;\r\n    function HandleDoKeyPress(Event: TJSKeyBoardEvent): Boolean; override;\r\n\r\n    function ColOffset: integer; override;\r\n    function RowOffset: integer; override;\r\n\r\n    function HandleDoClick(Event: TJSMouseEvent): Boolean; override;\r\n    function HandleDoDblClick(Event: TJSMouseEvent): Boolean; override;\r\n    function HandleCheckBoxClick(Event: TJSEvent): Boolean; virtual;\r\n    function HandleButtonClick(Event: TJSEvent): Boolean; virtual;\r\n    function HandleDoMouseUp(Event: TJSMouseEvent): Boolean; override;\r\n    function HandleDoMouseMove(Event: TJSMouseEvent): Boolean; override;\r\n    function HandleDoMouseDown(Event: TJSMouseEvent): Boolean; override;\r\n    procedure DoCheckClick(ACol, ARow: Longint; Checked: boolean); virtual;\r\n    procedure DoButtonClick(ACol, ARow: integer); virtual;\r\n    procedure DoSortClick(ACol, ARow: Longint; ASortIndicator: TGridSortIndicator); virtual;\r\n    function DoHttpLoadJson(Event: TEventListenerEvent): boolean; virtual;\r\n    function DoHttpLoadPageJson(Event: TEventListenerEvent): boolean; virtual;\r\n    function DoHttpLoadCsv(Event: TEventListenerEvent): boolean; virtual;\r\n    function DoHttpAbort(Event: TEventListenerEvent): boolean; virtual;\r\n    procedure DoHttpRequest(ARequest: TJSXMLHttpRequest); virtual;\r\n    procedure GetCellData(ACol,ARow: integer; AField: TField; var AValue: string); virtual;\r\n    procedure GetCellClassName(ACol,ARow: integer; AField: TField; AValue: string; var AClassName: string); virtual;\r\n    procedure GetCellChildren(ACol,ARow: integer; AField: TField; AValue: string; AElement: TJSHTMLElement); virtual;\r\n    procedure BindCellCheckBox(ACol,ARow: integer; AElement: TJSHTMLElement); virtual;\r\n    procedure BindCellButton(ACol,ARow: integer; AElement: TJSHTMLElement); virtual;\r\n    procedure RenderGrid;\r\n    procedure ReRenderGrid;\r\n    procedure RenderGridBorders;\r\n    procedure RenderGridData;\r\n    procedure RenderGridScript;\r\n    procedure RenderHeaderFooter;\r\n    procedure BindEvents; override;\r\n    procedure KeyDown(var Key: Word; Shift: TShiftState); override;\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElement; override;\r\n    procedure SetRowCount(const Value: integer); override;\r\n    procedure SetColCount(const Value: integer); override;\r\n    procedure RowCountChanged(delta: integer); override;\r\n    procedure ColCountChanged(delta: integer); override;\r\n    procedure LoadFromStringList(AStrings: TStrings);\r\n    property OnHttpRequestError: TNotifyEvent read FOnHttpRequestError write FOnHttpRequestError;\r\n    property OnHttpRequestSuccess: TNotifyEvent read FOnHttpRequestSuccess write FOnHttpRequestSuccess;\r\n    property OnHttpRequest: TGridRequestEvent read FOnHttpRequest write FOnHttpRequest;\r\n    property RowCount;\r\n    property ColCount;\r\n    procedure EnableColResize;\r\n    procedure EnableDrag; override;\r\n    procedure DisableDrag; override;\r\n    function FindFrom(ACol,ARow: integer; Condition: string; CaseSensitive: boolean = true; AllCells: boolean = false): TGridCoord;\r\n    function RenderRowCount: integer;\r\n    function InVisiblePage(var ARow: integer): boolean;\r\n    procedure DoSelectPage(AIndex: integer);\r\n    procedure SelectPage(AIndex: integer; DoDefault: boolean = true);\r\n    procedure Loaded; override;\r\n    procedure InitCSSLibrary(ALibrary: TCSSLibrary); override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override; overload;\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure Invalidate; override;\r\n    procedure LogData;\r\n    procedure InitSample(AInitMethod: TInitMethod);\r\n    procedure LoadFromJSON(const AURL: string; ADataNode: string = ''); overload;\r\n    procedure LoadFromJSON(AJSON: TJSObject; ADataNode: string = ''); overload;\r\n    function LoadFromJSONAsync(const AURL: string; ADataNode: string = ''): TJSPromise;\r\n    procedure LoadPageFromJSON(const AURL: string; ADataNode: string = ''); overload;\r\n    procedure LoadPageFromJSON(AJSON: TJSObject; ADataNode: string = ''); overload;\r\n    function LoadPageFromJSONAsync(const AURL: string; ADataNode: string = ''): TJSPromise;\r\n    procedure LoadFromCSV(const AURL: string; Delimiter: char = ';'; LoadFixed: boolean = false);\r\n    function LoadFromCSVAsync(const AURL: string; Delimiter: char = ';'; LoadFixed: boolean = false): TJSPromise;\r\n    procedure LoadFromStrings(AStrings: TStrings; Delimiter: char = ';'; LoadFixed: boolean = false);\r\n    procedure SaveToCSV(const AFileName: string; Delimiter: char = ';'; SaveFixed: boolean = false);\r\n    procedure SaveToStrings(AStrings: TStrings; Delimiter: char = ';'; SaveFixed: boolean = false);\r\n    procedure AddCheckBox(ACol, ARow: integer; Checked: boolean = false);\r\n    procedure RemoveCheckBox(ACol, ARow: integer);\r\n    procedure AddCheckBoxColumn(ACol: integer; Checked: boolean = false);\r\n    function HasCheckBox(ACol,ARow: integer): boolean;\r\n    procedure AddButton(ACol,ARow: integer; AText: string; AStyle: string = '');\r\n    procedure AddButtonColumn(ACol: integer; AText: string; AStyle: string = '');\r\n    procedure RemoveButton(ACol,ARow: integer);\r\n    function HasButton(ACol,ARow: integer): boolean;\r\n\r\n    procedure AddSortIndicator(const ACol,ARow: integer; AIndicator: TGridSortIndicator);\r\n    procedure SelectSortIndicator(const ACol,ARow: integer; ASelect: boolean);\r\n    procedure SetSortIndicator(const ACol,ARow: integer; AIndicator: TGridSortIndicator);\r\n    function HasSortIndicator(const ACol, ARow: integer): boolean;\r\n    procedure RemoveSortIndicator(const ACol, ARow: integer);\r\n\r\n    procedure AddProgress(ACol,ARow: integer; APosition: integer; AStyle: string = '');\r\n    procedure SetProgress(ACol,ARow: integer; APosition: integer);\r\n    procedure RemoveProgress(const ACol,ARow: integer);\r\n    function HasProgress(const ACol,ARow: integer): boolean;\r\n\r\n    procedure Clear; override;\r\n    property CellElements[col,row: integer]: TJSHTMLElement read GetCellElement;\r\n    property ColWidths[col: integer]: integer read GetColWidth write SetColWidth;\r\n    property RowClassName[row: integer]: TElementClassName read GetRowClassName write SetRowClassName;\r\n    procedure InsertRow(Index: integer);\r\n    procedure RemoveRow(Index: integer);\r\n\r\n    procedure SetFilter(Column: integer; Condition: string; CaseSensitive: boolean = true);\r\n    procedure RemoveFilter;\r\n    procedure ScrollRowInView(ARow: integer);\r\n    procedure SelectCell(ACol,ARow: integer);\r\n    function FindCell(Condition: string; CaseSensitive: boolean = true; AllCells: boolean = false): TGridCoord;\r\n    function FindNext: TGridCoord;\r\n\r\n    procedure HideColumn(const Index: integer);\r\n    procedure UnHideColumn(const Index: integer);\r\n    function IsHiddenColumn(const Index: integer): boolean;\r\n    procedure HideRow(const Index: integer);\r\n    procedure UnHideRow(const Index: integer);\r\n\r\n    procedure Sort(AColumn: integer; ADirection: TGridSortIndicator);\r\n    property SortIndex: integer read FSortIndex write SetSortIndex;\r\n    property SortDirection: TGridSortIndicator read FSortDirection;\r\n    property RowIndex: integer read FRowIndex write SetRowIndex;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property BorderColor;\r\n    property BorderStyle;\r\n    property Color;\r\n    property DragMode;\r\n    property ElementClassName;\r\n    property ElementFont;\r\n    property ElementID;\r\n    property ElementPosition;\r\n    property ElementHeaderClassName: TElementClassName read FElementHeaderClassName write SetElementHeaderClassName;\r\n    property ElementRowSelectClassName: TElementClassName read FElementRowSelectClassName write FElementRowSelectClassName;\r\n    property ElementSelectionClassName: TElementClassName read FElementSelectionClassName write FElementSelectionClassName;\r\n    property ElementTableClassName: TElementClassName read FElementTableClassName write SetElementTableClassName;\r\n    property Enabled default false;\r\n    property Font;\r\n    property Footer: TTableControlHeader read FFooter write SetFooter;\r\n    property Header: TTableControlHeader read FHeader write SetHeader;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Margins;\r\n    property RowHeader: boolean read FRowHeader write SetRowHeader default true;\r\n    property ColHeader: boolean read FColHeader write SetColHeader default true;\r\n    property Options: TTableControlOptions read FOptions write SetOptions;\r\n    property Paging: TTableControlPaging read FPaging write SetPaging;\r\n    property ParentBiDiMode;\r\n    property PopupMenu;\r\n    property SelectionColor: TColor read FSelectionColor write SetSelectionColor default $FF8F5B;\r\n    property SelectionTextColor: TColor read FSelectionTextColor write SetSelectionTextColor default clWhite;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property WordWrap: boolean read FWordWrap write SetWordWrap default false;\r\n    property OnButtonClick: TCellEvent read FOnButtonClick write FOnButtonClick;\r\n    property OnCheckClick: TCellCheckEvent read FOnCheckClick write FOnCheckClick;\r\n    property OnClick;\r\n    property OnClickCell: TCellEvent read FOnClickCell write FOnClickCell;\r\n    property OnDblClickCell: TCellEvent read FOnDblClickCell write FOnDblClickCell;\r\n    property OnDblClick;\r\n    property OnGetCellData: TGridGetCellDataEvent read FOnGetCellData write FOnGetCellData;\r\n    property OnGetCellChildren: TGridGetCellChildrenEvent read FOnGetCellChildren write FOnGetCellChildren;\r\n    property OnGetCellClass: TGridGetCellClassEvent read FOnGetCellClass write FOnGetCellClass;\r\n    property OnSortClick: TGridSortClickEvent read FOnSortClick write FOnSortClick;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnSelectPage: TPageSelectEvent read FOnSelectPage write FOnSelectPage;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TTableControl = class(TCustomTableControl)\r\n  published\r\n    property RowCount;\r\n    property ColCount;\r\n    property OnHttpRequestError;\r\n    property OnHttpRequestSuccess;\r\n  end;\r\n\r\n  TWebTableControl = class(TTableControl);\r\n\r\n  TResponsiveGridItem = class(TCollectionItem)\r\n  private\r\n    FHTML: string;\r\n    FElementHandle: TJSHTMLElement;\r\n    FTag: integer;\r\n    FItemObject: TObject;\r\n    FVisible: boolean;\r\n    FJSONObject: JSValue;\r\n    FSelected: boolean;\r\n    FRecNo: integer;\r\n    procedure SetHTML(const Value: string);\r\n    procedure SetVisible(const Value: boolean);\r\n    function GetJSONElementValue(id: string): string;\r\n    procedure SetSelected(const Value: boolean);\r\n  protected\r\n    property RecNo: integer read FRecNo write FRecNo;\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    destructor Destroy; override;\r\n    property ElementHandle: TJSHTMLElement read FElementHandle;\r\n    property ItemObject: TObject read FItemObject write FItemObject;\r\n    property JSONElement: JSValue read FJSONObject write FJSONObject;\r\n    property JSONElementValue[id: string]: string read GetJSONElementValue;\r\n    property Selected: boolean read FSelected write SetSelected;\r\n  published\r\n    property HTML: string read FHTML write SetHTML;\r\n    property Tag: integer read FTag write FTag default 0;\r\n    property Visible: boolean read FVisible write SetVisible default true;\r\n  end;\r\n\r\n  TResponsiveGridItemEvent = procedure(Sender: TObject; Index: integer) of object;\r\n\r\n  TResponsiveGridItemTemplateEvent = procedure(Sender: TObject; Index: integer; ItemData: string; var ATemplate: string) of object;\r\n\r\n  TResponsiveGridItemFieldValueEvent = procedure(Sender: TObject; Index: integer; AFieldName: string; var AValue: string) of object;\r\n\r\n  TResponsiveGrid = class;\r\n\r\n  TResponsiveGridItems = class(TOwnedCollection)\r\n  private\r\n    FOnItemDelete: TResponsiveGridItemEvent;\r\n    FOnItemUpdate: TResponsiveGridItemEvent;\r\n    FOnItemInsert: TResponsiveGridItemEvent;\r\n    FOnItemAdd: TResponsiveGridItemEvent;\r\n    FOnItemClear: TNotifyEvent;\r\n    FGrid: TResponsiveGrid;\r\n    function GetItem(Index: integer): TResponsiveGridItem;\r\n    procedure SetItem(Index: integer; const Value: TResponsiveGridItem);\r\n  protected\r\n    procedure DoItemClear; virtual;\r\n    procedure DoItemAdd(Index: integer); virtual;\r\n    procedure DoItemDelete(Index: integer); virtual;\r\n    procedure DoItemInsert(Index: integer); virtual;\r\n    procedure DoItemUpdate(Index: integer); virtual;\r\n    property OnItemAdd: TResponsiveGridItemEvent read FOnItemAdd write FOnItemAdd;\r\n    property OnItemUpdate: TResponsiveGridItemEvent read FOnItemUpdate write FOnItemUpdate;\r\n    property OnItemDelete: TResponsiveGridItemEvent read FOnItemDelete write FOnItemDelete;\r\n    property OnItemInsert: TResponsiveGridItemEvent read FOnItemInsert write FOnItemInsert;\r\n    property OnItemClear: TNotifyEvent read FOnItemClear write FOnItemClear;\r\n    procedure Update(Item: TCollectionItem); override;\r\n    property Grid: TResponsiveGrid read FGrid;\r\n  public\r\n    constructor Create(AOwner: TComponent);\r\n    procedure Clear;\r\n    procedure Delete(Index: integer);\r\n    function Add: TResponsiveGridItem; overload;\r\n    function Add(HTML: string): TResponsiveGridItem; overload;\r\n    function Insert(Index: integer): TResponsiveGridItem;\r\n    property Items[Index: integer]: TResponsiveGridItem read GetItem write SetItem; default;\r\n  end;\r\n\r\n  TResponsiveGridTemplateOrder = (toColumn, toRow);\r\n\r\n  TResponsiveGridOptions = class(TPersistent)\r\n  private\r\n    FItemWidthMin: integer;\r\n    FItemHeight: integer;\r\n    FItemGap: integer;\r\n    FScrollVertical: boolean;\r\n    FItemClassName: string;\r\n    FItemColor: TColor;\r\n    FItemBorderColor: TColor;\r\n    FItemHoverColor: TColor;\r\n    FItemHoverBorderColor: TColor;\r\n    FOnChange: TNotifyEvent;\r\n    FItemPadding: integer;\r\n    FItemTemplate: string;\r\n    FItemSelectedBorderColor: TColor;\r\n    FItemSelectedTextColor: TColor;\r\n    FItemSelectedColor: TColor;\r\n    FMultiSelect: boolean;\r\n    FOrder: TResponsiveGridTemplateOrder;\r\n    procedure SetItemBorderColor(const Value: TColor);\r\n    procedure SetItemColor(const Value: TColor);\r\n    procedure SetItemGap(const Value: integer);\r\n    procedure SetItemHeight(const Value: integer);\r\n    procedure SetItemHoverBorderColor(const Value: TColor);\r\n    procedure SetItemHoverColor(const Value: TColor);\r\n    procedure SetItemWidthMin(const Value: integer);\r\n    procedure SetScrollVertical(const Value: boolean);\r\n    procedure SetItemPadding(const Value: integer);\r\n    procedure SetItemTemplate(const Value: string);\r\n    procedure SetItemSelectedBorderColor(const Value: TColor);\r\n    procedure SetItemSelectedColor(const Value: TColor);\r\n    procedure SetItemSelectedTextColor(const Value: TColor);\r\n  protected\r\n    procedure Changed;\r\n  public\r\n    constructor Create;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property ItemClassName: string read FItemClassName write FItemClassName;\r\n    property ItemColor: TColor read FItemColor write SetItemColor default clNone;\r\n    property ItemBorderColor: TColor read FItemBorderColor write SetItemBorderColor default clNone;\r\n    property ItemGap: integer read FItemGap write SetItemGap default 10;\r\n    property ItemHeight: integer read FItemHeight write SetItemHeight default 100;\r\n    property ItemHoverColor: TColor read FItemHoverColor write SetItemHoverColor default clNone;\r\n    property ItemHoverBorderColor: TColor read FItemHoverBorderColor write SetItemHoverBorderColor default clNone;\r\n    property ItemSelectedColor: TColor read FItemSelectedColor write SetItemSelectedColor default clNone;\r\n    property ItemSelectedBorderColor: TColor read FItemSelectedBorderColor write SetItemSelectedBorderColor default clNone;\r\n    property ItemSelectedTextColor: TColor read FItemSelectedTextColor write SetItemSelectedTextColor default clNone;\r\n    property ItemPadding: integer read FItemPadding write SetItemPadding default 0;\r\n    property ItemTemplate: string read FItemTemplate write SetItemTemplate;\r\n    property ItemWidthMin: integer read FItemWidthMin write SetItemWidthMin default 100;\r\n    property MultiSelect: boolean read FMultiSelect write FMultiSelect default false;\r\n    property Order: TResponsiveGridTemplateOrder read FOrder write FOrder default toColumn;\r\n    property ScrollVertical: boolean read FScrollVertical write SetScrollVertical default True;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  end;\r\n\r\n  TResponsiveGrid = class(TWebCustomControl)\r\n  private\r\n    FDesignTime: boolean;\r\n    FReq: TJSXMLHttpRequest;\r\n    FDataNode: string;\r\n    FOptions: TResponsiveGridOptions;\r\n    FItems: TResponsiveGridItems;\r\n    FOnItemDblClick: TResponsiveGridItemEvent;\r\n    FOnItemClick: TResponsiveGridItemEvent;\r\n    FOnHttpRequestError: TNotifyEvent;\r\n    FOnHttpRequestSuccess: TNotifyEvent;\r\n    FOnItemCreated: TResponsiveGridItemEvent;\r\n    FOnItemGetFieldValue: TResponsiveGridItemFieldValueEvent;\r\n    FItemIndex: integer;\r\n    FDelimiter: char;\r\n    FOnHttpRequest: TGridRequestEvent;\r\n    FListElement: TJSHTMLElement;\r\n    FOnItemGetTemplate: TResponsiveGridItemTemplateEvent;\r\n    procedure SetOptions(const Value: TResponsiveGridOptions);\r\n    procedure SetItems(const Value: TResponsiveGridItems);\r\n    procedure SetItemIndex(const Value: integer);\r\n  protected\r\n    function DoHttpLoadJson(Event: TEventListenerEvent): boolean; virtual;\r\n    function DoHttpLoadCsv(Event: TEventListenerEvent): boolean; virtual;\r\n    function DoHttpAbort(Event: TEventListenerEvent): boolean; virtual;\r\n    procedure DoHttpRequest(ARequest: TJSXMLHttpRequest); virtual;\r\n    procedure DoItemCreated(Index: integer); virtual;\r\n    procedure DoItemGetFieldValue(Index: integer; AFieldName: string; var AValue: string); virtual;\r\n    procedure DoItemGetTemplate(Index: integer; ItemData: string; var ATemplate: string); virtual;\r\n\r\n    procedure HandleDoItemClick(Index: integer); virtual;\r\n    procedure HandleDoItemDblClick(Index: integer); virtual;\r\n    function TargetIsParent(tgt,el: TJSElement): boolean; virtual;\r\n    function HandleDoMouseEnter(Event: TJSMouseEvent): Boolean; override;\r\n    function HandleDoClick(Event: TJSMouseEvent): Boolean; override;\r\n    function HandleDoDblClick(Event: TJSMouseEvent): Boolean; override;\r\n    procedure HandleItemAdd(Sender:  TObject; Index: integer);\r\n    procedure HandleItemUpdate(Sender:  TObject; Index: integer);\r\n    procedure HandleItemDelete(Sender:  TObject; Index: integer);\r\n    procedure HandleItemInsert(Sender:  TObject; Index: integer);\r\n    procedure HandleItemClear(Sender: TObject);\r\n    procedure OptionsChanged(Sender: TObject); virtual;\r\n    procedure FontChanged; override;\r\n    function CreateElement: TJSElement; override;\r\n    procedure CreateControl; override;\r\n    procedure BindElement; override;\r\n    procedure UpdateElement; override;\r\n    procedure RenderGrid;\r\n    procedure Loaded; override;\r\n    function GetStyleName: string;\r\n    procedure InitCSSLibrary(ALibrary: TCSSLibrary); override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override; overload;\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure LoadFromJSON(const AURL: string; ADataNode: string = ''); overload;\r\n    procedure LoadFromJSON(ASJON: TJSObject; ADataNode: string = ''); overload;\r\n    procedure LoadFromCSV(const AURL: string; Delimiter: char = ';');\r\n    function ListElementHandle: TJSElement;\r\n    function ItemByTag(ATag: integer): TResponsiveGridItem;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property ElementID;\r\n    property ElementClassName;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Font;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n\r\n    property ItemIndex: integer read FItemIndex write SetItemIndex default -1;\r\n    property Items: TResponsiveGridItems read FItems write SetItems;\r\n    property Margins;\r\n    property Options: TResponsiveGridOptions read FOptions write SetOptions;\r\n    property ParentFont;\r\n    property PopupMenu;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnItemCreated: TResponsiveGridItemEvent read FOnItemCreated write FOnItemCreated;\r\n    property OnItemGetFieldValue: TResponsiveGridItemFieldValueEvent read FOnItemGetFieldValue write FOnItemGetFieldValue;\r\n    property OnItemGetTemplate: TResponsiveGridItemTemplateEvent read FOnItemGetTemplate write FOnItemGetTemplate;\r\n    property OnItemClick: TResponsiveGridItemEvent read FOnItemClick write FOnItemClick;\r\n    property OnItemDblClick: TResponsiveGridItemEvent read FOnItemDblClick write FOnItemDblClick;\r\n    property OnHttpRequestError: TNotifyEvent read FOnHttpRequestError write FOnHttpRequestError;\r\n    property OnHttpRequestSuccess: TNotifyEvent read FOnHttpRequestSuccess write FOnHttpRequestSuccess;\r\n    property OnHttpRequest: TGridRequestEvent read FOnHttpRequest write FOnHttpRequest;\r\n  end;\r\n\r\n  TWebResponsiveGrid = class(TResponsiveGrid);\r\n\r\nfunction GridRect(Left,Top,Right,Bottom: integer): TGridRect;\r\n\r\nimplementation\r\n\r\nuses\r\n  SysUtils, Math, WEBLib.Utils, WEBLib.WebTools, WEBLib.Forms;\r\n\r\nconst\r\n  GlyphAscending = '&#x25B2;';\r\n  GlyphDescending = '&#x25BC;';\r\n  CELLPADDING = 0;\r\n\r\nfunction GridRect(Left,Top,Right,Bottom: integer): TGridRect;\r\nbegin\r\n  Result.Left := Left;\r\n  Result.Top := Top;\r\n  Result.Right := Right;\r\n  Result.Bottom := Bottom;\r\nend;\r\n\r\n{ TCustomStringGrid }\r\n\r\nprocedure TCustomStringGrid.AddButton(ACol, ARow: integer; AText,\r\n  AStyle: string);\r\nvar\r\n  s, ct: string;\r\n  el: TJSHTMLElement;\r\nbegin\r\n  if (ARow >= 0) and (ACol >= 0) and not HasCheckBox(ACol,ARow) then\r\n  begin\r\n    ct := Cells[ACol, ARow];\r\n    if ct <> '' then\r\n      ct := '&nbsp;' + ct;\r\n\r\n    s := '<BUTTON type=\"button\" style=\"vertical-align:middle\"';\r\n\r\n    if AStyle <> '' then\r\n      s := s + ' class=\"'+AStyle+'\"';\r\n\r\n    s := s + '>'+AText+'</BUTTON>';\r\n\r\n    Cells[ACol,ARow] := s + ct;\r\n\r\n    el := CellElements[ACol, ARow];\r\n    BindCellButton(ACol, ARow, el);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.AddCheckBox(const ACol, ARow: integer; AState: boolean = false);\r\nvar\r\n  chk: TJSElement;\r\nbegin\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    if not HasCheckBox(ACol,ARow) then\r\n    begin\r\n      chk := document.createElement('INPUT');\r\n      chk['type'] := 'checkbox';\r\n\r\n      asm\r\n      chk.checked = AState;\r\n      end;\r\n\r\n      CellElements[ACol,ARow].insertBefore(chk, CellElements[ACol,ARow].firstChild);\r\n      chk.addEventListener('click',FHandleCheckClickPtr);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.AddCanvas(const ACol, ARow: integer);\r\nvar\r\n  el: TJSHTMLElement;\r\n  w,h: integer;\r\nbegin\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    if not HasCanvas(ACol,ARow) then\r\n    begin\r\n      w := ColWidths[ACol];\r\n      h := RowHeights[ARow];\r\n      el := TJSHTMLElement(document.createElement('CANVAS'));\r\n      el['width'] := w.toString+'px';\r\n      el['height'] := (h-1).toString+'px';\r\n      el.style.setProperty('display','block');\r\n      CellElements[ACol,ARow].insertBefore(el, CellElements[ACol,ARow].firstChild);\r\n    end;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TCustomStringGrid.AddProgress(ACol, ARow, APosition: integer;\r\n  AStyle: string);\r\nvar\r\n  prog: TJSElement;\r\nbegin\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    if not HasProgress(ACol,ARow) then\r\n    begin\r\n      prog := document.createElement('PROGRESS');\r\n      prog['max'] := '100';\r\n      prog['value'] := APosition.toString;\r\n      TJSHTMLElement(prog).style.setProperty('width','100%');\r\n      if AStyle <> '' then\r\n        prog['class'] := AStyle;\r\n      CellElements[ACol,ARow].insertBefore(prog, CellElements[ACol,ARow].firstChild);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.AddSelection(ACell: TJSElement);\r\nbegin\r\n  if ShowSelection then\r\n  begin\r\n    ACell.classlist.Add('selected');\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.AddSortIndicator(const ACol, ARow: integer;\r\n  AIndicator: TGridSortIndicator);\r\nvar\r\n  s,sid: string;\r\n  sp: integer;\r\nbegin\r\n  s := Cells[ACol,ARow];\r\n  sp := pos('<span', s);\r\n\r\n  if sp > 0 then\r\n    s := Copy(s, 1, sp - 1);\r\n\r\n  sid := Name + 'si'+ACol.ToString+'_'+ARow.ToString;\r\n\r\n  case AIndicator of\r\n  siNone: Cells[ACol,ARow] := s;\r\n  siAscending: Cells[ACol,ARow] := s + '<span style=\"cursor:pointer;float:right\" id=\"' + sid + '\" sort=\"up\">'+GlyphAscending+'</span>';\r\n  siDescending: Cells[ACol,ARow] := s + '<span style=\"cursor:pointer;float:right\" id=\"'+ sid + '\" sort=\"dn\">'+GlyphDescending+'</span>';\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.BindCellButton(ACol, ARow: integer;\r\n  AElement: TJSHTMLElement);\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  el := TJSHTMLElement(AElement.firstChild);\r\n  if Assigned(el) and (el.tagName = 'BUTTON') then\r\n  begin\r\n    el.addEventListener('click', FHandleButtonClickPtr);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.BindCellChildren(ACol, ARow: integer; AElement: TJSHTMLElement);\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  el := TJSHTMLElement(AElement.firstChild);\r\n\r\n  if Assigned(el) and (el.tagName = 'INPUT') then\r\n  begin\r\n    if el.hasAttribute('type') and (lowercase(el.getAttribute('TYPE'))= 'checkbox') then\r\n    begin\r\n      el.addEventListener('click', FHandleCheckClickPtr);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.UnBindCellChildren(ACol, ARow: integer; AElement: TJSHTMLElement);\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  el := TJSHTMLElement(AElement.firstChild);\r\n\r\n  if Assigned(el) and (el.tagName = 'INPUT') then\r\n  begin\r\n    if el.hasAttribute('type') and (lowercase(el.getAttribute('TYPE'))= 'checkbox') then\r\n    begin\r\n      el.removeEventListener('click', FHandleCheckClickPtr);\r\n    end;\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TCustomStringGrid.BindEvents;\r\nbegin\r\n  inherited;\r\n  RenderGridScript;\r\nend;\r\n\r\nprocedure TCustomStringGrid.CancelEdit;\r\nvar\r\n  eh: TJSHTMLElement;\r\nbegin\r\n  if EditMode then\r\n  begin\r\n    if FEditType = geCombo then\r\n    begin\r\n      eh := FCombo.ElementHandle;\r\n    end\r\n    else\r\n    if FEditType = geMemo then\r\n    begin\r\n      eh := FMemo.ElementHandle;\r\n    end\r\n    else\r\n    if FEditType = geMask then\r\n    begin\r\n      eh := FMask.ElementHandle;\r\n    end\r\n    else\r\n    begin\r\n      eh := FEdit;\r\n    end;\r\n\r\n    FEditMode := false;\r\n\r\n    ValidateCell(FEditCol, FEditRow, FOrigVal);\r\n\r\n    if FSelectedCell.contains(eh) then\r\n      FSelectedCell.removeChild(eh);\r\n\r\n    FSelectedCell.innerHTML := FOrigVal;\r\n    UpdateCell(FEditCol, FEditRow, FOrigVal);\r\n\r\n    if not (goRowSelect in Options) then\r\n    begin\r\n      AddSelection(FSelectedCell);\r\n    end;\r\n\r\n    SetEditText(FEditCol, FEditRow, FOrigVal);\r\n\r\n    FBlockFocus := true;\r\n\r\n    TJSHTMLElement(FNormalCells).focus();\r\n  end;\r\nend;\r\n\r\nfunction TCustomStringGrid.CanEditCell(ACol, ARow: integer): boolean;\r\nvar\r\n  CanEdit: boolean;\r\nbegin\r\n  CanEdit := true;\r\n  if Assigned(OnCanEditCell) then\r\n    OnCanEditCell(Self, ACol, ARow, CanEdit);\r\n\r\n  Result := CanEdit;\r\nend;\r\n\r\nfunction TCustomStringGrid.CanRowAdvance: boolean;\r\nbegin\r\n  Result := true;\r\nend;\r\n\r\nfunction TCustomStringGrid.CanSelect(ACol, ARow: integer): boolean;\r\nbegin\r\n  Result := true;\r\n  if Assigned(OnSelectCell) then\r\n    OnSelectCell(Self, ACol, ARow, Result);\r\nend;\r\n\r\nfunction TCustomStringGrid.CellColSpan(ACol, ARow: integer): integer;\r\nvar\r\n  el: TJSHTMLElement;\r\n  s: string;\r\n  e: integer;\r\nbegin\r\n  Result := 0;\r\n\r\n  el := CellRealElement(ACol,ARow);\r\n  if Assigned(el) then\r\n  begin\r\n    s := el['colspan'];\r\n    val(s,Result,e);\r\n  end;\r\nend;\r\n\r\n\r\nfunction TCustomStringGrid.CellRealElement(const ACol, ARow: integer):TJSHTMLElement;\r\nvar\r\n  el: TJSHTMLElement;\r\n  t: TJSElement;\r\n  c,r: integer;\r\nbegin\r\n  if (ACol < FixedCols) and (ARow < FixedRows) then\r\n  begin\r\n    t := FFixedColRow;\r\n    c := ACol;\r\n    r := ARow;\r\n  end\r\n  else\r\n  if (ACol < FixedCols) and (ARow >= FixedRows) then\r\n  begin\r\n    t := FFixedCol;\r\n    c := ACol;\r\n    r := ARow - FixedRows;\r\n  end\r\n  else\r\n  if (ACol >= FixedCols) and (ARow < FixedRows) then\r\n  begin\r\n    t := FFixedRow;\r\n    c := ACol - FixedCols;\r\n    r := ARow;\r\n  end\r\n  else\r\n  begin\r\n    t := FNormalCells;\r\n    c := ACol - FixedCols;\r\n    r := ARow - FixedRows;\r\n  end;\r\n\r\n  el := nil;\r\n\r\n  if FHasMergedCells then\r\n  begin\r\n    asm\r\n      var getTableCell = function (table, x, y) {\r\n      var m = [], row, cell, xx, tx, ty, xxx, yyy;\r\n      for(yyy = 0; yyy < table.rows.length; yyy++) {\r\n          row = table.rows[yyy];\r\n          for(xxx = 0; xxx < row.cells.length; xxx++) {\r\n              cell = row.cells[xxx];\r\n              xx = xxx;\r\n              for(; m[yyy] && m[yyy][xx]; ++xx) {}\r\n              for(tx = xx; tx < xx + cell.colSpan; ++tx) {\r\n                  for(ty = yyy; ty < yyy + cell.rowSpan; ++ty) {\r\n                      if (!m[ty])\r\n                          m[ty] = [];\r\n                      m[ty][tx] = true;\r\n                  }\r\n              }\r\n              if (xx <= x && x < xx + cell.colSpan && yyy <= y && y < yyy + cell.rowSpan)\r\n                  return cell;\r\n          }\r\n        }\r\n      return null;\r\n      };\r\n      el = getTableCell(t, c, r);\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    asm\r\n      el = t.rows[r].cells[c];\r\n    end;\r\n  end;\r\n\r\n  Result := el;\r\nend;\r\n\r\nprocedure TCustomStringGrid.CellRealCoords(AElement: TJSHTMLElement;var ACol,ARow: integer);\r\nvar\r\n  allcells: array of array of TJSHTMLElement;\r\n  el: TJSHTMLElement;\r\n  i,j: integer;\r\nbegin\r\n  ACol := -1;\r\n  ARow := -1;\r\n\r\n  SetLength(allcells, ColCount, RowCount);\r\n\r\n  for i := 0 to ColCount - 1 do\r\n  begin\r\n    for j := 0 to RowCount - 1 do\r\n    begin\r\n      allcells[i,j] := CellRealElement(i,j);\r\n    end;\r\n  end;\r\n\r\n  for i := 0 to ColCount - 1 do\r\n  begin\r\n    for j := 0 to RowCount - 1 do\r\n    begin\r\n      if allcells[i,j] = AElement then\r\n      begin\r\n        ACol := i - FixedCols;\r\n        ARow := j - FixedRows;\r\n        break;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TCustomStringGrid.CellRowSpan(ACol, ARow: integer): integer;\r\nvar\r\n  el: TJSHTMLElement;\r\n  s: string;\r\n  e: integer;\r\nbegin\r\n  Result := 0;\r\n\r\n  el := CellRealElement(ACol,ARow);\r\n  if Assigned(el) then\r\n  begin\r\n    s := el['rowspan'];\r\n    val(s,Result,e);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.ChangeRow;\r\nbegin\r\n  //\r\nend;\r\n\r\nprocedure TCustomStringGrid.Clear;\r\nvar\r\n  c,r: integer;\r\nbegin\r\n  for c := 0 to ColCount - 1 do\r\n    for r := 0 to Rowcount - 1 do\r\n    begin\r\n      if HasButton(c,r) then\r\n        RemoveButton(c,r);\r\n      if HasCheckBox(c,r) then\r\n        RemoveCheckBox(c,r);\r\n\r\n      Cells[c,r] := '';\r\n    end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.ClearData;\r\nbegin\r\n  Clear;\r\n  RowCount := FixedRows + 5;\r\n  ColCount := FixedCols + 5;\r\nend;\r\n\r\nprocedure TCustomStringGrid.ClearMethodPointers;\r\nbegin\r\n  inherited;\r\n  FHandleEditBlurPtr := nil;\r\n  FHandleEditKeypressPtr := nil;\r\n  FHandleCheckClickPtr := nil;\r\n  FHandleButtonClickPtr := nil;\r\n  FHandleMouseDownPtr := nil;\r\n  FHandleMouseUpPtr := nil;\r\n  FHandleMouseMovePtr := nil;\r\n  FHandleFixedClickPtr := nil;\r\n  FHandleBlurPtr := nil;\r\n  FHandleFocusPtr := nil;\r\n  FHandleClickPtr := nil;\r\nend;\r\n\r\n\r\nprocedure TCustomStringGrid.ClearSelection;\r\nvar\r\n  rselect: boolean;\r\n  tr: TJSElement;\r\nbegin\r\n  rselect := (goRowSelect in Options);\r\n\r\n  if Assigned(FSelectedCell) and rselect then\r\n  begin\r\n    tr := FSelectedCell.parentElement;\r\n    RemoveSelection(tr);\r\n  end;\r\n\r\n  Selection := GridRect(0,0,0,0);\r\n\r\n  if Assigned(FSelectedCell) then\r\n  begin\r\n    RemoveSelection(FSelectedCell);\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TCustomStringGrid.ColCountChanged(delta: integer);\r\nvar\r\n  c: integer;\r\nbegin\r\n  if IsUpdating and (csLoading in ComponentState) then\r\n    Exit;\r\n\r\n  if not Assigned(FNormalCells) then\r\n    Exit;\r\n\r\n  if delta > 0 then\r\n  begin\r\n\r\n    asm\r\n      var i = 0;\r\n      var j = 0;\r\n      var k = 0;\r\n      var tr = undefined;\r\n      var td = undefined;\r\n      var sizediv,div = undefined;\r\n\r\n      var l = this.FNormalCells.rows.length;\r\n\r\n      for(j = 0; j < l; j++)\r\n      {\r\n        tr = this.FNormalCells.rows[j];\r\n\r\n        k = tr.cells.length;\r\n\r\n         for(i = 0; i < delta; i++)\r\n         {\r\n           tr.insertCell(k);\r\n         }\r\n      }\r\n\r\n      for(j = 0; j < this.FFixedRows; j++)\r\n      {\r\n        k = this.FFixedRow.rows[j].cells.length;\r\n\r\n        for(i = 0; i < delta; i++)\r\n        {\r\n          td = this.FFixedRow.rows[j].insertCell(k);\r\n          td.setAttribute('class','fixed');\r\n          div = document.createElement(\"DIV\");\r\n          div.style = 'position:relative;height:100%;width:100%';\r\n          td.appendChild(div);\r\n          sizediv = document.createElement(\"DIV\");\r\n          sizediv.style = 'position:absolute;height:100%;width:5px;margin-right:-5px;left:100%;top:0px;cursor:w-resize;z-index:999;';\r\n          div.appendChild(sizediv);\r\n        }\r\n      }\r\n    end;\r\n\r\n    for c := 1 to delta do\r\n    begin\r\n      ColWidths[ColCount - c] := DefaultColWidth;\r\n    end;\r\n\r\n    if DragMode = dmAutomatic then\r\n      EnableDrag;\r\n  end;\r\n\r\n  if delta < 0 then\r\n  begin\r\n\r\n    asm\r\n      var i = 0;\r\n      var j = 0;\r\n      var k = 0;\r\n      var tr = undefined;\r\n\r\n      var l = this.FNormalCells.rows.length;\r\n\r\n      for(j = 0; j < l; j++)\r\n      {\r\n        tr = this.FNormalCells.rows[j];\r\n\r\n        k = tr.cells.length;\r\n\r\n         for(i = 0; i < -delta; i++)\r\n         {\r\n           tr.deleteCell(k - i - 1);\r\n         }\r\n      }\r\n\r\n      if (this.FFixedRows > 0) {\r\n\r\n      k = this.FFixedRow.rows[0].cells.length;\r\n\r\n      for(i = 0; i < -delta; i++)\r\n      {\r\n        this.FFixedRow.rows[0].deleteCell(k- i - 1);\r\n      }\r\n      }\r\n    end;\r\n\r\n    if ColCount > 0 then\r\n      ColWidths[ColCount - 1] := ColWidths[ColCount - 1];\r\n  end;\r\nend;\r\n\r\nfunction TCustomStringGrid.ColOffset: integer;\r\nbegin\r\n  Result := FixedCols;\r\nend;\r\n\r\nconstructor TCustomStringGrid.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  DrawingStyle := gdsThemed;\r\nend;\r\n\r\nfunction TCustomStringGrid.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('SPAN');\r\n  FGrid := nil;\r\nend;\r\n\r\nprocedure TCustomStringGrid.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FEditAdvance := false;\r\n  FColWidths := TList.Create;\r\n  FRowHeights := TList.Create;\r\n  FColAlignments := TList.Create;\r\n  FObjectRows := TList.Create;\r\n  FRows := TStringList.Create;\r\n  FRows.OnChange := RowsChanged;\r\n  FComboBoxItems := TStringList.Create;\r\n  FRange := TGridRange.Create;\r\n  FHasMergedCells := false;\r\n  FDefaultColAlignment := taLeftJustify;\r\n  FStartCell.X := -1;\r\n  FStartCell.Y := -1;\r\n  FFixedColor := clBtnFace;\r\n  FRowCount := 5;\r\n  FColCount := 5;\r\n  FColor := clWindow;\r\n  FFixedCols := 1;\r\n  FFixedRows := 1;\r\n  FDefaultColWidth := 64;\r\n  FDefaultRowHeight := 22;\r\n  FShowSelection := true;\r\n  ElementFont := efProperty;\r\n  ElementPosition := epAbsolute;\r\n  ScrollBars := ssBoth;\r\n  FGridLineColor := clSilver;\r\n  FSelectionColor := $FF8F5B;\r\n  FSelectionTextColor := $FFFFFF;\r\n  Options := [goHorzLine, goVertLine, goRangeSelect];\r\n  FFixedFont := TFont.Create;\r\n  FFixedFont.OnChange := FixedFontChanged;\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Width := 400;\r\n    Height := 300;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.DataBeginUpdate;\r\nbegin\r\nend;\r\n\r\nprocedure TCustomStringGrid.DataEndUpdate;\r\nbegin\r\nend;\r\n\r\nprocedure TCustomStringGrid.DataInsertRow(AInsertPosition: Integer);\r\nbegin\r\n  InsertRow(AInsertPosition);\r\nend;\r\n\r\ndestructor TCustomStringGrid.Destroy;\r\nvar\r\n  i: integer;\r\n  LObjr: TObjectRow;\r\nbegin\r\n  FRange.Free;\r\n  FColWidths.Free;\r\n  FColAlignments.Free;\r\n  FRowHeights.Free;\r\n  FRows.Free;\r\n  FFixedFont.Free;\r\n\r\n  for i := 0 to FObjectRows.Count - 1 do\r\n  begin\r\n    LObjr := TObjectRow(FObjectRows[i]);\r\n    LObjr.Free;\r\n  end;\r\n  FObjectRows.Clear;\r\n\r\n  FObjectRows.Free;\r\n  FComboBoxItems.Free;\r\n  if Assigned(FCombo) then\r\n    FCombo.Free;\r\n  if Assigned(FMask) then\r\n    FMask.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TCustomStringGrid.DisableDrag;\r\n  procedure RemoveDraggableAttribute(AElement: TJSElement);\r\n  var\r\n    I: Integer;\r\n  begin\r\n    for I := 0 to AElement.children.length - 1 do\r\n    begin\r\n      if TJSElement(AElement.children[I]).tagName = 'TD' then\r\n      begin\r\n        TJSElement(AElement.children[I]).removeAttribute('draggable');\r\n        RemoveDraggableAttribute(TJSElement(AElement.children[I]));\r\n      end\r\n      else\r\n        RemoveDraggableAttribute(TJSElement(AElement.children[I]));\r\n    end;\r\n  end;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  RemoveDraggableAttribute(Container);\r\nend;\r\n\r\nfunction TCustomStringGrid.DoHttpLoadCsv(Event: TEventListenerEvent): boolean;\r\nvar\r\n  sl: TStringList;\r\n  req: TJSXMLHttpRequest;\r\nbegin\r\n  req := TJSXMLHttpRequest(Event.target);\r\n\r\n  if (req.status >= 200) and (req.status <= 208) then\r\n  begin\r\n    sl := TStringList.Create;\r\n\r\n    sl.Text := req.responseText;\r\n\r\n    try\r\n      LoadFromStringList(sl);\r\n    finally\r\n      sl.Free;\r\n    end;\r\n\r\n    if Assigned(OnHttpRequestSuccess) then\r\n      OnHttpRequestSuccess(Self);\r\n  end;\r\n\r\n  Result := true;\r\nend;\r\n\r\nprocedure TCustomStringGrid.LoadFromJSON(AJSON: TJSObject; ADataNode: string = '');\r\nvar\r\n  JO: JSValue;\r\n  JA: TJSArray;\r\n  r,c: integer;\r\n  arow: string;\r\n  sl: TStringList;\r\n  ce: TJSHTMLElement;\r\n  cd, cn: string;\r\n\r\nbegin\r\n  if ADataNode <> '' then\r\n    JA := TJSArray(AJSON.Properties[ADataNode])\r\n  else\r\n    JA := TJSArray(AJSON);\r\n\r\n  if Assigned(JA) then\r\n  begin\r\n    sl := TStringList.Create;\r\n\r\n    Clear;\r\n\r\n    RowCount := JA.length +  FixedRows;\r\n\r\n    for r := 0 to JA.length - 1 do\r\n    begin\r\n      JO := JA.Elements[r];\r\n\r\n      c := 0;\r\n      arow := '';\r\n\r\n      asm\r\n        var x = undefined;\r\n        for (x in JO) {\r\n          arow += \"|\" + JO[x];\r\n          c++;\r\n        }\r\n      end;\r\n\r\n      Delete(arow, 1, 1);\r\n      sl.StrictDelimiter := true;\r\n      sl.Delimiter := '|';\r\n      sl.DelimitedText := arow;\r\n      if ColCount < sl.Count  then\r\n        ColCount := sl.Count + FixedCols;\r\n\r\n      for c := 0 to sl.Count - 1 do\r\n      begin\r\n        cd := sl.Strings[c];\r\n        GetCellData(FixedCols + c, FixedRows + r, nil, cd);\r\n        Cells[FixedCols + c, FixedRows + r] := cd;\r\n\r\n        cn := '';\r\n        ce := CellElements[FixedCols + c, FixedRows + r];\r\n        GetCellChildren(FixedCols + c, FixedRows + r, nil, cd, ce);\r\n        GetCellClassName(FixedCols + c, FixedRows + r, nil, cd, cn);\r\n        if cn <> '' then\r\n          ce.setAttribute('class',cn);\r\n      end;\r\n    end;\r\n\r\n    sl.Free;\r\n  end;\r\n\r\n  UpdateGridSize;\r\n  UpdateGridAlignment;\r\nend;\r\n\r\nfunction TCustomStringGrid.LoadFromJSONAsync(const AURL: string; ADataNode: string = ''): TJSPromise;\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n\r\n      function DoLoad(Event: TEventListenerEvent): boolean;\r\n      begin\r\n        if DoHttpLoadJson(Event) then\r\n          ASuccess(TJSXMLHttpRequest(Event.target))\r\n        else\r\n          AFailed(TJSXMLHttpRequest(Event.target));\r\n        Result := true;\r\n      end;\r\n\r\n      function DoError(Event: TEventListenerEvent): boolean;\r\n      begin\r\n        AFailed(TJSXMLHttpRequest(Event.target));\r\n        Result := true;\r\n      end;\r\n\r\n    begin\r\n      FDataNode := ADataNode;\r\n      FReq := TJSXMLHttpRequest.new;\r\n      FReq.addEventListener('load',@DoLoad);\r\n      FReq.addEventListener('abort',@DoError);\r\n      FReq.addEventListener('timeout',@DoError);\r\n      FReq.addEventListener('error',@DoError);\r\n\r\n      FReq.open('GET', AURL);\r\n      DoHttpRequest(FReq);\r\n      FReq.send;\r\n    end);\r\nend;\r\n\r\nprocedure TCustomStringGrid.LoadFromStringList(AStrings: TStrings);\r\nvar\r\n  arow: TStringList;\r\n  i,j,maxcol: integer;\r\n  sr,sc: integer;\r\n  cd, cn: string;\r\n  ce: TJSHTMLElement;\r\n\r\nbegin\r\n  if FLoadFixed then\r\n    RowCount := AStrings.Count\r\n  else\r\n    RowCount := AStrings.Count + FixedRows;\r\n\r\n  arow := TStringList.Create;\r\n\r\n  sc := FixedCols;\r\n  sr := FixedRows;\r\n\r\n  if FLoadFixed then\r\n  begin\r\n    sr := 0;\r\n    sc := 0;\r\n  end;\r\n\r\n  maxcol := 0;\r\n\r\n  try\r\n    for i := 0 to AStrings.Count - 1 do\r\n      begin\r\n        arow.StrictDelimiter := true;\r\n        arow.Delimiter := FDelimiter;\r\n        arow.DelimitedText := AStrings.Strings[i];\r\n\r\n        if arow.Count > maxcol then\r\n          maxcol := arow.Count;\r\n\r\n        if arow.Count > ColCount - sc then\r\n          ColCount := arow.Count + sc;\r\n\r\n        for j := 0 to arow.Count - 1 do\r\n        begin\r\n          cd := arow.Strings[j];\r\n          GetCellData(j + sc, i + sr, nil, cd);\r\n          Cells[j + sc, i + sr] := cd;\r\n\r\n          ce := CellElements[j + sc, i + sr];\r\n\r\n          GetCellChildren(j + sc, i + sr, nil, cd, ce);\r\n\r\n          cn := '';\r\n          GetCellClassName(j + sc, i + sr, nil, cd, cn);\r\n          if cn <> '' then\r\n            ce.setAttribute('class',cn);\r\n        end;\r\n      end;\r\n  finally\r\n    arow.Free;\r\n  end;\r\n\r\n  if maxcol < ColCount - sc then\r\n    ColCount := maxcol + sc;\r\nend;\r\n\r\nprocedure TCustomStringGrid.LoadFromStrings(AStrings: TStrings; Delimiter: char;\r\n  LoadFixed: boolean);\r\nbegin\r\n  FDelimiter := Delimiter;\r\n  FLoadFixed := LoadFixed;\r\n\r\n  LoadFromStringList(AStrings);\r\nend;\r\n\r\n{$HINTS OFF}\r\nfunction TCustomStringGrid.DoHttpLoadJson(Event: TEventListenerEvent): boolean;\r\nvar\r\n  J: TJSObject;\r\n  req: TJSXMLHttpRequest;\r\nbegin\r\n  req := TJSXMLHttpRequest(Event.target);\r\n\r\n  if (req.status >= 200) and (req.status <= 208) then\r\n  begin\r\n    J := TJSJSON.parseObject(req.responseText);\r\n\r\n    LoadFromJSON(J, FDataNode);\r\n\r\n    if Assigned(OnHttpRequestSuccess) then\r\n      OnHttpRequestSuccess(Self);\r\n  end;\r\n\r\n  Result := true;\r\nend;\r\n\r\n\r\nprocedure TCustomStringGrid.DoHttpRequest(ARequest: TJSXMLHttpRequest);\r\nvar\r\n  LRequestRec: TJSXMLHttpRequestRecord;\r\nbegin\r\n  if Assigned(OnHttpRequest) then\r\n  begin\r\n    LRequestRec.req := ARequest;\r\n    OnHttpRequest(Self, LRequestRec);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.DoSortClick(ACol, ARow: Longint;\r\n  ASortIndicator: TGridSortIndicator);\r\nvar\r\n i: integer;\r\nbegin\r\n  FSortIndex := ACol;\r\n\r\n  for i := 0 to ColCount - 1 do\r\n  begin\r\n    SelectSortIndicator(i,ARow,i = ACol);\r\n  end;\r\n\r\n  FSortDirection := ASortIndicator;\r\n\r\n  if Assigned(OnSortClick) then\r\n    OnSortClick(Self, ACol, ARow, ASortIndicator);\r\n\r\n  Sort(ACol, ASortIndicator);\r\nend;\r\n\r\nprocedure TCustomStringGrid.EnableColResize;\r\nvar\r\n  TableName: string;\r\n  ResizeEnabled: Boolean;\r\nbegin\r\n  if not (csDesigning in ComponentState) then\r\n  begin\r\n    TableName := GetID + 'tblResizeRow';\r\n\r\n    ResizeEnabled := (goColSizing in Options);\r\n\r\n    asm\r\n      TMSStringGridresizableGrid(TableName, ResizeEnabled);\r\n    end;\r\n\r\n    TableName := GetID + 'tblResizeFixedRow';\r\n    ResizeEnabled := (goColSizing in Options);\r\n    asm\r\n      TMSStringGridresizableGrid(TableName, ResizeEnabled);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.EnableDrag;\r\n  procedure AddDraggableAttribute(AElement: TJSElement);\r\n  var\r\n    I: Integer;\r\n  begin\r\n    for I := 0 to AElement.children.length - 1 do\r\n    begin\r\n      if TJSElement(AElement.children[I]).tagName = 'TD' then\r\n      begin\r\n        TJSElement(AElement.children[I]).Attrs['draggable'] := 'true';\r\n        AddDraggableAttribute(TJSElement(AElement.children[I]));\r\n      end\r\n      else\r\n        AddDraggableAttribute(TJSElement(AElement.children[I]));\r\n    end;\r\n  end;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  AddDraggableAttribute(Container);\r\nend;\r\n\r\n{$HINTS ON}\r\n\r\nprocedure TCustomStringGrid.DoBoundsChange;\r\nvar\r\n  fw,fh,nwvis,nhvis: integer;\r\n\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    UpdateGridSize;\r\n\r\n    fw := FixedColWidth;\r\n    fh := FixedRowHeight;\r\n\r\n    nwvis := Width - fw;\r\n    nhvis := Height - fh;\r\n\r\n    if Assigned(FNormalCells) then\r\n    begin\r\n      TJSHTMLElement(FNormalCells.parentElement.parentElement).style.setProperty('width',inttostr(nwvis)+'px');\r\n      TJSHTMLElement(FNormalCells.parentElement.parentElement).style.setProperty('height',inttostr(nhvis)+'px');\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.DoButtonClick(ACol, ARow: Longint);\r\nbegin\r\n  if Assigned(OnButtonClick) then\r\n    OnButtonClick(Self, ACol, ARow);\r\nend;\r\n\r\nprocedure TCustomStringGrid.DoCheckClick(ACol, ARow: Longint; Checked: boolean);\r\nbegin\r\n  if Assigned(OnCheckClick) then\r\n    OnCheckClick(Self, ACol, ARow, Checked);\r\nend;\r\n\r\nprocedure TCustomStringGrid.DoColumnSized(AColumn: integer);\r\nbegin\r\n  if Assigned(OnColumnSized) then\r\n    OnColumnSized(Self, AColumn);\r\nend;\r\n\r\nprocedure TCustomStringGrid.DoEditControlExit(Sender: TObject);\r\nbegin\r\n  HideEdit;\r\nend;\r\n\r\nprocedure TCustomStringGrid.DoEnter;\r\nbegin\r\n//  focus is handled at NormalCells level\r\nend;\r\n\r\nprocedure TCustomStringGrid.DoExit;\r\nbegin\r\n//  focus is handled at NormalCells level\r\nend;\r\n\r\nfunction TCustomStringGrid.DoHttpAbort(Event: TEventListenerEvent): boolean;\r\nbegin\r\n  if Assigned(OnHttpRequestError) then\r\n    OnHttpRequestError(Self);\r\n\r\n  Result := true;\r\nend;\r\n\r\nfunction TCustomStringGrid.FixedColWidth: integer;\r\nvar\r\n  i: integer;\r\nbegin\r\n  Result := 0;\r\n\r\n  for i := 0 to FixedCols - 1 do\r\n    Result := Result + ColWidths[i] - CELLPADDING;\r\nend;\r\n\r\nprocedure TCustomStringGrid.FixedFontChanged(Sender: TObject);\r\nbegin\r\n  AddInstanceStyle(StylePrefix + FOrigID, GetGridCSS(FOrigID + 'tbl'));\r\n  UpdateElementVisual;\r\nend;\r\n\r\nfunction TCustomStringGrid.FixedRowHeight: integer;\r\nvar\r\n  i: integer;\r\nbegin\r\n  Result := 0;\r\n\r\n  for i := 0 to FixedRows - 1 do\r\n    Result := Result + RowHeights[i];\r\nend;\r\n\r\nfunction TCustomStringGrid.FocusedCell: TJSElement;\r\nbegin\r\n  Result := FSelectedCell;\r\nend;\r\n\r\nprocedure TCustomStringGrid.FontChanged;\r\nbegin\r\n  inherited;\r\n  UpdateElement;\r\nend;\r\n\r\nfunction TCustomStringGrid.GetButtonElement(ACol,\r\n  ARow: integer): TJSHTMLElement;\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  Result := nil;\r\n\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := TJSElement(CellElements[ACol,ARow].firstChild);\r\n    if Assigned(el) and (el is TJSElement) then\r\n    begin\r\n      if (uppercase(el.tagName) = 'BUTTON') then\r\n      begin\r\n        Result := TJSHTMLElement(el);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.GetCellChildren(ACol, ARow: integer; AField: TField;\r\n  AValue: string; AElement: TJSHTMLElement);\r\nvar\r\n  LElementRec: TJSHTMLElementRecord;\r\nbegin\r\n  if Assigned(OnGetCellChildren) then\r\n  begin\r\n    LElementRec.element := AElement;\r\n    OnGetCellChildren(Self, ACol, ARow, AField, AValue, LElementRec);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.GetCellClassName(ACol, ARow: integer;\r\n  AField: TField; AValue: string; var AClassName: string);\r\nbegin\r\n  if Assigned(OnGetCellClass) then\r\n    OnGetCellClass(Self, ACol, ARow, AField, AValue, AClassName);\r\nend;\r\n\r\nprocedure TCustomStringGrid.GetCellData(ACol, ARow: integer; AField: TField;\r\n  var AValue: string);\r\nbegin\r\n  if Assigned(OnGetCellData) then\r\n    OnGetCellData(Self, ACol, ARow, AField, AValue);\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TCustomStringGrid.GetCellEditor(const ACol, ARow: integer;\r\n  var AEditor: TGridCellEditor);\r\nbegin\r\n  if Assigned(OnGetCellEditor) then\r\n    OnGetCellEditor(Self, ACol, ARow, AEditor);\r\nend;\r\n\r\nfunction TCustomStringGrid.GetCellElements(ACol, ARow: integer): TJSHTMLElement;\r\n(*\r\nvar\r\n  rc,rr: integer;\r\n  res: TJSHTMLElement;\r\n*)\r\nbegin\r\n  Result := CellRealElement(ACol,ARow);\r\n(*\r\n  Exit;\r\n\r\n  res := nil;\r\n  if (ACol < FixedCols) and (ARow >= FixedRows) then\r\n  begin\r\n    rr := ARow - FixedRows;\r\n    rc := ACol;\r\n\r\n    asm\r\n      res = this.FFixedCol.rows[rr].cells[rc];\r\n    end;\r\n  end;\r\n\r\n  if (ARow < FixedRows) and (ACol >= FixedCols) then\r\n  begin\r\n    rc := ACol - FixedCols;\r\n    rr := ARow;\r\n\r\n    asm\r\n      res = this.FFixedRow.rows[rr].cells[rc];\r\n    end;\r\n  end;\r\n\r\n  if (ACol < FixedCols) and (ARow < FixedRows) then\r\n  begin\r\n    rr := ARow;\r\n    rc := ACol;\r\n    asm\r\n      res = this.FFixedColRow.rows[rr].cells[rc];\r\n    end;\r\n  end;\r\n\r\n  if (ACol >= FixedCols) and (ARow >= FixedRows) and (ARow < RowCount) and (ACol < ColCount) then\r\n  begin\r\n    rc := ACol - FixedCols;\r\n    rr := ARow - FixedRows;\r\n    asm\r\n      res = this.FNormalCells.rows[rr].cells[rc];\r\n    end;\r\n  end;\r\n\r\n  Result := res;\r\n*)\r\nend;\r\n\r\n\r\nfunction TCustomStringGrid.GetDirectCellElements(ACol, ARow: integer): TJSHTMLElement;\r\nvar\r\n  rc,rr: integer;\r\n  res: TJSHTMLElement;\r\nbegin\r\n  res := nil;\r\n\r\n  if (ACol < FixedCols) and (ARow >= FixedRows) then\r\n  begin\r\n    rr := ARow - FixedRows;\r\n    rc := ACol;\r\n\r\n    asm\r\n      res = this.FFixedCol.rows[rr].cells[rc];\r\n    end;\r\n  end;\r\n\r\n  if (ARow < FixedRows) and (ACol >= FixedCols) then\r\n  begin\r\n    rc := ACol - FixedCols;\r\n    rr := ARow;\r\n\r\n    asm\r\n      res = this.FFixedRow.rows[rr].cells[rc];\r\n    end;\r\n  end;\r\n\r\n  if (ACol < FixedCols) and (ARow < FixedRows) then\r\n  begin\r\n    rr := ARow;\r\n    rc := ACol;\r\n    asm\r\n      res = this.FFixedColRow.rows[rr].cells[rc];\r\n    end;\r\n  end;\r\n\r\n  if (ACol >= FixedCols) and (ARow >= FixedRows) and (ARow < RowCount) and (ACol < ColCount) then\r\n  begin\r\n    rc := ACol - FixedCols;\r\n    rr := ARow - FixedRows;\r\n    asm\r\n      res = this.FNormalCells.rows[rr].cells[rc];\r\n    end;\r\n  end;\r\n\r\n  Result := res;\r\nend;\r\n\r\n{$HINTS ON}\r\n\r\nfunction TCustomStringGrid.GetCells(ACol, ARow: integer): string;\r\nvar\r\n  td: TJSHTMLElement;\r\nbegin\r\n  td := CellRealElement(ACol,ARow);\r\n\r\n  if not Assigned(td) then\r\n  begin\r\n    Result := '';\r\n    Exit;\r\n  end;\r\n\r\n if WordWrap then\r\n  begin\r\n    if Assigned(td.firstChild) then\r\n      td := TJSHTMLElement(td.firstChild);\r\n  end;\r\n\r\n  Result := td.textContent;\r\nend;\r\n\r\nfunction TCustomStringGrid.GetCheckElement(ACol, ARow: integer): TJSHTMLElement;\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  Result := nil;\r\n\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := TJSElement(CellElements[ACol,ARow].firstChild);\r\n    if Assigned(el) and (el is TJSElement) then\r\n    begin\r\n      if el.hasAttribute('type') and (uppercase(el['type']) = 'CHECKBOX') then\r\n      begin\r\n        Result := TJSHTMLElement(el);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TCustomStringGrid.GetCanvasElement(ACol, ARow: integer): TJSHTMLElement;\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  Result := nil;\r\n\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := TJSElement(CellElements[ACol,ARow].firstChild);\r\n\r\n    if Assigned(el) and (el is TJSElement) then\r\n    begin\r\n      if Uppercase(el.tagName) = 'CANVAS' then\r\n      begin\r\n        Result := TJSHTMLElement(el);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\n\r\nfunction TCustomStringGrid.GetCheckState(ACol, ARow: integer): boolean;\r\nvar\r\n  el: TJSElement;\r\n  res: boolean;\r\nbegin\r\n  Result := false;\r\n\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := GetCheckElement(ACol,ARow);\r\n    if Assigned(el) then\r\n    begin\r\n      asm\r\n        res = el.checked;\r\n      end;\r\n      Result := res;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TCustomStringGrid.GetCheckEnabled(ACol, ARow: integer): boolean;\r\nvar\r\n  el: TJSElement;\r\n  res: boolean;\r\nbegin\r\n  Result := false;\r\n\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := GetCheckElement(ACol,ARow);\r\n    if Assigned(el) then\r\n    begin\r\n      asm\r\n        res = el.disabled;\r\n      end;\r\n      Result := not res;\r\n    end;\r\n  end;\r\nend;\r\n\r\n\r\nfunction TCustomStringGrid.GetCol: integer;\r\nvar\r\n  res: integer;\r\nbegin\r\n  res := -1;\r\n  if  Assigned(FSelectedCell) then\r\n  begin\r\n    asm\r\n      res = this.FSelectedCell.cellIndex;\r\n    end;\r\n    res := res + FixedCols;\r\n  end;\r\n\r\n  Result := res;\r\nend;\r\n\r\nfunction TCustomStringGrid.GetColAlignments(ACol: integer): TAlignment;\r\nbegin\r\n  if ACol < FColAlignments.Count then\r\n    Result := TAlignment(FColAlignments.Items[ACol])\r\n  else\r\n    Result := DefaultColAlignment;\r\nend;\r\n\r\nfunction TCustomStringGrid.GetColWidths(ACol: integer): integer;\r\nbegin\r\n  if ACol < FColWidths.Count then\r\n    Result := integer(FColWidths.Items[ACol])\r\n  else\r\n    Result := DefaultColWidth;\r\nend;\r\n\r\nfunction TCustomStringGrid.GetDataRowCount: Integer;\r\nbegin\r\n  Result := RowCount - FixedRows;\r\nend;\r\n\r\nprocedure TCustomStringGrid.GetEditControlValue(ACol, ARow: Longint;\r\n  AControl: TControl; var AValue: string);\r\nbegin\r\n  if Assigned(OnGetEditControlValue) then\r\n    OnGetEditControlValue(Self, ACol, ARow, AControl, AValue);\r\nend;\r\n\r\nfunction TCustomStringGrid.GetEditText(ACol, ARow: Longint): string;\r\nbegin\r\n  Result := Cells[ACol,ARow];\r\n\r\n  if Assigned(OnGetEditText) then\r\n    OnGetEditText(Self, ACol, ARow, Result);\r\nend;\r\n\r\nfunction TCustomStringGrid.GetFixedTextColor: TColor;\r\nbegin\r\n  Result := FFixedFont.Color;\r\nend;\r\n\r\nfunction TCustomStringGrid.GetGridCSS(id: string): string;\r\nvar\r\n  ff: string;\r\nbegin\r\n  Result := '';\r\n\r\n  if ElementTableClassName <> '' then\r\n    Exit;\r\n\r\n  if not (goVertLine in Options) then\r\n    Result := 'border-left: 0px; border-right: 0px;';\r\n\r\n  if not (goHorzLine in Options) then\r\n    Result := Result + 'border-top: 0px; border-bottom: 0px;';\r\n\r\n  if ElementFont = efProperty then\r\n  begin\r\n    Result := Result + CSSFont(Font);\r\n    ff := CSSFont(FixedFont);\r\n  end;\r\n\r\n  Result := 'table#' + id + ' td { overflow: hidden; text-overflow: ellipsis; white-space:nowrap; border: solid 1px '+ ColorToHTML(GridLineColor) +'; padding: 0px;' + Result + '} '+#13+\r\n                   'table#'+id+' td.fixed {'+ ff + '} '+#13+\r\n                   'table#'+id+' td.selected { background-color: '+ ColorToHTML(SelectionColor)+ '; color: '+ ColorToHTML(SelectionTextColor)+';} '+#13+\r\n                   'table#'+id+' tr.selected { background-color: '+ ColorToHTML(SelectionColor)+ '; color: '+ ColorToHTML(SelectionTextColor)+';} '+#13+\r\n//                   'table#'+id+'NormalCellTable td { padding:2px;} '+#13+\r\n//                   'table#'+id+'ResizeFixedRowTable td { padding:2px;} '+#13+\r\n//                   'table#'+id+'ResizeRowTable td { padding:2px;} '+#13+\r\n//                   'table#'+id+'ResizeFixedColTable td { padding:2px;} '+#13+\r\n                   'table#'+id+' DIV.cell {word-wrap: normal; white-space: normal; text-overflow: clip; } ';\r\nend;\r\n\r\nfunction TCustomStringGrid.GetLeftCol: integer;\r\nvar\r\n  i,w,l: integer;\r\nbegin\r\n  Result := FixedCols;\r\n\r\n  if Assigned(FNormalCells) then\r\n  begin\r\n    l := FNormalCells.parentElement.parentElement.scrollLeft;\r\n    w := 0;\r\n    for i := FixedCols to ColCount - 1 do\r\n    begin\r\n     if l <= w then\r\n     begin\r\n       Result := i;\r\n       break;\r\n     end;\r\n      w := w + ColWidths[i] + 1 - CELLPADDING;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.GetMethodPointers;\r\nbegin\r\n  inherited;\r\n  FHandleEditBlurPtr := @HandleEditBlur;\r\n  FHandleEditKeypressPtr := @HandleEditKeypress;\r\n  FHandleCheckClickPtr := @HandleCheckBoxClick;\r\n  FHandleButtonClickPtr := @HandleButtonClick;\r\n  FHandleMouseDownPtr := @HandleMouseDown;\r\n  FHandleMouseUpPtr := @HandleMouseUp;\r\n  FHandleMouseMovePtr := @HandleMouseMove;\r\n  FHandleFixedClickPtr := @HandleFixedClick;\r\n  FHandleFocusPtr := @HandleTableFocus;\r\n  FHandleBlurPtr := @HandleTableBlur;\r\n  FHandleClickPtr := @HandleClick;\r\nend;\r\n\r\nfunction TCustomStringGrid.GetObjects(ACol, ARow: integer): TObject;\r\nvar\r\n  LObjr: TObjectRow;\r\nbegin\r\n  Result := nil;\r\n\r\n  if FObjectRows.Count > ARow then\r\n  begin\r\n    LObjr := TObjectRow(FObjectRows[ARow]);\r\n    if LObjr.Count > ACol then\r\n      Result := TObject(LObjr[ACol]);\r\n  end;\r\nend;\r\n\r\nfunction TCustomStringGrid.GetProgressElement(ACol,\r\n  ARow: integer): TJSHTMLElement;\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  Result := nil;\r\n\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := TJSElement(CellElements[ACol,ARow].firstChild);\r\n    if Assigned(el) and (el is TJSElement) then\r\n    begin\r\n      if (uppercase(el.tagName) = 'PROGRESS') then\r\n      begin\r\n        Result := TJSHTMLElement(el);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TCustomStringGrid.GetRow: integer;\r\nvar\r\n  res: integer;\r\nbegin\r\n  res := -1;\r\n  if Assigned(FSelectedCell) then\r\n  begin\r\n    asm\r\n      res = this.FSelectedCell.parentElement.rowIndex;\r\n    end;\r\n    res := res + FixedRows;\r\n  end;\r\n\r\n  Result := res;\r\nend;\r\n\r\nfunction TCustomStringGrid.GetRowHeights(ARow: integer): integer;\r\nbegin\r\n  if ARow < FRowHeights.Count then\r\n    Result := integer(FRowHeights.Items[ARow])\r\n  else\r\n    Result := DefaultRowHeight;\r\nend;\r\n\r\nfunction TCustomStringGrid.GetRows(Index: integer): TStrings;\r\nvar\r\n  i: integer;\r\nbegin\r\n  if (Index >= 0) and (Index < RowCount) then\r\n  begin\r\n    FRowsIndex := Index;\r\n    FRows.Clear;\r\n    for i := 0 to ColCount - 1 do\r\n      FRows.Add(Cells[i,Index]);\r\n\r\n    Result := FRows;\r\n  end\r\n  else\r\n    raise Exception.Create('Invalid row index');\r\nend;\r\n\r\nfunction TCustomStringGrid.GetSelection: TGridRect;\r\nbegin\r\n  Result := FSelection;\r\nend;\r\n\r\nfunction TCustomStringGrid.GetTopRow: integer;\r\nvar\r\n  pixVal: integer;\r\nbegin\r\n  Result := FixedRows;\r\n\r\n  if Assigned(FNormalCells) and (pixVal >= 0) then\r\n  begin\r\n    pixVal := FNormalCells.parentElement.parentElement.scrollTop;\r\n\r\n    Result := FixedRows + pixVal div DefaultRowHeight;\r\n  end;\r\nend;\r\n\r\nfunction TCustomStringGrid.GetVisibleColCount: integer;\r\nvar\r\n  i: integer;\r\n  el: TJSHTMLElement;\r\n  cr,gr: TJSDOMRect;\r\nbegin\r\n  i := LeftCol;\r\n\r\n  gr := ElementHandle.getBoundingClientRect;\r\n\r\n  while i < ColCount do\r\n  begin\r\n    el := CellElements[i,FixedRows];\r\n    cr := el.getBoundingClientRect;\r\n    if cr.Right > gr.Right then\r\n      break;\r\n    inc(i);\r\n  end;\r\n\r\n  Result := i - LeftCol;\r\nend;\r\n\r\nfunction TCustomStringGrid.GetVisibleRowCount: integer;\r\nvar\r\n  i: integer;\r\n  el: TJSHTMLElement;\r\n  cr,gr: TJSDOMRect;\r\nbegin\r\n  i := TopRow;\r\n\r\n  gr := ElementHandle.getBoundingClientRect;\r\n\r\n  while i < RowCount do\r\n  begin\r\n    el := CellElements[FixedCols,i];\r\n    cr := el.getBoundingClientRect;\r\n    if cr.Bottom > gr.Bottom then\r\n      break;\r\n    inc(i);\r\n  end;\r\n\r\n  Result := i - TopRow;\r\nend;\r\n\r\nprocedure TCustomStringGrid.GridChanged;\r\nbegin\r\n  inherited;\r\n  FSelectedCell := nil;\r\n  UpdateGridSize;\r\n  UpdateGridAlignment;\r\nend;\r\n\r\n{$HINTS OFF}\r\nfunction TCustomStringGrid.HandleButtonClick(Event: TJSEvent): Boolean;\r\nvar\r\n  rindex, cindex: integer;\r\n  chk: boolean;\r\nbegin\r\n  rindex := -1;\r\n  cindex := -1;\r\n\r\n  asm\r\n    var el = Event.target;\r\n    var d = el.parentElement;\r\n    if (d.tagName.toLowerCase() == 'td')\r\n    {\r\n      cindex = d.cellIndex;\r\n      var tr = d.parentElement;\r\n      rindex = tr.rowIndex;\r\n    }\r\n  end;\r\n\r\n  if (rindex <> -1) and (cindex <> -1) then\r\n  begin\r\n    DoButtonClick(cindex + FixedCols, rindex + FixedRows);\r\n  end;\r\nend;\r\n\r\nfunction TCustomStringGrid.HandleCheckBoxClick(Event: TJSEvent): Boolean;\r\nvar\r\n  rindex, cindex: integer;\r\n  chk: boolean;\r\nbegin\r\n  rindex := -1;\r\n  cindex := -1;\r\n\r\n  asm\r\n    var el = Event.target;\r\n    chk = el.checked;\r\n    var d = el.parentElement;\r\n    if (d.tagName.toLowerCase() == 'td')\r\n    {\r\n      cindex = d.cellIndex;\r\n      var tr = d.parentElement;\r\n      rindex = tr.rowIndex;\r\n    }\r\n  end;\r\n\r\n  if (rindex <> -1) and (cindex <> -1) then\r\n  begin\r\n    if not CanEditCell(cindex + FixedCols, rindex + FixedRows) then\r\n    // undo checkbox change from click\r\n      asm\r\n        var el = Event.target;\r\n        el.checked = (!el.checked);\r\n      end\r\n    else\r\n      DoCheckClick(cindex + FixedCols, rindex + FixedRows, chk);\r\n  end;\r\nend;\r\n\r\nfunction TCustomStringGrid.HandleFixedClick(Event: TJSEvent): Boolean;\r\nvar\r\n  rindex,cindex: integer;\r\n  rselect: boolean;\r\n  tbl: TJSHTMLElement;\r\n  ACol,ARow: integer;\r\n  tgt: TJSHTMLElement;\r\n  tag: string;\r\n  sd: TGridSortIndicator;\r\n\r\nbegin\r\n  Result := true;\r\n\r\n  rselect := (goRowSelect in Options);\r\n  rindex := -1;\r\n  cindex := -1;\r\n\r\n  sd := siNone;\r\n\r\n  asm\r\n    tgt = Event.target;\r\n  end;\r\n\r\n  if tgt.tagName = 'SPAN' then\r\n  begin\r\n    if tgt['sort']= 'up' then\r\n    begin\r\n      sd := siAscending;\r\n    end\r\n    else\r\n    if tgt['sort']= 'dn' then\r\n    begin\r\n      sd := siDescending;\r\n    end;\r\n  end;\r\n\r\n  repeat\r\n    asm\r\n      tag = tgt.tagName.toLowerCase();\r\n      if (tag != 'td')\r\n      {\r\n        tgt = tgt.parentElement;\r\n      }\r\n    end;\r\n  until (tag = 'td') or (tgt = nil);\r\n\r\n\r\n  asm\r\n    if (tag == 'td')\r\n    {\r\n      cindex = tgt.cellIndex;\r\n      var tr = tgt.parentElement;\r\n      rindex = tr.rowIndex;\r\n      tbl = tr.parentElement;\r\n      tbl = tbl.parentElement;\r\n    }\r\n  end;\r\n\r\n  if (cindex = -1) or (rindex = -1) then\r\n    Exit;\r\n\r\n  ACol := cindex;\r\n  ARow := rindex;\r\n\r\n  if tbl = FFixedCol then\r\n  begin\r\n    ARow := rindex + FixedRows;\r\n  end;\r\n\r\n  if tbl = FFixedRow then\r\n  begin\r\n    ACol := cindex + FixedCols;\r\n  end;\r\n\r\n  if sd = siAscending then\r\n  begin\r\n    DoSortClick(ACol,ARow,siDescending);\r\n    SetSortIndicator(ACol,ARow, siDescending);\r\n  end\r\n  else\r\n  if sd = siDescending then\r\n  begin\r\n    DoSortClick(ACol,ARow, siAscending);\r\n    SetSortIndicator(ACol,ARow, siAscending);\r\n  end;\r\n\r\n  if Assigned(OnFixedCellClick) then\r\n    OnFixedCellClick(Self, ACol, ARow);\r\nend;\r\n\r\nfunction TCustomStringGrid.HandleClick(Event: TJSEvent): Boolean;\r\nvar\r\n  rindex,cindex: integer;\r\n  rselect: boolean;\r\n  tr: TJSElement;\r\n  tgt: TJSHTMLElement;\r\n  tag,starttag: string;\r\nbegin\r\n  Result := true;\r\n\r\n  if not Enabled then\r\n    Exit;\r\n\r\n  rselect := (goRowSelect in Options);\r\n  rindex := -1;\r\n  cindex := -1;\r\n\r\n  asm\r\n    tgt = Event.target;\r\n    starttag = tgt.tagName.toLowerCase();\r\n  end;\r\n\r\n  if (starttag = 'tr') or (starttag = 'tbody') then\r\n    Exit;\r\n\r\n  repeat\r\n    asm\r\n      tag = tgt.tagName.toLowerCase();\r\n      if (tag != 'td')\r\n      {\r\n        tgt = tgt.parentElement;\r\n      }\r\n    end;\r\n  until (tag = 'td') or (tgt = nil);\r\n\r\n  asm\r\n    if (tag == 'td')\r\n    {\r\n      cindex = tgt.cellIndex;\r\n      var tr = tgt.parentElement;\r\n      rindex = tr.rowIndex;\r\n    }\r\n  end;\r\n\r\n  if (tag = 'td') and FHasMergedCells then\r\n  begin\r\n    CellRealCoords(tgt, cindex, rindex);\r\n  end;\r\n\r\n  if (cindex = -1) or (rindex = -1) then\r\n    Exit;\r\n\r\n  if not CanSelect(cindex + FixedCols, rindex + FixedRows) then\r\n  begin\r\n    Exit;\r\n  end;\r\n\r\n  SelectCell(cindex + FixedCols, rindex + FixedRows);\r\n\r\n  if Assigned(OnClickCell) and Enabled then\r\n  begin\r\n    OnClickCell(Self, cindex + FixedCols, rindex + FixedRows);\r\n  end;\r\n\r\n  if Assigned(FSelectedCell) then\r\n  begin\r\n    if FSelMouseDown then\r\n    begin\r\n      if (goEditing in Options) and CanEditCell(Col,Row) then\r\n      begin\r\n        ShowEdit;\r\n        Exit;\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      if rselect then\r\n      begin\r\n        tr := FSelectedCell.parentElement;\r\n        RemoveSelection(tr);\r\n      end\r\n      else\r\n        RemoveSelection(FSelectedCell);\r\n    end;\r\n  end;\r\n\r\n  if (tag = 'td') then\r\n  begin\r\n    tr := tgt.parentElement;\r\n    FSelectedCell := tgt;\r\n\r\n    if (rselect) then\r\n      AddSelection(tr)\r\n    else\r\n      AddSelection(tgt);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.HandleComboExit(Sender: TObject);\r\nbegin\r\n  if EditMode then\r\n    HideEdit;\r\nend;\r\n\r\nprocedure TCustomStringGrid.HandleComboKeyPress(Sender: TObject; var Key: Char);\r\nbegin\r\n  if Assigned(OnKeyPress) then\r\n    OnKeyPress(Self, Key);\r\n\r\n  if (Ord(Key) = 27) then\r\n    CancelEdit;\r\n  if (Ord(Key) = 13) then\r\n    HideEdit(EditAdvance);\r\nend;\r\n\r\nfunction TCustomStringGrid.HandleDoClick(Event: TJSMouseEvent): Boolean;\r\nbegin\r\n  Result := inherited;\r\n  if not EditMode and Assigned(FNormalCells) then\r\n    TJSHTMLElement(FNormalCells).focus();\r\nend;\r\n\r\nfunction TCustomStringGrid.HandleDoDblClick(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  c,r,fc,fr: integer;\r\n  el,pel: TJSElement;\r\nbegin\r\n  inherited;\r\n\r\n  el := Event.targetElement;\r\n\r\n  while Assigned(el) and (el <> Self.ElementHandle) and\r\n        not ((el.tagName = 'TD') or (el.tagName = 'TH')) do\r\n    el := el.ParentElement;\r\n\r\n  if Assigned(el) and (el.tagName = 'TD') or (el.tagName = 'TH') then\r\n  begin\r\n    asm\r\n      c = el.cellIndex;\r\n      var tr = el.parentElement;\r\n      r = tr.rowIndex;\r\n      pel = el.parentElement;\r\n      if (pel) {\r\n        pel = pel.parentElement; }\r\n      if (pel) {\r\n        pel = pel.parentElement; }\r\n    end;\r\n\r\n    if not (el.classList.contains('fixed')) then\r\n    begin\r\n      fc := FixedCols;\r\n      fr := FixedRows;\r\n    end;\r\n\r\n    if Assigned(pel) then\r\n    begin\r\n      if pos('ResizeRowTable', pel.id) > 0 then\r\n        fc := FixedCols;\r\n      if pos('FixedColTable', pel.id) > 0 then\r\n        fr := FixedRows;\r\n    end;\r\n\r\n    if Assigned(OnDblClickCell) then\r\n      OnDblClickCell(Self, c + fc, r + fr);\r\n  end;\r\n  Result := true;\r\n\r\nend;\r\n\r\nfunction TCustomStringGrid.HandleDoMouseMove(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  CtrlName: string;\r\n  IsAutoWidth: Boolean;\r\nbegin\r\n  inherited;\r\n\r\n  CtrlName := GetID + 'tbl';\r\n  IsAutoWidth := (WidthStyle in [ssAuto]);\r\n  asm\r\n    TMSStringGridID = CtrlName;\r\n    TMSStringGridautoWidth = IsAutoWidth;\r\n    GridNormalCells = this.FNormalCells;\r\n    GridFixedCells = this.FFixedRow;\r\n    GridFixedColCells = this.FFixedCol;\r\n    GridFixedColRows = this.FFixedColRow;\r\n    GridColWidths = this.FColWidths;\r\n    GridFixedCols = this.FFixedCols;\r\n    TMSStringGridresizeColumn(Event);\r\n  end;\r\n\r\n  Result := True;\r\nend;\r\n\r\nfunction TCustomStringGrid.HandleDoMouseUp(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  res: integer;\r\nbegin\r\n  inherited;\r\n\r\n  asm\r\n    res = TMSGridLastColSize;\r\n    if (!res) {\r\n      res = TMSStringGridisSizing(); }\r\n    TMSStringGridresetResize();\r\n  end;\r\n\r\n  if res >= 0 then\r\n    DoColumnSized(res);\r\n\r\n  Result := True;\r\nend;\r\n\r\n{$HINTS ON}\r\n\r\nfunction TCustomStringGrid.HandleEditBlur(Event: TJSEvent): Boolean;\r\nbegin\r\n  if FEditMode then\r\n  begin\r\n    HideEdit;\r\n  end;\r\n  Result := true;\r\nend;\r\n\r\nfunction TCustomStringGrid.HandleEditKeyPress(Event: TJSKeyboardEvent): boolean;\r\nvar\r\n  c: char;\r\nbegin\r\n  Event.cancelBubble := true;\r\n  Event.stopPropagation;\r\n  Result := true;\r\n\r\n  if IsKeyCharacter(Event.Key) then\r\n  begin\r\n    c := Chr(GetKeyCode(Event.Key, false));\r\n    if Assigned(OnKeyPress) then\r\n      OnKeyPress(Self, c);\r\n  end;\r\nend;\r\n\r\nfunction TCustomStringGrid.HandleKeyDown(Event: TJSKeyboardEvent): boolean;\r\nvar\r\n  k: Word;\r\n  newcol,newrow: integer;\r\n  ss: TShiftState;\r\n  undef: boolean;\r\n  ischar: boolean;\r\nbegin\r\n  Result := true;\r\n  if not Enabled then\r\n    Exit;\r\n\r\n  Event.cancelBubble := true;\r\n\r\n  Event.StopPropagation;\r\n\r\n  k := 0;\r\n  ischar := false;\r\n\r\n  asm\r\n    undef = (Event.key == undefined);\r\n  end;\r\n\r\n  if (Uppercase(Event.key) = 'UNIDENTIFIED') then\r\n    Exit;\r\n\r\n  if not undef then\r\n  begin\r\n    k := GetKeyCode(Event.Key);\r\n\r\n    ischar := length(Event.Key) = 1;\r\n\r\n    ss := GetKeyboardEventShiftState(Event);\r\n\r\n    if Assigned(OnKeyDown) then\r\n      OnKeyDown(Self, k, ss);\r\n  end;\r\n\r\n  newrow := Row;\r\n  newcol := Col;\r\n\r\n  if (newrow = -1) and (newcol = -1) and (ColCount > FixedCols) and (RowCount > FixedRows) then\r\n  begin\r\n    newcol := FixedCols;\r\n    newrow := FixedRows;\r\n    Col := FixedCols;\r\n    Row := FixedRows;\r\n    TJSHTMLElement(FNormalCells).focus;\r\n  end;\r\n\r\n  //ss := GetKeyboardEventShiftState(Event);\r\n\r\n  // Up, Down, PageUp, PageDn\r\n  if (k in [38, 40, 33, 34]) and not ischar then\r\n  begin\r\n    Event.preventDefault;\r\n    HideEdit;\r\n    ChangeRow;\r\n  end;\r\n\r\n  // Home, End, Left, Right should only work when not in edit mode\r\n  if not EditMode and (k in [35, 36, 37, 39]) and not ischar then\r\n  begin\r\n    Event.preventDefault;\r\n    HideEdit;\r\n  end;\r\n\r\n  // ESC\r\n  if (k = 27) and not ischar then\r\n  begin\r\n    CancelEdit;\r\n  end;\r\n\r\n  if not EditMode and not ischar and Event.shiftKey and not ((k >= 48) and (k <= 122)) and (goRangeSelect in Options) then\r\n  begin\r\n    // End\r\n    if (k = 35) then\r\n    begin\r\n      Row := RowCount - 1;\r\n      Selection := GridRect(Col, newrow, Col, Row);\r\n\r\n      if Row >= TopRow + VisibleRowCount then\r\n        TopRow := Row - VisibleRowCount;\r\n    end;\r\n\r\n    // Home\r\n    if (k = 36) then\r\n    begin\r\n      Row := FixedRows;\r\n      Selection := GridRect(Col, newrow, Col, Row);\r\n\r\n      if Row < TopRow then\r\n        TopRow := FixedRows;\r\n    end;\r\n\r\n    // arrow Up\r\n    if (k = 38) and (Row > FixedRows) then\r\n    begin\r\n      if Row = min(Selection.Top, Selection.Bottom) then\r\n        newrow := max(Selection.Top, Selection.Bottom)\r\n      else\r\n        newrow := min(Selection.Top, Selection.Bottom);\r\n\r\n      Row := Row - 1;\r\n      Selection := GridRect(Selection.Left, newrow, Selection.Right, Row);\r\n\r\n      if Row < TopRow then\r\n        TopRow := TopRow - 1;\r\n    end;\r\n\r\n    // arrow Down\r\n    if (k = 40) and (Row < RowCount - 1) then\r\n    begin\r\n      if Row = max(Selection.Top, Selection.Bottom) then\r\n        newrow := min(Selection.Top, Selection.Bottom)\r\n      else\r\n        newrow := max(Selection.Top, Selection.Bottom);\r\n\r\n      Row := Row + 1;\r\n      Selection := GridRect(Selection.Left, newrow, Selection.Right, Row);\r\n\r\n      if Row > TopRow + VisibleRowCount then\r\n        TopRow := TopRow + 1;\r\n    end;\r\n\r\n    // arrow Left\r\n    if (k = 37) and (Col > FixedCols) then\r\n    begin\r\n      if Col = min(Selection.Left, Selection.Right) then\r\n        newcol := max(Selection.Left, Selection.Right)\r\n      else\r\n        newcol := min(Selection.Left, Selection.Right);\r\n\r\n      Col := Col - 1;\r\n      Selection := GridRect(newcol, Selection.Top, Col, Selection.Bottom);\r\n\r\n      if Col < LeftCol then\r\n        LeftCol := LeftCol - 1;\r\n     end;\r\n\r\n    // arrow Right\r\n    if (k = 39) and (Col < ColCount - 1) then\r\n    begin\r\n      if Col = max(Selection.Left, Selection.Right) then\r\n        newcol := min(Selection.Left, Selection.Right)\r\n      else\r\n        newcol := max(Selection.Left, Selection.Right);\r\n\r\n      Col := Col + 1;\r\n\r\n      Selection := GridRect(newcol, Selection.Top, Col, Selection.Bottom);\r\n\r\n      if Col >= LeftCol + VisibleColCount then\r\n        LeftCol := LeftCol + 1;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    // End\r\n    if (k = 35) and not ischar then\r\n    begin\r\n      newrow := RowCount - 1;\r\n    end;\r\n\r\n    // Home\r\n    if (k = 36) and not ischar then\r\n    begin\r\n      newrow := FixedRows;\r\n    end;\r\n\r\n    // PgUp\r\n    if (k = 34) and not ischar then\r\n    begin\r\n      if (Row + 4 <= RowCount - 1) then\r\n      begin\r\n        newrow := Row + 4;\r\n      end\r\n      else\r\n      begin\r\n        newrow := RowCount - 1;\r\n      end;\r\n    end;\r\n\r\n    // PgDn\r\n    if (k = 33) and not ischar then\r\n    begin\r\n      if Row - 4 > FixedRows then\r\n      begin\r\n        newrow := Row - 4\r\n      end\r\n      else\r\n      begin\r\n        newrow := FixedRows;\r\n      end;\r\n    end;\r\n\r\n    // arrow Up\r\n    if not EditMode and (k = 38) and (Row > FixedRows) and not ischar then\r\n    begin\r\n      newrow := Row - 1;\r\n    end;\r\n\r\n    // arrow Down\r\n    if not EditMode and (k = 40) and (Row < RowCount - 1) and not ischar then\r\n    begin\r\n      newrow := Row + 1;\r\n    end;\r\n\r\n    // arrow Left\r\n    if not EditMode and (k = 37) and (Col > FixedCols) and not ischar then\r\n    begin\r\n      newcol := Col - 1;\r\n    end;\r\n\r\n    // arrow Right\r\n    if not EditMode and (k = 39) and (Col < ColCount - 1) and not ischar then\r\n    begin\r\n      newcol := Col + 1;\r\n    end;\r\n\r\n    if not EditMode and CanSelect(newcol,newrow) and not ischar then\r\n    begin\r\n      SelectCell(newcol,newrow);\r\n\r\n      if (k = 38) and (Row < TopRow) then\r\n         TopRow := TopRow - 1;\r\n\r\n      if (k = 33) and (Row < TopRow) then\r\n         TopRow := Row;\r\n\r\n      if (k = 34) and (Row >= TopRow + VisibleRowCount) then\r\n         TopRow := Row;\r\n\r\n      if (k = 40) and (Row >= TopRow + VisibleRowCount) then\r\n         TopRow := TopRow + 1;\r\n\r\n      if (k = 37) and (Col < LeftCol) then\r\n         LeftCol := LeftCol - 1;\r\n\r\n      if (k = 39) and (Col >= LeftCol + VisibleColCount) then\r\n         LeftCol := LeftCol + 1;\r\n\r\n      if (k = 35) then\r\n         TopRow := Row - VisibleRowCount;\r\n\r\n      if (k = 36) then\r\n         TopRow := FixedRows;\r\n    end;\r\n\r\n    // F2\r\n    if (k = 113) and not EditMode and (goEditing in Options) and CanEditCell(Col,Row) then\r\n    begin\r\n      ShowEdit;\r\n    end;\r\n\r\n    if ((k >= 32) and (k <= 112)) and ischar and not EditMode and (goEditing in Options) and CanEditCell(Col,Row) then\r\n    begin\r\n      StartEdit(Event.Key);\r\n    end;\r\n\r\n    if (k = 13) and (goEditing in Options) and CanEditCell(Col,Row) then\r\n    begin\r\n      if EditMode then\r\n      begin\r\n        HideEdit(EditAdvance);\r\n      end\r\n      else\r\n        ShowEdit;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.HandleMaskExit(Sender: TObject);\r\nbegin\r\n  if EditMode then\r\n    HideEdit;\r\nend;\r\n\r\nprocedure TCustomStringGrid.HandleMemoExit(Sender: TObject);\r\nbegin\r\n  if EditMode then\r\n    HideEdit;\r\nend;\r\n\r\n\r\nprocedure TCustomStringGrid.HandleMaskKeyPress(Sender: TObject; var Key: Char);\r\nbegin\r\n  if Assigned(OnKeyPress) then\r\n    OnKeyPress(Self, Key);\r\n\r\n  if (Ord(Key) = 27) then\r\n    CancelEdit;\r\n\r\n  if (Ord(Key) = 13) then\r\n    HideEdit(EditAdvance);\r\nend;\r\n\r\nprocedure TCustomStringGrid.HandleMemoKeyPress(Sender: TObject; var Key: Char);\r\nbegin\r\n  if Assigned(OnKeyPress) then\r\n    OnKeyPress(Self, Key);\r\n\r\n  if (Ord(Key) = 27) then\r\n    CancelEdit;\r\nend;\r\n\r\nfunction TCustomStringGrid.HandleMouseDown(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  rindex, cindex: integer;\r\n  l, t: Single;\r\n  ss: TShiftState;\r\n  mb: TMouseButton;\r\n  el: TJSHTMLElement;\r\n  ww: boolean;\r\nbegin\r\n  Result := true;\r\n\r\n  if not Enabled then\r\n    Exit;\r\n\r\n  mb := GetMouseEventButton(Event);\r\n\r\n  if mb <> mbLeft then\r\n    Exit;\r\n\r\n  rindex := -1;\r\n  cindex := -1;\r\n\r\n  el := TJSHTMLElement(Event.target);\r\n  ww := WordWrap;\r\n\r\n  if ww and (Lowercase(el.tagName)= 'div') then\r\n  begin\r\n    el := TJSHTMLElement(el.parentElement);\r\n  end;\r\n\r\n  asm\r\n    if (el.tagName.toLowerCase() == 'td')\r\n    {\r\n      cindex = el.cellIndex;\r\n      var tr = el.parentElement;\r\n      rindex = tr.rowIndex;\r\n    }\r\n  end;\r\n\r\n  FSelMouseDown := el = FSelectedCell;\r\n\r\n  if Assigned(FSelectedCell) and not FSelMouseDown and (cindex <> -1) and (rindex <> -1) then\r\n  begin\r\n    HideEdit;\r\n  end;\r\n\r\n  if not CanSelect(cindex + FixedCols, rindex + FixedRows) then\r\n    Exit;\r\n\r\n  if (cindex >= 0) and (rindex >= 0) then\r\n  begin\r\n    if (goRowSelect in Options) then\r\n      Selection := GridRect(FixedCols, rindex + FixedRows, ColCount - 1, rindex + FixedRows)\r\n    else\r\n      Selection := GridRect(cindex + FixedCols, rindex + FixedRows, cindex + FixedCols, rindex + FixedRows);\r\n\r\n    if (goRangeSelect in Options) then\r\n    begin\r\n      FStartCell.X := cindex + FixedCols;\r\n      FStartCell.Y := rindex + FixedRows;\r\n    end\r\n    else\r\n    begin\r\n      FStartCell.X := -1;\r\n      FStartCell.Y := -1;\r\n    end;\r\n  end;\r\n\r\n  XYToClient(Event.clientX, Event.clientY, l, t);\r\n\r\n  ss := GetMouseEventShiftState(Event);\r\n\r\n  MouseDown(mb, ss, Trunc(l), Trunc(t));\r\nend;\r\n\r\nfunction TCustomStringGrid.HandleScroll(Event: TJSEvent): Boolean;\r\nbegin\r\n  if FixedCols > 0 then\r\n  begin\r\n    FFixedCol.parentElement.scrollTop := FNormalCells.parentElement.parentElement.scrollTop;\r\n  end;\r\n\r\n  if FixedRows > 0 then\r\n    FFixedRow.parentElement.parentElement.scrollLeft := FNormalCells.parentElement.parentElement.scrollLeft;\r\n\r\n  TopLeftChanged;\r\n\r\n  Result := true;\r\nend;\r\n\r\nfunction TCustomStringGrid.HandleTableBlur(Event: TJSEvent): Boolean;\r\nbegin\r\n  Result := true;\r\n\r\n  if Assigned(OnExit) and not EditMode then\r\n    OnExit(Self);\r\nend;\r\n\r\nfunction TCustomStringGrid.HandleTableFocus(Event: TJSEvent): Boolean;\r\nbegin\r\n  Result := true;\r\n  if not Enabled then\r\n    Exit;\r\n\r\n  if Assigned(OnEnter) and not FBlockFocus then\r\n    OnEnter(Self);\r\n\r\n  FBlockFocus := false;\r\n\r\n  if (Col = -1) and (Row = -1) and not HasSelection and (FixedCols < ColCount) and (FixedRows < RowCount) and CanSelect(FixedCols, FixedRows) then\r\n  begin\r\n    SelectCell(FixedCols, FixedRows);\r\n  end;\r\nend;\r\n\r\nfunction TCustomStringGrid.HasButton(const ACol, ARow: integer): boolean;\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  Result := false;\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := GetButtonElement(ACol,ARow);\r\n    Result := Assigned(el);\r\n  end;\r\nend;\r\n\r\nfunction TCustomStringGrid.HasCheckBox(const ACol, ARow: integer): boolean;\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  Result := false;\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := GetCheckElement(ACol,ARow);\r\n    Result := Assigned(el);\r\n  end;\r\nend;\r\n\r\nfunction TCustomStringGrid.HasCanvas(const ACol, ARow: integer): boolean;\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  Result := false;\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := GetCanvasElement(ACol,ARow);\r\n    Result := Assigned(el);\r\n  end;\r\nend;\r\n\r\nfunction TCustomStringGrid.GetCanvas(const ACol,ARow: integer): TJSHTMLCanvasElement;\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  Result := nil;\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := GetCanvasElement(ACol,ARow);\r\n    if Assigned(el) then\r\n      Result := TJSHTMLCanvasElement(el);\r\n  end;\r\nend;\r\n\r\nfunction TCustomStringGrid.HasHorzScrollBar: boolean;\r\nbegin\r\n  Result := false;\r\n  if Assigned(FNormalCells.parentElement) then\r\n  begin\r\n    Result :=  FNormalCells.parentElement.parentElement.clientWidth < FNormalCells.parentElement.scrollWidth;\r\n  end;\r\nend;\r\n\r\nfunction TCustomStringGrid.HasProgress(const ACol, ARow: integer): boolean;\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  Result := false;\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := GetProgressElement(ACol,ARow);\r\n    Result := Assigned(el);\r\n  end;\r\nend;\r\n\r\nfunction TCustomStringGrid.HasSelection: boolean;\r\nbegin\r\n  Result := not ((Selection.Left = 0) and (Selection.Top = 0) and (Selection.Right = 0) and (Selection.Bottom = 0));\r\nend;\r\n\r\nfunction TCustomStringGrid.HasSortIndicator(const ACol, ARow: integer): boolean;\r\nvar\r\n  el: TJSElement;\r\n  sid: string;\r\n\r\nbegin\r\n  sid := Name + 'si'+ACol.ToString+'_'+ARow.ToString;\r\n\r\n  el := document.getElementById(sid);\r\n\r\n  Result := Assigned(el);\r\nend;\r\n\r\nfunction TCustomStringGrid.HasVertScrollBar: boolean;\r\nbegin\r\n  Result := false;\r\n  if Assigned(FNormalCells.parentElement) then\r\n  begin\r\n    Result :=  FNormalCells.parentElement.parentElement.clientHeight < FNormalCells.parentElement.scrollHeight;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.HideEdit(Advance: boolean = false);\r\nvar\r\n  val,cval: string;\r\n  eh: TJSHTMLElement;\r\n  rh: integer;\r\nbegin\r\n  if EditMode then\r\n  begin\r\n    FEditMode := false;\r\n\r\n    if FEditType = geCombo then\r\n    begin\r\n      val := FCombo.Text;\r\n      eh := FCombo.ElementHandle;\r\n    end\r\n    else\r\n    if FEditType = geMemo then\r\n    begin\r\n      val := FMemo.Lines.Text;\r\n      eh := FMemo.ElementHandle;\r\n    end\r\n    else\r\n    if FEditType = geMask then\r\n    begin\r\n      val := FMask.Text;\r\n      eh := FMask.ElementHandle;\r\n    end\r\n    else\r\n    if FEditType = geCustom then\r\n    begin\r\n      GetEditControlValue(FEditCol, FEditRow, FEditControl, val);\r\n      eh := FEditControl.ElementHandle;\r\n      TJSHTMLElement(FSelectedCell).style.removeProperty('vertical-align');\r\n    end\r\n    else\r\n    begin\r\n      val := (FEdit as TJSHTMLInputElement).value;\r\n      eh := FEdit;\r\n    end;\r\n\r\n    ValidateCell(FEditCol, FEditRow, val);\r\n\r\n    if FSelectedCell.contains(eh) then\r\n      FSelectedCell.removeChild(eh);\r\n\r\n    cval := val;\r\n\r\n    if WordWrap then\r\n    begin\r\n      rh := RowHeights[FEditRow] - 2;\r\n      cval := '<DIV class=\"cell\" style=\"height:'+rh.ToString+'px;max-height:'+rh.ToString+'px\">'+ cval + '</DIV>';\r\n    end;\r\n\r\n    FSelectedCell.innerHTML := cval;\r\n\r\n    UpdateCell(FEditCol, FEditRow, val);\r\n\r\n    if not (goRowSelect in Options) then\r\n      AddSelection(FSelectedCell);\r\n\r\n    SetEditText(FEditCol, FEditRow, val);\r\n\r\n    FBlockFocus := true;\r\n\r\n    TJSHTMLElement(FNormalCells).focus();\r\n\r\n    if Advance then\r\n    begin\r\n      RemoveSelection(FSelectedCell);\r\n      if Col < ColCount - 1 then\r\n        Col := Col + 1\r\n      else\r\n      begin\r\n        if CanRowAdvance then\r\n        begin\r\n          if Row < RowCount - 1  then\r\n          begin\r\n            Col := FixedCols;\r\n            Row := Row + 1;\r\n          end\r\n          else\r\n          begin\r\n            Col := FixedCols;\r\n            Row := FixedRows;\r\n          end;\r\n        end\r\n        else\r\n          Exit;\r\n      end;\r\n\r\n      if CanEditCell(Col,Row) then\r\n        StartEdit('');\r\n    end;\r\n\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.InitCSSLibrary(ALibrary: TCSSLibrary);\r\nbegin\r\n  if (ALibrary = cssBootstrap) then\r\n  begin\r\n    ElementFont := efCSS;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.InitSample(AInitMethod: TInitMethod);\r\nvar\r\n  i,j: integer;\r\nbegin\r\n  for i := 0 to RowCount - 1 do\r\n  begin\r\n    for j := 0 to ColCount - 1 do\r\n    begin\r\n     case AInitMethod of\r\n     imRandom:\r\n       Cells[j,i] := IntToStr(Random(100));\r\n     imLinear:\r\n       Cells[j,i] := IntToStr(j)+':'+IntToStr(i);\r\n     end;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TCustomStringGrid.InsertColumn(const Index: integer);\r\nvar\r\n  i,fc: integer;\r\nbegin\r\n  fc := FixedCols;\r\n\r\n  asm\r\n    var tr;\r\n    var td;\r\n  end;\r\n\r\n  if Index < FixedCols then\r\n  begin\r\n    if FixedRows > 0 then\r\n    begin\r\n      for i := 0 to FixedRows - 1 do\r\n      begin\r\n        asm\r\n          tr = this.FFixedColRow.rows[i];\r\n          td = tr.insertCell(Index);\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    for i := 0 to RowCount - 1 - FixedRows do\r\n    begin\r\n      asm\r\n        tr = this.FFixedCol.rows[i];\r\n        td = tr.insertCell(Index);\r\n      end;\r\n    end;\r\n\r\n    FFixedCols := FixedCols + 1;\r\n  end\r\n  else\r\n  begin\r\n    if FixedRows > 0 then\r\n    begin\r\n      for i := 0 to FixedRows - 1 do\r\n      begin\r\n        asm\r\n          tr = this.FFixedRow.rows[i];\r\n          td = tr.insertCell(Index - fc);\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    for i := 0 to RowCount - 1 - FixedRows do\r\n    begin\r\n      asm\r\n        tr = this.FNormalCells.rows[i];\r\n        td = tr.insertCell(Index - fc);\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  FColCount := FColCount + 1;\r\n\r\n  for i := ColCount - 1 downto Index do\r\n  begin\r\n    if Index > 0 then\r\n      ColWidths[i] := ColWidths[i - 1];\r\n  end;\r\n\r\n  ColWidths[Index] := DefaultColWidth;\r\nend;\r\n\r\nprocedure TCustomStringGrid.InsertRow(const Index: integer);\r\nvar\r\n  i,fr: integer;\r\n\r\nbegin\r\n  fr := FixedRows;\r\n\r\n  asm\r\n    var tr;\r\n    var td;\r\n  end;\r\n\r\n  if Index < FixedRows then\r\n  begin\r\n    if FixedCols > 0 then\r\n    begin\r\n      asm\r\n        tr = this.FFixedColRow.insertRow(Index-fr);\r\n        td = tr.insertCell(i-1);\r\n      end;\r\n\r\n      for i := 0 to FixedCols - 1 do\r\n      begin\r\n        asm\r\n          td = tr.insertCell(i-1);\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    asm\r\n      tr = this.FFixedRow.insertRow(Index);\r\n    end;\r\n    for i := FixedCols to ColCount - 1 do\r\n    begin\r\n       asm\r\n         tr.insertCell(i-1);\r\n       end;\r\n    end;\r\n    FFixedRows := FFixedRows + 1;\r\n  end\r\n  else\r\n    if Index >= FixedRows then\r\n    begin\r\n      if FixedCols > 0 then\r\n      begin\r\n        asm\r\n          tr = this.FFixedCol.insertRow(Index-fr);\r\n        end;\r\n\r\n        for i := 0 to FixedCols - 1 do\r\n        begin\r\n          asm\r\n            td = tr.insertCell(i-1);\r\n          end;\r\n        end;\r\n      end;\r\n\r\n      asm\r\n        tr = this.FNormalCells.insertRow(Index-fr);\r\n      end;\r\n\r\n      for i := FixedCols to ColCount - 1 do\r\n      begin\r\n         asm\r\n           tr.insertCell(i-1);\r\n         end;\r\n      end;\r\n    end;\r\n\r\n  FRowCount := FRowCount + 1;\r\n  RowHeights[Index] := DefaultRowHeight;\r\n\r\n  UpdateGridSize;\r\n  UpdateGridAlignment;\r\nend;\r\n\r\nfunction TCustomStringGrid.IsMergedCell(const ACol, ARow: integer; var NumCol,\r\n  NumRow: integer): boolean;\r\nbegin\r\n  NumCol := CellColSpan(ACol,ARow);\r\n  NumRow := CellRowSpan(ACol,ARow);\r\n\r\n  Result := (NumCol > 1) or (NumRow > 1);\r\nend;\r\n\r\n{$HINTS ON}\r\n\r\nprocedure TCustomStringGrid.MouseToCell(X,Y: integer; var C, R: integer);\r\nvar\r\n  DocX,DocY: single;\r\n  el: TJSHTMLElement;\r\n  cindex,rindex: integer;\r\n  frm: TCustomForm;\r\nbegin\r\n  cindex := -1;\r\n  rindex := -1;\r\n\r\n  ClientToXY(X,Y,DocX,DocY);\r\n\r\n  frm := GetParentForm(Self);\r\n  if frm.Popup then\r\n  begin\r\n    DocX := DocX - frm.Left;\r\n    DocY := DocY - frm.Top;\r\n  end;\r\n\r\n  el := TJSHTMLElement(document.elementFromPoint(Round(DocX),Round(DocY)));\r\n\r\n  if Assigned(el) then\r\n  begin\r\n    asm\r\n      if (el.tagName.toLowerCase() == 'td')\r\n      {\r\n        cindex = el.cellIndex;\r\n        var tr = el.parentElement;\r\n        rindex = tr.rowIndex;\r\n\r\n        if (tr.parentElement.parentElement == this.FNormalCells)\r\n        {\r\n          rindex = rindex + this.FFixedRows;\r\n          cindex = cindex + this.FFixedCols;\r\n        }\r\n        if (tr.parentElement.parentElement == this.FFixedCol)\r\n        {\r\n          rindex = rindex + this.FFixedRows;\r\n        }\r\n        if (tr.parentElement.parentElement == this.FFixedRow)\r\n        {\r\n          cindex = cindex + this.FFixedCols;\r\n        }\r\n      }\r\n    end;\r\n\r\n  end;\r\n  R := rindex;\r\n  C := cindex;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SaveToStrings(AStrings: TStrings; Delimiter: char = ';'; SaveFixed: boolean = false);\r\nvar\r\n  r,c: integer;\r\n  fr,fc: integer;\r\n  s,rowstr: string;\r\nbegin\r\n  fr := 0;\r\n  fc := 0;\r\n  if not SaveFixed then\r\n    fc := FixedCols;\r\n\r\n  if not SaveFixed then\r\n    fr := FixedRows;\r\n\r\n  for r := fr to RowCount - 1 do\r\n  begin\r\n    rowstr := '';\r\n    for c := fc to ColCount - 1 do\r\n    begin\r\n      s := Cells[c,r];\r\n      s := stringreplace(s,'\"','\"\"',[rfReplaceAll]);\r\n\r\n      if (pos(Delimiter,s) > 0) or (pos(#13, s) > 0) then\r\n      begin\r\n        s := '\"' +  s +  '\"';\r\n      end;\r\n\r\n      if s = '' then\r\n        s := '\"\"';\r\n\r\n      if rowstr = '' then\r\n        rowstr := s\r\n      else\r\n        rowstr := rowstr + Delimiter + s;\r\n    end;\r\n    AStrings.Add(rowstr);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SaveToCSV(const AFileName: string; Delimiter: char = ';'; SaveFixed: boolean = false);\r\nvar\r\n  sl: TStringList;\r\nbegin\r\n  sl := TStringList.Create;\r\n  try\r\n    SaveToStrings(sl, Delimiter, SaveFixed);\r\n    sl.SaveToFile(AFileName);\r\n  finally\r\n    sl.Free;\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TCustomStringGrid.LoadFromCSV(const AURL: string; Delimiter: char = ';'; LoadFixed: boolean = false);\r\nbegin\r\n  FDelimiter := Delimiter;\r\n  FLoadFixed := LoadFixed;\r\n\r\n  FReq := TJSXMLHttpRequest.new;\r\n  FReq.addEventListener('load',@DoHttpLoadCsv);\r\n  FReq.addEventListener('abort',@DoHttpAbort);\r\n  FReq.open('GET', AURL);\r\n  DoHttpRequest(FReq);\r\n  FReq.send;\r\nend;\r\n\r\nfunction TCustomStringGrid.LoadFromCSVAsync(const AURL: string; Delimiter: char = ';'; LoadFixed: boolean = false): TJSPromise;\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n\r\n      function DoLoad(Event: TEventListenerEvent): boolean;\r\n      begin\r\n        if DoHttpLoadCsv(Event) then\r\n          ASuccess(TJSXMLHttpRequest(Event.target))\r\n        else\r\n          AFailed(TJSXMLHttpRequest(Event.target));\r\n        Result := true;\r\n      end;\r\n\r\n      function DoError(Event: TEventListenerEvent): boolean;\r\n      begin\r\n        AFailed(TJSXMLHttpRequest(Event.target));\r\n        Result := true;\r\n      end;\r\n\r\n    begin\r\n      FDelimiter := Delimiter;\r\n      FLoadFixed := LoadFixed;\r\n      FReq := TJSXMLHttpRequest.new;\r\n      FReq.addEventListener('load',@DoLoad);\r\n      FReq.addEventListener('abort',@DoError);\r\n      FReq.addEventListener('timeout',@DoError);\r\n      FReq.addEventListener('error',@DoError);\r\n\r\n      FReq.open('GET', AURL);\r\n      DoHttpRequest(FReq);\r\n      FReq.send;\r\n    end);\r\n\r\nend;\r\n\r\nprocedure TCustomStringGrid.LoadFromJSON(const AURL: string; ADataNode: string = '');\r\nbegin\r\n  FDataNode := ADataNode;\r\n  FReq := TJSXMLHttpRequest.new;\r\n  FReq.addEventListener('load',@DoHttpLoadJson);\r\n  FReq.addEventListener('abort',@DoHttpAbort);\r\n  FReq.open('GET', AURL);\r\n  DoHttpRequest(FReq);\r\n  FReq.send;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TCustomStringGrid.MergeCells(const ACol, ARow, NumCol,\r\n  NumRow: integer);\r\nvar\r\n  i: integer;\r\n  j: integer;\r\n  el,mel: TJSHTMLElement;\r\n  cw: integer;\r\nbegin\r\n  FHasMergedCells := true;\r\n  mel := CellRealElement(ACol,ARow);\r\n\r\n  for i := NumCol downto 1 do\r\n  begin\r\n    for j := NumRow downto 1 do\r\n    begin\r\n      if (i>1) or (j>1) then\r\n      begin\r\n        el := CellRealElement(ACol + i - 1,ARow + j - 1);\r\n        asm\r\n          el.remove();\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  if NumCol > 1 then\r\n    mel['colspan'] := NumCol.ToString;\r\n  if NumRow > 1 then\r\n    mel['rowspan'] := NumRow.ToString;\r\n\r\n  if ARow in [0,1] then\r\n  begin\r\n    cw := 0;\r\n    for i := ACol to ACol + NumCol - 1 do\r\n    begin\r\n      cw := cw + ColWidths[i] - CELLPADDING;\r\n      if ((ARow = 0) and (goFixedVertLine in Options)) or\r\n         ((ARow = 1) and (goVertLine in Options)) then\r\n        if NumCol >  1 then\r\n          inc(cw);\r\n    end;\r\n\r\n    mel.style.setProperty('width', cw.ToString+'px');\r\n    mel.style.setProperty('max-width', cw.ToString+'px');\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TCustomStringGrid.SplitCells(const ACol, ARow: integer);\r\nvar\r\n  el,td,split: TJSElement;\r\n  i,j,NumRow,NumCol: integer;\r\nbegin\r\n  if IsMergedCell(ACol,ARow, NumCol,NumRow) then\r\n  begin\r\n    split := CellRealElement(ACol,ARow);\r\n\r\n    for i := 1 to Max(1,NumRow) do\r\n    begin\r\n      el := CellRealElement(ACol + NumCol,ARow + i - 1);\r\n\r\n      for j := 1 to Max(1,NumCol) do\r\n      begin\r\n        if (j = 1) and (i = 1) then\r\n          Continue;\r\n        td := document.createElement('TD');\r\n        el.parentNode.InsertBefore(td,el);\r\n      end;\r\n    end;\r\n\r\n    split['colspan'] := '';\r\n    split['rowspan'] := '';\r\n\r\n    if ARow = 0 then\r\n    begin\r\n      for i := ACol to ACol + NumCol - 1 do\r\n        ColWidths[i] := ColWidths[i];\r\n    end;\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TCustomStringGrid.MouseMove(Shift: TShiftState; X, Y: Integer);\r\nbegin\r\n  inherited;\r\n  if (FStartCell.X <> -1) and (FStartCell.Y <> -1) then\r\n  begin\r\n    if (Y > Height - 10) then\r\n    begin\r\n      TopRow := TopRow + 1;\r\n      Selection := GridRect(Selection.Left, min(Selection.Top, Selection.Bottom), Selection.Right, max(Selection.Top, Selection.Bottom) + 1);\r\n    end;\r\n\r\n    if (FixedRows > 0) and (Y < RowHeights[0]) and (TopRow > FixedRows) then\r\n    begin\r\n      TopRow := TopRow - 1;\r\n      Selection := GridRect(Selection.Left, min(Selection.Top, Selection.Bottom) - 1, Selection.Right, max(Selection.Top, Selection.Bottom));\r\n    end;\r\n\r\n    if (X > Width - 10) then\r\n    begin\r\n      LeftCol := LeftCol + 1;\r\n      Selection := GridRect(min(Selection.Left, Selection.Right), Selection.Top, max(Selection.Left, Selection.Right) + 1, Selection.Bottom);\r\n    end;\r\n\r\n    if (FixedCols > 0) and (X < ColWidths[0]) and (LeftCol > FixedCols) then\r\n    begin\r\n      LeftCol := LeftCol - 1;\r\n      Selection := GridRect(min(Selection.Left, Selection.Right) - 1, Selection.Top, max(Selection.Left, Selection.Right), Selection.Bottom);\r\n    end;\r\n\r\n  end;\r\nend;\r\n\r\nfunction TCustomStringGrid.NormalColWidth: integer;\r\nvar\r\n  i: integer;\r\nbegin\r\n  Result := 1;\r\n\r\n  for i := FixedCols to ColCount - 1 do\r\n    Result := Result + ColWidths[i] + 1 - CELLPADDING;\r\nend;\r\n\r\nfunction TCustomStringGrid.NormalRowHeight: integer;\r\nvar\r\n  i: integer;\r\nbegin\r\n  Result := 0;\r\n\r\n  for i := FixedRows to RowCount - 1 do\r\n    Result := Result + RowHeights[i];\r\nend;\r\n\r\n\r\n{$HINTS OFF}\r\nprocedure TCustomStringGrid.RemoveButton(const ACol, ARow: integer);\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := GetButtonElement(ACol,ARow);\r\n    if Assigned(el) then\r\n    begin\r\n      el.removeEventListener('click',FHandleCheckClickPtr);\r\n      asm\r\n        el.remove();\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.RemoveCanvas(const ACol, ARow: integer);\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := GetCanvasElement(ACol,ARow);\r\n    if Assigned(el) then\r\n    begin\r\n      asm\r\n        el.remove();\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TCustomStringGrid.RemoveCheckBox(const ACol, ARow: integer);\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := GetCheckElement(ACol,ARow);\r\n    if Assigned(el) then\r\n    begin\r\n      el.removeEventListener('click',FHandleCheckClickPtr);\r\n      asm\r\n        el.remove();\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.RemoveColumn(const Index: integer);\r\nvar\r\n  i,fc: integer;\r\nbegin\r\n  fc := FixedCols;\r\n\r\n  asm\r\n    var tr;\r\n    var td;\r\n  end;\r\n\r\n  if Index < FixedCols then\r\n  begin\r\n    if FixedRows > 0 then\r\n    begin\r\n      for i := 0 to FixedRows - 1 do\r\n      begin\r\n        asm\r\n          tr = this.FFixedColRow.rows[i];\r\n          td = tr.deleteCell(Index);\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    for i := 0 to RowCount - 1 - FixedRows do\r\n    begin\r\n      asm\r\n        tr = this.FFixedCol.rows[i];\r\n        td = tr.deleteCell(Index);\r\n      end;\r\n    end;\r\n\r\n    FFixedCols := FixedCols - 1;\r\n  end\r\n  else\r\n  begin\r\n    if FixedRows > 0 then\r\n    begin\r\n      for i := 0 to FixedRows - 1 do\r\n      begin\r\n        asm\r\n          tr = this.FFixedRow.rows[i];\r\n          td = tr.deleteCell(Index - fc);\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    for i := 0 to RowCount - 1 - FixedRows do\r\n    begin\r\n      asm\r\n        tr = this.FNormalCells.rows[i];\r\n        td = tr.deleteCell(Index - fc);\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  FColCount := FColCount - 1;\r\n\r\n  for i := Index to ColCount - 1 do\r\n  begin\r\n    ColWidths[i] := ColWidths[i + 1];\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.RemoveProgress(const ACol, ARow: integer);\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := GetProgressElement(ACol,ARow);\r\n    asm\r\n      el.remove();\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.RemoveRow(const Index: integer);\r\nvar\r\n  td,tr: TJSHTMLElement;\r\n  fr: integer;\r\n  i: integer;\r\nbegin\r\n  if Index >= RowCount then\r\n    raise Exception.Create('Invalid row index');\r\n\r\n  fr := FFixedRows;\r\n\r\n  if Index < FixedRows then\r\n  begin\r\n    if FixedCols > 0 then\r\n    begin\r\n      asm\r\n        this.FFixedColRow.deleteRow(Index);\r\n      end;\r\n    end;\r\n\r\n    asm\r\n      this.FFixedRow.deleteRow(Index);\r\n    end;\r\n\r\n  end\r\n  else\r\n  begin\r\n    if FixedCols > 0 then\r\n    begin\r\n      asm\r\n        this.FFixedCol.deleteRow(Index -fr);\r\n      end;\r\n    end;\r\n\r\n    asm\r\n      this.FNormalCells.deleteRow(Index - fr);\r\n    end;\r\n  end;\r\n\r\n  if FRowHeights.Count = RowCount then\r\n    FRowHeights.Delete(Index);\r\n\r\n  FRowCount := FRowCount - 1;\r\n\r\n  RowHeights[0] := RowHeights[0];\r\n\r\n  UpdateGridSize;\r\n  UpdateGridAlignment;\r\nend;\r\n\r\nprocedure TCustomStringGrid.RemoveSelection(ACell: TJSElement);\r\nbegin\r\n  if ShowSelection then\r\n    ACell.classlist.remove('selected');\r\nend;\r\n\r\nprocedure TCustomStringGrid.RemoveSortIndicator(const ACol, ARow: integer);\r\nvar\r\n  el: TJSElement;\r\n  sid: string;\r\n\r\nbegin\r\n  sid := Name + 'si'+ACol.ToString+'_'+ARow.ToString;\r\n\r\n  el := document.getElementById(sid);\r\n\r\n  if Assigned(el) then\r\n     el.parentElement.removeChild(el);\r\nend;\r\n\r\nprocedure TCustomStringGrid.RenderGrid;\r\nvar\r\n  res: TJSHTMLElement;\r\n  i,j,k,fw,fh,nw,nh,nwvis,nhvis,nwvisnoscroll,nhvisnoscroll: integer;\r\n  tr, td, span, cellspan: TJSElement;\r\n  fixcol,fixtxtcol: string;\r\n  dynstyle: string;\r\n  vscroll,hscroll: boolean;\r\n  LAutoSizeW, LAutoSizeH: boolean;\r\n  ControlName: string;\r\nbegin\r\n  while FColWidths.Count <= ColCount do\r\n    FColWidths.Add(DefaultColWidth);\r\n\r\n  if FOrigID = '' then\r\n  begin\r\n    FOrigID := GetID;\r\n    if FOrigID = '' then\r\n      FOrigID := Name;\r\n  end;\r\n\r\n  if not Assigned(FGrid) then\r\n  begin\r\n    if IsLinked and Assigned(ElementHandle.firstElementChild) then\r\n    begin\r\n      res := TJSHTMLElement(ElementHandle.firstElementChild);\r\n    end\r\n    else\r\n      res := TJSHTMLElement(document.createElement('TABLE'));\r\n\r\n    res.setAttribute('id', FOrigID + 'tbl');\r\n\r\n    if ElementTableClassName = '' then\r\n    begin\r\n      res.setAttribute('class','table.' + StylePrefix + Name);\r\n      res.style.setProperty('border-collapse','collapse');\r\n      res.style.setProperty('border-spacing','0px');\r\n      res.style.setProperty('border','0px');\r\n    end\r\n    else\r\n      res.setAttribute('class',ElementTableClassName);\r\n\r\n    FGrid := res;\r\n\r\n    SetHTMLElementFont(res, Font, not ((ElementClassName = '') and (ElementFont = efProperty)) );\r\n\r\n    AddInstanceStyle(StylePrefix + FOrigID, GetGridCSS(FOrigID + 'tbl'));\r\n  end\r\n  else\r\n    Exit;\r\n\r\n  LAutoSizeW := WidthStyle = ssAuto;\r\n  LAutoSizeH := HeightStyle = ssAuto;\r\n  ControlName := FOrigID + 'tbl';\r\n\r\n  asm\r\n    var td = undefined;\r\n    var tr = undefined;\r\n    var span = undefined;\r\n    var cellspan = undefined;\r\n    this.FFixedColRow = document.createElement('TABLE');\r\n    this.FFixedColRow.setAttribute('id', ControlName + 'ResizeFixedRowTable');\r\n    this.FFixedColRow.style.setProperty('border-collapse','collapse');\r\n    this.FFixedColRow.style.setProperty('border-spacing','0px');\r\n\r\n    this.FFixedCol = document.createElement('TABLE');\r\n    this.FFixedCol.setAttribute('id', ControlName + 'ResizeFixedColTable');\r\n    this.FFixedCol.style.setProperty('border-collapse','collapse');\r\n    this.FFixedCol.style.setProperty('border-spacing','0px');\r\n\r\n    this.FFixedRow = document.createElement('TABLE');\r\n    this.FFixedRow.setAttribute('id', ControlName + 'ResizeRowTable');\r\n    this.FFixedRow.style.setProperty('border-collapse','collapse');\r\n    this.FFixedRow.style.setProperty('border-spacing','0px');\r\n    this.FFixedRow.style.setProperty('border','0px');\r\n\r\n    this.FNormalCells = document.createElement('TABLE');\r\n    this.FNormalCells.setAttribute('id', ControlName + 'NormalCellTable');\r\n    this.FNormalCells.style.setProperty('border-collapse','collapse');\r\n    this.FNormalCells.style.setProperty('border-spacing','0px');\r\n  end;\r\n\r\n  // make normal grid cells focusable\r\n  FNormalCells.setAttribute('tabindex',IntToStr(TabOrder));\r\n  TJSHTMLElement(FNormalCells).style.setProperty('outline','none');\r\n  FNormalCells.addEventListener('click',FHandleClickPtr);\r\n  FNormalCells.addEventListener('mousedown',FHandleMouseDownPtr);\r\n  FNormalCells.addEventListener('mousemove',FHandleMouseMovePtr);\r\n  FNormalCells.addEventListener('mouseup',FHandleMouseUpPtr);\r\n\r\n  FFixedCol.addEventListener('click',FHandleFixedClickPtr);\r\n  FFixedRow.addEventListener('click',FHandleFixedClickPtr);\r\n  FFixedColRow.addEventListener('click',FHandleFixedClickPtr);\r\n\r\n  ElementHandle.appendChild(res);\r\n\r\n  fw := FixedColWidth;\r\n  fh := FixedRowHeight;\r\n\r\n  nw := NormalColWidth;\r\n  nh := NormalRowHeight;\r\n\r\n  nwvis := Width - FixedColWidth;\r\n  nhvis := Height - FixedRowHeight;\r\n\r\n  if BorderStyle = bsSingle then\r\n  begin\r\n    nwvis := nwvis - 2;\r\n    nhvis := nhvis - 2;\r\n  end;\r\n\r\n  nwvisnoscroll := nwvis - GetScrollBarWidth;\r\n\r\n  if FixedColWidth + NormalColWidth < Width then\r\n    nhvisnoscroll := nhvis\r\n  else\r\n    nhvisnoscroll := nhvis - GetScrollBarHeight;\r\n\r\n  if FFixedColor <> clNone then\r\n    fixcol := ColorToHTML(FFixedColor);\r\n  if FixedTextColor <> clNone then\r\n    fixtxtcol := ColorToHTML(FixedTextColor);\r\n\r\n  // insert the main four grid cells\r\n  asm\r\n    tr = res.insertRow(0);\r\n    td = tr.insertCell(0);\r\n    td.style.border = \"0px\";\r\n    td = tr.insertCell(1);\r\n    td.style.border = \"0px\";\r\n    tr = res.insertRow(1);\r\n    td = tr.insertCell(0);\r\n    td.style.border = \"0px\";\r\n    td = tr.insertCell(1);\r\n    td.style.border = \"0px\";\r\n  end;\r\n\r\n  // fill fixedrow cells\r\n  if FixedRows > 0 then\r\n  begin\r\n    k := 0;\r\n\r\n    // fixedcol/fixedrow\r\n    if FixedCols > 0 then\r\n    begin\r\n      k := 1;\r\n      asm\r\n        td = res.rows[0].cells[0];\r\n        span = document.createElement('DIV');\r\n//        span.style.width = fw + \"px\";\r\n        span.style.height = fh + \"px\";\r\n        span.style.overflow = \"hidden\";\r\n        span.style.backgroundColor = fixcol;\r\n        span.style.color = fixtxtcol;\r\n        td.appendChild(span);\r\n        span.appendChild(this.FFixedColRow);\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      asm\r\n        td = res.rows[0].cells[0];\r\n        td.style.border = \"0px\";\r\n        td = res.rows[1].cells[0];\r\n        td.style.border = \"0px\";\r\n      end;\r\n\r\n    end;\r\n\r\n    //\r\n    asm\r\n      td = res.rows[0].cells[1];\r\n      td.style.backgroundColor = fixcol;\r\n      td.style.color = fixtxtcol;\r\n\r\n      span = document.createElement('DIV');\r\n      span.style.height = fh + \"px\";\r\n      if (!LAutoSizeW) {\r\n        span.style.width = nwvis + \"px\";\r\n      }\r\n\r\n      span.style.overflow = \"hidden\";\r\n      span.style.backgroundColor = fixcol;\r\n      span.style.color = fixtxtcol;\r\n\r\n      td.appendChild(span);\r\n\r\n      cellspan = document.createElement('DIV');\r\n      cellspan.style.height = fh + \"px\";\r\n      if (!LAutoSizeW) {\r\n        cellspan.style.width = nw + \"px\";\r\n      }\r\n\r\n      span.appendChild(cellspan);\r\n      cellspan.appendChild(this.FFixedRow);\r\n    end;\r\n\r\n    if (FixedCols > 0) then\r\n    begin\r\n      for i := 0 to FixedRows - 1 do\r\n      begin\r\n        asm\r\n          tr = this.FFixedColRow.insertRow(i);\r\n        end;\r\n\r\n        for j := 0 to FixedCols - 1 do\r\n        begin\r\n          asm\r\n            td = tr.insertCell(j);\r\n            td.setAttribute('class','fixed');\r\n          end;\r\n\r\n          SetAlignAttr(ColAlignments[j], td);\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    // fill top cell\r\n    for i := 0 to FixedRows - 1 do\r\n    begin\r\n      asm\r\n        tr = this.FFixedRow.insertRow(i);\r\n      end;\r\n\r\n      for j := FixedCols to ColCount - 1 do\r\n      begin\r\n        k := j - FixedCols;\r\n        asm\r\n          td = tr.insertCell(k);\r\n          td.setAttribute('class','fixed');\r\n        end;\r\n\r\n        SetAlignAttr(ColAlignments[j], td);\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  k := 0;\r\n\r\n  // fill left cell\r\n  if FixedCols > 0 then\r\n  begin\r\n    k := 1;\r\n    asm\r\n      //tr = res.insertRow(res.rows.length);\r\n      //td = tr.insertCell(0);\r\n\r\n      td = res.rows[1].cells[0];\r\n\r\n      td.style.backgroundColor = fixcol;\r\n      td.style.color = fixtxtcol;\r\n      td.setAttribute('class','fixed');\r\n\r\n      span = document.createElement('DIV');\r\n      if (!LAutoSizeW) {\r\n      //span.style.width = fw + \"px\";\r\n      }\r\n      span.style.height = nhvisnoscroll + \"px\";\r\n      span.style.overflow = \"hidden\";\r\n      span.style.backgroundColor = fixcol;\r\n      span.style.color = fixtxtcol;\r\n\r\n      td.setAttribute('valign','top');\r\n\r\n      td.appendChild(span);\r\n      span.appendChild(this.FFixedCol);\r\n\r\n    end;\r\n\r\n    SetAlignAttr(ColAlignments[0], td);\r\n\r\n    for i := FixedRows to RowCount - 1 do\r\n    begin\r\n      j := i - FixedRows;\r\n      asm\r\n        tr = this.FFixedCol.insertRow(j);\r\n      end;\r\n\r\n      for j := 0 to FixedCols - 1 do\r\n      begin\r\n        asm\r\n          td = tr.insertCell(j);\r\n          td.setAttribute('class','fixed');\r\n        end;\r\n\r\n        SetAlignAttr(ColAlignments[j], td);\r\n\r\n        //TJSHTMLElement(td).innerHTML := inttostr(j)+':'+inttostr(i);\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  if FixedCols = 0 then\r\n  begin\r\n    asm\r\n      //tr = res.insertRow(res.rows.length);\r\n      //td = tr.insertCell(0);\r\n      td = res.rows[1].cells[1];\r\n    end\r\n  end\r\n  else\r\n  begin\r\n    asm\r\n      //tr = res.rows[1];\r\n      //td = tr.insertCell(1);\r\n      td = res.rows[1].cells[1];\r\n    end;\r\n  end;\r\n\r\n  vscroll := ((ssVertical = ScrollBars) or (ssBoth = ScrollBars));\r\n  hscroll := ((ssHorizontal = ScrollBars) or (ssBoth = ScrollBars));\r\n\r\n  asm\r\n    span = document.createElement('DIV');\r\n    // span.style.backgroundColor = \"#FFFFFF\";\r\n\r\n    if (vscroll) {\r\n      span.style.overflowY = \"auto\";\r\n    }\r\n    else\r\n    {\r\n      span.style.overflowY = \"hidden\";\r\n    }\r\n\r\n    if (hscroll) {\r\n      span.style.overflowX = \"auto\";\r\n    }\r\n    else {\r\n      span.style.overflowX = \"hidden\";\r\n    }\r\n\r\n    if (!LAutoSizeW) {\r\n      span.style.width = nwvis + \"px\";\r\n    }\r\n\r\n    if (LAutoSizeH) {\r\n      span.style.overflow = \"\";\r\n    }\r\n\r\n    span.style.height = nhvis + \"px\";\r\n    td.appendChild(span);\r\n\r\n    cellspan = document.createElement('DIV');\r\n      if (!LAutoSizeW) {\r\n        cellspan.style.width = nw + \"px\"; }\r\n    cellspan.style.height = nh + \"px\";\r\n    span.parentElement.style.verticalAlign = \"top\";\r\n    span.appendChild(cellspan);\r\n    cellspan.appendChild(this.FNormalCells);\r\n  end;\r\n\r\n  span.addEventListener('scroll',@HandleScroll);\r\n\r\n  for i := FixedRows to RowCount - 1 do\r\n  begin\r\n    k := i - FixedRows;\r\n    asm\r\n      tr = this.FNormalCells.insertRow(k);\r\n    end;\r\n\r\n    for j := FixedCols to ColCount - 1 do\r\n    begin\r\n      k := j - FixedCols;\r\n\r\n      asm\r\n        td = tr.insertCell(k);\r\n      end;\r\n\r\n      SetAlignAttr(ColAlignments[j], td);\r\n    end;\r\n  end;\r\n\r\n  FNormalCells.parentElement.parentElement.addEventListener('keydown',@HandleKeydown);\r\n  FNormalCells.addEventListener('focus',FHandleFocusPtr);\r\n  FNormalCells.addEventListener('blur',FHandleBlurPtr);\r\n\r\n  EnableColResize;\r\n\r\n  if DragMode = dmAutomatic then\r\n    EnableDrag;\r\nend;\r\n\r\nprocedure TCustomStringGrid.RenderGridScript;\r\nbegin\r\n  AddControlScriptSource(\r\n  'var TMSStringGridpageX,TMSStringGridcurCol,TMSStringGridnxtCol,TMSStringGridcurColWidth,TMSStringGridnxtColWidth,TMSStringGridautoWidth,GridNormalCells,GridFixedCells,GridFixedColCells,GridFixedColRows,GridColWidths,GridFixedCols,TMSStringGridCurID;'+\r\n  'var TMSStringGridTable,TMSStringGridcurTableWidth,TMSStringGridID,TMSStringGridFullWidth,TMSGridLastColSize;'+\r\n  'TMSStringGridautoWidth = false;'+\r\n  'TMSStringGridCurID = \"\";'+\r\n  'ResizeMainGrid = true;'+\r\n\r\n  'function TMSStringGridupdateColSize(Cells, Col) {'+\r\n  '    if (Cells){'+\r\n  '     for (i = 0; i < Cells.rows.length; i++){'+\r\n  '       td = Cells.rows[i].cells[Col.cellIndex];'+\r\n  '       td.style.position = \"relative\";'+\r\n  '       td.style.width = Col.style.width;'+\r\n  '       td.style.maxWidth = Col.style.width;'+\r\n  '      }'+\r\n  '    }'+\r\n  '}'+\r\n\r\n  'function TMSStringGridresizeColumn(e) {'+\r\n  '   if ((TMSStringGridcurCol) && (TMSStringGridCurID.indexOf(TMSStringGridID) == 0)) {'+\r\n\r\n  '    var diffX = e.pageX - TMSStringGridpageX;'+\r\n\r\n  '    newColWidth = (TMSStringGridcurColWidth + diffX);'+\r\n  '    if (newColWidth < 10)'+\r\n  '      newColWidth = 10;'+\r\n\r\n  '    if (TMSStringGridCurID.indexOf(\"ResizeRow\") > 0) {'+\r\n  //resize normal columns\r\n  '\t    TMSStringGridcurCol.style.width = newColWidth + \"px\";'+\r\n  '\t    TMSStringGridcurCol.style.maxWidth = TMSStringGridcurCol.style.width;'+\r\n  '     GridColWidths.Put(TMSStringGridcurCol.cellIndex + GridFixedCols, parseInt(TMSStringGridcurCol.style.width));'+\r\n  '     TMSStringGridupdateColSize(GridFixedCells, TMSStringGridcurCol);'+\r\n  '     TMSStringGridupdateColSize(GridNormalCells, TMSStringGridcurCol);'+\r\n\r\n  '     TMSStringGridcurTable.style.width = (TMSStringGridcurTableWidth + diffX) + \"px\";'+\r\n  '     GridNormalCells.style.width = (TMSStringGridcurTableWidth + diffX) + \"px\";'+\r\n  '    } else {'+\r\n  //resize fixed columns\r\n  '     TMSStringGridfullWidth = document.getElementById(TMSStringGridID).offsetWidth;'+\r\n  '     newCellsWidth = (TMSStringGridfullWidth - (TMSStringGridcurTableWidth + diffX));'+\r\n\r\n  '     if ((newCellsWidth > 10) && (newColWidth > 10)) {'+\r\n  '\t     TMSStringGridcurCol.style.width = newColWidth + \"px\";'+\r\n  '\t     TMSStringGridcurCol.style.maxWidth = TMSStringGridcurCol.style.width;'+\r\n  '      TMSStringGridupdateColSize(GridFixedColRows, TMSStringGridcurCol);'+\r\n  '      TMSStringGridupdateColSize(GridFixedColCells, TMSStringGridcurCol);'+\r\n  '      GridColWidths.Put(TMSStringGridcurCol.cellIndex, parseInt(TMSStringGridcurCol.style.width));'+\r\n  '      TMSStringGridcurTable.style.width = (TMSStringGridcurTableWidth + diffX) + \"px\";'+\r\n  '      GridFixedColCells.style.width = (TMSStringGridcurTableWidth + diffX) + \"px\";'+\r\n\r\n  '      if ((!TMSStringGridautoWidth) && (newColWidth > 10)){' +\r\n  '       GridFixedCells.parentElement.style.width = newCellsWidth + \"px\";'+\r\n  '       GridFixedCells.parentElement.parentElement.style.width = newCellsWidth + \"px\";'+\r\n\r\n  '       GridNormalCells.parentElement.style.width = newCellsWidth + \"px\";'+\r\n  '       GridNormalCells.parentElement.parentElement.style.width = newCellsWidth + \"px\";'+\r\n  '      }'+\r\n  '     }'+\r\n  '    }'+\r\n  '   }'+\r\n  ' }'+\r\n\r\n  'function TMSStringGridisSizing() {'+\r\n  '   if ((TMSStringGridcurCol) && (TMSStringGridCurID.indexOf(TMSStringGridID) == 0))'+\r\n  '   {' +\r\n  '     if (TMSStringGridCurID.indexOf(\"ResizeRow\") > 0)'+\r\n  '     {' +\r\n  '       return(TMSStringGridcurCol.cellIndex + GridFixedCols)'+\r\n  '     }' +\r\n  '     else'+\r\n  '     {' +\r\n  '      return(TMSStringGridcurCol.cellIndex)'+\r\n  '     }' +\r\n  '   }'+\r\n  '  else  { return -1; }'+\r\n  '   }' +\r\n\r\n  'function TMSStringGridresetResize() {'+\r\n  '   TMSStringGridID = \"\";'+\r\n  '   TMSStringGridFullWidth = undefined;'+\r\n  '   TMSStringGridCurID = \"\";'+\r\n  '   TMSStringGridcurCol = undefined;'+\r\n  '   TMSStringGridnxtCol = undefined;'+\r\n  '   TMSStringGridpageX = undefined;'+\r\n  '   TMSStringGridnxtColWidth = undefined;'+\r\n  '   TMSStringGridcurColWidth = undefined;'+\r\n  '   TMSStringGridautoWidth = false;'+\r\n  '   GridFixedCells = undefined;'+\r\n  '   GridFixedColCells = undefined;'+\r\n  '   GridFixedColRows = undefined;'+\r\n  '   GridNormalCells = undefined;'+\r\n  '   GridColWidths = undefined;'+\r\n  '   GridFixedCols = undefined;'+\r\n  ' }'+\r\n\r\n  ' function divmousedown(e) {'+\r\n  '   TMSStringGridCurID = e.target.id;'+\r\n  '   TMSStringGridcurCol = e.target.parentElement;'+\r\n  '   TMSStringGridnxtCol = TMSStringGridcurCol.nextElementSibling;'+\r\n  '   TMSStringGridpageX = e.pageX;'+\r\n\r\n  '   TMSStringGridcurTable = TMSStringGridcurCol.parentElement.parentElement.parentElement;'+\r\n  '   TMSStringGridcurTableWidth = TMSStringGridcurTable.offsetWidth;'+\r\n\r\n  '   TMSStringGridcurColWidth = TMSStringGridcurCol.offsetWidth;'+\r\n  '   if (TMSStringGridnxtCol)'+\r\n  '    TMSStringGridnxtColWidth = TMSStringGridnxtCol.offsetWidth;'+\r\n  ' }'+#13#10+\r\n  ' function divmouseover(e) {'+\r\n  '   e.target.style.borderRight = \"2px solid #0000ff\";}'+#13#10+\r\n\r\n  ' function divmouseout(e) {'+\r\n  '   e.target.style.borderRight = \"\";}'+#13#10+\r\n\r\n  ' function divmouseup(e) {'+\r\n  '   TMSGridLastColSize = TMSStringGridisSizing();'+#13#10+\r\n  '   TMSStringGridresetResize();}'+#13#10+\r\n\r\n  'function TMSStringGridresizableGrid(tablename, enabled) {'+\r\n  ' var table = document.getElementById(tablename + \"Table\");'+\r\n  ' if (!table) return;' +\r\n  ' var row = table.getElementsByTagName(\"tr\")[0],'+\r\n  ' cols = row ? row.children : undefined;'+\r\n  ' if (!cols) return;'+\r\n  ' for (var i=0;i<cols.length;i++){'+\r\n  '  var coldiv = document.getElementById(tablename + \"Div\" + i);'+\r\n\r\n  '  if (coldiv) {'+\r\n  '    coldiv.removeEventListener(\"mousedown\",divmousedown);'+\r\n  '    coldiv.removeEventListener(\"mouseover\",divmouseover);'+\r\n  '    coldiv.removeEventListener(\"mouseout\",divmouseout);'+\r\n  '    coldiv.removeEventListener(\"mouseup\",divmouseup);'+\r\n  '    coldiv.remove(); coldiv = null; }'+\r\n\r\n  '  if (enabled) {'+\r\n  '    var div = createDiv();'+\r\n  '    cols[i].appendChild(div);'+\r\n  '    cols[i].style.position = \"relative\";'+\r\n  '    div.id = tablename + \"Div\" + i;'+\r\n  '    setListeners(div);'+\r\n  '  }'+\r\n  ' }'+\r\n\r\n  ' function setListeners(div){'+\r\n  '  div.addEventListener(\"mousedown\", divmousedown);'+\r\n  '  div.addEventListener(\"mouseover\", divmouseover);'+\r\n  '  div.addEventListener(\"mouseout\", divmouseout);'+\r\n  '  div.addEventListener(\"mouseup\", divmouseup);'+\r\n\r\n(*\r\n  '  div.addEventListener(\"mousedown\", function (e) {'+\r\n  '   TMSStringGridCurID = e.target.id;'+\r\n  '   TMSStringGridcurCol = e.target.parentElement;'+\r\n  '   TMSStringGridnxtCol = TMSStringGridcurCol.nextElementSibling;'+\r\n  '   TMSStringGridpageX = e.pageX;'+\r\n\r\n  '   TMSStringGridcurTable = TMSStringGridcurCol.parentElement.parentElement.parentElement;'+\r\n  '   TMSStringGridcurTableWidth = TMSStringGridcurTable.offsetWidth;'+\r\n\r\n  '   TMSStringGridcurColWidth = TMSStringGridcurCol.offsetWidth;'+\r\n  '   if (TMSStringGridnxtCol)'+\r\n  '    TMSStringGridnxtColWidth = TMSStringGridnxtCol.offsetWidth;'+\r\n  '  });'+\r\n  '  div.addEventListener(\"mouseover\", function (e) {'+\r\n  '   e.target.style.borderRight = \"2px solid #0000ff\";'+\r\n  '  });'+\r\n\r\n  '  div.addEventListener(\"mouseout\", function (e) {'+\r\n  '   e.target.style.borderRight = \"\";'+\r\n  '  });'+\r\n\r\n  '  document.addEventListener(\"mousemove\", function (e) {'+\r\n  '   TMSStringGridresizeColumn(e);'+\r\n  '  });'+\r\n\r\n  '  document.addEventListener(\"mouseup\", function (e) {'+\r\n  '   TMSStringGridresetResize();'+\r\n  '  });'+\r\n*)\r\n  ' }'+\r\n\r\n  ' function createDiv(){'+\r\n  '  var div = document.createElement(\"div\");'+\r\n  '  div.style.top = 0;'+\r\n  '  div.style.right = 0;'+\r\n  '  div.style.width = \"10px\";'+\r\n  '  div.style.position = \"absolute\";'+\r\n  '  div.style.cursor = \"col-resize\";'+\r\n  '  div.style.userSelect = \"none\";'+\r\n  '  div.style.height = \"100%\";'+\r\n//  '  div.style.border = \"1px solid red\";'+\r\n  '  div.innerHTML = \"&nbsp;\";'+\r\n  '  return div;'+\r\n  ' }'+\r\n\r\n  '};');\r\nend;\r\n\r\nprocedure TCustomStringGrid.RenderGridSize;\r\nvar\r\n  fw,fh,nw,nh,nwvis,nhvis,nwvisnoscroll,nhvisnoscroll: integer;\r\n\r\nbegin\r\n  if not Assigned(FGrid) then\r\n    Exit;\r\n\r\n  fw := FixedColWidth;\r\n  fh := FixedRowHeight;\r\n\r\n  nw := NormalColWidth;\r\n  nh := NormalRowHeight;\r\n\r\n  nwvis := Width - FixedColWidth;\r\n  nhvis := Height - FixedRowHeight;\r\n\r\n  if BorderStyle = bsSingle then\r\n  begin\r\n    nwvis := nwvis - 2;\r\n    nhvis := nhvis - 2;\r\n  end;\r\n\r\n  nwvisnoscroll := nwvis - GetScrollBarWidth;\r\n\r\n  if FixedColWidth + NormalColWidth < Width then\r\n    nhvisnoscroll := nhvis\r\n  else\r\n    nhvisnoscroll := nhvis - GetScrollBarHeight;\r\n\r\n  if (FixedRows > 0) and (WidthStyle = ssAbsolute) then\r\n  begin\r\n    asm\r\n      var td = this.FGrid.rows[0].cells[1];\r\n      if (td!=null) {\r\n      var span = td.firstChild;\r\n      span.style.width = nwvisnoscroll + \"px\";\r\n      span.style.overflow = \"hidden\";\r\n      }\r\n    end;\r\n  end;\r\n\r\n  if (FixedCols > 0) and (HeightStyle = ssAbsolute) then\r\n  begin\r\n    asm\r\n      var td = this.FGrid.rows[1].cells[0];\r\n      if (td!=null) {\r\n      var span = td.firstChild;\r\n      span.style.height = nhvisnoscroll + \"px\";\r\n      span.style.overflow = \"hidden\";\r\n      }\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.Resize;\r\nbegin\r\n  inherited;\r\n  RenderGridSize;\r\nend;\r\n\r\nprocedure TCustomStringGrid.RowCountChanged(delta: integer);\r\nvar\r\n  r: integer;\r\n  fr,fc: integer;\r\n  nh: integer;\r\n\r\n  procedure SetColAlign(column: integer; td: TJSHTMLElement);\r\n  begin\r\n    SetAlignAttr(ColAlignments[column], td);\r\n  end;\r\n\r\nbegin\r\n  if IsUpdating and (csLoading in ComponentState) then\r\n    Exit;\r\n\r\n  if not Assigned(FNormalCells) then\r\n    Exit;\r\n\r\n  fr := FixedRows;\r\n  fc := FixedCols;\r\n\r\n  nh := NormalRowHeight;\r\n\r\n  if (1 < 0) then  // to avoid issue with pas2js code optimization\r\n    SetColAlign(0,nil);\r\n\r\n\r\n  if delta > 0 then\r\n  begin\r\n\r\n    asm\r\n      var i = 0;\r\n      var j = 0;\r\n      var tr = undefined;\r\n      var td = undefined;\r\n      var l = this.FNormalCells.rows.length;\r\n\r\n      this.FNormalCells.parentElement.style.setProperty('height', nh + 'px');\r\n\r\n      for(i = 0;i < delta; i++)\r\n      {\r\n         tr = this.FNormalCells.insertRow(l);\r\n         for(j = this.FFixedCols; j < this.FColCount; j++)\r\n         {\r\n            td = tr.insertCell(0);\r\n            SetColAlign(j, td);\r\n         }\r\n\r\n         if (fc > 0) {\r\n           tr = this.FFixedCol.insertRow(l);\r\n           for(j = 0; j < this.FFixedCols; j++)\r\n           {\r\n             td = tr.insertCell(0);\r\n             td.setAttribute('class','fixed');\r\n             SetColAlign(j, td);\r\n           }\r\n         }\r\n      }\r\n    end;\r\n\r\n    BeginUpdate;\r\n\r\n    for r := 1 to delta do\r\n    begin\r\n      RowHeights[RowCount - r] := DefaultRowHeight;\r\n    end;\r\n\r\n    if DragMode = dmAutomatic then\r\n      EnableDrag;\r\n\r\n    EndUpdate;\r\n  end;\r\n\r\n  if delta < 0 then\r\n  begin\r\n    asm\r\n      var i = 0;\r\n      var l = this.FNormalCells.rows.length;\r\n\r\n      if (l > 0) {\r\n\r\n      for(i = 0;i < -delta; i++)\r\n      {\r\n        this.FNormalCells.deleteRow(l - i - 1);\r\n\r\n        if (fc > 0) {\r\n          this.FFixedCol.deleteRow(l - i - 1);\r\n        }\r\n      }\r\n      }\r\n    end;\r\n\r\n    if RowCount > 0 then\r\n      RowHeights[RowCount - 1] := RowHeights[RowCount - 1];\r\n  end;\r\nend;\r\n\r\nfunction TCustomStringGrid.RowOffset: integer;\r\nbegin\r\n  Result := FixedRows;\r\nend;\r\n\r\nprocedure TCustomStringGrid.RowsChanged(Sender: TObject);\r\nbegin\r\n  SetRows(FRowsIndex, FRows);\r\nend;\r\n\r\nprocedure TCustomStringGrid.SelectCell(ACol, ARow: integer);\r\nvar\r\n  rc,rr: integer;\r\nbegin\r\n  Selection := GridRect(ACol, ARow, ACol, ARow);\r\n\r\n  rc := ACol - FixedCols;\r\n  rr := ARow - FixedRows;\r\n\r\n  if (rc >= 0) and (rr >= 0) then\r\n  begin\r\n    asm\r\n      //if all rows are deleted then no indicator is displayed\r\n      if (this.FNormalCells.rows.length <= 0)\r\n      {\r\n        this.FSelectedCell = null;\r\n        this.UpdateIndicator(this.FFixedRows);\r\n        return;\r\n      }\r\n      this.FSelectedCell = this.FNormalCells.rows[rr].cells[rc];\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    asm\r\n      this.FSelectedCell = null;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SelectSortIndicator(const ACol, ARow: integer;\r\n  ASelect: boolean);\r\nvar\r\n  el: TJSElement;\r\n  sid: string;\r\n\r\nbegin\r\n  sid := Name + 'si'+ACol.ToString+'_'+ARow.ToString;\r\n\r\n  el := document.getElementById(sid);\r\n\r\n  if Assigned(el) then\r\n  begin\r\n    if ASelect then\r\n      TJSHTMLElement(el).style.setProperty('color',ColorToHTML(SelectionColor))\r\n    else\r\n      TJSHTMLElement(el).style.removeProperty('color');\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetAlignAttr(AAlign: TAlignment;\r\n  AElement: TJSElement);\r\nbegin\r\n  case AAlign of\r\n  taLeftJustify: AElement.removeAttribute('align');\r\n  taCenter: AElement['align'] := 'center';\r\n  taRightJustify: AElement['align'] := 'right';\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetCells(ACol, ARow: integer; const Value: string);\r\nvar\r\n  rc,rr,rh: integer;\r\n  StrVal, cn: string;\r\n  el: TJSHTMLElement;\r\n\r\nbegin\r\n  if (ARow < 0) or (ACol < 0) then\r\n    Exit;\r\n\r\n  StrVal := Value;\r\n  if pos(#13, Value) > 0 then\r\n  begin\r\n    StrVal := StringReplace(StrVal, #13, '<BR>', [rfReplaceAll]);\r\n    StrVal := StringReplace(StrVal, #10, '<BR>', [rfReplaceAll]);\r\n  end\r\n  else\r\n  if pos(#10, Value) > 0 then\r\n  begin\r\n    StrVal := StringReplace(StrVal, #10, '<BR>', [rfReplaceAll]);\r\n  end;\r\n\r\n  if WordWrap then\r\n  begin\r\n    rh := RowHeights[ARow] - 2;\r\n    StrVal := '<DIV class=\"cell\" style=\"height:'+rh.ToString+'px;max-height:' + rh.ToString+'px\">' + StrVal +  '</DIV>';\r\n  end;\r\n\r\n  el := CellRealElement(ACol,ARow);\r\n  if Assigned(el) then\r\n  begin\r\n    el.innerHTML := StrVal;\r\n\r\n    cn := '';\r\n    GetCellClassName(ACol, ARow, nil, StrVal, cn);\r\n    if cn <> '' then\r\n      el.setAttribute('class',cn);\r\n  end;\r\n\r\n  (*\r\n\r\n  if (ACol < FixedCols) and (ARow >= FixedRows) then\r\n  begin\r\n    rr := ARow - FixedRows;\r\n    rc := ACol;\r\n\r\n    asm\r\n      var td = this.FFixedCol.rows[rr].cells[rc];\r\n      td.innerHTML = StrVal;\r\n    end;\r\n  end;\r\n\r\n  if (ARow < FixedRows) and (ACol >= FixedCols) then\r\n  begin\r\n    rc := ACol - FixedCols;\r\n    rr := ARow;\r\n\r\n    if Assigned(FFixedRow) then\r\n    begin\r\n      asm\r\n        var tr = this.FFixedRow.rows[rr];\r\n        if (tr != undefined) {\r\n          var td = tr.cells[rc];\r\n          td.innerHTML = StrVal;\r\n         }\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  if (ACol < FixedCols) and (ARow < FixedRows) then\r\n  begin\r\n    rc := ACol;\r\n    rr := ARow;\r\n\r\n    asm\r\n      var td = this.FFixedColRow.rows[rr].cells[rc];\r\n      td.innerHTML = StrVal;\r\n    end;\r\n  end;\r\n\r\n  if (ACol >= FixedCols) and (ARow >= FixedRows) then\r\n  begin\r\n    rc := ACol - FixedCols;\r\n    rr := ARow - FixedRows;\r\n    asm\r\n      var td = this.FNormalCells.rows[rr].cells[rc];\r\n      td.innerHTML = StrVal;\r\n    end;\r\n  end;\r\n    *)\r\n\r\n  if ARow = 0 then\r\n    EnableColResize;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetCheckState(ACol, ARow: integer;\r\n  const Value: boolean);\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := GetCheckElement(ACol,ARow);\r\n    asm\r\n      el.checked = Value;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetCheckEnabled(ACol, ARow: integer;\r\n  const Value: boolean);\r\nvar\r\n  el: TJSHTMLElement;\r\n  v: boolean;\r\nbegin\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    v := not Value;\r\n    el := GetCheckElement(ACol,ARow);\r\n    asm\r\n      el.disabled = v;\r\n    end;\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TCustomStringGrid.SetCol(const Value: integer);\r\nvar\r\n  r,c: integer;\r\n  td: TJSElement;\r\nbegin\r\n  if (Value < ColCount) and (Value >= FixedCols) then\r\n  begin\r\n     if Assigned(FSelectedCell) then\r\n     begin\r\n       RemoveSelection(FSelectedCell);\r\n     end;\r\n\r\n     c := Value - FixedCols;\r\n     r := Row - FixedRows;\r\n     if r < 0 then\r\n       r := 0;\r\n\r\n     asm\r\n       var tr = this.FNormalCells.rows[r];\r\n       td = tr.cells[c];\r\n     end;\r\n\r\n     AddSelection(td);\r\n     FSelectedCell := td;\r\n\r\n     asm\r\n       var pardiv = this.FNormalCells.parentElement.parentElement;\r\n\r\n       if (td.offsetLeft < pardiv.scrollLeft) {\r\n         pardiv.scrollLeft = td.offsetLeft;\r\n       }\r\n\r\n       if (td.offsetLeft + td.offsetWidth - pardiv.scrollLeft > pardiv.offsetWidth) {\r\n         pardiv.scrollLeft = pardiv.scrollLeft + td.offsetWidth;\r\n       }\r\n     end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetColAlignments(ACol: integer;\r\n  const Value: TAlignment);\r\nbegin\r\n  while FColAlignments.Count <= ACol do\r\n    FColAlignments.Add(taLeftJustify);\r\n  FColAlignments[ACol] := Value;\r\n  UpdateGridAlignment;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetColWidths(ACol: integer; const Value: integer);\r\nvar\r\n  fcw: integer;\r\n  nw, nwvis, nwvisnoscroll: integer;\r\n  LAutoSizeW: boolean;\r\nbegin\r\n  while FColWidths.Count <= ACol do\r\n    FColWidths.Add(DefaultColWidth);\r\n\r\n  FColWidths[ACol] := Value;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  if not Assigned(FGrid) then\r\n    Exit;\r\n\r\n  LAutoSizeW := WidthStyle = ssAuto;\r\n  nw := NormalColWidth;\r\n  nwvis := Width - FixedColWidth;\r\n  nwvisnoscroll := nwvis - GetScrollBarWidth;\r\n\r\n  if ACol < FixedCols then\r\n  begin\r\n    fcw := FixedColWidth;\r\n    asm\r\n      var tr = this.FGrid.rows[0];\r\n      if (tr != undefined) {\r\n      var td = tr.cells[0];\r\n      if (td != undefined) {\r\n        td.style.width = fcw + \"px\";\r\n        if (td.firstChild != undefined) {\r\n        td.firstChild.style.width = fcw + \"px\"; }\r\n        }\r\n      }\r\n\r\n      tr = this.FGrid.rows[1];\r\n      if (tr != undefined) {\r\n      td = tr.cells[0];\r\n      if (td != undefined) {\r\n        td.style.width = fcw + \"px\";\r\n        if (td.firstChild != undefined) {\r\n        td.firstChild.style.width = fcw + \"px\"; }\r\n        }\r\n\r\n      tr = this.FFixedColRow.rows[0];\r\n      if (tr != undefined) {\r\n\r\n      td = tr.cells[0];\r\n      if (td != undefined) {\r\n        td.style.width = fcw + \"px\";\r\n        }\r\n        }\r\n      }\r\n      tr = this.FFixedCol.rows[0];\r\n      if (tr != undefined) {\r\n\r\n      td = tr.cells[0];\r\n      if (td != undefined) {\r\n        td.style.width = fcw + \"px\";\r\n        }\r\n      }\r\n    end;\r\n  end;\r\n\r\n  if ACol >= FixedCols then\r\n  begin\r\n    ACol := ACol - FixedCols;\r\n\r\n    asm\r\n      var tr = this.FFixedRow.rows[0];\r\n      if (tr != undefined) {\r\n        var td = tr.cells[ACol];\r\n        td.style.width = Value + \"px\";\r\n        td.style.maxwidth = Value + \"px\";\r\n\r\n        if (this.FNormalCells.rows.length > 0)\r\n        {\r\n        var td = this.FNormalCells.rows[0].cells[ACol];\r\n        td.style.width = Value + \"px\";\r\n        td.style.maxwidth = Value + \"px\";\r\n        }\r\n      }\r\n    end;\r\n  end;\r\n\r\n  asm\r\n    var tr = this.FGrid.rows[0];\r\n    if (tr != undefined) {\r\n      var td = tr.cells[1];\r\n      if ((td.firstChild != undefined) && (!LAutoSizeW)) {\r\n      td.firstChild.style.width = nwvisnoscroll + \"px\";\r\n      td.firstChild.firstChild.style.width = nw + \"px\";\r\n      }\r\n    }\r\n    tr = this.FGrid.rows[1];\r\n    if (tr != undefined) {\r\n      td = tr.cells[1];\r\n      if ((td.firstChild != undefined) && (!LAutoSizeW)) {\r\n      td.firstChild.style.width = nwvis + \"px\";\r\n      td.firstChild.firstChild.style.width = nw + \"px\";\r\n      }\r\n    }\r\n  end;\r\n\r\n  UpdateGridSize;\r\nend;\r\n{$HINTS ON}\r\n\r\n\r\nprocedure TCustomStringGrid.SetDataColumnCount(AValue: Integer);\r\nbegin\r\n  ColCount := FixedCols + AValue;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetDataHeader(AColumn: Integer; AValue: string);\r\nbegin\r\n  if FixedRows > 0 then\r\n    Cells[AColumn + FixedCols, FixedRows - 1] := AValue;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetDataRowCount(AValue: Integer);\r\nbegin\r\n  RowCount := FixedRows + AValue;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetDataValue(AColumn, ARow: Integer;\r\n  AValue: string);\r\nbegin\r\n  Cells[AColumn + FixedCols, ARow + FixedRows] := AValue;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetDefaultColAlignment(const Value: TAlignment);\r\nbegin\r\n  if (FDefaultColAlignment <> Value) then\r\n  begin\r\n    FDefaultColAlignment := Value;\r\n    if not (csloading in ComponentState) then\r\n      ReRenderGrid;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetDefaultColWidth(const Value: integer);\r\nvar\r\n  i: integer;\r\nbegin\r\n  FDefaultColWidth := Value;\r\n\r\n  for i := 0 to ColCount - 1 do\r\n    ColWidths[i] := Value;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetDefaultRowHeight(const Value: integer);\r\nvar\r\n  i: integer;\r\nbegin\r\n  FDefaultRowHeight := Value;\r\n  for i := 0 to RowCount - 1 do\r\n    RowHeights[i] := Value;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetEditControlValue(ACol, ARow: Longint;\r\n  AControl: TControl; AValue: string);\r\nbegin\r\n  if Assigned(OnSetEditControlValue) then\r\n    OnSetEditControlValue(Self, ACol, ARow, AControl, AValue);\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetEditText(ACol, ARow: Longint;\r\n  const AValue: string);\r\nbegin\r\n  if Assigned(OnSetEditText) then\r\n    OnSetEditText(Self, ACol, ARow, AValue);\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetElementTableClassName(const Value: string);\r\nbegin\r\n  if (FElementTableClassName <> Value) then\r\n  begin\r\n    FElementTableClassName := Value;\r\n\r\n    if not IsUpdating then\r\n      ReRenderGrid;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetFixedColor(const Value: TColor);\r\nbegin\r\n  if (FFixedColor <> Value) then\r\n  begin\r\n    FFixedColor := Value;\r\n    UpdateElementVisual;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.ReRenderGrid;\r\nbegin\r\n  if not IsLinked and Assigned(FGrid) and Assigned(FGrid.firstElementChild) then\r\n  begin\r\n    FGrid.removeChild(FGrid.firstChild);\r\n  end;\r\n  FGrid := nil;\r\n  RenderGrid;\r\n  UpdateGridSize;\r\n  UpdateGridAlignment;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetFixedCols(const Value: integer);\r\nbegin\r\n  if (FFixedCols <> Value) then\r\n  begin\r\n    FFixedCols := Value;\r\n\r\n    if not IsUpdating then\r\n      ReRenderGrid;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetFixedFont(const Value: TFont);\r\nbegin\r\n  FFixedFont.Assign(Value);\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetFixedRows(const Value: integer);\r\nbegin\r\n  if (FFixedRows <> Value) then\r\n  begin\r\n    FFixedRows := Value;\r\n\r\n    if not IsUpdating then\r\n      ReRenderGrid;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetColor(AValue: TColor);\r\nbegin\r\n  if (FColor <> AValue) then\r\n  begin\r\n    FColor := AValue;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetFixedTextColor(const Value: TColor);\r\nbegin\r\n  if (FixedFont.Color <> Value) then\r\n  begin\r\n    FixedFont.Color := Value;\r\n    UpdateElementVisual;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetFocus;\r\nbegin\r\n  if Assigned(FNormalCells) then\r\n    TJSHTMLElement(FNormalCells).focus();\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetGridLineColor(const Value: TColor);\r\nbegin\r\n  if (FGridLineColor <> Value) then\r\n  begin\r\n    FGridLineColor := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetLeftCol(const Value: integer);\r\nvar\r\n  i,w: integer;\r\nbegin\r\n  w := 0;\r\n  for i := FixedCols to Value - 1 do\r\n    w := w + ColWidths[i] + 1 - CELLPADDING;\r\n\r\n  if Assigned(FNormalCells) then\r\n  begin\r\n    FNormalCells.parentElement.parentElement.scrollLeft := w;\r\n    if FixedCols > 0 then\r\n      FFixedCol.parentElement.parentElement.scrollLeft := w;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetObjects(ACol, ARow: integer;\r\n  const Value: TObject);\r\nvar\r\n  LObjr: TObjectRow;\r\nbegin\r\n  while FObjectRows.Count <= ARow do\r\n  begin\r\n    LObjr := TObjectRow.Create;\r\n    FObjectRows.Add(LObjr);\r\n  end;\r\n\r\n  LObjr := TObjectRow(FObjectRows[ARow]);\r\n\r\n  while LObjr.Count <= ACol do\r\n  begin\r\n    LObjr.Add(nil);\r\n  end;\r\n\r\n  LObjr[ACol] := Value;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetProgress(ACol, ARow, APosition: integer);\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := GetProgressElement(ACol,ARow);\r\n    if Assigned(el) then\r\n    begin\r\n      el['value'] := APosition.ToString;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{$HINTS OFF}\r\n\r\nprocedure TCustomStringGrid.SetRange(const Value: TGridRange);\r\nbegin\r\n  FRange.Assign(Value);\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetRow(const Value: integer);\r\nvar\r\n  r,c,sh: integer;\r\n  rselect: boolean;\r\n  tr,td: TJSElement;\r\nbegin\r\n  if (Value < RowCount) and (Value >= FixedRows) then\r\n  begin\r\n    rselect := (goRowSelect in Options);\r\n\r\n    if Assigned(FSelectedCell) and rselect then\r\n    begin\r\n      tr := FSelectedCell.parentElement;\r\n      RemoveSelection(tr);\r\n    end;\r\n\r\n    if Assigned(FSelectedCell) then\r\n    begin\r\n      RemoveSelection(FSelectedCell);\r\n    end;\r\n\r\n    c := Col - FixedCols;\r\n    if c < 0 then\r\n      c := 0;\r\n\r\n    r := Value - FixedRows;\r\n\r\n    if FixedColWidth + NormalColWidth < Width then\r\n      sh := 0\r\n    else\r\n      sh := GetScrollBarHeight;\r\n\r\n    asm\r\n      tr = this.FNormalCells.rows[r];\r\n      td = tr.cells[c];\r\n    end;\r\n\r\n    if (rselect) then\r\n    begin\r\n      if not isUndefined(FSelectedCell) then\r\n        RemoveSelection(FSelectedCell);\r\n\r\n      AddSelection(tr);\r\n      FSelectedCell := td;\r\n    end\r\n    else\r\n    begin\r\n      FSelectedCell := td;\r\n      AddSelection(FSelectedCell);\r\n    end;\r\n\r\n    asm\r\n      var pardiv = this.FNormalCells.parentElement.parentElement;\r\n\r\n      if (td.offsetTop < pardiv.scrollTop) {\r\n        pardiv.scrollTop = td.offsetTop;\r\n      }\r\n\r\n      if (td.offsetHeight>0) {\r\n        while (td.offsetTop + td.offsetHeight - pardiv.scrollTop > pardiv.offsetHeight - sh)  {\r\n          pardiv.scrollTop = pardiv.scrollTop + td.offsetHeight;\r\n        }\r\n      }\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetRowHeights(ARow: integer; const Value: integer);\r\nvar\r\n  frh,rh: integer;\r\n  fh, nh, nhvis, nhvisnoscroll: integer;\r\nbegin\r\n  while FRowHeights.Count <= ARow do\r\n    FRowHeights.Add(DefaultRowHeight);\r\n\r\n  FRowHeights[ARow] := Value;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  if not Assigned(FGrid) then\r\n    Exit;\r\n\r\n  fh := FixedRowHeight;\r\n\r\n  nh := NormalRowHeight;\r\n\r\n  nhvis := Height - FixedRowHeight;\r\n\r\n  nhvisnoscroll := nhvis - GetScrollBarHeight;\r\n\r\n  if ARow < FixedRows then\r\n  begin\r\n    frh := FixedRowHeight;\r\n    asm\r\n      var tr = this.FGrid.rows[0];\r\n      if (tr != undefined) {\r\n        tr.style.height = frh + \"px\";\r\n        var td = tr.cells[0];\r\n        if (td != undefined) {\r\n          var fc = td.firstChild;\r\n          if (fc != undefined) {\r\n            fc.style.height = frh + \"px\";\r\n          }\r\n          td = tr.cells[1];\r\n          fc = td.firstChild;\r\n          if (fc != undefined) {\r\n            fc.style.height = frh + \"px\";\r\n          }\r\n          }\r\n        }\r\n\r\n      tr = this.FFixedColRow.rows[0];\r\n      if (tr != undefined) {\r\n         tr = tr.cells[0];\r\n         if (tr != undefined) {\r\n         tr.style.height = Value + \"px\";\r\n         tr = this.FFixedRow.rows[ARow].cells[0];\r\n         if (tr != undefined) {\r\n         tr.style.height = Value + \"px\"; }\r\n         }\r\n      }\r\n    end;\r\n  end;\r\n\r\n\r\n  if ARow >= FixedRows then\r\n  begin\r\n    ARow := ARow - FixedRows;\r\n\r\n    rh := Value;\r\n    if HasHorzScrollBar and HasVertScrollBar and (ARow = RowCount - 1) then\r\n      rh := Value + FNormalCells.parentElement.scrollHeight;\r\n\r\n    asm\r\n      var tr = this.FFixedCol.rows[ARow];\r\n      if (tr != undefined) {\r\n      tr.style.height = Value + \"px\";\r\n      var tr = this.FNormalCells.rows[ARow];\r\n\r\n      if (tr != undefined) {\r\n      tr.style.height = rh + \"px\"; }\r\n      }\r\n    end;\r\n  end;\r\n\r\n  asm\r\n    var td = this.FGrid.rows[1].cells[0];\r\n    if (td.firstChild) {\r\n    td.firstChild.style.height = nhvisnoscroll + \"px\";\r\n    td.firstChild.firstChild.style.height = nh + \"px\";\r\n    }\r\n\r\n    td = this.FGrid.rows[1].cells[1];\r\n    if (td.firstChild) {\r\n    td.firstChild.style.height = nhvis + \"px\";\r\n    td.firstChild.firstChild.style.height = nh + \"px\";\r\n    }\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetRows(Index: integer; const Value: TStrings);\r\nvar\r\n  i: integer;\r\nbegin\r\n  if (Index >= 0) and (Index < RowCount) then\r\n  begin\r\n    for i := 0 to ColCount - 1 do\r\n    begin\r\n      if i < Value.Count then\r\n        Cells[i,Index] := Value[i];\r\n    end;\r\n  end\r\n  else\r\n    raise Exception.Create('Invalid row index');\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetSelection(const Value: TGridRect);\r\nvar\r\n  c,r,rc,rr: integer;\r\n  sel: boolean;\r\n  left,right,top,bottom: integer;\r\n  tr,td: TJSElement;\r\n\r\nbegin\r\n  FSelection := Value;\r\n\r\n  left := Value.Left;\r\n  right := Value.Right;\r\n\r\n  if Value.Left > Value.Right then\r\n  begin\r\n    left := Value.Right;\r\n    right := Value.Left;\r\n  end;\r\n\r\n  top := Value.Top;\r\n  bottom := Value.Bottom;\r\n\r\n  if Value.Top > Value.Bottom then\r\n  begin\r\n    top := Value.Bottom;\r\n    bottom := Value.Top;\r\n  end;\r\n\r\n  for r := FixedRows to RowCount - 1 do\r\n  begin\r\n    if goRowSelect in Options then\r\n    begin\r\n      rr := r - FixedRows;\r\n      sel := (r >= top) and (r <= bottom);\r\n\r\n      if sel then\r\n      begin\r\n        asm\r\n          tr = this.FNormalCells.rows[rr];\r\n        end;\r\n        AddSelection(tr);\r\n      end\r\n      else\r\n      begin\r\n        asm\r\n          tr = this.FNormalCells.rows[rr];\r\n        end;\r\n        RemoveSelection(tr);\r\n      end;\r\n    end\r\n    else\r\n    for c := FixedCols to ColCount - 1 do\r\n    begin\r\n      rc := c - FixedCols;\r\n      rr := r - FixedRows;\r\n\r\n      sel := (c >= left) and (c <= right) and (r >= top) and (r <= bottom);\r\n\r\n      if sel then\r\n      begin\r\n        asm\r\n           td = this.FNormalCells.rows[rr].cells[rc];\r\n        end;\r\n        if Assigned(td) then\r\n          AddSelection(td);\r\n      end\r\n      else\r\n      begin\r\n        asm\r\n          td = this.FNormalCells.rows[rr].cells[rc];\r\n        end;\r\n        if Assigned(td) then\r\n          RemoveSelection(td);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetSelectionColor(const Value: TColor);\r\nbegin\r\n  if (FSelectionColor <> Value) then\r\n  begin\r\n    FSelectionColor := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetSelectionTextColor(const Value: TColor);\r\nbegin\r\n  if (FSelectionTextColor <> Value) then\r\n  begin\r\n    FSelectionTextColor := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetSortIndex(const Value: integer);\r\nvar\r\n  i: integer;\r\nbegin\r\n  FSortIndex := Value;\r\n  for i := 0 to ColCount - 1 do\r\n  begin\r\n    SelectSortIndicator(i, 0, i = FSortIndex);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetSortIndicator(const ACol, ARow: integer;\r\n  AIndicator: TGridSortIndicator);\r\nvar\r\n  el: TJSElement;\r\n  sid: string;\r\n\r\nbegin\r\n  sid := Name + 'si'+ACol.ToString+'_'+ARow.ToString;\r\n\r\n  el := document.getElementById(sid);\r\n\r\n  if Assigned(el) then\r\n  begin\r\n    if AIndicator = siAscending then\r\n    begin\r\n      TJSHTMLElement(el).innerHTML := GlyphAscending;\r\n      el['sort'] := 'up';\r\n    end\r\n    else\r\n    begin\r\n      TJSHTMLElement(el).innerHTML := GlyphDescending;\r\n      el['sort'] := 'dn';\r\n    end;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TCustomStringGrid.SetTopRow(const Value: integer);\r\nvar\r\n  pixVal: integer;\r\nbegin\r\n  pixVal := (Value - FixedRows) * DefaultRowHeight;\r\n  if Assigned(FNormalCells) and (pixVal >= 0) then\r\n  begin\r\n    FNormalCells.parentElement.parentElement.scrollTop := pixVal;\r\n    if FixedCols > 0 then\r\n      FFixedCol.parentElement.parentElement.scrollTop := pixVal;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.ShowEdit;\r\nbegin\r\n  StartEdit('');\r\nend;\r\n\r\n\r\nprocedure TCustomStringGrid.Sort(AColumn: integer;\r\n  ADirection: TGridSortIndicator);\r\nvar\r\n  colidx: integer;\r\n  grid: TJSElement;\r\n  asc: boolean;\r\nbegin\r\n  grid := FNormalCells;\r\n  asc := ADirection = siAscending;\r\n  colidx := AColumn - FixedCols;\r\n\r\n  asm\r\n    const getCellValue = (tr, idx) => tr.children[idx].innerText || tr.children[idx].textContent;\r\n    const comparer = (idx, asc) => (a, b) => ((v1, v2) =>\r\n      v1 !== '' && v2 !== '' && !isNaN(v1) && !isNaN(v2) ? v1 - v2 : v1.toString().localeCompare(v2)\r\n      )(getCellValue(asc ? a : b, idx), getCellValue(asc ? b : a, idx));\r\n\r\n    const table = grid;\r\n    Array.from(table.querySelectorAll('tr:nth-child(n+1)'))\r\n        .sort(comparer(colidx, asc))\r\n        .forEach(tr => table.appendChild(tr) );\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.StartEdit(ch: string);\r\nvar\r\n  created: boolean;\r\n  eh: TJSHTMLElement;\r\n  s: string;\r\n  dorange: boolean;\r\nbegin\r\n   // https://developer.mozilla.org/en-US/docs/Learn/Forms/HTML5_input_types\r\n   // default editor\r\n  if WordWrap then\r\n    FEditType := geMemo\r\n  else\r\n    FEditType := geText;\r\n\r\n  GetCellEditor(Col,Row, FEditType);\r\n\r\n  if FEditType = geNone then\r\n    Exit;\r\n\r\n  eh := ElementHandle;\r\n\r\n  FEditRow := Row;\r\n  FEditCol := Col;\r\n\r\n  FEditMode := true;\r\n\r\n  s := GetEditText(Col,Row);\r\n\r\n  FOrigVal := s;\r\n\r\n  if FEditType = geCombo then\r\n  begin\r\n    if not Assigned(FCombo) then\r\n    begin\r\n      FCombo := TWebComboBox.Create(Self);\r\n      FCombo.ElementPosition := epRelative;\r\n      FCombo.WidthStyle := ssPercent;\r\n      FCombo.WidthPercent := 100;\r\n      FCombo.HeightStyle := ssPercent;\r\n      FCombo.HeightPercent := 100;\r\n      FCombo.Parent := Self;\r\n      FCombo.OnExit := HandleComboExit;\r\n      FCombo.OnKeyPress := HandleComboKeyPress;\r\n    end;\r\n\r\n    FCombo.Items.Assign(FComboBoxItems);\r\n    FCombo.Text := s;\r\n    FSelectedCell.innerHTML := '';\r\n    FSelectedCell.appendChild(FCombo.ElementHandle);\r\n    FCombo.SetFocus;\r\n    RemoveSelection(FSelectedCell);\r\n    Exit;\r\n  end;\r\n\r\n  if FEditType = geMemo then\r\n  begin\r\n    if not Assigned(FMemo) then\r\n    begin\r\n      FMemo := TWebMemo.Create(Self);\r\n      FMemo.ElementPosition := epRelative;\r\n      FMemo.WidthStyle := ssPercent;\r\n      FMemo.WidthPercent := 100;\r\n      FMemo.BorderStyle := bsNone;\r\n      FMemo.Parent := Self;\r\n      FMemo.ElementHandle.style.setProperty('outline','none');\r\n      FMemo.OnExit := HandleMemoExit;\r\n      FMemo.OnKeyPress := HandleMemoKeyPress;\r\n    end;\r\n\r\n    FMemo.Height := RowHeights[FEditRow] - 3;\r\n    FMemo.Lines.Text := s;\r\n    FSelectedCell.innerHTML := '';\r\n    TJSHTMLElement(FSelectedCell).style.setProperty('justify-content','top');\r\n    TJSHTMLElement(FSelectedCell).style.setProperty('vertical-align','top');\r\n    FSelectedCell.appendChild(FMemo.ElementHandle);\r\n    FMemo.SetFocus;\r\n    RemoveSelection(FSelectedCell);\r\n    Exit;\r\n  end;\r\n\r\n  if FEditType = geCustom then\r\n  begin\r\n    FEditControl.ElementPosition := epRelative;\r\n    FEditControl.WidthStyle := ssPercent;\r\n    FEditControl.WidthPercent := 100;\r\n    FEditControl.Parent := Self;\r\n    FEditControl.OnExit := DoEditControlExit;\r\n\r\n    SetEditControlValue(FEditCol, FEditRow, FEditControl, s);\r\n\r\n    FSelectedCell.innerHTML := '';\r\n    TJSHTMLElement(FSelectedCell).style.setProperty('justify-content','top');\r\n    TJSHTMLElement(FSelectedCell).style.setProperty('vertical-align','top');\r\n    FSelectedCell.appendChild(FEditControl.ElementHandle);\r\n    RemoveSelection(FSelectedCell);\r\n    Exit;\r\n  end;\r\n\r\n\r\n  if FEditType = geMask then\r\n  begin\r\n    if not Assigned(FMask) then\r\n    begin\r\n      FMask := TWebMaskEdit.Create(Self);\r\n      FMask.ElementPosition := epRelative;\r\n      FMask.WidthStyle := ssPercent;\r\n      FMask.WidthPercent := 100;\r\n      FMask.HeightStyle := ssPercent;\r\n      FMask.HeightPercent := 100;\r\n      FMask.Parent := Self;\r\n      FMask.OnExit := HandleMaskExit;\r\n      FMask.OnKeyPress := HandleMaskKeyPress;\r\n    end;\r\n\r\n    FMask.EditMask := EditMask;\r\n    FMask.Text := s;\r\n    FSelectedCell.innerHTML := '';\r\n    FSelectedCell.appendChild(FMask.ElementHandle);\r\n    FMask.SetFocus;\r\n    FMask.SetSelection(0,Length(s));\r\n    RemoveSelection(FSelectedCell);\r\n    Exit;\r\n  end;\r\n\r\n  created := false;\r\n\r\n  asm\r\n    if (this.FEdit == undefined) {\r\n      this.FEdit = document.createElement('INPUT');\r\n      this.FEdit.style.setProperty('box-sizing','border-box');\r\n      this.FEdit.style.setProperty('-webkit-box-sizing','border-box');\r\n      this.FEdit.style.setProperty('-moz-box-sizing','border-box');\r\n      this.FEdit.style.setProperty('outline', 'none');\r\n      this.FEdit.style.setProperty('border-style', 'none');\r\n\r\n      created = true;\r\n    }\r\n    this.FEdit.removeAttribute(\"type\");\r\n  end;\r\n\r\n  case FEditType of\r\n  geURL: FEdit['type'] := 'URL';\r\n  geDate: FEdit['type'] := 'DATE';\r\n  geTime: FEdit['type'] := 'TIME';\r\n  geRange:\r\n    begin\r\n      FEdit['type'] := 'RANGE';\r\n      FEdit['min'] := NumAttribute(RangeEdit.min);\r\n      FEdit['max'] := NumAttribute(RangeEdit.max);\r\n      FEdit['step'] := NumAttribute(RangeEdit.step);\r\n    end;\r\n  geEMail: FEdit['type'] := 'EMAIL';\r\n  geNumber: FEdit['type'] := 'NUMBER';\r\n  geTel: FEdit['type'] := 'TEL';\r\n  geColor: FEdit['type'] := 'COLOR';\r\n  end;\r\n\r\n  dorange := (FEditType = geText);\r\n\r\n  asm\r\n    this.FEdit.removeAttribute(\"min\");\r\n    this.FEdit.removeAttribute(\"max\");\r\n    this.FEdit.removeAttribute(\"step\");\r\n\r\n    if (ch != '') {\r\n      this.FEdit.value = \"\";\r\n      }\r\n    else {\r\n      this.FEdit.value = s;\r\n    }\r\n\r\n    this.FEdit.style.width = \"100%\";\r\n    this.FEdit.style.height = \"100%\";\r\n    this.FEdit.style.fontFamily = eh.style.fontFamily;\r\n    this.FEdit.style.fontSize = eh.style.fontSize;\r\n\r\n    if (dorange) {\r\n    this.FEdit.setSelectionRange(0, this.FEdit.value.length)\r\n    }\r\n\r\n    this.FSelectedCell.innerHTML = \"\";\r\n    this.FSelectedCell.appendChild(this.FEdit);\r\n  end;\r\n\r\n  asm\r\n    this.FEdit.focus();\r\n  end;\r\n\r\n  RemoveSelection(FSelectedCell);\r\n\r\n  if created then\r\n  begin\r\n    FEdit.addEventListener('blur', FHandleEditBlurPtr);\r\n    FEdit.addEventListener('keypress', FHandleEditKeypressPtr);\r\n  end;\r\nend;\r\n\r\nfunction TCustomStringGrid.StopEdit: string;\r\nvar\r\n  val: string;\r\n  eh: TJSHTMLElement;\r\nbegin\r\n  Result := '';\r\n\r\n  if FEditMode then\r\n  begin\r\n    FEditMode := false;\r\n\r\n    if FEditType = geCombo then\r\n    begin\r\n      val := FCombo.Text;\r\n      eh := FCombo.ElementHandle;\r\n    end\r\n    else\r\n    if FEditType = geMask then\r\n    begin\r\n      val := FMask.Text;\r\n      eh := FMask.ElementHandle;\r\n    end\r\n    else\r\n    begin\r\n      val := (FEdit as TJSHTMLInputElement).value;\r\n      eh := FEdit;\r\n    end;\r\n\r\n    ValidateCell(FEditCol, FEditRow, val);\r\n\r\n    if FSelectedCell.contains(eh) then\r\n      FSelectedCell.removeChild(eh);\r\n\r\n    FSelectedCell.innerHTML := val;\r\n    Result := val;\r\n\r\n    UpdateCell(FEditCol, FEditRow, val);\r\n    if not (goRowSelect in Options) then\r\n    begin\r\n      AddSelection(FSelectedCell);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TCustomStringGrid.StylePrefix: string;\r\nvar\r\n  frm: TCustomForm;\r\nbegin\r\n  Result := '';\r\n  frm := GetParentForm(Self);\r\n  if Assigned(frm) then\r\n    Result := frm.ClassName;\r\nend;\r\n\r\nprocedure TCustomStringGrid.TopLeftChanged;\r\nbegin\r\n  if Assigned(OnTopLeftChanged) then\r\n    OnTopLeftChanged(Self);\r\nend;\r\n\r\nprocedure TCustomStringGrid.UnbindEvents;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(FNormalCells) then\r\n  begin\r\n    FNormalCells.removeEventListener('mousedown',FHandleMouseDownPtr);\r\n    FNormalCells.removeEventListener('mouseup',FHandleMouseUpPtr);\r\n    FNormalCells.removeEventListener('mousemove',FHandleMouseMovePtr);\r\n    FNormalCells.removeEventListener('click',FHandleClickPtr);\r\n  end;\r\n\r\n  if Assigned(FFixedCol) then\r\n    FFixedCol.removeEventListener('click',FHandleFixedClickPtr);\r\n\r\n  if Assigned(FFixedRow) then\r\n    FFixedRow.removeEventListener('click',FHandleFixedClickPtr);\r\n\r\n  if Assigned(FFixedColRow) then\r\n    FFixedColRow.removeEventListener('click',FHandleFixedClickPtr);\r\nend;\r\n\r\nprocedure TCustomStringGrid.UpdateCell(ACol, ARow: integer; var AValue: string);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TCustomStringGrid.UpdateElement;\r\nvar\r\n  clr: string;\r\nbegin\r\n  inherited;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    if (Color <> clWindow) and (Color <> clNone) then\r\n      ElementHandle.style.setProperty('background-color', ColorToHTML(Color));\r\n\r\n    if Assigned(FGrid) then\r\n    begin\r\n      SetHTMLElementFont(TJSHTMLElement(FGrid), Font, not ((ElementClassName = '') and (ElementFont = efProperty)) );\r\n    end;\r\n\r\n    ElementHandle.style.setProperty('overflow', 'hidden');\r\n\r\n    if (BorderStyle = bsSingle) and not (BorderColor = clNone) and (ElementClassName = '') and not IsLinked then\r\n    begin\r\n      ElementHandle.style.setProperty('border', '1px solid '+ ColorToHTML(BorderColor));\r\n//      BorderWidth := 1;\r\n    end\r\n    else\r\n    begin\r\n      ElementHandle.style.setProperty('border', '');\r\n//      BorderWidth := 0;\r\n    end;\r\n\r\n    RenderGrid;\r\n\r\n    clr := ColorToHTML(Color);\r\n\r\n    if Color <> clWindow then\r\n    begin\r\n      // background color stringgrid (DIV & TBODY)\r\n      asm\r\n        var bd = this.FNormalCells.tBodies[0];\r\n        if (bd != undefined) {\r\n          this.FNormalCells.tBodies[0].style.setProperty('background-color', clr);\r\n          }\r\n        this.FNormalCells.parentElement.parentElement.style.setProperty('background-color', clr);\r\n      end;\r\n    end;\r\n\r\n    if FOrigID = '' then\r\n    begin\r\n      FOrigID := GetID;\r\n      if FOrigID = '' then\r\n        FOrigID := Name;\r\n    end;\r\n\r\n    AddInstanceStyle(StylePrefix + FOrigID, GetGridCSS(FOrigID + 'tbl'));\r\n\r\n    UpdateGridSize;\r\n    UpdateGridAlignment;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.UpdateElementVisual;\r\nvar\r\n  fixcol,fixtxtcol: string;\r\nbegin\r\n  inherited;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  if Assigned(ElementHandle) and Assigned(FGrid) then\r\n  begin\r\n    fixcol := ColorToHTML(FFixedColor);\r\n    fixtxtcol := ColorToHTML(FixedTextColor);\r\n\r\n    if (FixedCols > 0) and (FixedRows > 0) then\r\n    begin\r\n      asm\r\n        this.FFixedColRow.parentElement.style.setProperty('background-color',fixcol);\r\n        this.FFixedColRow.parentElement.style.setProperty('color',fixtxtcol);\r\n      end;\r\n    end;\r\n\r\n    if (FixedCols > 0) then\r\n    begin\r\n      asm\r\n        this.FFixedCol.parentElement.style.setProperty('background-color',fixcol);\r\n        this.FFixedCol.parentElement.style.setProperty('color',fixtxtcol);\r\n\r\n        if (this.FFixedCol.parentElement.parentElement) {\r\n          this.FFixedCol.parentElement.parentElement.style.setProperty('background-color',fixcol);\r\n          this.FFixedCol.parentElement.parentElement.style.setProperty('color',fixtxtcol);\r\n        }\r\n      end;\r\n    end;\r\n\r\n    if (FixedRows > 0) then\r\n    begin\r\n      asm\r\n        this.FFixedRow.parentElement.style.setProperty('background-color',fixcol);\r\n        this.FFixedRow.parentElement.style.setProperty('color',fixtxtcol);\r\n        this.FFixedRow.parentElement.parentElement.style.setProperty('background-color',fixcol);\r\n        this.FFixedRow.parentElement.parentElement.style.setProperty('color',fixtxtcol);\r\n        if (this.FFixedRow.parentElement.parentElement.parentElement) {\r\n          this.FFixedRow.parentElement.parentElement.parentElement.style.setProperty('background-color',fixcol);\r\n          this.FFixedRow.parentElement.parentElement.parentElement.style.setProperty('color',fixtxtcol);\r\n        }\r\n      end;\r\n    end;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TCustomStringGrid.UpdateGridAlignment;\r\nvar\r\n  i,j,k,l,cw,rh: integer;\r\n  al: TAlignment;\r\n\r\nbegin\r\n  if not Assigned(ElementHandle) then\r\n    Exit;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  if (RowCount = 0) or (ColCount = 0) then\r\n    Exit;\r\n\r\n  if FColAlignments.Count = 0 then\r\n    Exit;\r\n\r\n  for i := 0 to FixedCols - 1 do\r\n  begin\r\n    al := ColAlignments[i];\r\n    j := i; // avoid that the optimizer removes j variable\r\n\r\n    if (FixedRows > 0) and (FixedCols > 0) then\r\n    begin\r\n\r\n      asm\r\n        for (j = 0; j < this.FFixedColRow.rows.length; j ++){\r\n         var tr = this.FFixedColRow.rows[j];\r\n         if (tr) {\r\n         var td = tr.cells[i];\r\n         if (td) {\r\n           this.SetAlignAttr(al, td);\r\n           }\r\n        }\r\n        }\r\n      end;\r\n    end;\r\n\r\n    if (FixedCols > 0) then\r\n    begin\r\n      asm\r\n        for (j = 0; j < this.FFixedCol.rows.length; j ++){\r\n         var tr = this.FFixedCol.rows[j];\r\n         if (tr) {\r\n           var td = tr.cells[i];\r\n           if (td) {\r\n           this.SetAlignAttr(al, td);\r\n           }\r\n         }\r\n        }\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  for i := FixedCols to ColCount - 1 do\r\n  begin\r\n    al := ColAlignments[i];\r\n\r\n    k := i - FixedCols;\r\n    j := i; // avoid that the optimizer removes j variable\r\n\r\n    if (FixedRows > 0) then\r\n    begin\r\n      asm\r\n        //if (this.FFixedRow.rows.length > 0) {\r\n        for (j = 0; j < this.FFixedRow.rows.length; j++) {\r\n          var tr = this.FFixedRow.rows[j];\r\n          if (tr) {\r\n          var td = tr.cells[k];\r\n          if (td) {\r\n            this.SetAlignAttr(al, td);\r\n           }\r\n          }\r\n        }\r\n      end;\r\n    end;\r\n\r\n    asm\r\n      for (j = 0; j < this.FNormalCells.rows.length; j++) {\r\n        var tr = this.FNormalCells.rows[j];\r\n        if (tr) {\r\n          var td = tr.cells[k];\r\n          if (td) {\r\n          this.SetAlignAttr(al, td);\r\n          }\r\n        }\r\n      }\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomStringGrid.UpdateGridSize;\r\nvar\r\n  i,j,k,l,cw,rh,frh: integer;\r\n\r\nbegin\r\n  if not Assigned(ElementHandle) then\r\n    Exit;\r\n\r\n  if not Assigned(Parent) then\r\n    Exit;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  if (RowCount = 0) or (ColCount = 0) then\r\n    Exit;\r\n\r\n  for i := 0 to FixedCols - 1 do\r\n  begin\r\n    cw := ColWidths[i] - CELLPADDING;\r\n\r\n    if (FixedRows > 0) and (FixedCols > 0) then\r\n    begin\r\n      asm\r\n        for (j = 0; j < this.FFixedColRow.rows.length; j ++){\r\n         var tr = this.FFixedColRow.rows[j];\r\n         if (tr) {\r\n         var td = tr.cells[i];\r\n         if (td) {\r\n         td.style.width = cw + \"px\";\r\n         td.style.maxWidth = cw + \"px\";\r\n         }\r\n         }\r\n        }\r\n      end;\r\n    end;\r\n\r\n    if (FixedCols > 0) then\r\n    begin\r\n      asm\r\n        for (j = 0; j < this.FFixedCol.rows.length; j ++){\r\n         var tr = this.FFixedCol.rows[j];\r\n         if (tr) {\r\n         var td = tr.cells[i];\r\n         if (td) {\r\n         td.style.width = cw + \"px\";\r\n         td.style.maxWidth = cw + \"px\";\r\n         }\r\n         }\r\n        }\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  for i := 0 to FixedRows - 1 do\r\n  begin\r\n    rh := RowHeights[i];\r\n\r\n    if FixedCols > 0  then\r\n    begin\r\n      asm\r\n        var tr = this.FFixedColRow.rows[i];\r\n        if (tr) {\r\n          tr.style.height = rh + \"px\";\r\n        }\r\n      end;\r\n    end;\r\n\r\n    asm\r\n      var tr = this.FFixedRow.rows[i];\r\n      if (tr) {\r\n        tr.style.height = rh + \"px\";\r\n      }\r\n    end;\r\n  end;\r\n\r\n  for i := FixedCols to ColCount - 1 do\r\n  begin\r\n    cw := ColWidths[i] - CELLPADDING;\r\n\r\n    k := i - FixedCols;\r\n\r\n    if (FixedRows > 0) then\r\n    begin\r\n      asm\r\n        //if (this.FFixedRow.rows.length > 0) {\r\n        for (i = 0; i < this.FFixedRow.rows.length; i++) {\r\n          var tr = this.FFixedRow.rows[i];\r\n          if (tr) {\r\n          var td = tr.cells[k];\r\n          if (td) {\r\n          td.style.width = cw + \"px\";\r\n          td.style.maxWidth = cw + \"px\";\r\n          }\r\n          }\r\n        }\r\n      end;\r\n    end;\r\n\r\n    asm\r\n      if (this.FNormalCells.rows.length > 0) {\r\n        var tr = this.FNormalCells.rows[0];\r\n        if (tr) {\r\n        var td = tr.cells[k];\r\n        if (td) {\r\n        td.style.width = cw + \"px\";\r\n        td.style.maxWidth = cw + \"px\";\r\n        }\r\n        }\r\n      }\r\n    end;\r\n  end;\r\n\r\n  for i := FixedRows to RowCount - 1 do\r\n  begin\r\n    k := i - FixedRows;\r\n    rh := RowHeights[i];\r\n\r\n    for j := FixedCols to ColCount - 1 do\r\n    begin\r\n      l := j - FixedCols;\r\n      cw := ColWidths[j] - CELLPADDING;\r\n\r\n      frh := rh;\r\n\r\n      if (i = RowCount - 1) and HasHorzScrollBar and HasVertScrollBar then\r\n      begin\r\n        frh := rh + 20;  //FNormalCells.parentElement.scrollheight;\r\n      end;\r\n\r\n      if FixedCols > 0 then\r\n      begin\r\n        asm\r\n          var tr = this.FFixedCol.rows[k];\r\n          if (tr) {\r\n            tr.style.height = frh + \"px\";\r\n          }\r\n        end;\r\n\r\n        if (i = RowCount - 1) and HasHorzScrollBar and HasVertScrollBar then\r\n        begin\r\n          asm\r\n            var td = this.FFixedCol.rows[k].cells[0];\r\n            if (td) {\r\n              td.style.setProperty(\"vertical-align\",\"top\");\r\n            }\r\n          end;\r\n        end;\r\n      end;\r\n\r\n      asm\r\n        var tr = this.FNormalCells.rows[k];\r\n        if (tr) {\r\n        tr.style.height = rh + \"px\";\r\n\r\n        td = tr.cells[l];\r\n        if (td) {\r\n        td.style.maxWidth = cw + \"px\";\r\n        }\r\n        }\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TCustomStringGrid.ValidateCell(ACol, ARow: integer;\r\n  var AValue: string);\r\nbegin\r\n  if Assigned(OnValidateEdit) then\r\n    OnValidateEdit(Self, ACol, ARow, AValue);\r\nend;\r\n\r\n{$HINTS ON}\r\n\r\nfunction TCustomStringGrid.HandleMouseMove(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  rindex, cindex: integer;\r\n  l, t: Single;\r\n  ss: TShiftState;\r\nbegin\r\n  rindex := -1;\r\n  cindex := -1;\r\n\r\n  asm\r\n    if (Event.target.tagName.toLowerCase() == 'td')\r\n    {\r\n      cindex = Event.target.cellIndex;\r\n      var tr = Event.target.parentElement;\r\n      rindex = tr.rowIndex;\r\n    }\r\n  end;\r\n\r\n  if (cindex >= 0) and (rindex >= 0) and (FStartCell.X >= 0) and (FStartCell.Y >= 0) then\r\n    Selection := GridRect(FStartCell.X, FStartCell.Y, cindex + FixedCols, rindex + FixedRows);\r\n\r\n  Result := true;\r\n\r\n  XYToClient(Event.clientX, Event.clientY, l, t);\r\n\r\n  ss := GetMouseEventShiftState(Event);\r\n\r\n  MouseMove(ss, Trunc(l), Trunc(t));\r\nend;\r\n\r\nfunction TCustomStringGrid.HandleMouseUp(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  l, t: Single;\r\n  ss: TShiftState;\r\n  mb: TMouseButton;\r\nbegin\r\n  asm\r\n    TMSStringGridresetResize();\r\n  end;\r\n\r\n  FStartCell.X := -1;\r\n  FStartCell.Y := -1;\r\n  Result := false;\r\n\r\n  Event.stopPropagation;\r\n  Event.cancelBubble := true;\r\n\r\n  XYToClient(Event.clientX, Event.clientY, l, t);\r\n\r\n  ss := GetMouseEventShiftState(Event);\r\n  mb := GetMouseEventButton(Event);\r\n\r\n  MouseUp(mb, ss, Trunc(l), Trunc(t));\r\n\r\nend;\r\n\r\n{ TCustomGrid }\r\n\r\nprocedure TCustomGrid.Clear;\r\nbegin\r\n//\r\nend;\r\n\r\nprocedure TCustomGrid.ColCountChanged(delta: integer);\r\nbegin\r\nend;\r\n\r\nfunction TCustomGrid.ColOffset: integer;\r\nbegin\r\n  Result := 0;\r\nend;\r\n\r\nfunction TCustomGrid.GetCells(ACol, ARow: integer): string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TCustomGrid.GetCellsArray: TJSArray;\r\nvar\r\n  i,j: integer;\r\n  row: TJSArray;\r\n  s:string;\r\nbegin\r\n  Result := TJSArray.new;\r\n\r\n  for i := RowOffset to RowCount - 1 do\r\n  begin\r\n    row := TJSArray.new;\r\n\r\n    for j := ColOffset to ColCount - 1 do\r\n    begin\r\n      s := Cells[j,i];\r\n      row.push(s);\r\n    end;\r\n    Result.push(row);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomGrid.GridChanged;\r\nbegin\r\n  //\r\nend;\r\n\r\nprocedure TCustomGrid.RowCountChanged(delta: integer);\r\nbegin\r\nend;\r\n\r\nfunction TCustomGrid.RowOffset: integer;\r\nbegin\r\n  Result := 0;\r\nend;\r\n\r\nprocedure TCustomGrid.SetCells(ACol, ARow: integer; const Value: string);\r\nbegin\r\n//\r\nend;\r\n\r\nprocedure TCustomGrid.SetColCount(const Value: integer);\r\nvar\r\n  delta: integer;\r\nbegin\r\n  if (FColCount <> Value) and (Value >= 0) then\r\n  begin\r\n    delta := Value - FColCount;\r\n    FColCount := Value;\r\n    if Assigned(ElementHandle) then\r\n    begin\r\n      ColCountChanged(delta);\r\n      GridChanged;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomGrid.SetRowCount(const Value: integer);\r\nvar\r\n  delta: integer;\r\nbegin\r\n  if (FRowCount <> Value) and (Value >= 0) then\r\n  begin\r\n    delta := Value - FRowCount;\r\n    FRowCount := Value;\r\n    if Assigned(ElementHandle) then\r\n    begin\r\n      RowCountChanged(delta);\r\n      GridChanged;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomGrid.SetCellsArray(const Value: TJSArray);\r\nvar\r\n  i,j: integer;\r\n  ja: TJSArray;\r\n  jv: JSValue;\r\nbegin\r\n  if Value.length + RowOffset > RowCount  then\r\n    RowCount := Value.length + RowOffset;\r\n\r\n  for i := 0 to Value.length - 1 do\r\n  begin\r\n    ja := TJSArray(Value.elements[i]);\r\n    if (ja is TJSArray) then\r\n    begin\r\n      if ja.length + ColOffset > ColCount then\r\n        ColCount := ja.length + ColOffset;\r\n\r\n      for j := 0 to ja.length - 1 do\r\n      begin\r\n        jv := ja.Elements[j];\r\n        Cells[j + ColOffset,i + RowOffset] := js.toString(jv);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TCustomTableControl }\r\n\r\n{$HINTS OFF}\r\nprocedure TCustomTableControl.AddButton(ACol, ARow: integer; AText: string; AStyle: string);\r\nvar\r\n  s, ct: string;\r\n  el: TJSHTMLElement;\r\nbegin\r\n  if (ARow >= 0) and (ACol >= 0) and not HasCheckBox(ACol,ARow) then\r\n  begin\r\n    ct := Cells[ACol, ARow];\r\n    if ct <> '' then\r\n      ct := '&nbsp;' + ct;\r\n\r\n    s := '<BUTTON type=\"button\" style=\"vertical-align:middle\"';\r\n\r\n    if AStyle <> '' then\r\n      s := s + ' class=\"'+AStyle+'\"';\r\n\r\n    s := s + '>'+AText+'</BUTTON>';\r\n\r\n    Cells[ACol,ARow] := s + ct;\r\n\r\n    el := CellElements[ACol, ARow];\r\n    BindCellButton(ACol, ARow, el);\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TCustomTableControl.AddButtonColumn(ACol: integer; AText,\r\n  AStyle: string);\r\nvar\r\n  i,s: integer;\r\nbegin\r\n  s := 0;\r\n  if RowHeader then\r\n    s := 1;\r\n\r\n  for i := s to RowCount - 1 do\r\n    AddButton(ACol, i, AText, AStyle);\r\nend;\r\n\r\nprocedure TCustomTableControl.AddCheckBox(ACol, ARow: integer;\r\n  Checked: boolean = false);\r\nvar\r\n  s, ct: string;\r\n  el: TJSHTMLElement;\r\nbegin\r\n  if (ARow >= 0) and (ACol >= 0) and not HasCheckBox(ACol,ARow) then\r\n  begin\r\n    ct := Cells[ACol, ARow];\r\n    if ct <> '' then\r\n      ct := '&nbsp;' + ct;\r\n\r\n    s := '<INPUT TYPE=\"CHECKBOX\" style=\"vertical-align:middle\"';\r\n    if checked then\r\n      s := s + ' CHECKED';\r\n    s := s + '>';\r\n    Cells[ACol,ARow] := s + ct;\r\n\r\n    el := CellElements[ACol, ARow];\r\n    BindCellCheckBox(ACol, ARow, el);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.AddCheckBoxColumn(ACol: integer;\r\n  Checked: boolean = false);\r\nvar\r\n  i,s: integer;\r\nbegin\r\n  s := 0;\r\n  if RowHeader then\r\n    s := 1;\r\n\r\n  for i := s to RowCount - 1 do\r\n    AddCheckBox(ACol, i, Checked);\r\nend;\r\n\r\nprocedure TCustomTableControl.AddProgress(ACol, ARow, APosition: integer;\r\n  AStyle: string);\r\nvar\r\n  prog: TJSElement;\r\nbegin\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    if not HasProgress(ACol,ARow) then\r\n    begin\r\n      prog := document.createElement('PROGRESS');\r\n      prog['max'] := '100';\r\n      prog['value'] := APosition.toString;\r\n      TJSHTMLElement(prog).style.setProperty('width','100%');\r\n      if AStyle <> '' then\r\n        prog['class'] := AStyle;\r\n      CellElements[ACol,ARow].insertBefore(prog, CellElements[ACol,ARow].firstChild);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.AddSortIndicator(const ACol, ARow: integer;\r\n  AIndicator: TGridSortIndicator);\r\nvar\r\n  s,sid: string;\r\n  sp: integer;\r\nbegin\r\n  s := Cells[ACol,ARow];\r\n  sp := pos('<span', s);\r\n\r\n  if sp > 0 then\r\n    s := Copy(s, 1, sp - 1);\r\n\r\n  sid := Name + 'si'+ACol.ToString+'_'+ARow.ToString;\r\n\r\n  case AIndicator of\r\n  siNone: Cells[ACol,ARow] := s;\r\n  siAscending: Cells[ACol,ARow] := s + '<span style=\"cursor:pointer;float:right\" id=\"' + sid + '\" sort=\"up\">'+GlyphAscending+'</span>';\r\n  siDescending: Cells[ACol,ARow] := s + '<span style=\"cursor:pointer;float:right\" id=\"'+ sid + '\" sort=\"dn\">'+GlyphDescending+'</span>';\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TCustomTableControl.BindCellButton(ACol, ARow: integer;\r\n  AElement: TJSHTMLElement);\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  el := TJSHTMLElement(AElement.firstChild);\r\n  if Assigned(el) and (el.tagName = 'DIV') then\r\n    el := TJSHTMLElement(el.firstChild);\r\n\r\n  if Assigned(el) and (el.tagName = 'BUTTON') then\r\n  begin\r\n    el.addEventListener('click', FHandleButtonClickPtr);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.BindCellCheckBox(ACol, ARow: integer;\r\n  AElement: TJSHTMLElement);\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  el := TJSHTMLElement(AElement.firstChild);\r\n\r\n  if Assigned(el) and (el.tagName = 'DIV') then\r\n    el := TJSHTMLElement(el.firstChild);\r\n\r\n  if Assigned(el) and (el.tagName = 'INPUT') then\r\n  begin\r\n    if (lowercase(el.getAttribute('TYPE'))= 'checkbox') then\r\n    begin\r\n      el.addEventListener('click', FHandleCheckClickPtr);\r\n    end;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TCustomTableControl.BindEvents;\r\nbegin\r\n  inherited;\r\n  RenderGridScript;\r\nend;\r\n\r\nprocedure TCustomTableControl.Clear;\r\nvar\r\n  i,j: integer;\r\nbegin\r\n  for i := 0 to RowCount - 1 do\r\n    for j := 0 to ColCount - 1 do\r\n      begin\r\n        Cells[j,i] := '';\r\n      end;\r\nend;\r\n\r\nprocedure TCustomTableControl.ClearData;\r\nbegin\r\n  Clear;\r\nend;\r\n\r\nprocedure TCustomTableControl.ClearMethodPointers;\r\nbegin\r\n  inherited;\r\n  FHandleCheckClickPtr := nil;\r\n  FHandleButtonClickPtr := nil;\r\nend;\r\n\r\nprocedure TCustomTableControl.ColCountChanged(delta: integer);\r\nvar\r\n  c,fromrow, torow: integer;\r\n  dtb,cc: string;\r\n\r\nbegin\r\n  if IsUpdating or not Assigned(FTable) then\r\n    Exit;\r\n\r\n  cc := '';\r\n  dtb := '';\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    dtb := '1px dashed gray';\r\n    cc := '&nbsp;';\r\n  end;\r\n\r\n  fromrow := 0;\r\n  torow := RenderRowCount;\r\n\r\n  if RowHeader then\r\n    torow := torow + 1;\r\n\r\n  if Header.Visible then\r\n  begin\r\n    Header.FElement.setAttribute('colspan',ColCount.ToString);\r\n    fromrow := 1;\r\n    torow := torow + 1;\r\n  end;\r\n\r\n  if Footer.Visible then\r\n  begin\r\n    Footer.FElement.setAttribute('colspan',ColCount.ToString);\r\n  end;\r\n\r\n  if delta > 0 then\r\n  begin\r\n    asm\r\n      var i = 0;\r\n      var j = 0;\r\n      var k = 0;\r\n      var tr = undefined;\r\n      var td = undefined;\r\n\r\n      for(j = fromrow; j < torow; j++)\r\n      {\r\n        tr = this.FTable.rows[j];\r\n\r\n        if (tr == undefined) { continue; }\r\n\r\n        k = tr.cells.length;\r\n\r\n         for(i = 0; i < delta; i++)\r\n         {\r\n           if ((j == fromrow) && (this.FRowHeader))\r\n           {\r\n             var th = document.createElement('th');\r\n             th.setAttribute('scope','col');\r\n             tr.appendChild(th);\r\n             this.SetTableCell(i,j,th,cc);\r\n           }\r\n           else\r\n           {\r\n             if ((tr.cells.length == 0) && (this.FColHeader))\r\n             {\r\n               var th = document.createElement('th');\r\n               th.setAttribute('scope','row');\r\n               this.SetTableCell(i,j,th, cc);\r\n               tr.appendChild(th);\r\n             }\r\n             else\r\n             {\r\n               td = tr.insertCell();\r\n               td = tr.cells[k];\r\n               this.SetTableCell(i,j,td, cc);\r\n             }\r\n           }\r\n         }\r\n      }\r\n    end;\r\n\r\n    if DragMode = dmAutomatic then\r\n      EnableDrag;\r\n  end;\r\n\r\n  if delta < 0 then\r\n  begin\r\n    asm\r\n      var i = 0;\r\n      var j = 0;\r\n      var k = 0;\r\n      var tr = undefined;\r\n\r\n      for(j = fromrow; j < torow; j++)\r\n      {\r\n        tr = this.FTable.rows[j];\r\n\r\n        if (tr == undefined) { continue; }\r\n\r\n        k = tr.cells.length;\r\n\r\n        for(i = 0; i < -delta; i++)\r\n        {\r\n          if ((k - i - 1 < k) && (k - i - 1 >= 0))  {\r\n            tr.deleteCell(k - i - 1);\r\n        }\r\n       }\r\n      }\r\n    end;\r\n  end;\r\n\r\nend;\r\n{$HINTS ON}\r\n\r\nfunction TCustomTableControl.ColOffset: integer;\r\nbegin\r\n  if ColHeader then\r\n    Result := 1\r\n  else\r\n    Result := 0;\r\nend;\r\n\r\nconstructor TCustomTableControl.Create(AOwner: TComponent);\r\nbegin\r\n  FHeader := nil;\r\n  FFooter := nil;\r\n\r\n  inherited;\r\n  TabStop := false;\r\nend;\r\n\r\nfunction TCustomTableControl.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('DIV');\r\n  FTable := nil;\r\nend;\r\n\r\nprocedure TCustomTableControl.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FOptions := TTableControlOptions.Create(Self);\r\n\r\n  FData := nil;\r\n  FUnfiltered := nil;\r\n  if (FData = nil) then\r\n  begin\r\n    if not Assigned(FHeader) then\r\n      FHeader := TTableControlHeader.Create(Self);\r\n    if not Assigned(FFooter) then\r\n      FFooter := TTableControlHeader.Create(Self);\r\n\r\n    FPaging := TTableControlPaging.Create(Self);\r\n    FHiddenCols := TStringList.Create;\r\n    FHiddenCols.Duplicates := dupIgnore;\r\n  end;\r\n  asm\r\n    this.FData = [];\r\n    this.FData.length = 11;\r\n    var i;\r\n    for(i=0;i<11;i++) {\r\n      if (this.FData[i] == null) this.FData[i] = [];\r\n\r\n      this.FData[i].length = 5;\r\n    }\r\n  end;\r\n\r\n//  Color := clWindow;\r\n // TabStop := false;\r\n  FColCount := 5;\r\n  FRowCount := 10;\r\n  FRowHeader := true;\r\n  FColHeader := true;\r\n  FRowIndex := -1;\r\n  FSelectionColor := $FF8F5B;\r\n  FSelectionTextColor := $FFFFFF;\r\n  Enabled := true;\r\n\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Width := 400;\r\n    Height := 300;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.DataBeginUpdate;\r\nbegin\r\n  //\r\nend;\r\n\r\nprocedure TCustomTableControl.DataEndUpdate;\r\nbegin\r\n  //\r\nend;\r\n\r\nprocedure TCustomTableControl.DataInsertRow(AInsertPosition: Integer);\r\nbegin\r\n  InsertRow(AInsertPosition);\r\nend;\r\n\r\ndestructor TCustomTableControl.Destroy;\r\nbegin\r\n  FHiddenCols.Free;\r\n  FOptions.Free;\r\n  FHeader.Free;\r\n  FFooter.Free;\r\n  FPaging.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TCustomTableControl.DisableDrag;\r\n  procedure RemoveDraggableAttribute(AElement: TJSElement);\r\n  var\r\n    I: Integer;\r\n  begin\r\n    for I := 0 to AElement.children.length - 1 do\r\n    begin\r\n      if TJSElement(AElement.children[I]).tagName = 'TD' then\r\n      begin\r\n        TJSElement(AElement.children[I]).removeAttribute('draggable');\r\n        RemoveDraggableAttribute(TJSElement(AElement.children[I]));\r\n      end\r\n      else\r\n        RemoveDraggableAttribute(TJSElement(AElement.children[I]));\r\n    end;\r\n  end;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  RemoveDraggableAttribute(Container);\r\nend;\r\n\r\nprocedure TCustomTableControl.DoButtonClick(ACol, ARow: integer);\r\nbegin\r\n  if Assigned(OnButtonClick) then\r\n    OnButtonClick(Self, ACol, ARow);\r\nend;\r\n\r\nprocedure TCustomTableControl.DoCheckClick(ACol, ARow: Longint;\r\n  Checked: boolean);\r\nbegin\r\n  if Assigned(OnCheckClick) then\r\n    OnCheckClick(Self, ACol, ARow, Checked);\r\nend;\r\n\r\nfunction TCustomTableControl.DoHttpAbort(Event: TEventListenerEvent): boolean;\r\nbegin\r\n  if Assigned(OnHttpRequestError) then\r\n    OnHttpRequestError(Self);\r\n\r\n  Result := true;\r\nend;\r\n\r\nfunction TCustomTableControl.DoHttpLoadCsv(Event: TEventListenerEvent): boolean;\r\nvar\r\n  sl: TStringList;\r\n  req: TJSXMLHttpRequest;\r\nbegin\r\n  req := TJSXMLHttpRequest(Event.target);\r\n\r\n  if (req.status >= 200) and (req.status <= 208) then\r\n  begin\r\n    sl := TStringList.Create;\r\n    sl.Text := req.responseText;\r\n\r\n    try\r\n      LoadFromStringList(sl);\r\n    finally\r\n      sl.Free;\r\n    end;\r\n\r\n    if Assigned(OnHttpRequestSuccess) then\r\n      OnHttpRequestSuccess(Self);\r\n  end;\r\n\r\n  Result := true;\r\nend;\r\n\r\n{$HINTS OFF}\r\nfunction TCustomTableControl.DoHttpLoadJson(Event: TEventListenerEvent): boolean;\r\nvar\r\n  J: TJSObject;\r\n  req: TJSXMLHttpRequest;\r\n\r\nbegin\r\n  req := TJSXMLHttpRequest(Event.target);\r\n\r\n  if (req.status >= 200) and (req.status <= 208) then\r\n  begin\r\n    J := TJSJSON.parseObject(req.responseText);\r\n\r\n    LoadFromJSON(J, FDataNode);\r\n\r\n    if Assigned(OnHttpRequestSuccess) then\r\n      OnHttpRequestSuccess(Self);\r\n  end;\r\n\r\n  Result := true;\r\nend;\r\n\r\nfunction TCustomTableControl.DoHttpLoadPageJson(Event: TEventListenerEvent): boolean;\r\nvar\r\n  J: TJSObject;\r\n  req: TJSXMLHttpRequest;\r\n\r\nbegin\r\n  req := TJSXMLHttpRequest(Event.target);\r\n\r\n  if (req.status >= 200) and (req.status <= 208) then\r\n  begin\r\n    J := TJSJSON.parseObject(req.responseText);\r\n\r\n    LoadPageFromJSON(J, FDataNode);\r\n\r\n    if Assigned(OnHttpRequestSuccess) then\r\n      OnHttpRequestSuccess(Self);\r\n  end;\r\n\r\n  Result := true;\r\nend;\r\n\r\n\r\nprocedure TCustomTableControl.DoHttpRequest(ARequest: TJSXMLHttpRequest);\r\nvar\r\n  LRequestRec: TJSXMLHttpRequestRecord;\r\nbegin\r\n  if Assigned(OnHttpRequest) then\r\n  begin\r\n    LRequestRec.req := ARequest;\r\n    OnHttpRequest(Self, LRequestRec);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.DoSelectPage(AIndex: integer);\r\nvar\r\n  Allow: boolean;\r\n  DoDefault: boolean;\r\n\r\nbegin\r\n  Allow := true;\r\n  DoDefault := true;\r\n\r\n  if Assigned(OnSelectPage) then\r\n    OnSelectPage(Self, AIndex, Allow, DoDefault);\r\n\r\n  if Allow then\r\n    SelectPage(AIndex, DoDefault);\r\nend;\r\n\r\nprocedure TCustomTableControl.DoSortClick(ACol, ARow: Longint;\r\n  ASortIndicator: TGridSortIndicator);\r\nvar\r\n i: integer;\r\nbegin\r\n  FSortIndex := ACol;\r\n\r\n  for i := 0 to ColCount - 1 do\r\n  begin\r\n    SelectSortIndicator(i,ARow,i = ACol);\r\n  end;\r\n\r\n  FSortDirection := ASortIndicator;\r\n\r\n  if Assigned(OnSortClick) then\r\n    OnSortClick(Self, ACol, ARow, ASortIndicator);\r\n\r\n  Sort(ACol, ASortIndicator);\r\nend;\r\n\r\nprocedure TCustomTableControl.EnableColResize;\r\nvar\r\n  TableName: string;\r\n  ResizeEnabled: Boolean;\r\n  ridx: integer;\r\nbegin\r\n  TableName := Name;\r\n  ResizeEnabled := Options.ResizeColumns;\r\n\r\n  if not (csDesigning in ComponentState) then\r\n  begin\r\n    if Header.Visible then\r\n      ridx := 1\r\n    else\r\n      ridx := 0;\r\n\r\n    asm\r\n      resizableGrid(TableName, ResizeEnabled, ridx);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.EnableDrag;\r\n  procedure AddDraggableAttribute(AElement: TJSElement);\r\n  var\r\n    I: Integer;\r\n  begin\r\n    for I := 0 to AElement.children.length - 1 do\r\n    begin\r\n      if TJSElement(AElement.children[I]).tagName = 'TD' then\r\n      begin\r\n        TJSElement(AElement.children[I]).Attrs['draggable'] := 'true';\r\n        AddDraggableAttribute(TJSElement(AElement.children[I]));\r\n      end\r\n      else\r\n        AddDraggableAttribute(TJSElement(AElement.children[I]));\r\n    end;\r\n  end;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  AddDraggableAttribute(Container);\r\nend;\r\n\r\nfunction TCustomTableControl.FindCell(Condition: string; CaseSensitive: boolean = true; AllCells: boolean = false): TGridCoord;\r\nvar\r\n  i,j: integer;\r\nbegin\r\n  if ColHeader and not AllCells then\r\n    i := 1\r\n  else\r\n    i := 0;\r\n\r\n  if RowHeader then\r\n    j := 1\r\n  else\r\n    j := 0;\r\n\r\n  FFindCase := CaseSensitive;\r\n  FFindCondition := Condition;\r\n\r\n  Result := FindFrom(i,j,Condition, CaseSensitive, AllCells);\r\nend;\r\n\r\nfunction TCustomTableControl.FindFrom(ACol, ARow: integer; Condition: string; CaseSensitive: boolean = true; AllCells: boolean = false): TGridCoord;\r\nvar\r\n  i,j,r,pg: integer;\r\n  sr,sc: integer;\r\n  cd: string;\r\n  found: boolean;\r\nbegin\r\n  sc := ACol;\r\n\r\n  Result.X := -1;\r\n  Result.Y := -1;\r\n\r\n  for i := ARow to RowCount - 1 do\r\n  begin\r\n    for j := sc to ColCount - 1 do\r\n    begin\r\n      asm\r\n        cd = this.FData[i][j];\r\n        found = (cd != undefined);\r\n      end;\r\n\r\n      if found and MatchStr('*' + Condition + '*', cd, CaseSensitive) then\r\n      begin\r\n        Result.X := j;\r\n        Result.Y := i;\r\n        FFindCol := j;\r\n        FFindRow := i;\r\n\r\n        if Paging.Enabled then\r\n        begin\r\n          pg := (i - ARow) div Paging.Size;\r\n          SelectPage(pg);\r\n          FFindRow := i mod Paging.Size;\r\n          if FFindRow < ARow then\r\n            FFindRow := Paging.Size;\r\n          Result.Y := FFindRow;\r\n        end;\r\n\r\n        ScrollRowInView(FFindRow);\r\n        SelectCell(j,FFindRow);\r\n        Exit;\r\n      end;\r\n    end;\r\n\r\n    if ColHeader and not AllCells then\r\n      sc := 1\r\n    else\r\n      sc := 0;\r\n  end;\r\nend;\r\n\r\nfunction TCustomTableControl.FindNext: TGridCoord;\r\nbegin\r\n  if FFindCol + 1 = RowCount then\r\n  begin\r\n    if ColHeader then\r\n      FFindCol := 1\r\n    else\r\n      FFindCol := 0;\r\n    FFindRow := FFindRow + 1;\r\n  end\r\n  else\r\n    FFindCol := FFindCol + 1;\r\n\r\n  Result := FindFrom(FFindCol, FFindRow, FFindCondition, FFindCase);\r\nend;\r\n\r\n{$HINTS ON}\r\n\r\nfunction TCustomTableControl.GetButtonElement(ACol,\r\n  ARow: integer): TJSHTMLElement;\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  Result := nil;\r\n\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := CellElements[ACol,ARow];\r\n    el := TJSElement(el.firstChild);\r\n    if Assigned(el) and (el.tagName = 'DIV') then\r\n      el := TJSElement(el.firstChild);\r\n\r\n    if Assigned(el) and (el.tagName = 'BUTTON') then\r\n    begin\r\n      Result := TJSHTMLElement(el);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.GetCellChildren(ACol, ARow: integer;\r\n  AField: TField; AValue: string; AElement: TJSHTMLElement);\r\nvar\r\n  LElementRec: TJSHTMLElementRecord;\r\nbegin\r\n  if Assigned(OnGetCellChildren) then\r\n  begin\r\n    LElementRec.element := AElement;\r\n    OnGetCellChildren(Self, ACol, ARow, AField, AValue, LElementRec);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.GetCellClassName(ACol, ARow: integer;\r\n  AField: TField; AValue: string; var AClassName: string);\r\nbegin\r\n  if Assigned(OnGetCellClass) then\r\n    OnGetCellClass(Self, ACol, ARow, AField, AValue, AClassName);\r\nend;\r\n\r\nprocedure TCustomTableControl.GetCellData(ACol, ARow: integer; AField: TField;\r\n  var AValue: string);\r\nbegin\r\n  if Assigned(OnGetCellData) then\r\n    OnGetCellData(Self, ACol, ARow, AField, AValue);\r\nend;\r\n\r\nfunction TCustomTableControl.GetCellElement(col, row: integer): TJSHTMLElement;\r\nvar\r\n  res: TJSHTMLElement;\r\n  rh,fr: integer;\r\nbegin\r\n  res := nil;\r\n\r\n  rh := 0;\r\n  if Header.Visible then\r\n    rh := 1;\r\n\r\n  fr := 0;\r\n  if ColHeader then\r\n    fr := 1;\r\n\r\n  if (col >= 0) and (row >= 0) and (col < ColCount) and (row <= RenderRowCount + rh + fr) and Assigned(FTable) then\r\n  begin\r\n    asm\r\n      if ((this.FTable.rows.length > row + rh) && (this.FTable.rows[row + rh].cells.length > col)) {\r\n        res = this.FTable.rows[row + rh].cells[col];\r\n      }\r\n    end;\r\n  end;\r\n\r\n  Result := res;\r\nend;\r\n\r\nfunction TCustomTableControl.GetCells(Col, Row: integer): string;\r\nvar\r\n  res: string;\r\n  hdr,trc: integer;\r\nbegin\r\n  Result := '';\r\n\r\n  hdr := 0;\r\n  if Header.Visible then\r\n    hdr := 1;\r\n\r\n  trc := RenderRowCount;\r\n  if RowHeader then\r\n    inc(trc);\r\n\r\n  if (col >= 0) and (row >= 0) and (col < ColCount) {and (row < trc)} and (hdr < 2) then\r\n  begin\r\n    asm\r\n//      res = this.FData[row][col];\r\n//      if (res == undefined) {\r\n        var td = this.FTable.rows[row + hdr].cells[col];\r\n        //res = td.innerHTML;\r\n\r\n        res = td.textContent;\r\n        if (td.childElementCount > 0) {\r\n          if (td.firstChild.tagName == 'DIV')\r\n            res = td.firstChild.textContent;\r\n        }\r\n//      }\r\n    end;\r\n\r\n    Result := res;\r\n  end;\r\nend;\r\n\r\nfunction TCustomTableControl.GetCheckElement(ACol,\r\n  ARow: integer): TJSHTMLElement;\r\nvar\r\n  el: TJSElement;\r\n  s: string;\r\nbegin\r\n  Result := nil;\r\n\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := TJSElement(CellElements[ACol,ARow].firstChild);\r\n\r\n    if Assigned(el) and (el is TJSElement) and (uppercase(el.tagName) = 'DIV') then\r\n      el := TJSElement(el.firstChild);\r\n\r\n    if Assigned(el) and (el is TJSElement) then\r\n    begin\r\n      s := '';\r\n      if el.hasAttribute('type') then\r\n        s := el.getAttribute('type');\r\n\r\n      if (s<>'') and (uppercase(s) = 'CHECKBOX') then\r\n      begin\r\n        Result := TJSHTMLElement(el);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TCustomTableControl.GetDataRowCount: Integer;\r\nbegin\r\n  if RowHeader or (Paging.Enabled = false) then\r\n    Result := RowCount - 1\r\n  else\r\n    Result := RowCount;\r\nend;\r\n\r\nprocedure TCustomTableControl.GetMethodPointers;\r\nbegin\r\n  inherited;\r\n  FHandleCheckClickPtr := @HandleCheckBoxClick;\r\n  FHandleButtonClickPtr := @HandleButtonClick;\r\nend;\r\n\r\nfunction TCustomTableControl.GetProgressElement(ACol,\r\n  ARow: integer): TJSHTMLElement;\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  Result := nil;\r\n\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := TJSElement(CellElements[ACol,ARow].firstChild);\r\n    if Assigned(el) and (el is TJSElement) then\r\n    begin\r\n      if (uppercase(el.tagName) = 'PROGRESS') then\r\n      begin\r\n        Result := TJSHTMLElement(el);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TCustomTableControl.GetRowClassName(row: integer): TElementClassName;\r\nvar\r\n  res: string;\r\nbegin\r\n  res := '';\r\n\r\n  if (row >= 0) and (row < RowCount) then\r\n  begin\r\n    asm\r\n      var tr = this.FTable.rows[row];\r\n      res = tr.getAttribute('class');\r\n    end;\r\n  end;\r\n\r\n  Result := res;\r\nend;\r\n\r\nfunction TCustomTableControl.HandleButtonClick(Event: TJSEvent): Boolean;\r\nvar\r\n  rindex, cindex: integer;\r\nbegin\r\n  Result := true;\r\n  rindex := -1;\r\n  cindex := -1;\r\n\r\n  asm\r\n    var el = Event.target;\r\n    var d = el.parentElement;\r\n    if (d.tagName.toLowerCase() == 'div') {\r\n      d = d.parentElement;\r\n    }\r\n\r\n    if (d.tagName.toLowerCase() == 'td') {\r\n      cindex = d.cellIndex;\r\n      var tr = d.parentElement;\r\n      rindex = tr.rowIndex;\r\n    }\r\n  end;\r\n\r\n  if Paging.Enabled then\r\n  begin\r\n    rindex := rindex + Paging.Index * Paging.Size;\r\n  end;\r\n\r\n  if (rindex <> -1) and (cindex <> -1) then\r\n  begin\r\n    DoButtonClick(cindex, rindex);\r\n  end;\r\nend;\r\n\r\nfunction TCustomTableControl.HandleCheckBoxClick(Event: TJSEvent): Boolean;\r\nvar\r\n  rindex, cindex: integer;\r\n  chk: boolean;\r\nbegin\r\n  Result := true;\r\n  rindex := -1;\r\n  cindex := -1;\r\n\r\n  asm\r\n    var el = Event.target;\r\n    chk = el.checked;\r\n    var d = el.parentElement;\r\n    if (d.tagName.toLowerCase() == 'div')\r\n    {\r\n      d = d.parentElement;\r\n    }\r\n    if (d.tagName.toLowerCase() == 'td')\r\n    {\r\n      cindex = d.cellIndex;\r\n      var tr = d.parentElement;\r\n      rindex = tr.rowIndex;\r\n    }\r\n  end;\r\n\r\n  if Paging.Enabled then\r\n  begin\r\n    rindex := rindex + Paging.Index * Paging.Size;\r\n  end;\r\n\r\n  if (rindex <> -1) and (cindex <> -1) then\r\n  begin\r\n    DoCheckClick(cindex, rindex, chk);\r\n  end;\r\nend;\r\n\r\nfunction TCustomTableControl.HandleDoClick(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  c,r: integer;\r\n  tgt: TJSElement;\r\n  sd: TGridSortIndicator;\r\n  tag,s: string;\r\n\r\nbegin\r\n  tgt := Event.targetElement;\r\n\r\n  if Uppercase(tgt.tagName) = 'BUTTON' then\r\n  begin\r\n//    HandleButtonClick(Event);\r\n//    inherited;\r\n    Exit;\r\n  end;\r\n\r\n  if Uppercase(tgt.tagName) = 'INPUT' then\r\n  begin\r\n    s := tgt['type'];\r\n    if Assigned(s) and (uppercase(s) = 'CHECKBOX') then\r\n    begin\r\n//      HandleCheckBoxClick(Event);\r\n//      inherited;\r\n      Exit;\r\n    end;\r\n  end;\r\n\r\n\r\n  sd := siNone;\r\n\r\n  if tgt.tagName = 'SPAN' then\r\n  begin\r\n    if tgt['sort']= 'up' then\r\n    begin\r\n      sd := siAscending;\r\n    end\r\n    else\r\n    if tgt['sort']= 'dn' then\r\n    begin\r\n      sd := siDescending;\r\n    end;\r\n  end;\r\n\r\n  repeat\r\n    asm\r\n      tag = tgt.tagName.toLowerCase();\r\n    end;\r\n    if (tag <> 'td') and (tag <> 'th') then\r\n      tgt := tgt.parentElement;\r\n  until (tag = 'td') or (tag = 'th') or (tgt = nil);\r\n\r\n  if (tag = 'td') or (tag = 'th') then\r\n  begin\r\n    asm\r\n      c = tgt.cellIndex;\r\n      var tr = tgt.parentElement;\r\n      r = tr.rowIndex;\r\n    end;\r\n\r\n    if Header.Visible then\r\n      dec(r);\r\n\r\n//     // handle row selection\r\n//     if (tag = 'td') and Enabled then\r\n//     begin\r\n//       RowIndex := r;\r\n//     end;\r\n\r\n    if Paging.Enabled then\r\n    begin\r\n      r := r + Paging.Index * Paging.Size;\r\n    end;\r\n\r\n    if Assigned(OnClickCell) and (sd = siNone) and Enabled then\r\n      OnClickCell(Self, c, r);\r\n  end;\r\n\r\n  if sd = siAscending then\r\n  begin\r\n    DoSortClick(c,r,siDescending);\r\n    SetSortIndicator(c,r, siDescending);\r\n  end\r\n  else\r\n  if sd = siDescending then\r\n  begin\r\n    DoSortClick(c,r, siAscending);\r\n    SetSortIndicator(c,r, siAscending);\r\n  end;\r\n\r\n  if Assigned(OnClick) then\r\n    OnClick(Self);\r\n\r\n  Result := true;\r\nend;\r\n\r\nfunction TCustomTableControl.HandleDoDblClick(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  c,r: integer;\r\n  el: TJSElement;\r\nbegin\r\n  el := Event.targetElement;\r\n\r\n  if (el.tagName = 'TD') or (el.tagName = 'TH') then\r\n  begin\r\n    asm\r\n      c = el.cellIndex;\r\n      var tr = el.parentElement;\r\n      r = tr.rowIndex;\r\n    end;\r\n\r\n    if Paging.Enabled then\r\n    begin\r\n      r := r + Paging.Index * Paging.Size;\r\n    end;\r\n\r\n    if Assigned(OnDblClickCell) then\r\n      OnDblClickCell(Self, c, r);\r\n  end;\r\n  Result := true;\r\nend;\r\n\r\nfunction TCustomTableControl.HandleDoKeyPress(Event: TJSKeyBoardEvent): Boolean;\r\nbegin\r\n  inherited;\r\n\r\n  Result := true;\r\nend;\r\n\r\n{$HINTS OFF}\r\nfunction TCustomTableControl.HandleDoMouseDown(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  r,maxr: integer;\r\n  tgt,tr: TJSElement;\r\n  sd: TGridSortIndicator;\r\n  tag: string;\r\n\r\nbegin\r\n  Result := true;\r\n\r\n  if not Enabled then\r\n    Exit;\r\n\r\n  tgt := Event.targetElement;\r\n  tag := '';\r\n  sd := siNone;\r\n  tr := nil;\r\n\r\n  repeat\r\n    asm\r\n      tag = tgt.tagName.toLowerCase();\r\n    end;\r\n    if (tag <> 'td') and (tag <> 'th') then\r\n      tgt := tgt.parentElement;\r\n  until (tag = 'td') or (tag = 'th') or (tgt = nil);\r\n\r\n  if (tag = 'td') or (tag = 'th') then\r\n  begin\r\n     asm\r\n       tr = tgt.parentElement;\r\n       r = tr.rowIndex;\r\n     end;\r\n     if Header.Visible then\r\n       dec(r);\r\n\r\n     if Paging.Enabled then\r\n       maxr := Paging.Size\r\n     else\r\n       maxr := RowCount;\r\n\r\n     if r > maxr then\r\n       Exit;\r\n\r\n     // handle row selection\r\n     if (tag = 'td') or (tag = 'th') and Enabled then\r\n     begin\r\n       asm\r\n         tag = tr.parentElement.tagName.toLowerCase();\r\n       end;\r\n       if tag <> 'thead' then  // can't select fixed col\r\n         RowIndex := r;\r\n     end;\r\n  end;\r\nend;\r\n\r\nfunction TCustomTableControl.HandleDoMouseMove(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  IsAutoWidth: Boolean;\r\nbegin\r\n  inherited;\r\n\r\n  IsAutoWidth := (WidthStyle in [ssAuto]);\r\n  asm\r\n    autoWidth = IsAutoWidth;\r\n    resizeColumn(Event);\r\n  end;\r\n\r\n  Result := True;\r\nend;\r\n{$HINTS ON}\r\n\r\nfunction TCustomTableControl.HandleDoMouseUp(Event: TJSMouseEvent): Boolean;\r\nbegin\r\n  inherited;\r\n\r\n  asm\r\n    resetResize();\r\n  end;\r\n\r\n  Result := True;\r\nend;\r\n\r\nfunction TCustomTableControl.HasCheckBox(ACol, ARow: integer): boolean;\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  Result := false;\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := GetCheckElement(ACol,ARow);\r\n    Result := Assigned(el);\r\n  end;\r\nend;\r\n\r\nfunction TCustomTableControl.HasProgress(const ACol, ARow: integer): boolean;\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  Result := false;\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := GetProgressElement(ACol,ARow);\r\n    Result := Assigned(el);\r\n  end;\r\nend;\r\n\r\nfunction TCustomTableControl.HasSortIndicator(const ACol,\r\n  ARow: integer): boolean;\r\nvar\r\n  el: TJSElement;\r\n  sid: string;\r\n\r\nbegin\r\n  sid := Name + 'si'+ACol.ToString+'_'+ARow.ToString;\r\n\r\n  el := document.getElementById(sid);\r\n\r\n  Result := Assigned(el);\r\nend;\r\n\r\nprocedure TCustomTableControl.InitSample(AInitMethod: TInitMethod);\r\nvar\r\n  i,j: integer;\r\n  trc: integer;\r\nbegin\r\n  trc := RenderRowCount;\r\n\r\n  if RowHeader then\r\n    inc(trc);\r\n\r\n  for i := 0 to trc - 1 do\r\n  begin\r\n    for j := 0 to ColCount - 1 do\r\n    begin\r\n     case AInitMethod of\r\n     imRandom:\r\n       Cells[j,i] := IntToStr(Random(100));\r\n     imLinear:\r\n       Cells[j,i] := IntToStr(j)+':'+IntToStr(i);\r\n     end;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TCustomTableControl.HideColumn(const Index: integer);\r\nvar\r\n  i,fr: integer;\r\n  tr,td: TJSHTMLElement;\r\n\r\nbegin\r\n  if (Index <0) or (Index > ColCount) then\r\n    Exit;\r\n\r\n  if Footer.Visible then\r\n    fr := 1\r\n  else\r\n    fr := 0;\r\n\r\n  asm\r\n    for(i=0; i < this.FTable.rows.length - fr; i++)\r\n    {\r\n      tr = this.FTable.rows[i];\r\n      td = tr.cells[Index];\r\n      td.style.setProperty('display','none');\r\n    }\r\n  end;\r\n\r\n  FHiddenCols.Add(Index.ToString);\r\nend;\r\n\r\nfunction TCustomTableControl.IsHiddenColumn(const Index: integer): boolean;\r\nbegin\r\n  Result := FHiddenCols.IndexOf(Index.ToString) <> -1;\r\nend;\r\n\r\nprocedure TCustomTableControl.UnHideColumn(const Index: integer);\r\nvar\r\n  i,idx: integer;\r\n  tr,td: TJSHTMLElement;\r\nbegin\r\n  if (Index <0) or (Index > ColCount) then\r\n    Exit;\r\n\r\n  idx := FHiddenCols.IndexOf(Index.ToString);\r\n\r\n  if idx = -1 then\r\n    Exit;\r\n\r\n  FHiddenCols.Delete(idx);\r\n\r\n  asm\r\n    for(i=0; i<this.FTable.rows.length;i++)\r\n    {\r\n      tr = this.FTable.rows[i];\r\n      td = tr.cells[Index];\r\n      td.style.removeProperty('display');\r\n    }\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TCustomTableControl.HideRow(const Index: integer);\r\nbegin\r\n  if (Index <0) or (Index > RowCount) then\r\n    Exit;\r\n\r\n  if not Assigned(FTable) then\r\n    Exit;\r\n\r\n  asm\r\n    var tr = this.FTable.rows[Index];\r\n    tr.style.setProperty('display','none');\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.UnHideRow(const Index: integer);\r\nbegin\r\n  if (Index <0) or (Index > RowCount) then\r\n    Exit;\r\n\r\n  asm\r\n    var tr = this.FTable.rows[Index];\r\n    tr.style.removeProperty('display');\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.InsertRow(Index: integer);\r\nvar\r\n  i,cnt: integer;\r\n  ch: boolean;\r\nbegin\r\n  if (Index <0) or (Index > RowCount) then\r\n    Exit;\r\n\r\n  cnt := ColCount;\r\n  ch := ColHeader;\r\n\r\n  asm\r\n    var tr = this.FTable.insertRow(Index);\r\n\r\n    for(i = 0; i < cnt; i++)\r\n    {\r\n      if ((i == 0) && (ch)) {\r\n        var th = document.createElement('th');\r\n        th.setAttribute('scope','row');\r\n        tr.appendChild(th);\r\n        }\r\n      else\r\n      {\r\n        tr.insertCell();\r\n      }\r\n    }\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.Invalidate;\r\nbegin\r\n  inherited;\r\n\r\n  if not (csloading in ComponentState) then\r\n    Exit;\r\n\r\n  Rerendergrid;\r\n  if Header.Visible then\r\n    Header.Update(Paging.Size, RowCount, Paging.Index);\r\n\r\n  if Footer.Visible then\r\n    Footer.Update(Paging.Size, RowCount, Paging.Index);\r\nend;\r\n\r\nfunction TCustomTableControl.InVisiblePage(var ARow: integer): boolean;\r\nbegin\r\n  if Paging.Enabled then\r\n  begin\r\n    Result := (ARow >= Paging.Size * Paging.Index) and (ARow < Paging.Size * (Paging.Index + 1));\r\n    ARow := ARow - (Paging.Size * Paging.Index);\r\n  end\r\n  else\r\n    Result := ARow <= RowCount;\r\nend;\r\n\r\nprocedure TCustomTableControl.KeyDown(var Key: Word; Shift: TShiftState);\r\nvar\r\n  fr: integer;\r\nbegin\r\n  inherited;\r\n\r\n  if not Enabled then\r\n    Exit;\r\n\r\n  fr := 0;\r\n  if RowHeader  then\r\n    fr := 1;\r\n\r\n  if Key = VK_UP then\r\n    RowIndex := Max(fr, RowIndex - 1);\r\n\r\n  if Key = VK_DOWN then\r\n    RowIndex := Min(RowCount - 1, RowIndex + 1);\r\n\r\n  if Key = VK_HOME then\r\n    RowIndex := fr;\r\n\r\n  if Key = VK_END then\r\n    RowIndex := RowCount - 1;\r\n\r\n  if Key = VK_NEXT then\r\n    RowIndex := Min(RowCount - 1, RowIndex + 4);\r\n\r\n  if Key = VK_PRIOR then\r\n    RowIndex := Max(fr, RowIndex - 4);\r\nend;\r\n\r\n{$HINTS ON}\r\n\r\nprocedure TCustomTableControl.LoadFromStringList(AStrings: TStrings);\r\nvar\r\n  firstrow: integer;\r\n  arow: TStringList;\r\n  i,j,cr: integer;\r\n  cd, cn: string;\r\n  ce: TJSHTMLElement;\r\n\r\nbegin\r\n  if RowHeader and not FLoadFixed then\r\n    firstrow := 1\r\n  else\r\n    firstrow := 0;\r\n\r\n  RowCount := AStrings.Count + firstrow;\r\n\r\n  arow := TStringList.Create;\r\n\r\n  try\r\n    for i := 0 to AStrings.Count - 1 do\r\n      begin\r\n        arow.StrictDelimiter := true;\r\n        arow.Delimiter := FDelimiter;\r\n        arow.DelimitedText := AStrings.Strings[i];\r\n\r\n        if arow.Count > ColCount then\r\n          ColCount := arow.Count;\r\n\r\n        for j := 0 to arow.Count - 1 do\r\n        begin\r\n          cd := arow.Strings[j];\r\n          GetCellData(j, i + firstrow, nil, cd);\r\n\r\n          Cells[j, i + firstrow] := cd;\r\n\r\n          cr := i + firstrow;\r\n          if InVisiblePage(cr) then\r\n          begin\r\n            ce := CellElements[j, cr];\r\n\r\n            GetCellChildren(j, cr, nil, cd, ce);\r\n\r\n            cn := '';\r\n            GetCellClassName(j, cr, nil, cd, cn);\r\n            if cn <> '' then\r\n              ce.setAttribute('class',cn);\r\n          end;\r\n        end;\r\n      end;\r\n  finally\r\n    arow.Free;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TCustomTableControl.LoadFromStrings(AStrings: TStrings; Delimiter: char = ';'; LoadFixed: boolean = false);\r\nbegin\r\n  FDelimiter := Delimiter;\r\n  FLoadFixed := LoadFixed;\r\n\r\n  LoadFromStringList(AStrings);\r\nend;\r\n\r\nprocedure TCustomTableControl.Loaded;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TCustomTableControl.LoadFromCSV(const AURL: string; Delimiter: char = ';'; LoadFixed: boolean = false);\r\nbegin\r\n  FDelimiter := Delimiter;\r\n  FLoadFixed := LoadFixed;\r\n\r\n  FReq := TJSXMLHttpRequest.new;\r\n  FReq.addEventListener('load',@DoHttpLoadCsv);\r\n  FReq.addEventListener('abort',@DoHttpAbort);\r\n  FReq.open('GET', AURL);\r\n  DoHttpRequest(FReq);\r\n  FReq.send;\r\nend;\r\n\r\nfunction TCustomTableControl.LoadFromCSVAsync(const AURL: string; Delimiter: char = ';'; LoadFixed: boolean = false): TJSPromise;\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n\r\n      function DoLoad(Event: TEventListenerEvent): boolean;\r\n      begin\r\n        if DoHttpLoadCsv(Event) then\r\n          ASuccess(TJSXMLHttpRequest(Event.target))\r\n        else\r\n          AFailed(TJSXMLHttpRequest(Event.target));\r\n        Result := true;\r\n      end;\r\n\r\n      function DoError(Event: TEventListenerEvent): boolean;\r\n      begin\r\n        AFailed(TJSXMLHttpRequest(Event.target));\r\n        Result := true;\r\n      end;\r\n\r\n    begin\r\n      FDelimiter := Delimiter;\r\n      FLoadFixed := LoadFixed;\r\n      FReq := TJSXMLHttpRequest.new;\r\n      FReq.addEventListener('load',@DoLoad);\r\n      FReq.addEventListener('abort',@DoError);\r\n      FReq.addEventListener('timeout',@DoError);\r\n      FReq.addEventListener('error',@DoError);\r\n\r\n      FReq.open('GET', AURL);\r\n      DoHttpRequest(FReq);\r\n      FReq.send;\r\n    end);\r\nend;\r\n\r\nprocedure TCustomTableControl.LoadFromJSON(const AURL: string; ADataNode: string = '');\r\nbegin\r\n  FDataNode := ADataNode;\r\n  FReq := TJSXMLHttpRequest.new;\r\n  FReq.addEventListener('load',@DoHttpLoadJson);\r\n  FReq.addEventListener('abort',@DoHttpAbort);\r\n  FReq.open('GET', AURL);\r\n  DoHttpRequest(FReq);\r\n  FReq.send;\r\nend;\r\n\r\nprocedure TCustomTableControl.LoadPageFromJSON(const AURL: string; ADataNode: string = '');\r\nbegin\r\n  FDataNode := ADataNode;\r\n  FReq := TJSXMLHttpRequest.new;\r\n  FReq.addEventListener('load',@DoHttpLoadPageJson);\r\n  FReq.addEventListener('abort',@DoHttpAbort);\r\n  FReq.open('GET', AURL);\r\n  DoHttpRequest(FReq);\r\n  FReq.send;\r\nend;\r\n\r\nfunction TCustomTableControl.LoadFromJSONAsync(const AURL: string; ADataNode: string = ''): TJSPromise;\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n\r\n      function DoLoad(Event: TEventListenerEvent): boolean;\r\n      begin\r\n        if DoHttpLoadJson(Event) then\r\n          ASuccess(TJSXMLHttpRequest(Event.target))\r\n        else\r\n          AFailed(TJSXMLHttpRequest(Event.target));\r\n        Result := true;\r\n      end;\r\n\r\n      function DoError(Event: TEventListenerEvent): boolean;\r\n      begin\r\n        AFailed(TJSXMLHttpRequest(Event.target));\r\n        Result := true;\r\n      end;\r\n\r\n    begin\r\n      FDataNode := ADataNode;\r\n      FReq := TJSXMLHttpRequest.new;\r\n      FReq.addEventListener('load',@DoLoad);\r\n      FReq.addEventListener('abort',@DoError);\r\n      FReq.addEventListener('timeout',@DoError);\r\n      FReq.addEventListener('error',@DoError);\r\n\r\n      FReq.open('GET', AURL);\r\n      DoHttpRequest(FReq);\r\n      FReq.send;\r\n    end);\r\nend;\r\n\r\nfunction TCustomTableControl.LoadPageFromJSONAsync(const AURL: string; ADataNode: string = ''): TJSPromise;\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n\r\n      function DoLoad(Event: TEventListenerEvent): boolean;\r\n      begin\r\n        if DoHttpLoadPageJson(Event) then\r\n          ASuccess(TJSXMLHttpRequest(Event.target))\r\n        else\r\n          AFailed(TJSXMLHttpRequest(Event.target));\r\n        Result := true;\r\n      end;\r\n\r\n      function DoError(Event: TEventListenerEvent): boolean;\r\n      begin\r\n        AFailed(TJSXMLHttpRequest(Event.target));\r\n        Result := true;\r\n      end;\r\n\r\n    begin\r\n      FDataNode := ADataNode;\r\n      FReq := TJSXMLHttpRequest.new;\r\n      FReq.addEventListener('load',@DoLoad);\r\n      FReq.addEventListener('abort',@DoError);\r\n      FReq.addEventListener('timeout',@DoError);\r\n      FReq.addEventListener('error',@DoError);\r\n\r\n      FReq.open('GET', AURL);\r\n      DoHttpRequest(FReq);\r\n      FReq.send;\r\n    end);\r\nend;\r\n\r\n\r\n{$HINTS OFF}\r\n\r\nprocedure TCustomTableControl.LoadFromJSON(AJSON: TJSObject; ADataNode: string = '');\r\nvar\r\n  JO: JSValue;\r\n  JA: TJSArray;\r\n  r,c,cr,firstrow: integer;\r\n  arow: string;\r\n  sl: TStringList;\r\n  cd,cn: string;\r\n  ce: TJSHTMLElement;\r\n  p: boolean;\r\nbegin\r\n  if ADataNode <> '' then\r\n    JA := TJSArray(AJSON.Properties[ADataNode])\r\n  else\r\n    JA := TJSArray(AJSON);\r\n\r\n  if Assigned(JA) then\r\n  begin\r\n    p := Paging.Enabled;\r\n    Paging.Enabled := false;\r\n\r\n    sl := TStringList.Create;\r\n\r\n    firstrow := 0;\r\n\r\n    if RowHeader then\r\n      firstrow := 1;\r\n\r\n    RowCount := JA.length + firstrow;\r\n\r\n    for r := 0 to JA.length - 1 do\r\n    begin\r\n      JO := JA.Elements[r];\r\n      c := 0;\r\n      arow := '';\r\n\r\n      asm\r\n        var x = undefined;\r\n        for (x in JO) {\r\n          arow += \"|\" + JO[x];\r\n          c++;\r\n        }\r\n      end;\r\n\r\n      Delete(arow, 1, 1);\r\n      sl.StrictDelimiter := true;\r\n      sl.Delimiter := '|';\r\n      sl.DelimitedText := arow;\r\n      if ColCount < sl.Count  then\r\n        ColCount := sl.Count;\r\n\r\n      for c := 0 to sl.Count - 1 do\r\n      begin\r\n        cd := sl.Strings[c];\r\n        GetCellData(c, r + firstrow, nil, cd);\r\n\r\n        Cells[c, r + firstrow] := cd;\r\n\r\n        cr := r;\r\n\r\n        if InVisiblePage(cr) then\r\n        begin\r\n          cr := cr + firstrow;\r\n          ce := CellElements[c, cr];\r\n\r\n          GetCellChildren(c, cr, nil, cd, ce);\r\n\r\n          cn := '';\r\n          GetCellClassName(c, cr, nil, cd, cn);\r\n          if cn <> '' then\r\n            ce.setAttribute('class',cn);\r\n        end;\r\n      end;\r\n\r\n      Paging.Enabled := p;\r\n    end;\r\n\r\n    sl.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.LoadPageFromJSON(AJSON: TJSObject; ADataNode: string = '');\r\nvar\r\n  JO: JSValue;\r\n  JA: TJSArray;\r\n  r,c,cr,firstrow: integer;\r\n  arow: string;\r\n  sl: TStringList;\r\n  cd,cn: string;\r\n  ce: TJSHTMLElement;\r\n  p: boolean;\r\nbegin\r\n  if ADataNode <> '' then\r\n    JA := TJSArray(AJSON.Properties[ADataNode])\r\n  else\r\n    JA := TJSArray(AJSON);\r\n\r\n  if Assigned(JA) then\r\n  begin\r\n    sl := TStringList.Create;\r\n\r\n    firstrow := Paging.Index * Paging.Size;\r\n\r\n    if RowHeader then\r\n      firstrow := firstrow + 1;\r\n\r\n    for r := 0 to JA.length - 1 do\r\n    begin\r\n      JO := JA.Elements[r];\r\n      c := 0;\r\n      arow := '';\r\n\r\n      asm\r\n        var x = undefined;\r\n        for (x in JO) {\r\n          arow += \"|\" + JO[x];\r\n          c++;\r\n        }\r\n      end;\r\n\r\n      Delete(arow, 1, 1);\r\n      sl.StrictDelimiter := true;\r\n      sl.Delimiter := '|';\r\n      sl.DelimitedText := arow;\r\n      if ColCount < sl.Count  then\r\n        ColCount := sl.Count;\r\n\r\n      for c := 0 to sl.Count - 1 do\r\n      begin\r\n        cd := sl.Strings[c];\r\n        GetCellData(c, r + firstrow, nil, cd);\r\n\r\n        Cells[c, r + firstrow] := cd;\r\n\r\n        cr := r;\r\n\r\n        if InVisiblePage(cr) then\r\n        begin\r\n          cr := cr + firstrow;\r\n          ce := CellElements[c, cr];\r\n\r\n          GetCellChildren(c, cr, nil, cd, ce);\r\n\r\n          cn := '';\r\n          GetCellClassName(c, cr, nil, cd, cn);\r\n          if cn <> '' then\r\n            ce.setAttribute('class',cn);\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    sl.Free;\r\n  end;\r\nend;\r\n\r\n\r\nfunction TCustomTableControl.HasButton(ACol, ARow: integer): boolean;\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  Result := false;\r\n\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := GetButtonElement(ACol,ARow);\r\n    if Assigned(el) then\r\n    begin\r\n      Result := true;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.RemoveButton(ACol, ARow: integer);\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := GetButtonElement(ACol,ARow);\r\n    if Assigned(el) then\r\n    begin\r\n      el.removeEventListener('click',FHandleCheckClickPtr);\r\n      asm\r\n        el.remove();\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.RemoveCheckBox(ACol, ARow: integer);\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := GetCheckElement(ACol,ARow);\r\n    if Assigned(el) then\r\n    begin\r\n      el.removeEventListener('click',FHandleCheckClickPtr);\r\n      asm\r\n        el.remove();\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.RemoveFilter;\r\nvar\r\n  r,rs,l: integer;\r\n  tr: TJSHTMLElement;\r\nbegin\r\n  if Assigned(FTable) then\r\n  begin\r\n    if ColHeader then\r\n      rs := 1\r\n    else\r\n      rs := 0;\r\n\r\n    if Paging.Enabled then\r\n    begin\r\n      if Assigned(FUnfiltered) then\r\n      begin\r\n        asm\r\n          this.FData = Array.from(this.FUnfiltered);\r\n        end;\r\n        FUnfiltered := nil;\r\n      end;\r\n      asm\r\n        l = this.FData.length;\r\n      end;\r\n\r\n      RowCount := l;\r\n      SelectPage(Paging.ActivePage, true);\r\n    end\r\n    else\r\n    begin\r\n      for r := rs to RowCount - 1 do\r\n      begin\r\n        asm\r\n          tr = this.FTable.rows[r];\r\n        end;\r\n        tr.style.removeProperty('display');\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.RemoveProgress(const ACol, ARow: integer);\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := GetProgressElement(ACol,ARow);\r\n    asm\r\n      el.remove();\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.RemoveRow(Index: integer);\r\nbegin\r\n  if (Index <0) or (Index >= RowCount) then\r\n    Exit;\r\n\r\n  asm\r\n    var tr = this.FTable.deleteRow(Index);\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TCustomTableControl.RemoveSortIndicator(const ACol, ARow: integer);\r\nvar\r\n  el: TJSElement;\r\n  sid: string;\r\n\r\nbegin\r\n  sid := Name + 'si'+ACol.ToString+'_'+ARow.ToString;\r\n\r\n  el := document.getElementById(sid);\r\n\r\n  if Assigned(el) then\r\n    el.parentElement.removeChild(el);\r\nend;\r\n\r\nprocedure TCustomTableControl.RenderGrid;\r\nvar\r\n  i: integer;\r\n  table,tbody,th: TJSHTMLElement;\r\n  frows, fcols, fhc,rc: integer;\r\n  rh,ch: boolean;\r\n  headclass,cc,headcaption: string;\r\n  ridx: integer;\r\n\r\nbegin\r\n  if not Assigned(FTable) then\r\n  begin\r\n    FTable := document.createElement('TABLE');\r\n    ElementHandle.appendChild(FTable);\r\n\r\n    SetHTMLElementFont(TJSHTMLElement(FTable), Font, not ((ElementClassName = '') and (ElementFont = efProperty)) );\r\n\r\n    table := TJSHTMLElement(FTable);\r\n    table.setAttribute('id', Name + 'Table');\r\n    table.style.setProperty('vertical-align','middle');\r\n\r\n    frows := RenderRowCount;\r\n\r\n    fcols := ColCount;\r\n    rh := RowHeader;\r\n    ch := ColHeader;\r\n    rc := RowCount;\r\n\r\n    cc := '';\r\n    ridx := 0;\r\n    fhc := 0;\r\n\r\n    if (ElementTableClassName = '') then\r\n    begin\r\n      table.style.setProperty('border-collapse','collapse');\r\n      table.setAttribute('border','0');\r\n      table.setAttribute('cellpadding','0');\r\n      table.setAttribute('cellspacing','0');\r\n      table.setAttribute('width','100%');\r\n      table.setAttribute('table-layout','fixed');\r\n      table.setAttribute('height','100%');\r\n    end\r\n    else\r\n    begin\r\n      table.setAttribute('class',ElementTableClassName);\r\n    end;\r\n\r\n    headclass := ElementHeaderClassName;\r\n\r\n    asm\r\n      while (table.firstChild) {\r\n        table.removeChild(table.firstChild);\r\n      }\r\n    end;\r\n\r\n    Header.FElement := nil;\r\n\r\n    if Header.Visible then\r\n    begin\r\n      inc(ridx);\r\n      headcaption := Header.Caption;\r\n\r\n      asm\r\n        var theader = table.createTHead();\r\n\r\n        if (headclass != \"\")\r\n        {\r\n          theader.setAttribute(\"class\", headclass);\r\n        }\r\n\r\n        var tr = theader.insertRow(0);\r\n        th = document.createElement('th');\r\n        tr.appendChild(th);\r\n        th.setAttribute('colspan',fcols);\r\n        th.setAttribute('vertical-align','middle');\r\n        if (headcaption != '') {\r\n          th.innerHTML = '<div style=\"float:left;margin-right:10px;vertical-align:middle\">'+headcaption+'</div>'; }\r\n      end;\r\n      Header.FElement := th;\r\n    end;\r\n\r\n\r\n    asm\r\n      var i = 0;\r\n      var j = 0;\r\n\r\n      if (rh)\r\n      {\r\n        fhc++;\r\n\r\n        var theader = table.createTHead();\r\n\r\n        if (headclass != \"\")\r\n        {\r\n          theader.setAttribute(\"class\", headclass);\r\n        }\r\n\r\n        var tr = theader.insertRow(ridx);\r\n\r\n        for(i=0; i < fcols; i++)\r\n        {\r\n          if (rc > 0) {\r\n          cc = this.FData[0][i];\r\n          if (cc == undefined) { cc = \"\";}\r\n          }\r\n          else\r\n          {\r\n            cc = \"\";\r\n          }\r\n          var th = document.createElement('th');\r\n          th.setAttribute('scope','col');\r\n          this.SetTableCell(i,0, th, cc);\r\n          tr.appendChild(th);\r\n        }\r\n      }\r\n\r\n      tbody = table.appendChild(document.createElement('tbody'));\r\n\r\n      for(i=0; i < frows; i++)\r\n      {\r\n        if (i + fhc >= this.FData.length) { break; }\r\n\r\n        var tr = tbody.insertRow(tbody.length);\r\n\r\n        for(j=0; j < fcols; j++)\r\n        {\r\n          cc = this.FData[i+fhc][j];\r\n          if (cc == undefined) { cc = \"\";}\r\n\r\n          if ((j == 0) && (ch))\r\n          {\r\n            var th = document.createElement('th');\r\n            th.setAttribute('scope','row');\r\n            tr.appendChild(th);\r\n            this.SetTableCell(j,i + fhc,th, cc);\r\n          }\r\n          else\r\n          {\r\n            tr.insertCell();\r\n            var td = tr.cells[j];\r\n            this.SetTableCell(j,i + fhc,td, cc);\r\n          }\r\n        }\r\n      }\r\n    end;\r\n\r\n    FBody := tbody;\r\n\r\n    Footer.FElement := nil;\r\n\r\n    if Footer.Visible then\r\n    begin\r\n      inc(ridx);\r\n      headcaption := Footer.Caption;\r\n      asm\r\n        var theader = table.createTFoot();\r\n\r\n        if (headclass != \"\")\r\n        {\r\n          theader.setAttribute(\"class\", headclass);\r\n        }\r\n\r\n        var tr = theader.insertRow(0);\r\n        th = document.createElement('th');\r\n        tr.appendChild(th);\r\n        th.setAttribute('colspan',fcols);\r\n//        th['colspan'] = fcols;\r\n        th.innerHTML = headcaption;\r\n      end;\r\n      Footer.FElement := th;\r\n    end;\r\n\r\n    if DragMode = dmAutomatic then\r\n      EnableDrag;\r\n  end;\r\n\r\n  if not Options.ResizeColumns then\r\n  begin\r\n    // update column widths\r\n//    for i := 0 to ColCount - 1 do\r\n//      ColWidths[i] := ColWidths[i];\r\n  end;\r\n\r\n  EnableColResize;\r\n\r\n  if FHiddenCols.Count > 0 then\r\n  begin\r\n    for i := 0 to ColCount - 1 do\r\n    begin\r\n      if IsHiddenColumn(i) then\r\n        HideColumn(i);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.RenderGridData;\r\nvar\r\n  i,j: integer;\r\nbegin\r\n  for i := 0 to ColCount - 1 do\r\n    for j := 0 to RowCount - 1 do\r\n      Cells[i,j] := Cells[i,j];\r\nend;\r\n\r\nprocedure TCustomTableControl.RenderHeaderFooter;\r\nbegin\r\n  if Header.Visible then\r\n    Header.Update(Paging.Size, RowCount, Paging.Index);\r\n\r\n  if Footer.Visible then\r\n    Footer.Update(Paging.Size, RowCount, Paging.Index);\r\nend;\r\n\r\nprocedure TCustomTableControl.RenderGridScript;\r\nbegin\r\n  AddControlScriptSource(\r\n  'var pageX,curCol,nxtCol,curColWidth,nxtColWidth,autoWidth,curTable,curTableWidth;'+\r\n  'autoWidth = false;'+\r\n\r\n  'function resizeColumn(e) {'+\r\n  '   if (curCol) {'+\r\n  '    var diffX = e.pageX - pageX;'+\r\n  '\t\tif ((nxtCol) && (!autoWidth)){'+\r\n  '\t\t nxtCol.style.width = (nxtColWidth - diffX)+\"px\";'+\r\n  '   } else {'+\r\n//  '    curTable.style.width = (curTableWidth + diffX) + \"px\";'+\r\n  '   }'+\r\n  '   newColWidth = (curColWidth + diffX);'+\r\n  '   if (newColWidth < 10)'+\r\n  '    newColWidth = 10;'+\r\n  '\t  curCol.style.width = newColWidth + \"px\";'+\r\n  '   }'+\r\n  ' }'+\r\n\r\n  'function resetResize() {'+\r\n  '   curCol = undefined;'+\r\n  '   nxtCol = undefined;'+\r\n  '   pageX = undefined;'+\r\n  '   nxtColWidth = undefined;'+\r\n  '   curColWidth = undefined;'+\r\n  '   curTable = undefined;'+\r\n  '   curTableWidth = undefined;'+\r\n  ' }'+\r\n\r\n  'function resizableGrid(tablename, enabled,ridx) {'+\r\n  ' var table = document.getElementById(tablename + \"Table\");'+\r\n  ' if (!table) return;' +\r\n  ' var row = table.getElementsByTagName(\"tr\")[ridx],'+\r\n  ' cols = row ? row.children : undefined;'+\r\n  ' if (!cols) return;'+\r\n\r\n  ' for (var i=0;i<cols.length;i++){'+\r\n  '  var coldiv = document.getElementById(tablename + \"Div\" + i);'+\r\n\r\n  '  if (coldiv)'+\r\n  '    coldiv.remove();'+\r\n\r\n  '  if (enabled) {'+\r\n  '    var div = createDiv();'+\r\n  '    cols[i].appendChild(div);'+\r\n  '    cols[i].style.position = \"relative\";'+\r\n  '    div.id = tablename + \"Div\" + i;'+\r\n  '    setListeners(div);'+\r\n  '  }'+\r\n  ' }'+\r\n\r\n  ' function setListeners(div){'+\r\n\r\n  '  div.addEventListener(\"mousedown\", function (e) {'+\r\n  '   curCol = e.target.parentElement;'+\r\n  '   nxtCol = curCol.nextElementSibling;'+\r\n  '   pageX = e.pageX;'+\r\n\r\n  '   curColWidth = curCol.offsetWidth;'+\r\n  '   curTable = curCol.parentElement.parentElement.parentElement;'+\r\n  '   curTableWidth = curTable.offsetWidth;'+\r\n  '   if (nxtCol)'+\r\n  '    nxtColWidth = nxtCol.offsetWidth;'+\r\n  '  });'+\r\n\r\n  '  div.addEventListener(\"mouseover\", function (e) {'+\r\n  '   e.target.style.borderRight = \"2px solid #0000ff\";'+\r\n  '  });'+\r\n\r\n  '  div.addEventListener(\"mouseout\", function (e) {'+\r\n  '   e.target.style.borderRight = \"\";'+\r\n  '  });'+\r\n\r\n  '  document.addEventListener(\"mousemove\", function (e) {'+\r\n  '   resizeColumn(e);'+\r\n  '  });'+\r\n\r\n  '  document.addEventListener(\"mouseup\", function (e) {'+\r\n  '   resetResize(e);'+\r\n  '  });'+\r\n  ' }'+\r\n\r\n  ' function createDiv(){'+\r\n  '  var div = document.createElement(\"div\");'+\r\n  '  div.style.top = 0;'+\r\n  '  div.style.right = 0;'+\r\n  '  div.style.width = \"10px\";'+\r\n  '  div.style.position = \"absolute\";'+\r\n  '  div.style.cursor = \"col-resize\";'+\r\n  '  div.style.userSelect = \"none\";'+\r\n  '  div.style.height = \"100%\";'+\r\n  '  div.innerHTML = \"&nbsp;\";'+\r\n//  '  div.style.border = \"1px solid red\";'+\r\n  '  return div;'+\r\n  ' }'+\r\n\r\n  '};');\r\nend;\r\n\r\nfunction TCustomTableControl.RenderRowCount: integer;\r\nbegin\r\n  if Paging.Enabled and (Paging.Size > 0) then\r\n    Result := Paging.Size\r\n  else\r\n  begin\r\n    if RowHeader then\r\n      Result := RowCount - 1\r\n    else\r\n      Result := RowCount;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.ReRenderGrid;\r\nbegin\r\n  if not Assigned(ElementHandle) or IsUpdating then\r\n    Exit;\r\n\r\n  if Assigned(FTable) then\r\n    FTable.parentElement.removeChild(FTable);\r\n\r\n  FTable := nil;\r\n  RenderGrid;\r\n  RenderHeaderFooter;\r\nend;\r\n\r\nprocedure TCustomTableControl.RowCountChanged(delta: integer);\r\nvar\r\n  r: integer;\r\n  tbody: TJSElement;\r\nbegin\r\n  if not Assigned(FTable) then\r\n    Exit;\r\n\r\n  tbody := FBody;\r\n\r\n  if (delta > 0) then\r\n  begin\r\n\r\n    asm\r\n      var i = 0;\r\n      var j = 0;\r\n      var tr = undefined;\r\n      var l = tbody.rows.length;\r\n\r\n      for(i = 0;i < delta; i++)\r\n      {\r\n         tr = tbody.insertRow(l);\r\n         for(j = 0; j < this.FColCount; j++)\r\n         {\r\n\r\n          if ((j == 0) && (this.FColHeader))\r\n          {\r\n            var th = document.createElement('th');\r\n            th.setAttribute('scope','row');\r\n            tr.appendChild(th);\r\n          }\r\n          else\r\n          {\r\n            tr.insertCell();\r\n          }\r\n         }\r\n      }\r\n    end;\r\n\r\n    if DragMode = dmAutomatic then\r\n      EnableDrag;\r\n  end;\r\n\r\n  if delta < 0 then\r\n  begin\r\n    asm\r\n      var i = 0;\r\n      var l = this.FBody.rows.length;\r\n      if (l < -delta) return;\r\n      for(i = 0;i < -delta; i++) {\r\n        this.FBody.deleteRow(l - i - 1);\r\n      }\r\n    end;\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nfunction TCustomTableControl.RowOffset: integer;\r\nbegin\r\n  if RowHeader then\r\n    Result := 1\r\n  else\r\n    Result := 0;\r\nend;\r\n\r\nprocedure TCustomTableControl.SaveToCSV(const AFileName: string;\r\n  Delimiter: char; SaveFixed: boolean);\r\nvar\r\n  sl: TStringList;\r\nbegin\r\n  sl := TStringList.Create;\r\n  try\r\n    SaveToStrings(sl, Delimiter, SaveFixed);\r\n    sl.SaveToFile(AFileName);\r\n  finally\r\n    sl.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.SaveToStrings(AStrings: TStrings; Delimiter: char;\r\n  SaveFixed: boolean);\r\nvar\r\n  r,c: integer;\r\n  fr,fc: integer;\r\n  s,rowstr: string;\r\nbegin\r\n  fr := 0;\r\n  fc := 0;\r\n\r\n  if not SaveFixed and ColHeader then\r\n    fc := 1;\r\n\r\n  if not SaveFixed and RowHeader then\r\n    fr := 1;\r\n\r\n  for r := fr to RowCount - 1 do\r\n  begin\r\n    rowstr := '';\r\n    for c := fc to ColCount - 1 do\r\n    begin\r\n      s := Cells[c,r];\r\n      s := stringreplace(s,'\"','\"\"',[rfReplaceAll]);\r\n\r\n      if (pos(Delimiter,s) > 0) or (pos(#13, s) > 0) then\r\n      begin\r\n        s := '\"' +  s +  '\"';\r\n      end;\r\n\r\n      if s = '' then\r\n        s := '\"\"';\r\n\r\n      if rowstr = '' then\r\n        rowstr := s\r\n      else\r\n        rowstr := rowstr + Delimiter + s;\r\n    end;\r\n    AStrings.Add(rowstr);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.ScrollRowInView(ARow: integer);\r\nbegin\r\n  if (ARow < RowCount) and Assigned(FTable) then\r\n  begin\r\n    asm\r\n     this.FTable.rows[ARow].scrollIntoView({\r\n       behavior: 'smooth',\r\n       block: 'center'\r\n       });\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.SelectCell(ACol, ARow: integer);\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  if (ARow < RowCount) and (ACol < ColCount) then\r\n  begin\r\n    el := CellElements[ACol,ARow];\r\n    if Assigned(el) then\r\n      SelectElementContents(el);\r\n  end;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TCustomTableControl.SelectPage(AIndex: integer; DoDefault: boolean = true);\r\nvar\r\n  i,j,delta,offset,hdr: integer;\r\n  tr,td: TJSHTMLElement;\r\n  s: string;\r\n\r\nbegin\r\n  if Paging.Enabled then\r\n  begin\r\n    Paging.FActivePage := AIndex;\r\n    td := nil;\r\n    RenderHeaderFooter;\r\n\r\n    if DoDefault then\r\n    begin\r\n      if RowHeader then\r\n        delta := 1\r\n      else\r\n        delta := 0;\r\n\r\n      if Header.Visible then\r\n        hdr := 1\r\n      else\r\n        hdr := 0;\r\n\r\n      offset := AIndex * Paging.Size;\r\n\r\n      for i := 0 to Paging.Size - 1 do\r\n      begin\r\n        asm\r\n          tr = this.FTable.rows[i + delta + hdr];\r\n        end;\r\n        if Assigned(tr) then\r\n        begin\r\n          if (offset + i + delta >= RowCount) then\r\n          begin\r\n            asm\r\n              tr.style.setProperty('display','none');\r\n            end;\r\n            continue;\r\n          end;\r\n\r\n          s := '';\r\n\r\n          for j := 0 to ColCount - 1 do\r\n          begin\r\n            asm\r\n              s = this.FData[offset + i + delta][j];\r\n              if (s != undefined) {\r\n                td = tr.cells[j];\r\n                this.SetTableCell(j,i+delta,td,s);\r\n              }\r\n              tr.style.removeProperty('display');\r\n            end;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TCustomTableControl.SelectSortIndicator(const ACol, ARow: integer;\r\n  ASelect: boolean);\r\nvar\r\n  el: TJSElement;\r\n  sid: string;\r\n\r\nbegin\r\n  sid := Name + 'si'+ACol.ToString+'_'+ARow.ToString;\r\n\r\n  el := document.getElementById(sid);\r\n\r\n  if Assigned(el) then\r\n  begin\r\n    if ElementSelectionClassName = '' then\r\n    begin\r\n      if ASelect then\r\n        TJSHTMLElement(el).style.setProperty('color',ColorToHTML($FF8F5B))\r\n      else\r\n        TJSHTMLElement(el).style.removeProperty('color');\r\n    end\r\n    else\r\n    begin\r\n      if ASelect then\r\n        TJSHTMLElement(el).classlist.Add(ElementSelectionClassName)\r\n      else\r\n        TJSHTMLElement(el).classlist.Remove(ElementSelectionClassName);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.SetCells(col, row: integer; const Value: string);\r\nvar\r\n  trc: integer;\r\n  td: TJSHTMLElement;\r\nbegin\r\n  if not Assigned(FTable) then\r\n    Exit;\r\n\r\n  trc := RowCount;\r\n  if RowHeader then\r\n    inc(trc);\r\n\r\n  if (col >= 0) and (row >= 0) and (col < ColCount) and (row <= trc) then\r\n  begin\r\n    if (row = 0) then\r\n      EnableColResize;\r\n\r\n    asm\r\n      if (row < this.FData.length) {\r\n        this.FData[row][col] = Value;\r\n      }\r\n    end;\r\n\r\n    if RowHeader then\r\n      row := row - 1;\r\n\r\n    if InVisiblePage(row) or ((row = -1) and RowHeader) then\r\n    begin\r\n      if Header.Visible then\r\n        inc(row);\r\n      if RowHeader then\r\n        row := row + 1;\r\n\r\n      asm\r\n        td = this.FTable.rows[row].cells[col];\r\n      end;\r\n\r\n      SetTableCell(col,row,td, Value);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.SetWordWrap(const AValue: boolean);\r\nbegin\r\n  if FWordWrap <> AValue then\r\n  begin\r\n    FWordWrap := AValue;\r\n    if Assigned(FTable) then\r\n    begin\r\n      if not (csloading in ComponentState) then\r\n        ReRenderGrid;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.SetColCount(const Value: integer);\r\nbegin\r\n  inherited;\r\n\r\n  asm\r\n    var i;\r\n    for(i=0; i < this.FData.length; i++)\r\n    {\r\n      if (this.FData[i] == null) this.FData[i] = [];\r\n\r\n      this.FData[i].length = Value;\r\n    }\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.SetColHeader(const Value: boolean);\r\nbegin\r\n  if FColHeader <> Value then\r\n  begin\r\n    FColHeader := Value;\r\n    if Assigned(FTable) then\r\n    begin\r\n      if not (csloading in ComponentState) then\r\n        ReRenderGrid;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.SetDataColumnCount(AValue: Integer);\r\nbegin\r\n  if RowHeader then\r\n    ColCount := AValue + 1\r\n  else\r\n    ColCount := AValue;\r\nend;\r\n\r\nprocedure TCustomTableControl.SetDataHeader(AColumn: Integer; AValue: string);\r\nvar\r\n  d: integer;\r\nbegin\r\n  if not ColHeader then\r\n    Exit;\r\n\r\n  d := 0;\r\n  if RowHeader then\r\n    d := 1;\r\n\r\n  Cells[AColumn + d, 0] := AValue;\r\nend;\r\n\r\nprocedure TCustomTableControl.SetDataRowCount(AValue: Integer);\r\nbegin\r\n  if ColHeader then\r\n    RowCount := AValue + 1\r\n  else\r\n    RowCount := AValue;\r\nend;\r\n\r\nprocedure TCustomTableControl.SetDataValue(AColumn, ARow: Integer;\r\n  AValue: string);\r\nvar\r\n  dc,dr: integer;\r\nbegin\r\n  dc := 0;\r\n  dr := 0;\r\n\r\n  if RowHeader then\r\n    dc := 1;\r\n  if ColHeader then\r\n    dr := 1;\r\n\r\n  Cells[AColumn + dc, ARow + dr] := AValue;\r\nend;\r\n\r\nprocedure TCustomTableControl.SetElementHeaderClassName(\r\n  const Value: TElementClassName);\r\nvar\r\n  head: TJSHTMLElement;\r\nbegin\r\n  if (FElementHeaderClassName <> Value) then\r\n  begin\r\n    FElementHeaderClassName := Value;\r\n    if Assigned(FTable) then\r\n    begin\r\n      head := TJSHTMLElement(FTable.firstChild);\r\n      if Assigned(head) and (head.tagName = 'THEAD') then\r\n        head.setAttribute('class',ElementHeaderClassName);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.SetElementTableClassName(\r\n  const Value: TElementClassName);\r\nbegin\r\n  if (FElementTableClassName <> Value) then\r\n  begin\r\n    FElementTableClassName := Value;\r\n    if Assigned(FTable) then\r\n      FTable.setAttribute('class',ElementTableClassName);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.SetFilter(Column: integer; Condition: string; CaseSensitive: boolean = true);\r\nvar\r\n  r,rs,hdr,l: integer;\r\n  tr: TJSHTMLElement;\r\n  s: string;\r\nbegin\r\n  if Assigned(FTable) then\r\n  begin\r\n    if Condition = '' then\r\n    begin\r\n      RemoveFilter;\r\n      Exit;\r\n    end;\r\n\r\n    hdr := 0;\r\n    rs := 0;\r\n\r\n    if RowHeader then\r\n      rs := 1;\r\n\r\n    if Header.Visible then\r\n      hdr := 1;\r\n\r\n    if Paging.Enabled then\r\n    begin\r\n      if not Assigned(FUnfiltered) then\r\n      begin\r\n        asm\r\n          this.FUnfiltered  = Array.from(this.FData);\r\n        end;\r\n      end;\r\n\r\n      for r := RowCount - 1 downto rs do\r\n      begin\r\n        asm\r\n          s = this.FData[r][Column];\r\n        end;\r\n\r\n        if not MatchStr(Condition, s, CaseSensitive) and (hdr < 2) then\r\n        begin\r\n          asm\r\n            this.FData.splice(r,1);\r\n          end;\r\n        end;\r\n      end;\r\n\r\n      asm\r\n        l = this.FData.length;\r\n      end;\r\n\r\n      RowCount := l;\r\n\r\n      SelectPage(Paging.ActivePage, true);\r\n    end\r\n    else\r\n    begin\r\n\r\n      for r := rs to RowCount - 1 do\r\n      begin\r\n        if not MatchStr(Condition, Cells[Column, r], CaseSensitive) and (hdr < 2) then\r\n        begin\r\n          asm\r\n            tr = this.FTable.rows[r + hdr];\r\n          end;\r\n          tr.style.setProperty('display','none');\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.SetFooter(const Value: TTableControlHeader);\r\nbegin\r\n  FFooter.Assign(Value);\r\nend;\r\n\r\nprocedure TCustomTableControl.SetHeader(const Value: TTableControlHeader);\r\nbegin\r\n  FHeader.Assign(Value);\r\nend;\r\n\r\nprocedure TCustomTableControl.SetOptions(const Value: TTableControlOptions);\r\nbegin\r\n  FOptions.Assign(Value);\r\nend;\r\n\r\nprocedure TCustomTableControl.SetPaging(const Value: TTableControlPaging);\r\nbegin\r\n  FPaging.Assign(Value);\r\nend;\r\n\r\nprocedure TCustomTableControl.SetProgress(ACol, ARow, APosition: integer);\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  if (ACol < ColCount) and (ARow < RowCount) then\r\n  begin\r\n    el := GetProgressElement(ACol,ARow);\r\n    if Assigned(el) then\r\n    begin\r\n      el['value'] := APosition.ToString;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.SetRowClassName(row: integer; const Value: TElementClassName);\r\nbegin\r\n  if (row >= 0) and (row < RowCount) then\r\n  begin\r\n    asm\r\n      var tr = this.FTable.rows[row];\r\n      tr.setAttribute('class',Value);\r\n    end;\r\n  end;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TCustomTableControl.SetRowCount(const Value: integer);\r\nvar\r\n  delta: integer;\r\n  trc,trh,i: integer;\r\n\r\nbegin\r\n  if (FRowCount <> Value) and (Value >= 0) then\r\n  begin\r\n    trc := Value;\r\n//    if RowHeader then\r\n//      inc(trc);\r\n//    if Header.Visible then\r\n//      inc(trc);\r\n    asm\r\n      this.FData.length = trc;\r\n      var i;\r\n\r\n      for(i = 0; i < this.FData.length; i++) {\r\n        if (this.FData[i] == null) {\r\n          this.FData[i] = [];\r\n          this.FData[i].length = this.FColCount;\r\n        }\r\n      }\r\n    end;\r\n//    if Paging.Enabled then\r\n//    begin\r\n//      trc := 0;\r\n//      if RowHeader then\r\n//        inc(trc);\r\n//\r\n//      delta := Min(Paging.Size + trc, Value) - FRowCount\r\n//    end\r\n//    else\r\n      delta := Value - FRowCount;\r\n\r\n    if (FRowcount = 0) and RowHeader then\r\n      delta := Value - 1;\r\n\r\n    FRowCount := Value;\r\n    RowCountChanged(delta);\r\n    GridChanged;\r\n\r\n    if Paging.Enabled then\r\n    begin\r\n      trc := 0;\r\n      trh := 0;\r\n      if RowHeader then\r\n        inc(trc);\r\n      if Header.Visible then\r\n        inc(trh);\r\n\r\n      for i := Paging.Size + trc + trh to RowCount - 1 + trh do\r\n      begin\r\n        HideRow(i);\r\n      end;\r\n    end;\r\n\r\n    if (Header.Pager <> tpNone) then\r\n      Header.Update(Paging.Size, RowCount, Paging.Index);\r\n\r\n    if (Footer.Pager <> tpNone) then\r\n      Footer.Update(Paging.Size, RowCount, Paging.Index);\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TCustomTableControl.SetRowHeader(const Value: boolean);\r\nbegin\r\n  if (FRowHeader <> Value) then\r\n  begin\r\n    FRowHeader := Value;\r\n    if Assigned(FTable) then\r\n    begin\r\n      if not (csloading in ComponentState) then\r\n        ReRenderGrid;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.SetRowIndex(const Value: integer);\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  if FRowIndex <> -1 then\r\n  begin\r\n    el := CellElements[0,FRowIndex];\r\n    if Assigned(el) then\r\n    begin\r\n      if ElementRowSelectClassName = '' then\r\n      begin\r\n        TJSHTMLElement(el.parentElement).style.removeProperty('color');\r\n        TJSHTMLElement(el.parentElement).style.removeProperty('background-color');\r\n      end\r\n      else\r\n        el.parentElement.className := '';\r\n    end;\r\n  end;\r\n\r\n  FRowIndex := Value;\r\n\r\n  if (FRowIndex <> -1) then\r\n  begin\r\n    el := CellElements[0,FRowIndex];\r\n\r\n    if Assigned(el) then\r\n    begin\r\n      if ElementRowSelectClassName = '' then\r\n      begin\r\n        if (SelectionTextColor <> clNone) then\r\n          TJSHTMLElement(el.parentElement).style.setProperty('color', ColorToHTML(SelectionTextColor));\r\n        if (SelectionColor <> clNone) then\r\n          TJSHTMLElement(el.parentElement).style.setProperty('background-color',ColorToHTML(SelectionColor));\r\n      end\r\n      else\r\n        TJSHTMLElement(el.parentElement).classList.add(ElementRowSelectClassName);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.SetSelectionColor(const Value: TColor);\r\nbegin\r\n  if (FSelectionColor <> Value) then\r\n  begin\r\n    FSelectionColor := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.SetSelectionTextColor(const Value: TColor);\r\nbegin\r\n  if (FSelectionTextColor <> Value) then\r\n  begin\r\n    FSelectionTextColor := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.SetSortIndex(const Value: integer);\r\nbegin\r\n  FSortIndex := Value;\r\nend;\r\n\r\nprocedure TCustomTableControl.SetSortIndicator(const ACol, ARow: integer;\r\n  AIndicator: TGridSortIndicator);\r\nvar\r\n  el: TJSElement;\r\n  sid: string;\r\n\r\nbegin\r\n  sid := Name + 'si'+ACol.ToString+'_'+ARow.ToString;\r\n\r\n  el := document.getElementById(sid);\r\n\r\n  if Assigned(el) then\r\n  begin\r\n    if AIndicator = siAscending then\r\n    begin\r\n      TJSHTMLElement(el).innerHTML := GlyphAscending;\r\n      el['sort'] := 'up';\r\n    end\r\n    else\r\n    begin\r\n      TJSHTMLElement(el).innerHTML := GlyphDescending;\r\n      el['sort'] := 'dn';\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.SetColWidth(const ACol: integer; AWidth: integer);\r\nvar\r\n  td,el: TJSHTMLElement;\r\n  i: integer;\r\nbegin\r\n  if (ACol < ColCount) and (ACol >= 0) then\r\n  begin\r\n    if AWidth > 0 then\r\n    begin\r\n      for i := 0 to RenderRowCount do\r\n      begin\r\n        td := nil;\r\n        td := CellElements[ACol,i];\r\n        if Assigned(td) then\r\n        begin\r\n          td.style.setProperty('width', AWidth.ToString+'px');\r\n          td.style.setProperty('max-width', AWidth.ToString+'px');\r\n          el := TJSHTMLElement(td.firstChild);\r\n          if Assigned(el) and (el.tagName = 'DIV') then\r\n          begin\r\n            el.style.setProperty('width', AWidth.ToString+'px');\r\n            el.style.setProperty('max-width', AWidth.ToString+'px');\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{$HINTS OFF}\r\n\r\nfunction TCustomTableControl.GetColWidth(const ACol: integer): integer;\r\nvar\r\n  td: TJSHTMLElement;\r\n  w: integer;\r\nbegin\r\n  Result := 0;\r\n\r\n  if (ACol < ColCount) and (ACol >= 0) then\r\n  begin\r\n    td := CellElements[ACol,0];\r\n    asm\r\n      w = td.offsetWidth;\r\n    end;\r\n\r\n    Result := w;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.RenderGridBorders;\r\nvar\r\n  i,j: integer;\r\n  td: TJSHTMLElement;\r\n  clr: string;\r\nbegin\r\n  for i := 0 to ColCount - 1 do\r\n    for j := 0 to RenderRowCount do\r\n    begin\r\n      td := CellElements[i,j];\r\n      if Assigned(td) then\r\n      begin\r\n        if Options.CellBorders then\r\n        begin\r\n          clr := ColorToHTML(Options.CellBorderColor);\r\n          asm\r\n            td.style.borderRight = \"1px solid \" + clr;\r\n            td.style.borderBottom = \"1px solid \" + clr;\r\n          end;\r\n        end\r\n        else\r\n        begin\r\n          asm\r\n            td.style.borderRight = \"\";\r\n            td.style.borderBottom = \"\";\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\nend;\r\n\r\nprocedure TCustomTableControl.LogData;\r\nbegin\r\n  console.log(FData);\r\nend;\r\n\r\nprocedure TCustomTableControl.InitCSSLibrary(ALibrary: TCSSLibrary);\r\nbegin\r\n  if (ALibrary = cssBootstrap) then\r\n  begin\r\n    ElementFont := efCSS;\r\n\r\n    ElementHeaderClassName := 'thead-light';\r\n    ElementTableClassName := 'table table-striped table-bordered  table-hover';\r\n\r\n    if not Assigned(FHeader) then\r\n      FHeader := TTableControlHeader.Create(Self);\r\n\r\n    FHeader.ButtonActiveElementClassName := 'btn btn-primary';\r\n    FHeader.ButtonElementClassName := 'btn btn-light';\r\n    FHeader.LinkActiveElementClassName := 'link-primary';\r\n    FHeader.LinkElementClassName := 'link-secondary';\r\n    FHeader.ListElementClassName := 'pagination';\r\n    FHeader.ListLinkElementClassName := 'page-link';\r\n    FHeader.ListItemElementClassName := 'page-item';\r\n    FHeader.DropDownElementClassName := 'form-control';\r\n    FHeader.InputElementClassName := 'form-control';\r\n\r\n    if not Assigned(FFooter) then\r\n      FFooter := TTableControlHeader.Create(Self);\r\n\r\n    FFooter.ButtonActiveElementClassName := 'btn btn-primary';\r\n    FFooter.ButtonElementClassName := 'btn btn-light';\r\n    FFooter.LinkActiveElementClassName := 'link-primary';\r\n    FFooter.LinkElementClassName := 'link-secondary';\r\n    FFooter.ListElementClassName := 'pagination';\r\n    FFooter.ListLinkElementClassName := 'page-link';\r\n    FFooter.ListItemElementClassName := 'page-item';\r\n    FFooter.DropDownElementClassName := 'form-control';\r\n    FFooter.InputElementClassName := 'form-control';\r\n  end;\r\nend;\r\n\r\nprocedure TCustomTableControl.SetTableCell(ACol,AROw: integer; ACell: TJSHTMLElement;\r\n  const Value: string);\r\nvar\r\n  clr,td,cn: string;\r\n  topcell: TJSHTMLElement;\r\n\r\n  function IsEmail(s: string): boolean;\r\n  var\r\n    res: boolean;\r\n  begin\r\n    asm\r\n      var re = /\\S+@\\S+\\.\\S+/;\r\n      res = re.test(s);\r\n    end;\r\n    Result := res;\r\n  end;\r\n\r\n  function IsImgUrl(url: string): boolean;\r\n  var\r\n    res:boolean;\r\n  begin\r\n    asm\r\n      res = /\\.(jpg|jpeg|png|webp|avif|gif)$/.test(url)\r\n    end;\r\n    Result := res;\r\n  end;\r\n\r\n  function IsValidHttpUrl(s: string): boolean;\r\n  begin\r\n    asm\r\n      try {\r\n        url = new URL(s);\r\n      } catch (_) {\r\n        return false;\r\n      }\r\n      return url.protocol === \"http:\" || url.protocol === \"https:\";\r\n    end;\r\n  end;\r\n\r\n  function IsNum(str: string): boolean;\r\n  begin\r\n    asm\r\n      if (typeof str != \"string\") return false // we only process strings!\r\n      return !isNaN(str) && // use type coercion to parse the _entirety_ of the string (`parseFloat` alone does not do this)...\r\n        !isNaN(parseFloat(str)) // ...and ensure strings of whitespace fail\r\n    end;\r\n  end;\r\n\r\nbegin\r\n  if (csDesigning in ComponentState) and (ElementTableClassName = '') and not Options.CellBorders then\r\n  begin\r\n    asm\r\n      ACell.style.borderRight = \"1px dashed gray\";\r\n      ACell.style.borderBottom = \"1px dashed gray\";\r\n      ACell.innerHTML = \"&nbsp;\";\r\n    end;\r\n    Exit;\r\n  end;\r\n\r\n  if Options.AutoCellEmail and IsEmail(Value) then\r\n    td := '<a href=\"mailto:'+Value+'\">'+Value+'</a>'\r\n  else\r\n    if Options.AutoCellImage and IsImgURL(Value) then\r\n    begin\r\n      if Options.ImageWidth > 0 then\r\n        td := '<img src=\"'+Value+'\" width=\"'+ Options.ImageWidth.ToString+'px\">'\r\n      else\r\n        td := '<img src=\"'+Value+'\">';\r\n\r\n      case Options.ImageAlign of\r\n      taCenter: ACell['align'] := 'center';\r\n      taRightJustify: ACell['align'] := 'right';\r\n      end;\r\n\r\n    end\r\n    else\r\n      if Options.AutoCellURL and IsValidHttpURL(Value) then\r\n        td := '<a href=\"'+Value+'\">'+Value+'</a>'\r\n      else\r\n      begin\r\n        td := Value;\r\n        if Options.AutoNumAlign and IsNum(Value) then\r\n          ACell['align'] := 'right';\r\n      end;\r\n\r\n  if WordWrap then\r\n    ACell.innerHTML := td\r\n  else\r\n    ACell.innerHTML := '<div style=\"overflow: hidden; text-overflow: ellipsis; white-space:nowrap;\">'+td+'</div>';\r\n\r\n//  ACell.innerHTML := td;\r\n\r\n  if (ElementTableClassName = '') and Options.CellBorders then\r\n  begin\r\n    clr := ColorToHTML(Options.CellBorderColor);\r\n    asm\r\n      ACell.style.borderRight = \"1px solid \" + clr;\r\n      ACell.style.borderBottom = \"1px solid \" + clr;\r\n    end;\r\n  end;\r\n\r\n  cn := '';\r\n  GetCellClassName(ACol,ARow, nil, Value, cn);\r\n  if cn <> '' then\r\n    ACell.setAttribute('class',cn);\r\nend;\r\n\r\n\r\nprocedure TCustomTableControl.Sort(AColumn: integer;\r\n  ADirection: TGridSortIndicator);\r\nvar\r\n  colidx: integer;\r\n  grid: TJSElement;\r\n  asc,rh: boolean;\r\n  fixrow: JSValue;\r\nbegin\r\n  if not Assigned(FTable) then\r\n    Exit;\r\n\r\n  grid := TJSElement(FTable.children[1]); // get table TBODY\r\n\r\n  asc := ADirection = siAscending;\r\n\r\n//  if ColHeader then\r\n//    colidx := AColumn - 1\r\n//  else\r\n    colidx := AColumn;\r\n\r\n  if Paging.Enabled then\r\n  begin\r\n    rh := RowHeader;\r\n\r\n    asm\r\n      if (rh) fixrow = this.FData[0];\r\n\r\n      const getCellValue = (tr, idx) => tr[idx];\r\n      const comparer = (idx, asc) => (a, b) => ((v1, v2) =>\r\n        v1 !== '' && v2 !== '' && !isNaN(v1) && !isNaN(v2) ? v1 - v2 : v1.toString().localeCompare(v2)\r\n        )(getCellValue(asc ? a : b, idx), getCellValue(asc ? b : a, idx));\r\n\r\n      var arr = Array.from(this.FData);\r\n      if (rh) arr.shift();\r\n      arr.sort(comparer(colidx, asc));\r\n      if (rh) arr.splice(0,0,fixrow);\r\n      this.FData = arr;\r\n    end;\r\n\r\n    SelectPage(Paging.ActivePage, true);\r\n  end\r\n  else\r\n  begin\r\n\r\n    asm\r\n      const getCellValue = (tr, idx) => tr.children[idx].innerText || tr.children[idx].textContent;\r\n      const comparer = (idx, asc) => (a, b) => ((v1, v2) =>\r\n        v1 !== '' && v2 !== '' && !isNaN(v1) && !isNaN(v2) ? v1 - v2 : v1.toString().localeCompare(v2)\r\n        )(getCellValue(asc ? a : b, idx), getCellValue(asc ? b : a, idx));\r\n\r\n      const table = grid;\r\n\r\n      Array.from(table.querySelectorAll('tr'))\r\n          .sort(comparer(colidx, asc))\r\n          .forEach(tr => table.appendChild(tr) );\r\n    end;\r\n\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TCustomTableControl.UpdateElement;\r\nbegin\r\n  inherited;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    if Options.ScrollVertical then\r\n      ElementHandle.style.setProperty('overflow-y','scroll')\r\n    else\r\n      ElementHandle.style.setProperty('height','');\r\n\r\n    if (csDesigning in ComponentState) then\r\n    begin\r\n      ElementHandle.style.setProperty('width', IntToStr(Width) + 'px');\r\n      ElementHandle.style.setProperty('height', IntToStr(Height) + 'px');\r\n    end;\r\n\r\n    // allow selection in labels\r\n    ElementHandle.style.setProperty('user-select', '');\r\n\r\n    // allow default caret on text\r\n    if Cursor = crDefault then\r\n      ElementHandle.style.setProperty('cursor', '');\r\n\r\n    if (BorderStyle = bsSingle) and (BorderColor <> clNone) and (ElementClassName = '') and (ElementTableClassName = '') and not IsLinked then\r\n      ElementHandle.style.setProperty('border', '1px ' + ColorToHTML(BorderColor)+' solid')\r\n    else\r\n      ElementHandle.style.setProperty('border', '');\r\n\r\n    if (Color <> clNone) and (Color <> clWindow) then\r\n      ElementHandle.style.setProperty('background-color', ColorToHTML(Color))\r\n    else\r\n      ElementHandle.style.setProperty('background-color', '');\r\n\r\n    RenderGrid;\r\n  end;\r\nend;\r\n\r\n\r\n{ TResponsiveGridItem }\r\n\r\nconstructor TResponsiveGridItem.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  FVisible := true;\r\nend;\r\n\r\ndestructor TResponsiveGridItem.Destroy;\r\nbegin\r\n  (Collection as TResponsiveGridItems).DoItemDelete(Index);\r\n  inherited;\r\nend;\r\n\r\n{$HINTS OFF}\r\nfunction TResponsiveGridItem.GetJSONElementValue(id: string): string;\r\nvar\r\n  res: string;\r\n  JO: JSValue;\r\nbegin\r\n  JO := FJSONObject;\r\n  asm\r\n    res = JO[id];\r\n  end;\r\n  Result := res;\r\nend;\r\n{$HINTS ON}\r\n\r\nprocedure TResponsiveGridItem.SetHTML(const Value: string);\r\nbegin\r\n  FHTML := Value;\r\n  Changed(false);\r\nend;\r\n\r\nprocedure TResponsiveGridItem.SetSelected(const Value: boolean);\r\nvar\r\n  LStyleName: string;\r\nbegin\r\n  FSelected := Value;\r\n\r\n  LStyleName := (Collection as TResponsiveGridItems).Grid.GetStyleName;\r\n\r\n  if FSelected then\r\n    ElementHandle.classList.add(LStyleName+'_Selected')\r\n  else\r\n    ElementHandle.classList.remove(LStyleName+'_Selected');\r\nend;\r\n\r\nprocedure TResponsiveGridItem.SetVisible(const Value: boolean);\r\nbegin\r\n  if FVisible <> Value then\r\n  begin\r\n    FVisible := Value;\r\n    if Assigned(ElementHandle) then\r\n    begin\r\n      if FVisible then\r\n        ElementHandle.style.removeProperty('display')\r\n      else\r\n        ElementHandle.style.setProperty('display','none');\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TResponsiveGridItems }\r\n\r\nfunction TResponsiveGridItems.Add: TResponsiveGridItem;\r\nbegin\r\n  Result := TResponsiveGridItem(inherited Add);\r\n  DoItemAdd(Result.Index);\r\nend;\r\n\r\nfunction TResponsiveGridItems.Add(HTML: string): TResponsiveGridItem;\r\nbegin\r\n  Result := TResponsiveGridItem(inherited Add);\r\n  Result.FHTML := HTML;\r\n  DoItemAdd(Result.Index);\r\nend;\r\n\r\nprocedure TResponsiveGridItems.Clear;\r\nbegin\r\n  inherited Clear;\r\n  DoItemClear;\r\nend;\r\n\r\nconstructor TResponsiveGridItems.Create(AOwner: TComponent);\r\nbegin\r\n  inherited Create(AOwner, TResponsiveGridItem);\r\n  FGrid := TResponsiveGrid(AOwner);\r\nend;\r\n\r\nprocedure TResponsiveGridItems.Delete(Index: integer);\r\nbegin\r\n  inherited Delete(Index);\r\nend;\r\n\r\nprocedure TResponsiveGridItems.DoItemAdd(Index: integer);\r\nbegin\r\n  if Assigned(OnItemAdd) then\r\n    OnItemAdd(Self, Index);\r\nend;\r\n\r\nprocedure TResponsiveGridItems.DoItemClear;\r\nbegin\r\n  if Assigned(OnItemClear) then\r\n    OnItemClear(Self);\r\nend;\r\n\r\nprocedure TResponsiveGridItems.DoItemDelete(Index: integer);\r\nbegin\r\n  if Assigned(OnItemDelete) then\r\n    OnItemDelete(Self, Index);\r\nend;\r\n\r\nprocedure TResponsiveGridItems.DoItemInsert(Index: integer);\r\nbegin\r\n  if Assigned(OnItemInsert) then\r\n    OnItemInsert(Self, Index);\r\nend;\r\n\r\nprocedure TResponsiveGridItems.DoItemUpdate(Index: integer);\r\nbegin\r\n  if Assigned(OnItemUpdate) then\r\n    OnItemUpdate(Self, Index);\r\nend;\r\n\r\nfunction TResponsiveGridItems.GetItem(Index: integer): TResponsiveGridItem;\r\nbegin\r\n  Result := TResponsiveGridItem(inherited Items[Index]);\r\nend;\r\n\r\nfunction TResponsiveGridItems.Insert(Index: integer): TResponsiveGridItem;\r\nbegin\r\n  Result := TResponsiveGridItem(inherited Insert(Index));\r\n  DoItemInsert(Result.Index);\r\nend;\r\n\r\nprocedure TResponsiveGridItems.SetItem(Index: integer;\r\n  const Value: TResponsiveGridItem);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nprocedure TResponsiveGridItems.Update(Item: TCollectionItem);\r\nbegin\r\n  inherited;\r\n  if Assigned(Item) then\r\n    DoItemUpdate(Item.Index);\r\nend;\r\n\r\n{ TResponsiveGrid }\r\n\r\nprocedure TResponsiveGrid.BindElement;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nconstructor TResponsiveGrid.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nfunction TResponsiveGrid.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('DIV');\r\nend;\r\n\r\nprocedure TResponsiveGrid.CreateInitialize;\r\nbegin\r\n  inherited;\r\n\r\n  FDesignTime := (csDesigning in ComponentState) and not\r\n    ((csReading in Owner.ComponentState) or (csLoading in Owner.ComponentState));\r\n\r\n  FListElement := nil;\r\n  FItemIndex := -1;\r\n\r\n  FOptions := TResponsiveGridOptions.Create;\r\n  FOptions.OnChange := OptionsChanged;\r\n  FItems := TResponsiveGridItems.Create(Self);\r\n  FItems.PropName := 'Items';\r\n\r\n  if FDesignTime then\r\n  begin\r\n    Items.Clear;\r\n    Items.Add;\r\n    Items.Add;\r\n    Items.Add;\r\n  end;\r\n\r\n  FItems.OnItemAdd := HandleItemAdd;\r\n  FItems.OnItemUpdate := HandleItemUpdate;\r\n  FItems.OnItemDelete := HandleItemDelete;\r\n  FItems.OnItemInsert := HandleItemInsert;\r\n  FItems.OnItemClear := HandleItemClear;\r\n\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Width := 400;\r\n    Height := 300;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TResponsiveGrid.CreateControl;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TResponsiveGrid.Destroy;\r\nbegin\r\n  FOptions.Free;\r\n  FItems.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TResponsiveGrid.DoHttpAbort(Event: TEventListenerEvent): boolean;\r\nbegin\r\n  if Assigned(OnHttpRequestError) then\r\n    OnHttpRequestError(Self);\r\n  Result := true;\r\nend;\r\n\r\nfunction TResponsiveGrid.DoHttpLoadCsv(Event: TEventListenerEvent): boolean;\r\nvar\r\n  sl,arow,columns: TStringList;\r\n  i,c: integer;\r\n  itm: TResponsiveGridItem;\r\n  ident,html, htmlvalue: string;\r\n  req: TJSXMLHttpRequest;\r\n\r\nbegin\r\n  req := TJSXMLHttpRequest(Event.target);\r\n\r\n  if (req.status >= 200) and (req.status <= 208) then\r\n  begin\r\n    sl := TStringList.Create;\r\n    sl.Text := req.responseText;\r\n\r\n    arow := TStringList.Create;\r\n    arow.StrictDelimiter := true;\r\n    arow.Delimiter := FDelimiter;\r\n\r\n    if sl.Count > 0 then\r\n    begin\r\n      columns := TStringList.Create;\r\n      columns.StrictDelimiter := true;\r\n      columns.Delimiter := FDelimiter;\r\n      columns.DelimitedText := sl.Strings[0];\r\n\r\n      for i := 0 to sl.Count - 1 do\r\n      begin\r\n        arow.DelimitedText := sl.Strings[i];\r\n\r\n        if Options.ItemTemplate = '' then\r\n        begin\r\n          Items.Add.HTML := arow.CommaText;\r\n        end\r\n        else\r\n        begin\r\n          itm := Items.Add('&nbsp;');\r\n\r\n          html := Options.ItemTemplate;\r\n\r\n          DoItemGetTemplate(i, arow.CommaText ,html);\r\n\r\n          ident := '(%ITEMINDEX%)';\r\n          if pos(ident, html) > 0 then\r\n          begin\r\n            html := StringReplace(html, ident, inttostr(itm.Index), [rfReplaceAll]);\r\n          end;\r\n\r\n          for c := 0 to arow.Count - 1 do\r\n          begin\r\n            ident := '(%' + columns.Strings[c] + '%)';\r\n            if Pos(ident, html) > 0 then\r\n            begin\r\n              htmlvalue := '';\r\n              if c < arow.Count then\r\n                htmlvalue := arow.Strings[c];\r\n\r\n              DoItemGetFieldValue(itm.Index, columns.Strings[c], htmlvalue);\r\n              html := StringReplace(html, ident, htmlvalue, [rfReplaceAll]);\r\n            end;\r\n          end;\r\n\r\n          itm.HTML := html;\r\n\r\n          DoItemCreated(itm.Index);\r\n        end;\r\n      end;\r\n\r\n      columns.Free;\r\n    end;\r\n\r\n    arow.Free;\r\n    sl.Free;\r\n  end;\r\n\r\n  Result := true;\r\nend;\r\n\r\n{$HINTS OFF}\r\nfunction TResponsiveGrid.DoHttpLoadJson(Event: TEventListenerEvent): boolean;\r\nvar\r\n  J: TJSObject;\r\n  req: TJSXMLHttpRequest;\r\n\r\nbegin\r\n  req := TJSXMLHttpRequest(Event.target);\r\n\r\n  if (req.status >= 200) and (req.status <= 208) then\r\n  begin\r\n    Items.Clear;\r\n\r\n    J := TJSJSON.parseObject(req.responseText);\r\n\r\n    LoadFromJSON(J, FDataNode);\r\n\r\n    if Assigned(OnHttpRequestSuccess) then\r\n      OnHttpRequestSuccess(Self);\r\n  end;\r\n\r\n  Result := true;\r\nend;\r\n\r\nprocedure TResponsiveGrid.DoHttpRequest(ARequest: TJSXMLHttpRequest);\r\nvar\r\n  LRequestRec: TJSXMLHttpRequestRecord;\r\nbegin\r\n  if Assigned(OnHttpRequest) then\r\n  begin\r\n    LRequestRec.req := ARequest;\r\n    OnHttpRequest(Self, LRequestRec);\r\n  end;\r\nend;\r\n\r\n{$HINTS ON}\r\n\r\nprocedure TResponsiveGrid.DoItemCreated(Index: integer);\r\nbegin\r\n  if Assigned(OnItemCreated) then\r\n    OnItemCreated(Self, Index);\r\nend;\r\n\r\nprocedure TResponsiveGrid.DoItemGetFieldValue(Index: integer;\r\n  AFieldName: string; var AValue: string);\r\nbegin\r\n  if Assigned(OnItemGetFieldValue) then\r\n    OnItemGetFieldValue(Self, Index, AFieldName, AValue);\r\nend;\r\n\r\nprocedure TResponsiveGrid.DoItemGetTemplate(Index: integer; ItemData: string;\r\n  var ATemplate: string);\r\nbegin\r\n  if Assigned(OnItemGetTemplate) then\r\n    OnItemGetTemplate(Self, Index, ItemData, ATemplate);\r\nend;\r\n\r\nprocedure TResponsiveGrid.FontChanged;\r\nbegin\r\n  inherited;\r\n  UpdateElement;\r\nend;\r\n\r\nfunction TResponsiveGrid.GetStyleName: string;\r\nbegin\r\n  if Assigned(Parent) then\r\n    Result := Parent.Name + '_' + Name\r\n  else\r\n    Result := Name;\r\nend;\r\n\r\nfunction TResponsiveGrid.TargetIsParent(tgt,el: TJSElement): boolean;\r\nvar\r\n  pe: TJSElement;\r\nbegin\r\n  Result := false;\r\n  pe := tgt;\r\n  repeat\r\n    if el = pe then\r\n    begin\r\n      Result := true;\r\n      break;\r\n    end;\r\n    pe := pe.parentElement;\r\n\r\n  until not Assigned(pe);\r\nend;\r\n\r\nfunction TResponsiveGrid.HandleDoClick(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  i: integer;\r\n  el: TJSHTMLElement;\r\n  LStyleName: string;\r\nbegin\r\n  Result := inherited HandleDoClick(Event);\r\n\r\n  LStyleName := GetStyleName;\r\n\r\n  for i := 0 to Items.Count - 1 do\r\n  begin\r\n    el := TJSHTMLElement(ListElementHandle.children.Items[i]);\r\n    if Assigned(el) then\r\n    begin\r\n      // search HTML DIV element in list that is clicked\r\n      if TargetIsParent(Event.targetElement, el) then\r\n      begin\r\n        if Options.MultiSelect then\r\n        begin\r\n          if Items[i].Selected then\r\n          begin\r\n            el.classList.remove(LStyleName+'_Selected');\r\n          end\r\n          else\r\n          begin\r\n            el.classList.add(LStyleName+'_Selected');\r\n          end;\r\n          Items[i].FSelected := not Items[i].FSelected;\r\n        end\r\n        else\r\n        begin\r\n          FItemIndex := i;\r\n          el.classList.add(LStyleName+'_Selected');\r\n        end;\r\n        HandleDoItemClick(i);\r\n      end\r\n      else\r\n        if not Options.MultiSelect then\r\n          el.classList.remove(LStyleName+'_Selected');\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TResponsiveGrid.HandleDoDblClick(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  i: integer;\r\n  el: TJSHTMLElement;\r\nbegin\r\n  Result := inherited HandleDoClick(Event);\r\n\r\n  for i := 0 to Items.Count - 1 do\r\n  begin\r\n    el := TJSHTMLElement(ListElementHandle.children.Items[i]);\r\n\r\n    if TargetIsParent(Event.targetElement, el) then\r\n    begin\r\n      HandleDoItemDblClick(i);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveGrid.HandleDoItemClick(Index: integer);\r\nbegin\r\n  if Assigned(OnItemClick) then\r\n    OnItemClick(Self, Index);\r\nend;\r\n\r\nprocedure TResponsiveGrid.HandleDoItemDblClick(Index: integer);\r\nbegin\r\n  if Assigned(OnItemDblClick) then\r\n    OnItemDblClick(Self, Index);\r\nend;\r\n\r\nfunction TResponsiveGrid.HandleDoMouseEnter(Event: TJSMouseEvent): Boolean;\r\nbegin\r\n  Result := inherited HandleDoMouseEnter(Event);\r\nend;\r\n\r\nprocedure TResponsiveGrid.HandleItemAdd(Sender: TObject; Index: integer);\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  if Items.Items[Index].FHTML = '' then\r\n    Items.Items[Index].FHTML := Options.ItemTemplate;\r\n\r\n  el := TJSHTMLElement(document.createElement('DIV'));\r\n  Items.Items[Index].FElementHandle := el;\r\n\r\n  ListElementHandle.appendChild(el);\r\n\r\n  // already load when it has no template data fields\r\n  if pos('(%',Items.Items[Index].HTML) = 0  then\r\n    el.innerHTML := Items.Items[Index].HTML;\r\n\r\n  if Options.ItemClassName <> '' then\r\n    el.setAttribute('class',Options.ItemClassName);\r\nend;\r\n\r\nprocedure TResponsiveGrid.HandleItemClear(Sender: TObject);\r\nvar\r\n  i: integer;\r\nbegin\r\n  for i := ListElementHandle.childElementCount - 1 downto 0 do\r\n  begin\r\n    ListElementHandle.removeChild(ListElementHandle.children.items[0]);\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveGrid.HandleItemDelete(Sender: TObject; Index: integer);\r\nbegin\r\n  if Assigned(ListElementHandle) then\r\n  begin\r\n    ListElementHandle.removeChild(ListElementHandle.children.Items[Index]);\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveGrid.HandleItemInsert(Sender: TObject; Index: integer);\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  Items.Items[Index].FHTML := Options.ItemTemplate;\r\n\r\n  el := TJSHTMLElement(document.createElement('DIV'));\r\n  Items.Items[Index].FElementHandle := el;\r\n\r\n  if Items.Count <= 1 then\r\n    ListElementHandle.appendChild(el)\r\n  else\r\n    ListElementHandle.insertBefore(el, ListElementHandle.children.Items[Index]);\r\n\r\n  el.innerHTML := Items.Items[Index].HTML;\r\n  if Options.ItemClassName <> '' then\r\n    el.setAttribute('class',Options.ItemClassName);\r\nend;\r\n\r\nprocedure TResponsiveGrid.HandleItemUpdate(Sender: TObject; Index: integer);\r\nvar\r\n  el: TJSHTMLElement;\r\nbegin\r\n  if Assigned(ListElementHandle) then\r\n  begin\r\n    el := TJSHTMLElement(ListElementHandle.children.Items[Index]);\r\n    if not Assigned(el) then\r\n    begin\r\n      HandleItemInsert(Self, Index);\r\n    end\r\n    else\r\n      el.innerHTML := Items.Items[Index].HTML;\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveGrid.InitCSSLibrary(ALibrary: TCSSLibrary);\r\nbegin\r\n  if (ALibrary = cssBootstrap) then\r\n  begin\r\n    ElementFont := efCSS;\r\n  end;\r\nend;\r\n\r\nfunction TResponsiveGrid.ItemByTag(ATag: integer): TResponsiveGridItem;\r\nvar\r\n  i: integer;\r\nbegin\r\n  Result := nil;\r\n\r\n  for I := 0 to Items.Count - 1 do\r\n  begin\r\n    if Items[I].Tag = ATag then\r\n    begin\r\n      Result := Items[I];\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TResponsiveGrid.ListElementHandle: TJSElement;\r\nbegin\r\n  if not Assigned(FListElement) then\r\n  begin\r\n    FListElement := TJSHTMLElement(document.createElement('DIV'));\r\n    FListElement['width'] := '100%';\r\n    ElementHandle.appendChild(FListElement);\r\n    Result := FListElement;\r\n  end\r\n  else\r\n    Result := FListElement;\r\nend;\r\n\r\nprocedure TResponsiveGrid.Loaded;\r\nbegin\r\n  inherited;\r\n  RenderGrid;\r\nend;\r\n\r\nprocedure TResponsiveGrid.LoadFromCSV(const AURL: string; Delimiter: char = ';');\r\nbegin\r\n  FDelimiter := Delimiter;\r\n\r\n  FReq := TJSXMLHttpRequest.new;\r\n  FReq.addEventListener('load',@DoHttpLoadCsv);\r\n  FReq.addEventListener('abort',@DoHttpAbort);\r\n  FReq.open('GET', AURL);\r\n  DoHttpRequest(FReq);\r\n  FReq.send;\r\nend;\r\n\r\nprocedure TResponsiveGrid.LoadFromJSON(const AURL: string; ADataNode: string);\r\nbegin\r\n  FDataNode := ADataNode;\r\n  FReq := TJSXMLHttpRequest.new;\r\n  FReq.addEventListener('load',@DoHttpLoadJson);\r\n  FReq.addEventListener('abort',@DoHttpAbort);\r\n  FReq.open('GET', AURL);\r\n  DoHttpRequest(FReq);\r\n  FReq.send;\r\nend;\r\n\r\nprocedure TResponsiveGrid.LoadFromJSON(ASJON: TJSObject; ADataNode: string = '');\r\nvar\r\n  JO: JSValue;\r\n  JA: TJSArray;\r\n  r,c: integer;\r\n  arow,ident,html, htmlvalue: string;\r\n  sl: TStringList;\r\n  itm: TResponsiveGridItem;\r\n\r\nbegin\r\n  if ADataNode <> '' then\r\n    JA := TJSArray(ASJON.Properties[ADataNode])\r\n  else\r\n    JA := TJSArray(ASJON);\r\n\r\n  if Assigned(JA) then\r\n  begin\r\n    sl := TStringList.Create;\r\n\r\n    //RowCount := JA.length +  FixedRows;\r\n\r\n    for r := 0 to JA.length - 1 do\r\n    begin\r\n      // array element\r\n      JO := JA.Elements[r];\r\n\r\n      c := 0;\r\n      arow := '';\r\n\r\n      asm\r\n        var x = undefined;\r\n        for (x in JO) {\r\n          arow += \"|\" + x + \"=\" + JO[x];\r\n          c++;\r\n        }\r\n      end;\r\n\r\n      Delete(arow, 1, 1);\r\n      sl.StrictDelimiter := true;\r\n      sl.Delimiter := '|';\r\n      sl.DelimitedText := arow;\r\n\r\n      itm := Items.Add;\r\n      itm.JSONElement := JO;\r\n\r\n      if Options.ItemTemplate = '' then\r\n      begin\r\n        itm.HTML := sl.CommaText;\r\n      end\r\n      else\r\n      begin\r\n        html := Options.ItemTemplate;\r\n\r\n        DoItemGetTemplate(r, sl.CommaText ,html);\r\n\r\n        ident := '(%ITEMINDEX%)';\r\n        if pos(ident, html) > 0 then\r\n        begin\r\n          html := StringReplace(html, ident, inttostr(itm.Index), [rfReplaceAll]);\r\n        end;\r\n\r\n        for c := 0 to sl.Count - 1 do\r\n        begin\r\n          ident := '(%' + sl.Names[c] + '%)';\r\n\r\n          if Pos(ident, html) > 0 then\r\n          begin\r\n            htmlvalue := sl.Values[sl.Names[c]];\r\n            DoItemGetFieldValue(itm.Index, sl.Names[c], htmlvalue);\r\n            html := StringReplace(html, ident, htmlvalue, [rfReplaceAll]);\r\n          end;\r\n        end;\r\n\r\n        itm.HTML := html;\r\n\r\n        DoItemCreated(itm.Index);\r\n      end;\r\n    end;\r\n\r\n    sl.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveGrid.OptionsChanged(Sender: TObject);\r\nbegin\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TResponsiveGrid.RenderGrid;\r\nvar\r\n  i: integer;\r\n  el: TJSHTMLElement;\r\nbegin\r\n  if (csDestroying in ComponentState) then\r\n    Exit;\r\n\r\n  if not Assigned(ListElementHandle) then\r\n    Exit;\r\n\r\n  // clear previous items\r\n  while ListElementHandle.childElementCount > 0 do\r\n  begin\r\n    ListElementHandle.removeChild(ListElementHandle.firstChild);\r\n  end;\r\n\r\n  // refresh items\r\n  for i := 0 to Items.Count - 1 do\r\n  begin\r\n    el := TJSHTMLElement(document.createElement('DIV'));\r\n    el.style.setProperty('position', 'relative');\r\n    Items[i].FElementHandle := el;\r\n    ListElementHandle.appendChild(el);\r\n    el.innerHTML := Items[i].HTML;\r\n    if Options.ItemClassName <> '' then\r\n      el.setAttribute('class',Options.ItemClassName);\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveGrid.SetItemIndex(const Value: integer);\r\nvar\r\n  el: TJSHTMLElement;\r\n  i: integer;\r\n  LStyleName: string;\r\nbegin\r\n  FItemIndex := Value;\r\n\r\n  if (csLoading in ComponentState) then\r\n    Exit;\r\n\r\n  LStyleName := GetStyleName;\r\n\r\n  for i := 0 to Items.Count - 1 do\r\n  begin\r\n    el := TJSHTMLElement(ListElementHandle.children.Items[i]);\r\n    if (i = FItemIndex) then\r\n    begin\r\n      el.setAttribute('class',Options.ItemClassName + ' ' + LStyleName+'_Selected');\r\n    end\r\n    else\r\n      el.setAttribute('class',Options.ItemClassName);\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveGrid.SetItems(const Value: TResponsiveGridItems);\r\nbegin\r\n  FItems.Assign(Value);\r\nend;\r\n\r\nprocedure TResponsiveGrid.SetOptions(const Value: TResponsiveGridOptions);\r\nbegin\r\n  FOptions.Assign(Value);\r\nend;\r\n\r\nprocedure TResponsiveGrid.UpdateElement;\r\nconst\r\n  cssimportant = ' !important; ';\r\nvar\r\n  s, fs: string;\r\n  ITMWIDTHMIN: string;\r\n  ITMGAP: string;\r\n  ITMHEIGHT: string;\r\n  itemstyle, itemstylehover, itemstyleselected: string;\r\n  LStyleName: string;\r\n  LTemplate: string;\r\nbegin\r\n  inherited;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  if (csLoading in ComponentState) then\r\n    Exit;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    ITMWIDTHMIN := IntToStr(Options.ItemWidthMin);\r\n    ITMHEIGHT := IntToStr(Options.ItemHeight);\r\n    ITMGAP := IntToStr(Options.ItemGap);\r\n\r\n    LStyleName := GetStyleName;\r\n\r\n    ListElementHandle.setAttribute('class', LStyleName);\r\n\r\n    fs := '';\r\n\r\n    if (ElementClassName = '') and (ElementFont = efProperty) then\r\n      fs := CSSFont(Self.Font);\r\n\r\n    itemstyle := '';\r\n    itemstylehover := '';\r\n    itemstyleselected := '';\r\n\r\n    if Options.ItemColor <> clNone then\r\n    begin\r\n      itemstyle := 'background-color:'+ColorToHTML(Options.ItemColor)+';';\r\n    end;\r\n\r\n    if (csDesigning in ComponentState) and (Options.ItemBorderColor = clNone) then\r\n        itemstyle := itemstyle + 'border: 1px dotted silver;'\r\n    else if (Options.ItemBorderColor <> clNone) then\r\n      itemstyle := itemstyle + 'border: 1px solid ' + ColorToHTML(Options.ItemBorderColor)+';';\r\n\r\n    if Options.ItemPadding <> 0 then\r\n      itemstyle := itemstyle +  'padding:' + IntToStr(Options.ItemPadding)+'px;';\r\n\r\n    if Options.ItemHoverColor <> clNone then\r\n      itemstylehover := 'background-color:' + ColorToHTML(Options.ItemHoverColor) + cssimportant;\r\n\r\n    if Options.ItemHoverBorderColor <> clNone then\r\n      itemstylehover := itemstylehover + 'border: 1px solid '+ColorToHTML(Options.ItemHoverBorderColor) + cssimportant;\r\n\r\n    if Options.ItemSelectedColor <> clNone then\r\n      itemstyleselected := 'background-color:' + ColorToHTML(Options.ItemSelectedColor) + cssimportant;\r\n\r\n    if Options.ItemSelectedBorderColor <> clNone then\r\n      itemstyleselected := itemstyleselected + 'border: 1px solid '+ColorToHTML(Options.ItemSelectedBorderColor)+';';\r\n\r\n    if Options.ItemSelectedTextColor <> clNone then\r\n      itemstyleselected := itemstyleselected + 'color:'+ColorToHTML(Options.ItemSelectedTextColor)+';';\r\n\r\n    if Options.ScrollVertical then\r\n      ElementHandle.style.removeProperty('overflow-y')\r\n    else\r\n      ElementHandle.style.setProperty('overflow-y','hidden');\r\n\r\n    if Options.Order = toColumn then\r\n      LTemplate := 'grid-template-columns'\r\n    else\r\n    begin\r\n      LTemplate := 'grid-auto-flow: column; height: ' + Height.ToString + 'px; grid-template-rows';\r\n      ITMWIDTHMIN := IntToStr(Options.ItemHeight);\r\n      ElementHandle.style.setProperty('overflow-x','auto');\r\n    end;\r\n\r\n    s := '.'+LStyleName+' {'+\r\n       'display: grid; ' + LTemplate + ': repeat(auto-fill, minmax('+ ITMWIDTHMIN +'px, 1fr));'+\r\n       ' grid-gap: '+ ITMGAP + 'px;'+\r\n       '}' + #13\r\n       + '.'+LStyleName+' > div { ' + itemstyle +'height: '+ ITMHEIGHT + 'px; ' + fs +' }'+#13\r\n       + '.'+LStyleName+' > div:hover {' + itemstylehover + ' '+ fs + ' }'+#13\r\n       + '.'+LStyleName+'_Selected {' + itemstyleselected + 'height: '+ ITMHEIGHT + 'px;' + fs + '}'+#13;\r\n\r\n    AddInstanceStyle(LStyleName+'_style', s);\r\n  end;\r\n\r\n  RenderGrid;\r\nend;\r\n\r\n{ TResponsiveGridOptions }\r\n\r\nprocedure TResponsiveGridOptions.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TResponsiveGridOptions) then\r\n  begin\r\n    FItemWidthMin := (Source as TResponsiveGridOptions).ItemWidthMin;\r\n    FItemHeight := (Source as TResponsiveGridOptions).ItemHeight;\r\n    FMultiSelect := (Source as TResponsiveGridOptions).MultiSelect;\r\n    FOrder := (Source as TResponsiveGridOptions).Order;\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveGridOptions.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nconstructor TResponsiveGridOptions.Create;\r\nbegin\r\n  inherited;\r\n  FItemWidthMin := 100;\r\n  FItemHeight := 100;\r\n  FItemGap := 10;\r\n  FScrollVertical := true;\r\n  FItemColor := clNone;\r\n  FItemBorderColor := clNone;\r\n  FItemHoverColor := clNone;\r\n  FItemHoverBorderColor := clNone;\r\n  FItemSelectedColor := clNone;\r\n  FItemSelectedBorderColor := clNone;\r\n  FItemSelectedTextColor := clNone;\r\n  FOrder := toColumn;\r\nend;\r\n\r\nprocedure TResponsiveGridOptions.SetItemBorderColor(const Value: TColor);\r\nbegin\r\n  if (FItemBorderColor <> Value) then\r\n  begin\r\n    FItemBorderColor := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveGridOptions.SetItemColor(const Value: TColor);\r\nbegin\r\n  if (FItemColor <> Value) then\r\n  begin\r\n    FItemColor := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveGridOptions.SetItemGap(const Value: integer);\r\nbegin\r\n  if (FItemGap <> Value) then\r\n  begin\r\n    FItemGap := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveGridOptions.SetItemHeight(const Value: integer);\r\nbegin\r\n  if (FItemHeight <> Value) then\r\n  begin\r\n    FItemHeight := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveGridOptions.SetItemHoverBorderColor(const Value: TColor);\r\nbegin\r\n  if (FItemHoverBorderColor <> Value) then\r\n  begin\r\n    FItemHoverBorderColor := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveGridOptions.SetItemHoverColor(const Value: TColor);\r\nbegin\r\n  if (FItemHoverColor <> Value) then\r\n  begin\r\n    FItemHoverColor := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveGridOptions.SetItemPadding(const Value: integer);\r\nbegin\r\n  if (FItemPadding <> Value) then\r\n  begin\r\n    FItemPadding := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveGridOptions.SetItemSelectedBorderColor(\r\n  const Value: TColor);\r\nbegin\r\n  if FItemSelectedBorderColor <> Value then\r\n  begin\r\n    FItemSelectedBorderColor := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveGridOptions.SetItemSelectedColor(const Value: TColor);\r\nbegin\r\n  if (FItemSelectedColor <> Value) then\r\n  begin\r\n    FItemSelectedColor := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveGridOptions.SetItemSelectedTextColor(const Value: TColor);\r\nbegin\r\n  if (FItemSelectedTextColor <> Value) then\r\n  begin\r\n    FItemSelectedTextColor := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveGridOptions.SetItemTemplate(const Value: string);\r\nbegin\r\n  if (FItemTemplate <> Value) then\r\n  begin\r\n    FItemTemplate := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveGridOptions.SetItemWidthMin(const Value: integer);\r\nbegin\r\n  if (FItemWidthMin <> Value) then\r\n  begin\r\n    FItemWidthMin := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TResponsiveGridOptions.SetScrollVertical(const Value: boolean);\r\nbegin\r\n  if (FScrollVertical <> Value) then\r\n  begin\r\n    FScrollVertical := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\n{$HINTS ON}\r\n\r\n{ TTableControlOptions }\r\n\r\nprocedure TTableControlOptions.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTableControlOptions) then\r\n  begin\r\n    FScrollVertical := (Source as TTableControlOptions).ScrollVertical;\r\n    FResizeColumns := (Source as TTableControlOptions).ResizeColumns;\r\n    FAutoCellURL := (Source as TTableControlOptions).AutoCellURL;\r\n    FAutoCellEmail := (Source as TTableControlOptions).AutoCellEmail;\r\n    FAutoCellImage := (Source as TTableControlOptions).AutoCellImage;\r\n    FAutoNumAlign := (Source as TTableControlOptions).AutoNumAlign;\r\n    FCellBorders := (Source as TTableControlOptions).CellBorders;\r\n    FCellBorderColor := (Source as TTableControlOptions).CellBorderColor;\r\n    FImageWidth := (Source as TTableControlOptions).ImageWidth;\r\n    FImageAlign := (Source as TTableControlOptions).ImageAlign;\r\n  end;\r\nend;\r\n\r\nconstructor TTableControlOptions.Create(AOwner: TCustomTableControl);\r\nbegin\r\n  inherited;\r\n  FOwner := AOwner;\r\n  FCellBorderColor := clSilver;\r\n  FImageAlign := taLeftJustify;\r\n  FImageWidth := 0;\r\nend;\r\n\r\nprocedure TTableControlOptions.SetCellBorderColor(const Value: TColor);\r\nbegin\r\n  FCellBorderColor := Value;\r\n  FOwner.RenderGridBorders;\r\nend;\r\n\r\nprocedure TTableControlOptions.SetCellBorders(const Value: boolean);\r\nbegin\r\n  FCellBorders := Value;\r\n  FOwner.RenderGridBorders;\r\nend;\r\n\r\nprocedure TTableControlOptions.SetResizeColumns(const Value: boolean);\r\nbegin\r\n  FResizeColumns := Value;\r\n  FOwner.EnableColResize;\r\nend;\r\n\r\nprocedure TTableControlOptions.SetScrollVertical(const Value: boolean);\r\nbegin\r\n  FScrollVertical := Value;\r\n  FOwner.UpdateElement;\r\nend;\r\n\r\n{ TGridRange }\r\n\r\nprocedure TGridRange.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TGridRange) then\r\n  begin\r\n    FMax := (Source as TGridRange).Max;\r\n    FMin := (Source as TGridRange).Min;\r\n    FStep := (Source as TGridRange).Step;\r\n  end;\r\nend;\r\n\r\nconstructor TGridRange.Create;\r\nbegin\r\n  inherited;\r\n  FMin := 0;\r\n  FMax := 100;\r\n  FStep := 1;\r\nend;\r\n\r\n{ TTableControlHeader }\r\n\r\nprocedure TTableControlHeader.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTableControlHeader) then\r\n  begin\r\n    FCaption := (Source as TTableControlHeader).Caption;\r\n    FVisible := (Source as TTableControlHeader).Visible;\r\n    FPager := (Source as TTableControlHeader).Pager;\r\n    FPagerAlign := (Source as TTableControlHeader).PagerAlign;\r\n    FButtonActiveElementClassName := (Source as TTableControlHeader).ButtonActiveElementClassName;\r\n    FButtonElementClassName := (Source as TTableControlHeader).ButtonElementClassName;\r\n    FLinkActiveElementClassName := (Source as TTableControlHeader).LinkActiveElementClassName;\r\n    FLinkElementClassName := (Source as TTableControlHeader).LinkElementClassName;\r\n    FDropDownElementClassName := (Source as TTableControlHeader).DropDownElementClassName;\r\n    FInputElementClassName := (Source as TTableControlHeader).InputElementClassName;\r\n    FFilterColumn := (Source as TTableControlHeader).FilterColumn;\r\n    FFilter := (Source as TTableControlHeader).Filter;\r\n    FSearch := (Source as TTableControlHeader).Search;\r\n    FListElementClassName := (Source as TTableControlHeader).ListElementClassName;\r\n    FListItemElementClassName := (Source as TTableControlHeader).ListItemElementClassName;\r\n    FListLinkElementClassName := (Source as TTableControlHeader).ListLinkElementClassName;\r\n  end;\r\nend;\r\n\r\nprocedure TTableControlHeader.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nconstructor TTableControlHeader.Create(AOwner: TCustomTableControl);\r\nbegin\r\n  inherited Create;\r\n  FOwner := AOwner;\r\n  FPagerElement := nil;\r\n  FPagerAlign := paRight;\r\n  FPageEventPtr := @HandlePagerClick;\r\n  FSearchEventPtr := @HandleSearchClick;\r\n  FFilterEventPtr := @HandleFilterClick;\r\nend;\r\n\r\nfunction TTableControlHeader.HandleFilterClick(Event: TJSInputEvent): Boolean;\r\nvar\r\n  cond: string;\r\nbegin\r\n  asm\r\n    cond = this.FFilterInput.value;\r\n  end;\r\n  if (cond = '') or (cond <> FFilterValue) then\r\n    FOwner.RemoveFilter;\r\n\r\n  if (cond <> '') then\r\n  begin\r\n    FFilterValue := cond;\r\n    FOwner.SetFilter(FilterColumn, FFilterValue);\r\n  end;\r\n  Result := true;\r\nend;\r\n\r\nfunction TTableControlHeader.HandlePagerClick(Event: TJSInputEvent): Boolean;\r\nvar\r\n  idx: integer;\r\n  s: string;\r\nbegin\r\n  Event.preventDefault;\r\n  Event.stopPropagation;\r\n\r\n  Result := true;\r\n\r\n  if Pager = tpDropDown then\r\n  begin\r\n    asm\r\n      idx = this.FPagerElement.selectedIndex;\r\n    end;\r\n  end\r\n  else\r\n  if Pager = tpPrevNext then\r\n  begin\r\n    s := TJSElement(Event.target).getAttribute('data');\r\n    idx := StrToInt(s);\r\n\r\n    case idx of\r\n    0: if FOwner.Paging.ActivePage > 0 then\r\n         idx := 0\r\n       else\r\n         Exit;\r\n    1: if FOwner.Paging.ActivePage > 0 then\r\n         idx := FOwner.Paging.ActivePage - 1\r\n       else\r\n         Exit;\r\n    2: if FOwner.Paging.ActivePage < FOwner.Paging.PageCount - 1 then\r\n         idx := FOwner.Paging.ActivePage + 1\r\n       else\r\n         Exit;\r\n    3: if FOwner.Paging.ActivePage < FOwner.Paging.PageCount - 1 then\r\n         idx := FOwner.Paging.PageCount - 1\r\n       else\r\n         Exit;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    s := TJSElement(Event.target).getAttribute('data');\r\n    idx := StrToInt(s);\r\n  end;\r\n\r\n  FOwner.DoSelectPage(idx);\r\nend;\r\n\r\nfunction TTableControlHeader.HandleSearchClick(Event: TJSInputEvent): Boolean;\r\nvar\r\n  cond: string;\r\nbegin\r\n  asm\r\n    cond = this.FSearchInput.value;\r\n  end;\r\n\r\n  if (cond <> '') and (cond <> FSearchValue) then\r\n  begin\r\n    FSearchValue := cond;\r\n    FOwner.FindCell(FSearchValue);\r\n  end\r\n  else\r\n    FOwner.FindNext;\r\n//FindCell(Condition: string; CaseSensitive: boolean = true; AllCells: boolean = false): TGridCoord;\r\n\r\n  Result := true;\r\nend;\r\n\r\nprocedure TTableControlHeader.SetCaption(const Value: string);\r\nbegin\r\n  if FCaption <> Value then\r\n  begin\r\n    FCaption := Value;\r\n    FOwner.RenderGrid;\r\n  end;\r\nend;\r\n\r\nprocedure TTableControlHeader.SetPager(const Value: TTablePager);\r\nbegin\r\n  if (FPager <> Value) then\r\n  begin\r\n    FPager := Value;\r\n    Update(FOwner.Paging.Size, FOwner.RowCount, FOwner.Paging.Index);\r\n  end;\r\nend;\r\n\r\nprocedure TTableControlHeader.SetPagerAlign(const Value: TTablePagerAlign);\r\nbegin\r\n  if (FPagerAlign <> Value) then\r\n  begin\r\n    FPagerAlign := Value;\r\n    FOwner.ReRenderGrid;\r\n  end;\r\nend;\r\n\r\nprocedure TTableControlHeader.SetVisible(const Value: boolean);\r\nbegin\r\n  if FVisible <> Value then\r\n  begin\r\n    FVisible := Value;\r\n    FOwner.ReRenderGrid;\r\n  end;\r\nend;\r\n\r\nprocedure TTableControlHeader.Update(PageSize, RowCount, ActivePage: integer);\r\nvar\r\n  opt: TJSHTMLOptionElement;\r\n  lnk,itm,btn: TJSHTMLElement;\r\n  i,numpages: integer;\r\n  trc: integer;\r\nbegin\r\n  if not Assigned(FElement) then\r\n    Exit;\r\n\r\n  if Assigned(FSearchElement) then\r\n  begin\r\n    FSearchElement.parentElement.removeChild(FSearchElement);\r\n    FSearchElement := nil;\r\n  end;\r\n  if Assigned(FFilterElement) then\r\n  begin\r\n    FFilterElement.parentElement.removeChild(FFilterElement);\r\n    FFilterElement := nil;\r\n  end;\r\n\r\n  if Search then\r\n  begin\r\n    FSearchElement := TJSHTMLElement(document.createElement('DIV'));\r\n    FSearchElement.style.setProperty('float','left');\r\n    FSearchInput := TJSHTMLElement(document.createElement('INPUT'));\r\n    if InputElementClassName <> '' then\r\n      FSearchInput['class'] := InputElementClassName;\r\n    FSearchInput.style.setProperty('display','inline');\r\n    FSearchInput.style.setProperty('width','auto');\r\n\r\n    btn := TJSHTMLElement(document.createElement('IMG'));\r\n    btn['src'] := ICON_SEARCH;\r\n    btn.style.setProperty('vertical-align','middle');\r\n    btn.style.setProperty('margin-right','10px');\r\n    FSearchElement.appendChild(FSearchInput);\r\n    FSearchElement.appendChild(btn);\r\n    FElement.appendChild(FSearchElement);\r\n    btn.addEventListener('click',FSearchEventPtr);\r\n    TJSHTMLInputElement(FSearchInput).value := FSearchValue;\r\n  end;\r\n\r\n  if Filter then\r\n  begin\r\n    FFilterElement := TJSHTMLElement(document.createElement('DIV'));\r\n    FFilterElement.style.setProperty('float','left');\r\n    FFilterInput := TJSHTMLElement(document.createElement('INPUT'));\r\n    if InputElementClassName <> '' then\r\n      FFilterInput['class'] := InputElementClassName;\r\n    FFilterInput.style.setProperty('display','inline');\r\n    FFilterInput.style.setProperty('width','auto');\r\n\r\n    btn := TJSHTMLElement(document.createElement('IMG'));\r\n    btn['src'] := ICON_FILTER;\r\n    btn.style.setProperty('vertical-align','middle');\r\n    btn.style.setProperty('margin-right','10px');\r\n    FFilterElement.appendChild(FFilterInput);\r\n    FFilterElement.appendChild(btn);\r\n    FElement.appendChild(FFilterElement);\r\n    btn.addEventListener('click',FFilterEventPtr);\r\n    TJSHTMLInputElement(FFilterInput).value := FFilterValue;\r\n  end;\r\n\r\n  trc := 0;\r\n  if FOwner.RowHeader then\r\n    inc(trc);\r\n\r\n  numpages := (RowCount - trc) div PageSize;\r\n\r\n  if (RowCount - trc) mod PageSize > 0 then\r\n    inc(numpages);\r\n\r\n  FOwner.Paging.FPageCount := numpages;\r\n\r\n  if Assigned(FPagerElement) then\r\n  begin\r\n    FPagerElement.parentElement.removeChild(FPagerElement);\r\n    FPagerElement := nil;\r\n  end;\r\n\r\n  if not FOwner.Paging.Enabled then\r\n    Exit;\r\n\r\n  if FPager = tpDropDown then\r\n  begin\r\n    FPagerElement := TJSHTMLElement(document.createElement('SELECT'));\r\n\r\n    if DropDownElementClassName <> '' then\r\n      FPagerElement['class'] := DropDownElementClassName;\r\n\r\n    FPagerElement.addEventListener('change',FPageEventPtr);\r\n\r\n    for i := 0 to numpages - 1 do\r\n    begin\r\n      opt := TJSHTMLOptionElement(document.createElement('option'));\r\n      opt.text := (i + 1).ToString;\r\n      opt['data'] := i.ToString;\r\n      if i = ActivePage then\r\n        opt['selected'] := 'selected';\r\n\r\n      TJSHTMLSelectElement(FPagerElement).add(opt);\r\n    end;\r\n\r\n    case FPagerAlign of\r\n    paRight: FPagerElement.style.setProperty('float','right');\r\n    paLeft: FPagerElement.style.setProperty('float','left');\r\n    paCenter:\r\n      begin\r\n        FPagerElement.style.removeProperty('float');\r\n        FPagerElement.style.setProperty('max-width','content');\r\n        FPagerElement.style.setProperty('margin-left','auto');\r\n        FPagerElement.style.setProperty('margin-right','auto');\r\n      end;\r\n    end;\r\n\r\n    FPagerElement.style.setProperty('display','inline');\r\n    FPagerElement.style.setProperty('width','auto');\r\n    FElement.appendChild(FPagerElement);\r\n  end;\r\n\r\n  if FPager = tpLink then\r\n  begin\r\n    FPagerElement := TJSHTMLElement(document.createElement('DIV'));\r\n\r\n    for i := 0 to numpages - 1 do\r\n    begin\r\n      lnk := TJSHTMLOptionElement(document.createElement('A'));\r\n      lnk.innerHTML := (i + 1).ToString;\r\n      lnk['href'] := '#';\r\n      if LinkElementClassName <> '' then\r\n      begin\r\n\r\n        if (i = ActivePage) and (LinkActiveElementClassName <> '') then\r\n          lnk['class'] := LinkActiveElementClassName\r\n        else\r\n          lnk['class'] := LinkElementClassName;\r\n      end;\r\n      lnk.style.setProperty('margin-right','4px');\r\n      lnk.style.setProperty('display','inline');\r\n      lnk['data'] := i.ToString;\r\n\r\n      lnk.addEventListener('click',FPageEventPtr);\r\n      FPagerElement.appendChild(lnk);\r\n    end;\r\n\r\n    case FPagerAlign of\r\n    paRight: FPagerElement.style.setProperty('float','right');\r\n    paLeft: FPagerElement.style.setProperty('float','left');\r\n    paCenter:\r\n      begin\r\n        FPagerElement.style.removeProperty('float');\r\n        FPagerElement.style.setProperty('max-width','content');\r\n        FPagerElement.style.setProperty('margin-left','auto');\r\n        FPagerElement.style.setProperty('margin-right','auto');\r\n      end;\r\n    end;\r\n    FElement.appendChild(FPagerElement);\r\n  end;\r\n\r\n  if FPager = tpButton then\r\n  begin\r\n    FPagerElement := TJSHTMLElement(document.createElement('DIV'));\r\n\r\n    for i := 0 to numpages - 1 do\r\n    begin\r\n      lnk := TJSHTMLOptionElement(document.createElement('BUTTON'));\r\n      lnk.innerHTML := (i + 1).ToString;\r\n      if ButtonElementClassName <> '' then\r\n      begin\r\n        if (i = ActivePage) and (ButtonActiveElementClassName <> '') then\r\n          lnk['class'] := ButtonActiveElementClassName\r\n        else\r\n          lnk['class'] := ButtonElementClassName;\r\n      end;\r\n      lnk['data'] := i.ToString;\r\n      lnk.addEventListener('click',FPageEventPtr);\r\n      lnk.style.setProperty('margin-right','4px');\r\n      FPagerElement.appendChild(lnk);\r\n    end;\r\n\r\n    case FPagerAlign of\r\n    paRight: FPagerElement.style.setProperty('float','right');\r\n    paLeft: FPagerElement.style.setProperty('float','left');\r\n    paCenter:\r\n      begin\r\n        FPagerElement.style.removeProperty('float');\r\n        FPagerElement.style.setProperty('max-width','content');\r\n        FPagerElement.style.setProperty('margin-left','auto');\r\n        FPagerElement.style.setProperty('margin-right','auto');\r\n      end;\r\n    end;\r\n\r\n    FElement.appendChild(FPagerElement);\r\n  end;\r\n\r\n  if FPager = tpPrevNext then\r\n  begin\r\n    FPagerElement := TJSHTMLElement(document.createElement('DIV'));\r\n\r\n    lnk := TJSHTMLOptionElement(document.createElement('BUTTON'));\r\n    lnk.innerHTML := '&#xab;';\r\n    lnk['data'] := '0';\r\n      if ButtonElementClassName <> '' then\r\n        lnk['class'] := ButtonElementClassName;\r\n    lnk.addEventListener('click',FPageEventPtr);\r\n    lnk.style.setProperty('margin-right','4px');\r\n\r\n    if FOwner.Paging.ActivePage = 0 then\r\n      lnk.setAttribute('disabled','');\r\n\r\n    FPagerElement.appendChild(lnk);\r\n\r\n    lnk := TJSHTMLOptionElement(document.createElement('BUTTON'));\r\n    lnk.innerHTML := '&#x2039';\r\n    lnk['data'] := '1';\r\n      if ButtonElementClassName <> '' then\r\n        lnk['class'] := ButtonElementClassName;\r\n    lnk.addEventListener('click',FPageEventPtr);\r\n    lnk.style.setProperty('margin-right','4px');\r\n\r\n    if FOwner.Paging.ActivePage = 0 then\r\n      lnk.setAttribute('disabled','');\r\n\r\n    FPagerElement.appendChild(lnk);\r\n\r\n    lnk := TJSHTMLOptionElement(document.createElement('BUTTON'));\r\n    lnk.innerHTML := '&#x203A;';\r\n    lnk['data'] := '2';\r\n      if ButtonElementClassName <> '' then\r\n        lnk['class'] := ButtonElementClassName;\r\n    lnk.addEventListener('click',FPageEventPtr);\r\n    lnk.style.setProperty('margin-right','4px');\r\n\r\n    if FOwner.Paging.ActivePage = FOwner.Paging.PageCount then\r\n      lnk.setAttribute('disabled','');\r\n\r\n    FPagerElement.appendChild(lnk);\r\n\r\n    lnk := TJSHTMLOptionElement(document.createElement('BUTTON'));\r\n    lnk.innerHTML := '&#xbb;';\r\n    lnk['data'] := '3';\r\n    lnk.addEventListener('click',FPageEventPtr);\r\n      if ButtonElementClassName <> '' then\r\n        lnk['class'] := ButtonElementClassName;\r\n    lnk.style.setProperty('margin-right','4px');\r\n    FPagerElement.appendChild(lnk);\r\n    case FPagerAlign of\r\n    paRight: FPagerElement.style.setProperty('float','right');\r\n    paLeft: FPagerElement.style.setProperty('float','left');\r\n    paCenter:\r\n      begin\r\n        FPagerElement.style.removeProperty('float');\r\n        FPagerElement.style.setProperty('max-width','content');\r\n        FPagerElement.style.setProperty('margin-left','auto');\r\n        FPagerElement.style.setProperty('margin-right','auto');\r\n      end;\r\n    end;\r\n\r\n\r\n    if FOwner.Paging.ActivePage = FOwner.Paging.PageCount then\r\n      lnk.setAttribute('disabled','');\r\n\r\n    FElement.appendChild(FPagerElement);\r\n  end;\r\n\r\n\r\n  if FPager = tpList then\r\n  begin\r\n    FPagerElement := TJSHTMLElement(document.createElement('UL'));\r\n\r\n    if ListElementClassName <> '' then\r\n      FPagerElement['class'] := ListElementClassName;\r\n\r\n    FPagerElement.style.setProperty('margin','0px');\r\n\r\n    for i := 0 to numpages - 1 do\r\n    begin\r\n      itm := TJSHTMLOptionElement(document.createElement('LI'));\r\n      if ListItemElementClassName <> '' then\r\n      begin\r\n        if i = ActivePage then\r\n          itm['class'] := ListItemElementClassName + ' active'\r\n        else\r\n          itm['class'] := ListItemElementClassName;\r\n      end;\r\n\r\n      lnk := TJSHTMLOptionElement(document.createElement('A'));\r\n      lnk.innerHTML := (i + 1).ToString;\r\n      lnk['href'] := '#';\r\n      lnk['data'] := i.ToString;\r\n      lnk.addEventListener('click',FPageEventPtr);\r\n\r\n      if ListLinkElementClassName <> '' then\r\n        lnk['class'] := ListLinkElementClassName;\r\n\r\n      itm.appendChild(lnk);\r\n\r\n      FPagerElement.appendChild(itm);\r\n    end;\r\n\r\n    case FPagerAlign of\r\n    paRight: FPagerElement.style.setProperty('float','right');\r\n    paLeft: FPagerElement.style.setProperty('float','left');\r\n    paCenter:\r\n      begin\r\n        FPagerElement.style.removeProperty('float');\r\n        FPagerElement.style.setProperty('max-width','content');\r\n        FPagerElement.style.setProperty('margin-left','auto');\r\n        FPagerElement.style.setProperty('margin-right','auto');\r\n      end;\r\n    end;\r\n\r\n    FElement.appendChild(FPagerElement);\r\n  end;\r\nend;\r\n\r\n{ TTableControlPaging }\r\n\r\nprocedure TTableControlPaging.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTableControlPaging) then\r\n  begin\r\n    FEnabled := (Source as TTableControlPaging).Enabled;\r\n    FSize := (Source as TTableControlPaging).Size;\r\n    FIndex := (Source as TTableControlPaging).Index;\r\n  end;\r\nend;\r\n\r\nconstructor TTableControlPaging.Create(AOwner: TCustomTableControl);\r\nbegin\r\n  inherited Create;\r\n  FOwner := AOwner;\r\n  FSize := 10;\r\n  FIndex := 0;\r\nend;\r\n\r\nprocedure TTableControlPaging.SetEnabled(const Value: boolean);\r\nvar\r\n  rh: integer;\r\nbegin\r\n  if FEnabled <> Value then\r\n  begin\r\n    FEnabled := Value;\r\n\r\n    rh := 0;\r\n\r\n    if FOwner.RowHeader then\r\n      rh := 1;\r\n\r\n    if FEnabled then\r\n      FOwner.RowCountChanged(FSize + rh - FOwner.RowCount)\r\n    else\r\n      FOwner.RowCountChanged(FOwner.RowCount - FSize - rh);\r\n\r\n    FOwner.ReRenderGrid;\r\n//    FOwner.GridChanged;\r\n  end;\r\nend;\r\n\r\nprocedure TTableControlPaging.SetIndex(const Value: integer);\r\nbegin\r\n  if (FIndex <> Value) and (Value >= 0) then\r\n  begin\r\n    if FOwner.Paging.Size <> 0 then\r\n      if not (Value < FOwner.RowCount div FOwner.Paging.Size) then\r\n        Exit;\r\n\r\n    FActivePage := Value;\r\n    FIndex := Value;\r\n    FOwner.DoSelectPage(FIndex);\r\n  end;\r\nend;\r\n\r\nprocedure TTableControlPaging.SetSize(const Value: integer);\r\nvar\r\n  FOldSize: integer;\r\nbegin\r\n  if (FSize <> Value) then\r\n  begin\r\n    FOldSize := FSize;\r\n    FSize := Value;\r\n    FOwner.RowCountChanged(FSize - FOldSize);\r\n    FOwner.GridChanged;\r\n  end;\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.EditAutocomplete;\r\n\r\n{$modeswitch externalclass}\r\n\r\n{$DEFINE NOPP}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, SysUtils, Types, WEBLib.Controls, WEBLib.StdCtrls, WEBLib.Graphics,\r\n  Web, JS;\r\n\r\ntype\r\n  TEditAutoCompleteLookupType = (ltFirstCharacter, ltAnywhere);\r\n\r\n  TEditAutoCompleteRenderItemEventArgs = class(TPersistent)\r\n  private\r\n    FItemElement: TJSHTMLElement;\r\n    FItemIndex: Integer;\r\n  public\r\n    property ItemIndex: Integer read FItemIndex write FItemIndex;\r\n    property ItemElement: TJSHTMLElement read FItemElement write FItemElement;\r\n  end;\r\n\r\n  TEditAutoCompleteRenderItemEvent = procedure(Sender: TObject; Args: TEditAutoCompleteRenderItemEventArgs) of object;\r\n  TEditAutoCompleteLookupUpdateEvent = procedure(Sender: TObject; Items: TJSArray; Lookup: string) of object;\r\n\r\n\r\n  TEditAutoCompleteSelectEventArgs = class(TPersistent)\r\n  private\r\n    FItemIndex: Integer;\r\n  public\r\n    property ItemIndex: Integer read FItemIndex write FItemIndex;\r\n  end;\r\n\r\n  TEditAutoCompleteSelectEvent = procedure(Sender: TObject; Args: TEditAutoCompleteSelectEventArgs) of object;\r\n\r\n  TEditAutoComplete = class(TCustomInput)\r\n  private\r\n    FText: string;\r\n    FItemIndex: Integer;\r\n    FItems: TStringList;\r\n    FPopupHeight: Integer;\r\n    FActiveItemClassName: string;\r\n    FPopupClassName: string;\r\n    FItemClassName: string;\r\n    FOnRenderItem: TEditAutoCompleteRenderItemEvent;\r\n    FOnSelect: TEditAutoCompleteSelectEvent;\r\n    FTextHint: string;\r\n    FReadOnly: boolean;\r\n    FCharCase: TEditCharCase;\r\n    FOnChange: TNotifyEvent;\r\n    FLookupCaseSensitive: Boolean;\r\n    FlookupMinLength: Integer;\r\n    FLookupType: TEditAutoCompleteLookupType;\r\n    FInputElement: TJSHTMLInputElement;\r\n    FAutoSelect: boolean;\r\n    FOnLookupUpdate: TEditAutoCompleteLookupUpdateEvent;\r\n    procedure AddScript(Script: string);\r\n    function GetText: string;\r\n    procedure SetText(const Value: string);\r\n    procedure SetItems(const Value: TStringList);\r\n    function GetItemIndex: Integer;\r\n    procedure SetItemIndex(const Value: Integer);\r\n    procedure SetPopupHeight(const Value: Integer);\r\n    procedure SetActiveItemClassName(const Value: string);\r\n    procedure SetItemClassName(const Value: string);\r\n    procedure SetPopupClassName(const Value: string);\r\n    procedure SetTextHint(const Value: string);\r\n    procedure SetReadOnly(const Value: boolean);\r\n    procedure SetCharcase(const Value: TEditCharCase);\r\n    function GetElementInputHandle: TJSHTMLInputElement;\r\n    procedure SetLookupCaseSensitive(const Value: Boolean);\r\n    procedure SetLookupMinLength(const Value: Integer);\r\n    procedure SetLookupType(const Value: TEditAutoCompleteLookupType);\r\n  protected\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElement; override;\r\n    procedure GetValuesUpdate(Items: TJSArray; Lookup: string);\r\n    procedure BindEvents; override;\r\n    function HandleRenderItem(Item: TJSHTMLElement; Index: Integer): TJSHTMLElement;\r\n    function HandleSelect(Index: Integer): Boolean;\r\n    function HandleDoChange(Event: TJSMouseEvent): Boolean; virtual;\r\n    procedure InitCSSLibrary(ALibrary: TCSSLibrary); override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure SetFocus; override;\r\n    property ElementInputHandle: TJSHTMLInputElement read GetElementInputHandle;\r\n    procedure Change; virtual;\r\n    procedure Refresh; virtual;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property AutoSelect: boolean read FAutoSelect write FAutoSelect default false;\r\n    property BorderStyle;\r\n    property Color;\r\n    property CharCase: TEditCharCase read FCharCase write SetCharcase default wecNormal;\r\n    property ElementClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Font;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property Left;\r\n    property Margins;\r\n    property ReadOnly: boolean read FReadOnly write SetReadOnly default False;\r\n    property ShowFocus;\r\n    property ShowHint;\r\n    property TextHint: string read FTextHint write SetTextHint;\r\n    property TabStop;\r\n    property TabOrder;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnEnter;\r\n    property OnExit;\r\n\r\n    property Items: TStringList read FItems write SetItems;\r\n    property ItemIndex: Integer read GetItemIndex write SetItemIndex default -1;\r\n    property Text: string read GetText write SetText;\r\n    property PopupHeight: Integer read FPopupHeight write SetPopupHeight default 0;\r\n    property PopupClassName: string read FPopupClassName write SetPopupClassName;\r\n    property ItemClassName: string read FItemClassName write SetItemClassName;\r\n    property ActiveItemClassName: string read FActiveItemClassName write SetActiveItemClassName;\r\n    property LookupType: TEditAutoCompleteLookupType read FLookupType write SetLookupType default ltFirstCharacter;\r\n    property LookupCaseSensitive: Boolean read FLookupCaseSensitive write SetLookupCaseSensitive default False;\r\n    property LookupMinLength: Integer read FlookupMinLength write SetLookupMinLength default 1;\r\n\r\n\r\n    property OnRenderItem: TEditAutoCompleteRenderItemEvent read FOnRenderItem write FOnRenderItem;\r\n    property OnSelect: TEditAutoCompleteSelectEvent read FOnSelect write FOnSelect;\r\n    property OnLookupUpdate: TEditAutoCompleteLookupUpdateEvent read FOnLookupUpdate write FOnLookupUpdate;\r\n  end;\r\n\r\n  TWebEditAutoComplete = class(TEditAutoComplete);\r\n\r\nimplementation\r\n\r\n\r\n{ TEditAutoComplete }\r\n\r\nprocedure TEditAutoComplete.BindEvents;\r\nvar\r\n  eh: TJSEventTarget;\r\nbegin\r\n  if Assigned(ElementInputHandle) then\r\n  begin\r\n    eh := ElementInputHandle;\r\n\r\n    eh.addEventListener('input',@HandleDoChange);\r\n    eh.addEventListener('click',@HandleDoClick);\r\n    eh.addEventListener('dblclick',@HandleDoDblClick);\r\n    eh.addEventListener('mousedown',@HandleDoMouseDown);\r\n    eh.addEventListener('mouseup',@HandleDoMouseUp);\r\n    eh.addEventListener('mousemove',@HandleDoMouseMove);\r\n    eh.addEventListener('mouseleave',@HandleDoMouseLeave);\r\n    eh.addEventListener('mouseenter',@HandleDoMouseEnter);\r\n    eh.addEventListener('keydown',@HandleDoKeyDown);\r\n    eh.addEventListener('keyup',@HandleDoKeyUp);\r\n    eh.addEventListener('keypress',@HandleDoKeyPress);\r\n    eh.addEventListener('focus',@HandleDoEnter);\r\n    eh.addEventListener('blur',@HandleDoExit);\r\n  end;\r\nend;\r\n\r\nprocedure TEditAutoComplete.Change;\r\nbegin\r\n  if Assigned(ElementHandle) then\r\n    FText := ElementInputHandle.value;\r\n\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nfunction TEditAutoComplete.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('DIV');\r\nend;\r\n\r\nprocedure TEditAutoComplete.CreateInitialize;\r\nbegin\r\n  FItems := TStringList.Create;\r\n  FText := '';\r\n  FItemIndex := -1;\r\n  FPopupHeight := 0;\r\n  FPopupClassName := '';\r\n  FItemClassName := '';\r\n  FActiveItemClassName := '';\r\n  FLookupType := ltFirstCharacter;\r\n  FLookupMinLength := 1;\r\n  FLookupCaseSensitive := False;\r\n  FAutoSelect := false;\r\n\r\n  inherited;\r\n\r\n  TabStop := True;\r\n  ReadOnly := False;\r\n  ElementFont := efProperty;\r\n  CharCase := wecNormal;\r\n  Width := 121;\r\n  Height := 25;\r\n\r\n  if (1 < 0) then\r\n    GetValuesUpdate(nil,'');  // enure this method does not get optimized away\r\nend;\r\n\r\ndestructor TEditAutoComplete.Destroy;\r\nbegin\r\n  FItems.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TEditAutoComplete.GetElementInputHandle: TJSHTMLInputElement;\r\nbegin\r\n  Result := TJSHTMLInputElement(ElementHandle.childNodes[0]);\r\nend;\r\n\r\nfunction TEditAutoComplete.GetItemIndex: Integer;\r\nbegin\r\n  Result := FItemIndex;\r\n\r\n  if not Assigned(ElementHandle) then\r\n    Exit;\r\n\r\n  Result := Items.IndexOf(Text);\r\nend;\r\n\r\nfunction TEditAutoComplete.GetText: string;\r\nvar\r\n  input: TJSHTMLInputElement;\r\nbegin\r\n  Result := FText;\r\n\r\n  if not Assigned(ElementHandle) then\r\n    Exit;\r\n\r\n  input := TJSHTMLInputElement(ElementHandle.childNodes[0]);\r\n  if Assigned(input) then\r\n    Result := input.value;\r\nend;\r\n\r\nprocedure TEditAutoComplete.GetValuesUpdate(Items: TJSArray; Lookup: string);\r\nbegin\r\n  if Assigned(OnLookupUpdate) then\r\n    OnLookupUpdate(Self, Items, Lookup);\r\nend;\r\n\r\nfunction TEditAutoComplete.HandleDoChange(Event: TJSMouseEvent): Boolean;\r\nbegin\r\n  Change;\r\n  Result := True;\r\nend;\r\n\r\nfunction TEditAutoComplete.HandleRenderItem(Item: TJSHTMLElement; Index: Integer): TJSHTMLElement;\r\nvar\r\n  Args: TEditAutoCompleteRenderItemEventArgs;\r\nbegin\r\n  if Assigned(OnRenderItem) then\r\n  begin\r\n    Args := TEditAutoCompleteRenderItemEventArgs.Create;\r\n    Args.ItemElement := Item;\r\n    Args.ItemIndex := Index;\r\n    OnRenderItem(Self, Args);\r\n    Args.Free;\r\n  end;\r\n  Result := Item;\r\nend;\r\n\r\nfunction TEditAutoComplete.HandleSelect(Index: Integer): Boolean;\r\nvar\r\n  Args: TEditAutoCompleteSelectEventArgs;\r\nbegin\r\n  if Assigned(OnSelect) then\r\n  begin\r\n    Args := TEditAutoCompleteSelectEventArgs.Create;\r\n    Args.ItemIndex := Index;\r\n    OnSelect(Self, Args);\r\n    Args.Free;\r\n  end;\r\n  if AutoSelect then\r\n    FInputElement.select;\r\n\r\n  Result := True;\r\nend;\r\n\r\nprocedure TEditAutoComplete.InitCSSLibrary(ALibrary: TCSSLibrary);\r\nbegin\r\n  if (ALibrary = cssBootstrap) then\r\n  begin\r\n    ElementClassName := 'form-control';\r\n    ElementFont := efCSS;\r\n    HeightStyle := ssAuto;\r\n  end;\r\nend;\r\n\r\nprocedure TEditAutoComplete.Refresh;\r\nbegin\r\n //\r\nend;\r\n\r\nprocedure TEditAutoComplete.SetActiveItemClassName(const Value: string);\r\nbegin\r\n  if FActiveItemClassName <> Value then\r\n  begin\r\n    FActiveItemClassName := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TEditAutoComplete.SetCharcase(const Value: TEditCharCase);\r\nbegin\r\n  if FCharCase <> Value then\r\n  begin\r\n    FCharCase := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TEditAutoComplete.SetFocus;\r\nvar\r\n  input: TJSHTMLInputElement;\r\nbegin\r\n  input := TJSHTMLInputElement(ElementHandle.childNodes[0]);\r\n  if Assigned(input) then\r\n  begin\r\n    input.focus();\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TEditAutoComplete.SetItemClassName(const Value: string);\r\nbegin\r\n  if FItemClassName <> Value then\r\n  begin\r\n    FItemClassName := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TEditAutoComplete.SetItemIndex(const Value: Integer);\r\nbegin\r\n  if (FItemIndex <> Value) and (Value < Items.Count) then\r\n  begin\r\n    FItemIndex := Value;\r\n    if FItemIndex >= 0 then\r\n      Text := Items[FItemIndex]\r\n    else\r\n      Text := '';\r\n    UpdateElement;\r\n  end;\r\n\r\n  if Value = -100 then\r\n  begin\r\n    HandleRenderItem(nil,-100);\r\n    HandleSelect(-100);\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TEditAutoComplete.SetItems(const Value: TStringList);\r\nbegin\r\n  FItems.Assign(Value);\r\nend;\r\n\r\nprocedure TEditAutoComplete.SetLookupCaseSensitive(const Value: Boolean);\r\nbegin\r\n  if FlookupCaseSensitive <> Value then\r\n  begin\r\n    FLookupCaseSensitive := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TEditAutoComplete.SetLookupMinLength(const Value: Integer);\r\nbegin\r\n  if (FLookupMinLength <> Value) and (Value > 0) then\r\n  begin\r\n    FlookupMinLength := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TEditAutoComplete.SetLookupType(\r\n  const Value: TEditAutoCompleteLookupType);\r\nbegin\r\n  if FLookupType <> Value then\r\n  begin\r\n    FLookupType := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TEditAutoComplete.SetPopupClassName(const Value: string);\r\nbegin\r\n  if FPopupClassName <> Value then\r\n  begin\r\n    FPopupClassName := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TEditAutoComplete.SetPopupHeight(const Value: Integer);\r\nbegin\r\n  if FPopupHeight <> Value then\r\n  begin\r\n    FPopupHeight := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TEditAutoComplete.SetReadOnly(const Value: boolean);\r\nbegin\r\n  if FReadOnly <> Value then\r\n  begin\r\n    FReadOnly := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TEditAutoComplete.SetText(const Value: string);\r\nbegin\r\n  if FText <> Value then\r\n  begin\r\n    FText := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TEditAutoComplete.SetTextHint(const Value: string);\r\nbegin\r\n  if FTextHint <> Value then\r\n  begin\r\n    FTextHint := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TEditAutoComplete.AddScript(Script: string);\r\nbegin\r\n  asm\r\n    var scrObj = document.createElement('script');\r\n    scrObj.innerHTML = Script;\r\n    document.head.appendChild(scrObj);\r\n  end;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TEditAutoComplete.UpdateElement;\r\nvar\r\n  elid, sstyle: string;\r\n  classpopup, classitem, classactive: string;\r\n  newel: TJSHTMLElement;\r\n  itemdata: TJSArray;\r\n  I: Integer;\r\n  spopup, tabindex: string;\r\n  cl: TObject;\r\n\r\nbegin\r\n  inherited;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  if not Assigned(ElementHandle) then\r\n    Exit;\r\n\r\n  elid := ElementID + '_input';\r\n\r\n  if PopupClassName = '' then\r\n    classpopup := ElementID + '_autocomplete-items'\r\n  else\r\n    classpopup := PopupClassName;\r\n\r\n  if ItemClassName = '' then\r\n    classitem := ElementID + '_autocomplete-item'\r\n  else\r\n    classitem := ItemClassName;\r\n\r\n  if ActiveItemClassName = '' then\r\n    classactive := ElementID + '_active-item'\r\n  else\r\n    classactive := ActiveItemClassName;\r\n\r\n  ElementHandle.style.setProperty('overflow', 'visible');\r\n  ElementHandle.setAttribute('tabindex', '-1');\r\n  ElementHandle.removeAttribute('class');\r\n  while ElementHandle.hasChildNodes do\r\n    ElementHandle.removeChild(ElementHandle.firstChild);\r\n\r\n  newel := TJSHTMLElement(document.createElement('input'));\r\n\r\n  FInputElement := TJSHTMLInputElement(newel);\r\n\r\n  if ElementClassName <> '' then\r\n    newel.setAttribute('class', ElementClassName);\r\n  newel.setAttribute('type', 'text');\r\n  newel.setAttribute('id', elid);\r\n  newel.setAttribute('autocomplete','off');\r\n  newel.style.setProperty('width', '100%');\r\n  newel.style.setProperty('height', '100%');\r\n\r\n  if Enabled then\r\n    newel.removeAttribute('disabled')\r\n  else\r\n    newel.setAttribute('disabled', 'true');\r\n\r\n  if ReadOnly then\r\n    newel.setAttribute('readonly', 'true')\r\n  else\r\n    newel.removeAttribute('readonly');\r\n\r\n  if TabStop then\r\n    tabindex := IntToStr(TabOrder)\r\n  else\r\n    tabindex := '-1';\r\n  newel.setAttribute('tabindex', tabindex);\r\n\r\n  newel.setAttribute('placeholder', TextHint);\r\n\r\n  newel.style.setProperty('background-color', ColorToHtml(color));\r\n\r\n  if ElementClassName = '' then\r\n  begin\r\n    if Enabled and (ElementFont = efProperty) then\r\n      newel.style.setProperty('color', ColorToHtml(Font.Color));\r\n  end;\r\n\r\n  SetHTMLElementFont(newel, Font, not ((ElementClassName = '') and (ElementFont = efProperty)));\r\n\r\n  case CharCase of\r\n    wecUpperCase: newel.style.setProperty('text-transform', 'uppercase');\r\n    wecLowerCase: newel.style.setProperty('text-transform', 'lowercase');\r\n    wecMixedCase: newel.style.setProperty('text-transform', 'capitalize');\r\n    wecNormal: newel.style.setProperty('text-transform', 'initial');\r\n  end;\r\n\r\n//  newel.style.setProperty('width', IntToStr(Width) + 'px');\r\n//  newel.style.setProperty('height', IntToStr(Height) + 'px');\r\n  newel.style.setProperty('box-sizing', 'border-box');\r\n  newel.setAttribute('value', Text);\r\n  ElementHandle.appendChild(newel);\r\n\r\n  newel := TJSHTMLElement(document.createElement('input'));\r\n  newel.setAttribute('type', 'hidden');\r\n  newel.setAttribute('id', elid + 'index');\r\n  ElementHandle.appendChild(newel);\r\n\r\n  BindEvents;\r\n\r\n  if PopupHeight > 0 then\r\n  begin\r\n    spopup :=\r\n      '  max-height: ' + IntToStr(PopupHeight) + 'px;' + #13 +\r\n      '  overflow: auto;' + #13;\r\n  end;\r\n\r\n  sstyle :=\r\n    '#' + ElementID + ' input[type=text] {' + #13 +\r\n    '  width: 100%;' + #13 +\r\n    '}' + #13 +\r\n\r\n    '.' + classpopup + ' {' + #13 +\r\n    '  position: absolute;' + #13 +\r\n    '  z-index: 99;' + #13 +\r\n    '  top: 100%;' + #13 +\r\n    '  min-width: 100%;' + #13 +\r\n//    '  width: 100%;' + #13 +\r\n    '  left: 0;' + #13 +\r\n//    '  right: 0;' + #13 +\r\n    spopup;\r\n\r\n  if PopupClassName = '' then\r\n  begin\r\n    sstyle := sstyle +\r\n      '  background-color: #fff;' + #13 +\r\n      '  border: 1px solid #d4d4d4;'\r\n  end;\r\n\r\n  sstyle := sstyle +\r\n    '}' + #13;\r\n\r\n  if ItemClassName = '' then\r\n  begin\r\n    sstyle := sstyle +\r\n      '.' + classitem + ' {' + #13 +\r\n      '  padding: 10px;' + #13 +\r\n      '  cursor: pointer;' + #13 +\r\n      '  border-bottom: 1px solid #d4d4d4;' + #13 +\r\n      '}' + #13 +\r\n\r\n      '.' + classitem + ':hover {' + #13 +\r\n      '  background-color: #e9e9e9 !important;' + #13 +\r\n      '}' + #13;\r\n  end;\r\n\r\n  if ActiveItemClassName = '' then\r\n  begin\r\n    sstyle := sstyle +\r\n      '.' + classactive + ' {' + #13 +\r\n      '  background-color: #e9e9e9 !important;' + #13 +\r\n      '  color: #000;' + #13 +\r\n      '}';\r\n  end;\r\n\r\n  AddInstanceStyle(sstyle);\r\n\r\n  AddScript(\r\n    'function doautocomplete(obj, inp, hinp, arr, myclass) {' + #13 +\r\n    '  var currentFocus;' + #13 +\r\n    '  inp.addEventListener(\"input\", function(e) {' + #13 +\r\n    '      var a, b, i, h, lookup, minlength, cs, found, val = this.value;' + #13 +\r\n    '      lookup = ' + IntToStr(Ord(LookupType)) + ';' + #13 +\r\n    '      minlength = ' + IntToStr(LookupMinLength) + ';' + #13 +\r\n    '      cs = ' + BoolToStr(LookupCaseSensitive) + ';' + #13 +\r\n\r\n    '      ' + elid + 'closeAllLists();' + #13 +\r\n\r\n    '      if (!val) { return false;}' + #13 +\r\n    '      if (val.length < minlength) { return false;}' + #13 +\r\n\r\n    '      currentFocus = -1;' + #13 +\r\n    '      a = document.createElement(\"DIV\");' + #13 +\r\n    '      a.setAttribute(\"id\", this.id + \"autocomplete-list\");' + #13 +\r\n    '      a.setAttribute(\"class\", \"' + classpopup + '\");' + #13 +\r\n    '      a.addEventListener(\"mousedown\", function (e) {' + #13 +\r\n    '           e.preventDefault();' + #13 +\r\n    '      });' + #13 +\r\n    '      this.parentNode.appendChild(a);' + #13 +\r\n    '      obj.GetValuesUpdate(arr, val);'+#13+\r\n    '      for (i = 0; i < arr.length; i++) {' + #13 +\r\n    '        var q = val;' + #13 +\r\n    '        var l = arr[i];' + #13 +\r\n    '        var s = l;' + #13 +\r\n    '        if (!cs) {' + #13 +\r\n    '          q = q.toUpperCase();' + #13 +\r\n    '          l = l.toUpperCase();' + #13 +\r\n    '        }' + #13 +\r\n\r\n    '        found = false;' + #13 +\r\n    '        if ((lookup == 0) && (l.substr(0, q.length) == q)) {' + #13 +\r\n    '          found = true;' + #13 +\r\n    '          s = \"<strong>\" + arr[i].substr(0, val.length) + \"</strong>\";' + #13 +\r\n    '          s += arr[i].substr(val.length);' + #13 +\r\n    '        }' + #13 +\r\n    '        else if ((lookup == 1) && (l.indexOf(q) >= 0)) {' + #13 +\r\n    '          found = true;' + #13 +\r\n    '          s = arr[i].substr(0, l.indexOf(q));' + #13 +\r\n    '          s += \"<strong>\" + arr[i].substr(l.indexOf(q), val.length) + \"</strong>\";' + #13 +\r\n    '          s += arr[i].substr(l.indexOf(q) + val.length);' + #13 +\r\n    '        }' + #13 +\r\n\r\n    '        if (found) {' + #13 +\r\n    '          b = document.createElement(\"DIV\");' + #13 +\r\n    '          b.setAttribute(\"id\", this.id + \"|\" + i);' + #13 +\r\n    '          b.setAttribute(\"class\", \"' + classitem + '\");' + #13 +\r\n    '          b.innerHTML = s;' + #13 +\r\n    '          b = myclass.HandleRenderItem(b, i);'+\r\n    '          b.addEventListener(\"click\", function(e) {' + #13 +\r\n    '              var selindex = this.id.substring(this.id.indexOf(\"|\") + 1, this.id.length);' + #13 +\r\n    '              inp.value = arr[selindex]' + #13 +\r\n    '              inp.focus();' + #13 +\r\n    '              hinp.value = selindex;' + #13 +\r\n    '              myclass.HandleSelect(selindex);'+\r\n    '              ' + elid + 'closeAllLists();' + #13 +\r\n    '          });' + #13 +\r\n    '          a.appendChild(b);' + #13 +\r\n    '        }' + #13 +\r\n    '      }' + #13 +\r\n    '      if (a.childNodes.length <= 0) ' + elid + 'closeAllLists();'+\r\n    '  });' + #13 +\r\n\r\n    '  inp.addEventListener(\"blur\", function(e) {' + #13 +\r\n    '       ' + elid + 'closeAllLists(e.target, true);' + #13 +\r\n    '  });' + #13 +\r\n\r\n    '  inp.addEventListener(\"keydown\", function(e) {' + #13 +\r\n    '      var popup = document.getElementById(this.id + \"autocomplete-list\");' + #13 +\r\n    '      var x;' + #13 +\r\n    '      if (popup) x = popup.getElementsByTagName(\"div\");' + #13 +\r\n    '      if (x) {' + #13 +\r\n    '        if (e.keyCode == 27) {' + #13 +\r\n    '         ' + elid + 'closeAllLists(e.target, true);' + #13 +\r\n    '        } else if (e.keyCode == 40) {' + #13 +\r\n    '          currentFocus++;' + #13 +\r\n    '          ' + elid + 'addActive(x);' + #13 +\r\n    '          if ((x[currentFocus].offsetTop + x[currentFocus].offsetHeight) > (popup.offsetHeight + popup.scrollTop))' +\r\n    '            popup.scrollTop = ((x[currentFocus].offsetTop + x[currentFocus].offsetHeight) - popup.offsetHeight);' + #13 +\r\n    '        } else if (e.keyCode == 38) { ' + #13 +\r\n    '          currentFocus--;' + #13 +\r\n    '          ' + elid + 'addActive(x);' + #13 +\r\n    '          if ((x[currentFocus].offsetTop) < (popup.scrollTop))' +\r\n    '            popup.scrollTop = (x[currentFocus].offsetTop);' + #13 +\r\n    '        } else if (e.keyCode == 13) {' + #13 +\r\n    '          e.preventDefault();' + #13 +\r\n    '          if (currentFocus > -1) {' + #13 +\r\n    '            if (x) x[currentFocus].click();' + #13 +\r\n    '          } else { '+elid +'closeAllLists(e.target,true);}' + #13 +\r\n    '        }' + #13 +\r\n    '      }' + #13 +\r\n    '  });' + #13 +\r\n    '  function ' + elid + 'addActive(x) {' + #13 +\r\n    '    if (!x) return false;' + #13 +\r\n    '    ' + elid + 'removeActive(x);' + #13 +\r\n    '    if (currentFocus >= x.length) currentFocus = x.length - 1;' + #13 +\r\n    '    if (currentFocus < 0) currentFocus = 0;' + #13 +\r\n    '    x[currentFocus].classList.add(\"' + classactive + '\");' + #13 +\r\n    '  }' + #13 +\r\n    '  function ' + elid + 'removeActive(x) {' + #13 +\r\n    '    for (var i = 0; i < x.length; i++) {' + #13 +\r\n    '      x[i].classList.remove(\"' + classactive + '\");' + #13 +\r\n    '    }' + #13 +\r\n    '  }' + #13 +\r\n    '  function ' + elid + 'closeAllLists(elmnt, doblur) {' + #13 +\r\n    '    var x = document.getElementsByClassName(\"' + classpopup + '\");' + #13 +\r\n    '    var isinput = (elmnt != inp);' + #13 +\r\n    '    if (doblur) isinput = (elmnt == inp);' + #13 +\r\n    '    for (var i = 0; i < x.length; i++) {' + #13 +\r\n    '      if (elmnt != x[i] && isinput) {' + #13 +\r\n    '        x[i].parentNode.removeChild(x[i]);' + #13 +\r\n    '      }' + #13 +\r\n    '    }' + #13 +\r\n    '  }' + #13 +\r\n    '  document.addEventListener(\"click\", function (e) {' + #13 +\r\n    '       ' + elid + 'closeAllLists(e.target);' + #13 +\r\n    '  });' + #13 +\r\n    '}'\r\n  );\r\n\r\n  itemdata := TJSArray.new;\r\n  for I := 0 to Items.Count - 1 do\r\n  begin\r\n    itemdata.push(Items[I]);\r\n  end;\r\n\r\n  cl := Self;\r\n  asm\r\n    //cl = this;\r\n    var el = document.getElementById(elid);\r\n    var elindex = document.getElementById(elid + 'index');\r\n    if (el && elindex)\r\n      doautocomplete(this, el, elindex, itemdata, cl);\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            Copyright (c) 2018 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.Lists;\r\n\r\n{$DEFINE NOPP}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, Web, WEBLib.Controls, WEBLib.Dialogs, WEBLib.Menus;\r\n\r\ntype\r\n  TListItem = class;\r\n  TListItems = class;\r\n  TListControl = class;\r\n\r\n  TListStyle = (lsNone, lsPagination, lsTabs, lsBreadcrumb, lsListGroup, lsListGroupHorizontal, lsNavPills, lsNavPillsHorizontal, lsDropDown);\r\n\r\n  TListGetItemClassEvent = procedure(Sender: TObject; AItem: TListItem; var AClassName: string) of object;\r\n\r\n  TListGetItemChildrenEvent = procedure(Sender: TObject; AItem: TListItem; AElement: TJSHTMLElementRecord) of object;\r\n\r\n  TListItemEvent = procedure(Sender: TObject; AListItem: TListItem) of object;\r\n\r\n  TListItem = class(TCollectionItem)\r\n  private\r\n    FItems: TListItems;\r\n    FLink: string;\r\n    FLinkTarget: string;\r\n    FText: string;\r\n    FItemClassName: TElementClassName;\r\n    FLinkClassName: TElementClassName;\r\n    FTag: integer;\r\n    FListElement: TJSElement;\r\n    FEnabled: boolean;\r\n    FActive: boolean;\r\n    FAutoCollaps: boolean;\r\n    FHint: string;\r\n    FHTMLChilds: integer;\r\n    FBackupElement: TJSElement;\r\n    FBackupCollapse: boolean;\r\n    FLinkElement: TJSElement;\r\n    FData: string;\r\n    FAbsIndex: integer;\r\n    procedure SetItems(const Value: TListItems);\r\n    procedure SetLink(const Value: string);\r\n    procedure SetText(const Value: string);\r\n    procedure SetActive(const Value: boolean);\r\n    procedure SetEnabled(const Value: boolean);\r\n    procedure SetAutoCollaps(const Value: boolean);\r\n    procedure SetHint(const Value: string);\r\n  protected\r\n    procedure SubItemsChanged(Sender: TObject); virtual;\r\n    property AbsIndex: integer read FAbsIndex write FAbsIndex;\r\n  public\r\n    constructor Create(Collection: TCollection); override;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    function ItemId: string;\r\n    procedure Store;\r\n    procedure Restore;\r\n  public\r\n    property ListElement: TJSElement read FListElement;\r\n    property LinkElement: TJSElement read FLinkElement;\r\n    procedure AddLink(const AURL: string; ATarget: string = ''); overload;\r\n    procedure AddLink(const AURL: string; ATarget: string; AClass: string); overload;\r\n    function IsLink: boolean;\r\n    function IsCollapsed: boolean;\r\n    procedure Expand;\r\n    procedure Collapse;\r\n    property Data: string read FData write FData;\r\n  published\r\n    property Active: boolean read FActive write SetActive;\r\n    property AutoCollaps: boolean read FAutoCollaps write SetAutoCollaps;\r\n    property Enabled: boolean read FEnabled write SetEnabled;\r\n    property Hint: string read FHint write SetHint;\r\n    property ItemClassName: TElementClassName read FItemClassName write FItemClassName;\r\n    property Items: TListItems read FItems write SetItems;\r\n    property Link: string read FLink write SetLink;\r\n    property LinkClassName: TElementClassName read FLinkClassName write FLinkClassName;\r\n    property LinkTarget: string read FLinkTarget write FLinkTarget;\r\n    property Tag: integer read FTag write FTag;\r\n    property Text: string read FText write SetText;\r\n  end;\r\n\r\n  TListItems = class(TOwnedCollection)\r\n  private\r\n    FOnChange: TNotifyEvent;\r\n    function GetItem(Index: integer): TListItem; reintroduce;\r\n    procedure SetItem(Index: integer; const Value: TListItem);\r\n    function GetListControl: TListControl;\r\n  protected\r\n    procedure Update(Item: TCollectionItem); override;\r\n    procedure DoChanged; virtual;\r\n    procedure Store;\r\n    procedure Restore;\r\n  public\r\n    constructor Create(AOwner: TPersistent);\r\n    function Add: TListItem; reintroduce;\r\n    function Insert(Index: integer): TListItem; reintroduce;\r\n    property Items[Index: integer]: TListItem read GetItem write SetItem; default;\r\n    property ListControl: TListControl read GetListControl;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  end;\r\n\r\n  TListControl = class(TWebCustomControl)\r\n  private\r\n    FItems: TListItems;\r\n    FElementListClassName: TElementClassName;\r\n    FOnGetItemChildren: TListGetItemChildrenEvent;\r\n    FOnGetItemClass: TListGetItemClassEvent;\r\n    FOnItemDblClick: TListItemEvent;\r\n    FOnItemClick: TListItemEvent;\r\n    FDefaultItemClassName: string;\r\n    FDefaultItemLinkClassName: string;\r\n    FListStyle: TListStyle;\r\n    FMultiSelect: boolean;\r\n    FAutoSelect: boolean;\r\n    procedure SetItems(const Value: TListItems);\r\n    procedure SetListStyle(const Value: TListStyle);\r\n    procedure SetElementListClassName(const Value: TElementClassName);\r\n    function GetItemIndex: integer;\r\n    procedure SetItemIndex(const Value: integer);\r\n  protected\r\n    function HandleDoClick(Event: TJSMouseEvent): Boolean; override;\r\n    function HandleDoDblClick(Event: TJSMouseEvent): Boolean; override;\r\n    function HandleDoAnchorClick(Event: TJSEvent): Boolean; virtual;\r\n    procedure ItemsChanged(Sender: TObject); virtual;\r\n    procedure ItemClick(AItem: TListItem); virtual;\r\n    procedure ItemDblClick(AItem: TListItem); virtual;\r\n    procedure GetItemClass(Item: TListItem; var AClass: string); virtual;\r\n    procedure GetItemChildren(Item: TListItem; AElement: TJSHTMLElement); virtual;\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElement; override;\r\n    procedure RenderList(AElement: TJSElement; Items: TListItems; var AIndex: integer);\r\n    function ListItemByElement(AElement: TJSElement): TListItem;\r\n    procedure EnableDrag; override;\r\n    procedure DisableDrag; override;\r\n    procedure InitCSSLibrary(ALibrary: TCSSLibrary); override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;  overload;\r\n    destructor Destroy; override;\r\n    procedure CreateInitialize; override;\r\n    function ListElement: TJSHTMLElement;\r\n    procedure SetFilter(Condition: string; CaseSensitive: boolean = true);\r\n    procedure RemoveFilter;\r\n    property ItemIndex: integer read GetItemIndex write SetItemIndex;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property AutoSelect: boolean read FAutoSelect write FAutoSelect default false;\r\n    property ChildOrder;\r\n    property DefaultItemClassName: string read FDefaultItemClassName write FDefaultItemClassName;\r\n    property DefaultItemLinkClassName: string read FDefaultItemLinkClassName write FDefaultItemLinkClassName;\r\n    property DragMode;\r\n    property ElementClassName;\r\n    property ElementFont;\r\n    property ElementID;\r\n    property ElementPosition;\r\n    property ElementListClassName: TElementClassName read FElementListClassName write SetElementListClassName;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Items: TListItems read FItems write SetItems;\r\n    property Margins;\r\n    property MultiSelect: boolean read FMultiSelect write FMultiSelect default false;\r\n    property PopupMenu;\r\n    property Style: TListStyle read FListStyle write SetListStyle;\r\n    property Visible;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n\r\n    property OnGetItemChildren: TListGetItemChildrenEvent read FOnGetItemChildren write FOnGetItemChildren;\r\n    property OnGetItemClass: TListGetItemClassEvent read FOnGetItemClass write FOnGetItemClass;\r\n    property OnItemClick: TListItemEvent read FOnItemClick write FOnItemClick;\r\n    property OnItemDblClick: TListItemEvent read FOnItemDblClick write FOnItemDblClick;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebListControl = class(TListControl);\r\n\r\nimplementation\r\n\r\nuses\r\n  SysUtils, WEBLib.Utils, WEBLib.Forms;\r\n\r\n{ TListItems }\r\n\r\nfunction TListItems.Add: TListItem;\r\nbegin\r\n  Result := TListItem(inherited Add);\r\nend;\r\n\r\nconstructor TListItems.Create(AOwner: TPersistent);\r\nbegin\r\n  inherited Create(AOwner, TListItem);\r\nend;\r\n\r\nprocedure TListItems.DoChanged;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nfunction TListItems.GetItem(Index: integer): TListItem;\r\nbegin\r\n  Result := TListItem(inherited Items[Index]);\r\nend;\r\n\r\nfunction TListItems.GetListControl: TListControl;\r\n\r\n  function FindListControl(AOwner: TPersistent): TListControl;\r\n  begin\r\n    Result := nil;\r\n\r\n    if AOwner is TListControl then\r\n      Result := AOwner as TListControl\r\n    else\r\n    begin\r\n      if Assigned(AOwner) and (AOwner is TListItem) then\r\n      begin\r\n        Result := FindListControl((AOwner as TListItem).Collection.Owner);\r\n      end;\r\n    end;\r\n  end;\r\n\r\nbegin\r\n  Result := FindListControl(Self.Owner);\r\nend;\r\n\r\nfunction TListItems.Insert(Index: integer): TListItem;\r\nbegin\r\n  Result := TListItem(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TListItems.Restore;\r\nvar\r\n  i: integer;\r\nbegin\r\n  for i := 0 to Count - 1 do\r\n    Items[i].Restore;\r\nend;\r\n\r\nprocedure TListItems.SetItem(Index: integer; const Value: TListItem);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nprocedure TListItems.Store;\r\nvar\r\n  i: integer;\r\nbegin\r\n  for i := 0 to Count - 1 do\r\n    Items[i].Store;\r\nend;\r\n\r\nprocedure TListItems.Update(Item: TCollectionItem);\r\nbegin\r\n  inherited;\r\n  DoChanged;\r\nend;\r\n\r\n{ TListItem }\r\n\r\nprocedure TListItem.AddLink(const AURL: string; ATarget: string);\r\nbegin\r\n  AddLink(AURL, ATarget, '');\r\nend;\r\n\r\nprocedure TListItem.AddLink(const AURL: string; ATarget, AClass: string);\r\nbegin\r\n  FLink := AURL;\r\n  FLinkTarget := ATarget;\r\n  FLinkClassName := AClass;\r\n  Changed(false);\r\nend;\r\n\r\nprocedure TListItem.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TListItem) then\r\n  begin\r\n    FItemClassName := (Source as TListItem).ItemClassName;\r\n    FText := (Source as TListItem).Text;\r\n    FLink := (Source as TListItem).Link;\r\n    FLinkClassName := (Source as TListItem).LinkClassName;\r\n    FLinkTarget :=  (Source as TListItem).LinkTarget;\r\n    FItems.Assign((Source as TListItem).Items);\r\n    FTag := (Source as TListItem).Tag;\r\n    FEnabled := (Source as TListItem).Enabled;\r\n    FActive := (Source as TListItem).Active;\r\n    FHint := (Source as TListItem).Hint;\r\n  end;\r\nend;\r\n\r\nprocedure TListItem.Collapse;\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  if Assigned(FListElement) then\r\n  begin\r\n    el := FListElement.nextElementSibling;\r\n    if Assigned(el) and (el.tagName = 'DIV') then\r\n    begin\r\n      if el.classList.contains('show') then\r\n        el.classList.remove('show');\r\n    end;\r\n  end;\r\nend;\r\n\r\nconstructor TListItem.Create(Collection: TCollection);\r\nvar\r\n  ctrl: TListControl;\r\nbegin\r\n  FItems := TListItems.Create(Self);\r\n  FItems.PropName := 'Items';\r\n  FItems.OnChange := SubItemsChanged;\r\n  inherited;\r\n  FActive := false;\r\n  FEnabled := true;\r\n  FBackupElement := nil;\r\n  ctrl := (Collection as TListItems).ListControl;\r\n\r\n  if Assigned(ctrl) then\r\n  begin\r\n    FItemClassName := ctrl.DefaultItemClassName;\r\n    FLinkClassName := ctrl.DefaultItemLinkClassName;\r\n  end;\r\nend;\r\n\r\ndestructor TListItem.Destroy;\r\nbegin\r\n  FItems.Free;\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TListItem.Expand;\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  if Assigned(FListElement) then\r\n  begin\r\n    el := FListElement.nextElementSibling;\r\n    if Assigned(el) and (el.tagName = 'DIV') then\r\n    begin\r\n      if not el.classList.contains('show') then\r\n        el.classList.add('show');\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TListItem.IsCollapsed: boolean;\r\nvar\r\n  el: TJSElement;\r\nbegin\r\n  Result := true;\r\n  if Assigned(FListElement) then\r\n  begin\r\n    el := FListElement.nextElementSibling;\r\n    if Assigned(el) and (el.tagName = 'DIV') then\r\n    begin\r\n      Result := not el.classList.contains('show');\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TListItem.IsLink: boolean;\r\nbegin\r\n  Result := (Link <> '') {and (LinkClassName <> '')};\r\nend;\r\n\r\nfunction TListItem.ItemId: string;\r\nvar\r\n  itm: TListItem;\r\n\r\n  function IsSubItem(AItem: TListItem): boolean;\r\n  begin\r\n    Result := false;\r\n\r\n    if Assigned(AItem.Collection) and Assigned(AItem.Collection.Owner) then\r\n    begin\r\n      Result := AItem.Collection.Owner is TListItem;\r\n    end;\r\n  end;\r\n\r\nbegin\r\n  Result := IntToStr(Index);\r\n\r\n  itm := Self;\r\n\r\n  while IsSubItem(itm) do\r\n  begin\r\n    itm := itm.Collection.Owner as TListItem;\r\n    Result := Result + '_' + IntToStr(Index);\r\n  end;\r\nend;\r\n\r\nprocedure TListItem.Restore;\r\nvar\r\n  i: integer;\r\nbegin\r\n  if Assigned(FListElement) and Assigned(FBackupElement) then\r\n  begin\r\n    i := 0;\r\n\r\n    while FBackupElement.childElementCount > 0 do\r\n    begin\r\n      if i >= FHTMLChilds then\r\n        FListElement.appendChild(FBackupElement.firstElementChild)\r\n      else\r\n        FBackupElement.removeChild(FBackupElement.firstElementChild);\r\n    end;\r\n  end;\r\n\r\n  if not FBackupCollapse then\r\n    Expand;\r\n\r\n  Items.Restore;\r\nend;\r\n\r\nprocedure TListItem.SetActive(const Value: boolean);\r\nbegin\r\n  FActive := Value;\r\n  Changed(false);\r\nend;\r\n\r\nprocedure TListItem.SetAutoCollaps(const Value: boolean);\r\nbegin\r\n  FAutoCollaps := Value;\r\n  Changed(false);\r\nend;\r\n\r\nprocedure TListItem.SetEnabled(const Value: boolean);\r\nbegin\r\n  FEnabled := Value;\r\n  Changed(false);\r\nend;\r\n\r\nprocedure TListItem.SetHint(const Value: string);\r\nbegin\r\n  FHint := Value;\r\n  Changed(false);\r\nend;\r\n\r\nprocedure TListItem.SetItems(const Value: TListItems);\r\nbegin\r\n  FItems.Assign(Value);\r\nend;\r\n\r\nprocedure TListItem.SetLink(const Value: string);\r\nbegin\r\n  FLink := Value;\r\n  Changed(false);\r\nend;\r\n\r\nprocedure TListItem.SetText(const Value: string);\r\nbegin\r\n  FText := Value;\r\n  Changed(false);\r\nend;\r\n\r\nprocedure TListItem.Store;\r\nbegin\r\n  if not Assigned(FBackupElement) then\r\n    FBackupElement := document.createElement('SPAN');\r\n\r\n  FBackupCollapse := IsCollapsed;\r\n\r\n  if Assigned(FListElement) then\r\n    while FListElement.childElementCount > 0 do\r\n    begin\r\n      FBackupElement.appendChild(FListElement.firstElementChild);\r\n    end;\r\n\r\n  Items.Store;\r\nend;\r\n\r\nprocedure TListItem.SubItemsChanged(Sender: TObject);\r\nbegin\r\n  Changed(false);\r\nend;\r\n\r\n{ TListControl }\r\n\r\nconstructor TListControl.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  TabStop := false;\r\n  WidthStyle := ssAbsolute;\r\n  HeightStyle := ssAbsolute;\r\n  WidthPercent := 100;\r\n  HeightPercent := 100;\r\n  ElementPosition := epAbsolute;\r\n  Style := lsNone;\r\nend;\r\n\r\nfunction TListControl.CreateElement: TJSElement;\r\nbegin\r\n  if Style = lsDropDown then\r\n    Result := document.createElement('UL')\r\n  else\r\n  begin\r\n    Result := document.createElement('DIV');\r\n    Result.appendChild(document.createElement('UL'));\r\n  end;\r\nend;\r\n\r\nprocedure TListControl.CreateInitialize;\r\nbegin\r\n  inherited;\r\n\r\n  FItems := TListItems.Create(Self);\r\n\r\n  Width := 280;\r\n  Height := 240;\r\n\r\n  if DesignTime then\r\n  begin\r\n    FItems.Add.Text := 'Item 1';\r\n    FItems.Add.Text := 'Item 2';\r\n    FItems.Add.Text := 'Item 3';\r\n  end;\r\n\r\n  FItems.OnChange := ItemsChanged;\r\nend;\r\n\r\ndestructor TListControl.Destroy;\r\nbegin\r\n  FItems.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TListControl.DisableDrag;\r\n  procedure RemoveDraggableAttribute(AElement: TJSElement);\r\n  var\r\n    I: Integer;\r\n  begin\r\n    for I := 0 to AElement.children.length - 1 do\r\n    begin\r\n      if TJSElement(AElement.children[I]).tagName = 'LI' then\r\n      begin\r\n        TJSElement(AElement.children[I]).removeAttribute('draggable');\r\n        RemoveDraggableAttribute(TJSElement(AElement.children[I]));\r\n      end\r\n      else\r\n        RemoveDraggableAttribute(TJSElement(AElement.children[I]));\r\n    end;\r\n  end;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  RemoveDraggableAttribute(Container);\r\nend;\r\n\r\nprocedure TListControl.EnableDrag;\r\n  procedure AddDraggableAttribute(AElement: TJSElement);\r\n  var\r\n    I: Integer;\r\n  begin\r\n    for I := 0 to AElement.children.length - 1 do\r\n    begin\r\n      if TJSElement(AElement.children[I]).tagName = 'LI' then\r\n      begin\r\n        TJSElement(AElement.children[I]).Attrs['draggable'] := 'true';\r\n        AddDraggableAttribute(TJSElement(AElement.children[I]));\r\n      end\r\n      else\r\n        AddDraggableAttribute(TJSElement(AElement.children[I]));\r\n    end;\r\n  end;\r\nbegin\r\n  if not Assigned(Container) then\r\n    Exit;\r\n\r\n  AddDraggableAttribute(Container);\r\nend;\r\n\r\nprocedure TListControl.GetItemChildren(Item: TListItem;\r\n  AElement: TJSHTMLElement);\r\nvar\r\n  LElementRec: TJSHTMLElementRecord;\r\nbegin\r\n  LElementRec.element := AElement;\r\n  if Assigned(OnGetItemChildren) then\r\n    OnGetItemChildren(Self, Item, LElementRec);\r\nend;\r\n\r\nprocedure TListControl.GetItemClass(Item: TListItem; var AClass: string);\r\nbegin\r\n  if Assigned(OnGetItemClass) then\r\n    OnGetItemClass(Self, Item, AClass);\r\nend;\r\n\r\nfunction TListControl.GetItemIndex: integer;\r\nvar\r\n  i: integer;\r\nbegin\r\n  Result := -1;\r\n\r\n  for i := 0 to Items.Count - 1  do\r\n  begin\r\n    if Items[i].Active then\r\n    begin\r\n      Result := i;\r\n      break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TListControl.HandleDoAnchorClick(Event: TJSEvent): Boolean;\r\nvar\r\n  li: TListItem;\r\nbegin\r\n  li := ListItemByElement(TJSElement(Event.targetElement.parentNode));\r\n\r\n  if Assigned(li) then\r\n    ItemClick(li);\r\n\r\n  Result := false;\r\nend;\r\n\r\nfunction TListControl.HandleDoClick(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  li: TListItem;\r\nbegin\r\n  if Assigned(OnItemClick) then\r\n  begin\r\n    event.preventDefault;\r\n    event.stopPropagation;\r\n  end;\r\n\r\n  li := ListItemByElement(Event.targetElement);\r\n\r\n  if Assigned(li) then\r\n  begin\r\n\r\n    if AutoSelect then\r\n    begin\r\n      if MultiSelect then\r\n        li.Active := not li.Active\r\n      else\r\n      begin\r\n        ItemIndex := li.AbsIndex;\r\n      end;\r\n    end;\r\n\r\n    if Assigned(li) then\r\n      ItemClick(li);\r\n  end;\r\n\r\n  Result := false;\r\nend;\r\n\r\nfunction TListControl.HandleDoDblClick(Event: TJSMouseEvent): Boolean;\r\nvar\r\n  li: TListItem;\r\nbegin\r\n  li := ListItemByElement(Event.targetElement);\r\n\r\n  if Assigned(li) then\r\n    ItemDblClick(li);\r\n\r\n  Result := false;\r\nend;\r\n\r\nprocedure TListControl.InitCSSLibrary(ALibrary: TCSSLibrary);\r\nbegin\r\n  if (ALibrary = cssBootstrap) then\r\n  begin\r\n    DefaultItemClassName := 'list-group-item';\r\n    ElementListClassName := 'list-group';\r\n    ElementFont := efCSS;\r\n    HeightStyle := ssAuto;\r\n    Style := lsListGroup;\r\n  end;\r\nend;\r\n\r\nprocedure TListControl.ItemClick(AItem: TListItem);\r\nbegin\r\n  if Assigned(OnItemClick) then\r\n    OnItemClick(Self, AItem);\r\nend;\r\n\r\nprocedure TListControl.ItemDblClick(AItem: TListItem);\r\nbegin\r\n  if Assigned(OnItemDblClick) then\r\n    OnItemDblClick(Self, AItem);\r\nend;\r\n\r\nprocedure TListControl.ItemsChanged(Sender: TObject);\r\nvar\r\n  ul: TJSElement;\r\n  idx: integer;\r\nbegin\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    ul := ListElement;\r\n\r\n    if Assigned(ul) then\r\n    begin\r\n      if Style = lsListGroup then\r\n        Items.Store;\r\n\r\n      while Assigned(ul.firstChild) do\r\n        ul.removeChild(ul.firstChild);\r\n\r\n      if ElementListClassName <> '' then\r\n        ul.setAttribute('class', ElementListClassName);\r\n\r\n      idx := 0;\r\n      RenderList(ul, Items, idx);\r\n\r\n      if Style = lsListGroup then\r\n        Items.Restore;\r\n    end;\r\n\r\n    if (csDesigning in ComponentState) then\r\n      UpdateElement;\r\n  end;\r\nend;\r\n\r\nfunction TListControl.ListElement: TJSHTMLElement;\r\nbegin\r\n  Result := nil;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    if (ElementHandle.TagName = 'UL') then\r\n    begin\r\n      Result := ElementHandle;\r\n      Exit;\r\n    end;\r\n\r\n    if IsLinked then\r\n    begin\r\n      if ElementHandle.TagName = 'UL' then\r\n      begin\r\n        Result := ElementHandle;\r\n        Exit;\r\n      end;\r\n    end;\r\n\r\n    if (ElementHandle.childElementCount > 0) then\r\n    begin\r\n      Result := TJSHTMLElement(ElementHandle.firstChild);\r\n    end\r\n    else\r\n    begin\r\n      Result := TJSHTMLElement(document.createElement('UL'));\r\n      ElementHandle.insertAdjacentElement('afterbegin',Result);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TListControl.ListItemByElement(AElement: TJSElement): TListItem;\r\n\r\n  function SearchElement(AItems: TListItems): TListItem;\r\n  var\r\n     i: integer;\r\n  begin\r\n    Result := nil;\r\n\r\n    for i := 0 to AItems.Count - 1 do\r\n    begin\r\n\r\n      if AItems[i].ListElement = AElement then\r\n      begin\r\n        Result := AItems[i];\r\n        Break;\r\n      end;\r\n\r\n      if AItems[i].Items.Count > 0 then\r\n      begin\r\n        Result := SearchElement(AItems[i].Items);\r\n        if Assigned(Result) then\r\n          break;\r\n      end;\r\n    end;\r\n  end;\r\n\r\nbegin\r\n  Result := SearchElement(Items);\r\nend;\r\n\r\nprocedure TListControl.RemoveFilter;\r\nvar\r\n  i: integer;\r\n  el: TJSHTMLElement;\r\nbegin\r\n  for i := 0 to Items.Count - 1 do\r\n  begin\r\n     el := TJSHTMLElement(Items[i].FListElement);\r\n     el.style.removeProperty('display');\r\n  end;\r\nend;\r\n\r\nprocedure TListControl.RenderList(AElement: TJSElement; Items: TListItems; var AIndex: integer);\r\nvar\r\n  i: integer;\r\n  ul,li,a,dv: TJSElement;\r\n  aclass,datatoggle,datatarget: string;\r\n  doins: boolean;\r\n  el: TJSHTMLElement;\r\nbegin\r\n  if not Assigned(AElement) then\r\n    Exit;\r\n\r\n  if Application.BootstrapVersion <> bv5 then\r\n  begin\r\n    datatoggle := 'data-toggle';\r\n    datatarget := 'data-target';\r\n  end\r\n  else\r\n  begin\r\n    datatoggle := 'data-bs-toggle';\r\n    datatarget := 'data-bs-target';\r\n  end;\r\n\r\n  for i := 0 to Items.Count - 1 do\r\n    begin\r\n      li := document.createElement('li');\r\n\r\n      if DragMode = dmAutomatic then\r\n        li['draggable'] := 'true';\r\n\r\n      Items[i].FListElement := li;\r\n      Items[i].FHTMLChilds := 0;\r\n\r\n      aclass := Items[i].ItemClassName;\r\n\r\n      GetItemClass(Items[i], aclass);\r\n\r\n      if Items[i].Active and {not (Items[i].IsLink and} (Style <> lsNavPills) then\r\n        aclass := aclass + ' active';\r\n\r\n      if not Items[i].Enabled then\r\n        aclass := aclass + ' disabled';\r\n\r\n      if aclass <> '' then\r\n        li.setAttribute('class',aclass);\r\n\r\n      if Items[i].Hint <> '' then\r\n        li.setAttribute('title',Items[i].Hint);\r\n\r\n      if Items[i].IsLink or (Style = lsPagination) then\r\n      begin\r\n        doins := not Assigned(Items[i].LinkElement);\r\n        if doins or not Items[i].IsLink then\r\n          Items[i].FLinkElement := document.createElement('a');\r\n\r\n        a := Items[i].LinkElement;\r\n\r\n        a.innerHTML := Items[i].Text;\r\n\r\n        aclass := Items[i].LinkClassName;\r\n        if Items[i].Active then\r\n          aclass := aclass + ' active';\r\n\r\n        if (Items[i].LinkClassName <> '') then\r\n          a.setAttribute('class',aclass);\r\n\r\n        if (Items[i].Link = '') then\r\n          a.setAttribute('href','#')\r\n        else\r\n          a.setAttribute('href',Items[i].Link);\r\n\r\n        if (Items[i].LinkTarget <> '') then\r\n          a.setAttribute('target',Items[i].LinkTarget);\r\n\r\n        a.addEventListener('click',@HandleDoAnchorClick);\r\n\r\n        if doins or not Items[i].IsLink then\r\n          li.appendChild(a);\r\n      end\r\n      else\r\n      begin\r\n        li.innerHTML := Items[i].Text;\r\n        // take elements in account inserted as HTML text to not restore\r\n        Items[i].FHTMLChilds := li.childElementCount;\r\n      end;\r\n\r\n      el := TJSHTMLElement(li);\r\n\r\n      GetItemChildren(Items[i], el);\r\n\r\n      AElement.appendChild(li);\r\n\r\n      Items[i].AbsIndex := AIndex;\r\n      inc(AIndex);\r\n\r\n      if Style <> lsTabs then\r\n      begin\r\n\r\n        if (Items[i].Items.Count > 0) then\r\n        begin\r\n          dv := document.createElement('div');\r\n\r\n          if Items[i].AutoCollaps then\r\n            dv.setAttribute('class','collapse');\r\n\r\n          dv.setAttribute('id', GetID + Items[i].ItemId);\r\n          AElement.appendChild(dv);\r\n\r\n          if Items[i].AutoCollaps then\r\n          begin\r\n            li.setAttribute(datatoggle,'collapse');\r\n            li.setAttribute(datatarget,'#' + GetID + Items[i].ItemId);\r\n          end;\r\n\r\n          ul := document.createElement('ul');\r\n          dv.appendChild(ul);\r\n\r\n          RenderList(ul, Items[i].Items, AIndex);\r\n        end;\r\n      end;\r\n    end;\r\nend;\r\n\r\nprocedure TListControl.SetElementListClassName(const Value: TElementClassName);\r\nbegin\r\n  FElementListClassName := Value;\r\n  UpdateElement;\r\nend;\r\n\r\nprocedure TListControl.SetFilter(Condition: string; CaseSensitive: boolean = true);\r\nvar\r\n  i: integer;\r\n  el: TJSHTMLElement;\r\nbegin\r\n  for i := 0 to Items.Count - 1 do\r\n  begin\r\n     el := TJSHTMLElement(Items[i].FListElement);\r\n     if not MatchStr(Condition, Items[i].Text, CaseSensitive) then\r\n       el.style.setProperty('display','none');\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TListControl.SetItemIndex(const Value: integer);\r\nvar\r\n  i,j,v: integer;\r\nbegin\r\n  BeginUpdate;\r\n\r\n  v := 0;\r\n\r\n  for i := 0 to Items.Count - 1 do\r\n  begin\r\n    Items[i].Active := (Value = v);\r\n    inc(v);\r\n    if Items[i].Items.Count > 0 then\r\n    begin\r\n      for j := 0 to Items[i].Items.Count - 1 do\r\n      begin\r\n        Items[i].Items[j].Active := (Value = v);\r\n        inc(v);\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TListControl.SetItems(const Value: TListItems);\r\nbegin\r\n  FItems := Value;\r\nend;\r\n\r\nprocedure TListControl.SetListStyle(const Value: TListStyle);\r\nbegin\r\n  FListStyle := Value;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  case FListStyle of\r\n    lsPagination:\r\n      begin\r\n        DefaultItemClassName := 'page-item';\r\n        DefaultItemLinkClassName := 'page-link';\r\n        ElementListClassName := 'pagination';\r\n      end;\r\n    lsTabs:\r\n      begin\r\n        DefaultItemClassName := 'nav-item';\r\n        DefaultItemLinkClassName := 'nav-link';\r\n        ElementListClassName := 'nav nav-tabs';\r\n      end;\r\n    lsBreadcrumb:\r\n      begin\r\n        DefaultItemClassName := 'breadcrumb-item';\r\n        DefaultItemLinkClassName := 'breadcrumb-link';\r\n        ElementListClassName := 'breadcrumb';\r\n      end;\r\n    lsListGroup:\r\n      begin\r\n        DefaultItemClassName := 'list-group-item';\r\n        DefaultItemLinkClassName := 'list-group-link';\r\n        ElementListClassName := 'list-group';\r\n      end;\r\n    lsListGroupHorizontal:\r\n      begin\r\n        DefaultItemClassName := 'list-group-item';\r\n        DefaultItemLinkClassName := 'list-group-link';\r\n        ElementListClassName := 'list-group list-group-horizontal';\r\n      end;\r\n    lsNavPills:\r\n      begin\r\n        DefaultItemClassName := 'nav-item';\r\n        DefaultItemLinkClassName := 'nav-link';\r\n        ElementListClassName := 'nav nav-pills flex-column';\r\n      end;\r\n    lsNavPillsHorizontal:\r\n      begin\r\n        DefaultItemClassName := 'nav-item';\r\n        DefaultItemLinkClassName := 'nav-link';\r\n        ElementListClassName := 'nav nav-pills';\r\n      end;\r\n  end;\r\nend;\r\n\r\nprocedure TListControl.UpdateElement;\r\nvar\r\n  ul: TJSElement;\r\n  LLabel: TJSHTMLElement;\r\n  LHasLabel: boolean;\r\n  idx: integer;\r\n\r\nbegin\r\n  inherited;\r\n\r\n  if IsUpdating then\r\n    Exit;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    if Items.Count > 0 then\r\n    begin\r\n      ElementHandle.style.removeProperty(CSSBackground);\r\n\r\n      LLabel := TJSHTMLElement(ElementHandle.firstChild);\r\n      LHasLabel := Assigned(LLabel) and (LLabel.tagName = 'DIV') and (LLabel.getAttribute('data-design') = '1');\r\n      if LHasLabel then\r\n      begin\r\n        ElementHandle.removeChild(LLabel);\r\n      end;\r\n\r\n      ul := ListElement;\r\n\r\n      if Assigned(ul) then\r\n      begin\r\n        if Style = lsListGroup then\r\n          Items.Store;\r\n\r\n        while Assigned(ul.firstChild) do\r\n          ul.removeChild(ul.firstChild);\r\n\r\n        if ElementListClassName <> '' then\r\n          ul.setAttribute('class', ElementListClassName);\r\n\r\n        ElementHandle.style.removeProperty('overflow');\r\n\r\n        idx := 0;\r\n\r\n        RenderList(ul, Items, idx);\r\n\r\n        if Style = lsListGroup then\r\n          Items.Restore;\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      if not IsLinked and (csDesigning in ComponentState) then\r\n      begin\r\n        RenderDesigning('TWebListControl', Container, Self, True);\r\n      end\r\n      else\r\n      begin\r\n        ul := ListElement;\r\n        if Assigned(ul) then\r\n          while Assigned(ul.firstChild) do\r\n            ul.removeChild(ul.firstChild);\r\n      end;\r\n    end;\r\n\r\n    // allow scrollbar on lsListGroup style control\r\n    if (Style in [lsListGroup]) then\r\n      TJSHTMLElement(ElementHandle).style.setProperty('overflow','auto');\r\n  end;\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2022 - 2023                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\nunit WEBLib.DropDown;\r\n\r\n{$DEFINE NOPP}\r\n\r\ninterface\r\n\r\n// overflow hidden of parent elements????\r\n// https://www.w3schools.com/howto/tryit.asp?filename=tryhow_css_js_dropdown_hover\r\n\r\nuses\r\n  Classes, WEBLib.Controls, WEBLib.Forms, Web, JS, WEBLib.Menus, WEBLib.Graphics,\r\n  WEBLib.Grids;\r\n\r\ntype\r\n  TCustomDropDownControl = class(TWebCustomControl)\r\n  private\r\n    FDoClickLayer: pointer;\r\n    FDoBtnClick: pointer;\r\n    FLayer: TJSHTMLElement;\r\n    FControl: TCustomControl;\r\n    FDropDown: TJSHTMLElement;\r\n    FTextElement: TJSHTMLElement;\r\n    FButton: TJSHTMLElement;\r\n    FOnCloseUp: TNotifyEvent;\r\n    FOnDropDown: TNotifyEvent;\r\n    FText: string;\r\n    FAutoDropDown: boolean;\r\n    FElementInputClassName: TElementClassName;\r\n    FButtonImageURL: string;\r\n    FDropDownHeight: integer;\r\n    FDropDownWidth: integer;\r\n    FDropDownColor: TColor;\r\n    FDropDownShadow: boolean;\r\n    FReadOnly: Boolean;\r\n    FElementButtonClassName: TElementClassName;\r\n    procedure SetText(const Value: string);\r\n    function GetText: string;\r\n    function GetDroppedDown: boolean;\r\n    procedure SetButtonImageURL(const Value: string);\r\n    procedure SetReadOnly(const Value: Boolean);\r\n    procedure SetControl(const Value: TCustomControl);\r\n  protected\r\n    procedure UpdateElementVisual; override;\r\n    procedure CreateInitialize; override;\r\n    function HandleDoClickLayer(Event: TJSMouseEvent): Boolean; virtual;\r\n    function HandleDoBtnClick(Event: TJSMouseEvent): Boolean; virtual;\r\n    procedure Click; override;\r\n    function HasEdit: boolean; virtual;\r\n    procedure CreateChildElements(AContainer: TJSElement); override;\r\n    function CreateElement: TJSElement; override;\r\n    procedure ClearMethodPointers; override;\r\n    procedure GetMethodPointers; override;\r\n    procedure DoDropDown; virtual;\r\n    procedure DoCloseUp; virtual;\r\n    procedure BindEvents; override;\r\n    procedure UnBindEvents; override;\r\n  public\r\n    procedure ShowDropDown; virtual;\r\n    procedure HideDropDown; virtual;\r\n    procedure ToggleDropDown; virtual;\r\n    property DroppedDown: boolean read GetDroppedDown;\r\n    property Text: string read GetText write SetText;\r\n    property BorderStyle;\r\n    property Control: TCustomControl read FControl write SetControl;\r\n    property ElementInputClassName: TElementClassName read FElementInputClassName write FElementInputClassName;\r\n    property ElementButtonClassName: TElementClassName read FElementButtonClassName write FElementButtonClassName;\r\n    property ButtonImageURL: string read FButtonImageURL write SetButtonImageURL;\r\n  published\r\n    property AutoDropDown: boolean read FAutoDropDown write FAutoDropDown default false;\r\n    property DropDownColor: TColor read FDropDownColor write FDropDownColor default clWhite;\r\n    property DropDownWidth: integer read FDropDownWidth write FDropDownWidth default 0;\r\n    property DropDownHeight: integer read FDropDownHeight write FDropDownHeight default 0;\r\n    property DropDownShadow: boolean read FDropDownShadow write FDropDownShadow default true;\r\n    property ReadOnly: Boolean read FReadOnly write SetReadOnly default false;\r\n    property OnDropDown: TNotifyEvent read FOnDropDown write FOnDropDown;\r\n    property OnCloseUp: TNotifyEvent read FOnCloseUp write FOnCloseUp;\r\n  end;\r\n\r\n  TDropDownControl = class(TCustomDropDownControl)\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property BiDiMode;\r\n    property BorderStyle;\r\n    property ButtonImageURL;\r\n    property ChildOrder;\r\n    property Color;\r\n    property Control;\r\n    property DragMode;\r\n    property Font;\r\n    property ElementButtonClassName;\r\n    property ElementClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property Left;\r\n    property ParentColor;\r\n    property ParentFont;\r\n    property PopupMenu;\r\n    property ReadOnly;\r\n    property Role;\r\n    property ShowFocus;\r\n    property ShowHint;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property Text;\r\n    property TextDirection;\r\n    property Top;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnClick;\r\n    property OnCloseUp;\r\n    property OnDblClick;\r\n    property OnDropDown;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnMouseWheel;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebDropDownControl = class(TDropDownControl);\r\n\r\n  TEditDropDownControl = class(TCustomDropDownControl)\r\n  private\r\n    function GetEditElement: TJSHTMLElement;\r\n  protected\r\n    procedure KeyDown(var Key: Word; Shift: TShiftState); override;\r\n    function GetElementBindHandle: TJSEventTarget; override;\r\n    function HasEdit: boolean; override;\r\n  public\r\n    property EditElement: TJSHTMLElement read GetEditElement;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property BiDiMode;\r\n    property BorderStyle;\r\n    property ButtonImageURL;\r\n    property ChildOrder;\r\n    property Color;\r\n    property Control;\r\n    property DragMode;\r\n    property Font;\r\n    property ElementButtonClassName;\r\n    property ElementClassName;\r\n    property ElementInputClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property Left;\r\n    property ParentColor;\r\n    property ParentFont;\r\n    property PopupMenu;\r\n    property Role;\r\n    property ShowFocus;\r\n    property ShowHint;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property Text;\r\n    property TextDirection;\r\n    property Top;\r\n    property Visible;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnClick;\r\n    property OnCloseUp;\r\n    property OnDblClick;\r\n    property OnDropDown;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseUp;\r\n    property OnMouseMove;\r\n    property OnMouseLeave;\r\n    property OnMouseEnter;\r\n    property OnMouseWheel;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebEditDropDownControl = class(TEditDropDownControl);\r\n\r\n  TTableOptions = class(TPersistent)\r\n  private\r\n    FOwner: TComponent;\r\n    FElementSelectionClassName: TElementClassName;\r\n    FElementFont: TELementFont;\r\n    FElementHeaderClassName: TElementClassName;\r\n    FElementRowSelectClassName: TElementClassName;\r\n    FElementClassName: TELementClassName;\r\n    FElementTableClassName: TElementClassName;\r\n    FHeader: TTableControlHeader;\r\n    FFooter: TTableControlHeader;\r\n    FPaging: TTableControlPaging;\r\n    FRowHeader: boolean;\r\n    FSelectionTextColor: TColor;\r\n    FSelectionColor: TColor;\r\n    FColHeader: boolean;\r\n    FScrollVertical: boolean;\r\n    FResizeColumns: boolean;\r\n    FAutoCellURL: boolean;\r\n    FAutoCellEmail: boolean;\r\n    FAutoCellImage: boolean;\r\n    FCellBorderColor: TColor;\r\n    FCellBorders: boolean;\r\n    FImageAlign: TAlignment;\r\n    FImageWidth: integer;\r\n    procedure SetFooter(const Value: TTableControlHeader);\r\n    procedure SetHeader(const Value: TTableControlHeader);\r\n    procedure SetPaging(const Value: TTableControlPaging);\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create(AOwner: TComponent);\r\n    destructor Destroy; override;\r\n    property Owner: TComponent read FOwner;\r\n  published\r\n    property AutoCellEmail: boolean read FAutoCellEmail write FAutoCellEmail default false;\r\n    property AutoCellURL: boolean read FAutoCellURL write FAutoCellURL default false;\r\n    property AutoCellImage: boolean read FAutoCellImage write FAutoCellImage default false;\r\n    property CellBorders: boolean read FCellBorders write FCellBorders default false;\r\n    property CellBorderColor: TColor read FCellBorderColor write FCellBorderColor default clSilver;\r\n    property ColHeader: boolean read FColHeader write FColHeader default true;\r\n    property ElementClassName: TELementClassName read FElementClassName write FElementClassName;\r\n    property ElementFont: TELementFont read FElementFont write FElementFont;\r\n    property ElementHeaderClassName: TElementClassName read FElementHeaderClassName write FElementHeaderClassName;\r\n    property ElementRowSelectClassName: TElementClassName read FElementRowSelectClassName write FElementRowSelectClassName;\r\n    property ElementSelectionClassName: TElementClassName read FElementSelectionClassName write FElementSelectionClassName;\r\n    property ElementTableClassName: TElementClassName read FElementTableClassName write FElementTableClassName;\r\n    property ImageAlign: TAlignment read FImageAlign write FImageAlign default taLeftJustify;\r\n    property ImageWidth: integer read FImageWidth write FImageWidth default 0;\r\n    property Header: TTableControlHeader read FHeader write SetHeader;\r\n    property Footer: TTableControlHeader read FFooter write SetFooter;\r\n    property Paging: TTableControlPaging read FPaging write SetPaging;\r\n    property ResizeColumns: boolean read FResizeColumns write FResizeColumns default false;\r\n    property RowHeader: boolean read FRowHeader write FRowHeader default true;\r\n    property ScrollVertical: boolean read FScrollVertical write FScrollVertical default false;\r\n    property SelectionColor: TColor read FSelectionColor write FSelectionColor default $00FF8F5B;\r\n    property SelectionTextColor: TColor read FSelectionTextColor write FSelectionTextColor default clWhite;\r\n  end;\r\n\r\n  TEditDropDownTableControl = class(TEditDropDownControl)\r\n  private\r\n    FTableControl: TCustomTableControl;\r\n    FEditColumn: integer;\r\n    FTableOptions: TTableOptions;\r\n    procedure SetTableOptions(const Value: TTableOptions);\r\n  protected\r\n    function CreateTable(AOwner: TComponent): TCustomTableControl; virtual;\r\n    function GetTableControl: TWebTableControl;\r\n    procedure CreateInitialize; override;\r\n    procedure SetParent(AValue: TControl); override;\r\n    procedure TableClickCell(Sender: TObject; ACol, ARow: integer);\r\n    procedure TableKeyPress(Sender: TObject; var AChar: Char);\r\n    procedure TableKeyDown(Sender: TObject; var AKey: Word; Shift: TShiftState);\r\n    property TableControl: TCustomTableControl read FTableControl;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    procedure ShowDropDown; override;\r\n    destructor Destroy; override;\r\n    property Table: TWebTableControl read GetTableControl;\r\n\r\n  published\r\n    property EditColumn: integer read FEditColumn write FEditColumn default 0;\r\n    property TableOptions: TTableOptions read FTableOptions write SetTableOptions;\r\n  end;\r\n\r\n  TWebEditDropDownTableControl = class(TEditDropDownTableControl);\r\n\r\n\r\nimplementation\r\n\r\nuses\r\n  SysUtils, Math;\r\n\r\n{ TWebDropDownControl }\r\n\r\nprocedure TCustomDropDownControl.BindEvents;\r\nbegin\r\n  inherited;\r\n\r\n  if HasEdit and Assigned(FButton) then\r\n    FButton.addEventListener('click',FDoBtnClick);\r\nend;\r\n\r\nprocedure TCustomDropDownControl.ClearMethodPointers;\r\nbegin\r\n  inherited;\r\n  FDoClickLayer := nil;\r\n  FDoBtnClick := nil;\r\nend;\r\n\r\nprocedure TCustomDropDownControl.Click;\r\nbegin\r\n  inherited;\r\n\r\n  if (ElementEvent.target = FButton) or (TJSElement(ElementEvent.target).parentElement = FButton) then\r\n  begin\r\n    ToggleDropDown;\r\n  end\r\n  else\r\n    if AutoDropDown then\r\n      ToggleDropDown;\r\nend;\r\n\r\nprocedure TCustomDropDownControl.CreateChildElements(AContainer: TJSElement);\r\nvar\r\n  r: TJSDOMRect;\r\nbegin\r\n  if HasEdit then\r\n  begin\r\n    FTextElement := TJSHTMLElement(document.createElement('INPUT'));\r\n    FTextElement['type'] := 'TEXT';\r\n    if ElementFont = efProperty then\r\n      SetHTMLElementFont(FTextElement, Font, ElementFont = efCSS);\r\n  end\r\n  else\r\n  begin\r\n    FTextElement := TJSHTMLElement(document.createElement('DIV'));\r\n    FTextElement['type'] := 'TEXT';\r\n    FTextElement.style.setProperty('padding-left','2px');\r\n    FTextElement.style.setProperty('padding-right','2px');\r\n    FTextElement.style.setProperty('text-overflow','ellipsis');\r\n    if ElementFont = efProperty then\r\n      SetHTMLElementFont(FTextElement, Font, ElementFont = efCSS);\r\n  end;\r\n\r\n  FButton := TJSHTMLElement(document.createElement('DIV'));\r\n\r\n//  TJSHTMLElement(FTextElement).style.setProperty('background-color','white');\r\n  TJSHTMLElement(FTextElement).style.setProperty('display','inline-block');\r\n  TJSHTMLElement(FTextElement).style.setProperty('width','calc(100% - 26px)');\r\n\r\n  r := AContainer.getBoundingClientRect;\r\n  if r.height = 0 then\r\n    r.height := 26;\r\n\r\n  TJSHTMLElement(FTextElement).style.setProperty('height',r.height.ToString+'px');\r\n  TJSHTMLElement(FTextElement).style.setProperty('box-sizing','border-box');\r\n  TJSHTMLElement(FTextElement).style.setProperty('line-height', r.height.ToString + 'px');\r\n  TJSHTMLElement(FTextElement).style.setProperty('vertical-align','middle');\r\n\r\n  TJSHTMLElement(FButton).style.setProperty('background-color','silver');\r\n  TJSHTMLElement(FButton).style.setProperty('display','inline-block');\r\n  TJSHTMLElement(FButton).style.setProperty('width','25px');\r\n  TJSHTMLElement(FButton).style.setProperty('height', r.height.ToString +'px');\r\n  TJSHTMLElement(FButton).style.setProperty('line-height', r.height.ToString + 'px');\r\n  TJSHTMLElement(FButton).style.setProperty('text-align','center');\r\n  TJSHTMLElement(FButton).style.setProperty('vertical-align','middle');\r\n  TJSHTMLElement(FButton).style.setProperty('padding','0px!important');\r\n\r\n  FDropDown := TJSHTMLElement(document.createElement('DIV'));\r\n  TJSHTMLElement(FDropDown).style.setProperty('position','absolute');\r\n  TJSHTMLElement(FDropDown).style.setProperty('display','none');\r\n  TJSHTMLElement(FDropDown).style.setProperty('background-color','#f1f1f1');\r\n//  TJSHTMLElement(FDropDown).style.setProperty('min-width','160px');\r\n  TJSHTMLElement(FDropDown).style.setProperty('box-shadow','0px 8px 8px 0px rgba(0,0,0,0.2)');\r\n  TJSHTMLElement(FDropDown).style.setProperty('z-index','1');\r\n//  TJSHTMLElement(FDropDown).style.setProperty('min-height','200px');\r\n  //FDropDOwn.innerHTML := 'hello world<br>more content<br>is here<br>in the dropdown';\r\n\r\n  FTextElement.innerHTML := '&nbsp;';\r\n//  FButton.innerHTML := '&#x25BC;';\r\n\r\n  AContainer.appendChild(FTextElement);\r\n  AContainer.appendChild(FButton);\r\n\r\n  FLayer := TJSHTMLElement(document.createElement('SPAN'));\r\n  FLayer.style.setProperty('top', '0');\r\n  FLayer.style.setProperty('left', '0');\r\n  FLayer.style.setProperty('right', '0');\r\n  FLayer.style.setProperty('bottom', '0');\r\n\r\n  FLayer.style.setProperty('webkit-user-select', 'none');\r\n  FLayer.style.setProperty('moz-user-select', 'none');\r\n  FLayer.style.setProperty('khtml-user-select', 'none');\r\n  FLayer.style.setProperty('ms-user-select', 'none');\r\n  FLayer.style.setProperty('user-select', 'none');\r\n  FLayer.style.setProperty('position', 'absolute');\r\n\r\n  AddInstanceStyle('.arrow { border: solid black; border-width: 0 2px 2px 0;  display: inline-block;  padding: 2px;}'+#13#10+\r\n     '.down { transform: rotate(45deg); -webkit-transform: rotate(45deg);};');\r\n\r\n  FButton.innerHTML := '<i class=\"arrow down\"></i>';\r\nend;\r\n\r\nfunction TCustomDropDownControl.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('DIV');\r\nend;\r\n\r\nprocedure TCustomDropDownControl.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FAutoDropDown := false;\r\n  FDropDownColor := clWhite;\r\n  FDropDownWidth := 0;\r\n  FDropDownHeight := 0;\r\n  FDropDownShadow := true;\r\nend;\r\n\r\nprocedure TCustomDropDownControl.DoCloseUp;\r\nbegin\r\n  if Assigned(OnCloseUp) then\r\n    OnCloseUp(Self);\r\nend;\r\n\r\nprocedure TCustomDropDownControl.DoDropDown;\r\nbegin\r\n  if Assigned(OnDropDown) then\r\n    OnDropDown(Self);\r\nend;\r\n\r\nfunction TCustomDropDownControl.GetDroppedDown: boolean;\r\nbegin\r\n  Result := FDropDown.style.getPropertyValue('display') <> 'none';\r\nend;\r\n\r\nprocedure TCustomDropDownControl.GetMethodPointers;\r\nbegin\r\n  inherited;\r\n  if FDoClickLayer = nil then\r\n  begin\r\n    FDoClickLayer := @HandleDoClickLayer;\r\n    FDoBtnClick := @HandleDoBtnClick;\r\n  end;\r\nend;\r\n\r\nfunction TCustomDropDownControl.GetText: string;\r\nbegin\r\n  Result := FText;\r\n\r\n  if HasEdit then\r\n  begin\r\n    asm\r\n      Result = this.FTextElement.value;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomDropDownControl.SetButtonImageURL(const Value: string);\r\nbegin\r\n  if (FButtonImageURL <> Value) then\r\n  begin\r\n    FButtonImageURL := Value;\r\n    UpdateELement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomDropDownControl.SetControl(const Value: TCustomControl);\r\nbegin\r\n  FControl := Value;\r\n  if Assigned(FControl) and not (csDesigning in ComponentState) then\r\n    FControl.Visible := false;\r\nend;\r\n\r\nprocedure TCustomDropDownControl.SetReadOnly(const Value: Boolean);\r\nbegin\r\n  if (FReadOnly <> Value) then\r\n  begin\r\n    FReadOnly := Value;\r\n    UpdateElement;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomDropDownControl.SetText(const Value: string);\r\nbegin\r\n  FText := Value;\r\n\r\n  if HasEdit then\r\n  begin\r\n    asm\r\n      this.FTextElement.value = Value;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    if Value <> '' then\r\n      FTextElement.innerHTML := Value\r\n    else\r\n      FTextElement.innerHTML := '&nbsp;';\r\n  end;\r\nend;\r\n\r\nprocedure TCustomDropDownControl.ShowDropDown;\r\nvar\r\n  dr: TJSDOMRect;\r\n  w,h: single;\r\nbegin\r\n  if not Assigned(ElementHandle) then\r\n    Exit;\r\n\r\n  FLayer.style.setProperty('z-index', Application.MaxZIndexStr);\r\n  document.body.appendChild(FLayer);\r\n\r\n  FLayer.addEventListener('click',FDoClickLayer);\r\n\r\n  FLayer.appendChild(FDropDown);\r\n\r\n  FDropDown.style.setProperty('display','table');\r\n\r\n  if Assigned(Control) then\r\n  begin\r\n    Control.Left := 0;\r\n    Control.Top := 0;\r\n    Control.ElementPosition := epRelative;\r\n    Control.ElementFont := ElementFont;\r\n    Control.Visible := true;\r\n\r\n    dr := ElementHandle.getBoundingClientRect;\r\n\r\n    FDropDown.style.setProperty('left', dr.Left.ToString + 'px');\r\n    FDropDown.style.setProperty('top', dr.Bottom.ToString + 'px');\r\n\r\n    dr := Control.ElementHandle.getBoundingClientRect;\r\n\r\n    if DropDownWidth > 0 then\r\n      w := DropDownWidth\r\n    else\r\n    begin\r\n      if Assigned(Control) then\r\n      begin\r\n        w := Max(dr.Width, Control.Width);\r\n      end\r\n      else\r\n        w := dr.width;\r\n    end;\r\n\r\n    if DropDownWidth > 0 then\r\n      FDropDown.style.setProperty('width', w.ToString + 'px');\r\n\r\n    if DropDownHeight > 0 then\r\n      h := DropDownHeight\r\n    else\r\n      h := Max(dr.Height, Control.Height);\r\n\r\n    FDropDown.style.setProperty('height', h.ToString + 'px');\r\n\r\n    if DropDownColor <> clNone then\r\n      FDropDown.style.setProperty('background-color', ColorToHTML(FDropDownColor));\r\n\r\n    FDropDown.appendChild(Control.ElementHandle);\r\n  end;\r\n\r\n  if DropDownShadow then\r\n    TJSHTMLElement(FDropDown).style.setProperty('box-shadow','0px 8px 8px 0px rgba(0,0,0,0.2)');\r\n\r\n  DoDropDown;\r\nend;\r\n\r\nprocedure TCustomDropDownControl.ToggleDropDown;\r\nbegin\r\n  if FDropDown.style.getPropertyValue('display') = 'none' then\r\n    ShowDropDown\r\n  else\r\n    HideDropDown;\r\nend;\r\n\r\nprocedure TCustomDropDownControl.UnBindEvents;\r\nbegin\r\n  inherited;\r\n\r\n  if HasEdit and Assigned(FButton) then\r\n    FButton.removeEventListener('click',FDoBtnClick);\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TCustomDropDownControl.UpdateElementVisual;\r\nvar\r\n  h: integer;\r\n  ro: boolean;\r\nbegin\r\n  inherited;\r\n\r\n  if not HasEdit and (BorderStyle = bsSingle) then\r\n    ElementHandle.style.setProperty('border','1px solid silver');\r\n\r\n  if HasEdit then\r\n  begin\r\n    ro := ReadOnly;\r\n    asm\r\n      this.FTextElement.readOnly = ro;\r\n    end;\r\n  end;\r\n\r\n  ElementHandle.style.removeProperty('overflow');\r\n\r\n  h := Height - 1;\r\n\r\n // ElementHandle.style.setProperty('padding','2px');\r\n  SetHTMLElementFont(FTextElement, Font, ElementFont = efCSS);\r\n\r\n  TJSHTMLElement(FTextElement).style.setProperty('line-height', h.ToString +'px');\r\n  TJSHTMLElement(FTextElement).style.setProperty('height', h.ToString +'px');\r\n\r\n  TJSHTMLElement(FButton).style.setProperty('height', h.ToString +'px');\r\n  TJSHTMLElement(FButton).style.setProperty('line-height', h.ToString +'px');\r\n  TJSHTMLElement(FButton).setAttribute('class', FElementButtonClassName);\r\n  TJSHTMLElement(FButton).style.setProperty('padding', '0px');\r\n\r\n  if FElementButtonClassName <> '' then\r\n    TJSHTMLElement(FButton).style.removeProperty('background-color');\r\n\r\n  if ButtonImageURL <> '' then\r\n    FButton.innerHTML := '<img src=\"'+ ButtonImageURL+'\">'\r\n  else\r\n    FButton.innerHTML := '<i class=\"arrow down\"></i>';\r\n\r\n  if FElementInputClassName <> '' then\r\n    FTextElement.classList.add(FElementInputClassName)\r\n  else\r\n    if FTextElement.classList.contains(FElementInputClassName) then\r\n      FTextElement.classList.remove(FElementInputClassName);\r\nend;\r\n{$HINTS ON}\r\n\r\nfunction TCustomDropDownControl.HandleDoBtnClick(Event: TJSMouseEvent): Boolean;\r\nbegin\r\n  ToggleDropDown;\r\n  Result := true;\r\nend;\r\n\r\nfunction TCustomDropDownControl.HandleDoClickLayer(Event: TJSMouseEvent): Boolean;\r\nbegin\r\n  HideDropDown;\r\n  Result := true;\r\nend;\r\n\r\nfunction TCustomDropDownControl.HasEdit: boolean;\r\nbegin\r\n  Result := false;\r\nend;\r\n\r\nprocedure TCustomDropDownControl.HideDropDown;\r\nbegin\r\n  DoCloseUp;\r\n  FLayer.removeEventListener('click',FDoClickLayer);\r\n  FLayer.parentElement.removeChild(FLayer);\r\n  FDropDown.style.setProperty('display','none');\r\n  FDropDown.parentElement.removeChild(FDropDown);\r\nend;\r\n\r\n{ TEditDropDownControl }\r\n\r\nfunction TEditDropDownControl.GetEditElement: TJSHTMLElement;\r\nbegin\r\n  Result := TJSHTMLElement(FTextElement);\r\nend;\r\n\r\nfunction TEditDropDownControl.GetElementBindHandle: TJSEventTarget;\r\nbegin\r\n  Result := TJSHTMLElement(FTextElement);\r\nend;\r\n\r\nfunction TEditDropDownControl.HasEdit: boolean;\r\nbegin\r\n  Result := true;\r\nend;\r\n\r\nprocedure TEditDropDownControl.KeyDown(var Key: Word; Shift: TShiftState);\r\nbegin\r\n  inherited;\r\n  if Key = VK_F4 then\r\n    ToggleDropDown;\r\nend;\r\n\r\n{ TEditDropDownTableControl }\r\n\r\nconstructor TEditDropDownTableControl.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TEditDropDownTableControl.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FTableControl := CreateTable(Owner);\r\n  FTableControl.Visible := false;\r\n  FTableControl.Options.ScrollVertical := true;\r\n  FTableControl.OnClickCell := TableClickCell;\r\n  FTableControl.OnKeyPress := TableKeyPress;\r\n  FTableControl.OnKeyDown := TableKeyDown;\r\n  FTableControl.WidthStyle := ssAuto;\r\n  Control := FTableControl;\r\n\r\n  FTableOptions := TTableOptions.Create(FTableControl);\r\nend;\r\n\r\nfunction TEditDropDownTableControl.CreateTable(Aowner: TComponent): TCustomTableControl;\r\nbegin\r\n  Result := TWebTableControl.Create(Owner);\r\nend;\r\n\r\ndestructor TEditDropDownTableControl.Destroy;\r\nbegin\r\n  FTableControl.Free;\r\n  FTableOptions.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TEditDropDownTableControl.GetTableControl: TWebTableControl;\r\nbegin\r\n  Result := TWebTableControl(FTableControl);\r\nend;\r\n\r\nprocedure TEditDropDownTableControl.SetParent(AValue: TControl);\r\nbegin\r\n  inherited;\r\n  if Assigned(FTableControl) and not (csDestroying in ComponentState) then\r\n  begin\r\n    FTableControl.Parent := AValue;\r\n    FTableControl.InitSample(imLinear);\r\n  end;\r\nend;\r\n\r\nprocedure TEditDropDownTableControl.SetTableOptions(const Value: TTableOptions);\r\nbegin\r\n  FTableOptions.Assign(Value);\r\nend;\r\n\r\nprocedure TEditDropDownTableControl.ShowDropDown;\r\nvar\r\n  gc: TGridCoord;\r\nbegin\r\n  inherited;\r\n\r\n  if DropDownWidth = 0 then\r\n    FTableControl.WidthStyle := ssAuto\r\n  else\r\n    FTableControl.Width := DropDownWidth;\r\n\r\n  if DropDownHeight = 0 then\r\n    FTableControl.HeightStyle := ssAuto\r\n  else\r\n    FTableControl.Height := DropDownHeight;\r\n\r\n  FTableControl.Options.AutoCellEMail := TableOptions.AutoCellEmail;\r\n  FTableControl.Options.AutoCellURL := TableOptions.AutoCellURL;\r\n  FTableControl.Options.AutoCellImage := TableOptions.AutoCellImage;\r\n  FTableControl.Options.ScrollVertical := TableOptions.ScrollVertical;\r\n  FTableControl.Options.ResizeColumns := TableOptions.ResizeColumns;\r\n  FTableControl.Options.CellBorders := TableOptions.CellBorders;\r\n  FTableControl.Options.CellBorderColor := TableOptions.CellBorderColor;\r\n  FTableControl.Options.ImageAlign := TableOptions.ImageAlign;\r\n  FTableControl.Options.ImageWidth := TableOptions.ImageWidth;\r\n\r\n  FTableControl.ElementClassName := TableOptions.ElementClassName;\r\n  FTableControl.ElementFont := TableOptions.ElementFont;\r\n  FTableControl.ElementTableClassName := TableOptions.ElementTableClassName;\r\n  FTableControl.ElementRowSelectClassName := TableOptions.ElementRowSelectClassName;\r\n  FTableControl.ELementHeaderClassName := TableOptions.ElementHeaderClassName;\r\n  FTableControl.ElementSelectionClassName := TableOptions.ElementSelectionClassName;\r\n\r\n  FTableControl.Paging.Assign(TableOptions.Paging);\r\n  FTableControl.Header.Assign(TableOptions.Header);\r\n  FTableControl.Footer.Assign(TableOptions.Footer);\r\n\r\n  FTableControl.Invalidate;\r\n\r\n  gc := FTableControl.FindCell(Text, false, true);\r\n\r\n  if (gc.X <> -1)and (gc.Y <> -1) then\r\n  begin\r\n    FTableControl.RowIndex := gc.Y;\r\n  end;\r\n\r\n  FTableControl.SetFocus;\r\nend;\r\n\r\nprocedure TEditDropDownTableControl.TableClickCell(Sender: TObject; ACol,\r\n  ARow: integer);\r\nbegin\r\n  Text := FTableControl.Cells[EditColumn, ARow];\r\n  HideDropDown;\r\n  EditElement.focus;\r\nend;\r\n\r\nprocedure TEditDropDownTableControl.TableKeyDown(Sender: TObject;\r\n  var AKey: Word; Shift: TShiftState);\r\nbegin\r\n  if AKey = VK_F4 then\r\n  begin\r\n    HideDropDown;\r\n    EditElement.focus;\r\n  end;\r\nend;\r\n\r\nprocedure TEditDropDownTableControl.TableKeyPress(Sender: TObject;\r\n  var AChar: Char);\r\nbegin\r\n  if AChar = #13 then\r\n  begin\r\n    TableClickCell(FTableControl, EditColumn, FTableControl.RowIndex);\r\n  end;\r\nend;\r\n\r\n{ TTableOptions }\r\n\r\nprocedure TTableOptions.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTableOptions) then\r\n  begin\r\n    FAutoCellURL := (Source as TTableOptions).AutoCellURL;\r\n    FAutoCellImage := (Source as TTableOptions).AutoCellImage;\r\n    FAutoCellEmail := (Source as TTableOptions).AutoCellEmail;\r\n    FElementClassName := (Source as TTableOptions).ElementClassName;\r\n    FElementFont := (Source as TTableOptions).ElementFont;\r\n    FElementHeaderClassName := (Source as TTableOptions).ElementHeaderClassName;\r\n    FElementRowSelectClassName := (Source as TTableOptions).ElementRowSelectClassName;\r\n    FElementSelectionClassName := (Source as TTableOptions).ElementSelectionClassName;\r\n    FElementTableClassName := (Source as TTableOptions).ElementTableClassName;\r\n    FHeader.Assign((Source as TTableOptions).Header);\r\n    FFooter.Assign((Source as TTableOptions).Footer);\r\n    FPaging.Assign((Source as TTableOptions).Paging);\r\n    FResizeColumns := (Source as TTableOptions).ResizeColumns;\r\n    FColHeader := (Source as TTableOptions).ColHeader;\r\n    FRowHeader := (Source as TTableOptions).RowHeader;\r\n    FScrollVertical := (Source as TTableOptions).ScrollVertical;\r\n    FSelectionColor := (Source as TTableOptions).SelectionColor;\r\n    FSelectionTextColor := (Source as TTableOptions).SelectionTextColor;\r\n    FCellBorders := (Source as TTableOptions).CellBorders;\r\n    FCellBorderColor := (Source as TTableOptions).CellBorderColor;\r\n    FImageWidth := (Source as TTableOptions).ImageWidth;\r\n    FImageAlign := (Source as TTableOptions).ImageAlign;\r\n  end;\r\nend;\r\n\r\nconstructor TTableOptions.Create(AOwner: TComponent);\r\nbegin\r\n  FOwner := AOwner;\r\n  FHeader := TTableControlHeader.Create(AOwner as TCustomTableControl);\r\n  FFooter := TTableControlHeader.Create(AOwner as TCustomTableControl);\r\n  FPaging := TTableControlPaging.Create(AOwner as TCustomTableControl);\r\n  FRowHeader := true;\r\n  FColHeader := true;\r\n  FSelectionTextColor := clWhite;\r\n  FSelectionColor := $00FF8F5B;\r\n  FCellBorderColor := clSilver;\r\nend;\r\n\r\ndestructor TTableOptions.Destroy;\r\nbegin\r\n  FPaging.Free;\r\n  FHeader.Free;\r\n  FFooter.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTableOptions.SetFooter(const Value: TTableControlHeader);\r\nbegin\r\n  FFooter.Assign(Value);\r\nend;\r\n\r\nprocedure TTableOptions.SetHeader(const Value: TTableControlHeader);\r\nbegin\r\n  FHeader.Assign(Value);\r\nend;\r\n\r\nprocedure TTableOptions.SetPaging(const Value: TTableControlPaging);\r\nbegin\r\n  FPaging.Assign(Value);\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.DBCtrls;\r\n\r\n{$DEFINE NOPP}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, DB, SysUtils, WEBLib.Controls, WEBLib.StdCtrls, WEBLib.ExtCtrls,\r\n  WEBLib.Buttons, WEBLib.Grids, WEBLib.Mask, WEBLib.EditAutoComplete, Web,\r\n  WEBLib.REST, WEBLib.Lists, WEBLib.DropDown, WEBLib.Graphics;\r\n\r\ntype\r\n  TWebLinkType = (wlHttp, wlMail, wlHttps, wlFTP);\r\n\r\n  TNavigateBtn = (nbFirst, nbPrior, nbNext, nbLast,\r\n                  nbInsert, nbDelete, nbEdit, nbPost, nbCancel);\r\n\r\n  TNavButtonSet = set of TNavigateBtn;\r\n\r\n  TDataField = type string;\r\n\r\n  TFieldDataLink = class(TDataLink)\r\n  private\r\n    FOnDataChange: TNotifyEvent;\r\n    FOnUpdateData: TNotifyEvent;\r\n    FOnActiveChange: TNotifyEvent;\r\n    FField: TField;\r\n    FFieldName: string;\r\n    FModified: boolean;\r\n    FOnEditingChanged: TNotifyEvent;\r\n  protected\r\n    procedure UpdateField;\r\n    procedure ActiveChanged; override;\r\n    //procedure DataEvent(Event: TDataEvent; Info: NativeInt); override;\r\n    procedure EditingChanged; override;\r\n    procedure RecordChanged(Field: TField); override;\r\n    procedure UpdateData; override;\r\n  public\r\n    property Field: TField read FField write FField;\r\n    procedure Modified;\r\n  published\r\n    property FieldName: string read FFieldName write FFieldName;\r\n    property OnDataChange: TNotifyEvent read FOnDataChange write FOnDataChange;\r\n    property OnUpdateData: TNotifyEvent read FOnUpdateData write FOnUpdateData;\r\n    property OnActiveChange: TNotifyEvent read FOnActiveChange write FOnActiveChange;\r\n    property OnEditingChanged: TNotifyEvent read FOnEditingChanged write FOnEditingChanged;\r\n  end;\r\n\r\n  TDataScrollEvent = procedure(Sender: TObject; Distance: integer) of object;\r\n\r\n  TDBDataLink = class(TDataLink)\r\n  private\r\n    FOnActiveChange: TNotifyEvent;\r\n    FOnDataChange: TNotifyEvent;\r\n    FOnRecordChange: TNotifyEvent;\r\n    FOnUpdateData: TNotifyEvent;\r\n    FOnDataScroll: TDataScrollEvent;\r\n    FFieldName: string;\r\n  protected\r\n    procedure DataSetChanged; override;\r\n    procedure ActiveChanged; override;\r\n    procedure RecordChanged(Field: TField); override;\r\n    procedure DataSetScrolled(Distance: Longint); override;\r\n    procedure UpdateData; override;\r\n  public\r\n    property FieldName: string read FFieldName write FFieldName;\r\n  published\r\n    property OnRecordChange: TNotifyEvent read FOnRecordChange write FOnRecordChange;\r\n    property OnDataChange: TNotifyEvent read FOnDataChange write FOnDataChange;\r\n    property OnDataScroll: TDataScrollEvent read FOnDataScroll write FOnDataScroll;\r\n    property OnActiveChange: TNotifyEvent read FOnActiveChange write FOnActiveChange;\r\n    property OnUpdateData: TNotifyEvent read FOnUpdateData write FOnUpdateData;\r\n  end;\r\n\r\n  TDBEditValidateEvent = procedure(Sender: TObject; var AValue: string; var Valid: boolean) of object;\r\n\r\n  TDBEdit = class(TEdit)\r\n  private\r\n    FDataLink: TFieldDataLink;\r\n    FEditChange: boolean;\r\n    FOnValidate: TDBEditValidateEvent;\r\n  protected\r\n    procedure SetDataField(const Value: TDataField);\r\n    procedure SetDataSource(const Value: TDataSource);\r\n    function GetDataSource: TDataSource;\r\n    function GetDataField: TDataField;\r\n    procedure DataUpdate(Sender: TObject);\r\n    procedure DataChange(Sender: TObject);\r\n    procedure ActiveChange(Sender: TObject);\r\n    function CheckDataSet: boolean; virtual;\r\n    function EditCanModify: Boolean; virtual;\r\n    function IsReadOnly: boolean; override;\r\n    function IsEnabled: boolean; override;\r\n    function GetDisplayText: string; override;\r\n    procedure KeyDown(var Key: Word; Shift: TShiftState); override;\r\n    procedure KeyPress(var Key: Char); override;\r\n    procedure DoExit; override;\r\n    function CanPaste(AValue: string): boolean; override;\r\n    function CanCut: boolean; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure Change; override;\r\n  published\r\n    property DataField: TDataField read GetDataField write SetDataField;\r\n    property DataSource: TDataSource read GetDataSource write SetDataSource;\r\n    property OnValidate: TDBEditValidateEvent read FOnValidate write FOnValidate;\r\n  end;\r\n\r\n  TWebDBEdit = class(TDBEdit);\r\n\r\n  TDBEditBtn = class(TEditBtn)\r\n  private\r\n    FDataLink: TFieldDataLink;\r\n    FEditChange: boolean;\r\n  protected\r\n    procedure SetDataField(const Value: TDataField);\r\n    procedure SetDataSource(const Value: TDataSource);\r\n    function GetDataSource: TDataSource;\r\n    function GetDataField: TDataField;\r\n    procedure DataUpdate(Sender: TObject);\r\n    procedure DataChange(Sender: TObject);\r\n    procedure ActiveChange(Sender: TObject);\r\n    function CheckDataSet: boolean; virtual;\r\n    function EditCanModify: Boolean; virtual;\r\n    function IsReadOnly: boolean; override;\r\n    function IsEnabled: boolean; override;\r\n    function GetDisplayText: string; override;\r\n    procedure KeyDown(var Key: Word; Shift: TShiftState); override;\r\n    procedure KeyPress(var Key: Char); override;\r\n    procedure DoExit; override;\r\n    function CanPaste(AValue: string): boolean; override;\r\n    function CanCut: boolean; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure Change; override;\r\n  published\r\n    property DataField: TDataField read GetDataField write SetDataField;\r\n    property DataSource: TDataSource read GetDataSource write SetDataSource;\r\n  end;\r\n\r\n  TWebDBEditBtn = class(TDBEditBtn);\r\n\r\n  TDBMaskEdit = class(TMaskEdit)\r\n  private\r\n    FDataLink: TFieldDataLink;\r\n    FEditChange: boolean;\r\n    FFieldText: string;\r\n    function GetDataField: TDataField;\r\n    function GetDataSource: TDataSource;\r\n    procedure SetDataField(const Value: TDataField);\r\n    procedure SetDataSource(const Value: TDataSource);\r\n  protected\r\n    procedure DataUpdate(Sender: TObject);\r\n    procedure DataChange(Sender: TObject);\r\n    procedure ActiveChange(Sender: TObject);\r\n    function CheckDataSet: boolean; virtual;\r\n    function EditCanModify: Boolean; override;\r\n    function IsReadOnly: boolean; override;\r\n    function IsEnabled: boolean; override;\r\n    function GetDisplayText: string; override;\r\n    procedure KeyDown(var Key: Word; Shift: TShiftState); override;\r\n    procedure KeyPress(var Key: Char); override;\r\n    procedure DoExit; override;\r\n    function CanPaste(AValue: string): boolean; override;\r\n    function CanCut: boolean; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure Change; override;\r\n  published\r\n    property DataField: TDataField read GetDataField write SetDataField;\r\n    property DataSource: TDataSource read GetDataSource write SetDataSource;\r\n  end;\r\n\r\n  TWebDBMaskEdit = class(TDBMaskEdit);\r\n\r\n\r\n  TDBLabel = class(TLabel)\r\n  private\r\n    FDataLink: TFieldDataLink;\r\n  protected\r\n    procedure SetDataField(const Value: TDataField);\r\n    procedure SetDataSource(const Value: TDataSource);\r\n    function GetDataSource: TDataSource;\r\n    function GetDataField: TDataField;\r\n    function CheckDataSet: boolean; virtual;\r\n    function GetDisplayText: string; override;\r\n    procedure DataUpdate(Sender: TObject);\r\n    procedure DataChange(Sender: TObject);\r\n    procedure ActiveChange(Sender: TObject);\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n  published\r\n    property DataField: TDataField read GetDataField write SetDataField;\r\n    property DataSource: TDataSource read GetDataSource write SetDataSource;\r\n  end;\r\n\r\n  TWebDBLabel = class(TDBLabel);\r\n\r\n  TDBSpinEdit = class(TSpinEdit)\r\n  private\r\n    FDataLink: TFieldDataLink;\r\n    FEditChange: boolean;\r\n  protected\r\n    procedure SetDataField(const Value: TDataField);\r\n    procedure SetDataSource(const Value: TDataSource);\r\n    function GetDataSource: TDataSource;\r\n    function GetDataField: TDataField;\r\n    procedure DataUpdate(Sender: TObject);\r\n    procedure DataChange(Sender: TObject);\r\n    procedure ActiveChange(Sender: TObject);\r\n    function EditCanModify: Boolean; virtual;\r\n    function IsReadOnly: boolean; override;\r\n    function IsEnabled: boolean; override;\r\n    function CheckDataSet: boolean; virtual;\r\n    function GetDisplayText: string; override;\r\n    procedure KeyDown(var Key: Word; Shift: TShiftState); override;\r\n    procedure KeyPress(var Key: Char); override;\r\n    procedure Change; override;\r\n    procedure DoExit; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n  published\r\n    property DataField: TDataField read GetDataField write SetDataField;\r\n    property DataSource: TDataSource read GetDataSource write SetDataSource;\r\n  end;\r\n\r\n  TWebDBSpinEdit = class(TDBSpinEdit);\r\n\r\n  TDBCheckBox = class(TCheckBox)\r\n  private\r\n    FDataLink: TFieldDataLink;\r\n    FEditChange: boolean;\r\n    FValueChecked: string;\r\n    FValueUnChecked: string;\r\n  protected\r\n    procedure SetDataField(const Value: TDataField);\r\n    procedure SetDataSource(const Value: TDataSource);\r\n    function GetDataSource: TDataSource;\r\n    function GetDataField: TDataField;\r\n    function CheckDataSet: boolean; virtual;\r\n    function EditCanModify: Boolean; virtual;\r\n    procedure DataUpdate(Sender: TObject);\r\n    procedure DataChange(Sender: TObject);\r\n    procedure ActiveChange(Sender: TObject);\r\n    procedure EditingChanged(Sender: TObject);\r\n    function IsEnabled: boolean; override;\r\n    procedure Click; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n  published\r\n    property DataField: TDataField read GetDataField write SetDataField;\r\n    property DataSource: TDataSource read GetDataSource write SetDataSource;\r\n    property ValueChecked: string read FValueChecked write FValueChecked;\r\n    property ValueUnChecked: string read FValueUnChecked write FValueUnChecked;\r\n  end;\r\n\r\n  TWebDBCheckBox = class(TDBCheckBox);\r\n\r\n  TDBDateTimePicker = class(TDateTimePicker)\r\n  private\r\n    FDataLink: TFieldDataLink;\r\n    FEditChange: boolean;\r\n  protected\r\n    procedure SetDataField(const Value: TDataField);\r\n    procedure SetDataSource(const Value: TDataSource);\r\n    function GetDataSource: TDataSource;\r\n    function GetDataField: TDataField;\r\n    function CheckDataSet: boolean; virtual;\r\n    function EditCanModify: Boolean; virtual;\r\n    procedure KeyDown(var Key: Word; Shift: TShiftState); override;\r\n    procedure KeyPress(var Key: Char); override;\r\n    procedure DataUpdate(Sender: TObject);\r\n    procedure DataChange(Sender: TObject);\r\n    procedure ActiveChange(Sender: TObject);\r\n    procedure Change; override;\r\n    function IsReadOnly: boolean; override;\r\n    function IsEnabled: boolean; override;\r\n    procedure DoExit; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n  published\r\n    property DataField: TDataField read GetDataField write SetDataField;\r\n    property DataSource: TDataSource read GetDataSource write SetDataSource;\r\n  end;\r\n\r\n  TWebDBDateTimePicker = class(TDBDateTimePicker);\r\n\r\n\r\n  TDBEditDropDownControl = class(TEditDropDownControl)\r\n  private\r\n    FDataLink: TFieldDataLink;\r\n    FEditChange: boolean;\r\n  protected\r\n    procedure SetDataField(const Value: TDataField);\r\n    procedure SetDataSource(const Value: TDataSource);\r\n    function GetDataSource: TDataSource;\r\n    function GetDataField: TDataField;\r\n    procedure DataUpdate(Sender: TObject);\r\n    procedure DataChange(Sender: TObject);\r\n    procedure ActiveChange(Sender: TObject);\r\n    function CheckDataSet: boolean; virtual;\r\n    function EditCanModify: Boolean; virtual;\r\n    function IsReadOnly: boolean;\r\n    function IsEnabled: boolean; override;\r\n//    function  GetDisplayText: string; override;\r\n    procedure KeyDown(var Key: Word; Shift: TShiftState); override;\r\n    procedure KeyPress(var Key: Char); override;\r\n    procedure DoExit; override;\r\n//    function CanPaste(AValue: string): boolean; override;\r\n//    function CanCut: boolean; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n//    procedure Change; override;\r\n  published\r\n    property DataField: TDataField read GetDataField write SetDataField;\r\n    property DataSource: TDataSource read GetDataSource write SetDataSource;\r\n  end;\r\n\r\n  TWebDBEditDropDownControl = class(TDBEditDropDownControl);\r\n\r\n\r\n  TDBComboBox = class(TComboBox)\r\n  private\r\n    FDataLink: TFieldDataLink;\r\n    FListLink: TFieldDataLink;\r\n    FEditChange: boolean;\r\n    FListChange: boolean;\r\n    FListSync: boolean;\r\n    procedure SetListField(const Value: string);\r\n    procedure SetListSource(const Value: TDataSource);\r\n    function GetListField: string;\r\n    function GetListSource: TDataSource;\r\n  protected\r\n    procedure SetDataField(const Value: TDataField);\r\n    procedure SetDataSource(const Value: TDataSource);\r\n    function GetDataSource: TDataSource;\r\n    function GetDataField: TDataField;\r\n    function EditCanModify: Boolean; virtual;\r\n    function CheckDataSet: boolean; virtual;\r\n    procedure DataUpdate(Sender: TObject);\r\n    procedure DataChange(Sender: TObject);\r\n    procedure ActiveChange(Sender: TObject);\r\n    procedure ListActiveChange(Sender: TObject);\r\n    procedure ListDataChange(Sender: TObject);\r\n    procedure Change; override;\r\n    function IsEnabled: boolean; override;\r\n    procedure DoExit; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n  published\r\n    property DataField: TDataField read GetDataField write SetDataField;\r\n    property DataSource: TDataSource read GetDataSource write SetDataSource;\r\n    property ListField: string read GetListField write SetListField;\r\n    property ListSource: TDataSource read GetListSource write SetListSource;\r\n    property ListSync: boolean read FListSync write FListSync default false;\r\n  end;\r\n\r\n  TWebDBComboBox = class(TDBComboBox);\r\n\r\n  TDBLookupComboBox = class(TCustomLookupComboBox)\r\n  private\r\n    FDataLink: TFieldDataLink;\r\n    FListLink: TFieldDataLink;\r\n    FEditChange: boolean;\r\n    FKeyField: TDataField;\r\n    FListChanging: boolean;\r\n    FFieldValue: string;\r\n    FBlockChange: boolean;\r\n    function GetListField: TDataField;\r\n    function GetListSource: TDataSource;\r\n    procedure SetListField(const Value: TDataField);\r\n    procedure SetListSource(const Value: TDataSource);\r\n    procedure SetDataField(const Value: TDataField);\r\n    procedure SetDataSource(const Value: TDataSource);\r\n    function GetDataSource: TDataSource;\r\n    function GetDataField: TDataField;\r\n    procedure SetKeyField(const Value: TDataField);\r\n  protected\r\n    procedure SetValue(const Value: string); override;\r\n    procedure LoadListSource;\r\n    function CheckDataSet: boolean; virtual;\r\n    function CheckListDataSet: boolean; virtual;\r\n    function EditCanModify: Boolean; virtual;\r\n    procedure DataUpdate(Sender: TObject);\r\n    procedure DataChange(Sender: TObject);\r\n    procedure ActiveChange(Sender: TObject);\r\n    procedure ListDataChange(Sender: TObject);\r\n    procedure ListActiveChange(Sender: TObject);\r\n    procedure Change; override;\r\n    function IsEnabled: boolean; override;\r\n    procedure DoExit; override;\r\n    procedure SyncListSource; virtual;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n  published\r\n    property DataField: TDataField read GetDataField write SetDataField;\r\n    property DataSource: TDataSource read GetDataSource write SetDataSource;\r\n    property KeyField: TDataField read FKeyField write SetKeyField;\r\n    property ListField: TDataField read GetListField write SetListField;\r\n    property ListSource: TDataSource read GetListSource write SetListSource;\r\n  end;\r\n\r\n  TWebDBLookupComboBox = class(TDBLookupComboBox);\r\n\r\n  TDBEditAutoComplete = class(TEditAutoComplete)\r\n  private\r\n    FDataLink: TFieldDataLink;\r\n    FEditChange: boolean;\r\n  protected\r\n    procedure SetDataField(const Value: TDataField);\r\n    procedure SetDataSource(const Value: TDataSource);\r\n    function GetDataSource: TDataSource;\r\n    function GetDataField: TDataField;\r\n    function EditCanModify: Boolean; virtual;\r\n    function CheckDataSet: boolean; virtual;\r\n    procedure DataUpdate(Sender: TObject);\r\n    procedure DataChange(Sender: TObject);\r\n    procedure ActiveChange(Sender: TObject);\r\n    procedure KeyDown(var Key: Word; Shift: TShiftState); override;\r\n    procedure KeyPress(var Key: Char); override;\r\n    procedure DoExit; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure Change; override;\r\n  published\r\n    property DataField: TDataField read GetDataField write SetDataField;\r\n    property DataSource: TDataSource read GetDataSource write SetDataSource;\r\n  end;\r\n\r\n  TWebDBEditAutoComplete = class(TDBEditAutoComplete);\r\n\r\n\r\n  TDBRadioGroup = class(TRadioGroup)\r\n  private\r\n    FDataLink: TFieldDataLink;\r\n    FEditChange: boolean;\r\n    FValues: TStringList;\r\n  protected\r\n    procedure SetValues(const Value: TStringList);\r\n    procedure SetDataField(const Value: TDataField);\r\n    procedure SetDataSource(const Value: TDataSource);\r\n    function GetDataSource: TDataSource;\r\n    function GetDataField: TDataField;\r\n    function CheckDataSet: boolean; virtual;\r\n    function EditCanModify: Boolean; virtual;\r\n    procedure DataUpdate(Sender: TObject);\r\n    procedure DataChange(Sender: TObject);\r\n    procedure ActiveChange(Sender: TObject);\r\n    procedure Click; override;\r\n    function IsEnabled: boolean; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n  published\r\n    property DataField: TDataField read GetDataField write SetDataField;\r\n    property DataSource: TDataSource read GetDataSource write SetDataSource;\r\n    property Values: TStringList read FValues write SetValues;\r\n  end;\r\n\r\n  TWebDBRadioGroup = class(TDBRadioGroup);\r\n\r\n  TDBLinkLabel = class(TCustomLinkLabel)\r\n  private\r\n    FDataLink: TFieldDataLink;\r\n    FEditChange: boolean;\r\n    FLinkType: TWebLinkType;\r\n  protected\r\n    procedure SetDataField(const Value: TDataField);\r\n    procedure SetDataSource(const Value: TDataSource);\r\n    function GetDataSource: TDataSource;\r\n    function GetDataField: TDataField;\r\n    function CheckDataSet: boolean; virtual;\r\n    function GetDisplayText: string; override;\r\n    function EditCanModify: Boolean; virtual;\r\n    procedure DataUpdate(Sender: TObject);\r\n    procedure DataChange(Sender: TObject);\r\n    procedure ActiveChange(Sender: TObject);\r\n    procedure Click; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n  published\r\n    property DataField: TDataField read GetDataField write SetDataField;\r\n    property DataSource: TDataSource read GetDataSource write SetDataSource;\r\n    property LinkType: TWebLinkType read FLinkType write FLinkType;\r\n    property ParentFont;\r\n  end;\r\n\r\n  TWebDBLinkLabel = class(TDBLinkLabel);\r\n\r\n  TDBMemo = class(TMemo)\r\n  private\r\n    FDataLink: TFieldDataLink;\r\n    FEditChange: boolean;\r\n  protected\r\n    procedure SetDataField(const Value: TDataField);\r\n    procedure SetDataSource(const Value: TDataSource);\r\n    function GetDataSource: TDataSource;\r\n    function GetDataField: TDataField;\r\n    function EditCanModify: Boolean; virtual;\r\n    function IsReadOnly: boolean; override;\r\n    function IsEnabled: boolean; override;\r\n    function CheckDataSet: boolean; virtual;\r\n    function GetDisplayText: string; override;\r\n    procedure DataUpdate(Sender: TObject);\r\n    procedure DataChange(Sender: TObject);\r\n    procedure ActiveChange(Sender: TObject);\r\n    procedure KeyDown(var Key: Word; Shift: TShiftState); override;\r\n    procedure KeyPress(var Key: Char); override;\r\n    function CanPaste(AValue: string): boolean; override;\r\n    function CanCut: boolean; override;\r\n    procedure DoExit; override;\r\n    procedure Change; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n  published\r\n    property DataField: TDataField read GetDataField write SetDataField;\r\n    property DataSource: TDataSource read GetDataSource write SetDataSource;\r\n  end;\r\n\r\n  TWebDBMemo = class(TDBMemo);\r\n\r\n  TSetURLEvent = procedure(Sender: TObject; var AURL: string) of object;\r\n\r\n  TDBImageControl = class(TCustomImageControl)\r\n  private\r\n    FDataLink: TFieldDataLink;\r\n    FOnSetURL: TSetURLEvent;\r\n    FBaseURL: string;\r\n    function GetDataField: TDataField;\r\n    function GetDataSource: TDataSource;\r\n    procedure SetDataField(const Value: TDataField);\r\n    procedure SetDataSource(const Value: TDataSource);\r\n  protected\r\n    procedure DataChange(Sender: TObject);\r\n    procedure ActiveChange(Sender: TObject);\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n  published\r\n    property BaseURL: string read FBaseURL write FBaseURL;\r\n    property DataField: TDataField read GetDataField write SetDataField;\r\n    property DataSource: TDataSource read GetDataSource write SetDataSource;\r\n    property OnSetURL: TSetURLEvent read FOnSetURL write FOnSetURL;\r\n  end;\r\n\r\n  TWebDBImageControl = class(TDBImageControl);\r\n\r\n  TDBNavigator = class(TToolBar)\r\n  private\r\n    FDataLink: TFieldDataLink;\r\n    FFirstBtn: TSpeedButton;\r\n    FPriorBtn: TSpeedButton;\r\n    FNextBtn: TSpeedButton;\r\n    FLastBtn: TSpeedButton;\r\n    FEditBtn: TSpeedButton;\r\n    FPostBtn: TSpeedButton;\r\n    FInsertBtn: TSpeedButton;\r\n    FDeleteBtn: TSpeedButton;\r\n    FCancelBtn: TSpeedButton;\r\n    FVisibleButtons: TNavButtonSet;\r\n    FHints: TStringList;\r\n    FImages: TStringList;\r\n    FBtnID: string;\r\n    FOnDelete: TNotifyEvent;\r\n    FOnInsert: TNotifyEvent;\r\n    FOnPost: TNotifyEvent;\r\n    FOnFirst: TNotifyEvent;\r\n    FOnEdit: TNotifyEvent;\r\n    FOnNext: TNotifyEvent;\r\n    FOnLast: TNotifyEvent;\r\n    FOnPrior: TNotifyEvent;\r\n    FMaterialGlyphColor: TColor;\r\n    procedure SetVisibleButtons(const Value: TNavButtonSet);\r\n    procedure SetHints(const Value: TStringList);\r\n    procedure SetImages(const Value: TStringList);\r\n    procedure SetMaterialGlyphColor(const Value: TColor);\r\n  protected\r\n    procedure UpdateButtons;\r\n    procedure DataChange(Sender: TObject);\r\n    procedure ActiveChange(Sender: TObject);\r\n    procedure SetDataSource(const Value: TDataSource);\r\n    function GetDataSource: TDataSource;\r\n    procedure CreateButton(var btn: TSpeedButton; BtnID, Glyph: string; Index: integer);\r\n    procedure UpdateImage(btn: TSpeedButton; Glyph: string; Index: integer);\r\n    procedure HandleSpeedButtonClick(Sender: TObject); virtual;\r\n    procedure HandleSpeedButtonMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer); virtual;\r\n    procedure UpdateElement; override;\r\n    procedure Loaded; override;\r\n    procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;\r\n    procedure SetEnabled(Value: Boolean); override;\r\n    procedure DoPost; virtual;\r\n    procedure DoDelete; virtual;\r\n    procedure DoInsert; virtual;\r\n    procedure DoFirst; virtual;\r\n    procedure DoLast; virtual;\r\n    procedure DoEdit; virtual;\r\n    procedure DoNext; virtual;\r\n    procedure DoPrior; virtual;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n  published\r\n    property Enabled;\r\n    property Hints: TStringList read FHints write SetHints;\r\n    property Images: TStringList read FImages write SetImages;\r\n    property MaterialGlyphColor: TColor read FMaterialGlyphColor write SetMaterialGlyphColor default clNone;\r\n    property DataSource: TDataSource read GetDataSource write SetDataSource;\r\n    property VisibleButtons: TNavButtonSet read FVisibleButtons write SetVisibleButtons;\r\n    property OnDelete: TNotifyEvent read FOnDelete write FOnDelete;\r\n    property OnEdit: TNotifyEvent read FOnEdit write FOnEdit;\r\n    property OnFirst: TNotifyEvent read FOnFirst write FOnFirst;\r\n    property OnInsert: TNotifyEvent read FOnInsert write FOnInsert;\r\n    property OnLast: TNotifyEvent read FOnLast write FOnLast;\r\n    property OnNext: TNotifyEvent read FOnNext write FOnNext;\r\n    property OnPost: TNotifyEvent read FOnPost write FOnPost;\r\n    property OnPrior: TNotifyEvent read FOnPrior write FOnPrior;\r\n  end;\r\n\r\n  TWebDBNavigator = class(TDBNavigator);\r\n\r\n  TListItemFieldValueEvent = procedure(Sender: TObject; Index: integer; AFieldName: string; var AValue: string) of object;\r\n\r\n  TDBListControl = class(TListControl)\r\n  private\r\n    FDataLink: TDBDataLink;\r\n    FListLink: TDBDataLink;\r\n    FItemTemplate: string;\r\n    FOnListItemGetFieldValue: TListItemFieldValueEvent;\r\n    function GetDataSource: TDataSource;\r\n    function GetListSource: TDataSource;\r\n    procedure SetDataField(const Value: TDataField);\r\n    procedure SetDataSource(const Value: TDataSource);\r\n    procedure SetListField(const Value: TDataField);\r\n    procedure SetListSource(const Value: TDataSource);\r\n    procedure SetItemTemplate(const Value: string);\r\n    function GetDataField: TDataField;\r\n    function GetListField: TDataField;\r\n  protected\r\n    procedure RecordChange(Sender: TObject);\r\n    procedure DataUpdate(Sender: TObject);\r\n    procedure DataChange(Sender: TObject);\r\n    procedure ActiveChange(Sender: TObject);\r\n    procedure ListActiveChange(Sender: TObject);\r\n    procedure DoItemGetFieldValue(Index: integer; AFieldName: string; var AValue: string); virtual;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n\r\n    property DataField: TDataField read GetDataField write SetDataField;\r\n    property DataSource: TDataSource read GetDataSource write SetDataSource;\r\n    property ItemTemplate: string read FItemTemplate write SetItemTemplate;\r\n    property ListField: TDataField read GetListField write SetListField;\r\n    property ListSource: TDataSource read GetListSource write SetListSource;\r\n    property OnListItemGetFieldValue: TListItemFieldValueEvent read FOnListItemGetFieldValue write FOnListItemGetFieldValue;\r\n  end;\r\n\r\n  TWebDBListControl = class(TDBListControl);\r\n\r\n  TColumnDataType = (cdText, cdImage, cdLink, cdCheck, cdRadio, cdExternalLink, cdMemo);\r\n\r\n  TDBTableControl = class;\r\n\r\n  TTableControlColumn = class(TCollectionItem)\r\n  private\r\n    FDataField: TDataField;\r\n    FTitle: string;\r\n    FDataType: TColumnDataType;\r\n    FClassName: string;\r\n    FTitleClassName: string;\r\n    FTag: integer;\r\n    FWidth: integer;\r\n    procedure SetDataField(const Value: TDataField);\r\n    procedure SetTitle(const Value: string);\r\n    procedure SetWidth(const Value: integer);\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property ElementClassName: string read FClassName write FClassName;\r\n    property DataField: TDataField read FDataField write SetDataField;\r\n    property Title: string read FTitle write SetTitle;\r\n    property TitleElementClassName: string read FTitleClassName write FTitleClassName;\r\n    property DataType: TColumnDataType read FDataType write FDataType;\r\n    property Tag: integer read FTag write FTag default 0;\r\n    property Width: integer read FWidth write SetWidth default 0;\r\n  end;\r\n\r\n  TTableControlColumns = class(TOwnedCollection)\r\n  private\r\n    FOnChange: TNotifyEvent;\r\n    function GetItem(Index: integer): TTableControlColumn; reintroduce;\r\n    procedure SetItem(Index: integer; const Value: TTableControlColumn); reintroduce;\r\n  protected\r\n    procedure Changed; virtual; reintroduce;\r\n    procedure Update(Item: TCollectionItem); override;\r\n  public\r\n    constructor Create(AOwner: TComponent); reintroduce;\r\n    function Add: TTableControlColumn; reintroduce;\r\n    function Insert(Index: integer): TTableControlColumn; reintroduce;\r\n    property Items[Index: integer]: TTableControlColumn read GetItem write SetItem; default;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  end;\r\n\r\n  TDBTableControl = class(TCustomTableControl)\r\n  private\r\n    FDefaultFields: boolean;\r\n    FDataLink: TDBDataLink;\r\n    FColumns: TTableControlColumns;\r\n    FDataChanging: boolean;\r\n    procedure SetColumns(const Value: TTableControlColumns);\r\n  protected\r\n    procedure LoadData; virtual;\r\n    procedure LoadRow(ARow: integer); virtual;\r\n    procedure DataChange(Sender: TObject);\r\n    procedure RecordChange(Sender: TObject);\r\n    procedure ActiveChange(Sender: TObject);\r\n    procedure SetDataSource(const Value: TDataSource);\r\n    function GetDataSource: TDataSource;\r\n    procedure Loaded; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n  published\r\n    property Columns: TTableControlColumns read FColumns write SetColumns;\r\n    property DataSource: TDataSource read GetDataSource write SetDataSource;\r\n    property ElementFont;\r\n    property ElementClassName;\r\n    property ElementId;\r\n    property ElementPosition;\r\n  end;\r\n\r\n  TWebDBTableControl = class(TDBTableControl);\r\n\r\n  TDBEditDropDownTableControl = class(TEditDropDownTableControl)\r\n  private\r\n    FDataLink: TFieldDataLink;\r\n    FEditChange: boolean;\r\n\r\n    function GetTableSource: TDataSource;\r\n    procedure SetTableSource(const Value: TDataSource);\r\n    function GetDBTableControl: TDBTableControl;\r\n    function GetDataField: TDataField;\r\n    function GetDataSource: TDataSource;\r\n    procedure SetDataField(const Value: TDataField);\r\n    procedure SetDataSource(const Value: TDataSource);\r\n  protected\r\n    function CreateTable(Aowner: TComponent): TCustomTableControl; override;\r\n\r\n    procedure DataUpdate(Sender: TObject);\r\n    procedure DataChange(Sender: TObject);\r\n    procedure ActiveChange(Sender: TObject);\r\n    function CheckDataSet: boolean; virtual;\r\n    function EditCanModify: Boolean; virtual;\r\n    function IsReadOnly: boolean;\r\n    function IsEnabled: boolean; override;\r\n//    function  GetDisplayText: string; override;\r\n    procedure KeyDown(var Key: Word; Shift: TShiftState); override;\r\n    procedure KeyPress(var Key: Char); override;\r\n    procedure DoExit; override;\r\n\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n\r\n    property Table: TDBTableControl read GetDBTableControl;\r\n  published\r\n    property TableSource: TDataSource read GetTableSource write SetTableSource;\r\n    property DataField: TDataField read GetDataField write SetDataField;\r\n    property DataSource: TDataSource read GetDataSource write SetDataSource;\r\n  end;\r\n\r\n  TWebDBEditDropDownTableControl = class(TDBEditDropDownTableControl);\r\n\r\n\r\n  TDBResponsiveGrid = class(TResponsiveGrid)\r\n  private\r\n    FDataLink: TDBDataLink;\r\n    FModifying: boolean;\r\n    FRecordCount: integer;\r\n    FOldState: TDatasetState;\r\n    FDataChanging: boolean;\r\n  protected\r\n    procedure DataChange(Sender: TObject);\r\n    procedure ActiveChange(Sender: TObject);\r\n    procedure SetDataSource(const Value: TDataSource);\r\n    function GetDataSource: TDataSource;\r\n    procedure HandleDoItemClick(Index: integer); override;\r\n    procedure LoadData; virtual;\r\n    procedure OptionsChanged(Sender: TObject); override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure Refresh; virtual;\r\n  published\r\n    property DataSource: TDataSource read GetDataSource write SetDataSource;\r\n    property ElementFont;\r\n    property ElementClassName;\r\n    property ElementId;\r\n    property ElementPosition;\r\n  end;\r\n\r\n  TWebDBResponsiveGrid = class(TDBResponsiveGrid);\r\n\r\n  TGridColumn = class(TCollectionItem)\r\n  private\r\n    FDataField: TDataField;\r\n    FTitle: string;\r\n    FWidth: integer;\r\n    FDataType: TColumnDataType;\r\n    FClassName: string;\r\n    FTitleClassName: string;\r\n    FSortIndicator: TGridSortIndicator;\r\n    FEditor: TGridCellEditor;\r\n    FEditMask: TEditMask;\r\n    FComboBoxItems: TStrings;\r\n    FTag: integer;\r\n    FDBField: TField;\r\n    FImageWidth: integer;\r\n    FAlignment: TAlignment;\r\n    FAutoFormatDateTime: boolean;\r\n    procedure SetDataField(const Value: TDataField);\r\n    procedure SetTitle(const Value: string);\r\n    procedure SetWidth(const Value: integer);\r\n    procedure SetSortIndicator(const Value: TGridSortIndicator);\r\n    procedure SetComboBoxItems(const Value: TStrings);\r\n    procedure SetAlignment(const Value: TAlignment);\r\n  protected\r\n    property DBField: TField read FDBField write FDBField;\r\n    function GetDBField: TField;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create(Collection: TCollection); override;\r\n    destructor Destroy; override;\r\n    property SortIndicator: TGridSortIndicator read FSortIndicator write SetSortIndicator;\r\n  published\r\n    property Alignment: TAlignment read FAlignment write SetAlignment default taLeftJustify;\r\n    property AutoFormatDateTime: boolean read FAutoFormatDateTime write FAutoFormatDateTime default true;\r\n    property ComboBoxItems: TStrings read FComboBoxItems write SetComboBoxItems;\r\n    property DataField: TDataField read FDataField write SetDataField;\r\n    property DataType: TColumnDataType read FDataType write FDataType;\r\n    property EditMask: TEditMask read FEditMask write FEditMask;\r\n    property Editor: TGridCellEditor read FEditor write FEditor default geText;\r\n    property ElementClassName: string read FClassName write FClassName;\r\n    property ImageWidth: integer read FImageWidth write FImageWidth default 0;\r\n    property Tag: integer read FTag write FTag default 0;\r\n    property Title: string read FTitle write SetTitle;\r\n    property TitleElementClassName: string read FTitleClassName write FTitleClassName;\r\n    property Width: integer read FWidth write SetWidth default 64;\r\n  end;\r\n\r\n  TSortIndicatorChanged = procedure(Sender: TObject; ACol: integer; AIndicator: TGridSortIndicator) of object;\r\n\r\n  TGridColumns = class(TOwnedCollection)\r\n  private\r\n    FOnChange: TNotifyEvent;\r\n    FOnSortIndicatorChange: TSortIndicatorChanged;\r\n    function GetItem(Index: integer): TGridColumn; reintroduce;\r\n    procedure SetItem(Index: integer; const Value: TGridColumn); reintroduce;\r\n  protected\r\n    procedure Changed; virtual; reintroduce;\r\n    procedure Update(Item: TCollectionItem); override;\r\n    property OnSortIndicatorChange: TSortIndicatorChanged read FOnSortIndicatorChange write FOnSortIndicatorChange;\r\n  public\r\n    constructor Create(AOwner: TComponent); reintroduce;\r\n    function Add: TGridColumn; reintroduce;\r\n    function Insert(Index: integer): TGridColumn; reintroduce;\r\n    property Items[Index: integer]: TGridColumn read GetItem write SetItem; default;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  end;\r\n\r\n\r\n  TDBGrid = class(TCustomStringGrid)\r\n  private\r\n    FDefaultFields: boolean;\r\n    FModifying: boolean;\r\n    FDataLink: TDBDataLink;\r\n    FColumns: TGridColumns;\r\n    FDataChanging: boolean;\r\n    FOldState: TDatasetState;\r\n    FOldFiltered: boolean;\r\n    FOldIndicator: integer;\r\n    FShowIndicator: boolean;\r\n    function GetDataSource: TDataSource;\r\n    procedure SetColumns(const Value: TGridColumns);\r\n    procedure SetDataSource(const Value: TDataSource);\r\n    procedure SetShowIndicator(const Value: boolean);\r\n    procedure ReadStubProp(AReader: TReader);\r\n    procedure WriteStubProp(AWriter: TWriter);\r\n  protected\r\n    procedure DefineProperties(AFiler: TFiler); override;\r\n    procedure LoadData; virtual;\r\n    procedure LoadRow(ARow: integer); virtual;\r\n    procedure InsertData(ARow: Integer); virtual;\r\n    procedure DataChange(Sender: TObject);\r\n    procedure DataScroll(Sender: TObject; Distance: integer);\r\n    procedure RecordChange(Sender: TObject);\r\n    procedure ActiveChange(Sender: TObject);\r\n    procedure ColumnsChanged(Sender: TObject);\r\n    procedure UpdateData(Sender: TObject);\r\n    procedure UpdateCell(ACol, ARow: integer; var AValue: string); override;\r\n    procedure SelectCell(ACol, ARow: integer); override;\r\n    procedure ChangeRow; override;\r\n    procedure UpdateIndicator(ARow: integer);\r\n    procedure DoCheckClick(ACol, ARow: Longint; Checked: boolean); override;\r\n    procedure DoSortIndicatorChange(Sender: TObject; ACol: integer; AIndicator: TGridSortIndicator);\r\n    function StopEdit: string; override;\r\n    procedure CancelEdit; override;\r\n    procedure StartEdit(ch: string); override;\r\n    procedure Loaded; override;\r\n    function CanEditCell(ACol,ARow: integer): boolean; override;\r\n    function CanRowAdvance: boolean; override;\r\n    procedure GetCellEditor(const ACol,ARow: integer; var AEditor: TGridCellEditor); override;\r\n    procedure LoadComboItems(const ColIndex: integer; AField: TField);\r\n    function GetLookupKey(const ColIndex: integer; AValue: string): string;\r\n  public\r\n    procedure CreateInitialize; override;\r\n    destructor Destroy; override;\r\n    procedure Refresh;\r\n    procedure HideEdit(Advance: boolean = false); override;\r\n    procedure ShowEdit; override;\r\n    procedure EndUpdate; override;\r\n    property RowCount;\r\n  published\r\n    property DragMode;\r\n    property Columns: TGridColumns read FColumns write SetColumns;\r\n    property DataSource: TDataSource read GetDataSource write SetDataSource;\r\n    property ElementFont;\r\n    property ElementClassName;\r\n    property ElementId;\r\n    property ElementPosition;\r\n    property FixedFont;\r\n    property Font;\r\n    property ParentFont;\r\n    property ShowIndicator: boolean read FShowIndicator write SetShowIndicator;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDrag;\r\n    property OnStartDrag;\r\n  end;\r\n\r\n  TWebDBGrid = class(TDBGrid);\r\n\r\nimplementation\r\n\r\nuses\r\n  WEBLib.WebTools, Math;\r\n\r\ntype\r\n  TResponsiveGridItemEx = class(TResponsiveGridItem);\r\n\r\nfunction CheckDB(ADataSource: TDataSource; ADataField: string; ADataLink: TDataLink): boolean;\r\nbegin\r\n  Result := false;\r\n  if Assigned(ADataSource) and (ADataSource.Enabled) and (ADataField <> '') then\r\n  begin\r\n    Result := Assigned(ADataLink.DataSet) and (ADataLink.DataSet.Active) and ((ADataLink.DataSet.RecordCount > 0) or (ADataLink.DataSet.State = dsInsert));\r\n  end;\r\nend;\r\n\r\nfunction TableFieldToCellData(AElement: TJSHTMLElement; AField: TField; ColumnDataType: TColumnDataType; Enabled: boolean; AutoFormatDateTime: boolean = true; ImgWidth: integer = 0): string;\r\nvar\r\n  b: boolean;\r\n  fs,t,d,imgv: string;\r\n  dt: TDateTime;\r\nbegin\r\n  Result := '';\r\n\r\n  case ColumnDataType of\r\n  cdText,cdMemo:\r\n    begin\r\n      if (AField.DataType <> ftBlob) and TRESTClient.IsIsoDateTime(AField.AsString) and AutoFormatDateTime then\r\n      begin\r\n        dt := TRESTClient.IsoToDateTime(AField.AsString);\r\n\r\n        if Frac(dt) = 0 then\r\n          Result := DateToStr(dt)\r\n        else\r\n          if Int(dt) = 0 then\r\n            Result := TimeToStr(dt)\r\n          else\r\n            Result := DateToStr(dt) +'  ' + TimeToStr(dt);\r\n      end\r\n      else\r\n      begin\r\n        if ColumnDataType = cdMemo then\r\n        begin\r\n          try\r\n            Result := window.atob(string(AField.AsJSValue))\r\n          except\r\n            Result := AField.DisplayText;\r\n          end;\r\n        end\r\n        else\r\n        begin\r\n          if (AField.DataType in [ftDate,ftDateTime]) and ((AField as TDateTimeField).DisplayFormat = '') then // required format by inplace datepicker\r\n          begin\r\n            dt := AField.AsDateTime;\r\n            if Frac(dt) = 0 then\r\n              Result := FormatDateTime('YYYY-MM-dd', dt)\r\n            else\r\n              Result := FormatDateTime('YYYY-MM-dd hh:mm:ss', dt)\r\n          end\r\n          else\r\n            Result := AField.DisplayText;\r\n        end;\r\n      end;\r\n    end;\r\n  cdImage:\r\n    begin\r\n      imgv := AField.DisplayText;\r\n      if (imgv <> '') then\r\n      begin\r\n        if ImgWidth > 0 then\r\n          Result := '<IMG src=\"'+imgv+'\" width=\"'+ImgWidth.ToString+'\">'\r\n        else\r\n          Result := '<IMG src=\"'+imgv+'\">'\r\n      end;\r\n    end;\r\n  cdLink: Result := '<A href=\"'+AField.DisplayText+'\">'+ AField.DisplayText+'</A>';\r\n  cdExternalLink: Result := '<A href=\"'+AField.DisplayText+'\" target=\"_blank\">'+ AField.DisplayText+'</A>';\r\n  cdCheck, cdRadio:\r\n    begin\r\n      if AField.DataType = ftBoolean then\r\n        b := AField.AsBoolean\r\n      else\r\n      begin\r\n        fs := LowerCase(AField.AsString);\r\n        b := (fs = 'y') or (fs = 'true') or (fs = '1');\r\n      end;\r\n\r\n      if ColumnDataType = cdCheck then\r\n        t := 'CHECKBOX'\r\n      else\r\n        t := 'RADIO';\r\n\r\n      if not Enabled then\r\n        d := ' DISABLED'\r\n      else\r\n        d := '';\r\n\r\n      if b then\r\n        Result := '<INPUT TYPE=\"' + t + '\" CHECKED'+ d + '>'\r\n      else\r\n        Result := '<INPUT TYPE=\"' + t + '\"' + d + '>';\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction FieldToCellData(AElement: TJSHTMLElement; AField: TField; Column: TGridColumn; Enabled: boolean): string;\r\nbegin\r\n  Result := TableFieldToCellData(AElement, AField, Column.DataType, Enabled, Column.AutoFormatDateTime, Column.ImageWidth);\r\nend;\r\n\r\n\r\n{ TFieldDataLink }\r\n\r\nprocedure TFieldDataLink.UpdateField;\r\nbegin\r\n  FField := nil;\r\n  if Assigned(DataSource) and Assigned(DataSource.DataSet) and (FieldName <> '') then\r\n  begin\r\n    if DataSource.DataSet.Active then\r\n    begin\r\n      try\r\n        FField := DataSource.DataSet.FieldByName(FieldName);\r\n      except\r\n        FField := nil;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TFieldDataLink.ActiveChanged;\r\nbegin\r\n  if not Active then\r\n    FField := nil\r\n  else\r\n    UpdateField;\r\n\r\n  if Assigned(OnActiveChange) then\r\n    OnActiveChange(Self);\r\nend;\r\n\r\nprocedure TFieldDataLink.RecordChanged(Field: TField);\r\nbegin\r\n  if (Field = nil) or (Field = FField) then\r\n  begin\r\n    if Assigned(FOnDataChange) then\r\n      FOnDataChange(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TFieldDataLink.UpdateData;\r\nbegin\r\n  if FModified then\r\n  begin\r\n    if (Field <> nil) and Assigned(FOnUpdateData) then\r\n      FOnUpdateData(Self);\r\n    FModified := False;\r\n  end;\r\nend;\r\n\r\nprocedure TFieldDataLink.EditingChanged;\r\nbegin\r\n  inherited;\r\n  if Assigned(OnEditingChanged) then\r\n    OnEditingChanged(Self);\r\nend;\r\n\r\nprocedure TFieldDataLink.Modified;\r\nbegin\r\n  FModified := true;\r\nend;\r\n\r\n{ TDBEdit }\r\n\r\nfunction TDBEdit.GetDataField: TDataField;\r\nbegin\r\n  Result := FDataLink.FieldName;\r\nend;\r\n\r\nprocedure TDBEdit.SetDataField(const Value: TDataField);\r\nbegin\r\n  FDataLink.FieldName := Value;\r\n  FDataLink.UpdateField;\r\n  ActiveChange(Self);\r\nend;\r\n\r\nfunction TDBEdit.GetDataSource: TDataSource;\r\nbegin\r\n  Result := FDataLink.DataSource;\r\nend;\r\n\r\nfunction TDBEdit.GetDisplayText: string;\r\nbegin\r\n  if not CheckDataSet then\r\n    Result := ''\r\n  else\r\n    Result := inherited GetDisplayText;\r\nend;\r\n\r\nfunction TDBEdit.IsEnabled: boolean;\r\nbegin\r\n  Result := Enabled and CheckDataSet;\r\nend;\r\n\r\nfunction TDBEdit.IsReadOnly: boolean;\r\nbegin\r\n  Result := ReadOnly or not CheckDataSet;\r\nend;\r\n\r\nprocedure TDBEdit.SetDataSource(const Value: TDataSource);\r\nbegin\r\n  FDataLink.DataSource := Value;\r\nend;\r\n\r\nprocedure TDBEdit.CreateInitialize;\r\nbegin\r\n  if not Assigned(FDataLink) then\r\n  begin\r\n    FDataLink := TFieldDataLink.Create;\r\n    FDataLink.OnUpdateData := DataUpdate;\r\n    FDataLink.OnDataChange := DataChange;\r\n    FDataLink.OnActiveChange := ActiveChange;\r\n    FEditChange := false;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\ndestructor TDBEdit.Destroy;\r\nbegin\r\n  FDataLink.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TDBEdit.DoExit;\r\nbegin\r\n  if not FDataLink.ReadOnly then\r\n  begin\r\n//    try\r\n      FEditChange := true;\r\n      FDataLink.UpdateRecord;     { tell data link to update database }\r\n\r\n//    except\r\n//      on Exception do\r\n//      begin\r\n//        SetFocus;   { if it failed, don't let focus leave }\r\n//        raise;\r\n//      end;\r\n//    end;\r\n  end;\r\n\r\n  inherited DoExit;\r\n\r\n  FEditChange := false;\r\nend;\r\n\r\nfunction TDBEdit.CanCut: boolean;\r\nvar\r\n  canedit: boolean;\r\nbegin\r\n  if not CheckDataSet then\r\n    Exit;\r\n\r\n  if ReadOnly then\r\n  begin\r\n    Result := false;\r\n    Exit;\r\n  end;\r\n\r\n  FEditChange := true;\r\n  canedit := EditCanModify;\r\n  FEditChange := false;\r\n\r\n  if not canedit then\r\n  begin\r\n    Result := false;\r\n    Exit;\r\n  end\r\n  else\r\n  begin\r\n    Result := inherited;\r\n    FDataLink.Edit;\r\n  end;\r\nend;\r\n\r\nfunction TDBEdit.CanPaste(AValue: string): boolean;\r\nbegin\r\n  Result := CanCut;\r\nend;\r\n\r\nprocedure TDBEdit.DataUpdate(Sender: TObject);\r\nvar\r\n  AValue: string;\r\n  AValid: boolean;\r\nbegin\r\n  AValue := Text;\r\n  AValid := true;\r\n\r\n  if Assigned(OnValidate) then\r\n    OnValidate(Self, AValue, AValid);\r\n\r\n  if AValid then\r\n  begin\r\n    if Assigned(FDataLink.Field) then\r\n    begin\r\n      if not Assigned(FDataLink.Field) then\r\n        FDataLink.UpdateField;\r\n\r\n      FDataLink.Field.AsString := AValue;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TDBEdit.DataChange(Sender: TObject);\r\nbegin\r\n  if FEditChange then\r\n    Exit;\r\n\r\n  UpdateElement;\r\n\r\n  if not Assigned(FDataLink.DataSet) then\r\n    Exit;\r\n\r\n  if not Assigned(FDataLink.Field) then\r\n    FDataLink.UpdateField;\r\n\r\n  if Assigned(FDataLink.Field) and not FDataLink.DataSet.IsEmpty then\r\n    Text := FDataLink.Field.DisplayText\r\n  else\r\n    Text := '';\r\nend;\r\n\r\nprocedure TDBEdit.ActiveChange(Sender: TObject);\r\nbegin\r\n  UpdateElement;\r\n\r\n  if Assigned(FDataLink.DataSet) then\r\n  begin\r\n    if not FDataLink.DataSet.Active or not DataSource.Enabled then\r\n      Text := ''\r\n    else\r\n      DataChange(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TDBEdit.KeyDown(var Key: Word; Shift: TShiftState);\r\nvar\r\n  canedit: boolean;\r\n\r\nbegin\r\n  if not CheckDataSet then\r\n    Exit;\r\n\r\n  if (Key = VK_DELETE) or (Key = VK_BACK) or ((Key = VK_INSERT) and (ssShift in Shift)) then\r\n  begin\r\n    FEditChange := true;\r\n    canedit := EditCanModify;\r\n    FEditChange := false;\r\n\r\n    if not canedit then\r\n    begin\r\n      key := 0;\r\n      inherited;\r\n      Exit;\r\n    end\r\n    else\r\n    begin\r\n      inherited;\r\n      FDataLink.Edit;\r\n    end;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TDBEdit.KeyPress(var Key: Char);\r\nvar\r\n  canedit: boolean;\r\nbegin\r\n  if not CheckDataSet or ReadOnly then\r\n  begin\r\n    inherited;\r\n    Exit;\r\n  end;\r\n\r\n  if FDataLink.DataSet.ControlsDisabled then\r\n  begin\r\n    PreventDefault;\r\n    StopPropagation;\r\n    Exit;\r\n  end;\r\n\r\n  FEditChange := true;\r\n  canedit := EditCanModify;\r\n  FEditChange := false;\r\n\r\n  if not canedit then\r\n  begin\r\n    Key := #0;\r\n    Exit;\r\n  end;\r\n\r\n  if {((Key >= #32) and (FDataLink.Field <> nil) and\r\n    not FDataLink.Field.IsValidChar(Key)) or} (FDataLink.ReadOnly) then\r\n  begin\r\n    Key := #0;\r\n  end;\r\n\r\n  inherited Keypress(Key);\r\nend;\r\n\r\nprocedure TDBEdit.Change;\r\nbegin\r\n  inherited;\r\n\r\n  if not CheckDataSet then\r\n    Exit;\r\n\r\n  if DataSource.AutoEdit or (DataSource.DataSet.State in [dsEdit,dsInsert]) then\r\n    FDataLink.Modified;\r\nend;\r\n\r\nfunction TDBEdit.CheckDataSet: boolean;\r\nbegin\r\n  Result := CheckDB(DataSource, DataField, FDataLink);\r\nend;\r\n\r\nfunction TDBEdit.EditCanModify: Boolean;\r\nbegin\r\n  if Assigned(DataSource) then\r\n    Result := not FDatalink.DataSet.ControlsDisabled and (DataSource.AutoEdit or (DataSource.DataSet.State in [dsEdit,dsInsert])) and FDataLink.Edit\r\n  else\r\n    Result := True;\r\nend;\r\n\r\n{ TDBLabel }\r\n\r\nfunction TDBLabel.GetDataField: TDataField;\r\nbegin\r\n  Result := FDataLink.FieldName;\r\nend;\r\n\r\nprocedure TDBLabel.SetDataField(const Value: TDataField);\r\nbegin\r\n  FDataLink.FieldName := Value;\r\n  FDataLink.UpdateField;\r\n  ActiveChange(Self);\r\nend;\r\n\r\nfunction TDBLabel.GetDataSource: TDataSource;\r\nbegin\r\n  Result := FDataLink.DataSource;\r\nend;\r\n\r\n\r\nfunction TDBLabel.GetDisplayText: string;\r\nbegin\r\n  if CheckDataSet then\r\n    Result := inherited GetDisplayText\r\n  else\r\n  begin\r\n    if (csDesigning in ComponentState) then\r\n      Result := Self.Name;\r\n  end;\r\nend;\r\n\r\nprocedure TDBLabel.SetDataSource(const Value: TDataSource);\r\nbegin\r\n  FDataLink.DataSource := Value;\r\nend;\r\n\r\nfunction TDBLabel.CheckDataSet: boolean;\r\nbegin\r\n  Result := CheckDB(DataSource, DataField, FDataLink);\r\nend;\r\n\r\nprocedure TDBLabel.CreateInitialize;\r\nbegin\r\n  if not Assigned(FDataLink) then\r\n  begin\r\n    FDataLink := TFieldDataLink.Create;\r\n    FDataLink.OnUpdateData := DataUpdate;\r\n    FDataLink.OnDataChange := DataChange;\r\n    FDataLink.OnActiveChange := ActiveChange;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\ndestructor TDBLabel.Destroy;\r\nbegin\r\n  FDataLink.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TDBLabel.DataUpdate(Sender: TObject);\r\nbegin\r\n//  ShowMessage('data update');\r\n//  if Assigned(FDataLink.Field) then\r\n//    FDataLink.Field.Text := Caption;\r\nend;\r\n\r\nprocedure TDBLabel.DataChange(Sender: TObject);\r\nbegin\r\n  if not Assigned(FDataLink.DataSet) then\r\n    Exit;\r\n\r\n  if not Assigned(FDataLink.Field) then\r\n    FDataLink.UpdateField;\r\n\r\n  if Assigned(FDataLink.Field) and not FDataLink.DataSet.IsEmpty then\r\n    Caption := FDataLink.Field.DisplayText\r\n  else\r\n    Caption := '';\r\nend;\r\n\r\nprocedure TDBLabel.ActiveChange(Sender: TObject);\r\nbegin\r\n   if Assigned(FDataLink.DataSet) then\r\n   begin\r\n     if not FDataLink.DataSet.Active or not DataSource.Enabled then\r\n       Caption := ''\r\n     else\r\n       DataChange(Self);\r\n   end;\r\nend;\r\n\r\n\r\n{ TDBNavigator }\r\n\r\nprocedure TDBNavigator.CreateInitialize;\r\nvar\r\n  css: string;\r\nbegin\r\n  inherited;\r\n\r\n  ControlStyle := ControlStyle - [csAcceptsControls];\r\n\r\n  css :=\r\n    // Rules for sizing the icon.\r\n    '.material-icons.md-18 { font-size: 18px; }'+\r\n    '.material-icons.md-24 { font-size: 24px; }'+\r\n    '.material-icons.md-36 { font-size: 36px; }'+\r\n    '.material-icons.md-48 { font-size: 48px; }'+\r\n\r\n    // Rules for using icons as black on a light background.\r\n    '.material-icons.md-dark { color: rgba(0, 0, 0, 0.54); }'+\r\n    '.material-icons.md-dark.md-inactive { color: rgba(255, 0, 0, 1); }'+\r\n\r\n    // Rules for using icons as white on a dark background.\r\n    '.material-icons.md-light { color: rgba(255, 255, 255, 1); }'+\r\n    '.material-icons.md-light.md-inactive { color: rgba(128, 128, 128, 1); }';\r\n\r\n  AddControlStyle(css);\r\n\r\n  Width := 32*9;\r\n  FMaterialGlyphColor := clNone;\r\n\r\n  FImages := TStringList.Create;\r\n\r\n  FHints := TStringList.Create;\r\n  FHints.Add('First');\r\n  FHints.Add('Prior');\r\n  FHints.Add('Next');\r\n  FHints.Add('Last');\r\n  FHints.Add('Edit');\r\n  FHints.Add('Post');\r\n  FHints.Add('Insert');\r\n  FHints.Add('Delete');\r\n  FHints.Add('Cancel');\r\n\r\n  if not Assigned(FDataLink) then\r\n  begin\r\n    FDataLink := TFieldDataLink.Create;\r\n    FDataLink.OnDataChange := DataChange;\r\n    FDataLink.OnActiveChange := ActiveChange;\r\n  end;\r\n\r\n  FBtnID := FindUniqueName('DBNavBtn');\r\n\r\n  CreateButton(FFirstBtn, FBtnID + '_first', '&#xE5DC;',0);\r\n  CreateButton(FPriorBtn, FBtnID + '_prior', '&#xE5CB;',1);\r\n  CreateButton(FNextBtn, FBtnID + '_next', '&#xE5CC;',2);\r\n  CreateButton(FLastBtn, FBtnID + '_last', '&#xE5DD;',3);\r\n\r\n  CreateButton(FEditBtn, FBtnID + '_edit', '&#xE5C7;',4);\r\n  CreateButton(FPostBtn, FBtnID + '_post', '&#xE5CA;',5);\r\n  CreateButton(FInsertBtn, FBtnID + '_insert', '&#xE145;',6);\r\n  CreateButton(FDeleteBtn, FBtnID + '_delete','&#xE15B;',7);\r\n  CreateButton(FCancelBtn, FBtnID + '_cancel','&#xE14C;',8);\r\n\r\n  FVisibleButtons := [nbFirst, nbPrior, nbNext, nbLast,\r\n                  nbInsert, nbDelete, nbEdit, nbPost, nbCancel];\r\n\r\n  UpdateButtons;\r\nend;\r\n\r\ndestructor TDBNavigator.Destroy;\r\nbegin\r\n  FDataLink.Free;\r\n  FHints.Free;\r\n  FImages.Free;\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TDBNavigator.DoDelete;\r\nbegin\r\n  if Assigned(OnDelete) then\r\n    OnDelete(Self);\r\nend;\r\n\r\nprocedure TDBNavigator.DoEdit;\r\nbegin\r\n  if Assigned(OnEdit) then\r\n    OnEdit(Self);\r\n\r\nend;\r\n\r\nprocedure TDBNavigator.DoFirst;\r\nbegin\r\n  if Assigned(OnFirst) then\r\n    OnFirst(Self);\r\nend;\r\n\r\nprocedure TDBNavigator.DoInsert;\r\nbegin\r\n  if Assigned(OnInsert) then\r\n    OnInsert(Self);\r\nend;\r\n\r\nprocedure TDBNavigator.DoLast;\r\nbegin\r\n  if Assigned(OnLast) then\r\n    OnLast(Self);\r\nend;\r\n\r\nprocedure TDBNavigator.DoNext;\r\nbegin\r\n  if Assigned(OnNext) then\r\n    OnNext(Self);\r\nend;\r\n\r\nprocedure TDBNavigator.DoPost;\r\nbegin\r\n  if Assigned(OnPost) then\r\n    OnPost(Self);\r\nend;\r\n\r\nprocedure TDBNavigator.DoPrior;\r\nbegin\r\n  if Assigned(OnPrior) then\r\n    OnPrior(Self);\r\nend;\r\n\r\nprocedure TDBNavigator.SetDataSource(const Value: TDataSource);\r\nbegin\r\n  FDataLink.DataSource := Value;\r\nend;\r\n\r\nprocedure TDBNavigator.SetEnabled(Value: Boolean);\r\nbegin\r\n  inherited;\r\n  UpdateButtons;\r\nend;\r\n\r\nprocedure TDBNavigator.SetHints(const Value: TStringList);\r\nbegin\r\n  FHints.Assign(Value);\r\n  UpdateButtons;\r\nend;\r\n\r\nprocedure TDBNavigator.SetImages(const Value: TStringList);\r\nbegin\r\n  FImages.Assign(Value);\r\n  UpdateButtons;\r\nend;\r\n\r\nprocedure TDBNavigator.SetMaterialGlyphColor(const Value: TColor);\r\nbegin\r\n  if (FMaterialGlyphColor <> Value) then\r\n  begin\r\n    FMaterialGlyphColor := Value;\r\n    UpdateButtons;\r\n  end;\r\nend;\r\n\r\nprocedure TDBNavigator.SetVisibleButtons(const Value: TNavButtonSet);\r\nbegin\r\n  FVisibleButtons := Value;\r\n  UpdateButtons;\r\nend;\r\n\r\nprocedure TDBNavigator.GetChildren(Proc: TGetChildProc; Root: TComponent);\r\nbegin\r\n  // do nothing\r\nend;\r\n\r\nfunction TDBNavigator.GetDataSource: TDataSource;\r\nbegin\r\n  Result := FDataLink.DataSource;\r\nend;\r\n\r\nprocedure TDBNavigator.CreateButton(var btn: TSpeedButton; BtnID, Glyph: string; Index: integer);\r\nbegin\r\n  btn := TSpeedButton.Create(BtnID);\r\n  btn.Flat := true;\r\n  btn.Parent := Self;\r\n\r\n  if (FImages.Count > Index) and (FImages[Index] <> '') then\r\n    btn.GlyphURL := FImages[Index]\r\n  else\r\n    btn.MaterialGlyph := Glyph;\r\n\r\n  btn.Width := 32;\r\n  btn.Height := 24;\r\n  btn.Align := alLeft;\r\n\r\n  if FHints.Count > Index then\r\n  begin\r\n    btn.Hint := FHints[Index];\r\n  end;\r\n  btn.ShowHint := (FHints.Count > Index) and (btn.Hint <> '');\r\n  btn.OnClick := HandleSpeedButtonClick;\r\n  btn.OnMouseDown := HandleSpeedButtonMouseDown;\r\n  btn.MaterialGlyphColor := FMaterialGlyphColor;\r\nend;\r\n\r\nprocedure TDBNavigator.UpdateButtons;\r\nbegin\r\n  if Assigned(FDataLink) and Assigned(FDataLink.DataSource) and Assigned(FDataLink.DataSource.DataSet) and Assigned(FDataLink.DataSource.DataSet.Active)  then\r\n  begin\r\n    FFirstBtn.Enabled := Enabled and (FDataLink.DataSet.Active and not FDataLink.DataSet.BOF);\r\n    FPriorBtn.Enabled := Enabled and (FDataLink.DataSet.Active and not FDataLink.DataSet.BOF);\r\n    FNextBtn.Enabled := Enabled and (FDataLink.DataSet.Active and not FDataLink.DataSet.EOF);\r\n    FLastBtn.Enabled := Enabled and (FDataLink.DataSet.Active and not FDataLink.DataSet.EOF);\r\n    FPostBtn.Enabled := Enabled and (FDataLink.DataSet.Active  and (FDataLink.DataSet.State in [dsEdit, dsInsert]));\r\n    FEditBtn.Enabled := Enabled and (FDataLink.DataSet.Active  and (FDataLink.DataSet.State = dsBrowse) and not FDataLink.DataSet.IsEmpty);\r\n    FInsertBtn.Enabled := Enabled and (FDataLink.DataSet.Active and not (FDataLink.DataSet.State = dsInsert));\r\n    FDeleteBtn.Enabled := Enabled and (FDataLink.DataSet.Active and not FDataLink.DataSet.IsEmpty);\r\n    FCancelBtn.Enabled := Enabled and (FDataLink.DataSet.Active and (FDataLink.DataSet.State in [dsInsert, dsEdit]));\r\n  end\r\n  else\r\n  begin\r\n    FFirstBtn.Enabled := false;\r\n    FPriorBtn.Enabled := false;\r\n    FNextBtn.Enabled := false;\r\n    FLastBtn.Enabled := false;\r\n    FEditBtn.Enabled := false;\r\n    FPostBtn.Enabled := false;\r\n    FInsertBtn.Enabled := false;\r\n    FDeleteBtn.Enabled := false;\r\n    FCancelBtn.Enabled := false;\r\n  end;\r\n\r\n  FFirstBtn.Visible := nbFirst in VisibleButtons;\r\n  FPriorBtn.Visible := nbPrior in VisibleButtons;\r\n  FNextBtn.Visible := nbNext in VisibleButtons;\r\n  FLastBtn.Visible := nbLast in VisibleButtons;\r\n  FEditBtn.Visible := nbEdit in VisibleButtons;\r\n  FPostBtn.Visible := nbPost in VisibleButtons;\r\n  FInsertBtn.Visible := nbInsert in VisibleButtons;\r\n  FDeleteBtn.Visible := nbDelete in VisibleButtons;\r\n  FCancelBtn.Visible := nbCancel in VisibleButtons;\r\n\r\n  FFirstBtn.MaterialGlyphColor := FMaterialGlyphColor;\r\n  FPriorBtn.MaterialGlyphColor := FMaterialGlyphColor;\r\n  FNextBtn.MaterialGlyphColor := FMaterialGlyphColor;\r\n  FLastBtn.MaterialGlyphColor := FMaterialGlyphColor;\r\n  FEditBtn.MaterialGlyphColor := FMaterialGlyphColor;\r\n  FPostBtn.MaterialGlyphColor := FMaterialGlyphColor;\r\n  FInsertBtn.MaterialGlyphColor := FMaterialGlyphColor;\r\n  FDeleteBtn.MaterialGlyphColor := FMaterialGlyphColor;\r\n  FCancelBtn.MaterialGlyphColor := FMaterialGlyphColor;\r\n\r\n  while FHints.Count < 9 do\r\n    FHints.Add('');\r\n\r\n  FFirstBtn.Hint := Hints.Strings[0];\r\n  FPriorBtn.Hint := Hints.Strings[1];\r\n  FNextBtn.Hint := Hints.Strings[2];\r\n  FLastBtn.Hint := Hints.Strings[3];\r\n  FEditBtn.Hint := Hints.Strings[4];\r\n  FPostBtn.Hint := Hints.Strings[5];\r\n  FInsertBtn.Hint := Hints.Strings[6];\r\n  FDeleteBtn.Hint := Hints.Strings[7];\r\n  FCancelBtn.Hint := Hints.Strings[8];\r\n\r\n  UpdateImage(FFirstBtn, '&#xE5DC;', 0);\r\n  UpdateImage(FPriorBtn, '&#xE5CB;', 1);\r\n  UpdateImage(FNextBtn, '&#xE5CC;', 2);\r\n  UpdateImage(FLastBtn, '&#xE5DD;', 3);\r\n\r\n  UpdateImage(FEditBtn, '&#xE5C7;', 4);\r\n  UpdateImage(FPostBtn, '&#xE5CA;', 5);\r\n  UpdateImage(FInsertBtn, '&#xE145;', 6);\r\n  UpdateImage(FDeleteBtn, '&#xE15B;', 7);\r\n  UpdateImage(FCancelBtn, '&#xE14C;', 8);\r\nend;\r\n\r\nprocedure TDBNavigator.UpdateElement;\r\nbegin\r\n  inherited;\r\n  if not IsUpdating then\r\n    AddControlLink('googlematerial', 'https://fonts.googleapis.com/icon?family=Material+Icons');\r\nend;\r\n\r\nprocedure TDBNavigator.UpdateImage(btn: TSpeedButton; Glyph: string; Index: integer);\r\nbegin\r\n  if (FImages.Count > Index) and (FImages[Index] <> '') then\r\n  begin\r\n    btn.MaterialGlyph := '';\r\n    btn.GlyphURL := FImages[Index];\r\n  end\r\n  else\r\n  begin\r\n    btn.MaterialGlyph := Glyph;\r\n    btn.GlyphURL := '';\r\n  end;\r\nend;\r\n\r\nprocedure TDBNavigator.HandleSpeedButtonClick(Sender: TObject);\r\nvar\r\n  BID: string;\r\nbegin\r\n  if Assigned(DataSource) and Assigned(DataSource.DataSet) then\r\n  begin\r\n    BID := TControl(Sender).GetID;\r\n\r\n    if BID = FBtnID + '_first' then\r\n    begin\r\n      DoFirst;\r\n      FDataLink.DataSet.First;\r\n    end;\r\n\r\n    if BID = FBtnID + '_prior' then\r\n    begin\r\n      DoPrior;\r\n      FDataLink.DataSet.Prior;\r\n    end;\r\n\r\n    if BID = FBtnID + '_next' then\r\n    begin\r\n      DoNext;\r\n      FDataLink.DataSet.Next;\r\n    end;\r\n\r\n    if BID = FBtnID + '_last' then\r\n    begin\r\n      DoLast;\r\n      FDataLink.DataSet.Last;\r\n    end;\r\n\r\n    if BID = FBtnID + '_edit' then\r\n    begin\r\n      DoEdit;\r\n      FDataLink.DataSet.Edit;\r\n    end;\r\n\r\n    if BID = FBtnID + '_insert' then\r\n    begin\r\n      DoInsert;\r\n      FDataLink.DataSet.Insert;\r\n    end;\r\n\r\n    if BID = FBtnID + '_delete' then\r\n    begin\r\n      DoDelete;\r\n      FDataLink.DataSet.Delete;\r\n    end;\r\n\r\n    if BID = FBtnID + '_post' then\r\n    begin\r\n      DoPost;\r\n      FDataLink.DataSet.Post;\r\n    end;\r\n\r\n    if BID = FBtnID + '_cancel' then\r\n      FDataLink.DataSet.Cancel;\r\n  end;\r\nend;\r\n\r\nprocedure TDBNavigator.HandleSpeedButtonMouseDown(Sender: TObject;\r\n  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);\r\nbegin\r\n  SetFocus;\r\nend;\r\n\r\nprocedure TDBNavigator.Loaded;\r\nbegin\r\n  inherited;\r\n  UpdateButtons;\r\nend;\r\n\r\nprocedure TDBNavigator.DataChange(Sender: TObject);\r\nbegin\r\n  UpdateButtons;\r\nend;\r\n\r\nprocedure TDBNavigator.ActiveChange(Sender: TObject);\r\nbegin\r\n  UpdateButtons;\r\nend;\r\n\r\n\r\n{ TDBSpinEdit }\r\n\r\nfunction TDBSpinEdit.GetDataField: TDataField;\r\nbegin\r\n  Result := FDataLink.FieldName;\r\nend;\r\n\r\nprocedure TDBSpinEdit.SetDataField(const Value: TDataField);\r\nbegin\r\n  FDataLink.FieldName := Value;\r\n  FDataLink.UpdateField;\r\n  ActiveChange(Self);\r\nend;\r\n\r\nfunction TDBSpinEdit.GetDataSource: TDataSource;\r\nbegin\r\n  Result := FDataLink.DataSource;\r\nend;\r\n\r\nfunction TDBSpinEdit.GetDisplayText: string;\r\nbegin\r\n  if not CheckDataSet then\r\n    Result := ''\r\n  else\r\n    Result := inherited GetDisplayText;\r\nend;\r\n\r\nfunction TDBSpinEdit.IsEnabled: boolean;\r\nbegin\r\n  Result := Enabled and CheckDataSet and (DataSource.AutoEdit or (DataSource.DataSet.State in [dsEdit,dsInsert]));\r\nend;\r\n\r\nfunction TDBSpinEdit.IsReadOnly: boolean;\r\nbegin\r\n  Result := ReadOnly or not CheckDataSet;\r\nend;\r\n\r\nprocedure TDBSpinEdit.SetDataSource(const Value: TDataSource);\r\nbegin\r\n  FDataLink.DataSource := Value;\r\nend;\r\n\r\nprocedure TDBSpinEdit.CreateInitialize;\r\nbegin\r\n  if not Assigned(FDataLink) then\r\n  begin\r\n    FDataLink := TFieldDataLink.Create;\r\n    FDataLink.OnUpdateData := DataUpdate;\r\n    FDataLink.OnDataChange := DataChange;\r\n    FDataLink.OnActiveChange := ActiveChange;\r\n    FEditChange := false;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\ndestructor TDBSpinEdit.Destroy;\r\nbegin\r\n  FDataLink.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TDBSpinEdit.DoExit;\r\nbegin\r\n  if not FDataLink.ReadOnly then\r\n  begin\r\n//    try\r\n      FEditChange := true;\r\n      FDataLink.UpdateRecord;     { tell data link to update database }\r\n\r\n//    except\r\n//      on Exception do\r\n//      begin\r\n//        SetFocus;   { if it failed, don't let focus leave }\r\n//        raise;\r\n//      end;\r\n//    end;\r\n  end;\r\n\r\n  inherited DoExit;\r\n\r\n  FEditChange := false;\r\nend;\r\n\r\nfunction TDBSpinEdit.EditCanModify: Boolean;\r\nbegin\r\n  if Assigned(DataSource) then\r\n    Result := not FDatalink.DataSet.ControlsDisabled and (DataSource.AutoEdit or (FDataLink.DataSet.State in [dsInsert, dsEdit])) and FDataLink.Edit\r\n  else\r\n    Result := true;\r\nend;\r\n\r\nprocedure TDBSpinEdit.DataUpdate(Sender: TObject);\r\nbegin\r\n  if Assigned(FDataLink.Field) then\r\n  begin\r\n    if not Assigned(FDataLink.Field) then\r\n      FDataLink.UpdateField;\r\n\r\n    FDataLink.Field.AsInteger := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TDBSpinEdit.DataChange(Sender: TObject);\r\nbegin\r\n  if FEditChange then\r\n    Exit;\r\n\r\n  if not Assigned(FDataLink.DataSet) then\r\n    Exit;\r\n\r\n  UpdateElement;\r\n\r\n  if not Assigned(FDataLink.Field) then\r\n    FDataLink.UpdateField;\r\n\r\n  if Assigned(FDataLink.Field) and not FDataLink.DataSet.IsEmpty then\r\n    Value := FDataLink.Field.AsInteger\r\n  else\r\n    Value := 0;\r\nend;\r\n\r\nprocedure TDBSpinEdit.ActiveChange(Sender: TObject);\r\nbegin\r\n   if Assigned(FDataLink.DataSet) then\r\n   begin\r\n     if not FDataLink.DataSet.Active or not DataSource.Enabled then\r\n     begin\r\n       Text := '';\r\n       Value := 0;\r\n     end\r\n     else\r\n       DataChange(Self);\r\n   end;\r\nend;\r\n\r\nprocedure TDBSpinEdit.KeyDown(var Key: Word; Shift: TShiftState);\r\nvar\r\n  canedit: boolean;\r\n\r\nbegin\r\n  if not Assigned(DataSource) then\r\n  begin\r\n    inherited;\r\n    Exit;\r\n  end;\r\n\r\n  if not FDataLink.DataSet.Active or not DataSource.Enabled then\r\n  begin\r\n    inherited;\r\n    Exit;\r\n  end;\r\n\r\n  if (Key = VK_DELETE) or (Key = VK_BACK) or ((Key = VK_INSERT) and (ssShift in Shift)) then\r\n  begin\r\n    FEditChange := true;\r\n    canedit := EditCanModify;\r\n    FEditChange := false;\r\n\r\n    if not canedit then\r\n    begin\r\n      key := 0;\r\n      inherited;\r\n      Exit;\r\n    end\r\n    else\r\n    begin\r\n      inherited;\r\n      FDataLink.Edit;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TDBSpinEdit.KeyPress(var Key: Char);\r\nvar\r\n  canedit: boolean;\r\nbegin\r\n  if not CheckDataSet or ReadOnly then\r\n  begin\r\n    inherited;\r\n    Exit;\r\n  end;\r\n\r\n  if FDataLink.DataSet.ControlsDisabled then\r\n  begin\r\n    PreventDefault;\r\n    StopPropagation;\r\n    Exit;\r\n  end;\r\n\r\n  if not FDataLink.DataSet.Active or not DataSource.Enabled then\r\n  begin\r\n    inherited;\r\n    Exit;\r\n  end;\r\n\r\n  FEditChange := true;\r\n  canedit := EditCanModify;\r\n  FEditChange := false;\r\n\r\n  if not canedit then\r\n    Exit;\r\n \r\n  if {(Key >= #32) and (FDataLink.Field <> nil) and\r\n    not FDataLink.Field.IsValidChar(Key) or} (FDataLink.ReadOnly) then\r\n  begin\r\n    Key := #0;\r\n  end;\r\n\r\n  inherited Keypress(Key);\r\nend;\r\n\r\nprocedure TDBSpinEdit.Change;\r\nvar\r\n  canedit: boolean;\r\nbegin\r\n  inherited;\r\n\r\n  if not CheckDataSet then\r\n    Exit;\r\n\r\n  FEditChange := true;\r\n  canedit := EditCanModify;\r\n  FEditChange := false;\r\n\r\n  if canedit then\r\n  begin\r\n    FDataLink.Edit;\r\n    FDataLink.Modified;\r\n  end;\r\nend;\r\n\r\nfunction TDBSpinEdit.CheckDataSet: boolean;\r\nbegin\r\n  Result := CheckDB(DataSource, DataField, FDataLink);\r\nend;\r\n\r\n{ TDBCheckBox }\r\n\r\nprocedure TDBCheckBox.SetDataField(const Value: TDataField);\r\nbegin\r\n  FDataLink.FieldName := Value;\r\n  FDataLink.UpdateField;\r\n  ActiveChange(Self);\r\nend;\r\n\r\nprocedure TDBCheckBox.SetDataSource(const Value: TDataSource);\r\nbegin\r\n  FDatalink.DataSource := Value;\r\nend;\r\n\r\nfunction TDBCheckBox.GetDataSource: TDataSource;\r\nbegin\r\n  Result := FDataLink.DataSource;\r\nend;\r\n\r\nfunction TDBCheckBox.IsEnabled: boolean;\r\nbegin\r\n  Result := Enabled and CheckDataSet and (DataSource.AutoEdit or (DataSource.DataSet.State in [dsEdit,dsInsert]));\r\nend;\r\n\r\nfunction TDBCheckBox.GetDataField: TDataField;\r\nbegin\r\n  Result := FDataLink.FieldName;\r\nend;\r\n\r\nprocedure TDBCheckBox.DataUpdate(Sender: TObject);\r\nbegin\r\n  if Assigned(FDataLink.Field) then\r\n  begin\r\n    if not Assigned(FDataLink.Field) then\r\n      FDataLink.UpdateField;\r\n\r\n    if FDataLink.Field.DataType = ftString then\r\n    begin\r\n      if Checked then\r\n        FDataLink.Field.AsString := ValueChecked\r\n      else\r\n        FDataLink.Field.AsString := ValueUnChecked;\r\n    end\r\n    else\r\n      FDataLink.Field.AsBoolean := Checked;\r\n  end;\r\nend;\r\n\r\nprocedure TDBCheckBox.DataChange(Sender: TObject);\r\nbegin\r\n  UpdateElement;\r\n  if FEditChange then\r\n    Exit;\r\n\r\n  if not Assigned(FDataLink.DataSet) then\r\n    Exit;\r\n\r\n  if not Assigned(FDataLink.Field) then\r\n    FDataLink.UpdateField;\r\n\r\n  if Assigned(FDataLink.Field) and not FDataLink.DataSet.IsEmpty then\r\n  begin\r\n    if FDataLink.Field.DataType = ftString then\r\n      Checked := FDataLink.Field.AsString = ValueChecked\r\n    else\r\n      Checked := FDataLink.Field.AsBoolean;\r\n  end\r\n  else\r\n    Checked := false;\r\nend;\r\n\r\nfunction TDBCheckBox.EditCanModify: Boolean;\r\nbegin\r\n  if Assigned(DataSource) then\r\n    Result := not FDatalink.DataSet.ControlsDisabled and (DataSource.AutoEdit or (FDataLink.DataSet.State in [dsEdit, dsInsert])) and FDataLink.Edit\r\n  else\r\n    Result := true;\r\nend;\r\n\r\nprocedure TDBCheckBox.EditingChanged(Sender: TObject);\r\nbegin\r\n  if Assigned(FDataLink.Field) and not FDataLink.DataSet.IsEmpty then\r\n  begin\r\n    if (FDataLink.Field.DataType = ftString) and (ValueChecked <> '') and (ValueUnChecked <> '') then\r\n    begin\r\n      if (FDataLink.Field.AsString = '') then\r\n      begin\r\n        if Checked then\r\n          FDataLink.Field.AsString := ValueChecked\r\n        else\r\n          FDataLink.Field.AsString := ValueUnChecked;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TDBCheckBox.ActiveChange(Sender: TObject);\r\nbegin\r\n  UpdateElement;\r\n  if Assigned(FDataLink.DataSet) then\r\n  begin\r\n    if not FDataLink.DataSet.Active or not DataSource.Enabled then\r\n      Checked := false\r\n    else\r\n      DataChange(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TDBCheckBox.CreateInitialize;\r\nbegin\r\n  if not Assigned(FDataLink) then\r\n  begin\r\n    FDataLink := TFieldDataLink.Create;\r\n    FDataLink.OnUpdateData := DataUpdate;\r\n    FDataLink.OnDataChange := DataChange;\r\n    FDataLink.OnActiveChange := ActiveChange;\r\n    FDataLink.OnEditingChanged := EditingChanged;\r\n    FEditChange := false;\r\n    FValueChecked := 'True';\r\n    FValueUnChecked := 'False';\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\ndestructor TDBCheckBox.Destroy; \r\nbegin\r\n  FDataLink.Free;\r\n  inherited Destroy;\r\nend;\r\n\r\nfunction TDBCheckBox.CheckDataSet: boolean;\r\nbegin\r\n   Result := CheckDB(DataSource, DataField, FDataLink);\r\nend;\r\n\r\nprocedure TDBCheckBox.Click;\r\nvar\r\n  canedit: boolean;\r\nbegin\r\n  inherited;\r\n\r\n  if not Assigned(DataSource) then\r\n    Exit;\r\n\r\n  if not FDataLink.DataSet.Active or not DataSource.Enabled then\r\n    Exit;\r\n\r\n  FEditChange := true;\r\n  canedit := EditCanModify;\r\n  FEditChange := false;\r\n\r\n  if canedit then\r\n  begin\r\n    FDataLink.Edit;\r\n    FDataLink.Modified;\r\n  end;\r\nend;\r\n\r\n{ TDBDateTimePicker }\r\n\r\nprocedure TDBDateTimePicker.SetDataField(const Value: TDataField);\r\nbegin\r\n  FDataLink.FieldName := Value;\r\n  FDataLink.UpdateField;\r\n  ActiveChange(Self);\r\nend;\r\n\r\nprocedure TDBDateTimePicker.SetDataSource(const Value: TDataSource);\r\nbegin\r\n  FDatalink.DataSource := Value;\r\nend;\r\n\r\nfunction TDBDateTimePicker.GetDataSource: TDataSource;\r\nbegin\r\n  Result := FDataLink.DataSource;\r\nend;\r\n\r\nfunction TDBDateTimePicker.IsEnabled: boolean;\r\nbegin\r\n  Result := Enabled and CheckDataSet and (DataSource.AutoEdit or (DataSource.DataSet.State in [dsEdit,dsInsert]));\r\nend;\r\n\r\nfunction TDBDateTimePicker.IsReadOnly: boolean;\r\nbegin\r\n  Result := ReadOnly or not CheckDataSet;\r\nend;\r\n\r\nprocedure TDBDateTimePicker.KeyDown(var Key: Word; Shift: TShiftState);\r\nvar\r\n  canedit: boolean;\r\n\r\nbegin\r\n  if not CheckDataSet then\r\n  begin\r\n    inherited;\r\n    Exit;\r\n  end;\r\n\r\n  if not FDataLink.DataSet.Active or not DataSource.Enabled then\r\n  begin\r\n    inherited;\r\n    Exit;\r\n  end;\r\n\r\n  if (Key = VK_DELETE) or (Key = VK_BACK) or ((Key = VK_INSERT) and (ssShift in Shift)) then\r\n  begin\r\n    FEditChange := true;\r\n    canedit := EditCanModify;\r\n    FEditChange := false;\r\n\r\n    if not canedit then\r\n    begin\r\n      key := 0;\r\n      inherited;\r\n      Exit;\r\n    end\r\n    else\r\n    begin\r\n      inherited;\r\n      FDataLink.Edit;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TDBDateTimePicker.KeyPress(var Key: Char);\r\nbegin\r\n  if not CheckDataSet or ReadOnly then\r\n  begin\r\n    inherited;\r\n    Exit;\r\n  end;\r\n\r\n  if FDataLink.DataSet.ControlsDisabled then\r\n  begin\r\n    PreventDefault;\r\n    StopPropagation;\r\n    Exit;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\nfunction TDBDateTimePicker.GetDataField: TDataField;\r\nbegin\r\n  Result := FDataLink.FieldName;\r\nend;\r\n\r\nprocedure TDBDateTimePicker.DataUpdate(Sender: TObject);\r\nbegin\r\n  if Assigned(FDataLink.Field) then\r\n  begin\r\n    if not Assigned(FDataLink.Field) then\r\n      FDataLink.UpdateField;\r\n\r\n    FEditChange := true;\r\n\r\n    FDataLink.Field.AsDateTime := DateTime;\r\n  end;\r\n\r\n  FEditChange := false;\r\nend;\r\n\r\nprocedure TDBDateTimePicker.DataChange(Sender: TObject);\r\nvar\r\n  dt: TDateTime;\r\nbegin\r\n  UpdateElement;\r\n\r\n  if FEditChange then\r\n    Exit;\r\n\r\n  if not Assigned(FDataLink.DataSet) then\r\n    Exit;\r\n\r\n  if not Assigned(FDataLink.Field) then\r\n    FDataLink.UpdateField;\r\n\r\n  if Assigned(FDataLink.Field) and not FDataLink.DataSet.IsEmpty then\r\n  begin\r\n    if FDataLink.Field.AsString = '' then\r\n      Clear\r\n    else\r\n      if TRESTClient.IsIsoDateTime(FDataLink.Field.AsString) then\r\n        DateTime := TRESTClient.IsoToDateTime(FDataLink.Field.AsString)\r\n      else\r\n        if TryStrToDateTime(FDataLink.Field.AsString, dt) then\r\n          DateTime := dt\r\n        else\r\n          Clear;\r\n  end\r\n  else\r\n  begin\r\n    Date := 0;\r\n    Time := 0;\r\n  end;\r\nend;\r\n\r\n\r\nfunction TDBDateTimePicker.EditCanModify: Boolean;\r\nbegin\r\n  if Assigned(DataSource) then\r\n    Result := not FDatalink.DataSet.ControlsDisabled and (DataSource.AutoEdit or (FDataLink.DataSet.State in [dsEdit, dsInsert])) and FDataLink.Edit\r\n  else\r\n    Result := true;\r\nend;\r\n\r\n\r\nprocedure TDBDateTimePicker.ActiveChange(Sender: TObject);\r\nbegin\r\n  UpdateElement;\r\n\r\n  if Assigned(FDataLink.DataSet) then\r\n  begin\r\n    if not FDataLink.DataSet.Active or not DataSource.Enabled then\r\n    begin\r\n      Date := Now;\r\n    end\r\n    else\r\n      DataChange(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TDBDateTimePicker.Change;\r\nbegin\r\n  inherited;\r\n\r\n  if not CheckDataSet then\r\n    Exit;\r\n\r\n  if DataSource.AutoEdit or (DataSource.DataSet.State in [dsEdit, dsInsert]) then\r\n  begin\r\n    FEditChange := true;\r\n    FDataLink.Edit;\r\n    FDataLink.Modified;\r\n    FEditChange := false;\r\n  end;\r\nend;\r\n\r\nfunction TDBDateTimePicker.CheckDataSet: boolean;\r\nbegin\r\n  Result := CheckDB(DataSource, DataField, FDataLink);\r\nend;\r\n\r\nprocedure TDBDateTimePicker.CreateInitialize;\r\nbegin\r\n  if not Assigned(FDataLink) then\r\n  begin\r\n    FDataLink := TFieldDataLink.Create;\r\n    FDataLink.OnUpdateData := DataUpdate;\r\n    FDataLink.OnDataChange := DataChange;\r\n    FDataLink.OnActiveChange := ActiveChange;\r\n    FEditChange := false;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\ndestructor TDBDateTimePicker.Destroy;\r\nbegin\r\n  FDataLink.Free;\r\n  inherited Destroy;\r\nend;\r\n\r\n\r\nprocedure TDBDateTimePicker.DoExit;\r\nbegin\r\n  if not FDataLink.ReadOnly then\r\n  begin\r\n//    try\r\n      FEditChange := true;\r\n      FDataLink.UpdateRecord;     { tell data link to update database }\r\n\r\n//    except\r\n//      on Exception do\r\n//      begin\r\n//        SetFocus;   { if it failed, don't let focus leave }\r\n//        raise;\r\n//      end;\r\n//    end;\r\n  end;\r\n\r\n  inherited DoExit;\r\n\r\n  FEditChange := false;\r\nend;\r\n\r\n{ TDBComboBox }\r\n\r\nprocedure TDBComboBox.SetDataField(const Value: TDataField);\r\nbegin\r\n  FDataLink.FieldName := Value;\r\n  FDataLink.UpdateField;\r\n  ActiveChange(Self);\r\nend;\r\n\r\nprocedure TDBComboBox.SetDataSource(const Value: TDataSource);\r\nbegin\r\n  FDatalink.DataSource := Value;\r\nend;\r\n\r\nprocedure TDBComboBox.SetListField(const Value: string);\r\nbegin\r\n  FListLink.FieldName := Value;\r\n  ListActiveChange(Self);\r\nend;\r\n\r\nprocedure TDBComboBox.SetListSource(const Value: TDataSource);\r\nbegin\r\n  FListLink.DataSource := Value;\r\nend;\r\n\r\nfunction TDBComboBox.GetDataSource: TDataSource;\r\nbegin\r\n  Result := FDataLink.DataSource;\r\nend;\r\n\r\nfunction TDBComboBox.GetListField: string;\r\nbegin\r\n  Result := FListLink.FieldName;\r\nend;\r\n\r\nfunction TDBComboBox.GetListSource: TDataSource;\r\nbegin\r\n  Result := FListLink.DataSource;\r\nend;\r\n\r\nfunction TDBComboBox.IsEnabled: boolean;\r\nbegin\r\n  Result := Enabled and CheckDataSet and (DataSource.AutoEdit or (DataSource.DataSet.State in [dsEdit,dsInsert]));\r\nend;\r\n\r\nprocedure TDBComboBox.ListDataChange(Sender: TObject);\r\nbegin\r\n  if Assigned(FListLink.Field) and Assigned(FListLink.DataSet) and FListLink.DataSet.Active and not (FListLink.DataSet.State = dsInsert) and not FListChange then\r\n  begin\r\n    FListChange := true;\r\n    ListActiveChange(Self);\r\n    FListChange := false;\r\n  end;\r\nend;\r\n\r\nprocedure TDBComboBox.ListActiveChange(Sender: TObject);\r\nvar\r\n  fld: TField;\r\n  bk: TBookmark;\r\nbegin\r\n  if not Assigned(ListSource) then\r\n    Exit;\r\n\r\n  if Assigned(FListLink.Field) and Assigned(FListLink.DataSet) and FListLink.DataSet.Active and not FListLink.DataSet.IsEmpty then\r\n  begin\r\n    fld := FListLink.DataSet.FieldByName(FListLink.FieldName);\r\n\r\n    if Assigned(fld) then\r\n    begin\r\n      FListLink.DataSet.DisableControls;\r\n      bk := FListLink.DataSet.GetBookmark;\r\n      Items.Clear;\r\n      FListLink.DataSet.First;\r\n\r\n      while not FListLink.DataSet.Eof do\r\n      begin\r\n        Items.Add(fld.DisplayText);\r\n        FListLink.DataSet.Next;\r\n      end;\r\n\r\n      FListLink.DataSet.GotoBookmark(bk);\r\n      DataChange(Self);\r\n      FListLink.DataSet.EnableControls;\r\n\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TDBComboBox.GetDataField: TDataField;\r\nbegin\r\n  Result := FDataLink.FieldName;\r\nend;\r\n\r\nprocedure TDBComboBox.DataUpdate(Sender: TObject);\r\nvar\r\n  s: string;\r\nbegin\r\n  if Assigned(FDataLink.Field) then\r\n  begin\r\n    if not Assigned(FDataLink.Field) then\r\n      FDataLink.UpdateField;\r\n\r\n    s := Text;\r\n    // in case key/value pairs are found\r\n    if (Pos(Items.NameValueSeparator, s) > 0) and not Assigned(ListSource) and (Style = csDropDownList) and (ItemIndex >= 0) then\r\n    begin\r\n      s := Items.Names[ItemIndex];\r\n    end;\r\n\r\n    FDataLink.Field.AsString := s;\r\n  end;\r\nend;\r\n\r\nprocedure TDBComboBox.DataChange(Sender: TObject);\r\nbegin\r\n  UpdateElement;\r\n\r\n  if FEditChange then\r\n    Exit;\r\n\r\n  if not Assigned(DataSource) then\r\n    Exit;\r\n\r\n  if not Assigned(FDataLink.DataSet) then\r\n    Exit;\r\n\r\n  if not Assigned(FDataLink.Field) then\r\n    FDataLink.UpdateField;\r\n\r\n  if Assigned(FDataLink.Field) and not FDataLink.DataSet.IsEmpty then\r\n  begin\r\n    if Style = csDropDown then\r\n      Text := FDataLink.Field.DisplayText\r\n    else\r\n    begin\r\n      if (Items.Count > 0) and (Pos(Items.NameValueSeparator, Items[0]) > 0) and not Assigned(ListSource) then\r\n      begin\r\n        ItemIndex := Items.IndexOfName(FDataLink.Field.DisplayText);\r\n      end\r\n      else\r\n      begin\r\n        ItemIndex := Items.IndexOf(FDataLink.Field.DisplayText);\r\n      end;\r\n    end;\r\n  end\r\n  else\r\n    ItemIndex := -1;\r\nend;\r\n\r\n\r\nfunction TDBComboBox.EditCanModify: Boolean;\r\nbegin\r\n  if Assigned(DataSource) then\r\n    Result := not FDatalink.DataSet.ControlsDisabled and (DataSource.AutoEdit or (FDataLink.DataSet.State in [dsEdit, dsInsert])) and FDataLink.Edit\r\n  else\r\n    Result := true;\r\nend;\r\n\r\nprocedure TDBComboBox.Change;\r\nbegin\r\n  inherited;\r\n\r\n  if not CheckDataSet then\r\n    Exit;\r\n\r\n  if DataSource.AutoEdit or (DataSource.DataSet.State in [dsEdit, dsInsert]) then\r\n  begin\r\n    FEditChange := true;\r\n    FDataLink.Edit;\r\n    FDataLink.Modified;\r\n\r\n    if (ItemIndex <> -1) and (Style = csDropDownList) and Assigned(FListLink) and Assigned(FListLink.DataSet) and FListLink.DataSet.Active and ListSync then\r\n    begin\r\n      FListLink.DataSet.First;\r\n      FListLink.DataSet.MoveBy(ItemIndex);\r\n    end;\r\n\r\n    FEditChange := false;\r\n  end;\r\nend;\r\n\r\nfunction TDBComboBox.CheckDataSet: boolean;\r\nbegin\r\n  Result := CheckDB(DataSource, DataField, FDataLink);\r\nend;\r\n\r\nprocedure TDBComboBox.ActiveChange(Sender: TObject);\r\nbegin\r\n  UpdateElement;\r\n\r\n  if Assigned(FDataLink.DataSet) then\r\n  begin\r\n\r\n    if not FDataLink.DataSet.Active or not DataSource.Enabled then\r\n    begin\r\n      Text := '';\r\n    end\r\n    else\r\n      DataChange(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TDBComboBox.CreateInitialize;\r\nbegin\r\n  if not Assigned(FDataLink) then\r\n  begin\r\n    FDataLink := TFieldDataLink.Create;\r\n    FDataLink.OnUpdateData := DataUpdate;\r\n    FDataLink.OnDataChange := DataChange;\r\n    FDataLink.OnActiveChange := ActiveChange;\r\n\r\n    FListLink := TFieldDataLink.Create;\r\n    FListLink.OnActiveChange := ListActiveChange;\r\n    FListLink.OnDataChange := ListDataChange;\r\n\r\n    FEditChange := false;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\ndestructor TDBComboBox.Destroy;\r\nbegin\r\n  FDataLink.Free;\r\n  FListLink.Free;\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TDBComboBox.DoExit;\r\nbegin\r\n  if not FDataLink.ReadOnly then\r\n  begin\r\n//    try\r\n      FEditChange := true;\r\n      FDataLink.UpdateRecord;     { tell data link to update database }\r\n\r\n//    except\r\n//      on Exception do\r\n//      begin\r\n//        SetFocus;   { if it failed, don't let focus leave }\r\n//        raise;\r\n//      end;\r\n//    end;\r\n  end;\r\n\r\n  inherited DoExit;\r\n\r\n  FEditChange := false;\r\n\r\nend;\r\n\r\n{ TDBRadioGroup }\r\n\r\nprocedure TDBRadioGroup.SetDataField(const Value: TDataField);\r\nbegin\r\n  FDataLink.FieldName := Value;\r\n  FDataLink.UpdateField;\r\n  ActiveChange(Self);\r\nend;\r\n\r\nprocedure TDBRadioGroup.SetDataSource(const Value: TDataSource);\r\nbegin\r\n  FDatalink.DataSource := Value;\r\nend;\r\n\r\nfunction TDBRadioGroup.GetDataSource: TDataSource;\r\nbegin\r\n  Result := FDataLink.DataSource;\r\nend;\r\n\r\nfunction TDBRadioGroup.IsEnabled: boolean;\r\nbegin\r\n  Result := Enabled and CheckDataSet and (DataSource.AutoEdit or (FDataLink.DataSet.State in [dsEdit, dsInsert]));\r\nend;\r\n\r\nfunction TDBRadioGroup.GetDataField: TDataField;\r\nbegin\r\n  Result := FDataLink.FieldName;\r\nend;\r\n\r\nprocedure TDBRadioGroup.DataUpdate(Sender: TObject);\r\nbegin\r\n  if Assigned(FDataLink.Field) then\r\n  begin\r\n    if not Assigned(FDataLink.Field) then\r\n      FDataLink.UpdateField;\r\n\r\n    if FDataLink.Field.DataType = ftString then\r\n    begin\r\n      if Values.Count > ItemIndex then\r\n        FDataLink.Field.AsString := Values[ItemIndex];\r\n    end\r\n    else\r\n      FDataLink.Field.AsInteger := ItemIndex + 1;\r\n  end;\r\nend;\r\n\r\nprocedure TDBRadioGroup.DataChange(Sender: TObject);\r\nbegin\r\n  UpdateElement;\r\n\r\n  if FEditChange then\r\n    Exit;\r\n\r\n  if not Assigned(FDataLink.DataSet) then\r\n    Exit;\r\n\r\n  if not Assigned(FDataLink.Field) then\r\n    FDataLink.UpdateField;\r\n\r\n  if Assigned(FDataLink.Field) and not FDataLink.DataSet.IsEmpty then\r\n  begin\r\n    if FDataLink.Field.DataType = ftString then\r\n    begin\r\n       ItemIndex := Values.IndexOf(FDataLink.Field.AsString);\r\n    end\r\n    else\r\n      ItemIndex := FDataLink.Field.AsInteger - 1;\r\n  end\r\n  else\r\n    ItemIndex := -1;\r\nend;\r\n\r\n\r\nfunction TDBRadioGroup.EditCanModify: Boolean;\r\nbegin\r\n  if Assigned(DataSource) then\r\n    Result := not FDatalink.DataSet.ControlsDisabled and (DataSource.AutoEdit or (FDataLink.DataSet.State in [dsEdit, dsInsert])) and FDataLink.Edit\r\n  else\r\n    Result := true;\r\nend;\r\n\r\nfunction TDBRadioGroup.CheckDataSet: boolean;\r\nbegin\r\n  Result := CheckDB(DataSource, DataField, FDataLink);\r\nend;\r\n\r\nprocedure TDBRadioGroup.Click;\r\nbegin\r\n  inherited;\r\n\r\n  if not CheckDataSet then\r\n    Exit;\r\n\r\n  if DataSource.AutoEdit or (DataSource.DataSet.State in [dsEdit, dsInsert]) then\r\n  begin\r\n    FEditChange := true;\r\n    FDataLink.Edit;\r\n    FDataLink.Modified;\r\n    FEditChange := false;\r\n  end;\r\nend;\r\n\r\nprocedure TDBRadioGroup.ActiveChange(Sender: TObject);\r\nbegin\r\n  UpdateElement;\r\n\r\n  if Assigned(FDataLink.DataSet) then\r\n  begin\r\n    if not FDataLink.DataSet.Active or not DataSource.Enabled then\r\n    begin\r\n      ItemIndex := -1;\r\n    end\r\n    else\r\n      DataChange(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TDBRadioGroup.CreateInitialize;\r\nbegin\r\n  if not Assigned(FDataLink) then\r\n  begin\r\n    FDataLink := TFieldDataLink.Create;\r\n    FDataLink.OnUpdateData := DataUpdate;\r\n    FDataLink.OnDataChange := DataChange;\r\n    FDataLink.OnActiveChange := ActiveChange;\r\n    FEditChange := false;\r\n  end;\r\n  if not Assigned(FValues) then\r\n  begin\r\n    FValues := TStringList.Create;\r\n    FValues.SkipLastLineBreak := true;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\ndestructor TDBRadioGroup.Destroy; \r\nbegin\r\n  FValues.Free;\r\n  FDataLink.Free;\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TDBRadioGroup.SetValues(const Value: TStringList);\r\nbegin\r\n  FValues.Assign(Value);\r\nend;\r\n\r\n\r\n{ TDBLinkLabel }\r\n\r\nprocedure TDBLinkLabel.SetDataField(const Value: TDataField);\r\nbegin\r\n  FDataLink.FieldName := Value;\r\n  FDataLink.UpdateField;\r\n  ActiveChange(Self);\r\nend;\r\n\r\nprocedure TDBLinkLabel.SetDataSource(const Value: TDataSource);\r\nbegin\r\n  FDatalink.DataSource := Value;\r\nend;\r\n\r\nfunction TDBLinkLabel.GetDataSource: TDataSource;\r\nbegin\r\n  Result := FDataLink.DataSource;\r\nend;\r\n\r\nfunction TDBLinkLabel.GetDisplayText: string;\r\nbegin\r\n  if CheckDataSet then\r\n    Result := inherited GetDisplayText\r\n  else\r\n  begin\r\n    if (csDesigning in ComponentState) then\r\n      Result := Self.Name;\r\n  end;\r\nend;\r\n\r\nfunction TDBLinkLabel.GetDataField: TDataField;\r\nbegin\r\n  Result := FDataLink.FieldName;\r\nend;\r\n\r\nprocedure TDBLinkLabel.DataUpdate(Sender: TObject);\r\nbegin\r\n  if Assigned(FDataLink.Field) then\r\n  begin\r\n    if not Assigned(FDataLink.Field) then\r\n      FDataLink.UpdateField;\r\n  end;\r\nend;\r\n\r\nprocedure TDBLinkLabel.DataChange(Sender: TObject);\r\nvar\r\n  url, protocol, tgt: string;\r\nbegin\r\n  if FEditChange then\r\n    Exit;\r\n\r\n  if not Assigned(FDataLink.DataSet) then\r\n    Exit;\r\n\r\n  if not Assigned(FDataLink.Field) then\r\n    FDataLink.UpdateField;\r\n\r\n  if Assigned(FDataLink.Field) and not FDataLink.DataSet.IsEmpty then\r\n  begin\r\n    case LinkType of\r\n    wlHttp: protocol := 'http://';\r\n    wlHttps: protocol := 'https://';\r\n    wlMail: protocol := 'mailto:';\r\n    wlFTP: protocol := 'ftp://';\r\n    end;\r\n\r\n    tgt := '';\r\n\r\n    if Target = ltNewTab then\r\n      tgt := ' target=\"_blank\"';\r\n\r\n    url := '<a href=\"' + protocol + FDataLink.Field.DisplayText + '\"'+ tgt + '>' + FDataLink.Field.DisplayText + '</a>';\r\n\r\n    Caption := url;\r\n  end\r\n  else\r\n    Caption := '';\r\nend;\r\n\r\n\r\nfunction TDBLinkLabel.EditCanModify: Boolean; \r\nbegin\r\n  Result := false;\r\nend;\r\n\r\nfunction TDBLinkLabel.CheckDataSet: boolean;\r\nbegin\r\n  Result := CheckDB(DataSource, DataField, FDataLink);\r\nend;\r\n\r\nprocedure TDBLinkLabel.Click;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TDBLinkLabel.ActiveChange(Sender: TObject);\r\nbegin\r\n   if Assigned(FDataLink.DataSet) then\r\n   begin\r\n     if not FDataLink.DataSet.Active or not DataSource.Enabled then \r\n     begin\r\n       Caption := '';\r\n     end\r\n     else\r\n       DataChange(Self);\r\n   end;\r\nend;\r\n\r\nprocedure TDBLinkLabel.CreateInitialize;\r\nbegin\r\n  if not Assigned(FDataLink) then\r\n  begin\r\n    FDataLink := TFieldDataLink.Create;\r\n    FDataLink.OnUpdateData := DataUpdate;\r\n    FDataLink.OnDataChange := DataChange;\r\n    FDataLink.OnActiveChange := ActiveChange;\r\n    FEditChange := false;\r\n    FLinkType := wlHttp;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\ndestructor TDBLinkLabel.Destroy; \r\nbegin\r\n  FDataLink.Free;\r\n  inherited Destroy;\r\nend;\r\n\r\n\r\n\r\n{ TDBMemo }\r\n\r\nprocedure TDBMemo.ActiveChange(Sender: TObject);\r\nbegin\r\n  UpdateElement;\r\n\r\n  if Assigned(FDataLink.DataSet) then\r\n  begin\r\n    if not FDataLink.DataSet.Active or not DataSource.Enabled then\r\n      Lines.Text := ''\r\n    else\r\n      DataChange(Self);\r\n  end;\r\nend;\r\n\r\nfunction TDBMemo.CanCut: boolean;\r\nvar\r\n  canedit: boolean;\r\nbegin\r\n  if not CheckDataSet then\r\n    Exit;\r\n\r\n  if ReadOnly then\r\n  begin\r\n    Result := false;\r\n    Exit;\r\n  end;\r\n\r\n  FEditChange := true;\r\n  canedit := EditCanModify;\r\n  FEditChange := false;\r\n\r\n  if not canedit then\r\n  begin\r\n    Result := false;\r\n    Exit;\r\n  end\r\n  else\r\n  begin\r\n    Result := inherited;\r\n    FDataLink.Edit;\r\n  end;\r\nend;\r\n\r\nfunction TDBMemo.CanPaste(AValue: string): boolean;\r\nbegin\r\n  Result := CanCut;\r\nend;\r\n\r\nprocedure TDBMemo.Change;\r\nbegin\r\n  inherited;\r\n\r\n  if not CheckDataSet then\r\n    Exit;\r\n\r\n  if DataSource.AutoEdit or (DataSource.DataSet.State in [dsEdit,dsInsert]) then\r\n  begin\r\n    FEditChange := true;\r\n    FDataLink.Edit;\r\n    FDataLink.Modified;\r\n    FEditChange := false;\r\n  end;\r\nend;\r\n\r\nfunction TDBMemo.CheckDataSet: boolean;\r\nbegin\r\n  Result := CheckDB(DataSource, DataField, FDataLink);\r\nend;\r\n\r\nprocedure TDBMemo.CreateInitialize;\r\nbegin\r\n  if not Assigned(FDataLink) then\r\n  begin\r\n    FDataLink := TFieldDataLink.Create;\r\n    FDataLink.OnUpdateData := DataUpdate;\r\n    FDataLink.OnDataChange := DataChange;\r\n    FDataLink.OnActiveChange := ActiveChange;\r\n    FEditChange := false;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TDBMemo.DataChange(Sender: TObject);\r\nbegin\r\n  if FEditChange then\r\n    Exit;\r\n\r\n  UpdateElement;\r\n\r\n  if not Assigned(FDataLink.DataSet) then\r\n    Exit;\r\n\r\n  if not Assigned(FDataLink.Field) then\r\n    FDataLink.UpdateField;\r\n\r\n  if Assigned(FDataLink.Field) and not FDataLink.DataSet.IsEmpty then\r\n  begin\r\n    if (FDataLink.Field is TBlobField) and not (FDataLink.Field is TMemoField) then\r\n    begin\r\n      try\r\n        Lines.Text := window.atob(string(FDataLink.Field.AsJSValue));\r\n      except\r\n        Lines.Text := FDataLink.Field.DisplayText;\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      Lines.Text := FDataLink.Field.DisplayText\r\n    end;\r\n  end\r\n  else\r\n    Lines.Text := '';\r\nend;\r\n\r\nprocedure TDBMemo.DataUpdate(Sender: TObject);\r\nbegin\r\n  if Assigned(FDataLink.Field) then\r\n  begin\r\n    if not Assigned(FDataLink.Field) then\r\n      FDataLink.UpdateField;\r\n\r\n    if (FDataLink.Field is TBlobField) and not (FDataLink.Field is TMemoField) then\r\n    begin\r\n      FDataLink.Field.AsJSValue := window.btoa(Lines.Text);\r\n    end\r\n    else\r\n    begin\r\n      Lines.TextLineBreakStyle := tlbsCR;\r\n      FDataLink.Field.AsString := Lines.Text;\r\n    end;\r\n  end;\r\nend;\r\n\r\ndestructor TDBMemo.Destroy;\r\nbegin\r\n  FDataLink.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TDBMemo.DoExit;\r\nbegin\r\n  if not FDataLink.ReadOnly then\r\n  begin\r\n//    try\r\n      FEditChange := true;\r\n      FDataLink.UpdateRecord;     { tell data link to update database }\r\n\r\n//    except\r\n//      on Exception do\r\n//      begin\r\n//        SetFocus;   { if it failed, don't let focus leave }\r\n//        raise;\r\n//      end;\r\n//    end;\r\n  end;\r\n\r\n  inherited DoExit;\r\n\r\n  FEditChange := false;\r\nend;\r\n\r\nfunction TDBMemo.EditCanModify: Boolean;\r\nbegin\r\n  if Assigned(DataSource) then\r\n    Result := not FDatalink.DataSet.ControlsDisabled and (DataSource.AutoEdit or (FDataLink.DataSet.State in [dsEdit, dsInsert])) and FDataLink.Edit\r\n  else\r\n    Result := true;\r\nend;\r\n\r\nfunction TDBMemo.GetDataField: TDataField;\r\nbegin\r\n  Result := FDataLink.FieldName;\r\nend;\r\n\r\nfunction TDBMemo.GetDataSource: TDataSource;\r\nbegin\r\n  Result := FDataLink.DataSource;\r\nend;\r\n\r\nfunction TDBMemo.GetDisplayText: string;\r\nbegin\r\n  if not CheckDataSet then\r\n    Result := ''\r\n  else\r\n    Result := inherited GetDisplayText;\r\nend;\r\n\r\nfunction TDBMemo.IsEnabled: boolean;\r\nbegin\r\n  Result := Enabled and CheckDataSet;\r\nend;\r\n\r\nfunction TDBMemo.IsReadOnly: boolean;\r\nbegin\r\n  Result := ReadOnly or not CheckDataSet;\r\nend;\r\n\r\nprocedure TDBMemo.KeyDown(var Key: Word; Shift: TShiftState);\r\nvar\r\n  canedit: boolean;\r\n\r\nbegin\r\n  if not CheckDataSet then\r\n    Exit;\r\n\r\n  if (Key = VK_DELETE) or (Key = VK_BACK) or ((Key = VK_INSERT) and (ssShift in Shift)) then\r\n  begin\r\n    FEditChange := true;\r\n    canedit := EditCanModify;\r\n    FEditChange := false;\r\n\r\n    if not canedit then\r\n    begin\r\n      key := 0;\r\n      inherited;\r\n      Exit;\r\n    end\r\n    else\r\n    begin\r\n      inherited;\r\n      FDataLink.Edit;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TDBMemo.KeyPress(var Key: Char);\r\nvar\r\n  canedit: boolean;\r\nbegin\r\n  if not CheckDataSet or ReadOnly then\r\n    Exit;\r\n\r\n  if FDataLink.DataSet.ControlsDisabled then\r\n  begin\r\n    PreventDefault;\r\n    StopPropagation;\r\n    Exit;\r\n  end;\r\n\r\n  FEditChange := true;\r\n  canedit := EditCanModify;\r\n  FEditChange := false;\r\n\r\n  if not canedit then\r\n    Exit;\r\n\r\n  if {(Key >= #32) and (FDataLink.Field <> nil) and\r\n    not FDataLink.Field.IsValidChar(Key) or} (FDataLink.ReadOnly) then\r\n  begin\r\n    Key := #0;\r\n  end;\r\n\r\n  inherited Keypress(Key);\r\nend;\r\n\r\nprocedure TDBMemo.SetDataField(const Value: TDataField);\r\nbegin\r\n  FDataLink.FieldName := Value;\r\n  FDataLink.UpdateField;\r\n  ActiveChange(Self);\r\nend;\r\n\r\nprocedure TDBMemo.SetDataSource(const Value: TDataSource);\r\nbegin\r\n  FDataLink.DataSource := Value;\r\nend;\r\n\r\n{ TDBTableControl }\r\n\r\nprocedure TDBTableControl.ActiveChange(Sender: TObject);\r\nbegin\r\n  // load data here from dataset\r\n  if not Assigned(DataSource) then\r\n    Exit;\r\n\r\n  if not Assigned(DataSource.DataSet) then\r\n    Exit;\r\n\r\n  if DataSource.Dataset.ControlsDisabled then\r\n    Exit;\r\n\r\n  if DataSource.DataSet.Active then\r\n  begin\r\n    FDataChanging := true;\r\n    LoadData;\r\n    FDataChanging := false;\r\n  end\r\n  else\r\n  begin\r\n    RowCount := 2;\r\n    Clear;\r\n    if FDefaultFields then\r\n      Columns.Clear;\r\n  end;\r\nend;\r\n\r\nprocedure TDBTableControl.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  RowCount := 2;\r\n\r\n  if not Assigned(FDataLink) then\r\n  begin\r\n    FDataLink := TDBDataLink.Create;\r\n    FDataLink.OnActiveChange := ActiveChange;\r\n    FDataLink.OnRecordChange := RecordChange;\r\n    FDataLink.OnDataChange := DataChange;\r\n  end;\r\n  if not Assigned(FColumns) then\r\n  begin\r\n    FColumns := TTableControlColumns.Create(Self);\r\n    FColumns.PropName := 'Columns';\r\n  end;\r\n  FDefaultFields := false;\r\n  FDataChanging := false;\r\nend;\r\n\r\nprocedure TDBTableControl.DataChange(Sender: TObject);\r\nbegin\r\n  if FDataChanging then\r\n    Exit;\r\n\r\n  FDataChanging := true;\r\n\r\n  if Assigned(FDataLink.DataSource) and Assigned(FDataLink.DataSource.DataSet) and FDataLink.DataSource.DataSet.Active and (FDataLink.DataSource.DataSet.State = dsBrowse) then\r\n  begin\r\n    LoadData;\r\n  end;\r\n\r\n  FDataChanging := false;\r\nend;\r\n\r\nprocedure TDBTableControl.RecordChange(Sender: TObject);\r\nvar\r\n  r: integer;\r\nbegin\r\n  if Assigned(FDataLink.DataSource) and Assigned(FDataLink.DataSource.DataSet) and FDataLink.DataSource.DataSet.Active and (FDataLink.DataSource.DataSet.State = dsBrowse) then\r\n  begin\r\n    r := FDataLink.DataSource.DataSet.RecNo - 1;\r\n\r\n    if r = -1  then\r\n      Exit;\r\n\r\n    if RowHeader then\r\n      inc(r);\r\n\r\n    if r < RowCount then\r\n      LoadRow(r);\r\n  end;\r\nend;\r\n\r\ndestructor TDBTableControl.Destroy;\r\nbegin\r\n  FDataLink.Free;\r\n  FColumns.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TDBTableControl.GetDataSource: TDataSource;\r\nbegin\r\n  Result := FDataLink.DataSource;\r\nend;\r\n\r\nprocedure TDBTableControl.LoadData;\r\nvar\r\n  c,r,i: integer;\r\n  lField: TField;\r\n  noflds: boolean;\r\n  cd,cn: string;\r\n  ce: TJSHTMLElement;\r\n  bk: TBookmark;\r\n  isBOF, isEOF: boolean;\r\n  scrollevent: TDataSetNotifyEvent;\r\nbegin\r\n  isBOF := DataSource.DataSet.BOF;\r\n  isEOF := DataSource.DataSet.EOF;\r\n\r\n  bk := DataSource.DataSet.GetBookmark;\r\n\r\n  DataSource.DataSet.DisableControls;\r\n\r\n  scrollevent := DataSource.DataSet.AfterScroll;\r\n  DataSource.DataSet.AfterScroll := nil;\r\n\r\n  DataSource.DataSet.First;\r\n\r\n  if RowHeader then\r\n    r := 1\r\n  else\r\n    r := 0;\r\n\r\n  noflds := true;\r\n\r\n  for i := 0 to Columns.Count - 1 do\r\n  begin\r\n    if Columns[i].DataField <> '' then\r\n      noflds := false;\r\n  end;\r\n\r\n  FDefaultFields := noflds;\r\n\r\n  if noflds and (Columns.Count > 0) then\r\n  begin\r\n    for i := 0 to DataSource.DataSet.FieldCount - 1 do\r\n    begin\r\n      if i >= Columns.Count then\r\n        Columns.Add;\r\n\r\n      with Columns[i] do\r\n      begin\r\n        if DataField = '' then\r\n          DataField := DataSource.DataSet.Fields[i].FieldName;\r\n        if Title = '' then\r\n          Title :=  DataSource.DataSet.Fields[i].DisplayLabel;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  if Columns.Count = 0 then\r\n  begin\r\n    for c := 0 to DataSource.DataSet.FieldCount - 1 do\r\n    begin\r\n      with Columns.Add do\r\n      begin\r\n        lField := DataSource.DataSet.Fields[c];\r\n        DataField := lField.FieldName;\r\n        Title := DataField;\r\n        if (lField is TBlobField) and not (lField is TMemoField) then\r\n        begin\r\n          DataType := cdMemo;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  ColCount := Columns.Count;\r\n  RowCount := DataSource.DataSet.RecordCount + r;\r\n\r\n  if RowHeader then\r\n  begin\r\n    for c := 0 to ColCount - 1 do\r\n    begin\r\n      lField := nil;\r\n\r\n      if (Columns[c].DataField <> '') then\r\n      begin\r\n        try\r\n          lField := DataSource.DataSet.FieldByName(Columns[c].DataField);\r\n        except\r\n          lField := nil;\r\n        end;\r\n      end;\r\n\r\n      cd := Columns[c].Title;\r\n\r\n      GetCellData(c, 0, nil, cd);\r\n      Cells[c, 0] := cd;\r\n\r\n      cn := Columns[c].TitleElementClassName;\r\n\r\n      ce := TJSHTMLElement(CellElements[c,0]);\r\n\r\n      GetCellChildren(c, 0, lField, cd, ce);\r\n\r\n      GetCellClassName(c, 0, lField, cd, cn);\r\n\r\n      if Assigned(ce) and (cn <> '') then\r\n        ce.setAttribute('class',cn);\r\n    end;\r\n  end;\r\n\r\n  // load all rows\r\n\r\n  while not DataSource.DataSet.EOF do\r\n  begin\r\n    LoadRow(r);\r\n    inc(r);\r\n    DataSource.DataSet.Next;\r\n  end;\r\n\r\n  if DataSource.DataSet.Filtered then\r\n    RowCount := r;\r\n\r\n  if DataSource.DataSet.BookmarkValid(bk) then\r\n    DataSource.DataSet.GotoBookmark(bk);\r\n\r\n  if isBOF then\r\n    DataSource.DataSet.First;\r\n\r\n  if isEOF then\r\n    DataSource.DataSet.Last;\r\n\r\n  DataSource.DataSet.EnableControls;\r\n  DataSource.DataSet.AfterScroll := scrollevent;\r\nend;\r\n\r\nprocedure TDBTableControl.Loaded;\r\nbegin\r\n  inherited;\r\n  ColCount := Columns.Count;\r\n\r\n  if Assigned(DataSource) and Assigned(DataSource.DataSet) and DataSource.DataSet.Active then\r\n  begin\r\n    FDataChanging := true;\r\n    LoadData;\r\n    FDataChanging := false;\r\n  end;\r\nend;\r\n\r\nprocedure TDBTableControl.LoadRow(ARow: integer);\r\nvar\r\n  c,r,cr: integer;\r\n  lField: TField;\r\n  cd,cn,wcss: string;\r\n  ce: TJSHTMLElement;\r\n\r\nbegin\r\n  c := 0;\r\n  r := ARow;\r\n\r\n  for c := 0 to ColCount - 1 do\r\n  begin\r\n    lField := nil;\r\n    cd := '';\r\n    wcss := '';\r\n\r\n    cr := r;\r\n\r\n    if Columns[c].Width > 0 then\r\n      wcss := 'width:'+Columns[c].Width.Tostring+'px;overflow:hidden;text-overflow:ellipsis;max-width:'+Columns[c].Width.ToString+'px;white-space:nowrap';\r\n\r\n    if (Columns[c].DataField <> '') then\r\n    begin\r\n      try\r\n        lField := DataSource.DataSet.FieldByName(Columns[c].DataField);\r\n      except\r\n        lField := nil;\r\n      end;\r\n      if Assigned(lField) then\r\n        cd := TableFieldToCellData(ce, lField, Columns[c].DataType, false);\r\n    end;\r\n\r\n    GetCellData(c,r,lField,cd);\r\n\r\n    Cells[c,r] := cd;\r\n\r\n    cn := Columns[c].ElementClassName;\r\n\r\n    if InVisiblePage(cr) then\r\n    begin\r\n      ce := TJSHTMLElement(CellElements[c,cr]);\r\n\r\n      if Assigned(ce) then\r\n      begin\r\n\r\n        if wcss <> '' then\r\n          ce['style'] := wcss;\r\n\r\n        GetCellChildren(c, r, lField, cd, ce);\r\n\r\n        GetCellClassName(c, r, lField, cd, cn);\r\n\r\n        if Assigned(ce) and (cn <> '') then\r\n          ce.setAttribute('class',cn);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TDBTableControl.SetColumns(const Value: TTableControlColumns);\r\nbegin\r\n  FColumns.Assign(Value);\r\nend;\r\n\r\nprocedure TDBTableControl.SetDataSource(const Value: TDataSource);\r\nbegin\r\n  FDataLink.DataSource := Value;\r\nend;\r\n\r\n{ TTableControlColumns }\r\n\r\nfunction TTableControlColumns.Add: TTableControlColumn;\r\nbegin\r\n   Result := TTableControlColumn(inherited Add);\r\nend;\r\n\r\nprocedure TTableControlColumns.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nconstructor TTableControlColumns.Create(AOwner: TComponent);\r\nbegin\r\n  inherited Create(AOwner, TTableControlColumn);\r\nend;\r\n\r\nfunction TTableControlColumns.GetItem(Index: integer): TTableControlColumn;\r\nbegin\r\n  Result := TTableControlColumn(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTableControlColumns.Insert(Index: integer): TTableControlColumn;\r\nbegin\r\n  Result := TTableControlColumn(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTableControlColumns.SetItem(Index: integer;\r\n  const Value: TTableControlColumn);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nprocedure TTableControlColumns.Update(Item: TCollectionItem);\r\nbegin\r\n  inherited;\r\n  Changed;\r\nend;\r\n\r\n{ TDBDataLink }\r\n\r\nprocedure TDBDataLink.ActiveChanged;\r\nbegin\r\n  inherited;\r\n  if Assigned(OnActiveChange) then\r\n    OnActiveChange(Self);\r\nend;\r\n\r\nprocedure TDBDataLink.DataSetScrolled(Distance: Longint);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnDataScroll) then\r\n    OnDataScroll(Self, Distance);\r\nend;\r\n\r\nprocedure TDBDataLink.DataSetChanged;\r\nbegin\r\n  inherited;\r\n  if Assigned(OnDataChange) then\r\n    OnDataChange(Self);\r\nend;\r\n\r\nprocedure TDBDataLink.RecordChanged(Field: TField);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnRecordChange) then\r\n    OnRecordChange(Self);\r\nend;\r\n\r\nprocedure TDBDataLink.UpdateData;\r\nbegin\r\n  inherited;\r\n  if Assigned(OnUpdateData) then\r\n    OnUpdateData(Self);\r\nend;\r\n\r\n{ TTableControlColumn }\r\n\r\nprocedure TTableControlColumn.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTableControlColumn) then\r\n  begin\r\n    FClassName := (Source as TTableControlColumn).ElementClassName;\r\n    FDataField := (Source as TTableControlColumn).DataField;\r\n    FTitle := (Source as TTableControlColumn).Title;\r\n    FTitleClassName := (Source as TTableControlColumn).TitleElementClassName;\r\n    FDataType := (Source as TTableControlColumn).DataType;\r\n    FTag := (Source as TTableControlColumn).Tag;\r\n    FWidth := (Source as TTableControlColumn).Width;\r\n  end;\r\nend;\r\n\r\nprocedure TTableControlColumn.SetDataField(const Value: TDataField);\r\nbegin\r\n  if FDataField <> Value then\r\n  begin\r\n    FDataField := Value;\r\n    (Collection as TTableControlColumns).Update(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTableControlColumn.SetTitle(const Value: string);\r\nbegin\r\n  if FTitle <> Value then\r\n  begin\r\n    FTitle := Value;\r\n    (Collection as TTableControlColumns).Update(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTableControlColumn.SetWidth(const Value: integer);\r\nbegin\r\n  FWidth := Value;\r\n  ((Collection as TTableControlColumns).Owner as TDBTableControl).ColWidths[Index] := FWidth;\r\nend;\r\n\r\n{ TDBImageControl }\r\n\r\nprocedure TDBImageControl.ActiveChange(Sender: TObject);\r\nbegin\r\n  if Assigned(FDataLink.DataSet) then\r\n  begin\r\n    if not FDataLink.DataSet.Active or not DataSource.Enabled then\r\n      URL := ''\r\n    else\r\n      DataChange(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TDBImageControl.CreateInitialize;\r\nbegin\r\n  if not Assigned(FDataLink) then\r\n  begin\r\n    FDataLink := TFieldDataLink.Create;\r\n    FDataLink.OnDataChange := DataChange;\r\n    FDataLink.OnActiveChange := ActiveChange;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TDBImageControl.DataChange(Sender: TObject);\r\nvar\r\n  AURL, LContents: string;\r\nbegin\r\n  if not Assigned(FDataLink.DataSet) then\r\n    Exit;\r\n\r\n  if not Assigned(FDataLink.Field) then\r\n    FDataLink.UpdateField;\r\n\r\n  if Assigned(FDataLink.Field) and not FDataLink.DataSet.IsEmpty then\r\n  begin\r\n    if (FDataLink.Field is TBlobField) then\r\n    begin\r\n      LContents := string(FDataLink.Field.AsJSValue);\r\n      if (length(LContents) > 0) and (LContents <> 'null') then\r\n      begin\r\n        AURL := 'data:image/jpeg;base64,' + LContents;\r\n      end \r\n      else \r\n      begin\r\n        AURL := EmptyImage;\r\n      end;\r\n    end \r\n    else \r\n    begin\r\n      AURL := BaseURL + FDataLink.Field.DisplayText;\r\n    end;\r\n\r\n    if Assigned(OnSetURL) then\r\n      OnSetURL(Self, AURL);\r\n    URL := AURL;\r\n  end;\r\nend;\r\n\r\ndestructor TDBImageControl.Destroy;\r\nbegin\r\n  FDataLink.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TDBImageControl.GetDataField: TDataField;\r\nbegin\r\n  Result := FDataLink.FieldName;\r\nend;\r\n\r\nfunction TDBImageControl.GetDataSource: TDataSource;\r\nbegin\r\n  Result := FDataLink.DataSource;\r\nend;\r\n\r\nprocedure TDBImageControl.SetDataField(const Value: TDataField);\r\nbegin\r\n  FDataLink.FieldName := Value;\r\n  FDataLink.UpdateField;\r\n  ActiveChange(Self);\r\nend;\r\n\r\nprocedure TDBImageControl.SetDataSource(const Value: TDataSource);\r\nbegin\r\n  FDataLink.DataSource := Value;\r\nend;\r\n\r\n{ TDBResponsiveGrid }\r\n\r\nprocedure TDBResponsiveGrid.ActiveChange(Sender: TObject);\r\nbegin\r\n  if Assigned(FDataLink.DataSource) and Assigned(FDataLink.DataSource.DataSet) and FDataLink.DataSource.DataSet.Active then\r\n  begin\r\n    FDataChanging := true;\r\n    LoadData;\r\n    FDataChanging := false;\r\n  end\r\n  else\r\n    Items.Clear;\r\nend;\r\n\r\nprocedure TDBResponsiveGrid.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FDataChanging := false;\r\n  if not Assigned(FDataLink) then\r\n  begin\r\n    FDataLink := TDBDataLink.Create;\r\n    FDataLink.OnActiveChange := ActiveChange;\r\n    FDataLink.OnRecordChange := DataChange;\r\n  end;\r\n  FModifying := false;\r\nend;\r\n\r\nprocedure TDBResponsiveGrid.DataChange(Sender: TObject);\r\nvar\r\n  nstate: TDataSetState;\r\n  i: integer;\r\nbegin\r\n  if Assigned(FDataLink.DataSource) and Assigned(FDataLink.DataSource.DataSet) and FDataLink.DataSource.DataSet.Active and not FModifying then\r\n  begin\r\n    nstate := FOldState;\r\n    FOldState := FDataLink.DataSet.State;\r\n\r\n    if not FDataChanging and (FRecordCount <> FDataLink.DataSet.RecordCount) then\r\n    begin\r\n      FDataChanging := true;\r\n      LoadData;\r\n      FDataChanging := false;\r\n    end\r\n    else\r\n    if not FDataChanging and (nstate = dsEdit) and (FDataLink.DataSet.State = dsBrowse) then\r\n    begin\r\n      FDataChanging := true;\r\n      LoadData;\r\n      FDataChanging := false;\r\n    end;\r\n\r\n    for i := 0 to Items.Count - 1 do\r\n    begin\r\n      if TResponsiveGridItemEx(Items[i]).RecNo = FDataLink.DataSource.DataSet.RecNo then\r\n      begin\r\n        ItemIndex := i;\r\n        break;\r\n      end;\r\n    end;\r\n\r\n  end;\r\nend;\r\n\r\ndestructor TDBResponsiveGrid.Destroy;\r\nbegin\r\n  FDataLink.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TDBResponsiveGrid.GetDataSource: TDataSource;\r\nbegin\r\n  Result := FDataLink.DataSource;\r\nend;\r\n\r\nprocedure TDBResponsiveGrid.HandleDoItemClick(Index: integer);\r\nbegin\r\n  if Assigned(FDataLink.DataSource) and Assigned(FDataLink.DataSource.DataSet) and FDataLink.DataSource.DataSet.Active then\r\n  begin\r\n    FModifying := true;\r\n\r\n    if (Index >= 0) and (Index < Items.Count) then\r\n      FDataLink.DataSource.DataSet.RecNo := TResponsiveGridItemEx(Items[Index]).RecNo;\r\n    FModifying := false;\r\n  end;\r\n  inherited;\r\nend;\r\n\r\nprocedure TDBResponsiveGrid.Refresh;\r\nbegin\r\n  LoadData;\r\nend;\r\n\r\nprocedure TDBResponsiveGrid.LoadData;\r\nvar\r\n  html, ident, htmlvalue: string;\r\n  c: integer;\r\n  itm: TResponsiveGridItem;\r\n  bk: TBookmark;\r\n  scrollevent: TDataSetNotifyEvent;\r\n\r\nbegin\r\n  // get the items from the dataset here\r\n  if Assigned(FDataLink.DataSource) and Assigned(FDataLink.DataSource.DataSet) and FDataLink.DataSource.DataSet.Active then\r\n  begin\r\n    FDataLink.DataSource.DataSet.DisableControls;\r\n\r\n    scrollevent := DataSource.DataSet.AfterScroll;\r\n    DataSource.DataSet.AfterScroll := nil;\r\n\r\n    bk := FDataLink.DataSet.GetBookmark;\r\n\r\n    Items.Clear;\r\n\r\n    FDataLink.DataSource.DataSet.First;\r\n\r\n    while not FDataLink.DataSource.DataSet.EOF do\r\n    begin\r\n      itm := Items.Add;\r\n\r\n      TResponsiveGridItemEx(itm).RecNo := FDataLink.DataSource.DataSet.RecNo;\r\n\r\n      html := Options.ItemTemplate;\r\n\r\n      ident := '(%ITEMINDEX%)';\r\n      if pos(ident, html) > 0 then\r\n      begin\r\n        html := StringReplace(html, ident, inttostr(itm.Index), [rfReplaceAll]);\r\n      end;\r\n\r\n      for c := 0 to FDataLink.DataSource.DataSet.Fields.Count - 1 do\r\n      begin\r\n        ident := '(%' +  FDataLink.DataSource.DataSet.Fields[c].FieldName + '%)';\r\n        if Pos(Uppercase(ident), Uppercase(html)) > 0 then\r\n        begin\r\n          htmlvalue := FDataLink.DataSource.DataSet.Fields[c].DisplayText;\r\n          DoItemGetFieldValue(itm.Index, FDataLink.DataSource.DataSet.Fields[c].FieldName, htmlvalue);\r\n          html := StringReplace(html, ident, htmlvalue, [rfReplaceAll, rfIgnoreCase]);\r\n        end;\r\n      end;\r\n\r\n      itm.HTML := html;\r\n\r\n      DoItemCreated(itm.Index);\r\n\r\n      FDataLink.DataSource.DataSet.Next;\r\n    end;\r\n\r\n    FRecordCount := FDataLink.DataSet.RecordCount;\r\n\r\n    if DataSource.DataSet.BookmarkValid(bk) then\r\n      FDataLink.DataSet.GotoBookMark(bk);\r\n\r\n    FDataLink.DataSource.DataSet.EnableControls;\r\n\r\n    DataSource.DataSet.AfterScroll := scrollevent;\r\n  end\r\n  else\r\n    Items.Clear;\r\nend;\r\n\r\nprocedure TDBResponsiveGrid.OptionsChanged(Sender: TObject);\r\nbegin\r\n  inherited;\r\n  LoadData;\r\nend;\r\n\r\nprocedure TDBResponsiveGrid.SetDataSource(const Value: TDataSource);\r\nbegin\r\n  FDataLink.DataSource := Value;\r\n  LoadData;\r\nend;\r\n\r\n\r\n{ TGridColumn }\r\n\r\nprocedure TGridColumn.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTableControlColumn) then\r\n  begin\r\n    FClassName := (Source as TGridColumn).ElementClassName;\r\n    FDataField := (Source as TGridColumn).DataField;\r\n    FTitle := (Source as TGridColumn).Title;\r\n    FTitleClassName := (Source as TGridColumn).TitleElementClassName;\r\n    FDataType := (Source as TGridColumn).DataType;\r\n    FWidth := (Source as TGridColumn).Width;\r\n    FEditor := (Source as TGridColumn).Editor;\r\n    FEditMask := (Source as TGridColumn).EditMask;\r\n    FComboBoxItems.Assign((Source as TGridColumn).ComboBoxItems);\r\n    FTag := (Source as TGridColumn).Tag;\r\n    FDBField := (Source as TGridColumn).DBField;\r\n    FImageWidth := (Source as TGridColumn).ImageWidth;\r\n    FAlignment := (Source as TGridColumn).Alignment;\r\n    FAutoFormatDateTime := (Source as TGridColumn).AutoFormatDateTime;\r\n  end;\r\nend;\r\n\r\nconstructor TGridColumn.Create(Collection: TCollection);\r\nbegin\r\n  inherited;\r\n  FWidth := 64;\r\n  FDataType := cdText;\r\n  FComboBoxItems := TStringList.Create;\r\n  FAutoFormatDateTime := true;\r\nend;\r\n\r\ndestructor TGridColumn.Destroy;\r\nbegin\r\n  FComboBoxItems.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TGridColumn.GetDBField: TField;\r\nvar\r\n  grd: TDBGrid;\r\nbegin\r\n  if (DataField <> '') and (DBField = nil) then\r\n  begin\r\n    grd := TDBGrid((Collection as TGridColumns).Owner);\r\n    if Assigned(grd) and Assigned(grd.DataSource) and Assigned(grd.DataSource.DataSet) then\r\n\r\n    try\r\n      DBField := grd.DataSource.DataSet.FieldByName(DataField);\r\n    except\r\n      DBField := nil;\r\n    end;\r\n  end;\r\n\r\n  Result := DBField;\r\nend;\r\n\r\nprocedure TGridColumn.SetAlignment(const Value: TAlignment);\r\nvar\r\n  grd: TDBGrid;\r\nbegin\r\n  FAlignment := Value;\r\n  grd := TDBGrid((Collection as TGridColumns).Owner);\r\n  grd.ColAlignments[Index + grd.FixedCols] := FAlignment;\r\nend;\r\n\r\nprocedure TGridColumn.SetComboBoxItems(const Value: TStrings);\r\nbegin\r\n  FComboBoxItems := Value;\r\nend;\r\n\r\nprocedure TGridColumn.SetDataField(const Value: TDataField);\r\nbegin\r\n  if FDataField <> Value then\r\n  begin\r\n    FDataField := Value;\r\n    (Collection as TGridColumns).Update(Self);\r\n    FDBField := nil;\r\n  end;\r\nend;\r\n\r\nprocedure TGridColumn.SetSortIndicator(const Value: TGridSortIndicator);\r\nvar\r\n  i: integer;\r\nbegin\r\n  for i := 0 to (Collection as TGridColumns).Count - 1 do\r\n  begin\r\n    if (Collection as TGridColumns).Items[i].FSortIndicator <> siNone then\r\n    begin\r\n      (Collection as TGridColumns).Items[i].FSortIndicator := siNone;\r\n      if Assigned((Collection as TGridColumns).OnSortIndicatorChange) then\r\n        (Collection as TGridColumns).OnSortIndicatorChange((Collection as TGridColumns), i, siNone);\r\n    end;\r\n  end;\r\n\r\n  FSortIndicator := Value;\r\n\r\n  if Assigned((Collection as TGridColumns).OnSortIndicatorChange) then\r\n    (Collection as TGridColumns).OnSortIndicatorChange((Collection as TGridColumns), Index, FSortIndicator);\r\nend;\r\n\r\nprocedure TGridColumn.SetTitle(const Value: string);\r\nbegin\r\n  if FTitle <> Value then\r\n  begin\r\n    FTitle := Value;\r\n    (Collection as TGridColumns).Update(Self);\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TGridColumn.SetWidth(const Value: integer);\r\nbegin\r\n  if (FWidth <> Value) then\r\n  begin\r\n    FWidth := Value;\r\n    (Collection as TGridColumns).Update(Self);\r\n  end;\r\nend;\r\n\r\n{ TGridColumns }\r\n\r\nfunction TGridColumns.Add: TGridColumn;\r\nbegin\r\n   Result := TGridColumn(inherited Add);\r\nend;\r\n\r\nprocedure TGridColumns.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nconstructor TGridColumns.Create(AOwner: TComponent);\r\nbegin\r\n  inherited Create(AOwner, TGridColumn);\r\nend;\r\n\r\nfunction TGridColumns.GetItem(Index: integer): TGridColumn;\r\nbegin\r\n  Result := TGridColumn(inherited Items[Index]);\r\nend;\r\n\r\nfunction TGridColumns.Insert(Index: integer): TGridColumn;\r\nbegin\r\n  Result := TGridColumn(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TGridColumns.SetItem(Index: integer;\r\n  const Value: TGridColumn);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nprocedure TGridColumns.Update(Item: TCollectionItem);\r\nbegin\r\n  inherited;\r\n  Changed;\r\nend;\r\n\r\n{ TDBGrid }\r\n\r\nprocedure TDBGrid.ActiveChange(Sender: TObject);\r\nvar\r\n  c: integer;\r\nbegin\r\n  if Assigned(FDataLink.DataSource) and Assigned(FDataLink.DataSource.DataSet) and FDataLink.DataSource.DataSet.Active then\r\n  begin\r\n    FDataChanging := true;\r\n    LoadData;\r\n    FDataChanging := false;\r\n  end\r\n  else\r\n  begin\r\n    Clear;\r\n    RowCount := FixedRows;\r\n    if FDefaultFields then\r\n      Columns.Clear;\r\n    for c := 0 to Columns.Count - 1 do\r\n      Columns[c].DBField := nil;\r\n\r\n    FOldIndicator := -1;\r\n  end;\r\nend;\r\n\r\nprocedure TDBGrid.CancelEdit;\r\nbegin\r\n  inherited;\r\n  if Assigned(FDataLink.DataSource) and Assigned(FDataLink.DataSource.DataSet) and FDataLink.DataSource.DataSet.Active then\r\n  begin\r\n    FDataLink.DataSource.DataSet.Cancel;\r\n  end;\r\n\r\nend;\r\n\r\nfunction TDBGrid.CanEditCell(ACol, ARow: integer): boolean;\r\nvar\r\n  fld: TField;\r\nbegin\r\n  Result := inherited;\r\n\r\n  if Result and (ACol - FixedCols < Columns.Count) and (ACol >= FixedCols) then\r\n  begin\r\n    fld := Columns[ACol - FixedCols].DBField;\r\n    if Assigned(fld) and fld.readOnly then\r\n    begin\r\n      Result := false;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TDBGrid.CanRowAdvance: boolean;\r\nbegin\r\n  Result := false;\r\nend;\r\n\r\nprocedure TDBGrid.ChangeRow;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TDBGrid.ColumnsChanged(Sender: TObject);\r\nvar\r\n  c: integer;\r\nbegin\r\n  if not Assigned(ElementHandle) or IsUpdating then\r\n    Exit;\r\n\r\n  ColCount := Columns.Count + FixedCols;\r\n\r\n  if (FixedRows > 0) and (RowCount > 0) then\r\n  begin\r\n    for c := 0 to Columns.Count - 1 do\r\n    begin\r\n      Cells[c + FixedCols, 0] := Columns[c].Title;\r\n      ColWidths[c + FixedCols] := Columns[c].Width;\r\n    end;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TDBGrid.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  if not Assigned(FDataLink) then\r\n  begin\r\n    FDataLink := TDBDataLink.Create;\r\n    FDataLink.OnActiveChange := ActiveChange;\r\n    FDataLink.OnRecordChange := RecordChange;\r\n    FDataLink.OnDataChange := DataChange;\r\n    FDataLink.OnUpdateData := UpdateData;\r\n    FDataLink.OnDataScroll := DataScroll;\r\n  end;\r\n  if not Assigned(FColumns) then\r\n  begin\r\n    FColumns := TGridColumns.Create(Self);\r\n    FColumns.OnChange := ColumnsChanged;\r\n    FColumns.OnSortIndicatorChange := DoSortIndicatorChange;\r\n    FColumns.PropName := 'Columns';\r\n  end;\r\n  FModifying := false;\r\n  FDefaultFields := false;\r\n  FDataChanging := false;\r\n  FOldIndicator := -1;\r\n  FShowIndicator := true;\r\nend;\r\n\r\nprocedure TDBGrid.DataChange(Sender: TObject);\r\nvar\r\n  r: integer;\r\n  LOldRow,LOldCol: integer;\r\n  filterchange,appendmode: boolean;\r\nbegin\r\n  if FDataChanging then\r\n    Exit;\r\n\r\n  if (FOldState <> FDataLink.DataSource.DataSet.State) and not FModifying then\r\n  begin\r\n    if EditMode and (FOldState in [dsEdit, dsInsert]) then\r\n    begin\r\n      StopEdit;\r\n    end;\r\n\r\n    // handle reindex\r\n    if (FOldState in [dsInactive]) and (FDataLink.DataSource.DataSet.State = dsBrowse) then\r\n    begin\r\n//      if (RowCount <> FDataLink.DataSource.DataSet.RecordCount + FixedRows) then\r\n      begin\r\n        FDataChanging := true;\r\n        LoadData;\r\n        FDataChanging := false;\r\n        FOldState := FDataLink.DataSource.DataSet.State;\r\n      end;\r\n\r\n      Exit;\r\n    end;\r\n\r\n    // handle after insert\r\n    if (FOldState in [dsInsert]) then\r\n    begin\r\n      FDataChanging := true;\r\n      LoadData;\r\n      FDataChanging := false;\r\n      FOldState := FDataLink.DataSource.DataSet.State;\r\n      Exit;\r\n    end;\r\n  end;\r\n\r\n// handle sort - datasetchange and stays in dsBrowse state\r\n  if (FOldState in [dsBrowse]) and (FDataLink.DataSource.DataSet.State = dsBrowse) then\r\n  begin\r\n    FDataChanging := true;\r\n    LoadData;\r\n    FDataChanging := false;\r\n    FOldState := FDataLink.DataSource.DataSet.State;\r\n    Exit;\r\n  end;\r\n\r\n  FOldState := FDataLink.DataSource.DataSet.State;\r\n\r\n  if (FOldState in [{dsInsert,} dsEdit]) then\r\n    Exit;\r\n\r\n  FDataChanging := true;\r\n\r\n  if Assigned(FDataLink.DataSource) and Assigned(FDataLink.DataSource.DataSet) and FDataLink.DataSource.DataSet.Active and not FModifying and not EditMode then\r\n  begin\r\n    filterchange := (FOldFiltered <> FDataLink.DataSource.DataSet.Filtered);\r\n\r\n    if (RowCount <> FDataLink.DataSource.DataSet.RecordCount + FixedRows) or filterchange then\r\n    begin\r\n      FOldFiltered := FDataLink.DataSource.DataSet.Filtered;\r\n      FModifying := true;\r\n\r\n      LOldRow := Row;\r\n      LOldCol := Col;\r\n\r\n      FDataChanging := true;\r\n      LoadData;\r\n      FDataChanging := false;\r\n      if filterchange then\r\n      begin\r\n        FDataLink.DataSource.DataSet.First;\r\n        if RowCount > FixedRows then\r\n          Row := FixedRows;\r\n      end;\r\n\r\n      FModifying := false;\r\n      SelectCell(LOldCol,LOldRow);\r\n    end\r\n    else\r\n    begin\r\n      r := FixedRows + FDataLink.DataSource.DataSet.RecNo - 1;\r\n\r\n      if (FOldState = dsInsert) then\r\n      begin\r\n        LOldCol := Col;\r\n        RowCount := RowCount + 1;\r\n        Row := Max(r, FixedRows);\r\n        Col := LOldCol;\r\n\r\n        // difference between Post & Insert -> skip this InsertData for an Append\r\n        appendmode := not FDataLink.Bof and FDataLink.Eof;\r\n        if not appendmode then\r\n          InsertData(Row);\r\n        //r := RowCount - 1;\r\n        //Row := RowCount - 1;\r\n        //LoadRow(Row);\r\n      end\r\n      else\r\n      begin\r\n        if (FOldState <> dsBrowse) or (FDataLink.DataSource.DataSet.State <> dsBrowse) then\r\n          LoadData;\r\n\r\n        Row := r;\r\n      end;\r\n\r\n      UpdateIndicator(r);\r\n    end;\r\n  end;\r\n\r\n  FDataChanging := false;\r\nend;\r\n\r\nprocedure TDBGrid.DataScroll(Sender: TObject; Distance: integer);\r\nbegin\r\n  if Assigned(FDataLink.DataSource) and Assigned(FDataLink.DataSource.DataSet) and FDataLink.DataSource.DataSet.Filtered then\r\n  begin\r\n    Row := Row + Distance;\r\n    UpdateIndicator(Row);\r\n  end;\r\nend;\r\n\r\nprocedure TDBGrid.RecordChange(Sender: TObject);\r\nvar\r\n  r: integer;\r\nbegin\r\n  if Assigned(FDataLink.DataSource) and Assigned(FDataLink.DataSource.DataSet) and FDataLink.DataSource.DataSet.Active then\r\n  begin\r\n    if not FModifying and not EditMode then\r\n    begin\r\n      if not FDataLink.DataSource.DataSet.Filtered then\r\n        r := FixedRows + FDataLink.DataSource.DataSet.RecNo - 1;\r\n\r\n      FOldState := dsOldValue;\r\n\r\n      if FDataLink.DataSource.DataSet.State = dsInsert then\r\n      begin\r\n\r\n      end\r\n      else\r\n      if (r <= RowCount - 1) and not FDataLink.DataSource.DataSet.Filtered then\r\n      begin\r\n        Row := r;\r\n        LoadRow(r);\r\n      end\r\n      else\r\n      begin\r\n        FModifying := true;\r\n        LoadData;\r\n\r\n        if not FDataLink.DataSource.DataSet.Filtered then\r\n          Row := r;\r\n\r\n        FModifying := false;\r\n      end;\r\n\r\n      if not FDataLink.DataSource.DataSet.Filtered then\r\n      begin\r\n        UpdateIndicator(r);\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      if EditMode then\r\n        LoadRow(Row);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TDBGrid.Refresh;\r\nbegin\r\n  LoadData;\r\nend;\r\n\r\nprocedure TDBGrid.ReadStubProp(AReader: TReader);\r\nbegin\r\nend;\r\n\r\nprocedure TDBGrid.WriteStubProp(AWriter: TWriter);\r\nbegin\r\nend;\r\n\r\nprocedure TDBGrid.DefineProperties(AFiler: TFiler);\r\nbegin\r\n  inherited DefineProperties(AFiler);\r\n  AFiler.DefineProperty('ColWidths', @ReadStubProp, @WriteStubProp, False);\r\n  AFiler.DefineProperty('RowHeights', @ReadStubProp, @WriteStubProp, False);\r\n  AFiler.DefineProperty('ColAligments', @ReadStubProp, @WriteStubProp, False);\r\nend;\r\n\r\ndestructor TDBGrid.Destroy;\r\nbegin\r\n  FDataLink.Free;\r\n  FColumns.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TDBGrid.DoCheckClick(ACol, ARow: Longint; Checked: boolean);\r\nvar\r\n  insUpdate: boolean;\r\n  fldName: string;\r\n  fld: TField;\r\nbegin\r\n  inherited;\r\n\r\n  SelectCell(ACol,ARow);\r\n\r\n  if Assigned(FDataLink.DataSource) and Assigned(FDataLink.DataSource.DataSet) and FDataLink.DataSource.DataSet.Active and (goEditing in Options) then\r\n  begin\r\n    insupdate := FDataLink.DataSource.DataSet.State in dsEditModes;\r\n    fldName := Columns[ACol - FixedCols].DataField;\r\n\r\n    if fldName <> '' then\r\n    begin\r\n      fld := nil;\r\n      try\r\n        fld := FDataLink.DataSource.DataSet.FieldByName(fldName);\r\n\r\n        if not fld.ReadOnly then\r\n        begin\r\n          if not insupdate then\r\n            FDataLink.DataSource.DataSet.Edit;\r\n\r\n          fld.AsBoolean := Checked;\r\n        end;\r\n      except\r\n        fld := nil;\r\n      end;\r\n\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TDBGrid.DoSortIndicatorChange(Sender: TObject; ACol: integer;\r\n  AIndicator: TGridSortIndicator);\r\nvar\r\n  s: string;\r\nbegin\r\n  s := Columns[ACol].Title;\r\n  case AIndicator of\r\n  siAscending: s := s + '&nbsp;&#x25B2;';\r\n  siDescending: s := s + '&nbsp;&#x25BC;';\r\n  end;\r\n  Cells[ACol + FixedCols, 0] := s;\r\nend;\r\n\r\nprocedure TDBGrid.EndUpdate;\r\nbegin\r\n  ColumnsChanged(Self);\r\n  inherited;\r\nend;\r\n\r\nprocedure TDBGrid.GetCellEditor(const ACol, ARow: integer;\r\n  var AEditor: TGridCellEditor);\r\nbegin\r\n  if (ACol - FixedCols < Columns.Count) and (ACol >= FixedCols) then\r\n  begin\r\n    AEditor := Columns[ACol - FixedCols].Editor;\r\n    ComboBoxItems.Assign(Columns[ACol - FixedCols].ComboBoxItems);\r\n    EditMask :=  Columns[ACol - FixedCols].EditMask;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\nfunction TDBGrid.GetDataSource: TDataSource;\r\nbegin\r\n  Result := FDataLink.DataSource;\r\nend;\r\n\r\nprocedure TDBGrid.HideEdit(Advance: boolean = false);\r\nbegin\r\n  inherited;\r\n  UpdateIndicator(Row);\r\nend;\r\n\r\nprocedure TDBGrid.LoadComboItems(const ColIndex: integer; AField: TField);\r\nvar\r\n  s,k: string;\r\n  bk: TBookmark;\r\nbegin\r\n  if AField.FieldKind = fkLookup then\r\n  begin\r\n    bk := AField.LookupDataSet.GetBookmark;\r\n    AField.LookupDataSet.DisableControls;\r\n    AField.LookupDataSet.First;\r\n\r\n    Columns[ColIndex].ComboBoxItems.Clear;\r\n    while not AField.LookupDataSet.Eof do\r\n    begin\r\n      s := AField.LookupDataSet.FieldByName(AField.LookupResultField).AsString;\r\n      k := AField.LookupDataSet.FieldByName(AField.LookupKeyFields).AsString;\r\n      Columns[ColIndex].ComboBoxItems.AddPair(s,k);\r\n      AField.LookupDataSet.Next;\r\n    end;\r\n    AField.LookupDataSet.GotoBookmark(bk);\r\n    AField.LookupDataSet.EnableControls;\r\n  end;\r\n\r\nend;\r\n\r\nfunction TDBGrid.GetLookupKey(const ColIndex: integer; AValue: string): string;\r\nvar\r\n  i: integer;\r\n  LName, LValue: string;\r\nbegin\r\n  Result := '';\r\n\r\n  for i := 0 to Columns[ColIndex].ComboBoxItems.Count - 1 do\r\n  begin\r\n    Columns[ColIndex].ComboBoxItems.GetNameValue(i, LName, LValue);\r\n\r\n    if LName = AValue then\r\n    begin\r\n      Result := LValue;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TDBGrid.LoadData;\r\nvar\r\n  c,r,i,subp: integer;\r\n  bk: TBookmark;\r\n  noflds: boolean;\r\n  isBOF,isEOF: boolean;\r\n  LTitle,cn, subclass: string;\r\n  fld: TField;\r\n  ce: TJSHTMLElement;\r\n  ne: TDataSetNotifyEvent;\r\nbegin\r\n  noflds := true;\r\n  r := 0;\r\n\r\n  for i := 0 to Columns.Count - 1 do\r\n  begin\r\n    if Columns[i].DataField <> '' then\r\n      noflds := false;\r\n  end;\r\n\r\n  FDefaultFields := noflds;\r\n\r\n\r\n  // only unbound columns found\r\n  if noflds and (Columns.Count > 0) then\r\n  begin\r\n    Columns.BeginUpdate;\r\n\r\n    for i := 0 to FDataLink.DataSet.FieldCount - 1 do\r\n    begin\r\n\r\n      if (FDataLink.DataSet.Fields[i].FieldKind = fkData) and (faHiddenCol in FDataLink.DataSet.Fields[i].FieldDef.Attributes) then\r\n        Continue;\r\n\r\n      if not FDataLink.DataSet.Fields[i].Visible then\r\n        Continue;\r\n\r\n      if i >= Columns.Count then\r\n        Columns.Add;\r\n\r\n      with Columns[i] do\r\n      begin\r\n        FDataField := FDataLink.DataSet.Fields[i].FieldName;\r\n        FTitle :=  FDataLink.DataSet.Fields[i].DisplayLabel;\r\n\r\n        if FDataLink.DataSet.Fields[i].FieldKind = fkLookup then\r\n        begin\r\n          Editor := geCombo;\r\n          LoadComboItems(i, FDataLink.DataSet.Fields[i]);\r\n        end;\r\n\r\n        if (FDataLink.DataSet.Fields[i].DataType in [ftDate, ftDateTime]) then\r\n          Editor := geDate;\r\n\r\n        if (FDataLink.DataSet.Fields[i].DataType in [ftMemo]) then\r\n          Editor := geMemo;\r\n\r\n        if (FDataLink.DataSet.Fields[i].DataType in [ftBoolean]) then\r\n        begin\r\n          DataType := cdCheck;\r\n        end;\r\n\r\n      end;\r\n    end;\r\n\r\n    while (Columns.Count > FDataLink.DataSet.FieldCount) do\r\n    begin\r\n      Columns.Delete(Columns.Count - 1);\r\n    end;\r\n  end;\r\n\r\n  if (Columns.Count = 0) then\r\n  begin\r\n    for i := 0 to FDataLink.DataSet.FieldCount - 1 do\r\n    begin\r\n      if (faHiddenCol in FDataLink.DataSet.Fields[i].FieldDef.Attributes) then\r\n        Continue;\r\n\r\n      with Columns.Add do\r\n      begin\r\n        FDataField := FDataLink.DataSet.Fields[i].FieldName;\r\n        FTitle :=  FDataLink.DataSet.Fields[i].DisplayLabel;\r\n      end;\r\n    end;\r\n    Columns.EndUpdate;\r\n  end;\r\n\r\n\r\n  ColCount := Columns.Count + FixedCols;\r\n\r\n  RowCount := FDataLink.DataSource.DataSet.RecordCount + FixedRows;\r\n\r\n  RenderGrid;\r\n\r\n  isBOF := FDataLink.DataSet.Bof;\r\n  isEOF := FDataLink.DataSet.Eof;\r\n\r\n  FDataLink.DataSource.DataSet.DisableControls;\r\n\r\n  bk := FDataLink.DataSet.GetBookmark;\r\n\r\n  ne := FDataLink.DataSet.AfterScroll;\r\n  FDataLink.DataSet.AfterScroll := nil;\r\n\r\n  FDataLink.DataSource.DataSet.First;\r\n\r\n  if FixedRows > 0 then\r\n  begin\r\n    for c := 0 to Columns.Count - 1 do\r\n    begin\r\n      LTitle := Columns[c].Title;\r\n      case Columns[c].SortIndicator of\r\n      siAscending: LTitle := LTitle + '&nbsp;&#x25B2;';\r\n      siDescending: LTitle := LTitle + '&nbsp;&#x25BC';\r\n      end;\r\n\r\n      Cells[c + FixedCols, r] := LTitle;\r\n\r\n      if Columns[c].TitleElementClassName <> '' then\r\n      begin\r\n        ce := GetDirectCellElements(c + FixedCols, 0);\r\n\r\n        if Assigned(ce) then\r\n        begin\r\n          subclass := Columns[c].TitleElementClassName;\r\n          repeat\r\n            subp := pos(' ', subclass);\r\n            if subp > 0 then\r\n            begin\r\n              ce.classList.Add(copy(subclass,1,subp - 1));\r\n              delete(subclass,1,subp);\r\n            end\r\n            else\r\n              ce.classList.add(subclass);\r\n          until subp = 0;\r\n        end;\r\n      end;\r\n\r\n      fld := Columns[c].GetDBField;\r\n\r\n      ce := GetDirectCellElements(c + FixedCols, 0);\r\n\r\n      GetCellChildren(c + FixedCols, 0, fld, LTitle, ce);\r\n\r\n      BindCellChildren(c + FixedCols, 0, ce);\r\n\r\n      cn := Columns[c].TitleElementClassName;\r\n\r\n      GetCellClassName(c + FixedCols, 0, fld, LTitle, cn);\r\n\r\n      if Assigned(ce) and (cn <> '') then\r\n        ce.setAttribute('class',cn);\r\n    end;\r\n  end;\r\n\r\n  r := FixedRows;\r\n\r\n  {\r\n  FDataLink.BufferCount := FDataLink.DataSet.RecordCount;\r\n\r\n  for i := 0 to FDataLink.RecordCount - 1 do\r\n  begin\r\n    FDataLink.ActiveRecord := i;\r\n    LoadRow(i + FixedRows);\r\n  end;\r\n\r\n  FDataLink.ActiveRecord := 0;\r\n  }\r\n\r\n  while not FDataLink.DataSource.DataSet.EOF do\r\n  begin\r\n    LoadRow(r);\r\n    inc(r);\r\n    FDataLink.DataSource.DataSet.Next;\r\n  end;\r\n\r\n  if FDataLink.DataSource.DataSet.Filtered then\r\n    RowCount := r;\r\n\r\n  if DataSource.DataSet.BookmarkValid(bk) then\r\n    FDataLink.DataSource.DataSet.GotoBookmark(bk);\r\n\r\n  if isBOF then\r\n    FDataLink.DataSource.DataSet.First;\r\n\r\n  if isEOF then\r\n    FDataLink.DataSource.DataSet.Last;\r\n\r\n  FDataLink.DataSet.AfterScroll := ne;\r\n  FDataLink.DataSource.DataSet.EnableControls;\r\nend;\r\n\r\nprocedure TDBGrid.Loaded;\r\nbegin\r\n  inherited;\r\n  ColumnsChanged(Self);\r\nend;\r\n\r\nprocedure TDBGrid.InsertData(ARow: Integer);\r\nvar\r\n  R: Integer;\r\n  C: Integer;\r\nbegin\r\n  // move all cells down\r\n  for R := RowCount - 1 downto ARow + 1 do\r\n  begin\r\n    for C := 0 to ColCount - 1 do\r\n    begin\r\n      if (C = 0) and (FixedCols > 0) then\r\n        Cells[C, R] := '&nbsp;'\r\n      else\r\n        Cells[C, R] := Cells[C, R-1];\r\n    end;\r\n  end;\r\n  LoadRow(ARow);\r\nend;\r\n\r\nprocedure TDBGrid.LoadRow(ARow: integer);\r\nvar\r\n  c,r: integer;\r\n  fld: TField;\r\n  cd,cn: string;\r\n  ce: TJSHTMLElement;\r\n\r\nbegin\r\n  if ARow < FixedRows then\r\n    Exit;\r\n\r\n  r := ARow;\r\n\r\n  for c := 0 to Columns.Count - 1 do\r\n  begin\r\n    if EditMode and (c = Col - FixedCols) and (ARow = Row) then\r\n      continue;\r\n\r\n    cd := '';\r\n    ce := GetDirectCellElements(c + FixedCols, r);\r\n\r\n    UnBindCellChildren(c,r,ce);\r\n\r\n    fld := Columns[c].GetDBField;\r\n\r\n    if Assigned(fld) then\r\n    begin\r\n      cd := FieldToCellData(ce, fld, Columns[c], goEditing in Options);\r\n    end;\r\n\r\n    GetCellData(c, r, fld, cd);\r\n\r\n    Cells[c + FixedCols, r] := cd;\r\n\r\n    cn := Columns[c].ElementClassName;\r\n\r\n    GetCellChildren(c, r, fld, cd, ce);\r\n\r\n    BindCellChildren(c, r, ce);\r\n\r\n    GetCellClassName(c, r, fld, cd, cn);\r\n\r\n    if cn <> '' then\r\n      ce.setAttribute('class',cn);\r\n  end;\r\nend;\r\n\r\nprocedure TDBGrid.SelectCell(ACol, ARow: integer);\r\nvar\r\n  LOldrow,d: integer;\r\nbegin\r\n  LOldrow := Row;\r\n\r\n  inherited;\r\n\r\n  if Assigned(FDataLink.DataSource) and Assigned(FDataLink.DataSource.DataSet) and FDataLink.DataSource.DataSet.Active then\r\n  begin\r\n    if (ARow = LOldRow) or (LOldRow < 0) then\r\n      Exit;\r\n\r\n    FModifying := true;\r\n\r\n    d := FDataLink.MoveBy(ARow - LOldRow);\r\n\r\n    if d <> 0 then\r\n    begin\r\n      UpdateIndicator(ARow);\r\n    end\r\n    else\r\n    begin\r\n      // reload row when post failed\r\n      LoadRow(LOldRow);\r\n      UpdateIndicator(LOldRow);\r\n      Row := LOldRow;\r\n    end;\r\n\r\n    FModifying := false;\r\n  end;\r\nend;\r\n\r\nprocedure TDBGrid.SetColumns(const Value: TGridColumns);\r\nbegin\r\n  FColumns.Assign(Value);\r\nend;\r\n\r\nprocedure TDBGrid.SetDataSource(const Value: TDataSource);\r\nbegin\r\n  FDataLink.DataSource := Value;\r\nend;\r\n\r\nprocedure TDBGrid.SetShowIndicator(const Value: boolean);\r\nbegin\r\n  FShowIndicator := Value;\r\n  UpdateIndicator(Row);\r\nend;\r\n\r\nprocedure TDBGrid.ShowEdit;\r\nvar\r\n  fldName: string;\r\n  fld: TField;\r\nbegin\r\n  if Assigned(FDataLink.DataSource) and Assigned(FDataLink.DataSource.DataSet) and FDataLink.DataSource.DataSet.Active  then\r\n  begin\r\n    fldName := Columns[Col - FixedCols].DataField;\r\n\r\n    if (fldName <> '') then\r\n    begin\r\n      fld := nil;\r\n\r\n      try\r\n        fld := FDataLink.DataSource.DataSet.FieldByName(fldName);\r\n      except\r\n        fld := nil;\r\n      end;\r\n\r\n      if Assigned(fld) and not fld.ReadOnly then\r\n      begin\r\n        FDataLink.DataSource.DataSet.Edit;\r\n        inherited;\r\n      end;\r\n    end\r\n    else\r\n      inherited;\r\n  end;\r\nend;\r\n\r\nprocedure TDBGrid.StartEdit(ch: string);\r\nvar\r\n  lField: TField;\r\nbegin\r\n  if (Col > 0) and (Col <= Columns.Count) then\r\n    if Columns[Col - 1].DataType in [cdCheck, cdRadio]  then\r\n      Exit;\r\n\r\n  if (Columns[Col - FixedCols].Editor = geCombo) then\r\n  begin\r\n    if Assigned(DataSource) and Assigned(DataSource.DataSet) and (DataSource.DataSet.Active) and (Columns[Col - FixedCols].DataField <> '') then\r\n    begin\r\n      try\r\n        lField := DataSource.DataSet.FieldByName(Columns[Col - FixedCols].DataField);\r\n      except\r\n        lField := nil;\r\n      end;\r\n\r\n      if Assigned(lField) then\r\n        LoadComboItems(col - FixedCols, lField);\r\n    end;\r\n  end;\r\n\r\n  inherited StartEdit(ch);\r\n  UpdateIndicator(Row);\r\nend;\r\n\r\nfunction TDBGrid.StopEdit: string;\r\nbegin\r\n  Result := inherited StopEdit;\r\n  UpdateIndicator(Row);\r\nend;\r\n\r\nprocedure TDBGrid.UpdateCell(ACol, ARow: integer; var AValue: string);\r\nvar\r\n  fldName, fldValue: string;\r\n  insupdate: boolean;\r\n  fld: TField;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(FDataLink.DataSource) and Assigned(FDataLink.DataSource.DataSet) and FDataLink.DataSource.DataSet.Active then\r\n  begin\r\n    insupdate := FDataLink.DataSource.DataSet.State in dsEditModes;\r\n    fldName := Columns[ACol - FixedCols].DataField;\r\n\r\n    if fldName <> '' then\r\n    begin\r\n      if not insupdate then\r\n      begin\r\n        FDataLink.DataSource.DataSet.Edit;\r\n      end;\r\n\r\n      fld := nil;\r\n\r\n      try\r\n        fld := FDataLink.DataSource.DataSet.FieldByName(fldName);\r\n\r\n        if Assigned(fld) then\r\n        begin\r\n          if fld.FieldKind = fkLookup then\r\n          begin\r\n            fldValue := GetLookupKey(ACol - FixedCols, AValue);\r\n            FDataLink.DataSource.DataSet.FieldByName(fld.KeyFields).AsString := fldValue;\r\n          end\r\n          else\r\n          if fld.FieldKind <> fkCalculated then\r\n          begin\r\n            if fld.DataType in [ftDate, ftDateTime] then\r\n            begin\r\n              fld.AsDateTime := PickerDateToDate(AValue);\r\n            end\r\n            else\r\n            begin\r\n              if fld.AsString <> AValue then\r\n              begin\r\n                fld.AsString := AValue;\r\n              end;\r\n            end;\r\n          end;\r\n        end;\r\n      except\r\n        fld := nil;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TDBGrid.UpdateData(Sender: TObject);\r\nbegin\r\n  if FDataLink.DataSource.DataSet.State = dsInsert then\r\n  begin\r\n    HideEdit;\r\n  end;\r\nend;\r\n\r\nprocedure TDBGrid.UpdateIndicator(ARow: integer);\r\nvar\r\n  LSym: string;\r\nbegin\r\n  if FixedCols = 0 then\r\n    Exit;\r\n\r\n  if (FOldIndicator <> ARow) or not FShowIndicator then\r\n  begin\r\n    if (FOldIndicator >= 0) and (FOldIndicator < RowCount) then\r\n      Cells[0, FOldIndicator] := '';\r\n  end;\r\n\r\n  if FShowIndicator then\r\n  begin\r\n    if Assigned(FDataLink.DataSource) and Assigned(FDataLink.DataSource.DataSet) and FDataLink.DataSource.DataSet.Active and (Row >= FixedRows) then\r\n    begin\r\n      if EditMode or (FDataLink.DataSource.DataSet.State = dsEdit) then\r\n      begin\r\n        LSym := '&#x270E;'\r\n      end\r\n      else\r\n      begin\r\n        if FDataLink.DataSource.DataSet.State = dsInsert then\r\n          LSym := '&brvbar'\r\n        else\r\n          LSym := '&#x25B6;';\r\n      end;\r\n\r\n      Cells[0, ARow] := '&nbsp;' + LSym;\r\n    end;\r\n  end;\r\n\r\n  FOldIndicator := ARow;\r\nend;\r\n\r\n{ TDBMaskEdit }\r\n\r\nprocedure TDBMaskEdit.ActiveChange(Sender: TObject);\r\nbegin\r\n  UpdateElement;\r\n\r\n  if Assigned(FDataLink.DataSet) then\r\n  begin\r\n    if not FDataLink.DataSet.Active or not DataSource.Enabled then\r\n      EditText := ''\r\n    else\r\n      DataChange(Self);\r\n  end;\r\nend;\r\n\r\nfunction TDBMaskEdit.CanCut: boolean;\r\nvar\r\n  canedit: boolean;\r\nbegin\r\n  if not CheckDataSet then\r\n    Exit;\r\n\r\n  if ReadOnly then\r\n  begin\r\n    Result := false;\r\n    Exit;\r\n  end;\r\n\r\n  FEditChange := true;\r\n  canedit := EditCanModify;\r\n  FEditChange := false;\r\n\r\n  if not canedit then\r\n  begin\r\n    Result := false;\r\n    Exit;\r\n  end\r\n  else\r\n  begin\r\n    Result := inherited;\r\n    FDataLink.Edit;\r\n  end;\r\nend;\r\n\r\nfunction TDBMaskEdit.CanPaste(AValue: string): boolean;\r\nbegin\r\n  Result := CanCut;\r\nend;\r\n\r\nprocedure TDBMaskEdit.Change;\r\nbegin\r\n  inherited;\r\n\r\n  if not CheckDataSet then\r\n    Exit;\r\n\r\n  if DataSource.AutoEdit or (DataSource.DataSet.State in [dsInsert, dsEdit]) then\r\n  begin\r\n    FDataLink.Modified;\r\n  end;\r\nend;\r\n\r\nfunction TDBMaskEdit.CheckDataSet: boolean;\r\nbegin\r\n  Result := CheckDB(DataSource, DataField, FDataLink);\r\nend;\r\n\r\nprocedure TDBMaskEdit.CreateInitialize;\r\nbegin\r\n  if not Assigned(FDataLink) then\r\n  begin\r\n    FDataLink := TFieldDataLink.Create;\r\n    FDataLink.OnUpdateData := DataUpdate;\r\n    FDataLink.OnDataChange := DataChange;\r\n    FDataLink.OnActiveChange := ActiveChange;\r\n    FEditChange := false;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TDBMaskEdit.DataChange(Sender: TObject);\r\nbegin\r\n  if FEditChange then\r\n    Exit;\r\n\r\n  if not Assigned(FDataLink.DataSet) then\r\n    Exit;\r\n\r\n  if not Assigned(FDataLink.Field) then\r\n    FDataLink.UpdateField;\r\n\r\n  if Assigned(FDataLink.Field) and  not FDataLink.DataSet.IsEmpty then\r\n    FFieldText := FDataLink.Field.DisplayText\r\n  else\r\n    FFieldText := '';\r\n\r\n  EditText := FFieldText;\r\nend;\r\n\r\nprocedure TDBMaskEdit.DataUpdate(Sender: TObject);\r\nbegin\r\n  if Assigned(FDataLink.Field) then\r\n  begin\r\n    if not Assigned(FDataLink.Field) then\r\n      FDataLink.UpdateField;\r\n\r\n    FDataLink.Field.AsString := EditText;\r\n  end;\r\nend;\r\n\r\ndestructor TDBMaskEdit.Destroy;\r\nbegin\r\n  FDataLink.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TDBMaskEdit.DoExit;\r\nbegin\r\n  if not FDataLink.ReadOnly then\r\n  begin\r\n    FEditChange := true;\r\n    FDataLink.UpdateRecord; // tell data link to update database\r\n  end;\r\n\r\n  inherited DoExit;\r\n\r\n  FEditChange := false;\r\nend;\r\n\r\nfunction TDBMaskEdit.EditCanModify: Boolean;\r\nbegin\r\n  if Assigned(DataSource) then\r\n    Result := not FDatalink.DataSet.ControlsDisabled and (DataSource.AutoEdit or (FDataLink.DataSet.State in [dsEdit, dsInsert])) and FDataLink.Edit\r\n  else\r\n    Result := True;\r\nend;\r\n\r\nfunction TDBMaskEdit.GetDataField: TDataField;\r\nbegin\r\n  Result := FDataLink.FieldName;\r\nend;\r\n\r\nfunction TDBMaskEdit.GetDataSource: TDataSource;\r\nbegin\r\n  Result := FDataLink.DataSource;\r\nend;\r\n\r\nfunction TDBMaskEdit.GetDisplayText: string;\r\nbegin\r\n  if not CheckDataSet then\r\n  begin\r\n    Result := '';\r\n  end\r\n  else\r\n    Result := inherited GetDisplayText;\r\nend;\r\n\r\nfunction TDBMaskEdit.IsEnabled: boolean;\r\nbegin\r\n  Result := Enabled and CheckDataSet;\r\nend;\r\n\r\nfunction TDBMaskEdit.IsReadOnly: boolean;\r\nbegin\r\n  Result := ReadOnly or not CheckDataSet;\r\nend;\r\n\r\nprocedure TDBMaskEdit.KeyDown(var Key: Word; Shift: TShiftState);\r\nvar\r\n  canedit: boolean;\r\nbegin\r\n  if not CheckDataSet then\r\n    Exit;\r\n\r\n  if (Key = VK_DELETE) or (Key = VK_BACK) or ((Key = VK_INSERT) and (ssShift in Shift)) then\r\n  begin\r\n    FEditChange := true;\r\n    canedit := EditCanModify;\r\n    FEditChange := false;\r\n\r\n    if not canedit then\r\n    begin\r\n      key := 0;\r\n      inherited;\r\n      Exit;\r\n    end\r\n    else\r\n    begin\r\n      inherited;\r\n      FDataLink.Edit;\r\n    end;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TDBMaskEdit.KeyPress(var Key: Char);\r\nvar\r\n  canedit: boolean;\r\nbegin\r\n  if not CheckDataSet or ReadOnly then\r\n  begin\r\n    inherited;\r\n    Exit;\r\n  end;\r\n\r\n  if FDataLink.DataSet.ControlsDisabled then\r\n  begin\r\n    PreventDefault;\r\n    StopPropagation;\r\n    Exit;\r\n  end;\r\n\r\n  FEditChange := true;\r\n  canedit := EditCanModify;\r\n  FEditChange := false;\r\n\r\n  if not canedit then\r\n    Exit;\r\n\r\n  if {(Key >= #32) and (FDataLink.Field <> nil) and\r\n    not FDataLink.Field.IsValidChar(Key) or} (FDataLink.ReadOnly) then\r\n  begin\r\n    Key := #0;\r\n  end;\r\n\r\n  inherited Keypress(Key);\r\nend;\r\n\r\nprocedure TDBMaskEdit.SetDataField(const Value: TDataField);\r\nbegin\r\n  FDataLink.FieldName := Value;\r\n  FDataLink.UpdateField;\r\n  ActiveChange(Self);\r\nend;\r\n\r\nprocedure TDBMaskEdit.SetDataSource(const Value: TDataSource);\r\nbegin\r\n  FDataLink.DataSource := Value;\r\n  FDataLink.UpdateField;\r\nend;\r\n\r\n{ TDBEditAutoComplete }\r\n\r\nprocedure TDBEditAutoComplete.ActiveChange(Sender: TObject);\r\nbegin\r\n  UpdateElement;\r\n\r\n  if Assigned(FDataLink.DataSet) then\r\n  begin\r\n    if not FDataLink.DataSet.Active or not DataSource.Enabled then\r\n    begin\r\n      Text := '';\r\n    end\r\n    else\r\n      DataChange(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TDBEditAutoComplete.Change;\r\nbegin\r\n  inherited;\r\n\r\n  if not CheckDataSet then\r\n    Exit;\r\n\r\n  if DataSource.AutoEdit or (DataSource.DataSet.State in [dsEdit,dsInsert]) then\r\n  begin\r\n    FDataLink.Edit;\r\n    FDataLink.Modified;\r\n  end;\r\nend;\r\n\r\nfunction TDBEditAutoComplete.CheckDataSet: boolean;\r\nbegin\r\n  Result := CheckDB(DataSource, DataField, FDataLink);\r\nend;\r\n\r\nprocedure TDBEditAutoComplete.CreateInitialize;\r\nbegin\r\n  if not Assigned(FDataLink) then\r\n  begin\r\n    FDataLink := TFieldDataLink.Create;\r\n    FDataLink.OnUpdateData := DataUpdate;\r\n    FDataLink.OnDataChange := DataChange;\r\n    FDataLink.OnActiveChange := ActiveChange;\r\n    FEditChange := false;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TDBEditAutoComplete.DataChange(Sender: TObject);\r\nbegin\r\n  UpdateElement;\r\n\r\n  if FEditChange then\r\n    Exit;\r\n\r\n  if not Assigned(DataSource) then\r\n    Exit;\r\n\r\n  if not Assigned(FDataLink.DataSet) then\r\n    Exit;\r\n\r\n  if not Assigned(FDataLink.Field) then\r\n    FDataLink.UpdateField;\r\n\r\n  if Assigned(FDataLink.Field) and not FDataLink.DataSet.IsEmpty then\r\n    Text := FDataLink.Field.DisplayText\r\n  else\r\n    Text := '';\r\nend;\r\n\r\nprocedure TDBEditAutoComplete.DataUpdate(Sender: TObject);\r\nbegin\r\n  if Assigned(FDataLink.Field) then\r\n  begin\r\n    if not Assigned(FDataLink.Field) then\r\n      FDataLink.UpdateField;\r\n\r\n    FDataLink.Field.AsString := Text;\r\n  end;\r\nend;\r\n\r\ndestructor TDBEditAutoComplete.Destroy;\r\nbegin\r\n  FDataLink.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TDBEditAutoComplete.DoExit;\r\nbegin\r\n  if not FDataLink.ReadOnly then\r\n  begin\r\n    FEditChange := true;\r\n    FDataLink.UpdateRecord;     { tell data link to update database }\r\n  end;\r\n\r\n  inherited DoExit;\r\n\r\n  FEditChange := false;\r\nend;\r\n\r\nfunction TDBEditAutoComplete.EditCanModify: Boolean;\r\nbegin\r\n  if Assigned(DataSource) then\r\n    Result := not FDatalink.DataSet.ControlsDisabled and (DataSource.AutoEdit or (FDataLink.DataSet.State in [dsEdit, dsInsert])) and FDataLink.Edit\r\n  else\r\n    Result := true;\r\nend;\r\n\r\nfunction TDBEditAutoComplete.GetDataField: TDataField;\r\nbegin\r\n  Result := FDataLink.FieldName;\r\nend;\r\n\r\nfunction TDBEditAutoComplete.GetDataSource: TDataSource;\r\nbegin\r\n  Result := FDataLink.DataSource;\r\nend;\r\n\r\nprocedure TDBEditAutoComplete.KeyDown(var Key: Word; Shift: TShiftState);\r\nvar\r\n  canedit: boolean;\r\n\r\nbegin\r\n  if not CheckDataSet then\r\n    Exit;\r\n\r\n  if (Key = VK_DELETE) or (Key = VK_BACK) or ((Key = VK_INSERT) and (ssShift in Shift)) then\r\n  begin\r\n    FEditChange := true;\r\n    canedit := EditCanModify;\r\n    FEditChange := false;\r\n\r\n    if not canedit then\r\n    begin\r\n      key := 0;\r\n      inherited;\r\n      Exit;\r\n    end\r\n    else\r\n    begin\r\n      inherited;\r\n      FDataLink.Edit;\r\n    end;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TDBEditAutoComplete.KeyPress(var Key: Char);\r\nvar\r\n  canedit: boolean;\r\nbegin\r\n  if not CheckDataSet or ReadOnly then\r\n  begin\r\n    inherited;\r\n    Exit;\r\n  end;\r\n\r\n  if FDataLink.DataSet.ControlsDisabled then\r\n  begin\r\n    PreventDefault;\r\n    StopPropagation;\r\n    Exit;\r\n  end;\r\n\r\n  FEditChange := true;\r\n  canedit := EditCanModify;\r\n  FEditChange := false;\r\n\r\n  if not canedit then\r\n    Exit;\r\n\r\n  if (FDataLink.ReadOnly) then\r\n  begin\r\n    Key := #0;\r\n  end;\r\n\r\n  inherited Keypress(Key);\r\nend;\r\n\r\nprocedure TDBEditAutoComplete.SetDataField(const Value: TDataField);\r\nbegin\r\n  FDataLink.FieldName := Value;\r\n  FDataLink.UpdateField;\r\n  ActiveChange(Self);\r\nend;\r\n\r\nprocedure TDBEditAutoComplete.SetDataSource(const Value: TDataSource);\r\nbegin\r\n  FDataLink.DataSource := Value;\r\nend;\r\n\r\n{ TDBLookupComboBox }\r\n\r\nprocedure TDBLookupComboBox.ActiveChange(Sender: TObject);\r\nbegin\r\n  UpdateElement;\r\n\r\n  if Assigned(FDataLink.DataSet) then\r\n  begin\r\n    if not FDataLink.DataSet.Active or not DataSource.Enabled then\r\n    begin\r\n      ItemIndex := -1;\r\n    end\r\n    else\r\n      DataChange(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TDBLookupComboBox.Change;\r\nvar\r\n  fld: TField;\r\n  chg: TNotifyEvent;\r\n  idx: integer;\r\nbegin\r\n  idx := ItemIndex;\r\n\r\n  if not CheckDataSet then\r\n  begin\r\n    inherited;\r\n    Exit;\r\n  end;\r\n\r\n  chg := OnChange;\r\n  OnChange := nil;\r\n\r\n  inherited;\r\n\r\n  if CheckListDataSet then\r\n    FListLink.DataSet.DisableControls;\r\n\r\n  if DataSource.AutoEdit or (DataSource.DataSet.State in [dsEdit, dsInsert]) then\r\n  begin\r\n    FEditChange := true;\r\n    FDataLink.Edit;\r\n    fld := nil;\r\n    try\r\n      fld := FDataLink.DataSet.FieldByName(DataField);\r\n      fld.AsString := Value;\r\n      FDataLink.Modified;\r\n    except\r\n    end;\r\n    FEditChange := false;\r\n  end;\r\n\r\n  SyncListSource;\r\n\r\n  OnChange := chg;\r\n\r\n  if CheckListDataSet then\r\n    FListLink.DataSet.EnableControls;\r\n\r\n  // ensure idnex in case other DB-aware controls affect it\r\n  ItemIndex := idx;\r\n\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nfunction TDBLookupComboBox.CheckDataSet: boolean;\r\nbegin\r\n  Result := CheckDB(DataSource, DataField, FDataLink);\r\nend;\r\n\r\nfunction TDBLookupComboBox.CheckListDataSet: boolean;\r\nbegin\r\n  Result := Assigned(FListLink.Field) and Assigned(FListLink.DataSet) and FListLink.DataSet.Active;\r\nend;\r\n\r\nprocedure TDBLookupComboBox.CreateInitialize;\r\nbegin\r\n  if not Assigned(FDataLink) then\r\n  begin\r\n    FDataLink := TFieldDataLink.Create;\r\n    FDataLink.OnUpdateData := DataUpdate;\r\n    FDataLink.OnDataChange := DataChange;\r\n    FDataLink.OnActiveChange := ActiveChange;\r\n\r\n    FListLink := TFieldDataLink.Create;\r\n    FListLink.OnActiveChange := ListActiveChange;\r\n    FListLink.OnDataChange := ListDataChange;\r\n    FListChanging := false;\r\n    FEditChange := false;\r\n    FBlockChange := false;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TDBLookupComboBox.DataChange(Sender: TObject);\r\nbegin\r\n  UpdateElement;\r\n\r\n  if FEditChange then\r\n    Exit;\r\n\r\n  if not Assigned(DataSource) then\r\n    Exit;\r\n\r\n  if not Assigned(FDataLink.DataSet) then\r\n    Exit;\r\n\r\n  if not Assigned(FDataLink.Field) then\r\n    FDataLink.UpdateField;\r\n\r\n  if Assigned(FDataLink.Field) and not FDataLink.DataSet.IsEmpty then\r\n  begin\r\n    Value := FDataLink.Field.DisplayText;\r\n  end\r\n  else\r\n    ItemIndex := -1;\r\n\r\n  SyncListSource;\r\nend;\r\n\r\nprocedure TDBLookupComboBox.DataUpdate(Sender: TObject);\r\nbegin\r\n  if Assigned(FDataLink.Field) then\r\n  begin\r\n    if not Assigned(FDataLink.Field) then\r\n      FDataLink.UpdateField;\r\n\r\n    FDataLink.Field.AsString := Value;\r\n  end;\r\nend;\r\n\r\ndestructor TDBLookupComboBox.Destroy;\r\nbegin\r\n  FDataLink.Free;\r\n  FListLink.Free;\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TDBLookupComboBox.DoExit;\r\nbegin\r\n  if not FDataLink.ReadOnly then\r\n  begin\r\n//    try\r\n      FEditChange := true;\r\n      FDataLink.UpdateRecord;     { tell data link to update database }\r\n\r\n//    except\r\n//      on Exception do\r\n//      begin\r\n//        SetFocus;   { if it failed, don't let focus leave }\r\n//        raise;\r\n//      end;\r\n//    end;\r\n  end;\r\n\r\n  inherited DoExit;\r\n\r\n  FEditChange := false;\r\nend;\r\n\r\nfunction TDBLookupComboBox.EditCanModify: Boolean;\r\nbegin\r\n  if Assigned(DataSource) then\r\n    Result := not FDatalink.DataSet.ControlsDisabled and (DataSource.AutoEdit or (FDataLink.DataSet.State in [dsEdit, dsInsert])) and FDataLink.Edit\r\n  else\r\n    Result := true;\r\nend;\r\n\r\nfunction TDBLookupComboBox.GetDataField: TDataField;\r\nbegin\r\n  Result := FDataLink.FieldName;\r\nend;\r\n\r\nfunction TDBLookupComboBox.GetDataSource: TDataSource;\r\nbegin\r\n  Result := FDataLink.DataSource;\r\nend;\r\n\r\nfunction TDBLookupComboBox.GetListField: TDataField;\r\nbegin\r\n  Result := FListLink.FieldName;\r\nend;\r\n\r\nfunction TDBLookupComboBox.GetListSource: TDataSource;\r\nbegin\r\n  Result := FListLink.DataSource;\r\nend;\r\n\r\nfunction TDBLookupComboBox.IsEnabled: boolean;\r\nbegin\r\n  Result := Enabled and CheckDataSet;\r\nend;\r\n\r\nprocedure TDBLookupComboBox.ListActiveChange(Sender: TObject);\r\nbegin\r\n  if not (csLoading in ComponentState) then\r\n    LoadListSource;\r\nend;\r\n\r\nprocedure TDBLookupComboBox.ListDataChange(Sender: TObject);\r\nbegin\r\n  if FBlockChange then\r\n    Exit;\r\n\r\n  if not (csLoading in ComponentState) then\r\n    LoadListSource;\r\nend;\r\n\r\nprocedure TDBLookupComboBox.LoadListSource;\r\nvar\r\n  kfld,lfld: TField;\r\n  isBOF,isEOF: boolean;\r\n  bk: TBookmark;\r\n  ne: TDataSetNotifyEvent;\r\nbegin\r\n  if Assigned(ListSource) and Assigned(ListSource.DataSet) and (ListSource.DataSet.Active) and (KeyField <> '') and (ListField <> '') and not FListChanging then\r\n  begin\r\n    FListChanging := true;\r\n    try\r\n      kfld := ListSource.Dataset.FieldByName(KeyField);\r\n      lfld := ListSource.Dataset.FieldByName(ListField);\r\n    except\r\n      kfld := nil;\r\n      lfld := nil;\r\n    end;\r\n\r\n    if Assigned(kfld) and Assigned(lfld) then\r\n    begin\r\n      isBOF := ListSource.DataSet.BOF;\r\n      isEOF := ListSource.DataSet.EOF;\r\n\r\n      ListSource.DataSet.DisableControls;\r\n\r\n      bk := ListSource.DataSet.GetBookmark;\r\n\r\n      LookupValues.BeginUpdate;\r\n      LookupValues.Clear;\r\n\r\n      ListSource.DataSet.First;\r\n\r\n      while not ListSource.DataSet.EOF do\r\n      begin\r\n        LookupValues.AddPair(kfld.DisplayText, lfld.DisplayText);\r\n        ListSource.DataSet.Next;\r\n      end;\r\n\r\n      LookupValues.EndUpdate;\r\n\r\n      if ListSource.DataSet.BookmarkValid(bk) then\r\n       ListSource.DataSet.GotoBookmark(bk);\r\n\r\n      ne := ListSource.DataSet.AfterScroll;\r\n      ListSource.DataSet.AfterScroll := nil;\r\n\r\n\r\n      if isBOF then\r\n        ListSource.DataSet.First;\r\n\r\n      if isEOF then\r\n        ListSource.DataSet.Last;\r\n\r\n      DoUpdateList;\r\n\r\n      ListSource.DataSet.AfterScroll := ne;\r\n      ListSource.DataSet.EnableControls;\r\n    end;\r\n    FListChanging := false;\r\n  end;\r\n\r\n  // set value in case it was set prior to listsource being loaded\r\n  if FFieldValue <> '' then\r\n    Value := FFieldValue;\r\nend;\r\n\r\nprocedure TDBLookupComboBox.SetDataField(const Value: TDataField);\r\nbegin\r\n  FDataLink.FieldName := Value;\r\n  FDataLink.UpdateField;\r\n  ActiveChange(Self);\r\nend;\r\n\r\nprocedure TDBLookupComboBox.SetDataSource(const Value: TDataSource);\r\nbegin\r\n  if FDatalink.DataSource <> Value then\r\n  begin\r\n    FDatalink.DataSource := Value;\r\n    LoadListSource;\r\n  end;\r\nend;\r\n\r\nprocedure TDBLookupComboBox.SetKeyField(const Value: TDataField);\r\nbegin\r\n  FKeyField := Value;\r\nend;\r\n\r\nprocedure TDBLookupComboBox.SetListField(const Value: TDataField);\r\nbegin\r\n  FListLink.FieldName := Value;\r\nend;\r\n\r\nprocedure TDBLookupComboBox.SetListSource(const Value: TDataSource);\r\nbegin\r\n  FListLink.DataSource := Value;\r\nend;\r\n\r\nprocedure TDBLookupComboBox.SetValue(const Value: string);\r\nbegin\r\n  inherited;\r\n  FFieldValue := Value;\r\nend;\r\n\r\nprocedure TDBLookupComboBox.SyncListSource;\r\nbegin\r\n  if Assigned(FListLink.Field) and Assigned(FListLink.DataSet) and FListLink.DataSet.Active and not FListLink.DataSet.IsEmpty and (ItemIndex >= 0) then\r\n  begin\r\n    FBlockChange := true;\r\n    FListLink.DataSet.First;\r\n    FListLink.DataSet.MoveBy(ItemIndex);\r\n    FBlockChange := false;\r\n  end;\r\nend;\r\n\r\n{ TDBListControl }\r\n\r\nprocedure TDBListControl.ActiveChange(Sender: TObject);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TDBListControl.CreateInitialize;\r\nbegin\r\n  inherited;\r\n\r\n  if not Assigned(FDataLink) then\r\n  begin\r\n    FDataLink := TDBDataLink.Create;\r\n    FDataLink.OnUpdateData := DataUpdate;\r\n    FDataLink.OnDataChange := DataChange;\r\n    FDataLink.OnActiveChange := ActiveChange;\r\n    FDataLink.OnRecordChange := RecordChange;\r\n\r\n    FListLink := TDBDataLink.Create;\r\n    FListLink.OnActiveChange := ListActiveChange;\r\n  end;\r\nend;\r\n\r\nprocedure TDBListControl.DataChange(Sender: TObject);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TDBListControl.DataUpdate(Sender: TObject);\r\nbegin\r\n\r\nend;\r\n\r\ndestructor TDBListControl.Destroy;\r\nbegin\r\n  FDataLink.Free;\r\n  FListLink.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TDBListControl.DoItemGetFieldValue(Index: integer; AFieldName: string;\r\n  var AValue: string);\r\nbegin\r\n  if Assigned(OnListItemGetFieldValue) then\r\n    OnListItemGetFieldValue(Self, Index, AFieldName, AValue);\r\nend;\r\n\r\nfunction TDBListControl.GetDataField: TDataField;\r\nbegin\r\n  Result := FDataLink.FieldName;\r\nend;\r\n\r\nfunction TDBListControl.GetDataSource: TDataSource;\r\nbegin\r\n  Result := FDataLink.DataSource;\r\nend;\r\n\r\nfunction TDBListControl.GetListField: TDataField;\r\nbegin\r\n  Result := FListLink.FieldName;\r\nend;\r\n\r\nfunction TDBListControl.GetListSource: TDataSource;\r\nbegin\r\n  Result := FListLink.DataSource;\r\nend;\r\n\r\nprocedure TDBListControl.ListActiveChange(Sender: TObject);\r\nvar\r\n  fld: TField;\r\n  bk: TBookmark;\r\n  itemtext,ident,html,htmlvalue: string;\r\n  c: integer;\r\n  itm: TListItem;\r\n  ne: TDataSetNotifyEvent;\r\nbegin\r\n  if not Assigned(ListSource) then\r\n    Exit;\r\n\r\n  if Assigned(FListLink.DataSet) and FListLink.DataSet.Active and not FListLink.DataSet.IsEmpty then\r\n  begin\r\n    fld := nil;\r\n    if FListLink.FieldName <> '' then\r\n      fld := FListLink.DataSet.FieldByName(FListLink.FieldName);\r\n\r\n    if Assigned(fld) or (ItemTemplate <> '') then\r\n    begin\r\n      FListLink.DataSet.DisableControls;\r\n      bk := FListLink.DataSet.GetBookmark;\r\n      Items.Clear;\r\n\r\n      ne := FListLink.DataSet.AfterScroll;\r\n      FListLink.DataSet.AfterScroll := nil;\r\n\r\n      FListLink.DataSet.First;\r\n\r\n      while not FListLink.DataSet.Eof do\r\n      begin\r\n        itm := Items.Add;\r\n\r\n        if ItemTemplate <> '' then\r\n        begin\r\n          html := ItemTemplate;\r\n\r\n          if Assigned(fld) then\r\n          begin\r\n            itm.Data := fld.DisplayText;\r\n          end;\r\n\r\n          for c := 0 to FListLink.DataSource.DataSet.Fields.Count - 1 do\r\n          begin\r\n            ident := '(%' +  FListLink.DataSource.DataSet.Fields[c].FieldName + '%)';\r\n            if Pos(Uppercase(ident), Uppercase(html)) > 0 then\r\n            begin\r\n              htmlvalue := FListLink.DataSource.DataSet.Fields[c].DisplayText;\r\n              DoItemGetFieldValue(itm.Index, FListLink.DataSource.DataSet.Fields[c].FieldName, htmlvalue);\r\n              html := StringReplace(html, ident, htmlvalue, [rfReplaceAll, rfIgnoreCase]);\r\n            end;\r\n          end;\r\n\r\n          itemtext := html;\r\n        end\r\n        else\r\n        begin\r\n          itemtext := fld.DisplayText;\r\n        end;\r\n\r\n        itm.Text := itemtext;\r\n        FListLink.DataSet.Next;\r\n      end;\r\n\r\n      FListLink.DataSet.GotoBookmark(bk);\r\n\r\n      FListLink.DataSet.AfterScroll := ne;\r\n      FListLink.DataSet.EnableControls;\r\n    end;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TDBListControl.RecordChange(Sender: TObject);\r\nvar\r\n  i: integer;\r\n  dt: string;\r\nbegin\r\n  if AutoSelect then\r\n  begin\r\n    if Assigned(FDataLink.DataSet) and FDataLink.DataSet.Active and not FDataLink.DataSet.IsEmpty then\r\n    begin\r\n      if (ListSource = DataSource) then\r\n        ItemIndex := FDataLink.DataSet.RecNo - 1\r\n      else\r\n      if (DataField <> '') then\r\n      begin\r\n        dt := FDataLink.DataSet.FieldByName(DataField).DisplayText;\r\n\r\n        for i := 0 to Items.Count - 1 do\r\n        begin\r\n          if Items[i].Data = dt then\r\n          begin\r\n            ItemIndex := i;\r\n            break;\r\n          end\r\n          else\r\n          if (Items[i].Text = dt) then\r\n          begin\r\n            ItemIndex := i;\r\n            break;\r\n          end;\r\n        end;\r\n      end;\r\n\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TDBListControl.SetDataField(const Value: TDataField);\r\nbegin\r\n  FDataLink.FieldName := Value;\r\n  ActiveChange(Self);\r\nend;\r\n\r\nprocedure TDBListControl.SetDataSource(const Value: TDataSource);\r\nbegin\r\n  FDataLink.DataSource := Value;\r\nend;\r\n\r\nprocedure TDBListControl.SetItemTemplate(const Value: string);\r\nbegin\r\n  FItemTemplate := Value;\r\nend;\r\n\r\nprocedure TDBListControl.SetListField(const Value: TDataField);\r\nbegin\r\n  FListLink.FieldName := Value;\r\n  ActiveChange(Self);\r\nend;\r\n\r\nprocedure TDBListControl.SetListSource(const Value: TDataSource);\r\nbegin\r\n  FListLink.DataSource := Value;\r\nend;\r\n\r\n{ TDBEditBtn }\r\n\r\nprocedure TDBEditBtn.ActiveChange(Sender: TObject);\r\nbegin\r\n  UpdateElement;\r\n\r\n  if Assigned(FDataLink.DataSet) then\r\n  begin\r\n    if not FDataLink.DataSet.Active or not DataSource.Enabled then\r\n      Text := ''\r\n    else\r\n      DataChange(Self);\r\n  end;\r\nend;\r\n\r\nfunction TDBEditBtn.CanCut: boolean;\r\nvar\r\n  canedit: boolean;\r\nbegin\r\n  if not CheckDataSet then\r\n    Exit;\r\n\r\n  if ReadOnly then\r\n  begin\r\n    Result := false;\r\n    Exit;\r\n  end;\r\n\r\n  FEditChange := true;\r\n  canedit := EditCanModify;\r\n  FEditChange := false;\r\n\r\n  if not canedit then\r\n  begin\r\n    Result := false;\r\n    Exit;\r\n  end\r\n  else\r\n  begin\r\n    Result := inherited;\r\n    FDataLink.Edit;\r\n  end;\r\nend;\r\n\r\nfunction TDBEditBtn.CanPaste(AValue: string): boolean;\r\nbegin\r\n  Result := CanCut;\r\nend;\r\n\r\nprocedure TDBEditBtn.Change;\r\nbegin\r\n  inherited;\r\n\r\n  if not CheckDataSet then\r\n    Exit;\r\n\r\n  if DataSource.AutoEdit or (DataSource.DataSet.State in [dsEdit,dsInsert]) then\r\n    FDataLink.Modified;\r\nend;\r\n\r\nfunction TDBEditBtn.CheckDataSet: boolean;\r\nbegin\r\n  Result := CheckDB(DataSource, DataField, FDataLink);\r\nend;\r\n\r\nprocedure TDBEditBtn.CreateInitialize;\r\nbegin\r\n  if not Assigned(FDataLink) then\r\n  begin\r\n    FDataLink := TFieldDataLink.Create;\r\n    FDataLink.OnUpdateData := DataUpdate;\r\n    FDataLink.OnDataChange := DataChange;\r\n    FDataLink.OnActiveChange := ActiveChange;\r\n    FEditChange := false;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TDBEditBtn.DataChange(Sender: TObject);\r\nbegin\r\n  if FEditChange then\r\n    Exit;\r\n\r\n  UpdateElement;\r\n\r\n  if not Assigned(FDataLink.DataSet) then\r\n    Exit;\r\n\r\n  if not Assigned(FDataLink.Field) then\r\n    FDataLink.UpdateField;\r\n\r\n  if Assigned(FDataLink.Field) and not FDataLink.DataSet.IsEmpty then\r\n    Text := FDataLink.Field.DisplayText\r\n  else\r\n    Text := '';\r\nend;\r\n\r\nprocedure TDBEditBtn.DataUpdate(Sender: TObject);\r\nbegin\r\n  if Assigned(FDataLink.Field) then\r\n  begin\r\n    if not Assigned(FDataLink.Field) then\r\n      FDataLink.UpdateField;\r\n\r\n    FDataLink.Field.AsString := Text;\r\n  end;\r\nend;\r\n\r\ndestructor TDBEditBtn.Destroy;\r\nbegin\r\n  FDataLink.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TDBEditBtn.DoExit;\r\nbegin\r\n  if not FDataLink.ReadOnly then\r\n  begin\r\n    FEditChange := true;\r\n    FDataLink.UpdateRecord;     { tell data link to update database }\r\n  end;\r\n\r\n  inherited DoExit;\r\n\r\n  FEditChange := false;\r\nend;\r\n\r\nfunction TDBEditBtn.EditCanModify: Boolean;\r\nbegin\r\n  if Assigned(DataSource) then\r\n    Result := not FDatalink.DataSet.ControlsDisabled and (DataSource.AutoEdit or (DataSource.DataSet.State in [dsEdit,dsInsert])) and FDataLink.Edit\r\n  else\r\n    Result := True;\r\nend;\r\n\r\nfunction TDBEditBtn.GetDataField: TDataField;\r\nbegin\r\n  Result := FDataLink.FieldName;\r\nend;\r\n\r\nfunction TDBEditBtn.GetDataSource: TDataSource;\r\nbegin\r\n  Result := FDataLink.DataSource;\r\nend;\r\n\r\nfunction TDBEditBtn.GetDisplayText: string;\r\nbegin\r\n  if not CheckDataSet then\r\n    Result := ''\r\n  else\r\n    Result := inherited GetDisplayText;\r\nend;\r\n\r\nfunction TDBEditBtn.IsEnabled: boolean;\r\nbegin\r\n  Result := Enabled and CheckDataSet;\r\nend;\r\n\r\nfunction TDBEditBtn.IsReadOnly: boolean;\r\nbegin\r\n  Result := ReadOnly or not CheckDataSet;\r\nend;\r\n\r\nprocedure TDBEditBtn.KeyDown(var Key: Word; Shift: TShiftState);\r\nvar\r\n  canedit: boolean;\r\n\r\nbegin\r\n  if not CheckDataSet then\r\n    Exit;\r\n\r\n  if (Key = VK_DELETE) or (Key = VK_BACK) or ((Key = VK_INSERT) and (ssShift in Shift)) then\r\n  begin\r\n    FEditChange := true;\r\n    canedit := EditCanModify;\r\n    FEditChange := false;\r\n\r\n    if not canedit then\r\n    begin\r\n      key := 0;\r\n      inherited;\r\n      Exit;\r\n    end\r\n    else\r\n    begin\r\n      inherited;\r\n      FDataLink.Edit;\r\n    end;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TDBEditBtn.KeyPress(var Key: Char);\r\nvar\r\n  canedit: boolean;\r\nbegin\r\n  if not CheckDataSet or ReadOnly then\r\n  begin\r\n    inherited;\r\n    Exit;\r\n  end;\r\n\r\n  if FDataLink.DataSet.ControlsDisabled then\r\n  begin\r\n    PreventDefault;\r\n    StopPropagation;\r\n    Exit;\r\n  end;\r\n\r\n  FEditChange := true;\r\n  canedit := EditCanModify;\r\n  FEditChange := false;\r\n\r\n  if not canedit then\r\n  begin\r\n    Key := #0;\r\n    Exit;\r\n  end;\r\n\r\n  if {((Key >= #32) and (FDataLink.Field <> nil) and\r\n    not FDataLink.Field.IsValidChar(Key)) or} (FDataLink.ReadOnly) then\r\n  begin\r\n    Key := #0;\r\n  end;\r\n\r\n  inherited Keypress(Key);\r\nend;\r\n\r\nprocedure TDBEditBtn.SetDataField(const Value: TDataField);\r\nbegin\r\n  FDataLink.FieldName := Value;\r\n  FDataLink.UpdateField;\r\n  ActiveChange(Self);\r\nend;\r\n\r\nprocedure TDBEditBtn.SetDataSource(const Value: TDataSource);\r\nbegin\r\n  FDataLink.DataSource := Value;\r\nend;\r\n\r\n{ TDBEditDropDownControl }\r\n\r\nprocedure TDBEditDropDownControl.ActiveChange(Sender: TObject);\r\nbegin\r\n  UpdateElement;\r\n\r\n  if Assigned(FDataLink.DataSet) then\r\n  begin\r\n    if not FDataLink.DataSet.Active or not DataSource.Enabled then\r\n      Text := ''\r\n    else\r\n      DataChange(Self);\r\n  end;\r\nend;\r\n\r\n(*\r\nfunction TDBEditDropDownControl.CanCut: boolean;\r\nvar\r\n  canedit: boolean;\r\nbegin\r\n  if not CheckDataSet then\r\n    Exit;\r\n\r\n  if ReadOnly then\r\n  begin\r\n    Result := false;\r\n    Exit;\r\n  end;\r\n\r\n  FEditChange := true;\r\n  canedit := EditCanModify;\r\n  FEditChange := false;\r\n\r\n  if not canedit then\r\n  begin\r\n    Result := false;\r\n    Exit;\r\n  end\r\n  else\r\n  begin\r\n    Result := inherited;\r\n    FDataLink.Edit;\r\n  end;\r\nend;\r\n\r\nfunction TDBEditDropDownControl.CanPaste(AValue: string): boolean;\r\nbegin\r\n  Result := CanCut;\r\nend;\r\n\r\nprocedure TDBEditDropDownControl.Change;\r\nbegin\r\n  inherited;\r\n\r\n  if not CheckDataSet then\r\n    Exit;\r\n\r\n  if DataSource.AutoEdit or (DataSource.DataSet.State in [dsEdit,dsInsert]) then\r\n    FDataLink.Modified;\r\nend;\r\n*)\r\n\r\nfunction TDBEditDropDownControl.CheckDataSet: boolean;\r\nbegin\r\n  Result := CheckDB(DataSource, DataField, FDataLink);\r\nend;\r\n\r\nprocedure TDBEditDropDownControl.CreateInitialize;\r\nbegin\r\n  if not Assigned(FDataLink) then\r\n  begin\r\n    FDataLink := TFieldDataLink.Create;\r\n    FDataLink.OnUpdateData := DataUpdate;\r\n    FDataLink.OnDataChange := DataChange;\r\n    FDataLink.OnActiveChange := ActiveChange;\r\n    FEditChange := false;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TDBEditDropDownControl.DataChange(Sender: TObject);\r\nbegin\r\n  if FEditChange then\r\n    Exit;\r\n\r\n  UpdateElement;\r\n\r\n  if not Assigned(FDataLink.DataSet) then\r\n    Exit;\r\n\r\n  if not Assigned(FDataLink.Field) then\r\n    FDataLink.UpdateField;\r\n\r\n  if Assigned(FDataLink.Field) and not FDataLink.DataSet.IsEmpty then\r\n    Text := FDataLink.Field.DisplayText\r\n  else\r\n    Text := '';\r\nend;\r\n\r\nprocedure TDBEditDropDownControl.DataUpdate(Sender: TObject);\r\nbegin\r\n  if Assigned(FDataLink.Field) then\r\n  begin\r\n    if not Assigned(FDataLink.Field) then\r\n      FDataLink.UpdateField;\r\n\r\n    FDataLink.Field.AsString := Text;\r\n  end;\r\nend;\r\n\r\ndestructor TDBEditDropDownControl.Destroy;\r\nbegin\r\n  FDataLink.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TDBEditDropDownControl.DoExit;\r\nbegin\r\n  if not FDataLink.ReadOnly then\r\n  begin\r\n    FEditChange := true;\r\n    FDataLink.UpdateRecord;     { tell data link to update database }\r\n  end;\r\n\r\n  inherited DoExit;\r\n\r\n  FEditChange := false;\r\nend;\r\n\r\nfunction TDBEditDropDownControl.EditCanModify: Boolean;\r\nbegin\r\n  if Assigned(DataSource) then\r\n    Result := not FDatalink.DataSet.ControlsDisabled and (DataSource.AutoEdit or (DataSource.DataSet.State in [dsEdit,dsInsert])) and FDataLink.Edit\r\n  else\r\n    Result := True;\r\nend;\r\n\r\nfunction TDBEditDropDownControl.GetDataField: TDataField;\r\nbegin\r\n  Result := FDataLink.FieldName;\r\nend;\r\n\r\nfunction TDBEditDropDownControl.GetDataSource: TDataSource;\r\nbegin\r\n  Result := FDataLink.DataSource;\r\nend;\r\n\r\n(*\r\nfunction TDBEditDropDownControl.GetDisplayText: string;\r\nbegin\r\n  if not CheckDataSet then\r\n    Result := ''\r\n  else\r\n    Result := inherited GetDisplayText;\r\nend;\r\n*)\r\n\r\nfunction TDBEditDropDownControl.IsEnabled: boolean;\r\nbegin\r\n  Result := Enabled and CheckDataSet;\r\nend;\r\n\r\nfunction TDBEditDropDownControl.IsReadOnly: boolean;\r\nbegin\r\n  Result := ReadOnly or not CheckDataSet;\r\nend;\r\n\r\nprocedure TDBEditDropDownControl.KeyDown(var Key: Word; Shift: TShiftState);\r\nvar\r\n  canedit: boolean;\r\n\r\nbegin\r\n  if not CheckDataSet then\r\n    Exit;\r\n\r\n  if (Key = VK_DELETE) or (Key = VK_BACK) or ((Key = VK_INSERT) and (ssShift in Shift)) then\r\n  begin\r\n    FEditChange := true;\r\n    canedit := EditCanModify;\r\n    FEditChange := false;\r\n\r\n    if not canedit then\r\n    begin\r\n      key := 0;\r\n      inherited;\r\n      Exit;\r\n    end\r\n    else\r\n    begin\r\n      inherited;\r\n      FDataLink.Edit;\r\n    end;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TDBEditDropDownControl.KeyPress(var Key: Char);\r\nvar\r\n  canedit: boolean;\r\nbegin\r\n  if not CheckDataSet {or ReadOnly} then\r\n  begin\r\n    inherited;\r\n    Exit;\r\n  end;\r\n\r\n  if FDataLink.DataSet.ControlsDisabled then\r\n  begin\r\n    PreventDefault;\r\n    StopPropagation;\r\n    Exit;\r\n  end;\r\n\r\n  FEditChange := true;\r\n  canedit := EditCanModify;\r\n  FEditChange := false;\r\n\r\n  if not canedit then\r\n  begin\r\n    Key := #0;\r\n    Exit;\r\n  end;\r\n\r\n  if {((Key >= #32) and (FDataLink.Field <> nil) and\r\n    not FDataLink.Field.IsValidChar(Key)) or} (FDataLink.ReadOnly) then\r\n  begin\r\n    Key := #0;\r\n  end;\r\n\r\n  inherited Keypress(Key);\r\nend;\r\n\r\nprocedure TDBEditDropDownControl.SetDataField(const Value: TDataField);\r\nbegin\r\n  FDataLink.FieldName := Value;\r\n  FDataLink.UpdateField;\r\n  ActiveChange(Self);\r\nend;\r\n\r\nprocedure TDBEditDropDownControl.SetDataSource(const Value: TDataSource);\r\nbegin\r\n  FDataLink.DataSource := Value;\r\nend;\r\n\r\n{ TDBEditDropDownTableControl }\r\n\r\nprocedure TDBEditDropDownTableControl.ActiveChange(Sender: TObject);\r\nbegin\r\n  UpdateElement;\r\n\r\n  if Assigned(FDataLink.DataSet) then\r\n  begin\r\n    if not FDataLink.DataSet.Active or not DataSource.Enabled then\r\n      Text := ''\r\n    else\r\n      DataChange(Self);\r\n  end;\r\nend;\r\n\r\nfunction TDBEditDropDownTableControl.CheckDataSet: boolean;\r\nbegin\r\n  Result := CheckDB(DataSource, DataField, FDataLink);\r\nend;\r\n\r\nprocedure TDBEditDropDownTableControl.CreateInitialize;\r\nbegin\r\n  if not Assigned(FDataLink) then\r\n  begin\r\n    FDataLink := TFieldDataLink.Create;\r\n    FDataLink.OnUpdateData := DataUpdate;\r\n    FDataLink.OnDataChange := DataChange;\r\n    FDataLink.OnActiveChange := ActiveChange;\r\n    FEditChange := false;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\nfunction TDBEditDropDownTableControl.CreateTable(\r\n  Aowner: TComponent): TCustomTableControl;\r\nbegin\r\n  Result := TWebDBTableControl.Create(AOwner);\r\nend;\r\n\r\nprocedure TDBEditDropDownTableControl.DataChange(Sender: TObject);\r\nbegin\r\n  if FEditChange then\r\n    Exit;\r\n\r\n  UpdateElement;\r\n\r\n  if not Assigned(FDataLink.DataSet) then\r\n    Exit;\r\n\r\n  if not Assigned(FDataLink.Field) then\r\n    FDataLink.UpdateField;\r\n\r\n  if Assigned(FDataLink.Field) and not FDataLink.DataSet.IsEmpty then\r\n    Text := FDataLink.Field.DisplayText\r\n  else\r\n    Text := '';\r\nend;\r\n\r\nprocedure TDBEditDropDownTableControl.DataUpdate(Sender: TObject);\r\nbegin\r\n  if Assigned(FDataLink.Field) then\r\n  begin\r\n    if not Assigned(FDataLink.Field) then\r\n      FDataLink.UpdateField;\r\n\r\n    FDataLink.Field.AsString := Text;\r\n  end;\r\nend;\r\n\r\ndestructor TDBEditDropDownTableControl.Destroy;\r\nbegin\r\n  FDataLink.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TDBEditDropDownTableControl.DoExit;\r\nbegin\r\n  if not FDataLink.ReadOnly then\r\n  begin\r\n    FEditChange := true;\r\n    FDataLink.UpdateRecord;     { tell data link to update database }\r\n  end;\r\n\r\n  inherited DoExit;\r\n\r\n  FEditChange := false;\r\nend;\r\n\r\nfunction TDBEditDropDownTableControl.EditCanModify: Boolean;\r\nbegin\r\n  if Assigned(DataSource) then\r\n    Result := not FDatalink.DataSet.ControlsDisabled and (DataSource.AutoEdit or (DataSource.DataSet.State in [dsEdit,dsInsert])) and FDataLink.Edit\r\n  else\r\n    Result := True;\r\nend;\r\n\r\nfunction TDBEditDropDownTableControl.GetDataField: TDataField;\r\nbegin\r\n  Result := FDataLink.FieldName;\r\nend;\r\n\r\nfunction TDBEditDropDownTableControl.GetDataSource: TDataSource;\r\nbegin\r\n  Result := FDataLink.DataSource;\r\nend;\r\n\r\nfunction TDBEditDropDownTableControl.GetDBTableControl: TDBTableControl;\r\nbegin\r\n  Result := TDBTableControl(TableControl);\r\nend;\r\n\r\nfunction TDBEditDropDownTableControl.GetTableSource: TDataSource;\r\nbegin\r\n  Result := GetDBTableControl.DataSource;\r\nend;\r\n\r\nfunction TDBEditDropDownTableControl.IsEnabled: boolean;\r\nbegin\r\n  Result := Enabled and CheckDataSet;\r\nend;\r\n\r\nfunction TDBEditDropDownTableControl.IsReadOnly: boolean;\r\nbegin\r\n  Result := ReadOnly or not CheckDataSet;\r\nend;\r\n\r\nprocedure TDBEditDropDownTableControl.KeyDown(var Key: Word;\r\n  Shift: TShiftState);\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TDBEditDropDownTableControl.KeyPress(var Key: Char);\r\nvar\r\n  canedit: boolean;\r\nbegin\r\n  if not CheckDataSet {or ReadOnly} then\r\n  begin\r\n    inherited;\r\n    Exit;\r\n  end;\r\n\r\n  if FDataLink.DataSet.ControlsDisabled then\r\n  begin\r\n    PreventDefault;\r\n    StopPropagation;\r\n    Exit;\r\n  end;\r\n\r\n  FEditChange := true;\r\n  canedit := EditCanModify;\r\n  FEditChange := false;\r\n\r\n  if not canedit then\r\n  begin\r\n    Key := #0;\r\n    Exit;\r\n  end;\r\n\r\n  if {((Key >= #32) and (FDataLink.Field <> nil) and\r\n    not FDataLink.Field.IsValidChar(Key)) or} (FDataLink.ReadOnly) then\r\n  begin\r\n    Key := #0;\r\n  end;\r\n\r\n  inherited Keypress(Key);\r\nend;\r\n\r\nprocedure TDBEditDropDownTableControl.SetDataField(const Value: TDataField);\r\nbegin\r\n  FDataLink.FieldName := Value;\r\n  FDataLink.UpdateField;\r\n  ActiveChange(Self);\r\nend;\r\n\r\nprocedure TDBEditDropDownTableControl.SetDataSource(const Value: TDataSource);\r\nbegin\r\n  FDataLink.DataSource := Value;\r\nend;\r\n\r\nprocedure TDBEditDropDownTableControl.SetTableSource(const Value: TDataSource);\r\nbegin\r\n  GetDBTableControl.DataSource := Value;\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2019                                      }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.RegularExpressions;\r\n\r\ninterface\r\n\r\nuses js, web, sysutils, types;\r\n\r\ntype\r\n  TRegExOption = (roNone, roIgnoreCase, roMultiLine,\r\n    roSingleLine, roJSUnicode);\r\n\r\n  TRegExOptions = set of TRegExOption;\r\n\r\n  { Difference from Delphi TGroup:\r\n    JS does not return Index and Length for a Group. So\r\n    these propertiess are absent.\r\n  }\r\n  TGroup = record\r\n  private\r\n    FValue: String;\r\n    FSuccess: Boolean;\r\n    constructor Create(const AValue: String; ASuccess: Boolean);\r\n  public\r\n    property Value: String read FValue;\r\n    property Success: Boolean read FSuccess;\r\n  end;\r\n\r\n  TGroupCollectionEnumerator = class;\r\n\r\n  TGroupArray = array of TGroup;\r\n\r\n  TGroupCollection = record\r\n  private\r\n    FList: TGroupArray;\r\n    FNamedGroups: TJSObject;\r\n    // Redesigned as in Pas2JS record constructor does not work properly\r\n    // All New functions in this file are coded for this reason only\r\n    class function New(execResultArray: TStringDynArray): TGroupCollection; static;\r\n    function GetCount: Integer;\r\n    function GetItem(Index: JSValue): TGroup;\r\n  public\r\n    function GetEnumerator: TGroupCollectionEnumerator;\r\n    property Count: Integer read GetCount;\r\n    property Item[Index: JSValue]: TGroup read GetItem; default;\r\n  end;\r\n\r\n  TGroupCollectionEnumerator = class\r\n  private\r\n    FCollection: TGroupCollection;\r\n    FIndex: Integer;\r\n  public\r\n    constructor Create(const ACollection: TGroupCollection);\r\n    function GetCurrent: TGroup;\r\n    function MoveNext: Boolean;\r\n    property Current: TGroup read GetCurrent;\r\n  end;\r\n\r\n  TMatch = record\r\n  private\r\n    FIndex: Integer;\r\n    FLength: Integer;\r\n    FSuccess: Boolean;\r\n    FGroups: TGroupCollection;\r\n    FValue: String;\r\n    FInput: String;\r\n    FJSRegExp: TJSRegexp;\r\n    constructor Create(AJSRegExp: TJSRegexp; execResultArray: TStringDynArray); overload;\r\n    class function New: TMatch; static;\r\n    function GetGroups: TGroupCollection;\r\n  public\r\n    function NextMatch: TMatch;\r\n    property Groups: TGroupCollection read GetGroups;\r\n    property Index: Integer read FIndex;\r\n    property Length: Integer read FLength;\r\n    property Success: Boolean read FSuccess write FSuccess;\r\n    property Value: String read FValue;\r\n  end;\r\n\r\n  TMatchCollectionEnumerator = class;\r\n\r\n  TMatchArray = array of TMatch;\r\n\r\n  TMatchCollection = record\r\n  private\r\n    FList: TMatchArray;\r\n    // Redesigned as Constructor does not work properly for records\r\n    class function New(aMatch: TMatch): TMatchCollection; static;\r\n    function GetCount: Integer;\r\n    function GetItem(Index: Integer): TMatch;\r\n  public\r\n    function GetEnumerator: TMatchCollectionEnumerator;\r\n    property Count: Integer read GetCount;\r\n    property Item[Index: Integer]: TMatch read GetItem; default;\r\n  end;\r\n\r\n  TMatchCollectionEnumerator = class\r\n  private\r\n    FCollection: TMatchCollection;\r\n    FIndex: Integer;\r\n  public\r\n    constructor Create(const ACollection: TMatchCollection);\r\n    function GetCurrent: TMatch;\r\n    function MoveNext: Boolean;\r\n    property Current: TMatch read GetCurrent;\r\n  end;\r\n\r\n  TMatchEvaluator = function(const Match: TMatch): String of object;\r\n\r\n  TRegEx = record\r\n  private\r\n    FJSRegExp: TJSRegexp;\r\n    FPattern: String;\r\n    FOptions: TRegExOptions;\r\n    FMatchEvaluator: TMatchEvaluator;\r\n\r\n    function GetJSRegExFlags(AddJSFlags: String=''): String;\r\n    Function DoOnReplace(Const match: String; offsetDontUse: Integer; InputDontUse: String) : String;\r\n  public\r\n    constructor Create(const Pattern: String); overload;\r\n    constructor Create(const Pattern: String; Options: TRegExOptions); overload;\r\n\r\n    function IsMatch(const Input: String): Boolean; overload;\r\n    function IsMatch(const Input: String; StartPos: Integer): Boolean; overload;\r\n    class function IsMatch(const Input, Pattern: String): Boolean; overload; static;\r\n    class function IsMatch(const Input, Pattern: String; Options: TRegExOptions): Boolean; overload; static;\r\n\r\n    class function Escape(const Str: String; UseWildCards: Boolean = False): String; static;\r\n\r\n    function Match(const Input: String): TMatch; overload;\r\n    function Match(const Input: String; StartPos: Integer): TMatch; overload;\r\n    function Match(const Input: String; StartPos, Length: Integer): TMatch; overload;\r\n    class function Match(const Input, Pattern: String): TMatch; overload; static;\r\n    class function Match(const Input, Pattern: String; Options: TRegExOptions): TMatch; overload; static;\r\n\r\n    function Matches(const Input: String): TMatchCollection; overload;\r\n    function Matches(const Input: String; StartPos: Integer): TMatchCollection; overload;\r\n    class function Matches(const Input, Pattern: String): TMatchCollection; overload; static;\r\n    class function Matches(const Input, Pattern: String; Options: TRegExOptions): TMatchCollection; overload; static;\r\n\r\n    function Replace(const Input, Replacement: String): String; overload;\r\n    function Replace(const Input: String; Evaluator: TMatchEvaluator): String; overload;\r\n    // Note: overloaded Replace functions with Count are not supported.\r\n    class function Replace(const Input, Pattern, Replacement: String): String; overload; static;\r\n    class function Replace(const Input, Pattern: String; Evaluator: TMatchEvaluator): String; overload; static;\r\n    class function Replace(const Input, Pattern, Replacement: String; Options: TRegExOptions): String; overload; static;\r\n    class function Replace(const Input, Pattern: String; Evaluator: TMatchEvaluator; Options: TRegExOptions): String; overload; static;\r\n\r\n    function Split(const Input: String): TStringDynArray; overload;\r\n    // Note: overloaded Split function with Count are not supported.\r\n    class function Split(const Input, Pattern: String): TStringDynArray; overload; static;\r\n    class function Split(const Input, Pattern: String; Options: TRegExOptions): TStringDynArray; overload; static;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses strutils;\r\n\r\nfunction GetJSExceptionDetails(ExceptObject: TObject; out errorName: String; out errorMsg: String): Boolean; forward;\r\nfunction FormatErrorMessage(errorName: String; errorMessage: String): String; forward;\r\n\r\n{ TGroup }\r\n\r\nconstructor TGroup.Create(const AValue: String; ASuccess: Boolean);\r\nbegin\r\n  FValue := AValue;\r\n  FSuccess := ASuccess;\r\nend;\r\n\r\n{ TGroupCollection }\r\n\r\nclass function TGroupCollection.New(execResultArray: TStringDynArray): TGroupCollection;\r\nvar\r\n  arrayLength, i: Integer;\r\n  resObject: TJSObject;\r\n  svalue: String;\r\nbegin\r\n  SetLength(Result.FList, 0);\r\n  Result.FNamedGroups := TJSObject.new;\r\n  if execResultArray = nil then\r\n    exit;\r\n  resObject := TJSObject(execResultArray);\r\n  arrayLength := Integer(resObject['length']);\r\n  SetLength(Result.FList, arrayLength);\r\n  for i := 0 to arrayLength - 1 do\r\n  begin\r\n    // A group can be undefined\r\n    if not isUndefined(execResultArray[i]) then\r\n      svalue := execResultArray[i]\r\n    else\r\n      svalue := ''; // We add an empty group for undefined\r\n                    // group sent back. Delphi in some cases\r\n                    // does this and sometimes doesn't. Hence,\r\n                    // the decision.\r\n    Result.FList[i] := TGroup.Create(svalue, True);\r\n  end;\r\n  if not isUndefined(resObject['groups']) then\r\n  begin\r\n    Result.FNamedGroups := TJSObject(resObject['groups']);\r\n  end;\r\nend;\r\n\r\n\r\nfunction TGroupCollection.GetCount: Integer;\r\nbegin\r\n  Result := Length(FList);\r\nend;\r\n\r\nfunction TGroupCollection.GetEnumerator: TGroupCollectionEnumerator;\r\nbegin\r\n  Result := TGroupCollectionEnumerator.Create(Self);\r\nend;\r\n\r\nfunction TGroupCollection.GetItem(Index: JSValue): TGroup;\r\nvar\r\n  LIndex: Integer;\r\nbegin\r\n  Case GetValueType(Index) of\r\n    jvtString:\r\n      begin\r\n        if isUndefined(FNamedGroups[String(Index)]) then\r\n          Result := TGroup.Create('', False)\r\n        else\r\n          Result := TGroup.Create(String(FNamedGroups[String(Index)]), True);\r\n      end;\r\n    jvtInteger:\r\n      begin\r\n        LIndex := Integer(Index);\r\n        Result := FList[LIndex];\r\n      end;\r\n  else\r\n    raise Exception.Create('Invalid group index passed');\r\n  end;\r\nend;\r\n\r\n{ TGroupCollectionEnumerator }\r\n\r\nconstructor TGroupCollectionEnumerator.Create(const ACollection: TGroupCollection);\r\nbegin\r\n  FCollection := ACollection;\r\n  FIndex := -1;\r\nend;\r\n\r\nfunction TGroupCollectionEnumerator.GetCurrent: TGroup;\r\nbegin\r\n  Result := FCollection.Item[FIndex];\r\nend;\r\n\r\nfunction TGroupCollectionEnumerator.MoveNext: Boolean;\r\nbegin\r\n  Result := FIndex < FCollection.Count - 1;\r\n  if Result then\r\n    Inc(FIndex);\r\nend;\r\n\r\n{ TMatch }\r\nconstructor TMatch.Create(AJSRegExp: TJSRegexp; execResultArray: TStringDynArray);\r\nvar\r\n  resObject: TJSObject;\r\n  str: String;\r\nbegin\r\n  FJSRegExp := AJSRegExp;\r\n  if execResultArray = nil then\r\n  begin\r\n    FValue := '';\r\n    FIndex := 0;\r\n    FLength := 0;\r\n    FSuccess := False;\r\n  end\r\n  else\r\n  begin\r\n    resObject := TJSObject(execResultArray);\r\n    FInput := String(resObject['input']);\r\n    str := execResultArray[0];\r\n\r\n    FValue := str;\r\n    FIndex := Integer(resObject['index']) + 1; //Delphi index\r\n    FLength := System.length(str);\r\n    FSuccess := True;\r\n  end;\r\n  FGroups := TGroupCollection.New(execResultArray);\r\nend;\r\n\r\n// To create empty\r\nclass function TMatch.New: TMatch;\r\nbegin\r\n  Result.FValue := '';\r\n  Result.FIndex := 0;\r\n  Result.FLength := 0;\r\n  Result.FSuccess := False;\r\nend;\r\n\r\nfunction TMatch.GetGroups: TGroupCollection;\r\nbegin\r\n  Result := FGroups;\r\nend;\r\n\r\nfunction TMatch.NextMatch: TMatch;\r\nvar\r\n  execResultArray: TStringDynArray;\r\nbegin\r\n  if FJSRegExp = nil then\r\n  begin\r\n    Result := TMatch.New;\r\n    exit;\r\n  end;\r\n  execResultArray := FJSRegExp.exec(FInput);\r\n  Result := TMatch.Create(FJSRegExp, execResultArray);\r\nend;\r\n\r\n{ TMatchCollection }\r\n\r\nclass function TMatchCollection.New(aMatch: TMatch): TMatchCollection;\r\nvar\r\n  Count: Integer;\r\nbegin\r\n  Count := 0;\r\n  SetLength(Result.FList, 0);\r\n  if not aMatch.Success then\r\n    exit;\r\n  while aMatch.Success do\r\n  begin\r\n    if Count mod 10 = 0 then\r\n      SetLength(Result.FList, Length(Result.FList) + 10);\r\n    Result.FList[Count] := aMatch;\r\n    aMatch := aMatch.NextMatch;\r\n    Inc(Count);\r\n  end;\r\n  if Length(Result.FList) > Count then\r\n    SetLength(Result.FList, Count);\r\nend;\r\n\r\nfunction TMatchCollection.GetCount: Integer;\r\nbegin\r\n  Result := Length(FList);\r\nend;\r\n\r\nfunction TMatchCollection.GetEnumerator: TMatchCollectionEnumerator;\r\nbegin\r\n  Result := TMatchCollectionEnumerator.Create(Self);\r\nend;\r\n\r\nfunction TMatchCollection.GetItem(Index: Integer): TMatch;\r\nbegin\r\n  if (Index >= 0) and (Index < Length(FList)) then\r\n    Result := FList[Index]\r\n  else\r\n    raise Exception.Create('Invalid match collection index passed.');\r\nend;\r\n\r\n{ TMatchCollectionEnumerator }\r\n\r\nconstructor TMatchCollectionEnumerator.Create(const ACollection: TMatchCollection);\r\nbegin\r\n  FCollection := ACollection;\r\n  FIndex := -1;\r\nend;\r\n\r\nfunction TMatchCollectionEnumerator.GetCurrent: TMatch;\r\nbegin\r\n  Result := FCollection.Item[FIndex];\r\nend;\r\n\r\nfunction TMatchCollectionEnumerator.MoveNext: Boolean;\r\nbegin\r\n  Result := FIndex < FCollection.Count - 1;\r\n  if Result then\r\n    Inc(FIndex);\r\nend;\r\n\r\n{ TRegEx related }\r\n\r\nfunction GetJSExceptionDetails(ExceptObject: TObject; out errorName: String; out errorMsg: String): Boolean;\r\nvar\r\n  erName, erMsg: String;\r\nbegin\r\n  result := False;\r\n  if ExceptObject is Exception then\r\n    exit;\r\n  result := True;\r\n  asm\r\n    erName = ExceptObject.name;\r\n    erMsg = ExceptObject.message;\r\n  end;\r\n  errorName := erName;\r\n  errorMsg := erMsg;\r\nend;\r\n\r\nfunction FormatErrorMessage(errorName: String; errorMessage: String): String;\r\nbegin\r\n  Result := Format('%s: %s',\r\n                   [errorName, errorMessage]);\r\nend;\r\n\r\n{ TRegEx }\r\nfunction TRegEx.GetJSRegExFlags(AddJSFlags: String=''): String;\r\nbegin\r\n  // Meaning of new JSflags\r\n  // By Default: use g is required for our implementation\r\n  //   g means keep state (lastindex)\r\n  // Used for IsMatch\r\n  //   y means sticky, compare exactly at lastindex\r\n  Result := 'g' + AddJSFlags;\r\n  if (roIgnoreCase in FOptions) then\r\n    Result := Result + 'i';\r\n  if (roMultiLine in FOptions) then\r\n    Result := Result + 'm';\r\n  if (roSingleLine in FOptions) then\r\n    Result := Result + 's';\r\n  if (roJSUnicode in FOptions) then\r\n    Result := Result + 'u';\r\nend;\r\n\r\nconstructor TRegEx.Create(const Pattern: String);\r\nbegin\r\n  Create(Pattern, []);\r\nend;\r\n\r\nfunction RemoveLineEnding(aPattern: String): String;\r\nbegin\r\n  Result := TrimRightSet(APattern, [#10, #13]);\r\n  Result := TrimLeftSet(Result, [#10, #13]);\r\nend;\r\n\r\nconstructor TRegEx.Create(const Pattern: String; Options: TRegExOptions); overload;\r\nvar\r\n  exe: Exception;\r\n  excName, excMsg: String;\r\nbegin\r\n  FPattern := RemoveLineEnding(Pattern);\r\n  FOptions := Options;\r\n  try\r\n    FJSRegExp := TJSRegexp.New(FPattern, GetJSRegExFlags);\r\n  except\r\n    asm\r\n      exe = $e;\r\n    end;\r\n    if not GetJSExceptionDetails(exe, excName, excMsg) then\r\n      raise exe;\r\n    excMsg := FormatErrorMessage(excName, excMsg);\r\n    raise Exception.Create(excmsg);\r\n  end;\r\nend;\r\n\r\nfunction TRegEx.IsMatch(const Input: String): Boolean;\r\nbegin\r\n  Result := IsMatch(input, 1); //Start at first position\r\nend;\r\n\r\nfunction TRegEx.IsMatch(const Input: String; StartPos: Integer): Boolean;\r\nvar\r\n  exe: Exception;\r\n  excName, excMsg: String;\r\nbegin\r\n  try\r\n    // We need to recreate the regexp object with sticky flag y\r\n    FJSRegExp := TJSRegexp.New(FPattern, GetJSRegExFlags('y'));\r\n    FJSRegExp.lastIndex := StartPos - 1; //Delphi pos starts at 1\r\n    // We can not use test method as that does not honor flag y for\r\n    // exact comparison. Instead, use exec and analyze result.\r\n    Result := FJSRegExp.exec(input) <> nil;\r\n  except\r\n    asm\r\n      exe = $e;\r\n    end;\r\n    if not GetJSExceptionDetails(exe, excName, excMsg) then\r\n      raise exe;\r\n    excMsg := FormatErrorMessage(excName, excMsg);\r\n    raise Exception.Create(excmsg);\r\n  end;\r\nend;\r\n\r\nclass function TRegEx.IsMatch(const Input, Pattern: String): Boolean;\r\nvar\r\n  aRegEx: TRegEx;\r\nbegin\r\n  aRegEx := TRegEx.Create(Pattern);\r\n  Result := aRegEx.IsMatch(Input);\r\nend;\r\n\r\nclass function TRegEx.IsMatch(const Input, Pattern: String; Options: TRegExOptions): Boolean;\r\nvar\r\n  aRegEx: TRegEx;\r\nbegin\r\n  aRegEx := TRegEx.Create(Pattern, Options);\r\n  Result := aRegEx.IsMatch(Input);\r\nend;\r\n\r\n// Straight from Delphi. Needs to be tested.\r\nclass function TRegEx.Escape(const Str: String; UseWildCards: Boolean): String;\r\nconst\r\n  Special: array [1 .. 14] of String = ('\\', '[', ']', '^', '$', '.', '|', '?',\r\n    '*', '+', '(', ')', '{', '}'); // do not localize\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := Str;\r\n  for I := Low(Special) to High(Special) do\r\n  begin\r\n    Result := StringReplace(Result, Special[I], '\\' + Special[I], [rfReplaceAll]); // do not localize\r\n  end;\r\n  // CRLF becomes \\r\\n\r\n  Result := StringReplace(Result, #13#10, '\\r\\n', [rfReplaceAll]); // do not localize\r\n  // LF becomes \\n\r\n  Result := StringReplace(Result, #10, '\\n', [rfReplaceAll]); // do not localize\r\n\r\n  // If we're matching wildcards, make them Regex Groups so we can read them back if necessary\r\n  if UseWildCards then\r\n  begin\r\n    // Replace all \\*s with (.*)\r\n    Result := StringReplace(Result, '\\*', '(.*)', [rfReplaceAll]); // do not localize\r\n    // Replace any \\?s with (.)\r\n    Result := StringReplace(Result, '\\?', '(.)', [rfReplaceAll]); // do not localize\r\n\r\n    // Wildcards can be escaped as ** or ??\r\n    // Change back any escaped wildcards\r\n    Result := StringReplace(Result, '(.*)(.*)', '\\*', [rfReplaceAll]); // do not localize\r\n    Result := StringReplace(Result, '(.)(.)', '\\?', [rfReplaceAll]); // do not localize\r\n  end;\r\nend;\r\n\r\nfunction TRegEx.Match(const Input: String): TMatch;\r\nbegin\r\n  Result := Match(Input, 1); //Start at first position\r\nend;\r\n\r\nfunction TRegEx.Match(const Input: String; StartPos: Integer): TMatch; overload;\r\nvar\r\n  execResultArray: TStringDynArray;\r\nbegin\r\n  FJSRegExp.lastIndex := StartPos - 1; //Delphi pos starts at 1\r\n  execResultArray := FJSRegExp.exec(input);\r\n  Result := TMatch.Create(FJSRegExp, execResultArray);\r\nend;\r\n\r\nfunction TRegEx.Match(const Input: String; StartPos, Length: Integer): TMatch; overload;\r\nvar\r\n  substr: String;\r\nbegin\r\n  substr := copy(input, 1, StartPos + Length-1);\r\n  Result := Match(substr, StartPos);\r\nend;\r\n\r\nclass function TRegEx.Match(const Input, Pattern: String): TMatch;\r\nvar\r\n  aRegEx: TRegEx;\r\nbegin\r\n  aRegEx := TRegEx.Create(Pattern);\r\n  Result := aRegEx.Match(Input);\r\nend;\r\n\r\nclass function TRegEx.Match(const Input, Pattern: String; Options: TRegExOptions): TMatch;\r\nvar\r\n  aRegEx: TRegEx;\r\nbegin\r\n  aRegEx := TRegEx.Create(Pattern, Options);\r\n  Result := aRegEx.Match(Input);\r\nend;\r\n\r\nfunction TRegEx.Matches(const Input: String): TMatchCollection;\r\nbegin\r\n  Result := Matches(Input, 1);\r\nend;\r\n\r\nfunction TRegEx.Matches(const Input: String; StartPos: Integer): TMatchCollection;\r\nvar\r\n  aMatch: TMatch;\r\nbegin\r\n  aMatch := Match(Input, StartPos);\r\n  Result := TMatchCollection.New(aMatch);\r\nend;\r\n\r\nclass function TRegEx.Matches(const Input, Pattern: String): TMatchCollection;\r\nvar\r\n  aRegEx: TRegEx;\r\nbegin\r\n  aRegEx := TRegEx.Create(Pattern);\r\n  Result := aRegEx.Matches(Input);\r\nend;\r\n\r\nclass function TRegEx.Matches(const Input, Pattern: String; Options: TRegExOptions): TMatchCollection;\r\nvar\r\n  aRegEx: TRegEx;\r\nbegin\r\n  aRegEx := TRegEx.Create(Pattern, Options);\r\n  Result := aRegEx.Matches(Input);\r\nend;\r\n\r\nfunction TRegEx.Replace(const Input, Replacement: String): String;\r\nvar\r\n  anStr: TJSString;\r\nbegin\r\n  anStr := TJSString.New(Input);\r\n  Result := anStr.replace(FJSRegExp, Replacement);\r\nend;\r\n\r\n// Note that information passed to offset and input will be wrong\r\n// because depending on groups present first group will come as offset parameter\r\n// and so on. There is no way we can create a match only from these arguments.\r\n// We rather inspect JSArguments to find what we need.\r\nFunction TRegEx.DoOnReplace(Const match: String; offsetDontUse: Integer; InputDontUse: String) : String;\r\nvar\r\n  execResultArray: TStringDynArray;\r\n  i, numArgs: Integer;\r\n  aMatch: TMatch;\r\nbegin\r\n  { we make up an array same as execResultArray from arguments\r\n    so that a TMatch can be constructed from it by existing\r\n    constructors.\r\n    The indexes needed:\r\n    0 -- the match\r\n    1, n -- group strings found\r\n    property index - offset of match\r\n    property input -- Input String\r\n    -------------\r\n    Now, we inspect JSArguments array to see actual arguments\r\n    passed to this function to get the groups which are not\r\n    passed in actual arguments above.\r\n    Logic: JSArguments array contains offset at n+1 and input at n+2\r\n    So we simply copy length-2 elements and then add properties\r\n    from the last 2 arguments of JSArguments\r\n  }\r\n  numArgs := JSArguments.length;\r\n  setLength(execResultArray, numArgs-2);\r\n  for i := 0 to length(execResultArray)-1 do\r\n    execResultArray[i] := String(JSArguments[i]);\r\n  TJSObject(execResultArray)['index'] := Integer(JSArguments[numArgs-2]);\r\n  TJSObject(execResultArray)['input'] := String(JSArguments[numArgs-1]);\r\n\r\n  aMatch := TMatch.Create(FJSRegExp, execResultArray);\r\n  Result := FMatchEvaluator(aMatch);\r\nend;\r\n\r\nfunction TRegEx.Replace(const Input: String; Evaluator: TMatchEvaluator): String; overload;\r\nvar\r\n  anStr: TJSString;\r\nbegin\r\n  anStr := TJSString.New(Input);\r\n  FMatchEvaluator := Evaluator;\r\n  try\r\n    Result := anStr.replace(FJSRegExp, @DoOnReplace);\r\n  finally\r\n    FMatchEvaluator := nil;\r\n  end;\r\nend;\r\n\r\nclass function TRegEx.Replace(const Input, Pattern, Replacement: String): String;\r\nvar\r\n  aRegEx: TRegEx;\r\nbegin\r\n  aRegEx := TRegEx.Create(Pattern);\r\n  Result := aRegEx.Replace(Input, Replacement);\r\nend;\r\n\r\nclass function TRegEx.Replace(const Input, Pattern: String; Evaluator: TMatchEvaluator): String;\r\nvar\r\n  aRegEx: TRegEx;\r\nbegin\r\n  aRegEx := TRegEx.Create(Pattern);\r\n  Result := aRegEx.Replace(Input, Evaluator);\r\nend;\r\n\r\nclass function TRegEx.Replace(const Input, Pattern, Replacement: String; Options: TRegExOptions): String;\r\nvar\r\n  aRegEx: TRegEx;\r\nbegin\r\n  aRegEx := TRegEx.Create(Pattern, Options);\r\n  Result := aRegEx.Replace(Input, Replacement);\r\nend;\r\n\r\nclass function TRegEx.Replace(const Input, Pattern: String; Evaluator: TMatchEvaluator; Options: TRegExOptions): String;\r\nvar\r\n  aRegEx: TRegEx;\r\nbegin\r\n  aRegEx := TRegEx.Create(Pattern, Options);\r\n  Result := aRegEx.Replace(Input, Evaluator);\r\nend;\r\n\r\nfunction TRegEx.Split(const Input: String): TStringDynArray;\r\nvar\r\n  anStr: TJSString;\r\nbegin\r\n  anStr := TJSString.New(Input);\r\n  Result := anStr.split(FJSRegExp);\r\nend;\r\n\r\nclass function TRegEx.Split(const Input, Pattern: String): TStringDynArray;\r\nvar\r\n  aRegEx: TRegEx;\r\nbegin\r\n  aRegEx := TRegEx.Create(Pattern);\r\n  Result := aRegEx.Split(Input);\r\nend;\r\n\r\nclass function TRegEx.Split(const Input, Pattern: String; Options: TRegExOptions): TStringDynArray;\r\nvar\r\n  aRegEx: TRegEx;\r\nbegin\r\n  aRegEx := TRegEx.Create(Pattern, Options);\r\n  Result := aRegEx.Split(Input);\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.CDS;\r\n\r\n{$DEFINE NOPP}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, DB, jsondataset, Web, js, WEBLib.Controls, WEBLib.REST;\r\n\r\ntype\r\n  TCustomClientDataSet = class;\r\n\r\n  TClientDataSource = class(TDataSource)\r\n  end;\r\n\r\n  TConnectErrorEvent = procedure(Sender: TObject; ErrorCode: integer) of object;\r\n\r\n  TURLType = (utGet,utPost,utPut,utDelete);\r\n\r\n  TClientConnectionGetURLEvent = procedure(Sender: TObject; Dataset : TDataset; urlType : TURLType; Var URL : String) of object;\r\n\r\n  TGetUpdatePayloadEvent = procedure(Sender : TObject; Dataset : TDataset; urlType : TURLType; Data : JSValue; out aPayLoad : String) of object;\r\n\r\n  TGetDataPayloadEvent = procedure(Sender : TObject; Dataset : TDataset; urlType : TURLType; var aPayLoad : JSValue) of object;\r\n\r\n  TProcessMetaDataEvent =  procedure(Sender : TObject; Dataset : TDataset; FieldDefs : TFieldDefs; aMetaData : TJSObject) of object;\r\n\r\n  TDataReceivedEvent = procedure(Sender: TObject; ARequest: TJSXMLHttpRequestRecord; var AResponse: string) of object;\r\n\r\n  // for compatibility with Delphi code\r\n  TWideStringField = class(TStringField);\r\n\r\n  TClientConnection = class(TComponent)\r\n  private\r\n    FDataProxy: TDataProxy;\r\n    FActive: boolean;\r\n    FURI: string;\r\n    FDS: TCustomClientDataSet;\r\n    FDataNode: string;\r\n    FAutoOpen: boolean;\r\n    FUpdateCount: integer;\r\n    FOnConnectError: TConnectErrorEvent;\r\n    FBeforeConnect: TNotifyEvent;\r\n    FAfterConnect: TNotifyEvent;\r\n    FHeaders: TStringList;\r\n    FPassword: string;\r\n    FUser: string;\r\n    FOnGetURL: TClientConnectionGetURLEvent;\r\n    FPageParam: string;\r\n    FOnGetUpdatePayLoad: TGetUpdatePayloadEvent;\r\n    FAppendKeyToURL: boolean;\r\n    FOnGetDataPayLoad: TGetDataPayloadEvent;\r\n    FMetaDataNode: string;\r\n    FOnProcessMetaData: TProcessMetadataEvent;\r\n    FOnDataReceived: TDataReceivedEvent;\r\n    FXHR: TJSXMLHttpRequest;\r\n    FCommand: THTTPCommand;\r\n    FCustomCommand: string;\r\n    FPostData: string;\r\n    FDelimiter: char;\r\n    FSkipFirstCSVLine: boolean;\r\n    FOpenResolver: TJSPromiseResolver;\r\n    procedure SetHeaders(const Value: TStringList);\r\n    function GetPageURL(aRequest: TDataRequest): String;\r\n    function GetRecordUpdateURL(aRequest: TRecordUpdateDescriptor): String;\r\n    function GetDataProxy: TDataProxy;\r\n    procedure SetDataNode(const Value: string);\r\n    procedure SetURI(const Value: string);\r\n    function onError(Event: TEventListenerEvent): boolean; virtual;\r\n    function onAbort(Event: TEventListenerEvent): boolean; virtual;\r\n    function onLoad(Event: TEventListenerEvent): boolean; virtual;\r\n  protected\r\n    procedure SetActive(const Value: boolean);\r\n    procedure ProcessMetadata(Dataset : TDataset; FieldDefs : TFieldDefs; aMetaData : TJSObject); virtual;\r\n    function GetReadBaseURL(aRequest: TDataRequest): String; virtual;\r\n    function GetUpdateBaseURL(aRequest: TRecordUpdateDescriptor): String; virtual;\r\n    procedure RegisterDataSet(const value: TCustomClientDataSet);\r\n    procedure DoOpenResolve(AResult: boolean); virtual;\r\n    procedure DoAfterLoad(DataSet: TDataSet);\r\n    procedure DoRequest; virtual;\r\n    procedure DoConnect; virtual;\r\n    procedure DoDisconnect; virtual;\r\n    procedure DoBeforeConnect; virtual;\r\n    procedure DoAfterConnect; virtual;\r\n    procedure DoError(ErrorCode: integer);\r\n    procedure DoDataReceived(ARequest: TJSXMLHttpRequest; var AResponse: string);\r\n    procedure SetupRequest(aXHR: TJSXMLHttpRequest); virtual;\r\n    function GetDataNode : String; virtual;\r\n    function GetMetaDataNode : String; virtual;\r\n    function DoGetDataProxy : TDataProxy; virtual;\r\n    function GetUpdatePayLoad(aURLType : TURLType; aDataset : TDataset; AData : JSValue) : String; virtual;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure BeginUpdate; override;\r\n    procedure EndUpdate; override;\r\n    function Open: TJSPromise;\r\n    procedure Close;\r\n    procedure AfterLoadDFMValues; override;\r\n    property DataProxy : TDataProxy Read GetDataProxy;\r\n    class function StatusToURLType(aStatus : TUpdateStatus) : TURLType;\r\n  published\r\n    property Active: boolean read FActive write SetActive;\r\n    property AppendKeyToURL : boolean read FAppendKeyToURL write FAppendKeyToURL default true;\r\n    property AutoOpenDataSet: boolean read FAutoOpen write FAutoOpen default true;\r\n    property Command: THTTPCommand read FCommand write FCommand default httpGET;\r\n    property CustomCommand: string read FCustomCommand write FCustomCommand;\r\n    property DataNode: string read FDataNode write SetDataNode;\r\n    property Delimiter: char read FDelimiter write FDelimiter;\r\n    property MetaDataNode: string read FMetaDataNode write FMetaDataNode;\r\n    property PageParam: string read FPageParam write FPageParam;\r\n    property PostData: string read FPostData write FPostData;\r\n    property Headers: TStringList read FHeaders write SetHeaders;\r\n    property Password: string read FPassword write FPassword;\r\n    property SkipFirstCSVLine: boolean read FSkipFirstCSVLine write FSkipFirstCSVLine default false;\r\n    property User: string read FUser write FUser;\r\n    property URI: string read FURI write SetURI;\r\n    property AfterConnect: TNotifyEvent read FAfterConnect write FAfterConnect;\r\n    property BeforeConnect: TNotifyEvent read FBeforeConnect write FBeforeConnect;\r\n   \tproperty OnConnectError: TConnectErrorEvent read FOnConnectError write FOnConnectError;\r\n    property OnDataReceived: TDataReceivedEvent read FOnDataReceived write FOnDataReceived;\r\n    property OnGetURL : TClientConnectionGetURLEvent Read FOnGetURL Write FOnGetURL;\r\n    Property OnGetUpdatePayLoad : TGetUpdatePayloadEvent Read FOnGetUpdatePayLoad Write FOnGetUpdatePayLoad;\r\n    Property OnGetDataPayload : TGetDataPayloadEvent Read FOnGetDataPayLoad Write FOnGetDataPayLoad;\r\n    Property OnProcessMetaData : TProcessMetadataEvent Read FOnProcessMetaData Write FOnProcessMetaData;\r\n  end;\r\n\r\n  TWebClientConnection = class(TClientConnection);\r\n\r\n  TWebClientDataProxy = class(TDataProxy)\r\n  private\r\n    FConnection: TClientConnection;\r\n  protected\r\n    procedure CheckBatchComplete(aBatch : TRecordUpdateBatch); virtual;\r\n  public\r\n    function GetUpdateDescriptorClass : TRecordUpdateDescriptorClass; override;\r\n    function ProcessUpdateBatch(aBatch : TRecordUpdateBatch): Boolean; override;\r\n    function DoGetData(aRequest: TDataRequest): Boolean; override;\r\n    function GetDataRequest(aOptions: TLoadOptions; aAfterRequest: TDataRequestEvent; aAfterLoad: TDatasetLoadEvent) : TDataRequest; override;\r\n    constructor Create(AOwner: TComponent);  override;\r\n    property Connection: TClientConnection read FConnection;\r\n  end;\r\n\r\n  TUpdateRecordEvent = procedure(Sender: TObject; ADescriptor: TRecordUpdateDescriptor) of object;\r\n\r\n  TCustomClientDataSet = class(TBaseJSONDataSet)\r\n  private\r\n    FConnection: TClientConnection;\r\n    FOnUpdateRecord: TUpdateRecordEvent;\r\n    FUpdateCount: integer;\r\n    FIDField: string;\r\n    FuseServerMetadata: Boolean;\r\n    FParams: TParams;\r\n    FOpenResolver: TJSPromiseResolver;\r\n    FPostResolver: TJSPromiseResolver;\r\n    FInsertResolver: TJSPromiseResolver;\r\n    FUpdateResolver: TJSPromiseResolver;\r\n    FDeleteResolver: TJSPromiseResolver;\r\n    procedure SetParams(const Value: TParams);\r\n    function GetIndexDefs: TJSONIndexDefs;\r\n    function GetIndexName: string;\r\n    procedure SetIndexName(const Value: string);\r\n  protected\r\n    function GetStringFieldLength(F: TJSObject; AName: string; AIndex: Integer): integer; virtual;\r\n    function StringToFieldType(S: String): TFieldType; virtual;\r\n    Function DoResolveRecordUpdate(anUpdate: TRecordUpdateDescriptor): Boolean; override;\r\n    procedure ResolveUpdateBatch(Sender: TObject; aBatch: TRecordUpdateBatch); override;\r\n    Function DataPacketReceived(aRequest : TDataRequest) : Boolean; override;\r\n    procedure DoOpenResolve(AResult: boolean); virtual;\r\n    procedure DoPostResolve(AResult: boolean); virtual;\r\n    procedure DoInsertResolve(AResult: boolean); virtual;\r\n    procedure DoUpdateResolve(AResult: boolean); virtual;\r\n    procedure DoDeleteResolve(AResult: boolean); virtual;\r\n    procedure DoUpdateRecord(ADescriptor: TRecordUpdateDescriptor); virtual;\r\n    procedure MetaDataToFieldDefs; override;\r\n    procedure SetConnection(const Value: TClientConnection);\r\n    function CreateFieldMapper : TJSONFieldMapper; override;\r\n    procedure InitFieldDefs; override;\r\n    procedure InternalInitFieldDefs; override;\r\n    procedure FieldDefsFromRows(aRows: TJSArray);\r\n    procedure DoAfterOpen; override;\r\n    procedure DoAfterPost; override;\r\n    procedure DoAfterInsert; override;\r\n    procedure DoAfterDelete; override;\r\n    function DoGetDataProxy: TDataProxy; override;\r\n    property Connection: TClientConnection read FConnection write SetConnection;\r\n    property OnUpdateRecord: TUpdateRecordEvent read FOnUpdateRecord write FOnUpdateRecord;\r\n    property Params: TParams Read FParams Write SetParams;\r\n    property IDField: string read FIDField write FIDField;\r\n    property UseServerMetadata: Boolean Read FuseServerMetadata Write FuseServerMetadata;\r\n    procedure SetActive(Value: Boolean); override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    function OpenAsync: TJSPromise;\r\n    function PostAsync: TJSPromise; virtual;\r\n    function InsertAsync: TJSPromise;\r\n    function AppendAsync: TJSPromise;\r\n    function DeleteAsync: TJSPromise; virtual;\r\n    function ApplyUpdatesAsync: TJSPromise;\r\n    procedure BeginUpdate; override;\r\n    procedure EndUpdate; override;\r\n    procedure AfterLoadDFMValues; override;\r\n    procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;\r\n    procedure EmptyDataSet;\r\n    property Rows;\r\n    property DataProxy;\r\n    procedure Refresh; reintroduce;\r\n    property Indexes;\r\n    property IndexDefs: TJSONIndexDefs read GetIndexDefs;\r\n    property IndexName: string read GetIndexName write SetIndexName;\r\n    property FieldDefs;\r\n    property ActiveIndex;\r\n    property Active;\r\n  published\r\n  end;\r\n\r\n  TClientDataSet = class(TCustomClientDataSet)\r\n  public\r\n    property IDField: string read FIDField write FIDField;\r\n  published\r\n    property Active;\r\n    property Connection;\r\n    property Params;\r\n\r\n    property BeforeOpen;\r\n    property AfterOpen;\r\n    property BeforeClose;\r\n    property AfterClose;\r\n    property BeforeInsert;\r\n    property AfterInsert;\r\n    property BeforeEdit;\r\n    property AfterEdit;\r\n    property BeforePost;\r\n    property AfterPost;\r\n    property BeforeCancel;\r\n    property AfterCancel;\r\n    property BeforeDelete;\r\n    property AfterDelete;\r\n    property BeforeScroll;\r\n    property AfterScroll;\r\n    property OnCalcFields;\r\n    property OnDeleteError;\r\n    property OnEditError;\r\n    property OnFilterRecord;\r\n    property OnNewRecord;\r\n    property OnPostError;\r\n    property OnUpdateRecord;\r\n  end;\r\n\r\n\r\n  TWebClientDataSet = class(TClientDataSet);\r\n\r\nimplementation\r\n\r\nuses\r\n  SysUtils, Types, WEBLib.Dialogs;\r\n\r\ntype\r\n  { TWebClientDataRequest }\r\n\r\n  TWebClientDataRequest = Class(TDataRequest)\r\n  private\r\n    FXHR: TJSXMLHttpRequest;\r\n    FConnection: TClientConnection;\r\n  protected\r\n    function onError(Event: TEventListenerEvent): boolean; virtual;\r\n    function onAbort(Event: TEventListenerEvent): boolean; virtual;\r\n    function onLoad(Event: TEventListenerEvent): boolean; virtual;\r\n    function TransformResult: JSValue; virtual;\r\n    property Connection : TClientConnection read FConnection;\r\n  end;\r\n\r\n  { TWebClientUpdateRequest }\r\n\r\n  TWebClientUpdateRequest = Class(TRecordUpdateDescriptor)\r\n  private\r\n    FXHR: TJSXMLHttpRequest;\r\n    FBatch: TRecordUpdateBatch;\r\n    FConnection: TClientConnection;\r\n  protected\r\n    function TransformResult: JSValue; virtual;\r\n    function onError(Event: TEventListenerEvent): boolean; virtual;\r\n    function onAbort(Event: TEventListenerEvent): boolean; virtual;\r\n    function onLoad(Event: TEventListenerEvent): boolean; virtual;\r\n    property Connection : TClientConnection read FConnection;\r\n  end;\r\n\r\n{ TClientDataSet }\r\n\r\nprocedure TCustomClientDataSet.AfterLoadDFMValues;\r\nbegin\r\n  inherited;\r\n\r\n  InitFieldDefs;\r\nend;\r\n\r\nfunction TCustomClientDataSet.AppendAsync: TJSPromise;\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n    begin\r\n      FInsertResolver := ASuccess;\r\n      Self.Append;\r\n    end)\r\nend;\r\n\r\nprocedure TCustomClientDataSet.BeginUpdate;\r\nbegin\r\n  inherited;\r\n  inc(FUpdateCount);\r\nend;\r\n\r\nconstructor TCustomClientDataSet.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FParams := TParams.Create(TParam);\r\nend;\r\n\r\nfunction TCustomClientDataSet.CreateFieldMapper : TJSONFieldMapper;\r\nbegin\r\n  Result := TJSONObjectFieldMapper.Create;\r\nend;\r\n\r\nfunction TCustomClientDataSet.OpenAsync: TJSPromise;\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n    begin\r\n      FOpenResolver := ASuccess;\r\n      Self.Open;\r\n    end)\r\nend;\r\n\r\nfunction TCustomClientDataSet.PostAsync: TJSPromise;\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n    begin\r\n      FPostResolver := ASuccess;\r\n      Self.Post;\r\n    end)\r\nend;\r\n\r\nfunction TCustomClientDataSet.DeleteAsync: TJSPromise;\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n    begin\r\n      FDeleteResolver := ASuccess;\r\n      Self.Delete;\r\n    end)\r\nend;\r\n\r\n\r\nfunction TCustomClientDataSet.InsertAsync: TJSPromise;\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n    begin\r\n      FInsertResolver := ASuccess;\r\n      Self.Insert;\r\n    end)\r\nend;\r\n\r\nfunction TCustomClientDataSet.ApplyUpdatesAsync: TJSPromise;\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n    begin\r\n      FUpdateResolver := ASuccess;\r\n      Self.ApplyUpdates;\r\n    end)\r\nend;\r\n\r\nprocedure TCustomClientDataSet.ResolveUpdateBatch(Sender: TObject; aBatch: TRecordUpdateBatch);\r\nvar\r\n  i: integer;\r\n  res: boolean;\r\nbegin\r\n  inherited;\r\n\r\n  res := aBatch.List.Count > 0;\r\n\r\n  for i := 0 to aBatch.List.Count - 1 do\r\n  begin\r\n    if Assigned(aBatch.List[i]) and  (aBatch.List[i].ResolveStatus <> rsResolved) then\r\n      res := false;\r\n  end;\r\n\r\n  DoUpdateResolve(res);\r\nend;\r\n\r\nfunction TCustomClientDataSet.DoResolveRecordUpdate(anUpdate: TRecordUpdateDescriptor): Boolean;\r\nvar\r\n  D: JSValue;\r\n  O: TJSObject;\r\n  A: TJSArray;\r\n  I,RecordIndex: Integer;\r\n  Root,FN,subn: string;\r\n\r\nbegin\r\n  Result := True;\r\n\r\n  if anUpdate.Status = usDeleted then\r\n    Exit;\r\n\r\n  D := anUpdate.ServerData;\r\n\r\n  If isNull(D) then\r\n    Exit;\r\n\r\n  if not isNumber(AnUpdate.Bookmark.Data) then\r\n    Exit(False);\r\n\r\n  RecordIndex := Integer(AnUpdate.Bookmark.Data);\r\n\r\n  If isString(D) then\r\n    O := TJSOBject(TJSJSON.Parse(String(D)))\r\n  else if isObject(D) then\r\n    O := TJSOBject(D)\r\n  else\r\n    Exit(False);\r\n\r\n  Root := Connection.DataNode; // Maybe allow this to be set in the data packet ?\r\n\r\n  while Pos('\\', root) > 0 do\r\n  begin\r\n    subn := Copy(root, 1, pos('\\', root) - 1);\r\n    root := Copy(root, pos('\\',root) + 1, Length(root));\r\n    O := TJSObject(O[subn]);\r\n  end;\r\n\r\n  if not isArray(O[Root]) then\r\n    Exit(False);\r\n\r\n  A := TJSArray(O[Root]);\r\n  if A.Length = 1 then\r\n  begin\r\n    O := TJSObject(A[0]);\r\n    for I := 0 to Fields.Count - 1 do\r\n    begin\r\n      FN := Fields[i].FieldName;\r\n      if O.hasOwnProperty(FN) then\r\n        FieldMapper.SetJSONDataForField(Fields[i],Rows[RecordIndex],O[FN]);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TCustomClientDataSet.DataPacketReceived(aRequest: TDataRequest): Boolean;\r\nvar\r\n  O,MD: TJSObject;\r\n  V: JSValue;\r\n  A: TJSArray;\r\n  lmetadata,Root,subn,s: string;\r\n  isjson: boolean;\r\n  sl,lines: TStringList;\r\n  fl,l,c,flds: integer;\r\n\r\nbegin\r\n  Result := False;\r\n  if isNull(aRequest.Data) then\r\n    Exit;\r\n\r\n  O := nil;\r\n  A := nil;\r\n\r\n  if isString(aRequest.Data) then\r\n  begin\r\n    isjson := true;\r\n    s := Trim(string(aRequest.Data));\r\n    if (Length(s) > 1) then\r\n    begin\r\n      if (s[1] <> '[') and (s[1] <> '{') then\r\n        isjson := false;\r\n    end;\r\n\r\n    if not isjson then\r\n    begin\r\n      sl := TStringList.Create;\r\n      lines := TStringList.Create;\r\n      lines.Delimiter := Connection.Delimiter;\r\n      lines.StrictDelimiter := true;\r\n      sl.Text := string(aRequest.Data);\r\n      A := TJSArray.new;\r\n      A.Length := sl.Count;\r\n      fl := 0;\r\n      if Connection.SkipFirstCSVLine then\r\n        fl := 1;\r\n\r\n      for l := fl to sl.Count - 1 do\r\n      begin\r\n        A[l] := TJSArray.new;\r\n        lines.DelimitedText := sl.Strings[l];\r\n        flds := lines.Count;\r\n\r\n        o := TJSObject.new;\r\n        for c := 0 to lines.Count - 1 do\r\n        begin\r\n          o.Properties['column'+c.ToString] := lines[c];\r\n        end;\r\n\r\n        A[l] := o;\r\n      end;\r\n\r\n      Result := (A <> nil) and (A.Length > 0);\r\n\r\n      if Assigned(A) and (A.Length > 0) and Assigned(FieldDefs) and (FieldDefs.Count = 0) then\r\n      begin\r\n        for l := 0 to flds - 1 do\r\n          FieldDefs.Add('column'+l.toString, ftString, 255);\r\n\r\n        AddToRows(A);\r\n      end;\r\n\r\n      lines.Free;\r\n      sl.Free;\r\n      Exit;\r\n    end;\r\n  end;\r\n\r\n  // Check the raw result\r\n  if isString(aRequest.Data) then\r\n  begin\r\n    V := TJSJSON.Parse(string(aRequest.Data));\r\n    if isArray(V) then\r\n    begin\r\n      A := TJSArray(V);\r\n    end\r\n    else\r\n      if isObject(V) then\r\n         O := TJSOBject(V);\r\n  end\r\n  else\r\n    if isArray(aRequest.Data) then\r\n    begin\r\n      A := TJSArray(aRequest.Data);\r\n    end\r\n    else if isObject(aRequest.Data) then\r\n    begin\r\n      O := TJSOBject(aRequest.Data);\r\n    end\r\n    else\r\n      DatabaseError('Cannot handle data packet');\r\n\r\n  // At this point, either O or A is set.\r\n  // If we have an object, examine it and extract the data\r\n  if Assigned(O) then\r\n  begin\r\n    // Some defaults\r\n    root := Connection.GetDataNode;\r\n    lmetadata := Connection.GetMetaDataNode;\r\n\r\n    while Pos('\\', root) > 0 do\r\n    begin\r\n      subn := Copy(root, 1, pos('\\', root) - 1);\r\n      root := Copy(root, pos('\\',root) + 1, Length(root));\r\n      O := TJSObject(O[subn]);\r\n    end;\r\n\r\n    if (IDField='') then\r\n      idField := 'id';\r\n\r\n    // Check metadata\r\n    if useServerMetadata and O.hasOwnProperty(lMetaData) and isObject(o[lMetaData]) then\r\n    begin\r\n      MD := TJSObject(o[lMetaData]);\r\n      if not Active then // Load fields from metadata\r\n        metaData := MD;\r\n      // We must always check this one...\r\n      if MD.hasOwnProperty('root') and isString(MD['root']) then\r\n        Root := string(metaData['root']);\r\n      if MD.hasOwnProperty('idField') and isString(MD['idField']) then\r\n        IDField := string(MD['idField']);\r\n    end;\r\n\r\n    if (Root <> '') and O.hasOwnProperty(Root) and isArray(o[Root]) then\r\n      A := TJSArray(o[Root]);\r\n  end;\r\n\r\n  if Assigned(A) and (A.Length > 0) and Assigned(FieldDefs) and (FieldDefs.Count = 0) then\r\n  begin\r\n    FieldDefsFromRows(A);\r\n  end;\r\n\r\n  // If we have an array, add to data\r\n  Result := (A <> nil) and (A.Length > 0);\r\n\r\n  if Result then\r\n    AddToRows(A);\r\nend;\r\n\r\ndestructor TCustomClientDataSet.Destroy;\r\nbegin\r\n  FreeAndNil(FParams);\r\n  inherited;\r\nend;\r\n\r\nfunction TCustomClientDataSet.DoGetDataProxy: TDataProxy;\r\nbegin\r\n  if Assigned(Connection) then\r\n    Result := Connection.DataProxy\r\n  else\r\n    Result := nil;\r\nend;\r\n\r\nprocedure TCustomClientDataSet.DoInsertResolve(AResult: boolean);\r\nbegin\r\n  if Assigned(FInsertResolver) then\r\n    FInsertResolver(AResult);\r\nend;\r\n\r\nprocedure TCustomClientDataSet.DoUpdateResolve(AResult: boolean);\r\nbegin\r\n  if Assigned(FUpdateResolver) then\r\n    FUpdateResolver(AResult);\r\nend;\r\n\r\nprocedure TCustomClientDataSet.DoOpenResolve(AResult: boolean);\r\nbegin\r\n  if Assigned(FOpenResolver) then\r\n  begin\r\n    FOpenResolver(AResult);\r\n    FOpenResolver := nil; // ensure one time call\r\n  end;\r\nend;\r\n\r\nprocedure TCustomClientDataSet.DoPostResolve(AResult: boolean);\r\nbegin\r\n  if Assigned(FPostResolver) then\r\n    FPostResolver(AResult);\r\nend;\r\n\r\nprocedure TCustomClientDataSet.DoDeleteResolve(AResult: boolean);\r\nbegin\r\n  if Assigned(FDeleteResolver) then\r\n    FDeleteResolver(AResult);\r\nend;\r\n\r\nprocedure TCustomClientDataSet.DoUpdateRecord(ADescriptor: TRecordUpdateDescriptor);\r\nbegin\r\n  if Assigned(OnUpdateRecord) then\r\n    OnUpdateRecord(Self, ADescriptor);\r\nend;\r\n\r\nprocedure TCustomClientDataSet.EmptyDataSet;\r\nbegin\r\n  First;\r\n  while not Eof do\r\n    Delete;\r\nend;\r\n\r\nprocedure TCustomClientDataSet.EndUpdate;\r\nbegin\r\n  inherited;\r\n  if FUpdateCount > 0 then\r\n    dec(FUpdateCount);\r\nend;\r\n\r\nprocedure TCustomClientDataSet.FieldDefsFromRows(aRows : TJSArray);\r\nvar\r\n  J: TJSObject;\r\n  JV: JSValue;\r\n  strArr: TStringDynArray;\r\n  i: integer;\r\n\r\nbegin\r\n  if (FieldDefs.Count = 0) and Assigned(aRows) and (aRows.Length > 0) then\r\n  begin\r\n    J := TJSObject(aRows.Elements[0]);\r\n    strArr := TJSObject.getOwnPropertyNames(J);\r\n\r\n    for i := 0 to Length(strArr) - 1 do\r\n    begin\r\n      JV := J.Properties[strArr[i]];\r\n\r\n      if isString(JV) then\r\n        FieldDefs.Add(strArr[i],ftString,255);\r\n\r\n      if isNumber(JV) then\r\n        FieldDefs.Add(strArr[i],ftFloat);\r\n\r\n      if isBoolean(JV) then\r\n        FieldDefs.Add(strArr[i],ftBoolean);\r\n\r\n      if isDate(JV) then\r\n        FieldDefs.Add(strArr[i],ftDate);\r\n\r\n      if isNull(JV) then\r\n        FieldDefs.Add(strArr[i],ftString,255);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomClientDataSet.InitFieldDefs;\r\n\r\n  procedure HandleChildField(Child: TComponent);\r\n  begin\r\n    if Child is TStringField then\r\n      FieldDefs.Add((Child as TStringField).FieldName, ftString, (Child as TStringField).Size);\r\n\r\n    if Child is TBooleanField then\r\n      FieldDefs.Add((Child as TBooleanField).FieldName, ftBoolean, 0);\r\n\r\n    if Child is TAutoIncField then\r\n      FieldDefs.Add((Child as TAutoIncField).FieldName, ftAutoInc, 0)\r\n    else\r\n      if Child is TIntegerField then\r\n        FieldDefs.Add((Child as TIntegerField).FieldName, ftInteger, 0)\r\n    else\r\n      if Child is TLargeIntField then\r\n        FieldDefs.Add((Child as TLargeIntField).FieldName, ftLargeInt, 0)\r\n    else\r\n      if Child is TFloatField then\r\n        FieldDefs.Add((Child as TFloatField).FieldName, ftFloat, 0)\r\n    else\r\n      if Child is TNumericField then\r\n        FieldDefs.Add((Child as TNumericField).FieldName, ftInteger, 0);\r\n\r\n\r\n    if Child is TDateField then\r\n      FieldDefs.Add((Child as TDateField).FieldName, ftDate, 0)\r\n    else if Child is TTimeField then\r\n      FieldDefs.Add((Child as TTimeField).FieldName, ftDate, 0)\r\n    else if Child is TDateTimeField then\r\n      FieldDefs.Add((Child as TDateTimeField).FieldName, ftDateTime, 0);\r\n\r\n    if Child is TMemoField then\r\n      FieldDefs.Add((Child as TMemoField).FieldName, ftMemo, 0)\r\n    else\r\n      if Child is TBlobField then\r\n        FieldDefs.Add((Child as TBlobField).FieldName, ftBlob, 0);\r\n  end;\r\n\r\nbegin\r\n  FieldDefs.Clear;\r\n  GetChildren(@HandleChildField, Self);\r\nend;\r\n\r\nprocedure TCustomClientDataSet.InternalInitFieldDefs;\r\nbegin\r\n  if (FieldDefs.Count = 0) and Assigned(Rows) and (Rows.Length > 0) then\r\n  begin\r\n    FieldDefsFromRows(Rows);\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TCustomClientDataSet.DoAfterDelete;\r\nbegin\r\n  inherited;\r\n  DoDeleteResolve(true);\r\nend;\r\n\r\nprocedure TCustomClientDataSet.DoAfterInsert;\r\nbegin\r\n  inherited;\r\n\r\n  DoInsertResolve(true);\r\nend;\r\n\r\nprocedure TCustomClientDataSet.DoAfterOpen;\r\nbegin\r\n  inherited;\r\n\r\n  DoOpenResolve(true);\r\n\r\n  if Assigned(Connection) and Connection.AutoOpenDataSet then\r\n  begin\r\n    Connection.DoAfterConnect;\r\n  end;\r\nend;\r\n\r\nprocedure TCustomClientDataSet.DoAfterPost;\r\nbegin\r\n  inherited;\r\n  DoPostResolve(true);\r\nend;\r\n\r\nprocedure TCustomClientDataSet.Refresh;\r\nbegin\r\n  if Assigned(Connection) then\r\n    Connection.DoConnect;\r\nend;\r\n\r\nprocedure TCustomClientDataSet.SetActive(Value: Boolean);\r\nbegin\r\n  if (csLoading in ComponentState) then\r\n    Exit;\r\n\r\n//  if (Fields.Count = 0) and (Assigned(FieldDefs) and (Fielddefs.Count = 0)) then\r\n//    Exit;\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TCustomClientDataSet.SetConnection(const Value: TClientConnection);\r\nbegin\r\n  FConnection := Value;\r\n  if Assigned(Value) then\r\n    Value.RegisterDataSet(Self);\r\nend;\r\n\r\nprocedure TCustomClientDataSet.SetIndexName(const Value: string);\r\nbegin\r\n  ActiveIndex := Value;\r\nend;\r\n\r\nprocedure TCustomClientDataSet.SetParams(const Value: TParams);\r\nbegin\r\n  FParams.Assign(Value);\r\nend;\r\n\r\nfunction TCustomClientDataSet.StringToFieldType(S: String): TFieldType;\r\nbegin\r\n  if (s = 'int') then\r\n    Result := ftInteger\r\n  else if (s = 'bigint') then\r\n    Result := ftLargeInt\r\n  else if (s = 'float') then\r\n    Result := ftFloat\r\n  else if (s = 'bool') then\r\n    Result := ftBoolean\r\n  else if (s = 'date') then\r\n    Result := ftDate\r\n  else if (s = 'datetime') then\r\n    Result := ftDateTime\r\n  else if (s = 'time') then\r\n    Result := ftTime\r\n  else if (s = 'blob') then\r\n    Result := ftBlob\r\n  else if (s = 'string') then\r\n    Result := ftString\r\n  else\r\n    Result := ftString\r\nend;\r\n\r\nprocedure TCustomClientDataSet.MetaDataToFieldDefs;\r\nvar\r\n  A: TJSArray;\r\n  F: TJSObject;\r\n  I,FS: Integer;\r\n  N: string;\r\n  ft: TFieldType;\r\n  D: JSValue;\r\n\r\nbegin\r\n  FieldDefs.Clear;\r\n\r\n  // Allow user to do it.\r\n  Connection.ProcessMetaData(Self,FieldDefs,MetaData);\r\n\r\n  if FieldDefs.Count > 0 then\r\n    Exit;\r\n\r\n  D := Metadata.Properties['fields'];\r\n\r\n  if not IsArray(D) then\r\n    raise EJSONDataset.Create('Invalid metadata object');\r\n\r\n  A := TJSArray(D);\r\n  for I := 0 to A.Length - 1 do\r\n  begin\r\n    if not isObject(A[i]) then\r\n      raise EJSONDataset.CreateFmt('Field definition %d in metadata is not an object',[i]);\r\n\r\n    F := TJSObject(A[i]);\r\n    D := F.Properties['name'];\r\n    if not isString(D) then\r\n      raise EJSONDataset.CreateFmt('Field definition %d in has no or invalid name property',[i]);\r\n\r\n    N := String(D);\r\n    D := F.Properties['type'];\r\n\r\n    if IsNull(D) or isUndefined(D) then\r\n      ft := ftstring\r\n    else\r\n      if not isString(D) then\r\n      begin\r\n        raise EJSONDataset.CreateFmt('Field definition %d in has invalid type property',[i])\r\n      end\r\n      else\r\n      begin\r\n        ft := StringToFieldType(String(D));\r\n      end;\r\n\r\n    if (ft = ftString) then\r\n      fs := GetStringFieldLength(F,N,I)\r\n    else\r\n      fs := 0;\r\n    FieldDefs.Add(N,ft,fs);\r\n  end;\r\nend;\r\n\r\nprocedure TCustomClientDataSet.GetChildren(Proc: TGetChildProc;\r\n  Root: TComponent);\r\nvar\r\n  i:integer;\r\nbegin\r\n  for i := 0 to Fields.Count - 1 do\r\n  begin\r\n    if (Fields[i].Owner = Root) or (Fields[i].DataSet = Root) or (Root = nil) then\r\n    begin\r\n      if Fields[i].Name = '' then\r\n        Fields[i].Name := Name + Fields[i].FieldName;\r\n\r\n      Proc(Fields[i]);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TCustomClientDataSet.GetIndexDefs: TJSONIndexDefs;\r\nbegin\r\n  Result := Indexes;\r\nend;\r\n\r\nfunction TCustomClientDataSet.GetIndexName: string;\r\nbegin\r\n  Result := ActiveIndex;\r\nend;\r\n\r\nfunction TCustomClientDataSet.GetStringFieldLength(F: TJSObject; AName: String; AIndex: Integer): integer;\r\nvar\r\n  I,L: Integer;\r\n  D: JSValue;\r\n\r\nbegin\r\n  Result := 0;\r\n  D := F.Properties['maxLen'];\r\n  if not jsIsNan(toNumber(D)) then\r\n  begin\r\n    Result := Trunc(toNumber(D));\r\n    if (Result <= 0) then\r\n      DatabaseErrorFmt('Invalid maximum length specifier for field %s',[AName],Self)\r\n  end\r\n  else\r\n  begin\r\n    for I := 0 to Rows.Length - 1 do\r\n    begin\r\n      D := FieldMapper.GetJSONDataForField(Aname,AIndex,Rows[i]);\r\n      if isString(D) then\r\n      begin\r\n        l := Length(String(D));\r\n        if L > Result then\r\n          Result := L;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  if (Result = 0) then\r\n    Result := 20;\r\nend;\r\n\r\n\r\n{ TClientConnection }\r\n\r\nprocedure TClientConnection.SetActive(const Value: boolean);\r\nbegin\r\n  if (FActive <> Value) then\r\n  begin\r\n    FActive := Value;\r\n\r\n    if FUpdateCount > 0 then\r\n      Exit;\r\n\r\n    if (csLoading in ComponentState) then\r\n      Exit;\r\n\r\n    if Value then\r\n    begin\r\n      if (FURI <> '') then\r\n        DoConnect;\r\n    end\r\n    else\r\n      DoDisconnect;\r\n  end;\r\nend;\r\n\r\nprocedure TClientConnection.SetDataNode(const Value: string);\r\nbegin\r\n  if (FDataNode <> Value) and (FUpdateCount = 0) then\r\n    Active := false;\r\n\r\n  FDataNode := Value;\r\nend;\r\n\r\nprocedure TClientConnection.DoConnect;\r\nbegin\r\n  if Assigned(FDS) then\r\n  begin\r\n    DoBeforeConnect;\r\n    if FAutoOpen then\r\n    begin\r\n      FDS.Active := false;\r\n      FDS.AfterLoad := DoAfterLoad;\r\n      FDS.Load([], nil);\r\n    end\r\n    else\r\n    begin\r\n      DoRequest;\r\n    end;\r\n  end\r\n  else\r\n    DoRequest;\r\nend;\r\n\r\nprocedure TClientConnection.DoOpenResolve(AResult: boolean);\r\nbegin\r\n  if Assigned(FOpenResolver) then\r\n    FOpenResolver(AResult);\r\nend;\r\n\r\nprocedure TClientConnection.DoAfterLoad(Dataset: TDataSet);\r\nbegin\r\n  DoOpenResolve(True);\r\nend;\r\n\r\nprocedure TClientConnection.DoRequest;\r\nvar\r\n  cmd: string;\r\nbegin\r\n  FXHR := TJSXMLHttpRequest.New;\r\n  FXHR.AddEventListener('load', @onLoad);\r\n  FXHR.AddEventListener('abort', @onAbort);\r\n  FXHR.AddEventListener('error', @onError);\r\n\r\n  cmd := HTTPCommand(FCommand, FCustomCommand);\r\n\r\n  FXHR.open(cmd,URI);\r\n  SetupRequest(FXHR);\r\n  FXHR.setRequestHeader('content-type','application/json');\r\n\r\n  if PostData <> '' then\r\n    FXHR.send(PostData)\r\n  else\r\n    FXHR.send();\r\nend;\r\n\r\nprocedure TClientConnection.DoDataReceived(ARequest: TJSXMLHttpRequest;\r\n  var AResponse: string);\r\nvar\r\n  LRequestRec: TJSXMLHttpRequestRecord;\r\nbegin\r\n  if Assigned(OnDataReceived) then\r\n  begin\r\n    LRequestRec.req := ARequest;\r\n    OnDataReceived(Self, LRequestRec, AResponse);\r\n  end;\r\nend;\r\n\r\nprocedure TClientConnection.DoDisconnect;\r\nbegin\r\n  if Assigned(FDS) then\r\n  begin\r\n     if FAutoOpen then\r\n       FDS.Active := false;\r\n  end;\r\nend;\r\n\r\nprocedure TClientConnection.SetHeaders(const Value: TStringList);\r\nbegin\r\n  FHeaders.Assign(Value);\r\nend;\r\n\r\nprocedure TClientConnection.RegisterDataSet(const Value: TCustomClientDataSet);\r\nbegin\r\n  FDS := Value;\r\nend;\r\n\r\nprocedure TClientConnection.AfterLoadDFMValues;\r\nbegin\r\n  inherited;\r\n\r\n  if FActive and (URI <> '') then\r\n    DoConnect;\r\nend;\r\n\r\nprocedure TClientConnection.BeginUpdate;\r\nbegin\r\n  inherited;\r\n  inc(FUpdateCount);\r\nend;\r\n\r\nprocedure TClientConnection.Close;\r\nbegin\r\n  SetActive(False);\r\nend;\r\n\r\nconstructor TClientConnection.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FActive := false;\r\n  FDS := nil;\r\n  FAutoOpen := true;\r\n  FCommand := httpGET;\r\n  FHeaders := TStringList.Create;\r\n  FDelimiter := ';';\r\n  FSkipFirstCSVLine := false;\r\n  AppendKeyToURL := True;\r\nend;\r\n\r\ndestructor TClientConnection.Destroy;\r\nbegin\r\n  FHeaders.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TClientConnection.DoAfterConnect;\r\nbegin\r\n  if Assigned(AfterConnect) then\r\n    AfterConnect(Self);\r\nend;\r\n\r\nprocedure TClientConnection.DoBeforeConnect;\r\nbegin\r\n  if Assigned(BeforeConnect) then\r\n    BeforeConnect(Self);\r\nend;\r\n\r\nprocedure TClientConnection.DoError(ErrorCode: integer);\r\nbegin\r\n  if Assigned(OnConnectError) then\r\n    OnConnectError(Self, ErrorCode);\r\n\r\n  DoOpenResolve(False);\r\n\r\n  raise Exception.Create('Error connecting to URI ' + FURI);\r\nend;\r\n\r\nprocedure TClientConnection.EndUpdate;\r\nbegin\r\n  inherited;\r\n  if (FUpdateCount > 0) then\r\n    dec(FUpdateCount);\r\nend;\r\n\r\n{ TWebClientUpdateRequest }\r\n\r\nfunction TWebClientUpdateRequest.onAbort(Event: TEventListenerEvent): boolean;\r\nbegin\r\n  if Assigned(Connection) then\r\n    Connection.DoError(FXHR.Status);\r\n\r\n  ResolveFailed(FXHR.StatusText);\r\n  Result := False;\r\nend;\r\n\r\nfunction TWebClientUpdateRequest.onError(Event: TEventListenerEvent): boolean;\r\nbegin\r\n  if Assigned(Connection) then\r\n    Connection.DoError(FXHR.Status);\r\n  ResolveFailed(FXHR.StatusText);\r\n  Result := False;\r\nend;\r\n\r\nfunction TWebClientUpdateRequest.onLoad(Event: TEventListenerEvent): boolean;\r\nbegin\r\n  if (FXHR.Status div 100) = 2 then\r\n  begin\r\n    Resolve(TransFormResult);\r\n    Result := True;\r\n  end\r\n  else\r\n    ResolveFailed(FXHR.StatusText);\r\n\r\n  (Proxy as TWebClientDataProxy).CheckBatchComplete(FBatch);\r\nend;\r\n\r\nfunction TWebClientUpdateRequest.TransformResult: JSValue;\r\nbegin\r\n  Result := FXHR.response;\r\n  if Assigned(Connection) and Assigned(Connection.OnGetDataPayload) then\r\n    FConnection.OnGetDataPayload(FConnection,Dataset,TClientConnection.StatusToURLtype(Self.Status),Result);\r\nend;\r\n\r\n{ TWebClientDataRequest }\r\n\r\nfunction TWebClientDataRequest.TransformResult: JSValue;\r\nvar\r\n  s: string;\r\nbegin\r\n  Result := FXHR.response;\r\n\r\n  if Assigned(Connection) and Assigned(Connection.OnDataReceived) then\r\n  begin\r\n    asm\r\n      s = this.FXHR.responseText;\r\n    end;\r\n    FConnection.DoDataReceived(FXHR, s);\r\n  end;\r\n\r\n  if Assigned(Connection) and Assigned(Connection.OnGetDataPayload) then\r\n  begin\r\n    FConnection.OnGetDataPayload(FConnection,Dataset, utGet, Result);\r\n  end;\r\nend;\r\n\r\nfunction TWebClientDataRequest.onAbort(Event: TEventListenerEvent): boolean;\r\nbegin\r\n  Success := rrFail;\r\n\r\n  if Assigned(Connection) then\r\n    Connection.DoError(FXHR.Status);\r\n\r\n  DoAfterRequest;\r\n  Result := True;\r\nend;\r\n\r\nfunction TWebClientDataRequest.onError(Event: TEventListenerEvent): boolean;\r\nbegin\r\n  Success := rrFail;\r\n\r\n  if Assigned(Connection) then\r\n    Connection.DoError(FXHR.Status);\r\n\r\n  DoAfterRequest;\r\n  Result := True;\r\nend;\r\n\r\nfunction TWebClientDataRequest.onLoad(Event: TEventListenerEvent): boolean;\r\nbegin\r\n  if (FXHR.Status = 200) then\r\n  begin\r\n    Data := TransformResult;\r\n    Success := rrOK;\r\n  end\r\n  else\r\n  begin\r\n    Data := nil;\r\n    if (loAtEOF in LoadOptions) and (FXHR.Status = 404) then\r\n      Success := rrEOF\r\n    else\r\n    begin\r\n      Success := rrFail;\r\n      ErrorMsg := FXHR.StatusText;\r\n    end;\r\n\r\n    if Assigned(Connection) then\r\n      Connection.DoError(FXHR.Status);\r\n  end;\r\n\r\n  DoAfterRequest;\r\n  Result := True;\r\nend;\r\n\r\n{ TRESTConnection }\r\n\r\nfunction TClientConnection.GetDataNode: String;\r\nbegin\r\n  Result := fDataNode;\r\n  if Result = '' then\r\n    Result := 'data';\r\nend;\r\n\r\nfunction TClientConnection.GetDataProxy: TDataProxy;\r\nbegin\r\n  if (FDataProxy=Nil) then\r\n    FDataProxy := DoGetDataProxy;\r\n  Result := FDataProxy;\r\nend;\r\n\r\n\r\nfunction TClientConnection.GetMetaDataNode: String;\r\nbegin\r\n  Result := fMetaDataNode;\r\n  if Result = '' then\r\n    Result := 'metaData';\r\nend;\r\n\r\nprocedure TClientConnection.SetupRequest(aXHR: TJSXMLHttpRequest);\r\nvar\r\n  I : Integer;\r\n  headname, headvalue : string;\r\n\r\nbegin\r\n  // always set this, security measure, enforcing use of CORS\r\n  if User <> '' then\r\n    aXHR.setRequestHeader('X-Requested-With', 'XMLHttpRequest');\r\n\r\n  for i := 0 to FHeaders.Count - 1 do\r\n  begin\r\n    FHeaders.GetNameValue(i, headname, headvalue);\r\n    aXHR.setRequestHeader(headname, headvalue);\r\n  end;\r\n\r\n  // We set the Authorization header here, not in XHR.open.\r\n  // This way we can switch to other forms of authentication (OAuth2).\r\n  if (User<>'') then\r\n    aXHR.setRequestHeader('Authorization', 'Basic '+window.btoa(User+':'+Password));\r\nend;\r\n\r\nprocedure TClientConnection.SetURI(const Value: string);\r\nbegin\r\n  if (FURI <> Value) and (FUpdateCount = 0) then\r\n    Active := false;\r\n\r\n  FURI := Value;\r\nend;\r\n\r\nclass function TClientConnection.StatusToURLType(aStatus : TUpdateStatus): TURLType;\r\nbegin\r\n  case aStatus of\r\n    usModified : Result := utPut;\r\n    usDeleted : Result := utDelete;\r\n    usInserted : Result := utPost;\r\n  else\r\n    Result := utGet;\r\n  end;\r\nend;\r\n\r\nfunction TClientConnection.GetReadBaseURL(aRequest: TDataRequest): String;\r\nbegin\r\n  Result := URI;\r\n  if Assigned(FOnGetURL) then\r\n    FOnGetURL(Self, aRequest.Dataset,utGet,Result);\r\nend;\r\n\r\nfunction TClientConnection.GetPageURL(aRequest: TDataRequest): String;\r\nvar\r\n  URL : String;\r\n\r\nbegin\r\n  URL := GetReadBaseURL(aRequest);\r\n  if (PageParam <> '') then\r\n  begin\r\n    if Pos('?',URL)<>0 then\r\n      URL := URL + '&'\r\n    else\r\n      URL := URL + '?';\r\n    URL := URL + PageParam + '=' + IntToStr(ARequest.RequestID-1);\r\n  end;\r\n  Result := URL;\r\nend;\r\n\r\nfunction TClientConnection.GetUpdateBaseURL(aRequest: TRecordUpdateDescriptor): String;\r\nbegin\r\n  Result := URI;\r\n  if Assigned(FOnGetURL) then\r\n    FOnGetURL(Self,aRequest.Dataset,StatusToURLType(aRequest.Status),Result);\r\nend;\r\n\r\nfunction TClientConnection.GetUpdatePayLoad(aURLType: TURLType; aDataset: TDataset; AData: JSValue): String;\r\nbegin\r\n  if Assigned(FOnGetUpdatePayLoad) then\r\n    FOnGetUpdatePayLoad(Self,aDataset,aUrlType,aData,Result)\r\n  else\r\n  begin\r\n    if aURLType in [utPost,utPut] then\r\n      Result := TJSJSON.Stringify(aData)\r\n    else\r\n      Result := '';\r\n  end;\r\nend;\r\n\r\nfunction TClientConnection.onAbort(Event: TEventListenerEvent): boolean;\r\nbegin\r\n  if Assigned(OnConnectError) then\r\n  begin\r\n    OnConnectError(Self, FXHR.Status);\r\n  end;\r\n  Result := true;\r\nend;\r\n\r\nfunction TClientConnection.onError(Event: TEventListenerEvent): boolean;\r\nbegin\r\n  if Assigned(OnConnectError) then\r\n  begin\r\n    OnConnectError(Self, FXHR.Status);\r\n  end;\r\n  Result := true;\r\nend;\r\n\r\nfunction TClientConnection.onLoad(Event: TEventListenerEvent): boolean;\r\nvar\r\n  rec: TJSXMLHttpRequestRecord;\r\n  s: string;\r\nbegin\r\n  if Assigned(OnDataReceived) then\r\n  begin\r\n    rec.req := FXHR;\r\n    s := FXHR.responseText;\r\n    OnDataReceived(Self, rec, s);\r\n  end;\r\n  Result := true;\r\nend;\r\n\r\nfunction TClientConnection.Open: TJSPromise;\r\nbegin\r\n  Result := TJSPromise.new(\r\n    procedure(ASuccess, AFailed: TJSPromiseResolver)\r\n    begin\r\n      FOpenResolver := ASuccess;\r\n\r\n      if (FUpdateCount > 0) or (csLoading in ComponentState) then\r\n        ASuccess(false)\r\n      else\r\n        SetActive(true);\r\n    end\r\n    )\r\nend;\r\n\r\nprocedure TClientConnection.ProcessMetadata(Dataset: TDataset; FieldDefs: TFieldDefs; aMetaData: TJSObject);\r\nbegin\r\n  if Assigned(OnProcessMetaData) then\r\n    OnProcessMetaData(Self,Dataset,FieldDefs,aMetaData);\r\nend;\r\n\r\nfunction TClientConnection.GetRecordUpdateURL(aRequest: TRecordUpdateDescriptor): String;\r\nvar\r\n  I: integer;\r\n  Base,KeyField,KeyValue,Qry: string;\r\n\r\nbegin\r\n  KeyField := '';\r\n  Result := '';\r\n  Base := GetUpdateBaseURL(aRequest);\r\n\r\n  if not (AppendKeyToURL and (aRequest.Status in [usModified,usDeleted])) then\r\n    Exit(Base);\r\n\r\n  I := Pos('?',Base);\r\n  if I > 0 then\r\n  begin\r\n    Qry := Copy(Base,I,Length(Base)-I+1);\r\n    Base := Copy(Base,1,I-1);\r\n  end;\r\n\r\n  // For update & delete we need to append the key field value.\r\n  // Key field is IDField. If that is empty, we look for a field with providerFlags that contains pfKey\r\n  KeyField := (aRequest.Dataset as TClientDataset).IDField;\r\n  I := aRequest.Dataset.Fields.Count - 1;\r\n\r\n  while (KeyField = '') and (I >= 0) do\r\n  begin\r\n    if pfInKey in aRequest.Dataset.Fields[i].ProviderFlags then\r\n      KeyField:=aRequest.Dataset.Fields[i].FieldName;\r\n    Dec(I);\r\n  end;\r\n\r\n  if (KeyField = '') then\r\n    DatabaseError('No key field',aRequest.Dataset);\r\n\r\n  KeyValue := TJSJSON.stringify(TJSObject(aRequest.Data)[KeyField]);\r\n  if (Base<>'') and (Base[Length(Base)]<>'/') then\r\n    Base := Base + '/';\r\n\r\n  Result := Base + KeyValue + Qry;\r\nend;\r\n\r\nfunction TClientConnection.DoGetDataProxy: TDataProxy;\r\nbegin\r\n  Result := TWebClientDataProxy.Create(Self);\r\nend;\r\n\r\n{ TRESTDataProxy }\r\n\r\nprocedure TWebClientDataProxy.CheckBatchComplete(aBatch: TRecordUpdateBatch);\r\nvar\r\n  BatchOK : Boolean;\r\n  I : Integer;\r\n\r\nbegin\r\n  BatchOK := True;\r\n  I := aBatch.List.Count - 1;\r\n  while BatchOK and (I >= 0) do\r\n  begin\r\n    BatchOK := aBatch.List[I].ResolveStatus in [rsResolved, rsResolveFailed];\r\n    Dec(I);\r\n  end;\r\n\r\n  if BatchOK and Assigned(aBatch.OnResolve) then\r\n  begin\r\n    aBatch.OnResolve(Self, aBatch);\r\n  end;\r\nend;\r\n\r\nfunction TWebClientDataProxy.GetUpdateDescriptorClass: TRecordUpdateDescriptorClass;\r\nbegin\r\n  Result := TWebClientUpdateRequest;\r\nend;\r\n\r\nfunction TWebClientDataProxy.ProcessUpdateBatch(aBatch: TRecordUpdateBatch): Boolean;\r\n\r\nVar\r\n  R : TWebClientUpdateRequest;\r\n  i : Integer;\r\n  Method,URl : String;\r\n  S : String;\r\n\r\nbegin\r\n  Result := false;\r\n  for I := 0 to aBatch.List.Count - 1 do\r\n  begin\r\n    R := aBatch.List[i] as TWebClientUpdateRequest;\r\n    R.FConnection := Self.FConnection;\r\n    R.FBatch := aBatch;\r\n    R.FXHR := TJSXMLHttpRequest.New;\r\n    R.FXHR.AddEventListener('load',@R.onLoad);\r\n    R.FXHR.AddEventListener('abort',@R.onAbort);\r\n    R.FXHR.AddEventListener('error',@R.onError);\r\n    URL := FConnection.GetRecordUpdateURL(R);\r\n\r\n    case R.Status of\r\n    usInserted: Method := 'POST';\r\n    usModified: Method := 'PUT';\r\n    usDeleted: Method := 'DELETE';\r\n    end;\r\n    R.FXHR.open(Method,URL);\r\n    Connection.SetupRequest(R.FXHR);\r\n    R.FXHR.setRequestHeader('content-type','application/json');\r\n    S := Connection.GetUpdatePayload(TClientConnection.StatusToURLType(R.Status),R.Dataset,R.Data);\r\n\r\n    if R.Status in [usInserted,usModified] then\r\n      R.FXHR.Send(S)\r\n    else\r\n      R.FXHR.Send(S);\r\n    end;\r\n  Result:=True;\r\nend;\r\n\r\nfunction TWebClientDataProxy.DoGetData(aRequest: TDataRequest): Boolean;\r\nvar\r\n  R: TWebClientDataRequest;\r\n  URL,cmd: String;\r\n\r\nbegin\r\n  Result := False;\r\n  R := aRequest as TWebClientDataRequest;\r\n  R.FXHR := TJSXMLHttpRequest.New;\r\n  URL := Connection.GetPageURL(aRequest);\r\n\r\n  if (URL = '') then\r\n  begin\r\n    if loAtEOF in R.LoadOptions then\r\n      R.Success := rrEOF\r\n    else\r\n    begin\r\n      R.Success := rrFail;\r\n      R.ErrorMsg := 'No URL to get data';\r\n      R.DoAfterRequest; // This will free request !\r\n      end;\r\n    end\r\n  else\r\n    begin\r\n      if (loAtEOF in R.LoadOptions) and (Connection.PageParam='') then\r\n        R.Success := rrEOF\r\n    else\r\n    begin\r\n      // We're setting the credentials header ourselves.\r\n      // Firefox does not like it when you set it in open() and manually add the header.\r\n      // In general, the API should be switched to fetch()\r\n\r\n      cmd := HTTPCommand(Connection.Command, Connection.CustomCommand);\r\n\r\n      R.FXHR.open(cmd, URL, true);\r\n      Connection.SetupRequest(R.FXHR);\r\n\r\n//      window.onError:=function(e : TJSErrorEvent) : boolean begin console.log(e) end;\r\n      R.FXHR.AddEventListener('load',@R.onLoad);\r\n      R.FXHR.AddEventListener('abort',@R.onAbort);\r\n      R.FXHR.AddEventListener('error',@R.onError);\r\n      // https://developer.mozilla.org/en-US/docs/Web/HTTP/CORS/Errors/CORSNotSupportingCredentials\r\n//      R.FXHR.withCredentials:=true;\r\n\r\n      if Connection.PostData <> '' then\r\n        R.FXHR.send(Connection.PostData)\r\n      else\r\n        R.FXHR.send;\r\n    end;\r\n    Result := True;\r\n  end;\r\nend;\r\n\r\nfunction TWebClientDataProxy.GetDataRequest(aOptions: TLoadOptions; aAfterRequest: TDataRequestEvent; aAfterLoad: TDatasetLoadEvent): TDataRequest;\r\nbegin\r\n  Result := TWebClientDataRequest.Create(Self,aOptions, aAfterRequest,aAfterLoad);\r\n  TWebClientDataRequest(Result).FConnection:=Self.FConnection;\r\nend;\r\n\r\nconstructor TWebClientDataProxy.Create(AOwner: TComponent);\r\nbegin\r\n  Inherited;\r\n\r\n  If AOwner is TClientConnection then\r\n    FConnection := TClientConnection(aOwner);\r\nend;\r\n\r\n\r\nend.","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2016 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCUtils;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$HPPEMIT ''}\r\n{$HPPEMIT '#pragma comment(lib, \"wininet\")'}\r\n{$IFDEF WIN32}\r\n{$HPPEMIT '#pragma comment(lib, \"urlmon\")'}\r\n{$ENDIF}\r\n{$HPPEMIT ''}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\n{$IFDEF FNCLIB}\r\n{$DEFINE JSONSUPPORT}\r\n{$ELSE}\r\n{$IFDEF WEBLIB}\r\n{$DEFINE JSONSUPPORT}\r\n{$ELSE}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 27}\r\n{$DEFINE JSONSUPPORT}\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\n{$IFDEF VCLLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION >= 23}\r\n{$DEFINE VCLSTYLESENABLED}\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  {$IFDEF MSWINDOWS}\r\n  Windows,\r\n  {$ENDIF}\r\n  Classes, SysUtils, Types, WEBLib.Graphics, WEBLib.TMSFNCTypes, WEBLib.Controls, WEBLib.Forms\r\n  {$IFNDEF LCLWEBLIB}\r\n  {$IFDEF FNCLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION >= 30}\r\n  ,FMX.ImgList\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Types, WEBLib.Dialogs\r\n  {$IFDEF LINUX}\r\n  {$IF COMPILERVERSION > 35}\r\n  ,Curl\r\n  {$ELSE}\r\n  ,Linuxapi.Curl\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  ,Posix.SysTypes\r\n  {$ENDIF}\r\n  {$IFDEF ANDROID}\r\n  ,AndroidApi.JNI.App\r\n  {$ENDIF}\r\n  {$IFDEF MACOS}\r\n  ,MacApi.ObjectiveC, MacApi.ObjcRuntime\r\n  {$IFDEF IOS}\r\n  ,iOSApi.Foundation\r\n  {$ELSE}\r\n  ,MacApi.Foundation\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFNDEF LCLLIB}\r\n  {$IFNDEF WEBLIB}\r\n  ,Rtti, Generics.Collections\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  ,UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  ,JPEG, PngImage, GifImg\r\n  {$IFDEF VCLSTYLESENABLED}\r\n  ,VCL.Themes\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF CMNLIB}\r\n  ,Dialogs\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,JS, WEBLib.Dialogs, WEBLib.JSON, web\r\n  {$ENDIF}\r\n  {$IFDEF JSONSUPPORT}\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 26}\r\n  ,JSON\r\n  {$ELSE}\r\n  ,DBXJSON\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  ,fpjson, jsparser\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  ;\r\n\r\nconst\r\n  PthDel = {$IFDEF MSWINDOWS} '\\'; {$ELSE} '/'; {$ENDIF}\r\n{$IFNDEF LCLLIB}\r\n  FPC_FULLVERSION = 0;\r\n{$ENDIF}\r\n\r\ntype\r\n  TTMSFNCUtilsCharSet = array of char;\r\n\r\n  {$IFDEF FNCLIB}\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCUtilsFile = record\r\n    Data: TJSUint8Array;\r\n    Name: string;\r\n  end;\r\n  TTMSFNCUtilsLoadFile = TJSBlob;\r\n  {$ELSE}\r\n  TTMSFNCUtilsFile = string;\r\n  TTMSFNCUtilsLoadFile = string;\r\n  {$ENDIF}\r\n\r\n  TTMSFNCUtilsLoadFileCompleteEvent = {$IFNDEF LCLWEBLIB}reference to {$ENDIF}procedure(const AFile: TTMSFNCUtilsFile){$IFDEF LCLWEBLIB} of object{$ENDIF};\r\n  {$ENDIF}\r\n\r\n  {$IFNDEF FNCLIB}\r\n  TTMSFNCUtilsFile = string;\r\n  {$ENDIF}\r\n\r\n  TTMSFNCUtilsFileCallBackEvent = {$IFNDEF LCLWEBLIB}reference to {$ENDIF}procedure(const AFile: string; const AResult: Boolean){$IFDEF LCLWEBLIB} of object{$ENDIF};\r\n\r\n  TTMSFNCUtils = class\r\n  private\r\n    {$IFDEF FMXLIB}\r\n    {$IFDEF LINUX}\r\n    class var FDownloadStream: TMemoryStream;\r\n    class function CurlReadData(buffer: Pointer; size: size_t; nitems: size_t; instream: Pointer): size_t; cdecl; static;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    {$IFDEF FNCLIB}\r\n    class procedure GetTimeZoneInfo(ADateTime: TDateTime; var ABias: Integer; var ABiasDay: Integer; var AIsDaylight: Boolean);\r\n    {$ENDIF}\r\n  public\r\n    {$HINTS OFF}\r\n    {$WARNINGS OFF}\r\n    {$IFDEF LCLLIB}\r\n    {$IF FPC_FULLVERSION = 30200}\r\n    generic class function IfElse<T>(ACondition: Boolean; AResultTRUE, AResultFALSE: T): T;\r\n    {$IFEND}\r\n    {$ENDIF}\r\n    {$HINTS ON}\r\n    {$WARNINGS ON}\r\n\r\n    {$IFNDEF LCLLIB}\r\n    class function IfElse<T>(ACondition: Boolean; AResultTRUE, AResultFALSE: T): T;\r\n    {$ENDIF}\r\n    class procedure OpenURL(AURL: string);\r\n    class procedure OpenFile(AFile: string; {%H-}AControlReference: TControl = nil);\r\n    class procedure GetFonts(FontList: TStringList);\r\n    class procedure SetFontSize(AFont: TFont; ASize: Single; AScaleFactor: Single = 1);\r\n    class procedure ScaleForCurrentDPI(AForm: TCustomForm);\r\n    class procedure ScaleForDPI(AControl: TControl; ADPI: Integer);\r\n    class function GetHInstance: NativeUInt;\r\n    class function IsHTMLUnicode(AValue: UnicodeString): Boolean;\r\n    class function IsHTML(AValue: string): Boolean;\r\n    class function GetDocumentsPath: string;\r\n    class function GetAppPath: string;\r\n    class function GetTempPath: string;\r\n    class function GetMousePos: TPointF;\r\n    class function IsHighDPIScale({%H-}AOwner: TComponent = nil; ADefaultDPI: Integer = -1): Boolean;\r\n    class function GetDPIScale({%H-}AOwner: TComponent = nil; ADefaultDPI: Integer = -1): Single;\r\n    class function AddBackslash(const AValue: string): string;\r\n    class function AddForwardslash(const AValue: string): string;\r\n    class function GetResourceStream(AResourceName: string): TResourceStream; overload;\r\n    class function GetResourceStream(AResourceName: string; AInstance: NativeUInt): TResourceStream; overload;\r\n    class function Clone(AComponent: TComponent): TComponent;\r\n    class function HTMLStrip(AHTML: string): string;\r\n    class function VarPos(ASubValue, AValue: string; var AResult: Integer): Integer;\r\n    class function VarPosNoCase(ASubValue, AValue: string; var AResult: Integer): Integer;\r\n    class function CharInStr(s: string; Index: Integer): Char;\r\n    class function HexStrToBytes(const AValue: string): TBytes;\r\n    class function URLDecode(const AURL: string; const ATrim: Boolean = True): string;\r\n    class function URLEncode(const AURL: string): string;\r\n    class function EnDeCrypt(const AValue: String): String;\r\n    class function SaveBitmapToHexStr(const ABitmap: TTMSFNCBitmapHelperClass): string;\r\n    class function SaveStreamToHexStr(const AStream: TStream): string;\r\n    class function SaveBitmapToBase64(const ABitmap: TTMSFNCBitmapHelperClass; const AURL: Boolean = False): string;\r\n    class function SaveStreamToBase64(const AStream: TStream; const AURL: Boolean = False): string;\r\n    class function CreateBitmapFromHexStr(const AHexStr: string): TTMSFNCBitmap;\r\n    class function CreateBitmapFromBase64(const ABase64: string; const AURL: Boolean = False): TTMSFNCBitmap;\r\n    class function MulDivInt(nNumber, nNumerator, nDenominator: Integer): Integer; overload;\r\n    class function MulDivSingle(nNumber, nNumerator, nDenominator: Single): Single; overload;\r\n    class function FormatBytesAsString(ASize: Extended): String;\r\n    class function GetImageType(AData: TStream; AResetPosition: Boolean = True): string; overload;\r\n    {$IFNDEF WEBLIB}\r\n    class function GetImageType(ABitmap: TTMSFNCBitmap; AResetPosition: Boolean = True): string; overload;\r\n    {$IFDEF FNCLIB}\r\n    {$IFNDEF LCLLIB}\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION >= 30}\r\n    class procedure LoadBitmapFromImageList(ABitmap: TTMSFNCBitmap; AImageList: TCustomImageList; AIndex: Integer);\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    class procedure LoadBitmapFromHexStr(const AHexStr: string; const ABitmap: TTMSFNCBitmapHelperClass);\r\n    class procedure LoadStreamFromHexStr(const AHexStr: string; const AStream: TStream);\r\n    class procedure LoadBitmapFromBase64(const ABase64: string; const ABitmap: TTMSFNCBitmapHelperClass; const AURL: Boolean = False);\r\n    class procedure LoadStreamFromBase64(const ABase64: string; const AStream: TStream; const AURL: Boolean = False);\r\n    {$IFDEF CMNLIB}\r\n    class function ConvertBitmapToJPEGStream(ABitmap: TTMSFNCBitmapHelperClass; AQuality: Single = 1.0; ABackgroundColor: TColor = clWhite): TMemoryStream;\r\n    class function FindGraphicClass(const Buffer; const {%H-}BufferSize: Int64; out GraphicClass: TGraphicClass): Boolean;\r\n    {$ENDIF}\r\n    {$IFDEF FMXLIB}\r\n    class function ConvertBitmapToJPEGStream(ABitmap: TTMSFNCBitmapHelperClass; AQuality: Single = 1.0; ABackgroundColor: TAlphaColor = TAlphaColorRec.White): TMemoryStream;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    class function ConvertBitmapToJPEGStream(ABitmap: TTMSFNCBitmapHelperClass; AQuality: Single = 1.0; ABackgroundColor: TColor = clWhite): TMemoryStream;\r\n    {$ENDIF}\r\n    class procedure Split(const ADelimiter: Char; AInput: string; const AStrings: TStrings; const AClearEmptyStrings: Boolean = False);\r\n    class procedure Log(const AMessage: string); overload;\r\n    class function EpochToDateTime(const AEpoch: string): TDateTime;\r\n    {$IFDEF FNCLIB}\r\n    {$IFNDEF LCLLIB}\r\n    class procedure SplitURL(AURL: string; var AHost: string; var APath: string; var AQuery: string; var APort: Integer);\r\n    {$ENDIF}\r\n    class procedure PlayAudio(AAudioBase64: string);\r\n    class function DateTimeToISO(const ADateTime: TDateTime; AAddDelimiters: Boolean = False; AAddMilliSeconds: Boolean = False): string;\r\n    class function DateToISO(const ADate: TDate; AAddDelimiters: Boolean = False): string;\r\n    class function ISOToDateTime(const AISOString: string; AIsUTC: Boolean = False): TDateTime;\r\n    class function ISOToDate(const AISOString: string): TDate;\r\n    class function DateTimeToUTC(const ADateTime: TDateTime): string;\r\n    class function DateTimeToMilliSeconds(const ADateTime: TDateTime): Int64;\r\n    class function GetMimeType(AFile: string): string; overload;\r\n    class function GetMimeType(AData: TStream; AResetPosition: Boolean = True): string; overload;\r\n    class function GetFileExtension(AMime: string): string;\r\n    class function FileToBase64(const AFile: TTMSFNCUtilsFile): string;\r\n    class procedure LoadFile(const AFile: TTMSFNCUtilsLoadFile; const ALoadFileComplete: TTMSFNCUtilsLoadFileCompleteEvent);\r\n    class function Decode64(const AValue: string; const AURL: Boolean = False): string; overload;\r\n    class function Encode64(const AValue: string; const AURL: Boolean = False): string; overload;\r\n    class function Encode64(const AValue: TBytes; const AURL: Boolean = False): string; overload;    \r\n    {$ENDIF}\r\n    {$IFDEF JSONSUPPORT}\r\n    class procedure Log(const AObject: TObject); overload;\r\n    class function GetJSONProp(AJSONValue: TJSONValue; APropertyName: string): string;\r\n    class function GetJSONValueAsBoolean(AJSONValue: TJSONValue): Boolean;\r\n    class function GetJSONValueAsString(AJSONValue: TJSONValue): string;\r\n    class function GetJSONValue(AJSONValue: TJSONValue; APropertyName: string): TJSONValue;\r\n    class function FindJSONValue(AJSONValue: TJSONValue; APath: string): TJSONValue;\r\n    class function GetJSONDoubleValue(AJSONValue: TJSONValue; APropertyName: string): Double;\r\n    class function GetJSONValueAsDouble(AJSONValue: TJSONValue): Double;\r\n    class function GetJSONIntegerValue(AJSONValue: TJSONValue; APropertyName: string): Integer;\r\n    class function GetJSONValueAsInteger(AJSONValue: TJSONValue): Integer;\r\n    class function IsJSONTrue(AJSONValue: TJSONValue): Boolean;\r\n    class function IsJSONFalse(AJSONValue: TJSONValue): Boolean;\r\n    class function GetJSONArraySize(AJSONArray: TJSONArray): Integer;\r\n    class function GetJSONArrayItem(AJSONArray: TJSONArray; AIndex: Integer): TJSONValue;\r\n    class function GetJSONObjectSize(AJSONObject: TJSONObject): Integer;\r\n    class function GetJSONObjectItem(AJSONObject: TJSONObject; AIndex: Integer): TJSONValue;\r\n    class function GetJSONObjectName(AJSONObject: TJSONObject; AIndex: Integer): string;\r\n    class function ParseJSON(AJSON: string): TJSONValue;\r\n    class function IsJSON(AJSON: string): Boolean;\r\n    {$ENDIF}\r\n    class function StrToFloatDot(AValue: string): Double;\r\n    class function FloatToStrDot(AValue: Double): string;\r\n    class function TryStrToFloatDot(AValue: string; var AResult: Double): Boolean;\r\n    class function Decode64ToBytes(const AValue: string; const AURL: Boolean = False): TBytes; overload;\r\n    class function MatchStrEx(AValue1, AValue2: string; ACaseSensitive: Boolean): Boolean; overload;\r\n    class function MatchStrEx(AValue: string; AArray: array of string; ACaseSensitive: Boolean; AExpression: Boolean = True): Boolean; overload;\r\n    class function MatchStr(AValue1, AValue2:string; ACaseSensitive: Boolean): Boolean;\r\n    class function GetStrIdx(AValue: string; AArray: array of string; ACaseSensitive: Boolean; AExpression: Boolean = True): Integer;\r\n    class function StripLogicSpaces(AValue: string): string;\r\n    class function FirstChar(ACharset: TTMSFNCUtilsCharSet; AValue: string; var spos: Integer): char;\r\n    class function CharInSet(ch: Char; ACharSet: TTMSFNCUtilsCharSet): boolean; overload;\r\n    class function AddCharSet(ACharSet1, ACharSet2: TTMSFNCUtilsCharSet): TTMSFNCUtilsCharSet;\r\n    class function SubCharSet(ACharSet1, ACharSet2: TTMSFNCUtilsCharSet): TTMSFNCUtilsCharSet;\r\n    class function IsLetterOrDigit(AChar: Char): Boolean;\r\n    class function AlphaCharSet: TTMSFNCUtilsCharSet;\r\n    class function NumericCharSet: TTMSFNCUtilsCharSet;\r\n    class function CreateCharSet(AValue: string): TTMSFNCUtilsCharSet;\r\n    class function IsDate(AValue: string; var ADate: TDateTime): boolean;\r\n    class function IPos(su,s:string):Integer;\r\n    class function UnFixMarkup(su:string; SpecialChars: boolean = true; SpecialCharsOnly: Boolean = False): string;\r\n    class function FixMarkup(su:string;SpecialChars: boolean = true): string;\r\n    class function TagReplaceString(const Srch,Repl:string;var Dest:string):Boolean;\r\n    class function Matches(s0a, s1a: PChar): Boolean; overload;\r\n    {$IFNDEF WEBLIB}\r\n    class function Matches(s0a, s1a: string): Boolean; overload;\r\n    {$ENDIF}\r\n    class function StripThousandSep(ps: string): String;\r\n    class function ClosingParenthesis(s1: string): Integer;\r\n    class function GetMarkupIndex(const Markup: string): integer;\r\n    class function GetSpecialChar(const Value: integer): UnicodeString;\r\n    class function IndexOfTextInArray(const AText: string; const AValues: array of string): Integer;\r\n    {$IFDEF MACOS}\r\n    class function NSStrEx(AString: String): NSString;\r\n    {$ENDIF}\r\n    {$IFDEF FMXLIB}\r\n    class function GetParentForm(AControl: TFMXObject): TCustomForm;\r\n    {$ENDIF}\r\n    {$IFDEF CMNLIB}\r\n    class function GetParentForm(AControl: TControl): TCustomForm;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    class function GetParentForm(AControl: TControl): TCustomForm;\r\n    {$ENDIF}\r\n    class function GetOwnerForm(AComponent: TComponent): TCustomForm;\r\n    class function &Message(const AMessage: string): Integer; overload;\r\n    class function &Message(const AMessage: string; const ADialogType: TMsgDlgType; const AButtons: TMsgDlgButtons; const AHelpContext: LongInt): Integer; overload;\r\n    class function SelectFile(var AFileName: string; const ADefaultFolder: string = ''; const AFilter: string = ''; const ACallBack: TTMSFNCUtilsFileCallBackEvent = nil): Boolean;\r\n    class function SaveFile(var AFileName: string; const AFilter: string = ''; const ACallBack: TTMSFNCUtilsFileCallBackEvent = nil): Boolean;\r\n    class function EscapeString(const AValue: string): string;\r\n    class function UnescapeString(const AValue: string): string;\r\n    class function DownloadImage(AURL: string): TMemoryStream;\r\n    class function GetBestDelimiter(ALine1, Aline2: string; ACheckDecimalSeperator: Boolean = True): Char;\r\n    {$IFDEF VCLLIB}\r\n    {$IF COMPILERVERSION > 22.0}\r\n    class function CheckVCLStylesEnabled(AStyleServices: TCustomStyleServices; ADesigning: Boolean): Boolean;\r\n    {$IFEND}\r\n    {$ENDIF}\r\n  end;\r\n\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCComponentHelper = class helper for TComponent\r\n    function GetVersionNumber(AMaj, AMin, ARel, ABld: ShortInt): string;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF CMNLIB}\r\n  TTMSFNCControlHelper = class helper for TControl\r\n    function MakeScreenshot: TTMSFNCBitmap;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  TTMSFNCClipBoardFormat = (cfText, cfRTF, cfHTML, cfBitmap, cfBitmapWin, cfStream, cfRichTextStream);\r\n\r\n  TTMSFNCClipBoard = class\r\n  private\r\n    {$IFDEF WEBLIB}\r\n    class var FClipboardData: string;\r\n    {$ENDIF}\r\n  protected\r\n    {$IFDEF FMXLIB}\r\n    {$IFDEF MSWINDOWS}\r\n    class function isTextFormat(AFormat: Cardinal): Boolean; virtual;\r\n    class function isStreamFormat(AFormat: Cardinal): Boolean; virtual;\r\n    {$ELSE}\r\n    class function isTextFormat(AFormat: String): Boolean; virtual;\r\n    class function isStreamFormat(AFormat: String): Boolean; virtual;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n  public\r\n    {$IFDEF FMXLIB}\r\n    {$IFDEF MSWINDOWS}\r\n    class function GetFormat(AFormat: TTMSFNCClipBoardFormat): Cardinal; virtual;\r\n    class procedure SetValues(AValues: TArray<TValue>; AFormats: TArray<Cardinal>); virtual;\r\n    class procedure SetValue(AValue: TValue; AFormat: Cardinal); virtual;\r\n    class function GetValue(AFormat: Cardinal): TValue; virtual;\r\n    class function GetCustomValue(AFormat: Cardinal; AData: Pointer): TValue; virtual;\r\n    class procedure SetCustomValue(AFormat: Cardinal; AValue: TValue; var AData: Pointer); virtual;\r\n    class function AllocateCustomValue(AFormat: Cardinal; AValue: TValue): THandle; virtual;\r\n    {$ELSE}\r\n    class function GetFormat(AFormat: TTMSFNCClipBoardFormat): string; virtual;\r\n    class procedure SetValues(AValues: TArray<TValue>; AFormats: TArray<String>); virtual;\r\n    class procedure SetValue(AValue: TValue; AFormat: String); virtual;\r\n    class function GetValue(AFormat: String): TValue; virtual;\r\n    {$IFDEF MACOS}\r\n    class function GetCustomValue(AFormat: String; AData: NSData): TValue; virtual;\r\n    class function SetCustomValue(AFormat: String; AValue: TValue): NSData; virtual;\r\n    {$ELSE}\r\n    class function GetCustomValue(AFormat: String; AData: Pointer): TValue; virtual;\r\n    class function SetCustomValue(AFormat: String; AValue: TValue): Pointer; virtual;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    {$IFDEF MSWINDOWS}\r\n    class procedure SetBitmapWin(ABitmap: TTMSFNCBitmap); virtual;\r\n    class function GetBitmapWin: TTMSFNCBitmap; virtual;\r\n    {$ENDIF}\r\n    {$IFDEF MSWINDOWS}\r\n    class function HasFormat(AFormat: Cardinal): Boolean; overload; virtual;\r\n    {$ELSE}\r\n    class function HasFormat(AFormat: String): Boolean; overload; virtual;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n\r\n    {$IFDEF CMNLIB}\r\n    class function GetFormat(AFormat: TTMSFNCClipBoardFormat): string; virtual;\r\n    {$ENDIF}\r\n    class function HasFormat(AFormat: TTMSFNCClipBoardFormat): Boolean; overload; virtual;\r\n    class function HasContent: Boolean; virtual;\r\n    class procedure Clear; virtual;\r\n    class procedure SetText(AText: String); virtual;\r\n    class function GetText: String; virtual;\r\n    class procedure SetStream(AStream: TMemoryStream); virtual;\r\n    class function GetStream: TMemoryStream; virtual;\r\n    class procedure SetBitmap(ABitmap: TTMSFNCBitmap); virtual;\r\n    class function GetBitmap: TTMSFNCBitmap; virtual;\r\n    class procedure SetRichTextStream(AStream: TMemoryStream); virtual;\r\n    class function GetRichTextStream: TMemoryStream; virtual;\r\n    class procedure SetRTF(ARTF: String); virtual;\r\n    class function GetRTF: String; virtual;\r\n    class procedure SetHTML(AHTML: String); virtual;\r\n    class function GetHTML: String; virtual;\r\n  end;\r\n\r\n{$EXTERNALSYM Hiword}\r\nfunction Hiword(L: DWORD): Word;\r\n{$EXTERNALSYM LoWord}\r\nfunction LoWord(L: DWORD): Word;\r\n{$EXTERNALSYM MakeWord}\r\nfunction MakeWord(b1,b2: Integer): Integer;\r\n{$EXTERNALSYM MakeLong}\r\nfunction MakeLong(i1,i2: Integer): Integer;\r\n{$IFDEF FNCLIB}\r\n{$IFDEF WEBLIB}\r\nfunction CreateUploadFile(AName: string; AData: TJSUint8Array): TTMSFNCUtilsFile;\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\n{$IFDEF FNCLIB}\r\nfunction ExtractFileNameEx(AFile: TTMSFNCUtilsFile): string;\r\nfunction GetMimeTypeEx(AFile: TTMSFNCUtilsFile): string;\r\n{$ENDIF}\r\n\r\n{$IFDEF ANDROID}\r\nfunction SharedActivityEx: JActivity;\r\n{$ENDIF}\r\n\r\nvar\r\n  CF_FNCSTREAM: Word;\r\n  CF_FNCRICHTEXTSTREAM: Word;\r\n  CF_FNCRTF: Word;\r\n  CF_FNCBITMAP: Word;\r\n  {$IFDEF FMXLIB}\r\n  CF_FNCBITMAPWIN: Word;\r\n  {$ENDIF}\r\n  CF_FNCHTML: Word;\r\n  FNCFormatSettings: TFormatSettings;\r\n\r\nimplementation\r\n\r\n{$IFDEF WEBLIB}\r\nuses\r\n  DateUtils\r\n  {$IFDEF ELECTRON}\r\n  ,WEBLib.Electron, libelectron\r\n  {$ENDIF}\r\n  ;\r\n{$ENDIF}\r\n{$IFNDEF WEBLIB}\r\nuses\r\n  {$IFDEF MSWINDOWS}\r\n  {$IFDEF FMXLIB}\r\n  FMX.Platform.Win,\r\n  {$ENDIF}\r\n  MMSystem,\r\n  {$IFNDEF LCLLIB}\r\n  WinInet, ShellApi, AnsiStrings\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  ,ShlObj, ComObj\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF MACOS}\r\n  {$IFDEF IOS}\r\n  iOSApi.UIKit, iOSApi.AVFoundation, iOSApi.CocoaTypes, FMX.Platform.iOS\r\n  {$ELSE}\r\n  MacApi.AppKit, MacAPI.CocoaTypes, MacApi.AVFoundation\r\n  {$ENDIF}\r\n  ,MacApi.Helpers\r\n  {$ENDIF}\r\n  {$IFDEF ANDROID}\r\n  AndroidApi.JNI, AndroidApi.JNI.Webkit, AndroidApi.IOUtils, AndroidApi.JNI.GraphicsContentViewText, AndroidApi.JNIBridge,\r\n  AndroidApi.JNI.Net, AndroidApi.Helpers, FMX.Helpers.Android, AndroidApi.JNI.JavaTypes, AndroidApi.Log,\r\n  AndroidApi.JNI.Media\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  {$IFDEF LINUX}\r\n  StrUtils, FMX.Clipboard, FMUX.Api\r\n  {$ENDIF}\r\n  ,FMX.Platform, FMX.Surfaces, FMX.MultiResBitmap\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 28}\r\n  ,FMX.Utils\r\n  {$IFEND}\r\n  {$IF COMPILERVERSION > 30}\r\n  {$IFDEF FMXMOBILE}\r\n  ,FMX.DialogService.Async\r\n  {$ELSE}\r\n  ,FMX.DialogService.Sync\r\n  {$ENDIF}\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  LCLIntF, LCLType, StrUtils\r\n  {$ENDIF}\r\n  {$IFDEF CMNLIB}\r\n  ,ClipBrd\r\n  {$ENDIF}\r\n  {$IFNDEF LINUX}\r\n  {$IFNDEF LCLLIB}\r\n  ,StrUtils\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,FPHTTPClient, Base64\r\n  {$IFDEF UNIX}\r\n  ,unixutil\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  ,DateUtils\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,IOUtils\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 27}\r\n  ,System.NetEncoding\r\n  {$ELSE}\r\n  ,EncdDecd\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$IFDEF FNCLIB}\r\n  ,System.TimeSpan\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  ;\r\n{$ENDIF}\r\n\r\nconst\r\n  HTMLNumSpecialChar = 92;\r\n  JSONNumSpecialChar = 7;\r\n\r\nvar\r\n  HTMLEncodedChar : array[1..HTMLNumSpecialChar] of unicodestring = ('&','<','>','\"',' ',\r\n                                                     'é','è','ë','ê',\r\n                                                     'ó','ò','ö','ô',\r\n                                                     'í','ì','ï','î',\r\n                                                     'ú','ù','ü','û',\r\n                                                     'á','à','ä','â',\r\n                                                     'É','È','Ë','Ê',\r\n                                                     'Ó','Ò','Ö','Ô',\r\n                                                     'Í','Ì','Ï','Î',\r\n                                                     'Ú','Ù','Ü','Û',\r\n                                                     'Á','À','Ä','Â',\r\n                                                     'ç','Ç','ø','Ø',\r\n                                                     'å','Å','©','®',\r\n                                                     '€','«','»','ã',\r\n                                                     'Ã','õ','Õ','™',\r\n                                                     '§','¶','ß','£',\r\n                                                     '$','§','‰','¶',\r\n                                                     '''','¥','¤','¢',\r\n                                                     '±','¡','°','ý','Ý',\r\n                                                     '¼','½','¾','Æ',\r\n                                                     'æ','Ñ','ñ','Ð',\r\n\t\t\t\t\t\t     '´','µ','¶','·','²','³');\r\n\r\n  HTMLSpecialChar : array[1..HTMLNumSpecialChar] of string = ('&amp;','&lt;','&gt;','&quot;','&nbsp;',\r\n                                             '&eacute;','&egrave;','&euml;','&ecirc;',\r\n                                             '&oacute;','&ograve;','&ouml;','&ocirc;',\r\n                                             '&iacute;','&igrave;','&iuml;','&icirc;',\r\n                                             '&uacute;','&ugrave;','&uuml;','&ucirc;',\r\n                                             '&aacute;','&agrave;','&auml;','&acirc;',\r\n                                             '&Eacute;','&Egrave;','&Euml;','&Ecirc;',\r\n                                             '&Oacute;','&Ograve;','&Ouml;','&Ocirc;',\r\n                                             '&Iacute;','&Igrave;','&Iuml;','&Icirc;',\r\n                                             '&Uacute;','&Ugrave;','&Uuml;','&Ucirc;',\r\n                                             '&Aacute;','&Agrave;','&Auml;','&Acirc;',\r\n                                             '&ccedil;','&Ccedil;','&oslash;','&Oslash;',\r\n                                             '&aring;','&Aring;','&copy;','&reg;',\r\n                                             '&euro;','&laquo;','&raquo;','&atilde;',\r\n                                             '&Atilde;','&otilde;','&Otilde',\r\n                                             '&trade;','&sect;','&para;','&szlig;',\r\n                                             '&pound;','&#36;','&sect;',\r\n                                             '&permil;','&para;','&#39;',\r\n                                             '&yen;','&curren;','&cent;','&plusmn;',\r\n                                             '&iexcl;','&deg;','&#x00FD;','&#221;',\r\n                                             '&frac14;', '&frac12;', '&frac34;','&AElig;',\r\n                                             '&aelig;','&Ntilde;','&ntilde;','&ETH;',\r\n                                             '&acute;','&micro;','&para;',\r\n                                             '&middot','&sup2;','&sup3;');\r\n\r\n  JSONSpecialChar: array[1..JSONNumSpecialChar] of char = ('\"','\\',#8,#12,#10,#13,#9);\r\n\r\n  JSONEncodedSpecialChar: array[1..JSONNumSpecialChar] of string = ('\\u0022','\\u005C','\\u0008','\\u000C','\\u000A','\\u000D','\\u0009');\r\n\r\n{$IFDEF ANDROID}\r\n  FContentClipboardManager: JContent_ClipboardManager;\r\n  FClipboardManager: JClipboardManager;\r\n{$ENDIF}\r\n\r\n{$IFDEF FNCLIB}\r\n  FMimeTypes: TStringList;\r\n\r\nfunction ExtractFileNameEx(AFile: TTMSFNCUtilsFile): string;\r\nbegin\r\n  {$IFNDEF WEBLIB}\r\n  Result := ExtractFileName(AFile);\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Result := AFile.Name;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction GetMimeTypeEx(AFile: TTMSFNCUtilsFile): string;\r\nbegin\r\n  {$IFNDEF WEBLIB}\r\n  Result := TTMSFNCUtils.GetMimeType(AFile)\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Result := TTMSFNCUtils.GetMimeType(AFile.Name);\r\n  {$ENDIF}\r\nend;\r\n{$ENDIF}\r\n\r\nfunction Hiword(L: DWORD): Word;\r\nbegin\r\n  Result := L shr 16;\r\nend;\r\n\r\nfunction LoWord(L: DWORD): Word;\r\nbegin\r\n  Result := L AND $FFFF;\r\nend;\r\n\r\nfunction MakeWord(b1,b2: Integer): Integer;\r\nbegin\r\n  Result := b1 or b2 shl 8;\r\nend;\r\n\r\nfunction MakeLong(i1,i2: Integer): Integer;\r\nbegin\r\n  Result := i1 or i2 shl 16;\r\nend;\r\n\r\n{$IFDEF FNCLIB}\r\n{$IFDEF WEBLIB}\r\nfunction CreateUploadFile(AName: string; AData: TJSUint8Array): TTMSFNCUtilsFile;\r\nbegin\r\n  Result.Data := AData;\r\n  Result.Name := AName;\r\nend;\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\n{$IFDEF ANDROID}\r\ntype\r\n  JHttpURLConnection = interface;\r\n  JURLConnection = interface;\r\n  JURL = interface;\r\n\r\n  JURLClass = interface(JObjectClass)\r\n    ['{3E1A363B-FA2A-4399-A0C7-24DFC255E133}']\r\n    {class} function init(spec: JString): JURL; cdecl; overload;\r\n  end;\r\n\r\n  [JavaSignature('java/net/URL')]\r\n  JURL = interface(JObject)\r\n    ['{BCC8860A-E48B-4894-95A9-26B3AFDF3EDC}']\r\n    function openConnection: JURLConnection; cdecl; overload;\r\n  end;\r\n  TJURL = class(TJavaGenericImport<JURLClass, JURL>) end;\r\n\r\n  JURLConnectionClass = interface(JObjectClass)\r\n    ['{969FF7F8-7B73-491C-A621-855E197B0B6B}']\r\n  end;\r\n\r\n  [JavaSignature('java/net/URLConnection')]\r\n  JURLConnection = interface(JObject)\r\n    ['{F50D6528-AE5E-4862-89A1-CAE44274AED9}']\r\n    function getHeaderField(key: JString): JString; cdecl; overload;\r\n  end;\r\n  TJURLConnection = class(TJavaGenericImport<JURLConnectionClass, JURLConnection>) end;\r\n\r\n  JHttpURLConnectionClass = interface(JURLConnectionClass)\r\n    ['{D80190E4-FBCC-4286-9E39-42F45C58E7D9}']\r\n  end;\r\n  [JavaSignature('java/net/HttpURLConnection')]\r\n  JHttpURLConnection = interface(JURLConnection)\r\n  ['{57A25834-F65A-4078-8B73-1C566DF70536}']\r\n    procedure setRequestMethod(method: JString); cdecl;\r\n    procedure setDoInput(newValue: Boolean); cdecl;\r\n    procedure setDoOutput(newValue: Boolean); cdecl;\r\n    function getOutputStream: JOutputStream; cdecl;\r\n    function getInputStream: JInputStream; cdecl;\r\n    function getResponseCode: Integer; cdecl;\r\n  end;\r\n  TJHttpURLConnection = class(TJavaGenericImport<JHttpURLConnectionClass, JHttpURLConnection>) end;\r\n\r\ntype\r\n  TTMSFNCUtilsFileMode = (ufmOpen, ufmSave);\r\n\r\n  TTMSFNCUtilsDialogDismissListener = class(TJavaLocal, JDialogInterface_OnDismissListener)\r\n  public\r\n    procedure onDismiss(dialog: JDialogInterface); cdecl;\r\n  end;\r\n\r\n  TTMSFNCUtilsDialogSelectDirectoryListener = class(TJavaLocal, JDialogInterface_OnClickListener)\r\n  public\r\n    procedure onClick(dialog: JDialogInterface; which: Integer); cdecl;\r\n  end;\r\n\r\n  TTMSFNCUtilsDialogSelectFileListener = class(TJavaLocal, JDialogInterface_OnClickListener)\r\n  public\r\n    procedure onClick(dialog: JDialogInterface; which: Integer); cdecl;\r\n  end;\r\n\r\nvar\r\n  FFileExt: string;\r\n  FFileMode: TTMSFNCUtilsFileMode;\r\n  FSelectedFile: String;\r\n  FCallBack: TTMSFNCUtilsFileCallBackEvent;\r\n  FDialogBuilder: JAlertDialog_Builder;\r\n  FDialog: JDialog;\r\n  FCurrentPath: JFile;\r\n  FFileList: TJavaObjectArray<JCharSequence>;\r\n  FDirectoryListener: TTMSFNCUtilsDialogSelectDirectoryListener;\r\n  FSelectFileListener: TTMSFNCUtilsDialogSelectFileListener;\r\n  FFilter: string;\r\n  FDismissListener: TTMSFNCUtilsDialogDismissListener;\r\n\r\nfunction SharedActivityEx: JActivity;\r\nbegin\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 29}\r\n  Result := TAndroidHelper.Activity;\r\n  {$ELSE}\r\n  Result := SharedActivity;\r\n  {$IFEND}\r\n  {$HINTS ON}\r\nend;\r\n\r\nprocedure LoadFileList(APath: JFile; AFilter: string);\r\nvar\r\n  l, lf: TList<string>;\r\n  a, c: TArray<string>;\r\n  I, K: Integer;\r\n  s: string;\r\n  SR: TSearchRec;\r\n  fn: string;\r\n  chk: Boolean;\r\nbegin\r\n  FCurrentPath := APath;\r\n  l := TList<string>.Create;\r\n  if APath.exists then\r\n  begin\r\n    lf := TList<string>.Create;\r\n\r\n    a := AFilter.Split(['|']);\r\n\r\n    for I := 0 to Length(a) - 1 do\r\n    begin\r\n      if Odd(I) then\r\n      begin\r\n        c := a[I].Split([';']);\r\n        for K := 0 to Length(c) - 1 do\r\n        begin\r\n          s := c[K].Replace('*', '');\r\n          if not lf.Contains(s) then\r\n            lf.Add(s);\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    if APath.getParentFile <> nil then\r\n      l.Add('..');\r\n\r\n    fn := TTMSFNCUtils.AddBackslash(JStringToString(APath.getPath)) + '*';\r\n    k := FindFirst(fn, faAnyFile, SR);\r\n    while K = 0 do\r\n    begin\r\n      chk := (sr.Name <> '.') and (sr.Name <> '..');\r\n      chk := chk and (lf.Contains(ExtractFileExt(sr.Name)) or (lf.Count = 0) or ((lf.Count = 1) and (lf[0] = '.')) or (sr.Attr and 16 = 16));\r\n\r\n      if chk then\r\n      begin\r\n        l.Add(ExtractFilePath(fn) + SR.Name);\r\n      end;\r\n\r\n      K := FindNext(SR);\r\n    end;\r\n    FindClose(SR);\r\n\r\n    lf.Free;\r\n  end;\r\n\r\n  FFileList := TJavaObjectArray<JCharSequence>.Create(l.Count);\r\n  for I := 0 to l.Count - 1 do\r\n    FFileList.Items[I] := StrToJCharSequence(l[I]);\r\n\r\n  l.Free;\r\nend;\r\n\r\nprocedure ShowDialog(AFile: JFile);\r\nbegin\r\n  FDialogBuilder := TJAlertDialog_Builder.JavaClass.init(SharedActivityEx);\r\n  FDialogBuilder.setTitle(StrToJCharSequence(JStringToString(AFile.getPath)));\r\n  if FFileMode = ufmSave then\r\n    FDialogBuilder.setPositiveButton(StrToJCharSequence('Save'), FDirectoryListener);\r\n  FDialogBuilder.setItems(FFileList, FSelectFileListener);\r\n  FDialog := FDialogBuilder.create;\r\n  FDialog.setOnDismissListener(FDismissListener);\r\n  FDialog.show;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF MACOS}\r\n{$IFDEF IOS}\r\nconst\r\n  UIDocumentPickerModeImport = 0;\r\n  UIDocumentPickerModeOpen = 1;\r\n  UIDocumentPickerModeExportToService = 2;\r\n  UIDocumentPickerModeMoveToService = 3;\r\n\r\ntype\r\n  UIDocumentPickerViewController = interface;\r\n\r\n  UIDocumentPickerDelegate = interface(IObjectiveC)\r\n    ['{B978C4EB-8C88-4D80-B5B6-3AB33B7831DC}']\r\n    procedure documentPicker(controller: UIDocumentPickerViewController; didPickDocumentsAtURLs: NSArray); cdecl;\r\n    procedure documentPickerWasCancelled(controller: UIDocumentPickerViewController); cdecl;\r\n  end;\r\n\r\n  UIDocumentPickerMode = NSUInteger;\r\n\r\n  UIDocumentPickerViewControllerClass = interface(UIViewControllerClass)\r\n    ['{C67E60F0-F8AB-49BB-B264-9F20D14276DA}']\r\n  end;\r\n  UIDocumentPickerViewController = interface(UIViewController)\r\n    ['{548F924F-2E33-4F77-8947-1B9D3F49A794}']\r\n    function initWithDocumentTypes(allowedUTIs: NSArray; inMode: UIDocumentPickerMode): Pointer; cdecl;\r\n    function initWithURL(url: NSURL; inMode: UIDocumentPickerMode): Pointer; cdecl;\r\n    function initWithURLs(urls: NSArray; inMode: UIDocumentPickerMode): Pointer; cdecl;\r\n    procedure setAllowsMultipleSelection(allowsMultipleSelection: Boolean); cdecl;\r\n    function allowsMultipleSelection: Boolean; cdecl;\r\n    procedure setDocumentPickerMode(documentPickerMode: UIDocumentPickerMode); cdecl;\r\n    function documentPickerMode: UIDocumentPickerMode; cdecl;\r\n    procedure setDelegate(delegate: Pointer); cdecl;\r\n    function delegate: Pointer; cdecl;\r\n  end;\r\n  TUIDocumentPickerViewController = class(TOCGenericImport<UIDocumentPickerViewControllerClass, UIDocumentPickerViewController>)  end;\r\n\r\n  TTMSFNCUtilsFileMode = (ufmOpen, ufmSave);\r\n\r\n  TUIDocumentPickerDelegate = class(TOCLocal, UIDocumentPickerDelegate)\r\n  public\r\n    procedure documentPicker(controller: UIDocumentPickerViewController; didPickDocumentsAtURLs: NSArray); cdecl;\r\n    procedure documentPickerWasCancelled(controller: UIDocumentPickerViewController); cdecl;\r\n  end;\r\n\r\nvar\r\n  FFileExt: string;\r\n  FFileMode: TTMSFNCUtilsFileMode;\r\n  FSelectedFile: String;\r\n  FCallBack: TTMSFNCUtilsFileCallBackEvent;\r\n  FDocumentPickerDelegate: TUIDocumentPickerDelegate;\r\n  FDocumentPicker: UIDocumentPickerViewController;\r\n\r\nfunction GetSharedApplication: UIApplication;\r\nbegin\r\n  Result := TUIApplication.Wrap(TUIApplication.OCClass.sharedApplication);\r\nend;\r\n\r\n{$ENDIF}\r\nclass function TTMSFNCUtils.NSStrEx(AString: String): NSString;\r\nbegin\r\n  Result := StrToNSStr(AString);\r\nend;\r\n\r\nconst\r\n  libFoundation = '/System/Library/Frameworks/Foundation.framework/Foundation';\r\n  libMobileCoreServices = '/System/Library/Frameworks/MobileCoreServices.framework/MobileCoreServices';\r\n\r\nprocedure NSLog(format: Pointer); cdecl; varargs; external libFoundation name _PU + 'NSLog';\r\n{$ENDIF}\r\n\r\n{ TTMSFNCUtils }\r\n\r\nclass function TTMSFNCUtils.IPos(su,s:string):Integer;\r\nbegin\r\n  Result := Pos(UpperCase(su),UpperCase(s));\r\nend;\r\n\r\nclass function TTMSFNCUtils.TagReplaceString(const Srch,Repl:string;var Dest:string):Boolean;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  i := IPos(srch,dest);\r\n  if i > 0 then\r\n  begin\r\n    Result := True;\r\n    Delete(Dest,i,Length(Srch));\r\n    Dest := Copy(Dest,1,i-1) + Repl + Copy(Dest,i,Length(Dest));\r\n  end\r\n  else\r\n    Result := False;\r\nend;\r\n\r\nclass function TTMSFNCUtils.SaveFile(var AFileName: string; const AFilter: string = ''; const ACallBack: TTMSFNCUtilsFileCallBackEvent = nil): Boolean;\r\n{$IFNDEF WEBLIB}\r\n{$IFNDEF FMXMOBILE}\r\nvar\r\n  s: TSaveDialog;\r\n  ext: string;\r\n{$ENDIF}\r\n{$IFDEF FMXMOBILE}\r\n{$IFDEF IOS}\r\nvar\r\n  f: string;\r\n  u: NSURL;\r\n{$ENDIF}\r\n{$IFDEF ANDROID}\r\nvar\r\n  f: string;\r\n{$ENDIF}\r\n{$ENDIF}\r\nbegin\r\n  Result := False;\r\n  {$IFDEF FMXMOBILE}\r\n  {$IFDEF IOS}\r\n  FCallBack := ACallBack;\r\n  f := AFileName;\r\n\r\n  if ExtractFilePath(f) = '' then\r\n    f := TTMSFNCUtils.GetDocumentsPath + PthDel + f;\r\n\r\n  FFileExt := ExtractFileName(AFileName);\r\n  FFileMode := ufmSave;\r\n  if Assigned(FDocumentPickerDelegate) then\r\n    FDocumentPickerDelegate.Free;\r\n\r\n  FDocumentPickerDelegate := TUIDocumentPickerDelegate.Create;\r\n\r\n  if not FileExists(f) then\r\n    FileCreate(f);\r\n\r\n  u := TNSURL.Wrap(TNSURL.OCClass.fileURLWithPath(TTMSFNCUtils.NSStrEx(f)));\r\n  FDocumentPicker := TUIDocumentPickerViewController.Wrap(TUIDocumentPickerViewController.Wrap(TUIDocumentPickerViewController.OCClass.alloc).initWithURL(u, UIDocumentPickerModeExportToService));\r\n  FDocumentPicker.setDelegate(FDocumentPickerDelegate.GetObjectID);\r\n  GetSharedApplication.keyWindow.rootViewController.presentViewController(FDocumentPicker, False, nil);\r\n  FDocumentPicker.release;\r\n  {$ENDIF}\r\n  {$IFDEF ANDROID}\r\n  FCallBack := ACallBack;\r\n  FFileExt := ExtractFileName(AFileName);\r\n\r\n  FFileMode := ufmSave;\r\n\r\n  FDirectoryListener := TTMSFNCUtilsDialogSelectDirectoryListener.Create;\r\n  FSelectFileListener := TTMSFNCUtilsDialogSelectFileListener.Create;\r\n  FDismissListener := TTMSFNCUtilsDialogDismissListener.Create;\r\n\r\n  FFilter := AFilter;\r\n  if ExtractFilePath(AFileName) = '' then\r\n    f := AddBackslash(TTMSFNCUtils.GetDocumentsPath)\r\n  else\r\n    f := AddBackslash(ExtractFilePath(AFileName));\r\n\r\n  FSelectedFile := f + FFileExt;\r\n\r\n  FCurrentPath := TJFile.JavaClass.init(StringToJString(f));\r\n  LoadFileList(FCurrentPath, FFilter);\r\n  CallInUIThreadAndWaitFinishing(\r\n  procedure\r\n  begin\r\n    ShowDialog(FCurrentPath);\r\n  end\r\n  );\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFNDEF FMXMOBILE}\r\n  s := TSaveDialog.Create(Application);\r\n  try\r\n    ext := ExtractFileExt(AFileName);\r\n    s.Filter := AFilter;\r\n    if ExtractFilePath(AFileName) = '' then\r\n      s.InitialDir := AddBackslash(TTMSFNCUtils.GetDocumentsPath)\r\n    else\r\n      s.InitialDir := AddBackslash(ExtractFilePath(AFileName));\r\n    s.Options := s.Options + [TOpenOption.ofOverwritePrompt];\r\n    s.FileName := ExtractFileName(AFileName);\r\n    if s.Execute then\r\n    begin\r\n      AFileName := s.FileName;\r\n      if ExtractFileExt(s.FileName) = '' then\r\n        AFileName := AFileName + ext;\r\n      Result := True;\r\n    end;\r\n\r\n    if Assigned(ACallBack) then\r\n      ACallBack(AFileName, Result);\r\n  finally\r\n    s.Free;\r\n  end;\r\n  {$ENDIF}\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\nbegin\r\n  Result := True;\r\n{$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCUtils.EnDeCrypt(const AValue: String): String;\r\nvar\r\n  r: string;\r\n  i: Integer;\r\n  c: Char;\r\n  b: Byte;\r\nbegin\r\n  r := '';\r\n  {$IFDEF ZEROSTRINGINDEX}\r\n  for i := 0 to Length(AValue) - 1 do\r\n  {$ELSE}\r\n  for i := 1 to Length(AValue) do\r\n  {$ENDIF}\r\n  begin\r\n    b := Ord(AValue[i]);\r\n    b := (b and $E0) + ((b and $1F) xor 5);\r\n    c := chr(b);\r\n    r := r + c;\r\n  end;\r\n\r\n  Result := r;\r\nend;\r\n\r\nclass function TTMSFNCUtils.EscapeString(const AValue: string): string;\r\nvar\r\n  res: string;\r\n  ch: char;\r\n  i: integer;\r\n\r\n  function EscapeSpecialChar(ch: char; var s: string): boolean;\r\n  var\r\n    i: integer;\r\n  begin\r\n    Result := false;\r\n    s := '';\r\n\r\n    for i := 1 to JSONNumSpecialChar do\r\n    begin\r\n      if ch = JSONSpecialChar[i] then\r\n      begin\r\n        s := JSONEncodedSpecialChar[i];\r\n        Result := True;\r\n        Break;\r\n      end;\r\n    end;\r\n  end;\r\n\r\nbegin\r\n  Result := '';\r\n  for i := 1 to length(AValue) do\r\n  begin\r\n    ch := CharInStr(AValue, i);\r\n\r\n    if ch > #127 then\r\n      Result := Result + '\\u' + IntToHex(ord(ch),4)\r\n    else\r\n    begin\r\n      res := '';\r\n      if EscapeSpecialChar(ch, res) then\r\n        Result := Result + res\r\n      else\r\n        Result := Result + ch\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.UnescapeString(const AValue: string): string;\r\nvar\r\n  i: Integer;\r\n  j: Integer;\r\n  c: Integer;\r\n  o: Integer;\r\n  s: string;\r\n  x: Integer;\r\nbegin\r\n  SetLength(s, Length(AValue));\r\n  {$IFDEF ZEROSTRINGINDEX}\r\n  o := 1;\r\n  {$ENDIF}\r\n  {$IFNDEF ZEROSTRINGINDEX}\r\n  o := 0;\r\n  {$ENDIF}\r\n  i := 1;\r\n  j := 1;\r\n  while i <= Length(AValue) do\r\n  begin\r\n    if AValue[i - o] = '\\' then\r\n    begin\r\n      if i < Length(AValue) then\r\n      begin\r\n        if AValue[i + 1 - o] = '\\' then\r\n        begin\r\n          x := j - o;\r\n          s[x] := '\\';\r\n          inc(i, 2);\r\n        end\r\n        else if AValue[i + 1 - o] = '/' then\r\n        begin\r\n          x := j - o;\r\n          s[x] := '/';\r\n          inc(i, 2);\r\n        end\r\n        else if AValue[i + 1 - o] = 'b' then\r\n        begin\r\n          x := j - o;\r\n          s[x] := #$8;\r\n          inc(i, 2);\r\n        end\r\n        else if AValue[i + 1 - o] = 'f' then\r\n        begin\r\n          x := j - o;\r\n          s[x] := #$c;\r\n          inc(i, 2);\r\n        end\r\n        else if AValue[i + 1 - o] = 'n' then\r\n        begin\r\n          x := j - o;\r\n          s[x] := #$a;\r\n          inc(i, 2);\r\n        end\r\n        else if AValue[i + 1 - o] = 'r' then\r\n        begin\r\n          x := j - o;\r\n          s[x] := #$d;\r\n          inc(i, 2);\r\n        end\r\n        else if AValue[i + 1 - o] = 't' then\r\n        begin\r\n          x := j - o;\r\n          s[x] := #$9;\r\n          inc(i, 2);\r\n        end\r\n        else if AValue[i + 1 - o] = '\"' then\r\n        begin\r\n          x := j - o;\r\n          s[x] := '\"';\r\n          inc(i, 2);\r\n        end\r\n        else if (AValue[i + 1 - o] = 'u') and (i + 1 + 4 <= Length(AValue)) and TryStrToInt('$' + string(Copy(AValue, i + 2, 4)), c) then\r\n        begin\r\n          inc(i, 6);\r\n          x := j - o;\r\n          {$IFDEF WEBLIB}\r\n          s[x] := Chr(c);\r\n          {$ENDIF}\r\n          {$IFNDEF WEBLIB}\r\n          s[x] := Char(c);\r\n          {$ENDIF}\r\n        end\r\n        else\r\n          raise Exception.CreateFmt('Invalid code at position %s', [IntToStr(i)]);\r\n      end\r\n      else\r\n        raise Exception.Create('Unexpected end of string');\r\n    end\r\n    else\r\n    begin\r\n      x := j - o;\r\n      s[x] := AValue[i - o];\r\n      inc(i);\r\n    end;\r\n    inc(j);\r\n  end;\r\n  SetLength(s, j - 1);\r\n\r\n  Result := s;\r\nend;\r\n\r\nclass function TTMSFNCUtils.SelectFile(var AFileName: string; const ADefaultFolder: string = ''; const AFilter: string = ''; const ACallBack: TTMSFNCUtilsFileCallBackEvent = nil): Boolean;\r\n{$IFNDEF WEBLIB}\r\n{$IFNDEF FMXMOBILE}\r\nvar\r\n  o: TOpenDialog;\r\n{$ENDIF}\r\n{$IFDEF FMXMOBILE}\r\n{$IFDEF IOS}\r\nvar\r\n  arr: NSArray;\r\n  arritems: array of Pointer;\r\n{$ENDIF}\r\n{$IFDEF ANDROID}\r\nvar\r\n  f: string;\r\n{$ENDIF}\r\n{$ENDIF}\r\nbegin\r\n  Result := False;\r\n  {$IFDEF FMXMOBILE}\r\n  {$IFDEF IOS}\r\n  FCallBack := ACallBack;\r\n  FFileMode := ufmOpen;\r\n  if Assigned(FDocumentPickerDelegate) then\r\n    FDocumentPickerDelegate.Free;\r\n\r\n  FDocumentPickerDelegate := TUIDocumentPickerDelegate.Create;\r\n  SetLength(arrItems, 3);\r\n  arrItems[0] := (CocoaNSStringConst(libMobileCoreServices, 'kUTTypeContent') as ILocalObject).GetObjectID;\r\n  arrItems[1] := (CocoaNSStringConst(libMobileCoreServices, 'kUTTypeData') as ILocalObject).GetObjectID;\r\n  arrItems[2] := (CocoaNSStringConst(libMobileCoreServices, 'kUTTypeItem') as ILocalObject).GetObjectID;\r\n  arr := TNSArray.Wrap(TNSArray.OCClass.arrayWithObjects(@arritems[0], Length(arritems)));\r\n  FDocumentPicker := TUIDocumentPickerViewController.Wrap(TUIDocumentPickerViewController.Wrap(TUIDocumentPickerViewController.OCClass.alloc).initWithDocumentTypes(arr, UIDocumentPickerModeImport));\r\n  FDocumentPicker.setDocumentPickerMode(UIDocumentPickerModeImport);\r\n  FDocumentPicker.setDelegate(FDocumentPickerDelegate.GetObjectID);\r\n  GetSharedApplication.keyWindow.rootViewController.presentViewController(FDocumentPicker, False, nil);\r\n  FDocumentPicker.release;\r\n  {$ENDIF}\r\n  {$IFDEF ANDROID}\r\n  FCallBack := ACallBack;\r\n  FFileMode := ufmOpen;\r\n\r\n  FSelectFileListener := TTMSFNCUtilsDialogSelectFileListener.Create;\r\n  FDismissListener := TTMSFNCUtilsDialogDismissListener.Create;\r\n\r\n  FFilter := AFilter;\r\n  if ADefaultFolder = '' then\r\n    f := AddBackslash(TTMSFNCUtils.GetDocumentsPath)\r\n  else\r\n    f := AddBackslash(ADefaultFolder);\r\n\r\n  FCurrentPath := TJFile.JavaClass.init(StringToJString(f));\r\n  LoadFileList(FCurrentPath, FFilter);\r\n  CallInUIThreadAndWaitFinishing(\r\n  procedure\r\n  begin\r\n    ShowDialog(FCurrentPath);\r\n  end\r\n  );\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFNDEF FMXMOBILE}\r\n  o := TOpenDialog.Create(Application);\r\n  try\r\n    o.Options := [TOpenOption.ofFileMustExist];\r\n    if ADefaultFolder = '' then\r\n      o.InitialDir := AddBackslash(TTMSFNCUtils.GetDocumentsPath)\r\n    else\r\n      o.InitialDir := AddBackslash(ADefaultFolder);\r\n    o.Filter := AFilter;\r\n    if o.Execute then\r\n    begin\r\n      AFileName := o.FileName;\r\n      Result := True;\r\n    end;\r\n\r\n    if Assigned(ACallBack) then\r\n      ACallBack(AFileName, Result);\r\n  finally\r\n    o.Free;\r\n  end;\r\n  {$ENDIF}\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\nbegin\r\n  Result := True;\r\n  if Assigned(ACallBack) then\r\n    ACallBack(AFileName, Result);\r\n{$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCUtils.&Message(const AMessage: string): Integer;\r\nbegin\r\n  Result := TTMSFNCUtils.&Message(AMessage, TMsgDlgType.mtInformation, [TMsgDlgBtn.mbOK], 0);\r\nend;\r\n\r\nclass function TTMSFNCUtils.&Message(const AMessage: string; const ADialogType: TMsgDlgType; const AButtons: TMsgDlgButtons; const AHelpContext: LongInt): Integer;\r\nbegin\r\n{$IFNDEF WEBLIB}\r\n  {$IFDEF FMXMOBILE}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 30}\r\n  TDialogServiceAsync.MessageDialog(AMessage, ADialogType, AButtons, TMsgDlgBtn.mbYes, AHelpContext);\r\n  Result := mrOk;\r\n  {$ELSE}\r\n  Result := mrOk;\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  {$IFDEF LCLLIB}\r\n  Result := MessageDlg(AMessage, ADialogType, AButtons, AHelpContext);\r\n  {$ELSE}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 30}\r\n  {$IFDEF FMXLIB}\r\n  Result := TDialogServiceSync.MessageDialog(AMessage, ADialogType, AButtons, TMsgDlgBtn.mbYes, AHelpContext);\r\n  {$ELSE}\r\n  Result := MessageDlg(AMessage, ADialogType, AButtons, AHelpContext);\r\n  {$ENDIF}\r\n  {$ELSE}\r\n  Result := MessageDlg(AMessage, ADialogType, AButtons, AHelpContext);\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\n  Result := 0;\r\n  if ((TMsgDlgBtn.mbOK in AButtons) and (TMsgDlgBtn.mbCancel in AButtons)) or ((TMsgDlgBtn.mbYes in AButtons) and (TMsgDlgBtn.mbNo in AButtons)) then\r\n  begin\r\n    asm\r\n      if (window.confirm(AMessage))\r\n      {\r\n        return 1\r\n      }\r\n      else\r\n      {\r\n        return 2\r\n      }\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    asm\r\n      window.alert(AMessage);\r\n      return 1\r\n    end;\r\n  end;\r\n{$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCUtils.NumericCharSet: TTMSFNCUtilsCharSet;\r\nvar\r\n  ch: char;\r\n  i: integer;\r\nbegin\r\n  SetLength(Result,10);\r\n  i := 0;\r\n\r\n  for ch := '0' to '9' do\r\n  begin\r\n    Result[i] := ch;\r\n    inc(i);\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.CreateCharSet(AValue: string): TTMSFNCUtilsCharSet;\r\nvar\r\n  i: integer;\r\nbegin\r\n  SetLength(Result, Length(AValue));\r\n\r\n  for i := 1 to Length(AValue) do\r\n  begin\r\n    Result[i - 1] := CharInStr(AValue, i);\r\n  end;\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\n{$IFDEF LINUX}\r\nclass function TTMSFNCUtils.CurlReadData(buffer: Pointer; size, nitems: size_t;\r\n  instream: Pointer): size_t; cdecl;\r\nvar\r\n  l: Integer;\r\nbegin\r\n  if instream <> nil then\r\n  begin\r\n    l := nitems * size;\r\n    Result := FDownloadStream.Write(buffer^, l);\r\n  end\r\n  else\r\n    Result := 0;\r\nend;\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\n{$IFDEF FNCLIB}\r\nclass procedure TTMSFNCUtils.GetTimeZoneInfo(ADateTime: TDateTime; var ABias: Integer; var ABiasDay: Integer; var AIsDaylight: Boolean);\r\nvar\r\n  {$IFDEF UNIX}\r\n  {$IFDEF FMXLIB}\r\n  lTimeZone: TTimeZone;\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  lTimeZone: Boolean;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF MACOS}\r\n  lTimeZone: NSTimeZone;\r\n  {$ENDIF}\r\n  {$IFDEF ANDROID}\r\n  lTimeZone: JTimeZone;\r\n  {$ENDIF}\r\n  {$IFDEF MSWINDOWS}\r\n  {$IFNDEF LCLLIB}\r\n  lTimeZone: TTimeZone;\r\n  {$ELSE}\r\n  lTimeZone: TTimeZoneInformation;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  bias, biasday: Integer;\r\n  isDaylight: Boolean;\r\n  {$ENDIF}\r\nbegin\r\n  {$IFDEF MACOS}\r\n  lTimeZone := TNSTimeZone.Wrap(TNSTimeZone.OCClass.systemTimeZone);\r\n  AIsDaylight := lTimeZone.isDaylightSavingTime;\r\n  ABias := Round(lTimeZone.secondsFromGMT / 3600);\r\n  ABiasday := Round(lTimeZone.daylightSavingTimeOffset / 3600);\r\n  {$ENDIF}\r\n  {$IFDEF ANDROID}\r\n  lTimeZone := TJTimeZone.JavaClass.getDefault;\r\n  AIsDaylight := lTimeZone.useDaylightTime;\r\n  ABias := Round(lTimeZone.getRawOffset / 3600 / 1000);\r\n  ABiasday := Round(lTimeZone.getDSTSavings / 3600 / 1000);\r\n  {$ENDIF}\r\n  {$IFDEF MSWINDOWS}\r\n  {$IFNDEF LCLLIB}\r\n  AIsDayLight := False;\r\n  ABiasDay := 0;\r\n  lTimeZone := TTimeZone.Local;\r\n  ABias := Trunc(LTimeZone.GetUTCOffset(ADateTime).Negate.TotalMinutes);\r\n  {$ELSE}\r\n  AIsDayLight := (GetTimeZoneInformation(lTimeZone) = TIME_ZONE_ID_DAYLIGHT);\r\n  ABias := lTimeZone.Bias;\r\n  ABiasday := lTimeZone.DaylightBias;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF UNIX}\r\n  AIsDayLight := False;\r\n  ABiasday := 0;\r\n  {$IFDEF FMXLIB}\r\n  lTimeZone := TTimeZone.Local;\r\n  ABias := Round(LTimeZone.GetUtcOffset(Now).Negate.TotalMilliseconds);\r\n  {$ELSE}\r\n  ABias := -Tzseconds div 3600;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  asm\r\n    Date.prototype.stdTimezoneOffset = function () {\r\n        var jan = new Date(this.getFullYear(), 0, 1);\r\n        var jul = new Date(this.getFullYear(), 6, 1);\r\n        return Math.max(jan.getTimezoneOffset(), jul.getTimezoneOffset());\r\n    }\r\n\r\n    Date.prototype.isDstObserved = function () {\r\n        return this.getTimezoneOffset() < this.stdTimezoneOffset();\r\n    }\r\n    var dt = new Date();\r\n    bias = dt.getTimezoneOffset();\r\n    biasday = dt.stdTimezoneOffset();\r\n    isDaylight = dt.isDstObserved();\r\n  end;\r\n\r\n  ABias := bias;\r\n  ABiasDay := biasday;\r\n  AIsDaylight := isDaylight;\r\n  {$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCUtils.DateTimeToMilliSeconds(const ADateTime: TDateTime): Int64;\r\nvar\r\n  bias: Integer;\r\n  biasday: Integer;\r\n  isDayLight: Boolean;\r\nconst\r\n  UnixStartDate: TDateTime = 25569;\r\nbegin\r\n  bias := 0;\r\n  biasday := 0;\r\n  isDayLight := False;\r\n  GetTimeZoneInfo(ADateTime, bias, biasday, isDayLight);\r\n\r\n  if isDayLight then\r\n    Result := MilliSecondsBetween(IncHour(ADateTime, (bias + biasday) div 60), UnixStartDate)\r\n  else\r\n    Result := MilliSecondsBetween(IncHour(ADateTime, bias div 60), UnixStartDate)\r\nend;\r\n\r\nclass function TTMSFNCUtils.DateTimeToUTC(const ADateTime: TDateTime): string;\r\nvar\r\n  da,mo,ye,ho,mi,se,ms:word;\r\n  bias: Integer;\r\n  biasday: Integer;\r\n  isDayLight: Boolean;\r\n\r\n  function IntToZStr(i,l: Integer):string;\r\n  var\r\n    Res: string;\r\n  begin\r\n    Res := IntToStr(i);\r\n    while Length(Res)<l do\r\n      Res := '0' + Res;\r\n\r\n    Result := Res;\r\n  end;\r\nbegin\r\n  bias := 0;\r\n  biasday := 0;\r\n  isDayLight := False;\r\n  GetTimeZoneInfo(ADateTime, bias, biasday, isDayLight);\r\n\r\n  DecodeDate(ADateTime,ye,mo,da);\r\n  DecodeTime(ADateTime,ho,mi,se,ms);\r\n  Result := IntToStr(ye) + '-' + IntToZStr(mo,2) + '-' + IntToZStr(da,2) + 'T' +\r\n            IntToZStr(ho,2) + ':' + IntToZStr(mi,2) + ':' + IntToZStr(se,2);\r\n\r\n  if isDayLight then\r\n  begin\r\n    if (bias) <= 0 then\r\n      Result := Result + '+' + IntToZStr((-bias - biasday) div 60,2) + ':00'\r\n    else\r\n      Result := Result + '-' + IntToZStr((bias + biasday) div 60,2) + ':00';\r\n  end\r\n  else\r\n  begin\r\n    if Bias <> 0 then\r\n    begin\r\n      if Bias <= 0 then\r\n        Result := Result + '+' + IntToZStr((-bias) div 60,2) + ':00'\r\n      else\r\n        Result := Result + '-' + IntToZStr((bias) div 60,2) + ':00';\r\n    end\r\n    else\r\n      Result := Result + '+00:00';\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.ISOToDate(const AISOString: string): TDate;\r\nvar\r\n  da,mo,ye: Word;\r\n  err: Integer;\r\n  s: string;\r\nbegin\r\n  s := AISOString;\r\n  Val(Copy(s,1,4),ye,err);\r\n  Val(Copy(s,6,2),mo,err);\r\n  Val(Copy(s,9,2),da,err);\r\n\r\n  if ye < 1 then\r\n    ye := 1;\r\n  if mo < 1 then\r\n    mo := 1;\r\n  if da < 1 then\r\n    da := 1;\r\n\r\n  Result := EncodeDate(ye,mo,da) + EncodeTime(0,0,0,0);\r\nend;\r\n\r\n{$HINTS OFF}\r\nclass function TTMSFNCUtils.ISOToDateTime(const AISOString: string; AIsUTC: Boolean): TDateTime;\r\nconst\r\n  STimePrefix: Char = 'T';\r\nvar\r\n  TimeString, DateString: string;\r\n  TimePosition, SignPosition: Integer;\r\n  da,mo,ye,ho,mi,se: Word;\r\n  HourOffset, MinuteOffset: Integer;\r\n  err: Integer;\r\n  sign: string;\r\n  s: string;\r\n  dt, dtt: TDateTime;\r\n\r\n  function AdjustDateTime(const ADate: TDateTime; AHourOffset, AMinuteOffset:Integer): TDateTime;\r\n  var\r\n    AdjustDT: TDateTime;\r\n    BiasLocal: Int64;\r\n    BiasTime: Int64;\r\n    BiasHour: Integer;\r\n    BiasMins: Integer;\r\n    BiasDT: TDateTime;\r\n    {$IFNDEF LCLWEBLIB}\r\n    TZ: TTimeZone;\r\n    {$ENDIF}\r\n    {$IFDEF LCLLIB}\r\n    {$IFDEF MSWINDOWS}\r\n    TZ: TTimeZoneInformation;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n  begin\r\n    Result := ADate;\r\n    if AIsUTC then\r\n    begin\r\n      { If we have an offset, adjust time to go back to UTC }\r\n      if (AHourOffset <> 0) or (AMinuteOffset <> 0) then\r\n      begin\r\n        AdjustDT := EncodeTime(Abs(AHourOffset), Abs(AMinuteOffset), 0, 0);\r\n        if ((AHourOffset * MinsPerHour) + AMinuteOffset) > 0 then\r\n          Result := Result - AdjustDT\r\n        else\r\n          Result := Result + AdjustDT;\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      {$IFNDEF LCLWEBLIB}\r\n      TZ := TTimeZone.Local;\r\n      BiasLocal := Trunc(TZ.GetUTCOffset(Result).Negate.TotalMinutes);\r\n      {$ENDIF}\r\n      {$IFDEF LCLLIB}\r\n      {$IFDEF MSWINDOWS}\r\n      GetTimeZoneInformation(TZ);\r\n      BiasLocal := TZ.Bias;\r\n      {$ENDIF}\r\n      {$IFDEF UNIX}\r\n      BiasLocal := -Tzseconds div 60;\r\n      {$ENDIF}\r\n      {$ENDIF}\r\n      {$IFDEF WEBLIB}\r\n      asm\r\n        var dt = new Date();\r\n        BiasLocal = dt.getTimezoneOffset();\r\n      end;\r\n      {$ENDIF}\r\n\r\n      BiasTime  := (AHourOffset * MinsPerHour) + AMinuteOffset;\r\n      if (BiasLocal + BiasTime) = 0 then\r\n        Exit;\r\n\r\n      BiasLocal := BiasLocal + BiasTime;\r\n      BiasHour := Abs(BiasLocal) div MinsPerHour;\r\n      BiasMins := Abs(BiasLocal) mod MinsPerHour;\r\n      BiasDT := EncodeTime(BiasHour, BiasMins, 0, 0);\r\n      if (BiasLocal > 0) then\r\n        Result := Result - BiasDT\r\n      else\r\n        Result := Result + BiasDT;\r\n    end;\r\n  end;\r\nbegin\r\n  Result := 0;\r\n\r\n  s := AISOString;\r\n\r\n  HourOffset := 0;\r\n  MinuteOffset := 0;\r\n  TimePosition := Pos(STimePrefix, s);\r\n  if TimePosition >= 0 then\r\n  begin\r\n    DateString := Copy(s, 0, TimePosition);\r\n    TimeString := Copy(s, TimePosition + 1, Length(s));\r\n  end;\r\n\r\n  Val(Copy(s,1,4),ye,err);\r\n  if err > 0 then\r\n    Exit;\r\n\r\n  Val(Copy(s,6,2),mo,err);\r\n  if err > 0 then\r\n    Exit;\r\n\r\n  Val(Copy(s,9,2),da,err);\r\n  if err > 0 then\r\n    Exit;\r\n\r\n  Val(Copy(s,12,2),ho,err);\r\n  if err > 0 then\r\n    Exit;\r\n\r\n  Val(Copy(s,15,2),mi,err);\r\n  if err > 0 then\r\n    Exit;\r\n\r\n  Val(Copy(s,18,2),se,err);\r\n  if err > 0 then\r\n    Exit;\r\n\r\n  if ye < 1 then\r\n    ye := 1;\r\n  if mo < 1 then\r\n    mo := 1;\r\n  if da < 1 then\r\n    da := 1;\r\n\r\n  //Get TimeOffset from Iso string\r\n  if Pos('.', s) > 0 then\r\n    SignPosition := 24\r\n  else\r\n    SignPosition := 20;\r\n\r\n  if Length(s) > SignPosition then\r\n  begin\r\n    sign := Copy(s,SignPosition,1);\r\n\r\n    if (sign = '-') or (sign = '+') then\r\n    begin\r\n      Val(Copy(s,SignPosition + 1,2), HourOffset, err);\r\n      if err > 0 then\r\n        Exit;\r\n\r\n      Val(Copy(s,SignPosition + 4,2), MinuteOffset, err);\r\n      if err > 0 then\r\n        Exit;\r\n\r\n      if sign = '-' then\r\n      begin\r\n        HourOffset := HourOffset * -1;\r\n        MinuteOffset := MinuteOffset * -1;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  if TryEncodeDate(ye, mo, da, dt) and TryEncodeTime(ho, mi, se, 0, dtt) then\r\n  begin\r\n    Result := dt + dtt;\r\n    Result := AdjustDateTime(Result, HourOffset, MinuteOffset);\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nclass function TTMSFNCUtils.DateToISO(const ADate: TDate; AAddDelimiters: Boolean = False): string;\r\nvar\r\n  da, mo, ye: Word;\r\n  dd: string;\r\n\r\n  function IntToZStr(i, l: Integer): string;\r\n  var\r\n    Res: string;\r\n  begin\r\n    Res := IntToStr(i);\r\n    while Length(Res) < l do\r\n      Res := '0' + Res;\r\n\r\n    Result := Res;\r\n  end;\r\nbegin\r\n  if AAddDelimiters then\r\n    dd := '-';\r\n\r\n  DecodeDate(ADate, ye, mo, da);\r\n\r\n  Result := IntToZStr(ye,4) + dd + IntToZStr(mo,2) + dd + IntToZStr(da,2);;\r\nend;\r\n\r\nclass function TTMSFNCUtils.DateTimeToISO(const ADateTime: TDateTime; AAddDelimiters: Boolean = False; AAddMilliSeconds: Boolean = False): string;\r\nvar\r\n  da, mo, ye, ho, mi, se, ms: Word;\r\n  dd, td, msec: string;\r\n\r\n  function IntToZStr(i, l: Integer): string;\r\n  var\r\n    Res: string;\r\n  begin\r\n    Res := IntToStr(i);\r\n    while Length(Res) < l do\r\n      Res := '0' + Res;\r\n\r\n    Result := Res;\r\n  end;\r\nbegin\r\n  if AAddDelimiters then\r\n  begin\r\n    dd := '-';\r\n    td := ':';\r\n  end;\r\n\r\n  DecodeDate(ADateTime, ye, mo, da);\r\n  DecodeTime(ADateTime, ho, mi, se, ms);\r\n\r\n  if AAddMilliSeconds then\r\n    msec := '.' + IntToZStr(ms, 3) + 'Z';\r\n\r\n  Result := IntToZStr(ye,4) + dd + IntToZStr(mo,2) + dd + IntToZStr(da,2) + 'T' +\r\n            IntToZStr(ho,2) + td + IntToZStr(mi,2) + td + IntToZStr(se,2) + msec;\r\nend;\r\n{$ENDIF}\r\n\r\n\r\nclass function TTMSFNCUtils.GetBestDelimiter(ALine1, Aline2: string; ACheckDecimalSeperator: Boolean = True): Char;\r\nconst\r\n  CSVSeparators: array[1..10] of char = (',',';','#',#9,'|','@','*','-','+','&');\r\nvar\r\n  I: Integer;\r\n  parts1, parts2: Integer;\r\n  maxParts, maxBackup: integer;\r\n  Del, DelBackup, SplitChar: char;\r\n  s: TStringList;\r\nbegin\r\n  Del := #0;\r\n  DelBackup := ',';\r\n  parts2 := -1;\r\n  maxParts := 0;\r\n  maxBackup := 0;\r\n\r\n  for I := 1 to Length(CSVSeparators)  do\r\n  begin\r\n    SplitChar := CSVSeparators[I];\r\n    s := TStringList.Create;\r\n    try\r\n      TTMSFNCUtils.Split(SplitChar, ALine1, s);\r\n      parts1 := s.Count;\r\n\r\n      if (Aline2 <> '') then\r\n      begin\r\n        TTMSFNCUtils.Split(SplitChar, ALine2, s);\r\n        parts2 := s.Count;\r\n      end;\r\n      if not ACheckDecimalSeperator or (SplitChar <> FormatSettings.DecimalSeparator) then\r\n      begin\r\n        if (parts2 > 0) and (parts1 = parts2) then\r\n        begin\r\n          if (parts1 > maxParts) then\r\n          begin\r\n            Del := SplitChar;\r\n            maxParts := parts1;\r\n          end;\r\n        end\r\n        else\r\n        begin\r\n          if (parts1 > maxBackup) then\r\n          begin\r\n            DelBackup := SplitChar;\r\n            maxBackup := parts1;\r\n          end;\r\n        end;\r\n      end;\r\n    finally\r\n      s.Free;\r\n    end;\r\n  end;\r\n\r\n  if Del <> #0 then\r\n    Result := Del\r\n  else\r\n    Result := DelBackup;\r\nend;\r\n\r\nclass function TTMSFNCUtils.DownloadImage(AURL: string): TMemoryStream;\r\n{$IFDEF LCLLIB}\r\nbegin\r\n  try\r\n    Result := TMemoryStream.Create;\r\n    TFPHTTPClient.SimpleGet(AURL, Result);\r\n  finally\r\n  end;\r\n{$ENDIF}\r\n{$IFNDEF LCLLIB}\r\n{$IFDEF MACOS}\r\nvar\r\n  req: NSMutableURLRequest;\r\n  nurl: NSURL;\r\n  res: Pointer;\r\n  resdata: NSData;\r\nbegin\r\n  Result := TMemoryStream.Create;\r\n  try\r\n    nurl := TNSURL.Wrap(TNSURL.OCClass.URLWithString(TTMSFNCUtils.NSStrEx(AURL)));\r\n    req := TNSMutableURLRequest.Wrap(TNSMutableURLRequest.OCClass.requestWithURL(nurl, NSURLRequestUseProtocolCachePolicy, 60.0));\r\n    req.setHTTPMethod(TTMSFNCUtils.NSStrEx('GET'));\r\n\r\n    res := nil;\r\n    resdata := TNSURLConnection.OCClass.sendSynchronousRequest(req, @res, nil);\r\n    if Assigned(resdata) and Assigned(res) then\r\n    begin\r\n      if not UTF8ToString(TNSString.Wrap(TNSHTTPURLResponse.Wrap(res).allHeaderFields.valueForKey(TTMSFNCUtils.NSStrEx('Content-Type'))).UTF8String).StartsWith('image/') then\r\n        Exit;\r\n\r\n      {$HINTS OFF}\r\n      {$IF COMPILERVERSION > 31}\r\n      Result.Write(resdata.bytes^, resdata.length);\r\n      {$ELSE}\r\n      Result.Write(resdata.bytes, resdata.length);\r\n      {$IFEND}\r\n      {$HINTS ON}\r\n    end;\r\n  finally\r\n  end;\r\n{$ELSE}\r\n{$IFDEF ANDROID}\r\n  var\r\n    urlCon: JHttpURLConnection;\r\n    u: JURL;\r\n    r: Integer;\r\n    data: TJavaArray<Byte>;\r\n    bs: JByteArrayOutputStream;\r\n    ip: JInputStream;\r\n  begin\r\n    Result := TMemoryStream.Create;\r\n    try\r\n      u := TJURL.JavaClass.init(StringToJString(AURL));\r\n      urlCon := TJHttpURLConnection.Wrap((u.openConnection as ILocalObject).GetObjectID);\r\n      urlCon.setDoInput(True);\r\n      urlCon.setDoOutput(False);\r\n      urlCon.setRequestMethod(StringToJString('GET'));\r\n\r\n      if not urlCon.getHeaderField(StringToJString('Content-Type')).startsWith(StringToJString('image/')) then\r\n        Exit;\r\n\r\n      if (urlCon.getResponseCode in [200, 201]) then\r\n      begin\r\n        bs := TJByteArrayOutputStream.JavaClass.init;\r\n        ip := urlCon.getInputStream;\r\n        r := ip.read();\r\n        while r <> -1 do\r\n        begin\r\n          bs.write(r);\r\n          r := ip.read();\r\n        end;\r\n\r\n        data := bs.toByteArray;\r\n        Result :=  TMemoryStream.Create;\r\n        Result.WriteBuffer(data.Data^, bs.size);\r\n        bs.close;\r\n      end;\r\n    finally\r\n    end;\r\n{$ELSE}\r\n{$IFDEF LINUX}\r\n{$IFDEF FMXLIB}\r\nvar\r\n  r: PCURL;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  FDownloadStream := TMemoryStream.Create;\r\n  Result := FDownloadStream;\r\n  curl_global_init(CURL_GLOBAL_DEFAULT);\r\n  r := curl_easy_init;\r\n\r\n  curl_easy_setopt(r, CURLOPT_CERTINFO, 1);\r\n  curl_easy_setopt(r, CURLOPT_TCP_KEEPALIVE, 1);\r\n  curl_easy_setopt(r, CURLOPT_NOPROGRESS, 1);\r\n  curl_easy_setopt(r, CURLOPT_CONNECTTIMEOUT_MS, LongInt(60000));\r\n  curl_easy_setopt(r, CURLOPT_TIMEOUT_MS, LongInt(120000));\r\n  curl_easy_setopt(r, CURLOPT_WRITEFUNCTION, @CurlReadData);\r\n  curl_easy_setopt(r, CURLOPT_WRITEDATA, Self);\r\n\r\n  curl_easy_setopt(r, CURLOPT_URL, UTF8String(AURL));\r\n\r\n  curl_easy_setopt(r, CURLOPT_CUSTOMREQUEST, PUTF8Char(UTF8String('GET')));\r\n\r\n  curl_easy_perform(r);\r\n\r\n  curl_easy_cleanup(r);\r\n\r\n  curl_global_cleanup;\r\n  {$ELSE}\r\n  Result := TMemoryStream.Create;\r\n  {$ENDIF}\r\n{$ELSE}\r\n{$IFNDEF WEBLIB}\r\nvar\r\n  UrlHandle: HINTERNET;\r\n  Buffer: array[0..1024] of AnsiChar;\r\n  BytesRead: DWORD;\r\n  lpdwlen,lpdwidx,lpdword: DWORD;\r\n  cbuf: array[0..255] of char;\r\n  p: Pointer;\r\nbegin\r\n  Result := TMemoryStream.Create;\r\n\r\n  p := InternetOpen('TTMSFNCUtils', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);\r\n\r\n  if Assigned(p) then\r\n  begin\r\n    UrlHandle := InternetOpenUrl(p, PChar(AURL), nil, 0, INTERNET_FLAG_PRAGMA_NOCACHE or INTERNET_FLAG_NO_CACHE_WRITE or INTERNET_FLAG_RELOAD, 0);\r\n\r\n    if Assigned(UrlHandle) then\r\n    begin\r\n      lpdwlen := SizeOf(cbuf);\r\n      lpdwidx := 0;\r\n      HttpQueryInfo(UrlHandle, HTTP_QUERY_CONTENT_TYPE,@cbuf,lpdwlen,lpdwidx);\r\n\r\n      if Pos('IMAGE',UpperCase(StrPas(cbuf))) = 0 then\r\n      begin\r\n        InternetCloseHandle(UrlHandle);\r\n        Exit;\r\n      end;\r\n\r\n      lpdword := 0;\r\n      lpdwlen := 4;\r\n      lpdwidx := 0;\r\n\r\n      HttpQueryInfo(URLHandle,HTTP_QUERY_CONTENT_LENGTH,@lpdword,lpdwlen,lpdwidx);\r\n\r\n      try\r\n        FillChar(Buffer, SizeOf(Buffer), 0);\r\n        repeat\r\n          FillChar(Buffer, SizeOf(Buffer), 0);\r\n          InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);\r\n          Result.Write(buffer, bytesread);\r\n        until BytesRead = 0;\r\n      finally\r\n      end;\r\n      InternetCloseHandle(UrlHandle);\r\n    end\r\n    else\r\n      raise Exception.CreateFmt('Cannot open URL %s', [AUrl]);\r\n  end\r\n  else\r\n    raise Exception.Create('Unable to initialize Wininet');\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\nbegin\r\n  Result := nil;\r\n{$ENDIF}\r\n{$ENDIF}\r\n{$ENDIF}\r\n{$ENDIF}\r\n{$ENDIF}\r\nend;\r\n\r\n{$HINTS OFF}\r\n{$WARNINGS OFF}\r\n{$IFDEF LCLLIB}\r\n{$IF FPC_FULLVERSION = 30200}\r\ngeneric class function TTMSFNCUtils.IfElse<T>(ACondition: Boolean; AResultTRUE,\r\n  AResultFALSE: T): T;\r\nbegin\r\n  if ACondition then\r\n    Result := AResultTRUE\r\n  else\r\n    Result := AResultFALSE;\r\nend;\r\n{$IFEND}\r\n{$ENDIF}\r\n{$HINTS ON}\r\n{$WARNINGS ON}\r\n\r\n{$IFNDEF LCLLIB}\r\nclass function TTMSFNCUtils.IfElse<T>(ACondition: Boolean; AResultTRUE,\r\n  AResultFALSE: T): T;\r\nbegin\r\n  if ACondition then\r\n    Result := AResultTRUE\r\n  else\r\n    Result := AResultFALSE;\r\nend;\r\n{$ENDIF}\r\n\r\nclass function TTMSFNCUtils.IndexOfTextInArray(const AText: string; const AValues: array of string): Integer;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := -1;\r\n  for I := Low(AValues) to High(AValues) do\r\n    if SameText(AText, AValues[I]) then\r\n    begin\r\n      if (pos('cute', AText) > 0) or (pos('grave', AText) > 0) or (pos('uml', AText) > 0) or (pos('circ', AText) > 0) or (pos('tilde', AText) > 0) or (pos('ring', AText) > 0) or (pos('cedil', AText) > 0) then\r\n      begin\r\n        if (AText = AValues[I]) then\r\n        begin\r\n          Result := I;\r\n          Break;\r\n        end;\r\n      end\r\n      else\r\n      begin\r\n        Result := I;\r\n        Break;\r\n      end;\r\n    end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.GetMarkupIndex(const Markup: string): integer;\r\nbegin\r\n  Result := IndexOfTextInArray(Markup, HTMLSpecialChar);\r\nend;\r\n\r\nclass function TTMSFNCUtils.GetSpecialChar(const Value: integer): UnicodeString;\r\nbegin\r\n  Result := HTMLEncodedChar[Value];\r\nend;\r\n\r\nclass function TTMSFNCUtils.GetStrIdx(AValue: string; AArray: array of string; ACaseSensitive: Boolean; AExpression: Boolean = True): Integer;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := -1;\r\n  for I := Low(AArray) to High(AArray) do\r\n  begin\r\n    if not AExpression then\r\n    begin\r\n      if (ACaseSensitive and (AValue = AArray[I])) or ((ACaseSensitive = False) and (UpperCase(AValue) = UpperCase(AArray[I]))) then\r\n      begin\r\n        Result := I;\r\n        Break;\r\n      end;\r\n    end\r\n    else if MatchStr(AValue, AArray[I], ACaseSensitive) then\r\n    begin\r\n      Result := I;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.UnFixMarkup(su:string;SpecialChars: boolean = true; SpecialCharsOnly: Boolean = False):string;\r\nvar\r\n  i: integer;\r\nbegin\r\n  if not SpecialCharsOnly then\r\n  begin\r\n    while Pos('&lt;',su) > 0 do\r\n    begin\r\n      TagReplacestring('&lt;','<',su);\r\n    end;\r\n\r\n    while Pos('&gt;',su) > 0 do\r\n    begin\r\n      TagReplacestring('&gt;','>',su);\r\n    end;\r\n\r\n    while Pos('&amp;',su) > 0 do\r\n    begin\r\n      TagReplacestring('&amp;','&',su);\r\n    end;\r\n\r\n    while Pos('&quot;',su) > 0 do\r\n    begin\r\n      TagReplacestring('&quot;','\"',su);\r\n    end;\r\n  end;\r\n\r\n  if SpecialChars then\r\n  begin\r\n    for i := 4 to HTMLNumSpecialChar do\r\n    begin\r\n      while Pos(string(HTMLSpecialChar[i]),su) > 0 do\r\n      begin\r\n        TagReplacestring(string(HTMLSpecialChar[i]),string(HTMLEncodedChar[i]),su);\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  Result := su;\r\nend;\r\n\r\nclass function TTMSFNCUtils.FixMarkup(su:string;SpecialChars: boolean = true): string;\r\nvar\r\n  i: integer;\r\n  res: string;\r\n  {$IFNDEF LCLLIB}\r\n  ch: char;\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ch: PChar;\r\n  unicode: cardinal;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF LCLLIB}\r\n  function UTF8CodepointToUnicode(p: PChar; out CodepointLen: integer): Cardinal;\r\n  { if p=nil then CodepointLen=0 otherwise CodepointLen>0\r\n    If there is an encoding error the Result is 0 and CodepointLen=1.\r\n    Use UTF8FixBroken to fix UTF-8 encoding.\r\n    It does not check if the codepoint is defined in the Unicode tables.\r\n  }\r\n  begin\r\n    if p<>nil then begin\r\n      if ord(p^)<%11000000 then begin\r\n        // regular single byte character (#0 is a normal char, this is pascal ;)\r\n        Result:=ord(p^);\r\n        CodepointLen:=1;\r\n      end\r\n      else if ((ord(p^) and %11100000) = %11000000) then begin\r\n        // starts with %110 => could be double byte character\r\n        if (ord(p[1]) and %11000000) = %10000000 then begin\r\n          CodepointLen:=2;\r\n          Result:=((ord(p^) and %00011111) shl 6) or (ord(p[1]) and %00111111);\r\n          if Result<(1 shl 7) then begin\r\n            // wrong encoded, could be an XSS attack\r\n            Result:=0;\r\n          end;\r\n        end else begin\r\n          Result:=ord(p^);\r\n          CodepointLen:=1;\r\n        end;\r\n      end\r\n      else if ((ord(p^) and %11110000) = %11100000) then begin\r\n        // starts with %1110 => could be triple byte character\r\n        if ((ord(p[1]) and %11000000) = %10000000)\r\n        and ((ord(p[2]) and %11000000) = %10000000) then begin\r\n          CodepointLen:=3;\r\n          Result:=((ord(p^) and %00011111) shl 12)\r\n                  or ((ord(p[1]) and %00111111) shl 6)\r\n                  or (ord(p[2]) and %00111111);\r\n          if Result<(1 shl 11) then begin\r\n            // wrong encoded, could be an XSS attack\r\n            Result:=0;\r\n          end;\r\n        end else begin\r\n          Result:=ord(p^);\r\n          CodepointLen:=1;\r\n        end;\r\n      end\r\n      else if ((ord(p^) and %11111000) = %11110000) then begin\r\n        // starts with %11110 => could be 4 byte character\r\n        if ((ord(p[1]) and %11000000) = %10000000)\r\n        and ((ord(p[2]) and %11000000) = %10000000)\r\n        and ((ord(p[3]) and %11000000) = %10000000) then begin\r\n          CodepointLen:=4;\r\n          Result:=((ord(p^) and %00001111) shl 18)\r\n                  or ((ord(p[1]) and %00111111) shl 12)\r\n                  or ((ord(p[2]) and %00111111) shl 6)\r\n                  or (ord(p[3]) and %00111111);\r\n          if Result<(1 shl 16) then begin\r\n            // wrong encoded, could be an XSS attack\r\n            Result:=0;\r\n          end;\r\n        end else begin\r\n          Result:=ord(p^);\r\n          CodepointLen:=1;\r\n        end;\r\n      end\r\n      else begin\r\n        // invalid character\r\n        Result:=ord(p^);\r\n        CodepointLen:=1;\r\n      end;\r\n    end else begin\r\n      Result:=0;\r\n      CodepointLen:=0;\r\n    end;\r\n  end;\r\n\r\n  {$ENDIF}\r\nbegin\r\n  while Pos('&',su) > 0 do\r\n  begin\r\n    TagReplacestring('&','*amp;',su);\r\n  end;\r\n\r\n  while Pos('*amp;',su) > 0 do\r\n  begin\r\n    TagReplacestring('*amp;','&amp;',su);\r\n  end;\r\n\r\n  while Pos('\"',su) > 0 do\r\n  begin\r\n    TagReplacestring('\"','&quot;',su);\r\n  end;\r\n\r\n  while Pos('<',su) > 0 do\r\n  begin\r\n    TagReplacestring('<','&lt;',su);\r\n  end;\r\n\r\n  while Pos('>',su) > 0 do\r\n  begin\r\n    TagReplacestring('>','&gt;',su);\r\n  end;\r\n\r\n  if SpecialChars then\r\n  begin\r\n    for i := 4 to HTMLNumSpecialChar do\r\n    begin\r\n      while Pos(string(HTMLEncodedChar[i]),su) > 0 do\r\n      begin\r\n        TagReplacestring(string(HTMLEncodedChar[i]),string(HTMLSpecialChar[i]),su);\r\n      end;\r\n    end;\r\n\r\n    res := '';\r\n\r\n    {$IFDEF LCLLIB}\r\n    ch := PChar(su);\r\n    repeat\r\n      unicode := UTF8CodepointToUnicode(ch,i);\r\n\r\n      if unicode > 256 then\r\n        res := res + '&#' + IntToStr(unicode)+ ';'\r\n      else\r\n        if unicode > 0 then\r\n        res := res + Chr(unicode);\r\n\r\n      inc(ch,i);\r\n    until (i = 0) or (unicode = 0);\r\n    {$ENDIF}\r\n\r\n    {$IFNDEF LCLLIB}\r\n    for i := 1 to Length(su) do\r\n    begin\r\n      ch := CharInStr(su, i);\r\n      if ord(ch) > 256 then\r\n        res := res + '&#'+IntToStr(ord(ch))+';'\r\n      else\r\n        res := res + ch;\r\n    end;\r\n    {$ENDIF}\r\n\r\n    su := res;\r\n  end;\r\n\r\n  Result := su;\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\nclass function TTMSFNCUtils.GetImageType(ABitmap: TTMSFNCBitmap; AResetPosition: Boolean = True): string;\r\nvar\r\n  ms: TMemoryStream;\r\nbegin\r\n  ms := TMemoryStream.Create;\r\n  try\r\n    ABitmap.SaveToStream(ms);\r\n    Result := TTMSFNCUtils.GetImageType(ms);\r\n  finally\r\n    ms.Free;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nclass function TTMSFNCUtils.GetImageType(AData: TStream; AResetPosition: Boolean = True): string;\r\n{$IFDEF WEBLIB}\r\nbegin\r\n  Result := '';\r\n  raise Exception.Create('Implement GetImageType');\r\n{$ENDIF}\r\n{$IFNDEF WEBLIB}\r\nvar\r\n  LBuffer : array[0..4] of byte;\r\n  I: Integer;\r\n  LOldPos: Int64;\r\n\r\ntype\r\n  TImageData = record\r\n    DataType: String;\r\n    Length: Integer;\r\n    Header: array[0..3] of Byte;\r\n  end;\r\nconst\r\n  MaxImageDataLength = 4;\r\n  ImageData: array[0..13] of TImageData = (\r\n    (DataType: '.gif';  Length: 3; Header: (71,73,70,0)),\r\n    (DataType: '.bmp';  Length: 2; Header: (66,77,0,0)),\r\n    (DataType: '.png';  Length: 4; Header: (137,80,78,71)),\r\n    (DataType: '.tiff'; Length: 3; Header: (73,73,42,0)),\r\n    (DataType: '.tiff'; Length: 3; Header: (77,77,42,0)),\r\n    (DataType: '.jpg';  Length: 4; Header: (255,216,255,229)),\r\n    (DataType: '.jpg';  Length: 4; Header: (255,216,255,224)),\r\n    (DataType: '.jpg';  Length: 4; Header: (255,216,255,225)),\r\n    (DataType: '.jpg';  Length: 4; Header: (255,216,255,226)),\r\n    (DataType: '.jpg';  Length: 4; Header: (255,216,255,219)),\r\n    (DataType: '.psd'; Length: 4; Header: (56, 66, 80, 83)),\r\n    (DataType: '.webp'; Length: 4; Header: (82, 73, 70, 70)),\r\n    (DataType: '.unknown';  Length: 4; Header: (0,0,1,0)),\r\n    (DataType: '.empty';  Length: 4; Header: (0,0,0,0))\r\n  );\r\nbegin\r\n  Result := '';\r\n  LOldPos := AData.Position;\r\n  try\r\n    if AResetPosition then\r\n      AData.Position := 0;\r\n\r\n    if AData.Read(LBuffer[0], MaxImageDataLength) = MaxImageDataLength then\r\n    begin\r\n      for I := Low(ImageData) to High(ImageData) do\r\n      begin\r\n        if (CompareMem(@ImageData[I].Header[0], @LBuffer[0], ImageData[i].Length) ) then\r\n        begin\r\n          Result := ImageData[I].DataType;\r\n          break;\r\n        end;\r\n      end;\r\n    end;\r\n  finally\r\n    AData.Position := LOldPos;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCUtils.FormatBytesAsString(ASize: Extended): String;\r\nconst\r\n  Measure: Array[0..4] of String = ('Bytes', 'KB', 'MB', 'GB', 'TB');\r\nvar\r\n  NewSize: Extended;\r\n  i: Integer;\r\nbegin\r\n  Result := '';\r\n\r\n  if ASize > -1 then\r\n  begin\r\n    i := 0;\r\n    NewSize := ASize;\r\n\r\n    while (NewSize >= 1024) do\r\n    begin\r\n      NewSize := NewSize / 1024;\r\n      Inc(i);\r\n    end;\r\n\r\n    case i of\r\n      0: Result := FloatToStr(NewSize);\r\n      1, 2, 3, 4: Result := FormatFloat('0.00', NewSize);\r\n    else\r\n      Result := FloatToStr(NewSize);\r\n    end;\r\n\r\n    Result := Result + #32 + Measure[i];\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.GetOwnerForm(AComponent: TComponent): TCustomForm;\r\nvar\r\n  c: TComponent;\r\nbegin\r\n  Result := nil;\r\n  c := AComponent;\r\n  if not Assigned(c) then\r\n    Exit;\r\n\r\n  if c.Owner is TCustomForm then\r\n    Result := c.Owner as TCustomForm\r\n  else\r\n    Result := GetOwnerForm(c.Owner);\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nclass function TTMSFNCUtils.GetParentForm(AControl: TFMXObject): TCustomForm;\r\nvar\r\n  c: TFMXObject;\r\n{$ENDIF}\r\n{$IFDEF CMNLIB}\r\nclass function TTMSFNCUtils.GetParentForm(AControl: TControl): TCustomForm;\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\nclass function TTMSFNCUtils.GetParentForm(AControl: TControl): TCustomForm;\r\nvar\r\n  c: TControl;\r\n{$ENDIF}\r\nbegin\r\n{$IFDEF FMXLIB}\r\n  Result := nil;\r\n  c := AControl;\r\n  if not Assigned(c) then\r\n    Exit;\r\n\r\n  if c.Parent is TCustomForm then\r\n    Result := c.Parent as TCustomForm\r\n  else\r\n    Result := GetParentForm(c.Parent);\r\n{$ENDIF}\r\n{$IFDEF CMNLIB}\r\n  {$IFDEF VCLLIB}\r\n  Result := VCL.Forms.GetParentForm(AControl);\r\n  {$ELSE}\r\n  Result := Forms.GetParentForm(AControl);\r\n  {$ENDIF}\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\n  Result := nil;\r\n  c := AControl;\r\n  if not Assigned(c) then\r\n    Exit;\r\n\r\n  if c.Parent is TCustomForm then\r\n    Result := c.Parent as TCustomForm\r\n  else\r\n    Result := GetParentForm(c.Parent);\r\n{$ENDIF}\r\nend;\r\n\r\n{$IFDEF VCLLIB}\r\nfunction CalculateDPIScale(Scaled: boolean; AHDC: HDC): single; overload;\r\nvar\r\n  FDPI: integer;\r\nbegin\r\n  Result:= 1.0;\r\n  if Scaled then\r\n  begin\r\n    if AHDC = 0 then\r\n      AHDC:= GetDC(0);\r\n    try\r\n      FDPI := GetDeviceCaps(AHDC, LOGPIXELSX);\r\n      if FDPI <> 96 then\r\n        Result:= FDPI / 96;\r\n    finally\r\n      if AHDC = 0 then\r\n        ReleaseDC(0, AHDC);\r\n    end;\r\n  end;\r\nend;\r\n\r\ntype\r\n  TDPIControlProtected = class(TControl);\r\n  TDPICustomFormProtected = class(TCustomForm);\r\n\r\nfunction CalculateDPIScale(AForm: TCustomForm; AHDC: HDC; ADefaultDPI: Integer = 0): single; overload;\r\nbegin\r\n  Result := 1.0;\r\n  if Assigned(AForm) then\r\n  begin\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION >= 31}\r\n    if Assigned(AForm) and TDPICustomFormProtected(AForm).Scaled then\r\n    begin\r\n      if ADefaultDPI > 0 then\r\n        Result := TDPICustomFormProtected(AForm).Monitor.PixelsPerInch / ADefaultDPI\r\n      else\r\n      begin\r\n        {$IF COMPILERVERSION > 34}\r\n        Result := TDPICustomFormProtected(AForm).Monitor.PixelsPerInch / AForm.PixelsPerInch\r\n        {$ELSE}\r\n        Result := TDPICustomFormProtected(AForm).Monitor.PixelsPerInch / 96\r\n        {$IFEND}\r\n      end;\r\n    end\r\n    else\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n      Result := CalculateDPIScale(TDPICustomFormProtected(AForm).Scaled, AHDC);\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nclass function TTMSFNCUtils.CharInStr(s: string; Index: Integer): Char;\r\nbegin\r\n  Result := #0;\r\n  if (Index > 0) and (Index <= Length(s)) then\r\n  begin\r\n    {$IFDEF ZEROSTRINGINDEX}\r\n    dec(Index);\r\n    {$ENDIF}\r\n    Result := s[Index]\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.Clone(AComponent: TComponent): TComponent;\r\n{$IFDEF WEBLIB}\r\nbegin\r\n  Result := nil;\r\n  raise Exception.Create('Implement Clone');\r\n{$ENDIF}\r\n{$IFNDEF WEBLIB}\r\nvar\r\n  S: TStream;\r\n  SaveName: string;\r\n  Reader: TReader;\r\nbegin\r\n  S := TMemoryStream.Create;\r\n  try\r\n    { store }\r\n    SaveName := AComponent.Name;\r\n    AComponent.Name := '';\r\n    S.WriteComponent(AComponent);\r\n    AComponent.Name := SaveName;\r\n    S.Position := 0;\r\n    { load }\r\n    try\r\n      Reader := TReader.Create(S, 4096);\r\n      try\r\n        Result := Reader.ReadRootComponent(nil);\r\n      finally\r\n        Reader.Free;\r\n      end;\r\n    finally\r\n    end;\r\n  finally\r\n    S.Free;\r\n  end;\r\n{$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCUtils.GetTempPath: string;\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  Result := '';\r\n  {$ELSE}\r\n  {$IFDEF LCLLIB}\r\n  Result := GetTempDir;\r\n  {$ELSE}\r\n  Result := TPath.GetTempPath;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nend;\r\nclass function TTMSFNCUtils.GetAppPath: String;\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  Result := 'file://'\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  Result := ExtractFilePath(ParamStr(0));\r\n  {$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCUtils.GetDocumentsPath: string;\r\n{$IFDEF VCLLIB}\r\nvar\r\n  szBuffer: array [0..MAX_PATH] of Char;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Result := TPath.GetDocumentsPath;\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  Result := GetUserDir + PathDelim + 'Documents';\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  OleCheck(SHGetFolderPath(0, $0005, 0, 0, szBuffer));\r\n  Result := szBuffer;\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Result := '';\r\n  {$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCUtils.GetMousePos: TPointF;\r\n{$IFDEF FMXLIB}\r\nvar\r\n  m: IFMXMouseService;\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\nvar\r\n  p: TPoint;\r\n{$ENDIF}\r\nbegin\r\n  Result := PointF(-1, -1);\r\n  {$IFDEF FMXLIB}\r\n  if TPlatformServices.Current.SupportsPlatformService(IFMXMouseService, IInterface(m)) then\r\n    Result := m.GetMousePos;\r\n  {$ENDIF}\r\n  {$IFDEF CMNLIB}\r\n  Result := PointF(Mouse.CursorPos.X, Mouse.CursorPos.Y);\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  p := WEBLib.Controls.GetMousePos;\r\n  Result := PointF(p.X, p.Y);\r\n  {$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCUtils.AddForwardslash(const AValue: string): string;\r\nbegin\r\n  {$IFDEF ZEROSTRINGINDEX}\r\n  if (Length(AValue) >= 1) and (AValue[Length(AValue) - 1] <> '/') then\r\n  {$ELSE}\r\n  if (Length(AValue) >= 1) and (AValue[Length(AValue)] <> '/') then\r\n  {$ENDIF}\r\n    Result := AValue + '/'\r\n  else\r\n    Result := AValue;\r\nend;\r\n\r\nclass function TTMSFNCUtils.AddBackslash(const AValue: string): string;\r\nbegin\r\n  {$IFDEF ZEROSTRINGINDEX}\r\n  if (Length(AValue) >= 1) and (AValue[Length(AValue) - 1] <> PthDel) then\r\n  {$ELSE}\r\n  if (Length(AValue) >= 1) and (AValue[Length(AValue)] <> PthDel) then\r\n  {$ENDIF}\r\n    Result := AValue + PthDel\r\n  else\r\n    Result := AValue;\r\nend;\r\n\r\nclass procedure TTMSFNCUtils.ScaleForDPI(AControl: TControl; ADPI: Integer);\r\nbegin\r\n  {$IFDEF VCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION >= 33}\r\n  if Assigned(AControl) then\r\n    AControl.ScaleForPPI(ADPI)\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\nend;\r\n\r\nclass procedure TTMSFNCUtils.ScaleForCurrentDPI(AForm: TCustomForm);\r\n{$IFDEF VCLLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION >= 33}\r\nvar\r\n  sc: Single;\r\n\r\n  procedure ScaleControlsForCurrentDPI(AControl: TControl);\r\n  var\r\n    I: Integer;\r\n    cw: TWinControl;\r\n    c: TDPIControlProtected;\r\n  begin\r\n    if AControl is TWinControl then\r\n    begin\r\n      cw := (AControl as TWinControl);\r\n      for I := 0 to cw.ControlCount - 1 do\r\n        ScaleControlsForCurrentDPI(cw.Controls[I]);\r\n    end;\r\n\r\n    if (AControl is TControl) and not (AControl is TCustomForm) then\r\n    begin\r\n      c := TDPIControlProtected(AControl);\r\n      c.Font.Height := TTMSFNCUtils.MulDivInt(c.Font.Height, 96, c.Font.PixelsPerInch);\r\n    end;\r\n  end;\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\nbegin\r\n  if Assigned(AForm) then\r\n  begin\r\n    {$IFDEF VCLLIB}\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION >= 33}\r\n    ScaleControlsForCurrentDPI(AForm);\r\n    TDPICustomFormProtected(AForm).ScaleForCurrentDPI;\r\n    if AForm.ClassName = 'TTMSFNCCustomPopupForm' then\r\n       Exit;\r\n\r\n    sc := TTMSFNCUtils.GetDPIScale(AForm, 96);\r\n    AForm.Width := Round(AForm.Width * sc);\r\n    AForm.Height := Round(AForm.Height * sc);\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.GetDPIScale(AOwner: TComponent = nil; ADefaultDPI: Integer = -1): Single;\r\n{$IFDEF FMXLIB}\r\n  {$IFDEF MSWINDOWS}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION >= 31}\r\nvar\r\n  frm: TCustomForm;\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\nvar\r\n  ScreenSvc: IFMXScreenService;\r\n  {$ENDIF}\r\n{$ENDIF}\r\n{$IFDEF VCLLIB}\r\nvar\r\n  frm: TCustomform;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Result := 1.0;\r\n  {$IFDEF MSWINDOWS}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION >= 31}\r\n  if Assigned(AOwner) and (AOwner is TCustomForm) then\r\n    Result := WindowHandleToPlatform((AOwner as TCustomForm).Handle).Scale\r\n  else if Assigned(AOwner) then\r\n  begin\r\n    frm := nil;\r\n    if AOwner is TControl then\r\n      frm := GetParentForm(AOwner as TControl);\r\n\r\n    if not Assigned(frm) then\r\n      frm := GetOwnerForm(AOwner);\r\n\r\n    if Assigned(frm) then\r\n      Result := WindowHandleToPlatform(frm.Handle).Scale;\r\n  end\r\n  else if Assigned(Application.MainForm) then\r\n    Result := WindowHandleToPlatform(Application.MainForm.Handle).Scale\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenSvc)) then\r\n    Result := ScreenSvc.GetScreenScale;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  Result := 1.0;\r\n  if Assigned(AOwner) and (AOwner is TCustomForm) and Assigned((AOwner as TCustomForm).Canvas) then\r\n    Result := CalculateDPIScale((AOwner as TCustomForm), (AOwner as TCustomForm).Canvas.Handle, ADefaultDPI)\r\n  else if Assigned(AOwner) then\r\n  begin\r\n    frm := nil;\r\n    if AOwner is TControl then\r\n      frm := GetParentForm(AOwner as TControl);\r\n\r\n    if not Assigned(frm) then\r\n      frm := GetOwnerForm(AOwner);\r\n\r\n    if Assigned(frm) and Assigned(frm.Canvas) then\r\n      Result := CalculateDPIScale(frm, frm.Canvas.Handle, ADefaultDPI);\r\n  end\r\n  else if Assigned(Application.MainForm) and Assigned(Application.MainForm.Canvas) then\r\n    Result := CalculateDPIScale(Application.MainForm, Application.MainForm.Canvas.Handle, ADefaultDPI)\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  {$IFDEF MSWINDOWS}\r\n  Result := Screen.PixelsPerInch / 96;\r\n  {$ENDIF}\r\n  {$IFDEF DARWIN}\r\n  Result := Screen.PixelsPerInch / 72;\r\n  {$ENDIF}\r\n  {$IFDEF LINUX}\r\n  Result := Screen.PixelsPerInch / 96;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Result := 1.0;\r\n  {$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCUtils.IsHighDPIScale({%H-}AOwner: TComponent = nil; ADefaultDPI: Integer = -1): Boolean;\r\nbegin\r\n  Result := GetDPIScale(AOwner, ADefaultDPI) > 1;\r\nend;\r\n\r\nclass function TTMSFNCUtils.IsHTMLUnicode(AValue: UnicodeString): Boolean;\r\nbegin\r\n  {$IFDEF LCLLIB}\r\n  Result := IsHTML(UTF8Encode(AValue));\r\n  {$ENDIF}\r\n  {$IFNDEF LCLLIB}\r\n  Result := IsHTML(AValue);\r\n  {$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCUtils.IsHTML(AValue: string): Boolean;\r\nbegin\r\n  Result := (Pos('</', AValue) > 0) or (Pos('/>', AValue)  > 0) or (Pos('<BR>', UpperCase(AValue)) > 0);\r\nend;\r\n\r\nclass procedure TTMSFNCUtils.OpenFile(AFile: string; AControlReference: TControl = nil);\r\n{$IFDEF ANDROID}\r\nvar\r\n  i: JIntent;\r\n  ext: string;\r\n  mm: JMimeTypeMap;\r\n  f: JFile;\r\n  u: Jnet_Uri;\r\n{$ENDIF}\r\n{$IFDEF IOS}\r\nvar\r\n  docController: UIDocumentInteractionController;\r\n  url: NSURL;\r\n  r: NSRect;\r\n  vw: UIView;\r\n  frm: TCommonCustomForm;\r\n  pt: TPointF;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  {$IFDEF LINUX}\r\n  FmuxOpenFile(PChar(AFile));\r\n  {$ENDIF}\r\n  {$IFDEF MACOS}\r\n  {$IFDEF IOS}\r\n  frm := Application.MainForm;\r\n  if Assigned(frm) then\r\n  begin\r\n    url := TNSURL.Wrap(TNSURL.OCClass.fileURLWithPath(NSStrEx(AFile)));\r\n    docController := TUIDocumentInteractionController.Wrap(TUIDocumentInteractionController.OCClass.interactionControllerWithURL(url));\r\n    docController.retain;\r\n    vw := WindowHandleToPlatform(frm.Handle).View;\r\n    if Assigned(AControlReference) then\r\n    begin\r\n      pt := AControlReference.LocalToAbsolute(AControlReference.Position.Point);\r\n      r.origin.x := pt.X;\r\n      r.origin.Y := pt.Y;\r\n      r.size.Width := AControlReference.Width;\r\n      r.size.Height := AControlReference.Height;\r\n    end\r\n    else\r\n    begin\r\n      r := vw.frame;\r\n      r.origin.x := (r.size.width - 1) / 2;\r\n      r.origin.y := (r.size.height - 1) / 2;\r\n      r.size.width := 1;\r\n      r.size.height := 1;\r\n    end;\r\n\r\n    docController.presentOpenInMenuFromRect(r, vw, TRUE);\r\n  end;\r\n  {$ELSE}\r\n  TNSWorkspace.Wrap(TNSWorkspace.OCClass.sharedWorkspace).openFile(NSStrEx(AFile));\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF ANDROID}\r\n  i := TJIntent.Create;\r\n  i.setAction(TJIntent.JavaClass.ACTION_VIEW);\r\n  f := TJFile.JavaClass.init(StringToJString(AFile));\r\n\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 33}\r\n  u := JFileToJURI(f);\r\n  {$ELSE}\r\n  u := TJnet_uri.JavaClass.fromFile(f);\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n\r\n  ext := StringReplace(ExtractFileExt(AFile).ToLower, '.', '', []);\r\n  mm := TJMimeTypeMap.JavaClass.getSingleton;\r\n\r\n  i.setFlags(TJIntent.JavaClass.FLAG_GRANT_READ_URI_PERMISSION);\r\n  i.setDataAndType(u, mm.getMimeTypeFromExtension(StringToJString(ext)));\r\n  SharedActivityEx.startActivity(i);\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFNDEF LCLLIB}\r\n  {$IFDEF MSWINDOWS}\r\n  ShellExecute(0,PChar('open'),PChar(AFile),PChar(''),PChar(''), SW_NORMAL);\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF LCLLIB}\r\n  OpenDocument(AFile);\r\n  {$ENDIF}\r\n\r\n  {$IFDEF WEBLIB}\r\n  {$IFDEF ELECTRON}\r\n  if isElectron then\r\n    ElectronShell.OpenItem(AFile);\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nend;\r\n\r\nclass procedure TTMSFNCUtils.OpenURL(AURL: string);\r\n{$IFDEF ANDROID}\r\nvar\r\n  i: JIntent;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  {$IFDEF LINUX}\r\n  FmuxOpenUrl(PChar(AURL));\r\n  {$ENDIF}\r\n  {$IFDEF MACOS}\r\n  {$IFDEF IOS}\r\n  TUIApplication.Wrap(TUIApplication.OCClass.sharedApplication).openURL(TNSURL.Wrap(TNSURL.OCClass.URLWithString(NSStrEx(AUrl))));\r\n  {$ELSE}\r\n  TNSWorkspace.Wrap(TNSWorkspace.OCClass.sharedWorkspace).openURL(TNSURL.Wrap(TNSURL.OCClass.URLWithString(NSStrEx(AUrl))));\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF ANDROID}\r\n  i := TJIntent.Create;\r\n  i.setAction(TJIntent.JavaClass.ACTION_VIEW);\r\n  i.setData(StrToJURI(AURL));\r\n  SharedActivityEx.startActivity(i);\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF LCLLIB}\r\n  LCLIntF.OpenURL(AURL);\r\n  {$ENDIF}\r\n\r\n  {$IFNDEF LCLLIB}\r\n  {$IFDEF MSWINDOWS}\r\n  ShellExecute(0,PChar('open'),PChar(AURL),PChar(''),PChar(''), SW_NORMAL);\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF WEBLIB}\r\n  {$IFDEF ELECTRON}\r\n  if isElectron then\r\n  begin\r\n    ElectronShell.OpenExternal(AURL);\r\n  end\r\n  else\r\n  {$ENDIF}\r\n  begin\r\n    asm\r\n      window.open(AURL, '_blank');\r\n    end;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\n{$IFDEF FNCLIB}\r\n{$HINTS OFF}\r\nclass procedure TTMSFNCUtils.PlayAudio(AAudioBase64: string);\r\nvar\r\n  {$IFNDEF ANDROID}\r\n  {$IFNDEF WEBLIB}\r\n  ms: TMemoryStream;\r\n  b: TBytes;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF MACOS}\r\n  d: NSData;\r\n  p: AVAudioPlayer;\r\n  {$ENDIF}\r\n  {$IFDEF ANDROID}\r\n  p: JMediaPlayer;\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  b64: string;\r\n  {$ENDIF}\r\nbegin\r\n  {$IFNDEF ANDROID}\r\n  {$IFNDEF WEBLIB}\r\n  ms := TMemoryStream.Create;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  try\r\n    {$IFNDEF ANDROID}\r\n    {$IFNDEF WEBLIB}\r\n    b := Decode64ToBytes(AAudioBase64);\r\n    ms.Write(b, Length(b));\r\n    ms.Position := 0;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    {$IFDEF MSWINDOWS}\r\n    sndPlaySound(ms.Memory, SND_NODEFAULT or SND_ASYNC or SND_MEMORY);\r\n    {$ENDIF}\r\n    {$IFDEF MACOS}\r\n    d := TNSData.Wrap(TNSData.OCClass.dataWithBytes(ms.Memory, ms.Size));\r\n    p := TAVAudioPlayer.Wrap(TAVAudioPlayer.Wrap(TAVAudioPlayer.OCClass.alloc).initWithData(d, nil));\r\n    p.play;\r\n    {$ENDIF}\r\n    {$IFDEF ANDROID}\r\n    p := TJMediaPlayer.JavaClass.init;\r\n    p.setDataSource(StringToJString('data:audio/wav;base64,' + AAudioBase64));\r\n    p.prepare;\r\n    p.start;\r\n    {$ENDIF}\r\n    {$IFDEF UNIX}\r\n    raise Exception.Create('Implement PlayAudio');\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    b64 := AAudioBase64;\r\n    try\r\n      asm\r\n        var snd = new Audio(\"data:audio/wav;base64,\" + b64);\r\n        snd.play();\r\n      end;\r\n    finally\r\n    end;\r\n    {$ENDIF}\r\n  finally\r\n    {$IFNDEF ANDROID}\r\n    {$IFNDEF WEBLIB}\r\n    ms.Free;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n{$ENDIF}\r\n\r\n{$IFDEF JSONSUPPORT}\r\nclass function TTMSFNCUtils.IsJSON(AJSON: string): Boolean;\r\nvar\r\n  v: TJSONValue;\r\nbegin\r\n  v := ParseJSON(AJSON);\r\n  Result := False;\r\n  if Assigned(v) then\r\n  begin\r\n    Result := True;\r\n    v.Free;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.ParseJSON(AJSON: string): TJSONValue;\r\nbegin\r\n  {$IFDEF LCLLIB}\r\n  Result := GetJSON(AJSON);\r\n  {$ELSE}\r\n  Result := TJSONObject.ParseJSONValue(AJSON);\r\n  {$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCUtils.GetJSONValueAsInteger(AJSONValue: TJSONValue): Integer;\r\nvar\r\n  v: TJSONValue;\r\nbegin\r\n  Result := 0;\r\n  v := AJSONValue;\r\n  if Assigned(v) and (v is TJSONNumber) then\r\n  begin\r\n    {$IFDEF LCLLIB}\r\n    Result := (v as TJSONNumber).Value;\r\n    {$ELSE}\r\n    Result := (v as TJSONNumber).AsInt;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.GetJSONValueAsDouble(AJSONValue: TJSONValue): Double;\r\nvar\r\n  v: TJSONValue;\r\nbegin\r\n  Result := 0;\r\n  v := AJSONValue;\r\n  if Assigned(v) and (v is TJSONNumber) then\r\n  begin\r\n    {$IFDEF LCLLIB}\r\n    Result := (v as TJSONNumber).AsFloat;\r\n    {$ELSE}\r\n    Result := (v as TJSONNumber).AsDouble;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.GetJSONDoubleValue(AJSONValue: TJSONValue; APropertyName: string): Double;\r\nbegin\r\n  Result := GetJSONValueAsDouble(GetJSONValue(AJSONValue, APropertyName))\r\nend;\r\n\r\nclass function TTMSFNCUtils.IsJSONTrue(AJSONValue: TJSONValue): Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(AJSONValue) then\r\n    Result := AJSONValue.Value = 'true';\r\nend;\r\n\r\nclass function TTMSFNCUtils.IsJSONFalse(AJSONValue: TJSONValue): Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(AJSONValue) then\r\n    Result := AJSONValue.Value = 'false';\r\nend;\r\n\r\nclass function TTMSFNCUtils.GetJSONIntegerValue(AJSONValue: TJSONValue; APropertyName: string): Integer;\r\nbegin\r\n  Result := GetJSONValueAsInteger(GetJSONValue(AJSONValue, APropertyName))\r\nend;\r\n\r\nclass function TTMSFNCUtils.GetJSONValueAsBoolean(AJSONValue: TJSONValue): Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(AJSONValue) then\r\n  begin\r\n    {$IFDEF LCLLIB}\r\n    if AJSONValue is TJSONBoolean then\r\n      Result := (AJSONValue as TJSONBoolean).Value;\r\n    {$ELSE}\r\n    Result := (AJSONValue is TJSONTrue);\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.GetJSONValueAsString(AJSONValue: TJSONValue): string;\r\nbegin\r\n  Result := '';\r\n  if Assigned(AJSONValue) then\r\n  begin\r\n    {$IFDEF LCLLIB}\r\n    Result := AJSONValue.FormatJSON(AsCompressedJSON);\r\n    {$ENDIF}\r\n    {$IFNDEF LCLLIB}\r\n    Result := AJSONValue.ToString\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\n{$IFNDEF LCLLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 26}\r\ntype\r\n  TJSONValueOpen = class(TJSONValue);\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n\r\nclass function TTMSFNCUtils.FindJSONValue(AJSONValue: TJSONValue;\r\n  APath: string): TJSONValue;\r\nbegin\r\n  Result := nil;\r\n  try\r\n    if Assigned(AJSONValue) then\r\n    begin\r\n      {$IFDEF LCLLIB}\r\n      Result := AJSONValue.FindPath(APath);\r\n      {$ELSE}\r\n      {$HINTS OFF}\r\n      {$IF COMPILERVERSION > 26}\r\n      Result := TJSONValueOpen(AJSONValue).FindValue(APath);\r\n      {$ELSE}\r\n      Result := GetJSONValue(AJSONValue, APath);\r\n      {$IFEND}\r\n      {$HINTS ON}\r\n      {$ENDIF}\r\n    end;\r\n  except\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.GetJSONValue(AJSONValue: TJSONValue;\r\n  APropertyName: string): TJSONValue;\r\nbegin\r\n  Result := nil;\r\n  try\r\n    if AJSONValue is TJSONObject then\r\n    begin\r\n      {$IFDEF LCLLIB}\r\n      Result := (AJSONValue as TJSONObject).Find(APropertyName);\r\n      {$ELSE}\r\n      {$HINTS OFF}\r\n      {$IF COMPILERVERSION > 26}\r\n      Result := (AJSONValue as TJSONObject).Values[APropertyName];\r\n      {$ELSE}\r\n      Result := (AJSONValue as TJSONObject).GetValue(APropertyName);\r\n      {$IFEND}\r\n      {$HINTS ON}\r\n      {$ENDIF}\r\n    end;\r\n  except\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.GetJSONArraySize(AJSONArray: TJSONArray): Integer;\r\nbegin\r\n  {$IFNDEF LCLWEBLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 26}\r\n  Result := AJSONArray.Count;\r\n  {$ELSE}\r\n  Result := AJSONArray.Size;\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  Result := AJSONArray.Count;\r\n  {$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCUtils.GetJSONArrayItem(AJSONArray: TJSONArray; AIndex: Integer): TJSONValue;\r\nbegin\r\n  Result := nil;\r\n  if (AIndex >= 0) and (AIndex <= GetJSONArraySize(AJSONArray) - 1) then\r\n  begin\r\n    {$IFNDEF LCLWEBLIB}\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION > 26}\r\n    Result := AJSONArray.Items[AIndex];\r\n    {$ELSE}\r\n    Result := AJSONArray.Get(AIndex);\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n    {$ELSE}\r\n    Result := AJSONArray.Items[AIndex];\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.GetJSONObjectSize(AJSONObject: TJSONObject): Integer;\r\nbegin\r\n  {$IFNDEF LCLWEBLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 26}\r\n  Result := AJSONObject.Count;\r\n  {$ELSE}\r\n  Result := AJSONObject.Size;\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  Result := AJSONObject.Count;\r\n  {$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCUtils.GetJSONObjectName(AJSONObject: TJSONObject; AIndex: Integer): string;\r\n{$IFNDEF LCLLIB}\r\nvar\r\n  p: TJSONPair;\r\n{$ENDIF}\r\nbegin\r\n  Result := '';\r\n  if (AIndex >= 0) and (AIndex <= GetJSONObjectSize(AJSONObject) - 1) then\r\n  begin\r\n    {$IFDEF LCLLIB}\r\n    Result := AJSONObject.Names[AIndex];\r\n    {$ELSE}\r\n    {$IFDEF WEBLIB}\r\n    p := AJSONObject.Get(AIndex);\r\n    {$ENDIF}\r\n    {$IFNDEF WEBLIB}\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION > 26}\r\n    p := AJSONObject.Pairs[AIndex];\r\n    {$ELSE}\r\n    p := AJSONObject.Get(AIndex);\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n    {$ENDIF}\r\n    if Assigned(p) then\r\n      Result := p.JsonString.Value;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.GetJSONObjectItem(AJSONObject: TJSONObject; AIndex: Integer): TJSONValue;\r\n{$IFNDEF LCLWEBLIB}\r\nvar\r\n  p: TJSONPair;\r\n{$ENDIF}\r\nbegin\r\n  Result := nil;\r\n  if (AIndex >= 0) and (AIndex <= GetJSONObjectSize(AJSONObject) - 1) then\r\n  begin\r\n    {$IFDEF LCLWEBLIB}\r\n    Result := AJSONObject.Items[AIndex];\r\n    {$ELSE}\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION > 26}\r\n    p := AJSONObject.Pairs[AIndex];\r\n    {$ELSE}\r\n    p := AJSONObject.Get(AIndex);\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n    if Assigned(p) then\r\n      Result := p.JsonValue;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.GetJSONProp(AJSONValue: TJSONValue;\r\n  APropertyName: string): string;\r\nvar\r\n  v: TJSONValue;\r\nbegin\r\n  Result := '';\r\n  v := GetJSONValue(AJSONValue, APropertyName);\r\n  if Assigned(v) and not (v is TJSONNull) then\r\n    Result := v.Value;\r\nend;\r\n{$ENDIF}\r\n\r\nclass function TTMSFNCUtils.GetHInstance: NativeUInt;\r\nbegin\r\n  Result := HInstance;\r\nend;\r\n\r\n{$IFDEF WEBLIB}\r\nclass procedure TTMSFNCUtils.GetFonts(FontList: TStringList);\r\nbegin\r\n  FontList.BeginUpdate;\r\n  FontList.Add('Arial');\r\n  FontList.Add('Tahoma');\r\n  FontList.Add('SimSun');\r\n  FontList.Add('Arial Unicode MS');\r\n  FontList.Add('Helvetica');\r\n  FontList.Add('Times New Roman');\r\n  FontList.Add('Times');\r\n  FontList.Add('Courier New');\r\n  FontList.Add('Courier');\r\n  FontList.Add('Verdana');\r\n  FontList.Add('Georgia');\r\n  FontList.Add('Palatino');\r\n  FontList.Add('Garamond');\r\n  FontList.Add('Bookman');\r\n  FontList.Add('Comic Sans MS');\r\n  FontList.Add('Trebuchet MS');\r\n  FontList.Add('Arial Black');\r\n  FontList.Add('Impact');\r\n  FontList.Add('Roboto');\r\n  FontList.Sort;\r\n  FontList.EndUpdate;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFNDEF LCLLIB}\r\n{$IFDEF MSWINDOWS}\r\nfunction EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric;\r\n  FontType: Integer; Data: Pointer): Integer; stdcall;\r\nvar\r\n  S: TStrings;\r\n  Temp: string;\r\nbegin\r\n  S := TStrings(Data);\r\n  Temp := LogFont.lfFaceName;\r\n  if (S.Count = 0) or (AnsiCompareText(S[S.Count-1], Temp) <> 0) then\r\n    S.Add(Temp);\r\n  Result := 1;\r\nend;\r\n\r\nclass procedure TTMSFNCUtils.GetFonts(FontList: TStringList);\r\nvar\r\n  DC: HDC;\r\n  LFont: TLogFont;\r\nbegin\r\n  FontList.BeginUpdate;\r\n  FontList.Clear;\r\n  DC := GetDC(0);\r\n  FillChar(LFont, sizeof(LFont), 0);\r\n  LFont.lfCharset := DEFAULT_CHARSET;\r\n  EnumFontFamiliesEx(DC, LFont, @EnumFontsProc, LPARAM(FontList), 0);\r\n  ReleaseDC(0, DC);\r\n  FontList.Sort;\r\n  FontList.EndUpdate;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF LINUX}\r\nclass procedure TTMSFNCUtils.GetFonts(FontList: TStringList);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  FontList.BeginUpdate;\r\n  FontList.Clear;\r\n  for I := 0 to FmuxGetFontCount - 1 do\r\n    FontList.Add(FmuxGetFontName(I));\r\n  FontList.Sort;\r\n  FontList.EndUpdate;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF MACOS}\r\nclass procedure TTMSFNCUtils.GetFonts(FontList: TStringList);\r\n{$IFDEF IOS}\r\nvar\r\n  arr: NSArray;\r\n  I: Integer;\r\n  lItem: NSString;\r\nbegin\r\n  FontList.BeginUpdate;\r\n  FontList.Clear;\r\n  arr := TUIFont.OCClass.familyNames;\r\n  arr := arr.sortedArrayUsingSelector(sel_getUid('localizedCaseInsensitiveCompare:'));\r\n\r\n  for I := 0 to arr.count - 1 do\r\n  begin\r\n    lItem := TNSString.Wrap(arr.objectAtIndex(i));\r\n    FontList.Add(String(lItem.UTF8String));\r\n  end;\r\n  FontList.Sort;\r\n  FontList.EndUpdate;\r\nend;\r\n{$ELSE}\r\nvar\r\n  fManager: NsFontManager;\r\n  list: NSArray;\r\n  lItem: NSString;\r\n  i: Integer;\r\nbegin\r\n  FontList.BeginUpdate;\r\n  FontList.Clear;\r\n  fManager := TNsFontManager.Wrap(TNsFontManager.OCClass.sharedFontManager);\r\n  list := fManager.availableFontFamilies;\r\n  if (List <> nil) and (List.count > 0) then\r\n  begin\r\n    for i := 0 to List.Count-1 do\r\n    begin\r\n      lItem := TNSString.Wrap(List.objectAtIndex(i));\r\n      FontList.Add(String(lItem.UTF8String));\r\n    end;\r\n  end;\r\n  FontList.Sort;\r\n  FontList.EndUpdate;\r\nend;\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\n{$IFDEF ANDROID}\r\nclass procedure TTMSFNCUtils.GetFonts(FontList: TStringList);\r\nbegin\r\n  FontList.BeginUpdate;\r\n  FontList.Clear;\r\n  FontList.Add('Roboto');\r\n  FontList.Add('Droid Sans');\r\n  FontList.Add('Droid Serif');\r\n  FontList.Add('Droid Sans Mono');\r\n  FontList.Sort;\r\n  FontList.EndUpdate;\r\nend;\r\n{$ENDIF}\r\n{$ELSE}\r\nclass procedure TTMSFNCUtils.GetFonts(FontList: TStringList);\r\nbegin\r\n  FontList.Assign(Screen.Fonts);\r\nend;\r\n{$ENDIF}\r\n\r\nclass procedure TTMSFNCUtils.SetFontSize(AFont: TFont; ASize: Single; AScaleFactor: Single = 1);\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  AFont.Size := ASize * AScaleFactor;\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  AFont.Size := Round(ASize / 96 * 72);\r\n  {$ENDIF}\r\n  {$IFDEF CMNLIB}\r\n  AFont.Height := -TTMSFNCUtils.MulDivInt(Round(ASize / 96 * 72), Round(96 * AScaleFactor), 72);\r\n  {$ENDIF}\r\nend;\r\n\r\n{$IFDEF VCLLIB}\r\n{$IF COMPILERVERSION > 22.0}\r\n{$HINTS OFF}\r\nclass function TTMSFNCUtils.CheckVCLStylesEnabled(AStyleServices: TCustomStyleServices; ADesigning: Boolean): Boolean;\r\nbegin\r\n  {$IFDEF VCLSTYLESENABLED}\r\n    {$IF COMPILERVERSION > 33.0}\r\n    Result := AStyleServices.Enabled and (not ADesigning and (AStyleServices.Name <> 'Windows')) or (ADesigning and (AStyleServices.Name <> 'Windows10') and (AStyleServices.Name <> 'Mountain_Mist'));\r\n    {$ELSE}\r\n    Result := AStyleServices.Enabled and (AStyleServices.Name <> 'Windows');\r\n    {$IFEND}\r\n  {$ELSE}\r\n  Result := False;\r\n  {$ENDIF}\r\nend;\r\n{$HINTS ON}\r\n{$IFEND}\r\n{$ENDIF}\r\n\r\n{$IFDEF CMNLIB}\r\nclass function TTMSFNCUtils.FindGraphicClass(const Buffer; const BufferSize: Int64;\r\n  out GraphicClass: TGraphicClass): Boolean;\r\nvar\r\n  {$IFDEF VCLLIB}\r\n  LongWords: array[Byte] of LongWord absolute Buffer;\r\n  {$ENDIF}\r\n  Words: array[Byte] of Word absolute Buffer;\r\nbegin\r\n  GraphicClass := nil;\r\n\r\n  if BufferSize = 0 then\r\n  begin\r\n    Result := False;\r\n    Exit;\r\n  end;\r\n\r\n  {$IFDEF VCLLIB}\r\n  case Words[0] of\r\n    $4D42: GraphicClass := TBitmap;\r\n    $D8FF: GraphicClass := TJPEGImage;\r\n    $4949: if Words[1] = $002A then GraphicClass := TWicImage; //i.e., TIFF\r\n    $4D4D: if Words[1] = $2A00 then GraphicClass := TWicImage; //i.e., TIFF\r\n  else\r\n    if Int64(Buffer) = $A1A0A0D474E5089 then\r\n      GraphicClass := TPNGImage\r\n    else if LongWords[0] = $9AC6CDD7 then\r\n      GraphicClass := TMetafile\r\n    else if (LongWords[0] = 1) and (LongWords[10] = $464D4520) then\r\n      GraphicClass := TMetafile\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION > 24}\r\n    else if AnsiStrings.StrLComp(PAnsiChar(@Buffer), 'GIF', 3) = 0 then\r\n    {$ELSE}\r\n    else if StrLComp(PAnsiChar(@Buffer), 'GIF', 3) = 0 then\r\n    {$IFEND}\r\n    GraphicClass := TGIFImage\r\n    {$HINTS ON}\r\n    else if Words[1] = 1 then\r\n      GraphicClass := TIcon;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  case Words[0] of\r\n    $4D42: GraphicClass := GetGraphicClassForFileExtension('bmp');\r\n    $D8FF: GraphicClass := GetGraphicClassForFileExtension('jpeg');\r\n    $4949: if Words[1] = $002A then GraphicClass := GetGraphicClassForFileExtension('tiff');\r\n    $4D4D: if Words[1] = $2A00 then GraphicClass := GetGraphicClassForFileExtension('tiff');\r\n  else\r\n    if Int64(Buffer) = $A1A0A0D474E5089 then\r\n      GraphicClass := GetGraphicClassForFileExtension('png')\r\n    else if StrLComp(PAnsiChar(@Buffer), 'GIF', 3) = 0 then\r\n      GraphicClass := GetGraphicClassForFileExtension('gif')\r\n    else if Words[1] = 1 then\r\n      GraphicClass := GetGraphicClassForFileExtension('ico');\r\n  end;\r\n  {$ENDIF}\r\n  Result := (GraphicClass <> nil);\r\nend;\r\n{$ENDIF}\r\n\r\n{$HINTS OFF}\r\nclass function TTMSFNCUtils.SaveStreamToBase64(const AStream: TStream; const AURL: Boolean = False): string;\r\nvar\r\n  s: string;\r\n  a: TBytes;\r\n  {$IFNDEF FNCLIB}\r\n  {$IF COMPILERVERSION > 27}\r\n  b: TBase64Encoding;\r\n  {$IFEND}\r\n  {$ENDIF}\r\nbegin\r\n  s := '';\r\n  Result := '';\r\n  if (AStream.Size < 1) then\r\n    Exit;\r\n\r\n  AStream.Position := 0;\r\n  SetLength(a, AStream.Size);\r\n  AStream.Read(a, AStream.Size);\r\n\r\n  {$IFDEF FNCLIB}\r\n  Result := TTMSFNCUtils.Encode64(a, AURL);\r\n  {$ELSE}\r\n  {$IFDEF WEBLIB}\r\n  Result := s;\r\n  {$ENDIF}\r\n  {$IF COMPILERVERSION > 27}\r\n  b := TBase64Encoding.Create(0);\r\n  try\r\n    Result := b.EncodeBytesToString(a);\r\n    if AURL then\r\n    begin\r\n      Result := StringReplace(Result, '+', '-', [rfReplaceAll, rfIgnoreCase]);\r\n      Result := StringReplace(Result, '/', '_', [rfReplaceAll, rfIgnoreCase]);\r\n      Result := StringReplace(Result, '=', '', [rfReplaceAll, rfIgnoreCase]);\r\n    end;\r\n  finally\r\n    b.Free;\r\n  end;\r\n  {$IFEND}\r\n  {$ENDIF}\r\nend;\r\n{$HINTS ON}\r\n\r\nclass function TTMSFNCUtils.SaveStreamToHexStr(const AStream: TStream): string;\r\nvar\r\n  s: string;\r\n  K: Integer;\r\n  bt: TBytes;\r\nbegin\r\n  s := '';\r\n  AStream.Position := 0;\r\n  for K := 1 to AStream.Size do\r\n  begin\r\n    SetLength(bt, 1);\r\n    AStream.Read(bt, 1);\r\n    s := s + IntToHex(bt[0], 2);\r\n  end;\r\n  Result := s;\r\nend;\r\n\r\n{$HINTS OFF}\r\nclass function TTMSFNCUtils.SaveBitmapToBase64(const ABitmap: TTMSFNCBitmapHelperClass; const AURL: Boolean = False): string;\r\nvar\r\n  ms: TMemoryStream;\r\n  s: string;\r\n  {$IFDEF WEBLIB}\r\n  img: TJSObject;\r\n  ss: TStringStream;\r\n  {$ENDIF}\r\nbegin\r\n  ms := TMemoryStream.Create;\r\n  try\r\n    s := '';\r\n    {$IFDEF CMNLIB}\r\n    if Assigned(ABitmap.Graphic) and not ABitmap.Graphic.Empty then\r\n    begin\r\n      ABitmap.Graphic.SaveToStream(ms);\r\n    {$ENDIF}\r\n    {$IFDEF FMXLIB}\r\n    if not ABitmap.IsEmpty then\r\n    begin\r\n      ABitmap.SaveToStream(ms);\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    if not ABitmap.Empty then\r\n    begin\r\n      img := ABitmap.Image;\r\n      asm\r\n        var canvas = document.createElement(\"canvas\");\r\n        canvas.width = img.width;\r\n        canvas.height = img.height;\r\n        var ctx = canvas.getContext(\"2d\");\r\n        ctx.drawImage(img, 0, 0);\r\n        var dataURL = canvas.toDataURL(\"image/png\");\r\n        s = dataURL;\r\n      end;\r\n    {$ENDIF}\r\n    {$IFNDEF WEBLIB}\r\n      s := SaveStreamToBase64(ms);\r\n    {$ENDIF}\r\n    end;\r\n    Result := s;\r\n  finally\r\n    ms.Free;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.SaveBitmapToHexStr(const ABitmap: TTMSFNCBitmapHelperClass): string;\r\nvar\r\n  ms: TMemoryStream;\r\n  s: string;\r\n  {$IFDEF WEBLIB}\r\n  img: TJSObject;\r\n  ss: TStringStream;\r\n  {$ENDIF}\r\nbegin\r\n  ms := TMemoryStream.Create;\r\n  try\r\n    s := '';\r\n    {$IFDEF CMNLIB}\r\n    if Assigned(ABitmap.Graphic) and not ABitmap.Graphic.Empty then\r\n    begin\r\n      ABitmap.Graphic.SaveToStream(ms);\r\n    {$ENDIF}\r\n    {$IFDEF FMXLIB}\r\n    if not ABitmap.IsEmpty then\r\n    begin\r\n      ABitmap.SaveToStream(ms);\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    if not ABitmap.Empty then\r\n    begin\r\n      img := ABitmap.Image;\r\n      asm\r\n        var canvas = document.createElement(\"canvas\");\r\n        canvas.width = img.width;\r\n        canvas.height = img.height;\r\n        var ctx = canvas.getContext(\"2d\");\r\n        ctx.drawImage(img, 0, 0);\r\n        var dataURL = canvas.toDataURL(\"image/png\");\r\n        s = dataURL;\r\n      end;\r\n\r\n      ss := TStringStream.Create(s);\r\n      try\r\n        s := SaveStreamToHexStr(ss);\r\n      finally\r\n        ss.Free;\r\n      end;\r\n    {$ENDIF}\r\n    {$IFNDEF WEBLIB}\r\n      s := SaveStreamToHexStr(ms);\r\n    {$ENDIF}\r\n    end;\r\n    Result := s;\r\n  finally\r\n    ms.Free;\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nclass function TTMSFNCUtils.MulDivSingle(nNumber, nNumerator, nDenominator: Single): Single;\r\nbegin\r\n  if nDenominator = 0 then\r\n    Result := -1\r\n  else\r\n    Result := nNumber * nNumerator / nDenominator;\r\nend;\r\n\r\nclass function TTMSFNCUtils.MulDivInt(nNumber, nNumerator, nDenominator: Integer): Integer;\r\n  function MathRound(AValue: Extended): Int64;\r\n  begin\r\n    if AValue >= 0 then\r\n      Result := Trunc(AValue + 0.5)\r\n    else\r\n      Result := Trunc(AValue - 0.5);\r\n  end;\r\nbegin\r\n  if nDenominator = 0 then\r\n    Result := -1\r\n  else\r\n    Result := MathRound(Int64(nNumber) * Int64(nNumerator) / nDenominator);\r\nend;\r\n\r\nclass function TTMSFNCUtils.CreateBitmapFromHexStr(const AHexStr: string): TTMSFNCBitmap;\r\nbegin\r\n  Result := TTMSFNCBitmap.Create;\r\n  LoadBitmapFromHexStr(AHexStr, Result);\r\nend;\r\n\r\nclass function TTMSFNCUtils.CreateBitmapFromBase64(const ABase64: string; const AURL: Boolean = False): TTMSFNCBitmap;\r\nbegin\r\n  Result := TTMSFNCBitmap.Create;\r\n  LoadBitmapFromBase64(ABase64, Result, AURL);\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\n{$IFDEF FNCLIB}\r\n{$IFNDEF LCLLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION >= 30}\r\nclass procedure TTMSFNCUtils.LoadBitmapFromImageList(ABitmap: TTMSFNCBitmap; AImageList: TCustomImageList; AIndex: Integer);\r\n{$IFDEF FMXLIB}\r\nvar\r\n  b: TCustomBitmapItem;\r\n{$ENDIF}\r\n{$IFDEF VCLLIB}\r\nvar\r\n  b: TBitmap;\r\n  p: Pointer;\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\nvar\r\n  b: TBitmap;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  if (AIndex >= 0) and (AIndex <= AImageList.Source.Count - 1) then\r\n  begin\r\n    b := AImageList.Source[AIndex].MultiResBitmap.ItemByScale(1.0, False, True);\r\n    if Assigned(b) then\r\n      ABitmap.Assign(b.Bitmap);\r\n  end;\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  b := TBitmap.Create;\r\n  try\r\n    AImageList.GetBitmap(AIndex, b);\r\n    ABitmap.Assign(b);\r\n  finally\r\n    b.Free;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  b := TBitmap.Create;\r\n  try\r\n    b.PixelFormat := pf32Bit;\r\n    b.Width := AImageList.Width;\r\n    b.Height := AImageList.Height;\r\n    b.HandleType := bmDIB;\r\n    b.IgnorePalette := true;\r\n    b.AlphaFormat := afIgnored;\r\n\r\n    p := b.ScanLine[AImageList.Height - 1];\r\n    ZeroMemory(p, AImageList.Width * AImageList.Height * 4);\r\n\r\n    b.TransparentColor := $FFFFFE;\r\n    b.Transparent := True;\r\n\r\n    b.Canvas.Brush.Color := b.TransparentColor;\r\n    b.Canvas.FillRect(Rect(0,0, b.Width, b.Height));\r\n\r\n    AImageList.Draw(b.Canvas, 0, 0, AIndex);\r\n\r\n    ABitmap.Assign(b);\r\n  finally\r\n    b.Free;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\nclass procedure TTMSFNCUtils.LoadBitmapFromHexStr(const AHexStr: string; const ABitmap: TTMSFNCBitmapHelperClass);\r\nvar\r\n  sst, sb: TStringStream;\r\n  bst: TBytesStream;\r\n  M: Integer;\r\n  bt: TBytes;\r\n  {$IFDEF VCLLIB}\r\n  p: TGraphic;\r\n  gcc: TGraphicClass;\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  I: Integer;\r\n  {$ENDIF}\r\n  hx: string;\r\nbegin\r\n  sst := TStringStream.Create(AHexStr);\r\n  bst := TBytesStream.Create;\r\n  try\r\n    for M := 1 to sst.Size div 2 do\r\n    begin\r\n      bt := HexStrToBytes(sst.ReadString(2));\r\n\r\n      {$IFNDEF WEBLIB}\r\n      {$HINTS OFF}\r\n      {$WARNINGS OFF}\r\n      {$IFDEF LCLLIB}\r\n      {$IF FPC_FULLVERSION = 30200}\r\n      //BUG IN TStringStream in FPC 3.2\r\n      sst.Position := sst.Position + 2;\r\n      {$IFEND}\r\n      {$ENDIF}\r\n      {$HINTS ON}\r\n      {$WARNINGS ON}\r\n      {$ENDIF}\r\n\r\n      {$IFDEF LCLLIB}\r\n      for I := 0 to Length(bt) - 1 do\r\n        bst.WriteByte(bt[I]);\r\n      {$ENDIF}\r\n      {$IFNDEF LCLLIB}\r\n      bst.Write(bt, Length(bt));\r\n      {$ENDIF}\r\n    end;\r\n\r\n    bst.Position := 0;\r\n\r\n    hx := '';\r\n    sb := TStringStream.Create('');\r\n    try\r\n      sb.CopyFrom(bst, bst.Size);\r\n      hx := sb.DataString;\r\n    finally\r\n      sb.Free;\r\n    end;\r\n\r\n    if not (Pos(';base64,', hx) > 0) then\r\n    begin\r\n      {$IFDEF VCLLIB}\r\n      if TTMSFNCUtils.FindGraphicClass(bst.Memory^, bst.Size, gcc) then\r\n      begin\r\n        p := gcc.Create;\r\n        try\r\n          bst.Position := 0;\r\n          p.LoadFromStream(bst);\r\n          ABitmap.Assign(p)\r\n      {$ENDIF}\r\n\r\n      {$IFNDEF VCLLIB}\r\n        ABitmap.LoadFromStream(bst);\r\n      {$ENDIF}\r\n\r\n      {$IFDEF VCLLIB}\r\n        finally\r\n          p.Free;\r\n        end;\r\n      end;\r\n      {$ENDIF}\r\n    end\r\n    else\r\n    begin\r\n      {$IFDEF WEBLIB}\r\n      ABitmap.LoadFromResource(hx);\r\n      {$ENDIF}\r\n      {$IFNDEF WEBLIB}\r\n      //\r\n      {$ENDIF}\r\n    end;\r\n\r\n  finally\r\n    sst.Free;\r\n    bst.Free;\r\n  end;\r\nend;\r\n\r\nclass procedure TTMSFNCUtils.LoadBitmapFromBase64(const ABase64: string; const ABitmap: TTMSFNCBitmapHelperClass; const AURL: Boolean = False);\r\nvar\r\n  {$IFNDEF WEBLIB}\r\n  m: TMemoryStream;\r\n  {$ENDIF}\r\n  s: string;\r\nbegin\r\n  s := ABase64;\r\n  {$IFDEF WEBLIB}\r\n  if not (Pos(';base64,', s) > 0) then\r\n    s := 'data:image/png;base64,' + s;\r\n\r\n  ABitmap.LoadFromResource(s);\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  m := TMemoryStream.Create;\r\n  try\r\n    if Pos(';base64,', s) > 0 then\r\n      Delete(s, 1, Pos(';base64,', s) + 7);\r\n\r\n    TTMSFNCUtils.LoadStreamFromBase64(s, m, AURL);\r\n    m.Position := 0;\r\n    ABitmap.LoadFromStream(m);\r\n  finally\r\n    m.Free;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nclass procedure TTMSFNCUtils.LoadStreamFromBase64(const ABase64: string; const AStream: TStream; const AURL: Boolean = False);\r\nvar\r\n  b: TBytes;\r\nbegin\r\n  b := TTMSFNCUtils.Decode64ToBytes(ABase64, AURL);\r\n  AStream.Write(b, Length(b));\r\nend;\r\n\r\nclass procedure TTMSFNCUtils.LoadStreamFromHexStr(const AHexStr: string;\r\n  const AStream: TStream);\r\nvar\r\n  sst: TStringStream;\r\n  bst: TBytesStream;\r\n  M: Integer;\r\n  bt: TBytes;\r\n  {$IFDEF LCLLIB}\r\n  I: Integer;\r\n  {$ENDIF}\r\nbegin\r\n  sst := TStringStream.Create(AHexStr);\r\n  bst := TBytesStream.Create;\r\n  try\r\n    for M := 1 to sst.Size div 2 do\r\n    begin\r\n      bt := HexStrToBytes(sst.ReadString(2));\r\n\r\n      {$IFNDEF WEBLIB}\r\n      {$HINTS OFF}\r\n      {$WARNINGS OFF}\r\n      {$IFDEF LCLLIB}\r\n      {$IF FPC_FULLVERSION = 30200}\r\n      //BUG IN TStringStream in FPC 3.2\r\n      sst.Position := sst.Position + 2;\r\n      {$IFEND}\r\n      {$ENDIF}\r\n      {$HINTS ON}\r\n      {$WARNINGS ON}\r\n      {$ENDIF}\r\n\r\n      {$IFDEF LCLLIB}\r\n      for I := 0 to Length(bt) - 1 do\r\n        bst.WriteByte(bt[I]);\r\n      {$ENDIF}\r\n      {$IFNDEF LCLLIB}\r\n      bst.Write(bt, Length(bt));\r\n      {$ENDIF}\r\n    end;\r\n\r\n    bst.Position := 0;\r\n    AStream.CopyFrom(bst, bst.Size);\r\n  finally\r\n    sst.Free;\r\n    bst.Free;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.EpochToDateTime(const AEpoch: string): TDateTime;\r\nvar\r\n  dw: integer;\r\nbegin\r\n  dw := StrToInt(AEpoch);\r\n  Result := UnixToDateTime(dw);\r\nend;\r\n\r\n{$HINTS OFF}\r\n{$IFDEF JSONSUPPORT}\r\nclass procedure TTMSFNCUtils.Log(const AObject: TObject);\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  console.log(AObject);\r\n  {$ELSE}\r\n  Log(AObject.JSON);\r\n  {$ENDIF}\r\nend;\r\n{$ENDIF}\r\n\r\nclass procedure TTMSFNCUtils.Log(const AMessage: string);\r\n{$IFDEF ANDROID}\r\nvar\r\n  msh: TMarshaller;\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\nvar\r\n  m: string;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF UNIX}\r\n  {$IFDEF FMXLIB}\r\n  FMX.Types.Log.d(AMessage);\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF MSWINDOWS}\r\n  OutputDebugString(PChar(AMessage));\r\n  {$ENDIF}\r\n  {$IFDEF ANDROID}\r\n  LOGI(msh.AsAnsi(AMessage).ToPointer);\r\n  {$ENDIF}\r\n  {$IFDEF MACOS}\r\n  NSLog((NSStrEx(AMessage) as ILocalObject).GetObjectID);\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  m := AMessage;\r\n  asm\r\n    console.log(m);\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n{$HINTS ON}\r\n\r\n{$IFDEF FNCLIB}\r\nclass function TTMSFNCUtils.GetMimeType(AData: TStream; AResetPosition: Boolean = True): string;\r\n{$IFDEF WEBLIB}\r\nbegin\r\n  Result := '';\r\n  raise Exception.Create('Implement GetMimeType');\r\n{$ENDIF}\r\n{$IFNDEF WEBLIB}\r\nvar\r\n  LBuffer : array[0..4] of byte;\r\n  I: Integer;\r\n  LOldPos: Int64;\r\n\r\ntype\r\n  TFileData = record\r\n    DataType: String;\r\n    Length: Integer;\r\n    Header: array[0..3] of Byte;\r\n  end;\r\nconst\r\n  MaxFileDataLength = 4;\r\n  FileData: array[0..15] of TFileData = (\r\n    (DataType: '.zip';  Length: 4; Header: (80,75,7,8)),\r\n    (DataType: '.zip';  Length: 4; Header: (80,75,5,6)),\r\n    (DataType: '.zip';  Length: 4; Header: (80,75,3,4)),\r\n    (DataType: '.pdf';  Length: 4; Header: (37,80,68,70)),\r\n    (DataType: '.gif';  Length: 3; Header: (71,73,70,0)),\r\n    (DataType: '.bmp';  Length: 2; Header: (66,77,0,0)),\r\n    (DataType: '.png';  Length: 4; Header: (137,80,78,71)),\r\n    (DataType: '.tiff'; Length: 3; Header: (73,73,42,0)),\r\n    (DataType: '.tiff'; Length: 3; Header: (77,77,42,0)),\r\n    (DataType: '.jpg';  Length: 4; Header: (255,216,255,224)),\r\n    (DataType: '.jpg';  Length: 4; Header: (255,216,255,225)),\r\n    (DataType: '.jpg';  Length: 4; Header: (255,216,255,219)),\r\n    (DataType: '.psd'; Length: 4; Header: (56, 66, 80, 83)),\r\n    (DataType: '.webp'; Length: 4; Header: (82, 73, 70, 70)),\r\n    (DataType: '.unknown';  Length: 4; Header: (0,0,1,0)),\r\n    (DataType: '.empty';  Length: 4; Header: (0,0,0,0))\r\n  );\r\nbegin\r\n  Result := '';\r\n  LOldPos := AData.Position;\r\n  try\r\n    if AResetPosition then\r\n      AData.Position := 0;\r\n\r\n    if AData.Read(LBuffer[0], MaxFileDataLength) = MaxFileDataLength then\r\n    begin\r\n      for I := Low(FileData) to High(FileData) do\r\n      begin\r\n        if (CompareMem(@FileData[I].Header[0], @LBuffer[0], FileData[i].Length) ) then\r\n        begin\r\n          Result := TTMSFNCUtils.GetMimeType(FileData[I].DataType);\r\n          break;\r\n        end;\r\n      end;\r\n    end;\r\n  finally\r\n    AData.Position := LOldPos;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCUtils.GetMimeType(AFile: string): string;\r\nvar\r\n  e: string;\r\nbegin\r\n  e := ExtractFileExt(AFile);\r\n  e := LowerCase(Trim(e));\r\n  if (e <> '') and (e[{$IFDEF ZEROSTRINGINDEX}0{$ELSE}1{$ENDIF}] = '.') then\r\n    e := Copy(e, 2, Length(e) - 1);\r\n\r\n  Result := '';\r\n  if Assigned(FMimeTypes) then\r\n    Result := FMimeTypes.Values[e];\r\n\r\n  if Result = '' then\r\n    Result := 'application/octet-stream';\r\nend;\r\n\r\nclass function TTMSFNCUtils.GetFileExtension(AMime: string): string;\r\nvar\r\n  I: Integer;\r\n  e: string;\r\nbegin\r\n  e := LowerCase(AMime);\r\n  Result := '';\r\n  if Assigned(FMimeTypes) then\r\n  begin\r\n    for I := 0 to FMimeTypes.Count - 1 do\r\n    begin\r\n      if FMimeTypes.ValueFromIndex[I] = e then\r\n      begin\r\n        Result := FMimeTypes.Names[I];\r\n        Exit;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{$HINTS OFF}\r\nclass function TTMSFNCUtils.Encode64(const AValue: TBytes; const AURL: Boolean = False): string;\r\nvar\r\n  s: string;\r\n  v: TBytes;\r\n  {$IFNDEF LCLWEBLIB}\r\n  {$IF COMPILERVERSION > 27}\r\n  b: TBase64Encoding;\r\n  {$IFEND}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  Outstream: TStringStream;\r\n  Encoder: TBase64EncodingStream;\r\n  {$ENDIF}\r\nbegin\r\n  Result := '';\r\n  if Length(AValue) = 0 then\r\n    Exit;\r\n\r\n  v := AValue;\r\n  {$IFNDEF LCLWEBLIB}\r\n  {$IF COMPILERVERSION > 27}\r\n  b := TBase64Encoding.Create(0);\r\n  try\r\n    s := b.EncodeBytesToString(v);\r\n  finally\r\n    b.Free;\r\n  end;\r\n  {$IFEND}\r\n  {$ELSE}\r\n  {$IFDEF LCLLIB}\r\n  Outstream := TStringStream.Create('');\r\n  try\r\n    Encoder := TBase64EncodingStream.create(outstream);\r\n    try\r\n      Encoder.Write(v[0], Length(v));\r\n    finally\r\n      Encoder.Free;\r\n    end;\r\n    s := Outstream.DataString;\r\n  finally\r\n    Outstream.free;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  s := '';\r\n  asm\r\n    function _arrayBufferToBase64( buffer ) {\r\n        var binary = '';\r\n        var bytes = new Uint8Array( buffer );\r\n        var len = bytes.byteLength;\r\n        for (var i = 0; i < len; i++) {\r\n            binary += String.fromCharCode( bytes[ i ] );\r\n        }\r\n        return window.btoa( binary );\r\n    }\r\n\r\n    s = _arrayBufferToBase64(v);\r\n  end;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  if AURL then\r\n  begin\r\n    s := StringReplace(s, '+', '-', [rfReplaceAll, rfIgnoreCase]);\r\n    s := StringReplace(s, '/', '_', [rfReplaceAll, rfIgnoreCase]);\r\n    s := StringReplace(s, '=', '', [rfReplaceAll, rfIgnoreCase]);\r\n  end;\r\n  Result := s;\r\nend;\r\n{$HINTS ON}\r\n\r\n{$HINTS OFF}\r\nclass function TTMSFNCUtils.Encode64(const AValue: string; const AURL: Boolean = False): string;\r\nvar\r\n  s, v: string;\r\n  {$IFNDEF LCLWEBLIB}\r\n  {$IF COMPILERVERSION > 27}\r\n  b: TBase64Encoding;\r\n  {$IFEND}\r\n  {$ENDIF}\r\nbegin\r\n  Result := '';\r\n  if Length(AValue) = 0 then\r\n    Exit;\r\n\r\n  v := AValue;\r\n  {$IFNDEF LCLWEBLIB}\r\n  {$IF COMPILERVERSION > 27}\r\n  b := TBase64Encoding.Create(0);\r\n  try\r\n    s := b.Encode(v);\r\n  finally\r\n    b.Free;\r\n  end;\r\n  {$IFEND}\r\n  {$ELSE}\r\n  {$IFDEF LCLLIB}\r\n  s := EncodeStringBase64(v);\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  asm\r\n    function b64EncodeUnicode(str) {\r\n      return btoa(encodeURIComponent(str).replace(/%([0-9A-F]{2})/g,\r\n          function toSolidBytes(match, p1) {\r\n              return String.fromCharCode('0x' + p1);\r\n      }));\r\n    }\r\n    s = b64EncodeUnicode(v);\r\n  end;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  if AURL then\r\n  begin\r\n    s := StringReplace(s, '+', '-', [rfReplaceAll, rfIgnoreCase]);\r\n    s := StringReplace(s, '/', '_', [rfReplaceAll, rfIgnoreCase]);\r\n    s := StringReplace(s, '=', '', [rfReplaceAll, rfIgnoreCase]);\r\n  end;\r\n  Result := s;\r\nend;\r\n{$HINTS ON}\r\n\r\nclass function TTMSFNCUtils.FileToBase64(const AFile: TTMSFNCUtilsFile): string;\r\nvar\r\n  s: string;\r\n{$IFNDEF WEBLIB}\r\n  b: TBytesStream;\r\n  bf: TBytes;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  asm\r\n    function uint8ToString(buf) {\r\n      var i, length, out = '';\r\n      for (i = 0, length = buf.length; i < length; i += 1) {\r\n          out += String.fromCharCode(buf[i]);\r\n      }\r\n      return out;\r\n    }\r\n    s = btoa(uint8ToString(AFile.Data));\r\n  end;\r\n\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  b := TBytesStream.Create;\r\n  try\r\n    b.LoadFromFile(AFile);\r\n    bf := b.Bytes;\r\n    SetLength(bf, b.Size);\r\n    s := TTMSFNCUtils.Encode64(bf, False);\r\n  finally\r\n    b.Free;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  Result := s;\r\nend;\r\n\r\n{$HINTS OFF}\r\nclass procedure TTMSFNCUtils.LoadFile(const AFile: TTMSFNCUtilsLoadFile; const ALoadFileComplete: TTMSFNCUtilsLoadFileCompleteEvent);\r\n{$IFDEF WEBLIB}\r\nvar\r\n  f: TJSBlob;\r\n  c: TTMSFNCUtilsLoadFileCompleteEvent;\r\n  ua: TJSUInt8Array;\r\n{$ENDIF}\r\nbegin\r\n  {$IFNDEF WEBLIB}\r\n  if Assigned(ALoadFileComplete) then\r\n    ALoadFileComplete(AFile);\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n\r\n  //workaround for TMS WEB Core compiler with optimization flag\r\n  if (1 < 0) then\r\n    CreateUploadFile('file', ua);\r\n  //\r\n\r\n  f := AFile;\r\n  c := ALoadFileComplete;\r\n  asm\r\n    var reader = new FileReader();\r\n\r\n    reader.onload = function(e) {\r\n      var s = new Uint8Array(reader.result);\r\n      var fn = pas[\"WEBLib.TMSFNCUtils\"].CreateUploadFile(f.name, s);\r\n      if (c){\r\n        c(fn);\r\n      }\r\n    }\r\n\r\n    reader.readAsArrayBuffer(f);\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n{$HINTS ON}\r\n{$ENDIF}\r\n\r\nclass function TTMSFNCUtils.TryStrToFloatDot(AValue: string; var AResult: Double): Boolean;\r\nbegin\r\n  Result := TryStrToFloat(AValue, AResult, FNCFormatSettings);\r\nend;\r\n\r\nclass function TTMSFNCUtils.StrToFloatDot(AValue: string): Double;\r\nbegin\r\n  Result := StrToFloat(AValue, FNCFormatSettings);\r\nend;\r\n\r\nclass function TTMSFNCUtils.FloatToStrDot(AValue: Double): string;\r\nbegin\r\n  Result := FloatToStr(AValue, FNCFormatSettings);\r\nend;\r\n\r\nclass function TTMSFNCUtils.Decode64ToBytes(const AValue: string; const AURL: Boolean = False): TBytes;\r\nvar\r\n  s: string;\r\n  {$IFNDEF LCLWEBLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 27}\r\n  b: TBase64Encoding;\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLWEBLIB}\r\n  ss: TStringStream;\r\n  {$IFDEF LCLLIB}\r\n  bs: TBytes;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nbegin\r\n  Result := nil;\r\n  if Length(AValue) = 0 then\r\n    Exit;\r\n\r\n  s := AValue;\r\n  if AURL then\r\n  begin\r\n    s := s + StringOfChar('=', Length (s) mod 4);\r\n    s := StringReplace(s, '-', '+', [rfReplaceAll]);\r\n    s := StringReplace(s, '_', '/', [rfReplaceAll]);\r\n  end;\r\n  {$IFNDEF LCLWEBLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 27}\r\n  b := TBase64Encoding.Create(0);\r\n  try\r\n    Result := b.DecodeStringToBytes(s);\r\n  finally\r\n    b.Free;\r\n  end;\r\n  {$ELSE}\r\n  Result := DecodeBase64(AnsiString(s));\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  {$IFDEF LCLLIB}\r\n  s := DecodeStringBase64(s);\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  asm\r\n    function b64DecodeUnicode(str) {\r\n      var binary_string = window.atob(str);\r\n      return binary_string;\r\n    }\r\n    s = b64DecodeUnicode(s);\r\n  end;\r\n  {$ENDIF}\r\n  ss := TStringStream.Create(''{$IFDEF WEBLIB}, TEncoding.UTF8{$ENDIF});\r\n  try\r\n    ss.WriteString(s);\r\n    {$IFDEF LCLLIB}\r\n    ss.Position := 0;\r\n    SetLength(bs, ss.Size);\r\n    ss.ReadBuffer(Pointer(bs)^, Length(bs));\r\n    Result := bs;\r\n    {$ELSE}\r\n    Result := ss.Bytes;\r\n    {$ENDIF}\r\n  finally\r\n    ss.Free;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\n{$IFDEF FNCLIB}\r\n\r\nclass function TTMSFNCUtils.Decode64(const AValue: string; const AURL: Boolean = False): string;\r\nvar\r\n  s: string;\r\n  {$IFNDEF LCLWEBLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 27}\r\n  b: TBase64Encoding;\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\nbegin\r\n  Result := '';\r\n  if Length(AValue) = 0 then\r\n    Exit;\r\n\r\n  s := AValue;\r\n  if AURL then\r\n  begin\r\n    s := s + StringOfChar('=', Length (s) mod 4);\r\n    s := StringReplace(s, '-', '+', [rfReplaceAll]);\r\n    s := StringReplace(s, '_', '/', [rfReplaceAll]);\r\n  end;\r\n  {$IFNDEF LCLWEBLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 27}\r\n  b := TBase64Encoding.Create(0);\r\n  try\r\n    Result := b.Decode(s);\r\n  finally\r\n    b.Free;\r\n  end;\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  {$IFDEF LCLLIB}\r\n  Result := DecodeStringBase64(s);\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  asm\r\n    function b64DecodeUnicode(str) {\r\n      var binary_string = window.atob(str);\r\n      return binary_string;\r\n    }\r\n    return b64DecodeUnicode(s);\r\n  end;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nend;\r\n{$ENDIF}\r\n\r\nclass function TTMSFNCUtils.URLDecode(const AURL: string; const ATrim: Boolean = True): string;\r\n{$IFNDEF WEBLIB}\r\nconst\r\n  HexDigit = '0123456789ABCDEF';\r\nvar\r\n  i: Integer;\r\n  res: string;\r\n  ch1,ch2: integer;\r\n  sab: TBytes;\r\n  sabc: integer;\r\n{$ENDIF}\r\nbegin\r\n  if AURL = '' then\r\n  begin\r\n    Result := '';\r\n    Exit;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  Result := decodeURIComponent(AURL);\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  {$IFDEF ZEROSTRINGINDEX}\r\n  i := 0;\r\n  {$ELSE}\r\n  i := 1;\r\n  {$ENDIF}\r\n\r\n  sabc := 0;\r\n\r\n  SetLength(sab,length(AURL) * 2);\r\n\r\n  while i <= Length(AURL) do\r\n  begin\r\n    if AURL[i] = '%' then\r\n    begin\r\n      if i + 2 <= Length(AURL) then\r\n      begin\r\n        ch1 := Pos(AURL[i + 1], HexDigit);\r\n        ch2 := Pos(AURL[i + 2], HexDigit);\r\n\r\n        if (ch1 > 0) and (ch2 > 0)  then\r\n        begin\r\n          dec(ch1);\r\n          dec(ch2);\r\n          ch1 := (ch1 shl 4) + ch2;\r\n\r\n          sab[sabc] := ch1;\r\n          inc(sabc);\r\n        end;\r\n        inc(i,2);\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      sab[sabc] := ord(AURL[i]);\r\n      inc(sabc);\r\n    end;\r\n    inc(i);\r\n  end;\r\n\r\n  {$RANGECHECKS OFF}\r\n  if sabc <= Length(sab) then\r\n    sab[sabc] := 0;\r\n\r\n  if sabc + 1 <= Length(sab) then\r\n    sab[sabc + 1] := 0;\r\n  {$RANGECHECKS ON}\r\n\r\n  {$IFDEF LCLLIB}\r\n  res := UTF8Encode(TEncoding.UTF8.GetString(sab));\r\n  {$ENDIF}\r\n  {$IFNDEF LCLLIB}\r\n  res := TEncoding.UTF8.GetString(sab);\r\n  {$ENDIF}\r\n\r\n  Result := res;\r\n  if ATrim then\r\n    Result := Trim(Result);\r\n  {$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCUtils.URLEncode(const AURL: string): string;\r\n{$IFNDEF WEBLIB}\r\nvar\r\n  I: Integer;\r\n  B: TBytes;\r\n  c: Char;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  Result := encodeURIComponent(AURL);\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  Result := '';\r\n  {$IFDEF LCLLIB}\r\n  B := TEncoding.UTF8.GetBytes(UTF8Decode(AURL));\r\n  {$ENDIF}\r\n  {$IFNDEF LCLLIB}\r\n  B := TEncoding.UTF8.GetBytes(AURL);\r\n  {$ENDIF}\r\n\r\n  for I := Low(B) to High(B) do\r\n  begin\r\n    c := Chr(B[I]);\r\n    case c of\r\n      'A'..'Z', 'a'..'z', '0'..'9', '-', '_', '.':\r\n        Result := Result + c\r\n      else\r\n        Result := Result + '%' + IntToHex(Ord(B[I]),2);\r\n    end;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCUtils.HexStrToBytes(const AValue: string): TBytes;\r\nvar\r\n  il, idx: Integer;\r\n  b: TBytes;\r\nbegin\r\n  Result := nil;\r\n  SetLength(b, Length(AValue) div 2);\r\n  il := 1;\r\n  idx := 0;\r\n  while il <= Length(AValue) do\r\n  begin\r\n    b[idx] := StrToInt('$' + AValue[il{$IFDEF ZEROSTRINGINDEX}-1{$ENDIF}] + AValue[il{$IFNDEF ZEROSTRINGINDEX} + 1{$ENDIF}]);\r\n    il := il + 2;\r\n    idx := idx + 1;\r\n  end;\r\n  Result := b;\r\nend;\r\n\r\nclass function TTMSFNCUtils.AddCharSet(ACharSet1,\r\n  ACharSet2: TTMSFNCUtilsCharSet): TTMSFNCUtilsCharSet;\r\nvar\r\n  l,j: integer;\r\nbegin\r\n  l := Length(ACharSet1)+Length(ACharSet2);\r\n  SetLength(Result,l);\r\n  l := 0;\r\n\r\n  for j := 0 to High(ACharSet1) do\r\n  begin\r\n    Result[l] := ACharSet1[j];\r\n    inc(l);\r\n  end;\r\n\r\n  for j := 0 to High(ACharSet2) do\r\n  begin\r\n    Result[l] := ACharSet2[j];\r\n    inc(l);\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.IsLetterOrDigit(AChar: Char): Boolean;\r\nbegin\r\n  Result := TTMSFNCUtils.CharInSet(AChar, NumericCharSet) or TTMSFNCUtils.CharInSet(AChar, AlphaCharSet);\r\nend;\r\n\r\nclass function TTMSFNCUtils.AlphaCharSet: TTMSFNCUtilsCharSet;\r\nvar\r\n  i: integer;\r\n  ch: char;\r\nbegin\r\n  SetLength(Result,52);\r\n  i := 0;\r\n\r\n  for ch := 'a' to 'z' do\r\n  begin\r\n    Result[i] := ch;\r\n    inc(i);\r\n  end;\r\n\r\n  for ch := 'A' to 'Z' do\r\n  begin\r\n    Result[i] := ch;\r\n    inc(i);\r\n  end;\r\n\r\nend;\r\n\r\nclass function TTMSFNCUtils.CharInSet(ch: Char; ACharset: TTMSFNCUtilsCharSet): boolean;\r\nvar\r\n  j: integer;\r\nbegin\r\n  Result := false;\r\n  for j := 0 to High(ACharSet) do\r\n  begin\r\n    if ch = ACharSet[j] then\r\n    begin\r\n      result := true;\r\n      break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.FirstChar(ACharset: TTMSFNCUtilsCharSet; AValue: string; var spos: Integer): char;\r\nvar\r\n  i:Integer;\r\n  q: Integer;\r\n  j: Integer;\r\nbegin\r\n  {$IFDEF ZEROSTRINGINDEX}\r\n  j := 1;\r\n  {$ELSE}\r\n  j := 0;\r\n  {$ENDIF}\r\n  i := 1;\r\n  q := 0;\r\n  spos := -1;\r\n  Result := #0;\r\n\r\n  while i <= Length(AValue) do\r\n  begin\r\n    if AValue[i - j] = '\"' then\r\n      inc(q);\r\n\r\n    if (CharInSet(AValue[i - j], ACharSet)) and not Odd(q) then\r\n    begin\r\n      spos := i;\r\n      Result := AValue[i - j];\r\n      Break;\r\n    end;\r\n    Inc(i);\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.StripLogicSpaces(AValue: string): string;\r\nvar\r\n  i, k: integer;\r\n  q: integer;\r\nbegin\r\n  q := 0;\r\n  {$IFDEF ZEROSTRINGINDEX}\r\n  i := 0;\r\n  k := length(AValue) - 1;\r\n  {$ELSE}\r\n  i := 1;\r\n  k := length(AValue);\r\n  {$ENDIF}\r\n  Result := '';\r\n\r\n  while (i <= k) do\r\n  begin\r\n    if AValue[i] = '\"' then\r\n      inc(q);\r\n\r\n    if (AValue[i] = ' ') then\r\n    begin\r\n      if Odd(q) then\r\n        Result := Result + AValue[i];\r\n    end\r\n    else\r\n      Result := Result + AValue[i];\r\n\r\n    inc(i);\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.ClosingParenthesis(s1: string): integer;\r\nvar\r\n  i,j,k,r: integer;\r\nbegin\r\n  r := 0;\r\n  j := 0;\r\n  k := 0;\r\n  {$IFDEF ZEROSTRINGINDEX}\r\n  i := 0;\r\n  {$ELSE}\r\n  i := 1;\r\n  {$ENDIF}\r\n\r\n  while (i <= length(s1)) do\r\n  begin\r\n    if (s1[i] = ')') then\r\n      inc(k);\r\n\r\n    if (s1[i] = '(') then\r\n      inc(j);\r\n\r\n    if (s1[i] = ')') and (j = k) then\r\n    begin\r\n      r := i;\r\n      break;\r\n    end;\r\n\r\n    inc(i);\r\n  end;\r\n\r\n  Result := r;\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nclass function TTMSFNCUtils.ConvertBitmapToJPEGStream(ABitmap: TTMSFNCBitmapHelperClass; AQuality: Single = 1.0; ABackgroundColor: TAlphaColor = TAlphaColorRec.White): TMemoryStream;\r\n{$ENDIF}\r\n{$IFDEF CMNLIB}\r\nclass function TTMSFNCUtils.ConvertBitmapToJPEGStream(ABitmap: TTMSFNCBitmapHelperClass; AQuality: Single = 1.0; ABackgroundColor: TColor = clWhite): TMemoryStream;\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\nclass function TTMSFNCUtils.ConvertBitmapToJPEGStream(ABitmap: TTMSFNCBitmapHelperClass; AQuality: Single = 1.0; ABackgroundColor: TColor = clWhite): TMemoryStream;\r\nbegin\r\n  Result := nil;\r\n  raise Exception.Create('ConvertBitmapToJPEGStream');\r\n{$ENDIF}\r\n{$IFNDEF WEBLIB}\r\nvar\r\n  ms: TMemoryStream;\r\n  bmp: TBitmap;\r\n{$IFDEF FMXLIB}\r\n  s: TBitmapSurface;\r\n  sp: TBitmapCodecSaveParams;\r\n{$ENDIF}\r\n{$IFDEF CMNLIB}\r\n  gcc: TGraphicClass;\r\n  bms: TMemoryStream;\r\n  p: TGraphic;\r\n  img: TJPEGImage;\r\n{$ENDIF}\r\nbegin\r\n  Result := nil;\r\n  {$IFDEF FMXLIB}\r\n  s := TBitmapSurface.Create;\r\n  bmp := TBitmap.Create;\r\n  try\r\n    bmp.Width := ABitmap.Width;\r\n    bmp.Height := ABitmap.Height;\r\n    if (ABackgroundColor <> TAlphaColorRec.Null) and (Integer(ABackgroundColor) <> -1) then\r\n      bmp.Clear(ABackgroundColor)\r\n    else\r\n      bmp.Clear(TAlphaColorRec.White);\r\n    bmp.Canvas.BeginScene;\r\n    bmp.Canvas.DrawBitmap(ABitmap, RectF(0, 0, bmp.Width, bmp.Height), RectF(0, 0, bmp.Width, bmp.Height), 1);\r\n    bmp.Canvas.EndScene;\r\n    s.Assign(bmp);\r\n    sp.Quality := Round(AQuality * 100);\r\n    ms := TMemoryStream.Create;\r\n    if TBitmapCodecManager.SaveToStream(ms, s, '.jpeg', @sp) then\r\n      Result := ms;\r\n  finally\r\n    bmp.Free;\r\n    s.Free;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFDEF CMNLIB}\r\n  bms := TMemoryStream.Create;\r\n  ABitmap.SaveToStream(bms);\r\n  try\r\n    if FindGraphicClass(bms.Memory^, bms.Size, gcc) then\r\n    begin\r\n      if gcc = TJPEGImage then\r\n      begin\r\n        ms := TMemoryStream.Create;\r\n        ms.LoadFromStream(bms);\r\n        Result := ms;\r\n      end\r\n      else\r\n      begin\r\n        p := gcc.Create;\r\n        img := TJPEGImage.Create;\r\n        img.CompressionQuality := Round(AQuality * 100);\r\n        bmp := TBitmap.Create;\r\n        try\r\n          bms.Position := 0;\r\n          p.LoadFromStream(bms);\r\n          bmp.Width := p.Width;\r\n          bmp.Height := p.Height;\r\n          if (ABackgroundColor <> clNone) and (Integer(ABackgroundColor) <> -1) then\r\n            bmp.Canvas.Brush.Color := ABackgroundColor\r\n          else\r\n            bmp.Canvas.Brush.Color := clWhite;\r\n          bmp.Canvas.FillRect(Rect(0, 0, bmp.Width, bmp.Height));\r\n          bmp.Canvas.Draw(0, 0, p);\r\n          img.Assign(bmp);\r\n          ms := TMemoryStream.Create;\r\n          img.SaveToStream(ms);\r\n          Result := ms;\r\n        finally\r\n          bmp.Free;\r\n          img.Free;\r\n          p.Free;\r\n        end;\r\n      end;\r\n    end;\r\n  finally\r\n    bms.Free;\r\n  end;\r\n  {$ENDIF}\r\n{$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCUtils.StripThousandSep(ps: string): string;\r\nvar\r\n  i: Integer;\r\n  s: string;\r\nbegin\r\n  Result := '';\r\n  s := ps;\r\n  for i := 1 to Length(s) do\r\n  begin\r\n    if s[i] = FormatSettings.DecimalSeparator then\r\n      Result := Result + '.' else\r\n      if s[i] <> FormatSettings.ThousandSeparator then\r\n        Result := Result + s[i];\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.SubCharSet(ACharSet1,\r\n  ACharSet2: TTMSFNCUtilsCharSet): TTMSFNCUtilsCharSet;\r\nvar\r\n  i,j,l: integer;\r\n  found: boolean;\r\nbegin\r\n  l := 0;\r\n  SetLength(Result,l);\r\n\r\n  for i := 0 to Length(ACharSet1) - 1 do\r\n  begin\r\n    found := false;\r\n    for j := 0 to Length(ACharSet2) - 1 do\r\n      begin\r\n        if ACharSet1[i] = ACharSet2[j] then\r\n        begin\r\n          found := true;\r\n          break;\r\n        end;\r\n      end;\r\n\r\n    if not found then\r\n    begin\r\n      inc(l);\r\n      SetLength(Result,l);\r\n      Result[l - 1] := ACharSet1[i];\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.IsDate(AValue: string; var ADate: TDateTime):boolean;\r\nvar\r\n  su, ts: string;\r\n  da,mo,ye,ho,mi,se: Word;\r\n  err: Integer;\r\n  dp,mp,yp,vp: Integer;\r\nbegin\r\n  Result := False;\r\n\r\n  ts := '';\r\n\r\n  su := UpperCase(FormatSettings.ShortDateFormat);\r\n  dp := pos('D',su);\r\n  mp := pos('M',su);\r\n  yp := pos('Y',su);\r\n\r\n  da := 0;\r\n  mo := 0;\r\n  ye := 0;\r\n  ho := 0;\r\n  mi := 0;\r\n  se := 0;\r\n\r\n  vp := -1;\r\n  if TTMSFNCUtils.VarPos(FormatSettings.DateSeparator,AValue,vp)>0 then\r\n  begin\r\n    su := Copy(AValue,1,vp - 1);\r\n\r\n    if (dp<mp) and\r\n       (dp<yp) then\r\n       val(su,da,err)\r\n    else\r\n    if (mp<dp) and\r\n       (mp<yp) then\r\n       val(su,mo,err)\r\n    else\r\n    if (yp<mp) and\r\n       (yp<dp) then\r\n       val(su,ye,err);\r\n\r\n    if err<>0 then Exit;\r\n    Delete(AValue,1,vp);\r\n\r\n    if TTMSFNCUtils.VarPos(FormatSettings.DateSeparator,AValue,vp)>0 then\r\n    begin\r\n      su := Copy(AValue,1,vp - 1);\r\n\r\n      if ((dp>mp) and (dp<yp)) or\r\n         ((dp>yp) and (dp<mp)) then\r\n         val(su,da,err)\r\n      else\r\n      if ((mp>dp) and (mp<yp)) or\r\n         ((mp>yp) and (mp<dp)) then\r\n         val(su,mo,err)\r\n      else\r\n      if ((yp>mp) and (yp<dp)) or\r\n         ((yp>dp) and (yp<mp)) then\r\n         val(su,ye,err);\r\n\r\n      if err<>0 then Exit;\r\n      Delete(AValue,1,vp);\r\n\r\n      AValue := Trim(AValue);\r\n\r\n      if TTMSFNCUtils.VarPos(' ',AValue, vp) > 0 then  // there is space to separate date & time\r\n      begin\r\n        ts := copy(AValue, vp, length(AValue));\r\n        AValue := copy(AValue, 1, vp - 1);\r\n      end;\r\n\r\n      if (dp>mp) and\r\n         (dp>yp) then\r\n         val(AValue,da,err)\r\n      else\r\n      if (mp>dp) and\r\n         (mp>yp) then\r\n         val(AValue,mo,err)\r\n      else\r\n      if (yp>mp) and\r\n         (yp>dp) then\r\n         val(AValue,ye,err);\r\n\r\n      if err<>0 then Exit;\r\n      if (da>31) then Exit;\r\n      if (mo>12) then Exit;\r\n\r\n      if (ts <> '') then  // there is a time part\r\n      begin\r\n        if TTMSFNCUtils.VarPos(FormatSettings.TimeSeparator,ts,vp)>0 then\r\n        begin\r\n          su := Copy(ts,1,vp - 1); // hour part\r\n          val(su,ho,err);\r\n\r\n          if (err <> 0) then Exit;\r\n          if (ho > 23) then Exit;\r\n\r\n          Delete(ts,1,vp);\r\n\r\n          if TTMSFNCUtils.VarPos(FormatSettings.TimeSeparator,ts,vp)>0 then // there is a second part\r\n          begin\r\n            su := Copy(ts,1,vp - 1); // minute part\r\n            val(su,mi,err);\r\n\r\n            if err <> 0 then Exit;\r\n            Delete(ts,1,vp);\r\n\r\n            val(ts,se,err);  // second part\r\n            if (err <> 0) then Exit;\r\n            if (se > 60) then Exit;\r\n          end\r\n          else\r\n          begin\r\n            val(su,mi,err); // minute part\r\n            if (err <> 0) then Exit;\r\n          end;\r\n\r\n          if (mi > 59) then Exit;\r\n\r\n          Result := true;\r\n        end;\r\n      end\r\n      else\r\n        Result := True;\r\n\r\n      try\r\n        ADate := EncodeDate(ye,mo,da) + EncodeTime(ho,mi,se,0);\r\n      except\r\n        Result := False;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.Matches(s0a, s1a: PChar): Boolean;\r\n{$IFNDEF WEBLIB}\r\nbegin\r\n  Result := Matches(string(s0a), string(s1a));\r\nend;\r\n\r\nclass function TTMSFNCUtils.Matches(s0a, s1a: string): Boolean;\r\n{$ENDIF}\r\nconst\r\n  larger = '>';\r\n  smaller = '<';\r\n  logand  = '&';\r\n  logor   = '^';\r\n  asterix = '*';\r\n  qmark = '?';\r\n  negation = '!';\r\n\r\nvar\r\n  matching: boolean;\r\n  done: boolean;\r\n  len: longint;\r\n  lastchar:  char;\r\n  s0,s1,s2,s3: integer;\r\n  oksmaller,oklarger,negflag: boolean;\r\n  compstr: string;\r\n  flag1,flag2,flag3: boolean;\r\n  equal: boolean;\r\n  n1,n2: double;\r\n  code1, code2: Integer;\r\n  dt1,dt2: TDateTime;\r\n  q, i: integer;\r\nbegin\r\n  {$RANGECHECKS OFF}\r\n  {$IFDEF ZEROSTRINGINDEX}\r\n  i := 1;\r\n  {$ENDIF}\r\n  {$IFNDEF ZEROSTRINGINDEX}\r\n  i := 0;\r\n  {$ENDIF}\r\n\r\n  oksmaller := True;\r\n  oklarger := True;\r\n  flag1 := False;\r\n  flag2 := False;\r\n  flag3 := False;\r\n  negflag := False;\r\n  equal := False;\r\n\r\n  { [<>] string [&|] [<>] string }\r\n\r\n  // do larger than or larger than or equal\r\n\r\n  s2 := Pos(larger,s0a);\r\n\r\n  if s2 <> 0 then\r\n  begin\r\n    inc(s2);\r\n    if (s0a[s2 - i] = '=') then\r\n    begin\r\n      Equal := True;\r\n      inc(s2);\r\n    end;\r\n\r\n    while (s0a[s2 - i] = ' ') do\r\n      inc(s2);\r\n\r\n    s3 := s2;\r\n    len := 0;\r\n\r\n    lastchar := #0;\r\n\r\n    q := 0;\r\n\r\n    while ((s2 - i <= Length(s0a)) and (s0a[s2 - i] <> ' ')) and (s2 <= Length(s0a)) and (odd(q) or ((s0a[s2 - i] <> '&') and (s0a[s2 - i] <> '|')))  do\r\n    begin\r\n      if (s0a[s2 - i] = '\"') then\r\n        inc(q);\r\n\r\n      if (len = 0) and (s0a[s2 - i] = '\"') then\r\n        inc(s3)\r\n      else\r\n        inc(len);\r\n\r\n      lastchar := s0a[s2 - i];\r\n      inc(s2);\r\n\r\n      if (s2 - i <= Length(s0a)) and (s0a[s2 - i] = ' ') and odd(q) then // skip space if between quotes\r\n      begin\r\n        lastchar := s0a[s2 - i];\r\n        inc(s2);\r\n      end;\r\n    end;\r\n\r\n    if (len > 0) and (lastchar = '\"') then\r\n      dec(len);\r\n\r\n    compstr := Copy(s0a,s3,len);\r\n\r\n    //StrLCopy(compstr,s3,len);\r\n\r\n    Val(TTMSFNCUtils.StripThousandSep(s1a),n1,code1);\r\n    Val(TTMSFNCUtils.StripThousandSep(compstr),n2,code2);\r\n\r\n    dt2 := 0;\r\n    if TTMSFNCUtils.IsDate(compstr,dt2) then\r\n      code2 := 1;\r\n\r\n    dt1 := 0;\r\n    if TTMSFNCUtils.IsDate(s1a,dt1) then\r\n      code1 := 1;\r\n\r\n    if (code1 = 0) and (code2 = 0) then {both are numeric types}\r\n    begin\r\n      if equal then\r\n        oklarger := n1 >= n2\r\n      else\r\n        oklarger := n1 > n2;\r\n    end\r\n    else\r\n    begin\r\n      if TTMSFNCUtils.IsDate(compstr,dt2) and TTMSFNCUtils.IsDate(s1a,dt1) then\r\n      begin\r\n        if equal then\r\n         oklarger := dt1 >= dt2\r\n        else\r\n         oklarger := dt1 > dt2;\r\n      end\r\n      else\r\n      begin\r\n        if equal then\r\n         oklarger := (CompareStr(compstr,s1a)<=0)\r\n        else\r\n         oklarger := (CompareStr(compstr,s1a)<0);\r\n      end;\r\n    end;\r\n    flag1 := True;\r\n  end;\r\n\r\n  equal := False;\r\n\r\n  // do smaller than or smaller than or equal\r\n  s2 := Pos(smaller, s0a);\r\n  if (s2 <> 0) then\r\n  begin\r\n    inc(s2);\r\n    if (s0a[s2 - i] = '=') then\r\n      begin\r\n       equal := True;\r\n       inc(s2);\r\n      end;\r\n\r\n    lastchar := #0;\r\n\r\n    while (s2 - i <= Length(s0a)) and (s0a[s2 - i] =' ') do inc(s2);\r\n    s3 := s2;\r\n    len := 0;\r\n    q := 0;\r\n\r\n    while (s2 - i <= Length(s0a)) and (s0a[s2 - i] <> ' ') and (s2 <= Length(s0a)) and (odd(q) or ((s0a[s2 - i] <> '&') and (s0a[s2 - i] <> '|'))) do\r\n    begin\r\n      if s0a[s2 - i] = '\"' then\r\n        inc(q);\r\n\r\n      if (len = 0) and (s0a[s2 - i] = '\"') then\r\n        inc(s3)\r\n      else\r\n        inc(len);\r\n\r\n      lastchar := s0a[s2 - i];\r\n      inc(s2);\r\n    end;\r\n\r\n    if (len > 0) and (lastchar = '\"') then\r\n      dec(len);\r\n\r\n    compstr := copy(s0a, s3, len);\r\n\r\n    Val(TTMSFNCUtils.StripThousandSep(s1a),n1,code1);\r\n    Val(TTMSFNCUtils.StripThousandSep(compstr),n2,code2);\r\n    if TTMSFNCUtils.IsDate(compstr,dt2) then code2 := 1;\r\n    if TTMSFNCUtils.IsDate(s1a,dt1) then code1 := 1;\r\n\r\n    if (code1 = 0) and (code2 = 0) then // both are numeric types\r\n     begin\r\n      if equal then\r\n       oksmaller := n1 <= n2\r\n      else\r\n       oksmaller := n1 < n2;\r\n     end\r\n    else\r\n     begin\r\n      // check for dates here ?\r\n      if TTMSFNCUtils.IsDate(compstr, dt2) and TTMSFNCUtils.IsDate(s1a, dt1) then\r\n       begin\r\n        if equal then\r\n         oksmaller := dt1 <= dt2\r\n        else\r\n         oksmaller := dt1 < dt2;\r\n       end\r\n      else\r\n       begin\r\n        if equal then\r\n          oksmaller := (CompareStr(compstr,s1a)>=0)\r\n        else\r\n          oksmaller := (CompareStr(compstr,s1a)>0);\r\n       end;\r\n     end;\r\n\r\n    flag2 := True;\r\n  end;\r\n\r\n  s2 := Pos(negation, s0a);\r\n\r\n  if (s2 <> 0) then\r\n  begin\r\n    inc(s2);\r\n    while (s0a[s2 - i] = ' ') do\r\n      inc(s2);\r\n    s3 := s2;\r\n    len := 0;\r\n\r\n    lastchar := #0;\r\n    q := 0;\r\n\r\n    while (s0a[s2 - i] <> ' ') and (s2 <= length(s0a)) and (odd(q) or ((s0a[s2 - i] <> '&') and (s0a[s2 - i] <> '|'))) do\r\n    begin\r\n      if (s0a[s2 - i] = '\"') then\r\n        inc(q);\r\n\r\n      if (len = 0) and (s0a[s2 - i] = '\"') then\r\n        inc(s3)\r\n      else\r\n        inc(len);\r\n\r\n      lastchar := s0a[s2 - i];\r\n      inc(s2);\r\n    end;\r\n\r\n    if (len > 0) and (lastchar = '\"') then\r\n      dec(len);\r\n\r\n    compstr := copy(s0a, s3, len);\r\n    flag3 := True;\r\n  end;\r\n\r\n  if (flag3) then\r\n  begin\r\n    if Pos(larger, s0a) = 0 then\r\n      flag1 := flag3;\r\n    if Pos(smaller, s0a) = 0 then\r\n      flag2 := flag3;\r\n  end;\r\n\r\n  if (Pos(logor, s0a) <> 0) then\r\n    if flag1 or flag2 then\r\n    begin\r\n      matches := oksmaller or oklarger;\r\n      Exit;\r\n    end;\r\n\r\n  if (Pos(logand, s0a) <> 0) then\r\n    if flag1 and flag2 then\r\n    begin\r\n      matches := oksmaller and oklarger;\r\n      Exit;\r\n    end;\r\n\r\n  if ((Pos(larger, s0a) <> 0) and (oklarger)) or\r\n     ((Pos(smaller, s0a) <> 0) and (oksmaller)) then\r\n  begin\r\n    matches := True;\r\n    Exit;\r\n  end;\r\n\r\n  s0 := 1;\r\n  s1 := 1;\r\n\r\n  done := (s0a = '') or (s1a = '');\r\n\r\n  Matching := True;\r\n\r\n  while not done and matching do\r\n  begin\r\n    case s0a[s0 - i] of\r\n    qmark:\r\n      begin\r\n        matching := s1 <= Length(s1a);\r\n        if matching then\r\n        begin\r\n          inc(s0);\r\n          inc(s1);\r\n        end;\r\n      end;\r\n    negation:\r\n      begin\r\n        negflag:=True;\r\n        inc(s0);\r\n      end;\r\n    '\"':\r\n      begin\r\n        inc(s0);\r\n      end;\r\n    asterix:\r\n      begin\r\n        repeat\r\n          inc(s0)\r\n        until (s0 - i > Length(s0a)) or (s0a[s0 - i] <> asterix);\r\n        len := Length(s1a) - s1;\r\n        inc(s1,len);\r\n        matching := matches(copy(s0a,s0,Length(s0a)),Copy(s1a, s1, Length(s1a)));\r\n\r\n        while (len >= 0) and not matching do\r\n        begin\r\n         dec(s1);\r\n         dec(len);\r\n         matching := matches(copy(s0a,s0,Length(s0a)),Copy(s1a, s1, Length(s1a)));\r\n       end;\r\n       if matching then\r\n       begin\r\n         s0 := Length(s0a)+1;\r\n         s1 := Length(s1a)+1;\r\n       end;\r\n    end;\r\n   else\r\n     begin\r\n       if (s0 <= Length(s0a)) and (s1 <= Length(s1a)) then\r\n         matching := s0a[s0 - i] = s1a[s1 - i]\r\n       else\r\n         matching := false;\r\n\r\n       if matching then\r\n       begin\r\n         inc(s0);\r\n         inc(s1);\r\n       end;\r\n     end;\r\n   end;\r\n\r\n   Done := (s0 > Length(s0a)) and (s1 > Length(s1a));\r\n  end;\r\n\r\n  if negflag then\r\n    Matches := not matching\r\n  else\r\n    Matches := matching;\r\n\r\n  {$RANGECHECKS ON}\r\nend;\r\n\r\nclass function TTMSFNCUtils.MatchStr(AValue1, AValue2:string; ACaseSensitive:Boolean):Boolean;\r\nbegin\r\n  if ACaseSensitive then\r\n    Result := Matches(PChar(AValue1),PChar(AValue2))\r\n  else\r\n    Result := Matches(PChar(AnsiUpperCase(AValue1)),PChar(AnsiUpperCase(AValue2)));\r\nend;\r\n\r\nclass function TTMSFNCUtils.MatchStrEx(AValue: string; AArray: array of string; ACaseSensitive: Boolean; AExpression: Boolean = True): Boolean;\r\nbegin\r\n  Result := GetStrIdx(AValue, AArray, ACaseSensitive, AExpression) <> -1;\r\nend;\r\n\r\nclass function TTMSFNCUtils.MatchStrEx(AValue1, AValue2: string; ACaseSensitive: Boolean): Boolean;\r\nvar\r\n  ch,lastop: Char;\r\n  sep,cp: Integer;\r\n  res,newres: Boolean;\r\n  CharArray: TTMSFNCUtilsCharSet;\r\nbegin\r\n  AValue1 := Trim(AValue1);\r\n  AValue1 := StripLogicSpaces(AValue1);\r\n\r\n  sep := -1;\r\n  if TTMSFNCUtils.VarPos('=', AValue1, sep) = 1 then\r\n    Delete(AValue1, sep, 1);\r\n\r\n  LastOp := #0;\r\n  Res := True;\r\n\r\n  SetLength(CharArray,5);\r\n  CharArray[0] := '(';\r\n  CharArray[1] := ';';\r\n  CharArray[2] := '^';\r\n  CharArray[3] := '&';\r\n  CharArray[4] := '|';\r\n\r\n  if (AValue1 = '') then\r\n  begin\r\n    Result := (AValue2 = '');\r\n    Exit;\r\n  end;\r\n\r\n  if (AValue1 <> '*') and (AValue2 = '') then\r\n  begin\r\n    Result := False;\r\n    Exit;\r\n  end;\r\n\r\n  repeat\r\n    ch := FirstChar(CharArray, AValue1, sep);\r\n    if ch <> #0 then\r\n    begin\r\n      {$IFDEF ZEROSTRINGINDEX}\r\n      if (length(AValue1) > 0) and (AValue1[0] = '(') and (pos('(',AValue1) > 0) then\r\n      {$ELSE}\r\n      if (length(AValue1) > 0) and (AValue1[1] = '(') and (pos('(',AValue1) > 0) then\r\n      {$ENDIF}\r\n      begin\r\n        cp := ClosingParenthesis(AValue1);\r\n        NewRes := MatchStrEx(copy(AValue1,2,cp - 2),AValue2,ACaseSensitive);\r\n        delete(AValue1,1,cp);\r\n      end\r\n      else\r\n      begin\r\n        NewRes := MatchStr(Copy(AValue1,1,sep - 1),AValue2,ACaseSensitive);\r\n        Delete(AValue1,1,sep);\r\n      end;\r\n\r\n      if LastOp = #0 then\r\n        Res := NewRes\r\n      else\r\n        case LastOp of\r\n        ';','^','|':Res := Res or NewRes;\r\n        '&':Res := Res and NewRes;\r\n        end;\r\n\r\n      LastOp := ch;\r\n     end;\r\n\r\n  until (ch = #0);\r\n\r\n  NewRes := MatchStr(AValue1, AValue2, ACaseSensitive);\r\n\r\n  if LastOp = #0 then\r\n    Res := NewRes\r\n  else\r\n    case LastOp of\r\n    ';','^','|':Res := Res or NewRes;\r\n    '&':Res := Res and NewRes;\r\n    end;\r\n\r\n  Result := Res;\r\nend;\r\n\r\n{$IFDEF FNCLIB}\r\n{$IFNDEF LCLLIB}\r\nclass procedure TTMSFNCUtils.SplitURL(AURL: string; var AHost: string; var APath: string; var AQuery: string; var APort: Integer);\r\nvar\r\n  p, off, portVal: Integer;\r\nbegin\r\n  p := Pos('?', AURL);\r\n  if p > 0 then\r\n  begin\r\n    AQuery := Copy(AURL, p + 1, Length(AURL));\r\n    AURL := Copy(AURL, 0, p - 1);\r\n  end\r\n  else\r\n    AQuery := '';\r\n\r\n  if (Pos('http', LowerCase(AURL)) = 0) then\r\n    AURL := 'https://' + AURL;\r\n  off := 9;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  p := Pos('/', AURL, off);\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  p := PosEx('/', AURL, off);\r\n  {$ENDIF}\r\n  if p > 0 then\r\n  begin\r\n    APath := Copy(AURL, p, Length(AURL));\r\n    AURL := Copy(AURL, 0, p - 1);\r\n  end\r\n  else\r\n    APath := '';\r\n\r\n  {$IFNDEF LCLLIB}\r\n  p := Pos(':', AURL, off);\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  p := PosEx(':', AURL, off);\r\n  {$ENDIF}\r\n\r\n  if p > 0 then\r\n  begin\r\n    portVal := 0;\r\n    TryStrToInt(Copy(AURL, p + 1, Length(AURL)), portVal);\r\n    APort := portVal;\r\n    AURL := AURL.Substring(0, p - 1);\r\n  end\r\n  else\r\n    APort := 0;\r\n\r\n  AHost := AURL;\r\nend;\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\nclass procedure TTMSFNCUtils.Split(const ADelimiter: Char; AInput: string; const AStrings: TStrings; const AClearEmptyStrings: Boolean = False);\r\nvar\r\n  C: Integer;\r\nbegin\r\n  AStrings.Clear;\r\n  AStrings.Delimiter := ADelimiter;\r\n  AStrings.StrictDelimiter := True;\r\n  AStrings.DelimitedText := AInput;\r\n\r\n  if AClearEmptyStrings then\r\n  begin\r\n    for C := AStrings.Count - 1 downto 0 do\r\n      if AStrings[C] = '' then\r\n        AStrings.Delete(C);\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCUtils.VarPos(ASubValue, AValue: string; var AResult: Integer): Integer;\r\nbegin\r\n  AResult := Pos(ASubValue, AValue);\r\n  Result := AResult;\r\nend;\r\n\r\nclass function TTMSFNCUtils.VarPosNoCase(ASubValue, AValue: string;\r\n  var AResult: Integer): Integer;\r\nbegin\r\n  AResult := Pos(Uppercase(ASubValue), Uppercase(AValue));\r\n  Result := AResult;\r\nend;\r\n\r\nclass function TTMSFNCUtils.HTMLStrip(AHTML: string): string;\r\nvar\r\n  TagPos: integer;\r\nbegin\r\n  Result := '';\r\n  // replace line breaks by linefeeds\r\n  while (pos('<BR>',uppercase(AHTML))>0) do\r\n    AHTML := StringReplace(AHTML,'<BR>',chr(13)+chr(10),[rfIgnoreCase]);\r\n\r\n  while (pos('<HR>',uppercase(AHTML))>0) do\r\n    AHTML := StringReplace(AHTML,'<HR>',chr(13)+chr(10),[rfIgnoreCase]);\r\n\r\n  TagPos := 0;\r\n  {remove all other tags}\r\n  while (VarPos('<',AHTML,TagPos) > 0) do\r\n  begin\r\n    Result := Result + Copy(AHTML,1,TagPos-1);\r\n    if (VarPos('>',AHTML,TagPos)>0) then\r\n      Delete(AHTML,1,TagPos)\r\n    else\r\n      Break;\r\n  end;\r\n  Result := Result + AHTML;\r\nend;\r\n\r\nclass function TTMSFNCUtils.GetResourceStream(AResourceName: string): TResourceStream;\r\nbegin\r\n  Result := GetResourceStream(AResourceName, GetHInstance);\r\nend;\r\n\r\nclass function TTMSFNCUtils.GetResourceStream(AResourceName: string; AInstance: NativeUInt): TResourceStream;\r\n{$IFDEF WEBLIB}\r\nbegin\r\n  Result := nil;\r\n{$ENDIF}\r\n{$IFNDEF WEBLIB}\r\nvar\r\n  hst: NativeUInt;\r\n  function FindRCData(ModuleHandle: HMODULE; Name: string): boolean;\r\n  begin\r\n    Result := FindResource(ModuleHandle, PChar(Name), PChar(RT_RCDATA)) <> 0;\r\n  end;\r\nbegin\r\n  Result := nil;\r\n  hst := AInstance;\r\n  if FindRCData(hst, AResourceName) then\r\n    Result := TResourceStream.Create(hst, AResourceName, RT_RCDATA);\r\n{$ENDIF}\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\n\r\n{ TTMSFNCComponentHelper }\r\n\r\nfunction TTMSFNCComponentHelper.GetVersionNumber(AMaj, AMin, ARel,\r\n  ABld: ShortInt): string;\r\nvar\r\n  vn: Integer;\r\nbegin\r\n  vn := MakeLong(MakeWord(ABld, ARel),MakeWord(AMin, AMaj));\r\n  Result := IntToStr(Hi(Hiword(vn)))+'.'+IntToStr(Lo(Hiword(vn)))+'.'+IntToStr(Hi(Loword(vn)))+'.'+IntToStr(Lo(Loword(vn)));\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF CMNLIB}\r\n\r\n{ TTMSFNCControlHelper }\r\n\r\nfunction TTMSFNCControlHelper.MakeScreenshot: TTMSFNCBitmap;\r\nvar\r\n  {$IFDEF VCLLIB}\r\n  bmp: VCL.Graphics.TBitmap;\r\n  {$ELSE}\r\n  bmp: Graphics.TBitmap;\r\n  {$ENDIF}\r\nbegin\r\n  {$IFDEF VCLLIB}\r\n  bmp := VCL.Graphics.TBitmap.Create;\r\n  {$ELSE}\r\n  bmp := Graphics.TBitmap.Create;\r\n  {$ENDIF}\r\n  bmp.PixelFormat := pf24bit;\r\n  bmp.TransparentMode := tmFixed;\r\n  bmp.Transparent := True;\r\n  bmp.TransparentColor := Color;\r\n  bmp.SetSize(Width, Height);\r\n  Result := TTMSFNCBitmap.Create;\r\n  try\r\n    if (Self is TWinControl) and (Self as TWinControl).HandleAllocated then\r\n    begin\r\n      bmp.Canvas.Lock;\r\n      bmp.Canvas.Brush.Color := Color;\r\n      bmp.Canvas.Brush.Style := bsSolid;\r\n      bmp.Canvas.FillRect(Rect(0, 0, Width, Height));\r\n      TWinControl(Self).PaintTo(bmp.Canvas.Handle, 0, 0);\r\n      bmp.Canvas.Unlock;\r\n    end;\r\n\r\n    Result.Assign(bmp);\r\n  finally\r\n    bmp.Free;\r\n  end;\r\nend;\r\n\r\n{$ENDIF}\r\n\r\n{ TTMSFNCClipBoard }\r\n\r\n{$IFDEF FMXLIB}\r\n\r\nclass procedure TTMSFNCClipBoard.Clear;\r\n{$IFDEF MACOS}\r\nvar\r\n{$IFDEF IOS}\r\n  pb: UIPasteboard;\r\n{$ELSE}\r\n  pb: NSPasteboard;\r\n{$ENDIF}\r\n{$ENDIF}\r\n{$IFDEF ANDROID}\r\nvar\r\n  clip: IFMXClipboardService;\r\n{$ENDIF}\r\n{$IFDEF UNIX}\r\n{$IFDEF FMXLIB}\r\nvar\r\n  clip: IFMXClipboardService;\r\n{$ENDIF}\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF MSWINDOWS}\r\n  OpenClipboard(0);\r\n  try\r\n    EmptyClipboard;\r\n  finally\r\n    CloseClipBoard;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFDEF MACOS}\r\n  {$IFDEF IOS}\r\n  pb := TUIPasteboard.Wrap(TUIPasteboard.OCClass.generalPasteboard);\r\n  pb.setData(nil, CocoaNSStringConst(libUIKit, 'UIPasteboardNameGeneral'));\r\n  {$ELSE}\r\n  pb := TNSPasteboard.Wrap(TNSPasteboard.OCClass.generalPasteboard);\r\n  pb.clearContents;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF ANDROID}\r\n  if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService, IInterface(clip)) then\r\n    clip.SetClipboard('');\r\n  {$ENDIF}\r\n  {$IFDEF UNIX}\r\n  {$IFDEF FMXLIB}\r\n  if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService, IInterface(clip)) then\r\n    clip.SetClipboard('');\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCClipBoard.GetHTML: String;\r\nvar\r\n  val: TValue;\r\nbegin\r\n  Result := '';\r\n  val := GetValue(GetFormat(TTMSFNCClipBoardFormat.cfHTML));\r\n  if not val.IsEmpty and val.IsType<String> then\r\n    Result := val.AsType<String>;\r\nend;\r\n\r\n{$IFDEF MSWINDOWS}\r\nclass function TTMSFNCClipBoard.IsTextFormat(AFormat: Cardinal): Boolean;\r\n{$ELSE}\r\nclass function TTMSFNCClipBoard.IsTextFormat(AFormat: String): Boolean;\r\n{$ENDIF}\r\nbegin\r\n  Result := (AFormat = GetFormat(TTMSFNCClipBoardFormat.cfText))\r\n         or (AFormat = GetFormat(TTMSFNCClipBoardFormat.cfRTF))\r\n         or (AFormat = GetFormat(TTMSFNCClipBoardFormat.cfHTML));\r\nend;\r\n\r\n{$IFDEF MSWINDOWS}\r\nclass function TTMSFNCClipBoard.IsStreamFormat(AFormat: Cardinal): Boolean;\r\n{$ELSE}\r\nclass function TTMSFNCClipBoard.IsStreamFormat(AFormat: String): Boolean;\r\n{$ENDIF}\r\nbegin\r\n  Result := (AFormat = GetFormat(TTMSFNCClipBoardFormat.cfStream)) or (AFormat = GetFormat(TTMSFNCClipBoardFormat.cfBitmap))\r\n         or (AFormat = GetFormat(TTMSFNCClipBoardFormat.cfRichTextStream));\r\nend;\r\n\r\n{$IFDEF MSWINDOWS}\r\nclass function TTMSFNCClipBoard.GetFormat(AFormat: TTMSFNCClipBoardFormat): Cardinal;\r\nbegin\r\n  case AFormat of\r\n    TTMSFNCClipBoardFormat.cfText: Result := CF_TEXT;\r\n    TTMSFNCClipBoardFormat.cfRTF: Result := CF_FNCRTF;\r\n    TTMSFNCClipBoardFormat.cfHTML: Result := CF_FNCHTML;\r\n    TTMSFNCClipBoardFormat.cfStream: Result := CF_FNCSTREAM;\r\n    TTMSFNCClipBoardFormat.cfBitmap: Result := CF_FNCBITMAP;\r\n    TTMSFNCClipBoardFormat.cfBitmapWin: Result := CF_FNCBITMAPWIN;\r\n    TTMSFNCClipBoardFormat.cfRichTextStream: Result := CF_FNCRICHTEXTSTREAM;\r\n    else\r\n      Result := 0;\r\n  end;\r\nend;\r\n{$ELSE}\r\n{$IFDEF ANDROID}\r\nclass function TTMSFNCClipBoard.GetFormat(AFormat: TTMSFNCClipBoardFormat): string;\r\nbegin\r\n  Result := '';\r\n  case AFormat of\r\n    TTMSFNCClipBoardFormat.cfText: Result := JStringToString(TJClipDescription.JavaClass.MIMETYPE_TEXT_PLAIN);\r\n    TTMSFNCClipBoardFormat.cfRTF, TTMSFNCClipBoardFormat.cfHTML: Result := JStringToString(TJClipDescription.JavaClass.MIMETYPE_TEXT_HTML);\r\n    TTMSFNCClipBoardFormat.cfStream, TTMSFNCClipBoardformat.cfBitmap, TTMSFNCClipBoardFormat.cfRichTextStream: Result := JStringToString(TJClipDescription.JavaClass.MIMETYPE_TEXT_INTENT);\r\n  end;\r\nend;\r\n{$ELSE}\r\nclass function TTMSFNCClipBoard.GetFormat(AFormat: TTMSFNCClipBoardFormat): string;\r\nbegin\r\n  Result := '';\r\n  case AFormat of\r\n    TTMSFNCClipBoardFormat.cfText: Result := 'public.utf8-plain-text';\r\n    TTMSFNCClipBoardFormat.cfRTF: Result := 'public.rtf';\r\n    TTMSFNCClipBoardFormat.cfHTML: Result := 'public.html';\r\n    TTMSFNCClipBoardFormat.cfStream: Result := 'TTMSFNCClipBoard.StreamFormat';\r\n    {$IFDEF IOS}\r\n    TTMSFNCClipBoardFormat.cfBitmap: Result := 'public.png';\r\n    {$ELSE}\r\n    TTMSFNCClipBoardFormat.cfBitmap: Result := 'public.image';\r\n    {$ENDIF}\r\n    TTMSFNCClipBoardFormat.cfRichTextStream: Result := 'TTMSFNCClipBoard.RichEditorText';\r\n  end;\r\nend;\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\nclass function TTMSFNCClipBoard.GetRTF: String;\r\nvar\r\n  val: TValue;\r\nbegin\r\n  Result := '';\r\n  val := GetValue(GetFormat(TTMSFNCClipBoardFormat.cfRTF));\r\n  if not val.IsEmpty and val.IsType<String> then\r\n    Result := val.AsType<String>;\r\nend;\r\n\r\nclass function TTMSFNCClipBoard.GetBitmap: TTMSFNCBitmap;\r\nvar\r\n  val: TValue;\r\n  ms: TMemoryStream;\r\nbegin\r\n  Result := nil;\r\n  val := GetValue(GetFormat(TTMSFNCClipBoardFormat.cfBitmap));\r\n  if not val.IsEmpty and val.IsType<TMemoryStream> then\r\n  begin\r\n    Result := TTMSFNCBitmap.Create;\r\n    Result.LoadFromStream(val.AsType<TMemoryStream>);\r\n    ms := val.AsType<TMemoryStream>;\r\n    ms.Free;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCClipBoard.GetStream: TMemoryStream;\r\nvar\r\n  val: TValue;\r\nbegin\r\n  Result := nil;\r\n  val := GetValue(GetFormat(TTMSFNCClipBoardFormat.cfStream));\r\n  if not val.IsEmpty and val.IsType<TMemoryStream> then\r\n    Result := val.AsType<TMemoryStream>;\r\nend;\r\n\r\nclass function TTMSFNCClipBoard.GetRichTextStream: TMemoryStream;\r\nvar\r\n  val: TValue;\r\nbegin\r\n  Result := nil;\r\n  val := GetValue(GetFormat(TTMSFNCClipBoardFormat.cfRichTextStream));\r\n  if not val.IsEmpty and val.IsType<TMemoryStream> then\r\n    Result := val.AsType<TMemoryStream>;\r\nend;\r\n\r\nclass function TTMSFNCClipBoard.GetText: String;\r\nvar\r\n  val: TValue;\r\nbegin\r\n  Result := '';\r\n  val := GetValue(GetFormat(TTMSFNCClipBoardFormat.cfText));\r\n  if not val.IsEmpty and val.IsType<String> then\r\n    Result := val.AsType<String>;\r\nend;\r\n\r\n{$IFDEF MSWINDOWS}\r\nclass function TTMSFNCClipBoard.AllocateCustomValue(AFormat: Cardinal; AValue: TValue): THandle;\r\nbegin\r\n  Result := 0;\r\nend;\r\n\r\nclass procedure TTMSFNCClipBoard.SetCustomValue(AFormat: Cardinal; AValue: TValue; var AData: Pointer);\r\n{$ELSE}\r\n{$IFDEF MACOS}\r\nclass function TTMSFNCClipBoard.SetCustomValue(AFormat: String; AValue: TValue): NSData;\r\n{$ELSE}\r\nclass function TTMSFNCClipBoard.SetCustomValue(AFormat: String; AValue: TValue): Pointer;\r\n{$ENDIF}\r\n{$ENDIF}\r\nbegin\r\n  {$IFNDEF MSWINDOWS}\r\n  Result := nil;\r\n  {$ENDIF}\r\nend;\r\n\r\n{$IFDEF MSWINDOWS}\r\nclass function TTMSFNCClipBoard.GetCustomValue(AFormat: Cardinal; AData: Pointer): TValue;\r\n{$ELSE}\r\n{$IFDEF MACOS}\r\nclass function TTMSFNCClipBoard.GetCustomValue(AFormat: String; AData: NSData): TValue;\r\n{$ELSE}\r\nclass function TTMSFNCClipBoard.GetCustomValue(AFormat: String; AData: Pointer): TValue;\r\n{$ENDIF}\r\n{$ENDIF}\r\nbegin\r\n  Result := nil;\r\nend;\r\n\r\n{$OVERFLOWCHECKS OFF}\r\n{$RANGECHECKS OFF}\r\n{$IFDEF MSWINDOWS}\r\nclass function TTMSFNCClipBoard.GetValue(AFormat: Cardinal): TValue;\r\n{$ELSE}\r\nclass function TTMSFNCClipBoard.GetValue(AFormat: String): TValue;\r\n{$ENDIF}\r\n{$IFDEF MACOS}\r\nvar\r\n  dt: NSData;\r\n  str: NSString;\r\n  I: Integer;\r\n  arr: NSArray;\r\n{$IFDEF IOS}\r\n  dtObj: NSObject;\r\n  dtp: Pointer;\r\n  pb: UIPasteboard;\r\n  dic: NSDictionary;\r\n  K: Integer;\r\n  kp: Pointer;\r\n  key: String;\r\n{$ELSE}\r\n  pb: NSPasteboard;\r\n  pbit: NSPasteboardItem;\r\n{$ENDIF}\r\n{$ENDIF}\r\n{$IFDEF MSWINDOWS}\r\nvar\r\n  hMem: THandle;\r\n  pMem: Pointer;\r\n  txt: string;\r\n{$ENDIF}\r\n{$IFDEF ANDROID}\r\nvar\r\n  c: JClipData;\r\n  ci: JClipData_Item;\r\n  int: JIntent;\r\n  bt: TJavaArray<Byte>;\r\n{$ENDIF}\r\n{$IFDEF UNIX}\r\n{$IFDEF FMXLIB}\r\nvar\r\n  clip: IFMXExtendedClipboardService;\r\n  b: TBitmap;\r\n  bs: TBitmapSurface;\r\n{$ENDIF}\r\n{$ENDIF}\r\nbegin\r\n  Result := nil;\r\n  {$IFDEF MACOS}\r\n  {$IFDEF IOS}\r\n  pb := TUIPasteboard.Wrap(TUIPasteboard.OCClass.generalPasteboard);\r\n  arr := pb.items;\r\n  for I := 0 to arr.count - 1 do\r\n  begin\r\n    dic := TNSDictionary.Wrap(arr.objectAtIndex(I));\r\n    for K := 0 to dic.allKeys.count - 1 do\r\n    begin\r\n      kp := dic.allKeys.objectAtIndex(K);\r\n      key := UTF8ToString(TNSString.Wrap(kp).UTF8String);\r\n      if key = AFormat then\r\n      begin\r\n        dtp := dic.objectForKey(kp);\r\n        dtobj := TNSObject.Wrap(dtp);\r\n        if isStreamFormat(AFormat) then\r\n        begin\r\n          dt := TNSData.Wrap(dtp);\r\n          if Assigned(dt) then\r\n          begin\r\n            Result := TMemoryStream.Create;\r\n            Result.AsType<TMemoryStream>.Write(dt.bytes^, dt.length);\r\n            Result.AsType<TMemoryStream>.Position := 0;\r\n            Exit;\r\n          end;\r\n        end\r\n        else if isTextFormat(AFormat) then\r\n        begin\r\n          str := TNSString.Wrap(dtp);\r\n          Result := UTF8ToString(str.UTF8String);\r\n          Exit;\r\n        end\r\n        else\r\n          Result := GetCustomValue(AFormat, TNSData.Wrap(dtp));\r\n      end;\r\n    end;\r\n  end;\r\n  {$ELSE}\r\n  pb := TNSPasteboard.Wrap(TNSPasteboard.OCClass.generalPasteboard);\r\n  arr := pb.pasteboardItems;\r\n  for I := 0 to arr.count - 1 do\r\n  begin\r\n    pbit := TNSPasteboardItem.Wrap(arr.objectAtIndex(I));\r\n    if isTextFormat(AFormat) then\r\n    begin\r\n      str := pbit.stringForType(TTMSFNCUtils.NSStrEx(AFormat));\r\n      if Assigned(str) then\r\n      begin\r\n        Result := UTF8ToString(str.UTF8String);\r\n        Exit;\r\n      end;\r\n    end\r\n    else if isStreamFormat(AFormat) then\r\n    begin\r\n      if AFormat = 'public.image' then\r\n      begin\r\n        dt := pbit.dataForType(TTMSFNCUtils.NSStrEx('public.png'));\r\n        if not Assigned(dt) then\r\n        begin\r\n          dt := pbit.dataForType(TTMSFNCUtils.NSStrEx('public.tiff'));\r\n          if not Assigned(dt) then\r\n            dt := pbit.dataForType(TTMSFNCUtils.NSStrEx('public.jpeg'));\r\n        end;\r\n      end\r\n      else\r\n        dt := pbit.dataForType(TTMSFNCUtils.NSStrEx(AFormat));\r\n\r\n      if Assigned(dt) then\r\n      begin\r\n        Result := TMemoryStream.Create;\r\n        Result.AsType<TMemoryStream>.Write(dt.bytes^, dt.length);\r\n        Result.AsType<TMemoryStream>.Position := 0;\r\n        Exit;\r\n      end;\r\n    end\r\n    else\r\n      Result := GetCustomValue(AFormat, pbit.dataForType(TTMSFNCUtils.NSStrEx(AFormat)));\r\n  end;\r\n  {$ENDIF}\r\n{$ENDIF}\r\n{$OVERFLOWCHECKS ON}\r\n{$RANGECHECKS ON}\r\n\r\n{$IFDEF UNIX}\r\n{$IFDEF FMXLIB}\r\nif TPlatformServices.Current.SupportsPlatformService(IFMXExtendedClipBoardService, IInterface(clip)) then\r\nbegin\r\n  if AFormat = GetFormat(TTMSFNCClipBoardFormat.cfBitmap) then\r\n  begin\r\n    Result := TMemoryStream.Create;\r\n    b := TBitmap.Create;\r\n    bs := nil;\r\n    try\r\n      bs := clip.GetImage;\r\n      b.Assign(bs);\r\n      b.SaveToStream(Result.AsType<TMemoryStream>);\r\n    finally\r\n      if Assigned(bs) then\r\n        bs.Free;\r\n      b.Free;\r\n    end;\r\n  end\r\n  else if isStreamFormat(AFormat) then\r\n  begin\r\n    Result := TMemoryStream.Create;\r\n    clip.GetCustomFormat(AFormat, Result.AsType<TMemoryStream>);\r\n  end\r\n  else if isTextFormat(AFormat) then\r\n    Result := clip.GetText;\r\nend;\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\n{$IFDEF MSWINDOWS}\r\n  if AFormat = CF_TEXT then\r\n  begin\r\n    if HasFormat(CF_UNICODETEXT) then\r\n      AFormat := CF_UNICODETEXT;\r\n  end;\r\n\r\n  OpenClipboard(0);\r\n  try\r\n    hMem := GetClipboardData(AFormat);\r\n  finally\r\n    CloseClipboard;\r\n  end;\r\n\r\n  if hMem <> 0 then\r\n  begin\r\n    pMem := GlobalLock(hMem);\r\n    if pMem <> nil then\r\n    begin\r\n      try\r\n        if isStreamFormat(AFormat) then\r\n        begin\r\n          Result := TMemoryStream.Create;\r\n          Result.AsType<TMemoryStream>.Write(pMem^, GlobalSize(hMem));\r\n          Result.AsType<TMemoryStream>.Position := 0;\r\n        end\r\n        else if isTextFormat(AFormat) or (AFormat = CF_UNICODETEXT) then\r\n        begin\r\n          if AFormat = CF_UNICODETEXT then\r\n            txt := PChar(pMem)\r\n          else\r\n            txt := UTF8ToString(pMem);\r\n\r\n          Result := txt;\r\n        end\r\n        else\r\n          Result := GetCustomValue(AFormat, pMem);\r\n      finally\r\n        GlobalUnlock(hMem);\r\n      end;\r\n    end;\r\n  end;\r\n{$ENDIF}\r\n\r\n{$IFDEF ANDROID}\r\n  if Assigned(FClipboardManager) and isTextFormat(AFormat) then\r\n    Result := JCharSequenceToStr(FClipboardManager.getText)\r\n  else if Assigned(FContentClipboardManager) then\r\n  begin\r\n    if isStreamFormat(AFormat) then\r\n    begin\r\n      c := FContentClipboardManager.getPrimaryClip;\r\n      if Assigned(c) then\r\n      begin\r\n        ci := c.getItemAt(0);\r\n        if Assigned(ci) then\r\n        begin\r\n          int := ci.getIntent;\r\n          if int <> nil then\r\n          begin\r\n            bt := int.getByteArrayExtra(StringToJString(AFormat));\r\n            Result := TMemoryStream.Create;\r\n            Result.AsType<TMemoryStream>.Write(bt.Data^, bt.Length);\r\n            Result.AsType<TMemoryStream>.Position := 0;\r\n          end;\r\n        end;\r\n      end;\r\n    end\r\n    else if isTextFormat(AFormat) then\r\n    begin\r\n      Result := JCharSequenceToStr(FContentClipboardManager.getText);\r\n    end;\r\n  end;\r\n{$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCClipBoard.HasFormat(AFormat: TTMSFNCClipBoardFormat): Boolean;\r\nbegin\r\n  Result := HasFormat(GetFormat(AFormat));\r\nend;\r\n\r\n{$OVERFLOWCHECKS OFF}\r\n{$RANGECHECKS OFF}\r\n{$IFDEF MSWINDOWS}\r\nclass function TTMSFNCClipBoard.HasFormat(AFormat: Cardinal): Boolean;\r\nbegin\r\n  Result := False;\r\n  try\r\n    OpenClipboard(0);\r\n    Result := Boolean(IsClipboardFormatAvailable(AFormat));\r\n    CloseClipboard;\r\n  except\r\n  end;\r\nend;\r\n{$ELSE}\r\nclass function TTMSFNCClipBoard.HasFormat(AFormat: String): Boolean;\r\n  {$IFDEF MACOS}\r\n  {$IFDEF IOS}\r\nvar\r\n  I, K: Integer;\r\n  kp: Pointer;\r\n  key: String;\r\n  pb: UIPasteBoard;\r\n  arr: NSArray;\r\n  dic: NSDictionary;\r\n  {$ELSE}\r\nvar\r\n  I: NSUInteger;\r\n  pb: NSPasteBoard;\r\n  pbi: NSPasteboardItem;\r\n  str: NSString;\r\n  {$ENDIF}\r\n  {$ELSE}\r\n  {$IFDEF ANDROID}\r\nvar\r\n  c: JClipData;\r\n  int: JIntent;\r\n  ci: JClipData_Item;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF UNIX}\r\n  {$IFDEF FMXLIB}\r\nvar\r\n  clip: IFMXExtendedClipboardService;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nbegin\r\n  Result := False;\r\n  {$IFDEF MACOS}\r\n  {$IFDEF IOS}\r\n  pb := TUIPasteboard.Wrap(TUIPasteboard.OCClass.generalPasteboard);\r\n  arr := pb.items;\r\n  for I := 0 to arr.count - 1 do\r\n  begin\r\n    dic := TNSDictionary.Wrap(arr.objectAtIndex(I));\r\n    for K := 0 to dic.allKeys.count - 1 do\r\n    begin\r\n      kp := dic.allKeys.objectAtIndex(K);\r\n      key := UTF8ToString(TNSString.Wrap(kp).UTF8String);\r\n      if key = AFormat then\r\n      begin\r\n        Result := True;\r\n        Exit;\r\n      end;\r\n    end;\r\n  end;\r\n  {$ELSE}\r\n  pb := TNSPasteboard.Wrap(TNSPasteboard.OCClass.generalPasteboard);\r\n  for I := 0 to pb.pasteboardItems.count - 1 do\r\n  begin\r\n    pbi := TNSPasteboardItem.Wrap(pb.pasteboardItems.objectAtIndex(I));\r\n    str := pbi.availableTypeFromArray(TNSArray.Wrap(TNSArray.OCClass.arrayWithObject((TTMSFNCUtils.NSStrEx(AFormat) as ILocalObject).GetObjectID)));\r\n    if Assigned(str) then\r\n    begin\r\n      Result := True;\r\n      Exit;\r\n    end;\r\n  end;\r\n  {$ENDIF}\r\n  {$ELSE}\r\n  {$IFDEF ANDROID}\r\n  if Assigned(FClipboardManager) and (AFormat = JStringToString(TJClipDescription.JavaClass.MIMETYPE_TEXT_PLAIN)) then\r\n    Result := FClipboardManager.hasText\r\n  else if Assigned(FContentClipboardManager) then\r\n  begin\r\n    if FContentClipboardManager.hasPrimaryClip then\r\n    begin\r\n      if isStreamFormat(AFormat) then\r\n      begin\r\n        c := FContentClipboardManager.getPrimaryClip;\r\n        if Assigned(c) then\r\n        begin\r\n          ci := c.getItemAt(0);\r\n          if Assigned(ci) then\r\n          begin\r\n            int := ci.getIntent;\r\n            if int <> nil then\r\n              Result := int.hasExtra(StringToJString(AFormat));\r\n          end;\r\n        end;\r\n      end\r\n      else if isTextFormat(AFormat) then\r\n        Result := FContentClipboardManager.hasText;\r\n    end;\r\n  end;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF UNIX}\r\n  {$IFDEF FMXLIB}\r\n  if TPlatformServices.Current.SupportsPlatformService(IFMXExtendedClipBoardService, IInterface(clip)) then\r\n  begin\r\n    if AFormat = GetFormat(TTMSFNCClipBoardFormat.cfBitmap) then\r\n      Result := clip.HasImage\r\n    else if isStreamFormat(AFormat) then\r\n      Result := clip.HasCustomFormat(AFormat)\r\n    else if isTextFormat(AFormat) then\r\n      Result := clip.HasText;\r\n  end;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nend;\r\n{$ENDIF}\r\n{$OVERFLOWCHECKS ON}\r\n{$RANGECHECKS ON}\r\n\r\nclass procedure TTMSFNCClipBoard.SetHTML(AHTML: String);\r\nbegin\r\n  SetValue(AHTML, GetFormat(TTMSFNCClipBoardFormat.cfHTML));\r\nend;\r\n\r\nclass procedure TTMSFNCClipBoard.SetRTF(ARTF: String);\r\nbegin\r\n  SetValue(ARTF, GetFormat(TTMSFNCClipBoardFormat.cfRTF));\r\nend;\r\n\r\nclass procedure TTMSFNCClipBoard.SetStream(AStream: TMemoryStream);\r\nbegin\r\n  SetValue(AStream, GetFormat(TTMSFNCClipBoardFormat.cfStream));\r\nend;\r\n\r\n{$IFDEF MSWINDOWS}\r\nclass function TTMSFNCClipBoard.GetBitmapWin: TTMSFNCBitmap;\r\nvar\r\n  Header: TBitmapFileHeader;\r\n  DataHandle: HGLOBAL;\r\n  BitmapInfoPtr: PBitmapV5Header;\r\n  Stream: TMemoryStream;\r\nbegin\r\n  Result := nil;\r\n  OpenClipboard(0);\r\n  DataHandle := GetClipboardData(CF_DIB);\r\n  BitmapInfoPtr := nil;\r\n  if DataHandle <> 0 then\r\n    BitmapInfoPtr := GlobalLock(DataHandle);\r\n\r\n  if Assigned(BitmapInfoPtr) then\r\n  begin\r\n    Stream := TMemoryStream.Create;\r\n    try\r\n      FillChar(Header, SizeOf(Header), 0);\r\n      Header.bfType := $4D42;\r\n      Header.bfSize := SizeOf(Header) + GlobalSize(DataHandle);\r\n      Header.bfOffBits := SizeOf(Header) + BitmapInfoPtr.bV5Size;\r\n      Stream.WriteBuffer(Header, SizeOf(Header));\r\n      Stream.WriteBuffer(BitmapInfoPtr^, Header.bfSize - SizeOf(Header));\r\n      Stream.Position := 0;\r\n      Result := TTMSFNCBitmap.Create;\r\n      Result.LoadFromStream(Stream);\r\n    finally\r\n      GlobalUnlock(DataHandle);\r\n      Stream.Free;\r\n      CloseClipboard;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass procedure TTMSFNCClipBoard.SetBitmapWin(ABitmap: TTMSFNCBitmap);\r\nvar\r\n  Data: THandle;\r\n  DataPtr: Pointer;\r\n  BitmapHeader: TBitmapInfoHeader;\r\n  BitmapData: TBitmapData;\r\n  I, J: Integer;\r\n  DIBDataPtr: Pointer;\r\nbegin\r\n  OpenClipboard(0);\r\n  try\r\n    FillChar(BitmapHeader, SizeOf(BitmapHeader), 0);\r\n    BitmapHeader.biSize := SizeOf(TBitmapInfoHeader);\r\n    BitmapHeader.biPlanes := 1;\r\n    BitmapHeader.biBitCount := 32;\r\n    BitmapHeader.biCompression := BI_RGB;\r\n\r\n    BitmapHeader.biWidth := ABitmap.Width;\r\n    BitmapHeader.biHeight := ABitmap.Height;\r\n    BitmapHeader.biSizeImage := ABitmap.BytesPerPixel * ABitmap.Width * ABitmap.Height;\r\n\r\n    if BitmapHeader.biWidth <= 0 then\r\n      BitmapHeader.biWidth := 1;\r\n    if BitmapHeader.biHeight <= 0 then\r\n      BitmapHeader.biHeight := 1;\r\n\r\n    Data := GlobalAlloc(GMEM_MOVEABLE + GMEM_DDESHARE, BitmapHeader.biWidth * Abs(BitmapHeader.biHeight) * 4 + SizeOf(BitmapHeader));\r\n    try\r\n      DataPtr := GlobalLock(Data);\r\n      try\r\n        Move(BitmapHeader, DataPtr^, SizeOf(BitmapHeader));\r\n        DIBDataPtr := @(PByteArray(DataPtr)[SizeOf(BitmapHeader)]);\r\n\r\n        if ABitmap.Map(TMapAccess.Read, BitmapData) then\r\n        try\r\n          if BitmapData.PixelFormat = TPixelFormat.BGRA then\r\n            for I := 0 to ABitmap.Height - 1 do\r\n              Move(PAlphaColorArray(BitmapData.Data)[I * (BitmapData.Pitch div 4)],\r\n                PAlphaColorArray(DIBDataPtr)[(ABitmap.Height - 1 - I) * ABitmap.Width], ABitmap.Width * 4)\r\n          else\r\n            for I := 0 to ABitmap.Height - 1 do\r\n              for J := 0 to ABitmap.Width - 1 do\r\n                PAlphaColorArray(DIBDataPtr)[(ABitmap.Height - 1 - I) * ABitmap.Width + J] :=\r\n                  BitmapData.GetPixel(J, I);\r\n        finally\r\n          ABitmap.Unmap(BitmapData);\r\n        end;\r\n      finally\r\n        GlobalUnlock(Data);\r\n      end;\r\n      SetClipboardData(CF_DIB, Data);\r\n    except\r\n      GlobalFree(Data);\r\n      raise;\r\n    end;\r\n  finally\r\n    CloseClipboard;\r\n  end;\r\nend;\r\n\r\n{$ENDIF}\r\n\r\nclass procedure TTMSFNCClipBoard.SetBitmap(ABitmap: TTMSFNCBitmap);\r\nvar\r\n  ms: TMemoryStream;\r\nbegin\r\n  ms := TMemoryStream.Create;\r\n  try\r\n    ABitmap.SaveToStream(ms);\r\n    SetValue(ms, GetFormat(TTMSFNCClipBoardFormat.cfBitmap));\r\n  finally\r\n    ms.Free;\r\n  end;\r\nend;\r\n\r\nclass procedure TTMSFNCClipBoard.SetRichTextStream(AStream: TMemoryStream);\r\nbegin\r\n  SetValue(AStream, GetFormat(TTMSFNCClipBoardFormat.cfRichTextStream));\r\nend;\r\n\r\nclass procedure TTMSFNCClipBoard.SetText(AText: String);\r\nbegin\r\n  SetValue(AText, GetFormat(TTMSFNCClipBoardFormat.cfText));\r\nend;\r\n\r\n{$IFDEF MSWINDOWS}\r\nclass procedure TTMSFNCClipBoard.SetValues(AValues: TArray<TValue>; AFormats: TArray<Cardinal>);\r\n{$ELSE}\r\nclass procedure TTMSFNCClipBoard.SetValues(AValues: TArray<TValue>; AFormats: TArray<String>);\r\n{$ENDIF}\r\n{$IFDEF MACOS}\r\nvar\r\n{$IFDEF IOS}\r\n  pb: UIPasteboard;\r\n  dic: NSMutableDictionary;\r\n  pValue: Pointer;\r\n{$ELSE}\r\n  pb: NSPasteboard;\r\n  m: NSMutableArray;\r\n{$ENDIF}\r\n  MemoryStream: TMemoryStream;\r\n  I: Integer;\r\n{$ENDIF}\r\n{$IFDEF MSWINDOWS}\r\nvar\r\n  hMem: THandle;\r\n  pMem: Pointer;\r\n  txt: string;\r\n  l: integer;\r\n  I: Integer;\r\n{$ENDIF}\r\n{$IFDEF ANDROID}\r\nvar\r\n  c: JClipData;\r\n  int: JIntent;\r\n  bt: TJavaArray<Byte>;\r\n  I: Integer;\r\n{$ENDIF}\r\n{$IFDEF UNIX}\r\n{$IFDEF FMXLIB}\r\nvar\r\n  clip: IFMXExtendedClipboardService;\r\n  bs: TBitmapSurface;\r\n  b: TBitmap;\r\n  I: Integer;\r\n{$ENDIF}\r\n{$ENDIF}\r\nbegin\r\n  for I := 0 to Length(AValues) - 1 do\r\n  begin\r\n    if AValues[I].IsObject then\r\n    begin\r\n      if AValues[I].IsType<TMemoryStream> then\r\n        AValues[I].AsType<TMemoryStream>.Position := 0;\r\n    end;\r\n  end;\r\n\r\n  {$IFDEF MACOS}\r\n  {$IFDEF IOS}\r\n  pb := TUIPasteboard.Wrap(TUIPasteboard.OCClass.generalPasteboard);\r\n\r\n  dic := TNSMutableDictionary.Wrap(TNSMutableDictionary.Wrap(TNSMutableDictionary.OCClass.alloc).init);\r\n\r\n  for I := 0 to Length(AValues) - 1 do\r\n  begin\r\n    if AValues[I].IsType<TMemoryStream> then\r\n    begin\r\n      MemoryStream := TMemoryStream.Create;\r\n      try\r\n        MemoryStream.CopyFrom(AValues[I].AsType<TMemoryStream>, AValues[I].AsType<TMemoryStream>.Size - AValues[I].AsType<TMemoryStream>.Position);\r\n        MemoryStream.Position := 0;\r\n        pValue := TNSData.OCClass.dataWithBytes(MemoryStream.Memory, MemoryStream.Size);\r\n      finally\r\n        MemoryStream.Free;\r\n      end;\r\n    end\r\n    else if AValues[I].IsType<String> then\r\n      pValue := (TTMSFNCUtils.NSStrEx(AValues[I].AsType<String>) as ILocalObject).GetObjectID\r\n    else\r\n      pValue := (SetCustomValue(AFormats[I], AValues[I]) as ILocalObject).GetObjectID;\r\n\r\n    if Assigned(pValue) then\r\n      dic.setValue(pValue, TTMSFNCUtils.NSStrEx(AFormats[I]));\r\n  end;\r\n\r\n  pb.addItems(TNSArray.Wrap(TNSArray.OCClass.arrayWithObject((dic as ILocalObject).GetObjectID)));\r\n  {$ELSE}\r\n  pb := TNSPasteboard.Wrap(TNSPasteboard.OCClass.generalPasteboard);\r\n  m := TNSMutableArray.Wrap(TNSMutableArray.Wrap(TNSMutableArray.OCClass.alloc).init);\r\n  for I := 0 to Length(AFormats) - 1 do\r\n    m.addObject((TTMSFNCUtils.NSStrEx(AFormats[I]) as ILocalObject).GetObjectID);\r\n\r\n  pb.declareTypes(m, nil);\r\n\r\n  m.release;\r\n\r\n  for I := 0 to Length(AValues) - 1 do\r\n  begin\r\n    if AValues[I].IsType<TMemoryStream> then\r\n    begin\r\n      MemoryStream := TMemoryStream.Create;\r\n      try\r\n        MemoryStream.CopyFrom(AValues[I].AsType<TMemoryStream>, AValues[I].AsType<TMemoryStream>.Size - AValues[I].AsType<TMemoryStream>.Position);\r\n        MemoryStream.Position := 0;\r\n        pb.setData(TNSData.Wrap(TNSData.OCClass.dataWithBytes(MemoryStream.Memory, MemoryStream.Size)), TTMSFNCUtils.NSStrEx(AFormats[I]))\r\n      finally\r\n        MemoryStream.Free;\r\n      end;\r\n    end\r\n    else if AValues[I].IsType<String> then\r\n      pb.setData(TTMSFNCUtils.NSStrEx(AValues[I].AsType<String>).dataUsingEncoding(NSUTF8StringEncoding), TTMSFNCUtils.NSStrEx(AFormats[I]))\r\n    else\r\n      pb.setData(SetCustomValue(AFormats[I], AValues[I]), TTMSFNCUtils.NSStrEx(AFormats[I]));\r\n  end;\r\n  {$ENDIF}\r\n{$ENDIF}\r\n\r\n{$IFDEF MSWINDOWS}\r\n  for I := 0 to Length(AValues) - 1 do\r\n  begin\r\n    if AValues[I].IsObject and AValues[I].IsType<TMemoryStream> then\r\n      hMem := GlobalAlloc(GHND or GMEM_DDESHARE, AValues[I].AsType<TMemoryStream>.Size)\r\n    else if AValues[I].IsType<String> then\r\n    begin\r\n      txt := AValues[I].AsString;\r\n      if AFormats[I] = CF_FNCRTF then\r\n      begin\r\n        l := Length(txt) + 1;\r\n        hMem := GlobalAlloc(GHND or GMEM_DDESHARE, l)\r\n      end\r\n      else\r\n      begin\r\n        l := ByteLength(txt) + SizeOf(Char);\r\n        hMem := GlobalAlloc(GHND or GMEM_DDESHARE, l)\r\n      end;\r\n    end\r\n    else\r\n      hMem := AllocateCustomValue(AFormats[I], AValues[I]);\r\n\r\n    if hMem <> 0 then\r\n    begin\r\n      pMem := GlobalLock(hMem);\r\n      if pMem <> nil then\r\n      begin\r\n        try\r\n          if AValues[I].IsObject and AValues[I].IsType<TMemoryStream> then\r\n          begin\r\n            AValues[I].AsType<TMemoryStream>.Read(pMem^, AValues[I].AsType<TMemoryStream>.Size);\r\n            AValues[I].AsType<TMemoryStream>.Position := 0;\r\n          end\r\n          else if AValues[I].IsType<string> then\r\n          begin\r\n            if AFormats[I] = CF_FNCRTF then\r\n            begin\r\n              {$HINTS OFF}\r\n              {$IF COMPILERVERSION > 24}\r\n              AnsiStrings.StrCopy(pMem, PAnsiChar(AnsiString(txt)));\r\n              {$ELSE}\r\n              StrCopy(PAnsiChar(pMem), PAnsiChar(AnsiString(txt)));\r\n              {$IFEND}\r\n              {$HINTS ON}\r\n            end\r\n            else\r\n            begin\r\n              if AFormats[I] = CF_TEXT then\r\n                AFormats[I] := CF_UNICODETEXT;\r\n\r\n              Move(PChar(txt)^, pMem^, ByteLength(txt) + SizeOf(Char));\r\n            end;\r\n          end\r\n          else\r\n            SetCustomValue(AFormats[I], AValues[I], pMem);\r\n        finally\r\n          GlobalUnlock(hMem);\r\n        end;\r\n        OpenClipboard(0);\r\n        try\r\n          SetClipboardData(AFormats[I], hmem);\r\n        finally\r\n          CloseClipboard;\r\n        end;\r\n      end\r\n      else\r\n      begin\r\n        GlobalFree(hMem);\r\n      end;\r\n    end;\r\n  end;\r\n{$ENDIF}\r\n\r\n{$IFDEF ANDROID}\r\n  for I := 0 to Length(AValues) - 1 do\r\n  begin\r\n    if Assigned(FClipboardManager) and AValues[I].IsType<string> then\r\n      FClipboardManager.setText(StrToJCharSequence(AValues[I].AsType<string>))\r\n    else if Assigned(FContentClipboardManager) then\r\n    begin\r\n      if AValues[I].IsType<TMemoryStream> then\r\n      begin\r\n        int := TJIntent.Create;\r\n        bt := TJavaArray<Byte>.Create(AValues[I].AsType<TMemoryStream>.Size - AValues[I].AsType<TMemoryStream>.Position);\r\n        try\r\n          AValues[I].AsType<TMemoryStream>.Read(bt.Data^, AValues[I].AsType<TMemoryStream>.Size - AValues[I].AsType<TMemoryStream>.Position);\r\n          int.putExtra(StringToJString(AFormats[I]), bt);\r\n          c := TJClipData.JavaClass.newIntent(StrToJCharSequence('Stream'), int);\r\n          FContentClipboardManager.setPrimaryClip(c);\r\n        finally\r\n          bt.Free;\r\n        end;\r\n      end\r\n      else if AValues[I].IsType<String> then\r\n      begin\r\n        if AFormats[I] = GetFormat(cfHTML) then\r\n          c := TJClipData.JavaClass.newHtmlText(StrToJCharSequence(AFormats[I]), StrToJCharSequence(TTMSFNCUtils.HTMLStrip(AValues[I].AsType<string>)), StringToJString(AValues[I].AsType<string>))\r\n        else\r\n          c := TJClipData.JavaClass.newPlainText(StrToJCharSequence(AFormats[I]), StrToJCharSequence(AValues[I].AsType<string>));\r\n\r\n        FContentClipboardManager.setPrimaryClip(c);\r\n      end;\r\n    end;\r\n  end;\r\n{$ENDIF}\r\n\r\n{$IFDEF UNIX}\r\n{$IFDEF FMXLIB}\r\n  if TPlatformServices.Current.SupportsPlatformService(IFMXExtendedClipBoardService, IInterface(clip)) then\r\n  begin\r\n    for I := 0 to Length(AValues) - 1 do\r\n    begin\r\n      if AValues[I].IsType<TBitmap> then\r\n      begin\r\n        bs := TBitmapSurface.Create;\r\n        try\r\n          bs.Assign(AValues[I].AsType<TBitmap>);\r\n          clip.SetImage(bs);\r\n        finally\r\n          bs.Free;\r\n        end;\r\n      end\r\n      else if AValues[I].IsType<TMemoryStream> then\r\n      begin\r\n        if AFormats[I] = GetFormat(cfBitmap) then\r\n        begin\r\n          b := TBitmap.Create;\r\n          bs := TBitmapSurface.Create;\r\n          try\r\n            b.LoadFromStream(AValues[I].AsType<TMemoryStream>);\r\n            bs.Assign(b);\r\n            clip.SetImage(bs);\r\n          finally\r\n            b.Free;\r\n            bs.Free;\r\n          end;\r\n        end\r\n        else\r\n          clip.SetCustomFormat(AFormats[I], AValues[I].AsType<TMemoryStream>)\r\n      end\r\n      else if AValues[I].IsType<String> then\r\n        clip.SetText(AValues[I].AsType<String>);\r\n    end;\r\n  end;\r\n{$ENDIF}\r\n{$ENDIF}\r\nend;\r\n\r\n{$IFDEF MSWINDOWS}\r\nclass procedure TTMSFNCClipBoard.SetValue(AValue: TValue; AFormat: Cardinal);\r\n{$ELSE}\r\nclass procedure TTMSFNCClipBoard.SetValue(AValue: TValue; AFormat: String);\r\n{$ENDIF}\r\nbegin\r\n  SetValues([AValue], [AFormat]);\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF WEBLIB}\r\nclass function TTMSFNCClipBoard.GetBitmap: TTMSFNCBitmap;\r\nbegin\r\n  Result := nil;\r\n  raise Exception.Create('GetBitmap not supported');\r\nend;\r\n\r\nclass procedure TTMSFNCClipBoard.SetBitmap(ABitmap: TTMSFNCBitmap);\r\nbegin\r\n  raise Exception.Create('SetBitmap not supported');\r\nend;\r\n\r\nclass function TTMSFNCClipBoard.GetRichTextStream: TMemoryStream;\r\nbegin\r\n  Result := nil;\r\n  raise Exception.Create('GetRichTextStream not supported');\r\nend;\r\n\r\nclass procedure TTMSFNCClipBoard.SetRichTextStream(AStream: TMemoryStream);\r\nbegin\r\n  raise Exception.Create('SetRichTextStream not supported');\r\nend;\r\n\r\nclass function TTMSFNCClipBoard.GetStream: TMemoryStream;\r\nbegin\r\n  Result := nil;\r\n  raise Exception.Create('GetStream not supported');\r\nend;\r\n\r\nclass procedure TTMSFNCClipBoard.SetStream(AStream: TMemoryStream);\r\nbegin\r\n  raise Exception.Create('SetStream not supported');\r\nend;\r\n\r\nclass function TTMSFNCClipBoard.GetRTF: string;\r\nbegin\r\n  Result := '';\r\n  raise Exception.Create('GetRTF not supported');\r\nend;\r\n\r\nclass procedure TTMSFNCClipBoard.SetRTF(ARTF: String);\r\nbegin\r\n  raise Exception.Create('SetRTF not supported');\r\nend;\r\n\r\nclass function TTMSFNCClipBoard.GetHTML: string;\r\nbegin\r\n  Result := '';\r\n  raise Exception.Create('GetHTML not supported');\r\nend;\r\n\r\nclass procedure TTMSFNCClipBoard.SetHTML(AHTML: String);\r\nbegin\r\n  raise Exception.Create('SetHTML not supported');\r\nend;\r\n\r\nclass function TTMSFNCClipBoard.GetText: string;\r\nbegin\r\n  Result := FClipboardData;\r\nend;\r\n\r\nclass procedure TTMSFNCClipBoard.SetText(AText: String);\r\nbegin\r\n  FClipboardData := AText;\r\n\r\n  asm\r\n    window.navigator.clipboard.writeText(AText);\r\n  end;\r\nend;\r\n\r\nclass procedure TTMSFNCClipBoard.Clear;\r\nbegin\r\nend;\r\n\r\nclass function TTMSFNCClipBoard.HasFormat(AFormat: TTMSFNCClipBoardFormat): Boolean;\r\nbegin\r\n  Result := True;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF CMNLIB}\r\nclass function TTMSFNCClipBoard.HasFormat(AFormat: TTMSFNCClipBoardFormat): Boolean;\r\nbegin\r\n  Result := False;\r\n  case AFormat of\r\n    TTMSFNCClipBoardFormat.cfText: Result := Clipboard.HasFormat(CF_TEXT);\r\n    TTMSFNCClipBoardFormat.cfRTF: Result := Clipboard.HasFormat(CF_FNCRTF);\r\n    TTMSFNCClipBoardFormat.cfHTML: Result := Clipboard.HasFormat(CF_FNCHTML);\r\n    TTMSFNCClipBoardFormat.cfStream: Result := Clipboard.HasFormat(CF_FNCSTREAM);\r\n    TTMSFNCClipBoardFormat.cfBitmap: Result := Clipboard.HasFormat(CF_FNCBITMAP);\r\n    TTMSFNCClipBoardFormat.cfRichTextStream: Result := Clipboard.HasFormat(CF_FNCRICHTEXTSTREAM);\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCClipBoard.GetFormat(AFormat: TTMSFNCClipBoardFormat): string;\r\nbegin\r\n  Result := '';\r\n  {$IFDEF MSWINDOWS}\r\n  case AFormat of\r\n    TTMSFNCClipBoardFormat.cfText: Result := 'text/plain';\r\n    TTMSFNCClipBoardFormat.cfRTF: Result := 'Rich Text Format';\r\n    TTMSFNCClipBoardFormat.cfHTML: Result := 'HTML Format';\r\n    TTMSFNCClipBoardFormat.cfStream: Result := 'TTMSFNCClipBoard.StreamFormat';\r\n    TTMSFNCClipBoardFormat.cfBitmap: Result := 'Delphi Picture';\r\n    TTMSFNCClipBoardFormat.cfRichTextStream: Result := 'RichEditorText';\r\n  end;\r\n  {$ENDIF}\r\n  {$IFDEF UNIX}\r\n  case AFormat of\r\n    TTMSFNCClipBoardFormat.cfText: Result := 'text/plain';\r\n    TTMSFNCClipBoardFormat.cfRTF: Result := 'text/richtext';\r\n    TTMSFNCClipBoardFormat.cfHTML: Result := 'text/html';\r\n    TTMSFNCClipBoardFormat.cfStream: Result := 'TTMSFNCClipBoard.StreamFormat';\r\n    TTMSFNCClipBoardFormat.cfBitmap: Result := 'Delphi Picture';\r\n    TTMSFNCClipBoardFormat.cfRichTextStream: Result := 'RichEditorText';\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nclass procedure TTMSFNCClipBoard.Clear;\r\nbegin\r\n  Clipboard.Clear;\r\nend;\r\n\r\nclass procedure TTMSFNCClipBoard.SetText(AText: String);\r\nbegin\r\n  {$IFDEF VCLLIB}\r\n  Clipboard.AsText := AText;\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  Clipboard.SetTextBuf(PChar(AText));\r\n  {$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCClipBoard.GetText: String;\r\nbegin\r\n  Result := Clipboard.AsText;\r\nend;\r\n\r\nclass procedure TTMSFNCClipBoard.SetStream(AStream: TMemoryStream);\r\n{$IFDEF VCLLIB}\r\nvar\r\n  Data: THandle;\r\n  DataPtr: Pointer;\r\nbegin\r\n  Clipboard.Open;\r\n  try\r\n    Data := GlobalAlloc(GMEM_MOVEABLE + GMEM_DDESHARE, AStream.Size);\r\n    try\r\n      DataPtr := GlobalLock(Data);\r\n      try\r\n        Move(AStream.Memory^, DataPtr^, AStream.Size);\r\n        SetClipboardData(CF_FNCSTREAM, Data);\r\n      finally\r\n        GlobalUnlock(Data);\r\n      end;\r\n    except\r\n      GlobalFree(Data);\r\n      raise;\r\n    end;\r\n  finally\r\n    Clipboard.Close;\r\n  end;\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\nbegin\r\n  Clipboard.Open;\r\n  try\r\n    Clipboard.AddFormat(CF_FNCSTREAM, AStream);\r\n  finally\r\n    Clipboard.Close;\r\n  end;\r\n{$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCClipBoard.GetStream: TMemoryStream;\r\n{$IFDEF VCLLIB}\r\nvar\r\n  DataPtr: Pointer;\r\n  Data: THandle;\r\nbegin\r\n  Result := nil;\r\n  Clipboard.Open;\r\n  try\r\n    Data := GetClipboardData(CF_FNCSTREAM);\r\n    if Data <> 0 then\r\n    begin\r\n      DataPtr := GlobalLock(Data);\r\n      if Assigned(DataPtr) then\r\n      begin\r\n        Result := TMemoryStream.Create;\r\n        Result.WriteBuffer(DataPtr^, GlobalSize(Data));\r\n        Result.Position := 0;\r\n      end;\r\n    end;\r\n  finally\r\n    Clipboard.Close;\r\n  end;\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\nvar\r\n  fmt: TClipboardFormat;\r\nbegin\r\n  Result := nil;\r\n  fmt := Clipboard.FindFormatID(GetFormat(cfStream));\r\n  if fmt <> 0 then\r\n  begin\r\n    Result := TMemoryStream.Create;\r\n    Clipboard.GetFormat(fmt, Result);\r\n    Result.Position := 0;\r\n  end;\r\n{$ENDIF}\r\nend;\r\n\r\nclass procedure TTMSFNCClipBoard.SetBitmap(ABitmap: TTMSFNCBitmap);\r\n{$IFDEF VCLLIB}\r\nvar\r\n  pic: TGraphic;\r\n  ms, ds: TMemoryStream;\r\n  gcc: TGraphicClass;\r\nbegin\r\n  pic := nil;\r\n\r\n  if IsBitmapEmpty(ABitmap) then\r\n    Exit;\r\n\r\n  ds := TMemoryStream.Create;\r\n  try\r\n    ABitmap.SaveToStream(ds);\r\n    ds.Position := 0;\r\n    if TTMSFNCUtils.FindGraphicClass(ds.Memory^, ds.Size, gcc) then\r\n      pic := gcc.Create;\r\n  finally\r\n    ds.Free;\r\n  end;\r\n\r\n  if Assigned(pic) then\r\n  begin\r\n    try\r\n      ms := TMemoryStream.Create;\r\n      try\r\n        ABitmap.SaveToStream(ms);\r\n        ms.Position := 0;\r\n        pic.LoadFromStream(ms);\r\n      finally\r\n        ms.Free;\r\n      end;\r\n\r\n      Clipboard.Open;\r\n      try\r\n        Clipboard.Assign(pic);\r\n      finally\r\n        Clipboard.Close;\r\n      end;\r\n\r\n    finally\r\n      pic.Free;\r\n    end;\r\n  end;\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\nbegin\r\n  if IsBitmapEmpty(ABitmap) then\r\n    Exit;\r\n\r\n  ClipBoard.Open;\r\n  try\r\n    ClipBoard.Assign(ABitmap.Graphic);\r\n  finally\r\n    ClipBoard.Close;\r\n  end;\r\n{$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCClipBoard.GetBitmap: TTMSFNCBitmap;\r\nbegin\r\n  Result := TTMSFNCBitmap.Create;\r\n  Result.Assign(Clipboard);\r\nend;\r\n\r\nclass procedure TTMSFNCClipBoard.SetRichTextStream(AStream: TMemoryStream);\r\n{$IFDEF VCLLIB}\r\nvar\r\n  Data: THandle;\r\n  DataPtr: Pointer;\r\nbegin\r\n  Clipboard.Open;\r\n  try\r\n    Data := GlobalAlloc(GMEM_MOVEABLE + GMEM_DDESHARE, AStream.Size);\r\n    try\r\n      DataPtr := GlobalLock(Data);\r\n      try\r\n        Move(AStream.Memory^, DataPtr^, AStream.Size);\r\n        SetClipboardData(CF_FNCRICHTEXTSTREAM, Data);\r\n      finally\r\n        GlobalUnlock(Data);\r\n      end;\r\n    except\r\n      GlobalFree(Data);\r\n      raise;\r\n    end;\r\n  finally\r\n    Clipboard.Close;\r\n  end;\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\nbegin\r\n  Clipboard.Open;\r\n  try\r\n    Clipboard.AddFormat(CF_FNCRICHTEXTSTREAM, AStream);\r\n  finally\r\n    Clipboard.Close;\r\n  end;\r\n{$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCClipBoard.GetRichTextStream: TMemoryStream;\r\n{$IFDEF VCLLIB}\r\nvar\r\n  DataPtr: Pointer;\r\n  Data: THandle;\r\nbegin\r\n  Result := nil;\r\n  Clipboard.Open;\r\n  try\r\n    Data := GetClipboardData(CF_FNCRICHTEXTSTREAM);\r\n    if Data <> 0 then\r\n    begin\r\n      DataPtr := GlobalLock(Data);\r\n      if Assigned(DataPtr) then\r\n      begin\r\n        Result := TMemoryStream.Create;\r\n        Result.WriteBuffer(DataPtr^, GlobalSize(Data));\r\n        Result.Position := 0;\r\n      end;\r\n    end;\r\n  finally\r\n    Clipboard.Close;\r\n  end;\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\nvar\r\n  fmt: TClipboardFormat;\r\nbegin\r\n  Result := nil;\r\n  fmt := Clipboard.FindFormatID(GetFormat(cfRichTextStream));\r\n  if fmt <> 0 then\r\n  begin\r\n    Result := TMemoryStream.Create;\r\n    Clipboard.GetFormat(fmt, Result);\r\n    Result.Position := 0;\r\n  end;\r\n{$ENDIF}\r\nend;\r\n\r\nclass procedure TTMSFNCClipBoard.SetRTF(ARTF: String);\r\n{$IFDEF VCLLIB}\r\nvar\r\n  rtfstr: ansistring;\r\n  MemHandleRTF: THandle;\r\nbegin\r\n  Clipboard.Open;\r\n  try\r\n    rtfstr := ansistring(ARTF);\r\n\r\n    MemHandleRTF := GlobalAlloc(GHND or GMEM_SHARE, Length(rtfstr) + 1);\r\n\r\n    if (MemHandleRTF <> 0) then\r\n    begin\r\n      {$HINTS OFF}\r\n      {$IF COMPILERVERSION > 24}\r\n      AnsiStrings.StrCopy(GlobalLock(MemHandleRTF), PAnsiChar(rtfstr));\r\n      {$ELSE}\r\n      StrCopy(PAnsiChar(GlobalLock(MemHandleRTF)), PAnsiChar(rtfstr));\r\n      {$IFEND}\r\n      {$HINTS ON}\r\n      GlobalUnlock(MemHandleRTF);\r\n      SetClipboardData(CF_FNCRTF, MemHandleRTF);\r\n    end;\r\n  finally\r\n    Clipboard.Close;\r\n  end;\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\nbegin\r\n  Clipboard.Open;\r\n  try\r\n    Clipboard.AddFormat(CF_FNCRTF, ARTF[1], Length(ARTF));\r\n  finally\r\n    Clipboard.Close;\r\n  end;\r\n{$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCClipBoard.GetRTF: String;\r\n{$IFDEF VCLLIB}\r\nvar\r\n  hClip: THandle;\r\n  bufptr: Pointer;\r\n  mstream: TStringStream;\r\nbegin\r\n  Result := '';\r\n  Clipboard.Open;\r\n  try\r\n    HClip := Clipboard.GetAsHandle(CF_FNCRTF);\r\n    bufptr := GlobalLock(HClip);\r\n    if bufptr <> nil then\r\n    begin\r\n      try\r\n        mstream := TStringStream.Create('');\r\n        try\r\n          mstream.WriteBuffer(bufptr^, GlobalSize(HClip));\r\n          Result := mstream.DataString;\r\n        finally\r\n          mstream.Free;\r\n        end;\r\n      finally\r\n        GlobalUnlock(HClip);\r\n      end;\r\n    end;\r\n  finally\r\n    Clipboard.Close;\r\n  end;\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\nvar\r\n  fmt: TClipboardFormat;\r\n  ms: TMemoryStream;\r\n  sz: int64;\r\nbegin\r\n  Result := '';\r\n  fmt := Clipboard.FindFormatID(GetFormat(cfRTF));\r\n  if fmt <> 0 then\r\n  begin\r\n    ms := TMemoryStream.Create;\r\n    try\r\n      if Clipboard.GetFormat(fmt, ms) then\r\n      begin\r\n        sz := ms.Size;\r\n        if (sz > 0) and (PChar(ms.Memory)[sz - 1]=#0) then\r\n          Dec(sz);\r\n\r\n        ms.Position := 0;\r\n        SetLength(Result, sz);\r\n        if sz > 0 then\r\n          ms.Read(Result[1], sz);\r\n      end;\r\n    finally\r\n      ms.Free;\r\n    end;\r\n  end;\r\n{$ENDIF}\r\nend;\r\n\r\nclass procedure TTMSFNCClipBoard.SetHTML(AHTML: String);\r\n{$IFDEF VCLLIB}\r\nvar\r\n  htmlstr: ansistring;\r\n  MemHandleHTML: THandle;\r\nbegin\r\n  htmlstr := AnsiString(AHTML);\r\n  htmlstr := AnsiString('Version:0.9'#13#10\r\n    +'StartHTML:71'#13#10\r\n    +'EndHTML:'+inttostr(length(htmlstr) + 71)+#13#10\r\n    +'StartFragment:140'#13#10\r\n    +'EndFragment:'+inttostr(length(htmlstr)+ 142)+#13#10\r\n    +'<!DOCTYPE>' +#13#10\r\n    +'<HTML>'#13#10\r\n    +'<HEAD>'#13#10\r\n    +'<TITLE>The HTML Clipboard</TITLE>'#13#10\r\n    +'<BASE HREF=\"http://sample/specs\">'#13#10\r\n    +'</HEAD>'#13#10\r\n    +'<BODY>'#13#10\r\n    +'<!--StartFragment -->'#13#10)\r\n    + htmlstr + AnsiString(#13#10\r\n    +'<!--StartFragment -->'#13#10\r\n    +'</BODY>'#13#10\r\n    +'</HTML>'#13#10);\r\n\r\n  Clipboard.Open;\r\n  try\r\n    MemHandleHTML := GlobalAlloc(GHND or GMEM_SHARE, Length(htmlstr) + 1);\r\n\r\n    if (MemHandleHTML <> 0) then\r\n    begin\r\n      {$HINTS OFF}\r\n      {$IF COMPILERVERSION > 24}\r\n      AnsiStrings.StrCopy(GlobalLock(MemHandleHTML), PAnsiChar(htmlstr));\r\n      {$ELSE}\r\n      StrCopy(PAnsiChar(GlobalLock(MemHandleHTML)), PAnsiChar(htmlstr));\r\n      {$IFEND}\r\n      {$HINTS ON}\r\n      GlobalUnlock(MemHandleHTML);\r\n      SetClipboardData(CF_FNCHTML, MemHandleHTML);\r\n    end;\r\n  finally\r\n    Clipboard.Close;\r\n  end;\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$IFDEF MSWINDOWS}\r\nconst\r\n  nhdr = 'Version:0.9' + #13#10 +\r\n                 'StartHTML:%.10d' + #13#10+\r\n                 'EndHTML:%.10d' + #13#10+\r\n                 'StartFragment:%.10d' + #13#10+\r\n                 'EndFragment:%.10d' + #13#10;\r\n  hdr = '<html><head></head><body><!--StartFragment-->';\r\n  ftr1 = '<!--EndFragment-->';\r\n  ftr2 = '</body></html>';\r\n{$ENDIF}\r\nvar\r\n  HTMLSource : String;\r\n  {$IFDEF MSWINDOWS}\r\n  iStartHTML: Integer;\r\n  iStartFragment: Integer;\r\n  iEndFragment: Integer;\r\n  iEndHTML: Integer;\r\n  {$ENDIF}\r\nbegin\r\n  {$IFDEF MSWINDOWS}\r\n  iStartHTML := 105;\r\n  iStartFragment := iStartHTML + Length(nhdr);\r\n  iEndFragment := iStartFragment + Length(AHTML) + Length(ftr1);\r\n  iEndHTML := iEndFragment + Length(ftr2);\r\n  HTMLSource := Format(nhdr, [iStartHTML, iEndHTML, iStartFragment,\r\n    iEndFragment]) + hdr + AHTML + ftr1 + ftr2;\r\n  {$ELSE}\r\n  HTMLSource := AHTML;\r\n  {$ENDIF}\r\n\r\n  Clipboard.Open;\r\n  try\r\n    Clipboard.AddFormat(CF_FNCHTML, HTMLSource[1], Length(HTMLSource));\r\n  finally\r\n    Clipboard.Close;\r\n  end;\r\n{$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCClipBoard.GetHTML: String;\r\n{$IFDEF VCLLIB}\r\nvar\r\n  hclip: THandle;\r\n  bufptr: Pointer;\r\n  mstream: TStringStream;\r\nbegin\r\n  Result := '';\r\n  Clipboard.Open;\r\n  try\r\n    HClip := Clipboard.GetAsHandle(CF_FNCHTML);\r\n    bufptr := GlobalLock(HClip);\r\n    if bufptr <> nil then\r\n    begin\r\n      try\r\n        mstream := TStringStream.Create('');\r\n        try\r\n          mstream.WriteBuffer(bufptr^, GlobalSize(HClip));\r\n          Result := UTF8ToString(RawByteString(mstream.DataString));\r\n        finally\r\n          mstream.Free;\r\n        end;\r\n      finally\r\n        GlobalUnlock(HClip);\r\n      end;\r\n    end;\r\n  finally\r\n    Clipboard.Close;\r\n  end;\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\nvar\r\n  fmt: TClipboardFormat;\r\n  ms: TMemoryStream;\r\n  sz: int64;\r\nbegin\r\n  Result := '';\r\n  fmt := Clipboard.FindFormatID(GetFormat(cfHTML));\r\n  if fmt <> 0 then\r\n  begin\r\n    ms := TMemoryStream.Create;\r\n    try\r\n      if Clipboard.GetFormat(fmt, ms) then\r\n      begin\r\n        sz := ms.Size;\r\n        if (sz > 0) and (PChar(ms.Memory)[sz-1]=#0) then\r\n          Dec(sz);\r\n\r\n        ms.Position := 0;\r\n        SetLength(Result, sz);\r\n        if sz > 0 then\r\n          ms.Read(Result[1], sz);\r\n      end;\r\n    finally\r\n      ms.Free;\r\n    end;\r\n  end;\r\n{$ENDIF}\r\nend;\r\n\r\n{$ENDIF}\r\n\r\nclass function TTMSFNCClipBoard.HasContent: Boolean;\r\nbegin\r\n  Result := HasFormat(TTMSFNCClipBoardFormat.cfText)\r\n  or HasFormat(TTMSFNCClipBoardFormat.cfRTF)\r\n  or HasFormat(TTMSFNCClipBoardFormat.cfBitmap)\r\n  or HasFormat(TTMSFNCClipBoardFormat.cfBitmapWin)\r\n  or HasFormat(TTMSFNCClipBoardFormat.cfRichTextStream)\r\n  or HasFormat(TTMSFNCClipBoardFormat.cfStream);\r\nend;\r\n\r\n{$IFDEF ANDROID}\r\nprocedure TTMSFNCUtilsDialogSelectFileListener.onClick(dialog: JDialogInterface; which: Integer);\r\nvar\r\n  f: JFile;\r\n  s: JCharSequence;\r\n  fn: string;\r\nbegin\r\n  s := FFileList.Items[which];\r\n  if JCharSequenceToStr(s) = '..' then\r\n    f := FCurrentPath.getParentFile\r\n  else\r\n    f := TJFile.JavaClass.init(s.toString);\r\n\r\n  if f.isDirectory then\r\n  begin\r\n    if FFileMode = ufmSave then\r\n      FSelectedFile := JStringToString(f.toString);\r\n\r\n    LoadFileList(f, FFilter);\r\n    FDialog.cancel;\r\n    FDialog.dismiss;\r\n    CallInUIThreadAndWaitFinishing(\r\n    procedure\r\n    begin\r\n      ShowDialog(f);\r\n    end\r\n    );\r\n  end\r\n  else\r\n  begin\r\n    FSelectedFile := JStringToString(f.toString);\r\n    fn := FSelectedFile;\r\n    if FFileMode = ufmSave then\r\n    begin\r\n      if ExtractFileExt(FSelectedFile) = '' then\r\n        fn := TTMSFNCUtils.AddBackslash(fn) + FFileExt;\r\n    end;\r\n\r\n    FSelectedFile := fn;\r\n\r\n    if Assigned(FCallBack) then\r\n    begin\r\n      FCallBack(fn, True);\r\n      FCallBack := nil;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCUtilsDialogDismissListener.onDismiss(dialog: JDialogInterface);\r\nbegin\r\n  if Assigned(FCallBack) then\r\n  begin\r\n    FCallBack('', False);\r\n    FCallBack := nil;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCUtilsDialogSelectDirectoryListener.onClick(dialog: JDialogInterface; which: Integer);\r\nbegin\r\n  if Assigned(FCallBack) then\r\n  begin\r\n    FCallBack(FSelectedFile, true);\r\n    FCallBack := nil;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF IOS}\r\n\r\n{ TUIDocumentPickerDelegate }\r\n\r\nprocedure TUIDocumentPickerDelegate.documentPicker(\r\n  controller: UIDocumentPickerViewController; didPickDocumentsAtURLs: NSArray);\r\nvar\r\n  fn: string;\r\nbegin\r\n  if didPickDocumentsAtURLs.count > 0 then\r\n  begin\r\n    FSelectedFile := UTF8ToString(TNSURL.Wrap(didPickDocumentsAtURLs.objectAtIndex(0)).path.UTF8String);\r\n    fn := FSelectedFile;\r\n    if FFileMode = ufmSave then\r\n    begin\r\n      if ExtractFileExt(FSelectedFile) = '' then\r\n        fn := TTMSFNCUtils.AddBackslash(fn) + FFileExt;\r\n    end;\r\n\r\n    if Assigned(FCallBack) then\r\n    begin\r\n      FCallBack(fn, True);\r\n      FCallBack := nil;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TUIDocumentPickerDelegate.documentPickerWasCancelled(\r\n  controller: UIDocumentPickerViewController);\r\nbegin\r\n  if Assigned(FCallBack) then\r\n  begin\r\n    FCallBack('', False);\r\n    FCallBack := nil;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF ANDROID}\r\nprocedure InitializeClipboard;\r\nvar\r\n  us: JObject;\r\nbegin\r\n  us := SharedActivityEx.getSystemService(TJContext.JavaClass.CLIPBOARD_SERVICE);\r\n  if us <> nil then\r\n  begin\r\n    if JStringToString(us.getClass.getName) = 'android.content.ClipboardManager' then\r\n      FContentClipboardManager := TJcontent_ClipboardManager.Wrap((us as ILocalObject).GetObjectID)\r\n    else if JStringToString(us.getClass.getName) = 'android.text.ClipboardManager' then\r\n      FClipboardManager := TJClipboardManager.Wrap((us as ILocalObject).GetObjectID);\r\n  end;\r\nend;\r\n\r\n{$ENDIF}\r\n\r\n{$IFDEF FNCLIB}\r\nprocedure RegisterMimeTypes;\r\n  procedure AddType(AExt, AMimeType: string);\r\n  begin\r\n    FMimeTypes.Add(AExt + FMimeTypes.NameValueSeparator + AMimeType);\r\n  end;\r\nbegin\r\n  AddType('ez', 'application/andrew-inset');\r\n  AddType('aw', 'application/applixware');\r\n  AddType('atom', 'application/atom+xml');\r\n  AddType('atomcat', 'application/atomcat+xml');\r\n  AddType('atomsvc', 'application/atomsvc+xml');\r\n  AddType('bson', 'application/bson');\r\n  AddType('ccxml', 'application/ccxml+xml');\r\n  AddType('cdmia', 'application/cdmi-capability');\r\n  AddType('cdmic', 'application/cdmi-container');\r\n  AddType('cdmid', 'application/cdmi-domain');\r\n  AddType('cdmio', 'application/cdmi-object');\r\n  AddType('cdmiq', 'application/cdmi-queue');\r\n  AddType('cu', 'application/cu-seeme');\r\n  AddType('davmount', 'application/davmount+xml');\r\n  AddType('dbk', 'application/docbook+xml');\r\n  AddType('dssc', 'application/dssc+der');\r\n  AddType('xdssc', 'application/dssc+xml');\r\n  AddType('ecma', 'application/ecmascript');\r\n  AddType('emma', 'application/emma+xml');\r\n  AddType('epub', 'application/epub+zip');\r\n  AddType('exi', 'application/exi');\r\n  AddType('pfr', 'application/font-tdpfr');\r\n  AddType('gml', 'application/gml+xml');\r\n  AddType('gpx', 'application/gpx+xml');\r\n  AddType('gxf', 'application/gxf');\r\n  AddType('stk', 'application/hyperstudio');\r\n  AddType('ink', 'application/inkml+xml');\r\n  AddType('inkml', 'application/inkml+xml');\r\n  AddType('ipfix', 'application/ipfix');\r\n  AddType('jar', 'application/java-archive');\r\n  AddType('ser', 'application/java-serialized-object');\r\n  AddType('class', 'application/java-vm');\r\n  AddType('js', 'application/javascript');\r\n  AddType('json', 'application/json');\r\n  AddType('jsonml', 'application/jsonml+json');\r\n  AddType('lostxml', 'application/lost+xml');\r\n  AddType('hqx', 'application/mac-binhex40');\r\n  AddType('cpt', 'application/mac-compactpro');\r\n  AddType('mads', 'application/mads+xml');\r\n  AddType('mrc', 'application/marc');\r\n  AddType('mrcx', 'application/marcxml+xml');\r\n  AddType('ma', 'application/mathematica');\r\n  AddType('nb', 'application/mathematica');\r\n  AddType('mb', 'application/mathematica');\r\n  AddType('mathml', 'application/mathml+xml');\r\n  AddType('mbox', 'application/mbox');\r\n  AddType('mscml', 'application/mediaservercontrol+xml');\r\n  AddType('metalink', 'application/metalink+xml');\r\n  AddType('meta4', 'application/metalink4+xml');\r\n  AddType('mets', 'application/mets+xml');\r\n  AddType('mods', 'application/mods+xml');\r\n  AddType('m21', 'application/mp21');\r\n  AddType('mp21', 'application/mp21');\r\n  AddType('mp4s', 'application/mp4');\r\n  AddType('doc', 'application/msword');\r\n  AddType('dot', 'application/msword');\r\n  AddType('mxf', 'application/mxf');\r\n  AddType('bin', 'application/octet-stream');\r\n  AddType('bpk', 'application/octet-stream');\r\n  AddType('class', 'application/octet-stream');\r\n  AddType('deploy', 'application/octet-stream');\r\n  AddType('dist', 'application/octet-stream');\r\n  AddType('distz', 'application/octet-stream');\r\n  AddType('dmg', 'application/octet-stream');\r\n  AddType('dms', 'application/octet-stream');\r\n  AddType('dump', 'application/octet-stream');\r\n  AddType('elc', 'application/octet-stream');\r\n  AddType('iso', 'application/octet-stream');\r\n  AddType('lha', 'application/octet-stream');\r\n  AddType('lrf', 'application/octet-stream');\r\n  AddType('lzh', 'application/octet-stream');\r\n  AddType('mar', 'application/octet-stream');\r\n  AddType('pkg', 'application/octet-stream');\r\n  AddType('so', 'application/octet-stream');\r\n  AddType('oda', 'application/oda');\r\n  AddType('opf', 'application/oebps-package+xml');\r\n  AddType('ogx', 'application/ogg');\r\n  AddType('omdoc', 'application/omdoc+xml');\r\n  AddType('onetoc', 'application/onenote');\r\n  AddType('onetoc2', 'application/onenote');\r\n  AddType('onetmp', 'application/onenote');\r\n  AddType('onepkg', 'application/onenote');\r\n  AddType('oxps', 'application/oxps');\r\n  AddType('xer', 'application/patch-ops-error+xml');\r\n  AddType('pdf', 'application/pdf');\r\n  AddType('pgp', 'application/pgp-encrypted');\r\n  AddType('asc', 'application/pgp-signature');\r\n  AddType('sig', 'application/pgp-signature');\r\n  AddType('prf', 'application/pics-rules');\r\n  AddType('p10', 'application/pkcs10');\r\n  AddType('p7m', 'application/pkcs7-mime');\r\n  AddType('p7c', 'application/pkcs7-mime');\r\n  AddType('p7s', 'application/pkcs7-signature');\r\n  AddType('p8', 'application/pkcs8');\r\n  AddType('ac', 'application/pkix-attr-cert');\r\n  AddType('cer', 'application/pkix-cert');\r\n  AddType('crl', 'application/pkix-crl');\r\n  AddType('pkipath', 'application/pkix-pkipath');\r\n  AddType('pki', 'application/pkixcmp');\r\n  AddType('pls', 'application/pls+xml');\r\n  AddType('ai', 'application/postscript');\r\n  AddType('eps', 'application/postscript');\r\n  AddType('ps', 'application/postscript');\r\n  AddType('cww', 'application/prs.cww');\r\n  AddType('pskcxml', 'application/pskc+xml');\r\n  AddType('rdf', 'application/rdf+xml');\r\n  AddType('rif', 'application/reginfo+xml');\r\n  AddType('rnc', 'application/relax-ng-compact-syntax');\r\n  AddType('rl', 'application/resource-lists+xml');\r\n  AddType('rld', 'application/resource-lists-diff+xml');\r\n  AddType('rs', 'application/rls-services+xml');\r\n  AddType('gbr', 'application/rpki-ghostbusters');\r\n  AddType('mft', 'application/rpki-manifest');\r\n  AddType('roa', 'application/rpki-roa');\r\n  AddType('rsd', 'application/rsd+xml');\r\n  AddType('rss', 'application/rss+xml');\r\n  AddType('rtf', 'application/rtf');\r\n  AddType('sbml', 'application/sbml+xml');\r\n  AddType('scq', 'application/scvp-cv-request');\r\n  AddType('scs', 'application/scvp-cv-response');\r\n  AddType('spq', 'application/scvp-vp-request');\r\n  AddType('spp', 'application/scvp-vp-response');\r\n  AddType('sdp', 'application/sdp');\r\n  AddType('setpay', 'application/set-payment-initiation');\r\n  AddType('setreg', 'application/set-registration-initiation');\r\n  AddType('shf', 'application/shf+xml');\r\n  AddType('smi', 'application/smil+xml');\r\n  AddType('smil', 'application/smil+xml');\r\n  AddType('soap', 'application/soap+xml');\r\n  AddType('rq', 'application/sparql-query');\r\n  AddType('srx', 'application/sparql-results+xml');\r\n  AddType('gram', 'application/srgs');\r\n  AddType('grxml', 'application/srgs+xml');\r\n  AddType('sru', 'application/sru+xml');\r\n  AddType('ssdl', 'application/ssdl+xml');\r\n  AddType('ssml', 'application/ssml+xml');\r\n  AddType('tei', 'application/tei+xml');\r\n  AddType('teicorpus', 'application/tei+xml');\r\n  AddType('tfi', 'application/thraud+xml');\r\n  AddType('tsd', 'application/timestamped-data');\r\n  AddType('plb', 'application/vnd.3gpp.pic-bw-large');\r\n  AddType('psb', 'application/vnd.3gpp.pic-bw-small');\r\n  AddType('pvb', 'application/vnd.3gpp.pic-bw-var');\r\n  AddType('tcap', 'application/vnd.3gpp2.tcap');\r\n  AddType('pwn', 'application/vnd.3m.post-it-notes');\r\n  AddType('aso', 'application/vnd.accpac.simply.aso');\r\n  AddType('imp', 'application/vnd.accpac.simply.imp');\r\n  AddType('acu', 'application/vnd.acucobol');\r\n  AddType('atc', 'application/vnd.acucorp');\r\n  AddType('acutc', 'application/vnd.acucorp');\r\n  AddType('air', 'application/vnd.adobe.air-application-installer-package+zip');\r\n  AddType('fcdt', 'application/vnd.adobe.formscentral.fcdt');\r\n  AddType('fxp', 'application/vnd.adobe.fxp');\r\n  AddType('fxpl', 'application/vnd.adobe.fxp');\r\n  AddType('xdp', 'application/vnd.adobe.xdp+xml');\r\n  AddType('xfdf', 'application/vnd.adobe.xfdf');\r\n  AddType('ahead', 'application/vnd.ahead.space');\r\n  AddType('azf', 'application/vnd.airzip.filesecure.azf');\r\n  AddType('azs', 'application/vnd.airzip.filesecure.azs');\r\n  AddType('azw', 'application/vnd.amazon.ebook');\r\n  AddType('acc', 'application/vnd.americandynamics.acc');\r\n  AddType('ami', 'application/vnd.amiga.ami');\r\n  AddType('apk', 'application/vnd.android.package-archive');\r\n  AddType('cii', 'application/vnd.anser-web-certificate-issue-initiation');\r\n  AddType('fti', 'application/vnd.anser-web-funds-transfer-initiation');\r\n  AddType('atx', 'application/vnd.antix.game-component');\r\n  AddType('mpkg', 'application/vnd.apple.installer+xml');\r\n  AddType('m3u8', 'application/vnd.apple.mpegurl');\r\n  AddType('swi', 'application/vnd.aristanetworks.swi');\r\n  AddType('iota', 'application/vnd.astraea-software.iota');\r\n  AddType('aep', 'application/vnd.audiograph');\r\n  AddType('mpm', 'application/vnd.blueice.multipass');\r\n  AddType('bmi', 'application/vnd.bmi');\r\n  AddType('rep', 'application/vnd.businessobjects');\r\n  AddType('cdxml', 'application/vnd.chemdraw+xml');\r\n  AddType('mmd', 'application/vnd.chipnuts.karaoke-mmd');\r\n  AddType('cdy', 'application/vnd.cinderella');\r\n  AddType('cla', 'application/vnd.claymore');\r\n  AddType('rp9', 'application/vnd.cloanto.rp9');\r\n  AddType('c4g', 'application/vnd.clonk.c4group');\r\n  AddType('c4d', 'application/vnd.clonk.c4group');\r\n  AddType('c4f', 'application/vnd.clonk.c4group');\r\n  AddType('c4p', 'application/vnd.clonk.c4group');\r\n  AddType('c4u', 'application/vnd.clonk.c4group');\r\n  AddType('c11amc', 'application/vnd.cluetrust.cartomobile-config');\r\n  AddType('c11amz', 'application/vnd.cluetrust.cartomobile-config-pkg');\r\n  AddType('csp', 'application/vnd.commonspace');\r\n  AddType('cdbcmsg', 'application/vnd.contact.cmsg');\r\n  AddType('cmc', 'application/vnd.cosmocaller');\r\n  AddType('clkx', 'application/vnd.crick.clicker');\r\n  AddType('clkk', 'application/vnd.crick.clicker.keyboard');\r\n  AddType('clkp', 'application/vnd.crick.clicker.palette');\r\n  AddType('clkt', 'application/vnd.crick.clicker.template');\r\n  AddType('clkw', 'application/vnd.crick.clicker.wordbank');\r\n  AddType('wbs', 'application/vnd.criticaltools.wbs+xml');\r\n  AddType('pml', 'application/vnd.ctc-posml');\r\n  AddType('ppd', 'application/vnd.cups-ppd');\r\n  AddType('car', 'application/vnd.curl.car');\r\n  AddType('pcurl', 'application/vnd.curl.pcurl');\r\n  AddType('dart', 'application/vnd.dart');\r\n  AddType('rdz', 'application/vnd.data-vision.rdz');\r\n  AddType('uvf', 'application/vnd.dece.data');\r\n  AddType('uvvf', 'application/vnd.dece.data');\r\n  AddType('uvd', 'application/vnd.dece.data');\r\n  AddType('uvvd', 'application/vnd.dece.data');\r\n  AddType('uvt', 'application/vnd.dece.ttml+xml');\r\n  AddType('uvvt', 'application/vnd.dece.ttml+xml');\r\n  AddType('uvx', 'application/vnd.dece.unspecified');\r\n  AddType('uvvx', 'application/vnd.dece.unspecified');\r\n  AddType('uvz', 'application/vnd.dece.zip');\r\n  AddType('uvvz', 'application/vnd.dece.zip');\r\n  AddType('fe_launch', 'application/vnd.denovo.fcselayout-link');\r\n  AddType('dna', 'application/vnd.dna');\r\n  AddType('mlp', 'application/vnd.dolby.mlp');\r\n  AddType('dpg', 'application/vnd.dpgraph');\r\n  AddType('dfac', 'application/vnd.dreamfactory');\r\n  AddType('kpxx', 'application/vnd.ds-keypoint');\r\n  AddType('ait', 'application/vnd.dvb.ait');\r\n  AddType('svc', 'application/vnd.dvb.service');\r\n  AddType('geo', 'application/vnd.dynageo');\r\n  AddType('mag', 'application/vnd.ecowin.chart');\r\n  AddType('nml', 'application/vnd.enliven');\r\n  AddType('esf', 'application/vnd.epson.esf');\r\n  AddType('msf', 'application/vnd.epson.msf');\r\n  AddType('qam', 'application/vnd.epson.quickanime');\r\n  AddType('slt', 'application/vnd.epson.salt');\r\n  AddType('ssf', 'application/vnd.epson.ssf');\r\n  AddType('es3', 'application/vnd.eszigno3+xml');\r\n  AddType('et3', 'application/vnd.eszigno3+xml');\r\n  AddType('ez2', 'application/vnd.ezpix-album');\r\n  AddType('ez3', 'application/vnd.ezpix-package');\r\n  AddType('fdf', 'application/vnd.fdf');\r\n  AddType('mseed', 'application/vnd.fdsn.mseed');\r\n  AddType('seed', 'application/vnd.fdsn.seed');\r\n  AddType('dataless', 'application/vnd.fdsn.seed');\r\n  AddType('json', 'application/vnd.firedac.json');\r\n  AddType('xml', 'application/vnd.firedac.xml');\r\n  AddType('bin', 'application/vnd.firedac.bin');\r\n  AddType('gph', 'application/vnd.flographit');\r\n  AddType('ftc', 'application/vnd.fluxtime.clip');\r\n  AddType('fm', 'application/vnd.framemaker');\r\n  AddType('frame', 'application/vnd.framemaker');\r\n  AddType('maker', 'application/vnd.framemaker');\r\n  AddType('book', 'application/vnd.framemaker');\r\n  AddType('fnc', 'application/vnd.frogans.fnc');\r\n  AddType('ltf', 'application/vnd.frogans.ltf');\r\n  AddType('fsc', 'application/vnd.fsc.weblaunch');\r\n  AddType('oas', 'application/vnd.fujitsu.oasys');\r\n  AddType('oa2', 'application/vnd.fujitsu.oasys2');\r\n  AddType('oa3', 'application/vnd.fujitsu.oasys3');\r\n  AddType('fg5', 'application/vnd.fujitsu.oasysgp');\r\n  AddType('bh2', 'application/vnd.fujitsu.oasysprs');\r\n  AddType('ddd', 'application/vnd.fujixerox.ddd');\r\n  AddType('xdw', 'application/vnd.fujixerox.docuworks');\r\n  AddType('xbd', 'application/vnd.fujixerox.docuworks.binder');\r\n  AddType('fzs', 'application/vnd.fuzzysheet');\r\n  AddType('txd', 'application/vnd.genomatix.tuxedo');\r\n  AddType('ggb', 'application/vnd.geogebra.file');\r\n  AddType('ggt', 'application/vnd.geogebra.tool');\r\n  AddType('gex', 'application/vnd.geometry-explorer');\r\n  AddType('gre', 'application/vnd.geometry-explorer');\r\n  AddType('gxt', 'application/vnd.geonext');\r\n  AddType('g2w', 'application/vnd.geoplan');\r\n  AddType('g3w', 'application/vnd.geospace');\r\n  AddType('gmx', 'application/vnd.gmx');\r\n  AddType('kml', 'application/vnd.google-earth.kml+xml');\r\n  AddType('kmz', 'application/vnd.google-earth.kmz');\r\n  AddType('gqf', 'application/vnd.grafeq');\r\n  AddType('gqs', 'application/vnd.grafeq');\r\n  AddType('gac', 'application/vnd.groove-account');\r\n  AddType('ghf', 'application/vnd.groove-help');\r\n  AddType('gim', 'application/vnd.groove-identity-message');\r\n  AddType('grv', 'application/vnd.groove-injector');\r\n  AddType('gtm', 'application/vnd.groove-tool-message');\r\n  AddType('tpl', 'application/vnd.groove-tool-template');\r\n  AddType('vcg', 'application/vnd.groove-vcard');\r\n  AddType('hal', 'application/vnd.hal+xml');\r\n  AddType('zmm', 'application/vnd.handheld-entertainment+xml');\r\n  AddType('hbci', 'application/vnd.hbci');\r\n  AddType('les', 'application/vnd.hhe.lesson-player');\r\n  AddType('hpgl', 'application/vnd.hp-hpgl');\r\n  AddType('hpid', 'application/vnd.hp-hpid');\r\n  AddType('hps', 'application/vnd.hp-hps');\r\n  AddType('jlt', 'application/vnd.hp-jlyt');\r\n  AddType('pcl', 'application/vnd.hp-pcl');\r\n  AddType('pclxl', 'application/vnd.hp-pclxl');\r\n  AddType('sfd-hdstx', 'application/vnd.hydrostatix.sof-data');\r\n  AddType('mpy', 'application/vnd.ibm.minipay');\r\n  AddType('afp', 'application/vnd.ibm.modcap');\r\n  AddType('listafp', 'application/vnd.ibm.modcap');\r\n  AddType('list3820', 'application/vnd.ibm.modcap');\r\n  AddType('irm', 'application/vnd.ibm.rights-management');\r\n  AddType('sc', 'application/vnd.ibm.secure-container');\r\n  AddType('icc', 'application/vnd.iccprofile');\r\n  AddType('icm', 'application/vnd.iccprofile');\r\n  AddType('igl', 'application/vnd.igloader');\r\n  AddType('ivp', 'application/vnd.immervision-ivp');\r\n  AddType('ivu', 'application/vnd.immervision-ivu');\r\n  AddType('igm', 'application/vnd.insors.igm');\r\n  AddType('xpw', 'application/vnd.intercon.formnet');\r\n  AddType('xpx', 'application/vnd.intercon.formnet');\r\n  AddType('i2g', 'application/vnd.intergeo');\r\n  AddType('qbo', 'application/vnd.intu.qbo');\r\n  AddType('qfx', 'application/vnd.intu.qfx');\r\n  AddType('rcprofile', 'application/vnd.ipunplugged.rcprofile');\r\n  AddType('irp', 'application/vnd.irepository.package+xml');\r\n  AddType('xpr', 'application/vnd.is-xpr');\r\n  AddType('fcs', 'application/vnd.isac.fcs');\r\n  AddType('jam', 'application/vnd.jam');\r\n  AddType('rms', 'application/vnd.jcp.javame.midlet-rms');\r\n  AddType('jisp', 'application/vnd.jisp');\r\n  AddType('joda', 'application/vnd.joost.joda-archive');\r\n  AddType('ktz', 'application/vnd.kahootz');\r\n  AddType('ktr', 'application/vnd.kahootz');\r\n  AddType('karbon', 'application/vnd.kde.karbon');\r\n  AddType('chrt', 'application/vnd.kde.kchart');\r\n  AddType('kfo', 'application/vnd.kde.kformula');\r\n  AddType('flw', 'application/vnd.kde.kivio');\r\n  AddType('kon', 'application/vnd.kde.kontour');\r\n  AddType('kpr', 'application/vnd.kde.kpresenter');\r\n  AddType('kpt', 'application/vnd.kde.kpresenter');\r\n  AddType('ksp', 'application/vnd.kde.kspread');\r\n  AddType('kwd', 'application/vnd.kde.kword');\r\n  AddType('kwt', 'application/vnd.kde.kword');\r\n  AddType('htke', 'application/vnd.kenameaapp');\r\n  AddType('kia', 'application/vnd.kidspiration');\r\n  AddType('kne', 'application/vnd.kinar');\r\n  AddType('knp', 'application/vnd.kinar');\r\n  AddType('skp', 'application/vnd.koan');\r\n  AddType('skd', 'application/vnd.koan');\r\n  AddType('skt', 'application/vnd.koan');\r\n  AddType('skm', 'application/vnd.koan');\r\n  AddType('sse', 'application/vnd.kodak-descriptor');\r\n  AddType('lasxml', 'application/vnd.las.las+xml');\r\n  AddType('lbd', 'application/vnd.llamagraphics.life-balance.desktop');\r\n  AddType('lbe', 'application/vnd.llamagraphics.life-balance.exchange+xml');\r\n  AddType('123', 'application/vnd.lotus-1-2-3');\r\n  AddType('apr', 'application/vnd.lotus-approach');\r\n  AddType('pre', 'application/vnd.lotus-freelance');\r\n  AddType('nsf', 'application/vnd.lotus-notes');\r\n  AddType('org', 'application/vnd.lotus-organizer');\r\n  AddType('scm', 'application/vnd.lotus-screencam');\r\n  AddType('lwp', 'application/vnd.lotus-wordpro');\r\n  AddType('portpkg', 'application/vnd.macports.portpkg');\r\n  AddType('mcd', 'application/vnd.mcd');\r\n  AddType('mc1', 'application/vnd.medcalcdata');\r\n  AddType('cdkey', 'application/vnd.mediastation.cdkey');\r\n  AddType('mwf', 'application/vnd.mfer');\r\n  AddType('mfm', 'application/vnd.mfmp');\r\n  AddType('flo', 'application/vnd.micrografx.flo');\r\n  AddType('igx', 'application/vnd.micrografx.igx');\r\n  AddType('mif', 'application/vnd.mif');\r\n  AddType('daf', 'application/vnd.mobius.daf');\r\n  AddType('dis', 'application/vnd.mobius.dis');\r\n  AddType('mbk', 'application/vnd.mobius.mbk');\r\n  AddType('mqy', 'application/vnd.mobius.mqy');\r\n  AddType('msl', 'application/vnd.mobius.msl');\r\n  AddType('plc', 'application/vnd.mobius.plc');\r\n  AddType('txf', 'application/vnd.mobius.txf');\r\n  AddType('mpn', 'application/vnd.mophun.application');\r\n  AddType('mpc', 'application/vnd.mophun.certificate');\r\n  AddType('xul', 'application/vnd.mozilla.xul+xml');\r\n  AddType('cil', 'application/vnd.ms-artgalry');\r\n  AddType('cab', 'application/vnd.ms-cab-compressed');\r\n  AddType('xls', 'application/vnd.ms-excel');\r\n  AddType('xlm', 'application/vnd.ms-excel');\r\n  AddType('xla', 'application/vnd.ms-excel');\r\n  AddType('xlc', 'application/vnd.ms-excel');\r\n  AddType('xlt', 'application/vnd.ms-excel');\r\n  AddType('xlw', 'application/vnd.ms-excel');\r\n  AddType('xlam', 'application/vnd.ms-excel.addin.macroenabled.12');\r\n  AddType('xlsb', 'application/vnd.ms-excel.sheet.binary.macroenabled.12');\r\n  AddType('xlsm', 'application/vnd.ms-excel.sheet.macroenabled.12');\r\n  AddType('xltm', 'application/vnd.ms-excel.template.macroenabled.12');\r\n  AddType('eot', 'application/vnd.ms-fontobject');\r\n  AddType('chm', 'application/vnd.ms-htmlhelp');\r\n  AddType('ims', 'application/vnd.ms-ims');\r\n  AddType('lrm', 'application/vnd.ms-lrm');\r\n  AddType('thmx', 'application/vnd.ms-officetheme');\r\n  AddType('cat', 'application/vnd.ms-pki.seccat');\r\n  AddType('stl', 'application/vnd.ms-pki.stl');\r\n  AddType('ppt', 'application/vnd.ms-powerpoint');\r\n  AddType('pps', 'application/vnd.ms-powerpoint');\r\n  AddType('pot', 'application/vnd.ms-powerpoint');\r\n  AddType('ppam', 'application/vnd.ms-powerpoint.addin.macroenabled.12');\r\n  AddType('pptm', 'application/vnd.ms-powerpoint.presentation.macroenabled.12');\r\n  AddType('sldm', 'application/vnd.ms-powerpoint.slide.macroenabled.12');\r\n  AddType('ppsm', 'application/vnd.ms-powerpoint.slideshow.macroenabled.12');\r\n  AddType('potm', 'application/vnd.ms-powerpoint.template.macroenabled.12');\r\n  AddType('mpp', 'application/vnd.ms-project');\r\n  AddType('mpt', 'application/vnd.ms-project');\r\n  AddType('docm', 'application/vnd.ms-word.document.macroenabled.12');\r\n  AddType('dotm', 'application/vnd.ms-word.template.macroenabled.12');\r\n  AddType('wps', 'application/vnd.ms-works');\r\n  AddType('wks', 'application/vnd.ms-works');\r\n  AddType('wcm', 'application/vnd.ms-works');\r\n  AddType('wdb', 'application/vnd.ms-works');\r\n  AddType('wpl', 'application/vnd.ms-wpl');\r\n  AddType('xps', 'application/vnd.ms-xpsdocument');\r\n  AddType('mseq', 'application/vnd.mseq');\r\n  AddType('mus', 'application/vnd.musician');\r\n  AddType('msty', 'application/vnd.muvee.style');\r\n  AddType('taglet', 'application/vnd.mynfc');\r\n  AddType('nlu', 'application/vnd.neurolanguage.nlu');\r\n  AddType('ntf', 'application/vnd.nitf');\r\n  AddType('nitf', 'application/vnd.nitf');\r\n  AddType('nnd', 'application/vnd.noblenet-directory');\r\n  AddType('nns', 'application/vnd.noblenet-sealer');\r\n  AddType('nnw', 'application/vnd.noblenet-web');\r\n  AddType('ngdat', 'application/vnd.nokia.n-gage.data');\r\n  AddType('n-gage', 'application/vnd.nokia.n-gage.symbian.install');\r\n  AddType('rpst', 'application/vnd.nokia.radio-preset');\r\n  AddType('rpss', 'application/vnd.nokia.radio-presets');\r\n  AddType('edm', 'application/vnd.novadigm.edm');\r\n  AddType('edx', 'application/vnd.novadigm.edx');\r\n  AddType('FExt', 'application/vnd.novadigm.FExt');\r\n  AddType('odc', 'application/vnd.oasis.opendocument.chart');\r\n  AddType('otc', 'application/vnd.oasis.opendocument.chart-template');\r\n  AddType('odb', 'application/vnd.oasis.opendocument.database');\r\n  AddType('odf', 'application/vnd.oasis.opendocument.formula');\r\n  AddType('odft', 'application/vnd.oasis.opendocument.formula-template');\r\n  AddType('odg', 'application/vnd.oasis.opendocument.graphics');\r\n  AddType('otg', 'application/vnd.oasis.opendocument.graphics-template');\r\n  AddType('odi', 'application/vnd.oasis.opendocument.image');\r\n  AddType('oti', 'application/vnd.oasis.opendocument.image-template');\r\n  AddType('odp', 'application/vnd.oasis.opendocument.presentation');\r\n  AddType('otp', 'application/vnd.oasis.opendocument.presentation-template');\r\n  AddType('ods', 'application/vnd.oasis.opendocument.spreadsheet');\r\n  AddType('ots', 'application/vnd.oasis.opendocument.spreadsheet-template');\r\n  AddType('odt', 'application/vnd.oasis.opendocument.text');\r\n  AddType('odm', 'application/vnd.oasis.opendocument.text-master');\r\n  AddType('ott', 'application/vnd.oasis.opendocument.text-template');\r\n  AddType('oth', 'application/vnd.oasis.opendocument.text-web');\r\n  AddType('xo', 'application/vnd.olpc-sugar');\r\n  AddType('dd2', 'application/vnd.oma.dd2+xml');\r\n  AddType('oxt', 'application/vnd.openofficeorg.extension');\r\n  AddType('pptx', 'application/vnd.openxmlformats-officedocument.presentationml.presentation');\r\n  AddType('sldx', 'application/vnd.openxmlformats-officedocument.presentationml.slide');\r\n  AddType('ppsx', 'application/vnd.openxmlformats-officedocument.presentationml.slideshow');\r\n  AddType('potx', 'application/vnd.openxmlformats-officedocument.presentationml.template');\r\n  AddType('xlsx', 'application/vnd.openxmlformats-officedocument.spreadsheetml.sheet');\r\n  AddType('xltx', 'application/vnd.openxmlformats-officedocument.spreadsheetml.template');\r\n  AddType('docx', 'application/vnd.openxmlformats-officedocument.wordprocessingml.document');\r\n  AddType('dotx', 'application/vnd.openxmlformats-officedocument.wordprocessingml.template');\r\n  AddType('mgp', 'application/vnd.osgeo.mapguide.package');\r\n  AddType('dp', 'application/vnd.osgi.dp');\r\n  AddType('esa', 'application/vnd.osgi.subsystem');\r\n  AddType('pdb', 'application/vnd.palm');\r\n  AddType('pqa', 'application/vnd.palm');\r\n  AddType('oprc', 'application/vnd.palm');\r\n  AddType('paw', 'application/vnd.pawaafile');\r\n  AddType('str', 'application/vnd.pg.format');\r\n  AddType('ei6', 'application/vnd.pg.osasli');\r\n  AddType('efif', 'application/vnd.picsel');\r\n  AddType('wg', 'application/vnd.pmi.widget');\r\n  AddType('plf', 'application/vnd.pocketlearn');\r\n  AddType('pbd', 'application/vnd.powerbuilder6');\r\n  AddType('box', 'application/vnd.previewsystems.box');\r\n  AddType('mgz', 'application/vnd.proteus.magazine');\r\n  AddType('qps', 'application/vnd.publishare-delta-tree');\r\n  AddType('ptid', 'application/vnd.pvi.ptid1');\r\n  AddType('qxd', 'application/vnd.quark.quarkxpress');\r\n  AddType('qxt', 'application/vnd.quark.quarkxpress');\r\n  AddType('qwd', 'application/vnd.quark.quarkxpress');\r\n  AddType('qwt', 'application/vnd.quark.quarkxpress');\r\n  AddType('qxl', 'application/vnd.quark.quarkxpress');\r\n  AddType('qxb', 'application/vnd.quark.quarkxpress');\r\n  AddType('bed', 'application/vnd.realvnc.bed');\r\n  AddType('mxl', 'application/vnd.recordare.musicxml');\r\n  AddType('musicxml', 'application/vnd.recordare.musicxml+xml');\r\n  AddType('cryptonote', 'application/vnd.rig.cryptonote');\r\n  AddType('cod', 'application/vnd.rim.cod');\r\n  AddType('rm', 'application/vnd.rn-realmedia');\r\n  AddType('rmvb', 'application/vnd.rn-realmedia-vbr');\r\n  AddType('link66', 'application/vnd.route66.link66+xml');\r\n  AddType('st', 'application/vnd.sailingtracker.track');\r\n  AddType('see', 'application/vnd.seemail');\r\n  AddType('sema', 'application/vnd.sema');\r\n  AddType('semd', 'application/vnd.semd');\r\n  AddType('semf', 'application/vnd.semf');\r\n  AddType('ifm', 'application/vnd.shana.informed.formdata');\r\n  AddType('itp', 'application/vnd.shana.informed.formtemplate');\r\n  AddType('iif', 'application/vnd.shana.informed.interchange');\r\n  AddType('ipk', 'application/vnd.shana.informed.package');\r\n  AddType('twd', 'application/vnd.simtech-mindmapper');\r\n  AddType('twds', 'application/vnd.simtech-mindmapper');\r\n  AddType('mmf', 'application/vnd.smaf');\r\n  AddType('teacher', 'application/vnd.smart.teacher');\r\n  AddType('sdkm', 'application/vnd.solent.sdkm+xml');\r\n  AddType('sdkd', 'application/vnd.solent.sdkm+xml');\r\n  AddType('dxp', 'application/vnd.spotfire.dxp');\r\n  AddType('sfs', 'application/vnd.spotfire.sfs');\r\n  AddType('sdc', 'application/vnd.stardivision.calc');\r\n  AddType('sda', 'application/vnd.stardivision.draw');\r\n  AddType('sdd', 'application/vnd.stardivision.impress');\r\n  AddType('smf', 'application/vnd.stardivision.math');\r\n  AddType('sdw', 'application/vnd.stardivision.writer');\r\n  AddType('vor', 'application/vnd.stardivision.writer');\r\n  AddType('sgl', 'application/vnd.stardivision.writer-global');\r\n  AddType('smzip', 'application/vnd.stepmania.package');\r\n  AddType('sm', 'application/vnd.stepmania.stepchart');\r\n  AddType('sxc', 'application/vnd.sun.xml.calc');\r\n  AddType('stc', 'application/vnd.sun.xml.calc.template');\r\n  AddType('sxd', 'application/vnd.sun.xml.draw');\r\n  AddType('std', 'application/vnd.sun.xml.draw.template');\r\n  AddType('sxi', 'application/vnd.sun.xml.impress');\r\n  AddType('sti', 'application/vnd.sun.xml.impress.template');\r\n  AddType('sxm', 'application/vnd.sun.xml.math');\r\n  AddType('sxw', 'application/vnd.sun.xml.writer');\r\n  AddType('sxg', 'application/vnd.sun.xml.writer.global');\r\n  AddType('stw', 'application/vnd.sun.xml.writer.template');\r\n  AddType('sus', 'application/vnd.sus-calendar');\r\n  AddType('susp', 'application/vnd.sus-calendar');\r\n  AddType('svd', 'application/vnd.svd');\r\n  AddType('sis', 'application/vnd.symbian.install');\r\n  AddType('sisx', 'application/vnd.symbian.install');\r\n  AddType('xsm', 'application/vnd.syncml+xml');\r\n  AddType('bdm', 'application/vnd.syncml.dm+wbxml');\r\n  AddType('xdm', 'application/vnd.syncml.dm+xml');\r\n  AddType('tao', 'application/vnd.tao.intent-module-archive');\r\n  AddType('pcap', 'application/vnd.tcpdump.pcap');\r\n  AddType('cap', 'application/vnd.tcpdump.pcap');\r\n  AddType('dmp', 'application/vnd.tcpdump.pcap');\r\n  AddType('tmo', 'application/vnd.tmobile-livetv');\r\n  AddType('tpt', 'application/vnd.trid.tpt');\r\n  AddType('mxs', 'application/vnd.triscape.mxs');\r\n  AddType('tra', 'application/vnd.trueapp');\r\n  AddType('ufd', 'application/vnd.ufdl');\r\n  AddType('ufdl', 'application/vnd.ufdl');\r\n  AddType('utz', 'application/vnd.uiq.theme');\r\n  AddType('umj', 'application/vnd.umajin');\r\n  AddType('unityweb', 'application/vnd.unity');\r\n  AddType('uoml', 'application/vnd.uoml+xml');\r\n  AddType('vcx', 'application/vnd.vcx');\r\n  AddType('vsd', 'application/vnd.visio');\r\n  AddType('vst', 'application/vnd.visio');\r\n  AddType('vss', 'application/vnd.visio');\r\n  AddType('vsw', 'application/vnd.visio');\r\n  AddType('vis', 'application/vnd.visionary');\r\n  AddType('vsf', 'application/vnd.vsf');\r\n  AddType('wbxml', 'application/vnd.wap.wbxml');\r\n  AddType('wmlc', 'application/vnd.wap.wmlc');\r\n  AddType('wmlsc', 'application/vnd.wap.wmlscriptc');\r\n  AddType('wtb', 'application/vnd.webturbo');\r\n  AddType('nbp', 'application/vnd.wolfram.player');\r\n  AddType('wpd', 'application/vnd.wordperfect');\r\n  AddType('wqd', 'application/vnd.wqd');\r\n  AddType('stf', 'application/vnd.wt.stf');\r\n  AddType('xar', 'application/vnd.xara');\r\n  AddType('xfdl', 'application/vnd.xfdl');\r\n  AddType('hvd', 'application/vnd.yamaha.hv-dic');\r\n  AddType('hvs', 'application/vnd.yamaha.hv-script');\r\n  AddType('hvp', 'application/vnd.yamaha.hv-voice');\r\n  AddType('osf', 'application/vnd.yamaha.openscoreformat');\r\n  AddType('osfpvg', 'application/vnd.yamaha.openscoreformat.osfpvg+xml');\r\n  AddType('saf', 'application/vnd.yamaha.smaf-audio');\r\n  AddType('spf', 'application/vnd.yamaha.smaf-phrase');\r\n  AddType('cmp', 'application/vnd.yellowriver-custom-menu');\r\n  AddType('zir', 'application/vnd.zul');\r\n  AddType('zirz', 'application/vnd.zul');\r\n  AddType('zaz', 'application/vnd.zzazz.deck+xml');\r\n  AddType('vxml', 'application/voicexml+xml');\r\n  AddType('wgt', 'application/widget');\r\n  AddType('hlp', 'application/winhlp');\r\n  AddType('wsdl', 'application/wsdl+xml');\r\n  AddType('wspolicy', 'application/wspolicy+xml');\r\n  AddType('7z', 'application/x-7z-compressed');\r\n  AddType('abw', 'application/x-abiword');\r\n  AddType('ace', 'application/x-ace-compressed');\r\n  AddType('dmg', 'application/x-apple-diskimage');\r\n  AddType('aab', 'application/x-authorware-bin');\r\n  AddType('x32', 'application/x-authorware-bin');\r\n  AddType('u32', 'application/x-authorware-bin');\r\n  AddType('vox', 'application/x-authorware-bin');\r\n  AddType('aam', 'application/x-authorware-map');\r\n  AddType('aas', 'application/x-authorware-seg');\r\n  AddType('bcpio', 'application/x-bcpio');\r\n  AddType('torrent', 'application/x-bittorrent');\r\n  AddType('blb', 'application/x-blorb');\r\n  AddType('blorb', 'application/x-blorb');\r\n  AddType('bz', 'application/x-bzip');\r\n  AddType('bz2', 'application/x-bzip2');\r\n  AddType('boz', 'application/x-bzip2');\r\n  AddType('cbr', 'application/x-cbr');\r\n  AddType('cba', 'application/x-cbr');\r\n  AddType('cbt', 'application/x-cbr');\r\n  AddType('cbz', 'application/x-cbr');\r\n  AddType('cb7', 'application/x-cbr');\r\n  AddType('vcd', 'application/x-cdlink');\r\n  AddType('cfs', 'application/x-cfs-compressed');\r\n  AddType('chat', 'application/x-chat');\r\n  AddType('pgn', 'application/x-chess-pgn');\r\n  AddType('nsc', 'application/x-conference');\r\n  AddType('cpio', 'application/x-cpio');\r\n  AddType('csh', 'application/x-csh');\r\n  AddType('deb', 'application/x-debian-package');\r\n  AddType('udeb', 'application/x-debian-package');\r\n  AddType('dgc', 'application/x-dgc-compressed');\r\n  AddType('dir', 'application/x-director');\r\n  AddType('dcr', 'application/x-director');\r\n  AddType('dxr', 'application/x-director');\r\n  AddType('cst', 'application/x-director');\r\n  AddType('cct', 'application/x-director');\r\n  AddType('cxt', 'application/x-director');\r\n  AddType('w3d', 'application/x-director');\r\n  AddType('fgd', 'application/x-director');\r\n  AddType('swa', 'application/x-director');\r\n  AddType('wad', 'application/x-doom');\r\n  AddType('ncx', 'application/x-dtbncx+xml');\r\n  AddType('dtb', 'application/x-dtbook+xml');\r\n  AddType('res', 'application/x-dtbresource+xml');\r\n  AddType('dvi', 'application/x-dvi');\r\n  AddType('evy', 'application/x-envoy');\r\n  AddType('eva', 'application/x-eva');\r\n  AddType('bdf', 'application/x-font-bdf');\r\n  AddType('gsf', 'application/x-font-ghostscript');\r\n  AddType('psf', 'application/x-font-linux-psf');\r\n  AddType('otf', 'application/x-font-otf');\r\n  AddType('pcf', 'application/x-font-pcf');\r\n  AddType('snf', 'application/x-font-snf');\r\n  AddType('ttf', 'application/x-font-ttf');\r\n  AddType('ttc', 'application/x-font-ttf');\r\n  AddType('pfa', 'application/x-font-type1');\r\n  AddType('pfb', 'application/x-font-type1');\r\n  AddType('pfm', 'application/x-font-type1');\r\n  AddType('afm', 'application/x-font-type1');\r\n  AddType('woff', 'application/x-font-woff');\r\n  AddType('arc', 'application/x-freearc');\r\n  AddType('spl', 'application/x-futuresplash');\r\n  AddType('gca', 'application/x-gca-compressed');\r\n  AddType('ulx', 'application/x-glulx');\r\n  AddType('gnumeric', 'application/x-gnumeric');\r\n  AddType('gramps', 'application/x-gramps-xml');\r\n  AddType('gtar', 'application/x-gtar');\r\n  AddType('hdf', 'application/x-hdf');\r\n  AddType('install', 'application/x-install-instructions');\r\n  AddType('iso', 'application/x-iso9660-image');\r\n  AddType('jnlp', 'application/x-java-jnlp-file');\r\n  AddType('latex', 'application/x-latex');\r\n  AddType('lzh', 'application/x-lzh-compressed');\r\n  AddType('lha', 'application/x-lzh-compressed');\r\n  AddType('mie', 'application/x-mie');\r\n  AddType('prc', 'application/x-mobipocket-ebook');\r\n  AddType('mobi', 'application/x-mobipocket-ebook');\r\n  AddType('application', 'application/x-ms-application');\r\n  AddType('lnk', 'application/x-ms-shortcut');\r\n  AddType('wmd', 'application/x-ms-wmd');\r\n  AddType('wmz', 'application/x-ms-wmz');\r\n  AddType('xbap', 'application/x-ms-xbap');\r\n  AddType('mdb', 'application/x-msaccess');\r\n  AddType('obd', 'application/x-msbinder');\r\n  AddType('crd', 'application/x-mscardfile');\r\n  AddType('clp', 'application/x-msclip');\r\n  AddType('exe', 'application/x-msdownload');\r\n  AddType('dll', 'application/x-msdownload');\r\n  AddType('com', 'application/x-msdownload');\r\n  AddType('bat', 'application/x-msdownload');\r\n  AddType('msi', 'application/x-msdownload');\r\n  AddType('mvb', 'application/x-msmediaview');\r\n  AddType('m13', 'application/x-msmediaview');\r\n  AddType('m14', 'application/x-msmediaview');\r\n  AddType('wmf', 'application/x-msmetafile');\r\n  AddType('wmz', 'application/x-msmetafile');\r\n  AddType('emf', 'application/x-msmetafile');\r\n  AddType('emz', 'application/x-msmetafile');\r\n  AddType('mny', 'application/x-msmoney');\r\n  AddType('pub', 'application/x-mspublisher');\r\n  AddType('scd', 'application/x-msschedule');\r\n  AddType('trm', 'application/x-msterminal');\r\n  AddType('wri', 'application/x-mswrite');\r\n  AddType('nc', 'application/x-netcdf');\r\n  AddType('cdf', 'application/x-netcdf');\r\n  AddType('nzb', 'application/x-nzb');\r\n  AddType('p12', 'application/x-pkcs12');\r\n  AddType('pfx', 'application/x-pkcs12');\r\n  AddType('p7b', 'application/x-pkcs7-certificates');\r\n  AddType('spc', 'application/x-pkcs7-certificates');\r\n  AddType('p7r', 'application/x-pkcs7-certreqresp');\r\n  AddType('rar', 'application/x-rar-compressed');\r\n  AddType('ris', 'application/x-research-info-systems');\r\n  AddType('sh', 'application/x-sh');\r\n  AddType('shar', 'application/x-shar');\r\n  AddType('swf', 'application/x-shockwave-flash');\r\n  AddType('xap', 'application/x-silverlight-app');\r\n  AddType('sql', 'application/x-sql');\r\n  AddType('sit', 'application/x-stuffit');\r\n  AddType('sitx', 'application/x-stuffitx');\r\n  AddType('srt', 'application/x-subrip');\r\n  AddType('sv4cpio', 'application/x-sv4cpio');\r\n  AddType('sv4crc', 'application/x-sv4crc');\r\n  AddType('t3', 'application/x-t3vm-image');\r\n  AddType('gam', 'application/x-tads');\r\n  AddType('tar', 'application/x-tar');\r\n  AddType('tcl', 'application/x-tcl');\r\n  AddType('tex', 'application/x-tex');\r\n  AddType('tfm', 'application/x-tex-tfm');\r\n  AddType('texinfo', 'application/x-texinfo');\r\n  AddType('texi', 'application/x-texinfo');\r\n  AddType('obj', 'application/x-tgif');\r\n  AddType('ustar', 'application/x-ustar');\r\n  AddType('src', 'application/x-wais-source');\r\n  AddType('der', 'application/x-x509-ca-cert');\r\n  AddType('crt', 'application/x-x509-ca-cert');\r\n  AddType('fig', 'application/x-xfig');\r\n  AddType('xlf', 'application/x-xliff+xml');\r\n  AddType('xpi', 'application/x-xpinstall');\r\n  AddType('xz', 'application/x-xz');\r\n  AddType('z1', 'application/x-zmachine');\r\n  AddType('z2', 'application/x-zmachine');\r\n  AddType('z3', 'application/x-zmachine');\r\n  AddType('z4', 'application/x-zmachine');\r\n  AddType('z5', 'application/x-zmachine');\r\n  AddType('z6', 'application/x-zmachine');\r\n  AddType('z7', 'application/x-zmachine');\r\n  AddType('z8', 'application/x-zmachine');\r\n  AddType('xaml', 'application/xaml+xml');\r\n  AddType('xdf', 'application/xcap-diff+xml');\r\n  AddType('xenc', 'application/xenc+xml');\r\n  AddType('xhtml', 'application/xhtml+xml');\r\n  AddType('xht', 'application/xhtml+xml');\r\n  AddType('xml', 'application/xml');\r\n  AddType('xsl', 'application/xml');\r\n  AddType('dtd', 'application/xml-dtd');\r\n  AddType('xop', 'application/xop+xml');\r\n  AddType('xpl', 'application/xproc+xml');\r\n  AddType('xslt', 'application/xslt+xml');\r\n  AddType('xspf', 'application/xspf+xml');\r\n  AddType('mxml', 'application/xv+xml');\r\n  AddType('xhvml', 'application/xv+xml');\r\n  AddType('xvml', 'application/xv+xml');\r\n  AddType('xvm', 'application/xv+xml');\r\n  AddType('yang', 'application/yang');\r\n  AddType('yin', 'application/yin+xml');\r\n  AddType('zip', 'application/zip');\r\n  AddType('adp', 'audio/adpcm');\r\n  AddType('au', 'audio/basic');\r\n  AddType('snd', 'audio/basic');\r\n  AddType('mid', 'audio/midi');\r\n  AddType('midi', 'audio/midi');\r\n  AddType('kar', 'audio/midi');\r\n  AddType('rmi', 'audio/midi');\r\n  AddType('mp4a', 'audio/mp4');\r\n  AddType('mpga', 'audio/mpeg');\r\n  AddType('mp2', 'audio/mpeg');\r\n  AddType('mp2a', 'audio/mpeg');\r\n  AddType('mp3', 'audio/mpeg');\r\n  AddType('m2a', 'audio/mpeg');\r\n  AddType('m3a', 'audio/mpeg');\r\n  AddType('oga', 'audio/ogg');\r\n  AddType('ogg', 'audio/ogg');\r\n  AddType('spx', 'audio/ogg');\r\n  AddType('s3m', 'audio/s3m');\r\n  AddType('sil', 'audio/silk');\r\n  AddType('uva', 'audio/vnd.dece.audio');\r\n  AddType('uvva', 'audio/vnd.dece.audio');\r\n  AddType('eol', 'audio/vnd.digital-winds');\r\n  AddType('dra', 'audio/vnd.dra');\r\n  AddType('dts', 'audio/vnd.dts');\r\n  AddType('dtshd', 'audio/vnd.dts.hd');\r\n  AddType('lvp', 'audio/vnd.lucent.voice');\r\n  AddType('pya', 'audio/vnd.ms-playready.media.pya');\r\n  AddType('ecelp4800', 'audio/vnd.nuera.ecelp4800');\r\n  AddType('ecelp7470', 'audio/vnd.nuera.ecelp7470');\r\n  AddType('ecelp9600', 'audio/vnd.nuera.ecelp9600');\r\n  AddType('rip', 'audio/vnd.rip');\r\n  AddType('weba', 'audio/webm');\r\n  AddType('aac', 'audio/aac');\r\n  AddType('aif', 'audio/x-aiff');\r\n  AddType('aiff', 'audio/x-aiff');\r\n  AddType('aifc', 'audio/x-aiff');\r\n  AddType('caf', 'audio/x-caf');\r\n  AddType('flac', 'audio/x-flac');\r\n  AddType('mka', 'audio/x-matroska');\r\n  AddType('m3u', 'audio/x-mpegurl');\r\n  AddType('wax', 'audio/x-ms-wax');\r\n  AddType('wma', 'audio/x-ms-wma');\r\n  AddType('ram', 'audio/x-pn-realaudio');\r\n  AddType('ra', 'audio/x-pn-realaudio');\r\n  AddType('rmp', 'audio/x-pn-realaudio-plugin');\r\n  AddType('wav', 'audio/x-wav');\r\n  AddType('xm', 'audio/xm');\r\n  AddType('cdx', 'chemical/x-cdx');\r\n  AddType('cif', 'chemical/x-cif');\r\n  AddType('cmdf', 'chemical/x-cmdf');\r\n  AddType('cml', 'chemical/x-cml');\r\n  AddType('csml', 'chemical/x-csml');\r\n  AddType('xyz', 'chemical/x-xyz');\r\n  AddType('bmp', 'image/bmp');\r\n  AddType('cgm', 'image/cgm');\r\n  AddType('g3', 'image/g3fax');\r\n  AddType('gif', 'image/gif');\r\n  AddType('ief', 'image/ief');\r\n  AddType('jpeg', 'image/jpeg');\r\n  AddType('jpg', 'image/jpeg');\r\n  AddType('jpe', 'image/jpeg');\r\n  AddType('ktx', 'image/ktx');\r\n  AddType('png', 'image/png');\r\n  AddType('btif', 'image/prs.btif');\r\n  AddType('sgi', 'image/sgi');\r\n  AddType('svg', 'image/svg+xml');\r\n  AddType('svgz', 'image/svg+xml');\r\n  AddType('tiff', 'image/tiff');\r\n  AddType('tif', 'image/tiff');\r\n  AddType('psd', 'image/vnd.adobe.photoshop');\r\n  AddType('uvi', 'image/vnd.dece.graphic');\r\n  AddType('uvvi', 'image/vnd.dece.graphic');\r\n  AddType('uvg', 'image/vnd.dece.graphic');\r\n  AddType('uvvg', 'image/vnd.dece.graphic');\r\n  AddType('sub', 'image/vnd.dvb.subtitle');\r\n  AddType('djvu', 'image/vnd.djvu');\r\n  AddType('djv', 'image/vnd.djvu');\r\n  AddType('dwg', 'image/vnd.dwg');\r\n  AddType('dxf', 'image/vnd.dxf');\r\n  AddType('fbs', 'image/vnd.fastbidsheet');\r\n  AddType('fpx', 'image/vnd.fpx');\r\n  AddType('fst', 'image/vnd.fst');\r\n  AddType('mmr', 'image/vnd.fujixerox.edmics-mmr');\r\n  AddType('rlc', 'image/vnd.fujixerox.edmics-rlc');\r\n  AddType('mdi', 'image/vnd.ms-modi');\r\n  AddType('wdp', 'image/vnd.ms-photo');\r\n  AddType('npx', 'image/vnd.net-fpx');\r\n  AddType('wbmp', 'image/vnd.wap.wbmp');\r\n  AddType('xif', 'image/vnd.xiff');\r\n  AddType('webp', 'image/webp');\r\n  AddType('3ds', 'image/x-3ds');\r\n  AddType('ras', 'image/x-cmu-raster');\r\n  AddType('cmx', 'image/x-cmx');\r\n  AddType('fh', 'image/x-freehand');\r\n  AddType('fhc', 'image/x-freehand');\r\n  AddType('fh4', 'image/x-freehand');\r\n  AddType('fh5', 'image/x-freehand');\r\n  AddType('fh7', 'image/x-freehand');\r\n  AddType('ico', 'image/x-icon');\r\n  AddType('sid', 'image/x-mrsid-image');\r\n  AddType('pcx', 'image/x-pcx');\r\n  AddType('pic', 'image/x-pict');\r\n  AddType('pct', 'image/x-pict');\r\n  AddType('pnm', 'image/x-portable-anymap');\r\n  AddType('pbm', 'image/x-portable-bitmap');\r\n  AddType('pgm', 'image/x-portable-graymap');\r\n  AddType('ppm', 'image/x-portable-pixmap');\r\n  AddType('rgb', 'image/x-rgb');\r\n  AddType('tga', 'image/x-tga');\r\n  AddType('xbm', 'image/x-xbitmap');\r\n  AddType('xpm', 'image/x-xpixmap');\r\n  AddType('xwd', 'image/x-xwindowdump');\r\n  AddType('eml', 'message/rfc822');\r\n  AddType('mime', 'message/rfc822');\r\n  AddType('igs', 'model/iges');\r\n  AddType('iges', 'model/iges');\r\n  AddType('msh', 'model/mesh');\r\n  AddType('mesh', 'model/mesh');\r\n  AddType('silo', 'model/mesh');\r\n  AddType('dae', 'model/vnd.collada+xml');\r\n  AddType('dwf', 'model/vnd.dwf');\r\n  AddType('gdl', 'model/vnd.gdl');\r\n  AddType('gtw', 'model/vnd.gtw');\r\n  AddType('mts', 'model/vnd.mts');\r\n  AddType('vtu', 'model/vnd.vtu');\r\n  AddType('wrl', 'model/vrml');\r\n  AddType('vrml', 'model/vrml');\r\n  AddType('x3db', 'model/x3d+binary');\r\n  AddType('x3dbz', 'model/x3d+binary');\r\n  AddType('x3dv', 'model/x3d+vrml');\r\n  AddType('x3dvz', 'model/x3d+vrml');\r\n  AddType('x3d', 'model/x3d+xml');\r\n  AddType('x3dz', 'model/x3d+xml');\r\n  AddType('appcache', 'text/cache-manifest');\r\n  AddType('ics', 'text/calendar');\r\n  AddType('ifb', 'text/calendar');\r\n  AddType('cmd', 'text/cmd');\r\n  AddType('css', 'text/css');\r\n  AddType('csv', 'text/csv');\r\n  AddType('html', 'text/html');\r\n  AddType('htm', 'text/html');\r\n  AddType('n3', 'text/n3');\r\n  AddType('txt', 'text/plain');\r\n  AddType('text', 'text/plain');\r\n  AddType('conf', 'text/plain');\r\n  AddType('def', 'text/plain');\r\n  AddType('list', 'text/plain');\r\n  AddType('log', 'text/plain');\r\n  AddType('in', 'text/plain');\r\n  AddType('js', 'text/plain');\r\n  AddType('dsc', 'text/prs.lines.tag');\r\n  AddType('rtx', 'text/richtext');\r\n  AddType('sgml', 'text/sgml');\r\n  AddType('sgm', 'text/sgml');\r\n  AddType('tsv', 'text/tab-separated-values');\r\n  AddType('t', 'text/troff');\r\n  AddType('tr', 'text/troff');\r\n  AddType('roff', 'text/troff');\r\n  AddType('man', 'text/troff');\r\n  AddType('me', 'text/troff');\r\n  AddType('ms', 'text/troff');\r\n  AddType('ttl', 'text/turtle');\r\n  AddType('uri', 'text/uri-list');\r\n  AddType('uris', 'text/uri-list');\r\n  AddType('urls', 'text/uri-list');\r\n  AddType('vcard', 'text/vcard');\r\n  AddType('curl', 'text/vnd.curl');\r\n  AddType('dcurl', 'text/vnd.curl.dcurl');\r\n  AddType('scurl', 'text/vnd.curl.scurl');\r\n  AddType('mcurl', 'text/vnd.curl.mcurl');\r\n  AddType('sub', 'text/vnd.dvb.subtitle');\r\n  AddType('fly', 'text/vnd.fly');\r\n  AddType('flx', 'text/vnd.fmi.flexstor');\r\n  AddType('gv', 'text/vnd.graphviz');\r\n  AddType('3dml', 'text/vnd.in3d.3dml');\r\n  AddType('spot', 'text/vnd.in3d.spot');\r\n  AddType('jad', 'text/vnd.sun.j2me.app-descriptor');\r\n  AddType('wml', 'text/vnd.wap.wml');\r\n  AddType('wmls', 'text/vnd.wap.wmlscript');\r\n  AddType('s', 'text/x-asm');\r\n  AddType('asm', 'text/x-asm');\r\n  AddType('c', 'text/x-c');\r\n  AddType('cc', 'text/x-c');\r\n  AddType('cxx', 'text/x-c');\r\n  AddType('cpp', 'text/x-c');\r\n  AddType('h', 'text/x-c');\r\n  AddType('hh', 'text/x-c');\r\n  AddType('dic', 'text/x-c');\r\n  AddType('f', 'text/x-fortran');\r\n  AddType('for', 'text/x-fortran');\r\n  AddType('f77', 'text/x-fortran');\r\n  AddType('f90', 'text/x-fortran');\r\n  AddType('java', 'text/x-java-source');\r\n  AddType('opml', 'text/x-opml');\r\n  AddType('p', 'text/x-pascal');\r\n  AddType('pas', 'text/x-pascal');\r\n  AddType('nfo', 'text/x-nfo');\r\n  AddType('etx', 'text/x-setext');\r\n  AddType('sfv', 'text/x-sfv');\r\n  AddType('uu', 'text/x-uuencode');\r\n  AddType('vcs', 'text/x-vcalendar');\r\n  AddType('vcf', 'text/x-vcard');\r\n  AddType('xml', 'text/xml');\r\n  AddType('xsl', 'text/xml');\r\n  AddType('dtd', 'text/xml-dtd');\r\n  AddType('3gp', 'video/3gpp');\r\n  AddType('3g2', 'video/3gpp2');\r\n  AddType('h261', 'video/h261');\r\n  AddType('h263', 'video/h263');\r\n  AddType('h264', 'video/h264');\r\n  AddType('jpgv', 'video/jpeg');\r\n  AddType('jpm', 'video/jpm');\r\n  AddType('jpgm', 'video/jpm');\r\n  AddType('mj2', 'video/mj2');\r\n  AddType('mjp2', 'video/mj2');\r\n  AddType('mp4', 'video/mp4');\r\n  AddType('mp4v', 'video/mp4');\r\n  AddType('mpg4', 'video/mp4');\r\n  AddType('mpeg', 'video/mpeg');\r\n  AddType('mpg', 'video/mpeg');\r\n  AddType('mpe', 'video/mpeg');\r\n  AddType('m1v', 'video/mpeg');\r\n  AddType('m2v', 'video/mpeg');\r\n  AddType('ogv', 'video/ogg');\r\n  AddType('qt', 'video/quicktime');\r\n  AddType('mov', 'video/quicktime');\r\n  AddType('uvh', 'video/vnd.dece.hd');\r\n  AddType('uvvh', 'video/vnd.dece.hd');\r\n  AddType('uvm', 'video/vnd.dece.mobile');\r\n  AddType('uvvm', 'video/vnd.dece.mobile');\r\n  AddType('uvp', 'video/vnd.dece.pd');\r\n  AddType('uvvp', 'video/vnd.dece.pd');\r\n  AddType('uvs', 'video/vnd.dece.sd');\r\n  AddType('uvvs', 'video/vnd.dece.sd');\r\n  AddType('uvv', 'video/vnd.dece.video');\r\n  AddType('uvvv', 'video/vnd.dece.video');\r\n  AddType('dvb', 'video/vnd.dvb.file');\r\n  AddType('fvt', 'video/vnd.fvt');\r\n  AddType('mxu', 'video/vnd.mpegurl');\r\n  AddType('m4u', 'video/vnd.mpegurl');\r\n  AddType('pyv', 'video/vnd.ms-playready.media.pyv');\r\n  AddType('uvu', 'video/vnd.uvvu.mp4');\r\n  AddType('uvvu', 'video/vnd.uvvu.mp4');\r\n  AddType('viv', 'video/vnd.vivo');\r\n  AddType('webm', 'video/webm');\r\n  AddType('f4v', 'video/x-f4v');\r\n  AddType('fli', 'video/x-fli');\r\n  AddType('flv', 'video/x-flv');\r\n  AddType('m4v', 'video/x-m4v');\r\n  AddType('mkv', 'video/x-matroska');\r\n  AddType('mk3d', 'video/x-matroska');\r\n  AddType('mks', 'video/x-matroska');\r\n  AddType('mng', 'video/x-mng');\r\n  AddType('asf', 'video/x-ms-asf');\r\n  AddType('asx', 'video/x-ms-asf');\r\n  AddType('vob', 'video/x-ms-vob');\r\n  AddType('wm', 'video/x-ms-wm');\r\n  AddType('wmv', 'video/x-ms-wmv');\r\n  AddType('wmx', 'video/x-ms-wmx');\r\n  AddType('wvx', 'video/x-ms-wvx');\r\n  AddType('avi', 'video/x-msvideo');\r\n  AddType('movie', 'video/x-sgi-movie');\r\n  AddType('smv', 'video/x-smv');\r\n  AddType('ice', 'x-conference/x-cooltalk');\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF FNCLIB}\r\n{$IFDEF MACOS}\r\n{$IFNDEF IOS}\r\nvar\r\n  AVFoundationModule: HMODULE;\r\n{$ENDIF}\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\ninitialization\r\n{$IFDEF UNIX}\r\n{$IFDEF FMXLIB}\r\nvar\r\n  clip: IFMXExtendedClipboardService;\r\n{$ENDIF}\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF ANDROID}\r\n  InitializeClipboard;\r\n  {$ENDIF}\r\n\r\n  {$IFNDEF LCLLIB}\r\n  FNCFormatSettings := TFormatSettings.Create;\r\n  {$ELSE}\r\n  FNCFormatSettings := FormatSettings;\r\n  {$ENDIF}\r\n  FNCFormatSettings.DecimalSeparator := '.';\r\n  FNCFormatSettings.ThousandSeparator := ',';\r\n\r\n  {$IFDEF FNCLIB}\r\n  FMimeTypes := TStringList.Create;\r\n  RegisterMimeTypes;\r\n  {$ENDIF}\r\n\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  if not IsConsole then\r\n  {$ENDIF}\r\n  begin\r\n    {$IFNDEF LCLLIB}\r\n    {$IFDEF MSWINDOWS}\r\n    CF_FNCRICHTEXTSTREAM := RegisterClipboardFormat('RichEditorText');\r\n    CF_FNCSTREAM := RegisterClipboardFormat('TTMSFNCClipBoard.StreamFormat');\r\n    {$IFDEF FMXLIB}\r\n    CF_FNCBITMAP := RegisterClipboardFormat('PNG');\r\n    CF_FNCBITMAPWIN := CF_BITMAP;\r\n    {$ENDIF}\r\n    {$IFDEF VCLLIB}\r\n    CF_FNCBITMAP := CF_BITMAP;\r\n    {$ENDIF}\r\n    CF_FNCRTF := RegisterClipboardFormat('Rich Text Format');\r\n    CF_FNCHTML := RegisterClipboardFormat('HTML Format');\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n\r\n    {$IFDEF LCLLIB}\r\n    {$IFNDEF DARWIN}\r\n    CF_FNCRICHTEXTSTREAM := RegisterClipboardFormat('RichEditorText');\r\n    CF_FNCSTREAM := RegisterClipboardFormat('TTMSFNCClipBoard.StreamFormat');\r\n    CF_FNCBITMAP := CF_PICTURE;\r\n    CF_FNCRTF := RegisterClipboardFormat(TTMSFNCClipBoard.GetFormat(TTMSFNCClipBoardFormat.cfRTF));\r\n    CF_FNCHTML := RegisterClipboardFormat(TTMSFNCClipBoard.GetFormat(TTMSFNCClipBoardFormat.cfHTML));\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n  end;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF UNIX}\r\n  {$IFDEF FMXLIB}\r\n  if TPlatformServices.Current.SupportsPlatformService(IFMXExtendedClipBoardService, IInterface(clip)) then\r\n  begin\r\n    clip.RegisterCustomFormat('RichEditorText');\r\n    clip.RegisterCustomFormat('TTMSFNCClipBoard.StreamFormat');\r\n  end;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF FNCLIB}\r\n  {$IFDEF MACOS}\r\n  {$IFNDEF IOS}\r\n  AVFoundationModule := LoadLibrary(libAVFoundation);\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\n{$IFDEF FNCLIB}\r\nfinalization\r\n{$IFDEF UNIX}\r\n{$IFDEF FMXLIB}\r\nvar\r\n  clip: IFMXExtendedClipboardService;\r\n{$ENDIF}\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF UNIX}\r\n  {$IFDEF FMXLIB}\r\n  if TPlatformServices.Current.SupportsPlatformService(IFMXExtendedClipBoardService, IInterface(clip)) then\r\n  begin\r\n    clip.UnregisterCustomFormat('RichEditorText');\r\n    clip.UnregisterCustomFormat('TTMSFNCClipBoard.StreamFormat');\r\n  end;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  FMimeTypes.Free;\r\n  {$IFDEF MACOS}\r\n  {$IFNDEF IOS}\r\n  FreeLibrary(AVFoundationModule);\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nend;\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\nend.\r\n\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2017 - 2021      \t\t                     }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit Variants;\r\n\r\ninterface\r\n\r\nimplementation\r\n\r\nend.","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2017 - 2021                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCJSONReader;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\n{$SCOPEDENUMS ON}\r\n{$INLINE ON}{$R-}{$Q-}\r\n\r\ninterface\r\n\r\nuses\r\n  {$IFNDEF LCLWEBLIB}\r\n  Generics.Collections,\r\n  {$ENDIF}\r\n  Classes, SysUtils, WEBLib.TMSFNCTypes;\r\n\r\ntype\r\n  TTMSFNCJSONStreamReader = class\r\n  public\r\n    type\r\n      EInvalidJsonInput = class(Exception)\r\n      public\r\n        constructor Create;\r\n      end;\r\n      EInternalError = class(Exception)\r\n      public\r\n        constructor Create;\r\n      end;\r\n      EEndOfInputReached = class(Exception)\r\n      public\r\n        constructor Create;\r\n      end;\r\n  private\r\n  var\r\n    FStream: TStream;\r\n    FReadStream: TStringStream;\r\n  public\r\n    constructor Create(const aStream: TStream);\r\n    destructor Destroy; override;\r\n    function NextChar: char; inline;\r\n    function PeekChar: char; inline;\r\n    function ReadChar: char; inline;\r\n    procedure Backup(const {%H-}c: char);\r\n    procedure MoveNext(const Count: integer = 1); inline;\r\n    function Eof: boolean; inline;\r\n  end;\r\n\r\n  TTMSFNCJSONToken = (jstoBeginObject, jstoEndObject, jstoBeginArray, jstoEndArray,\r\n    jstoName, jstoBoolean, jstoNull, jstoText, jstoNumber, jstoEOF);\r\n\r\n  TTMSFNCJSONReader = class\r\n  private\r\n    type\r\n      TTMSFNCJSONState = (jstNone, jstBeginObject, jstEndObject, jstBeginArray, jstEndArray, jstTrue, jstFalse,\r\n        jstNull, jstDoubleQuoted, jstBuffered, jstDoubleQuotedName, jstInt64, jstNumber, jstEOF);\r\n      TTMSFNCJSONNumberState = (jnstNone, jnstSign, jnstDigit, jnstDecimal, jnstFraction, jnstExpE, jnstExpSign, jnstExpDigit);\r\n      TTMSFNCJSONScope = (jscEmptyDocument, jscEmptyArray, jscEmptyObject, jscNonEmptyDocument,\r\n        jscNonEmptyArray, jscNonEmptyObject, jscDanglingName);\r\n  public\r\n    type\r\n      EInvalidStateException = class(Exception)\r\n      public\r\n        constructor Create(const AState: TTMSFNCJSONState);\r\n      end;\r\n      EUnterminatedArray = class(Exception)\r\n      public\r\n        constructor Create;\r\n      end;\r\n      EUnterminatedObject = class(Exception)\r\n      public\r\n        constructor Create;\r\n      end;\r\n      ENameExpected = class(Exception)\r\n      public\r\n        constructor Create;\r\n      end;\r\n      EColonExpected = class(Exception)\r\n      public\r\n        constructor Create;\r\n      end;\r\n      EReaderClosed = class(Exception)\r\n      public\r\n        constructor Create;\r\n      end;\r\n      EMultipleRootNotAllowed = class(Exception)\r\n      public\r\n        constructor Create;\r\n      end;\r\n      EExpectedValue = class(Exception)\r\n      public\r\n        constructor Create;\r\n      end;\r\n      EObjectOrArrayExpected = class(Exception)\r\n      public\r\n        constructor Create;\r\n      end;\r\n      ETooManyDepthLevels = class(Exception)\r\n      public\r\n        constructor Create;\r\n      end;\r\n      EInvalidEscaped = class(Exception)\r\n      public\r\n        constructor Create;\r\n      end;\r\n    const\r\n      MaxNumberBuffer = 255;\r\n      MaxStackSize = 255;\r\n  private\r\n    FReader: TTMSFNCJSONStreamReader;\r\n    FStack: array[0..MaxStackSize] of TTMSFNCJSONScope;\r\n    FStackSize: integer;\r\n    FPeeked: TTMSFNCJSONState;\r\n    FPeekedInt64: Int64;\r\n    FPeekedNumber: array[0..MaxNumberBuffer] of Char;\r\n    FPeekedString: string;\r\n    function NextPeek: TTMSFNCJSONState; inline;\r\n    procedure CheckState(const State: TTMSFNCJSONState); inline;\r\n    procedure SkipChar;\r\n    function IsLiteral(C: Char): boolean;\r\n    function IsDigit(C: Char): boolean; inline;\r\n    function DoPeek: TTMSFNCJSONState;\r\n    procedure PushScope(const Scope: TTMSFNCJSONScope);\r\n    function NextNonWhitespace: Char;\r\n    function ReadChar: Char;\r\n    function PeekKeyword: TTMSFNCJSONState;\r\n    function PeekNumber: TTMSFNCJSONState;\r\n    function InternalReadQuoted(const BuildString: boolean): string;\r\n    function ReadQuoted: string;\r\n    procedure SkipQuoted;\r\n  private\r\n    function SkipWhitespaceUntilEnd: boolean;\r\n  public\r\n    constructor Create(const AStream: TStream);\r\n    destructor Destroy; override;\r\n    procedure ReadBeginArray;\r\n    procedure ReadEndArray;\r\n    procedure ReadBeginObject;\r\n    procedure ReadEndObject;\r\n    function PeekName: string;\r\n    function ReadName: string;\r\n    function ReadString: string;\r\n    function ReadBoolean: boolean;\r\n    function ReadDouble: double;\r\n    function ReadInt64: Int64;\r\n    function ReadInteger: integer;\r\n    procedure SkipValue;\r\n    procedure ReadNull;\r\n    function HasNext: boolean;\r\n    function HasInt64: Boolean;\r\n    function HasDouble: Boolean;\r\n    function HasBoolean: Boolean;\r\n    function HasString: Boolean;\r\n    function Peek: TTMSFNCJSONToken;\r\n    function IsNull: boolean;\r\n    function Eof: boolean;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  WEBLib.TMSFNCUtils;\r\n\r\nconst\r\n  Wspace: Set of byte = [$20, $A, $D, $9, $C];\r\n\r\n{$IFNDEF LCLWEBLIB}\r\nconst\r\n  FPC_FULLVERSION = 0;\r\n{$ENDIF}\r\n\r\nfunction ArrayOfCharToString(AArray: array of char): string;\r\n{$IFDEF WEBLIB}\r\nvar\r\n  I: Integer;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  Result := '';\r\n  for I := 0 to Length(AArray) - 1 do\r\n  begin\r\n    if AArray[I] = #0 then\r\n      Break;\r\n\r\n    Result := Result + AArray[I];\r\n  end;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  Result := string(AArray);\r\n  {$ENDIF}\r\nend;\r\n\r\n{ TTMSFNCJSONReader }\r\n\r\nconstructor TTMSFNCJSONReader.Create(const aStream: TStream);\r\nbegin\r\n  inherited Create;\r\n  FReader := TTMSFNCJSONStreamReader.Create(aStream);\r\n  FPeeked := TTMSFNCJSONState.jstNone;\r\n  FStack[0] := TTMSFNCJSONScope.jscEmptyDocument;\r\n  FStackSize := 1;\r\nend;\r\n\r\ndestructor TTMSFNCJSONReader.Destroy;\r\nbegin\r\n  FReader.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCJSONReader.Eof: boolean;\r\nbegin\r\n  Result := (Peek = TTMSFNCJSONToken.jstoEOF);\r\nend;\r\n\r\nfunction TTMSFNCJSONReader.Peek: TTMSFNCJSONToken;\r\nbegin\r\n  case NextPeek of\r\n    TTMSFNCJSONState.jstBeginObject:\r\n      Result := TTMSFNCJSONToken.jstoBeginObject;\r\n\r\n    TTMSFNCJSONState.jstEndObject:\r\n      Result := TTMSFNCJSONToken.jstoEndObject;\r\n\r\n    TTMSFNCJSONState.jstBeginArray:\r\n      Result := TTMSFNCJSONToken.jstoBeginArray;\r\n\r\n    TTMSFNCJSONState.jstEndArray:\r\n      Result := TTMSFNCJSONToken.jstoEndArray;\r\n\r\n    TTMSFNCJSONState.jstDoubleQuotedName:\r\n      Result := TTMSFNCJSONToken.jstoName;\r\n\r\n    TTMSFNCJSONState.jstTrue,\r\n    TTMSFNCJSONState.jstFalse:\r\n      Result := TTMSFNCJSONToken.jstoBoolean;\r\n\r\n    TTMSFNCJSONState.jstNull:\r\n      Result := TTMSFNCJSONToken.jstoNull;\r\n\r\n    TTMSFNCJSONState.jstDoubleQuoted,\r\n    TTMSFNCJSONState.jstBuffered:\r\n      Result := TTMSFNCJSONToken.jstoText;\r\n\r\n    TTMSFNCJSONState.jstInt64,\r\n    TTMSFNCJSONState.jstNumber:\r\n      Result := TTMSFNCJSONToken.jstoNumber;\r\n\r\n    TTMSFNCJSONState.jstEOF:\r\n      Result := TTMSFNCJSONToken.jstoEOF;\r\n  else\r\n    Assert(false);\r\n    Result := TTMSFNCJSONToken.jstoEOF;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCJSONReader.PeekKeyword: TTMSFNCJSONState;\r\nbegin\r\n  case FReader.PeekChar of\r\n    't', 'T':\r\n      begin\r\n        FReader.MoveNext;\r\n        case FReader.NextChar of\r\n          'r', 'R': case FReader.NextChar of\r\n            'u', 'U': case FReader.NextChar of\r\n              'e', 'E':\r\n                if FReader.EOF or not IsLiteral(FReader.PeekChar) then\r\n                  Exit(TTMSFNCJSONState.jstTrue);\r\n            end;\r\n          end;\r\n        end;\r\n      end;\r\n    'f', 'F':\r\n      begin\r\n        FReader.MoveNext;\r\n        case FReader.NextChar of\r\n          'a', 'A': case FReader.NextChar of\r\n            'l', 'L': case FReader.NextChar of\r\n              's', 'S': case FReader.NextChar of\r\n                'e', 'E':\r\n                  if FReader.EOF or not IsLiteral(FReader.PeekChar) then\r\n                    Exit(TTMSFNCJSONState.jstFalse);\r\n              end;\r\n            end;\r\n          end;\r\n        end;\r\n      end;\r\n    'n', 'N':\r\n      begin\r\n        FReader.MoveNext;\r\n        case FReader.NextChar of\r\n          'u', 'U': case FReader.NextChar of\r\n            'l', 'L': case FReader.NextChar of\r\n              'l', 'L':\r\n                if FReader.EOF or not IsLiteral(FReader.PeekChar) then\r\n                  Exit(TTMSFNCJSONState.jstNull);\r\n            end;\r\n          end;\r\n        end;\r\n      end;\r\n  else\r\n    Exit(TTMSFNCJSONState.jstNone);\r\n  end;\r\n  raise EExpectedValue.Create;\r\nend;\r\n\r\nfunction TTMSFNCJSONReader.PeekName: string;\r\nvar\r\n  p: Int64;\r\nbegin\r\n  p := FReader.FReadStream.Position;\r\n  Result := ReadQuoted;\r\n  FReader.FReadStream.Position := p;\r\nend;\r\n\r\nfunction TTMSFNCJSONReader.PeekNumber: TTMSFNCJSONState;\r\nconst\r\n  MinIncompleteInteger = Low(Int64) div 10;\r\nvar\r\n  Last: TTMSFNCJSONNumberState;\r\n  Negative: boolean;\r\n  FitsInInt64: boolean;\r\n  Value: Int64;\r\n  NewValue: Int64;\r\n  C: Char;\r\n  BufIndex: integer;\r\nbegin\r\n  C := FReader.PeekChar;\r\n  if (C <> '-') and not IsDigit(C) then\r\n    Exit(TTMSFNCJSONState.jstNone);\r\n\r\n  Negative := false;\r\n  FitsInInt64 := true;\r\n  Last := TTMSFNCJSONNumberState.jnstNone;\r\n  BufIndex := 0;\r\n  Value := -1;\r\n  repeat\r\n    if BufIndex >= MaxNumberBuffer then\r\n      raise EExpectedValue.Create;\r\n    C := FReader.NextChar;\r\n    FPeekedNumber[BufIndex] := C;\r\n    Inc(BufIndex);\r\n    case C of\r\n      '-':\r\n        if Last = TTMSFNCJSONNumberState.jnstNone then\r\n        begin\r\n          Negative := true;\r\n          Last := TTMSFNCJSONNumberState.jnstSign;\r\n          Continue;\r\n        end\r\n        else\r\n        if Last = TTMSFNCJSONNumberState.jnstExpE then\r\n        begin\r\n          Last := TTMSFNCJSONNumberState.jnstExpSign;\r\n          Continue;\r\n        end\r\n        else\r\n          raise EExpectedValue.Create;\r\n      '+':\r\n        if Last = TTMSFNCJSONNumberState.jnstExpE then\r\n        begin\r\n          Last := TTMSFNCJSONNumberState.jnstExpSign;\r\n          Continue;\r\n        end\r\n        else\r\n          raise EExpectedValue.Create;\r\n      'e', 'E':\r\n        if Last in [TTMSFNCJSONNumberState.jnstDigit, TTMSFNCJSONNumberState.jnstFraction] then\r\n        begin\r\n          Last := TTMSFNCJSONNumberState.jnstExpE;\r\n          Continue;\r\n        end\r\n        else\r\n          raise EExpectedValue.Create;\r\n      '.':\r\n        if Last = TTMSFNCJSONNumberState.jnstDigit then\r\n        begin\r\n          Last := TTMSFNCJSONNumberState.jnstDecimal;\r\n          Continue;\r\n        end\r\n        else\r\n          raise EExpectedValue.Create;\r\n    else\r\n      if not IsDigit(C) then\r\n        if not IsLiteral(C) then\r\n        begin\r\n          FReader.Backup(C);\r\n          Dec(BufIndex);\r\n          Break;\r\n        end\r\n        else\r\n          raise EExpectedValue.Create;\r\n\r\n      if Last in [TTMSFNCJSONNumberState.jnstSign, TTMSFNCJSONNumberState.jnstNone] then\r\n      begin\r\n        Value := -(Ord(C) - 48);\r\n        Last := TTMSFNCJSONNumberState.jnstDigit\r\n      end\r\n      else\r\n      if Last = TTMSFNCJSONNumberState.jnstDigit then\r\n      begin\r\n        if Value = 0 then\r\n          raise EExpectedValue.Create;\r\n        NewValue := Value * 10 - (Ord(C) - 48);\r\n        FitsInInt64 := FitsInInt64 and (\r\n            (Value > MinIncompleteInteger)\r\n             or ((Value = MinIncompleteInteger) and (NewValue < Value))\r\n          );\r\n        Value := NewValue;\r\n      end\r\n      else\r\n      if Last = TTMSFNCJSONNumberState.jnstDecimal then\r\n        Last := TTMSFNCJSONNumberState.jnstFraction\r\n      else\r\n      if Last in [TTMSFNCJSONNumberState.jnstExpE, TTMSFNCJSONNumberState.jnstExpSign] then\r\n        Last := TTMSFNCJSONNumberState.jnstExpDigit;\r\n    end;\r\n  until false;\r\n\r\n  if (Last = TTMSFNCJSONNumberState.jnstDigit) and FitsInInt64 and ((Value <> Low(Int64)) or Negative) then\r\n  begin\r\n    if Negative then\r\n      FPeekedInt64 := Value\r\n    else\r\n      FPeekedInt64 := -Value;\r\n    Exit(TTMSFNCJSONState.jstInt64);\r\n  end\r\n  else\r\n  if Last in [TTMSFNCJSONNumberState.jnstDigit, TTMSFNCJSONNumberState.jnstFraction, TTMSFNCJSONNumberState.jnstExpDigit] then\r\n  begin\r\n    FPeekedNumber[BufIndex] := #0;\r\n    Exit(TTMSFNCJSONState.jstNumber);\r\n  end\r\n  else\r\n    raise EExpectedValue.Create;\r\nend;\r\n\r\nprocedure TTMSFNCJSONReader.PushScope(const Scope: TTMSFNCJSONScope);\r\nbegin\r\n  if FStackSize > MaxStackSize then\r\n    raise ETooManyDepthLevels.Create;\r\n  FStack[FStackSize] := Scope;\r\n  Inc(FStackSize);\r\nend;\r\n\r\nfunction TTMSFNCJSONReader.HasBoolean: Boolean;\r\nbegin\r\n  Result := (Peek in [TTMSFNCJSONToken.jstoBoolean]);\r\nend;\r\n\r\nfunction TTMSFNCJSONReader.HasDouble: Boolean;\r\nbegin\r\n  Result := (NextPeek in [TTMSFNCJSONState.jstNumber]);\r\nend;\r\n\r\nfunction TTMSFNCJSONReader.HasInt64: Boolean;\r\nbegin\r\n  Result := (NextPeek in [TTMSFNCJSONState.jstInt64]);\r\nend;\r\n\r\nfunction TTMSFNCJSONReader.HasNext: boolean;\r\nbegin\r\n  Result := not (NextPeek in [TTMSFNCJSONState.jstEndObject, TTMSFNCJSONState.jstEndArray]);\r\nend;\r\n\r\nfunction TTMSFNCJSONReader.HasString: Boolean;\r\nbegin\r\n  Result := (Peek in [TTMSFNCJSONToken.jstoText]);\r\nend;\r\n\r\nfunction TTMSFNCJSONReader.IsDigit(C: Char): boolean;\r\nbegin\r\n  Result := (C <= #255) and CharIsNumber(C);\r\nend;\r\n\r\nfunction TTMSFNCJSONReader.IsLiteral(C: Char): boolean;\r\nbegin\r\n  Result := not TTMSFNCUtils.CharInSet(C, TTMSFNCUtils.CreateCharSet('/\\;#{}[]:,'' '#13#10#12#9));\r\nend;\r\n\r\nfunction TTMSFNCJSONReader.IsNull: boolean;\r\nbegin\r\n  Result := (Peek = TTMSFNCJSONToken.jstoNull);\r\nend;\r\n\r\nfunction TTMSFNCJSONReader.NextNonWhitespace: Char;\r\nvar\r\n  s: Char;\r\n  p: Int64;\r\nbegin\r\n  p := FReader.FReadStream.Position;\r\n  Result := #0;\r\n  s := ReadChar;\r\n  repeat\r\n    if (s > #32) or not (Ord(s) in Wspace) then\r\n    begin\r\n      FReader.FReadStream.Position := p;\r\n      Exit(s);\r\n    end;\r\n\r\n    s := ReadChar;\r\n  until FReader.Eof;\r\n  FReader.FReadStream.Position := p;\r\nend;\r\n\r\nfunction TTMSFNCJSONReader.NextPeek: TTMSFNCJSONState;\r\nbegin\r\n  if FPeeked = TTMSFNCJSONState.jstNone then\r\n    FPeeked := DoPeek;\r\n  Result := FPeeked;\r\nend;\r\n\r\nprocedure TTMSFNCJSONReader.SkipQuoted;\r\nbegin\r\n  InternalReadQuoted(false);\r\nend;\r\n\r\nprocedure TTMSFNCJSONReader.SkipValue;\r\nvar\r\n  Count: integer;\r\nbegin\r\n  Count := 0;\r\n  repeat\r\n    case NextPeek of\r\n      TTMSFNCJSONState.jstBeginArray:\r\n        begin\r\n          PushScope(TTMSFNCJSONScope.jscEmptyArray);\r\n          Inc(Count);\r\n        end;\r\n      TTMSFNCJSONState.jstBeginObject:\r\n        begin\r\n          PushScope(TTMSFNCJSONScope.jscEmptyObject);\r\n          Inc(Count);\r\n        end;\r\n      TTMSFNCJSONState.jstEndArray, TTMSFNCJSONState.jstEndObject:\r\n        begin\r\n          Dec(FStackSize);\r\n          Dec(Count);\r\n        end;\r\n      TTMSFNCJSONState.jstDoubleQuoted, TTMSFNCJSONState.jstDoubleQuotedName:\r\n        SkipQuoted;\r\n    end;\r\n    FPeeked := TTMSFNCJSONState.jstNone;\r\n  until Count <= 0;\r\nend;\r\n\r\nprocedure TTMSFNCJSONReader.SkipChar;\r\nbegin\r\n  FReader.MoveNext;\r\n  while Ord(FReader.PeekChar) in Wspace do\r\n    FReader.MoveNext;\r\nend;\r\n\r\nfunction TTMSFNCJSONReader.DoPeek: TTMSFNCJSONState;\r\nvar\r\n  FPeekStack: TTMSFNCJSONScope;\r\n  C: Char;\r\nbegin\r\n  FPeekStack := FStack[FStackSize - 1];\r\n  if FPeekStack = TTMSFNCJSONScope.jscEmptyArray then\r\n    FStack[FStackSize - 1] := TTMSFNCJSONScope.jscNonEmptyArray\r\n  else\r\n  if FPeekStack = TTMSFNCJSONScope.jscNonEmptyArray then\r\n  begin\r\n    C := NextNonWhitespace;\r\n    case C of\r\n      ']':\r\n        begin\r\n          while Ord(FReader.PeekChar) in Wspace do\r\n            FReader.MoveNext;\r\n\r\n          SkipChar;\r\n          FPeeked := TTMSFNCJSONState.jstEndArray;\r\n          Exit(FPeeked);\r\n        end;\r\n      ',':\r\n         SkipChar;\r\n    else\r\n      raise EUnterminatedArray.Create;\r\n    end;\r\n  end\r\n  else\r\n  if FPeekStack in [TTMSFNCJSONScope.jscEmptyObject, TTMSFNCJSONScope.jscNonEmptyObject] then\r\n  begin\r\n    FStack[FStackSize - 1] := TTMSFNCJSONScope.jscDanglingName;\r\n    if FPeekStack = TTMSFNCJSONScope.jscNonEmptyObject then\r\n    begin\r\n      C := NextNonWhitespace;\r\n      case C of\r\n        '}':\r\n          begin\r\n            while Ord(FReader.PeekChar) in Wspace do\r\n              FReader.MoveNext;\r\n\r\n            SkipChar;\r\n            FPeeked := TTMSFNCJSONState.jstEndObject;\r\n            Exit(FPeeked);\r\n          end;\r\n        ',': SkipChar;\r\n      else\r\n        raise EUnterminatedObject.Create;\r\n      end;\r\n    end;\r\n    C := NextNonWhitespace;\r\n    case C of\r\n      '\"':\r\n        begin\r\n          SkipChar;\r\n          FPeeked := TTMSFNCJSONState.jstDoubleQuotedName;\r\n          Exit(FPeeked);\r\n        end;\r\n      '}':\r\n        if FPeekStack <> TTMSFNCJSONScope.jscNonEmptyObject then\r\n        begin\r\n          SkipChar;\r\n          FPeeked := TTMSFNCJSONState.jstEndObject;\r\n          Exit(FPeeked);\r\n        end else\r\n          raise ENameExpected.Create;\r\n    else\r\n      raise ENameExpected.Create;\r\n    end;\r\n  end\r\n  else\r\n  if FPeekStack = TTMSFNCJSONScope.jscDanglingName then\r\n  begin\r\n    FStack[FStackSize - 1] := TTMSFNCJSONScope.jscNonEmptyObject;\r\n    C := NextNonWhitespace;\r\n    if C = ':' then\r\n      SkipChar\r\n    else\r\n      raise EColonExpected.Create;\r\n  end\r\n  else\r\n  if FPeekStack = TTMSFNCJSONScope.jscEmptyDocument then\r\n    FStack[FStackSize - 1] := TTMSFNCJSONScope.jscNonEmptyDocument\r\n  else\r\n  if FPeekStack = TTMSFNCJSONScope.jscNonEmptyDocument then\r\n  begin\r\n    if SkipWhitespaceUntilEnd then\r\n    begin\r\n      FPeeked := TTMSFNCJSONState.jstEOF;\r\n      Exit(FPeeked);\r\n    end else\r\n      raise EMultipleRootNotAllowed.Create;\r\n  end;\r\n\r\n  C := NextNonWhitespace;\r\n  case C of\r\n    ']':\r\n      if FPeekStack = TTMSFNCJSONScope.jscEmptyArray then\r\n      begin\r\n        SkipChar;\r\n        FPeeked := TTMSFNCJSONState.jstEndArray;\r\n        Exit(FPeeked);\r\n      end else\r\n        raise EExpectedValue.Create;\r\n    '\"':\r\n      begin\r\n        if FStackSize = 1 then\r\n          raise EObjectOrArrayExpected.Create;\r\n        SkipChar;\r\n        FPeeked := TTMSFNCJSONState.jstDoubleQuoted;\r\n        Exit(FPeeked);\r\n      end;\r\n    '[':\r\n      begin\r\n        SkipChar;\r\n        FPeeked := TTMSFNCJSONState.jstBeginArray;\r\n        Exit(FPeeked);\r\n      end;\r\n    '{':\r\n      begin\r\n        SkipChar;\r\n        FPeeked := TTMSFNCJSONState.jstBeginObject;\r\n        Exit(FPeeked);\r\n      end;\r\n  end;\r\n\r\n  if FStackSize = 1 then\r\n    raise EObjectOrArrayExpected.Create;\r\n\r\n  Result := PeekKeyword;\r\n  if Result <> TTMSFNCJSONState.jstNone then\r\n    Exit;\r\n  Result := PeekNumber;\r\n  if Result <> TTMSFNCJSONState.jstNone then\r\n    Exit;\r\n  raise EExpectedValue.Create;\r\nend;\r\n\r\nfunction TTMSFNCJSONReader.SkipWhitespaceUntilEnd: boolean;\r\nvar\r\n  s: Char;\r\n  p: Int64;\r\nbegin\r\n  p := FReader.FReadStream.Position;\r\n  Result := True;\r\n  s := ReadChar;\r\n  repeat\r\n    if (s > #32) or not (Ord(s) in Wspace) then\r\n    begin\r\n      FReader.FReadStream.Position := p;\r\n      Exit(false);\r\n    end;\r\n\r\n    s := ReadChar;\r\n  until FReader.Eof;\r\n  FReader.FReadStream.Position := p;\r\nend;\r\n\r\nprocedure TTMSFNCJSONReader.CheckState(const State: TTMSFNCJSONState);\r\nbegin\r\n  if NextPeek <> State then\r\n    raise EInvalidStateException.Create(State);\r\nend;\r\n\r\nprocedure TTMSFNCJSONReader.ReadBeginArray;\r\nbegin\r\n  CheckState(TTMSFNCJSONState.jstBeginArray);\r\n  PushScope(TTMSFNCJSONScope.jscEmptyArray);\r\n  FPeeked := TTMSFNCJSONState.jstNone;\r\nend;\r\n\r\nprocedure TTMSFNCJSONReader.ReadEndArray;\r\nbegin\r\n  CheckState(TTMSFNCJSONState.jstEndArray);\r\n  Dec(FStackSize);\r\n  FPeeked := TTMSFNCJSONState.jstNone;\r\nend;\r\n\r\nfunction TTMSFNCJSONReader.ReadBoolean: boolean;\r\nbegin\r\n  case NextPeek of\r\n    TTMSFNCJSONState.jstTrue:\r\n      Result := True;\r\n    TTMSFNCJSONState.jstFalse:\r\n      Result := False;\r\n  else\r\n    raise EInvalidStateException.Create(TTMSFNCJSONState.jstTrue);\r\n  end;\r\n  FPeeked := TTMSFNCJSONState.jstNone;\r\nend;\r\n\r\nfunction TTMSFNCJSONReader.ReadChar: Char;\r\nbegin\r\n  Result := FReader.ReadChar;\r\nend;\r\n\r\nfunction TTMSFNCJSONReader.ReadDouble: double;\r\nbegin\r\n  case NextPeek of\r\n    TTMSFNCJSONState.jstInt64:\r\n      begin\r\n        FPeeked := TTMSFNCJSONState.jstNone;\r\n        Exit(FPeekedInt64);\r\n      end;\r\n    TTMSFNCJSONState.jstNumber:\r\n      begin\r\n        if TTMSFNCUtils.TryStrToFloatDot(ArrayOfCharToString(FPeekedNumber), Result) then\r\n        begin\r\n          FPeeked := TTMSFNCJSONState.jstNone;\r\n          Exit;\r\n        end else\r\n          FPeekedString := ArrayOfCharToString(FPeekedNumber);\r\n      end;\r\n    TTMSFNCJSONState.jstDoubleQuoted:\r\n      FPeekedString := ReadQuoted;\r\n    TTMSFNCJSONState.jstBuffered: ;\r\n  else\r\n    raise EInvalidStateException.Create(TTMSFNCJSONState.jstNumber);\r\n  end;\r\n\r\n  FPeeked := TTMSFNCJSONState.jstBuffered;\r\n  Result := TTMSFNCUtils.StrToFloatDot(FPeekedString);\r\n  FPeekedString := '';\r\n  FPeeked := TTMSFNCJSONState.jstNone;\r\nend;\r\n\r\nfunction TTMSFNCJSONReader.ReadInt64: Int64;\r\nvar\r\n  AsDouble: double;\r\nbegin\r\n  case NextPeek of\r\n    TTMSFNCJSONState.jstInt64:\r\n      begin\r\n        FPeeked := TTMSFNCJSONState.jstNone;\r\n        Exit(FPeekedInt64);\r\n      end;\r\n    TTMSFNCJSONState.jstNumber:\r\n      begin\r\n        if TryStrToInt64(ArrayOfCharToString(FPeekedNumber), Result) then\r\n        begin\r\n          FPeeked := TTMSFNCJSONState.jstNone;\r\n          Exit;\r\n        end else\r\n          FPeekedString := ArrayOfCharToString(FPeekedNumber);\r\n      end;\r\n    TTMSFNCJSONState.jstDoubleQuoted:\r\n      begin\r\n        FPeekedString := ReadQuoted;\r\n        if TryStrToInt64(FPeekedString, Result) then\r\n        begin\r\n          FPeeked := TTMSFNCJSONState.jstNone;\r\n          Exit;\r\n        end;\r\n      end;\r\n    TTMSFNCJSONState.jstBuffered: ;\r\n  else\r\n    raise EInvalidStateException.Create(TTMSFNCJSONState.jstInt64);\r\n  end;\r\n\r\n  FPeeked := TTMSFNCJSONState.jstBuffered;\r\n  AsDouble := TTMSFNCUtils.StrToFloatDot(FPeekedString);\r\n  Result := Round(AsDouble);\r\n  if AsDouble <> Result then\r\n    raise EInvalidStateException.Create(TTMSFNCJSONState.jstInt64);\r\n  FPeekedString := '';\r\n  FPeeked := TTMSFNCJSONState.jstNone;\r\nend;\r\n\r\nfunction TTMSFNCJSONReader.ReadInteger: integer;\r\nvar\r\n  AsDouble: double;\r\nbegin\r\n  case NextPeek of\r\n    TTMSFNCJSONState.jstInt64:\r\n      begin\r\n        Result := Integer(FPeekedInt64);\r\n        if Result <> FPeekedInt64 then\r\n          raise EInvalidStateException.Create(TTMSFNCJSONState.jstInt64);\r\n        FPeeked := TTMSFNCJSONState.jstNone;\r\n        Exit;\r\n      end;\r\n    TTMSFNCJSONState.jstNumber:\r\n      begin\r\n        if TryStrToInt(ArrayOfCharToString(FPeekedNumber), Result) then\r\n        begin\r\n          FPeeked := TTMSFNCJSONState.jstNone;\r\n          Exit;\r\n        end else\r\n          FPeekedString := ArrayOfCharToString(FPeekedNumber);\r\n      end;\r\n    TTMSFNCJSONState.jstDoubleQuoted:\r\n      begin\r\n        FPeekedString := ReadQuoted;\r\n        if TryStrToInt(FPeekedString, Result) then\r\n        begin\r\n          FPeeked := TTMSFNCJSONState.jstNone;\r\n          Exit;\r\n        end;\r\n      end;\r\n    TTMSFNCJSONState.jstBuffered: ;\r\n  else\r\n    raise EInvalidStateException.Create(TTMSFNCJSONState.jstInt64); // todo\r\n  end;\r\n\r\n  FPeeked := TTMSFNCJSONState.jstBuffered;\r\n  AsDouble := TTMSFNCUtils.StrToFloatDot(FPeekedString);\r\n  Result := Round(AsDouble);\r\n  if AsDouble <> Result then\r\n    raise EInvalidStateException.Create(TTMSFNCJSONState.jstInt64);\r\n  FPeekedString := '';\r\n  FPeeked := TTMSFNCJSONState.jstNone;\r\nend;\r\n\r\nfunction TTMSFNCJSONReader.ReadName: string;\r\nbegin\r\n  CheckState(TTMSFNCJSONState.jstDoubleQuotedName);\r\n  FPeeked := TTMSFNCJSONState.jstNone;\r\n  Result := ReadQuoted;\r\nend;\r\n\r\nprocedure TTMSFNCJSONReader.ReadNull;\r\nbegin\r\n  CheckState(TTMSFNCJSONState.jstNull);\r\n  FPeeked := TTMSFNCJSONState.jstNone;\r\nend;\r\n\r\nprocedure TTMSFNCJSONReader.ReadBeginObject;\r\nbegin\r\n  CheckState(TTMSFNCJSONState.jstBeginObject);\r\n  PushScope(TTMSFNCJSONScope.jscEmptyObject);\r\n  FPeeked := TTMSFNCJSONState.jstNone;\r\nend;\r\n\r\nprocedure TTMSFNCJSONReader.ReadEndObject;\r\nbegin\r\n  CheckState(TTMSFNCJSONState.jstEndObject);\r\n  Dec(FStackSize);\r\n  FPeeked := TTMSFNCJSONState.jstNone;\r\nend;\r\n\r\nfunction TTMSFNCJSONReader.ReadQuoted: string;\r\nbegin\r\n  Result := InternalReadQuoted(true);\r\nend;\r\n\r\nfunction TTMSFNCJSONReader.InternalReadQuoted(const BuildString: boolean): string;\r\nvar\r\n  pc, c: String;\r\n  s: string;\r\nbegin\r\n  Result := '';\r\n  s := '';\r\n  pc := '';\r\n  while not FReader.Eof do\r\n  begin\r\n    c := ReadChar;\r\n    if (c = '\"') and (pc <> '\\') then\r\n      Break\r\n    else\r\n      s := s + c;\r\n\r\n    pc := c;\r\n  end;\r\n\r\n  if BuildString then\r\n    Result := s;\r\nend;\r\n\r\nfunction TTMSFNCJSONReader.ReadString: string;\r\nbegin\r\n  case NextPeek of\r\n    TTMSFNCJSONState.jstDoubleQuoted:\r\n      Result := ReadQuoted;\r\n    TTMSFNCJSONState.jstInt64:\r\n      Result := IntToStr(FPeekedInt64);\r\n    TTMSFNCJSONState.jstNumber:\r\n      Result := ArrayOfCharToString(FPeekedNumber);\r\n    TTMSFNCJSONState.jstBuffered:\r\n      Result := FPeekedString;\r\n  else\r\n    raise EInvalidStateException.Create(TTMSFNCJSONState.jstDoubleQuoted);\r\n  end;\r\n  FPeeked := TTMSFNCJSONState.jstNone;\r\n\r\n  Result := TTMSFNCUtils.UnescapeString(Result);\r\nend;\r\n\r\n{ TTMSFNCJSONStreamReader }\r\n\r\nconstructor TTMSFNCJSONStreamReader.Create(const aStream: TStream);\r\nbegin\r\n  FStream := aStream;\r\n  FReadStream := TStringStream.Create(''{$IFDEF WEBLIB}, TEncoding.Ansi{$ENDIF});\r\n  FReadStream.CopyFrom(FStream, FStream.Size);\r\n  FReadStream.Position := 0;\r\nend;\r\n\r\ndestructor TTMSFNCJSONStreamReader.Destroy;\r\nbegin\r\n  FReadStream.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCJSONStreamReader.NextChar: char;\r\nbegin\r\n  if (Eof) then\r\n    raise EEndOfInputReached.Create;\r\n  Result := ReadChar;\r\nend;\r\n\r\nfunction TTMSFNCJSONStreamReader.PeekChar: char;\r\nvar\r\n  p: Int64;\r\nbegin\r\n  p := FReadStream.Position;\r\n  Result := ReadChar;\r\n  FReadStream.Position := p;\r\nend;\r\n\r\nfunction TTMSFNCJSONStreamReader.ReadChar: char;\r\nvar\r\n  i: Integer;\r\n  s: string;\r\nbegin\r\n  Result := #0;\r\n  {$IFDEF ZEROSTRINGINDEX}\r\n  i := 0;\r\n  {$ELSE}\r\n  i := 1;\r\n  {$ENDIF}\r\n  if FReadStream.Position < FReadStream.Size then\r\n  begin\r\n    s := FReadStream.ReadString(1);\r\n    {$IFNDEF WEBLIB}\r\n    {$HINTS OFF}\r\n    {$WARNINGS OFF}\r\n    {$IFDEF LCLLIB}\r\n    {$IF FPC_FULLVERSION = 30200}\r\n    //BUG IN TStringStream in FPC 3.2\r\n    FReadStream.Position := FReadStream.Position + 1;\r\n    {$IFEND}\r\n    {$ENDIF}\r\n    {$HINTS ON}\r\n    {$WARNINGS ON}\r\n    {$ENDIF}\r\n    if (s <> '') {$IFDEF WEBLIB} and Assigned(s) {$ENDIF} then\r\n      Result := s[i]\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCJSONStreamReader.Backup(const c: char);\r\nbegin\r\n  FReadStream.Position := FReadStream.Position - 1;\r\nend;\r\n\r\nprocedure TTMSFNCJSONStreamReader.MoveNext(const Count: integer = 1);\r\nbegin\r\n  FReadStream.Position := FReadStream.Position + Count;\r\nend;\r\n\r\nfunction TTMSFNCJSONStreamReader.Eof: boolean;\r\nbegin\r\n  Result := FReadStream.Position = FReadStream.Size;\r\nend;\r\n\r\n{ TTMSFNCJSONReader.EInvalidStateException }\r\n\r\nconstructor TTMSFNCJSONReader.EInvalidStateException.Create(const AState: TTMSFNCJSONState);\r\nbegin\r\n  inherited CreateFmt('Invalid Json parser state. Expected state: %d', [Ord(AState)]);\r\nend;\r\n\r\n{ TTMSFNCJSONReader.EUnterminatedArray }\r\n\r\nconstructor TTMSFNCJSONReader.EUnterminatedArray.Create;\r\nbegin\r\n  inherited Create('Unterminated array');\r\nend;\r\n\r\n{ TTMSFNCJSONReader.EUnterminatedObject }\r\n\r\nconstructor TTMSFNCJSONReader.EUnterminatedObject.Create;\r\nbegin\r\n  inherited Create('Unterminated object');\r\nend;\r\n\r\n{ TTMSFNCJSONReader.ENameExpected }\r\n\r\nconstructor TTMSFNCJSONReader.ENameExpected.Create;\r\nbegin\r\n  inherited Create('Name expected');\r\nend;\r\n\r\n{ TTMSFNCJSONReader.EColonExpected }\r\n\r\nconstructor TTMSFNCJSONReader.EColonExpected.Create;\r\nbegin\r\n  inherited Create('Colon expected');\r\nend;\r\n\r\n{ TTMSFNCJSONReader.EReaderClosed }\r\n\r\nconstructor TTMSFNCJSONReader.EReaderClosed.Create;\r\nbegin\r\n  inherited Create('Reader already closed');\r\nend;\r\n\r\n{ TTMSFNCJSONReader.EMultipleRootNotAllowed }\r\n\r\nconstructor TTMSFNCJSONReader.EMultipleRootNotAllowed.Create;\r\nbegin\r\n  inherited Create('Multiple root values not allowed');\r\nend;\r\n\r\n{ TTMSFNCJSONReader.EExpectedValue }\r\n\r\nconstructor TTMSFNCJSONReader.EExpectedValue.Create;\r\nbegin\r\n  inherited Create('Value expected but invalid character found');\r\nend;\r\n\r\n{ TTMSFNCJSONReader.EObjectOrArrayExpected }\r\n\r\nconstructor TTMSFNCJSONReader.EObjectOrArrayExpected.Create;\r\nbegin\r\n  inherited Create('Object or array expected as top-level value');\r\nend;\r\n\r\n{ TTMSFNCJSONReader.ETooManyDepthLevels }\r\n\r\nconstructor TTMSFNCJSONReader.ETooManyDepthLevels.Create;\r\nbegin\r\n  inherited Create('Maximum level of nested structured reached.');\r\nend;\r\n\r\n{ TTMSFNCJSONStreamReader.EInvalidJsonInput }\r\n\r\nconstructor TTMSFNCJSONStreamReader.EInvalidJsonInput.Create;\r\nbegin\r\n  inherited Create('Invalid JSON Input');\r\nend;\r\n\r\n{ TTMSFNCJSONStreamReader.EInternalError }\r\n\r\nconstructor TTMSFNCJSONStreamReader.EInternalError.Create;\r\nbegin\r\n  inherited Create('JSON stream reader internal error');\r\nend;\r\n\r\n{ TTMSFNCJSONStreamReader.EEndOfInputReached }\r\n\r\nconstructor TTMSFNCJSONStreamReader.EEndOfInputReached.Create;\r\nbegin\r\n  inherited Create('End of JSON input reached.');\r\nend;\r\n\r\n{ TTMSFNCJSONReader.EInvalidEscaped }\r\n\r\nconstructor TTMSFNCJSONReader.EInvalidEscaped.Create;\r\nbegin\r\n  inherited Create('Invalid escaped sequence');\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2017 - 2021                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCJSONWriter;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\n{$INLINE ON}{$R-}{$Q-}\r\n\r\ninterface\r\n\r\nuses\r\n  {$IFNDEF LCLWEBLIB}\r\n  Generics.Collections,\r\n  {$ENDIF}\r\n  Classes, SysUtils, WEBLib.TMSFNCTypes;\r\n\r\ntype\r\n  TTMSFNCJSONStreamWriter = class\r\n  private\r\n  var\r\n    FStream: TStream;\r\n    FWriteStream: TStringStream;\r\n  public\r\n    constructor Create(AStream: TStream);\r\n    destructor Destroy; override;\r\n    procedure Write(const Value: string);\r\n  end;\r\n\r\n  TTMSFNCJSONWriter = class\r\n  public\r\n    type\r\n      ECannotWriteName = class(Exception)\r\n      public\r\n        constructor Create;\r\n      end;\r\n      EMultipleRootNotAllowed = class(Exception)\r\n      public\r\n        constructor Create;\r\n      end;\r\n      EObjectOrArrayExpected = class(Exception)\r\n      public\r\n        constructor Create;\r\n      end;\r\n      EInvalidNesting = class(Exception)\r\n      public\r\n        constructor Create;\r\n      end;\r\n      EMissingValue = class(Exception)\r\n      public\r\n        constructor Create;\r\n      end;\r\n      ETooManyDepthLevels = class(Exception)\r\n      public\r\n        constructor Create;\r\n      end;\r\n      EEmptyJson = class(Exception)\r\n      public\r\n        constructor Create;\r\n      end;\r\n      EEmptyName = class(Exception)\r\n      public\r\n        constructor Create;\r\n      end;\r\n  private\r\n    type\r\n      TTMSFNCJSONScope = (jscEmptyDocument, jscEmptyArray, jscEmptyObject, jscNonEmptyDocument,\r\n        jscNonEmptyArray, jscNonEmptyObject, jscDanglingName);\r\n    const\r\n      MaxStackSize = 255;\r\n  private\r\n    FWriter: TTMSFNCJSONStreamWriter;\r\n    FStack: array[0..MaxStackSize] of TTMSFNCJSONScope;\r\n    FStackSize: integer;\r\n    FIndent: string;\r\n    FSeparator: string;\r\n    FDeferredName: string;\r\n    procedure SetIndentLength(const Value: integer);\r\n    function GetIndentLength: integer;\r\n    function OpenItem(const Empty: TTMSFNCJSONScope; const OpenBracket: string): TTMSFNCJSONWriter;\r\n    function CloseItem(const Empty, NonEmpty: TTMSFNCJSONScope; const CloseBracket: string): TTMSFNCJSONWriter;\r\n    procedure PushScope(const Scope: TTMSFNCJSONScope); inline;\r\n    function PeekScope: TTMSFNCJSONScope; inline;\r\n    procedure ReplaceTop(const Scope: TTMSFNCJSONScope); inline;\r\n    procedure WriteDeferredName; inline;\r\n    procedure InternalWriteString(const Value: string);\r\n    procedure NewLine; inline;\r\n    procedure BeforeName;\r\n    procedure BeforeValue(const Root: boolean);\r\n  public\r\n    constructor Create(const AStream: TStream);\r\n    destructor Destroy; override;\r\n    function WriteBeginArray: TTMSFNCJSONWriter;\r\n    function WriteEndArray: TTMSFNCJSONWriter;\r\n    function WriteBeginObject: TTMSFNCJSONWriter;\r\n    function WriteEndObject: TTMSFNCJSONWriter;\r\n    function WriteName(const Name: string): TTMSFNCJSONWriter;\r\n    function WriteString(const Value: string): TTMSFNCJSONWriter;\r\n    function WriteRawString(const Value: string): TTMSFNCJSONWriter;\r\n    function WriteBoolean(const Value: boolean): TTMSFNCJSONWriter;\r\n    function WriteNull: TTMSFNCJSONWriter;\r\n    function WriteDouble(const Value: double): TTMSFNCJSONWriter;\r\n    function WriteInteger(const Value: Int64): TTMSFNCJSONWriter;\r\n    procedure Close;\r\n    property IndentLength: integer read GetIndentLength write SetIndentLength;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  WEBLib.TMSFNCUtils;\r\n\r\n{ TTMSFNCJSONWriter }\r\n\r\nprocedure TTMSFNCJSONWriter.BeforeName;\r\nbegin\r\n  case PeekScope of\r\n    TTMSFNCJSONScope.jscNonEmptyObject: FWriter.Write(',');\r\n    TTMSFNCJSONScope.jscEmptyObject: ;\r\n  else\r\n    raise ECannotWriteName.Create;\r\n  end;\r\n  NewLine;\r\n  ReplaceTop(TTMSFNCJSONScope.jscDanglingName);\r\nend;\r\n\r\nprocedure TTMSFNCJSONWriter.BeforeValue(const Root: boolean);\r\nbegin\r\n  case PeekScope of\r\n    TTMSFNCJSONScope.jscNonEmptyDocument:\r\n      raise EMultipleRootNotAllowed.Create;\r\n    TTMSFNCJSONScope.jscEmptyDocument:\r\n      begin\r\n        if not Root then\r\n           raise EObjectOrArrayExpected.Create;\r\n        ReplaceTop(TTMSFNCJSONScope.jscNonEmptyDocument);\r\n      end;\r\n    TTMSFNCJSONScope.jscEmptyArray:\r\n      begin\r\n        ReplaceTop(TTMSFNCJSONScope.jscNonEmptyArray);\r\n        NewLine;\r\n      end;\r\n    TTMSFNCJSONScope.jscNonEmptyArray:\r\n      begin\r\n        FWriter.Write(',');\r\n        NewLine;\r\n      end;\r\n    TTMSFNCJSONScope.jscDanglingName:\r\n      begin\r\n        FWriter.Write(FSeparator);\r\n        ReplaceTop(TTMSFNCJSONScope.jscNonEmptyObject);\r\n      end;\r\n  else\r\n    raise EInvalidNesting.Create;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCJSONWriter.CloseItem(const Empty, NonEmpty: TTMSFNCJSONScope;\r\n  const CloseBracket: string): TTMSFNCJSONWriter;\r\nvar\r\n  Context: TTMSFNCJSONScope;\r\nbegin\r\n  Context := PeekScope;\r\n  if not (Context in [Empty, NonEmpty]) then\r\n    raise EInvalidNesting.Create;\r\n  if FDeferredName <> '' then\r\n    raise EMissingValue.Create;\r\n  Dec(FStackSize);\r\n  if Context = NonEmpty then\r\n    NewLine;\r\n  FWriter.Write(CloseBracket);\r\n  Result := Self;\r\nend;\r\n\r\nprocedure TTMSFNCJSONWriter.Close;\r\nbegin\r\n  if (FStackSize > 1) or ((FStackSize = 1) and (PeekScope <> TTMSFNCJSONScope.jscNonEmptyDocument)) then\r\n    raise EInvalidNesting.Create;\r\nend;\r\n\r\nconstructor TTMSFNCJSONWriter.Create(const aStream: TStream);\r\nbegin\r\n  inherited Create;\r\n  FWriter := TTMSFNCJSONStreamWriter.Create(aStream);\r\n  FSeparator := ':';\r\n  PushScope(TTMSFNCJSONScope.jscEmptyDocument);\r\nend;\r\n\r\ndestructor TTMSFNCJSONWriter.Destroy;\r\nbegin\r\n  FWriter.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCJSONWriter.NewLine;\r\nvar\r\n  I: integer;\r\nbegin\r\n  if FIndent <> '' then\r\n  begin\r\n    FWriter.Write(#13#10);\r\n    for I := 1 to FStackSize - 1 do\r\n      FWriter.Write(FIndent);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCJSONWriter.OpenItem(const Empty: TTMSFNCJSONScope;\r\n  const OpenBracket: string): TTMSFNCJSONWriter;\r\nbegin\r\n  BeforeValue(true);\r\n  PushScope(Empty);\r\n  FWriter.Write(OpenBracket);\r\n  Result := Self;\r\nend;\r\n\r\nfunction TTMSFNCJSONWriter.PeekScope: TTMSFNCJSONScope;\r\nbegin\r\n  if FStackSize = 0 then\r\n    raise EEmptyJson.Create;\r\n  Result := FStack[FStackSize - 1];\r\nend;\r\n\r\nprocedure TTMSFNCJSONWriter.PushScope(const Scope: TTMSFNCJSONScope);\r\nbegin\r\n  if FStackSize > MaxStackSize then\r\n    raise ETooManyDepthLevels.Create;\r\n  FStack[FStackSize] := Scope;\r\n  Inc(FStackSize);\r\nend;\r\n\r\nprocedure TTMSFNCJSONWriter.ReplaceTop(const Scope: TTMSFNCJSONScope);\r\nbegin\r\n  if FStackSize = 0 then\r\n    raise EEmptyJson.Create;\r\n  FStack[FStackSize - 1] := Scope;\r\nend;\r\n\r\nprocedure TTMSFNCJSONWriter.SetIndentLength(const Value: integer);\r\nbegin\r\n  if Value <= 0 then\r\n  begin\r\n    FIndent := '';\r\n    FSeparator := ':';\r\n  end else\r\n  begin\r\n    FIndent := StringOfChar(#32, Value);\r\n    FSeparator := ': ';\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCJSONWriter.GetIndentLength: integer;\r\nbegin\r\n  Result := Length(FIndent);\r\nend;\r\n\r\nprocedure TTMSFNCJSONWriter.InternalWriteString(const Value: string);\r\nbegin\r\n  FWriter.Write('\"');\r\n  FWriter.Write(TTMSFNCUtils.EscapeString(Value));\r\n  FWriter.Write('\"');\r\nend;\r\n\r\nfunction TTMSFNCJSONWriter.WriteString(const Value: string): TTMSFNCJSONWriter;\r\nbegin\r\n  WriteDeferredName;\r\n  BeforeValue(false);\r\n  InternalWriteString(Value);\r\n  Result := Self;\r\nend;\r\n\r\nfunction TTMSFNCJSONWriter.WriteEndArray: TTMSFNCJSONWriter;\r\nbegin\r\n  Result := CloseItem(TTMSFNCJSONScope.jscEmptyArray, TTMSFNCJSONScope.jscNonEmptyArray, ']');\r\nend;\r\n\r\nfunction TTMSFNCJSONWriter.WriteEndObject: TTMSFNCJSONWriter;\r\nbegin\r\n  Result := CloseItem(TTMSFNCJSONScope.jscEmptyObject, TTMSFNCJSONScope.jscNonEmptyObject, '}');\r\nend;\r\n\r\nfunction TTMSFNCJSONWriter.WriteBeginArray: TTMSFNCJSONWriter;\r\nbegin\r\n  WriteDeferredName;\r\n  Result := OpenItem(TTMSFNCJSONScope.jscEmptyArray, '[');\r\nend;\r\n\r\nfunction TTMSFNCJSONWriter.WriteBeginObject: TTMSFNCJSONWriter;\r\nbegin\r\n  WriteDeferredName;\r\n  Result := OpenItem(TTMSFNCJSONScope.jscEmptyObject, '{');\r\nend;\r\n\r\nfunction TTMSFNCJSONWriter.WriteBoolean(const Value: boolean): TTMSFNCJSONWriter;\r\nbegin\r\n  WriteDeferredName;\r\n  BeforeValue(false);\r\n  if Value then\r\n    FWriter.Write('true')\r\n  else\r\n    FWriter.Write('false');\r\n    Result := Self;\r\nend;\r\n\r\nprocedure TTMSFNCJSONWriter.WriteDeferredName;\r\nbegin\r\n  if FDeferredName <> '' then\r\n  begin\r\n    BeforeName;\r\n    InternalWriteString(FDeferredName);\r\n    FDeferredName := '';\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCJSONWriter.WriteDouble(const Value: double): TTMSFNCJSONWriter;\r\nbegin\r\n  WriteDeferredName;\r\n  BeforeValue(false);\r\n  FWriter.Write(TTMSFNCUtils.FloatToStrDot(Value));\r\n  Result := Self;\r\nend;\r\n\r\nfunction TTMSFNCJSONWriter.WriteName(const Name: string): TTMSFNCJSONWriter;\r\nbegin\r\n  if Name = '' then\r\n    raise EEmptyName.Create;\r\n  if FDeferredName <> '' then\r\n    raise EMissingValue.Create;\r\n  if FStackSize = 0 then\r\n    raise EEmptyJson.Create;\r\n  FDeferredName := Name;\r\n  Result := Self;\r\nend;\r\n\r\nfunction TTMSFNCJSONWriter.WriteNull: TTMSFNCJSONWriter;\r\nbegin\r\n  WriteDeferredName;\r\n  BeforeValue(false);\r\n  FWriter.Write('null');\r\n  Result := Self;\r\nend;\r\n\r\nfunction TTMSFNCJSONWriter.WriteRawString(const Value: string): TTMSFNCJSONWriter;\r\nbegin\r\n  WriteDeferredName;\r\n  BeforeValue(false);\r\n  FWriter.Write('\"');\r\n  FWriter.Write(Value);\r\n  FWriter.Write('\"');\r\n  Result := Self;\r\nend;\r\n\r\nfunction TTMSFNCJSONWriter.WriteInteger(const Value: Int64): TTMSFNCJSONWriter;\r\nbegin\r\n  WriteDeferredName;\r\n  BeforeValue(false);\r\n  FWriter.Write(IntToStr(Value));\r\n  Result := Self;\r\nend;\r\n\r\n{ TTMSFNCJSONStreamWriter }\r\n\r\nconstructor TTMSFNCJSONStreamWriter.Create(aStream: TStream);\r\nbegin\r\n  FStream := aStream;\r\n  FWriteStream := TStringStream.Create(''{$IFDEF WEBLIB}, TEncoding.Ansi{$ENDIF});\r\nend;\r\n\r\ndestructor TTMSFNCJSONStreamWriter.Destroy;\r\nbegin\r\n  try\r\n    FWriteStream.Position := 0;\r\n    FStream.CopyFrom(FWritestream, FWriteStream.Size);\r\n  finally\r\n    FWriteStream.Free;\r\n  end;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCJSONStreamWriter.Write(const Value: string);\r\nbegin\r\n  FWriteStream.WriteString(Value);\r\nend;\r\n\r\n{ TTMSFNCJSONWriter.ECannotWriteName }\r\n\r\nconstructor TTMSFNCJSONWriter.ECannotWriteName.Create;\r\nbegin\r\n  inherited Create('Cannot write name in current Json scope');\r\nend;\r\n\r\n{ TTMSFNCJSONWriter.EMultipleRootNotAllowed }\r\n\r\nconstructor TTMSFNCJSONWriter.EMultipleRootNotAllowed.Create;\r\nbegin\r\n  inherited Create('Multiple root values not allowed');\r\nend;\r\n\r\n{ TTMSFNCJSONWriter.EObjectOrArrayExpected }\r\n\r\nconstructor TTMSFNCJSONWriter.EObjectOrArrayExpected.Create;\r\nbegin\r\n  inherited Create('Object or array expected as top-level value');\r\nend;\r\n\r\n{ TTMSFNCJSONWriter.EInvalidNesting }\r\n\r\nconstructor TTMSFNCJSONWriter.EInvalidNesting.Create;\r\nbegin\r\n  inherited Create('Invalid nesting. Not all arrays/objects were properly closed.');\r\nend;\r\n\r\n{ TTMSFNCJSONWriter.EMissingValue }\r\n\r\nconstructor TTMSFNCJSONWriter.EMissingValue.Create;\r\nbegin\r\n  inherited Create('Json value missing');\r\nend;\r\n\r\n{ TTMSFNCJSONWriter.ETooManyDepthLevels }\r\n\r\nconstructor TTMSFNCJSONWriter.ETooManyDepthLevels.Create;\r\nbegin\r\n  inherited Create('Maximum level of nested structured reached.');\r\nend;\r\n\r\n{ TTMSFNCJSONWriter.EEmptyJson }\r\n\r\nconstructor TTMSFNCJSONWriter.EEmptyJson.Create;\r\nbegin\r\n  inherited Create('Json is still empty. Cannot perform operation.');\r\nend;\r\n\r\n{ TTMSFNCJSONWriter.EEmptyName }\r\n\r\nconstructor TTMSFNCJSONWriter.EEmptyName.Create;\r\nbegin\r\n  inherited Create('Cannot write empty name');\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2023                                      }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCTypes;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFNDEF WEBLIB}\r\n{$HINTS OFF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE USETRECTF}\r\n{$ENDIF}\r\n{$IFDEF VCLLIB}\r\n{$IF COMPILERVERSION < 23}\r\n{$DEFINE USETRECTF}\r\n{$IFEND}\r\n{$ENDIF}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE USETRECTF}\r\n{$ENDIF}\r\n\r\n{$IFDEF FMXLIB}\r\n{$DEFINE FMXWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF CMNLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$DEFINE FMXWEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\n{$IFDEF LCLLIB}\r\n{$DEFINE USEOWNEDCOLLECTION}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\n{$IFNDEF LCLWEBLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 22}\r\n{$DEFINE USEOWNEDCOLLECTION}\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n\r\n{$DEFINE SVGSUPPORT}\r\n\r\n{$IFNDEF LCLWEBLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 25}\r\n{$DEFINE SUPPORTSHELPERS}\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ELSE}\r\n{$DEFINE SUPPORTSHELPERS}\r\n{$ENDIF}\r\n\r\n{$IFDEF FNCLIB}\r\n{$DEFINE JSONSUPPORT}\r\n{$ELSE}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 27}\r\n{$DEFINE JSONSUPPORT}\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  {$IFDEF VCLLIB}\r\n  Windows,\r\n  {$IFDEF SVGSUPPORT}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION >= 33}\r\n  Vcl.BaseImageCollection,\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  UITypes,\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  LCLType,\r\n  {$ENDIF}\r\n  Types, Classes, WEBLib.Graphics\r\n  ,SysUtils, WEBLib.Controls, Math\r\n  {$IFDEF WEBLIB}\r\n  ,WEBLib.JSON\r\n  {$ENDIF}\r\n  {$IFDEF JSONSUPPORT}\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 26}\r\n  ,JSON\r\n  {$ELSE}\r\n  ,DBXJSON\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  ,fpjson\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  ITMSFNCProductInfo = interface\r\n  ['{C53329EA-7B3A-4507-AD9E-88ACD6A85054}']\r\n    function GetVersion: string;\r\n    function GetDocURL: string;\r\n    function GetTipsURL: string;\r\n  end;\r\n\r\nconst\r\n  TTMSFNCBaseDocURL = 'https://download.tmssoftware.com/doc/';\r\n  TTMSFNCBaseTipsURL = 'https://www.tmssoftware.com/site/tmsfnccore.asp?s=faq';\r\n  {$IFNDEF WEBLIB}\r\n  {$HINTS OFF}\r\n  {$ENDIF}\r\n  {$IFNDEF LCLLIB}\r\n  {$IF COMPILERVERSION > 28}\r\n  pidWeb = $10000;\r\n  {$ELSE}\r\n  pidWeb = $1000;\r\n  {$IFEND}\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  {$HINTS OFF}\r\n  TMSPlatformsDesktop = pidWin32 or pidWin64{$IF COMPILERVERSION > 35} or pidWin64x{$IFEND} or pidOSX32{$IF COMPILERVERSION > 34} or pidOSXArm64{$IFEND}{$IF COMPILERVERSION > 32} or pidOSX64{$IFEND}{$IF COMPILERVERSION > 33} or pidLinux64{$IFEND};\r\n  TMSPlatforms = pidWin32 or pidWin64{$IF COMPILERVERSION > 35} or pidWin64x{$IFEND} or pidOSX32{$IF COMPILERVERSION > 34} or pidOSXArm64{$IFEND}{$IF COMPILERVERSION > 33} or pidLinux64{$IFEND} or {$IF COMPILERVERSION > 32}pidOSX64 or pidiOSSimulator32 or pidiOSSimulator64{$ELSE}pidiOSSimulator{$IFEND} or {$IF COMPILERVERSION > 28}pidiOSDevice32 or pidiOSDevice64{$ELSE}pidiOSDevice{$IFEND}\r\n    or {$IF COMPILERVERSION > 32}{$IF COMPILERVERSION > 34}pidAndroidArm32 or pidAndroidArm64{$ELSE}pidAndroid32Arm or pidAndroid64Arm{$IFEND}{$ELSE}pidAndroid{$IFEND};\r\n  {$HINTS ON}\r\n  TMSPlatformsWeb = TMSPlatforms{$IFDEF FNCLIB} or pidWeb{$ENDIF};\r\n  TMSPlatformsWebDesktop = TMSPlatformsDesktop{$IFDEF FNCLIB} or pidWeb{$ENDIF};\r\n  KEY_CANCEL = VKCANCEL;\r\n  KEY_CONTROL = VKCONTROL;\r\n  KEY_SHIFT = VKSHIFT;\r\n  KEY_ESCAPE = VKESCAPE;\r\n  KEY_INSERT = VKINSERT;\r\n  KEY_DELETE = VKDELETE;\r\n  KEY_TAB = VKTAB;\r\n  KEY_SUBTRACT = VKSUBTRACT;\r\n  KEY_ADD = VKADD;\r\n  KEY_MULTIPLY = VKMULTIPLY;\r\n  KEY_DIVIDE = VKDIVIDE;\r\n  KEY_PRIOR = VKPRIOR;\r\n  KEY_NEXT = VKNEXT;\r\n  KEY_UP = VKUP;\r\n  KEY_DOWN = VKDOWN;\r\n  KEY_RIGHT = VKRIGHT;\r\n  KEY_LEFT = VKLEFT;\r\n  KEY_HOME = VKHOME;\r\n  KEY_END = VKEND;\r\n  KEY_RETURN = VKRETURN;\r\n  KEY_SPACE = VKSPACE;\r\n  KEY_MENU = VKMENU;\r\n  KEY_BACK = VKBACK;\r\n  KEY_F1 = VKF1;\r\n  KEY_F2 = VKF2;\r\n  KEY_F3 = VKF3;\r\n  KEY_F4 = VKF4;\r\n  KEY_F5 = VKF5;\r\n  KEY_F6 = VKF6;\r\n  KEY_F7 = VKF7;\r\n  KEY_F8 = VKF8;\r\n  KEY_F9 = VKF9;\r\n  KEY_F10 = VKF10;\r\n  KEY_F11 = VKF11;\r\n  KEY_F12 = VKF12;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$IFNDEF WEBLIB}\r\n  {$HINTS OFF}\r\n  {$ENDIF}\r\n  {$IF COMPILERVERSION > 22}\r\n  TMSPlatformsDesktop = pidWin32 or pidWin64{$IF COMPILERVERSION > 35} or pidWin64x{$IFEND};\r\n  TMSPlatforms = pidWin32 or pidWin64{$IF COMPILERVERSION > 35} or pidWin64x{$IFEND};\r\n  TMSPlatformsWeb = TMSPlatforms{$IFDEF FNCLIB} or pidWeb{$ENDIF};\r\n  TMSPlatformsWebDesktop = TMSPlatformsDesktop{$IFDEF FNCLIB} or pidWeb{$ENDIF};\r\n  {$ELSE}\r\n  ssCommand = ssCtrl;\r\n  TMSPlatformsDesktop = 0;\r\n  TMSPlatforms = 0;\r\n  TMSPlatformsWeb = 0;\r\n  TMSPlatformsWebDesktop = 0;\r\n  {$IFEND}\r\n  {$IFNDEF WEBLIB}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ssCommand = ssCtrl;\r\n  {$ENDIF}\r\n  KEY_CANCEL = VK_CANCEL;\r\n  KEY_CONTROL = VK_CONTROL;\r\n  KEY_SHIFT = VK_SHIFT;\r\n  KEY_ESCAPE = VK_ESCAPE;\r\n  KEY_INSERT = VK_INSERT;\r\n  KEY_DELETE = VK_DELETE;\r\n  KEY_TAB = VK_TAB;\r\n  KEY_SUBTRACT = VK_SUBTRACT;\r\n  KEY_ADD = VK_ADD;\r\n  KEY_MULTIPLY = VK_MULTIPLY;\r\n  KEY_DIVIDE = VK_DIVIDE;\r\n  KEY_PRIOR = VK_PRIOR;\r\n  KEY_NEXT = VK_NEXT;\r\n  KEY_UP = VK_UP;\r\n  KEY_DOWN = VK_DOWN;\r\n  KEY_RIGHT = VK_RIGHT;\r\n  KEY_LEFT = VK_LEFT;\r\n  KEY_HOME = VK_HOME;\r\n  KEY_END = VK_END;\r\n  KEY_RETURN = VK_RETURN;\r\n  KEY_SPACE = VK_SPACE;\r\n  KEY_MENU = VK_MENU;\r\n  KEY_BACK = VK_BACK;\r\n  KEY_F1 = VK_F1;\r\n  KEY_F2 = VK_F2;\r\n  KEY_F3 = VK_F3;\r\n  KEY_F4 = VK_F4;\r\n  KEY_F5 = VK_F5;\r\n  KEY_F6 = VK_F6;\r\n  KEY_F7 = VK_F7;\r\n  KEY_F8 = VK_F8;\r\n  KEY_F9 = VK_F9;\r\n  KEY_F10 = VK_F10;\r\n  KEY_F11 = VK_F11;\r\n  KEY_F12 = VK_F12;\r\n  {$ENDIF}\r\n\r\n{$IFDEF WEBLIB}\r\nconst\r\n  SReadError = 'Stream read error';\r\n  SWriteError = 'Stream write error';\r\n{$ENDIF}\r\n\r\ntype\r\n  {$IFDEF WEBLIB}\r\n  TResourceStream = TObject;\r\n\r\n  TTMSFNCStreamLoadedEvent = reference to procedure;\r\n\r\n  TTMSFNCMemoryStream = class helper for TCustomMemoryStream\r\n  private\r\n    function GetBytes: TBytes;\r\n  public\r\n    procedure OpenFile(FileType: string);\r\n    procedure SaveToFile(FileName: string);\r\n    property Bytes: TBytes read GetBytes;\r\n  end;\r\n\r\n  PChar = string;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF LCLLIB}\r\n  TJSONValue = TJSONData;\r\n  {$ENDIF}\r\n\r\n  TTMSFNCMouseButton = TMouseButton;\r\n\r\n  {$IFDEF USETRECTF}\r\n  {$IFNDEF WEBLIB}\r\n  PSizeF = ^TSizeF;\r\n  {$ENDIF}\r\n  TSizeF = record\r\n    cx: Single;\r\n    cy: Single;\r\n  {$IFNDEF WEBLIB}\r\n  public\r\n    property Width: Single read cx write cx;\r\n    property Height: Single read cy write cy;\r\n  {$ENDIF}\r\n  end;\r\n\r\n  {$IFNDEF WEBLIB}\r\n  TPointFType = array [0..1] of Single;\r\n  PPointF = ^TPointF;\r\n  {$ENDIF}\r\n  TPointF = record\r\n    {$IFDEF WEBLIB}\r\n    X, Y: Single;\r\n    {$ENDIF}\r\n    {$IFNDEF WEBLIB}\r\n    function Length: Single;\r\n    procedure Offset(const ADeltaX, ADeltaY: Single);\r\n    case Integer of\r\n      0: (V: TPointFType;);\r\n      1: (X: Single;\r\n          Y: Single;);\r\n    {$ENDIF}\r\n  end;\r\n\r\n  {$IFNDEF WEBLIB}\r\n  PRectF = ^TRectF;\r\n  {$ENDIF}\r\n  TRectF = record\r\n  {$IFNDEF WEBLIB}\r\n  private\r\n    function GetWidth: Single;\r\n    procedure SetWidth(const Value: Single);\r\n    function GetHeight: Single;\r\n    procedure SetHeight(const Value: Single);\r\n    function GetSize: TSizeF;\r\n    procedure SetSize(const Value: TSizeF);\r\n  public\r\n    procedure Offset(const DX, DY: Single);\r\n    procedure Inflate(const DX, DY: Single);\r\n    function CenterAt(const ADesignatedArea: TRectF): TRectF;\r\n    function SnapToPixel(const AScale: Single; const APlaceBetweenPixels: Boolean): TRectF;\r\n    function FitInto(const ADesignatedArea: TRectF; out Ratio: Single): TRectF; overload;\r\n    function FitInto(const ADesignatedArea: TRectF): TRectF; overload;\r\n    function IsEmpty: Boolean;\r\n    function IntersectsWith(const R: TRectF): Boolean;\r\n    function CenterPoint: TPointF;\r\n    function Empty: TRectF;\r\n    property Width: Single read GetWidth write SetWidth;\r\n    property Height: Single read GetHeight write SetHeight;\r\n    property Size: TSizeF read GetSize write SetSize;\r\n    case Integer of\r\n      0: (Left, Top, Right, Bottom: Single);\r\n      1: (TopLeft, BottomRight: TPointF);\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n    Left, Top, Right, Bottom: Single;\r\n  {$ENDIF}\r\n  end;\r\n  {$ENDIF}\r\n\r\n  TTMSFNCBitmap = class;\r\n\r\n  {$IFDEF FMXLIB}\r\n  TTMSFNCSVGImportColor = TAlphaColor;\r\n  {$ENDIF}\r\n  {$IFNDEF FMXLIB}\r\n  TTMSFNCSVGImportColor = TColor;\r\n  {$ENDIF}\r\n\r\n  TTMSFNCSVGImport = class(TPersistent)\r\n  private\r\n    FRotationAngle: Single;\r\n    FViewRect: TRectF;\r\n    FGrayScale: Boolean;\r\n    FCustomFillColor: TTMSFNCSVGImportColor;\r\n    FCustomStrokeColor: TTMSFNCSVGImportColor;\r\n    FTintColor: TTMSFNCSVGImportColor;\r\n    FCustomOpacity: Single;\r\n  public\r\n    function HasElements: Boolean; virtual; abstract;\r\n    function ElementCount: Integer; virtual; abstract;\r\n    function GenerateBitmap(AWidth: Single = - 1; AHeight: Single = -1): TTMSFNCBitmap; virtual; abstract;\r\n    constructor Create; virtual;\r\n    procedure Clear; virtual; abstract;\r\n    procedure Draw(const ACanvas: TCanvas; ARect: TRectF; ANative: Boolean = False); virtual; abstract;\r\n    procedure LoadFromText(const AText: string); virtual; abstract;\r\n    procedure LoadFromFile(const AFile: string); virtual; abstract;\r\n    procedure LoadFromStream(const AStream: TStream); virtual; abstract;\r\n    procedure SaveToStream(const AStream: TStream); virtual; abstract;\r\n    procedure SaveToFile(const AFile: string); virtual; abstract;\r\n    property ViewRect: TRectF read FViewRect write FViewRect;\r\n  published\r\n    property GrayScale: Boolean read FGrayScale write FGrayScale default False;\r\n    property CustomFillColor: TTMSFNCSVGImportColor read FCustomFillColor write FCustomFillColor;\r\n    property CustomStrokeColor: TTMSFNCSVGImportColor read FCustomStrokeColor write FCustomStrokeColor;\r\n    property TintColor: TTMSFNCSVGImportColor read FTintColor write FTintColor;\r\n    property CustomOpacity: Single read FCustomOpacity write FCustomOpacity;\r\n    property RotationAngle: Single read FRotationAngle write FRotationAngle;\r\n  end;\r\n\r\n  {$IFDEF CMNLIB}\r\n  TTMSFNCSVGBitmap = class(TGraphic)\r\n  strict private\r\n    FSVG: TTMSFNCSVGImport;\r\n    FStream: TMemoryStream;\r\n    FFileName: TFileName;\r\n    procedure SetFileName(const Value: TFileName);\r\n  protected\r\n    function GetEmpty: Boolean; override;\r\n    function GetWidth: Integer; override;\r\n    function GetHeight: Integer; override;\r\n    procedure ReadData(Stream: TStream); override;\r\n    procedure WriteData(Stream: TStream); override;\r\n    {$IFDEF LCLLIB}\r\n    procedure SetWidth(Value: Integer); override;\r\n    procedure SetHeight(Value: Integer); override;\r\n    procedure SetTransparent(Value: Boolean); override;\r\n    function GetTransparent: Boolean; override;\r\n    {$ENDIF}\r\n  public\r\n    constructor Create; override;\r\n    destructor Destroy; override;\r\n    {$IFDEF VCLLIB}\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION >= 32}\r\n    class function CanLoadFromStream(Stream: TStream): Boolean; override;\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n    {$ENDIF}\r\n    {$IFDEF LCLLIB}\r\n    class function IsStreamFormatSupported(Stream: TStream): Boolean; override;\r\n    {$ENDIF}     \r\n    function HasSVG: Boolean; virtual;\r\n    procedure Draw(ACanvas: TCanvas; const Rect: TRect); override;\r\n    procedure Clear;\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure AssignTo(Dest: TPersistent); override;\r\n    procedure LoadFromFile(const Filename: String); override;\r\n    procedure LoadFromStream(Stream: TStream); override;\r\n    procedure SaveToStream(Stream: TStream); override;\r\n    procedure SaveToFile(const FileName: String); override;\r\n    property FileName: TFileName read FFileName write SetFileName;\r\n    property SVG: TTMSFNCSVGImport read FSVG;\r\n  end;\r\n\r\n  {$IFDEF SVGSUPPORT}\r\n\r\n  {$IFNDEF FNCLIB}\r\n  TTMSFNCSVGBitmap = class(TTMSFNCSVGBitmap);\r\n  {$ENDIF}\r\n\r\n  {$IFDEF VCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION >= 33}\r\n  TTMSFNCSVGImageCollectionItem = class(TCollectionItem)\r\n  private\r\n    FRotationAngle: Single;\r\n    FData: TPicture;\r\n    FName: String;\r\n    FGrayScale: Boolean;\r\n    FCustomFillColor: TTMSFNCSVGImportColor;\r\n    FCustomStrokeColor: TTMSFNCSVGImportColor;\r\n    FTintColor: TTMSFNCSVGImportColor;\r\n    FCustomOpacity: Single;\r\n    procedure SetData(const Value: TPicture);\r\n    procedure SetName(const Value: String);\r\n    function IsTintColorStored: Boolean;\r\n    function IsCustomFillColorStored: Boolean;\r\n    function IsCustomStrokeColorStored: Boolean;\r\n    function IsCustomOpacityStored: Boolean;\r\n    function IsRotationAngleStored: Boolean;\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    function GetDisplayName: string; override;\r\n    destructor Destroy; override;\r\n  published\r\n    property Data: TPicture read FData write SetData;\r\n    property Name: String read FName write SetName;\r\n    property GrayScale: Boolean read FGrayScale write FGrayScale default False;\r\n    property TintColor: TTMSFNCSVGImportColor read FTintColor write FTintColor stored IsTintColorStored nodefault;\r\n    property CustomFillColor: TTMSFNCSVGImportColor read FCustomFillColor write FCustomFillColor stored IsCustomFillColorStored nodefault;\r\n    property CustomStrokeColor: TTMSFNCSVGImportColor read FCustomStrokeColor write FCustomStrokeColor stored IsCustomStrokeColorStored nodefault;\r\n    property CustomOpacity: Single read FCustomOpacity write FCustomOpacity stored IsCustomOpacityStored nodefault;\r\n    property RotationAngle: Single read FRotationAngle write FRotationAngle stored IsRotationAngleStored nodefault;\r\n  end;\r\n\r\n  TTMSFNCSVGImageCollectionItems = class(TOwnedCollection)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCSVGImageCollectionItem;\r\n    procedure SetItem(Index: Integer; Value: TTMSFNCSVGImageCollectionItem);\r\n  public\r\n    function Add: TTMSFNCSVGImageCollectionItem;\r\n    property Items[Index: Integer]: TTMSFNCSVGImageCollectionItem read GetItem write SetItem; default;\r\n  end;\r\n\r\n  TTMSFNCSVGImageCollection = class(TCustomImageCollection)\r\n  private\r\n    FImages: TTMSFNCSVGImageCollectionItems;\r\n    procedure SetImages(const Value: TTMSFNCSVGImageCollectionItems);\r\n  protected\r\n    function GetCount: Integer; override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure Draw(ACanvas: TCanvas; ARect: TRect; AIndex: Integer; AProportional: Boolean = False); overload; override;\r\n    procedure Draw(ACanvas: TCanvas; X, Y: Integer; AIndex: Integer; AProportional: Boolean = False); overload; virtual;\r\n    function IsIndexAvailable(AIndex: Integer): Boolean; override;\r\n    function GetIndexByName(const AName: String): Integer; override;\r\n    function GetNameByIndex(AIndex: Integer): String; override;\r\n    function GetItemByIndex(AIndex: Integer): TTMSFNCSVGImageCollectionItem; virtual;\r\n    function GetBitmap(AIndex: Integer; AWidth, AHeight: Integer): TBitmap; overload; override;\r\n  published\r\n    property Images: TTMSFNCSVGImageCollectionItems read FImages write SetImages;\r\n  end;\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF FMXLIB}\r\n  TTMSFNCDrawBitmap = TBitmap;\r\n  TTMSFNCBitmapHelperClass = TBitmap;\r\n  TTMSFNCBitmap = class(TBitmap)\r\n  private\r\n    FSVG: TTMSFNCSVGImport;\r\n    procedure ReadSVG(Stream: TStream);\r\n    procedure WriteSVG(Stream: TStream);\r\n  protected\r\n    procedure DefineProperties(Filer: TFiler); override;\r\n  public\r\n    procedure Draw(ACanvas: TCanvas; const Rect: TRectF); virtual;\r\n    constructor CreateFromStream(const AStream: TStream); override;\r\n    constructor CreateFromFile(const AFileName: string); override;\r\n    function HasSVG: Boolean; virtual;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure LoadFromFile(const AFileName: string); virtual;\r\n    procedure LoadFromStream(Stream: TStream); virtual;\r\n    procedure LoadFromBase64(const ABase64: string); virtual;\r\n    procedure LoadFromSVG(const ASVG: string); virtual;\r\n    procedure SaveToStream(Stream: TStream); virtual;\r\n    procedure SaveToFile(const AFilename: string); virtual;\r\n    function SaveToBase64: string; virtual;\r\n    property SVG: TTMSFNCSVGImport read FSVG;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFDEF CMNLIB}\r\n  TTMSFNCDrawBitmap = TGraphic;\r\n  TTMSFNCBitmapHelperClass = TPicture;\r\n  TTMSFNCBitmap = class(TPicture)\r\n  {$IFDEF SVGSUPPORT}\r\n  private\r\n    function GetSVG: TTMSFNCSVGImport;\r\n  public\r\n    function HasSVG: Boolean; virtual;\r\n    property SVG: TTMSFNCSVGImport read GetSVG;\r\n  {$ENDIF}\r\n  end;\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCBitmap = class(TBitmap)\r\n  public\r\n    constructor CreateFromStream(const AStream: TStream); virtual;\r\n  end;\r\n  TTMSFNCDrawBitmap = TGraphic;\r\n  TTMSFNCBitmapHelperClass = TGraphic;\r\n  {$ENDIF}\r\n\r\n  {$IFNDEF LCLLIB}\r\n  {$IFNDEF USETRECTF}\r\n  TRectFHelper = record helper for TRectF\r\n    function CenterAt(const ADesignatedArea: TRectF): TRectF;\r\n    function SnapToPixel(const AScale: Single; const APlaceBetweenPixels: Boolean): TRectF;\r\n    function FitInto(const ADesignatedArea: TRectF; out Ratio: Single): TRectF; overload;\r\n    function FitInto(const ADesignatedArea: TRectF): TRectF; overload;\r\n  end;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCBitmapHelper = class helper for TTMSFNCBitmapHelperClass\r\n    procedure LoadFromSVG(ASVG: string);\r\n    procedure LoadFromBase64(ABase64: string);\r\n    procedure LoadFromURL(AURL: String); overload;\r\n    procedure LoadFromURL(AURL: String; {%H-}AInstance: NativeUInt); overload;\r\n    procedure LoadFromResource(AResourceName: String); overload;\r\n    procedure LoadFromResource(AResourceName: String; {%H-}AInstance: NativeUInt); overload;\r\n    function SaveToBase64: string;\r\n    {$IFDEF CMNLIB}\r\n    {$IFDEF VCLLIB}\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION < 32}\r\n    procedure SaveToStream(AStream: TStream);\r\n    procedure LoadFromStream(AStream: TStream);\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n    {$ENDIF}\r\n    class function CreateFromFile(AFileName: string): TTMSFNCBitmap; overload;\r\n    class function CreateFromStream(AStream: TStream): TTMSFNCBitmap; overload;\r\n    {$ENDIF}\r\n    class function CreateFromResource(AResourceName: string): TTMSFNCBitmap; overload;\r\n    class function CreateFromResource(AResourceName: string; {%H-}AInstance: NativeUInt): TTMSFNCBitmap; overload;\r\n    class function CreateFromURL(AURL: string): TTMSFNCBitmap; overload;\r\n    class function CreateFromURL(AURL: string; {%H-}AInstance: NativeUInt): TTMSFNCBitmap; overload;\r\n    class function CreateFromBase64(ABase64: string): TTMSFNCBitmap;\r\n    class function CreateFromSVG(ASVG: string): TTMSFNCBitmap;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF SUPPORTSHELPERS}\r\n  TTMSFNCObjectExcludePropertyListArray = array of string;\r\n\r\n  TTMSFNCObjectHelper = class helper for TObject\r\n  {$IFDEF JSONSUPPORT}\r\n  private\r\n    function ToJSONValue: TJSONValue;\r\n  {$ENDIF}\r\n    {$IFDEF JSONSUPPORT}\r\n  public\r\n    property JSONValue: TJSONValue read ToJSONValue;\r\n    {$ENDIF}\r\n    function ToJSON(AExcludedProperties: TTMSFNCObjectExcludePropertyListArray): string; overload;\r\n    function ToJSON: string; overload;\r\n    procedure FromJSON(const Value: string);\r\n    property JSON: string read ToJSON write FromJSON;\r\n    procedure Log;\r\n    procedure SaveToJSONFile(const AFileName: string);\r\n    procedure LoadFromJSONFile(const AFileName: string);\r\n    procedure SaveToJSONStream(const AStream: TStream);\r\n    procedure LoadFromJSONStream(const AStream: TStream);\r\n  end;\r\n\r\n  {$IFDEF JSONSUPPORT}\r\n  TTMSFNCJSONValueHelper = class helper for TJSONValue\r\n  private\r\n    function GetProperties(AName: string): TJSONValue;\r\n    function GetAsArray: TJSONArray;\r\n    function GetAsString: string;\r\n    function GetAsDouble: Double;\r\n    function GetAsInteger: Integer;\r\n    function GetAsBoolean: Boolean;\r\n  public\r\n    property Properties[AName: string]: TJSONValue read GetProperties; default;\r\n    property AsArray: TJSONArray read GetAsArray;\r\n    property AsString: string read GetAsString;\r\n    property AsDouble: Double read GetAsDouble;\r\n    property AsInteger: Integer read GetAsInteger;\r\n    property AsBoolean: Boolean read GetAsBoolean;\r\n    function Find(const APath: string): TJSONValue;\r\n  end;\r\n\r\n  TTMSFNCJSONArrayHelper = class helper for TJSONArray\r\n  private\r\n    function GetValues(AIndex: Integer): TJSONValue;\r\n    function GetLength: Integer;\r\n  public\r\n    property Values[AIndex: Integer]: TJSONValue read GetValues; default;\r\n    property Length: Integer read GetLength;\r\n  end;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  TTMSFNCMargins = class(TPersistent)\r\n  private\r\n    FRight: Single;\r\n    FBottom: Single;\r\n    FTop: Single;\r\n    FLeft: Single;\r\n    FOnChange: TNotifyEvent;\r\n    procedure SetBottom(const Value: Single);\r\n    procedure SetLeft(const Value: Single);\r\n    procedure SetRight(const Value: Single);\r\n    procedure SetTop(const Value: Single);\r\n    function IsLeftStored: Boolean;\r\n    function IsTopStored: Boolean;\r\n    function IsRightStored: Boolean;\r\n    function IsBottomStored: Boolean;\r\n  protected\r\n    procedure Changed;\r\n  public\r\n    constructor Create; overload;\r\n    constructor Create(const ARect: TRectF); overload;\r\n    procedure Assign(Source: TPersistent); override;\r\n    function Empty: Boolean;\r\n    function Rect: TRectF;\r\n    function PaddingRect(const R: TRectF): TRectF;\r\n  published\r\n    property Left: Single read FLeft write SetLeft stored IsLeftStored nodefault;\r\n    property Top: Single read FTop write SetTop stored IsTopStored nodefault;\r\n    property Right: Single read FRight write SetRight stored IsRightStored nodefault;\r\n    property Bottom: Single read FBottom write SetBottom stored IsBottomStored nodefault;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  end;\r\n\r\n  TTMSFNCPoint = class(TPersistent)\r\n  private\r\n    FY: Single;\r\n    FX: Single;\r\n    FOnChange: TNotifyEvent;\r\n    procedure SetX(const Value: Single);\r\n    procedure SetY(const Value: Single);\r\n    function IsXStored: Boolean;\r\n    function IsYStored: Boolean;\r\n  protected\r\n    procedure Changed;\r\n  public\r\n    constructor Create; overload;\r\n    constructor Create(const APoint: TPointF); overload;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property X: Single read FX write SetX stored IsXStored nodefault;\r\n    property Y: Single read FY write SetY stored IsYStored nodefault;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  end;\r\n\r\n  {$IFNDEF LIMITEDGRAPHICSMODE}\r\n  TTMSFNCScaledBitmap = class(TCollectionItem)\r\n  private\r\n    FBitmap: TTMSFNCBitmap;\r\n    FScale: Single;\r\n    FBitmapName: string;\r\n    function IsScaleStored: Boolean;\r\n    procedure SetBitmap(const Value: TTMSFNCBitmap);\r\n    procedure SetScale(const Value: Single);\r\n    procedure SetBitmapName(const Value: string);\r\n  protected\r\n    procedure BitmapChanged(Sender: TObject);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property Bitmap: TTMSFNCBitmap read FBitmap write SetBitmap;\r\n    property BitmapName: string read FBitmapName write SetBitmapName;\r\n    property Scale: Single read FScale write SetScale stored IsScaleStored nodefault;\r\n  end;\r\n\r\n  TTMSFNCScaledBitmaps = class(TOwnedCollection)\r\n  private\r\n    FOnChange: TNotifyEvent;\r\n    function GetItems(Index: Integer): TTMSFNCScaledBitmap;\r\n    procedure SetItems(Index: Integer; const Value: TTMSFNCScaledBitmap);\r\n    function GetBitmap(Scale: Single): TTMSFNCBitmap;\r\n    procedure SetBitmap(Scale: Single; const Value: TTMSFNCBitmap);\r\n  protected\r\n    procedure Update(Item: TCollectionItem); override;\r\n  public\r\n    constructor Create(AOwner: TPersistent);\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    function Add(Scale: Single = 1.0): TTMSFNCScaledBitmap; overload;\r\n    {$IFNDEF WEBLIB}\r\n    function AddBitmapFromFile(FileName: string; Scale: Single = 1.0): TTMSFNCScaledBitmap;\r\n    {$ENDIF}\r\n    function AddBitmapFromResource(ResourceName: String; Scale: Single = 1.0): TTMSFNCScaledBitmap; overload;\r\n    function AddBitmapFromResource(ResourceName: String; AInstance: NativeUInt; Scale: Single = 1.0): TTMSFNCScaledBitmap; overload;\r\n    function AddBitmap(Bitmap: TTMSFNCBitmap; Scale: Single = 1.0): TTMSFNCScaledBitmap;\r\n    function AddBitmapName(BitmapName: string; Scale: Single = 1.0): TTMSFNCScaledBitmap;\r\n    function AddDrawBitmap(Bitmap: TTMSFNCDrawBitmap; Scale: Single = 1.0): TTMSFNCScaledBitmap;\r\n    function Insert(Index: Integer): TTMSFNCScaledBitmap; overload;\r\n    function Insert(Index: Integer; Scale: Single): TTMSFNCScaledBitmap; overload;\r\n    function GetBitmapByScale(Scale: Single): TTMSFNCBitmap;\r\n    function GetItemByScale(Scale: Single): TTMSFNCScaledBitmap;\r\n    property Items[Index: Integer]: TTMSFNCScaledBitmap read GetItems write SetItems; default;\r\n    property Bitmaps[Scale: Single]: TTMSFNCBitmap read GetBitmap write SetBitmap;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  TTMSFNCPictureFormat = (pfBMP, pfGIF, pfJPG, pfPNG, pfICO, pfTiff, pfMetaFile, pfNone);\r\n\r\n  ITMSFNCCustomEditor = interface\r\n    ['{CC0C60B7-75F3-47CE-8A7F-8005A19F12E8}']\r\n    procedure SetText(AValue: String);\r\n    procedure SetSelStart(AValue: Integer);\r\n    procedure SetSelLength(AValue: Integer);\r\n    function GetTextLength: Integer;\r\n  end;\r\n\r\n  {$IFDEF USEOWNEDCOLLECTION}\r\n  {$IFDEF LCLLIB}generic {$ENDIF}TTMSFNCOwnedCollection<T: class> = class(TOwnedCollection)\r\n  public type\r\n    TTMSFNCCollection = {$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<T>;\r\n\r\n    TEnumerator = class\r\n    private\r\n      FIndex: Integer;\r\n      FCol: TTMSFNCCollection;\r\n    public\r\n      constructor Create(ACol: TTMSFNCCollection);\r\n      function GetCurrent: T;\r\n      function MoveNext: Boolean;\r\n      property Current: T read GetCurrent;\r\n    end;\r\n  public\r\n    function GetEnumerator: TEnumerator;\r\n    function GetItem(AIndex: Integer): T;\r\n  end;\r\n  {$ELSE}\r\n  TTMSFNCOwnedCollection = class(TOwnedCollection);\r\n  {$ENDIF}\r\n\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCPersistent = class(TInterfacedPersistent);\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCPersistent = class(TPersistent);\r\n  {$ENDIF}\r\n\r\n  TTMSFNCValueRelationShip = TValueRelationShip;\r\n\r\nprocedure InflateRectEx(var R: TRectF; DX, DY: Single);\r\nfunction ConvertToRectF(const Rect: TRect): TRectF; overload;\r\nfunction ConvertToRectF(const Rect: TRectF): TRectF; overload;\r\nfunction ConvertToRect(const Rect: TRectF): TRect; overload;\r\nfunction ConvertToRect(const Rect: TRect): TRect; overload;\r\nfunction ConvertToSizeF(const Size: TSize): TSizeF; overload;\r\nfunction ConvertToSizeF(const Size: TSizeF): TSizeF; overload;\r\nfunction ConvertToSize(const Size: TSizeF): TSize; overload;\r\nfunction ConvertToSize(const Size: TSize): TSize; overload;\r\nfunction ConvertToPointF(const Point: TPoint): TPointF; overload;\r\nfunction ConvertToPointF(const Point: TPointF): TPointF; overload;\r\nfunction ConvertToPoint(const Point: TPointF): TPoint; overload;\r\nfunction ConvertToPoint(const Point: TPoint): TPoint; overload;\r\nfunction OffsetRectEx(var R: TRect; DX, DY: Integer): Boolean; overload;\r\nfunction OffsetRectEx(var R: TRectF; DX, DY: Single): Boolean; overload;\r\nfunction PtInRectEx(const Rect: TRectF; const P: TPointF): Boolean;\r\nfunction IntersectRectEx(const Rect1: TRectF; const Rect2: TRectF): Boolean; overload;\r\nfunction IntersectRectEx(out Rect: TRectF; const R1, R2: TRectF): Boolean; overload;\r\nfunction EqualRectEx(const R1, R2: TRectF): Boolean; overload;\r\nfunction EqualRectEx(const R1, R2: TRect): Boolean; overload;\r\nfunction RectWidthEx(const Rect: TRect): Integer; overload;\r\nfunction RectWidthEx(const Rect: TRectF): Single; overload;\r\nfunction RectHeightEx(const Rect: TRect): Integer; overload;\r\nfunction RectHeightEx(const Rect: TRectF): Single; overload;\r\nfunction RectCenterEx(var R: TRect; const B: TRect): TRect; overload;\r\nfunction RectCenterEx(var R: TRectF; const B: TRectF): TRectF; overload;\r\nfunction RectCenterAtEx(const Rect: TRectF; const ADesignatedArea: TRectF): TRectF;\r\nfunction RectSnapToPixelEx(const Rect: TRectF; const AScale: Single; const APlaceBetweenPixels: Boolean): TRectF;\r\nfunction RectFitIntoEx(const Rect: TRectF; const ADesignatedArea: TRectF; out Ratio: Single): TRectF; overload;\r\nfunction RectFitIntoEx(const Rect: TRectF; const ADesignatedArea: TRectF): TRectF; overload;\r\nfunction GetPointLength(const Point: TPointF): Single;\r\nfunction MakeRectF(Left, Top, Width, Height: Single): TRectF;\r\nfunction CenterPointEx(const R: TRectF): TPointF;\r\nfunction CompareValueEx(const A, B: Extended; Epsilon: Extended = 0): TTMSFNCValueRelationship;\r\nfunction RectIsEmpty(const R: TRectF): Boolean;\r\nfunction EmptyRect: TRectF;\r\nfunction RectIntersectsWithEx(const ARect: TRectF; const R: TRectF): Boolean;\r\n{$IFDEF USETRECTF}\r\nfunction RectF(Left, Top, Right, Bottom: Single): TRectF; {$IFNDEF WEBLIB}inline; {$ENDIF}overload;\r\nfunction PointF(X, Y: Single): TPointF; {$IFNDEF WEBLIB}inline; {$ENDIF}overload;\r\n{$ENDIF}\r\nfunction BitmapToDrawBitmap(ABitmap: TTMSFNCBitmapHelperClass): TTMSFNCDrawBitmap; overload;\r\nfunction IsBitmapEmpty(ABitmap: TTMSFNCBitmapHelperClass): Boolean;\r\nfunction CharInArray(AChar: Char; ACharArray: array of char): Boolean;\r\nfunction CharIsNumber(AChar: Char): Boolean;\r\nfunction CharIsLetter(AChar: Char): Boolean;\r\nfunction CharIsHex(AChar: Char): Boolean;\r\nfunction CharIsLetterOrNumber(AChar: Char): Boolean;\r\n{$IFDEF WEBLIB}\r\nfunction VarToStr(const S: string): string;\r\nfunction VarToDateTime(const S: string): TDateTime;\r\nfunction AnsiPos(const Substr, S: string): Integer;\r\nfunction AnsiUpperCase(const S: string): string;\r\nfunction AnsiLowerCase(const S: string): string;\r\nfunction HInstance: Integer;\r\n{$ENDIF}\r\nfunction CreateNewGUID: string;\r\n\r\nimplementation\r\n\r\nuses\r\n  WEBLib.TMSFNCUtils, WEBLib.TMSFNCPersistence\r\n  {$IFNDEF WEBLIB}\r\n  {$IFDEF SVGSUPPORT}\r\n  ,WEBLib.TMSFNCGraphicsSVGEngine\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,JS\r\n  {$IFDEF ELECTRON}\r\n  ,WEBLib.Electron, libelectron\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  ,AnsiStrings\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  ,PNGImage, JPEG, GifImg\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 24}\r\n  ,Character\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF CMNLIB}\r\n  ,Masks\r\n  {$ENDIF}\r\n  ;\r\n\r\n{$IFDEF SVGSUPPORT}\r\n{$IFDEF VCLLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION >= 33}\r\n\r\n{$IFDEF FNCLIB}\r\n{$R 'TMSFNCSVGImageCollection.res'}\r\n{$ENDIF}\r\n\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\n{$IFDEF WEBLIB}\r\nfunction VarToStr(const S: string): string;\r\nbegin\r\n  Result := S;\r\nend;\r\n\r\nfunction VarToDateTime(const S: string): TDateTime;\r\nbegin\r\n  Result := StrToDateTime(S);\r\nend;\r\n\r\nfunction HInstance: Integer;\r\nbegin\r\n  Result := 0;\r\nend;\r\n\r\nfunction AnsiUpperCase(const S: string): string;\r\nbegin\r\n  Result := UpperCase(S);\r\nend;\r\n\r\nfunction AnsiLowercase(const S: string): string;\r\nbegin\r\n  Result := LowerCase(S);\r\nend;\r\n\r\nfunction AnsiPos(const Substr, S: string): Integer;\r\nbegin\r\n  Result := Pos(SubStr, S);\r\nend;\r\n{$ENDIF}\r\n\r\nfunction CreateNewGUID: string;\r\n{$IFDEF LCLWEBLIB}\r\nvar\r\n  g: TGUID;\r\n{$ENDIF}\r\nbegin\r\n  {$IFNDEF LCLWEBLIB}\r\n  Result := TGuid.NewGuid.ToString;\r\n  {$ENDIF}\r\n  {$IFDEF LCLWEBLIB}\r\n  CreateGUID(g);\r\n  Result := GUIDToString(g);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction CharIsHex(AChar: Char): Boolean;\r\nbegin\r\n  {$IFNDEF LCLWEBLIB}\r\n  {$HINTS OFF}\r\n  {$WARNINGS OFF}\r\n  {$IF COMPILERVERSION > 24}\r\n  Result := AChar.IsNumber or AChar.IsInArray(['a', 'b', 'c', 'd', 'e', 'f']) or AChar.IsInArray(['A', 'B', 'C', 'D', 'E', 'F']);\r\n  {$ELSE}\r\n  Result := (AChar in ['0'..'9']) or (AChar in ['a'..'f']) or (AChar in ['A'..'F']);\r\n  {$IFEND}\r\n  {$WARNINGS ON}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLWEBLIB}\r\n  Result := (AChar in ['0'..'9']) or (AChar in ['a'..'f']) or (AChar in ['A'..'F']);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction CharIsLetter(AChar: Char): Boolean;\r\nbegin\r\n  {$IFNDEF LCLWEBLIB}\r\n  {$HINTS OFF}\r\n  {$WARNINGS OFF}\r\n  {$IF COMPILERVERSION > 24}\r\n  Result := AChar.IsLetter;\r\n  {$ELSE}\r\n  Result := (AChar in ['a'..'z']) or (AChar in ['A'..'Z']);\r\n  {$IFEND}\r\n  {$WARNINGS ON}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLWEBLIB}\r\n  Result := (AChar in ['a'..'z']) or (AChar in ['A'..'Z']);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction CharIsNumber(AChar: Char): Boolean;\r\nbegin\r\n  {$IFNDEF LCLWEBLIB}\r\n  {$HINTS OFF}\r\n  {$WARNINGS OFF}\r\n  {$IF COMPILERVERSION > 24}\r\n  Result := AChar.IsNumber;\r\n  {$ELSE}\r\n  Result := (AChar in ['0'..'9']);\r\n  {$IFEND}\r\n  {$WARNINGS ON}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLWEBLIB}\r\n  Result := (AChar in ['0'..'9']);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction CharIsLetterOrNumber(AChar: Char): Boolean;\r\nbegin\r\n  Result := CharIsLetter(AChar) or CharIsNumber(AChar);\r\nend;\r\n\r\nfunction CharInArray(AChar: Char; ACharArray: array of char): Boolean;\r\nvar\r\n  ch: Char;\r\n  I: Integer;\r\nbegin\r\n  Result := False;\r\n  for I := 0 to Length(ACharArray) - 1 do\r\n  begin\r\n    ch := ACharArray[I];\r\n    if ch = AChar then\r\n    begin\r\n      Result := True;\r\n      Exit;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction IsBitmapEmpty(ABitmap: TTMSFNCBitmapHelperClass): Boolean;\r\nvar\r\n  b: TTMSFNCDrawBitmap;\r\nbegin\r\n  Result := True;\r\n  if Assigned(ABitmap) then\r\n  begin\r\n    b := BitmapToDrawBitmap(ABitmap);\r\n    if Assigned(b) then\r\n    begin\r\n      {$IFDEF CMNLIB}\r\n      Result := b.Empty;\r\n      {$ENDIF}\r\n      {$IFDEF WEBLIB}\r\n      Result := b.Empty;\r\n      {$ENDIF}\r\n      {$IFDEF FMXLIB}\r\n      Result := b.IsEmpty\r\n      {$ENDIF}\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction BitmapToDrawBitmap(ABitmap: TTMSFNCBitmapHelperClass): TTMSFNCDrawBitmap;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(ABitmap) then\r\n  begin\r\n    {$IFDEF CMNLIB}\r\n    Result := ABitmap.Graphic;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    Result := ABitmap;\r\n    {$ENDIF}\r\n    {$IFDEF FMXLIB}\r\n    Result := ABitmap;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\n\r\n{ TTMSFNCBitmapHelper }\r\n\r\nclass function TTMSFNCBitmapHelper.CreateFromResource(AResourceName: String): TTMSFNCBitmap;\r\nbegin\r\n  Result := CreateFromResource(AResourceName, TTMSFNCUtils.GetHInstance);\r\nend;\r\n\r\nclass function TTMSFNCBitmapHelper.CreateFromResource(AResourceName: String; AInstance: NativeUInt): TTMSFNCBitmap;\r\nbegin\r\n  Result := TTMSFNCBitmap.Create;\r\n  Result.LoadFromResource(AResourceName, AInstance);\r\nend;\r\n\r\nclass function TTMSFNCBitmapHelper.CreateFromBase64(ABase64: string): TTMSFNCBitmap;\r\nbegin\r\n  Result := TTMSFNCBitmap.Create;\r\n  Result.LoadFromBase64(ABase64);\r\nend;\r\n\r\nclass function TTMSFNCBitmapHelper.CreateFromSVG(ASVG: string): TTMSFNCBitmap;\r\nbegin\r\n  Result := TTMSFNCBitmap.Create;\r\n  Result.LoadFromSVG(ASVG);\r\nend;\r\n\r\nclass function TTMSFNCBitmapHelper.CreateFromURL(AURL: String): TTMSFNCBitmap;\r\nbegin\r\n  Result := CreateFromURL(AURL, TTMSFNCUtils.GetHInstance);\r\nend;\r\n\r\nclass function TTMSFNCBitmapHelper.CreateFromURL(AURL: String; AInstance: NativeUInt): TTMSFNCBitmap;\r\nbegin\r\n  Result := TTMSFNCBitmap.Create;\r\n  Result.LoadFromURL(AURL, AInstance);\r\nend;\r\n\r\n{$IFDEF CMNLIB}\r\n{$IFDEF VCLLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION < 32}\r\nprocedure TTMSFNCBitmapHelper.SaveToStream(AStream: TStream);\r\nbegin\r\n  if Graphic <> nil then Graphic.SaveToStream(AStream);\r\nend;\r\n\r\nprocedure TTMSFNCBitmapHelper.LoadFromStream(AStream: TStream);\r\nvar\r\n  GraphicClass: TGraphicClass;\r\n  ms: TMemoryStream;\r\n  ng: TGraphic;\r\nbegin\r\n  ms := TMemoryStream.Create;\r\n  try\r\n    AStream.Position := 0;\r\n    ms.LoadFromStream(AStream);\r\n    ms.Position := 0;\r\n    if TTMSFNCUtils.FindGraphicClass(ms.Memory^, ms.Size, GraphicClass) then\r\n    begin\r\n      if GraphicClass <> nil then\r\n      begin\r\n        ng := GraphicClass.Create;\r\n        try\r\n          ng.LoadFromStream(ms);\r\n          Graphic := ng;\r\n        finally\r\n          ng.Free;\r\n        end;\r\n      end;\r\n    end;\r\n  finally\r\n    ms.Free;\r\n  end;\r\nend;\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n\r\nclass function TTMSFNCBitmapHelper.CreateFromFile(AFileName: string): TTMSFNCBitmap;\r\nbegin\r\n  Result := TTMSFNCBitmap.Create;\r\n  Result.LoadFromFile(AFileName);\r\nend;\r\n\r\nclass function TTMSFNCBitmapHelper.CreateFromStream(AStream: TStream): TTMSFNCBitmap;\r\nbegin\r\n  Result := TTMSFNCBitmap.Create;\r\n  Result.LoadFromStream(AStream);\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TTMSFNCBitmapHelper.SaveToBase64: string;\r\nbegin\r\n  Result := TTMSFNCUtils.SaveBitmapToBase64(Self);\r\nend;\r\n\r\nprocedure TTMSFNCBitmapHelper.LoadFromBase64(ABase64: string);\r\nbegin\r\n  TTMSFNCUtils.LoadBitmapFromBase64(ABase64, Self);\r\nend;\r\n\r\nprocedure TTMSFNCBitmapHelper.LoadFromSVG(ASVG: string);\r\nvar\r\n  ms: TStringStream;\r\nbegin\r\n  ms := TStringStream.Create(ASVG);\r\n  try\r\n    if Assigned(ms) then\r\n    begin\r\n      ms.Position := 0;\r\n      (Self as TTMSFNCBitmap).LoadFromStream(ms);\r\n    end;\r\n  finally\r\n    if Assigned(ms) then\r\n      ms.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCBitmapHelper.LoadFromURL(AURL: String);\r\nbegin\r\n  LoadFromURL(AURL, TTMSFNCUtils.GetHInstance);\r\nend;\r\n\r\nprocedure TTMSFNCBitmapHelper.LoadFromURL(AURL: String; AInstance: NativeUInt);\r\nvar\r\n  ms: TMemoryStream;\r\nbegin\r\n  if Pos('HTTP', Uppercase(AURL)) <> 1 then\r\n  begin\r\n    LoadFromFile(AURL);\r\n    Exit;\r\n  end;\r\n\r\n  ms := TTMSFNCUtils.DownloadImage(AURL);\r\n  try\r\n    if Assigned(ms) then\r\n    begin\r\n      ms.Position := 0;\r\n      (Self as TTMSFNCBitmap).LoadFromStream(ms);\r\n    end;\r\n  finally\r\n    if Assigned(ms) then\r\n      ms.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCBitmapHelper.LoadFromResource(AResourceName: String);\r\nbegin\r\n  LoadFromResource(AResourceName, TTMSFNCUtils.GetHInstance);\r\nend;\r\n\r\nprocedure TTMSFNCBitmapHelper.LoadFromResource(AResourceName: String; AInstance: NativeUInt);\r\nvar\r\n  r: TResourceStream;\r\nbegin\r\n  r := nil;\r\n  try\r\n    r := TTMSFNCUtils.GetResourceStream(AResourceName, AInstance);\r\n    if Assigned(r) then\r\n    begin\r\n      if Self is TTMSFNCBitmap then\r\n        (Self as TTMSFNCBitmap).LoadFromStream(r)\r\n      else\r\n        Self.LoadFromStream(r);\r\n    end;\r\n  finally\r\n    if Assigned(r) then\r\n      r.Free;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF USETRECTF}\r\n\r\n{ TRectF }\r\n\r\n{$IFNDEF WEBLIB}\r\nfunction TRectF.GetSize: TSizeF;\r\nbegin\r\n  Result.cx := Width;\r\n  Result.cy := Height;\r\nend;\r\n\r\nprocedure TRectF.SetSize(const Value: TSizeF);\r\nbegin\r\n  Width := Value.cx;\r\n  Height := Value.cy;\r\nend;\r\n\r\nfunction TRectF.GetHeight: Single;\r\nbegin\r\n  Result := Self.Bottom - Self.Top;\r\nend;\r\n\r\nprocedure TRectF.SetHeight(const Value: Single);\r\nbegin\r\n  Self.Bottom := Self.Top + Value;\r\nend;\r\n\r\nfunction TRectF.GetWidth: Single;\r\nbegin\r\n  Result := Self.Right - Self.Left;\r\nend;\r\n\r\nprocedure TRectF.SetWidth(const Value: Single);\r\nbegin\r\n  Self.Right := Self.Left + Value;\r\nend;\r\n\r\nfunction TRectF.CenterPoint: TPointF;\r\nbegin\r\n  Result.X := (Right - Left) / 2.0 + Left;\r\n  Result.Y := (Bottom - Top) / 2.0 + Top;\r\nend;\r\n\r\nfunction TRectF.IntersectsWith(const R: TRectF): Boolean;\r\nbegin\r\n  Result := not ( (Self.BottomRight.X < R.TopLeft.X) or\r\n                  (Self.BottomRight.Y < R.TopLeft.Y) or\r\n                  (R.BottomRight.X < Self.TopLeft.X) or\r\n                  (R.BottomRight.Y < Self.TopLeft.Y) );\r\nend;\r\n\r\nprocedure TRectF.Offset(const DX, DY: Single);\r\nbegin\r\n  TopLeft.Offset(DX, DY);\r\n  BottomRight.Offset(DX, DY);\r\nend;\r\n\r\nprocedure TRectF.Inflate(const DX, DY: Single);\r\nbegin\r\n  TopLeft.Offset(-DX, -DY);\r\n  BottomRight.Offset(DX, DY);\r\nend;\r\n\r\nfunction TRectF.Empty: TRectF;\r\nbegin\r\n  Result.Left := 0;\r\n  Result.Top := 0;\r\n  Result.Right := 0;\r\n  Result.Bottom := 0;\r\nend;\r\n\r\nfunction TRectF.IsEmpty: Boolean;\r\nbegin\r\n  Result := (Right < Left) or SameValue(Right, Left)\r\n         or (Bottom < Top) or SameValue(Bottom, Top);\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFNDEF WEBLIB}\r\nprocedure TPointF.Offset(const ADeltaX, ADeltaY: Single);\r\nbegin\r\n  Self.X := Self.X + ADeltaX;\r\n  Self.Y := Self.Y + ADeltaY;\r\nend;\r\n\r\nfunction TPointF.Length: Single;\r\nbegin\r\n  Result := Sqrt(Sqr(X) + Sqr(Y));\r\nend;\r\n{$ENDIF}\r\n\r\nfunction PtInRectEx(const Rect: TRectF; const P: TPointF): Boolean;\r\nbegin\r\n  Result := (P.X >= Rect.Left) and (P.X < Rect.Right) and (P.Y >= Rect.Top)\r\n    and (P.Y < Rect.Bottom);\r\nend;\r\n\r\nfunction PointF(X, Y: Single): TPointF;\r\nbegin\r\n  Result.X := X;\r\n  Result.Y := Y;\r\nend;\r\n\r\nfunction OffsetRectEx(var R: TRect; DX, DY: Integer): Boolean;\r\nbegin\r\n  {$IFNDEF WEBLIB}\r\n  if @R <> nil then\r\n  {$ENDIF}\r\n  begin\r\n    R.Left := R.Left + DX;\r\n    R.Right := R.Right + DX;\r\n    R.Top := R.Top + DY;\r\n    R.Bottom := R.Bottom + DY;\r\n    Result := True;\r\n  end\r\n  {$IFNDEF WEBLIB}\r\n  else\r\n    Result := False;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction OffsetRectEx(var R: TRectF; DX, DY: Single): Boolean;\r\nbegin\r\n  {$IFNDEF WEBLIB}\r\n  if @R <> nil then\r\n  {$ENDIF}\r\n  begin\r\n    R.Left := R.Left + DX;\r\n    R.Right := R.Right + DX;\r\n    R.Top := R.Top + DY;\r\n    R.Bottom := R.Bottom + DY;\r\n    Result := True;\r\n  end\r\n  {$IFNDEF WEBLIB}\r\n  else\r\n    Result := False;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction RectF(Left, Top, Right, Bottom: Single): TRectF;\r\nbegin\r\n  Result.Left := Left;\r\n  Result.Top := Top;\r\n  Result.Bottom := Bottom;\r\n  Result.Right := Right;\r\nend;\r\n\r\nprocedure InflateRectEx(var R: TRectF; DX, DY: Single);\r\nbegin\r\n  R.Left := R.Left - DX;\r\n  R.Right := R.Right + DX;\r\n  R.Top := R.Top - DY;\r\n  R.Bottom := R.Bottom + DY;\r\nend;\r\n\r\nfunction IntersectRectEx(const Rect1: TRectF; const Rect2: TRectF): Boolean;\r\nbegin\r\n  Result := (Rect1.Left < Rect2.Right)\r\n        and (Rect1.Right > Rect2.Left)\r\n        and (Rect1.Top < Rect2.Bottom)\r\n        and (Rect1.Bottom > Rect2.Top);\r\nend;\r\n\r\nfunction EqualRectEx(const R1, R2: TRect): Boolean;\r\nbegin\r\n  Result := (R1.Left = R2.Left) and (R1.Right = R2.Right) and\r\n    (R1.Top = R2.Top) and (R1.Bottom = R2.Bottom);\r\nend;\r\n\r\nfunction EqualRectEx(const R1, R2: TRectF): Boolean;\r\nbegin\r\n  Result := (R1.Left = R2.Left) and (R1.Right = R2.Right) and\r\n    (R1.Top = R2.Top) and (R1.Bottom = R2.Bottom);\r\nend;\r\n\r\n{$ELSE}\r\n\r\nfunction EqualRectEx(const R1, R2: TRect): Boolean;\r\nbegin\r\n  Result := EqualRect(R1, R2);\r\nend;\r\n\r\nfunction EqualRectEx(const R1, R2: TRectF): Boolean;\r\nbegin\r\n  Result := EqualRect(R1, R2);\r\nend;\r\n\r\nfunction IntersectRectEx(const Rect1: TRectF; const Rect2: TRectF): Boolean;\r\nbegin\r\n  Result := IntersectRect(Rect1, Rect2);\r\nend;\r\n\r\nfunction OffsetRectEx(var R: TRect; DX, DY: Integer): Boolean;\r\nbegin\r\n  Result := OffsetRect(R, DX, DY);\r\nend;\r\n\r\nfunction OffsetRectEx(var R: TRectF; DX, DY: Single): Boolean;\r\nbegin\r\n  Result := OffsetRect(R, DX, DY);\r\nend;\r\n\r\nprocedure InflateRectEx(var R: TRectF; DX, DY: Single);\r\nbegin\r\n  InflateRect(R, DX, DY);\r\nend;\r\n\r\nfunction PtInRectEx(const Rect: TRectF; const P: TPointF): Boolean;\r\nbegin\r\n  Result := PtInRect(Rect, P);\r\nend;\r\n\r\n{$ENDIF}\r\n\r\n{$IFNDEF WEBLIB}\r\nfunction {$IFDEF USETRECTF}TRectF{$ELSE}{$IFNDEF LCLLIB}TRectFHelper{$ELSE}TRectF{$ENDIF}{$ENDIF}.FitInto(const ADesignatedArea: TRectF; out Ratio: Single): TRectF;\r\nbegin\r\n  if (ADesignatedArea.Width <= 0) or (ADesignatedArea.Height <= 0) then\r\n  begin\r\n    Ratio := 1;\r\n    Exit(Self);\r\n  end;\r\n\r\n  if (Self.Width / ADesignatedArea.Width) > (Self.Height / ADesignatedArea.Height) then\r\n    Ratio := Self.Width / ADesignatedArea.Width\r\n  else\r\n    Ratio := Self.Height / ADesignatedArea.Height;\r\n\r\n  Result := RectF(0, 0, Self.Width / Ratio, Self.Height / Ratio);\r\n  RectCenterEx(Result, ADesignatedArea);\r\nend;\r\n\r\nfunction {$IFDEF USETRECTF}TRectF{$ELSE}{$IFNDEF LCLLIB}TRectFHelper{$ELSE}TRectF{$ENDIF}{$ENDIF}.FitInto(const ADesignatedArea: TRectF): TRectF;\r\nvar\r\n  Ratio: Single;\r\nbegin\r\n  Result := FitInto(ADesignatedArea, Ratio);\r\nend;\r\n\r\nfunction {$IFDEF USETRECTF}TRectF{$ELSE}{$IFNDEF LCLLIB}TRectFHelper{$ELSE}TRectF{$ENDIF}{$ENDIF}.CenterAt(const ADesignatedArea: TRectF): TRectF;\r\nbegin\r\n  Result := Self;\r\n  RectCenterEx(Result, ADesignatedArea);\r\nend;\r\n\r\nfunction {$IFDEF USETRECTF}TRectF{$ELSE}{$IFNDEF LCLLIB}TRectFHelper{$ELSE}TRectF{$ENDIF}{$ENDIF}.SnapToPixel(const AScale: Single; const APlaceBetweenPixels: Boolean): TRectF;\r\nvar\r\n  LScale, HalfPixel: Single;\r\nbegin\r\n  if AScale <= 0 then\r\n    LScale := 1\r\n  else\r\n    LScale := AScale;\r\n  Result.Left := System.Trunc(Self.Left * LScale) / LScale;\r\n  Result.Top := System.Trunc(Self.Top * LScale) / LScale;\r\n  Result.Width := System.Round(Self.Width * LScale) / LScale;\r\n  Result.Height := System.Round(Self.Height * LScale) / LScale;\r\n  if APlaceBetweenPixels then\r\n  begin\r\n    HalfPixel := 1 / (2 * LScale);\r\n    Result.Offset(HalfPixel, HalfPixel);\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nfunction RectWidthEx(const Rect: TRect): Integer;\r\nbegin\r\n  Result := Rect.Right - Rect.Left;\r\nend;\r\n\r\nfunction RectHeightEx(const Rect: TRect): Integer;\r\nbegin\r\n  Result := Rect.Bottom - Rect.Top;\r\nend;\r\n\r\nfunction RectWidthEx(const Rect: TRectF): Single;\r\nbegin\r\n  Result := Rect.Right - Rect.Left;\r\nend;\r\n\r\nfunction RectHeightEx(const Rect: TRectF): Single;\r\nbegin\r\n  Result := Rect.Bottom - Rect.Top;\r\nend;\r\n\r\nfunction RectCenterAtEx(const Rect: TRectF; const ADesignatedArea: TRectF): TRectF;\r\nbegin\r\n  Result := Rect;\r\n  RectCenterEx(Result, ADesignatedArea);\r\nend;\r\n\r\nfunction RectSnapToPixelEx(const Rect: TRectF; const AScale: Single; const APlaceBetweenPixels: Boolean): TRectF;\r\nvar\r\n  LScale, HalfPixel: Single;\r\nbegin\r\n  if AScale <= 0 then\r\n    LScale := 1\r\n  else\r\n    LScale := AScale;\r\n  Result.Left := Trunc(Rect.Left * LScale) / LScale;\r\n  Result.Top := Trunc(Rect.Top * LScale) / LScale;\r\n  Result.Right := Result.Left + Round((Rect.Right - Rect.Left) * LScale) / LScale;\r\n  Result.Bottom := Result.Top + Round((Rect.Bottom - Rect.Top) * LScale) / LScale;\r\n  if APlaceBetweenPixels then\r\n  begin\r\n    HalfPixel := 1 / (2 * LScale);\r\n    OffsetRectEx(Result, HalfPixel, HalfPixel);\r\n  end;\r\nend;\r\n\r\nfunction RectFitIntoEx(const Rect: TRectF; const ADesignatedArea: TRectF; out Ratio: Single): TRectF;\r\nbegin\r\n  if (ADesignatedArea.Right - ADesignatedArea.Left <= 0) or (ADesignatedArea.Bottom - ADesignatedArea.Top <= 0) then\r\n  begin\r\n    Ratio := 1;\r\n    Exit(Rect);\r\n  end;\r\n\r\n  if ((Rect.Right - Rect.Left) / (ADesignatedArea.Right - ADesignatedArea.Left)) > ((Rect.Bottom - Rect.Top) / (ADesignatedArea.Bottom - ADesignatedArea.Top)) then\r\n    Ratio := (Rect.Right - Rect.Left) / (ADesignatedArea.Right - ADesignatedArea.Left)\r\n  else\r\n    Ratio := (Rect.Bottom - Rect.Top) / (ADesignatedArea.Bottom - ADesignatedArea.Top);\r\n\r\n  Result := RectF(0, 0, (Rect.Right - Rect.Left) / Ratio, (Rect.Bottom - Rect.Top) / Ratio);\r\n  RectCenterEx(Result, ADesignatedArea);\r\nend;\r\n\r\nfunction RectFitIntoEx(const Rect: TRectF; const ADesignatedArea: TRectF): TRectF;\r\nvar\r\n  Ratio: Single;\r\nbegin\r\n  Result := RectFitIntoEx(Rect, ADesignatedArea, Ratio);\r\nend;\r\n\r\nfunction RectCenterEx(var R: TRect; const B: TRect): TRect;\r\nbegin\r\n  OffsetRectEx(R, -R.Left, -R.Top);\r\n  OffsetRectEx(R, (RectWidthEx(B) - RectWidthEx(R)) div 2, (RectHeightEx(B) - RectHeightEx(R)) div 2);\r\n  OffsetRectEx(R, B.Left, B.Top);\r\n  Result := R;\r\nend;\r\n\r\nfunction RectCenterEx(var R: TRectF; const B: TRectF): TRectF;\r\nbegin\r\n  OffsetRectEx(R, -R.Left, -R.Top);\r\n  OffsetRectEx(R, Round((RectWidthEx(B) - RectWidthEx(R)) / 2), Round((RectHeightEx(B) - RectHeightEx(R)) / 2));\r\n  OffsetRectEx(R, B.Left, B.Top);\r\n  Result := R;\r\nend;\r\n\r\nfunction IntersectRectEx(out Rect: TRectF; const R1, R2: TRectF): Boolean;\r\nvar\r\n  tmpRect: TRectF;\r\nbegin\r\n  tmpRect := R1;\r\n  if R2.Left > R1.Left then tmpRect.Left := R2.Left;\r\n  if R2.Top > R1.Top then tmpRect.Top := R2.Top;\r\n  if R2.Right < R1.Right then tmpRect.Right := R2.Right;\r\n  if R2.Bottom < R1.Bottom then tmpRect.Bottom := R2.Bottom;\r\n  {$IFDEF WEBLIB}\r\n  Result := not RectIsEmpty(tmpRect);\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  Result := not tmpRect.IsEmpty;\r\n  {$ENDIF}\r\n  if not Result then\r\n  begin\r\n    tmpRect.Top := 0.0;\r\n    tmpRect.Bottom := 0.0;\r\n    tmpRect.Left := 0.0;\r\n    tmpRect.Right := 0.0;\r\n  end;\r\n  Rect := tmpRect;\r\nend;\r\n\r\nfunction EmptyRect: TRectF;\r\nbegin\r\n  Result := RectF(0, 0, 0, 0);\r\nend;\r\n\r\nfunction RectIsEmpty(const R: TRectF): Boolean;\r\nbegin\r\n  Result := (R.Right < R.Left) or SameValue(R.Right, R.Left)\r\n         or (R.Bottom < R.Top) or SameValue(R.Bottom, R.Top);\r\nend;\r\n\r\nfunction CompareValueEx(const A, B: Extended; Epsilon: Extended = 0): TTMSFNCValueRelationShip;\r\nbegin\r\n  if SameValue(A, B, Epsilon) then\r\n    Result := EqualsValue\r\n  else if A < B then\r\n    Result := LessThanValue\r\n  else\r\n    Result := GreaterThanValue;\r\nend;\r\n\r\nfunction RectIntersectsWithEx(const ARect: TRectF; const R: TRectF): Boolean;\r\nbegin\r\n  Result := (ARect.Left < R.Right)\r\n        and (ARect.Right > R.Left)\r\n        and (ARect.Top < R.Bottom)\r\n        and (ARect.Bottom > R.Top);\r\nend;\r\n\r\nfunction CenterPointEx(const R: TRectF): TPointF;\r\nbegin\r\n  Result.X := (R.Right - R.Left) / 2.0 + R.Left;\r\n  Result.Y := (R.Bottom - R.Top) / 2.0 + R.Top;\r\nend;\r\n\r\nfunction MakeRectF(Left, Top, Width, Height: Single): TRectF;\r\nbegin\r\n  Result.Left := Left;\r\n  Result.Top := Top;\r\n  {$IFDEF WEBLIB}\r\n  Result.Right := Left + Width;\r\n  Result.Bottom := Top + Height;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  Result.Width := Width;\r\n  Result.Height := Height;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction GetPointLength(const Point: TPointF): Single;\r\nbegin\r\n  Result := Sqrt(Sqr(Point.X) + Sqr(Point.Y));\r\nend;\r\n\r\nfunction ConvertToRect(const Rect: TRect): TRect;\r\nbegin\r\n  Result := Rect;\r\nend;\r\n\r\nfunction ConvertToRect(const Rect: TRectF): TRect;\r\nbegin\r\n  Result.Left := Round(Rect.Left);\r\n  Result.Top := Round(Rect.Top);\r\n  Result.Right := Round(Rect.Right);\r\n  Result.Bottom := Round(Rect.Bottom);\r\nend;\r\n\r\nfunction ConvertToRectF(const Rect: TRectF): TRectF;\r\nbegin\r\n  Result := Rect;\r\nend;\r\n\r\nfunction ConvertToRectF(const Rect: TRect): TRectF;\r\nbegin\r\n  Result.Left := Rect.Left;\r\n  Result.Top := Rect.Top;\r\n  Result.Right := Rect.Right;\r\n  Result.Bottom := Rect.Bottom;\r\nend;\r\n\r\nfunction ConvertToPoint(const Point: TPoint): TPoint;\r\nbegin\r\n  Result := Point;\r\nend;\r\n\r\nfunction ConvertToPoint(const Point: TPointF): TPoint;\r\nbegin\r\n  Result.X := Round(Point.X);\r\n  Result.Y := Round(Point.Y);\r\nend;\r\n\r\nfunction ConvertToPointF(const Point: TPointF): TPointF;\r\nbegin\r\n  Result := Point;\r\nend;\r\n\r\nfunction ConvertToPointF(const Point: TPoint): TPointF;\r\nbegin\r\n  Result.X := Point.X;\r\n  Result.Y := Point.Y;\r\nend;\r\n\r\nfunction ConvertToSize(const Size: TSize): TSize;\r\nbegin\r\n  Result := Size;\r\nend;\r\n\r\nfunction ConvertToSize(const Size: TSizeF): TSize;\r\nbegin\r\n  Result.cx := Round(Size.cx);\r\n  Result.cy := Round(Size.cy);\r\nend;\r\n\r\nfunction ConvertToSizeF(const Size: TSizeF): TSizeF;\r\nbegin\r\n  Result := Size;\r\nend;\r\n\r\nfunction ConvertToSizeF(const Size: TSize): TSizeF;\r\nbegin\r\n  Result.cx := Size.cx;\r\n  Result.cy := Size.cy;\r\nend;\r\n\r\n{ TTMSFNCMargins }\r\n\r\nprocedure TTMSFNCMargins.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCMargins then\r\n  begin\r\n    FLeft := (Source as TTMSFNCMargins).Left;\r\n    FTop := (Source as TTMSFNCMargins).Top;\r\n    FRight := (Source as TTMSFNCMargins).Right;\r\n    FBottom := (Source as TTMSFNCMargins).Bottom;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMargins.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nconstructor TTMSFNCMargins.Create(const ARect: TRectF);\r\nbegin\r\n  FLeft := ARect.Left;\r\n  FBottom := ARect.Bottom;\r\n  FRight := ARect.Right;\r\n  FTop := ARect.Top;\r\nend;\r\n\r\nconstructor TTMSFNCMargins.Create;\r\nbegin\r\n  FLeft := 0;\r\n  FBottom := 0;\r\n  FRight := 0;\r\n  FTop := 0;\r\nend;\r\n\r\nfunction TTMSFNCMargins.Empty: Boolean;\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  r := RectF(Left, Top, Right, Bottom);\r\n  {$IFDEF WEBLIB}\r\n  Result := RectIsEmpty(R);\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  Result := R.IsEmpty;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCMargins.SetBottom(const Value: Single);\r\nbegin\r\n  if FBottom <> Value then\r\n  begin\r\n    FBottom := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMargins.SetLeft(const Value: Single);\r\nbegin\r\n  if FLeft <> Value then\r\n  begin\r\n    FLeft := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMargins.SetRight(const Value: Single);\r\nbegin\r\n  if FRight <> Value then\r\n  begin\r\n    FRight := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMargins.SetTop(const Value: Single);\r\nbegin\r\n  if FTop <> Value then\r\n  begin\r\n    FTop := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCMargins.IsLeftStored: Boolean;\r\nbegin\r\n  Result := Left <> 0;\r\nend;\r\n\r\nfunction TTMSFNCMargins.IsTopStored: Boolean;\r\nbegin\r\n  Result := Top <> 0;\r\nend;\r\n\r\nfunction TTMSFNCMargins.PaddingRect(const R: TRectF): TRectF;\r\nbegin\r\n  Result := RectF(R.Left + FLeft, R.Top + FTop, R.Right - FRight, R.Bottom - FBottom);\r\nend;\r\n\r\nfunction TTMSFNCMargins.Rect: TRectF;\r\nbegin\r\n  Result := RectF(Left, Top, Right, Bottom);\r\nend;\r\n\r\nfunction TTMSFNCMargins.IsBottomStored: Boolean;\r\nbegin\r\n  Result := Bottom <> 0;\r\nend;\r\n\r\nfunction TTMSFNCMargins.IsRightStored: Boolean;\r\nbegin\r\n  Result := Right <> 0;\r\nend;\r\n\r\n{ TTMSFNCPoint }\r\n\r\nprocedure TTMSFNCPoint.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCPoint then\r\n  begin\r\n    FX := (Source as TTMSFNCPoint).X;\r\n    FY := (Source as TTMSFNCPoint).Y;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCPoint.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nconstructor TTMSFNCPoint.Create(const APoint: TPointF);\r\nbegin\r\n  FX := APoint.X;\r\n  FY := APoint.Y;\r\nend;\r\n\r\nconstructor TTMSFNCPoint.Create;\r\nbegin\r\n  FX := 0;\r\n  FY := 0;\r\nend;\r\n\r\nprocedure TTMSFNCPoint.SetX(const Value: Single);\r\nbegin\r\n  if FX <> Value then\r\n  begin\r\n    FX := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCPoint.SetY(const Value: Single);\r\nbegin\r\n  if FY <> Value then\r\n  begin\r\n    FY := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCPoint.IsXStored: Boolean;\r\nbegin\r\n  Result := X <> 0;\r\nend;\r\n\r\nfunction TTMSFNCPoint.IsYStored: Boolean;\r\nbegin\r\n  Result := Y <> 0;\r\nend;\r\n\r\n{$IFNDEF LIMITEDGRAPHICSMODE}\r\n\r\n{ TTMSFNCScaledBitmap }\r\n\r\nprocedure TTMSFNCScaledBitmap.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCScaledBitmap then\r\n  begin\r\n    FBitmap.Assign((Source as TTMSFNCScaledBitmap).Bitmap);\r\n    FBitmapName := (Source as TTMSFNCScaledBitmap).BitmapName;\r\n    FScale := (Source as TTMSFNCScaledBitmap).Scale;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCScaledBitmap.BitmapChanged(Sender: TObject);\r\nbegin\r\n  Changed(False);\r\nend;\r\n\r\nconstructor TTMSFNCScaledBitmap.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  FBitmap := TTMSFNCBitmap.Create;\r\n  FBitmap.OnChange := @BitmapChanged;\r\n  FScale := 1.0;\r\nend;\r\n\r\ndestructor TTMSFNCScaledBitmap.Destroy;\r\nbegin\r\n  FBitmap.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCScaledBitmap.IsScaleStored: Boolean;\r\nbegin\r\n  Result := Scale <> 1.0;\r\nend;\r\n\r\nprocedure TTMSFNCScaledBitmap.SetBitmap(const Value: TTMSFNCBitmap);\r\nbegin\r\n  if FBitmap <> Value then\r\n  begin\r\n    FBitmap.Assign(Value);\r\n    Changed(False);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCScaledBitmap.SetBitmapName(const Value: string);\r\nbegin\r\n  if FBitmapName <> Value then\r\n  begin\r\n    FBitmapName := Value;\r\n    Changed(False);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCScaledBitmap.SetScale(const Value: Single);\r\nbegin\r\n  if FScale <> Value then\r\n  begin\r\n    FScale := Value;\r\n    Changed(False);\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCScaledBitmaps }\r\n\r\nfunction TTMSFNCScaledBitmaps.Add(Scale: Single = 1.0): TTMSFNCScaledBitmap;\r\nbegin\r\n  Result := TTMSFNCScaledBitmap(inherited Add);\r\n  Result.Scale := Scale;\r\nend;\r\n\r\nfunction TTMSFNCScaledBitmaps.AddBitmap(Bitmap: TTMSFNCBitmap; Scale: Single = 1.0): TTMSFNCScaledBitmap;\r\nbegin\r\n  Result := Add(Scale);\r\n  Result.Bitmap.Assign(Bitmap);\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\nfunction TTMSFNCScaledBitmaps.AddBitmapFromFile(FileName: string;\r\n  Scale: Single): TTMSFNCScaledBitmap;\r\nbegin\r\n  Result := Add(Scale);\r\n  Result.Bitmap.LoadFromFile(FileName);\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TTMSFNCScaledBitmaps.AddBitmapFromResource(ResourceName: String; Scale: Single = 1.0): TTMSFNCScaledBitmap;\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  Result := AddBitmapFromResource(ResourceName, 0, Scale);\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  Result := AddBitmapFromResource(ResourceName, HInstance, Scale);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCScaledBitmaps.AddBitmapFromResource(ResourceName: String; AInstance: NativeUInt; Scale: Single = 1.0): TTMSFNCScaledBitmap;\r\nbegin\r\n  Result := Add(Scale);\r\n  Result.Bitmap.LoadFromResource(ResourceName, AInstance);\r\nend;\r\n\r\nfunction TTMSFNCScaledBitmaps.AddBitmapName(BitmapName: string; Scale: Single = 1.0): TTMSFNCScaledBitmap;\r\nbegin\r\n  Result := Add(Scale);\r\n  Result.BitmapName := BitmapName;\r\nend;\r\n\r\nfunction TTMSFNCScaledBitmaps.AddDrawBitmap(Bitmap: TTMSFNCDrawBitmap;\r\n  Scale: Single): TTMSFNCScaledBitmap;\r\nbegin\r\n  Result := Add(Scale);\r\n  Result.Bitmap.Assign(Bitmap);\r\nend;\r\n\r\nconstructor TTMSFNCScaledBitmaps.Create(AOwner: TPersistent);\r\nbegin\r\n  inherited Create(AOwner, TTMSFNCScaledBitmap);\r\nend;\r\n\r\nfunction TTMSFNCScaledBitmaps.GetBitmap(Scale: Single): TTMSFNCBitmap;\r\nbegin\r\n  Result := GetBitmapByScale(Scale);\r\nend;\r\n\r\nfunction TTMSFNCScaledBitmaps.GetBitmapByScale(\r\n  Scale: Single): TTMSFNCBitmap;\r\nvar\r\n  it: TTMSFNCScaledBitmap;\r\nbegin\r\n  Result := nil;\r\n  it := GetItemByScale(Scale);\r\n  if Assigned(it) then\r\n    Result := it.Bitmap;\r\nend;\r\n\r\nfunction TTMSFNCScaledBitmaps.GetItemByScale(Scale: Single): TTMSFNCScaledBitmap;\r\nvar\r\n  I: Integer;\r\n  cl: TTMSFNCScaledBitmap;\r\n  it: TTMSFNCScaledBitmap;\r\n  mx: Single;\r\nbegin\r\n  Result := nil;\r\n  cl := nil;\r\n  mx := 0;\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    it := Items[I];\r\n    if it.Scale = Scale then\r\n    begin\r\n      Result := it;\r\n      Break;\r\n    end\r\n    else if (it.Scale <> Scale) and (it.Scale > mx) then\r\n    begin\r\n      cl := it;\r\n      mx := it.Scale;\r\n    end;\r\n  end;\r\n\r\n  if Result = nil then\r\n    Result := cl;\r\nend;\r\n\r\nfunction TTMSFNCScaledBitmaps.GetItems(Index: Integer): TTMSFNCScaledBitmap;\r\nbegin\r\n  Result := TTMSFNCScaledBitmap(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCScaledBitmaps.Insert(Index: Integer;\r\n  Scale: Single): TTMSFNCScaledBitmap;\r\nbegin\r\n  Result := TTMSFNCScaledBitmap(inherited Insert(Index));\r\n  Result.Scale := Scale;\r\nend;\r\n\r\nfunction TTMSFNCScaledBitmaps.Insert(Index: integer): TTMSFNCScaledBitmap;\r\nbegin\r\n  Result := TTMSFNCScaledBitmap(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCScaledBitmaps.SetBitmap(Scale: Single;\r\n  const Value: TTMSFNCBitmap);\r\nvar\r\n  b: TTMSFNCScaledBitmap;\r\nbegin\r\n  b := GetItemByScale(Scale);\r\n  if not Assigned(b) then\r\n    b := Add(Scale);\r\n\r\n  b.Bitmap.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScaledBitmaps.SetItems(Index: Integer; const Value: TTMSFNCScaledBitmap);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nprocedure TTMSFNCScaledBitmaps.Update(Item: TCollectionItem);\r\nbegin\r\n  inherited;\r\n  if Assigned(FOnChange) then\r\n    FOnChange(Self);\r\nend;\r\n\r\n{$ENDIF}\r\n\r\n{$IFDEF WEBLIB}\r\nfunction TTMSFNCMemoryStream.GetBytes: TBytes;\r\nvar\r\n  p: Int64;\r\n  b: TBytes;\r\nbegin\r\n  p := Position;\r\n  Position := 0;\r\n  SetLength(b, Size);\r\n  Read(b, 0, Length(b));\r\n  Result := b;\r\n  Position := p;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TTMSFNCMemoryStream.OpenFile(FileType: string);\r\nvar\r\n  b: TBytes;\r\n  s: string;\r\n  f: string;\r\nbegin\r\n  {$IFDEF FNCLIB}\r\n  f := 'tmp.' + TTMSFNCUtils.GetFileExtension(FileType);\r\n  {$ENDIF}\r\n\r\n  {$IFDEF ELECTRON}\r\n  if isElectron then\r\n  begin\r\n    s := ElectronPath.GetTemp + PathDelim + f;\r\n    SaveToFile(s);\r\n    ElectronShell.OpenItem(s);\r\n  end\r\n  else\r\n  {$ENDIF}\r\n  begin\r\n    b := Bytes;\r\n    s := FileType;\r\n    asm\r\n      var file = new Blob([new Uint8Array(b)], {type: s});\r\n      var fileURL = window.URL.createObjectURL(file);\r\n      if (window.navigator && window.navigator.msSaveOrOpenBlob) {\r\n        window.navigator.msSaveOrOpenBlob(file, f);\r\n        return;\r\n      }\r\n      window.open(fileURL);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMemoryStream.SaveToFile(FileName: string);\r\nvar\r\n  s: string;\r\n  b: TBytes;\r\n  {$IFDEF ELECTRON}\r\n  nfs: TNodeFS;\r\n  {$ENDIF}\r\nbegin\r\n  s := FileName;\r\n  b := Bytes;\r\n  {$IFDEF ELECTRON}\r\n  nfs := FS;\r\n  {$ENDIF}\r\n  asm\r\n    var userAgent = navigator.userAgent.toLowerCase();\r\n    if (userAgent.indexOf('electron/') > -1) {\r\n      var arr = new Uint8Array(b);\r\n      nfs.writeFileSync(s, arr);\r\n    } else {\r\n      var newBlob = new Blob([new Uint8Array(b)], {type: \"octet/stream\"})\r\n\r\n      if (window.navigator && window.navigator.msSaveOrOpenBlob) {\r\n        window.navigator.msSaveOrOpenBlob(newBlob, s);\r\n        return;\r\n      }\r\n\r\n      const data = window.URL.createObjectURL(newBlob);\r\n      var link = document.createElement('a');\r\n      link.href = data;\r\n      link.download = s;\r\n      document.body.appendChild(link);\r\n      link.click();\r\n      setTimeout(function(){\r\n       document.body.removeChild(link);\r\n        window.URL.revokeObjectURL(data);\r\n      }, 100);\r\n    }\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n{$ENDIF}\r\n\r\n{$IFDEF USEOWNEDCOLLECTION}\r\n\r\n{ TTMSFNCOwnedCollection<T>.TEnumerator }\r\n\r\nconstructor TTMSFNCOwnedCollection{$IFNDEF LCLLIB}<T>{$ENDIF}.TEnumerator.Create(ACol: TTMSFNCCollection);\r\nbegin\r\n  inherited Create;\r\n  FIndex := -1;\r\n  FCol := ACol;\r\nend;\r\n\r\nfunction TTMSFNCOwnedCollection{$IFNDEF LCLLIB}<T>{$ENDIF}.TEnumerator.GetCurrent: T;\r\nbegin\r\n  Result := FCol.GetItem(FIndex);\r\nend;\r\n\r\nfunction TTMSFNCOwnedCollection{$IFNDEF LCLLIB}<T>{$ENDIF}.TEnumerator.MoveNext: Boolean;\r\nbegin\r\n  Result := FIndex < FCol.Count - 1;\r\n  if Result then\r\n    Inc(FIndex);\r\nend;\r\n\r\n{ TTMSFNCOwnedCollection<T> }\r\n\r\nfunction TTMSFNCOwnedCollection{$IFNDEF LCLLIB}<T>{$ENDIF}.GetEnumerator: TEnumerator;\r\nbegin\r\n  Result := TEnumerator.Create(Self);\r\nend;\r\n\r\nfunction TTMSFNCOwnedCollection{$IFNDEF LCLLIB}<T>{$ENDIF}.GetItem(AIndex: Integer): T;\r\nbegin\r\n  Result := Items[AIndex] as T;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF WEBLIB}\r\nconstructor TTMSFNCBitmap.CreateFromStream(const AStream: TStream);\r\nbegin\r\n  Create;\r\n  LoadFromStream(AStream);\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF FMXLIB}\r\nconstructor TTMSFNCBitmap.CreateFromStream(const AStream: TStream);\r\nbegin\r\n  Create;\r\n  LoadFromStream(AStream);\r\nend;\r\n\r\nconstructor TTMSFNCBitmap.CreateFromFile(const AFileName: string);\r\nbegin\r\n  Create;\r\n  LoadFromFile(AFileName);\r\nend;\r\n\r\ndestructor TTMSFNCBitmap.Destroy;\r\nbegin\r\n  FreeAndNil(FSVG);\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCBitmap.Assign(Source: TPersistent);\r\nvar\r\n  ms: TMemoryStream;\r\nbegin\r\n  inherited Assign(Source);\r\n  if (Source is TTMSFNCBitmap) and Assigned((Source as TTMSFNCBitmap).SVG) then\r\n  begin\r\n    ms := TMemoryStream.Create;\r\n    try\r\n      {$IFDEF SVGSUPPORT}\r\n      TTMSFNCGraphicsSVGImport((Source as TTMSFNCBitmap).SVG).SaveToStream(ms);\r\n      {$ENDIF}\r\n      ms.Position := 0;\r\n      LoadFromStream(ms);\r\n    finally\r\n      ms.Free;\r\n    end;\r\n  end\r\n  else if (Source = nil) or ((Source is TTMSFNCBitmap) and (Source as TTMSFNCBitmap).IsEmpty) then\r\n    FreeAndNil(FSVG);\r\nend;\r\n\r\nprocedure TTMSFNCBitmap.DefineProperties(Filer: TFiler);\r\n  function DoWrite: Boolean;\r\n  begin\r\n    Result := False;\r\n    {$IFDEF SVGSUPPORT}\r\n    if Assigned(FSVG) then\r\n      Result := TTMSFNCGraphicsSVGImport(FSVG).HasElements;\r\n    {$ENDIF}\r\n  end;\r\n\r\nbegin\r\n  inherited;\r\n  Filer.DefineBinaryProperty('SVG', ReadSVG, WriteSVG, DoWrite);\r\nend;\r\n\r\nprocedure TTMSFNCBitmap.ReadSVG(Stream: TStream);\r\nbegin\r\n  LoadFromStream(Stream);\r\nend;\r\n\r\nprocedure TTMSFNCBitmap.WriteSVG(Stream: TStream);\r\nbegin\r\n  SaveToStream(Stream);\r\nend;\r\n\r\nprocedure TTMSFNCBitmap.SaveToFile(const AFileName: string);\r\nvar\r\n  Stream: TFileStream;\r\nbegin\r\n  Stream := TFileStream.Create(AFileName, fmCreate);\r\n  try\r\n    SaveToStream(Stream);\r\n  finally\r\n    Stream.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCBitmap.LoadFromFile(const AFileName: string);\r\nvar\r\n  Stream: TFileStream;\r\nbegin\r\n  Stream := TFileStream.Create(AFileName, fmOpenRead);\r\n  try\r\n    LoadFromStream(Stream);\r\n  finally\r\n    Stream.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCBitmap.Draw(ACanvas: TCanvas; const Rect: TRectF);\r\nbegin\r\n  if not HasSVG then\r\n  begin\r\n    ACanvas.DrawBitmap(Self, RectF(0, 0, Width, Height), Rect, 1);\r\n    Exit;\r\n  end;\r\n\r\n  {$IFDEF SVGSUPPORT}\r\n  if Assigned(SVG) then\r\n    TTMSFNCGraphicsSVGImport(SVG).Draw(ACanvas, Rect{$IFDEF CMNLIB}, True{$ENDIF});\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCBitmap.HasSVG: Boolean;\r\nbegin\r\n  Result := Assigned(SVG) {$IFDEF SVGSUPPORT} and TTMSFNCGraphicsSVGImport(SVG).HasElements{$ENDIF};\r\nend;\r\n\r\nprocedure TTMSFNCBitmap.SaveToStream(Stream: TStream);\r\nbegin\r\n  {$IFDEF SVGSUPPORT}\r\n  if Assigned(FSVG) then\r\n    TTMSFNCGraphicsSVGImport(FSVG).SaveToStream(Stream)\r\n  else\r\n  {$ENDIF}\r\n    inherited SaveToStream(Stream);\r\nend;\r\n\r\nfunction TTMSFNCBitmap.SaveToBase64: string;\r\nbegin\r\n  Result := TTMSFNCUtils.SaveBitmapToBase64(Self);\r\nend;\r\n\r\nprocedure TTMSFNCBitmap.LoadFromBase64(const ABase64: string);\r\nbegin\r\n  TTMSFNCUtils.LoadBitmapFromBase64(ABase64, Self);\r\nend;\r\n\r\nprocedure TTMSFNCBitmap.LoadFromSVG(const ASVG: string);\r\nbegin\r\n  {$IFDEF SVGSUPPORT}\r\n  if not Assigned(FSVG) then\r\n    FSVG := TTMSFNCGraphicsSVGImport.Create;\r\n\r\n  TTMSFNCGraphicsSVGImport(FSVG).LoadFromText(ASVG);\r\n  inherited Assign(TTMSFNCGraphicsSVGImport(FSVG).GenerateBitmap);\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCBitmap.LoadFromStream(Stream: TStream);\r\nvar\r\n  s: string;\r\nbegin\r\n  s := TTMSFNCUtils.GetImageType(Stream, False);\r\n  if s <> '' then\r\n  begin\r\n    FreeAndNil(FSVG);\r\n    inherited LoadFromStream(Stream);\r\n  end\r\n  else\r\n  begin\r\n    {$IFDEF SVGSUPPORT}\r\n    if not Assigned(FSVG) then\r\n      FSVG := TTMSFNCGraphicsSVGImport.Create;\r\n\r\n    TTMSFNCGraphicsSVGImport(FSVG).LoadFromStream(Stream);\r\n    inherited Assign(TTMSFNCGraphicsSVGImport(FSVG).GenerateBitmap);\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF SUPPORTSHELPERS}\r\n{$IFDEF JSONSUPPORT}\r\n\r\n{ TTMSFNCJSONValueHelper }\r\n\r\nfunction TTMSFNCJSONValueHelper.GetProperties(AName: string): TJSONValue;\r\nbegin\r\n  Result := TTMSFNCUtils.GetJSONValue(Self, AName);\r\nend;\r\n\r\nfunction TTMSFNCJSONValueHelper.GetAsString: string;\r\nbegin\r\n  Result := '';\r\n  if Assigned(Self) then\r\n    Result := Self.Value;\r\nend;\r\n\r\nfunction TTMSFNCJSONValueHelper.Find(const APath: string): TJSONValue;\r\nbegin\r\n  Result := TTMSFNCUtils.FindJSONValue(Self, APath);\r\nend;\r\n\r\nfunction TTMSFNCJSONValueHelper.GetAsBoolean: Boolean;\r\nbegin\r\n  Result := TTMSFNCUtils.GetJSONValueAsBoolean(Self);\r\nend;\r\n\r\nfunction TTMSFNCJSONValueHelper.GetAsInteger: Integer;\r\nbegin\r\n  Result := TTMSFNCUtils.GetJSONValueAsInteger(Self);\r\nend;\r\n\r\nfunction TTMSFNCJSONValueHelper.GetAsDouble: Double;\r\nbegin\r\n  Result := TTMSFNCUtils.GetJSONValueAsDouble(Self);\r\nend;\r\n\r\nfunction TTMSFNCJSONValueHelper.GetAsArray: TJSONArray;\r\nbegin\r\n  Result := nil;\r\n  if Self is TJSONArray then\r\n    Result := (Self as TJSONArray);\r\nend;\r\n\r\n{ TTMSFNCJSONArrayHelper }\r\n\r\nfunction TTMSFNCJSONArrayHelper.GetLength: Integer;\r\nbegin\r\n  Result := TTMSFNCUtils.GetJSONArraySize(Self);\r\nend;\r\n\r\nfunction TTMSFNCJSONArrayHelper.GetValues(AIndex: Integer): TJSONValue;\r\nbegin\r\n  Result := TTMSFNCUtils.GetJSONArrayItem(Self, AIndex);\r\nend;\r\n{$ENDIF}\r\n\r\n{ TTMSFNCObjectHelper }\r\n\r\nprocedure TTMSFNCObjectHelper.FromJSON(const Value: string);\r\nvar\r\n  s: TStringStream;\r\n  cs: string;\r\n  obj: TObject;\r\nbegin\r\n  s := TStringStream.Create(Value{$IFDEF WEBLIB}, TEncoding.Ansi{$ENDIF});\r\n  try\r\n    obj := TTMSFNCPersistence.IOReference;\r\n    cs := TTMSFNCPersistence.ClassTypeVariable;\r\n    TTMSFNCPersistence.ClassTypeVariable := '';\r\n    TTMSFNCPersistence.IOReference := Self;\r\n    TTMSFNCPersistence.LoadSettingsFromStream(Self, s);\r\n    TTMSFNCPersistence.ClassTypeVariable := cs;\r\n    TTMSFNCPersistence.IOReference := obj;\r\n  finally\r\n    s.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCObjectHelper.Log;\r\nbegin\r\n  TTMSFNCUtils.Log(JSON);\r\nend;\r\n\r\nprocedure TTMSFNCObjectHelper.LoadFromJSONStream(const AStream: TStream);\r\nbegin\r\n  TTMSFNCPersistence.LoadSettingsFromStream(Self, AStream);\r\nend;\r\n\r\nprocedure TTMSFNCObjectHelper.SaveToJSONStream(const AStream: TStream);\r\nbegin\r\n  TTMSFNCPersistence.SaveSettingsToStream(Self, AStream);\r\nend;\r\n\r\n{$IFDEF JSONSUPPORT}\r\nfunction TTMSFNCObjectHelper.ToJSONValue: TJSONValue;\r\nbegin\r\n  Result := TTMSFNCUtils.ParseJSON(JSON);\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TTMSFNCObjectHelper.ToJSON(\r\n  AExcludedProperties: TTMSFNCObjectExcludePropertyListArray): string;\r\nvar\r\n  s: TStringStream;\r\n  p: TTMSFNCPersistence;\r\n  arr: TTMSFNCExcludePropertyListArray;\r\n  I: Integer;\r\n  ep: TTMSFNCExcludePropertyListArray;\r\nbegin\r\n  SetLength(arr, Length(AExcludedProperties));\r\n  for I := 0 to Length(AExcludedProperties) - 1 do\r\n    arr[I] := AExcludedProperties[I];\r\n\r\n  s := TStringStream.Create(''{$IFDEF WEBLIB}, TEncoding.Ansi{$ENDIF});\r\n\r\n  p := TTMSFNCPersistence.Create;\r\n  try\r\n    ep := p.ExcludeProperties;\r\n    p.ExcludeProperties := arr;\r\n    p.SaveSettingsToStream(Self, s);\r\n    p.ExcludeProperties := ep;\r\n    Result := s.DataString;\r\n  finally\r\n    p.Free;\r\n    s.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCObjectHelper.LoadFromJSONFile(const AFileName: string);\r\nbegin\r\n  TTMSFNCPersistence.LoadSettingsFromFile(Self, AFileName);\r\nend;\r\n\r\nprocedure TTMSFNCObjectHelper.SaveToJSONFile(const AFileName: string);\r\nbegin\r\n  TTMSFNCPersistence.SaveSettingsToFile(Self, AFileName);\r\nend;\r\n\r\nfunction TTMSFNCObjectHelper.ToJSON: string;\r\nvar\r\n  s: TStringStream;\r\nbegin\r\n  s := TStringStream.Create(''{$IFDEF WEBLIB}, TEncoding.Ansi{$ENDIF});\r\n  try\r\n    TTMSFNCPersistence.SaveSettingsToStream(Self, s);\r\n    Result := s.DataString;\r\n  finally\r\n    s.Free;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\n{ TTMSFNCSVGImport }\r\n\r\nconstructor TTMSFNCSVGImport.Create;\r\nbegin\r\n  FRotationAngle := 0;\r\n  FCustomOpacity := -1;\r\n  {$IFDEF FMXLIB}\r\n  FCustomFillColor := $00000000;\r\n  FCustomStrokeColor := $00000000;\r\n  FTintColor := $00000000;\r\n  {$ENDIF}\r\n  {$IFNDEF FMXLIB}\r\n  FCustomFillColor := -1;\r\n  FCustomStrokeColor := -1;\r\n  FTintColor := -1;\r\n  {$ENDIF}\r\nend;\r\n\r\n{$IFDEF CMNLIB}\r\n\r\n{ TTMSFNCBitmap }\r\n\r\n{$IFDEF SVGSUPPORT}\r\nfunction TTMSFNCBitmap.GetSVG: TTMSFNCSVGImport;\r\nbegin\r\n  Result := nil;\r\n  if HasSVG then\r\n    Result := (Graphic as TTMSFNCSVGBitmap).SVG;\r\nend;\r\n\r\nfunction TTMSFNCBitmap.HasSVG: Boolean;\r\nbegin\r\n  Result := Assigned(Graphic) and (Graphic is TTMSFNCSVGBitmap) and (Graphic as TTMSFNCSVGBitmap).HasSVG;\r\nend;\r\n{$ENDIF}\r\n\r\n{ TTMSFNCSVGBitmap }\r\n\r\n{$IFDEF LCLLIB}\r\nclass function TTMSFNCSVGBitmap.IsStreamFormatSupported(Stream: TStream): Boolean;\r\nbegin\r\n  Result := TTMSFNCUtils.GetImageType(Stream, False) = '';\r\nend;\r\n{$ENDIF}     \r\n\r\n{$IFDEF VCLLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION >= 32}\r\nclass function TTMSFNCSVGBitmap.CanLoadFromStream(Stream: TStream): Boolean;\r\nbegin\r\n  Result := TTMSFNCUtils.GetImageType(Stream, False) = '';\r\nend;\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n\r\nconstructor TTMSFNCSVGBitmap.Create;\r\nbegin\r\n  inherited;\r\n  {$IFDEF SVGSUPPORT}\r\n  FSVG := TTMSFNCGraphicsSVGImport.Create;\r\n  {$ENDIF}\r\n  FStream := TMemoryStream.Create;\r\nend;\r\n\r\ndestructor TTMSFNCSVGBitmap.Destroy;\r\nbegin\r\n  FreeAndNil(FSVG);\r\n  FreeAndNil(FStream);\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCSVGBitmap.Clear;\r\nbegin\r\n  if Assigned(FSVG) then\r\n    FSVG.Clear;\r\n\r\n  FFileName := '';\r\n  Changed(Self);\r\nend;\r\n\r\nprocedure TTMSFNCSVGBitmap.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTMSFNCSVGBitmap) then\r\n  begin\r\n    try\r\n      FSVG.Clear;\r\n      FStream.Clear;\r\n      FStream.LoadFromStream(TTMSFNCSVGBitmap(Source).FStream);\r\n      {$IFDEF SVGSUPPORT}\r\n      TTMSFNCGraphicsSVGImport(FSVG).LoadFromStream(FStream);\r\n      {$ENDIF}\r\n    except\r\n    end;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCSVGBitmap.HasSVG: Boolean;\r\nbegin\r\n  Result := Assigned(SVG){$IFDEF SVGSUPPORT} and TTMSFNCGraphicsSVGImport(SVG).HasElements{$ENDIF};\r\nend;\r\n\r\nprocedure TTMSFNCSVGBitmap.AssignTo(Dest: TPersistent);\r\nbegin\r\n  if Dest is TTMSFNCSVGBitmap then\r\n    TTMSFNCSVGBitmap(Dest).Assign(Self);\r\nend;\r\n\r\nprocedure TTMSFNCSVGBitmap.SetFileName(const Value: TFileName);\r\nbegin\r\n  if Value = FFileName then\r\n    Exit;\r\n\r\n  LoadFromFile(Value);\r\nend;\r\n\r\nprocedure TTMSFNCSVGBitmap.ReadData(Stream: TStream);\r\nvar\r\n  Size: LongInt;\r\nbegin\r\n  Stream.Read(Size, SizeOf(Size));\r\n  FStream.Clear;\r\n  if Stream.Size > 0 then\r\n  begin\r\n    FStream.CopyFrom(Stream, Size);\r\n    {$IFDEF SVGSUPPORT}\r\n    TTMSFNCGraphicsSVGImport(SVG).LoadFromStream(FStream);\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCSVGBitmap.WriteData(Stream: TStream);\r\nvar\r\n  Size: LongInt;\r\nbegin\r\n  Size := FStream.Size;\r\n  Stream.Write(Size, SizeOf(Size));\r\n  FStream.Position := 0;\r\n  FStream.SaveToStream(Stream);\r\nend;\r\n\r\nprocedure TTMSFNCSVGBitmap.Draw(ACanvas: TCanvas; const Rect: TRect);\r\n  {$IFDEF SVGSUPPORT}\r\nvar\r\n  r: TRectF;\r\n  si: TTMSFNCGraphicsSVGImport;\r\n  {$ENDIF}\r\nbegin\r\n  if not Assigned(FSVG) then\r\n    Exit;\r\n\r\n  if Empty then\r\n    Exit;\r\n\r\n  {$IFDEF SVGSUPPORT}\r\n  si := TTMSFNCGraphicsSVGImport(FSVG);\r\n  r := ConvertToRectF(Rect);\r\n  si.Draw(ACanvas, r{$IFDEF CMNLIB}, True{$ENDIF});\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCSVGBitmap.GetEmpty: Boolean;\r\nbegin\r\n  Result := True;\r\n  {$IFDEF SVGSUPPORT}\r\n  if Assigned(FSVG) then\r\n    Result := not TTMSFNCGraphicsSVGImport(FSVG).HasElements;\r\n  {$ENDIF}\r\nend;\r\n\r\n{$IFDEF LCLLIB}\r\nprocedure TTMSFNCSVGBitmap.SetTransparent(Value: Boolean);\r\nbegin\r\nend;\r\n\r\nfunction TTMSFNCSVGBitmap.GetTransparent: Boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n\r\nprocedure TTMSFNCSVGBitmap.SetWidth(Value: Integer);\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCSVGBitmap.SetHeight(Value: Integer);\r\nbegin\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TTMSFNCSVGBitmap.GetWidth: Integer;\r\nbegin\r\n  Result := 0;\r\n  {$IFDEF SVGSUPPORT}\r\n  if Assigned(FSVG) then\r\n    Result := Round((TTMSFNCGraphicsSVGImport(FSVG).ViewRect.Right - TTMSFNCGraphicsSVGImport(FSVG).ViewRect.Left) * TTMSFNCUtils.GetDPIScale);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCSVGBitmap.GetHeight: Integer;\r\nbegin\r\n  Result := 0;\r\n  {$IFDEF SVGSUPPORT}\r\n  if Assigned(FSVG) then\r\n    Result := Round((TTMSFNCGraphicsSVGImport(FSVG).ViewRect.Bottom - TTMSFNCGraphicsSVGImport(FSVG).ViewRect.Top) * TTMSFNCUtils.GetDPIScale);\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCSVGBitmap.SaveToFile(const FileName: String);\r\nvar\r\n  Stream: TStream;\r\nbegin\r\n  if not Assigned(FSVG) then\r\n    Exit;\r\n\r\n  Stream := TFileStream.Create(Filename, fmCreate);\r\n  try\r\n    SaveToStream(Stream);\r\n  finally\r\n    Stream.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCSVGBitmap.LoadFromFile(const Filename: String);\r\nbegin\r\n  if not Assigned(FSVG) then\r\n    Exit;\r\n\r\n  FStream.Clear;\r\n  FStream.LoadFromFile(FileName);\r\n  {$IFDEF SVGSUPPORT}\r\n  TTMSFNCGraphicsSVGImport(FSVG).LoadFromStream(FStream);\r\n  {$ENDIF}\r\n  Changed(Self);\r\nend;\r\n\r\nprocedure TTMSFNCSVGBitmap.LoadFromStream(Stream: TStream);\r\nbegin\r\n  if not Assigned(FSVG) or not Assigned(Stream) then\r\n    Exit;\r\n\r\n  try\r\n    FFileName := '';\r\n    FStream.LoadFromStream(Stream);\r\n    {$IFDEF SVGSUPPORT}\r\n    TTMSFNCGraphicsSVGImport(FSVG).LoadFromStream(FStream);\r\n    {$ENDIF}\r\n  except\r\n  end;\r\n  Changed(Self);\r\nend;\r\n\r\nprocedure TTMSFNCSVGBitmap.SaveToStream(Stream: TStream);\r\nbegin\r\n  if Assigned(Stream) then\r\n  begin\r\n    FStream.Position := 0;\r\n    FStream.SaveToStream(Stream);\r\n  end;\r\nend;\r\n\r\n{$IFDEF SVGSUPPORT}\r\n{$IFDEF VCLLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION >= 33}\r\n\r\n{ TTMSFNCSVGImageCollection }\r\n\r\nprocedure TTMSFNCSVGImageCollection.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCSVGImageCollection then\r\n    FImages.Assign((Source as TTMSFNCSVGImageCollection).FImages)\r\n  else\r\n    inherited;\r\nend;\r\n\r\nconstructor TTMSFNCSVGImageCollection.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FImages := TTMSFNCSVGImageCollectionItems.Create(Self, TTMSFNCSVGImageCollectionItem);\r\nend;\r\n\r\ndestructor TTMSFNCSVGImageCollection.Destroy;\r\nbegin\r\n  FImages.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCSVGImageCollection.Draw(ACanvas: TCanvas; X, Y, AIndex: Integer;\r\n  AProportional: Boolean);\r\nvar\r\n  it: TTMSFNCSVGImageCollectionItem;\r\nbegin\r\n  it := GetItemByIndex(AIndex);\r\n  if Assigned(it) then\r\n    Draw(ACanvas, Bounds(X, Y, it.Data.Width, it.Data.Height), AIndex, AProportional);\r\nend;\r\n\r\nprocedure TTMSFNCSVGImageCollection.Draw(ACanvas: TCanvas; ARect: TRect;\r\n  AIndex: Integer; AProportional: Boolean);\r\nvar\r\n  it: TTMSFNCSVGImageCollectionItem;\r\n  {$IFDEF SVGSUPPORT}\r\n  si: TTMSFNCGraphicsSVGImport;\r\n  {$ENDIF}\r\n  r: TRect;\r\n\r\n  function UpdateRectForProportionalSize(ARect: TRect; AWidth, AHeight: Integer; AStretch: Boolean): TRect;\r\n  var\r\n    w, h, cw, ch: Integer;\r\n    xyaspect: Double;\r\n  begin\r\n    Result := ARect;\r\n    if AWidth * AHeight = 0 then\r\n      Exit;\r\n\r\n    w := AWidth;\r\n    h := AHeight;\r\n    cw := ARect.Width;\r\n    ch := ARect.Height;\r\n\r\n    if AStretch or ((w > cw) or (h > ch)) then\r\n    begin\r\n      xyaspect := w / h;\r\n      if w > h then\r\n      begin\r\n        w := cw;\r\n        h := Trunc(cw / xyaspect);\r\n        if h > ch then\r\n        begin\r\n          h := ch;\r\n          w := Trunc(ch * xyaspect);\r\n        end;\r\n       end\r\n       else\r\n       begin\r\n         h := ch;\r\n         w := Trunc(ch * xyaspect);\r\n         if w > cw then\r\n         begin\r\n           w := cw;\r\n           h := Trunc(cw / xyaspect);\r\n         end;\r\n       end;\r\n    end;\r\n\r\n    Result := Rect(0, 0, w, h);\r\n    OffsetRect(Result, ARect.Left + (cw - w) div 2, ARect.Top + (ch - h) div 2);\r\n  end;\r\nbegin\r\n  if (AIndex >= 0) and (AIndex < Count) then\r\n  begin\r\n    it := Images[AIndex];\r\n    if Assigned(it.Data.Graphic) then\r\n    begin\r\n      r := ARect;\r\n      if AProportional then\r\n        r := UpdateRectForProportionalSize(r, it.Data.Width, it.Data.Height, False);\r\n\r\n      if (it.Data.Graphic is TTMSFNCSVGBitmap) then\r\n      begin\r\n        {$IFDEF SVGSUPPORT}\r\n        si := TTMSFNCGraphicsSVGImport((it.Data.Graphic as TTMSFNCSVGBitmap).SVG);\r\n        si.GrayScale := it.GrayScale;\r\n        si.CustomFillColor := it.CustomFillColor;\r\n        si.CustomStrokeColor := it.CustomStrokeColor;\r\n        si.TintColor := it.TintColor;\r\n        si.CustomOpacity := it.CustomOpacity;\r\n      \tsi.RotationAngle := it.RotationAngle;\r\n        si.Draw(ACanvas, ConvertToRectF(r), True);\r\n        {$ENDIF}\r\n      end\r\n      else\r\n        ACanvas.StretchDraw(r, it.Data.Graphic);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCSVGImageCollection.GetBitmap(AIndex, AWidth,\r\n  AHeight: Integer): TBitmap;\r\nvar\r\n  it: TTMSFNCSVGImageCollectionItem;\r\n  {$IFDEF SVGSUPPORT}\r\n  si: TTMSFNCGraphicsSVGImport;\r\n  {$ENDIF}\r\n  p: Pointer;\r\nbegin\r\n  Result := nil;\r\n  if (AIndex >= 0) and (AIndex < Count) then\r\n  begin\r\n    it := Images[AIndex];\r\n    if Assigned(it.Data.Graphic) then\r\n    begin\r\n      Result := TBitmap.Create;\r\n      Result.PixelFormat := pf32Bit;\r\n      Result.Width := AWidth;\r\n      Result.Height := AHeight;\r\n      Result.HandleType := bmDIB;\r\n      Result.IgnorePalette := true;\r\n      Result.AlphaFormat := afIgnored;\r\n\r\n      p := Result.ScanLine[AHeight - 1];\r\n      ZeroMemory(p, AWidth * AHeight * 4);\r\n\r\n      if (it.Data.Graphic is TTMSFNCSVGBitmap) then\r\n      begin\r\n        {$IFDEF SVGSUPPORT}\r\n        si := TTMSFNCGraphicsSVGImport((it.Data.Graphic as TTMSFNCSVGBitmap).SVG);\r\n        si.GrayScale := it.GrayScale;\r\n        si.CustomFillColor := it.CustomFillColor;\r\n        si.CustomStrokeColor := it.CustomStrokeColor;\r\n        si.TintColor := it.TintColor;\r\n        si.CustomOpacity := it.CustomOpacity;\r\n\tsi.RotationAngle := it.RotationAngle;\r\n        si.Draw(Result.Canvas, RectF(0, 0, AWidth, AHeight), True)\r\n        {$ENDIF}\r\n      end\r\n      else\r\n        Result.Canvas.StretchDraw(Bounds(0, 0, AWidth, AHeight), it.Data.Graphic);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCSVGImageCollection.GetCount: Integer;\r\nbegin\r\n  Result := FImages.Count;\r\nend;\r\n\r\nfunction TTMSFNCSVGImageCollection.GetIndexByName(const AName: String): Integer;\r\nvar\r\n  I: Integer;\r\n  S: String;\r\nbegin\r\n  Result := -1;\r\n  S := LowerCase(AName);\r\n  for I := 0 to FImages.Count - 1 do\r\n    if LowerCase(FImages[I].Name) = S then\r\n      Exit(I);\r\nend;\r\n\r\nfunction TTMSFNCSVGImageCollection.GetItemByIndex(\r\n  AIndex: Integer): TTMSFNCSVGImageCollectionItem;\r\nbegin\r\n  Result := nil;\r\n  if (AIndex >= 0) and (AIndex < Count) then\r\n    Result := Images[AIndex];\r\nend;\r\n\r\nfunction TTMSFNCSVGImageCollection.GetNameByIndex(AIndex: Integer): String;\r\nbegin\r\n  Result := '';\r\n  if (AIndex >= 0) and (AIndex < Count) then\r\n    Result := Images[AIndex].Name;\r\nend;\r\n\r\nfunction TTMSFNCSVGImageCollection.IsIndexAvailable(AIndex: Integer): Boolean;\r\nbegin\r\n  Result := (Count > 0) and (AIndex >= 0) and (AIndex < Count);\r\nend;\r\n\r\nprocedure TTMSFNCSVGImageCollection.SetImages(const Value: TTMSFNCSVGImageCollectionItems);\r\nbegin\r\n  FImages.Assign(Value);\r\nend;\r\n\r\n{ TTMSFNCSVGImageCollectionItem }\r\n\r\nconstructor TTMSFNCSVGImageCollectionItem.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  FData := TPicture.Create;\r\n  FName := '';\r\n  FGrayScale := False;\r\n  FCustomFillColor := -1;\r\n  FCustomStrokeColor := -1;\r\n  FTintColor := -1;\r\n  FCustomOpacity := -1;\r\n  FRotationAngle := 0;\r\nend;\r\n\r\nfunction TTMSFNCSVGImageCollectionItem.IsCustomFillColorStored: Boolean;\r\nbegin\r\n  Result := CustomFillColor <> -1;\r\nend;\r\n\r\nfunction TTMSFNCSVGImageCollectionItem.IsRotationAngleStored: Boolean;\r\nbegin\r\n  Result := RotationAngle <> 0;\r\nend;\r\n\r\nfunction TTMSFNCSVGImageCollectionItem.IsTintColorStored: Boolean;\r\nbegin\r\n  Result := TintColor <> -1;\r\nend;\r\n\r\nfunction TTMSFNCSVGImageCollectionItem.IsCustomStrokeColorStored: Boolean;\r\nbegin\r\n  Result := CustomStrokeColor <> -1;\r\nend;\r\n\r\nfunction TTMSFNCSVGImageCollectionItem.IsCustomOpacityStored: Boolean;\r\nbegin\r\n  Result := CustomOpacity <> -1;\r\nend;\r\n\r\nprocedure TTMSFNCSVGImageCollectionItem.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCSVGImageCollectionItem then\r\n  begin\r\n    FRotationAngle := (Source as TTMSFNCSVGImageCollectionItem).RotationAngle;\r\n    FData.Assign((Source as TTMSFNCSVGImageCollectionItem).Data);\r\n    FName := (Source as TTMSFNCSVGImageCollectionItem).Name;\r\n    FGrayScale := (Source as TTMSFNCSVGImageCollectionItem).GrayScale;\r\n    FCustomFillColor := (Source as TTMSFNCSVGImageCollectionItem).CustomFillColor;\r\n    FCustomStrokeColor := (Source as TTMSFNCSVGImageCollectionItem).CustomStrokeColor;\r\n    FTintColor := (Source as TTMSFNCSVGImageCollectionItem).TintColor;\r\n    FCustomOpacity := (Source as TTMSFNCSVGImageCollectionItem).CustomOpacity;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nfunction TTMSFNCSVGImageCollectionItem.GetDisplayName: string;\r\nbegin\r\n  if FName <> '' then\r\n    Result := FName\r\n  {$IFDEF WEBLIB}\r\n  else\r\n    Result := '';\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  else\r\n    Result := inherited;\r\n  {$ENDIF}\r\nend;\r\n\r\ndestructor TTMSFNCSVGImageCollectionItem.Destroy;\r\nbegin\r\n  FData.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCSVGImageCollectionItem.SetData(const Value: TPicture);\r\nbegin\r\n  FData.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCSVGImageCollectionItem.SetName(const Value: String);\r\nbegin\r\n  FName := Value;\r\nend;\r\n\r\n{ TTMSFNCSVGImageCollectionItems }\r\n\r\nfunction TTMSFNCSVGImageCollectionItems.GetItem(Index: Integer): TTMSFNCSVGImageCollectionItem;\r\nbegin\r\n  Result := TTMSFNCSVGImageCollectionItem(inherited GetItem(Index));\r\nend;\r\n\r\nprocedure TTMSFNCSVGImageCollectionItems.SetItem(Index: Integer; Value: TTMSFNCSVGImageCollectionItem);\r\nbegin\r\n  inherited SetItem(Index, Value);\r\nend;\r\n\r\nfunction TTMSFNCSVGImageCollectionItems.Add: TTMSFNCSVGImageCollectionItem;\r\nbegin\r\n  Result := TTMSFNCSVGImageCollectionItem(inherited Add);\r\nend;\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n\r\nfunction IsGraphicClassRegistered(const FileExt: String): Boolean;\r\nvar\r\n  Ext: String;\r\n  List: TStringList;\r\n  I: Integer;\r\nbegin\r\n  Result := False;\r\n  Ext := FileExt;\r\n  List := TStringList.Create;\r\n  try\r\n    List.Delimiter := ';';\r\n    List.StrictDelimiter := True;\r\n    List.DelimitedText := GraphicFileMask(TGraphic);\r\n    for I := 0 to List.Count-1 do\r\n    begin\r\n      if MatchesMask(FileExt, List[I]) then\r\n      begin\r\n        Result := True;\r\n        Exit;\r\n      end;\r\n    end;\r\n  finally\r\n    List.Free;\r\n  end;\r\nend;\r\n\r\ninitialization\r\nbegin\r\n  if not Assigned(GetClass(TTMSFNCSVGBitmap.ClassName)) then\r\n  begin\r\n    RegisterClass(TTMSFNCSVGBitmap);\r\n    TPicture.RegisterFileFormat('SVG', 'Scalable Vector Graphics', TTMSFNCSVGBitmap);\r\n  end;\r\nend;\r\n\r\nfinalization\r\nbegin\r\n  TPicture.UnregisterGraphicClass(TTMSFNCSVGBitmap);\r\n  UnRegisterClass(TTMSFNCSVGBitmap);\r\nend;\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2016 - 2021                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCGraphicsTypes;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF CMNLIB}\r\n{$DEFINE USECOMMONCOLORS}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\n{$DEFINE USECOMMONCOLORS}\r\n{$DEFINE CMNWEBLIB}\r\n{$DEFINE FMXWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF FMXLIB}\r\n{$DEFINE FMXWEBLIB}\r\n{$ENDIF}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$DEFINE USEOWNEDCOLLECTION}\r\n{$ENDIF}\r\n\r\n{$IFNDEF LCLWEBLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 22}\r\n{$DEFINE USEOWNEDCOLLECTION}\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  {$IFDEF MSWINDOWS}\r\n  Windows,\r\n  {$ENDIF}\r\n  Classes, Types, WEBLib.TMSFNCTypes, WEBLib.Graphics\r\n  {$IFNDEF LCLWEBLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  ,UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  ,Generics.Collections\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\nconst\r\n  {$IFNDEF LCLLIB}\r\n  FPC_FULLVERSION = 0;\r\n  {$ENDIF}\r\n  PathScale = 1E-4;\r\n  PathFontSize = 1E-2;\r\n  PathPosition = 1E-3;\r\n  PathAngle = 1E-4;\r\n\r\n  {$IFDEF FMXLIB}\r\n  gcAlpha = $FF000000;\r\n  gcAliceblue = gcAlpha or $F0F8FF;\r\n  gcAntiquewhite = gcAlpha or $FAEBD7;\r\n  gcAqua = gcAlpha or $00FFFF;\r\n  gcAquamarine = gcAlpha or $7FFFD4;\r\n  gcAzure = gcAlpha or $F0FFFF;\r\n  gcBeige = gcAlpha or $F5F5DC;\r\n  gcBisque = gcAlpha or $FFE4C4;\r\n  gcBlack = gcAlpha or $000000;\r\n  gcBlanchedalmond = gcAlpha or $FFEBCD;\r\n  gcBlue = gcAlpha or $0000FF;\r\n  gcBlueviolet = gcAlpha or $8A2BE2;\r\n  gcBrown = gcAlpha or $A52A2A;\r\n  gcBurlywood = gcAlpha or $DEB887;\r\n  gcCadetblue = gcAlpha or $5F9EA0;\r\n  gcChartreuse = gcAlpha or $7FFF00;\r\n  gcChocolate = gcAlpha or $D2691E;\r\n  gcCoral = gcAlpha or $FF7F50;\r\n  gcCornflowerblue = gcAlpha or $6495ED;\r\n  gcCornsilk = gcAlpha or $FFF8DC;\r\n  gcCrimson = gcAlpha or $DC143C;\r\n  gcCyan = gcAlpha or $00FFFF;\r\n  gcDarkblue = gcAlpha or $00008B;\r\n  gcDarkcyan = gcAlpha or $008B8B;\r\n  gcDarkgoldenrod = gcAlpha or $B8860B;\r\n  gcDarkgray = gcAlpha or $A9A9A9;\r\n  gcDarkgreen = gcAlpha or $006400;\r\n  gcDarkgrey = gcAlpha or $A9A9A9;\r\n  gcDarkkhaki = gcAlpha or $BDB76B;\r\n  gcDarkmagenta = gcAlpha or $8B008B;\r\n  gcDarkolivegreen = gcAlpha or $556B2F;\r\n  gcDarkorange = gcAlpha or $FF8C00;\r\n  gcDarkorchid = gcAlpha or $9932CC;\r\n  gcDarkred = gcAlpha or $8B0000;\r\n  gcDarksalmon = gcAlpha or $E9967A;\r\n  gcDarkseagreen = gcAlpha or $8FBC8F;\r\n  gcDarkslateblue = gcAlpha or $483D8B;\r\n  gcDarkslategray = gcAlpha or $2F4F4F;\r\n  gcDarkslategrey = gcAlpha or $2F4F4F;\r\n  gcDarkturquoise = gcAlpha or $00CED1;\r\n  gcDarkviolet = gcAlpha or $9400D3;\r\n  gcDeeppink = gcAlpha or $FF1493;\r\n  gcDeepskyblue = gcAlpha or $00BFFF;\r\n  gcDimgray = gcAlpha or $696969;\r\n  gcDimgrey = gcAlpha or $696969;\r\n  gcDodgerblue = gcAlpha or $1E90FF;\r\n  gcFirebrick = gcAlpha or $B22222;\r\n  gcFloralwhite = gcAlpha or $FFFAF0;\r\n  gcForestgreen = gcAlpha or $228B22;\r\n  gcFuchsia = gcAlpha or $FF00FF;\r\n  gcGainsboro = gcAlpha or $DCDCDC;\r\n  gcGhostwhite = gcAlpha or $F8F8FF;\r\n  gcGold = gcAlpha or $FFD700;\r\n  gcGoldenrod = gcAlpha or $DAA520;\r\n  gcGray = gcAlpha or $808080;\r\n  gcGreen = gcAlpha or $008000;\r\n  gcGreenyellow = gcAlpha or $ADFF2F;\r\n  gcGrey = gcAlpha or $808080;\r\n  gcHoneydew = gcAlpha or $F0FFF0;\r\n  gcHotpink = gcAlpha or $FF69B4;\r\n  gcIndianred = gcAlpha or $CD5C5C;\r\n  gcIndigo = gcAlpha or $4B0082;\r\n  gcIvory = gcAlpha or $FFFFF0;\r\n  gcKhaki = gcAlpha or $F0E68C;\r\n  gcLavender = gcAlpha or $E6E6FA;\r\n  gcLavenderblush = gcAlpha or $FFF0F5;\r\n  gcLawngreen = gcAlpha or $7CFC00;\r\n  gcLemonchiffon = gcAlpha or $FFFACD;\r\n  gcLightblue = gcAlpha or $ADD8E6;\r\n  gcLightcoral = gcAlpha or $F08080;\r\n  gcLightcyan = gcAlpha or $E0FFFF;\r\n  gcLightgoldenrodyellow = gcAlpha or $FAFAD2;\r\n  gcLightgray = gcAlpha or $D3D3D3;\r\n  gcLightgreen = gcAlpha or $90EE90;\r\n  gcLightgrey = gcAlpha or $D3D3D3;\r\n  gcLightpink = gcAlpha or $FFB6C1;\r\n  gcLightsalmon = gcAlpha or $FFA07A;\r\n  gcLightseagreen = gcAlpha or $20B2AA;\r\n  gcLightskyblue = gcAlpha or $87CEFA;\r\n  gcLightslategray = gcAlpha or $778899;\r\n  gcLightslategrey = gcAlpha or $778899;\r\n  gcLightsteelblue = gcAlpha or $B0C4DE;\r\n  gcLightyellow = gcAlpha or $FFFFE0;\r\n  gcLtGray = gcAlpha or $C0C0C0;\r\n  gcMedGray = gcAlpha or $A0A0A0;\r\n  gcDkGray = gcAlpha or $808080;\r\n  gcMoneyGreen = gcAlpha or $C0DCC0;\r\n  gcLegacySkyBlue = gcAlpha or $F0CAA6;\r\n  gcCream = gcAlpha or $F0FBFF;\r\n  gcLime = gcAlpha or $00FF00;\r\n  gcLimegreen = gcAlpha or $32CD32;\r\n  gcLinen = gcAlpha or $FAF0E6;\r\n  gcMagenta = gcAlpha or $FF00FF;\r\n  gcMaroon = gcAlpha or $800000;\r\n  gcMediumaquamarine = gcAlpha or $66CDAA;\r\n  gcMediumblue = gcAlpha or $0000CD;\r\n  gcMediumorchid = gcAlpha or $BA55D3;\r\n  gcMediumpurple = gcAlpha or $9370DB;\r\n  gcMediumseagreen = gcAlpha or $3CB371;\r\n  gcMediumslateblue = gcAlpha or $7B68EE;\r\n  gcMediumspringgreen = gcAlpha or $00FA9A;\r\n  gcMediumturquoise = gcAlpha or $48D1CC;\r\n  gcMediumvioletred = gcAlpha or $C71585;\r\n  gcMidnightblue = gcAlpha or $191970;\r\n  gcMintcream = gcAlpha or $F5FFFA;\r\n  gcMistyrose = gcAlpha or $FFE4E1;\r\n  gcMoccasin = gcAlpha or $FFE4B5;\r\n  gcNavajowhite = gcAlpha or $FFDEAD;\r\n  gcNavy = gcAlpha or $000080;\r\n  gcOldlace = gcAlpha or $FDF5E6;\r\n  gcOlive = gcAlpha or $808000;\r\n  gcOlivedrab = gcAlpha or $6B8E23;\r\n  gcOrange = gcAlpha or $FFA500;\r\n  gcOrangered = gcAlpha or $FF4500;\r\n  gcOrchid = gcAlpha or $DA70D6;\r\n  gcPalegoldenrod = gcAlpha or $EEE8AA;\r\n  gcPalegreen = gcAlpha or $98FB98;\r\n  gcPaleturquoise = gcAlpha or $AFEEEE;\r\n  gcPalevioletred = gcAlpha or $DB7093;\r\n  gcPapayawhip = gcAlpha or $FFEFD5;\r\n  gcPeachpuff = gcAlpha or $FFDAB9;\r\n  gcPeru = gcAlpha or $CD853F;\r\n  gcPink = gcAlpha or $FFC0CB;\r\n  gcPlum = gcAlpha or $DDA0DD;\r\n  gcPowderblue = gcAlpha or $B0E0E6;\r\n  gcPurple = gcAlpha or $800080;\r\n  gcRed = gcAlpha or $FF0000;\r\n  gcRosybrown = gcAlpha or $BC8F8F;\r\n  gcRoyalblue = gcAlpha or $4169E1;\r\n  gcSaddlebrown = gcAlpha or $8B4513;\r\n  gcSalmon = gcAlpha or $FA8072;\r\n  gcSandybrown = gcAlpha or $F4A460;\r\n  gcSeagreen = gcAlpha or $2E8B57;\r\n  gcSeashell = gcAlpha or $FFF5EE;\r\n  gcSienna = gcAlpha or $A0522D;\r\n  gcSilver = gcAlpha or $C0C0C0;\r\n  gcSkyblue = gcAlpha or $87CEEB;\r\n  gcSlateblue = gcAlpha or $6A5ACD;\r\n  gcSlategray = gcAlpha or $708090;\r\n  gcSlategrey = gcAlpha or $708090;\r\n  gcSnow = gcAlpha or $FFFAFA;\r\n  gcSpringgreen = gcAlpha or $00FF7F;\r\n  gcSteelblue = gcAlpha or $4682B4;\r\n  gcTan = gcAlpha or $D2B48C;\r\n  gcTeal = gcAlpha or $008080;\r\n  gcThistle = gcAlpha or $D8BFD8;\r\n  gcTomato = gcAlpha or $FF6347;\r\n  gcTurquoise = gcAlpha or $40E0D0;\r\n  gcViolet = gcAlpha or $EE82EE;\r\n  gcWheat = gcAlpha or $F5DEB3;\r\n  gcWhite = gcAlpha or $FFFFFF;\r\n  gcWhitesmoke = gcAlpha or $F5F5F5;\r\n  gcYellow = gcAlpha or $FFFF00;\r\n  gcYellowgreen = gcAlpha or $9ACD32;\r\n  gcNull = $00000000;\r\n  {$ENDIF}\r\n  {$IFDEF USECOMMONCOLORS}\r\n  gcAliceblue = $FFF8F0;\r\n  gcAntiquewhite = $D7EBFA;\r\n  gcAqua = $FFFF00;\r\n  gcAquamarine = $D4FF7F;\r\n  gcAzure = $FFFFF0;\r\n  gcBeige = $DCF5F5;\r\n  gcBisque = $C4E4FF;\r\n  gcBlack = $000000;\r\n  gcBlanchedalmond = $CDEBFF;\r\n  gcBlue = $FF0000;\r\n  gcBlueviolet = $E22B8A;\r\n  gcBrown = $2A2AA5;\r\n  gcBurlywood = $87B8DE;\r\n  gcCadetblue = $A09E5F;\r\n  gcChartreuse = $00FF7F;\r\n  gcChocolate = $1E69D2;\r\n  gcCoral = $507FFF;\r\n  gcCornflowerblue = $ED9564;\r\n  gcCornsilk = $DCF8FF;\r\n  gcCrimson = $3C14DC;\r\n  gcCyan = $FFFF00;\r\n  gcDarkblue = $8B0000;\r\n  gcDarkcyan = $8B8B00;\r\n  gcDarkgoldenrod = $0B86B8;\r\n  gcDarkgray = $A9A9A9;\r\n  gcDarkgreen = $006400;\r\n  gcDarkgrey = $A9A9A9;\r\n  gcDarkkhaki = $6BB7BD;\r\n  gcDarkmagenta = $8B008B;\r\n  gcDarkolivegreen = $2F6B55;\r\n  gcDarkorange = $008CFF;\r\n  gcDarkorchid = $CC3299;\r\n  gcDarkred = $00008B;\r\n  gcDarksalmon = $7A96E9;\r\n  gcDarkseagreen = $8FBC8F;\r\n  gcDarkslateblue = $8B3D48;\r\n  gcDarkslategray = $4F4F2F;\r\n  gcDarkslategrey = $4F4F2F;\r\n  gcDarkturquoise = $D1CE00;\r\n  gcDarkviolet = $D30094;\r\n  gcDeeppink = $9314FF;\r\n  gcDeepskyblue = $FFBF00;\r\n  gcDimgray = $696969;\r\n  gcDimgrey = $696969;\r\n  gcDodgerblue = $FF901E;\r\n  gcFirebrick = $2222B2;\r\n  gcFloralwhite = $F0FAFF;\r\n  gcForestgreen = $228B22;\r\n  gcFuchsia = $FF00FF;\r\n  gcGainsboro = $DCDCDC;\r\n  gcGhostwhite = $FFF8F8;\r\n  gcGold = $00D7FF;\r\n  gcGoldenrod = $20A5DA;\r\n  gcGray = $808080;\r\n  gcGreen = $008000;\r\n  gcGreenyellow = $2FFFAD;\r\n  gcGrey = $808080;\r\n  gcHoneydew = $F0FFF0;\r\n  gcHotpink = $B469FF;\r\n  gcIndianred = $5C5CCD;\r\n  gcIndigo = $82004B;\r\n  gcIvory = $F0FFFF;\r\n  gcKhaki = $8CE6F0;\r\n  gcLavender = $FAE6E6;\r\n  gcLavenderblush = $F5F0FF;\r\n  gcLawngreen = $00FC7C;\r\n  gcLemonchiffon = $CDFAFF;\r\n  gcLightblue = $E6D8AD;\r\n  gcLightcoral = $8080F0;\r\n  gcLightcyan = $FFFFE0;\r\n  gcLightgoldenrodyellow = $D2FAFA;\r\n  gcLightgray = $D3D3D3;\r\n  gcLightgreen = $90EE90;\r\n  gcLightgrey = $D3D3D3;\r\n  gcLightpink = $C1B6FF;\r\n  gcLightsalmon = $7AA0FF;\r\n  gcLightseagreen = $AAB220;\r\n  gcLightskyblue = $FACE87;\r\n  gcLightslategray = $998877;\r\n  gcLightslategrey = $998877;\r\n  gcLightsteelblue = $DEC4B0;\r\n  gcLightyellow = $E0FFFF;\r\n  gcLtGray = $C0C0C0;\r\n  gcMedGray = $A4A0A0;\r\n  gcDkGray = $808080;\r\n  gcMoneyGreen = $C0DCC0;\r\n  gcLegacySkyBlue = $F0CAA6;\r\n  gcCream = $F0FBFF;\r\n  gcLime = $00FF00;\r\n  gcLimegreen = $32CD32;\r\n  gcLinen = $E6F0FA;\r\n  gcMagenta = $FF00FF;\r\n  gcMaroon = $000080;\r\n  gcMediumaquamarine = $AACD66;\r\n  gcMediumblue = $CD0000;\r\n  gcMediumorchid = $D355BA;\r\n  gcMediumpurple = $DB7093;\r\n  gcMediumseagreen = $71B33C;\r\n  gcMediumslateblue = $EE687B;\r\n  gcMediumspringgreen = $9AFA00;\r\n  gcMediumturquoise = $CCD148;\r\n  gcMediumvioletred = $8515C7;\r\n  gcMidnightblue = $701919;\r\n  gcMintcream = $FAFFF5;\r\n  gcMistyrose = $E1E4FF;\r\n  gcMoccasin = $B5E4FF;\r\n  gcNavajowhite = $ADDEFF;\r\n  gcNavy = $800000;\r\n  gcOldlace = $E6F5FD;\r\n  gcOlive = $008080;\r\n  gcOlivedrab = $238E6B;\r\n  gcOrange = $00A5FF;\r\n  gcOrangered = $0045FF;\r\n  gcOrchid = $D670DA;\r\n  gcPalegoldenrod = $AAE8EE;\r\n  gcPalegreen = $98FB98;\r\n  gcPaleturquoise = $EEEEAF;\r\n  gcPalevioletred = $9370DB;\r\n  gcPapayawhip = $D5EFFF;\r\n  gcPeachpuff = $B9DAFF;\r\n  gcPeru = $3F85CD;\r\n  gcPink = $CBC0FF;\r\n  gcPlum = $DDA0DD;\r\n  gcPowderblue = $E6E0B0;\r\n  gcPurple = $800080;\r\n  gcRed = $0000FF;\r\n  gcRosybrown = $8F8FBC;\r\n  gcRoyalblue = $E16941;\r\n  gcSaddlebrown = $13458B;\r\n  gcSalmon = $7280FA;\r\n  gcSandybrown = $60A4F4;\r\n  gcSeagreen = $578B2E;\r\n  gcSeashell = $EEF5FF;\r\n  gcSienna = $2D52A0;\r\n  gcSilver = $C0C0C0;\r\n  gcSkyblue = $EBCE87;\r\n  gcSlateblue = $CD5A6A;\r\n  gcSlategray = $908070;\r\n  gcSlategrey = $908070;\r\n  gcSnow = $FAFAFF;\r\n  gcSpringgreen = $7FFF00;\r\n  gcSteelblue = $B48246;\r\n  gcTan = $8CB4D2;\r\n  gcTeal = $808000;\r\n  gcThistle = $D8BFD8;\r\n  gcTomato = $4763FF;\r\n  gcTurquoise = $D0E040;\r\n  gcViolet = $EE82EE;\r\n  gcWheat = $B3DEF5;\r\n  gcWhite = $FFFFFF;\r\n  gcWhitesmoke = $F5F5F5;\r\n  gcYellow = $00FFFF;\r\n  gcYellowgreen = $32CD9A;\r\n  gcNull = -1;\r\n  {$ENDIF}\r\n\r\ntype\r\n  {$IFDEF FMXLIB}\r\n  TTMSFNCGraphicsColor = TAlphaColor;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  TTMSFNCGraphicsColor = TColor;\r\n  {$ENDIF}\r\n\r\n  TTMSFNCGraphicsColorEntry = record\r\n    Value: TTMSFNCGraphicsColor;\r\n    Name: PChar;\r\n  end;\r\n\r\nconst\r\n  TMSFNCGraphicsColorCount = 154;\r\n  {$IFNDEF WEBLIB}\r\n  TMSFNCGraphicsColors: array[0..TMSFNCGraphicsColorCount - 1] of TTMSFNCGraphicsColorEntry = (\r\n  (Value: gcAliceblue; Name:'gcAliceblue'),\r\n  (Value: gcAntiquewhite; Name:'gcAntiquewhite'),\r\n  (Value: gcAqua; Name:'gcAqua'),\r\n  (Value: gcAquamarine; Name:'gcAquamarine'),\r\n  (Value: gcAzure; Name:'gcAzure'),\r\n  (Value: gcBeige; Name:'gcBeige'),\r\n  (Value: gcBisque; Name:'gcBisque'),\r\n  (Value: gcBlack; Name:'gcBlack'),\r\n  (Value: gcBlanchedalmond; Name:'gcBlanchedalmond'),\r\n  (Value: gcBlue; Name:'gcBlue'),\r\n  (Value: gcBlueviolet; Name:'gcBlueviolet'),\r\n  (Value: gcBrown; Name:'gcBrown'),\r\n  (Value: gcBurlywood; Name:'gcBurlywood'),\r\n  (Value: gcCadetblue; Name:'gcCadetblue'),\r\n  (Value: gcChartreuse; Name:'gcChartreuse'),\r\n  (Value: gcChocolate; Name:'gcChocolate'),\r\n  (Value: gcCoral; Name:'gcCoral'),\r\n  (Value: gcCornflowerblue; Name:'gcCornflowerblue'),\r\n  (Value: gcCornsilk; Name:'gcCornsilk'),\r\n  (Value: gcCrimson; Name:'gcCrimson'),\r\n  (Value: gcCyan; Name:'gcCyan'),\r\n  (Value: gcDarkblue; Name:'gcDarkblue'),\r\n  (Value: gcDarkcyan; Name:'gcDarkcyan'),\r\n  (Value: gcDarkgoldenrod; Name:'gcDarkgoldenrod'),\r\n  (Value: gcDarkgray; Name:'gcDarkgray'),\r\n  (Value: gcDarkgreen; Name:'gcDarkgreen'),\r\n  (Value: gcDarkgrey; Name:'gcDarkgrey'),\r\n  (Value: gcDarkkhaki; Name:'gcDarkkhaki'),\r\n  (Value: gcDarkmagenta; Name:'gcDarkmagenta'),\r\n  (Value: gcDarkolivegreen; Name:'gcDarkolivegreen'),\r\n  (Value: gcDarkorange; Name:'gcDarkorange'),\r\n  (Value: gcDarkorchid; Name:'gcDarkorchid'),\r\n  (Value: gcDarkred; Name:'gcDarkred'),\r\n  (Value: gcDarksalmon; Name:'gcDarksalmon'),\r\n  (Value: gcDarkseagreen; Name:'gcDarkseagreen'),\r\n  (Value: gcDarkslateblue; Name:'gcDarkslateblue'),\r\n  (Value: gcDarkslategray; Name:'gcDarkslategray'),\r\n  (Value: gcDarkslategrey; Name:'gcDarkslategrey'),\r\n  (Value: gcDarkturquoise; Name:'gcDarkturquoise'),\r\n  (Value: gcDarkviolet; Name:'gcDarkviolet'),\r\n  (Value: gcDeeppink; Name:'gcDeeppink'),\r\n  (Value: gcDeepskyblue; Name:'gcDeepskyblue'),\r\n  (Value: gcDimgray; Name:'gcDimgray'),\r\n  (Value: gcDimgrey; Name:'gcDimgray'),\r\n  (Value: gcDodgerblue; Name:'gcDodgerblue'),\r\n  (Value: gcFirebrick; Name:'gcFirebrick'),\r\n  (Value: gcFloralwhite; Name:'gcFloralwhite'),\r\n  (Value: gcForestgreen; Name:'gcForestgreen'),\r\n  (Value: gcFuchsia; Name:'gcFuchsia'),\r\n  (Value: gcGainsboro; Name:'gcGainsboro'),\r\n  (Value: gcGhostwhite; Name:'gcGhostwhite'),\r\n  (Value: gcGold; Name:'gcGold'),\r\n  (Value: gcGoldenrod; Name:'gcGoldenrod'),\r\n  (Value: gcGray; Name:'gcGray'),\r\n  (Value: gcGreen; Name:'gcGreen'),\r\n  (Value: gcGreenyellow; Name:'gcGreenyellow'),\r\n  (Value: gcGrey; Name:'gcGrey'),\r\n  (Value: gcHoneydew; Name:'gcHoneydew'),\r\n  (Value: gcHotpink; Name:'gcHotpink'),\r\n  (Value: gcIndianred; Name:'gcIndianred'),\r\n  (Value: gcIndigo; Name:'gcIndigo'),\r\n  (Value: gcIvory; Name:'gcIvory'),\r\n  (Value: gcKhaki; Name:'gcKhaki'),\r\n  (Value: gcLavender; Name:'gcLavender'),\r\n  (Value: gcLavenderblush; Name:'gcLavenderblush'),\r\n  (Value: gcLawngreen; Name:'gcLawngreen'),\r\n  (Value: gcLemonchiffon; Name:'gcLemonchiffon'),\r\n  (Value: gcLightblue; Name:'gcLightblue'),\r\n  (Value: gcLightcoral; Name:'gcLightcoral'),\r\n  (Value: gcLightcyan; Name:'gcLightcyan'),\r\n  (Value: gcLightgoldenrodyellow; Name:'gcLightgoldenrodyellow'),\r\n  (Value: gcLightgray; Name:'gcLightgray'),\r\n  (Value: gcLightgreen; Name:'gcLightgreen'),\r\n  (Value: gcLightgrey; Name:'gcLightgrey'),\r\n  (Value: gcLightpink; Name:'gcLightpink'),\r\n  (Value: gcLightsalmon; Name:'gcLightsalmon'),\r\n  (Value: gcLightseagreen; Name:'gcLightseagreen'),\r\n  (Value: gcLightskyblue; Name:'gcLightskyblue'),\r\n  (Value: gcLightslategray; Name:'gcLightslategray'),\r\n  (Value: gcLightslategrey; Name:'gcLightslategrey'),\r\n  (Value: gcLightsteelblue; Name:'gcLightsteelblue'),\r\n  (Value: gcLightyellow; Name:'gcLightyellow'),\r\n  (Value: gcLtGray; Name:'gcLtGray'),\r\n  (Value: gcMedGray; Name:'gcMedGray'),\r\n  (Value: gcDkGray; Name:'gcDkGray'),\r\n  (Value: gcMoneyGreen; Name:'gcMoneyGreen'),\r\n  (Value: gcLegacySkyBlue; Name:'gcLegacySkyBlue'),\r\n  (Value: gcCream; Name:'gcCream'),\r\n  (Value: gcLime; Name:'gcLime'),\r\n  (Value: gcLimegreen; Name:'gcLimegreen'),\r\n  (Value: gcLinen; Name:'gcLinen'),\r\n  (Value: gcMagenta; Name:'gcMagenta'),\r\n  (Value: gcMaroon; Name:'gcMaroon'),\r\n  (Value: gcMediumaquamarine; Name:'gcMediumaquamarine'),\r\n  (Value: gcMediumblue; Name:'gcMediumblue'),\r\n  (Value: gcMediumorchid; Name:'gcMediumorchid'),\r\n  (Value: gcMediumpurple; Name:'gcMediumpurple'),\r\n  (Value: gcMediumseagreen; Name:'gcMediumseagreen'),\r\n  (Value: gcMediumslateblue; Name:'gcMediumslateblue'),\r\n  (Value: gcMediumspringgreen; Name:'gcMediumspringgreen'),\r\n  (Value: gcMediumturquoise; Name:'gcMediumturquoise'),\r\n  (Value: gcMediumvioletred; Name:'gcMediumvioletred'),\r\n  (Value: gcMidnightblue; Name:'gcMidnightblue'),\r\n  (Value: gcMintcream; Name:'gcMintcream'),\r\n  (Value: gcMistyrose; Name:'gcMistyrose'),\r\n  (Value: gcMoccasin; Name:'gcMoccasin'),\r\n  (Value: gcNavajowhite; Name:'gcNavajowhite'),\r\n  (Value: gcNavy; Name:'gcNavy'),\r\n  (Value: gcOldlace; Name:'gcOldlace'),\r\n  (Value: gcOlive; Name:'gcOlive'),\r\n  (Value: gcOlivedrab; Name:'gcOlivedrab'),\r\n  (Value: gcOrange; Name:'gcOrange'),\r\n  (Value: gcOrangered; Name:'gcOrangered'),\r\n  (Value: gcOrchid; Name:'gcOrchid'),\r\n  (Value: gcPalegoldenrod; Name:'gcPalegoldenrod'),\r\n  (Value: gcPalegreen; Name:'gcPalegreen'),\r\n  (Value: gcPaleturquoise; Name:'gcPaleturquoise'),\r\n  (Value: gcPalevioletred; Name:'gcPalevioletred'),\r\n  (Value: gcPapayawhip; Name:'gcPapayawhip'),\r\n  (Value: gcPeachpuff; Name:'gcPeachpuff'),\r\n  (Value: gcPeru; Name:'gcPeru'),\r\n  (Value: gcPink; Name:'gcPink'),\r\n  (Value: gcPlum; Name:'gcPlum'),\r\n  (Value: gcPowderblue; Name:'gcPowderblue'),\r\n  (Value: gcPurple; Name:'gcPurple'),\r\n  (Value: gcRed; Name:'gcRed'),\r\n  (Value: gcRosybrown; Name:'gcRosybrown'),\r\n  (Value: gcRoyalblue; Name:'gcRoyalblue'),\r\n  (Value: gcSaddlebrown; Name:'gcSaddlebrown'),\r\n  (Value: gcSalmon; Name:'gcSalmon'),\r\n  (Value: gcSandybrown; Name:'gcSandybrown'),\r\n  (Value: gcSeagreen; Name:'gcSeagreen'),\r\n  (Value: gcSeashell; Name:'gcSeashell'),\r\n  (Value: gcSienna; Name:'gcSienna'),\r\n  (Value: gcSilver; Name:'gcSilver'),\r\n  (Value: gcSkyblue; Name:'gcSkyblue'),\r\n  (Value: gcSlateblue; Name:'gcSlateblue'),\r\n  (Value: gcSlategray; Name:'gcSlategray'),\r\n  (Value: gcSlategrey; Name:'gcSlategrey'),\r\n  (Value: gcSnow; Name:'gcSnow'),\r\n  (Value: gcSpringgreen; Name:'gcSpringgreen'),\r\n  (Value: gcSteelblue; Name:'gcSteelblue'),\r\n  (Value: gcTan; Name:'gcTan'),\r\n  (Value: gcTeal; Name:'gcTeal'),\r\n  (Value: gcThistle; Name:'gcThistle'),\r\n  (Value: gcTomato; Name:'gcTomato'),\r\n  (Value: gcTurquoise; Name:'gcTurquoise'),\r\n  (Value: gcViolet; Name:'gcViolet'),\r\n  (Value: gcWheat; Name:'gcWheat'),\r\n  (Value: gcWhite; Name:'gcWhite'),\r\n  (Value: gcWhitesmoke; Name:'gcWhitesmoke'),\r\n  (Value: gcYellow; Name:'gcYellow'),\r\n  (Value: gcYellowgreen; Name:'gcYellowgreen'),\r\n  (Value: gcNull; Name:'gcNull'));\r\n  {$ENDIF}\r\n\r\ntype\r\n  TTMSFNCGraphicsStrokeKind = (gskNone, gskSolid, gskDash, gskDot, gskDashDot, gskDashDotDot);\r\n  TTMSFNCGraphicsTextureMode = (gtmOriginal, gtmFit, gtmStretch, gtmCenter, gtmTile);\r\n  TTMSFNCGraphicsFillKind = (gfkNone, gfkSolid, gfkGradient, gfkTexture);\r\n  TTMSFNCGraphicsFillGradientMode = (gfgmDefault, gfgmCollection);\r\n  TTMSFNCGraphicsFillGradientType = (gfgtLinear, gfgtRadial);\r\n  TTMSFNCGraphicsFillOrientation = (gfoHorizontal, gfoVertical, gfoCustom);\r\n  TTMSFNCGraphicsTextAlign = (gtaCenter, gtaLeading, gtaTrailing);\r\n  TTMSFNCGraphicsTextTrimming = (gttNone, gttCharacter, gttWord);\r\n  TTMSFNCGraphicsSide = (gsLeft, gsTop, gsRight, gsBottom);\r\n  TTMSFNCGraphicsSides = set of TTMSFNCGraphicsSide;\r\n  TTMSFNCGraphicsTextQuality = (gtqDefault, gtqAntiAliasing, gtqClearType);\r\n\r\nconst\r\n  AllSides = [gsLeft, gsTop, gsRight, gsBottom];\r\n  Epsilon: Single = 1E-40;\r\n\r\ntype\r\n {$IFNDEF WEBLIB}\r\n  TTMSFNCGraphicsVectorArray = array [0..2] of Single;\r\n\r\n  TTMSFNCGraphicsVector = record\r\n    case Integer of\r\n      0: (V: TTMSFNCGraphicsVectorArray;);\r\n      1: (X: Single;\r\n          Y: Single;\r\n          W: Single;);\r\n  end;\r\n\r\n  TTMSFNCGraphicsMatrixArray = array [0..2] of TTMSFNCGraphicsVector;\r\n\r\n  TTMSFNCGraphicsMatrix = record\r\n  private\r\n    function Scale(const AFactor: Single): TTMSFNCGraphicsMatrix;\r\n  public\r\n    class function Identity: TTMSFNCGraphicsMatrix; static;\r\n    class function CreateRotation(const AAngle: Single): TTMSFNCGraphicsMatrix; static;\r\n    class function CreateScaling(const AScaleX, AScaleY: Single): TTMSFNCGraphicsMatrix; static;\r\n    class function CreateTranslation(const ADeltaX, ADeltaY: Single): TTMSFNCGraphicsMatrix; static;\r\n    {$IFDEF LCLLIB}\r\n    class operator *(const AMatrix1, AMatrix2: TTMSFNCGraphicsMatrix): TTMSFNCGraphicsMatrix;\r\n    class operator *(const APoint: TPointF; const AMatrix: TTMSFNCGraphicsMatrix): TPointF;\r\n    {$ENDIF}\r\n    {$IFNDEF LCLLIB}\r\n    class operator Multiply(const AMatrix1, AMatrix2: TTMSFNCGraphicsMatrix): TTMSFNCGraphicsMatrix;\r\n    class operator Multiply(const APoint: TPointF; const AMatrix: TTMSFNCGraphicsMatrix): TPointF;\r\n    {$ENDIF}\r\n\r\n    function Determinant: Single;\r\n    function Adjoint: TTMSFNCGraphicsMatrix;\r\n    function Inverse: TTMSFNCGraphicsMatrix;\r\n\r\n    case Integer of\r\n      0: (M: TTMSFNCGraphicsMatrixArray;);\r\n      1: (m11, m12, m13: Single;\r\n          m21, m22, m23: Single;\r\n          m31, m32, m33: Single);\r\n  end;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCGraphicsMatrix = record\r\n    m11, m12, m13: Single;\r\n    m21, m22, m23: Single;\r\n    m31, m32, m33: Single;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  TTMSFNCGraphicsStroke = class;\r\n  TTMSFNCGraphicsFill = class;\r\n  TTMSFNCGraphicsFont = class;\r\n\r\n  TTMSFNCGraphicsSaveState = class(TPersistent)\r\n  private\r\n    {$IFDEF CMNWEBLIB}\r\n    FSaveDC: Integer;\r\n    {$ENDIF}\r\n    {$IFDEF FMXLIB}\r\n    FSaveDC: TCanvasSaveState;\r\n    {$ENDIF}\r\n    FFont: TTMSFNCGraphicsFont;\r\n    FStroke: TTMSFNCGraphicsStroke;\r\n    FFill: TTMSFNCGraphicsFill;\r\n    FCustomSaveDC: NativeUInt;\r\n    procedure SetStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetFont(const Value: TTMSFNCGraphicsFont);\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n    property Stroke: TTMSFNCGraphicsStroke read FStroke write SetStroke;\r\n    property Fill: TTMSFNCGraphicsFill read FFill write SetFill;\r\n    property Font: TTMSFNCGraphicsFont read FFont write SetFont;\r\n    property CustomSaveDC: NativeUInt read FCustomSaveDC write FCustomSaveDC;\r\n    {$IFDEF CMNWEBLIB}\r\n    property SaveDC: Integer read FSaveDC write FSaveDC;\r\n    {$ENDIF}\r\n    {$IFDEF FMXLIB}\r\n    property SaveDC: TCanvasSaveState read FSaveDC write FSaveDC;\r\n    {$ENDIF}\r\n  end;\r\n\r\n  TTMSFNCGraphicsFillGradientItem = class(TCollectionItem)\r\n  private\r\n    FColor: TTMSFNCGraphicsColor;\r\n    FPosition: Single;\r\n    FOpacity: Single;\r\n    function IsPositionStored: Boolean;\r\n    procedure SetColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetPosition(const Value: Single);\r\n    function IsOpacityStored: Boolean;\r\n    procedure SetOpacity(const Value: Single);\r\n  protected\r\n    procedure UpdateGradient;\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property Opacity: Single read FOpacity write SetOpacity stored IsOpacityStored nodefault;\r\n    property Color: TTMSFNCGraphicsColor read FColor write SetColor default gcWhite;\r\n    property Position: Single read FPosition write SetPosition stored IsPositionStored nodefault;\r\n  end;\r\n\r\n  TTMSFNCCustomGraphicsFill = class;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCGraphicsFillGradientItems = class(TTMSFNCOwnedCollection)\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  {$IFDEF USEOWNEDCOLLECTION}\r\n  TTMSFNCGraphicsFillGradientItems = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCGraphicsFillGradientItem>)\r\n  {$ELSE}\r\n  TTMSFNCGraphicsFillGradientItems = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection)\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TTMSFNCCustomGraphicsFill;\r\n    function GetItemEx(Index: Integer): TTMSFNCGraphicsFillGradientItem;\r\n    procedure SetItemEx(Index: Integer; const Value: TTMSFNCGraphicsFillGradientItem);\r\n  protected\r\n    procedure UpdateGradient;\r\n    function GetGradientClass: TCollectionItemClass; virtual;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCCustomGraphicsFill);\r\n    function Add: TTMSFNCGraphicsFillGradientItem; {$IFDEF WEBLIB}reintroduce;{$ENDIF}\r\n    function Insert(index: Integer): TTMSFNCGraphicsFillGradientItem;{$IFDEF WEBLIB}reintroduce;{$ENDIF}\r\n    property Items[Index: Integer]: TTMSFNCGraphicsFillGradientItem read GetItemEx write SetItemEx; default;\r\n  end;\r\n\r\n  TTMSFNCCustomGraphicsFill = class(TPersistent)\r\n  private\r\n    FUpdateCount: Integer;\r\n    FOnChanged: TNotifyEvent;\r\n    FOrientation: TTMSFNCGraphicsFillOrientation;\r\n    FKind: TTMSFNCGraphicsFillKind;\r\n    FDefaultKind: TTMSFNCGraphicsFillKind;\r\n    FColor: TTMSFNCGraphicsColor;\r\n    FDefaultColor: TTMSFNCGraphicsColor;\r\n    FColorTo: TTMSFNCGraphicsColor;\r\n    FColorMirror: TTMSFNCGraphicsColor;\r\n    FColorMirrorTo: TTMSFNCGraphicsColor;\r\n    FDefaultColorTo: TTMSFNCGraphicsColor;\r\n    FDefaultColorMirror: TTMSFNCGraphicsColor;\r\n    FDefaultColorMirrorTo: TTMSFNCGraphicsColor;\r\n    FOpacity: Single;\r\n    FTexture: TTMSFNCBitmap;\r\n    FTextureMode: TTMSFNCGraphicsTextureMode;\r\n    FGradientMode: TTMSFNCGraphicsFillGradientMode;\r\n    FGradientItems: TTMSFNCGraphicsFillGradientItems;\r\n    FGradientType: TTMSFNCGraphicsFillGradientType;\r\n    FGradientAngle: Single;\r\n    FGradientCenterPoint: TPointF;\r\n    FGradientCenterColor: TTMSFNCGraphicsColor;\r\n    FGradientMatrix: TTMSFNCGraphicsMatrix;\r\n    procedure SetKind(const Value: TTMSFNCGraphicsFillKind);\r\n    procedure SetOrientation(const Value: TTMSFNCGraphicsFillOrientation);\r\n    procedure SetColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetColorTo(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetColorMirror(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetColorMirrorTo(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetOpacity(const Value: Single);\r\n    function IsOpacityStored: Boolean;\r\n    procedure SetTexture(const Value: TTMSFNCBitmap);\r\n    procedure SetTextureMode(const Value: TTMSFNCGraphicsTextureMode);\r\n    procedure SetGradientItems(const Value: TTMSFNCGraphicsFillGradientItems);\r\n    procedure SetGradientMode(const Value: TTMSFNCGraphicsFillGradientMode);\r\n    procedure SetGradientType(const Value: TTMSFNCGraphicsFillGradientType);\r\n    function IsGradientAngleStored: Boolean;\r\n    procedure SetGradientAngle(const Value: Single);\r\n    procedure SetGradientCenterPoint(const Value: TPointF);\r\n    procedure SetGradientCenterColor(const Value: TTMSFNCGraphicsColor);\r\n    function IsColorStored: Boolean;\r\n    function IsKindStored: Boolean;\r\n    function IsColorMirrorStored: Boolean;\r\n    function IsColorMirrorToStored: Boolean;\r\n    function IsColorToStored: Boolean;\r\n  protected\r\n    procedure Changed;\r\n    procedure TextureChanged(Sender: TObject);\r\n    property OnChanged: TNotifyEvent read FOnChanged write FOnChanged;\r\n    property GradientAngle: Single read FGradientAngle write SetGradientAngle stored IsGradientAngleStored nodefault;\r\n    property GradientType: TTMSFNCGraphicsFillGradientType read FGradientType write SetGradientType default gfgtLinear;\r\n    property GradientMode: TTMSFNCGraphicsFillGradientMode read FGradientMode write SetGradientMode default gfgmDefault;\r\n    property GradientItems: TTMSFNCGraphicsFillGradientItems read FGradientItems write SetGradientItems;\r\n    property GradientCenterPoint: TPointF read FGradientCenterPoint write SetGradientCenterPoint;\r\n    property GradientMatrix: TTMSFNCGraphicsMatrix read FGradientMatrix write FGradientMatrix;\r\n    property GradientCenterColor: TTMSFNCGraphicsColor read FGradientCenterColor write SetGradientCenterColor default gcNull;\r\n    property GradientOrientation: TTMSFNCGraphicsFillOrientation read FOrientation write SetOrientation default gfoVertical;\r\n    property Kind: TTMSFNCGraphicsFillKind read FKind write SetKind stored IsKindStored nodefault;\r\n    property Orientation: TTMSFNCGraphicsFillOrientation read FOrientation write SetOrientation default gfoVertical;\r\n    property Color: TTMSFNCGraphicsColor read FColor write SetColor stored IsColorStored nodefault;\r\n    property ColorTo: TTMSFNCGraphicsColor read FColorTo write SetColorTo stored IsColorToStored nodefault;\r\n    property ColorMirror: TTMSFNCGraphicsColor read FColorMirror write SetColorMirror stored IsColorMirrorStored nodefault;\r\n    property ColorMirrorTo: TTMSFNCGraphicsColor read FColorMirrorTo write SetColorMirrorTo stored IsColorMirrorToStored nodefault;\r\n    property Opacity: Single read FOpacity write SetOpacity stored IsOpacityStored nodefault;\r\n    property Texture: TTMSFNCBitmap read FTexture write SetTexture;\r\n    property TextureMode: TTMSFNCGraphicsTextureMode read FTextureMode write SetTextureMode default gtmStretch;\r\n  public\r\n    constructor Create(const AKind: TTMSFNCGraphicsFillKind = gfkSolid; const AColor: TTMSFNCGraphicsColor = gcWhite; const AColorTo: TTMSFNCGraphicsColor = gcGray; const AColorMirror: TTMSFNCGraphicsColor = gcNull; const AColorMirrorTo: TTMSFNCGraphicsColor = gcNull); virtual;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure BeginUpdate; virtual;\r\n    procedure EndUpdate; virtual;\r\n    procedure ClearGradientItems; virtual;\r\n    function AddGradientItem(AColor: TTMSFNCGraphicsColor; APosition: Single; AOpacity: Single = 1.0): TTMSFNCGraphicsFillGradientItem; virtual;\r\n  end;\r\n\r\n  TTMSFNCGraphicsFill = class(TTMSFNCCustomGraphicsFill)\r\n  public\r\n    {$IFDEF CMNWEBLIB}\r\n    property Opacity;\r\n    {$ENDIF}\r\n    property GradientMatrix;\r\n    property GradientAngle;\r\n    property GradientType;\r\n    property GradientMode;\r\n    property GradientItems;\r\n    property GradientCenterPoint;\r\n    property GradientCenterColor;\r\n    property GradientOrientation;\r\n  published\r\n    property OnChanged;\r\n    property Kind;\r\n    property Orientation;\r\n    property Color;\r\n    property ColorTo;\r\n    property ColorMirror;\r\n    property ColorMirrorTo;\r\n    property TextureMode;\r\n    property Texture;\r\n    {$IFDEF FMXLIB}\r\n    property Opacity;\r\n    {$ENDIF}\r\n  end;\r\n\r\n  TTMSFNCGraphicsFont = class(TFont)\r\n  private\r\n    FUpdateCount: Integer;\r\n    FOnChanged: TNotifyEvent;\r\n  {$IFDEF FMXLIB}\r\n    FHeight: Integer;\r\n    FColor: TTMSFNCGraphicsColor;\r\n    procedure SetColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetName(const Value: string);\r\n    function GetName: string;\r\n    function IsNameStored: Boolean;\r\n  {$ENDIF}\r\n  protected\r\n    procedure DoChanged(Sender: TObject); {$IFDEF FMXLIB}reintroduce;{$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n    {$IFDEF LCLLIB}\r\n    procedure Changed; override;\r\n    {$ENDIF}\r\n  {$ENDIF}\r\n  public\r\n  {$IFNDEF LCLLIB}\r\n    constructor Create; virtual;\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n    constructor Create; override;\r\n  {$ENDIF}\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure AssignSource(Source: TPersistent); virtual;\r\n  {$IFDEF FMXLIB}\r\n    property Height: Integer read FHeight write FHeight;\r\n  published\r\n    property Color: TTMSFNCGraphicsColor read FColor write SetColor default gcBlack;\r\n    property Name: string read GetName write SetName stored IsNameStored;\r\n  {$ENDIF}\r\n    property OnChanged: TNotifyEvent read FOnChanged write FOnChanged;\r\n    procedure BeginUpdate; virtual;\r\n    procedure EndUpdate; virtual;\r\n  end;\r\n\r\n  TTMSFNCAppearanceGlobalFontType = (aftNone, aftColor, aftSize, aftName, aftScale, aftStyle);\r\n\r\n  ITMSFNCAppearanceGlobalFont = interface\r\n  ['{85CF4F6B-3FF9-4CB7-AD6A-7FC477ED5462}']\r\n    procedure SetFonts(ASetType: TTMSFNCAppearanceGlobalFontType);\r\n  end;\r\n\r\n  TTMSFNCAppearanceGlobalFont = class(TPersistent)\r\n  private\r\n    FOwner: TPersistent;\r\n    FColor: TTMSFNCGraphicsColor;\r\n    FSize: Single;\r\n    FName: String;\r\n    FScale: Double;\r\n    FOldScale: Double;\r\n    FStyle: TFontStyles;\r\n    procedure SetColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetSize(const Value: Single);\r\n    procedure SetName(const Value: String);\r\n    procedure SetScale(const Value: Double);\r\n    procedure SetStyle(const Value: TFontStyles);\r\n    function IsNameStored: Boolean;\r\n    function IsScaleStored: Boolean;\r\n    function IsSizeStored: Boolean;\r\n    function IsStyleStored: Boolean;\r\n  protected\r\n    procedure SetFonts(ASetType: TTMSFNCAppearanceGlobalFontType);\r\n  public\r\n    constructor Create(AOwner: TPersistent);\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure ApplyChange(AFont: TTMSFNCGraphicsFont; ASetType: TTMSFNCAppearanceGlobalFontType);\r\n    function GetOldScale: Double;\r\n  published\r\n    property Color: TTMSFNCGraphicsColor read FColor write SetColor default gcNull;\r\n    property Size: Single read FSize write SetSize stored IsSizeStored;\r\n    property Name: String read FName write SetName stored IsNameStored;\r\n    property Scale: Double read FScale write SetScale stored IsScaleStored;\r\n    property Style: TFontStyles read FStyle write SetStyle stored IsStyleStored;\r\n  end;\r\n\r\n  TTMSFNCCustomGraphicsStroke = class(TPersistent)\r\n  private\r\n    FUpdateCount: Integer;\r\n    FOnChanged: TNotifyEvent;\r\n    FKind: TTMSFNCGraphicsStrokeKind;\r\n    FColor: TTMSFNCGraphicsColor;\r\n    FWidth: Single;\r\n    FOpacity: Single;\r\n    FDefaultKind: TTMSFNCGraphicsStrokeKind;\r\n    FDefaultColor: TTMSFNCGraphicsColor;\r\n    procedure SetKind(const Value: TTMSFNCGraphicsStrokeKind);\r\n    procedure SetColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetWidth(const Value: Single);\r\n    procedure SetOpacity(const Value: Single);\r\n    function IsOpacityStored: Boolean;\r\n    function IsWidthStored: Boolean;\r\n    function IsKindStored: Boolean;\r\n    function IsColorStored: Boolean;\r\n  protected\r\n    procedure Changed;\r\n    property OnChanged: TNotifyEvent read FOnChanged write FOnChanged;\r\n    property Kind: TTMSFNCGraphicsStrokeKind read FKind write SetKind stored IsKindStored nodefault;\r\n    property Color: TTMSFNCGraphicsColor read FColor write SetColor stored IsColorStored nodefault;\r\n    property Width: Single read FWidth write SetWidth stored IsWidthStored nodefault;\r\n    property Opacity: Single read FOpacity write SetOpacity stored IsOpacityStored nodefault;\r\n  public\r\n    constructor Create(const AKind: TTMSFNCGraphicsStrokeKind = gskSolid; const AColor: TTMSFNCGraphicsColor = gcSilver); virtual;\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure BeginUpdate; virtual;\r\n    procedure EndUpdate; virtual;\r\n  end;\r\n\r\n  TTMSFNCGraphicsStroke = class(TTMSFNCCustomGraphicsStroke)\r\n  public\r\n    {$IFDEF CMNWEBLIB}\r\n    property Opacity;\r\n    {$ENDIF}\r\n  published\r\n    property OnChanged;\r\n    property Kind;\r\n    property Color;\r\n    property Width;\r\n    {$IFDEF FMXLIB}\r\n    property Opacity;\r\n    {$ENDIF}\r\n  end;\r\n\r\n  TTMSFNCGraphicsPathPolygon = array of TPointF;\r\n\r\n  TTMSFNCGraphicsPathPointKind = (gppMoveTo, gppLineTo, gppCurveTo, gppClose);\r\n\r\n  TTMSFNCGraphicsPathCubicBezier = array[0..3] of TPointF;\r\n\r\n  TTMSFNCGraphicsPathPoint = record\r\n    Kind: TTMSFNCGraphicsPathPointKind;\r\n    {$IFNDEF WEBLIB}\r\n    {$HINTS OFF}\r\n    {$WARNINGS OFF}\r\n    {$IF FPC_FULLVERSION < 30000}\r\n    Dummy: Boolean;\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n    {$WARNINGS ON}\r\n    {$ENDIF}\r\n    Point: TPointF;\r\n    {$IFDEF LCLLIB}\r\n    class operator = (z1, z2 : TTMSFNCGraphicsPathPoint) b : Boolean;\r\n    {$ENDIF}\r\n  end;\r\n\r\n  TTMSFNCGraphicsPathDrawMode = (pdmPolygon, pdmPolyline, pdmPath);\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCGraphicsPathPoints = class(TList)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCGraphicsPathPoint;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCGraphicsPathPoint);\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCGraphicsPathPoint read GetItem write SetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCGraphicsPathPoints = class(TList<TTMSFNCGraphicsPathPoint>);\r\n  {$ENDIF}\r\n\r\n  TTMSFNCGraphicsCorner = (gcTopLeft, gcTopRight, gcBottomLeft, gcBottomRight);\r\n  TTMSFNCGraphicsCorners = set of TTMSFNCGraphicsCorner;\r\n\r\n  TTMSFNCGraphicsPath = class(TPersistent)\r\n  private\r\n    FStartPoint: TPointF;\r\n    FClippable: Boolean;\r\n    FPoints: TTMSFNCGraphicsPathPoints;\r\n    procedure CalculateBezierCoefficients(const Bezier: TTMSFNCGraphicsPathCubicBezier; out AX, BX, CX, AY, BY, CY: Double);\r\n    function GetCount: Integer;\r\n    function GetPoint(AIndex: Integer): TTMSFNCGraphicsPathPoint;\r\n  public\r\n    constructor Create; virtual;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    function LastPoint: TPointF;\r\n    function IsPointVisible(const P: TPointF): Boolean;\r\n    function IsRectVisible(const R: TRectF): Boolean;\r\n    function PointOnBezier(const StartPoint: TPointF; const AX, BX, CX, AY, BY, CY, T: Double): TPointF;\r\n    function CreateBezier(const Bezier: TTMSFNCGraphicsPathCubicBezier; const PointCount: Integer): TTMSFNCGraphicsPathPolygon;\r\n    function GetBounds: TRectF;\r\n    function IsClippable: Boolean;\r\n    procedure MoveTo(const P: TPointF);\r\n    procedure LineTo(const P: TPointF);\r\n    procedure CurveTo(const ControlPoint1, ControlPoint2, EndPoint: TPointF);\r\n    procedure SmoothCurveTo(const ControlPoint2, EndPoint: TPointF);\r\n    procedure QuadCurveTo(const ControlPoint, EndPoint: TPointF);\r\n    procedure AddPolygon(const APolygon: TTMSFNCGraphicsPathPolygon);\r\n    procedure ClosePath;\r\n    procedure AddLine(const StartPoint, EndPoint: TPointF);\r\n    procedure AddEllipse(const ARect: TRectF);\r\n    procedure AddRectangle(const ARect: TRectF; ARoundingX: Single = 0.0; ARoundingY: Single = 0.0; ACorners: TTMSFNCGraphicsCorners = [gcTopLeft, gcTopRight, gcBottomLeft, gcBottomRight]);\r\n    procedure AddArc(const Center, Radius: TPointF; StartAngle, SweepAngle: Single);\r\n    procedure AddPath(APath: TTMSFNCGraphicsPath);\r\n    procedure ApplyMatrix(AMatrix: TTMSFNCGraphicsMatrix);\r\n    procedure Clear;\r\n    procedure Flatten(const Flatness: Single = 0.25);\r\n    procedure FlattenToPolygon(var Polygon: TTMSFNCGraphicsPathPolygon; const Flatness: Single = 0.25);\r\n    property Count: Integer read GetCount;\r\n    property Points[AIndex: Integer]: TTMSFNCGraphicsPathPoint read GetPoint; default;\r\n    property PathData: TTMSFNCGraphicsPathPoints read FPoints;\r\n    property Clippable: Boolean read FClippable write FClippable;\r\n  end;\r\n\r\n  TTMSFNCGraphicsColorObject = class\r\n  private\r\n    FColor: TTMSFNCGraphicsColor;\r\n  public\r\n    constructor Create(AColor: TTMSFNCGraphicsColor);\r\n    property Color: TTMSFNCGraphicsColor read FColor write FColor;\r\n  end;\r\n\r\n  TTMSFNCGraphicsModifyRectMode = (gcrmNone, gcrmExpandAll, gcrmShrinkAll, gcrmShiftRightAndExpandHeight, gcrmShiftDownAndExpandWidth,\r\n    gcrmShiftRightAndShrinkHeight, gcrmShiftRightDown, gcrmShiftRightUp, gcrmShiftLeftUp, gcrmShiftLeftDown, gcrmShiftUpAndExpandWidth,\r\n    gcrmShiftLeftAndExpandHeight);\r\n  TTMSFNCGraphicsModifyPointMode = (gcpmNone, gcpmLeftUp, gcpmRightDown, gcpmLeftDown, gcpmRightUp);\r\n  TTMSFNCGraphicsExpanderState = (gesCollapsed, gesExpanded);\r\n  TTMSFNCGraphicsCompactState = (gcsCollapsed, gcsExpanded);\r\n\r\n  {$IFDEF LCLWEBLIB}\r\n  TTMSFNCGraphicsColorList = class(TStringList)\r\n  public\r\n    procedure AddOrSetValue(AKey: string; AValue: TTMSFNCGraphicsColorObject);\r\n    function TryGetValue(AKey: string; var AValue: TTMSFNCGraphicsColorObject): Boolean;\r\n  end;\r\n  {$ELSE}\r\n  TTMSFNCGraphicsColorList = class(TObjectDictionary<string, TTMSFNCGraphicsColorObject>);\r\n  {$ENDIF}\r\n\r\nfunction ModifyRect(const ARect: TRectF; const {%H-}ARectMode: TTMSFNCGraphicsModifyRectMode): TRectF;\r\nfunction ModifyPoint(const APoint: TPointF; const {%H-}APointMode: TTMSFNCGraphicsModifyPointMode): TPointF;\r\nfunction MakeGraphicsColor(ARed, AGreen, ABlue: Byte{$IFDEF FMXLIB};AAlpha: Byte = 255{$ENDIF}): TTMSFNCGraphicsColor;\r\nfunction Lighter(AColor: TTMSFNCGraphicsColor; APercent: Byte): TTMSFNCGraphicsColor;\r\nfunction Darker(AColor: TTMSFNCGraphicsColor; APercent: Byte): TTMSFNCGraphicsColor;\r\nfunction Blend(AColor1: TTMSFNCGraphicsColor; AColor2: TTMSFNCGraphicsColor; ALevel: Byte): TTMSFNCGraphicsColor;\r\nfunction ColorLookup: TTMSFNCGraphicsColorList;\r\nfunction PointInPoly(APoint: TPointF; APolygon: TTMSFNCGraphicsPathPolygon): Boolean;\r\nfunction RectInPoly(ARect: TRectF; APolygon: TTMSFNCGraphicsPathPolygon): Boolean;\r\nfunction PolyInRect(APolygon: TTMSFNCGraphicsPathPolygon; ARect: TRectF): Boolean;\r\n{$IFDEF CMNWEBLIB}\r\n{$IFDEF WEBLIB}\r\nprocedure DrawGradient(ACanvas: TCanvas; AColor, AColorTo: TColor; ARect: TRectF; ARounding: Single; ACorners: TTMSFNCGraphicsCorners; ADirection: Boolean);\r\n{$ENDIF}\r\n{$IFNDEF WEBLIB}\r\nprocedure DrawGradient(ACanvas: TCanvas; AColor, AColorTo: TColor; ARect: TRect; ARounding: Single; ACorners: TTMSFNCGraphicsCorners; ADirection: Boolean);\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\nfunction IsMatrixEmpty(const AMatrix: TTMSFNCGraphicsMatrix): Boolean;\r\nfunction MatrixEmpty: TTMSFNCGraphicsMatrix;\r\nfunction MatrixIdentity: TTMSFNCGraphicsMatrix;\r\nfunction MatrixCreateRotation(const AAngle: Single): TTMSFNCGraphicsMatrix;\r\nfunction MatrixCreateScaling(const AScaleX, AScaleY: Single): TTMSFNCGraphicsMatrix;\r\nfunction MatrixCreateTranslation(const ADeltaX, ADeltaY: Single): TTMSFNCGraphicsMatrix;\r\nfunction MatrixMultiply(const AMatrix1, AMatrix2: TTMSFNCGraphicsMatrix): TTMSFNCGraphicsMatrix; overload;\r\nfunction MatrixMultiply(const APoint: TPointF; const AMatrix: TTMSFNCGraphicsMatrix): TPointF; overload;\r\n\r\nimplementation\r\n\r\nuses\r\n  WEBLib.TMSFNCUtils, SysUtils, Math\r\n  {$IFDEF FMXLIB}\r\n  ,UIConsts\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  {$IFNDEF MSWINDOWS}\r\n  ,LCLIntF\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  ;\r\n\r\nvar\r\n  FColorLookup: TTMSFNCGraphicsColorList;\r\n\r\nfunction IsMatrixEmpty(const AMatrix: TTMSFNCGraphicsMatrix): Boolean;\r\nbegin\r\n  Result := (AMatrix.m11 = 0) and\r\n            (AMatrix.m12 = 0) and\r\n            (AMatrix.m13 = 0) and\r\n            (AMatrix.m21 = 0) and\r\n            (AMatrix.m22 = 0) and\r\n            (AMatrix.m23 = 0) and\r\n            (AMatrix.m31 = 0) and\r\n            (AMatrix.m32 = 0) and\r\n            (AMatrix.m33 = 0);\r\n\r\nend;\r\n\r\nfunction MatrixIdentity: TTMSFNCGraphicsMatrix;\r\nbegin\r\n  Result.m11 := 1;\r\n  Result.m12 := 0;\r\n  Result.m13 := 0;\r\n  Result.m21 := 0;\r\n  Result.m22 := 1;\r\n  Result.m23 := 0;\r\n  Result.m31 := 0;\r\n  Result.m32 := 0;\r\n  Result.m33 := 1;\r\nend;\r\n\r\nfunction MatrixEmpty: TTMSFNCGraphicsMatrix;\r\nbegin\r\n  Result.m11 := 0;\r\n  Result.m12 := 0;\r\n  Result.m13 := 0;\r\n  Result.m21 := 0;\r\n  Result.m22 := 0;\r\n  Result.m23 := 0;\r\n  Result.m31 := 0;\r\n  Result.m32 := 0;\r\n  Result.m33 := 0;\r\nend;\r\n\r\nfunction MatrixCreateRotation(const AAngle: Single): TTMSFNCGraphicsMatrix;\r\nvar\r\n  S, C: Single;\r\nbegin\r\n  S := Sin(AAngle);\r\n  C := Cos(AAngle);\r\n  Result := MatrixIdentity;\r\n  Result.m11 := C;\r\n  Result.m12 := S;\r\n  Result.m21 := -S;\r\n  Result.m22 := C;\r\nend;\r\n\r\nfunction MatrixCreateScaling(const AScaleX, AScaleY: Single): TTMSFNCGraphicsMatrix;\r\nbegin\r\n  Result := MatrixIdentity;\r\n  Result.m11 := AScaleX;\r\n  Result.m22 := AScaleY;\r\nend;\r\n\r\nfunction MatrixCreateTranslation(const ADeltaX, ADeltaY: Single): TTMSFNCGraphicsMatrix;\r\nbegin\r\n  Result := MatrixIdentity;\r\n  Result.m31 := ADeltaX;\r\n  Result.m32 := ADeltaY;\r\nend;\r\n\r\nfunction MatrixMultiply(const APoint: TPointF; const AMatrix: TTMSFNCGraphicsMatrix): TPointF;\r\nbegin\r\n  Result.X := APoint.X * AMatrix.m11 + APoint.Y * AMatrix.m21 + AMatrix.m31;\r\n  Result.Y := APoint.X * AMatrix.m12 + APoint.Y * AMatrix.m22 + AMatrix.m32;\r\nend;\r\n\r\nfunction MatrixMultiply(const AMatrix1, AMatrix2: TTMSFNCGraphicsMatrix): TTMSFNCGraphicsMatrix;\r\nbegin\r\n  Result.m11 := AMatrix1.m11 * AMatrix2.m11 + AMatrix1.m12 * AMatrix2.m21 + AMatrix1.m13 * AMatrix2.m31;\r\n  Result.m12 := AMatrix1.m11 * AMatrix2.m12 + AMatrix1.m12 * AMatrix2.m22 + AMatrix1.m13 * AMatrix2.m32;\r\n  Result.m13 := AMatrix1.m11 * AMatrix2.m13 + AMatrix1.m12 * AMatrix2.m23 + AMatrix1.m13 * AMatrix2.m33;\r\n  Result.m21 := AMatrix1.m21 * AMatrix2.m11 + AMatrix1.m22 * AMatrix2.m21 + AMatrix1.m23 * AMatrix2.m31;\r\n  Result.m22 := AMatrix1.m21 * AMatrix2.m12 + AMatrix1.m22 * AMatrix2.m22 + AMatrix1.m23 * AMatrix2.m32;\r\n  Result.m23 := AMatrix1.m21 * AMatrix2.m13 + AMatrix1.m22 * AMatrix2.m23 + AMatrix1.m23 * AMatrix2.m33;\r\n  Result.m31 := AMatrix1.m31 * AMatrix2.m11 + AMatrix1.m32 * AMatrix2.m21 + AMatrix1.m33 * AMatrix2.m31;\r\n  Result.m32 := AMatrix1.m31 * AMatrix2.m12 + AMatrix1.m32 * AMatrix2.m22 + AMatrix1.m33 * AMatrix2.m32;\r\n  Result.m33 := AMatrix1.m31 * AMatrix2.m13 + AMatrix1.m32 * AMatrix2.m23 + AMatrix1.m33 * AMatrix2.m33;\r\nend;\r\n\r\nfunction ModifyRect(const ARect: TRectF; const ARectMode: TTMSFNCGraphicsModifyRectMode): TRectF;\r\nbegin\r\n  Result := ARect;\r\n  {$IFDEF FMXWEBLIB}\r\n  case ARectMode of\r\n    gcrmExpandAll: Result := RectF(int(Result.Left) - 0.5, int(Result.Top) - 0.5, int(Result.Right) + 0.5, int(Result.Bottom) + 0.5);\r\n    gcrmShrinkAll: Result := RectF(int(Result.Left) + 0.5, int(Result.Top) + 0.5, int(Result.Right) - 0.5, int(Result.Bottom) - 0.5);\r\n    gcrmShiftRightAndExpandHeight: Result := RectF(int(Result.Left) + 0.5, int(Result.Top) - 0.5, int(Result.Right) + 0.5, int(Result.Bottom) + 0.5);\r\n    gcrmShiftRightDown: Result := RectF(int(Result.Left) + 0.5, int(Result.Top) + 0.5, int(Result.Right) + 0.5, int(Result.Bottom) + 0.5);\r\n    gcrmShiftRightAndShrinkHeight: Result := RectF(int(Result.Left) + 0.5, int(Result.Top) + 0.5, int(Result.Right) + 0.5, int(Result.Bottom) - 0.5);\r\n    gcrmShiftDownAndExpandWidth: Result := RectF(int(Result.Left) - 0.5, int(Result.Top) + 0.5, int(Result.Right) + 0.5, int(Result.Bottom) + 0.5);\r\n    gcrmShiftUpAndExpandWidth: Result := RectF(int(Result.Left) - 0.5, int(Result.Top) - 0.5, int(Result.Right) + 0.5, int(Result.Bottom) - 0.5);\r\n    gcrmShiftRightUp: Result := RectF(Int(Result.Left) + 0.5, Int(Result.Top) - 0.5, Int(Result.Right) + 0.5, Int(Result.Bottom) - 0.5);\r\n    gcrmShiftLeftUp: Result := RectF(Int(Result.Left) - 0.5, Int(Result.Top) - 0.5, Int(Result.Right) - 0.5, Int(Result.Bottom) - 0.5);\r\n    gcrmShiftLeftDown: Result := RectF(Int(Result.Left) - 0.5, Int(Result.Top) + 0.5, Int(Result.Right) - 0.5, Int(Result.Bottom) + 0.5);\r\n    gcrmShiftLeftAndExpandHeight: Result := RectF(int(Result.Left) - 0.5, int(Result.Top) - 0.5, int(Result.Right) - 0.5, int(Result.Bottom) + 0.5);\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction ModifyPoint(const APoint: TPointF; const APointMode: TTMSFNCGraphicsModifyPointMode): TPointF;\r\nbegin\r\n  Result := APoint;\r\n  {$IFDEF FMXWEBLIB}\r\n  case APointMode of\r\n    gcpmRightDown: Result := PointF(Int(Result.X) + 0.5, Int(Result.Y) + 0.5);\r\n    gcpmLeftUp: Result := PointF(Int(Result.X) - 0.5, Int(Result.Y) - 0.5);\r\n    gcpmRightUp: Result := PointF(Int(Result.X) + 0.5, Int(Result.Y) - 0.5);\r\n    gcpmLeftDown: Result := PointF(Int(Result.X) - 0.5, Int(Result.Y) + 0.5);\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction ColorLookup: TTMSFNCGraphicsColorList;\r\nbegin\r\n  Result := FColorLookup;\r\nend;\r\n\r\nfunction PolyInRect(APolygon: TTMSFNCGraphicsPathPolygon; ARect: TRectF): Boolean;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := False;\r\n  for I := 0 to Length(APolygon) - 1 do\r\n  begin\r\n    if PtInRectEx(ARect, APolygon[I]) then\r\n    begin\r\n      Result := True;\r\n      Exit;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction RectInPoly(ARect: TRectF; APolygon: TTMSFNCGraphicsPathPolygon): Boolean;\r\nbegin\r\n  Result := PointInPoly(PointF(ARect.Left, ARect.Top), APolygon)\r\n    or PointInPoly(PointF(ARect.Right, ARect.Top), APolygon)\r\n    or PointInPoly(PointF(ARect.Left, ARect.Bottom), APolygon)\r\n    or PointInPoly(PointF(ARect.Right, ARect.Bottom), APolygon);\r\nend;\r\n\r\nfunction PointInPoly(APoint: TPointF; APolygon: TTMSFNCGraphicsPathPolygon): Boolean;\r\nvar\r\n  minX, maxX, minY, maxY: Double;\r\n  I, J: Integer;\r\n  q: TPointF;\r\n  pt, ptn: TPointF;\r\n  inside, chk: Boolean;\r\n  calc: Double;\r\n  chkc: Boolean;\r\nbegin\r\n  Result := False;\r\n  if Length(APolygon) = 0 then\r\n    Exit;\r\n\r\n  minX := APolygon[0].X;\r\n  maxX := APolygon[0].X;\r\n  minY := APolygon[0].Y;\r\n  maxY := APolygon[0].Y;\r\n\r\n  for I := 1 to Length(APolygon) - 1 do\r\n  begin\r\n    q := APolygon[I];\r\n    minX := Min(q.X, minX);\r\n    maxX := Max(q.X, maxX);\r\n    minY := Min(q.Y, minY);\r\n    maxY := Max(q.Y, maxY);\r\n  end;\r\n\r\n  if (APoint.X < minX) or (APoint.X > maxX) or (APoint.Y < minY) or (APoint.Y > maxY) then\r\n  begin\r\n    Result := False;\r\n    Exit;\r\n  end;\r\n\r\n  inside := False;\r\n  J := Length(APolygon) - 1;\r\n  for I := 0 to Length(APolygon) - 1 do\r\n  begin\r\n    pt := APolygon[I];\r\n    ptn := APolygon[J];\r\n    chk := (pt.Y > APoint.Y) <> (ptn.Y > APoint.Y);\r\n    if (ptn.Y - pt.Y) <> 0 then\r\n    begin\r\n      calc := (ptn.X - pt.X) * (APoint.Y - pt.Y) / (ptn.Y - pt.Y) + pt.X;\r\n      chkc := APoint.X < calc;\r\n      if chk and chkc then\r\n        inside := not inside;\r\n    end;\r\n\r\n    j := I;\r\n  end;\r\n  Result := inside;\r\nend;\r\n\r\nfunction Blend(AColor1: TTMSFNCGraphicsColor; AColor2: TTMSFNCGraphicsColor; ALevel: Byte): TTMSFNCGraphicsColor;\r\nvar\r\n  c1, c2: Int64;\r\n  r, g, b, v1, v2: byte;\r\nbegin\r\n  ALevel := Round(2.55 * ALevel);\r\n  {$IFDEF CMNWEBLIB}\r\n  c1 := ColorToRGB(AColor1);\r\n  c2 := ColorToRGB(AColor2);\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  c1 := AColor1;\r\n  c2 := AColor2;\r\n  {$ENDIF}\r\n  v1 := Byte(c1);\r\n  v2 := Byte(c2);\r\n  r := Max(0, Min(255, ALevel * (v1 - v2) shr 8 + v2));\r\n  v1 := Byte(c1 shr 8);\r\n  v2 := Byte(c2 shr 8);\r\n  g := Max(0, Min(255, ALevel * (v1 - v2) shr 8 + v2));\r\n  v1 := Byte(c1 shr 16);\r\n  v2 := Byte(c2 shr 16);\r\n  b := Max(0, Min(255, ALevel * (v1 - v2) shr 8 + v2));\r\n  {$IFDEF CMNWEBLIB}\r\n  Result := (b shl 16) + (g shl 8) + r;\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  Result := MakeGraphicsColor(r, g, b);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction Lighter(AColor: TTMSFNCGraphicsColor; APercent: Byte): TTMSFNCGraphicsColor;\r\nvar\r\n  r, g, b: Byte;\r\nbegin\r\n  {$IFDEF CMNWEBLIB}\r\n  AColor := ColorToRGB(AColor);\r\n  r := GetRValue(AColor);\r\n  g := GetGValue(AColor);\r\n  b := GetBValue(AColor);\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  r := TAlphaColorRec(AColor).R;\r\n  g := TAlphaColorRec(AColor).G;\r\n  b := TAlphaColorRec(AColor).B;\r\n  {$ENDIF}\r\n\r\n  {$RANGECHECKS OFF}\r\n  r := r + Min(255, TTMSFNCUtils.MulDivInt(255 - r, APercent, 100));\r\n  g := g + Min(255, TTMSFNCUtils.MulDivInt(255 - g, APercent, 100));\r\n  b := b + Min(255, TTMSFNCUtils.MulDivInt(255 - b, APercent, 100));\r\n  {$RANGECHECKS ON}\r\n\r\n  {$IFDEF FMXLIB}\r\n  Result := MakeGraphicsColor(r, g, b, TAlphaColorRec(AColor).A);\r\n  {$ENDIF}\r\n\r\n  {$IFDEF CMNWEBLIB}\r\n  Result := MakeGraphicsColor(r, g, b);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction Darker(AColor: TTMSFNCGraphicsColor; APercent: Byte): TTMSFNCGraphicsColor;\r\nvar\r\n  r, g, b: Byte;\r\nbegin\r\n  {$IFDEF CMNWEBLIB}\r\n  AColor := ColorToRGB(AColor);\r\n  r := GetRValue(AColor);\r\n  g := GetGValue(AColor);\r\n  b := GetBValue(AColor);\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  r := TAlphaColorRec(AColor).R;\r\n  g := TAlphaColorRec(AColor).G;\r\n  b := TAlphaColorRec(AColor).B;\r\n  {$ENDIF}\r\n\r\n  {$RANGECHECKS OFF}\r\n  r := r - Max(0, TTMSFNCUtils.MulDivInt(255 - r, APercent, 100));\r\n  g := g - Max(0, TTMSFNCUtils.MulDivInt(255 - g, APercent, 100));\r\n  b := b - Max(0, TTMSFNCUtils.MulDivInt(255 - b, APercent, 100));\r\n  {$RANGECHECKS ON}\r\n\r\n  {$IFDEF FMXLIB}\r\n  Result := MakeGraphicsColor(r, g, b, TAlphaColorRec(AColor).A);\r\n  {$ENDIF}\r\n\r\n  {$IFDEF CMNWEBLIB}\r\n  Result := MakeGraphicsColor(r, g, b);\r\n  {$ENDIF}\r\nend;\r\n\r\n{$IFDEF CMNWEBLIB}\r\n{$IFDEF WEBLIB}\r\nprocedure DrawGradient(ACanvas: TCanvas; AColor, AColorTo: TColor;\r\n  ARect: TRectF; ARounding: Single; ACorners: TTMSFNCGraphicsCorners; ADirection: Boolean);\r\n{$ENDIF}\r\n{$IFNDEF WEBLIB}\r\nprocedure DrawGradient(ACanvas: TCanvas; AColor, AColorTo: TColor;\r\n  ARect: TRect; ARounding: Single; ACorners: TTMSFNCGraphicsCorners; ADirection: Boolean);\r\n{$ENDIF}\r\nvar\r\n  diffr,startr,endr: Integer;\r\n  diffg,startg,endg: Integer;\r\n  diffb,startb,endb: Integer;\r\n  si: Integer;\r\n  rstepr,rstepg,rstepb,rstepw: Single;\r\n  i,stepw: Word;\r\n  oldp, oldb: TColor;\r\n  Steps: Integer;\r\n  {$IFDEF WEBLIB}\r\n  R, dr: TRectF;\r\n  iend: Single;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  R, dr: TRect;\r\n  iend: Integer;\r\n  {$ENDIF}\r\n  a: Single;\r\n  oldps: TPenStyle;\r\n  oldbs: TBrushStyle;\r\nbegin\r\n  R := ARect;\r\n\r\n  {$IFDEF WEBLIB}\r\n  if ADirection then\r\n    Steps := Round(R.Right - R.Left)\r\n  else\r\n    Steps := Round(R.Bottom - R.Top);\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  if ADirection then\r\n    Steps := R.Right - R.Left\r\n  else\r\n    Steps := R.Bottom - R.Top;\r\n  {$ENDIF}\r\n\r\n  if Steps = 0 then\r\n    Steps := 1;\r\n\r\n  AColor := ColorToRGB(AColor);\r\n  AColorTo := ColorToRGB(AColorTo);\r\n\r\n  startr := (AColor and $0000FF);\r\n  startg := (AColor and $00FF00) shr 8;\r\n  startb := (AColor and $FF0000) shr 16;\r\n\r\n  endr := (AColorTo and $0000FF);\r\n  endg := (AColorTo and $00FF00) shr 8;\r\n  endb := (AColorTo and $FF0000) shr 16;\r\n\r\n  diffr := endr - startr;\r\n  diffg := endg - startg;\r\n  diffb := endb - startb;\r\n\r\n  rstepr := diffr / steps;\r\n  rstepg := diffg / steps;\r\n  rstepb := diffb / steps;\r\n\r\n  if ADirection then\r\n    rstepw := (R.Right - R.Left) / Steps\r\n  else\r\n    rstepw := (R.Bottom - R.Top) / Steps;\r\n\r\n  with ACanvas do\r\n  begin\r\n    oldb := Brush.Color;\r\n    oldbs := Brush.Style;\r\n    oldp := Pen.Color;\r\n    oldps := Pen.Style;\r\n    Pen.Style := psSolid;\r\n    Brush.Style := bsSolid;\r\n    for i := 0 to Steps - 1 do\r\n    begin\r\n      endr := startr + Round(rstepr*i);\r\n      endg := startg + Round(rstepg*i);\r\n      endb := startb + Round(rstepb*i);\r\n      stepw := Round(i*rstepw);\r\n      Pen.Color := endr + (endg shl 8) + (endb shl 16);\r\n      Brush.Color := Pen.Color;\r\n\r\n      if ADirection then\r\n      begin\r\n        si := Trunc(rstepw);\r\n        iend := R.Left + stepw + si;\r\n        iend := Min(iend, R.Right);\r\n\r\n        dr := r;\r\n\r\n        if (I <= ARounding) and ((gcTopLeft in ACorners) or (gcBottomLeft in ACorners)) then\r\n        begin\r\n          a := SQRT(Power(ARounding, 2) - Power(ARounding - I, 2));\r\n\r\n          if (gcTopLeft in ACorners) then\r\n            dr.Top := dr.Top + Round(ARounding - a);\r\n\r\n          if (gcBottomLeft in ACorners) then\r\n            dr.Bottom := dr.Bottom - Round(ARounding - a);\r\n        end\r\n        else if (I >= Steps - ARounding) and ((gcBottomRight in ACorners) or (gcTopRight in ACorners)) then\r\n        begin\r\n          a := SQRT(Power(ARounding, 2) - Power(ARounding - (Steps - I), 2));\r\n\r\n          if (gcTopRight in ACorners) then\r\n            dr.Top := dr.Top + Round(ARounding - a);\r\n\r\n          if (gcBottomRight in ACorners) then\r\n            dr.Bottom := dr.Bottom - Round(ARounding - a);\r\n        end;\r\n\r\n        Rectangle(dr.Left + stepw, dr.Top, iend, dr.Bottom)\r\n      end\r\n      else\r\n      begin\r\n        si := Trunc(rstepw);\r\n        iend := R.Top + stepw + si;\r\n        iend := Min(iend, r.Bottom);\r\n\r\n        dr := r;\r\n\r\n        if (I <= ARounding) and ((gcTopLeft in ACorners) or (gcTopRight in ACorners)) then\r\n        begin\r\n          a := SQRT(Power(ARounding, 2) - Power(ARounding - I, 2));\r\n\r\n          if (gcTopLeft in ACorners) then\r\n            dr.Left := dr.Left + Round(ARounding - a);\r\n\r\n          if (gcTopRight in ACorners) then\r\n            dr.Right := dr.Right - Round(ARounding - a);\r\n        end\r\n        else if (I >= Steps - ARounding) and ((gcBottomLeft in ACorners) or (gcBottomRight in ACorners)) then\r\n        begin\r\n          a := SQRT(Power(ARounding, 2) - Power(ARounding - (Steps - I), 2));\r\n\r\n          if (gcBottomLeft in ACorners) then\r\n            dr.Left := dr.Left + Round(ARounding - a);\r\n\r\n          if (gcBottomRight in ACorners) then\r\n            dr.Right := dr.Right - Round(ARounding - a);\r\n        end;\r\n\r\n        Rectangle(dr.Left, dr.Top + stepw, dr.Right, iend);\r\n      end;\r\n    end;\r\n    Brush.Color := oldb;\r\n    Brush.Style := oldbs;\r\n    Pen.Color := oldp;\r\n    Pen.style := oldps;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nfunction MakeGraphicsColor(ARed, AGreen, ABlue: Byte{$IFDEF FMXLIB};AAlpha: Byte = 255{$ENDIF}): TTMSFNCGraphicsColor;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Result := MakeColor(ARed, AGreen, ABlue, AAlpha);\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  Result := RGB(ARed, AGreen, ABlue);\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  Result := RGBToColor(ARed, AGreen, ABlue);\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Result := RGB(ARed, AGreen, ABlue);\r\n  {$ENDIF}\r\nend;\r\n\r\n{ TTMSFNCGraphicsFont }\r\n\r\nprocedure TTMSFNCGraphicsFont.BeginUpdate;\r\nbegin\r\n  Inc(FUpdateCount);\r\nend;\r\n\r\nconstructor TTMSFNCGraphicsFont.Create;\r\nbegin\r\n  inherited Create;\r\n  {$IFDEF FMXLIB}\r\n  FColor := gcBlack;\r\n  inherited OnChanged := DoChanged;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  Height := -12;\r\n  OnChange := @DoChanged;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsFont.EndUpdate;\r\nbegin\r\n  Dec(FUpdateCount);\r\n  DoChanged(Self);\r\nend;\r\n\r\n{$IFDEF CMNWEBLIB}\r\n{$IFDEF LCLLIB}\r\nprocedure TTMSFNCGraphicsFont.Changed;\r\nbegin\r\n  inherited;\r\n  DoChanged(Self);\r\nend;\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCGraphicsFont.DoChanged(Sender: TObject);\r\nbegin\r\n  if Assigned(OnChanged) and (FUpdateCount = 0) then\r\n    OnChanged(Self);\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsFont.AssignSource(Source: TPersistent);\r\nbegin\r\n  Assign(Source);\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsFont.Assign(Source: TPersistent);\r\nbegin\r\n  inherited Assign(Source);\r\n  {$IFDEF FMXLIB}\r\n  if Source is TTMSFNCGraphicsFont then\r\n    FColor := (Source as TTMSFNCGraphicsFont).Color;\r\n  {$ENDIF}\r\n  DoChanged(Self);\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nfunction TTMSFNCGraphicsFont.IsNameStored: Boolean;\r\nbegin\r\n  Result := Name <> DefaultFamily;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsFont.SetName(const Value: string);\r\nbegin\r\n  Family := Value;\r\nend;\r\n\r\nfunction TTMSFNCGraphicsFont.GetName: string;\r\nbegin\r\n  Result := Family;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsFont.SetColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FColor <> Value then\r\n  begin\r\n    FColor := Value;\r\n    {$IFDEF CMNWEBLIB}\r\n    if FColor = clNone then\r\n      FColor := gcNull\r\n    else if FColor = clDefault then\r\n      FColor := clBtnFace;\r\n    {$ENDIF}\r\n    DoChanged(Self);\r\n  end;\r\nend;\r\n\r\n{$ENDIF}\r\n\r\n{ TTMSFNCGraphicsSaveState }\r\n\r\nconstructor TTMSFNCGraphicsSaveState.Create;\r\nbegin\r\n  inherited;\r\n  FFill := TTMSFNCGraphicsFill.Create;\r\n  FStroke := TTMSFNCGraphicsStroke.Create;\r\n  FFont := TTMSFNCGraphicsFont.Create;\r\nend;\r\n\r\ndestructor TTMSFNCGraphicsSaveState.Destroy;\r\nbegin\r\n  FFill.Free;\r\n  FStroke.Free;\r\n  FFont.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsSaveState.SetFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsSaveState.SetFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FFont.AssignSource(Value);\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsSaveState.SetStroke(const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FStroke.Assign(Value);\r\nend;\r\n\r\n{ TTMSFNCCustomGraphicsFill }\r\n\r\nfunction TTMSFNCCustomGraphicsFill.AddGradientItem(AColor: TTMSFNCGraphicsColor;\r\n  APosition, AOpacity: Single): TTMSFNCGraphicsFillGradientItem;\r\nbegin\r\n  Result := GradientItems.Add;\r\n  Result.Color := AColor;\r\n  Result.Position := APosition;\r\n  Result.Opacity := AOpacity;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsFill.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCCustomGraphicsFill then\r\n  begin\r\n    FColor := (Source as TTMSFNCCustomGraphicsFill).Color;\r\n    FColorTo := (Source as TTMSFNCCustomGraphicsFill).ColorTo;\r\n    FColorMirror := (Source as TTMSFNCCustomGraphicsFill).ColorMirror;\r\n    FColorMirrorTo := (Source as TTMSFNCCustomGraphicsFill).ColorMirrorTo;\r\n    FKind := (Source as TTMSFNCCustomGraphicsFill).Kind;\r\n    FOrientation := (Source as TTMSFNCCustomGraphicsFill).Orientation;\r\n    FOpacity := (Source as TTMSFNCCustomGraphicsFill).Opacity;\r\n    FTexture.Assign((Source as TTMSFNCCustomGraphicsFill).Texture);\r\n    FTextureMode := (Source as TTMSFNCCustomGraphicsFill).TextureMode;\r\n    FGradientMode := (Source as TTMSFNCCustomGraphicsFill).GradientMode;\r\n    FGradientAngle := (Source as TTMSFNCCustomGraphicsFill).GradientAngle;\r\n    FGradientCenterPoint := (Source as TTMSFNCCustomGraphicsFill).GradientCenterPoint;\r\n    FGradientItems.Assign((Source as TTMSFNCCustomGraphicsFill).GradientItems);\r\n    FGradientType := (Source as TTMSFNCCustomGraphicsFill).GradientType;\r\n    FGradientCenterColor := (Source as TTMSFNCCustomGraphicsFill).GradientCenterColor;\r\n  end\r\n  else if Source is TTMSFNCCustomGraphicsStroke then\r\n  begin\r\n    FColor := (Source as TTMSFNCCustomGraphicsStroke).Color;\r\n    FColorTo := gcNull;\r\n    FColorMirror := gcNull;\r\n    FColorMirrorTo := gcNull;\r\n    FKind := gfkSolid;\r\n    FOrientation := gfoVertical;\r\n    FOpacity := 1;\r\n  end;\r\n  Changed;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsFill.BeginUpdate;\r\nbegin\r\n  inc(FUpdateCount);\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsFill.Changed;\r\nbegin\r\n  if Assigned(OnChanged) and (FUpdateCount = 0) then\r\n    OnChanged(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsFill.ClearGradientItems;\r\nbegin\r\n  GradientItems.Clear;\r\nend;\r\n\r\nconstructor TTMSFNCCustomGraphicsFill.Create(const AKind: TTMSFNCGraphicsFillKind = gfkSolid; const AColor: TTMSFNCGraphicsColor = gcWhite; const AColorTo: TTMSFNCGraphicsColor = gcGray; const AColorMirror: TTMSFNCGraphicsColor = gcNull; const AColorMirrorTo: TTMSFNCGraphicsColor = gcNull);\r\nbegin\r\n  FGradientItems := TTMSFNCGraphicsFillGradientItems.Create(Self);\r\n  FKind := AKind;\r\n  FDefaultKind := AKind;\r\n  FGradientMatrix := MatrixIdentity;\r\n  FGradientCenterColor := gcNull;\r\n  FGradientMode := gfgmDefault;\r\n  FGradientAngle := 0.0;\r\n  FGradientCenterPoint := PointF(0, 0);\r\n  FGradientType := gfgtLinear;\r\n  FColor := AColor;\r\n  FDefaultColor := AColor;\r\n  FOpacity := 1;\r\n  FOrientation := gfoVertical;\r\n  FColorTo := AColorTo;\r\n  FColorMirror := AColorMirror;\r\n  FColorMirrorTo := AColorMirrorto;\r\n  FDefaultColorTo := AColorTo;\r\n  FDefaultColorMirror := AColorMirror;\r\n  FDefaultColorMirrorTo := AColorMirrorTo;\r\n  FTextureMode := gtmStretch;\r\n  FTexture := TTMSFNCBitmap.Create;\r\n  FTexture.OnChange := @TextureChanged;\r\nend;\r\n\r\ndestructor TTMSFNCCustomGraphicsFill.Destroy;\r\nbegin\r\n  FTexture.Free;\r\n  FGradientItems.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsFill.EndUpdate;\r\nbegin\r\n  Dec(FUpdateCount);\r\n  Changed;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsFill.SetColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FColor <> Value then\r\n  begin\r\n    FColor := Value;\r\n    {$IFDEF CMNWEBLIB}\r\n    if FColor = clNone then\r\n      FColor := gcNull\r\n    else if FColor = clDefault then\r\n      FColor := clBtnFace;\r\n    {$ENDIF}\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsFill.SetColorTo(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FColorTo <> Value then\r\n  begin\r\n    FColorTo := Value;\r\n    {$IFDEF CMNWEBLIB}\r\n    if FColorTo = clNone then\r\n      FColorTo := gcNull\r\n    else if FColorTo = clDefault then\r\n      FColorTo := clBtnFace;\r\n    {$ENDIF}\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsFill.SetGradientAngle(const Value: Single);\r\nbegin\r\n  if FGradientAngle <> Value then\r\n  begin\r\n    FGradientAngle := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsFill.SetGradientCenterColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FGradientCenterColor <> Value then\r\n  begin\r\n    FGradientCenterColor := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsFill.SetGradientCenterPoint(\r\n  const Value: TPointF);\r\nbegin\r\n  FGradientCenterPoint := Value;\r\n  Changed;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsFill.SetGradientItems(\r\n  const Value: TTMSFNCGraphicsFillGradientItems);\r\nbegin\r\n  FGradientItems.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsFill.SetGradientMode(\r\n  const Value: TTMSFNCGraphicsFillGradientMode);\r\nbegin\r\n  if FGradientMode <> Value then\r\n  begin\r\n    FGradientMode := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsFill.SetGradientType(\r\n  const Value: TTMSFNCGraphicsFillGradientType);\r\nbegin\r\n  if FGradientType <> Value then\r\n  begin\r\n    FGradientType := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsFill.SetColorMirror(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FColorMirror <> Value then\r\n  begin\r\n    FColorMirror := Value;\r\n    {$IFDEF CMNWEBLIB}\r\n    if FColorMirror = clNone then\r\n      FColorMirror := gcNull\r\n    else if FColorMirror = clDefault then\r\n      FColorMirror := clBtnFace;\r\n    {$ENDIF}\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsFill.SetColorMirrorTo(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FColorMirrorTo <> Value then\r\n  begin\r\n    FColorMirrorTo := Value;\r\n    {$IFDEF CMNWEBLIB}\r\n    if FColorMirrorTo = clNone then\r\n      FColorMirrorTo := gcNull\r\n    else if FColorMirrorTo = clDefault then\r\n      FColorMirrorTo := clBtnFace;\r\n    {$ENDIF}\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsFill.SetKind(const Value: TTMSFNCGraphicsFillKind);\r\nbegin\r\n  if FKind <> Value then\r\n  begin\r\n    FKind := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsFill.SetOrientation(const Value: TTMSFNCGraphicsFillOrientation);\r\nbegin\r\n  if FOrientation <> Value then\r\n  begin\r\n    FOrientation := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsFill.SetTexture(const Value: TTMSFNCBitmap);\r\nbegin\r\n  if FTexture <> Value then\r\n  begin\r\n    FTexture.Assign(Value);\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsFill.SetTextureMode(\r\n  const Value: TTMSFNCGraphicsTextureMode);\r\nbegin\r\n  if FTextureMode <> Value then\r\n  begin\r\n    FTextureMode := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsFill.TextureChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsFill.SetOpacity(const Value: Single);\r\nbegin\r\n  if FOpacity <> Value then\r\n  begin\r\n    FOpacity := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomGraphicsFill.IsColorMirrorStored: Boolean;\r\nbegin\r\n  Result := ColorMirror <> FDefaultColorMirror;\r\nend;\r\n\r\nfunction TTMSFNCCustomGraphicsFill.IsColorMirrorToStored: Boolean;\r\nbegin\r\n  Result := ColorMirrorTo <> FDefaultColorMirrorTo;\r\nend;\r\n\r\nfunction TTMSFNCCustomGraphicsFill.IsColorStored: Boolean;\r\nbegin\r\n  Result := Color <> FDefaultColor;\r\nend;\r\n\r\nfunction TTMSFNCCustomGraphicsFill.IsColorToStored: Boolean;\r\nbegin\r\n  Result := ColorTo <> FDefaultColorTo;\r\nend;\r\n\r\nfunction TTMSFNCCustomGraphicsFill.IsGradientAngleStored: Boolean;\r\nbegin\r\n  Result := GradientAngle <> 0;\r\nend;\r\n\r\nfunction TTMSFNCCustomGraphicsFill.IsKindStored: Boolean;\r\nbegin\r\n  Result := Kind <> FDefaultKind;\r\nend;\r\n\r\nfunction TTMSFNCCustomGraphicsFill.IsOpacityStored: Boolean;\r\nbegin\r\n  Result := Opacity <> 1;\r\nend;\r\n\r\n{ TTMSFNCGraphicsFillGradientItems }\r\n\r\nfunction TTMSFNCGraphicsFillGradientItems.Add: TTMSFNCGraphicsFillGradientItem;\r\nbegin\r\n  Result := TTMSFNCGraphicsFillGradientItem(inherited Add);\r\nend;\r\n\r\nconstructor TTMSFNCGraphicsFillGradientItems.Create(AOwner: TTMSFNCCustomGraphicsFill);\r\nbegin\r\n  inherited Create(AOwner, GetGradientClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCGraphicsFillGradientItems.GetGradientClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCGraphicsFillGradientItem;\r\nend;\r\n\r\nfunction TTMSFNCGraphicsFillGradientItems.GetItemEx(Index: Integer): TTMSFNCGraphicsFillGradientItem;\r\nbegin\r\n  Result := TTMSFNCGraphicsFillGradientItem(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCGraphicsFillGradientItems.Insert(index: Integer): TTMSFNCGraphicsFillGradientItem;\r\nbegin\r\n  Result := TTMSFNCGraphicsFillGradientItem(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsFillGradientItems.SetItemEx(Index: Integer; const Value: TTMSFNCGraphicsFillGradientItem);\r\nbegin\r\n  inherited SetItem(Index, Value);\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsFillGradientItems.UpdateGradient;\r\nbegin\r\n  if Assigned(FOwner) then\r\n    FOwner.Changed;\r\nend;\r\n\r\n{ TTMSFNCCustomGraphicsStroke }\r\n\r\nprocedure TTMSFNCCustomGraphicsStroke.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCCustomGraphicsStroke then\r\n  begin\r\n    FColor := (Source as TTMSFNCCustomGraphicsStroke).Color;\r\n    FKind := (Source as TTMSFNCCustomGraphicsStroke).Kind;\r\n    FOpacity := (Source as TTMSFNCCustomGraphicsStroke).Opacity;\r\n    FWidth := (Source as TTMSFNCCustomGraphicsStroke).Width;\r\n  end\r\n  else if Source is TTMSFNCCustomGraphicsFill then\r\n  begin\r\n    FColor := (Source as TTMSFNCCustomGraphicsFill).Color;\r\n    FKind := gskSolid;\r\n    FOpacity := 1;\r\n    FWidth := 1;\r\n  end;\r\n  Changed;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsStroke.BeginUpdate;\r\nbegin\r\n  Inc(FUpdateCount);\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsStroke.Changed;\r\nbegin\r\n  if Assigned(OnChanged) and (FUpdateCount = 0) then\r\n    OnChanged(Self);\r\nend;\r\n\r\nconstructor TTMSFNCCustomGraphicsStroke.Create(const AKind: TTMSFNCGraphicsStrokeKind = gskSolid; const AColor: TTMSFNCGraphicsColor = gcSilver);\r\nbegin\r\n  FKind := AKind;\r\n  FDefaultKind := AKind;\r\n  FColor := AColor;\r\n  FDefaultColor := AColor;\r\n  FOpacity := 1;\r\n  FWidth := 1;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsStroke.EndUpdate;\r\nbegin\r\n  Dec(FUpdateCount);\r\n  Changed;\r\nend;\r\n\r\nfunction TTMSFNCCustomGraphicsStroke.IsWidthStored: Boolean;\r\nbegin\r\n  Result := Width <> 1;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsStroke.SetColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FColor <> Value then\r\n  begin\r\n    FColor := Value;\r\n    {$IFDEF CMNWEBLIB}\r\n    if FColor = clNone then\r\n      FColor := gcNull\r\n    else if FColor = clDefault then\r\n      FColor := clBtnFace;\r\n    {$ENDIF}\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsStroke.SetKind(const Value: TTMSFNCGraphicsStrokeKind);\r\nbegin\r\n  if FKind <> Value then\r\n  begin\r\n    FKind := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsStroke.SetOpacity(const Value: Single);\r\nbegin\r\n  if FOpacity <> Value then\r\n  begin\r\n    FOpacity := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomGraphicsStroke.IsColorStored: Boolean;\r\nbegin\r\n  Result := Color <> FDefaultColor;\r\nend;\r\n\r\nfunction TTMSFNCCustomGraphicsStroke.IsKindStored: Boolean;\r\nbegin\r\n  Result := Kind <> FDefaultKind;\r\nend;\r\n\r\nfunction TTMSFNCCustomGraphicsStroke.IsOpacityStored: Boolean;\r\nbegin\r\n  Result := Opacity <> 1;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGraphicsStroke.SetWidth(const Value: Single);\r\nbegin\r\n  if FWidth <> Value then\r\n  begin\r\n    FWidth := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCGraphicsPath }\r\n\r\nconstructor TTMSFNCGraphicsPath.Create;\r\nbegin\r\n  inherited Create;\r\n  FPoints := TTMSFNCGraphicsPathPoints.Create;\r\nend;\r\n\r\ndestructor TTMSFNCGraphicsPath.Destroy;\r\nbegin\r\n  FPoints.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsPath.Assign(Source: TPersistent);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  if Source is TTMSFNCGraphicsPath then\r\n  begin\r\n    FPoints.Count := TTMSFNCGraphicsPath(Source).Count;\r\n    for I := 0 to TTMSFNCGraphicsPath(Source).Count - 1 do\r\n      FPoints[I] := TTMSFNCGraphicsPath(Source)[I];\r\n  end\r\n  else\r\n    inherited\r\nend;\r\n\r\nfunction TTMSFNCGraphicsPath.GetBounds: TRectF;\r\nconst\r\n  SmallAmount = 0.001;\r\nvar\r\n  I: Integer;\r\n  pt: TTMSFNCGraphicsPathPoint;\r\nbegin\r\n  if PathData.Count < 1 then\r\n    Exit(RectF(0, 0, 0, 0));\r\n  Result := RectF($FFFF, $FFFF, -$FFFF, -$FFFF);\r\n  for I := 0 to PathData.Count - 1 do\r\n  begin\r\n    pt := PathData[I];\r\n    if pt.Kind = TTMSFNCGraphicsPathPointKind.gppClose then\r\n      Continue;\r\n\r\n    if pt.Point.X < Result.Left then\r\n      Result.Left := pt.Point.X;\r\n    if pt.Point.X > Result.Right then\r\n      Result.Right := pt.Point.X;\r\n    if pt.Point.Y < Result.Top then\r\n      Result.Top := pt.Point.Y;\r\n    if pt.Point.Y > Result.Bottom then\r\n      Result.Bottom := pt.Point.Y;\r\n  end;\r\n  // add small amount\r\n  {$IFDEF WEBLIB}\r\n  if SameValue(Result.Right - Result.Left, 0, SmallAmount) then\r\n    Result.Right := Result.Left + SmallAmount;\r\n  if SameValue(Result.Bottom - Result.Top, 0, SmallAmount) then\r\n    Result.Bottom := Result.Top + SmallAmount;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  if SameValue(Result.Width, 0, SmallAmount) then\r\n    Result.Right := Result.Left + SmallAmount;\r\n  if SameValue(Result.Height, 0, SmallAmount) then\r\n    Result.Bottom := Result.Top + SmallAmount;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCGraphicsPath.GetCount: Integer;\r\nbegin\r\n  Result := FPoints.Count;\r\nend;\r\n\r\nfunction TTMSFNCGraphicsPath.GetPoint(AIndex: Integer): TTMSFNCGraphicsPathPoint;\r\nbegin\r\n  Result := TTMSFNCGraphicsPathPoint(FPoints[AIndex]);\r\nend;\r\n\r\nfunction TTMSFNCGraphicsPath.IsClippable: Boolean;\r\nbegin\r\n  Result := FClippable;\r\nend;\r\n\r\nfunction TTMSFNCGraphicsPath.IsPointVisible(const P: TPointF): Boolean;\r\nvar\r\n  pt: TTMSFNCGraphicsPathPolygon;\r\nbegin\r\n  SetLength(pt, 0);\r\n  FlattenToPolygon(pt);\r\n  Result := PointInPoly(p, pt);\r\nend;\r\n\r\nfunction TTMSFNCGraphicsPath.IsRectVisible(const R: TRectF): Boolean;\r\nvar\r\n  pt: TTMSFNCGraphicsPathPolygon;\r\nbegin\r\n  SetLength(pt, 0);\r\n  FlattenToPolygon(pt);\r\n  Result := PolyInRect(pt, R);\r\nend;\r\n\r\nfunction TTMSFNCGraphicsPath.LastPoint: TPointF;\r\nbegin\r\n  if Count > 0 then\r\n    Result := FPoints[FPoints.Count - 1].Point\r\n  else\r\n  begin\r\n    Result := PointF(0, 0);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsPath.MoveTo(const P: TPointF);\r\nvar\r\n  pt: TTMSFNCGraphicsPathPoint;\r\nbegin\r\n  pt.Kind := gppMoveTo;\r\n  pt.Point := p;\r\n  FPoints.Add(pt);\r\n  FStartPoint := FPoints[FPoints.Count - 1].Point;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsPath.LineTo(const P: TPointF);\r\nvar\r\n  pt: TTMSFNCGraphicsPathPoint;\r\nbegin\r\n  pt.Kind := gppLineTo;\r\n  pt.Point := p;\r\n  FPoints.Add(pt);\r\n  if (P.X = FStartPoint.X) and (P.Y = FStartPoint.Y) then\r\n    FClippable := True;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsPath.QuadCurveTo(const ControlPoint, EndPoint: TPointF);\r\nconst\r\n  OneThird = 1 / 3;\r\n  TwoThirds = 2 / 3;\r\nvar\r\n  LP, CP1, CP2: TPointF;\r\nbegin\r\n  LP := LastPoint;\r\n  CP1.X := OneThird * LP.X + TwoThirds * ControlPoint.X;\r\n  CP1.Y := OneThird * LP.Y + TwoThirds * ControlPoint.Y;\r\n  CP2.X := TwoThirds * ControlPoint.X + OneThird * EndPoint.X;\r\n  CP2.Y := TwoThirds * ControlPoint.Y + OneThird * EndPoint.Y;\r\n  CurveTo(CP1, CP2, EndPoint);\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsPath.CurveTo(const ControlPoint1, ControlPoint2, EndPoint: TPointF);\r\nvar\r\n  pt: TTMSFNCGraphicsPathPoint;\r\nbegin\r\n  pt.Kind := gppCurveTo;\r\n  pt.Point := ControlPoint1;\r\n  FPoints.Add(pt);\r\n  pt.Kind := gppCurveTo;\r\n  pt.Point := ControlPoint2;\r\n  FPoints.Add(pt);\r\n  pt.Kind := gppCurveTo;\r\n  pt.Point := EndPoint;\r\n  FPoints.Add(pt);\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsPath.SmoothCurveTo(const ControlPoint2, EndPoint: TPointF);\r\nvar\r\n  ControlPoint1: TPointF;\r\nbegin\r\n  if Count > 2 then\r\n  begin\r\n    ControlPoint1.X := LastPoint.X + (LastPoint.X - FPoints[FPoints.Count - 2].Point.X);\r\n    ControlPoint1.Y := LastPoint.Y + (LastPoint.Y - FPoints[FPoints.Count - 2].Point.Y);\r\n  end\r\n  else\r\n    ControlPoint1 := ControlPoint2;\r\n  CurveTo(ControlPoint1, ControlPoint2, EndPoint);\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsPath.ClosePath;\r\nvar\r\n  pt: TTMSFNCGraphicsPathPoint;\r\nbegin\r\n  pt.Kind := gppClose;\r\n  pt.Point := FStartPoint;\r\n  FPoints.Add(pt);\r\n  FClippable := True;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsPath.AddPath(APath: TTMSFNCGraphicsPath);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  FPoints.Capacity := FPoints.Count + APath.Count;\r\n  for I := 0 to APath.Count - 1 do\r\n    FPoints.Add(APath.Points[I]);\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsPath.AddPolygon(\r\n  const APolygon: TTMSFNCGraphicsPathPolygon);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to Length(APolygon) - 1 do\r\n    LineTo(APolygon[I]);\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsPath.Clear;\r\nbegin\r\n  FPoints.Clear;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsPath.CalculateBezierCoefficients(const Bezier: TTMSFNCGraphicsPathCubicBezier; out AX, BX, CX, AY, BY, CY: Double);\r\nbegin\r\n  CX := 3 * (Bezier[1].X - Bezier[0].X);\r\n  CY := 3 * (Bezier[1].Y - Bezier[0].Y);\r\n  BX := 3 * (Bezier[2].X - Bezier[1].X) - CX;\r\n  BY := 3 * (Bezier[2].Y - Bezier[1].Y) - CY;\r\n  AX := Bezier[3].X - Bezier[0].X - CX - BX;\r\n  AY := Bezier[3].Y - Bezier[0].Y - CY - BY;\r\nend;\r\n\r\nfunction TTMSFNCGraphicsPath.PointOnBezier(const StartPoint: TPointF; const AX, BX, CX, AY, BY, CY, T: Double): TPointF;\r\nvar\r\n  SquareT, CubeT: Single;\r\nbegin\r\n  SquareT := T * T;\r\n  CubeT := SquareT * T;\r\n  Result.X := (AX * CubeT) + (BX * SquareT) + (CX * T) + StartPoint.X;\r\n  Result.Y := (AY * CubeT) + (BY * SquareT) + (CY * T) + StartPoint.Y;\r\nend;\r\n\r\nfunction TTMSFNCGraphicsPath.CreateBezier(const Bezier: TTMSFNCGraphicsPathCubicBezier; const PointCount: Integer): TTMSFNCGraphicsPathPolygon;\r\nvar\r\n  AX, BX, CX, AY, BY, CY, DT, T: Double;\r\n  I: Integer;\r\nbegin\r\n  if PointCount = 0 then\r\n    Exit;\r\n  DT := 1 / (1 * PointCount - 1);\r\n  T := 0;\r\n  SetLength(Result, PointCount);\r\n  CalculateBezierCoefficients(Bezier, AX, BX, CX, AY, BY, CY);\r\n  for I := 0 to PointCount - 1 do\r\n  begin\r\n    Result[I] := PointOnBezier(Bezier[0], AX, BX, CX, AY, BY, CY, T);\r\n    T := T + DT;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsPath.Flatten(const Flatness: Single);\r\nvar\r\n  J, I: Integer;\r\n  BPts: TTMSFNCGraphicsPathPolygon;\r\n  B: TTMSFNCGraphicsPathCubicBezier;\r\n  F, Len: Single;\r\n  SegCount: Integer;\r\n  OldPathData: TTMSFNCGraphicsPathPoints;\r\n  CurPoint: TPointF;\r\n  x: TPointF;\r\nbegin\r\n  if FPoints.Count > 0 then\r\n  begin\r\n    F := Max(Flatness, 0.05);\r\n    OldPathData := TTMSFNCGraphicsPathPoints.Create;\r\n    try\r\n      OldPathData.Count := FPoints.Count;\r\n      for J := 0 to FPoints.Count - 1 do\r\n        OldPathData.Add(FPoints[J]);\r\n      FPoints.Clear;\r\n      J := 0;\r\n      while J < OldPathData.Count do\r\n      begin\r\n        case OldPathData[J].Kind of\r\n          gppMoveTo:\r\n            begin\r\n              MoveTo(OldPathData[J].Point);\r\n              CurPoint := OldPathData[J].Point;\r\n            end;\r\n          gppLineTo:\r\n            begin\r\n              LineTo(OldPathData[J].Point);\r\n              CurPoint := OldPathData[J].Point;\r\n            end;\r\n          gppCurveTo:\r\n            begin\r\n              B[0] := CurPoint;\r\n              B[1] := OldPathData[J].Point;\r\n              Inc(J);\r\n              B[2] := OldPathData[J].Point;\r\n              Inc(J);\r\n              B[3] := OldPathData[J].Point;\r\n              BPts := CreateBezier(B, 6);\r\n              Len := 0;\r\n              for I := 0 to High(BPts) - 1 do\r\n              begin\r\n                x.X := BPts[I].X - BPts[I + 1].X;\r\n                x.Y := BPts[I].Y - BPts[I + 1].Y;\r\n                Len := Len + GetPointLength(x);\r\n              end;\r\n              SegCount := Round(Len / F);\r\n              if SegCount < 2 then\r\n                LineTo(B[3])\r\n              else\r\n              begin\r\n                BPts := CreateBezier(B, SegCount);\r\n                for I := 0 to High(BPts) do\r\n                  LineTo(BPts[I]);\r\n                CurPoint := OldPathData[J].Point;\r\n              end;\r\n            end;\r\n          gppClose:\r\n            ClosePath;\r\n        end;\r\n        Inc(J);\r\n      end;\r\n    finally\r\n      OldPathData.Free;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsPath.FlattenToPolygon(var Polygon: TTMSFNCGraphicsPathPolygon; const Flatness: Single = 0.25);\r\n\r\n  procedure AddPoint(const P: TPointF);\r\n  begin\r\n    if (Length(Polygon) > 0) and (SameValue(P.X, Polygon[High(Polygon)].X, PathPosition) and SameValue(P.Y,\r\n      Polygon[High(Polygon)].Y, PathPosition)) then\r\n      Exit;\r\n    SetLength(Polygon, Length(Polygon) + 1);\r\n    Polygon[High(Polygon)] := P;\r\n  end;\r\n\r\nvar\r\n  J, I: Integer;\r\n  BPts: TTMSFNCGraphicsPathPolygon;\r\n  B: TTMSFNCGraphicsPathCubicBezier;\r\n  SP, CurPoint, X: TPointF;\r\n  F, Len: Single;\r\n  SegCount: Integer;\r\nbegin\r\n  SetLength(Polygon, 0);\r\n  if FPoints.Count > 0 then\r\n  begin\r\n    F := Max(Flatness, 0.05);\r\n    J := 0;\r\n    while J < FPoints.Count do\r\n    begin\r\n      case FPoints[J].Kind of\r\n        gppMoveTo:\r\n          begin\r\n            AddPoint(FPoints[J].Point);\r\n            CurPoint := FPoints[J].Point;\r\n            SP := CurPoint;\r\n          end;\r\n        gppLineTo:\r\n          begin\r\n            AddPoint(FPoints[J].Point);\r\n            CurPoint := FPoints[J].Point;\r\n          end;\r\n        gppCurveTo:\r\n          begin\r\n            B[0] := CurPoint;\r\n            B[1] := FPoints[J].Point;\r\n            Inc(J);\r\n            B[2] := FPoints[J].Point;\r\n            Inc(J);\r\n            B[3] := FPoints[J].Point;\r\n            BPts := CreateBezier(B, 6);\r\n            Len := 0;\r\n            for I := 0 to High(BPts) - 1 do\r\n            begin\r\n              x.X := BPts[I].X - BPts[I + 1].X;\r\n              x.Y := BPts[I].Y - BPts[I + 1].Y;\r\n              Len := Len + GetPointLength(x);\r\n            end;\r\n            SegCount := Round(Len / F);\r\n            if SegCount < 2 then\r\n            begin\r\n              AddPoint(B[0]);\r\n              AddPoint(B[3]);\r\n            end\r\n            else\r\n            begin\r\n              BPts := CreateBezier(B, SegCount);\r\n              for I := 0 to High(BPts) do\r\n                AddPoint(BPts[I]);\r\n            end;\r\n            CurPoint := FPoints[J].Point;\r\n          end;\r\n        gppClose:\r\n        begin\r\n          AddPoint(SP);\r\n        end;\r\n      end;\r\n      Inc(J);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsPath.AddEllipse(const ARect: TRectF);\r\nvar\r\n  CX, CY, PX, PY: Single;\r\n  c: Single;\r\nbegin\r\n  c := 0.5522847498;\r\n  CX := (ARect.Left + ARect.Right) / 2;\r\n  CY := (ARect.Top + ARect.Bottom) / 2;\r\n  PX := c * ((ARect.Right - ARect.Left) / 2);\r\n  PY := c * ((ARect.Bottom - ARect.Top) / 2);\r\n  MoveTo(PointF(ARect.Left, CY));\r\n  CurveTo(PointF(ARect.Left, CY - PY), PointF(CX - PX, ARect.Top), PointF(CX, ARect.Top));\r\n  CurveTo(PointF(CX + PX, ARect.Top), PointF(ARect.Right, CY - PY), PointF(ARect.Right, CY));\r\n  CurveTo(PointF(ARect.Right, CY + PY), PointF(CX + PX, ARect.Bottom), PointF(CX, ARect.Bottom));\r\n  CurveTo(PointF(CX - PX, ARect.Bottom), PointF(ARect.Left, CY + PY), PointF(ARect.Left, CY));\r\n  FClippable := True;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsPath.AddLine(const StartPoint, EndPoint: TPointF);\r\nbegin\r\n  if Count = 0 then\r\n    MoveTo(StartPoint)\r\n  else\r\n    LineTo(StartPoint);\r\n\r\n  LineTo(EndPoint);\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsPath.AddRectangle(const ARect: TRectF; ARoundingX: Single = 0.0; ARoundingY: Single = 0.0; ACorners: TTMSFNCGraphicsCorners = [gcTopLeft, gcTopRight, gcBottomLeft, gcBottomRight]);\r\nbegin\r\n  if (ARoundingX = 0.0) and (ARoundingY = 0.0) then\r\n  begin\r\n    MoveTo(PointF(ARect.Left, ARect.Top));\r\n    LineTo(PointF(ARect.Right, ARect.Top));\r\n    LineTo(PointF(ARect.Right, ARect.Bottom));\r\n    LineTo(PointF(ARect.Left, ARect.Bottom));\r\n  end\r\n  else\r\n  begin\r\n    if gcBottomLeft in ACorners then\r\n    begin\r\n      MoveTo(PointF(ARect.Left + ARoundingX, ARect.Bottom));\r\n      AddArc(PointF(ARect.Left + ARoundingX, ARect.Bottom - ARoundingY), PointF(ARoundingX, ARoundingY), -270, 90);\r\n      LineTo(PointF(ARect.Left, ARect.Bottom - ARoundingY));\r\n    end\r\n    else\r\n    begin\r\n      MoveTo(PointF(ARect.Left, ARect.Bottom));\r\n    end;\r\n\r\n    if gcTopLeft in ACorners then\r\n    begin\r\n      LineTo(PointF(ARect.Left, ARect.Top + ARoundingY));\r\n      AddArc(PointF(ARect.Left + ARoundingX, ARect.Top + ARoundingY), PointF(ARoundingX, ARoundingY), -180, 90);\r\n      LineTo(PointF(ARect.Left + ARoundingX, ARect.Top));\r\n    end\r\n    else\r\n      LineTo(PointF(ARect.Left, ARect.Top));\r\n\r\n    if gcTopRight in ACorners then\r\n    begin\r\n      LineTo(PointF(ARect.Right - ARoundingX, ARect.Top));\r\n      AddArc(PointF(ARect.Right - ARoundingX, ARect.Top + ARoundingY), PointF(ARoundingX, ARoundingY), -90, 90);\r\n      LineTo(PointF(ARect.Right, ARect.Top + ARoundingY));\r\n    end\r\n    else\r\n      LineTo(PointF(ARect.Right, ARect.Top));\r\n\r\n    if gcBottomRight in ACorners then\r\n    begin\r\n      LineTo(PointF(ARect.Right, ARect.Bottom - ARoundingY));\r\n      AddArc(PointF(ARect.Right - ARoundingX, ARect.Bottom - ARoundingY), PointF(ARoundingX, ARoundingY), 0, 90);\r\n      LineTo(PointF(ARect.Right - ARoundingX, ARect.Bottom));\r\n    end\r\n    else\r\n      LineTo(PointF(ARect.Right, ARect.Bottom));\r\n\r\n    if gcBottomLeft in ACorners then\r\n      LineTo(PointF(ARect.Left + ARoundingX, ARect.Bottom))\r\n    else\r\n      LineTo(PointF(ARect.Left, ARect.Bottom));\r\n  end;\r\n\r\n  ClosePath;\r\n  FClippable := True;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsPath.ApplyMatrix(AMatrix: TTMSFNCGraphicsMatrix);\r\nvar\r\n  I: Integer;\r\n  pt: TTMSFNCGraphicsPathPoint;\r\nbegin\r\n  if PathData.Count > 0 then\r\n  begin\r\n    for I := 0 to PathData.Count - 1 do\r\n    begin\r\n      if PathData[I].Kind in [TTMSFNCGraphicsPathPointKind.gppMoveTo, TTMSFNCGraphicsPathPointKind.gppLineTo, TTMSFNCGraphicsPathPointKind.gppCurveTo] then\r\n      begin\r\n        pt := PathData[I];\r\n        pt.Point := MatrixMultiply(pt.Point, AMatrix);\r\n        PathData[I] := pt;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure DrawArcWithBezier(Path: TTMSFNCGraphicsPath; CenterX, CenterY, RadiusX, RadiusY, StartAngle, SweepRange: Single;\r\n  UseMoveTo: Boolean);\r\nvar\r\n  Coord: array of TPointF;\r\n  Pts: array of TPointF;\r\n  A, X, Y: Single;\r\n  {$IFDEF LCLLIB}\r\n  C, B, CC, SS: Extended;\r\n  {$ELSE}\r\n  C, B, CC, SS: Single;\r\n  {$ENDIF}\r\n  I: Integer;\r\nbegin\r\n  if SweepRange = 0 then\r\n  begin\r\n    if UseMoveTo then\r\n    begin\r\n      if Path.FPoints.Count < 1 then\r\n        Path.MoveTo(PointF(CenterX + RadiusX * Cos(StartAngle), CenterY - RadiusY * Sin(StartAngle)))\r\n      else\r\n        Path.LineTo(PointF(CenterX + RadiusX * Cos(StartAngle), CenterY - RadiusY * Sin(StartAngle)));\r\n    end;\r\n    Path.LineTo(PointF(CenterX + RadiusX * Cos(StartAngle), CenterY - RadiusY * Sin(StartAngle)));\r\n    Exit;\r\n  end;\r\n  {$IFDEF WEBLIB}\r\n  B := Sin(SweepRange / 2);\r\n  C := Cos(SweepRange / 2);\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  SinCos(SweepRange / 2, B, C);\r\n  {$ENDIF}\r\n  A := 1 - C;\r\n  X := A * 4 / 3;\r\n  Y := B - X * C / B;\r\n  {$IFDEF WEBLIB}\r\n  SS := Sin(StartAngle + SweepRange / 2);\r\n  CC := Cos(StartAngle + SweepRange / 2);\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  SinCos(StartAngle + SweepRange / 2, SS, CC);\r\n  {$ENDIF}\r\n  SetLength(Coord, 4);\r\n  Coord[0] := PointF(C, -B);\r\n  Coord[1] := PointF(C + X, -Y);\r\n  Coord[2] := PointF(C + X, Y);\r\n  Coord[3] := PointF(C, B);\r\n  SetLength(Pts, 4);\r\n  for I := 0 to 3 do\r\n  begin\r\n    Pts[I] := PointF(CenterX + RadiusX * (Coord[I].X * CC - Coord[I].Y * SS), CenterY + RadiusY * (Coord[I].X *\r\n      SS + Coord[I].Y * CC));\r\n  end;\r\n  if UseMoveTo then\r\n  begin\r\n    if Path.FPoints.Count < 1 then\r\n      Path.MoveTo(Pts[0])\r\n    else\r\n      Path.LineTo(Pts[0]);\r\n  end;\r\n  Path.CurveTo(Pts[1], Pts[2], Pts[3]);\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsPath.AddArc(const Center, Radius: TPointF; StartAngle, SweepAngle: Single);\r\nconst\r\n  BezierArcAngleEpsilon = 0.01;\r\n  MinSweepAngle = 1E-10;\r\nvar\r\n  UseMoveTo: Boolean;\r\n  I: Integer;\r\n  F: Single;\r\n  TotalSweep, LocalSweep, PrevSweep: Single;\r\n  Done: Boolean;\r\nbegin\r\n  StartAngle := DegToRad(StartAngle);\r\n  SweepAngle := DegToRad(SweepAngle);\r\n  I := Trunc(StartAngle / (2 * Pi));\r\n  F := StartAngle - (I * 2 * Pi);\r\n  StartAngle := F;\r\n  if SweepAngle >= 2 * Pi then\r\n    SweepAngle := 2 * Pi;\r\n  if SweepAngle <= -2 * Pi then\r\n    SweepAngle := -2 * Pi;\r\n  if Abs(SweepAngle) < MinSweepAngle then\r\n    Exit;\r\n  TotalSweep := 0;\r\n  Done := False;\r\n  UseMoveTo := True;\r\n  repeat\r\n    if SweepAngle < 0 then\r\n    begin\r\n      PrevSweep := TotalSweep;\r\n      LocalSweep := -Pi / 2;\r\n      TotalSweep := TotalSweep - (Pi / 2);\r\n      if TotalSweep <= SweepAngle + BezierArcAngleEpsilon then\r\n      begin\r\n        LocalSweep := SweepAngle - PrevSweep;\r\n        Done := True;\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      PrevSweep := TotalSweep;\r\n      LocalSweep := Pi / 2;\r\n      TotalSweep := TotalSweep + (Pi / 2);\r\n      if TotalSweep >= SweepAngle - BezierArcAngleEpsilon then\r\n      begin\r\n        LocalSweep := SweepAngle - PrevSweep;\r\n        Done := True;\r\n      end;\r\n    end;\r\n    DrawArcWithBezier(Self, Center.X, Center.Y, Radius.X, Radius.Y, StartAngle, LocalSweep, UseMoveTo);\r\n    UseMoveTo := False;\r\n    StartAngle := StartAngle + LocalSweep;\r\n  until Done;\r\nend;\r\n\r\n{ TTMSFNCGraphicsPathPoint }\r\n\r\n{$IFDEF LCLLIB}\r\nclass operator TTMSFNCGraphicsPathPoint.=(z1, z2: TTMSFNCGraphicsPathPoint)b: boolean;\r\nbegin\r\n  Result := z1 = z2;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFNDEF WEBLIB}\r\n\r\n{ TTMSFNCGraphicsMatrix }\r\n\r\nclass function TTMSFNCGraphicsMatrix.CreateRotation(const AAngle: Single): TTMSFNCGraphicsMatrix;\r\nvar\r\n  S, C: Single;\r\nbegin\r\n  S := Sin(AAngle);\r\n  C := Cos(AAngle);\r\n  Result := Identity;\r\n  Result.m11 := C;\r\n  Result.m12 := S;\r\n  Result.m21 := -S;\r\n  Result.m22 := C;\r\nend;\r\n\r\nclass function TTMSFNCGraphicsMatrix.CreateScaling(const AScaleX, AScaleY: Single): TTMSFNCGraphicsMatrix;\r\nbegin\r\n  Result := Identity;\r\n  Result.m11 := AScaleX;\r\n  Result.m22 := AScaleY;\r\nend;\r\n\r\nclass function TTMSFNCGraphicsMatrix.CreateTranslation(const ADeltaX, ADeltaY: Single): TTMSFNCGraphicsMatrix;\r\nbegin\r\n  Result := Identity;\r\n  Result.m31 := ADeltaX;\r\n  Result.m32 := ADeltaY;\r\nend;\r\n\r\nfunction TTMSFNCGraphicsMatrix.Scale(const AFactor: Single): TTMSFNCGraphicsMatrix;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to 2 do\r\n  begin\r\n    Result.M[I].V[0] := Self.M[I].V[0] * AFactor;\r\n    Result.M[I].V[1] := Self.M[I].V[1] * AFactor;\r\n    Result.M[I].V[2] := Self.M[I].V[2] * AFactor;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCGraphicsMatrix.Determinant: Single;\r\nbegin\r\n  Result := Self.M[0].V[0] * (Self.M[1].V[1] * Self.M[2].V[2] - Self.M[2].V[1] * Self.M[1].V[2]) - Self.M[0].V[1]\r\n    * (Self.M[1].V[0] * Self.M[2].V[2] - Self.M[2].V[0] * Self.M[1].V[2]) + Self.M[0].V[2] * (Self.M[1].V[0]\r\n    * Self.M[2].V[1] - Self.M[2].V[0] * Self.M[1].V[1]);\r\nend;\r\n\r\nfunction TTMSFNCGraphicsMatrix.Adjoint: TTMSFNCGraphicsMatrix;\r\nvar\r\n  a1, a2, a3, b1, b2, b3, c1, c2, c3: Single;\r\nbegin\r\n  a1 := Self.M[0].V[0];\r\n  a2 := Self.M[0].V[1];\r\n  a3 := Self.M[0].V[2];\r\n  b1 := Self.M[1].V[0];\r\n  b2 := Self.M[1].V[1];\r\n  b3 := Self.M[1].V[2];\r\n  c1 := Self.M[2].V[0];\r\n  c2 := Self.M[2].V[1];\r\n  c3 := Self.M[2].V[2];\r\n\r\n  Result.M[0].V[0] := (b2 * c3 - c2 * b3);\r\n  Result.M[1].V[0] := -(b1 * c3 - c1 * b3);\r\n  Result.M[2].V[0] := (b1 * c2 - c1 * b2);\r\n\r\n  Result.M[0].V[1] := -(a2 * c3 - c2 * a3);\r\n  Result.M[1].V[1] := (a1 * c3 - c1 * a3);\r\n  Result.M[2].V[1] := -(a1 * c2 - c1 * a2);\r\n\r\n  Result.M[0].V[2] := (a2 * b3 - b2 * a3);\r\n  Result.M[1].V[2] := -(a1 * b3 - b1 * a3);\r\n  Result.M[2].V[2] := (a1 * b2 - b1 * a2);\r\nend;\r\n\r\nclass function TTMSFNCGraphicsMatrix.Identity: TTMSFNCGraphicsMatrix;\r\nbegin\r\n  Result.m11 := 1;\r\n  Result.m12 := 0;\r\n  Result.m13 := 0;\r\n  Result.m21 := 0;\r\n  Result.m22 := 1;\r\n  Result.m23 := 0;\r\n  Result.m31 := 0;\r\n  Result.m32 := 0;\r\n  Result.m33 := 1;\r\nend;\r\n\r\nfunction TTMSFNCGraphicsMatrix.Inverse: TTMSFNCGraphicsMatrix;\r\nconst\r\n  DefaultValue: TTMSFNCGraphicsMatrix = (m11: 1.0; m12: 0.0; m13: 0.0; m21: 0.0; m22: 1.0; m23: 0.0; m31: 0.0; m32: 0.0; m33: 1.0);\r\nvar\r\n  Det: Single;\r\nbegin\r\n  Det := Self.Determinant;\r\n  if Abs(Det) < Epsilon then\r\n    Result := DefaultValue\r\n  else\r\n    Result:= Self.Adjoint.Scale(1 / Det);\r\nend;\r\n\r\n{$IFDEF LCLLIB}\r\nclass operator TTMSFNCGraphicsMatrix.*(const APoint: TPointF;\r\n  const AMatrix: TTMSFNCGraphicsMatrix): TPointF;\r\n{$ENDIF}\r\n{$IFNDEF LCLLIB}\r\nclass operator TTMSFNCGraphicsMatrix.Multiply(const APoint: TPointF;\r\n  const AMatrix: TTMSFNCGraphicsMatrix): TPointF;\r\n{$ENDIF}\r\nbegin\r\n  Result.X := APoint.X * AMatrix.M[0].V[0] + APoint.Y * AMatrix.M[1].V[0]\r\n    + AMatrix.M[2].V[0];\r\n  Result.Y := APoint.X * AMatrix.M[0].V[1] + APoint.Y * AMatrix.M[1].V[1]\r\n    + AMatrix.M[2].V[1];\r\nend;\r\n\r\n{$IFDEF LCLLIB}\r\nclass operator TTMSFNCGraphicsMatrix.*(const AMatrix1, AMatrix2: TTMSFNCGraphicsMatrix): TTMSFNCGraphicsMatrix;\r\n{$ENDIF}\r\n{$IFNDEF LCLLIB}\r\nclass operator TTMSFNCGraphicsMatrix.Multiply(const AMatrix1, AMatrix2: TTMSFNCGraphicsMatrix): TTMSFNCGraphicsMatrix;\r\n{$ENDIF}\r\nbegin\r\n  Result.m11 := AMatrix1.m11 * AMatrix2.m11 + AMatrix1.m12 * AMatrix2.m21 + AMatrix1.m13 * AMatrix2.m31;\r\n  Result.m12 := AMatrix1.m11 * AMatrix2.m12 + AMatrix1.m12 * AMatrix2.m22 + AMatrix1.m13 * AMatrix2.m32;\r\n  Result.m13 := AMatrix1.m11 * AMatrix2.m13 + AMatrix1.m12 * AMatrix2.m23 + AMatrix1.m13 * AMatrix2.m33;\r\n  Result.m21 := AMatrix1.m21 * AMatrix2.m11 + AMatrix1.m22 * AMatrix2.m21 + AMatrix1.m23 * AMatrix2.m31;\r\n  Result.m22 := AMatrix1.m21 * AMatrix2.m12 + AMatrix1.m22 * AMatrix2.m22 + AMatrix1.m23 * AMatrix2.m32;\r\n  Result.m23 := AMatrix1.m21 * AMatrix2.m13 + AMatrix1.m22 * AMatrix2.m23 + AMatrix1.m23 * AMatrix2.m33;\r\n  Result.m31 := AMatrix1.m31 * AMatrix2.m11 + AMatrix1.m32 * AMatrix2.m21 + AMatrix1.m33 * AMatrix2.m31;\r\n  Result.m32 := AMatrix1.m31 * AMatrix2.m12 + AMatrix1.m32 * AMatrix2.m22 + AMatrix1.m33 * AMatrix2.m32;\r\n  Result.m33 := AMatrix1.m31 * AMatrix2.m13 + AMatrix1.m32 * AMatrix2.m23 + AMatrix1.m33 * AMatrix2.m33;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF WEBLIB}\r\nfunction TTMSFNCGraphicsPathPoints.GetItem(Index: Integer): TTMSFNCGraphicsPathPoint;\r\nbegin\r\n  Result := TTMSFNCGraphicsPathPoint(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsPathPoints.SetItem(Index: Integer; const Value: TTMSFNCGraphicsPathPoint);\r\nvar\r\n  v: TTMSFNCGraphicsPathPoint;\r\nbegin\r\n  v := Value;\r\n  inherited Items[Index] := v;\r\nend;\r\n{$ENDIF}\r\n\r\n{ TTMSFNCGraphicsColorObject }\r\n\r\nconstructor TTMSFNCGraphicsColorObject.Create(AColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  FColor := AColor;\r\nend;\r\n\r\n{ TTMSFNCGraphicsFillGradientItem }\r\n\r\nprocedure TTMSFNCGraphicsFillGradientItem.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCGraphicsFillGradientItem then\r\n  begin\r\n    FColor := (Source as TTMSFNCGraphicsFillGradientItem).Color;\r\n    FOpacity := (Source as TTMSFNCGraphicsFillGradientItem).Opacity;\r\n    FPosition := (Source as TTMSFNCGraphicsFillGradientItem).Position;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nconstructor TTMSFNCGraphicsFillGradientItem.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  FColor := gcWhite;\r\n  FPosition := 0.0;\r\n  FOpacity := 1.0;\r\nend;\r\n\r\nfunction TTMSFNCGraphicsFillGradientItem.IsOpacityStored: Boolean;\r\nbegin\r\n  Result := Opacity <> 1.0;\r\nend;\r\n\r\nfunction TTMSFNCGraphicsFillGradientItem.IsPositionStored: Boolean;\r\nbegin\r\n  Result := Position <> 0.0;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsFillGradientItem.SetColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FColor <> Value then\r\n  begin\r\n    FColor := Value;\r\n    UpdateGradient;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsFillGradientItem.SetOpacity(const Value: Single);\r\nbegin\r\n  if FOpacity <> Value then\r\n  begin\r\n    FOpacity := Value;\r\n    UpdateGradient;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsFillGradientItem.SetPosition(const Value: Single);\r\nbegin\r\n  if FPosition <> Value then\r\n  begin\r\n    FPosition := Value;\r\n    UpdateGradient;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsFillGradientItem.UpdateGradient;\r\nbegin\r\n  if (Collection is TTMSFNCGraphicsFillGradientItems) then\r\n    (Collection as TTMSFNCGraphicsFillGradientItems).UpdateGradient;\r\nend;\r\n\r\n{ TTMSFNCAppearanceGlobalFont }\r\n\r\nconstructor TTMSFNCAppearanceGlobalFont.Create(AOwner: TPersistent);\r\nbegin\r\n  FOwner := AOwner;\r\n  FColor := gcNull;\r\n  FSize := 0;\r\n  FScale := 1;\r\n  FName := '';\r\n  FStyle := [];\r\nend;\r\n\r\ndestructor TTMSFNCAppearanceGlobalFont.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCAppearanceGlobalFont.GetOldScale: Double;\r\nbegin\r\n  Result := FOldScale;\r\nend;\r\n\r\nfunction TTMSFNCAppearanceGlobalFont.IsNameStored: Boolean;\r\nbegin\r\n  Result := Name <> '';\r\nend;\r\n\r\nfunction TTMSFNCAppearanceGlobalFont.IsScaleStored: Boolean;\r\nbegin\r\n  Result := Scale <> 1;\r\nend;\r\n\r\nfunction TTMSFNCAppearanceGlobalFont.IsSizeStored: Boolean;\r\nbegin\r\n  Result := Size <> 0;\r\nend;\r\n\r\nfunction TTMSFNCAppearanceGlobalFont.IsStyleStored: Boolean;\r\nbegin\r\n  Result := Style <> [];\r\nend;\r\n\r\nprocedure TTMSFNCAppearanceGlobalFont.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTMSFNCAppearanceGlobalFont) then\r\n  begin\r\n    Color := (Source as TTMSFNCAppearanceGlobalFont).Color;\r\n    Size := (Source as TTMSFNCAppearanceGlobalFont).Size;\r\n    Name := (Source as TTMSFNCAppearanceGlobalFont).Name;\r\n    Scale := (Source as TTMSFNCAppearanceGlobalFont).Scale;\r\n    Style := (Source as TTMSFNCAppearanceGlobalFont).Style;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TTMSFNCAppearanceGlobalFont.SetColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FColor <> Value then\r\n  begin\r\n    FColor := Value;\r\n\r\n    SetFonts(aftColor);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCAppearanceGlobalFont.SetSize(const Value: Single);\r\nbegin\r\n  if FSize <> Value then\r\n  begin\r\n    FSize := Value;\r\n\r\n    SetFonts(aftSize);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCAppearanceGlobalFont.SetName(const Value: String);\r\nbegin\r\n  if FName <> Value then\r\n  begin\r\n    FName := Value;\r\n\r\n    SetFonts(aftName);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCAppearanceGlobalFont.SetScale(const Value: Double);\r\nbegin\r\n  if FScale <> Value then\r\n  begin\r\n    FOldScale := FScale;\r\n    FScale := Value;\r\n\r\n    SetFonts(aftScale);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCAppearanceGlobalFont.SetStyle(const Value: TFontStyles);\r\nbegin\r\n  if FStyle <> Value then\r\n  begin\r\n    FStyle := Value;\r\n\r\n    SetFonts(aftStyle);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCAppearanceGlobalFont.ApplyChange(AFont: TTMSFNCGraphicsFont; ASetType: TTMSFNCAppearanceGlobalFontType);\r\nbegin\r\n  if Assigned(AFont) then\r\n  begin\r\n    case ASetType of\r\n      aftColor: AFont.Color := FColor;\r\n      aftSize: AFont.Size := {$IFNDEF FMXLIB}Round({$ENDIF}FSize{$IFNDEF FMXLIB}){$ENDIF};\r\n      aftName: AFont.Name := FName;\r\n      aftScale:\r\n      begin\r\n        {$IFDEF FMXLIB}\r\n        AFont.Size := Round(AFont.Size * FScale / FOldScale);\r\n        {$ENDIF}\r\n        {$IFNDEF FMXLIB}\r\n        AFont.Height := Round(AFont.Height * FScale / FOldScale);\r\n        {$ENDIF}\r\n      end;\r\n      aftStyle: AFont.Style := FStyle;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCAppearanceGlobalFont.SetFonts(ASetType: TTMSFNCAppearanceGlobalFontType);\r\nvar\r\n  fi: ITMSFNCAppearanceGlobalFont;\r\nbegin\r\n  if Supports(FOwner, ITMSFNCAppearanceGlobalFont, fi) then\r\n    fi.SetFonts(ASetType)\r\n  else\r\n  begin\r\n    //Algemeen font zoek algoritme\r\n  end;\r\nend;\r\n\r\n{$IFDEF LCLWEBLIB}\r\n\r\n{ TTMSFNCGraphicsColorList }\r\n\r\nprocedure TTMSFNCGraphicsColorList.AddOrSetValue(AKey: string;\r\n  AValue: TTMSFNCGraphicsColorObject);\r\nvar\r\n  I: Integer;\r\n  it: TObject;\r\nbegin\r\n  it := nil;\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    if AKey = Self[I] then\r\n    begin\r\n      it := Objects[I];\r\n      Break;\r\n    end;\r\n  end;\r\n\r\n  if not Assigned(it) then\r\n  begin\r\n    AddObject(AKey, AValue);\r\n  end\r\n  else\r\n    Objects[I] := AValue;\r\nend;\r\n\r\nfunction TTMSFNCGraphicsColorList.TryGetValue(AKey: string;\r\n  var AValue: TTMSFNCGraphicsColorObject): Boolean;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := False;\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    if AKey = Self[I] then\r\n    begin\r\n      AValue := Objects[I] as TTMSFNCGraphicsColorObject;\r\n      Result := True;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{$ENDIF}\r\n\r\ninitialization\r\nbegin\r\n  FColorLookup := TTMSFNCGraphicsColorList.Create{$IFNDEF LCLWEBLIB}([doOwnsValues]){$ENDIF};\r\n  FColorLookup.AddOrSetValue('aliceblue', TTMSFNCGraphicsColorObject.Create(gcaliceblue));\r\n  FColorLookup.AddOrSetValue('antiquewhite', TTMSFNCGraphicsColorObject.Create(gcantiquewhite));\r\n  FColorLookup.AddOrSetValue('aqua', TTMSFNCGraphicsColorObject.Create(gcaqua));\r\n  FColorLookup.AddOrSetValue('aquamarine', TTMSFNCGraphicsColorObject.Create(gcaquamarine));\r\n  FColorLookup.AddOrSetValue('azure', TTMSFNCGraphicsColorObject.Create(gcazure));\r\n  FColorLookup.AddOrSetValue('beige', TTMSFNCGraphicsColorObject.Create(gcbeige));\r\n  FColorLookup.AddOrSetValue('bisque', TTMSFNCGraphicsColorObject.Create(gcbisque));\r\n  FColorLookup.AddOrSetValue('black', TTMSFNCGraphicsColorObject.Create(gcblack));\r\n  FColorLookup.AddOrSetValue('blanchedalmond', TTMSFNCGraphicsColorObject.Create(gcblanchedalmond));\r\n  FColorLookup.AddOrSetValue('blue', TTMSFNCGraphicsColorObject.Create(gcblue));\r\n  FColorLookup.AddOrSetValue('blueviolet', TTMSFNCGraphicsColorObject.Create(gcblueviolet));\r\n  FColorLookup.AddOrSetValue('brown', TTMSFNCGraphicsColorObject.Create(gcbrown));\r\n  FColorLookup.AddOrSetValue('burlywood', TTMSFNCGraphicsColorObject.Create(gcburlywood));\r\n  FColorLookup.AddOrSetValue('cadetblue', TTMSFNCGraphicsColorObject.Create(gccadetblue));\r\n  FColorLookup.AddOrSetValue('chartreuse', TTMSFNCGraphicsColorObject.Create(gcchartreuse));\r\n  FColorLookup.AddOrSetValue('chocolate', TTMSFNCGraphicsColorObject.Create(gcchocolate));\r\n  FColorLookup.AddOrSetValue('coral', TTMSFNCGraphicsColorObject.Create(gccoral));\r\n  FColorLookup.AddOrSetValue('cornflowerblue', TTMSFNCGraphicsColorObject.Create(gccornflowerblue));\r\n  FColorLookup.AddOrSetValue('cornsilk', TTMSFNCGraphicsColorObject.Create(gccornsilk));\r\n  FColorLookup.AddOrSetValue('crimson', TTMSFNCGraphicsColorObject.Create(gccrimson));\r\n  FColorLookup.AddOrSetValue('cyan', TTMSFNCGraphicsColorObject.Create(gccyan));\r\n  FColorLookup.AddOrSetValue('darkblue', TTMSFNCGraphicsColorObject.Create(gcdarkblue));\r\n  FColorLookup.AddOrSetValue('darkcyan', TTMSFNCGraphicsColorObject.Create(gcdarkcyan));\r\n  FColorLookup.AddOrSetValue('darkgoldenrod', TTMSFNCGraphicsColorObject.Create(gcdarkgoldenrod));\r\n  FColorLookup.AddOrSetValue('darkgray', TTMSFNCGraphicsColorObject.Create(gcdarkgray));\r\n  FColorLookup.AddOrSetValue('darkgreen', TTMSFNCGraphicsColorObject.Create(gcdarkgreen));\r\n  FColorLookup.AddOrSetValue('darkgrey', TTMSFNCGraphicsColorObject.Create(gcdarkgrey));\r\n  FColorLookup.AddOrSetValue('darkkhaki', TTMSFNCGraphicsColorObject.Create(gcdarkkhaki));\r\n  FColorLookup.AddOrSetValue('darkmagenta', TTMSFNCGraphicsColorObject.Create(gcdarkmagenta));\r\n  FColorLookup.AddOrSetValue('darkolivegreen', TTMSFNCGraphicsColorObject.Create(gcdarkolivegreen));\r\n  FColorLookup.AddOrSetValue('darkorange', TTMSFNCGraphicsColorObject.Create(gcdarkorange));\r\n  FColorLookup.AddOrSetValue('darkorchid', TTMSFNCGraphicsColorObject.Create(gcdarkorchid));\r\n  FColorLookup.AddOrSetValue('darkred', TTMSFNCGraphicsColorObject.Create(gcdarkred));\r\n  FColorLookup.AddOrSetValue('darksalmon', TTMSFNCGraphicsColorObject.Create(gcdarksalmon));\r\n  FColorLookup.AddOrSetValue('darkseagreen', TTMSFNCGraphicsColorObject.Create(gcdarkseagreen));\r\n  FColorLookup.AddOrSetValue('darkslateblue', TTMSFNCGraphicsColorObject.Create(gcdarkslateblue));\r\n  FColorLookup.AddOrSetValue('darkslategray', TTMSFNCGraphicsColorObject.Create(gcdarkslategray));\r\n  FColorLookup.AddOrSetValue('darkslategrey', TTMSFNCGraphicsColorObject.Create(gcdarkslategrey));\r\n  FColorLookup.AddOrSetValue('darkturquoise', TTMSFNCGraphicsColorObject.Create(gcdarkturquoise));\r\n  FColorLookup.AddOrSetValue('darkviolet', TTMSFNCGraphicsColorObject.Create(gcdarkviolet));\r\n  FColorLookup.AddOrSetValue('deeppink', TTMSFNCGraphicsColorObject.Create(gcdeeppink));\r\n  FColorLookup.AddOrSetValue('deepskyblue', TTMSFNCGraphicsColorObject.Create(gcdeepskyblue));\r\n  FColorLookup.AddOrSetValue('dimgray', TTMSFNCGraphicsColorObject.Create(gcdimgray));\r\n  FColorLookup.AddOrSetValue('dimgrey', TTMSFNCGraphicsColorObject.Create(gcdimgrey));\r\n  FColorLookup.AddOrSetValue('dodgerblue', TTMSFNCGraphicsColorObject.Create(gcdodgerblue));\r\n  FColorLookup.AddOrSetValue('firebrick', TTMSFNCGraphicsColorObject.Create(gcfirebrick));\r\n  FColorLookup.AddOrSetValue('floralwhite', TTMSFNCGraphicsColorObject.Create(gcfloralwhite));\r\n  FColorLookup.AddOrSetValue('forestgreen', TTMSFNCGraphicsColorObject.Create(gcforestgreen));\r\n  FColorLookup.AddOrSetValue('fuchsia', TTMSFNCGraphicsColorObject.Create(gcfuchsia));\r\n  FColorLookup.AddOrSetValue('gainsboro', TTMSFNCGraphicsColorObject.Create(gcgainsboro));\r\n  FColorLookup.AddOrSetValue('ghostwhite', TTMSFNCGraphicsColorObject.Create(gcghostwhite));\r\n  FColorLookup.AddOrSetValue('gold', TTMSFNCGraphicsColorObject.Create(gcgold));\r\n  FColorLookup.AddOrSetValue('goldenrod', TTMSFNCGraphicsColorObject.Create(gcgoldenrod));\r\n  FColorLookup.AddOrSetValue('gray', TTMSFNCGraphicsColorObject.Create(gcgray));\r\n  FColorLookup.AddOrSetValue('green', TTMSFNCGraphicsColorObject.Create(gcgreen));\r\n  FColorLookup.AddOrSetValue('greenyellow', TTMSFNCGraphicsColorObject.Create(gcgreenyellow));\r\n  FColorLookup.AddOrSetValue('grey', TTMSFNCGraphicsColorObject.Create(gcgrey));\r\n  FColorLookup.AddOrSetValue('honeydew', TTMSFNCGraphicsColorObject.Create(gchoneydew));\r\n  FColorLookup.AddOrSetValue('hotpink', TTMSFNCGraphicsColorObject.Create(gchotpink));\r\n  FColorLookup.AddOrSetValue('indianred', TTMSFNCGraphicsColorObject.Create(gcindianred));\r\n  FColorLookup.AddOrSetValue('indigo', TTMSFNCGraphicsColorObject.Create(gcindigo));\r\n  FColorLookup.AddOrSetValue('ivory', TTMSFNCGraphicsColorObject.Create(gcivory));\r\n  FColorLookup.AddOrSetValue('khaki', TTMSFNCGraphicsColorObject.Create(gckhaki));\r\n  FColorLookup.AddOrSetValue('lavender', TTMSFNCGraphicsColorObject.Create(gcLavender));\r\n  FColorLookup.AddOrSetValue('lavenderblush', TTMSFNCGraphicsColorObject.Create(gcLavenderblush));\r\n  FColorLookup.AddOrSetValue('lawngreen', TTMSFNCGraphicsColorObject.Create(gcLawngreen));\r\n  FColorLookup.AddOrSetValue('lemonchiffon', TTMSFNCGraphicsColorObject.Create(gclemonchiffon));\r\n  FColorLookup.AddOrSetValue('lightblue', TTMSFNCGraphicsColorObject.Create(gclightblue));\r\n  FColorLookup.AddOrSetValue('lightcoral', TTMSFNCGraphicsColorObject.Create(gclightcoral));\r\n  FColorLookup.AddOrSetValue('lightcyan', TTMSFNCGraphicsColorObject.Create(gclightcyan));\r\n  FColorLookup.AddOrSetValue('lightgoldenrodyellow', TTMSFNCGraphicsColorObject.Create(gclightgoldenrodyellow));\r\n  FColorLookup.AddOrSetValue('lightgray', TTMSFNCGraphicsColorObject.Create(gclightgray));\r\n  FColorLookup.AddOrSetValue('lightgreen', TTMSFNCGraphicsColorObject.Create(gclightgreen));\r\n  FColorLookup.AddOrSetValue('lightgrey', TTMSFNCGraphicsColorObject.Create(gclightgrey));\r\n  FColorLookup.AddOrSetValue('lightpink', TTMSFNCGraphicsColorObject.Create(gclightpink));\r\n  FColorLookup.AddOrSetValue('lightsalmon', TTMSFNCGraphicsColorObject.Create(gclightsalmon));\r\n  FColorLookup.AddOrSetValue('lightseagreen', TTMSFNCGraphicsColorObject.Create(gclightseagreen));\r\n  FColorLookup.AddOrSetValue('lightskyblue', TTMSFNCGraphicsColorObject.Create(gclightskyblue));\r\n  FColorLookup.AddOrSetValue('lightslategray', TTMSFNCGraphicsColorObject.Create(gclightslategray));\r\n  FColorLookup.AddOrSetValue('lightslategrey', TTMSFNCGraphicsColorObject.Create(gclightslategrey));\r\n  FColorLookup.AddOrSetValue('lightsteelblue', TTMSFNCGraphicsColorObject.Create(gclightsteelblue));\r\n  FColorLookup.AddOrSetValue('lightyellow', TTMSFNCGraphicsColorObject.Create(gclightyellow));\r\n  FColorLookup.AddOrSetValue('lime', TTMSFNCGraphicsColorObject.Create(gclime));\r\n  FColorLookup.AddOrSetValue('limegreen', TTMSFNCGraphicsColorObject.Create(gclimegreen));\r\n  FColorLookup.AddOrSetValue('linen', TTMSFNCGraphicsColorObject.Create(gclinen));\r\n  FColorLookup.AddOrSetValue('magenta', TTMSFNCGraphicsColorObject.Create(gcmagenta));\r\n  FColorLookup.AddOrSetValue('maroon', TTMSFNCGraphicsColorObject.Create(gcmaroon));\r\n  FColorLookup.AddOrSetValue('mediumaquamarine', TTMSFNCGraphicsColorObject.Create(gcmediumaquamarine));\r\n  FColorLookup.AddOrSetValue('mediumblue', TTMSFNCGraphicsColorObject.Create(gcmediumblue));\r\n  FColorLookup.AddOrSetValue('mediumorchid', TTMSFNCGraphicsColorObject.Create(gcmediumorchid));\r\n  FColorLookup.AddOrSetValue('mediumpurple', TTMSFNCGraphicsColorObject.Create(gcmediumpurple));\r\n  FColorLookup.AddOrSetValue('mediumseagreen', TTMSFNCGraphicsColorObject.Create(gcmediumseagreen));\r\n  FColorLookup.AddOrSetValue('mediumslateblue', TTMSFNCGraphicsColorObject.Create(gcmediumslateblue));\r\n  FColorLookup.AddOrSetValue('mediumspringgreen', TTMSFNCGraphicsColorObject.Create(gcmediumspringgreen));\r\n  FColorLookup.AddOrSetValue('mediumturquoise', TTMSFNCGraphicsColorObject.Create(gcmediumturquoise));\r\n  FColorLookup.AddOrSetValue('mediumvioletred', TTMSFNCGraphicsColorObject.Create(gcmediumvioletred));\r\n  FColorLookup.AddOrSetValue('midnightblue', TTMSFNCGraphicsColorObject.Create(gcmidnightblue));\r\n  FColorLookup.AddOrSetValue('mintcream', TTMSFNCGraphicsColorObject.Create(gcmintcream));\r\n  FColorLookup.AddOrSetValue('mistyrose', TTMSFNCGraphicsColorObject.Create(gcmistyrose));\r\n  FColorLookup.AddOrSetValue('moccasin', TTMSFNCGraphicsColorObject.Create(gcmoccasin));\r\n  FColorLookup.AddOrSetValue('navajowhite', TTMSFNCGraphicsColorObject.Create(gcnavajowhite));\r\n  FColorLookup.AddOrSetValue('navy', TTMSFNCGraphicsColorObject.Create(gcnavy));\r\n  FColorLookup.AddOrSetValue('oldlace', TTMSFNCGraphicsColorObject.Create(gcoldlace));\r\n  FColorLookup.AddOrSetValue('olive', TTMSFNCGraphicsColorObject.Create(gcolive));\r\n  FColorLookup.AddOrSetValue('olivedrab', TTMSFNCGraphicsColorObject.Create(gcolivedrab));\r\n  FColorLookup.AddOrSetValue('orange', TTMSFNCGraphicsColorObject.Create(gcorange));\r\n  FColorLookup.AddOrSetValue('orangered', TTMSFNCGraphicsColorObject.Create(gcorangered));\r\n  FColorLookup.AddOrSetValue('orchid', TTMSFNCGraphicsColorObject.Create(gcorchid));\r\n  FColorLookup.AddOrSetValue('palegoldenrod', TTMSFNCGraphicsColorObject.Create(gcpalegoldenrod));\r\n  FColorLookup.AddOrSetValue('palegreen', TTMSFNCGraphicsColorObject.Create(gcpalegreen));\r\n  FColorLookup.AddOrSetValue('paleturquoise', TTMSFNCGraphicsColorObject.Create(gcpaleturquoise));\r\n  FColorLookup.AddOrSetValue('palevioletred', TTMSFNCGraphicsColorObject.Create(gcpalevioletred));\r\n  FColorLookup.AddOrSetValue('papayawhip', TTMSFNCGraphicsColorObject.Create(gcpapayawhip));\r\n  FColorLookup.AddOrSetValue('peachpuff', TTMSFNCGraphicsColorObject.Create(gcpeachpuff));\r\n  FColorLookup.AddOrSetValue('peru', TTMSFNCGraphicsColorObject.Create(gcperu));\r\n  FColorLookup.AddOrSetValue('pink', TTMSFNCGraphicsColorObject.Create(gcpink));\r\n  FColorLookup.AddOrSetValue('plum', TTMSFNCGraphicsColorObject.Create(gcplum));\r\n  FColorLookup.AddOrSetValue('powderblue', TTMSFNCGraphicsColorObject.Create(gcpowderblue));\r\n  FColorLookup.AddOrSetValue('purple', TTMSFNCGraphicsColorObject.Create(gcpurple));\r\n  FColorLookup.AddOrSetValue('red', TTMSFNCGraphicsColorObject.Create(gcred));\r\n  FColorLookup.AddOrSetValue('rosybrown', TTMSFNCGraphicsColorObject.Create(gcrosybrown));\r\n  FColorLookup.AddOrSetValue('royalblue', TTMSFNCGraphicsColorObject.Create(gcroyalblue));\r\n  FColorLookup.AddOrSetValue('saddlebrown', TTMSFNCGraphicsColorObject.Create(gcsaddlebrown));\r\n  FColorLookup.AddOrSetValue('salmon', TTMSFNCGraphicsColorObject.Create(gcsalmon));\r\n  FColorLookup.AddOrSetValue('sandybrown', TTMSFNCGraphicsColorObject.Create(gcsandybrown));\r\n  FColorLookup.AddOrSetValue('seagreen', TTMSFNCGraphicsColorObject.Create(gcseagreen));\r\n  FColorLookup.AddOrSetValue('seashell', TTMSFNCGraphicsColorObject.Create(gcseashell));\r\n  FColorLookup.AddOrSetValue('sienna', TTMSFNCGraphicsColorObject.Create(gcsienna));\r\n  FColorLookup.AddOrSetValue('skyblue', TTMSFNCGraphicsColorObject.Create(gcskyblue));\r\n  FColorLookup.AddOrSetValue('slateblue', TTMSFNCGraphicsColorObject.Create(gcslateblue));\r\n  FColorLookup.AddOrSetValue('slategray', TTMSFNCGraphicsColorObject.Create(gcslategray));\r\n  FColorLookup.AddOrSetValue('slategrey', TTMSFNCGraphicsColorObject.Create(gcslategrey));\r\n  FColorLookup.AddOrSetValue('snow', TTMSFNCGraphicsColorObject.Create(gcsnow));\r\n  FColorLookup.AddOrSetValue('springgreen', TTMSFNCGraphicsColorObject.Create(gcspringgreen));\r\n  FColorLookup.AddOrSetValue('steelblue', TTMSFNCGraphicsColorObject.Create(gcsteelblue));\r\n  FColorLookup.AddOrSetValue('violet', TTMSFNCGraphicsColorObject.Create(gcviolet));\r\n  FColorLookup.AddOrSetValue('thistle', TTMSFNCGraphicsColorObject.Create(gcthistle));\r\n  FColorLookup.AddOrSetValue('tan', TTMSFNCGraphicsColorObject.Create(gctan));\r\n  FColorLookup.AddOrSetValue('tomato', TTMSFNCGraphicsColorObject.Create(gctomato));\r\n  FColorLookup.AddOrSetValue('turquoise', TTMSFNCGraphicsColorObject.Create(gcturquoise));\r\n  FColorLookup.AddOrSetValue('wheat', TTMSFNCGraphicsColorObject.Create(gcwheat));\r\n  FColorLookup.AddOrSetValue('whitesmoke', TTMSFNCGraphicsColorObject.Create(gcwhitesmoke));\r\n  FColorLookup.AddOrSetValue('yellowgreen', TTMSFNCGraphicsColorObject.Create(gcyellowgreen));\r\n  FColorLookup.AddOrSetValue('red', TTMSFNCGraphicsColorObject.Create(gcred));\r\n  FColorLookup.AddOrSetValue('black', TTMSFNCGraphicsColorObject.Create(gcblack));\r\n  FColorLookup.AddOrSetValue('blue', TTMSFNCGraphicsColorObject.Create(gcblue));\r\n  FColorLookup.AddOrSetValue('green', TTMSFNCGraphicsColorObject.Create(gcgreen));\r\n  FColorLookup.AddOrSetValue('aqua', TTMSFNCGraphicsColorObject.Create(gcaqua));\r\n  FColorLookup.AddOrSetValue('yellow', TTMSFNCGraphicsColorObject.Create(gcyellow));\r\n  FColorLookup.AddOrSetValue('fuchsia', TTMSFNCGraphicsColorObject.Create(gcfuchsia));\r\n  FColorLookup.AddOrSetValue('white', TTMSFNCGraphicsColorObject.Create(gcwhite));\r\n  FColorLookup.AddOrSetValue('lime', TTMSFNCGraphicsColorObject.Create(gclime));\r\n  FColorLookup.AddOrSetValue('silver', TTMSFNCGraphicsColorObject.Create(gcsilver));\r\n  FColorLookup.AddOrSetValue('gray', TTMSFNCGraphicsColorObject.Create(gcgray));\r\n  FColorLookup.AddOrSetValue('olive', TTMSFNCGraphicsColorObject.Create(gcolive));\r\n  FColorLookup.AddOrSetValue('navy', TTMSFNCGraphicsColorObject.Create(gcnavy));\r\n  FColorLookup.AddOrSetValue('purple', TTMSFNCGraphicsColorObject.Create(gcpurple));\r\n  FColorLookup.AddOrSetValue('teal', TTMSFNCGraphicsColorObject.Create(gcteal));\r\n  FColorLookup.AddOrSetValue('orange', TTMSFNCGraphicsColorObject.Create(gcorange));\r\n  FColorLookup.AddOrSetValue('maroon', TTMSFNCGraphicsColorObject.Create(gcmaroon));\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\nfinalization\r\nbegin\r\n  FreeAndNil(FColorLookup);\r\nend;\r\n{$ENDIF}\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2016 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCCustomComponent;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF CMNLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n\r\n{$IFDEF FNCLIB}\r\n{$DEFINE USETRIAL}\r\n{$ELSE}\r\n{$IFDEF FMXLIB}\r\n{$DEFINE USETRIAL}\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  {$IFDEF MSWINDOWS}\r\n  {%H-}Windows,\r\n  {$ENDIF}\r\n  Classes, WEBLib.Controls, WEBLib.TMSFNCTypes\r\n  ,WEBLib.TMSFNCPersistence\r\n  {$IFNDEF FNCLIB}\r\n  {$IFDEF VCLLIB}\r\n  {$IFDEF FREEWARE}\r\n  ,TMSTrial\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  ,TypInfo;\r\n\r\ntype\r\n  TTMSFNCCustomComponentCanSavePropertyEvent = procedure(Sender: TObject; AObject: TObject; APropertyName: string; APropertyType: TTypeKind; var ACanSave: Boolean) of object;\r\n  TTMSFNCCustomComponentCanLoadPropertyEvent = procedure(Sender: TObject; AObject: TObject; APropertyName: string; APropertyType: TTypeKind; var ACanLoad: Boolean) of object;\r\n\r\n  {$IFDEF CMNWEBLIB}\r\n  TTMSFNCNameLabel = class(TCustomControl)\r\n  {$ELSE}\r\n  TTMSFNCNameLabel = class(TControl)\r\n  {$ENDIF}\r\n  private\r\n    function GetText: string;\r\n  protected\r\n    procedure Paint; override;\r\n  public\r\n    {$IFDEF FMXLIB}\r\n    procedure SetBounds(X, Y, AWidth, AHeight: Single); override;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    procedure SetBounds(X, Y, {%H-}AWidth, {%H-}AHeight: Integer); override;\r\n    {$ENDIF}\r\n\r\n    property Text: string read GetText;\r\n  end;\r\n\r\n  {$IFDEF CMNWEBLIB}\r\n  TTMSFNCCustomComponent = class(TCustomControl, ITMSFNCProductInfo, ITMSFNCPersistence)\r\n  private\r\n    FStored: Boolean;\r\n  {$ELSE}\r\n  TTMSFNCCustomComponent = class(TControl, ITMSFNCProductInfo, ITMSFNCPersistence)\r\n  {$ENDIF}\r\n  private\r\n    class var FBlockPersistenceInterface: Boolean;\r\n  private\r\n    FNameLabel: TTMSFNCNameLabel;\r\n    FDesigntimeFormPixelsPerInch: Integer;\r\n    FAppearancePersisting: Boolean;\r\n    FAdaptToStyle: Boolean;\r\n    FOnCanSaveProperty: TTMSFNCCustomComponentCanSavePropertyEvent;\r\n    FOnCanLoadProperty: TTMSFNCCustomComponentCanLoadPropertyEvent;\r\n  protected\r\n    {$IFDEF WEBLIB}\r\n    class function GetVersionNumber(AMaj, AMin, ARel, ABld: ShortInt): string;\r\n    {$ENDIF}\r\n    procedure DoCanSaveProperty(AObject: TObject; APropertyName: string; APropertyType: TTypeKind; var ACanSave: Boolean); virtual;\r\n    procedure DoCanLoadProperty(AObject: TObject; APropertyName: string; APropertyType: TTypeKind; var ACanLoad: Boolean); virtual;\r\n    function IsAppearanceProperty({%H-}AObject: TObject; {%H-}APropertyName: string; {%H-}APropertyType: TTypeKind): Boolean; virtual;\r\n    function CanSaveProperty({%H-}AObject: TObject; {%H-}APropertyName: string; {%H-}APropertyType: TTypeKind): Boolean; virtual;\r\n    function CanLoadProperty({%H-}AObject: TObject; {%H-}APropertyName: string; {%H-}APropertyType: TTypeKind): Boolean; virtual;\r\n    function GetVersion: string; virtual;\r\n    function GetDocURL: string; virtual;\r\n    function GetTipsURL: string; virtual;\r\n    function GetInstance: NativeUInt; virtual;\r\n    {$IFDEF VCLLIB}\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION > 30}\r\n    procedure ChangeScale(M, D: Integer; isDpiChange: Boolean); override;\r\n    {$ELSE}\r\n    procedure ChangeScale(M, D: Integer); override;\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n    {$ENDIF}\r\n    procedure ChangeDPIScale({%H-}M, {%H-}D: Integer); virtual;\r\n    procedure SetAdaptToStyle(const Value: Boolean); virtual;\r\n    procedure Paint; override;\r\n    procedure Loaded; override;\r\n    procedure RealignLabel;\r\n    procedure RegisterRuntimeClasses; virtual;\r\n    procedure Notification(AComponent: TComponent; Operation: TOperation); override;\r\n    property AdaptToStyle: Boolean read FAdaptToStyle write SetAdaptToStyle default False;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    procedure SetName(const Value: TComponentName); override;\r\n    {$IFDEF FMXLIB}\r\n    procedure SetBounds(X, Y, AWidth, AHeight: Single); override;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    procedure SetBounds(X, Y, {%H-}AWidth, {%H-}AHeight: Integer); override;\r\n    property Stored: Boolean read FStored write FStored;\r\n    {$ENDIF}\r\n    {$IFDEF FMXLIB}\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION = 28}\r\n    procedure BeginUpdate; virtual;\r\n    procedure EndUpdate; virtual;\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    {$IFDEF WEBLIB}\r\n    procedure BeginUpdate; override;\r\n    procedure EndUpdate; override;\r\n    {$ENDIF}\r\n    {$IFNDEF WEBLIB}\r\n    procedure BeginUpdate; virtual;\r\n    procedure EndUpdate; virtual;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    function IsDesignTime: Boolean; virtual;\r\n    function IsLoading: Boolean; virtual;\r\n    function IsReading: Boolean; virtual;\r\n    function IsDesigning: Boolean; virtual;\r\n    function IsDestroying: Boolean; virtual;\r\n    procedure SaveSettingsToFile(AFileName: string; AAppearanceOnly: Boolean = False); virtual;\r\n    procedure LoadSettingsFromFile(AFileName: string); virtual;\r\n    procedure SaveSettingsToStream(AStream: TStream; AAppearanceOnly: Boolean = False); virtual;\r\n    procedure LoadSettingsFromStream(AStream: TStream); virtual;\r\n    class property BlockPersistenceInterface: Boolean read FBlockPersistenceInterface write FBlockPersistenceInterface;\r\n    property DesigntimeFormPixelsPerInch: Integer read FDesigntimeFormPixelsPerInch;\r\n  published\r\n    {$IFDEF FMXLIB}\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION > 27}\r\n    property Size;\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n    property Position;\r\n    {$ENDIF}\r\n    property Visible {$IFDEF CMNLIB}default False{$ENDIF};\r\n    property Width;\r\n    property Height;\r\n    property OnCanSaveProperty: TTMSFNCCustomComponentCanSavePropertyEvent read FOnCanSaveProperty write FOnCanSaveProperty;\r\n    property OnCanLoadProperty: TTMSFNCCustomComponentCanLoadPropertyEvent read FOnCanLoadProperty write FOnCanLoadProperty;\r\n  end;\r\n\r\n  TTMSFNCCustomComponentClass = class of TTMSFNCCustomComponent;\r\n\r\nimplementation\r\n\r\nuses\r\n  WEBLib.TMSFNCUtils, WEBLib.Forms, SysUtils, WEBLib.TMSFNCGraphics,\r\n  WEBLib.Graphics, WEBLib.TMSFNCGraphicsTypes\r\n  {$IFNDEF LCLLIB}\r\n  ,Types\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  ,PngImage\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,WEBLib.DesignIntf\r\n  {$ENDIF}\r\n  {$IFDEF USETRIAL}\r\n  {$IFNDEF LCLLIB}\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF FMXMOBILE}\r\n  {$IFDEF FREEWARE}\r\n  {$IFDEF MACOS}\r\n  ,MacApi.AppKit, MacApi.Foundation, MacApi.Helpers\r\n  {$ENDIF}\r\n  {$IFDEF MSWINDOWS}\r\n  ,System.Win.Registry, WinApi.ShellApi\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  ,UITypes, FMX.Types, WEBLib.StdCtrls, FMX.Objects, UIConsts\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  ,VCL.StdCtrls, VCL.ExtCtrls\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  ;\r\n\r\n{ TTMSFNCCustomComponent }\r\n\r\n{$IFDEF VCLLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 30}\r\nprocedure TTMSFNCCustomComponent.ChangeScale(M, D: Integer; isDpiChange: Boolean);\r\n{$ELSE}\r\nprocedure TTMSFNCCustomComponent.ChangeScale(M, D: Integer);\r\n{$IFEND}\r\nbegin\r\n  inherited;\r\n  ChangeDPIScale(M, D);\r\nend;\r\n{$HINTS ON}\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomComponent.ChangeDPIScale({%H-}M, {%H-}D: Integer);\r\nbegin\r\nend;\r\n\r\n{$IFDEF WEBLIB}\r\nclass function TTMSFNCCustomComponent.GetVersionNumber(AMaj, AMin, ARel, ABld: ShortInt): string;\r\nbegin\r\n  Result := '';\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TTMSFNCCustomComponent.IsAppearanceProperty(AObject: TObject; APropertyName: string; APropertyType: TTypeKind): Boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n\r\nfunction TTMSFNCCustomComponent.CanSaveProperty(AObject: TObject; APropertyName: string; APropertyType: TTypeKind): Boolean;\r\nbegin\r\n  if (AObject = Self) and not BlockPersistenceInterface then\r\n    Result := (TTMSFNCUtils.IndexOfTextInArray(APropertyName, ExcludePropertyList) = -1)\r\n  else\r\n    Result := True;\r\n\r\n  if FAppearancePersisting then\r\n    Result := Result and IsAppearanceProperty(AObject, APropertyName, APropertyType);\r\n\r\n  DoCanSaveProperty(AObject, APropertyName, APropertyType, Result);\r\nend;\r\n\r\nfunction TTMSFNCCustomComponent.CanLoadProperty(AObject: TObject; APropertyName: string; APropertyType: TTypeKind): Boolean;\r\nbegin\r\n  if (AObject = Self) and not BlockPersistenceInterface then\r\n    Result := (TTMSFNCUtils.IndexOfTextInArray(APropertyName, ExcludePropertyList) = -1)\r\n  else\r\n    Result := True;\r\n\r\n  DoCanLoadProperty(AObject, APropertyName, APropertyType, Result);\r\nend;\r\n\r\nconstructor TTMSFNCCustomComponent.Create(AOwner: TComponent);\r\nvar\r\n  ppi: Integer;\r\n{$IFDEF VCLLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 34}\r\n  f: TCustomForm;\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\nbegin\r\n  inherited;\r\n  ppi := 96;\r\n  {$IFDEF VCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 34}\r\n  f := TTMSFNCUtils.GetOwnerForm(Self);\r\n  if Assigned(f) then\r\n    ppi := f.PixelsPerInch;\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n\r\n  FDesigntimeFormPixelsPerInch := ppi;\r\n\r\n  Width := 26;\r\n  Height := 26;\r\n\r\n  if not IsDesigning then\r\n    RegisterRuntimeClasses;\r\nend;\r\n\r\nprocedure TTMSFNCCustomComponent.DoCanLoadProperty(AObject: TObject;\r\n  APropertyName: string; APropertyType: TTypeKind; var ACanLoad: Boolean);\r\nbegin\r\n  if Assigned(OnCanLoadProperty) then\r\n    OnCanLoadProperty(Self, AObject, APropertyName, APropertyType, ACanLoad);\r\nend;\r\n\r\nprocedure TTMSFNCCustomComponent.DoCanSaveProperty(AObject: TObject;\r\n  APropertyName: string; APropertyType: TTypeKind; var ACanSave: Boolean);\r\nbegin\r\n  if Assigned(OnCanSaveProperty) then\r\n    OnCanSaveProperty(Self, AObject, APropertyName, APropertyType, ACanSave);\r\nend;\r\n\r\nfunction TTMSFNCCustomComponent.GetDocURL: string;\r\nbegin\r\n  Result := TTMSFNCBaseDocURL;\r\nend;\r\n\r\nfunction TTMSFNCCustomComponent.GetInstance: NativeUInt;\r\nbegin\r\n  Result := HInstance;\r\nend;\r\n\r\nfunction TTMSFNCCustomComponent.GetTipsURL: string;\r\nbegin\r\n  Result := TTMSFNCBaseTipsURL;\r\nend;\r\n\r\nfunction TTMSFNCCustomComponent.GetVersion: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCCustomComponent.IsDesignTime: Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(Owner) then\r\n    Result := IsDesigning and not ((csReading in Owner.ComponentState) or (csLoading in Owner.ComponentState));\r\nend;\r\n\r\nfunction TTMSFNCCustomComponent.IsReading: Boolean;\r\nbegin\r\n  Result := (csReading in Owner.ComponentState);\r\nend;\r\n\r\nfunction TTMSFNCCustomComponent.IsDesigning: Boolean;\r\nbegin\r\n  Result := ((csDesigning in ComponentState) {$IFDEF WEBLIB}or Assigned(VSIDE){$ENDIF});\r\nend;\r\n\r\nfunction TTMSFNCCustomComponent.IsDestroying: Boolean;\r\nbegin\r\n  Result := (csDestroying in ComponentState);\r\nend;\r\n\r\nfunction TTMSFNCCustomComponent.IsLoading: Boolean;\r\nbegin\r\n  Result := (csLoading in Owner.ComponentState);\r\nend;\r\n\r\nprocedure TTMSFNCCustomComponent.Loaded;\r\nbegin\r\n  inherited;\r\n  RealignLabel;\r\n\r\n  if not (csDesigning in ComponentState) then\r\n    Visible := False;\r\nend;\r\n\r\nprocedure TTMSFNCCustomComponent.SaveSettingsToFile(AFileName: string; AAppearanceOnly: Boolean = False);\r\nbegin\r\n  FAppearancePersisting := AAppearanceOnly;\r\n  TTMSFNCPersistence.SaveSettingsToFile(Self, AFileName);\r\n  FAppearancePersisting := False;\r\nend;\r\n\r\nprocedure TTMSFNCCustomComponent.LoadSettingsFromFile(AFileName: string);\r\nbegin\r\n  TTMSFNCPersistence.LoadSettingsFromFile(Self, AFileName);\r\nend;\r\n\r\nprocedure TTMSFNCCustomComponent.SaveSettingsToStream(AStream: TStream; AAppearanceOnly: Boolean = False);\r\nbegin\r\n  FAppearancePersisting := AAppearanceOnly;\r\n  TTMSFNCPersistence.SaveSettingsToStream(Self, AStream);\r\n  FAppearancePersisting := False;\r\nend;\r\n\r\nprocedure TTMSFNCCustomComponent.LoadSettingsFromStream(AStream: TStream);\r\nbegin\r\n  TTMSFNCPersistence.LoadSettingsFromStream(Self, AStream);\r\nend;\r\n\r\nprocedure TTMSFNCCustomComponent.Notification(AComponent: TComponent;\r\n  Operation: TOperation);\r\nbegin\r\n  inherited;\r\n\r\n  if (AComponent = FNameLabel) and (Operation = opRemove) then\r\n    FNameLabel := nil;\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION = 28}\r\nprocedure TTMSFNCCustomComponent.BeginUpdate;\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCCustomComponent.EndUpdate;\r\nbegin\r\nend;\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCCustomComponent.BeginUpdate;\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  inherited;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomComponent.EndUpdate;\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  inherited;\r\n  {$ENDIF}\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomComponent.Paint;\r\nvar\r\n  {$IFDEF VCLLIB}\r\n  png: TPngImage;\r\n  {$ENDIF}\r\n  pic: TTMSFNCBitmap;\r\n  g: TTMSFNCGraphics;\r\n  r: TResourceStream;\r\n  {$IFDEF WEBLIB}\r\n  rc: TRegisteredComponent;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  c: TClass;\r\n  {$ENDIF}\r\nbegin\r\n  inherited;\r\n  r := nil;\r\n  pic := TTMSFNCBitmap.Create;\r\n  {$IFDEF VCLLIB}\r\n  png := TPNGImage.Create;\r\n  {$ENDIF}\r\n  g := TTMSFNCGraphics.Create(Canvas);\r\n  try\r\n    g.Stroke.Kind := gskSolid;\r\n    g.Stroke.Color := gcBlack;\r\n    g.DrawRectangle(RectF(0, 0, Width, Height));\r\n\r\n    {$IFNDEF WEBLIB}\r\n    r := TTMSFNCUtils.GetResourceStream(UpperCase(ClassName), GetInstance);\r\n    c := ClassParent;\r\n    while Assigned(c) and not Assigned(r) do\r\n    begin\r\n      r := TTMSFNCUtils.GetResourceStream(UpperCase(c.ClassName), GetInstance);\r\n      c := c.ClassParent;\r\n    end;\r\n\r\n    if Assigned(r) then\r\n    begin\r\n      {$IFDEF VCLLIB}\r\n      png.LoadFromStream(r);\r\n      pic.Assign(png);\r\n      {$ELSE}\r\n      pic.LoadFromStream(r);\r\n      {$ENDIF}\r\n    end;\r\n    {$ENDIF}\r\n\r\n    {$IFDEF WEBLIB}\r\n    rc := GetRegisteredComponent(ClassName);\r\n    if Assigned(rc) then\r\n      pic.LoadFromResource(rc.Icon);\r\n    {$ENDIF}\r\n\r\n    g.DrawBitmap(RectF(2, 2, Width - 2, Height - 2), pic, True, True);\r\n  finally\r\n    if Assigned(r) then\r\n      r.Free;\r\n\r\n    pic.Free;\r\n    {$IFDEF VCLLIB}\r\n    png.Free;\r\n    {$ENDIF}\r\n    g.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomComponent.RealignLabel;\r\nbegin\r\n  if Assigned(FNameLabel) then\r\n    FNameLabel.SetBounds(Left, Top, Width, Height);\r\nend;\r\n\r\nprocedure TTMSFNCCustomComponent.RegisterRuntimeClasses;\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCCustomComponent.SetAdaptToStyle(const Value: Boolean);\r\nbegin\r\n  FAdaptToStyle := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomComponent.SetName(const Value: TComponentName);\r\nbegin\r\n  inherited;\r\n  if not Assigned(FNameLabel) and (csDesigning in ComponentState) and (Owner is TCustomForm) then\r\n  begin\r\n    FNameLabel := TTMSFNCNameLabel.Create(Self);\r\n    {$IFDEF VCLLIB}\r\n    if Owner is TWinControl then\r\n      FNameLabel.Parent := Owner as TWinControl;\r\n    {$ELSE}\r\n    FNameLabel.Parent := Self;\r\n    {$ENDIF}\r\n\r\n    FNameLabel.TabStop := False;\r\n    {$IFDEF FMXLIB}\r\n    FNameLabel.HitTest := False;\r\n    FNameLabel.Stored := False;\r\n    {$ENDIF}\r\n  end;\r\n\r\n  RealignLabel;\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomComponent.SetBounds(X, Y, AWidth, AHeight: Single);\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCCustomComponent.SetBounds(X, Y, AWidth, AHeight: Integer);\r\n{$ENDIF}\r\nvar\r\n  sc: Single;\r\nbegin\r\n  sc := FDesigntimeFormPixelsPerInch / 96;\r\n  inherited SetBounds(X, Y, Round(26 * sc), Round(26 * sc));\r\n\r\n  RealignLabel;\r\nend;\r\n\r\n{ TTMSFNCNameLabel }\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCNameLabel.SetBounds(X, Y, AWidth, AHeight: Single);\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCNameLabel.SetBounds(X, Y, AWidth, AHeight: Integer);\r\n{$ENDIF}\r\nvar\r\n  l, t, w, h: Single;\r\n  sc: Integer;\r\n  sz: TSizeF;\r\n  g: TTMSFNCGraphics;\r\n  c: TControl;\r\nbegin\r\n  g := TTMSFNCGraphics.CreateBitmapCanvas();\r\n  try\r\n    sc := 6;\r\n    if Assigned(Owner) and (Owner is TTMSFNCCustomComponent) then\r\n    begin\r\n      g.Font.Height := TTMSFNCUtils.MulDivInt(g.Font.Height, (Owner as TTMSFNCCustomComponent).FDesigntimeFormPixelsPerInch, 96);\r\n      sc := TTMSFNCUtils.MulDivInt(sc, (Owner as TTMSFNCCustomComponent).FDesigntimeFormPixelsPerInch, 96);\r\n    end;\r\n\r\n    sz := g.CalculateTextSize(Text);\r\n    w := sz.cx + sc;\r\n    h := sz.cy + sc;\r\n  finally\r\n    g.Free;\r\n  end;\r\n\r\n  if Assigned(Owner) and (Owner is TControl) then\r\n  begin\r\n    c := (Owner as TControl);\r\n    {$IFDEF VCLLIB}\r\n    l := (Owner as TControl).Left + c.Width / 2 - w / 2;\r\n    t := (Owner as TControl).Top + c.Height;\r\n    {$ELSE}\r\n    l := c.Width / 2 - w / 2;\r\n    t := c.Height;\r\n    {$ENDIF}\r\n  end\r\n  else\r\n  begin\r\n    l := X;\r\n    t := Y;\r\n  end;\r\n\r\n  inherited SetBounds(Round(l), Round(t), Round(w), Round(h));\r\nend;\r\n\r\nfunction TTMSFNCNameLabel.GetText: string;\r\nbegin\r\n  Result := '';\r\n  if Assigned(Owner) then\r\n    Result := Owner.Name;\r\nend;\r\n\r\nprocedure TTMSFNCNameLabel.Paint;\r\nvar\r\n  g: TTMSFNCGraphics;\r\nbegin\r\n  inherited;\r\n  g := TTMSFNCGraphics.Create(Canvas);\r\n  try\r\n    g.Stroke.Kind := gskSolid;\r\n    g.Stroke.Color := gcBlack;\r\n    g.Fill.Kind := gfkSolid;\r\n    g.Fill.Color := gcWhite;\r\n\r\n    g.DrawRectangle(RectF(0, 0, Width, Height));\r\n\r\n    if Assigned(Owner) and (Owner is TTMSFNCCustomComponent) then\r\n      g.Font.Height := TTMSFNCUtils.MulDivInt(g.Font.Height, (Owner as TTMSFNCCustomComponent).FDesigntimeFormPixelsPerInch, 96);\r\n\r\n    g.DrawText(RectF(0, 0, Width, Height), Text, False, gtaCenter, gtaCenter);\r\n\r\n  finally\r\n    g.Free;\r\n  end;\r\nend;\r\n\r\n{$IFDEF USETRIAL}\r\n{$IFNDEF WEBLIB}\r\n{$IFNDEF LCLLIB}\r\n{$IFNDEF FMXMOBILE}\r\n{$IFDEF FREEWARE}\r\nconst TMSPRODUCTOFFSET = 700;\r\n{$I TMSProductTrial.inc}\r\n{$ENDIF}\r\n{$ENDIF}\r\n{$ENDIF}\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2016 - 2021                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCGraphics;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF CMNLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n\r\n{$DEFINE SVGSUPPORT}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  {$IFDEF MSWINDOWS}\r\n  Windows,\r\n  {$ENDIF}\r\n  Classes, WEBLib.TMSFNCGraphicsTypes, WEBLib.Graphics,\r\n  {$IFDEF WEBLIB}\r\n  JS,\r\n  {$ENDIF}\r\n  {$IFNDEF LIMITEDGRAPHICSMODE}\r\n  WEBLib.TMSFNCBitmapContainer,\r\n  {$ENDIF}\r\n  Types, WEBLib.TMSFNCTypes\r\n  {$IFDEF CMNLIB}\r\n  ,FMX.ImgList\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  ,UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCGraphics = class;\r\n\r\n  TTMSFNCGraphicsContext = class\r\n  private\r\n    {$IFDEF AUTOREFCOUNT}\r\n    [Weak]FGraphics: TTMSFNCGraphics;\r\n    {$ELSE}\r\n    FGraphics: TTMSFNCGraphics;\r\n    {$ENDIF}\r\n    function GetCanvas: TCanvas;\r\n    function GetGraphics: TTMSFNCGraphics;\r\n  protected\r\n    function GetNativeCanvas: Pointer; virtual; abstract;\r\n  public\r\n    constructor Create(const AGraphics: TTMSFNCGraphics); virtual;\r\n    function CreatePath: Pointer; virtual; abstract;\r\n    function ConvertToPath(APath: TTMSFNCGraphicsPath; const Flatness: Single = 0.25): Pointer;\r\n    function GetFillColor: TTMSFNCGraphicsColor; virtual; abstract;\r\n    function CalculateText(AText: string; ARect: TRectF; AWordWrapping: Boolean): TRectF; virtual; abstract;\r\n    function SetTextAngle(ARect: TRectF; AAngle: Single): TRectF; virtual; abstract;\r\n    function GetMatrix: TTMSFNCGraphicsMatrix; virtual; abstract;\r\n    procedure Render; virtual; abstract;\r\n    procedure PathOpen(APath: Pointer); virtual; abstract;\r\n    procedure PathMoveTo(APath: Pointer; APoint: TPointF); virtual; abstract;\r\n    procedure PathLineTo(APath: Pointer; APoint: TPointF); virtual; abstract;\r\n    procedure SetScale(AScale: Single); virtual; abstract;\r\n    procedure PathClose(APath: Pointer); virtual; abstract;\r\n    procedure ResetClip; virtual; abstract;\r\n    procedure ResetTransform; virtual; abstract;\r\n    procedure ScaleTransform(AX, AY: Single); virtual; abstract;\r\n    procedure RotateTransform(AAngle: Single); virtual; abstract;\r\n    procedure TranslateTransform(AX, AY: Single); virtual; abstract;\r\n    procedure SetTextQuality(ATextQuality: TTMSFNCGraphicsTextQuality); virtual; abstract;\r\n    procedure SetAntiAliasing(AAntiAliasing: Boolean); virtual; abstract;\r\n    procedure SetShowAcceleratorChar(AShowAcceleratorChar: Boolean); virtual; abstract;\r\n    procedure SetSize(AWidth, AHeight: Single); virtual; abstract;\r\n    procedure ResetTextAngle(AAngle: Single); virtual; abstract;\r\n    procedure BeginScene; virtual; abstract;\r\n    procedure EndScene; virtual; abstract;\r\n    procedure BeginPrinting; virtual; abstract;\r\n    procedure EndPrinting; virtual; abstract;\r\n    procedure StartSpecialPen; virtual; abstract;\r\n    procedure StopSpecialPen; virtual; abstract;\r\n    procedure RestoreState(AState: TTMSFNCGraphicsSaveState); virtual; abstract;\r\n    procedure SaveState(AState: TTMSFNCGraphicsSaveState); virtual; abstract;\r\n    procedure SetFontSize(ASize: Integer); virtual; abstract;\r\n    procedure SetFontColor(AColor: TTMSFNCGraphicsColor); virtual; abstract;\r\n    procedure SetFontName(AName: string); virtual; abstract;\r\n    procedure SetFont(AFont: TTMSFNCGraphicsFont); virtual; abstract;\r\n    procedure SetFontStyles(AStyle: TFontStyles); virtual; abstract;\r\n    procedure SetMatrix(AMatrix: TTMSFNCGraphicsMatrix); virtual; abstract;\r\n    procedure SetFill(AFill: TTMSFNCGraphicsFill); virtual; abstract;\r\n    procedure SetFillKind(AKind: TTMSFNCGraphicsFillKind); virtual; abstract;\r\n    procedure SetFillColor(AColor: TTMSFNCGraphicsColor); virtual; abstract;\r\n    procedure SetStroke(AStroke: TTMSFNCGraphicsStroke); virtual; abstract;\r\n    procedure SetStrokeKind(AKind: TTMSFNCGraphicsStrokeKind); virtual; abstract;\r\n    procedure SetStrokeColor(AColor: TTMSFNCGraphicsColor); virtual; abstract;\r\n    procedure SetStrokeWidth(AWidth: Single); virtual; abstract;\r\n    procedure DrawLine(AStroke: TTMSFNCGraphicsStroke; AFromPoint: TPointF; AToPoint: TPointF; AModifyPointModeFrom: TTMSFNCGraphicsModifyPointMode = gcpmRightDown; AModifyPointModeTo: TTMSFNCGraphicsModifyPointMode = gcpmRightDown); virtual; abstract;\r\n    procedure DrawPolygon(AStroke: TTMSFNCGraphicsStroke; APolygon: TTMSFNCGraphicsPathPolygon); virtual; abstract;\r\n    procedure FillPolygon(AFill: TTMSFNCGraphicsFill; APolygon: TTMSFNCGraphicsPathPolygon); virtual; abstract;\r\n    procedure DrawPolyline(AStroke: TTMSFNCGraphicsStroke; APolyline: TTMSFNCGraphicsPathPolygon); virtual; abstract;\r\n    procedure FillPolyline(AFill: TTMSFNCGraphicsFill; APolyline: TTMSFNCGraphicsPathPolygon); virtual; abstract;\r\n    procedure FillArc(AFill: TTMSFNCGraphicsFill; ACenter, ARadius: TPointF; AStartAngle, ASweepAngle: Single); virtual; abstract;\r\n    procedure DrawArc(AStroke: TTMSFNCGraphicsStroke; ACenter, ARadius: TPointF; AStartAngle, ASweepAngle: Single); virtual; abstract;\r\n    procedure FillRect(AFill: TTMSFNCGraphicsFill; ARect: TRectF; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); virtual; abstract;\r\n    procedure DrawRect(AStroke: TTMSFNCGraphicsStroke; ARect: TRectF; ASides: TTMSFNCGraphicsSides; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); virtual; abstract;\r\n    procedure FillRoundRect(AFill: TTMSFNCGraphicsFill; ARect: TRectF; ARounding: Single; ACorners: TTMSFNCGraphicsCorners; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); virtual; abstract;\r\n    procedure DrawRoundRect(AStroke: TTMSFNCGraphicsStroke; ARect: TRectF; ARounding: Single; ACorners: TTMSFNCGraphicsCorners; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); virtual; abstract;\r\n    procedure FillEllipse(AFill: TTMSFNCGraphicsFill; ARect: TRectF; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); virtual; abstract;\r\n    procedure DrawEllipse(AStroke: TTMSFNCGraphicsStroke; ARect: TRectF; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); virtual; abstract;\r\n    procedure DrawBitmap(ABitmap: TTMSFNCDrawBitmap; ASrcRect, ADstRect: TRectF; AOpacity: Single); virtual; abstract;\r\n    procedure ClipRect(ARect: TRectF); virtual; abstract;\r\n    procedure ClipPath(APath: TTMSFNCGraphicsPath); virtual; abstract;\r\n    procedure DrawFocusPath(AStroke: TTMSFNCGraphicsStroke; APath: TTMSFNCGraphicsPath; AColor: TTMSFNCGraphicsColor); virtual; abstract;\r\n    procedure DrawFocusRectangle(AStroke: TTMSFNCGraphicsStroke; ARect: TRectF; AColor: TTMSFNCGraphicsColor; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); virtual; abstract;\r\n    procedure DrawText(AText: string; ARect: TRectF; AWordWrapping: Boolean; AHorizontalAlign, AVerticalAlign: TTMSFNCGraphicsTextAlign; ATrimming: TTMSFNCGraphicsTextTrimming; AAngle: Single); virtual; abstract;\r\n    procedure DrawPath(AStroke: TTMSFNCGraphicsStroke; APath: TTMSFNCGraphicsPath; APathMode: TTMSFNCGraphicsPathDrawMode = pdmPolygon); virtual; abstract;\r\n    procedure FillPath(AFill: TTMSFNCGraphicsFill; APath: TTMSFNCGraphicsPath; APathMode: TTMSFNCGraphicsPathDrawMode = pdmPolygon); virtual; abstract;\r\n    property Canvas: TCanvas read GetCanvas;\r\n    property NativeCanvas: Pointer read GetNativeCanvas;\r\n    property Graphics: TTMSFNCGraphics read GetGraphics;\r\n  end;\r\n\r\n  TTMSFNCGraphicsContextClass = class of TTMSFNCGraphicsContext;\r\n\r\n  TTMSFNCGraphics = class\r\n  private\r\n    FSaveFont: TTMSFNCGraphicsFont;\r\n    FActiveCanvas: TCanvas;\r\n    FBlockUpdate: Integer;\r\n    FNative: Boolean;\r\n    FContextNative, FContextGeneral: TTMSFNCGraphicsContext;\r\n    FBitmap: TBitmap;\r\n    FFill: TTMSFNCGraphicsFill;\r\n    FStroke: TTMSFNCGraphicsStroke;\r\n    FFont: TTMSFNCGraphicsFont;\r\n    {$IFNDEF LIMITEDGRAPHICSMODE}\r\n    FHighlightColor: TTMSFNCGraphicsColor;\r\n    FOptimizedHTMLDrawing: Boolean;\r\n    FHighlightTextColor: TTMSFNCGraphicsColor;\r\n    FHighlightFontStyles: TFontStyles;\r\n    FURLUnderline: Boolean;\r\n    FURLColor: TTMSFNCGraphicsColor;\r\n    FBitmapContainer: TTMSFNCBitmapContainer;\r\n    {$IFDEF CMNLIB}\r\n    FImageList: TCustomImageList;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    function GetCanvas: TCanvas;\r\n    function GetContext: TTMSFNCGraphicsContext;\r\n  protected\r\n    procedure FontChanged(Sender: TObject);\r\n    procedure FillChanged(Sender: TObject);\r\n    procedure StrokeChanged(Sender: TObject);\r\n    procedure InitializeDefaultAppearance;\r\n    function InternalDrawBitmapPartSync(ASourceLeft: Double; ASourceTop: Double; ASourceRight: Double; ASourceBottom: Double; ADestinationLeft: Double; ADestinationTop: Double;\r\n    ADestinationRight: Double; ADestinationBottom: Double; ABitmap: TTMSFNCBitmapHelperClass; AAspectRatio: Boolean = True; AStretch: Boolean = False;\r\n    ACenter: Boolean = True; ACropping: Boolean = False): {$IFDEF WEBLIB}TJSPromise{$ELSE}TTMSFNCBitmap{$ENDIF};\r\n    function InternalCalculateText(AText: String; ARect: TRectF; AWordWrapping: Boolean = False{$IFNDEF LIMITEDGRAPHICSMODE}; ASupportHTML: Boolean = True{$ENDIF}): TRectF; overload; virtual;\r\n    function InternalDrawText(ARect: TRectF; AText: String; var AControlID: String; var AControlValue: String; var AControlType: string;AWordWrapping: Boolean = False; AHorizontalAlign: TTMSFNCGraphicsTextAlign = gtaLeading; AVerticalAlign: TTMSFNCGraphicsTextAlign = gtaCenter; ATrimming: TTMSFNCGraphicsTextTrimming = gttNone; AAngle: Single = 0;\r\n      AMinWidth: Single = -1; AMinHeight: Single = -1 {$IFNDEF LIMITEDGRAPHICSMODE};ASupportHTML: Boolean = True; ATestAnchor: Boolean = False; AX: Single = -1; AY: Single = - 1{$ENDIF}): String; overload; virtual;\r\n    procedure DrawTexture(ARect: TRectF; ATexture: TTMSFNCBitmap; ATextureMode: TTMSFNCGraphicsTextureMode);\r\n    {$IFDEF SVGSUPPORT}\r\n    function DrawSVG(ABitmap: TTMSFNCBitmapHelperClass; ARect: TRectF): Boolean;\r\n    function HasSVG(ABitmap: TTMSFNCBitmapHelperClass): Boolean;\r\n    {$ENDIF}\r\n    class procedure ConvertBitmapToGrayScale(ABitmap: TTMSFNCBitmap);\r\n  public class var\r\n    DefaultSelectionFillColor: TTMSFNCGraphicsColor;\r\n    DefaultTextFontColor: TTMSFNCGraphicsColor;\r\n    DefaultPopupFillColor: TTMSFNCGraphicsColor;\r\n    DefaultPopupStrokeColor: TTMSFNCGraphicsColor;\r\n    DefaultButtonStrokeColorFocused: TTMSFNCGraphicsColor;\r\n    DefaultButtonFillColorFocused: TTMSFNCGraphicsColor;\r\n    DefaultButtonStrokeColorDisabled: TTMSFNCGraphicsColor;\r\n    DefaultButtonFillColorDisabled: TTMSFNCGraphicsColor;\r\n    DefaultButtonStrokeColor: TTMSFNCGraphicsColor;\r\n    DefaultButtonFillColor: TTMSFNCGraphicsColor;\r\n  public\r\n    constructor Create(ACanvas: TCanvas; ANative: Boolean = False); virtual;\r\n    constructor CreateNative(ACanvas: TCanvas); virtual;\r\n    constructor CreateBitmapCanvas(AWidth: Integer = 1; AHeight: Integer = 1; ANative: Boolean = False; {%H-}AHighDPI: Boolean = True); virtual;\r\n    constructor CreateNativeBitmapCanvas(AWidth: Integer = 1; AHeight: Integer = 1); virtual;\r\n    destructor Destroy; override;\r\n    function GetMatrix: TTMSFNCGraphicsMatrix; virtual;\r\n    procedure StartSpecialPen;\r\n    procedure StopSpecialPen;\r\n    procedure BeginPrinting; virtual;\r\n    procedure EndPrinting; virtual;\r\n    procedure BeginScene; virtual;\r\n    procedure EndScene; virtual;\r\n    procedure SetMatrix(const AMatrix: TTMSFNCGraphicsMatrix); virtual;\r\n    procedure Assign(Source: TTMSFNCGraphics); virtual;\r\n    procedure SetFill(AFill: TTMSFNCGraphicsFill); virtual;\r\n    procedure SetStroke(AStroke: TTMSFNCGraphicsStroke); virtual;\r\n    procedure RestoreState(AState: TTMSFNCGraphicsSaveState; ACanvasOnly: Boolean = False); virtual;\r\n    procedure SetFillKind(AKind: TTMSFNCGraphicsFillKind); virtual;\r\n    procedure SetFillColor(AColor: TTMSFNCGraphicsColor); virtual;\r\n    procedure SetFontColor(AColor: TTMSFNCGraphicsColor); virtual;\r\n    procedure SetFontName(AName: string); virtual;\r\n    procedure SetFont(AFont: TTMSFNCGraphicsFont); virtual;\r\n    procedure SetFontSize(ASize: Integer); virtual;\r\n    procedure SetFontStyles(AStyle: TFontStyles); virtual;\r\n    procedure SetStrokeKind(AKind: TTMSFNCGraphicsStrokeKind); virtual;\r\n    procedure SetStrokeColor(AColor: TTMSFNCGraphicsColor); virtual;\r\n    procedure SetStrokeWidth(AWidth: Single); virtual;\r\n    procedure DrawLine(AFromPoint: TPoint; AToPoint: TPoint; {%H-}AModifyPointModeFrom: TTMSFNCGraphicsModifyPointMode = gcpmRightDown; {%H-}AModifyPointModeTo: TTMSFNCGraphicsModifyPointMode = gcpmRightDown); overload; virtual;\r\n    procedure DrawLine(AFromPoint: TPointF; AToPoint: TPointF; {%H-}AModifyPointModeFrom: TTMSFNCGraphicsModifyPointMode = gcpmRightDown; {%H-}AModifyPointModeTo: TTMSFNCGraphicsModifyPointMode = gcpmRightDown); overload; virtual;\r\n    procedure DrawFocusRectangle(ALeft, ATop, ARight, ABottom: Integer; AColor: TTMSFNCGraphicsColor = gcBlack; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); overload; virtual;\r\n    procedure DrawFocusRectangle(ARect: TRect; AColor: TTMSFNCGraphicsColor = gcBlack; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); overload; virtual;\r\n    procedure DrawFocusRectangle(ALeft, ATop, ARight, ABottom: Double; AColor: TTMSFNCGraphicsColor = gcBlack; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); overload; virtual;\r\n    procedure DrawFocusRectangle(ARect: TRectF; AColor: TTMSFNCGraphicsColor = gcBlack; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); overload; virtual;\r\n    procedure DrawFocusPath(APath: TTMSFNCGraphicsPath; AColor: TTMSFNCGraphicsColor = gcBlack); virtual;\r\n    procedure DrawPolygon(APolygon: TTMSFNCGraphicsPathPolygon); virtual;\r\n    procedure DrawPolyline(APolyline: TTMSFNCGraphicsPathPolygon); virtual;\r\n    procedure DrawPath(APath: TTMSFNCGraphicsPath; APathMode: TTMSFNCGraphicsPathDrawMode = pdmPolygon); virtual;\r\n    procedure DrawArc(const Center, Radius: TPointF; StartAngle, SweepAngle: Single); overload; virtual;\r\n    procedure DrawArc(const Center, Radius: TPoint; StartAngle, SweepAngle: Integer); overload; virtual;\r\n    procedure DrawRectangle(ALeft, ATop, ARight, ABottom: Double; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); overload; virtual;\r\n    procedure DrawRectangle(ALeft, ATop, ARight, ABottom: Double; ASides: TTMSFNCGraphicsSides; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); overload; virtual;\r\n    procedure DrawEllipse(ALeft, ATop, ARight, ABottom: Double; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); overload; virtual;\r\n    procedure DrawRectangle(ARect: TRectF; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); overload; virtual;\r\n    procedure DrawRectangle(ARect: TRectF; ASides: TTMSFNCGraphicsSides; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); overload; virtual;\r\n    procedure DrawRectangle(ALeft, ATop, ARight, ABottom: Integer; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); overload; virtual;\r\n    procedure DrawRectangle(ALeft, ATop, ARight, ABottom: Integer; ASides: TTMSFNCGraphicsSides; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); overload; virtual;\r\n    procedure DrawEllipse(ALeft, ATop, ARight, ABottom: Integer; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); overload; virtual;\r\n    procedure DrawRectangle(ARect: TRect; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); overload; virtual;\r\n    procedure DrawRectangle(ARect: TRect; ASides: TTMSFNCGraphicsSides; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); overload; virtual;\r\n    procedure DrawRoundRectangle(ALeft, ATop, ARight, ABottom: Double; ARounding: Single = 10; ACorners: TTMSFNCGraphicsCorners = [gcTopLeft, gcTopRight, gcBottomLeft, gcBottomRight]; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); overload; virtual;\r\n    procedure DrawRoundRectangle(ARect: TRectF; ARounding: Single = 10; ACorners: TTMSFNCGraphicsCorners = [gcTopLeft, gcTopRight, gcBottomLeft, gcBottomRight]; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); overload; virtual;\r\n    procedure DrawRoundRectangle(ALeft, ATop, ARight, ABottom: Integer; ARounding: Integer = 10; ACorners: TTMSFNCGraphicsCorners = [gcTopLeft, gcTopRight, gcBottomLeft, gcBottomRight]; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); overload; virtual;\r\n    procedure DrawRoundRectangle(ARect: TRect; ARounding: Integer = 10; ACorners: TTMSFNCGraphicsCorners = [gcTopLeft, gcTopRight, gcBottomLeft, gcBottomRight]; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); overload; virtual;\r\n    procedure DrawEllipse(ARect: TRectF; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); overload; virtual;\r\n    procedure DrawBitmapPart(ASourceLeft, ASourceTop, ASourceRight, ASourceBottom: Double; ADestinationLeft, ADestinationTop, ADestinationRight, ADestinationBottom: Double;\r\n    ABitmap: TTMSFNCBitmapHelperClass; AAspectRatio: Boolean = True; AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False); overload; virtual;\r\n    procedure DrawBitmapPart(ASourceRect: TRectF; ADestinationRect: TRectF; ABitmap: TTMSFNCBitmapHelperClass; AAspectRatio: Boolean = True;\r\n      AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False); overload; virtual;\r\n    procedure DrawBitmap(ALeft, ATop, ARight, ABottom: Double; ABitmap: TTMSFNCBitmapHelperClass; AAspectRatio: Boolean = True;\r\n      AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False); overload; virtual;\r\n    procedure DrawBitmap(ARect: TRectF; ABitmap: TTMSFNCBitmapHelperClass; AAspectRatio: Boolean = True;\r\n      AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False); overload; virtual;\r\n    procedure DrawEllipse(ARect: TRect; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); overload; virtual;\r\n    procedure DrawBitmapPart(ASourceLeft, ASourceTop, ASourceRight, ASourceBottom: Integer; ADestinationLeft, ADestinationTop, ADestinationRight, ADestinationBottom: Integer;\r\n    ABitmap: TTMSFNCBitmapHelperClass; AAspectRatio: Boolean = True; AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False); overload; virtual;\r\n    procedure DrawBitmapPart(ASourceRect: TRect; ADestinationRect: TRect; ABitmap: TTMSFNCBitmapHelperClass; AAspectRatio: Boolean = True;\r\n      AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False); overload; virtual;\r\n    procedure DrawBitmap(ALeft, ATop, ARight, ABottom: Integer; ABitmap: TTMSFNCBitmapHelperClass; AAspectRatio: Boolean = True;\r\n      AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False); overload; virtual;\r\n    procedure DrawBitmap(ARect: TRect; ABitmap: TTMSFNCBitmapHelperClass; AAspectRatio: Boolean = True;\r\n      AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False); overload; virtual;\r\n    procedure DrawBitmap(ALeft, ATop: Integer; ABitmap: TTMSFNCBitmapHelperClass); overload; virtual;\r\n    procedure DrawBitmap(ALeft, ATop: Single; ABitmap: TTMSFNCBitmapHelperClass); overload; virtual;\r\n    procedure DrawCheckBox(ARect: TRectF; AChecked: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; AScaleFactor: Single = 1.0); overload; virtual;\r\n    procedure DrawButton(ARect: TRectF; ADown: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; AAdaptToStyle: Boolean = True; AScaleFactor: Single = 1.0); overload; virtual;\r\n    procedure DrawCloseButton(ARect: TRectF; ADown: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; AAdaptToStyle: Boolean = True; AScaleFactor: Single = 1.0); overload; virtual;\r\n    procedure DrawExpanderButton(ARect: TRectF; AState: TTMSFNCGraphicsExpanderState = gesExpanded; ADown: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; AAdaptToStyle: Boolean = True; AScaleFactor: Single = 1.0); overload; virtual;\r\n    procedure DrawCompactButton(ARect: TRectF; AState: TTMSFNCGraphicsCompactState = gcsExpanded; ADown: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; AAdaptToStyle: Boolean = True; AScaleFactor: Single = 1.0); overload; virtual;\r\n    procedure DrawDropDownButton(ARect: TRectF; ADown: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; ACenter: Boolean = False; AAdaptToStyle: Boolean = True; AScaleFactor: Single = 1.0); overload; virtual;\r\n    procedure DrawRadioButton(ARect: TRectF; AChecked: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; AScaleFactor: Single = 1.0); overload; virtual;\r\n    procedure DrawProgressBar(ARect: TRectF; AValue: Single; AFormat: string = '%.0f%%'; AMax: Single = 100; AColor: TTMSFNCGraphicsColor = gcYellowgreen; ATextColor: TTMSFNCGraphicsColor = gcBlack; AShowText: Boolean = True; AEnabled: Boolean = True; AScaleFactor: Single = 1.0); overload; virtual;\r\n    procedure DrawCheckBox(ARect: TRect; AChecked: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; AScaleFactor: Single = 1.0); overload; virtual;\r\n    procedure DrawButton(ARect: TRect; ADown: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; AAdaptToStyle: Boolean = True; AScaleFactor: Single = 1.0); overload; virtual;\r\n    procedure DrawCloseButton(ARect: TRect; ADown: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; AAdaptToStyle: Boolean = True; AScaleFactor: Single = 1.0); overload; virtual;\r\n    procedure DrawExpanderButton(ARect: TRect; AState: TTMSFNCGraphicsExpanderState = gesExpanded; ADown: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; AAdaptToStyle: Boolean = True; AScaleFactor: Single = 1.0); overload; virtual;\r\n    procedure DrawCompactButton(ARect: TRect; AState: TTMSFNCGraphicsCompactState = gcsExpanded; ADown: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; AAdaptToStyle: Boolean = True; AScaleFactor: Single = 1.0); overload; virtual;\r\n    procedure DrawDropDownButton(ARect: TRect; ADown: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; ACenter: Boolean = False; AAdaptToStyle: Boolean = True; AScaleFactor: Single = 1.0); overload; virtual;\r\n    procedure DrawRadioButton(ARect: TRect; AChecked: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; AScaleFactor: Single = 1.0); overload; virtual;\r\n    procedure DrawProgressBar(ARect: TRect; AValue: Single; AFormat: string = '%.0f%%'; AMax: Single = 100; AColor: TTMSFNCGraphicsColor = gcYellowgreen; ATextColor: TTMSFNCGraphicsColor = gcBlack; AShowText: Boolean = True; AEnabled: Boolean = True; AScaleFactor: Single = 1.0); overload; virtual;\r\n    {$IFNDEF LIMITEDGRAPHICSMODE}\r\n    procedure DrawBitmapWithName(ALeft, ATop, ARight, ABottom: Double; ABitmapName: string; AApplyScale: Boolean = False; AScale: Single = 0; AAspectRatio: Boolean = True;\r\n      AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False); overload; virtual;\r\n    procedure DrawBitmapWithName(ARect: TRectF; ABitmapName: string; AApplyScale: Boolean = False; AScale: Single = 0; AAspectRatio: Boolean = True;\r\n      AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False); overload; virtual;\r\n    procedure DrawScaledBitmap(ARect: TRectF; ABitmaps: TTMSFNCScaledBitmaps; AScale: Single = 0; AAspectRatio: Boolean = True;\r\n      AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False); overload; virtual;\r\n    procedure DrawScaledBitmap(ALeft, ATop, ARight, ABottom: Double; ABitmaps: TTMSFNCScaledBitmaps; AScale: Single = 0; AAspectRatio: Boolean = True;\r\n      AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False); overload; virtual;\r\n    procedure DrawBitmapWithName(ALeft, ATop, ARight, ABottom: Integer; ABitmapName: string; AApplyScale: Boolean = False; AScale: Single = 0; AAspectRatio: Boolean = True;\r\n      AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False); overload; virtual;\r\n    procedure DrawBitmapWithName(ARect: TRect; ABitmapName: string; AApplyScale: Boolean = False; AScale: Single = 0; AAspectRatio: Boolean = True;\r\n      AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False); overload; virtual;\r\n    procedure DrawScaledBitmap(ARect: TRect; ABitmaps: TTMSFNCScaledBitmaps; AScale: Single = 0; AAspectRatio: Boolean = True;\r\n      AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False); overload; virtual;\r\n    procedure DrawScaledBitmap(ALeft, ATop, ARight, ABottom: Integer; ABitmaps: TTMSFNCScaledBitmaps; AScale: Single = 0; AAspectRatio: Boolean = True;\r\n      AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False); overload; virtual;\r\n    {$ENDIF}\r\n    function GetBitmapDrawRectangle(ALeft, ATop, ARight, ABottom: Double; ABitmap: TTMSFNCBitmapHelperClass; AAspectRatio: Boolean = True;\r\n      AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False): TRectF; overload; virtual;\r\n    function GetBitmapDrawRectangle(ARect: TRectF; ABitmap: TTMSFNCBitmapHelperClass; AAspectRatio: Boolean = True;\r\n      AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False): TRectF; overload; virtual;\r\n    function GetBitmapDrawRectangle(ALeft, ATop, ARight, ABottom: Integer; ABitmap: TTMSFNCBitmapHelperClass; AAspectRatio: Boolean = True;\r\n      AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False): TRect; overload; virtual;\r\n    function GetBitmapDrawRectangle(ARect: TRect; ABitmap: TTMSFNCBitmapHelperClass; AAspectRatio: Boolean = True;\r\n      AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False): TRect; overload; virtual;\r\n    procedure ClipRect(ARect: TRectF); overload; virtual;\r\n    function DrawBitmapPartSync(ASourceLeft: Double; ASourceTop: Double; ASourceRight: Double; ASourceBottom: Double; ADestinationLeft: Double; ADestinationTop: Double;\r\n    ADestinationRight: Double; ADestinationBottom: Double; ABitmap: TTMSFNCBitmapHelperClass; AAspectRatio: Boolean = True; AStretch: Boolean = False;\r\n    ACenter: Boolean = True; ACropping: Boolean = False): TTMSFNCBitmap; virtual; {$IFDEF WEBLIB} async;{$ENDIF}\r\n    function CalculateTextSize(AText: string; ARect: TRectF; AWordWrapping: Boolean = False{$IFNDEF LIMITEDGRAPHICSMODE}; ASupportHTML: Boolean = True{$ENDIF}): TSizeF; overload; virtual;\r\n    function CalculateTextWidth(AText: string; ARect: TRectF; AWordWrapping: Boolean = False{$IFNDEF LIMITEDGRAPHICSMODE}; ASupportHTML: Boolean = True{$ENDIF}): Single; overload; virtual;\r\n    function CalculateTextHeight(AText: string; ARect: TRectF; AWordWrapping: Boolean = False{$IFNDEF LIMITEDGRAPHICSMODE}; ASupportHTML: Boolean = True{$ENDIF}): Single; overload; virtual;\r\n    function CalculateText(AText: String; ARect: TRectF; AWordWrapping: Boolean = False{$IFNDEF LIMITEDGRAPHICSMODE}; ASupportHTML: Boolean = True{$ENDIF}): TRectF; overload; virtual;\r\n    function CalculateTextSize(AText: string): TSizeF; overload; virtual;\r\n    function CalculateTextWidth(AText: string): Single; overload; virtual;\r\n    function CalculateTextHeight(AText: string): Single; overload; virtual;\r\n    function CalculateText(AText: String): TRectF; overload; virtual;\r\n    procedure ClipRect(ARect: TRect); overload; virtual;\r\n    function CalculateTextSize(AText: string; ARect: TRect; AWordWrapping: Boolean = False{$IFNDEF LIMITEDGRAPHICSMODE}; ASupportHTML: Boolean = True{$ENDIF}): TSize; overload; virtual;\r\n    function CalculateTextWidth(AText: string; ARect: TRect; AWordWrapping: Boolean = False{$IFNDEF LIMITEDGRAPHICSMODE}; ASupportHTML: Boolean = True{$ENDIF}): Integer; overload; virtual;\r\n    function CalculateTextHeight(AText: string; ARect: TRect; AWordWrapping: Boolean = False{$IFNDEF LIMITEDGRAPHICSMODE}; ASupportHTML: Boolean = True{$ENDIF}): Integer; overload; virtual;\r\n    function CalculateText(AText: String; ARect: TRect; AWordWrapping: Boolean = False{$IFNDEF LIMITEDGRAPHICSMODE}; ASupportHTML: Boolean = True{$ENDIF}): TRect; overload; virtual;\r\n    function CalculateTextSizeInt(AText: string): TSize; overload; virtual;\r\n    function CalculateTextWidthInt(AText: string): Integer; overload; virtual;\r\n    function CalculateTextHeightInt(AText: string): Integer; overload; virtual;\r\n    function CalculateTextInt(AText: String): TRect; overload; virtual;\r\n    function DrawText(APoint: TPointF; AText: String; AAngle: Single = 0 {$IFNDEF LIMITEDGRAPHICSMODE};ASupportHTML: Boolean = True; ATestAnchor: Boolean = False; AX: Single = -1; AY: Single = - 1{$ENDIF}): String; overload; virtual;\r\n    function DrawText(ARect: TRectF; AText: String; AWordWrapping: Boolean = False; AHorizontalAlign: TTMSFNCGraphicsTextAlign = gtaLeading; AVerticalAlign: TTMSFNCGraphicsTextAlign = gtaCenter; ATrimming: TTMSFNCGraphicsTextTrimming = gttNone; AAngle: Single = 0;\r\n      AMinWidth: Single = -1; AMinHeight: Single = -1 {$IFNDEF LIMITEDGRAPHICSMODE};ASupportHTML: Boolean = True; ATestAnchor: Boolean = False; AX: Single = -1; AY: Single = - 1{$ENDIF}): String; overload; virtual;\r\n    function DrawText(ALeft, ATop, ARight, ABottom: Double; AText: String; AWordWrapping: Boolean = False; AHorizontalAlign: TTMSFNCGraphicsTextAlign = gtaLeading; AVerticalAlign: TTMSFNCGraphicsTextAlign = gtaCenter; ATrimming: TTMSFNCGraphicsTextTrimming = gttNone; AAngle: Single = 0;\r\n      AMinWidth: Single = -1; AMinHeight: Single = -1 {$IFNDEF LIMITEDGRAPHICSMODE};ASupportHTML: Boolean = True; ATestAnchor: Boolean = False; AX: Single = -1; AY: Single = - 1{$ENDIF}): String; overload; virtual;\r\n    function DrawText(ARect: TRect; AText: String; AWordWrapping: Boolean = False; AHorizontalAlign: TTMSFNCGraphicsTextAlign = gtaLeading; AVerticalAlign: TTMSFNCGraphicsTextAlign = gtaCenter; ATrimming: TTMSFNCGraphicsTextTrimming = gttNone; AAngle: Single = 0;\r\n      AMinWidth: Single = -1; AMinHeight: Single = -1 {$IFNDEF LIMITEDGRAPHICSMODE};ASupportHTML: Boolean = True; ATestAnchor: Boolean = False; AX: Single = -1; AY: Single = - 1{$ENDIF}): String; overload; virtual;\r\n    function DrawText(ALeft, ATop, ARight, ABottom: Integer; AText: String; AWordWrapping: Boolean = False; AHorizontalAlign: TTMSFNCGraphicsTextAlign = gtaLeading; AVerticalAlign: TTMSFNCGraphicsTextAlign = gtaCenter; ATrimming: TTMSFNCGraphicsTextTrimming = gttNone; AAngle: Single = 0;\r\n      AMinWidth: Single = -1; AMinHeight: Single = -1 {$IFNDEF LIMITEDGRAPHICSMODE};ASupportHTML: Boolean = True; ATestAnchor: Boolean = False; AX: Single = -1; AY: Single = - 1{$ENDIF}): String; overload; virtual;\r\n    function DrawText(ARect: TRectF; AText: String; var AControlID: String; var AControlValue: String; var AControlType: string;AWordWrapping: Boolean = False; AHorizontalAlign: TTMSFNCGraphicsTextAlign = gtaLeading; AVerticalAlign: TTMSFNCGraphicsTextAlign = gtaCenter; ATrimming: TTMSFNCGraphicsTextTrimming = gttNone; AAngle: Single = 0;\r\n      AMinWidth: Single = -1; AMinHeight: Single = -1 {$IFNDEF LIMITEDGRAPHICSMODE};ASupportHTML: Boolean = True; ATestAnchor: Boolean = False; AX: Single = -1; AY: Single = - 1{$ENDIF}): String; overload; virtual;\r\n    function DrawText(ALeft, ATop, ARight, ABottom: Double; AText: String; var AControlID: String; var AControlValue: String; var AControlType: string; AWordWrapping: Boolean = False; AHorizontalAlign: TTMSFNCGraphicsTextAlign = gtaLeading; AVerticalAlign: TTMSFNCGraphicsTextAlign = gtaCenter; ATrimming: TTMSFNCGraphicsTextTrimming = gttNone; AAngle: Single = 0;\r\n      AMinWidth: Single = -1; AMinHeight: Single = -1 {$IFNDEF LIMITEDGRAPHICSMODE};ASupportHTML: Boolean = True; ATestAnchor: Boolean = False; AX: Single = -1; AY: Single = - 1{$ENDIF}): String; overload; virtual;\r\n    function DrawText(ARect: TRect; AText: String; var AControlID: String; var AControlValue: String; var AControlType: string; AWordWrapping: Boolean = False; AHorizontalAlign: TTMSFNCGraphicsTextAlign = gtaLeading; AVerticalAlign: TTMSFNCGraphicsTextAlign = gtaCenter; ATrimming: TTMSFNCGraphicsTextTrimming = gttNone; AAngle: Single = 0;\r\n      AMinWidth: Single = -1; AMinHeight: Single = -1 {$IFNDEF LIMITEDGRAPHICSMODE};ASupportHTML: Boolean = True; ATestAnchor: Boolean = False; AX: Single = -1; AY: Single = - 1{$ENDIF}): String; overload; virtual;\r\n    function DrawText(ALeft, ATop, ARight, ABottom: Integer; AText: String; var AControlID: String; var AControlValue: String; var AControlType: string; AWordWrapping: Boolean = False; AHorizontalAlign: TTMSFNCGraphicsTextAlign = gtaLeading; AVerticalAlign: TTMSFNCGraphicsTextAlign = gtaCenter; ATrimming: TTMSFNCGraphicsTextTrimming = gttNone; AAngle: Single = 0;\r\n      AMinWidth: Single = -1; AMinHeight: Single = -1 {$IFNDEF LIMITEDGRAPHICSMODE};ASupportHTML: Boolean = True; ATestAnchor: Boolean = False; AX: Single = -1; AY: Single = - 1{$ENDIF}): String; overload; virtual;\r\n    function SaveState(ACanvasOnly: Boolean = False): TTMSFNCGraphicsSaveState; virtual;\r\n    property Fill: TTMSFNCGraphicsFill read FFill;\r\n    property Stroke: TTMSFNCGraphicsStroke read FStroke;\r\n    property Font: TTMSFNCGraphicsFont read FFont;\r\n    property Canvas: TCanvas read GetCanvas;\r\n    property Context: TTMSFNCGraphicsContext read GetContext;\r\n    property Bitmap: TBitmap read FBitmap;\r\n    {$IFNDEF LIMITEDGRAPHICSMODE}\r\n    property OptimizedHTMLDrawing: Boolean read FOptimizedHTMLDrawing write FOptimizedHTMLDrawing;\r\n    property HighlightColor: TTMSFNCGraphicsColor read FHighlightColor write FHighlightColor;\r\n    property HighlightTextColor: TTMSFNCGraphicsColor read FHighlightTextColor write FHighlightTextColor;\r\n    property HighlightFontStyle: TFontStyles read FHighlightFontStyles write FHighlightFontStyles;\r\n    {$IFDEF CMNLIB}\r\n    property ImageList: TCustomImageList read FImageList write FImageList;\r\n    {$ENDIF}\r\n    property BitmapContainer: TTMSFNCBitmapContainer read FBitmapContainer write FBitmapContainer;\r\n    property URLColor: TTMSFNCGraphicsColor read FURLColor write FURLColor default gcBlue;\r\n    property URLUnderline: Boolean read FURLUnderline write FURLUnderline default True;\r\n    class function ApplyHilight(AText, AHilight, ATag: string; ADoCase: Boolean): string;\r\n    class function GetBitmapFromBitmapContainer(ABitmapContainer: TTMSFNCBitmapContainer; AName: string; AApplyScale: Boolean = False; AScale: Single = 0): TTMSFNCBitmap; virtual;\r\n    class function GetScaledBitmap(ABitmaps: TTMSFNCScaledBitmaps; AScale: Single = 0; ABitmapContainer: TTMSFNCBitmapContainer = nil): TTMSFNCBitmap;\r\n    {$ENDIF}\r\n    class procedure GetAspectSize(var AWidth: Single; var AHeight: Single; AOriginalWidth: Single; AOriginalHeight: Single; ANewWidth: Single; ANewHeight: Single; AAspectRatio: Boolean = True;\r\n      AStretch: Boolean = False; ACropping: Boolean = False); virtual;\r\n    class procedure DrawSample(ACanvas: TCanvas; ARect: TRectF); virtual;\r\n    class procedure SetDefaultGraphicColors; virtual;\r\n    class function PointInCircle(APoint: TPointF; ACenter: TPointF; const ARadius: Single): Boolean; virtual;\r\n    class function PointInPath(APoint: TPointF; APath: TTMSFNCGraphicsPath): Boolean; overload; virtual;\r\n    class function PointInPath(APoint: TPoint; APath: TTMSFNCGraphicsPath): Boolean; overload; virtual;\r\n    class function PointInPolygon(APoint: TPointF; APolygon: TTMSFNCGraphicsPathPolygon): Boolean; overload; virtual;\r\n    class function PointInPolygon(APoint: TPoint; APolygon: TTMSFNCGraphicsPathPolygon): Boolean; overload; virtual;\r\n    class function PointInRect(APoint: TPointF; ARect: TRectF): Boolean; overload; virtual;\r\n    class function PointInRect(APoint: TPoint; ARect: TRect): Boolean; overload; virtual;\r\n    class function GetColorRed(AColor: TTMSFNCGraphicsColor): Byte; virtual;\r\n    class function GetColorGreen(AColor: TTMSFNCGraphicsColor): Byte; virtual;\r\n    class function GetColorBlue(AColor: TTMSFNCGraphicsColor): Byte; virtual;\r\n    {$IFDEF FMXLIB}\r\n    class function GetColorAlpha(AColor: TTMSFNCGraphicsColor): Byte; virtual;\r\n    {$ENDIF}\r\n    class function ColorToHTML(AColor: TTMSFNCGraphicsColor): string; virtual;\r\n    class function HTMLToColor(AHTML: string): TTMSFNCGraphicsColor; virtual;\r\n    class function TextToColor(AText: string): TTMSFNCGraphicsColor; virtual;\r\n  end;\r\n\r\n  ITMSFNCGraphicsExport = interface\r\n    ['{481CA803-8B50-4545-B212-57AC0D065D09}']\r\n    procedure &Export({%H-}AGraphics: TTMSFNCGraphics; {%H-}ARect: TRectF);\r\n    procedure ApplyExportScale(AScale: Single);\r\n    procedure ResetExportScale;\r\n    procedure SetExportRect(AExportRect: TRectF);\r\n  end;\r\n\r\n{$IFDEF WEBLIB}\r\nconst\r\n  TMSFNCGRAPHICSCLOSE = 'data:image/PNG;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJ'+\r\n                        'cEhZcwAACxIAAAsSAdLdfvwAAAAYdEVYdFNvZnR3YXJlAHBhaW50Lm5ldCA0LjAuOWwzfk4AAABVSURBVDhPYxh+'+\r\n                        'QBSI/0OYWAFIThjCxA5ACmAYHeCTQwHYFGITwwuQNSBjkgBFmkGAIgNAGv5BaZINQdYMA0Qbgk0zDBBlCCiR4FMA'+\r\n                        'khOCMIcJYGAAAHvVMBv6PIFYAAAAAElFTkSuQmCC';\r\n  TMSFNCGRAPHICSDOWN = 'data:image/PNG;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEwAACxMBA'+\r\n                       'JqcGAAAAGdJREFUOI3tzjsOwjAURNGDUqSgTxU5K2AVrJtswjUsgHSR0qdxAZZFPrS+3ZvRzBsqf9MUtBtazJk+oM'+\r\n                       'e0VTriiZCFX8nbpENMgfARjsn74vKj5IFruhfc8d6zIF9S/Hyk5HS4spMVeFcOjszaOwMAAAAASUVORK5CYII=';\r\n  TMSFNCGRAPHICSDOWN2 = 'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAA'+\r\n                        'RnQU1BAACxjwv8YQUAAAAJcEhZcwAACxIAAAsSAdLdfvwAAAAZdEVYdFNvZnR3YXJlAHBhaW50Lm5ldCA0LjAuMT'+\r\n                        'ZEaa/1AAAAdElEQVQ4T6XMsQ2AMBBD0UxBBwyA2L9jCWpY5bCLSJfgSFgUr+AHX4mIX2R0yOiQ0SGjQ8Ud5q7RCl'+\r\n                        'vX5IEDLlhS4/gGvuV/5YEJTuCAR+qYjW/N/81Hko8Mx/QKST0yHJOMCYfDMcnokNEho0NGh4zfRXkAxSYKjdpwcI'+\r\n                        'UAAAAASUVORK5CYII=';\r\n  TMSFNCGRAPHICSUP = 'data:image/PNG;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEwAACxMBAJq'+\r\n                     'cGAAAAEZJREFUOI3tjLEJACAMwLLo5EM+rTjpXV7g0oI4tYKbgYwJfJ6Txet4iu6Jxk10TTSuQACidzKAIrGik24ZpC'+\r\n                     'PeJ8ky+DhZ1JENPrPndiwAAAAASUVORK5CYII=';\r\n  TMSFNCGRAPHICSUP2 = 'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARn'+\r\n                      'QU1BAACxjwv8YQUAAAAJcEhZcwAACxIAAAsSAdLdfvwAAAAZdEVYdFNvZnR3YXJlAHBhaW50Lm5ldCA0LjAuMTZEaa'+\r\n                      '/1AAAAcklEQVQ4T6XMMQ6AMAiF4S46eSEvremk5/IC+GggKfE1ER2+gZ9AEZFfaMygMYPGDBozaOyshu0aGo0eXmb4'+\r\n                      'hEbw42qGTx4B/HiHCWYYPgmDOWEDPfbmT46uNWEwC/THTp/oLvQwfEFjBo0ZNGbQ+J6UG5Y9CmuVGrAsAAAAAElFTkS'+\r\n                      'uQmCC';\r\n  TMSFNCGRAPHICSPIN = 'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAA4AAAAOCAYAAAAfSC3RAAAAAXNSR0IArs4c6QAAAARnQ'+\r\n                      'U1BAACxjwv8YQUAAAAJcEhZcwAADsIAAA7CARUoSoAAAAAZdEVYdFNvZnR3YXJlAHBhaW50Lm5ldCA0LjAuMTZEaa/1'+\r\n                      'AAABKklEQVQ4T2PAB0JDQ5mjoqIEgUxGiAiRIDo6WiY8PHwdEGvW19czQYUJA6AGhbCwsO9Aek1ISIiZvb09C1QKPwB'+\r\n                      'qaAbi/1DNJ4HYiqDNIE1ADZ9AGqGa/wLp6xERESZAaVQ/AyUUgDgIiOdCbQFrQsL/gPgxUM4OFACSQMYdIP4FFPwNxH'+\r\n                      '+gpqNoAortAYayHNSfjAwgNwMFvaCaMTQA8W+g+M7IyEgNiLuQAMgUoNsDgYruoWkCOe1gcHCwHlQpJgA6wwCo6DySJ'+\r\n                      'hD+BDQwCaoEEwA1SQAVzQLiq0BcBMRXgBhk25PAwEBJqDJUkJaWxgr0QzoQbwYqdABGNCeQrQPSDKTv44w3oFPEgYqm'+\r\n                      'Amk9UNqECjMCxWSBeAeUjx1ANWAkZCSD0AADAwDRpKHlJfOjAwAAAABJRU5ErkJggg==';\r\n  TMSFNCGRAPHICSPIN2 = 'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAA4AAAAOCAYAAAAfSC3RAAAAAXNSR0IArs4c6QAAAARn'+\r\n                       'QU1BAACxjwv8YQUAAAAJcEhZcwAADsIAAA7CARUoSoAAAAAZdEVYdFNvZnR3YXJlAHBhaW50Lm5ldCA0LjAuMTZEaa'+\r\n                       '/1AAAA/UlEQVQ4T33Su2oCQRTGcddLYWmlQhTLCBIsQgoLSW2nj2Bj7yv4DGkCeYOQxiaBNJapbCI2ooU+gY3gbf1/'+\r\n                       'w47MjosHfsvM7DlzY1JhGN6TQQGBM2bEOgke8IU60tGY4SYlqWGHT7wgC/PPT/SNoFDxH1owKyclWyrawsYJczwj8J'+\r\n                       'O1tR4+oFX8OGONtpLLWGCPA47Q7H78ogqd06yoPXeg4qQCTfaDR1x3ZxuapYsl3NDWJnjCtUjcThNTuKHL6cPNM2yj'+\r\n                       'hHfMMMQ/tNoGuoNYkeiTwwBjvCKPBlS8QuzFWPoU8QadQ29TY3qbFXxH/Ru2oYKbhww7kSdMXQD8wIToOQZE/AAAAA'+\r\n                       'BJRU5ErkJggg==';\r\n  TMSFNCGRAPHICSRIGHT = 'data:image/PNG;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEwAACxMB'+\r\n                        'AJqcGAAAAFNJREFUOI3tzzsSQFAQRNFDqSezHUuwYBJLsBuhEomE4/ll3HBq+nY1PxENRrS5xzK4L1jPSiISesxP'+\r\n                        'JcORJJqwU9xthjrX/ko4mpBQocN0tf1rbDeZDIfcSud0AAAAAElFTkSuQmCC';\r\n  TMSFNCGRAPHICSLEFT = 'data:image/PNG;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEwAACxMBA'+\r\n                       'JqcGAAAAEpJREFUOI3lzKENgEAQAMEJBkkIDdDTSxp6gqMyCkB8IQgMFdwZAutn+U19Bi84MUbxhZrBawSXB+8RDD'+\r\n                       'MaDkyvmQyZyYYuOvh6N24uDUKEV//MAAAAAElFTkSuQmCC';\r\n  TMSFNCGRAPHICSEXPAND = 'data:image/PNG;base64,iVBORw0KGgoAAAANSUhEUgAAAAcAAAAHCAYAAADEUlfTAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAOvwAADr8'+\r\n                         'BOAVTJAAAABh0RVh0U29mdHdhcmUAcGFpbnQubmV0IDQuMC4zjOaXUAAAACVJREFUGFdj+P//P07MEBYW9h8Xxi'+\r\n                         '8JAjglYACnBAzglMAEDAwARZ1DA4NRF38AAAAASUVORK5CYII=';\r\n\r\n  TMSFNCGRAPHICSEXPANDSVG = 'data:image/svg+xml;base64,PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiPz4KPHN2ZyB4bWxucz0iaHR0cDovL3d'\r\n    +'3dy53My5vcmcvMjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB3aWR0aD0iMTJweC'\r\n    +'IgaGVpZ2h0PSIxMnB4IiB2aWV3Qm94PSIwIDAgMTIgMTIiIHZlcnNpb249IjEuMSI+CjxnIGlkPSJzdXJmYWNlMSI+CjxwYXRoI'\r\n    +'HN0eWxlPSIgc3Ryb2tlOm5vbmU7ZmlsbC1ydWxlOm5vbnplcm87ZmlsbDpyZ2IoMCUsMCUsMCUpO2ZpbGwtb3BhY2l0eToxOyIg'\r\n    +'ZD0iTSAxMS44Mzk4NDQgMi44ODY3MTkgQyAxMS42Mjg5MDYgMi42NzU3ODEgMTEuMjgxMjUgMi42NzU3ODEgMTEuMDcwMzEyIDI'\r\n    +'uODg2NzE5IEwgNiA3Ljk1NzAzMSBMIDAuOTI5Njg4IDIuODg2NzE5IEMgMC43MTg3NSAyLjY3NTc4MSAwLjM3MTA5NCAyLjY3NT'\r\n    +'c4MSAwLjE2MDE1NiAyLjg4NjcxOSBDIC0wLjA1NDY4NzUgMy4xMDE1NjIgLTAuMDU0Njg3NSAzLjQ0NTMxMiAwLjE2MDE1NiAzL'\r\n    +'jY2MDE1NiBMIDUuNjEzMjgxIDkuMTEzMjgxIEMgNS43MTQ4NDQgOS4yMTQ4NDQgNS44NTU0NjkgOS4yNzM0MzggNiA5LjI3MzQz'\r\n    +'OCBDIDYuMTQ0NTMxIDkuMjczNDM4IDYuMjg1MTU2IDkuMjE0ODQ0IDYuMzg2NzE5IDkuMTEzMjgxIEwgMTEuODM5ODQ0IDMuNjY'\r\n    +'wMTU2IEMgMTIuMDU0Njg4IDMuNDQ1MzEyIDEyLjA1NDY4OCAzLjEwMTU2MiAxMS44Mzk4NDQgMi44ODY3MTkgWiBNIDExLjgzOT'\r\n    +'g0NCAyLjg4NjcxOSAiLz4KPC9nPgo8L3N2Zz4K';\r\n\r\n  TMSFNCGRAPHICSDOWNSVG = 'data:image/svg+xml;base64,PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiPz4KPHN2ZyB4bWxucz0iaHR0cDovL3d'\r\n    +'3dy53My5vcmcvMjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB3aWR0aD0iMTJweC'\r\n    +'IgaGVpZ2h0PSIxMnB4IiB2aWV3Qm94PSIwIDAgMTIgMTIiIHZlcnNpb249IjEuMSI+CjxnIGlkPSJzdXJmYWNlMSI+CjxwYXRoI'\r\n    +'HN0eWxlPSIgc3Ryb2tlOm5vbmU7ZmlsbC1ydWxlOm5vbnplcm87ZmlsbDpyZ2IoMCUsMCUsMCUpO2ZpbGwtb3BhY2l0eToxOyIg'\r\n    +'ZD0iTSAxMS44Mzk4NDQgMi44ODY3MTkgQyAxMS42Mjg5MDYgMi42NzU3ODEgMTEuMjgxMjUgMi42NzU3ODEgMTEuMDcwMzEyIDI'\r\n    +'uODg2NzE5IEwgNiA3Ljk1NzAzMSBMIDAuOTI5Njg4IDIuODg2NzE5IEMgMC43MTg3NSAyLjY3NTc4MSAwLjM3MTA5NCAyLjY3NT'\r\n    +'c4MSAwLjE2MDE1NiAyLjg4NjcxOSBDIC0wLjA1NDY4NzUgMy4xMDE1NjIgLTAuMDU0Njg3NSAzLjQ0NTMxMiAwLjE2MDE1NiAzL'\r\n    +'jY2MDE1NiBMIDUuNjEzMjgxIDkuMTEzMjgxIEMgNS43MTQ4NDQgOS4yMTQ4NDQgNS44NTU0NjkgOS4yNzM0MzggNiA5LjI3MzQz'\r\n    +'OCBDIDYuMTQ0NTMxIDkuMjczNDM4IDYuMjg1MTU2IDkuMjE0ODQ0IDYuMzg2NzE5IDkuMTEzMjgxIEwgMTEuODM5ODQ0IDMuNjY'\r\n    +'wMTU2IEMgMTIuMDU0Njg4IDMuNDQ1MzEyIDEyLjA1NDY4OCAzLjEwMTU2MiAxMS44Mzk4NDQgMi44ODY3MTkgWiBNIDExLjgzOT'\r\n    +'g0NCAyLjg4NjcxOSAiLz4KPC9nPgo8L3N2Zz4K';\r\n\r\n  TMSFNCGRAPHICSUPSVG = 'data:image/svg+xml;base64,PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiPz4KPHN2ZyB4bWxucz0iaHR0cDovL3d3'\r\n    +'dy53My5vcmcvMjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB3aWR0aD0iMTJweCI'\r\n    +'gaGVpZ2h0PSIxMnB4IiB2aWV3Qm94PSIwIDAgMTIgMTIiIHZlcnNpb249IjEuMSI+CjxnIGlkPSJzdXJmYWNlMSI+CjxwYXRoIH'\r\n    +'N0eWxlPSIgc3Ryb2tlOm5vbmU7ZmlsbC1ydWxlOm5vbnplcm87ZmlsbDpyZ2IoMCUsMCUsMCUpO2ZpbGwtb3BhY2l0eToxOyIgZ'\r\n    +'D0iTSAxMS44Mzk4NDQgOC4zMzk4NDQgTCA2LjM4NjcxOSAyLjg4NjcxOSBDIDYuMjg1MTU2IDIuNzg1MTU2IDYuMTQ0NTMxIDIu'\r\n    +'NzI2NTYyIDYgMi43MjY1NjIgQyA1Ljg1NTQ2OSAyLjcyNjU2MiA1LjcxNDg0NCAyLjc4NTE1NiA1LjYxMzI4MSAyLjg4NjcxOSB'\r\n    +'MIDAuMTYwMTU2IDguMzM5ODQ0IEMgLTAuMDU0Njg3NSA4LjU1NDY4OCAtMC4wNTQ2ODc1IDguODk4NDM4IDAuMTYwMTU2IDkuMT'\r\n    +'EzMjgxIEMgMC4zNzEwOTQgOS4zMjQyMTkgMC43MTg3NSA5LjMyNDIxOSAwLjkyOTY4OCA5LjExMzI4MSBMIDYgNC4wNDI5NjkgT'\r\n    +'CAxMS4wNzAzMTIgOS4xMTMyODEgQyAxMS4xNzU3ODEgOS4yMTg3NSAxMS4zMTY0MDYgOS4yNzM0MzggMTEuNDUzMTI1IDkuMjcz'\r\n    +'NDM4IEMgMTEuNTkzNzUgOS4yNzM0MzggMTEuNzM0Mzc1IDkuMjE4NzUgMTEuODM5ODQ0IDkuMTEzMjgxIEMgMTIuMDU0Njg4IDg'\r\n    +'uODk4NDM4IDEyLjA1NDY4OCA4LjU1NDY4OCAxMS44Mzk4NDQgOC4zMzk4NDQgWiBNIDExLjgzOTg0NCA4LjMzOTg0NCAiLz4KPC'\r\n    +'9nPgo8L3N2Zz4K';\r\n\r\n  TMSFNCGRAPHICSRIGHTSVG = 'data:image/svg+xml;base64,PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiPz4KPHN2ZyB4bWxucz0iaHR0cDovL3d3'\r\n    +'dy53My5vcmcvMjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB3aWR0aD0iMTJweCI'\r\n    +'gaGVpZ2h0PSIxMnB4IiB2aWV3Qm94PSIwIDAgMTIgMTIiIHZlcnNpb249IjEuMSI+CjxnIGlkPSJzdXJmYWNlMSI+CjxwYXRoIH'\r\n    +'N0eWxlPSIgc3Ryb2tlOm5vbmU7ZmlsbC1ydWxlOm5vbnplcm87ZmlsbDpyZ2IoMCUsMCUsMCUpO2ZpbGwtb3BhY2l0eToxOyIgZ'\r\n    +'D0iTSA5LjExMzI4MSA1LjYxMzI4MSBMIDMuNjYwMTU2IDAuMTYwMTU2IEMgMy40NDUzMTIgLTAuMDU0Njg3NSAzLjEwMTU2MiAt'\r\n    +'MC4wNTQ2ODc1IDIuODg2NzE5IDAuMTYwMTU2IEMgMi42NzU3ODEgMC4zNzEwOTQgMi42NzU3ODEgMC43MTg3NSAyLjg4NjcxOSA'\r\n    +'wLjkyOTY4OCBMIDcuOTU3MDMxIDYgTCAyLjg4NjcxOSAxMS4wNzAzMTIgQyAyLjY3NTc4MSAxMS4yODEyNSAyLjY3NTc4MSAxMS'\r\n    +'42Mjg5MDYgMi44ODY3MTkgMTEuODM5ODQ0IEMgMi45OTIxODggMTEuOTQ1MzEyIDMuMTMyODEyIDEyIDMuMjczNDM4IDEyIEMgM'\r\n    +'y40MTQwNjIgMTIgMy41NTA3ODEgMTEuOTQ1MzEyIDMuNjYwMTU2IDExLjgzOTg0NCBMIDkuMTEzMjgxIDYuMzg2NzE5IEMgOS4y'\r\n    +'MTQ4NDQgNi4yODUxNTYgOS4yNzM0MzggNi4xNDQ1MzEgOS4yNzM0MzggNiBDIDkuMjczNDM4IDUuODU1NDY5IDkuMjE0ODQ0IDU'\r\n    +'uNzE0ODQ0IDkuMTEzMjgxIDUuNjEzMjgxIFogTSA5LjExMzI4MSA1LjYxMzI4MSAiLz4KPC9nPgo8L3N2Zz4K';\r\n\r\n  TMSFNCGRAPHICSLEFTSVG = 'data:image/svg+xml;base64,PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiPz4KPHN2ZyB4bWxucz0iaHR0cDovL3d3'\r\n    +'dy53My5vcmcvMjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB3aWR0aD0iMTJweCI'\r\n    +'gaGVpZ2h0PSIxMnB4IiB2aWV3Qm94PSIwIDAgMTIgMTIiIHZlcnNpb249IjEuMSI+CjxnIGlkPSJzdXJmYWNlMSI+CjxwYXRoIH'\r\n    +'N0eWxlPSIgc3Ryb2tlOm5vbmU7ZmlsbC1ydWxlOm5vbnplcm87ZmlsbDpyZ2IoMCUsMCUsMCUpO2ZpbGwtb3BhY2l0eToxOyIgZ'\r\n    +'D0iTSA0LjA0Mjk2OSA2IEwgOS4xMTMyODEgMC45Mjk2ODggQyA5LjMyNDIxOSAwLjcxODc1IDkuMzI0MjE5IDAuMzcxMDk0IDku'\r\n    +'MTEzMjgxIDAuMTYwMTU2IEMgOC44OTg0MzggLTAuMDU0Njg3NSA4LjU1NDY4OCAtMC4wNTQ2ODc1IDguMzM5ODQ0IDAuMTYwMTU'\r\n    +'2IEwgMi44ODY3MTkgNS42MTMyODEgQyAyLjc4NTE1NiA1LjcxNDg0NCAyLjcyNjU2MiA1Ljg1NTQ2OSAyLjcyNjU2MiA2IEMgMi'\r\n    +'43MjY1NjIgNi4xNDQ1MzEgMi43ODUxNTYgNi4yODUxNTYgMi44ODY3MTkgNi4zODY3MTkgTCA4LjMzOTg0NCAxMS44Mzk4NDQgQ'\r\n    +'yA4LjQ0OTIxOSAxMS45NDUzMTIgOC41ODU5MzggMTIgOC43MjY1NjIgMTIgQyA4Ljg2NzE4OCAxMiA5LjAwNzgxMiAxMS45NDUz'\r\n    +'MTIgOS4xMTMyODEgMTEuODM5ODQ0IEMgOS4zMjQyMTkgMTEuNjI4OTA2IDkuMzI0MjE5IDExLjI4MTI1IDkuMTEzMjgxIDExLjA'\r\n    +'3MDMxMiBaIE0gNC4wNDI5NjkgNiAiLz4KPC9nPgo8L3N2Zz4K';\r\n\r\n  TMSFNCGRAPHICSCLOSESVG = 'data:image/svg+xml;base64,PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiPz4KPHN2ZyB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciI'\r\n    +'HhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB3aWR0aD0iMTJweCIgaGVpZ2h0PSIxMnB4IiB2aWV3'\r\n    +'Qm94PSIwIDAgMTIgMTIiIHZlcnNpb249IjEuMSI+CjxnIGlkPSJzdXJmYWNlMSI+CjxwYXRoIHN0eWxlPSIgc3Ryb2tlOm5vbmU'\r\n    +'7ZmlsbC1ydWxlOm5vbnplcm87ZmlsbDpyZ2IoMCUsMCUsMCUpO2ZpbGwtb3BhY2l0eToxOyIgZD0iTSA3LjA2MjUgNiBMIDExLj'\r\n    +'c4MTI1IDEuMjgxMjUgQyAxMi4wNzQyMTkgMC45ODgyODEgMTIuMDc0MjE5IDAuNTExNzE5IDExLjc4MTI1IDAuMjE4NzUgQyAxM'\r\n    +'S40ODgyODEgLTAuMDc0MjE4OCAxMS4wMTE3MTkgLTAuMDc0MjE4OCAxMC43MTg3NSAwLjIxODc1IEwgNiA0LjkzNzUgTCAxLjI4'\r\n    +'MTI1IDAuMjE4NzUgQyAwLjk4ODI4MSAtMC4wNzQyMTg4IDAuNTExNzE5IC0wLjA3NDIxODggMC4yMTg3NSAwLjIxODc1IEMgLTA'\r\n    +'uMDc0MjE4OCAwLjUxMTcxOSAtMC4wNzQyMTg4IDAuOTg4MjgxIDAuMjE4NzUgMS4yODEyNSBMIDQuOTM3NSA2IEwgMC4yMTg3NS'\r\n    +'AxMC43MTg3NSBDIC0wLjA3NDIxODggMTEuMDExNzE5IC0wLjA3NDIxODggMTEuNDg4MjgxIDAuMjE4NzUgMTEuNzgxMjUgQyAwL'\r\n    +'jM2NzE4OCAxMS45MjU3ODEgMC41NTg1OTQgMTIgMC43NSAxMiBDIDAuOTQxNDA2IDEyIDEuMTMyODEyIDExLjkyNTc4MSAxLjI4'\r\n    +'MTI1IDExLjc4MTI1IEwgNiA3LjA2MjUgTCAxMC43MTg3NSAxMS43ODEyNSBDIDEwLjg2NzE4OCAxMS45MjU3ODEgMTEuMDU4NTk'\r\n    +'0IDEyIDExLjI1IDEyIEMgMTEuNDQxNDA2IDEyIDExLjYzMjgxMiAxMS45MjU3ODEgMTEuNzgxMjUgMTEuNzgxMjUgQyAxMi4wNz'\r\n    +'QyMTkgMTEuNDg4MjgxIDEyLjA3NDIxOSAxMS4wMTE3MTkgMTEuNzgxMjUgMTAuNzE4NzUgWiBNIDcuMDYyNSA2ICIvPgo8L2c+C'\r\n    +'jwvc3ZnPgo=';\r\n\r\n\r\n{$ENDIF}\r\n\r\nimplementation\r\n\r\nuses\r\n  SysUtils, Math\r\n  {$IFNDEF WEBLIB}\r\n  {$IFDEF SVGSUPPORT}\r\n  ,WEBLib.TMSFNCGraphicsSVGEngine\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  ,WEBLib.TMSFNCUtils\r\n  {$IFNDEF LIMITEDGRAPHICSMODE}\r\n  ,WEBLib.TMSFNCHTMLEngine\r\n  {$ENDIF}\r\n  ,WEBLib.TMSFNCGraphics.General\r\n  {$IFDEF WEBLIB}\r\n  ,WEBLib.TMSFNCGraphics.WEB\r\n  {$ENDIF}\r\n  {$IFDEF MSWINDOWS}\r\n  ,WEBLib.TMSFNCGraphics.Win\r\n  {$ENDIF}\r\n  {$IFDEF MACOS}\r\n  {$IFDEF IOS}\r\n  ,WEBLib.TMSFNCGraphics.iOS\r\n  {$ENDIF}\r\n  {$IFNDEF IOS}\r\n  ,WEBLib.TMSFNCGraphics.Mac\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF ANDROID}\r\n  ,WEBLib.TMSFNCGraphics.Android\r\n  {$ENDIF}\r\n  {$IFDEF UNIX}\r\n  ,WEBLib.TMSFNCGraphics.Unix\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  {$IFNDEF MSWINDOWS}\r\n  ,LCLIntF\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  ;\r\n\r\n{$IFNDEF LIMITEDGRAPHICSMODE}\r\n{$R TMSFNCGraphics.res}\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCGraphics.EndPrinting;\r\nbegin\r\n  Context.EndPrinting;\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.EndScene;\r\nbegin\r\n  Context.EndScene;\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.BeginPrinting;\r\nbegin\r\n  Context.BeginPrinting;\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.BeginScene;\r\nbegin\r\n  Context.BeginScene;\r\nend;\r\n\r\nconstructor TTMSFNCGraphics.CreateNativeBitmapCanvas(AWidth: Integer = 1; AHeight: Integer = 1);\r\nbegin\r\n  CreateBitmapCanvas(AWidth, AHeight, True);\r\nend;\r\n\r\nconstructor TTMSFNCGraphics.CreateBitmapCanvas(AWidth: Integer = 1; AHeight: Integer = 1; ANative: Boolean = False; AHighDPI: Boolean = True);\r\nbegin\r\n  FNative := ANative;\r\n  FBitmap := TBitmap.Create{$IFDEF FMXLIB}(AWidth, AHeight){$ENDIF};\r\n  {$IFDEF FMXLIB}\r\n  if AHighDPI then\r\n    FBitmap.BitmapScale := TTMSFNCUtils.GetDPIScale;\r\n  {$ENDIF}\r\n  FBitmap.Width := AWidth;\r\n  FBitmap.Height := AHeight;\r\n  FActiveCanvas := FBitmap.Canvas;\r\n  if not ANative then\r\n  begin\r\n    FContextGeneral := TTMSFNCGraphicsContextGeneral.Create(Self);\r\n    FContextGeneral.SetSize(AWidth, AHeight);\r\n  end\r\n  else\r\n  begin\r\n    FContextNative := GetNativeContextClass.Create(Self);\r\n    FContextNative.SetSize(AWidth, AHeight);\r\n  end;\r\n\r\n  FFill := TTMSFNCGraphicsFill.Create;\r\n  FFill.OnChanged := @FillChanged;\r\n  FStroke := TTMSFNCGraphicsStroke.Create;\r\n  FStroke.OnChanged := @StrokeChanged;\r\n  FFont := TTMSFNCGraphicsFont.Create;\r\n  FFont.OnChanged := @FontChanged;\r\n  InitializeDefaultAppearance;\r\nend;\r\n\r\nconstructor TTMSFNCGraphics.CreateNative(ACanvas: TCanvas);\r\nbegin\r\n  Create(ACanvas, True);\r\nend;\r\n\r\nconstructor TTMSFNCGraphics.Create(ACanvas: TCanvas; ANative: Boolean = False);\r\nbegin\r\n  FNative := ANative;\r\n  FActiveCanvas := ACanvas;\r\n  if not ANative then\r\n  begin\r\n    FContextGeneral := TTMSFNCGraphicsContextGeneral.Create(Self);\r\n    FContextGeneral.SetSize(1, 1);\r\n  end\r\n  else\r\n  begin\r\n    FContextNative := GetNativeContextClass.Create(Self);\r\n    FContextNative.SetSize(1, 1);\r\n  end;\r\n\r\n  FSaveFont := TTMSFNCGraphicsFont.Create;\r\n  if Assigned(ACanvas) then\r\n    FSaveFont.Assign(ACanvas.Font);\r\n\r\n  FFill := TTMSFNCGraphicsFill.Create;\r\n  FFill.OnChanged := @FillChanged;\r\n  FStroke := TTMSFNCGraphicsStroke.Create;\r\n  FStroke.OnChanged := @StrokeChanged;\r\n  FFont := TTMSFNCGraphicsFont.Create;\r\n  FFont.OnChanged := @FontChanged;\r\n  {$IFNDEF LIMITEDGRAPHICSMODE}\r\n  FHighlightColor := gcBlue;\r\n  FHighlightTextColor := gcWhite;\r\n  FHighlightFontStyles := [];\r\n  {$eNDIF}\r\n\r\n  InitializeDefaultAppearance;\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.RestoreState(AState: TTMSFNCGraphicsSaveState; ACanvasOnly: Boolean = False);\r\nbegin\r\n  if not ACanvasOnly then\r\n  begin\r\n    SetFill(AState.Fill);\r\n    SetStroke(AState.Stroke);\r\n    SetFont(AState.Font);\r\n  end;\r\n\r\n  Context.RestoreState(AState);\r\n\r\n  AState.Free;\r\nend;\r\n\r\nfunction TTMSFNCGraphics.SaveState(ACanvasOnly: Boolean = False): TTMSFNCGraphicsSaveState;\r\nbegin\r\n  Result := TTMSFNCGraphicsSaveState.Create;\r\n\r\n  if not ACanvasOnly then\r\n  begin\r\n    Result.Fill.Assign(FFill);\r\n    Result.Stroke.Assign(FStroke);\r\n    Result.Font.AssignSource(FFont);\r\n  end;\r\n\r\n  Context.SaveState(Result);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.StopSpecialPen;\r\nbegin\r\n  Context.StopSpecialPen;\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.StartSpecialPen;\r\nbegin\r\n  Context.StartSpecialPen;\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.Assign(Source: TTMSFNCGraphics);\r\nbegin\r\n  if Source is TTMSFNCGraphics then\r\n  begin\r\n    FFill.BeginUpdate;\r\n    FFill.Assign((Source as TTMSFNCGraphics).Fill);\r\n    FFill.EndUpdate;\r\n    FStroke.BeginUpdate;\r\n    FStroke.Assign((Source as TTMSFNCGraphics).Stroke);\r\n    FStroke.EndUpdate;\r\n    FFont.BeginUpdate;\r\n    FFont.AssignSource((Source as TTMSFNCGraphics).Font);\r\n    FFont.EndUpdate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.SetFill(AFill: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FBlockUpdate > 0 then\r\n    Exit;\r\n\r\n  Inc(FBlockUpdate);\r\n  Context.SetFill(AFill);\r\n  FFill.Assign(AFill);\r\n  Dec(FBlockUpdate);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.SetFillKind(AKind: TTMSFNCGraphicsFillKind);\r\nbegin\r\n  if FBlockUpdate > 0 then\r\n    Exit;\r\n\r\n  Inc(FBlockUpdate);\r\n  Context.SetFillKind(AKind);\r\n  FFill.Kind := AKind;\r\n  Dec(FBlockUpdate);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.SetFillColor(AColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FBlockUpdate > 0 then\r\n    Exit;\r\n\r\n  Inc(FBlockUpdate);\r\n  Context.SetFillColor(AColor);\r\n  FFill.Color := AColor;\r\n  Dec(FBlockUpdate);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.SetStrokeKind(AKind: TTMSFNCGraphicsStrokeKind);\r\nbegin\r\n  if FBlockUpdate > 0 then\r\n    Exit;\r\n\r\n  Inc(FBlockUpdate);\r\n  Context.SetStrokeKind(AKind);\r\n  FStroke.Kind := AKind;\r\n  Dec(FBlockUpdate);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.SetStroke(AStroke: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FBlockUpdate > 0 then\r\n    Exit;\r\n\r\n  Inc(FBlockUpdate);\r\n  Context.SetStroke(AStroke);\r\n  FStroke.Assign(AStroke);\r\n  Dec(FBlockUpdate);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.SetStrokeWidth(AWidth: Single);\r\nbegin\r\n  if FBlockUpdate > 0 then\r\n    Exit;\r\n\r\n  Inc(FBlockUpdate);\r\n  Context.SetStrokeWidth(AWidth);\r\n  FStroke.Width := AWidth;\r\n  Dec(FBlockUpdate);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.SetStrokeColor(AColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FBlockUpdate > 0 then\r\n    Exit;\r\n\r\n  Inc(FBlockUpdate);\r\n  Context.SetStrokeColor(AColor);\r\n  FStroke.Color := AColor;\r\n  Dec(FBlockUpdate);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawLine(AFromPoint: TPoint; AToPoint: TPoint; AModifyPointModeFrom: TTMSFNCGraphicsModifyPointMode = gcpmRightDown;\r\n  AModifyPointModeTo: TTMSFNCGraphicsModifyPointMode = gcpmRightDown);\r\nbegin\r\n  DrawLine(ConvertToPointF(AFromPoint), ConvertToPointF(AToPoint), AModifyPointModeFrom, AModifyPointModeTo);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawLine(AFromPoint: TPointF; AToPoint: TPointF; AModifyPointModeFrom: TTMSFNCGraphicsModifyPointMode = gcpmRightDown;\r\n  AModifyPointModeTo: TTMSFNCGraphicsModifyPointMode = gcpmRightDown);\r\nbegin\r\n  if (FStroke.Color <> gcNull) and (FStroke.Kind <> gskNone) then\r\n    Context.DrawLine(FStroke, AFromPoint, AToPoint, AModifyPointModeFrom, AModifyPointModeTo);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawPolyline(APolyline: TTMSFNCGraphicsPathPolygon);\r\nbegin\r\n  if (FFill.Color <> gcNull) and (FFill.Kind <> gfkNone) then\r\n    Context.FillPolyline(FFill, APolyline);\r\n\r\n  if (FStroke.Color <> gcNull) and (FStroke.Kind <> gskNone) then\r\n    Context.DrawPolyline(FStroke, APolyline);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawPolygon(APolygon: TTMSFNCGraphicsPathPolygon);\r\nvar\r\n  pth: TTMSFNCGraphicsPath;\r\nbegin\r\n  if ((FFill.Color <> gcNull) and (FFill.Kind <> gfkNone)) or (FFill.Kind = gfkTexture) then\r\n  begin\r\n    case FFill.Kind of\r\n      gfkTexture:\r\n      begin\r\n        pth := TTMSFNCGraphicsPath.Create;\r\n        try\r\n          pth.AddPolygon(APolygon);\r\n          DrawTexture(pth.GetBounds, FFill.Texture, FFill.TextureMode);\r\n        finally\r\n          pth.Free;\r\n        end;\r\n      end;\r\n      else\r\n        Context.FillPolygon(FFill, APolygon);\r\n    end;\r\n  end;\r\n\r\n  if (FStroke.Color <> gcNull) and (FStroke.Kind <> gskNone) then\r\n    Context.DrawPolygon(FStroke, APolygon);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawPath(APath: TTMSFNCGraphicsPath; APathMode: TTMSFNCGraphicsPathDrawMode = pdmPolygon);\r\nbegin\r\n  if ((FFill.Color <> gcNull) and (FFill.Kind <> gfkNone)) or (FFill.Kind = gfkTexture) then\r\n  begin\r\n    case FFill.Kind of\r\n      gfkTexture: DrawTexture(APath.GetBounds, FFill.Texture, FFill.TextureMode);\r\n      else\r\n        Context.FillPath(FFill, APath, APathMode);\r\n    end;\r\n  end;\r\n\r\n  if (FStroke.Color <> gcNull) and (FStroke.Kind <> gskNone) then\r\n    Context.DrawPath(FStroke, APath, APathMode);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawArc(const Center: TPoint; const Radius: TPoint; StartAngle: Integer; SweepAngle: Integer);\r\nbegin\r\n  DrawArc(ConvertToPointF(Center), ConvertToPointF(Radius), StartAngle, SweepAngle);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawArc(const Center: TPointF; const Radius: TPointF; StartAngle: Single; SweepAngle: Single);\r\nvar\r\n  pth: TTMSFNCGraphicsPath;\r\nbegin\r\n  if (FFill.Color <> gcNull) and (FFill.Kind <> gfkNone) then\r\n  begin\r\n    case FFill.Kind of\r\n      gfkTexture:\r\n      begin\r\n        pth := TTMSFNCGraphicsPath.Create;\r\n        try\r\n          pth.AddArc(Center, Radius, StartAngle, SweepAngle);\r\n          DrawTexture(pth.GetBounds, FFill.Texture, FFill.TextureMode);\r\n        finally\r\n          pth.Free;\r\n        end;\r\n      end;\r\n      else\r\n        Context.FillArc(FFill, Center, Radius, StartAngle, SweepAngle);\r\n    end;\r\n  end;\r\n\r\n  if (FStroke.Color <> gcNull) and (FStroke.Kind <> gskNone) then\r\n    Context.DrawArc(FStroke, Center, Radius, StartAngle, SweepAngle);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawRoundRectangle(ARect: TRect; ARounding: Integer = 10; ACorners: TTMSFNCGraphicsCorners = [gcTopLeft, gcTopRight, gcBottomLeft, gcBottomRight]; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll);\r\nbegin\r\n  DrawRoundRectangle(ConvertToRectF(ARect), ARounding, ACorners);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawRoundRectangle(ARect: TRectF; ARounding: Single = 10; ACorners: TTMSFNCGraphicsCorners = [gcTopLeft, gcTopRight, gcBottomLeft, gcBottomRight]; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll);\r\nbegin\r\n  DrawRoundRectangle(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom, ARounding, ACorners, AModifyRectMode);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawRectangle(ALeft: Integer; ATop: Integer; ARight: Integer; ABottom: Integer; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll);\r\nbegin\r\n  DrawRectangle(RectF(ALeft, ATop, ARight, ABottom), AModifyRectMode);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawRectangle(ALeft: Double; ATop: Double; ARight: Double; ABottom: Double; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll);\r\nbegin\r\n  DrawRectangle(ALeft, ATop, ARight, ABottom, AllSides, AModifyRectMode);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawRectangle(ALeft: Integer; ATop: Integer; ARight: Integer; ABottom: Integer; ASides: TTMSFNCGraphicsSides; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll);\r\nbegin\r\n  DrawRectangle(RectF(ALeft, ATop, ARight, ABottom), ASides, AModifyRectMode);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawRectangle(ALeft: Double; ATop: Double; ARight: Double; ABottom: Double; ASides: TTMSFNCGraphicsSides; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll);\r\nvar\r\n  r: TRectF;\r\n  pth: TTMSFNCGraphicsPath;\r\nbegin\r\n  r := RectF(ALeft, ATop, ARight, ABottom);\r\n  if ((FFill.Color <> gcNull) and (FFill.Kind <> gfkNone)) or (FFill.Kind = gfkTexture) then\r\n  begin\r\n    case FFill.Kind of\r\n      gfkTexture:\r\n      begin\r\n        pth := TTMSFNCGraphicsPath.Create;\r\n        try\r\n          pth.AddRectangle(r);\r\n          DrawTexture(r, FFill.Texture, FFill.TextureMode);\r\n        finally\r\n          pth.Free;\r\n        end;\r\n      end;\r\n      else\r\n        Context.FillRect(FFill, r, AModifyRectMode);\r\n    end;\r\n  end;\r\n\r\n  if (FStroke.Color <> gcNull) and (FStroke.Kind <> gskNone) then\r\n    Context.DrawRect(FStroke, r, ASides, AModifyRectMode);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawRoundRectangle(ALeft: Integer; ATop: Integer; ARight: Integer; ABottom: Integer; ARounding: Integer = 10; ACorners: TTMSFNCGraphicsCorners = [gcTopLeft, gcTopRight, gcBottomLeft, gcBottomRight]; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll);\r\nbegin\r\n  DrawRoundRectangle(RectF(ALeft, ATop, ARight, ABottom), ARounding, ACorners);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawRoundRectangle(ALeft: Double; ATop: Double; ARight: Double; ABottom: Double; ARounding: Single = 10; ACorners: TTMSFNCGraphicsCorners = [gcTopLeft, gcTopRight, gcBottomLeft, gcBottomRight]; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll);\r\nvar\r\n  r: TRectF;\r\n  rc: Single;\r\n  pth: TTMSFNCGraphicsPath;\r\nbegin\r\n  r := RectF(ALeft, ATop, ARight, ABottom);\r\n  if ((FFill.Color <> gcNull) and (FFill.Kind <> gfkNone)) or (FFill.Kind = gfkTexture) then\r\n  begin\r\n    case FFill.Kind of\r\n      gfkTexture:\r\n      begin\r\n        pth := TTMSFNCGraphicsPath.Create;\r\n        try\r\n          rc := ARounding;\r\n          if gcBottomLeft in ACorners then\r\n          begin\r\n            pth.MoveTo(PointF(r.Left + rc, r.Bottom));\r\n            pth.AddArc(PointF(r.Left + rc, r.Bottom - rc), PointF(rc, rc), -270, 90);\r\n            pth.LineTo(PointF(r.Left, r.Bottom - rc));\r\n          end\r\n          else\r\n          begin\r\n            pth.MoveTo(PointF(r.Left, r.Bottom));\r\n          end;\r\n\r\n          if gcTopLeft in ACorners then\r\n          begin\r\n            pth.LineTo(PointF(r.Left, r.Top + rc));\r\n            pth.AddArc(PointF(r.Left + rc, r.Top + rc), PointF(rc, rc), -180, 90);\r\n            pth.LineTo(PointF(r.Left + rc, r.Top));\r\n          end\r\n          else\r\n            pth.LineTo(PointF(r.Left, r.Top));\r\n\r\n          if gcTopRight in ACorners then\r\n          begin\r\n            pth.LineTo(PointF(r.Right - rc, r.Top));\r\n            pth.AddArc(PointF(r.Right - rc, r.Top + rc), PointF(rc, rc), -90, 90);\r\n            pth.LineTo(PointF(r.Right, r.Top + rc));\r\n          end\r\n          else\r\n            pth.LineTo(PointF(r.Right, r.Top));\r\n\r\n          if gcBottomRight in ACorners then\r\n          begin\r\n            pth.LineTo(PointF(r.Right, r.Bottom - rc));\r\n            pth.AddArc(PointF(r.Right - rc, r.Bottom - rc), PointF(rc, rc), 0, 90);\r\n            pth.LineTo(PointF(r.Right - rc, r.Bottom));\r\n          end\r\n          else\r\n            pth.LineTo(PointF(r.Right, r.Bottom));\r\n\r\n          if gcBottomLeft in ACorners then\r\n            pth.LineTo(PointF(r.Left + rc, r.Bottom))\r\n          else\r\n            pth.LineTo(PointF(r.Left, r.Bottom));\r\n\r\n          pth.ClosePath;\r\n\r\n          DrawTexture(r, FFill.Texture, FFill.TextureMode);\r\n        finally\r\n          pth.Free;\r\n        end;\r\n      end;\r\n      else\r\n        Context.FillRoundRect(FFill, r, ARounding, ACorners, AModifyRectMode);\r\n    end;\r\n  end;\r\n\r\n  if (FStroke.Color <> gcNull) and (FStroke.Kind <> gskNone) then\r\n    Context.DrawRoundRect(FStroke, r, ARounding, ACorners, AModifyRectMode);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawRectangle(ARect: TRect; ASides: TTMSFNCGraphicsSides; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll);\r\nbegin\r\n  DrawRectangle(ConvertToRectF(ARect), ASides, AModifyRectMode);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawRectangle(ARect: TRectF; ASides: TTMSFNCGraphicsSides; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll);\r\nbegin\r\n  DrawRectangle(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom, ASides, AModifyRectMode);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawRectangle(ARect: TRect; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll);\r\nbegin\r\n  DrawRectangle(ConvertToRectF(ARect), AModifyRectMode);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawRectangle(ARect: TRectF; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll);\r\nbegin\r\n  DrawRectangle(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom, AModifyRectMode);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.SetFontSize(ASize: Integer);\r\nbegin\r\n  if FBlockUpdate > 0 then\r\n    Exit;\r\n\r\n  Inc(FBlockUpdate);\r\n  Context.SetFontSize(ASize);\r\n  FFont.Size := ASize;\r\n  Dec(FBlockUpdate);\r\nend;\r\n\r\nfunction TTMSFNCGraphics.GetMatrix: TTMSFNCGraphicsMatrix;\r\nbegin\r\n  Result := Context.GetMatrix;\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.SetMatrix(const AMatrix: TTMSFNCGraphicsMatrix);\r\nbegin\r\n  Context.SetMatrix(AMatrix);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.SetFontColor(AColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FBlockUpdate > 0 then\r\n    Exit;\r\n\r\n  Inc(FBlockUpdate);\r\n  Context.SetFontColor(AColor);\r\n  FFont.Color := AColor;\r\n  Dec(FBlockUpdate);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.SetFontName(AName: string);\r\nbegin\r\n  if FBlockUpdate > 0 then\r\n    Exit;\r\n\r\n  Inc(FBlockUpdate);\r\n  Context.SetFontName(AName);\r\n  FFont.Name := AName;\r\n  Dec(FBlockUpdate);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.SetFont(AFont: TTMSFNCGraphicsFont);\r\nbegin\r\n  if FBlockUpdate > 0 then\r\n    Exit;\r\n\r\n  Inc(FBlockUpdate);\r\n  Context.SetFont(AFont);\r\n  FFont.AssignSource(AFont);\r\n  Dec(FBlockUpdate);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.SetFontStyles(AStyle: TFontStyles);\r\nbegin\r\n  if FBlockUpdate > 0 then\r\n    Exit;\r\n\r\n  Inc(FBlockUpdate);\r\n  Context.SetFontStyles(AStyle);\r\n  FFont.Style := AStyle;\r\n  Dec(FBlockUpdate);\r\nend;\r\n\r\ndestructor TTMSFNCGraphics.Destroy;\r\nbegin\r\n  if Assigned(FContextNative) then\r\n  begin\r\n    FContextNative.Free;\r\n    FContextNative := nil;\r\n  end;\r\n\r\n  if Assigned(FContextGeneral) then\r\n  begin\r\n    FContextGeneral.Free;\r\n    FContextGeneral := nil;\r\n  end;\r\n\r\n  if Assigned(FFont) then\r\n  begin\r\n    FFont.Free;\r\n    FFont := nil;\r\n  end;\r\n\r\n  if Assigned(FSaveFont) and Assigned(FActiveCanvas) then\r\n  begin\r\n    FActiveCanvas.Font.Assign(FSaveFont);\r\n    FSaveFont.Free;\r\n    FSaveFont := nil;\r\n  end;\r\n\r\n  if Assigned(FFill) then\r\n  begin\r\n    FFill.OnChanged := nil;\r\n    FFill.Free;\r\n    FFill := nil;\r\n  end;\r\n\r\n  if Assigned(FStroke) then\r\n  begin\r\n    FStroke.OnChanged := nil;\r\n    FStroke.Free;\r\n    FStroke := nil;\r\n  end;\r\n\r\n  {$IFNDEF LIMITEDGRAPHICSMODE}\r\n  FBitmapContainer := nil;\r\n  {$IFDEF CMNLIB}\r\n  FImageList := nil;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  if Assigned(FBitmap) then\r\n  begin\r\n    FBitmap.Free;\r\n    FBitmap := nil;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawCloseButton(ARect: TRect; ADown: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; AAdaptToStyle: Boolean = True; AScaleFactor: Single = 1.0);\r\nbegin\r\n  DrawCloseButton(ConvertToRectF(ARect), ADown, AFocused, AEnabled, AAdaptToStyle, AScaleFactor);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawCloseButton(ARect: TRectF; ADown: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; AAdaptToStyle: Boolean = True; AScaleFactor: Single = 1.0);\r\nvar\r\n  bmp: TTMSFNCBitmapHelperClass;\r\n  bmpa: TBitmap;\r\n  r: TRectF;\r\n  g: TTMSFNCGraphics;\r\nbegin\r\n  DrawButton(ARect, ADown, AFocused, AEnabled, AAdaptToStyle, AScaleFactor);\r\n  if AAdaptToStyle then\r\n  begin\r\n    bmpa := TBitmap.Create;\r\n    bmpa.SetSize(Round(16 * AScaleFactor), Round(16 * AScaleFactor));\r\n    {$IFDEF CMNLIB}\r\n    bmpa.TransparentMode := tmFixed;\r\n    bmpa.Transparent := True;\r\n    bmpa.TransparentColor := gcWhite;\r\n    {$ENDIF}\r\n    g := TTMSFNCGraphics.Create(bmpa.Canvas);\r\n    try\r\n      g.BeginScene;\r\n      {$IFDEF CMNLIB}\r\n      g.Fill.Color := gcWhite;\r\n      g.Fill.Kind := gfkSolid;\r\n      g.Stroke.Kind := gskSolid;\r\n      g.Stroke.Color := gcWhite;\r\n      g.DrawRectangle(0, 0, bmpa.Width, bmpa.Height);\r\n      {$ENDIF}\r\n      g.Stroke.Kind := gskSolid;\r\n      g.Stroke.Color := TTMSFNCGraphics.DefaultSelectionFillColor;\r\n      g.Stroke.Width := 2;\r\n      g.DrawLine(PointF(3 * AScaleFactor, 3 * AScaleFactor), PointF(12 * AScaleFactor, 12 * AScaleFactor), gcpmRightDown);\r\n      g.DrawLine(PointF(3 * AScaleFactor, 12 * AScaleFactor), PointF(12 * AScaleFactor, 3 * AScaleFactor), gcpmRightDown);\r\n    finally\r\n      g.EndScene;\r\n      g.Free;\r\n    end;\r\n\r\n    try\r\n      r := ARect;\r\n      bmp := TTMSFNCBitmap.Create;\r\n      try\r\n        bmp.Assign(bmpa);\r\n        DrawBitmap(r, bmp);\r\n      finally\r\n        bmp.Free;\r\n      end;\r\n    finally\r\n      bmpa.Free;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n   bmp := TTMSFNCBitmap.CreateFromResource(TMSFNCGRAPHICSCLOSESVG);\r\n\r\n    try\r\n      r := ARect;\r\n      InflateRectEx(r, - 6 * AScaleFactor, - 6 * AScaleFactor);\r\n      DrawBitmap(r, bmp);\r\n    finally\r\n      bmp.Free;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawExpanderButton(ARect: TRect; AState: TTMSFNCGraphicsExpanderState = gesExpanded; ADown: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; AAdaptToStyle: Boolean = True; AScaleFactor: Single = 1.0);\r\nbegin\r\n  DrawExpanderButton(ConvertToRectF(ARect), AState, ADown, AFocused, AEnabled, AAdaptToStyle, AScaleFactor);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawExpanderButton(ARect: TRectF; AState: TTMSFNCGraphicsExpanderState = gesExpanded; ADown: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; AAdaptToStyle: Boolean = True; AScaleFactor: Single = 1.0);\r\nvar\r\n  bmpa: TBitmap;\r\n  bmp: TTMSFNCBitmapHelperClass;\r\n  r: TRectF;\r\n  g: TTMSFNCGraphics;\r\nbegin\r\n  DrawButton(ARect, ADown, AFocused, AEnabled, AAdaptToStyle, AScaleFactor);\r\n  if AAdaptToStyle then\r\n  begin\r\n    bmpa := TBitmap.Create;\r\n    bmpa.SetSize(Round(16 * AScaleFactor), Round(16 * AScaleFactor));\r\n    {$IFDEF CMNLIB}\r\n    bmpa.TransparentMode := tmFixed;\r\n    bmpa.Transparent := True;\r\n    bmpa.TransparentColor := gcWhite;\r\n    {$ENDIF}\r\n    g := TTMSFNCGraphics.Create(bmpa.Canvas);\r\n    try\r\n      g.BeginScene;\r\n      {$IFDEF CMNLIB}\r\n      g.Fill.Color := gcWhite;\r\n      g.Fill.Kind := gfkSolid;\r\n      g.Stroke.Kind := gskSolid;\r\n      g.Stroke.Color := gcWhite;\r\n      g.DrawRectangle(0, 0, bmpa.Width, bmpa.Height);\r\n      {$ENDIF}\r\n      g.Stroke.Kind := gskSolid;\r\n      g.Stroke.Width := 2;\r\n      g.Stroke.Color := TTMSFNCGraphics.DefaultSelectionFillColor;\r\n      case AState of\r\n        gesCollapsed:\r\n        begin\r\n          g.DrawLine(PointF(5 * AScaleFactor, 6 * AScaleFactor), PointF(8 * AScaleFactor, 9 * AScaleFactor), gcpmRightDown);\r\n          g.DrawLine(PointF(8 * AScaleFactor, 9 * AScaleFactor), PointF(11 * AScaleFactor, 6 * AScaleFactor), gcpmRightDown);\r\n        end;\r\n        gesExpanded:\r\n        begin\r\n          g.DrawLine(PointF(5 * AScaleFactor, 9 * AScaleFactor), PointF(8 * AScaleFactor, 6 * AScaleFactor), gcpmRightDown);\r\n          g.DrawLine(PointF(8 * AScaleFactor, 6 * AScaleFactor), PointF(11 * AScaleFactor, 9 * AScaleFactor), gcpmRightDown);\r\n        end;\r\n      end;\r\n    finally\r\n      g.EndScene;\r\n      g.Free;\r\n    end;\r\n\r\n    if Assigned(bmpa) then\r\n    begin\r\n      try\r\n        r := ARect;\r\n        bmp := TTMSFNCBitmap.Create;\r\n        try\r\n          bmp.Assign(bmpa);\r\n          DrawBitmap(r, bmp);\r\n        finally\r\n          bmp.Free;\r\n        end;\r\n      finally\r\n        bmpa.Free;\r\n      end;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    case AState of\r\n      gesCollapsed: bmp := TTMSFNCBitmap.CreateFromResource(TMSFNCGRAPHICSDOWNSVG);\r\n      gesExpanded: bmp := TTMSFNCBitmap.CreateFromResource(TMSFNCGRAPHICSUPSVG);\r\n      else\r\n        bmp := nil;\r\n    end;\r\n\r\n    if Assigned(bmp) then\r\n    begin\r\n      try\r\n        r := ARect;\r\n        InflateRectEx(r, -4 * AScaleFactor, -4 * AScaleFactor);\r\n        DrawBitmap(r, bmp);\r\n      finally\r\n        bmp.Free;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawCompactButton(ARect: TRect; AState: TTMSFNCGraphicsCompactState = gcsExpanded; ADown: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; AAdaptToStyle: Boolean = True; AScaleFactor: Single = 1.0);\r\nbegin\r\n  DrawCompactButton(ConvertToRectF(ARect), AState, ADown, AFocused, AEnabled, AAdaptToStyle, AScaleFactor);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawCompactButton(ARect: TRectF; AState: TTMSFNCGraphicsCompactState = gcsExpanded; ADown: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; AAdaptToStyle: Boolean = True; AScaleFactor: Single = 1.0);\r\nvar\r\n  bmpa: TBitmap;\r\n  bmp: TTMSFNCBitmapHelperClass;\r\n  r: TRectF;\r\n  g: TTMSFNCGraphics;\r\nbegin\r\n  DrawButton(ARect, ADown, AFocused, AEnabled, AAdaptToStyle, AScaleFactor);\r\n  if AAdaptToStyle then\r\n  begin\r\n    bmpa := TBitmap.Create;\r\n    bmpa.SetSize(Round(16 * AScaleFactor), Round(16 * AScaleFactor));\r\n    {$IFDEF CMNLIB}\r\n    bmpa.TransparentMode := tmFixed;\r\n    bmpa.Transparent := True;\r\n    bmpa.TransparentColor := gcWhite;\r\n    {$ENDIF}\r\n    g := TTMSFNCGraphics.Create(bmpa.Canvas);\r\n    try\r\n      g.BeginScene;\r\n      {$IFDEF CMNLIB}\r\n      g.Fill.Color := gcWhite;\r\n      g.Fill.Kind := gfkSolid;\r\n      g.Stroke.Kind := gskSolid;\r\n      g.Stroke.Color := gcWhite;\r\n      g.DrawRectangle(0, 0, bmpa.Width, bmpa.Height);\r\n      {$ENDIF}\r\n      g.Stroke.Kind := gskSolid;\r\n      g.Stroke.Width := 2;\r\n      g.Stroke.Color := TTMSFNCGraphics.DefaultSelectionFillColor;\r\n      case AState of\r\n        gcsCollapsed:\r\n        begin\r\n          g.DrawLine(PointF(6 * AScaleFactor, 5 * AScaleFactor), PointF(9 * AScaleFactor, 8 * AScaleFactor), gcpmRightDown);\r\n          g.DrawLine(PointF(9 * AScaleFactor, 8 * AScaleFactor), PointF(6 * AScaleFactor, 11 * AScaleFactor), gcpmRightDown);\r\n        end;\r\n        gcsExpanded:\r\n        begin\r\n          g.DrawLine(PointF(9 * AScaleFactor, 5 * AScaleFactor), PointF(6 * AScaleFactor, 8 * AScaleFactor), gcpmRightDown);\r\n          g.DrawLine(PointF(6 * AScaleFactor, 8 * AScaleFactor), PointF(9 * AScaleFactor, 11 * AScaleFactor), gcpmRightDown);\r\n        end;\r\n      end;\r\n    finally\r\n      g.EndScene;\r\n      g.Free;\r\n    end;\r\n\r\n    if Assigned(bmpa) then\r\n    begin\r\n      try\r\n        r := ARect;\r\n        bmp := TTMSFNCBitmap.Create;\r\n        try\r\n          bmp.Assign(bmpa);\r\n          DrawBitmap(r, bmp);\r\n        finally\r\n          bmp.Free;\r\n        end;\r\n      finally\r\n        bmpa.Free;\r\n      end;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    case AState of\r\n      gcsCollapsed: bmp := TTMSFNCBitmap.CreateFromResource(TMSFNCGRAPHICSRIGHTSVG);\r\n      gcsExpanded: bmp := TTMSFNCBitmap.CreateFromResource(TMSFNCGRAPHICSLEFTSVG);\r\n      else\r\n        bmp := nil;\r\n    end;\r\n\r\n    if Assigned(bmp) then\r\n    begin\r\n      try\r\n        r := ARect;\r\n        InflateRectEx(r, -4 * AScaleFactor, -4 * AScaleFactor);\r\n        DrawBitmap(r, bmp);\r\n      finally\r\n        bmp.Free;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawDropDownButton(ARect: TRect; ADown: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; ACenter: Boolean = False; AAdaptToStyle: Boolean = True; AScaleFactor: Single = 1.0);\r\nbegin\r\n  DrawDropDownButton(ConvertToRectF(ARect), ADown, AFocused, AEnabled, ACenter, AAdaptToStyle, AScaleFactor);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawDropDownButton(ARect: TRectF; ADown: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; ACenter: Boolean = False; AAdaptToStyle: Boolean = True; AScaleFactor: Single = 1.0);\r\nvar\r\n  bmp: TTMSFNCBitmapHelperClass;\r\n  bmpa: TBitmap;\r\n  r: TRectF;\r\n  g: TTMSFNCGraphics;\r\nbegin\r\n  DrawButton(ARect, ADown, AFocused, AEnabled, AAdaptToStyle);\r\n  if AAdaptToStyle then\r\n  begin\r\n    bmpa := TBitmap.Create;\r\n    bmpa.SetSize(Round(7 * AScaleFactor), Round(7 * AScaleFactor));\r\n    {$IFDEF CMNLIB}\r\n    bmpa.TransparentMode := tmFixed;\r\n    bmpa.Transparent := True;\r\n    bmpa.TransparentColor := gcWhite;\r\n    {$ENDIF}\r\n    g := TTMSFNCGraphics.Create(bmpa.Canvas);\r\n    try\r\n      g.BeginScene;\r\n      {$IFDEF CMNLIB}\r\n      g.Fill.Color := gcWhite;\r\n      g.Fill.Kind := gfkSolid;\r\n      g.Stroke.Kind := gskSolid;\r\n      g.Stroke.Color := gcWhite;\r\n      g.DrawRectangle(0, 0, bmpa.Width, bmpa.Height);\r\n      {$ENDIF}\r\n      g.Stroke.Kind := gskSolid;\r\n      g.Stroke.Color := TTMSFNCGraphics.DefaultSelectionFillColor;\r\n      g.DrawLine(PointF(0, 1 * AScaleFactor), PointF(6 * AScaleFactor, 1 * AScaleFactor), gcpmRightDown);\r\n      g.DrawLine(PointF(0, 2 * AScaleFactor), PointF(6 * AScaleFactor, 2 * AScaleFactor), gcpmRightDown);\r\n      g.DrawLine(PointF(1 * AScaleFactor, 3 * AScaleFactor), PointF(5 * AScaleFactor, 3 * AScaleFactor), gcpmRightDown);\r\n      g.DrawLine(PointF(2 * AScaleFactor, 4 * AScaleFactor), PointF(4 * AScaleFactor, 4 * AScaleFactor), gcpmRightDown);\r\n      g.DrawLine(PointF(3 * AScaleFactor, 5 * AScaleFactor), PointF(3 * AScaleFactor, 5 * AScaleFactor), gcpmRightDown);\r\n    finally\r\n      g.EndScene;\r\n      g.Free;\r\n    end;\r\n\r\n    try\r\n      if (ARect.Right - bmpa.Width - 10 * AScaleFactor > ARect.Left) and not ACenter then\r\n        r := RectF(ARect.Right - bmpa.Width - 10 * AScaleFactor, ARect.Top, ARect.Right, ARect.Bottom)\r\n      else\r\n        r := ARect;\r\n\r\n      bmp := TTMSFNCBitmap.Create;\r\n      try\r\n        bmp.Assign(bmpa);\r\n        DrawBitmap(r, bmp);\r\n      finally\r\n        bmp.Free;\r\n      end;\r\n    finally\r\n      bmpa.Free;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    bmp := TTMSFNCBitmap.Create;\r\n    bmp.LoadFromResource(TMSFNCGRAPHICSEXPANDSVG);\r\n\r\n    try\r\n      if not ACenter then\r\n      begin\r\n        r := RectF(ARect.Right - (16 * AScaleFactor), ARect.Top, ARect.Right - 2 * AScaleFactor, ARect.Bottom);\r\n        InflateRectEx(r, - 2 * AScaleFactor, - 2 * AScaleFactor);\r\n      end\r\n      else\r\n      begin\r\n        r := ARect;\r\n        InflateRectEx(r, - 4 * AScaleFactor, - 4 * AScaleFactor);\r\n      end;\r\n\r\n      DrawBitmap(r, bmp);\r\n    finally\r\n      bmp.Free;\r\n    end;\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TTMSFNCGraphics.DrawButton(ARect: TRect; ADown: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; AAdaptToStyle: Boolean = True; AScaleFactor: Single = 1.0);\r\nbegin\r\n  DrawButton(ConvertToRectF(ARect), ADown, AFocused, AEnabled, AAdaptToStyle, AScaleFactor);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawButton(ARect: TRectF; ADown: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; AAdaptToStyle: Boolean = True; AScaleFactor: Single = 1.0);\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  r := ARect;\r\n  Stroke.Kind := gskSolid;\r\n  Stroke.Width := 1;\r\n  Fill.Kind := gfkSolid;\r\n\r\n  if AAdaptToStyle then\r\n  begin\r\n    if AEnabled then\r\n    begin\r\n      if not AFocused then\r\n      begin\r\n        Stroke.Color := TTMSFNCGraphics.DefaultButtonStrokeColor;\r\n        Fill.Color := TTMSFNCGraphics.DefaultButtonFillColor;\r\n      end\r\n      else\r\n      begin\r\n        Stroke.Color := TTMSFNCGraphics.DefaultButtonStrokeColorFocused;\r\n        Fill.Color := TTMSFNCGraphics.DefaultButtonFillColorFocused;\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      Stroke.Color := TTMSFNCGraphics.DefaultButtonStrokeColorDisabled;\r\n      Fill.Color := TTMSFNCGraphics.DefaultButtonFillColorDisabled;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    if AEnabled then\r\n    begin\r\n      if not AFocused then\r\n      begin\r\n        Stroke.Color := gcDarkGray;\r\n        Fill.Color := MakeGraphicsColor(225, 225, 225);\r\n      end\r\n      else\r\n      begin\r\n        Stroke.Color := MakeGraphicsColor(60, 127, 177);\r\n        Fill.Color := MakeGraphicsColor(229, 241, 251);\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      Stroke.Color := gcDarkGray;\r\n      Fill.Color := gcLightgray;\r\n    end;\r\n  end;\r\n\r\n  DrawRectangle(r);\r\n  InflateRectEx(r, -1, -1);\r\n  Fill.Kind := gfkNone;\r\n\r\n  if not ADown then\r\n    Stroke.Color := Fill.Color\r\n  else\r\n    Stroke.Color := Lighter(Stroke.Color, 40);\r\n\r\n  DrawRectangle(r);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawCheckBox(ARect: TRect; AChecked: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; AScaleFactor: Single = 1.0);\r\nbegin\r\n  DrawCheckBox(ConvertToRectF(ARect), AChecked, AFocused, AEnabled, AScaleFactor);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawCheckBox(ARect: TRectF; AChecked: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; AScaleFactor: Single = 1.0);\r\nvar\r\n  c: TTMSFNCGraphicsColor;\r\n  r: TRectF;\r\nbegin\r\n  r := ARect;\r\n  InflateRectEx(r, -1, -1);\r\n\r\n  if AEnabled then\r\n  begin\r\n    if AFocused then\r\n      c := gcSteelBlue\r\n    else\r\n      c := gcBlack;\r\n  end\r\n  else\r\n    c := gcDarkgray;\r\n\r\n  Fill.Kind := gfkSolid;\r\n  if AEnabled then\r\n    Fill.Color := Lighter(gcLightgray, 85)\r\n  else\r\n    Fill.Color := gcLightgray;\r\n\r\n  Stroke.Width := 1;\r\n  Stroke.Kind := gskSolid;\r\n  Stroke.Color := c;\r\n  DrawRectangle(r);\r\n  InflateRectEx(r, -(r.Right - r.Left) / 5, -(r.Bottom - r.Top) / 5);\r\n  Stroke.Width := 2;\r\n  Stroke.Color := c;\r\n  if AChecked then\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    DrawLine(PointF(r.Left + 1, r.Top + 1), PointF(r.Right - 1, r.Bottom - 1));\r\n    DrawLine(PointF(r.Right - 1, r.Top + 1), PointF(r.Left + 1, r.Bottom - 1));\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    DrawLine(PointF(r.Left, r.Top), PointF(r.Right - 1, r.Bottom - 1));\r\n    DrawLine(PointF(r.Right - 1, r.Top), PointF(r.Left, r.Bottom - 1));\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawProgressBar(ARect: TRect; AValue: Single; AFormat: string = '%.0f%%'; AMax: Single = 100; AColor: TTMSFNCGraphicsColor = gcYellowgreen; ATextColor: TTMSFNCGraphicsColor = gcBlack; AShowText: Boolean = True; AEnabled: Boolean = True; AScaleFactor: Single = 1.0);\r\nbegin\r\n  DrawProgressBar(ConvertToRectF(ARect), AValue, AFormat, AMax, AColor, ATextColor, AShowText, AEnabled, AScaleFactor);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawProgressBar(ARect: TRectF; AValue: Single; AFormat: string = '%.0f%%'; AMax: Single = 100; AColor: TTMSFNCGraphicsColor = gcYellowgreen; ATextColor: TTMSFNCGraphicsColor = gcBlack; AShowText: Boolean = True; AEnabled: Boolean = True; AScaleFactor: Single = 1.0);\r\nvar\r\n  r, rp: TRectF;\r\n  v: Single;\r\n  tc, fc: TTMSFNCGraphicsColor;\r\nbegin\r\n  r := ARect;\r\n  rp := r;\r\n\r\n  fc := Fill.Color;\r\n  if AEnabled then\r\n    Fill.Color := Lighter(gcLightGray, 75)\r\n  else\r\n    Fill.Color := gcLightGray;\r\n\r\n  Fill.Kind := gfkSolid;\r\n  Stroke.Kind := gskSolid;\r\n  Stroke.Color := gcDarkgray;\r\n\r\n  DrawRectangle(r);\r\n\r\n  v := Max(0, Min(AValue, AMax));\r\n\r\n  if (v >= 0) and (v <= AMax) and (AMax > 0) then\r\n  begin\r\n    InflateRectEx(rp, -1, -1);\r\n    rp.Right := rp.Left + (rp.Right - r.Left) * v / AMax;\r\n\r\n    Fill.Color := AColor;\r\n    Stroke.Color := Fill.Color;\r\n\r\n    DrawRectangle(rp);\r\n\r\n    if AShowText then\r\n    begin\r\n      tc := Font.Color;\r\n      Font.Color := ATextColor;\r\n      DrawText(r, Format(AFormat, [v / AMax * 100]), False, gtaCenter, gtaCenter);\r\n      Font.Color := tc;\r\n    end;\r\n  end;\r\n\r\n  Fill.Color := fc;\r\n\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawRadioButton(ARect: TRect; AChecked: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; AScaleFactor: Single = 1.0);\r\nbegin\r\n  DrawRadioButton(ConvertToRectF(ARect), AChecked, AFocused, AEnabled, AScaleFactor);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawRadioButton(ARect: TRectF; AChecked: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True; AScaleFactor: Single = 1.0);\r\nvar\r\n  c: TTMSFNCGraphicsColor;\r\n  r: TRectF;\r\nbegin\r\n  r := ARect;\r\n  InflateRectEx(r, -1, -1);\r\n\r\n  if AEnabled then\r\n  begin\r\n    if AFocused then\r\n      c := gcSteelBlue\r\n    else\r\n      c := gcBlack;\r\n  end\r\n  else\r\n    c := gcDarkgray;\r\n\r\n  Fill.Kind := gfkSolid;\r\n  if AEnabled then\r\n    Fill.Color := Lighter(gcLightgray, 85)\r\n  else\r\n    Fill.Color := gcLightgray;\r\n\r\n  Stroke.Kind := gskSolid;\r\n  Stroke.Width := 1;\r\n  Stroke.Color := c;\r\n  DrawEllipse(r);\r\n  InflateRectEx(r, -(r.Right - r.Left) / 5, -(r.Bottom - r.Top) / 5);\r\n  Fill.Kind := gfkSolid;\r\n  Fill.Color := c;\r\n  if AChecked then\r\n  begin\r\n    DrawEllipse(r);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawBitmap(ALeft, ATop: Single; ABitmap: TTMSFNCBitmapHelperClass);\r\nbegin\r\n  DrawBitmap(RectF(ALeft, ATop, ALeft + ABitmap.Width, ATop + ABitmap.Height), ABitmap);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawBitmap(ALeft, ATop: Integer; ABitmap: TTMSFNCBitmapHelperClass);\r\nbegin\r\n  DrawBitmap(Rect(ALeft, ATop, ALeft + ABitmap.Width, ATop + ABitmap.Height), ABitmap);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawBitmap(ARect: TRect; ABitmap: TTMSFNCBitmapHelperClass; AAspectRatio: Boolean = True;\r\n  AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False);\r\nbegin\r\n  DrawBitmap(ConvertToRectF(ARect), ABitmap, AAspectRatio, AStretch, ACenter, ACropping);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawBitmap(ARect: TRectF; ABitmap: TTMSFNCBitmapHelperClass; AAspectRatio: Boolean = True;\r\n  AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False);\r\nbegin\r\n  DrawBitmap(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom, ABitmap, AAspectRatio, AStretch, ACenter, ACropping);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawBitmap(ALeft: Integer; ATop: Integer; ARight: Integer; ABottom: Integer; ABitmap: TTMSFNCBitmapHelperClass; AAspectRatio: Boolean = True;\r\n  AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False);\r\nbegin\r\n  DrawBitmap(RectF(ALeft, ATop, ARight, ABottom), ABitmap, AAspectRatio, AStretch, ACenter, ACropping);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawBitmap(ALeft: Double; ATop: Double; ARight: Double; ABottom: Double; ABitmap: TTMSFNCBitmapHelperClass; AAspectRatio: Boolean = True;\r\n  AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False);\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  if not Assigned(ABitmap) then\r\n    Exit;\r\n\r\n  r := RectF(ALeft, ATop, ARight, ABottom);\r\n  r := GetBitmapDrawRectangle(r, ABitmap, AAspectRatio, AStretch, ACenter, ACropping);\r\n\r\n  {$IFDEF SVGSUPPORT}\r\n  if not DrawSVG(ABitmap, r) then\r\n  {$ENDIF}\r\n    Context.DrawBitmap(BitmapToDrawBitmap(ABitmap), RectF(0, 0, ABitmap.Width, ABitmap.Height), r, 1);\r\nend;\r\n\r\nfunction TTMSFNCGraphics.InternalDrawBitmapPartSync(ASourceLeft: Double; ASourceTop: Double; ASourceRight: Double; ASourceBottom: Double; ADestinationLeft: Double; ADestinationTop: Double;\r\n  ADestinationRight: Double; ADestinationBottom: Double; ABitmap: TTMSFNCBitmapHelperClass; AAspectRatio: Boolean = True; AStretch: Boolean = False;\r\n  ACenter: Boolean = True; ACropping: Boolean = False): {$IFDEF WEBLIB}TJSPromise{$ELSE}TTMSFNCBitmap{$ENDIF};\r\nvar\r\n  r, rs: TRectF;\r\n  {$IFNDEF WEBLIB}\r\n  g: TTMSFNCGraphics;\r\n  bmp: TTMSFNCBitmap;\r\n  {$ENDIF}\r\nbegin\r\n  Result := nil;\r\n  r := RectF(ADestinationLeft, ADestinationTop, ADestinationRight, ADestinationBottom);\r\n  rs := RectF(ASourceLeft, ASourceTop, ASourceRight, ASourceBottom);\r\n  if RectIsEmpty(r) or RectIsEmpty(rs) then\r\n    Exit;\r\n\r\n  {$IFDEF SVGSUPPORT}\r\n  if not HasSVG(ABitmap) then\r\n  {$ENDIF}\r\n  begin\r\n    {$IFDEF WEBLIB}\r\n    Result := TJSPromise.New(\r\n    procedure(AResolve, AReject : TJSPromiseResolver)\r\n    var\r\n      bmp: TTMSFNCBitmap;\r\n      g: TTMSFNCGraphics;\r\n    begin\r\n    {$ENDIF}\r\n      g := TTMSFNCGraphics.CreateBitmapCanvas(Round(ASourceRight - ASourceLeft), Round(ASourceBottom - ASourceTop), FNative);\r\n      try\r\n        g.BeginScene;\r\n        g.DrawBitmap(-ASourceLeft, -ASourceTop, -ASourceLeft + g.Bitmap.Width, -ASourceTop + g.Bitmap.Height, ABitmap, False, False, False, False);\r\n        g.EndScene;\r\n        bmp := TTMSFNCBitmap.Create;\r\n        bmp.Assign(g.Bitmap);\r\n        {$IFDEF WEBLIB}\r\n        AResolve(bmp);\r\n        {$ELSE}\r\n        Result := bmp;\r\n        {$ENDIF}\r\n      finally\r\n        g.Free;\r\n      end;\r\n    {$IFDEF WEBLIB}\r\n    end);\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCGraphics.DrawBitmapPartSync(ASourceLeft: Double; ASourceTop: Double; ASourceRight: Double; ASourceBottom: Double; ADestinationLeft: Double; ADestinationTop: Double;\r\n  ADestinationRight: Double; ADestinationBottom: Double; ABitmap: TTMSFNCBitmapHelperClass; AAspectRatio: Boolean = True; AStretch: Boolean = False;\r\n  ACenter: Boolean = True; ACropping: Boolean = False): TTMSFNCBitmap;\r\nbegin\r\n  Result := {$IFDEF WEBLIB}await(TTMSFNCBitmap,{$ENDIF} InternalDrawBitmapPartSync(ASourceLeft, ASourceTop, ASourceRight, ASourceBottom,\r\n    ADestinationLeft, ADestinationTop, ADestinationRight, ADestinationBottom, ABitmap, AAspectRatio, AStretch, ACenter, ACropping){$IFDEF WEBLIB}){$ENDIF};\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawBitmapPart(ASourceRect: TRect; ADestinationRect: TRect; ABitmap: TTMSFNCBitmapHelperClass; AAspectRatio: Boolean = True;\r\n  AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False);\r\nbegin\r\n  DrawBitmapPart(ConvertToRectF(ASourceRect), ConvertToRectF(ADestinationRect), ABitmap, AAspectRatio, AStretch, ACenter, ACropping);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawBitmapPart(ASourceRect: TRectF; ADestinationRect: TRectF; ABitmap: TTMSFNCBitmapHelperClass; AAspectRatio: Boolean = True;\r\n  AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False);\r\nbegin\r\n  DrawBitmapPart(ASourceRect.Left, ASourceRect.Top, ASourceRect.Right, ASourceRect.Bottom, ADestinationRect.Left, ADestinationRect.Top, ADestinationRect.Right, ADestinationRect.Bottom,\r\n    ABitmap, AAspectRatio, AStretch, ACenter, ACropping);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawBitmapPart(ASourceLeft: Integer; ASourceTop: Integer; ASourceRight: Integer; ASourceBottom: Integer; ADestinationLeft: Integer; ADestinationTop: Integer;\r\n  ADestinationRight: Integer; ADestinationBottom: Integer; ABitmap: TTMSFNCBitmapHelperClass; AAspectRatio: Boolean = True; AStretch: Boolean = False;\r\n  ACenter: Boolean = True; ACropping: Boolean = False);\r\nbegin\r\n  DrawBitmapPart(RectF(ASourceLeft, ASourceTop, ASourceRight, ASourceBottom), RectF(ADestinationLeft, ADestinationTop, ADestinationRight, ADestinationBottom), ABitmap, AAspectRatio, AStretch, ACenter, ACropping);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawBitmapPart(ASourceLeft: Double; ASourceTop: Double; ASourceRight: Double; ASourceBottom: Double; ADestinationLeft: Double; ADestinationTop: Double;\r\n  ADestinationRight: Double; ADestinationBottom: Double; ABitmap: TTMSFNCBitmapHelperClass; AAspectRatio: Boolean = True; AStretch: Boolean = False;\r\n  ACenter: Boolean = True; ACropping: Boolean = False);\r\nvar\r\n  r, rs: TRectF;\r\n  g: TTMSFNCGraphics;\r\n  bmp: TTMSFNCBitmap;\r\nbegin\r\n  r := RectF(ADestinationLeft, ADestinationTop, ADestinationRight, ADestinationBottom);\r\n  rs := RectF(ASourceLeft, ASourceTop, ASourceRight, ASourceBottom);\r\n  if RectIsEmpty(r) or RectIsEmpty(rs) then\r\n    Exit;\r\n\r\n  {$IFDEF SVGSUPPORT}\r\n  if not DrawSVG(ABitmap, r) then\r\n  {$ENDIF}\r\n  begin\r\n    g := TTMSFNCGraphics.CreateBitmapCanvas(Round(ASourceRight - ASourceLeft), Round(ASourceBottom - ASourceTop), FNative);\r\n    try\r\n      g.BeginScene;\r\n      g.DrawBitmap(-ASourceLeft, -ASourceTop, -ASourceLeft + g.Bitmap.Width, -ASourceTop + g.Bitmap.Height, ABitmap, False, False, False, False);\r\n      g.EndScene;\r\n      bmp := TTMSFNCBitmap.Create;\r\n      try\r\n        bmp.Assign(g.Bitmap);\r\n        DrawBitmap(r, bmp, AAspectRatio, AStretch, ACenter, ACropping);\r\n      finally\r\n        bmp.Free;\r\n      end;\r\n    finally\r\n      g.Free;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass procedure TTMSFNCGraphics.GetAspectSize(var AWidth: Single; var AHeight: Single; AOriginalWidth: Single; AOriginalHeight: Single; ANewWidth: Single; ANewHeight: Single;\r\n  AAspectRatio: Boolean = True; AStretch: Boolean = False; ACropping: Boolean = False);\r\nvar\r\n  arc, ar: Single;\r\nbegin\r\n  if AAspectRatio then\r\n  begin\r\n    if (AOriginalWidth > 0) and (AOriginalHeight > 0) and (ANewWidth > 0) and (ANewHeight > 0) then\r\n    begin\r\n      if (AOriginalWidth < ANewWidth) and (AOriginalHeight < ANewHeight) and (not AStretch) then\r\n      begin\r\n        AWidth := AOriginalWidth;\r\n        AHeight := AOriginalHeight;\r\n      end\r\n      else\r\n      begin\r\n        if AOriginalWidth / AOriginalHeight < ANewWidth / ANewHeight then\r\n        begin\r\n          AHeight := ANewHeight;\r\n          AWidth := ANewHeight * AOriginalWidth / AOriginalHeight;\r\n        end\r\n        else\r\n        begin\r\n          AWidth := ANewWidth;\r\n          AHeight := ANewWidth * AOriginalHeight / AOriginalWidth;\r\n        end;\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      AWidth := 0;\r\n      AHeight := 0;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    if AStretch then\r\n    begin\r\n      AWidth := ANewWidth;\r\n      AHeight := ANewHeight;\r\n    end\r\n    else\r\n    begin\r\n      AWidth := AOriginalWidth;\r\n      AHeight := AOriginalHeight;\r\n\r\n      if ACropping then\r\n      begin\r\n        if (AWidth >= AHeight) and (AWidth > 0) then\r\n        begin\r\n          AHeight := AOriginalWidth / AWidth * AHeight;\r\n          AWidth := AOriginalWidth;\r\n        end\r\n        else\r\n        if (AHeight >= AWidth) and (AHeight > 0) then\r\n        begin\r\n          AWidth := AOriginalHeight / AHeight * AWidth;\r\n          AHeight := AOriginalHeight;\r\n        end;\r\n\r\n        if AHeight = 0 then\r\n          ar := 1\r\n        else\r\n          ar := AWidth / AHeight;\r\n\r\n        if AOriginalHeight = 0 then\r\n          arc := 1\r\n        else\r\n          arc := AOriginalWidth / AOriginalHeight;\r\n\r\n        if (ar < 1) or (arc > ar) then\r\n        begin\r\n          AHeight := AOriginalWidth / ar;\r\n          AWidth := AOriginalWidth;\r\n        end\r\n        else\r\n        begin\r\n          AWidth := ar * AOriginalHeight;\r\n          AHeight := AOriginalHeight;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCGraphics.GetBitmapDrawRectangle(ALeft: Integer; ATop: Integer; ARight: Integer; ABottom: Integer; ABitmap: TTMSFNCBitmapHelperClass;\r\n  AAspectRatio: Boolean = True; AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False): TRect;\r\nbegin\r\n  Result := ConvertToRect(GetBitmapDrawRectangle(RectF(ALeft, ATop, ARight, ABottom), ABitmap, AAspectRatio, AStretch, ACenter, ACropping));\r\nend;\r\n\r\nfunction TTMSFNCGraphics.GetBitmapDrawRectangle(ALeft: Double; ATop: Double; ARight: Double; ABottom: Double; ABitmap: TTMSFNCBitmapHelperClass;\r\n  AAspectRatio: Boolean = True; AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False): TRectF;\r\nvar\r\n  bmp: TTMSFNCBitmapHelperClass;\r\n  rdest: TRectF;\r\n  w, h: Single;\r\n  x, y: Single;\r\nbegin\r\n  Result := RectF(0, 0, 0, 0);\r\n  bmp := ABitmap;\r\n  if Assigned(bmp) then\r\n  begin\r\n    x := 0;\r\n    y := 0;\r\n    w := 0;\r\n    h := 0;\r\n    GetAspectSize(w, h, bmp.Width, bmp.Height, ARight - ALeft, ABottom - ATop, AAspectRatio, AStretch, ACropping);\r\n    if ACenter or ACropping then\r\n    begin\r\n      x := Round((ARight - ALeft - w) / 2);\r\n      y := Round((ABottom - ATop - h) / 2);\r\n    end;\r\n\r\n    rdest := RectF(ALeft + x, ATop + y, ALeft + x + w, ATop + y + h);\r\n    Result := rdest;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCGraphics.GetBitmapDrawRectangle(ARect: TRect; ABitmap: TTMSFNCBitmapHelperClass;\r\n  AAspectRatio: Boolean = True; AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False): TRect;\r\nbegin\r\n  Result := ConvertToRect(GetBitmapDrawRectangle(ConvertToRectF(ARect), ABitmap, AAspectRatio, AStretch, ACenter, ACropping));\r\nend;\r\n\r\nfunction TTMSFNCGraphics.GetBitmapDrawRectangle(ARect: TRectF; ABitmap: TTMSFNCBitmapHelperClass;\r\n  AAspectRatio: Boolean = True; AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False): TRectF;\r\nbegin\r\n  Result := GetBitmapDrawRectangle(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom, ABitmap, AAspectRatio, AStretch, ACenter, ACropping);\r\nend;\r\n\r\nfunction TTMSFNCGraphics.GetContext: TTMSFNCGraphicsContext;\r\nbegin\r\n  if FNative then\r\n    Result := FContextNative\r\n  else\r\n    Result := FContextGeneral;\r\nend;\r\n\r\nfunction TTMSFNCGraphics.GetCanvas: TCanvas;\r\nbegin\r\n  Result := FActiveCanvas;\r\nend;\r\n\r\n{$IFNDEF LIMITEDGRAPHICSMODE}\r\nclass function TTMSFNCGraphics.GetScaledBitmap(ABitmaps: TTMSFNCScaledBitmaps; AScale: Single = 0; ABitmapContainer: TTMSFNCBitmapContainer = nil): TTMSFNCBitmap;\r\nvar\r\n  b: TTMSFNCScaledBitmap;\r\n  bmp: TTMSFNCBitmap;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(ABitmaps) then\r\n  begin\r\n    if AScale > 0 then\r\n      b := ABitmaps.GetItemByScale(AScale)\r\n    else\r\n      b := ABitmaps.GetItemByScale(TTMSFNCUtils.GetDPIScale);\r\n\r\n    if Assigned(b) then\r\n    begin\r\n      if Assigned(b.Bitmap) and not IsBitmapEmpty(b.Bitmap) then\r\n        Result := b.Bitmap\r\n      else\r\n      begin\r\n        bmp := GetBitmapFromBitmapContainer(ABitmapContainer, b.BitmapName, True, AScale);\r\n        if Assigned(bmp) and not IsBitmapEmpty(bmp) then\r\n          Result := bmp\r\n        else\r\n        begin\r\n          bmp := GetBitmapFromBitmapContainer(ABitmapContainer, b.BitmapName, False);\r\n          if Assigned(bmp) and not IsBitmapEmpty(bmp) then\r\n            Result := bmp\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCGraphics.ApplyHilight(AText: string; AHilight: string; ATag: string; ADoCase: Boolean): String;\r\nbegin\r\n  Result := HiLight(AText, AHilight, ATag, ADoCase, False);\r\nend;\r\n\r\nclass function TTMSFNCGraphics.GetBitmapFromBitmapContainer(ABitmapContainer: TTMSFNCBitmapContainer; AName: string; AApplyScale: Boolean = False; AScale: Single = 0): TTMSFNCBitmap;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(ABitmapContainer) and (AName <> '') then\r\n  begin\r\n    if AApplyScale then\r\n    begin\r\n      if AScale > 0 then\r\n        Result := TTMSFNCBitmap(ABitmapContainer.FindBitmap(AName + '_' + FloatToStr(AScale)))\r\n      else\r\n        Result := TTMSFNCBitmap(ABitmapContainer.FindBitmap(AName + '_' + FloatToStr(TTMSFNCUtils.GetDPIScale)));\r\n    end;\r\n\r\n    if not Assigned(Result) then\r\n      Result := TTMSFNCBitmap(ABitmapContainer.FindBitmap(AName));\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawBitmapWithName(ARect: TRect; ABitmapName: string; AApplyScale: Boolean = False; AScale: Single = 0;\r\n  AAspectRatio: Boolean = True; AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False);\r\nbegin\r\n  DrawBitmapWithName(ConvertToRectF(ARect), ABitmapName, AApplyScale, AScale, AAspectRatio, AStretch, ACenter, ACropping);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawBitmapWithName(ARect: TRectF; ABitmapName: string; AApplyScale: Boolean = False; AScale: Single = 0;\r\n  AAspectRatio: Boolean = True; AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False);\r\nvar\r\n  b: TTMSFNCBitmap;\r\nbegin\r\n  b := GetBitmapFromBitmapContainer(FBitmapContainer, ABitmapName, AApplyScale, AScale);\r\n  if Assigned(b) then\r\n    DrawBitmap(ARect, b, AAspectRatio, AStretch, ACenter, ACropping);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawBitmapWithName(ALeft: Integer; ATop: Integer; ARight: Integer; ABottom: Integer; ABitmapName: string;\r\n  AApplyScale: Boolean = False; AScale: Single = 0; AAspectRatio: Boolean = True; AStretch: Boolean = False; ACenter: Boolean = True;\r\n  ACropping: Boolean = False);\r\nbegin\r\n  DrawBitmapWithName(RectF(ALeft, ATop, ARight, ABottom), ABitmapName, AApplyScale, AScale, AAspectRatio, AStretch, ACenter, ACropping);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawBitmapWithName(ALeft: Double; ATop: Double; ARight: Double; ABottom: Double; ABitmapName: string;\r\n  AApplyScale: Boolean = False; AScale: Single = 0; AAspectRatio: Boolean = True; AStretch: Boolean = False; ACenter: Boolean = True;\r\n  ACropping: Boolean = False);\r\nvar\r\n  b: TTMSFNCBitmap;\r\nbegin\r\n  b := GetBitmapFromBitmapContainer(FBitmapContainer, ABitmapName, AApplyScale, AScale);\r\n  if Assigned(b) then\r\n    DrawBitmap(ALeft, ATop, ARight, ABottom, b, AAspectRatio, AStretch, ACenter, ACropping);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawScaledBitmap(ARect: TRect; ABitmaps: TTMSFNCScaledBitmaps; AScale: Single = 0;\r\n  AAspectRatio: Boolean = True; AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False);\r\nbegin\r\n  DrawScaledBitmap(ConvertToRectF(ARect), ABitmaps, AScale, AAspectRatio, AStretch, ACenter, ACropping);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawScaledBitmap(ARect: TRectF; ABitmaps: TTMSFNCScaledBitmaps; AScale: Single = 0;\r\n  AAspectRatio: Boolean = True; AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False);\r\nvar\r\n  b: TTMSFNCScaledBitmap;\r\n  bmp: TTMSFNCBitmap;\r\nbegin\r\n  if Assigned(ABitmaps) then\r\n  begin\r\n    if AScale > 0 then\r\n      b := ABitmaps.GetItemByScale(AScale)\r\n    else\r\n      b := ABitmaps.GetItemByScale(TTMSFNCUtils.GetDPIScale);\r\n\r\n    if Assigned(b) then\r\n    begin\r\n      if Assigned(b.Bitmap) and not IsBitmapEmpty(b.Bitmap) then\r\n        DrawBitmap(ARect, b.Bitmap, AAspectRatio, AStretch, ACenter, ACropping)\r\n      else\r\n      begin\r\n        bmp := GetBitmapFromBitmapContainer(FBitmapContainer, b.BitmapName, True, AScale);\r\n        if Assigned(bmp) and not IsBitmapEmpty(bmp) then\r\n          DrawBitmap(ARect, bmp, AAspectRatio, AStretch, ACenter, ACropping)\r\n        else\r\n          DrawBitmapWithName(ARect, b.BitmapName, False, b.Scale, AAspectRatio, AStretch, ACenter, ACropping);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawScaledBitmap(ALeft: Integer; ATop: Integer; ARight: Integer; ABottom: Integer; ABitmaps: TTMSFNCScaledBitmaps; AScale: Single = 0;\r\n  AAspectRatio: Boolean = True; AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False);\r\nbegin\r\n  DrawScaledBitmap(RectF(ALeft, ATop, ARight, ABottom), ABitmaps, AScale, AAspectRatio, AStretch, ACenter, ACropping);\r\nend;\r\n\r\n{$IFDEF SVGSUPPORT}\r\nfunction TTMSFNCGraphics.HasSVG(ABitmap: TTMSFNCBitmapHelperClass): Boolean;\r\n{$IFNDEF WEBLIB}\r\nvar\r\n  si: TTMSFNCGraphicsSVGImport;\r\n{$ENDIF}\r\nbegin\r\n  Result := False;\r\n  {$IFNDEF WEBLIB}\r\n  if (ABitmap is TTMSFNCBitmap) then\r\n  begin\r\n    si := nil;\r\n    {$IFDEF FMXLIB}\r\n    if Assigned((ABitmap as TTMSFNCBitmap).SVG) then\r\n      si := TTMSFNCGraphicsSVGImport((ABitmap as TTMSFNCBitmap).SVG);\r\n    {$ENDIF}\r\n    {$IFDEF CMNLIB}\r\n    if Assigned(ABitmap.Graphic) and (ABitmap.Graphic is TTMSFNCSVGBitmap) then\r\n      si := TTMSFNCGraphicsSVGImport((ABitmap.Graphic as TTMSFNCSVGBitmap).SVG);\r\n    {$ENDIF}\r\n\r\n    if Assigned(si) and si.HasElements then\r\n      Result := True;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCGraphics.DrawSVG(ABitmap: TTMSFNCBitmapHelperClass;\r\n  ARect: TRectF): Boolean;\r\n{$IFNDEF WEBLIB}\r\nvar\r\n  si: TTMSFNCGraphicsSVGImport;\r\n{$ENDIF}\r\nbegin\r\n  Result := False;\r\n  {$IFNDEF WEBLIB}\r\n  if (ABitmap is TTMSFNCBitmap) then\r\n  begin\r\n    si := nil;\r\n    {$IFDEF FMXLIB}\r\n    if Assigned((ABitmap as TTMSFNCBitmap).SVG) then\r\n      si := TTMSFNCGraphicsSVGImport((ABitmap as TTMSFNCBitmap).SVG);\r\n    {$ENDIF}\r\n    {$IFDEF CMNLIB}\r\n    if Assigned(ABitmap.Graphic) and (ABitmap.Graphic is TTMSFNCSVGBitmap) then\r\n      si := TTMSFNCGraphicsSVGImport((ABitmap.Graphic as TTMSFNCSVGBitmap).SVG);\r\n    {$ENDIF}\r\n\r\n    if Assigned(si) and si.HasElements then\r\n    begin\r\n      si.Draw(Self, ARect{$IFDEF CMNLIB}, True{$ELSE}, FNative, not FNative{$ENDIF});\r\n      Result := True;\r\n    end;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCGraphics.DrawScaledBitmap(ALeft: Double; ATop: Double; ARight: Double; ABottom: Double; ABitmaps: TTMSFNCScaledBitmaps; AScale: Single = 0;\r\n  AAspectRatio: Boolean = True; AStretch: Boolean = False; ACenter: Boolean = True; ACropping: Boolean = False);\r\nvar\r\n  b: TTMSFNCScaledBitmap;\r\n  bmp: TTMSFNCBitmap;\r\nbegin\r\n  if Assigned(ABitmaps) then\r\n  begin\r\n    if AScale > 0 then\r\n      b := ABitmaps.GetItemByScale(AScale)\r\n    else\r\n      b := ABitmaps.GetItemByScale(TTMSFNCUtils.GetDPIScale);\r\n\r\n    if Assigned(b) then\r\n    begin\r\n      if Assigned(b.Bitmap) and not IsBitmapEmpty(b.Bitmap) then\r\n        DrawBitmap(ALeft, ATop, ARight, ABottom, b.Bitmap, AAspectRatio, AStretch, ACenter, ACropping)\r\n      else\r\n      begin\r\n        bmp := GetBitmapFromBitmapContainer(FBitmapContainer, b.BitmapName, True, AScale);\r\n        if Assigned(bmp) and not IsBitmapEmpty(bmp) then\r\n          DrawBitmap(ALeft, ATop, ARight, ABottom, bmp, AAspectRatio, AStretch, ACenter, ACropping)\r\n        else\r\n          DrawBitmapWithName(ALeft, ATop, ARight, ABottom, b.BitmapName, False, b.Scale, AAspectRatio, AStretch, ACenter, ACropping);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCGraphics.ClipRect(ARect: TRect);\r\nbegin\r\n  ClipRect(ConvertToRect(ARect));\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.ClipRect(ARect: TRectF);\r\nbegin\r\n  Context.ClipRect(ARect);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawFocusPath(APath: TTMSFNCGraphicsPath; AColor: TTMSFNCGraphicsColor = gcBlack);\r\nbegin\r\n  Context.DrawFocusPath(FStroke, APath, AColor);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawFocusRectangle(ALeft: Integer; ATop: Integer; ARight: Integer; ABottom: Integer; AColor: TTMSFNCGraphicsColor = gcBlack; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll);\r\nbegin\r\n  DrawFocusRectangle(Rect(ALeft, ATop, ARight, ABottom), AColor, AModifyRectMode);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawFocusRectangle(ALeft: Double; ATop: Double; ARight: Double; ABottom: Double; AColor: TTMSFNCGraphicsColor = gcBlack; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll);\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  r := RectF(ALeft, ATop, ARight, ABottom);\r\n  Context.DrawFocusRectangle(FStroke, r, AColor, AModifyRectMode);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawFocusRectangle(ARect: TRect; AColor: TTMSFNCGraphicsColor = gcBlack; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll);\r\nbegin\r\n  DrawFocusRectangle(ConvertToRectF(ARect), AColor, AModifyRectMode);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawFocusRectangle(ARect: TRectF; AColor: TTMSFNCGraphicsColor = gcBlack; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll);\r\nbegin\r\n  DrawFocusRectangle(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom, AColor, AModifyRectMode);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.FontChanged(Sender: TObject);\r\nbegin\r\n  SetFont(Sender as TTMSFNCGraphicsFont);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.StrokeChanged(Sender: TObject);\r\nbegin\r\n  SetStroke(Sender as TTMSFNCGraphicsStroke);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.FillChanged(Sender: TObject);\r\nbegin\r\n  SetFill(Sender as TTMSFNCGraphicsFill);\r\nend;\r\n\r\nfunction TTMSFNCGraphics.DrawText(ALeft, ATop, ARight, ABottom: Integer; AText: String; AWordWrapping: Boolean = False; AHorizontalAlign: TTMSFNCGraphicsTextAlign = gtaLeading;\r\n  AVerticalAlign: TTMSFNCGraphicsTextAlign = gtaCenter; ATrimming: TTMSFNCGraphicsTextTrimming = gttNone; AAngle: Single = 0;\r\n  AMinWidth: Single = -1; AMinHeight: Single = -1{$IFNDEF LIMITEDGRAPHICSMODE};ASupportHTML: Boolean = True; ATestAnchor: Boolean = False; AX: Single = -1; AY: Single = - 1{$ENDIF}): String;\r\nvar\r\n  AControlID, AControlValue, AControlType: string;\r\nbegin\r\n  AControlID := '';\r\n  AControlValue := '';\r\n  AControlType := '';\r\n  Result := DrawText(RectF(ALeft, ATop, ARight, ABottom), AText, AControlID, AControlValue, AControlType, AWordWrapping, AHorizontalAlign, AVerticalAlign, ATrimming,\r\n    AAngle, AMinWidth, AMinHeight{$IFNDEF LIMITEDGRAPHICSMODE}, ASupportHTML, ATestAnchor, AX, AY{$ENDIF});\r\nend;\r\n\r\nfunction TTMSFNCGraphics.DrawText(ALeft, ATop, ARight, ABottom: Double; AText: String; AWordWrapping: Boolean = False; AHorizontalAlign: TTMSFNCGraphicsTextAlign = gtaLeading;\r\n  AVerticalAlign: TTMSFNCGraphicsTextAlign = gtaCenter; ATrimming: TTMSFNCGraphicsTextTrimming = gttNone; AAngle: Single = 0;\r\n  AMinWidth: Single = -1; AMinHeight: Single = -1{$IFNDEF LIMITEDGRAPHICSMODE};ASupportHTML: Boolean = True; ATestAnchor: Boolean = False; AX: Single = -1; AY: Single = - 1{$ENDIF}): String;\r\nvar\r\n  AControlID, AControlValue, AControlType: string;\r\nbegin\r\n  AControlID := '';\r\n  AControlValue := '';\r\n  AControlType := '';\r\n  Result := DrawText(RectF(ALeft, ATop, ARight, ABottom), AText, AControlID, AControlValue, AControlType, AWordWrapping, AHorizontalAlign, AVerticalAlign, ATrimming,\r\n    AAngle, AMinWidth, AMinHeight{$IFNDEF LIMITEDGRAPHICSMODE}, ASupportHTML, ATestAnchor, AX, AY{$ENDIF});\r\nend;\r\n\r\nfunction TTMSFNCGraphics.DrawText(ALeft, ATop, ARight, ABottom: Integer; AText: String; var AControlID: string; var AControlValue: string; var AControlType: string; AWordWrapping: Boolean = False; AHorizontalAlign: TTMSFNCGraphicsTextAlign = gtaLeading;\r\n  AVerticalAlign: TTMSFNCGraphicsTextAlign = gtaCenter; ATrimming: TTMSFNCGraphicsTextTrimming = gttNone; AAngle: Single = 0;\r\n  AMinWidth: Single = -1; AMinHeight: Single = -1{$IFNDEF LIMITEDGRAPHICSMODE};ASupportHTML: Boolean = True; ATestAnchor: Boolean = False; AX: Single = -1; AY: Single = - 1{$ENDIF}): String;\r\nbegin\r\n  Result := DrawText(RectF(ALeft, ATop, ARight, ABottom), AText, AControlID, AControlValue, AControlType, AWordWrapping, AHorizontalAlign, AVerticalAlign, ATrimming,\r\n    AAngle, AMinWidth, AMinHeight{$IFNDEF LIMITEDGRAPHICSMODE}, ASupportHTML, ATestAnchor, AX, AY{$ENDIF});\r\nend;\r\n\r\nfunction TTMSFNCGraphics.DrawText(ALeft, ATop, ARight, ABottom: Double; AText: String; var AControlID: string; var AControlValue: string; var AControlType: string; AWordWrapping: Boolean = False; AHorizontalAlign: TTMSFNCGraphicsTextAlign = gtaLeading;\r\n  AVerticalAlign: TTMSFNCGraphicsTextAlign = gtaCenter; ATrimming: TTMSFNCGraphicsTextTrimming = gttNone; AAngle: Single = 0;\r\n  AMinWidth: Single = -1; AMinHeight: Single = -1{$IFNDEF LIMITEDGRAPHICSMODE};ASupportHTML: Boolean = True; ATestAnchor: Boolean = False; AX: Single = -1; AY: Single = - 1{$ENDIF}): String;\r\nbegin\r\n  Result := DrawText(RectF(ALeft, ATop, ARight, ABottom), AText, AControlID, AControlValue, AControlType, AWordWrapping, AHorizontalAlign, AVerticalAlign, ATrimming,\r\n    AAngle, AMinWidth, AMinHeight{$IFNDEF LIMITEDGRAPHICSMODE}, ASupportHTML, ATestAnchor, AX, AY{$ENDIF});\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.InitializeDefaultAppearance;\r\nbegin\r\n  {$IFNDEF LIMITEDGRAPHICSMODE}\r\n  FURLColor := gcBlue;\r\n  FURLUnderline := True;\r\n  {$ENDIF}\r\n  SetFill(Fill);\r\n  SetStroke(Stroke);\r\n  SetFont(Font);\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nclass function TTMSFNCGraphics.GetColorAlpha(AColor: TTMSFNCGraphicsColor): Byte;\r\nbegin\r\n  Result := TAlphaColorRec(AColor).A;\r\nend;\r\n{$ENDIF}\r\n\r\nclass function TTMSFNCGraphics.GetColorRed(AColor: TTMSFNCGraphicsColor): Byte;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Result := TAlphaColorRec(AColor).R;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  AColor := ColorToRGB(AColor);\r\n  Result := GetRValue(AColor);\r\n  {$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCGraphics.GetColorGreen(AColor: TTMSFNCGraphicsColor): Byte;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Result := TAlphaColorRec(AColor).G;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  AColor := ColorToRGB(AColor);\r\n  Result := GetGValue(AColor);\r\n  {$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCGraphics.GetColorBlue(AColor: TTMSFNCGraphicsColor): Byte;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Result := TAlphaColorRec(AColor).B;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  AColor := ColorToRGB(AColor);\r\n  Result := GetBValue(AColor);\r\n  {$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCGraphics.TextToColor(AText: string): TTMSFNCGraphicsColor;\r\nvar\r\n  s: string;\r\n  c: TTMSFNCGraphicsColorList;\r\n  v: TTMSFNCGraphicsColorObject;\r\nbegin\r\n  s := AText;\r\n\r\n  s := LowerCase(s);\r\n  if pos('cl',s) = 1 then\r\n    Delete(s,1,2);\r\n\r\n  if pos('cla',s) = 1 then\r\n    Delete(s,1,3);\r\n\r\n  if pos('gc',s) = 1 then\r\n    Delete(s,1,2);\r\n\r\n  Result := gcBlack;\r\n  c := ColorLookup;\r\n  if Assigned(c) then\r\n  begin\r\n    if c.TryGetValue(s, v) then\r\n      Result := v.Color;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCGraphics.HTMLToColor(AHTML: string): TTMSFNCGraphicsColor;\r\nvar\r\n  r,g,b: Integer;\r\nbegin\r\n  Result := gcNull;\r\n  if AHTML = '' then\r\n    Exit;\r\n\r\n  if Length(AHTML) = 4 then\r\n  begin\r\n    r := StrToInt('$' + Copy(AHTML,2,1) + Copy(AHTML,2,1));\r\n    g := StrToInt('$' + Copy(AHTML,3,1) + Copy(AHTML,3,1));\r\n    b := StrToInt('$' + Copy(AHTML,4,1) + Copy(AHTML,4,1));\r\n  end\r\n  else\r\n  begin\r\n    r := StrToInt('$' + Copy(AHTML,2,2));\r\n    g := StrToInt('$' + Copy(AHTML,4,2));\r\n    b := StrToInt('$' + Copy(AHTML,6,2));\r\n  end;\r\n\r\n{$IFDEF CMNWEBLIB}\r\n  Result := RGB(r, g, b);\r\n{$ELSE}\r\n  Result := MakeGraphicsColor(r, g, b);\r\n{$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCGraphics.ColorToHTML(AColor: TTMSFNCGraphicsColor): string;\r\nconst\r\n  HTMLHexColor = '#RRGGBB';\r\n  HexDigit: array[0..$F] of Char = '0123456789ABCDEF';\r\nvar\r\n  c: TTMSFNCGraphicsColor;\r\n  i: Integer;\r\nbegin\r\n  {$IFDEF ZEROSTRINGINDEX}\r\n  i := 0;\r\n  {$ELSE}\r\n  i := 1;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF FMXLIB}\r\n  c := AColor;\r\n  {$ENDIF}\r\n  {$IFNDEF FMXLIB}\r\n  c := ColorToRGB(AColor);\r\n  {$ENDIF}\r\n  Result := HtmlHexColor;\r\n  Result[1 + i] := HexDigit[GetColorRed(c) shr 4];\r\n  Result[2 + i] := HexDigit[GetColorRed(c) and $F];\r\n  Result[3 + i] := HexDigit[GetColorGreen(c) shr 4];\r\n  Result[4 + i] := HexDigit[GetColorGreen(c) and $F];\r\n  Result[5 + i] := HexDigit[GetColorBlue(c) shr 4];\r\n  Result[6 + i] := HexDigit[GetColorBlue(c) and $F];\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawTexture(ARect: TRectF; ATexture: TTMSFNCBitmap; ATextureMode: TTMSFNCGraphicsTextureMode);\r\nvar\r\n  LR, R, IR: TRectF;\r\n  I, J: Integer;\r\nbegin\r\n  if IsBitmapEmpty(ATexture) then\r\n    Exit;\r\n\r\n  LR := ARect;\r\n  case ATextureMode of\r\n    gtmOriginal:\r\n    begin\r\n      R := RectF(ARect.Left, ARect.Top, ARect.Left + ATexture.Width, ARect.Top + ATexture.Height);\r\n      IntersectRectEx(IR, LR, R);\r\n      DrawBitmapPart(RectF(0, 0, (IR.Right - IR.Left), (IR.Bottom - IR.Top)), RectF(R.Left, R.Top, R.Left + (IR.Right - IR.Left), R.Top + (IR.Bottom - IR.Top)), ATexture, False, False, False, False);\r\n    end;\r\n    gtmFit:\r\n    begin\r\n      R := RectF(0, 0, ATexture.Width, ATexture.Height);\r\n      R := RectSnapToPixelEx(RectFitIntoEx(R, ARect), 1, False);\r\n      DrawBitmapPart(RectF(0, 0, ATexture.Width, ATexture.Height), R, ATexture, False, True, False, False);\r\n    end;\r\n    gtmStretch: DrawBitmapPart(RectF(0, 0, ATexture.Width, ATexture.Height), ARect, ATexture, False, True, False, False);\r\n    gtmTile:\r\n    begin\r\n      for I := 0 to Trunc((LR.Right - LR.Left) / ATexture.Width) + 1 do\r\n      begin\r\n        for J := 0 to Trunc((LR.Bottom - LR.Top) / ATexture.Height) + 1 do\r\n        begin\r\n          R := RectF(LR.Left, LR.Top, LR.Left + ATexture.Width, LR.Top + ATexture.Height);\r\n          OffsetRectEx(R, I * ATexture.Width, J * ATexture.Height);\r\n          IntersectRectEx(IR, LR, R);\r\n          if IntersectRectEx(IR, R) then\r\n            DrawBitmap(RectF(R.Left, R.Top, (R.Left + (IR.Right - IR.Left)), (R.Top + (IR.Bottom - IR.Top))), ATexture, False, False, False, False);\r\n        end;\r\n      end;\r\n    end;\r\n    gtmCenter:\r\n    begin\r\n      R := RectF(0, 0, ATexture.Width, ATexture.Height);\r\n      R := RectSnapToPixelEx(RectCenterAtEx(R, ARect), 1, False);\r\n      DrawBitmapPart(RectF(0, 0, ATexture.Width, ATexture.Height), R, ATexture, True, False, True, False);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCGraphics.DrawText(ARect: TRect; AText: String; AWordWrapping: Boolean = False; AHorizontalAlign: TTMSFNCGraphicsTextAlign = gtaLeading;\r\n  AVerticalAlign: TTMSFNCGraphicsTextAlign = gtaCenter; ATrimming: TTMSFNCGraphicsTextTrimming = gttNone; AAngle: Single = 0;\r\n  AMinWidth: Single = -1; AMinHeight: Single = -1{$IFNDEF LIMITEDGRAPHICSMODE};ASupportHTML: Boolean = True; ATestAnchor: Boolean = False; AX: Single = -1; AY: Single = - 1{$ENDIF}): String;\r\nvar\r\n  AControlID, AControlValue, AControlType: string;\r\nbegin\r\n  AControlID := '';\r\n  AControlValue := '';\r\n  AControlType := '';\r\n  Result := DrawText(ConvertToRectF(ARect), AText, AControlID, AControlValue, AControlType, AWordWrapping, AHorizontalAlign, AVerticalAlign, ATrimming, AAngle, AMinWidth, AMinHeight{$IFNDEF LIMITEDGRAPHICSMODE}, ASupportHTML, ATestAnchor, AX, AY{$ENDIF});\r\nend;\r\n\r\nfunction TTMSFNCGraphics.DrawText(ARect: TRect; AText: String; var AControlID: string; var AControlValue: string; var AControlType: string; AWordWrapping: Boolean = False; AHorizontalAlign: TTMSFNCGraphicsTextAlign = gtaLeading;\r\n  AVerticalAlign: TTMSFNCGraphicsTextAlign = gtaCenter; ATrimming: TTMSFNCGraphicsTextTrimming = gttNone; AAngle: Single = 0;\r\n  AMinWidth: Single = -1; AMinHeight: Single = -1{$IFNDEF LIMITEDGRAPHICSMODE};ASupportHTML: Boolean = True; ATestAnchor: Boolean = False; AX: Single = -1; AY: Single = - 1{$ENDIF}): String;\r\nbegin\r\n  Result := DrawText(ConvertToRectF(ARect), AText, AControlID, AControlValue, AControlType, AWordWrapping, AHorizontalAlign, AVerticalAlign, ATrimming, AAngle, AMinWidth, AMinHeight{$IFNDEF LIMITEDGRAPHICSMODE}, ASupportHTML, ATestAnchor, AX, AY{$ENDIF});\r\nend;\r\n\r\nfunction TTMSFNCGraphics.DrawText(APoint: TPointF; AText: String; AAngle: Single = 0{$IFNDEF LIMITEDGRAPHICSMODE};ASupportHTML: Boolean = True; ATestAnchor: Boolean = False; AX: Single = -1; AY: Single = - 1{$ENDIF}): String;\r\nvar\r\n  AControlID, AControlValue, AControlType: string;\r\nbegin\r\n  AControlID := '';\r\n  AControlValue := '';\r\n  AControlType := '';\r\n\r\n  Result := DrawText(RectF(APoint.X, APoint.Y, APoint.X + 10000, APoint.Y + 10000), AText, AControlID, AControlValue, AControlType, False, gtaLeading, gtaLeading, gttNone, AAngle, -1, -1{$IFNDEF LIMITEDGRAPHICSMODE}, ASupportHTML, ATestAnchor, AX, AY{$ENDIF});\r\nend;\r\n\r\nfunction TTMSFNCGraphics.DrawText(ARect: TRectF; AText: String; AWordWrapping: Boolean = False;AHorizontalAlign: TTMSFNCGraphicsTextAlign = gtaLeading;\r\n  AVerticalAlign: TTMSFNCGraphicsTextAlign = gtaCenter; ATrimming: TTMSFNCGraphicsTextTrimming = gttNone; AAngle: Single = 0;\r\n  AMinWidth: Single = -1; AMinHeight: Single = -1{$IFNDEF LIMITEDGRAPHICSMODE};ASupportHTML: Boolean = True; ATestAnchor: Boolean = False; AX: Single = -1; AY: Single = - 1{$ENDIF}): String;\r\nvar\r\n  AControlID, AControlValue, AControlType: string;\r\nbegin\r\n  AControlID := '';\r\n  AControlValue := '';\r\n  AControlType := '';\r\n  Result := DrawText(ARect, AText, AControlID, AControlValue, AControlType, AWordWrapping, AHorizontalAlign, AVerticalAlign, ATrimming, AAngle, AMinWidth, AMinHeight{$IFNDEF LIMITEDGRAPHICSMODE}, ASupportHTML, ATestAnchor, AX, AY{$ENDIF});\r\nend;\r\n\r\nfunction TTMSFNCGraphics.DrawText(ARect: TRectF; AText: String; var AControlID: string; var AControlValue: string; var AControlType: string; AWordWrapping: Boolean = False;AHorizontalAlign: TTMSFNCGraphicsTextAlign = gtaLeading;\r\n  AVerticalAlign: TTMSFNCGraphicsTextAlign = gtaCenter; ATrimming: TTMSFNCGraphicsTextTrimming = gttNone; AAngle: Single = 0;\r\n  AMinWidth: Single = -1; AMinHeight: Single = -1{$IFNDEF LIMITEDGRAPHICSMODE};ASupportHTML: Boolean = True; ATestAnchor: Boolean = False; AX: Single = -1; AY: Single = - 1{$ENDIF}): String;\r\nvar\r\n  lst: TStringList;\r\n  i, l, p: Integer;\r\n  b: Boolean;\r\n  r, rd: TRectF;\r\nconst\r\n  arr: array[0..1] of string = ('<BR>', '<BR/>');\r\nbegin\r\n  rd := ARect;\r\n\r\n  {$IFNDEF LIMITEDGRAPHICSMODE}\r\n  b := (not ATestAnchor) and OptimizedHTMLDrawing;\r\n  {$ELSE}\r\n  b := false;\r\n  {$ENDIF}\r\n\r\n  b := b and TTMSFNCUtils.IsHTML(AText);\r\n\r\n  if b then\r\n  begin\r\n    for I := 0 to Length(arr) - 1 do\r\n    begin\r\n      p := Pos(arr[I], UpperCase(AText));\r\n      l := Length(arr[I]);\r\n    end;\r\n\r\n    if (p > 0) and (l > 0) then\r\n    begin\r\n      lst := TStringList.Create;\r\n      try\r\n        lst.LineBreak := Copy(AText, p, l);\r\n        lst.Text := AText;\r\n\r\n        for I := 0 to lst.Count - 1 do\r\n        begin\r\n          r := CalculateText(lst[I], rd, AWordWrapping{$IFNDEF LIMITEDGRAPHICSMODE}, ASupportHTML{$ENDIF});\r\n          InternalDrawText(RectF(r.Left, r.Top, r.Right + 1, r.Bottom), lst[I], AControlID, AControlValue, AControlType, AWordWrapping, AHorizontalAlign, AVerticalAlign,\r\n            ATrimming, AAngle, AMinWidth, AMinHeight{$IFNDEF LIMITEDGRAPHICSMODE}, ASupportHTML, ATestAnchor, AX, AY{$ENDIF});\r\n\r\n          rd.Top := rd.Top + (r.Bottom - r.Top);\r\n          rd.Bottom := rd.Bottom + (r.Bottom - r.Top);\r\n        end;\r\n\r\n      finally\r\n        lst.Free;\r\n      end;\r\n    end\r\n    else\r\n      b := False;\r\n  end;\r\n\r\n  if not b then\r\n  begin\r\n    Result := InternalDrawText(ARect, AText, AControlID, AControlValue, AControlType, AWordWrapping, AHorizontalAlign, AVerticalAlign,\r\n      ATrimming, AAngle, AMinWidth, AMinHeight{$IFNDEF LIMITEDGRAPHICSMODE}, ASupportHTML, ATestAnchor, AX, AY{$ENDIF});\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCGraphics.InternalDrawText(ARect: TRectF; AText: String; var AControlID: string; var AControlValue: string; var AControlType: string; AWordWrapping: Boolean = False;AHorizontalAlign: TTMSFNCGraphicsTextAlign = gtaLeading;\r\n  AVerticalAlign: TTMSFNCGraphicsTextAlign = gtaCenter; ATrimming: TTMSFNCGraphicsTextTrimming = gttNone; AAngle: Single = 0;\r\n  AMinWidth: Single = -1; AMinHeight: Single = -1{$IFNDEF LIMITEDGRAPHICSMODE};ASupportHTML: Boolean = True; ATestAnchor: Boolean = False; AX: Single = -1; AY: Single = - 1{$ENDIF}): String;\r\nvar\r\n{$IFNDEF LIMITEDGRAPHICSMODE}\r\n  a, s: String;\r\n  fa: String;\r\n  XSize, YSize: Single;\r\n  hl, ml: Integer;\r\n  hr, cr: TRectF;\r\n  xs, ys: Single;\r\n  lc: Integer;\r\n  htmlr: TRectF;\r\n  isanchor: boolean;\r\n  st: TTMSFNCGraphicsSaveState;\r\n{$ENDIF}\r\n  oldc: TTMSFNCGraphicsColor;\r\nbegin\r\n  inherited;\r\n\r\n  oldc := Context.GetFillColor;\r\n  Context.SetFillColor(FFont.Color);\r\n\r\n  {$IFDEF WEBLIB}\r\n  if (AMinHeight > -1) and (ARect.Bottom - ARect.Top < AMinHeight) then\r\n    ARect.Bottom := ARect.Top + AMinHeight;\r\n\r\n  if (AMinWidth > -1) and (ARect.Right - ARect.Left < AMinWidth) then\r\n    ARect.Right := ARect.Left + AMinWidth;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  if (AMinHeight > -1) and (ARect.Height < AMinHeight) then\r\n    ARect.Height := AMinHeight;\r\n\r\n  if (AMinWidth > -1) and (ARect.Width < AMinWidth) then\r\n    ARect.Width := AMinWidth;\r\n  {$ENDIF}\r\n\r\n  ARect := Context.SetTextAngle(ARect, AAngle);\r\n\r\n  Result := '';\r\n\r\n  {$IFNDEF LIMITEDGRAPHICSMODE}\r\n  if ((Pos('</', AText) > 0) or (Pos('/>', AText)  > 0) or (Pos('<BR>', UpperCase(AText)) > 0)) and ASupportHTML then\r\n  begin\r\n    hr := RectF(0, 0, 0, 0);\r\n    XSize := 0;\r\n    YSize := 0;\r\n    hl := -1;\r\n    ml := -1;\r\n    fa := '';\r\n    s := '';\r\n    a := '';\r\n    lc := 0;\r\n    cr := RectF(0, 0, 0, 0);\r\n    AControlID := '';\r\n    AControlValue := '';\r\n    AControlType := '';\r\n    HTMLDrawEx(Self, AText, ARect,0, 0,-1,-1,0,False,True,False,False,False,False,AWordWrapping,False, '', 1.0,URLColor,\r\n        gcNull,gcNull,gcNull,a,s,fa,XSize,YSize,hl,ml,hr, cr, AControlID, AControlValue, AControlType, lc, 0, FBitmapContainer, 1, URLUnderline{$IFDEF CMNLIB}, FImageList{$ENDIF},\r\n        HighlightColor, HighlightTextColor, HighlightFontStyle);\r\n\r\n    YSize := YSize + 1;\r\n    XSize := XSize + 1;\r\n\r\n    if (AWordWrapping and (lc <= 1)) or (not AWordWrapping) then\r\n    begin\r\n      xs := ARect.Left;\r\n      ys := ARect.Top;\r\n\r\n      case AHorizontalAlign of\r\n        gtaCenter: xs := xs + ((ARect.Right - ARect.Left) - XSize) / 2;\r\n        gtaTrailing: xs := ARect.Left + (ARect.Right - ARect.Left) - XSize;\r\n      end;\r\n\r\n      case AVerticalAlign of\r\n        gtaCenter: ys := ys + ((ARect.Bottom - ARect.Top) - YSize) / 2;\r\n        gtaTrailing: ys := ys + (ARect.Bottom - ARect.Top) - YSize;\r\n      end;\r\n\r\n      htmlr := RectF(xs, ys, xs + XSize, ys + YSize);\r\n    end\r\n    else\r\n      htmlr := ARect;\r\n\r\n    st := SaveState(True);\r\n    ClipRect(ARect);\r\n    isanchor := HTMLDrawEx(Self, AText, htmlr,Round(AX), Round(AY),-1,-1,0,ATestAnchor,False,False,False,False,False,AWordWrapping,False, '', 1.0,URLColor,\r\n        gcNull,gcNull,gcNull,a,s,fa,XSize,YSize,hl,ml,hr,cr, AControlID, AControlValue, AControlType, lc, 0, FBitmapContainer, 1, URLUnderline{$IFDEF CMNLIB}, FImageList{$ENDIF},\r\n        HighlightColor, HighlightTextColor, HighlightFontStyle);\r\n    RestoreState(st, True);\r\n\r\n    if isanchor then\r\n      Result := a;\r\n  end\r\n  else if not ATestAnchor then\r\n  {$ENDIF}\r\n    Context.DrawText(AText, ARect, AWordWrapping, AHorizontalAlign, AVerticalAlign, ATrimming, AAngle);\r\n\r\n  Context.ResetTextAngle(AAngle);\r\n  Context.SetFillColor(oldc);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawEllipse(ALeft: Integer; ATop: Integer; ARight: Integer; ABottom: Integer; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll);\r\nbegin\r\n  DrawEllipse(RectF(ALeft, ATop, ARight, ABottom), AModifyRectMode);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawEllipse(ALeft: Double; ATop: Double; ARight: Double; ABottom: Double; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll);\r\nvar\r\n  r: TRectF;\r\n  pth: TTMSFNCGraphicsPath;\r\nbegin\r\n  r := RectF(ALeft, ATop, ARight, ABottom);\r\n  if ((FFill.Color <> gcNull) and (FFill.Kind <> gfkNone)) or (FFill.Kind = gfkTexture) then\r\n  begin\r\n    case FFill.Kind of\r\n      gfkTexture:\r\n      begin\r\n        pth := TTMSFNCGraphicsPath.Create;\r\n        try\r\n          pth.AddEllipse(r);\r\n          DrawTexture(r, FFill.Texture, FFill.TextureMode);\r\n        finally\r\n          pth.Free;\r\n        end;\r\n      end;\r\n      else\r\n        Context.FillEllipse(FFill, r, AModifyRectMode);\r\n    end;\r\n  end;\r\n\r\n  if (FStroke.Color <> gcNull) and (FStroke.Kind <> gskNone) then\r\n    Context.DrawEllipse(FStroke, r, AModifyRectMode);\r\nend;\r\n\r\nclass procedure TTMSFNCGraphics.SetDefaultGraphicColors;\r\nbegin\r\n  TTMSFNCGraphics.DefaultPopupFillColor := gcWhite;\r\n  TTMSFNCGraphics.DefaultPopupStrokeColor := gcSilver;\r\n  TTMSFNCGraphics.DefaultButtonFillColor := MakeGraphicsColor(225, 225, 225);\r\n  TTMSFNCGraphics.DefaultButtonStrokeColor := gcDarkgray;\r\n  TTMSFNCGraphics.DefaultTextFontColor := gcBlack;\r\n  TTMSFNCGraphics.DefaultSelectionFillColor := gcBlack;\r\n  TTMSFNCGraphics.DefaultButtonFillColorFocused := MakeGraphicsColor(229, 241, 251);\r\n  TTMSFNCGraphics.DefaultButtonStrokeColorFocused := MakeGraphicsColor(60, 127, 177);\r\n  TTMSFNCGraphics.DefaultButtonStrokeColorDisabled := gcDarkGray;\r\n  TTMSFNCGraphics.DefaultButtonFillColorDisabled := gcLightgray;\r\nend;\r\n\r\n{$HINTS OFF}\r\nclass procedure TTMSFNCGraphics.ConvertBitmapToGrayScale(ABitmap: TTMSFNCBitmap);\r\ntype\r\n  TTMSFNCGraphicsColorToGrayscale = (ctgLightness, ctgAverage, ctgLuminosity);\r\n\r\n  function MinColor(const A, B, C: Integer): Integer;\r\n  begin\r\n    Result := Min(A, Min(B, C));\r\n  end;\r\n\r\n  function MaxColor(const A, B, C: Integer): Integer;\r\n  begin\r\n    Result := Max(A, Max(B, C));\r\n  end;\r\n\r\n  function ColorToGray(AColor: TTMSFNCGraphicsColor; AMode: TTMSFNCGraphicsColorToGrayscale = ctgLuminosity): TTMSFNCGraphicsColor;\r\n  var\r\n    R, G, B, X: Byte;\r\n    {$IFNDEF CMNLIB}\r\n    A: Byte;\r\n    {$ENDIF}\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    R := TAlphaColorRec(AColor).R;\r\n    G := TAlphaColorRec(AColor).G;\r\n    B := TAlphaColorRec(AColor).B;\r\n    A := TAlphaColorRec(AColor).A;\r\n    {$ENDIF}\r\n    {$IFDEF CMNLIB}\r\n    R := AColor and $FF;\r\n    G := (AColor and $FF00) shr 8;\r\n    B := (AColor and $FF0000) shr 16;\r\n    {$ENDIF}\r\n    case AMode of\r\n      ctgLightness: X := (MaxColor(R, G, B) + MinColor(R, G, B)) div 2;\r\n      ctgAverage: X := (R + G + B) div 3;\r\n      ctgLuminosity: X := Round(0.21 *R + 0.71*G + 0.07*B);\r\n      else\r\n        X := 0;\r\n    end;\r\n    {$IFDEF FMXLIB}\r\n    Result := MakeGraphicsColor(X, X, X, A);\r\n    {$ENDIF}\r\n    {$IFDEF CMNLIB}\r\n    Result := TTMSFNCGraphicsColor(RGB(X, X, X));\r\n    {$ENDIF}\r\n  end;\r\n\r\nvar\r\n  I, J: Integer;\r\n  {$IFDEF FMXLIB}\r\n  m: TBitmapData;\r\n  {$ENDIF}\r\nbegin\r\n  if Assigned(ABitmap) and not IsBitmapEmpty(ABitmap) then\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    if ABitmap.Map(TMapAccess.ReadWrite, m) then\r\n    begin\r\n    {$ENDIF}\r\n    {$IFDEF CMNLIB}\r\n    begin\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    begin\r\n    {$ENDIF}\r\n      for I := 0 to ABitmap.Width - 1 do\r\n      begin\r\n        for J := 0 to ABitmap.Height - 1 do\r\n        begin\r\n          {$IFDEF CMNLIB}\r\n          ABitmap.Bitmap.Canvas.Pixels[I, J] := ColorToGray(ABitmap.Bitmap.Canvas.Pixels[I, J]);\r\n          {$ENDIF}\r\n          {$IFDEF FMXLIB}\r\n          m.SetPixel(I, J, ColorToGray(m.GetPixel(I, J)));\r\n          {$ENDIF}\r\n        end;\r\n      end;\r\n      {$IFDEF FMXLIB}\r\n      ABitmap.Unmap(m);\r\n      {$ENDIF}\r\n    end;\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n\r\nclass procedure TTMSFNCGraphics.DrawSample(ACanvas: TCanvas; ARect: TRectF);\r\nvar\r\n  g: TTMSFNCGraphics;\r\nbegin\r\n  g := TTMSFNCGraphics.Create(ACanvas);\r\n  try\r\n    g.Font.Name := 'Courier New';\r\n    g.Font.Size := 20;\r\n    g.Font.Color := gcWhite;\r\n    g.Fill.Kind := gfkGradient;\r\n    g.Fill.Color := gcDarkorange;\r\n    g.Fill.ColorTo := gcSteelblue;\r\n    g.Stroke.Color := gcDarkblue;\r\n    g.DrawRectangle(ARect);\r\n    g.DrawText(ARect, 'Sample', False, gtaCenter);\r\n  finally\r\n    g.Free;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCGraphics.PointInPolygon(APoint: TPoint; APolygon: TTMSFNCGraphicsPathPolygon): Boolean;\r\nbegin\r\n  Result := PointInPolygon(ConvertToPointF(APoint), APolygon);\r\nend;\r\n\r\nclass function TTMSFNCGraphics.PointInPolygon(APoint: TPointF; APolygon: TTMSFNCGraphicsPathPolygon): Boolean;\r\nbegin\r\n  Result := PointInPoly(APoint, APolygon);\r\nend;\r\n\r\nclass function TTMSFNCGraphics.PointInRect(APoint: TPoint; ARect: TRect): Boolean;\r\nbegin\r\n  Result := PointInRect(ConvertToPointF(APoint), ConvertToRectF(ARect));\r\nend;\r\n\r\nclass function TTMSFNCGraphics.PointInRect(APoint: TPointF; ARect: TRectF): Boolean;\r\nbegin\r\n  Result := PtInRectEx(ARect, APoint);\r\nend;\r\n\r\nclass function TTMSFNCGraphics.PointInCircle(APoint, ACenter: TPointF; const ARadius: Single): Boolean;\r\nbegin\r\n  if ARadius > 0 then\r\n    Result := Sqr((APoint.X - ACenter.X) / ARadius) + Sqr((APoint.Y - ACenter.Y) / ARadius) <= 1\r\n  else\r\n    Result := False;\r\nend;\r\n\r\nclass function TTMSFNCGraphics.PointInPath(APoint: TPoint; APath: TTMSFNCGraphicsPath): Boolean;\r\nbegin\r\n  Result := PointInPath(ConvertToPointF(APoint), APath);\r\nend;\r\n\r\nclass function TTMSFNCGraphics.PointInPath(APoint: TPointF; APath: TTMSFNCGraphicsPath): Boolean;\r\nbegin\r\n  Result := APath.IsPointVisible(APoint);\r\nend;\r\n\r\nfunction TTMSFNCGraphics.CalculateTextSizeInt(AText: String): TSize;\r\nbegin\r\n  Result := ConvertToSize(CalculateTextSize(AText));\r\nend;\r\n\r\nfunction TTMSFNCGraphics.CalculateTextSize(AText: String): TSizeF;\r\nbegin\r\n  Result := CalculateTextSize(AText, RectF(0, 0, 10000, 10000));\r\nend;\r\n\r\nfunction TTMSFNCGraphics.CalculateTextHeightInt(AText: String): Integer;\r\nbegin\r\n  Result := Round(CalculateTextHeight(AText));\r\nend;\r\n\r\nfunction TTMSFNCGraphics.CalculateTextHeight(AText: String): Single;\r\nbegin\r\n  Result := CalculateTextHeight(AText, RectF(0, 0, 10000, 10000));\r\nend;\r\n\r\nfunction TTMSFNCGraphics.CalculateTextWidthInt(AText: String): Integer;\r\nbegin\r\n  Result := Round(CalculateTextWidth(AText));\r\nend;\r\n\r\nfunction TTMSFNCGraphics.CalculateTextWidth(AText: String): Single;\r\nbegin\r\n  Result := CalculateTextWidth(AText, RectF(0, 0, 10000, 10000));\r\nend;\r\n\r\nfunction TTMSFNCGraphics.CalculateTextSize(AText: String; ARect: TRect; AWordWrapping: Boolean = False{$IFNDEF LIMITEDGRAPHICSMODE}; ASupportHTML: Boolean = True{$ENDIF}): TSize;\r\nbegin\r\n  Result := ConvertToSize(CalculateTextSize(AText, ConvertToRectF(ARect), AWordWrapping{$IFNDEF LIMITEDGRAPHICSMODE}, ASupportHTML{$ENDIF}));\r\nend;\r\n\r\nfunction TTMSFNCGraphics.CalculateTextSize(AText: String; ARect: TRectF; AWordWrapping: Boolean = False{$IFNDEF LIMITEDGRAPHICSMODE}; ASupportHTML: Boolean = True{$ENDIF}): TSizeF;\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  r := CalculateText(AText, ARect, AWordWrapping{$IFNDEF LIMITEDGRAPHICSMODE}, ASupportHTML{$ENDIF});\r\n  Result.cx := r.Right - r.Left;\r\n  Result.cy := r.Bottom - r.Top;\r\nend;\r\n\r\nfunction TTMSFNCGraphics.CalculateTextHeight(AText: String; ARect: TRect; AWordWrapping: Boolean = False{$IFNDEF LIMITEDGRAPHICSMODE}; ASupportHTML: Boolean = True{$ENDIF}): Integer;\r\nbegin\r\n  Result := Round(CalculateTextHeight(AText, ConvertToRectF(ARect), AWordWrapping{$IFNDEF LIMITEDGRAPHICSMODE}, ASupportHTML{$ENDIF}));\r\nend;\r\n\r\nfunction TTMSFNCGraphics.CalculateTextHeight(AText: String; ARect: TRectF; AWordWrapping: Boolean = False{$IFNDEF LIMITEDGRAPHICSMODE}; ASupportHTML: Boolean = True{$ENDIF}): Single;\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  r := CalculateText(AText, ARect, AWordWrapping{$IFNDEF LIMITEDGRAPHICSMODE}, ASupportHTML{$ENDIF});\r\n  Result := r.Bottom - r.Top;\r\nend;\r\n\r\nfunction TTMSFNCGraphics.CalculateTextWidth(AText: String; ARect: TRect; AWordWrapping: Boolean = False{$IFNDEF LIMITEDGRAPHICSMODE}; ASupportHTML: Boolean = True{$ENDIF}): Integer;\r\nbegin\r\n  Result := Round(CalculateTextWidth(AText, ConvertToRectF(ARect), AWordWrapping{$IFNDEF LIMITEDGRAPHICSMODE}, ASupportHTML{$ENDIF}));\r\nend;\r\n\r\nfunction TTMSFNCGraphics.CalculateTextWidth(AText: String; ARect: TRectF; AWordWrapping: Boolean = False{$IFNDEF LIMITEDGRAPHICSMODE}; ASupportHTML: Boolean = True{$ENDIF}): Single;\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  r := CalculateText(AText, ARect, AWordWrapping{$IFNDEF LIMITEDGRAPHICSMODE}, ASupportHTML{$ENDIF});\r\n  Result := r.Right - r.Left;\r\nend;\r\n\r\nfunction TTMSFNCGraphics.CalculateTextInt(AText: String): TRect;\r\nbegin\r\n  Result := ConvertToRect(CalculateText(AText));\r\nend;\r\n\r\nfunction TTMSFNCGraphics.CalculateText(AText: String): TRectF;\r\nbegin\r\n  Result := CalculateText(AText, RectF(0, 0, 10000, 10000));\r\nend;\r\n\r\nfunction TTMSFNCGraphics.CalculateText(AText: String;\r\n  ARect: TRect; AWordWrapping: Boolean = False{$IFNDEF LIMITEDGRAPHICSMODE}; ASupportHTML: Boolean = True{$ENDIF}): TRect;\r\nbegin\r\n  Result := ConvertToRect(CalculateText(AText, ConvertToRectF(ARect), AWordWrapping{$IFNDEF LIMITEDGRAPHICSMODE}, ASupportHTML{$ENDIF}));\r\nend;\r\n\r\nfunction TTMSFNCGraphics.CalculateText(AText: String;\r\n  ARect: TRectF; AWordWrapping: Boolean = False{$IFNDEF LIMITEDGRAPHICSMODE}; ASupportHTML: Boolean = True{$ENDIF}): TRectF;\r\nvar\r\n  lst: TStringList;\r\n  i, l, p: Integer;\r\n  b: Boolean;\r\n  r: TRectF;\r\n  y: Single;\r\nconst\r\n  arr: array[0..1] of string = ('<BR>', '<BR/>');\r\nbegin\r\n  Result := ARect;\r\n\r\n  {$IFNDEF LIMITEDGRAPHICSMODE}\r\n  b := OptimizedHTMLDrawing and TTMSFNCUtils.IsHTML(AText);\r\n  {$ELSE}\r\n  b := False;\r\n  {$ENDIF}\r\n\r\n  if b then\r\n  begin\r\n    for I := 0 to Length(arr) - 1 do\r\n    begin\r\n      p := Pos(arr[I], UpperCase(AText));\r\n      l := Length(arr[I]);\r\n    end;\r\n\r\n    if (p > 0) and (l > 0) then\r\n    begin\r\n      lst := TStringList.Create;\r\n      try\r\n        lst.LineBreak := Copy(AText, p, l);\r\n        lst.Text := AText;\r\n\r\n        y := 0;\r\n        for I := 0 to lst.Count - 1 do\r\n        begin\r\n          r := InternalCalculateText(lst[I], ARect, AWordWrapping{$IFNDEF LIMITEDGRAPHICSMODE}, ASupportHTML{$ENDIF});\r\n          y := y + (r.Bottom - r.Top);\r\n        end;\r\n\r\n        Result.Bottom := Result.Top + y;\r\n\r\n      finally\r\n        lst.Free;\r\n      end;\r\n    end\r\n    else\r\n      b := False;\r\n  end;\r\n\r\n  if not b then\r\n    Result := InternalCalculateText(AText, ARect, AWordWrapping{$IFNDEF LIMITEDGRAPHICSMODE}, ASupportHTML{$ENDIF});\r\nend;\r\n\r\nfunction TTMSFNCGraphics.InternalCalculateText(AText: String;\r\n  ARect: TRectF; AWordWrapping: Boolean = False{$IFNDEF LIMITEDGRAPHICSMODE}; ASupportHTML: Boolean = True{$ENDIF}): TRectF;\r\n{$IFNDEF LIMITEDGRAPHICSMODE}\r\nvar\r\n  a, s: String;\r\n  fa: String;\r\n  XSize, YSize: Single;\r\n  hl, ml: Integer;\r\n  hr, cr: TRectF;\r\n  lc: Integer;\r\n  AControlID, AControlType, AControlValue: string;\r\n{$ENDIF}\r\nbegin\r\n  Result := ARect;\r\n\r\n  if Round(Result.Right - Result.Left) <= 0 then\r\n  begin\r\n    Result.Bottom := Result.Top;\r\n    Exit;\r\n  end;\r\n\r\n  if AText <> '' then\r\n  begin\r\n    {$IFNDEF LIMITEDGRAPHICSMODE}\r\n    if ASupportHTML and ((Pos('</', AText) > 0) or (Pos('/>', AText)  > 0) or (Pos('<BR>', UpperCase(AText)) > 0)) then\r\n    begin\r\n      hr := RectF(0, 0, 0, 0);\r\n      XSize := 0;\r\n      YSize := 0;\r\n      hl := -1;\r\n      ml := -1;\r\n      fa := '';\r\n      s := '';\r\n      a := '';\r\n      lc := 0;\r\n      cr := RectF(0, 0, 0, 0);\r\n      AControlID := '';\r\n      AControlValue := '';\r\n      AControlType := '';\r\n      HTMLDrawEx(Self, AText, ARect, 0, 0,-1,-1,0,False,True,False,False,False,False,AWordWrapping,False, '', 1.0,URLColor,\r\n        gcNull,gcNull,gcNull,a,s,fa,XSize,YSize,hl,ml,hr,cr, AControlID, AControlValue, AControlType, lc, 0, FBitmapContainer, 1, URLUnderline{$IFDEF CMNLIB}, FImageList{$ENDIF},\r\n        HighlightColor, HighlightTextColor, HighlightFontStyle);\r\n\r\n      YSize := YSize + 1;\r\n\r\n      Result.Right := Result.Left + XSize;\r\n      Result.Bottom := Result.Top + YSize;\r\n    end\r\n    else\r\n    {$ENDIF}\r\n    begin\r\n      Result := Context.CalculateText(AText, ARect, AWordWrapping);\r\n      Result.Bottom := Result.Bottom + 1;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    Result.Right := Result.Left;\r\n    Result.Bottom := Result.Top;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawEllipse(ARect: TRect; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll);\r\nbegin\r\n  DrawEllipse(ConvertToRectF(ARect), AModifyRectMode);\r\nend;\r\n\r\nprocedure TTMSFNCGraphics.DrawEllipse(ARect: TRectF; AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll);\r\nbegin\r\n  DrawEllipse(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom, AModifyRectMode);\r\nend;\r\n\r\n{ TTMSFNCGraphicsContext }\r\n\r\nfunction TTMSFNCGraphicsContext.ConvertToPath(APath: TTMSFNCGraphicsPath; const Flatness: Single = 0.25): Pointer;\r\nvar\r\n  J, I: Integer;\r\n  BPts: TTMSFNCGraphicsPathPolygon;\r\n  B: TTMSFNCGraphicsPathCubicBezier;\r\n  F, Len: Single;\r\n  SegCount: Integer;\r\n  CurPoint: TPointF;\r\n  x: TPointF;\r\nbegin\r\n  Result := CreatePath;\r\n  if APath.Count > 0 then\r\n  begin\r\n    F := Max(Flatness, 0.05);\r\n    J := 0;\r\n    while J < APath.Count do\r\n    begin\r\n      case APath[J].Kind of\r\n        gppMoveTo:\r\n          begin\r\n            PathOpen(Result);\r\n            PathMoveTo(Result, APath[J].Point);\r\n            CurPoint := APath[J].Point;\r\n          end;\r\n        gppLineTo:\r\n          begin\r\n            PathLineTo(Result, APath[J].Point);\r\n            CurPoint := APath[J].Point;\r\n          end;\r\n        gppCurveTo:\r\n          begin\r\n            B[0] := CurPoint;\r\n            B[1] := APath[J].Point;\r\n            Inc(J);\r\n            B[2] := APath[J].Point;\r\n            Inc(J);\r\n            B[3] := APath[J].Point;\r\n            BPts := APath.CreateBezier(B, 6);\r\n            Len := 0;\r\n            for I := 0 to High(BPts) - 1 do\r\n            begin\r\n              x.X := BPts[I].X - BPts[I + 1].X;\r\n              x.Y := BPts[I].Y - BPts[I + 1].Y;\r\n              Len := Len + GetPointLength(x);\r\n            end;\r\n            SegCount := Round(Len / F);\r\n            if SegCount < 2 then\r\n              PathLineTo(Result, B[3])\r\n            else\r\n            begin\r\n              BPts := APath.CreateBezier(B, SegCount);\r\n              for I := 0 to High(BPts) do\r\n                PathLineTo(Result, BPts[I]);\r\n              CurPoint := APath[J].Point;\r\n            end;\r\n          end;\r\n        gppClose: PathClose(Result);\r\n      end;\r\n      Inc(J);\r\n    end;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCGraphicsContext.Create(const AGraphics: TTMSFNCGraphics);\r\nbegin\r\n  FGraphics := AGraphics;\r\nend;\r\n\r\nfunction TTMSFNCGraphicsContext.GetGraphics: TTMSFNCGraphics;\r\nbegin\r\n  Result := FGraphics;\r\nend;\r\n\r\nfunction TTMSFNCGraphicsContext.GetCanvas: TCanvas;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(Graphics) then\r\n    Result := Graphics.Canvas;\r\nend;\r\n\r\n{$IFDEF WEBLIB}\r\ninitialization\r\nbegin\r\n  TTMSFNCBitmap.CreateFromResource(TMSFNCGRAPHICSCLOSE);\r\n  TTMSFNCBitmap.CreateFromResource(TMSFNCGRAPHICSDOWN);\r\n  TTMSFNCBitmap.CreateFromResource(TMSFNCGRAPHICSRIGHT);\r\n  TTMSFNCBitmap.CreateFromResource(TMSFNCGRAPHICSLEFT);\r\n  TTMSFNCBitmap.CreateFromResource(TMSFNCGRAPHICSEXPAND);\r\n  TTMSFNCBitmap.CreateFromResource(TMSFNCGRAPHICSPIN);\r\n  TTMSFNCBitmap.CreateFromResource(TMSFNCGRAPHICSPIN2);\r\n  TTMSFNCBitmap.CreateFromResource(TMSFNCGRAPHICSDOWN);\r\n  TTMSFNCBitmap.CreateFromResource(TMSFNCGRAPHICSDOWN2);\r\n  TTMSFNCBitmap.CreateFromResource(TMSFNCGRAPHICSUP);\r\n  TTMSFNCBitmap.CreateFromResource(TMSFNCGRAPHICSUP2);\r\n  TTMSFNCBitmap.CreateFromResource(TMSFNCGRAPHICSEXPANDSVG);\r\n  TTMSFNCBitmap.CreateFromResource(TMSFNCGRAPHICSUPSVG);\r\n  TTMSFNCBitmap.CreateFromResource(TMSFNCGRAPHICSRIGHTSVG);\r\n  TTMSFNCBitmap.CreateFromResource(TMSFNCGRAPHICSLEFTSVG);\r\n  TTMSFNCBitmap.CreateFromResource(TMSFNCGRAPHICSDOWNSVG);\r\n  TTMSFNCBitmap.CreateFromResource(TMSFNCGRAPHICSCLOSESVG);\r\nend;\r\n{$ENDIF}\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2016 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : https//www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCBitmapContainer;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, WEBLib.TMSFNCTypes, WEBLib.TMSFNCCustomComponent, WEBLib.Controls\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  , Generics.Collections\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  , fgl\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  ;\r\n\r\nconst\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 0; // Minor version nr.\r\n  REL_VER = 0; // Release nr.\r\n  BLD_VER = 0; // Build nr.\r\n\r\n  // version history\r\n  // v1.0.0.0 : First Release\r\n\r\ntype\r\n  TTMSFNCBitmapContainer = class;\r\n\r\n  TTMSFNCBitmapItem = class;\r\n\r\n  ITMSFNCBitmapContainer = interface\r\n    ['{ED26710D-395F-4971-8AC9-A31083BF2A3C}']\r\n    procedure SetBitmapContainer(const Value: TTMSFNCBitmapContainer);\r\n    function GetBitmapContainer: TTMSFNCBitmapContainer;\r\n    property BitmapContainer: TTMSFNCBitmapContainer read GetBitmapContainer write SetBitmapContainer;\r\n  end;\r\n\r\n  ITMSFNCBitmapContainerGetItem = interface\r\n    ['{98F65D59-B40C-4574-AF9C-3CA68E86AE10}']\r\n    function ItemCount: Integer;\r\n    function GetItem(AIndex: Integer): TTMSFNCBitmapItem;\r\n  end;\r\n\r\n  TTMSFNCBitmapItem = class(TCollectionItem)\r\n  private\r\n    FBitmap: TTMSFNCBitmap;\r\n    FTag: NativeInt;\r\n    FName: string;\r\n    procedure SetBitmap(const Value: TTMSFNCBitmap);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    destructor Destroy; override;\r\n    procedure DoBitmapChanged(Sender: TObject); virtual;\r\n    procedure Assign(Source: TPersistent); override;\r\n    function GetDisplayName: string; override;\r\n  published\r\n    property Bitmap: TTMSFNCBitmap read FBitmap write SetBitmap;\r\n    property Name: string read FName write FName;\r\n    property Tag: NativeInt read FTag write FTag;\r\n  end;\r\n\r\n  TTMSFNCBitmapCollection = class(TOwnedCollection)\r\n  private\r\n    FOwner: TTMSFNCBitmapContainer;\r\n    function GetItemEx(Index: Integer): TTMSFNCBitmapItem;\r\n    procedure SetItemEx(Index: Integer; const Value: TTMSFNCBitmapItem);\r\n  protected\r\n    function GetBitmapItemClass: TCollectionItemClass; virtual;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCBitmapContainer);\r\n    function Add: TTMSFNCBitmapItem;\r\n    function Insert(index: Integer): TTMSFNCBitmapItem;\r\n    property Items[Index: Integer]: TTMSFNCBitmapItem read GetItemEx write SetItemEx; default;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TControlList = class(TList);\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TControlList = class(TList<TControl>);\r\n  {$ENDIF}\r\n\r\n  {$IFDEF FMXLIB}\r\n  TWinControl = TControl;\r\n  {$ENDIF}\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCBitmapContainer = class(TTMSFNCCustomComponent, ITMSFNCBitmapContainerGetItem)\r\n  private\r\n    FControls: TControlList;\r\n    FItems: TTMSFNCBitmapCollection;\r\n    FOnBitmapChanged: TNotifyEvent;\r\n    procedure SetItems(const Value: TTMSFNCBitmapCollection);\r\n    function GetBitmapName(AIndex: Integer): String;\r\n    function GetBitmap(AIndex: Integer): TTMSFNCBitmap;\r\n    function GetItems: TTMSFNCBitmapCollection;\r\n  protected\r\n    function GetInstance: NativeUInt; override;\r\n    function GetVersion: string; override;\r\n    function CreateItems: TTMSFNCBitmapCollection; virtual;\r\n    procedure RegisterRuntimeClasses; override;\r\n    procedure Notification(AComponent: TComponent; Operation: TOperation); override;\r\n    procedure DoBitmapChanged(Sender: TObject);\r\n    procedure InvalidateMembers(AControl: TWinControl); virtual;\r\n  public\r\n    constructor Create; reintroduce; overload; virtual;\r\n    constructor Create(AOwner: TComponent); overload; override;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure Changed; virtual;\r\n    procedure RegisterControl(AControl: TControl);\r\n    procedure FindBitmap(i: Integer; ABitmap: TTMSFNCBitmap); overload; virtual;\r\n    function GetItem(AIndex: Integer): TTMSFNCBitmapItem; virtual;\r\n    function FindBitmap(s: string): TTMSFNCBitmap; overload; virtual;\r\n    function ItemCount: Integer;\r\n    function RandomBitmapName: string;\r\n    function RandomBitmap: TTMSFNCBitmap;\r\n    procedure AddFromURL({%H-}URL, {%H-}BitmapName: string); virtual;\r\n    procedure AddFromResource(ResourceName, BitmapName: string; AInstance: NativeUInt); overload;\r\n    procedure AddFromResource(ResourceName, BitmapName: string); overload;\r\n    procedure AddFromFile(FileName, BitmapName: String);\r\n    {$IFNDEF WEBLIB}\r\n    procedure AddFromFolder(AFolder: string);\r\n    {$ENDIF}\r\n    property BitmapNames[AIndex: Integer]: String read GetBitmapName;\r\n    property Bitmaps[AIndex: Integer]: TTMSFNCBitmap read GetBitmap;\r\n  published\r\n    property Items: TTMSFNCBitmapCollection read GetItems write SetItems;\r\n    property Version: string read GetVersion;\r\n    property OnBitmapChanged: TNotifyEvent read FOnBitmapChanged write FOnBitmapChanged;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  TypInfo, WEBLib.Forms, SysUtils, WEBLib.TMSFNCUtils\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Types\r\n  {$ENDIF}\r\n  ;\r\n\r\n{$R 'TMSFNCBitmapContainer.res'}\r\n\r\n{$IFDEF FMXLIB}\r\ntype\r\n  TCustomFormHelper = class helper for TCustomForm\r\n  private\r\n    function GetControlCount: Integer;\r\n    function GetControls(AIndex: Integer): TWinControl;\r\n  public\r\n    property ControlCount: Integer read GetControlCount;\r\n    property Controls[Index: Integer]: TWinControl read GetControls;\r\n  end;\r\n  {$ENDIF}\r\n\r\n{ TTMSFNCBitmapItem }\r\n\r\nprocedure TTMSFNCBitmapItem.Assign(Source: TPersistent);\r\nbegin\r\n  Name := (Source as TTMSFNCBitmapItem).Name;\r\n  Tag := (Source as TTMSFNCBitmapItem).Tag;\r\n  Bitmap.Assign((Source as TTMSFNCBitmapItem).Bitmap)\r\nend;\r\n\r\nconstructor TTMSFNCBitmapItem.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  FBitmap := TTMSFNCBitmap.Create;\r\n  FBitmap.OnChange := @DoBitmapChanged;\r\n  FName := 'Item' + IntToStr(Collection.Count);\r\nend;\r\n\r\ndestructor TTMSFNCBitmapItem.Destroy;\r\nbegin\r\n  FBitmap.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCBitmapItem.DoBitmapChanged(Sender: TObject);\r\nbegin\r\n  if (Collection is TTMSFNCBitmapCollection) then\r\n  begin\r\n    if Assigned((Collection as TTMSFNCBitmapCollection).FOwner) then\r\n      (Collection as TTMSFNCBitmapCollection).FOwner.DoBitmapChanged(Self);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCBitmapItem.GetDisplayName: string;\r\nbegin\r\n  if FName <> '' then\r\n    Result := FName\r\n  {$IFDEF WEBLIB}\r\n  else\r\n    Result := '';\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  else\r\n    Result := inherited;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCBitmapItem.SetBitmap(const Value: TTMSFNCBitmap);\r\nbegin\r\n  FBitmap.Assign(Value);\r\nend;\r\n\r\n{ TTMSFNCBitmapCollection }\r\n\r\nfunction TTMSFNCBitmapCollection.Add: TTMSFNCBitmapItem;\r\nbegin\r\n  Result := TTMSFNCBitmapItem(inherited Add);\r\nend;\r\n\r\nconstructor TTMSFNCBitmapCollection.Create(AOwner: TTMSFNCBitmapContainer);\r\nbegin\r\n  inherited Create(AOwner, GetBitmapItemClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCBitmapCollection.GetBitmapItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCBitmapItem;\r\nend;\r\n\r\nfunction TTMSFNCBitmapCollection.GetItemEx(Index: Integer): TTMSFNCBitmapItem;\r\nbegin\r\n  Result := TTMSFNCBitmapItem(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCBitmapCollection.Insert(index: Integer): TTMSFNCBitmapItem;\r\nbegin\r\n  Result := TTMSFNCBitmapItem(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCBitmapCollection.SetItemEx(Index: Integer; const Value: TTMSFNCBitmapItem);\r\nbegin\r\n  inherited SetItem(Index, Value);\r\nend;\r\n\r\n{ TTMSFNCBitmapContainer }\r\n\r\nprocedure TTMSFNCBitmapContainer.AddFromFile(FileName, BitmapName: string);\r\nvar\r\n  bmpi: TTMSFNCBitmapItem;\r\nbegin\r\n  bmpi := Items.Add;\r\n  bmpi.Bitmap.LoadFromFile(FileName);\r\n  bmpi.Name := BitmapName;\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\nprocedure TTMSFNCBitmapContainer.AddFromFolder(AFolder: string);\r\nvar\r\n  SR: TSearchRec;\r\n\r\n  procedure AddToList(s: string);\r\n  begin\r\n    with Items.Add do\r\n    begin\r\n      try\r\n        Bitmap.LoadFromFile(s);\r\n        Name := ExtractFileName(s);\r\n      except\r\n        Bitmap.Assign(nil);\r\n      end;\r\n    end;\r\n  end;\r\n\r\nbegin\r\n  if FindFirst(AFolder,faAnyFile and not faDirectory,SR) = 0 then\r\n  begin\r\n    AddToList(ExtractFilePath(AFolder) + SR.Name);\r\n    while FindNext(SR) = 0 do\r\n      AddToList(ExtractFilePath(AFolder) + SR.Name);\r\n  end;\r\n  FindClose(SR);\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCBitmapContainer.AddFromURL(URL, BitmapName: string);\r\n{$IFDEF WEBLIB}\r\nvar\r\n  bmpi: TTMSFNCBitmapItem;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  bmpi := Self.Items.Add;\r\n  bmpi.Bitmap.LoadFromURL(URL);\r\n  bmpi.Name := BitmapName;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCBitmapContainer.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTMSFNCBitmapContainer) then\r\n  begin\r\n    FItems.Assign((Source as TTMSFNCBitmapContainer).Items);\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TTMSFNCBitmapContainer.AddFromResource(ResourceName, BitmapName: string; AInstance: NativeUInt);\r\nvar\r\n  bmpi: TTMSFNCBitmapItem;\r\nbegin\r\n  bmpi := Items.Add;\r\n  bmpi.Bitmap.LoadFromResource(ResourceName, AInstance);\r\n  bmpi.Name := BitmapName;\r\nend;\r\n\r\nprocedure TTMSFNCBitmapContainer.AddFromResource(ResourceName, BitmapName: string);\r\nbegin\r\n  AddFromResource(ResourceName, BitmapName, GetInstance);\r\nend;\r\n\r\nprocedure TTMSFNCBitmapContainer.Changed;\r\nvar\r\n  i: integer;\r\nbegin\r\n  for i := 0 to FControls.Count - 1 do\r\n  {$IFDEF FMXLIB}\r\n    FControls.Items[i].Invalidate;\r\n  {$ENDIF}\r\n  {$IFDEF CMNLIB}\r\n    FControls.Items[i].Invalidate;\r\n  {$ENDIF}\r\nend;\r\n\r\nconstructor TTMSFNCBitmapContainer.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FItems := CreateItems;\r\n  FControls := TControlList.Create;\r\nend;\r\n\r\nconstructor TTMSFNCBitmapContainer.Create;\r\nbegin\r\n  Create(nil);\r\nend;\r\n\r\nfunction TTMSFNCBitmapContainer.CreateItems: TTMSFNCBitmapCollection;\r\nbegin\r\n  Result := TTMSFNCBitmapCollection.Create(Self);\r\nend;\r\n\r\ndestructor TTMSFNCBitmapContainer.Destroy;\r\nbegin\r\n  FreeAndNil(FControls);\r\n  FItems.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCBitmapContainer.DoBitmapChanged(Sender: TObject);\r\nvar\r\n  f: TCustomForm;\r\n  I: Integer;\r\nbegin\r\n  f := TTMSFNCUtils.GetParentForm(Self);\r\n  if Assigned(f) then\r\n  begin\r\n    for I := 0 to f.ControlCount - 1 do\r\n      if f.Controls[I] is TWinControl then\r\n        InvalidateMembers(f.Controls[I] as TWinControl);\r\n  end;\r\n\r\n  if Assigned(OnBitmapChanged) then\r\n    OnBitmapChanged(Self);\r\nend;\r\n\r\nprocedure TTMSFNCBitmapContainer.FindBitmap(i: Integer; ABitmap: TTMSFNCBitmap);\r\nbegin\r\n  if (i >= 0) and (i <= Items.Count - 1) then\r\n    ABitmap.Assign(Items[I].Bitmap);\r\nend;\r\n\r\nfunction TTMSFNCBitmapContainer.FindBitmap(s: string): TTMSFNCBitmap;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  Result := nil;\r\n  s := Uppercase(s);\r\n  i := 1;\r\n  while i <= Items.Count do\r\n  begin\r\n    if Uppercase(Items[i - 1].Name) = s then\r\n    begin\r\n      Result := Items[i - 1].Bitmap;\r\n      Break;\r\n    end;\r\n    Inc(i);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCBitmapContainer.SetItems(const Value: TTMSFNCBitmapCollection);\r\nbegin\r\n  FItems.Assign(Value);\r\nend;\r\n\r\nfunction TTMSFNCBitmapContainer.GetBitmap(AIndex: Integer): TTMSFNCBitmap;\r\nbegin\r\n  Result := nil;\r\n  if (AIndex >= 0) and (AIndex <= Items.Count - 1) then\r\n    Result := Items[AIndex].Bitmap;\r\nend;\r\n\r\nfunction TTMSFNCBitmapContainer.GetBitmapName(AIndex: Integer): String;\r\nbegin\r\n  Result := '';\r\n  if (AIndex >= 0) and (AIndex <= Items.Count - 1) then\r\n    Result := Items[AIndex].Name;\r\nend;\r\n\r\nfunction TTMSFNCBitmapContainer.GetInstance: NativeUInt;\r\nbegin\r\n  Result := HInstance;\r\nend;\r\n\r\nfunction TTMSFNCBitmapContainer.GetItem(AIndex: Integer): TTMSFNCBitmapItem;\r\nbegin\r\n  Result := nil;\r\n  if (AIndex >= 0) and (AIndex <= ItemCount - 1) then\r\n    Result := Items[AIndex];\r\nend;\r\n\r\nfunction TTMSFNCBitmapContainer.GetItems: TTMSFNCBitmapCollection;\r\nbegin\r\n  Result := FItems;\r\nend;\r\n\r\nfunction TTMSFNCBitmapContainer.GetVersion: string;\r\nbegin\r\n  Result := GetVersionNumber(MAJ_VER, MIN_VER, REL_VER, BLD_VER);\r\nend;\r\n\r\nprocedure TTMSFNCBitmapContainer.InvalidateMembers(AControl: TWinControl);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  if not Assigned(AControl) then\r\n    Exit;\r\n\r\n  if Assigned(GetPropInfo(AControl, 'BitmapContainer')) then\r\n    AControl.Invalidate;\r\n\r\n  for I := 0 to AControl.ControlCount - 1 do\r\n  begin\r\n    if AControl.Controls[I] is TWinControl then\r\n      InvalidateMembers(AControl.Controls[I] as TWinControl);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCBitmapContainer.ItemCount: Integer;\r\nbegin\r\n  Result := Items.Count;\r\nend;\r\n\r\nprocedure TTMSFNCBitmapContainer.Notification(AComponent: TComponent;\r\n  Operation: TOperation);\r\nvar\r\n  i: integer;\r\nbegin\r\n  inherited;\r\n  if (Operation = opRemove) and Assigned(FControls) then\r\n  begin\r\n    for i := FControls.Count - 1 downto 0 do\r\n    begin\r\n      if (FControls.Items[i] = AComponent) then\r\n        FControls.Delete(i);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCBitmapContainer.RandomBitmap: TTMSFNCBitmap;\r\nbegin\r\n  Result := Bitmaps[Random(ItemCount)];\r\nend;\r\n\r\nfunction TTMSFNCBitmapContainer.RandomBitmapName: string;\r\nbegin\r\n  Result := BitmapNames[Random(ItemCount)];\r\nend;\r\n\r\nprocedure TTMSFNCBitmapContainer.RegisterControl(\r\n  AControl: TControl);\r\nbegin\r\n  FControls.Add(AControl);\r\nend;\r\n\r\nprocedure TTMSFNCBitmapContainer.RegisterRuntimeClasses;\r\nbegin\r\n  RegisterClass(TTMSFNCBitmapContainer);\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\n\r\n{ TCustomFormHelper }\r\n\r\nfunction TCustomFormHelper.GetControls(AIndex: Integer): TWinControl;\r\nvar\r\n  c: TFmxObject;\r\nbegin\r\n  Result := nil;\r\n  c := Children[AIndex];\r\n  if c is TWinControl then\r\n    Result := c as TWinControl;\r\nend;\r\n\r\nfunction TCustomFormHelper.GetControlCount: Integer;\r\nbegin\r\n  Result := ChildrenCount;\r\nend;\r\n\r\n{$ENDIF}\r\n\r\nend.\r\n","{********************************************************************}\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2016 - 2023                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCHTMLEngine;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, WEBLib.TMSFNCGraphics, Types, WEBLib.Graphics,\r\n  WEBLib.TMSFNCTypes, WEBLib.TMSFNCBitmapContainer, WEBLib.TMSFNCGraphicsTypes\r\n  {$IFDEF CMNLIB}\r\n  , FMX.ImgList\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  ;\r\n\r\nvar\r\n  TMSFNCHTMLENGINE_ATTR_DELIM: char = '\"';\r\n\r\nfunction HTMLDrawEx(AGraphics: TTMSFNCGraphics; s:string; fr:TRectF;\r\n                    XPos,YPos,FocusLink,HoverLink,ShadowOffset: Integer;\r\n                    CheckHotSpot,CheckHeight,{%H-}Print,Selected,Blink,HoverStyle,WordWrap: Boolean;\r\n                    {%H-}ResFactor:Double;\r\n                    URLColor,HoverColor,HoverFontColor,ShadowColor: TTMSFNCGraphicsColor;\r\n                    var AnchorVal,StripVal,FocusAnchor: string;\r\n                    var XSize,YSize: single; var HyperLinks,MouseLink: Integer;\r\n                    var HoverRect:TRectF;var LineCount: Integer; LineSpacing: Integer;\r\n                    BitmapContainer: TTMSFNCBitmapContainer; {%H-}Opacity: Single; HyperLinkUnderline: Boolean = True{$IFDEF CMNLIB}; ImageList: TCustomImageList = nil{$ENDIF};\r\n                    HighlightColor: TTMSFNCGraphicsColor = gcBlue;\r\n                    HighlightTextColor: TTMSFNCGraphicsColor = gcWhite;\r\n                    HighlightTextStyle: TFontStyles = []\r\n                    ): Boolean; overload;\r\n\r\nfunction HTMLDrawEx(AGraphics: TTMSFNCGraphics; s:string; fr:TRectF;\r\n                    XPos,YPos,FocusLink,HoverLink,ShadowOffset: Integer;\r\n                    CheckHotSpot,CheckHeight,{%H-}Print,Selected,Blink,HoverStyle,WordWrap, Down: Boolean;\r\n                    DownID: string;\r\n                    {%H-}ResFactor:Double;\r\n                    URLColor,HoverColor,HoverFontColor,ShadowColor: TTMSFNCGraphicsColor;\r\n                    var AnchorVal,StripVal,FocusAnchor: string;\r\n                    var XSize,YSize: single; var HyperLinks,MouseLink: Integer;\r\n                    var HoverRect, ControlRect:TRectF;var CID,CV,CT: string; var LineCount: Integer; LineSpacing: Integer;\r\n                    BitmapContainer: TTMSFNCBitmapContainer; {%H-}Opacity: Single; HyperLinkUnderline: Boolean = True{$IFDEF CMNLIB}; ImageList: TCustomImageList = nil{$ENDIF};\r\n                    HighlightColor: TTMSFNCGraphicsColor = gcBlue;\r\n                    HighlightTextColor: TTMSFNCGraphicsColor = gcWhite;\r\n                    HighlightTextStyle: TFontStyles = []\r\n                    ): Boolean; overload;\r\n\r\nfunction HiLight(s,h,tag:string;DoCase,FullText:boolean):string;\r\nfunction UnHiLight(s,tag:string):string;\r\nfunction GetControlValue(HTML,ControlID:string;var ControlValue:String): Boolean;\r\nfunction GetControlProp(HTML,ControlID:string): string;\r\nfunction GetControlMaxLen(HTML,ControlID:string): integer;\r\nfunction SetControlValue(var HTML:string;ControlID,ControlValue:string): Boolean;\r\nfunction ClearRadioControls(HTML: string): string;\r\nfunction GetNextControlID(HTML:string; ControlID: string): string;\r\nfunction HasHTMLControl(HTML: string): boolean;\r\nprocedure ParseControl(Tag: string; var ControlType,ControlID,ControlValue,ControlWidth,ControlHeight,ControlProp,ControlLen:string);\r\n\r\nimplementation\r\n\r\nuses\r\n  SysUtils, WEBLib.TMSFNCUtils\r\n  {$IFDEF LCLLIB}\r\n  ,LCLIntF\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  ,Windows\r\n  {$ENDIF}\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 29}\r\n  ,Character\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  ;\r\n\r\nfunction VarIPos(su,s:string;var Res:Integer):Integer;\r\nbegin\r\n  Res := Pos(su, Uppercase(s));\r\n  Result := Res;\r\nend;\r\n\r\nfunction HTMLStripAll(s:string):string;\r\nvar\r\n  TagPos, PTP: integer;\r\nbegin\r\n  Result := '';\r\n\r\n  // remove all tags\r\n  while (TTMSFNCUtils.VarPos('<',s,TagPos)>0) do\r\n  begin\r\n    PTP := TagPos;\r\n    if (TTMSFNCUtils.VarPos('>',s,TagPos) > PTP) then\r\n    begin\r\n      Result := Result + Copy(s,1,PTP - 1);\r\n      Delete(s,1,TagPos)\r\n    end\r\n    else\r\n      Break;\r\n  end;\r\n  Result := Result + s;\r\nend;\r\n\r\nfunction HiLight(s,h,tag:string; DoCase,FullText:boolean):string;\r\nvar\r\n  hs: string;\r\n  l,k,m: Integer;\r\n  IsHTML: Boolean;\r\nbegin\r\n  // This code removes other highlighting, i.e. all \"<\"+Tag+\">\" and \"</\"+Tag+\">\"\r\n  // - this will avoid a \"duplicate\" highlighting as this could lead to highlight\r\n  //   unappropriated parts of a text or confuse a user\r\n  // To avoid case sensitivity I use the fast ASCII version of Uppercase function\r\n  // as this is good enough for all tags (they can’t contain international characters)\r\n  tag := Uppercase(tag); // an upper-case version of a tag used in the rest of the function\r\n  hs := Uppercase(s); // an upper-case version of the searched text\r\n  // I repeatedly look for \"<\"+tag+\">\" and remove it from both upper-case (hs) and original (s)\r\n  // version of the searched text. This part can be better optimized, but in most cases\r\n  // the highlight tag won’t be presented in the searched text or it will be there only once.\r\n\r\n  l := Pos('<' + tag + '>',hs);\r\n  while (l > 0) do\r\n  begin\r\n    Delete(s, l, Length(tag) + 2);\r\n    Delete(hs, l, Length(tag) + 2);\r\n    l := Pos('<' + tag + '>',hs);\r\n  end;\r\n\r\n  // Same for \"</\"+tag+\">\"\r\n  l := Pos('</' + tag + '>',hs);\r\n  while (l > 0) do\r\n  begin\r\n    Delete(s, l, Length(tag) + 3);\r\n    Delete(hs, l, Length(tag) + 3);\r\n    l := Pos('</' + tag + '>',hs);\r\n  end;\r\n\r\n  // This code is little confusing as it is not always clear when the text is HTML and when\r\n  // is just a plain text. Some parts of TAdvStringGrid code recognizes HTML text by a presence\r\n  // of \"</\" string in the text and others handle all texts like HTML. I have selected the first\r\n  // version (the presence of \"</\") as I hope it is the wanted behaviour.\r\n\r\n  // Convert h to upper-case version for non-case-sensitive search.\r\n  // The ANSI version has been used to convert all letters including international ones.\r\n  if not DoCase then\r\n    h := AnsiUppercase(h);\r\n  // Now I try to detect presence of HTML in the searched text\r\n  IsHTML := (Pos('</', s) > 0);\r\n  // For HTML version I need to create a plain text version without all tags and special characters\r\n  // converted to the normal ones.\r\n  if IsHTML then\r\n    hs := TTMSFNCUtils.UnFixMarkup(HTMLStripAll(s), true)\r\n\r\n  else hs := s;\r\n  // For non-case-sensitive search I need the upper-case version.\r\n  if not DoCase then\r\n    hs := AnsiUppercase(hs);\r\n\r\n  // I will clear the result as I need to add handled parts to it, to avoid an extra variable.\r\n  Result := '';\r\n\r\n  // When the full text search is provided (i.e. both texts must match) I need just to compare\r\n  // h and hs. If they match I can highlight the whole text.\r\n  if FullText then\r\n  begin\r\n    // This works for both html and plain texts, but for HTML version the version with tags\r\n    // should be included in the result opposite to plain text version where we need the version\r\n    // with fixed special characters\r\n    if (h = hs) then\r\n      if (IsHTML) then s := '<' + tag + '>' + s + '</' + tag + '>'\r\n      else s := '<' + tag + '>' + TTMSFNCUtils.FixMarkup(s) + '</' + tag + '>';\r\n  end\r\n  else\r\n  if not IsHTML then\r\n  begin\r\n    // The plain-text partial search is little more complicated. Mainly I need to convert all special\r\n    // characters to the HTML version when the highlighting is applied. Otherwise I need to keep the\r\n    // original plain-text version as there is not tag in the text and it will be handled as plain text.\r\n    l := Pos(h, hs);\r\n    if (l > 0) then\r\n    begin\r\n      repeat\r\n        Result := Result + TTMSFNCUtils.FixMarkup(Copy(s, 1, l - 1), false) + '<' + tag + '>' + TTMSFNCUtils.FixMarkup(Copy(s, l, Length(h)), false) + '</' + tag + '>';\r\n        Delete(s, 1, l + length(h) - 1);\r\n        Delete(hs, 1, l + length(h) - 1);\r\n        l := Pos(h, hs);\r\n      until (l = 0);\r\n      s := TTMSFNCUtils.FixMarkup(s, false);\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    // The last and more complex processing for HTML texts. The main idea is to find the text fh (i.e.\r\n    // h with fixed special characters) in the searched text hs (i.e. s without tags). When I found\r\n    // a matching, I will copy everything from the original text up to the matching location including\r\n    // tags.\r\n    // Try to find a matching and store it to L.\r\n    l := Pos(h, hs);\r\n    while (l > 0) do\r\n    begin\r\n      // Some matching was found, I can safely delete everything up to the end of matching\r\n      // from hs (s without tags)\r\n      Delete(hs, 1, l + length(h) - 1);\r\n      // Now I need to move a part of s before the matching to the Result.\r\n      // But it still can contain both tags and special characters!\r\n      repeat\r\n        // Try to find a start of the first tag or special character in remaining part of s, if it exists.\r\n        k := pos('<', s);\r\n        m := pos('&', s);\r\n        //m := 0;\r\n        // Move all text, all tags up to the matching and all special characters before the matching\r\n        // to the result. Keep on mind the tags are not calculated, but special characters are handled as\r\n        // a single character.\r\n        while ((k > 0) and (k <= l)) or ((m > 0) and (m < l)) do\r\n        begin\r\n          // We need to move the part of S before the matching and the tag/special character into the result,\r\n          // whatever of them is the first.\r\n          if (k > 0) and ((m <= 0) or (k < m)) then\r\n          begin\r\n            Result := Result + copy(s, 1, k - 1);\r\n            Delete(s, 1, k - 1);\r\n            l := l - (k - 1);\r\n            m := m - (k - 1);\r\n            k := pos('>', s);\r\n            if (k = 0) then k := Length(s);\r\n            Result := Result + copy(s, 1, k);\r\n            Delete(s, 1, k);\r\n            m := m - k;\r\n            k := pos('<', s);\r\n          end\r\n          else\r\n          begin\r\n            Result := Result + copy(s, 1, m - 1);\r\n            Delete(s, 1, m - 1);\r\n            l := l - (m - 1) - 1; // -1 = special character\r\n            k := k - (m - 1);\r\n            m := pos(';', s);\r\n            l := l - m + 1;\r\n            if (m = 0) then m := Length(s);\r\n            Result := Result + copy(s, 1, m);\r\n            Delete(s, 1, m);\r\n            k := k - m;\r\n            m := pos('&', s);\r\n          end;\r\n        end;\r\n        // No more tags or special characters were found or they lie after a start of the matching or the\r\n        // special character is the first character of the matching. I can move a part of S before\r\n        // the matching to Result and start highlighting adding \"<\"+tag+\">\"\r\n        Result := Result + copy(s, 1, l - 1) + '<' + tag + '>';\r\n        Delete(s, 1, l - 1);\r\n        // Now I will exclude the deleted part of s from the position of the first tag/spec.char\r\n        // to re-use the values.\r\n        k := k - (l - 1);\r\n        m := m - (l - 1);\r\n        // Store the length of matching text. Again, it can contain other tags.\r\n        l := Length(h);\r\n        // While there exists some tag in the matching text, move part of S before the tag into the result,\r\n        // move the tag and try to find another one, until no one is found, it lies behind the matching text\r\n        // or the end of S is reached (the last condition should never occur)\r\n        while (((k > 0) and (k <= l)) or ((m > 0) and (m <= l))) and (l > 0) and (s <> '') do\r\n        begin\r\n          if (k > 0) and ((m <= 0) or (k < m)) then\r\n          begin\r\n            Result := Result + copy(s, 1, k - 1);\r\n            Delete(s, 1, k - 1);\r\n            l := l - (k - 1);\r\n            m := m - (k - 1);\r\n            k := pos('>', s);\r\n            if (k = 0) then k := Length(s);\r\n            Result := Result + copy(s, 1, k);\r\n            // A special handling to keep highlighting after </font> tag\r\n            if (Uppercase(copy(s, 1, 6)) = '</FONT') then\r\n              Result := Result + '</' + tag + '><' + tag + '>';\r\n            Delete(s, 1, k);\r\n            m := m - k;\r\n            k := pos('<', s);\r\n          end\r\n          else\r\n          begin\r\n            Result := Result + copy(s, 1, m - 1);\r\n            Delete(s, 1, m - 1);\r\n            l := l - (m - 1) - 1; // -1 = special character\r\n            k := k - (m - 1);\r\n            m := pos(';', s);\r\n            if (m = 0) then m := Length(s);\r\n            Result := Result + copy(s, 1, m);\r\n            Delete(s, 1, m);\r\n            k := k - m;\r\n            m := pos('&', s);\r\n          end;\r\n        end;\r\n        // L contains resting characters to move from S to the result. We don't need any other testing now.\r\n        if (l > 0) then\r\n        begin\r\n          Result := Result + copy(s, 1, l);\r\n          Delete(s, 1, l);\r\n        end;\r\n        // The whole matching was moved to result, so we must \"close\" highlighting now.\r\n        Result := Result + '</' + tag + '>';\r\n        l := 0;\r\n        // Continue until whole string before the matching and the matching are moved\r\n        // from S into the result.\r\n      until (l = 0);\r\n      // Now try to find another matching.\r\n      l := Pos(h, hs);\r\n    end;\r\n  end;\r\n  // S contains an unhandled part of the original text without any other matching.\r\n  // - for full-text and plain-text matching the variable S can contain pre-processed\r\n  //   values as the handling was different\r\n  Result := Result + s;\r\nend;\r\n\r\nfunction UnHiLight(s,tag:string):string;\r\nvar\r\n  IsHTML, WasHTML: Boolean;\r\nbegin\r\n  Result := '';\r\n  // replace line breaks by linefeeds\r\n  WasHTML := (Pos('</', s) > 0);\r\n\r\n  tag := Uppercase(tag);\r\n  while Pos('<' + tag + '>', Uppercase(s)) > 0 do s := StringReplace(s,'<' + tag + '>','',[rfIgnoreCase]);\r\n  while Pos('</' + tag + '>', Uppercase(s)) > 0 do s := StringReplace(s,'</' + tag + '>','',[rfIgnoreCase]);\r\n\r\n  IsHTML := (Pos('</', s) > 0);\r\n  if WasHTML and not IsHTML then\r\n    s := TTMSFNCUtils.UnFixMarkup(s, false);\r\n\r\n  Result := s;\r\nend;\r\n\r\nfunction IStrToInt(s:string):Integer;\r\nvar\r\n  {%H-}Err,Res: Integer;\r\nbegin\r\n  Val(s,Res,Err);\r\n  Result := Res;\r\nend;\r\n\r\nfunction DBTagStrip(s:string):string;\r\nvar\r\n  i,j: Integer;\r\nbegin\r\n  i := Pos('<#',s);\r\n  if i > 0 then\r\n  begin\r\n    Result := Copy(s,1,i - 1);\r\n    Delete(s,1,i);\r\n    j := Pos('>',s);\r\n    if j > 0 then\r\n      Delete(s,j,1);\r\n    Result := Result + s;\r\n  end\r\n  else\r\n    Result := s;\r\nend;\r\n\r\nfunction HexVal(s:string): Integer;\r\nvar\r\n  i,j: Integer;\r\nbegin\r\n  if Length(s) < 2 then\r\n  begin\r\n    Result := 0;\r\n    Exit;\r\n  end;\r\n\r\n  {$IFDEF ZEROSTRINGINDEX}\r\n  if s[0] >= 'A' then\r\n    i := ord(s[0]) - ord('A') + 10\r\n  else\r\n    i := ord(s[0]) - ord('0');\r\n\r\n  if s[1] >= 'A' then\r\n    j := ord(s[1]) - ord('A') + 10\r\n  else\r\n    j := ord(s[1]) - ord('0');\r\n  {$ELSE}\r\n  if s[1] >= 'A' then\r\n    i := ord(s[1]) - ord('A') + 10\r\n  else\r\n    i := ord(s[1]) - ord('0');\r\n\r\n  if s[2] >= 'A' then\r\n    j := ord(s[2]) - ord('A') + 10\r\n  else\r\n    j := ord(s[2]) - ord('0');\r\n  {$ENDIF}\r\n\r\n  Result := i shl 4 + j;\r\nend;\r\n\r\nfunction UnicodeTagStrip(s: string): string;\r\nvar\r\n  i,j,k,e,nn: Integer;\r\n  su,res: string;\r\n  w: integer;\r\n  ishex: boolean;\r\n\r\n  function NonNum(aval: string; dohex: boolean): integer;\r\n  var\r\n    i,ofs: integer;\r\n  begin\r\n    if dohex then\r\n      ofs := 4\r\n    else\r\n      ofs := 3;\r\n\r\n    Result := ofs;\r\n\r\n    for i := ofs to length(aval) do\r\n      begin\r\n        if not ((aval[i{$IFDEF ZEROSTRINGINDEX} -1 {$ENDIF}] >= '0') and (aval[i{$IFDEF ZEROSTRINGINDEX} -1 {$ENDIF}] <= '9')) then\r\n        begin\r\n          Result := i;\r\n          break;\r\n        end;\r\n\r\n        if (dohex and not ((aval[i{$IFDEF ZEROSTRINGINDEX} -1 {$ENDIF}] >= 'A') and (aval[i{$IFDEF ZEROSTRINGINDEX} -1 {$ENDIF}] <='F')))\r\n          and (dohex and not ((aval[i{$IFDEF ZEROSTRINGINDEX} -1 {$ENDIF}] >= 'a') and (aval[i{$IFDEF ZEROSTRINGINDEX} -1 {$ENDIF}] <='f'))) then\r\n        begin\r\n          Result := i;\r\n          break;\r\n        end;\r\n      end;\r\n  end;\r\n\r\nbegin\r\n\r\n  res := '';\r\n  repeat\r\n    i := Pos('&#',s);\r\n    k := Pos('&&#',s);\r\n    if (k = i - 1) and (k <> 0) then\r\n      i := 0;\r\n\r\n    if (i > 0) then\r\n    begin\r\n      res := res + Copy(s,1,i - 1);\r\n      Delete(s,1,i - 1);\r\n      ishex := pos('&#x',s) = 1;\r\n\r\n      j := Pos(';',s);\r\n\r\n      if j > 7 then\r\n      begin\r\n        nn := NonNum(s, ishex);\r\n        j := nn;\r\n      end;\r\n\r\n      if (j > 0) then\r\n      begin\r\n        if ishex then\r\n        begin\r\n          su := Copy(s,4,j - 4);\r\n          try\r\n            w := HexVal(su);\r\n            e := 0;\r\n          except\r\n            w := 0;\r\n          end;\r\n        end\r\n        else\r\n        begin\r\n          su := Copy(s,3,j - 3);\r\n          val(su, w, e);\r\n        end;\r\n\r\n        if (length(su)> 0) and (length(su) <= 6) and (e = 0) then\r\n        begin\r\n          {$IFNDEF LCLLIB}\r\n          {$HINTS OFF}\r\n          {$IF COMPILERVERSION > 29}\r\n          if W >= 126980 then\r\n            res := res + '<J '+Char.ConvertFromUtf32(w)+' >'\r\n          else\r\n          {$IFEND}\r\n          {$HINTS ON}\r\n          {$ENDIF}\r\n            res := res + chr(w);\r\n\r\n          Delete(s,1,j);\r\n        end;\r\n      end\r\n      else\r\n      begin\r\n        res := res + '&#';\r\n        Delete(s,1,2);\r\n      end;\r\n    end\r\n    else\r\n      res := res + s;\r\n  until i <= 0;\r\n\r\n  Result := res;\r\nend;\r\n\r\nfunction CRLFStrip(s:string;break:boolean):string;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  Result := '';\r\n  {$IFDEF ZEROSTRINGINDEX}\r\n  for i := 0 to Length(s) - 1 do\r\n  {$ELSE}\r\n  for i := 1 to Length(s) do\r\n  {$ENDIF}\r\n  begin\r\n    if not ( (s[i] = #13) or (s[i] = #10)) then\r\n      Result := Result + s[i]\r\n    else\r\n      if (s[i] = #13) and break then\r\n        Result := Result + '<BR>';\r\n  end;\r\nend;\r\n\r\nprocedure ParseControl(Tag: string; var ControlType,ControlID,ControlValue,ControlWidth,ControlHeight,ControlProp,ControlLen:string);\r\nvar\r\n  Prop: string;\r\n  vp: integer;\r\nbegin\r\n  ControlType := '';\r\n  ControlWidth := '';\r\n  ControlHeight := '';\r\n  ControlValue := '';\r\n  ControlID := '';\r\n  ControlProp := '';\r\n  ControlLen := '';\r\n\r\n  vp := 0;\r\n  if VarIPos('TYPE=',Tag,vp) > 0 then\r\n  begin\r\n    Prop := Copy(Tag,vp + 1,Length(Tag));\r\n    Prop := Copy(Prop,Pos(TMSFNCHTMLENGINE_ATTR_DELIM,Prop) + 1,Length(Prop));\r\n    Prop := Copy(Prop,1,Pos(TMSFNCHTMLENGINE_ATTR_DELIM,Prop) - 1);\r\n    ControlType := Uppercase(Prop);\r\n  end;\r\n\r\n  if VarIPos('WIDTH=',Tag,vp) > 0 then\r\n  begin\r\n    Prop := Copy(Tag,vp + 1,Length(Tag));\r\n    Prop := Copy(Prop,Pos(TMSFNCHTMLENGINE_ATTR_DELIM,Prop) + 1,Length(Prop));\r\n    Prop := Copy(Prop,1,Pos(TMSFNCHTMLENGINE_ATTR_DELIM,Prop) - 1);\r\n    ControlWidth := Prop;\r\n  end;\r\n\r\n  if VarIPos('HEIGHT=',Tag,vp) > 0 then\r\n  begin\r\n    Prop := Copy(Tag,vp + 1,Length(Tag));\r\n    Prop := Copy(Prop,Pos(TMSFNCHTMLENGINE_ATTR_DELIM,Prop) + 1,Length(Prop));\r\n    Prop := Copy(Prop,1,Pos(TMSFNCHTMLENGINE_ATTR_DELIM,Prop) - 1);\r\n    ControlHeight := Prop;\r\n  end;\r\n\r\n  if VarIPos('ID=',Tag,vp) > 0 then\r\n  begin\r\n    Prop := Copy(Tag,vp + 1,Length(Tag));\r\n    Prop := Copy(Prop,Pos(TMSFNCHTMLENGINE_ATTR_DELIM,Prop) + 1,Length(Prop));\r\n    Prop := Copy(Prop,1,Pos(TMSFNCHTMLENGINE_ATTR_DELIM,Prop) - 1);\r\n    ControlID := Prop;\r\n  end;\r\n\r\n  if VarIPos('VALUE=',Tag,vp) > 0 then\r\n  begin\r\n    Prop := Copy(Tag,vp + 1,Length(Tag));\r\n    Prop := Copy(Prop,Pos(TMSFNCHTMLENGINE_ATTR_DELIM,Prop) + 1,Length(Prop));\r\n    Prop := Copy(Prop,1,Pos(TMSFNCHTMLENGINE_ATTR_DELIM,Prop) - 1);\r\n    ControlValue := TTMSFNCUtils.UnFixMarkup(Prop);\r\n  end;\r\n\r\n  if VarIPos('PROP=',Tag,vp) > 0 then\r\n  begin\r\n    Prop := Copy(Tag,vp + 1,Length(Tag));\r\n    Prop := Copy(Prop,Pos(TMSFNCHTMLENGINE_ATTR_DELIM,Prop) + 1,Length(Prop));\r\n    Prop := Copy(Prop,1,Pos(TMSFNCHTMLENGINE_ATTR_DELIM,Prop) - 1);\r\n    ControlProp := TTMSFNCUtils.UnFixMarkup(Prop);\r\n  end;\r\n\r\n  if VarIPos('MAXLEN=',Tag,vp) > 0 then\r\n  begin\r\n    Prop := Copy(Tag,vp + 1,Length(Tag));\r\n    Prop := Copy(Prop,Pos(TMSFNCHTMLENGINE_ATTR_DELIM,Prop) + 1,Length(Prop));\r\n    Prop := Copy(Prop,1,Pos(TMSFNCHTMLENGINE_ATTR_DELIM,Prop) - 1);\r\n    ControlLen := Prop;\r\n  end;\r\nend;\r\n\r\nfunction HasHTMLControl(HTML: string): boolean;\r\nvar\r\n  lp: Integer;\r\nbegin\r\n  lp := 0;\r\n  Result := VarIPos('<CONTROL', HTML,lp) > 0;\r\nend;\r\n\r\nfunction GetNextControlID(HTML, ControlID:string): string;\r\nvar\r\n  lp: Integer;\r\n  Tag,CType,CID,CV,CW,CH,CP,CL: string;\r\n  flg: boolean;\r\nbegin\r\n  Result := '';\r\n  flg := ControlID = '';\r\n\r\n  lp := 0;\r\n  while VarIPos('<CONTROL ',html,lp) > 0 do\r\n  begin\r\n    Delete(html,1,lp);\r\n    Tag := Copy(html,1,Pos('>',html));\r\n    CType := '';\r\n    CID := '';\r\n    CV := '';\r\n    CW := '';\r\n    CH := '';\r\n    CP := '';\r\n    CL := '';\r\n    ParseControl(Tag,CType,CID,CV,CW,CH,CP,CL);\r\n\r\n    if flg and (CType <> 'BUTTON') and (CType <> 'CHECK') and (CType <> 'RADIO') then\r\n    begin\r\n      Result := CID;\r\n      Exit;\r\n    end;\r\n\r\n    if (ControlID = CID) then\r\n      flg := true;\r\n  end;\r\nend;\r\n\r\nfunction GetControlValue(HTML,ControlID:string;var ControlValue:String): Boolean;\r\nvar\r\n  lp: Integer;\r\n  Tag,CType,CID,CV,CW,CH,CP,CL: string;\r\nbegin\r\n  Result := False;\r\n  lp := 0;\r\n  while VarIPos('<CONTROL ',html,lp) > 0 do\r\n  begin\r\n    Delete(html,1,lp);\r\n    Tag := Copy(html,1,Pos('>',html));\r\n    CType := '';\r\n    CID := '';\r\n    CV := '';\r\n    CW := '';\r\n    CH := '';\r\n    CP := '';\r\n    CL := '';\r\n    ParseControl(Tag,CType,CID,CV,CW,CH,CP,CL);\r\n    if (ControlID = CID) then\r\n    begin\r\n      ControlValue := CV;\r\n      Result := True;\r\n      Exit;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction GetControlProp(HTML,ControlID:string): string;\r\nvar\r\n  lp: Integer;\r\n  Tag,CType,CID,CV,CW,CH,CP,CL: string;\r\nbegin\r\n  Result := '';\r\n  lp := 0;\r\n  while VarIPos('<CONTROL ',html,lp) > 0 do\r\n  begin\r\n    Delete(html,1,lp);\r\n    Tag := Copy(html,1,Pos('>',html));\r\n    CType := '';\r\n    CID := '';\r\n    CV := '';\r\n    CW := '';\r\n    CH := '';\r\n    CP := '';\r\n    CL := '';\r\n    ParseControl(Tag,CType,CID,CV,CW,CH,CP,CL);\r\n    if (ControlID = CID) then\r\n    begin\r\n      Result := CP;\r\n      Exit;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction GetControlMaxLen(HTML,ControlID:string): integer;\r\nvar\r\n  lp, {%H-}e: Integer;\r\n  Tag,CType,CID,CV,CW,CH,CP,CL: string;\r\nbegin\r\n  Result := 0;\r\n  lp := 0;\r\n  e := 0;\r\n  while VarIPos('<CONTROL ',html,lp) > 0 do\r\n  begin\r\n    Delete(html,1,lp);\r\n    Tag := Copy(html,1,Pos('>',html));\r\n    CType := '';\r\n    CID := '';\r\n    CV := '';\r\n    CW := '';\r\n    CH := '';\r\n    CP := '';\r\n    CL := '';\r\n    ParseControl(Tag,CType,CID,CV,CW,CH,CP,CL);\r\n\r\n    if (ControlID = CID) then\r\n    begin\r\n      val(CL,Result,e);\r\n      Exit;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction SetControlValue(var HTML:string;ControlID,ControlValue:string): Boolean;\r\nvar\r\n  lp: Integer;\r\n  Tag,Temp,CType,CID,CV,CW,CH,CP,CL: string;\r\nbegin\r\n  Result := False;\r\n  Temp := '';\r\n  ControlValue := TTMSFNCUtils.FixMarkup(ControlValue);\r\n  lp := 0;\r\n  while VarIPos('<CONTROL ',html,lp) > 0 do\r\n  begin\r\n    Temp := Temp + Copy(html,1,lp);\r\n    Delete(html,1,lp);\r\n    Tag := Copy(html,1,Pos('>',html));\r\n    CType := '';\r\n    CID := '';\r\n    CV := '';\r\n    CW := '';\r\n    CH := '';\r\n    CP := '';\r\n    CL := '';\r\n    ParseControl(Tag,CType,CID,CV,CW,CH,CP,CL);\r\n    if (ControlID = CID) then\r\n    begin\r\n      Temp := Temp + 'CONTROL ID='+TMSFNCHTMLENGINE_ATTR_DELIM+ControlID+TMSFNCHTMLENGINE_ATTR_DELIM+' VALUE='+TMSFNCHTMLENGINE_ATTR_DELIM+ControlValue+TMSFNCHTMLENGINE_ATTR_DELIM+' WIDTH='+TMSFNCHTMLENGINE_ATTR_DELIM+CW+TMSFNCHTMLENGINE_ATTR_DELIM+' TYPE=' + TMSFNCHTMLENGINE_ATTR_DELIM +CType+TMSFNCHTMLENGINE_ATTR_DELIM;\r\n      if (CP <> '') then\r\n        Temp := Temp + ' PROP='+TMSFNCHTMLENGINE_ATTR_DELIM+TTMSFNCUtils.FixMarkup(CP)+TMSFNCHTMLENGINE_ATTR_DELIM;\r\n      if (CL <> '') then\r\n        Temp := Temp + ' MAXLEN='+TMSFNCHTMLENGINE_ATTR_DELIM+CL+TMSFNCHTMLENGINE_ATTR_DELIM;\r\n\r\n      Temp := Temp + '>';\r\n      html := Temp + Copy(html,pos('>',html)+1,Length(html));\r\n      Result := True;\r\n      Exit;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction ClearRadioControls(HTML: string): string;\r\nvar\r\n  lp: Integer;\r\n  Tag,CType,CID,CV,CW,CH,CP,CL: string;\r\n  sl: TStringList;\r\n  s: string;\r\nbegin\r\n  Result := '';\r\n\r\n  s := HTML;\r\n\r\n  sl := TStringList.Create;\r\n  lp := 0;\r\n  while VarIPos('<CONTROL ',html,lp) > 0 do\r\n  begin\r\n    Delete(html,1,lp);\r\n    Tag := Copy(html,1,Pos('>',html));\r\n    CType := '';\r\n    CID := '';\r\n    CV := '';\r\n    CW := '';\r\n    CH := '';\r\n    CP := '';\r\n    CL := '';\r\n    ParseControl(Tag,CType,CID,CV,CW,CH,CP,CL);\r\n\r\n    if CType = 'RADIO' then\r\n      sl.Add(CID);\r\n  end;\r\n\r\n  for lp := 0 to sl.Count - 1 do\r\n  begin\r\n    SetControlValue(s, sl.Strings[lp], 'FALSE');\r\n  end;\r\n\r\n  sl.Free;\r\n  Result := s;\r\nend;\r\n\r\nfunction IsCJKChar(const C: Char): Boolean;\r\nbegin\r\n  Result := False;\r\n  if C < #10000 then Exit;\r\n\r\n  case Integer(C) of\r\n    $4E00..$9FFF,\r\n    $3400..$4DBF,\r\n    $20000..$2A6DF,\r\n    $2A700..$2B73F,\r\n    $2B740..$2B81F,\r\n    $2B820..$2CEAF,\r\n    $F900..$FAFF,\r\n    $2F800..$2FA1F: Result := True;\r\n  end;\r\nend;\r\n\r\nfunction PosBreak(const A: string): Integer;\r\nvar\r\n  I: Integer;\r\n  C: Char;\r\nbegin\r\n  Result := 0;\r\n\r\n  {$IFDEF ZEROSTRINGINDEX}\r\n  for i := 0 to Length(A) - 1 do\r\n  {$ELSE}\r\n  for I := 1 to Length(A) do\r\n  {$ENDIF}\r\n  begin\r\n    C := A[I];\r\n    if TTMSFNCUtils.CharInSet(C, TTMSFNCUtils.CreateCharSet(' ')) or IsCJKChar(C) then\r\n    begin\r\n      Result := I;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{$HINTS OFF}\r\nfunction HTMLDrawEx(AGraphics: TTMSFNCGraphics; s:string; fr:TRectF;\r\n                    XPos,YPos,FocusLink,HoverLink,ShadowOffset: Integer;\r\n                    CheckHotSpot,CheckHeight,{%H-}Print,Selected,Blink,HoverStyle,WordWrap, Down: Boolean;\r\n                    DownID: string;\r\n                    {%H-}ResFactor:Double;\r\n                    URLColor,HoverColor,HoverFontColor,ShadowColor: TTMSFNCGraphicsColor;\r\n                    var AnchorVal,StripVal,FocusAnchor: string;\r\n                    var XSize,YSize: single; var HyperLinks,MouseLink: Integer;\r\n                    var HoverRect, ControlRect:TRectF;var CID,CV,CT: string; var LineCount: Integer; LineSpacing: Integer;\r\n                    BitmapContainer: TTMSFNCBitmapContainer; {%H-}Opacity: Single; HyperLinkUnderline: Boolean = True{$IFDEF CMNLIB}; ImageList: TCustomImageList = nil{$ENDIF};\r\n                    HighlightColor: TTMSFNCGraphicsColor = gcBlue;\r\n                    HighlightTextColor: TTMSFNCGraphicsColor = gcWhite;\r\n                    HighlightTextStyle: TFontStyles = []\r\n                    ): Boolean;\r\n\r\ntype\r\n  TFloatStyle = (fsNone, fsLeft, fsRight);\r\n\r\nvar\r\n  su: string;\r\n  r,dr: TRectF;\r\n  hr,rr: TRectF;\r\n  htmlwidth,htmlheight,txtheight, ch: Single;\r\n  rh: TRectF;\r\n  Align: TAlignment;\r\n  PIndent: Integer;\r\n  OldFont: TTMSFNCGraphicsFont;\r\n  OldFontColor: TTMSFNCGraphicsColor;\r\n  CalcFont: TTMSFNCGraphicsFont;\r\n  CalcFontColor: TTMSFNCGraphicsColor;\r\n  DrawFont: TTMSFNCGraphicsFont;\r\n  DrawFontCOlor: TTMSFNCGraphicsColor;\r\n  FontColor: TTMSFNCGraphicsColor;\r\n  OldPenColor: TTMSFNCGraphicsColor;\r\n  OldPenKind: TTMSFNCGraphicsStrokeKind;\r\n  OldCalcFont: TTMSFNCGraphicsFont;\r\n  OldCalcFontColor: TTMSFNCGraphicsColor;\r\n  BkColor,BGColor: TTMSFNCGraphicsColor;\r\n  OldDrawFont: TTMSFNCGraphicsFont;\r\n  OldDrawFontColor: TTMSFNCGraphicsColor;\r\n  Hotspot, ImageHotspot: Boolean;\r\n  Anchor,OldAnchor,MouseInAnchor,Error: Boolean;\r\n  blnkKind: TTMSFNCGraphicsFillKind;\r\n  paracolor,pencolor,blnkcolor,hifcol,hibcol: TTMSFNCGraphicsColor;\r\n  LastAnchor,OldAnchorVal,LType: string;\r\n  IMGSize: TPoint;\r\n  isSup,isSub,isPara,isShad: Boolean;\r\n  hlcount,licount: Integer;\r\n  imgali: single;\r\n  subh, suph: Single;\r\n  ListIndex: Integer;\r\n  Invisible: Boolean;\r\n  FoundTag: Boolean;\r\n  nnFit: Integer;\r\n  inspoint: Integer;\r\n  hifStyles: TFontStyles;\r\n  AltImg,ImgIdx,OldImgIdx: Integer;\r\n  ColL,ColB: TTMSFNCGraphicsColor;\r\n  ofsx,newofsx: integer;\r\n  FHot: Boolean;\r\n  floatrect: TRect;\r\n  floatpt: TPoint;\r\n  txtfloat,txtfloatbefore: TFloatStyle;\r\n  imgfloat: TFloatStyle;\r\n\r\n  function HTMLDrawLine(AGraphics: TTMSFNCGraphics; var s:string;r: TRectF;Calc:Boolean;\r\n                        var w,h,subh,suph,imgali:Single;var Align:TAlignment; var PIndent: Integer;\r\n                        XPos,YPos:Integer;var Hotspot,ImageHotSpot:Boolean;OffsetX: integer; var NewOffsetX: integer; var floatrect: TRect; var txtfloat: TFloatStyle):string;\r\n  var\r\n    su,Res,TagProp,Prop,Tagp,LineText,dsu:string;\r\n    cr, ir: TRectF;\r\n    fs: TFontStyles;\r\n    {$IFDEF CMNLIB}\r\n    crc: TRect;\r\n    {$ENDIF}\r\n    linebreak,imgbreak,linkbreak: Boolean;\r\n    indent,bmpx,bmpy,imgw,imgh: Integer;\r\n    err: integer;\r\n    sw, th, errs: Single;\r\n    rh: TRectF;\r\n    TagPos,SpacePos,o,l: Integer;\r\n    bmp: TTMSFNCBitmap;\r\n    bmpcreated: boolean;\r\n    NewColor: TTMSFNCGraphicsColor;\r\n    TagWidth,TagHeight,WordLen: Integer;\r\n    WordWidth: Single;\r\n    TagChar: Char;\r\n    LengthFits: Boolean;\r\n    ptf1,ptf2: TPointF;\r\n    imgalign,imgoffs, imgth: integer;\r\n    ControlType,ControlWidth,ControlHeight,ControlID,ControlValue,ControlProp,ControlLen: string;\r\n  begin\r\n    Result := '';\r\n    LineText := '';\r\n    WordWidth := 0;\r\n    r.Bottom := r.Bottom - Subh;\r\n\r\n    w := 0;\r\n    sw := 0;\r\n\r\n    LineBreak := False;\r\n    ImgBreak := False;\r\n    LinkBreak := False;\r\n    HotSpot := False;\r\n    ImageHotSpot := False;\r\n\r\n//    r.Left := r.Left + offsetX;\r\n\r\n    cr := r;\r\n    res := '';\r\n\r\n    if not Calc then\r\n      cr.Left := cr.Left + OffsetX;\r\n\r\n    if isPara and not Calc then\r\n    begin\r\n      Pencolor := AGraphics.Stroke.Color;\r\n      AGraphics.Stroke.Color := AGraphics.Fill.Color;\r\n//      AGraphics.Fill.Kind := gfkNone;\r\n      AGraphics.Stroke.Kind := gskSolid;\r\n\r\n      AGraphics.DrawRectangle(Rectf(fr.Left,r.Top,fr.Right,r.Top + h));\r\n    end;\r\n\r\n    while (Length(s) > 0) and not LineBreak and not ImgBreak do\r\n    begin\r\n      // get next word or till next HTML tag\r\n      TagPos := Pos('<',s);\r\n\r\n      if WordWrap then\r\n        SpacePos := PosBreak(s)\r\n//        SpacePos := Pos(' ', s)\r\n      else\r\n        SpacePos := 0;\r\n\r\n      if (Tagpos > 0) and ((SpacePos > TagPos) or (SpacePos = 0)) then\r\n        su := Copy(s,1,TagPos - 1)\r\n      else\r\n      begin\r\n        if SpacePos > 0 then\r\n          su := Copy(s,1,SpacePos)\r\n        else\r\n          su := s;\r\n      end;\r\n\r\n      WordLen := Length(su);\r\n\r\n      while Pos('&nbsp;',su) > 0 do\r\n      begin\r\n        TTMSFNCUtils.TagReplacestring('&nbsp;',' ',su);\r\n      end;\r\n\r\n      while Pos('&lt;',su) > 0 do\r\n      begin\r\n        TTMSFNCUtils.TagReplacestring('&lt;','<',su);\r\n      end;\r\n\r\n      while Pos('&gt;',su) > 0 do\r\n      begin\r\n        TTMSFNCUtils.TagReplacestring('&gt;','>',su);\r\n      end;\r\n\r\n      //WordLenEx := Length(su);\r\n\r\n      if WordLen > 0 then\r\n      begin\r\n        rh := AGraphics.CalculateText(su, RectF(0, 0, 10000, 10000), False, False);\r\n        th := rh.Bottom - rh.Top;\r\n\r\n        if isSub and (subh < (th / 4)) then subh := th / 4;\r\n        if isSup and (suph < (th / 4)) then suph := th / 4;\r\n\r\n        if th > h then\r\n          h := th;\r\n\r\n        StripVal := StripVal + su;\r\n\r\n        if Invisible then\r\n          Delete(s,1,WordLen);\r\n\r\n        if not Invisible then\r\n        begin\r\n          // draw mode\r\n          if not Calc then\r\n          begin\r\n            if isSup then\r\n              cr.Bottom := cr.Bottom - suph;\r\n\r\n            if isSub then\r\n              cr.Bottom := cr.Bottom + subh;\r\n\r\n            cr.Bottom := cr.Bottom - imgali;\r\n\r\n            rh := AGraphics.CalculateText(su, RectF(0, 0, 10000, 10000), False, False);\r\n            errs := rh.Right - rh.Left;\r\n\r\n            if BkColor <> gcNull then\r\n            begin\r\n              AGraphics.Fill.Color := BkColor;\r\n              AGraphics.Stroke.Color := BkColor;\r\n              AGraphics.Fill.Kind := gfkSolid;\r\n              AGraphics.Stroke.Kind := gskSolid;\r\n              rh := AGraphics.CalculateText('gh');\r\n              AGraphics.DrawRectangle(RectF(cr.Left, cr.Top, cr.Left + errs, cr.Top + (rh.Bottom - rh.Top)));\r\n            end;\r\n\r\n            BKColor := gcNull;\r\n\r\n            if isShad then\r\n            begin\r\n              OffsetRectEx(cr,ShadowOffset,ShadowOffset);\r\n              AGraphics.Font.Color := ShadowColor;\r\n              AGraphics.DrawText(cr, su, False, gtaLeading, gtaCenter, gttNone, 0, -1, -1{$IFNDEF LIMITEDGRAPHICSMODE}, False{$ENDIF});\r\n              OffsetRectEx(cr,-ShadowOffset,-ShadowOffset);\r\n              AGraphics.Font.Color := OldFontColor;\r\n            end;\r\n\r\n            //errs := cr.Right;\r\n\r\n            {$IFDEF ZEROSTRINGINDEX}\r\n            if (su <> '') and (su[length(su)-1] = ' ') and Anchor then\r\n            {$ELSE}\r\n            if (su <> '') and (su[length(su)] = ' ') and Anchor then\r\n            {$ENDIF}\r\n              dsu := su + #0\r\n            else\r\n              dsu := su;\r\n\r\n            AGraphics.Font.Color := FontColor;\r\n            AGraphics.DrawText(cr, dsu, False, gtaLeading, gtaCenter, gttNone, 0, -1, -1{$IFNDEF LIMITEDGRAPHICSMODE}, False{$ENDIF});\r\n\r\n            cr.Right := cr.Left + errs;\r\n\r\n            if Anchor and (Hyperlinks - 1 = FocusLink) then\r\n              FocusAnchor := LastAnchor;\r\n\r\n            if Error then\r\n            begin\r\n              AGraphics.Stroke.Color := gcRed;\r\n              AGraphics.Stroke.Kind := gskSolid;\r\n              AGraphics.Stroke.Width := 1;\r\n\r\n              l := Round((cr.Left / 2) * 2);\r\n              if (l mod 4)=0 then o := 2 else o := 0;\r\n\r\n              while l < cr.Right do\r\n              begin\r\n                ptf1 := PointF(l,r.Bottom + o - 1);\r\n                if o = 2 then o := 0 else o := 2;\r\n                ptf2 := PointF(l + 2, r.Bottom + o - 1);\r\n                AGraphics.DrawLine(ptf1, ptf2);\r\n                Inc(l,2);\r\n              end;\r\n            end;\r\n\r\n            cr.Left := cr.Right;\r\n            cr.Right := r.Right;\r\n            cr.Bottom := r.Bottom;\r\n            cr.Top := r.Top;\r\n          end\r\n        else\r\n          begin\r\n            cr := r; //reinitialized each time !\r\n\r\n            rh := AGraphics.CalculateText(su, RectF(0, 0, 10000, 10000), False, False);\r\n            cr.Right := cr.Left + (rh.Right - rh.Left);\r\n\r\n            // preparations for editing purposes\r\n            if (ypos > cr.Top) and (ypos < cr.bottom) and (xpos > w) then {scan charpos here}\r\n            begin\r\n              //this will get the character pos of the insertion point\r\n              nnfit := 0;\r\n              if nnfit = WordLen then\r\n                InsPoint := InsPoint + WordLen\r\n              else\r\n                InsPoint := InsPoint + nnfit;\r\n            end;\r\n\r\n            //end of preparations for editing purposes\r\n\r\n            // Calculated text width\r\n            WordWidth := cr.Right - cr.Left;\r\n            w := w + WordWidth;\r\n\r\n            //errs := XPos - cr.Left;\r\n            //errs := r.Right - XPos - cr.Left;\r\n\r\n            if (XPos - cr.Left  >= w - WordWidth) and (XPos - cr.Left <= w) and Anchor then\r\n            begin\r\n              HotSpot := True;\r\n              if (YPos > cr.Top){ and (YPos < cr.Bottom)} then\r\n              begin\r\n                Anchorval := LastAnchor;\r\n                MouseInAnchor := True;\r\n              end;\r\n            end;\r\n          end;\r\n\r\n          LengthFits := (w + PIndent < r.Right - r.Left - OfsX + 1) or (r.Right - r.Left - OfsX <= WordWidth);\r\n\r\n//          if not LengthFits and\r\n//            ((Length(LineText) > 0) and (LineText[Length(LineText)] <> ' ')) then\r\n//            LengthFits := True;\r\n\r\n          LineText := LineText + su;\r\n\r\n//          if not LengthFits and not Wordwrap then\r\n//          begin\r\n//            LineBreak := true;\r\n//          end;\r\n\r\n          if LengthFits or not WordWrap then\r\n          begin\r\n            Res := Res + Copy(s,1,WordLen);\r\n\r\n            //if not LengthFits and Calc and (LineText <> su) then\r\n            //  s := '';\r\n\r\n            Delete(s,1,WordLen);\r\n\r\n            if Length(su) >= WordLen then\r\n            begin\r\n\r\n              if Copy(su, WordLen, 1) = ' ' then\r\n              begin\r\n                rh := AGraphics.CalculateText(' ');\r\n                sw := (rh.Right - rh.Left);\r\n              end\r\n              else\r\n                sw := 0;\r\n            end\r\n            else\r\n              sw := 0;\r\n          end\r\n          else\r\n          begin\r\n            LineBreak := True;\r\n            w := w - WordWidth;\r\n          end;\r\n        end;\r\n      end;\r\n\r\n      TagPos := Pos('<',s);\r\n\r\n      if (TagPos = 1) and (Length(s) <= 2) then\r\n        s := '';\r\n\r\n      if not LineBreak and (TagPos = 1) and (Length(s) > 2) then\r\n      begin\r\n        {$IFDEF ZEROSTRINGINDEX}\r\n        if (s[1] = '/') and (Length(s) > 3) then\r\n        {$ELSE}\r\n        if (s[2] = '/') and (Length(s) > 3) then\r\n        {$ENDIF}\r\n        begin\r\n          {$IFDEF ZEROSTRINGINDEX}\r\n          case UpCase(s[2]) of\r\n          {$ELSE}\r\n          case UpCase(s[3]) of\r\n          {$ENDIF}\r\n          'A':begin\r\n                if (not HoverStyle or (Hoverlink = Hyperlinks)) and not Calc then\r\n                begin\r\n                  AGraphics.Font.Style := AGraphics.Font.Style - [TFontStyle.fsUnderline];\r\n                  if Hovercolor <> gcNull then\r\n                    BkColor := HoverColor;\r\n                  if HoverFontColor <> gcNull then\r\n                    FontColor := HoverFontColor;\r\n                end;\r\n\r\n                if not Selected then\r\n                  FontColor := OldFontColor;\r\n\r\n                Anchor := False;\r\n\r\n                if MouseInAnchor then\r\n                begin\r\n                  hr.Bottom := r.Bottom;\r\n                  hr.Right := r.Left + w;\r\n                  if r.Top <> hr.Top then\r\n                  begin\r\n                    hr.Left := r.Left;\r\n                    hr.Top := r.Top;\r\n                  end;\r\n\r\n                  HoverRect := hr;\r\n                  MouseLink := HyperLinks;\r\n                  MouseInAnchor := False;\r\n                end;\r\n\r\n                if Focuslink = Hyperlinks - 1 then\r\n                begin\r\n                  rr.Right := cr.Left;\r\n                  rr.Bottom := cr.Bottom - ImgAli;\r\n                  rh := AGraphics.CalculateText('gh');\r\n                  rr.Top := rr.Bottom - (rh.Bottom - rh.Top);\r\n                  InflateRectEx(rr,1,0);\r\n                  //if not Calc then AGraphics.DrawFocusRect(rr);\r\n                end;\r\n              end;\r\n          'E':begin\r\n                if not Calc then\r\n                  Error := False;\r\n              end;\r\n          'B':begin\r\n                {$IFDEF ZEROSTRINGINDEX}\r\n                if s[3] <> '>' then\r\n                {$ELSE}\r\n                if s[4] <> '>' then\r\n                {$ENDIF}\r\n                  FontColor := OldFontColor\r\n                else\r\n                  AGraphics.Font.Style := AGraphics.Font.Style - [TFontStyle.fsBold];\r\n              end;\r\n          'S':begin\r\n                {$IFDEF ZEROSTRINGINDEX}\r\n                TagChar := UpCase(s[3]);\r\n                {$ELSE}\r\n                TagChar := UpCase(s[4]);\r\n                {$ENDIF}\r\n\r\n                if (TagChar = 'U') then\r\n                begin\r\n                  isSup := False;\r\n                  isSub := False;\r\n                end\r\n                else\r\n                 if (TagChar = 'H') then\r\n                  isShad := False\r\n                 else\r\n                  AGraphics.Font.Style := AGraphics.Font.Style - [TFontStyle.fsStrikeOut];\r\n              end;\r\n          'F':begin\r\n                AGraphics.Font.Name := OldFont.Name;\r\n                AGraphics.Font.Size := OldFont.Size;\r\n                if not Calc and not Selected then\r\n                begin\r\n                  FontColor := OldFontColor;\r\n                  AGraphics.Fill.Color := BGColor;\r\n                end;\r\n              end;\r\n          'H':begin\r\n                if not Calc then\r\n                begin\r\n                  FontColor := hifCol;\r\n                  BkColor := hibCol;\r\n                  AGraphics.Font.Style := hifStyles;\r\n                  AGraphics.Fill.Color := hibCol;\r\n                end;\r\n              end;\r\n          'I':begin\r\n                AGraphics.Font.Style := AGraphics.Font.Style - [TFontStyle.fsItalic];\r\n              end;\r\n          'L':begin\r\n                LineBreak := True;\r\n              end;\r\n          'O':begin\r\n                NewOffsetX := 0;\r\n              end;\r\n          'P':begin\r\n                LineBreak := True;\r\n                if not Calc then\r\n                begin\r\n                  AGraphics.Fill.Color := ParaColor;\r\n                  isPara := false;\r\n                end;\r\n              end;\r\n          'U':begin\r\n                {$IFDEF ZEROSTRINGINDEX}\r\n                if (s[3] <> '>') and (ListIndex > 0) then\r\n                {$ELSE}\r\n                if (s[4] <> '>') and (ListIndex > 0) then\r\n                {$ENDIF}\r\n                  Dec(Listindex)\r\n                else\r\n                  AGraphics.Font.Style := AGraphics.Font.Style - [TFontStyle.fsUnderline];\r\n              end;\r\n          'R':begin\r\n                //EndRotated(Canvas);\r\n              end;\r\n          'Z':Invisible := False;\r\n          end;\r\n        end\r\n        else\r\n        begin\r\n          {$IFDEF ZEROSTRINGINDEX}\r\n          case Upcase(s[1]) of\r\n          {$ELSE}\r\n          case Upcase(s[2]) of\r\n          {$ENDIF}\r\n          'A':begin\r\n                // only do this when at hover position in xpos,ypos\r\n                if (FocusLink = HyperLinks) and not Calc then\r\n                begin\r\n                  rr.Left := cr.Left;\r\n                  rr.Top := cr.Top;\r\n                end;\r\n\r\n                Inc(HyperLinks);\r\n                if (not HoverStyle or (Hoverlink = HyperLinks)) and not Calc then\r\n                begin\r\n                  if HyperLinkUnderline then\r\n                    AGraphics.Font.Style := AGraphics.Font.Style + [TFontStyle.fsUnderline];\r\n\r\n                  if (Hovercolor <> gcNull) and not Calc then\r\n                    BkColor := HoverColor;\r\n\r\n                  if HoverFontColor <> gcNull then\r\n                    FontColor := HoverFontColor;\r\n                end;\r\n\r\n                if not Selected and ((HoverFontColor = gcNull) or (HoverLink <> HyperLinks) or not HoverStyle) then\r\n                begin\r\n                  OldFontColor := FontColor;\r\n                  FontColor := URLColor;\r\n                end;\r\n\r\n                TagProp := Copy(s,3,Pos('>',s) - 1);  // <A href=\"anchor\">\r\n                Prop := Copy(TagProp,Pos('\"',TagProp) + 1,Length(TagProp));\r\n                Prop := Copy(Prop,1,Pos('\"',Prop) - 1);\r\n                LastAnchor := Prop;\r\n                Anchor := True;\r\n\r\n                hr.Left := w;\r\n                hr.Top := r.Top;\r\n              end;\r\n          'B':begin\r\n                {$IFDEF ZEROSTRINGINDEX}\r\n                TagChar := Upcase(s[2]);\r\n                {$ELSE}\r\n                TagChar := Upcase(s[3]);\r\n                {$ENDIF}\r\n                case TagChar of\r\n                '>': AGraphics.Font.Style := AGraphics.Font.Style + [TFontStyle.fsBold]; // <B> tag\r\n                'R': // <BR> tag\r\n                   begin\r\n                    LineBreak := true;\r\n                    StripVal := StripVal + #13;\r\n                   end;\r\n                'L': if not Blink then\r\n                   FontColor := BlnkColor; // <BLINK> tag\r\n                'O':\r\n                  begin\r\n\r\n                    bmpy := 0;\r\n                    Res := Res + Copy(s,1,pos('>',s));\r\n                    if not Calc and not Selected then\r\n                    begin\r\n                      TagProp := Uppercase(Copy(s,6,pos('>',s)-1));\r\n\r\n                      if (Pos('BACKGROUND',TagProp) > 0) then\r\n                      begin\r\n                        Prop := Copy(TagProp,Pos('BACKGROUND',TagProp)+10,Length(TagProp));\r\n                        Prop := Copy(Prop,Pos('\"',Prop)+1,Length(prop));\r\n                        Prop := Copy(Prop,1,Pos('\"',Prop)-1);\r\n\r\n                        if Pos('IDX:', UpperCase(Prop)) > 0 then\r\n                          begin\r\n                            Delete(Prop, 1, 4);\r\n                            (*\r\n                            if Assigned(FImages) and (IStrToInt(Prop) < FImages.Count) then\r\n                              begin\r\n                                IMGSize.X := MulDiv(FImages.Width, GetDeviceCaps(AGraphics.Handle, LOGPIXELSX), 96);\r\n                                IMGSize.Y := MulDiv(FImages.Height, GetDeviceCaps(AGraphics.Handle, LOGPIXELSY), 96);\r\n\r\n                                if not Calc and not Print then\r\n                                  FImages.Draw(Canvas, CR.Left, CR.Top, IStrToInt(Prop), True);\r\n\r\n                                if not Calc and Print then\r\n                                  begin\r\n                                    CR.Right := CR.Left + Round(resfactor * FImages.Width);\r\n                                    CR.Bottom := CR.Top + Round(resfactor * FImages.Height);\r\n\r\n                                    ABitmap := TBitmap.Create;\r\n                                    FImages.GetBitmap(IStrToInt(Prop), ABitmap);\r\n                                    PrintBitmap(Canvas, CR, ABitmap);\r\n                                    ABitmap.Free;\r\n                                    CR := r;\r\n                                  end;\r\n                              end;\r\n                            *)\r\n                          end;\r\n\r\n                        bmp := nil;\r\n                        bmpcreated := false;\r\n\r\n                        if (Pos(':',Prop) = 0) and Assigned(BitmapContainer) then\r\n                        begin\r\n                          bmp := TTMSFNCBitmap(BitmapContainer.FindBitmap(Prop));\r\n                        end;\r\n\r\n                        {$IFNDEF WEBLIB}\r\n                        if (Pos('FILE://',Uppercase(Prop)) > 0)  then\r\n                        begin\r\n                          Delete(Prop,1,7);\r\n\r\n                          if FileExists(Prop) then\r\n                          begin\r\n                            bmp := TTMSFNCBitmap.Create;\r\n                            bmp.LoadFromFile(Prop);\r\n                            bmpcreated := true;\r\n                          end;\r\n                        end;\r\n                        {$ENDIF}\r\n                        {$IFDEF WEBLIB}\r\n                        if (Pos('URL://',Uppercase(Prop)) > 0)  then\r\n                        begin\r\n                          Delete(Prop,1,6);\r\n                          bmp := TTMSFNCBitmap(TTMSFNCBitmap.CreateFromURL(Prop));\r\n                          bmpcreated := true;\r\n                        end;\r\n                        {$ENDIF}\r\n\r\n                        if Assigned(bmp) then\r\n                        begin\r\n                          if not IsBitmapEmpty(bmp) and (bmp.Width > 0) and (bmp.Height > 0) then\r\n                          begin\r\n                            // do the tiling here\r\n                            //hrgn := CreateRectRgn(fr.left, fr.top, fr.right,fr.bottom);\r\n                            //SelectClipRgn(AGraphics.Handle, hrgn);\r\n                            while (bmpy < fr.bottom-fr.top) do\r\n                            begin\r\n                              bmpx := 0;\r\n                              while (bmpx < fr.right - fr.left) do\r\n                              begin\r\n                                AGraphics.DrawBitmap(RectF(Round(fr.left+bmpx),Round(fr.top+bmpy), Round(fr.Left + bmpx) + bmp.Width,Round(fr.top+bmpy) + bmp.Height), bmp);\r\n                                //AGraphics.Draw(fr.left+bmpx,fr.top+bmpy,bmp);\r\n                                bmpx := bmpx + bmp.width;\r\n                              end;\r\n                              bmpy := bmpy + bmp.height;\r\n                            end;\r\n                            //SelectClipRgn(AGraphics.handle, 0);\r\n                            //DeleteObject(hrgn);\r\n                          end;\r\n\r\n                          if bmpcreated then\r\n                            bmp.Free;\r\n                        end; //end of bmp <> nil\r\n                      end; //end of background\r\n\r\n                      if (Pos('BGTOPLEFT', TagProp) > 0) then\r\n                        begin\r\n                          Prop := Copy(TagProp, Pos('BGTOPLEFT', TagProp) + 10, Length(TagProp));\r\n                          Prop := Copy(Prop, Pos('\"', Prop) + 1, Length(Prop));\r\n                          Prop := Copy(Prop, 1, Pos('\"', Prop) - 1);\r\n\r\n                          bmp := nil;\r\n\r\n                          if (Pos(':', Prop) = 0) and Assigned(BitmapContainer) then\r\n                            begin\r\n                              bmp := TTMSFNCBitmap(BitmapContainer.FindBitmap(Prop));\r\n                            end;\r\n\r\n                          if Assigned(bmp) then\r\n                          begin\r\n                            if not IsBitmapEmpty(bmp) and (bmp.Width > 0) and (bmp.Height > 0) then\r\n                            begin\r\n                              AGraphics.DrawBitmap(RectF(Round(fr.Left), Round(fr.Top + bmpy),Round(fr.Left) + bmp.Width ,Round(fr.Top) + bmp.Height), bmp);\r\n                            end;\r\n                          end;\r\n                        end; //end of bgtopleft\r\n\r\n                      if (Pos('BGTOPRIGHT', TagProp) > 0) then\r\n                        begin\r\n                          Prop := Copy(TagProp, Pos('BGTOPRIGHT', TagProp) + 10, Length(TagProp));\r\n                          Prop := Copy(Prop, Pos('\"', Prop) + 1, Length(Prop));\r\n                          Prop := Copy(Prop, 1, Pos('\"', Prop) - 1);\r\n\r\n                          bmp := nil;\r\n\r\n                          if (Pos(':', Prop) = 0) and Assigned(BitmapContainer) then\r\n                            begin\r\n                              bmp := TTMSFNCBitmap(BitmapContainer.FindBitmap(Prop));\r\n                            end;\r\n\r\n\r\n                          if Assigned(bmp) then\r\n                          begin\r\n                            if not IsBitmapEmpty(bmp) and (bmp.Width > 0) and (bmp.Height > 0) then\r\n                            begin\r\n                              AGraphics.DrawBitmap(RectF(Round(fr.Right) - bmp.Width, Round(fr.Top + bmpy), Round(fr.Right), Round(fr.Top) + bmp.Height ), bmp);\r\n                            end;\r\n                          end;\r\n                        end; //end of bgtopright\r\n\r\n                      if TTMSFNCUtils.VarPos('BGCOLOR',TagProp,TagPos) > 0 then\r\n                      begin\r\n                        Prop := Copy(TagProp,TagPos + 5,Length(TagProp));\r\n                        Prop := Copy(Prop,Pos('\"',Prop) + 1,Length(Prop));\r\n                        Prop := Copy(Prop,1,Pos('\"',Prop) - 1);\r\n\r\n                        NewColor := gcNull;\r\n\r\n                        if Length(Prop) > 0 then\r\n                        begin\r\n                          {$IFDEF ZEROSTRINGINDEX}\r\n                          if Prop[0] = '#' then\r\n                          {$ELSE}\r\n                          if Prop[1] = '#' then\r\n                          {$ENDIF}\r\n                            NewColor := TTMSFNCGraphics.HTMLToColor(Prop)\r\n                          else\r\n                          begin\r\n                            {$IFDEF WEBLIB}\r\n                            NewColor := TTMSFNCGraphics.TextToColor(LowerCase(prop));\r\n                            {$ENDIF}\r\n                            {$IFNDEF WEBLIB}\r\n                            NewColor := TTMSFNCGraphics.TextToColor(AnsiLowerCase(prop));\r\n                            {$ENDIF}\r\n                          end;\r\n                        end;\r\n\r\n                        if TTMSFNCUtils.VarPos('BGCOLORTO',TagProp,TagPos) > 0 then\r\n                        begin\r\n                          Prop := Copy(TagProp,TagPos + 5,Length(TagProp));\r\n                          Prop := Copy(Prop,Pos('\"',Prop) + 1,Length(Prop));\r\n                          Prop := Copy(Prop,1,Pos('\"',Prop) - 1);\r\n\r\n                          Prop := 'H';\r\n                          if TTMSFNCUtils.VarPos('DIR',TagProp,TagPos) > 0 then\r\n                          begin\r\n                            Prop := Copy(TagProp,TagPos + 3,Length(TagProp));\r\n                            Prop := Copy(Prop,Pos('\"',Prop) + 1,Length(Prop));\r\n                            Prop := Copy(Prop,1,Pos('\"',Prop) - 1);\r\n                          end;\r\n\r\n                          AGraphics.Stroke.Color := Newcolor;\r\n                          //DrawHTMLGradient(Canvas,NewColor,NewColorTo,clNone,64,Rect(fr.left,fr.top,fr.right,fr.bottom),Prop = 'H');\r\n                          //AGraphics.Brush.Style := bsClear\r\n                        end\r\n                        else\r\n                        begin\r\n                          BGColor := AGraphics.Fill.Color;\r\n                          AGraphics.Fill.Color := NewColor;\r\n                          PenColor:=AGraphics.Stroke.Color;\r\n                          AGraphics.Stroke.Color := Newcolor;\r\n                          AGraphics.Fill.Kind := gfkSolid;\r\n                          AGraphics.Stroke.Kind := gskSolid;\r\n                          AGraphics.DrawRectangle(Rectf(fr.left - 2,fr.top,fr.right,fr.bottom));\r\n                          AGraphics.Stroke.Color := PenColor;\r\n                        end;\r\n                      end;\r\n                    end;\r\n                  end;\r\n                end;\r\n              end;\r\n          'E':begin\r\n                if not Calc then\r\n                  Error := True;\r\n              end;\r\n          'C':begin\r\n                TagProp := Copy(s,9,pos('>',s)-1);\r\n                ControlType := '';\r\n                ControlID := '';\r\n                ControlValue := '';\r\n                ControlWidth := '';\r\n                ControlHeight := '';\r\n                ControlProp := '';\r\n                ControlLen := '';\r\n                ParseControl(TagProp,ControlType,ControlID,ControlValue,ControlWidth,ControlHeight,ControlProp,ControlLen);\r\n\r\n                ch := 25;\r\n\r\n                if ControlHeight <> '' then\r\n                begin\r\n                  val(ControlHeight,ch,err);\r\n                  if err <> 0 then\r\n                    ch := 25;\r\n                end;\r\n\r\n                if (ControlWidth <> '') or (ControlType = 'CHECK') or (ControlType = 'RADIO') then\r\n                begin\r\n                  val(ControlWidth,Indent,err);\r\n\r\n                  if err = 0 then\r\n                  begin\r\n                    IMGSize.x := Indent;\r\n                    IMGSize.y := Round(AGraphics.CalculateTextHeight('gh')) + 10;\r\n                  end;\r\n\r\n                  if (ControlType = 'CHECK') or (ControlType = 'RADIO') then\r\n                    h := 16\r\n                  else\r\n                    h := 23;\r\n\r\n                  if (ch > 25) then\r\n                    h := ch - 2;\r\n\r\n                  if not Calc then\r\n                  begin\r\n                    if (ControlType = 'EDIT') or (ControlType = 'PASSWORD') or (ControlType = 'MASK') then\r\n                    begin\r\n                    end;\r\n\r\n                    if ControlType = 'COMBO' then\r\n                    begin\r\n                    end;\r\n\r\n                    if ControlType = 'CHECK' then\r\n                    begin\r\n                      IMGSize.x := Round(16 * ResFactor) + 2;\r\n                      IMGSize.y := IMGSize.x;\r\n                      Indent := IMGSize.x;\r\n                      ir := RectF(cr.Left + 1, cr.Top + ((cr.Bottom - cr.Top) - (ImgSize.Y - 2)) / 2, cr.Left + IMGSize.X - 1, cr.Top + ((cr.Bottom - cr.Top) - (ImgSize.Y - 2)) / 2 + (IMGSize.Y - 2));\r\n                      ir := RectF(Round(ir.Left), Round(ir.Top), Round(ir.Right), Round(ir.Bottom));\r\n                      AGraphics.DrawCheckBox(ir, UpperCase(ControlValue) = 'TRUE', (Down and (DownID = ControlID)), True);\r\n                    end;\r\n\r\n                    if ControlType = 'RADIO' then\r\n                    begin\r\n                      IMGSize.x := Round(16 * ResFactor) + 2;\r\n                      IMGSize.y := IMGSize.x;\r\n                      Indent := IMGSize.x;\r\n                      ir := RectF(cr.Left + 1, cr.Top + ((cr.Bottom - cr.Top) - (ImgSize.Y - 2)) / 2, cr.Left + IMGSize.X - 1, cr.Top + ((cr.Bottom - cr.Top) - (ImgSize.Y - 2)) / 2 + (IMGSize.Y - 2));\r\n                      ir := RectF(Round(ir.Left), Round(ir.Top), Round(ir.Right), Round(ir.Bottom));\r\n                      AGraphics.DrawRadioButton(ir, UpperCase(ControlValue) = 'TRUE', (Down and (DownID = ControlID)), True);\r\n                    end;\r\n\r\n                    if ControlType = 'BUTTON' then\r\n                    begin\r\n                      IMGSize.y := 22;\r\n                      ir := RectF(cr.Left + 2,cr.Top + ((cr.Bottom - cr.Top) - IMGSize.Y) / 2,cr.Left + Indent -2, cr.Top + ((cr.Bottom - cr.Top) - IMGSize.Y) / 2+ IMGSize.Y);\r\n                      FHot := PtInRectEx(ir, PointF(XPos, YPos));\r\n                      ir := RectF(Round(ir.Left), Round(ir.Top), Round(ir.Right), Round(ir.Bottom));\r\n                      AGraphics.DrawButton(ir, Down and (DownID = ControlID), FHot, True);\r\n                      InflateRectEx(ir,-2,-2);\r\n                      AGraphics.DrawText(ir, ControlValue, False, gtaCenter, gtaCenter);\r\n                    end;\r\n                  end;\r\n\r\n                  if (ControlType = 'BUTTON') then\r\n                    IMGSize.y := 22;\r\n\r\n                  if (ControlType = 'COMBO') then\r\n                     IMGSize.y := 25;\r\n\r\n                  if (ControlType = 'CHECK') or (ControlType = 'RADIO') then\r\n                  begin\r\n                    IMGSize.x := Round(16 * ResFactor) + 2;\r\n                    IMGSize.y := IMGSize.X;\r\n                  end;\r\n\r\n                  if ((XPos - r.Left > w) and (XPos - r.Left < w + IMGSize.x) and\r\n                     (YPos > cr.Top) and (YPos < cr.Top + IMGSize.Y)) or\r\n                     (CheckHotSpot and (CID = ControlID)) then\r\n                  begin\r\n                    ImageHotSpot := True;\r\n                    AnchorVal := 'ctrl';\r\n                    AltImg := ImgIdx;\r\n\r\n                    ir.Left := r.left + w;\r\n                    ir.Right := ir.Left + ImgSize.X;\r\n                    ir.Top := cR.Top;\r\n                    ir.Bottom := cr.top + ImgSize.Y;\r\n\r\n                    ControlRect := ir;\r\n                    CV := ControlValue;\r\n                    CID := ControlID;\r\n                    CT := ControlType;\r\n                  end;\r\n\r\n                  if (w + IMGSize.x > r.Right-r.Left) and\r\n                     (IMGSize.x < r.Right - r.Left) then\r\n                  begin\r\n                    ImgBreak := True;\r\n                  end\r\n                  else\r\n                  begin\r\n                    w := w + IMGSize.x;\r\n                    cr.left := cr.left + IMGSize.x;\r\n                    if IMGSize.y > h then\r\n                      h := IMGSize.y;\r\n                  end;\r\n                end;\r\n              end;\r\n          'H':begin\r\n                {$IFDEF ZEROSTRINGINDEX}\r\n                case Upcase(s[2]) of\r\n                {$ELSE}\r\n                case Upcase(s[3]) of\r\n                {$ENDIF}\r\n                'R':\r\n                begin\r\n                  LineBreak := True;\r\n                  if not Calc then\r\n                  begin\r\n                    TagProp := Copy(s,4,Pos('>',s) - 1);\r\n\r\n                    NewColor := gcBlack;\r\n\r\n                    if TTMSFNCUtils.VarPos('COLOR',Uppercase(TagProp),TagPos) > 0 then\r\n                    begin\r\n                      Prop := Copy(TagProp,TagPos+5,Length(TagProp));\r\n                      Prop := Copy(Prop,Pos('\"',prop)+1,Length(Prop));\r\n                      Prop := Copy(Prop,1,Pos('\"',prop)-1);\r\n\r\n                      if Length(Prop) > 0 then\r\n                      begin\r\n                        {$IFDEF ZEROSTRINGINDEX}\r\n                        if Prop[0] = '#' then\r\n                        {$ELSE}\r\n                        if Prop[1] = '#' then\r\n                        {$ENDIF}\r\n                          NewColor := TTMSFNCGraphics.HTMLToColor(Prop)\r\n                        else\r\n                        begin\r\n                          {$IFDEF WEBLIB}\r\n                          NewColor := TTMSFNCGraphics.TextToColor(LowerCase(prop));\r\n                          {$ENDIF}\r\n                          {$IFNDEF WEBLIB}\r\n                          NewColor := TTMSFNCGraphics.TextToColor(AnsiLowerCase(prop));\r\n                          {$ENDIF}\r\n                        end;\r\n                      end;\r\n                    end;\r\n\r\n                    AGraphics.Stroke.Kind := gskSolid;\r\n                    Pencolor := AGraphics.Stroke.color;\r\n                    AGraphics.Stroke.Color := Newcolor;\r\n                    ptf1 := PointF(r.Left, cr.Bottom  + 1);\r\n                    ptf2 := PointF(r.Right, cr.Bottom + 1);\r\n                    AGraphics.Stroke.Kind := gskSolid;\r\n                    AGraphics.DrawLine(ptf1,ptf2);\r\n                    AGraphics.Stroke.Color := Pencolor;\r\n                  end;\r\n                end;\r\n                'I':\r\n                begin\r\n                  if not Calc then\r\n                  begin\r\n                    hifCol := FontColor;\r\n                    hibCol := BkColor;\r\n                    hifStyles := AGraphics.Font.Style;\r\n                    BkColor := HighlightColor;\r\n                    FontColor := HighlightTextColor;\r\n                  end;\r\n                  AGraphics.Font.Style := HighlightTextStyle;\r\n                end;\r\n                end;\r\n              end;\r\n          'I':begin\r\n                {$IFDEF ZEROSTRINGINDEX}\r\n                TagChar := Upcase(s[2]);\r\n                {$ELSE}\r\n                TagChar := Upcase(s[3]);\r\n                {$ENDIF}\r\n\r\n                if TagChar = '>' then // <I> tag\r\n                  AGraphics.Font.Style := AGraphics.Font.Style + [TFontStyle.fsItalic]\r\n                else\r\n                if TagChar = 'N' then  // <IND> tag\r\n                begin\r\n                  TagProp := Copy(s,3,pos('>',s) - 1);\r\n\r\n                  Prop := Copy(TagProp,TTMSFNCUtils.ipos('x',TagProp) + 2,Length(TagProp));\r\n                  Prop := Copy(Prop,Pos('\"',Prop) + 1,Length(prop));\r\n                  Prop := Copy(Prop,1,Pos('\"',Prop) - 1);\r\n\r\n                  val(Prop,indent,err);\r\n                  if err = 0 then\r\n                  begin\r\n                    if indent > w then\r\n                     begin\r\n                       w := Indent;\r\n                       cr.left := fr.left + Indent;\r\n                     end;\r\n                  end;\r\n                end\r\n                else\r\n                  if TagChar = 'M' then\r\n                  begin\r\n                    imgalign := 0;\r\n                    imgoffs := 0;\r\n                    imgfloat := fsNone;\r\n                    imgth := Round(AGraphics.CalculateTextHeight('gh'));\r\n                    inc(ImgIdx);\r\n\r\n                    ir := cr;\r\n\r\n                    TagProp := Copy(s,3,Pos('>',s) - 1);\r\n                    Prop := Copy(TagProp,Pos('SRC',Uppercase(TagProp)) + 4,Length(TagProp));\r\n                    Prop := Copy(Prop,Pos('\"',Prop) + 1,Length(Prop));\r\n                    Prop := Copy(Prop,1,Pos('\"',Prop) - 1);\r\n\r\n                    TagProp := Uppercase(TagProp);\r\n\r\n                    if (Pos('ALT',TagProp) > 0) and (AltImg = ImgIdx) then\r\n                    begin\r\n                      Prop := Copy(TagProp,Pos('ALT',TagProp) + 4,Length(TagProp));\r\n                      Prop := Copy(Prop,Pos('\"',Prop) + 1,Length(Prop));\r\n                      Prop := Copy(Prop,1,Pos('\"',Prop) - 1);\r\n                    end;\r\n\r\n                    TagWidth := 0;\r\n                    TagHeight := 0;\r\n\r\n                    if Pos('WIDTH',TagProp) > 0 then\r\n                    begin\r\n                      Tagp := Copy(TagProp,Pos('WIDTH',TagProp) + 6,Length(TagProp));\r\n                      Tagp := Copy(Tagp,Pos('\"',tagp) + 1,Length(Tagp));\r\n                      Tagp := Copy(Tagp,1,Pos('\"',tagp) - 1);\r\n                      Val(Tagp,TagWidth,Err);\r\n                      if Pos('%', tagp) > 0 then\r\n                        TagWidth := Round(TagWidth / 100 * (cr.Right - cr.Left));\r\n                    end;\r\n\r\n                    if Pos('HEIGHT',TagProp) > 0 then\r\n                    begin\r\n                      Tagp := Copy(TagProp,TTMSFNCUtils.ipos('HEIGHT',TagProp) + 7,Length(TagProp));\r\n                      Tagp := Copy(Tagp,pos('\"',Tagp) + 1,Length(Tagp));\r\n                      Tagp := Copy(Tagp,1,pos('\"',Tagp) - 1);\r\n                      Val(Tagp,TagHeight,Err);\r\n                      if Pos('%', tagp) > 0 then\r\n                        TagHeight := Round(TagHeight / 100 * (cr.Bottom - cr.Top));\r\n                    end;\r\n\r\n                    if Pos('ALIGN',TagProp) > 0 then\r\n                    begin\r\n                      Tagp := Copy(TagProp,TTMSFNCUtils.ipos('ALIGN',TagProp) + 6,Length(TagProp));\r\n                      Tagp := Copy(Tagp,pos('\"',Tagp) + 1,Length(Tagp));\r\n                      Tagp := Copy(Tagp,1,pos('\"',Tagp) - 1);\r\n\r\n                      if TagP = 'MIDDLE' then\r\n                        imgalign := 1;\r\n\r\n                      if TagP = 'TOP' then\r\n                        imgalign := 2;\r\n                    end;\r\n\r\n                    if Pos('FLOAT',TagProp) > 0 then\r\n                    begin\r\n                      Tagp := Copy(TagProp,TTMSFNCUtils.ipos('FLOAT',TagProp) + 6,Length(TagProp));\r\n                      Tagp := Copy(Tagp,pos('\"',Tagp) + 1,Length(Tagp));\r\n                      Tagp := Copy(Tagp,1,pos('\"',Tagp) - 1);\r\n\r\n                      if TagP = 'LEFT' then\r\n                      begin\r\n                        imgfloat := fsLeft;\r\n                        ir.left := fr.Left;\r\n                      end;\r\n\r\n                      if TagP = 'RIGHT' then\r\n                        imgfloat := fsRight;\r\n                    end;\r\n\r\n                    IMGSize.x := 0;\r\n                    IMGSize.y := 0;\r\n\r\n                    if Pos('IDX:',Uppercase(Prop)) > 0 then\r\n                    begin\r\n                      Delete(Prop,1,4);\r\n                      {$IFDEF CMNLIB}\r\n                      if Assigned(ImageList) and (IStrToInt(Prop) < ImageList.Count) then\r\n                      begin\r\n                        {$IFDEF FMXLIB}\r\n                        {$ENDIF}\r\n                        {$IFDEF CMNLIB}\r\n                        {$IFDEF VCLLIB}\r\n                        IMGSize.x := MulDiv(ImageList.Width,GetDeviceCaps(AGraphics.Canvas.Handle,LOGPIXELSX),96);\r\n                        IMGSize.y := MulDiv(ImageList.Height,GetDeviceCaps(AGraphics.Canvas.Handle,LOGPIXELSY),96);\r\n                        {$ENDIF}\r\n                        {$IFDEF LCLLIB}\r\n                        IMGSize.x := ImageList.Width;\r\n                        IMGSize.y := ImageList.Height;\r\n                        {$ENDIF}\r\n\r\n                        if (imgth > ImageList.Height) then\r\n                        begin\r\n                          if imgalign = 0 then // bottom\r\n                            imgoffs := (imgth - ImageList.Height);\r\n\r\n                          if imgalign = 1 then // center\r\n                            imgoffs := (imgth - ImageList.Height) div 2;\r\n                        end;\r\n\r\n                        if not Calc and not Print then\r\n                        begin\r\n                          crc := ConvertToRect(ir);\r\n                          ImageList.Draw(AGraphics.Canvas,crc.Left,crc.Top + imgoffs,IStrToInt(Prop),True);\r\n                        end;\r\n                        {$ENDIF}\r\n                      end;\r\n                      {$ENDIF}\r\n                    end;\r\n\r\n                    bmp := nil;\r\n                    bmpcreated := false;\r\n\r\n                    if (Pos(':',Prop) = 0) and Assigned(BitmapContainer) then\r\n                    begin\r\n                      bmp := TTMSFNCBitmap(BitmapContainer.FindBitmap(Prop));\r\n                    end;\r\n\r\n                    {$IFNDEF WEBLIB}\r\n                    if (Pos('FILE://',Uppercase(Prop)) > 0)  then\r\n                    begin\r\n                      Delete(Prop,1,7);\r\n\r\n                      if FileExists(Prop) then\r\n                      begin\r\n                        bmp := TTMSFNCBitmap.Create;\r\n                        bmp.LoadFromFile(Prop);\r\n                        bmpcreated := true;\r\n                      end;\r\n                    end;\r\n                    {$ENDIF}\r\n                    {$IFDEF WEBLIB}\r\n                    if (Pos('URL://',Uppercase(Prop)) > 0)  then\r\n                    begin\r\n                      Delete(Prop,1,6);\r\n                      bmp := TTMSFNCBitmap(TTMSFNCBitmap.CreateFromURL(Prop));\r\n                      bmpcreated := true;\r\n                    end;\r\n                    {$ENDIF}\r\n\r\n                    if Pos('DATA:',Uppercase(Prop)) > 0 then\r\n                    begin\r\n                      if Pos('BASE64,', Uppercase(Prop)) > 0 then\r\n                      begin\r\n                        Delete(Prop, 1, Pos('BASE64,', Uppercase(Prop)) + 6);\r\n                        bmp := TTMSFNCBitmap.Create;\r\n                        TTMSFNCUtils.LoadBitmapFromBase64(Prop, bmp);\r\n                        bmpcreated := true;\r\n                      end;\r\n                    end;\r\n\r\n                    imgw := 0;\r\n                    imgh := 0;\r\n\r\n                      if Assigned(bmp) then\r\n                      begin\r\n                        if not IsBitmapEmpty(bmp) then\r\n                        begin\r\n                          if (TagWidth > 0) and (TagHeight > 0) then\r\n                          begin\r\n                            imgw := TagWidth;\r\n                            imgh := TagHeight;\r\n                          end;\r\n                          if (TagWidth > 0) and (TagHeight = 0) then\r\n                          begin\r\n                            imgw := TagWidth;\r\n                            imgh := Round(TagWidth/bmp.Width * bmp.Height);\r\n                          end;\r\n                          if (TagWidth = 0) and (TagHeight > 0) then\r\n                          begin\r\n                            imgw := Round(TagHeight/bmp.Height * bmp.Width);\r\n                            imgh := TagHeight;\r\n                          end;\r\n                          if (TagWidth = 0) and (TagHeight = 0) then\r\n                          begin\r\n                            imgw := bmp.Width;\r\n                            imgh := bmp.Height;\r\n                          end;\r\n\r\n                          if imgfloat = fsRight then\r\n                            ir.Left := r.Right - imgw;\r\n\r\n                          if not Calc {and not Print} then\r\n                          begin\r\n                            if (TagWidth > 0) or (TagHeight > 0) then\r\n                            begin\r\n                              AGraphics.DrawBitmap(RectF(Round(ir.Left),Round(ir.Top),Round(ir.Left) + imgw,Round(ir.Top) + imgh), bmp);\r\n                            end\r\n                            else\r\n                            if (TagWidth > 0) and (TagHeight = 0) then\r\n                            begin\r\n                              AGraphics.DrawBitmap(RectF(Round(ir.Left),Round(ir.Top),Round(ir.Left) + TagWidth,Round(ir.Top) + TagHeight),bmp);\r\n                            end\r\n                            else\r\n                            begin\r\n                              AGraphics.DrawBitmap(RectF(Round(ir.Left),Round(ir.Top),Round(ir.Left) + bmp.Width, Round(ir.Top) + bmp.Height),bmp);\r\n                            end;\r\n                          end;\r\n\r\n                          if (TagWidth > 0) or (TagHeight > 0) then\r\n                          begin\r\n                            IMGSize.x := imgw;\r\n                            IMGSize.y := imgh;\r\n                          end\r\n                          else\r\n                          begin\r\n                            IMGSize.x := bmp.Width;\r\n                            IMGSize.y := bmp.Height;\r\n                          end;\r\n                        end;\r\n\r\n                        if bmpcreated then\r\n                          bmp.Free;\r\n                      end;\r\n\r\n                    if (XPos - r.Left > w) and (XPos - r.Left < w + IMGSize.x) and\r\n                       (YPos > cr.Top) and (YPos < cr.Top + IMGSize.Y) and Anchor then\r\n                    begin\r\n                      ImageHotSpot := True;\r\n                      AnchorVal := LastAnchor;\r\n                      AltImg := ImgIdx;\r\n                    end;\r\n\r\n                    if (w + IMGSize.x > r.Right-r.Left) and\r\n                       (IMGSize.x < r.Right - r.Left) then\r\n                    begin\r\n                      ImgBreak := True;\r\n                    end\r\n                    else\r\n                      begin\r\n                        w := w + IMGSize.x + 2;\r\n                        cr.left := cr.left + IMGSize.x + 2;\r\n                        if IMGSize.y > h then\r\n                          h := IMGSize.y;\r\n                      end;\r\n\r\n                    if Pos('ALIGN',TagProp) > 0 then\r\n                    begin\r\n                      if Pos('\"TOP',TagProp) > 0 then\r\n                      begin\r\n                        rh := AGraphics.CalculateText('gh');\r\n                        ImgAli := h - (rh.Bottom - rh.Top);\r\n                      end\r\n                      else\r\n                      begin\r\n                        if Pos('\"MIDDLE',TagProp) > 0 then\r\n                        begin\r\n                          rh := AGraphics.CalculateText('gh');\r\n                          ImgAli := (h - (rh.Bottom - rh.Top)) / 2;\r\n                        end;\r\n                      end;\r\n                    end;\r\n\r\n                    if (Pos('WRAP',TagProp) > 0) then\r\n                    begin\r\n                      rh := AGraphics.CalculateText('gh');\r\n                      h := rh.Bottom - rh.Top;\r\n                      ImgAli := 0;\r\n                    end;\r\n\r\n                    if imgfloat = fsLeft then\r\n                    begin\r\n                      rh := AGraphics.CalculateText('gh');\r\n                      ImgAli := h - (rh.Bottom - rh.Top);\r\n                      floatrect.left := imgw;\r\n                      floatrect.bottom := imgh;\r\n                      if not calc then\r\n                      begin\r\n                        rh := AGraphics.CalculateText('gh');\r\n                        h := (rh.Bottom - rh.Top);\r\n                      end;\r\n                    end;\r\n\r\n                    if imgfloat = fsRight then\r\n                    begin\r\n                      rh := AGraphics.CalculateText('gh');\r\n                      ImgAli := h - (rh.Bottom - rh.Top);\r\n                      floatrect.right := imgw;\r\n                      floatrect.bottom := imgh;\r\n                      if not calc then\r\n                      begin\r\n                        rh := AGraphics.CalculateText('gh');\r\n                        h := rh.Bottom - rh.Top;\r\n                      end;\r\n                      w := fr.Right;\r\n                    end;\r\n\r\n                  end;\r\n                end;\r\n          'L':begin\r\n                NewColor := gcNull;\r\n                LType := '';\r\n\r\n                if (TTMSFNCUtils.VarPos('>',s,TagPos)>0) then\r\n                begin\r\n                  TagProp := Uppercase(Copy(s,3,TagPos-1));\r\n\r\n                  if TTMSFNCUtils.VarPos('TYPE',TagProp,TagPos) > 0 then\r\n                  begin\r\n                    Prop := Copy(TagProp,TagPos+4,Length(TagProp));\r\n                    Prop := Copy(Prop,Pos('\"',prop)+1,Length(Prop));\r\n                    Prop := Copy(Prop,1,Pos('\"',prop)-1);\r\n                    LType := Prop;\r\n                  end;\r\n                  if TTMSFNCUtils.VarPos('COLOR',TagProp,TagPos) > 0 then\r\n                  begin\r\n                    Prop := Copy(TagProp,TagPos+5,Length(TagProp));\r\n                    Prop := Copy(Prop,Pos('\"',prop)+1,Length(Prop));\r\n                    Prop := Copy(Prop,1,Pos('\"',prop)-1);\r\n\r\n                    if Length(Prop) > 0 then\r\n                    begin\r\n                      {$IFDEF ZEROSTRINGINDEX}\r\n                      if Prop[0] = '#' then\r\n                      {$ELSE}\r\n                      if Prop[1] = '#' then\r\n                      {$ENDIF}\r\n                        NewColor := TTMSFNCGraphics.HTMLToColor(Prop)\r\n                      else\r\n                        NewColor := TTMSFNCGraphics.TextToColor(prop);\r\n                    end;\r\n                  end;\r\n                end;\r\n\r\n                w := w + 12 * ListIndex;\r\n                if Linkbreak then\r\n                  Imgbreak := True else Linkbreak := True;\r\n\r\n                cr.left := cr.left + 12 * (ListIndex - 1);\r\n\r\n                if not calc and not Invisible then\r\n                begin\r\n                  if LType = '' then\r\n                  begin\r\n                    if (NewColor <> gcNull) then\r\n                    begin\r\n                      ColL := AGraphics.Font.Color;\r\n                      FontColor := NewColor;\r\n                    end;\r\n                    Prop := AGraphics.Font.Name;\r\n                    fs := AGraphics.Font.Style;\r\n                    AGraphics.Font.Style := [];\r\n\r\n                    if Odd(ListIndex) then\r\n                      AGraphics.DrawText(cr, {$IFDEF MSWINDOWS}Chr($2022){$ELSE}'•'{$ENDIF}, False, gtaLeading, gtaCenter, gttNone, 0, -1, -1{$IFNDEF LIMITEDGRAPHICSMODE}, False{$ENDIF})\r\n                    else\r\n                      AGraphics.DrawText(cr, 'o', False, gtaLeading, gtaCenter, gttNone, 0, -1, -1{$IFNDEF LIMITEDGRAPHICSMODE}, False{$ENDIF});\r\n\r\n                    AGraphics.Font.Name := prop;\r\n                    AGraphics.Font.Style := fs;\r\n                    if NewColor <> gcNull then\r\n                      FontColor := ColL;\r\n                  end\r\n                  else\r\n                  begin\r\n                    ColB := gcNull;\r\n\r\n                    if LTYPE = 'SQUARE' then\r\n                    begin\r\n                      ColB := AGraphics.Fill.Color;\r\n                      AGraphics.Stroke.Color := NewColor;\r\n                      AGraphics.Fill.Color := NewColor;\r\n                      AGraphics.Fill.Kind := gfkSolid;\r\n                      AGraphics.Stroke.Kind := gskSolid;\r\n                      AGraphics.DrawRectangle(RectF(cr.Left, cr.Top + 2, cr.Left + 8, cr.Top + 10));\r\n                      AGraphics.Fill.Color := ColB;\r\n                    end;\r\n\r\n                    if LTYPE = 'CIRCLE' then\r\n                    begin\r\n                      ColB := AGraphics.Fill.Color;\r\n                      AGraphics.Stroke.Color := NewColor;\r\n                      AGraphics.Fill.Color := NewColor;\r\n                      AGraphics.Fill.Kind := gfkSolid;\r\n                      AGraphics.Stroke.Kind := gskSolid;\r\n                      AGraphics.DrawEllipse(RectF(cr.Left, cr.Top + 2, cr.Left + 8, cr.Top + 10));\r\n                      AGraphics.Fill.Color := ColB;\r\n                    end;\r\n                  end;\r\n                end;\r\n                cr.Left := cr.Left + 12;\r\n              end;\r\n          'U':begin\r\n                {$IFDEF ZEROSTRINGINDEX}\r\n                if s[2] <> '>' then\r\n                {$ELSE}\r\n                if s[3] <> '>' then\r\n                {$ENDIF}\r\n                begin\r\n                  Inc(ListIndex);\r\n                  if w > 0 then\r\n                    LineBreak := true;\r\n                end\r\n                else\r\n                  AGraphics.Font.Style := AGraphics.Font.Style + [TFontStyle.fsUnderline];\r\n              end;\r\n          'O':begin\r\n                {$IFDEF ZEROSTRINGINDEX}\r\n                TagChar := Upcase(s[2]);\r\n                {$ELSE}\r\n                TagChar := Upcase(s[3]);\r\n                {$ENDIF}\r\n                if TagChar = 'F' then  // <OFS> tag\r\n                begin\r\n                  TagProp := Copy(s,3,pos('>',s) - 1);\r\n                  Prop := Copy(TagProp,TTMSFNCUtils.ipos('x',TagProp) + 2,Length(TagProp));\r\n                  Prop := Copy(Prop,Pos('\"',Prop) + 1,Length(prop));\r\n                  Prop := Copy(Prop,1,Pos('\"',Prop) - 1);\r\n                  val(Prop,NewOffsetX,err);\r\n                  cr.Left := NewOffsetX;\r\n                  w := NewOffsetX;\r\n                end\r\n              end;\r\n          'P':begin\r\n                if (TTMSFNCUtils.VarPos('>',s,TagPos)>0) then\r\n                begin\r\n                  TagProp := Uppercase(Copy(s,3,TagPos-1));\r\n\r\n                  if TTMSFNCUtils.VarPos('ALIGN',TagProp,TagPos) > 0 then\r\n                  begin\r\n                    Prop := Copy(TagProp,TagPos+5,Length(TagProp));\r\n                    Prop := Copy(Prop,Pos('\"',prop)+1,Length(Prop));\r\n                    Prop := Copy(Prop,1,Pos('\"',prop)-1);\r\n\r\n                    if Pos('RIGHT',Prop) > 0 then Align := taRightJustify;\r\n                    if Pos('LEFT',Prop) > 0 then Align := taLeftJustify;\r\n                    if Pos('CENTER',Prop) > 0 then Align := taCenter;\r\n                  end;\r\n\r\n                  if TTMSFNCUtils.VarPos('INDENT',TagProp,TagPos) > 0 then\r\n                  begin\r\n                    Prop := Copy(TagProp,TagPos+6,Length(TagProp));\r\n                    Prop := Copy(Prop,Pos('\"',prop)+1,Length(Prop));\r\n                    Prop := Copy(Prop,1,Pos('\"',prop)-1);\r\n                    PIndent := IStrToInt(Prop);\r\n                  end;\r\n\r\n                  if TTMSFNCUtils.VarPos('FLOAT',TagProp,TagPos) > 0 then\r\n                  begin\r\n                    Prop := Copy(TagProp,TagPos+5,Length(TagProp));\r\n                    Prop := Copy(Prop,Pos('\"',prop)+1,Length(Prop));\r\n                    Prop := Copy(Prop,1,Pos('\"',prop)-1);\r\n\r\n                    if Prop = 'LEFT' then\r\n                      txtfloat := fsLeft;\r\n\r\n                    if Prop = 'RIGHT' then\r\n                      txtfloat := fsRight;\r\n\r\n                    floatpt := Point(Round(r.Left), Round(r.Top));\r\n                  end;\r\n\r\n                  if TTMSFNCUtils.VarPos('BGCOLOR',TagProp,TagPos) > 0 then\r\n                  begin\r\n                    Prop := Copy(TagProp,TagPos + 5,Length(TagProp));\r\n                    Prop := Copy(Prop,Pos('\"',Prop) + 1,Length(Prop));\r\n                    Prop := Copy(Prop,1,Pos('\"',Prop) - 1);\r\n\r\n                    NewColor := gcNull;\r\n\r\n                    if Length(Prop) > 0 then\r\n                    begin\r\n                      {$IFDEF ZEROSTRINGINDEX}\r\n                      if Prop[0] = '#' then\r\n                      {$ELSE}\r\n                      if Prop[1] = '#' then\r\n                      {$ENDIF}\r\n                        NewColor := TTMSFNCGraphics.HTMLToColor(Prop)\r\n                      else\r\n                        NewColor := TTMSFNCGraphics.TextToColor(prop);\r\n                    end;\r\n\r\n                    if TTMSFNCUtils.VarPos('BGCOLORTO',TagProp,TagPos) > 0 then\r\n                    begin\r\n                      Prop := Copy(TagProp,TagPos + 5,Length(TagProp));\r\n                      Prop := Copy(Prop,Pos('\"',Prop) + 1,Length(Prop));\r\n                      Prop := Copy(Prop,1,Pos('\"',Prop) - 1);\r\n\r\n                      if not Calc then\r\n                      begin\r\n                        isPara := True;\r\n                        AGraphics.Stroke.Color := Newcolor;\r\n\r\n                        //DrawHTMLGradient(Canvas,NewColor,NewColorTo,clNone,64,Rect(fr.left,r.top,fr.right,r.bottom+2),true);\r\n                        //AGraphics.Brush.Style := bsClear\r\n                      end;\r\n                    end\r\n                    else\r\n                    begin\r\n                      if not Calc then\r\n                      begin\r\n                        isPara := True;\r\n                        paracolor := AGraphics.Fill.Color;\r\n                        //if AGraphics.Brush.Style = bsClear then ParaColor := clNone;\r\n                        AGraphics.Fill.color := NewColor;\r\n                        PenColor := AGraphics.Stroke.Color;\r\n                        AGraphics.Stroke.Color := Newcolor;\r\n                        AGraphics.Fill.Kind := gfkSolid;\r\n                        AGraphics.Stroke.Kind := gskSolid;\r\n                        AGraphics.DrawRectangle(RectF(fr.left,r.top,fr.right,r.bottom));\r\n                      end;\r\n                    end;\r\n                  end;\r\n                end;\r\n            end;\r\n        'F':begin\r\n              if (TTMSFNCUtils.VarPos('>',s,TagPos)>0) then\r\n              begin\r\n                if AGraphics.Fill.Kind = gfkNone then\r\n                  BGColor := gcNull\r\n                else\r\n                  BGColor := AGraphics.Fill.Color;\r\n\r\n                TagProp := UpperCase(Copy(s,6,TagPos-6));\r\n\r\n                if (TTMSFNCUtils.VarPos('FACE',TagProp,TagPos) > 0) then\r\n                begin\r\n                  Prop := Copy(TagProp,TagPos+4,Length(TagProp));\r\n                  Prop := Copy(prop,pos('\"',prop)+1,Length(prop));\r\n                  Prop := Copy(prop,1,pos('\"',prop)-1);\r\n                  AGraphics.Font.Name := Prop;\r\n                end;\r\n\r\n                if (TTMSFNCUtils.VarPos(' COLOR',TagProp,TagPos) > 0) and not Selected then\r\n                begin\r\n                  Prop := Copy(TagProp,TagPos+6,Length(TagProp));\r\n                  Prop := Copy(Prop,Pos('\"',prop)+1,Length(prop));\r\n                  Prop := Copy(Prop,1,Pos('\"',prop)-1);\r\n                  if AGraphics.Fill.Color <> gcNull then\r\n                    OldFontColor := AGraphics.Font.Color\r\n                  else\r\n                    OldFontColor := gcBlack;\r\n\r\n                  if Length(Prop) > 0 then\r\n                  begin\r\n                    {$IFDEF ZEROSTRINGINDEX}\r\n                    if Prop[0] = '#' then\r\n                    {$ELSE}\r\n                    if Prop[1] = '#' then\r\n                    {$ENDIF}\r\n                      FontColor := TTMSFNCGraphics.HTMLToColor(Prop)\r\n                    else\r\n                      FontColor := TTMSFNCGraphics.TextToColor(Prop);\r\n                  end;\r\n                end;\r\n\r\n                if (TTMSFNCUtils.VarPos('BGCOLOR',TagProp,TagPos)>0) and not Calc and not Selected then\r\n                begin\r\n                  Prop := Copy(TagProp,TagPos+7,Length(TagProp));\r\n                  Prop := Copy(prop,pos('\"',prop)+1,Length(prop));\r\n                  Prop := Copy(prop,1,pos('\"',prop)-1);\r\n\r\n                  if Length(Prop) > 0 then\r\n                  begin\r\n                    {$IFDEF ZEROSTRINGINDEX}\r\n                    if Prop[0] = '#' then\r\n                    {$ELSE}\r\n                    if Prop[1] = '#' then\r\n                    {$ENDIF}\r\n                      BkColor := TTMSFNCGraphics.HTMLToColor(Prop)\r\n                    else\r\n                      BkColor := TTMSFNCGraphics.TextToColor(prop);\r\n                  end;\r\n                end;\r\n\r\n                if (TTMSFNCUtils.VarPos('STYLE',TagProp,TagPos)>0) then\r\n                begin\r\n                  Prop := Copy(TagProp,TagPos+5,Length(TagProp));\r\n                  Prop := Copy(Prop,Pos('=',Prop)+1,Length(Prop));\r\n                  Prop := Copy(Prop,Pos('\"',Prop)+1,Length(Prop));\r\n\r\n                  if Pos('FONT-SIZE:', Uppercase(Prop)) > 0 then\r\n                  begin\r\n                    Delete(Prop, 1, 10);\r\n\r\n                    if pos('PT', UpperCase(Prop)) > 0 then\r\n                    begin\r\n                      Prop := Trim(Copy(Prop,1, Pos('PT',Uppercase(Prop))-1));\r\n                      TTMSFNCUtils.SetFontSize(AGraphics.Font, IStrToInt(Prop));\r\n                    end;\r\n                  end;\r\n                end\r\n                else\r\n                begin\r\n                  if (TTMSFNCUtils.VarPos('SIZE',TagProp,TagPos)>0) then\r\n                  begin\r\n                    Prop := Copy(TagProp,TagPos+4,Length(TagProp));\r\n                    Prop := Copy(Prop,Pos('=',Prop)+1,Length(Prop));\r\n                    Prop := Copy(Prop,Pos('\"',Prop)+1,Length(Prop));\r\n                    Prop := Copy(Prop,1,Pos('\"',Prop) - 1);\r\n\r\n                    case IStrToInt(Prop) of\r\n                    1: TTMSFNCUtils.SetFontSize(AGraphics.Font, 8);\r\n                    2: TTMSFNCUtils.SetFontSize(AGraphics.Font, 10);\r\n                    3: TTMSFNCUtils.SetFontSize(AGraphics.Font, 12);\r\n                    4: TTMSFNCUtils.SetFontSize(AGraphics.Font, 14);\r\n                    5: TTMSFNCUtils.SetFontSize(AGraphics.Font, 16);\r\n                    else\r\n                      TTMSFNCUtils.SetFontSize(AGraphics.Font, IStrToInt(Prop));\r\n                    end;\r\n                  end;\r\n                end;\r\n              end;\r\n            end;\r\n        'S':begin\r\n              {$IFDEF ZEROSTRINGINDEX}\r\n              TagChar := Upcase(s[2]);\r\n              {$ELSE}\r\n              TagChar := Upcase(s[3]);\r\n              {$ENDIF}\r\n\r\n              if TagChar = '>' then\r\n                AGraphics.Font.Style := AGraphics.Font.Style + [TFontStyle.fsStrikeOut]\r\n              else\r\n              begin\r\n                if TagChar = 'H' then\r\n                  isShad := True\r\n                else\r\n                begin\r\n                  if TTMSFNCUtils.ipos('<SUB>',s)=1 then\r\n                    isSub := True\r\n                  else\r\n                    if TTMSFNCUtils.ipos('<SUP>',s)=1 then\r\n                      isSup := True;\r\n                end;\r\n              end;\r\n            end;\r\n        'R':begin\r\n              TagProp := Copy(s,3,pos('>',s)-1);\r\n              prop := Copy(TagProp,TTMSFNCUtils.ipos('a',TagProp)+2,Length(TagProp));\r\n              prop := Copy(prop,pos('\"',prop)+1,Length(prop));\r\n              prop := Copy(prop,1,pos('\"',prop)-1);\r\n              //StartRotated(Canvas,indent);\r\n            end;\r\n        'Z':Invisible := True;\r\n        end;\r\n      end;\r\n\r\n      if (TTMSFNCUtils.VarPos('>',s,TagPos)>0) and not ImgBreak then\r\n      begin\r\n        Res := Res + Copy(s,1,TagPos);\r\n        Delete(s,1,TagPos);\r\n      end\r\n      else\r\n        if not Imgbreak then\r\n          Delete(s,1,Length(s));\r\n    end;\r\n  end;\r\n\r\n    w := w - sw;\r\n\r\n    if w > xsize then\r\n      xsize := w + 2;\r\n\r\n    if (FocusLink = Hyperlinks - 1) and Anchor and not Calc then\r\n    begin\r\n      rr.Right := cr.Left;\r\n      rr.Bottom := cr.Bottom;\r\n      InflateRectEx(rr,1,0);\r\n      //if not Calc then\r\n      //  AGraphics.DrawFocusRect(rr);\r\n      rr.Left := r.Left + 1;\r\n      rr.Top := rr.Bottom;\r\n    end;\r\n\r\n    Result := Res;\r\n  end;\r\n\r\nbegin\r\n  Anchor := False;\r\n  Error := False;\r\n  OldFont := TTMSFNCGraphicsFont.Create;\r\n  OldFont.AssignSource(AGraphics.Font);\r\n  OldFontColor := AGraphics.Font.Color;\r\n  DrawFont := TTMSFNCGraphicsFont.Create;\r\n  DrawFont.AssignSource(AGraphics.Font);\r\n  DrawFontColor := AGraphics.Font.Color;\r\n  CalcFont := TTMSFNCGraphicsFont.Create;\r\n  CalcFont.AssignSource(AGraphics.Font);\r\n  CalcFontColor := AGraphics.Font.Color;\r\n  OldDrawfont := TTMSFNCGraphicsFont.Create;\r\n  OldDrawFont.AssignSource(AGraphics.Font);\r\n  OldDrawFontColor := AGraphics.Font.Color;\r\n  OldCalcFont := TTMSFNCGraphicsFont.Create;\r\n  OldCalcFont.AssignSource(AGraphics.Font);\r\n  OldCalcFontColor := AGraphics.Font.Color;\r\n  BlnkColor := AGraphics.Fill.color;\r\n  OldPenColor := AGraphics.Stroke.Color;\r\n  blnkKind := AGraphics.Fill.Kind;\r\n  oldPenKind := AGraphics.Stroke.Kind;\r\n  BGColor := gcNull;\r\n  BkColor := gcNull;\r\n  ParaColor := gcNull;\r\n  isPara := False;\r\n  isShad := False;\r\n  Invisible := False;\r\n\r\n  ControlRect := RectF(0,0,0,0);\r\n  CV := '';\r\n  CT := '';\r\n  if not CheckHotSpot then\r\n    CID := '';\r\n\r\n  OfsX := 0;\r\n  NewOfsX := 0;\r\n\r\n  txtfloat := fsNone;\r\n  floatrect := Rect(0,0,0,0);\r\n\r\n  Result := False;\r\n\r\n  r := fr;\r\n\r\n  Align := taLeftJustify;\r\n  PIndent := 0;\r\n\r\n  XSize := 0;\r\n  YSize := 0;\r\n  HyperLinks := 0;\r\n  HlCount := 0;\r\n  ListIndex := 0;\r\n  LiCount := 0;\r\n  StripVal := '';\r\n  FocusAnchor := '';\r\n  MouseLink := -1;\r\n  MouseInAnchor := False;\r\n\r\n  ImgIdx := 0;\r\n  AltImg := -1;\r\n\r\n  if Pos('&',s) > 0 then\r\n  begin\r\n    s :=  TTMSFNCUtils.UnFixMarkup(s, true, true);\r\n    repeat\r\n      Foundtag := False;\r\n      if TTMSFNCUtils.TagReplacestring('&amp;','&',s) then Foundtag := True;\r\n    until not Foundtag;\r\n  end;\r\n\r\n  s := DBTagStrip(s);\r\n  s := UnicodeTagStrip(s);\r\n  s := CRLFStrip(s,True);\r\n\r\n  InsPoint := 0;\r\n  LineCount := 0;\r\n\r\n  while Length(s) > 0 do\r\n  begin\r\n    //calculate part of the HTML text fitting on the next line\r\n    OldFont.AssignSource(OldCalcFont);\r\n    OldFontColor := OldCalcFontColor;\r\n    AGraphics.Font.AssignSource(CalcFont);\r\n    FontColor := CalcFontColor;\r\n    OldAnchor := Anchor;\r\n    OldAnchorVal := LastAnchor;\r\n    suph := 0;\r\n    subh := 0;\r\n    imgali := 0;\r\n    isSup := False;\r\n    isSub := False;\r\n    HotSpot := False;\r\n    ImageHotSpot := False;\r\n    HTMLWidth := 0;\r\n    rh := AGraphics.CalculateText('gh');\r\n    HtmlHeight := rh.Bottom - rh.Top;\r\n    txtHeight := HtmlHeight;\r\n\r\n    OldImgIdx := ImgIdx;\r\n\r\n    s := Trim(s);\r\n\r\n    txtfloatbefore := txtfloat;\r\n\r\n    su := HTMLDrawLine(AGraphics,s,r,True,HtmlWidth,HtmlHeight,subh,suph,imgali,Align,PIndent,XPos,YPos,HotSpot,ImageHotSpot,ofsx,newofsx, floatrect,txtfloat);\r\n    Inc(LineCount);\r\n\r\n    Anchor := OldAnchor;\r\n    LastAnchor := OldAnchorVal;\r\n\r\n    CalcFont.AssignSource(AGraphics.Font);\r\n    CalcFontColor := AGraphics.Font.Color;\r\n    OldCalcFont.AssignSource(OldFont);\r\n    OldCalcFontColor := OldFontColor;\r\n\r\n    HTMLHeight := HTMLHeight + LineSpacing;\r\n\r\n    dr := r;\r\n\r\n    case Align of\r\n    taCenter:if (r.right - r.left - htmlwidth > 0) then\r\n               dr.left := r.left+((r.right - r.left - htmlwidth) / 2);\r\n    taRightJustify:if r.right - htmlwidth > r.left then\r\n                       dr.left := r.right - htmlwidth;\r\n    end;\r\n\r\n    dr.Left := dr.Left + PIndent;\r\n    dr.Right := dr.Right + PIndent;\r\n\r\n    dr.Bottom := dr.Top + HtmlHeight + Subh + Suph;\r\n\r\n    if not CheckHeight then\r\n    begin\r\n      OldFont.AssignSource(OldDrawFont);\r\n      OldFontColor := OldDrawFontColor;\r\n      AGraphics.Font.AssignSource(DrawFont);\r\n      FontColor := DrawFontColor;\r\n\r\n      HyperLinks := HlCount;\r\n      ListIndex := LiCount;\r\n      ImgIdx := OldImgIdx;\r\n\r\n      HTMLDrawLine(AGraphics,su,dr,CheckHotSpot,HtmlWidth,HtmlHeight,subh,suph,ImgAli,Align,PIndent,XPos,YPos,HotSpot,ImageHotspot,ofsx,newofsx, floatrect,txtfloat);\r\n\r\n      HlCount := HyperLinks;\r\n      LiCount := ListIndex;\r\n\r\n      r.left := fr.Left + floatrect.left;\r\n\r\n      r.right := fr.Right - floatrect.right;\r\n\r\n      if dr.Top > floatrect.bottom then\r\n      begin\r\n        floatrect.Left := 0;\r\n        floatrect.Right := 0;\r\n        r.Left := fr.Left;\r\n      end;\r\n\r\n      rh := AGraphics.CalculateText('gh');\r\n\r\n      if (HotSpot and\r\n         (YPos > dr.Bottom - ImgAli - (rh.Bottom - rh.Top)) and\r\n         (YPos < dr.Bottom - ImgAli)) or ImageHotSpot then\r\n      begin\r\n        Result := True;\r\n      end;\r\n\r\n      ofsx := newofsx;\r\n\r\n      DrawFont.AssignSource(AGraphics.Font);\r\n      DrawFontColor := FontColor;\r\n      OldDrawFont.AssignSource(OldFont);\r\n      OldDrawFontColor := OldFontColor;\r\n    end;\r\n\r\n    if (txtfloat <> fsNone) and (txtfloat <> txtfloatbefore) then\r\n    begin\r\n      r.Left := floatpt.x;\r\n      r.Top := floatpt.y;\r\n      txtfloat := fsNone;\r\n    end\r\n    else\r\n    begin\r\n      r.top := r.top + HtmlHeight + subh + suph;\r\n      ysize := ysize + HtmlHeight + subh + suph;\r\n    end;\r\n\r\n    //do not draw below bottom\r\n    if (r.top + TxtHeight > r.bottom + 1) and not CheckHeight then\r\n      s := '';\r\n  end;\r\n\r\n  if (ysize = 0) then\r\n  begin\r\n    rh := AGraphics.CalculateText('gh');\r\n    ysize := rh.Bottom - rh.Top;\r\n  end;\r\n\r\n  //ysize := ysize + 2;\r\n\r\n  InsPoint := InsPoint shr 1;\r\n\r\n  AGraphics.Stroke.Kind := OldPenKind;\r\n  AGraphics.Fill.Kind := blnkKind;\r\n  AGraphics.Stroke.Color := OldPenColor;\r\n  AGraphics.Fill.Color := BlnkColor;\r\n  AGraphics.Font.AssignSource(OldFont);\r\n  OldFont.Free;\r\n  DrawFont.Free;\r\n  CalcFont.Free;\r\n  OldDrawfont.Free;\r\n  OldCalcfont.Free;\r\nend;\r\n\r\nfunction HTMLDrawEx(AGraphics: TTMSFNCGraphics; s:string; fr:TRectF;\r\n                    XPos,YPos,FocusLink,HoverLink,ShadowOffset: Integer;\r\n                    CheckHotSpot,CheckHeight,{%H-}Print,Selected,Blink,HoverStyle,WordWrap: Boolean;\r\n                    {%H-}ResFactor:Double;\r\n                    URLColor,HoverColor,HoverFontColor,ShadowColor: TTMSFNCGraphicsColor;\r\n                    var AnchorVal,StripVal,FocusAnchor: string;\r\n                    var XSize,YSize: single; var HyperLinks,MouseLink: Integer;\r\n                    var HoverRect: TRectF; var LineCount: Integer; LineSpacing: Integer;\r\n                    BitmapContainer: TTMSFNCBitmapContainer; {%H-}Opacity: Single; HyperLinkUnderline: Boolean = True{$IFDEF CMNLIB}; ImageList: TCustomImageList = nil{$ENDIF};\r\n                    HighlightColor: TTMSFNCGraphicsColor = gcBlue;\r\n                    HighlightTextColor: TTMSFNCGraphicsColor = gcWhite;\r\n                    HighlightTextStyle: TFontStyles = []\r\n                    ): Boolean;\r\nvar\r\n  cr: TRectF;\r\n  cid: string;\r\n  cv: string;\r\n  ct: string;\r\nbegin\r\n  cid := '';\r\n  cv := '';\r\n  ct := '';\r\n  cr := RectF(0, 0, 0, 0);\r\n  Result := HTMLDrawEx(AGraphics, s, fr, XPos, YPos, FocusLink, HoverLink, ShadowOffset, CheckHotSpot, CheckHeight, Print, Selected, Blink, HoverStyle, WordWrap, False, '',\r\n    ResFactor, URLColor, HoverColor, HoverFontColor, ShadowColor, AnchorVal, StripVal, FocusAnchor, XSize, YSize, HyperLinks, MouseLink, HoverRect, cr, cid, cv, ct, LineCount, LineSpacing, BitmapContainer,\r\n    Opacity, HyperLinkUnderline{$IFDEF CMNLIB}, ImageList{$ENDIF}, HighlightColor, HighlightTextColor, HighlightTextStyle);\r\nend;\r\n\r\n{$HINTS ON}\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2017 - 2021                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCGraphics.General;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF FMXLIB}\r\n{$IFDEF MSWINDOWS}\r\n{$DEFINE FMXWINDOWS}\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\n{$IFDEF FMXLIB}\r\n{$DEFINE FMXWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF CMNLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$DEFINE FMXWEBLIB}\r\n{$ENDIF}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\n{$IFDEF FMXLIB}\r\n{$DEFINE SUPPORTSACCELERATORS}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  {$IFDEF MSWINDOWS}\r\n  Windows,\r\n  {$ENDIF}\r\n  Classes, WEBLib.TMSFNCGraphicsTypes,\r\n  Types, WEBLib.Graphics, WEBLib.TMSFNCGraphics,\r\n  WEBLib.TMSFNCTypes\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Types, FMX.TextLayout, System.Math.Vectors\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  ,UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCGraphicsContextGeneral = class(TTMSFNCGraphicsContext)\r\n  private\r\n    FPrinting: Boolean;\r\n    {$IFNDEF WEBLIB}\r\n    {%H-}FShowAcceleratorChar: Boolean;\r\n    {$ENDIF}\r\n    {$IFDEF CMNLIB}\r\n    FOldPenHandle: THandle;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    FOldPenStyle: TPenStyle;\r\n    FOldPenWidth: Integer;\r\n    {$ENDIF}\r\n    {$IFDEF FMXLIB}\r\n    FMatrix: TMatrix;\r\n    FMatrixSaved: Boolean;\r\n    FTextMatrix: TMatrix;\r\n    FTextLayout: TTextLayout;\r\n    {$ENDIF}\r\n  protected\r\n    function GetNativeCanvas: Pointer; override;\r\n    {$IFDEF CMNWEBLIB}\r\n    {$IFDEF WEBLIB}\r\n    procedure DrawRotatedText(ACanvas: TCanvas; ARect: TRectF; AText: String; AAngle: Single; AHorizontalAlign, AVerticalAlign: TTMSFNCGraphicsTextAlign);\r\n    {$ENDIF}\r\n    {$IFNDEF WEBLIB}\r\n    procedure DrawRotatedText(ACanvas: TCanvas; ARect: TRect; AText: String; AAngle: Single; AHorizontalAlign, AVerticalAlign: TTMSFNCGraphicsTextAlign);\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    {$IFDEF FMXWINDOWS}\r\n    function CalculateTextWin(AText: string; ARect: TRectF; AWordWrapping: Boolean): TRectF; virtual;\r\n    {$ENDIF}\r\n    {$IFDEF FMXLIB}\r\n    procedure SaveMatrix;\r\n    procedure RestoreMatrix;\r\n    {$IFDEF SUPPORTSACCELERATORS}\r\n    function SupportsAcceleratorChar: Boolean;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n  public\r\n    destructor Destroy; override;\r\n    function GetFillColor: TTMSFNCGraphicsColor; override;\r\n    function CalculateText(AText: string; ARect: TRectF; AWordWrapping: Boolean): TRectF; override;\r\n    function SetTextAngle(ARect: TRectF; {%H-}AAngle: Single): TRectF; override;\r\n    function CreatePath: Pointer; override;\r\n    function GetMatrix: TTMSFNCGraphicsMatrix; override;\r\n    procedure Render; override;\r\n    procedure PathOpen({%H-}APath: Pointer); override;\r\n    procedure PathMoveTo(APath: Pointer; APoint: TPointF); override;\r\n    procedure PathLineTo(APath: Pointer; APoint: TPointF); override;\r\n    procedure PathClose(APath: Pointer); override;\r\n    procedure ResetTransform; override;\r\n    procedure ResetClip; override;\r\n    procedure ScaleTransform({%H-}AX, {%H-}AY: Single); override;\r\n    procedure RotateTransform({%H-}AAngle: Single); override;\r\n    procedure TranslateTransform({%H-}AX, {%H-}AY: Single); override;\r\n    procedure SetTextQuality({%H-}ATextQuality: TTMSFNCGraphicsTextQuality); override;\r\n    procedure SetAntiAliasing({%H-}AAntiAliasing: Boolean); override;\r\n    procedure SetShowAcceleratorChar({%H-}AShowAcceleratorChar: Boolean); override;\r\n    procedure SetSize({%H-}AWidth, {%H-}AHeight: Single); override;\r\n    procedure ResetTextAngle({%H-}AAngle: Single); override;\r\n    procedure BeginScene; override;\r\n    procedure EndScene; override;\r\n    procedure BeginPrinting; override;\r\n    procedure EndPrinting; override;\r\n    procedure StartSpecialPen; override;\r\n    procedure StopSpecialPen; override;\r\n    procedure RestoreState(AState: TTMSFNCGraphicsSaveState); override;\r\n    procedure SaveState({%H-}AState: TTMSFNCGraphicsSaveState); override;\r\n    procedure SetMatrix(AMatrix: TTMSFNCGraphicsMatrix); override;\r\n    procedure SetScale(AScale: Single); override;\r\n    procedure SetFontSize(ASize: Integer); override;\r\n    procedure SetFontColor(AColor: TTMSFNCGraphicsColor); override;\r\n    procedure SetFontName(AName: string); override;\r\n    procedure SetFont(AFont: TTMSFNCGraphicsFont); override;\r\n    procedure SetFontStyles(AStyle: TFontStyles); override;\r\n    procedure SetFill(AFill: TTMSFNCGraphicsFill); override;\r\n    procedure SetFillKind(AKind: TTMSFNCGraphicsFillKind); override;\r\n    procedure SetFillColor(AColor: TTMSFNCGraphicsColor); override;\r\n    procedure SetStroke(AStroke: TTMSFNCGraphicsStroke); override;\r\n    procedure SetStrokeKind(AKind: TTMSFNCGraphicsStrokeKind); override;\r\n    procedure SetStrokeColor(AColor: TTMSFNCGraphicsColor); override;\r\n    procedure SetStrokeWidth(AWidth: Single); override;\r\n    procedure DrawLine({%H-}AStroke: TTMSFNCGraphicsStroke; AFromPoint: TPointF; AToPoint: TPointF; {%H-}AModifyPointModeFrom: TTMSFNCGraphicsModifyPointMode = gcpmRightDown; {%H-}AModifyPointModeTo: TTMSFNCGraphicsModifyPointMode = gcpmRightDown); override;\r\n    procedure DrawPolygon({%H-}AStroke: TTMSFNCGraphicsStroke; APolygon: TTMSFNCGraphicsPathPolygon); override;\r\n    procedure FillPolygon({%H-}AFill: TTMSFNCGraphicsFill; APolygon: TTMSFNCGraphicsPathPolygon); override;\r\n    procedure DrawPolyline({%H-}AStroke: TTMSFNCGraphicsStroke; APolyline: TTMSFNCGraphicsPathPolygon); override;\r\n    procedure FillPolyline({%H-}AFill: TTMSFNCGraphicsFill; APolyline: TTMSFNCGraphicsPathPolygon); override;\r\n    procedure FillArc({%H-}AFill: TTMSFNCGraphicsFill; ACenter, ARadius: TPointF; AStartAngle, ASweepAngle: Single); override;\r\n    procedure DrawArc({%H-}AStroke: TTMSFNCGraphicsStroke; ACenter, ARadius: TPointF; AStartAngle, ASweepAngle: Single); override;\r\n    procedure FillRect({%H-}AFill: TTMSFNCGraphicsFill; ARect: TRectF; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); override;\r\n    procedure DrawRect({%H-}AStroke: TTMSFNCGraphicsStroke; ARect: TRectF; ASides: TTMSFNCGraphicsSides; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); override;\r\n    procedure FillRoundRect({%H-}AFill: TTMSFNCGraphicsFill; ARect: TRectF; ARounding: Single; ACorners: TTMSFNCGraphicsCorners; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); override;\r\n    procedure DrawRoundRect({%H-}AStroke: TTMSFNCGraphicsStroke; ARect: TRectF; ARounding: Single; ACorners: TTMSFNCGraphicsCorners; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); override;\r\n    procedure FillEllipse({%H-}AFill: TTMSFNCGraphicsFill; ARect: TRectF; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); override;\r\n    procedure DrawEllipse({%H-}AStroke: TTMSFNCGraphicsStroke; ARect: TRectF; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); override;\r\n    procedure DrawBitmap(ABitmap: TTMSFNCDrawBitmap; {%H-}ASrcRect, ADstRect: TRectF; {%H-}AOpacity: Single); override;\r\n    procedure ClipRect(ARect: TRectF); override;\r\n    procedure ClipPath({%H-}APath: TTMSFNCGraphicsPath); override;\r\n    procedure DrawFocusPath({%H-}AStroke: TTMSFNCGraphicsStroke; APath: TTMSFNCGraphicsPath; AColor: TTMSFNCGraphicsColor); override;\r\n    procedure DrawFocusRectangle({%H-}AStroke: TTMSFNCGraphicsStroke; ARect: TRectF; AColor: TTMSFNCGraphicsColor; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); override;\r\n    procedure DrawText(AText: string; ARect: TRectF; AWordWrapping: Boolean; AHorizontalAlign, AVerticalAlign: TTMSFNCGraphicsTextAlign; ATrimming: TTMSFNCGraphicsTextTrimming; AAngle: Single); override;\r\n    procedure DrawPath({%H-}AStroke: TTMSFNCGraphicsStroke; APath: TTMSFNCGraphicsPath; APathMode: TTMSFNCGraphicsPathDrawMode = pdmPolygon); override;\r\n    procedure FillPath({%H-}AFill: TTMSFNCGraphicsFill; APath: TTMSFNCGraphicsPath; APathMode: TTMSFNCGraphicsPathDrawMode = pdmPolygon); override;\r\n  end;\r\n\r\nfunction GetNativeContextClass: TTMSFNCGraphicsContextClass;\r\n\r\nimplementation\r\n\r\nuses\r\n  Math\r\n  {$IFDEF SUPPORTSACCELERATORS}\r\n  ,Character, FMX.Platform, FMX.AcceleratorKey, FMX.FontGlyphs\r\n  {$ENDIF}\r\n  {$IFDEF FMXWINDOWS}\r\n  ,SysUtils, WinApi.D2D1, WinApi.D3D10, WinApi.Dxgi,WinApi.DxgiFormat,\r\n  WinApi.ActiveX, FMX.Canvas.D2D, Winapi.D3D10_1,\r\n  FMX.Consts\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,LCLIntF, LCLType\r\n  {$ENDIF}\r\n  ;\r\n\r\n{$IFDEF MSWINDOWS}\r\n{$IFDEF LCLLIB}\r\nfunction AbortPath(_para1:HDC):WINBOOL; external 'gdi32' name 'AbortPath';\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\n{$IFDEF FMXWINDOWS}\r\ntype\r\n  TDirect3DLevel = (lUndetermined, lUnsupported, lDirect3D10, lDirect3D10_1);\r\n  TDirect3DSupport = (sUndetermined, sDirect3D10Legacy, sDirect3D10, sDirect3D10_1);\r\n\r\nvar\r\n  FSharedDevice: ID3D10Device;\r\n  FSharedDXGIFactory: IDXGIFactory;\r\n  FSharedFactory: ID2D1Factory;\r\n  FSharedDWriteFactory: IDWriteFactory;\r\n  FDirect3DLevel: TDirect3DLevel;\r\n  FDirect3DSupport: TDirect3DSupport;\r\n  FDirect3DHardware: Boolean;\r\n{$ENDIF}\r\n\r\n{$IFDEF FMXWINDOWS}\r\nfunction TTMSFNCGraphicsContextGeneral.CalculateTextWin(AText: string; ARect: TRectF; AWordWrapping: Boolean): TRectF;\r\nvar\r\n  TextRange: TDWriteTextRange;\r\n  TextFormat: IDWriteTextFormat;\r\n  LocaleName: string;\r\n  TrimOptions: TDwriteTrimming;\r\n  TrimmingSign: IDWriteInlineObject;\r\n  FLayout: IDWriteTextLayout;\r\n  FMetrics: TDWriteTextMetrics;\r\n  FOverhangMetrics: TDwriteOverhangMetrics;\r\n  PrevFPUState: TArithmeticExceptionMask;\r\n\r\n  procedure SaveClearFPUState;\r\n  begin\r\n    PrevFPUState:= GetExceptionMask;\r\n    SetExceptionMask(exAllArithmeticExceptions);\r\n  end;\r\n\r\n  procedure RestoreFPUState;\r\n  begin\r\n    SetExceptionMask(PrevFPUState);\r\n  end;\r\n\r\n  function D2FontWeight(const Style: TFontStyles): TDWriteFontWeight; inline;\r\n  begin\r\n    Result := DWRITE_FONT_WEIGHT_REGULAR;\r\n    if TFontStyle.fsBold in Style then\r\n      Result := DWRITE_FONT_WEIGHT_BOLD;\r\n  end;\r\n\r\n  function D2FontStyle(const Style: TFontStyles): TDWriteFontStyle; inline;\r\n  begin\r\n    Result := DWRITE_FONT_STYLE_NORMAL;\r\n    if TFontStyle.fsItalic in Style then\r\n      Result := DWRITE_FONT_STYLE_OBLIQUE;\r\n  end;\r\n\r\n  procedure UpdateDirect3DLevel;\r\n  var\r\n    DXLib: THandle;\r\n  begin\r\n    if FDirect3DLevel = TDirect3DLevel.lUndetermined then\r\n    begin\r\n      {$HINTS OFF}\r\n      if {$IF COMPILERVERSION > 27}GlobalUseDX{$ELSE}GlobalUseDX10{$IFEND} then\r\n      {$HINTS ON}\r\n      begin\r\n        FDirect3DLevel := TDirect3DLevel.lUndetermined;\r\n\r\n        // Direct3D 10.1\r\n        DXLib := LoadLibrary(D3D10_1_dll);\r\n        if DXLib <> 0 then\r\n        try\r\n          if GetProcAddress(DXLib, 'D3D10CreateDevice1') <> nil then\r\n            FDirect3DLevel := TDirect3DLevel.lDirect3D10_1;\r\n        finally\r\n          FreeLibrary(DXLib);\r\n        end;\r\n\r\n        if FDirect3DLevel = TDirect3DLevel.lUndetermined then\r\n        begin // Direct3D 10.0\r\n          DXLib := LoadLibrary(D3D10dll);\r\n          if DXLib <> 0 then\r\n          try\r\n            if GetProcAddress(DXLib, 'D3D10CreateDevice') <> nil then\r\n              FDirect3DLevel := TDirect3DLevel.lDirect3D10;\r\n          finally\r\n            FreeLibrary(DXLib);\r\n          end;\r\n        end;\r\n\r\n        if FDirect3DLevel = TDirect3DLevel.lUndetermined then\r\n          FDirect3DLevel := TDirect3DLevel.lUnsupported;\r\n      end\r\n      else\r\n        FDirect3DLevel := TDirect3DLevel.lUnsupported;\r\n    end;\r\n  end;\r\n\r\n  procedure CreateDirect3DDevice;\r\n\r\n  function CreateDevice(const DriverType: D3D10_DRIVER_TYPE): HResult;\r\n  var\r\n    Flags: Cardinal;\r\n  begin\r\n    Result := S_OK;\r\n    Flags := D3D10_CREATE_DEVICE_BGRA_SUPPORT;\r\n\r\n    if FDirect3DLevel = TDirect3DLevel.lDirect3D10_1 then\r\n    begin\r\n      // Direct3D 10.1 with full hardware support\r\n      Result := D3D10CreateDevice1(nil, DriverType, 0, Flags, D3D10_FEATURE_LEVEL_10_1,\r\n        D3D10_1_SDK_VERSION, ID3D10Device1(FSharedDevice));\r\n\r\n      if Succeeded(Result) then\r\n        FDirect3DSupport := TDirect3DSupport.sDirect3D10_1;\r\n\r\n      if Failed(Result) then\r\n      begin\r\n        // Direct3D 10.1 with hardware support of 10.0\r\n        Result := D3D10CreateDevice1(nil, DriverType, 0, Flags, D3D10_FEATURE_LEVEL_10_0,\r\n          D3D10_1_SDK_VERSION, ID3D10Device1(FSharedDevice));\r\n\r\n        if Succeeded(Result) then\r\n          FDirect3DSupport := TDirect3DSupport.sDirect3D10;\r\n      end;\r\n    end;\r\n\r\n    if (FDirect3DLevel = TDirect3DLevel.lDirect3D10) or Failed(Result) then\r\n    begin\r\n      // Legacy Direct3D 10.0 (on unpatched version of Vista)\r\n      Result := D3D10CreateDevice(nil, DriverType, 0, Flags, D3D10_SDK_VERSION, FSharedDevice);\r\n\r\n      if Succeeded(Result) then\r\n      begin\r\n        FDirect3DLevel := TDirect3DLevel.lDirect3D10;\r\n        FDirect3DSupport := TDirect3DSupport.sDirect3D10Legacy;\r\n      end;\r\n    end;\r\n  end;\r\n\r\nvar\r\n  Res: HResult;\r\nbegin\r\n  if FDirect3DLevel < TDirect3DLevel.lDirect3D10 then\r\n    raise Exception.CreateFmt('Cannot determine Direct3D support level.', [ClassType]);\r\n\r\n  SaveClearFPUState;\r\n  try\r\n    {$HINTS OFF}\r\n    if {$IF COMPILERVERSION > 27}GlobalUseDXSoftware{$ELSE}GlobalUseDX10Software{$IFEND} then\r\n    {$HINTS ON}\r\n    begin\r\n      Res := CreateDevice(D3D10_DRIVER_TYPE_WARP);\r\n      if Failed(Res) then\r\n      begin\r\n        // WARP device might not be supported on pre-DX10.1 system, which may still support DX10 in hardware.\r\n        Res := CreateDevice(D3D10_DRIVER_TYPE_HARDWARE);\r\n        if Succeeded(Res) then\r\n          FDirect3DHardware := True;\r\n      end\r\n      else\r\n        FDirect3DHardware := False;\r\n    end\r\n    else\r\n    begin\r\n      Res := CreateDevice(D3D10_DRIVER_TYPE_HARDWARE);\r\n      if Failed(Res) then\r\n      begin\r\n        Res := CreateDevice(D3D10_DRIVER_TYPE_WARP);\r\n        if Succeeded(Res) then\r\n          FDirect3DHardware := False;\r\n      end\r\n      else\r\n        FDirect3DHardware := True;\r\n    end;\r\n\r\n    if Failed(Res) then\r\n      raise ECannotCreateD3DDevice.CreateFmt(SCannotCreateD3DDevice, [ClassType]);\r\n  finally\r\n    RestoreFPUState;\r\n  end;\r\nend;\r\n\r\nprocedure AcquireDXGIFactory;\r\nvar\r\n  DXGIDevice: IDXGIDevice;\r\n  DXGIAdapter: IDXGIAdapter;\r\nbegin\r\n  if Succeeded(FSharedDevice.QueryInterface(IDXGIDevice, DXGIDevice)) and (DXGIDevice <> nil) and\r\n    Succeeded(DXGIDevice.GetParent(IDXGIAdapter, DXGIAdapter)) and (DXGIAdapter <> nil) then\r\n      DXGIAdapter.GetParent(IDXGIFactory, FSharedDXGIFactory);\r\nend;\r\n\r\nprocedure CreateDirect2DFactory;\r\nvar\r\n  FactoryOptions: PD2D1FactoryOptions;\r\n  Res: HResult;\r\nbegin\r\n  FactoryOptions := nil;\r\n  Res := D2D1CreateFactory(D2D1_FACTORY_TYPE_MULTI_THREADED, ID2D1Factory, FactoryOptions, FSharedFactory);\r\n  if Failed(Res) or (FSharedFactory = nil) then\r\n    raise Exception.CreateFmt('Cannot create Direct2D Factory object for ''%s''.', [ClassType]);\r\n\r\n  if Failed(DWriteCreateFactory(DWRITE_FACTORY_TYPE_SHARED, IDWriteFactory, IUnknown(FSharedDWriteFactory))) then\r\n    raise Exception.CreateFmt('Cannot create DirectWrite Factory object for ''%s''.', [ClassType]);\r\nend;\r\n\r\nprocedure CreateSharedResources;\r\nbegin\r\n  UpdateDirect3DLevel;\r\n  if FSharedDevice = nil then\r\n  begin\r\n    CreateDirect3DDevice;\r\n    AcquireDXGIFactory;\r\n  end;\r\n  if FSharedFactory = nil then\r\n    CreateDirect2DFactory;\r\nend;\r\n\r\nfunction SharedDWriteFactory: IDWriteFactory;\r\nbegin\r\n  if FSharedDWriteFactory = nil then\r\n    CreateSharedResources;\r\n  Result := FSharedDWriteFactory;\r\nend;\r\n\r\nvar\r\n  r: TRectF;\r\n  dwVersion:Dword;\r\n  dwWindowsMajorVersion: Dword;\r\nbegin\r\n  dwVersion := GetVersion;\r\n  dwWindowsMajorVersion :=  DWORD(LOBYTE(LOWORD(dwVersion)));\r\n  if (dwWindowsMajorVersion = 5) then\r\n  begin\r\n    r := ARect;\r\n    Canvas.MeasureText(r, AText, AWordWrapping, [], TTextAlign.Leading, TTextAlign.Leading);\r\n    Result := r;\r\n  end\r\n  else\r\n  begin\r\n    Result := RectF(0, 0, 0, 0);\r\n    FLayout := nil;\r\n    if Succeeded(SharedDWriteFactory.CreateTextFormat(PChar(Canvas.Font.Family), nil, D2FontWeight(Canvas.Font.Style),\r\n      D2FontStyle(Canvas.Font.Style), DWRITE_FONT_STRETCH_NORMAL, Canvas.Font.Size, PChar(LocaleName), TextFormat)) then\r\n    try\r\n      TextFormat.SetReadingDirection(DWRITE_READING_DIRECTION_LEFT_TO_RIGHT);\r\n\r\n      if not AWordWrapping then\r\n        TextFormat.SetWordWrapping(DWRITE_WORD_WRAPPING_NO_WRAP)\r\n      else\r\n        TextFormat.SetWordWrapping(DWRITE_WORD_WRAPPING_WRAP);\r\n\r\n      FillChar(TrimOptions, SizeOf(TDwriteTrimming), 0);\r\n      TrimOptions.granularity := DWRITE_TRIMMING_GRANULARITY_NONE;\r\n\r\n      TrimmingSign := nil;\r\n      TextFormat.SetTrimming(TrimOptions, TrimmingSign);\r\n      TrimmingSign := nil;\r\n\r\n      if Succeeded(SharedDWriteFactory.CreateTextLayout(PChar(AText), AText.Length, TextFormat, ARect.Width,\r\n        ARect.Height, FLayout)) then\r\n      begin\r\n        TextRange.StartPosition := 0;\r\n        TextRange.Length := AText.Length;\r\n        FLayout.SetStrikethrough(TFontStyle.fsStrikeOut in Canvas.Font.Style, TextRange);\r\n        FLayout.SetUnderline(TFontStyle.fsUnderline in Canvas.Font.Style, TextRange);\r\n        FLayout.GetMetrics(FMetrics);\r\n        FLayout.GetOverhangMetrics(FOverhangMetrics);\r\n\r\n        Result := TRectF.Create(FMetrics.left, FMetrics.top,\r\n          FMetrics.left + {Max(}FMetrics.widthIncludingTrailingWhitespace{, FOverhangMetrics.Right + AMaxRect.Width)},\r\n          FMetrics.top + Min(FMetrics.height, FMetrics.layoutHeight));\r\n        Result.Offset(ARect.TopLeft);\r\n        if FMetrics.top < 0 then\r\n          Result.Offset(0, Abs(FMetrics.top));\r\n      end;\r\n    finally\r\n      TextFormat := nil;\r\n    end;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF FMXLIB}\r\n{$IFDEF SUPPORTSACCELERATORS}\r\nfunction TTMSFNCGraphicsContextGeneral.SupportsAcceleratorChar: Boolean;\r\nvar\r\n  ak: IFMXAcceleratorKeyRegistryService;\r\nbegin\r\n  Result := TPlatformServices.Current.SupportsPlatformService(IFMXAcceleratorKeyRegistryService, ak);\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.SaveMatrix;\r\nbegin\r\n  if not FMatrixSaved then\r\n  begin\r\n    FMatrixSaved := True;\r\n    FMatrix := Canvas.Matrix;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.RestoreMatrix;\r\nbegin\r\n  if FMatrixSaved then\r\n  begin\r\n    FMatrixSaved := False;\r\n    Canvas.SetMatrix(FMatrix);\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\n{$HINTS OFF}\r\n{$IFDEF CMNWEBLIB}\r\n{$IFDEF WEBLIB}\r\nprocedure TTMSFNCGraphicsContextGeneral.DrawRotatedText(ACanvas: TCanvas; ARect: TRectF; AText: String; AAngle: Single; AHorizontalAlign, AVerticalAlign: TTMSFNCGraphicsTextAlign);\r\n{$ENDIF}\r\n{$IFNDEF WEBLIB}\r\nprocedure TTMSFNCGraphicsContextGeneral.DrawRotatedText(ACanvas: TCanvas; ARect: TRect; AText: String; AAngle: Single; AHorizontalAlign, AVerticalAlign: TTMSFNCGraphicsTextAlign);\r\n{$ENDIF}\r\nvar\r\n  tw, th: Single;\r\n  so: Integer;\r\n  s: String;\r\n  xs, ys, angle: Single;\r\n  {$IFDEF WEBLIB}\r\n  ha: TAlignment;\r\n  va: TVerticalAlignment;\r\n  r: TCanvasRectF;\r\n  {$ENDIF}\r\nbegin\r\n  s := AText;\r\n  angle := -10 * AAngle;\r\n  {$IFDEF CMNLIB}\r\n  so := ACanvas.Font.Orientation;\r\n  ACanvas.Font.Orientation := Round(angle);\r\n  {$ENDIF}\r\n\r\n  xs := ARect.Left;\r\n  ys := ARect.Top;\r\n  tw := ACanvas.TextWidth(s);\r\n  th := ACanvas.TextHeight(s);\r\n\r\n  {$IFDEF CMNLIB}\r\n  if angle < 0 then\r\n  begin\r\n    case AHorizontalAlign of\r\n      gtaCenter: ys := ys + (ARect.Bottom - ARect.Top - tw) / 2;\r\n      gtaTrailing: ys := ys + (ARect.Bottom - ARect.Top - tw);\r\n    end;\r\n\r\n    case AVerticalAlign of\r\n      gtaCenter: xs := xs + (ARect.Right - ARect.Left) / 2 + th / 2;\r\n      gtaLeading: xs := xs + (ARect.Right - ARect.Left);\r\n      gtaTrailing: xs := xs + th;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    case AHorizontalAlign of\r\n      gtaCenter: ys := ys + (ARect.Bottom - ARect.Top - tw) / 2 + tw;\r\n      gtaLeading: ys := ys + (ARect.Bottom - ARect.Top);\r\n      gtaTrailing: ys := ys + tw;\r\n    end;\r\n\r\n    case AVerticalAlign of\r\n      gtaCenter: xs := xs + (ARect.Right - ARect.Left) / 2 - th / 2;\r\n      gtaTrailing: xs := xs + (ARect.Right - ARect.Left - th);\r\n    end;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF WEBLIB}\r\n  case AHorizontalAlign of\r\n    gtaLeading: ha := taLeftJustify;\r\n    gtaCenter: ha := taCenter;\r\n    gtaTrailing: ha := taRightJustify;\r\n  end;\r\n\r\n  case AVerticalAlign of\r\n    gtaCenter: va := taVerticalCenter;\r\n    gtaLeading: va := taAlignTop;\r\n    gtaTrailing: va := taAlignBottom;\r\n  end;\r\n\r\n  r := CreateCanvasRectF(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom);\r\n\r\n  ACanvas.TextRect(r, s, False, False, ha, va);\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  ACanvas.TextOut(Round(xs), Round(ys), s);\r\n  {$ENDIF}\r\n  {$IFDEF CMNLIB}\r\n  ACanvas.Font.Orientation := so;\r\n  {$ENDIF}\r\nend;\r\n{$ENDIF}\r\n{$HINTS ON}\r\n\r\n{ TTMSFNCGraphicsContext }\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.BeginPrinting;\r\nbegin\r\n  FPrinting := True;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.BeginScene;\r\nbegin\r\n  {$IFDEF FMXWEBLIB}\r\n  if Assigned(Canvas) then\r\n  begin\r\n    Canvas.BeginScene;\r\n    {$IFDEF FMXLIB}\r\n    Canvas.Clear(gcNull);\r\n    {$ELSE}\r\n    Canvas.Clear;\r\n    {$ENDIF}\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\n{$IFDEF SUPPORTSACCELERATORS}\r\nprocedure ExtractAcceleratorKey(const AText: string; out Key: Char; out KeyIndex: Integer);\r\nconst\r\n  AcceleratorChar = '&';\r\nvar\r\n  I: Integer;\r\n  LIndexOfAcceleratorChar: Integer;\r\n  LCorrection: Integer;\r\nbegin\r\n  LIndexOfAcceleratorChar := -1;\r\n  LCorrection := 0;\r\n  I := Low(AText);\r\n  while I < High(AText) do\r\n  begin\r\n    if (AText[I] = AcceleratorChar) and not (AText[I + 1].IsWhiteSpace) then\r\n      if AText[I + 1] <> AcceleratorChar then\r\n      begin\r\n        LIndexOfAcceleratorChar := I;\r\n        Break;\r\n      end\r\n      else\r\n      begin\r\n        Inc(LCorrection);\r\n        Inc(I);\r\n      end;\r\n    Inc(I);\r\n  end;\r\n\r\n  if LIndexOfAcceleratorChar >= 0 then\r\n  begin\r\n    Key := AText[LIndexOfAcceleratorChar + Low(string)].ToLower;\r\n    KeyIndex := LIndexOfAcceleratorChar - LCorrection - Low(string);\r\n  end\r\n  else\r\n  begin\r\n    Key := #0;;\r\n    KeyIndex := -1;\r\n  end;\r\nend;\r\n\r\nfunction ValidateUnderlinePoints(ACanvas: TCanvas; ALayout: TTextLayout; AKeyIndex: Integer; var AUnderlineBeginPoint: TPointF; var AUnderlineEndPoint: TPointF): Boolean;\r\nvar\r\n  LRange: TTextRange;\r\n  LBounds: TRegion;\r\n  LBaseLine: Single;\r\n  LRect: TRectF;\r\nbegin\r\n  LBaseline := TFontGlyphManager.Current.GetBaseline(ALayout.Font, ACanvas.Scale);\r\n  LRange.Pos := AKeyIndex;\r\n  LRange.Length := 1;\r\n  LBounds := ALayout.RegionForRange(LRange);\r\n  LRect := LBounds[0];\r\n  LRect.Intersect(ALayout.TextRect);\r\n  if LRect.IsEmpty then\r\n    Exit(False);\r\n  AUnderlineBeginPoint := TPointF.Create(LRect.Left, LRect.Top + LBaseLine);\r\n  AUnderlineEndPoint := TPointF.Create(LRect.Right, LRect.Top + LBaseLine);\r\n\r\n  // Perform some corrections depending on the canvas type\r\n  AUnderlineBeginPoint.Y := Ceil(AUnderlineBeginPoint.Y) + 1.5;\r\n  AUnderlineEndPoint.Y := Ceil(AUnderlineEndPoint.Y) + 1.5;\r\n\r\n  if GlobalUseGPUCanvas then\r\n  begin\r\n    AUnderlineBeginPoint.X := AUnderlineBeginPoint.X + 0.5;\r\n    AUnderlineEndPoint.X := AUnderlineEndPoint.X - 0.5;\r\n  end\r\n  else\r\n    if GlobalUseDirect2D then\r\n    begin\r\n      AUnderlineBeginPoint.X := AUnderlineBeginPoint.X + 1;\r\n      AUnderlineEndPoint.X := AUnderlineEndPoint.X - 1;\r\n    end\r\n    else\r\n    begin\r\n      AUnderlineBeginPoint.X := AUnderlineBeginPoint.X + 1;\r\n      AUnderlineEndPoint.X := AUnderlineEndPoint.X - 2;\r\n    end;\r\n\r\n  if AUnderlineBeginPoint.X <= AUnderlineEndPoint.X then\r\n    AUnderlineEndPoint.X := AUnderlineEndPoint.X + 1;\r\n\r\n  Result := True;\r\nend;\r\n\r\nprocedure DrawUnderline(ACanvas: TCanvas; ALayout: TTextLayout; AKeyIndex: Integer; const AColor: TAlphaColor; const AnOpacity: Single);\r\nvar\r\n  ulb, ule: TPointF;\r\n  b: TStrokeBrush;\r\nbegin\r\n  if not ValidateUnderlinePoints(ACanvas, ALayout, AKeyIndex, ulb, ule) then\r\n    Exit;\r\n\r\n  b := TStrokeBrush.Create(TBrushKind.Solid, AColor);\r\n  try\r\n    ACanvas.DrawLine(ulb, ule, AnOpacity, b);\r\n  finally\r\n    b.Free;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TTMSFNCGraphicsContextGeneral.CalculateText(AText: string; ARect: TRectF;\r\n  AWordWrapping: Boolean): TRectF;\r\n{$IFDEF CMNWEBLIB}\r\nvar\r\n  {$IFDEF VCLLIB}\r\n  r: TRect;\r\n  dstyle: TTextFormat;\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  r: TRect;\r\n  dstyle: Word;\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  r: TCanvasRectF;\r\n  {$ENDIF}\r\n{$ENDIF}\r\n{$IFDEF FMXLIB}\r\nvar\r\n  s: string;\r\n  ki: Integer;\r\n  k: Char;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Result := ARect;\r\n  s := AText;\r\n  {$IFDEF SUPPORTSACCELERATORS}\r\n  ki := -1;\r\n  if FShowAcceleratorChar and SupportsAcceleratorChar then\r\n  begin\r\n    ExtractAcceleratorKey(s, k, ki);\r\n    s := DelAmp(s);\r\n  end;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF FMXWINDOWS}\r\n  Result := CalculateTextWin(s, Result, AWordWrapping)\r\n  {$ELSE}\r\n  Canvas.MeasureText(Result, s, AWordWrapping, [], TTextAlign.Leading, TTextAlign.Leading)\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  {$IFDEF WEBLIB}\r\n  r := CreateCanvasRectF(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom);\r\n  r := Canvas.TextRect(r, AText, AWordWrapping, True);\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  r := Rect(Round(ARect.Left), Round(ARect.Top), Round(ARect.Right), Round(ARect.Bottom));\r\n  dstyle := [tfCalcRect];\r\n  if AWordWrapping then\r\n    dstyle := dstyle + [tfWordBreak]\r\n  else\r\n    dstyle := dstyle + [tfSingleLine];\r\n\r\n  if not FShowAcceleratorChar then\r\n    dstyle := dstyle + [tfNoPrefix];\r\n\r\n  Canvas.TextRect(r, AText, dstyle);\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  r := Rect(Round(ARect.Left), Round(ARect.Top), Round(ARect.Right), Round(ARect.Bottom));\r\n  dstyle := DT_CALCRECT;\r\n  if AWordWrapping then\r\n    dstyle := dstyle or DT_WORDBREAK\r\n  else\r\n    dstyle := dstyle or DT_SINGLELINE;\r\n\r\n  if not FShowAcceleratorChar then\r\n    dstyle := dstyle or DT_NOPREFIX;\r\n\r\n  LCLIntF.DrawText(Canvas.Handle, PChar(AText), Length(AText), r, dstyle);\r\n  {$ENDIF}\r\n  Result := RectF(r.Left, r.Top, r.Right, r.Bottom);\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.ClipPath(APath: TTMSFNCGraphicsPath);\r\nbegin\r\n  if Assigned(APath) then\r\n  begin\r\n    {$IFDEF WEBLIB}\r\n    Canvas.PathBegin;\r\n    ConvertToPath(APath);\r\n    Canvas.Clip;\r\n    {$ELSE}\r\n    ClipRect(APath.GetBounds);\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.ClipRect(ARect: TRectF);\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Canvas.IntersectClipRect(ARect);\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  {$IFDEF VCLLIB}\r\n  IntersectClipRect(Canvas.Handle, Round(ARect.Left), Round(ARect.Top), Round(ARect.Right), Round(ARect.Bottom));\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  Canvas.Clipping := True;\r\n  Canvas.ClipRect := Rect(Round(ARect.Left), Round(ARect.Top), Round(ARect.Right), Round(ARect.Bottom));\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Canvas.ClipRect := CreateCanvasRectF(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom);\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCGraphicsContextGeneral.CreatePath: Pointer;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Result := TPathData.Create;\r\n  {$ENDIF}\r\n  {$IFDEF CMNLIB}\r\n  {$IFDEF MSWINDOWS}\r\n  Result := nil;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Result := nil;\r\n  {$ENDIF}\r\nend;\r\n\r\ndestructor TTMSFNCGraphicsContextGeneral.Destroy;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  if Assigned(FTextLayout) then\r\n  begin\r\n    FTextLayout.Free;\r\n    FTextLayout := nil;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.DrawArc(AStroke: TTMSFNCGraphicsStroke; ACenter, ARadius: TPointF; AStartAngle, ASweepAngle: Single);\r\n{$IFDEF CMNWEBLIB}\r\nvar\r\n  {$IFDEF CMNLIB}\r\n  x, y, xs, ys, sx, sy, sxs, sys: Integer;\r\n  {$ENDIF}\r\n  bs: TBrushStyle;\r\n  c: TTMSFNCGraphicsColor;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Canvas.DrawArc(ACenter, ARadius, AStartAngle, ASweepAngle, AStroke.Opacity);\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  {$IFNDEF WEBLIB}\r\n  sx := Floor(ACenter.X - ARadius.X);\r\n  sy := Floor(ACenter.Y - ARadius.Y);\r\n  sxs := Floor(ACenter.X + ARadius.X);\r\n  sys := Floor(ACenter.Y + ARadius.Y);\r\n\r\n  x := Floor(ACenter.X + (ARadius.X * COS(DegToRad(-AStartAngle - ASweepAngle))));\r\n  y := Floor(ACenter.Y - (ARadius.Y * SIN(DegToRad(-AStartAngle - ASweepAngle))));\r\n  xs := Floor(ACenter.X + (ARadius.X * COS(DegToRad(-AStartAngle))));\r\n  ys := Floor(ACenter.Y - (ARadius.Y * SIN(DegToRad(- AStartAngle))));\r\n  {$ENDIF}\r\n  c := Canvas.Brush.Color;\r\n  bs := Canvas.Brush.Style;\r\n  Canvas.Brush.Style := bsClear;\r\n  {$IFNDEF WEBLIB}\r\n  Canvas.Arc(sx, sy, sxs, sys, x, y, xs, ys);\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Canvas.AngleArc(ACenter.X, ACenter.Y, ARadius.X, DegToRad(AStartAngle), DegToRad(ASweepAngle));\r\n  {$ENDIF}\r\n  Canvas.Brush.Style := bs;\r\n  Canvas.Brush.Color := c;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.DrawBitmap(ABitmap: TTMSFNCDrawBitmap; ASrcRect, ADstRect: TRectF; AOpacity: Single);\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Canvas.DrawBitmap(ABitmap, ASrcRect, ADstRect, AOpacity, True);\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  {$IFDEF WEBLIB}\r\n  Canvas.StretchDraw(CreateCanvasRectF(ADstRect.Left, ADstRect.Top, ADstRect.Right, ADstRect.Bottom), ABitmap);\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  Canvas.StretchDraw(Bounds(Round(ADstRect.Left), Round(ADstRect.Top), Round(ADstRect.Right - ADstRect.Left), Round(ADstRect.Bottom - ADstRect.Top)), ABitmap);\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.DrawEllipse(AStroke: TTMSFNCGraphicsStroke; ARect: TRectF;\r\n  AModifyRectMode: TTMSFNCGraphicsModifyRectMode);\r\nvar\r\n{$IFDEF FMXLIB}\r\n  r: TRectF;\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\n{$IFDEF WEBLIB}\r\n  r: TCanvasRectF;\r\n{$ENDIF}\r\n{$IFNDEF WEBLIB}\r\n  r: TRect;\r\n{$ENDIF}\r\n  bs: TBrushStyle;\r\n  c: TTMSFNCGraphicsColor;\r\n{$ENDIF}\r\nbegin\r\n  ARect := ModifyRect(ARect, AModifyRectMode);\r\n  {$IFDEF FMXLIB}\r\n  r := ARect;\r\n  Canvas.DrawEllipse(r, AStroke.Opacity);\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  {$IFDEF WEBLIB}\r\n  r := CreateCanvasRectF(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom);\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  r := Rect(Round(ARect.Left), Round(ARect.Top), Round(ARect.Right), Round(ARect.Bottom));\r\n  {$ENDIF}\r\n  c := Canvas.Brush.Color;\r\n  bs := Canvas.Brush.Style;\r\n  Canvas.Brush.Style := bsClear;\r\n  Canvas.Ellipse(r);\r\n  Canvas.Brush.Style := bs;\r\n  Canvas.Brush.Color := c;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.DrawFocusPath(AStroke: TTMSFNCGraphicsStroke; APath: TTMSFNCGraphicsPath; AColor: TTMSFNCGraphicsColor);\r\n{$IFDEF CMNWEBLIB}\r\nvar\r\n  bs: TBrushStyle;\r\n  c: TTMSFNCGraphicsColor;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Canvas.Stroke.Kind := TBrushKind.Solid;\r\n  Canvas.Stroke.Color := AColor;\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 31}\r\n  Canvas.Stroke.Dash := TStrokeDash.Dot;\r\n  {$ELSE}\r\n  Canvas.StrokeDash := TStrokeDash.Dot;\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  DrawPath(AStroke, APath);\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  c := Canvas.Brush.Color;\r\n  bs := Canvas.Brush.Style;\r\n  Canvas.Brush.Style := bsClear;\r\n  Canvas.Pen.Color := AColor;\r\n  StartSpecialPen;\r\n  DrawPath(AStroke, APath);\r\n  StopSpecialPen;\r\n  Canvas.Brush.Color := c;\r\n  Canvas.Brush.Style := bs;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.DrawFocusRectangle(AStroke: TTMSFNCGraphicsStroke; ARect: TRectF; AColor: TTMSFNCGraphicsColor; AModifyRectMode: TTMSFNCGraphicsModifyRectMode);\r\nvar\r\n{$IFDEF FMXLIB}\r\n  r: TRectF;\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\n{$IFDEF WEBLIB}\r\n  r: TCanvasRectF;\r\n{$ENDIF}\r\n{$IFNDEF WEBLIB}\r\n  r: TRect;\r\n{$ENDIF}\r\n  c: TTMSFNCGraphicsColor;\r\n  bs: TBrushStyle;\r\n{$ENDIF}\r\nbegin\r\n  ARect := ModifyRect(ARect, AModifyRectMode);\r\n  {$IFDEF FMXLIB}\r\n  r := ARect;\r\n  Canvas.Stroke.Thickness := 1;\r\n  Canvas.Stroke.Kind := TBrushKind.Solid;\r\n  Canvas.Stroke.Color := AColor;\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 31}\r\n  Canvas.Stroke.Dash := TStrokeDash.Dot;\r\n  {$ELSE}\r\n  Canvas.StrokeDash := TStrokeDash.Dot;\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  Canvas.DrawRect(r, 0, 0, AllCorners, 1);\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  {$IFDEF WEBLIB}\r\n  r := CreateCanvasRectF(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom);\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  r := Rect(Round(ARect.Left), Round(ARect.Top), Round(ARect.Right), Round(ARect.Bottom));\r\n  {$ENDIF}\r\n  c := Canvas.Brush.Color;\r\n  bs := Canvas.Brush.Style;\r\n  Canvas.Brush.Style := bsClear;\r\n  Canvas.Pen.Color := AColor;\r\n  StartSpecialPen;\r\n  Canvas.Rectangle(r);\r\n  StopSpecialPen;\r\n  Canvas.Brush.Color := c;\r\n  Canvas.Brush.Style := bs;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.DrawLine(AStroke: TTMSFNCGraphicsStroke; AFromPoint, AToPoint: TPointF;\r\n  AModifyPointModeFrom, AModifyPointModeTo: TTMSFNCGraphicsModifyPointMode);\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  AFromPoint := ModifyPoint(AFromPoint, AModifyPointModeFrom);\r\n  AToPoint := ModifyPoint(AToPoint, AModifyPointModeTo);\r\n  Canvas.DrawLine(AFromPoint, AToPoint, AStroke.Opacity);\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  {$IFDEF WEBLIB}\r\n  Canvas.MoveTo(AFromPoint.X, AFromPoint.Y);\r\n  Canvas.LineTo(AToPoint.X, AToPoint.Y);\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  Canvas.MoveTo(Round(AFromPoint.X), Round(AFromPoint.Y));\r\n  Canvas.LineTo(Round(AToPoint.X), Round(AToPoint.Y));\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.DrawPath(AStroke: TTMSFNCGraphicsStroke; APath: TTMSFNCGraphicsPath;\r\n  APathMode: TTMSFNCGraphicsPathDrawMode = pdmPolygon);\r\nvar\r\n  p: TTMSFNCGraphicsPathPolygon;\r\n  {$IFDEF FMXLIB}\r\n  pth: TPathData;\r\n  {$ENDIF}\r\nbegin\r\n  if Assigned(APath) then\r\n  begin\r\n    if APathMode = pdmPath then\r\n    begin\r\n      {$IFDEF FMXLIB}\r\n      pth := TPathData(ConvertToPath(APath));\r\n      try\r\n        Canvas.DrawPath(pth, AStroke.Opacity);\r\n      finally\r\n        pth.Free;\r\n      end;\r\n      {$ENDIF}\r\n      {$IFDEF CMNLIB}\r\n      {$IFDEF MSWINDOWS}\r\n      BeginPath(Canvas.Handle);\r\n      ConvertToPath(APath);\r\n      EndPath(Canvas.Handle);\r\n      Windows.StrokePath(Canvas.Handle);\r\n      AbortPath(Canvas.Handle);\r\n      {$ENDIF}\r\n      {$ENDIF}\r\n      {$IFDEF WEBLIB}\r\n      Canvas.PathBegin;\r\n      ConvertToPath(APath);\r\n      Canvas.PathStroke;\r\n      {$ENDIF}\r\n    end\r\n    else\r\n    begin\r\n      SetLength(p, 0);\r\n      APath.FlattenToPolygon(p);\r\n      case APathMode of\r\n        pdmPolygon: DrawPolygon(AStroke, p);\r\n        pdmPolyline: DrawPolyline(AStroke, p);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.DrawPolygon(AStroke: TTMSFNCGraphicsStroke; APolygon: TTMSFNCGraphicsPathPolygon);\r\n{$IFDEF CMNWEBLIB}\r\nvar\r\n{$IFDEF WEBLIB}\r\n  pts: array of TCanvasPointF;\r\n{$ENDIF}\r\n{$IFNDEF WEBLIB}\r\n  pts: array of TPoint;\r\n{$ENDIF}\r\n  I: Integer;\r\n  bs: TBrushStyle;\r\n  c: TTMSFNCGraphicsColor;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Canvas.DrawPolygon(TPolygon(APolygon), AStroke.Opacity);\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  SetLength(pts, Length(APolygon));\r\n  for I := 0 to Length(APolygon) - 1 do\r\n  begin\r\n    {$IFDEF WEBLIB}\r\n    pts[I] := CreateCanvasPointF(APolygon[I].X, APolygon[I].Y);\r\n    {$ENDIF}\r\n    {$IFNDEF WEBLIB}\r\n    pts[I] := Point(Round(APolygon[I].X), Round(APolygon[I].Y));\r\n    {$ENDIF}\r\n  end;\r\n\r\n  c := Canvas.Brush.Color;\r\n  bs := Canvas.Brush.Style;\r\n  Canvas.Brush.Style := bsClear;\r\n  Canvas.Polygon(pts);\r\n  Canvas.Brush.Style := bs;\r\n  Canvas.Brush.Color := c;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.DrawPolyline(AStroke: TTMSFNCGraphicsStroke; APolyline: TTMSFNCGraphicsPathPolygon);\r\nvar\r\n  I: Integer;\r\n{$IFDEF CMNWEBLIB}\r\n{$IFDEF WEBLIB}\r\n  pts: array of TCanvasPointF;\r\n{$ENDIF}\r\n{$IFNDEF WEBLIB}\r\n  pts: array of TPoint;\r\n{$ENDIF}\r\n  bs: TBrushStyle;\r\n  c: TTMSFNCGraphicsColor;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  for I := 0 to High(APolyline) - 1 do\r\n    DrawLine(AStroke, APolyline[I], APolyline[I + 1]);\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  SetLength(pts, Length(APolyline));\r\n  for I := 0 to Length(APolyline) - 1 do\r\n  begin\r\n    {$IFDEF WEBLIB}\r\n    pts[I] := CreateCanvasPointF(APolyline[I].X, APolyline[I].Y);\r\n    {$ENDIF}\r\n    {$IFNDEF WEBLIB}\r\n    pts[I] := Point(Round(APolyline[I].X), Round(APolyline[I].Y));\r\n    {$ENDIF}\r\n  end;\r\n\r\n  c := Canvas.Brush.Color;\r\n  bs := Canvas.Brush.Style;\r\n  Canvas.Brush.Style := bsClear;\r\n  Canvas.Polyline(pts);\r\n  Canvas.Brush.Style := bs;\r\n  Canvas.Brush.Color := c;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.DrawRect(AStroke: TTMSFNCGraphicsStroke; ARect: TRectF; ASides: TTMSFNCGraphicsSides; AModifyRectMode: TTMSFNCGraphicsModifyRectMode);\r\nvar\r\n{$IFDEF FMXWEBLIB}\r\n  r: TRectF;\r\n{$ENDIF}\r\n{$IFDEF CMNLIB}\r\n  r: TRect;\r\n{$ENDIF}\r\nbegin\r\n  ARect := ModifyRect(ARect, AModifyRectMode);\r\n  {$IFDEF FMXWEBLIB}\r\n  r := ARect;\r\n  if gsTop in ASides then\r\n    DrawLine(AStroke, PointF(r.Left, r.Top), PointF(r.Right, r.Top));\r\n  if gsLeft in ASides then\r\n    DrawLine(AStroke, PointF(r.Left, r.Top), PointF(r.Left, r.Bottom));\r\n  if gsBottom in ASides then\r\n    DrawLine(AStroke, PointF(r.Left, r.Bottom), PointF(r.Right, r.Bottom));\r\n  if gsRight in ASides then\r\n    DrawLine(AStroke, PointF(r.Right, r.Top), PointF(r.Right, r.Bottom));\r\n  {$ENDIF}\r\n  {$IFDEF CMNLIB}\r\n  r := Rect(Round(ARect.Left), Round(ARect.Top), Round(ARect.Right), Round(ARect.Bottom));\r\n  if gsTop in ASides then\r\n    DrawLine(AStroke, PointF(r.Left, r.Top), PointF(r.Right - 1, r.Top));\r\n  if gsLeft in ASides then\r\n    DrawLine(AStroke, PointF(r.Left, r.Top), PointF(r.Left, r.Bottom - 1));\r\n  if gsBottom in ASides then\r\n    DrawLine(AStroke, PointF(r.Left, r.Bottom - 1), PointF(r.Right - 1, r.Bottom - 1));\r\n  if gsRight in ASides then\r\n    DrawLine(AStroke, PointF(r.Right - 1, r.Top), PointF(r.Right - 1, r.Bottom));\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.DrawRoundRect(AStroke: TTMSFNCGraphicsStroke; ARect: TRectF; ARounding: Single;\r\n  ACorners: TTMSFNCGraphicsCorners; AModifyRectMode: TTMSFNCGraphicsModifyRectMode);\r\nvar\r\n{$IFDEF FMXLIB}\r\n  r: TRectF;\r\n  c: TCorners;\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\n  {$IFDEF WEBLIB}\r\n  r, rg: TCanvasRectF;\r\n  rc: Single;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  r, rg: TRect;\r\n  rc: Integer;\r\n  {$ENDIF}\r\n  cl: TTMSFNCGraphicsColor;\r\n  bs: TBrushStyle;\r\n\r\n  {$IFDEF WEBLIB}\r\n  procedure CanvasArc(ACanvas: TCanvas; Center, Radius: TPointF; StartAngle, SweepAngle: Integer);\r\n  begin\r\n    ACanvas.AngleArc(Center.X, Center.Y, Radius.X, DegToRad(StartAngle), DegToRad(SweepAngle));\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  procedure CanvasArc(ACanvas: TCanvas; Center, Radius: TPoint; StartAngle, SweepAngle: Integer);\r\n  var\r\n    sx, sy, sxs, sys, x, y, xs, ys: Integer;\r\n  begin\r\n    sx := Center.X - Radius.X;\r\n    sy := Center.Y - Radius.Y;\r\n    sxs := Center.X + Radius.X;\r\n    sys := Center.Y + Radius.Y;\r\n\r\n    x := Center.X + Round(Radius.X * COS(DegToRad(-StartAngle - SweepAngle)));\r\n    y := Center.Y - Round(Radius.Y * SIN(DegToRad(-StartAngle - SweepAngle)));\r\n    xs := Center.X + Round(Radius.X * COS(DegToRad(-StartAngle)));\r\n    ys := Center.Y - Round(Radius.Y * SIN(DegToRad(- StartAngle)));\r\n\r\n    ACanvas.Arc(sx, sy, sxs, sys, x, y, xs, ys);\r\n  {$ENDIF}\r\n  end;\r\n{$ENDIF}\r\nbegin\r\n  ARect := ModifyRect(ARect, AModifyRectMode);\r\n  {$IFDEF FMXLIB}\r\n  r := ARect;\r\n\r\n  c := [];\r\n  if gcTopLeft in ACorners then\r\n    c := c + [TCorner.TopLeft];\r\n\r\n  if gcTopRight in ACorners then\r\n    c := c + [TCorner.TopRight];\r\n\r\n  if gcBottomLeft in ACorners then\r\n    c := c + [TCorner.BottomLeft];\r\n\r\n  if gcBottomRight in ACorners then\r\n    c := c + [TCorner.BottomRight];\r\n\r\n  Canvas.DrawRect(r, ARounding, ARounding, c, AStroke.Opacity);\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  {$IFDEF WEBLIB}\r\n  r := CreateCanvasRectF(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom);\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  r := Rect(Round(ARect.Left), Round(ARect.Top), Round(ARect.Right), Round(ARect.Bottom));\r\n  {$ENDIF}\r\n\r\n  rg := r;\r\n  rg.Bottom := rg.Bottom - 1;\r\n  rg.Right := rg.Right - 1;\r\n\r\n  cl := Canvas.Brush.Color;\r\n  bs := Canvas.Brush.Style;\r\n  Canvas.Brush.Style := bsClear;\r\n\r\n  rc := Round(ARounding);\r\n  if ACorners = [gcTopLeft, gcTopRight, gcBottomLeft, gcBottomRight] then\r\n    Canvas.RoundRect(r, rc * 2, rc * 2)\r\n  else if ACorners = [] then\r\n    Canvas.Rectangle(r)\r\n  else\r\n  begin\r\n    {$IFNDEF WEBLIB}\r\n    r.Right := r.Right - 1;\r\n    r.Bottom := r.Bottom - 1;\r\n    rc := rc - 1;\r\n    {$ENDIF}\r\n    if gcBottomLeft in ACorners then\r\n    begin\r\n      Canvas.MoveTo(r.Left + rc, r.Bottom);\r\n      {$IFDEF WEBLIB}\r\n      CanvasArc(Canvas, PointF(r.Left + rc, r.Bottom - rc), PointF(rc, rc), -270, 90);\r\n      {$ENDIF}\r\n      {$IFNDEF WEBLIB}\r\n      CanvasArc(Canvas, Point(r.Left + rc, r.Bottom - rc), Point(rc, rc), -270, 90);\r\n      {$ENDIF}\r\n      Canvas.MoveTo(r.Left, r.Bottom - rc);\r\n    end\r\n    else\r\n    begin\r\n      Canvas.MoveTo(r.Left, r.Bottom);\r\n    end;\r\n\r\n    if gcTopLeft in ACorners then\r\n    begin\r\n      {$IFDEF WEBLIB}\r\n      Canvas.LineTo(r.Left, r.Top + rc);\r\n      CanvasArc(Canvas, PointF(r.Left + rc, r.Top + rc), PointF(rc, rc), -180, 90);\r\n      {$ENDIF}\r\n      {$IFNDEF WEBLIB}\r\n      Canvas.LineTo(r.Left, r.Top + rc - 2);\r\n      CanvasArc(Canvas, Point(r.Left + rc, r.Top + rc), Point(rc, rc), -180, 90);\r\n      {$ENDIF}\r\n      Canvas.MoveTo(r.Left + rc, r.Top);\r\n    end\r\n    else\r\n      Canvas.LineTo(r.Left, r.Top);\r\n\r\n    if gcTopRight in ACorners then\r\n    begin\r\n      Canvas.LineTo(r.Right - rc, r.Top);\r\n      {$IFDEF WEBLIB}\r\n      CanvasArc(Canvas, PointF(r.Right - rc, r.Top + rc), PointF(rc, rc), -90, 90);\r\n      {$ENDIF}\r\n      {$IFNDEF WEBLIB}\r\n      CanvasArc(Canvas, Point(r.Right - rc, r.Top + rc), Point(rc, rc), -90, 90);\r\n      {$ENDIF}\r\n      Canvas.MoveTo(r.Right, r.Top + rc);\r\n    end\r\n    else\r\n      Canvas.LineTo(r.Right, r.Top);\r\n\r\n    if gcBottomRight in ACorners then\r\n    begin\r\n      {$IFDEF WEBLIB}\r\n      Canvas.LineTo(r.Right, r.Bottom - rc);\r\n      CanvasArc(Canvas, PointF(r.Right - rc, r.Bottom - rc), PointF(rc, rc), 0, 90);\r\n      {$ENDIF}\r\n      {$IFNDEF WEBLIB}\r\n      Canvas.LineTo(r.Right, r.Bottom - rc + 1);\r\n      CanvasArc(Canvas, Point(r.Right - rc, r.Bottom - rc + 1), Point(rc, rc), 0, 90);\r\n      {$ENDIF}\r\n      Canvas.MoveTo(r.Right - rc, r.Bottom);\r\n    end\r\n    else\r\n    begin\r\n      Canvas.LineTo(r.Right, r.Bottom);\r\n    end;\r\n\r\n    if gcBottomLeft in ACorners then\r\n    begin\r\n      {$IFDEF WEBLIB}\r\n      Canvas.LineTo(r.Left + rc, r.Bottom)\r\n      {$ENDIF}\r\n      {$IFNDEF WEBLIB}\r\n      Canvas.LineTo(r.Left + rc - 2, r.Bottom)\r\n      {$ENDIF}\r\n    end\r\n    else\r\n      Canvas.LineTo(r.Left, r.Bottom);\r\n  end;\r\n\r\n  Canvas.Brush.Color := cl;\r\n  Canvas.Brush.Style := bs;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.DrawText(AText: string; ARect: TRectF;\r\n  AWordWrapping: Boolean; AHorizontalAlign,\r\n  AVerticalAlign: TTMSFNCGraphicsTextAlign;\r\n  ATrimming: TTMSFNCGraphicsTextTrimming; AAngle: Single);\r\n{$IFDEF CMNWEBLIB}\r\nvar\r\n  rcalc: TRectF;\r\n  rh: Integer;\r\n  {$IFDEF WEBLIB}\r\n  r: TRectF;\r\n  st: TTMSFNCGraphicsSaveState;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  r: TRect;\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  {%H-}dstyle: TTextStyle;\r\n  {$IFNDEF MSWINDOWS}       \r\n  crr: TRect;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  dstyle: TTextFormat;\r\n  {$ENDIF}\r\n  c: TTMSFNCGraphicsColor;\r\n  bs: TBrushStyle;\r\n{$ENDIF}\r\n{$IFDEF FMXLIB}\r\nvar\r\n  ha, va: TTextAlign;\r\n  s: string;\r\n  {$IFDEF SUPPORTSACCELERATORS}\r\n  k: Char;\r\n  ki: Integer;\r\n  {$ENDIF}\r\n\r\n{$ENDIF}\r\n\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  if FPrinting then\r\n  begin\r\n    ha := TTextAlign.Leading;\r\n    va := TTextAlign.Leading;\r\n\r\n    case AHorizontalAlign of\r\n      gtaCenter: ha := TTextAlign.Center;\r\n      gtaTrailing: ha := TTextAlign.Trailing;\r\n    end;\r\n\r\n    case AVerticalAlign of\r\n      gtaCenter: va := TTextAlign.Center;\r\n      gtaTrailing: va := TTextAlign.Trailing;\r\n    end;\r\n\r\n    Canvas.FillText(ARect, AText, AWordWrapping, 255, [], ha, va);\r\n\r\n    Exit;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF FMXLIB}\r\n  s := AText;\r\n  {$IFDEF SUPPORTSACCELERATORS}\r\n  ki := -1;\r\n  if FShowAcceleratorChar and SupportsAcceleratorChar then\r\n  begin\r\n    ExtractAcceleratorKey(s, k, ki);\r\n    s := DelAmp(s);\r\n  end;\r\n  {$ENDIF}\r\n\r\n  if not Assigned(FTextLayout) then\r\n    FTextLayout := TTextLayoutManager.DefaultTextLayout.Create(Canvas);\r\n\r\n  FTextLayout.BeginUpdate;\r\n  try\r\n    FTextLayout.TopLeft := PointF(Round(ARect.Left), Round(ARect.Top));\r\n    FTextLayout.Text := s;\r\n    FTextLayout.MaxSize := PointF(Round(ARect.Width), Round(ARect.Height));\r\n    FTextLayout.WordWrap := AWordWrapping;\r\n    FTextLayout.Opacity := 1;\r\n    FTextLayout.HorizontalAlign := TTextAlign(Integer(AHorizontalAlign));\r\n    FTextLayout.VerticalAlign := TTextAlign(Integer(AVerticalAlign));\r\n    FTextLayout.Font.Assign(Canvas.Font);\r\n    FTextLayout.Color := Canvas.Fill.Color;\r\n    if not AWordWrapping then\r\n      FTextLayout.Trimming := TTextTrimming(Integer(ATrimming))\r\n    else\r\n      FTextLayout.Trimming := TTextTrimming.None;\r\n  finally\r\n    FTextLayout.EndUpdate;\r\n  end;\r\n  FTextLayout.RenderLayout(Canvas);\r\n\r\n  {$IFDEF SUPPORTSACCELERATORS}\r\n  if ki >= 0 then\r\n    DrawUnderline(Canvas, FTextLayout, ki, FTextLayout.Color, FTextLayout.Opacity);\r\n  {$ENDIF}\r\n\r\n  {$ENDIF}\r\n\r\n  {$IFDEF CMNWEBLIB}\r\n  c := Canvas.Brush.Color;\r\n  bs := Canvas.Brush.Style;\r\n  Canvas.Brush.Style := bsClear;\r\n\r\n  {$IFDEF WEBLIB}\r\n  r := RectF(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom);\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  r := Rect(Round(ARect.Left), Round(ARect.Top), Round(ARect.Right), Round(ARect.Bottom));\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  dstyle := [];\r\n  if AWordWrapping then\r\n    dstyle := dstyle + [tfWordBreak]\r\n  else\r\n    dstyle := dstyle + [tfSingleLine];\r\n\r\n  if not FShowAcceleratorChar then\r\n    dstyle := dstyle + [tfNoPrefix];\r\n\r\n  case AHorizontalAlign of\r\n    gtaCenter: dstyle := dstyle + [tfCenter];\r\n    gtaLeading: dstyle := dstyle + [tfLeft];\r\n    gtaTrailing: dstyle := dstyle + [tfRight];\r\n  end;\r\n\r\n  case AVerticalAlign of\r\n    gtaCenter: dstyle := dstyle + [tfVerticalCenter];\r\n    gtaLeading: dstyle := dstyle + [tfTop];\r\n    gtaTrailing: dstyle := dstyle + [tfBottom];\r\n  end;\r\n\r\n  case ATrimming of\r\n    gttCharacter: dstyle := dstyle + [tfEndEllipsis];\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION > 22}\r\n    gttWord: dstyle := dstyle + [tfWordEllipsis];\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n  end;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF LCLLIB}\r\n  dStyle.RightToLeft := False;\r\n  dStyle.WordBreak := AWordWrapping;\r\n  dStyle.SingleLine := not AWordWrapping;\r\n  dStyle.Clipping := True;\r\n  dStyle.EndEllipsis := False;\r\n  dStyle.SystemFont := False;\r\n  dStyle.ShowPrefix := FShowAcceleratorChar;\r\n\r\n  case AHorizontalAlign of\r\n    gtaCenter: dstyle.Alignment := taCenter;\r\n    gtaLeading: dstyle.Alignment := taLeftJustify;\r\n    gtaTrailing: dstyle.Alignment := taRightJustify;\r\n  end;\r\n\r\n  case AVerticalAlign of\r\n    gtaCenter: dstyle.Layout := tlCenter;\r\n    gtaLeading: dstyle.Layout := tlTop;\r\n    gtaTrailing: dstyle.Layout := tlBottom;\r\n  end;\r\n\r\n  case ATrimming of\r\n    gttCharacter: dstyle.EndEllipsis := True;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  if AWordWrapping then\r\n  begin\r\n    case AVerticalAlign of\r\n      gtaCenter:\r\n      begin\r\n        rcalc := CalculateText(AText, ARect, AWordWrapping);\r\n        rh := Round(rcalc.Bottom - rcalc.Top);\r\n        {$IFDEF WEBLIB}\r\n        r.Top := r.Top + Max(0, ((r.Bottom - r.Top) - rh) / 2);\r\n        {$ENDIF}\r\n        {$IFNDEF WEBLIB}\r\n        r.Top := r.Top + Max(0, ((r.Bottom - r.Top) - rh) div 2);\r\n        {$ENDIF}\r\n        r.Bottom := Max(0, Min(Round(ARect.Bottom), r.Top + rh));\r\n      end;\r\n      gtaTrailing:\r\n      begin\r\n        rcalc := CalculateText(AText, ARect, AWordWrapping);\r\n        rh := Round(rcalc.Bottom - rcalc.Top);\r\n        r.Top := r.Bottom - rh;\r\n        r.Bottom := r.Top + rh;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  if AAngle <> 0 then\r\n    DrawRotatedText(Canvas, r, AText, AAngle, AHorizontalAlign, AVerticalAlign)\r\n  else\r\n  begin\r\n  {$IFDEF GDIPLUSDRAWING}\r\n    b := CreateGDIPFontFill(Font);\r\n    ft := CreateGDIPFont(Font);\r\n    sf := CreateGPStringFormat(AHorizontalAlign, AVerticalAlign, AWordWrapping);\r\n    try\r\n      rt := MakeRect(ARect.Left, ARect.Top, ARect.Width, ARect.Height);\r\n      FGDIPCanvas.DrawString(AText, Length(AText), ft, rt, sf, b);\r\n    finally\r\n      sf.Free;\r\n      ft.Free;\r\n      b.Free;\r\n    end;\r\n  {$ENDIF}\r\n  {$IFNDEF GDIPLUSDRAWING}\r\n  {$IFDEF WEBLIB}\r\n    st := TTMSFNCGraphicsSaveState.Create;\r\n    try\r\n      SaveState(st);\r\n      ClipRect(r);\r\n      case AHorizontalAlign of\r\n        gtaLeading:\r\n        begin\r\n          case AVerticalAlign of\r\n            gtaLeading: Canvas.TextRect(CreateCanvasRectF(r.Left, r.Top, r.Right, r.Bottom), AText, AWordWrapping, False, taLeftJustify, taAlignTop);\r\n            gtaCenter: Canvas.TextRect(CreateCanvasRectF(r.Left, r.Top, r.Right, r.Bottom), AText, AWordWrapping, False, taLeftJustify, taVerticalCenter);\r\n            gtaTrailing: Canvas.TextRect(CreateCanvasRectF(r.Left, r.Top, r.Right, r.Bottom), AText, AWordWrapping, False, taLeftJustify, taAlignBottom);\r\n          end;\r\n        end;\r\n        gtaCenter:\r\n        begin\r\n          case AVerticalAlign of\r\n            gtaLeading: Canvas.TextRect(CreateCanvasRectF(r.Left, r.Top, r.Right, r.Bottom), AText, AWordWrapping, False, taCenter, taAlignTop);\r\n            gtaCenter: Canvas.TextRect(CreateCanvasRectF(r.Left, r.Top, r.Right, r.Bottom), AText, AWordWrapping, False, taCenter, taVerticalCenter);\r\n            gtaTrailing: Canvas.TextRect(CreateCanvasRectF(r.Left, r.Top, r.Right, r.Bottom), AText, AWordWrapping, False, taCenter, taAlignBottom);\r\n          end;\r\n        end;\r\n        gtaTrailing:\r\n        begin\r\n          case AVerticalAlign of\r\n            gtaLeading: Canvas.TextRect(CreateCanvasRectF(r.Left, r.Top, r.Right, r.Bottom), AText, AWordWrapping, False, taRightJustify, taAlignTop);\r\n            gtaCenter: Canvas.TextRect(CreateCanvasRectF(r.Left, r.Top, r.Right, r.Bottom), AText, AWordWrapping, False, taRightJustify, taVerticalCenter);\r\n            gtaTrailing: Canvas.TextRect(CreateCanvasRectF(r.Left, r.Top, r.Right, r.Bottom), AText, AWordWrapping, False, taRightJustify, taAlignBottom);\r\n          end;\r\n        end;\r\n      end;\r\n    finally\r\n      RestoreState(st);\r\n    end;\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n    Canvas.TextRect(r, AText, dstyle);\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n    {$IFNDEF MSWINDOWS}\r\n    crr := Rect(0, 0, 0, 0);\r\n    if not Canvas.Clipping or (IntersectRect(crr, Canvas.ClipRect, r) and Canvas.Clipping) then\r\n    {$ENDIF}\r\n      Canvas.TextRect(r, r.Left, r.Top, AText, dstyle);\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  end;\r\n\r\n  Canvas.Brush.Color := c;\r\n  Canvas.Brush.Style := bs;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.EndPrinting;\r\nbegin\r\n  if FPrinting then\r\n    FPrinting := False;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.EndScene;\r\nbegin\r\n  {$IFDEF FMXWEBLIB}\r\n  Canvas.EndScene;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.FillArc(AFill: TTMSFNCGraphicsFill; ACenter, ARadius: TPointF; AStartAngle, ASweepAngle: Single);\r\n{$IFDEF CMNWEBLIB}\r\nvar\r\n  {$IFNDEF WEBLIB}\r\n  x, y, xs, ys, sx, sy, sxs, sys: Integer;\r\n  {$ENDIF}\r\n  ps: TPenStyle;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Canvas.FillArc(ACenter, ARadius, AStartAngle, ASweepAngle, AFill.Opacity);\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  {$IFNDEF WEBLIB}\r\n  sx := Floor(ACenter.X - ARadius.X);\r\n  sy := Floor(ACenter.Y - ARadius.Y);\r\n  sxs := Floor(ACenter.X + ARadius.X);\r\n  sys := Floor(ACenter.Y + ARadius.Y);\r\n\r\n  x := Floor(ACenter.X + (ARadius.X * COS(DegToRad(-AStartAngle - ASweepAngle))));\r\n  y := Floor(ACenter.Y - (ARadius.Y * SIN(DegToRad(-AStartAngle - ASweepAngle))));\r\n  xs := Floor(ACenter.X + (ARadius.X * COS(DegToRad(-AStartAngle))));\r\n  ys := Floor(ACenter.Y - (ARadius.Y * SIN(DegToRad(- AStartAngle))));\r\n  {$ENDIF}\r\n\r\n  ps := Canvas.Pen.Style;\r\n  Canvas.Pen.Style := psClear;\r\n  {$IFNDEF WEBLIB}\r\n  Canvas.Arc(sx, sy, sxs, sys, x, y, xs, ys);\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Canvas.AngleArc(ACenter.X, ACenter.Y, ARadius.X, DegToRad(AStartAngle), DegToRad(ASweepAngle));\r\n  {$ENDIF}\r\n  Canvas.Pen.Style := ps;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.FillEllipse(AFill: TTMSFNCGraphicsFill; ARect: TRectF; AModifyRectMode: TTMSFNCGraphicsModifyRectMode);\r\nvar\r\n{$IFDEF FMXLIB}\r\n  r: TRectF;\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\n{$IFDEF WEBLIB}\r\n  r: TCanvasRectF;\r\n{$ENDIF}\r\n{$IFNDEF WEBLIB}\r\n  r: TRect;\r\n{$ENDIF}\r\n  ps: TPenStyle;\r\n{$ENDIF}\r\nbegin\r\n  ARect := ModifyRect(ARect, AModifyRectMode);\r\n  {$IFDEF FMXLIB}\r\n  r := ARect;\r\n  Canvas.FillEllipse(r, AFill.Opacity);\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  {$IFDEF WEBLIB}\r\n  r := CreateCanvasRectF(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom);\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  r := Rect(Round(ARect.Left), Round(ARect.Top), Round(ARect.Right), Round(ARect.Bottom));\r\n  {$ENDIF}\r\n\r\n  ps := Canvas.Pen.Style;\r\n  Canvas.Pen.Style := psClear;\r\n  Canvas.Ellipse(r);\r\n  Canvas.Pen.Style := ps;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.FillPath(AFill: TTMSFNCGraphicsFill;\r\n  APath: TTMSFNCGraphicsPath; APathMode: TTMSFNCGraphicsPathDrawMode = pdmPolygon);\r\nvar\r\n  p: TTMSFNCGraphicsPathPolygon;\r\n  {$IFDEF FMXLIB}\r\n  pth: TPathData;\r\n  {$ENDIF}\r\nbegin\r\n  if Assigned(APath) then\r\n  begin\r\n    if APathMode = pdmPath then\r\n    begin\r\n      {$IFDEF FMXLIB}\r\n      pth := TPathData(ConvertToPath(APath));\r\n      try\r\n        Canvas.FillPath(pth, AFill.Opacity);\r\n      finally\r\n        pth.Free;\r\n      end;\r\n      {$ENDIF}\r\n      {$IFDEF CMNLIB}\r\n      {$IFDEF MSWINDOWS}\r\n      BeginPath(Canvas.Handle);\r\n      ConvertToPath(APath);\r\n      EndPath(Canvas.Handle);\r\n      Windows.FillPath(Canvas.Handle);\r\n      AbortPath(Canvas.Handle);\r\n      {$ENDIF}\r\n      {$ENDIF}\r\n      {$IFDEF WEBLIB}\r\n      Canvas.PathBegin;\r\n      ConvertToPath(APath);\r\n      Canvas.PathFill;\r\n      {$ENDIF}\r\n    end\r\n    else\r\n    begin\r\n      SetLength(p, 0);\r\n      APath.FlattenToPolygon(p);\r\n      case APathMode of\r\n        pdmPolygon: FillPolygon(AFill, p);\r\n        pdmPolyline, pdmPath: FillPolyline(AFill, p);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.FillPolygon(AFill: TTMSFNCGraphicsFill; APolygon: TTMSFNCGraphicsPathPolygon);\r\n{$IFDEF CMNWEBLIB}\r\nvar\r\n  {$IFDEF WEBLIB}\r\n  pts: array of TCanvasPointF;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  pts: array of TPoint;\r\n  {$ENDIF}\r\n  I: Integer;\r\n  ps: TPenStyle;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Canvas.FillPolygon(TPolygon(APolygon), AFill.Opacity);\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  SetLength(pts, Length(APolygon));\r\n  for I := 0 to Length(APolygon) - 1 do\r\n  begin\r\n    {$IFDEF WEBLIB}\r\n    pts[I] := CreateCanvasPointF(APolygon[I].X, APolygon[I].Y);\r\n    {$ENDIF}\r\n    {$IFNDEF WEBLIB}\r\n    pts[I] := Point(Round(APolygon[I].X), Round(APolygon[I].Y));\r\n    {$ENDIF}\r\n  end;\r\n\r\n  ps := Canvas.Pen.Style;\r\n  Canvas.Pen.Style := psClear;\r\n  Canvas.Polygon(pts);\r\n  Canvas.Pen.Style := ps;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.FillPolyline(AFill: TTMSFNCGraphicsFill; APolyline: TTMSFNCGraphicsPathPolygon);\r\n{$IFDEF CMNWEBLIB}\r\nvar\r\n  {$IFDEF WEBLIB}\r\n  pts: array of TCanvasPointF;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  pts: array of TPoint;\r\n  {$ENDIF}\r\n  I: Integer;\r\n  ps: TPenStyle;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Canvas.FillPolygon(TPolygon(APolyline), AFill.Opacity);\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  SetLength(pts, Length(APolyline));\r\n  for I := 0 to Length(APolyline) - 1 do\r\n  begin\r\n    {$IFDEF WEBLIB}\r\n    pts[I] := CreateCanvasPointF(APolyline[I].X, APolyline[I].Y);\r\n    {$ENDIF}\r\n    {$IFNDEF WEBLIB}\r\n    pts[I] := Point(Round(APolyline[I].X), Round(APolyline[I].Y));\r\n    {$ENDIF}\r\n  end;\r\n\r\n  ps := Canvas.Pen.Style;\r\n  Canvas.Pen.Style := psClear;\r\n  Canvas.Polyline(pts);\r\n  Canvas.Pen.Style := ps;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.FillRect(AFill: TTMSFNCGraphicsFill; ARect: TRectF; AModifyRectMode: TTMSFNCGraphicsModifyRectMode);\r\nvar\r\n{$IFDEF FMXLIB}\r\n  r: TRectF;\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\n  {$IFDEF WEBLIB}\r\n  r: TRectF;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  r: TRect;\r\n  {$ENDIF}\r\n  c: TTMSFNCGraphicsColor;\r\n  bs: TBrushStyle;\r\n  ps: TPenStyle;\r\n{$ENDIF}\r\nbegin\r\n  ARect := ModifyRect(ARect, AModifyRectMode);\r\n  {$IFDEF FMXLIB}\r\n  r := ARect;\r\n  Canvas.FillRect(r, 0, 0, AllCorners, AFill.Opacity);\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  {$IFDEF WEBLIB}\r\n  r := RectF(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom);\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  r := Rect(Round(ARect.Left), Round(ARect.Top), Round(ARect.Right), Round(ARect.Bottom));\r\n  {$ENDIF}\r\n\r\n  c := gcNull;\r\n  bs := bsClear;\r\n  if (AFill.Kind = gfkGradient) then\r\n  begin\r\n    if (AFill.Color <> gcNull) and (AFill.ColorTo <> gcNull) then\r\n    begin\r\n      if (AFill.ColorMirror <> gcNull) and (AFill.ColorMirrorTo <> gcNull) then\r\n      begin\r\n        case AFill.Orientation of\r\n          gfoHorizontal:\r\n          begin\r\n            {$IFDEF WEBLIB}\r\n            DrawGradient(Canvas, AFill.Color, AFill.ColorTo, RectF(r.Left, r.Top, r.Left + (r.Right - r.Left) / 2, r.Bottom), 0, [], True);\r\n            DrawGradient(Canvas, AFill.ColorMirror, AFill.ColorMirrorTo, RectF(r.Left + (r.Right - r.Left) / 2, r.Top, r.Right, r.Bottom), 0, [], True);\r\n            {$ENDIF}\r\n            {$IFNDEF WEBLIB}\r\n            DrawGradient(Canvas, AFill.Color, AFill.ColorTo, Rect(r.Left, r.Top, r.Left + (r.Right - r.Left) div 2, r.Bottom), 0, [], True);\r\n            DrawGradient(Canvas, AFill.ColorMirror, AFill.ColorMirrorTo, Rect(r.Left + (r.Right - r.Left) div 2, r.Top, r.Right, r.Bottom), 0, [], True);\r\n            {$ENDIF}\r\n          end;\r\n          gfoVertical:\r\n          begin\r\n            {$IFDEF WEBLIB}\r\n            DrawGradient(Canvas, AFill.Color, AFill.ColorTo, RectF(r.Left, r.Top, r.Right, r.Top + (r.Bottom - r.Top) / 2), 0, [], False);\r\n            DrawGradient(Canvas, AFill.ColorMirror, AFill.ColorMirrorTo, RectF(r.Left, r.Top + (r.Bottom - r.Top) / 2, r.Right, r.Bottom), 0, [], False);\r\n            {$ENDIF}\r\n            {$IFNDEF WEBLIB}\r\n            DrawGradient(Canvas, AFill.Color, AFill.ColorTo, Rect(r.Left, r.Top, r.Right, r.Top + (r.Bottom - r.Top) div 2), 0, [], False);\r\n            DrawGradient(Canvas, AFill.ColorMirror, AFill.ColorMirrorTo, Rect(r.Left, r.Top + (r.Bottom - r.Top) div 2, r.Right, r.Bottom), 0, [], False);\r\n            {$ENDIF}\r\n          end;\r\n        end;\r\n      end\r\n      else\r\n        DrawGradient(Canvas, AFill.Color, AFill.ColorTo, r, 0, [], AFill.Orientation = gfoHorizontal);\r\n    end;\r\n\r\n    c := Canvas.Brush.Color;\r\n    bs := Canvas.Brush.Style;\r\n    Canvas.Brush.Style := bsClear;\r\n  end;\r\n\r\n  ps := Canvas.Pen.Style;\r\n  Canvas.Pen.Style := psClear;\r\n  if (AFill.Color <> gcNull) and (AFill.Kind = gfkSolid) then\r\n  begin\r\n    {$IFDEF WEBLIB}\r\n    Canvas.Rectangle(CreateCanvasRectF(r.Left, r.Top, r.Right, r.Bottom));\r\n    {$ENDIF}\r\n    {$IFNDEF WEBLIB}\r\n    Canvas.Rectangle(r);\r\n    {$ENDIF}\r\n  end;\r\n  Canvas.Pen.Style := ps;\r\n\r\n  if AFill.Kind = gfkGradient then\r\n  begin\r\n    Canvas.Brush.Color := c;\r\n    Canvas.Brush.Style := bs;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.FillRoundRect(AFill: TTMSFNCGraphicsFill; ARect: TRectF; ARounding: Single;\r\n  ACorners: TTMSFNCGraphicsCorners; AModifyRectMode: TTMSFNCGraphicsModifyRectMode);\r\nvar\r\n{$IFDEF FMXLIB}\r\n  r: TRectF;\r\n  c: TCorners;\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\n  {$IFDEF WEBLIB}\r\n  r, rg: TRectF;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  r, rg: TRect;\r\n  {$ENDIF}\r\n  c: TTMSFNCGraphicsCorners;\r\n{$ENDIF}\r\nbegin\r\n  ARect := ModifyRect(ARect, AModifyRectMode);\r\n  {$IFDEF FMXLIB}\r\n  r := ARect;\r\n\r\n  c := [];\r\n  if gcTopLeft in ACorners then\r\n    c := c + [TCorner.TopLeft];\r\n\r\n  if gcTopRight in ACorners then\r\n    c := c + [TCorner.TopRight];\r\n\r\n  if gcBottomLeft in ACorners then\r\n    c := c + [TCorner.BottomLeft];\r\n\r\n  if gcBottomRight in ACorners then\r\n    c := c + [TCorner.BottomRight];\r\n\r\n  Canvas.FillRect(r, ARounding, ARounding, c, AFill.Opacity);\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  {$IFDEF WEBLIB}\r\n  r := RectF(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom);\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  r := Rect(Round(ARect.Left), Round(ARect.Top), Round(ARect.Right), Round(ARect.Bottom));\r\n  {$ENDIF}\r\n\r\n  rg := r;\r\n  rg.Bottom := rg.Bottom - 1;\r\n  rg.Right := rg.Right - 1;\r\n\r\n  if (AFill.Kind = gfkGradient) then\r\n  begin\r\n    if (AFill.Color <> gcNull) and (AFill.ColorTo <> gcNull) then\r\n    begin\r\n      if (AFill.ColorMirror <> gcNull) and (AFill.ColorMirrorTo <> gcNull) then\r\n      begin\r\n        case AFill.Orientation of\r\n          gfoHorizontal:\r\n          begin\r\n            c := [];\r\n            if gcTopLeft in ACorners then\r\n              c := c + [gcTopLeft];\r\n            if gcBottomLeft in ACorners then\r\n              c := c + [gcBottomLeft];\r\n\r\n            {$IFDEF WEBLIB}\r\n            DrawGradient(Canvas, AFill.Color, AFill.ColorTo, RectF(rg.Left, rg.Top, rg.Left + (rg.Right - rg.Left) / 2, r.Bottom), ARounding, c, True);\r\n            {$ENDIF}\r\n            {$IFNDEF WEBLIB}\r\n            DrawGradient(Canvas, AFill.Color, AFill.ColorTo, Rect(rg.Left, rg.Top, rg.Left + (rg.Right - rg.Left) div 2, r.Bottom), ARounding, c, True);\r\n            {$ENDIF}\r\n\r\n            c := [];\r\n            if gcTopRight in ACorners then\r\n              c := c + [gcTopRight];\r\n            if gcBottomRight in ACorners then\r\n              c := c + [gcBottomRight];\r\n\r\n            {$IFDEF WEBLIB}\r\n            DrawGradient(Canvas, AFill.ColorMirror, AFill.ColorMirrorTo, RectF(rg.Left + (rg.Right - r.Left) / 2, rg.Top, rg.Right, rg.Bottom), ARounding, c, True);\r\n            {$ENDIF}\r\n            {$IFNDEF WEBLIB}\r\n            DrawGradient(Canvas, AFill.ColorMirror, AFill.ColorMirrorTo, Rect(rg.Left + (rg.Right - r.Left) div 2, rg.Top, rg.Right, rg.Bottom), ARounding, c, True);\r\n            {$ENDIF}\r\n          end;\r\n          gfoVertical:\r\n          begin\r\n            c := [];\r\n            if gcTopLeft in ACorners then\r\n              c := c + [gcTopLeft];\r\n            if gcTopRight in ACorners then\r\n              c := c + [gcTopRight];\r\n\r\n            {$IFDEF WEBLIB}\r\n            DrawGradient(Canvas, AFill.Color, AFill.ColorTo, RectF(rg.Left, rg.Top, rg.Right, rg.Top + (rg.Bottom - rg.Top) / 2), ARounding, c, False);\r\n            {$ENDIF}\r\n            {$IFNDEF WEBLIB}\r\n            DrawGradient(Canvas, AFill.Color, AFill.ColorTo, Rect(rg.Left, rg.Top, rg.Right, rg.Top + (rg.Bottom - rg.Top) div 2), ARounding, c, False);\r\n            {$ENDIF}\r\n\r\n            c := [];\r\n            if gcBottomLeft in ACorners then\r\n              c := c + [gcBottomLeft];\r\n            if gcBottomRight in ACorners then\r\n              c := c + [gcBottomRight];\r\n\r\n            {$IFDEF WEBLIB}\r\n            DrawGradient(Canvas, AFill.ColorMirror, AFill.ColorMirrorTo, RectF(rg.Left, rg.Top + (rg.Bottom - rg.Top) / 2, rg.Right, rg.Bottom), ARounding, c, False);\r\n            {$ENDIF}\r\n            {$IFNDEF WEBLIB}\r\n            DrawGradient(Canvas, AFill.ColorMirror, AFill.ColorMirrorTo, Rect(rg.Left, rg.Top + (rg.Bottom - rg.Top) div 2, rg.Right, rg.Bottom), ARounding, c, False);\r\n            {$ENDIF}\r\n          end;\r\n        end;\r\n      end\r\n      else\r\n        DrawGradient(Canvas, AFill.Color, AFill.ColorTo, rg, ARounding, ACorners, AFill.Orientation = gfoHorizontal);\r\n    end;\r\n  end\r\n  else if (AFill.Color <> gcNull) and (AFill.Kind = gfkSolid) then\r\n    DrawGradient(Canvas, AFill.Color, AFill.Color, r, ARounding, ACorners, AFill.Orientation = gfoHorizontal);\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.StartSpecialPen;\r\n{$IFDEF CMNLIB}\r\n{$IFNDEF DARWIN}\r\nvar\r\n  hpen: THandle;\r\n  lb: TLogBrush;\r\n{$ENDIF}\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF CMNWEBLIB}\r\n  {$IFNDEF WEBLIB}\r\n  if FPrinting then\r\n  {$ENDIF}\r\n  begin\r\n    FOldPenStyle := Canvas.Pen.Style;\r\n    FOldPenWidth := Canvas.Pen.Width;\r\n    Canvas.Pen.Style := psDot;\r\n    Canvas.Pen.Width := 1;\r\n  end\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF DARWIN}\r\n  else\r\n  begin\r\n    lb.lbColor := ColorToRGB(Canvas.Pen.Color);\r\n    lb.lbStyle := BS_SOLID;\r\n\r\n    hpen := ExtCreatePen(PS_COSMETIC or PS_ALTERNATE, 1, lb, 0, nil);\r\n    FOldPenHandle := SelectObject(Canvas.Handle, hpen);\r\n  end;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.StopSpecialPen;\r\nbegin\r\n  {$IFDEF CMNWEBLIB}\r\n  {$IFNDEF WEBLIB}\r\n  if FPrinting then\r\n  {$ENDIF}\r\n  begin\r\n    Canvas.Pen.Style := FOldPenStyle;\r\n    Canvas.Pen.Width := FOldPenWidth;\r\n  end\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF DARWIN}\r\n  else\r\n  begin\r\n    DeleteObject(SelectObject(Canvas.Handle, FOldPenHandle));\r\n  end;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.TranslateTransform(AX, AY: Single);\r\n{$IFDEF WEBLIB}\r\nvar\r\n  m: TTMSFNCGraphicsMatrix;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  SaveMatrix;\r\n  Canvas.MultiplyMatrix(TMatrix.CreateTranslation(AX, AY));\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  m := MatrixCreateTranslation(AX, AY);\r\n  Canvas.Transform(m.m11, m.m12, m.m21, m.m22, m.m31, m.m32);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCGraphicsContextGeneral.GetFillColor: TTMSFNCGraphicsColor;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Result := Canvas.Fill.Color;\r\n  {$ENDIF}\r\n  {$IFNDEF FMXLIB}\r\n  Result := Canvas.Brush.Color;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCGraphicsContextGeneral.GetMatrix: TTMSFNCGraphicsMatrix;\r\n{$IFDEF FMXLIB}\r\nvar\r\n  M: TMatrix;\r\n{$ENDIF}\r\nbegin\r\n  Result := MatrixIdentity;\r\n  {$IFDEF FMXLIB}\r\n  M := Canvas.Matrix;\r\n  Result.m11 := M.m11;\r\n  Result.m12 := M.m12;\r\n  Result.m13 := M.m13;\r\n  Result.m21 := M.m21;\r\n  Result.m22 := M.m22;\r\n  Result.m23 := M.m23;\r\n  Result.m31 := M.m31;\r\n  Result.m32 := M.m32;\r\n  Result.m33 := M.m33;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCGraphicsContextGeneral.GetNativeCanvas: Pointer;\r\nbegin\r\n  Result := Canvas;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.PathClose(APath: Pointer);\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  TPathData(APath).ClosePath;\r\n  {$ENDIF}\r\n  {$IFDEF CMNLIB}\r\n  {$IFDEF MSWINDOWS}\r\n  CloseFigure(Canvas.Handle);\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Canvas.PathClose;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.PathLineTo(APath: Pointer;\r\n  APoint: TPointF);\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  TPathData(APath).LineTo(APoint);\r\n  {$ENDIF}\r\n  {$IFDEF CMNLIB}\r\n  {$IFDEF MSWINDOWS}\r\n  Canvas.LineTo(Round(APoint.X), Round(APoint.Y));;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Canvas.PathLineTo(APoint.X, APoint.Y);\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.PathMoveTo(APath: Pointer;\r\n  APoint: TPointF);\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  TPathData(APath).MoveTo(APoint);\r\n  {$ENDIF}\r\n  {$IFDEF CMNLIB}\r\n  {$IFDEF MSWINDOWS}\r\n  Canvas.MoveTo(Round(APoint.X), Round(APoint.Y));\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Canvas.PathMoveTo(APoint.X, APoint.Y);\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.PathOpen(APath: Pointer);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.Render;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.ResetClip;\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  RestoreState(nil);\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.ResetTextAngle(AAngle: Single);\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  if AAngle <> 0 then\r\n    Canvas.SetMatrix(FTextMatrix);\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  if AAngle <> 0 then\r\n    Canvas.SetTransform(1, 0, 0, 1, 0, 0);\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.ResetTransform;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  RestoreMatrix;\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Canvas.SetTransform(1, 0, 0, 1, 0, 0);\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.RestoreState(AState: TTMSFNCGraphicsSaveState);\r\nbegin\r\n  {$IFDEF CMNWEBLIB}\r\n  {$IFDEF VCLLIB}\r\n  RestoreDC(Canvas.Handle, AState.SaveDC);\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  Canvas.Clipping := False;\r\n  Canvas.RestoreHandleState;\r\n  {$ENDIF}\r\n  if Assigned(AState) then\r\n    AState.SaveDC := 0;\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  Canvas.RestoreState(AState.SaveDC);\r\n  AState.SaveDC := nil;\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Canvas.Restore;\r\n  {$ENDIF}\r\n\r\n  {$IFNDEF GDIPLUSDRAWING}\r\n  {$IFDEF CMNWEBLIB}\r\n  Canvas.Refresh;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.RotateTransform(AAngle: Single);\r\n{$IFDEF WEBLIB}\r\nvar\r\n  m: TTMSFNCGraphicsMatrix;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  SaveMatrix;\r\n  Canvas.MultiplyMatrix(TMatrix.CreateRotation(DegToRad(AAngle)));\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  m := MatrixCreateRotation(DegToRad(AAngle));\r\n  Canvas.Transform(m.m11, m.m12, m.m21, m.m22, m.m31, m.m32);\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.SaveState(AState: TTMSFNCGraphicsSaveState);\r\nbegin\r\n  {$IFDEF CMNWEBLIB}\r\n  Canvas.Refresh;\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  AState.SaveDC := Canvas.SaveState;\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  AState.SaveDC := SaveDC(Canvas.Handle);\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  Canvas.SaveHandleState;\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Canvas.Save;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.ScaleTransform(AX, AY: Single);\r\n{$IFDEF WEBLIB}\r\nvar\r\n  m: TTMSFNCGraphicsMatrix;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  SaveMatrix;\r\n  Canvas.MultiplyMatrix(TMatrix.CreateScaling(AX, AY));\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  m := MatrixCreateScaling(AX, AY);\r\n  Canvas.Transform(m.m11, m.m12, m.m21, m.m22, m.m31, m.m32);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCGraphicsContextGeneral.SetTextAngle(ARect: TRectF; AAngle: Single): TRectF;\r\n{$IFDEF FMXWEBLIB}\r\nvar\r\n  ar: Single;\r\n  cx: TPointF;\r\n  {$IFDEF FMXLIB}\r\n  rm: TMatrix;\r\n  {$ENDIF}\r\n  c, s: Single;\r\n  w, cw, h, ch: Single;\r\n{$ENDIF}\r\nbegin\r\n  Result := ARect;\r\n  {$IFDEF FMXWEBLIB}\r\n  if AAngle <> 0 then\r\n  begin\r\n    ar := DegToRad(AAngle);\r\n    cx.X := Result.Left + (Result.Right - Result.Left) / 2;\r\n    cx.Y := Result.Top + (Result.Bottom - Result.Top) / 2;\r\n    {$IFDEF FMXLIB}\r\n    FTextMatrix := Canvas.Matrix;\r\n    rm := TMatrix.CreateRotation(ar) * TMatrix.CreateTranslation(cx.X, cx.Y);\r\n    Canvas.MultiplyMatrix(rm);\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    Canvas.Transform(Cos(ar), Sin(ar), -Sin(ar), Cos(ar), cx.X, cx.Y);\r\n    {$ENDIF}\r\n\r\n    w := Result.Right - Result.Left;\r\n    h := Result.Bottom - Result.Top;\r\n    c := Cos(ar);\r\n    s := Sin(ar);\r\n\r\n    cw := (Abs(w * c) + Abs(h * s));\r\n    ch := (Abs(w * s) + Abs(h * c));\r\n\r\n    Result := RectF(-cw / 2, -ch / 2, cw / 2, ch / 2);\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.SetTextQuality(\r\n  ATextQuality: TTMSFNCGraphicsTextQuality);\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.SetSize(AWidth, AHeight: Single);\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.SetShowAcceleratorChar(AShowAcceleratorChar: Boolean);\r\nbegin\r\n  {$IFNDEF WEBLIB}\r\n  FShowAcceleratorChar := AShowAcceleratorChar;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.SetAntiAliasing(AAntiAliasing: Boolean);\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.SetFill(AFill: TTMSFNCGraphicsFill);\r\n{$IFDEF FMXLIB}\r\nvar\r\n  pt: TGradientPoint;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Canvas.Fill.Color := AFill.Color;\r\n  case AFill.Kind of\r\n    gfkSolid:\r\n    begin\r\n      Canvas.Fill.Kind := TBrushKind.Solid;\r\n    end;\r\n    gfkGradient:\r\n    begin\r\n      Canvas.Fill.Kind := TBrushKind.Gradient;\r\n      Canvas.Fill.Gradient.Points.Clear;\r\n\r\n      if (AFill.ColorMirror <> gcNull) and (AFill.ColorMirrorTo <> gcNull) then\r\n      begin\r\n        pt := TGradientPoint(Canvas.Fill.Gradient.Points.Add);\r\n        pt.Color := AFill.Color;\r\n        pt.Offset := 0;\r\n\r\n        pt := TGradientPoint(Canvas.Fill.Gradient.Points.Add);\r\n        pt.Color := AFill.ColorTo;\r\n        pt.Offset := 0.5;\r\n\r\n        pt := TGradientPoint(Canvas.Fill.Gradient.Points.Add);\r\n        pt.Color := AFill.ColorMirror;\r\n        pt.Offset := 0.5;\r\n\r\n        pt := TGradientPoint(Canvas.Fill.Gradient.Points.Add);\r\n        pt.Color := AFill.ColorMirrorTo;\r\n        pt.Offset := 1;\r\n      end\r\n      else\r\n      begin\r\n        pt := TGradientPoint(Canvas.Fill.Gradient.Points.Add);\r\n        pt.Color := AFill.Color;\r\n        pt.Offset := 0;\r\n\r\n        pt := TGradientPoint(Canvas.Fill.Gradient.Points.Add);\r\n        pt.Color := AFill.ColorTo;\r\n        pt.Offset := 1;\r\n      end;\r\n\r\n      case AFill.Orientation of\r\n        gfoHorizontal:\r\n        begin\r\n          Canvas.Fill.Gradient.StartPosition.Point := PointF(0, 0.5);\r\n          Canvas.Fill.Gradient.StopPosition.Point := PointF(1, 0.5);\r\n        end;\r\n        gfoVertical:\r\n        begin\r\n          Canvas.Fill.Gradient.StartPosition.Point := PointF(0.5, 0);\r\n          Canvas.Fill.Gradient.StopPosition.Point := PointF(0.5, 1);\r\n        end;\r\n      end;\r\n    end\r\n    else\r\n      Canvas.Fill.Kind := TBrushKind.None;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  Canvas.Brush.Color := AFill.Color;\r\n  {$IFDEF WEBLIB}\r\n  Canvas.Brush.Gradient := bgNone;\r\n  Canvas.Brush.ClearGradient;\r\n  {$ENDIF}\r\n  case AFill.Kind of\r\n    {$IFDEF WEBLIB}\r\n    gfkSolid: Canvas.Brush.Style := bsSolid;\r\n    gfkGradient:\r\n    begin\r\n      Canvas.Brush.ClearGradient;\r\n\r\n      if (AFill.ColorMirror <> gcNull) and (AFill.ColorMirrorTo <> gcNull) then\r\n      begin\r\n        Canvas.Brush.AddGradientColor(AFill.Color, 0);\r\n        Canvas.Brush.AddGradientColor(AFill.ColorTo, 0.5);\r\n        Canvas.Brush.AddGradientColor(AFill.ColorMirror, 0.5);\r\n        Canvas.Brush.AddGradientColor(AFill.ColorMirrorTo, 1);\r\n      end\r\n      else\r\n      begin\r\n        Canvas.Brush.AddGradientColor(AFill.Color, 0);\r\n        Canvas.Brush.AddGradientColor(AFill.ColorTo, 1);\r\n      end;\r\n\r\n      case AFill.Orientation of\r\n        gfoHorizontal: Canvas.Brush.Gradient := bgLinearHorz;\r\n        gfoVertical: Canvas.Brush.Gradient := bgLinearVert;\r\n      end;\r\n    end;\r\n    {$ELSE}\r\n    gfkSolid, gfkGradient: Canvas.Brush.Style := bsSolid;\r\n    {$ENDIF}\r\n    gfkNone: Canvas.Brush.Style := bsClear;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.SetFillColor(AColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Canvas.Fill.Color := AColor;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  Canvas.Brush.Color := AColor;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.SetFillKind(AKind: TTMSFNCGraphicsFillKind);\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Canvas.Fill.Kind := TBrushKind(Integer(AKind));\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  case AKind of\r\n    gfkNone: Canvas.Brush.Style := bsClear;\r\n    gfkSolid, gfkGradient: Canvas.Brush.Style := bsSolid;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.SetFont(AFont: TTMSFNCGraphicsFont);\r\nbegin\r\n  Canvas.Font.Assign(AFont);\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.SetFontColor(AColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Canvas.Fill.Color := AColor;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  Canvas.Font.Color := AColor;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.SetFontName(AName: string);\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Canvas.Font.Family := AName;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  Canvas.Font.Name := AName;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.SetFontSize(ASize: Integer);\r\nbegin\r\n  Canvas.Font.Size := ASize;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.SetFontStyles(AStyle: TFontStyles);\r\nbegin\r\n  Canvas.Font.Style := AStyle;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.SetScale(AScale: Single);\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.SetMatrix(\r\n  AMatrix: TTMSFNCGraphicsMatrix);\r\n{$IFDEF FMXLIB}\r\nvar\r\n  M: TMatrix;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  M := TMatrix.Identity;\r\n  M.m11 := AMatrix.m11;\r\n  M.m12 := AMatrix.m12;\r\n  M.m13 := AMatrix.m13;\r\n  M.m21 := AMatrix.m21;\r\n  M.m22 := AMatrix.m22;\r\n  M.m23 := AMatrix.m23;\r\n  M.m31 := AMatrix.m31;\r\n  M.m32 := AMatrix.m32;\r\n  M.m33 := AMatrix.m33;\r\n  Canvas.SetMatrix(M);\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.SetStroke(AStroke: TTMSFNCGraphicsStroke);\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Canvas.Stroke.Color := AStroke.Color;\r\n  Canvas.Stroke.Thickness := AStroke.Width;\r\n  case AStroke.Kind of\r\n    gskSolid:\r\n    begin\r\n      Canvas.Stroke.Kind := TBrushKind.Solid;\r\n      Canvas.Stroke.Dash := TStrokeDash.Solid;\r\n    end;\r\n    gskNone: Canvas.Stroke.Kind := TBrushKind.None;\r\n    else\r\n      Canvas.Stroke.Kind := TBrushKind.Solid;\r\n  end;\r\n\r\n  case AStroke.Kind of\r\n    gskDash: Canvas.Stroke.Dash := TStrokeDash.Dash;\r\n    gskDot: Canvas.Stroke.Dash := TStrokeDash.Dot;\r\n    gskDashDot: Canvas.Stroke.Dash := TStrokeDash.DashDot;\r\n    gskDashDotDot: Canvas.Stroke.Dash := TStrokeDash.DashDotDot;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  Canvas.Pen.Color := AStroke.Color;\r\n  Canvas.Pen.Width := Round(AStroke.Width);\r\n  case AStroke.Kind of\r\n    gskSolid: Canvas.Pen.Style := psSolid;\r\n    gskNone: Canvas.Pen.Style := psClear;\r\n    gskDash: Canvas.Pen.Style := psDash;\r\n    gskDot: Canvas.Pen.Style := psDot;\r\n    gskDashDot: Canvas.Pen.Style := psDashDot;\r\n    gskDashDotDot: Canvas.Pen.Style := psDashDotDot;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.SetStrokeColor(AColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Canvas.Stroke.Color := AColor;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  Canvas.Pen.Color := AColor;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.SetStrokeKind(\r\n  AKind: TTMSFNCGraphicsStrokeKind);\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  case AKind of\r\n    gskNone: Canvas.Stroke.Kind := TBrushKind.None;\r\n    gskSolid:\r\n    begin\r\n      {$HINTS OFF}\r\n      {$IF COMPILERVERSION > 31}\r\n      Canvas.Stroke.Dash := TStrokeDash.Solid;\r\n      {$ELSE}\r\n      Canvas.StrokeDash := TStrokeDash.Solid;\r\n      {$IFEND}\r\n      {$HINTS ON}\r\n      Canvas.Stroke.Kind := TBrushKind.Solid;\r\n    end;\r\n    gskDash:\r\n    begin\r\n      {$HINTS OFF}\r\n      {$IF COMPILERVERSION > 31}\r\n      Canvas.Stroke.Dash := TStrokeDash.Dash;\r\n      {$ELSE}\r\n      Canvas.StrokeDash := TStrokeDash.Dash;\r\n      {$IFEND}\r\n      {$HINTS ON}\r\n      Canvas.Stroke.Kind := TBrushKind.Solid;\r\n    end;\r\n    gskDot:\r\n    begin\r\n      {$HINTS OFF}\r\n      {$IF COMPILERVERSION > 31}\r\n      Canvas.Stroke.Dash := TStrokeDash.Dot;\r\n      {$ELSE}\r\n      Canvas.StrokeDash := TStrokeDash.Dot;\r\n      {$IFEND}\r\n      {$HINTS ON}\r\n      Canvas.Stroke.Kind := TBrushKind.Solid;\r\n    end;\r\n    gskDashDot:\r\n    begin\r\n      {$HINTS OFF}\r\n      {$IF COMPILERVERSION > 31}\r\n      Canvas.Stroke.Dash := TStrokeDash.DashDot;\r\n      {$ELSE}\r\n      Canvas.StrokeDash := TStrokeDash.DashDot;\r\n      {$IFEND}\r\n      {$HINTS ON}\r\n      Canvas.Stroke.Kind := TBrushKind.Solid;\r\n    end;\r\n    gskDashDotDot:\r\n    begin\r\n      {$HINTS OFF}\r\n      {$IF COMPILERVERSION > 31}\r\n      Canvas.Stroke.Dash := TStrokeDash.DashDotDot;\r\n      {$ELSE}\r\n      Canvas.StrokeDash := TStrokeDash.DashDotDot;\r\n      {$IFEND}\r\n      {$HINTS ON}\r\n      Canvas.Stroke.Kind := TBrushKind.Solid;\r\n    end;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  case AKind of\r\n    gskNone: Canvas.Pen.Style := psClear;\r\n    gskSolid: Canvas.Pen.Style := psSolid;\r\n    gskDash: Canvas.Pen.Style := psDash;\r\n    gskDot: Canvas.Pen.Style := psDot;\r\n    gskDashDot: Canvas.Pen.Style := psDashDot;\r\n    gskDashDotDot: Canvas.Pen.Style := psDashDotDot;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextGeneral.SetStrokeWidth(AWidth: Single);\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Canvas.Stroke.Thickness := AWidth;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  Canvas.Pen.Width := Round(AWidth);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction GetNativeContextClass: TTMSFNCGraphicsContextClass;\r\nbegin\r\n  Result := TTMSFNCGraphicsContextGeneral;\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2017 - 2021                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCGraphics.WEB;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\ninterface\r\n\r\n{$IFDEF WEBLIB}\r\n\r\nuses\r\n  Classes, WEBLib.TMSFNCGraphicsTypes, WEBLib.TMSFNCUtils, {%H-}Types, WEBLib.TMSFNCTypes,\r\n  WEBLib.TMSFNCGraphics, WEBLib.Graphics;\r\n\r\ntype\r\n  TTMSFNCGraphicsContextWEB = class(TTMSFNCGraphicsContext)\r\n  private\r\n    FActivePath: TTMSFNCGraphicsPath;\r\n    FScale: Single;\r\n    FNeedsRendering: Boolean;\r\n    FFont: TTMSFNCGraphicsFont;\r\n    FFill: TTMSFNCGraphicsFill;\r\n    FStroke: TTMSFNCGraphicsStroke;\r\n    FContextSize: TSizeF;\r\n    FNCanvas: Pointer;\r\n    FBitmap: TBitmap;\r\n  protected\r\n    function GetNativeCanvas: Pointer; override;\r\n    procedure DestroyResources;\r\n    function DrawTextInternal(AText: String; ARect: TRectF; {%H-}AWordWrap: Boolean; AHorizontalAlignment: TTMSFNCGraphicsTextAlign; ACalculate: Boolean): TRectF;\r\n    procedure DrawLinearGradient(ARect: TRectF);\r\n    procedure FontChanged(Sender: TObject);\r\n    procedure FillChanged(Sender: TObject);\r\n    procedure StrokeChanged(Sender: TObject);\r\n    procedure RestoreContext;\r\n    procedure SaveContext;\r\n    procedure ApplyStroke;\r\n    procedure ApplyFill;\r\n  public\r\n    constructor Create(const AGraphics: TTMSFNCGraphics); override;\r\n    destructor Destroy; override;\r\n    function GetFillColor: TTMSFNCGraphicsColor; override;\r\n    function CalculateText(AText: string; ARect: TRectF; AWordWrapping: Boolean): TRectF; override;\r\n    function SetTextAngle(ARect: TRectF; {%H-}AAngle: Single): TRectF; override;\r\n    function CreatePath: Pointer; override;\r\n    function GetMatrix: TTMSFNCGraphicsMatrix; override;\r\n    procedure Render; override;\r\n    procedure PathOpen({%H-}APath: Pointer); override;\r\n    procedure PathMoveTo({%H-}APath: Pointer; APoint: TPointF); override;\r\n    procedure PathLineTo({%H-}APath: Pointer; APoint: TPointF); override;\r\n    procedure PathClose({%H-}APath: Pointer); override;\r\n    procedure ResetClip; override;\r\n    procedure ResetTransform; override;\r\n    procedure ScaleTransform(AX, AY: Single); override;\r\n    procedure RotateTransform(AAngle: Single); override;\r\n    procedure TranslateTransform(AX, AY: Single); override;\r\n    procedure SetTextQuality({%H-}ATextQuality: TTMSFNCGraphicsTextQuality); override;\r\n    procedure SetAntiAliasing(AAntiAliasing: Boolean); override;\r\n    procedure SetShowAcceleratorChar({%H-}AShowAcceleratorChar: Boolean); override;\r\n    procedure SetSize(AWidth, AHeight: Single); override;\r\n    procedure SetMatrix(AMatrix: TTMSFNCGraphicsMatrix); override;\r\n    procedure SetScale(AScale: Single); override;\r\n    procedure ResetTextAngle({%H-}AAngle: Single); override;\r\n    procedure BeginScene; override;\r\n    procedure EndScene; override;\r\n    procedure BeginPrinting; override;\r\n    procedure EndPrinting; override;\r\n    procedure StartSpecialPen; override;\r\n    procedure StopSpecialPen; override;\r\n    procedure RestoreState({%H-}AState: TTMSFNCGraphicsSaveState); override;\r\n    procedure SaveState({%H-}AState: TTMSFNCGraphicsSaveState); override;\r\n    procedure SetFontSize(ASize: Integer); override;\r\n    procedure SetFontColor(AColor: TTMSFNCGraphicsColor); override;\r\n    procedure SetFontName(AName: string); override;\r\n    procedure SetFont(AFont: TTMSFNCGraphicsFont); override;\r\n    procedure SetFontStyles(AStyle: TFontStyles); override;\r\n    procedure SetFill(AFill: TTMSFNCGraphicsFill); override;\r\n    procedure SetFillKind(AKind: TTMSFNCGraphicsFillKind); override;\r\n    procedure SetFillColor(AColor: TTMSFNCGraphicsColor); override;\r\n    procedure SetStroke(AStroke: TTMSFNCGraphicsStroke); override;\r\n    procedure SetStrokeKind(AKind: TTMSFNCGraphicsStrokeKind); override;\r\n    procedure SetStrokeColor(AColor: TTMSFNCGraphicsColor); override;\r\n    procedure SetStrokeWidth(AWidth: Single); override;\r\n    procedure DrawLine({%H-}AStroke: TTMSFNCGraphicsStroke; AFromPoint: TPointF; AToPoint: TPointF; {%H-}AModifyPointModeFrom: TTMSFNCGraphicsModifyPointMode = gcpmRightDown; {%H-}AModifyPointModeTo: TTMSFNCGraphicsModifyPointMode = gcpmRightDown); override;\r\n    procedure DrawPolygon({%H-}AStroke: TTMSFNCGraphicsStroke; APolygon: TTMSFNCGraphicsPathPolygon); override;\r\n    procedure FillPolygon({%H-}AFill: TTMSFNCGraphicsFill; APolygon: TTMSFNCGraphicsPathPolygon); override;\r\n    procedure DrawPolyline({%H-}AStroke: TTMSFNCGraphicsStroke; APolyline: TTMSFNCGraphicsPathPolygon); override;\r\n    procedure FillPolyline({%H-}AFill: TTMSFNCGraphicsFill; APolyline: TTMSFNCGraphicsPathPolygon); override;\r\n    procedure FillArc({%H-}AFill: TTMSFNCGraphicsFill; {%H-}ACenter, {%H-}ARadius: TPointF; {%H-}AStartAngle, {%H-}ASweepAngle: Single); override;\r\n    procedure DrawArc({%H-}AStroke: TTMSFNCGraphicsStroke; ACenter, ARadius: TPointF; AStartAngle, ASweepAngle: Single); override;\r\n    procedure FillRect({%H-}AFill: TTMSFNCGraphicsFill; ARect: TRectF; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); override;\r\n    procedure DrawRect({%H-}AStroke: TTMSFNCGraphicsStroke; ARect: TRectF; ASides: TTMSFNCGraphicsSides; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); override;\r\n    procedure FillRoundRect({%H-}AFill: TTMSFNCGraphicsFill; ARect: TRectF; ARounding: Single; ACorners: TTMSFNCGraphicsCorners; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); override;\r\n    procedure DrawRoundRect({%H-}AStroke: TTMSFNCGraphicsStroke; ARect: TRectF; ARounding: Single; ACorners: TTMSFNCGraphicsCorners; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); override;\r\n    procedure FillEllipse({%H-}AFill: TTMSFNCGraphicsFill; ARect: TRectF; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); override;\r\n    procedure DrawEllipse({%H-}AStroke: TTMSFNCGraphicsStroke; ARect: TRectF; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); override;\r\n    procedure DrawBitmap(ABitmap: TTMSFNCDrawBitmap; {%H-}ASrcRect, ADstRect: TRectF; {%H-}AOpacity: Single); override;\r\n    procedure ClipRect(ARect: TRectF); override;\r\n    procedure ClipPath({%H-}APath: TTMSFNCGraphicsPath); override;\r\n    procedure DrawFocusPath({%H-}AStroke: TTMSFNCGraphicsStroke; {%H-}APath: TTMSFNCGraphicsPath; {%H-}AColor: TTMSFNCGraphicsColor); override;\r\n    procedure DrawFocusRectangle({%H-}AStroke: TTMSFNCGraphicsStroke; {%H-}ARect: TRectF; {%H-}AColor: TTMSFNCGraphicsColor; {%H-}AModifyRectMode: TTMSFNCGraphicsModifyRectMode = gcrmShrinkAll); override;\r\n    procedure DrawText(AText: string; ARect: TRectF; AWordWrapping: Boolean; AHorizontalAlign, AVerticalAlign: TTMSFNCGraphicsTextAlign; {%H-}ATrimming: TTMSFNCGraphicsTextTrimming; {%H-}AAngle: Single); override;\r\n    procedure DrawPath({%H-}AStroke: TTMSFNCGraphicsStroke; APath: TTMSFNCGraphicsPath; APathMode: TTMSFNCGraphicsPathDrawMode = pdmPolygon); override;\r\n    procedure FillPath({%H-}AFill: TTMSFNCGraphicsFill; APath: TTMSFNCGraphicsPath; APathMode: TTMSFNCGraphicsPathDrawMode = pdmPolygon); override;\r\n  end;\r\n\r\nfunction GetNativeContextClass: TTMSFNCGraphicsContextClass;\r\n\r\n{$ENDIF}\r\n\r\nimplementation\r\n\r\n{$IFDEF WEBLIB}\r\n\r\nuses\r\n  SysUtils, Math;\r\n\r\nfunction GetNativeContextClass: TTMSFNCGraphicsContextClass;\r\nbegin\r\n  Result := TTMSFNCGraphicsContextWEB;\r\nend;\r\n\r\n{ TTMSFNCGraphicsContextWEB }\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.ApplyFill;\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n     Exit;\r\n\r\n  case FFill.Kind of\r\n    gfkSolid:\r\n    begin\r\n//      cairo_set_source_rgba(FNCanvas, TTMSFNCGraphics.GetColorRed(FFill.Color) / 255, TTMSFNCGraphics.GetColorGreen(FFill.Color) / 255,\r\n//        TTMSFNCGraphics.GetColorBlue(FFill.Color) / 255, FFill.Opacity);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCGraphicsContextWEB.GetMatrix: TTMSFNCGraphicsMatrix;\r\nbegin\r\n  Result := MatrixEmpty;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.SetScale(AScale: single);\r\nbegin\r\n  FScale := AScale;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.SetMatrix(AMatrix: TTMSFNCGraphicsMatrix);\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.ApplyStroke;\r\n//var\r\n//  f: array of Double;\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n     Exit;\r\n\r\n//  cairo_set_line_width(FNCanvas, FStroke.Width);\r\n//  cairo_set_source_rgba(FNCanvas, TTMSFNCGraphics.GetColorRed(FStroke.Color) / 255, TTMSFNCGraphics.GetColorGreen(FStroke.Color) / 255,\r\n//    TTMSFNCGraphics.GetColorBlue(FStroke.Color) / 255, FStroke.Opacity);\r\n\r\n//  case FStroke.Kind of\r\n//    gskSolid, gskNone: cairo_set_dash(FNCanvas, nil,0, 0);\r\n//    gskDash:\r\n//    begin\r\n//      SetLength(f, 2);\r\n//      f[0] := 3;\r\n//      f[1] := 1;\r\n//      cairo_set_dash(FNCanvas, @f[0], Length(f), 0);\r\n//    end;\r\n//    gskDot:\r\n//    begin\r\n//      SetLength(f, 2);\r\n//      f[0] := 1;\r\n//      f[1] := 1;\r\n//      cairo_set_dash(FNCanvas, @f[0], Length(f), 0);\r\n//    end;\r\n//    gskDashDot:\r\n//    begin\r\n//      SetLength(f, 4);\r\n//      f[0] := 3;\r\n//      f[1] := 1;\r\n//      f[2] := 1;\r\n//      f[3] := 1;\r\n//      cairo_set_dash(FNCanvas, @f[0], Length(f), 0);\r\n//    end;\r\n//    gskDashDotDot:\r\n//    begin\r\n//      SetLength(f, 6);\r\n//      f[0] := 3;\r\n//      f[1] := 1;\r\n//      f[2] := 1;\r\n//      f[3] := 1;\r\n//      f[4] := 1;\r\n//      f[5] := 1;\r\n//      cairo_set_dash(FNCanvas, @f[0], Length(f), 0);\r\n//    end;\r\n//  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.BeginPrinting;\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.EndPrinting;\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.BeginScene;\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\nend;\r\n\r\nfunction TTMSFNCGraphicsContextWEB.CalculateText(AText: string; ARect: TRectF;\r\n  AWordWrapping: Boolean): TRectF;\r\nbegin\r\n  Result := RectF(0, 0, 0, 0);\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  SaveContext;\r\n  Result := DrawTextInternal(AText, ARect, AWordWrapping, gtaLeading, True);\r\n  RestoreContext;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.ClipPath(APath: TTMSFNCGraphicsPath);\r\n//var\r\n//  pth: ^cairo_path_t;\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n//  pth := ConvertToPath(APath);\r\n  try\r\n    SaveContext;\r\n//    cairo_append_path(FNCanvas, pth);\r\n//    cairo_clip(FNCanvas);\r\n  finally\r\n\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.ClipRect(ARect: TRectF);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  SaveContext;\r\n//  cairo_new_path(FNCanvas);\r\n//  cairo_rectangle(FNCanvas, ARect.Left, ARect.Top, ARect.Width, ARect.Height);\r\n//  cairo_clip(FNCanvas);\r\nend;\r\n\r\nconstructor TTMSFNCGraphicsContextWEB.Create(const AGraphics: TTMSFNCGraphics);\r\nbegin\r\n  inherited;\r\n  FScale := TTMSFNCUtils.GetDPIScale;\r\n  FNeedsRendering := True;\r\n  FContextSize.cx := 0;\r\n  FContextSize.cy := 0;\r\n  FFont := TTMSFNCGraphicsFont.Create;\r\n  FFont.OnChanged := @FontChanged;\r\n  FStroke := TTMSFNCGraphicsStroke.Create;\r\n  FStroke.OnChanged := @StrokeChanged;\r\n  FFill := TTMSFNCGraphicsFill.Create;\r\n  FFill.OnChanged := @FillChanged;\r\nend;\r\n\r\nfunction TTMSFNCGraphicsContextWEB.CreatePath: Pointer;\r\nbegin\r\n  Result := nil;\r\n//  cairo_new_path(FNCanvas);\r\n//  Result := cairo_copy_path(FNCanvas);\r\nend;\r\n\r\ndestructor TTMSFNCGraphicsContextWEB.Destroy;\r\nbegin\r\n  Render;\r\n\r\n  if Assigned(FFont) then\r\n  begin\r\n    FFont.Free;\r\n    FFont := nil;\r\n  end;\r\n\r\n  if Assigned(FFill) then\r\n  begin\r\n    FFill.Free;\r\n    FFill := nil;\r\n  end;\r\n\r\n  if Assigned(FStroke) then\r\n  begin\r\n    FStroke.Free;\r\n    FStroke := nil;\r\n  end;\r\n\r\n  DestroyResources;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.DestroyResources;\r\nbegin\r\n  if Assigned(FNCanvas) then\r\n  begin\r\n    RestoreContext;\r\n//    cairo_destroy(FNCanvas);\r\n    FNCanvas := nil;\r\n  end;\r\n\r\n  if Assigned(FBitmap) then\r\n  begin\r\n    FBitmap.Free;\r\n    FBitmap := nil;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.DrawArc(AStroke: TTMSFNCGraphicsStroke;\r\n  ACenter, ARadius: TPointF; AStartAngle, ASweepAngle: Single);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  SaveContext;\r\n//  cairo_new_path(FNCanvas);\r\n//  cairo_arc(FNCanvas, ACenter.X, ACenter.Y, ARadius.X, DegToRad(AStartAngle), DegToRad(AStartAngle + ASweepAngle));\r\n  ApplyStroke;\r\n//  cairo_stroke(FNCanvas);\r\n  RestoreContext;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.DrawBitmap(ABitmap: TTMSFNCDrawBitmap;\r\n  ASrcRect, ADstRect: TRectF; AOpacity: Single);\r\n//var\r\n//  R: TRectF;\r\n//  img: Pcairo_surface_t;\r\n//\r\n//  function GraphicToARGB32(Source: TGraphic; buf: PByte): Boolean;\r\n//  var\r\n//    p: PDWord;\r\n//    x, y: Integer;\r\n//    c: TFPColor;\r\n//    Img: TLazIntfImage;\r\n//  begin\r\n//    Img := TRasterImage(Source).CreateIntfImage;\r\n//    try\r\n//      if Img.DataDescription.Format = ricfNone then begin\r\n//        Result := False;\r\n//        Exit;\r\n//      end;\r\n//      p := Pointer(buf);\r\n//      for y := 0 to Source.Height-1 do begin\r\n//        for x := 0 to Source.Width-1 do begin\r\n//          c := Img.Colors[x, y];\r\n//          p^ := Hi(c.alpha) shl 24 + Hi(c.red) shl 16 + Hi(c.green) shl 8 + Hi(c.blue);\r\n//          inc(p);\r\n//        end;\r\n//      end;\r\n//    finally\r\n//      Img.Free;\r\n//    end;\r\n//    Result := True;\r\n//  end;\r\n\r\n//  function CreateCairoImage: Pcairo_surface_t;\r\n//  var\r\n//    buf: PByte;\r\n//  begin\r\n//    try\r\n//      buf := GetMem(ABitmap.Width*ABitmap.Height*4);\r\n//\r\n//      if not GraphicToARGB32(ABitmap, buf) then\r\n//        Exit;\r\n//\r\n//      Result := cairo_image_surface_create_for_data(buf, CAIRO_FORMAT_ARGB32, ABitmap.Width, ABitmap.Height, ABitmap.Width * 4);\r\n//    finally\r\n//      Freemem(buf);\r\n//    end;\r\n//  end;\r\nbegin\r\n  if not Assigned(ABitmap) or not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  SaveContext;\r\n//  R := ADstRect;\r\n//  img := CreateCairoImage;\r\n  try\r\n//    cairo_translate(FNCanvas, R.Left, R.Top);\r\n//    cairo_scale(FNCanvas, r.Width / ABitmap.Width, r.Height / ABitmap.Height);\r\n//    cairo_set_source_surface(FNCanvas, img, 0, 0);\r\n//    cairo_paint(FNCanvas);\r\n  finally\r\n//    cairo_surface_destroy(img);\r\n  end;\r\n  RestoreContext;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.DrawEllipse(AStroke: TTMSFNCGraphicsStroke;\r\n  ARect: TRectF; AModifyRectMode: TTMSFNCGraphicsModifyRectMode);\r\n//var\r\n//  r: TRectF;\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n//  r := ARect;\r\n  SaveContext;\r\n//  cairo_new_path(FNCanvas);\r\n//  cairo_arc(FNCanvas, r.Left + r.Width / 2, r.Top + r.Height / 2, r.Width / 2, 0, 2 * PI);\r\n  ApplyStroke;\r\n//  cairo_stroke(FNCanvas);\r\n  RestoreContext;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.DrawFocusPath(\r\n  AStroke: TTMSFNCGraphicsStroke; APath: TTMSFNCGraphicsPath;\r\n  AColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.DrawFocusRectangle(\r\n  AStroke: TTMSFNCGraphicsStroke; ARect: TRectF; AColor: TTMSFNCGraphicsColor;\r\n  AModifyRectMode: TTMSFNCGraphicsModifyRectMode);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.DrawLine(AStroke: TTMSFNCGraphicsStroke;\r\n  AFromPoint: TPointF; AToPoint: TPointF;\r\n  AModifyPointModeFrom: TTMSFNCGraphicsModifyPointMode;\r\n  AModifyPointModeTo: TTMSFNCGraphicsModifyPointMode);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  SaveContext;\r\n//  cairo_new_path(FNCanvas);\r\n//  cairo_move_to(FNCanvas, AFromPoint.X, AFromPoint.Y);\r\n//  cairo_line_to(FNCanvas, AToPoint.X, AToPoint.Y);\r\n//  cairo_stroke(FNCanvas);\r\n  RestoreContext;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.DrawLinearGradient(ARect: TRectF);\r\n//var\r\n//  pat: Pcairo_pattern_t;\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  case FFill.Orientation of\r\n    gfoHorizontal: {pat := cairo_pattern_create_linear(ARect.Left, ARect.Top + ARect.Height / 2, ARect.Right, ARect.Top + ARect.Height / 2)};\r\n    gfoVertical: {pat := cairo_pattern_create_linear(ARect.Left + ARect.Width / 2, ARect.Top, ARect.Left + ARect.Width / 2, ARect.Bottom)};\r\n  end;\r\n\r\n  if (FFill.ColorTo <> gcnull) and (FFill.ColorMirror <> gcNull) then\r\n  begin\r\n//    cairo_pattern_add_color_stop_rgba(pat, 0, TTMSFNCGraphics.GetColorRed(FFill.Color) / 255, TTMSFNCGraphics.GetColorGreen(FFill.Color) / 255, TTMSFNCGraphics.GetColorBlue(FFill.Color) / 255, FFill.Opacity);\r\n//    cairo_pattern_add_color_stop_rgba(pat, 0.5, TTMSFNCGraphics.GetColorRed(FFill.ColorTo) / 255, TTMSFNCGraphics.GetColorGreen(FFill.ColorTo) / 255, TTMSFNCGraphics.GetColorBlue(FFill.ColorTo) / 255, FFill.Opacity);\r\n//    cairo_pattern_add_color_stop_rgba(pat, 0.5, TTMSFNCGraphics.GetColorRed(FFill.ColorMirror) / 255, TTMSFNCGraphics.GetColorGreen(FFill.ColorMirror) / 255, TTMSFNCGraphics.GetColorBlue(FFill.ColorMirror) / 255, FFill.Opacity);\r\n//    cairo_pattern_add_color_stop_rgba(pat, 1, TTMSFNCGraphics.GetColorRed(FFill.ColorMirrorTo) / 255, TTMSFNCGraphics.GetColorGreen(FFill.ColorMirrorTo) / 255, TTMSFNCGraphics.GetColorBlue(FFill.ColorMirrorTo) / 255, FFill.Opacity);\r\n  end\r\n  else if FFill.ColorTo <> gcNull then\r\n  begin\r\n//    cairo_pattern_add_color_stop_rgba(pat, 0, TTMSFNCGraphics.GetColorRed(FFill.Color) / 255, TTMSFNCGraphics.GetColorGreen(FFill.Color) / 255, TTMSFNCGraphics.GetColorBlue(FFill.Color) / 255, FFill.Opacity);\r\n//    cairo_pattern_add_color_stop_rgba(pat, 1, TTMSFNCGraphics.GetColorRed(FFill.ColorTo) / 255, TTMSFNCGraphics.GetColorGreen(FFill.ColorTo) / 255, TTMSFNCGraphics.GetColorBlue(FFill.ColorTo) / 255, FFill.Opacity);\r\n  end;\r\n\r\n//  cairo_rectangle(FNCanvas, ARect.Left, ARect.Top, ARect.Width, ARect.Height);\r\n//  cairo_set_source(FNCanvas, pat);\r\n//  cairo_fill(FNCanvas);\r\n//  cairo_pattern_destroy(pat);\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.DrawPath(AStroke: TTMSFNCGraphicsStroke;\r\n  APath: TTMSFNCGraphicsPath; APathMode: TTMSFNCGraphicsPathDrawMode);\r\nvar\r\n  p: TTMSFNCGraphicsPathPolygon;\r\nbegin\r\n  if Assigned(APath) then\r\n  begin\r\n    FActivePath := APath;\r\n    SetLength(p, 0);\r\n    APath.FlattenToPolygon(p);\r\n    case APathMode of\r\n      pdmPolygon: DrawPolygon(AStroke, p);\r\n      pdmPolyline: DrawPolyline(AStroke, p);\r\n    end;\r\n    FActivePath := nil;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.DrawPolygon(AStroke: TTMSFNCGraphicsStroke;\r\n  APolygon: TTMSFNCGraphicsPathPolygon);\r\n//var\r\n//  I: Integer;\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  if Length(APolygon) = 0 then\r\n    Exit;\r\n\r\n  SaveContext;\r\n//  cairo_new_path(FNCanvas);\r\n//  cairo_move_to(FNCanvas, APolygon[0].X, APolygon[0].Y);\r\n//  for I := 1 to Length(APolygon) - 1 do\r\n//    cairo_line_to(FNCanvas, APolygon[I].X, APolygon[I].Y);\r\n//  cairo_close_path(FNCanvas);\r\n  ApplyStroke;\r\n//  cairo_stroke(FNCanvas);\r\n  RestoreContext;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.DrawPolyline(AStroke: TTMSFNCGraphicsStroke;\r\n  APolyline: TTMSFNCGraphicsPathPolygon);\r\n//var\r\n//  I: Integer;\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  if Length(APolyline) = 0 then\r\n    Exit;\r\n\r\n  SaveContext;\r\n//  cairo_new_path(FNCanvas);\r\n//  cairo_move_to(FNCanvas, APolyline[0].X, APolyline[0].Y);\r\n//  for I := 1 to Length(APolyline) - 1 do\r\n//    cairo_line_to(FNCanvas, APolyline[I].X, APolyline[I].Y);\r\n  ApplyStroke;\r\n//  cairo_stroke(FNCanvas);\r\n  RestoreContext;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.DrawRect(AStroke: TTMSFNCGraphicsStroke;\r\n  ARect: TRectF; ASides: TTMSFNCGraphicsSides;\r\n  AModifyRectMode: TTMSFNCGraphicsModifyRectMode);\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  r := ARect;\r\n  if gsTop in ASides then\r\n    DrawLine(AStroke, PointF(r.Left, r.Top), PointF(r.Right, r.Top));\r\n  if gsLeft in ASides then\r\n    DrawLine(AStroke, PointF(r.Left, r.Top), PointF(r.Left, r.Bottom));\r\n  if gsBottom in ASides then\r\n    DrawLine(AStroke, PointF(r.Left, r.Bottom), PointF(r.Right, r.Bottom));\r\n  if gsRight in ASides then\r\n    DrawLine(AStroke, PointF(r.Right, r.Top), PointF(r.Right, r.Bottom));\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.DrawRoundRect(\r\n  AStroke: TTMSFNCGraphicsStroke; ARect: TRectF; ARounding: Single;\r\n  ACorners: TTMSFNCGraphicsCorners;\r\n  AModifyRectMode: TTMSFNCGraphicsModifyRectMode);\r\nvar\r\n  pth: TTMSFNCGraphicsPath;\r\n  r: TRectF;\r\n  rc: Single;\r\nbegin\r\n  r := ARect;\r\n  rc := ARounding;\r\n\r\n  pth := TTMSFNCGraphicsPath.Create;\r\n  try\r\n    if gcBottomLeft in ACorners then\r\n    begin\r\n      pth.MoveTo(PointF(r.Left + rc, r.Bottom));\r\n      pth.AddArc(PointF(r.Left + rc, r.Bottom - rc), PointF(rc, rc), -270, 90);\r\n      pth.LineTo(PointF(r.Left, r.Bottom - rc));\r\n    end\r\n    else\r\n    begin\r\n      pth.MoveTo(PointF(r.Left, r.Bottom));\r\n    end;\r\n\r\n    if gcTopLeft in ACorners then\r\n    begin\r\n      pth.LineTo(PointF(r.Left, r.Top + rc));\r\n      pth.AddArc(PointF(r.Left + rc, r.Top + rc), PointF(rc, rc), -180, 90);\r\n      pth.LineTo(PointF(r.Left + rc, r.Top));\r\n    end\r\n    else\r\n      pth.LineTo(PointF(r.Left, r.Top));\r\n\r\n    if gcTopRight in ACorners then\r\n    begin\r\n      pth.LineTo(PointF(r.Right - rc, r.Top));\r\n      pth.AddArc(PointF(r.Right - rc, r.Top + rc), PointF(rc, rc), -90, 90);\r\n      pth.LineTo(PointF(r.Right, r.Top + rc));\r\n    end\r\n    else\r\n      pth.LineTo(PointF(r.Right, r.Top));\r\n\r\n    if gcBottomRight in ACorners then\r\n    begin\r\n      pth.LineTo(PointF(r.Right, r.Bottom - rc));\r\n      pth.AddArc(PointF(r.Right - rc, r.Bottom - rc), PointF(rc, rc), 0, 90);\r\n      pth.LineTo(PointF(r.Right - rc, r.Bottom));\r\n    end\r\n    else\r\n      pth.LineTo(PointF(r.Right, r.Bottom));\r\n\r\n    if gcBottomLeft in ACorners then\r\n      pth.LineTo(PointF(r.Left + rc, r.Bottom))\r\n    else\r\n      pth.LineTo(PointF(r.Left, r.Bottom));\r\n\r\n    pth.ClosePath;\r\n\r\n    DrawPath(FStroke, pth);\r\n  finally\r\n    pth.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.DrawText(AText: string; ARect: TRectF;\r\n  AWordWrapping: Boolean; AHorizontalAlign,\r\n  AVerticalAlign: TTMSFNCGraphicsTextAlign;\r\n  ATrimming: TTMSFNCGraphicsTextTrimming; AAngle: Single);\r\nvar\r\n  R: TRectF;\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  SaveContext;\r\n  R := DrawTextInternal(AText, ARect, AWordWrapping, AHorizontalAlign, True);\r\n  case AVerticalAlign of\r\n    gtaCenter: DrawTextInternal(AText, RectF(ARect.Left, ARect.Top + ((ARect.Bottom - ARect.Top) - (r.Bottom - r.Top)) / 2, ARect.Right, ARect.Top + ((ARect.Bottom - ARect.Top) - (r.Bottom - r.Top)) / 2 + (r.Bottom - r.Top)), AWordWrapping, AHorizontalAlign, False);\r\n    gtaLeading: DrawTextInternal(AText, RectF(ARect.Left, ARect.Top, ARect.Right, ARect.Top + (r.Bottom - r.Top)), AWordWrapping, AHorizontalAlign, False);\r\n    gtaTrailing: DrawTextInternal(AText, RectF(ARect.Left, ARect.Bottom - (r.Bottom - r.Top), ARect.Right, ARect.Bottom), AWordWrapping, AHorizontalAlign, False);\r\n  end;\r\n  RestoreContext;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.EndScene;\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  Render;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.FillArc(AFill: TTMSFNCGraphicsFill; ACenter,\r\n  ARadius: TPointF; AStartAngle, ASweepAngle: Single);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  SaveContext;\r\n//  cairo_new_path(FNCanvas);\r\n//  cairo_arc(FNCanvas, ACenter.X, ACenter.Y, ARadius.X, DegToRad(AStartAngle), DegToRad(AStartAngle + ASweepAngle));\r\n  case AFill.Kind of\r\n    gfkSolid:\r\n    begin\r\n      ApplyFill;\r\n//      cairo_fill(FNCanvas);\r\n    end;\r\n    gfkGradient:\r\n    begin\r\n//      cairo_clip(FNCanvas);\r\n      DrawLinearGradient(RectF(ACenter.X - ARadius.X, ACenter.Y - ARadius.Y, ACenter.X + ARadius.X, ACenter.Y + ARadius.Y));\r\n    end;\r\n  end;\r\n  RestoreContext;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.FillChanged(Sender: TObject);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n     Exit;\r\n\r\n  ApplyFill;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.FillEllipse(AFill: TTMSFNCGraphicsFill;\r\n  ARect: TRectF; AModifyRectMode: TTMSFNCGraphicsModifyRectMode);\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  r := ARect;\r\n  SaveContext;\r\n//  cairo_new_path(FNCanvas);\r\n//  cairo_arc(FNCanvas, r.Left + r.Width / 2, r.Top + r.Height / 2, r.Width / 2, 0, 2 * PI);\r\n  case AFill.Kind of\r\n    gfkSolid:\r\n    begin\r\n      ApplyFill;\r\n//      cairo_fill(FNCanvas);\r\n    end;\r\n    gfkGradient:\r\n    begin\r\n//      cairo_clip(FNCanvas);\r\n      DrawLinearGradient(r);\r\n    end;\r\n  end;\r\n  RestoreContext;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.FillPath(AFill: TTMSFNCGraphicsFill;\r\n  APath: TTMSFNCGraphicsPath; APathMode: TTMSFNCGraphicsPathDrawMode);\r\nvar\r\n  p: TTMSFNCGraphicsPathPolygon;\r\nbegin\r\n  if Assigned(APath) then\r\n  begin\r\n    FActivePath := APath;\r\n    SetLength(p, 0);\r\n    APath.FlattenToPolygon(p);\r\n    case APathMode of\r\n      pdmPolygon: FillPolygon(AFill, p);\r\n      pdmPolyline: FillPolyline(AFill, p);\r\n    end;\r\n    FActivePath := nil;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.FillPolygon(AFill: TTMSFNCGraphicsFill;\r\n  APolygon: TTMSFNCGraphicsPathPolygon);\r\n//var\r\n//  I: Integer;\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  if Length(Apolygon) = 0 then\r\n    Exit;\r\n\r\n  SaveContext;\r\n//  cairo_new_path(FNCanvas);\r\n//  cairo_move_to(FNCanvas, APolygon[0].X, APolygon[0].Y);\r\n//  for I := 1 to Length(APolygon) - 1 do\r\n//    cairo_line_to(FNCanvas, APolygon[I].X, APolygon[I].Y);\r\n//  cairo_close_path(FNCanvas);\r\n  case AFill.Kind of\r\n    gfkSolid:\r\n    begin\r\n      ApplyFill;\r\n//      cairo_fill(FNCanvas);\r\n    end;\r\n    gfkGradient:\r\n    begin\r\n//      cairo_clip(FNCanvas);\r\n      if Assigned(FActivePath) then\r\n        DrawLinearGradient(FActivePath.GetBounds);\r\n    end;\r\n  end;\r\n  RestoreContext;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.FillPolyline(AFill: TTMSFNCGraphicsFill;\r\n  APolyline: TTMSFNCGraphicsPathPolygon);\r\n//var\r\n//  I: Integer;\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  if Length(APolyline) = 0 then\r\n    Exit;\r\n\r\n  SaveContext;\r\n//  cairo_new_path(FNCanvas);\r\n//  cairo_move_to(FNCanvas, APolyline[0].X, APolyline[0].Y);\r\n//  for I := 1 to Length(APolyline) - 1 do\r\n//    cairo_line_to(FNCanvas, APolyline[I].X, APolyline[I].Y);\r\n  case AFill.Kind of\r\n    gfkSolid:\r\n    begin\r\n      ApplyFill;\r\n//      cairo_fill(FNCanvas);\r\n    end;\r\n    gfkGradient:\r\n    begin\r\n//      cairo_clip(FNCanvas);\r\n      if Assigned(FActivePath) then\r\n        DrawLinearGradient(FActivePath.GetBounds);\r\n    end;\r\n  end;\r\n  RestoreContext;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.FillRect(AFill: TTMSFNCGraphicsFill;\r\n  ARect: TRectF; AModifyRectMode: TTMSFNCGraphicsModifyRectMode);\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  r := ARect;\r\n  SaveContext;\r\n//  cairo_new_path(FNCanvas);\r\n//  cairo_rectangle(FNCanvas, r.Left, r.Top, r.Width, r.Height);\r\n  case AFill.Kind of\r\n    gfkSolid:\r\n    begin\r\n      ApplyFill;\r\n//      cairo_fill(FNCanvas);\r\n    end;\r\n    gfkGradient:\r\n    begin\r\n//      cairo_clip(FNCanvas);\r\n      DrawLinearGradient(r);\r\n    end;\r\n  end;\r\n  RestoreContext;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.FillRoundRect(AFill: TTMSFNCGraphicsFill;\r\n  ARect: TRectF; ARounding: Single; ACorners: TTMSFNCGraphicsCorners;\r\n  AModifyRectMode: TTMSFNCGraphicsModifyRectMode);\r\nvar\r\n  pth: TTMSFNCGraphicsPath;\r\n  r: TRectF;\r\n  rc: Single;\r\nbegin\r\n  r := ARect;\r\n  rc := ARounding;\r\n\r\n  pth := TTMSFNCGraphicsPath.Create;\r\n  try\r\n    if gcBottomLeft in ACorners then\r\n    begin\r\n      pth.MoveTo(PointF(r.Left + rc, r.Bottom));\r\n      pth.AddArc(PointF(r.Left + rc, r.Bottom - rc), PointF(rc, rc), -270, 90);\r\n      pth.LineTo(PointF(r.Left, r.Bottom - rc));\r\n    end\r\n    else\r\n    begin\r\n      pth.MoveTo(PointF(r.Left, r.Bottom));\r\n    end;\r\n\r\n    if gcTopLeft in ACorners then\r\n    begin\r\n      pth.LineTo(PointF(r.Left, r.Top + rc));\r\n      pth.AddArc(PointF(r.Left + rc, r.Top + rc), PointF(rc, rc), -180, 90);\r\n      pth.LineTo(PointF(r.Left + rc, r.Top));\r\n    end\r\n    else\r\n      pth.LineTo(PointF(r.Left, r.Top));\r\n\r\n    if gcTopRight in ACorners then\r\n    begin\r\n      pth.LineTo(PointF(r.Right - rc, r.Top));\r\n      pth.AddArc(PointF(r.Right - rc, r.Top + rc), PointF(rc, rc), -90, 90);\r\n      pth.LineTo(PointF(r.Right, r.Top + rc));\r\n    end\r\n    else\r\n      pth.LineTo(PointF(r.Right, r.Top));\r\n\r\n    if gcBottomRight in ACorners then\r\n    begin\r\n      pth.LineTo(PointF(r.Right, r.Bottom - rc));\r\n      pth.AddArc(PointF(r.Right - rc, r.Bottom - rc), PointF(rc, rc), 0, 90);\r\n      pth.LineTo(PointF(r.Right - rc, r.Bottom));\r\n    end\r\n    else\r\n      pth.LineTo(PointF(r.Right, r.Bottom));\r\n\r\n    if gcBottomLeft in ACorners then\r\n      pth.LineTo(PointF(r.Left + rc, r.Bottom))\r\n    else\r\n      pth.LineTo(PointF(r.Left, r.Bottom));\r\n\r\n    pth.ClosePath;\r\n\r\n    FillPath(FFill, pth);\r\n  finally\r\n    pth.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.FontChanged(Sender: TObject);\r\nbegin\r\nend;\r\n\r\nfunction TTMSFNCGraphicsContextWEB.GetFillColor: TTMSFNCGraphicsColor;\r\nbegin\r\n  Result := Graphics.Fill.Color;\r\nend;\r\n\r\nfunction TTMSFNCGraphicsContextWEB.GetNativeCanvas: Pointer;\r\nbegin\r\n  Result := FNCanvas;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.PathClose(APath: Pointer);\r\nbegin\r\n//  cairo_close_path(FNCanvas);\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.PathLineTo(APath: Pointer; APoint: TPointF);\r\nbegin\r\n//  cairo_line_to(FNCanvas, APoint.X, APoint.Y);\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.PathMoveTo(APath: Pointer; APoint: TPointF);\r\nbegin\r\n//  cairo_move_to(FNCanvas, APoint.X, APoint.Y);\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.PathOpen(APath: Pointer);\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.Render;\r\nbegin\r\n  if not FNeedsRendering then\r\n    Exit;\r\n\r\n//  if Assigned(FNCanvas) and Assigned(FBitmap) then\r\n//    Canvas.Draw(0, 0, FBitmap);\r\n\r\n  FNeedsRendering := False;\r\n  DestroyResources;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.ResetClip;\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  RestoreContext;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.ResetTextAngle(AAngle: Single);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  if AAngle <> 0 then\r\n    RestoreContext;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.ResetTransform;\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  RestoreContext;\r\n  SaveContext;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.RestoreState(\r\n  AState: TTMSFNCGraphicsSaveState);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  RestoreContext;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.RotateTransform(AAngle: Single);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n//  cairo_rotate(FNCanvas, DegToRad(AAngle));\r\nend;\r\n\r\nfunction TTMSFNCGraphicsContextWEB.DrawTextInternal(AText: String; ARect: TRectF; AWordWrap: Boolean; AHorizontalAlignment: TTMSFNCGraphicsTextAlign; ACalculate: Boolean): TRectF;\r\nvar\r\n  i: Integer;\r\n  s, sn: string;\r\n//  st: string;\r\n  l: Integer;\r\n  w, mw: Single;\r\n  f: Boolean;\r\n  //p: Integer;\r\n  tw: Single;\r\n  th: Single;\r\n  lcnt: Integer;\r\n  rs: TRectF;\r\n  fws: Single;\r\n//  te: cairo_text_extents_t;\r\n//  ths: Single;\r\n\r\n  procedure ApplyFont;\r\n//  var\r\n//    slant: cairo_font_slant_t;\r\n//    weight: cairo_font_weight_t;\r\n//    fn: string;\r\n//    sz: Single;\r\n  begin\r\n//    fn := FFont.Name;\r\n//    if (fn = '') or (UpperCase(fn) = 'DEFAULT') then\r\n//      fn := 'sans-serif';\r\n//\r\n//    sz := FFont.Size;\r\n//    if sz = 0 then\r\n//      sz := 12;\r\n//\r\n//    if fsBold in FFont.Style then\r\n//      weight := CAIRO_FONT_WEIGHT_BOLD\r\n//    else\r\n//      weight := CAIRO_FONT_WEIGHT_NORMAL;\r\n//\r\n//    if fsItalic in FFont.Style then\r\n//      slant := CAIRO_FONT_SLANT_ITALIC\r\n//    else\r\n//      slant := CAIRO_FONT_SLANT_NORMAL;\r\n//\r\n//    cairo_select_font_face(FNCanvas, PChar(fn), slant, weight);\r\n//    cairo_set_font_size(FNCanvas, sz * 1.3);\r\n//    cairo_set_source_rgb(FNCanvas, TTMSFNCGraphics.GetColorRed(FFont.Color) / 255, TTMSFNCGraphics.GetColorGreen(FFont.Color) / 255,\r\n//      TTMSFNCGraphics.GetColorBlue(FFont.Color) / 255);\r\n  end;\r\n\r\n  function FindNextWord(AText: String; var APos: Integer): String;\r\n  var\r\n    l: integer;\r\n    i: integer;\r\n  begin\r\n    Result := '';\r\n\r\n    l := Length(AText);\r\n    if APos > l then\r\n      Exit;\r\n\r\n    i := APos;\r\n    while True do\r\n    begin\r\n      if ((AText[i] = #10) and (AText[i - 1] = #13)) or ((AText[i] = #13) and (AText[i - 1] = #10)) or (AText[i] = ' ') then\r\n      begin\r\n        if AText[i] = ' ' then\r\n          Result := Copy(AText, APos, i - (APos - 1))\r\n        else\r\n          Result := Copy(AText, APos, i - APos);\r\n\r\n        Break;\r\n      end\r\n      else if (AText[i] = #10) or (AText[i] = #13) or (AText[i] = ' ') then\r\n      begin\r\n        result := Copy(AText, APos, i - (APos - 1));\r\n        Break;\r\n      end\r\n      else if i >= l then\r\n      begin\r\n        result := Copy(AText, APos, i - (APos - 1));\r\n        Break;\r\n      end\r\n      else\r\n        inc(i);\r\n    end;\r\n\r\n    APos := i + 1;\r\n  end;\r\nbegin\r\n  ApplyFont;\r\n  if not AWordWrap then\r\n  begin\r\n//    cairo_text_extents(FNCanvas, PChar(AText), @te);\r\n    if not ACalculate then\r\n    begin\r\n//      case AHorizontalAlignment of\r\n//        gtaCenter: cairo_move_to(FNCanvas, ARect.Left + (ARect.Width - te.x_advance) / 2, ARect.Top + te.height);\r\n//        gtaLeading: cairo_move_to(FNCanvas, ARect.Left, ARect.Top + te.height);\r\n//        gtaTrailing: cairo_move_to(FNCanvas, ARect.Right - te.x_advance, ARect.Top + te.height);\r\n//      end;\r\n//      cairo_show_text(FNCanvas, PChar(AText));\r\n    end;\r\n//    Result := RectF(ARect.Left, ARect.Top, ARect.Left + te.x_advance, ARect.Top + te.Height);\r\n  end\r\n  else\r\n  begin\r\n    rs := ARect;\r\n\r\n    mw := 0;\r\n    i := 1;\r\n//    ths := FFont.Size * 0.5;\r\n    lcnt := 0;\r\n    fws := 0;\r\n    tw := 0;\r\n    s := FindNextWord(AText, i);\r\n//    cairo_text_extents(FNCanvas, PChar(s), @te);\r\n//    w := te.x_advance;\r\n//    th := te.Height + ths;\r\n\r\n    mw := mw + w;\r\n    if (Length(s) > 0) and (s[Length(s)] = ' ') then\r\n      mw := mw + fws;\r\n\r\n    while i <= Length(AText) do\r\n    begin\r\n      l := Length(s);\r\n      if (l >= 2) and (((s[l] = #10) and (s[l - 1] = #13)) or ((s[l] = #13) and (s[l - 1] = #10))) then\r\n      begin\r\n        s := Copy(s, 1, l - 2);\r\n        f := True;\r\n      end\r\n      else if (l >= 1) and ((s[l] = #10) or (s[l] = #13)) then\r\n      begin\r\n        s := Copy(s, 1, l - 1);\r\n        f := True;\r\n      end\r\n      else\r\n        f := False;\r\n\r\n      sn := FindNextWord(AText, i);\r\n//      cairo_text_extents(FNCanvas, PChar(sn), @te);\r\n//      w := te.x_advance;\r\n//      th := Max(th, te.Height + ths);\r\n\r\n      if (ARect.Left + mw + w > ARect.Right) or f then\r\n      begin\r\n        if s <> '' then\r\n        begin\r\n//          p := Length(s);\r\n//          st := Copy(s, 1, p);\r\n\r\n          Inc(lcnt);\r\n          if mw > tw then\r\n            tw := mw;\r\n\r\n          if not ACalculate then\r\n          begin\r\n//            case AHorizontalAlignment of\r\n//              gtaCenter: cairo_move_to(FNCanvas, ARect.Left + (ARect.Width - mw) / 2, ARect.Top + th);\r\n//              gtaLeading: cairo_move_to(FNCanvas, ARect.Left, ARect.Top + th);\r\n//              gtaTrailing: cairo_move_to(FNCanvas, ARect.Right - mw, ARect.Top + th);\r\n//            end;\r\n//            cairo_show_text(FNCanvas, PChar(st));\r\n          end;\r\n\r\n          mw := 0;\r\n        end;\r\n\r\n        s := '';\r\n\r\n        ARect.Top := ARect.Top + th;\r\n        if (Trunc(ARect.Top) > Trunc(ARect.Bottom - th)) and not ACalculate then\r\n          Break;\r\n      end;\r\n\r\n      mw := mw + w;\r\n      if (Length(sn) > 0) and (sn[Length(sn)] = ' ') then\r\n        mw := mw + fws;\r\n      s := s + sn;\r\n    end;\r\n\r\n    if s <> '' then\r\n    begin\r\n//      p := Length(s);\r\n//      st := Copy(s, 1, p);\r\n      Inc(lcnt);\r\n      if mw > tw then\r\n        tw := mw;\r\n\r\n      if not ACalculate then\r\n      begin\r\n//        case AHorizontalAlignment of\r\n//          gtaCenter: cairo_move_to(FNCanvas, ARect.Left + (ARect.Width - mw) / 2, ARect.Top + th);\r\n//          gtaLeading: cairo_move_to(FNCanvas, ARect.Left, ARect.Top + th);\r\n//          gtaTrailing: cairo_move_to(FNCanvas, ARect.Right - mw, ARect.Top + th);\r\n//        end;\r\n//        cairo_show_text(FNCanvas, PChar(st));\r\n      end;\r\n    end;\r\n\r\n    Result := RectF(rs.Left, rs.Top, rs.Left + tw, rs.Top + lcnt * th);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.SaveContext;\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n//  cairo_save(FNCanvas);\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.RestoreContext;\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n//  cairo_restore(FNCanvas);\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.SaveState(AState: TTMSFNCGraphicsSaveState);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  SaveContext;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.ScaleTransform(AX, AY: Single);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n//  cairo_scale(FNCanvas, AX, AY);\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.SetSize(AWidth, AHeight: Single);\r\nbegin\r\n  FContextSize.cx := AWidth;\r\n  FContextSize.cy := AHeight;\r\n\r\n  DestroyResources;\r\n\r\n  FBitmap := TBitmap.Create;\r\n//  FBitmap.SetSize(Round(AWidth * FScale), Round(AHeight * FScale));\r\n//  FBitmap.Canvas.Brush.Style := bsSolid;\r\n//  FBitmap.Canvas.Brush.Color := gcWhite;\r\n//  FBitmap.Canvas.FillRect(0, 0, FBitmap.Width, FBitmap.Height);\r\n\r\n//  {$IFDEF LINUX}\r\n//  {$IFDEF LCLGTK2}\r\n//  FNCanvas := gdk_cairo_create(TGtkDeviceContext(FBitmap.Canvas.Handle).Drawable);\r\n//  {$ENDIF}\r\n//  {$ENDIF}\r\n//  {$IFDEF DARWIN}\r\n//  FNCanvas := nil;\r\n//  {$ENDIF}\r\n  ScaleTransform(FScale, FScale);\r\n  SaveContext;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.SetTextQuality(ATextQuality: TTMSFNCGraphicsTextQuality);\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.SetShowAcceleratorChar(AShowAcceleratorChar: Boolean);\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.SetAntiAliasing(AAntiAliasing: Boolean);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n//  if AAntiAliasing then\r\n//  begin\r\n//    {$IFDEF LINUX}\r\n//    cairo_set_antialias(FNCanvas, CAIRO_ANTIALIAS_BEST);\r\n//    {$ENDIF}\r\n//    {$IFDEF DARWIN}\r\n//    cairo_set_antialias(FNCanvas, CAIRO_ANTIALIAS_DEFAULT);\r\n//    {$ENDIF}\r\n//  end\r\n//  else\r\n//    cairo_set_antialias(FNCanvas, CAIRO_ANTIALIAS_NONE);\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.SetFill(AFill: TTMSFNCGraphicsFill);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  FFill.Assign(AFill);\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.SetFillColor(AColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  FFill.Color := AColor;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.SetFillKind(AKind: TTMSFNCGraphicsFillKind);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  FFill.Kind := AKind;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.SetFont(AFont: TTMSFNCGraphicsFont);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  FFont.AssignSource(AFont);\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.SetFontColor(AColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  FFont.Color := AColor;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.SetFontName(AName: string);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  FFont.Name := AName;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.SetFontSize(ASize: Integer);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  FFont.Size := ASize;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.SetFontStyles(AStyle: TFontStyles);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  FFont.Style := AStyle;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.SetStroke(AStroke: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  FStroke.Assign(AStroke);\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.SetStrokeColor(\r\n  AColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  FStroke.Color := AColor;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.SetStrokeKind(\r\n  AKind: TTMSFNCGraphicsStrokeKind);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  FStroke.Kind := AKind;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.SetStrokeWidth(AWidth: Single);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  FStroke.Width := AWidth;\r\nend;\r\n\r\nfunction TTMSFNCGraphicsContextWEB.SetTextAngle(ARect: TRectF;\r\n  AAngle: Single): TRectF;\r\nvar\r\n  ar: Single;\r\n  cx: TPointF;\r\n  w, h, c, s, cw, ch: Single;\r\nbegin\r\n  Result := ARect;\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n  if AAngle <> 0 then\r\n  begin\r\n    ar := DegToRad(AAngle);\r\n    cx.X := Result.Left + (Result.Right - Result.Left) / 2;\r\n    cx.Y := Result.Top + (Result.Bottom - Result.Top) / 2;\r\n\r\n    SaveContext;\r\n\r\n//    cairo_translate(FNCanvas, cx.X, cx.Y);\r\n//    cairo_rotate(FNCanvas, ar);\r\n\r\n    w := Result.Right - Result.Left;\r\n    h := Result.Bottom - Result.Top;\r\n    c := Cos(ar);\r\n    s := Sin(ar);\r\n\r\n    cw := (Abs(w * c) + Abs(h * s));\r\n    ch := (Abs(w * s) + Abs(h * c));\r\n\r\n    Result := RectF(-cw / 2, -ch / 2, cw / 2, ch / 2);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.StartSpecialPen;\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.StopSpecialPen;\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.StrokeChanged(Sender: TObject);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n     Exit;\r\n\r\n  ApplyStroke;\r\nend;\r\n\r\nprocedure TTMSFNCGraphicsContextWEB.TranslateTransform(AX, AY: Single);\r\nbegin\r\n  if not Assigned(FNCanvas) then\r\n    Exit;\r\n\r\n//  cairo_translate(FNCanvas, AX, AY);\r\nend;\r\n\r\n{$ENDIF}\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2016 - 2021                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCStyles;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF VCLLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 22}\r\n{$DEFINE VCLSTYLESENABLED}\r\n{$IFEND}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, WEBLib.Graphics, WEBLib.Controls, WEBLib.Forms, WEBLib.TMSFNCTypes, WEBLib.TMSFNCCustomComponent, WEBLib.TMSFNCGraphicsTypes\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Types, UITypes\r\n  {$ENDIF}\r\n  {$IFDEF VCLSTYLESENABLED}\r\n  ,VCL.Themes\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,js\r\n  {$ENDIF}\r\n  {$IFDEF FNCLIB}\r\n  {$IFDEF WEBLIB}\r\n  ,WEBLIB.JSON\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 26}\r\n  ,JSON\r\n  {$ELSE}\r\n  ,DBXJSON\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  ,fpjson, jsparser\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  ITMSFNCAdaptToStyle = interface\r\n  ['{3EFF288D-3927-4E86-8E9D-EF684B501C9E}']\r\n    function GetAdaptToStyle: Boolean;\r\n    procedure SetAdaptToStyle(const Value: Boolean);\r\n    property AdaptToStyle: Boolean read GetAdaptToStyle write SetAdaptToStyle;\r\n  end;\r\n\r\n  TTMSFNCStyles = class\r\n  private class var\r\n    {$IFDEF FMXLIB}\r\n    FScene: IScene;\r\n    {$ENDIF}\r\n  protected\r\n    {$IFDEF FMXLIB}\r\n    class function ExtractColor(ABitmap: TBitmap): TTMSFNCGraphicsColor; virtual;\r\n    class function ExtractColorTo(ABitmap: TBitmap): TTMSFNCGraphicsColor; virtual;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    class function ExtractColor(AValue: string): TTMSFNCGraphicsColor; virtual;\r\n    class function ExtractColorTo(AValue: string): TTMSFNCGraphicsColor; virtual;\r\n    class function ExtractFontName(AValue: string): string; virtual;\r\n    {$ENDIF}\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    class function ExtractColor(AElement: TThemedElementDetails): TTMSFNCGraphicsColor; virtual;\r\n    class function ExtractColorTo(AElement: TThemedElementDetails): TTMSFNCGraphicsColor; virtual;\r\n    {$ENDIF}\r\n    {$IFDEF FMXLIB}\r\n    class function ParseBrush(ABrush: TBrush; ASecondColor: Boolean): TTMSFNCGraphicsColor; virtual;\r\n    class function GetStyleSceneObject: TFmxObject; virtual;\r\n    class function GetStyleBackgroundFill(AStyle: TFmxObject): TBrush; virtual;\r\n    class function GetStyleBackgroundStroke(AStyle: TFmxObject): TStrokeBrush; virtual;\r\n    class function GetStyleDefaultButtonFill(AStyle: TFmxObject): TBrush; virtual;\r\n    class function GetStyleDefaultButtonStroke(AStyle: TFmxObject): TStrokeBrush; virtual;\r\n    class function GetStyleEditTextColor(AStyle: TFmxObject): TAlphaColor; virtual;\r\n    class function GetStyleEditFill(AStyle: TFmxObject): TBrush; virtual;\r\n    class function GetStyleEditStroke(AStyle: TFmxObject): TStrokeBrush; virtual;\r\n    class function GetStyleHeaderFill(AStyle: TFmxObject): TBrush; virtual;\r\n    class function GetStyleHeaderStroke(AStyle: TFmxObject): TStrokeBrush; virtual;\r\n    class function GetStyleSelectionFill(AStyle: TFmxObject): TBrush; virtual;\r\n    class function GetStyleAlternativeSelectionFill(AStyle: TFmxObject): TBrush; virtual;\r\n    class function GetStyleAlternativeBackgroundFill(AStyle: TFmxObject): TBrush; virtual;\r\n    class function GetStyleAlternativeBackgroundStroke(AStyle: TFmxObject): TStrokeBrush; virtual;\r\n    class function GetStyleFocusFill(AStyle: TFmxObject): TBrush; virtual;\r\n    class function GetStyleLineFill(AStyle: TFmxObject): TBrush; virtual;\r\n    class function GetStyleTextFont(AStyle: TFmxObject): TFont; virtual;\r\n    class function GetStyleTextColor(AStyle: TFmxObject): TAlphaColor; virtual;\r\n    class function GetStyleAlternateBackgroundFill(AStyle: TFmxObject): TBrush; virtual;\r\n    class function IsTransparentStyle(AStyle: TFmxObject): Boolean; virtual;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    class function GetStyleBackgroundFill: string; virtual;\r\n    class function GetStyleBackgroundStroke: string; virtual;\r\n    class function GetStyleDefaultButtonFill: string; virtual;\r\n    class function GetStyleDefaultButtonStroke: string; virtual;\r\n    class function GetStyleEditTextColor: string; virtual;\r\n    class function GetStyleEditFill: string; virtual;\r\n    class function GetStyleEditStroke: string; virtual;\r\n    class function GetStyleHeaderFill: string; virtual;\r\n    class function GetStyleHeaderStroke: string; virtual;\r\n    class function GetStyleSelectionFill: string; virtual;\r\n    class function GetStyleAlternativeSelectionFill: string; virtual;\r\n    class function GetStyleAlternativeBackgroundFill: string; virtual;\r\n    class function GetStyleAlternativeBackgroundStroke: string; virtual;\r\n    class function GetStyleFocusFill: string; virtual;\r\n    class function GetStyleLineFill: string; virtual;\r\n    class function GetStyleTextFont: string; virtual;\r\n    class function GetStyleTextColor: string; virtual;\r\n    class function GetStyleAlternateBackgroundFill: string; virtual;\r\n    {$ENDIF}\r\n  public\r\n    {$IFDEF FMXLIB}\r\n    class procedure SetActiveScene(AScene: IScene); virtual;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    class function FindCSSStyleRule(ARuleName: string): TJSObject; virtual;\r\n    class function FindCSSStyleProperty(ARuleName, APropertyName: string): string; virtual;\r\n    {$ENDIF}\r\n    class function StyleServicesEnabled: Boolean; virtual;\r\n    class function GetStyleLineFillColor(var {%H-}AColor: TTMSFNCGraphicsColor): Boolean; virtual;\r\n    class function GetStyleBackgroundFillColor(var {%H-}AColor: TTMSFNCGraphicsColor): Boolean; virtual;\r\n    class function GetStyleBackgroundFillColorTo(var {%H-}AColor: TTMSFNCGraphicsColor): Boolean; virtual;\r\n    class function GetStyleAlternativeBackgroundFillColor(var {%H-}AColor: TTMSFNCGraphicsColor): Boolean; virtual;\r\n    class function GetStyleAlternativeBackgroundFillColorTo(var {%H-}AColor: TTMSFNCGraphicsColor): Boolean; virtual;\r\n    class function GetStyleBackgroundStrokeColor(var {%H-}AColor: TTMSFNCGraphicsColor): Boolean; virtual;\r\n    class function GetStyleHeaderFillColor(var {%H-}AColor: TTMSFNCGraphicsColor): Boolean; virtual;\r\n    class function GetStyleHeaderFillColorTo(var {%H-}AColor: TTMSFNCGraphicsColor): Boolean; virtual;\r\n    class function GetStyleHeaderStrokeColor(var {%H-}AColor: TTMSFNCGraphicsColor): Boolean; virtual;\r\n    class function GetStyleSelectionFillColor(var {%H-}AColor: TTMSFNCGraphicsColor): Boolean; virtual;\r\n    class function GetStyleSelectionFillColorTo(var {%H-}AColor: TTMSFNCGraphicsColor): Boolean; virtual;\r\n    class function GetStyleTextFontColor(var {%H-}AColor: TTMSFNCGraphicsColor): Boolean; virtual;\r\n    class function GetStyleAlternativeTextFontColor(var {%H-}AColor: TTMSFNCGraphicsColor): Boolean; virtual;\r\n    class function GetStyleDefaultButtonFillColor(var {%H-}AColor: TTMSFNCGraphicsColor): Boolean; virtual;\r\n    class function GetStyleDefaultButtonStrokeColor(var {%H-}AColor: TTMSFNCGraphicsColor): Boolean; virtual;\r\n  end;\r\n\r\n  {$IFDEF FNCLIB}\r\n  TTMSFNCStylesManagerCanLoadStyleEvent = procedure(Sender: TObject; AStyle: string; AComponent: TComponent; var ACanLoadStyle: Boolean) of object;\r\n  TTMSFNCStylesManagerStyleLoadedEvent = procedure(Sender: TObject; AStyle: string; AComponent: TComponent) of object;\r\n\r\n  TTMSFNCStylesManagerFileArray = array of string;\r\n\r\n  TTMSFNCStylesManagerComponentArray = array of TComponent;\r\n\r\n  ITMSFNCStylesManager = interface\r\n    ['{88852C7F-B7B5-4FFA-BB47-6D95600CB1F3}']\r\n    function GetSubComponentArray: TTMSFNCStylesManagerComponentArray;\r\n  end;\r\n\r\n  TTMSFNCStylesManagerOptions = class(TPersistent)\r\n  private\r\n    FAdaptFormColor: Boolean;\r\n  public\r\n    constructor Create; virtual;\r\n  published\r\n    property AdaptFormColor: Boolean read FAdaptFormColor write FAdaptFormColor default True;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCStylesManager = class(TTMSFNCCustomComponent)\r\n  private\r\n    {$IFDEF WEBLIB}\r\n    FComponents: TTMSFNCStylesManagerComponentArray;\r\n    {$ENDIF}\r\n    FStyle: string;\r\n    FStyleResource: string;\r\n    FStyleForm: TCustomForm;\r\n    FOnCanLoadStyle: TTMSFNCStylesManagerCanLoadStyleEvent;\r\n    FOnStyleLoaded: TTMSFNCStylesManagerStyleLoadedEvent;\r\n    FOptions: TTMSFNCStylesManagerOptions;\r\n    procedure SetStyle(const Value: string);\r\n    procedure SetStyleResource(const Value: string);\r\n    procedure SetOptions(const Value: TTMSFNCStylesManagerOptions);\r\n  protected\r\n    function GetDocURL: string; override;\r\n    procedure InternalLoadStyleFromJSONValue(AJSONValue: TJSONValue; AComponents: TTMSFNCStylesManagerComponentArray);\r\n    procedure InternalLoadStyle(AValue: string; AComponents: TTMSFNCStylesManagerComponentArray);\r\n    procedure DoCanLoadStyle(AStyle: string; AComponent: TComponent; var ACanLoadStyle: Boolean); virtual;\r\n    procedure DoStyleLoaded(AStyle: string; AComponent: TComponent); virtual;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure LoadStyleFromText(AText: string); overload; virtual;\r\n    procedure LoadStyleFromStream(AStream: TStream); overload; virtual;\r\n    procedure LoadStyleFromFile(AFile: string); overload; virtual;\r\n    procedure LoadStyleFromText(AText: string; AComponents: TTMSFNCStylesManagerComponentArray); overload; virtual;\r\n    procedure LoadStyleFromStream(AStream: TStream; AComponents: TTMSFNCStylesManagerComponentArray); overload; virtual;\r\n    procedure LoadStyleFromFile(AFile: string; AComponents: TTMSFNCStylesManagerComponentArray); overload; virtual;\r\n    {$IFNDEF WEBLIB}\r\n    procedure LoadStyleFromResource(AResourceName: string; AComponents: TTMSFNCStylesManagerComponentArray); overload; virtual;\r\n    procedure LoadStyleFromResource(AResourceName: string); overload; virtual;\r\n    function GetStyleFromResource(AResourceName: string): string; virtual;\r\n    function GetStyleFromFile(AFile: string): string; virtual;\r\n    function CombineStyles(AFiles: TTMSFNCStylesManagerFileArray): string; virtual;\r\n    {$ELSE}\r\n    procedure LoadStyleFromURL(AURL: string; AComponents: TTMSFNCStylesManagerComponentArray); overload; virtual;\r\n    procedure LoadStyleFromURL(AURL: string); overload; virtual;\r\n    {$ENDIF}\r\n    property StyleForm: TCustomForm read FStyleForm write FStyleForm;\r\n  published\r\n    property Options: TTMSFNCStylesManagerOptions read FOptions write SetOptions;\r\n    property Style: string read FStyle write SetStyle;\r\n    property StyleResource: string read FStyleResource write SetStyleResource;\r\n    property OnCanLoadStyle: TTMSFNCStylesManagerCanLoadStyleEvent read FOnCanLoadStyle write FOnCanLoadStyle;\r\n    property OnStyleLoaded: TTMSFNCStylesManagerStyleLoadedEvent read FOnStyleLoaded write FOnStyleLoaded;\r\n  end;\r\n  {$ENDIF}\r\n\r\nvar\r\n  CSSStyleFileName: string = '';\r\n\r\nimplementation\r\n\r\nuses\r\n  WEBLib.TMSFNCUtils, SysUtils, WEBLib.TMSFNCPersistence, WEBLib.TMSFNCGraphics\r\n  {$IFDEF FMXLIB}\r\n  ,UIConsts, FMX.Objects, FMX.Styles, FMX.Styles.Objects, Types\r\n  {$ENDIF}\r\n  ;\r\n\r\n{$IFDEF FNCLIB}\r\n{$R 'TMSFNCStyles.res'}\r\n{$ENDIF}\r\n\r\n{$IFDEF FMXLIB}\r\n\r\nclass function TTMSFNCStyles.ParseBrush(ABrush: TBrush; ASecondColor: Boolean): TTMSFNCGraphicsColor;\r\nbegin\r\n  case ABrush.Kind of\r\n    TBrushKind.None, TBrushKind.Resource: Result := gcNull;\r\n    TBrushKind.Solid: Result := ABrush.Color;\r\n    TBrushKind.Gradient:\r\n    begin\r\n      if ABrush.Gradient.Points.Count > 0 then\r\n      begin\r\n        if ASecondColor then\r\n          Result := ABrush.Gradient.Points[1].Color\r\n        else\r\n          Result := ABrush.Gradient.Points[0].Color;\r\n      end\r\n      else\r\n        Result := ABrush.Color;\r\n    end;\r\n    TBrushKind.Bitmap:\r\n    begin\r\n      if ASecondColor then\r\n        Result := ExtractColorTo(ABrush.Bitmap.Bitmap)\r\n      else\r\n        Result := ExtractColor(ABrush.Bitmap.Bitmap);\r\n    end;\r\n    else\r\n      Result := gcNull;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleSceneObject: TFmxObject;\r\nvar\r\n  frm: TCommonCustomForm;\r\nbegin\r\n  if Assigned(TTMSFNCStyles.FScene) and Assigned(TTMSFNCStyles.FScene.GetObject) and (TTMSFNCStyles.FScene.GetObject.ClassName <> 'TTMSFNCCustomPopupForm') then\r\n  begin\r\n    if Assigned(TTMSFNCStyles.FScene.StyleBook) then\r\n      Result := TTMSFNCStyles.FScene.StyleBook.Style\r\n    else\r\n      Result := TStyleManager.ActiveStyleForScene(TTMSFNCStyles.FScene);\r\n  end\r\n  else\r\n  begin\r\n    frm := Screen.ActiveForm;\r\n    if not Assigned(frm) then\r\n      frm := Application.MainForm;\r\n\r\n    if Assigned(frm) and Assigned(frm.StyleBook) then\r\n      Result := frm.StyleBook.Style\r\n    else\r\n      Result := TStyleManager.ActiveStyle(nil);\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.IsTransparentStyle(\r\n  AStyle: TFmxObject): Boolean;\r\nvar\r\n  st: TStyleDescription;\r\nbegin\r\n  Result := False;\r\n  st := TStyleManager.FindStyleDescriptor(AStyle);\r\n  if Assigned(st) then\r\n    Result := LowerCase(st.Title) = 'transparent';\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleAlternateBackgroundFill(\r\n  AStyle: TFmxObject): TBrush;\r\nvar\r\n  st, stobj: TFmxObject;\r\n  f: TBrush;\r\nbegin\r\n  f := TBrush.Create(TBrushKind.Solid, claNull);\r\n  Result := f;\r\n  if Assigned(AStyle) then\r\n  begin\r\n    st := AStyle.FindStyleResource('gridstyle');\r\n    if Assigned(st) then\r\n    begin\r\n      stobj := st.FindStyleResource('alternatingrowbackground');\r\n      if (Assigned(stobj) and (stobj is TBrushObject)) then\r\n        f.Assign((stobj as TBrushObject).Brush);\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleAlternativeSelectionFill(\r\n  AStyle: TFmxObject): TBrush;\r\nvar\r\n  st, stobj: TFmxObject;\r\n  f: TBrush;\r\n  bmp: TBitmap;\r\nbegin\r\n  f := TBrush.Create(TBrushKind.Solid, claNull);\r\n  Result := f;\r\n  if Assigned(AStyle) then\r\n  begin\r\n    st := AStyle.FindStyleResource('memostyle');\r\n    if Assigned(st) then\r\n    begin\r\n      stobj := st.FindStyleResource('selection');\r\n      if Assigned(stobj) then\r\n      begin\r\n        if (stobj is TRectangle) then\r\n          f.Assign((stobj as TRectangle).Fill)\r\n        else if (stobj is TBrushObject) then\r\n          f.Assign((stobj as TBrushObject).Brush)\r\n        else if stobj is TCustomStyleObject then\r\n        begin\r\n          f.Kind := TBrushKind.Bitmap;\r\n          f.Bitmap.WrapMode := TWrapMode.TileStretch;\r\n          bmp := TBitmap.Create(Round(200), Round(200));\r\n          if bmp.Canvas.BeginScene then\r\n          begin\r\n            (stobj as TCustomStyleObject).DrawToCanvas(bmp.Canvas, RectF(-10, -10, bmp.Width + 10, bmp.Height + 10));\r\n            bmp.Canvas.EndScene;\r\n          end;\r\n          f.Bitmap.Bitmap.Assign(bmp);\r\n          bmp.Free;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleDefaultButtonFill(\r\n  AStyle: TFmxObject): TBrush;\r\nvar\r\n  st, stobj: TFmxObject;\r\n  f: TBrush;\r\n  bmp: TBitmap;\r\nbegin\r\n  f := TBrush.Create(TBrushKind.Solid, claNull);\r\n  Result := f;\r\n  if Assigned(AStyle) then\r\n  begin\r\n    st := AStyle.FindStyleResource('buttonstyle');\r\n    if Assigned(st) then\r\n    begin\r\n      stobj := st.FindStyleResource('background');\r\n      if Assigned(stobj) then\r\n      begin\r\n        if (stobj is TRectangle) then\r\n          f.Assign((stobj as TRectangle).Fill)\r\n        else if stobj is TCustomStyleObject then\r\n        begin\r\n          f.Kind := TBrushKind.Bitmap;\r\n          f.Bitmap.WrapMode := TWrapMode.TileStretch;\r\n          bmp := TBitmap.Create(Round(200), Round(200));\r\n          if bmp.Canvas.BeginScene then\r\n          begin\r\n            (stobj as TCustomStyleObject).DrawToCanvas(bmp.Canvas, RectF(-10, -10, bmp.Width + 10, bmp.Height + 10));\r\n            bmp.Canvas.EndScene;\r\n          end;\r\n          f.Bitmap.Bitmap.Assign(bmp);\r\n          bmp.Free;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleBackgroundFill(\r\n  AStyle: TFmxObject): TBrush;\r\nvar\r\n  st, stobj: TFmxObject;\r\n  f: TBrush;\r\n  bmp: TBitmap;\r\nbegin\r\n  f := TBrush.Create(TBrushKind.Solid, claNull);\r\n  Result := f;\r\n  if Assigned(AStyle) then\r\n  begin\r\n    st := AStyle.FindStyleResource('gridstyle');\r\n    if Assigned(st) then\r\n    begin\r\n      stobj := st.FindStyleResource('background');\r\n      if Assigned(stobj) then\r\n      begin\r\n        if (stobj is TRectangle) then\r\n          f.Assign((stobj as TRectangle).Fill)\r\n        else if stobj is TCustomStyleObject then\r\n        begin\r\n          f.Kind := TBrushKind.Bitmap;\r\n          f.Bitmap.WrapMode := TWrapMode.TileStretch;\r\n          bmp := TBitmap.Create(Round(200), Round(200));\r\n          if bmp.Canvas.BeginScene then\r\n          begin\r\n            (stobj as TCustomStyleObject).DrawToCanvas(bmp.Canvas, RectF(-10, -10, bmp.Width + 10, bmp.Height + 10));\r\n            bmp.Canvas.EndScene;\r\n          end;\r\n          f.Bitmap.Bitmap.Assign(bmp);\r\n          bmp.Free;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleDefaultButtonStroke(\r\n  AStyle: TFmxObject): TStrokeBrush;\r\nvar\r\n  st, stobj: TFmxObject;\r\n  s: TStrokeBrush;\r\nbegin\r\n  s := TStrokeBrush.Create(TBrushKind.Solid, claDarkGray);\r\n  Result := s;\r\n  if Assigned(AStyle) then\r\n  begin\r\n    st := AStyle.FindStyleResource('buttonstyle');\r\n    if Assigned(st) then\r\n    begin\r\n      stobj := st.FindStyleResource('background');\r\n      if Assigned(stobj) then\r\n      begin\r\n        if (stobj is TRectangle) then\r\n          s.Assign((stobj as TRectangle).Stroke);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleBackgroundStroke(\r\n  AStyle: TFmxObject): TStrokeBrush;\r\nvar\r\n  st, stobj: TFmxObject;\r\n  s: TStrokeBrush;\r\nbegin\r\n  s := TStrokeBrush.Create(TBrushKind.Solid, claDarkGray);\r\n  Result := s;\r\n  if Assigned(AStyle) then\r\n  begin\r\n    st := AStyle.FindStyleResource('gridstyle');\r\n    if Assigned(st) then\r\n    begin\r\n      stobj := st.FindStyleResource('background');\r\n      if Assigned(stobj) then\r\n      begin\r\n        if (stobj is TRectangle) then\r\n          s.Assign((stobj as TRectangle).Stroke);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleAlternativeBackgroundFill(\r\n  AStyle: TFmxObject): TBrush;\r\nvar\r\n  st, stobj: TFmxObject;\r\n  f: TBrush;\r\n  bmp: TBitmap;\r\nbegin\r\n  f := TBrush.Create(TBrushKind.Solid, claNull);\r\n  Result := f;\r\n  if Assigned(AStyle) then\r\n  begin\r\n    st := AStyle.FindStyleResource('memostyle');\r\n    if Assigned(st) then\r\n    begin\r\n      stobj := st.FindStyleResource('background');\r\n      if Assigned(stobj) then\r\n      begin\r\n        if (stobj is TRectangle) then\r\n          f.Assign((stobj as TRectangle).Fill)\r\n        else if stobj is TCustomStyleObject then\r\n        begin\r\n          f.Kind := TBrushKind.Bitmap;\r\n          f.Bitmap.WrapMode := TWrapMode.TileStretch;\r\n          bmp := TBitmap.Create(Round(200), Round(200));\r\n          if bmp.Canvas.BeginScene then\r\n          begin\r\n            (stobj as TCustomStyleObject).DrawToCanvas(bmp.Canvas, RectF(-10, -10, bmp.Width + 10, bmp.Height + 10));\r\n            bmp.Canvas.EndScene;\r\n          end;\r\n          f.Bitmap.Bitmap.Assign(bmp);\r\n          bmp.Free;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleAlternativeBackgroundStroke(\r\n  AStyle: TFmxObject): TStrokeBrush;\r\nvar\r\n  st, stobj: TFmxObject;\r\n  s: TStrokeBrush;\r\nbegin\r\n  s := TStrokeBrush.Create(TBrushKind.Solid, claDarkGray);\r\n  Result := s;\r\n  if Assigned(AStyle) then\r\n  begin\r\n    st := AStyle.FindStyleResource('memostyle');\r\n    if Assigned(st) then\r\n    begin\r\n      stobj := st.FindStyleResource('foreground');\r\n      if Assigned(stobj) then\r\n      begin\r\n        if (stobj is TBrushObject) then\r\n          s.Assign((stobj as TBrushObject).Brush);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleEditTextColor(AStyle: TFmxObject): TAlphaColor;\r\nvar\r\n  st, stobj: TFMXObject;\r\nbegin\r\n  Result := claBlack;\r\n  if Assigned(AStyle) then\r\n  begin\r\n    st := AStyle.FindStyleResource('editstyle');\r\n    if Assigned(st) then\r\n    begin\r\n      stobj := st.FindStyleResource('foreground');\r\n      if (Assigned(stobj) and (stobj is TBrushObject)) then\r\n      begin\r\n        if (Assigned(stobj) and (stobj is TBrushObject)) then\r\n          Result := (stobj as TBrushObject).Brush.Color;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleEditFill(\r\n  AStyle: TFmxObject): TBrush;\r\nvar\r\n  st, stobj: TFmxObject;\r\n  f: TBrush;\r\n  bmp: TBitmap;\r\nbegin\r\n  f := TBrush.Create(TBrushKind.Solid, claNull);\r\n  Result := f;\r\n  if Assigned(AStyle) then\r\n  begin\r\n    st := AStyle.FindStyleResource('editstyle');\r\n    if Assigned(st) then\r\n    begin\r\n      stobj := st.FindStyleResource('background');\r\n      if Assigned(stobj) then\r\n      begin\r\n        if (stobj is TRectangle) then\r\n          f.Assign((stobj as TRectangle).Fill)\r\n        else if stobj is TCustomStyleObject then\r\n        begin\r\n          f.Kind := TBrushKind.Bitmap;\r\n          f.Bitmap.WrapMode := TWrapMode.TileStretch;\r\n          bmp := TBitmap.Create(Round(200), Round(200));\r\n          if bmp.Canvas.BeginScene then\r\n          begin\r\n            (stobj as TCustomStyleObject).DrawToCanvas(bmp.Canvas, RectF(-10, -10, bmp.Width + 10, bmp.Height + 10));\r\n            bmp.Canvas.EndScene;\r\n          end;\r\n          f.Bitmap.Bitmap.Assign(bmp);\r\n          bmp.Free;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleEditStroke(\r\n  AStyle: TFmxObject): TStrokeBrush;\r\nvar\r\n  st, stobj: TFmxObject;\r\n  s: TStrokeBrush;\r\nbegin\r\n  s := TStrokeBrush.Create(TBrushKind.Solid, claDarkGray);\r\n  Result := s;\r\n  if Assigned(AStyle) then\r\n  begin\r\n    st := AStyle.FindStyleResource('editstyle');\r\n    if Assigned(st) then\r\n    begin\r\n      stobj := st.FindStyleResource('background');\r\n      if Assigned(stobj) then\r\n      begin\r\n        if (stobj is TRectangle) then\r\n          s.Assign((stobj as TRectangle).Stroke);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleFocusFill(AStyle: TFmxObject): TBrush;\r\nvar\r\n  st, stobj: TFmxObject;\r\n  f: TBrush;\r\n  bmp: TBitmap;\r\nbegin\r\n  f := TBrush.Create(TBrushKind.Solid, claNull);\r\n  Result := f;\r\n  if Assigned(AStyle) then\r\n  begin\r\n    st := AStyle.FindStyleResource('gridstyle');\r\n    if Assigned(st) then\r\n    begin\r\n      stobj := st.FindStyleResource('focus');\r\n      if Assigned(stobj) then\r\n      begin\r\n        if (stobj is TRectangle) then\r\n          f.Assign((stobj as TRectangle).Fill)\r\n        else if stobj is TCustomStyleObject then\r\n        begin\r\n          f.Kind := TBrushKind.Bitmap;\r\n          f.Bitmap.WrapMode := TWrapMode.TileStretch;\r\n          bmp := TBitmap.Create(Round(200), Round(200));\r\n          if bmp.Canvas.BeginScene then\r\n          begin\r\n            (stobj as TCustomStyleObject).DrawToCanvas(bmp.Canvas, RectF(-10, -10, bmp.Width + 10, bmp.Height + 10));\r\n            bmp.Canvas.EndScene;\r\n          end;\r\n          f.Bitmap.Bitmap.Assign(bmp);\r\n          bmp.Free;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleHeaderFill(\r\n  AStyle: TFmxObject): TBrush;\r\nvar\r\n  st, stobj: TFmxObject;\r\n  f: TBrush;\r\n  bmp: TBitmap;\r\nbegin\r\n  f := TBrush.Create(TBrushKind.Solid, claNull);\r\n  Result := f;\r\n  if Assigned(AStyle) then\r\n  begin\r\n    st := AStyle.FindStyleResource('headeritemstyle');\r\n    if Assigned(st) then\r\n    begin\r\n      stobj := st.FindStyleResource('background');\r\n      if Assigned(stobj) then\r\n      begin\r\n        if (stobj is TRectangle) then\r\n          f.Assign((stobj as TRectangle).Fill)\r\n        else if stobj is TButtonStyleObject then\r\n        begin\r\n          f.Kind := TBrushKind.Bitmap;\r\n          f.Bitmap.WrapMode := TWrapMode.TileStretch;\r\n          bmp := TBitmap.Create(Round(200), Round(200));\r\n          if bmp.Canvas.BeginScene then\r\n          begin\r\n            (stobj as TButtonStyleObject).DrawToCanvas(bmp.Canvas, RectF(-10, -10, bmp.Width + 10, bmp.Height + 10));\r\n            bmp.Canvas.EndScene;\r\n          end;\r\n          f.Bitmap.Bitmap.Assign(bmp);\r\n          bmp.Free;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleHeaderStroke(\r\n  AStyle: TFmxObject): TStrokeBrush;\r\nvar\r\n  st, stobj: TFmxObject;\r\n  s: TStrokeBrush;\r\nbegin\r\n  s := TStrokeBrush.Create(TBrushKind.Solid, claDarkGray);\r\n  Result := s;\r\n  if Assigned(AStyle) then\r\n  begin\r\n    st := AStyle.FindStyleResource('headeritemstyle');\r\n    if Assigned(st) then\r\n    begin\r\n      stobj := st.FindStyleResource('background');\r\n      if Assigned(stobj) then\r\n      begin\r\n        if (stobj is TRectangle) then\r\n          s.Assign((stobj as TRectangle).Stroke);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleLineFill(AStyle: TFmxObject): TBrush;\r\nvar\r\n  st, stobj: TFmxObject;\r\n  f: TBrush;\r\n  bmp: TBitmap;\r\nbegin\r\n  f := TBrush.Create(TBrushKind.Solid, claNull);\r\n  Result := f;\r\n  if Assigned(AStyle) then\r\n  begin\r\n    st := AStyle.FindStyleResource('gridstyle');\r\n    if Assigned(st) then\r\n    begin\r\n      stobj := st.FindStyleResource('linefill');\r\n      if Assigned(stobj) then\r\n      begin\r\n        if (stobj is TBrushObject) then\r\n          f.Assign((stobj as TBrushObject).Brush)\r\n        else if stobj is TCustomStyleObject then\r\n        begin\r\n          f.Kind := TBrushKind.Bitmap;\r\n          f.Bitmap.WrapMode := TWrapMode.TileStretch;\r\n          bmp := TBitmap.Create(Round(200), Round(200));\r\n          if bmp.Canvas.BeginScene then\r\n          begin\r\n            (stobj as TCustomStyleObject).DrawToCanvas(bmp.Canvas, RectF(-10, -10, bmp.Width + 10, bmp.Height + 10));\r\n            bmp.Canvas.EndScene;\r\n          end;\r\n          f.Bitmap.Bitmap.Assign(bmp);\r\n          bmp.Free;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleSelectionFill(\r\n  AStyle: TFmxObject): TBrush;\r\nvar\r\n  st, stobj: TFmxObject;\r\n  f: TBrush;\r\n  bmp: TBitmap;\r\nbegin\r\n  f := TBrush.Create(TBrushKind.Solid, claNull);\r\n  Result := f;\r\n  if Assigned(AStyle) then\r\n  begin\r\n    st := AStyle.FindStyleResource('gridstyle');\r\n    if Assigned(st) then\r\n    begin\r\n      stobj := st.FindStyleResource('selection');\r\n      if Assigned(stobj) then\r\n      begin\r\n        if (stobj is TRectangle) then\r\n          f.Assign((stobj as TRectangle).Fill)\r\n        else if (stobj is TBrushObject) then\r\n          f.Assign((stobj as TBrushObject).Brush)\r\n        else if stobj is TCustomStyleObject then\r\n        begin\r\n          f.Kind := TBrushKind.Bitmap;\r\n          f.Bitmap.WrapMode := TWrapMode.TileStretch;\r\n          bmp := TBitmap.Create(Round(200), Round(200));\r\n          if bmp.Canvas.BeginScene then\r\n          begin\r\n            (stobj as TCustomStyleObject).DrawToCanvas(bmp.Canvas, RectF(-10, -10, bmp.Width + 10, bmp.Height + 10));\r\n            bmp.Canvas.EndScene;\r\n          end;\r\n          f.Bitmap.Bitmap.Assign(bmp);\r\n          bmp.Free;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleTextColor(\r\n  AStyle: TFmxObject): TAlphaColor;\r\nvar\r\n  st, stobj: TFmxObject;\r\nbegin\r\n  Result := claBlack;\r\n  if Assigned(AStyle) then\r\n  begin\r\n    st := AStyle.FindStyleResource('headeritemstyle');\r\n    if Assigned(st) then\r\n    begin\r\n      stobj := st.FindStyleResource('text');\r\n      if (Assigned(stobj) and (stobj is TText)) then\r\n        Result := (stobj as TText).TextSettings.FontColor;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleTextFont(AStyle: TFmxObject): TFont;\r\nvar\r\n  st, stobj: TFmxObject;\r\nbegin\r\n  Result := TFont.Create;\r\n  if Assigned(AStyle) then\r\n  begin\r\n    st := AStyle.FindStyleResource('headeritemstyle');\r\n    if Assigned(st) then\r\n    begin\r\n      stobj := st.FindStyleResource('text');\r\n      if (Assigned(stobj) and (stobj is TText)) then\r\n        Result.Assign((stobj as TText).TextSettings.Font);\r\n    end;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\n{ TTMSFNCStyles }\r\n\r\n{$IFDEF FMXLIB}\r\nclass function TTMSFNCStyles.ExtractColor(\r\n  ABitmap: TBitmap): TTMSFNCGraphicsColor;\r\nvar\r\n  dt: TBitmapData;\r\nbegin\r\n  Result := gcNull;\r\n  if not Assigned(ABitmap) then\r\n    Exit;\r\n  if ABitmap.Map(TMapAccess.Read, dt) then\r\n  begin\r\n    Result := dt.GetPixel(dt.Width div 2, 1);\r\n    ABitmap.Unmap(dt);\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.ExtractColorTo(\r\n  ABitmap: TBitmap): TTMSFNCGraphicsColor;\r\nvar\r\n  dt: TBitmapData;\r\nbegin\r\n  Result := gcNull;\r\n  if not Assigned(ABitmap) then\r\n    Exit;\r\n  if ABitmap.Map(TMapAccess.Read, dt) then\r\n  begin\r\n    Result := dt.GetPixel(dt.Width div 2, dt.Height - 1);\r\n    ABitmap.Unmap(dt);\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF WEBLIB}\r\n\r\nclass function TTMSFNCStyles.GetStyleBackgroundFill: string;\r\nbegin\r\n  Result := FindCSSStyleProperty('.TMSFNCGridStyle', 'background');\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleBackgroundStroke: string;\r\nbegin\r\n  Result := FindCSSStyleProperty('.TMSFNCGridStyle', 'border-color');\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleDefaultButtonFill: string;\r\nbegin\r\n  Result := FindCSSStyleProperty('.TMSFNCButtonStyle', 'background');\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleDefaultButtonStroke: string;\r\nbegin\r\n  Result := FindCSSStyleProperty('.TMSFNCButtonStyle', 'border-color');\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleEditTextColor: string;\r\nbegin\r\n  Result := FindCSSStyleProperty('.TMSFNCEditStyle', '--foreground');\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleEditFill: string;\r\nbegin\r\n  Result := FindCSSStyleProperty('.TMSFNCEditStyle', 'background');\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleEditStroke: string;\r\nbegin\r\n  Result := FindCSSStyleProperty('.TMSFNCStyle', 'border-color');\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleHeaderFill: string;\r\nbegin\r\n  Result := FindCSSStyleProperty('.TMSFNCHeaderItemStyle', 'background');\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleHeaderStroke: string;\r\nbegin\r\n  Result := FindCSSStyleProperty('.TMSFNCHeaderItemStyle', 'border-color');\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleSelectionFill: string;\r\nbegin\r\n  Result := FindCSSStyleProperty('.TMSFNCGridStyle', '--selection');\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleAlternativeSelectionFill: string;\r\nbegin\r\n  Result := FindCSSStyleProperty('.TMSFNCMemoStyle', '--selection');\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleAlternativeBackgroundFill: string;\r\nbegin\r\n  Result := FindCSSStyleProperty('.TMSFNCMemoStyle', 'background');\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleAlternativeBackgroundStroke: string;\r\nbegin\r\n  Result := FindCSSStyleProperty('.TMSFNCMemoStyle', 'border-color');\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleFocusFill: string;\r\nbegin\r\n  Result := FindCSSStyleProperty('.TMSFNCGridStyle', '--focus');\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleLineFill: string;\r\nbegin\r\n  Result := FindCSSStyleProperty('.TMSFNCGridStyle', '--linefill');\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleTextFont: string;\r\nbegin\r\n  Result := FindCSSStyleProperty('.TMSFNCHeaderItemStyle', 'font-family');\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleTextColor: string;\r\nbegin\r\n  Result := FindCSSStyleProperty('.TMSFNCHeaderItemStyle', 'color');\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleAlternateBackgroundFill: string;\r\nbegin\r\n  Result := FindCSSStyleProperty('.TMSFNCGridStyle', '--alternatingrowbackground');\r\nend;\r\n\r\nclass function TTMSFNCStyles.ExtractColor(AValue: string): TTMSFNCGraphicsColor;\r\nvar\r\n  s, s2: string;\r\n  sl: TStringList;\r\n  p, p2: Integer;\r\n\r\n  function ParseValue(AValue: string): Integer;\r\n  begin\r\n    Result := StrToInt(Trim(StringReplace(AValue, 'rgb(', '', [rfReplaceAll])))\r\n  end;\r\nbegin\r\n  Result := gcNull;\r\n  if AValue <> '' then\r\n  begin\r\n    s := LowerCase(StringReplace(AValue, ' ', '', [rfReplaceAll]));\r\n    if Pos('linear-gradient', s) = 1 then\r\n    begin\r\n      p := Pos('rgb', s);\r\n      if p = 0 then\r\n        p := Pos('#', s);\r\n      p2 := Pos(')', s, p);\r\n      s2 := Copy(s, p, p2 - p + 1);\r\n      p := Pos('rgb', s, p2);\r\n      if p = 0 then\r\n        p := Pos('#', s);\r\n      p2 := Pos(')', s, p);\r\n      Result := ExtractColor(s2);\r\n    end\r\n    else if Pos('rgb', s) = 1 then\r\n    begin\r\n      sl := TStringList.Create;\r\n      try\r\n        sl.Delimiter := ',';\r\n        sl.DelimitedText := s;\r\n        Result := MakeGraphicsColor(ParseValue(sl[0]), ParseValue(sl[1]), ParseValue(sl[2]));\r\n      finally\r\n        sl.Free;\r\n      end;\r\n    end\r\n    else if Pos('#', s) = 1 then\r\n      Result := HexToColor(s);\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.ExtractColorTo(AValue: string): TTMSFNCGraphicsColor;\r\nvar\r\n  s, s3: string;\r\n  sl: TStringList;\r\n  p, p2: Integer;\r\n\r\n  function ParseValue(AValue: string): Integer;\r\n  begin\r\n    Result := StrToInt(Trim(StringReplace(AValue, 'rgb(', '', [rfReplaceAll])))\r\n  end;\r\nbegin\r\n  Result := gcNull;\r\n  if AValue <> '' then\r\n  begin\r\n    s := LowerCase(StringReplace(AValue, ' ', '', [rfReplaceAll]));\r\n    if Pos('linear-gradient', s) = 1 then\r\n    begin\r\n      p := Pos('rgb', s);\r\n      if p = 0 then\r\n        p := Pos('#', s);\r\n      p2 := Pos(')', s, p);\r\n      //s2 := Copy(s, p, p2 - p + 1);\r\n      p := Pos('rgb', s, p2);\r\n      if p = 0 then\r\n        p := Pos('#', s);\r\n      p2 := Pos(')', s, p);\r\n      s3 := Copy(s, p, p2 - p + 1);\r\n      Result := ExtractColor(s3);\r\n    end\r\n    else if Pos('rgb', s) = 1 then\r\n    begin\r\n      sl := TStringList.Create;\r\n      try\r\n        sl.Delimiter := ',';\r\n        sl.DelimitedText := s;\r\n        Result := MakeGraphicsColor(ParseValue(sl[0]), ParseValue(sl[1]), ParseValue(sl[2]));\r\n      finally\r\n        sl.Free;\r\n      end;\r\n    end\r\n    else if Pos('#', s) = 1 then\r\n      Result := HexToColor(s);\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.ExtractFontName(AValue: string): string;\r\nbegin\r\n  Result := AValue;\r\nend;\r\n\r\n{$HINTS OFF}\r\nclass function TTMSFNCStyles.FindCSSStyleProperty(ARuleName, APropertyName: string): string;\r\nvar\r\n  j: TJSObject;\r\n  s: string;\r\n  v: string;\r\nbegin\r\n  Result := '';\r\n  j := FindCSSStyleRule(ARuleName);\r\n  if Assigned(j) then\r\n  begin\r\n    s := APropertyName;\r\n    asm\r\n      v = j.style.getPropertyValue(s);\r\n    end;\r\n    Result := v;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.FindCSSStyleRule(ARuleName: string): TJSObject;\r\nvar\r\n  s, f: string;\r\nbegin\r\n  Result := nil;\r\n  s := ARuleName;\r\n  f := CSSStyleFileName;\r\n  asm\r\n    for (var i = 0; i < document.styleSheets.length; i++){\r\n      var fn = document.styleSheets[i].href;\r\n      if (fn != null) {\r\n      if (f == fn.substring(fn.lastIndexOf('/')+1)){\r\n        var classes = document.styleSheets[i].rules || document.styleSheets[i].cssRules;\r\n        for (var x = 0; x < classes.length; x++) {\r\n          if (classes[x].selectorText !== undefined) {\r\n            if (classes[x].selectorText.startsWith(s)) {\r\n                return classes[x];\r\n            }\r\n          }\r\n        }\r\n       }\r\n      }\r\n    }\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n{$ENDIF}\r\n\r\n{$IFDEF VCLSTYLESENABLED}\r\nclass function TTMSFNCStyles.ExtractColor(AElement: TThemedElementDetails): TTMSFNCGraphicsColor;\r\nvar\r\n  bmp: TBitmap;\r\nbegin\r\n  bmp := TBitmap.Create;\r\n  try\r\n    bmp.SetSize(200, 200);\r\n    StyleServices.DrawElement(bmp.Canvas.Handle, AElement, Rect(0, 0, 200, 200));\r\n    Result := bmp.Canvas.Pixels[bmp.Width div 2, 2];\r\n  finally\r\n    bmp.Free;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.ExtractColorTo(AElement: TThemedElementDetails): TTMSFNCGraphicsColor;\r\nvar\r\n  bmp: TBitmap;\r\nbegin\r\n  bmp := TBitmap.Create;\r\n  try\r\n    bmp.SetSize(200, 200);\r\n    StyleServices.DrawElement(bmp.Canvas.Handle, AElement, Rect(0, 0, 200, 200));\r\n    Result := bmp.Canvas.Pixels[bmp.Width div 2, bmp.Height - 2];\r\n  finally\r\n    bmp.Free;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nclass function TTMSFNCStyles.GetStyleBackgroundFillColor(var AColor: TTMSFNCGraphicsColor): Boolean;\r\n{$IFDEF FMXLIB}\r\nvar\r\n  f: TBrush;\r\n{$ENDIF}\r\n{$IFDEF VCLSTYLESENABLED}\r\nvar\r\n  l: TThemedElementDetails;\r\n  c: TColor;\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\nvar\r\n  f: string;\r\n  c: TTMSFNCGraphicsColor;\r\n{$ENDIF}\r\nbegin\r\n  Result := False;\r\n  if StyleServicesEnabled then\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    f := GetStyleBackgroundFill(GetStyleSceneObject);\r\n    if Assigned(f) then\r\n    begin\r\n      AColor := ParseBrush(f, False);\r\n      Result := AColor <> claNull;\r\n      f.Free;\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    l := StyleServices.GetElementDetails(tgCellNormal);\r\n    c := clNone;\r\n    StyleServices.GetElementColor(l, ecFillColor, c);\r\n    if c = clNone then\r\n      c := ExtractColor(l);\r\n\r\n    AColor := c;\r\n    Result := c <> clNone;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    f := GetStyleBackgroundFill;\r\n    if f <> '' then\r\n    begin\r\n      c := ExtractColor(f);\r\n      AColor := c;\r\n      Result := c <> gcNull;\r\n    end;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleBackgroundFillColorTo(var AColor: TTMSFNCGraphicsColor): Boolean;\r\n{$IFDEF FMXLIB}\r\nvar\r\n  f: TBrush;\r\n{$ENDIF}\r\n{$IFDEF VCLSTYLESENABLED}\r\nvar\r\n  l: TThemedElementDetails;\r\n  c: TColor;\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\nvar\r\n  f: string;\r\n  c: TTMSFNCGraphicsColor;\r\n{$ENDIF}\r\nbegin\r\n  Result := False;\r\n  if StyleServicesEnabled then\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    f := GetStyleBackgroundFill(GetStyleSceneObject);\r\n    if Assigned(f) then\r\n    begin\r\n      AColor := ParseBrush(f, True);\r\n      Result := AColor <> claNull;\r\n      f.Free;\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    l := StyleServices.GetElementDetails(tgGradientCellNormal);\r\n    c := clNone;\r\n    StyleServices.GetElementColor(l, ecFillColor, c);\r\n    if c = clNone then\r\n      c := ExtractColorTo(l);\r\n\r\n    AColor := c;\r\n    Result := c <> clNone;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    f := GetStyleBackgroundFill;\r\n    if f <> '' then\r\n    begin\r\n      c := ExtractColorTo(f);\r\n      AColor := c;\r\n      Result := c <> gcNull;\r\n    end;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleAlternativeBackgroundFillColor(var AColor: TTMSFNCGraphicsColor): Boolean;\r\n{$IFDEF FMXLIB}\r\nvar\r\n  f: TBrush;\r\n{$ENDIF}\r\n{$IFDEF VCLSTYLESENABLED}\r\nvar\r\n  l: TThemedElementDetails;\r\n  c: TColor;\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\nvar\r\n  f: string;\r\n  c: TTMSFNCGraphicsColor;\r\n{$ENDIF}\r\nbegin\r\n  Result := False;\r\n  if StyleServicesEnabled then\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    f := GetStyleAlternativeBackgroundFill(GetStyleSceneObject);\r\n    if Assigned(f) then\r\n    begin\r\n      AColor := ParseBrush(f, False);\r\n      Result := AColor <> claNull;\r\n      f.Free;\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    l := StyleServices.GetElementDetails(teBackgroundNormal);\r\n    c := ExtractColor(l);\r\n    AColor := c;\r\n    Result := c <> clNone;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    f := GetStyleAlternativeBackgroundFill;\r\n    if f <> '' then\r\n    begin\r\n      c := ExtractColor(f);\r\n      AColor := c;\r\n      Result := c <> gcNull;\r\n    end;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleAlternativeBackgroundFillColorTo(var AColor: TTMSFNCGraphicsColor): Boolean;\r\n{$IFDEF FMXLIB}\r\nvar\r\n  f: TBrush;\r\n{$ENDIF}\r\n{$IFDEF VCLSTYLESENABLED}\r\nvar\r\n  l: TThemedElementDetails;\r\n  c: TColor;\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\nvar\r\n  f: string;\r\n  c: TTMSFNCGraphicsColor;\r\n{$ENDIF}\r\nbegin\r\n  Result := False;\r\n  if StyleServicesEnabled then\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    f := GetStyleAlternativeBackgroundFill(GetStyleSceneObject);\r\n    if Assigned(f) then\r\n    begin\r\n      AColor := ParseBrush(f, True);\r\n      Result := AColor <> claNull;\r\n      f.Free;\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    l := StyleServices.GetElementDetails(teBackgroundNormal);\r\n    c := clNone;\r\n    StyleServices.GetElementColor(l, ecGradientColor1, c);\r\n    AColor := c;\r\n    Result := c <> clNone;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    f := GetStyleAlternativeBackgroundFill;\r\n    if f <> '' then\r\n    begin\r\n      c := ExtractColorTo(f);\r\n      AColor := c;\r\n      Result := c <> gcNull;\r\n    end;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleBackgroundStrokeColor(var AColor: TTMSFNCGraphicsColor): Boolean;\r\n{$IFDEF FMXLIB}\r\nvar\r\n  s: TStrokeBrush;\r\n{$ENDIF}\r\n{$IFDEF VCLSTYLESENABLED}\r\nvar\r\n  l: TThemedElementDetails;\r\n  c: TColor;\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\nvar\r\n  f: string;\r\n  c: TTMSFNCGraphicsColor;\r\n{$ENDIF}\r\nbegin\r\n  Result := False;\r\n  if StyleServicesEnabled then\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    s := GetStyleBackgroundStroke(GetStyleSceneObject);\r\n    if Assigned(s) then\r\n    begin\r\n      AColor := ParseBrush(s, False);\r\n      Result := AColor <> claNull;\r\n      s.Free;\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    l := StyleServices.GetElementDetails(tgCellNormal);\r\n    c := clNone;\r\n    StyleServices.GetElementColor(l, ecBorderColor, c);\r\n    AColor := c;\r\n    Result := c <> clNone;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    f := GetStyleBackgroundStroke;\r\n    if f <> '' then\r\n    begin\r\n      c := ExtractColor(f);\r\n      AColor := c;\r\n      Result := c <> gcNull;\r\n    end;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleDefaultButtonFillColor(var AColor: TTMSFNCGraphicsColor): Boolean;\r\n{$IFDEF FMXLIB}\r\nvar\r\n  f: TBrush;\r\n{$ENDIF}\r\n{$IFDEF VCLSTYLESENABLED}\r\nvar\r\n  l: TThemedElementDetails;\r\n  c: TColor;\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\nvar\r\n  f: string;\r\n  c: TTMSFNCGraphicsColor;\r\n{$ENDIF}\r\nbegin\r\n  Result := False;\r\n  if StyleServicesEnabled then\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    f := GetStyleDefaultButtonFill(GetStyleSceneObject);\r\n    if Assigned(f) then\r\n    begin\r\n      AColor := ParseBrush(f, False);\r\n      Result := AColor <> claNull;\r\n      f.Free;\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    l := StyleServices.GetElementDetails(tcbButtonNormal);\r\n    c := ExtractColor(l);\r\n    AColor := c;\r\n    Result := c <> clNone;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    f := GetStyleDefaultButtonFill;\r\n    if f <> '' then\r\n    begin\r\n      c := ExtractColor(f);\r\n      AColor := c;\r\n      Result := c <> gcNull;\r\n    end;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleDefaultButtonStrokeColor(var AColor: TTMSFNCGraphicsColor): Boolean;\r\n{$IFDEF FMXLIB}\r\nvar\r\n  s: TStrokeBrush;\r\n{$ENDIF}\r\n{$IFDEF VCLSTYLESENABLED}\r\nvar\r\n  l: TThemedElementDetails;\r\n  c: TColor;\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\nvar\r\n  f: string;\r\n  c: TTMSFNCGraphicsColor;\r\n{$ENDIF}\r\nbegin\r\n  Result := False;\r\n  if StyleServicesEnabled then\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    s := GetStyleDefaultButtonStroke(GetStyleSceneObject);\r\n    if Assigned(s) then\r\n    begin\r\n      AColor := ParseBrush(s, False);\r\n      Result := AColor <> claNull;\r\n      s.Free;\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    l := StyleServices.GetElementDetails(tcbButtonNormal);\r\n    c := clNone;\r\n    StyleServices.GetElementColor(l, ecBorderColor, c);\r\n    AColor := c;\r\n    Result := c <> clNone;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    f := GetStyleDefaultButtonStroke;\r\n    if f <> '' then\r\n    begin\r\n      c := ExtractColor(f);\r\n      AColor := c;\r\n      Result := c <> gcNull;\r\n    end;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleHeaderFillColor(var AColor: TTMSFNCGraphicsColor): Boolean;\r\n{$IFDEF FMXLIB}\r\nvar\r\n  f: TBrush;\r\n{$ENDIF}\r\n{$IFDEF VCLSTYLESENABLED}\r\nvar\r\n  l: TThemedElementDetails;\r\n  c: TColor;\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\nvar\r\n  f: string;\r\n  c: TTMSFNCGraphicsColor;\r\n{$ENDIF}\r\nbegin\r\n  Result := False;\r\n  if StyleServicesEnabled then\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    f := GetStyleHeaderFill(GetStyleSceneObject);\r\n    if Assigned(f) then\r\n    begin\r\n      AColor := ParseBrush(f, False);\r\n      Result := AColor <> claNull;\r\n      f.Free;\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    l := StyleServices.GetElementDetails(tgFixedCellNormal);\r\n    c := ExtractColor(l);\r\n    AColor := c;\r\n    Result := c <> clNone;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    f := GetStyleHeaderFill;\r\n    if f <> '' then\r\n    begin\r\n      c := ExtractColor(f);\r\n      AColor := c;\r\n      Result := c <> gcNull;\r\n    end;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleHeaderFillColorTo(var AColor: TTMSFNCGraphicsColor): Boolean;\r\n{$IFDEF FMXLIB}\r\nvar\r\n  f: TBrush;\r\n{$ENDIF}\r\n{$IFDEF VCLSTYLESENABLED}\r\nvar\r\n  l: TThemedElementDetails;\r\n  c: TColor;\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\nvar\r\n  f: string;\r\n  c: TTMSFNCGraphicsColor;\r\n{$ENDIF}\r\nbegin\r\n  Result := False;\r\n  if StyleServicesEnabled then\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    f := GetStyleHeaderFill(GetStyleSceneObject);\r\n    if Assigned(f) then\r\n    begin\r\n      AColor := ParseBrush(f, True);\r\n      Result := AColor <> claNull;\r\n      f.Free;\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    l := StyleServices.GetElementDetails(tgFixedCellNormal);\r\n    c := ExtractColorTo(l);\r\n    AColor := c;\r\n    Result := c <> clNone;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    f := GetStyleHeaderFill;\r\n    if f <> '' then\r\n    begin\r\n      c := ExtractColorTo(f);\r\n      AColor := c;\r\n      Result := c <> gcNull;\r\n    end;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleHeaderStrokeColor(var AColor: TTMSFNCGraphicsColor): Boolean;\r\n{$IFDEF FMXLIB}\r\nvar\r\n  s: TStrokeBrush;\r\n{$ENDIF}\r\n{$IFDEF VCLSTYLESENABLED}\r\nvar\r\n  l: TThemedElementDetails;\r\n  c: TColor;\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\nvar\r\n  f: string;\r\n  c: TTMSFNCGraphicsColor;\r\n{$ENDIF}\r\nbegin\r\n  Result := False;\r\n  if StyleServicesEnabled then\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    s := GetStyleHeaderStroke(GetStyleSceneObject);\r\n    if Assigned(s) then\r\n    begin\r\n      AColor := ParseBrush(s, False);\r\n      Result := AColor <> claNull;\r\n      s.Free;\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    l := StyleServices.GetElementDetails(tgFixedCellNormal);\r\n    c := clNone;\r\n    StyleServices.GetElementColor(l, ecBorderColor, c);\r\n    AColor := c;\r\n    Result := c <> clNone;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    f := GetStyleHeaderStroke;\r\n    if f <> '' then\r\n    begin\r\n      c := ExtractColor(f);\r\n      AColor := c;\r\n      Result := c <> gcNull;\r\n    end;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleLineFillColor(\r\n  var AColor: TTMSFNCGraphicsColor): Boolean;\r\n{$IFDEF FMXLIB}\r\nvar\r\n  f: TBrush;\r\n{$ENDIF}\r\n{$IFDEF VCLSTYLESENABLED}\r\nvar\r\n  l: TThemedElementDetails;\r\n  c: TColor;\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\nvar\r\n  f: string;\r\n  c: TTMSFNCGraphicsColor;\r\n{$ENDIF}\r\nbegin\r\n  Result := False;\r\n  if StyleServicesEnabled then\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    f := GetStyleLineFill(GetStyleSceneObject);\r\n    if Assigned(f) then\r\n    begin\r\n      AColor := ParseBrush(f, False);\r\n      Result := AColor <> claNull;\r\n      f.Free;\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    l := StyleServices.GetElementDetails(tgCellNormal);\r\n    c := clNone;\r\n    StyleServices.GetElementColor(l, ecBorderColor, c);\r\n    AColor := c;\r\n    Result := c <> clNone;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    f := GetStyleLineFill;\r\n    if f <> '' then\r\n    begin\r\n      c := ExtractColor(f);\r\n      AColor := c;\r\n      Result := c <> gcNull;\r\n    end;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleSelectionFillColor(var AColor: TTMSFNCGraphicsColor): Boolean;\r\n{$IFDEF FMXLIB}\r\nvar\r\n  f: TBrush;\r\n{$ENDIF}\r\n{$IFDEF VCLSTYLESENABLED}\r\nvar\r\n  l: TThemedElementDetails;\r\n  c: TColor;\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\nvar\r\n  f: string;\r\n  c: TTMSFNCGraphicsColor;\r\n{$ENDIF}\r\nbegin\r\n  Result := False;\r\n  if StyleServicesEnabled then\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    f := GetStyleSelectionFill(GetStyleSceneObject);\r\n    if Assigned(f) then\r\n    begin\r\n      AColor := ParseBrush(f, False);\r\n      Result := AColor <> claNull;\r\n      f.Free;\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    l := StyleServices.GetElementDetails(tgCellSelected);\r\n    c := clNone;\r\n    StyleServices.GetElementColor(l, ecFillColor, c);\r\n    c := ExtractColor(l);\r\n    AColor := c;\r\n    Result := c <> clNone;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    f := GetStyleSelectionFill;\r\n    if f <> '' then\r\n    begin\r\n      c := ExtractColor(f);\r\n      AColor := c;\r\n      Result := c <> gcNull;\r\n    end;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleSelectionFillColorTo(var AColor: TTMSFNCGraphicsColor): Boolean;\r\n{$IFDEF FMXLIB}\r\nvar\r\n  f: TBrush;\r\n{$ENDIF}\r\n{$IFDEF VCLSTYLESENABLED}\r\nvar\r\n  l: TThemedElementDetails;\r\n  c: TColor;\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\nvar\r\n  f: string;\r\n  c: TTMSFNCGraphicsColor;\r\n{$ENDIF}\r\nbegin\r\n  Result := False;\r\n  if StyleServicesEnabled then\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    f := GetStyleSelectionFill(GetStyleSceneObject);\r\n    if Assigned(f) then\r\n    begin\r\n      AColor := ParseBrush(f, True);\r\n      Result := AColor <> claNull;\r\n      f.Free;\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    l := StyleServices.GetElementDetails(tgCellSelected);\r\n    c := clNone;\r\n    StyleServices.GetElementColor(l, ecFillColor, c);\r\n    c := ExtractColorTo(l);\r\n    AColor := c;\r\n    Result := c <> clNone;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    f := GetStyleSelectionFill;\r\n    if f <> '' then\r\n    begin\r\n      c := ExtractColorTo(f);\r\n      AColor := c;\r\n      Result := c <> gcNull;\r\n    end;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleTextFontColor(var AColor: TTMSFNCGraphicsColor): Boolean;\r\n{$IFDEF VCLSTYLESENABLED}\r\nvar\r\n  l: TThemedElementDetails;\r\n  c: TColor;\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\nvar\r\n  f: string;\r\n  c: TTMSFNCGraphicsColor;\r\n{$ENDIF}\r\nbegin\r\n  Result := False;\r\n  if StyleServicesEnabled then\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    AColor := GetStyleTextColor(GetStyleSceneObject);\r\n    Result := AColor <> claNull;\r\n    {$ENDIF}\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    AColor := gcBlack;\r\n    l := StyleServices.GetElementDetails(tgCellNormal);\r\n    c := clNone;\r\n    StyleServices.GetElementColor(l, ecTextColor, c);\r\n    AColor := c;\r\n    Result := c <> clNone;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    f := GetStyleTextColor;\r\n    if f <> '' then\r\n    begin\r\n      c := ExtractColor(f);\r\n      AColor := c;\r\n      Result := c <> gcNull;\r\n    end;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCStyles.GetStyleAlternativeTextFontColor(var AColor: TTMSFNCGraphicsColor): Boolean;\r\n{$IFDEF VCLSTYLESENABLED}\r\nvar\r\n  l: TThemedElementDetails;\r\n  c: TColor;\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\nvar\r\n  f: string;\r\n  c: TTMSFNCGraphicsColor;\r\n{$ENDIF}\r\nbegin\r\n  Result := False;\r\n  if StyleServicesEnabled then\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    AColor := GetStyleEditTextColor(GetStyleSceneObject);\r\n    Result := AColor <> claNull;\r\n    {$ENDIF}\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    AColor := gcBlack;\r\n    l := StyleServices.GetElementDetails(tgCellSelected);\r\n    c := clNone;\r\n    StyleServices.GetElementColor(l, ecTextColor, c);\r\n    AColor := c;\r\n    Result := c <> clNone;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    f := GetStyleEditTextColor;\r\n    if f <> '' then\r\n    begin\r\n      c := ExtractColor(f);\r\n      AColor := c;\r\n      Result := c <> gcNull;\r\n    end;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nclass procedure TTMSFNCStyles.SetActiveScene(AScene: IScene);\r\nbegin\r\n  if Assigned(AScene) and Assigned(AScene.GetObject) and (AScene.GetObject.ClassName <> 'TTMSFNCCustomPopupForm') then\r\n    FScene := AScene\r\n  else if not Assigned(AScene) then\r\n    FScene := nil;\r\nend;\r\n{$ENDIF}\r\n\r\nclass function TTMSFNCStyles.StyleServicesEnabled: Boolean;\r\n{$IFDEF FMXLIB}\r\nvar\r\n  s: TFmxObject;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  Result := True;\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  Result := False;\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  s := GetStyleSceneObject;\r\n  Result := Assigned(s);\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  {$IFDEF VCLSTYLESENABLED}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION >= 34}\r\n  Result := StyleServices.Enabled and (StyleServices.Name <> 'Windows') and (StyleServices.Name <> 'Windows10');\r\n  {$IFEND}\r\n  {$IF COMPILERVERSION < 34}\r\n  Result := (StyleServices.Enabled) and (StyleServices.Name <> 'Windows');\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFNDEF VCLSTYLESENABLED}\r\n  Result := False;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nend;\r\n\r\n{$IFDEF FNCLIB}\r\n\r\n{ TTMSFNCStyleManager }\r\n\r\nfunction TTMSFNCStylesManager.GetDocURL: string;\r\nbegin\r\n  Result := TTMSFNCBaseDocURL + 'tmsfnccore/components/ttmsfncstyling';\r\nend;\r\n\r\nprocedure TTMSFNCStylesManager.DoCanLoadStyle(AStyle: string;\r\n  AComponent: TComponent; var ACanLoadStyle: Boolean);\r\nbegin\r\n  if Assigned(OnCanLoadStyle) then\r\n    OnCanLoadStyle(Self, AStyle, AComponent, ACanLoadStyle);\r\nend;\r\n\r\nconstructor TTMSFNCStylesManager.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FOptions := TTMSFNCStylesManagerOptions.Create;\r\nend;\r\n\r\ndestructor TTMSFNCStylesManager.Destroy;\r\nbegin\r\n  FOptions.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCStylesManager.DoStyleLoaded(AStyle: string;\r\n  AComponent: TComponent);\r\nbegin\r\n  if Assigned(OnStyleLoaded) then\r\n    OnStyleLoaded(Self, AStyle, AComponent);\r\nend;\r\n\r\nprocedure TTMSFNCStylesManager.InternalLoadStyle(AValue: string; AComponents: TTMSFNCStylesManagerComponentArray);\r\nvar\r\n  v, jv, va, fc: TJSONValue;\r\n  fcs: string;\r\n  ja: TJSONArray;\r\n  I: Integer;\r\n  f: TCustomForm;\r\n  c: TTMSFNCGraphicsColor;\r\nbegin\r\n  v := TTMSFNCUtils.ParseJSON(AValue);\r\n  if Assigned(v) then\r\n  begin\r\n    try\r\n      if Options.AdaptFormColor then\r\n      begin\r\n        fc := TTMSFNCUtils.GetJSONValue(v, 'FormColor');\r\n        if Assigned(fc) then\r\n        begin\r\n          fcs := TTMSFNCUtils.GetJSONProp(v, 'FormColor');\r\n          f := StyleForm;\r\n          if not Assigned(f) then\r\n            f := TTMSFNCUtils.GetOwnerForm(Self);\r\n\r\n          if Assigned(f) then\r\n          begin\r\n            c := TTMSFNCGraphics.HTMLToColor(fcs);\r\n            {$IFDEF FMXLIB}\r\n            f.Fill.Kind := TBrushKind.Solid;\r\n            f.Fill.Color := c;\r\n            {$ELSE}\r\n            f.Color := c;\r\n            {$ENDIF}\r\n          end;\r\n        end;\r\n      end;\r\n\r\n      va := TTMSFNCUtils.GetJSONValue(v, 'Styles');\r\n      if va is TJSONArray then\r\n      begin\r\n        ja := va as TJSONArray;\r\n        for I := 0 to TTMSFNCUtils.GetJSONArraySize(ja) - 1 do\r\n        begin\r\n          jv := TTMSFNCUtils.GetJSONArrayItem(ja, I);\r\n          if Assigned(jv) then\r\n            InternalLoadStyleFromJSONValue(jv, AComponents);\r\n        end;\r\n      end\r\n      else\r\n      begin\r\n        if Assigned(v) then\r\n          InternalLoadStyleFromJSONValue(v, AComponents);\r\n      end;\r\n    finally\r\n      v.Free;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCStylesManager.InternalLoadStyleFromJSONValue(\r\n  AJSONValue: TJSONValue; AComponents: TTMSFNCStylesManagerComponentArray);\r\nvar\r\n  ct: string;\r\n  I, K: Integer;\r\n  f: TCustomForm;\r\n  io: ITMSFNCPersistence;\r\n  s: TStringStream;\r\n  st: string;\r\n  b: Boolean;\r\n  sm: ITMSFNCStylesManager;\r\n  arr: TTMSFNCStylesManagerComponentArray;\r\n\r\n  function IsComponentInArray(AComponent: TComponent): Boolean;\r\n  var\r\n    K: Integer;\r\n  begin\r\n    if Assigned(AComponents) and (Length(AComponents) = 0) or not Assigned(AComponents) then\r\n      Result := True\r\n    else\r\n    begin\r\n      Result := False;\r\n      for K := 0 to Length(AComponents) - 1 do\r\n      begin\r\n        if AComponents[K] = AComponent then\r\n        begin\r\n          Result := True;\r\n          Break;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  procedure ApplyStyleToComponent(AComponent: TComponent);\r\n  begin\r\n    if not Assigned(AComponent) then\r\n      Exit;\r\n\r\n    if (AComponent.ClassName = ct) and IsComponentInArray(AComponent) then\r\n    begin\r\n      if Supports(AComponent, ITMSFNCPersistence, io) then\r\n      begin\r\n        st := TTMSFNCUtils.GetJSONValueAsString(AJSONValue);\r\n        b := True;\r\n        DoCanLoadStyle(st, AComponent, b);\r\n        if b then\r\n        begin\r\n          s := TStringStream.Create(st{$IFDEF WEBLIB}, TEncoding.Ansi{$ENDIF});\r\n          try\r\n            io.LoadSettingsFromStream(s);\r\n          finally\r\n            s.Free;\r\n          end;\r\n\r\n          DoStyleLoaded(st, AComponent);\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nbegin\r\n  f := StyleForm;\r\n  if not Assigned(f) then\r\n    f := TTMSFNCUtils.GetOwnerForm(Self);\r\n\r\n  if not Assigned(f) then\r\n    Exit;\r\n\r\n  if Assigned(AJSONValue) then\r\n  begin\r\n    ct := TTMSFNCUtils.GetJSONProp(AJSONValue, TTMSFNCPersistence.ClassTypeVariable);\r\n    if ct <> '' then\r\n    begin\r\n      for I := f.ComponentCount - 1 downto 0 do\r\n      begin\r\n        ApplyStyleToComponent(f.Components[I]);\r\n        if Supports(f.Components[I], ITMSFNCStylesManager, sm) then\r\n        begin\r\n          arr := sm.GetSubComponentArray;\r\n          for K := 0 to Length(arr) - 1 do\r\n            ApplyStyleToComponent(arr[K]);\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\nfunction TTMSFNCStylesManager.CombineStyles(AFiles: TTMSFNCStylesManagerFileArray): string;\r\nvar\r\n  I: Integer;\r\n  sl: TStringList;\r\nbegin\r\n  Result := '';\r\n  if Length(AFiles) = 0 then\r\n    Exit;\r\n\r\n  Result := '{';\r\n  Result := Result + '\"Styles\": [';\r\n  sl := TStringList.Create;\r\n  try\r\n    for I := 0 to Length(AFiles) - 1 do\r\n    begin\r\n      if FileExists(AFiles[I]) then\r\n        sl.LoadFromFile(AFiles[I])\r\n      else\r\n        sl.Text := AFiles[I];\r\n\r\n      Result := Result + sl.Text;\r\n      if I < Length(AFiles) - 1 then\r\n        Result := Result + ',';\r\n    end;\r\n  finally\r\n    sl.Free;\r\n  end;\r\n  Result := Result + ']}';\r\nend;\r\n\r\nfunction TTMSFNCStylesManager.GetStyleFromFile(AFile: string): string;\r\nvar\r\n  ss: {$IFDEF LCLLIB}TStringList{$ELSE}TStringStream{$ENDIF};\r\nbegin\r\n  Result := '';\r\n  {$IFNDEF WEBLIB}\r\n  if not FileExists(AFile) then\r\n    Exit;\r\n  {$ENDIF}\r\n\r\n  ss := {$IFDEF LCLLIB}TStringList{$ELSE}TStringStream{$ENDIF}.Create;\r\n  try\r\n    {$IFNDEF WEBLIB}\r\n    ss.LoadFromFile(AFile);\r\n    Result := {$IFDEF LCLLIB}ss.Text{$ELSE}ss.DataString{$ENDIF};\r\n    {$ENDIF}\r\n  finally\r\n    {$IFNDEF WEBLIB}\r\n    ss.Free;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCStylesManager.GetStyleFromResource(AResourceName: string): string;\r\nvar\r\n  r: TResourceStream;\r\n  ss: {$IFDEF LCLLIB}TStringList{$ELSE}TStringStream{$ENDIF};\r\nbegin\r\n  Result := '';\r\n  r := nil;\r\n  try\r\n    r := TTMSFNCUtils.GetResourceStream(AResourceName, HInstance);\r\n    if Assigned(r) then\r\n    begin\r\n      ss := {$IFDEF LCLLIB}TStringList{$ELSE}TStringStream{$ENDIF}.Create;\r\n      try\r\n        ss.LoadFromStream(r);\r\n        Result := {$IFDEF LCLLIB}ss.Text{$ELSE}ss.DataString{$ENDIF};\r\n      finally\r\n        ss.Free;\r\n      end;\r\n    end;\r\n  finally\r\n    if Assigned(r) then\r\n      r.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCStylesManager.LoadStyleFromResource(AResourceName: string; AComponents: TTMSFNCStylesManagerComponentArray);\r\nvar\r\n  r: TResourceStream;\r\nbegin\r\n  r := nil;\r\n  try\r\n    r := TTMSFNCUtils.GetResourceStream(AResourceName, HInstance);\r\n    if Assigned(r) then\r\n      LoadStyleFromStream(r, AComponents);\r\n  finally\r\n    if Assigned(r) then\r\n      r.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCStylesManager.LoadStyleFromResource(AResourceName: string);\r\nvar\r\n  a: TTMSFNCStylesManagerComponentArray;\r\nbegin\r\n  SetLength(a, 0);\r\n  LoadStyleFromResource(AResourceName, a);\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF WEBLIB}\r\nprocedure TTMSFNCStylesManager.LoadStyleFromURL(AURL: string);\r\nvar\r\n  a: TTMSFNCStylesManagerComponentArray;\r\nbegin\r\n  SetLength(a, 0);\r\n  LoadStyleFromFile(AURL, a);\r\nend;\r\n\r\nprocedure TTMSFNCStylesManager.LoadStyleFromURL(AURL: string; AComponents: TTMSFNCStylesManagerComponentArray);\r\nbegin\r\n  LoadStyleFromFile(AURL, AComponents);\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCStylesManager.LoadStyleFromFile(AFile: string);\r\nvar\r\n  a: TTMSFNCStylesManagerComponentArray;\r\nbegin\r\n  SetLength(a, 0);\r\n  LoadStyleFromFile(AFile, a);\r\nend;\r\n\r\nprocedure TTMSFNCStylesManager.LoadStyleFromFile(AFile: string; AComponents: TTMSFNCStylesManagerComponentArray);\r\nvar\r\n  ss: {$IFDEF LCLLIB}TStringList{$ELSE}TStringStream{$ENDIF};\r\nbegin\r\n  {$IFNDEF WEBLIB}\r\n  if not FileExists(AFile) then\r\n    Exit;\r\n  {$ENDIF}\r\n\r\n  ss := {$IFDEF LCLLIB}TStringList{$ELSE}TStringStream{$ENDIF}.Create;\r\n  try\r\n    {$IFDEF WEBLIB}\r\n    FComponents := AComponents;\r\n    {$ENDIF}\r\n    ss.LoadFromFile(AFile {$IFDEF WEBLIB}, procedure begin{$ELSE});{$ENDIF}\r\n    InternalLoadStyle({$IFDEF LCLLIB}ss.Text{$ELSE}ss.DataString{$ENDIF}, AComponents);\r\n    {$IFDEF WEBLIB}\r\n    ss.Free;\r\n    end);\r\n    {$ENDIF}\r\n  finally\r\n    {$IFNDEF WEBLIB}\r\n    ss.Free;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCStylesManager.LoadStyleFromStream(AStream: TStream);\r\nvar\r\n  a: TTMSFNCStylesManagerComponentArray;\r\nbegin\r\n  SetLength(a, 0);\r\n  LoadStyleFromStream(AStream, a);\r\nend;\r\n\r\nprocedure TTMSFNCStylesManager.LoadStyleFromStream(AStream: TStream; AComponents: TTMSFNCStylesManagerComponentArray);\r\nvar\r\n  ss: {$IFDEF LCLLIB}TStringList{$ELSE}TStringStream{$ENDIF};\r\nbegin\r\n  ss := {$IFDEF LCLLIB}TStringList{$ELSE}TStringStream{$ENDIF}.Create;\r\n  try\r\n    ss.LoadFromStream(AStream);\r\n    InternalLoadStyle({$IFDEF LCLLIB}ss.Text{$ELSE}ss.DataString{$ENDIF}, AComponents);\r\n  finally\r\n    ss.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCStylesManager.LoadStyleFromText(AText: string);\r\nvar\r\n  a: TTMSFNCStylesManagerComponentArray;\r\nbegin\r\n  SetLength(a, 0);\r\n  InternalLoadStyle(AText, a);\r\nend;\r\n\r\nprocedure TTMSFNCStylesManager.LoadStyleFromText(AText: string; AComponents: TTMSFNCStylesManagerComponentArray);\r\nbegin\r\n  InternalLoadStyle(AText, AComponents);\r\nend;\r\n\r\nprocedure TTMSFNCStylesManager.SetStyle(const Value: string);\r\nbegin\r\n  if FStyle <> Value then\r\n  begin\r\n    FStyle := Value;\r\n    LoadStyleFromFile(FStyle);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCStylesManager.SetOptions(const Value: TTMSFNCStylesManagerOptions);\r\nbegin\r\n  FOptions.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCStylesManager.SetStyleResource(const Value: string);\r\nbegin\r\n  if FStyleResource <> Value then\r\n  begin\r\n    FStyleResource := Value;\r\n    if FStyleResource <> '' then\r\n    begin\r\n      {$IFNDEF WEBLIB}\r\n      LoadStyleFromResource('TTMSFNCSTYLE_' + FStyleResource);\r\n      {$ENDIF}\r\n    end;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCStylesManagerOptions.Create;\r\nbegin\r\n  FAdaptFormColor := True;\r\nend;\r\n\r\n{$ENDIF}\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2017 - 2021                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCUndo;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, WEBLib.TMSFNCTypes;\r\n\r\ntype\r\n  TTMSFNCUndoStackItem = class(TCollectionItem)\r\n  private\r\n    FActionName: string;\r\n    FState: TStream;\r\n    FObj: TObject;\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    destructor Destroy; override;\r\n    property ActionName: string read FActionName write FActionName;\r\n    property Obj: TObject read FObj write FObj;\r\n    property State: TStream read FState;\r\n  end;\r\n\r\n  TTMSFNCUndoManager = class(TCollection)\r\n  private\r\n    FCurrent: integer;\r\n    FObject: TObject;\r\n    FMaxStackCount: Integer;\r\n    function GetStackItem(Index: Integer): TTMSFNCUndoStackItem;\r\n  public\r\n    function NextUndoAction: string;\r\n    function NextRedoAction: string;\r\n    function CanUndo: Boolean;\r\n    function CanRedo: Boolean;\r\n    procedure Undo;\r\n    procedure Redo;\r\n    procedure ClearUndoStack;\r\n    procedure PushState(const {%H-}AActionName: string);\r\n    constructor Create(AObject: TObject);\r\n    property MaxStackCount: Integer read FMaxStackCount write FMaxStackCount default 20;\r\n    property Stack[Index: Integer]: TTMSFNCUndoStackItem read GetStackItem; default;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  SysUtils,\r\n  WEBLib.TMSFNCPersistence;\r\n\r\n{ TTMSFNCUndoStackItem }\r\n\r\nconstructor TTMSFNCUndoStackItem.Create(ACollection: TCollection);\r\nbegin\r\n  inherited Create(ACollection);\r\n  FState := TMemoryStream.Create;\r\nend;\r\n\r\ndestructor TTMSFNCUndoStackItem.Destroy;\r\nbegin\r\n  FState.Free;\r\n  inherited;\r\nend;\r\n\r\n{ TTMSFNCUndoManager }\r\n\r\nfunction TTMSFNCUndoManager.CanRedo: Boolean;\r\nbegin\r\n  Result := (FCurrent < Count - 1) and (Count > 0);\r\nend;\r\n\r\nfunction TTMSFNCUndoManager.CanUndo: Boolean;\r\nbegin\r\n  Result := (FCurrent > 0) and (Count > 0);\r\nend;\r\n\r\nprocedure TTMSFNCUndoManager.ClearUndoStack;\r\nbegin\r\n  Clear;\r\n  FCurrent := -1;\r\n  PushState('');\r\nend;\r\n\r\nconstructor TTMSFNCUndoManager.Create(AObject: TObject);\r\nbegin\r\n  inherited Create(TTMSFNCUndoStackItem);\r\n  FObject := AObject;\r\n  FMaxStackCount := 20;\r\n  FCurrent := -1;\r\nend;\r\n\r\nfunction TTMSFNCUndoManager.GetStackItem(Index: Integer): TTMSFNCUndoStackItem;\r\nbegin\r\n  Result := nil;\r\n  if (Index > -1) and (Index < Count) then\r\n    Result := TTMSFNCUndoStackItem(Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCUndoManager.NextUndoAction: string;\r\nbegin\r\n  Result := '';\r\n  if (FCurrent > -1) and (FCurrent < Count) then\r\n    Result := TTMSFNCUndoStackItem(Items[FCurrent]).ActionName;\r\nend;\r\n\r\nfunction TTMSFNCUndoManager.NextRedoAction: string;\r\nbegin\r\n  Result := '';\r\n  if (FCurrent >= -1) and (FCurrent < Count - 1) then\r\n    Result := TTMSFNCUndoStackItem(Items[FCurrent + 1]).ActionName;\r\nend;\r\n\r\nprocedure TTMSFNCUndoManager.Undo;\r\nvar\r\n  p: ITMSFNCPersistence;\r\nbegin\r\n  if (FCurrent > 0) and (FCurrent <= Count) then\r\n  begin\r\n    with TTMSFNCUndoStackItem(Items[FCurrent - 1]) do\r\n    begin\r\n      FState.Position := 0;\r\n      if Supports(FObject, ITMSFNCPersistence, p) then\r\n        p.LoadSettingsFromStream(FState)\r\n      else\r\n        TTMSFNCPersistence.LoadSettingsFromStream(FObject, FState);\r\n    end;\r\n    Dec(FCurrent);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCUndoManager.Redo;\r\nvar\r\n  p: ITMSFNCPersistence;\r\nbegin\r\n  if (FCurrent >= -1) and (FCurrent < Count - 1) then\r\n  begin\r\n    with TTMSFNCUndoStackItem(Items[FCurrent + 1]) do\r\n    begin\r\n      FState.Position := 0;\r\n      if Supports(FObject, ITMSFNCPersistence, p) then\r\n        p.LoadSettingsFromStream(FState)\r\n      else\r\n        TTMSFNCPersistence.LoadSettingsFromStream(FObject, FState);\r\n    end;\r\n    Inc(FCurrent);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCUndoManager.PushState(const AActionName: string);\r\nvar\r\n  p: ITMSFNCPersistence;\r\n  it: TCollectionItem;\r\nbegin\r\n  while FCurrent < Count - 1 do\r\n  begin\r\n    it := Items[Count - 1];\r\n    it.Free;\r\n  end;\r\n\r\n  with TTMSFNCUndoStackItem(Add) do\r\n  begin\r\n    ActionName := AActionName;\r\n    if Supports(FObject, ITMSFNCPersistence, p) then\r\n      p.SaveSettingsToStream(FState)\r\n    else\r\n      TTMSFNCPersistence.SaveSettingsToStream(FObject, FState);\r\n    Inc(FCurrent);\r\n  end;\r\n  if Count > MaxStackCount then\r\n  begin\r\n    Delete(0);\r\n    dec(FCurrent);\r\n  end;\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2016 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : https://www.tmssoftware.com                       }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCCustomControl;\r\n\r\n{$WARNINGS OFF}\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF CMNLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$DEFINE VCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF VCLLIB}\r\n{$DEFINE VCLWEBLIB}\r\n{$ENDIF}\r\n\r\n{$IFDEF FMXMOBILE}\r\n{$DEFINE DRAWTRIAL}\r\n{$ENDIF}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE DRAWTRIAL}\r\n{$ENDIF}\r\n\r\n{$IFDEF FNCLIB}\r\n{$DEFINE USETRIAL}\r\n\r\n{$IFDEF VCLLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 34}\r\n{$DEFINE VCLSTYLESENABLED}\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n\r\n{$ELSE}\r\n{$IFDEF FMXLIB}\r\n{$DEFINE USETRIAL}\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  {$IFDEF MSWINDOWS}\r\n  {%H-}Windows,\r\n  {$ENDIF}\r\n  Classes, WEBLib.Controls, WEBLib.TMSFNCGraphics, WEBLib.Graphics, WEBLib.TMSFNCStyles\r\n  ,WEBLib.TMSFNCPersistence, WEBLib.TMSFNCUndo\r\n  {$IFNDEF WEBLIB}\r\n  {$IFDEF FNCLIB}\r\n  ,WEBLib.TMSFNCHint\r\n  {$ELSE}\r\n  {$IFDEF VCLLIB}\r\n  {$IFDEF FREEWARE}\r\n  ,TMSTrial\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  ,Types, WEBLib.TMSFNCGraphicsTypes, WEBLib.TMSFNCTypes, TypInfo, WEBLib.Forms\r\n  {$IFDEF VCLLIB}\r\n  ,Messages\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,WEBLib.Menus\r\n  {$ENDIF}\r\n  {$IFNDEF LCLLIB}\r\n  {$IFNDEF WEBLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  ,UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  ,Generics.Collections\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,LMessages, LCLType, {%H-}LCLIntF, fgl\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Types, Messaging\r\n  {$ENDIF}\r\n  ;\r\n\r\n  {$IFNDEF LCLLIB}\r\nconst\r\n  FPC_FULLVERSION = 0;\r\n  {$ENDIF}\r\n\r\ntype\r\n  {$IFDEF FNCLIB}\r\n  {$IFNDEF WEBLIB}\r\n  ITMSFNCShortCutHint = interface\r\n  ['{A3E21A73-163A-4617-841B-8E0A62BF41B0}']\r\n    function HasShortCut(AShortCut: string): Boolean;\r\n    function HandleShortCut(AShortCut: string): Boolean;\r\n    function GetShortCutHint: string;\r\n    function IsShortCutHintActive: Boolean;\r\n    procedure ShowShortCutHint;\r\n    procedure CancelShortCutHint(AClearShortCutHintString: Boolean = True);\r\n    procedure SetShortCutHint(const Value: string);\r\n    property ShortCutHint: string read GetShortCutHint write SetShortCutHint;\r\n  end;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFNDEF LCLWEBLIB}\r\n  FNCJSLibReferenceAttribute = class(TCustomAttribute)\r\n  strict private\r\n    FAttrs: string;\r\n    FCSSs: string;\r\n    FDesc: string;\r\n    FSrcs: string;\r\n  public\r\n    constructor Create(const AScrs: string); overload;\r\n    constructor Create(const AScrs, ACSSs: string); overload;\r\n    constructor Create(const AScrs, ACSSs, AAttrs: string); overload;\r\n    constructor Create(const AScrs, ACSSs, AAttrs, ADesc: string); overload;\r\n    property Attrs: string read FAttrs;\r\n    property CSSs: string read FCSSs;\r\n    property Desc: string read FDesc;\r\n    property Srcs: string read FSrcs;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  TTMSFNCCustomDesignerForm = class(TForm);\r\n\r\n  TTMSFNCCustomControl = class;\r\n\r\n  TTMSFNCControlAlignment = (caNone, caTop, caBottom, caLeft, caRight, caClient);\r\n  TTMSFNCControlPosition = (cpTopLeft, cpTopCenter, cpTopRight, cpCenterLeft, cpCenterCenter, cpCenterRight, cpBottomLeft, cpBottomCenter, cpBottomRight);\r\n\r\n  {$IFDEF FNCLIB}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCCustomControlShortCutWindowList = TObjectList<TTMSFNCHint>;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  TTMSFNCCustomControlDropFiles = class\r\n  private\r\n    FFiles: TStringList;\r\n    function GetFiles: TStringList;\r\n  public\r\n    destructor Destroy; override;\r\n    property Files: TStringList read GetFiles;\r\n  end;\r\n\r\n  {$IFDEF FMXLIB}\r\n  TTMSFNCCustomControlBaseCommon = class(TControl, ITMSFNCAdaptToStyle, ITMSFNCProductInfo {$IFDEF FNCLIB}, ITMSFNCShortCutHint{$ENDIF})\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  TTMSFNCCustomControlBaseCommon = class({$IFDEF WEBLIB}TWebCustomControl{$ELSE}TCustomControl{$ENDIF}, ITMSFNCAdaptToStyle, ITMSFNCProductInfo {$IFNDEF WEBLIB}{$IFDEF FNCLIB}, ITMSFNCShortCutHint{$ENDIF}{$ENDIF}) {NOPP}\r\n  {$ENDIF}\r\n  private\r\n    {$IFDEF FMXLIB}\r\n    {$IFDEF MSWINDOWS}\r\n    FMessageHandler: HWND;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    FResourceScaleFactor: Single;\r\n    FPaintScaleFactor: Single;\r\n    FDesigntimeFormPixelsPerInch: Integer;\r\n    {$IFDEF CMNWEBLIB}\r\n    FAllowFocus: Boolean;\r\n    {$ENDIF}\r\n    {$IFDEF FNCLIB}\r\n    FShortCutHint: string;\r\n    {$IFNDEF WEBLIB}\r\n    FShortCutLimitation: string;\r\n    FShortCutWindowList: TTMSFNCCustomControlShortCutWindowList;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    FAcceptDropFiles: Boolean;\r\n    FAllowGetChildren: Boolean;\r\n    FAdaptToStyle: Boolean;\r\n    FAdaptedToStyle: Boolean;\r\n    FTransparent: Boolean;\r\n    FBufferedPainting: Boolean;\r\n    FNativeCanvas: Boolean;\r\n    FAntiAliasing: Boolean;\r\n    FOptimizedHTMLDrawing: Boolean;\r\n    FShowAcceleratorChar: Boolean;\r\n    FTextQuality: TTMSFNCGraphicsTextQuality;\r\n    FOnInternalDblClick: TNotifyEvent;\r\n    FOnInternalMouseDown: TNotifyEvent;\r\n    FOnInternalMouseMove: TNotifyEvent;\r\n    FOnInternalMouseUp: TNotifyEvent;\r\n    function GetAllowFocus: Boolean;\r\n    {$IFDEF FNCLIB}\r\n    function GetShortCutHint: string;\r\n    {$ENDIF}\r\n    function GetControlAlignment: TTMSFNCControlAlignment;\r\n    procedure SetAcceptDropFiles(const Value: Boolean);\r\n    procedure SetAllowFocus(const Value: Boolean);\r\n    procedure SetControlAlignment(const Value: TTMSFNCControlAlignment);\r\n    procedure SetAntiAliasing(const Value: Boolean);\r\n    procedure SetOptimizedHTMLDrawing(const Value: Boolean);\r\n    procedure SetShowAcceleratorChar(const Value: Boolean);\r\n    procedure SetNativeCanvas(const Value: Boolean);\r\n    procedure SetTextQuality(const Value: TTMSFNCGraphicsTextQuality);\r\n    {$IFDEF FNCLIB}\r\n    procedure SetShortCutHint(const Value: string);\r\n    {$ENDIF}\r\n  protected\r\n    function GetVersion: string; virtual;\r\n    function GetDocURL: string; virtual;\r\n    function GetTipsURL: string; virtual;\r\n    function HandleDesignHitTest(const APoint: TPoint): Boolean; virtual;\r\n    function GetClientMousePos: TPointF; virtual;\r\n    function ConvertScreenToClient(APoint: TPointF): TPointF; virtual;\r\n    function ConvertClientToScreen(APoint: TPointF): TPointF; virtual;\r\n    function GetDragObjectScreenShot: TTMSFNCBitmap; virtual;\r\n    function GetAdaptToStyle: Boolean; virtual;\r\n    {$IFDEF FMXLIB}\r\n    procedure SetEnabled(const Value: Boolean); override;\r\n    {$ENDIF}\r\n    {$IFNDEF FMXLIB}\r\n    procedure SetEnabled(Value: Boolean); override;\r\n    {$ENDIF}\r\n    {$IFDEF FNCLIB}\r\n    {$IFNDEF WEBLIB}\r\n    function HasShortCut(AShortCut: string): Boolean; virtual;\r\n    function HandleShortCut(AShortCut: string): Boolean; virtual;\r\n    function ExecuteShortCutMethod(AShortCut: string): Boolean; virtual;\r\n    function IsShortCutHintActive: Boolean; virtual;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    {$IFDEF FMXLIB}\r\n    procedure SetParent(const Value: TFmxObject); override;\r\n    procedure Loaded; override;\r\n    {$ENDIF}\r\n    procedure CalcFactor;\r\n    procedure ChangeDPIScale({%H-}M, {%H-}D: Integer); virtual;\r\n    procedure DestroyGraphicElements; virtual; abstract;\r\n    procedure SetDefaultGraphicColors; virtual;\r\n    procedure SetAdaptToStyle(const Value: Boolean); virtual;\r\n    procedure CancelHint; virtual;\r\n    procedure BeginDrag; virtual;{$IFDEF WEBLIB}reintroduce;{$ENDIF}\r\n    procedure InitializeStyle;\r\n    procedure ApplyStyle; virtual;\r\n    procedure ResetToDefaultStyle; virtual;\r\n    procedure HandleMouseLeave; virtual;\r\n    procedure HandleMouseEnter; virtual;\r\n    procedure HandleMouseDown({%H-}Button: TTMSFNCMouseButton; {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Single); virtual;\r\n    procedure HandleMouseMove({%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Single); virtual;\r\n    procedure HandleDblClick({%H-}X, {%H-}Y: Single); virtual;\r\n    procedure HandleMouseUp({%H-}Button: TTMSFNCMouseButton; {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Single); virtual;\r\n    procedure HandleKeyPress(var {%H-}Key: Char); virtual;\r\n    {$IFDEF VCLLIB}\r\n    procedure HandleTransparentDrawing(ADC: HDC); virtual;\r\n    {$ENDIF}\r\n    {$IFDEF LCLLIB}\r\n    procedure HandleUTF8KeyPress(var {%$H-}UTF8Key: TUTF8Char); virtual;\r\n    {$ENDIF}\r\n    procedure HandleKeyDown(var {%H-}Key: Word; {%H-}Shift: TShiftState); virtual;\r\n    procedure HandleDialogKey(var {%H-}Key: Word; {%H-}Shift: TShiftState); virtual;\r\n    procedure HandleKeyUp(var {%H-}Key: Word; {%H-}Shift: TShiftState); virtual;\r\n    procedure HandleMouseWheel({%H-}Shift: TShiftState; {%H-}WheelDelta: Integer; var {%H-}Handled: Boolean); virtual;\r\n    procedure HandleDragOver(const {%H-}Source: TObject; const {%H-}Point: TPointF; var {%H-}Accept: Boolean); virtual;\r\n    procedure HandleDragDrop(const {%H-}Source: TObject; const {%H-}Point: TPointF); virtual;\r\n    {$IFDEF FNCLIB}\r\n    {$IFNDEF WEBLIB}\r\n    procedure GetShortCutHints(AShortCutHints: TStringList); virtual;\r\n    procedure ShowShortCutHint; virtual;\r\n    procedure CustomizeShortCut({%H-}AShortCutWindow: TTMSFNCHint; {%H-}AShortCut: string; {%H-}AShortCutRect: TRectF; var {%H-}AShortCutPosition: TPointF); virtual;\r\n    procedure CancelShortCutHint(AClearShortCutHintString: Boolean = True); virtual;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    property AcceptDropFiles: Boolean read FAcceptDropFiles write SetAcceptDropFiles default False;\r\n    property AdaptToStyle: Boolean read GetAdaptToStyle write SetAdaptToStyle default False;\r\n    property Transparent: Boolean read FTransparent write FTransparent default False;\r\n    property BufferedPainting: Boolean read FBufferedPainting write FBufferedPainting default False;\r\n    property NativeCanvas: Boolean read FNativeCanvas write SetNativeCanvas default False;\r\n    property AntiAliasing: Boolean read FAntiAliasing write SetAntiAliasing default True;\r\n    property OptimizedHTMLDrawing: Boolean read FOptimizedHTMLDrawing write SetOptimizedHTMLDrawing default True;\r\n    property ShowAcceleratorChar: Boolean read FShowAcceleratorChar write SetShowAcceleratorChar default True;\r\n    property TextQuality: TTMSFNCGraphicsTextQuality read FTextQuality write SetTextQuality default gtqAntiAliasing;\r\n    property OnInternalMouseDown: TNotifyEvent read FOnInternalMouseDown write FOnInternalMouseDown;\r\n    property OnInternalMouseUp: TNotifyEvent read FOnInternalMouseUp write FOnInternalMouseUp;\r\n    property OnInternalMouseMove: TNotifyEvent read FOnInternalMouseMove write FOnInternalMouseMove;\r\n    property OnInternalDblClick: TNotifyEvent read FOnInternalDblClick write FOnInternalDblClick;\r\n    {$IFDEF FNCLIB}\r\n    property ShortCutHint: string read GetShortCutHint write SetShortCutHint;\r\n    {$ENDIF}\r\n    property AllowGetChildren: Boolean read FAllowGetChildren write FAllowGetChildren default False;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    property AllowFocus: Boolean read GetAllowFocus write SetAllowFocus default True;\r\n    property Canvas;\r\n    property ControlAlignment: TTMSFNCControlAlignment read GetControlAlignment write SetControlAlignment default caNone;\r\n    procedure SetControlMargins(ALeft, ATop, ARight, ABottom: Single);\r\n    procedure GetControlMargins(var ALeft, ATop, ARight, ABottom: Single);\r\n\r\n    function ScaleResourceValue(const Value: Integer): Integer; overload;\r\n    function ScaleResourceValue(const Value: Double): Double; overload;\r\n\r\n    function ScalePaintValue(const Value: Integer): Integer; overload;\r\n    function ScalePaintValue(const Value: Double): Double; overload;\r\n\r\n    property ResourceScaleFactor: Single read FResourceScaleFactor;\r\n    property PaintScaleFactor: Single read FPaintScaleFactor;\r\n    property DesigntimeFormPixelsPerInch: Integer read FDesigntimeFormPixelsPerInch;\r\n\r\n    {$IFDEF FMXLIB}\r\n    procedure SetBounds(X, Y, AWidth, AHeight: Single); override;\r\n    {$ENDIF}\r\n  end;\r\n\r\n  {$IFDEF FMXLIB}\r\n  TTMSFNCCustomControlBase = class(TTMSFNCCustomControlBaseCommon)\r\n  private\r\n    FStyleChangedId: Integer;\r\n    function GetL: Single;\r\n    function GetT: Single;\r\n    procedure SetTop(const Value: Single);\r\n    procedure SetLeft(const Value: Single);\r\n  protected\r\n    procedure StyleChangedHandler(const Sender: TObject; const Msg: TMessage); virtual;\r\n    procedure DoMouseEnter; override;\r\n    procedure DoMouseLeave; override;\r\n    procedure DragOver(const Data: TDragObject; const Point: TPointF; var Operation: TDragOperation); override;\r\n    procedure DragDrop(const Data: TDragObject; const Point: TPointF); override;\r\n    procedure MouseDown(Button: TTMSFNCMouseButton; Shift: TShiftState; X, Y: Single); override;\r\n    procedure MouseMove(Shift: TShiftState; X, Y: Single); override;\r\n    procedure MouseUp(Button: TTMSFNCMouseButton; Shift: TShiftState; X, Y: Single); override;\r\n    procedure KeyDown(var Key: Word; var KeyChar: WideChar; Shift: TShiftState); override;\r\n    procedure KeyUp(var Key: Word; var KeyChar: WideChar; Shift: TShiftState); override;\r\n    procedure DialogKey(var Key: Word; Shift: TShiftState); override;\r\n    procedure MouseWheel(Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean); override;\r\n    procedure DblClick; override;\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION < 30}\r\n    function GetHintString: String; virtual;\r\n    function HasHint: Boolean; virtual;\r\n    {$IFEND}\r\n    {$IF COMPILERVERSION = 28}\r\n    procedure BeginUpdate; virtual;\r\n    procedure EndUpdate; virtual;\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n  public\r\n    property Left: Single read GetL write SetLeft;\r\n    property Top: Single read GetT write SetTop;\r\n    procedure Invalidate; virtual;\r\n    procedure SetNewScene(AScene: IScene); override;\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF CMNWEBLIB}\r\n  TTMSFNCCustomControlBase = class(TTMSFNCCustomControlBaseCommon)\r\n  private\r\n    FStored: Boolean;\r\n    FHitTest: Boolean;\r\n    {$IFDEF VCLLIB}\r\n    procedure WMDropFiles(var Message: TWMDropFiles); message WM_DROPFILES;\r\n    procedure WMGetDlgCode(var Message: TWMGetDlgCode); message WM_GETDLGCODE;\r\n    procedure WMEraseBkGnd(var Message: TWMEraseBkGnd); message WM_ERASEBKGND;\r\n    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;\r\n    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;\r\n    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;\r\n    procedure CMFocusChanged(var Message: TCMFocusChanged); message CM_FOCUSCHANGED;\r\n    procedure CMHintShow(var Message: TMessage); message CM_HINTSHOW;\r\n    procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;\r\n    procedure CMDesignHitTest(var Message: TCMDesignHitTest); message CM_DESIGNHITTEST;\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION > 22}\r\n    procedure CMStyleChanged(var Message: TMessage); message CM_STYLECHANGED;\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n    {$ENDIF}\r\n    {$IFDEF LCLLIB}\r\n    procedure WMGetDlgCode(var {%H-}Message: TLMNoParams); message LM_GETDLGCODE;\r\n    {$IFDEF MSWINDOWS}\r\n    procedure WMEraseBkGnd(var {%H-}Message: TLMEraseBkGnd); message LM_ERASEBKGND;\r\n    procedure WMPaint(var {%H-}Message: TLMPaint); message LM_PAINT;\r\n    {$ENDIF}\r\n    procedure WMMouseWheel(var {%H-}Message: TLMMouseEvent); message LM_MOUSEWHEEL;\r\n    procedure CMMouseLeave(var {%H-}Message: TLMNoParams); message CM_MOUSELEAVE;\r\n    procedure CMMouseEnter(var {%H-}Message: TLMNoParams); message CM_MOUSEENTER;\r\n    procedure CMFocusChanged(var {%H-}Message: TLMessage); message CM_FOCUSCHANGED;\r\n    procedure CMHintShow(var {%H-}Message: TLMessage); message CM_HINTSHOW;\r\n    procedure WMNCHitTest(var Message: TLMessage) ; message LM_NCHITTEST;\r\n    {$HINTS OFF}\r\n    {$IF FPC_FULLVERSION < 30000}\r\n    procedure WMLButtonDBLCLK(var Message: TLMLButtonDblClk); message LM_LBUTTONDBLCLK;\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    procedure MouseWheel(Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean); override;\r\n    procedure DoMouseLeave; override;\r\n    procedure DoMouseEnter; override;\r\n    {$ENDIF}\r\n  protected\r\n    function GetLocalRect: TRectF; virtual;\r\n    function GetHintString: String; virtual;\r\n    function HasHint: Boolean; virtual;\r\n    procedure MouseDown(Button: TTMSFNCMouseButton; Shift: TShiftState; X, Y: Integer); override;\r\n    procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;\r\n    procedure MouseUp(Button: TTMSFNCMouseButton; Shift: TShiftState; X, Y: Integer); override;\r\n    procedure DragOver(Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); override;\r\n    procedure KeyDown(var Key: Word; Shift: TShiftState); override;\r\n    {$IFDEF LCLLIB}\r\n    procedure UTF8KeyPress(var UTF8Key: TUTF8Char); override;\r\n    {$ENDIF}\r\n    procedure KeyPress(var Key: Char); override;\r\n    procedure KeyUp(var Key: Word; Shift: TShiftState); override;\r\n    procedure DblClick; override;\r\n    {$IFDEF VCLLIB}\r\n    function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override;\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION > 30}\r\n    procedure ChangeScale(M, D: Integer; isDpiChange: Boolean); override;\r\n    {$ELSE}\r\n    procedure ChangeScale(M, D: Integer); override;\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n    {$ENDIF}\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    {$IFDEF WEBLIB}\r\n    procedure BeginUpdate; override;\r\n    procedure EndUpdate; override;\r\n    {$ENDIF}\r\n    {$IFNDEF WEBLIB}\r\n    procedure BeginUpdate; virtual;\r\n    procedure EndUpdate; virtual;\r\n    {$ENDIF}\r\n    procedure DragDrop(Source: TObject; X, Y: Integer); override;\r\n    function CanFocus: Boolean; override;\r\n    property LocalRect: TRectF read GetLocalRect;\r\n    property Stored: Boolean read FStored write FStored default True;\r\n    property HitTest: Boolean read FHitTest write FHitTest default True;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  TTMSFNCCustomControlBeforeDrawEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCCustomControlAfterDrawEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF) of object;\r\n  TTMSFNCCustomControlCanSavePropertyEvent = procedure(Sender: TObject; AObject: TObject; APropertyName: string; APropertyType: TTypeKind; var ACanSave: Boolean) of object;\r\n  TTMSFNCCustomControlCanLoadPropertyEvent = procedure(Sender: TObject; AObject: TObject; APropertyName: string; APropertyType: TTypeKind; var ACanLoad: Boolean) of object;\r\n\r\n  TTMSFNCCustomControl = class(TTMSFNCCustomControlBase, ITMSFNCGraphicsExport, ITMSFNCPersistence)\r\n  private\r\n    class var FBlockPersistenceInterface: Boolean;\r\n  private\r\n    FBlockInvalidate: Boolean;\r\n    FAppearancePersisting: Boolean;\r\n    FExporting: Boolean;\r\n    FExportRect: TRectF;\r\n    FOnBeforeDraw: TTMSFNCCustomControlBeforeDrawEvent;\r\n    FOnAfterDraw: TTMSFNCCustomControlAfterDrawEvent;\r\n    FOnCanSaveProperty: TTMSFNCCustomControlCanSavePropertyEvent;\r\n    FOnCanLoadProperty: TTMSFNCCustomControlCanLoadPropertyEvent;\r\n    {$IFDEF FMXLIB}\r\n    FColor: TTMSFNCGraphicsColor;\r\n    {$ENDIF}\r\n    FCheckedChk, FUnCheckedChk, FCheckedFocusChk, FUnCheckedFocusChk, FCheckedDisabledChk, FUnCheckedDisabledChk: TTMSFNCBitmapHelperClass;\r\n    FCheckedRd, FUnCheckedRd, FCheckedFocusRd, FUnCheckedFocusRd, FCheckedDisabledRd, FUnCheckedDisabledRd: TTMSFNCBitmapHelperClass;\r\n    FDownBtn, FNormalBtn, FDownFocusBtn, FNormalFocusBtn, FNormalDisabledBtn: TTMSFNCBitmapHelperClass;\r\n    FFill: TTMSFNCGraphicsFill;\r\n    FStroke: TTMSFNCGraphicsStroke;\r\n    FDataPointer: Pointer;\r\n    FDataBoolean: Boolean;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FUndoManager: TTMSFNCUndoManager;\r\n    function GetUndoManager: TTMSFNCUndoManager;\r\n    procedure SetFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetStroke(const Value: TTMSFNCGraphicsStroke);\r\n    {$IFDEF FMXLIB}\r\n    procedure SetColor(const Value: TTMSFNCGraphicsColor);\r\n    {$ENDIF}\r\n  protected\r\n    {$IFDEF WEBLIB}\r\n    class function GetVersionNumber(AMaj, AMin, ARel, ABld: ShortInt): string;\r\n    {$ENDIF}\r\n    function IsAppearanceProperty({%H-}AObject: TObject; {%H-}APropertyName: string; {%H-}APropertyType: TTypeKind): Boolean; virtual;\r\n    function CanSaveProperty({%H-}AObject: TObject; {%H-}APropertyName: string; {%H-}APropertyType: TTypeKind): Boolean; virtual;\r\n    function CanLoadProperty({%H-}AObject: TObject; {%H-}APropertyName: string; {%H-}APropertyType: TTypeKind): Boolean; virtual;\r\n    function GetVersion: string; override;\r\n    function LocalToScreenEx(APoint: TPointF): TPointF; virtual;\r\n    function ScreenToLocalEx(APoint: TPointF): TPointF; virtual;\r\n    function GetContentRect: TRectF; virtual;\r\n    function GetControlRect: TRectF; virtual;\r\n    function GetLocalRect: TRectF; override;\r\n    function IsExporting: Boolean; virtual;\r\n    {$IFDEF CMNLIB}\r\n    function GetTransparentColor: TTMSFNCGraphicsColor; virtual;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    procedure SetColor(AValue: TColor); override;\r\n    {$ENDIF}\r\n    procedure ChangeDPIScale({%H-}M, {%H-}D: Integer); override;\r\n    procedure RegisterRuntimeClasses; virtual;\r\n    procedure &Export({%H-}AGraphics: TTMSFNCGraphics; {%H-}ARect: TRectF); virtual;\r\n    procedure SetExportRect(ARect: TRectF); virtual;\r\n    procedure ApplyExportScale(AScale: Single); virtual;\r\n    procedure ResetExportScale; virtual;\r\n    procedure BeforeExport; virtual;\r\n    procedure AfterExport; virtual;\r\n    procedure ApplyStyle; override;\r\n    procedure ResetToDefaultStyle; override;\r\n    procedure DestroyGraphicElements; override;\r\n    {$IFDEF FMXLIB}\r\n    procedure TurnOffAnimation(chk: TFmxObject); virtual;\r\n    {$ENDIF}\r\n    {$IFDEF LCLLIB}\r\n    procedure DoSetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;\r\n    {$ENDIF}\r\n    {$IFDEF VCLLIB}\r\n    procedure CreateWnd; override;\r\n    {$ENDIF}\r\n    procedure UpdateControlAfterResize; virtual;\r\n    procedure CreateCheckBoxBitmaps; virtual;\r\n    procedure CreateRadioButtonBitmaps; virtual;\r\n    procedure CreateButtonBitmaps(AWidth, AHeight: Single); virtual;\r\n    procedure DoBeforeDraw(AGraphics: TTMSFNCGraphics; ARect: TRectF; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDraw(AGraphics: TTMSFNCGraphics; ARect: TRectF); virtual;\r\n    procedure DoCanSaveProperty(AObject: TObject; APropertyName: string; APropertyType: TTypeKind; var ACanSave: Boolean); virtual;\r\n    procedure DoCanLoadProperty(AObject: TObject; APropertyName: string; APropertyType: TTypeKind; var ACanLoad: Boolean); virtual;\r\n    procedure DrawBackground(AGraphics: TTMSFNCGraphics; {%H-}ARect: TRectF); virtual;\r\n    procedure StrokeChanged(Sender: TObject);\r\n    procedure FillChanged(Sender: TObject);\r\n    procedure Draw({%H-}AGraphics: TTMSFNCGraphics; {%H-}ARect: TRectF); virtual;\r\n    procedure DrawControl; virtual;\r\n    procedure DoBitmapChanged(Sender: TObject);\r\n    {$IFDEF DRAWTRIAL}\r\n    {$IFDEF FREEWARE}\r\n    procedure DrawTrial(AGraphics: TTMSFNCGraphics; {%H-}ARect: TRectF); virtual;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    property Fill: TTMSFNCGraphicsFill read FFill write SetFill;\r\n    property Stroke: TTMSFNCGraphicsStroke read FStroke write SetStroke;\r\n    procedure CaptureEx; virtual;\r\n    procedure ReleaseCaptureEx; virtual;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    function GetCheckBoxBitmap(AChecked: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True): TTMSFNCBitmapHelperClass; virtual;\r\n    function GetRadioButtonBitmap(AChecked: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True): TTMSFNCBitmapHelperClass; virtual;\r\n    function GetButtonBitmap(AWidth, AHeight: Single; ADown: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True): TTMSFNCBitmapHelperClass; virtual;\r\n    function IsDesignTime: Boolean; virtual;\r\n    function IsLoading: Boolean; virtual;\r\n    function IsReading: Boolean; virtual;\r\n    function IsDesigning: Boolean; virtual;\r\n    function IsDesignerForm: Boolean; virtual;\r\n    function IsDestroying: Boolean; virtual;\r\n    procedure SaveSettingsToFile(AFileName: string; AAppearanceOnly: Boolean = False); virtual;\r\n    procedure LoadSettingsFromFile(AFileName: string); virtual;\r\n    procedure SaveSettingsToStream(AStream: TStream; AAppearanceOnly: Boolean = False); virtual;\r\n    procedure LoadSettingsFromStream(AStream: TStream); virtual;\r\n    procedure DisableBackground;\r\n    procedure EnableBackground;\r\n    procedure DisableFill;\r\n    procedure EnableFill;\r\n    procedure DisableStroke;\r\n    procedure EnableStroke;\r\n    procedure Resize; override;\r\n    procedure Paint; override;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n    property UndoManager: TTMSFNCUndoManager read GetUndoManager;\r\n    class property BlockPersistenceInterface: Boolean read FBlockPersistenceInterface write FBlockPersistenceInterface;\r\n    property BlockInvalidate: Boolean read FBlockInvalidate write FBlockInvalidate;\r\n  published\r\n    property AdaptToStyle;\r\n    property AllowFocus default True;\r\n    {$IFDEF FMXLIB}\r\n    property Anchors;\r\n    property Hint;\r\n    property ShowHint;\r\n    property Color: TTMSFNCGraphicsColor read FColor write SetColor default gcWhite;\r\n    property Align;\r\n    property CanParentFocus;\r\n    property ClipChildren default True;\r\n    property ClipParent default False;\r\n    property DisableFocusEffect default True;\r\n    property DragMode default TDragMode.dmManual;\r\n    property EnableDragHighlight default True;\r\n    property Enabled default True;\r\n    property Height;\r\n    property HitTest default True;\r\n    property Locked default False;\r\n    property Padding;\r\n    property Opacity;\r\n    property Margins;\r\n    property PopupMenu;\r\n    property Position;\r\n    property RotationAngle;\r\n    property RotationCenter;\r\n    property Scale;\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION > 27}\r\n    property Size;\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n    property TabOrder;\r\n    property TabStop default True;\r\n    property TouchTargetExpansion;\r\n    property Visible default True;\r\n    property Width;\r\n    property OnApplyStyleLookup;\r\n    property OnDragEnter;\r\n    property OnDragLeave;\r\n    property OnDragOver;\r\n    property OnDragDrop;\r\n    property OnDragEnd;\r\n    property OnKeyDown;\r\n    property OnKeyUp;\r\n    property OnCanFocus;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnMouseDown;\r\n    property OnMouseMove;\r\n    property OnMouseUp;\r\n    property OnMouseWheel;\r\n    property OnMouseEnter;\r\n    property OnMouseLeave;\r\n    property OnResize;\r\n    {$ENDIF}\r\n\r\n    {$IFDEF CMNLIB}\r\n    property Align;\r\n    {$IFDEF LCLLIB}\r\n    property BorderSpacing;\r\n    {$ENDIF}\r\n    {$IFNDEF LCLLIB}\r\n    property BevelEdges;\r\n    property BevelInner;\r\n    property BevelKind;\r\n    property BevelOuter;\r\n    property BevelWidth;\r\n    property Ctl3D;\r\n    property ParentCtl3D;\r\n    property ParentDoubleBuffered;\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION > 23}\r\n    property StyleElements;\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n    property Touch;\r\n    property OnGesture;\r\n    property OnMouseActivate;\r\n    {$ENDIF}\r\n    property Anchors;\r\n    property BiDiMode;\r\n    property Color default gcWhite;\r\n    property Constraints;\r\n    property DoubleBuffered;\r\n    property DragCursor;\r\n    property DragKind;\r\n    property DragMode;\r\n    property Enabled;\r\n    property Font;\r\n    property TabStop default True;\r\n    property ParentBiDiMode;\r\n    property ParentColor default False;\r\n    property ParentFont;\r\n    property ParentShowHint;\r\n    property PopupMenu;\r\n    property ShowHint;\r\n    property Hint;\r\n    property TabOrder;\r\n    property Visible;\r\n    property OnClick;\r\n    property OnContextPopup;\r\n    property OnDblClick;\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDock;\r\n    property OnEndDrag;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseEnter;\r\n    property OnMouseLeave;\r\n    property OnMouseMove;\r\n    property OnMouseUp;\r\n    property OnMouseWheelDown;\r\n    property OnMouseWheelUp;\r\n    property OnStartDock;\r\n    property OnStartDrag;\r\n    property OnResize;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property BiDiMode;\r\n    property BorderStyle;\r\n    property Center;\r\n    property ChildOrder;\r\n    property Color;\r\n    property DragMode;\r\n    property DoubleBuffered;\r\n    property ElementClassName;\r\n    property ElementID;\r\n    property ElementFont;\r\n    property ElementPosition;\r\n    property Enabled;\r\n    property Font;\r\n    property Height;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Hint;\r\n    property Left;\r\n    property Margins;\r\n    property PopupMenu;\r\n    property ParentDoubleBuffered;\r\n    property ParentFont;\r\n    property Role;\r\n    property TabStop;\r\n    property ShowHint;\r\n    property TabOrder;\r\n    property Top;\r\n    property Width;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property Visible;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseEnter;\r\n    property OnMouseLeave;\r\n    property OnMouseMove;\r\n    property OnMouseUp;\r\n    property OnMouseWheel;\r\n    property OnMouseWheelUp;\r\n    property OnMouseWheelDown;\r\n    property OnDragOver;\r\n    property OnDragDrop;\r\n    property OnResize;\r\n    {$ENDIF}\r\n    property ShowAcceleratorChar;\r\n    property OnBeforeDraw: TTMSFNCCustomControlBeforeDrawEvent read FOnBeforeDraw write FOnBeforeDraw;\r\n    property OnAfterDraw: TTMSFNCCustomControlAfterDrawEvent read FOnAfterDraw write FOnAfterDraw;\r\n    property OnCanSaveProperty: TTMSFNCCustomControlCanSavePropertyEvent read FOnCanSaveProperty write FOnCanSaveProperty;\r\n    property OnCanLoadProperty: TTMSFNCCustomControlCanLoadPropertyEvent read FOnCanLoadProperty write FOnCanLoadProperty;\r\n  end;\r\n\r\n  TTMSFNCCustomControlClass = class of TTMSFNCCustomControl;\r\n\r\n  TTMSFNCControl = class(TTMSFNCCustomControl)\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n  end;\r\n\r\nfunction IsSourceDropFiles(ASource: TObject): Boolean;\r\nfunction AsSourceDropFiles(ASource: TObject): TTMSFNCCustomControlDropFiles;\r\n\r\nimplementation\r\n\r\nuses\r\n  WEBLib.TMSFNCUtils, SysUtils\r\n  {$IFNDEF LCLLIB}\r\n  ,WEBLib.StdCtrls\r\n  {$IFDEF MSWINDOWS}\r\n  ,WinApi.ShellApi\r\n  {$ENDIF}  \r\n  {$ENDIF}\r\n  {$IFDEF VCLSTYLESENABLED}\r\n  ,VCL.Themes\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Platform, FMX.Ani\r\n  {$ENDIF}\r\n\r\n  {$IFDEF VCLLIB}\r\n  ,WEBLib.TMSFNCXPVS\r\n  {$ENDIF}\r\n  {$IFDEF USETRIAL}\r\n  {$IFNDEF LCLLIB}\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF FMXMOBILE}\r\n  {$IFDEF FREEWARE}\r\n  {$IFDEF MSWINDOWS}\r\n  ,System.Win.Registry\r\n  {$ENDIF}\r\n  {$IFDEF MACOS}\r\n  ,MacApi.AppKit, MacApi.Foundation, MacApi.Helpers\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Objects, UIConsts\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  ,VCL.ExtCtrls\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  ;\r\n\r\n{$IFDEF CMNLIB}\r\ntype\r\n  TWinControlProtected = class(TWinControl)\r\n  public\r\n    procedure PaintCtrls(DC: HDC; First: TControl);\r\n  end;\r\n{$ENDIF}\r\n\r\n{$IFDEF CMNLIB}\r\nfunction CreateShiftStateEx: TShiftState;\r\nbegin\r\n  Result := [];\r\n  if GetKeyState(VK_SHIFT) < 0 then\r\n    Include(Result, ssShift);\r\n  if GetKeyState(VK_CONTROL) < 0 then\r\n    Include(Result, ssCtrl);\r\n  if GetKeyState(VK_MENU) < 0 then\r\n    Include(Result, ssAlt);\r\nend;\r\n{$ENDIF}\r\n\r\nfunction IsSourceDropFiles(ASource: TObject): Boolean;\r\nbegin\r\n  Result := ASource is TTMSFNCCustomControlDropFiles;\r\nend;\r\n\r\nfunction AsSourceDropFiles(ASource: TObject): TTMSFNCCustomControlDropFiles;\r\nbegin\r\n  Result := ASource as TTMSFNCCustomControlDropFiles;\r\nend;\r\n\r\n{ TTMSFNCCustomControlDropFiles }\r\n\r\ndestructor TTMSFNCCustomControlDropFiles.Destroy;\r\nbegin\r\n  FreeAndNil(FFiles);\r\nend;\r\n\r\nfunction TTMSFNCCustomControlDropFiles.GetFiles: TStringList;\r\nbegin\r\n  if not Assigned(FFiles) then\r\n    FFiles := TStringList.Create;\r\n\r\n  Result := FFiles;\r\nend;\r\n\r\n{ TTMSFNCCustomControlBaseCommon }\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.SetAdaptToStyle(const Value: Boolean);\r\nbegin\r\n  FAdaptToStyle := Value;\r\n  InitializeStyle;\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomControlBaseCommon.Loaded;\r\nbegin\r\n  CalcFactor;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.SetBounds(X, Y, AWidth, AHeight: Single);\r\nbegin\r\n  CalcFactor;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.SetParent(const Value: TFmxObject);\r\nbegin\r\n  CalcFactor;\r\n  inherited;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.CalcFactor;\r\nbegin\r\n  FResourceScaleFactor := TTMSFNCUtils.GetDPIScale(Self, 96);\r\n  {$IFDEF FMXLIB}\r\n  FPaintScaleFactor := 1.0;\r\n  {$ELSE}\r\n  FPaintScaleFactor := FResourceScaleFactor;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.ChangeDPIScale(M, D: Integer);\r\nbegin\r\n\r\nend;\r\n\r\nfunction TTMSFNCCustomControlBaseCommon.GetAdaptToStyle: Boolean;\r\nbegin\r\n  Result := FAdaptToStyle;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.ApplyStyle;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.ResetToDefaultStyle;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.SetDefaultGraphicColors;\r\nvar\r\n  c: TTMSFNCGraphicsColor;\r\nbegin\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleBackgroundFillColor(c) then\r\n    TTMSFNCGraphics.DefaultPopupFillColor := c\r\n  else\r\n    TTMSFNCGraphics.DefaultPopupFillColor := gcWhite;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleBackgroundStrokeColor(c) then\r\n    TTMSFNCGraphics.DefaultPopupStrokeColor := c\r\n  else\r\n    TTMSFNCGraphics.DefaultPopupStrokeColor := gcSilver;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleDefaultButtonFillColor(c) then\r\n    TTMSFNCGraphics.DefaultButtonFillColor := c\r\n  else\r\n    TTMSFNCGraphics.DefaultButtonFillColor := MakeGraphicsColor(225, 225, 225);\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleLineFillColor(c) then\r\n    TTMSFNCGraphics.DefaultButtonStrokeColor := c\r\n  else\r\n    TTMSFNCGraphics.DefaultButtonStrokeColor := gcDarkgray;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleTextFontColor(c) then\r\n    TTMSFNCGraphics.DefaultTextFontColor := c\r\n  else\r\n    TTMSFNCGraphics.DefaultTextFontColor := gcBlack;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleSelectionFillColor(c) then\r\n  begin\r\n    TTMSFNCGraphics.DefaultSelectionFillColor := c;\r\n    TTMSFNCGraphics.DefaultButtonFillColorFocused := Blend(c, TTMSFNCGraphics.DefaultButtonFillColor, 25);\r\n    TTMSFNCGraphics.DefaultButtonStrokeColorFocused := Blend(c, TTMSFNCGraphics.DefaultButtonStrokeColor, 30);\r\n  end\r\n  else\r\n  begin\r\n    TTMSFNCGraphics.DefaultSelectionFillColor := gcBlack;\r\n    TTMSFNCGraphics.DefaultButtonFillColorFocused := MakeGraphicsColor(229, 241, 251);\r\n    TTMSFNCGraphics.DefaultButtonStrokeColorFocused := MakeGraphicsColor(60, 127, 177);\r\n  end;\r\n\r\n  TTMSFNCGraphics.DefaultButtonStrokeColorDisabled := gcDarkGray;\r\n  TTMSFNCGraphics.DefaultButtonFillColorDisabled := gcLightgray;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.InitializeStyle;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  TTMSFNCStyles.SetActiveScene(Scene);\r\n  {$ENDIF}\r\n  SetDefaultGraphicColors;\r\n  DestroyGraphicElements;\r\n  if AdaptToStyle then\r\n  begin\r\n    FAdaptedToStyle := True;\r\n    ApplyStyle;\r\n  end\r\n  else if FAdaptedToStyle then\r\n  begin\r\n    ResetToDefaultStyle;\r\n    FAdaptedToStyle := False;\r\n  end;\r\n\r\n  Invalidate;\r\nend;\r\n\r\nfunction TTMSFNCCustomControlBaseCommon.GetVersion: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCCustomControlBaseCommon.GetDocURL: string;\r\nbegin\r\n  Result := TTMSFNCBaseDocURL;\r\nend;\r\n\r\nfunction TTMSFNCCustomControlBaseCommon.HandleDesignHitTest(const APoint: TPoint): Boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n\r\nfunction TTMSFNCCustomControlBaseCommon.GetTipsURL: string;\r\nbegin\r\n  Result := TTMSFNCBaseTipsURL;\r\nend;\r\n\r\nfunction TTMSFNCCustomControlBaseCommon.GetClientMousePos: TPointF;\r\nbegin\r\n  Result := ConvertScreenToClient(TTMSFNCUtils.GetMousePos);\r\nend;\r\n\r\n{$IFDEF CMNWEBLIB}\r\nfunction TTMSFNCCustomControlBaseCommon.ConvertClientToScreen(APoint: TPointF): TPointF;\r\nvar\r\n  p: TPoint;\r\nbegin\r\n  p := ClientToScreen(Point(Round(APoint.X), Round(APoint.Y)));\r\n  Result := PointF(p.X, p.Y);\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF FMXLIB}\r\nfunction TTMSFNCCustomControlBaseCommon.ConvertClientToScreen(APoint: TPointF): TPointF;\r\nbegin\r\n  Result := LocalToScreen(APoint);\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF CMNWEBLIB}\r\nfunction TTMSFNCCustomControlBaseCommon.ConvertScreenToClient(APoint: TPointF): TPointF;\r\nvar\r\n  p: TPoint;\r\nbegin\r\n  p := ScreenToClient(Point(Round(APoint.X), Round(APoint.Y)));\r\n  Result := PointF(p.X, p.Y);\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF FMXLIB}\r\nfunction TTMSFNCCustomControlBaseCommon.ConvertScreenToClient(APoint: TPointF): TPointF;\r\nbegin\r\n  Result := ScreenToLocal(APoint);\r\nend;\r\n{$ENDIF}\r\n\r\nconstructor TTMSFNCCustomControlBaseCommon.Create(AOwner: TComponent);\r\nvar\r\n  ppi: Integer;\r\n{$IFDEF VCLLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 34}\r\n  f: TCustomForm;\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\nbegin\r\n  inherited;\r\n  ppi := 96;\r\n  {$IFDEF VCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 34}\r\n  f := TTMSFNCUtils.GetOwnerForm(Self);\r\n  if Assigned(f) then\r\n    ppi := f.PixelsPerInch;\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n\r\n  FDesigntimeFormPixelsPerInch := ppi;\r\n\r\n  FPaintScaleFactor := 1.0;\r\n  FResourceScaleFactor := 1.0;\r\n  {$IFDEF FNCLIB}\r\n  {$IFNDEF WEBLIB}\r\n  FShortCutWindowList := TTMSFNCCustomControlShortCutWindowList.Create;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  SetDefaultGraphicColors;\r\n  FAdaptToStyle := False;\r\n  FAdaptedToStyle := False;\r\n  FAcceptDropFiles := False;\r\n  FTransparent := False;\r\n  FNativeCanvas := False;\r\n  FBufferedPainting := False;\r\n  FAntiAliasing := True;\r\n  FOptimizedHTMLDrawing := True;\r\n  FShowAcceleratorChar := True;\r\n  FTextQuality := gtqAntiAliasing;\r\n  {$IFDEF CMNWEBLIB}\r\n  FAllowFocus := True;\r\n  {$ENDIF}\r\nend;\r\n\r\ndestructor TTMSFNCCustomControlBaseCommon.Destroy;\r\nbegin\r\n  {$IFDEF FNCLIB}\r\n  {$IFNDEF WEBLIB}\r\n  CancelShortCutHint;\r\n  FShortCutWindowList.Free;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF FMXLIB}\r\n  {$IFDEF MSWINDOWS}\r\n  DeallocateHWnd(FMessageHandler);\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCCustomControlBaseCommon.GetAllowFocus: Boolean;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Result := CanFocus;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  Result := FAllowFocus;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.SetAcceptDropFiles(const Value: Boolean);\r\nbegin\r\n  if FAcceptDropFiles <> Value then\r\n  begin\r\n    FAcceptDropFiles := Value;\r\n    {$IFDEF VCLLIB}\r\n    DragAcceptFiles(Handle, FAcceptDropFiles);\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.SetAllowFocus(const Value: Boolean);\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  CanFocus := Value;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  FAllowFocus := Value;\r\n  {$ENDIF}\r\nend;\r\n\r\n{$IFDEF FNCLIB}\r\nfunction TTMSFNCCustomControlBaseCommon.GetShortCutHint: string;\r\nbegin\r\n  Result := FShortCutHint;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.SetShortCutHint(const Value: string);\r\nbegin\r\n  FShortCutHint := Value;\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\nfunction TTMSFNCCustomControlBaseCommon.IsShortCutHintActive: Boolean;\r\nbegin\r\n  Result := FShortCutWindowList.Count > 0;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.CancelShortCutHint(AClearShortCutHintString: Boolean = True);\r\nbegin\r\n  FShortCutWindowList.Clear;\r\n  if AClearShortCutHintString then\r\n    FShortCutLimitation := '';\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.CustomizeShortCut(AShortCutWindow: TTMSFNCHint; AShortCut: string; AShortCutRect: TRectF; var AShortCutPosition: TPointF);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.GetShortCutHints(AShortCutHints: TStringList);\r\nbegin\r\n  AShortCutHints.Add(ShortCutHint);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.ShowShortCutHint;\r\nvar\r\n  pt: TPointF;\r\n  r: TRect;\r\n  I: Integer;\r\n  h: TTMSFNCHint;\r\n  s: string;\r\n  l: TStringList;\r\nbegin\r\n  CancelShortCutHint(False);\r\n  l := TStringList.Create;\r\n  try\r\n    GetShortCutHints(l);\r\n\r\n    for I := 0 to l.Count - 1 do\r\n    begin\r\n      s := l[I];\r\n      if (s <> '') and ((Pos(FShortCutLimitation, s) > 0) or (FShortCutLimitation = '')) then\r\n      begin\r\n        h := TTMSFNCHint.Create(Self);\r\n        r := h.Calculate(s);\r\n        pt := PointF((Width - (r.Right - r.Left)) / 2, Height - (r.Bottom - r.Top) / 2);\r\n        CustomizeShortCut(h, s, ConvertToRectF(r), pt);\r\n        pt := ConvertClientToScreen(pt);\r\n        h.ShowHintAt(s, Round(pt.X), Round(pt.Y));\r\n        FShortCutWindowList.Add(h);\r\n      end;\r\n    end;\r\n  finally\r\n    l.Free;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomControlBaseCommon.ExecuteShortCutMethod(AShortCut: String): Boolean;\r\nbegin\r\n  Result := False;\r\n  if AShortCut = ShortCutHint then\r\n  begin\r\n    Click;\r\n    Result := True;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomControlBaseCommon.HasShortCut(AShortCut: string): Boolean;\r\nvar\r\n  sl: TStringList;\r\n  i: Integer;\r\n  s: string;\r\nbegin\r\n  Result := False;\r\n  sl := TStringList.Create;\r\n  try\r\n    GetShortCutHints(sl);\r\n    for I := 0 to sl.Count - 1 do\r\n    begin\r\n      s := sl[I];\r\n      if (s <> '') and ((Pos(AShortCut, s) = 1) or (AShortCut = '')) then\r\n      begin\r\n        Result := True;\r\n        Break;\r\n      end;\r\n    end;\r\n  finally\r\n    sl.Free;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomControlBaseCommon.HandleShortCut(AShortcut: string): Boolean;\r\nvar\r\n  sl: TStringList;\r\n  s: string;\r\n  I: Integer;\r\n  b: Boolean;\r\nbegin\r\n  Result := False;\r\n  if not Enabled then\r\n    Exit;\r\n\r\n  Result := ExecuteShortCutMethod(AShortCut);\r\n  if Result then\r\n  begin\r\n    CancelShortCutHint;\r\n    FShortCutLimitation := '';\r\n  end\r\n  else\r\n  begin\r\n    FShortCutLimitation := AShortCut;\r\n    sl := TStringList.Create;\r\n    try\r\n      GetShortCutHints(sl);\r\n      b := False;\r\n      for I := 0 to sl.Count - 1 do\r\n      begin\r\n        s := sl[I];\r\n        if (s <> '') and ((Pos(FShortCutLimitation, s) = 1) or (FShortCutLimitation = '')) then\r\n        begin\r\n          b := True;\r\n          Break;\r\n        end;\r\n      end;\r\n\r\n      if b then\r\n        ShowShortCutHint\r\n      else\r\n        CancelShortCutHint;\r\n    finally\r\n      sl.Free;\r\n    end;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.SetTextQuality(const Value: TTMSFNCGraphicsTextQuality);\r\nbegin\r\n  if FTextQuality <> Value then\r\n  begin\r\n    FTextQuality := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.SetNativeCanvas(const Value: Boolean);\r\nbegin\r\n  if FNativeCanvas <> Value then\r\n  begin\r\n    FNativeCanvas := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.SetAntiAliasing(const Value: Boolean);\r\nbegin\r\n  if FAntiAliasing <> Value then\r\n  begin\r\n    FAntiAliasing := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.SetOptimizedHTMLDrawing(const Value: Boolean);\r\nbegin\r\n  if FOptimizedHTMLDrawing <> Value then\r\n  begin\r\n    FOptimizedHTMLDrawing := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.SetShowAcceleratorChar(const Value: Boolean);\r\nbegin\r\n  if FShowAcceleratorChar <> Value then\r\n  begin\r\n    FShowAcceleratorChar := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomControlBaseCommon.GetControlAlignment: TTMSFNCControlAlignment;\r\nbegin\r\n  Result := caNone;\r\n  {$IFDEF FMXLIB}\r\n  case Align of\r\n    TAlignLayout.None: Result := caNone;\r\n    TAlignLayout.Top: Result := caTop;\r\n    TAlignLayout.Bottom: Result := caBottom;\r\n    TAlignLayout.Left: Result := caLeft;\r\n    TAlignLayout.Right: Result := caRight;\r\n    TAlignLayout.Client: Result := caClient;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  case Align of\r\n    alNone: Result := caNone;\r\n    alTop: Result := caTop;\r\n    alBottom: Result := caBottom;\r\n    alLeft: Result := caLeft;\r\n    alRight: Result := caRight;\r\n    alClient: Result := caClient;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.SetControlAlignment(const Value: TTMSFNCControlAlignment);\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  case Value of\r\n    caNone: Align := TAlignLayout.None;\r\n    caTop: Align := TAlignLayout.Top;\r\n    caBottom: Align := TAlignLayout.Bottom;\r\n    caLeft: Align := TAlignLayout.Left;\r\n    caRight: Align := TAlignLayout.Right;\r\n    caClient: Align := TAlignLayout.Client;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  case Value of\r\n    caNone: Align := alNone;\r\n    caTop: Align := alTop;\r\n    caBottom: Align := alBottom;\r\n    caLeft: Align := alLeft;\r\n    caRight: Align := alRight;\r\n    caClient: Align := alClient;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\n{$IFDEF VCLLIB}\r\nprocedure TTMSFNCCustomControlBaseCommon.HandleTransparentDrawing(ADC: HDC);\r\nbegin\r\n  //\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.HandleMouseLeave;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.HandleMouseEnter;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.HandleMouseDown(Button: TTMSFNCMouseButton; Shift: TShiftState; X: Single; Y: Single);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.HandleMouseMove(Shift: TShiftState; X: Single; Y: Single);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.HandleDblClick(X: Single; Y: Single);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.HandleDragOver(const Source: TObject; const Point: TPointF; var Accept: Boolean);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.HandleDragDrop(const Source: TObject; const Point: TPointF);\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.HandleMouseUp(Button: TTMSFNCMouseButton; Shift: TShiftState; X: Single; Y: Single);\r\nbegin\r\n\r\nend;\r\n\r\n{$IFDEF LCLLIB}\r\nprocedure TTMSFNCCustomControlBaseCommon.HandleUTF8KeyPress(var {%$H-}UTF8Key: TUTF8Char);\r\nbegin\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.HandleKeyPress(var Key: Char);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.HandleKeyDown(var Key: Word; Shift: TShiftState);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.HandleDialogKey(var Key: Word; Shift: TShiftState);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.HandleKeyUp(var Key: Word; Shift: TShiftState);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.HandleMouseWheel(Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean);\r\nbegin\r\n\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomControlBase.StyleChangedHandler(const Sender: TObject; const Msg: TMessage);\r\nbegin\r\n  InitializeStyle;\r\nend;\r\n\r\nconstructor TTMSFNCCustomControlBase.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FStyleChangedId := TMessageManager.DefaultManager.SubscribeToMessage(TStyleChangedMessage, StyleChangedHandler);\r\nend;\r\n\r\ndestructor TTMSFNCCustomControlBase.Destroy;\r\nvar\r\n  frm: TCustomForm;\r\nbegin\r\n  frm := TTMSFNCUtils.GetOwnerForm(Self);\r\n  if Assigned(frm) and (csDestroying in frm.ComponentState) then\r\n    TTMSFNCStyles.SetActiveScene(nil);\r\n\r\n  TMessageManager.DefaultManager.Unsubscribe(TStyleChangedMessage, FStyleChangedId);\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.Invalidate;\r\nbegin\r\n  Invalidate;\r\nend;\r\n\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION < 30}\r\nfunction TTMSFNCCustomControlBase.GetHintString: String;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCCustomControlBase.HasHint: Boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n{$IFEND}\r\n{$HINTS ON}\r\n\r\nfunction TTMSFNCCustomControlBase.GetL: Single;\r\nbegin\r\n  Result := Position.X;\r\nend;\r\n\r\nfunction TTMSFNCCustomControlBase.GetT: Single;\r\nbegin\r\n  Result := Position.Y;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.SetTop(const Value: Single);\r\nbegin\r\n  Position.Y := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.SetLeft(const Value: Single);\r\nbegin\r\n  Position.X := Value;\r\nend;\r\n\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION = 28}\r\nprocedure TTMSFNCCustomControlBase.BeginUpdate;\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.EndUpdate;\r\nbegin\r\nend;\r\n{$IFEND}\r\n{$HINTS ON}\r\n\r\nprocedure TTMSFNCCustomControlBase.KeyDown(var Key: Word; var KeyChar: WideChar;\r\n  Shift: TShiftState);\r\nbegin\r\n  inherited;\r\n  if KeyChar = ' ' then\r\n    Key := KEY_SPACE;\r\n\r\n  if KeyChar = '-' then\r\n    Key := KEY_SUBTRACT;\r\n\r\n  if KeyChar = '+' then\r\n    Key := KEY_ADD;\r\n\r\n  if KeyChar = '*' then\r\n    Key := KEY_MULTIPLY;\r\n\r\n  if KeyChar = '/' then\r\n    Key := KEY_DIVIDE;\r\n\r\n  HandleKeyPress(KeyChar);\r\n  HandleKeyDown(Key, Shift);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.KeyUp(var Key: Word; var KeyChar: WideChar;\r\n  Shift: TShiftState);\r\nbegin\r\n  inherited;\r\n  if KeyChar = ' ' then\r\n    Key := KEY_SPACE;\r\n\r\n  HandleKeyUp(Key, Shift);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.DialogKey(var Key: Word; Shift: TShiftState);\r\nbegin\r\n  inherited;\r\n  HandleDialogKey(Key, Shift);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.DragOver(const Data: TDragObject; const Point: TPointF; var Operation: TDragOperation);\r\nvar\r\n  b: Boolean;\r\n  s: TObject;\r\n  df: TTMSFNCCustomControlDropFiles;\r\n  I: Integer;\r\nbegin\r\n  inherited;\r\n\r\n  try\r\n    s := nil;\r\n    df := nil;\r\n    if Assigned(Data.Source) then\r\n      s := Data.Source\r\n    else if (Length(Data.Files) > 0) and AcceptDropFiles then\r\n    begin\r\n      df := TTMSFNCCustomControlDropFiles.Create;\r\n      for I := 0 to Length(Data.Files) - 1 do\r\n        df.Files.Add(Data.Files[I]);\r\n\r\n      s := df;\r\n    end;\r\n\r\n    if s = nil then\r\n      Exit;\r\n\r\n    b := Operation <> TDragOperation.None;\r\n    HandleDragOver(s, Point, b);\r\n    if b then\r\n    begin\r\n      if Assigned(df) then\r\n        Operation := TDragOperation.Copy\r\n      else\r\n        Operation := TDragOperation.Move;\r\n    end;\r\n\r\n  finally\r\n    FreeAndNil(df);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.DragDrop(const Data: TDragObject; const Point: TPointF);\r\nvar\r\n  s: TObject;\r\n  df: TTMSFNCCustomControlDropFiles;\r\n  I: Integer;\r\nbegin\r\n  inherited;\r\n\r\n  try\r\n    s := nil;\r\n    df := nil;\r\n    if Assigned(Data.Source) then\r\n      s := Data.Source\r\n    else if (Length(Data.Files) > 0) and AcceptDropFiles then\r\n    begin\r\n      df := TTMSFNCCustomControlDropFiles.Create;\r\n      for I := 0 to Length(Data.Files) - 1 do\r\n        df.Files.Add(Data.Files[I]);\r\n\r\n      s := df;\r\n    end;\r\n\r\n    if s = nil then\r\n      Exit;\r\n\r\n    HandleDragDrop(s, Point);\r\n\r\n  finally\r\n    FreeAndNil(df);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.MouseDown(Button: TTMSFNCMouseButton; Shift: TShiftState; X,\r\n  Y: Single);\r\nbegin\r\n  inherited;\r\n  HandleMouseDown(Button, Shift, X, Y);\r\n  if Assigned(OnInternalMouseDown) then\r\n    OnInternalMouseDown(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.MouseMove(Shift: TShiftState; X, Y: Single);\r\nbegin\r\n  inherited;\r\n  HandleMouseMove(Shift, X, Y);\r\n  if Assigned(OnInternalMouseMove) then\r\n    OnInternalMouseMove(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.MouseUp(Button: TTMSFNCMouseButton; Shift: TShiftState; X,\r\n  Y: Single);\r\nbegin\r\n  inherited;\r\n  HandleMouseUp(Button, Shift, X, Y);\r\n  if Assigned(OnInternalMouseUp) then\r\n    OnInternalMouseUp(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.MouseWheel(Shift: TShiftState; WheelDelta: Integer;\r\n  var Handled: Boolean);\r\nbegin\r\n  inherited;\r\n  HandleMouseWheel(Shift, WheelDelta, Handled);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.DoMouseEnter;\r\nbegin\r\n  inherited;\r\n  HandleMouseEnter;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.SetNewScene(AScene: IScene);\r\nbegin\r\n  inherited;\r\n  TTMSFNCStyles.SetActiveScene(AScene);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.DoMouseLeave;\r\nbegin\r\n  inherited;\r\n  HandleMouseLeave;\r\nend;\r\n\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomControlBase.DblClick;\r\nvar\r\n  pf: TPointF;\r\nbegin\r\n  inherited;\r\n  pf := ConvertScreenToClient(TTMSFNCUtils.GetMousePos);\r\n  HandleDblClick(pf.X, pf.Y);\r\n  if Assigned(OnInternalDblClick) then\r\n    OnInternalDblClick(Self);\r\nend;\r\n\r\n{$IFDEF CMNWEBLIB}\r\n\r\n{$IFDEF VCLLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 30}\r\nprocedure TTMSFNCCustomControlBase.ChangeScale(M, D: Integer; isDpiChange: Boolean);\r\n{$ELSE}\r\nprocedure TTMSFNCCustomControlBase.ChangeScale(M, D: Integer);\r\n{$IFEND}\r\nbegin\r\n  inherited;\r\n  CalcFactor;\r\n  ChangeDPIScale(M, D);\r\nend;\r\n{$HINTS ON}\r\n{$ENDIF}\r\n\r\n{$IFDEF LCLLIB}\r\nprocedure TTMSFNCCustomControlBase.UTF8KeyPress(var UTF8Key: TUTF8Char);\r\nbegin\r\n  inherited;\r\n  HandleUTF8KeyPress(UTF8Key);\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomControlBase.KeyPress(var Key: Char);\r\nbegin\r\n  inherited;\r\n  HandleKeyPress(Key);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.KeyDown(var Key: Word; Shift: TShiftState);\r\n{$IFNDEF WEBLIB}\r\nvar\r\n  Ctrl: TWinControl;\r\n{$ENDIF}\r\nbegin\r\n  inherited;\r\n  HandleDialogKey(Key, Shift);\r\n  HandleKeyDown(Key, Shift);\r\n  if Key = KEY_TAB then\r\n  begin\r\n    {$IFNDEF WEBLIB}\r\n    if ssShift in Shift then\r\n      Ctrl := TWinControlProtected(Self.Parent).FindNextControl(Self, False, True, True)\r\n    else\r\n      Ctrl := TWinControlProtected(Self.Parent).FindNextControl(Self, True, True, True);\r\n\r\n    if Assigned(Ctrl) and Ctrl.CanFocus then\r\n      Ctrl.SetFocus;\r\n    {$ENDIF}\r\n  end;\r\n\r\n  {$IFDEF LCLLIB}\r\n  {$IFDEF UNIX}\r\n  case Key of\r\n    KEY_UP, KEY_DOWN: Key := 0;\r\n  end;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.KeyUp(var Key: Word; Shift: TShiftState);\r\nbegin\r\n  inherited;\r\n  HandleKeyUp(Key, Shift);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.DragOver(Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);\r\nbegin\r\n  inherited;\r\n  HandleDragOver(Source, PointF(X, Y), Accept);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.DragDrop(Source: TObject; X, Y: Integer);\r\nbegin\r\n  inherited;\r\n  HandleDragDrop(Source, PointF(X, Y));\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.MouseDown(Button: TTMSFNCMouseButton; Shift: TShiftState; X,\r\n  Y: Integer);\r\nbegin\r\n  inherited;\r\n  HandleMouseDown(Button, Shift, X, Y);\r\n  if Assigned(OnInternalMouseDown) then\r\n    OnInternalMouseDown(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.MouseMove(Shift: TShiftState; X, Y: Integer);\r\nbegin\r\n  inherited;\r\n  HandleMouseMove(Shift, X, Y);\r\n  if Assigned(OnInternalMouseMove) then\r\n    OnInternalMouseMove(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.MouseUp(Button: TTMSFNCMouseButton; Shift: TShiftState; X,\r\n  Y: Integer);\r\nbegin\r\n  inherited;\r\n  HandleMouseUp(Button, Shift, X, Y);\r\n  if Assigned(OnInternalMouseUp) then\r\n    OnInternalMouseUp(Self);\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\n\r\n{ TWinControlProtected }\r\n\r\nprocedure TWinControlProtected.PaintCtrls(DC: HDC; First: TControl);\r\nbegin\r\n  PaintControls(DC, First);\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF VCLLIB}\r\nprocedure TTMSFNCCustomControlBase.CMHintShow(var Message: TMessage);\r\nvar\r\n  h: String;\r\nbegin\r\n  with TCMHintShow(Message).HintInfo^ do\r\n  begin\r\n    if HasHint then\r\n    begin\r\n      h := GetHintString;\r\n      HintStr := h;\r\n      ReshowTimeout := 0;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 22}\r\nprocedure TTMSFNCCustomControlBase.CMStyleChanged(var Message: TMessage);\r\nbegin\r\n  InitializeStyle;\r\nend;\r\n{$IFEND}\r\n{$HINTS ON}\r\n\r\nprocedure TTMSFNCCustomControlBase.CMDesignHitTest(var Message: TCMDesignHitTest);\r\nvar\r\n  P: TPoint;\r\nbegin\r\n  inherited;\r\n  GetCursorPos(P);\r\n  P := ScreenToClient(P);\r\n  if HandleDesignHitTest(P) then\r\n    Message.Result := 1;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.WMNCHitTest(var Message: TWMNCHitTest);\r\nbegin\r\n  if not HitTest then\r\n    Message.Result := HTTRANSPARENT\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.WMPaint(var Message: TWMPaint);\r\nvar\r\n  DC, MemDC: HDC;\r\n  MemBitmap, OldBitmap: HBITMAP;\r\n  PS: TPaintStruct;\r\n  dbl: boolean;\r\n  p: TPoint;\r\n  i: integer;\r\nbegin\r\n  if not Transparent then\r\n  begin\r\n    inherited;\r\n    Exit;\r\n  end;\r\n\r\n  if Assigned(Parent) then\r\n  begin\r\n    DC := Message.DC;\r\n    if DC <> 0 then\r\n    begin\r\n      dbl := Parent.DoubleBuffered;\r\n      if (Parent is TCustomForm) then\r\n        Parent.DoubleBuffered := false;\r\n      i := SaveDC(DC);\r\n      p := ClientOrigin;\r\n      Windows.ScreenToClient(Parent.Handle, p);\r\n      p.x := -p.x;\r\n      p.y := -p.y;\r\n      MoveWindowOrg(DC, p.x, p.y);\r\n      SendMessage(Parent.Handle, WM_ERASEBKGND, DC, 0);\r\n      SendMessage(Parent.Handle, WM_PAINT, DC, 0);\r\n      if (Parent is TWinControlProtected) then\r\n        (Parent as TWinControlProtected).PaintCtrls(DC, nil);\r\n      MoveWindowOrg(DC, -p.x, -p.y);\r\n      HandleTransparentDrawing(DC);\r\n      RestoreDC(DC, i);\r\n      Parent.DoubleBuffered := dbl;\r\n    end;\r\n  end;\r\n\r\n  if not DoubleBuffered or (Message.DC <> 0) then\r\n  begin\r\n    if not (csCustomPaint in ControlState) and (ControlCount = 0) then\r\n      inherited\r\n    else\r\n      PaintHandler(Message);\r\n  end\r\n  else\r\n  begin\r\n    DC := GetDC(0);\r\n    MemBitmap := CreateCompatibleBitmap(DC, ClientRect.Right, ClientRect.Bottom);\r\n    ReleaseDC(0, DC);\r\n    MemDC := CreateCompatibleDC(0);\r\n    OldBitmap := SelectObject(MemDC, MemBitmap);\r\n    try\r\n      DC := BeginPaint(Handle, PS);\r\n      Perform(WM_ERASEBKGND, MemDC, 0);\r\n      Message.DC := MemDC;\r\n      WMPaint(Message);\r\n      Message.DC := 0;\r\n      BitBlt(DC, 0, 0, ClientRect.Right, ClientRect.Bottom, MemDC, 0, 0, SRCCOPY);\r\n      EndPaint(Handle, PS);\r\n    finally\r\n      SelectObject(MemDC, OldBitmap);\r\n      DeleteDC(MemDC);\r\n      DeleteObject(MemBitmap);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.WMEraseBkGnd(var Message: TWMEraseBkGnd);\r\nbegin\r\n  if Transparent then\r\n    Message.Result := 1\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.WMDropFiles(var Message: TWMDropFiles);\r\nvar\r\n  LCount: Integer;\r\n  LFileName: array[0..MAX_PATH - 1] of Char;\r\n  I: Integer;\r\n  pt: TPoint;\r\n  df: TTMSFNCCustomControlDropFiles;\r\n  a: Boolean;\r\nbegin\r\n  if not AcceptDropFiles then\r\n    Exit;\r\n\r\n  LCount := DragQueryFile(Message.Drop, $FFFFFFFF, LFileName, MAX_PATH);\r\n  if LCount = 0 then\r\n    Exit;\r\n\r\n  df := TTMSFNCCustomControlDropFiles.Create;\r\n  try\r\n    for I := 0 to LCount - 1 do\r\n    begin\r\n      if DragQueryFile(Message.Drop, I, LFileName, MAX_PATH) <> 0 then\r\n        df.Files.Add(LFileName);\r\n    end;\r\n\r\n    DragQueryPoint(Message.Drop, pt);\r\n\r\n    a := True;\r\n    DragOver(df, pt.X, pt.Y, dsDragMove, a);\r\n    if a then\r\n      DragDrop(df, pt.X, pt.Y);\r\n\r\n  finally\r\n    FreeAndNil(df);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.WMGetDlgCode(var Message: TWMGetDlgCode);\r\nbegin\r\n  if TabStop then\r\n    Message.result := DLGC_WANTALLKEYS or DLGC_WANTARROWS\r\n  else\r\n    Message.result := DLGC_WANTALLKEYS or DLGC_WANTARROWS or DLGC_WANTTAB;\r\nend;\r\n\r\nfunction TTMSFNCCustomControlBase.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean;\r\nvar\r\n  b: Boolean;\r\nbegin\r\n  Result := inherited;\r\n  b := Result;\r\n  HandleMouseWheel(Shift, WheelDelta, b);\r\n  Result := b;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.CMFocusChanged(var Message: TCMFocusChanged);\r\nbegin\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.CMMouseLeave(var Message: TMessage);\r\nbegin\r\n  inherited;\r\n  HandleMouseLeave;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.CMMouseEnter(var Message: TMessage);\r\nbegin\r\n  inherited;\r\n  HandleMouseEnter;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF WEBLIB}\r\nprocedure TTMSFNCCustomControlBase.DoMouseEnter;\r\nbegin\r\n  inherited;\r\n  HandleMouseEnter;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.DoMouseLeave;\r\nbegin\r\n  inherited;\r\n  HandleMouseLeave;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.MouseWheel(Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean);\r\nbegin\r\n  inherited;\r\n  HandleMouseWheel(Shift, WheelDelta, Handled);\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF LCLLIB}\r\nprocedure TTMSFNCCustomControlBase.CMFocusChanged(var Message: TLMessage);\r\nbegin\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.CMMouseLeave(var Message: TLMNoParams);\r\nbegin\r\n  HandleMouseLeave;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.CMMouseEnter(var Message: TLMNoParams);\r\nbegin\r\n  HandleMouseEnter;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.CMHintShow(var Message: TLMessage);\r\nvar\r\n  h: String;\r\nbegin\r\n  with TCMHintShow(Message).HintInfo^ do\r\n  begin\r\n    if HasHint then\r\n    begin\r\n      h := GetHintString;\r\n      HintStr := h;\r\n      ReshowTimeout := 0;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.WMNCHitTest(var Message: TLMessage);\r\nbegin\r\n  if not HitTest then\r\n    Message.Result := HTTRANSPARENT\r\n  else\r\n    inherited;\r\nend;\r\n\r\n{$HINTS OFF}\r\n{$IF FPC_FULLVERSION < 30000}\r\nprocedure TTMSFNCCustomControlBase.WMLButtonDBLCLK(var Message: TLMLButtonDblClk);\r\nvar\r\n  MP: TPoint;\r\nbegin\r\n  if (csCaptureMouse in ControlStyle) and (mbLeft in CaptureMouseButtons) then\r\n  begin\r\n    MouseCapture := True;\r\n  end;\r\n  // first send a dblclick\r\n  if csClickEvents in ControlStyle then DblClick;\r\n  // then send the mousedown\r\n  if not (csNoStdEvents in ControlStyle) then\r\n  begin\r\n    MP := GetMousePosFromMessage(Message.Pos);\r\n    MouseDown(mbLeft, KeysToShiftState(Message.Keys) + [ssDouble], MP.X, MP.Y);\r\n  end;\r\nend;\r\n{$IFEND}\r\n{$HINTS ON}\r\n\r\n{$IFDEF MSWINDOWS}\r\nprocedure TTMSFNCCustomControlBase.WMPaint(var Message: TLMPaint);\r\nvar\r\n  DC, MemDC: HDC;\r\n  MemBitmap, OldBitmap: HBITMAP;\r\n  PS: TPaintStruct;\r\n  dbl: boolean;\r\n  p: TPoint;\r\n  i: integer;\r\nbegin\r\n  if not Transparent then\r\n  begin\r\n    inherited;\r\n    Exit;\r\n  end;\r\n\r\n  if Assigned(Parent) then\r\n  begin\r\n    DC := Message.DC;\r\n    if DC <> 0 then\r\n    begin\r\n      i := SaveDC(DC);\r\n      p := ClientOrigin;\r\n      Windows.ScreenToClient(Parent.Handle, p);\r\n      p.x := -p.x;\r\n      p.y := -p.y;\r\n      MoveWindowOrg(DC, p.x, p.y);\r\n      SendMessage(Parent.Handle, WM_ERASEBKGND, DC, 0);\r\n      SendMessage(Parent.Handle, WM_PAINT, DC, 0);\r\n      if (Parent is TWinControlProtected) then\r\n        (Parent as TWinControlProtected).PaintCtrls(DC, nil);\r\n      RestoreDC(DC, i);\r\n    end;\r\n  end;\r\n\r\n  if not DoubleBuffered or (Message.DC <> 0) then\r\n  begin\r\n    if not (csCustomPaint in ControlState) and (ControlCount = 0) then\r\n      inherited\r\n    else\r\n      PaintHandler(Message);\r\n  end\r\n  else\r\n  begin\r\n    DC := GetDC(0);\r\n    MemBitmap := CreateCompatibleBitmap(DC, ClientRect.Right, ClientRect.Bottom);\r\n    ReleaseDC(0, DC);\r\n    MemDC := CreateCompatibleDC(0);\r\n    OldBitmap := SelectObject(MemDC, MemBitmap);\r\n    try\r\n      DC := BeginPaint(Handle, PS);\r\n      Perform(WM_ERASEBKGND, MemDC, 0);\r\n      Message.DC := MemDC;\r\n      WMPaint(Message);\r\n      Message.DC := 0;\r\n      BitBlt(DC, 0, 0, ClientRect.Right, ClientRect.Bottom, MemDC, 0, 0, SRCCOPY);\r\n      EndPaint(Handle, PS);\r\n    finally\r\n      SelectObject(MemDC, OldBitmap);\r\n      DeleteDC(MemDC);\r\n      DeleteObject(MemBitmap);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.WMEraseBkGnd(var Message: TLMEraseBkGnd);\r\nbegin\r\n  if Transparent then\r\n    Message.Result := 1\r\n  else\r\n    inherited;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomControlBase.WMGetDlgCode(var Message: TLMNoParams);\r\nbegin\r\n  if TabStop then\r\n    Message.result := DLGC_WANTALLKEYS or DLGC_WANTARROWS\r\n  else\r\n    Message.result := DLGC_WANTALLKEYS or DLGC_WANTARROWS or DLGC_WANTTAB;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.WMMouseWheel(var Message: TLMMouseEvent);\r\nvar\r\n  b: Boolean;\r\nbegin\r\n  b := Message.Result > 0;\r\n  HandleMouseWheel(CreateShiftStateEx, Message.WheelDelta, b);\r\n  if b then\r\n    Message.Result := 1;\r\n  inherited;\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TTMSFNCCustomControlBase.CanFocus: Boolean;\r\nbegin\r\n  Result := inherited CanFocus;\r\n  Result := Result and AllowFocus;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.BeginUpdate;\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  inherited;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBase.EndUpdate;\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  inherited;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCCustomControlBase.GetLocalRect: TRectF;\r\nbegin\r\n  Result := RectF(0, 0, Width, Height);\r\nend;\r\n\r\nconstructor TTMSFNCCustomControlBase.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FHitTest := True;\r\n  FStored := True;\r\n  {$IFNDEF WEBLIB}\r\n  DoubleBuffered := True;\r\n  {$ENDIF}\r\n  ControlStyle := ControlStyle + [csAcceptsControls];\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF VCLLIB}\r\nprocedure TTMSFNCCustomControl.CreateWnd;\r\nbegin\r\n  inherited;\r\n  CreateCheckBoxBitmaps;\r\n  CreateRadioButtonBitmaps;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF WEBLIB}\r\nclass function TTMSFNCCustomControl.GetVersionNumber(AMaj, AMin, ARel, ABld: ShortInt): string;\r\nbegin\r\n  Result := '';\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomControl.DisableBackground;\r\nbegin\r\n  FFill.Kind := gfkNone;\r\n  FStroke.Kind := gskNone;\r\n  {$IFDEF CMNLIB}\r\n  Color := clBtnFace;\r\n  ParentColor := False;\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Color := clNone;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.EnableBackground;\r\nbegin\r\n  FFill.Kind := gfkSolid;\r\n  FStroke.Kind := gskSolid;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.DisableStroke;\r\nbegin\r\n  FStroke.Kind := gskNone;\r\nend;\r\n\r\n{$IFDEF LCLLIB}\r\nprocedure TTMSFNCCustomControl.DoSetBounds(ALeft, ATop, AWidth,\r\n  AHeight: Integer);\r\nbegin\r\n  inherited DoSetBounds(ALeft, ATop, AWidth, AHeight);\r\n  UpdateControlAfterResize;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF WEBLIB}\r\nprocedure TTMSFNCCustomControl.SetColor(AValue: TColor);\r\nbegin\r\n  inherited;\r\n  if Assigned(Fill) then\r\n    Fill.Color := AValue;\r\n  Invalidate;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomControl.SetColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FColor <> Value then\r\n  begin\r\n    FColor := Value;\r\n    Fill.Color := Color;\r\n    Invalidate;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomControl.Resize;\r\nbegin\r\n  inherited;\r\n  {$IFNDEF LCLLIB}\r\n  UpdateControlAfterResize;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.EnableStroke;\r\nbegin\r\n  FStroke.Kind := gskSolid;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.DisableFill;\r\nbegin\r\n  FFill.Kind := gfkNone;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.EnableFill;\r\nbegin\r\n  FFill.Kind := gfkSolid;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCCustomControl then\r\n  begin\r\n    FFill.Assign((Source as TTMSFNCCustomControl).Fill);\r\n    FStroke.Assign((Source as TTMSFNCCustomControl).Stroke);\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nconstructor TTMSFNCCustomControl.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  {$IFDEF FMXLIB}\r\n  FColor := gcWhite;\r\n  CanFocus := True;\r\n  ClipChildren := True;\r\n  DisableFocusEffect := True;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  {$IFNDEF WEBLIB}\r\n  ParentColor := False;\r\n  {$ENDIF}\r\n  Color := gcWhite;\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  LinkTouchEvents := True;\r\n  AllowTouch := False;\r\n  {$ENDIF}\r\n  TabStop := True;\r\n  FFill := TTMSFNCGraphicsFill.Create;\r\n  FStroke := TTMSFNCGraphicsStroke.Create;\r\n  FFill.OnChanged := @FillChanged;\r\n  FStroke.OnChanged := @StrokeChanged;\r\n\r\n  if not IsDesignerForm then\r\n    RegisterRuntimeClasses;\r\nend;\r\n\r\ndestructor TTMSFNCCustomControl.Destroy;\r\nbegin\r\n  if Assigned(FUndoManager) then\r\n  begin\r\n    FUndoManager.Free;\r\n    FUndoManager := nil;\r\n  end;\r\n\r\n  if Assigned(FDownBtn) then\r\n  begin\r\n    FDownBtn.Free;\r\n    FDownBtn := nil;\r\n  end;\r\n\r\n  if Assigned(FNormalBtn) then\r\n  begin\r\n    FNormalBtn.Free;\r\n    FNormalBtn := nil;\r\n  end;\r\n\r\n  if Assigned(FDownFocusBtn) then\r\n  begin\r\n    FDownFocusBtn.Free;\r\n    FDownFocusBtn := nil;\r\n  end;\r\n\r\n  if Assigned(FNormalFocusBtn) then\r\n  begin\r\n    FNormalFocusBtn.Free;\r\n    FNormalFocusBtn := nil;\r\n  end;\r\n\r\n  if Assigned(FNormalDisabledBtn) then\r\n  begin\r\n    FNormalDisabledBtn.Free;\r\n    FNormalDisabledBtn := nil;\r\n  end;\r\n\r\n  if Assigned(FCheckedChk) then\r\n  begin\r\n    FCheckedChk.Free;\r\n    FCheckedChk := nil;\r\n  end;\r\n\r\n  if Assigned(FCheckedFocusChk) then\r\n  begin\r\n    FCheckedFocusChk.Free;\r\n    FCheckedFocusChk := nil;\r\n  end;\r\n\r\n  if Assigned(FUnCheckedDisabledChk) then\r\n  begin\r\n    FUnCheckedDisabledChk.Free;\r\n    FUnCheckedDisabledChk := nil;\r\n  end;\r\n\r\n  if Assigned(FCheckedDisabledChk) then\r\n  begin\r\n    FCheckedDisabledChk.Free;\r\n    FCheckedDisabledChk := nil;\r\n  end;\r\n\r\n  if Assigned(FUnCheckedChk) then\r\n  begin\r\n    FUnCheckedChk.Free;\r\n    FUnCheckedChk := nil;\r\n  end;\r\n\r\n  if Assigned(FUnCheckedFocusChk) then\r\n  begin\r\n    FUnCheckedFocusChk.Free;\r\n    FUnCheckedFocusChk := nil;\r\n  end;\r\n\r\n  if Assigned(FCheckedRd) then\r\n  begin\r\n    FCheckedRd.Free;\r\n    FCheckedRd := nil;\r\n  end;\r\n\r\n  if Assigned(FCheckedFocusRd) then\r\n  begin\r\n    FCheckedFocusRd.Free;\r\n    FCheckedFocusRd := nil;\r\n  end;\r\n\r\n  if Assigned(FUnCheckedRd) then\r\n  begin\r\n    FUnCheckedRd.Free;\r\n    FUnCheckedRd := nil;\r\n  end;\r\n\r\n  if Assigned(FUnCheckedFocusRd) then\r\n  begin\r\n    FUnCheckedFocusRd.Free;\r\n    FUnCheckedFocusRd := nil;\r\n  end;\r\n\r\n  if Assigned(FUnCheckedDisabledRd) then\r\n  begin\r\n    FUnCheckedDisabledRd.Free;\r\n    FUnCheckedDisabledRd := nil;\r\n  end;\r\n\r\n  if Assigned(FCheckedDisabledRd) then\r\n  begin\r\n    FCheckedDisabledRd.Free;\r\n    FCheckedDisabledRd := nil;\r\n  end;\r\n\r\n  FFill.Free;\r\n  FStroke.Free;\r\n\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCCustomControl.GetUndoManager: TTMSFNCUndoManager;\r\nbegin\r\n  if not Assigned(FUndoManager) then\r\n    FUndoManager := TTMSFNCUndoManager.Create(Self);\r\n\r\n  Result := FUndoManager;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.SetFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.SetStroke(const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.DoCanSaveProperty(AObject: TObject; APropertyName: string; APropertyType: TTypeKind; var ACanSave: Boolean);\r\nbegin\r\n  if Assigned(OnCanSaveProperty) then\r\n    OnCanSaveProperty(Self, AObject, APropertyName, APropertyType, ACanSave);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.DoCanLoadProperty(AObject: TObject; APropertyName: string; APropertyType: TTypeKind; var ACanLoad: Boolean);\r\nbegin\r\n  if Assigned(OnCanLoadProperty) then\r\n    OnCanLoadProperty(Self, AObject, APropertyName, APropertyType, ACanLoad);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.DoBeforeDraw(AGraphics: TTMSFNCGraphics; ARect: TRectF; var ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDraw) then\r\n    OnBeforeDraw(Self, AGraphics, ARect, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.DoAfterDraw(AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nbegin\r\n  if Assigned(OnAfterDraw) then\r\n    OnAfterDraw(Self, AGraphics, ARect);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.DrawBackground(AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nbegin\r\n  AGraphics.Fill.Assign(Fill);\r\n  AGraphics.Fill.Color := Color;\r\n  AGraphics.Stroke.Assign(Stroke);\r\n  AGraphics.DrawRectangle(ARect);\r\nend;\r\n\r\n{$IFDEF DRAWTRIAL}\r\n{$IFDEF FREEWARE}\r\nprocedure TTMSFNCCustomControl.DrawTrial(AGraphics: TTMSFNCGraphics; {%H-}ARect: TRectF);\r\nvar\r\n  s: String;\r\nbegin\r\n  if not (Parent is TTMSFNCCustomControl) then\r\n  begin\r\n    InflateRectEx(ARect, -5, -5);\r\n    AGraphics.Font.Color := gcRed;\r\n    TTMSFNCUtils.SetFontSize(AGraphics.Font, 10);\r\n    s := ClassName + ' Trial ' + GetVersion;\r\n    AGraphics.DrawText(ARect, s, False, gtaTrailing, gtaTrailing);\r\n  end;\r\nend;\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomControl.DrawControl;\r\nvar\r\n  g, gbmp: TTMSFNCGraphics;\r\n  r: TRectF;\r\n  df: Boolean;\r\n  bmp: TTMSFNCBitmap;\r\n  {$IFDEF FMXLIB}\r\n  sc: Single;\r\n  {$ENDIF}\r\nbegin\r\n  if BufferedPainting then\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    sc := TTMSFNCUtils.GetDPIScale;\r\n    g := TTMSFNCGraphics.CreateBitmapCanvas(Round(Width * sc), Round(Height * sc), NativeCanvas);\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    g := TTMSFNCGraphics.CreateBitmapCanvas(Width, Height, NativeCanvas);\r\n    {$ENDIF}\r\n    g.BeginScene;\r\n  end\r\n  else\r\n    g := TTMSFNCGraphics.Create(Canvas, NativeCanvas);\r\n\r\n  {$IFNDEF LIMITEDGRAPHICSMODE}\r\n  g.OptimizedHTMLDrawing := OptimizedHTMLDrawing;\r\n  {$ENDIF}\r\n  g.Context.SetSize(Width, Height);\r\n  g.Context.SetAntiAliasing(AntiAliasing);\r\n  g.Context.SetShowAcceleratorChar(ShowAcceleratorChar);\r\n  g.Context.SetTextQuality(TextQuality);\r\n  try\r\n    r := RectF(0, 0, Width, Height);\r\n    df := True;\r\n    DoBeforeDraw(g, r, df);\r\n    if df then\r\n    begin\r\n      DrawBackground(g, r);\r\n      Draw(g, r);\r\n      DoAfterDraw(g, r);\r\n    end;\r\n    {$IFDEF DRAWTRIAL}\r\n    {$IFDEF FREEWARE}\r\n    DrawTrial(g, r);\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n\r\n    if BufferedPainting then\r\n      g.EndScene;\r\n\r\n    g.Context.Render;\r\n\r\n    if BufferedPainting then\r\n    begin\r\n      bmp := TTMSFNCBitmap.Create;\r\n      try\r\n        bmp.Assign(g.Bitmap);\r\n        gbmp := TTMSFNCGraphics.Create(Canvas, False);\r\n        try\r\n          gbmp.Context.SetSize(Width, Height);\r\n          gbmp.Context.SetAntiAliasing(AntiAliasing);\r\n          gbmp.Context.SetShowAcceleratorChar(ShowAcceleratorChar);\r\n          gbmp.Context.SetTextQuality(TextQuality);\r\n          gbmp.DrawBitmap(r, bmp);\r\n        finally\r\n          gbmp.Free;\r\n        end;\r\n      finally\r\n        bmp.Free;\r\n      end;\r\n    end;\r\n  finally\r\n    g.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.Paint;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  CalcFactor;\r\n  {$ENDIF}\r\n  inherited;\r\n  DrawControl;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.StrokeChanged(Sender: TObject);\r\nbegin\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.FillChanged(Sender: TObject);\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  FColor := Fill.Color;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  if (Fill.Kind <> gfkNone) and (Fill.Kind <> gfkTexture) and (Fill.Color <> gcNull) then\r\n    Color := Fill.Color\r\n  else\r\n    {$IFDEF WEBLIB}\r\n    Color := clNone;\r\n    {$ELSE}\r\n    Color := clBtnFace;\r\n    {$ENDIF}\r\n  {$ENDIF}\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.UpdateControlAfterResize;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.DoBitmapChanged(Sender: TObject);\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  if FBlockInvalidate then\r\n    Exit;\r\n  FBlockInvalidate := True;\r\n  Invalidate;\r\n  FBlockInvalidate := False;\r\n  {$ENDIF}\r\nend;\r\n\r\n{$IFDEF CMNLIB}\r\nfunction TTMSFNCCustomControl.GetTransparentColor: TTMSFNCGraphicsColor;\r\nvar\r\n  c: TTMSFNCGraphicsColor;\r\nbegin\r\n  Result := $FFFFFE;\r\n  if TTMSFNCStyles.GetStyleBackgroundFillColorTo(c) then\r\n    Result := c;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomControl.CreateCheckBoxBitmaps;\r\nvar\r\n{$IFDEF FMXLIB}\r\n  chk: TCheckBox;\r\n  f: TCommonCustomForm;\r\n  fo: IControl;\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\n  {$IFNDEF LCLWEBLIB}\r\n  rc: TRect;\r\n  dChecked: Cardinal;\r\n  hth: HTHEME;\r\n  ThemeStyle: DWord;\r\n  {$ENDIF}\r\n  {$IFDEF LCLWEBLIB}\r\n  g: TTMSFNCGraphics;\r\n  {$ENDIF}\r\n  {$IFDEF VCLSTYLESENABLED}\r\n  lDetails: TThemedElementDetails;\r\n  {$ENDIF}\r\n  bmp: TBitmap;\r\n  sc: Single;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF CMNWEBLIB}\r\n  sc := ResourceScaleFactor;\r\n  {$ENDIF}\r\n\r\n  if Assigned(FCheckedFocusChk) then\r\n  begin\r\n    FCheckedFocusChk.Free;\r\n    FCheckedFocusChk := nil;\r\n  end;\r\n\r\n  if Assigned(FUnCheckedChk) then\r\n  begin\r\n    FUnCheckedChk.Free;\r\n    FUnCheckedChk := nil;\r\n  end;\r\n\r\n  if Assigned(FCheckedChk) then\r\n  begin\r\n    FCheckedChk.Free;\r\n    FCheckedChk := nil;\r\n  end;\r\n\r\n  if Assigned(FUnCheckedFocusChk) then\r\n  begin\r\n    FUnCheckedFocusChk.Free;\r\n    FUnCheckedFocusChk := nil;\r\n  end;\r\n\r\n  if Assigned(FUnCheckedDisabledChk) then\r\n  begin\r\n    FUnCheckedDisabledChk.Free;\r\n    FUnCheckedDisabledChk := nil;\r\n  end;\r\n\r\n  if Assigned(FCheckedDisabledChk) then\r\n  begin\r\n    FCheckedDisabledChk.Free;\r\n    FCheckedDisabledChk := nil;\r\n  end;\r\n\r\n  {$IFDEF FMXLIB}\r\n  chk := TCheckBox.Create(Self);\r\n  chk.Width := chk.Height;\r\n  chk.Text := '';\r\n  chk.Parent := Self;\r\n  chk.IsChecked := false;\r\n  chk.NeedStyleLookup;\r\n  chk.ApplyStyleLookup;\r\n\r\n  {$IFDEF FMXMOBILE}\r\n  chk.Width := 25;\r\n  chk.Height := 25;\r\n  {$ENDIF}\r\n\r\n  TurnOffAnimation(chk);\r\n  FUnCheckedChk := chk.MakeScreenshot;\r\n  chk.IsChecked := true;\r\n  FCheckedChk := chk.MakeScreenshot;\r\n  chk.Enabled := False;\r\n  chk.IsChecked := False;\r\n  FUnCheckedDisabledChk := chk.MakeScreenshot;\r\n  chk.IsChecked := True;\r\n  FCheckedDisabledChk := chk.MakeScreenshot;\r\n  chk.Enabled := True;\r\n\r\n  f := TTMSFNCUtils.GetParentForm(Self);\r\n  fo := nil;\r\n  if Assigned(f) then\r\n    fo := f.Focused;\r\n\r\n  chk.SetFocus;\r\n  chk.IsChecked := false;\r\n  FUnCheckedFocusChk := chk.MakeScreenshot;\r\n  chk.IsChecked := true;\r\n  FCheckedFocusChk := chk.MakeScreenshot;\r\n  chk.Parent := nil;\r\n  chk.Free;\r\n\r\n  if Assigned(fo) then\r\n    fo.SetFocus;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF CMNWEBLIB}\r\n  bmp := TBitmap.Create;\r\n  {$IFDEF VCLLIB}\r\n  rc := Bounds(0, 0, Round(16 * sc), Round(16 * sc));\r\n  {$ENDIF}\r\n  {$IFDEF LCLWEBLIB}\r\n  g := TTMSFNCGraphics.Create(bmp.Canvas);\r\n  {$ENDIF}\r\n  try\r\n    {$IFNDEF WEBLIB}\r\n    bmp.PixelFormat := pf24bit;\r\n    bmp.TransparentMode := tmFixed;\r\n    bmp.Transparent := True;\r\n    bmp.TransparentColor := GetTransparentColor;\r\n    {$ENDIF}\r\n    bmp.SetSize(Round(16 * sc), Round(16 * sc));\r\n\r\n    FUnCheckedChk := TTMSFNCBitmap.Create;\r\n    FUnCheckedChk.OnChange := @DoBitmapChanged;\r\n\r\n    {$IFDEF VCLLIB}\r\n    bmp.Canvas.Brush.Color := GetTransparentColor;\r\n    bmp.Canvas.Brush.Style := bsSolid;\r\n    bmp.Canvas.FillRect(rc);\r\n\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    if TTMSFNCStyles.StyleServicesEnabled then\r\n    begin\r\n      lDetails := StyleServices.GetElementDetails(tbCheckBoxUncheckedNormal);\r\n      StyleServices.DrawElement(bmp.Canvas.Handle, lDetails, rc, nil, Round(96*sc));\r\n    end\r\n    else\r\n    {$ENDIF}\r\n    begin\r\n      DChecked := DFCS_BUTTONCHECK;\r\n      ThemeStyle := CBS_UNCHECKEDNORMAL;\r\n      if IsThemeActive and Self.HandleAllocated then\r\n      begin\r\n        if Assigned(OpenThemeDataForDpi) then\r\n          hth := OpenThemeDataForDpi(Self.Handle,'button', Round(96*sc))\r\n        else\r\n          hth := OpenThemeData(Self.Handle, 'button');\r\n        DrawThemeBackground(hth, bmp.Canvas.Handle, BP_CHECKBOX, ThemeStyle,@rc,nil);\r\n        CloseThemeData(hth);\r\n      end\r\n      else\r\n        DrawFrameControl(bmp.Canvas.Handle,rc,DFC_BUTTON, DChecked);\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF LCLWEBLIB}\r\n    g.Fill.Kind := gfkSolid;\r\n    g.Fill.Color := gcWhite;\r\n    g.Stroke.Kind := gskSolid;\r\n    g.Stroke.Color := gcWhite;\r\n    g.DrawRectangle(RectF(0, 0, bmp.Width, bmp.Height));\r\n    g.DrawCheckBox(RectF(0, 0, bmp.Width, bmp.Height), False, False, True);\r\n    {$ENDIF}\r\n\r\n    FUnCheckedChk.Assign(bmp);\r\n\r\n    FCheckedChk := TTMSFNCBitmap.Create;\r\n    FCheckedChk.OnChange := @DoBitmapChanged;\r\n\r\n    {$IFDEF VCLLIB}\r\n    bmp.Canvas.Brush.Color := GetTransparentColor;\r\n    bmp.Canvas.Brush.Style := bsSolid;\r\n    bmp.Canvas.FillRect(rc);\r\n\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    if TTMSFNCStyles.StyleServicesEnabled then\r\n    begin\r\n      lDetails := StyleServices.GetElementDetails(tbCheckBoxCheckedNormal);\r\n      StyleServices.DrawElement(bmp.Canvas.Handle, lDetails, rc, nil, Round(96*sc));\r\n    end\r\n    else\r\n    {$ENDIF}\r\n    begin\r\n      DChecked := DFCS_BUTTONCHECK or DFCS_CHECKED;\r\n      ThemeStyle := CBS_CHECKEDNORMAL;\r\n      if IsThemeActive and Self.HandleAllocated then\r\n      begin\r\n        if Assigned(OpenThemeDataForDpi) then\r\n          hth := OpenThemeDataForDpi(Self.Handle,'button', Round(96*sc))\r\n        else\r\n          hth := OpenThemeData(Self.Handle, 'button');\r\n        DrawThemeBackground(hth, bmp.Canvas.Handle, BP_CHECKBOX, ThemeStyle,@rc,nil);\r\n        CloseThemeData(hth);\r\n      end\r\n      else\r\n        DrawFrameControl(bmp.Canvas.Handle,rc,DFC_BUTTON, DChecked);\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF LCLWEBLIB}\r\n    g.Fill.Kind := gfkSolid;\r\n    g.Fill.Color := gcWhite;\r\n    g.Stroke.Kind := gskSolid;\r\n    g.Stroke.Color := gcWhite;\r\n    g.DrawRectangle(RectF(0, 0, bmp.Width, bmp.Height));\r\n    g.DrawCheckBox(RectF(0, 0, bmp.Width, bmp.Height), True, False, True);\r\n    {$ENDIF}\r\n\r\n    FCheckedChk.Assign(bmp);\r\n\r\n    FUnCheckedFocusChk := TTMSFNCBitmap.Create;\r\n    FUnCheckedFocusChk.OnChange := @DoBitmapChanged;\r\n\r\n    {$IFDEF VCLLIB}\r\n    bmp.Canvas.Brush.Color := GetTransparentColor;\r\n    bmp.Canvas.Brush.Style := bsSolid;\r\n    bmp.Canvas.FillRect(rc);\r\n\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    if TTMSFNCStyles.StyleServicesEnabled then\r\n    begin\r\n      lDetails := StyleServices.GetElementDetails(tbCheckBoxUncheckedHot);\r\n      StyleServices.DrawElement(bmp.Canvas.Handle, lDetails, rc, nil, Round(96*sc));\r\n    end\r\n    else\r\n    {$ENDIF}\r\n    begin\r\n      DChecked := DFCS_BUTTONCHECK or DFCS_HOT;\r\n      ThemeStyle := CBS_UNCHECKEDHOT;\r\n      if IsThemeActive and Self.HandleAllocated then\r\n      begin\r\n        if Assigned(OpenThemeDataForDpi) then\r\n          hth := OpenThemeDataForDpi(Self.Handle,'button', Round(96*sc))\r\n        else\r\n          hth := OpenThemeData(Self.Handle, 'button');\r\n        DrawThemeBackground(hth, bmp.Canvas.Handle, BP_CHECKBOX, ThemeStyle,@rc,nil);\r\n        CloseThemeData(hth);\r\n      end\r\n      else\r\n        DrawFrameControl(bmp.Canvas.Handle,rc,DFC_BUTTON, DChecked);\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF LCLWEBLIB}\r\n    g.Fill.Kind := gfkSolid;\r\n    g.Fill.Color := gcWhite;\r\n    g.Stroke.Kind := gskSolid;\r\n    g.Stroke.Color := gcWhite;\r\n    g.DrawRectangle(RectF(0, 0, bmp.Width, bmp.Height));\r\n    g.DrawCheckBox(RectF(0, 0, bmp.Width, bmp.Height), False, True, True);\r\n    {$ENDIF}\r\n\r\n    FUnCheckedFocusChk.Assign(bmp);\r\n\r\n    FCheckedFocusChk := TTMSFNCBitmap.Create;\r\n    FCheckedFocusChk.OnChange := @DoBitmapChanged;\r\n\r\n    {$IFDEF VCLLIB}\r\n    bmp.Canvas.Brush.Color := GetTransparentColor;\r\n    bmp.Canvas.Brush.Style := bsSolid;\r\n    bmp.Canvas.FillRect(rc);\r\n\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    if TTMSFNCStyles.StyleServicesEnabled then\r\n    begin\r\n      lDetails := StyleServices.GetElementDetails(tbCheckBoxCheckedHot);\r\n      StyleServices.DrawElement(bmp.Canvas.Handle, lDetails, rc, nil, Round(96*sc));\r\n    end\r\n    else\r\n    {$ENDIF}\r\n    begin\r\n      DChecked := DFCS_BUTTONCHECK or DFCS_CHECKED or DFCS_HOT;\r\n      ThemeStyle := CBS_CHECKEDHOT;\r\n      if IsThemeActive and Self.HandleAllocated then\r\n      begin\r\n        if Assigned(OpenThemeDataForDpi) then\r\n          hth := OpenThemeDataForDpi(Self.Handle,'button', Round(96*sc))\r\n        else\r\n          hth := OpenThemeData(Self.Handle, 'button');\r\n        DrawThemeBackground(hth, bmp.Canvas.Handle, BP_CHECKBOX, ThemeStyle,@rc,nil);\r\n        CloseThemeData(hth);\r\n      end\r\n      else\r\n        DrawFrameControl(bmp.Canvas.Handle,rc,DFC_BUTTON, DChecked);\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF LCLWEBLIB}\r\n    g.Fill.Kind := gfkSolid;\r\n    g.Fill.Color := gcWhite;\r\n    g.Stroke.Kind := gskSolid;\r\n    g.Stroke.Color := gcWhite;\r\n    g.DrawRectangle(RectF(0, 0, bmp.Width, bmp.Height));\r\n    g.DrawCheckBox(RectF(0, 0, bmp.Width, bmp.Height), True, True, True);\r\n    {$ENDIF}\r\n\r\n    FCheckedFocusChk.Assign(bmp);\r\n\r\n    FUnCheckedDisabledChk := TTMSFNCBitmap.Create;\r\n    FUnCheckedDisabledChk.OnChange := @DoBitmapChanged;\r\n\r\n    {$IFDEF VCLLIB}\r\n    bmp.Canvas.Brush.Color := GetTransparentColor;\r\n    bmp.Canvas.Brush.Style := bsSolid;\r\n    bmp.Canvas.FillRect(rc);\r\n\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    if TTMSFNCStyles.StyleServicesEnabled then\r\n    begin\r\n      lDetails := StyleServices.GetElementDetails(tbCheckBoxUncheckedDisabled);\r\n      StyleServices.DrawElement(bmp.Canvas.Handle, lDetails, rc, nil, Round(96*sc));\r\n    end\r\n    else\r\n    {$ENDIF}\r\n    begin\r\n      DChecked := DFCS_BUTTONCHECK or DFCS_INACTIVE;\r\n      ThemeStyle := CBS_UNCHECKEDDISABLED;\r\n      if IsThemeActive and Self.HandleAllocated then\r\n      begin\r\n        if Assigned(OpenThemeDataForDpi) then\r\n          hth := OpenThemeDataForDpi(Self.Handle,'button', Round(96*sc))\r\n        else\r\n          hth := OpenThemeData(Self.Handle, 'button');\r\n        DrawThemeBackground(hth, bmp.Canvas.Handle, BP_CHECKBOX, ThemeStyle,@rc,nil);\r\n        CloseThemeData(hth);\r\n      end\r\n      else\r\n        DrawFrameControl(bmp.Canvas.Handle,rc,DFC_BUTTON, DChecked);\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF LCLWEBLIB}\r\n    g.Fill.Kind := gfkSolid;\r\n    g.Fill.Color := gcWhite;\r\n    g.Stroke.Kind := gskSolid;\r\n    g.Stroke.Color := gcWhite;\r\n    g.DrawRectangle(RectF(0, 0, bmp.Width, bmp.Height));\r\n    g.DrawCheckBox(RectF(0, 0, bmp.Width, bmp.Height), False, False, False);\r\n    {$ENDIF}\r\n\r\n    FUnCheckedDisabledChk.Assign(bmp);\r\n\r\n    FCheckedDisabledChk := TTMSFNCBitmap.Create;\r\n    FCheckedDisabledChk.OnChange := @DoBitmapChanged;\r\n\r\n    {$IFDEF VCLLIB}\r\n    bmp.Canvas.Brush.Color := GetTransparentColor;\r\n    bmp.Canvas.Brush.Style := bsSolid;\r\n    bmp.Canvas.FillRect(rc);\r\n\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    if TTMSFNCStyles.StyleServicesEnabled then\r\n    begin\r\n      lDetails := StyleServices.GetElementDetails(tbCheckBoxCheckedDisabled);\r\n      StyleServices.DrawElement(bmp.Canvas.Handle, lDetails, rc, nil, Round(96*sc));\r\n    end\r\n    else\r\n    {$ENDIF}\r\n    begin\r\n      DChecked := DFCS_BUTTONCHECK or DFCS_CHECKED or DFCS_INACTIVE;\r\n      ThemeStyle := CBS_CHECKEDDISABLED;\r\n      if IsThemeActive and Self.HandleAllocated then\r\n      begin\r\n        if Assigned(OpenThemeDataForDpi) then\r\n          hth := OpenThemeDataForDpi(Self.Handle,'button', Round(96*sc))\r\n        else\r\n          hth := OpenThemeData(Self.Handle, 'button');\r\n        DrawThemeBackground(hth, bmp.Canvas.Handle, BP_CHECKBOX, ThemeStyle,@rc,nil);\r\n        CloseThemeData(hth);\r\n      end\r\n      else\r\n        DrawFrameControl(bmp.Canvas.Handle,rc,DFC_BUTTON, DChecked);\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF LCLWEBLIB}\r\n    g.Fill.Kind := gfkSolid;\r\n    g.Fill.Color := gcWhite;\r\n    g.Stroke.Kind := gskSolid;\r\n    g.Stroke.Color := gcWhite;\r\n    g.DrawRectangle(RectF(0, 0, bmp.Width, bmp.Height));\r\n    g.DrawCheckBox(RectF(0, 0, bmp.Width, bmp.Height), True, False, False);\r\n    {$ENDIF}\r\n\r\n    FCheckedDisabledChk.Assign(bmp);\r\n  finally\r\n    {$IFDEF LCLWEBLIB}\r\n    g.Free;\r\n    {$ENDIF}\r\n    bmp.Free;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.CreateButtonBitmaps(AWidth, AHeight: Single);\r\nvar\r\n{$IFDEF FMXLIB}\r\n  btn: TButton;\r\n  f: TCommonCustomForm;\r\n  fo: IControl;\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\n  {$IFNDEF LCLWEBLIB}\r\n  rc: TRect;\r\n  dChecked: Cardinal;\r\n  hth: HTHEME;\r\n  ThemeStyle: DWord;\r\n  {$ENDIF}\r\n  {$IFDEF LCLWEBLIB}\r\n  g: TTMSFNCGraphics;\r\n  {$ENDIF}\r\n  {$IFDEF VCLSTYLESENABLED}\r\n  lDetails: TThemedElementDetails;\r\n  {$ENDIF}\r\n  bmp: TBitmap;\r\n  sc: Single;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF CMNWEBLIB}\r\n  sc := ResourceScaleFactor;\r\n  {$ENDIF}\r\n\r\n  if Assigned(FDownBtn) then\r\n  begin\r\n    FDownBtn.Free;\r\n    FDownBtn := nil;\r\n  end;\r\n\r\n  if Assigned(FNormalBtn) then\r\n  begin\r\n    FNormalBtn.Free;\r\n    FNormalBtn := nil;\r\n  end;\r\n\r\n  if Assigned(FDownFocusBtn) then\r\n  begin\r\n    FDownFocusBtn.Free;\r\n    FDownFocusBtn := nil;\r\n  end;\r\n\r\n  if Assigned(FNormalFocusBtn) then\r\n  begin\r\n    FNormalFocusBtn.Free;\r\n    FNormalFocusBtn := nil;\r\n  end;\r\n\r\n  if Assigned(FNormalDisabledBtn) then\r\n  begin\r\n    FNormalDisabledBtn.Free;\r\n    FNormalDisabledBtn := nil;\r\n  end;\r\n\r\n  {$IFDEF FMXLIB}\r\n  btn := TButton.Create(Self);\r\n  btn.Width := AWidth;\r\n  btn.Height := AHeight;\r\n  btn.Text := '';\r\n  btn.Parent := Self;\r\n  btn.StaysPressed := True;\r\n  btn.IsPressed := False;\r\n  btn.NeedStyleLookup;\r\n  btn.ApplyStyleLookup;\r\n\r\n  TurnOffAnimation(btn);\r\n  FNormalBtn := btn.MakeScreenshot;\r\n  btn.IsPressed := true;\r\n  FDownBtn := btn.MakeScreenshot;\r\n  btn.Enabled := False;\r\n  btn.IsPressed := False;\r\n  FNormalDisabledBtn := btn.MakeScreenshot;\r\n  btn.Enabled := True;\r\n\r\n  f := TTMSFNCUtils.GetParentForm(Self);\r\n  fo := nil;\r\n  if Assigned(f) then\r\n    fo := f.Focused;\r\n\r\n  btn.SetFocus;\r\n  btn.IsPressed := false;\r\n  FNormalFocusBtn := btn.MakeScreenshot;\r\n  btn.IsPressed := true;\r\n  FDownFocusBtn := btn.MakeScreenshot;\r\n  btn.Parent := nil;\r\n  btn.Free;\r\n\r\n  if Assigned(fo) then\r\n    fo.SetFocus;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF CMNWEBLIB}\r\n  bmp := TBitmap.Create;\r\n  {$IFDEF VCLLIB}\r\n  rc := Bounds(0, 0, Round(AWidth * sc), Round(AHeight * sc));\r\n  {$ENDIF}\r\n  {$IFDEF LCLWEBLIB}\r\n  g := TTMSFNCGraphics.Create(bmp.Canvas);\r\n  {$ENDIF}\r\n  try\r\n    {$IFNDEF WEBLIB}\r\n    bmp.PixelFormat := pf24bit;\r\n    bmp.TransparentMode := tmFixed;\r\n    bmp.Transparent := True;\r\n    bmp.TransparentColor := GetTransparentColor;\r\n    {$ENDIF}\r\n    bmp.SetSize(Round(AWidth * sc), Round(AHeight * sc));\r\n\r\n    FNormalBtn := TTMSFNCBitmap.Create;\r\n    FNormalBtn.OnChange := @DoBitmapChanged;\r\n\r\n    {$IFDEF VCLLIB}\r\n    bmp.Canvas.Brush.Color := GetTransparentColor;\r\n    bmp.Canvas.Brush.Style := bsSolid;\r\n    bmp.Canvas.FillRect(rc);\r\n\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    if TTMSFNCStyles.StyleServicesEnabled then\r\n    begin\r\n      lDetails := StyleServices.GetElementDetails(ttbButtonNormal);\r\n      StyleServices.DrawElement(bmp.Canvas.Handle, lDetails, rc, nil, Round(96*sc));\r\n    end\r\n    else\r\n    {$ENDIF}\r\n    begin\r\n      DChecked := DFCS_BUTTONPUSH;\r\n      ThemeStyle := PBS_NORMAL;\r\n      if IsThemeActive and Self.HandleAllocated then\r\n      begin\r\n        if Assigned(OpenThemeDataForDpi) then\r\n          hth := OpenThemeDataForDpi(Self.Handle,'button', Round(96*sc))\r\n        else\r\n          hth := OpenThemeData(Self.Handle, 'button');\r\n        DrawThemeBackground(hth, bmp.Canvas.Handle, BP_PUSHBUTTON, ThemeStyle,@rc,nil);\r\n        CloseThemeData(hth);\r\n      end\r\n      else\r\n        DrawFrameControl(bmp.Canvas.Handle,rc, DFC_BUTTON, DChecked);\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF LCLWEBLIB}\r\n    g.Fill.Kind := gfkSolid;\r\n    g.Fill.Color := gcWhite;\r\n    g.Stroke.Kind := gskSolid;\r\n    g.Stroke.Color := gcWhite;\r\n    g.DrawRectangle(RectF(0, 0, bmp.Width, bmp.Height));\r\n    g.DrawButton(RectF(0, 0, bmp.Width, bmp.Height), False, False, True, AdaptToStyle);\r\n    {$ENDIF}\r\n\r\n    FNormalBtn.Assign(bmp);\r\n\r\n    FDownBtn := TTMSFNCBitmap.Create;\r\n    FDownBtn.OnChange := @DoBitmapChanged;\r\n\r\n    {$IFDEF VCLLIB}\r\n    bmp.Canvas.Brush.Color := GetTransparentColor;\r\n    bmp.Canvas.Brush.Style := bsSolid;\r\n    bmp.Canvas.FillRect(rc);\r\n\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    if TTMSFNCStyles.StyleServicesEnabled then\r\n    begin\r\n      lDetails := StyleServices.GetElementDetails(ttbButtonPressed);\r\n      StyleServices.DrawElement(bmp.Canvas.Handle, lDetails, rc, nil, Round(96*sc));\r\n    end\r\n    else\r\n    {$ENDIF}\r\n    begin\r\n      DChecked := DFCS_BUTTONPUSH or DFCS_PUSHED;\r\n      ThemeStyle := PBS_PRESSED;\r\n      if IsThemeActive and Self.HandleAllocated then\r\n      begin\r\n        if Assigned(OpenThemeDataForDpi) then\r\n          hth := OpenThemeDataForDpi(Self.Handle,'button', Round(96*sc))\r\n        else\r\n          hth := OpenThemeData(Self.Handle, 'button');\r\n        DrawThemeBackground(hth, bmp.Canvas.Handle, BP_PUSHBUTTON, ThemeStyle,@rc,nil);\r\n        CloseThemeData(hth);\r\n      end\r\n      else\r\n        DrawFrameControl(bmp.Canvas.Handle,rc, DFC_BUTTON, DChecked);\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF LCLWEBLIB}\r\n    g.Fill.Kind := gfkSolid;\r\n    g.Fill.Color := gcWhite;\r\n    g.Stroke.Kind := gskSolid;\r\n    g.Stroke.Color := gcWhite;\r\n    g.DrawRectangle(RectF(0, 0, bmp.Width, bmp.Height));\r\n    g.DrawButton(RectF(0, 0, bmp.Width, bmp.Height), True, False, True, AdaptToStyle);\r\n    {$ENDIF}\r\n\r\n    FDownBtn.Assign(bmp);\r\n\r\n    FNormalFocusBtn := TTMSFNCBitmap.Create;\r\n    FNormalFocusBtn.OnChange := @DoBitmapChanged;\r\n\r\n    {$IFDEF VCLLIB}\r\n    bmp.Canvas.Brush.Color := GetTransparentColor;\r\n    bmp.Canvas.Brush.Style := bsSolid;\r\n    bmp.Canvas.FillRect(rc);\r\n\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    if TTMSFNCStyles.StyleServicesEnabled then\r\n    begin\r\n      lDetails := StyleServices.GetElementDetails(ttbButtonHot);\r\n      StyleServices.DrawElement(bmp.Canvas.Handle, lDetails, rc, nil, Round(96*sc));\r\n    end\r\n    else\r\n    {$ENDIF}\r\n    begin\r\n      DChecked := DFCS_BUTTONPUSH or DFCS_HOT;\r\n      ThemeStyle := PBS_HOT;\r\n      if IsThemeActive and Self.HandleAllocated then\r\n      begin\r\n        if Assigned(OpenThemeDataForDpi) then\r\n          hth := OpenThemeDataForDpi(Self.Handle,'button', Round(96*sc))\r\n        else\r\n          hth := OpenThemeData(Self.Handle, 'button');\r\n        DrawThemeBackground(hth, bmp.Canvas.Handle, BP_PUSHBUTTON, ThemeStyle,@rc,nil);\r\n        CloseThemeData(hth);\r\n      end\r\n      else\r\n        DrawFrameControl(bmp.Canvas.Handle,rc, DFC_BUTTON, DChecked);\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF LCLWEBLIB}\r\n    g.Fill.Kind := gfkSolid;\r\n    g.Fill.Color := gcWhite;\r\n    g.Stroke.Kind := gskSolid;\r\n    g.Stroke.Color := gcWhite;\r\n    g.DrawRectangle(RectF(0, 0, bmp.Width, bmp.Height));\r\n    g.DrawButton(RectF(0, 0, bmp.Width, bmp.Height), True, True, True, AdaptToStyle);\r\n    {$ENDIF}\r\n\r\n    FNormalFocusBtn.Assign(bmp);\r\n\r\n    FDownFocusBtn := TTMSFNCBitmap.Create;\r\n    FDownFocusBtn.OnChange := @DoBitmapChanged;\r\n\r\n    {$IFDEF VCLLIB}\r\n    bmp.Canvas.Brush.Color := GetTransparentColor;\r\n    bmp.Canvas.Brush.Style := bsSolid;\r\n    bmp.Canvas.FillRect(rc);\r\n\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    if TTMSFNCStyles.StyleServicesEnabled then\r\n    begin\r\n      lDetails := StyleServices.GetElementDetails(ttbButtonPressed);\r\n      StyleServices.DrawElement(bmp.Canvas.Handle, lDetails, rc, nil, Round(96*sc));\r\n    end\r\n    else\r\n    {$ENDIF}\r\n    begin\r\n      DChecked := DFCS_BUTTONPUSH or DFCS_PUSHED or DFCS_HOT;\r\n      ThemeStyle := PBS_HOT or PBS_PRESSED;\r\n      if IsThemeActive and Self.HandleAllocated then\r\n      begin\r\n        if Assigned(OpenThemeDataForDpi) then\r\n          hth := OpenThemeDataForDpi(Self.Handle,'button', Round(96*sc))\r\n        else\r\n          hth := OpenThemeData(Self.Handle, 'button');\r\n        DrawThemeBackground(hth, bmp.Canvas.Handle, BP_PUSHBUTTON, ThemeStyle,@rc,nil);\r\n        CloseThemeData(hth);\r\n      end\r\n      else\r\n        DrawFrameControl(bmp.Canvas.Handle,rc, DFC_BUTTON, DChecked);\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF LCLWEBLIB}\r\n    g.Fill.Kind := gfkSolid;\r\n    g.Fill.Color := gcWhite;\r\n    g.Stroke.Kind := gskSolid;\r\n    g.Stroke.Color := gcWhite;\r\n    g.DrawRectangle(RectF(0, 0, bmp.Width, bmp.Height));\r\n    g.DrawButton(RectF(0, 0, bmp.Width, bmp.Height), False, True, True, AdaptToStyle);\r\n    {$ENDIF}\r\n\r\n    FDownFocusBtn.Assign(bmp);\r\n\r\n    FNormalDisabledBtn := TTMSFNCBitmap.Create;\r\n    FNormalDisabledBtn.OnChange := @DoBitmapChanged;\r\n\r\n    {$IFDEF VCLLIB}\r\n    bmp.Canvas.Brush.Color := GetTransparentColor;\r\n    bmp.Canvas.Brush.Style := bsSolid;\r\n    bmp.Canvas.FillRect(rc);\r\n\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    if TTMSFNCStyles.StyleServicesEnabled then\r\n    begin\r\n      lDetails := StyleServices.GetElementDetails(ttbButtonDisabled);\r\n      StyleServices.DrawElement(bmp.Canvas.Handle, lDetails, rc, nil, Round(96*sc));\r\n    end\r\n    else\r\n    {$ENDIF}\r\n    begin\r\n      DChecked := DFCS_BUTTONPUSH or DFCS_INACTIVE;\r\n      ThemeStyle := PBS_DISABLED;\r\n      if IsThemeActive and Self.HandleAllocated then\r\n      begin\r\n        if Assigned(OpenThemeDataForDpi) then\r\n          hth := OpenThemeDataForDpi(Self.Handle,'button', Round(96*sc))\r\n        else\r\n          hth := OpenThemeData(Self.Handle, 'button');\r\n        DrawThemeBackground(hth, bmp.Canvas.Handle, BP_PUSHBUTTON, ThemeStyle,@rc,nil);\r\n        CloseThemeData(hth);\r\n      end\r\n      else\r\n        DrawFrameControl(bmp.Canvas.Handle,rc, DFC_BUTTON, DChecked);\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF LCLWEBLIB}\r\n    g.Fill.Kind := gfkSolid;\r\n    g.Fill.Color := gcWhite;\r\n    g.Stroke.Kind := gskSolid;\r\n    g.Stroke.Color := gcWhite;\r\n    g.DrawRectangle(RectF(0, 0, bmp.Width, bmp.Height));\r\n    g.DrawButton(RectF(0, 0, bmp.Width, bmp.Height), False, False, False, AdaptToStyle);\r\n    {$ENDIF}\r\n\r\n    FNormalDisabledBtn.Assign(bmp);\r\n  finally\r\n    {$IFDEF LCLWEBLIB}\r\n    g.Free;\r\n    {$ENDIF}\r\n    bmp.Free;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.CreateRadioButtonBitmaps;\r\nvar\r\n{$IFDEF FMXLIB}\r\n  Rd: TRadioButton;\r\n  f: TCommonCustomForm;\r\n  fo: IControl;\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\n  {$IFNDEF LCLWEBLIB}\r\n  rc: TRect;\r\n  dChecked: Cardinal;\r\n  hth: HTHEME;\r\n  ThemeStyle: DWord;\r\n  {$ENDIF}\r\n  {$IFDEF LCLWEBLIB}\r\n  g: TTMSFNCGraphics;\r\n  {$ENDIF}\r\n  {$IFDEF VCLSTYLESENABLED}\r\n  lDetails: TThemedElementDetails;\r\n  {$ENDIF}\r\n  bmp: TBitmap;\r\n  sc: Single;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF CMNWEBLIB}\r\n  sc := ResourceScaleFactor;\r\n  {$ENDIF}\r\n\r\n  if Assigned(FCheckedFocusRd) then\r\n  begin\r\n    FCheckedFocusRd.Free;\r\n    FCheckedFocusRd := nil;\r\n  end;\r\n\r\n  if Assigned(FUnCheckedRd) then\r\n  begin\r\n    FUnCheckedRd.Free;\r\n    FUnCheckedRd := nil;\r\n  end;\r\n\r\n  if Assigned(FCheckedRd) then\r\n  begin\r\n    FCheckedRd.Free;\r\n    FCheckedRd := nil;\r\n  end;\r\n\r\n  if Assigned(FUnCheckedFocusRd) then\r\n  begin\r\n    FUnCheckedFocusRd.Free;\r\n    FUnCheckedFocusRd := nil;\r\n  end;\r\n\r\n  if Assigned(FUnCheckedDisabledRd) then\r\n  begin\r\n    FUnCheckedDisabledRd.Free;\r\n    FUnCheckedDisabledRd := nil;\r\n  end;\r\n\r\n  if Assigned(FCheckedDisabledRd) then\r\n  begin\r\n    FCheckedDisabledRd.Free;\r\n    FCheckedDisabledRd := nil;\r\n  end;\r\n\r\n  {$IFDEF FMXLIB}\r\n  Rd := TRadioButton.Create(Self);\r\n  Rd.Width := Rd.Height;\r\n  Rd.Text := '';\r\n  Rd.Parent := Self;\r\n  Rd.IsChecked := false;\r\n  Rd.NeedStyleLookup;\r\n  Rd.ApplyStyleLookup;\r\n\r\n  {$IFDEF FMXMOBILE}\r\n  Rd.Width := 25;\r\n  Rd.Height := 25;\r\n  {$ENDIF}\r\n\r\n  TurnOffAnimation(Rd);\r\n  FUnCheckedRd := Rd.MakeScreenshot;\r\n  Rd.IsChecked := true;\r\n  FCheckedRd := Rd.MakeScreenshot;\r\n  Rd.Enabled := False;\r\n  Rd.IsChecked := False;\r\n  FUnCheckedDisabledRd := Rd.MakeScreenshot;\r\n  Rd.IsChecked := true;\r\n  FCheckedDisabledRd := Rd.MakeScreenshot;\r\n  Rd.Enabled := True;\r\n\r\n  f := TTMSFNCUtils.GetParentForm(Self);\r\n  fo := nil;\r\n  if Assigned(f) then\r\n    fo := f.Focused;\r\n\r\n  Rd.SetFocus;\r\n  Rd.IsChecked := false;\r\n  FUnCheckedFocusRd := Rd.MakeScreenshot;\r\n  Rd.IsChecked := true;\r\n  FCheckedFocusRd := Rd.MakeScreenshot;\r\n  Rd.Parent := nil;\r\n  Rd.Free;\r\n\r\n  if Assigned(fo) then\r\n    fo.SetFocus;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF CMNWEBLIB}\r\n  bmp := TBitmap.Create;\r\n  {$IFDEF VCLLIB}\r\n  rc := Bounds(0, 0, Round(16 * sc), Round(16 * sc));\r\n  {$ENDIF}\r\n  {$IFDEF LCLWEBLIB}\r\n  g := TTMSFNCGraphics.Create(bmp.Canvas);\r\n  {$ENDIF}\r\n  try\r\n    {$IFNDEF WEBLIB}\r\n    bmp.PixelFormat := pf24bit;\r\n    bmp.TransparentMode := tmFixed;\r\n    bmp.Transparent := True;\r\n    bmp.TransparentColor := GetTransparentColor;\r\n    {$ENDIF}\r\n    bmp.SetSize(Round(16 * sc), Round(16 * sc));\r\n\r\n    FUnCheckedRd := TTMSFNCBitmap.Create;\r\n    FUnCheckedRd.OnChange := @DoBitmapChanged;\r\n\r\n    {$IFDEF VCLLIB}\r\n    bmp.Canvas.Brush.Color := GetTransparentColor;\r\n    bmp.Canvas.Brush.Style := bsSolid;\r\n    bmp.Canvas.FillRect(rc);\r\n\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    if TTMSFNCStyles.StyleServicesEnabled then\r\n    begin\r\n      lDetails := StyleServices.GetElementDetails(tbRadioButtonUncheckedNormal);\r\n      StyleServices.DrawElement(bmp.Canvas.Handle, lDetails, rc, nil, Round(96*sc));\r\n    end\r\n    else\r\n    {$ENDIF}\r\n    begin\r\n      DChecked := DFCS_BUTTONRADIO;\r\n      ThemeStyle := RBS_UNCHECKEDNORMAL;\r\n      if IsThemeActive and Self.HandleAllocated then\r\n      begin\r\n        if Assigned(OpenThemeDataForDpi) then\r\n          hth := OpenThemeDataForDpi(Self.Handle,'button', Round(96*sc))\r\n        else\r\n          hth := OpenThemeData(Self.Handle, 'button');\r\n        DrawThemeBackground(hth, bmp.Canvas.Handle, BP_RADIOBUTTON, ThemeStyle,@rc,nil);\r\n        CloseThemeData(hth);\r\n      end\r\n      else\r\n        DrawFrameControl(bmp.Canvas.Handle,rc,DFC_BUTTON, DChecked);\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF LCLWEBLIB}\r\n    g.Fill.Kind := gfkSolid;\r\n    g.Fill.Color := gcWhite;\r\n    g.Stroke.Kind := gskSolid;\r\n    g.Stroke.Color := gcWhite;\r\n    g.DrawRectangle(RectF(0, 0, bmp.Width, bmp.Height));\r\n    g.DrawRadioButton(RectF(0, 0, bmp.Width, bmp.Height), False, False, True);\r\n    {$ENDIF}\r\n\r\n    FUnCheckedRd.Assign(bmp);\r\n\r\n    FCheckedRd := TTMSFNCBitmap.Create;\r\n    FCheckedRd.OnChange := @DoBitmapChanged;\r\n\r\n    {$IFDEF VCLLIB}\r\n    bmp.Canvas.Brush.Color := GetTransparentColor;\r\n    bmp.Canvas.Brush.Style := bsSolid;\r\n    bmp.Canvas.FillRect(rc);\r\n\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    if TTMSFNCStyles.StyleServicesEnabled then\r\n    begin\r\n      lDetails := StyleServices.GetElementDetails(tbRadioButtonCheckedNormal);\r\n      StyleServices.DrawElement(bmp.Canvas.Handle, lDetails, rc, nil, Round(96*sc));\r\n    end\r\n    else\r\n    {$ENDIF}\r\n    begin\r\n      DChecked := DFCS_BUTTONRADIO or DFCS_CHECKED;\r\n      ThemeStyle := RBS_CHECKEDNORMAL;\r\n      if IsThemeActive and Self.HandleAllocated then\r\n      begin\r\n        if Assigned(OpenThemeDataForDpi) then\r\n          hth := OpenThemeDataForDpi(Self.Handle,'button', Round(96*sc))\r\n        else\r\n          hth := OpenThemeData(Self.Handle, 'button');\r\n        DrawThemeBackground(hth, bmp.Canvas.Handle, BP_RADIOBUTTON, ThemeStyle,@rc,nil);\r\n        CloseThemeData(hth);\r\n      end\r\n      else\r\n        DrawFrameControl(bmp.Canvas.Handle,rc,DFC_BUTTON, DChecked);\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF LCLWEBLIB}\r\n    g.Fill.Kind := gfkSolid;\r\n    g.Fill.Color := gcWhite;\r\n    g.Stroke.Kind := gskSolid;\r\n    g.Stroke.Color := gcWhite;\r\n    g.DrawRectangle(RectF(0, 0, bmp.Width, bmp.Height));\r\n    g.DrawRadioButton(RectF(0, 0, bmp.Width, bmp.Height), True, False, True);\r\n    {$ENDIF}\r\n\r\n    FCheckedRd.Assign(bmp);\r\n\r\n    FUnCheckedFocusRd := TTMSFNCBitmap.Create;\r\n    FUnCheckedFocusRd.OnChange := @DoBitmapChanged;\r\n\r\n    {$IFDEF VCLLIB}\r\n    bmp.Canvas.Brush.Color := GetTransparentColor;\r\n    bmp.Canvas.Brush.Style := bsSolid;\r\n    bmp.Canvas.FillRect(rc);\r\n\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    if TTMSFNCStyles.StyleServicesEnabled then\r\n    begin\r\n      lDetails := StyleServices.GetElementDetails(tbRadioButtonUncheckedHot);\r\n      StyleServices.DrawElement(bmp.Canvas.Handle, lDetails, rc, nil, Round(96*sc));\r\n    end\r\n    else\r\n    {$ENDIF}\r\n    begin\r\n      DChecked := DFCS_BUTTONRADIO or DFCS_HOT;\r\n      ThemeStyle := RBS_UNCHECKEDHOT;\r\n      if IsThemeActive and Self.HandleAllocated then\r\n      begin\r\n        if Assigned(OpenThemeDataForDpi) then\r\n          hth := OpenThemeDataForDpi(Self.Handle,'button', Round(96*sc))\r\n        else\r\n          hth := OpenThemeData(Self.Handle, 'button');\r\n        DrawThemeBackground(hth, bmp.Canvas.Handle, BP_RADIOBUTTON, ThemeStyle,@rc,nil);\r\n        CloseThemeData(hth);\r\n      end\r\n      else\r\n        DrawFrameControl(bmp.Canvas.Handle,rc,DFC_BUTTON, DChecked);\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF LCLWEBLIB}\r\n    g.Fill.Kind := gfkSolid;\r\n    g.Fill.Color := gcWhite;\r\n    g.Stroke.Kind := gskSolid;\r\n    g.Stroke.Color := gcWhite;\r\n    g.DrawRectangle(RectF(0, 0, bmp.Width, bmp.Height));\r\n    g.DrawRadioButton(RectF(0, 0, bmp.Width, bmp.Height), False, True, True);\r\n    {$ENDIF}\r\n\r\n    FUnCheckedFocusRd.Assign(bmp);\r\n\r\n    FCheckedFocusRd := TTMSFNCBitmap.Create;\r\n    FCheckedFocusRd.OnChange := @DoBitmapChanged;\r\n\r\n    {$IFDEF VCLLIB}\r\n    bmp.Canvas.Brush.Color := GetTransparentColor;\r\n    bmp.Canvas.Brush.Style := bsSolid;\r\n    bmp.Canvas.FillRect(rc);\r\n\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    if TTMSFNCStyles.StyleServicesEnabled then\r\n    begin\r\n      lDetails := StyleServices.GetElementDetails(tbRadioButtonCheckedHot);\r\n      StyleServices.DrawElement(bmp.Canvas.Handle, lDetails, rc, nil, Round(96*sc));\r\n    end\r\n    else\r\n    {$ENDIF}\r\n    begin\r\n      DChecked := DFCS_BUTTONRADIO or DFCS_CHECKED or DFCS_HOT;\r\n      ThemeStyle := RBS_CHECKEDHOT;\r\n      if IsThemeActive and Self.HandleAllocated then\r\n      begin\r\n        if Assigned(OpenThemeDataForDpi) then\r\n          hth := OpenThemeDataForDpi(Self.Handle,'button', Round(96*sc))\r\n        else\r\n          hth := OpenThemeData(Self.Handle, 'button');\r\n        DrawThemeBackground(hth, bmp.Canvas.Handle, BP_RADIOBUTTON, ThemeStyle,@rc,nil);\r\n        CloseThemeData(hth);\r\n      end\r\n      else\r\n        DrawFrameControl(bmp.Canvas.Handle,rc,DFC_BUTTON, DChecked);\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF LCLWEBLIB}\r\n    g.Fill.Kind := gfkSolid;\r\n    g.Fill.Color := gcWhite;\r\n    g.Stroke.Kind := gskSolid;\r\n    g.Stroke.Color := gcWhite;\r\n    g.DrawRectangle(RectF(0, 0, bmp.Width, bmp.Height));\r\n    g.DrawRadioButton(RectF(0, 0, bmp.Width, bmp.Height), True, True, True);\r\n    {$ENDIF}\r\n\r\n    FCheckedFocusRd.Assign(bmp);\r\n\r\n    FUnCheckedDisabledRd := TTMSFNCBitmap.Create;\r\n    FUnCheckedDisabledRd.OnChange := @DoBitmapChanged;\r\n\r\n    {$IFDEF VCLLIB}\r\n    bmp.Canvas.Brush.Color := GetTransparentColor;\r\n    bmp.Canvas.Brush.Style := bsSolid;\r\n    bmp.Canvas.FillRect(rc);\r\n\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    if TTMSFNCStyles.StyleServicesEnabled then\r\n    begin\r\n      lDetails := StyleServices.GetElementDetails(tbRadioButtonUncheckedDisabled);\r\n      StyleServices.DrawElement(bmp.Canvas.Handle, lDetails, rc, nil, Round(96*sc));\r\n    end\r\n    else\r\n    {$ENDIF}\r\n    begin\r\n      DChecked := DFCS_BUTTONRADIO or DFCS_INACTIVE;\r\n      ThemeStyle := RBS_UNCHECKEDDISABLED;\r\n      if IsThemeActive and Self.HandleAllocated then\r\n      begin\r\n        if Assigned(OpenThemeDataForDpi) then\r\n          hth := OpenThemeDataForDpi(Self.Handle,'button', Round(96*sc))\r\n        else\r\n          hth := OpenThemeData(Self.Handle, 'button');\r\n        DrawThemeBackground(hth, bmp.Canvas.Handle, BP_RADIOBUTTON, ThemeStyle,@rc,nil);\r\n        CloseThemeData(hth);\r\n      end\r\n      else\r\n        DrawFrameControl(bmp.Canvas.Handle,rc,DFC_BUTTON, DChecked);\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF LCLWEBLIB}\r\n    g.Fill.Kind := gfkSolid;\r\n    g.Fill.Color := gcWhite;\r\n    g.Stroke.Kind := gskSolid;\r\n    g.Stroke.Color := gcWhite;\r\n    g.DrawRectangle(RectF(0, 0, bmp.Width, bmp.Height));\r\n    g.DrawRadioButton(RectF(0, 0, bmp.Width, bmp.Height), False, False, False);\r\n    {$ENDIF}\r\n\r\n    FUnCheckedDisabledRd.Assign(bmp);\r\n\r\n    FCheckedDisabledRd := TTMSFNCBitmap.Create;\r\n    FCheckedDisabledRd.OnChange := @DoBitmapChanged;\r\n\r\n    {$IFDEF VCLLIB}\r\n    bmp.Canvas.Brush.Color := GetTransparentColor;\r\n    bmp.Canvas.Brush.Style := bsSolid;\r\n    bmp.Canvas.FillRect(rc);\r\n\r\n    {$IFDEF VCLSTYLESENABLED}\r\n    if TTMSFNCStyles.StyleServicesEnabled then\r\n    begin\r\n      lDetails := StyleServices.GetElementDetails(tbRadioButtonCheckedDisabled);\r\n      StyleServices.DrawElement(bmp.Canvas.Handle, lDetails, rc, nil, Round(96*sc));\r\n    end\r\n    else\r\n    {$ENDIF}\r\n    begin\r\n      DChecked := DFCS_BUTTONRADIO or DFCS_CHECKED or DFCS_INACTIVE;\r\n      ThemeStyle := RBS_CHECKEDDISABLED;\r\n      if IsThemeActive and Self.HandleAllocated then\r\n      begin\r\n        if Assigned(OpenThemeDataForDpi) then\r\n          hth := OpenThemeDataForDpi(Self.Handle,'button', Round(96*sc))\r\n        else\r\n          hth := OpenThemeData(Self.Handle, 'button');\r\n        DrawThemeBackground(hth, bmp.Canvas.Handle, BP_RADIOBUTTON, ThemeStyle,@rc,nil);\r\n        CloseThemeData(hth);\r\n      end\r\n      else\r\n        DrawFrameControl(bmp.Canvas.Handle,rc,DFC_BUTTON, DChecked);\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF LCLWEBLIB}\r\n    g.Fill.Kind := gfkSolid;\r\n    g.Fill.Color := gcWhite;\r\n    g.Stroke.Kind := gskSolid;\r\n    g.Stroke.Color := gcWhite;\r\n    g.DrawRectangle(RectF(0, 0, bmp.Width, bmp.Height));\r\n    g.DrawRadioButton(RectF(0, 0, bmp.Width, bmp.Height), True, False, False);\r\n    {$ENDIF}\r\n\r\n    FCheckedDisabledRd.Assign(bmp);\r\n  finally\r\n    {$IFDEF LCLWEBLIB}\r\n    g.Free;\r\n    {$ENDIF}\r\n    bmp.Free;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCCustomControl.GetButtonBitmap(AWidth, AHeight: Single; ADown: Boolean = False; AFocused: Boolean = False; AEnabled: Boolean = True): TTMSFNCBitmapHelperClass;\r\nbegin\r\n  CreateButtonBitmaps(AWidth, AHeight);\r\n\r\n  if ADown then\r\n  begin\r\n    if AEnabled then\r\n    begin\r\n      if AFocused then\r\n        Result := FDownFocusBtn\r\n      else\r\n        Result := FDownBtn;\r\n    end\r\n    else\r\n      Result := FNormalDisabledBtn;\r\n  end\r\n  else\r\n  begin\r\n    if AEnabled then\r\n    begin\r\n      if AFocused then\r\n        Result := FNormalFocusBtn\r\n      else\r\n        Result := FNormalBtn;\r\n    end\r\n    else\r\n      Result := FNormalDisabledBtn;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomControl.GetCheckBoxBitmap(AChecked: Boolean; AFocused: Boolean; AEnabled: Boolean): TTMSFNCBitmapHelperClass;\r\nbegin\r\n  if (not Assigned(FCheckedChk) or not Assigned(FCheckedFocusChk) or not Assigned(FUnCheckedChk)\r\n    or not Assigned(FUnCheckedFocusChk) or not Assigned(FCheckedDisabledChk) or not Assigned(FUnCheckedDisabledChk)) then\r\n    CreateCheckBoxBitmaps;\r\n\r\n  if AChecked then\r\n  begin\r\n    if AEnabled then\r\n    begin\r\n      if AFocused then\r\n        Result := FCheckedFocusChk\r\n      else\r\n        Result := FCheckedChk;\r\n    end\r\n    else\r\n      Result := FCheckedDisabledChk;\r\n  end\r\n  else\r\n  begin\r\n    if AEnabled then\r\n    begin\r\n      if AFocused then\r\n        Result := FUnCheckedFocusChk\r\n      else\r\n        Result := FUnCheckedChk;\r\n    end\r\n    else\r\n      Result := FUnCheckedDisabledChk;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomControl.GetRadioButtonBitmap(AChecked: Boolean; AFocused: Boolean; AEnabled: Boolean): TTMSFNCBitmapHelperClass;\r\nbegin\r\n  if (not Assigned(FCheckedRd) or not Assigned(FCheckedFocusRd) or not Assigned(FUnCheckedRd)\r\n    or not Assigned(FUnCheckedFocusRd) or not Assigned(FCheckedDisabledRd) or not Assigned(FUnCheckedDisabledRd)) then\r\n    CreateRadioButtonBitmaps;\r\n\r\n  if AChecked then\r\n  begin\r\n    if AEnabled then\r\n    begin\r\n      if AFocused then\r\n        Result := FCheckedFocusRd\r\n      else\r\n        Result := FCheckedRd;\r\n    end\r\n    else\r\n      Result := FCheckedDisabledRd;\r\n  end\r\n  else\r\n  begin\r\n    if AEnabled then\r\n    begin\r\n      if AFocused then\r\n        Result := FUnCheckedFocusRd\r\n      else\r\n        Result := FUnCheckedRd;\r\n    end\r\n    else\r\n      Result := FUnCheckedDisabledRd;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomControl.IsDesignTime: Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(Owner) then\r\n    Result := IsDesigning and not ((csReading in Owner.ComponentState) or (csLoading in Owner.ComponentState));\r\nend;\r\n\r\nfunction TTMSFNCCustomControl.IsReading: Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(Owner) then\r\n    Result := (csReading in Owner.ComponentState);\r\nend;\r\n\r\nfunction TTMSFNCCustomControl.IsDesigning: Boolean;\r\nbegin\r\n  Result := ((csDesigning in ComponentState) {$IFDEF WEBLIB}or Assigned(VSIDE){$ENDIF});\r\nend;\r\n\r\nfunction TTMSFNCCustomControl.IsDesignerForm: Boolean;\r\nvar\r\n  frm: TCustomForm;\r\nbegin\r\n  frm := TTMSFNCUtils.GetOwnerForm(Self);\r\n  Result := IsDesigning;\r\n  if Assigned(frm) then\r\n    Result := Result or (frm is TTMSFNCCustomDesignerForm);\r\nend;\r\n\r\nfunction TTMSFNCCustomControl.IsDestroying: Boolean;\r\nbegin\r\n  Result := (csDestroying in ComponentState);\r\nend;\r\n\r\nfunction TTMSFNCCustomControl.IsLoading: Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(Owner) then\r\n    Result := (csLoading in Owner.ComponentState)\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.ResetToDefaultStyle;\r\nbegin\r\n  inherited;\r\n  Fill.Color := gcWhite;\r\n  Stroke.Color := gcSilver;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.ChangeDPIScale({%H-}M, {%H-}D: Integer);\r\nbegin\r\n  inherited;\r\n  if not IsLoading then\r\n  begin\r\n    CreateCheckBoxBitmaps;\r\n    CreateRadioButtonBitmaps;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.RegisterRuntimeClasses;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.ApplyExportScale(AScale: Single);\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.ResetExportScale;\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.SetExportRect(ARect: TRectF);\r\nbegin\r\n  FExportRect := ARect;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.&Export({%H-}AGraphics: TTMSFNCGraphics; {%H-}ARect: TRectF);\r\nbegin\r\n  FExporting := True;\r\n  SetExportRect(ARect);\r\n  BeforeExport;\r\n  Draw(AGraphics, ARect);\r\n  FExporting := False;\r\n  AfterExport;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.ApplyStyle;\r\nvar\r\n  c: TTMSFNCGraphicsColor;\r\nbegin\r\n  inherited;\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleBackgroundFillColor(c) then\r\n    Fill.Color := c;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleLineFillColor(c) then\r\n    Stroke.Color := c;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.DestroyGraphicElements;\r\nbegin\r\n  if Assigned(FDownBtn) then\r\n  begin\r\n    FDownBtn.Free;\r\n    FDownBtn := nil;\r\n  end;\r\n\r\n  if Assigned(FNormalBtn) then\r\n  begin\r\n    FNormalBtn.Free;\r\n    FNormalBtn := nil;\r\n  end;\r\n\r\n  if Assigned(FDownFocusBtn) then\r\n  begin\r\n    FDownFocusBtn.Free;\r\n    FDownFocusBtn := nil;\r\n  end;\r\n\r\n  if Assigned(FNormalFocusBtn) then\r\n  begin\r\n    FNormalFocusBtn.Free;\r\n    FNormalFocusBtn := nil;\r\n  end;\r\n\r\n  if Assigned(FNormalDisabledBtn) then\r\n  begin\r\n    FNormalDisabledBtn.Free;\r\n    FNormalDisabledBtn := nil;\r\n  end;\r\n\r\n  if Assigned(FCheckedChk) then\r\n  begin\r\n    FCheckedChk.Free;\r\n    FCheckedChk := nil;\r\n  end;\r\n\r\n  if Assigned(FCheckedFocusChk) then\r\n  begin\r\n    FCheckedFocusChk.Free;\r\n    FCheckedFocusChk := nil;\r\n  end;\r\n\r\n  if Assigned(FUnCheckedDisabledChk) then\r\n  begin\r\n    FUnCheckedDisabledChk.Free;\r\n    FUnCheckedDisabledChk := nil;\r\n  end;\r\n\r\n  if Assigned(FCheckedDisabledChk) then\r\n  begin\r\n    FCheckedDisabledChk.Free;\r\n    FCheckedDisabledChk := nil;\r\n  end;\r\n\r\n  if Assigned(FUnCheckedChk) then\r\n  begin\r\n    FUnCheckedChk.Free;\r\n    FUnCheckedChk := nil;\r\n  end;\r\n\r\n  if Assigned(FUnCheckedFocusChk) then\r\n  begin\r\n    FUnCheckedFocusChk.Free;\r\n    FUnCheckedFocusChk := nil;\r\n  end;\r\n\r\n  if Assigned(FCheckedRd) then\r\n  begin\r\n    FCheckedRd.Free;\r\n    FCheckedRd := nil;\r\n  end;\r\n\r\n  if Assigned(FCheckedFocusRd) then\r\n  begin\r\n    FCheckedFocusRd.Free;\r\n    FCheckedFocusRd := nil;\r\n  end;\r\n\r\n  if Assigned(FUnCheckedRd) then\r\n  begin\r\n    FUnCheckedRd.Free;\r\n    FUnCheckedRd := nil;\r\n  end;\r\n\r\n  if Assigned(FUnCheckedFocusRd) then\r\n  begin\r\n    FUnCheckedFocusRd.Free;\r\n    FUnCheckedFocusRd := nil;\r\n  end;\r\n\r\n  if Assigned(FUnCheckedDisabledRd) then\r\n  begin\r\n    FUnCheckedDisabledRd.Free;\r\n    FUnCheckedDisabledRd := nil;\r\n  end;\r\n\r\n  if Assigned(FCheckedDisabledRd) then\r\n  begin\r\n    FCheckedDisabledRd.Free;\r\n    FCheckedDisabledRd := nil;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.AfterExport;\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.BeforeExport;\r\nbegin\r\nend;\r\n\r\nfunction TTMSFNCCustomControl.IsExporting: Boolean;\r\nbegin\r\n  Result := FExporting;\r\nend;\r\n\r\nfunction TTMSFNCCustomControl.GetLocalRect: TRectF;\r\nbegin\r\n  if IsExporting then\r\n    Result := FExportRect\r\n  else\r\n    Result := inherited;\r\nend;\r\n\r\nfunction TTMSFNCCustomControl.GetControlRect: TRectF;\r\nbegin\r\n  if IsExporting then\r\n    Result := FExportRect\r\n  else\r\n    Result := RectF(0, 0, Width, Height);\r\nend;\r\n\r\nfunction TTMSFNCCustomControl.GetContentRect: TRectF;\r\nbegin\r\n  Result := GetControlRect;\r\nend;\r\n\r\nfunction TTMSFNCCustomControl.GetVersion: String;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCCustomControl.IsAppearanceProperty(AObject: TObject; APropertyName: string; APropertyType: TTypeKind): Boolean;\r\nvar\r\n  Prop: TTMSFNCPropertyInfo;\r\n  pName, cn: string;\r\nbegin\r\n  Result := False;\r\n  Prop := GetPropInfo(AObject, APropertyName);\r\n  if Assigned(Prop) then\r\n  begin\r\n    pName := TTMSFNCPersistence.GetPropInfoName(Prop);\r\n\r\n    cn := TTMSFNCPersistence.GetPropInfoTypeName(Prop);\r\n    Result := (cn = 'TAlphaColor') or (cn = 'TColor') or (cn = 'TGraphicsColor') or\r\n      (cn = 'TTMSFNCGraphicsFill') or (cn = 'TTMSFNCGraphicsStroke') or (Pos('Appearance', pName) > 0);\r\n\r\n    Result := Result or (APropertyName = 'Fill') or (APropertyName = 'Stroke') or (APropertyName = 'Font');\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomControl.CanSaveProperty(AObject: TObject; APropertyName: string; APropertyType: TTypeKind): Boolean;\r\nbegin\r\n  if (AObject = Self) and not BlockPersistenceInterface then\r\n    Result := (TTMSFNCUtils.IndexOfTextInArray(APropertyName, ExcludePropertyList) = -1)\r\n  else\r\n    Result := True;\r\n\r\n  if FAppearancePersisting then\r\n    Result := Result and IsAppearanceProperty(AObject, APropertyName, APropertyType);\r\n\r\n  DoCanSaveProperty(AObject, APropertyName, APropertyType, Result);\r\nend;\r\n\r\nfunction TTMSFNCCustomControl.CanLoadProperty(AObject: TObject; APropertyName: string; APropertyType: TTypeKind): Boolean;\r\nbegin\r\n  if (AObject = Self) and not BlockPersistenceInterface then\r\n    Result := (TTMSFNCUtils.IndexOfTextInArray(APropertyName, ExcludePropertyList) = -1)\r\n  else\r\n    Result := True;\r\n\r\n  DoCanLoadProperty(AObject, APropertyName, APropertyType, Result);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.SaveSettingsToFile(AFileName: string; AAppearanceOnly: Boolean = False);\r\nbegin\r\n  FAppearancePersisting := AAppearanceOnly;\r\n  TTMSFNCPersistence.SaveSettingsToFile(Self, AFileName);\r\n  FAppearancePersisting := False;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.LoadSettingsFromFile(AFileName: string);\r\nbegin\r\n  BeginUpdate;\r\n  TTMSFNCPersistence.LoadSettingsFromFile(Self, AFileName);\r\n  EndUpdate;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.SaveSettingsToStream(AStream: TStream; AAppearanceOnly: Boolean = False);\r\nbegin\r\n  FAppearancePersisting := AAppearanceOnly;\r\n  TTMSFNCPersistence.SaveSettingsToStream(Self, AStream);\r\n  FAppearancePersisting := False;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.LoadSettingsFromStream(AStream: TStream);\r\nbegin\r\n  BeginUpdate;\r\n  TTMSFNCPersistence.LoadSettingsFromStream(Self, AStream);\r\n  EndUpdate;\r\n  Invalidate;\r\nend;\r\n\r\nfunction TTMSFNCCustomControl.LocalToScreenEx(APoint: TPointF): TPointF;\r\n{$IFDEF CMNWEBLIB}\r\nvar\r\n  pt: TPoint;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Result := LocalToScreen(APoint);\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  pt := ClientToScreen(Point(Round(APoint.X), Round(APoint.Y)));\r\n  Result := PointF(pt.X, pt.Y);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCCustomControl.ScreenToLocalEx(APoint: TPointF): TPointF;\r\n{$IFDEF CMNWEBLIB}\r\nvar\r\n  pt: TPoint;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Result := ScreenToLocal(APoint);\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  pt := ScreenToClient(Point(Round(APoint.X), Round(APoint.Y)));\r\n  Result := PointF(pt.X, pt.Y);\r\n  {$ENDIF}\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomControl.TurnOffAnimation(chk: TFmxObject);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  if Assigned(chk) then\r\n  begin\r\n    if chk is TAnimation then\r\n      (chk as TAnimation).Duration := 0;\r\n\r\n    for I := 0 to chk.ChildrenCount - 1 do\r\n    begin\r\n      TurnOffAnimation(chk.Children[I]);\r\n    end;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomControl.CaptureEx;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Capture;\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  SetCapture(Self.Handle);\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  MouseCapture := True;\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Capture;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomControl.ReleaseCaptureEx;\r\nbegin\r\n  {$IFNDEF LCLLIB}\r\n  {$IFNDEF WEBLIB}\r\n  ReleaseCapture;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  MouseCapture := False;\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ReleaseCapture;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCCustomControlBaseCommon.ScaleResourceValue(const Value: Integer): Integer;\r\nbegin\r\n  Result := TTMSFNCUtils.MulDivInt(Value, Round(FResourceScaleFactor * 100), 100);\r\nend;\r\n\r\nfunction TTMSFNCCustomControlBaseCommon.ScaleResourceValue(const Value: Double): Double;\r\nbegin\r\n  Result := Value * FResourceScaleFactor;\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomControlBaseCommon.SetEnabled(const Value: Boolean);\r\n{$ENDIF}\r\n{$IFNDEF FMXLIB}\r\nprocedure TTMSFNCCustomControlBaseCommon.SetEnabled(Value: Boolean);\r\n{$ENDIF}\r\nbegin\r\n  inherited;\r\n\r\n  Invalidate;\r\nend;\r\n\r\nfunction TTMSFNCCustomControlBaseCommon.ScalePaintValue(const Value: Integer): Integer;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Result := Value;\r\n  {$ELSE}\r\n  Result := TTMSFNCUtils.MulDivInt(Value, Round(FPaintScaleFactor * 100), 100);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCCustomControlBaseCommon.ScalePaintValue(const Value: Double): Double;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Result := Value;\r\n  {$ELSE}\r\n  Result := Value * FPaintScaleFactor;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.GetControlMargins(var ALeft: Single; var ATop: Single; var ARight: Single; var ABottom: Single);\r\nbegin\r\n  {$IFNDEF LCLLIB}\r\n  {$IFDEF VCLWEBLIB}\r\n  if not AlignWithMargins then\r\n    Exit;\r\n  {$ENDIF}\r\n  ALeft := Margins.Left;\r\n  ATop := Margins.Top;\r\n  ARight := Margins.Right;\r\n  ABottom := Margins.Bottom;\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ALeft := BorderSpacing.Left;\r\n  ATop := BorderSpacing.Top;\r\n  ARight := BorderSpacing.Right;\r\n  ABottom := BorderSpacing.Bottom;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.SetControlMargins(ALeft: Single; ATop: Single; ARight: Single; ABottom: Single);\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Margins.Left := ALeft;\r\n  Margins.Top := ATop;\r\n  Margins.Right := ARight;\r\n  Margins.Bottom := ABottom;\r\n  {$ENDIF}\r\n  {$IFDEF VCLWEBLIB}\r\n  AlignWithMargins := True;\r\n  Margins.Left := Round(ALeft);\r\n  Margins.Top := Round(ATop);\r\n  Margins.Right := Round(ARight);\r\n  Margins.Bottom := Round(ABottom);\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  BorderSpacing.Left := Round(ALeft);\r\n  BorderSpacing.Top := Round(ATop);\r\n  BorderSpacing.Right := Round(ARight);\r\n  BorderSpacing.Bottom := Round(ABottom);\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlBaseCommon.BeginDrag;\r\n{$IFDEF FMXLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 27}\r\nvar\r\n  DragImage: TTMSFNCBitmap;\r\n  pt: TPointF;\r\nbegin\r\n  DragImage := TTMSFNCBitmap.Create;\r\n  DragImage.Width := 1;\r\n  DragImage.Height := 1;\r\n  try\r\n    pt := GetClientMousePos;\r\n    MouseUp(TMouseButton.mbLeft, [], pt.X, pt.Y);\r\n    Root.BeginInternalDrag(Self, DragImage);\r\n  finally\r\n    DragImage.Free;\r\n  end;\r\n{$IFEND}\r\n{$IF COMPILERVERSION <= 27}\r\nbegin\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n{$IFDEF CMNLIB}\r\nbegin\r\n  inherited BeginDrag(True);\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\nbegin\r\n{$ENDIF}\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomControlBaseCommon.CancelHint;\r\nbegin\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 29}\r\n  Application.CancelHint;\r\n  {$IFEND}\r\n  {$HINTS ON}\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TTMSFNCCustomControlBaseCommon.GetDragObjectScreenShot: TTMSFNCBitmap;\r\nbegin\r\n  Result := nil;\r\nend;\r\n\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCCustomControlBaseCommon.CancelHint;\r\nbegin\r\n  {$IFNDEF WEBLIB}\r\n  Application.CancelHint;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCCustomControlBase.GetHintString: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCCustomControlBase.HasHint: Boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFNDEF LCLWEBLIB}\r\n\r\n{ FNCJSLibReferenceAttribute }\r\n\r\nconstructor FNCJSLibReferenceAttribute.Create(const AScrs: string);\r\nbegin\r\n  inherited Create;\r\n  FSrcs := AScrs;\r\nend;\r\n\r\nconstructor FNCJSLibReferenceAttribute.Create(const AScrs, ACSSs: string);\r\nbegin\r\n  Create(AScrs);\r\n  FCSSs := ACSSs;\r\nend;\r\n\r\nconstructor FNCJSLibReferenceAttribute.Create(const AScrs, ACSSs, AAttrs: string);\r\nbegin\r\n  Create(AScrs, ACSSs);\r\n  FAttrs := AAttrs;\r\nend;\r\n\r\nconstructor FNCJSLibReferenceAttribute.Create(const AScrs, ACSSs, AAttrs, ADesc: string);\r\nbegin\r\n  Create(AScrs, ACSSs, AAttrs);\r\n  FDesc := ADesc;\r\nend;\r\n\r\n{$ENDIF}\r\n\r\n{ TTMSFNCControl }\r\n\r\nprocedure TTMSFNCControl.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClass(TTMSFNCControl);\r\nend;\r\n\r\n{$IFDEF USETRIAL}\r\n{$IFNDEF WEBLIB}\r\n{$IFNDEF LCLLIB}\r\n{$IFNDEF FMXMOBILE}\r\n{$IFDEF FREEWARE}\r\nconst TMSPRODUCTOFFSET = 700;\r\n{$I TMSProductTrial.inc}\r\n{$ENDIF}\r\n{$ENDIF}\r\n{$ENDIF}\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\n{$WARNINGS ON}\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{           copyright (c)  2016 - 2021                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : https://www.tmssoftware.com                       }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCScrollBar;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, WEBLib.TMSFNCCustomControl, WEBLib.ExtCtrls,\r\n  WEBLib.TMSFNCTypes, WEBLib.TMSFNCGraphics, WEBLib.Controls,\r\n  WEBLib.TMSFNCGraphicsTypes\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Types\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  ,UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  ,Types\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCCustomScrollBar = class;\r\n\r\n  TTMSFNCScrollBarAppearance = class(TPersistent)\r\n  private\r\n    FOwner: TTMSFNCCustomScrollBar;\r\n    FScrollButtonSize: Single;\r\n    FThumbButtonSize: Single;\r\n    FOnChange: TNotifyEvent;\r\n    FFixedThumb: Boolean;\r\n    FArrowColor: TTMSFNCGraphicsColor;\r\n    FThumbStroke: TTMSFNCGraphicsStroke;\r\n    FThumbButtonRightDownStroke: TTMSFNCGraphicsStroke;\r\n    FThumbFill: TTMSFNCGraphicsFill;\r\n    FThumbButtonLeftFill: TTMSFNCGraphicsFill;\r\n    FScrollButtonLeftHoverFill: TTMSFNCGraphicsFill;\r\n    FScrollButtonLeftStroke: TTMSFNCGraphicsStroke;\r\n    FScrollButtonRightFill: TTMSFNCGraphicsFill;\r\n    FThumbButtonLeftHoverFill: TTMSFNCGraphicsFill;\r\n    FThumbButtonLeftStroke: TTMSFNCGraphicsStroke;\r\n    FScrollButtonLeftHoverStroke: TTMSFNCGraphicsStroke;\r\n    FThumbButtonRightFill: TTMSFNCGraphicsFill;\r\n    FScrollButtonRightHoverFill: TTMSFNCGraphicsFill;\r\n    FScrollButtonRightStroke: TTMSFNCGraphicsStroke;\r\n    FThumbButtonLeftHoverStroke: TTMSFNCGraphicsStroke;\r\n    FScrollButtonLeftDownFill: TTMSFNCGraphicsFill;\r\n    FThumbButtonRightHoverFill: TTMSFNCGraphicsFill;\r\n    FThumbButtonRightStroke: TTMSFNCGraphicsStroke;\r\n    FScrollButtonRightHoverStroke: TTMSFNCGraphicsStroke;\r\n    FThumbButtonLeftDownFill: TTMSFNCGraphicsFill;\r\n    FScrollButtonLeftDownStroke: TTMSFNCGraphicsStroke;\r\n    FThumbButtonRightHoverStroke: TTMSFNCGraphicsStroke;\r\n    FScrollButtonRightDownFill: TTMSFNCGraphicsFill;\r\n    FThumbButtonLeftDownStroke: TTMSFNCGraphicsStroke;\r\n    FThumbButtonRightDownFill: TTMSFNCGraphicsFill;\r\n    FScrollButtonRightDownStroke: TTMSFNCGraphicsStroke;\r\n    FScrollButtonLeftFill: TTMSFNCGraphicsFill;\r\n    procedure SetThumbButtonSize(const Value: Single);\r\n    procedure SetFixedThumb(const Value: Boolean);\r\n    procedure SetArrowColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetScrollButtonLeftDownFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetScrollButtonLeftDownStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetScrollButtonLeftFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetScrollButtonLeftHoverFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetScrollButtonLeftHoverStroke(\r\n      const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetScrollButtonLeftStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetScrollButtonRightDownFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetScrollButtonRightDownStroke(\r\n      const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetScrollButtonRightFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetScrollButtonRightHoverFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetScrollButtonRightHoverStroke(\r\n      const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetScrollButtonRightStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetScrollButtonSize(const Value: Single);\r\n    procedure SetThumbButtonLeftDownFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetThumbButtonLeftDownStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetThumbButtonLeftFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetThumbButtonLeftHoverFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetThumbButtonLeftHoverStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetThumbButtonLeftStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetThumbButtonRightDownFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetThumbButtonRightDownStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetThumbButtonRightFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetThumbButtonRightHoverFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetThumbButtonRightHoverStroke(\r\n      const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetThumbButtonRightStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetThumbFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetThumbStroke(const Value: TTMSFNCGraphicsStroke);\r\n    function IsScrollButtonSizeStored: Boolean;\r\n    function IsThumbButtonSizeStored: Boolean;\r\n  protected\r\n    procedure Changed;\r\n    procedure FillChanged(Sender: TObject);\r\n    procedure StrokeChanged(Sender: TObject);\r\n  public\r\n    constructor Create(AOwner: TTMSFNCCustomScrollBar);\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    function GetThumbButtonSize: Single;\r\n  published\r\n    property ThumbFill: TTMSFNCGraphicsFill read FThumbFill write SetThumbFill;\r\n    property ScrollButtonLeftFill: TTMSFNCGraphicsFill read FScrollButtonLeftFill write SetScrollButtonLeftFill;\r\n    property ScrollButtonRightFill: TTMSFNCGraphicsFill read FScrollButtonRightFill write SetScrollButtonRightFill;\r\n    property ScrollButtonLeftHoverFill: TTMSFNCGraphicsFill read FScrollButtonLeftHoverFill write SetScrollButtonLeftHoverFill;\r\n    property ScrollButtonRightHoverFill: TTMSFNCGraphicsFill read FScrollButtonRightHoverFill write SetScrollButtonRightHoverFill;\r\n    property ScrollButtonLeftDownFill: TTMSFNCGraphicsFill read FScrollButtonLeftDownFill write SetScrollButtonLeftDownFill;\r\n    property ScrollButtonRightDownFill: TTMSFNCGraphicsFill read FScrollButtonRightDownFill write SetScrollButtonRightDownFill;\r\n    property ThumbButtonLeftFill: TTMSFNCGraphicsFill read FThumbButtonLeftFill write SetThumbButtonLeftFill;\r\n    property ThumbButtonRightFill: TTMSFNCGraphicsFill read FThumbButtonRightFill write SetThumbButtonRightFill;\r\n    property ThumbButtonLeftHoverFill: TTMSFNCGraphicsFill read FThumbButtonLeftHoverFill write SetThumbButtonLeftHoverFill;\r\n    property ThumbButtonRightHoverFill: TTMSFNCGraphicsFill read FThumbButtonRightHoverFill write SetThumbButtonRightHoverFill;\r\n    property ThumbButtonLeftDownFill: TTMSFNCGraphicsFill read FThumbButtonLeftDownFill write SetThumbButtonLeftDownFill;\r\n    property ThumbButtonRightDownFill: TTMSFNCGraphicsFill read FThumbButtonRightDownFill write SetThumbButtonRightDownFill;\r\n    property ThumbStroke: TTMSFNCGraphicsStroke read FThumbStroke write SetThumbStroke;\r\n    property ScrollButtonLeftStroke: TTMSFNCGraphicsStroke read FScrollButtonLeftStroke write SetScrollButtonLeftStroke;\r\n    property ScrollButtonRightStroke: TTMSFNCGraphicsStroke read FScrollButtonRightStroke write SetScrollButtonRightStroke;\r\n    property ScrollButtonLeftHoverStroke: TTMSFNCGraphicsStroke read FScrollButtonLeftHoverStroke write SetScrollButtonLeftHoverStroke;\r\n    property ScrollButtonRightHoverStroke: TTMSFNCGraphicsStroke read FScrollButtonRightHoverStroke write SetScrollButtonRightHoverStroke;\r\n    property ScrollButtonLeftDownStroke: TTMSFNCGraphicsStroke read FScrollButtonLeftDownStroke write SetScrollButtonLeftDownStroke;\r\n    property ScrollButtonRightDownStroke: TTMSFNCGraphicsStroke read FScrollButtonRightDownStroke write SetScrollButtonRightDownStroke;\r\n    property ThumbButtonLeftStroke: TTMSFNCGraphicsStroke read FThumbButtonLeftStroke write SetThumbButtonLeftStroke;\r\n    property ThumbButtonRightStroke: TTMSFNCGraphicsStroke read FThumbButtonRightStroke write SetThumbButtonRightStroke;\r\n    property ThumbButtonLeftHoverStroke: TTMSFNCGraphicsStroke read FThumbButtonLeftHoverStroke write SetThumbButtonLeftHoverStroke;\r\n    property ThumbButtonRightHoverStroke: TTMSFNCGraphicsStroke read FThumbButtonRightHoverStroke write SetThumbButtonRightHoverStroke;\r\n    property ThumbButtonLeftDownStroke: TTMSFNCGraphicsStroke read FThumbButtonLeftDownStroke write SetThumbButtonLeftDownStroke;\r\n    property ThumbButtonRightDownStroke: TTMSFNCGraphicsStroke read FThumbButtonRightDownStroke write SetThumbButtonRightDownStroke;\r\n    property ThumbButtonSize: Single read FThumbButtonSize write SetThumbButtonSize stored IsThumbButtonSizeStored nodefault;\r\n    property ScrollButtonSize: Single read FScrollButtonSize write SetScrollButtonSize stored IsScrollButtonSizeStored nodefault;\r\n    property FixedThumb: Boolean read FFixedThumb write SetFixedThumb default False;\r\n    property ArrowColor: TTMSFNCGraphicsColor read FArrowColor write SetArrowColor default gcBlack;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  end;\r\n\r\n  TTMSFNCScrollBarMode = (sbmNone, sbmScroll, sbmChangePageSize);\r\n\r\n  TTMSFNCScrollBarHoveredButton = (shbNone, shbScrollMin, shbScrollMax, shbThumbMin, shbThumbMax);\r\n\r\n  TTMSFNCScrollBarDownButton = (sdbNone, sdbScrollMin, sdbScrollMax, sdbThumbMin, sdbThumbMax);\r\n\r\n  TTMSFNCScrollButtonChange = (sbcNone, sbcSmallSubstract, sbcSmallAdd, sbcLargeSubstract, sbcLargeAdd);\r\n\r\n  TTMSFNCScrollBarValueChanged = procedure(Sender: TObject; Value: Double) of object;\r\n\r\n  TTMSFNCScrollBarPageSizeChanged = procedure(Sender: TObject; PageSize: Double) of object;\r\n\r\n  TTMSFNCScrollBarKind = (sbkHorizontal, sbkVertical);\r\n\r\n  TTMSFNCCustomScrollBar = class(TTMSFNCCustomControl)\r\n  private\r\n    FBlockChange: Boolean;\r\n    FNeedsChange: Boolean;\r\n    FSavedPageSize: Double;\r\n    FDesignTime, FMinThumb, FMaxThumb: Boolean;\r\n    FMx, FMy, FCx, FCy: Double;\r\n    FTimer: TTimer;\r\n    FTime: integer;\r\n    FScrollBarMode: TTMSFNCScrollBarMode;\r\n    FScrollButtonChange: TTMSFNCScrollButtonChange;\r\n    FHoveredButton: TTMSFNCScrollBarHoveredButton;\r\n    FDownButton: TTMSFNCScrollBarDownButton;\r\n    FKind: TTMSFNCScrollBarKind;\r\n    FValue, FTempValue: Double;\r\n    FMin: Double;\r\n    FMax: Double;\r\n    FPageSize: Double;\r\n    FSmallChange: Double;\r\n    FLargeChange: Double;\r\n    FAppearance: TTMSFNCScrollBarAppearance;\r\n    FOnValueChange: TTMSFNCScrollBarValueChanged;\r\n    FOnPageSizeChanged: TTMSFNCScrollBarPageSizeChanged;\r\n    FTracking: Boolean;\r\n    procedure SetAppearance(const Value: TTMSFNCScrollBarAppearance);\r\n    procedure SetKind(Value: TTMSFNCScrollBarKind);\r\n    procedure SetMax(const Value: Double);\r\n    procedure SetMin(const Value: Double);\r\n    procedure SetValue(const Value: Double);\r\n    procedure SetPageSize(const Value: Double);\r\n    function IsLargeChangeStored: Boolean;\r\n    function IsMaxStored: Boolean;\r\n    function IsMinStored: Boolean;\r\n    function IsPageSizeStored: Boolean;\r\n    function IsSmallChangeStored: Boolean;\r\n    function IsValueStored: Boolean;\r\n    procedure SetTracking(const Value: Boolean);\r\n  protected\r\n    procedure ChangeDPIScale(M, D: Integer); override;\r\n    procedure ApplyStyle; override;\r\n    procedure ResetToDefaultStyle; override;\r\n    procedure HandleKeyDown(var Key: Word; Shift: TShiftState); override;\r\n    procedure HandleMouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Single); override;\r\n    procedure HandleMouseMove(Shift: TShiftState; X, Y: Single); override;\r\n    procedure HandleMouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Single); override;\r\n    procedure HandleMouseLeave; override;\r\n    procedure HandleMouseEnter; override;\r\n    procedure HandleMouseWheel(Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean); override;\r\n    procedure Changed;\r\n    procedure AppearanceChanged(Sender: TObject);\r\n    procedure TimerChanged(Sender: TObject);\r\n    function GetCalculationRect: TRectF; virtual;\r\n    function GetDocURL: string; override;\r\n    function GetMinScrollButton: TRectF;\r\n    function GetMaxScrollButton: TRectF;\r\n    function GetMinThumbButton: TRectF;\r\n    function GetMaxThumbButton: TRectF;\r\n    function GetScrollRectangle: TRectF;\r\n    function GetScrollSize: Double;\r\n    function GetScrollAreaMin: TRectF;\r\n    function GetScrollAreaMax: TRectF;\r\n    function GetThumbRectangle: TRectF;\r\n    function GetValue: Double; overload;\r\n    function GetValue(XYPos: Double): Double; overload;\r\n    function GetRange: Double;\r\n    function MouseOnThumbButtons(X, Y: Double): Boolean;\r\n    function MouseOnThumb(X, Y: Double): Boolean;\r\n    procedure DrawScrollButtons(g: TTMSFNCGraphics);\r\n    procedure DrawThumb(g: TTMSFNCGraphics);\r\n    procedure DrawThumbButtons(g: TTMSFNCGraphics);\r\n    procedure DrawArrow(g: TTMSFNCGraphics; r: TRectF; ALeft: Boolean);\r\n    procedure Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF); override;\r\n    property Appearance: TTMSFNCScrollBarAppearance read FAppearance write SetAppearance;\r\n    property Kind: TTMSFNCScrollBarKind read FKind write SetKind default sbkVertical;\r\n    property LargeChange: Double read FLargeChange write FLargeChange stored IsLargeChangeStored nodefault;\r\n    property Max: Double read FMax write SetMax stored IsMaxStored nodefault;\r\n    property Min: Double read FMin write SetMin stored IsMinStored nodefault;\r\n    property PageSize: Double read FPageSize write SetPageSize stored IsPageSizeStored nodefault;\r\n    property Value: Double read FValue write SetValue stored IsValueStored nodefault;\r\n    property SmallChange: Double read FSmallChange write FSmallChange stored IsSmallChangeStored nodefault;\r\n    property Tracking: Boolean read FTracking write SetTracking default True;\r\n    property OnValueChanged: TTMSFNCScrollBarValueChanged read FOnValueChange write FOnValueChange;\r\n    property OnPageSizeChanged: TTMSFNCScrollBarPageSizeChanged read FOnPageSizeChanged write FOnPageSizeChanged;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCScrollBar = class(TTMSFNCCustomScrollBar)\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n  published\r\n    property Fill;\r\n    property Stroke;\r\n    property Appearance;\r\n    property Kind;\r\n    property LargeChange;\r\n    property Max;\r\n    property Tracking;\r\n    property Min;\r\n    property PageSize;\r\n    property Value;\r\n    property SmallChange;\r\n    property OnValueChanged;\r\n    property OnPageSizeChanged;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  Math, SysUtils, WEBLib.TMSFNCStyles, WEBLib.TMSFNCUtils;\r\n\r\n{ TTMSFNCScrollBarAppearance }\r\n\r\nprocedure TTMSFNCScrollBarAppearance.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTMSFNCScrollBarAppearance) then\r\n  begin\r\n    FThumbFill.Assign((Source as TTMSFNCScrollBarAppearance).ThumbFill);\r\n    FScrollButtonSize := (Source as TTMSFNCScrollBarAppearance).ScrollButtonSize;\r\n    FThumbButtonSize := (Source as TTMSFNCScrollBarAppearance).ThumbButtonSize;\r\n    FThumbStroke.Assign((Source as TTMSFNCScrollBarAppearance).ThumbStroke);\r\n    FThumbButtonLeftFill.Assign((Source as TTMSFNCScrollBarAppearance).ThumbButtonLeftFill);\r\n    FThumbButtonLeftHoverFill.Assign((Source as TTMSFNCScrollBarAppearance).ThumbButtonLeftHoverFill);\r\n    FThumbButtonLeftDownFill.Assign((Source as TTMSFNCScrollBarAppearance).ThumbButtonLeftDownFill);\r\n    FThumbButtonRightFill.Assign((Source as TTMSFNCScrollBarAppearance).ThumbButtonRightFill);\r\n    FThumbButtonRightDownFill.Assign((Source as TTMSFNCScrollBarAppearance).ThumbButtonRightDownFill);\r\n    FThumbButtonRightHoverFill.Assign((Source as TTMSFNCScrollBarAppearance).ThumbButtonRightHoverFill);\r\n    FScrollButtonLeftFill.Assign((Source as TTMSFNCScrollBarAppearance).ScrollButtonLeftFill);\r\n    FScrollButtonLeftHoverFill.Assign((Source as TTMSFNCScrollBarAppearance).ScrollButtonLeftHoverFill);\r\n    FScrollButtonLeftDownFill.Assign((Source as TTMSFNCScrollBarAppearance).ScrollButtonLeftDownFill);\r\n    FScrollButtonRightFill.Assign((Source as TTMSFNCScrollBarAppearance).ScrollButtonRightFill);\r\n    FScrollButtonRightDownFill.Assign((Source as TTMSFNCScrollBarAppearance).ScrollButtonRightDownFill);\r\n    FScrollButtonRightHoverFill.Assign((Source as TTMSFNCScrollBarAppearance).ScrollButtonRightHoverFill);\r\n    FThumbButtonLeftStroke.Assign((Source as TTMSFNCScrollBarAppearance).ThumbButtonLeftStroke);\r\n    FThumbButtonLeftHoverStroke.Assign((Source as TTMSFNCScrollBarAppearance).ThumbButtonLeftHoverStroke);\r\n    FThumbButtonLeftDownStroke.Assign((Source as TTMSFNCScrollBarAppearance).ThumbButtonLeftDownStroke);\r\n    FThumbButtonRightStroke.Assign((Source as TTMSFNCScrollBarAppearance).ThumbButtonRightStroke);\r\n    FThumbButtonRightDownStroke.Assign((Source as TTMSFNCScrollBarAppearance).ThumbButtonRightDownStroke);\r\n    FThumbButtonRightHoverStroke.Assign((Source as TTMSFNCScrollBarAppearance).ThumbButtonRightHoverStroke);\r\n    FScrollButtonLeftStroke.Assign((Source as TTMSFNCScrollBarAppearance).ScrollButtonLeftStroke);\r\n    FScrollButtonLeftHoverStroke.Assign((Source as TTMSFNCScrollBarAppearance).ScrollButtonLeftHoverStroke);\r\n    FScrollButtonLeftDownStroke.Assign((Source as TTMSFNCScrollBarAppearance).ScrollButtonLeftDownStroke);\r\n    FScrollButtonRightStroke.Assign((Source as TTMSFNCScrollBarAppearance).ScrollButtonRightStroke);\r\n    FScrollButtonRightDownStroke.Assign((Source as TTMSFNCScrollBarAppearance).ScrollButtonRightDownStroke);\r\n    FScrollButtonRightHoverStroke.Assign((Source as TTMSFNCScrollBarAppearance).ScrollButtonRightHoverStroke);\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.Changed;\r\nbegin\r\n  FOwner.Changed;\r\nend;\r\n\r\nconstructor TTMSFNCScrollBarAppearance.Create(AOwner: TTMSFNCCustomScrollBar);\r\nbegin\r\n  FOwner := AOwner;\r\n  FThumbFill := TTMSFNCGraphicsFill.Create(gfkSolid, MakeGraphicsColor(225, 225, 225));\r\n  FThumbFill.OnChanged := @FillChanged;\r\n  FThumbButtonLeftFill := TTMSFNCGraphicsFill.Create(gfkSolid, MakeGraphicsColor(225, 225, 225));\r\n  FThumbButtonLeftFill.OnChanged := @FillChanged;\r\n  FThumbButtonRightFill := TTMSFNCGraphicsFill.Create(gfkSolid, MakeGraphicsColor(225, 225, 225));\r\n  FThumbButtonRightFill.OnChanged := @FillChanged;\r\n  FThumbButtonLeftHoverFill := TTMSFNCGraphicsFill.Create(gfkSolid, MakeGraphicsColor(229, 241, 251));\r\n  FThumbButtonLeftHoverFill.OnChanged := @FillChanged;\r\n  FThumbButtonRightHoverFill := TTMSFNCGraphicsFill.Create(gfkSolid, MakeGraphicsColor(229, 241, 251));\r\n  FThumbButtonRightHoverFill.OnChanged := @FillChanged;\r\n  FThumbButtonLeftDownFill := TTMSFNCGraphicsFill.Create(gfkSolid, Darker(MakeGraphicsColor(229, 241, 251), 40));\r\n  FThumbButtonLeftDownFill.OnChanged := @FillChanged;\r\n  FThumbButtonRightDownFill := TTMSFNCGraphicsFill.Create(gfkSolid, Darker(MakeGraphicsColor(229, 241, 251), 40));\r\n  FThumbButtonRightDownFill.OnChanged := @FillChanged;\r\n\r\n  FScrollButtonLeftFill := TTMSFNCGraphicsFill.Create(gfkSolid, MakeGraphicsColor(225, 225, 225));\r\n  FScrollButtonLeftFill.OnChanged := @FillChanged;\r\n  FScrollButtonRightFill := TTMSFNCGraphicsFill.Create(gfkSolid, MakeGraphicsColor(225, 225, 225));\r\n  FScrollButtonRightFill.OnChanged := @FillChanged;\r\n  FScrollButtonLeftHoverFill := TTMSFNCGraphicsFill.Create(gfkSolid, MakeGraphicsColor(229, 241, 251));\r\n  FScrollButtonLeftHoverFill.OnChanged := @FillChanged;\r\n  FScrollButtonRightHoverFill := TTMSFNCGraphicsFill.Create(gfkSolid, MakeGraphicsColor(229, 241, 251));\r\n  FScrollButtonRightHoverFill.OnChanged := @FillChanged;\r\n  FScrollButtonLeftDownFill := TTMSFNCGraphicsFill.Create(gfkSolid, Darker(MakeGraphicsColor(229, 241, 251), 40));\r\n  FScrollButtonLeftDownFill.OnChanged := @FillChanged;\r\n  FScrollButtonRightDownFill := TTMSFNCGraphicsFill.Create(gfkSolid, Darker(MakeGraphicsColor(229, 241, 251), 40));\r\n  FScrollButtonRightDownFill.OnChanged := @FillChanged;\r\n\r\n  FThumbStroke := TTMSFNCGraphicsStroke.Create(gskSolid, Darker(gcDarkGray, 40));\r\n  FThumbStroke.OnChanged := @StrokeChanged;\r\n  FThumbButtonLeftStroke := TTMSFNCGraphicsStroke.Create(gskSolid, Darker(gcDarkGray, 40));\r\n  FThumbButtonLeftStroke.OnChanged := @StrokeChanged;\r\n  FThumbButtonRightStroke := TTMSFNCGraphicsStroke.Create(gskSolid, Darker(gcDarkGray, 40));\r\n  FThumbButtonRightStroke.OnChanged := @StrokeChanged;\r\n  FThumbButtonLeftHoverStroke := TTMSFNCGraphicsStroke.Create(gskSolid, MakeGraphicsColor(60, 127, 177));\r\n  FThumbButtonLeftHoverStroke.OnChanged := @StrokeChanged;\r\n  FThumbButtonRightHoverStroke := TTMSFNCGraphicsStroke.Create(gskSolid, MakeGraphicsColor(60, 127, 177));\r\n  FThumbButtonRightHoverStroke.OnChanged := @StrokeChanged;\r\n  FThumbButtonLeftDownStroke := TTMSFNCGraphicsStroke.Create(gskSolid, MakeGraphicsColor(60, 127, 177));\r\n  FThumbButtonLeftDownStroke.OnChanged := @StrokeChanged;\r\n  FThumbButtonRightDownStroke := TTMSFNCGraphicsStroke.Create(gskSolid, MakeGraphicsColor(60, 127, 177));\r\n  FThumbButtonRightDownStroke.OnChanged := @StrokeChanged;\r\n\r\n  FScrollButtonLeftStroke := TTMSFNCGraphicsStroke.Create(gskSolid, Darker(gcDarkGray, 40));\r\n  FScrollButtonLeftStroke.OnChanged := @StrokeChanged;\r\n  FScrollButtonRightStroke := TTMSFNCGraphicsStroke.Create(gskSolid, Darker(gcDarkGray, 40));\r\n  FScrollButtonRightStroke.OnChanged := @StrokeChanged;\r\n  FScrollButtonLeftHoverStroke := TTMSFNCGraphicsStroke.Create(gskSolid, MakeGraphicsColor(60, 127, 177));\r\n  FScrollButtonLeftHoverStroke.OnChanged := @StrokeChanged;\r\n  FScrollButtonRightHoverStroke := TTMSFNCGraphicsStroke.Create(gskSolid, MakeGraphicsColor(60, 127, 177));\r\n  FScrollButtonRightHoverStroke.OnChanged := @StrokeChanged;\r\n  FScrollButtonLeftDownStroke := TTMSFNCGraphicsStroke.Create(gskSolid, MakeGraphicsColor(60, 127, 177));\r\n  FScrollButtonLeftDownStroke.OnChanged := @StrokeChanged;\r\n  FScrollButtonRightDownStroke := TTMSFNCGraphicsStroke.Create(gskSolid, MakeGraphicsColor(60, 127, 177));\r\n  FScrollButtonRightDownStroke.OnChanged := @StrokeChanged;\r\n\r\n  FArrowColor := gcBlack;\r\n\r\n  FFixedThumb := False;\r\n  FThumbButtonSize := 18;\r\n  FScrollButtonSize := 18;\r\nend;\r\n\r\ndestructor TTMSFNCScrollBarAppearance.Destroy;\r\nbegin\r\n  FThumbFill.Free;\r\n  FScrollButtonLeftFill.Free;\r\n  FScrollButtonRightFill.Free;\r\n  FScrollButtonLeftHoverFill.Free;\r\n  FScrollButtonRightHoverFill.Free;\r\n  FScrollButtonLeftDownFill.Free;\r\n  FScrollButtonRightDownFill.Free;\r\n  FThumbButtonLeftFill.Free;\r\n  FThumbButtonRightFill.Free;\r\n  FThumbButtonLeftHoverFill.Free;\r\n  FThumbButtonRightHoverFill.Free;\r\n  FThumbButtonLeftDownFill.Free;\r\n  FThumbButtonRightDownFill.Free;\r\n  FThumbStroke.Free;\r\n  FScrollButtonLeftStroke.Free;\r\n  FScrollButtonRightStroke.Free;\r\n  FScrollButtonLeftHoverStroke.Free;\r\n  FScrollButtonRightHoverStroke.Free;\r\n  FScrollButtonLeftDownStroke.Free;\r\n  FScrollButtonRightDownStroke.Free;\r\n  FThumbButtonLeftStroke.Free;\r\n  FThumbButtonRightStroke.Free;\r\n  FThumbButtonLeftHoverStroke.Free;\r\n  FThumbButtonRightHoverStroke.Free;\r\n  FThumbButtonLeftDownStroke.Free;\r\n  FThumbButtonRightDownStroke.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.FillChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\nfunction TTMSFNCScrollBarAppearance.GetThumbButtonSize: Single;\r\nbegin\r\n  if FixedThumb then\r\n    Result := 0\r\n  else\r\n    Result := ThumbButtonSize;\r\nend;\r\n\r\nfunction TTMSFNCScrollBarAppearance.IsScrollButtonSizeStored: Boolean;\r\nbegin\r\n  Result := ScrollButtonSize <> 18;\r\nend;\r\n\r\nfunction TTMSFNCScrollBarAppearance.IsThumbButtonSizeStored: Boolean;\r\nbegin\r\n  Result := ThumbButtonSize <> 18;\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetArrowColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FArrowColor <> Value then\r\n  begin\r\n    FArrowColor := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetFixedThumb(const Value: Boolean);\r\nbegin\r\n  if FFixedThumb <> value then\r\n  begin\r\n    FFixedThumb := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetScrollButtonLeftDownFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FScrollButtonLeftDownFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetScrollButtonLeftDownStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FScrollButtonLeftDownStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetScrollButtonLeftFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FScrollButtonLeftFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetScrollButtonLeftHoverFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FScrollButtonLeftHoverFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetScrollButtonLeftHoverStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FScrollButtonLeftHoverStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetScrollButtonLeftStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FScrollButtonLeftStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetScrollButtonRightDownFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FScrollButtonRightDownFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetScrollButtonRightDownStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FScrollButtonRightDownStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetScrollButtonRightFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FScrollButtonRightFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetScrollButtonRightHoverFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FScrollButtonRightHoverFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetScrollButtonRightHoverStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FScrollButtonRightHoverStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetScrollButtonRightStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FScrollButtonRightStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetScrollButtonSize(const Value: Single);\r\nbegin\r\n  if FScrollButtonSize <> Value then\r\n  begin\r\n    FScrollButtonSize := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetThumbButtonLeftDownFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FThumbButtonLeftDownFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetThumbButtonLeftDownStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FThumbButtonLeftDownStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetThumbButtonLeftFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FThumbButtonLeftFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetThumbButtonLeftHoverFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FThumbButtonLeftHoverFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetThumbButtonLeftHoverStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FThumbButtonLeftHoverStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetThumbButtonLeftStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FThumbButtonLeftStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetThumbButtonRightDownFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FThumbButtonRightDownFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetThumbButtonRightDownStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FThumbButtonRightDownStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetThumbButtonRightFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FThumbButtonRightFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetThumbButtonRightHoverFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FThumbButtonRightHoverFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetThumbButtonRightHoverStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FThumbButtonRightHoverStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetThumbButtonRightStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FThumbButtonRightStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetThumbButtonSize(\r\n  const Value: Single);\r\nbegin\r\n  if FThumbButtonSize <> value then\r\n  begin\r\n    FThumbButtonSize := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetThumbFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FThumbFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.SetThumbStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FThumbStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCScrollBarAppearance.StrokeChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\nprocedure TTMSFNCCustomScrollBar.AppearanceChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\nprocedure TTMSFNCCustomScrollBar.ApplyStyle;\r\nvar\r\n  c: TTMSFNCGraphicsColor;\r\nbegin\r\n  inherited;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleBackgroundFillColor(c) then\r\n  begin\r\n    Appearance.ThumbFill.Color := c;\r\n    Appearance.ThumbButtonLeftFill.Color := c;\r\n    Appearance.ThumbButtonRightFill.Color := c;\r\n    Appearance.ScrollButtonLeftFill.Color := c;\r\n    Appearance.ScrollButtonRightFill.Color := c;\r\n  end;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleLineFillColor(c) then\r\n  begin\r\n    Appearance.ThumbStroke.Color := c;\r\n    Appearance.ThumbButtonLeftStroke.Color := c;\r\n    Appearance.ThumbButtonRightStroke.Color := c;\r\n    Appearance.ScrollButtonLeftStroke.Color := c;\r\n    Appearance.ScrollButtonRightStroke.Color := c;\r\n    Appearance.ThumbButtonLeftHoverStroke.Color := c;\r\n    Appearance.ThumbButtonRightHoverStroke.Color := c;\r\n    Appearance.ScrollButtonLeftHoverStroke.Color := c;\r\n    Appearance.ScrollButtonRightHoverStroke.Color := c;\r\n    Appearance.ThumbButtonLeftDownStroke.Color := c;\r\n    Appearance.ThumbButtonRightDownStroke.Color := c;\r\n    Appearance.ScrollButtonLeftDownStroke.Color := c;\r\n    Appearance.ScrollButtonRightDownStroke.Color := c;\r\n  end;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleSelectionFillColor(c) then\r\n  begin\r\n    Appearance.ThumbButtonLeftHoverFill.Color := Blend(Fill.Color, c, 70);\r\n    Appearance.ThumbButtonRightHoverFill.Color := Blend(Fill.Color, c, 70);\r\n    Appearance.ScrollButtonLeftHoverFill.Color := Blend(Fill.Color, c, 70);\r\n    Appearance.ScrollButtonRightHoverFill.Color := Blend(Fill.Color, c, 70);\r\n    Appearance.ThumbButtonLeftDownFill.Color := Blend(Fill.Color, c, 50);\r\n    Appearance.ThumbButtonRightDownFill.Color := Blend(Fill.Color, c, 50);\r\n    Appearance.ScrollButtonLeftDownFill.Color := Blend(Fill.Color, c, 50);\r\n    Appearance.ScrollButtonRightDownFill.Color := Blend(Fill.Color, c, 50);\r\n    Appearance.ArrowColor := c;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomScrollBar.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTMSFNCScrollBar) then\r\n  begin\r\n    FKind := (Source as TTMSFNCScrollBar).Kind;\r\n    FValue := (Source as TTMSFNCScrollBar).Value;\r\n    FMin := (Source as TTMSFNCScrollBar).Min;\r\n    FMax := (Source as TTMSFNCScrollBar).Max;\r\n    FPageSize := (Source as TTMSFNCScrollBar).PageSize;\r\n    FSmallChange := (Source as TTMSFNCScrollBar).SmallChange;\r\n    FLargeChange := (Source as TTMSFNCScrollBar).LargeChange;\r\n    FAppearance.Assign((Source as TTMSFNCScrollBar).Appearance);\r\n    FTracking := (Source as TTMSFNCScrollBar).Tracking;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomScrollBar.Changed;\r\nbegin\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomScrollBar.ChangeDPIScale(M, D: Integer);\r\nbegin\r\n  inherited;\r\n  BeginUpdate;\r\n\r\n  FAppearance.FScrollButtonSize := TTMSFNCUtils.MulDivSingle(FAppearance.ScrollButtonSize, M, D);\r\n  FAppearance.FThumbButtonSize := TTMSFNCUtils.MulDivSingle(FAppearance.FThumbButtonSize, M, D);\r\n\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomScrollBar.HandleMouseLeave;\r\nbegin\r\n  inherited;\r\n  FTimer.Enabled := false;\r\n  FTime := 0;\r\n  FScrollBarMode := sbmNone;\r\n  FScrollButtonChange := sbcNone;\r\n  FMinThumb := false;\r\n  FMaxThumb := false;\r\n  FDownButton := sdbNone;\r\n  FHoveredButton := shbNone;\r\n  Changed;\r\nend;\r\n\r\nconstructor TTMSFNCCustomScrollBar.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n\r\n  {$IFDEF CMNLIB}\r\n  {$IFDEF MSWINDOWS}\r\n  NativeCanvas := True;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  FTracking := True;\r\n  FDesignTime := IsDesignTime;\r\n  if FDesignTime then\r\n  begin\r\n    Fill.Color := Lighter(MakeGraphicsColor(225, 225, 225), 40);\r\n    Stroke.Color := Darker(gcDarkGray, 40);\r\n  end;\r\n  Height := 121;\r\n  Width := 18;\r\n  FKind := sbkVertical;\r\n  FValue := 0;\r\n  FMin := 0;\r\n  FMax := 100;\r\n  FSmallChange := 1;\r\n  FLargeChange := 20;\r\n  FAppearance := TTMSFNCScrollBarAppearance.Create(Self);\r\n  FAppearance.OnChange := @AppearanceChanged;\r\n  FPageSize := 20;\r\n  {$IFDEF WEBLIB}\r\n  FTimer := TTimer.Create(nil);\r\n  {$ELSE}\r\n  FTimer := TTimer.Create(Self);\r\n  {$ENDIF}\r\n  FTimer.OnTimer := TimerChanged;\r\n  FTimer.Interval := 100;\r\nend;\r\n\r\ndestructor TTMSFNCCustomScrollBar.Destroy;\r\nbegin\r\n  FAppearance.Free;\r\n  FTimer.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomScrollBar.DrawArrow(g: TTMSFNCGraphics; r: TRectF; ALeft: Boolean);\r\nbegin\r\n  g.Stroke.Color := Appearance.ArrowColor;\r\n  if Kind = sbkVertical then\r\n  begin\r\n    InflateRectEx(r, 0, -4);\r\n    if not ALeft then\r\n    begin\r\n      g.DrawLine(PointF(r.Left + ((r.Right - R.Left) / 2), r.Top + ((r.Bottom - R.Top) / 3 * 2)), PointF(r.Left + ((r.Right - R.Left) / 3), r.Top + ((r.Bottom - R.Top) / 3)));\r\n      g.DrawLine(PointF(r.Left + ((r.Right - R.Left) / 2), r.Top + ((r.Bottom - R.Top) / 3 * 2)), PointF(r.Left + ((r.Right - R.Left) / 3 * 2), r.Top + ((r.Bottom - R.Top) / 3)));\r\n    end\r\n    else\r\n    begin\r\n      g.DrawLine(PointF(r.Left + ((r.Right - R.Left) / 2), r.Top + ((r.Bottom - R.Top) / 3)), PointF(r.Left + ((r.Right - R.Left) / 3), r.Top + ((r.Bottom - R.Top) / 3 * 2)));\r\n      g.DrawLine(PointF(r.Left + ((r.Right - R.Left) / 2), r.Top + ((r.Bottom - R.Top) / 3)), PointF(r.Left + ((r.Right - R.Left) / 3 * 2), r.Top + ((r.Bottom - R.Top) / 3 * 2)));\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    InflateRectEx(r, -4, 0);\r\n    if not ALeft then\r\n    begin\r\n      g.DrawLine(PointF(r.Left + ((r.Right - R.Left) / 3), r.Top + ((r.Bottom - R.Top) / 3)), PointF(r.Left + ((r.Right - R.Left) / 3 * 2), r.Top + ((r.Bottom - R.Top) / 2)));\r\n      g.DrawLine(PointF(r.Left + ((r.Right - R.Left) / 3), r.Top + ((r.Bottom - R.Top) / 3 * 2)), PointF(r.Left + ((r.Right - R.Left) / 3 * 2), r.Top + ((r.Bottom - R.Top) / 2)));\r\n    end\r\n    else\r\n    begin\r\n      g.DrawLine(PointF(r.Left + ((r.Right - R.Left) / 3 * 2), r.Top + ((r.Bottom - R.Top) / 3)), PointF(r.Left + ((r.Right - R.Left) / 3), r.Top + ((r.Bottom - R.Top) / 2)));\r\n      g.DrawLine(PointF(r.Left + ((r.Right - R.Left) / 3 * 2), r.Top + ((r.Bottom - R.Top) / 3 * 2)), PointF(r.Left + ((r.Right - R.Left) / 3), r.Top + ((r.Bottom - R.Top) / 2)));\r\n    end;\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TTMSFNCCustomScrollBar.DrawScrollButtons(g: TTMSFNCGraphics);\r\nvar\r\n  flmin, flmax: TTMSFNCGraphicsFill;\r\n  stmin, stmax: TTMSFNCGraphicsStroke;\r\nbegin\r\n  if Appearance.ScrollButtonSize <= 0 then\r\n    Exit;\r\n\r\n  flmin := Appearance.ScrollButtonLeftFill;\r\n  flmax := Appearance.ScrollButtonRightFill;\r\n  stmin := Appearance.ScrollButtonLeftStroke;\r\n  stmax := Appearance.ScrollButtonRightStroke;\r\n\r\n  if FDownButton = sdbScrollMin then\r\n  begin\r\n    flmin := Appearance.ScrollButtonLeftDownFill;\r\n    stmin := Appearance.ScrollButtonLeftDownStroke;\r\n  end\r\n  else if FHoveredButton = shbScrollMin then\r\n  begin\r\n    flmin := Appearance.ScrollButtonLeftHoverFill;\r\n    stmin := Appearance.ScrollButtonLeftHoverStroke;\r\n  end;\r\n\r\n  g.Fill.Assign(flmin);\r\n  g.Stroke.Assign(stmin);\r\n  g.DrawRectangle(GetMinScrollButton);\r\n\r\n  if FDownButton = sdbScrollMax then\r\n  begin\r\n    flmax := Appearance.ScrollButtonRightDownFill;\r\n    stmax := Appearance.ScrollButtonRightDownStroke;\r\n  end\r\n  else if FHoveredButton = shbScrollMax then\r\n  begin\r\n    flmax := Appearance.ScrollButtonRightHoverFill;\r\n    stmax := Appearance.ScrollButtonRightHoverStroke;\r\n  end;\r\n\r\n  g.Fill.Assign(flmax);\r\n  g.Stroke.Assign(stmax);\r\n  g.DrawRectangle(GetMaxScrollButton);\r\n\r\n  DrawArrow(g, GetMinScrollButton, true);\r\n  DrawArrow(g, GetMaxScrollButton, false);\r\nend;\r\n\r\nprocedure TTMSFNCCustomScrollBar.DrawThumb(g: TTMSFNCGraphics);\r\nbegin\r\n  g.Fill.Assign(Appearance.ThumbFill);\r\n  g.Stroke.Assign(Appearance.ThumbStroke);\r\n  g.DrawRectangle(GetThumbRectangle);\r\n  if not Appearance.FixedThumb then\r\n    DrawThumbButtons(g);\r\nend;\r\n\r\nprocedure TTMSFNCCustomScrollBar.DrawThumbButtons(g: TTMSFNCGraphics);\r\nvar\r\n  flmin, flmax: TTMSFNCGraphicsFill;\r\n  stmin, stmax: TTMSFNCGraphicsStroke;\r\nbegin\r\n  if Appearance.ThumbButtonSize <= 0 then\r\n    Exit;\r\n\r\n  flmin := Appearance.ThumbButtonLeftFill;\r\n  flmax := Appearance.ThumbButtonRightFill;\r\n  stmin := Appearance.ThumbButtonLeftStroke;\r\n  stmax := Appearance.ThumbButtonRightStroke;\r\n\r\n  if FDownButton = sdbThumbMin then\r\n  begin\r\n    flmin := Appearance.ThumbButtonLeftDownFill;\r\n    stmin := Appearance.ThumbButtonLeftDownStroke;\r\n  end\r\n  else if FHoveredButton = shbThumbMin then\r\n  begin\r\n    flmin := Appearance.ThumbButtonLeftHoverFill;\r\n    stmin := Appearance.ThumbButtonLeftHoverStroke;\r\n  end;\r\n\r\n  g.Fill.Assign(flmin);\r\n  g.Stroke.Assign(stmin);\r\n  g.DrawRectangle(GetMinThumbButton);\r\n\r\n  if FDownButton = sdbThumbMax then\r\n  begin\r\n    flmax := Appearance.ThumbButtonRightDownFill;\r\n    stmax := Appearance.ThumbButtonRightDownStroke;\r\n  end\r\n  else if FHoveredButton = shbThumbMax then\r\n  begin\r\n    flmax := Appearance.ThumbButtonRightHoverFill;\r\n    stmax := Appearance.ThumbButtonRightHoverStroke;\r\n  end;\r\n\r\n  g.Fill.Assign(flmax);\r\n  g.Stroke.Assign(stmax);\r\n  g.DrawRectangle(GetMaxThumbButton);\r\n\r\n  DrawArrow(g, GetMinThumbButton, true);\r\n  DrawArrow(g, GetMaxThumbButton, false);\r\nend;\r\n\r\nfunction TTMSFNCCustomScrollBar.GetDocURL: string;\r\nbegin\r\n  Result := TTMSFNCBaseDocURL + 'tmsfncuipack';\r\nend;\r\n\r\nfunction TTMSFNCCustomScrollBar.GetCalculationRect: TRectF;\r\nbegin\r\n  Result := LocalRect;\r\nend;\r\n\r\nfunction TTMSFNCCustomScrollBar.GetMaxScrollButton: TRectF;\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  r := GetCalculationRect;\r\n  case Kind of\r\n    sbkHorizontal: Result := MakeRectF(r.Right - Appearance.ScrollButtonSize, r.Top, Appearance.ScrollButtonSize, r.Bottom - r.Top);\r\n    sbkVertical: Result := MakeRectF(r.Left, r.Bottom - Appearance.ScrollButtonSize, r.Right - r.Left, Appearance.ScrollButtonSize);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomScrollBar.GetMaxThumbButton: TRectF;\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  r := GetThumbRectangle;\r\n  case Kind of\r\n    sbkHorizontal: Result := MakeRectF(r.Left + (r.Right - R.Left) - Appearance.GetThumbButtonSize, r.Top, Appearance.GetThumbButtonSize, (r.Bottom - R.Top));\r\n    sbkVertical: Result := MakeRectF(r.Left, r.Top + (r.Bottom - R.Top) - Appearance.GetThumbButtonSize, (r.Right - R.Left), Appearance.GetThumbButtonSize);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomScrollBar.GetMinScrollButton: TRectF;\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  r := GetCalculationRect;\r\n  case Kind of\r\n    sbkHorizontal: Result := MakeRectF(r.Left, r.Top, Appearance.ScrollButtonSize, r.Bottom - r.Top);\r\n    sbkVertical: Result := MakeRectF(r.Left, r.Top, r.Right - r.Left, Appearance.ScrollButtonSize);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomScrollBar.GetMinThumbButton: TRectF;\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  r := GetThumbRectangle;\r\n  case Kind of\r\n    sbkHorizontal: Result := MakeRectF(r.Left, r.Top, Appearance.GetThumbButtonSize, (r.Bottom - R.Top));\r\n    sbkVertical: Result := MakeRectF(r.Left, r.Top, (r.Right - R.Left), Appearance.GetThumbButtonSize);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomScrollBar.GetValue(XYPos: Double): Double;\r\nvar\r\n  v, s: Double;\r\n  scr: TRectF;\r\nbegin\r\n  scr := GetScrollRectangle;\r\n  case Kind of\r\n    sbkHorizontal: s := (scr.Right - scr.Left) - Math.Max(Appearance.GetThumbButtonSize * 2 + 10, ((scr.Right - scr.Left) / GetRange * PageSize));\r\n    sbkVertical: s := (scr.Bottom - scr.Top) - Math.Max(Appearance.GetThumbButtonSize * 2 + 10, ((scr.Bottom - scr.Top) / GetRange * PageSize));\r\n    else\r\n      s := 0;\r\n  end;\r\n\r\n  if (max - min > 0) and (s > 0) then\r\n  begin\r\n    v := (XYPos / s) * (max - min - FPageSize) + min;\r\n    Result := Math.Max(Math.Min(v, max - FPageSize), min);\r\n  end\r\n  else\r\n    Result := 0;\r\nend;\r\n\r\nfunction TTMSFNCCustomScrollBar.GetValue: Double;\r\nvar\r\n  s: Double;\r\n  scr: TRectF;\r\nbegin\r\n  Result := 0;\r\n  scr := GetScrollRectangle;\r\n  case Kind of\r\n    sbkHorizontal: s := (scr.Right - scr.Left) - Math.Max(Appearance.GetThumbButtonSize * 2 + 10, ((scr.Right - scr.Left) / GetRange * PageSize));\r\n    sbkVertical: s := (scr.Bottom - scr.Top) - Math.Max(Appearance.GetThumbButtonSize * 2 + 10, ((scr.Bottom - scr.Top) / GetRange * PageSize));\r\n    else\r\n      s := 0;\r\n  end;\r\n\r\n  if s <= 0 then\r\n    Exit;\r\n\r\n  if (Max - Min) > 0 then\r\n  begin\r\n    if Tracking then\r\n      Result := Math.Min(((Value - Min) / (Max - Min - FPageSize)) * s, s)\r\n    else\r\n      Result := Math.Min(((FTempValue - Min) / (Max - Min - FPageSize)) * s, s)\r\n  end\r\n  else\r\n    Result := Min;\r\nend;\r\n\r\nfunction TTMSFNCCustomScrollBar.GetRange: Double;\r\nbegin\r\n  Result := Math.Max(2, Max - Min);\r\nend;\r\n\r\nfunction TTMSFNCCustomScrollBar.GetScrollAreaMin: TRectF;\r\nvar\r\n  scr: TRectF;\r\n  thr: TRectF;\r\nbegin\r\n  scr := GetScrollRectangle;\r\n  thr := GetThumbRectangle;\r\n  case Kind of\r\n    sbkHorizontal:\r\n    begin\r\n      Result.Left := scr.Left;\r\n      Result.Top := scr.Top;\r\n      Result.Right := Result.Left + (thr.Left - scr.Left);\r\n      Result.Bottom := Result.Top + (scr.Bottom - scr.Top);\r\n    end;\r\n    sbkVertical:\r\n    begin\r\n      Result.Left := scr.Left;\r\n      Result.Top := scr.Top;\r\n      Result.Right := Result.Left + (scr.Right - scr.Left);\r\n      Result.Bottom := Result.Top + (thr.Top - scr.Top);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomScrollBar.GetScrollAreaMax: TRectF;\r\nvar\r\n  scr: TRectF;\r\n  thr: TRectF;\r\nbegin\r\n  scr := GetScrollRectangle;\r\n  thr := GetThumbRectangle;\r\n  case Kind of\r\n    sbkHorizontal:\r\n    begin\r\n      Result.Left := thr.Left + (thr.Right - thr.Left);\r\n      Result.Top := scr.Top;\r\n      Result.Right := Result.Left + (scr.Right - scr.Left) - (thr.Right - thr.Left) - thr.Left + scr.Left;\r\n      Result.Bottom := Result.Top + (scr.Bottom - scr.Top);\r\n    end;\r\n    sbkVertical:\r\n    begin\r\n      Result.Left := scr.Left;\r\n      Result.Top := thr.Top + (thr.Bottom - thr.Top);\r\n      Result.Right := Result.Left + (scr.Right - scr.Left);\r\n      result.Bottom := Result.Top + (scr.Bottom - scr.Top) - (thr.Bottom - thr.Top) - thr.Top + scr.Top;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomScrollBar.GetScrollRectangle: TRectF;\r\nbegin\r\n  case Kind of\r\n    sbkHorizontal:\r\n    begin\r\n      Result.Left := GetMinScrollButton.Left + (GetMinScrollButton.Right - GetMinScrollButton.Left);\r\n      Result.Top := GetMinScrollButton.Top;\r\n      Result.Bottom := Result.Top + (GetMinScrollButton.Bottom - GetMinScrollButton.Top);\r\n      Result.Right := GetMaxScrollButton.Left;\r\n    end;\r\n    sbkVertical:\r\n    begin\r\n      Result.Left := GetMinScrollButton.Left;\r\n      Result.Top := GetMinScrollButton.Top + (GetMinScrollButton.Bottom - GetMinScrollButton.Top);\r\n      Result.Bottom := GetMaxScrollButton.Top;\r\n      Result.Right := Result.Left + (GetMinScrollButton.Right - GetMinScrollButton.Left);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomScrollBar.GetScrollSize: Double;\r\nbegin\r\n  case Kind of\r\n    sbkHorizontal: Result := (GetScrollRectangle.Right - GetScrollRectangle.Left) - (GetThumbRectangle.Right - GetThumbRectangle.Left);\r\n    sbkVertical: Result := (GetScrollRectangle.Bottom - GetScrollRectangle.Top) - (GetThumbRectangle.Bottom - GetThumbRectangle.Top);\r\n    else\r\n      Result := 0;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomScrollBar.GetThumbRectangle: TRectF;\r\nvar\r\n  scr: TRectF;\r\n  s: Double;\r\nbegin\r\n  scr := GetScrollRectangle;\r\n  case Kind of\r\n    sbkHorizontal:\r\n    begin\r\n      s := (scr.Right - scr.Left) / GetRange * PageSize;\r\n      Result.Left := scr.Left + GetValue;\r\n      Result.Top := scr.Top;\r\n      Result.Right := Result.Left + Math.Max(Appearance.GetThumbButtonSize * 2 + ScalePaintValue(10), s);\r\n      Result.Bottom := Result.Top + (scr.Bottom - scr.Top);\r\n    end;\r\n    sbkVertical:\r\n    begin\r\n      s := (scr.Bottom - scr.Top) / GetRange * PageSize;\r\n      Result.Left := scr.Left;\r\n      Result.Top := scr.Top + GetValue;\r\n      Result.Right := Result.Left + (scr.Right - scr.Left);\r\n      Result.Bottom := Result.Top + Math.Max(Appearance.GetThumbButtonSize * 2 + ScalePaintValue(10), s);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomScrollBar.HandleKeyDown(var Key: Word; Shift: TShiftState);\r\nbegin\r\n  inherited;\r\n  case Key of\r\n    KEY_UP, KEY_LEFT: Value := Value - SmallChange;\r\n    KEY_DOWN, KEY_RIGHT: Value := Value + SmallChange;\r\n    KEY_HOME: Value := Min;\r\n    KEY_END: Value := Max;\r\n    KEY_PRIOR: Value := Value - LargeChange;\r\n    KEY_NEXT: Value := Value + LargeChange;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomScrollBar.HandleMouseDown(Button: TMouseButton;\r\n  Shift: TShiftState; X, Y: Single);\r\nbegin\r\n  inherited;\r\n  if Assigned(Parent) then\r\n    CaptureEx;\r\n\r\n  FCx := Abs(X - GetThumbRectangle.Left + GetScrollRectangle.Left);\r\n  FCy := Abs(Y - GetThumbRectangle.Top + GetScrollRectangle.Top);\r\n  FMx := X;\r\n  FMy := Y;\r\n  FSavedPageSize := PageSize;\r\n  FTime := 0;\r\n  FTimer.Enabled := true;\r\n  if MouseOnThumbButtons(X, Y) then\r\n  begin\r\n    FScrollBarMode := sbmChangePageSize;\r\n    FMinThumb := PtInRectEx(GetMinThumbButton, PointF(X, Y));\r\n    FMaxThumb := PtInRectEx(GetMaxThumbButton, PointF(X, Y));\r\n  end\r\n  else if MouseOnThumb(X, Y) then\r\n    FScrollBarMode := sbmScroll\r\n  else if PtInRectEx(GetMinScrollButton, PointF(X, Y)) then\r\n    FScrollButtonChange := sbcSmallSubstract\r\n  else if PtInRectEx(GetMaxScrollButton, PointF(X, Y)) then\r\n    FScrollButtonChange := sbcSmallAdd\r\n  else if PtInRectEx(GetScrollAreaMin, PointF(X, Y)) then\r\n    FScrollButtonChange := sbcLargeSubstract\r\n  else if PtInRectEx(GetScrollAreaMax, PointF(X, Y)) then\r\n    FScrollButtonChange := sbcLargeAdd;\r\n\r\n  if PtInRectEx(GetMinThumbButton, PointF(X, Y)) and not (FDownButton = sdbThumbMin) then\r\n  begin\r\n    FDownButton := sdbThumbMin;\r\n    Changed;\r\n  end\r\n  else if PtInRectEx(GetMaxThumbButton, PointF(X, Y)) and not (FDownButton = sdbThumbMax) then\r\n  begin\r\n    FDownButton := sdbThumbMax;\r\n    Changed;\r\n  end\r\n  else if PtInRectEx(GetMinScrollButton, PointF(X, Y)) and not (FDownButton = sdbScrollMin) then\r\n  begin\r\n    FDownButton := sdbScrollMin;\r\n    Changed;\r\n  end\r\n  else if PtInRectEx(GetMaxScrollButton, PointF(X, Y)) and not (FDownButton = sdbScrollMax) then\r\n  begin\r\n    FDownButton := sdbScrollMax;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomScrollBar.HandleMouseEnter;\r\nbegin\r\n  inherited;\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomScrollBar.HandleMouseMove(Shift: TShiftState; X, Y: Single);\r\nvar\r\n  pos: Double;\r\n  v: Double;\r\nbegin\r\n  inherited;\r\n  begin\r\n    if FScrollBarMode = sbmChangePageSize then\r\n    begin\r\n      case Kind of\r\n        sbkHorizontal: Cursor := crSizeWE;\r\n        sbkVertical: Cursor := crSizeNS;\r\n      end;\r\n\r\n      case Kind of\r\n        sbkHorizontal: pos := GetRange / (GetScrollRectangle.Right - GetScrollRectangle.Left) * (X - FMx);\r\n        sbkVertical: pos := GetRange / (GetScrollRectangle.Bottom - GetScrollRectangle.Top) * (Y - FMy);\r\n        else\r\n          pos := 0;\r\n      end;\r\n\r\n      if FMinThumb then\r\n      begin\r\n        if Value - Min > 0 then\r\n          PageSize := FSavedPageSize - pos * (GetRange / (Value - Min))\r\n        else\r\n          PageSize := FSavedPageSize - pos\r\n      end\r\n      else if FMaxThumb then\r\n      begin\r\n        if Value - Min < GetRange then\r\n          PageSize := FSavedPageSize + pos * (GetRange / (Max - Value))\r\n        else\r\n          PageSize := FSavedPageSize + pos\r\n      end;\r\n    end\r\n    else if (FScrollBarMode = sbmScroll) then\r\n    begin\r\n      case Kind of\r\n        sbkHorizontal: pos := X - FCx;\r\n        sbkVertical: pos := Y - FCy;\r\n        else\r\n          pos := 0;\r\n      end;\r\n\r\n      v := GetValue(pos);\r\n      if Tracking then\r\n        Value := v\r\n      else\r\n      begin\r\n        FTempValue := v;\r\n        Changed;\r\n      end;\r\n    end\r\n    else if MouseOnThumbButtons(X, Y) then\r\n    begin\r\n      case Kind of\r\n        sbkHorizontal: Cursor := crSizeWE;\r\n        sbkVertical: Cursor := crSizeNS;\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      Cursor := crDefault;\r\n    end;\r\n  end;\r\n\r\n  if PtInRectEx(GetMinThumbButton, PointF(X, Y)) and not (FHoveredButton = shbThumbMin) then\r\n  begin\r\n    FHoveredButton := shbThumbMin;\r\n    Changed;\r\n  end\r\n  else if PtInRectEx(GetMaxThumbButton, PointF(X, Y)) and not (FHoveredButton = shbThumbMax) then\r\n  begin\r\n    FHoveredButton := shbThumbMax;\r\n    Changed;\r\n  end\r\n  else if PtInRectEx(GetMinScrollButton, PointF(X, Y)) and not (FHoveredButton = shbScrollMin) then\r\n  begin\r\n    FHoveredButton := shbScrollMin;\r\n    Changed;\r\n  end\r\n  else if PtInRectEx(GetMaxScrollButton, PointF(X, Y)) and not (FHoveredButton = shbScrollMax) then\r\n  begin\r\n    FHoveredButton := shbScrollMax;\r\n    Changed;\r\n  end\r\n  else if not PtInRectEx(GetMaxThumbButton, PointF(X, Y)) and not PtInRectEx(GetMinThumbButton, PointF(X, Y)) and not PtInRectEx(GetMaxScrollButton, PointF(X, Y))\r\n    and not PtInRectEx(GetMinScrollButton, PointF(X, Y)) and (FHoveredButton <> shbNone) then\r\n  begin\r\n    FHoveredButton := shbNone;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomScrollBar.MouseOnThumb(X, Y: Double): Boolean;\r\nbegin\r\n  Result := PtInRectEx(GetThumbRectangle, PointF(X, Y));\r\nend;\r\n\r\nfunction TTMSFNCCustomScrollBar.MouseOnThumbButtons(X, Y: Double): Boolean;\r\nbegin\r\n  Result := PtInRectEx(GetMinThumbButton, PointF(X, Y)) or PtInRectEx(GetMaxThumbButton, PointF(X, Y));\r\n  Result := Result and not Appearance.FixedThumb;\r\nend;\r\n\r\nprocedure TTMSFNCCustomScrollBar.ResetToDefaultStyle;\r\nvar\r\n  ia: TTMSFNCScrollBarAppearance;\r\nbegin\r\n  inherited;\r\n  ia := TTMSFNCScrollBarAppearance.Create(nil);\r\n  try\r\n    Appearance.Assign(ia);\r\n  finally\r\n    ia.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomScrollBar.HandleMouseUp(Button: TMouseButton; Shift: TShiftState;\r\n  X, Y: Single);\r\nbegin\r\n  inherited;\r\n  if Assigned(Parent) then\r\n    ReleaseCaptureEx;\r\n\r\n  if (FScrollBarMode = sbmScroll) and not Tracking then\r\n    Value := FTempValue;\r\n\r\n  if (FScrollBarMode = sbmNone) then\r\n  begin\r\n    if PtInRectEx(GetMinScrollButton, PointF(X, Y)) then\r\n      Value := Value - SmallChange\r\n    else if PtInRectEx(GetMaxScrollButton, PointF(X, Y)) then\r\n      Value := Value + SmallChange\r\n    else if PtInRectEx(GetScrollAreaMin, PointF(X, Y)) then\r\n      Value := Value - LargeChange\r\n    else if PtInRectEx(GetScrollAreaMax, PointF(X, Y)) then\r\n      Value := Value + LargeChange;\r\n  end;\r\n\r\n  FDownButton := sdbNone;\r\n  FMinThumb := false;\r\n  FMaxThumb := false;\r\n  FTimer.Enabled := false;\r\n  FTime := 0;\r\n  FScrollBarMode := sbmNone;\r\n  Cursor := crDefault;\r\n  FScrollButtonChange := sbcNone;\r\n  Changed;\r\nend;\r\n\r\nprocedure TTMSFNCCustomScrollBar.HandleMouseWheel(Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean);\r\nbegin\r\n  inherited;\r\n  if WheelDelta < 0 then\r\n    Value := Value + LargeChange\r\n  else\r\n    Value := Value - LargeChange;\r\nend;\r\n\r\nfunction TTMSFNCCustomScrollBar.IsLargeChangeStored: Boolean;\r\nbegin\r\n  Result := LargeChange <> 20;\r\nend;\r\n\r\nfunction TTMSFNCCustomScrollBar.IsMaxStored: Boolean;\r\nbegin\r\n  Result := Max <> 100;\r\nend;\r\n\r\nfunction TTMSFNCCustomScrollBar.IsMinStored: Boolean;\r\nbegin\r\n  Result := Min <> 0;\r\nend;\r\n\r\nfunction TTMSFNCCustomScrollBar.IsPageSizeStored: Boolean;\r\nbegin\r\n  Result := PageSize <> 20;\r\nend;\r\n\r\nfunction TTMSFNCCustomScrollBar.IsSmallChangeStored: Boolean;\r\nbegin\r\n  Result := SmallChange <> 1;\r\nend;\r\n\r\nfunction TTMSFNCCustomScrollBar.IsValueStored: Boolean;\r\nbegin\r\n  Result := Value <> 0;\r\nend;\r\n\r\nprocedure TTMSFNCCustomScrollBar.Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nbegin\r\n  inherited;\r\n  DrawThumb(AGraphics);\r\n  DrawScrollButtons(AGraphics);\r\nend;\r\n\r\nprocedure TTMSFNCCustomScrollBar.SetAppearance(\r\n  const Value: TTMSFNCScrollBarAppearance);\r\nbegin\r\n  if FAppearance <> value then\r\n  begin\r\n    FAppearance.Assign(Value);\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomScrollBar.SetKind(Value: TTMSFNCScrollBarKind);\r\nbegin\r\n  if FKind <> Value then\r\n  begin\r\n    FKind := Value;\r\n    {$IFNDEF WEBLIB}\r\n    if not (csLoading in ComponentState) then\r\n    {$ENDIF}\r\n      SetBounds(Left, Top, Height, Width){$IFDEF WEBLIB};{$ENDIF}\r\n    {$IFNDEF WEBLIB}\r\n    else\r\n      FNeedsChange := True;\r\n    {$ENDIF}\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomScrollBar.SetMax(const Value: Double);\r\nbegin\r\n  if FMax <> Value then\r\n  begin\r\n    FMax := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomScrollBar.SetMin(const Value: Double);\r\nbegin\r\n  if FMin <> Value then\r\n  begin\r\n    FMin := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomScrollBar.SetPageSize(const Value: Double);\r\nbegin\r\n  if FBlockChange then\r\n    Exit;\r\n\r\n  if FPageSize <> Value then\r\n  begin\r\n    FPageSize := Math.Max(Math.Min(GetRange, Value), 0);\r\n    if Assigned(FOnPageSizeChanged) then\r\n    begin\r\n      FBlockChange := True;\r\n      FOnPageSizeChanged(Self, PageSize);\r\n      FBlockChange := False;\r\n    end;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomScrollBar.SetTracking(const Value: Boolean);\r\nbegin\r\n  if FTracking <> Value then\r\n  begin\r\n    FTracking := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomScrollBar.SetValue(const Value: Double);\r\nbegin\r\n  if FBlockChange then\r\n    Exit;\r\n\r\n  if FValue <> Value then\r\n  begin\r\n    FValue := Math.Min(Math.Max(Value, FMin), FMax - FPageSize);\r\n    FTempValue := FValue;\r\n    if Assigned(FOnValueChange) then\r\n    begin\r\n      FBlockChange := True;\r\n      FOnValueChange(Self, Self.Value);\r\n      FBlockChange := False;\r\n    end;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomScrollBar.TimerChanged(Sender: TObject);\r\nbegin\r\n  Inc(FTime);\r\n  if FTime >= 4 then\r\n  begin\r\n    if FScrollButtonChange = sbcSmallSubstract then\r\n    begin\r\n      Value := Value - SmallChange;\r\n      Changed;\r\n    end\r\n    else if FScrollButtonChange = sbcSmallAdd then\r\n    begin\r\n      Value := Value + SmallChange;\r\n      Changed;\r\n    end\r\n    else if FScrollButtonChange = sbcLargeSubstract then\r\n    begin\r\n      Value := Value - LargeChange;\r\n      Changed;\r\n    end\r\n    else if FScrollButtonChange = sbcLargeAdd then\r\n    begin\r\n      Value := Value + LargeChange;\r\n      Changed;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCScrollBar }\r\n\r\nprocedure TTMSFNCScrollBar.RegisterRuntimeClasses;\r\nbegin\r\n  RegisterClass(TTMSFNCScrollBar);\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2016 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCTreeViewBase;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF CMNLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n\r\n{$IFNDEF LCLLIB}\r\n{$IFNDEF WEBLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 22}\r\n{$DEFINE USEOWNEDCOLLECTION}\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\n{$IFDEF LCLLIB}\r\n{$DEFINE USEOWNEDCOLLECTION}\r\n{$ENDIF}\r\n\r\n{$RANGECHECKS OFF}\r\n\r\ninterface\r\n\r\nuses\r\n  {$IFDEF MSWINDOWS}\r\n  Windows,\r\n  {$ENDIF}\r\n  Classes, WEBLib.TMSFNCCustomControl, WEBLib.TMSFNCScrollBar, WEBLib.StdCtrls,\r\n  WEBLib.Controls, WEBLib.TMSFNCTypes\r\n  {$IFNDEF LCLLIB}\r\n  {$IFNDEF WEBLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  ,UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  ,Types\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Types\r\n  {$ENDIF}\r\n  ;\r\n\r\nconst\r\n  {$IFDEF LCLLIB}\r\n  SWIPECOUNT = 300;\r\n  DOWNCOUNT = 15;\r\n  {$ELSE}\r\n  {$IFDEF MSWINDOWS}\r\n  SWIPECOUNT = 300;\r\n  DOWNCOUNT = 15;\r\n  {$ENDIF}\r\n  {$IFDEF MACOS}\r\n  {$IFDEF IOS}\r\n  SWIPECOUNT = 300;\r\n  DOWNCOUNT = 200;\r\n  {$ELSE}\r\n  SWIPECOUNT = 300;\r\n  DOWNCOUNT = 200;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF ANDROID}\r\n  SWIPECOUNT = 300;\r\n  DOWNCOUNT = 100;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  {$IFDEF LINUX}\r\n  SWIPECOUNT = 300;\r\n  DOWNCOUNT = 100;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  SWIPECOUNT = 300;\r\n  DOWNCOUNT = 100;\r\n  {$ENDIF}\r\n\r\ntype\r\n  TTMSFNCTreeViewBase = class;\r\n\r\n  TTMSFNCTreeViewDoubleListItem = class(TCollectionItem)\r\n  private\r\n    FOwner: TTMSFNCTreeViewBase;\r\n    FValue: Double;\r\n    FCellVal: Integer;\r\n    procedure SetCellData(const Value: Double);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n  published\r\n    property Value: Double read FValue write SeTCellData;\r\n    property CellVal: Integer read FCellVal write FCellVal;\r\n  end;\r\n\r\n  {$IFNDEF USEOWNEDCOLLECTION}\r\n  TTMSFNCTreeViewDoubleList = class(TTMSFNCOwnedCollection)\r\n  {$ENDIF}\r\n  {$IFDEF USEOWNEDCOLLECTION}\r\n  TTMSFNCTreeViewDoubleList = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCTreeViewDoubleListItem>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TTMSFNCTreeViewBase;\r\n    FOnChange: TNotifyEvent;\r\n    function GetItem(Index: Integer): TTMSFNCTreeViewDoubleListItem;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCTreeViewDoubleListItem);\r\n  protected\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  public\r\n    function IndexOf(ACellVal: Integer): Integer;\r\n    constructor Create(AOwner: TTMSFNCTreeViewBase);\r\n    property Items[Index: Integer]: TTMSFNCTreeViewDoubleListItem read GetItem write SetItem; default;\r\n    function Add: TTMSFNCTreeViewDoubleListItem;\r\n    function Insert(Index: Integer): TTMSFNCTreeViewDoubleListItem;\r\n  end;\r\n\r\n  TTMSFNCTreeViewScrollMode = (smPixelScrolling, smNodeScrolling);\r\n  TTMSFNCTreeViewScrollUpdate = (suContinuous, suOnce);\r\n\r\n  TTMSFNCTreeViewBase = class(TTMSFNCCustomControl)\r\n  private\r\n    FSaveHScrollPos, FSaveVScrollPos: Single;\r\n    FTotalRowHeight: Double;\r\n    FNodeListBuild: Boolean;\r\n    FTotalColumnWidth: Double;\r\n    FStartOffset: Double;\r\n    FStartCol, FStopCol, FStartRow, FStopRow: Integer;\r\n    FStartX, FStopX, FStartY, FStopY: Double;\r\n    FBlockScrollingUpdate: Boolean;\r\n    FUpdateCount: Integer;\r\n    FVerticalScrollBar, FHorizontalScrollBar: TScrollBar;\r\n    FCustomVerticalScrollBar, FCustomHorizontalScrollBar: TTMSFNCScrollBar;\r\n    FRowCount: Integer;\r\n    FColumnCount: Integer;\r\n    FColumnW, FColumnP: TTMSFNCTreeViewDoubleList;\r\n    FDefaultRowHeight: Double;\r\n    FDefaultColumnWidth: Double;\r\n    FVerticalScrollBarVisible: Boolean;\r\n    FHorizontalScrollBarVisible: Boolean;\r\n    FScrollMode: TTMSFNCTreeViewScrollMode;\r\n    FIsMouseDown: Boolean;\r\n    FDelayedLoading: Boolean;\r\n    FStretchScrollBars: Boolean;\r\n    FBlockUpdateNodeList: Boolean;\r\n    FBlockUpdateNode: Boolean;\r\n    FBlockRemoveNode: Integer;\r\n    FBlockUserInput: Boolean;\r\n    FBlockMouseClick: Boolean;\r\n    FCustomScrollBars: Boolean;\r\n    FScrollUpdate: TTMSFNCTreeViewScrollUpdate;\r\n    FDefaultColumnMinWidth: Double;\r\n    FColumnMinW: TTMSFNCTreeViewDoubleList;\r\n    procedure SetColumnCount(const Value: Integer);\r\n    procedure SetRowCount(const Value: Integer);\r\n    procedure SetDefaultColumnWidth(const Value: Double);\r\n    procedure SetDefaultRowHeight(const Value: Double);\r\n    procedure SetHorizontalScrollBarVisible(const Value: Boolean);\r\n    procedure SetVerticalScrollBarVisible(const Value: Boolean);\r\n    procedure SetScrollMode(const Value: TTMSFNCTreeViewScrollMode);\r\n    procedure SetColWidths(Col: Integer; const Value: Double);\r\n    procedure SetColumnP(const Value: TTMSFNCTreeViewDoubleList);\r\n    procedure SetColumnW(const Value: TTMSFNCTreeViewDoubleList);\r\n    function GetColWidths(Col: integer): Double;\r\n    function GetColPos(Col: integer): Double;\r\n    procedure SetColPos(Col: Integer; const Value: Double);\r\n    procedure SetStretchScrollBars(const Value: Boolean);\r\n    procedure SetCustomScrollBars(const Value: Boolean);\r\n    procedure SetScrollUpdate(const Value: TTMSFNCTreeViewScrollUpdate);\r\n    function GetColMinWidths(Col: Integer): Double;\r\n    procedure SetColMinWidths(Col: Integer; const Value: Double);\r\n    procedure SetDefaultColumnMinWidth(const Value: Double);\r\n    procedure SetColumnMinW(const Value: TTMSFNCTreeViewDoubleList);\r\n  protected\r\n    function ColumnStretchingActive: Boolean; virtual; abstract;\r\n    procedure UpdateTreeView; virtual;\r\n    procedure UpdateColumns; virtual; abstract;\r\n    procedure AutoSizeColumnInternal(ACol: Integer; AUpdate: Boolean = False; ACallEventHandlers: Boolean = False); virtual; abstract;\r\n    procedure UpdateVisualRange; virtual;\r\n    procedure StretchColumn(AStretchAll: Boolean = True; ACol: Integer = -1; ANewWidth: Double = -1); virtual;\r\n    procedure StopAnimationTimer; virtual; abstract;\r\n    procedure Scroll(AHorizontalPos, AVerticalPos: Double); virtual;\r\n    procedure UpdateDisplay; virtual;\r\n    procedure VerticalScrollPositionChanged; virtual; abstract;\r\n    procedure HorizontalScrollPositionChanged; virtual; abstract;\r\n    procedure VScrollChanged(Sender: TObject);\r\n    procedure HScrollChanged(Sender: TObject);\r\n    procedure HCustomScrollChanged(Sender: TObject; {%H-}AValue: Double);\r\n    procedure VCustomScrollChanged(Sender: TObject; {%H-}AValue: Double);\r\n    procedure UpdateAutoSizing; virtual; abstract;\r\n    procedure UpdateColumnRowCalculations(AUpdateTotalRowHeight: Boolean = True); virtual; abstract;\r\n    procedure UpdateScrollBars(AUpdate: Boolean = True; ACalculate: Boolean = True);\r\n    procedure UpdateCalculations; virtual; abstract;\r\n    procedure ResetNodes(AUpdateAll: Boolean = True); virtual; abstract;\r\n    procedure UpdateColumnsCache; virtual; abstract;\r\n    procedure UpdateGroupsCache; virtual; abstract;\r\n    procedure UpdateNodesCache(AUpdateNodes: Boolean = True; AResetNodes: Boolean = False); virtual; abstract;\r\n    procedure UpdateTreeViewCache; virtual;\r\n    procedure UpdateTreeViewDisplay; virtual;\r\n    procedure Loaded; override;\r\n    procedure SetHScrollValue(AValue: Single); virtual;\r\n    procedure SetVScrollValue(AValue: Single); virtual;\r\n    procedure UpdateControlAfterResize; override;\r\n    function CanScrollDown: Boolean; virtual;\r\n    function CanScrollUp: Boolean; virtual;\r\n    function ScrollLimitation: Boolean; virtual;\r\n    function IsColumnVisible({%H-}ACol: Integer): Boolean; virtual;\r\n    function GetRowHeight({%H-}ARow: Integer): Double; virtual;\r\n    function GetCalculationRect: TRectF; virtual;\r\n    function GetContentRect: TRectF; override;\r\n    function GetContentClipRect: TRectF; virtual;\r\n    function GetHScrollValue: Single; virtual;\r\n    function GetVScrollValue: Single; virtual;\r\n    function GetVViewPortSize: Single; virtual;\r\n    function GetHViewPortSize: Single; virtual;\r\n    function GetVScrollOffset: Single; virtual;\r\n    function GetColumnViewPortSize: Double; virtual;\r\n    function GetRowViewPortSize: Double; virtual;\r\n    property TotalColumnWidth: Double read FTotalColumnWidth write FTotalColumnWidth;\r\n    property TotalRowHeight: Double read FTotalRowHeight write FTotalRowHeight;\r\n    property IsMouseDown: Boolean read FIsMouseDown write FIsMouseDown;\r\n    property BlockUserInput: Boolean read FBlockUserInput write FBlockUserInput;\r\n    property BlockMouseClick: Boolean read FBlockMouseClick write FBlockMouseClick;\r\n    property DefaultRowHeight: Double read FDefaultRowHeight write SetDefaultRowHeight;\r\n    property DefaultColumnWidth: Double read FDefaultColumnWidth write SetDefaultColumnWidth;\r\n    property DefaultColumnMinWidth: Double read FDefaultColumnMinWidth write SetDefaultColumnMinWidth;\r\n    property HorizontalScrollBarVisible: Boolean read FHorizontalScrollBarVisible write SetHorizontalScrollBarVisible default True;\r\n    property VerticalScrollBarVisible: Boolean read FVerticalScrollBarVisible write SetVerticalScrollBarVisible default True;\r\n    property RowCount: Integer read FRowCount write SetRowCount;\r\n    property ColumnCount: Integer read FColumnCount write SetColumnCount;\r\n    property ScrollMode: TTMSFNCTreeViewScrollMode read FScrollMode write SetScrollMode default smPixelScrolling;\r\n    property ScrollUpdate: TTMSFNCTreeViewScrollUpdate read FScrollUpdate write SetScrollUpdate default suContinuous;\r\n    property CustomScrollBars: Boolean read FCustomScrollBars write SetCustomScrollBars default False;\r\n    property ColumnPositions[Col: Integer]: Double read GetColPos write SetColPos;\r\n    property ColumnWidths[Col: Integer]: Double read GetColWidths write SetColWidths;\r\n    property ColumnMinWidths[Col: Integer]: Double read GetColMinWidths write SetColMinWidths;\r\n    property ColumnW: TTMSFNCTreeViewDoubleList read FColumnW write SetColumnW;\r\n    property ColumnMinW: TTMSFNCTreeViewDoubleList read FColumnMinW write SetColumnMinW;\r\n    property ColumnP: TTMSFNCTreeViewDoubleList read FColumnP write SetColumnP;\r\n    property UpdateCount: Integer read FUpdateCount write FUpdateCount;\r\n    property BlockScrollingUpdate: Boolean read FBlockScrollingUpdate write FBlockScrollingUpdate;\r\n    property StretchScrollBars: Boolean read FStretchScrollBars write SetStretchScrollBars default True;\r\n    property BlockUpdateNodeList: Boolean read FBlockUpdateNodeList write FBlockUpdateNodeList;\r\n    property BlockUpdateNode: Boolean read FBlockUpdateNode write FBlockUpdateNode;\r\n    property NodeListBuild: Boolean read FNodeListBuild write FNodeListBuild;\r\n    property BlockRemoveNode: Integer read FBlockRemoveNode write FBlockRemoveNode;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure Resize; override;\r\n    procedure BeginUpdate; override;\r\n    procedure EndUpdate; override;\r\n    procedure SaveScrollPosition; virtual;\r\n    procedure RestoreScrollPosition; virtual;\r\n    procedure AutoSizeColumn(ACol: Integer); virtual;\r\n    function GetVerticalScrollPosition: Double; virtual;\r\n    function GetHorizontalScrollPosition: Double; virtual;\r\n    function HorizontalScrollBar: TScrollBar;\r\n    function VerticalScrollBar: TScrollBar;\r\n    function CustomHorizontalScrollBar: TTMSFNCScrollBar;\r\n    function CustomVerticalScrollBar: TTMSFNCScrollBar;\r\n    function StartCol: Integer;\r\n    function StopCol: Integer;\r\n    function StartX: Double;\r\n    function StopX: Double;\r\n    function StartRow: Integer;\r\n    function StartOffset: Double;\r\n    function StopRow: Integer;\r\n    function StartY: Double;\r\n    function StopY: Double;\r\n    function GetColumnWidth(AColumn: Integer): Double; virtual;\r\n    function GetColumnPosition(AColumn: Integer): Double; virtual;\r\n    function GetTotalColumnNodeWidth: Double; virtual;\r\n    function GetTotalColumnWidth: Double; virtual;\r\n    function GetTotalRowHeight: Double; virtual;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  Math, WEBLib.TMSFNCUtils, SysUtils, WEBLib.Forms;\r\n\r\n{ TTMSFNCTreeViewBase }\r\n\r\nprocedure TTMSFNCTreeViewBase.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if Source is TTMSFNCTreeViewBase then\r\n  begin\r\n    FScrollMode := (Source as TTMSFNCTreeViewBase).ScrollMode;\r\n    FStretchScrollBars := (Source as TTMSFNCTreeViewBase).StretchScrollBars;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.RestoreScrollPosition;\r\nbegin\r\n  Scroll(FSaveHScrollPos, FSaveVScrollPos);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.SaveScrollPosition;\r\nbegin\r\n  FSaveHScrollPos := GetHScrollValue;\r\n  FSaveVScrollPos := GetVScrollValue;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.BeginUpdate;\r\nbegin\r\n  inherited;\r\n  Inc(FUpdateCount);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.CanScrollDown: Boolean;\r\nbegin\r\n  Result := GetVerticalScrollPosition < GetTotalRowHeight - GetVViewPortSize;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.CanScrollUp: Boolean;\r\nbegin\r\n  Result := GetVerticalScrollPosition > 0;\r\nend;\r\n\r\nconstructor TTMSFNCTreeViewBase.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FDelayedLoading := False;\r\n\r\n  FStretchScrollBars := True;\r\n\r\n  FScrollUpdate := suContinuous;\r\n\r\n  FCustomVerticalScrollBar := TTMSFNCScrollBar.Create(Self);\r\n  FCustomVerticalScrollBar.Parent := Self;\r\n  FCustomHorizontalScrollBar := TTMSFNCScrollBar.Create(Self);\r\n  FCustomHorizontalScrollBar.Parent := Self;\r\n\r\n  FVerticalScrollBar := TScrollBar.Create(Self);\r\n  FVerticalScrollBar.Parent := Self;\r\n  FHorizontalScrollBar := TScrollBar.Create(Self);\r\n  FHorizontalScrollBar.Parent := Self;\r\n\r\n  FCustomVerticalScrollBar.Appearance.ThumbButtonSize := 0;\r\n  FCustomHorizontalScrollBar.Appearance.ThumbButtonSize := 0;\r\n\r\n  {$IFDEF FMXLIB}\r\n  FVerticalScrollBar.Stored := False;\r\n  FHorizontalScrollBar.Stored := False;\r\n  FCustomVerticalScrollBar.Stored := False;\r\n  FCustomHorizontalScrollBar.Stored := False;\r\n  FVerticalScrollBar.Orientation := TOrientation.Vertical;\r\n  {$ENDIF}\r\n\r\n  FCustomHorizontalScrollBar.Kind := sbkHorizontal;\r\n\r\n  {$IFDEF CMNWEBLIB}\r\n  FVerticalScrollBar.DoubleBuffered := False;\r\n  FHorizontalScrollBar.DoubleBuffered := False;\r\n  FVerticalScrollBar.Kind := sbVertical;\r\n  {$ENDIF}\r\n\r\n  FVerticalScrollBar.Visible := True;\r\n  FHorizontalScrollBar.Visible := True;\r\n  FCustomVerticalScrollBar.Visible := False;\r\n  FCustomHorizontalScrollBar.Visible := False;\r\n  FVerticalScrollBar.OnChange := @VScrollChanged;\r\n  FHorizontalScrollBar.OnChange := @HScrollChanged;\r\n  FCustomHorizontalScrollBar.OnValueChanged := HCustomScrollChanged;\r\n  FCustomVerticalScrollBar.OnValueChanged := VCustomScrollChanged;\r\n\r\n  FVerticalScrollBarVisible := True;\r\n  FHorizontalScrollBarVisible := True;\r\n\r\n  FScrollMode := smPixelScrolling;\r\n\r\n  FColumnW := TTMSFNCTreeViewDoubleList.Create(Self);\r\n  FColumnMinW := TTMSFNCTreeViewDoubleList.Create(Self);\r\n  FColumnP := TTMSFNCTreeViewDoubleList.Create(Self);\r\n\r\n  FDefaultRowHeight := 25;\r\n  FDefaultColumnWidth := 75;\r\n  FDefaultColumnMinWidth := 0;\r\n  FColumnCount := 0;\r\n  FRowCount := 0;\r\n  FVerticalScrollBarVisible := True;\r\n  FHorizontalScrollBarVisible := True;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.CustomHorizontalScrollBar: TTMSFNCScrollBar;\r\nbegin\r\n  Result := FCustomHorizontalScrollBar;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.CustomVerticalScrollBar: TTMSFNCScrollBar;\r\nbegin\r\n  Result := FCustomVerticalScrollBar;\r\nend;\r\n\r\ndestructor TTMSFNCTreeViewBase.Destroy;\r\nbegin\r\n  FColumnP.Free;\r\n  FColumnMinW.Free;\r\n  FColumnW.Free;\r\n  FCustomVerticalScrollBar.Free;\r\n  FCustomHorizontalScrollBar.Free;\r\n  FVerticalScrollBar.Free;\r\n  FHorizontalScrollBar.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.GetContentRect: TRectF;\r\nbegin\r\n  Result := inherited GetContentRect;\r\n  if CustomScrollBars then\r\n  begin\r\n    if CustomHorizontalScrollBar.Visible then\r\n      Result.Bottom := Result.Bottom - CustomHorizontalScrollBar.Height - 1;\r\n\r\n    if CustomVerticalScrollBar.Visible then\r\n      Result.Right := Result.Right - CustomVerticalScrollBar.Width - 1;\r\n  end\r\n  else\r\n  begin\r\n    if HorizontalScrollBar.Visible then\r\n      Result.Bottom := Result.Bottom - HorizontalScrollBar.Height - 1;\r\n\r\n    if VerticalScrollBar.Visible then\r\n      Result.Right := Result.Right - VerticalScrollBar.Width - 1;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.GetContentClipRect: TRectF;\r\nbegin\r\n  Result := GetContentRect;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.GetCalculationRect: TRectF;\r\nbegin\r\n  Result := LocalRect;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.GetHorizontalScrollPosition: Double;\r\nvar\r\n  hVal, scrollh: Double;\r\nbegin\r\n  hVal := GetHScrollValue;\r\n  if ScrollMode = smNodeScrolling then\r\n  begin\r\n    scrollh := ColumnPositions[Round(hval)];\r\n    hVal := scrollh;\r\n  end;\r\n\r\n  Result := hVal;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.GetHScrollValue: Single;\r\nbegin\r\n  if CustomScrollBars then\r\n    Result := Min(CustomHorizontalScrollBar.Max - CustomHorizontalScrollBar.PageSize, Max(0, CustomHorizontalScrollBar.Value))\r\n  else\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    Result := Min(HorizontalScrollBar.Max - HorizontalScrollBar.ViewportSize, Max(0, HorizontalScrollBar.Value));\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    {$IFNDEF LCLLIB}\r\n    Result := Round(Min(HorizontalScrollBar.Max - HorizontalScrollBar.PageSize, Max(0, HorizontalScrollBar.Position)));\r\n    {$ENDIF}\r\n    {$IFDEF LCLLIB}\r\n    {$IFDEF MSWINDOWS}\r\n    Result := {%H-}Min(HorizontalScrollBar.Max - HorizontalScrollBar.PageSize, Max(0, Round(HorizontalScrollBar.Position)));\r\n    {$ELSE}\r\n    case ScrollMode of\r\n      smPixelScrolling: Result := {%H-}Min(HorizontalScrollBar.Max, Max(0, Round(HorizontalScrollBar.Position - HorizontalScrollBar.Position * (HorizontalScrollBar.PageSize / HorizontalScrollBar.Max))));\r\n      smNodeScrolling: Result := {%H-}Min(HorizontalScrollBar.Max, Max(0, Round(HorizontalScrollBar.Position)));\r\n    end;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.GetHViewPortSize: Single;\r\nbegin\r\n  if CustomScrollBars then\r\n    Result := CustomHorizontalScrollBar.PageSize\r\n  else\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    Result := HorizontalScrollBar.ViewportSize;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    Result := HorizontalScrollBar.PageSize;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.GetRowHeight(ARow: Integer): Double;\r\nbegin\r\n  Result := 0;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.GetRowViewPortSize: Double;\r\nvar\r\n  I,cnt: Integer;\r\n  h: Double;\r\n  ch: Double;\r\n  r: TRectF;\r\nbegin\r\n  r := GetContentRect;\r\n  ch := r.Bottom - r.Top;\r\n  Result := 0;\r\n  h := 0;\r\n  cnt := 0;\r\n  for I := RowCount - 1 downto 0 do\r\n  begin\r\n    h := h + GetRowHeight(I);\r\n    if h > ch then\r\n    begin\r\n      Result := Max(1, cnt);\r\n      Break;\r\n    end;\r\n    Inc(cnt);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.GetTotalColumnNodeWidth: Double;\r\nbegin\r\n  Result := TotalColumnWidth;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.GetTotalColumnWidth: Double;\r\nbegin\r\n  Result := TotalColumnWidth;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.GetTotalRowHeight: Double;\r\nbegin\r\n  Result := TotalRowHeight;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.GetVerticalScrollPosition: Double;\r\nvar\r\n  vVal{, scrollv}: Double;\r\nbegin\r\n  vVal := GetVScrollValue;\r\n  if ScrollMode = smNodeScrolling then\r\n  begin\r\n//    scrollv := RowPositions[Round(vval)];\r\n//    vVal := scrollv;\r\n  end;\r\n\r\n  Result := vVal;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.GetVViewPortSize: Single;\r\nbegin\r\n  if CustomScrollBars then\r\n    Result := CustomVerticalScrollBar.PageSize\r\n  else\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    Result := VerticalScrollBar.ViewportSize;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    Result := VerticalScrollBar.PageSize;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.GetVScrollOffset: Single;\r\nbegin\r\n  Result := 0;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.GetVScrollValue: Single;\r\nbegin\r\n  if CustomScrollBars then\r\n    Result := Min(CustomVerticalScrollBar.Max - CustomVerticalScrollBar.PageSize, Max(0, CustomVerticalScrollBar.Value))\r\n  else\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    Result := Min(VerticalScrollBar.Max - VerticalScrollBar.ViewportSize, Max(0, VerticalScrollBar.Value));\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    {$IFNDEF LCLLIB}\r\n    Result := Round(Min(VerticalScrollBar.Max - VerticalScrollBar.PageSize, Max(0, VerticalScrollBar.Position)));\r\n    {$ENDIF}\r\n    {$IFDEF LCLLIB}\r\n    {$IFDEF MSWINDOWS}\r\n    Result := {%H-}Min(VerticalScrollBar.Max - VerticalScrollBar.PageSize, Max(0, Round(VerticalScrollBar.Position)));\r\n    {$ELSE}\r\n    case ScrollMode of\r\n      smPixelScrolling: Result := {%H-}Min(VerticalScrollBar.Max, Max(0, Round(VerticalScrollBar.Position - VerticalScrollBar.Position * (VerticalScrollBar.PageSize / VerticalScrollBar.Max))));\r\n      smNodeScrolling: Result := {%H-}Min(VerticalScrollBar.Max, Max(0, Round(VerticalScrollBar.Position)));\r\n    end;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.HCustomScrollChanged(Sender: TObject;\r\n  AValue: Double);\r\nbegin\r\n  if FBlockScrollingUpdate or not CustomScrollBars then\r\n    Exit;\r\n\r\n  if not IsMouseDown then\r\n    StopAnimationTimer;\r\n\r\n  HorizontalScrollPositionChanged;\r\n  SetHScrollValue(GetHScrollValue);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.HorizontalScrollBar: TScrollBar;\r\nbegin\r\n  Result := FHorizontalScrollBar;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.HScrollChanged(Sender: TObject);\r\nbegin\r\n  if FBlockScrollingUpdate then\r\n    Exit;\r\n\r\n  if not IsMouseDown then\r\n    StopAnimationTimer;\r\n\r\n  HorizontalScrollPositionChanged;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.IsColumnVisible(ACol: Integer): Boolean;\r\nbegin\r\n  Result := True;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.Loaded;\r\nbegin\r\n  inherited;\r\n  UpdateTreeViewCache;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.VCustomScrollChanged(Sender: TObject;\r\n  AValue: Double);\r\nbegin\r\n  if FBlockScrollingUpdate or not CustomScrollBars then\r\n    Exit;\r\n\r\n  if not IsMouseDown then\r\n    StopAnimationTimer;\r\n\r\n  VerticalScrollPositionChanged;\r\n  SetVScrollValue(GetVScrollValue);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.VerticalScrollBar: TScrollBar;\r\nbegin\r\n  Result := FVerticalScrollBar;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.VScrollChanged(Sender: TObject);\r\nbegin\r\n  if FBlockScrollingUpdate then\r\n    Exit;\r\n\r\n  if not IsMouseDown then\r\n    StopAnimationTimer;\r\n\r\n  VerticalScrollPositionChanged;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.EndUpdate;\r\nbegin\r\n  inherited;\r\n  Dec(FUpdateCount);\r\n  if FUpdateCount = 0 then\r\n    UpdateTreeViewCache;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.GetColumnPosition(AColumn: Integer): Double;\r\nbegin\r\n  Result := ColumnPositions[AColumn];\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.GetColumnViewPortSize: Double;\r\nvar\r\n  I,cnt: Integer;\r\n  w: Double;\r\n  cw: Double;\r\n  r: TRectF;\r\nbegin\r\n  r := GetContentRect;\r\n  cw := r.Right - r.Left;\r\n  Result := 0;\r\n  w := 0;\r\n  cnt := 0;\r\n  for I := ColumnCount - 1 downto 0 do\r\n  begin\r\n    w := w + ColumnWidths[I];\r\n    if w > cw then\r\n    begin\r\n      Result := Max(1, cnt);\r\n      Break;\r\n    end;\r\n    Inc(cnt);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.GetColumnWidth(AColumn: Integer): Double;\r\nbegin\r\n  Result := ColumnWidths[AColumn];\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.GetColWidths(Col: Integer): Double;\r\nvar\r\n  idx: Integer;\r\nbegin\r\n  idx := ColumnW.IndexOf(Col);\r\n  if idx <> -1 then\r\n    Result := ColumnW[idx].Value\r\n  else\r\n    Result := DefaultColumnWidth;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.GetColMinWidths(Col: Integer): Double;\r\nvar\r\n  idx: Integer;\r\nbegin\r\n  idx := ColumnMinW.IndexOf(Col);\r\n  if idx <> -1 then\r\n    Result := ColumnMinW[idx].Value\r\n  else\r\n    Result := DefaultColumnMinWidth;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.GetColPos(Col: Integer): Double;\r\nvar\r\n  idx: Integer;\r\nbegin\r\n  idx := ColumnP.IndexOf(Col);\r\n  if idx <> -1 then\r\n    Result := ColumnP[idx].Value\r\n  else\r\n    Result := -1;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.Resize;\r\nbegin\r\n  inherited;\r\n  {$IFNDEF LCLLIB}\r\n  UpdateControlAfterResize;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.Scroll(AHorizontalPos, AVerticalPos: Double);\r\nbegin\r\n  FBlockScrollingUpdate := True;\r\n  SetHScrollValue(AHorizontalPos);\r\n  SetVScrollValue(AVerticalPos);\r\n  FBlockScrollingUpdate := False;\r\n  UpdateDisplay;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.ScrollLimitation: Boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.SetColumnCount(const Value: Integer);\r\nbegin\r\n  if FColumnCount <> Value then\r\n    FColumnCount := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.SetColumnMinW(const Value: TTMSFNCTreeViewDoubleList);\r\nbegin\r\n  FColumnMinW.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.SetColumnW(const Value: TTMSFNCTreeViewDoubleList);\r\nbegin\r\n  FColumnW.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.SetColumnP(const Value: TTMSFNCTreeViewDoubleList);\r\nbegin\r\n  FColumnP.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.SetColWidths(Col: Integer; const Value: Double);\r\nvar\r\n  idx: Integer;\r\n  c: TTMSFNCTreeViewDoubleListItem;\r\nbegin\r\n  idx := ColumnW.IndexOf(Col);\r\n  if (idx >= 0) and (idx <= ColumnW.Count - 1) then\r\n  begin\r\n    if Value = DefaultColumnWidth then\r\n      ColumnW.Delete(idx)\r\n    else\r\n    begin\r\n      ColumnW[idx].Value := Max(0, Value);\r\n      ColumnW[idx].CellVal := Col;\r\n    end;\r\n  end\r\n  else if Value <> DefaultColumnWidth then\r\n  begin\r\n    c := ColumnW.Add;\r\n    c.Value := Max(0, Value);\r\n    c.CellVal := Col;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.SetCustomScrollBars(const Value: Boolean);\r\nbegin\r\n  if FCustomScrollBars <> Value then\r\n  begin\r\n    FCustomScrollBars := Value;\r\n    UpdateTreeViewCache;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.SetColMinWidths(Col: Integer; const Value: Double);\r\nvar\r\n  idx: Integer;\r\n  c: TTMSFNCTreeViewDoubleListItem;\r\nbegin\r\n  idx := ColumnMinW.IndexOf(Col);\r\n  if (idx >= 0) and (idx <= ColumnMinW.Count - 1) then\r\n  begin\r\n    if Value = DefaultColumnMinWidth then\r\n      ColumnMinW.Delete(idx)\r\n    else\r\n    begin\r\n      ColumnMinW[idx].Value := Max(0, Value);\r\n      ColumnMinW[idx].CellVal := Col;\r\n    end;\r\n  end\r\n  else if Value <> DefaultColumnMinWidth then\r\n  begin\r\n    c := ColumnMinW.Add;\r\n    c.Value := Max(0, Value);\r\n    c.CellVal := Col;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.SetColPos(Col: Integer; const Value: Double);\r\nvar\r\n  idx: Integer;\r\n  c: TTMSFNCTreeViewDoubleListItem;\r\nbegin\r\n  idx := ColumnP.IndexOf(Col);\r\n  if (idx >= 0) and (idx <= ColumnP.Count - 1) then\r\n  begin\r\n    if Value = -1 then\r\n      ColumnP.Delete(idx)\r\n    else\r\n    begin\r\n      ColumnP[idx].Value := Max(0, Value);\r\n      ColumnP[idx].CellVal := Col;\r\n    end;\r\n  end\r\n  else if Value <> -1 then\r\n  begin\r\n    c := ColumnP.Add;\r\n    c.Value := Max(0, Value);\r\n    c.CellVal := Col;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.SetDefaultColumnMinWidth(const Value: Double);\r\nbegin\r\n  if FDefaultColumnMinWidth <> Value then\r\n    FDefaultColumnMinWidth := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.SetDefaultColumnWidth(const Value: Double);\r\nbegin\r\n  if FDefaultColumnWidth <> Value then\r\n    FDefaultColumnWidth := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.SetDefaultRowHeight(const Value: Double);\r\nbegin\r\n  if FDefaultRowHeight <> Value then\r\n    FDefaultRowHeight := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.SetHorizontalScrollBarVisible(\r\n  const Value: Boolean);\r\nbegin\r\n  if FHorizontalScrollBarVisible <> Value then\r\n  begin\r\n    FHorizontalScrollBarVisible := Value;\r\n    UpdateTreeViewCache;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.SetHScrollValue(AValue: Single);\r\nbegin\r\n  if CustomScrollBars then\r\n  begin\r\n    if CustomHorizontalScrollBar.PageSize > 0 then\r\n      CustomHorizontalScrollBar.Value := Min(CustomHorizontalScrollBar.Max - CustomHorizontalScrollBar.PageSize, Max(0, AValue));\r\n  end\r\n  else\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    HorizontalScrollBar.Value := Min(HorizontalScrollBar.Max - HorizontalScrollBar.ViewportSize, Max(0, AValue));\r\n    {$ENDIF}\r\n    {$IFDEF VCLLIB}\r\n    HorizontalScrollBar.Position := Min(HorizontalScrollBar.Max - HorizontalScrollBar.PageSize, Max(0, Round(AValue)));\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    HorizontalScrollBar.Position := Round(Min(HorizontalScrollBar.Max - HorizontalScrollBar.PageSize, Max(0, AValue)));\r\n    {$ENDIF}\r\n    {$IFDEF LCLLIB}\r\n    {$IFDEF MSWINDOWS}\r\n    HorizontalScrollBar.Position := {%H-}Min(HorizontalScrollBar.Max - HorizontalScrollBar.PageSize, Max(0, Round(AValue)));\r\n    {$ELSE}\r\n    case ScrollMode of\r\n      smPixelScrolling: HorizontalScrollBar.Position := {%H-}Min(HorizontalScrollBar.Max, Max(0, Round(AValue + AValue * (HorizontalScrollBar.PageSize / (HorizontalScrollBar.Max - HorizontalScrollBar.PageSize)))));\r\n      smNodeScrolling: HorizontalScrollBar.Position := {%H-}Min(HorizontalScrollBar.Max - HorizontalScrollBar.PageSize, Max(0, Round(AValue)));\r\n    end;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.SetRowCount(const Value: Integer);\r\nbegin\r\n  if FRowCount <> Value then\r\n    FRowCount := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.SetScrollMode(\r\n  const Value: TTMSFNCTreeViewScrollMode);\r\nbegin\r\n  if FScrollMode <> Value then\r\n  begin\r\n    FScrollMode := Value;\r\n    UpdateTreeViewDisplay;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.SetScrollUpdate(\r\n  const Value: TTMSFNCTreeViewScrollUpdate);\r\nbegin\r\n  if FScrollUpdate <> Value then\r\n  begin\r\n    FScrollUpdate := Value;\r\n    if Assigned(FCustomVerticalScrollBar) then\r\n      FCustomVerticalScrollBar.Tracking := ScrollUpdate = suContinuous;\r\n\r\n    if Assigned(FCustomHorizontalScrollBar) then\r\n      FCustomHorizontalScrollBar.Tracking := ScrollUpdate = suContinuous;\r\n\r\n    UpdateTreeViewCache;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.SetStretchScrollBars(const Value: Boolean);\r\nbegin\r\n  if FStretchScrollBars <> Value then\r\n  begin\r\n    FStretchScrollBars := Value;\r\n    UpdateTreeViewDisplay;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.SetVerticalScrollBarVisible(\r\n  const Value: Boolean);\r\nbegin\r\n  if FVerticalScrollBarVisible <> Value then\r\n  begin\r\n    FVerticalScrollBarVisible := Value;\r\n    UpdateTreeViewCache;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.SetVScrollValue(AValue: Single);\r\nbegin\r\n  if CustomScrollBars then\r\n  begin\r\n    if CustomVerticalScrollBar.PageSize > 0 then\r\n      CustomVerticalScrollBar.Value := Min(CustomVerticalScrollBar.Max - CustomVerticalScrollBar.PageSize, Max(0, AValue));\r\n  end\r\n  else\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    VerticalScrollBar.Value := Min(VerticalScrollBar.Max - VerticalScrollBar.ViewportSize, Max(0, AValue));\r\n    {$ENDIF}\r\n    {$IFDEF VCLLIB}\r\n    VerticalScrollBar.Position := Min(VerticalScrollBar.Max - VerticalScrollBar.PageSize, Max(0, Round(AValue)));\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    VerticalScrollBar.Position := Round(Min(VerticalScrollBar.Max - VerticalScrollBar.PageSize, Max(0, AValue)));\r\n    {$ENDIF}\r\n    {$IFDEF LCLLIB}\r\n    {$IFDEF MSWINDOWS}\r\n    VerticalScrollBar.Position := {%H-}Min(VerticalScrollBar.Max - VerticalScrollBar.PageSize, Max(0, Round(AValue)));\r\n    {$ELSE}\r\n    case ScrollMode of\r\n      smPixelScrolling: VerticalScrollBar.Position := {%H-}Min(VerticalScrollBar.Max, Max(0, Round(AValue + AValue * (VerticalScrollBar.PageSize / (VerticalScrollBar.Max - VerticalScrollBar.PageSize)))));\r\n      smNodeScrolling: VerticalScrollBar.Position := {%H-}Min(VerticalScrollBar.Max - VerticalScrollBar.PageSize, Max(0, Round(AValue)));\r\n    end;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.StartCol: Integer;\r\nbegin\r\n  Result := FStartCol;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.StartOffset: Double;\r\nbegin\r\n  Result := FStartOffset;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.StartRow: Integer;\r\nbegin\r\n  Result := FStartRow;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.StartX: Double;\r\nbegin\r\n  Result := FStartX;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.StartY: Double;\r\nbegin\r\n  Result := FStartY;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.StopCol: Integer;\r\nbegin\r\n  Result := FStopCol;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.StopRow: Integer;\r\nbegin\r\n  Result := FStopRow;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.StopX: Double;\r\nbegin\r\n  Result := FStopX;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewBase.StopY: Double;\r\nbegin\r\n  Result := FStopY;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.StretchColumn(AStretchAll: Boolean = True; ACol: Integer = -1; ANewWidth: Double = -1);\r\nvar\r\n  i: Integer;\r\n  w, nw, d: Double;\r\n  cnt: Integer;\r\n  horz, vert: TScrollBar;\r\n  r: TRectF;\r\nbegin\r\n  horz := HorizontalScrollBar;\r\n  vert := VerticalScrollBar;\r\n  if not Assigned(vert) or not Assigned(horz) then\r\n    Exit;\r\n\r\n  if ANewWidth = -1 then\r\n  begin\r\n    r := GetContentRect;\r\n    nw := r.Right - r.Left;\r\n  end\r\n  else\r\n    nw := ANewWidth;\r\n\r\n  cnt := 0;\r\n  for I := 0 to ColumnCount - 1 do\r\n  begin\r\n    if IsColumnVisible(I) then\r\n      cnt := cnt + 1;\r\n  end;\r\n\r\n  if ACol = - 1 then\r\n    ACol := ColumnCount - 1;\r\n\r\n  if (cnt = 0) then\r\n    Exit;\r\n\r\n  if (ACol >= ColumnCount) and not AStretchAll and not IsLoading then\r\n  begin\r\n    {$IFNDEF WEBLIB}\r\n    raise Exception.Create('Stretch column index out of range');\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    Exit;\r\n    {$ENDIF}\r\n  end;\r\n\r\n  if ColumnCount = 1 then\r\n  begin\r\n    if IsColumnVisible(0) then\r\n      ColumnWidths[0] := nw;\r\n\r\n    Exit;\r\n  end;\r\n\r\n  w := 0;\r\n\r\n  if AStretchAll then\r\n  begin\r\n    if (cnt > 0) then\r\n    begin\r\n      d := nw;\r\n\r\n      w := d / cnt;\r\n\r\n      for i := 0 to ColumnCount - 1 do\r\n      begin\r\n        if IsColumnVisible(i) then\r\n          ColumnWidths[i] := Max(ColumnMinWidths[I], w);\r\n      end;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    for i := 0 to ColumnCount - 1 do\r\n    begin\r\n      if (i <> ACol) and IsColumnVisible(i) then\r\n        w := w + ColumnWidths[i];\r\n    end;\r\n\r\n    if IsColumnVisible(ACol) then\r\n      ColumnWidths[ACol] := Max(ColumnMinWidths[ACol], (nw - w)) {- 1};\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.AutoSizeColumn(ACol: Integer);\r\nbegin\r\n  AutoSizeColumnInternal(ACol, True, True);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.UpdateVisualRange;\r\nvar\r\n  c, r: Integer;\r\n  xval, yval, yoffs: Double;\r\n  cw, ch: Double;\r\n  vpos, hpos: Double;\r\n  cr: TRectF;\r\n  rh: Double;\r\nbegin\r\n  hpos := GetHorizontalScrollPosition;\r\n  vpos := GetVerticalScrollPosition;\r\n  yoffs := GetVScrollOffset;\r\n  cr := GetContentRect;\r\n  xval := -hpos;\r\n  yval := -vpos;\r\n  cw := cr.Right - cr.Left;\r\n  ch := cr.Bottom - cr.Top;\r\n\r\n  FStartCol := -1;\r\n  FStartRow := -1;\r\n  FStopCol := -1;\r\n  FStopRow := -1;\r\n  FStartX := cr.Left;\r\n  FStopX := cr.Left;\r\n  FStartY := cr.Top;\r\n  FStopY := cr.Top;\r\n  FStartOffset := 0;\r\n\r\n  for c := 0 to ColumnCount - 1 do\r\n  begin\r\n    xval := xval + ColumnWidths[c];\r\n    if (xval > 0) and (FStartCol = -1) then\r\n    begin\r\n      FStartCol := c;\r\n      FStartX := FStartX + int(xval - ColumnWidths[c]);\r\n    end;\r\n\r\n    if (xval >= cw) and (FStopCol = -1) then\r\n    begin\r\n      FStopCol := c;\r\n      FStopX := FStopX + int(xval);\r\n    end;\r\n\r\n    if (FStartCol > -1) and (FStopCol > -1) then\r\n      Break;\r\n  end;\r\n\r\n  for r := 0 to RowCount - 1 do\r\n  begin\r\n    rh := GetRowHeight(r);\r\n    yval := yval + rh;\r\n    if (yval > -yoffs) and (FStartRow = -1) then\r\n    begin\r\n      FStartRow := r;\r\n      FStartOffset := yval - rh;\r\n      FStartY := FStartY + int(FStartOffset);\r\n    end;\r\n\r\n    if (yval >= ch) and (FStopRow = -1) then\r\n    begin\r\n      FStopRow := r;\r\n      FStopY := FStopY + int(yval);\r\n    end;\r\n\r\n    if (FStartRow > -1) and (FStopRow > -1) then\r\n      Break;\r\n  end;\r\n\r\n  if (FStartRow > -1) and (FStopRow = -1) then\r\n    FStopRow := RowCount - 1;\r\n\r\n  if (FStartCol > -1) and (FStopCol = -1) then\r\n    FStopCol := ColumnCount - 1;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.UpdateControlAfterResize;\r\nbegin\r\n  if (UpdateCount > 0) or (csDestroying in ComponentState) or (csLoading in ComponentState) then\r\n    Exit;\r\n\r\n  ResetNodes;\r\n  SaveScrollPosition;\r\n  UpdateNodesCache(True, True);\r\n  UpdateGroupsCache;\r\n  UpdateColumnsCache;\r\n  RestoreScrollPosition;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.UpdateDisplay;\r\nbegin\r\n  //ResetVisibleNodes;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.UpdateTreeView;\r\nbegin\r\n  SaveScrollPosition;\r\n  UpdateNodesCache(True, True);\r\n  RestoreScrollPosition;\r\n  UpdateGroupsCache;\r\n  UpdateColumnsCache;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.UpdateTreeViewCache;\r\nbegin\r\n  if (UpdateCount > 0) or BlockUpdateNode or (csDestroying in ComponentState) or (csLoading in ComponentState) then\r\n    Exit;\r\n\r\n  ResetNodes;\r\n  UpdateCalculations;\r\n  UpdateColumns;\r\n  UpdateScrollBars;\r\n  UpdateNodesCache(True, True);\r\n  UpdateGroupsCache;\r\n  UpdateColumnsCache;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.UpdateTreeViewDisplay;\r\nbegin\r\n  UpdateScrollBars;\r\n  UpdateDisplay;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewBase.UpdateScrollBars(AUpdate: Boolean = True; ACalculate: Boolean = True);\r\nvar\r\n  vs, hs: TScrollBar;\r\n  vsc, hsc: TTMSFNCScrollBar;\r\n  w, h: Double;\r\n  cw, ch: Double;\r\n  cr: TRectF;\r\n  vmgr: TTMSFNCMargins;\r\n  hmgr: TTMSFNCMargins;\r\nbegin\r\n  if {$IFDEF FMXLIB} FBlockScrollingUpdate or {$ENDIF} (UpdateCount > 0) or (csDestroying in ComponentState) then\r\n    Exit;\r\n\r\n  FBlockScrollingUpdate := True;\r\n\r\n  if ACalculate then\r\n  begin\r\n    UpdateAutoSizing;\r\n    UpdateColumnRowCalculations;\r\n  end;\r\n\r\n  vs := VerticalScrollBar;\r\n  hs := HorizontalScrollBar;\r\n  vsc := CustomVerticalScrollBar;\r\n  hsc := CustomHorizontalScrollBar;\r\n  if Assigned(vs) and Assigned(hs) and Assigned(vsc) and Assigned(hsc) then\r\n  begin\r\n    if AUpdate then\r\n      cr := GetCalculationRect\r\n    else\r\n      cr := GetContentRect;\r\n\r\n    cw := cr.Right - cr.Left;\r\n    ch := cr.Bottom - cr.Top;\r\n    w := GetTotalColumnWidth;\r\n    h := GetTotalRowHeight;\r\n\r\n    hs.Visible := (w > 0) and (CompareValueEx(w, cw) = 1) and HorizontalScrollBarVisible and not ColumnStretchingActive and not CustomScrollBars;\r\n    vs.Visible := (h > 0) and (CompareValueEx(h, ch) = 1) and VerticalScrollBarVisible and not CustomScrollBars;\r\n    hsc.Visible := (w > 0) and (CompareValueEx(w, cw) = 1) and HorizontalScrollBarVisible and not ColumnStretchingActive and CustomScrollBars;\r\n    vsc.Visible := (h > 0) and (CompareValueEx(h, ch) = 1) and VerticalScrollBarVisible and CustomScrollBars;\r\n\r\n    {$IFDEF CMNWEBLIB}\r\n    if vsc.Visible and CustomScrollBars then\r\n      vsc.Parent := Self\r\n    else\r\n      vsc.Parent := nil;\r\n\r\n    if hsc.Visible and CustomScrollBars then\r\n      hsc.Parent := Self\r\n    else\r\n      hsc.Parent := nil;\r\n\r\n    if vs.Visible and not CustomScrollBars then\r\n      vs.Parent := Self\r\n    else\r\n      vs.Parent := nil;\r\n\r\n    if hs.Visible and not CustomScrollBars then\r\n      hs.Parent := Self\r\n    else\r\n      hs.Parent := nil;\r\n    {$ENDIF}\r\n\r\n    vmgr := TTMSFNCMargins.Create;\r\n    hmgr := TTMSFNCMargins.Create;\r\n\r\n    if CustomScrollBars then\r\n    begin\r\n      if vsc.Visible and StretchScrollBars then\r\n        hmgr.Right := vsc.Width + 1\r\n      else\r\n        hmgr.Right := 1;\r\n    end\r\n    else\r\n    begin\r\n      if vs.Visible and StretchScrollBars then\r\n        hmgr.Right := vs.Width + 1\r\n      else\r\n        hmgr.Right := 1;\r\n    end;\r\n\r\n    vmgr.Top := 1;\r\n    vmgr.Right := 1;\r\n    hmgr.Bottom := 1;\r\n    hmgr.Left := 1;\r\n\r\n    if CustomScrollBars then\r\n    begin\r\n      if hsc.Visible then\r\n        vmgr.Bottom := hsc.Height + 1\r\n      else\r\n        vmgr.Bottom := 1;\r\n    end\r\n    else\r\n    begin\r\n      if hs.Visible then\r\n        vmgr.Bottom := hs.Height + 1\r\n      else\r\n        vmgr.Bottom := 1;\r\n    end;\r\n\r\n    if not StretchScrollBars then\r\n    begin\r\n      cr := GetCalculationRect;\r\n      hmgr.Left := hmgr.Left + cr.Left;\r\n      hmgr.Right := hmgr.Right + (Width - cr.Right);\r\n      vmgr.Top := vmgr.Top + cr.Top;\r\n      vmgr.Bottom := vmgr.Bottom + (Height - cr.Bottom);\r\n    end;\r\n\r\n    {$IFDEF FMXLIB}\r\n    hs.Position.X := hmgr.Left;\r\n    hs.Position.Y := Height - hmgr.Bottom - hs.Height;\r\n    vs.Position.X := Width - vmgr.Right - vs.Width;\r\n    vs.Position.Y := vmgr.Top;\r\n    hs.Width := Width - hmgr.Right - hmgr.Left;\r\n    vs.Height := Height - vmgr.Bottom - vmgr.Top;\r\n    hsc.Position.X := hmgr.Left;\r\n    hsc.Position.Y := Height - hmgr.Bottom - hsc.Height;\r\n    vsc.Position.X := Width - vmgr.Right - vsc.Width;\r\n    vsc.Position.Y := vmgr.Top;\r\n    hsc.Width := Width - hmgr.Right - hmgr.Left;\r\n    vsc.Height := Height - vmgr.Bottom - vmgr.Top;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    hs.Left := Round(hmgr.Left);\r\n    hs.Top := Round(Height - hmgr.Bottom - hs.Height);\r\n    vs.Left := Round(Width - vmgr.Right - vs.Width);\r\n    vs.Top := Round(vmgr.Top);\r\n    hs.Width := Round(Max(0, Width - hmgr.Right - hmgr.Left));\r\n    vs.Height := Round(Max(0, Height - vmgr.Bottom - vmgr.Top));\r\n    {$IFDEF MSWINDOWS}\r\n    vs.Width := GetSystemMetrics(SM_CYVSCROLL);\r\n    hs.Height := GetSystemMetrics(SM_CYHSCROLL);\r\n    {$ENDIF}\r\n    vs.Height := Round(Max(0, Height - vmgr.Bottom - vmgr.Top));\r\n    hsc.Left := Round(hmgr.Left);\r\n    hsc.Top := Round(Height - hmgr.Bottom - hsc.Height);\r\n    vsc.Left := Round(Width - vmgr.Right - vsc.Width);\r\n    vsc.Top := Round(vmgr.Top);\r\n    hsc.Width := Round(Max(0, Width - hmgr.Right - hmgr.Left));\r\n    vsc.Height := Round(Max(0, Height - vmgr.Bottom - vmgr.Top));\r\n    {$ENDIF}\r\n\r\n    hmgr.Free;\r\n    vmgr.Free;\r\n\r\n    cr := GetContentRect;\r\n    cw := cr.Right - cr.Left;\r\n    ch := cr.Bottom - cr.Top;\r\n\r\n    {$IFDEF FMXLIB}\r\n    if ScrollMode = smNodeScrolling then\r\n    begin\r\n      vs.ViewportSize := GetRowViewPortSize;\r\n      vs.Max := RowCount;\r\n    end\r\n    else\r\n    begin\r\n      vs.ViewPortSize := Min(h, ch);\r\n      vs.Max := h;\r\n      vs.SmallChange := Round(DefaultRowHeight);\r\n      vs.Value := Min(vs.Value, vs.Max - vs.ViewportSize);\r\n    end;\r\n\r\n    if ScrollMode = smNodeScrolling then\r\n    begin\r\n      hs.ViewportSize := GetColumnViewPortSize;\r\n      hs.Max := ColumnCount;\r\n    end\r\n    else\r\n    begin\r\n      hs.ViewPortSize := Min(w, cw);\r\n      hs.Max := w;\r\n      hs.Value := Min(hs.Value, hs.Max - hs.ViewportSize);\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    if ScrollMode = smNodeScrolling then\r\n    begin\r\n      vs.PageSize := Round(Max(0, GetRowViewPortSize));\r\n      vs.Max := Max(vs.PageSize, RowCount);\r\n    end\r\n    else\r\n    begin\r\n      vs.PageSize := Round(Max(0, Min(h, ch)));\r\n      vs.Max := Round(Max(vs.PageSize, h));\r\n      vs.SmallChange := Round(DefaultRowHeight);\r\n      vs.LargeChange := Max(1, vs.PageSize);\r\n      vs.Position := Min(vs.Position, vs.Max);\r\n    end;\r\n\r\n    if ScrollMode = smNodeScrolling then\r\n    begin\r\n      hs.PageSize := Round(Max(0, GetColumnViewPortSize));\r\n      hs.Max := Max(hs.PageSize, ColumnCount);\r\n    end\r\n    else\r\n    begin\r\n      hs.PageSize := Round(Max(0, Min(w, cw)));\r\n      hs.Max := Round(Max(hs.PageSize, w));\r\n      hs.Position := Min(hs.Position, hs.Max);\r\n    end;\r\n    {$ENDIF}\r\n\r\n    if ScrollMode = smNodeScrolling then\r\n    begin\r\n      vsc.PageSize := GetRowViewPortSize;\r\n      vsc.Max := RowCount;\r\n    end\r\n    else\r\n    begin\r\n      vsc.PageSize := Min(h, ch);\r\n      vsc.Max := h;\r\n      vsc.SmallChange := Round(DefaultRowHeight);\r\n      vsc.Value := Min(vsc.Value, vsc.Max - vsc.PageSize);\r\n    end;\r\n\r\n    if ScrollMode = smNodeScrolling then\r\n    begin\r\n      hsc.PageSize := GetColumnViewPortSize;\r\n      hsc.Max := ColumnCount;\r\n    end\r\n    else\r\n    begin\r\n      hsc.PageSize := Min(w, cw);\r\n      hsc.Max := w;\r\n      hsc.Value := Min(hsc.Value, hsc.Max - hsc.PageSize);\r\n    end;\r\n  end;\r\n\r\n  FBlockScrollingUpdate := False;\r\n\r\n  if AUpdate then\r\n    UpdateScrollBars(False, False);\r\nend;\r\n\r\n{ TTMSFNCTreeViewDoubleListItem }\r\n\r\nconstructor TTMSFNCTreeViewDoubleListItem.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(Collection) then\r\n    FOwner := (Collection as TTMSFNCTreeViewDoubleList).FOwner;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewDoubleListItem.SetCellData(const Value: Double);\r\nbegin\r\n  FValue := Value;\r\nend;\r\n\r\n{ TTMSFNCTreeViewDoubleList }\r\n\r\nfunction TTMSFNCTreeViewDoubleList.Add: TTMSFNCTreeViewDoubleListItem;\r\nbegin\r\n  Result := TTMSFNCTreeViewDoubleListItem(inherited Add);\r\nend;\r\n\r\nconstructor TTMSFNCTreeViewDoubleList.Create(AOwner: TTMSFNCTreeViewBase);\r\nbegin\r\n  inherited Create(AOwner, TTMSFNCTreeViewDoubleListItem);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewDoubleList.GetItem(\r\n  Index: Integer): TTMSFNCTreeViewDoubleListItem;\r\nbegin\r\n  Result := TTMSFNCTreeViewDoubleListItem(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewDoubleList.IndexOf(ACellVal: Integer): Integer;\r\nvar\r\n  r: Integer;\r\nbegin\r\n  Result := -1;\r\n  for r := 0 to Count - 1 do\r\n  begin\r\n    if Items[r].CellVal = ACellVal then\r\n    begin\r\n      Result := r;\r\n      Exit;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewDoubleList.Insert(\r\n  Index: Integer): TTMSFNCTreeViewDoubleListItem;\r\nbegin\r\n  Result := TTMSFNCTreeViewDoubleListItem(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewDoubleList.SetItem(Index: Integer;\r\n  const Value: TTMSFNCTreeViewDoubleListItem);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2016 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : https://www.tmssoftware.com                       }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCTreeViewData;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF CMNLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\n{$IFNDEF LCLLIB}\r\n{$IFNDEF WEBLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 22}\r\n{$DEFINE USEOWNEDCOLLECTION}\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\n{$IFDEF LCLLIB}\r\n{$DEFINE USEOWNEDCOLLECTION}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, WEBLib.TMSFNCTypes, WEBLib.TMSFNCGraphicsTypes,\r\n  WEBLib.TMSFNCBitmapContainer, WEBLib.TMSFNCTreeViewBase\r\n  {$IFNDEF LCLLIB}\r\n  {$IFNDEF WEBLIB}\r\n  ,Generics.Collections, Types\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs\r\n  {$ENDIF}\r\n  ;\r\n\r\nresourcestring\r\n  sTMSFNCTreeViewGroup = 'Group';\r\n  sTMSFNCTreeViewColumn = 'Column';\r\n\r\nconst\r\n  {$IFDEF FMXMOBILE}\r\n  MAXLEVELDEPTH = 100;\r\n  MAXNODECOUNT = 1000000;\r\n  {$ELSE}\r\n  MAXLEVELDEPTH = 100;\r\n  MAXNODECOUNT = 2000000;\r\n  {$ENDIF}\r\n\r\ntype\r\n  TTMSFNCTreeViewCacheItem = class;\r\n  TTMSFNCTreeViewData = class;\r\n  TTMSFNCTreeViewGroup = class;\r\n  TTMSFNCTreeViewColumn = class;\r\n\r\n  TTMSFNCTreeViewNode = class;\r\n\r\n  TTMSFNCTreeViewNodeScrollPosition = (tvnspTop, tvnspBottom, tvnspMiddle);\r\n\r\n  TTMSFNCTreeViewVirtualNodeRemoveData = record\r\n    RowIndex: Integer;\r\n    Count: Integer;\r\n    ParentNode: Integer;\r\n  end;\r\n\r\n  TTMSFNCArrayTRectF = array of TRectF;\r\n  TTMSFNCArrayBoolean = array of Boolean;\r\n\r\n  TTMSFNCTreeViewVirtualNode = class\r\n  private\r\n    FTreeView: TTMSFNCTreeViewData;\r\n    FLevel: Integer;\r\n    FAddedToVisibleList: Boolean;\r\n    FChildren: Integer;\r\n    FParentNode: Integer;\r\n    FExpanded: Boolean;\r\n    FTotalChildren: Integer;\r\n    FIndex: Integer;\r\n    FRow: Integer;\r\n    FHeight: Double;\r\n    FCalculated: Boolean;\r\n    FCache: TTMSFNCTreeViewCacheItem;\r\n    FTextRects: TTMSFNCArrayTRectF;\r\n    FBitmapRects: TTMSFNCArrayTRectF;\r\n    FExpandRects: TTMSFNCArrayTRectF;\r\n    FCheckRects: TTMSFNCArrayTRectF;\r\n    FCheckStates: TTMSFNCArrayBoolean;\r\n    FNode: TTMSFNCTreeViewNode;\r\n    FExtended: Boolean;\r\n    FExtraRects: TTMSFNCArrayTRectF;\r\n    FTitleRects: TTMSFNCArrayTRectF;\r\n    FTitleHeight: Double;\r\n    FTitleExtraRects: TTMSFNCArrayTRectF;\r\n    FDataPointer: Pointer;\r\n    FDataBoolean: Boolean;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    function GetText(AColumn: Integer): String;\r\n    function GetTitle(AColumn: Integer): String;\r\n    function GetTitleExpanded(AColumn: Integer): Boolean;\r\n  protected\r\n    property Cache: TTMSFNCTreeViewCacheItem read FCache;\r\n  public\r\n    function GetParent: TTMSFNCTreeViewVirtualNode; virtual;\r\n    function GetChildCount: Integer; virtual;\r\n    function GetPrevious: TTMSFNCTreeViewVirtualNode; virtual;\r\n    function GetNext: TTMSFNCTreeViewVirtualNode; virtual;\r\n    function GetPreviousChild(ANode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewVirtualNode; virtual;\r\n    function GetNextChild(ANode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewVirtualNode; virtual;\r\n    function GetNextSibling: TTMSFNCTreeViewVirtualNode; virtual;\r\n    function GetPreviousSibling: TTMSFNCTreeViewVirtualNode; virtual;\r\n    function GetFirstChild: TTMSFNCTreeViewVirtualNode; virtual;\r\n    function GetLastChild: TTMSFNCTreeViewVirtualNode; virtual;\r\n    procedure RemoveChildren; virtual;\r\n    procedure Expand(ARecurse: Boolean = False); virtual;\r\n    procedure Collapse(ARecurse: Boolean = False); virtual;\r\n\r\n    property Children: Integer read FChildren;\r\n    property TotalChildren: Integer read FTotalChildren;\r\n    property Expanded: Boolean read FExpanded;\r\n    property Extended: Boolean read FExtended;\r\n    property Level: Integer read FLevel;\r\n    property Row: Integer read FRow;\r\n    property Calculated: Boolean read FCalculated;\r\n    property Height: Double read FHeight;\r\n    property TitleHeight: Double read FTitleHeight;\r\n    property ParentNode: Integer read FParentNode;\r\n    property Index: Integer read FIndex;\r\n    property ExtraRects: TTMSFNCArrayTRectF read FExtraRects;\r\n    property TextRects: TTMSFNCArrayTRectF read FTextRects;\r\n    property TitleRects: TTMSFNCArrayTRectF read FTitleRects;\r\n    property TitleExtraRects: TTMSFNCArrayTRectF read FTitleExtraRects;\r\n    property BitmapRects: TTMSFNCArrayTRectF read FBitmapRects;\r\n    property CheckRects: TTMSFNCArrayTRectF read FCheckRects;\r\n    property ExpandRects: TTMSFNCArrayTRectF read FExpandRects;\r\n    property CheckStates: TTMSFNCArrayBoolean read FCheckStates;\r\n    property Node: TTMSFNCTreeViewNode read FNode;\r\n    property Text[AColumn: Integer]: String read GetText;\r\n    property Title[AColumn: Integer]: String read GetTitle;\r\n    property TitleExpanded[AColumn: Integer]: Boolean read GetTitleExpanded;\r\n    property Visible: Boolean read FAddedToVisibleList;\r\n\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n\r\n    procedure CopyFrom(Source: TTMSFNCTreeViewVirtualNode); virtual;\r\n    constructor Create(ATreeView: TTMSFNCTreeViewData);\r\n    destructor Destroy; override;\r\n  end;\r\n\r\n  TTMSFNCTreeViewCacheItemKind = (ikNode, ikColumnTop, ikColumnBottom, ikGroupTop, ikGroupBottom);\r\n\r\n  TTMSFNCTreeViewCacheItem = class\r\n  private\r\n    FRect: TRectF;\r\n    FDrawRect: TRectF;\r\n    FKind: TTMSFNCTreeViewCacheItemKind;\r\n    FGroup: Integer;\r\n    FColumn: Integer;\r\n    FNode: TTMSFNCTreeViewVirtualNode;\r\n    FRow: Integer;\r\n    FCol: Integer;\r\n    FStartColumn: Integer;\r\n    FEndColumn: Integer;\r\n  public\r\n    class function CreateNode(ARect: TRectF; ANode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewCacheItem;\r\n    class function CreateColumnTop(ARect: TRectF; AColumn: Integer): TTMSFNCTreeViewCacheItem;\r\n    class function CreateGroupTop(ARect: TRectF; AGroup: Integer; AStartColumn, AEndColumn: Integer): TTMSFNCTreeViewCacheItem;\r\n    class function CreateColumnBottom(ARect: TRectF; AColumn: Integer): TTMSFNCTreeViewCacheItem;\r\n    class function CreateGroupBottom(ARect: TRectF; AGroup: Integer; AStartColumn, AEndColumn: Integer): TTMSFNCTreeViewCacheItem;\r\n\r\n    property Rect: TRectF read FRect write FRect;\r\n    property DrawRect: TRectF read FDrawRect write FDrawRect;\r\n    property Kind: TTMSFNCTreeViewCacheItemKind read FKind write FKind;\r\n    property Node: TTMSFNCTreeViewVirtualNode read FNode write FNode;\r\n    property Group: Integer read FGroup write FGroup;\r\n    property StartColumn: Integer read FStartColumn write FStartColumn;\r\n    property EndColumn: Integer read FEndColumn write FEndColumn;\r\n    property Column: Integer read FColumn write FColumn;\r\n    property Col: Integer read FCol write FCol;\r\n    property Row: Integer read FRow write FRow;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCTreeViewCacheItemList = class(TList)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCTreeViewCacheItem;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCTreeViewCacheItem);\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCTreeViewCacheItem read GetItem write SetItem; default;\r\n  end;\r\n  TTMSFNCTreeViewIntegerList = class(TList)\r\n  private\r\n    function GetItem(Index: Integer): Integer;\r\n    procedure SetItem(Index: Integer; const Value: Integer);\r\n  public\r\n    property Items[Index: Integer]: Integer read GetItem write SetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCTreeViewCacheItemList = class(TList<TTMSFNCTreeViewCacheItem>);\r\n  TTMSFNCTreeViewIntegerList = class(TList<Integer>);\r\n  {$ENDIF}\r\n  TTMSFNCTreeViewVirtualNodeArray = array of TTMSFNCTreeViewVirtualNode;\r\n\r\n  TTMSFNCTreeViewColumnEditorType = (tcetEdit, tcetComboBox, tcetMemo, tcetNone);\r\n\r\n  TTMSFNCTreeViewNodesSortMode = (nsmAscending, nsmDescending);\r\n  TTMSFNCTreeViewNodesSortKind = (nskNone, nskAscending, nskDescending);\r\n  TTMSFNCTreeViewColumnSorting = (tcsNone, tcsNormal, tcsRecursive, tcsNormalCaseSensitive, tcsRecursiveCaseSensitive);\r\n\r\n  TTMSFNCTreeViewColumnFiltering = class(TPersistent)\r\n  private\r\n    FColumn: TTMSFNCTreeViewColumn;\r\n    FEnabled: Boolean;\r\n    FMultiColumn: boolean;\r\n    FDropDownHeight: integer;\r\n    FDropDownWidth: integer;\r\n    FButtonSize: Single;\r\n    procedure SetEnabled(const Value: Boolean);\r\n    function IsButtonSizeStored: Boolean;\r\n    procedure SetButtonSize(const Value: Single);\r\n  public\r\n    constructor Create(AColumn: TTMSFNCTreeViewColumn);\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property Enabled: Boolean read FEnabled write SetEnabled default False;\r\n    property DropDownWidth: integer read FDropDownWidth write FDropDownWidth default 100;\r\n    property DropDownHeight: integer read FDropDownHeight write FDropDownHeight default 120;\r\n    property MultiColumn: boolean read FMultiColumn write FMultiColumn default false;\r\n    property ButtonSize: Single read FButtonSize write SetButtonSize stored IsButtonSizeStored nodefault;\r\n  end;\r\n\r\n  TTMSFNCTreeViewFilterOperation = (tfoSHORT, tfoNONE, tfoAND, tfoXOR, tfoOR);\r\n\r\n  TTMSFNCTreeViewFilterData = class(TCollectionItem)\r\n  private\r\n    FColumn: SmallInt;\r\n    FCondition: string;\r\n    FCaseSensitive: Boolean;\r\n    FSuffix: string;\r\n    FPrefix: string;\r\n    FOperation: TTMSFNCTreeViewFilterOperation;\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property Column: smallint read FColumn write FColumn;\r\n    property Condition:string read FCondition write FCondition;\r\n    property CaseSensitive: Boolean read FCaseSensitive write FCaseSensitive default True;\r\n    property Prefix: string read FPrefix write FPrefix;\r\n    property Suffix: string read FSuffix write FSuffix;\r\n    property Operation: TTMSFNCTreeViewFilterOperation read FOperation write FOperation;\r\n  end;\r\n\r\n  {$IFNDEF USEOWNEDCOLLECTION}\r\n  TTMSFNCTreeViewFilter = class(TTMSFNCOwnedCollection)\r\n  {$ENDIF}\r\n  {$IFDEF USEOWNEDCOLLECTION}\r\n  TTMSFNCTreeViewFilter = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCTreeViewFilterData>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TTMSFNCTreeViewData;\r\n    function GetItem(Index: Integer): TTMSFNCTreeViewFilterData;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCTreeViewFilterData);\r\n    function GetColFilter(Col: Integer): TTMSFNCTreeViewFilterData;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCTreeViewData);\r\n    function Add: TTMSFNCTreeViewFilterData;\r\n    function Insert(index: Integer): TTMSFNCTreeViewFilterData;\r\n    property Items[Index: Integer]: TTMSFNCTreeViewFilterData read GetItem write SetItem; default;\r\n    property ColumnFilter[Col: Integer]: TTMSFNCTreeViewFilterData read GetColFilter;\r\n    function HasFilter(Col: integer): Boolean;\r\n    procedure RemoveColumnFilter(Col: integer);\r\n  end;\r\n\r\n  TTMSFNCTreeViewColumn = class(TCollectionItem)\r\n  private\r\n    FSortKind: TTMSFNCTreeViewNodesSortKind;\r\n    FTag: NativeInt;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FTreeView: TTMSFNCTreeViewData;\r\n    FText: String;\r\n    FName: String;\r\n    FDBKey: String;\r\n    FDataBoolean: Boolean;\r\n    FWordWrapping: Boolean;\r\n    FVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FTrimming: TTMSFNCGraphicsTextTrimming;\r\n    FHorizontalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FWidth: Double;\r\n    FVisible: Boolean;\r\n    FUseDefaultAppearance: Boolean;\r\n    FBottomFill: TTMSFNCGraphicsFill;\r\n    FBottomStroke: TTMSFNCGraphicsStroke;\r\n    FTopFill: TTMSFNCGraphicsFill;\r\n    FTopStroke: TTMSFNCGraphicsStroke;\r\n    FTopFont: TTMSFNCGraphicsFont;\r\n    FBottomFont: TTMSFNCGraphicsFont;\r\n    FFont: TTMSFNCGraphicsFont;\r\n    FFill: TTMSFNCGraphicsFill;\r\n    FStroke: TTMSFNCGraphicsStroke;\r\n    FEditorType: TTMSFNCTreeViewColumnEditorType;\r\n    FDisabledFontColor: TTMSFNCGraphicsColor;\r\n    FSelectedFontColor: TTMSFNCGraphicsColor;\r\n    FEditorItems: TStringList;\r\n    FCustomEditor: Boolean;\r\n    FSorting: TTMSFNCTreeViewColumnSorting;\r\n    FSortIndex: Integer;\r\n    FFiltering: TTMSFNCTreeViewColumnFiltering;\r\n    FDataPointer: Pointer;\r\n    FTitleTrimming: TTMSFNCGraphicsTextTrimming;\r\n    FTitleHorizontalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FTitleWordWrapping: Boolean;\r\n    FTitleVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FDisabledTitleFontColor: TTMSFNCGraphicsColor;\r\n    FSelectedTitleFontColor: TTMSFNCGraphicsColor;\r\n    FTitleFont: TTMSFNCGraphicsFont;\r\n    FExpanded: Boolean;\r\n    FExpandable: Boolean;\r\n    FExpandingButtonSize: Single;\r\n    FHTMLTemplate: string;\r\n    FMinimumWidth: Double;\r\n    procedure SetText(const Value: String);\r\n    procedure SetName(const Value: String);\r\n    procedure SetHorizontalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetTrimming(const Value: TTMSFNCGraphicsTextTrimming);\r\n    procedure SetVerticalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetWordWrapping(const Value: Boolean);\r\n    procedure SetWidth(const Value: Double);\r\n    procedure SetVisible(const Value: Boolean);\r\n    procedure SetUseDefaultAppearance(const Value: Boolean);\r\n    procedure SetBottomFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetBottomStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetTopFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetTopStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetBottomFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetTopFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetEditorType(const Value: TTMSFNCTreeViewColumnEditorType);\r\n    procedure SetDisabledFontColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetSelectedFontColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetEditorItems(const Value: TStringList);\r\n    procedure SetSorting(const Value: TTMSFNCTreeViewColumnSorting);\r\n    procedure SetSortKind(const Value: TTMSFNCTreeViewNodesSortKind);\r\n    procedure SetSortIndex(const Value: Integer);\r\n    procedure SetFiltering(const Value: TTMSFNCTreeViewColumnFiltering);\r\n    procedure SetTitleHorizontalTextAlign(\r\n      const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetTitleTrimming(const Value: TTMSFNCGraphicsTextTrimming);\r\n    procedure SetTitleVerticalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetTitleWordWrapping(const Value: Boolean);\r\n    procedure SetDisabledTitleFontColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetSelectedTitleFontColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetTitleFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetExpanded(const Value: Boolean);\r\n    procedure SetExpandable(const Value: Boolean);\r\n    function IsExpandingButtonSizeStored: Boolean;\r\n    procedure SetExpandingButtonSize(const Value: Single);\r\n    procedure SetHTMLTemplate(const Value: string);\r\n    procedure SetMinimumWidth(const Value: Double);\r\n  protected\r\n    procedure UpdateColumn;\r\n    procedure Changed(Sender: TObject);\r\n    function GetText: String; virtual;\r\n    function GetColumnText: String; virtual;\r\n    function GetDisplayName: string; override;\r\n    property SortIndex: Integer read FSortIndex write SetSortIndex default -1;\r\n  public\r\n    function TreeView: TTMSFNCTreeViewData;\r\n    constructor Create(ACollection: TCollection); override;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure UpdateWidth(AWidth: Double); virtual;\r\n    procedure Sort(ARecurse: Boolean = False; ACaseSensitive: Boolean = True; ASortingMode: TTMSFNCTreeViewNodesSortMode = nsmAscending); virtual;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n    property DBKey: String read FDBKey write FDBKey;\r\n    property SortKind: TTMSFNCTreeViewNodesSortKind read FSortKind write SetSortKind default nskNone;\r\n    property TitleHorizontalTextAlign: TTMSFNCGraphicsTextAlign read FTitleHorizontalTextAlign write SetTitleHorizontalTextAlign default gtaLeading;\r\n    property TitleVerticalTextAlign: TTMSFNCGraphicsTextAlign read FTitleVerticalTextAlign write SetTitleVerticalTextAlign default gtaCenter;\r\n    property TitleWordWrapping: Boolean read FTitleWordWrapping write SetTitleWordWrapping default False;\r\n    property TitleTrimming: TTMSFNCGraphicsTextTrimming read FTitleTrimming write SetTitleTrimming default gttNone;\r\n    property TitleFont: TTMSFNCGraphicsFont read FTitleFont write SetTitleFont;\r\n    property SelectedTitleFontColor: TTMSFNCGraphicsColor read FSelectedTitleFontColor write SetSelectedTitleFontColor default gcWhite;\r\n    property DisabledTitleFontColor: TTMSFNCGraphicsColor read FDisabledTitleFontColor write SetDisabledTitleFontColor default gcSilver;\r\n    property Expandable: Boolean read FExpandable write SetExpandable default False;\r\n    property Expanded: Boolean read FExpanded write SetExpanded default True;\r\n    property ExpandingButtonSize: Single read FExpandingButtonSize write SetExpandingButtonSize stored IsExpandingButtonSizeStored nodefault;\r\n  published\r\n    property EditorType: TTMSFNCTreeViewColumnEditorType read FEditorType write SetEditorType default tcetNone;\r\n    property EditorItems: TStringList read FEditorItems write SetEditorItems;\r\n    property CustomEditor: Boolean read FCustomEditor write FCustomEditor default False;\r\n\r\n    property Name: String read FName write SetName;\r\n    property Text: String read FText write SetText;\r\n    property Tag: NativeInt read FTag write FTag default 0;\r\n    property HorizontalTextAlign: TTMSFNCGraphicsTextAlign read FHorizontalTextAlign write SetHorizontalTextAlign default gtaLeading;\r\n    property VerticalTextAlign: TTMSFNCGraphicsTextAlign read FVerticalTextAlign write SetVerticalTextAlign default gtaCenter;\r\n    property WordWrapping: Boolean read FWordWrapping write SetWordWrapping default False;\r\n    property Trimming: TTMSFNCGraphicsTextTrimming read FTrimming write SetTrimming default gttNone;\r\n    property MinimumWidth: Double read FMinimumWidth write SetMinimumWidth;\r\n    property Width: Double read FWidth write SetWidth;\r\n    property Visible: Boolean read FVisible write SetVisible default True;\r\n    property UseDefaultAppearance: Boolean read FUseDefaultAppearance write SetUseDefaultAppearance default True;\r\n    property Fill: TTMSFNCGraphicsFill read FFill write SetFill;\r\n    property Stroke: TTMSFNCGraphicsStroke read FStroke write SetStroke;\r\n    property Font: TTMSFNCGraphicsFont read FFont write SetFont;\r\n    property SelectedFontColor: TTMSFNCGraphicsColor read FSelectedFontColor write SetSelectedFontColor default gcWhite;\r\n    property DisabledFontColor: TTMSFNCGraphicsColor read FDisabledFontColor write SetDisabledFontColor default gcSilver;\r\n\r\n    property TopFill: TTMSFNCGraphicsFill read FTopFill write SetTopFill;\r\n    property TopStroke: TTMSFNCGraphicsStroke read FTopStroke write SetTopStroke;\r\n    property TopFont: TTMSFNCGraphicsFont read FTopFont write SetTopFont;\r\n\r\n    property BottomFill: TTMSFNCGraphicsFill read FBottomFill write SetBottomFill;\r\n    property BottomStroke: TTMSFNCGraphicsStroke read FBottomStroke write SetBottomStroke;\r\n    property BottomFont: TTMSFNCGraphicsFont read FBottomFont write SetBottomFont;\r\n    property Sorting: TTMSFNCTreeViewColumnSorting read FSorting write SetSorting default tcsNone;\r\n    property Filtering: TTMSFNCTreeViewColumnFiltering read FFiltering write SetFiltering;\r\n    property HTMLTemplate: string read FHTMLTemplate write SetHTMLTemplate;\r\n  end;\r\n\r\n  {$IFNDEF USEOWNEDCOLLECTION}\r\n  TTMSFNCTreeViewColumns = class(TTMSFNCOwnedCollection)\r\n  {$ENDIF}\r\n  {$IFDEF USEOWNEDCOLLECTION}\r\n  TTMSFNCTreeViewColumns = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCTreeViewColumn>)\r\n  {$ENDIF}\r\n  private\r\n    FTreeView: TTMSFNCTreeViewData;\r\n    function GetItem(Index: Integer): TTMSFNCTreeViewColumn;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCTreeViewColumn);\r\n  protected\r\n    function GetItemClass: TCollectionItemClass; virtual;\r\n  public\r\n    function TreeView: TTMSFNCTreeViewData;\r\n    constructor Create(ATreeView: TTMSFNCTreeViewData);\r\n    function Add: TTMSFNCTreeViewColumn; virtual;\r\n    function Insert(Index: Integer): TTMSFNCTreeViewColumn;\r\n    property Items[Index: Integer]: TTMSFNCTreeViewColumn read GetItem write SetItem; default;\r\n  end;\r\n\r\n  TTMSFNCTreeViewNodes = class;\r\n  TTMSFNCTreeViewNodeCheckType = (tvntNone, tvntCheckBox, tvntRadioButton);\r\n\r\n  TTMSFNCTreeViewNodeValue = class(TCollectionItem)\r\n  private\r\n    FTag: NativeInt;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FTreeView: TTMSFNCTreeViewData;\r\n    FNode: TTMSFNCTreeViewNode;\r\n    FText: String;\r\n    FDBKey: String;\r\n    FDataBoolean: Boolean;\r\n    FCheckType: TTMSFNCTreeViewNodeCheckType;\r\n    FChecked: Boolean;\r\n    FCollapsedIcon: TTMSFNCBitmap;\r\n    FCollapsedIconLarge: TTMSFNCBitmap;\r\n    FExpandedIcon: TTMSFNCBitmap;\r\n    FExpandedIconLarge: TTMSFNCBitmap;\r\n    FCollapsedIconName: String;\r\n    FCollapsedIconLargeName: String;\r\n    FExpandedIconName: String;\r\n    FExpandedIconLargeName: String;\r\n    FDataPointer: Pointer;\r\n    FTitle: String;\r\n    FTitleExpanded: Boolean;\r\n    FHTMLTemplateItems: TStringList;\r\n    procedure SetText(const Value: String);\r\n    procedure UpdateNodeValue;\r\n    procedure SetChecked(const Value: Boolean);\r\n    procedure SetCheckType(const Value: TTMSFNCTreeViewNodeCheckType);\r\n    procedure SetCollapsedIconLarge(const Value: TTMSFNCBitmap);\r\n    procedure SetCollapsedIcon(const Value: TTMSFNCBitmap);\r\n    procedure SetExpandedIconLarge(const Value: TTMSFNCBitmap);\r\n    procedure SetExpandedIcon(const Value: TTMSFNCBitmap);\r\n    procedure SetCollapsedIconLargeName(const Value: String);\r\n    procedure SetCollapsedIconName(const Value: String);\r\n    procedure SetExpandedIconLargeName(const Value: String);\r\n    procedure SetExpandedIconName(const Value: String);\r\n    function GetBitmapContainer: TTMSFNCBitmapContainer;\r\n    procedure SetTitle(const Value: String);\r\n    procedure SetTitleExpanded(const Value: Boolean);\r\n    procedure SetHTMLTemplateItems(const Value: TStringList);\r\n  protected\r\n    procedure BitmapChanged(Sender: TObject);\r\n    procedure TemplateItemsChanged(Sender: TObject);\r\n    property Title: String read FTitle write SetTitle;\r\n    property TitleExpanded: Boolean read FTitleExpanded write SetTitleExpanded default True;\r\n  public\r\n    function TreeView: TTMSFNCTreeViewData;\r\n    function Node: TTMSFNCTreeViewNode;\r\n    function GetText: string;\r\n    constructor Create(ACollection: TCollection); override;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure AssignData(Source: TPersistent); virtual;\r\n    property BitmapContainer: TTMSFNCBitmapContainer read GetBitmapContainer;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n    property DBKey: String read FDBKey write FDBKey;\r\n  published\r\n    property Tag: NativeInt read FTag write FTag default 0;\r\n    property Text: String read FText write SetText;\r\n    property CollapsedIconName: String read FCollapsedIconName write SetCollapsedIconName;\r\n    property CollapsedIconLargeName: String read FCollapsedIconLargeName write SetCollapsedIconLargeName;\r\n    property ExpandedIconName: String read FExpandedIconName write SetExpandedIconName;\r\n    property ExpandedIconLargeName: String read FExpandedIconLargeName write SetExpandedIconLargeName;\r\n\r\n    property CollapsedIcon: TTMSFNCBitmap read FCollapsedIcon write SetCollapsedIcon;\r\n    property CollapsedIconLarge: TTMSFNCBitmap read FCollapsedIconLarge write SetCollapsedIconLarge;\r\n    property ExpandedIcon: TTMSFNCBitmap read FExpandedIcon write SetExpandedIcon;\r\n    property ExpandedIconLarge: TTMSFNCBitmap read FExpandedIconLarge write SetExpandedIconLarge;\r\n    property Checked: Boolean read FChecked write SetChecked default False;\r\n    property CheckType: TTMSFNCTreeViewNodeCheckType read FCheckType write SetCheckType default tvntNone;\r\n    property HTMLTemplateItems: TStringList read FHTMLTemplateItems write SetHTMLTemplateItems;\r\n  end;\r\n\r\n  {$IFNDEF USEOWNEDCOLLECTION}\r\n  TTMSFNCTreeViewNodeValues = class(TTMSFNCOwnedCollection)\r\n  {$ENDIF}\r\n  {$IFDEF USEOWNEDCOLLECTION}\r\n  TTMSFNCTreeViewNodeValues = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCTreeViewNodeValue>)\r\n  {$ENDIF}\r\n  private\r\n    FTreeView: TTMSFNCTreeViewData;\r\n    FNode: TTMSFNCTreeViewNode;\r\n    function GetItem(Index: Integer): TTMSFNCTreeViewNodeValue;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCTreeViewNodeValue);\r\n  protected\r\n    function GetItemClass: TCollectionItemClass; virtual;\r\n  public\r\n    function TreeView: TTMSFNCTreeViewData;\r\n    function Node: TTMSFNCTreeViewNode;\r\n    procedure UpdateChecked(AIndex: Integer; AValue: Boolean); virtual;\r\n    constructor Create(ATreeView: TTMSFNCTreeViewData; ANode: TTMSFNCTreeViewNode);\r\n    function Add: TTMSFNCTreeViewNodeValue;\r\n    function Insert(Index: Integer): TTMSFNCTreeViewNodeValue;\r\n    property Items[Index: Integer]: TTMSFNCTreeViewNodeValue read GetItem write SetItem; default;\r\n  end;\r\n\r\n  TTMSFNCTreeViewNodeTextValues = array of string;\r\n  TTMSFNCTreeViewNodeCheckStates = array of Boolean;\r\n  TTMSFNCTreeViewNodeCheckTypes = array of TTMSFNCTreeViewNodeCheckType;\r\n  TTMSFNCTreeViewNodeIcons = array of TTMSFNCBitmap;\r\n  TTMSFNCTreeViewNodeIconNames = array of string;\r\n\r\n  TTMSFNCTreeViewNode = class(TCollectionItem)\r\n  private\r\n    FTag: NativeInt;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FTreeView: TTMSFNCTreeViewData;\r\n    FValues: TTMSFNCTreeViewNodeValues;\r\n    FDBKey: String;\r\n    FDataBoolean: Boolean;\r\n    FNodes: TTMSFNCTreeViewNodes;\r\n    FVirtualNode: TTMSFNCTreeViewVirtualNode;\r\n    FExpanded: Boolean;\r\n    FEnabled: Boolean;\r\n    FExtended: Boolean;\r\n    FDataPointer: Pointer;\r\n    procedure SetValues(const Value: TTMSFNCTreeViewNodeValues);\r\n    procedure SetNodes(const Value: TTMSFNCTreeViewNodes);\r\n    procedure SetExpanded(const Value: Boolean);\r\n    procedure SetEnabled(const Value: Boolean);\r\n    procedure SetExtended(const Value: Boolean);\r\n    function GetChecked(AColumn: integer): Boolean;\r\n    procedure SetChecked(AColumn: integer; const Value: Boolean);\r\n    function GetCheckType(AColumn: Integer): TTMSFNCTreeViewNodeCheckType;\r\n    function GetCollapsedIcon(AColumn: Integer;\r\n      ALarge: Boolean): TTMSFNCBitmap;\r\n    function GetCollapsedIconName(AColumn: Integer;\r\n      ALarge: Boolean): String;\r\n    function GetExpandedIcon(AColumn: Integer;\r\n      ALarge: Boolean): TTMSFNCBitmap;\r\n    function GetExpandedIconName(AColumn: Integer;\r\n      ALarge: Boolean): String;\r\n    function GetText(AColumn: Integer): String;\r\n    procedure SetCheckType(AColumn: Integer;\r\n      const Value: TTMSFNCTreeViewNodeCheckType);\r\n    procedure SetCollapsedIcon(AColumn: Integer; ALarge: Boolean;\r\n      const Value: TTMSFNCBitmap);\r\n    procedure SetCollapsedIconName(AColumn: Integer; ALarge: Boolean;\r\n      const Value: String);\r\n    procedure SetExpandedIcon(AColumn: Integer; ALarge: Boolean;\r\n      const Value: TTMSFNCBitmap);\r\n    procedure SetExpandedIconName(AColumn: Integer; ALarge: Boolean;\r\n      const Value: String);\r\n    procedure SetText(AColumn: Integer; const Value: String);\r\n    function GetStrippedHTMLText(AColumn: Integer): String;\r\n  protected\r\n    procedure UpdateNode;\r\n    function GetValueForColumn(AColumn: Integer): TTMSFNCTreeViewNodeValue; virtual;\r\n    function CreateNodes: TTMSFNCTreeViewNodes; virtual;\r\n    function CreateNodeValues: TTMSFNCTreeViewNodeValues; virtual;\r\n    procedure SetIndex(Value: Integer); override;\r\n    procedure ValuesChanged(Sender: TObject);\r\n  public\r\n    function TreeView: TTMSFNCTreeViewData;\r\n    function GetParent: TTMSFNCTreeViewNode; virtual;\r\n    function GetChildCount: Integer; virtual;\r\n    function GetPrevious: TTMSFNCTreeViewNode; virtual;\r\n    function GetNext: TTMSFNCTreeViewNode; virtual;\r\n    function GetPreviousChild(ANode: TTMSFNCTreeViewNode): TTMSFNCTreeViewNode; virtual;\r\n    function GetNextChild(ANode: TTMSFNCTreeViewNode): TTMSFNCTreeViewNode; virtual;\r\n    function GetNextSibling: TTMSFNCTreeViewNode; virtual;\r\n    function GetPreviousSibling: TTMSFNCTreeViewNode; virtual;\r\n    function GetFirstChild: TTMSFNCTreeViewNode; virtual;\r\n    function GetLastChild: TTMSFNCTreeViewNode; virtual;\r\n    function SaveToString(ATextOnly: Boolean = True): String; virtual;\r\n    procedure LoadFromString(AString: String); virtual;\r\n    procedure RemoveChildren; virtual;\r\n    procedure Expand(ARecurse: Boolean = False); virtual;\r\n    procedure Collapse(ARecurse: Boolean = False); virtual;\r\n    procedure MoveTo(ADestination: TTMSFNCTreeViewNode; AIndex: Integer = -1); virtual;\r\n    procedure CopyTo(ADestination: TTMSFNCTreeViewNode; AIndex: Integer = -1); virtual;\r\n    procedure SetTextValues(ATextValues: TTMSFNCTreeViewNodeTextValues); virtual;\r\n    procedure SetCheckStates(ACheckStates: TTMSFNCTreeViewNodeCheckStates); virtual;\r\n    procedure SetCheckTypes(ACheckTypes: TTMSFNCTreeViewNodeCheckTypes); virtual;\r\n    procedure SetCollapsedIcons(AIcons: TTMSFNCTreeViewNodeIcons; ALarge: Boolean = False); virtual;\r\n    procedure SetExpandedIcons(AIcons: TTMSFNCTreeViewNodeIcons; ALarge: Boolean = False); virtual;\r\n    procedure SetCollapsedIconNames(AIconNames: TTMSFNCTreeViewNodeIconNames; ALarge: Boolean = False); virtual;\r\n    procedure SetExpandedIconNames(AIconNames: TTMSFNCTreeViewNodeIconNames; ALarge: Boolean = False); virtual;\r\n    constructor Create(ACollection: TCollection); override;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure AssignData(Source: TPersistent); virtual;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n    property DBKey: String read FDBKey write FDBKey;\r\n    property Checked[AColumn: Integer]: Boolean read GetChecked write SetChecked;\r\n    property Text[AColumn: Integer]: String read GetText write SetText;\r\n    property StrippedHTMLText[AColumn: Integer]: String read GetStrippedHTMLText;\r\n    property CheckTypes[AColumn: Integer]: TTMSFNCTreeViewNodeCheckType read GetCheckType write SetCheckType;\r\n    property ExpandedIcons[AColumn: Integer; ALarge: Boolean]: TTMSFNCBitmap read GetExpandedIcon write SetExpandedIcon;\r\n    property CollapsedIcons[AColumn: Integer; ALarge: Boolean]: TTMSFNCBitmap read GetCollapsedIcon write SetCollapsedIcon;\r\n    property ExpandedIconNames[AColumn: Integer; ALarge: Boolean]: String read GetExpandedIconName write SetExpandedIconName;\r\n    property CollapsedIconNames[AColumn: Integer; ALarge: Boolean]: String read GetCollapsedIconName write SetCollapsedIconName;\r\n    property VirtualNode: TTMSFNCTreeViewVirtualNode read FVirtualNode;\r\n  published\r\n    property Values: TTMSFNCTreeViewNodeValues read FValues write SetValues;\r\n    property Expanded: Boolean read FExpanded write SetExpanded default False;\r\n    property Enabled: Boolean read FEnabled write SetEnabled default True;\r\n    property Extended: Boolean read FExtended write SetExtended default False;\r\n    property Tag: NativeInt read FTag write FTag;\r\n    property Nodes: TTMSFNCTreeViewNodes read FNodes write SetNodes;\r\n  end;\r\n\r\n  {$IFNDEF USEOWNEDCOLLECTION}\r\n  TTMSFNCTreeViewNodes = class(TTMSFNCOwnedCollection)\r\n  {$ENDIF}\r\n  {$IFDEF USEOWNEDCOLLECTION}\r\n  TTMSFNCTreeViewNodes = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCTreeViewNode>)\r\n  {$ENDIF}\r\n  private\r\n    FTreeView: TTMSFNCTreeViewData;\r\n    FNode: TTMSFNCTreeViewNode;\r\n    function GetItem(Index: Integer): TTMSFNCTreeViewNode;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCTreeViewNode);\r\n  protected\r\n    function GetItemClass: TCollectionItemClass; virtual;\r\n    function Compare(ANode1, ANode2: TTMSFNCTreeViewNode; AColumn: Integer = 0; ACaseSensitive: Boolean = True; ASortingMode: TTMSFNCTreeViewNodesSortMode = nsmAscending): Integer; virtual;\r\n    procedure QuickSort(L, R: Integer; AColumn: Integer = 0; ACaseSensitive: Boolean = True; ASortingMode: TTMSFNCTreeViewNodesSortMode = nsmAscending); virtual;\r\n  public\r\n    function TreeView: TTMSFNCTreeViewData;\r\n    function Node: TTMSFNCTreeViewNode;\r\n    constructor Create(ATreeView: TTMSFNCTreeViewData; ANode: TTMSFNCTreeViewNode);\r\n    destructor Destroy; override;\r\n    function Add: TTMSFNCTreeViewNode;\r\n    function Insert(Index: Integer): TTMSFNCTreeViewNode;\r\n    property Items[Index: Integer]: TTMSFNCTreeViewNode read GetItem write SetItem; default;\r\n    procedure Sort(AColumn: Integer = 0; ARecurse: Boolean = False; ACaseSensitive: Boolean = True; ASortingMode: TTMSFNCTreeViewNodesSortMode = nsmAscending; AClearNodeList: Boolean = True);\r\n  end;\r\n\r\n  TTMSFNCTreeViewGroup = class(TCollectionItem)\r\n  private\r\n    FTag: NativeInt;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FTreeView: TTMSFNCTreeViewData;\r\n    FText: String;\r\n    FStartColumn: Integer;\r\n    FEndColumn: Integer;\r\n    FName: String;\r\n    FDBKey: String;\r\n    FDataBoolean: Boolean;\r\n    FBottomFill: TTMSFNCGraphicsFill;\r\n    FBottomStroke: TTMSFNCGraphicsStroke;\r\n    FTopFill: TTMSFNCGraphicsFill;\r\n    FTopStroke: TTMSFNCGraphicsStroke;\r\n    FTopFont: TTMSFNCGraphicsFont;\r\n    FBottomFont: TTMSFNCGraphicsFont;\r\n    FUseDefaultAppearance: Boolean;\r\n    FDataPointer: Pointer;\r\n    procedure SetText(const Value: String);\r\n    procedure SetStartColumn(const Value: Integer);\r\n    procedure SetEndColumn(const Value: Integer);\r\n    procedure SetName(const Value: String);\r\n    procedure SetBottomFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetBottomStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetTopFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetTopStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetBottomFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetTopFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetUseDefaultAppearance(const Value: Boolean);\r\n  protected\r\n    procedure UpdateGroup;\r\n    procedure Changed(Sender: TObject);\r\n  public\r\n    function TreeView: TTMSFNCTreeViewData;\r\n    constructor Create(ACollection: TCollection); override;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n    property DBKey: String read FDBKey write FDBKey;\r\n    function GetText: String; virtual;\r\n  published\r\n    property Name: String read FName write SetName;\r\n    property Text: String read FText write SetText;\r\n    property StartColumn: Integer read FStartColumn write SetStartColumn default 0;\r\n    property EndColumn: Integer read FEndColumn write SetEndColumn default 0;\r\n    property Tag: NativeInt read FTag write FTag default 0;\r\n    property UseDefaultAppearance: Boolean read FUseDefaultAppearance write SetUseDefaultAppearance default True;\r\n\r\n    property TopFill: TTMSFNCGraphicsFill read FTopFill write SetTopFill;\r\n    property TopStroke: TTMSFNCGraphicsStroke read FTopStroke write SetTopStroke;\r\n    property TopFont: TTMSFNCGraphicsFont read FTopFont write SetTopFont;\r\n\r\n    property BottomFill: TTMSFNCGraphicsFill read FBottomFill write SetBottomFill;\r\n    property BottomStroke: TTMSFNCGraphicsStroke read FBottomStroke write SetBottomStroke;\r\n    property BottomFont: TTMSFNCGraphicsFont read FBottomFont write SetBottomFont;\r\n  end;\r\n\r\n  {$IFNDEF USEOWNEDCOLLECTION}\r\n  TTMSFNCTreeViewGroups = class(TTMSFNCOwnedCollection)\r\n  {$ENDIF}\r\n  {$IFDEF USEOWNEDCOLLECTION}\r\n  TTMSFNCTreeViewGroups = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCTreeViewGroup>)\r\n  {$ENDIF}\r\n  private\r\n    FTreeView: TTMSFNCTreeViewData;\r\n    function GetItem(Index: Integer): TTMSFNCTreeViewGroup;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCTreeViewGroup);\r\n  protected\r\n    function GetItemClass: TCollectionItemClass; virtual;\r\n  public\r\n    function TreeView: TTMSFNCTreeViewData;\r\n    constructor Create(ATreeView: TTMSFNCTreeViewData);\r\n    function Add: TTMSFNCTreeViewGroup;\r\n    function Insert(Index: Integer): TTMSFNCTreeViewGroup;\r\n    property Items[Index: Integer]: TTMSFNCTreeViewGroup read GetItem write SetItem; default;\r\n  end;\r\n\r\n  TTMSFNCTreeViewNodeTextMode = (tntmDrawing, tntmEditing);\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCTreeViewNodeStructure = class(TObjectList)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCTreeViewVirtualNode;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCTreeViewVirtualNode);\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCTreeViewVirtualNode read GetItem write SetItem; default;\r\n  end;\r\n  TTMSFNCTreeViewVisibleNodes = class(TList)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCTreeViewVirtualNode;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCTreeViewVirtualNode);\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCTreeViewVirtualNode read GetItem write SetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCTreeViewNodeStructure = class(TObjectList<TTMSFNCTreeViewVirtualNode>);\r\n  TTMSFNCTreeViewVisibleNodes = class(TList<TTMSFNCTreeViewVirtualNode>);\r\n  {$ENDIF}\r\n\r\n  TTMSFNCTreeViewDisplayGroup = record\r\n    StartColumn: Integer;\r\n    EndColumn: Integer;\r\n    {$IFDEF LCLLIB}\r\n    class operator = (z1, z2 : TTMSFNCTreeViewDisplayGroup) b : boolean;\r\n    {$ENDIF}\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCTreeViewDisplayGroups = class(TList)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCTreeViewDisplayGroup;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCTreeViewDisplayGroup);\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCTreeViewDisplayGroup read GetItem write SetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCTreeViewDisplayGroups = class(TList<TTMSFNCTreeViewDisplayGroup>);\r\n  {$ENDIF}\r\n\r\n  {$IFDEF FNCLIB}\r\n  TTMSFNCTreeViewData = class(TTMSFNCTreeViewBase, ITMSFNCBitmapContainer)\r\n  {$ENDIF}\r\n  {$IFNDEF FNCLIB}\r\n  TTMSFNCTreeViewData = class(TTMSFNCTreeViewBase)\r\n  {$ENDIF}\r\n  private\r\n    FFilterApplied: Boolean;\r\n    FBlockUpdate: Boolean;\r\n    FNodeStructure: TTMSFNCTreeViewNodeStructure;\r\n    FVisibleNodes: TTMSFNCTreeViewVisibleNodes;\r\n    FColumns: TTMSFNCTreeViewColumns;\r\n    FGroups: TTMSFNCTreeViewGroups;\r\n    FNodes: TTMSFNCTreeViewNodes;\r\n    FBitmapContainer: TTMSFNCBitmapContainer;\r\n    FDisplayGroups: TTMSFNCTreeViewDisplayGroups;\r\n    FFilter: TTMSFNCTreeViewFilter;\r\n    FSortMode: TTMSFNCTreeViewNodesSortMode;\r\n    procedure SetColumns(const Value: TTMSFNCTreeViewColumns);\r\n    procedure SetGroups(const Value: TTMSFNCTreeViewGroups);\r\n    procedure SetNodes(const Value: TTMSFNCTreeViewNodes);\r\n    function GetBitmapContainer: TTMSFNCBitmapContainer;\r\n    procedure SetBitmapContainer(const Value: TTMSFNCBitmapContainer);\r\n  protected\r\n    property BitmapContainer: TTMSFNCBitmapContainer read GetBitmapContainer write SetBitmapContainer;\r\n    procedure Notification(AComponent: TComponent; Operation: TOperation); override;\r\n    function CreateColumns: TTMSFNCTreeViewColumns; virtual;\r\n    function CreateGroups: TTMSFNCTreeViewGroups; virtual;\r\n    function CreateNodes: TTMSFNCTreeViewNodes; virtual;\r\n    function GetInsertPosition(ANode: TTMSFNCTreeViewVirtualNode; ARoot: Boolean; AInsert: Boolean): Integer; virtual;\r\n    function GetNodeFromNodeStructure(AIndex: Integer): TTMSFNCTreeViewVirtualNode; virtual;\r\n    function MatchFilter(ANode: TTMSFNCTreeViewVirtualNode): Boolean; virtual;\r\n    procedure BuildNodeList; virtual;\r\n    procedure UpdateColumns; override;\r\n    procedure BuildInternalNodeList(ANode: TTMSFNCTreeViewVirtualNode; AID: String; AParentNode: Integer; ANodeIndex: Integer; ALevel: Integer; AParentExpanded: Boolean; var ATotalChildren: Integer);\r\n    procedure GetNodeForNodeData(ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure DoGetNumberOfNodes(ANode: TTMSFNCTreeViewVirtualNode; var ANumberOfNodes: Integer); virtual;\r\n    procedure DoGetColumnTrimming({%H-}AColumn: Integer; {%H-}AKind: TTMSFNCTreeViewCacheItemKind; var {%H-}ATrimming: TTMSFNCGraphicsTextTrimming); virtual;\r\n    procedure DoGetColumnHorizontalTextAlign({%H-}AColumn: Integer; {%H-}AKind: TTMSFNCTreeViewCacheItemKind; var {%H-}AHorizontalTextAlign: TTMSFNCGraphicsTextAlign); virtual;\r\n    procedure DoGetColumnVerticalTextAlign({%H-}AColumn: Integer; {%H-}AKind: TTMSFNCTreeViewCacheItemKind; var {%H-}AVerticalTextAlign: TTMSFNCGraphicsTextAlign); virtual;\r\n    procedure DoGetColumnWordWrapping({%H-}AColumn: Integer; {%H-}AKind: TTMSFNCTreeViewCacheItemKind; var {%H-}AWordWrapping: Boolean); virtual;\r\n    procedure DoGetNodeSides({%H-}ANode: TTMSFNCTreeViewVirtualNode; var {%H-}ASides: TTMSFNCGraphicsSides); virtual;\r\n    procedure DoGetNodeText({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; {%H-}AMode: TTMSFNCTreeViewNodeTextMode; var {%H-}AText: String); virtual;\r\n    procedure DoGetNodeData(ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure DoGetNodeTitle({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; {%H-}AMode: TTMSFNCTreeViewNodeTextMode; var {%H-}ATitle: String); virtual;\r\n    procedure DoGetNodeTitleExpanded({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var {%H-}AExpanded: Boolean); virtual;\r\n    procedure DoGetNodeTrimming({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var {%H-}ATrimming: TTMSFNCGraphicsTextTrimming); virtual;\r\n    procedure DoGetNodeHorizontalTextAlign({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var {%H-}AHorizontalTextAlign: TTMSFNCGraphicsTextAlign); virtual;\r\n    procedure DoGetNodeVerticalTextAlign({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var {%H-}AVerticalTextAlign: TTMSFNCGraphicsTextAlign); virtual;\r\n    procedure DoGetNodeWordWrapping({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var {%H-}AWordWrapping: Boolean); virtual;\r\n    procedure DoGetNodeTitleTrimming({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var {%H-}ATrimming: TTMSFNCGraphicsTextTrimming); virtual;\r\n    procedure DoGetNodeTitleHorizontalTextAlign({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var {%H-}AHorizontalTextAlign: TTMSFNCGraphicsTextAlign); virtual;\r\n    procedure DoGetNodeTitleVerticalTextAlign({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var {%H-}AVerticalTextAlign: TTMSFNCGraphicsTextAlign); virtual;\r\n    procedure DoGetNodeTitleWordWrapping({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var {%H-}AWordWrapping: Boolean); virtual;\r\n    procedure DoGetNodeExtraSize({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var {%H-}AExtraSize: Single); virtual;\r\n    procedure DoGetNodeTitleExtraSize({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var {%H-}ATitleExtraSize: Single); virtual;\r\n    procedure DoGetNodeCheckType({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var {%H-}ACheckType: TTMSFNCTreeViewNodeCheckType); virtual;\r\n    procedure DoGetNodeIcon({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; {%H-}ALarge: Boolean; var {%H-}AIcon: TTMSFNCBitmap); virtual;\r\n    procedure DoGetNodeIconSize({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; {%H-}ALarge: Boolean; {%H-}AIcon: TTMSFNCBitmap; var {%H-}AIconWidth: Double; var {%H-}AIconHeight: Double); virtual;\r\n    procedure DoGetNodeSelectedColor({%H-}ANode: TTMSFNCTreeViewVirtualNode; var {%H-}AColor: TTMSFNCGraphicsColor); virtual;\r\n    procedure DoGetNodeDisabledColor({%H-}ANode: TTMSFNCTreeViewVirtualNode; var {%H-}AColor: TTMSFNCGraphicsColor); virtual;\r\n    procedure DoGetNodeColor({%H-}ANode: TTMSFNCTreeViewVirtualNode; var {%H-}AColor: TTMSFNCGraphicsColor); virtual;\r\n    procedure DoGetNodeSelectedTextColor({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var {%H-}ATextColor: TTMSFNCGraphicsColor); virtual;\r\n    procedure DoGetNodeDisabledTextColor({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var {%H-}ATextColor: TTMSFNCGraphicsColor); virtual;\r\n    procedure DoGetNodeSelectedTitleColor({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var {%H-}ATitleColor: TTMSFNCGraphicsColor); virtual;\r\n    procedure DoGetNodeDisabledTitleColor({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var {%H-}ATitleColor: TTMSFNCGraphicsColor); virtual;\r\n    procedure DoGetNodeTextColor({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var {%H-}ATextColor: TTMSFNCGraphicsColor); virtual;\r\n    procedure DoGetNodeTitleColor({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var {%H-}ATitleColor: TTMSFNCGraphicsColor); virtual;\r\n    procedure DoIsNodeExpanded({%H-}ANode: TTMSFNCTreeViewVirtualNode; var {%H-}AExpanded: Boolean); virtual;\r\n    procedure DoIsNodeExtended({%H-}ANode: TTMSFNCTreeViewVirtualNode; var {%H-}AExtended: Boolean); virtual;\r\n    procedure DoIsNodeChecked({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var {%H-}AChecked: Boolean); virtual;\r\n    procedure DoIsNodeVisible({%H-}ANode: TTMSFNCTreeViewVirtualNode; var {%H-}AVisible: Boolean); virtual;\r\n    procedure DoIsNodeEnabled({%H-}ANode: TTMSFNCTreeViewVirtualNode; var {%H-}AEnabled: Boolean); virtual;\r\n    procedure DoNodeCompare({%H-}ANode1, {%H-}ANode2: TTMSFNCTreeViewNode; {%H-}AColumn: Integer; var {%H-}ACompareResult: Integer); virtual;\r\n    procedure DoGetHTMLTemplateValue(ANodeValue: TTMSFNCTreeViewNodeValue; AName: string; var AValue: string); virtual;\r\n    procedure DoGetHTMLTemplate(ANodeValue: TTMSFNCTreeViewNodeValue; AColumnIndex: Integer; var AHTMLTemplate: string); virtual;\r\n    procedure ToggleCheckNodeInternal(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; ARecurse: Boolean = False); virtual;\r\n    procedure CheckNodeInternal(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; ARecurse: Boolean = False); virtual;\r\n    procedure UpdateCheckState({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; {%H-}AChecked: Boolean); virtual;\r\n    procedure UnCheckNodeInternal(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; ARecurse: Boolean = False); virtual;\r\n    procedure ExpandNodeInternal(ANode: TTMSFNCTreeViewVirtualNode; ARecurse: Boolean = False); virtual;\r\n    procedure CollapseNodeInternal(ANode: TTMSFNCTreeViewVirtualNode; ARecurse: Boolean = False); virtual;\r\n    function RemoveNodeInternal(ANode: TTMSFNCTreeViewVirtualNode; AUpdateNodes: Boolean = True): TTMSFNCTreeViewVirtualNodeRemoveData; virtual;\r\n    procedure ClearFocusedNode(ANode: TTMSFNCTreeViewVirtualNode); virtual; abstract;\r\n    procedure UpdateNodesInternal(ANodeRemoveData: TTMSFNCTreeViewVirtualNodeRemoveData); virtual;\r\n    procedure InsertNodeInternal(AParentNode: TTMSFNCTreeViewVirtualNode; AIndex, AInsertIndex: Integer; ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure UpdateVisibleNodes(ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure ToggleNodeInternal(ANode: TTMSFNCTreeViewVirtualNode; ARecurse: Boolean = False); virtual;\r\n    procedure InsertItemInternal(AItem: TTMSFNCTreeViewNode); virtual;\r\n    function IsVariableNodeHeight: Boolean; virtual; abstract;\r\n    function RemoveItemInternal(AItem: TTMSFNCTreeViewNode; AUpdate: Boolean = True): TTMSFNCTreeViewVirtualNodeRemoveData; virtual;\r\n    function GetNodesSpacing(ANode: TTMSFNCTreeViewVirtualNode): Single; virtual;\r\n    function GetDefaultRowHeight(ANode: TTMSFNCTreeViewVirtualNode): Single; virtual;\r\n    function GetVisibleNodeForIndex(AIndex: Integer): TTMSFNCTreeViewVirtualNode; virtual;\r\n    procedure ToggleNode(ANode: TTMSFNCTreeViewNode); virtual;\r\n    procedure UpdateNodeCalculated(ANode: TTMSFNCTreeViewVirtualNode; ACalculated: Boolean); virtual;\r\n    procedure UpdateNodeHeight(ANode: TTMSFNCTreeViewVirtualNode; AHeight: Double); virtual;\r\n    procedure UpdateNodeTitleHeight(ANode: TTMSFNCTreeViewVirtualNode; AHeight: Double); virtual;\r\n    procedure UpdateNodeCheckStates(ANode: TTMSFNCTreeViewVirtualNode; ACheckStates: TTMSFNCArrayBoolean); virtual;\r\n    procedure UpdateNodeBitmapRects(ANode: TTMSFNCTreeViewVirtualNode; ABitmapRects: TTMSFNCArrayTRectF); virtual;\r\n    procedure UpdateNodeCheckRects(ANode: TTMSFNCTreeViewVirtualNode; ACheckRects: TTMSFNCArrayTRectF); virtual;\r\n    procedure UpdateNodeExpandRects(ANode: TTMSFNCTreeViewVirtualNode; AExpandRects: TTMSFNCArrayTRectF); virtual;\r\n    procedure UpdateNodeTextRects(ANode: TTMSFNCTreeViewVirtualNode; ATextRects: TTMSFNCArrayTRectF); virtual;\r\n    procedure UpdateNodeTitleRects(ANode: TTMSFNCTreeViewVirtualNode; ATitleRects: TTMSFNCArrayTRectF); virtual;\r\n    procedure UpdateNodeExtraRects(ANode: TTMSFNCTreeViewVirtualNode; AExtraRects: TTMSFNCArrayTRectF); virtual;\r\n    procedure UpdateNodeTitleExtraRects(ANode: TTMSFNCTreeViewVirtualNode; ATitleExtraRects: TTMSFNCArrayTRectF); virtual;\r\n    procedure UpdateNodeCacheReference(ANode: TTMSFNCTreeViewVirtualNode; ACache: TTMSFNCTreeViewCacheItem); virtual;\r\n    procedure UpdateNodeExpanded(ANode: TTMSFNCTreeViewVirtualNode; AExpanded: Boolean); virtual;\r\n    procedure UpdateNodeExtended(ANode: TTMSFNCTreeViewVirtualNode; AExtended: Boolean); virtual;\r\n    procedure UpdateNodeTotalChildren(ANode: TTMSFNCTreeViewVirtualNode; ATotalChildren: Integer); virtual;\r\n    procedure UpdateNodeChildren(ANode: TTMSFNCTreeViewVirtualNode; AChildren: Integer); virtual;\r\n    procedure UpdateNodeIndex(ANode: TTMSFNCTreeViewVirtualNode; AIndex: Integer); virtual;\r\n    procedure UpdateNodeRow(ANode: TTMSFNCTreeViewVirtualNode; ARow: Integer); virtual;\r\n    procedure UpdateNodeLevel(ANode: TTMSFNCTreeViewVirtualNode; ALevel: Integer); virtual;\r\n    procedure UpdateNodeParentNode(ANode: TTMSFNCTreeViewVirtualNode; AParentNode: Integer); virtual;\r\n    procedure UpdateNode(ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure CustomizeScrollPosition({%H-}ANode: TTMSFNCTreeViewVirtualNode; var {%H-}APosition, {%H-}ATopPosition: Double); virtual;\r\n    function HTMLReplace(AValue: string; ANodeValue: TTMSFNCTreeViewNodeValue): string;\r\n    function GetHTMLTemplate(AColumnIndex: Integer): string; virtual;\r\n    property Columns: TTMSFNCTreeViewColumns read FColumns write SetColumns;\r\n    property Groups: TTMSFNCTreeViewGroups read FGroups write SetGroups;\r\n    property Nodes: TTMSFNCTreeViewNodes read FNodes write SetNodes;\r\n    property DisplayGroups: TTMSFNCTreeViewDisplayGroups read FDisplayGroups;\r\n    property BlockUpdate: Boolean read FBlockUpdate write FBlockUpdate;\r\n    property NodeStructure: TTMSFNCTreeViewNodeStructure read FNodeStructure;\r\n    property VisibleNodes: TTMSFNCTreeViewVisibleNodes read FVisibleNodes;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    function IsColumnVisible(ACol: Integer): Boolean; override;\r\n    function FindColumnByName(AName: String): TTMSFNCTreeViewColumn; virtual;\r\n    function FindGroupByName(AName: String): TTMSFNCTreeViewGroup; virtual;\r\n    function FindColumnIndexByName(AName: String): Integer; virtual;\r\n    function FindGroupIndexByName(AName: String): Integer; virtual;\r\n\r\n    procedure BeforeExport; override;\r\n    procedure AfterExport; override;\r\n    procedure ClearColumns; virtual;\r\n    procedure ClearNodes; virtual;\r\n    procedure ClearNodeList; virtual;\r\n    procedure RemoveNodeFromSelection(ANode: TTMSFNCTreeViewVirtualNode); virtual; abstract;\r\n    procedure AddNodeToSelection(ANode: TTMSFNCTreeViewVirtualNode); virtual; abstract;\r\n    procedure RemoveVirtualNode(ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure RemoveNode(ANode: TTMSFNCTreeViewNode); virtual;\r\n    procedure ExpandNode(ANode: TTMSFNCTreeViewNode; ARecurse: Boolean = False); virtual;\r\n    procedure MoveNode(ANode: TTMSFNCTreeViewNode; ADestinationNode: TTMSFNCTreeViewNode; AIndex: Integer = -1); virtual;\r\n    procedure CopyNode(ANode: TTMSFNCTreeViewNode; ADestinationNode: TTMSFNCTreeViewNode; AIndex: Integer = -1); virtual;\r\n    procedure ExpandAll; virtual;\r\n    procedure CollapseAll; virtual;\r\n    procedure ExpandAllVirtual; virtual;\r\n    procedure CollapseAllVirtual; virtual;\r\n    procedure ApplyFilter; virtual;\r\n    procedure RemoveFilter; virtual;\r\n    procedure RemoveFilters; virtual;\r\n    procedure CollapseNode(ANode: TTMSFNCTreeViewNode; ARecurse: Boolean = False); virtual;\r\n    procedure ToggleVirtualNode(ANode: TTMSFNCTreeViewVirtualNode; ARecurse: Boolean = False); virtual;\r\n    procedure ExpandVirtualNode(ANode: TTMSFNCTreeViewVirtualNode; ARecurse: Boolean = False); virtual;\r\n    procedure CollapseVirtualNode(ANode: TTMSFNCTreeViewVirtualNode; ARecurse: Boolean = False); virtual;\r\n    procedure CheckNode(ANode: TTMSFNCTreeViewNode; AColumn: Integer; ARecurse: Boolean = False); virtual;\r\n    procedure UnCheckNode(ANode: TTMSFNCTreeViewNode; AColumn: Integer; ARecurse: Boolean = False); virtual;\r\n    procedure ToggleCheckNode(ANode: TTMSFNCTreeViewNode; AColumn: Integer; ARecurse: Boolean = False); virtual;\r\n\r\n    procedure CheckVirtualNode(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; ARecurse: Boolean = False); virtual;\r\n    procedure UnCheckVirtualNode(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; ARecurse: Boolean = False); virtual;\r\n    procedure ToggleCheckVirtualNode(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; ARecurse: Boolean = False); virtual;\r\n\r\n    procedure SetNodeTextValues(ANode: TTMSFNCTreeViewNode; ATextValues: TTMSFNCTreeViewNodeTextValues); virtual;\r\n    procedure SetNodeCheckStates(ANode: TTMSFNCTreeViewNode; ACheckStates: TTMSFNCTreeViewNodeCheckStates); virtual;\r\n    procedure SetNodeCheckTypes(ANode: TTMSFNCTreeViewNode; ACheckTypes: TTMSFNCTreeViewNodeCheckTypes); virtual;\r\n    procedure SetNodeCollapsedIcons(ANode: TTMSFNCTreeViewNode; AIcons: TTMSFNCTreeViewNodeIcons; ALarge: Boolean = False); virtual;\r\n    procedure SetNodeExpandedIcons(ANode: TTMSFNCTreeViewNode; AIcons: TTMSFNCTreeViewNodeIcons; ALarge: Boolean = False); virtual;\r\n    procedure SetNodeCollapsedIconNames(ANode: TTMSFNCTreeViewNode; AIconNames: TTMSFNCTreeViewNodeIconNames; ALarge: Boolean = False); virtual;\r\n    procedure SetNodeExpandedIconNames(ANode: TTMSFNCTreeViewNode; AIconNames: TTMSFNCTreeViewNodeIconNames; ALarge: Boolean = False); virtual;\r\n\r\n    procedure RemoveVirtualNodeChildren(ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure RemoveNodeChildren(ANode: TTMSFNCTreeViewNode); virtual;\r\n    procedure ScrollToNode(ANode: TTMSFNCTreeViewNode; AScrollIfNotVisible: Boolean = False; AScrollPosition: TTMSFNCTreeViewNodeScrollPosition = tvnspTop; AForceScroll: Boolean = False); virtual;\r\n    procedure ScrollToVirtualNode(ANode: TTMSFNCTreeViewVirtualNode; AScrollIfNotVisible: Boolean = False; AScrollPosition: TTMSFNCTreeViewNodeScrollPosition = tvnspTop; AForceScroll: Boolean = False); virtual;\r\n    procedure ScrollToVirtualNodeInternal(ANode: TTMSFNCTreeViewVirtualNode; AScrollIfNotVisible: Boolean = False; AScrollPosition: TTMSFNCTreeViewNodeScrollPosition = tvnspTop; AForceScroll: Boolean = False); virtual;\r\n    procedure ScrollToVirtualNodeRow(ARow: Integer; AScrollIfNotVisible: Boolean = False; AScrollPosition: TTMSFNCTreeViewNodeScrollPosition = tvnspTop; AForceScroll: Boolean = False); virtual;\r\n    procedure ScrollToTop;\r\n    procedure ScrollToBottom;\r\n\r\n    function GetNodeForRow(ARow: Integer): TTMSFNCTreeViewVirtualNode; virtual;\r\n    function AddNode(AParentNode: TTMSFNCTreeViewNode = nil): TTMSFNCTreeViewNode; virtual;\r\n    function AddVirtualNode(AParentNode: TTMSFNCTreeViewVirtualNode = nil): TTMSFNCTreeViewVirtualNode; virtual;\r\n    function GetParentVirtualNode(ANode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewVirtualNode; virtual;\r\n    function GetParentNode(ANode: TTMSFNCTreeViewNode): TTMSFNCTreeViewNode; virtual;\r\n    function GetVirtualNodeChildCount(ANode: TTMSFNCTreeViewVirtualNode): Integer; virtual;\r\n    function GetTotalVirtualNodeCount: Integer; virtual;\r\n    function GetTotalNodeCount: Integer; virtual;\r\n    function GetNodeText(ANode: TTMSFNCTreeViewNode; AColumn: Integer): string; virtual;\r\n    function GetVirtualNodeText(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer): string; virtual;\r\n    function GetNodeTitle(ANode: TTMSFNCTreeViewNode; AColumn: Integer): string; virtual;\r\n    function GetVirtualNodeTitle(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer): string; virtual;\r\n    function GetVirtualNodeTitleExpanded(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer): Boolean; virtual;\r\n    function FindVirtualNodeByRow(ARow: Integer): TTMSFNCTreeViewVirtualNode; virtual;\r\n    function FindNodeByRow(ARow: Integer): TTMSFNCTreeViewNode; virtual;\r\n    function FindVirtualNodeByDBKey(ADBKey: String): TTMSFNCTreeViewVirtualNode; virtual;\r\n    function FindNodeByDBKey(ADBKey: String): TTMSFNCTreeViewNode; virtual;\r\n    function FindVirtualNodeByTextAndColumn(AText: string; AColumn: Integer; ARecurse: Boolean = False; ACaseSensitive: Boolean = True): TTMSFNCTreeViewVirtualNode; virtual;\r\n    function FindNodeByTextAndColumn(AText: string; AColumn: Integer; ARecurse: Boolean = False; ACaseSensitive: Boolean = True): TTMSFNCTreeViewNode; virtual;\r\n    function GetNodeChildCount(ANode: TTMSFNCTreeViewNode): Integer; virtual;\r\n    function GetPreviousNode(ANode: TTMSFNCTreeViewNode): TTMSFNCTreeViewNode; virtual;\r\n    function GetNextNode(ANode: TTMSFNCTreeViewNode): TTMSFNCTreeViewNode; virtual;\r\n    function GetPreviousChildNode(ANode: TTMSFNCTreeViewNode; AStartNode: TTMSFNCTreeViewNode): TTMSFNCTreeViewNode; virtual;\r\n    function GetNextChildNode(ANode: TTMSFNCTreeViewNode; AStartNode: TTMSFNCTreeViewNode): TTMSFNCTreeViewNode; virtual;\r\n    function GetNextSiblingNode(ANode: TTMSFNCTreeViewNode): TTMSFNCTreeViewNode; virtual;\r\n    function GetPreviousSiblingNode(ANode: TTMSFNCTreeViewNode): TTMSFNCTreeViewNode; virtual;\r\n    function GetFirstChildNode(ANode: TTMSFNCTreeViewNode): TTMSFNCTreeViewNode; virtual;\r\n    function GetLastChildNode(ANode: TTMSFNCTreeViewNode): TTMSFNCTreeViewNode; virtual;\r\n\r\n    function GetPreviousVirtualNode(ANode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewVirtualNode; virtual;\r\n    function GetNextVirtualNode(ANode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewVirtualNode; virtual;\r\n    function GetPreviousChildVirtualNode({%H-}ANode: TTMSFNCTreeViewVirtualNode; AStartNode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewVirtualNode; virtual;\r\n    function GetNextChildVirtualNode({%H-}ANode: TTMSFNCTreeViewVirtualNode; AStartNode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewVirtualNode; virtual;\r\n    function GetNextSiblingVirtualNode({%H-}ANode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewVirtualNode; virtual;\r\n    function GetPreviousSiblingVirtualNode({%H-}ANode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewVirtualNode; virtual;\r\n    function GetFirstChildVirtualNode({%H-}ANode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewVirtualNode; virtual;\r\n    function GetLastChildVirtualNode({%H-}ANode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewVirtualNode; virtual;\r\n\r\n    function GetFirstRootNode: TTMSFNCTreeViewNode; virtual;\r\n    function GetLastRootNode: TTMSFNCTreeViewNode; virtual;\r\n    function GetLastNode: TTMSFNCTreeViewNode; virtual;\r\n    function GetFirstRootVirtualNode: TTMSFNCTreeViewVirtualNode; virtual;\r\n    function GetLastRootVirtualNode: TTMSFNCTreeViewVirtualNode; virtual;\r\n    function GetLastVirtualNode: TTMSFNCTreeViewVirtualNode; virtual;\r\n    function GetRootNodeByIndex(AIndex: Integer): TTMSFNCTreeViewNode; virtual;\r\n    function GetRootVirtualNodeByIndex(AIndex: Integer): TTMSFNCTreeViewVirtualNode; virtual;\r\n\r\n    function InsertNode(AIndex: Integer; AParentNode: TTMSFNCTreeViewNode = nil): TTMSFNCTreeViewNode; virtual;\r\n    function InsertVirtualNode(AIndex: Integer; AParentNode: TTMSFNCTreeViewVirtualNode = nil): TTMSFNCTreeViewVirtualNode; virtual;\r\n\r\n    property Filter: TTMSFNCTreeViewFilter read FFilter;\r\n    property SortMode: TTMSFNCTreeViewNodesSortMode read FSortMode;\r\n  end;\r\n\r\nfunction TranslateTextEx(AText: String): String;\r\n\r\nimplementation\r\n\r\nuses\r\n  SysUtils, Math, WEBLib.TMSFNCUtils, WEBLib.Graphics\r\n  {$IFDEF FMXLIB}\r\n  , FMX.Types\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  ,AnsiStrings\r\n  {$ENDIF}\r\n  ;\r\n\r\nfunction TranslateTextEx(AText: String): String;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Result := TranslateText(AText);\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  Result := AText;\r\n  {$ENDIF}\r\nend;\r\n\r\n{$IFDEF LCLLIB}\r\nclass operator TTMSFNCTreeViewDisplayGroup.=(z1, z2: TTMSFNCTreeViewDisplayGroup)b: boolean;\r\nbegin\r\n  Result := z1 = z2;\r\nend;\r\n{$ENDIF}\r\n\r\ntype\r\n  {$HINTS OFF}\r\n  TShadowedCollection = class(TPersistent)\r\n  private\r\n    {%H-}FItemClass: TCollectionItemClass;\r\n    {$IFDEF LCLWEBLIB}\r\n    FItems: TFPList;\r\n    {$ENDIF}\r\n    {$IFNDEF LCLWEBLIB}\r\n    FItems: TList<TCollectionItem>;\r\n    {$ENDIF}\r\n  end;\r\n  {$HINTS ON}\r\n\r\n{ TTMSFNCTreeViewData }\r\n\r\nprocedure TTMSFNCTreeViewData.RemoveVirtualNode(ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  RemoveNodeInternal(ANode);\r\nend;          \r\n\r\nprocedure TTMSFNCTreeViewData.ToggleCheckNode(ANode: TTMSFNCTreeViewNode; AColumn: Integer; ARecurse: Boolean = False);\r\nbegin\r\n  if Assigned(ANode) then\r\n    ToggleCheckNodeInternal(ANode.VirtualNode, AColumn, ARecurse);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.CheckNode(ANode: TTMSFNCTreeViewNode; AColumn: Integer; ARecurse: Boolean = False);\r\nbegin\r\n  if Assigned(ANode) then\r\n    CheckNodeInternal(ANode.VirtualNode, AColumn, ARecurse);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UnCheckNode(ANode: TTMSFNCTreeViewNode; AColumn: Integer; ARecurse: Boolean = False);\r\nbegin\r\n  if Assigned(ANode) then\r\n    UnCheckNodeInternal(ANode.VirtualNode, AColumn, ARecurse);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.ToggleCheckVirtualNode(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; ARecurse: Boolean = False);\r\nbegin\r\n  ToggleCheckNodeInternal(ANode, AColumn, ARecurse);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.CheckVirtualNode(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; ARecurse: Boolean = False);\r\nbegin\r\n  CheckNodeInternal(ANode, AColumn, ARecurse);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UnCheckVirtualNode(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; ARecurse: Boolean = False);\r\nbegin\r\n  UnCheckNodeInternal(ANode, AColumn, ARecurse);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.CollapseAll;\r\n  procedure CollapseNodes(n: TTMSFNCTreeViewNodes);\r\n  var\r\n    I: Integer;\r\n  begin\r\n    for I := 0 to n.Count - 1 do\r\n    begin\r\n      n[I].FExpanded := False;\r\n      CollapseNodes(n[I].Nodes);\r\n    end;\r\n  end;\r\nbegin\r\n  CollapseNodes(Nodes);\r\n  CollapseAllVirtual;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.CollapseAllVirtual;\r\nvar\r\n  I: Integer;\r\n  v: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  VisibleNodes.Clear;\r\n  TotalRowHeight := 1;\r\n  RowCount := 0;\r\n  for I := 0 to NodeStructure.Count - 1 do\r\n  begin\r\n    v := GetNodeFromNodeStructure(I);\r\n    if Assigned(v) then\r\n    begin\r\n      UpdateNodeExpanded(v, False);\r\n      if v.ParentNode = -1 then\r\n      begin\r\n        VisibleNodes.Add(v);\r\n        TotalRowHeight := TotalRowHeight + v.Height;\r\n        RowCount := RowCount + 1;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  ResetNodes;\r\n  UpdateTreeView;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.CollapseNode(ANode: TTMSFNCTreeViewNode; ARecurse: Boolean = False);\r\nbegin\r\n  if Assigned(ANode) then\r\n    CollapseVirtualNode(ANode.VirtualNode, ARecurse);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.ToggleNode(ANode: TTMSFNCTreeViewNode);\r\nbegin\r\n  if Assigned(ANode) then\r\n    ToggleVirtualNode(ANode.VirtualNode);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.ExpandAll;\r\n  procedure ExpandNodes(n: TTMSFNCTreeViewNodes);\r\n  var\r\n    I: Integer;\r\n  begin\r\n    for I := 0 to n.Count - 1 do\r\n    begin\r\n      n[I].FExpanded := True;\r\n      ExpandNodes(n[I].Nodes);\r\n    end;\r\n  end;\r\nbegin\r\n  ExpandNodes(Nodes);\r\n  ExpandAllVirtual;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.ExpandAllVirtual;\r\nvar\r\n  I: Integer;\r\n  v: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  VisibleNodes.Clear;\r\n  TotalRowHeight := 1;\r\n  RowCount := 0;\r\n  for I := 0 to NodeStructure.Count - 1 do\r\n  begin\r\n    v := GetNodeFromNodeStructure(I);\r\n    if Assigned(v) and (((MatchFilter(v) or v.FAddedToVisibleList) and FFilterApplied) or not FFilterApplied) then\r\n    begin\r\n      UpdateNodeExpanded(v, True);\r\n      VisibleNodes.Add(v);\r\n      TotalRowHeight := TotalRowHeight + v.Height;\r\n      RowCount := RowCount + 1;\r\n    end;\r\n  end;\r\n\r\n  ResetNodes;\r\n  UpdateTreeView;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.ExpandNode(ANode: TTMSFNCTreeViewNode; ARecurse: Boolean = False);\r\nbegin\r\n  if Assigned(ANode) then\r\n    ExpandVirtualNode(ANode.VirtualNode, ARecurse);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.CollapseVirtualNode(ANode: TTMSFNCTreeViewVirtualNode; ARecurse: Boolean = False);\r\nbegin\r\n  CollapseNodeInternal(ANode, ARecurse);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.CopyNode(ANode,\r\n  ADestinationNode: TTMSFNCTreeViewNode; AIndex: Integer);\r\nvar\r\n  n, nw: TTMSFNCTreeViewNode;\r\nbegin\r\n  if ADestinationNode <> ANode then\r\n  begin\r\n    BeginUpdate;\r\n    n := TTMSFNCTreeViewNode.Create(nil);\r\n    n.Assign(ANode);\r\n\r\n    if Assigned(ADestinationNode) then\r\n      nw := ADestinationNode.Nodes.Add\r\n    else\r\n      nw := Nodes.Add;\r\n\r\n    nw.Assign(n);\r\n    n.Free;\r\n\r\n    if Assigned(ADestinationNode) then\r\n    begin\r\n      if (AIndex >= 0) and (AIndex <= ADestinationNode.Nodes.Count - 1) then\r\n        nw.Index := AIndex;\r\n    end\r\n    else\r\n    begin\r\n      if (AIndex >= 0) and (AIndex <= Nodes.Count - 1) then\r\n        nw.Index := AIndex;\r\n    end;\r\n\r\n    EndUpdate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.ToggleVirtualNode(ANode: TTMSFNCTreeViewVirtualNode; ARecurse: Boolean = False);\r\nbegin\r\n  ToggleNodeInternal(ANode, ARecurse);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.ExpandVirtualNode(ANode: TTMSFNCTreeViewVirtualNode; ARecurse: Boolean = False);\r\nbegin\r\n  ExpandNodeInternal(ANode, ARecurse);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if Source is TTMSFNCTreeViewData then\r\n  begin\r\n    FColumns.Assign((Source as TTMSFNCTreeViewData).Columns);\r\n    FGroups.Assign((Source as TTMSFNCTreeViewData).Groups);\r\n    FNodes.Assign((Source as TTMSFNCTreeViewData).Nodes);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.ClearColumns;\r\nbegin\r\n  BeginUpdate;\r\n  Columns.Clear;\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.ClearNodeList;\r\nbegin\r\n  BeginUpdate;\r\n  NodeListBuild := False;\r\n  ClearFocusedNode(nil);\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.ClearNodes;\r\nbegin\r\n  BeginUpdate;\r\n  NodeListBuild := False;\r\n  Nodes.Clear;\r\n  ClearFocusedNode(nil);\r\n  EndUpdate;\r\nend;\r\n\r\nconstructor TTMSFNCTreeViewData.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FFilter := TTMSFNCTreeViewFilter.Create(Self);\r\n  FNodeStructure := TTMSFNCTreeViewNodeStructure.Create;\r\n  FVisibleNodes := TTMSFNCTreeViewVisibleNodes.Create;\r\n  FDisplayGroups := TTMSFNCTreeViewDisplayGroups.Create;\r\n\r\n  FNodes := CreateNodes;\r\n  FColumns := CreateColumns;\r\n  FGroups := CreateGroups;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.CreateGroups: TTMSFNCTreeViewGroups;\r\nbegin\r\n  Result := TTMSFNCTreeViewGroups.Create(Self);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetNodeFromNodeStructure(AIndex: Integer): TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if (AIndex >= 0) and (AIndex <= NodeStructure.Count - 1) then\r\n    Result := NodeStructure[AIndex];\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetNodesSpacing(ANode: TTMSFNCTreeViewVirtualNode): Single;\r\nbegin\r\n  Result := 0;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetNodeText(ANode: TTMSFNCTreeViewNode;\r\n  AColumn: Integer): string;\r\nbegin\r\n  Result := GetVirtualNodeText(ANode.VirtualNode, AColumn);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetNodeTitle(ANode: TTMSFNCTreeViewNode;\r\n  AColumn: Integer): string;\r\nbegin\r\n  Result := GetVirtualNodeTitle(ANode.VirtualNode, AColumn);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetParentNode(\r\n  ANode: TTMSFNCTreeViewNode): TTMSFNCTreeViewNode;\r\nvar\r\n  v: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(ANode) then\r\n  begin\r\n    v := GetParentVirtualNode(ANode.VirtualNode);\r\n    if Assigned(v) then\r\n      Result := v.Node;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetPreviousChildNode(\r\n  ANode: TTMSFNCTreeViewNode; AStartNode: TTMSFNCTreeViewNode): TTMSFNCTreeViewNode;\r\nvar\r\n  v: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(ANode) and Assigned(AStartNode) then\r\n  begin\r\n    v := GetPreviousChildVirtualNode(ANode.VirtualNode, AStartNode.VirtualNode);\r\n    if Assigned(v) then\r\n      Result := v.Node;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetPreviousChildVirtualNode(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AStartNode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := GetPreviousSiblingVirtualNode(AStartNode);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetPreviousNode(\r\n  ANode: TTMSFNCTreeViewNode): TTMSFNCTreeViewNode;\r\nvar\r\n  v: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(ANode) then\r\n  begin\r\n    v := GetPreviousVirtualNode(ANode.VirtualNode);\r\n    if Assigned(v) then\r\n      Result := v.Node;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetPreviousSiblingNode(\r\n  ANode: TTMSFNCTreeViewNode): TTMSFNCTreeViewNode;\r\nvar\r\n  v: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(ANode) then\r\n  begin\r\n    v := GetPreviousSiblingVirtualNode(ANode.VirtualNode);\r\n    if Assigned(v) then\r\n      Result := v.Node;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetPreviousSiblingVirtualNode(\r\n  ANode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewVirtualNode;\r\nvar\r\n  res: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  res := ANode;\r\n  repeat\r\n    res := GetPreviousVirtualNode(res);\r\n    Result := res;\r\n  until (Result = nil) or (Assigned(Result) and (Result.ParentNode = ANode.ParentNode));\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetPreviousVirtualNode(\r\n  ANode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(ANode) then\r\n    Result := GetNodeFromNodeStructure(ANode.Row - 1);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetRootNodeByIndex(\r\n  AIndex: Integer): TTMSFNCTreeViewNode;\r\nvar\r\n  n: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  n := GetRootVirtualNodeByIndex(AIndex);\r\n  if Assigned(n) then\r\n    Result := n.Node;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetRootVirtualNodeByIndex(\r\n  AIndex: Integer): TTMSFNCTreeViewVirtualNode;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := nil;\r\n  for I := 0 to NodeStructure.Count - 1 do\r\n  begin\r\n    if NodeStructure[I].Index = AIndex then\r\n    begin\r\n      Result := NodeStructure[I];\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetTotalNodeCount: Integer;\r\nbegin\r\n  Result := GetTotalVirtualNodeCount;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetTotalVirtualNodeCount: Integer;\r\nvar\r\n  n: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := 0;\r\n  n := GetFirstRootVirtualNode;\r\n  while Assigned(n) do\r\n  begin\r\n    Result := Result + n.TotalChildren + 1;\r\n    n := n.GetNextSibling;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.InsertItemInternal(AItem: TTMSFNCTreeViewNode);\r\nvar\r\n  pn: TTMSFNCTreeViewNode;\r\nbegin\r\n  if (csDestroying in ComponentState) or not Assigned(AItem) or not NodeListBuild then\r\n    Exit;\r\n\r\n  pn := TTMSFNCTreeViewNodes(AItem.Collection).Node;\r\n  if Assigned(pn) then\r\n    InsertVirtualNode(AItem.Index, pn.VirtualNode)\r\n  else\r\n    InsertVirtualNode(AItem.Index);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.RemoveFilter;\r\nbegin\r\n  FFilterApplied := False;\r\n  ClearNodeList;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.RemoveFilters;\r\nbegin\r\n  Filter.Clear;\r\n  RemoveFilter;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.RemoveItemInternal(AItem: TTMSFNCTreeViewNode; AUpdate: Boolean = True): TTMSFNCTreeViewVirtualNodeRemoveData;\r\nbegin\r\n  Result.RowIndex := -1;\r\n  Result.Count := 0;\r\n  Result.ParentNode := -1;\r\n\r\n  if (csDestroying in ComponentState) or not Assigned(AItem) or not NodeListBuild then\r\n    Exit;\r\n\r\n  Result := RemoveNodeInternal(AItem.VirtualNode, AUpdate);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.InsertNodeInternal(AParentNode: TTMSFNCTreeViewVirtualNode; AIndex, AInsertIndex: Integer; ANode: TTMSFNCTreeViewVirtualNode);\r\nvar\r\n  I: Integer;\r\n  pi: Integer;\r\n  pv, rs: TTMSFNCTreeViewVirtualNode;\r\n  cnt: Integer;\r\n  vi: Boolean;\r\n  chk: Boolean;\r\n  chkst: TTMSFNCArrayBoolean;\r\n  ins: Integer;\r\n  exp, ext: Boolean;\r\n  K: Integer;\r\nbegin\r\n  if not NodeListBuild or (csDestroying in ComponentState) then\r\n    Exit;\r\n\r\n  if not Assigned(ANode) then\r\n  begin\r\n    ANode.Free;\r\n    Exit;\r\n  end;\r\n\r\n  cnt := NodeStructure.Count;\r\n  if Assigned(AParentNode) then\r\n  begin\r\n    pi := AParentNode.Row;\r\n    if (pi >= 0) and (pi <= NodeStructure.Count - 1) then\r\n    begin\r\n      pv := GetNodeFromNodeStructure(pi);\r\n      while Assigned(pv) do\r\n      begin\r\n        UpdateNodeTotalChildren(pv, pv.TotalChildren + 1);\r\n        if pv.Row = AParentNode.Row then\r\n          UpdateNodeChildren(pv, pv.Children + 1);\r\n\r\n        pi := pv.ParentNode;\r\n        pv := GetNodeFromNodeStructure(pi);\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  UpdateNodeIndex(ANode, AIndex);\r\n  UpdateNodeRow(ANode, AInsertIndex);\r\n\r\n  if Assigned(AParentNode) then\r\n  begin\r\n    UpdateNodeParentNode(ANode, AParentNode.Row);\r\n    UpdateNodeLevel(ANode, AParentNode.Level + 1);\r\n  end\r\n  else\r\n  begin\r\n    UpdateNodeParentNode(ANode, -1);\r\n    UpdateNodeLevel(ANode, 0);\r\n  end;\r\n\r\n  UpdateNodeHeight(ANode, GetDefaultRowHeight(ANode));\r\n\r\n  GetNodeForNodeData(ANode);\r\n\r\n  exp := False;\r\n  DoIsNodeExpanded(ANode, exp);\r\n  UpdateNodeExpanded(ANode, exp);\r\n\r\n  ext := False;\r\n  DoIsNodeExtended(ANode, ext);\r\n  UpdateNodeExtended(ANode, ext);\r\n\r\n  SetLength(chkst, 0);\r\n  for I := 0 to ColumnCount - 1 do\r\n  begin\r\n    chk := False;\r\n    DoIsNodeChecked(ANode, I, chk);\r\n    SetLength(chkst, Length(chkst) + 1);\r\n    chkst[Length(chkst) - 1] := chk;\r\n  end;\r\n\r\n  UpdateNodeCheckStates(ANode, chkst);\r\n\r\n  if (ANode.Row >= 0) and (ANode.Row < NodeStructure.Count) then\r\n    NodeStructure.Insert(ANode.Row, ANode)\r\n  else\r\n    NodeStructure.Add(ANode);\r\n\r\n  vi := True;\r\n  if Assigned(AParentNode) then\r\n    DoIsNodeVisible(AParentNode, vi);\r\n\r\n  cnt := cnt - NodeStructure.Count;\r\n\r\n  for I := ANode.Row + 1 to NodeStructure.Count - 1 do\r\n  begin\r\n    rs := GetNodeFromNodeStructure(I);\r\n    if Assigned(rs) then\r\n    begin\r\n      UpdateNodeRow(rs, rs.Row - cnt);\r\n\r\n      if rs.ParentNode > ANode.ParentNode then\r\n        UpdateNodeParentNode(rs, rs.ParentNode - cnt);\r\n\r\n      if rs.ParentNode = ANode.ParentNode then\r\n        UpdateNodeIndex(rs, rs.Index + 1);\r\n\r\n      GetNodeForNodeData(rs);\r\n\r\n      exp := False;\r\n      DoIsNodeExpanded(rs, exp);\r\n      UpdateNodeExpanded(rs, exp);\r\n\r\n      ext := False;\r\n      DoIsNodeExtended(rs, ext);\r\n      UpdateNodeExtended(rs, ext);\r\n\r\n      SetLength(chkst, 0);\r\n      for K := 0 to ColumnCount - 1 do\r\n      begin\r\n        chk := False;\r\n        DoIsNodeChecked(RS, K, chk);\r\n        SetLength(chkst, Length(chkst) + 1);\r\n        chkst[Length(chkst) - 1] := chk;\r\n      end;\r\n\r\n      UpdateNodeCheckStates(rs, chkst);\r\n    end;\r\n  end;\r\n\r\n  if not Assigned(AParentNode) or (Assigned(AParentNode) and AParentNode.Expanded and vi) then\r\n  begin\r\n    if not Assigned(AParentNode) then\r\n    begin\r\n      RowCount := RowCount + 1;\r\n      TotalRowHeight := TotalRowHeight + GetDefaultRowHeight(ANode);\r\n      ins := GetInsertPosition(ANode, True, True);\r\n      if (ins >= 0) and (ins < VisibleNodes.Count) then\r\n        VisibleNodes.Insert(ins, ANode)\r\n      else\r\n        VisibleNodes.Add(ANode);\r\n    end\r\n    else\r\n    begin\r\n      UpdateNodeExpanded(AParentNode, False);\r\n      UpdateVisibleNodes(AParentNode);\r\n      UpdateNodeExpanded(AParentNode, True);\r\n      UpdateVisibleNodes(AParentNode);\r\n    end;\r\n  end;\r\n\r\n  ResetNodes(False);\r\n  UpdateTreeView;\r\n  Invalidate;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.CreateNodes: TTMSFNCTreeViewNodes;\r\nbegin\r\n  Result := TTMSFNCTreeViewNodes.Create(Self, nil);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.CustomizeScrollPosition(\r\n  ANode: TTMSFNCTreeViewVirtualNode; var APosition, ATopPosition: Double);\r\nbegin\r\n\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.CreateColumns: TTMSFNCTreeViewColumns;\r\nbegin\r\n  Result := TTMSFNCTreeViewColumns.Create(Self);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.RemoveNodeChildren(ANode: TTMSFNCTreeViewNode);\r\nbegin\r\n  if Assigned(ANode) then\r\n    ANode.Nodes.Clear;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.RemoveVirtualNodeChildren(ANode: TTMSFNCTreeViewVirtualNode);\r\nvar\r\n  I: Integer;\r\n  s: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  if Assigned(ANode) then\r\n  begin\r\n    for I := ANode.TotalChildren - 1 downto 0 do\r\n    begin\r\n      s := GetNodeFromNodeStructure(ANode.Row + I);\r\n      if Assigned(s) then\r\n        RemoveVirtualNode(s);    \r\n    end;\r\n  end;\r\nend;\r\n\r\ndestructor TTMSFNCTreeViewData.Destroy;\r\nbegin\r\n  FFilter.Free;\r\n  FDisplayGroups.Free;\r\n  FNodeStructure.Free;\r\n  FVisibleNodes.Free;\r\n  FNodes.Free;\r\n  FGroups.Free;\r\n  FColumns.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetColumnHorizontalTextAlign(AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var AHorizontalTextAlign: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetColumnTrimming(AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var ATrimming: TTMSFNCGraphicsTextTrimming);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetColumnVerticalTextAlign(AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var AVerticalTextAlign: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetColumnWordWrapping(AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var AWordWrapping: Boolean);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetHTMLTemplate(ANodeValue: TTMSFNCTreeViewNodeValue; AColumnIndex: Integer; var AHTMLTemplate: string);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetHTMLTemplateValue(ANodeValue: TTMSFNCTreeViewNodeValue; AName: string; var AValue: string);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeCheckType(ANode: TTMSFNCTreeViewVirtualNode;\r\n  AColumn: Integer; var ACheckType: TTMSFNCTreeViewNodeCheckType);\r\nvar\r\n  it: TTMSFNCTreeViewNode;\r\nbegin\r\n  it := ANode.Node;\r\n  if Assigned(it) then\r\n  begin\r\n     if (AColumn >= 0) and (AColumn <= it.Values.Count - 1) then\r\n       ACheckType := it.Values[AColumn].CheckType;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeColor(ANode: TTMSFNCTreeViewVirtualNode; var AColor: TTMSFNCGraphicsColor);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeData(ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeDisabledColor(\r\n  ANode: TTMSFNCTreeViewVirtualNode; var AColor: TTMSFNCGraphicsColor);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeDisabledTextColor(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ATextColor: TTMSFNCGraphicsColor);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeDisabledTitleColor(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var ATitleColor: TTMSFNCGraphicsColor);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeExtraSize(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AExtraSize: Single);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeTitleExtraSize(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ATitleExtraSize: Single);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.BeforeExport;\r\nbegin\r\n  inherited;\r\n  ClearNodeList;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.BuildInternalNodeList(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AID: String; AParentNode: Integer; ANodeIndex: Integer; ALevel: Integer; AParentExpanded: Boolean; var ATotalChildren: Integer);\r\nvar\r\n  I: Integer;\r\n  nd: Integer;\r\n  vi: Boolean;\r\n  v: TTMSFNCTreeViewVirtualNode;\r\n  exp: Boolean;\r\n  tot: Integer;\r\n  chk, ext: Boolean;\r\n  chkst: TTMSFNCArrayBoolean;\r\n  p: TTMSFNCTreeViewVirtualNode;\r\n  l: TTMSFNCTreeViewVirtualNodeArray;\r\nbegin\r\n  ANode.FRow := FNodeStructure.Count;\r\n  ANode.FParentNode := AParentNode;\r\n  ANode.FIndex := ANodeIndex;\r\n  ANode.FLevel := ALevel;\r\n  if AID <> 'ROOT' then\r\n    GetNodeForNodeData(ANode);\r\n\r\n  nd := 0;\r\n  if (ALevel < MAXLEVELDEPTH) then\r\n    DoGetNumberOfNodes(ANode, nd);\r\n\r\n  ANode.FChildren := nd;\r\n\r\n  ANode.FCalculated := False;\r\n  ANode.FHeight := GetDefaultRowHeight(ANode);\r\n\r\n  exp := False;\r\n  if AID <> 'ROOT' then\r\n    DoIsNodeExpanded(ANode, exp);\r\n  ANode.FExpanded := exp;\r\n\r\n  ext := False;\r\n  DoIsNodeExtended(ANode, ext);\r\n  UpdateNodeExtended(ANode, ext);\r\n\r\n  SetLength(chkst, 0);\r\n  if AID <> 'ROOT' then\r\n  begin\r\n    for I := 0 to ColumnCount - 1 do\r\n    begin\r\n      chk := False;\r\n      DoIsNodeChecked(ANode, I, chk);\r\n      SetLength(chkst, Length(chkst) + 1);\r\n      chkst[Length(chkst) - 1] := chk;\r\n    end;\r\n    ANode.FCheckStates := chkst;\r\n  end;\r\n\r\n  if FFilterApplied then\r\n    vi := MatchFilter(ANode)\r\n  else\r\n    vi := True;\r\n\r\n  if AID <> 'ROOT' then\r\n    DoIsNodeVisible(ANode, vi);\r\n\r\n  tot := nd;\r\n\r\n  if AID <> 'ROOT' then\r\n  begin\r\n    FNodeStructure.Add(ANode);\r\n    if (AParentExpanded or (ANode.Level = 0)) and vi then\r\n    begin\r\n      if FFilterApplied then\r\n      begin\r\n        p := ANode.GetParent;\r\n        l := nil;\r\n        while Assigned(p) do\r\n        begin\r\n          if not p.FAddedToVisibleList then\r\n          begin\r\n            SetLength(l, Length(l) + 1);\r\n            l[Length(l) - 1] := p;\r\n          end;\r\n          p := p.GetParent;\r\n        end;\r\n\r\n        for I := Length(l) - 1 downto 0 do\r\n        begin\r\n          FVisibleNodes.Add(l[I]);\r\n          l[I].FAddedToVisibleList := True;\r\n        end;\r\n      end;\r\n\r\n      FVisibleNodes.Add(ANode);\r\n      ANode.FAddedToVisibleList := True;\r\n    end;\r\n  end;\r\n\r\n  for I := 0 to nd - 1 do\r\n  begin\r\n    if FNodeStructure.Count = MAXNODECOUNT then\r\n      Break;\r\n\r\n    v := TTMSFNCTreeViewVirtualNode.Create(Self);\r\n    if AID = 'ROOT' then\r\n      BuildInternalNodeList(v, '', AParentNode, I, 0, exp, tot)\r\n    else\r\n      BuildInternalNodeList(v, '', ANode.Row, I, ANode.Level + 1, exp, tot);\r\n  end;\r\n\r\n  ATotalChildren := ATotalChildren + tot;\r\n\r\n  if AID <> 'ROOT' then\r\n    ANode.FTotalChildren := tot\r\n  else\r\n    ANode.Free;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.Notification(AComponent: TComponent;\r\n  Operation: TOperation);\r\nbegin\r\n  inherited;\r\n  if (AComponent = FBitmapContainer) and (Operation = opRemove) then\r\n    FBitmapContainer := nil;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.BuildNodeList;\r\nvar\r\n  v: TTMSFNCTreeViewVirtualNode;\r\n  c: Integer;\r\nbegin\r\n  if NodeListBuild then\r\n    Exit;\r\n\r\n  FNodeStructure.Clear;\r\n  FVisibleNodes.Clear;\r\n  v := TTMSFNCTreeViewVirtualNode.Create(Self);\r\n  TotalRowHeight := 1;\r\n  RowCount := 0;\r\n  c := 0;\r\n  BuildInternalNodeList(v, 'ROOT', -1, -1, -1, True, c);\r\n  RowCount := FVisibleNodes.Count;\r\n  NodeListBuild := FNodeStructure.Count > 0;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetNextChildNode(\r\n  ANode: TTMSFNCTreeViewNode; AStartNode: TTMSFNCTreeViewNode): TTMSFNCTreeViewNode;\r\nvar\r\n  v: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(ANode) and Assigned(AStartNode) then\r\n  begin\r\n    v := GetNextChildVirtualNode(ANode.VirtualNode, AStartNode.VirtualNode);\r\n    if Assigned(v) then\r\n      Result := v.Node;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetNextChildVirtualNode(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AStartNode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := GetNextSiblingVirtualNode(AStartNode);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetNextNode(\r\n  ANode: TTMSFNCTreeViewNode): TTMSFNCTreeViewNode;\r\nvar\r\n  v: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(ANode) then\r\n  begin\r\n    v := GetNextVirtualNode(ANode.VirtualNode);\r\n    if Assigned(v) then\r\n      Result := v.Node;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetNextSiblingNode(\r\n  ANode: TTMSFNCTreeViewNode): TTMSFNCTreeViewNode;\r\nvar\r\n  v: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(ANode) then\r\n  begin\r\n    v := GetNextSiblingVirtualNode(ANode.VirtualNode);\r\n    if Assigned(v) then\r\n      Result := v.Node;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetNextSiblingVirtualNode(\r\n  ANode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewVirtualNode;\r\nvar\r\n  res: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  res := ANode;\r\n  repeat\r\n    res := GetNextVirtualNode(res);\r\n    Result := res;\r\n  until (Result = nil) or (Assigned(Result) and (Result.ParentNode = ANode.ParentNode));\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetNextVirtualNode(\r\n  ANode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(ANode) then\r\n    Result := GetNodeFromNodeStructure(ANode.Row + 1);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetNodeChildCount(ANode: TTMSFNCTreeViewNode): Integer;\r\nbegin\r\n  Result := 0;\r\n  if Assigned(ANode) then\r\n    Result := GetVirtualNodeChildCount(ANode.VirtualNode);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetBitmapContainer: TTMSFNCBitmapContainer;\r\nbegin\r\n  Result := FBitmapContainer;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetDefaultRowHeight(\r\n  ANode: TTMSFNCTreeViewVirtualNode): Single;\r\nbegin\r\n  Result := DefaultRowHeight + GetNodesSpacing(ANode);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetFirstChildNode(\r\n  ANode: TTMSFNCTreeViewNode): TTMSFNCTreeViewNode;\r\nvar\r\n  v: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(ANode) then\r\n  begin\r\n    v := GetFirstChildVirtualNode(ANode.VirtualNode);\r\n    if Assigned(v) then\r\n      Result := v.Node;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetFirstChildVirtualNode(\r\n  ANode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(ANode) and (ANode.Children > 0) then\r\n    Result := GetNodeFromNodeStructure(ANode.Row + 1);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetFirstRootNode: TTMSFNCTreeViewNode;\r\nvar\r\n  n: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  n := GetFirstRootVirtualNode;\r\n  if Assigned(n) then\r\n    Result := n.Node;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetFirstRootVirtualNode: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if NodeStructure.Count > 0 then\r\n    Result := NodeStructure[0];\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetHTMLTemplate(AColumnIndex: Integer): string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetInsertPosition(\r\n  ANode: TTMSFNCTreeViewVirtualNode; ARoot: Boolean; AInsert: Boolean): Integer;\r\nvar\r\n  prev: TTMSFNCTreeViewVirtualNode;\r\n  I: Integer;\r\n  r: Integer;\r\n  n: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := -1;\r\n  if not Assigned(ANode) then\r\n    Exit;\r\n\r\n  if (ANode.Row = 0) then\r\n  begin\r\n    Result := 0;\r\n    Exit;\r\n  end;\r\n\r\n  if AInsert then\r\n    prev := GetNodeFromNodeStructure(ANode.Row - 1)\r\n  else\r\n    prev := GetNodeFromNodeStructure(ANode.Row);\r\n\r\n  if ARoot then\r\n  begin\r\n    while Assigned(prev) and (prev.ParentNode >= 0) and (prev.ParentNode <= NodeStructure.Count - 1) do\r\n    begin\r\n      n := GetNodeFromNodeStructure(prev.ParentNode);\r\n      if n <> prev then\r\n        prev := n\r\n      else\r\n        Break;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(prev) then\r\n  begin\r\n    for I := 0 to VisibleNodes.Count - 1 do\r\n    begin\r\n      if AInsert then\r\n        r := ANode.Row + 1\r\n      else\r\n        r := ANode.Row;\r\n\r\n      if VisibleNodes[I].Row = r then\r\n      begin\r\n        Result := I;\r\n        Break;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetLastChildNode(\r\n  ANode: TTMSFNCTreeViewNode): TTMSFNCTreeViewNode;\r\nvar\r\n  v: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(ANode) then\r\n  begin\r\n    v := GetLastChildVirtualNode(ANode.VirtualNode);\r\n    if Assigned(v) then\r\n      Result := v.Node;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetLastChildVirtualNode(\r\n  ANode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewVirtualNode;\r\nvar\r\n  v: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := GetFirstChildVirtualNode(ANode);\r\n  if Assigned(Result) then\r\n  begin\r\n    v := Result;\r\n    repeat\r\n      Result := v;\r\n      v := GetNextSiblingVirtualNode(v);\r\n    until v = nil;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetLastNode: TTMSFNCTreeViewNode;\r\nvar\r\n  n: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  n := GetLastVirtualNode;\r\n  if Assigned(n) then\r\n    Result := n.Node;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetLastRootNode: TTMSFNCTreeViewNode;\r\nvar\r\n  n: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  n := GetLastRootVirtualNode;\r\n  if Assigned(n) then\r\n    Result := n.Node;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetLastRootVirtualNode: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if NodeStructure.Count > 0 then\r\n  begin\r\n    Result := NodeStructure[NodeStructure.Count - 1];\r\n    while Assigned(Result) and (Result.ParentNode > -1) do\r\n      Result := NodeStructure[Result.Row - 1];\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetLastVirtualNode: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if NodeStructure.Count > 0 then\r\n    Result := NodeStructure[NodeStructure.Count - 1];\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.GetNodeForNodeData(\r\n  ANode: TTMSFNCTreeViewVirtualNode);\r\nvar\r\n  col: TTMSFNCTreeViewNodes;\r\n  p: TTMSFNCTreeViewVirtualNode;\r\n  it: TTMSFNCTreeViewNode;\r\nbegin\r\n  if Assigned(ANode) then\r\n  begin\r\n    p := GetNodeFromNodeStructure(ANode.ParentNode);\r\n    if Assigned(p) and Assigned(p.Node) then\r\n      col := TTMSFNCTreeViewNodes(p.Node.Nodes)\r\n    else\r\n      col := Nodes;\r\n  end\r\n  else\r\n    Exit;\r\n\r\n  if Assigned(col) then\r\n  begin\r\n    if (ANode.Index >= 0) and (ANode.Index <= col.Count - 1) then\r\n    begin\r\n      it := col[ANode.Index];\r\n      ANode.FNode := it;\r\n      it.FVirtualNode := ANode;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeHorizontalTextAlign(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var AHorizontalTextAlign: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeIcon(ANode: TTMSFNCTreeViewVirtualNode;\r\n  AColumn: Integer; ALarge: Boolean; var AIcon: TTMSFNCBitmap);\r\nvar\r\n  it: TTMSFNCTreeViewNode;\r\n  v: TTMSFNCTreeViewNodeValue;\r\nbegin\r\n  it := ANode.Node;\r\n  if Assigned(it) then\r\n  begin\r\n     if (AColumn >= 0) and (AColumn <= it.Values.Count - 1) then\r\n     begin\r\n       v := it.Values[AColumn];\r\n       if ANode.Expanded then\r\n       begin\r\n         if ALarge then\r\n         begin\r\n           if Assigned(BitmapContainer) and (v.ExpandedIconLargeName <> '') then\r\n             AIcon := TTMSFNCBitmap(BitmapContainer.FindBitmap(v.ExpandedIconLargeName));\r\n\r\n           if not Assigned(AIcon) then\r\n             AIcon := v.ExpandedIconLarge;\r\n         end\r\n         else\r\n         begin\r\n           if Assigned(BitmapContainer) and (v.ExpandedIconName <> '') then\r\n             AIcon := TTMSFNCBitmap(BitmapContainer.FindBitmap(v.ExpandedIconName));\r\n\r\n           if not Assigned(AIcon) then\r\n             AIcon := v.ExpandedIcon;\r\n         end;\r\n       end\r\n       else\r\n       begin\r\n         if ALarge then\r\n         begin\r\n           if Assigned(BitmapContainer) and (v.CollapsedIconLargeName <> '') then\r\n             AIcon := TTMSFNCBitmap(BitmapContainer.FindBitmap(v.CollapsedIconLargeName));\r\n\r\n           if not Assigned(AIcon) then\r\n             AIcon := v.CollapsedIconLarge;\r\n         end\r\n         else\r\n         begin\r\n           if Assigned(BitmapContainer) and (v.CollapsedIconName <> '') then\r\n             AIcon := TTMSFNCBitmap(BitmapContainer.FindBitmap(v.CollapsedIconName));\r\n\r\n           if not Assigned(AIcon) then\r\n             AIcon := v.CollapsedIcon;\r\n         end;\r\n       end;\r\n     end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeIconSize(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; ALarge: Boolean;\r\n  AIcon: TTMSFNCBitmap; var AIconWidth: Double; var AIconHeight: Double);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeSelectedColor(\r\n  ANode: TTMSFNCTreeViewVirtualNode; var AColor: TTMSFNCGraphicsColor);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeSelectedTextColor(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ATextColor: TTMSFNCGraphicsColor);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeSelectedTitleColor(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var ATitleColor: TTMSFNCGraphicsColor);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeSides(ANode: TTMSFNCTreeViewVirtualNode;\r\n  var ASides: TTMSFNCGraphicsSides);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeText(ANode: TTMSFNCTreeViewVirtualNode;\r\n  AColumn: Integer; AMode: TTMSFNCTreeViewNodeTextMode; var AText: String);\r\nvar\r\n  it: TTMSFNCTreeViewNode;\r\nbegin\r\n  it := ANode.Node;\r\n  if Assigned(it) then\r\n  begin\r\n     if (AColumn >= 0) and (AColumn <= it.Values.Count - 1) then\r\n       AText := it.Values[AColumn].GetText;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeTitleExpanded(ANode: TTMSFNCTreeViewVirtualNode;\r\n  AColumn: Integer; var AExpanded: Boolean);\r\nvar\r\n  it: TTMSFNCTreeViewNode;\r\nbegin\r\n  it := ANode.Node;\r\n  if Assigned(it) then\r\n  begin\r\n     if (AColumn >= 0) and (AColumn <= it.Values.Count - 1) then\r\n       AExpanded := it.Values[AColumn].TitleExpanded;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeTitle(ANode: TTMSFNCTreeViewVirtualNode;\r\n  AColumn: Integer; AMode: TTMSFNCTreeViewNodeTextMode; var ATitle: String);\r\nvar\r\n  it: TTMSFNCTreeViewNode;\r\nbegin\r\n  it := ANode.Node;\r\n  if Assigned(it) then\r\n  begin\r\n     if (AColumn >= 0) and (AColumn <= it.Values.Count - 1) then\r\n       ATitle := it.Values[AColumn].Title;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeTitleColor(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var ATitleColor: TTMSFNCGraphicsColor);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeTitleHorizontalTextAlign(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var AHorizontalTextAlign: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeTitleTrimming(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var ATrimming: TTMSFNCGraphicsTextTrimming);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeTitleVerticalTextAlign(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var AVerticalTextAlign: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeTitleWordWrapping(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var AWordWrapping: Boolean);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeTextColor(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var ATextColor: TTMSFNCGraphicsColor);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeTrimming(ANode: TTMSFNCTreeViewVirtualNode;\r\n  AColumn: Integer; var ATrimming: TTMSFNCGraphicsTextTrimming);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeVerticalTextAlign(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var AVerticalTextAlign: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNodeWordWrapping(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AWordWrapping: Boolean);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoGetNumberOfNodes(\r\n  ANode: TTMSFNCTreeViewVirtualNode; var ANumberOfNodes: Integer);\r\nbegin\r\n  if Assigned(ANode.Node) then\r\n    ANumberOfNodes := ANode.Node.Nodes.Count\r\n  else\r\n    ANumberOfNodes := Nodes.Count;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoIsNodeChecked(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var AChecked: Boolean);\r\nvar\r\n  it: TTMSFNCTreeViewNode;\r\nbegin\r\n  it := ANode.Node;\r\n  if Assigned(it) then\r\n  begin\r\n     if (AColumn >= 0) and (AColumn <= it.Values.Count - 1) then\r\n       AChecked := it.Values[AColumn].Checked;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.CheckNodeInternal(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; ARecurse: Boolean = False);\r\nvar\r\n  chkt: TTMSFNCTreeViewNodeCheckType;\r\n  pn, n: TTMSFNCTreeViewVirtualNode;\r\n  st, stp: Integer;\r\n  I: Integer;\r\n  v: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  if not Assigned(ANode) then\r\n    Exit;\r\n\r\n  if (AColumn >= 0) and (AColumn <= Length(ANode.CheckStates) - 1) then\r\n  begin\r\n    ANode.CheckStates[AColumn] := True;\r\n    UpdateCheckState(ANode, AColumn, ANode.CheckStates[AColumn]);\r\n  end;\r\n\r\n  if Assigned(ANode.Node) then\r\n  begin\r\n    if (AColumn >= 0) and (AColumn <= ANode.Node.Values.Count - 1) then\r\n      ANode.Node.Values.UpdateChecked(AColumn, True);\r\n  end;\r\n\r\n  chkt := tvntNone;\r\n  DoGetNodeCheckType(ANode, AColumn, chkt);\r\n  if chkt = tvntRadioButton then\r\n  begin\r\n    pn := GetNodeFromNodeStructure(ANode.ParentNode);\r\n    if Assigned(pn) then\r\n    begin\r\n      st := pn.Row + 1;\r\n      stp := st + pn.TotalChildren;\r\n    end\r\n    else\r\n    begin\r\n      st := 0;\r\n      stp := NodeStructure.Count;\r\n    end;\r\n\r\n    while st < stp do\r\n    begin\r\n      n := GetNodeFromNodeStructure(st);\r\n      if Assigned(n) then\r\n      begin\r\n        if n <> ANode then\r\n        begin\r\n          chkt := tvntNone;\r\n          DoGetNodeCheckType(n, AColumn, chkt);\r\n          if chkt = tvntRadioButton then\r\n          begin\r\n            if (AColumn >= 0) and (AColumn <= Length(n.CheckStates) - 1) then\r\n            begin\r\n              n.CheckStates[AColumn] := False;\r\n              UpdateCheckState(n, AColumn, n.CheckStates[AColumn]);\r\n            end;\r\n\r\n            if Assigned(n.Node) then\r\n            begin\r\n              if (AColumn >= 0) and (AColumn <= n.Node.Values.Count - 1) then\r\n                n.Node.Values.UpdateChecked(AColumn, False);\r\n            end;\r\n          end;\r\n        end;\r\n        st := st + n.TotalChildren + 1;\r\n      end\r\n      else\r\n        Break;\r\n    end;\r\n  end;\r\n\r\n  if ARecurse then\r\n  begin\r\n    for I := ANode.Row + 1 to ANode.Row + ANode.TotalChildren do\r\n    begin\r\n      v := GetNodeFromNodeStructure(I);\r\n      if Assigned(v) then\r\n        CheckNodeInternal(v, AColumn, ARecurse);\r\n    end;\r\n  end;\r\n\r\n  Invalidate;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.InsertVirtualNode(AIndex: Integer; AParentNode: TTMSFNCTreeViewVirtualNode = nil): TTMSFNCTreeViewVirtualNode;\r\nvar\r\n  v: TTMSFNCTreeViewVirtualNode;\r\n  p, n, c: TTMSFNCTreeViewVirtualNode;\r\n  I, idx: Integer;\r\nbegin\r\n  Result := nil;\r\n  if (csDestroying in ComponentState) or not NodeListBuild then\r\n    Exit;\r\n\r\n  v := TTMSFNCTreeViewVirtualNode.Create(Self);\r\n  if Assigned(AParentNode) then\r\n  begin\r\n    idx := -1;\r\n    I := AParentNode.Row + 1;\r\n    while i <= AParentNode.Row + AParentNode.TotalChildren do\r\n    begin\r\n      n := GetNodeFromNodeStructure(I);\r\n      if Assigned(n) then\r\n      begin\r\n        if (n.Index = AIndex) and (n.ParentNode = AParentNode.Row) then\r\n        begin\r\n          idx := n.Row;\r\n          Break;\r\n        end;\r\n        I := I + n.Children + 1;\r\n      end\r\n      else\r\n        Break;\r\n    end;\r\n\r\n    if idx = -1 then\r\n      InsertNodeInternal(AParentNode, AIndex, AParentNode.Row + AParentNode.TotalChildren + 1, v)\r\n    else\r\n      InsertNodeInternal(AParentNode, AIndex, idx, v);\r\n  end\r\n  else\r\n  begin\r\n    p := nil;\r\n    if NodeStructure.Count > 0 then\r\n    begin\r\n      p := GetNodeFromNodeStructure(NodeStructure.Count - 1);\r\n      while Assigned(p) and (p.ParentNode >= 0) and (p.ParentNode <= NodeStructure.Count - 1) do\r\n        p := GetNodeFromNodeStructure(p.ParentNode);\r\n    end;\r\n\r\n    if Assigned(p) then\r\n    begin\r\n      if AIndex > p.Index then\r\n        InsertNodeInternal(nil, AIndex, p.Row + p.TotalChildren + 1, v)\r\n      else\r\n      begin\r\n        n := nil;\r\n        I := 0;\r\n        while not Assigned(n) do\r\n        begin\r\n          c := GetNodeFromNodeStructure(I);\r\n          if Assigned(c) then\r\n          begin\r\n            if c.Index = AIndex then\r\n            begin\r\n              n := c;\r\n              Break;\r\n            end\r\n            else\r\n              I := I + c.TotalChildren + 1;\r\n          end\r\n          else\r\n            Break;\r\n        end;\r\n\r\n        if Assigned(n) then\r\n          InsertNodeInternal(nil, AIndex, n.Row, v);\r\n      end;\r\n    end\r\n    else\r\n      InsertNodeInternal(nil, 0, 0, v);\r\n  end;\r\n\r\n  Result := v;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetVirtualNodeChildCount(\r\n  ANode: TTMSFNCTreeViewVirtualNode): Integer;\r\nbegin\r\n  Result := 0;\r\n  if Assigned(ANode) then\r\n    Result := ANode.Children;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetVirtualNodeTitleExpanded(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer): Boolean;\r\nbegin\r\n  Result := True;\r\n  if Assigned(ANode) then\r\n  begin\r\n    Result := True;\r\n    DoGetNodeTitleExpanded(ANode, AColumn, Result);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetVisibleNodeForIndex(\r\n  AIndex: Integer): TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if (AIndex >= 0) and (AIndex <= VisibleNodes.Count - 1) then\r\n    Result := VisibleNodes[AIndex];\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.HTMLReplace(AValue: string; ANodeValue: TTMSFNCTreeViewNodeValue): string;\r\nvar\r\n  beforetag, aftertag, nm, vl: string;\r\n  i, j: integer;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(ANodeValue) then\r\n    Exit;\r\n\r\n  beforetag := '';\r\n\r\n  while (Pos('<#', AValue) > 0) and (Pos('>', AValue) > 0) do\r\n  begin\r\n    i := pos('<#', AValue);\r\n    beforetag := beforetag + copy(AValue, 1, i - 1); //part prior to the tag\r\n    aftertag := copy(AValue, i, length(AValue)); //part after the tag\r\n    j := pos('>', aftertag);\r\n    nm := copy(aftertag, 1, j - 1);\r\n    Delete(nm, 1, 2);\r\n    Delete(AValue, 1, i + j - 1);\r\n    vl := ANodeValue.HTMLTemplateItems.Values[nm];\r\n    DoGetHTMLTemplateValue(ANodeValue, nm, vl);\r\n    beforetag := beforetag + vl;\r\n  end;\r\n\r\n  Result := beforetag + AValue;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetVirtualNodeText(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer): string;\r\nbegin\r\n  Result := '';\r\n  if Assigned(ANode) then\r\n  begin\r\n    Result := '';\r\n    DoGetNodeText(ANode, AColumn, tntmDrawing, Result);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetVirtualNodeTitle(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer): string;\r\nbegin\r\n  Result := '';\r\n  if Assigned(ANode) then\r\n  begin\r\n    Result := '';\r\n    DoGetNodeTitle(ANode, AColumn, tntmDrawing, Result);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetParentVirtualNode(ANode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(ANode) then\r\n    Result := GetNodeFromNodeStructure(ANode.ParentNode);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.AddVirtualNode(AParentNode: TTMSFNCTreeViewVirtualNode = nil): TTMSFNCTreeViewVirtualNode;\r\nvar\r\n  p: TTMSFNCTreeViewVirtualNode;\r\n  idx: Integer;\r\nbegin\r\n  Result := nil;\r\n  if (csDestroying in ComponentState) or not NodeListBuild then\r\n    Exit;\r\n\r\n  if Assigned(AParentNode) then\r\n  begin\r\n    idx := AParentNode.Children;\r\n  end\r\n  else\r\n  begin\r\n    p := nil;\r\n    if NodeStructure.Count > 0 then\r\n    begin\r\n      p := GetNodeFromNodeStructure(NodeStructure.Count - 1);\r\n      while Assigned(p) and (p.ParentNode >= 0) and (p.ParentNode <= NodeStructure.Count - 1) do\r\n        p := GetNodeFromNodeStructure(p.ParentNode);\r\n    end;\r\n\r\n    idx := p.Index + 1;\r\n  end;\r\n\r\n  Result := InsertVirtualNode(idx, AParentNode);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.AfterExport;\r\nbegin\r\n  inherited;\r\n  ClearNodeList;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.ApplyFilter;\r\nbegin\r\n  FFilterApplied := True;\r\n  ClearNodeList;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.SetNodeTextValues(ANode: TTMSFNCTreeViewNode; ATextValues: TTMSFNCTreeViewNodeTextValues);\r\nbegin\r\n  if Assigned(ANode) then\r\n    ANode.SetTextValues(ATextValues);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.SetNodeExpandedIcons(ANode: TTMSFNCTreeViewNode; AIcons: TTMSFNCTreeViewNodeIcons; ALarge: Boolean = False);\r\nbegin\r\n  if Assigned(ANode) then\r\n    ANode.SetExpandedIcons(AIcons, ALarge);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.SetNodeExpandedIconNames(ANode: TTMSFNCTreeViewNode; AIconNames: TTMSFNCTreeViewNodeIconNames; ALarge: Boolean = False);\r\nbegin\r\n  if Assigned(ANode) then\r\n    ANode.SetExpandedIconNames(AIconNames, ALarge);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.SetNodeCollapsedIcons(ANode: TTMSFNCTreeViewNode; AIcons: TTMSFNCTreeViewNodeIcons; ALarge: Boolean = False);\r\nbegin\r\n  if Assigned(ANode) then\r\n    ANode.SetCollapsedIcons(AIcons, ALarge);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.SetNodeCollapsedIconNames(ANode: TTMSFNCTreeViewNode; AIconNames: TTMSFNCTreeViewNodeIconNames; ALarge: Boolean = False);\r\nbegin\r\n  if Assigned(ANode) then\r\n    ANode.SetCollapsedIconNames(AIconNames, ALarge);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.SetNodeCheckTypes(ANode: TTMSFNCTreeViewNode; ACheckTypes: TTMSFNCTreeViewNodeCheckTypes);\r\nbegin\r\n  if Assigned(ANode) then\r\n    ANode.SetCheckTypes(ACheckTypes);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.SetNodeCheckStates(ANode: TTMSFNCTreeViewNode; ACheckStates: TTMSFNCTreeViewNodeCheckStates);\r\nbegin\r\n  if Assigned(ANode) then\r\n    ANode.SetCheckStates(ACheckStates);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.AddNode(AParentNode: TTMSFNCTreeViewNode = nil): TTMSFNCTreeViewNode;\r\nbegin\r\n  if Assigned(AParentNode) then\r\n    Result := AParentNode.Nodes.Add\r\n  else\r\n    Result := Nodes.Add;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.InsertNode(AIndex: Integer; AParentNode: TTMSFNCTreeViewNode = nil): TTMSFNCTreeViewNode;\r\nbegin\r\n  if Assigned(AParentNode) then\r\n    Result := AParentNode.Nodes.Insert(AIndex)\r\n  else\r\n    Result := Nodes.Insert(AIndex);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.RemoveNode(ANode: TTMSFNCTreeViewNode);\r\nbegin\r\n  if Assigned(ANode) then\r\n  begin\r\n    ANode.Free;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.RemoveNodeInternal(ANode: TTMSFNCTreeViewVirtualNode; AUpdateNodes: Boolean = True): TTMSFNCTreeViewVirtualNodeRemoveData;\r\nvar\r\n  I: Integer;\r\n  R, pi: Integer;\r\n  subv, pv, rs: TTMSFNCTreeViewVirtualNode;\r\n  cnt: Integer;\r\n  exp, ext: Boolean;\r\n  chkst: TTMSFNCArrayBoolean;\r\n  K: Integer;\r\n  chk: Boolean;\r\nbegin\r\n  if (csDestroying in ComponentState) or not NodeListBuild or not Assigned(ANode) then\r\n    Exit;\r\n\r\n  cnt := NodeStructure.Count;\r\n  pv := GetNodeFromNodeStructure(ANode.ParentNode);\r\n  while Assigned(pv) do\r\n  begin\r\n    UpdateNodeTotalChildren(pv, pv.TotalChildren - 1 - ANode.TotalChildren);\r\n    if pv.Row = ANode.ParentNode then\r\n      UpdateNodeChildren(pv, pv.Children - 1);\r\n\r\n    pi := pv.ParentNode;\r\n    pv := GetNodeFromNodeStructure(pi);\r\n  end;\r\n\r\n  for I := ANode.TotalChildren - 1 downto 0 do\r\n  begin\r\n    R := I + ANode.Row + 1;\r\n    subv := GetNodeFromNodeStructure(R);\r\n    if Assigned(subv) then\r\n    begin\r\n      if VisibleNodes.IndexOf(subv) > -1 then\r\n      begin\r\n        VisibleNodes.Remove(subv);\r\n        TotalRowHeight := TotalRowHeight - subv.Height;\r\n        RowCount := RowCount - 1;\r\n      end;\r\n      NodeStructure.Remove(subv);\r\n      RemoveNodeFromSelection(subv);\r\n    end;\r\n  end;\r\n\r\n  R := ANode.Row;\r\n  pi := ANode.ParentNode;\r\n  if VisibleNodes.IndexOf(ANode) > -1 then\r\n  begin\r\n    VisibleNodes.Remove(ANode);\r\n    TotalRowHeight := TotalRowHeight - ANode.Height;\r\n    RowCount := RowCount - 1;\r\n  end;\r\n\r\n  UpdateNodeChildren(ANode, ANode.Children - 1);\r\n  UpdateNodeTotalChildren(ANode, ANode.TotalChildren - 1);\r\n  ClearFocusedNode(ANode);\r\n  NodeStructure.Remove(ANode);\r\n  RemoveNodeFromSelection(ANode);\r\n\r\n  cnt := cnt - NodeStructure.Count;\r\n  Result.Count := cnt;\r\n  Result.RowIndex := R;\r\n  Result.ParentNode := pi;\r\n\r\n  if AUpdateNodes then\r\n  begin\r\n    for I := R to NodeStructure.Count - 1 do\r\n    begin\r\n      rs := GetNodeFromNodeStructure(I);\r\n      if Assigned(rs) then\r\n      begin\r\n        UpdateNodeRow(rs, rs.Row - cnt);\r\n\r\n        if rs.ParentNode > pi then\r\n          UpdateNodeParentNode(rs, rs.ParentNode - cnt);\r\n\r\n        if rs.ParentNode = pi then\r\n          UpdateNodeIndex(rs, rs.Index - 1);\r\n\r\n        GetNodeForNodeData(rs);\r\n\r\n        exp := False;\r\n        DoIsNodeExpanded(rs, exp);\r\n        UpdateNodeExpanded(rs, exp);\r\n\r\n        ext := False;\r\n        DoIsNodeExtended(rs, ext);\r\n        UpdateNodeExtended(rs, ext);\r\n\r\n        SetLength(chkst, 0);\r\n        for K := 0 to ColumnCount - 1 do\r\n        begin\r\n          chk := False;\r\n          DoIsNodeChecked(RS, K, chk);\r\n          SetLength(chkst, Length(chkst) + 1);\r\n          chkst[Length(chkst) - 1] := chk;\r\n        end;\r\n\r\n        UpdateNodeCheckStates(rs, chkst);\r\n      end;\r\n    end;\r\n\r\n    if not FBlockUpdate then\r\n    begin\r\n      ResetNodes(False);\r\n      UpdateTreeView;\r\n      Invalidate;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UpdateVisibleNodes(\r\n  ANode: TTMSFNCTreeViewVirtualNode);\r\nvar\r\n  add: Boolean;\r\n  R, I, C, idx: Integer;\r\n  subv: TTMSFNCTreeViewVirtualNode;\r\n  en, vi, visub: Boolean;\r\nbegin\r\n  add := ANode.Expanded;\r\n  if add then\r\n  begin\r\n    idx := GetInsertPosition(ANode, ANode.ParentNode = -1, False);\r\n    en := True;\r\n    DoIsNodeEnabled(ANode, en);\r\n\r\n    vi := True;\r\n    DoIsNodeVisible(ANode, vi);\r\n\r\n    if (idx <> -1) and vi and en then\r\n    begin\r\n      I := 0;\r\n      C := idx + 1;\r\n      while I < ANode.TotalChildren do\r\n      begin\r\n        R := I + ANode.Row + 1;\r\n        subv := GetNodeFromNodeStructure(R);\r\n        if Assigned(subv) and (((MatchFilter(subv) or subv.FAddedToVisibleList) and FFilterApplied) or not FFilterApplied) then\r\n        begin\r\n          visub := True;\r\n          DoIsNodeVisible(subv, visub);\r\n          if visub then\r\n          begin\r\n            if (C >= 0) and (C < VisibleNodes.Count) then\r\n              VisibleNodes.Insert(C, subv)\r\n            else\r\n              VisibleNodes.Add(subv);\r\n\r\n            if subv.Children = 0 then\r\n              subv.FExpanded := True;\r\n\r\n            TotalRowHeight := TotalRowHeight + subv.Height;\r\n            RowCount := RowCount + 1;\r\n            Inc(C);\r\n          end;\r\n\r\n          if not subv.Expanded or not visub then\r\n            I := I + subv.TotalChildren;\r\n        end;\r\n        Inc(I);\r\n      end;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    for I := 0 to ANode.TotalChildren - 1 do\r\n    begin\r\n      R := I + ANode.Row + 1;\r\n      subv := GetNodeFromNodeStructure(R);\r\n      if Assigned(subv) then\r\n      begin\r\n        UpdateNodeCalculated(subv, False);\r\n        if VisibleNodes.IndexOf(subv) > -1 then\r\n        begin\r\n          VisibleNodes.Remove(subv);\r\n\r\n          if subv.Children = 0 then\r\n            subv.FExpanded := False;\r\n\r\n          TotalRowHeight := TotalRowHeight - subv.Height;\r\n          RowCount := RowCount - 1;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.CollapseNodeInternal(ANode: TTMSFNCTreeViewVirtualNode; ARecurse: Boolean = False);\r\nvar\r\n  I: Integer;\r\n  v, n: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  if not Assigned(ANode) or not NodeListBuild or (csDestroying in ComponentState) then\r\n    Exit;\r\n\r\n  if not ANode.Expanded then\r\n  begin\r\n    if ARecurse then\r\n    begin\r\n      n := ANode.GetFirstChild;\r\n      while Assigned(n) do\r\n      begin\r\n        CollapseNodeInternal(n, ARecurse);\r\n        n := n.GetNextSibling;\r\n      end;\r\n    end;\r\n\r\n    Exit;\r\n  end;\r\n\r\n  ANode.FExpanded := False;\r\n\r\n  UpdateNodeExpanded(ANode, False);\r\n  if ARecurse then\r\n  begin\r\n    for I := ANode.Row + 1 to ANode.Row + ANode.TotalChildren do\r\n    begin\r\n      v := GetNodeFromNodeStructure(I);\r\n      if Assigned(v) then\r\n        UpdateNodeExpanded(v, False);\r\n    end;\r\n  end;\r\n\r\n  UpdateVisibleNodes(ANode);\r\n\r\n  if not FBlockUpdate then\r\n  begin\r\n    ResetNodes(False);\r\n    UpdateTreeView;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoIsNodeEnabled(ANode: TTMSFNCTreeViewVirtualNode;\r\n  var AEnabled: Boolean);\r\nvar\r\n  it: TTMSFNCTreeViewNode;\r\nbegin\r\n  it := ANode.Node;\r\n  if Assigned(it) then\r\n    AEnabled := it.Enabled;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoIsNodeExpanded(ANode: TTMSFNCTreeViewVirtualNode;\r\n  var AExpanded: Boolean);\r\nvar\r\n  it: TTMSFNCTreeViewNode;\r\nbegin\r\n  it := ANode.Node;\r\n  if Assigned(it) then\r\n    AExpanded := it.Expanded;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoIsNodeExtended(ANode: TTMSFNCTreeViewVirtualNode;\r\n  var AExtended: Boolean);\r\nvar\r\n  it: TTMSFNCTreeViewNode;\r\nbegin\r\n  it := ANode.Node;\r\n  if Assigned(it) then\r\n    AExtended := it.Extended;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoIsNodeVisible(ANode: TTMSFNCTreeViewVirtualNode;\r\n  var AVisible: Boolean);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.DoNodeCompare(ANode1, ANode2: TTMSFNCTreeViewNode; AColumn: Integer; var ACompareResult: Integer);\r\nbegin\r\n\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.FindGroupByName(AName: String): TTMSFNCTreeViewGroup;\r\nvar\r\n  I: Integer;\r\n  grp: TTMSFNCTreeViewGroup;\r\nbegin\r\n  Result := nil;\r\n  for I := 0 to Groups.Count - 1 do\r\n  begin\r\n    grp := Groups[I];\r\n    if grp.Name = AName then\r\n    begin\r\n      Result := grp;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.FindGroupIndexByName(AName: String): Integer;\r\nvar\r\n  grp: TTMSFNCTreeViewGroup;\r\nbegin\r\n  Result := -1;\r\n  grp := FindGroupByName(AName);\r\n  if Assigned(grp) then\r\n    Result := grp.Index;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.FindNodeByDBKey(\r\n  ADBKey: string): TTMSFNCTreeViewNode;\r\nvar\r\n  v: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  v := FindVirtualNodeByDBKey(ADBKey);\r\n  if Assigned(v) then\r\n    Result := v.Node;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.FindNodeByRow(ARow: Integer): TTMSFNCTreeViewNode;\r\nvar\r\n  v: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  v := FindVirtualNodeByRow(ARow);\r\n  if Assigned(v) then\r\n    Result := v.Node;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.FindNodeByTextAndColumn(AText: string;\r\n  AColumn: Integer; ARecurse, ACaseSensitive: Boolean): TTMSFNCTreeViewNode;\r\nvar\r\n  v: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  v := FindVirtualNodeByTextAndColumn(AText, AColumn, ARecurse, ACaseSensitive);\r\n  if Assigned(v) then\r\n    Result := v.Node;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.FindVirtualNodeByDBKey(\r\n  ADBKey: string): TTMSFNCTreeViewVirtualNode;\r\nvar\r\n  n: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  n := GetFirstRootVirtualNode;\r\n  while Assigned(n) do\r\n  begin\r\n    if Assigned(n.Node) and (n.Node.DBKey = ADBKey) then\r\n    begin\r\n      Result := n;\r\n      Break;\r\n    end;\r\n    n := n.GetNext;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.FindVirtualNodeByRow(\r\n  ARow: Integer): TTMSFNCTreeViewVirtualNode;\r\nvar\r\n  n: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  n := GetFirstRootVirtualNode;\r\n  while Assigned(n) do\r\n  begin\r\n    if n.Row = ARow then\r\n    begin\r\n      Result := n;\r\n      Break;\r\n    end;\r\n    n := n.GetNext;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.FindVirtualNodeByTextAndColumn(AText: string;\r\n  AColumn: Integer; ARecurse,\r\n  ACaseSensitive: Boolean): TTMSFNCTreeViewVirtualNode;\r\nvar\r\n  n: TTMSFNCTreeViewVirtualNode;\r\n  t: String;\r\nbegin\r\n  Result := nil;\r\n  n := GetFirstRootVirtualNode;\r\n  while Assigned(n) do\r\n  begin\r\n    t := '';\r\n    DoGetNodeText(n, AColumn, tntmDrawing, t);\r\n    if TTMSFNCUtils.MatchStrEx(AText, t, ACaseSensitive) then\r\n    begin\r\n      Result := n;\r\n      Break;\r\n    end;\r\n\r\n    if ARecurse then\r\n      n := n.GetNext\r\n    else\r\n      n := n.GetNextSibling;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.IsColumnVisible(ACol: Integer): Boolean;\r\nbegin\r\n  Result := inherited IsColumnVisible(ACol);\r\n  if (ACol >= 0) and (ACol <= Columns.Count - 1) then\r\n    Result := Columns[ACol].Visible;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.MatchFilter(ANode: TTMSFNCTreeViewVirtualNode): Boolean;\r\nvar\r\n  i: Integer;\r\n  s:string;\r\n  temp: Boolean;\r\nbegin\r\n  Result := True;\r\n  for i := 1 to FFilter.Count do\r\n  begin\r\n    with FFilter.Items[i - 1] do\r\n    begin\r\n      s := '';\r\n      DoGetNodeText(ANode, Column, tntmDrawing, s);\r\n      s := TTMSFNCUtils.HTMLStrip(s);\r\n      s := TTMSFNCUtils.UnFixMarkup(s);\r\n      s := Trim(s);\r\n\r\n      if Prefix <> '' then\r\n        if Pos(Prefix,s) = 1 then\r\n          Delete(s,1,Length(FFilter.Items[i - 1].Prefix));\r\n\r\n      if Suffix <> '' then\r\n        if Pos(Suffix,s) = 1 + Length(s) - Length(Suffix) then\r\n          Delete(s,1 + Length(s) - Length(Suffix),Length(s));\r\n\r\n      try\r\n        temp := TTMSFNCUtils.MatchStrEx(Condition,s,CaseSensitive);\r\n      except\r\n        temp := false;\r\n      end;\r\n\r\n      case FFilter.Items[i - 1].Operation of\r\n        tfoSHORT:\r\n        begin\r\n          Result := temp;\r\n          if not Result then\r\n            Break;\r\n        end;\r\n        tfoNONE: Result := temp;\r\n        tfoAND: Result := Result AND temp;\r\n        tfoOR:  Result := Result OR temp;\r\n        tfoXOR: Result := Result XOR temp;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.MoveNode(ANode,\r\n  ADestinationNode: TTMSFNCTreeViewNode; AIndex: Integer);\r\nvar\r\n  n, np: TTMSFNCTreeViewNode;\r\nbegin\r\n  if not Assigned(ANode) then\r\n    Exit;\r\n\r\n  if (ADestinationNode <> ANode) then\r\n  begin\r\n    if Assigned(ADestinationNode) then\r\n    begin\r\n      np := ADestinationNode.GetParent;\r\n\r\n      while Assigned(np) do\r\n      begin\r\n        if np = ANode then\r\n          Exit;\r\n\r\n        np := np.GetParent;\r\n      end;\r\n    end;\r\n\r\n    BeginUpdate;\r\n\r\n    n := TTMSFNCTreeviewNode.Create(nil);\r\n\r\n    if Assigned(ADestinationNode) then\r\n      ANode.Collection := ADestinationNode.Nodes\r\n    else\r\n      ANode.Collection := Nodes;\r\n\r\n    if Assigned(ADestinationNode) then\r\n    begin\r\n      if (AIndex >= 0) and (AIndex <= ADestinationNode.Nodes.Count - 1) then\r\n        ANode.Index := AIndex\r\n      else\r\n        ANode.Index := ADestinationNode.Nodes.Count - 1;\r\n    end\r\n    else\r\n    begin\r\n      if (AIndex >= 0) and (AIndex <= Nodes.Count - 1) then\r\n        ANode.Index := AIndex\r\n      else\r\n        ANode.Index := Nodes.Count - 1;\r\n    end;\r\n\r\n    n.Free;\r\n\r\n    EndUpdate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.ToggleCheckNodeInternal(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; ARecurse: Boolean = False);\r\nvar\r\n  chk: Boolean;\r\nbegin\r\n  if (csDestroying in ComponentState) or not Assigned(ANode) or not NodeListBuild then\r\n    Exit;\r\n\r\n  if (AColumn >= 0) and (AColumn <= Length(ANode.CheckStates) - 1) then\r\n  begin\r\n    chk := ANode.CheckStates[AColumn];\r\n    if chk then\r\n      UnCheckNodeInternal(ANode, AColumn, ARecurse)\r\n    else\r\n      CheckNodeInternal(ANode, AColumn, ARecurse);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.ToggleNodeInternal(ANode: TTMSFNCTreeViewVirtualNode; ARecurse: Boolean = False);\r\nbegin\r\n  if (csDestroying in ComponentState) or not Assigned(ANode) or not NodeListBuild then\r\n    Exit;\r\n\r\n  if ANode.Expanded then\r\n    CollapseNodeInternal(ANode, ARecurse)\r\n  else\r\n    ExpandNodeInternal(ANode, ARecurse);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UnCheckNodeInternal(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; ARecurse: Boolean = False);\r\nvar\r\n  chkt: TTMSFNCTreeViewNodeCheckType;\r\n  I: Integer;\r\n  v: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  if (csDestroying in ComponentState) or not Assigned(ANode) or not NodeListBuild then\r\n    Exit;\r\n\r\n  chkt := tvntNone;\r\n  DoGetNodeCheckType(ANode, AColumn, chkt);\r\n  if chkt = tvntCheckBox then\r\n  begin\r\n    if (AColumn >= 0) and (AColumn <= Length(ANode.CheckStates) - 1) then\r\n    begin\r\n      ANode.CheckStates[AColumn] := False;\r\n      UpdateCheckState(ANode, AColumn, ANode.CheckStates[AColumn]);\r\n    end;\r\n\r\n    if Assigned(ANode.Node) then\r\n    begin\r\n      if (AColumn >= 0) and (AColumn <= ANode.Node.Values.Count - 1) then\r\n        ANode.Node.Values.UpdateChecked(AColumn, False);\r\n    end;\r\n  end;\r\n\r\n  if ARecurse then\r\n  begin\r\n    for I := ANode.Row + 1 to ANode.Row + ANode.TotalChildren do\r\n    begin\r\n      v := GetNodeFromNodeStructure(I);\r\n      if Assigned(v) then\r\n        UnCheckNodeInternal(v, AColumn, ARecurse);\r\n    end;\r\n  end;\r\n\r\n  Invalidate;\r\nend;\r\n\r\n\r\nprocedure TTMSFNCTreeViewData.UpdateNodeCalculated(ANode: TTMSFNCTreeViewVirtualNode; ACalculated: Boolean);\r\nbegin\r\n  ANode.FCalculated := ACalculated;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.FindColumnByName(\r\n  AName: String): TTMSFNCTreeViewColumn;\r\nvar\r\n  I: Integer;\r\n  res: TTMSFNCTreeViewColumn;\r\nbegin\r\n  Result := nil;\r\n  for I := 0 to ColumnCount - 1 do\r\n  begin\r\n    if (I >= 0) and (I <= Columns.Count - 1) then\r\n    begin\r\n      res := Columns[I];\r\n      if res.Name = AName then\r\n      begin\r\n        Result := res;\r\n        Break;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.FindColumnIndexByName(AName: String): Integer;\r\nvar\r\n  res: TTMSFNCTreeViewColumn;\r\nbegin\r\n  Result := -1;\r\n  res := FindColumnByName(AName);\r\n  if Assigned(res) then\r\n    Result := res.Index;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.SetGroups(const Value: TTMSFNCTreeViewGroups);\r\nbegin\r\n  FGroups.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.SetNodes(const Value: TTMSFNCTreeViewNodes);\r\nbegin\r\n  FNodes.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UpdateCheckState(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AChecked: Boolean);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UpdateColumns;\r\nvar\r\n  I: Integer;\r\n  c: TTMSFNCTreeViewColumn;\r\n  g: TTMSFNCTreeViewGroup;\r\n  grp: TTMSFNCTreeViewDisplayGroup;\r\nbegin\r\n  if (UpdateCount > 0) or (csDestroying in ComponentState) then\r\n    Exit;\r\n\r\n  DisplayGroups.Clear;\r\n  for I := 0 to Groups.Count - 1 do\r\n  begin\r\n    g := Groups[I];\r\n    grp.StartColumn := Max(0, Min(g.StartColumn, Columns.Count - 1));\r\n    grp.EndColumn := Max(0, Min(g.EndColumn, Columns.Count - 1));\r\n    DisplayGroups.Add(grp);\r\n  end;\r\n\r\n  for I := 0 to Columns.Count - 1 do\r\n  begin\r\n    c := Columns[I];\r\n    if c.Visible then\r\n    begin\r\n      ColumnWidths[I] := c.Width;\r\n      ColumnMinWidths[I] := c.MinimumWidth;\r\n    end\r\n    else\r\n    begin\r\n      ColumnWidths[I] := 0;\r\n      ColumnMinWidths[I] := 0;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UpdateNode(ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  if not Assigned(ANode) or (csDestroying in ComponentState) or not NodeListBuild then\r\n    Exit;\r\n\r\n  if BlockUpdateNode then\r\n    Exit;\r\n\r\n  ANode.FCalculated := False;\r\n\r\n  if UpdateCount > 0 then\r\n    Exit;\r\n\r\n  UpdateNodesCache;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UpdateNodeBitmapRects(\r\n  ANode: TTMSFNCTreeViewVirtualNode; ABitmapRects: TTMSFNCArrayTRectF);\r\nbegin\r\n  ANode.FBitmapRects := ABitmapRects;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UpdateNodeCacheReference(\r\n  ANode: TTMSFNCTreeViewVirtualNode; ACache: TTMSFNCTreeViewCacheItem);\r\nbegin\r\n  ANode.FCache := ACache;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UpdateNodeCheckRects(\r\n  ANode: TTMSFNCTreeViewVirtualNode; ACheckRects: TTMSFNCArrayTRectF);\r\nbegin\r\n  ANode.FCheckRects := ACheckRects;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UpdateNodeCheckStates(\r\n  ANode: TTMSFNCTreeViewVirtualNode; ACheckStates: TTMSFNCArrayBoolean);\r\nbegin\r\n  ANode.FCheckStates := ACheckStates;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UpdateNodeChildren(ANode: TTMSFNCTreeViewVirtualNode;\r\n  AChildren: Integer);\r\nbegin\r\n  ANode.FChildren := AChildren;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UpdateNodeExpanded(ANode: TTMSFNCTreeViewVirtualNode;\r\n  AExpanded: Boolean);\r\nbegin\r\n  ANode.FExpanded := AExpanded;\r\n  if Assigned(ANode.Node) then\r\n    ANode.Node.FExpanded := AExpanded;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UpdateNodeExpandRects(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AExpandRects: TTMSFNCArrayTRectF);\r\nbegin\r\n  ANode.FExpandRects := AExpandRects;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UpdateNodeExtended(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AExtended: Boolean);\r\nbegin\r\n  ANode.FExtended := AExtended;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UpdateNodeExtraRects(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AExtraRects: TTMSFNCArrayTRectF);\r\nbegin\r\n  ANode.FExtraRects := AExtraRects;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UpdateNodeHeight(ANode: TTMSFNCTreeViewVirtualNode;\r\n  AHeight: Double);\r\nbegin\r\n  ANode.FHeight := AHeight;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.ExpandNodeInternal(ANode: TTMSFNCTreeViewVirtualNode; ARecurse: Boolean = False);\r\nvar\r\n  I: Integer;\r\n  v, n: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  if (csDestroying in ComponentState) or not Assigned(ANode) then\r\n    Exit;\r\n\r\n  if ANode.Expanded then\r\n  begin\r\n    if ARecurse then\r\n    begin\r\n      n := ANode.GetFirstChild;\r\n      while Assigned(n) do\r\n      begin\r\n        ExpandNodeInternal(n, ARecurse);\r\n        n := n.GetNextSibling;\r\n      end;\r\n    end;\r\n\r\n    Exit;\r\n  end;\r\n\r\n  ANode.FExpanded := True;\r\n\r\n  UpdateNodeExpanded(ANode, True);\r\n  if ARecurse then\r\n  begin\r\n    for I := ANode.Row + 1 to ANode.Row + ANode.TotalChildren do\r\n    begin\r\n      v := GetNodeFromNodeStructure(I);\r\n      if Assigned(v) then\r\n        UpdateNodeExpanded(v, True);\r\n    end;\r\n  end;\r\n  UpdateVisibleNodes(ANode);\r\n  if not FBlockUpdate then\r\n  begin\r\n    ResetNodes(False);\r\n    UpdateTreeView;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UpdateNodeIndex(ANode: TTMSFNCTreeViewVirtualNode;\r\n  AIndex: Integer);\r\nbegin\r\n  ANode.FIndex := AIndex;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UpdateNodeLevel(ANode: TTMSFNCTreeViewVirtualNode;\r\n  ALevel: Integer);\r\nbegin\r\n  ANode.FLevel := ALevel;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UpdateNodeParentNode(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AParentNode: Integer);\r\nbegin\r\n  ANode.FParentNode := AParentNode;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UpdateNodeRow(ANode: TTMSFNCTreeViewVirtualNode;\r\n  ARow: Integer);\r\nbegin\r\n  ANode.FRow := ARow;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UpdateNodesInternal(ANodeRemoveData: TTMSFNCTreeViewVirtualNodeRemoveData);\r\nvar\r\n  cnt: Integer;\r\n  I, pi, R: Integer;\r\n  rs: TTMSFNCTreeViewVirtualNode;\r\n  ext, exp: Boolean;\r\n  chkst: TTMSFNCArrayBoolean;\r\n  K: Integer;\r\n  chk: Boolean;\r\nbegin\r\n  cnt := ANodeRemoveData.Count;\r\n  pi := ANodeRemoveData.ParentNode;\r\n  R := ANodeRemoveData.RowIndex;\r\n\r\n  for I := R to NodeStructure.Count - 1 do\r\n  begin\r\n    rs := GetNodeFromNodeStructure(I);\r\n    if Assigned(rs) then\r\n    begin\r\n      UpdateNodeRow(rs, rs.Row - cnt);\r\n\r\n      if rs.ParentNode > pi then\r\n        UpdateNodeParentNode(rs, rs.ParentNode - cnt);\r\n\r\n      if rs.ParentNode = pi then\r\n        UpdateNodeIndex(rs, rs.Index - 1);\r\n\r\n      GetNodeForNodeData(rs);\r\n\r\n      exp := False;\r\n      DoIsNodeExpanded(rs, exp);\r\n      UpdateNodeExpanded(rs, exp);\r\n\r\n      ext := False;\r\n      DoIsNodeExtended(rs, ext);\r\n      UpdateNodeExtended(rs, ext);\r\n\r\n      SetLength(chkst, 0);\r\n      for K := 0 to ColumnCount - 1 do\r\n      begin\r\n        chk := False;\r\n        DoIsNodeChecked(RS, K, chk);\r\n        SetLength(chkst, Length(chkst) + 1);\r\n        chkst[Length(chkst) - 1] := chk;\r\n      end;\r\n\r\n      UpdateNodeCheckStates(rs, chkst);\r\n    end;\r\n  end;\r\n\r\n  if not FBlockUpdate then\r\n  begin\r\n    ResetNodes(False);\r\n    UpdateTreeView;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UpdateNodeTextRects(\r\n  ANode: TTMSFNCTreeViewVirtualNode; ATextRects: TTMSFNCArrayTRectF);\r\nbegin\r\n  ANode.FTextRects := ATextRects;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UpdateNodeTitleHeight(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AHeight: Double);\r\nbegin\r\n  ANode.FTitleHeight := AHeight;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UpdateNodeTitleRects(\r\n  ANode: TTMSFNCTreeViewVirtualNode; ATitleRects: TTMSFNCArrayTRectF);\r\nbegin\r\n  ANode.FTitleRects := ATitleRects;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UpdateNodeTitleExtraRects(\r\n  ANode: TTMSFNCTreeViewVirtualNode; ATitleExtraRects: TTMSFNCArrayTRectF);\r\nbegin\r\n  ANode.FTitleExtraRects := ATitleExtraRects;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.UpdateNodeTotalChildren(\r\n  ANode: TTMSFNCTreeViewVirtualNode; ATotalChildren: Integer);\r\nbegin\r\n  ANode.FTotalChildren := ATotalChildren;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.ScrollToBottom;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  VerticalScrollBar.Value := VerticalScrollBar.Max;\r\n  {$ENDIF}\r\n  {$IFNDEF FMXLIB}\r\n  VerticalScrollBar.Position := VerticalScrollBar.Max;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.ScrollToNode(ANode: TTMSFNCTreeViewNode; AScrollIfNotVisible: Boolean = False; AScrollPosition: TTMSFNCTreeViewNodeScrollPosition = tvnspTop; AForceScroll: Boolean = False);\r\nbegin\r\n  if Assigned(ANode) then\r\n    ScrollToVirtualNode(ANode.VirtualNode, AScrollIfNotVisible, AScrollPosition, AForceScroll);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.ScrollToTop;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  VerticalScrollBar.Value := 0;\r\n  {$ENDIF}\r\n  {$IFNDEF FMXLIB}\r\n  VerticalScrollBar.Position := 0;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.ScrollToVirtualNode(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AScrollIfNotVisible: Boolean = False; AScrollPosition: TTMSFNCTreeViewNodeScrollPosition = tvnspTop; AForceScroll: Boolean = False);\r\nvar\r\n  v: Single;\r\nbegin\r\n  if not Assigned(ANode) then\r\n    Exit;\r\n\r\n  if IsVariableNodeHeight then\r\n  begin\r\n//    BeginUpdate;\r\n    v := -1;\r\n    while not ANode.Calculated and (v <> GetVerticalScrollPosition) and (ANode.Expanded or (ANode.Children = 0)) do\r\n    begin\r\n      ScrollToVirtualNodeInternal(ANode, AScrollIfNotVisible, AScrollPosition, AForceScroll);\r\n      v := GetVerticalScrollPosition;\r\n    end;\r\n//    EndUpdate;\r\n  end;\r\n\r\n  ScrollToVirtualNodeInternal(ANode, AScrollIfNotVisible, AScrollPosition, AForceScroll);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.ScrollToVirtualNodeInternal(ANode: TTMSFNCTreeViewVirtualNode; AScrollIfNotVisible: Boolean = False;\r\n  AScrollPosition: TTMSFNCTreeViewNodeScrollPosition = tvnspTop; AForceScroll: Boolean = False);\r\nvar\r\n  I, C: Integer;\r\n  yp, ps: Double;\r\n  v: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  yp := 0;\r\n  c := 0;\r\n  if Assigned(ANode) then\r\n  begin\r\n    for I := 0 to VisibleNodes.Count - 1 do\r\n    begin\r\n      v := VisibleNodes[I];\r\n      if Assigned(v) then\r\n      begin\r\n        if v.Row = ANode.Row then\r\n          Break;\r\n\r\n        if v.Calculated then\r\n          yp := yp + v.Height\r\n        else\r\n          Inc(c);\r\n      end;\r\n    end;\r\n\r\n    yp := yp + GetDefaultRowHeight(nil) * c;\r\n    ps := yp;\r\n    case AScrollPosition of\r\n      tvnspBottom: yp := yp - GetVViewPortSize + ANode.Height;\r\n      tvnspMiddle: yp := yp - GetVViewPortSize / 2 + ANode.Height / 2;\r\n    end;\r\n\r\n    CustomizeScrollPosition(ANode, yp, ps);\r\n\r\n    if AScrollIfNotVisible then\r\n    begin\r\n      if ((ps < Abs(GetVScrollValue)) or (ps + ANode.Height > Abs(GetVScrollValue) + GetVViewPortSize)) or AForceScroll then\r\n        Scroll(GetHScrollValue, yp);\r\n    end\r\n    else\r\n    begin\r\n      Scroll(GetHScrollValue, yp);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewData.GetNodeForRow(\r\n  ARow: Integer): TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if (ARow >= 0) and (ARow <= FNodeStructure.Count - 1) then\r\n    Result := FNodeStructure[ARow];\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.ScrollToVirtualNodeRow(ARow: Integer;\r\n  AScrollIfNotVisible: Boolean;\r\n  AScrollPosition: TTMSFNCTreeViewNodeScrollPosition; AForceScroll: Boolean);\r\nvar\r\n  n: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  n := GetNodeForRow(ARow);\r\n  if Assigned(n) then\r\n    ScrollToVirtualNode(n, AScrollIfNotVisible, AScrollPosition, AForceScroll);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.SetBitmapContainer(\r\n  const Value: TTMSFNCBitmapContainer);\r\nbegin\r\n  FBitmapContainer := Value;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewData.SetColumns(const Value: TTMSFNCTreeViewColumns);\r\nbegin\r\n  FColumns.Assign(Value);\r\nend;\r\n\r\n{ TTMSFNCTreeViewGroup }\r\n\r\nprocedure TTMSFNCTreeViewGroup.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCTreeViewGroup then\r\n  begin\r\n    FTag := (Source as TTMSFNCTreeViewGroup).Tag;\r\n    FText := (Source as TTMSFNCTreeViewGroup).Text;\r\n    FStartColumn := (Source as TTMSFNCTreeViewGroup).StartColumn;\r\n    FEndColumn := (Source as TTMSFNCTreeViewGroup).EndColumn;\r\n    FUseDefaultAppearance := (Source as TTMSFNCTreeViewGroup).UseDefaultAppearance;\r\n    FBottomFill.Assign((Source as TTMSFNCTreeViewGroup).BottomFill);\r\n    FBottomFont.Assign((Source as TTMSFNCTreeViewGroup).BottomFont);\r\n    FBottomStroke.Assign((Source as TTMSFNCTreeViewGroup).BottomStroke);\r\n    FTopFill.Assign((Source as TTMSFNCTreeViewGroup).TopFill);\r\n    FTopStroke.Assign((Source as TTMSFNCTreeViewGroup).TopStroke);\r\n    FTopFont.Assign((Source as TTMSFNCTreeViewGroup).TopFont);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroup.Changed(Sender: TObject);\r\nbegin\r\n  UpdateGroup;\r\nend;\r\n\r\nconstructor TTMSFNCTreeViewGroup.Create(ACollection: TCollection);\r\nvar\r\n  grp: TTMSFNCTreeViewGroup;\r\nbegin\r\n  inherited;\r\n  if Assigned(Collection) then\r\n  begin\r\n    FTreeView := (Collection as TTMSFNCTreeViewGroups).TreeView;\r\n    FText := TranslateTextEx(sTMSFNCTreeViewGroup) + ' ' + inttostr(FTreeView.Groups.Count - 1);\r\n    if FTreeView.Groups.Count < 2 then\r\n    begin\r\n      FStartColumn := 0;\r\n      FEndColumn := 0\r\n    end\r\n    else\r\n    begin\r\n      grp := FTreeView.Groups[FTreeView.Groups.Count - 2];\r\n      FStartColumn := grp.StartColumn + 1;\r\n      FEndColumn := FStartColumn;\r\n    end;\r\n  end;\r\n\r\n  FUseDefaultAppearance := True;\r\n\r\n  FBottomFill := TTMSFNCGraphicsFill.Create(gfkNone, gcWhite);\r\n  FBottomStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcDarkGray);\r\n  FTopFill := TTMSFNCGraphicsFill.Create(gfkNone, gcWhite);\r\n  FTopStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcGray);\r\n\r\n  FTopFont := TTMSFNCGraphicsFont.Create;\r\n  FBottomFont := TTMSFNCGraphicsFont.Create;\r\n\r\n  FBottomFill.OnChanged := @Changed;\r\n  FTopFill.OnChanged := @Changed;\r\n  FBottomStroke.OnChanged := @Changed;\r\n  FTopStroke.OnChanged := @Changed;\r\n\r\n  {$IFDEF FMXLIB}\r\n  FTopFont.OnChanged := @Changed;\r\n  FBottomFont.OnChanged := @Changed;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  FTopFont.OnChange := @Changed;\r\n  FBottomFont.OnChange := @Changed;\r\n  {$ENDIF}\r\n\r\n  UpdateGroup;\r\nend;\r\n\r\ndestructor TTMSFNCTreeViewGroup.Destroy;\r\nbegin\r\n  FTopFill.Free;\r\n  FTopStroke.Free;\r\n  FTopFont.Free;\r\n  FBottomFill.Free;\r\n  FBottomStroke.Free;\r\n  FBottomFont.Free;\r\n  inherited;\r\n  UpdateGroup;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewGroup.GetText: String;\r\nbegin\r\n  Result  := Text;\r\n  if Result = '' then\r\n  begin\r\n    Result := Name;\r\n    if Result = '' then\r\n      Result := TranslateTextEx(sTMSFNCTreeViewGroup) + ' ' + inttostr(Index);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewGroup.TreeView: TTMSFNCTreeViewData;\r\nbegin\r\n  Result := FTreeView;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroup.SetStartColumn(const Value: Integer);\r\nbegin\r\n  if FStartColumn <> Value then\r\n  begin\r\n    FStartColumn := Value;\r\n    UpdateGroup;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroup.SetEndColumn(const Value: Integer);\r\nbegin\r\n  if FEndColumn <> Value then\r\n  begin\r\n    FEndColumn := Value;\r\n    UpdateGroup;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroup.SetBottomFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  if FBottomFont <> Value then\r\n    FBottomFont.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroup.SetBottomStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FBottomStroke <> Value then\r\n    FBottomStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroup.SetBottomFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FBottomFill <> Value then\r\n    FBottomFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroup.SetTopFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  if FTopFont <> Value then\r\n    FTopFont.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroup.SetTopStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FTopStroke <> Value then\r\n    FTopStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroup.SetUseDefaultAppearance(const Value: Boolean);\r\nbegin\r\n  if FUseDefaultAppearance <> Value then\r\n  begin\r\n    FUseDefaultAppearance := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroup.SetTopFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FTopFill <> Value then\r\n    FTopFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroup.SetName(const Value: String);\r\nbegin\r\n  if FName <> Value then\r\n  begin\r\n    FName := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroup.SetText(const Value: String);\r\nbegin\r\n  if FText <> Value then\r\n  begin\r\n    FText := Value;\r\n    UpdateGroup;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroup.UpdateGroup;\r\nvar\r\n  c: TTMSFNCTreeViewData;\r\nbegin\r\n  c := TreeView;\r\n  if Assigned(c) then\r\n  begin\r\n    c.UpdateColumns;\r\n    c.UpdateTreeViewCache;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCTreeViewGroups }\r\n\r\nfunction TTMSFNCTreeViewGroups.Add: TTMSFNCTreeViewGroup;\r\nbegin\r\n  Result := TTMSFNCTreeViewGroup(inherited Add);\r\nend;\r\n\r\nconstructor TTMSFNCTreeViewGroups.Create(ATreeView: TTMSFNCTreeViewData);\r\nbegin\r\n  inherited Create(ATreeView, GetItemClass);\r\n  FTreeView := ATreeView;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewGroups.GetItem(Index: Integer): TTMSFNCTreeViewGroup;\r\nbegin\r\n  Result := TTMSFNCTreeViewGroup(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewGroups.GetItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCTreeViewGroup;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewGroups.Insert(Index: Integer): TTMSFNCTreeViewGroup;\r\nbegin\r\n  Result := TTMSFNCTreeViewGroup(inherited Insert(Index));\r\nend;\r\n\r\nfunction TTMSFNCTreeViewGroups.TreeView: TTMSFNCTreeViewData;\r\nbegin\r\n  Result := FTreeView;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroups.SetItem(Index: Integer;\r\n  const Value: TTMSFNCTreeViewGroup);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCTreeViewNode }\r\n\r\nfunction TTMSFNCTreeViewNode.SaveToString(ATextOnly: Boolean = True): String;\r\nconst\r\n  TabChar = #9;\r\nvar\r\n  vn: TTMSFNCTreeViewVirtualNode;\r\n  I: Integer;\r\nbegin\r\n  if not Assigned(FTreeView) then\r\n    Exit;\r\n\r\n  vn := VirtualNode;\r\n  Result := '';\r\n  for I := 0 to vn.Level - 1 do\r\n    Result := Result + TabChar;\r\n\r\n  for I := 0 to FTreeView.ColumnCount - 1 do\r\n  begin\r\n    if ATextOnly then\r\n    begin\r\n      if I = FTreeView.ColumnCount - 1 then\r\n        Result := Result + GetStrippedHTMLText(I)\r\n      else\r\n        Result := Result + GetStrippedHTMLText(I)+'{1}'\r\n    end\r\n    else\r\n    begin\r\n      if I = FTreeView.ColumnCount - 1 then\r\n        Result := Result + Text[I]\r\n      else\r\n        Result := Result + Text[I]+'{1}'\r\n    end;\r\n  end;\r\n\r\n  if not ATextOnly then\r\n    Result := Result + '{0}';\r\n\r\n  for I := 0 to FTreeView.ColumnCount - 1 do\r\n  begin\r\n    if not ATextOnly then\r\n    begin\r\n      Result := Result + IntToStr(Integer(CheckTypes[I])) + ';';\r\n      Result := Result + BoolToStr(Checked[I]) + ';';\r\n      Result := Result + ExpandedIconNames[I, False] + ';';\r\n      Result := Result + ExpandedIconNames[I, True] + ';';\r\n      Result := Result + CollapsedIconNames[I, False] + ';';\r\n      Result := Result + CollapsedIconNames[I, True] + ';';\r\n      Result := Result + TTMSFNCUtils.SaveBitmapToHexStr(ExpandedIcons[I, False]) + ';';\r\n      Result := Result + TTMSFNCUtils.SaveBitmapToHexStr(ExpandedIcons[I, True]) + ';';\r\n      Result := Result + TTMSFNCUtils.SaveBitmapToHexStr(CollapsedIcons[I, False]) + ';';\r\n      if I = Values.Count - 1 then\r\n        Result := Result + TTMSFNCUtils.SaveBitmapToHexStr(CollapsedIcons[I, True])\r\n      else\r\n        Result := Result + TTMSFNCUtils.SaveBitmapToHexStr(CollapsedIcons[I, True]) + '|';\r\n    end;\r\n  end;\r\n\r\n  if not ATextOnly then\r\n  begin\r\n    Result := Result + '{0}';\r\n    Result := Result + BoolToStr(Extended) + '{0}';\r\n    Result := Result + BoolToStr(Enabled);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.SetChecked(AColumn: integer;\r\n  const Value: Boolean);\r\nvar\r\n  v: TTMSFNCTreeViewNodeValue;\r\nbegin\r\n  v := GetValueForColumn(AColumn);\r\n  if Assigned(v) then\r\n    v.Checked := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.SetCheckStates(\r\n  ACheckStates: TTMSFNCTreeViewNodeCheckStates);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to Length(ACheckStates) - 1 do\r\n    Checked[I] := ACheckStates[I];\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.SetCheckType(AColumn: Integer;\r\n  const Value: TTMSFNCTreeViewNodeCheckType);\r\nvar\r\n  v: TTMSFNCTreeViewNodeValue;\r\nbegin\r\n  v := GetValueForColumn(AColumn);\r\n  if Assigned(v) then\r\n    v.CheckType := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.SetCheckTypes(\r\n  ACheckTypes: TTMSFNCTreeViewNodeCheckTypes);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to Length(ACheckTypes) - 1 do\r\n    CheckTypes[I] := ACheckTypes[I];\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.SetCollapsedIconNames(\r\n  AIconNames: TTMSFNCTreeViewNodeIconNames; ALarge: Boolean);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to Length(AIconNames) - 1 do\r\n    CollapsedIconNames[I, ALarge] := AIconNames[I];\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.SetCollapsedIcons(AIcons: TTMSFNCTreeViewNodeIcons;\r\n  ALarge: Boolean);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to Length(AIcons) - 1 do\r\n    CollapsedIcons[I, ALarge] := AIcons[I];\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.SetCollapsedIcon(AColumn: Integer;\r\n  ALarge: Boolean; const Value: TTMSFNCBitmap);\r\nvar\r\n  v: TTMSFNCTreeViewNodeValue;\r\nbegin\r\n  v := GetValueForColumn(AColumn);\r\n  if Assigned(v) then\r\n  begin\r\n    if ALarge then\r\n      v.CollapsedIconLarge.Assign(Value)\r\n    else\r\n      v.CollapsedIcon.Assign(Value);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.SetCollapsedIconName(AColumn: Integer;\r\n  ALarge: Boolean; const Value: String);\r\nvar\r\n  v: TTMSFNCTreeViewNodeValue;\r\nbegin\r\n  v := GetValueForColumn(AColumn);\r\n  if Assigned(v) then\r\n  begin\r\n    if ALarge then\r\n      v.CollapsedIconLargeName := Value\r\n    else\r\n      v.CollapsedIconName := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.SetExpandedIconNames(\r\n  AIconNames: TTMSFNCTreeViewNodeIconNames; ALarge: Boolean);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to Length(AIconNames) - 1 do\r\n    ExpandedIconNames[I, ALarge] := AIconNames[I];\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.SetExpandedIcons(AIcons: TTMSFNCTreeViewNodeIcons;\r\n  ALarge: Boolean);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to Length(AIcons) - 1 do\r\n    ExpandedIcons[I, ALarge] := AIcons[I];\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.SetExpandedIcon(AColumn: Integer;\r\n  ALarge: Boolean; const Value: TTMSFNCBitmap);\r\nvar\r\n  v: TTMSFNCTreeViewNodeValue;\r\nbegin\r\n  v := GetValueForColumn(AColumn);\r\n  if Assigned(v) then\r\n  begin\r\n    if ALarge then\r\n      v.ExpandedIconLarge.Assign(Value)\r\n    else\r\n      v.ExpandedIcon.Assign(Value);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.SetExpandedIconName(AColumn: Integer;\r\n  ALarge: Boolean; const Value: String);\r\nvar\r\n  v: TTMSFNCTreeViewNodeValue;\r\nbegin\r\n  v := GetValueForColumn(AColumn);\r\n  if Assigned(v) then\r\n  begin\r\n    if ALarge then\r\n      v.ExpandedIconLargeName := Value\r\n    else\r\n      v.ExpandedIconName := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.SetText(AColumn: Integer; const Value: String);\r\nvar\r\n  v: TTMSFNCTreeViewNodeValue;\r\nbegin\r\n  v := GetValueForColumn(AColumn);\r\n  if Assigned(v) then\r\n    v.Text := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.SetTextValues(\r\n  ATextValues: TTMSFNCTreeViewNodeTextValues);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to Length(ATextValues) - 1 do\r\n    Text[I] := ATextValues[I];\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.AssignData(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCTreeViewNode then\r\n  begin\r\n    FDataString := (Source as TTMSFNCTreeViewNode).DataString;\r\n    FDataBoolean := (Source as TTMSFNCTreeViewNode).DataBoolean;\r\n    FDataObject := (Source as TTMSFNCTreeViewNode).DataObject;\r\n    FDataInteger := (Source as TTMSFNCTreeViewNode).DataInteger;\r\n    FDataPointer := (Source as TTMSFNCTreeViewNode).DataPointer;\r\n    FDBKey := (Source as TTMSFNCTreeViewNode).DBKey;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCTreeViewNode then\r\n  begin\r\n    FTag := (Source as TTMSFNCTreeViewNode).Tag;\r\n    FValues.Assign((Source as TTMSFNCTreeViewNode).Values);\r\n    FExpanded := (Source as TTMSFNCTreeViewNode).Expanded;\r\n    FExtended := (Source as TTMSFNCTreeViewNode).Extended;\r\n    FEnabled := (Source as TTMSFNCTreeViewNode).Enabled;\r\n    FNodes.Assign((Source as TTMSFNCTreeViewNode).Nodes);\r\n    AssignData(Source);\r\n    if Assigned(FTreeView) then\r\n    begin\r\n      if FExpanded then\r\n        FTreeView.ExpandNode(Self)\r\n      else\r\n        FTreeView.CollapseNode(Self);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.Collapse(ARecurse: Boolean);\r\nbegin\r\n  if Assigned(FTreeView) then\r\n    FTreeView.CollapseNode(Self, ARecurse);\r\nend;\r\n\r\nconstructor TTMSFNCTreeViewNode.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(Collection) then\r\n    FTreeView := (Collection as TTMSFNCTreeViewNodes).TreeView;\r\n  FValues := CreateNodeValues;\r\n\r\n  FExpanded := False;\r\n  FExtended := False;\r\n  FEnabled := True;\r\n  FNodes := CreateNodes;\r\n  if Assigned(FTreeView) then\r\n  begin\r\n    if FTreeView.NodeListBuild then\r\n      FTreeView.InsertItemInternal(Self)\r\n    else\r\n      FTreeView.UpdateTreeViewCache;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNode.CreateNodes: TTMSFNCTreeViewNodes;\r\nbegin\r\n  Result := TTMSFNCTreeViewNodes.Create(FTreeView, Self);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNode.CreateNodeValues: TTMSFNCTreeViewNodeValues;\r\nbegin\r\n  Result := TTMSFNCTreeViewNodeValues.Create(FTreeView, Self);\r\nend;\r\n\r\ndestructor TTMSFNCTreeViewNode.Destroy;\r\nvar\r\n  ru: TTMSFNCTreeViewVirtualNodeRemoveData;\r\nbegin\r\n  ru.RowIndex := -1;\r\n  ru.Count := 0;\r\n  ru.ParentNode := -1;\r\n  if Assigned(FTreeView) then\r\n  begin\r\n    if FTreeView.NodeListBuild and not (FTreeView.BlockRemoveNode > 0) then\r\n      ru := FTreeView.RemoveItemInternal(Self, False);\r\n  end;\r\n  FVirtualNode := nil;\r\n\r\n  if Assigned(FTreeView) then\r\n    FTreeView.BlockRemoveNode := FTreeView.BlockRemoveNode + 1;\r\n  FNodes.Free;\r\n  if Assigned(FTreeView) then\r\n    FTreeView.BlockRemoveNode := FTreeView.BlockRemoveNode - 1;\r\n  FValues.Free;\r\n\r\n  inherited;\r\n\r\n  if (ru.RowIndex <> -1) then\r\n    FTreeView.UpdateNodesInternal(ru);\r\n\r\n  if Assigned(FTreeView) then\r\n    FTreeView.UpdateTreeViewCache;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.Expand(ARecurse: Boolean);\r\nbegin\r\n  if Assigned(FTreeView) then\r\n    FTreeView.ExpandNode(Self, ARecurse);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNode.GetChecked(AColumn: integer): Boolean;\r\nvar\r\n  v: TTMSFNCTreeViewNodeValue;\r\nbegin\r\n  Result := False;\r\n  v := GetValueForColumn(AColumn);\r\n  if Assigned(v) then\r\n    Result := v.Checked;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNode.GetCheckType(\r\n  AColumn: Integer): TTMSFNCTreeViewNodeCheckType;\r\nvar\r\n  v: TTMSFNCTreeViewNodeValue;\r\nbegin\r\n  Result := tvntNone;\r\n  v := GetValueForColumn(AColumn);\r\n  if Assigned(v) then\r\n    Result := v.CheckType;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNode.GetChildCount: Integer;\r\nbegin\r\n  Result := 0;\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.GetNodeChildCount(Self);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNode.GetCollapsedIcon(AColumn: Integer;\r\n  ALarge: Boolean): TTMSFNCBitmap;\r\nvar\r\n  v: TTMSFNCTreeViewNodeValue;\r\nbegin\r\n  Result := nil;\r\n  v := GetValueForColumn(AColumn);\r\n  if Assigned(v) then\r\n  begin\r\n    if ALarge then\r\n      Result := v.CollapsedIconLarge\r\n    else\r\n      Result := v.CollapsedIcon;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNode.GetCollapsedIconName(AColumn: Integer;\r\n  ALarge: Boolean): String;\r\nvar\r\n  v: TTMSFNCTreeViewNodeValue;\r\nbegin\r\n  Result := '';\r\n  v := GetValueForColumn(AColumn);\r\n  if Assigned(v) then\r\n  begin\r\n    if ALarge then\r\n      Result := v.CollapsedIconLargeName\r\n    else\r\n      Result := v.CollapsedIconName;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNode.GetExpandedIcon(AColumn: Integer;\r\n  ALarge: Boolean): TTMSFNCBitmap;\r\nvar\r\n  v: TTMSFNCTreeViewNodeValue;\r\nbegin\r\n  Result := nil;\r\n  v := GetValueForColumn(AColumn);\r\n  if Assigned(v) then\r\n  begin\r\n    if ALarge then\r\n      Result := v.ExpandedIconLarge\r\n    else\r\n      Result := v.ExpandedIcon;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNode.GetExpandedIconName(AColumn: Integer;\r\n  ALarge: Boolean): string;\r\nvar\r\n  v: TTMSFNCTreeViewNodeValue;\r\nbegin\r\n  Result := '';\r\n  v := GetValueForColumn(AColumn);\r\n  if Assigned(v) then\r\n  begin\r\n    if ALarge then\r\n      Result := v.ExpandedIconLargeName\r\n    else\r\n      Result := v.ExpandedIconName;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNode.GetFirstChild: TTMSFNCTreeViewNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.GetFirstChildNode(Self);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNode.GetLastChild: TTMSFNCTreeViewNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.GetLastChildNode(Self);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNode.GetNext: TTMSFNCTreeViewNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.GetNextNode(Self);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNode.GetNextChild(ANode: TTMSFNCTreeViewNode): TTMSFNCTreeViewNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.GetNextChildNode(Self, ANode);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNode.GetNextSibling: TTMSFNCTreeViewNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.GetNextSiblingNode(Self);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNode.GetParent: TTMSFNCTreeViewNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.GetParentNode(Self);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNode.GetPrevious: TTMSFNCTreeViewNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.GetPreviousNode(Self);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNode.GetPreviousChild(ANode: TTMSFNCTreeViewNode): TTMSFNCTreeViewNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.GetPreviousChildNode(Self, ANode);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNode.GetPreviousSibling: TTMSFNCTreeViewNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.GetPreviousSiblingNode(Self);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNode.GetStrippedHTMLText(AColumn: Integer): String;\r\nbegin\r\n  Result := TTMSFNCUtils.HTMLStrip(Text[AColumn]);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNode.GetText(AColumn: Integer): String;\r\nvar\r\n  v: TTMSFNCTreeViewNodeValue;\r\nbegin\r\n  Result := '';\r\n  v := GetValueForColumn(AColumn);\r\n  if Assigned(v) then\r\n    Result := v.Text;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNode.GetValueForColumn(\r\n  AColumn: Integer): TTMSFNCTreeViewNodeValue;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := nil;\r\n  if (AColumn >= 0) and (AColumn <= Values.Count - 1) then\r\n  begin\r\n    Result := Values[AColumn];\r\n    Exit;\r\n  end;\r\n\r\n  FTreeView.BlockUpdateNode := True;\r\n  for I := 0 to AColumn do\r\n  begin\r\n    if I > Values.Count - 1 then\r\n      Result := Values.Add;\r\n  end;\r\n  FTreeView.BlockUpdateNode := False;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.LoadFromString(AString: String);\r\nvar\r\n  k, l: Integer;\r\n  a: TStringList;\r\n  c, s: TStringList;\r\n  y: Integer;\r\n  st: string;\r\n  ps: Integer;\r\n  subst: string;\r\nbegin\r\n  a := TStringList.Create;\r\n  try\r\n    st := AString;\r\n    while st <> '' do\r\n    begin\r\n      ps := Pos('{0}', st);\r\n      if ps = 0 then\r\n      begin\r\n        a.Add(st);\r\n        Break;\r\n      end;\r\n      subst := Copy(st, 1, ps - 1);\r\n      a.Add(subst);\r\n      Delete(st, 1, ps - 1 + Length('{0}'));\r\n    end;\r\n\r\n    for K := 0 to a.Count - 1 do\r\n    begin\r\n      if a[K] <> '' then\r\n      begin\r\n        if K = 0 then\r\n        begin\r\n          c := TStringList.Create;\r\n          try\r\n            st := a[K];\r\n            while st <> '' do\r\n            begin\r\n              ps := Pos('{1}', st);\r\n              if ps = 0 then\r\n              begin\r\n                c.Add(st);\r\n                Break;\r\n              end;\r\n              subst := Copy(st, 1, ps - 1);\r\n              c.Add(subst);\r\n              Delete(st, 1, ps - 1 + Length('{0}'));\r\n            end;\r\n\r\n            for L := 0 to c.Count - 1 do\r\n            begin\r\n              if c[L] <> '' then\r\n                Text[L] := c[L];\r\n            end;\r\n          finally\r\n            c.free;\r\n          end;\r\n        end\r\n        else if K = 1 then\r\n        begin\r\n          c := TStringList.Create;\r\n          try\r\n            TTMSFNCUtils.Split('|', a[K], c);\r\n            for L := 0 to c.Count - 1 do\r\n            begin\r\n              s := TStringList.Create;\r\n              try\r\n                TTMSFNCUtils.Split(';', c[L], s);\r\n                for y := 0 to s.Count - 1 do\r\n                begin\r\n                  if s[y] <> '' then\r\n                  begin\r\n                    if y = 0 then\r\n                      CheckTypes[L] := TTMSFNCTreeViewNodeCheckType(StrToInt(s[y]))\r\n                    else if y = 1 then\r\n                      Checked[L] := StrToBool(s[y])\r\n                    else if y = 2 then\r\n                      ExpandedIconNames[L, False] := s[y]\r\n                    else if y = 3 then\r\n                      ExpandedIconNames[L, True] := s[y]\r\n                    else if y = 4 then\r\n                      CollapsedIconNames[L, False] := s[y]\r\n                    else if y = 5 then\r\n                      CollapsedIconNames[L, True] := s[y]\r\n                    else if (y = 6) or (y = 7) or (y = 8) or (y = 9) then\r\n                    begin\r\n                      if y = 6 then\r\n                        TTMSFNCUtils.LoadBitmapFromHexStr(s[y], ExpandedIcons[L, False])\r\n                      else if y = 7 then\r\n                        TTMSFNCUtils.LoadBitmapFromHexStr(s[y], ExpandedIcons[L, True])\r\n                      else if y = 8 then\r\n                        TTMSFNCUtils.LoadBitmapFromHexStr(s[y], CollapsedIcons[L, False])\r\n                      else\r\n                        TTMSFNCUtils.LoadBitmapFromHexStr(s[y], CollapsedIcons[L, True]);\r\n                    end;\r\n                  end;\r\n                end;\r\n              finally\r\n                s.Free;\r\n              end;\r\n            end;\r\n          finally\r\n            c.Free;\r\n          end;\r\n        end\r\n        else if K = 2 then\r\n          Extended := StrToBool(a[K])\r\n        else if K = 3 then\r\n          Enabled := StrToBool(a[K]);\r\n      end;\r\n    end;\r\n  finally\r\n    a.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.CopyTo(ADestination: TTMSFNCTreeViewNode; AIndex: Integer = -1);\r\nbegin\r\n  if Assigned(FTreeView) then\r\n    FTreeView.CopyNode(Self, ADestination, AIndex);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.MoveTo(ADestination: TTMSFNCTreeViewNode; AIndex: Integer = -1);\r\nbegin\r\n  if Assigned(FTreeView) then\r\n    FTreeView.MoveNode(Self, ADestination, AIndex);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.RemoveChildren;\r\nbegin\r\n  Nodes.Clear;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNode.TreeView: TTMSFNCTreeViewData;\r\nbegin\r\n  Result := FTreeView;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.SetEnabled(const Value: Boolean);\r\nbegin\r\n  if FEnabled <> Value then\r\n  begin\r\n    FEnabled := Value;\r\n    UpdateNode;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.SetExpanded(const Value: Boolean);\r\nbegin\r\n  if FExpanded <> Value then\r\n  begin\r\n    FExpanded := Value;\r\n    if Assigned(FTreeView) then\r\n      FTreeView.ToggleNode(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.SetExtended(const Value: Boolean);\r\nbegin\r\n  if FExtended <> Value then\r\n  begin\r\n    FExtended := Value;\r\n    UpdateNode;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.SetIndex(Value: Integer);\r\n\r\n  procedure InsertSubNodes(ANodes: TTMSFNCTreeViewNodes);\r\n  var\r\n    I: Integer;\r\n  begin\r\n    for I := 0 to ANodes.Count - 1 do\r\n    begin\r\n      FTreeView.InsertItemInternal(ANodes[I]);\r\n      InsertSubNodes(ANodes[I].Nodes);\r\n    end;\r\n  end;\r\n\r\nbegin\r\n  inherited;\r\n  if Assigned(FTreeView) then\r\n  begin\r\n    if FTreeView.NodeListBuild then\r\n    begin\r\n      FTreeView.RemoveItemInternal(Self);\r\n      FTreeView.InsertItemInternal(Self);\r\n      InsertSubNodes(Nodes);\r\n    end\r\n    else\r\n      FTreeView.UpdateTreeViewCache;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.SetNodes(const Value: TTMSFNCTreeViewNodes);\r\nbegin\r\n  if FNodes <> Value then\r\n  begin\r\n    FNodes.Assign(Value);\r\n    UpdateNode;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.SetValues(const Value: TTMSFNCTreeViewNodeValues);\r\nbegin\r\n  if FValues <> Value then\r\n  begin\r\n    FValues.Assign(Value);\r\n    UpdateNode;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.UpdateNode;\r\nvar\r\n  c: TTMSFNCTreeViewData;\r\nbegin\r\n  c := TreeView;\r\n  if Assigned(c) then\r\n  begin\r\n    if FTreeView.NodeListBuild then\r\n      c.UpdateNode(VirtualNode)\r\n    else\r\n      c.UpdateTreeViewCache;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNode.ValuesChanged(Sender: TObject);\r\nbegin\r\n  UpdateNode;\r\nend;\r\n\r\n{ TTMSFNCTreeViewNodes }\r\n\r\nfunction TTMSFNCTreeViewNodes.Add: TTMSFNCTreeViewNode;\r\nbegin\r\n  Result := TTMSFNCTreeViewNode(inherited Add);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNodes.Compare(ANode1, ANode2: TTMSFNCTreeViewNode; AColumn: Integer = 0; ACaseSensitive: Boolean = True;\r\n  ASortingMode: TTMSFNCTreeViewNodesSortMode = nsmAscending): Integer;\r\nvar\r\n  td: TTMSFNCTreeViewData;\r\nbegin\r\n  Result := 0;\r\n\r\n  td := TreeView;\r\n  if not Assigned(td) then\r\n    Exit;\r\n\r\n  if not ACaseSensitive then\r\n    Result := AnsiCompareStr(UpperCase(ANode1.StrippedHTMLText[AColumn]), UpperCase(ANode2.StrippedHTMLText[AColumn]))\r\n  else\r\n    Result := AnsiCompareStr(ANode1.StrippedHTMLText[AColumn], ANode2.StrippedHTMLText[AColumn]);\r\n\r\n  case ASortingMode of\r\n    nsmDescending: Result := Result * -1;\r\n  end;\r\n\r\n  td.DoNodeCompare(ANode1, ANode2, AColumn, Result);\r\nend;\r\n\r\nconstructor TTMSFNCTreeViewNodes.Create(ATreeView: TTMSFNCTreeViewData; ANode: TTMSFNCTreeViewNode);\r\nbegin\r\n  inherited Create(ATreeView, GetItemClass);\r\n  FTreeView := ATreeView;\r\n  FNode := ANode;\r\nend;\r\n\r\ndestructor TTMSFNCTreeViewNodes.Destroy;\r\nbegin\r\n  FNode := nil;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNodes.GetItem(Index: Integer): TTMSFNCTreeViewNode;\r\nbegin\r\n  Result := TTMSFNCTreeViewNode(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNodes.GetItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCTreeViewNode;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNodes.Insert(Index: Integer): TTMSFNCTreeViewNode;\r\nbegin\r\n  Result := TTMSFNCTreeViewNode(inherited Insert(Index));\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNodes.Node: TTMSFNCTreeViewNode;\r\nbegin\r\n  Result := FNode;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodes.QuickSort(L, R: Integer; AColumn: Integer = 0; ACaseSensitive: Boolean = True; ASortingMode: TTMSFNCTreeViewNodesSortMode = nsmAscending);\r\nvar\r\n  I, J, p: Integer;\r\n  {$IFDEF LCLWEBLIB}\r\n  SortList: TFPList;\r\n\r\n  procedure ExchangeItems(Index1, Index2: Integer);\r\n  var\r\n    {$IFDEF WEBLIB}\r\n    Save: JSValue;\r\n    {$ENDIF}\r\n    {$IFNDEF WEBLIB}\r\n    Save: Pointer;\r\n    {$ENDIF}\r\n  begin\r\n    Save := SortList.Items[Index1];\r\n    SortList.Items[Index1] := SortList.Items[Index2];\r\n    SortList.Items[Index2] := Save;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  SortList: TList<TCollectionItem>;\r\n\r\n  procedure ExchangeItems(Index1, Index2: Integer);\r\n  var\r\n    Save: TCollectionItem;\r\n  begin\r\n    Save := SortList[Index1];\r\n    SortList[Index1] := SortList[Index2];\r\n    SortList[Index2] := Save;\r\n    Save.Index := Index2;\r\n  end;\r\n  {$ENDIF}\r\nbegin\r\n  //This cast allows us to get at the private elements in the base class\r\n  {$IFNDEF WEBLIB}\r\n  SortList := {%H-}TShadowedCollection(Self).FItems;\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  SortList := Self.FPList;\r\n  {$ENDIF}\r\n\r\n  repeat\r\n    I := L;\r\n    J := R;\r\n    P := (L + R) shr 1;\r\n    repeat\r\n      while Compare(Items[I], Items[P], AColumn, ACaseSensitive, ASortingMode) < 0 do\r\n        Inc(I);\r\n      while Compare(Items[J], Items[P], AColumn, ACaseSensitive, ASortingMode) > 0 do\r\n        Dec(J);\r\n      if I <= J then\r\n      begin\r\n        ExchangeItems(I, J);\r\n        if P = I then\r\n          P := J\r\n        else if P = J then\r\n          P := I;\r\n        Inc(I);\r\n        Dec(J);\r\n      end;\r\n    until I > J;\r\n    if L < J then\r\n      QuickSort(L, J, AColumn, ACaseSensitive, ASortingMode);\r\n    L := I;\r\n  until I >= R;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNodes.TreeView: TTMSFNCTreeViewData;\r\nbegin\r\n  Result := FTreeView;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodes.SetItem(Index: Integer;\r\n  const Value: TTMSFNCTreeViewNode);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodes.Sort(AColumn: Integer = 0; ARecurse: Boolean = False; ACaseSensitive: Boolean = True;\r\n  ASortingMode: TTMSFNCTreeViewNodesSortMode = nsmAscending; AClearNodeList: Boolean = True);\r\nvar\r\n  td: TTMSFNCTreeViewData;\r\n  I: Integer;\r\nbegin\r\n  td := TreeView;\r\n  if Assigned(td) then\r\n  begin\r\n    td.FSortMode := ASortingMode;\r\n    td.BeginUpdate;\r\n    if AClearNodeList then\r\n      td.ClearNodeList;\r\n    BeginUpdate;\r\n    if Count > 0 then\r\n    begin\r\n      QuickSort(0, Pred(Count), AColumn, ACaseSensitive, ASortingMode);\r\n      if ARecurse then\r\n      begin\r\n        for I := 0 to Count - 1 do\r\n          Self[I].Nodes.Sort(AColumn, ARecurse, ACaseSensitive, ASortingMode, AClearNodeList);\r\n      end;\r\n    end;\r\n    EndUpdate;\r\n    td.EndUpdate;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCTreeViewColumn }\r\n\r\nprocedure TTMSFNCTreeViewColumn.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCTreeViewColumn then\r\n  begin\r\n    FTag := (Source as TTMSFNCTreeViewColumn).Tag;\r\n    FText := (Source as TTMSFNCTreeViewColumn).Text;\r\n    FName := (Source as TTMSFNCTreeViewColumn).Name;\r\n    FTrimming := (Source as TTMSFNCTreeViewColumn).Trimming;\r\n    FWordWrapping := (Source as TTMSFNCTreeViewColumn).WordWrapping;\r\n    FHorizontalTextAlign := (Source as TTMSFNCTreeViewColumn).HorizontalTextAlign;\r\n    FVerticalTextAlign := (Source as TTMSFNCTreeViewColumn).VerticalTextAlign;\r\n    FTitleTrimming := (Source as TTMSFNCTreeViewColumn).TitleTrimming;\r\n    FTitleWordWrapping := (Source as TTMSFNCTreeViewColumn).TitleWordWrapping;\r\n    FTitleHorizontalTextAlign := (Source as TTMSFNCTreeViewColumn).TitleHorizontalTextAlign;\r\n    FTitleVerticalTextAlign := (Source as TTMSFNCTreeViewColumn).TitleVerticalTextAlign;\r\n    FWidth := (Source as TTMSFNCTreeViewColumn).Width;\r\n    FVisible := (Source as TTMSFNCTreeViewColumn).Visible;\r\n    FUseDefaultAppearance := (Source as TTMSFNCTreeViewColumn).UseDefaultAppearance;\r\n    FFill.Assign((Source as TTMSFNCTreeViewColumn).Fill);\r\n    FDisabledFontColor := (Source as TTMSFNCTreeViewColumn).DisabledFontColor;\r\n    FSelectedFontColor := (Source as TTMSFNCTreeViewColumn).SelectedFontColor;\r\n    FDisabledTitleFontColor := (Source as TTMSFNCTreeViewColumn).DisabledTitleFontColor;\r\n    FSelectedTitleFontColor := (Source as TTMSFNCTreeViewColumn).SelectedTitleFontColor;\r\n    FTitleFont.Assign((Source as TTMSFNCTreeViewColumn).TitleFont);\r\n    FFont.Assign((Source as TTMSFNCTreeViewColumn).Font);\r\n    FStroke.Assign((Source as TTMSFNCTreeViewColumn).Stroke);\r\n    FBottomFill.Assign((Source as TTMSFNCTreeViewColumn).BottomFill);\r\n    FBottomFont.Assign((Source as TTMSFNCTreeViewColumn).BottomFont);\r\n    FBottomStroke.Assign((Source as TTMSFNCTreeViewColumn).BottomStroke);\r\n    FTopFill.Assign((Source as TTMSFNCTreeViewColumn).TopFill);\r\n    FTopStroke.Assign((Source as TTMSFNCTreeViewColumn).TopStroke);\r\n    FTopFont.Assign((Source as TTMSFNCTreeViewColumn).TopFont);\r\n    FEditorType := (Source as TTMSFNCTreeViewColumn).EditorType;\r\n    FEditorItems.Assign((Source as TTMSFNCTreeViewColumn).EditorItems);\r\n    FCustomEditor := (Source as TTMSFNCTreeViewColumn).CustomEditor;\r\n    FSorting := (Source as TTMSFNCTreeViewColumn).Sorting;\r\n    FFiltering.Assign((Source as TTMSFNCTreeViewColumn).Filtering);\r\n    FExpandingButtonSize := (Source as TTMSFNCTreeViewColumn).ExpandingButtonSize;\r\n    FHTMLTemplate := (Source as TTMSFNCTreeViewColumn).HTMLTemplate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.Changed(Sender: TObject);\r\nbegin\r\n  UpdateColumn;\r\nend;\r\n\r\nconstructor TTMSFNCTreeViewColumn.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(Collection) then\r\n    FTreeView := (Collection as TTMSFNCTreeViewColumns).TreeView;\r\n\r\n  FSorting := tcsNone;\r\n  FExpandingButtonSize := 15;\r\n  FExpanded := True;\r\n  FSortIndex := -1;\r\n  FSortKind := nskNone;\r\n  FFiltering := TTMSFNCTreeViewColumnFiltering.Create(Self);\r\n  FEditorType := tcetNone;\r\n  FWordWrapping := False;\r\n  FTrimming := gttNone;\r\n  FCustomEditor := False;\r\n  FHorizontalTextAlign := gtaLeading;\r\n  FVerticalTextAlign := gtaCenter;\r\n  FTitleWordWrapping := False;\r\n  FTitleTrimming := gttNone;\r\n  FTitleHorizontalTextAlign := gtaLeading;\r\n  FTitleVerticalTextAlign := gtaCenter;\r\n  FEditorItems := TStringList.Create;\r\n  if Assigned(Collection) then\r\n    FText := TranslateTextEx(sTMSFNCTreeViewColumn) + ' ' + inttostr(Collection.Count - 1);\r\n\r\n  FName :=  StringReplace(FText, ' ', '', [rfReplaceAll]);\r\n  FWidth := 100;\r\n  FVisible := True;\r\n  FUseDefaultAppearance := True;\r\n\r\n  FBottomFill := TTMSFNCGraphicsFill.Create(gfkNone, gcWhite);\r\n  FBottomStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcDarkGray);\r\n  FTopFill := TTMSFNCGraphicsFill.Create(gfkNone, gcWhite);\r\n  FTopStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcDarkGray);\r\n\r\n  FFill := TTMSFNCGraphicsFill.Create(gfkSolid, gcNull);\r\n  FStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcDarkGray);\r\n\r\n  FSelectedFontColor := gcWhite;\r\n  FDisabledFontColor := gcSilver;\r\n\r\n  FSelectedTitleFontColor := gcWhite;\r\n  FDisabledTitleFontColor := gcSilver;\r\n\r\n  FFont := TTMSFNCGraphicsFont.Create;\r\n  FTitleFont := TTMSFNCGraphicsFont.Create;\r\n  FTopFont := TTMSFNCGraphicsFont.Create;\r\n  FBottomFont := TTMSFNCGraphicsFont.Create;\r\n\r\n  FBottomFill.OnChanged := @Changed;\r\n  FTopFill.OnChanged := @Changed;\r\n  FBottomStroke.OnChanged := @Changed;\r\n  FTopStroke.OnChanged := @Changed;\r\n  FStroke.OnChanged := @Changed;\r\n  FFill.OnChanged := @Changed;\r\n\r\n  FFont.OnChanged := @Changed;\r\n  FTitleFont.OnChanged := @Changed;\r\n  FTopFont.OnChanged := @Changed;\r\n  FBottomFont.OnChanged := @Changed;\r\n\r\n  UpdateColumn;\r\nend;\r\n\r\ndestructor TTMSFNCTreeViewColumn.Destroy;\r\nbegin\r\n  FFiltering.Free;\r\n  FEditorItems.Free;\r\n  FTopFill.Free;\r\n  FTopStroke.Free;\r\n  FTopFont.Free;\r\n  FBottomFill.Free;\r\n  FBottomStroke.Free;\r\n  FBottomFont.Free;\r\n  FFill.Free;\r\n  FStroke.Free;\r\n  FFont.Free;\r\n  FTitleFont.Free;\r\n  inherited;\r\n  UpdateColumn;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewColumn.GetColumnText: String;\r\nbegin\r\n  Result := Text;\r\n  if (Result = '') or (Pos('</', Result) > 0) or (Pos('/>', Result) > 0) or (Pos('<BR>', UpperCase(Result)) > 0) then\r\n  begin\r\n    Result := Name;\r\n    if Result = '' then\r\n      Result := TranslateTextEx(sTMSFNCTreeViewColumn) + ' ' + inttostr(Index);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewColumn.GetDisplayName: string;\r\nbegin\r\n  if FName <> '' then\r\n    Result := FName\r\n  {$IFDEF WEBLIB}\r\n  else\r\n    Result := '';\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  else\r\n    Result := inherited;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCTreeViewColumn.GetText: String;\r\nbegin\r\n  Result := Text;\r\n  if Result = '' then\r\n  begin\r\n    Result := Name;\r\n    if Result = '' then\r\n      Result := TranslateTextEx(sTMSFNCTreeViewColumn) + ' ' + inttostr(Index);\r\n  end;\r\nend;\r\n\r\n{$HINTS OFF}\r\nfunction TTMSFNCTreeViewColumn.IsExpandingButtonSizeStored: Boolean;\r\nbegin\r\n  Result := ExpandingButtonSize <> 15;\r\nend;\r\n{$HINTS ON}\r\n\r\nfunction TTMSFNCTreeViewColumn.TreeView: TTMSFNCTreeViewData;\r\nbegin\r\n  Result := FTreeView;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetHorizontalTextAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FHorizontalTextAlign <> Value then\r\n  begin\r\n    FHorizontalTextAlign := Value;\r\n    UpdateColumn;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetHTMLTemplate(const Value: string);\r\nbegin\r\n  if FHTMLTemplate <> Value then\r\n  begin\r\n    FHTMLTemplate := Value;\r\n    if Assigned(FTreeView) then\r\n      FTreeView.UpdateTreeView;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetMinimumWidth(const Value: Double);\r\nbegin\r\n  if FMinimumWidth <> Value then\r\n  begin\r\n    FMinimumWidth := Value;\r\n    UpdateColumn;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetBottomFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  if FBottomFont <> Value then\r\n    FBottomFont.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetBottomStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FBottomStroke <> Value then\r\n    FBottomStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetDisabledFontColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FDisabledFontColor <> Value then\r\n  begin\r\n    FDisabledFontColor := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetDisabledTitleFontColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FDisabledTitleFontColor <> Value then\r\n  begin\r\n    FDisabledTitleFontColor := Value;\r\n    UpdateColumn;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetEditorItems(const Value: TStringList);\r\nbegin\r\n  FEditorItems.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetEditorType(\r\n  const Value: TTMSFNCTreeViewColumnEditorType);\r\nbegin\r\n  if FEditorType <> Value then\r\n    FEditorType := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetExpandable(const Value: Boolean);\r\nbegin\r\n  if FExpandable <> Value then\r\n  begin\r\n    FExpandable := Value;\r\n    UpdateColumn;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetExpanded(const Value: Boolean);\r\nbegin\r\n  if FExpanded <> Value then\r\n  begin\r\n    FExpanded := Value;\r\n    UpdateColumn;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetExpandingButtonSize(const Value: Single);\r\nbegin\r\n  FExpandingButtonSize := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetBottomFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FBottomFill <> Value then\r\n    FBottomFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  if FFont <> Value then\r\n    FFont.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetSelectedFontColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FSelectedFontColor <> Value then\r\n  begin\r\n    FSelectedFontColor := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetSelectedTitleFontColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FSelectedTitleFontColor <> value then\r\n  begin\r\n    FSelectedTitleFontColor := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetSortIndex(const Value: Integer);\r\nbegin\r\n  if FSortIndex <> Value then\r\n  begin\r\n    FSortIndex := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetSorting(const Value: TTMSFNCTreeViewColumnSorting);\r\nbegin\r\n  if FSorting <> Value then\r\n  begin\r\n    FSorting := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetSortKind(\r\n  const Value: TTMSFNCTreeViewNodesSortKind);\r\nbegin\r\n  if FSortKind <> Value then\r\n  begin\r\n    FSortKind := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FStroke <> Value then\r\n    FStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FFill <> Value then\r\n    FFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetFiltering(\r\n  const Value: TTMSFNCTreeViewColumnFiltering);\r\nbegin\r\n  if FFiltering <> Value then\r\n    FFiltering.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetTopFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  if FTopFont <> Value then\r\n    FTopFont.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetTopStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FTopStroke <> Value then\r\n    FTopStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetTopFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FTopFill <> Value then\r\n    FTopFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetName(const Value: String);\r\nbegin\r\n  if FName <> Value then\r\n  begin\r\n    FName := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetText(const Value: String);\r\nbegin\r\n  if FText <> Value then\r\n  begin\r\n    FText := Value;\r\n    UpdateColumn;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetTitleFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  if FTitleFont <> Value then\r\n    FTitleFont.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetTitleHorizontalTextAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FTitleHorizontalTextAlign <> Value then\r\n  begin\r\n    FTitleHorizontalTextAlign := Value;\r\n    UpdateColumn;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetTitleTrimming(\r\n  const Value: TTMSFNCGraphicsTextTrimming);\r\nbegin\r\n  if FTitleTrimming <> Value then\r\n  begin\r\n    FTitleTrimming := Value;\r\n    UpdateColumn;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetTitleVerticalTextAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FTitleVerticalTextAlign <> Value then\r\n  begin\r\n    FTitleVerticalTextAlign := Value;\r\n    UpdateColumn;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetTitleWordWrapping(const Value: Boolean);\r\nbegin\r\n  if FTitleWordWrapping <> Value then\r\n  begin\r\n    FTitleWordWrapping := Value;\r\n    UpdateColumn;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetTrimming(const Value: TTMSFNCGraphicsTextTrimming);\r\nbegin\r\n  if FTrimming <> Value then\r\n  begin\r\n    FTrimming := Value;\r\n    UpdateColumn;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetUseDefaultAppearance(const Value: Boolean);\r\nbegin\r\n  if FUseDefaultAppearance <> Value then\r\n  begin\r\n    FUseDefaultAppearance := Value;\r\n    UpdateColumn;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetVerticalTextAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FVerticalTextAlign <> Value then\r\n  begin\r\n    FVerticalTextAlign := Value;\r\n    UpdateColumn;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetVisible(const Value: Boolean);\r\nbegin\r\n  if FVisible <> Value then\r\n  begin\r\n    FVisible := Value;\r\n    UpdateColumn;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetWidth(const Value: Double);\r\nbegin\r\n  if FWidth <> Value then\r\n  begin\r\n    FWidth := Value;\r\n    UpdateColumn;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.SetWordWrapping(const Value: Boolean);\r\nbegin\r\n  if FWordWrapping <> Value then\r\n  begin\r\n    FWordWrapping := Value;\r\n    UpdateColumn;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.Sort(ARecurse, ACaseSensitive: Boolean; ASortingMode: TTMSFNCTreeViewNodesSortMode);\r\nvar\r\n  t: TTMSFNCTreeViewData;\r\nbegin\r\n  t := TreeView;\r\n  if Assigned(t) then\r\n    t.Nodes.Sort(Index, ARecurse, ACaseSensitive, ASortingMode);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.UpdateColumn;\r\nvar\r\n  t: TTMSFNCTreeViewData;\r\nbegin\r\n  t := TreeView;\r\n  if Assigned(t) then\r\n  begin\r\n    t.UpdateColumns;\r\n    t.UpdateTreeViewCache;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumn.UpdateWidth(AWidth: Double);\r\nbegin\r\n  FWidth := AWidth;\r\nend;\r\n\r\n{ TTMSFNCTreeViewColumns }\r\n\r\nfunction TTMSFNCTreeViewColumns.Add: TTMSFNCTreeViewColumn;\r\nbegin\r\n  Result := TTMSFNCTreeViewColumn(inherited Add);\r\nend;\r\n\r\nconstructor TTMSFNCTreeViewColumns.Create(ATreeView: TTMSFNCTreeViewData);\r\nbegin\r\n  inherited Create(ATreeView, GetItemClass);\r\n  FTreeView := ATreeView;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewColumns.GetItem(Index: Integer): TTMSFNCTreeViewColumn;\r\nbegin\r\n  Result := TTMSFNCTreeViewColumn(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewColumns.GetItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCTreeViewColumn;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewColumns.Insert(Index: Integer): TTMSFNCTreeViewColumn;\r\nbegin\r\n  Result := TTMSFNCTreeViewColumn(inherited Insert(Index));\r\nend;\r\n\r\nfunction TTMSFNCTreeViewColumns.TreeView: TTMSFNCTreeViewData;\r\nbegin\r\n  Result := FTreeView;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumns.SetItem(Index: Integer;\r\n  const Value: TTMSFNCTreeViewColumn);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCTreeViewNodeValue }\r\n\r\nfunction TTMSFNCTreeViewNodeValue.GetBitmapContainer: TTMSFNCBitmapContainer;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.BitmapContainer;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNodeValue.GetText: string;\r\nvar\r\n  ht: string;\r\n  s: string;\r\nbegin\r\n  s := Text;\r\n  if Assigned(FTreeView) then\r\n  begin\r\n    ht := FTreeView.GetHTMLTemplate(Index);\r\n    FTreeView.DoGetHTMLTemplate(Self, Index, ht);\r\n    if ht <> '' then\r\n      s := FTreeView.HTMLReplace(ht, Self);\r\n  end;\r\n\r\n  Result := s;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodeValue.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCTreeViewNodeValue then\r\n  begin\r\n    FTag := (Source as TTMSFNCTreeViewNodeValue).Tag;\r\n    FText := (Source as TTMSFNCTreeViewNodeValue).Text;\r\n    FTitleExpanded := (Source as TTMSFNCTreeViewNodeValue).TitleExpanded;\r\n    FTitle := (Source as TTMSFNCTreeViewNodeValue).Title;\r\n    FCheckType := (Source as TTMSFNCTreeViewNodeValue).CheckType;\r\n    FChecked := (Source as TTMSFNCTreeViewNodeValue).Checked;\r\n    FCollapsedIcon.Assign((Source as TTMSFNCTreeViewNodeValue).CollapsedIcon);\r\n    FCollapsedIconLarge.Assign((Source as TTMSFNCTreeViewNodeValue).CollapsedIconLarge);\r\n    FExpandedIcon.Assign((Source as TTMSFNCTreeViewNodeValue).ExpandedIcon);\r\n    FExpandedIconLarge.Assign((Source as TTMSFNCTreeViewNodeValue).ExpandedIconLarge);\r\n    FCollapsedIconName := (Source as TTMSFNCTreeViewNodeValue).CollapsedIconName;\r\n    FCollapsedIconLargeName := (Source as TTMSFNCTreeViewNodeValue).CollapsedIconLargeName;\r\n    FExpandedIconName := (Source as TTMSFNCTreeViewNodeValue).ExpandedIconName;\r\n    FExpandedIconLargeName := (Source as TTMSFNCTreeViewNodeValue).ExpandedIconLargeName;\r\n    FHTMLTemplateItems.Assign((Source as TTMSFNCTreeViewNodeValue).HTMLTemplateItems);\r\n    AssignData(Source);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodeValue.AssignData(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCTreeViewNodeValue then\r\n  begin\r\n    FDataString := (Source as TTMSFNCTreeViewNodeValue).DataString;\r\n    FDataPointer := (Source as TTMSFNCTreeViewNodeValue).DataPointer;\r\n    FDataBoolean := (Source as TTMSFNCTreeViewNodeValue).DataBoolean;\r\n    FDataObject := (Source as TTMSFNCTreeViewNodeValue).DataObject;\r\n    FDataInteger := (Source as TTMSFNCTreeViewNodeValue).DataInteger;\r\n    FDBKey := (Source as TTMSFNCTreeViewNodeValue).DBKey;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodeValue.BitmapChanged(Sender: TObject);\r\nbegin\r\n  UpdateNodeValue;\r\nend;\r\n\r\nconstructor TTMSFNCTreeViewNodeValue.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(Collection) then\r\n  begin\r\n    FTreeView := (Collection as TTMSFNCTreeViewNodeValues).TreeView;\r\n    FNode := (Collection as TTMSFNCTreeViewNodeValues).Node;\r\n  end;\r\n  FChecked := False;\r\n  FTitleExpanded := True;\r\n  FCheckType := tvntNone;\r\n  FCollapsedIcon := TTMSFNCBitmap.Create;\r\n  FCollapsedIcon.OnChange := @BitmapChanged;\r\n  FExpandedIcon := TTMSFNCBitmap.Create;\r\n  FExpandedIcon.OnChange := @BitmapChanged;\r\n\r\n  FCollapsedIconLarge := TTMSFNCBitmap.Create;\r\n  FCollapsedIconLarge.OnChange := @BitmapChanged;\r\n  FExpandedIconLarge := TTMSFNCBitmap.Create;\r\n  FExpandedIconLarge.OnChange := @BitmapChanged;\r\n\r\n  FHTMLTemplateItems := TStringList.Create;\r\n  FHTMLTemplateItems.OnChange := @TemplateItemsChanged;\r\n\r\n  UpdateNodeValue;\r\nend;\r\n\r\ndestructor TTMSFNCTreeViewNodeValue.Destroy;\r\nbegin\r\n  FHTMLTemplateItems.Free;\r\n  FCollapsedIcon.Free;\r\n  FCollapsedIconLarge.Free;\r\n  FExpandedIcon.Free;\r\n  FExpandedIconLarge.Free;\r\n  inherited;\r\n  UpdateNodeValue;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNodeValue.Node: TTMSFNCTreeViewNode;\r\nbegin\r\n  Result := FNode;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodeValue.TemplateItemsChanged(Sender: TObject);\r\nbegin\r\n  UpdateNodeValue;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNodeValue.TreeView: TTMSFNCTreeViewData;\r\nbegin\r\n  Result := FTreeView;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodeValue.SetChecked(const Value: Boolean);\r\nvar\r\n  chkst: TTMSFNCArrayBoolean;\r\n  I: Integer;\r\n  chk: Boolean;\r\n  t: TTMSFNCTreeViewData;\r\n  n: TTMSFNCTreeViewNode;\r\nbegin\r\n  if FChecked <> Value then\r\n  begin\r\n    FChecked := Value;\r\n    t := TreeView;\r\n    n := Node;\r\n    if Assigned(t) and Assigned(n) and Assigned(n.VirtualNode) then\r\n    begin\r\n      SetLength(chkst, 0);\r\n      for I := 0 to t.ColumnCount - 1 do\r\n      begin\r\n        chk := False;\r\n        TreeView.DoIsNodeChecked(Node.VirtualNode, I, chk);\r\n        SetLength(chkst, Length(chkst) + 1);\r\n        chkst[Length(chkst) - 1] := chk;\r\n      end;\r\n\r\n      TreeView.UpdateNodeCheckStates(Self.Node.VirtualNode, chkst);\r\n    end;\r\n\r\n    UpdateNodeValue;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodeValue.SetCheckType(\r\n  const Value: TTMSFNCTreeViewNodeCheckType);\r\nbegin\r\n  if FCheckType <> Value then\r\n  begin\r\n    FCheckType := Value;\r\n    UpdateNodeValue;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodeValue.SetCollapsedIconName(const Value: String);\r\nbegin\r\n  if FCollapsedIconName <> Value then\r\n  begin\r\n    FCollapsedIconName := Value;\r\n    UpdateNodeValue;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodeValue.SetCollapsedIconLargeName(const Value: String);\r\nbegin\r\n  if FCollapsedIconLargeName <> Value then\r\n  begin\r\n    FCollapsedIconLargeName := Value;\r\n    UpdateNodeValue;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodeValue.SetExpandedIconName(const Value: String);\r\nbegin\r\n  if FExpandedIconName <> Value then\r\n  begin\r\n    FExpandedIconName := Value;\r\n    UpdateNodeValue;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodeValue.SetHTMLTemplateItems(const Value: TStringList);\r\nbegin\r\n  if FHTMLTemplateItems <> Value then\r\n  begin\r\n    FHTMLTemplateItems.Assign(Value);\r\n    UpdateNodeValue;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodeValue.SetExpandedIconLargeName(const Value: String);\r\nbegin\r\n  if FExpandedIconLargeName <> Value then\r\n  begin\r\n    FExpandedIconLargeName := Value;\r\n    UpdateNodeValue;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodeValue.SetTitleExpanded(const Value: Boolean);\r\nbegin\r\n  if FTitleExpanded <> Value then\r\n  begin\r\n    FTitleExpanded := Value;\r\n    UpdateNodeValue;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodeValue.SetCollapsedIcon(const Value: TTMSFNCBitmap);\r\nbegin\r\n  if FCollapsedIcon <> Value then\r\n  begin\r\n    FCollapsedIcon.Assign(Value);\r\n    UpdateNodeValue;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodeValue.SetCollapsedIconLarge(const Value: TTMSFNCBitmap);\r\nbegin\r\n  if FCollapsedIconLarge <> Value then\r\n  begin\r\n    FCollapsedIconLarge.Assign(Value);\r\n    UpdateNodeValue;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodeValue.SetExpandedIcon(const Value: TTMSFNCBitmap);\r\nbegin\r\n  if FExpandedIcon <> Value then\r\n  begin\r\n    FExpandedIcon.Assign(Value);\r\n    UpdateNodeValue;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodeValue.SetExpandedIconLarge(const Value: TTMSFNCBitmap);\r\nbegin\r\n  if FExpandedIconLarge <> Value then\r\n  begin\r\n    FExpandedIconLarge.Assign(Value);\r\n    UpdateNodeValue;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodeValue.SetText(const Value: String);\r\nbegin\r\n  if FText <> Value then\r\n  begin\r\n    FText := Value;\r\n    UpdateNodeValue;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodeValue.SetTitle(const Value: String);\r\nbegin\r\n  if FTitle <> Value then\r\n  begin\r\n    FTitle := Value;\r\n    UpdateNodeValue;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodeValue.UpdateNodeValue;\r\nvar\r\n  c: TTMSFNCTreeViewData;\r\n  n: TTMSFNCTreeViewNode;\r\nbegin\r\n  c := TreeView;\r\n  n := Node;\r\n  if Assigned(c) and Assigned(n) then\r\n    c.UpdateNode(n.VirtualNode);\r\nend;\r\n\r\n{ TTMSFNCTreeViewNodeValues }\r\n\r\nfunction TTMSFNCTreeViewNodeValues.Add: TTMSFNCTreeViewNodeValue;\r\nbegin\r\n  Result := TTMSFNCTreeViewNodeValue(inherited Add);\r\nend;\r\n\r\nconstructor TTMSFNCTreeViewNodeValues.Create(ATreeView: TTMSFNCTreeViewData; ANode: TTMSFNCTreeViewNode);\r\nbegin\r\n  inherited Create(ATreeView, GetItemClass);\r\n  FTreeView := ATreeView;\r\n  FNode := ANode;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNodeValues.GetItem(Index: Integer): TTMSFNCTreeViewNodeValue;\r\nbegin\r\n  Result := TTMSFNCTreeViewNodeValue(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNodeValues.GetItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCTreeViewNodeValue;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNodeValues.Insert(Index: Integer): TTMSFNCTreeViewNodeValue;\r\nbegin\r\n  Result := TTMSFNCTreeViewNodeValue(inherited Insert(Index));\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNodeValues.Node: TTMSFNCTreeViewNode;\r\nbegin\r\n  Result := FNode;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNodeValues.TreeView: TTMSFNCTreeViewData;\r\nbegin\r\n  Result := FTreeView;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodeValues.UpdateChecked(AIndex: Integer;\r\n  AValue: Boolean);\r\nbegin\r\n  if Assigned(FTreeView) then\r\n    FTreeView.UpdateCount := FTreeView.UpdateCount + 1;\r\n  Items[AIndex].Checked := AValue;\r\n  if Assigned(FTreeView) then\r\n    FTreeView.UpdateCount := FTreeView.UpdateCount - 1;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodeValues.SetItem(Index: Integer;\r\n  const Value: TTMSFNCTreeViewNodeValue);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCTreeViewCacheItem }\r\n\r\nclass function TTMSFNCTreeViewCacheItem.CreateGroupBottom(ARect: TRectF; AGroup: Integer; AStartColumn, AEndColumn: Integer): TTMSFNCTreeViewCacheItem;\r\nbegin\r\n  Result := TTMSFNCTreeViewCacheItem.Create;\r\n  Result.Kind := ikGroupBottom;\r\n  Result.Group := AGroup;\r\n  Result.StartColumn := AStartColumn;\r\n  Result.EndColumn := AEndColumn;\r\n  Result.Rect := ARect;\r\nend;\r\n\r\nclass function TTMSFNCTreeViewCacheItem.CreateGroupTop(\r\n  ARect: TRectF; AGroup: Integer; AStartColumn, AEndColumn: Integer): TTMSFNCTreeViewCacheItem;\r\nbegin\r\n  Result := TTMSFNCTreeViewCacheItem.Create;\r\n  Result.Kind := ikGroupTop;\r\n  Result.Group := AGroup;\r\n  Result.StartColumn := AStartColumn;\r\n  Result.EndColumn := AEndColumn;\r\n  Result.Rect := ARect;\r\nend;\r\n\r\nclass function TTMSFNCTreeViewCacheItem.CreateNode(ARect: TRectF; ANode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewCacheItem;\r\nbegin\r\n  Result := TTMSFNCTreeViewCacheItem.Create;\r\n  Result.Kind := ikNode;\r\n  Result.Rect := ARect;\r\n  Result.Node := ANode;\r\nend;\r\n\r\nclass function TTMSFNCTreeViewCacheItem.CreateColumnTop(ARect: TRectF; AColumn: Integer): TTMSFNCTreeViewCacheItem;\r\nbegin\r\n  Result := TTMSFNCTreeViewCacheItem.Create;\r\n  Result.Kind := ikColumnTop;\r\n  Result.Column := AColumn;\r\n  Result.Rect := ARect;\r\nend;\r\n\r\nclass function TTMSFNCTreeViewCacheItem.CreateColumnBottom(ARect: TRectF; AColumn: Integer): TTMSFNCTreeViewCacheItem;\r\nbegin\r\n  Result := TTMSFNCTreeViewCacheItem.Create;\r\n  Result.Kind := ikColumnBottom;\r\n  Result.Column := AColumn;\r\n  Result.Rect := ARect;\r\nend;\r\n\r\ndestructor TTMSFNCTreeViewCacheItem.Destroy;\r\nbegin\r\n  FNode := nil;\r\n  inherited;\r\nend;\r\n\r\n{ TTMSFNCTreeViewVirtualNode }\r\n\r\nprocedure TTMSFNCTreeViewVirtualNode.Collapse(ARecurse: Boolean = False);\r\nbegin\r\n  if Assigned(FTreeView) then\r\n    FTreeView.CollapseVirtualNode(Self, ARecurse);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewVirtualNode.CopyFrom(\r\n  Source: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  if Assigned(Source) then\r\n  begin\r\n    FChildren := (Source as TTMSFNCTreeViewVirtualNode).Children;\r\n    FTotalChildren := (Source as TTMSFNCTreeViewVirtualNode).TotalChildren;\r\n    FExpanded := (Source as TTMSFNCTreeViewVirtualNode).Expanded;\r\n    FExtended := (Source as TTMSFNCTreeViewVirtualNode).Extended;\r\n    FLevel := (Source as TTMSFNCTreeViewVirtualNode).Level;\r\n    FRow := (Source as TTMSFNCTreeViewVirtualNode).Row;\r\n    FCalculated := (Source as TTMSFNCTreeViewVirtualNode).Calculated;\r\n    FHeight := (Source as TTMSFNCTreeViewVirtualNode).Height;\r\n    FParentNode := (Source as TTMSFNCTreeViewVirtualNode).ParentNode;\r\n    FIndex := (Source as TTMSFNCTreeViewVirtualNode).Index;\r\n    FTextRects := (Source as TTMSFNCTreeViewVirtualNode).TextRects;\r\n    FExtraRects := (Source as TTMSFNCTreeViewVirtualNode).ExtraRects;\r\n    FBitmapRects := (Source as TTMSFNCTreeViewVirtualNode).BitmapRects;\r\n    FCheckRects := (Source as TTMSFNCTreeViewVirtualNode).CheckRects;\r\n    FExpandRects := (Source as TTMSFNCTreeViewVirtualNode).ExpandRects;\r\n    FCheckStates := (Source as TTMSFNCTreeViewVirtualNode).CheckStates;\r\n    FNode := (Source as TTMSFNCTreeViewVirtualNode).Node;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCTreeViewVirtualNode.Create(ATreeView: TTMSFNCTreeViewData);\r\nbegin\r\n  FTreeView := ATreeView;\r\nend;\r\n\r\ndestructor TTMSFNCTreeViewVirtualNode.Destroy;\r\nbegin\r\n  FCache := nil;\r\n  FNode := nil;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewVirtualNode.Expand(ARecurse: Boolean = False);\r\nbegin\r\n  if Assigned(FTreeView) then\r\n    FTreeView.ExpandVirtualNode(Self, ARecurse);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewVirtualNode.GetChildCount: Integer;\r\nbegin\r\n  Result := 0;\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.GetVirtualNodeChildCount(Self);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewVirtualNode.GetTitleExpanded(AColumn: Integer): Boolean;\r\nbegin\r\n  Result := True;\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.GetVirtualNodeTitleExpanded(Self, AColumn);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewVirtualNode.GetFirstChild: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.GetFirstChildVirtualNode(Self);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewVirtualNode.GetLastChild: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.GetLastChildVirtualNode(Self);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewVirtualNode.GetNext: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.GetNextVirtualNode(Self);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewVirtualNode.GetNextChild(\r\n  ANode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.GetNextChildVirtualNode(Self, ANode);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewVirtualNode.GetNextSibling: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.GetNextSiblingVirtualNode(Self);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewVirtualNode.GetParent: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.GetParentVirtualNode(Self);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewVirtualNode.GetPrevious: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.GetPreviousVirtualNode(Self);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewVirtualNode.GetPreviousChild(\r\n  ANode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.GetPreviousChildVirtualNode(Self, ANode);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewVirtualNode.GetPreviousSibling: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.GetPreviousSiblingVirtualNode(Self);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewVirtualNode.GetText(AColumn: Integer): String;\r\nbegin\r\n  Result := '';\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.GetVirtualNodeText(Self, AColumn);\r\nend;\r\n\r\nfunction TTMSFNCTreeViewVirtualNode.GetTitle(AColumn: Integer): String;\r\nbegin\r\n  Result := '';\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.GetVirtualNodeTitle(Self, AColumn);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewVirtualNode.RemoveChildren;\r\nbegin\r\n  if Assigned(FTreeView) then\r\n    FTreeView.RemoveVirtualNodeChildren(Self);\r\nend;\r\n\r\n{ TTMSFNCTreeViewColumnFiltering }\r\n\r\nprocedure TTMSFNCTreeViewColumnFiltering.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCTreeViewColumnFiltering then\r\n  begin\r\n    FEnabled := (Source as TTMSFNCTreeViewColumnFiltering).Enabled;\r\n    FDropDownWidth := (Source as TTMSFNCTreeViewColumnFiltering).DropDownWidth;\r\n    FDropDownHeight := (Source as TTMSFNCTreeViewColumnFiltering).DropDownHeight;\r\n    FMultiColumn := (Source as TTMSFNCTreeViewColumnFiltering).MultiColumn;\r\n    FButtonSize := (Source as TTMSFNCTreeViewColumnFiltering).ButtonSize;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCTreeViewColumnFiltering.Create(AColumn: TTMSFNCTreeViewColumn);\r\nbegin\r\n  FColumn := AColumn;\r\n  FEnabled := False;\r\n  FDropDownWidth := 100;\r\n  FDropDownHeight := 120;\r\n  FMultiColumn := False;\r\n  FButtonSize := 15;\r\nend;\r\n\r\ndestructor TTMSFNCTreeViewColumnFiltering.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewColumnFiltering.IsButtonSizeStored: Boolean;\r\nbegin\r\n  Result := ButtonSize <> 15;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumnFiltering.SetButtonSize(const Value: Single);\r\nbegin\r\n  if FButtonSize <> Value then\r\n  begin\r\n    FButtonSize := Value;\r\n    if Assigned(FColumn) then\r\n      FColumn.UpdateColumn;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumnFiltering.SetEnabled(const Value: Boolean);\r\nbegin\r\n  if FEnabled <> Value then\r\n  begin\r\n    FEnabled := Value;\r\n    if Assigned(FColumn) then\r\n      FColumn.UpdateColumn;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCTreeViewFilterData }\r\n\r\nprocedure TTMSFNCTreeViewFilterData.Assign(Source: TPersistent);\r\nvar\r\n  ASrcFilterData: TTMSFNCTreeViewFilterData;\r\nbegin\r\n  ASrcFilterData := Source as TTMSFNCTreeViewFilterData;\r\n  if Assigned(ASrcFilterData) then\r\n  begin\r\n    FColumn  := ASrcFilterData.Column;\r\n    FCondition := ASrcFilterData.Condition;\r\n    FCaseSensitive := ASrcFilterData.CaseSensitive;\r\n    FPrefix := ASrcFilterData.Prefix;\r\n    FSuffix := ASrcFilterData.Suffix;\r\n    FOperation := ASrcFilterData.Operation;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCTreeViewFilterData.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  FCaseSensitive := True;\r\nend;\r\n\r\n{ TTMSFNCTreeViewFilter }\r\n\r\nfunction TTMSFNCTreeViewFilter.Add: TTMSFNCTreeViewFilterData;\r\nbegin\r\n  Result := TTMSFNCTreeViewFilterData(inherited Add);\r\n  if Count = 1 then\r\n    Result.Operation := tfoNone\r\n  else\r\n    Result.Operation := tfoAND;\r\nend;\r\n\r\nconstructor TTMSFNCTreeViewFilter.Create(AOwner: TTMSFNCTreeViewData);\r\nbegin\r\n  inherited Create(AOwner, TTMSFNCTreeViewFilterData);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewFilter.GetColFilter(Col: Integer): TTMSFNCTreeViewFilterData;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  for i := 1 to Count do\r\n  begin\r\n    if Items[i - 1].Column = Col then\r\n    begin\r\n      Result := Items[i - 1];\r\n      Exit;\r\n    end;\r\n  end;\r\n  Result := Add;\r\n  Result.Column := Col;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewFilter.GetItem(Index: Integer): TTMSFNCTreeViewFilterData;\r\nbegin\r\n  Result := TTMSFNCTreeViewFilterData(inherited GetItem(Index));\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewFilter.RemoveColumnFilter(Col: integer);\r\nvar\r\n  i: integer;\r\nbegin\r\n  i := Count;\r\n\r\n  while i > 0 do\r\n  begin\r\n    dec(i);\r\n    if Items[i].Column = Col then\r\n      Delete(i);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewFilter.HasFilter(Col: integer): Boolean;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  Result := false;\r\n\r\n  for i := 1 to Count do\r\n  begin\r\n    if Items[i - 1].Column = Col then\r\n    begin\r\n      Result := true;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewFilter.Insert(index: Integer): TTMSFNCTreeViewFilterData;\r\nbegin\r\n  Result := TTMSFNCTreeViewFilterData(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewFilter.SetItem(Index: Integer; const Value: TTMSFNCTreeViewFilterData);\r\nbegin\r\n  inherited SetItem(Index, Value);\r\nend;\r\n\r\n{$IFDEF WEBLIB}\r\nfunction TTMSFNCTreeViewCacheItemList.GetItem(Index: Integer): TTMSFNCTreeViewCacheItem;\r\nbegin\r\n  Result := TTMSFNCTreeViewCacheItem(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewCacheItemList.SetItem(Index: Integer; const Value: TTMSFNCTreeViewCacheItem);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewIntegerList.GetItem(Index: Integer): Integer;\r\nbegin\r\n  Result := Integer(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewIntegerList.SetItem(Index: Integer; const Value: Integer);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNodeStructure.GetItem(Index: Integer): TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := TTMSFNCTreeViewVirtualNode(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodeStructure.SetItem(Index: Integer; const Value: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewVisibleNodes.GetItem(Index: Integer): TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := TTMSFNCTreeViewVirtualNode(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewVisibleNodes.SetItem(Index: Integer; const Value: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewDisplayGroups.GetItem(Index: Integer): TTMSFNCTreeViewDisplayGroup;\r\nbegin\r\n  Result := TTMSFNCTreeViewDisplayGroup(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewDisplayGroups.SetItem(Index: Integer; const Value: TTMSFNCTreeViewDisplayGroup);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n{$ENDIF}\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2016 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : https://www.tmssoftware.com                       }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCPopup;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF CMNLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  {$IFDEF MSWINDOWS}\r\n  Windows,\r\n  {$ENDIF}\r\n  Classes, WEBLib.Controls, WEBLib.TMSFNCCustomComponent, WEBLib.TMSFNCGraphics, WEBLib.Graphics,\r\n  WEBLib.TMSFNCTypes, WEBLib.TMSFNCGraphicsTypes, WEBLib.Forms, WEBLib.ExtCtrls\r\n  {$IFNDEF LCLLIB}\r\n  ,Types\r\n  {$IFNDEF WEBLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  ,UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,Web\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Types\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  ,Messages\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  {$IFNDEF MSWINDOWS}\r\n  ,LMessages\r\n  {$ENDIF}\r\n  ,LCLType, LCLIntf\r\n  {$ENDIF}\r\n  ;\r\n\r\nconst\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 0; // Minor version nr.\r\n  REL_VER = 0; // Release nr.\r\n  BLD_VER = 5; // Build nr.\r\n\r\n  // version history\r\n  // v1.0.0.0 : first release\r\n  // v1.0.0.1 : Fixed: Issue with popup on Android\r\n  // v1.0.0.2 : Fixed: Issue with multi-monitor screen detection\r\n  // v1.0.0.3 : Fixed: Issue with multi-moniutor screen detection on LCL and VCL\r\n  // v1.0.0.4 : Fixed: Issue with BeginScene error invoked when navigating away from the application\r\n  // v1.0.0.5 : Fixed: Issue with retrieving parent in VCL\r\n\r\ntype\r\n  TTMSFNCPopupPlacement = (ppBottom, ppTop, ppLeft, ppRight, ppCenter, ppBottomCenter, ppTopCenter, ppLeftCenter, ppRightCenter, ppAbsolute,\r\n    ppMouse, ppMouseCenter, ppAboveMouse, ppAboveMouseCenter);\r\n\r\n  TTMSFNCPopupPaint = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF) of object;\r\n\r\n  TTMSFNCCustomPopupFormClass = class of TTMSFNCCustomPopupForm;\r\n\r\n  TTMSFNCCustomPopup = class;\r\n\r\n  TCustomPaintedForm = class(TCustomForm)\r\n  {$IFDEF WEBLIB}\r\n  private\r\n    FPaintBox: TPaintBox;\r\n    function GetCanvas: TCanvas;\r\n  protected\r\n    procedure DoPaint(Sender: TObject);\r\n    procedure Paint; override;\r\n  public\r\n    procedure CreateCanvas;\r\n    property Canvas: TCanvas read GetCanvas;\r\n  {$ENDIF}\r\n  end;\r\n\r\n  TTMSFNCCustomPopupForm = class(TCustomPaintedForm)\r\n  private\r\n    FPreferedDisplayIndex: Integer;\r\n    FHintWindow: Boolean;\r\n    FTimer: TTimer;\r\n    FFirstShow: Boolean;\r\n    FOwner: TComponent;\r\n    FShowModal: Boolean;\r\n    FPlacement: TTMSFNCPopupPlacement;\r\n    FRealPlacement: TTMSFNCPopupPlacement;\r\n    FPlacementControl: TControl;\r\n    FOffset: TPointF;\r\n    FSize: TSizeF;\r\n    FPlacementRectangle: TTMSFNCMargins;\r\n    FScreenPlacementRect: TRectF;\r\n    FPlacementChanged: Boolean;\r\n    FDragWithParent: Boolean;\r\n    FOnBeforeClose: TNotifyEvent;\r\n    FOnBeforeShow: TNotifyEvent;\r\n    FScreenContentRect: TRectF;\r\n    FContentPadding: TTMSFNCMargins;\r\n    FContentControl: TControl;\r\n    FOnRealPlacementChanged: TNotifyEvent;\r\n    FOnPopupPaint: TTMSFNCPopupPaint;\r\n    procedure SetOffset(const Value: TPointF);\r\n    procedure SetSize(const Value: TSizeF);\r\n    procedure TimerProc(Sender: TObject);\r\n    procedure SetPlacementRectangle(const Value: TTMSFNCMargins);\r\n    procedure SetPlacement(const Value: TTMSFNCPopupPlacement);\r\n    procedure SetPlacementControl(const Value: TControl);\r\n    procedure SetDragWithParent(const Value: Boolean);\r\n    procedure SetContentPadding(const Value: TTMSFNCMargins);\r\n    procedure SetContentControl(const Value: TControl);\r\n    function GetPopup: TTMSFNCCustomPopup;\r\n  protected\r\n    procedure DoBeforeShow; virtual;\r\n    procedure DoBeforeClose; virtual;\r\n    procedure UpdateBounds(LRect: TRectF); virtual;\r\n    procedure DoClose(var CloseAction: TCloseAction); override;\r\n    procedure DoApplyPlacement; virtual;\r\n    procedure Loaded; override;\r\n    procedure Updated; override;\r\n    procedure HandleFocusedControl;\r\n    function GetPopupParent: TControl;\r\n    procedure Notification(AComponent: TComponent; Operation: TOperation); override;\r\n    procedure DoRealPlacementChanged; virtual;\r\n    property DragWithParent: Boolean read FDragWithParent write SetDragWithParent;\r\n    property Popup: TTMSFNCCustomPopup read GetPopup;\r\n  public\r\n    {$IFDEF CMNWEBLIB}\r\n    constructor CreateNew(AOwner: TComponent; Dummy: Integer  = 0); override;\r\n    {$ENDIF}\r\n    {$IFDEF FMXLIB}\r\n    constructor CreateNew(AOwner: TComponent; Dummy: NativeInt = 0); override;\r\n    {$ENDIF}\r\n    constructor Create(AOwner: TComponent; APlacementControl: TControl = nil); reintroduce;\r\n    destructor Destroy; override;\r\n    procedure ApplyPlacement; virtual;\r\n    procedure KeyDown(var Key: Word; {$IFDEF FMXLIB}var KeyChar: WideChar;{$ENDIF} Shift: TShiftState); override;\r\n    function CloseQuery: Boolean; override;\r\n    property HintWindow: Boolean read FHintWindow write FHintWindow;\r\n    property ContentControl: TControl read FContentControl write SetContentControl;\r\n    property ContentPadding: TTMSFNCMargins read FContentPadding write SetContentPadding;\r\n    property Offset: TPointF read FOffset write SetOffset;\r\n    property Placement: TTMSFNCPopupPlacement read FPlacement write SetPlacement;\r\n    property PlacementRectangle: TTMSFNCMargins read FPlacementRectangle write SetPlacementRectangle;\r\n    property PlacementControl: TControl read FPlacementControl write SetPlacementControl;\r\n    property RealPlacement: TTMSFNCPopupPlacement read FRealPlacement;\r\n    property ScreenContentRect: TRectF read FScreenContentRect;\r\n    property ScreenPlacementRect: TRectF read FScreenPlacementRect;\r\n    property Size: TSizeF read FSize write SetSize;\r\n    property OnBeforeShow: TNotifyEvent read FOnBeforeShow write FOnBeforeShow;\r\n    property OnBeforeClose: TNotifyEvent read FOnBeforeClose write FOnBeforeClose;\r\n    property OnRealPlacementChanged: TNotifyEvent read FOnRealPlacementChanged write FOnRealPlacementChanged;\r\n    property OnPopupPaint: TTMSFNCPopupPaint read FOnPopupPaint write FOnPopupPaint;\r\n  end;\r\n\r\n  TTMSFNCCustomPopup = class(TTMSFNCCustomComponent)\r\n  private\r\n    FCloseTime: DWORD;\r\n    FCheckTime: Boolean;\r\n    FDestroyingPopup: Boolean;\r\n    {$IFDEF FMXLIB}\r\n    FPopup: TPopup;\r\n    {$ENDIF}\r\n    FOwner: TComponent;\r\n    FCustomOwner: TComponent;\r\n    FPlacementControl: TControl;\r\n    FPopupForm: TTMSFNCCustomPopupForm;\r\n    FStaysOpen: Boolean;\r\n    FPlacement: TTMSFNCPopupPlacement;\r\n    FPlacementRectangle: TTMSFNCMargins;\r\n    FHorizontalOffset: Single;\r\n    FVerticalOffset: Single;\r\n    FDragWithParent: Boolean;\r\n    FModalResult: TModalResult;\r\n    FModal: Boolean;\r\n    FOnClosePopup: TNotifyEvent;\r\n    FOnPopup: TNotifyEvent;\r\n    FPopupFormSize: TSizeF;\r\n    FContentControl: TControl;\r\n    FDropDownHeight: Single;\r\n    FDropDownWidth: Single;\r\n    FFocusable: Boolean;\r\n    FFocusedControl: TControl;\r\n    FOnPopupPaint: TTMSFNCPopupPaint;\r\n    FOnPopupShown: TNotifyEvent;\r\n    FIsOpen: Boolean;\r\n    FFillColor: TTMSFNCGraphicsColor;\r\n    FStrokeColor: TTMSFNCGraphicsColor;\r\n    procedure SetIsOpen(const Value: Boolean);\r\n    procedure SetPlacementRectangle(const Value: TTMSFNCMargins);\r\n    procedure SetModalResult(const Value: TModalResult);\r\n    procedure SetPlacementControl(const Value: TControl);\r\n    procedure SetPlacement(const Value: TTMSFNCPopupPlacement);\r\n    procedure SetDragWithParent(const Value: Boolean);\r\n    procedure BeforeShowProc(Sender: TObject);\r\n    procedure BeforeCloseProc(Sender: TObject);\r\n    procedure CloseProc(Sender: TObject; var {%H-}CloseAction: TCloseAction);\r\n    procedure ShowProc(Sender: TObject);\r\n    procedure DeactivateProc(Sender: TObject);\r\n    procedure SetPopupFormSize(const Value: TSizeF);\r\n    procedure UpdatePopupSize;\r\n    procedure SetContentControl(const Value: TControl);\r\n    procedure SetDropDownHeight(const Value: Single);\r\n    procedure SetDropDownWidth(const Value: Single);\r\n  protected\r\n    function GetInstance: NativeUInt; override;\r\n    function GetDocURL: string; override;\r\n    function GetVersion: String; override;\r\n    {$IFDEF FNCLIB}\r\n    procedure SetAdaptToStyle(const Value: Boolean); override;\r\n    {$ENDIF}\r\n    procedure ShowPopup(AModal: Boolean); virtual;\r\n    procedure HandleFocusedControl;\r\n    {$IFDEF FMXLIB}\r\n    procedure FormPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    procedure FormPaint(Sender: TObject);\r\n    {$ENDIF}\r\n    procedure DoPopupPaint(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF); virtual;\r\n    procedure Notification(AComponent: TComponent; Operation: TOperation); override;\r\n    procedure MarginsChanged(Sender: TObject);\r\n    procedure DoClosePopup; virtual;\r\n    procedure DoPopup; virtual;\r\n    procedure DoPopupShown; virtual;\r\n    procedure ClosePopup; virtual;\r\n    procedure DoCreatePopup(const AShowModal: Boolean = False); virtual;\r\n    procedure DestroyPopupForm; virtual;\r\n    function GetPopupFormClass: TTMSFNCCustomPopupFormClass; virtual;\r\n    function GetParent: TControl;\r\n    function CreatePopupForm: TTMSFNCCustomPopupForm; virtual;\r\n    property IsOpen: Boolean read FIsOpen write SetIsOpen;\r\n    property ModalResult: TModalResult read FModalResult write SetModalResult;\r\n    property PopupFormSize: TSizeF read FPopupFormSize write SetPopupFormSize;\r\n    property DragWithParent: Boolean read FDragWithParent write SetDragWithParent default False;\r\n    property PopupForm: TTMSFNCCustomPopupForm read FPopupForm;\r\n    property StaysOpen: Boolean read FStaysOpen write FStaysOpen default False;\r\n    property DropDownHeight: Single read FDropDownHeight write SetDropDownHeight;\r\n    property DropDownWidth: Single read FDropDownWidth write SetDropDownWidth;\r\n    property HorizontalOffset: Single read FHorizontalOffset write FHorizontalOffset;\r\n    property Placement: TTMSFNCPopupPlacement read FPlacement write SetPlacement default ppBottom;\r\n    property PlacementRectangle: TTMSFNCMargins read FPlacementRectangle write SetPlacementRectangle;\r\n    property PlacementControl: TControl read FPlacementControl write SetPlacementControl;\r\n    property VerticalOffset: Single read FVerticalOffset write FVerticalOffset;\r\n    property FocusedControl: TControl read FFocusedControl write FFocusedControl;\r\n    property ContentControl: TControl read FContentControl write SetContentControl;\r\n    property OnClosePopup: TNotifyEvent read FOnClosePopup write FOnClosePopup;\r\n    property OnPopupPaint: TTMSFNCPopupPaint read FOnPopupPaint write FOnPopupPaint;\r\n    property OnPopup: TNotifyEvent read FOnPopup write FOnPopup;\r\n    property CustomOwner: TComponent read FCustomOwner write FCustomOwner;\r\n    property OnPopupShown: TNotifyEvent read FOnPopupShown write FOnPopupShown;\r\n    property Version: String read GetVersion;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n    function HasPopupForm: Boolean;\r\n    function PointInPopup(APoint: TPointF): Boolean; virtual;\r\n    property FillColor: TTMSFNCGraphicsColor read FFillColor write FFillColor default gcNull;\r\n    property StrokeColor: TTMSFNCGraphicsColor read FStrokeColor write FStrokeColor default gcNull;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCPopup = class(TTMSFNCCustomPopup)\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n  public\r\n    function PopupModal: TModalResult; virtual;\r\n    procedure Popup(const AShowModal: Boolean = False); virtual;\r\n    property AdaptToStyle;\r\n    property ModalResult;\r\n    property IsOpen;\r\n    property PopupFormSize;\r\n    property DragWithParent;\r\n    property PopupForm;\r\n  published\r\n    property StaysOpen;\r\n    property DropDownHeight;\r\n    property DropDownWidth;\r\n    property HorizontalOffset;\r\n    property Placement;\r\n    property PlacementRectangle;\r\n    property PlacementControl;\r\n    property VerticalOffset;\r\n    property FocusedControl;\r\n    property ContentControl;\r\n    property OnClosePopup;\r\n    property OnPopupPaint;\r\n    property OnPopup;\r\n    property OnPopupShown;\r\n    property Version;\r\n  end;\r\n\r\n{$IFDEF CMNLIB}\r\n{$IFDEF MSWINDOWS}\r\ntype\r\n  LInteger = LONG_PTR;\r\n  IntPtr = Pointer;\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\ntype\r\n  TTMSFNCCustomNonFocusablePopupForm = class(TTMSFNCCustomPopupForm)\r\n  private\r\n    {$IFDEF CMNLIB}\r\n    {$IFDEF MSWINDOWS}\r\n    procedure WMActivate(var Message: TWMActivate); message WM_ACTIVATE;\r\n    procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;\r\n    {$ELSE}\r\n    procedure WMActivate(var Message: TLMActivate); message LM_ACTIVATE;\r\n    procedure WMNCHitTest(var Message: TLMessage); message LM_NCHITTEST;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n  protected\r\n    procedure UpdateBounds(LRect: TRectF); override;\r\n    {$IFDEF CMNLIB}\r\n    {$IFDEF MSWINDOWS}\r\n    procedure CreateParams(var Params: TCreateParams); override;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n  public\r\n    {$IFDEF CMNLIB}\r\n    {$IFDEF MSWINDOWS}\r\n    constructor CreateNew(AOwner: TComponent; Dummy: Integer  = 0); override;\r\n    destructor Destroy; override;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n  end;\r\n\r\n  TTMSFNCCustomNonFocusablePopup = class(TTMSFNCCustomPopup)\r\n  private\r\n    {$IFDEF CMNLIB}\r\n    FActiveWindow: HWND;\r\n    {$ENDIF}\r\n  protected\r\n    procedure ActivatePreviousWindow; virtual;\r\n    procedure ShowPopup({%H-}AModal: Boolean); override;\r\n    function GetPopupFormClass: TTMSFNCCustomPopupFormClass; override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\n  TTMSFNCNonFocusablePopup = class(TTMSFNCCustomNonFocusablePopup)\r\n  public\r\n    procedure Deactivate; virtual;\r\n    procedure Activate; virtual;\r\n  published\r\n    property ContentControl;\r\n    property Placement;\r\n    property PlacementRectangle;\r\n    property PlacementControl;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  SysUtils, WEBLib.TMSFNCUtils, Math\r\n  {$IFDEF FNCLIB}\r\n  , WEBLib.TMSFNCStyles\r\n  {$ENDIF}  \r\n  {$IFDEF FMXLIB}\r\n  , FMX.Platform\r\n  {$ENDIF}\r\n  ;\r\n\r\n{$R TMSFNCPopup.res}\r\n\r\n{$IFDEF CMNLIB}\r\n{$IFDEF MSWINDOWS}\r\ntype\r\n  WndProcRec = record\r\n    FWindowHandle: HWND;\r\n    FProc: LInteger;\r\n  end;\r\n\r\nvar\r\n  PrevWndProcs: array of WndProcRec;\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\nfunction GetTickCountX: DWORD;\r\nvar\r\n  h, m, s, ms: Word;\r\nbegin\r\n  DecodeTime(Now, h, m, s, ms);\r\n  Result := ms + s * 1000 + m * 60 * 1000 + h * 60 * 60 * 1000;\r\nend;\r\n\r\n{ TTMSFNCPopup }\r\n\r\nconstructor TTMSFNCCustomPopup.Create(AOwner: TComponent);\r\nbegin\r\n  inherited Create(AOwner);\r\n  FOwner := AOwner;\r\n  FPlacement := ppBottom;\r\n  FFocusable := True;\r\n  FStaysOpen := False;\r\n  FPlacementRectangle := TTMSFNCMargins.Create;\r\n  FPlacementRectangle.OnChange := @MarginsChanged;\r\n  FFillColor := gcNull;\r\n  FStrokeColor := gcNull;\r\nend;\r\n\r\ndestructor TTMSFNCCustomPopup.Destroy;\r\nbegin\r\n  FContentControl := nil;\r\n  ClosePopup;\r\n  if HasPopupForm then\r\n  begin\r\n    FreeAndNil(FPopupForm);\r\n  end;\r\n  FreeAndNil(FPlacementRectangle);\r\n  {$IFDEF FMXLIB}\r\n  FreeAndNil(FPopup);\r\n  {$ENDIF}\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.DestroyPopupForm;\r\nbegin\r\n  if Assigned(FPopupForm) then\r\n    FPopupForm.Free;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.DeactivateProc(Sender: TObject);\r\n{$IFNDEF LCLWEBLIB}\r\nvar\r\n  I: Integer;\r\n  o: TComponent;\r\n  f: TCustomForm;\r\n{$ENDIF}\r\nbegin\r\n  if csDestroying in ComponentState then\r\n    Exit;\r\n\r\n  if Assigned(FPopupForm) and not FPopupForm.FShowModal and not StaysOpen then\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    for I := 0 to Screen.FormCount - 1 do\r\n    begin\r\n      if (Screen.Forms[I] is TTMSFNCCustomPopupForm) then\r\n      begin\r\n        o := (Screen.Forms[I] as TTMSFNCCustomPopupForm).Popup.Owner;\r\n        if Assigned(o) and (o is TControl) then\r\n        begin\r\n          f := TTMSFNCUtils.GetParentForm((o as TControl).Parent);\r\n\r\n          if f = FPopupForm then\r\n            Exit;\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    {$ENDIF}\r\n    {$IFDEF VCLLIB}\r\n    for I := 0 to Screen.CustomFormCount - 1 do\r\n    begin\r\n      if (Screen.CustomForms[I] is TTMSFNCCustomPopupForm) then\r\n      begin\r\n        o := (Screen.CustomForms[I] as TTMSFNCCustomPopupForm).Popup.Owner;\r\n        f := nil;\r\n        if Assigned(o) and (o is TControl) then\r\n        begin\r\n          if o.HasParent then\r\n            f := TTMSFNCUtils.GetParentForm((o as TControl).Parent)\r\n          else if (o is TCustomForm) then\r\n            f := TCustomForm(o);\r\n\r\n          if f = FPopupForm then\r\n            Exit;\r\n        end;\r\n      end;\r\n    end;\r\n    {$ENDIF}\r\n\r\n    FPopupForm.Visible := False;\r\n    FPopupForm.Close;\r\n    FCloseTime := GetTickCountX;\r\n    FCheckTime := True;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.HandleFocusedControl;\r\nvar\r\n  frm: TCustomForm;\r\nbegin\r\n  if Assigned(FPopupForm) and Assigned(FocusedControl) then\r\n  begin\r\n    if not FPopupForm.FShowModal then\r\n    begin\r\n      frm := TTMSFNCUtils.GetParentForm(FocusedControl);\r\n      if Assigned(frm) and (frm <> FPopupForm) then\r\n      begin\r\n        {$IFDEF FMXLIB}\r\n        frm.Activate;\r\n        {$ENDIF}\r\n        {$IFDEF CMNWEBLIB}\r\n        frm.SetFocus;\r\n        {$ENDIF}\r\n      end;\r\n    end;\r\n\r\n    {$IFDEF FMXLIB}\r\n    if FocusedControl.CanFocus then\r\n      FocusedControl.SetFocus;\r\n    {$ENDIF}\r\n    {$IFDEF CMNLIB}\r\n    if FocusedControl is TWinControl then\r\n    begin\r\n      if (FocusedControl as TWinControl).CanFocus then\r\n        (FocusedControl as TWinControl).SetFocus;\r\n    end;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    if FocusedControl is TControl then\r\n    begin\r\n      if (FocusedControl as TControl).CanFocus then\r\n        (FocusedControl as TControl).SetFocus;\r\n    end;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomPopup.HasPopupForm: Boolean;\r\nbegin\r\n  Result := FPopupForm <> nil;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.MarginsChanged(Sender: TObject);\r\nbegin\r\n  if (FPopupForm <> nil) then\r\n    FPopupForm.PlacementRectangle := PlacementRectangle;\r\nend;\r\n\r\nfunction TTMSFNCCustomPopup.CreatePopupForm: TTMSFNCCustomPopupForm;\r\nvar\r\n  NewForm: TTMSFNCCustomPopupForm;\r\n  cls: TTMSFNCCustomPopupFormClass;\r\nbegin\r\n  NewForm := nil;\r\n  try\r\n    cls := GetPopupFormClass;\r\n    {$IFDEF FMXLIB}\r\n    FPopup := TPopup.Create(Self);\r\n    NewForm := cls.Create(FPopup, PlacementControl);\r\n    {$ELSE}\r\n    NewForm := cls.Create(Self, PlacementControl);\r\n    {$ENDIF}\r\n  except\r\n    FreeAndNil(NewForm);\r\n    Raise;\r\n  end;\r\n  Result := NewForm;\r\nend;\r\n\r\nprocedure TTMSFNCPopup.Popup(const AShowModal: Boolean = False);\r\nbegin\r\n  DoCreatePopup(AShowModal);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.SetModalResult(const Value: TModalResult);\r\nbegin\r\n  FModalResult := Value;\r\n  if Assigned(FPopupForm) then\r\n    FPopupForm.ModalResult := FModalResult;\r\nend;\r\n\r\nfunction TTMSFNCPopup.PopupModal: TModalResult;\r\nvar\r\n  LStaysOpen : Boolean;\r\nbegin\r\n  Result := 0;\r\n  if FIsOpen then\r\n    Exit;\r\n\r\n  if HasPopupForm then\r\n    FPopupForm.Close;\r\n\r\n  LStaysOpen := FStaysOpen;\r\n  try\r\n    FStaysOpen := True;\r\n    Popup(True);\r\n    Result := FModalResult;\r\n    IsOpen := False;\r\n  finally\r\n    FStaysOpen := LStaysOpen;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCPopup.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClass(TTMSFNCPopup);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.ClosePopup;\r\nvar\r\n  p: TControl;\r\nbegin\r\n  if not HasPopupForm or FDestroyingPopup then\r\n    Exit;\r\n\r\n  FDestroyingPopup := True;\r\n  if FModal and (FModalResult = 0) then\r\n  begin\r\n    ModalResult := mrCancel;\r\n    Exit;\r\n  end;\r\n\r\n  FIsOpen := False;\r\n  if Assigned(FContentControl) then\r\n  begin\r\n    p := GetParent;\r\n    FContentControl.Visible := False;\r\n    {$IFDEF FMXLIB}\r\n    FContentControl.Parent := p;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    if Assigned(p) and (p is TWinControl) then\r\n      FContentControl.Parent := p as TWinControl\r\n    else\r\n      FContentControl.Parent := TTMSFNCUtils.GetParentForm(Self)\r\n    {$ENDIF}\r\n  end;\r\n\r\n  if not (csDestroying in ComponentState) then\r\n  begin\r\n    if HasPopupForm then\r\n    begin\r\n      {$IFDEF FMXMOBILE}\r\n      FPopupForm.Visible := False;\r\n      {$ENDIF}\r\n      if Self is TTMSFNCNonFocusablePopup then\r\n        FPopupForm.Free;\r\n      DoClosePopup;\r\n      FPopupForm := nil;\r\n    end;\r\n  end;\r\n  FDestroyingPopup := False;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.DoClosePopup;\r\nbegin\r\n  if Assigned(FOnClosePopup) then\r\n    FOnClosePopup(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.DoCreatePopup(const AShowModal: Boolean = False);\r\n{$IFDEF FNCLIB}\r\nvar\r\n  ia: ITMSFNCAdaptToStyle;\r\n{$ENDIF}\r\n{$IFNDEF FNCLIB}\r\n{$IFDEF VCLLIB}\r\nvar\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\n{$IFDEF VCLLIB}\r\n  LPPI: Integer;\r\n\r\n  function GetPPIForActiveForm: Integer;\r\n  begin\r\n    Result := Screen.PixelsPerInch;\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION >= 36}\r\n    if (Screen.ActiveForm <> nil) and not (csDesigning in Screen.ActiveForm.ComponentState) then\r\n      Result := Screen.ActiveForm.CurrentPPI\r\n    else\r\n      if Application.MainForm <> nil then\r\n        Result := Application.MainForm.CurrentPPI;\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n  end;\r\n{$ENDIF}\r\n\r\nbegin\r\n  if ((GetTickCountX - FCloseTime) < 200) and FCheckTime then\r\n  begin\r\n    FCheckTime := False;\r\n    Exit;\r\n  end;\r\n\r\n  if FIsOpen then\r\n    Exit;\r\n\r\n  if HasPopupForm then\r\n    FPopupForm.Close;\r\n\r\n  FPopupForm := CreatePopupForm;\r\n  try\r\n    try\r\n      {$IFDEF FMXLIB}\r\n      {$IFDEF FMXMOBILE}\r\n      if AShowModal then\r\n        FPopupForm.FormStyle := TFormStyle.Normal;\r\n      {$ENDIF}\r\n      {$IFNDEF FMXMOBILE}\r\n      {$IFDEF LINUX}\r\n      FPopupForm.FormStyle := TFormStyle.Popup;\r\n      {$ELSE}\r\n      FPopupForm.FormStyle := TFormStyle.Normal;\r\n      {$ENDIF}\r\n      {$ENDIF}\r\n      if Assigned(CustomOwner) and (CustomOwner is TFmxObject) then\r\n        FPopupForm.Parent := (CustomOwner as TFmxObject)\r\n      else if Assigned(Owner) and (Owner is TFmxObject) then\r\n        FPopupForm.Parent := TFmxObject(Owner);\r\n      {$ENDIF}\r\n\r\n      {$IFDEF CMNWEBLIB}\r\n      FPopupForm.FormStyle := fsStayOnTop;\r\n      {$ENDIF}\r\n\r\n      FPopupForm.OnPaint := FormPaint;\r\n      FPopupForm.OnPopupPaint := DoPopupPaint;\r\n\r\n      TComponent(FPopupForm).FreeNotification(Self);\r\n      FPopupForm.Placement := Placement;\r\n      FPopupForm.Offset := PointF(Self.HorizontalOffset, Self.VerticalOffset);\r\n      FPopupForm.PlacementRectangle := Self.PlacementRectangle;\r\n      FPopupForm.DragWithParent := DragWithParent;\r\n      UpdatePopupSize;\r\n      FPopupForm.OnDeactivate := DeactivateProc;\r\n      FPopupForm.OnBeforeShow := BeforeShowProc;\r\n      FPopupForm.OnBeforeClose := BeforeCloseProc;\r\n      FPopupForm.OnClose := CloseProc;\r\n      FPopupForm.OnShow := ShowProc;\r\n      FPopupForm.FShowModal := AShowModal;\r\n\r\n      {$IFDEF VCLLIB}\r\n      LPPI := GetPPIForActiveForm;\r\n      FPopupForm.ScaleForPPI(LPPI);\r\n      {$HINTS OFF}\r\n      {$IF COMPILERVERSION >= 36}\r\n      FPopupForm.Font.IsDPIRelated := True;\r\n      FPopupForm.Font.ScaleForDPI(LPPI);\r\n      {$IFEND}\r\n      {$HINTS ON}\r\n      FPopupForm.Font.Assign(Screen.MessageFont);\r\n      FPopupForm.Canvas.Font.Assign(FPopupForm.Font);\r\n      {$ENDIF}\r\n\r\n      FPopupForm.ContentControl := FContentControl;\r\n      {$IFDEF FNCLIB}\r\n      if Supports(FContentControl, ITMSFNCAdaptToStyle, ia) then\r\n        ia.AdaptToStyle := AdaptToStyle;\r\n      {$ENDIF}\r\n      {$IFDEF FMXLIB}\r\n      if Assigned(FContentControl) then\r\n        FContentControl.Align := TAlignLayout.Client;\r\n      {$ENDIF}\r\n      {$IFDEF CMNWEBLIB}\r\n      if Assigned(FContentControl) then\r\n        FContentControl.Align := alClient;\r\n      {$ENDIF}\r\n    finally\r\n    end;\r\n  except\r\n    FreeAndNil(FPopupForm);\r\n    Raise;\r\n  end;\r\n\r\n  if (not (csDestroying in ComponentState)) then\r\n    FPopupForm.DoBeforeShow;\r\n\r\n  ShowPopup(AShowModal);\r\n  {$IFDEF WEBLIB}\r\n  if Assigned(OnPopupPaint) then\r\n    FPopupForm.Paint;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.Notification(AComponent: TComponent; Operation: TOperation);\r\nbegin\r\n  inherited;\r\n  if Operation = opRemove then\r\n  begin\r\n    if AComponent = FContentControl then\r\n      FContentControl := nil;\r\n\r\n    if AComponent = FFocusedControl then\r\n      FFocusedControl := nil;\r\n\r\n    if (AComponent = FPopupForm) then\r\n      FPopupForm := nil;\r\n    if (AComponent = FPlacementControl) then\r\n    begin\r\n      FPlacementControl := nil;\r\n      if HasPopupForm then\r\n        FPopupForm.PlacementControl := nil;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomPopup.PointInPopup(APoint: TPointF): Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(FPopupForm) then\r\n    Result := PtInRectEx(RectF(FPopupForm.Left, FPopupForm.Top, FPopupForm.Left + FPopupForm.Width, FPopupForm.Top + FPopupForm.Height), APoint);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.SetIsOpen(const Value: Boolean);\r\nvar\r\n  b: Boolean;\r\nbegin\r\n  if FIsOpen <> Value then\r\n  begin\r\n    b := False;\r\n    {$IFDEF WEBLIB}\r\n    asm\r\n      b = (pas[\"WEBLib.Forms\"].VSIDE != null);\r\n    end;\r\n    {$ENDIF}\r\n\r\n    if not b and (csDesigning in ComponentState) then\r\n    begin\r\n      FIsOpen := False;\r\n      Exit;\r\n    end;\r\n\r\n    if Value then\r\n      DoCreatePopup\r\n    else\r\n    begin\r\n      if HasPopupForm then\r\n        FPopupForm.Close\r\n      else\r\n        FIsOpen := Value;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.BeforeShowProc(Sender: TObject);\r\nbegin\r\n  FIsOpen := True;\r\n  DoPopup;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.UpdatePopupSize;\r\nvar\r\n  LSize: TSizeF;\r\nbegin\r\n  if FPopupForm <> nil then\r\n  begin\r\n    if (FPopupFormSize.cx > 0) then\r\n      LSize.cx := FPopupFormSize.cx\r\n    else\r\n      LSize.cx := DropDownWidth;\r\n    if (FPopupFormSize.cy > 0) then\r\n      LSize.cy := FPopupFormSize.cy\r\n    else\r\n      LSize.cy := DropDownHeight;\r\n\r\n    FPopupForm.Size := LSize;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCCustomPopup then\r\n  begin\r\n    FModalResult := (Source as TTMSFNCCustomPopup).ModalResult;\r\n    FPopupFormSize := (Source as TTMSFNCCustomPopup).PopupFormSize;\r\n    FDragWithParent := (Source as TTMSFNCCustomPopup).DragWithParent;\r\n    FStaysOpen := (Source as TTMSFNCCustomPopup).StaysOpen;\r\n    FDropDownHeight := (Source as TTMSFNCCustomPopup).DropDownHeight;\r\n    FDropDownWidth := (Source as TTMSFNCCustomPopup).DropDownWidth;\r\n    FHorizontalOffset := (Source as TTMSFNCCustomPopup).HorizontalOffset;\r\n    FPlacementControl := (Source as TTMSFNCCustomPopup).PlacementControl;\r\n    FPlacement := (Source as TTMSFNCCustomPopup).Placement;\r\n    FPlacementRectangle.Assign((Source as TTMSFNCCustomPopup).PlacementRectangle);\r\n    FVerticalOffset := (Source as TTMSFNCCustomPopup).VerticalOffset;\r\n    FFocusedControl := (Source as TTMSFNCCustomPopup).FocusedControl;\r\n    FContentControl := (Source as TTMSFNCCustomPopup).ContentControl;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.BeforeCloseProc(Sender: TObject);\r\nbegin\r\n  FIsOpen := False;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.CloseProc(Sender: TObject; var CloseAction: TCloseAction);\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  if Assigned(PopupForm) and (PopupForm.FormStyle = TFormStyle.Popup) then\r\n  begin\r\n    if not StaysOpen then\r\n      ClosePopup\r\n    {$IFNDEF LINUX}\r\n    else\r\n      CloseAction := TCloseAction.caNone;\r\n    {$ENDIF}\r\n  end\r\n  else\r\n    ClosePopup;\r\n  {$ELSE}\r\n  ClosePopup;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.DoPopup;\r\nbegin\r\n  if Assigned(FOnPopup) then\r\n    FOnPopup(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.DoPopupPaint(Sender: TObject; AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF);\r\nbegin\r\n  if Assigned(OnPopupPaint) then\r\n    OnPopupPaint(Self, AGraphics, ARect);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.DoPopupShown;\r\nbegin\r\n  if Assigned(FOnPopupShown) then\r\n    FOnPopupShown(Self);\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomPopup.FormPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCCustomPopup.FormPaint(Sender: TObject);\r\n{$ENDIF}\r\nvar\r\n  g: TTMSFNCGraphics;\r\n  r: TRectF;\r\nbegin\r\n  if Assigned(FPopupForm) then\r\n  begin\r\n    g := TTMSFNCGraphics.Create(FPopupForm.Canvas);\r\n    g.BeginScene;\r\n    try\r\n      g.Fill.Kind := gfkSolid;\r\n      g.Stroke.Kind := gskSolid;\r\n      if (FillColor <> gcNull) and (StrokeColor <> gcNull) then\r\n      begin\r\n        g.Fill.Color := FillColor;\r\n        g.Stroke.Color := StrokeColor;\r\n      end\r\n      else\r\n      begin\r\n        g.Fill.Color := TTMSFNCGraphics.DefaultPopupFillColor;\r\n        g.Stroke.Color := TTMSFNCGraphics.DefaultPopupStrokeColor;\r\n      end;\r\n\r\n      r := RectF(0, 0, FPopupForm.Width, FPopupForm.Height);\r\n      g.DrawRectangle(r);\r\n\r\n      if Assigned(OnPopupPaint) then\r\n        OnPopupPaint(Self, g, r);\r\n    finally\r\n      g.EndScene;\r\n      g.Free;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomPopup.GetDocURL: string;\r\nbegin\r\n  Result := 'https://download.tmssoftware.com/doc/tmsfncuipack/components/ttmsfncpopup';\r\nend;\r\n\r\nfunction TTMSFNCCustomPopup.GetInstance: NativeUInt;\r\nbegin\r\n  Result := HInstance;\r\nend;\r\n\r\nfunction TTMSFNCCustomPopup.GetParent: TControl;\r\nbegin\r\n  Result := PlacementControl;\r\n  if not Assigned(Result) and (FOwner is TControl) then\r\n    Result := FOwner as TControl;\r\nend;\r\n\r\nfunction TTMSFNCCustomPopup.GetPopupFormClass: TTMSFNCCustomPopupFormClass;\r\nbegin\r\n  Result := TTMSFNCCustomPopupForm;\r\nend;\r\n\r\nfunction TTMSFNCCustomPopup.GetVersion: String;\r\nbegin\r\n  Result := GetVersionNumber(MAJ_VER, MIN_VER, REL_VER, BLD_VER);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.SetPlacement(const Value: TTMSFNCPopupPlacement);\r\nbegin\r\n  if FPlacement <> Value then\r\n  begin\r\n    FPlacement := Value;\r\n    if HasPopupForm then\r\n      PopupForm.Placement := FPlacement;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.SetPlacementRectangle(const Value: TTMSFNCMargins);\r\nbegin\r\n  FPlacementRectangle.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.SetPlacementControl(const Value: TControl);\r\nbegin\r\n  if FPlacementControl <> Value then\r\n  begin\r\n    if FPlacementControl <> nil then\r\n      FPlacementControl.RemoveFreeNotification(self);\r\n    FPlacementControl := Value;\r\n    if HasPopupForm then\r\n      FPopupForm.PlacementControl := FPlacementControl;\r\n    if FPlacementControl <> nil then\r\n      FPlacementControl.FreeNotification(self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.SetPopupFormSize(const Value: TSizeF);\r\nbegin\r\n  if (FPopupFormSize.cx <> Value.cx) or (FPopupFormSize.cy <> Value.cy) then\r\n  begin\r\n    FPopupFormSize := Value;\r\n    UpdatePopupSize;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.ShowPopup(AModal: Boolean);\r\nbegin\r\n  if AModal then\r\n    FModalResult := FPopupForm.ShowModal\r\n  else\r\n  begin\r\n    FPopupForm.Show;\r\n    {$IFDEF CMNLIB}\r\n    {$IFNDEF MSWINDOWS}\r\n    BorderStyle := bsNone;\r\n    BorderStyle := bsSingle;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    HandleFocusedControl;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.ShowProc(Sender: TObject);\r\nbegin\r\n  if Assigned(FPopupForm) and FPopupForm.FShowModal then\r\n    HandleFocusedControl;\r\n\r\n  DoPopupShown;\r\nend;\r\n\r\n{$IFDEF FNCLIB}\r\nprocedure TTMSFNCCustomPopup.SetAdaptToStyle(const Value: Boolean);\r\nvar\r\n  ia: ITMSFNCAdaptToStyle;\r\nbegin\r\n  inherited;\r\n  if Assigned(ContentControl) then\r\n  begin\r\n    if Supports(ContentControl, ITMSFNCAdaptToStyle, ia) then\r\n      ia.AdaptToStyle := AdaptToStyle;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomPopup.SetContentControl(const Value: TControl);\r\nbegin\r\n  if Value = nil then\r\n  begin\r\n    if Assigned(FContentControl) then\r\n      FContentControl.Visible := True;\r\n  end;\r\n\r\n  FContentControl := Value;\r\n  if Assigned(FContentControl) then\r\n  begin\r\n    FContentControl.Visible := False;\r\n    DropDownWidth := FContentControl.Width;\r\n    DropDownHeight := FContentControl.Height;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.SetDragWithParent(const Value: Boolean);\r\nbegin\r\n  if FDragWithParent <> Value then\r\n  begin\r\n    FDragWithParent := Value;\r\n    if HasPopupForm then\r\n      FPopupForm.DragWithParent := FDragWithParent;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.SetDropDownHeight(const Value: Single);\r\nbegin\r\n  if FDropDownHeight <> Value then\r\n  begin\r\n    FDropDownHeight := Value;\r\n    if Assigned(PopupForm) then\r\n      PopupForm.Height := Round(Value);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopup.SetDropDownWidth(const Value: Single);\r\nbegin\r\n  if FDropDownWidth <> Value then\r\n  begin\r\n    FDropDownWidth := Value;\r\n    if Assigned(PopupForm) then\r\n      PopupForm.Width := Round(Value);\r\n  end;\r\nend;\r\n\r\n{$IFDEF WEBLIB}\r\n\r\n{ TCustomPaintedForm }\r\n\r\nprocedure TCustomPaintedForm.DoPaint(Sender: TObject);\r\nbegin\r\n  Paint;\r\nend;\r\n\r\nprocedure TCustomPaintedForm.Paint;\r\nbegin\r\n  inherited;\r\n  if Assigned(OnPaint) then\r\n    OnPaint(Self);\r\nend;\r\n\r\nprocedure TCustomPaintedForm.CreateCanvas;\r\nbegin\r\n  if not Assigned(FPaintBox) then\r\n  begin\r\n    FPaintBox := TPaintBox.Create(Self);\r\n    FPaintBox.Parent := Self;\r\n    FPaintBox.Align := alClient;\r\n    FPaintBox.OnPaint := DoPaint;\r\n  end;\r\nend;\r\n\r\nfunction TCustomPaintedForm.GetCanvas: TCanvas;\r\nbegin\r\n  CreateCanvas;\r\n  Result := FPaintBox.Canvas;\r\nend;\r\n\r\n{$ENDIF}\r\n\r\n{ TTMSFNCCustomPopupForm }\r\n\r\nconstructor TTMSFNCCustomPopupForm.Create(AOwner: TComponent; APlacementControl: TControl = nil);\r\nbegin\r\n  CreateNew(AOwner);\r\n  try\r\n    if APlacementControl <> nil then\r\n      FPlacementControl := APlacementControl;\r\n    if FPlacementControl <> nil then\r\n      TComponent(FPlacementControl).FreeNotification(Self);\r\n  finally\r\n  end;\r\nend;\r\n\r\n{$IFDEF CMNWEBLIB}\r\nconstructor TTMSFNCCustomPopupForm.CreateNew(AOwner: TComponent; Dummy: Integer);\r\n{$ENDIF}\r\n{$IFDEF FMXLIB}\r\nconstructor TTMSFNCCustomPopupForm.CreateNew(AOwner: TComponent; Dummy: NativeInt);\r\n{$ENDIF}\r\n  function FindUniqueFormName(const Name: string): string;\r\n  var\r\n    I: Integer;\r\n  begin\r\n    I := 0;\r\n    Result := Name;\r\n    while (FindGlobalComponent(Result) <> nil) or\r\n          ((AOwner <> nil) and (AOwner.FindComponent(Result) <> nil)) do\r\n    begin\r\n      Inc(I);\r\n      Result := Format('%s_%d', [Name, I]);\r\n    end;\r\n  end;\r\nbegin\r\n  Name := FindUniqueFormName('CustomPopupForm');\r\n  inherited;\r\n  FPreferedDisplayIndex := -1;\r\n  FOwner := AOwner;\r\n  FDragWithParent := True;\r\n  FPlacementRectangle := TTMSFNCMargins.Create;\r\n  FContentPadding := TTMSFNCMargins.Create;\r\n  FSize.cx := 320;\r\n  FSize.cy := 200;\r\n  FPlacement := ppBottom;\r\n  FRealPlacement := FPlacement;\r\n  Visible := False;\r\n  try\r\n    {$IFDEF FMXLIB}\r\n    BeginUpdate;\r\n    {$IFDEF FMXMOBILE}\r\n    if Assigned(FOwner) and (FOwner is TPopup) and ((FOwner as TPopup).Owner is TTMSFNCCustomPopup) then\r\n      if not ((FOwner as TPopup).Owner as TTMSFNCCustomPopup).StaysOpen then\r\n    {$ENDIF}\r\n        FormStyle := TFormStyle.Popup;\r\n\r\n    Position := TFormPosition.Designed;\r\n    BorderStyle := TFmxFormBorderStyle.None;\r\n    {$ENDIF}\r\n    {$IFDEF CMNLIB}\r\n    KeyPreview := True;\r\n    Position := poDesigned;\r\n    BorderStyle := bsNone;\r\n    BorderIcons := [];\r\n    {$IFDEF VCLLIB}\r\n    Ctl3D := False;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    Border := fbNone;\r\n    Position := poDesigned;\r\n    {$ENDIF}\r\n  finally\r\n    {$IFDEF FMXLIB}\r\n    EndUpdate;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\ndestructor TTMSFNCCustomPopupForm.Destroy;\r\nbegin\r\n  FreeAndNil(FTimer);\r\n  if FPlacementControl <> nil then\r\n  begin\r\n    TComponent(FPlacementControl).RemoveFreeNotification(Self);\r\n    FPlacementControl := nil;\r\n  end;\r\n  FreeAndNil(FContentPadding);\r\n  FreeAndNil(FPlacementRectangle);\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopupForm.DoClose(var CloseAction: TCloseAction);\r\nbegin\r\n  {$IFNDEF FMXLIB}\r\n  CloseAction := TCloseAction.caFree;\r\n  {$ENDIF}\r\n  inherited;\r\n  if CloseAction <> TCloseAction.caNone then\r\n  begin\r\n    if Assigned(FTimer) then\r\n      FTimer.Enabled := False;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopupForm.DoRealPlacementChanged;\r\nbegin\r\n  if Assigned(FOnRealPlacementChanged) then\r\n    FOnRealPlacementChanged(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopupForm.KeyDown(var Key: Word; {$IFDEF FMXLIB}var KeyChar: WideChar;{$ENDIF} Shift: TShiftState);\r\nbegin\r\n  inherited;\r\n  if Shift <> [] then\r\n    Exit;\r\n\r\n  case Key of\r\n    KEY_ESCAPE, KEY_F4: Close;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomPopupForm.GetPopup: TTMSFNCCustomPopup;\r\n{$IFDEF FMXLIB}\r\nvar\r\n  p: TPopup;\r\n{$ENDIF}\r\nbegin\r\n  Result := nil;\r\n  if FOwner is TTMSFNCCustomPopup then\r\n    Result := FOwner as TTMSFNCCustomPopup\r\n  {$IFDEF FMXLIB}\r\n  else if FOwner is TPopup then\r\n  begin\r\n    p := FOwner as TPopup;\r\n    if p.Owner is TTMSFNCCustomPopup then\r\n      Result := p.Owner as TTMSFNCCustomPopup;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCCustomPopupForm.GetPopupParent: TControl;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FOwner) and (FOwner is TTMSFNCCustomPopup) then\r\n    Result := (FOwner as TTMSFNCCustomPopup).GetParent;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopupForm.HandleFocusedControl;\r\nbegin\r\n  if Assigned(Popup) then\r\n    Popup.HandleFocusedControl;\r\nend;\r\n\r\nfunction TTMSFNCCustomPopupForm.CloseQuery: Boolean;\r\nbegin\r\n  Result := inherited CloseQuery;\r\n  if Result and (not (csDestroying in ComponentState)) then\r\n    DoBeforeClose;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopupForm.Notification(AComponent: TComponent; Operation: TOperation);\r\nbegin\r\n  inherited;\r\n  if Operation = opRemove then\r\n  begin\r\n    if AComponent = FPlacementControl then\r\n    begin\r\n      FPlacementControl := nil;\r\n      ApplyPlacement;\r\n    end;\r\n    if AComponent = FContentControl then\r\n      FContentControl := nil;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopupForm.SetDragWithParent(const Value: Boolean);\r\nbegin\r\n  FDragWithParent := Value;\r\nend;\r\n\r\ntype\r\n  TDPIControlProtected = class(TControl);\r\n\r\nprocedure TTMSFNCCustomPopupForm.SetContentControl(const Value: TControl);\r\nbegin\r\n  if FContentControl <> Value then\r\n  begin\r\n    if FContentControl <> nil then\r\n      TComponent(FContentControl).RemoveFreeNotification(Self);\r\n    FContentControl := Value;\r\n    if FContentControl <> nil then\r\n    begin\r\n      TComponent(FContentControl).FreeNotification(Self);\r\n      try\r\n        FContentControl.Parent := Self;\r\n        {$IFDEF FMXLIB}\r\n        FContentControl.Align := TAlignLayout.None;\r\n        {$ENDIF}\r\n        {$IFDEF CMNWEBLIB}\r\n        FContentControl.Align := alNone;\r\n        {$ENDIF}\r\n        FContentControl.Visible := True;\r\n      finally\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopupForm.SetContentPadding(const Value: TTMSFNCMargins);\r\nbegin\r\n  FContentPadding.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopupForm.SetOffset(const Value: TPointF);\r\nbegin\r\n  if (FOffset.X <> Value.X) or (FOffset.Y <> Value.Y) then\r\n  begin\r\n    FOffset := Value;\r\n    ApplyPlacement;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopupForm.SetPlacement(const Value: TTMSFNCPopupPlacement);\r\nbegin\r\n  if FPlacement <> Value then\r\n  begin\r\n    FPlacement := Value;\r\n    ApplyPlacement;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopupForm.SetPlacementRectangle(const Value: TTMSFNCMargins);\r\nbegin\r\n  FPlacementRectangle.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopupForm.SetPlacementControl(const Value: TControl);\r\nbegin\r\n  if FPlacementControl <> Value then\r\n  begin\r\n    if FPlacementControl <> nil then\r\n      TComponent(FPlacementControl).RemoveFreeNotification(self);\r\n    FPlacementControl := Value;\r\n    if FPlacementControl <> nil then\r\n      TComponent(FPlacementControl).FreeNotification(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopupForm.SetSize(const Value: TSizeF);\r\nbegin\r\n  if (FSize.cx <> Value.cx) or (FSize.cy <> Value.cy) then\r\n  begin\r\n    FSize := Value;\r\n    ApplyPlacement;\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TTMSFNCCustomPopupForm.Loaded;\r\nbegin\r\n  inherited;\r\n  if FPlacementChanged then\r\n    ApplyPlacement;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopupForm.UpdateBounds(LRect: TRectF);\r\nbegin\r\n  SetBounds(Round(LRect.Left), Round(LRect.Top), Round(LRect.Right - LRect.Left), Round(LRect.Bottom - LRect.Top));\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopupForm.Updated;\r\nbegin\r\n  inherited;\r\n  if FPlacementChanged then\r\n    ApplyPlacement;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopupForm.DoApplyPlacement;\r\nvar\r\n  Pos: TPointF;\r\n  {$IFDEF FMXLIB}\r\n  AbsolutePos: TPointF;\r\n  MouseSvc: IFMXMouseService;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  pt, AbsolutePos: TPoint;\r\n  {$ENDIF}\r\n  LRect: TRectF;\r\n  LPlacement: TTMSFNCPopupPlacement;\r\n  LOffset: TPointF;\r\n  LStep: Byte;\r\n  LSoGood: Boolean;\r\n  SourceSize: TSizeF;\r\n  PlacementByTarget: Boolean;\r\n  function UpdateRectByScreen(var R: TRectF; cs: TComponentState): Boolean;\r\n  var\r\n    WorkareaRect: TRect;\r\n    WorkareaRectF: TRectF;\r\n    W, H: Single;\r\n    {$IFDEF FMXLIB}\r\n    P: TPointF;\r\n    {$ENDIF}\r\n    {$IFNDEF FMXLIB}\r\n    P: TPoint;\r\n    {$ENDIF}\r\n  begin\r\n    Result := True;\r\n    R.Left := Round(R.Left);\r\n    R.Top := Round(R.Top);\r\n    R.Right := Round(R.Right);\r\n    R.Bottom := Round(R.Bottom);\r\n    {$IFDEF FMXLIB}\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION > 27}\r\n    case LPlacement of\r\n      ppAbsolute:\r\n        WorkareaRect := ConvertToRect(Screen.DisplayFromRect(R).WorkareaRect);\r\n      ppMouse, ppMouseCenter, ppAboveMouse, ppAboveMouseCenter:\r\n        WorkareaRect := ConvertToRect(Screen.DisplayFromPoint(Screen.MousePos).WorkareaRect)\r\n    else\r\n      if not InRange(FPreferedDisplayIndex, 0, Screen.DisplayCount - 1) then\r\n      begin\r\n        if (PlacementControl <> nil) and (PlacementControl.Root is TCommonCustomForm) and\r\n          TCommonCustomForm(PlacementControl.Root).Visible then\r\n        begin\r\n          P := PointF(PlacementControl.Width / 2, PlacementControl.Height / 2);\r\n          P := PlacementControl.LocalToAbsolute(P);\r\n          FPreferedDisplayIndex := Screen.DisplayFromForm(TCommonCustomForm(PlacementControl.Root), P).Index;\r\n        end\r\n        else\r\n          FPreferedDisplayIndex := Screen.DisplayFromForm(Self).Index;\r\n      end;\r\n      WorkareaRect := ConvertToRect(Screen.Displays[FPreferedDisplayIndex].WorkareaRect);\r\n    end;\r\n    {$ELSE}\r\n    WorkareaRect := Rect(0, 0, Screen.Size.Width, Screen.Size.Height);\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    WorkareaRect.Left := 0;\r\n    WorkareaRect.Top := 0;\r\n    WorkareaRect.Right := WinWidth;\r\n    WorkareaRect.Bottom := WinHeight;\r\n    {$ENDIF}\r\n    {$IFDEF CMNLIB}\r\n    case LPlacement of\r\n      ppAbsolute:\r\n        WorkareaRect := Screen.MonitorFromRect(ConvertToRect(R)).WorkareaRect;\r\n      ppMouse, ppMouseCenter, ppAboveMouse, ppAboveMouseCenter:\r\n        WorkareaRect := Screen.MonitorFromPoint(ConvertToPoint(TTMSFNCUtils.GetMousePos)).WorkareaRect\r\n    else\r\n      if not InRange(FPreferedDisplayIndex, 0, Screen.MonitorCount - 1) then\r\n      begin\r\n        if (PlacementControl <> nil) and (TTMSFNCUtils.GetParentForm(PlacementControl) is TCustomForm) and\r\n          TCustomForm(TTMSFNCUtils.GetParentForm(PlacementControl)).Visible then\r\n        begin\r\n          P := Point(PlacementControl.Width div 2, PlacementControl.Height div 2);\r\n          P := PlacementControl.ClientToScreen(P);\r\n          FPreferedDisplayIndex := Screen.MonitorFromWindow(TTMSFNCUtils.GetParentForm(PlacementControl).Handle).MonitorNum;\r\n        end\r\n        else\r\n          FPreferedDisplayIndex := Screen.MonitorFromWindow(Self.Handle).MonitorNum;\r\n      end;\r\n      WorkareaRect := Screen.Monitors[FPreferedDisplayIndex].WorkareaRect;\r\n    end;\r\n    {$ENDIF}\r\n    WorkareaRectF := RectF(WorkareaRect.Left - ContentPadding.Left, WorkareaRect.Top - ContentPadding.Top,\r\n      WorkareaRect.Right + ContentPadding.Right, WorkareaRect.Bottom + ContentPadding.Bottom);\r\n    if not (csDesigning in cs) then\r\n    begin\r\n      W := R.Right - R.Left;\r\n      H := R.Bottom - R.Top;\r\n      if R.Left > WorkareaRectF.Left then\r\n      begin\r\n        if R.Left > WorkareaRectF.Right - W then\r\n        begin\r\n          R.Left := WorkareaRectF.Right - W;\r\n          if LPlacement = ppRight then\r\n          begin\r\n            LPlacement := ppLeft;\r\n            Result := False;\r\n          end;\r\n          if LPlacement = ppRightCenter then\r\n          begin\r\n            LPlacement := ppLeftCenter;\r\n            Result := False;\r\n          end;\r\n        end;\r\n      end\r\n      else\r\n      begin\r\n        R.Left := WorkareaRectF.Left;\r\n        if LPlacement = ppLeft then\r\n        begin\r\n          LPlacement := ppRight;\r\n          Result := False;\r\n        end;\r\n        if LPlacement = ppLeftCenter then\r\n        begin\r\n          LPlacement := ppRightCenter;\r\n          Result := False;\r\n        end;\r\n      end;\r\n      if R.Top > WorkareaRectF.Top then\r\n      begin\r\n        if R.Top > WorkareaRectF.Bottom - H then\r\n        begin\r\n          R.Top := WorkareaRectF.Bottom - H;\r\n          if LPlacement = ppBottom then\r\n          begin\r\n            LPlacement := ppTop;\r\n            Result := False;\r\n          end;\r\n          if LPlacement = ppBottomCenter then\r\n          begin\r\n            LPlacement := ppTopCenter;\r\n            Result := False;\r\n          end;\r\n        end;\r\n      end\r\n      else\r\n      begin\r\n        R.Top := WorkareaRectF.Top;\r\n        if LPlacement = ppTop then\r\n        begin\r\n          LPlacement := ppBottom;\r\n          Result := False;\r\n        end;\r\n        if LPlacement = ppTopCenter then\r\n        begin\r\n          LPlacement := ppBottomCenter;\r\n          Result := False;\r\n        end;\r\n      end;\r\n      R.Right := R.Left + W;\r\n      R.Bottom := R.Top + H;\r\n    end;\r\n  end;\r\nbegin\r\n  FPlacementChanged := False;\r\n  LOffset := Offset;\r\n  LPlacement := Placement;\r\n  LStep := 0;\r\n  repeat\r\n    LRect := RectF(FPlacementRectangle.Left, FPlacementRectangle.Top, FPlacementRectangle.Right, FPlacementRectangle.Bottom);\r\n    if (PlacementControl <> nil) and FPlacementRectangle.Empty then\r\n      LRect := RectF(0, 0, PlacementControl.Width, PlacementControl.Height);\r\n    if (PlacementControl = nil) and PlacementRectangle.Empty and\r\n       (not (LPlacement in [ppAbsolute, ppMouse, ppMouseCenter, ppAboveMouse, ppAboveMouseCenter])) then\r\n    begin\r\n      {$IFDEF FMXLIB}\r\n      if not TPlatformServices.Current.SupportsPlatformService(IFMXMouseService, IInterface(MouseSvc)) then\r\n        LPlacement := ppAbsolute\r\n      else\r\n        LPlacement := ppMouse;\r\n      {$ENDIF}\r\n    end;\r\n    FScreenPlacementRect := LRect;\r\n    // Vertical Offset\r\n    if LPlacement in [ppTop, ppTopCenter] then\r\n      OffsetRectEx(LRect, 0, ContentPadding.Bottom - LOffset.Y)\r\n    else\r\n      OffsetRectEx(LRect, 0, LOffset.Y - ContentPadding.Top);\r\n    // Horizontal Offset\r\n    if LPlacement in [ppLeft, ppLeftCenter] then\r\n      OffsetRectEx(LRect, ContentPadding.Right - LOffset.X, 0)\r\n    else\r\n      OffsetRectEx(LRect, LOffset.X - ContentPadding.Left, 0);\r\n    // Offset by rect\r\n    PlacementByTarget := not (LPlacement in [ppAbsolute, ppMouse, ppMouseCenter, ppAboveMouse, ppAboveMouseCenter]);\r\n    SourceSize := Size;\r\n\r\n    case LPlacement of\r\n      ppBottom:\r\n        OffsetRectEx(LRect, 0, (LRect.Bottom - LRect.Top));\r\n      ppTop:\r\n        OffsetRectEx(LRect, 0, -SourceSize.cy);\r\n      ppLeft:\r\n        OffsetRectEx(LRect, -SourceSize.cx, 0);\r\n      ppRight:\r\n        OffsetRectEx(LRect, (LRect.Right - LRect.Top), 0);\r\n      ppCenter:\r\n        OffsetRectEx(LRect, ((LRect.Right - LRect.Top) - SourceSize.cx) / 2, ((LRect.Bottom - LRect.Top) - SourceSize.cy) / 2);\r\n      ppBottomCenter:\r\n        OffsetRectEx(LRect, ((LRect.Right - LRect.Top) - SourceSize.cx) / 2, (LRect.Bottom - LRect.Top));\r\n      ppTopCenter:\r\n        OffsetRectEx(LRect, ((LRect.Right - LRect.Top) - SourceSize.cx) / 2, -SourceSize.cy);\r\n      ppLeftCenter:\r\n        OffsetRectEx(LRect, -SourceSize.cx, ((LRect.Bottom - LRect.Top) - SourceSize.cy) / 2);\r\n      ppRightCenter:\r\n        OffsetRectEx(LRect, (LRect.Right - LRect.Top), ((LRect.Bottom - LRect.Top) - SourceSize.cy) / 2);\r\n      ppAbsolute:\r\n        begin\r\n          if FPlacementRectangle.Empty then\r\n            LRect := RectF(FPlacementRectangle.Rect.Left, FPlacementRectangle.Rect.Top, FPlacementRectangle.Rect.Left + SourceSize.cx, FPlacementRectangle.Rect.Top + SourceSize.cy)\r\n          else\r\n            LRect := FPlacementRectangle.Rect;\r\n        end;\r\n      ppMouse, ppMouseCenter, ppAboveMouse, ppAboveMouseCenter:\r\n        begin\r\n          Pos := TTMSFNCUtils.GetMousePos;\r\n          LRect := RectF(Pos.X, Pos.Y, Pos.X + SourceSize.cx, Pos.Y + SourceSize.cy);\r\n          if LPlacement = ppMouseCenter then\r\n            OffsetRectEx(LRect, -SourceSize.cx / 2, -SourceSize.cy / 2);\r\n          if LPlacement = ppAboveMouseCenter then\r\n            OffsetRectEx(LRect, -SourceSize.cx / 2, -SourceSize.cy - 5);\r\n          if LPlacement = ppAboveMouse then\r\n            OffsetRectEx(LRect, 0, -SourceSize.cy - 5);\r\n        end;\r\n    end;\r\n    // use border\r\n    if PlacementByTarget then\r\n    begin\r\n      {$IFDEF FMXLIB}\r\n      AbsolutePos := PointF(LRect.Left, LRect.Top);\r\n      {$ENDIF}\r\n      {$IFDEF CMNWEBLIB}\r\n      AbsolutePos := Point(Round(LRect.Left), Round(LRect.Top));\r\n      {$ENDIF}\r\n      if PlacementControl <> nil then\r\n      begin\r\n        {$IFDEF FMXLIB}\r\n        AbsolutePos := PlacementControl.LocalToAbsolute(AbsolutePos);\r\n        FScreenPlacementRect.TopLeft := PlacementControl.LocalToAbsolute(FScreenPlacementRect.TopLeft);\r\n        FScreenPlacementRect.BottomRight := PlacementControl.LocalToAbsolute(FScreenPlacementRect.BottomRight);\r\n        if PlacementControl.Scene <> nil then\r\n        begin\r\n          AbsolutePos := PlacementControl.Scene.LocalToScreen(AbsolutePos);\r\n          FScreenPlacementRect.TopLeft := PlacementControl.Scene.LocalToScreen(FScreenPlacementRect.TopLeft);\r\n          FScreenPlacementRect.BottomRight := PlacementControl.Scene.LocalToScreen(FScreenPlacementRect.BottomRight);\r\n        end;\r\n        {$ENDIF}\r\n        {$IFDEF CMNWEBLIB}\r\n        AbsolutePos := PlacementControl.ClientToScreen(AbsolutePos);\r\n        pt := Point(Round(FScreenPlacementRect.Left), Round(FScreenPlacementRect.Top));\r\n        pt := PlacementControl.ClientToScreen(pt);\r\n        FScreenPlacementRect.Left := pt.X;\r\n        FScreenPlacementRect.Top := pt.Y;\r\n        pt := Point(Round(FScreenPlacementRect.Right), Round(FScreenPlacementRect.Bottom));\r\n        pt := PlacementControl.ClientToScreen(pt);\r\n        FScreenPlacementRect.Right := pt.X;\r\n        FScreenPlacementRect.Bottom := pt.Y;\r\n        {$ENDIF}\r\n      end;\r\n      LRect := RectF(AbsolutePos.X, AbsolutePos.Y, AbsolutePos.X + Size.cx, AbsolutePos.Y + Size.cy);\r\n    end;\r\n    LSoGood := UpdateRectByScreen(LRect, ComponentState);\r\n    Inc(LStep);\r\n  until LSoGood or (LStep > 1);\r\n  FScreenContentRect := LRect;\r\n  FScreenContentRect := RectF(FScreenContentRect.Left + FContentPadding.Left, FScreenContentRect.Top + FContentPadding.Top, FScreenContentRect.Right - FContentPadding.Right, FScreenContentRect.Bottom - FContentPadding.Bottom);\r\n  FRealPlacement := LPlacement;\r\n  UpdateBounds(LRect);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopupForm.DoBeforeClose;\r\nbegin\r\n  if Assigned(OnBeforeClose) then\r\n    OnBeforeClose(self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopupForm.DoBeforeShow;\r\nbegin\r\n  FHintWindow := False;\r\n  if Assigned(OnBeforeShow) then\r\n    OnBeforeShow(self);\r\n\r\n  FFirstShow := True;\r\n\r\n  if not Assigned(FTimer) then\r\n    FTimer := TTimer.Create(Self);\r\n\r\n  FTimer.Interval := 20;\r\n  FTimer.OnTimer := TimerProc;\r\n  FTimer.Enabled := True;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopupForm.TimerProc(Sender: TObject);\r\nbegin\r\n  if (Visible or FHintWindow) and (FFirstShow or FDragWithParent) then\r\n    ApplyPlacement;\r\n  if (Visible or FHintWindow) and (FFirstShow) then\r\n  begin\r\n    FFirstShow := False;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPopupForm.ApplyPlacement;\r\nvar\r\n  OldRect, NewRect: TRect;\r\n  OldRealPlacement: TTMSFNCPopupPlacement;\r\nbegin\r\n  {$IFNDEF WEBLIB}\r\n  if not (csLoading in ComponentState) and not (csUpdating in ComponentState) and not (csDestroying in ComponentState) then\r\n  {$ENDIF}\r\n  begin\r\n    OldRect := Rect(Left, Top, Left + Width, Top + Height);\r\n    OldRealPlacement := FRealPlacement;\r\n    DoApplyPlacement;\r\n    NewRect := Rect(Left, Top, Left + Width, Top + Height);\r\n    if (NewRect.Left <> OldRect.Left) or (NewRect.Top <> OldRect.Top) or (NewRect.Bottom <> OldRect.Bottom) or (NewRect.Right <> OldRect.Right)\r\n      or (OldRealPlacement <> RealPlacement) then\r\n      DoRealPlacementChanged;\r\n  end\r\n  {$IFNDEF WEBLIB}\r\n  else\r\n    FPlacementChanged := True;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomNonFocusablePopup.ActivatePreviousWindow;\r\nbegin\r\n  {$IFDEF CMNLIB}\r\n  SetActiveWindow(FActiveWindow);\r\n  {$ENDIF}\r\nend;\r\n\r\nconstructor TTMSFNCCustomNonFocusablePopup.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  StaysOpen := True;\r\nend;\r\n\r\ndestructor TTMSFNCCustomNonFocusablePopup.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCCustomNonFocusablePopup.GetPopupFormClass: TTMSFNCCustomPopupFormClass;\r\nbegin\r\n  Result := TTMSFNCCustomNonFocusablePopupForm;\r\nend;\r\n\r\nprocedure TTMSFNCCustomNonFocusablePopup.ShowPopup(AModal: Boolean);\r\n{$IFDEF CMNLIB}\r\n{$IFDEF MSWINDOWS}\r\nvar\r\n  hWin: HWND;\r\n{$ENDIF}\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  PopupForm.FormStyle := TFormStyle.Popup;\r\n  inherited;\r\n  {$ENDIF}\r\n  {$IFDEF CMNLIB}\r\n  FActiveWindow := GetActiveWindow;\r\n  {$IFDEF MSWINDOWS}\r\n  PopupForm.HintWindow := True;\r\n  hWin := PopupForm.Handle;\r\n  SetWindowPos(hwin, HWND_TOPMOST, PopupForm.Left, PopupForm.Top, PopupForm.Width, PopupForm.Height, SWP_NOACTIVATE);\r\n  ShowWindow(hWin, SW_SHOWNOACTIVATE);\r\n  PopupForm.Visible := True;\r\n  {$ELSE}\r\n  PopupForm.SetBounds(PopupForm.Left, PopupForm.Top, PopupForm.Width, PopupForm.Height);\r\n  PopupForm.Visible := True;\r\n  PopupForm.BorderStyle := bsSingle;\r\n  PopupForm.BorderStyle := bsNone;\r\n  {$ENDIF}\r\n  SetActiveWindow(FActiveWindow);\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  inherited;\r\n  {$ENDIF}\r\n\r\n  FIsOpen := True;\r\nend;\r\n\r\n{ TTMSFNCCustomNonFocusablePopupForm }\r\n\r\nprocedure TTMSFNCCustomNonFocusablePopupForm.UpdateBounds(LRect: TRectF);\r\n{$IFDEF CMNLIB}\r\n{$IFDEF MSWINDOWS}\r\nvar\r\n  hWin: HWND;\r\n{$ENDIF}\r\n{$ENDIF}\r\nbegin\r\n  inherited;\r\n  {$IFDEF CMNLIB}\r\n  {$IFDEF MSWINDOWS}\r\n  hWin := Handle;\r\n  SetWindowPos(hwin, HWND_TOPMOST, Round(LRect.Left), Round(LRect.Top), Round((LRect.Right - LRect.Left)), Round((LRect.Bottom - LRect.Top)), SWP_NOACTIVATE);\r\n  {$ELSE}\r\n  SetBounds(Round(LRect.Left), Round(LRect.Top), Round((LRect.Right - LRect.Top)), Round((LRect.Bottom - LRect.Top)));\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nend;\r\n\r\n{$IFDEF CMNLIB}\r\n{$IFDEF MSWINDOWS}\r\nfunction HintWindowProc(hWnd: hWnd; uMsg: Integer; WParam: WParam;\r\n  lParam: lParam): LRESULT; stdcall;\r\nvar\r\n  I: Integer;\r\n  pr: LInteger;\r\nbegin\r\n  case uMsg of\r\n    WM_MOUSEACTIVATE:\r\n    begin\r\n      Result := MA_NOACTIVATE;\r\n      Exit;\r\n    end;\r\n  end;\r\n\r\n  pr := 0;\r\n  for I := 0 to Length(PrevWndProcs) - 1 do\r\n  begin\r\n    if PrevWndProcs[I].FWindowHandle = hWnd then\r\n      pr := PrevWndProcs[I].FProc;\r\n  end;\r\n\r\n  Result := CallWindowProc({%H-}IntPtr(pr), hWnd, uMsg, WParam, lParam);\r\nend;\r\n\r\ndestructor TTMSFNCCustomNonFocusablePopupForm.Destroy;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to Length(PrevWndProcs) - 1 do\r\n  begin\r\n    if PrevWndProcs[I].FWindowHandle = Self.Handle then\r\n      SetWindowLongPtr(Self.Handle, GWL_WNDPROC, PrevWndProcs[I].FProc);\r\n  end;\r\n  inherited;\r\nend;\r\n\r\nconstructor TTMSFNCCustomNonFocusablePopupForm.CreateNew(AOwner: TComponent; Dummy: Integer  = 0);\r\nvar\r\n  r: WndProcRec;\r\nbegin\r\n  inherited;\r\n  SetLength(PrevWndProcs, Length(PrevWndProcs) + 1);\r\n  r.FWindowHandle := Self.Handle;\r\n  r.FProc := SetWindowLongPtr(Self.Handle, GWL_WNDPROC, {%H-}LInteger(@HintWindowProc));\r\n  PrevWndProcs[Length(PrevWndProcs) - 1] := r;\r\nend;\r\n\r\nprocedure TTMSFNCCustomNonFocusablePopupForm.CreateParams(var Params: TCreateParams);\r\nbegin\r\n  inherited CreateParams(Params);\r\n  with Params do\r\n  begin\r\n    Style := WS_POPUP;\r\n    WindowClass.Style := WindowClass.Style or CS_SAVEBITS;\r\n    if NewStyleControls then\r\n      ExStyle := WS_EX_TOOLWINDOW or WS_EX_NOACTIVATE;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomNonFocusablePopupForm.WMNCHitTest(var Message: TWMNCHitTest);\r\nbegin\r\n  Message.Result := HTTRANSPARENT;\r\nend;\r\n\r\nprocedure TTMSFNCCustomNonFocusablePopupForm.WMActivate(var Message: TWMActivate);\r\nbegin\r\n  Message.Result := 1;\r\nend;\r\n\r\n{$ELSE}\r\nprocedure TTMSFNCCustomNonFocusablePopupForm.WMNCHitTest(var Message: TLMessage);\r\nbegin\r\n  Message.Result := HTTRANSPARENT;\r\nend;\r\n\r\nprocedure TTMSFNCCustomNonFocusablePopupForm.WMActivate(var Message: TLMActivate);\r\nbegin\r\n  Message.Result := 1;\r\n  if (Owner is TTMSFNCCustomNonFocusablePopup) then\r\n    (Owner as TTMSFNCCustomNonFocusablePopup).ActivatePreviousWindow;\r\nend;\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\n{ TTMSFNCNonFocusablePopup }\r\n\r\nprocedure TTMSFNCNonFocusablePopup.Deactivate;\r\nbegin\r\n  ClosePopup;\r\nend;\r\n\r\nprocedure TTMSFNCNonFocusablePopup.Activate;\r\nbegin\r\n  DoCreatePopup(False);\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2016 - 2021                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : https://www.tmssoftware.com                       }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCImage;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, WEBLib.TMSFNCCustomControl, WEBLib.TMSFNCBitmapContainer,\r\n  WEBLib.TMSFNCTypes, WEBLib.TMSFNCGraphics, WEBLib.TMSFNCGraphicsTypes\r\n  {$IFNDEF LCLLIB}\r\n  {$IFNDEF WEBLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  ,UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  ,Types\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  ;\r\n\r\nconst\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 0; // Minor version nr.\r\n  REL_VER = 0; // Release nr.\r\n  BLD_VER = 1; // Build nr.\r\n\r\n  // version history\r\n  // v1.0.0.0 : First Release\r\n  // v1.0.0.1 : Improved : Changes to setter visibility for TTMSFNCHotSpotImage\r\n\r\ntype\r\n  {$IFDEF FNCLIB}\r\n  TTMSFNCCustomImage = class(TTMSFNCCustomControl, ITMSFNCBitmapContainer)\r\n  {$ENDIF}\r\n  {$IFNDEF FNCLIB}\r\n  TTMSFNCCustomImage = class(TTMSFNCCustomControl)\r\n  {$ENDIF}\r\n  private\r\n    FBitmap: TTMSFNCBitmap;\r\n    FBitmapContainer: TTMSFNCBitmapContainer;\r\n    FStretch: Boolean;\r\n    FBitmaps: TTMSFNCScaledBitmaps;\r\n    FCropping: Boolean;\r\n    FCenter: Boolean;\r\n    FAutoSize: Boolean;\r\n    FAspectRatio: Boolean;\r\n    FOnBitmapChanged: TNotifyEvent;\r\n    FBitmapMargins: TTMSFNCMargins;\r\n    FDottedDesigntimeRectangle: Boolean;\r\n    procedure SetBitmapContainer(const Value: TTMSFNCBitmapContainer);\r\n    procedure SetBitmaps(const Value: TTMSFNCScaledBitmaps);\r\n    procedure SetBitmap(const Value: TTMSFNCBitmap);\r\n    function GetBitmapContainer: TTMSFNCBitmapContainer;\r\n    procedure SetBitmapMargins(const Value: TTMSFNCMargins);\r\n  protected\r\n    function GetVersion: string; override;\r\n    procedure ApplyAutoSize;\r\n    procedure BitmapMarginsChanged(Sender: TObject);\r\n    procedure Notification(AComponent: TComponent; Operation: TOperation); override;\r\n    procedure BitmapChanged(Sender: TObject);\r\n    procedure SetStretch(const Value: Boolean); virtual;\r\n    procedure SetCropping(const Value: Boolean); virtual;\r\n    procedure SetCenter(const Value: Boolean); virtual;\r\n    procedure SetAS(const Value: Boolean); virtual;\r\n    procedure SetAspectRatio(const Value: Boolean); virtual;\r\n    property AspectRatio: Boolean read FAspectRatio write SetAspectRatio default True;\r\n    property Version: String read GetVersion;\r\n    property Bitmaps: TTMSFNCScaledBitmaps read FBitmaps write SetBitmaps;\r\n    property BitmapContainer: TTMSFNCBitmapContainer read GetBitmapContainer write SetBitmapContainer;\r\n    property Stretch: Boolean read FStretch write SetStretch default False;\r\n    property Cropping: Boolean read FCropping write SetCropping default False;\r\n    property Center: Boolean read FCenter write SetCenter default True;\r\n    property AutoSize: Boolean read FAutoSize write SetAS default False;\r\n    property Bitmap: TTMSFNCBitmap read FBitmap write SetBitmap;\r\n    property BitmapMargins: TTMSFNCMargins read FBitmapMargins write SetBitmapMargins;\r\n    property DottedDesigntimeRectangle: Boolean read FDottedDesigntimeRectangle write FDottedDesigntimeRectangle default True;\r\n  public\r\n    procedure Clear;\r\n    function GetPaintRectangle: TRectF;\r\n    function GetBitmap: TTMSFNCBitmap;\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF); override;\r\n    property OnBitmapChanged: TNotifyEvent read FOnBitmapChanged write FOnBitmapChanged;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCImage = class(TTMSFNCCustomImage)\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n  published\r\n    property AspectRatio;\r\n    property Bitmap;\r\n    property BitmapMargins;\r\n    property Version;\r\n    property Bitmaps;\r\n    property BitmapContainer;\r\n    property Stretch;\r\n    property Cropping;\r\n    property Center;\r\n    property AutoSize;\r\n    property Fill;\r\n    property Stroke;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  WEBLib.Controls, WEBLib.Graphics, WEBLib.TMSFNCUtils;\r\n\r\nprocedure TTMSFNCCustomImage.ApplyAutoSize;\r\nvar\r\n  bmp: TTMSFNCBitmap;\r\nbegin\r\n  bmp := GetBitmap;\r\n  if Assigned(bmp) then\r\n  begin\r\n    if FAutoSize and not IsBitmapEmpty(bmp) then\r\n    begin\r\n      Self.Width := Round(bmp.Width + BitmapMargins.Left + BitmapMargins.Right);\r\n      Self.Height := Round(bmp.Height + BitmapMargins.Top + BitmapMargins.Bottom);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomImage.BitmapChanged(Sender: TObject);\r\nbegin\r\n  if Assigned(OnBitmapChanged) then\r\n    OnBitmapChanged(Self);\r\n\r\n  ApplyAutoSize;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomImage.BitmapMarginsChanged(Sender: TObject);\r\nbegin\r\n  ApplyAutoSize;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomImage.Clear;\r\nbegin\r\n  Bitmaps.Clear;\r\nend;\r\n\r\nconstructor TTMSFNCCustomImage.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FDottedDesigntimeRectangle := True;\r\n\r\n  if IsDesignTime then\r\n    DisableBackground;\r\n\r\n  FBitmapMargins := TTMSFNCMargins.Create;\r\n  FBitmapMargins.OnChange := @BitmapMarginsChanged;\r\n  FCenter := True;\r\n  FStretch := False;\r\n  FAspectRatio := True;\r\n  FCropping := False;\r\n  FBitmaps := TTMSFNCScaledBitmaps.Create(Self);\r\n  FBitmaps.OnChange := @BitmapChanged;\r\n  FBitmap := TTMSFNCBitmap.Create;\r\n  FBitmap.OnChange := @BitmapChanged;\r\n  Width := 100;\r\n  Height := 100;\r\nend;\r\n\r\ndestructor TTMSFNCCustomImage.Destroy;\r\nbegin\r\n  FBitmap.Free;\r\n  FBitmaps.Free;\r\n  FBitmapMargins.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCCustomImage.GetBitmap: TTMSFNCBitmap;\r\nbegin\r\n  if not IsBitmapEmpty(FBitmap) then\r\n    Result := FBitmap\r\n  else\r\n    Result := TTMSFNCGraphics.GetScaledBitmap(Bitmaps, 0, FBitmapContainer);\r\nend;\r\n\r\nfunction TTMSFNCCustomImage.GetBitmapContainer: TTMSFNCBitmapContainer;\r\nbegin\r\n  Result := FBitmapContainer;\r\nend;\r\n\r\nfunction TTMSFNCCustomImage.GetPaintRectangle: TRectF;\r\nvar\r\n  bmp: TTMSFNCBitmap;\r\n  rdest: TRectF;\r\n  w, h: Single;\r\n  x, y: Single;\r\nbegin\r\n  Result := RectF(0, 0, 0, 0);\r\n  bmp := GetBitmap;\r\n  if Assigned(bmp) then\r\n  begin\r\n    x := BitmapMargins.Left;\r\n    y := BitmapMargins.Top;\r\n    w := 0;\r\n    h := 0;\r\n    TTMSFNCGraphics.GetAspectSize(w, h, bmp.Width, bmp.Height, Width - BitmapMargins.Left - BitmapMargins.Right,\r\n      Height - BitmapMargins.Top - BitmapMargins.Bottom, AspectRatio, Stretch, Cropping);\r\n\r\n    if Center or Cropping then\r\n    begin\r\n      x := (width - w) / 2;\r\n      y := (height - h) / 2;\r\n    end;\r\n\r\n    rdest := RectF(x, y, x + w, y + h);\r\n    Result := rdest;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomImage.GetVersion: string;\r\nbegin\r\n  Result := GetVersionNumber(MAJ_VER, MIN_VER, REL_VER, BLD_VER);\r\nend;\r\n\r\nprocedure TTMSFNCCustomImage.Notification(AComponent: TComponent;\r\n  Operation: TOperation);\r\nbegin\r\n  inherited;\r\n  if (Operation = opRemove) and (AComponent = FBitmapContainer) then\r\n    FBitmapContainer := nil;\r\nend;\r\n\r\nprocedure TTMSFNCCustomImage.Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nvar\r\n  bmp: TTMSFNCBitmap;\r\nbegin\r\n  inherited;\r\n  if (csDesigning in ComponentState) and FDottedDesigntimeRectangle then\r\n  begin\r\n    AGraphics.Stroke.Kind := gskDot;\r\n    AGraphics.DrawRectangle(ARect);\r\n  end;\r\n\r\n  bmp := GetBitmap;\r\n  if Assigned(bmp) then\r\n  begin\r\n    ARect := RectF(ARect.Left + BitmapMargins.Left, ARect.Top + BitmapMargins.Top,\r\n      ARect.Right - BitmapMargins.Right, ARect.Bottom - BitmapMargins.Bottom);\r\n\r\n    AGraphics.DrawBitmap(ARect, bmp, AspectRatio, Stretch, Center, Cropping);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomImage.SetAspectRatio(const Value: Boolean);\r\nbegin\r\n  FAspectRatio := Value;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomImage.SetAS(const Value: Boolean);\r\nbegin\r\n  FAutoSize := Value;\r\n  ApplyAutoSize;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomImage.SetBitmaps(const Value: TTMSFNCScaledBitmaps);\r\nbegin\r\n  FBitmaps.Assign(Value);\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomImage.SetBitmap(const Value: TTMSFNCBitmap);\r\nbegin\r\n  FBitmap.Assign(Value);\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomImage.SetBitmapContainer(\r\n  const Value: TTMSFNCBitmapContainer);\r\nbegin\r\n  FBitmapContainer := Value;\r\n  ApplyAutoSize;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomImage.SetBitmapMargins(const Value: TTMSFNCMargins);\r\nbegin\r\n  FBitmapMargins.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomImage.SetCenter(const Value: Boolean);\r\nbegin\r\n  FCenter := Value;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomImage.SetCropping(const Value: Boolean);\r\nbegin\r\n  FCropping := Value;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomImage.SetStretch(const Value: Boolean);\r\nbegin\r\n  FStretch := Value;\r\n  Invalidate;\r\nend;\r\n\r\n{ TTMSFNCImage }\r\n\r\nprocedure TTMSFNCImage.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClass(TTMSFNCImage);\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2016 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : https://www.tmssoftware.com                       }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCCustomTreeView;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF FMXLIB}\r\n{$DEFINE FMXWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\n{$DEFINE FMXWEBLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF CMNLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$DEFINE UIPACK}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, SysUtils, WEBLib.TMSFNCTreeViewData, WEBLib.TMSFNCCustomComponent, WEBLib.TMSFNCGraphics, WEBLib.TMSFNCPopup, WEBLib.TMSFNCImage,\r\n  Types, WEBLib.TMSFNCTypes, WEBLib.Controls, WEBLib.ExtCtrls, WEBLib.StdCtrls, WEBLib.TMSFNCGraphicsTypes\r\n  {$IFNDEF LCLLIB}\r\n  {$IFNDEF WEBLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  ,UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  ,Generics.Collections\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web, WEBLIB.JSON\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Types, FMX.Memo, FMX.Edit, FMX.ListBox\r\n  {$WARNINGS OFF}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 28}\r\n  ,FMX.Memo.Types\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$WARNINGS ON}\r\n  {$ENDIF}\r\n  {$IFDEF FNCLIB}\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  ,JSON\r\n  {$ELSE}\r\n  ,fpjson\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  ;\r\n\r\nconst\r\n  TTMSFNCTreeViewDocURL = TTMSFNCBaseDocURL + 'tmsfncuipack/components/ttmsfnctreeview/';\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 2; // Minor version nr.\r\n  REL_VER = 2; // Release nr.\r\n  BLD_VER = 3; // Build nr.\r\n  CLP_FMT = '#TREEVIEW#';\r\n  ENDOFLINE = #13#10;\r\n  DRAGMARGIN = 10;\r\n\r\n  // version history\r\n  // v1.0.0.0 : first release\r\n  // v1.0.0.1 : Fixed: Issue with reintroducing BeginUpdate with additional parameter,\r\n  //            please use BeginUpdate in combination with ClearNodeList to clear all nodes\r\n  // v1.1.0.0 : New: Clipboard support\r\n  //          : New: Column sorting\r\n  //          : New: Drag & Drop support\r\n  //          : New: Reordering\r\n  //          : New: Filtering\r\n  //          : New: Keyboard Lookup\r\n  //          : Fixed: Issue with font initialization\r\n  // v1.1.0.1 : Fixed: Issue with copying and moving node data properties\r\n  // v1.1.0.2 : Fixed: Issue with selecting all nodes when multi-select is false\r\n  // v1.1.0.3 : Fixed: Access violation calling stopedit in OnExit of custom editor\r\n  //          : Fixed: Issue loading complex tree files\r\n  // v1.1.0.4 : Fixed: Issue assigning child node data\r\n  // v1.1.0.5 : Fixed: Issue drag & drop interaction in combination with expand / collapse\r\n  // v1.1.0.6 : Improved: Handling keyboard ALT, SHIFT and CTRL keys without navigating to selecting item\r\n  // v1.1.0.7 : Fixed: Issue with displaying icons on high dpi systems\r\n  // v1.1.0.8 : Fixed: Issue setting check state without rebuilding node list\r\n  // v1.1.1.0 : New: FindNodeByRow and GetTotalNodeCount functions\r\n  //          : Fixed: Issue with OnAfterSizeColumn not called\r\n  // v1.1.1.1 : Fixed: Issue with HTML calculation and wordwrapping\r\n  //          : Fixed: Issue with drawing node background color in VCL/LCL\r\n  //          : Fixed: Issue with ScrollToNode in combination with variable node height\r\n  // v1.1.1.2 : Improved: ShowFocus default true\r\n  //          : Improved: SelectNode := nil clears selection\r\n  //          : Improved: Double-click on node area to expand/collapse\r\n  // v1.1.1.3 : Fixed: Issue with sizing invisible columns\r\n  // v1.1.1.4 : Fixed: Issue with ScrollToNode hanging on collapsed nodes\r\n  // v1.1.2.0 : New: FindNodeByTextAndColumn function\r\n  // v1.1.3.0 : New: FindNodeByDBKey function\r\n  // v1.1.3.1 : Fixed: Access violation when destroying editor\r\n  // v1.1.3.2 : Fixed: Access violation during move node operation\r\n  // v1.1.3.3 : Fixed: Issue panning and dblclick combination\r\n  // v1.1.3.4 : Fixed: Issue sorting and sizing columns occurs simultaneously\r\n  // v1.1.3.5 : Improved: Retrieve text of virtual node\r\n  // v1.1.3.6 : Fixed: Issue with presetting combobox editor value\r\n  // v1.1.3.7 : Fixed: Issue with missing assignment of DBKey property\r\n  // v1.1.3.8 : Fixed: Issue with multi-select on mobile platforms\r\n  // v1.1.3.9 : Fixed: Issue with node checking still active while Interaction.ReadOnly property is set.\r\n  // v1.1.4.0 : New: OnNodeMouseEnter and OnNodeMouseLeave events\r\n  // v1.1.4.1 : Fixed: Issue with filtering and expanding / collapsing nodes\r\n  // v1.1.4.2 : Fixed: Issue with resizing treeview in combination with splitter in TMS WEB Core\r\n  // v1.1.4.3 : Fixed: Issue with drawing transparent checkboxes\r\n  // v1.1.4.4 : Fixed: Issue with closing inplace editor in TMS WEB Core\r\n  // v1.1.4.5 : Fixed: Issue with editing under Android\r\n  // v1.1.4.6 : Fixed: horizontal scrolling not working when there is no vertical scrolling\r\n  // v1.1.4.7 : Improved: Name property of column reflecting at designtime\r\n  // v1.1.4.8 : Fixed : Issue with state of expanded/collapse icons for nodes without children\r\n  // v1.1.4.9 : Fixed : Issue with dblclicking and clicking on an item in Lazarus\r\n  // v1.1.5.0 : Improved : OnColumnAnchorClick event added\r\n  // v1.1.5.1 : Fixed : Issue with moving parent nodes inside children\r\n  // v1.1.5.2 : Fixed : Issue with Anchor if font was changed\r\n  // v1.1.5.3 : Fixed : Issue with default drag & drop events not being triggered\r\n  // v1.1.5.4 : Fixed : Issue with OnIsNodeChecked missing AColumn parameter\r\n  // v1.1.5.5 : Improved : Added AIncludeRows parameter to XYToColumn to include rows while detecting which column is located at X and Y coordinate\r\n  // v1.1.5.6 : Fixed : Issue with Delete key triggering LookupNode when FLookupString is empty\r\n  // v1.1.5.7 : Fixed : Issue with OnBeforeUnSelectNode & OnAfterUnSelectNode event not called\r\n  // v1.1.5.8 : New : Interaction.MouseWheelDelta to configure mousewheel scrolling sensitivity\r\n  //          : Fixed : Issue with OnMouseLeave & OnMouseEnter not triggered\r\n  //          : Fixed : Issue with hanging scroll actions\r\n  // v1.1.5.9 : Fixed : Issue in Delphi 11 with begin and end scene for CreateBitmapCanvas\r\n  //          : Fixed : Issue in macOS destroying the inplace editor popup in certain conditions\r\n  // v1.1.6.0 : New : OnFocusedNodeChanged event\r\n  //          : New : + KEY expands one level, - KEY collapses one level, * KEY expands recursively, / KEY collapses recursively\r\n  //          : New : OnGetNodeData event, Data* properties to link to virtual node structure\r\n  // v1.1.6.1 : Improved : Interaction.Lookup.VisibleNodesOnly to lookup within visible nodes.\r\n  // v1.1.6.2 : Improved : Less sensitive downward scrolling in combination with more options in TTMSFNCTableView descendant\r\n  // v1.1.6.3 : Fixed : Issue retrieving and inserting nodes based on row parameter\r\n  //          : Fixed : Issue with dblclick in combination with modal dialogs consuming focus\r\n  // v1.1.6.4 : Fixed : Issue with clearing/deleting nodes and focused node pointer\r\n  // v1.1.7.0 : New : OnBeforeSelectAllNodes & OnAfterSelectAllNodes events\r\n  // v1.1.7.1 : Fixed : Issue with LookupNode function not auto-expanding\r\n  // v1.1.8.0 : New : OnBeforeSortNodes & OnAfterSortNodes events\r\n  // v1.1.8.1 : Fixed : Issue with reordering nodes at root level\r\n  // v1.1.8.2 : Improved : MoveNode no longer destroys the node\r\n  //          : Fixed : Issue with special characters not rendering in HTML\r\n  // v1.2.0.0 : New : GlobalFont interface implemented\r\n  //          : New : Updated initial look\r\n  //          : New : Load JSON Objects with ViewJSON\r\n  //          : New : HTMLTemplate possible per column for node values\r\n  // v1.2.0.1 : Fixed : Issue with keyboard selection when not multiselect\r\n  // v1.2.0.2 : Fixed : Issue with inplace editors not being destroyed properly on iOS\r\n  // v1.2.0.3 : Fixed : Issue with MoveNode not being able to move to root\r\n  // v1.2.0.4 : Fixed : Issue with Drag & Drop of node to root not correctly referenced\r\n  // v1.2.0.5 : Fixed : Issue with uninitialized variable related to multi-select\r\n  // v1.2.1.0 : New : OnCustomizeFilterListBox event\r\n  //          : Improved : expand & collapse recursive node now also possible when node is already expanded or collapsed\r\n  //          : Fixed : Issue with multi-select in combination with drag & drop\r\n  // v1.2.1.1 : Improved : Encoding parameters for saving & loading data\r\n  // v1.2.1.2 : Fixed : Issue with expand & collapse\r\n  // v1.2.1.3 : Fixed : Issue with dragging on column makes scroll movement\r\n  // v1.2.2.0 : New : Column minimum width to use with stretching.\r\n  // v1.2.2.1 : Fixed : Issue with enabling sorting\r\n  // v1.2.2.2 : Fixed : Issue with calculating nodes under certain conditions\r\n  // v1.2.2.3 : Fixed : Issue with visibility of columns\r\n\r\n  CACHEWIDTH = 1000;\r\n  CACHEHEIGHT = 1000;\r\n  {$IFDEF ANDROID}\r\n  SCROLLINGDELAY = 40;\r\n  {$ELSE}\r\n  SCROLLINGDELAY = 0;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF FMXLIB}\r\n  TTMSFNCTreeViewColorExtended = $FFF4F4F4;\r\n  TTMSFNCTreeViewColorSelection = $FF1BADF8;\r\n  {$ELSE}\r\n  TTMSFNCTreeViewColorExtended = $F4F4F4;\r\n  TTMSFNCTreeViewColorSelection = $F8AD1B;\r\n  {$ENDIF}\r\n\r\n{$IFDEF FNCLIB}\r\nresourcestring\r\n{$ELSE}\r\nconst\r\n{$ENDIF}\r\n  sTMSFNCTreeViewFilterAll = '(All)';\r\n\r\ntype\r\n  TTMSFNCCustomTreeView = class;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCTreeViewCache = class(TObjectList)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCTreeViewCacheItem;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCTreeViewCacheItem);\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCTreeViewCacheItem read GetItem write SetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCTreeViewCache = class(TObjectList<TTMSFNCTreeViewCacheItem>);\r\n  {$ENDIF}\r\n  TTMSFNCTreeViewNodeCache = class(TTMSFNCTreeViewCache);\r\n  TTMSFNCTreeViewColumnsCache = class(TTMSFNCTreeViewCache);\r\n  TTMSFNCTreeViewColumnsTopCache = class(TTMSFNCTreeViewColumnsCache);\r\n  TTMSFNCTreeViewColumnsBottomCache = class(TTMSFNCTreeViewColumnsCache);\r\n  TTMSFNCTreeViewGroupsCache = class(TTMSFNCTreeViewCache);\r\n  TTMSFNCTreeViewGroupsTopCache = class(TTMSFNCTreeViewGroupsCache);\r\n  TTMSFNCTreeViewGroupsBottomCache = class(TTMSFNCTreeViewGroupsCache);\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCTreeViewDisplayList = class(TList)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCTreeViewCacheItem;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCTreeViewCacheItem);\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCTreeViewCacheItem read GetItem write SetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCTreeViewDisplayList = class(TList<TTMSFNCTreeViewCacheItem>);\r\n  {$ENDIF}\r\n  TTMSFNCTreeViewNodeDisplayList = class(TTMSFNCTreeViewDisplayList);\r\n  TTMSFNCTreeViewColumnsDisplayList = class(TTMSFNCTreeViewDisplayList);\r\n  TTMSFNCTreeViewColumnsTopDisplayList = class(TTMSFNCTreeViewColumnsDisplayList);\r\n  TTMSFNCTreeViewColumnsBottomDisplayList = class(TTMSFNCTreeViewColumnsDisplayList);\r\n  TTMSFNCTreeViewGroupsDisplayList = class(TTMSFNCTreeViewDisplayList);\r\n  TTMSFNCTreeViewGroupsTopDisplayList = class(TTMSFNCTreeViewGroupsDisplayList);\r\n  TTMSFNCTreeViewGroupsBottomDisplayList = class(TTMSFNCTreeViewGroupsDisplayList);\r\n\r\n  TTMSFNCTreeViewColumnsLayout = (tclTop, tclBottom);\r\n  TTMSFNCTreeViewColumnsLayouts = set of TTMSFNCTreeViewColumnsLayout;\r\n\r\n  TTMSFNCTreeViewGroupLayout = (tglTop, tglBottom);\r\n  TTMSFNCTreeViewGroupsLayouts = set of TTMSFNCTreeViewGroupLayout;\r\n\r\n  TTMSFNCTreeViewNodeHeightMode = (tnhmFixed, tnhmVariable);\r\n\r\n  TTMSFNCTreeViewSelectionArea = (tsaDefault, tsaFull, tsaFromLevel, tsaFromText);\r\n\r\n  TTMSFNCTreeViewNodesAppearance = class(TPersistent)\r\n  private\r\n    FTreeView: TTMSFNCCustomTreeView;\r\n    FFill: TTMSFNCGraphicsFill;\r\n    FStroke: TTMSFNCGraphicsStroke;\r\n    FFont: TTMSFNCGraphicsFont;\r\n    FDisabledFill: TTMSFNCGraphicsFill;\r\n    FSelectedFill: TTMSFNCGraphicsFill;\r\n    FDisabledStroke: TTMSFNCGraphicsStroke;\r\n    FSelectedStroke: TTMSFNCGraphicsStroke;\r\n    FSelectionArea: TTMSFNCTreeViewSelectionArea;\r\n    FExpandColumn: Integer;\r\n    FExpandWidth: Double;\r\n    FExpandHeight: Double;\r\n    FLevelIndent: Double;\r\n    FHeightMode: TTMSFNCTreeViewNodeHeightMode;\r\n    FFixedHeight: Double;\r\n    FVariableMinimumHeight: Double;\r\n    FSelectedFontColor: TTMSFNCGraphicsColor;\r\n    FDisabledFontColor: TTMSFNCGraphicsColor;\r\n    FExtendedFontColor: TTMSFNCGraphicsColor;\r\n    FExtendedSelectedFontColor: TTMSFNCGraphicsColor;\r\n    FExtendedDisabledFontColor: TTMSFNCGraphicsColor;\r\n    FExtendedDisabledFill: TTMSFNCGraphicsFill;\r\n    FExtendedFont: TTMSFNCGraphicsFont;\r\n    FExtendedSelectedFill: TTMSFNCGraphicsFill;\r\n    FExtendedDisabledStroke: TTMSFNCGraphicsStroke;\r\n    FExtendedSelectedStroke: TTMSFNCGraphicsStroke;\r\n    FExtendedFill: TTMSFNCGraphicsFill;\r\n    FExtendedStroke: TTMSFNCGraphicsStroke;\r\n    FShowLines: Boolean;\r\n    FExpandNodeIcon: TTMSFNCBitmap;\r\n    FCollapseNodeIcon: TTMSFNCBitmap;\r\n    FExpandNodeIconLarge: TTMSFNCBitmap;\r\n    FCollapseNodeIconLarge: TTMSFNCBitmap;\r\n    FColumnStroke: TTMSFNCGraphicsStroke;\r\n    FLineStroke: TTMSFNCGraphicsStroke;\r\n    FShowFocus: Boolean;\r\n    FSpacing: Double;\r\n    FDisabledTitleFontColor: TTMSFNCGraphicsColor;\r\n    FSelectedTitleFontColor: TTMSFNCGraphicsColor;\r\n    FTitleFont: TTMSFNCGraphicsFont;\r\n    procedure SetFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetDisabledFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetDisabledStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetSelectedFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetSelectedStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetSelectionArea(const Value: TTMSFNCTreeViewSelectionArea);\r\n    procedure SetExtendedFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetExtendedStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetExtendedFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetExtendedDisabledFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetExtendedDisabledStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetExtendedSelectedFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetExtendedSelectedStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetExpandColumn(const Value: Integer);\r\n    procedure SetExpandWidth(const Value: Double);\r\n    procedure SetExpandHeight(const Value: Double);\r\n    procedure SetLevelIndent(const Value: Double);\r\n    procedure SetFixedHeight(const Value: Double);\r\n    procedure SetVariableMinimumHeight(const Value: Double);\r\n    procedure SetSelectedFontColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetDisabledFontColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetExtendedFontColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetExtendedSelectedFontColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetExtendedDisabledFontColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetHeightMode(const Value: TTMSFNCTreeViewNodeHeightMode);\r\n    procedure SetShowLines(const Value: Boolean);\r\n    procedure SetCollapseNodeIcon(const Value: TTMSFNCBitmap);\r\n    procedure SetExpandNodeIcon(const Value: TTMSFNCBitmap);\r\n    procedure SetCollapseNodeIconLarge(const Value: TTMSFNCBitmap);\r\n    procedure SetExpandNodeIconLarge(const Value: TTMSFNCBitmap);\r\n    procedure SetColumnStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetLineStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetShowFocus(const Value: Boolean);\r\n    function IsSpacingStored: Boolean;\r\n    procedure SetSpacing(const Value: Double);\r\n    procedure SetDisabledTitleFontColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetSelectedTitleFontColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetTitleFont(const Value: TTMSFNCGraphicsFont);\r\n  protected\r\n    procedure Changed(Sender: TObject);\r\n    procedure BitmapChanged(Sender: TObject);\r\n  public\r\n    constructor Create(ATreeView: TTMSFNCCustomTreeView);\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n  published\r\n    property ShowFocus: Boolean read FShowFocus write SetShowFocus default True;\r\n    property ExpandColumn: Integer read FExpandColumn write SetExpandColumn default 0;\r\n    property ExpandWidth: Double read FExpandWidth write SetExpandWidth;\r\n    property ExpandHeight: Double read FExpandHeight write SetExpandHeight;\r\n    property LevelIndent: Double read FLevelIndent write SetLevelIndent;\r\n    property Spacing: Double read FSpacing write SetSpacing stored IsSpacingStored nodefault;\r\n    property FixedHeight: Double read FFixedHeight write SetFixedHeight;\r\n    property VariableMinimumHeight: Double read FVariableMinimumHeight write SetVariableMinimumHeight;\r\n    property HeightMode: TTMSFNCTreeViewNodeHeightMode read FHeightMode write SetHeightMode default tnhmFixed;\r\n    property ShowLines: Boolean read FShowLines write SetShowLines default True;\r\n\r\n    property Fill: TTMSFNCGraphicsFill read FFill write SetFill;\r\n    property Stroke: TTMSFNCGraphicsStroke read FStroke write SetStroke;\r\n    property ColumnStroke: TTMSFNCGraphicsStroke read FColumnStroke write SetColumnStroke;\r\n    property LineStroke: TTMSFNCGraphicsStroke read FLineStroke write SetLineStroke;\r\n    property Font: TTMSFNCGraphicsFont read FFont write SetFont;\r\n    property TitleFont: TTMSFNCGraphicsFont read FTitleFont write SetTitleFont;\r\n    property SelectedFontColor: TTMSFNCGraphicsColor read FSelectedFontColor write SetSelectedFontColor default gcWhite;\r\n    property DisabledFontColor: TTMSFNCGraphicsColor read FDisabledFontColor write SetDisabledFontColor default gcSilver;\r\n    property SelectedTitleFontColor: TTMSFNCGraphicsColor read FSelectedTitleFontColor write SetSelectedTitleFontColor default gcWhite;\r\n    property DisabledTitleFontColor: TTMSFNCGraphicsColor read FDisabledTitleFontColor write SetDisabledTitleFontColor default gcSilver;\r\n\r\n    property ExtendedFontColor: TTMSFNCGraphicsColor read FExtendedFontColor write SetExtendedFontColor default gcBlack;\r\n    property ExtendedSelectedFontColor: TTMSFNCGraphicsColor read FExtendedSelectedFontColor write SetExtendedSelectedFontColor default gcWhite;\r\n    property ExtendedDisabledFontColor: TTMSFNCGraphicsColor read FExtendedDisabledFontColor write SetExtendedDisabledFontColor default gcSilver;\r\n\r\n    property SelectedFill: TTMSFNCGraphicsFill read FSelectedFill write SetSelectedFill;\r\n    property SelectedStroke: TTMSFNCGraphicsStroke read FSelectedStroke write SetSelectedStroke;\r\n    property SelectionArea: TTMSFNCTreeViewSelectionArea read FSelectionArea write SetSelectionArea default tsaFromText;\r\n\r\n    property DisabledFill: TTMSFNCGraphicsFill read FDisabledFill write SetDisabledFill;\r\n    property DisabledStroke: TTMSFNCGraphicsStroke read FDisabledStroke write SetDisabledStroke;\r\n\r\n    property ExtendedFill: TTMSFNCGraphicsFill read FExtendedFill write SetExtendedFill;\r\n    property ExtendedStroke: TTMSFNCGraphicsStroke read FExtendedStroke write SetExtendedStroke;\r\n    property ExtendedFont: TTMSFNCGraphicsFont read FExtendedFont write SetExtendedFont;\r\n\r\n    property ExtendedSelectedFill: TTMSFNCGraphicsFill read FExtendedSelectedFill write SetExtendedSelectedFill;\r\n    property ExtendedSelectedStroke: TTMSFNCGraphicsStroke read FExtendedSelectedStroke write SetExtendedSelectedStroke;\r\n\r\n    property ExtendedDisabledFill: TTMSFNCGraphicsFill read FExtendedDisabledFill write SetExtendedDisabledFill;\r\n    property ExtendedDisabledStroke: TTMSFNCGraphicsStroke read FExtendedDisabledStroke write SetExtendedDisabledStroke;\r\n\r\n    property ExpandNodeIcon: TTMSFNCBitmap read FExpandNodeIcon write SetExpandNodeIcon;\r\n    property CollapseNodeIcon: TTMSFNCBitmap read FCollapseNodeIcon write SetCollapseNodeIcon;\r\n    property ExpandNodeIconLarge: TTMSFNCBitmap read FExpandNodeIconLarge write SetExpandNodeIconLarge;\r\n    property CollapseNodeIconLarge: TTMSFNCBitmap read FCollapseNodeIconLarge write SetCollapseNodeIconLarge;\r\n  end;\r\n\r\n  TTMSFNCTreeViewColumnsAppearance = class(TPersistent)\r\n  private\r\n    FTreeView: TTMSFNCCustomTreeView;\r\n    FLayouts: TTMSFNCTreeViewColumnsLayouts;\r\n    FStretch: Boolean;\r\n    FStretchColumn: Integer;\r\n    FStretchAll: Boolean;\r\n    FBottomSize: Double;\r\n    FTopSize: Double;\r\n    FBottomFill: TTMSFNCGraphicsFill;\r\n    FBottomStroke: TTMSFNCGraphicsStroke;\r\n    FTopFill: TTMSFNCGraphicsFill;\r\n    FTopStroke: TTMSFNCGraphicsStroke;\r\n    FTopFont: TTMSFNCGraphicsFont;\r\n    FBottomFont: TTMSFNCGraphicsFont;\r\n    FTopVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FTopHorizontalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FBottomHorizontalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FBottomVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FTopVerticalText: Boolean;\r\n    FBottomVerticalText: Boolean;\r\n    FFillEmptySpaces: Boolean;\r\n    FSortIndicatorColor: TTMSFNCGraphicsColor;\r\n    FOptimizedColumnDisplay: Boolean;\r\n    procedure SetLayouts(const Value: TTMSFNCTreeViewColumnsLayouts);\r\n    procedure SetStretch(const Value: Boolean);\r\n    procedure SetStretchAll(const Value: Boolean);\r\n    procedure SetStretchColumn(const Value: Integer);\r\n    procedure SetBottomSize(const Value: Double);\r\n    procedure SetTopSize(const Value: Double);\r\n    procedure SetBottomFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetBottomStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetTopFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetTopStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetBottomFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetTopFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetTopVerticalText(const Value: Boolean);\r\n    procedure SetBottomVerticalText(const Value: Boolean);\r\n    procedure SetFillEmptySpaces(const Value: Boolean);\r\n    procedure SetSortIndicatorColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetOptimizedColumnDisplay(const Value: Boolean);\r\n  protected\r\n    procedure Changed(Sender: TObject);\r\n  public\r\n    constructor Create(ATreeView: TTMSFNCCustomTreeView);\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property Layouts: TTMSFNCTreeViewColumnsLayouts read FLayouts write SetLayouts default [tclTop];\r\n    property Stretch: Boolean read FStretch write SetStretch default True;\r\n    property StretchColumn: Integer read FStretchColumn write SetStretchColumn default -1;\r\n    property StretchAll: Boolean read FStretchAll write SetStretchAll default True;\r\n    property TopSize: Double read FTopSize write SetTopSize;\r\n    property BottomSize: Double read FBottomSize write SetBottomSize;\r\n    property TopFont: TTMSFNCGraphicsFont read FTopFont write SetTopFont;\r\n    property BottomFont: TTMSFNCGraphicsFont read FBottomFont write SetBottomFont;\r\n    property TopFill: TTMSFNCGraphicsFill read FTopFill write SetTopFill;\r\n    property BottomFill: TTMSFNCGraphicsFill read FBottomFill write SetBottomFill;\r\n    property TopStroke: TTMSFNCGraphicsStroke read FTopStroke write SetTopStroke;\r\n    property BottomStroke: TTMSFNCGraphicsStroke read FBottomStroke write SetBottomStroke;\r\n    property TopVerticalText: Boolean read FTopVerticalText write SetTopVerticalText default False;\r\n    property BottomVerticalText: Boolean read FBottomVerticalText write SetBottomVerticalText default False;\r\n    property FillEmptySpaces: Boolean read FFillEmptySpaces write SetFillEmptySpaces default True;\r\n    property SortIndicatorColor: TTMSFNCGraphicsColor read FSortIndicatorColor write SetSortIndicatorColor default gcSteelblue;\r\n    property OptimizedColumnDisplay: Boolean read FOptimizedColumnDisplay write SetOptimizedColumnDisplay default True;\r\n  end;\r\n\r\n  TTMSFNCTreeViewColumnEmptySpace = (tcesTopLeft, tcesTopRight, tcesBottomLeft, tcesBottomRight);\r\n  TTMSFNCTreeViewGroupEmptySpace = (tgesTopLeft, tgesTopRight, tgesBottomLeft, tgesBottomRight);\r\n\r\n  TTMSFNCTreeViewGroupsAppearance = class(TPersistent)\r\n  private\r\n    FTreeView: TTMSFNCCustomTreeView;\r\n    FLayouts: TTMSFNCTreeViewGroupsLayouts;\r\n    FBottomSize: Double;\r\n    FTopSize: Double;\r\n    FBottomFill: TTMSFNCGraphicsFill;\r\n    FBottomStroke: TTMSFNCGraphicsStroke;\r\n    FTopFill: TTMSFNCGraphicsFill;\r\n    FTopStroke: TTMSFNCGraphicsStroke;\r\n    FTopFont: TTMSFNCGraphicsFont;\r\n    FBottomFont: TTMSFNCGraphicsFont;\r\n    FBottomHorizontalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FTopVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FTopHorizontalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FBottomVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FTopVerticalText: Boolean;\r\n    FBottomVerticalText: Boolean;\r\n    FFillEmptySpaces: Boolean;\r\n    procedure SetLayouts(const Value: TTMSFNCTreeViewGroupsLayouts);\r\n    procedure SetBottomSize(const Value: Double);\r\n    procedure SetTopSize(const Value: Double);\r\n    procedure SetBottomFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetBottomStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetTopFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetTopStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetBottomFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetTopFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetBottomHorizontalTextAlign(\r\n      const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetBottomVerticalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetTopHorizontalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetTopVerticalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetTopVerticalText(const Value: Boolean);\r\n    procedure SetBottomVerticalText(const Value: Boolean);\r\n    procedure SetFillEmptySpaces(const Value: Boolean);\r\n  protected\r\n    procedure Changed(Sender: TObject);\r\n  public\r\n    constructor Create(ATreeView: TTMSFNCCustomTreeView);\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property Layouts: TTMSFNCTreeViewGroupsLayouts read FLayouts write SetLayouts default [tglTop];\r\n    property TopSize: Double read FTopSize write SetTopSize;\r\n    property BottomSize: Double read FBottomSize write SetBottomSize;\r\n    property TopFill: TTMSFNCGraphicsFill read FTopFill write SetTopFill;\r\n    property BottomFill: TTMSFNCGraphicsFill read FBottomFill write SetBottomFill;\r\n    property TopFont: TTMSFNCGraphicsFont read FTopFont write SetTopFont;\r\n    property BottomFont: TTMSFNCGraphicsFont read FBottomFont write SetBottomFont;\r\n    property TopStroke: TTMSFNCGraphicsStroke read FTopStroke write SetTopStroke;\r\n    property BottomStroke: TTMSFNCGraphicsStroke read FBottomStroke write SetBottomStroke;\r\n    property TopHorizontalTextAlign: TTMSFNCGraphicsTextAlign read FTopHorizontalTextAlign write SetTopHorizontalTextAlign default gtaCenter;\r\n    property TopVerticalTextAlign: TTMSFNCGraphicsTextAlign read FTopVerticalTextAlign write SetTopVerticalTextAlign default gtaCenter;\r\n    property BottomHorizontalTextAlign: TTMSFNCGraphicsTextAlign read FBottomHorizontalTextAlign write SetBottomHorizontalTextAlign default gtaCenter;\r\n    property BottomVerticalTextAlign: TTMSFNCGraphicsTextAlign read FBottomVerticalTextAlign write SetBottomVerticalTextAlign default gtaCenter;\r\n    property TopVerticalText: Boolean read FTopVerticalText write SetTopVerticalText default False;\r\n    property BottomVerticalText: Boolean read FBottomVerticalText write SetBottomVerticalText default False;\r\n    property FillEmptySpaces: Boolean read FFillEmptySpaces write SetFillEmptySpaces default True;\r\n  end;\r\n\r\n  TTMSFNCTreeViewBeforeDrawSortIndicatorEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ASortIndex: Integer; ASortKind: TTMSFNCTreeViewNodesSortKind; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCTreeViewAfterDrawSortIndicatorEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ASortIndex: Integer; ASortKind: TTMSFNCTreeViewNodesSortKind) of object;\r\n  TTMSFNCTreeViewNodeCompareEvent = procedure(Sender: TObject; Node1, Node2: TTMSFNCTreeViewNode; AColumn: Integer; var ACompareResult: Integer) of object;\r\n  TTMSFNCTreeViewBeforeSizeColumnEvent = procedure(Sender: TObject; AColumn: Integer; AColumnSize: Double; var ANewColumnSize: Double; var AAllow: Boolean) of object;\r\n  TTMSFNCTreeViewAfterSizeColumnEvent = procedure(Sender: TObject; AColumn: Integer; AColumnSize: Double) of object;\r\n  TTMSFNCTreeViewBeforeDrawColumnEmptySpaceEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; ASpace: TTMSFNCTreeViewColumnEmptySpace; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCTreeViewAfterDrawColumnEmptySpaceEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; ASpace: TTMSFNCTreeViewColumnEmptySpace) of object;\r\n  TTMSFNCTreeViewBeforeDrawGroupEmptySpaceEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; ASpace: TTMSFNCTreeViewGroupEmptySpace; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCTreeViewAfterDrawGroupEmptySpaceEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; ASpace: TTMSFNCTreeViewGroupEmptySpace) of object;\r\n\r\n  TTMSFNCTreeViewNeedFilterDropDownDataEvent = procedure(Sender: TObject; AColumn: Integer; AValues: TStrings) of object;\r\n  TTMSFNCTreeViewBeforeDrawColumnEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCTreeViewAfterDrawColumnEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer) of object;\r\n  TTMSFNCTreeViewBeforeDrawColumnHeaderEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCTreeViewAfterDrawColumnHeaderEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind) of object;\r\n  TTMSFNCTreeViewBeforeDrawGroupEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AGroup, AStartColumn, AEndColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCTreeViewAfterDrawGroupEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AGroup, AStartColumn, AEndColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind) of object;\r\n\r\n  TTMSFNCTreeViewBeforeDrawNodeEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; ANode: TTMSFNCTreeViewVirtualNode; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCTreeViewAfterDrawNodeEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; ANode: TTMSFNCTreeViewVirtualNode) of object;\r\n\r\n  TTMSFNCTreeViewGetNumberOfNodesEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; var ANumberOfNodes: Integer) of object;\r\n\r\n  TTMSFNCTreeViewGetColumnTextEvent = procedure(Sender: TObject; AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var AText: String) of object;\r\n  TTMSFNCTreeViewBeforeDrawColumnTextEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; AText: String; var AAllow: Boolean) of object;\r\n  TTMSFNCTreeViewAfterDrawColumnTextEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; AText: String) of object;\r\n  TTMSFNCTreeViewGetGroupTextEvent = procedure(Sender: TObject; AGroup: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var AText: String) of object;\r\n  TTMSFNCTreeViewBeforeDrawGroupTextEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AGroup, AStartColumn, AEndColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; AText: String; var AAllow: Boolean) of object;\r\n  TTMSFNCTreeViewAfterDrawGroupTextEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AGroup, AStartColumn, AEndColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; AText: String) of object;\r\n  TTMSFNCTreeViewNodeAnchorClickEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AAnchor: String) of object;\r\n  TTMSFNCTreeViewNodeTitleAnchorClickEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AAnchor: String) of object;\r\n  TTMSFNCTreeViewNodeChangedEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode) of object;\r\n  TTMSFNCTreeViewGetNodeTextEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AMode: TTMSFNCTreeViewNodeTextMode; var AText: String) of object;\r\n  TTMSFNCTreeViewGetNodeDataEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode) of object;\r\n  TTMSFNCTreeViewGetNodeTitleEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AMode: TTMSFNCTreeViewNodeTextMode; var ATitle: String) of object;\r\n  TTMSFNCTreeViewGetNodeTitleExpandedEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AExpanded: Boolean) of object;\r\n  TTMSFNCTreeViewGetNodeSidesEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; var ASides: TTMSFNCGraphicsSides) of object;\r\n  TTMSFNCTreeViewGetNodeRoundingEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; var ARounding: Integer; var ACorners: TTMSFNCGraphicsCorners) of object;\r\n  TTMSFNCTreeViewGetNodeTrimmingEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ATrimming: TTMSFNCGraphicsTextTrimming) of object;\r\n  TTMSFNCTreeViewGetNodeHorizontalTextAlignEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AHorizontalTextAlign: TTMSFNCGraphicsTextAlign) of object;\r\n  TTMSFNCTreeViewGetNodeVerticalTextAlignEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AVerticalTextAlign: TTMSFNCGraphicsTextAlign) of object;\r\n  TTMSFNCTreeViewGetNodeWordWrappingEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AWordWrapping: Boolean) of object;\r\n  TTMSFNCTreeViewGetNodeExtraSizeEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AExtraSize: Single) of object;\r\n  TTMSFNCTreeViewGetNodeTitleExtraSizeEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ATitleExtraSize: Single) of object;\r\n  TTMSFNCTreeViewGetColumnTrimmingEvent = procedure(Sender: TObject; AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var ATrimming: TTMSFNCGraphicsTextTrimming) of object;\r\n  TTMSFNCTreeViewGetColumnHorizontalTextAlignEvent = procedure(Sender: TObject; AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var AHorizontalTextAlign: TTMSFNCGraphicsTextAlign) of object;\r\n  TTMSFNCTreeViewGetColumnVerticalTextAlignEvent = procedure(Sender: TObject; AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var AVerticalTextAlign: TTMSFNCGraphicsTextAlign) of object;\r\n  TTMSFNCTreeViewGetColumnWordWrappingEvent = procedure(Sender: TObject; AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var AWordWrapping: Boolean) of object;\r\n  TTMSFNCTreeViewGetNodeIconEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; ALarge: Boolean; var AIcon: TTMSFNCBitmap) of object;\r\n  TTMSFNCTreeViewGetNodeIconSizeEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; ALarge: Boolean; AIcon: TTMSFNCBitmap; var AIconWidth: Double; var AIconHeight: Double) of object;\r\n  TTMSFNCTreeViewFocusedNodeChangedEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode) of object;\r\n  TTMSFNCTreeViewGetNodeHeightEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AHeight: Double) of object;\r\n  TTMSFNCTreeViewBeforeDrawNodeTextEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; {$IFNDEF UIPACK}var{$ENDIF} AText: String; var AAllow: Boolean) of object;\r\n  TTMSFNCTreeViewAfterDrawNodeTextEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; AText: String) of object;\r\n  TTMSFNCTreeViewBeforeDrawNodeTitleEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; ATitle: String; var AAllow: Boolean) of object;\r\n  TTMSFNCTreeViewAfterDrawNodeTitleEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; ATitle: String) of object;\r\n  TTMSFNCTreeViewBeforeDrawNodeExpandEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; AExpand:TTMSFNCBitmap; var AAllow: Boolean) of object;\r\n  TTMSFNCTreeViewAfterDrawNodeExpandEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; AExpand:TTMSFNCBitmap) of object;\r\n  TTMSFNCTreeViewBeforeDrawNodeIconEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; AIcon:TTMSFNCBitmap; var AAllow: Boolean) of object;\r\n  TTMSFNCTreeViewAfterDrawNodeIconEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; AIcon:TTMSFNCBitmap) of object;\r\n  TTMSFNCTreeViewBeforeDrawNodeExtraEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; var AAllow: Boolean) of object;\r\n  TTMSFNCTreeViewAfterDrawNodeExtraEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode) of object;\r\n  TTMSFNCTreeViewDrawNodeExtraEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode) of object;\r\n  TTMSFNCTreeViewBeforeDrawNodeTitleExtraEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; var AAllow: Boolean) of object;\r\n  TTMSFNCTreeViewAfterDrawNodeTitleExtraEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode) of object;\r\n  TTMSFNCTreeViewDrawNodeTitleExtraEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode) of object;\r\n  TTMSFNCTreeViewBeforeDrawNodeCheckEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; ACheck: TTMSFNCBitmap; var AAllow: Boolean) of object;\r\n  TTMSFNCTreeViewAfterDrawNodeCheckEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; ACheck: TTMSFNCBitmap) of object;\r\n  TTMSFNCTreeViewGetNodeColorEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; var AColor: TTMSFNCGraphicsColor) of object;\r\n  TTMSFNCTreeViewGetNodeCheckTypeEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ACheckType: TTMSFNCTreeViewNodeCheckType) of object;\r\n  TTMSFNCTreeViewGetNodeTextColorEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ATextColor: TTMSFNCGraphicsColor) of object;\r\n  TTMSFNCTreeViewGetNodeTitleColorEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ATitleColor: TTMSFNCGraphicsColor) of object;\r\n  TTMSFNCTreeViewIsNodeExtendedEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; var AExtended: Boolean) of object;\r\n  TTMSFNCTreeViewColumnAnchorClickEvent = procedure(Sender: TObject; AColumn: Integer; AAnchor: String) of object;\r\n  TTMSFNCTreeViewCustomizeFilterListBoxEvent = procedure(Sender: TObject; AColumn: Integer; AListBox: TListBox) of object;\r\n\r\n  TTMSFNCTreeViewIsNodeDeletableEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; var ADeletable: Boolean) of object;\r\n  TTMSFNCTreeViewIsNodeCheckedEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AChecked: Boolean) of object;\r\n  TTMSFNCTreeViewIsNodeExpandedEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; var AExpanded: Boolean) of object;\r\n  TTMSFNCTreeViewIsNodeVisibleEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; var AVisible: Boolean) of object;\r\n  TTMSFNCTreeViewIsNodeEnabledEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; var AEnabled: Boolean) of object;\r\n\r\n  TTMSFNCTreeViewBeforeUpdateNodeEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AText: String; var ACanUpdate: Boolean) of object;\r\n  TTMSFNCTreeViewAfterUpdateNodeEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer) of object;\r\n  TTMSFNCTreeViewBeforeCollapseNodeEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; var ACanCollapse: Boolean) of object;\r\n  TTMSFNCTreeViewAfterCollapseNodeEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode) of object;\r\n  TTMSFNCTreeViewBeforeExpandNodeEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; var ACanExpand: Boolean) of object;\r\n  TTMSFNCTreeViewAfterExpandNodeEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode) of object;\r\n  TTMSFNCTreeViewBeforeCheckNodeEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ACanCheck: Boolean) of object;\r\n  TTMSFNCTreeViewAfterCheckNodeEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer) of object;\r\n  TTMSFNCTreeViewBeforeUnCheckNodeEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ACanUnCheck: Boolean) of object;\r\n  TTMSFNCTreeViewAfterUnCheckNodeEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer) of object;\r\n\r\n  TTMSFNCTreeViewBeforeSelectAllNodesEvent = procedure(Sender: TObject; var ACanSelect: Boolean) of object;\r\n  TTMSFNCTreeViewAfterSelectAllNodesEvent = procedure(Sender: TObject) of object;\r\n\r\n  TTMSFNCTreeViewBeforeSelectNodeEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; var ACanSelect: Boolean) of object;\r\n  TTMSFNCTreeViewAfterSelectNodeEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode) of object;\r\n  TTMSFNCTreeViewBeforeUnSelectNodeEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; var ACanUnSelect: Boolean) of object;\r\n  TTMSFNCTreeViewAfterUnSelectNodeEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode) of object;\r\n\r\n  TTMSFNCTreeViewNodeClickEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode) of object;\r\n  TTMSFNCTreeViewNodeValueClickEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer) of object;\r\n  TTMSFNCTreeViewNodeMouseEnterEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode) of object;\r\n  TTMSFNCTreeViewNodeMouseLeaveEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode) of object;\r\n\r\n  TTMSFNCTreeViewScrollEvent = procedure(Sender: TObject; APosition: Single) of object;\r\n\r\n  {$IFDEF FNCLIB}\r\n  TTMSFNCTreeViewBeforeAddJSONNodeEvent = procedure(Sender: TObject; AJSONValue: TJSONValue; var AAddNode: Boolean) of object;\r\n  TTMSFNCTreeViewAfterAddJSONNodeEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewNode; AJSONValue: TJSONValue) of object;\r\n  {$ENDIF}\r\n  TTMSFNCTreeViewGetHTMLTemplateValueEvent = procedure(Sender: TObject; ANodeValue: TTMSFNCTreeViewNodeValue; AName: string; var AValue: string) of object;\r\n  TTMSFNCTreeViewGetHTMLTemplateEvent = procedure(Sender: TObject; ANodeValue: TTMSFNCTreeViewNodeValue; AColumnIndex: Integer; var AHTMLTemplate: string) of object;\r\n\r\n  {$IFDEF FMXLIB}\r\n  TTMSFNCTreeViewInplaceEditor = TControl;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  TTMSFNCTreeViewInplaceEditor = TWinControl;\r\n  {$ENDIF}\r\n  TTMSFNCTreeViewInplaceEditorClass = class of TTMSFNCTreeViewInplaceEditor;\r\n\r\n  TTMSFNCTreeViewCustomizeInplaceEditorEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AInplaceEditor: TTMSFNCTreeViewInplaceEditor) of object;\r\n  TTMSFNCTreeViewGetInplaceEditorRectEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AInplaceEditor: TTMSFNCTreeViewInplaceEditor; var AInplaceEditorRect: TRectF) of object;\r\n  TTMSFNCTreeViewGetInplaceEditorEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;{$IFDEF FMXLIB} var ATransparent: Boolean; {$ENDIF}var AInplaceEditorClass: TTMSFNCTreeViewInplaceEditorClass) of object;\r\n  TTMSFNCTreeViewBeforeOpenInplaceEditorEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ACanOpen: Boolean) of object;\r\n  TTMSFNCTreeViewAfterOpenInplaceEditorEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AInplaceEditor: TTMSFNCTreeViewInplaceEditor; AInplaceEditorRect: TRectF) of object;\r\n  TTMSFNCTreeViewCloseInplaceEditorEvent = procedure(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AInplaceEditor: TTMSFNCTreeViewInplaceEditor; ACancelled: Boolean; var ACanClose: Boolean) of object;\r\n  TTMSFNCTreeViewBeforeReorderNodeEvent = procedure(Sender: TObject; AFromNode, AToNode: TTMSFNCTreeViewVirtualNode; var ACanReorder: Boolean) of object;\r\n  TTMSFNCTreeViewAfterReorderNodeEvent = procedure(Sender: TObject; AFromNode, AToNode: TTMSFNCTreeViewVirtualNode) of object;\r\n  TTMSFNCTreeViewBeforeSortNodesEvent = procedure(Sender: TObject; ASortColumn: Integer; ASortMode: TTMSFNCTreeViewNodesSortMode; var ACanSort: Boolean) of object;\r\n  TTMSFNCTreeViewAfterSortNodesEvent = procedure(Sender: TObject; ASortColumn: Integer; ASortMode: TTMSFNCTreeViewNodesSortMode) of object;\r\n  TTMSFNCTreeViewBeforeDropNodeEvent = procedure(Sender: TObject; AFromNode, AToNode: TTMSFNCTreeViewVirtualNode; var ACanDrop: Boolean) of object;\r\n  TTMSFNCTreeViewAfterDropNodeEvent = procedure(Sender: TObject; AFromNode, AToNode: TTMSFNCTreeViewVirtualNode) of object;\r\n  TTMSFNCTreeViewBeforeCopyToClipboardEvent = procedure(Sender: TObject; var ACanCopy: Boolean) of object;\r\n  TTMSFNCTreeViewBeforeCutToClipboardEvent = procedure(Sender: TObject; var ACanCut: Boolean) of object;\r\n  TTMSFNCTreeViewBeforePasteFromClipboardEvent = procedure(Sender: TObject; var ACanPaste: Boolean) of object;\r\n  TTMSFNCTreeViewAfterCopyToClipboardEvent = procedure(Sender: TObject) of object;\r\n  TTMSFNCTreeViewAfterCutToClipboardEvent = procedure(Sender: TObject) of object;\r\n  TTMSFNCTreeViewAfterPasteFromClipboardEvent = procedure(Sender: TObject) of object;\r\n\r\n  TTMSFNCTreeViewFilterSelectEvent = procedure(Sender: TObject; AColumn: Integer; var ACondition: string) of object;\r\n\r\n  TTMSFNCTreeViewMouseEditMode = (tmemDoubleClick, tmemSingleClick, tmemSingleClickOnSelectedNode);\r\n\r\n  TTMSFNCTreeViewClipboardMode = (tcmNone, tcmTextOnly, tcmFull);\r\n  TTMSFNCTreeViewDragDropMode = (tdmNone, tdmMove, tdmCopy);\r\n\r\n  TMultiSelectStyles = (msControlSelect, msShiftSelect, msVisibleOnly, msSiblingOnly);\r\n  TMultiSelectStyle = set of TMultiSelectStyles;\r\n\r\n  TTMSFNCTreeViewInteraction = class;\r\n\r\n  TTMSFNCTreeViewLookup = class(TPersistent)\r\n  private\r\n    FOwner: TTMSFNCTreeViewInteraction;\r\n    FEnabled: Boolean;\r\n    FCaseSensitive: Boolean;\r\n    FIncremental: Boolean;\r\n    FColumn: Integer;\r\n    FAutoSelect: Boolean;\r\n    FRootNodesOnly: Boolean;\r\n    FAutoExpand: Boolean;\r\n    FVisibleNodesOnly: Boolean;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCTreeViewInteraction);\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property CaseSensitive: Boolean read FCaseSensitive write FCaseSensitive default False;\r\n    property Enabled: Boolean read FEnabled write FEnabled default True;\r\n    property Incremental: Boolean read FIncremental write FIncremental default True;\r\n    property Column: Integer read FColumn write FColumn default -1;\r\n    property RootNodesOnly: Boolean read FRootNodesOnly write FRootNodesOnly default False;\r\n    property VisibleNodesOnly: Boolean read FVisibleNodesOnly write FVisibleNodesOnly default False;\r\n    property AutoExpand: Boolean read FAutoExpand write FAutoExpand default False;\r\n    property AutoSelect: Boolean read FAutoSelect write FAutoSelect default True;\r\n  end;\r\n\r\n  TTMSFNCTreeViewInteraction = class(TPersistent)\r\n  private\r\n    FTreeView: TTMSFNCCustomTreeView;\r\n    FMultiSelect: Boolean;\r\n    FTouchScrolling: Boolean;\r\n    FReadOnly: Boolean;\r\n    FColumnSizing: Boolean;\r\n    FColumnAutoSizeOnDblClick: Boolean;\r\n    FExtendedSelectable: Boolean;\r\n    FSelectionFollowsFocus: Boolean;\r\n    FKeyboardEdit: Boolean;\r\n    FMouseEditMode: TTMSFNCTreeViewMouseEditMode;\r\n    FExtendedEditable: Boolean;\r\n    FClipboardMode: TTMSFNCTreeViewClipboardMode;\r\n    FReorder: Boolean;\r\n    FDragDropMode: TTMSFNCTreeViewDragDropMode;\r\n    FLookup: TTMSFNCTreeViewLookup;\r\n    FExpandCollapseOnDblClick: Boolean;\r\n    FAutoOpenURL: Boolean;\r\n    FURLDetectionOnMouseMove: Boolean;\r\n    FMouseWheelDelta: Single;\r\n    FAnimationFactor: Single;\r\n    FMultiSelectStyle: TMultiSelectStyle;\r\n    procedure SetMultiSelect(const Value: Boolean);\r\n    procedure SetTouchScrolling(const Value: Boolean);\r\n    procedure SetReadOnly(const Value: Boolean);\r\n    procedure SetColumnSizing(const Value: Boolean);\r\n    procedure SetColumnAutoSizeOnDblClick(const Value: Boolean);\r\n    procedure SetExtendedSelectable(const Value: Boolean);\r\n    procedure SetSelectionFollowsFocus(const Value: Boolean);\r\n    procedure SetMouseEditMode(const Value: TTMSFNCTreeViewMouseEditMode);\r\n    procedure SetExtendedEditable(const Value: Boolean);\r\n    procedure SetDragDropMode(const Value: TTMSFNCTreeViewDragDropMode);\r\n    procedure SetReorder(const Value: Boolean);\r\n    procedure SetLookup(const Value: TTMSFNCTreeViewLookup);\r\n    procedure SetExpandCollapseOnDblClick(const Value: Boolean);\r\n    procedure SetURLDetectionOnMouseMove(const Value: Boolean);\r\n    function IsMouseWheelDeltaStored: Boolean;\r\n    procedure SetMouseWheelDelta(const Value: Single);\r\n    function IsAnimationFactorStored: Boolean;\r\n    procedure SetMultiSelectStyle(const Value: TMultiSelectStyle);\r\n  protected\r\n    property SelectionFollowsFocus: Boolean read FSelectionFollowsFocus write SetSelectionFollowsFocus default True;\r\n  public\r\n    constructor Create(ATreeView: TTMSFNCCustomTreeView);\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property AnimationFactor: Single read FAnimationFactor write FAnimationFactor stored IsAnimationFactorStored nodefault;\r\n    property AutoOpenURL: Boolean read FAutoOpenURL write FAutoOpenURL default True;\r\n    property MultiSelect: Boolean read FMultiSelect write SetMultiSelect default false;\r\n    property MultiSelectStyle: TMultiSelectStyle read FMultiSelectStyle write SetMultiSelectStyle default [msControlSelect, msShiftSelect];\r\n    property ExtendedSelectable: Boolean read FExtendedSelectable write SetExtendedSelectable default False;\r\n    property ExtendedEditable: Boolean read FExtendedEditable write SetExtendedEditable default False;\r\n    property MouseEditMode: TTMSFNCTreeViewMouseEditMode read FMouseEditMode write SetMouseEditMode default tmemSingleClickOnSelectedNode;\r\n    property MouseWheelDelta: Single read FMouseWheelDelta write SetMouseWheelDelta stored IsMouseWheelDeltaStored nodefault;\r\n    property TouchScrolling: Boolean read FTouchScrolling write SetTouchScrolling default True;\r\n    property KeyboardEdit: Boolean read FKeyboardEdit write FKeyboardEdit default True;\r\n    property ReadOnly: Boolean read FReadOnly write SetReadOnly default False;\r\n    property ExpandCollapseOnDblClick: Boolean read FExpandCollapseOnDblClick write SetExpandCollapseOnDblClick default True;\r\n    property ColumnSizing: Boolean read FColumnSizing write SetColumnSizing default False;\r\n    property ColumnAutoSizeOnDblClick: Boolean read FColumnAutoSizeOnDblClick write SetColumnAutoSizeOnDblClick default False;\r\n    property ClipboardMode: TTMSFNCTreeViewClipboardMode read FClipboardMode write FClipboardMode default tcmNone;\r\n    property Reorder: Boolean read FReorder write SetReorder default False;\r\n    property DragDropMode: TTMSFNCTreeViewDragDropMode read FDragDropMode write SetDragDropMode default tdmNone;\r\n    property Lookup: TTMSFNCTreeViewLookup read FLookup write SetLookup;\r\n    property URLDetectionOnMouseMove: Boolean read FURLDetectionOnMouseMove write SetURLDetectionOnMouseMove default true;\r\n  end;\r\n\r\n  TTMSFNCTreeViewSceneDrawingScale = record\r\n    SceneScale: Double;\r\n    DrawingScale: TPointF;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCTreeViewSelectedNodes = class(TList)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCTreeViewVirtualNode;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCTreeViewVirtualNode);\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCTreeViewVirtualNode read GetItem write SetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCTreeViewSelectedNodes = class(TList<TTMSFNCTreeViewVirtualNode>);\r\n  {$ENDIF}\r\n  TTMSFNCTreeViewNodeArray = array of TTMSFNCTreeViewNode;\r\n\r\n  TTMSFNCTreeViewNodeCheck = record\r\n    AColumn: Integer;\r\n    ANode: TTMSFNCTreeViewVirtualNode;\r\n  end;\r\n\r\n  TTMSFNCTreeViewNodeIcon = record\r\n    AColumn: Integer;\r\n    ANode: TTMSFNCTreeViewVirtualNode;\r\n  end;\r\n\r\n  TTMSFNCTreeViewNodeAnchor = record\r\n    AAnchor: String;\r\n    AColumn: Integer;\r\n  end;\r\n\r\n  TTMSFNCTreeViewComboBox = class(TComboBox);\r\n  {$IFDEF FMXLIB}\r\n  TTMSFNCTreeViewCaretPosition = TCaretPosition;\r\n  TTMSFNCTreeViewMemo = class(TMemo)\r\n  end;\r\n  TTMSFNCTreeViewEdit = class(TEdit)\r\n  protected\r\n    function GetDefaultStyleLookupName: string; override;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  TTMSFNCTreeViewCaretPosition = TPoint;\r\n  TTMSFNCTreeViewMemo = class(TMemo)\r\n  private\r\n    FTreeView: TTMSFNCCustomTreeView;\r\n  protected\r\n    procedure KeyDown(var Key: Word; Shift: TShiftState); override;\r\n    procedure DoExit; override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n  end;\r\n  TTMSFNCTreeViewEdit = class(TEdit)\r\n  private\r\n    FTreeView: TTMSFNCCustomTreeView;\r\n  protected\r\n    procedure KeyDown(var Key: Word; Shift: TShiftState); override;\r\n    procedure DoExit; override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  TTMSFNCTreeViewCopyNodes = class(TTMSFNCTreeViewNodes);\r\n\r\n  TTMSFNCTreeViewDragOverEvent = procedure(Sender: TObject; Source: TObject; Point: TPointF; var Accept: Boolean) of object;\r\n  TTMSFNCTreeViewDragDropEvent = procedure(Sender: TObject; Source: TObject; Point: TPointF) of object;\r\n  TTMSFNCTreeViewColumnSortEvent = procedure(Sender: TObject; AColumn: Integer; ASortMode: TTMSFNCTreeViewNodesSortMode) of object;\r\n  TTMSFNCTreeViewLookupEvent = procedure(Sender: TObject; ALookupString: String) of object;\r\n  TTMSFNCTreeViewReorderEvent = procedure(Sender: TObject; AFromNode, AToNode: TTMSFNCTreeViewVirtualNode) of object;\r\n\r\n  TTMSFNCTreeViewExportState = (tvesExportStart, tvesExportNewRow, tvesExportDone, tvesExportSelRow, tvesExportFail, tvesExportNextRow, tvesExportFindRow);\r\n\r\n  TTMSFNCTreeViewAdapter = class(TTMSFNCCustomComponent)\r\n  private\r\n    FBlockAdd: Boolean;\r\n    FTreeView: TTMSFNCCustomTreeView;\r\n    FActive: boolean;\r\n    procedure SetActive(const Value: boolean);\r\n    procedure SetTreeView(const Value: TTMSFNCCustomTreeView);\r\n  protected\r\n    function GetInstance: NativeUInt; override;\r\n    procedure GetNumberOfNodes(ANode: TTMSFNCTreeViewVirtualNode; var ANumberOfNodes: Integer); virtual;\r\n    procedure Notification(AComponent: TComponent; Operation: TOperation); override;\r\n    procedure UpdateBounds; virtual;\r\n    procedure Initialize; virtual;\r\n    procedure ScrollTreeView({%H-}ADelta: Integer); virtual;\r\n    procedure SelectNode({%H-}ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure GetNodeText({%H-}ACol: Integer;{%H-}ANode: TTMSFNCTreeViewVirtualNode; var {%H-}AText: String); virtual;\r\n    procedure ExportNotification({%H-}AState: TTMSFNCTreeViewExportState; {%H-}ARow: Integer); virtual;\r\n    function GetColumnDisplayName({%H-}ACol: Integer): String; virtual;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n  published\r\n    property Active: Boolean read FActive write SetActive default False;\r\n    property TreeView: TTMSFNCCustomTreeView read FTreeView write SetTreeView;\r\n  end;\r\n\r\n  {$IFDEF FNCLIB}\r\n  TTMSFNCTreeViewViewJSONOptions = class(TPersistent)\r\n  private\r\n    FValueHTMLTemplate: string;\r\n    FExpandNodes: Boolean;\r\n    FNameHTMLTemplate: string;\r\n    FOnChange: TNotifyEvent;\r\n    FStretchColumn: Integer;\r\n    FArrayItemPrefix: string;\r\n    FArrayItemSuffix: string;\r\n  protected\r\n    procedure Changed;\r\n//    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  published\r\n    property ExpandNodes: Boolean read FExpandNodes write FExpandNodes default True;\r\n    property StretchColumn: Integer read FStretchColumn write FStretchColumn default 1;\r\n    property NameHTMLTemplate: string read FNameHTMLTemplate write FNameHTMLTemplate; //Use <#NAME>\r\n    property ValueHTMLTemplate: string read FValueHTMLTemplate write FValueHTMLTemplate; //Use <#VALUE>\r\n    property ArrayItemPrefix: string read FArrayItemPrefix write FArrayItemPrefix;\r\n    property ArrayItemSuffix: string read FArrayItemSuffix write FArrayItemSuffix;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  TTMSFNCCustomTreeView = class(TTMSFNCTreeViewData, ITMSFNCAppearanceGlobalFont)\r\n  private\r\n    FPrevDSP: TTMSFNCTreeViewCacheItem;\r\n    FOldTopRow: Integer;\r\n    FCompactMode: Boolean;\r\n    FVerticalOffset, FVerticalOffsetTo: Double;\r\n    FAccepted: Boolean;\r\n    FLookupString: String;\r\n    FY, FDragY, FSaveDragY: Single;\r\n    FX: Single;\r\n    FDragBitmap: TTMSFNCImage;\r\n    FReorderMode, FDragMode, FDragModeStarted: Boolean;\r\n    FSortColumn: Integer;\r\n    FClosing: Boolean;\r\n    FInplaceEditorClosed: Boolean;\r\n    FColumnSize: Double;\r\n    FCloseWithDialogKey: Boolean;\r\n    FFilterPopup: TTMSFNCPopup;\r\n    FFilterListBox: TListBox;\r\n    FFilterTimer: TTimer;\r\n    FInplaceEditorClass: TTMSFNCTreeViewInplaceEditorClass;\r\n    FInplaceEditor, FOldInplaceEditor: TTMSFNCTreeViewInplaceEditor;\r\n    FInplaceEditorActive: Boolean;\r\n    FSizeColumn, FDownColumnValue, FDownColumn, FDownColumnFilter, FDownColumnExpand: Integer;\r\n    FUpdateNodeColumn: Integer;\r\n    FUpdateNode: TTMSFNCTreeViewVirtualNode;\r\n    FCopyNodes: TTMSFNCTreeViewCopyNodes;\r\n    {$IFDEF FMXLIB}\r\n    FScrollBarTimer: TTimer;\r\n    FInplaceEditorTimer: TTimer;\r\n    {$ENDIF}\r\n    FDoubleSelection: Boolean;\r\n    FDragTimer: TTimer;\r\n    FDragRow: Integer;\r\n    FDownNode, FFocusedNode, FDragNode: TTMSFNCTreeViewVirtualNode;\r\n    FDblClicked: Boolean;\r\n    FDoNodeAnchor, FDoNodeTitleAnchor: TTMSFNCTreeViewNodeAnchor;\r\n    FDoNodeCheck: TTMSFNCTreeViewNodeCheck;\r\n    FDoNodeExpand: Boolean;\r\n    FDoNodeExtra: Boolean;\r\n    FDoNodeTitleExtra: Boolean;\r\n    FScrolling: Boolean;\r\n    FMouseUp, FAnimateVerticalPos, FAnimateHorizontalPos, FAnimateVerticalOffset: Boolean;\r\n    FAnimating: Boolean;\r\n    FSpX, FSpY: Double;\r\n    FScrollX, FScrollY, FDownX, FDownY, FMouseX, FMouseY, FSizeX: Double;\r\n    FScrollVTo, FScrollHTo: Double;\r\n    FTimeStart, FTimeStop: Double;\r\n    FAnimateTimer: TTimer;\r\n    FNodeCache: TTMSFNCTreeViewNodeCache;\r\n    FColumnsTopCache: TTMSFNCTreeViewColumnsTopCache;\r\n    FColumnsBottomCache: TTMSFNCTreeViewColumnsBottomCache;\r\n    FGroupsTopCache: TTMSFNCTreeViewGroupsTopCache;\r\n    FGroupsBottomCache: TTMSFNCTreeViewGroupsBottomCache;\r\n    FNodeDisplay: TTMSFNCTreeViewNodeDisplayList;\r\n    FColumnsTopDisplay: TTMSFNCTreeViewColumnsTopDisplayList;\r\n    FColumnsBottomDisplay: TTMSFNCTreeViewColumnsBottomDisplayList;\r\n    FGroupsTopDisplay: TTMSFNCTreeViewGroupsTopDisplayList;\r\n    FGroupsBottomDisplay: TTMSFNCTreeViewGroupsBottomDisplayList;\r\n    FNodesAppearance: TTMSFNCTreeViewNodesAppearance;\r\n    FColumnsCaching: Boolean;\r\n    FGroupsCaching: Boolean;\r\n    FGroupsAppearance: TTMSFNCTreeViewGroupsAppearance;\r\n    FColumnsAppearance: TTMSFNCTreeViewColumnsAppearance;\r\n    FOnAfterDrawGroup: TTMSFNCTreeViewAfterDrawGroupEvent;\r\n    FOnNodeCompare: TTMSFNCTreeViewNodeCompareEvent;\r\n    FOnBeforeSizeColumn: TTMSFNCTreeViewBeforeSizeColumnEvent;\r\n    FOnAfterSizeColumn: TTMSFNCTreeViewAfterSizeColumnEvent;\r\n    FOnBeforeDrawColumn: TTMSFNCTreeViewBeforeDrawColumnEvent;\r\n    FOnBeforeDrawColumnHeader: TTMSFNCTreeViewBeforeDrawColumnHeaderEvent;\r\n    FOnAfterDrawColumnHeader: TTMSFNCTreeViewAfterDrawColumnHeaderEvent;\r\n    FOnBeforeDrawNode: TTMSFNCTreeViewBeforeDrawNodeEvent;\r\n    FOnAfterDrawColumn: TTMSFNCTreeViewAfterDrawColumnEvent;\r\n    FOnBeforeDrawGroup: TTMSFNCTreeViewBeforeDrawGroupEvent;\r\n    FOnAfterDrawNode: TTMSFNCTreeViewAfterDrawNodeEvent;\r\n    FOnBeforeDrawNodeText: TTMSFNCTreeViewBeforeDrawNodeTextEvent;\r\n    FOnBeforeDrawNodeTitle: TTMSFNCTreeViewBeforeDrawNodeTitleEvent;\r\n    FOnGetNodeHeight: TTMSFNCTreeViewGetNodeHeightEvent;\r\n    FOnAfterDrawColumnText: TTMSFNCTreeViewAfterDrawColumnTextEvent;\r\n    FOnBeforeDrawGroupText: TTMSFNCTreeViewBeforeDrawGroupTextEvent;\r\n    FOnAfterDrawNodeText: TTMSFNCTreeViewAfterDrawNodeTextEvent;\r\n    FOnAfterDrawNodeTitle: TTMSFNCTreeViewAfterDrawNodeTitleEvent;\r\n    FOnAfterDrawGroupText: TTMSFNCTreeViewAfterDrawGroupTextEvent;\r\n    FOnBeforeDrawColumnText: TTMSFNCTreeViewBeforeDrawColumnTextEvent;\r\n    FInteraction: TTMSFNCTreeViewInteraction;\r\n    FOnAfterUpdateNode: TTMSFNCTreeViewAfterUpdateNodeEvent;\r\n    FOnBeforeUpdateNode: TTMSFNCTreeViewBeforeUpdateNodeEvent;\r\n    FOnAfterUnCheckNode: TTMSFNCTreeViewAfterUnCheckNodeEvent;\r\n    FOnBeforeUnCheckNode: TTMSFNCTreeViewBeforeUnCheckNodeEvent;\r\n    FOnAfterCheckNode: TTMSFNCTreeViewAfterCheckNodeEvent;\r\n    FOnBeforeCheckNode: TTMSFNCTreeViewBeforeCheckNodeEvent;\r\n    FOnAfterExpandNode: TTMSFNCTreeViewAfterExpandNodeEvent;\r\n    FOnBeforeExpandNode: TTMSFNCTreeViewBeforeExpandNodeEvent;\r\n    FOnAfterCollapseNode: TTMSFNCTreeViewAfterCollapseNodeEvent;\r\n    FOnBeforeCollapseNode: TTMSFNCTreeViewBeforeCollapseNodeEvent;\r\n    FOnBeforeSelectNode: TTMSFNCTreeViewBeforeSelectNodeEvent;\r\n    FOnAfterSelectNode: TTMSFNCTreeViewAfterSelectNodeEvent;\r\n    FOnBeforeSelectAllNodes: TTMSFNCTreeViewBeforeSelectAllNodesEvent;\r\n    FOnAfterSelectAllNodes: TTMSFNCTreeViewAfterSelectAllNodesEvent;\r\n    FOnNodeClick: TTMSFNCTreeViewNodeClickEvent;\r\n    FOnNodeValueClick: TTMSFNCTreeViewNodeValueClickEvent;\r\n    FOnNodeDblClick: TTMSFNCTreeViewNodeClickEvent;\r\n    FOnGetNodeText: TTMSFNCTreeViewGetNodeTextEvent;\r\n    FOnGetNodeTitle: TTMSFNCTreeViewGetNodeTitleEvent;\r\n    FOnGetColumnText: TTMSFNCTreeViewGetColumnTextEvent;\r\n    FOnGetGroupText: TTMSFNCTreeViewGetGroupTextEvent;\r\n    FOnNodeAnchorClick: TTMSFNCTreeViewNodeAnchorClickEvent;\r\n    FOnVScroll: TTMSFNCTreeViewScrollEvent;\r\n    FOnHScroll: TTMSFNCTreeViewScrollEvent;\r\n    FOnBeforeDrawColumnEmptySpace: TTMSFNCTreeViewBeforeDrawColumnEmptySpaceEvent;\r\n    FOnAfterDrawColumnEmptySpace: TTMSFNCTreeViewAfterDrawColumnEmptySpaceEvent;\r\n    FOnBeforeDrawGroupEmptySpace: TTMSFNCTreeViewBeforeDrawGroupEmptySpaceEvent;\r\n    FOnAfterDrawGroupEmptySpace: TTMSFNCTreeViewAfterDrawGroupEmptySpaceEvent;\r\n    FOnGetNumberOfNodes: TTMSFNCTreeViewGetNumberOfNodesEvent;\r\n    FOnIsNodeExpanded: TTMSFNCTreeViewIsNodeExpandedEvent;\r\n    FOnIsNodeEnabled: TTMSFNCTreeViewIsNodeEnabledEvent;\r\n    FOnIsNodeVisible: TTMSFNCTreeViewIsNodeVisibleEvent;\r\n    FSelectedNodes: TTMSFNCTreeViewSelectedNodes;\r\n    FOnGetNodeDisabledColor: TTMSFNCTreeViewGetNodeColorEvent;\r\n    FOnGetNodeTextColor: TTMSFNCTreeViewGetNodeTextColorEvent;\r\n    FOnGetNodeTitleColor: TTMSFNCTreeViewGetNodeTitleColorEvent;\r\n    FOnGetNodeSelectedColor: TTMSFNCTreeViewGetNodeColorEvent;\r\n    FOnGetNodeColor: TTMSFNCTreeViewGetNodeColorEvent;\r\n    FOnGetNodeDisabledTextColor: TTMSFNCTreeViewGetNodeTextColorEvent;\r\n    FOnGetNodeSelectedTextColor: TTMSFNCTreeViewGetNodeTextColorEvent;\r\n    FOnGetNodeDisabledTitleColor: TTMSFNCTreeViewGetNodeTitleColorEvent;\r\n    FOnGetNodeSelectedTitleColor: TTMSFNCTreeViewGetNodeTitleColorEvent;\r\n    FOnIsNodeExtended: TTMSFNCTreeViewIsNodeExtendedEvent;\r\n    FOnGetNodeIcon: TTMSFNCTreeViewGetNodeIconEvent;\r\n    FOnGetColumnWordWrapping: TTMSFNCTreeViewGetColumnWordWrappingEvent;\r\n    FOnGetColumnVerticalTextAlign: TTMSFNCTreeViewGetColumnVerticalTextAlignEvent;\r\n    FOnGetColumnTrimming: TTMSFNCTreeViewGetColumnTrimmingEvent;\r\n    FOnGetColumnHorizontalTextAlign: TTMSFNCTreeViewGetColumnHorizontalTextAlignEvent;\r\n    FOnGetNodeWordWrapping: TTMSFNCTreeViewGetNodeWordWrappingEvent;\r\n    FOnGetNodeVerticalTextAlign: TTMSFNCTreeViewGetNodeVerticalTextAlignEvent;\r\n    FOnGetNodeTrimming: TTMSFNCTreeViewGetNodeTrimmingEvent;\r\n    FOnGetNodeHorizontalTextAlign: TTMSFNCTreeViewGetNodeHorizontalTextAlignEvent;\r\n    FOnIsNodeChecked: TTMSFNCTreeViewIsNodeCheckedEvent;\r\n    FOnBeforeDrawNodeIcon: TTMSFNCTreeViewBeforeDrawNodeIconEvent;\r\n    FOnBeforeDrawNodeExpand: TTMSFNCTreeViewBeforeDrawNodeExpandEvent;\r\n    FOnAfterDrawNodeIcon: TTMSFNCTreeViewAfterDrawNodeIconEvent;\r\n    FOnAfterDrawNodeExpand: TTMSFNCTreeViewAfterDrawNodeExpandEvent;\r\n    FOnGetNodeCheckType: TTMSFNCTreeViewGetNodeCheckTypeEvent;\r\n    FOnAfterDrawNodeCheck: TTMSFNCTreeViewAfterDrawNodeCheckEvent;\r\n    FOnBeforeDrawNodeCheck: TTMSFNCTreeViewBeforeDrawNodeCheckEvent;\r\n    FColumnStroke: TTMSFNCGraphicsStroke;\r\n    FOnAfterDrawNodeColumn: TTMSFNCTreeViewAfterDrawColumnEvent;\r\n    FOnBeforeDrawNodeColumn: TTMSFNCTreeViewBeforeDrawColumnEvent;\r\n    FOnBeforeUnSelectNode: TTMSFNCTreeViewBeforeUnSelectNodeEvent;\r\n    FOnAfterUnSelectNode: TTMSFNCTreeViewAfterUnSelectNodeEvent;\r\n    FOnAfterOpenInplaceEditor: TTMSFNCTreeViewAfterOpenInplaceEditorEvent;\r\n    FOnGetInplaceEditor: TTMSFNCTreeViewGetInplaceEditorEvent;\r\n    FOnCloseInplaceEditor: TTMSFNCTreeViewCloseInplaceEditorEvent;\r\n    FOnBeforeOpenInplaceEditor: TTMSFNCTreeViewBeforeOpenInplaceEditorEvent;\r\n    FOnNodeChanged: TTMSFNCTreeViewNodeChangedEvent;\r\n    FOnCustomizeInplaceEditor: TTMSFNCTreeViewCustomizeInplaceEditorEvent;\r\n    FOnGetInplaceEditorRect: TTMSFNCTreeViewGetInplaceEditorRectEvent;\r\n    FOnBeforeReorderNode: TTMSFNCTreeViewBeforeReorderNodeEvent;\r\n    FOnAfterReorderNode: TTMSFNCTreeViewAfterReorderNodeEvent;\r\n    FOnAfterDropNode: TTMSFNCTreeViewAfterDropNodeEvent;\r\n    FOnBeforeDropNode: TTMSFNCTreeViewBeforeDropNodeEvent;\r\n    FOnAfterCutToClipboard: TTMSFNCTreeViewAfterCutToClipboardEvent;\r\n    FOnBeforePasteFromClipboard: TTMSFNCTreeViewBeforePasteFromClipboardEvent;\r\n    FOnBeforeCopyToClipboard: TTMSFNCTreeViewBeforeCopyToClipboardEvent;\r\n    FOnAfterPasteFromClipboard: TTMSFNCTreeViewAfterPasteFromClipboardEvent;\r\n    FOnBeforeCutToClipboard: TTMSFNCTreeViewBeforeCutToClipboardEvent;\r\n    FOnAfterCopyToClipboard: TTMSFNCTreeViewAfterCopyToClipboardEvent;\r\n    FOnNeedFilterDropDownData: TTMSFNCTreeViewNeedFilterDropDownDataEvent;\r\n    FOnFilterSelect: TTMSFNCTreeViewFilterSelectEvent;\r\n    FOnCustomReorder: TTMSFNCTreeViewReorderEvent;\r\n    FOnCustomDragDrop: TTMSFNCTreeViewDragDropEvent;\r\n    FOnCustomDragOver: TTMSFNCTreeViewDragOverEvent;\r\n    FOnCustomCopyToClipboard: TNotifyEvent;\r\n    FOnCustomCutToClipboard: TNotifyEvent;\r\n    FOnCustomPasteFromClipboard: TNotifyEvent;\r\n    FOnCustomColumnSort: TTMSFNCTreeViewColumnSortEvent;\r\n    FOnCustomLookup: TTMSFNCTreeViewLookupEvent;\r\n    FOnBeforeDrawSortIndicator: TTMSFNCTreeViewBeforeDrawSortIndicatorEvent;\r\n    FOnAfterDrawSortIndicator: TTMSFNCTreeViewAfterDrawSortIndicatorEvent;\r\n    FAdapter: TTMSFNCTreeViewAdapter;\r\n    FOnGetNodeSides: TTMSFNCTreeViewGetNodeSidesEvent;\r\n    FOnGetNodeExtraSize: TTMSFNCTreeViewGetNodeExtraSizeEvent;\r\n    FOnGetNodeTitleExtraSize: TTMSFNCTreeViewGetNodeTitleExtraSizeEvent;\r\n    FOnAfterDrawNodeExtra: TTMSFNCTreeViewAfterDrawNodeExtraEvent;\r\n    FOnBeforeDrawNodeExtra: TTMSFNCTreeViewBeforeDrawNodeExtraEvent;\r\n    FOnDrawNodeExtra: TTMSFNCTreeViewDrawNodeExtraEvent;\r\n    FOnGetNodeTitleTrimming: TTMSFNCTreeViewGetNodeTrimmingEvent;\r\n    FOnGetNodeTitleHorizontalTextAlign: TTMSFNCTreeViewGetNodeHorizontalTextAlignEvent;\r\n    FOnGetNodeTitleWordWrapping: TTMSFNCTreeViewGetNodeWordWrappingEvent;\r\n    FOnGetNodeTitleVerticalTextAlign: TTMSFNCTreeViewGetNodeVerticalTextAlignEvent;\r\n    FOnNodeTitleAnchorClick: TTMSFNCTreeViewNodeTitleAnchorClickEvent;\r\n    FOnGetNodeExpanded: TTMSFNCTreeViewGetNodeTitleExpandedEvent;\r\n    FOnBeforeDrawNodeTitleExtra: TTMSFNCTreeViewBeforeDrawNodeTitleExtraEvent;\r\n    FOnAfterDrawNodeTitleExtra: TTMSFNCTreeViewAfterDrawNodeTitleExtraEvent;\r\n    FOnDrawNodeTitleExtra: TTMSFNCTreeViewDrawNodeTitleExtraEvent;\r\n    FOnNodeMouseEnter: TTMSFNCTreeViewNodeMouseEnterEvent;\r\n    FOnNodeMouseLeave: TTMSFNCTreeViewNodeMouseLeaveEvent;\r\n    FOnGetNodeIconSize: TTMSFNCTreeViewGetNodeIconSizeEvent;\r\n    FOnColumnAnchorClick: TTMSFNCTreeViewColumnAnchorClickEvent;\r\n    FOnFocusedNodeChanged: TTMSFNCTreeViewFocusedNodeChangedEvent;\r\n    FOnGetNodeData: TTMSFNCTreeViewGetNodeDataEvent;\r\n    FOnAfterSortNodes: TTMSFNCTreeViewAfterSortNodesEvent;\r\n    FOnBeforeSortNodes: TTMSFNCTreeViewBeforeSortNodesEvent;\r\n    FGlobalFont: TTMSFNCAppearanceGlobalFont;\r\n    FOnGetNodeRounding: TTMSFNCTreeViewGetNodeRoundingEvent;\r\n    FOnGetNodeDisabledStrokeColor: TTMSFNCTreeViewGetNodeColorEvent;\r\n    FOnGetNodeSelectedStrokeColor: TTMSFNCTreeViewGetNodeColorEvent;\r\n    FOnGetNodeStrokeColor: TTMSFNCTreeViewGetNodeColorEvent;\r\n    FOnGetHTMLTemplateValue: TTMSFNCTreeViewGetHTMLTemplateValueEvent;\r\n    FOnGetHTMLTemplate: TTMSFNCTreeViewGetHTMLTemplateEvent;\r\n    FOnCustomizeFilterListBox: TTMSFNCTreeViewCustomizeFilterListBoxEvent;\r\n    FPrecalculateItems: Boolean;\r\n    {$IFDEF FNCLIB}\r\n    FDefaultViewJSONOptions: TTMSFNCTreeViewViewJSONOptions;\r\n    FOnAfterAddJSONNode: TTMSFNCTreeViewAfterAddJSONNodeEvent;\r\n    FOnBeforeAddJSONNode: TTMSFNCTreeViewBeforeAddJSONNodeEvent;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    FCheckStartSize: Integer;\r\n    {$ENDIF}\r\n    procedure SetNodesAppearance(const Value: TTMSFNCTreeViewNodesAppearance);\r\n    procedure SetGroupsAppearance(const Value: TTMSFNCTreeViewGroupsAppearance);\r\n    procedure SetColumnsAppearance(const Value: TTMSFNCTreeViewColumnsAppearance);\r\n    procedure SetInteraction(const Value: TTMSFNCTreeViewInteraction);\r\n    function GetFocusedNode: TTMSFNCTreeViewNode;\r\n    function GetFocusedVirtualNode: TTMSFNCTreeViewVirtualNode;\r\n    function GetSelNode(AIndex: Integer): TTMSFNCTreeViewNode;\r\n    function GetSelVirtualNode(AIndex: Integer): TTMSFNCTreeViewVirtualNode;\r\n    procedure SetColumnStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetFocusedNode(const Value: TTMSFNCTreeViewNode);\r\n    procedure SetFocusedVirtualNode(const Value: TTMSFNCTreeViewVirtualNode);\r\n    procedure SetSortColumn(const Value: Integer);\r\n    procedure HandleFilterTimer(Sender: TObject);\r\n    procedure SetAdapter(const Value: TTMSFNCTreeViewAdapter);\r\n    procedure SetSelectedNode(const Value: TTMSFNCTreeViewNode);\r\n    procedure SetSelectedVirtualNode(const Value: TTMSFNCTreeViewVirtualNode);\r\n    procedure SetCompactMode(const Value: Boolean);\r\n    function GetSelectedVirtualNodeRow: Integer;\r\n    function GetTopRow: Integer;\r\n    procedure SetTopRow(const Value: Integer);\r\n    function GetBottomRow: Integer;\r\n    procedure SetGlobalFont(const Value: TTMSFNCAppearanceGlobalFont);\r\n    {$IFDEF FNCLIB}\r\n    procedure SetDefaultViewJSONOptions(const Value: TTMSFNCTreeViewViewJSONOptions);\r\n    {$ENDIF}\r\n  protected\r\n    procedure ChangeDPIScale(M, D: Integer); override;\r\n    procedure RegisterRuntimeClasses; override;\r\n    procedure ApplyStyle; override;\r\n    procedure DoEnter; override;\r\n    procedure DoExit; override;\r\n    procedure UpdateControlAfterResize; override;\r\n    procedure ResetToDefaultStyle; override;\r\n    procedure Notification(AComponent: TComponent; Operation: TOperation); override;\r\n    procedure InitializeColumnSorting(AColumn: Integer; ASortMode: TTMSFNCTreeViewNodesSortMode); virtual;\r\n    procedure AutoSizeColumnInternal(ACol: Integer; AUpdate: Boolean = False; ACallEventHandlers: Boolean = False); override;\r\n    procedure DoNodeCompare(ANode1, ANode2: TTMSFNCTreeViewNode; AColumn: Integer; var ACompareResult: Integer); override;\r\n    procedure SetFonts(ASetType: TTMSFNCAppearanceGlobalFontType); virtual;\r\n\r\n    procedure ExportNotification(AState: TTMSFNCTreeViewExportState; ARow: Integer); virtual;\r\n    procedure DoBeforeSortNodes(ASortColumn: Integer; ASortMode: TTMSFNCTreeViewNodesSortMode; var ACanSort: Boolean); virtual;\r\n    procedure DoAfterSortNodes(ASortColumn: Integer; ASortMode: TTMSFNCTreeViewNodesSortMode); virtual;\r\n    procedure DoBeforeDrawSortIndicator(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ASortIndex: Integer; ASortKind: TTMSFNCTreeViewNodesSortKind; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawSortIndicator(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ASortIndex: Integer; ASortKind: TTMSFNCTreeViewNodesSortKind); virtual;\r\n    procedure DoBeforeCutToClipboard(var ACanCut: Boolean); virtual;\r\n    procedure DoBeforeCopyToClipboard(var ACanCopy: Boolean); virtual;\r\n    procedure DoBeforePasteFromClipboard(var ACanPaste: Boolean); virtual;\r\n    procedure DoAfterCutToClipboard; virtual;\r\n    procedure DoAfterCopyToClipboard; virtual;\r\n    procedure DoAfterPasteFromClipboard; virtual;\r\n\r\n    procedure DoBeforeReorderNode(AFromNode, AToNode: TTMSFNCTreeViewVirtualNode; var ACanReorder: Boolean); virtual;\r\n    procedure DoAfterReorderNode(AFromNode, AToNode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure DoBeforeDropNode(AFromNode, AToNode: TTMSFNCTreeViewVirtualNode; var ACanDrop: Boolean); virtual;\r\n    procedure DoAfterDropNode(AFromNode, AToNode: TTMSFNCTreeViewVirtualNode); virtual;\r\n\r\n    procedure DoBeforeDrawColumnEmptySpace(AGraphics: TTMSFNCGraphics; ARect: TRectF; ASpace: TTMSFNCTreeViewColumnEmptySpace; var AAllow: Boolean; var ADefaultDraw: Boolean);\r\n    procedure DoAfterDrawColumnEmptySpace(AGraphics: TTMSFNCGraphics; ARect: TRectF; ASpace: TTMSFNCTreeViewColumnEmptySpace);\r\n    procedure DoBeforeDrawGroupEmptySpace(AGraphics: TTMSFNCGraphics; ARect: TRectF; ASpace: TTMSFNCTreeViewGroupEmptySpace; var AAllow: Boolean; var ADefaultDraw: Boolean);\r\n    procedure DoAfterDrawGroupEmptySpace(AGraphics: TTMSFNCGraphics; ARect: TRectF; ASpace: TTMSFNCTreeViewGroupEmptySpace);\r\n\r\n    procedure DoBeforeDrawColumnHeader(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawColumnHeader(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind); virtual;\r\n    procedure DoBeforeDrawColumn(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawColumn(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer); virtual;\r\n    procedure DoBeforeDrawNodeColumn(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawNodeColumn(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer); virtual;\r\n    procedure DoBeforeDrawGroup(AGraphics: TTMSFNCGraphics; ARect: TRectF; AGroup, AStartColumn, AEndColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawGroup(AGraphics: TTMSFNCGraphics; ARect: TRectF; AGroup, AStartColumn, AEndColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind); virtual;\r\n    procedure DoBeforeDrawNode(AGraphics: TTMSFNCGraphics; ARect: TRectF; ANode: TTMSFNCTreeViewVirtualNode; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawNode(AGraphics: TTMSFNCGraphics; ARect: TRectF; ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n\r\n    procedure DoCustomizeFilterListBox(AColumn: Integer; AListBox: TListBox); virtual;\r\n    procedure DoGetColumnText(AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var AText: String); virtual;\r\n    procedure DoBeforeDrawColumnText(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; AText: String; var AAllow: Boolean); virtual;\r\n    procedure DoAfterDrawColumnText(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; AText: String); virtual;\r\n    procedure DoGetGroupText(AGroup: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var AText: String); virtual;\r\n    procedure DoBeforeDrawGroupText(AGraphics: TTMSFNCGraphics; ARect: TRectF; AGroup, AStartColumn, AEndColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; AText: String; var AAllow: Boolean); virtual;\r\n    procedure DoAfterDrawGroupText(AGraphics: TTMSFNCGraphics; ARect: TRectF; AGroup, AStartColumn, AEndColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; AText: String); virtual;\r\n    procedure DoNodeClick(ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure DoNodeValueClick(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer); virtual;\r\n    procedure DoNodeMouseLeave(ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure DoNodeMouseEnter(ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure DoNodeDblClick(ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n\r\n    procedure DoGetNumberOfNodes(ANode: TTMSFNCTreeViewVirtualNode; var ANumberOfNodes: Integer); override;\r\n    procedure DoGetNodeText(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AMode: TTMSFNCTreeViewNodeTextMode; var AText: String); override;\r\n    procedure DoGetNodeData(ANode: TTMSFNCTreeViewVirtualNode); override;\r\n    procedure DoGetNodeTitle(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AMode: TTMSFNCTreeViewNodeTextMode; var ATitle: String); override;\r\n    procedure DoGetNodeTitleExpanded(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AExpanded: Boolean); override;\r\n    procedure DoGetNodeTrimming(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ATrimming: TTMSFNCGraphicsTextTrimming); override;\r\n    procedure DoGetNodeHorizontalTextAlign(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AHorizontalTextAlign: TTMSFNCGraphicsTextAlign); override;\r\n    procedure DoGetNodeVerticalTextAlign(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AVerticalTextAlign: TTMSFNCGraphicsTextAlign); override;\r\n    procedure DoGetNodeWordWrapping(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AWordWrapping: Boolean); override;\r\n    procedure DoGetNodeTitleTrimming(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ATrimming: TTMSFNCGraphicsTextTrimming); override;\r\n    procedure DoGetNodeTitleHorizontalTextAlign(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AHorizontalTextAlign: TTMSFNCGraphicsTextAlign); override;\r\n    procedure DoGetNodeTitleVerticalTextAlign(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AVerticalTextAlign: TTMSFNCGraphicsTextAlign); override;\r\n    procedure DoGetNodeTitleWordWrapping(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AWordWrapping: Boolean); override;\r\n    procedure DoGetNodeExtraSize(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AExtraSize: Single); override;\r\n    procedure DoGetNodeTitleExtraSize(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ATitleExtraSize: Single); override;\r\n    procedure DoGetColumnTrimming(AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var ATrimming: TTMSFNCGraphicsTextTrimming); override;\r\n    procedure DoGetColumnHorizontalTextAlign(AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var AHorizontalTextAlign: TTMSFNCGraphicsTextAlign); override;\r\n    procedure DoGetColumnVerticalTextAlign(AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var AVerticalTextAlign: TTMSFNCGraphicsTextAlign); override;\r\n    procedure DoGetColumnWordWrapping(AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var AWordWrapping: Boolean); override;\r\n    procedure DoGetNodeCheckType(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ACheckType: TTMSFNCTreeViewNodeCheckType); override;\r\n    procedure DoGetNodeHeight(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AHeight: Double); virtual;\r\n    procedure DoGetNodeIcon(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; ALarge: Boolean; var AIcon: TTMSFNCBitmap); override;\r\n    procedure DoGetNodeIconSize(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; ALarge: Boolean; AIcon: TTMSFNCBitmap; var AIconWidth: Double; var AIconHeight: Double); override;\r\n    procedure DoGetNodeSelectedColor(ANode: TTMSFNCTreeViewVirtualNode; var AColor: TTMSFNCGraphicsColor); override;\r\n    procedure DoGetNodeSelectedStrokeColor(ANode: TTMSFNCTreeViewVirtualNode; var AColor: TTMSFNCGraphicsColor); virtual;\r\n    procedure DoGetNodeSides(ANode: TTMSFNCTreeViewVirtualNode; var ASides: TTMSFNCGraphicsSides); override;\r\n    procedure DoGetNodeRounding(ANode: TTMSFNCTreeViewVirtualNode; var ARounding: Integer; var ACorners: TTMSFNCGraphicsCorners); virtual;\r\n    procedure DoGetNodeDisabledColor(ANode: TTMSFNCTreeViewVirtualNode; var AColor: TTMSFNCGraphicsColor); override;\r\n    procedure DoGetNodeDisabledStrokeColor(ANode: TTMSFNCTreeViewVirtualNode; var AColor: TTMSFNCGraphicsColor); virtual;\r\n    procedure DoGetNodeColor(ANode: TTMSFNCTreeViewVirtualNode; var AColor: TTMSFNCGraphicsColor); override;\r\n    procedure DoGetNodeStrokeColor(ANode: TTMSFNCTreeViewVirtualNode; var AColor: TTMSFNCGraphicsColor); virtual;\r\n    procedure DoGetNodeSelectedTextColor(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ATextColor: TTMSFNCGraphicsColor); override;\r\n    procedure DoGetNodeDisabledTextColor(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ATextColor: TTMSFNCGraphicsColor); override;\r\n    procedure DoGetNodeTextColor(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ATextColor: TTMSFNCGraphicsColor); override;\r\n    procedure DoGetNodeSelectedTitleColor(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ATitleColor: TTMSFNCGraphicsColor); override;\r\n    procedure DoGetNodeDisabledTitleColor(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ATitleColor: TTMSFNCGraphicsColor); override;\r\n    procedure DoGetNodeTitleColor(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ATitleColor: TTMSFNCGraphicsColor); override;\r\n    procedure DoIsNodeExpanded(ANode: TTMSFNCTreeViewVirtualNode; var AExpanded: Boolean); override;\r\n    procedure DoIsNodeExtended(ANode: TTMSFNCTreeViewVirtualNode; var AExtended: Boolean); override;\r\n    procedure DoIsNodeChecked(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AChecked: Boolean); override;\r\n    procedure DoIsNodeVisible(ANode: TTMSFNCTreeViewVirtualNode; var AVisible: Boolean); override;\r\n    procedure DoIsNodeEnabled(ANode: TTMSFNCTreeViewVirtualNode; var AEnabled: Boolean); override;\r\n\r\n    procedure DoBeforeDrawNodeText(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; {$IFNDEF UIPACK}var{$ENDIF} AText: String; var AAllow: Boolean); virtual;\r\n    procedure DoAfterDrawNodeText(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; AText: String); virtual;\r\n    procedure DoBeforeDrawNodeTitle(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; ATitle: String; var AAllow: Boolean); virtual;\r\n    procedure DoAfterDrawNodeTitle(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; ATitle: String); virtual;\r\n    procedure DoBeforeDrawNodeIcon(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; AIcon: TTMSFNCBitmap; var AAllow: Boolean); virtual;\r\n    procedure DoAfterDrawNodeIcon(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; AIcon: TTMSFNCBitmap); virtual;\r\n    procedure DoBeforeDrawNodeExtra(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; var AAllow: Boolean); virtual;\r\n    procedure DoDrawNodeExtra({%H-}AGraphics: TTMSFNCGraphics; {%H-}ARect: TRectF; {%H-}AColumn: Integer; {%H-}ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure DoAfterDrawNodeExtra(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure DoBeforeDrawNodeTitleExtra(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; var AAllow: Boolean); virtual;\r\n    procedure DoDrawNodeTitleExtra({%H-}AGraphics: TTMSFNCGraphics; {%H-}ARect: TRectF; {%H-}AColumn: Integer; {%H-}ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure DoAfterDrawNodeTitleExtra(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure DoBeforeDrawNodeCheck(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; ACheck: TTMSFNCBitmap; var AAllow: Boolean); virtual;\r\n    procedure DoAfterDrawNodeCheck(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; ACheck: TTMSFNCBitmap); virtual;\r\n    procedure DoBeforeDrawNodeExpand(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; AExpand: TTMSFNCBitmap; var AAllow: Boolean); virtual;\r\n    procedure DoAfterDrawNodeExpand(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; AExpand: TTMSFNCBitmap); virtual;\r\n    procedure DoBeforeSelectNode(ANode: TTMSFNCTreeViewVirtualNode; var ACanSelect: Boolean); virtual;\r\n    procedure DoBeforeSelectAllNodes(var ACanSelect: Boolean); virtual;\r\n    procedure DoBeforeUnSelectNode(ANode: TTMSFNCTreeViewVirtualNode; var ACanUnSelect: Boolean); virtual;\r\n    procedure DoCustomizeInplaceEditor(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AInplaceEditor: TTMSFNCTreeViewInplaceEditor); virtual;\r\n    procedure DoBeforeSizeColumn(AColumn: Integer; AColumnSize: Double; var ANewColumnSize: Double; var AAllow: Boolean); virtual;\r\n    procedure DoAfterSizeColumn(AColumn: Integer; AColumnSize: Double); virtual;\r\n    procedure DoBeforeUpdateNode(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AText: String; var ACanUpdate: Boolean); virtual;\r\n    procedure DoNodeChanged(ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure DoAfterUpdateNode(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer); virtual;\r\n    procedure DoUpdateNodeText({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; {%H-}AText: String); virtual;\r\n    procedure DoUpdateNodeTitle({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; {%H-}ATitle: String); virtual;\r\n    procedure DoBeforeExpandNode(ANode: TTMSFNCTreeViewVirtualNode; var ACanExpand: Boolean); virtual;\r\n    procedure DoAfterExpandNode(ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure DoBeforeCollapseNode(ANode: TTMSFNCTreeViewVirtualNode; var ACanCollapse: Boolean); virtual;\r\n    procedure DoAfterCollapseNode(ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure DoBeforeCheckNode(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ACanCheck: Boolean); virtual;\r\n    procedure DoAfterCheckNode(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer); virtual;\r\n    procedure DoBeforeUnCheckNode(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ACanUnCheck: Boolean); virtual;\r\n    procedure DoAfterUnCheckNode(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer); virtual;\r\n    procedure DoNodeAnchorClick(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AAnchor: String); virtual;\r\n    procedure DoNodeTitleAnchorClick(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AAnchor: String); virtual;\r\n    procedure DoColumnAnchorClick(AColumn: Integer; AAnchor: String); virtual;\r\n    procedure DoGetHTMLTemplateValue(ANodeValue: TTMSFNCTreeViewNodeValue; AName: string; var AValue: string); override;\r\n    procedure DoGetHTMLTemplate(ANodeValue: TTMSFNCTreeViewNodeValue; AColumnIndex: Integer; var AHTMLTemplate: string); override;\r\n    {$IFDEF FMXLIB}\r\n    procedure ApplyInplaceEditorStyleLookup(Sender: TObject);\r\n    {$ENDIF}\r\n    {$IFDEF FNCLIB}\r\n    procedure DoBeforeAddJSONNode(AJSONValue: TJSONValue; var AAddNode: Boolean);\r\n    procedure DoAfterAddJSONNode(ANode: TTMSFNCTreeViewNode; AJSONValue: TJSONValue);\r\n    {$ENDIF}\r\n\r\n    procedure DoBeforeOpenInplaceEditor(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ACanOpen: Boolean); virtual;\r\n    procedure DoAfterOpenInplaceEditor(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AInplaceEditor: TTMSFNCTreeViewInplaceEditor; AInplaceEditorRect: TRectF); virtual;\r\n    procedure DoCloseInplaceEditor(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AInplaceEditor: TTMSFNCTreeViewInplaceEditor; ACancelled: Boolean; var ACanClose: Boolean); virtual;\r\n    procedure UpdateInplaceEditorPosition; virtual;\r\n\r\n    procedure DoGetInplaceEditor(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;{$IFDEF FMXLIB} var ATransparent: Boolean;{$ENDIF} var AInplaceEditorClass: TTMSFNCTreeViewInplaceEditorClass); virtual;\r\n    procedure CloseInplaceEditor(ACancel: Boolean; AFlagClose: Boolean = False); virtual;\r\n\r\n    procedure DoFocusedNodeChanged(ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure DoAfterSelectNode(ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure DoAfterSelectAllNodes; virtual;\r\n    procedure DoAfterUnSelectNode(ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure DoHScroll(APosition: Single); virtual;\r\n    procedure DoVScroll(APosition: Single); virtual;\r\n    procedure ResetNodes(AUpdateAll: Boolean = True); override;\r\n    procedure CreateDragBitmap; virtual;\r\n    procedure DestroyDragBitmap; virtual;\r\n\r\n    procedure HandleSelectNode(ANode: TTMSFNCTreeViewVirtualNode; ATriggerEvents: Boolean; AKeyBoard: Boolean; AMultiSelect: Boolean; AColumn: Integer = -1);\r\n    procedure Animate(Sender: TObject);\r\n    {$IFDEF FMXLIB}\r\n    procedure ScrollBarChanged(Sender: TObject);\r\n    procedure DoInplaceEditorTimer(Sender: TObject);\r\n    {$ENDIF}\r\n    procedure ColumnStrokeChanged(Sender: TObject);\r\n    procedure DragTime(Sender: TObject);\r\n    procedure StopAnimationTimer; override;\r\n    procedure HandleNodeToggle(ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure HandleNodeExtra({%H-}ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure HandleNodeTitleExtra({%H-}ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure HandleNodeToggleCheck(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer); virtual;\r\n    procedure HandleNodeExpand(ANode: TTMSFNCTreeViewVirtualNode; ARecurse: Boolean); virtual;\r\n    procedure HandleNodeCollapse(ANode: TTMSFNCTreeViewVirtualNode; ARecurse: Boolean); virtual;\r\n    procedure HandleCustomKeys({%H-}AKey: Word); virtual;\r\n    procedure OffsetNodeRects(ANode: TTMSFNCTreeViewVirtualNode; AX, AY: Single; var ARect: TRectF); virtual;\r\n    procedure BuildDisplay(ACache: TTMSFNCTreeViewCache; ADisplay: TTMSFNCTreeViewDisplayList); virtual;\r\n    procedure UpdateCalculations; override;\r\n    procedure UpdateAutoSizing; override;\r\n    procedure UpdateColumnRowCalculations(AUpdateTotalRowHeight: Boolean = True); override;\r\n    procedure UpdateColumnsCache; override;\r\n    procedure UpdateColumnCache(ACache: TTMSFNCTreeViewCache); overload; virtual;\r\n    procedure UpdateGroupsCache; override;\r\n    procedure UpdateGroupCache(ACache: TTMSFNCTreeViewCache); overload; virtual;\r\n    procedure UpdateNodesCache(AUpdateNodes: Boolean = True; AResetNodes: Boolean = False); override;\r\n    procedure UpdateNodeCache; virtual;\r\n    procedure CustomizeNodeCache({%H-}AGraphics: TTMSFNCGraphics; {%H-}AStartY: Single); virtual;\r\n    procedure UpdateDisplay; override;\r\n    procedure UpdateTreeViewCache; override;\r\n    procedure BuildNodeList; override;\r\n    procedure UpdateColumnsDisplay; virtual;\r\n    procedure UpdateGroupsDisplay; virtual;\r\n    procedure UpdateNodeDisplay; virtual;\r\n    procedure PrecalculateNodes; virtual;\r\n    procedure VerticalScrollPositionChanged; override;\r\n    procedure Scroll(AHorizontalPos, AVerticalPos: Double); override;\r\n    procedure HorizontalScrollPositionChanged; override;\r\n    procedure DrawNode({%H-}AGraphics: TTMSFNCGraphics; {%H-}ARect: TRectF; {%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}ACaching: Boolean = False; {%H-}AOffsetX: Single = 0; {%H-}AOffsetY: Single = 0); virtual;\r\n    procedure DrawGroup({%H-}AGraphics: TTMSFNCGraphics; {%H-}ARect: TRectF; {%H-}AGroup: Integer; {%H-}AStartColumn, {%H-}AEndColumn: Integer; {%H-}AKind: TTMSFNCTreeViewCacheItemKind); virtual;\r\n    procedure DrawColumn({%H-}AGraphics: TTMSFNCGraphics; {%H-}ARect: TRectF; {%H-}AColumn: Integer; {%H-}AKind: TTMSFNCTreeViewCacheItemKind); virtual;\r\n    procedure DrawNodes({%H-}AGraphics: TTMSFNCGraphics); virtual;\r\n    procedure DrawColumns({%H-}AGraphics: TTMSFNCGraphics); virtual;\r\n    procedure DrawNodeColumns({%H-}AGraphics: TTMSFNCGraphics); virtual;\r\n    procedure DrawGroups({%H-}AGraphics: TTMSFNCGraphics); virtual;\r\n    procedure DrawBorders({%H-}AGraphics: TTMSFNCGraphics); virtual;\r\n    procedure DrawEmptySpaces({%H-}AGraphics: TTMSFNCGraphics); virtual;\r\n    procedure DrawDisplay(AGraphics: TTMSFNCGraphics; ADisplay: TTMSFNCTreeViewDisplayList); virtual;\r\n    procedure HandleDragStart({%H-}X, {%H-}Y: Single); virtual;\r\n    procedure HandleDragOver(const Source: TObject; const Point: TPointF; var Accept: Boolean); override;\r\n    procedure HandleDragDrop(const Source: TObject; const Point: TPointF); override;\r\n    procedure HandleMouseDown(Button: TTMSFNCMouseButton; Shift: TShiftState; X, Y: Single); override;\r\n    procedure HandleMouseMove(Shift: TShiftState; X, Y: Single); override;\r\n    procedure HandleDblClick(X, Y: Single); override;\r\n    procedure DoNeedFilterDropDownData(AColumn: Integer; AValues: TStrings); virtual;\r\n    procedure DoFilterSelect(AColumn: integer; var ACondition: string); virtual;\r\n    procedure HandleFilter(AColumn: Integer); virtual;\r\n    procedure HandleExpand({%H-}AColumn: Integer); virtual;\r\n    procedure HandleMouseUp(Button: TTMSFNCMouseButton; Shift: TShiftState; X, Y: Single); override;\r\n    procedure StartVerticalOffsetAnimation; virtual;\r\n    procedure ClearFocusedNode(ANode: TTMSFNCTreeViewVirtualNode); override;\r\n    procedure SetVerticalOffset(AVerticalOffset: Single); virtual;\r\n    procedure HandleKeyPress(var Key: Char); override;\r\n    procedure HandleKeyDown(var Key: Word; Shift: TShiftState); override;\r\n    procedure HandleDialogKey(var Key: Word; Shift: TShiftState); override;\r\n    procedure HandleFilterListClick(Sender: TObject);\r\n    {$IFDEF FMXLIB}\r\n    procedure ApplyFilterListBoxStyleLookUp(Sender: TObject);\r\n    {$ENDIF}\r\n    procedure HandleKeyUp(var Key: Word; Shift: TShiftState); override;\r\n    procedure HandleMouseWheel(Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean); override;\r\n    procedure HandleNodeEditing(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer); virtual;\r\n    procedure CustomizeInplaceEditor(AInplaceEditor: TTMSFNCTreeViewInplaceEditor; ANode: TTMSFNCTreeViewVirtualNode; AColumn: TTMSFNCTreeViewColumn); virtual;\r\n    procedure StartReload; virtual;\r\n    procedure ConfigureNodeRect({%H-}AIndex: Integer; {%H-}ANode: TTMSFNCTreeViewVirtualNode; var {%H-}ARect: TRectF); virtual;\r\n    function GetDefaultRowHeight(ANode: TTMSFNCTreeViewVirtualNode): Single; override;\r\n    procedure GetNodeOffset({%H-}ANode: TTMSFNCTreeViewVirtualNode; var {%H-}ALeft, {%H-}ATop, {%H-}ARight, {%H-}ABottom: Single); virtual;\r\n    procedure GetNodeMargins(var {%H-}ALeft, {%H-}ATop, {%H-}ARight, {%H-}ABottom: Single); virtual;\r\n    procedure HandleAlternativeDragOver({%H-}X, {%H-}Y: Single); virtual;\r\n    procedure HandleAlternativeDragDrop({%H-}X, {%H-}Y: Single); virtual;\r\n    procedure InternalSelectVirtualNode({%H-}ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    function CanStartDragFromMouseDown: Boolean; virtual;\r\n    function CanStartDragFromMouseMove: Boolean; virtual;\r\n    function AlternativeDragDrop: Boolean; virtual;\r\n    function GetNodesSpacing(ANode: TTMSFNCTreeViewVirtualNode): Single; override;\r\n    function IsAnimating: Boolean; virtual;\r\n    function GetNodesRect: TRectF; virtual;\r\n    function CanApplyVerticalOffset: Boolean; virtual;\r\n    function GetReloadOffset: Single; virtual;\r\n    function NeedsReload({%H-}AVerticalOffset: Single): Boolean; virtual;\r\n    function IsVariableNodeHeight: Boolean; override;\r\n    function GetDragObjectScreenShot: TTMSFNCBitmap; override;\r\n    function ColumnStretchingActive: Boolean; override;\r\n    function GetBufStart(ABuffer: string; var ALevel: Integer): string;\r\n    function GetFirstEditableColumn: Integer; virtual;\r\n    function GetLastEditableColumn: Integer; virtual;\r\n    function GetPreviousEditableColumn(AColumn: Integer): Integer; virtual;\r\n    function GetNextEditableColumn(AColumn: Integer): Integer; virtual;\r\n    function GetInplaceEditorRect(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer): TRectF;\r\n    function GetNextFocusableNode(ANode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewVirtualNode; virtual;\r\n    function GetPreviousFocusableNode(ANode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewVirtualNode; virtual;\r\n    function GetVersion: string; override;\r\n    function GetFirstVisibleColumn: Integer; virtual;\r\n    function GetLastVisibleColumn: Integer; virtual;\r\n    function ConfigureNode(AGraphics: TTMSFNCGraphics; AIndex: Integer; ANode: TTMSFNCTreeViewVirtualNode; var AStartY: Single): Boolean; virtual;\r\n    function XYToColumnAnchorCache(AX, AY: Single; ACache: TTMSFNCTreeViewColumnsCache; var AIndex: Integer): string;\r\n    function GetDocURL: string; override;\r\n    function GetRowHeight(ARow: Integer): Double; override;\r\n    function GetColumnText(AColumn: Integer): String; virtual;\r\n    function GetGroupText(AGroup: Integer): String;virtual;\r\n    function GetColumnsTopSize: Double; virtual;\r\n    function GetColumnsExtraSize: Double; virtual;\r\n    function GetColumnsBottomSize: Double; virtual;\r\n    function GetGroupsTopSize: Double; virtual;\r\n    function GetGroupsBottomSize: Double; virtual;\r\n    function GetContentClipRect: TRectF; override;\r\n    function GetContentRect: TRectF; override;\r\n    function GetCalculationRect: TRectF; override;\r\n    function GetGroupsTopRect: TRectF; virtual;\r\n    function GetGroupsBottomRect: TRectF; virtual;\r\n    function GetColumnsTopRect: TRectF; virtual;\r\n    function GetColumnTopLeftEmptyRect: TRectF; virtual;\r\n    function GetColumnBottomLeftEmptyRect: TRectF; virtual;\r\n    function GetColumnBottomRightEmptyRect: TRectF; virtual;\r\n    function GetColumnTopRightEmptyRect: TRectF; virtual;\r\n    function GetGroupTopLeftEmptyRect: TRectF; virtual;\r\n    function GetGroupBottomLeftEmptyRect: TRectF; virtual;\r\n    function GetGroupBottomRightEmptyRect: TRectF; virtual;\r\n    function GetGroupTopRightEmptyRect: TRectF; virtual;\r\n    function GetColumnsBottomRect: TRectF; virtual;\r\n    function GetCacheWidth: Integer; virtual;\r\n    function GetCacheHeight: Integer; virtual;\r\n    function XYToCacheItem(X, Y: Double; OffsetX: Single = 0): TTMSFNCTreeViewCacheItem; virtual;\r\n    function GetFirstVisibleCacheItem: TTMSFNCTreeViewCacheItem; virtual;\r\n    function IsReorderActive: Boolean; virtual;\r\n    function IsDragDropActive: Boolean; virtual;\r\n    function GetHTMLTemplate(AColumnIndex: Integer): string; override;\r\n\r\n    property SelectedVirtualNodeRow: Integer read GetSelectedVirtualNodeRow;\r\n\r\n    property Adapter: TTMSFNCTreeViewAdapter read FAdapter write SetAdapter;\r\n    property NodesAppearance: TTMSFNCTreeViewNodesAppearance read FNodesAppearance write SetNodesAppearance;\r\n    property ColumnsAppearance: TTMSFNCTreeViewColumnsAppearance read FColumnsAppearance write SetColumnsAppearance;\r\n    property GroupsAppearance: TTMSFNCTreeViewGroupsAppearance read FGroupsAppearance write SetGroupsAppearance;\r\n\r\n    property GlobalFont: TTMSFNCAppearanceGlobalFont read FGlobalFont write SetGlobalFont;\r\n    {$IFDEF FNCLIB}\r\n    property DefaultViewJSONOptions: TTMSFNCTreeViewViewJSONOptions read FDefaultViewJSONOptions write SetDefaultViewJSONOptions;\r\n    {$ENDIF}\r\n\r\n    property PrecalculateItems: Boolean read FPrecalculateItems write FPrecalculateItems default False;\r\n\r\n    property OnBeforeCutToClipboard: TTMSFNCTreeViewBeforeCutToClipboardEvent read FOnBeforeCutToClipboard write FOnBeforeCutToClipboard;\r\n    property OnBeforeCopyToClipboard: TTMSFNCTreeViewBeforeCopyToClipboardEvent read FOnBeforeCopyToClipboard write FOnBeforeCopyToClipboard;\r\n    property OnBeforePasteFromClipboard: TTMSFNCTreeViewBeforePasteFromClipboardEvent read FOnBeforePasteFromClipboard write FOnBeforePasteFromClipboard;\r\n    property OnAfterCutToClipboard: TTMSFNCTreeViewAfterCutToClipboardEvent read FOnAfterCutToClipboard write FOnAfterCutToClipboard;\r\n    property OnAfterCopyToClipboard: TTMSFNCTreeViewAfterCopyToClipboardEvent read FOnAfterCopyToClipboard write FOnAfterCopyToClipboard;\r\n    property OnAfterPasteFromClipboard: TTMSFNCTreeViewAfterPasteFromClipboardEvent read FOnAfterPasteFromClipboard write FOnAfterPasteFromClipboard;\r\n\r\n    property OnBeforeSortNodes: TTMSFNCTreeViewBeforeSortNodesEvent read FOnBeforeSortNodes write FOnBeforeSortNodes;\r\n    property OnAfterSortNodes: TTMSFNCTreeViewAfterSortNodesEvent read FOnAfterSortNodes write FOnAfterSortNodes;\r\n    property OnBeforeReorderNode: TTMSFNCTreeViewBeforeReorderNodeEvent read FOnBeforeReorderNode write FOnBeforeReorderNode;\r\n    property OnAfterReorderNode: TTMSFNCTreeViewAfterReorderNodeEvent read FOnAfterReorderNode write FOnAfterReorderNode;\r\n    property OnBeforeDropNode: TTMSFNCTreeViewBeforeDropNodeEvent read FOnBeforeDropNode write FOnBeforeDropNode;\r\n    property OnAfterDropNode: TTMSFNCTreeViewAfterDropNodeEvent read FOnAfterDropNode write FOnAfterDropNode;\r\n\r\n    property OnBeforeOpenInplaceEditor: TTMSFNCTreeViewBeforeOpenInplaceEditorEvent read FOnBeforeOpenInplaceEditor write FOnBeforeOpenInplaceEditor;\r\n    property OnCloseInplaceEditor: TTMSFNCTreeViewCloseInplaceEditorEvent read FOnCloseInplaceEditor write FOnCloseInplaceEditor;\r\n    property OnAfterOpenInplaceEditor: TTMSFNCTreeViewAfterOpenInplaceEditorEvent read FOnAfterOpenInplaceEditor write FOnAfterOpenInplaceEditor;\r\n    property OnGetInplaceEditor: TTMSFNCTreeViewGetInplaceEditorEvent read FOnGetInplaceEditor write FOnGetInplaceEditor;\r\n    property OnCustomizeInplaceEditor: TTMSFNCTreeViewCustomizeInplaceEditorEvent read FOnCustomizeInplaceEditor write FOnCustomizeInplaceEditor;\r\n    property OnGetInplaceEditorRect: TTMSFNCTreeViewGetInplaceEditorRectEvent read FOnGetInplaceEditorRect write FOnGetInplaceEditorRect;\r\n\r\n    property OnNodeCompare: TTMSFNCTreeViewNodeCompareEvent read FOnNodeCompare write FOnNodeCompare;\r\n    property OnBeforeSizeColumn: TTMSFNCTreeViewBeforeSizeColumnEvent read FOnBeforeSizeColumn write FOnBeforeSizeColumn;\r\n    property OnAfterSizeColumn: TTMSFNCTreeViewAfterSizeColumnEvent read FOnAfterSizeColumn write FOnAfterSizeColumn;\r\n    property OnBeforeDrawColumnEmptySpace: TTMSFNCTreeViewBeforeDrawColumnEmptySpaceEvent read FOnBeforeDrawColumnEmptySpace write FOnBeforeDrawColumnEmptySpace;\r\n    property OnAfterDrawColumnEmptySpace: TTMSFNCTreeViewAfterDrawColumnEmptySpaceEvent read FOnAfterDrawColumnEmptySpace write FOnAfterDrawColumnEmptySpace;\r\n    property OnBeforeDrawGroupEmptySpace: TTMSFNCTreeViewBeforeDrawGroupEmptySpaceEvent read FOnBeforeDrawGroupEmptySpace write FOnBeforeDrawGroupEmptySpace;\r\n    property OnAfterDrawGroupEmptySpace: TTMSFNCTreeViewAfterDrawGroupEmptySpaceEvent read FOnAfterDrawGroupEmptySpace write FOnAfterDrawGroupEmptySpace;\r\n\r\n    property OnNeedFilterDropDownData: TTMSFNCTreeViewNeedFilterDropDownDataEvent read FOnNeedFilterDropDownData write FOnNeedFilterDropDownData;\r\n    property OnFilterSelect: TTMSFNCTreeViewFilterSelectEvent read FOnFilterSelect write FOnFilterSelect;\r\n    property OnBeforeDrawColumn: TTMSFNCTreeViewBeforeDrawColumnEvent read FOnBeforeDrawColumn write FOnBeforeDrawColumn;\r\n    property OnAfterDrawColumn: TTMSFNCTreeViewAfterDrawColumnEvent read FOnAfterDrawColumn write FOnAfterDrawColumn;\r\n    property OnBeforeDrawNodeColumn: TTMSFNCTreeViewBeforeDrawColumnEvent read FOnBeforeDrawNodeColumn write FOnBeforeDrawNodeColumn;\r\n    property OnAfterDrawNodeColumn: TTMSFNCTreeViewAfterDrawColumnEvent read FOnAfterDrawNodeColumn write FOnAfterDrawNodeColumn;\r\n    property OnBeforeDrawColumnHeader: TTMSFNCTreeViewBeforeDrawColumnHeaderEvent read FOnBeforeDrawColumnHeader write FOnBeforeDrawColumnHeader;\r\n    property OnAfterDrawColumnHeader: TTMSFNCTreeViewAfterDrawColumnHeaderEvent read FOnAfterDrawColumnHeader write FOnAfterDrawColumnHeader;\r\n    property OnBeforeDrawGroup: TTMSFNCTreeViewBeforeDrawGroupEvent read FOnBeforeDrawGroup write FOnBeforeDrawGroup;\r\n    property OnAfterDrawGroup: TTMSFNCTreeViewAfterDrawGroupEvent read FOnAfterDrawGroup write FOnAfterDrawGroup;\r\n    property OnBeforeDrawNode: TTMSFNCTreeViewBeforeDrawNodeEvent read FOnBeforeDrawNode write FOnBeforeDrawNode;\r\n    property OnAfterDrawNode: TTMSFNCTreeViewAfterDrawNodeEvent read FOnAfterDrawNode write FOnAfterDrawNode;\r\n    property OnBeforeDrawColumnText: TTMSFNCTreeViewBeforeDrawColumnTextEvent read FOnBeforeDrawColumnText write FOnBeforeDrawColumnText;\r\n    property OnGetColumnText: TTMSFNCTreeViewGetColumnTextEvent read FOnGetColumnText write FOnGetColumnText;\r\n    property OnAfterDrawColumnText: TTMSFNCTreeViewAfterDrawColumnTextEvent read FOnAfterDrawColumnText write FOnAfterDrawColumnText;\r\n    property OnBeforeDrawGroupText: TTMSFNCTreeViewBeforeDrawGroupTextEvent read FOnBeforeDrawGroupText write FOnBeforeDrawGroupText;\r\n    property OnGetGroupText: TTMSFNCTreeViewGetGroupTextEvent read FOnGetGroupText write FOnGetGroupText;\r\n    property OnAfterDrawGroupText: TTMSFNCTreeViewAfterDrawGroupTextEvent read FOnAfterDrawGroupText write FOnAfterDrawGroupText;\r\n    property OnBeforeDrawNodeText: TTMSFNCTreeViewBeforeDrawNodeTextEvent read FOnBeforeDrawNodeText write FOnBeforeDrawNodeText;\r\n    property OnBeforeDrawNodeTitle: TTMSFNCTreeViewBeforeDrawNodeTitleEvent read FOnBeforeDrawNodeTitle write FOnBeforeDrawNodeTitle;\r\n    property OnAfterDrawSortIndicator: TTMSFNCTreeViewAfterDrawSortIndicatorEvent read FOnAfterDrawSortIndicator write FOnAfterDrawSortIndicator;\r\n    property OnBeforeDrawSortIndicator: TTMSFNCTreeViewBeforeDrawSortIndicatorEvent read FOnBeforeDrawSortIndicator write FOnBeforeDrawSortIndicator;\r\n    property OnGetNodeHeight: TTMSFNCTreeViewGetNodeHeightEvent read FOnGetNodeHeight write FOnGetNodeHeight;\r\n    property OnGetNodeText: TTMSFNCTreeViewGetNodeTextEvent read FOnGetNodeText write FOnGetNodeText;\r\n    property OnGetNodeTitle: TTMSFNCTreeViewGetNodeTitleEvent read FOnGetNodeTitle write FOnGetNodeTitle;\r\n    property OnGetNodeTitleExpanded: TTMSFNCTreeViewGetNodeTitleExpandedEvent read FOnGetNodeExpanded write FOnGetNodeExpanded;\r\n    property OnGetNodeSides: TTMSFNCTreeViewGetNodeSidesEvent read FOnGetNodeSides write FOnGetNodeSides;\r\n    property OnGetNodeRounding: TTMSFNCTreeViewGetNodeRoundingEvent read FOnGetNodeRounding write FOnGetNodeRounding;\r\n    property OnGetNodeData: TTMSFNCTreeViewGetNodeDataEvent read FOnGetNodeData write FOnGetNodeData;\r\n    property OnGetNodeTrimming: TTMSFNCTreeViewGetNodeTrimmingEvent read FOnGetNodeTrimming write FOnGetNodeTrimming;\r\n    property OnGetNodeWordWrapping: TTMSFNCTreeViewGetNodeWordWrappingEvent read FOnGetNodeWordWrapping write FOnGetNodeWordWrapping;\r\n    property OnGetNodeTitleTrimming: TTMSFNCTreeViewGetNodeTrimmingEvent read FOnGetNodeTitleTrimming write FOnGetNodeTitleTrimming;\r\n    property OnGetNodeTitleWordWrapping: TTMSFNCTreeViewGetNodeWordWrappingEvent read FOnGetNodeTitleWordWrapping write FOnGetNodeTitleWordWrapping;\r\n    property OnGetNodeExtraSize: TTMSFNCTreeViewGetNodeExtraSizeEvent read FOnGetNodeExtraSize write FOnGetNodeExtraSize;\r\n    property OnGetNodeTitleExtraSize: TTMSFNCTreeViewGetNodeTitleExtraSizeEvent read FOnGetNodeTitleExtraSize write FOnGetNodeTitleExtraSize;\r\n    property OnGetNodeHorizontalTextAlign: TTMSFNCTreeViewGetNodeHorizontalTextAlignEvent read FOnGetNodeHorizontalTextAlign write FOnGetNodeHorizontalTextAlign;\r\n    property OnGetNodeVerticalTextAlign: TTMSFNCTreeViewGetNodeVerticalTextAlignEvent read FOnGetNodeVerticalTextAlign write FOnGetNodeVerticalTextAlign;\r\n    property OnGetNodeTitleHorizontalTextAlign: TTMSFNCTreeViewGetNodeHorizontalTextAlignEvent read FOnGetNodeTitleHorizontalTextAlign write FOnGetNodeTitleHorizontalTextAlign;\r\n    property OnGetNodeTitleVerticalTextAlign: TTMSFNCTreeViewGetNodeVerticalTextAlignEvent read FOnGetNodeTitleVerticalTextAlign write FOnGetNodeTitleVerticalTextAlign;\r\n    property OnGetColumnTrimming: TTMSFNCTreeViewGetColumnTrimmingEvent read FOnGetColumnTrimming write FOnGetColumnTrimming;\r\n    property OnGetColumnWordWrapping: TTMSFNCTreeViewGetColumnWordWrappingEvent read FOnGetColumnWordWrapping write FOnGetColumnWordWrapping;\r\n    property OnGetColumnHorizontalTextAlign: TTMSFNCTreeViewGetColumnHorizontalTextAlignEvent read FOnGetColumnHorizontalTextAlign write FOnGetColumnHorizontalTextAlign;\r\n    property OnGetColumnVerticalTextAlign: TTMSFNCTreeViewGetColumnVerticalTextAlignEvent read FOnGetColumnVerticalTextAlign write FOnGetColumnVerticalTextAlign;\r\n    property OnGetNodeIcon: TTMSFNCTreeViewGetNodeIconEvent read FOnGetNodeIcon write FOnGetNodeIcon;\r\n    property OnGetNodeIconSize: TTMSFNCTreeViewGetNodeIconSizeEvent read FOnGetNodeIconSize write FOnGetNodeIconSize;\r\n    property OnGetNumberOfNodes: TTMSFNCTreeViewGetNumberOfNodesEvent read FOnGetNumberOfNodes write FOnGetNumberOfNodes;\r\n    property OnAfterDrawNodeText: TTMSFNCTreeViewAfterDrawNodeTextEvent read FOnAfterDrawNodeText write FOnAfterDrawNodeText;\r\n    property OnAfterDrawNodeTitle: TTMSFNCTreeViewAfterDrawNodeTitleEvent read FOnAfterDrawNodeTitle write FOnAfterDrawNodeTitle;\r\n    property OnAfterDrawNodeIcon: TTMSFNCTreeViewAfterDrawNodeIconEvent read FOnAfterDrawNodeIcon write FOnAfterDrawNodeIcon;\r\n    property OnBeforeDrawNodeIcon: TTMSFNCTreeViewBeforeDrawNodeIconEvent read FOnBeforeDrawNodeIcon write FOnBeforeDrawNodeIcon;\r\n    property OnAfterDrawNodeExtra: TTMSFNCTreeViewAfterDrawNodeExtraEvent read FOnAfterDrawNodeExtra write FOnAfterDrawNodeExtra;\r\n    property OnDrawNodeExtra: TTMSFNCTreeViewDrawNodeExtraEvent read FOnDrawNodeExtra write FOnDrawNodeExtra;\r\n    property OnBeforeDrawNodeExtra: TTMSFNCTreeViewBeforeDrawNodeExtraEvent read FOnBeforeDrawNodeExtra write FOnBeforeDrawNodeExtra;\r\n    property OnAfterDrawNodeTitleExtra: TTMSFNCTreeViewAfterDrawNodeTitleExtraEvent read FOnAfterDrawNodeTitleExtra write FOnAfterDrawNodeTitleExtra;\r\n    property OnDrawNodeTitleExtra: TTMSFNCTreeViewDrawNodeTitleExtraEvent read FOnDrawNodeTitleExtra write FOnDrawNodeTitleExtra;\r\n    property OnBeforeDrawNodeTitleExtra: TTMSFNCTreeViewBeforeDrawNodeTitleExtraEvent read FOnBeforeDrawNodeTitleExtra write FOnBeforeDrawNodeTitleExtra;\r\n    property OnAfterDrawNodeExpand: TTMSFNCTreeViewAfterDrawNodeExpandEvent read FOnAfterDrawNodeExpand write FOnAfterDrawNodeExpand;\r\n    property OnBeforeDrawNodeExpand: TTMSFNCTreeViewBeforeDrawNodeExpandEvent read FOnBeforeDrawNodeExpand write FOnBeforeDrawNodeExpand;\r\n    property OnAfterDrawNodeCheck: TTMSFNCTreeViewAfterDrawNodeCheckEvent read FOnAfterDrawNodeCheck write FOnAfterDrawNodeCheck;\r\n    property OnBeforeDrawNodeCheck: TTMSFNCTreeViewBeforeDrawNodeCheckEvent read FOnBeforeDrawNodeCheck write FOnBeforeDrawNodeCheck;\r\n    property OnBeforeUpdateNode: TTMSFNCTreeViewBeforeUpdateNodeEvent read FOnBeforeUpdateNode write FOnBeforeUpdateNode;\r\n    property OnAfterUpdateNode: TTMSFNCTreeViewAfterUpdateNodeEvent read FOnAfterUpdateNode write FOnAfterUpdateNode;\r\n    property OnBeforeUnCheckNode: TTMSFNCTreeViewBeforeUnCheckNodeEvent read FOnBeforeUnCheckNode write FOnBeforeUnCheckNode;\r\n    property OnAfterUnCheckNode: TTMSFNCTreeViewAfterUnCheckNodeEvent read FOnAfterUnCheckNode write FOnAfterUnCheckNode;\r\n    property OnBeforeCheckNode: TTMSFNCTreeViewBeforeCheckNodeEvent read FOnBeforeCheckNode write FOnBeforeCheckNode;\r\n    property OnAfterCheckNode: TTMSFNCTreeViewAfterCheckNodeEvent read FOnAfterCheckNode write FOnAfterCheckNode;\r\n    property OnFocusedNodeChanged: TTMSFNCTreeViewFocusedNodeChangedEvent read FOnFocusedNodeChanged write FOnFocusedNodeChanged;\r\n    property OnBeforeCollapseNode: TTMSFNCTreeViewBeforeCollapseNodeEvent read FOnBeforeCollapseNode write FOnBeforeCollapseNode;\r\n    property OnAfterCollapseNode: TTMSFNCTreeViewAfterCollapseNodeEvent read FOnAfterCollapseNode write FOnAfterCollapseNode;\r\n    property OnBeforeExpandNode: TTMSFNCTreeViewBeforeExpandNodeEvent read FOnBeforeExpandNode write FOnBeforeExpandNode;\r\n    property OnAfterExpandNode: TTMSFNCTreeViewAfterExpandNodeEvent read FOnAfterExpandNode write FOnAfterExpandNode;\r\n    property OnBeforeSelectAllNodes: TTMSFNCTreeViewBeforeSelectAllNodesEvent read FOnBeforeSelectAllNodes write FOnBeforeSelectAllNodes;\r\n    property OnAfterSelectAllNodes: TTMSFNCTreeViewAfterSelectAllNodesEvent read FOnAfterSelectAllNodes write FOnAfterSelectAllNodes;\r\n    property OnBeforeSelectNode: TTMSFNCTreeViewBeforeSelectNodeEvent read FOnBeforeSelectNode write FOnBeforeSelectNode;\r\n    property OnAfterSelectNode: TTMSFNCTreeViewAfterSelectNodeEvent read FOnAfterSelectNode write FOnAfterSelectNode;\r\n    property OnNodeClick: TTMSFNCTreeViewNodeClickEvent read FOnNodeClick write FOnNodeClick;\r\n    property OnNodeValueClick: TTMSFNCTreeViewNodeValueClickEvent read FOnNodeValueClick write FOnNodeValueClick;\r\n    property OnNodeMouseLeave: TTMSFNCTreeViewNodeMouseLeaveEvent read FOnNodeMouseLeave write FOnNodeMouseLeave;\r\n    property OnNodeMouseEnter: TTMSFNCTreeViewNodeMouseEnterEvent read FOnNodeMouseEnter write FOnNodeMouseEnter;\r\n    property OnNodeDblClick: TTMSFNCTreeViewNodeClickEvent read FOnNodeDblClick write FOnNodeDblClick;\r\n    property OnBeforeUnSelectNode: TTMSFNCTreeViewBeforeUnSelectNodeEvent read FOnBeforeUnSelectNode write FOnBeforeUnSelectNode;\r\n    property OnAfterUnSelectNode: TTMSFNCTreeViewAfterUnSelectNodeEvent read FOnAfterUnSelectNode write FOnAfterUnSelectNode;\r\n    property OnIsNodeChecked: TTMSFNCTreeViewIsNodeCheckedEvent read FOnIsNodeChecked write FOnIsNodeChecked;\r\n    property OnIsNodeExpanded: TTMSFNCTreeViewIsNodeExpandedEvent read FOnIsNodeExpanded write FOnIsNodeExpanded;\r\n    property OnIsNodeVisible: TTMSFNCTreeViewIsNodeVisibleEvent read FOnIsNodeVisible write FOnIsNodeVisible;\r\n    property OnIsNodeEnabled: TTMSFNCTreeViewIsNodeEnabledEvent read FOnIsNodeEnabled write FOnIsNodeEnabled;\r\n    property OnGetNodeColor: TTMSFNCTreeViewGetNodeColorEvent read FOnGetNodeColor write FOnGetNodeColor;\r\n    property OnGetNodeStrokeColor: TTMSFNCTreeViewGetNodeColorEvent read FOnGetNodeStrokeColor write FOnGetNodeStrokeColor;\r\n    property OnGetNodeCheckType: TTMSFNCTreeViewGetNodeCheckTypeEvent read FOnGetNodeCheckType write FOnGetNodeCheckType;\r\n    property OnGetNodeSelectedColor: TTMSFNCTreeViewGetNodeColorEvent read FOnGetNodeSelectedStrokeColor write FOnGetNodeSelectedStrokeColor;\r\n    property OnGetNodeSelectedStrokeColor: TTMSFNCTreeViewGetNodeColorEvent read FOnGetNodeSelectedColor write FOnGetNodeSelectedColor;\r\n    property OnGetNodeDisabledColor: TTMSFNCTreeViewGetNodeColorEvent read FOnGetNodeDisabledColor write FOnGetNodeDisabledColor;\r\n    property OnGetNodeDisabledStrokeColor: TTMSFNCTreeViewGetNodeColorEvent read FOnGetNodeDisabledStrokeColor write FOnGetNodeDisabledStrokeColor;\r\n    property OnGetNodeTextColor: TTMSFNCTreeViewGetNodeTextColorEvent read FOnGetNodeTextColor write FOnGetNodeTextColor;\r\n    property OnGetNodeSelectedTextColor: TTMSFNCTreeViewGetNodeTextColorEvent read FOnGetNodeSelectedTextColor write FOnGetNodeSelectedTextColor;\r\n    property OnGetNodeDisabledTextColor: TTMSFNCTreeViewGetNodeTextColorEvent read FOnGetNodeDisabledTextColor write FOnGetNodeDisabledTextColor;\r\n    property OnGetNodeTitleColor: TTMSFNCTreeViewGetNodeTitleColorEvent read FOnGetNodeTitleColor write FOnGetNodeTitleColor;\r\n    property OnGetNodeSelectedTitleColor: TTMSFNCTreeViewGetNodeTitleColorEvent read FOnGetNodeSelectedTitleColor write FOnGetNodeSelectedTitleColor;\r\n    property OnGetNodeDisabledTitleColor: TTMSFNCTreeViewGetNodeTitleColorEvent read FOnGetNodeDisabledTitleColor write FOnGetNodeDisabledTitleColor;\r\n    property OnIsNodeExtended: TTMSFNCTreeViewIsNodeExtendedEvent read FOnIsNodeExtended write FOnIsNodeExtended;\r\n    property OnNodeAnchorClick: TTMSFNCTreeViewNodeAnchorClickEvent read FOnNodeAnchorClick write FOnNodeAnchorClick;\r\n    property OnNodeTitleAnchorClick: TTMSFNCTreeViewNodeTitleAnchorClickEvent read FOnNodeTitleAnchorClick write FOnNodeTitleAnchorClick;\r\n    property OnNodeChanged: TTMSFNCTreeViewNodeChangedEvent read FOnNodeChanged write FOnNodeChanged;\r\n    property Interaction: TTMSFNCTreeViewInteraction read FInteraction write SetInteraction;\r\n    property OnVScroll: TTMSFNCTreeViewScrollEvent read FOnVScroll write FOnVScroll;\r\n    property OnHScroll: TTMSFNCTreeViewScrollEvent read FOnHScroll write FOnHScroll;\r\n    property Version: string read GetVersion;\r\n    property ColumnStroke: TTMSFNCGraphicsStroke read FColumnStroke write SetColumnStroke;\r\n    property InplaceEditorActive: Boolean read FInplaceEditorActive write FInplaceEditorActive;\r\n    property UpdateNodeColumn: Integer read FUpdateNodeColumn write FUpdateNodeColumn;\r\n    property OnColumnAnchorClick: TTMSFNCTreeViewColumnAnchorClickEvent read FOnColumnAnchorClick write FOnColumnAnchorClick;\r\n    property OnCustomizeFilterListBox: TTMSFNCTreeViewCustomizeFilterListBoxEvent read FOnCustomizeFilterListBox write FOnCustomizeFilterListBox;\r\n    {$IFDEF FNCLIB}\r\n    property OnBeforeAddJSONNode: TTMSFNCTreeViewBeforeAddJSONNodeEvent read FOnBeforeAddJSONNode write FOnBeforeAddJSONNode;\r\n    property OnAfterAddJSONNode: TTMSFNCTreeViewAfterAddJSONNodeEvent read FOnAfterAddJSONNode write FOnAfterAddJSONNode;\r\n    {$ENDIF}\r\n    property OnGetHTMLTemplateValue: TTMSFNCTreeViewGetHTMLTemplateValueEvent read FOnGetHTMLTemplateValue write FOnGetHTMLTemplateValue;\r\n    property OnGetHTMLTemplate: TTMSFNCTreeViewGetHTMLTemplateEvent read FOnGetHTMLTemplate write FOnGetHTMLTemplate;\r\n\r\n    property DragBitmap: TTMSFNCImage read FDragBitmap;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF); override;\r\n    procedure InitSample; virtual;\r\n    procedure CutToClipboard(ATextOnly: Boolean = False); virtual;\r\n    procedure CopyToClipboard(ATextOnly: Boolean = False); virtual;\r\n    procedure PasteFromClipboard; virtual;\r\n    procedure Sort(AColumn: Integer = 0; ARecurse: Boolean = False; ACaseSensitive: Boolean = True; ASortingMode: TTMSFNCTreeViewNodesSortMode = nsmAscending; AClearNodeList: Boolean = True); {$IFDEF FMXLIB}reintroduce;{$ENDIF} virtual;\r\n    procedure ClearSorting;\r\n\r\n    procedure LoadFromStream(const AStream: TStream; AEncoding: TEncoding = nil); overload;\r\n    {$IFNDEF WEBLIB}\r\n    procedure LoadFromFile(const AFileName: string; AEncoding: TEncoding = nil); overload;\r\n    procedure SaveToFile(const AFileName: string; const ATextOnly: Boolean = True; AEncoding: TEncoding = nil); overload;\r\n    procedure SaveToStream(const AStream: TStream; const ATextOnly: Boolean = True; AEncoding: TEncoding = nil); overload;\r\n    {$ENDIF}\r\n    {$IFDEF FNCLIB}\r\n    procedure ViewJSON(AFileName: string; AViewOptions: TTMSFNCTreeViewViewJSONOptions = nil); virtual;\r\n    procedure ViewJSONFromStream(AStream: TStream; AViewOptions: TTMSFNCTreeViewViewJSONOptions = nil); virtual;\r\n    procedure ViewJSONFromText(AText: string; AViewOptions: TTMSFNCTreeViewViewJSONOptions = nil); virtual;\r\n    {$ENDIF}\r\n\r\n    procedure RemoveSelectedVirtualNodes; virtual;\r\n    procedure RemoveSelectedNodes; virtual;\r\n    procedure UnSelectAllNodes; virtual;\r\n    procedure SelectAllNodes; virtual;\r\n    procedure UnSelectAllVirtualNodes; virtual;\r\n    procedure SelectAllVirtualNodes; virtual;\r\n    procedure SelectNode(ANode: TTMSFNCTreeViewNode); virtual;\r\n    procedure SelectVirtualNodeByRow(ARow: Integer); virtual;\r\n    procedure SelectVirtualNode(ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure SelectNodes(ANodes: TTMSFNCTreeViewNodeArray); virtual;\r\n    procedure SelectVirtualNodes(ANodes: TTMSFNCTreeViewVirtualNodeArray); virtual;\r\n    procedure UnSelectNode(ANode: TTMSFNCTreeViewNode); virtual;\r\n    procedure UnSelectVirtualNode(ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure UnSelectNodes(ANodes: TTMSFNCTreeViewNodeArray); virtual;\r\n    procedure UnSelectVirtualNodes(ANodes: TTMSFNCTreeViewVirtualNodeArray); virtual;\r\n    procedure RemoveNodeFromSelection(ANode: TTMSFNCTreeViewVirtualNode); override;\r\n    procedure AddNodeToSelection(ANode: TTMSFNCTreeViewVirtualNode); override;\r\n    procedure EditNode(ANode: TTMSFNCTreeViewNode; AColumn: Integer); virtual;\r\n    procedure EditVirtualNode(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer); virtual;\r\n    procedure StopEditing; virtual;\r\n    procedure CancelEditing; virtual;\r\n    procedure Clear; virtual;\r\n    function GetVisibleNodeCount: Integer; virtual;\r\n    function GetFirstVisibleVirtualNode: TTMSFNCTreeViewVirtualNode; virtual;\r\n    function GetLastVisibleVirtualNode: TTMSFNCTreeViewVirtualNode; virtual;\r\n    function GetFirstVisibleVirtualNodeRow: Integer; virtual;\r\n    function GetLastVisibleVirtualNodeRow: Integer; virtual;\r\n    function GetNodesFromClipboard: TTMSFNCTreeViewCopyNodes; virtual;\r\n    function IsEditing: Boolean; virtual;\r\n    function LookupNode(ALookupString: String; ARootNodesOnly: Boolean = False; AColumn: Integer = -1; ACaseSensitive: Boolean = False; AAutoSelect: Boolean = False; AAutoExpand: Boolean = False): TTMSFNCTreeViewVirtualNode; virtual;\r\n    function GetInplaceEditor: TTMSFNCTreeViewInplaceEditor; virtual;\r\n    function IsNodeSelectable(ANode: TTMSFNCTreeViewNode): Boolean; virtual;\r\n    function IsVirtualNodeSelectable(ANode: TTMSFNCTreeViewVirtualNode): Boolean; virtual;\r\n    function XYToColumnAnchor(AX, AY: Single; var AIndex: Integer): string; virtual;\r\n    function XYToNode(X, Y: Double; OffsetX: Single = 0): TTMSFNCTreeViewVirtualNode; virtual;\r\n    function XYToNodeAnchor(ANode: TTMSFNCTreeViewVirtualNode; X, Y: Single): TTMSFNCTreeViewNodeAnchor; virtual;\r\n    function XYToNodeTitleAnchor(ANode: TTMSFNCTreeViewVirtualNode; X, Y: Single): TTMSFNCTreeViewNodeAnchor; virtual;\r\n    function XYToNodeExpand(ANode: TTMSFNCTreeViewVirtualNode; X, Y: Single): Boolean; virtual;\r\n    function XYToNodeExtra(ANode: TTMSFNCTreeViewVirtualNode; X, Y: Single): Boolean; virtual;\r\n    function XYToNodeTitleExtra(ANode: TTMSFNCTreeViewVirtualNode; X, Y: Single): Boolean; virtual;\r\n    function XYToNodeCheck(ANode: TTMSFNCTreeViewVirtualNode; X, Y: Single): TTMSFNCTreeViewNodeCheck; virtual;\r\n    function XYToNodeIcon(ANode: TTMSFNCTreeViewVirtualNode; X, Y: Single): TTMSFNCTreeViewNodeIcon; virtual;\r\n    function XYToNodeTextColumn(ANode: TTMSFNCTreeViewVirtualNode; X, Y: Single): Integer; virtual;\r\n    function XYToColumnSize(X, Y: Single): Integer; virtual;\r\n    function XYToColumn(X, Y: Single; AIncludeRows: Boolean = False): Integer; virtual;\r\n    function XYToColumnFilter(X, Y: Single): Integer; virtual;\r\n    function XYToColumnExpand(X, Y: Single): Integer; virtual;\r\n    function SelectedNodeCount: Integer; virtual;\r\n    function SelectedVirtualNodeCount: Integer; virtual;\r\n    function IsNodeSelected(ANode: TTMSFNCTreeViewNode): Boolean; virtual;\r\n    function IsVirtualNodeSelected(ANode: TTMSFNCTreeViewVirtualNode): Boolean; virtual;\r\n    property FocusedVirtualNode: TTMSFNCTreeViewVirtualNode read GetFocusedVirtualNode write SetFocusedVirtualNode;\r\n    property FocusedNode: TTMSFNCTreeViewNode read GetFocusedNode write SetFocusedNode;\r\n    property SelectedNodes[AIndex: Integer]: TTMSFNCTreeViewNode read GetSelNode;\r\n    property SelectedVirtualNode: TTMSFNCTreeViewVirtualNode read GetFocusedVirtualNode write SetSelectedVirtualNode;\r\n    property SelectedNode: TTMSFNCTreeViewNode read GetFocusedNode write SetSelectedNode;\r\n    property SelectedVirtualNodes[AIndex: Integer]: TTMSFNCTreeViewVirtualNode read GetSelVirtualNode;\r\n    property SortColumn: Integer read FSortColumn write SetSortColumn default -1;\r\n    property DragNode: TTMSFNCTreeViewVirtualNode read FDragNode write FDragNode;\r\n    property DragModeStarted: Boolean read FDragModeStarted;\r\n    property CompactMode: Boolean read FCompactMode write SetCompactMode;\r\n    property TopRow: Integer read GetTopRow write SetTopRow;\r\n    property BottomRow: Integer read GetBottomRow;\r\n\r\n    property OnCustomReorder: TTMSFNCTreeViewReorderEvent read FOnCustomReorder write FOnCustomReorder;\r\n    property OnCustomDragOver: TTMSFNCTreeViewDragOverEvent read FOnCustomDragOver write FOnCustomDragOver;\r\n    property OnCustomDragDrop: TTMSFNCTreeViewDragDropEvent read FOnCustomDragDrop write FOnCustomDragDrop;\r\n    property OnCustomCopyToClipboard: TNotifyEvent read FOnCustomCopyToClipboard write FOnCustomCopyToClipboard;\r\n    property OnCustomCutToClipboard: TNotifyEvent read FOnCustomCutToClipboard write FOnCustomCutToClipboard;\r\n    property OnCustomPasteFromClipboard: TNotifyEvent read FOnCustomPasteFromClipboard write FOnCustomPasteFromClipboard;\r\n    property OnCustomColumnSort: TTMSFNCTreeViewColumnSortEvent read FOnCustomColumnSort write FOnCustomColumnSort;\r\n    property OnCustomLookup: TTMSFNCTreeViewLookupEvent read FOnCustomLookup write FOnCustomLookup;\r\n  end;\r\n\r\n  TTMSFNCTreeViewPublished = class(TTMSFNCCustomTreeView)\r\n  published\r\n    property Fill;\r\n    property Stroke;\r\n    property BitmapContainer;\r\n    property HorizontalScrollBarVisible;\r\n    property VerticalScrollBarVisible;\r\n    property Groups;\r\n    property GroupsAppearance;\r\n    property ColumnStroke;\r\n    property Columns;\r\n    property Nodes;\r\n    property ColumnsAppearance;\r\n    property NodesAppearance;\r\n    property Interaction;\r\n    property StretchScrollBars;\r\n    property Version;\r\n    property PopupMenu;\r\n    property GlobalFont;\r\n    property OnCustomizeFilterListBox;\r\n    property OnNeedFilterDropDownData;\r\n    property OnFilterSelect;\r\n    property OnBeforeDrawColumn;\r\n    property OnAfterDrawColumn;\r\n    property OnBeforeDrawColumnHeader;\r\n    property OnAfterDrawColumnHeader;\r\n    property OnBeforeDrawNodeColumn;\r\n    property OnAfterDrawNodeColumn;\r\n    property OnBeforeSortNodes;\r\n    property OnAfterSortNodes;\r\n    property OnBeforeDrawGroup;\r\n    property OnAfterDrawGroup;\r\n    property OnBeforeDrawNode;\r\n    property OnAfterDrawNode;\r\n    property OnBeforeDrawColumnText;\r\n    property OnGetColumnText;\r\n    property OnNodeCompare;\r\n    property OnAfterDrawColumnText;\r\n    property OnBeforeDrawGroupText;\r\n    property OnGetGroupText;\r\n    property OnAfterDrawGroupText;\r\n    property OnBeforeDrawNodeText;\r\n    property OnAfterDrawNodeIcon;\r\n    property OnAfterDrawNodeExpand;\r\n    property OnBeforeDrawNodeIcon;\r\n    property OnBeforeDrawNodeExpand;\r\n    property OnAfterDrawNodeCheck;\r\n    property OnBeforeDrawNodeCheck;\r\n    property OnGetNodeCheckType;\r\n    property OnGetNodeText;\r\n    property OnGetNodeData;\r\n    property OnBeforeSizeColumn;\r\n    property OnAfterSizeColumn;\r\n    property OnGetNodeTrimming;\r\n    property OnGetNodeWordWrapping;\r\n    property OnGetNodeHorizontalTextAlign;\r\n    property OnGetNodeVerticalTextAlign;\r\n    property OnGetColumnTrimming;\r\n    property OnFocusedNodeChanged;\r\n    property OnGetColumnWordWrapping;\r\n    property OnGetColumnHorizontalTextAlign;\r\n    property OnGetColumnVerticalTextAlign;\r\n    property OnBeforeUnCheckNode;\r\n    property OnAfterUnCheckNode;\r\n    property OnBeforeCheckNode;\r\n    property OnAfterCheckNode;\r\n    property OnBeforeCollapseNode;\r\n    property OnAfterCollapseNode;\r\n    property OnBeforeExpandNode;\r\n    property OnAfterExpandNode;\r\n    property OnGetNodeIcon;\r\n    property OnGetNodeIconSize;\r\n    property OnGetNumberOfNodes;\r\n    property OnIsNodeExtended;\r\n    property OnIsNodeExpanded;\r\n    property OnAfterDrawNodeText;\r\n    property OnIsNodeChecked;\r\n    property OnNodeAnchorClick;\r\n    property OnBeforeUpdateNode;\r\n    property OnAfterUpdateNode;\r\n    property OnBeforeSelectNode;\r\n    property OnAfterSelectNode;\r\n    property OnBeforeSelectAllNodes;\r\n    property OnAfterSelectAllNodes;\r\n    property OnNodeClick;\r\n    property OnNodeValueClick;\r\n    property OnNodeMouseLeave;\r\n    property OnNodeMouseEnter;\r\n    property OnNodeDblClick;\r\n    property OnBeforeUnSelectNode;\r\n    property OnAfterUnSelectNode;\r\n    property OnGetNodeSides;\r\n    property OnBeforeOpenInplaceEditor;\r\n    property OnCloseInplaceEditor;\r\n    property OnAfterOpenInplaceEditor;\r\n    property OnGetInplaceEditor;\r\n    property OnCustomizeInplaceEditor;\r\n    property OnGetInplaceEditorRect;\r\n    property OnNodeChanged;\r\n    property OnHScroll;\r\n    property OnVScroll;\r\n    property OnBeforeDrawColumnEmptySpace;\r\n    property OnAfterDrawColumnEmptySpace;\r\n    property OnBeforeDrawGroupEmptySpace;\r\n    property OnAfterDrawGroupEmptySpace;\r\n//    property OnIsNodeVisible;\r\n    property OnIsNodeEnabled;\r\n    property OnGetNodeColor;\r\n    property OnGetNodeSelectedColor;\r\n    property OnGetNodeDisabledColor;\r\n    property OnGetNodeTextColor;\r\n    property OnGetNodeSelectedTextColor;\r\n    property OnGetNodeDisabledTextColor;\r\n    property OnGetNodeHeight;\r\n    property OnBeforeReorderNode;\r\n    property OnAfterReorderNode;\r\n    property OnBeforeDropNode;\r\n    property OnAfterDropNode;\r\n    property OnBeforeCutToClipboard;\r\n    property OnBeforeCopyToClipboard;\r\n    property OnBeforePasteFromClipboard;\r\n    property OnAfterCutToClipboard;\r\n    property OnAfterCopyToClipboard;\r\n    property OnAfterPasteFromClipboard;\r\n    property OnBeforeDrawSortIndicator;\r\n    property OnAfterDrawSortIndicator;\r\n    property OnColumnAnchorClick;\r\n    {$IFDEF FNCLIB}\r\n    property OnBeforeAddJSONNode;\r\n    property OnAfterAddJSONNode;\r\n    property DefaultViewJSONOptions;\r\n    {$ENDIF}\r\n    property OnGetHTMLTemplateValue;\r\n    property OnGetHTMLTemplate;\r\n  end;\r\n\r\n\r\n{$IFDEF WEBLIB}\r\nconst\r\n  TTMSFNCTREEVIEWEXPAND = 'data:image/PNG;base64,iVBORw0KGgoAAAANSUhEUgAAAAsAAAALCAIAAAAmzuBxAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAA'+\r\n                          'AJcEhZcwAADsMAAA7DAcdvqGQAAAAYdEVYdFNvZnR3YXJlAHBhaW50Lm5ldCA0LjAuNvyMY98AAAAySURBVChT'+\r\n                          'Y6iurcaPQCr+4wZYVHj5ekFZYEBdFUAJTISiAg4gEnBAIxVoAKoCH6qtBgAs4hCpNRg4EQAAAABJRU5ErkJggg'+\r\n                          '==';\r\n  TTMSFNCTREEVIEWCOLLAPSE = 'data:image/PNG;base64,iVBORw0KGgoAAAANSUhEUgAAAAsAAAALCAIAAAAmzuBxAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUA'+\r\n                            'AAAJcEhZcwAADsMAAA7DAcdvqGQAAAAYdEVYdFNvZnR3YXJlAHBhaW50Lm5ldCA0LjAuNvyMY98AAAAmSURB'+\r\n                            'VChTY6iurcaPQCr+4wYDoMLL1wsZQQRJNAMroKIKfKi2GgCBNiGJV4wrvQAAAABJRU5ErkJggg==';\r\n  TTMSFNCTREEVIEWEXPANDLARGE = 'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABYAAAAWCAIAAABL1vtsAAAAAXNSR0IArs4'+\r\n                               'c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAAYdEVYdFNvZnR3YXJlAHBhaW50'+\r\n                               'Lm5ldCA0LjAuNvyMY98AAABDSURBVDhPY6iuraYQUc+I/2QBehnh5esFRFAOBhg1AgFoYwREAzEIop42R'+\r\n                               'mACZA2YYNQIBKCXEfgBtY2gBFFsRG01AN+TQqHfgmnlAAAAAElFTkSuQmCC';\r\n  TTMSFNCTREEVIEWCOLLAPSELARGE = 'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABYAAAAWCAIAAABL1vtsAAAABGdBTUEAALGP'+\r\n                                 'C/xhBQAAAAlwSFlzAAAOwgAADsIBFShKgAAAABh0RVh0U29mdHdhcmUAcGFpbnQubmV0IDQuMC42/Ixj3w'+\r\n                                 'AAADRJREFUOE9jqK6tphBRz4j/ZIFRIxBg+Bvh5euFB0EVgQEtjSAejBqBAMPTCEoQxUbUVgMAPoCGIXvOpikAAAAASUVORK5CYII=';\r\n{$ENDIF}\r\n\r\nimplementation\r\n\r\nuses\r\n  Math, WEBLib.TMSFNCTreeViewBase, WEBLib.TMSFNCUtils,\r\n  WEBLib.TMSFNCStyles, WEBLib.Forms, WEBLib.Graphics\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Styles.Objects\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  ,Rtti\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  ;\r\n\r\n{$R TMSFNCTreeView.res}\r\n\r\ntype\r\n  TTMSFNCTreeViewGroupOpen = class(TTMSFNCTreeViewGroup);\r\n  TTMSFNCTreeViewNodeOpen = class(TTMSFNCTreeViewNode);\r\n  TTMSFNCTreeViewColumnOpen = class(TTMSFNCTreeViewColumn);\r\n  TTMSFNCTreeViewVirtualNodeOpen = class(TTMSFNCTreeViewVirtualNode);\r\n\r\nfunction GetTickCountX: DWORD;\r\nvar\r\n  h, m, s, ms: Word;\r\nbegin\r\n  DecodeTime(Now, h, m, s, ms);\r\n  Result := ms + s * 1000 + m * 60 * 1000 + h * 60 * 60 * 1000;\r\nend;\r\n\r\nfunction AnimateDouble(var Start, Stop: Double; Delta, Margin: Double): Boolean;\r\nbegin\r\n  Result := true;\r\n  if (Start > Stop - Margin) and (Start < Stop + Margin) then\r\n  begin\r\n    Start := Stop;\r\n    Result := false;\r\n  end\r\n  else\r\n  begin\r\n    Delta := Max(Margin, Delta);\r\n    if Start < Stop then\r\n      Start := Start + Delta\r\n    else\r\n      Start := Start - Delta;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCCustomTreeView }\r\n\r\n{$IFDEF FNCLIB}\r\nprocedure TTMSFNCCustomTreeView.ViewJSON(AFileName: string; AViewOptions: TTMSFNCTreeViewViewJSONOptions = nil);\r\nvar\r\n  ms: TMemoryStream;\r\n  procedure InternalInputFromJSON;\r\n  begin\r\n    ms.Position := 0;\r\n    ViewJSONFromStream(ms, AViewOptions);\r\n  end;\r\nbegin\r\n  ms := TMemoryStream.Create;\r\n  try\r\n    {$IFDEF WEBLIB}\r\n    ms.LoadFromFile(AFileName,\r\n    procedure\r\n    begin\r\n      InternalInputFromJSON;\r\n      ms.Free;\r\n    end\r\n    );\r\n    {$ENDIF}\r\n    {$IFNDEF WEBLIB}\r\n    ms.LoadFromFile(AFileName);\r\n    InternalInputFromJSON;\r\n    {$ENDIF}\r\n  finally\r\n    {$IFNDEF WEBLIB}\r\n    ms.Free;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.ViewJSONFromStream(AStream: TStream; AViewOptions: TTMSFNCTreeViewViewJSONOptions = nil);\r\nvar\r\n  SL: TStringList;\r\nbegin\r\n  SL := TStringList.Create;\r\n  try\r\n    AStream.Position := 0;\r\n//    SL.LoadFromStream(AStream{$IFNDEF LCLWEBLIB}, TEncoding.UTF8{$ENDIF});\r\n    SL.LoadFromStream(AStream);\r\n    ViewJSONFromText(SL.Text, AViewOptions);\r\n  finally\r\n    SL.Free;\r\n  end;\r\nend;\r\n\r\ntype\r\n  TTMSFNCTreeViewJSONType = (jtValue, jtArraySize, jtObjectSize, jtArrayIndex);\r\n\r\nprocedure TTMSFNCCustomTreeView.ViewJSONFromText(AText: string; AViewOptions: TTMSFNCTreeViewViewJSONOptions = nil);\r\nvar\r\n  j : TJSONValue;\r\n  col: TTMSFNCTreeViewColumn;\r\n  NameIndex, ValueIndex: Integer;\r\n\r\n  procedure SetJSONNodeText(ANode: TTMSFNCTreeViewNode; AName: string; ATextType: TTMSFNCTreeViewJSONType; AJSONValue: TJSONValue; AValue: string = '');\r\n  begin\r\n    if ANode.Values.Count = 0 then\r\n      ANode.Values.Add;\r\n\r\n    case ATextType of\r\n      jtValue:\r\n      begin\r\n        ANode.Text[NameIndex] := AName;\r\n        ANode.Values[NameIndex].HTMLTemplateItems.Add('NAME=' + AName);\r\n\r\n        ANode.Text[ValueIndex] := AValue;\r\n        ANode.Values[ValueIndex].HTMLTemplateItems.Add('VALUE=' + AValue);\r\n\r\n        ANode.Tag := 1;\r\n      end;\r\n      jtArraySize:\r\n      begin\r\n        ANode.Text[NameIndex] := AName + ' [' + AValue + ']';\r\n        ANode.Values[NameIndex].HTMLTemplateItems.Add('NAME=' + AName + ' [' + AValue + ']');\r\n        ANode.Tag := 2;\r\n      end;\r\n      jtObjectSize:\r\n      begin\r\n        ANode.Text[NameIndex] := AName + ' {' + AValue + '}';\r\n        ANode.Values[NameIndex].HTMLTemplateItems.Add('NAME=' + AName + ' {' + AValue + '}');\r\n        ANode.Tag := 3;\r\n      end;\r\n      jtArrayIndex:\r\n      begin\r\n        ANode.Text[NameIndex] := AViewOptions.FArrayItemPrefix + AName + AViewOptions.FArrayItemSuffix;\r\n        ANode.Values[NameIndex].HTMLTemplateItems.Add('NAME=' + AViewOptions.FArrayItemPrefix + AName + AViewOptions.FArrayItemSuffix);\r\n        ANode.Tag := 4;\r\n      end;\r\n    end;\r\n\r\n    DoAfterAddJSONNode(ANode, AJSONValue)\r\n  end;\r\n\r\n  procedure ParseNode(nj: TJSONValue; ANode: TTMSFNCTreeViewNode);\r\n  var\r\n    I, K, c: Integer;\r\n    jv, njav, jav: TJSONValue;\r\n    n, sn: TTMSFNCTreeViewNode;\r\n    nja, ja: TJSONArray;\r\n    name: string;\r\n    add: Boolean;\r\n  begin\r\n    if nj is TJSONArray then\r\n    begin\r\n      add := True;\r\n      DoBeforeAddJSONNode(nj, add);\r\n      if add then\r\n      begin\r\n        if Assigned(ANode) then\r\n          n := ANode.Nodes.Add\r\n        else\r\n          n := Nodes.Add;\r\n\r\n        nja := nj as TJSONArray;\r\n        c := TTMSFNCUtils.GetJSONArraySize(nja);\r\n        SetJSONNodeText(n, name, jtArraySize, nj, IntToStr(c));\r\n        for K := 0 to c - 1 do\r\n        begin\r\n          njav := TTMSFNCUtils.GetJSONArrayItem(nja, K);\r\n\r\n          if (njav is TJSONObject) then\r\n          begin\r\n            sn := n.Nodes.Add;\r\n            SetJSONNodeText(sn, IntToStr(K), jtArrayIndex, nj);\r\n            sn.Text[0] := IntToStr(K);\r\n            ParseNode(njav, sn)\r\n          end\r\n          else\r\n          begin\r\n            SetJSONNodeText(n.Nodes.Add, IntToStr(K), jtValue, njav, njav.Value);\r\n          end;\r\n        end;\r\n      end;\r\n    end\r\n    else if nj is TJSONObject then\r\n    begin\r\n      for I := 0 to TTMSFNCUtils.GetJSONObjectSize(nj as TJSONObject) - 1 do\r\n      begin\r\n        name := '';\r\n\r\n        name := TTMSFNCUtils.GetJSONObjectName(nj as TJSONObject, I);\r\n\r\n        jv := TTMSFNCUtils.GetJSONObjectItem(nj as TJSONObject, I);\r\n\r\n        add := True;\r\n        DoBeforeAddJSONNode(jv, add);\r\n\r\n        if add then\r\n        begin\r\n          if Assigned(ANode) then\r\n            n := ANode.Nodes.Add\r\n          else\r\n            n := Nodes.Add;\r\n\r\n\r\n          if Assigned(jv) then\r\n          begin\r\n            if jv is TJSONArray then\r\n            begin\r\n              ja := jv as TJSONArray;\r\n              c := TTMSFNCUtils.GetJSONArraySize(ja);\r\n              SetJSONNodeText(n, name, jtArraySize, jv, IntToStr(c));\r\n              for K := 0 to c - 1 do\r\n              begin\r\n                jav := TTMSFNCUtils.GetJSONArrayItem(ja, K);\r\n\r\n                if (jav is TJSONObject) then\r\n                begin\r\n                  sn := n.Nodes.Add;\r\n                  SetJSONNodeText(sn, IntToStr(K), jtArrayIndex, jv);\r\n                  ParseNode(jav, sn)\r\n                end\r\n                else\r\n                begin\r\n                  SetJSONNodeText(n.Nodes.Add, IntToStr(K), jtValue, jav, jav.Value);\r\n                end;\r\n              end;\r\n            end\r\n            else if jv is TJSONObject then\r\n            begin\r\n              SetJSONNodeText(n, name, jtObjectSize, jv, IntToStr(TTMSFNCUtils.GetJSONObjectSize((jv as TJSONObject))));\r\n              ParseNode(jv, n);\r\n            end\r\n            else\r\n              SetJSONNodeText(n, name, jtValue, jv, jv.Value);\r\n          end;\r\n        end;\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      if Assigned(ANode) then\r\n        SetJSONNodeText(ANode, name, jtValue, nj, nj.Value)\r\n      else\r\n        SetJSONNodeText(Nodes.Add, name, jtValue, nj, nj.Value);\r\n    end;\r\n  end;\r\nbegin\r\n  NameIndex := 0;\r\n  ValueIndex := 1;\r\n\r\n  BeginUpdate;\r\n\r\n  if AViewOptions = nil then\r\n    AViewOptions := DefaultViewJSONOptions;\r\n\r\n  Nodes.Clear;\r\n  Columns.Clear;\r\n  col := Columns.Add;\r\n  col.Text := 'Object';\r\n  col.Trimming := gttCharacter;\r\n  col.Font.Style := [TFontStyle.fsBold];\r\n\r\n  col := Columns.Add;\r\n  col.Text := 'Value';\r\n\r\n  Columns[NameIndex].HTMLTemplate := AViewOptions.NameHTMLTemplate;\r\n  Columns[ValueIndex].HTMLTemplate := AViewOptions.ValueHTMLTemplate;\r\n\r\n  j := TTMSFNCUtils.ParseJSON(AText);\r\n  if Assigned(j) then\r\n  try\r\n    ParseNode(j, nil);\r\n  finally\r\n    j.Free;\r\n  end;\r\n\r\n  EndUpdate;\r\n\r\n  if AViewOptions.ExpandNodes then\r\n    ExpandAll;\r\n\r\n  if AViewOptions.StretchColumn > -1 then\r\n  begin\r\n    BeginUpdate;\r\n\r\n    ColumnsAppearance.StretchAll := False;\r\n    ColumnsAppearance.StretchColumn := AViewOptions.StretchColumn;\r\n    ColumnsAppearance.Stretch := False;\r\n    AutoSizeColumn(0);\r\n    Columns[0].Width := ColumnWidths[0];\r\n    ColumnsAppearance.Stretch := True;\r\n\r\n    EndUpdate;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFNDEF WEBLIB}\r\nprocedure TTMSFNCCustomTreeView.LoadFromFile(const AFileName: string; AEncoding: TEncoding = nil);\r\nvar\r\n  Stream: TStream;\r\nbegin\r\n  Stream := TFileStream.Create(AFileName, fmOpenRead);\r\n  try\r\n    LoadFromStream(Stream, AEncoding);\r\n  finally\r\n    Stream.Free;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomTreeView.LoadFromStream(const AStream: TStream; AEncoding: TEncoding = nil);\r\nvar\r\n  List: TStringList;\r\n  ANode, NextNode: TTMSFNCTreeViewNode;\r\n  ALevel, i: Integer;\r\n  CurrStr: string;\r\nbegin\r\n  List := TStringList.Create;\r\n  BeginUpdate;\r\n  ClearNodeList;\r\n  try\r\n    try\r\n      ClearNodes;\r\n      List.LoadFromStream(AStream, AEncoding);\r\n      ANode := nil;\r\n      for i := 0 to List.Count - 1 do\r\n      begin\r\n        ALevel := -1;\r\n        CurrStr := GetBufStart(List[i], ALevel);\r\n\r\n        if ANode = nil then\r\n          ANode := AddNode\r\n        else if Assigned(ANode.VirtualNode) and (ANode.VirtualNode.Level = ALevel) then\r\n          ANode := AddNode(ANode.GetParent)\r\n        else if Assigned(ANode.VirtualNode) and (ANode.VirtualNode.Level = ALevel - 1) then\r\n          ANode := AddNode(ANode)\r\n        else if Assigned(ANode.VirtualNode) and (ANode.VirtualNode.Level > ALevel) then\r\n        begin\r\n          NextNode := ANode.GetParent;\r\n          while Assigned(NextNode) and Assigned(NextNode.VirtualNode) and (NextNode.VirtualNode.Level > ALevel) do\r\n            NextNode := NextNode.GetParent;\r\n          ANode := AddNode(NextNode.GetParent);\r\n        end;\r\n\r\n        if Assigned(ANode) then\r\n          ANode.LoadFromString(CurrStr);\r\n\r\n        BuildNodeList;\r\n      end;\r\n    finally\r\n      EndUpdate;\r\n      List.Free;\r\n    end;\r\n  except\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.LookupNode(ALookupString: String; ARootNodesOnly: Boolean = False; AColumn: Integer = -1; ACaseSensitive: Boolean = False; AAutoSelect: Boolean = False; AAutoExpand: Boolean = False): TTMSFNCTreeViewVirtualNode;\r\nvar\r\n  v: String;\r\n  n, fvn, lvn: TTMSFNCTreeViewVirtualNode;\r\n  s: String;\r\n  sr, er, m: Integer;\r\n  C: Integer;\r\n  fnd: Boolean;\r\nbegin\r\n  Result := nil;\r\n  v := ALookupString;\r\n  if not ACaseSensitive then\r\n    v := Uppercase(v);\r\n\r\n  if ARootNodesOnly then\r\n  begin\r\n    n := GetFirstRootVirtualNode;\r\n    while Assigned(n) do\r\n    begin\r\n      fvn := GetFirstVisibleVirtualNode;\r\n      lvn := GetLastVisibleVirtualNode;\r\n\r\n      if (not Interaction.Lookup.VisibleNodesOnly) or (Interaction.Lookup.VisibleNodesOnly and (Assigned(fvn) and Assigned(lvn) and (n.Row <= lvn.Row) and (n.Row >= fvn.Row))) then\r\n      begin\r\n        if (AColumn >= 0) and (AColumn <= Columns.Count - 1) then\r\n        begin\r\n          s := '';\r\n          DoGetNodeText(n, AColumn, tntmDrawing, s);\r\n\r\n          s := TTMSFNCUtils.HTMLStrip(s);\r\n\r\n          if not ACaseSensitive then\r\n            s := UpperCase(s);\r\n\r\n          if Pos(v, s) = 1  then\r\n          begin\r\n            Result := n;\r\n            Break;\r\n          end;\r\n        end\r\n        else\r\n        begin\r\n          fnd := False;\r\n          for C := 0 to Columns.Count - 1 do\r\n          begin\r\n            s := '';\r\n            DoGetNodeText(n, C, tntmDrawing, s);\r\n\r\n            s := TTMSFNCUtils.HTMLStrip(s);\r\n\r\n            if not ACaseSensitive then\r\n              s := UpperCase(s);\r\n\r\n            if Pos(v, s) = 1 then\r\n            begin\r\n              Result := n;\r\n              fnd := True;\r\n              Break;\r\n            end;\r\n          end;\r\n          if fnd then\r\n            Break;\r\n        end;\r\n      end;\r\n      n := n.GetNextSibling;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    sr := 0;\r\n    er := NodeStructure.Count - 1;\r\n\r\n    for m := sr to er do\r\n    begin\r\n      n := GetNodeFromNodeStructure(m);\r\n      if Assigned(n) then\r\n      begin\r\n        fvn := GetFirstVisibleVirtualNode;\r\n        lvn := GetLastVisibleVirtualNode;\r\n        if (not Interaction.Lookup.VisibleNodesOnly) or (Interaction.Lookup.VisibleNodesOnly and (Assigned(fvn) and Assigned(lvn) and (n.Row <= lvn.Row) and (n.Row >= fvn.Row))) then\r\n        begin\r\n          if (AColumn >= 0) and (AColumn <= Columns.Count - 1) then\r\n          begin\r\n            s := '';\r\n            DoGetNodeText(n, AColumn, tntmDrawing, s);\r\n\r\n            s := TTMSFNCUtils.HTMLStrip(s);\r\n\r\n            if not ACaseSensitive then\r\n              s := UpperCase(s);\r\n\r\n            if Pos(v, s) = 1  then\r\n            begin\r\n              Result := n;\r\n              Break;\r\n            end;\r\n          end\r\n          else\r\n          begin\r\n            fnd := False;\r\n            for C := 0 to Columns.Count - 1 do\r\n            begin\r\n              s := '';\r\n              DoGetNodeText(n, C, tntmDrawing, s);\r\n\r\n              s := TTMSFNCUtils.HTMLStrip(s);\r\n\r\n              if not ACaseSensitive then\r\n                s := UpperCase(s);\r\n\r\n              if Pos(v, s) = 1 then\r\n              begin\r\n                Result := n;\r\n                fnd := True;\r\n                Break;\r\n              end;\r\n            end;\r\n            if fnd then\r\n              Break;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(Result) then\r\n  begin\r\n    if AAutoExpand then\r\n    begin\r\n      n := Result.GetParent;\r\n      while Assigned(n) and (n.Level > 0) do\r\n      begin\r\n        if not n.Expanded then\r\n          n.Expand;\r\n\r\n        n := n.GetParent;\r\n      end;\r\n\r\n      if Assigned(n) then\r\n        n.Expand;\r\n    end;\r\n\r\n    if AAutoSelect then\r\n    begin\r\n      if IsVirtualNodeSelectable(Result) then\r\n        SelectVirtualNode(Result);\r\n\r\n      ScrollToVirtualNode(Result, True);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.NeedsReload(AVerticalOffset: Single): Boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.Notification(AComponent: TComponent;\r\n  Operation: TOperation);\r\nbegin\r\n  inherited;\r\n  if (AComponent = FAdapter) and (Operation = opRemove) then\r\n    FAdapter := nil;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.OffsetNodeRects(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AX, AY: Single; var ARect: TRectF);\r\nvar\r\n  C: Integer;\r\n  nr: TRectF;\r\n  r: TRectF;\r\nbegin\r\n  r := GetNodesRect;\r\n  OffsetRectEx(ARect, AX + r.Left, AY + r.Top);\r\n  for C := 0 to ColumnCount - 1 do\r\n  begin\r\n    if (C >= 0) and (C <= Length(ANode.TitleRects) - 1) then\r\n    begin\r\n      nr := ANode.TitleRects[C];\r\n      OffsetRectEx(nr, AX + r.Left, AY + r.Top);\r\n      ANode.TitleRects[C] := nr;\r\n    end;\r\n    if (C >= 0) and (C <= Length(ANode.TextRects) - 1) then\r\n    begin\r\n      nr := ANode.TextRects[C];\r\n      OffsetRectEx(nr, AX + r.Left, AY + r.Top);\r\n      ANode.TextRects[C] := nr;\r\n    end;\r\n    if (C >= 0) and (C <= Length(ANode.ExtraRects) - 1) then\r\n    begin\r\n      nr := ANode.ExtraRects[C];\r\n      OffsetRectEx(nr, AX + r.Left, AY + r.Top);\r\n      ANode.ExtraRects[C] := nr;\r\n    end;\r\n    if (C >= 0) and (C <= Length(ANode.TitleExtraRects) - 1) then\r\n    begin\r\n      nr := ANode.TitleExtraRects[C];\r\n      OffsetRectEx(nr, AX + r.Left, AY + r.Top);\r\n      ANode.TitleExtraRects[C] := nr;\r\n    end;\r\n    if (C >= 0) and (C <= Length(ANode.BitmapRects) - 1) then\r\n    begin\r\n      nr := ANode.BitmapRects[C];\r\n      OffsetRectEx(nr, AX + r.Left, AY + r.Top);\r\n      ANode.BitmapRects[C] := nr;\r\n    end;\r\n    if (C >= 0) and (C <= Length(ANode.ExpandRects) - 1) then\r\n    begin\r\n      nr := ANode.ExpandRects[C];\r\n      OffsetRectEx(nr, AX + r.Left, AY + r.Top);\r\n      ANode.ExpandRects[C] := nr;\r\n    end;\r\n    if (C >= 0) and (C <= Length(ANode.CheckRects) - 1) then\r\n    begin\r\n      nr := ANode.CheckRects[C];\r\n      OffsetRectEx(nr, AX + r.Left, AY + r.Top);\r\n      ANode.CheckRects[C] := nr;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.PasteFromClipboard;\r\nvar\r\n  s: String;\r\n  a: TStringList;\r\n  ANode, ANextNode: TTMSFNCTreeViewNode;\r\n  ALevel: Integer;\r\n  I, off: Integer;\r\n  CurrStr: String;\r\nbegin\r\n  if Assigned(OnCustomPasteFromClipboard) then\r\n    OnCustomPasteFromClipboard(Self)\r\n  else\r\n  begin\r\n    if TTMSFNCClipBoard.HasFormat(TTMSFNCClipBoardFormat.cfText) then\r\n    begin\r\n      s := TTMSFNCClipBoard.GetText;\r\n      if (Pos(CLP_FMT, s) > 0) then\r\n      begin\r\n        a := TStringList.Create;\r\n        try\r\n          s := StringReplace(s, CLP_FMT, '', [rfReplaceAll]);\r\n          a.Text := s;\r\n          try\r\n            ANode := nil;\r\n            off := 0;\r\n            for I := 0 to a.Count - 1 do\r\n            begin\r\n              ALevel := -1;\r\n              CurrStr := GetBufStart(a[i], ALevel);\r\n\r\n              if ANode = nil then\r\n              begin\r\n                ANode := AddNode(FocusedNode);\r\n                off := ALevel;\r\n                if Assigned(FocusedNode) then\r\n                  off := off - FocusedNode.VirtualNode.Level;\r\n              end\r\n              else if Assigned(ANode.VirtualNode) and (ANode.VirtualNode.Level = ALevel - off) then\r\n                ANode := AddNode(ANode.GetParent)\r\n              else if Assigned(ANode.VirtualNode) and (ANode.VirtualNode.Level = ALevel - 1 - off) then\r\n                ANode := AddNode(ANode)\r\n              else if Assigned(ANode.VirtualNode) and (ANode.VirtualNode.Level > ALevel - off) then\r\n              begin\r\n                ANextNode := ANode.GetParent;\r\n                while Assigned(ANextNode) and Assigned(ANextNode.VirtualNode) and (ANextNode.VirtualNode.Level > ALevel - off) do\r\n                  ANextNode := ANextNode.GetParent;\r\n                ANode := AddNode(ANextNode.GetParent);\r\n              end;\r\n\r\n              if Assigned(ANode) then\r\n                ANode.LoadFromString(CurrStr);\r\n            end;\r\n          finally\r\n          end;\r\n        finally\r\n          a.Free;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\nprocedure TTMSFNCCustomTreeView.SaveToFile(const AFileName: string; const ATextOnly: Boolean = True; AEncoding: TEncoding = nil);\r\nvar\r\n  Stream: TStream;\r\nbegin\r\n  Stream := TFileStream.Create(AFileName, fmCreate);\r\n  try\r\n    SaveToStream(Stream, ATextOnly, AEncoding);\r\n  finally\r\n    Stream.Free;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TTMSFNCCustomTreeView.ColumnStretchingActive: Boolean;\r\nvar\r\n  i: integer;\r\n  cw, cmw: Single;\r\nbegin\r\n  Result := ColumnsAppearance.Stretch and ColumnsAppearance.StretchAll;\r\n\r\n  cw := 0;\r\n  cmw := 0;\r\n  for I := 0 to Columns.Count - 1 do\r\n  begin\r\n    cw := cw + ColumnWidths[I];\r\n    cmw := cmw + ColumnMinWidths[I];\r\n  end;\r\n\r\n  if cw <= cmw then\r\n    Result := False;\r\nend;\r\n\r\n\r\nprocedure TTMSFNCCustomTreeView.ColumnStrokeChanged(Sender: TObject);\r\nbegin\r\n  Invalidate;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.ConfigureNode(AGraphics: TTMSFNCGraphics; AIndex: Integer; ANode: TTMSFNCTreeViewVirtualNode; var AStartY: Single): Boolean;\r\nvar\r\n  rt: TRectF;\r\n  bw, bh: Double;\r\n  x, y: Double;\r\n  rc: TRectF;\r\n  cache: TTMSFNCTreeViewCacheItem;\r\n  C: Integer;\r\n  cr, urc: TRectF;\r\n  vs: Double;\r\n  v: TTMSFNCTreeViewVirtualNode;\r\n  lvlw: Double;\r\n  rcalc, rcalctw, rcalct: TRectF;\r\n  strc, strt: String;\r\n  texp: Boolean;\r\n  cx, cw: Double;\r\n  maxh: Double;\r\n  st, stp: Integer;\r\n  bmpn: TTMSFNCBitmap;\r\n  bmpw, bmph, expw, exph: Double;\r\n  ww, wwt: Boolean;\r\n  colw: Double;\r\n  chk: TTMSFNCTreeViewNodeCheckType;\r\n  ext: Boolean;\r\n  chksz: Double;\r\n  cl: TTMSFNCTreeViewColumn;\r\n  expr, bmpr, txtr, titr, chkr, extr, textr: TTMSFNCArrayTRectF;\r\n  vl: Double;\r\n  r: TRectF;\r\n  sz, szt, th: Single;\r\n  loff, toff, roff, boff: Single;\r\n  lm, tm, rm, bm: Single;\r\nbegin\r\n  DoGetNodeData(ANode);\r\n\r\n  loff := 0;\r\n  toff := 0;\r\n  roff := 0;\r\n  boff := 0;\r\n  GetNodeOffset(ANode, loff, toff, roff, boff);\r\n\r\n  lm := 0;\r\n  tm := 0;\r\n  rm := 0;\r\n  bm := 0;\r\n  GetNodeMargins(lm, tm, rm, bm);\r\n\r\n  vs := GetVerticalScrollPosition;\r\n  cr := GetNodesRect;\r\n  v := ANode;\r\n  bw := GetTotalColumnNodeWidth - rm - lm;\r\n  lvlw := NodesAppearance.LevelIndent * v.Level;\r\n\r\n  if NodesAppearance.ExpandColumn = GetFirstVisibleColumn then\r\n  begin\r\n    x := lvlw;\r\n    bw := bw - lvlw;\r\n  end\r\n  else\r\n    x := 0;\r\n\r\n  maxh := 0;\r\n  y := AStartY;\r\n  bh := 0;\r\n  x := x + lm;\r\n  y := y + tm;\r\n\r\n  {$IFDEF FMXWEBLIB}\r\n  rt := RectF(Int(x), Int(y), Int(x + bw), Int(y + bh));\r\n\r\n  if HorizontalScrollBar.Visible or ColumnsAppearance.Stretch then\r\n  begin\r\n    if AIndex = 0 then\r\n      rc := RectF(rt.Left + 1.5, rt.Top + 1.5, rt.Right - 1.5, rt.Bottom + 0.5)\r\n    else if AIndex = RowCount - 1 then\r\n      rc := RectF(rt.Left + 1.5, rt.Top + 0.5, rt.Right - 1.5, rt.Bottom + 0.5)\r\n    else\r\n      rc := RectF(rt.Left + 1.5, rt.Top + 0.5, rt.Right - 1.5, rt.Bottom + 0.5);\r\n  end\r\n  else\r\n  begin\r\n    if AIndex = 0 then\r\n      rc := RectF(rt.Left + 1.5, rt.Top + 1.5, rt.Right - 0.5, rt.Bottom + 0.5)\r\n    else if AIndex = RowCount - 1 then\r\n      rc := RectF(rt.Left + 1.5, rt.Top + 0.5, rt.Right - 0.5, rt.Bottom + 0.5)\r\n    else\r\n      rc := RectF(rt.Left + 1.5, rt.Top + 0.5, rt.Right - 0.5, rt.Bottom + 0.5);\r\n  end;\r\n  {$ENDIF}\r\n  {$IFDEF CMNLIB}\r\n  rt := RectF(x, y, x + bw, y + bh);\r\n\r\n  if HorizontalScrollBar.Visible or ColumnsAppearance.Stretch then\r\n  begin\r\n    if AIndex = 0 then\r\n      rc := RectF(rt.Left + 1, rt.Top + 1, rt.Right - 1, rt.Bottom)\r\n    else if AIndex = RowCount - 1 then\r\n      rc := RectF(rt.Left + 1, rt.Top, rt.Right - 1, rt.Bottom)\r\n    else\r\n      rc := RectF(rt.Left + 1, rt.Top, rt.Right - 1, rt.Bottom);\r\n  end\r\n  else\r\n  begin\r\n    if AIndex = 0 then\r\n      rc := RectF(rt.Left + 1, rt.Top + 1, rt.Right, rt.Bottom)\r\n    else if AIndex = RowCount - 1 then\r\n      rc := RectF(rt.Left + 1, rt.Top, rt.Right, rt.Bottom)\r\n    else\r\n      rc := RectF(rt.Left + 1, rt.Top, rt.Right, rt.Bottom);\r\n  end;\r\n  {$ENDIF}\r\n\r\n  ConfigureNodeRect(AIndex, ANode, rc);\r\n\r\n  if v.Calculated then\r\n    bh := v.Height\r\n  else\r\n  begin\r\n    UpdateNodeCalculated(v, True);\r\n\r\n    if NodesAppearance.HeightMode = tnhmVariable then\r\n    begin\r\n      st := GetFirstVisibleColumn;\r\n      stp := GetLastVisibleColumn;\r\n      ext := False;\r\n      DoIsNodeExtended(v, ext);\r\n\r\n      if ext then\r\n        stp := Min(st, stp);\r\n\r\n      for C := st to stp do\r\n      begin\r\n        colw := ColumnWidths[C];\r\n        if (colw > 0) or ext then\r\n        begin\r\n          strc := '';\r\n          DoGetNodeText(v, C, tntmDrawing, strc);\r\n          strt := '';\r\n          DoGetNodeTitle(v, C, tntmDrawing, strt);\r\n          texp := True;\r\n          DoGetNodeTitleExpanded(v, C, texp);\r\n\r\n          if CompactMode then\r\n          begin\r\n            strt := '';\r\n            strc := '';\r\n            texp := False;\r\n          end;\r\n\r\n          cx := ColumnPositions[C];\r\n          if C = st then\r\n            cx := cx + rc.Left;\r\n\r\n          if ext then\r\n            cw := cx + bw\r\n          else\r\n            cw := cx + ColumnWidths[C];\r\n\r\n          if C = st then\r\n            cw := cw - rc.Left;\r\n\r\n          if (NodesAppearance.ExpandColumn = C) and (C > st) then\r\n            cx := cx + lvlw;\r\n\r\n          cw := cw - loff - roff - rm - lm;\r\n\r\n          if C = NodesAppearance.ExpandColumn then\r\n          begin\r\n            expw := NodesAppearance.ExpandWidth + ScalePaintValue(4);\r\n            exph := NodesAppearance.ExpandHeight + ScalePaintValue(4);\r\n            cx := cx + expw;\r\n            if exph > maxh then\r\n              maxh := exph;\r\n          end;\r\n\r\n          chk := tvntNone;\r\n          DoGetNodeCheckType(v, C, chk);\r\n          if chk <> tvntNone then\r\n          begin\r\n            {$IFDEF FMXMOBILE}\r\n            chksz := 29;\r\n            {$ELSE}\r\n            {$IFDEF CMNWEBLIB}\r\n            chksz := ScalePaintValue(FCheckStartSize);\r\n            {$ENDIF}\r\n            {$IFDEF FMXLIB}\r\n            chksz := 23;\r\n            {$ENDIF}\r\n            {$ENDIF}\r\n\r\n            cx := cx + Max(0, chksz{$IFDEF CMNWEBLIB} + 4{$ENDIF});\r\n            if chksz > maxh then\r\n              maxh := chksz;\r\n          end;\r\n\r\n          bmpn := nil;\r\n          DoGetNodeIcon(v, C, False, bmpn);\r\n          if not Assigned(bmpn) and TTMSFNCUtils.IsHighDPIScale then\r\n            DoGetNodeIcon(v, C, True, bmpn);\r\n\r\n          if Assigned(bmpn) and (bmpn.Width > 0) and (bmpn.Height > 0) then\r\n          begin\r\n            bmpw := bmpn.Width + ScalePaintValue(4);\r\n            bmph := bmpn.Height + ScalePaintValue(4);\r\n\r\n            DoGetNodeIconSize(v, C, TTMSFNCUtils.IsHighDPIScale, bmpn, bmpw, bmph);\r\n\r\n            cx := cx + bmpw;\r\n            if bmph > maxh then\r\n              maxh := bmph;\r\n          end;\r\n\r\n          ww := False;\r\n          wwt := False;\r\n          if (C >= 0) and (C <= Columns.Count - 1) then\r\n          begin\r\n            ww := Columns[C].WordWrapping;\r\n            wwt := Columns[C].TitleWordWrapping;\r\n          end;\r\n\r\n          DoGetNodeWordWrapping(v, C, ww);\r\n          DoGetNodeTitleWordWrapping(v, C, wwt);\r\n\r\n          sz := 0;\r\n          DoGetNodeExtraSize(v, C, sz);\r\n\r\n          szt := 0;\r\n          DoGetNodeTitleExtraSize(v, C, szt);\r\n\r\n          rcalc := RectF(cx, 0, cw - sz, 10000);\r\n          InflateRectEx(rcalc, ScalePaintValue(-2), 0);\r\n\r\n          rcalctw := RectF(cx, 0, cw - szt, 10000);\r\n          InflateRectEx(rcalctw, ScalePaintValue(-2), 0);\r\n\r\n          cl := nil;\r\n          if (C >= 0) and (C <= ColumnCount - 1) then\r\n            cl := Columns[C];\r\n\r\n          if Assigned(cl) and not cl.UseDefaultAppearance and not ext then\r\n            AGraphics.Font.Assign(cl.Font)\r\n          else\r\n          begin\r\n            if ext then\r\n              AGraphics.Font.Assign(NodesAppearance.ExtendedFont)\r\n            else\r\n              AGraphics.Font.Assign(NodesAppearance.Font);\r\n          end;\r\n\r\n          if texp then\r\n          begin\r\n            rcalc := AGraphics.CalculateText(strc, rcalc, ww);\r\n            rcalc.Bottom := rcalc.Bottom + ScalePaintValue(4);\r\n\r\n            vl := (rcalc.Bottom - rcalc.Top);\r\n          end\r\n          else\r\n            vl := 0;\r\n\r\n          if strt <> '' then\r\n          begin\r\n            if Assigned(cl) and not cl.UseDefaultAppearance then\r\n              AGraphics.Font.Assign(cl.TitleFont)\r\n            else\r\n              AGraphics.Font.Assign(NodesAppearance.TitleFont);\r\n\r\n            rcalct := AGraphics.CalculateText(strt, rcalctw, wwt);\r\n            rcalct.Bottom := rcalct.Bottom + ScalePaintValue(4);\r\n            th := rcalct.Bottom - rcalct.Top;\r\n          end\r\n          else\r\n            th := 0;\r\n\r\n          UpdateNodeTitleHeight(v, Max(szt, th));          \r\n          vl := vl + v.TitleHeight;\r\n\r\n          DoGetNodeHeight(v, C, vl);\r\n\r\n          if vl > maxh then\r\n            maxh := vl;\r\n        end;\r\n      end;\r\n\r\n      bh := Max(GetDefaultRowHeight(v), maxh + toff + boff + GetNodesSpacing(v));\r\n      UpdateNodeHeight(v, Int(bh));\r\n      TotalRowHeight := (TotalRowHeight - GetDefaultRowHeight(v)) + v.Height;\r\n    end\r\n    else\r\n    begin\r\n      bh := GetDefaultRowHeight(v);\r\n      UpdateNodeHeight(v, bh);\r\n    end;\r\n  end;\r\n\r\n  AStartY := AStartY + Int(bh);\r\n  rc.Bottom := rc.Bottom + Int(bh);\r\n  rc.Bottom := rc.Bottom - GetNodesSpacing(ANode);\r\n\r\n  urc := rc;\r\n  urc.Left := urc.Left + loff;\r\n  urc.Top := urc.Top + toff;\r\n  urc.Right := urc.Right + roff;\r\n  urc.Bottom := urc.Bottom + boff;\r\n\r\n  SetLength(extr, 0);\r\n  SetLength(textr, 0);\r\n  SetLength(txtr, 0);\r\n  SetLength(titr, 0);\r\n  SetLength(bmpr, 0);\r\n  SetLength(expr, 0);\r\n  SetLength(chkr, 0);\r\n\r\n  st := GetFirstVisibleColumn;\r\n  stp := GetLastVisibleColumn;\r\n  ext := False;\r\n  DoIsNodeExtended(v, ext);\r\n  if ext then\r\n    stp := Min(st, stp);\r\n\r\n  for C := st to stp do\r\n  begin\r\n    colw := GetColumnWidth(C);\r\n    cx := GetColumnPosition(C);\r\n    if C = st then\r\n      cx := cx + urc.Left;\r\n\r\n    if ext then\r\n      cw := cx + bw\r\n    else\r\n      cw := cx + colw;\r\n\r\n    if C = st then\r\n      cw := cw - urc.Left;\r\n\r\n    if (NodesAppearance.ExpandColumn = C) and (C > st) then\r\n      cx := cx + lvlw;\r\n\r\n    if ext then\r\n      cw := cw + lvlw;\r\n\r\n    cw := cw - rm - roff;\r\n\r\n    expw := 0;\r\n    exph := 0;\r\n    if C = NodesAppearance.ExpandColumn then\r\n    begin\r\n      expw := NodesAppearance.ExpandWidth + ScalePaintValue(4);\r\n      exph := NodesAppearance.ExpandHeight + ScalePaintValue(4);\r\n    end;\r\n\r\n    SetLength(expr, Length(expr) + 1);\r\n    expr[Length(expr) - 1] := RectF(Int(cx + ScalePaintValue(2)), Int(urc.Top + ((urc.Bottom - urc.Top) - exph) / 2 + ScalePaintValue(2)), Int(cx + expw - ScalePaintValue(2)),\r\n      Int(urc.Top + ((urc.Bottom - urc.Top) - exph) / 2 + exph - ScalePaintValue(2)));\r\n\r\n    cx := cx + expw;\r\n\r\n    chk := tvntNone;\r\n    chksz := 0;\r\n    DoGetNodeCheckType(v, C, chk);\r\n    if chk <> tvntNone then\r\n    begin\r\n      {$IFDEF FMXMOBILE}\r\n      chksz := 29;\r\n      {$ELSE}\r\n      {$IFDEF CMNWEBLIB}\r\n      chksz := ScalePaintValue(FCheckStartSize);\r\n      {$ENDIF}\r\n      {$IFDEF FMXLIB}\r\n      chksz := 23;\r\n      {$ENDIF}\r\n      {$ENDIF}\r\n    end;\r\n\r\n    SetLength(chkr, Length(chkr) + 1);\r\n    chkr[Length(chkr) - 1] := RectF(Int(cx + ScalePaintValue(4)), Int(urc.Top + ((urc.Bottom - urc.Top) - chksz) / 2 + ScalePaintValue(2)), Int(cx + chksz), Int(urc.Top + ((urc.Bottom - urc.Top) - chksz) / 2 + chksz - ScalePaintValue(2)));\r\n\r\n    cx := cx + Max(0, chksz{$IFDEF CMNWEBLIB} + 4{$ENDIF});\r\n\r\n    bmpn := nil;\r\n    DoGetNodeIcon(v, C, False, bmpn);\r\n    if not Assigned(bmpn) and TTMSFNCUtils.IsHighDPIScale then\r\n      DoGetNodeIcon(v, C, True, bmpn);\r\n\r\n    bmpw := 0;\r\n    bmph := 0;\r\n    if Assigned(bmpn) and (bmpn.Width > 0) and (bmpn.Height > 0) then\r\n    begin\r\n      bmpw := bmpn.Width + ScalePaintValue(4);\r\n      bmph := bmpn.Height + ScalePaintValue(4);\r\n\r\n      DoGetNodeIconSize(v, C, TTMSFNCUtils.IsHighDPIScale, bmpn, bmpw, bmph);\r\n    end;\r\n\r\n    SetLength(bmpr, Length(bmpr) + 1);\r\n    bmpr[Length(bmpr) - 1] := RectF(Int(cx + ScalePaintValue(2)), Int(urc.Top + ((urc.Bottom - urc.Top) - bmph) / 2 + ScalePaintValue(2)), Int(cx + bmpw - ScalePaintValue(2)), Int(urc.Top + ((urc.Bottom - urc.Top) - bmph) / 2 + bmph - ScalePaintValue(2)));\r\n    cx := cx + bmpw;\r\n\r\n    sz := 0;\r\n    DoGetNodeExtraSize(v, C, sz);\r\n\r\n    szt := 0;\r\n    DoGetNodeTitleExtraSize(v, C, szt);\r\n\r\n    if ((v.Title[C] <> '') or (v.TitleHeight > 0)) and (v.Text[C] <> '') and v.TitleExpanded[C] then\r\n    begin\r\n      r := RectF(cx, urc.Top, cw - szt, urc.Top + v.TitleHeight);\r\n      SetLength(titr, Length(titr) + 1);\r\n      titr[Length(titr) - 1] := r;\r\n\r\n      SetLength(textr, Length(textr) + 1);\r\n      textr[Length(textr) - 1] := RectF(r.Right, urc.Top, r.Right + szt, urc.Top + szt);\r\n\r\n      r := RectF(cx, r.Bottom, cw - sz, urc.Bottom);\r\n      SetLength(txtr, Length(txtr) + 1);\r\n      txtr[Length(txtr) - 1] := r;\r\n    end\r\n    else\r\n    begin\r\n      r := RectF(cx, urc.Top + ((urc.Bottom - urc.Top) - (rc.Bottom - rc.Top)) / 2, cw - szt, urc.Top + ((urc.Bottom - urc.Top) - (rc.Bottom - rc.Top)) / 2 + (rc.Bottom - rc.Top));\r\n      SetLength(titr, Length(titr) + 1);\r\n      titr[Length(titr) - 1] := r;\r\n\r\n      SetLength(textr, Length(textr) + 1);\r\n      textr[Length(textr) - 1] := RectF(r.Right, urc.Top, r.Right + szt, urc.Top + szt);\r\n\r\n      r := RectF(cx, urc.Top + ((urc.Bottom - urc.Top) - (rc.Bottom - rc.Top)) / 2, cw - sz, urc.Top + ((urc.Bottom - urc.Top) - (rc.Bottom - rc.Top)) / 2 + (rc.Bottom - rc.Top));\r\n      SetLength(txtr, Length(txtr) + 1);\r\n      txtr[Length(txtr) - 1] := r;\r\n    end;\r\n\r\n    SetLength(extr, Length(extr) + 1);\r\n    extr[Length(extr) - 1] := RectF(r.Right, r.Top, r.Right + sz, r.Bottom);\r\n  end;\r\n\r\n  UpdateNodeExtraRects(v, extr);\r\n  UpdateNodeTitleExtraRects(v, textr);\r\n  UpdateNodeTextRects(v, txtr);\r\n  UpdateNodeTitleRects(v, titr);\r\n  UpdateNodeBitmapRects(v, bmpr);\r\n  UpdateNodeExpandRects(v, expr);\r\n  UpdateNodeCheckRects(v, chkr);\r\n\r\n  cache := TTMSFNCTreeViewCacheItem.CreateNode(rc, v);\r\n  FNodeCache.Add(cache);\r\n  UpdateNodeCacheReference(v, cache);\r\n\r\n  Result := y - vs > (cr.Bottom - cr.Top);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.ConfigureNodeRect(AIndex: Integer; ANode: TTMSFNCTreeViewVirtualNode; var ARect: TRectF);\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.CopyToClipboard(ATextOnly: Boolean = False);\r\nvar\r\n  s: String;\r\n  I, K: Integer;\r\n  n: TTMSFNCTreeViewVirtualNode;\r\n  v: TTMSFNCTreeViewVirtualNode;\r\n  cl: TTMSFNCTreeViewIntegerList;\r\nbegin\r\n  if Assigned(OnCustomCopyToClipboard) then\r\n    OnCustomCopyToClipboard(Self)\r\n  else\r\n  begin\r\n    cl := TTMSFNCTreeViewIntegerList.Create;\r\n    try\r\n      s := '';\r\n      for I := 0 to SelectedVirtualNodeCount - 1 do\r\n      begin\r\n        n := SelectedVirtualNodes[I];\r\n        if Assigned(n) and (cl.IndexOf(n.Row) = -1) then\r\n        begin\r\n          if Assigned(n.Node) then\r\n            s := s + n.Node.SaveToString(ATextOnly) + ENDOFLINE;\r\n\r\n          cl.Add(n.Row);\r\n        end;\r\n\r\n        if Assigned(n) then\r\n        begin\r\n          for K := n.Row + 1 to n.Row + n.TotalChildren do\r\n          begin\r\n            v := GetNodeFromNodeStructure(K);\r\n            if Assigned(v) and Assigned(v.Node) and (cl.IndexOf(v.Row) = -1) then\r\n            begin\r\n              s := s + v.Node.SaveToString(ATextOnly) + ENDOFLINE;\r\n              cl.Add(v.Row);\r\n            end;\r\n          end;\r\n        end;\r\n      end;\r\n\r\n      if s <> '' then\r\n        TTMSFNCClipBoard.SetText(CLP_FMT + s);\r\n    finally\r\n      cl.Free;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClass(TTMSFNCCustomTreeView);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.ClearFocusedNode(ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  if (ANode = FFocusedNode) or (ANode = nil) then\r\n    FFocusedNode := nil;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.RemoveNodeFromSelection(ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  FSelectedNodes.Remove(ANode);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.AddNodeToSelection(ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  FSelectedNodes.Add(ANode);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoNodeCompare(ANode1: TTMSFNCTreeViewNode; ANode2: TTMSFNCTreeViewNode; AColumn: Integer; var ACompareResult: Integer);\r\nbegin\r\n  if Assigned(OnNodeCompare) then\r\n    OnNodeCompare(Self, ANode1, ANode2, AColumn, ACompareResult);\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\nprocedure TTMSFNCCustomTreeView.SaveToStream(const AStream: TStream; const ATextOnly: Boolean = True; AEncoding: TEncoding = nil);\r\nvar\r\n  ANode: TTMSFNCTreeViewNode;\r\n  NodeStr: string;\r\n  Buffer: TBytes;\r\n  {$IFDEF LCLWEBLIB}\r\n  I: Integer;\r\n  {$ENDIF}\r\nbegin\r\n  if Nodes.Count > 0 then\r\n  begin\r\n    ANode := Nodes[0];\r\n    while ANode <> nil do\r\n    begin\r\n      NodeStr := ANode.SaveToString(ATextOnly);\r\n      NodeStr := NodeStr + EndOfLine;\r\n      {$IFNDEF LCLWEBLIB}\r\n      if Assigned(AEncoding) then\r\n        Buffer := AEncoding.GetBytes(NodeStr)\r\n      else\r\n        Buffer := TEncoding.Default.GetBytes(NodeStr);\r\n      {$ENDIF}\r\n      {$IFDEF LCLWEBLIB}\r\n      SetLength(Buffer, Length(NodeStr));\r\n      for I := 1 to Length(NodeStr) do\r\n        Buffer[I - 1] := Ord(NodeStr[I]);\r\n      {$ENDIF}\r\n\r\n      {$IFDEF CMNLIB}\r\n      AStream.Write(Buffer[0], Length(Buffer));\r\n      {$ELSE}\r\n      AStream.Write(Buffer, Length(Buffer));\r\n      {$ENDIF}\r\n\r\n      ANode := ANode.GetNext;\r\n    end;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomTreeView.Scroll(AHorizontalPos, AVerticalPos: Double);\r\nvar\r\n  h, v: Double;\r\nbegin\r\n  h := GetHorizontalScrollPosition;\r\n  v := GetVerticalScrollPosition;\r\n  inherited;\r\n  if h <> AHorizontalPos then\r\n    DoHScroll(AHorizontalPos);\r\n\r\n  if v <> AVerticalPos then\r\n    DoVScroll(AVerticalPos);\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetPreviousEditableColumn(AColumn: Integer): Integer;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := -1;\r\n  if (AColumn > 0) and (AColumn <= Columns.Count - 1) then\r\n  begin\r\n    for I := AColumn - 1 downto 0 do\r\n    begin\r\n      if (Columns[I].EditorType <> tcetNone) or Columns[I].CustomEditor then\r\n      begin\r\n        Result := I;\r\n        Break;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetNextEditableColumn(AColumn: Integer): Integer;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := -1;\r\n  if (AColumn >= 0) and (AColumn < Columns.Count - 1) then\r\n  begin\r\n    for I := AColumn + 1 to Columns.Count - 1 do\r\n    begin\r\n      if (Columns[I].EditorType <> tcetNone) or Columns[I].CustomEditor then\r\n      begin\r\n        Result := I;\r\n        Break;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetBottomRow: Integer;\r\nbegin\r\n  Result := GetLastVisibleVirtualNodeRow;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetBufStart(ABuffer: string; var ALevel: Integer): string;\r\nvar\r\n  Pos: Integer;\r\nbegin\r\n  Pos := 1;\r\n  ALevel := 0;\r\n  while CharInArray(ABuffer[Pos{$IFDEF ZEROSTRINGINDEX}-1{$ENDIF}], [' ', #9]) do\r\n  begin\r\n    Inc(Pos);\r\n    Inc(ALevel);\r\n  end;\r\n  Result := Copy(ABuffer, Pos, Length(ABuffer) - Pos + 1);\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetFirstEditableColumn: Integer;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := -1;\r\n  for I := 0 to Columns.Count - 1 do\r\n  begin\r\n    if (Columns[I].EditorType <> tcetNone) or Columns[I].CustomEditor then\r\n    begin\r\n      Result := I;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetFirstVisibleCacheItem: TTMSFNCTreeViewCacheItem;\r\nbegin\r\n  Result := nil;\r\n  if FNodeDisplay.Count > 0 then\r\n    Result := FNodeDisplay[0];\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetFirstVisibleColumn: Integer;\r\nvar\r\n  r: TRectF;\r\n  I: Integer;\r\nbegin\r\n  Result := 0;\r\n  if not ColumnsAppearance.OptimizedColumnDisplay then\r\n    Exit;\r\n\r\n  r := GetNodesRect;\r\n  for I := 0 to Columns.Count - 1 do\r\n  begin\r\n    if ColumnPositions[I] + ColumnWidths[I] >= r.Left + GetHorizontalScrollPosition then\r\n    begin\r\n      Result := I;\r\n      break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetFirstVisibleVirtualNode: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if FNodeDisplay.Count > 0 then\r\n    Result := FNodeDisplay[0].Node;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetFirstVisibleVirtualNodeRow: Integer;\r\nvar\r\n  n: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  n := GetFirstVisibleVirtualNode;\r\n  Result := 0;\r\n  if Assigned(n) then\r\n    Result := n.Row;  \r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetLastEditableColumn: Integer;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := -1;\r\n  for I := Columns.Count - 1 downto 0 do\r\n  begin\r\n    if (Columns[I].EditorType <> tcetNone) or Columns[I].CustomEditor then\r\n    begin\r\n      Result := I;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetLastVisibleColumn: Integer;\r\nvar\r\n  r: TRectF;\r\n  I: Integer;\r\nbegin\r\n  Result := Columns.Count - 1;\r\n\r\n  if not ColumnsAppearance.OptimizedColumnDisplay then\r\n    Exit;\r\n\r\n  r := GetNodesRect;\r\n  for I := Result downto 0 do\r\n  begin\r\n    if ColumnPositions[I] <= r.Right + GetHorizontalScrollPosition then\r\n    begin\r\n      Result := I;\r\n      break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetLastVisibleVirtualNode: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if FNodeDisplay.Count > 0 then\r\n    Result := FNodeDisplay[FNodeDisplay.Count - 1].Node;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetLastVisibleVirtualNodeRow: Integer;\r\nvar\r\n  n: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  n := GetLastVisibleVirtualNode;\r\n  Result := 0;\r\n  if Assigned(n) then\r\n    Result := n.Row;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetFocusedNode: TTMSFNCTreeViewNode;\r\nvar\r\n  n: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  n := FFocusedNode;\r\n  if Assigned(n) then\r\n    Result := n.Node;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetFocusedVirtualNode: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := FFocusedNode;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetSelectedVirtualNodeRow: Integer;\r\nvar\r\n  n: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := -1;\r\n  n := SelectedVirtualNode;\r\n  if Assigned(n) then\r\n    Result := n.Row;  \r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetSelNode(AIndex: Integer): TTMSFNCTreeViewNode;\r\nvar\r\n  v: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  v := SelectedVirtualNodes[AIndex];\r\n  if Assigned(v) then\r\n    Result := v.Node;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetSelVirtualNode(\r\n  AIndex: Integer): TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if (AIndex >= 0) and (AIndex <= SelectedVirtualNodeCount - 1) then\r\n    Result := FSelectedNodes[AIndex];\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetTopRow: Integer;\r\nbegin\r\n  Result := GetFirstVisibleVirtualNodeRow;\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomTreeView.DoInplaceEditorTimer(Sender: TObject);\r\nbegin\r\n  if Assigned(FInplaceEditor) then\r\n  begin\r\n    FInplaceEditor.Free;\r\n    FInplaceEditor := nil;\r\n  end;\r\n\r\n  FInplaceEditorTimer.Enabled := False;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.ScrollBarChanged(Sender: TObject);\r\nbegin\r\n  UpdateScrollBars(True, False);\r\n  FScrollBarTimer.Enabled := False;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterDrawGroup(AGraphics: TTMSFNCGraphics; ARect: TRectF;\r\n  AGroup, AStartColumn, AEndColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind);\r\nbegin\r\n  if Assigned(OnAfterDrawGroup) then\r\n    OnAfterDrawGroup(Self, AGraphics, ARect, AGroup, AStartColumn, AEndColumn, AKind);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterDrawGroupEmptySpace(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; ASpace: TTMSFNCTreeViewGroupEmptySpace);\r\nbegin\r\n  if Assigned(OnAfterDrawGroupEmptySpace) then\r\n    OnAfterDrawGroupEmptySpace(Self, AGraphics, ARect, ASpace);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterDrawGroupText(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AGroup, AStartColumn, AEndColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; AText: String);\r\nbegin\r\n  if Assigned(OnAfterDrawGroupText) then\r\n    OnAfterDrawGroupText(Self, AGraphics, ARect, AGroup, AStartColumn, AEndColumn, AKind, AText);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterDrawNode(AGraphics: TTMSFNCGraphics; ARect: TRectF;\r\n  ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  if Assigned(OnAfterDrawNode) then\r\n    OnAfterDrawNode(Self, AGraphics, ARect, ANode);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterDrawNodeCheck(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode\r\n  ;ACheck: TTMSFNCBitmap);\r\nbegin\r\n  if Assigned(OnAfterDrawNodeCheck) then\r\n    OnAfterDrawNodeCheck(Self, AGraphics, ARect, AColumn, ANode, ACheck);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterDrawNodeExpand(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode;\r\n  AExpand: TTMSFNCBitmap);\r\nbegin\r\n  if Assigned(OnAfterDrawNodeExpand) then\r\n    OnAfterDrawNodeExpand(Self, AGraphics, ARect, AColumn, ANode, AExpand);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterDrawNodeExtra(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  if Assigned(OnAfterDrawNodeExtra) then\r\n    OnAfterDrawNodeExtra(Self, AGraphics, ARect, AColumn, ANode);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterDrawNodeIcon(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode;\r\n  AIcon: TTMSFNCBitmap);\r\nbegin\r\n  if Assigned(OnAfterDrawNodeIcon) then\r\n    OnAfterDrawNodeIcon(Self, AGraphics, ARect, AColumn, ANode, AIcon);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterDrawNodeText(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; AText: String);\r\nbegin\r\n  if Assigned(OnAfterDrawNodeText) then\r\n    OnAfterDrawNodeText(Self, AGraphics, ARect, AColumn, ANode, AText);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterDrawNodeTitle(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode;\r\n  ATitle: String);\r\nbegin\r\n  if Assigned(OnAfterDrawNodeTitle) then\r\n    OnAfterDrawNodeTitle(Self, AGraphics, ARect, AColumn, ANode, ATitle);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterDrawNodeTitleExtra(\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer;\r\n  ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  if Assigned(OnAfterDrawNodeTitleExtra) then\r\n    OnAfterDrawNodeTitleExtra(Self, AGraphics, ARect, AColumn, ANode);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterDrawSortIndicator(\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ASortIndex: Integer;\r\n  ASortKind: TTMSFNCTreeViewNodesSortKind);\r\nbegin\r\n  if Assigned(OnAfterDrawSortIndicator) then\r\n    OnAfterDrawSortIndicator(Self, AGraphics, ARect, AColumn, ASortIndex, ASortKind);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterDropNode(AFromNode,\r\n  AToNode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  if Assigned(OnAfterDropNode) then\r\n    OnAfterDropNode(Self, AFromNode, AToNode);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterExpandNode(\r\n  ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  if Assigned(OnAfterExpandNode) then\r\n    OnAfterExpandNode(Self, ANode);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterOpenInplaceEditor(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  AInplaceEditor: TTMSFNCTreeViewInplaceEditor; AInplaceEditorRect: TRectF);\r\nbegin\r\n  if Assigned(OnAfterOpenInplaceEditor) then\r\n    OnAfterOpenInplaceEditor(Self, ANode, AColumn, AInplaceEditor, AInplaceEditorRect);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterPasteFromClipboard;\r\nbegin\r\n  if Assigned(OnAfterPasteFromClipboard) then\r\n    OnAfterPasteFromClipboard(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterReorderNode(AFromNode,\r\n  AToNode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  if Assigned(OnAfterReorderNode) then\r\n    OnAfterReorderNode(Self, AFromNode, AToNode);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterDrawNodeColumn(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AColumn: Integer);\r\nbegin\r\n  if Assigned(OnAfterDrawNodeColumn) then\r\n    OnAfterDrawNodeColumn(Self, AGraphics, ARect, AColumn);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterDrawColumn(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AColumn: Integer);\r\nbegin\r\n  if Assigned(OnAfterDrawColumn) then\r\n    OnAfterDrawColumn(Self, AGraphics, ARect, AColumn);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterDrawColumnHeader(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind);\r\nbegin\r\n  if Assigned(OnAfterDrawColumnHeader) then\r\n    OnAfterDrawColumnHeader(Self, AGraphics, ARect, AColumn, AKind);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterDrawColumnEmptySpace(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; ASpace: TTMSFNCTreeViewColumnEmptySpace);\r\nbegin\r\n  if Assigned(OnAfterDrawColumnEmptySpace) then\r\n    OnAfterDrawColumnEmptySpace(Self, AGraphics, ARect, ASpace);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterDrawColumnText(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; AText: String);\r\nbegin\r\n  if Assigned(OnAfterDrawColumnText) then\r\n    OnAfterDrawColumnText(Self, AGraphics, ARect, AColumn, AKind, AText);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterUnCheckNode(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer);\r\nbegin\r\n  if Assigned(OnAfterUnCheckNode) then\r\n    OnAfterUnCheckNode(Self, ANode, AColumn);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterUnSelectNode(\r\n  ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  if Assigned(OnAfterUnSelectNode) then\r\n    OnAfterUnSelectNode(Self, ANode);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterUpdateNode(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer);\r\nbegin\r\n  if Assigned(OnAfterUpdateNode) then\r\n    OnAfterUpdateNode(Self, ANode, AColumn);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeDrawGroup(AGraphics: TTMSFNCGraphics; ARect: TRectF;\r\n  AGroup, AStartColumn, AEndColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var AAllow: Boolean; var ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawGroup) then\r\n    OnBeforeDrawGroup(Self, AGraphics, ARect, AGroup, AStartColumn, AEndColumn, AKind, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeDrawGroupEmptySpace(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; ASpace: TTMSFNCTreeViewGroupEmptySpace; var AAllow,\r\n  ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawGroupEmptySpace) then\r\n    OnBeforeDrawGroupEmptySpace(Self, AGraphics, ARect, ASpace, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeDrawGroupText(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AGroup, AStartColumn, AEndColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; AText: String; var AAllow: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawGroupText) then\r\n    OnBeforeDrawGroupText(Self, AGraphics, ARect, AGroup, AStartColumn, AEndColumn, AKind, AText, AAllow);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeDrawNode(AGraphics: TTMSFNCGraphics; ARect: TRectF;\r\n  ANode: TTMSFNCTreeViewVirtualNode; var AAllow: Boolean; var ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawNode) then\r\n    OnBeforeDrawNode(Self, AGraphics, ARect, ANode, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeDrawNodeCheck(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode;\r\n  ACheck: TTMSFNCBitmap; var AAllow: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawNodeCheck) then\r\n    OnBeforeDrawNodeCheck(Self, AGraphics, ARect, AColumn, ANode, ACheck, AAllow);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeDrawNodeExpand(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode;\r\n  AExpand: TTMSFNCBitmap; var AAllow: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawNodeExpand) then\r\n    OnBeforeDrawNodeExpand(Self, AGraphics, ARect, AColumn, ANode, AExpand, AAllow);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeDrawNodeExtra(\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer;\r\n  ANode: TTMSFNCTreeViewVirtualNode; var AAllow: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawNodeExtra) then\r\n    OnBeforeDrawNodeExtra(Self, AGraphics, ARect, AColumn, ANode, AAllow);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeDrawNodeTitleExtra(\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer;\r\n  ANode: TTMSFNCTreeViewVirtualNode; var AAllow: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawNodeTitleExtra) then\r\n    OnBeforeDrawNodeTitleExtra(Self, AGraphics, ARect, AColumn, ANode, AAllow);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeDrawNodeIcon(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode;\r\n  AIcon: TTMSFNCBitmap; var AAllow: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawNodeIcon) then\r\n    OnBeforeDrawNodeIcon(Self, AGraphics, ARect, AColumn, ANode, AIcon, AAllow);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeDrawNodeText(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; {$IFNDEF UIPACK}var{$ENDIF} AText: String; var AAllow: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawNodeText) then\r\n    OnBeforeDrawNodeText(Self, AGraphics, ARect, AColumn, ANode, AText, AAllow);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeDrawNodeTitle(\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer;\r\n  ANode: TTMSFNCTreeViewVirtualNode; ATitle: String; var AAllow: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawNodeTitle) then\r\n    OnBeforeDrawNodeTitle(Self, AGraphics, ARect, AColumn, ANode, ATitle, AAllow);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeDrawSortIndicator(\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; ASortIndex: Integer;\r\n  ASortKind: TTMSFNCTreeViewNodesSortKind; var ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawSortIndicator) then\r\n    OnBeforeDrawSortIndicator(Self, AGraphics, ARect, AColumn, ASortIndex, ASortKind, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeDropNode(AFromNode,\r\n  AToNode: TTMSFNCTreeViewVirtualNode; var ACanDrop: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDropNode) then\r\n    OnBeforeDropNode(Self, AFromNode, AToNode, ACanDrop);\r\nend;\r\n\r\n{$IFDEF FNCLIB}\r\nprocedure TTMSFNCCustomTreeView.DoBeforeAddJSONNode(AJSONValue: TJSONValue; var AAddNode: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeAddJSONNode) then\r\n    OnBeforeAddJSONNode(Self, AJSONValue, AAddNode);\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeCheckNode(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ACanCheck: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeCheckNode) then\r\n    OnBeforeCheckNode(Self, ANode, AColumn, ACanCheck);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeCollapseNode(\r\n  ANode: TTMSFNCTreeViewVirtualNode; var ACanCollapse: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeCollapseNode) then\r\n    OnBeforeCollapseNode(Self, ANode, ACanCollapse);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeCopyToClipboard(var ACanCopy: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeCopyToClipboard) then\r\n    OnBeforeCopyToClipboard(Self, ACanCopy);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeCutToClipboard(var ACanCut: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeCutToClipboard) then\r\n    OnBeforeCutToClipboard(Self, ACanCut);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeExpandNode(\r\n  ANode: TTMSFNCTreeViewVirtualNode; var ACanExpand: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeExpandNode) then\r\n    OnBeforeExpandNode(Self, ANode, ACanExpand);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeOpenInplaceEditor(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ACanOpen: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeOpenInplaceEditor) then\r\n    OnBeforeOpenInplaceEditor(Self, ANode, AColumn, ACanOpen);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforePasteFromClipboard(\r\n  var ACanPaste: Boolean);\r\nbegin\r\n  if Assigned(OnBeforePasteFromClipboard) then\r\n    OnBeforePasteFromClipboard(Self, ACanPaste);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeReorderNode(AFromNode,\r\n  AToNode: TTMSFNCTreeViewVirtualNode; var ACanReorder: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeReorderNode) then\r\n    OnBeforeReorderNode(Self, AFromNode, AToNode, ACanReorder);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeDrawColumn(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AColumn: Integer; var AAllow: Boolean; var ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawColumn) then\r\n    OnBeforeDrawColumn(Self, AGraphics, ARect, AColumn, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeDrawNodeColumn(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AColumn: Integer; var AAllow: Boolean; var ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawNodeColumn) then\r\n    OnBeforeDrawNodeColumn(Self, AGraphics, ARect, AColumn, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeDrawColumnHeader(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var AAllow: Boolean; var ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawColumnHeader) then\r\n    OnBeforeDrawColumnHeader(Self, AGraphics, ARect, AColumn, AKind, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeSizeColumn(AColumn: Integer; AColumnSize: Double; var ANewColumnSize: Double; var AAllow: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeSizeColumn) then\r\n    OnBeforeSizeColumn(Self, AColumn, AColumnSize, ANewColumnSize, AAllow);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeSortNodes(ASortColumn: Integer;\r\n  ASortMode: TTMSFNCTreeViewNodesSortMode; var ACanSort: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeSortNodes) then\r\n    OnBeforeSortNodes(Self, ASortColumn, ASortMode, ACanSort);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterSizeColumn(AColumn: Integer; AColumnSize: Double);\r\nbegin\r\n  if Assigned(OnAfterSizeColumn) then\r\n    OnAfterSizeColumn(Self, AColumn, AColumnSize);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterSortNodes(ASortColumn: Integer;\r\n  ASortMode: TTMSFNCTreeViewNodesSortMode);\r\nbegin\r\n  if Assigned(OnAfterSortNodes) then\r\n    OnAfterSortNodes(Self, ASortColumn, ASortMode);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeDrawColumnEmptySpace(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; ASpace: TTMSFNCTreeViewColumnEmptySpace; var AAllow,\r\n  ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawColumnEmptySpace) then\r\n    OnBeforeDrawColumnEmptySpace(Self, AGraphics, ARect, ASpace, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeDrawColumnText(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; AText: String; var AAllow: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawColumnText) then\r\n    OnBeforeDrawColumnText(Self, AGraphics, ARect, AColumn, AKind, AText, AAllow);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoNodeClick(ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  if Assigned(OnNodeClick) then\r\n    OnNodeClick(Self, ANode);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoNodeDblClick(ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  if Assigned(OnNodeDblClick) then\r\n    OnNodeDblClick(Self, ANode);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoNodeMouseLeave(ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  if Assigned(OnNodeMouseLeave) then\r\n    OnNodeMouseLeave(Self, ANode);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoNodeMouseEnter(ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  if Assigned(OnNodeMouseEnter) then\r\n    OnNodeMouseEnter(Self, ANode);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoNodeTitleAnchorClick(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AAnchor: String);\r\nbegin\r\n  if Assigned(OnNodeTitleAnchorClick) then\r\n    OnNodeTitleAnchorClick(Self, ANode, AColumn, AAnchor)\r\n  else if Interaction.AutoOpenURL then\r\n    TTMSFNCUtils.OpenURL(AAnchor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoNodeValueClick(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer);\r\nbegin\r\n  if Assigned(OnNodeValueClick) then\r\n    OnNodeValueClick(Self, ANode, AColumn);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoUpdateNodeText(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AText: String);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoUpdateNodeTitle(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; ATitle: String);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeSelectNode(ANode: TTMSFNCTreeViewVirtualNode;\r\n  var ACanSelect: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeSelectNode) then\r\n    OnBeforeSelectNode(Self, ANode, ACanSelect);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeSelectAllNodes(var ACanSelect: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeSelectAllNodes) then\r\n    OnBeforeSelectAllNodes(Self, ACanSelect);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeUnCheckNode(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ACanUnCheck: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeUnCheckNode) then\r\n    OnBeforeUnCheckNode(Self, ANode, AColumn, ACanUnCheck);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeUnSelectNode(\r\n  ANode: TTMSFNCTreeViewVirtualNode; var ACanUnSelect: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeUnSelectNode) then\r\n    OnBeforeUnSelectNode(Self, ANode, ACanUnSelect);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoBeforeUpdateNode(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AText: String;\r\n  var ACanUpdate: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeUpdateNode) then\r\n    OnBeforeUpdateNode(Self, ANode, AColumn, AText, ACanUpdate);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoCloseInplaceEditor(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AInplaceEditor: TTMSFNCTreeViewInplaceEditor; ACancelled: Boolean;\r\n  var ACanClose: Boolean);\r\nbegin\r\n  if Assigned(OnCloseInplaceEditor) then\r\n    OnCloseInplaceEditor(Self, ANode, AColumn, AInplaceEditor, ACancelled, ACanClose);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoColumnAnchorClick(AColumn: Integer;\r\n  AAnchor: String);\r\nbegin\r\n  if Assigned(OnColumnAnchorClick) then\r\n    OnColumnAnchorClick(Self, AColumn, AAnchor)\r\n  else if Interaction.AutoOpenURL then\r\n    TTMSFNCUtils.OpenURL(AAnchor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoCustomizeFilterListBox(AColumn: Integer; AListBox: TListBox);\r\nbegin\r\n  if Assigned(OnCustomizeFilterListBox) then\r\n    OnCustomizeFilterListBox(Self, AColumn, AListBox);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoCustomizeInplaceEditor(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  AInplaceEditor: TTMSFNCTreeViewInplaceEditor);\r\nbegin\r\n  if Assigned(OnCustomizeInplaceEditor) then\r\n    OnCustomizeInplaceEditor(Self, ANode, AColumn, AInplaceEditor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoDrawNodeExtra(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  if Assigned(OnDrawNodeExtra) then\r\n    OnDrawNodeExtra(Self, AGraphics, ARect, AColumn, ANode);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoDrawNodeTitleExtra(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  if Assigned(OnDrawNodeTitleExtra) then\r\n    OnDrawNodeTitleExtra(Self, AGraphics, ARect, AColumn, ANode);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoEnter;\r\nbegin\r\n  inherited;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoExit;\r\nbegin\r\n  inherited;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoFilterSelect(AColumn: integer;\r\n  var ACondition: string);\r\nbegin\r\n  if Assigned(OnFilterSelect) then\r\n    OnFilterSelect(Self, AColumn, ACondition);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoFocusedNodeChanged(\r\n  ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  if Assigned(OnFocusedNodeChanged) then\r\n    OnFocusedNodeChanged(Self, ANode);\r\nend;\r\n\r\n{$IFDEF FNCLIB}\r\nprocedure TTMSFNCCustomTreeView.DoAfterAddJSONNode(ANode: TTMSFNCTreeViewNode; AJSONValue: TJSONValue);\r\nbegin\r\n  if Assigned(OnAfterAddJSONNode) then\r\n    OnAfterAddJSONNode(Self, ANode, AJSONValue);\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterCheckNode(ANode: TTMSFNCTreeViewVirtualNode;\r\n  AColumn: Integer);\r\nbegin\r\n  if Assigned(OnAfterCheckNode) then\r\n    OnAfterCheckNode(Self, ANode, AColumn);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterCollapseNode(\r\n  ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  if Assigned(OnAfterCollapseNode) then\r\n    OnAfterCollapseNode(Self, ANode);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterCopyToClipboard;\r\nbegin\r\n  if Assigned(OnAfterCopyToClipboard) then\r\n    OnAfterCopyToClipboard(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterCutToClipboard;\r\nbegin\r\n  if Assigned(OnAfterCutToClipboard) then\r\n    OnAfterCutToClipboard(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetGroupText(AGroup: Integer;\r\n  AKind: TTMSFNCTreeViewCacheItemKind; var AText: String);\r\nbegin\r\n  if Assigned(OnGetGroupText) then\r\n    OnGetGroupText(Self, AGroup, AKind, AText);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetHTMLTemplate(ANodeValue: TTMSFNCTreeViewNodeValue; AColumnIndex: Integer; var AHTMLTemplate: string);\r\nbegin\r\n  if Assigned(OnGetHTMLTemplate) then\r\n    OnGetHTMLTemplate(Self, ANodeValue, AColumnIndex, AHTMLTemplate);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetHTMLTemplateValue(ANodeValue: TTMSFNCTreeViewNodeValue; AName: string; var AValue: string);\r\nbegin\r\n  if Assigned(OnGetHTMLTemplateValue) then\r\n    OnGetHTMLTemplateValue(Self, ANodeValue, AName, AValue);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetInplaceEditor(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; {$IFDEF FMXLIB}var ATransparent: Boolean;{$ENDIF}\r\n  var AInplaceEditorClass: TTMSFNCTreeViewInplaceEditorClass);\r\nbegin\r\n  if Assigned(OnGetInplaceEditor) then\r\n    OnGetInplaceEditor(Self, ANode, AColumn, {$IFDEF FMXLIB}ATransparent, {$ENDIF}AInplaceEditorClass);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeCheckType(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var ACheckType: TTMSFNCTreeViewNodeCheckType);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeCheckType) then\r\n    OnGetNodeCheckType(Self, ANode, AColumn, ACheckType);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeHeight(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AHeight: Double);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeHeight) then\r\n    OnGetNodeHeight(Self, ANode, AColumn, AHeight);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeColor(ANode: TTMSFNCTreeViewVirtualNode;\r\n  var AColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeColor) then\r\n    OnGetNodeColor(Self, ANode, AColor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeStrokeColor(ANode: TTMSFNCTreeViewVirtualNode;\r\n  var AColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeStrokeColor) then\r\n    OnGetNodeStrokeColor(Self, ANode, AColor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeDisabledColor(\r\n  ANode: TTMSFNCTreeViewVirtualNode; var AColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeDisabledColor) then\r\n    OnGetNodeDisabledColor(Self, ANode, AColor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeDisabledStrokeColor(\r\n  ANode: TTMSFNCTreeViewVirtualNode; var AColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeDisabledStrokeColor) then\r\n    OnGetNodeDisabledStrokeColor(Self, ANode, AColor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeDisabledTextColor(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ATextColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeDisabledTextColor) then\r\n    OnGetNodeDisabledTextColor(Self, ANode, AColumn, ATextColor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeDisabledTitleColor(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var ATitleColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeDisabledTitleColor) then\r\n    OnGetNodeDisabledTitleColor(Self, ANode, AColumn, ATitleColor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeExtraSize(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AExtraSize: Single);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeExtraSize) then\r\n    OnGetNodeExtraSize(Self, ANode, AColumn, AExtraSize);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeTitleExtraSize(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ATitleExtraSize: Single);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeTitleExtraSize) then\r\n    OnGetNodeTitleExtraSize(Self, ANode, AColumn, ATitleExtraSize);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeHorizontalTextAlign(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var AHorizontalTextAlign: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeHorizontalTextAlign) then\r\n    OnGetNodeHorizontalTextAlign(Self, ANode, AColumn, AHorizontalTextAlign);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeIcon(ANode: TTMSFNCTreeViewVirtualNode;\r\n  AColumn: Integer; ALarge: Boolean; var AIcon: TTMSFNCBitmap);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeIcon) then\r\n    OnGetNodeIcon(Self, ANode, AColumn, ALarge, AIcon);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeIconSize(ANode: TTMSFNCTreeViewVirtualNode;\r\n  AColumn: Integer; ALarge: Boolean; AIcon: TTMSFNCBitmap; var AIconWidth: Double; var AIconHeight: Double);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeIconSize) then\r\n    OnGetNodeIconSize(Self, ANode, AColumn, ALarge, AIcon, AIconWidth, AIconHeight);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoIsNodeExtended(ANode: TTMSFNCTreeViewVirtualNode;\r\n  var AExtended: Boolean);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnIsNodeExtended) then\r\n    OnIsNodeExtended(Self, ANode, AExtended);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeSelectedColor(\r\n  ANode: TTMSFNCTreeViewVirtualNode; var AColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeSelectedColor) then\r\n    OnGetNodeSelectedColor(Self, ANode, AColor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeSelectedStrokeColor(\r\n  ANode: TTMSFNCTreeViewVirtualNode; var AColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeSelectedStrokeColor) then\r\n    OnGetNodeSelectedColor(Self, ANode, AColor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeSelectedTextColor(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ATextColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeSelectedTextColor) then\r\n    OnGetNodeSelectedTextColor(Self, ANode, AColumn, ATextColor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeSelectedTitleColor(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var ATitleColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeSelectedTitleColor) then\r\n    OnGetNodeSelectedTitleColor(Self, ANode, AColumn, ATitleColor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeSides(ANode: TTMSFNCTreeViewVirtualNode; var ASides: TTMSFNCGraphicsSides);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeSides) then\r\n    OnGetNodeSides(Self, ANode, ASides);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeRounding(ANode: TTMSFNCTreeViewVirtualNode; var ARounding: Integer; var ACorners: TTMSFNCGraphicsCorners);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeRounding) then\r\n    OnGetNodeRounding(Self, ANode, ARounding, ACorners);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeData(ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeData) then\r\n    OnGetNodeData(Self, ANode);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeText(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AMode: TTMSFNCTreeViewNodeTextMode; var AText: String);\r\nbegin\r\n  inherited;\r\n  if Assigned(Adapter) then\r\n    Adapter.GetNodeText(AColumn, ANode, AText);\r\n\r\n  if Assigned(OnGetNodeText) then\r\n    OnGetNodeText(Self, ANode, AColumn, AMode, AText);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeTextColor(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ATextColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeTextColor) then\r\n    OnGetNodeTextColor(Self, ANode, AColumn, ATextColor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeTrimming(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var ATrimming: TTMSFNCGraphicsTextTrimming);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeTrimming) then\r\n    OnGetNodeTrimming(Self, ANode, AColumn, ATrimming);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeTitleExpanded(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AExpanded: Boolean);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeTitleExpanded) then\r\n    OnGetNodeTitleExpanded(Self, ANode, AColumn, AExpanded);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeTitle(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  AMode: TTMSFNCTreeViewNodeTextMode; var ATitle: String);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeTitle) then\r\n    OnGetNodeTitle(Self, ANode, AColumn, AMode, ATitle);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeTitleColor(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var ATitleColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeTitleColor) then\r\n    OnGetNodeTitleColor(Self, ANode, AColumn, ATitleColor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeTitleHorizontalTextAlign(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var AHorizontalTextAlign: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeTitleHorizontalTextAlign) then\r\n    OnGetNodeTitleHorizontalTextAlign(Self, ANode, AColumn, AHorizontalTextAlign);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeTitleTrimming(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var ATrimming: TTMSFNCGraphicsTextTrimming);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeTitleTrimming) then\r\n    OnGetNodeTitleTrimming(Self, ANode, AColumn, ATrimming);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeTitleVerticalTextAlign(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var AVerticalTextAlign: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeTitleVerticalTextAlign) then\r\n    OnGetNodeTitleVerticalTextAlign(Self, ANode, AColumn, AVerticalTextAlign);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeTitleWordWrapping(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var AWordWrapping: Boolean);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeTitleWordWrapping) then\r\n    OnGetNodeTitleWordWrapping(Self, ANode, AColumn, AWordWrapping);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeVerticalTextAlign(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var AVerticalTextAlign: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if Assigned(OnGetNodeVerticalTextAlign) then\r\n    OnGetNodeVerticalTextAlign(Self, ANode, AColumn, AVerticalTextAlign);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNodeWordWrapping(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AWordWrapping: Boolean);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetNodeWordWrapping) then\r\n    OnGetNodeWordWrapping(Self, ANode, AColumn, AWordWrapping);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetColumnTrimming(\r\n  AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind;\r\n  var ATrimming: TTMSFNCGraphicsTextTrimming);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetColumnTrimming) then\r\n    OnGetColumnTrimming(Self, AColumn, AKind, ATrimming);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetColumnVerticalTextAlign(\r\n  AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind;\r\n  var AVerticalTextAlign: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if Assigned(OnGetColumnVerticalTextAlign) then\r\n    OnGetColumnVerticalTextAlign(Self, AColumn, AKind, AVerticalTextAlign);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetColumnHorizontalTextAlign(\r\n  AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind;\r\n  var AHorizontalTextAlign: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if Assigned(OnGetColumnHorizontalTextAlign) then\r\n    OnGetColumnHorizontalTextAlign(Self, AColumn, AKind, AHorizontalTextAlign);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetColumnWordWrapping(\r\n  AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var AWordWrapping: Boolean);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnGetColumnWordWrapping) then\r\n    OnGetColumnWordWrapping(Self, AColumn, AKind, AWordWrapping);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetNumberOfNodes(ANode: TTMSFNCTreeViewVirtualNode; var ANumberOfNodes: Integer);\r\nbegin\r\n  inherited;\r\n  if Assigned(Adapter) then\r\n    Adapter.GetNumberOfNodes(ANode, ANumberOfNodes);\r\n\r\n  if Assigned(OnGetNumberOfNodes) then\r\n  begin\r\n    UpdateCount := UpdateCount + 1;\r\n    NodeListBuild := False;\r\n    Nodes.Clear;\r\n    UpdateCount := UpdateCount - 1;\r\n    OnGetNumberOfNodes(Self, ANode, ANumberOfNodes);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoGetColumnText(AColumn: Integer;\r\n  AKind: TTMSFNCTreeViewCacheItemKind; var AText: String);\r\nbegin\r\n  if Assigned(OnGetColumnText) then\r\n    OnGetColumnText(Self, AColumn, AKind, AText);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoHScroll(APosition: Single);\r\nbegin\r\n  if Assigned(OnHScroll) then\r\n    OnHScroll(Self, APosition);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoIsNodeChecked(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var AChecked: Boolean);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnIsNodeChecked) then\r\n    OnIsNodeChecked(Self, ANode, AColumn, AChecked);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoIsNodeEnabled(ANode: TTMSFNCTreeViewVirtualNode;\r\n  var AEnabled: Boolean);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnIsNodeEnabled) then\r\n    OnIsNodeEnabled(Self, ANode, AEnabled);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoIsNodeExpanded(ANode: TTMSFNCTreeViewVirtualNode; var AExpanded: Boolean);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnIsNodeExpanded) then\r\n    OnIsNodeExpanded(Self, ANode, AExpanded);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoIsNodeVisible(ANode: TTMSFNCTreeViewVirtualNode;\r\n  var AVisible: Boolean);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnIsNodeVisible) then\r\n    OnIsNodeVisible(ANode, ANode, AVisible);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoNeedFilterDropDownData(\r\n  AColumn: Integer; AValues: TStrings);\r\nbegin\r\n  if Assigned(OnNeedFilterDropDownData) then\r\n    OnNeedFilterDropDownData(Self, AColumn, AValues);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoNodeAnchorClick(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AAnchor: String);\r\nbegin\r\n  if Assigned(OnNodeAnchorClick) then\r\n    OnNodeAnchorClick(Self, ANode, AColumn, AAnchor)\r\n  else if Interaction.AutoOpenURL then\r\n    TTMSFNCUtils.OpenURL(AAnchor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoNodeChanged(\r\n  ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  if Assigned(OnNodeChanged) then\r\n    OnNodeChanged(Self, ANode);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoVScroll(APosition: Single);\r\nbegin\r\n  if Assigned(Adapter) then\r\n    Adapter.ScrollTreeView(GetFirstVisibleVirtualNodeRow - FOldTopRow);\r\n  if Assigned(OnVScroll) then\r\n    OnVScroll(Self, APosition);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterSelectNode(ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  if Assigned(Adapter) then\r\n    Adapter.SelectNode(ANode);\r\n\r\n  if Assigned(OnAfterSelectNode) then\r\n    OnAfterSelectNode(Self, ANode);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DoAfterSelectAllNodes;\r\nbegin\r\n  if Assigned(OnAfterSelectAllNodes) then\r\n    OnAfterSelectAllNodes(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DragTime(Sender: TObject);\r\nvar\r\n  contentr: TRectF;\r\nbegin\r\n  if FReorderMode or ((FDragMode and FDragModeStarted) and AlternativeDragDrop) then\r\n  begin\r\n    contentr := GetNodesRect;\r\n\r\n    if (FY >= contentr.Bottom) then\r\n    begin\r\n      FDragRow := FDragRow + 1;\r\n      ScrollToVirtualNode(GetNodeForRow(FDragRow));\r\n    end\r\n    else if FY <= contentr.Top then\r\n    begin\r\n      FDragRow := FDragRow - 1;\r\n      ScrollToVirtualNode(GetNodeForRow(FDragRow));\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.AlternativeDragDrop: Boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.Animate(Sender: TObject);\r\nvar\r\n  dx, dy, posx, posy, dvo, posvo: Double;\r\n  animh, animv, animvo: Boolean;\r\nbegin\r\n  posy := GetVScrollValue;\r\n  posx := GetHScrollValue;\r\n  posvo := FVerticalOffset;\r\n\r\n  animv := False;\r\n  animh := False;\r\n  animvo := False;\r\n\r\n  if Interaction.AnimationFactor > 0 then\r\n  begin\r\n    dx := Abs(FScrollHTo - posx) / Max(1, Abs(FSpX) * Interaction.AnimationFactor);\r\n    dy := Abs(FScrollVTo - posy) / Max(1, Abs(FSpY) * Interaction.AnimationFactor);\r\n    dvo := Abs(FVerticalOffsetTo - posvo) / Interaction.AnimationFactor;\r\n\r\n    if FAnimateVerticalPos then\r\n      animv := AnimateDouble(posy, FScrollVTo, dy, 0.01);\r\n    if FAnimateHorizontalPos then\r\n      animh := AnimateDouble(posx, FScrollHTo, dx, 0.01);\r\n    if FAnimateVerticalOffset then\r\n      animvo := AnimateDouble(posvo, FVerticalOffsetTo, dvo, 0.01);\r\n  end;\r\n\r\n  FAnimating := animv or animh;\r\n  if FAnimating then\r\n    Scroll(posx, posy)\r\n  else if animvo then\r\n  begin\r\n    FVerticalOffset := posvo;\r\n    UpdateDisplay;\r\n  end\r\n  else\r\n  begin\r\n    FVerticalOffset := FVerticalOffsetTo;\r\n    UpdateDisplay;\r\n    FAnimateVerticalPos := False;\r\n    FAnimateTimer.Enabled := False;\r\n    FAnimateHorizontalPos := False;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.CustomizeInplaceEditor(\r\n  AInplaceEditor: TTMSFNCTreeViewInplaceEditor;\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: TTMSFNCTreeViewColumn);\r\n{$IFDEF FMXLIB}\r\nvar\r\n  ext, sel: Boolean;\r\n  f: TTMSFNCGraphicsFont;\r\n  c: TAlphaColor;\r\n{$ENDIF}\r\nbegin\r\n  if not Assigned(ANode) or not Assigned(AColumn) or not Assigned(AInplaceEditor) then\r\n    Exit;\r\n\r\n  {$IFDEF FMXLIB}\r\n\r\n  sel := IsVirtualNodeSelected(ANode);\r\n\r\n  ext := False;\r\n  DoIsNodeExtended(ANode, ext);\r\n\r\n  if Assigned(AColumn) and not AColumn.UseDefaultAppearance and not ext then\r\n  begin\r\n    f := AColumn.Font;\r\n    if sel then\r\n      c := AColumn.SelectedFontColor\r\n    else\r\n      c := AColumn.Font.Color;\r\n  end\r\n  else\r\n  begin\r\n    if ext then\r\n    begin\r\n      f := NodesAppearance.ExtendedFont;\r\n       if sel then\r\n         c := NodesAppearance.ExtendedSelectedFontColor\r\n       else\r\n         c := NodesAppearance.ExtendedFontColor;\r\n    end\r\n    else\r\n    begin\r\n      f := NodesAppearance.Font;\r\n      if sel then\r\n        c := NodesAppearance.SelectedFontColor\r\n      else\r\n        c := NodesAppearance.Font.Color\r\n    end;\r\n  end;\r\n\r\n  if (AInplaceEditor is TEdit) then\r\n  begin\r\n    (AInplaceEditor as TEdit).StyledSettings := [];\r\n    (AInplaceEditor as TEdit).Font.Assign(f);\r\n    (AInplaceEditor as TEdit).FontColor := c;\r\n  end\r\n  else if (AInplaceEditor is TMemo) then\r\n  begin\r\n    (AInplaceEditor as TMemo).StyledSettings := [];\r\n    (AInplaceEditor as TMemo).Font.Assign(f);\r\n    (AInplaceEditor as TMemo).FontColor := c;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  DoCustomizeInplaceEditor(ANode, AColumn.Index, FInplaceEditor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.CustomizeNodeCache(AGraphics: TTMSFNCGraphics;\r\n  AStartY: Single);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.CutToClipboard(ATextOnly: Boolean = False);\r\nvar\r\n  I: Integer;\r\n  n: TTMSFNCTreeViewNode;\r\n  nv: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  if Assigned(OnCustomCutToClipboard) then\r\n    OnCustomCutToClipboard(Self)\r\n  else\r\n  begin\r\n    BeginUpdate;\r\n    CopyToClipboard(ATextOnly);\r\n    for I := SelectedNodeCount - 1 downto 0 do\r\n    begin\r\n      n := SelectedNodes[I];\r\n      if Assigned(n) then\r\n        RemoveNode(n)\r\n      else\r\n      begin\r\n        nv := SelectedVirtualNodes[I];\r\n        RemoveVirtualNode(nv);\r\n      end;\r\n    end;\r\n    EndUpdate;\r\n  end;\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomTreeView.ApplyInplaceEditorStyleLookup(Sender: TObject);\r\nvar\r\n  obj: TFmxObject;\r\n  function FindSRes(AObject: TFmxObject; AResName: String): TFMXObject;\r\n  var\r\n    I: Integer;\r\n  begin\r\n    Result := nil;\r\n    if Assigned(AObject) then\r\n    begin\r\n      Result := AObject.FindStyleResource(AResName);\r\n      if not Assigned(Result) then\r\n      begin\r\n        for I := 0 to AObject.ChildrenCount - 1 do\r\n        begin\r\n          Result := FindSRes(AObject.Children[I], AResName);\r\n          if Assigned(Result) then\r\n            Break;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nbegin\r\n  if (Sender = FInplaceEditor) and ((FInplaceEditor is TMemo) or (FInplaceEditor is TEdit)) then\r\n  begin\r\n    obj := FindSRes(FInplaceEditor, 'background');\r\n    if Assigned(obj) and (obj is TCustomStyleObject) then\r\n      TCustomStyleObject(obj).Source := nil\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomTreeView.ApplyStyle;\r\nvar\r\n  c: TTMSFNCGraphicsColor;\r\nbegin\r\n  inherited;\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleBackgroundFillColor(c) then\r\n    Fill.Color := c;\r\n\r\n  if TTMSFNCStyles.GetStyleLineFillColor(c) then\r\n  begin\r\n    Stroke.Color := c;\r\n    ColumnsAppearance.TopStroke.Color := c;\r\n    ColumnsAppearance.BottomStroke.Color := c;\r\n    GroupsAppearance.TopStroke.Color := c;\r\n    GroupsAppearance.BottomStroke.Color := c;\r\n    NodesAppearance.ExtendedFill.Color := c;\r\n    NodesAppearance.ExtendedStroke.Color := c;\r\n  end;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleHeaderFillColor(c) then\r\n  begin\r\n    ColumnsAppearance.TopFill.Color := c;\r\n    ColumnsAppearance.TopFill.Kind := gfkSolid;\r\n    ColumnsAppearance.BottomFill.Color := c;\r\n    ColumnsAppearance.BottomFill.Kind := gfkSolid;\r\n    GroupsAppearance.TopFill.Color := c;\r\n    GroupsAppearance.TopFill.Kind := gfkSolid;\r\n    GroupsAppearance.BottomFill.Color := c;\r\n    GroupsAppearance.BottomFill.Kind := gfkSolid;\r\n  end;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleHeaderFillColorTo(c) then\r\n  begin\r\n    ColumnsAppearance.TopFill.ColorTo := c;\r\n    ColumnsAppearance.TopFill.Kind := gfkGradient;\r\n    ColumnsAppearance.BottomFill.ColorTo := c;\r\n    ColumnsAppearance.BottomFill.Kind := gfkGradient;\r\n    GroupsAppearance.TopFill.ColorTo := c;\r\n    GroupsAppearance.TopFill.Kind := gfkGradient;\r\n    GroupsAppearance.BottomFill.ColorTo := c;\r\n    GroupsAppearance.BottomFill.Kind := gfkGradient;\r\n  end;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleSelectionFillColor(c) then\r\n  begin\r\n    NodesAppearance.SelectedFill.Color := c;\r\n    NodesAppearance.SelectedStroke.Color := c;\r\n  end;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleTextFontColor(c) then\r\n  begin\r\n    NodesAppearance.Font.Color := c;\r\n    NodesAppearance.ExtendedFontColor := c;\r\n    ColumnsAppearance.TopFont.Color := c;\r\n    ColumnsAppearance.BottomFont.Color := c;\r\n    GroupsAppearance.TopFont.Color := c;\r\n    GroupsAppearance.BottomFont.Color := c;\r\n  end;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleAlternativeTextFontColor(c) then\r\n  begin\r\n    NodesAppearance.SelectedFontColor := c;\r\n    NodesAppearance.SelectedTitleFontColor := c;\r\n  end;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleBackgroundFillColor(c) then\r\n    Fill.Color := c;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.Assign(Source: TPersistent);\r\nbegin\r\n  BeginUpdate;\r\n  inherited;\r\n  if Source is TTMSFNCCustomTreeView then\r\n  begin\r\n    FNodesAppearance.Assign((Source as TTMSFNCCustomTreeView).NodesAppearance);\r\n    FColumnsAppearance.Assign((Source as TTMSFNCCustomTreeView).ColumnsAppearance);\r\n    FGroupsAppearance.Assign((Source as TTMSFNCCustomTreeView).GroupsAppearance);\r\n    FInteraction.Assign((Source as TTMSFNCCustomTreeView).Interaction);\r\n  end;\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.BuildDisplay(ACache: TTMSFNCTreeViewCache; ADisplay: TTMSFNCTreeViewDisplayList);\r\nvar\r\n  x, y: Double;\r\n  I: Integer;\r\n  cache: TTMSFNCTreeViewCacheItem;\r\n  r, rrt, rrb, rg, grt, grb: TRectF;\r\n  n: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  if (UpdateCount > 0) or (csDestroying in ComponentState) or not Assigned(ACache) or not Assigned(ADisplay) then\r\n    Exit;\r\n\r\n  ADisplay.Clear;\r\n\r\n  x := -GetHorizontalScrollPosition;\r\n  y := -GetVerticalScrollPosition;\r\n  if CanApplyVerticalOffset then\r\n    y := y + FVerticalOffset;\r\n\r\n  r := GetNodesRect;\r\n  grt := GetGroupsTopRect;\r\n  grb := GetGroupsBottomRect;\r\n  rrt := GetColumnsTopRect;\r\n  rrb := GetColumnsBottomRect;\r\n  for I := 0 to ACache.Count - 1 do\r\n  begin\r\n    cache := ACache[I];\r\n    rg := cache.Rect;\r\n    case cache.Kind of\r\n      ikNode:\r\n      begin\r\n        n := cache.Node;\r\n        if Assigned(n) then\r\n          OffsetNodeRects(n, Int(x), Int(y), rg);\r\n      end;\r\n      ikGroupTop: OffsetRectEx(rg, int(x) + grt.Left, grt.Top);\r\n      ikGroupBottom: OffsetRectEx(rg, int(x) + grb.Left, grb.Top - 1);\r\n      ikColumnTop: OffsetRectEx(rg, int(x) + rrt.Left, rrt.Top);\r\n      ikColumnBottom: OffsetRectEx(rg, int(x) + rrb.Left, rrb.Top - 1);\r\n    end;\r\n\r\n    cache.DrawRect := rg;\r\n    case cache.Kind of\r\n      ikNode:\r\n      begin\r\n        if RectIntersectsWithEx(rg, r) then\r\n          ADisplay.Add(cache);\r\n      end;\r\n      ikColumnTop:\r\n      begin\r\n        if RectIntersectsWithEx(rg, rrt) then\r\n          ADisplay.Add(cache);\r\n      end;\r\n      ikColumnBottom:\r\n      begin\r\n        if RectIntersectsWithEx(rg, rrb) then\r\n          ADisplay.Add(cache);\r\n      end;\r\n      ikGroupTop:\r\n      begin\r\n        if RectIntersectsWithEx(rg, grt) then\r\n          ADisplay.Add(cache);\r\n      end;\r\n      ikGroupBottom:\r\n      begin\r\n        if RectIntersectsWithEx(rg, grb) then\r\n          ADisplay.Add(cache);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.BuildNodeList;\r\nbegin\r\n  inherited;\r\n  PrecalculateNodes;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.AutoSizeColumnInternal(ACol: Integer; AUpdate: Boolean = False; ACallEventHandlers: Boolean = False);\r\nvar\r\n  I: Integer;\r\n  rcalc: TRectF;\r\n  v: TTMSFNCTreeViewVirtualNode;\r\n  g: TTMSFNCGraphics;\r\n  strc, strt: String;\r\n  ww, wwt: Boolean;\r\n  maxw: Double;\r\n  c: Boolean;\r\n  colps: Double;\r\n  def: Boolean;\r\n  col: TTMSFNCTreeViewColumn;\r\n  hs: Double;\r\nbegin\r\n  if (csDestroying in ComponentState) then\r\n    Exit;\r\n\r\n  if (ACol >= 0) and (ACol <= ColumnCount - 1) and not ColumnsAppearance.Stretch and NodeListBuild then\r\n  begin\r\n    hs := GetHorizontalScrollPosition;\r\n    maxw := 0;\r\n    colps := ColumnPositions[ACol];\r\n    g := TTMSFNCGraphics.CreateBitmapCanvas;\r\n    g.BeginScene;\r\n    g.BitmapContainer := BitmapContainer;\r\n    g.OptimizedHTMLDrawing := OptimizedHTMLDrawing;\r\n    try\r\n      def := True;\r\n      col := nil;\r\n      if (ACol >= 0) and (ACol <= Columns.Count - 1) then\r\n      begin\r\n        col := Columns[ACol];\r\n        if not col.UseDefaultAppearance then\r\n          def := False;\r\n      end;\r\n\r\n      if tclTop in ColumnsAppearance.Layouts then\r\n      begin\r\n        strc := GetColumnText(ACol);\r\n        DoGetColumnText(ACol, ikColumnTop, strc);\r\n        if def then\r\n          g.Font.Assign(ColumnsAppearance.TopFont)\r\n        else\r\n          g.Font.Assign(col.TopFont);\r\n\r\n        rcalc := RectF(0, 0, 10000, 10000);\r\n        rcalc := g.CalculateText(strc, rcalc);\r\n        rcalc.Right := rcalc.Right + ScalePaintValue(4\r\n        );\r\n\r\n        if rcalc.Right - rcalc.Left > maxw then\r\n          maxw := rcalc.Right - rcalc.Left;\r\n      end;\r\n\r\n      if tclBottom in ColumnsAppearance.Layouts then\r\n      begin\r\n        strc := GetColumnText(ACol);\r\n        DoGetColumnText(ACol, ikColumnBottom, strc);\r\n        if def then\r\n          g.Font.Assign(ColumnsAppearance.BottomFont)\r\n        else\r\n          g.Font.Assign(col.BottomFont);\r\n\r\n        rcalc := RectF(0, 0, 10000, 10000);\r\n        rcalc := g.CalculateText(strc, rcalc);\r\n        rcalc.Right := rcalc.Right + ScalePaintValue(4);\r\n\r\n        if rcalc.Right - rcalc.Left > maxw then\r\n          maxw := rcalc.Right - rcalc.Left;\r\n      end;\r\n\r\n      for I := StartRow to StopRow do\r\n      begin\r\n        v := GetVisibleNodeForIndex(I);\r\n        if Assigned(v) then\r\n        begin\r\n          strc := '';\r\n          DoGetNodeText(v, ACol, tntmDrawing, strc);\r\n          ww := False;\r\n          if (ACol >= 0) and (ACol <= Columns.Count - 1) then\r\n            ww := Columns[ACol].WordWrapping;\r\n\r\n          DoGetNodeWordWrapping(v, ACol, ww);\r\n\r\n          rcalc := RectF(0, 0, 10000, 10000);\r\n          rcalc := g.CalculateText(strc, rcalc);\r\n          rcalc.Right := rcalc.Right + ScalePaintValue(4\r\n          );\r\n\r\n          if ACol <= Length(v.BitmapRects) - 1 then\r\n            rcalc.Right := rcalc.Right + v.BitmapRects[ACol].Right + hs - colps + ScalePaintValue(3);\r\n\r\n          if rcalc.Right - rcalc.Left > maxw then\r\n            maxw := rcalc.Right - rcalc.Left;\r\n\r\n          strt := '';\r\n          DoGetNodeTitle(v, ACol, tntmDrawing, strt);\r\n          wwt := False;\r\n          if (ACol >= 0) and (ACol <= Columns.Count - 1) then\r\n            wwt := Columns[ACol].TitleWordWrapping;\r\n\r\n          DoGetNodeTitleWordWrapping(v, ACol, wwt);\r\n\r\n          rcalc := RectF(0, 0, 10000, 10000);\r\n          rcalc := g.CalculateText(strt, rcalc);\r\n          rcalc.Right := rcalc.Right + ScalePaintValue(4);\r\n\r\n          if ACol <= Length(v.BitmapRects) - 1 then\r\n            rcalc.Right := rcalc.Right + v.BitmapRects[ACol].Right + hs - colps + ScalePaintValue(3);\r\n\r\n          if rcalc.Right - rcalc.Left > maxw then\r\n            maxw := rcalc.Right - rcalc.Left;\r\n        end;\r\n      end;\r\n    finally\r\n      g.EndScene;\r\n      g.Free;\r\n    end;\r\n\r\n    maxw := Int(maxw);\r\n\r\n    c := True;\r\n    if ACallEventHandlers then\r\n      DoBeforeSizeColumn(ACol, ColumnWidths[ACol], maxw, c);\r\n\r\n    if c then\r\n    begin\r\n      ColumnWidths[ACol] := maxw;\r\n      if ACallEventHandlers then\r\n        DoAfterSizeColumn(ACol, maxw);\r\n\r\n      if AUpdate then\r\n      begin\r\n        UpdateTreeView;\r\n        Invalidate;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.CloseInplaceEditor(ACancel: Boolean; AFlagClose: Boolean = False);\r\nvar\r\n  {$IFNDEF LCLWEBLIB}\r\n  AContext: TRttiContext;\r\n  rt: TRttiType;\r\n  propt: TRttiProperty;\r\n  {$ENDIF}\r\n  str: String;\r\n  b, c: Boolean;\r\n  n: String;\r\n  {$IFDEF FMXLIB}\r\n  propi: TRttiProperty;\r\n  li: TListBoxItem;\r\n  obj: TObject;\r\n  {$ENDIF}\r\nbegin\r\n  if FClosing then\r\n  begin\r\n    if AFlagClose then\r\n      FInplaceEditorClosed := True;\r\n    Exit;\r\n  end;\r\n\r\n  FClosing := True;\r\n  if Assigned(FUpdateNode) and (FUpdateNodeColumn <> -1) and Assigned(FInplaceEditor) then\r\n  begin\r\n    if not ACancel then\r\n    begin\r\n      {$IFNDEF LCLWEBLIB}\r\n      AContext := TRttiContext.Create;\r\n      {$ENDIF}\r\n      try\r\n        n := '';\r\n        {$IFNDEF LCLWEBLIB}\r\n        rt := AContext.GetType(FInplaceEditor.ClassInfo);\r\n        propt := rt.GetProperty('Text');\r\n        if Assigned(Propt) then\r\n          str := propt.GetValue(FInplaceEditor).AsString\r\n        else\r\n        {$ENDIF}\r\n        begin\r\n          {$IFDEF FMXLIB}\r\n          propi := rt.GetProperty('Selected');\r\n          if Assigned(propi) then\r\n          begin\r\n            obj := propi.GetValue(FInplaceEditor).AsObject;\r\n            if Assigned(obj) and (obj is TListBoxItem) then\r\n            begin\r\n              li := obj as TListBoxItem;\r\n              if Assigned(li) then\r\n                str := li.Text;\r\n            end;\r\n          end;\r\n          {$ENDIF}\r\n        end;\r\n\r\n        {$IFDEF LCLWEBLIB}\r\n        if FInplaceEditor is TEdit then\r\n          str := (FInplaceEditor as TEdit).Text\r\n        else if FInplaceEditor is TComboBox then\r\n          str := (FInplaceEditor as TComboBox).Text\r\n        else if FInplaceEditor is TMemo then\r\n          str := (FInplaceEditor as TMemo).Text;\r\n        {$ENDIF}\r\n\r\n        n := str;\r\n      finally\r\n        {$IFNDEF LCLWEBLIB}\r\n        AContext.Free;\r\n        {$ENDIF}\r\n      end;\r\n    end;\r\n\r\n    c := True;\r\n    DoCloseInplaceEditor(FUpdateNode, FUpdateNodeColumn, FInplaceEditor, ACancel, c);\r\n    if c then\r\n    begin\r\n      b := True;\r\n      DoBeforeUpdateNode(FUpdateNode, FUpdateNodeColumn, n, b);\r\n      if b and not ACancel then\r\n      begin\r\n        UpdateCount := UpdateCount + 1;\r\n        if Assigned(FUpdateNode.Node) then\r\n          FUpdateNode.Node.Text[FUpdateNodeColumn] := n;\r\n        DoUpdateNodeText(FUpdateNode, FUpdateNodeColumn, n);\r\n        UpdateCount := UpdateCount - 1;\r\n\r\n        DoAfterUpdateNode(FUpdateNode, FUpdateNodeColumn);\r\n        DoNodeChanged(FUpdateNode);\r\n      end;\r\n\r\n      FInplaceEditor.Parent := nil;\r\n\r\n      {$IFDEF FMXLIB}\r\n      FInplaceEditorTimer.Enabled := True;\r\n      {$IFNDEF FMXMOBILE}\r\n      while FInplaceEditorTimer.Enabled do\r\n        Application.ProcessMessages;\r\n      {$ENDIF}\r\n      {$ENDIF}\r\n      {$IFDEF CMNWEBLIB}\r\n      if Assigned(FOldInplaceEditor) then\r\n        FOldInplaceEditor.Free;\r\n\r\n      FOldInplaceEditor := FInplaceEditor;\r\n      {$ENDIF}\r\n      FInplaceEditor := nil;\r\n      FInplaceEditorActive := False;\r\n    end;\r\n\r\n    ResetNodes(False);\r\n    UpdateTreeView;\r\n    Invalidate;\r\n    if CanFocus then\r\n      SetFocus;\r\n  end;\r\n  FClosing := False;\r\n\r\n  if AFlagClose then\r\n    FInplaceEditorClosed := True;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.SelectVirtualNodes(ANodes: TTMSFNCTreeViewVirtualNodeArray);\r\nvar\r\n  I: Integer;\r\n  v: TTMSFNCTreeViewVirtualNode;\r\n  en: Boolean;\r\nbegin\r\n  FSelectedNodes.Clear;\r\n  for I := 0 to Length(ANodes) - 1 do\r\n  begin\r\n    v := ANodes[I];\r\n    if Assigned(v) then\r\n    begin\r\n      en := IsVirtualNodeSelectable(v);\r\n      if en then\r\n        FSelectedNodes.Add(v);\r\n    end;\r\n  end;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.SelectNodes(ANodes: TTMSFNCTreeViewNodeArray);\r\nvar\r\n  I: Integer;\r\n  v: TTMSFNCTreeViewNode;\r\n  en: Boolean;\r\nbegin\r\n  FSelectedNodes.Clear;\r\n  for I := 0 to Length(ANodes) - 1 do\r\n  begin\r\n    v := ANodes[I];\r\n    if Assigned(v) then\r\n    begin\r\n      en := IsVirtualNodeSelectable(TTMSFNCTreeViewNodeOpen(v).VirtualNode);\r\n\r\n      if en then\r\n        FSelectedNodes.Add(TTMSFNCTreeViewNodeOpen(v).VirtualNode);\r\n    end;\r\n  end;\r\n\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.SelectVirtualNode(ANode: TTMSFNCTreeViewVirtualNode);\r\nvar\r\n  en: Boolean;\r\nbegin\r\n  FSelectedNodes.Clear;\r\n  if Assigned(ANode) then\r\n  begin\r\n    en := IsVirtualNodeSelectable(ANode);\r\n    if en then\r\n    begin\r\n      FSelectedNodes.Add(ANode);\r\n      FFocusedNode := ANode;\r\n      InternalSelectVirtualNode(ANode);\r\n    end;\r\n  end;\r\n  Invalidate;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.IsAnimating: Boolean;\r\nbegin\r\n  Result := (FAnimateTimer.Enabled = True) and FAnimating;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.IsDragDropActive: Boolean;\r\nbegin\r\n  Result := FDragMode and (Interaction.DragDropMode <> tdmNone);\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.IsEditing: Boolean;\r\nbegin\r\n  Result := FInplaceEditorActive;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.IsNodeSelectable(\r\n  ANode: TTMSFNCTreeViewNode): Boolean;\r\nbegin\r\n  Result := True;\r\n  if Assigned(ANode) then\r\n    Result := IsVirtualNodeSelectable(TTMSFNCTreeViewNodeOpen(ANode).VirtualNode);\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.IsNodeSelected(ANode: TTMSFNCTreeViewNode): Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(ANode) then\r\n    Result := IsVirtualNodeSelected(TTMSFNCTreeViewNodeOpen(ANode).VirtualNode);\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.IsReorderActive: Boolean;\r\nbegin\r\n  Result := FReorderMode and Interaction.Reorder;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.IsVariableNodeHeight: Boolean;\r\nbegin\r\n  Result := NodesAppearance.HeightMode = tnhmVariable;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.IsVirtualNodeSelectable(\r\n  ANode: TTMSFNCTreeViewVirtualNode): Boolean;\r\nvar\r\n  ext: Boolean;\r\nbegin\r\n  Result := True;\r\n  if Assigned(ANode) then\r\n  begin\r\n    DoIsNodeEnabled(ANode, Result);\r\n    ext := False;\r\n    DoIsNodeExtended(ANode, ext);\r\n    if (ext and not Interaction.ExtendedSelectable) or not (VisibleNodes.IndexOf(ANode) > -1) then\r\n      Result := False;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.IsVirtualNodeSelected(ANode: TTMSFNCTreeViewVirtualNode): Boolean;\r\nbegin\r\n  Result := FSelectedNodes.IndexOf(ANode) > -1;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.SelectAllNodes;\r\nbegin\r\n  SelectAllVirtualNodes;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.SelectAllVirtualNodes;\r\nvar\r\n  I: Integer;\r\n  n: TTMSFNCTreeViewVirtualNode;\r\n  en: Boolean;\r\nbegin\r\n  FSelectedNodes.Clear;\r\n  for I := 0 to VisibleNodes.Count - 1 do\r\n  begin\r\n    n := VisibleNodes[I];\r\n    if Assigned(n) then\r\n    begin\r\n      en := IsVirtualNodeSelectable(n);\r\n\r\n      if en then\r\n        FSelectedNodes.Add(n);\r\n    end;\r\n  end;\r\n  Invalidate;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.SelectedNodeCount: Integer;\r\nbegin\r\n  Result := SelectedVirtualNodeCount;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.SelectedVirtualNodeCount: Integer;\r\nbegin\r\n  Result := FSelectedNodes.Count;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.SelectNode(ANode: TTMSFNCTreeViewNode);\r\nbegin\r\n  if Assigned(ANode) then\r\n    SelectVirtualNode(TTMSFNCTreeViewNodeOpen(ANode).VirtualNode)\r\n  else\r\n    SelectVirtualNode(nil);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.SelectVirtualNodeByRow(ARow: Integer);\r\nbegin\r\n  SelectVirtualNode(GetNodeForRow(ARow));\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.RemoveSelectedVirtualNodes;\r\nvar\r\n  I: Integer;\r\n  n: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  BlockUpdate := True;\r\n  for I := SelectedVirtualNodeCount - 1 downto 0 do\r\n  begin\r\n    n := SelectedVirtualNodes[I];\r\n    FSelectedNodes.Remove(n);\r\n    RemoveVirtualNode(n);\r\n  end;\r\n  BlockUpdate := False;\r\n\r\n  ResetNodes(False);\r\n  UpdateTreeView;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.RemoveSelectedNodes;\r\nvar\r\n  I: Integer;\r\n  n: TTMSFNCTreeViewNode;\r\nbegin\r\n  BlockUpdate := True;\r\n  for I := SelectedNodeCount - 1 downto 0 do\r\n  begin\r\n    n := SelectedNodes[I];\r\n    FSelectedNodes.Remove(TTMSFNCTreeViewNodeOpen(n).VirtualNode);\r\n    RemoveNode(n);\r\n  end;\r\n  BlockUpdate := False;\r\n\r\n  ResetNodes(False);\r\n  UpdateTreeView;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.UpdateInplaceEditorPosition;\r\nvar\r\n  r: TRectF;\r\n  {$IFDEF CMNWEBLIB}\r\n  rt: TRect;\r\n  {$ENDIF}\r\nbegin\r\n  if (UpdateCount > 0) or (csDestroying in ComponentState) then\r\n    Exit;\r\n\r\n  if Assigned(FUpdateNode) and (FUpdateNodeColumn <> -1) and Assigned(FInplaceEditor) and FInplaceEditorActive then\r\n  begin\r\n    if (FUpdateNode.Row >= StartRow) and (FUpdateNode.Row <= StopRow) then\r\n    begin\r\n      r := GetInplaceEditorRect(FUpdateNode, FUpdateNodeColumn);\r\n      FInplaceEditor.Parent := Self;\r\n      FInplaceEditor.Visible := False;\r\n      if Assigned(FInplaceEditor) then\r\n      begin\r\n        {$IFDEF FMXLIB}\r\n        FInplaceEditor.BoundsRect := r;\r\n        FInplaceEditor.BoundsRect := RectF(r.Left, r.Top + (r.Bottom - r.Top - FInplaceEditor.Height) / 2, r.Right, r.Top + (r.Bottom - r.Top - FInplaceEditor.Height) / 2 + FInplaceEditor.Height);\r\n        {$ENDIF}\r\n        {$IFDEF CMNWEBLIB}\r\n        rt := Rect(Round(r.Left), Round(r.Top), Round(r.Right), Round(r.Bottom));\r\n        FInplaceEditor.BoundsRect := rt;\r\n        FInplaceEditor.BoundsRect := Rect(rt.Left, rt.Top + (rt.Bottom - rt.Top - FInplaceEditor.Height) div 2, rt.Right, rt.Top + (rt.Bottom - rt.Top - FInplaceEditor.Height) div 2 + FInplaceEditor.Height);\r\n        {$ENDIF}\r\n        FInplaceEditor.Visible := True;\r\n      end;\r\n    end\r\n    else\r\n      FInplaceEditor.Parent := nil;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleMouseDown(Button: TTMSFNCMouseButton; Shift: TShiftState;\r\n  X, Y: Single);\r\nvar\r\n  dc: TTMSFNCTreeViewCacheItem;\r\nbegin\r\n  inherited;\r\n  if (Button = {$IFNDEF WEBLIB}TTMSFNCMouseButton.{$ENDIF}mbRight) or BlockUserInput or BlockMouseClick then\r\n    Exit;\r\n\r\n  if not FDblClicked then\r\n    CaptureEx;\r\n\r\n  FDragMode := False;\r\n  FDragModeStarted := False;\r\n  FReorderMode := False;\r\n  FDragNode := nil;\r\n\r\n  if not FDblClicked then\r\n  begin\r\n    if CanFocus then\r\n      SetFocus;\r\n\r\n    if FInplaceEditorActive then\r\n      CloseInplaceEditor(False);\r\n  end;\r\n\r\n  dc := XYToCacheItem(X, Y);\r\n  FDownNode := nil;\r\n  if Assigned(dc) then\r\n  begin\r\n    FDownNode := dc.Node;\r\n    if FSelectedNodes.IndexOf(FDownNode) > -1 then\r\n    begin\r\n      FDragNode := FDownNode;\r\n      FDragMode := Assigned(FDownNode) and (Interaction.DragDropMode <> tdmNone) and not FDblClicked and not XYToNodeExpand(FDownNode, X, Y)\r\n        and not XYToNodeExtra(FDownNode, X, Y) and not XYToNodeTitleExtra(FDownNode, X, Y) and not Assigned(XYToNodeCheck(FDownNode, X, Y).ANode);\r\n      FReorderMode := Assigned(FDownNode) and Interaction.Reorder and not FDragMode and not FDblClicked and not XYToNodeExpand(FDownNode, X, Y)\r\n        and not XYToNodeExtra(FDownNode, X, Y) and not XYToNodeTitleExtra(FDownNode, X, Y) and not Assigned(XYToNodeCheck(FDownNode, X, Y).ANode);\r\n\r\n      FDragMode := FDragMode and not ((ssCtrl in Shift) or (ssShift in Shift));\r\n      FReorderMode := FReorderMode and not ((ssCtrl in Shift) or (ssShift in Shift));\r\n\r\n      if FReorderMode then\r\n      begin\r\n        CreateDragBitmap;\r\n        FSaveDragY := FDragBitmap.Top;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  if FDragMode then\r\n  begin\r\n    if CanStartDragFromMouseDown then\r\n    begin\r\n      FDragModeStarted := True;\r\n      HandleDragStart(X, Y);\r\n      BeginDrag;\r\n    end;\r\n    IsMouseDown := not FDblClicked;\r\n  end\r\n  else\r\n  begin\r\n    if Assigned(FDownNode) then\r\n    begin\r\n      FDoNodeExpand := XYToNodeExpand(FDownNode, X, Y);\r\n      FDoNodeCheck := XYToNodeCheck(FDownNode, X, Y);\r\n      FDoNodeAnchor := XYToNodeAnchor(FDownNode, X, Y);\r\n      FDoNodeTitleAnchor := XYToNodeTitleAnchor(FDownNode, X, Y);\r\n      FDoNodeExtra := XYToNodeExtra(FDownNode, X, Y);\r\n      FDoNodeTitleExtra := XYToNodeTitleExtra(FDownNode, X, Y);\r\n    end;\r\n\r\n    FSizeColumn := -1;\r\n    if Interaction.ColumnSizing then\r\n    begin\r\n      FSizeColumn := XYToColumnSize(X, Y);\r\n      if (FSizeColumn >= 0) and (FSizeColumn <= ColumnCount - 1) then\r\n        FColumnSize := ColumnWidths[FSizeColumn];\r\n    end;\r\n\r\n    FDownColumn := XYToColumn(X, Y);\r\n    FDownColumnValue := XYToColumn(X, Y, True);\r\n    FDownColumnFilter := XYToColumnFilter(X, Y);\r\n    FDownColumnExpand := XYToColumnExpand(X, Y);\r\n\r\n    IsMouseDown := not FDblClicked;\r\n    FTimeStart := GetTickCountX;\r\n    FTimeStop := FTimeStart;\r\n    FScrollVTo := GetVScrollValue;\r\n    FScrollHTo := GetHScrollValue;\r\n    FScrollX := X;\r\n    FScrollY := Y;\r\n    FDownX := X;\r\n    FDownY := Y;\r\n    FMouseX := X;\r\n    FMouseY := Y;\r\n    FSizeX := X;\r\n    FDragY := Y;\r\n    FVerticalOffset := 0;\r\n    FVerticalOffsetTo := 0;\r\n    FMouseUp := False;\r\n    FDoubleSelection := not FAnimateTimer.Enabled;\r\n    FScrolling := False;\r\n  end;\r\n  FDblClicked := False;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleMouseMove(Shift: TShiftState; X, Y: Single);\r\nvar\r\n  f: Double;\r\n  it: TTMSFNCTreeViewVirtualNode;\r\n  doscroll: Boolean;\r\n  dsp: TTMSFNCTreeViewCacheItem;\r\n  sc: Integer;\r\n  c: Boolean;\r\n  colsz, newcolsz, newposy: Double;\r\n  r: TRectF;\r\n  n: TTMSFNCTreeViewVirtualNode;\r\n  su, sd: Boolean;\r\n  a: string;\r\n  crs: smallint;\r\n  cl: Integer;\r\nbegin\r\n  inherited;\r\n\r\n  if BlockUserInput or (FAnimating and not IsMouseDown) then\r\n    Exit;\r\n\r\n  FY := Y;\r\n  FX := X;\r\n\r\n  if IsMouseDown and FDragMode and CanStartDragFromMouseMove and ((Abs(FY - FDownY) > DRAGMARGIN) or (Abs(FX - FDownX) > DRAGMARGIN)) then\r\n  begin\r\n    if not FDragModeStarted then\r\n      HandleDragStart(X, Y);\r\n\r\n    FDragModeStarted := True;\r\n    if AlternativeDragDrop then\r\n      HandleAlternativeDragOver(X, Y)\r\n    else\r\n      BeginDrag;\r\n    Exit;\r\n  end;\r\n\r\n  if FReorderMode and Assigned(FDragBitmap) and Interaction.Reorder then\r\n  begin\r\n    r := GetContentClipRect;\r\n    newposy := FSaveDragY + (FY - FDragY);\r\n    if (newposy <= r.Top + (r.Bottom - r.Top) - FDragBitmap.Height) and (newposy >= r.Top) then\r\n    begin\r\n      FDragBitmap.Top := Round(Max(r.Top, Min(r.Top + (r.Bottom - r.Top) - FDragBitmap.Height, newposy)));\r\n      FSaveDragY := FDragBitmap.Top;\r\n      FDragTimer.Enabled := False;\r\n      if (newposy > r.Top) and (newposy < r.Top + (r.Right - r.Left)) then\r\n      begin\r\n        n := XYToNode((r.Right - r.Left) / 2, newposy);\r\n        if Assigned(n) then\r\n          FDragRow := n.Row;\r\n      end;\r\n    end\r\n    else if (newposy > r.Top + (r.Bottom - r.Top) - FDragBitmap.Height) then\r\n    begin\r\n      FDragBitmap.Top := Round(r.Top + (r.Bottom - r.Top) - FDragBitmap.Height);\r\n      FSaveDragY := newposy;\r\n      FDragTimer.Enabled := True;\r\n    end\r\n    else if (newposy < r.Top) then\r\n    begin\r\n      FDragBitmap.Top := Round(r.Top);\r\n      FSaveDragY := newposy;\r\n      FDragTimer.Enabled := True;\r\n    end;\r\n\r\n    FDragY := FY;\r\n    Exit;\r\n  end;\r\n\r\n  if (FSizeColumn >= 0) and (FSizeColumn <= ColumnCount - 1) then\r\n  begin\r\n    c := True;\r\n    colsz := FColumnSize;\r\n    FColumnSize := colsz + (X - FSizeX);\r\n    newcolsz := Max(0, FColumnSize);\r\n    FSizeX := X;\r\n    DoBeforeSizeColumn(FSizeColumn, colsz, newcolsz, c);\r\n    if c then\r\n    begin\r\n      ColumnWidths[FSizeColumn] := newcolsz;\r\n      if (FSizeColumn >= 0) and (FSizeColumn <= Columns.Count - 1) then\r\n        Columns[FSizeColumn].UpdateWidth(newcolsz);\r\n\r\n      DoAfterSizeColumn(FSizeColumn, newcolsz);\r\n      ResetNodes(True);\r\n      UpdateTreeView;\r\n      Invalidate;\r\n    end;\r\n    Exit;\r\n  end;\r\n\r\n  if IsMouseDown and not (FDoNodeAnchor.AAnchor <> '') and not (FDoNodeTitleAnchor.AAnchor <> '') then\r\n  begin\r\n    doscroll := not FDoNodeExpand and not Assigned(FDoNodeCheck.ANode);\r\n    if doscroll then\r\n    begin\r\n      f := 1;\r\n      case ScrollMode of\r\n        smNodeScrolling: f := 0.1;\r\n      end;\r\n\r\n      c := True;\r\n      if ScrollLimitation and (Abs(Y - FMouseY) < 15) then\r\n        c := Abs(X - FMouseX) < 5;\r\n\r\n      c := c and not (XYToColumn(X, Y) <> -1);\r\n\r\n      if (FScrolling or (Abs(FMouseX - X) > 3) or (Abs(FMouseY - Y) > 3)) and Interaction.TouchScrolling and c then\r\n      begin\r\n        FDragTimer.Enabled := False;\r\n        if (Abs(X - FDownX) > SCROLLINGDELAY) or (Abs(Y - FDownY) > SCROLLINGDELAY) then\r\n        begin\r\n          FScrolling := True;\r\n          FDoubleSelection := False;\r\n          if IsMouseDown and not FMouseUp then\r\n          begin\r\n            su := CanScrollUp;\r\n            sd := CanScrollDown;\r\n            if (su and (Y - FDownY > 0)) or (sd and (Y - FDownY < 0)) and (FVerticalOffset = 0) then\r\n            begin\r\n              FVerticalOffset := 0;\r\n              Scroll(GetHScrollValue - (X - FDownX) * f, GetVScrollValue - (Y - FDownY) * f)\r\n            end\r\n            else if CanApplyVerticalOffset then\r\n            begin\r\n              FVerticalOffset := Min(75, Max(-75, FVerticalOffset + (Y - FDownY)));\r\n              UpdateDisplay;\r\n            end\r\n            else\r\n              Scroll(GetHScrollValue - (X - FDownX) * f, GetVScrollValue);\r\n\r\n            FDownY := Y;\r\n            FDownX := X;\r\n          end;\r\n        end;\r\n      end\r\n    end\r\n  end\r\n  else\r\n  begin\r\n    it := nil;\r\n    dsp := XYToCacheItem(X, Y);\r\n    if Assigned(dsp) then\r\n      it := dsp.Node;\r\n\r\n    crs := crDefault;\r\n\r\n    if Assigned(it) and Assigned(dsp) then\r\n    begin\r\n      if Interaction.URLDetectionOnMouseMove and ((XYToNodeAnchor(it, X, Y).AAnchor <> '') or (XYToNodeTitleAnchor(it, X, Y).AAnchor <> '')) then\r\n        crs := crHandPoint;\r\n    end\r\n    else\r\n    begin\r\n      if Interaction.ColumnSizing then\r\n      begin\r\n        sc := XYToColumnSize(X, Y);\r\n        if (sc >= 0) and (sc <= ColumnCount - 1) then\r\n          crs := crSizeWE;\r\n      end;\r\n    end;\r\n\r\n    cl := -1;\r\n    a := XYToColumnAnchor(X, Y, cl);\r\n    if a <> '' then\r\n      crs := crHandPoint;\r\n\r\n    if crs <> Cursor then\r\n      Cursor := crs;\r\n\r\n    if (FPrevDSP <> dsp) then\r\n    begin\r\n      if Assigned(FPrevDSP) and Assigned(FPrevDSP.Node) then\r\n        DoNodeMouseLeave(FPrevDSP.Node);\r\n      if Assigned(dsp) and Assigned(dsp.Node) then\r\n        DoNodeMouseEnter(dsp.Node);\r\n    end;\r\n\r\n    FPrevDSP := dsp;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleMouseUp(Button: TTMSFNCMouseButton; Shift: TShiftState;\r\n  X, Y: Single);\r\nvar\r\n  f: Double;\r\n  a: TTMSFNCTreeViewNodeAnchor;\r\n  cl: Integer;\r\n  ha: string;\r\n  en, d, dosel, ext: Boolean;\r\n  I: Integer;\r\n  t: Integer;\r\n  dn, prev: TTMSFNCTreeViewVirtualNode;\r\n  b: Boolean;\r\n  sz: Integer;\r\n  cs: Boolean;\r\n  add: Integer;\r\nbegin\r\n  inherited;\r\n\r\n  if (Button = {$IFNDEF WEBLIB}TTMSFNCMouseButton.{$ENDIF}mbRight) or BlockUserInput then\r\n    Exit;\r\n\r\n  {$IFDEF LCLLIB}\r\n  if FDblClicked then\r\n    FDblClicked := False;\r\n  {$ENDIF}\r\n\r\n  ReleaseCaptureEx;\r\n\r\n  if FDragMode and FDragModeStarted and AlternativeDragDrop then\r\n  begin\r\n    HandleAlternativeDragDrop(X, Y);\r\n    DestroyDragBitmap;\r\n    Cursor := crDefault;\r\n  end;\r\n\r\n  sz := FSizeColumn;\r\n  FSizeColumn := -1;\r\n  FDragTimer.Enabled := False;\r\n\r\n  if not IsMouseDown then\r\n    Exit;\r\n\r\n  if FReorderMode and Interaction.Reorder then\r\n  begin\r\n    dn := XYToNode(X, Y);\r\n    if Assigned(OnCustomReorder) then\r\n      OnCustomReorder(Self, FDragNode, dn)\r\n    else\r\n    begin\r\n      if Assigned(dn) and (dn <> FDragNode) and Assigned(dn.Node) and Assigned(FDragNode.Node) then\r\n      begin\r\n        b := True;\r\n        DoBeforeReorderNode(FDragNode, dn, b);\r\n        if b then\r\n        begin\r\n          if FDragNode.Level = dn.Level then\r\n          begin\r\n            if dn.Node.GetParent = nil then\r\n              FDragNode.Node.Index := dn.Node.Index\r\n            else\r\n              FDragNode.Node.MoveTo(dn.Node.GetParent, dn.Node.Index);\r\n          end;\r\n          DoAfterReorderNode(FDragNode, dn);\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    DestroyDragBitmap;\r\n    FDragNode := nil;\r\n  end;\r\n\r\n  f := 1;\r\n  case ScrollMode of\r\n    smNodeScrolling: f := 0.1;\r\n  end;\r\n\r\n  IsMouseDown := False;\r\n  FMouseUp := True;\r\n  FScrolling := False;\r\n\r\n  if FDownColumnFilter <> -1 then\r\n    HandleFilter(FDownColumnFilter)\r\n  else if FDownColumnExpand <> -1 then\r\n    HandleExpand(FDownColumnExpand)\r\n  else if (FDownColumn <> -1) and (sz = -1) then\r\n  begin\r\n    if (FDownColumn >= 0) and (FDownColumn <= ColumnCount - 1) then\r\n    begin\r\n      if (Columns[FDownColumn].Sorting <> tcsNone) then\r\n      begin\r\n        case TTMSFNCTreeViewColumnOpen(Columns[FDownColumn]).SortKind of\r\n          nskNone, nskAscending:\r\n          begin\r\n            InitializeColumnSorting(FDownColumn, nsmDescending);\r\n            if Assigned(OnCustomColumnSort) then\r\n              OnCustomColumnSort(Self, FDownColumn, nsmDescending)\r\n            else\r\n            begin\r\n              cs := True;\r\n              DoBeforeSortNodes(FDownColumn, nsmDescending, cs);\r\n              if cs then\r\n              begin\r\n                Nodes.Sort(FDownColumn, Columns[FDownColumn].Sorting in [tcsRecursive, tcsRecursiveCaseSensitive], Columns[FDownColumn].Sorting in [tcsNormalCaseSensitive, tcsRecursiveCaseSensitive], nsmDescending);\r\n                DoAfterSortNodes(FDownColumn, nsmDescending);\r\n              end;\r\n            end;\r\n          end;\r\n          nskDescending:\r\n          begin\r\n            InitializeColumnSorting(FDownColumn, nsmAscending);\r\n            if Assigned(OnCustomColumnSort) then\r\n              OnCustomColumnSort(Self, FDownColumn, nsmAscending)\r\n            else\r\n            begin\r\n              cs := True;\r\n              DoBeforeSortNodes(FDownColumn, nsmAscending, cs);\r\n              if cs then\r\n              begin\r\n                Nodes.Sort(FDownColumn, Columns[FDownColumn].Sorting in [tcsRecursive, tcsRecursiveCaseSensitive], Columns[FDownColumn].Sorting in [tcsNormalCaseSensitive, tcsRecursiveCaseSensitive], nsmAscending);\r\n                DoAfterSortNodes(FDownColumn, nsmAscending);\r\n              end;\r\n            end;\r\n          end;\r\n        end;\r\n      end;\r\n\r\n      cl := -1;\r\n      ha := XYToColumnAnchor(X, Y, cl);\r\n      if ha <> '' then\r\n        DoColumnAnchorClick(FDownColumn, ha);\r\n    end;\r\n  end\r\n  else if not FReorderMode and not FDragModeStarted then\r\n  begin\r\n    if not FDoNodeExpand and not FDoNodeExtra and not FDoNodeTitleExtra and not Assigned(FDoNodeCheck.ANode) and not (FDoNodeAnchor.AAnchor <> '') and not (FDoNodeTitleAnchor.AAnchor <> '') then\r\n    begin\r\n      if not FDoubleSelection and Interaction.TouchScrolling then\r\n      begin\r\n        FTimeStop := GetTickCountX;\r\n        if (FVerticalOffset = 0) and ((FTimeStop - FTimeStart) < SWIPECOUNT) and ((FTimeStop - FTimeStart) > 0) then\r\n        begin\r\n          FSpY := Abs(Y - FScrollY) / (FTimeStop - FTimeStart);\r\n          if (FSpY > 0) then\r\n          begin\r\n            if (Y - FScrollY) > 0 then\r\n              FScrollVTo := Max(0, Min(VerticalScrollBar.Max - GetVViewportSize, FScrollVTo - Round(Abs(Y - FScrollY) * FSpY * f * 3)))\r\n            else\r\n              FScrollVTo := Max(0, Min(VerticalScrollBar.Max - GetVViewportSize, FScrollVTo + Round(Abs(Y - FScrollY) * FSpY * f * 3)));\r\n\r\n            FAnimateVerticalPos := True;\r\n            FAnimateTimer.Enabled := True;\r\n          end;\r\n\r\n          FSpX := Abs(X - FScrollX) / (FTimeStop - FTimeStart);\r\n          if (FSpX > 0) then\r\n          begin\r\n            if (X - FScrollX) > 0 then\r\n              FScrollHTo := Max(0, Min(HorizontalScrollBar.Max - GetHViewportSize, FScrollHTo - Round(Abs(X - FScrollX) * FSpX * f * 3)))\r\n            else\r\n              FScrollHTo := Max(0, Min(HorizontalScrollBar.Max - GetHViewportSize, FScrollHTo + Round(Abs(X - FScrollX) * FSpX * f * 3)));\r\n\r\n            FAnimateHorizontalPos := True;\r\n            FAnimateTimer.Enabled := True;\r\n          end;\r\n        end\r\n        else if CanApplyVerticalOffset then\r\n        begin\r\n          if NeedsReload(FVerticalOffset) then\r\n            StartReload;\r\n\r\n          StartVerticalOffsetAnimation;\r\n        end;\r\n      end\r\n      else\r\n      begin\r\n        if Assigned(FDownNode) and not BlockMouseClick then\r\n        begin\r\n          en := IsVirtualNodeSelectable(FDownNode);\r\n          prev := FFocusedNode;\r\n          dosel := en;\r\n\r\n          if en then\r\n          begin\r\n            if (ssShift in Shift) and (msShiftSelect in Interaction.MultiSelectStyle) then\r\n            begin\r\n              if Assigned(FFocusedNode) then\r\n              begin\r\n                if (msSiblingOnly in Interaction.MultiSelectStyle) and (FFocusedNode.ParentNode <> FDownNode.ParentNode) then\r\n                 add := 0\r\n                else\r\n                  add := 1;\r\n                if FFocusedNode.Row <= FDownNode.Row then\r\n                begin\r\n                  for I := FFocusedNode.Row + add to FDownNode.Row do\r\n                    HandleSelectNode(GetNodeFromNodeStructure(I), True, False, {$IFNDEF FMXMOBILE}(ssShift in Shift) and {$ENDIF} Interaction.MultiSelect, FDownColumnValue);\r\n                end\r\n                else\r\n                begin\r\n                  for I := FFocusedNode.Row - add downto FDownNode.Row do\r\n                    HandleSelectNode(GetNodeFromNodeStructure(I), True, False, {$IFNDEF FMXMOBILE}(ssShift in Shift) and {$ENDIF} Interaction.MultiSelect, FDownColumnValue);\r\n                end;\r\n              end;\r\n            end\r\n            else\r\n            begin\r\n              {$IFDEF FMXMOBILE}\r\n              if Interaction.MultiSelect then\r\n              begin\r\n                if IsVirtualNodeSelected(FDownNode) and Interaction.MultiSelect then\r\n                  UnSelectVirtualNode(FDownNode)\r\n                else\r\n                  HandleSelectNode(FDownNode, True, False, Interaction.MultiSelect)\r\n              end\r\n              else\r\n              begin\r\n              {$ENDIF}\r\n                if (msSiblingOnly in Interaction.MultiSelectStyle) and Assigned(FFocusedNode) and (FDownNode.ParentNode <> FFocusedNode.ParentNode) and (FSelectedNodes.Count > 0) then\r\n                begin\r\n                  FSelectedNodes.Clear;\r\n                end\r\n                else if ((not (ssCtrl in Shift) and not (ssCommand in Shift)) or not(msControlSelect in Interaction.MultiSelectStyle)) and (FSelectedNodes.Count > 0) then\r\n                  UnSelectVirtualNode(FDownNode);\r\n\r\n                HandleSelectNode(FDownNode, True, False, (((ssCtrl in Shift) or (ssCommand in Shift)) and (msControlSelect in Interaction.MultiSelectStyle)) and Interaction.MultiSelect, FDownColumnValue);\r\n              {$IFDEF FMXMOBILE}\r\n              end;\r\n              {$ENDIF}\r\n            end;\r\n          end;\r\n\r\n          if dosel then\r\n          begin\r\n            if FFocusedNode <> FDownNode then\r\n            begin\r\n              FFocusedNode := FDownNode;\r\n              DoFocusedNodeChanged(FFocusedNode);\r\n            end;\r\n          end;\r\n\r\n          if not FCompactMode and ((Interaction.MouseEditMode = tmemSingleClick) or ((Interaction.MouseEditMode = tmemSingleClickOnSelectedNode) and (FDownNode = prev))) and not Interaction.ReadOnly then\r\n          begin\r\n            if Assigned(FDownNode) then\r\n            begin\r\n              ext := False;\r\n              DoIsNodeExtended(FDownNode, ext);\r\n              d := True;\r\n              DoIsNodeEnabled(FDownNode, d);\r\n\r\n              a := XYToNodeTitleAnchor(FDownNode, X, Y);\r\n              if a.AAnchor <> '' then\r\n                DoNodeTitleAnchorClick(FDownNode, a.AColumn, a.AAnchor);\r\n\r\n              a := XYToNodeAnchor(FDownNode, X, Y);\r\n              if d and (a.AAnchor <> '') then\r\n              begin\r\n                DoNodeAnchorClick(FDownNode, a.AColumn, a.AAnchor);\r\n              end\r\n              else if ((ext and Interaction.ExtendedSelectable and Interaction.ExtendedEditable) or not ext) and d then\r\n              begin\r\n                t := XYToNodeTextColumn(FDownNode, X, Y);\r\n                if (t <> -1) and FDownNode.TitleExpanded[t] then\r\n                begin\r\n                  HandleNodeEditing(FDownNode, t);\r\n                end;\r\n              end;\r\n            end;\r\n\r\n          end;\r\n\r\n          Invalidate;\r\n        end\r\n      end\r\n    end\r\n    else if not FCompactMode then         \r\n    begin\r\n      if FDoNodeExpand then\r\n        HandleNodeToggle(FDownNode)\r\n      else if FDoNodeExtra then\r\n        HandleNodeExtra(FDownNode)\r\n      else if FDoNodeTitleExtra then\r\n        HandleNodeTitleExtra(FDownNode)\r\n      else if Assigned(FDoNodeCheck.ANode) and not Interaction.ReadOnly then\r\n        HandleNodeToggleCheck(FDownNode, FDoNodeCheck.AColumn)\r\n      else\r\n      begin\r\n        a := XYToNodeAnchor(FDownNode, X, Y);\r\n        if a.AAnchor <> '' then\r\n          DoNodeAnchorClick(FDownNode, a.AColumn, a.AAnchor);\r\n\r\n        a := XYToNodeTitleAnchor(FDownNode, X, Y);\r\n        if a.AAnchor <> '' then\r\n          DoNodeTitleAnchorClick(FDownNode, a.AColumn, a.AAnchor);\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  FDoNodeExpand := False;\r\n  FDoNodeExtra := False;\r\n  FDoNodeTitleExtra := False;\r\n  FDoNodeAnchor.AAnchor := '';\r\n  FDoNodeAnchor.AColumn := -1;\r\n  FDoNodeTitleAnchor.AAnchor := '';\r\n  FDoNodeTitleAnchor.AColumn := -1;\r\n  FDownColumn := -1;\r\n  FDownColumnValue := -1;\r\n  FDownColumnFilter := -1;\r\n  FDownColumnExpand := -1;\r\n  FReorderMode := False;\r\n  FDragMode := False;\r\n  FDragModeStarted := False;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleMouseWheel(Shift: TShiftState; WheelDelta: Integer;\r\n  var Handled: Boolean);\r\nvar\r\n  vpos, hpos: Double;\r\n  sz: Single;\r\n  R: Integer;\r\n  nd: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  inherited;\r\n  if Handled then\r\n    Exit;\r\n\r\n  if BlockUserInput then\r\n    Exit;\r\n\r\n  vpos := GetVScrollValue;\r\n  hpos := GetHScrollValue;\r\n\r\n  if WheelDelta > 0 then\r\n    R := StartRow - 1\r\n  else\r\n    R := StartRow;\r\n\r\n  nd := GetVisibleNodeForIndex(R);\r\n\r\n  if Assigned(nd) then\r\n  begin\r\n    if WheelDelta > 0 then\r\n    begin\r\n      sz := nd.Height * Interaction.MouseWheelDelta;\r\n      Scroll(hpos, vpos - sz)\r\n    end\r\n    else\r\n    begin\r\n      sz := nd.Height * Interaction.MouseWheelDelta;\r\n      Scroll(hpos, vpos + sz);\r\n    end;\r\n  end\r\n  else\r\n    Scroll(hpos, 0);\r\n\r\n  Handled := True;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.UpdateGroupCache(ACache: TTMSFNCTreeViewCache);\r\nvar\r\n  h: Double;\r\n  I: Integer;\r\n  grp: TTMSFNCTreeViewDisplayGroup;\r\n  x, y, bw, bh: Double;\r\n  rt, rc: TRectF;\r\n  cache: TTMSFNCTreeViewCacheItem;\r\nbegin\r\n  inherited;\r\n  if (UpdateCount > 0) or (csDestroying in ComponentState) or (ColumnCount = 0) or (DisplayGroups.Count = 0) or not Assigned(ACache) then\r\n    Exit;\r\n\r\n  ACache.Clear;\r\n\r\n  if (ACache is TTMSFNCTreeViewGroupsTopCache) and (not (tglTop in GroupsAppearance.Layouts) or (GroupsAppearance.TopSize <= 0)) then\r\n    Exit;\r\n\r\n  if (ACache is TTMSFNCTreeViewGroupsBottomCache) and (not (tglBottom in GroupsAppearance.Layouts) or (GroupsAppearance.BottomSize <= 0)) then\r\n    Exit;\r\n\r\n  if ACache is TTMSFNCTreeViewGroupsTopCache then\r\n    h := GetGroupsTopSize + 1\r\n  else\r\n    h := GetGroupsBottomSize + 1;\r\n\r\n  for I := 0 to DisplayGroups.Count - 1 do\r\n  begin\r\n    grp := DisplayGroups[I];\r\n    {$IFDEF FMXWEBLIB}\r\n    y := 0;\r\n    x := Int(ColumnPositions[grp.StartColumn]);\r\n    bh := h;\r\n    bw := Int(ColumnPositions[grp.EndColumn + 1] - x);\r\n    {$ENDIF}\r\n    {$IFDEF CMNLIB}\r\n    y := 0;\r\n    x := ColumnPositions[grp.StartColumn];\r\n    bh := h;\r\n    bw := ColumnPositions[grp.EndColumn + 1] - x;\r\n    {$ENDIF}\r\n\r\n    if (bw <= 0) or (bh <= 0) then\r\n      Continue;\r\n\r\n    rt := RectF(0, 0, bw, bh);\r\n\r\n    {$IFDEF FMXWEBLIB}\r\n    rc.Top := int(rt.Top) + 0.5;\r\n    rc.Bottom := int(rt.Bottom) - 0.5;\r\n    rc.Left := int(rt.Left) + 0.5;\r\n    rc.Right := int(rt.Right) + 0.5;\r\n    {$ENDIF}\r\n    {$IFDEF CMNLIB}\r\n    rc.Top := rt.Top;\r\n    rc.Bottom := rt.Bottom;\r\n    rc.Left := rt.Left;\r\n    rc.Right := rt.Right + 1;\r\n    {$ENDIF}\r\n\r\n    OffsetRectEx(rc, x, y);\r\n    if ACache is TTMSFNCTreeViewGroupsTopCache then\r\n      cache := TTMSFNCTreeViewCacheItem.CreateGroupTop(rc, I, grp.StartColumn, grp.EndColumn)\r\n    else\r\n      cache := TTMSFNCTreeViewCacheItem.CreateGroupBottom(rc, I, grp.StartColumn, grp.EndColumn);\r\n\r\n    ACache.Add(cache);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.UpdateGroupsCache;\r\nbegin\r\n  UpdateGroupCache(FGroupsTopCache);\r\n  UpdateGroupCache(FGroupsBottomCache);\r\n  UpdateGroupsDisplay;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.UpdateGroupsDisplay;\r\nbegin\r\n  BuildDisplay(FGroupsTopCache, FGroupsTopDisplay);\r\n  BuildDisplay(FGroupsBottomCache, FGroupsBottomDisplay);\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.CanApplyVerticalOffset: Boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.CancelEditing;\r\nbegin\r\n  if FInplaceEditorActive then\r\n    CloseInplaceEditor(True);\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.CanStartDragFromMouseDown: Boolean;\r\nbegin\r\n  Result := True;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.CanStartDragFromMouseMove: Boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.ChangeDPIScale(M, D: Integer);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  inherited;\r\n  BeginUpdate;\r\n  CreateCheckBoxBitmaps;\r\n  CreateRadioButtonBitmaps;\r\n  NodesAppearance.LevelIndent := TTMSFNCUtils.MulDivSingle(NodesAppearance.LevelIndent, M, D);\r\n  NodesAppearance.ExpandWidth := TTMSFNCUtils.MulDivSingle(NodesAppearance.ExpandWidth, M, D);\r\n  NodesAppearance.ExpandHeight := TTMSFNCUtils.MulDivSingle(NodesAppearance.ExpandHeight, M, D);\r\n  ColumnsAppearance.TopSize := TTMSFNCUtils.MulDivSingle(ColumnsAppearance.TopSize, M, D);\r\n  ColumnsAppearance.BottomSize := TTMSFNCUtils.MulDivSingle(ColumnsAppearance.BottomSize, M, D);\r\n  GroupsAppearance.TopSize := TTMSFNCUtils.MulDivSingle(GroupsAppearance.TopSize, M, D);\r\n  GroupsAppearance.BottomSize := TTMSFNCUtils.MulDivSingle(GroupsAppearance.BottomSize, M, D);\r\n  ColumnsAppearance.BottomFont.Height := TTMSFNCUtils.MulDivInt(ColumnsAppearance.BottomFont.Height, M, D);\r\n  ColumnsAppearance.TopFont.Height := TTMSFNCUtils.MulDivInt(ColumnsAppearance.TopFont.Height, M, D);\r\n  GroupsAppearance.BottomFont.Height := TTMSFNCUtils.MulDivInt(GroupsAppearance.BottomFont.Height, M, D);\r\n  GroupsAppearance.TopFont.Height := TTMSFNCUtils.MulDivInt(GroupsAppearance.TopFont.Height, M, D);\r\n  NodesAppearance.ExtendedFont.Height := TTMSFNCUtils.MulDivInt(NodesAppearance.ExtendedFont.Height, M, D);\r\n  NodesAppearance.Font.Height := TTMSFNCUtils.MulDivInt(NodesAppearance.Font.Height, M, D);\r\n  NodesAppearance.FixedHeight := TTMSFNCUtils.MulDivSingle(NodesAppearance.FixedHeight, M, D);\r\n  NodesAppearance.VariableMinimumHeight := TTMSFNCUtils.MulDivSingle(NodesAppearance.VariableMinimumHeight, M, D);\r\n  for I := 0 to Columns.Count - 1 do\r\n  begin\r\n    Columns[I].Width := TTMSFNCUtils.MulDivSingle(Columns[I].Width, M, D);\r\n    Columns[I].MinimumWidth := TTMSFNCUtils.MulDivSingle(Columns[I].MinimumWidth, M, D);\r\n    Columns[I].Font.Height := TTMSFNCUtils.MulDivInt(Columns[I].Font.Height, M, D);\r\n    Columns[I].TitleFont.Height := TTMSFNCUtils.MulDivInt(Columns[I].TitleFont.Height, M, D);\r\n    Columns[I].TopFont.Height := TTMSFNCUtils.MulDivInt(Columns[I].TopFont.Height, M, D);\r\n    Columns[I].BottomFont.Height := TTMSFNCUtils.MulDivInt(Columns[I].BottomFont.Height, M, D);\r\n    Columns[I].ExpandingButtonSize := TTMSFNCUtils.MulDivSingle(Columns[I].ExpandingButtonSize, M, D);\r\n    Columns[I].Filtering.ButtonSize := TTMSFNCUtils.MulDivSingle(Columns[I].Filtering.ButtonSize, M, D);\r\n    Columns[I].Filtering.DropDownWidth := TTMSFNCUtils.MulDivInt(Columns[I].Filtering.DropDownWidth, M, D);\r\n    Columns[I].Filtering.DropDownHeight := TTMSFNCUtils.MulDivInt(Columns[I].Filtering.DropDownHeight, M, D);\r\n  end;\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.UpdateNodeCache;\r\nvar\r\n  g: TTMSFNCGraphics;\r\n  vs, stty: Single;\r\n  I: Integer;\r\n  v: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  if (UpdateCount > 0) or (csDestroying in ComponentState) or not Assigned(FNodeCache) then\r\n    Exit;\r\n\r\n  FNodeCache.Clear;\r\n\r\n  if ColumnCount > 0 then\r\n  begin\r\n    g := TTMSFNCGraphics.CreateBitmapCanvas;\r\n    g.BeginScene;\r\n    g.BitmapContainer := BitmapContainer;\r\n    g.OptimizedHTMLDrawing := OptimizedHTMLDrawing;\r\n    try\r\n      vs := GetVerticalScrollPosition;\r\n      stty := vs + StartOffset;\r\n\r\n      for I := StartRow to StopRow do\r\n      begin\r\n        v := GetVisibleNodeForIndex(I);\r\n        if Assigned(v) then\r\n        begin\r\n          if ConfigureNode(g, I, v, stty) then\r\n            Break;\r\n        end;\r\n      end;\r\n\r\n      CustomizeNodeCache(g, stty);\r\n    finally\r\n      g.EndScene;\r\n      g.Free;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.PrecalculateNodes;\r\nvar\r\n  g: TTMSFNCGraphics;\r\n  vs, stty: Single;\r\n  I: Integer;\r\n  v: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  if (UpdateCount > 0) or (csDestroying in ComponentState) or not FPrecalculateItems then\r\n    Exit;\r\n\r\n  if ColumnCount > 0 then\r\n  begin\r\n    g := TTMSFNCGraphics.CreateBitmapCanvas;\r\n    g.BeginScene;\r\n    g.BitmapContainer := BitmapContainer;\r\n    g.OptimizedHTMLDrawing := OptimizedHTMLDrawing;\r\n    try\r\n      vs := GetVerticalScrollPosition;\r\n      stty := vs + StartOffset;\r\n\r\n      for I := StartRow to RowCount - 1 do\r\n      begin\r\n        v := GetVisibleNodeForIndex(I);\r\n        if Assigned(v) then\r\n          ConfigureNode(g, I, v, stty);\r\n      end;\r\n\r\n    finally\r\n      g.EndScene;\r\n      g.Free;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.UpdateNodeDisplay;\r\nbegin\r\n  BuildDisplay(FNodeCache, FNodeDisplay);\r\nend;\r\n\r\nconstructor TTMSFNCCustomTreeView.Create(AOwner: TComponent);\r\n{$IFDEF CMNWEBLIB}\r\nvar\r\n  s: Single;\r\n{$ENDIF}\r\nbegin\r\n  inherited;\r\n  FColumnStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcNull);\r\n  FColumnStroke.OnChanged := @ColumnStrokeChanged;\r\n\r\n  FSizeColumn := -1;\r\n  FGroupsCaching := False;\r\n  FColumnsCaching := False;\r\n  FSelectedNodes := TTMSFNCTreeViewSelectedNodes.Create;\r\n  FNodeCache := TTMSFNCTreeViewNodeCache.Create;\r\n  FColumnsTopCache := TTMSFNCTreeViewColumnsTopCache.Create;\r\n  FGroupsTopCache := TTMSFNCTreeViewGroupsTopCache.Create;\r\n  FColumnsBottomCache := TTMSFNCTreeViewColumnsBottomCache.Create;\r\n  FGroupsBottomCache := TTMSFNCTreeViewGroupsBottomCache.Create;\r\n\r\n  FNodeDisplay := TTMSFNCTreeViewNodeDisplayList.Create;\r\n  FColumnsTopDisplay := TTMSFNCTreeViewColumnsTopDisplayList.Create;\r\n  FGroupsTopDisplay := TTMSFNCTreeViewGroupsTopDisplayList.Create;\r\n  FColumnsBottomDisplay := TTMSFNCTreeViewColumnsBottomDisplayList.Create;\r\n  FGroupsBottomDisplay := TTMSFNCTreeViewGroupsBottomDisplayList.Create;\r\n\r\n  FNodesAppearance := TTMSFNCTreeViewNodesAppearance.Create(Self);\r\n  FColumnsAppearance := TTMSFNCTreeViewColumnsAppearance.Create(Self);\r\n  FGroupsAppearance := TTMSFNCTreeViewGroupsAppearance.Create(Self);\r\n  FInteraction := TTMSFNCTreeViewInteraction.Create(Self);\r\n\r\n  FDragTimer := TTimer.Create(Self);\r\n  FDragTimer.Interval := 10;\r\n  FDragTimer.Enabled := False;\r\n  FDragTimer.OnTimer := DragTime;\r\n\r\n  FAnimateTimer := TTimer.Create(Self);\r\n  FAnimateTimer.Interval := 1;\r\n  FAnimateTimer.Enabled := False;\r\n  FAnimateTimer.OnTimer := Animate;\r\n\r\n  {$IFDEF FMXLIB}\r\n  FScrollBarTimer := TTimer.Create(Self);\r\n  FScrollBarTimer.Interval := 1;\r\n  FScrollBarTimer.Enabled := False;\r\n  FScrollBarTimer.OnTimer := ScrollBarChanged;\r\n\r\n  FInplaceEditorTimer := TTimer.Create(Self);\r\n  FInplaceEditorTimer.Interval := 1;\r\n  FInplaceEditorTimer.OnTimer := DoInplaceEditorTimer;\r\n  FInplaceEditorTimer.Enabled := False;\r\n  {$ENDIF}\r\n\r\n  FCopyNodes := TTMSFNCTreeViewCopyNodes.Create(nil, nil);\r\n\r\n  FFilterListBox := TListBox.Create(Self);\r\n  {$IFDEF LCLLIB}\r\n  FFilterListBox.ClickOnSelChange := False;\r\n  {$ENDIF}\r\n  FFilterListBox.Tag := -1;\r\n  FFilterListBox.OnClick := HandleFilterListClick;\r\n  {$IFDEF FMXLIB}\r\n  FFilterListBox.OnApplyStyleLookup := ApplyFilterListBoxStyleLookUp;\r\n  {$ENDIF}\r\n\r\n  FGlobalFont := TTMSFNCAppearanceGlobalFont.Create(Self);\r\n\r\n  FFilterTimer := TTimer.Create(Self);\r\n  FFilterTimer.OnTimer := HandleFilterTimer;\r\n  FFilterTimer.Interval := 100;\r\n  FFilterTimer.Enabled := False;\r\n\r\n  FFilterPopup := TTMSFNCPopup.Create(Self);\r\n  FFilterPopup.Placement := ppAbsolute;\r\n\r\n  FPrecalculateItems := False;\r\n\r\n  Width := 300;\r\n  Height := 280;\r\n\r\n  {$IFDEF FNCLIB}\r\n  FDefaultViewJSONOptions := TTMSFNCTreeViewViewJSONOptions.Create;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF CMNWEBLIB}\r\n  s := TTMSFNCUtils.GetDPIScale(Self, 96);\r\n  if (s = 1) then\r\n    FCheckStartSize := 19\r\n  else if (s = 1.25) or (s = 1.75) then\r\n    FCheckStartSize := 16\r\n  else\r\n    FCheckStartSize := 17;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF UIPACK}\r\n  if IsDesignTime then\r\n    InitSample;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.CreateDragBitmap;\r\nvar\r\n  g: TTMSFNCGraphics;\r\n  dr: TRectF;\r\n  {$IFDEF WEBLIB}\r\n  r: String;\r\n  {$ENDIF}\r\nbegin\r\n  if not Assigned(FDragNode) then\r\n    Exit;\r\n\r\n  DestroyDragBitmap;\r\n\r\n  dr := TTMSFNCTreeViewVirtualNodeOpen(FDragNode).Cache.DrawRect;\r\n  FDragBitmap := TTMSFNCImage.Create(Self);\r\n  {$IFDEF FMXLIB}\r\n  FDragBitmap.HitTest := False;\r\n  {$ENDIF}\r\n  FDragBitmap.Width := Round((dr.Right - dr.Left) / ResourceScaleFactor);\r\n  FDragBitmap.Height := Round((dr.Bottom - dr.Top) / ResourceScaleFactor);\r\n  FDragBitmap.Left := Round(dr.Left / ResourceScaleFactor);\r\n  FDragBitmap.Top := Round(dr.Top / ResourceScaleFactor);\r\n  g := TTMSFNCGraphics.CreateBitmapCanvas(Round(FDragBitmap.Width * ResourceScaleFactor), Round(FDragBitmap.Height * ResourceScaleFactor), False);\r\n  g.BitmapContainer := BitmapContainer;\r\n  g.OptimizedHTMLDrawing := OptimizedHTMLDrawing;\r\n  try\r\n    g.BeginScene;\r\n    DrawNode(g, RectF(0, 0, dr.Right - dr.Left, dr.Bottom - dr.Top), FDragNode, False, -dr.Left, -dr.Top);\r\n    g.EndScene;\r\n    {$IFDEF WEBLIB}\r\n    r := g.Bitmap.GetBase64Image;\r\n    FDragBitmap.Bitmaps.AddBitmapFromResource(r);\r\n    {$ENDIF}\r\n    {$IFNDEF WEBLIB}\r\n    FDragBitmap.Bitmaps.AddDrawBitmap(g.Bitmap);\r\n    {$ENDIF}\r\n  finally\r\n    g.Free;\r\n  end;\r\n\r\n  FDragBitmap.Parent := Self;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleAlternativeDragDrop(X, Y: Single);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleAlternativeDragOver(X, Y: Single);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleCustomKeys(AKey: Word);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleDblClick(X, Y: Single);\r\nvar\r\n  pf: TPointF;\r\n  c: TTMSFNCTreeViewVirtualNode;\r\n  col: Integer;\r\n  en, ext: Boolean;\r\n  t: Integer;\r\nbegin\r\n  inherited;\r\n  if BlockUserInput then\r\n    Exit;\r\n\r\n  FDblClicked := True;\r\n  pf := PointF(X, Y);\r\n  FDownNode := nil;\r\n  c := XYToNode(pf.X, pf.Y);\r\n  if Assigned(c) then\r\n  begin\r\n    if not XYToNodeExpand(c, pf.X, pf.Y) and not Assigned(XYToNodeCheck(c, pf.X, pf.Y).ANode) then\r\n    begin\r\n      FDownNode := c;\r\n      if Assigned(FDownNode) then\r\n      begin\r\n        en := True;\r\n        DoIsNodeEnabled(FDownNode, en);\r\n        if en then\r\n        begin\r\n          ext := False;\r\n          DoIsNodeExtended(FDownNode, ext);\r\n          if not FCompactMode and ((ext and Interaction.ExtendedSelectable and Interaction.ExtendedEditable) or not ext) and (Interaction.MouseEditMode = tmemDoubleClick) and not Interaction.ReadOnly then\r\n          begin\r\n            t := XYToNodeTextColumn(FDownNode, pf.X, pf.Y);\r\n            if t <> -1 then\r\n              HandleNodeEditing(FDownNode, t);\r\n          end\r\n          else if Interaction.ExpandCollapseOnDblClick then\r\n            HandleNodeToggle(FDownNode);\r\n        end;\r\n\r\n        DoNodeDblClick(FDownNode);\r\n      end;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    col := XYToColumnSize(pf.X, pf.Y);\r\n    if Interaction.ColumnAutoSizeOnDblClick then\r\n      AutoSizeColumn(col);\r\n  end;\r\n\r\n  IsMouseDown := False;\r\n  FMouseUp := True;\r\n  FScrolling := False;\r\n\r\n  FDoNodeExpand := False;\r\n  FDoNodeExtra := False;\r\n  FDoNodeTitleExtra := False;\r\n  FDoNodeAnchor.AAnchor := '';\r\n  FDoNodeAnchor.AColumn := -1;\r\n  FDoNodeTitleAnchor.AAnchor := '';\r\n  FDoNodeTitleAnchor.AColumn := -1;\r\n  FDownColumn := -1;\r\n  FDownColumnValue := -1;\r\n  FDownColumnFilter := -1;\r\n  FDownColumnExpand := -1;\r\n  FReorderMode := False;\r\n  FDragMode := False;\r\n  FDragModeStarted := False;\r\nend;\r\n\r\ndestructor TTMSFNCCustomTreeView.Destroy;\r\nbegin\r\n  if Assigned(FOldInplaceEditor) then\r\n    FOldInplaceEditor.Free;\r\n\r\n  {$IFDEF FNCLIB}\r\n  FDefaultViewJSONOptions.Free;\r\n  {$ENDIF}\r\n\r\n  FGlobalFont.Free;\r\n\r\n  FCopyNodes.Free;\r\n  FFilterTimer.Free;\r\n  FFilterListBox.Free;\r\n  FFilterPopup.Free;\r\n\r\n  if Assigned(FDragBitmap) then\r\n  begin\r\n    FDragBitmap.Free;\r\n    FDragBitmap := nil;\r\n  end;\r\n  {$IFDEF FMXLIB}\r\n  FScrollBarTimer.Free;\r\n  FInplaceEditorTimer.Free;\r\n  {$ENDIF}\r\n  FColumnStroke.Free;\r\n  FAnimateTimer.Free;\r\n  FNodesAppearance.Free;\r\n  FGroupsAppearance.Free;\r\n  FInteraction.Free;\r\n  FColumnsAppearance.Free;\r\n  FGroupsTopDisplay.Free;\r\n  FColumnsTopDisplay.Free;\r\n  FGroupsBottomDisplay.Free;\r\n  FColumnsBottomDisplay.Free;\r\n  FSelectedNodes.Free;\r\n  FNodeDisplay.Free;\r\n  FNodeCache.Free;\r\n  FGroupsTopCache.Free;\r\n  FColumnsTopCache.Free;\r\n  FGroupsBottomCache.Free;\r\n  FColumnsBottomCache.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DestroyDragBitmap;\r\nbegin\r\n  if Assigned(FDragBitmap) then\r\n  begin\r\n    FDragBitmap.Parent := nil;\r\n    FDragBitmap.Free;\r\n    FDragBitmap := nil;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleFilter(AColumn: Integer);\r\nvar\r\n  sl: TStringList;\r\n  pt: TPointF;\r\n  n: TTMSFNCTreeViewVirtualNode;\r\n  s: String;\r\n  topr, r, fr: TRectF;\r\n  szd: Single;\r\n  colw, colp: Single;\r\nbegin\r\n  if (AColumn >= 0) and (AColumn <= Columns.Count - 1) and Columns[AColumn].Filtering.Enabled then\r\n  begin\r\n    colw := ColumnWidths[AColumn];\r\n    if colw >= 0 then\r\n    begin\r\n      colp := ColumnPositions[AColumn];\r\n      sl := TStringList.Create;\r\n      try\r\n        sl.Duplicates := dupIgnore;\r\n        sl.Sorted := true;\r\n        sl.Add(sTMSFNCTreeViewFilterAll);\r\n\r\n        n := GetFirstRootVirtualNode;\r\n        while Assigned(n) do\r\n        begin\r\n          s := '';\r\n          DoGetNodeText(n, AColumn, tntmDrawing, s);\r\n          s := TTMSFNCUtils.HTMLStrip(s);\r\n          if s <> '' then\r\n            sl.Add(s);\r\n          n := n.GetNext;\r\n        end;\r\n\r\n        DoNeedFilterDropDownData(AColumn, sl);\r\n\r\n        FFilterListBox.Parent := Self;\r\n        {$IFDEF FMXLIB}\r\n        FFilterListBox.BeginUpdate;\r\n        {$ENDIF}\r\n        FFilterListBox.Items.Assign(sl);\r\n        FFilterListBox.ItemIndex := -1;\r\n        {$IFDEF FMXLIB}\r\n        FFilterListBox.EndUpdate;\r\n        {$ENDIF}\r\n        {$IFNDEF FMXLIB}\r\n        TTMSFNCUtils.SetFontSize(FFilterListBox.Font, 16);\r\n        {$ENDIF}\r\n\r\n        FFilterListBox.Tag := AColumn;\r\n\r\n        DoCustomizeFilterListBox(AColumn, FFilterListBox);\r\n\r\n        FFilterListBox.Parent := nil;\r\n      finally\r\n        sl.Free;\r\n      end;\r\n\r\n\r\n      FFilterPopup.PlacementControl := Self;\r\n\r\n      topr := GetColumnsTopRect;\r\n      topr.Left := topr.Left - GetHorizontalScrollPosition;\r\n      r := RectF(topr.Left + colp, topr.Top, topr.Left + colp + colw, topr.Bottom);\r\n      szd := Columns[AColumn].Filtering.ButtonSize;\r\n      fr := RectF(Round(r.Right - szd - ScalePaintValue(4)), Round(r.Top + ((r.Bottom - r.Top) - szd) / 2), Round(r.Right - ScalePaintValue(4)), Round(r.Top + ((r.Bottom - r.Top) - szd) / 2 + szd));\r\n\r\n      pt := LocalToScreenEx(PointF(fr.Left + (fr.Right - fr.Left) - szd - ScalePaintValue(2), fr.Top + ((fr.Bottom - fr.Top) + szd) / 2));\r\n      FFilterPopup.PlacementRectangle.Left := pt.X;\r\n      FFilterPopup.PlacementRectangle.Top := pt.Y;\r\n\r\n      FFilterListBox.Width := Columns[AColumn].Filtering.DropDownWidth;\r\n      FFilterListBox.Height := Columns[AColumn].Filtering.DropDownHeight;\r\n      FFilterPopup.DropDownHeight := Columns[AColumn].Filtering.DropDownHeight;\r\n      FFilterPopup.DropDownWidth := Columns[AColumn].Filtering.DropDownWidth;\r\n\r\n      FFilterPopup.PlacementRectangle.Right := pt.X + FFilterPopup.DropDownWidth;\r\n      FFilterPopup.PlacementRectangle.Bottom := pt.Y + FFilterPopup.DropDownHeight;\r\n\r\n      FFilterPopup.ContentControl := FFilterListBox;\r\n      FFilterPopup.FocusedControl := FFilterListBox;\r\n\r\n      FFilterPopup.Popup;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleFilterListClick(Sender: TObject);\r\nbegin\r\n  FFilterTimer.Enabled := True;\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomTreeView.ApplyFilterListBoxStyleLookUp(Sender: TObject);\r\nbegin\r\n  (Sender as TListBox).ViewportPosition := PointF(0, 0);\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleFilterTimer(Sender: TObject);\r\nvar\r\n  fd: TTMSFNCTreeViewFilterData;\r\n  cnd: string;\r\n  i, filtercol: integer;\r\nbegin\r\n  if Assigned(FFilterListBox) then\r\n  begin\r\n    filtercol := FFilterListBox.Tag;\r\n    if (filtercol >= 0) and (filtercol <= Columns.Count - 1) then\r\n    begin\r\n      if Columns[filtercol].Filtering.MultiColumn then\r\n      begin\r\n        for i := Filter.Count - 1 downto 0 do\r\n        begin\r\n          if Filter.Items[i].Column = filtercol then\r\n            Filter.Delete(i);\r\n        end;\r\n      end\r\n      else\r\n        Filter.Clear;\r\n\r\n      fd := Filter.Add;\r\n      fd.Column := filtercol;\r\n\r\n      cnd := '';\r\n      if (FFilterListBox.ItemIndex >= 0) and (FFilterListBox.ItemIndex <= FFilterListBox.Items.Count - 1) then\r\n        cnd := FFilterListbox.Items[FFilterListbox.ItemIndex];\r\n\r\n      if pos(' ',cnd) > 0 then\r\n        cnd := '\"' + cnd + '\"';\r\n\r\n      FFilterPopup.IsOpen := False;\r\n\r\n      if cnd = sTMSFNCTreeViewFilterAll then\r\n      begin\r\n        RemoveFilters;\r\n      end\r\n      else\r\n      begin\r\n        DoFilterSelect(fd.Column, cnd);\r\n        fd.Condition := cnd;\r\n        ApplyFilter;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  FFilterTimer.Enabled := False;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleDialogKey(var Key: Word; Shift: TShiftState);\r\nvar\r\n  n: TTMSFNCTreeViewVirtualNode;\r\n  c: Integer;\r\n  ext: Boolean;\r\nbegin\r\n  if FInplaceEditorClosed or BlockUserInput then\r\n  begin\r\n    inherited;\r\n    Exit;\r\n  end;\r\n\r\n  if Assigned(FInplaceEditor) and FInplaceEditorActive and ((Key = KEY_ESCAPE) or (Key = KEY_TAB) or (Key = KEY_F2)\r\n    or ((FInplaceEditor is TEdit) and (Key = KEY_RETURN))) or ((FInplaceEditor is TMemo) and (Key = KEY_RETURN) and not (ssCtrl in Shift)) then\r\n  begin\r\n    FCloseWithDialogKey := True;\r\n    CloseInplaceEditor(Key = KEY_ESCAPE);\r\n    if Key = KEY_TAB then\r\n    begin\r\n      if Assigned(FFocusedNode) then\r\n      begin\r\n        if ssShift in Shift then\r\n        begin\r\n          ext := False;\r\n          DoIsNodeExtended(FFocusedNode, ext);\r\n          if (FUpdateNodeColumn > GetFirstEditableColumn) and not ext then\r\n          begin\r\n            HandleNodeEditing(FFocusedNode, GetPreviousEditableColumn(FUpdateNodeColumn));\r\n            Invalidate;\r\n            Key := 0;\r\n          end\r\n          else\r\n          begin\r\n            n := GetPreviousFocusableNode(FFocusedNode);\r\n            if Assigned(n)then\r\n            begin\r\n              ext := False;\r\n              DoIsNodeExtended(n, ext);\r\n              if (ext and Interaction.ExtendedEditable) or not ext then\r\n              begin\r\n                if not ext then\r\n                  c := GetLastEditableColumn\r\n                else\r\n                  c := 0;\r\n\r\n                if FFocusedNode <> n then\r\n                begin\r\n                  FFocusedNode := n;\r\n                  DoFocusedNodeChanged(FFocusedNode);\r\n                end;\r\n                SelectVirtualNode(n);\r\n                ScrollToVirtualNode(n, True, tvnspTop);\r\n                HandleNodeEditing(n, c);\r\n                Invalidate;\r\n                Key := 0;\r\n              end;\r\n            end;\r\n          end;\r\n        end\r\n        else\r\n        begin\r\n          ext := False;\r\n          DoIsNodeExtended(FFocusedNode, ext);\r\n          if (FUpdateNodeColumn < GetLastEditableColumn) and not ext then\r\n          begin\r\n            EditVirtualNode(FFocusedNode, GetNextEditableColumn(FUpdateNodeColumn));\r\n            Key := 0;\r\n          end\r\n          else\r\n          begin\r\n            n := GetNextFocusableNode(FFocusedNode);\r\n            if Assigned(n) then\r\n            begin\r\n              ext := False;\r\n              DoIsNodeExtended(n, ext);\r\n              if (ext and Interaction.ExtendedEditable) or not ext then\r\n              begin\r\n                c := GetFirstEditableColumn;\r\n                if FFocusedNode <> n then\r\n                begin\r\n                  FFocusedNode := n;\r\n                  DoFocusedNodeChanged(FFocusedNode);\r\n                end;\r\n                SelectVirtualNode(n);\r\n                ScrollToVirtualNode(n, True, tvnspBottom);\r\n                HandleNodeEditing(n, c);\r\n                Invalidate;\r\n                Key := 0;\r\n              end;\r\n            end;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleDragDrop(const Source: TObject;\r\n  const Point: TPointF);\r\nvar\r\n  dn, dragn: TTMSFNCTreeViewVirtualNode;\r\n  b: Boolean;\r\nbegin\r\n  inherited;\r\n\r\n  if BlockUserInput or Assigned(OnDragDrop) then\r\n    Exit;\r\n\r\n  if Assigned(OnCustomDragDrop) then\r\n    OnCustomDragDrop(Self, Source, Point)\r\n  else\r\n  begin\r\n    if FAccepted and Assigned(Source) and (Source is TTMSFNCCustomTreeView) and ((Source as TTMSFNCCustomTreeView).Interaction.DragDropMode <> tdmNone) then\r\n    begin\r\n      dragn := (Source as TTMSFNCCustomTreeView).DragNode;\r\n      if Assigned(dragn) then\r\n      begin\r\n        dn := XYToNode(Point.X, Point.Y);\r\n        if (dn <> dragn) and Assigned(dragn.Node) and PtInRectEx(GetNodesRect, Point) then\r\n        begin\r\n          b := True;\r\n          DoBeforeDropNode(dragn, dn, b);\r\n          if b then\r\n          begin\r\n            BeginUpdate;\r\n            (Source as TTMSFNCCustomTreeView).BeginUpdate;\r\n            if Assigned(dn) and Assigned(dn.Node) then\r\n            begin\r\n              case (Source as TTMSFNCCustomTreeView).Interaction.DragDropMode of\r\n                tdmMove: dragn.Node.MoveTo(dn.Node, dn.Node.Index);\r\n                tdmCopy: dragn.Node.CopyTo(dn.Node, dn.Node.Index);\r\n              end;\r\n            end\r\n            else\r\n            begin\r\n              Nodes.Add.Assign(dragn.Node);\r\n              case (Source as TTMSFNCCustomTreeView).Interaction.DragDropMode of\r\n                tdmMove: dragn.Node.TreeView.RemoveNode(dragn.Node);\r\n              end;\r\n              dragn := Nodes[Nodes.Count - 1].VirtualNode;\r\n            end;\r\n            (Source as TTMSFNCCustomTreeView).DragNode := nil;\r\n            (Source as TTMSFNCCustomTreeView).EndUpdate;\r\n            EndUpdate;\r\n\r\n            DoAfterDropNode(dragn, dn);\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleDragOver(const Source: TObject;\r\n  const Point: TPointF; var Accept: Boolean);\r\nbegin\r\n  inherited;\r\n  if BlockUserInput or Assigned(OnDragOver) then\r\n    Exit;\r\n\r\n  if not AlternativeDragDrop then\r\n  begin\r\n    FDragMode := False;\r\n    FDragModeStarted := False;\r\n    IsMouseDown := False;\r\n  end;\r\n\r\n  if Assigned(OnCustomDragOver) then\r\n    OnCustomDragOver(Self, Source, Point, Accept)\r\n  else\r\n  begin\r\n    Accept := (Interaction.DragDropMode <> tdmNone) and (Source is TTMSFNCCustomTreeView) and Assigned((Source as TTMSFNCCustomTreeView).DragNode);\r\n    Accept := Accept and PtInRectEx(GetNodesRect, Point);\r\n  end;\r\n\r\n  FAccepted := Accept;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleDragStart(X, Y: Single);\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleExpand(AColumn: Integer);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DrawBorders(AGraphics: TTMSFNCGraphics);\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DrawDisplay(AGraphics: TTMSFNCGraphics; ADisplay: TTMSFNCTreeViewDisplayList);\r\nvar\r\n  I: Integer;\r\n  cache: TTMSFNCTreeViewCacheItem;\r\n  st: TTMSFNCGraphicsSaveState;\r\n  r: TRectF;\r\nbegin\r\n  if ADisplay.Count = 0 then\r\n    Exit;\r\n\r\n  st := AGraphics.SaveState;\r\n  if (ADisplay is TTMSFNCTreeViewNodeDisplayList) then\r\n  begin\r\n    r := GetContentClipRect;\r\n    r.Right := r.Right + 1;\r\n  end\r\n  else if ADisplay is TTMSFNCTreeViewGroupsTopDisplayList then\r\n  begin\r\n    r := GetGroupsTopRect;\r\n    r.Bottom := r.Bottom + 1;\r\n  end\r\n  else if ADisplay is TTMSFNCTreeViewGroupsBottomDisplayList then\r\n  begin\r\n    r := GetGroupsBottomRect;\r\n    r.Top := r.Top - 1;\r\n  end\r\n  else if ADisplay is TTMSFNCTreeViewColumnsTopDisplayList then\r\n  begin\r\n    r := GetColumnsTopRect;\r\n    r.Bottom := r.Bottom + 1;\r\n  end\r\n  else if ADisplay is TTMSFNCTreeViewColumnsBottomDisplayList then\r\n  begin\r\n    r := GetColumnsBottomRect;\r\n    r.Top := r.Top - 1;\r\n  end;\r\n\r\n  AGraphics.ClipRect(r);\r\n\r\n  for I := 0 to ADisplay.Count - 1 do\r\n  begin\r\n    cache := ADisplay[I];\r\n    if ADisplay is TTMSFNCTreeViewNodeDisplayList then\r\n    begin\r\n      if Assigned(cache.Node) then\r\n        DrawNode(AGraphics, cache.DrawRect, cache.Node)\r\n    end\r\n    else if ADisplay is TTMSFNCTreeViewColumnsDisplayList then\r\n      DrawColumn(AGraphics, cache.DrawRect, cache.Column, cache.Kind)\r\n    else if ADisplay is TTMSFNCTreeViewGroupsDisplayList then\r\n      DrawGroup(AGraphics, cache.DrawRect, cache.Group, cache.StartColumn, cache.EndColumn, cache.Kind)\r\n  end;\r\n\r\n  AGraphics.RestoreState(st);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DrawEmptySpaces(AGraphics: TTMSFNCGraphics);\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DrawGroup(AGraphics: TTMSFNCGraphics; ARect: TRectF; AGroup: Integer; AStartColumn, AEndColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind);\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DrawGroups(AGraphics: TTMSFNCGraphics);\r\nbegin\r\n  DrawDisplay(AGraphics, FGroupsTopDisplay);\r\n  DrawDisplay(AGraphics, FGroupsBottomDisplay);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DrawNode(AGraphics: TTMSFNCGraphics; ARect: TRectF; ANode: TTMSFNCTreeViewVirtualNode; ACaching: Boolean = False; AOffsetX: Single = 0; AOffsetY: Single = 0);\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DrawNodeColumns(AGraphics: TTMSFNCGraphics);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DrawNodes(AGraphics: TTMSFNCGraphics);\r\nbegin\r\n  DrawDisplay(AGraphics, FNodeDisplay);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DrawColumn(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind);\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.DrawColumns(AGraphics: TTMSFNCGraphics);\r\nbegin\r\n  DrawDisplay(AGraphics, FColumnsTopDisplay);\r\n  DrawDisplay(AGraphics, FColumnsBottomDisplay);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.EditNode(ANode: TTMSFNCTreeViewNode; AColumn: Integer);\r\nbegin\r\n  if Assigned(ANode) then\r\n    EditVirtualNode(TTMSFNCTreeViewNodeOpen(ANode).VirtualNode, AColumn);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.EditVirtualNode(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer);\r\nbegin\r\n  HandleNodeEditing(ANode, AColumn);\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.ExportNotification(\r\n  AState: TTMSFNCTreeViewExportState; ARow: Integer);\r\nbegin\r\n\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetColumnBottomLeftEmptyRect: TRectF;\r\nvar\r\n  ptr, nr: TRectF;\r\nbegin\r\n  ptr := GetColumnsBottomRect;\r\n  nr := LocalRect;\r\n  Result.Top := ptr.Top;\r\n  Result.Left := nr.Left;\r\n  Result.Right := ptr.Left;\r\n  Result.Bottom := ptr.Bottom;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetColumnBottomRightEmptyRect: TRectF;\r\nvar\r\n  ptr, nr: TRectF;\r\nbegin\r\n  ptr := GetColumnsBottomRect;\r\n  nr := LocalRect;\r\n  Result.Top := ptr.Top;\r\n  Result.Left := ptr.Right;\r\n  Result.Right := nr.Right - 1;\r\n  Result.Bottom := ptr.Bottom;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetCacheHeight: Integer;\r\nbegin\r\n  Result := CACHEHEIGHT;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetCacheWidth: Integer;\r\nbegin\r\n  Result := CACHEWIDTH\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetCalculationRect: TRectF;\r\nbegin\r\n  Result := inherited GetCalculationRect;\r\n  Result.Top := Result.Top + GetColumnsTopSize + GetGroupsTopSize;\r\n  Result.Bottom := Result.Bottom - GetColumnsBottomSize - GetGroupsBottomSize;\r\n  Result.Right := Result.Left + Max(0, Result.Right - Result.Left);\r\n  Result.Bottom := Result.Top + Max(0, Result.Bottom - Result.Top);\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetContentCliprect: TRectF;\r\nbegin\r\n  Result := inherited GetContentClipRect;\r\n  Result.Bottom := Result.Top + Min(GetTotalRowHeight, Result.Bottom - Result.Top);\r\n  Result.Right := Result.Left + Min(GetTotalColumnWidth, Result.Right - Result.Left);\r\n  Result.Left := Result.Left + 1;\r\n  Result.Right := Result.Right - 1;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetContentRect: TRectF;\r\nbegin\r\n  Result := inherited GetContentRect;\r\n  Result.Top := Result.Top + GetColumnsTopSize + GetGroupsTopSize;\r\n  Result.Bottom := Result.Bottom - GetColumnsBottomSize - GetGroupsBottomSize;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetDefaultRowHeight(\r\n  ANode: TTMSFNCTreeViewVirtualNode): Single;\r\nvar\r\n  loff, toff, roff, boff: Single;\r\nbegin\r\n  Result := inherited GetDefaultRowHeight(ANode);\r\n\r\n  loff := 0;\r\n  toff := 0;\r\n  roff := 0;\r\n  boff := 0;\r\n  GetNodeOffset(ANode, loff, toff, roff, boff);\r\n\r\n  Result := Result + toff + boff;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetDocURL: string;\r\nbegin\r\n  Result := TTMSFNCTreeViewDocURL;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetDragObjectScreenShot: TTMSFNCBitmap;\r\nbegin\r\n  CreateDragBitmap;\r\n  Result := TTMSFNCBitmap.Create;\r\n  if Assigned(FDragBitmap) then\r\n  begin\r\n    Result.Assign(FDragBitmap.GetBitmap);\r\n    FDragBitmap.Free;\r\n    FDragBitmap := nil;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetGroupBottomLeftEmptyRect: TRectF;\r\nvar\r\n  ptr, nr: TRectF;\r\nbegin\r\n  ptr := GetGroupsBottomRect;\r\n  nr := LocalRect;\r\n  Result.Top := ptr.Top;\r\n  Result.Left := nr.Left;\r\n  Result.Right := ptr.Left;\r\n  Result.Bottom := nr.Bottom;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetGroupBottomRightEmptyRect: TRectF;\r\nvar\r\n  ptr, nr: TRectF;\r\nbegin\r\n  ptr := GetGroupsBottomRect;\r\n  nr := LocalRect;\r\n  Result.Top := ptr.Top;\r\n  Result.Left := ptr.Right;\r\n  Result.Right := nr.Right;\r\n  Result.Bottom := ptr.Bottom;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetGroupsBottomRect: TRectF;\r\nbegin\r\n  Result := GetColumnsBottomRect;\r\n  Result.Top := Result.Bottom;\r\n  Result.Bottom := Result.Top + GetGroupsBottomSize\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetGroupsBottomSize: Double;\r\nbegin\r\n  Result := 0;\r\n  if (tglBottom in GroupsAppearance.Layouts) and (DisplayGroups.Count > 0) and (ColumnCount > 0) then\r\n    Result := GroupsAppearance.BottomSize;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetGroupsTopRect: TRectF;\r\nbegin\r\n  Result := GetColumnsTopRect;\r\n  Result.Bottom := Result.Top;\r\n  Result.Top := Result.Top - GetGroupsTopSize;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetGroupsTopSize: Double;\r\nbegin\r\n  Result := 0;\r\n  if (tglTop in GroupsAppearance.Layouts) and (DisplayGroups.Count > 0) and (ColumnCount > 0) then\r\n    Result := GroupsAppearance.TopSize;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetGroupText(AGroup: Integer): String;\r\nbegin\r\n  Result := TranslateTextEx(sTMSFNCTreeViewGroup) + ' ' + inttostr(AGroup);\r\n  if (AGroup >= 0) and (AGroup <= Groups.Count - 1) then\r\n     Result := TTMSFNCTreeViewGroupOpen(Groups[AGroup]).GetText;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetGroupTopLeftEmptyRect: TRectF;\r\nvar\r\n  ptr, nr: TRectF;\r\nbegin\r\n  ptr := GetGroupsTopRect;\r\n  nr := LocalRect;\r\n  Result.Top := ptr.Top;\r\n  Result.Left := nr.Left;\r\n  Result.Right := ptr.Left;\r\n  Result.Bottom := ptr.Bottom;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetGroupTopRightEmptyRect: TRectF;\r\nvar\r\n  ptr, nr: TRectF;\r\nbegin\r\n  ptr := GetGroupsTopRect;\r\n  nr := LocalRect;\r\n  Result.Top := ptr.Top;\r\n  Result.Left := ptr.Right;\r\n  Result.Right := nr.Right;\r\n  Result.Bottom := ptr.Bottom;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetHTMLTemplate(AColumnIndex: Integer): string;\r\nbegin\r\n  if (AColumnIndex >= 0) and (AColumnIndex < Columns.Count) then\r\n    Result := Columns[AColumnIndex].HTMLTemplate\r\n  else\r\n    Result := '';\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetInplaceEditor: TTMSFNCTreeViewInplaceEditor;\r\nbegin\r\n  Result := FInplaceEditor;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetInplaceEditorRect(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer): TRectF;\r\nvar\r\n  cr, r: TRectF;\r\nbegin\r\n  Result := RectF(0, 0, 0, 0);\r\n  if not Assigned(ANode) then\r\n    Exit;\r\n\r\n  if (AColumn >= 0) and (AColumn <= Length(ANode.TextRects) - 1) then\r\n  begin\r\n    r := ANode.TextRects[AColumn];\r\n    {$IFDEF CMNLIB}\r\n    InflateRectEx(r, ScalePaintValue(-2), ScalePaintValue(-2));\r\n    {$ENDIF}\r\n    cr := GetContentClipRect;\r\n    r.Top := Max(r.Top, cr.Top);\r\n    r.Bottom := Min(r.Bottom, cr.Bottom);\r\n    r.Left := Max(r.Left, cr.Left);\r\n    r.Right := Min(r.Right, cr.Right);\r\n    Result := RectF(Floor(r.Left), Floor(r.Top), Round(r.Right), Round(r.Bottom));\r\n\r\n    if Assigned(OnGetInplaceEditorRect) then\r\n      OnGetInplaceEditorRect(Self, ANode, AColumn, FInplaceEditor, Result);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetColumnsBottomRect: TRectF;\r\nvar\r\n  nr: TRectF;\r\nbegin\r\n  nr := inherited GetContentRect;\r\n  Result.Left := nr.Left;\r\n  Result.Top := nr.Bottom - GetGroupsBottomSize - GetColumnsBottomSize;\r\n  Result.Right := nr.Right + GetColumnsExtraSize;\r\n  Result.Bottom := nr.Bottom - GetGroupsBottomSize;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetColumnsBottomSize: Double;\r\nbegin\r\n  Result := 0;\r\n  if (tclBottom in ColumnsAppearance.Layouts) and (ColumnCount > 0) then\r\n    Result := ColumnsAppearance.BottomSize;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetColumnsExtraSize: Double;\r\nbegin\r\n  Result := 0;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetColumnTopLeftEmptyRect: TRectF;\r\nvar\r\n  ptr, nr: TRectF;\r\nbegin\r\n  ptr := GetColumnsTopRect;\r\n  nr := LocalRect;\r\n  Result.Top := ptr.Top;\r\n  Result.Left := nr.Left;\r\n  Result.Right := ptr.Left;\r\n  Result.Bottom := ptr.Bottom;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetColumnTopRightEmptyRect: TRectF;\r\nvar\r\n  ptr, nr: TRectF;\r\nbegin\r\n  ptr := GetColumnsTopRect;\r\n  nr := LocalRect;\r\n  Result.Top := ptr.Top;\r\n  Result.Left := ptr.Right;\r\n  Result.Right := nr.Right - 1;\r\n  Result.Bottom := ptr.Bottom;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetVersion: string;\r\nbegin\r\n  Result := GetVersionNumber(MAJ_VER, MIN_VER, REL_VER, BLD_VER);\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetVisibleNodeCount: Integer;\r\nvar\r\n  f, l: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := 0;\r\n  f := GetFirstVisibleVirtualNode;\r\n  l := GetLastVisibleVirtualNode;\r\n  if Assigned(f) and Assigned(l) then\r\n    Result := l.Row - f.Row;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetColumnsTopRect: TRectF;\r\nvar\r\n  nr: TRectF;\r\nbegin\r\n  nr := inherited GetContentRect;\r\n  Result.Left := nr.Left;\r\n  Result.Top := nr.Top + GetGroupsTopSize;\r\n  Result.Right := nr.Right + GetColumnsExtraSize;\r\n  Result.Bottom := nr.Top + GetGroupsTopSize + GetColumnsTopSize;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetColumnsTopSize: Double;\r\nbegin\r\n  Result := 0;\r\n  if (tclTop in ColumnsAppearance.Layouts) and (ColumnCount > 0) then\r\n    Result := ColumnsAppearance.TopSize;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetColumnText(AColumn: Integer): String;\r\nbegin\r\n  Result := TranslateTextEx(sTMSFNCTreeViewColumn) + ' ' + inttostr(AColumn);\r\n  if (AColumn >= 0) and (AColumn <= ColumnCount - 1) then\r\n  begin\r\n    if (AColumn >= 0) and (AColumn <= Columns.Count - 1) then\r\n    begin\r\n      Result := Columns[AColumn].Text;\r\n      if Result = '' then\r\n        Result := Columns[AColumn].Name;\r\n    end;\r\n\r\n    if Result = '' then\r\n      Result := TranslateTextEx(sTMSFNCTreeViewColumn) + ' ' + inttostr(AColumn);\r\n  end;\r\n\r\n  if Assigned(Adapter) then\r\n    Result := Adapter.GetColumnDisplayName(AColumn);\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetPreviousFocusableNode(ANode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewVirtualNode;\r\nvar\r\n  en: Boolean;\r\nbegin\r\n  if Assigned(ANode) then\r\n    Result := GetPreviousVirtualNode(ANode)\r\n  else\r\n    Result := GetLastVirtualNode;\r\n\r\n  en := IsVirtualNodeSelectable(Result);\r\n\r\n  while Assigned(Result) and not en do\r\n  begin\r\n    Result := GetPreviousVirtualNode(Result);\r\n    en := IsVirtualNodeSelectable(Result);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.GetNodeMargins(var ALeft, ATop, ARight, ABottom: Single);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.GetNodeOffset(ANode: TTMSFNCTreeViewVirtualNode;\r\n  var ALeft, ATop, ARight, ABottom: Single);\r\nbegin\r\n\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetNodesRect: TRectF;\r\nbegin\r\n  Result := GetContentRect;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetNodesSpacing(ANode: TTMSFNCTreeViewVirtualNode): Single;\r\nbegin\r\n  Result := NodesAppearance.Spacing;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetNodesFromClipboard: TTMSFNCTreeViewCopyNodes;\r\nvar\r\n  s: String;\r\n  a: TStringList;\r\n  ANode, ANextNode: TTMSFNCTreeViewNode;\r\n  ALevel: Integer;\r\n  I, off: Integer;\r\n  CurrStr: String;\r\n  tempt: TTMSFNCCustomTreeView;\r\nbegin\r\n  if TTMSFNCClipBoard.HasFormat(TTMSFNCClipBoardFormat.cfText) then\r\n  begin\r\n    s := TTMSFNCClipBoard.GetText;\r\n    if (Pos(CLP_FMT, s) > 0) then\r\n    begin\r\n      tempt := TTMSFNCCustomTreeView.Create(nil);\r\n      a := TStringList.Create;\r\n      try\r\n        s := StringReplace(s, CLP_FMT, '', [rfReplaceAll]);\r\n        a.Text := s;\r\n        try\r\n          ANode := nil;\r\n          off := 0;\r\n          for I := 0 to a.Count - 1 do\r\n          begin\r\n            ALevel := -1;\r\n            CurrStr := GetBufStart(a[i], ALevel);\r\n\r\n            if ANode = nil then\r\n            begin\r\n              ANode := tempt.AddNode;\r\n              off := ALevel;\r\n            end\r\n            else if Assigned(ANode.VirtualNode) and (ANode.VirtualNode.Level = ALevel - off) then\r\n              ANode := tempt.AddNode(ANode.GetParent)\r\n            else if Assigned(ANode.VirtualNode) and (ANode.VirtualNode.Level = ALevel - 1 - off) then\r\n              ANode := tempt.AddNode(ANode)\r\n            else if Assigned(ANode.VirtualNode) and (ANode.VirtualNode.Level > ALevel - off) then\r\n            begin\r\n              ANextNode := ANode.GetParent;\r\n              while Assigned(ANextNode) and Assigned(ANextNode.VirtualNode) and (ANextNode.VirtualNode.Level > ALevel - off) do\r\n                ANextNode := ANextNode.GetParent;\r\n              ANode := tempt.AddNode(ANextNode.GetParent);\r\n            end;\r\n\r\n            if Assigned(ANode) then\r\n              ANode.LoadFromString(CurrStr);\r\n          end;\r\n        finally\r\n        end;\r\n      finally\r\n        FCopyNodes.Assign(tempt.Nodes);\r\n        a.Free;\r\n        tempt.Free;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  Result := FCopyNodes;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetNextFocusableNode(\r\n  ANode: TTMSFNCTreeViewVirtualNode): TTMSFNCTreeViewVirtualNode;\r\nvar\r\n  en: Boolean;\r\nbegin\r\n  if Assigned(ANode) then\r\n    Result := GetNextVirtualNode(ANode)\r\n  else\r\n    Result := GetFirstRootVirtualNode;\r\n\r\n  en := IsVirtualNodeSelectable(Result);\r\n\r\n  while Assigned(Result) and not en do\r\n  begin\r\n    Result := GetNextVirtualNode(Result);\r\n    en := IsVirtualNodeSelectable(Result);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetReloadOffset: Single;\r\nbegin\r\n  Result := 0;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.GetRowHeight(ARow: Integer): Double;\r\nvar\r\n  v: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  v := GetVisibleNodeForIndex(ARow);\r\n  Result := GetDefaultRowHeight(v);\r\n  if Assigned(v) and (v.Calculated) then\r\n    Result := v.Height;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HorizontalScrollPositionChanged;\r\nbegin\r\n  BlockScrollingUpdate := True;\r\n  UpdateDisplay;\r\n  BlockScrollingUpdate := False;\r\n  DoHScroll(GetHScrollValue);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.Clear;\r\nbegin\r\n  BeginUpdate;\r\n  ClearNodes;\r\n  ClearColumns;\r\n  ClearSorting;\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.ClearSorting;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  BeginUpdate;\r\n  FSortColumn := -1;\r\n  for I := 0 to Columns.Count - 1 do\r\n  begin\r\n    TTMSFNCTreeViewColumnOpen(Columns[I]).SortKind := nskNone;\r\n    TTMSFNCTreeViewColumnOpen(Columns[I]).SortIndex := -1;\r\n  end;\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.Sort(AColumn: Integer = 0; ARecurse: Boolean = False; ACaseSensitive: Boolean = True; ASortingMode: TTMSFNCTreeViewNodesSortMode = nsmAscending; AClearNodeList: Boolean = True);\r\nbegin\r\n  Nodes.Sort(AColumn, ARecurse, ACaseSensitive, ASortingMode, AClearNodeList);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.InitializeColumnSorting(AColumn: Integer; ASortMode: TTMSFNCTreeViewNodesSortMode);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  UpdateCount := UpdateCount + 1;\r\n  FSortColumn := AColumn;\r\n  for I := 0 to Columns.Count - 1 do\r\n  begin\r\n    case ASortMode of\r\n      nsmAscending: Columns[I].SortKind := nskAscending;\r\n      nsmDescending: Columns[I].SortKind := nskDescending;\r\n    end;\r\n  end;\r\n  UpdateCount := UpdateCount - 1;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.InitSample;\r\nvar\r\n  pManagers, pSpecialists, pAssistants, pSub: TTMSFNCTreeViewNode;\r\n  c: TTMSFNCTreeViewColumn;\r\n  I: Integer;\r\n  n: string;\r\nbegin\r\n  BeginUpdate;\r\n\r\n  Width := ScalePaintValue(350);\r\n\r\n  ClearNodeList;\r\n  Columns.Clear;\r\n  Nodes.Clear;\r\n\r\n  ResetToDefaultStyle;\r\n\r\n  NodesAppearance.ExpandWidth := ScalePaintValue(18);\r\n  NodesAppearance.ExpandHeight := ScalePaintValue(18);\r\n\r\n//  {$IFNDEF WEBLIB}\r\n//  NodesAppearance.CollapseNodeIcon.LoadFromResource('TTMSFNCTREEVIEWCOLLAPSENEWSVG');\r\n//  NodesAppearance.ExpandNodeIcon.LoadFromResource('TTMSFNCTREEVIEWEXPANDNEWSVG');\r\n//  NodesAppearance.CollapseNodeIconLarge.LoadFromResource('TTMSFNCTREEVIEWCOLLAPSENEWSVG');\r\n//  NodesAppearance.ExpandNodeIconLarge.LoadFromResource('TTMSFNCTREEVIEWEXPANDNEWSVG');\r\n//  {$ENDIF}\r\n\r\n  ColumnsAppearance.TopSize := ScalePaintValue(36);\r\n  ColumnsAppearance.TopStroke.Kind := gskNone;\r\n  NodesAppearance.SelectedStroke.Width := Trunc(ScalePaintValue(2.0));\r\n\r\n  c := Columns.Add;\r\n  c.Text := 'Name';\r\n  c.HorizontalTextAlign := gtaLeading;\r\n\r\n  c := Columns.Add;\r\n  c.Text := 'Unit';\r\n  c.HorizontalTextAlign := gtaTrailing;\r\n  c.Width := ScalePaintValue(90);\r\n\r\n  c := Columns.Add;\r\n  c.Text := 'Status';\r\n  c.HorizontalTextAlign := gtaCenter;\r\n  c.Width := ScalePaintValue(80);\r\n\r\n  pManagers := AddNode;\r\n  pManagers.Text[0] := 'Managers';\r\n\r\n  pSpecialists := AddNode;\r\n  pSpecialists.Text[0] := 'Specialists';\r\n\r\n  pAssistants := AddNode;\r\n  pAssistants.Text[0] := 'Assistants';\r\n\r\n  for I := 0 to 7 do\r\n  begin\r\n    if I < 3 then\r\n      pSub := AddNode(pManagers)\r\n    else if I < 5  then\r\n      pSub := AddNode(pSpecialists)\r\n    else\r\n      pSub := AddNode(pAssistants);\r\n\r\n    case Random(125) mod 7 of\r\n      0: n := 'Liam';\r\n      1: n := 'Fatma';\r\n      2: n := 'Yusuf';\r\n      3: n := 'Marie';\r\n      4: n := 'Isabella';\r\n      5: n := 'Omar';\r\n      else\r\n        n := 'Arthur';\r\n    end;\r\n\r\n    case Random(125) mod 7 of\r\n      0: n := n + ' Andersson';\r\n      1: n := n + ' Wang';\r\n      2: n := n + ' Smith';\r\n      3: n := n + ' Peeters';\r\n      4: n := n + ' Gonzales';\r\n      5: n := n + ' Moyo';\r\n      else\r\n        n := n + ' Ali';\r\n    end;\r\n\r\n    pSub.Text[0] := n;\r\n\r\n    case Random(120) mod 7 of\r\n      1: pSub.Text[1] := 'Research';\r\n      2: pSub.Text[1] := 'Finance';\r\n      3: pSub.Text[1] := 'Manufactering';\r\n      4: pSub.Text[1] := 'Sales';\r\n      5: pSub.Text[1] := 'HR';\r\n      6: pSub.Text[1] := 'Marketing';\r\n      else\r\n        pSub.Text[1] := 'Customers';\r\n    end;\r\n\r\n    case Random(120) mod 5 of\r\n      0: pSub.Text[2] := 'Flight';\r\n      1: pSub.Text[2] := 'On Leave';\r\n      2: pSub.Text[2] := 'Abroad';\r\n      else\r\n        pSub.Text[2] := 'Office';\r\n    end;\r\n  end;\r\n\r\n  pManagers.Expanded := True;\r\n  pSpecialists.Expanded := True;\r\n\r\n  GlobalFont.Name := 'Segoe UI';\r\n\r\n  ColumnsAppearance.StretchAll := False;\r\n  ColumnsAppearance.Stretch := True;\r\n  ColumnsAppearance.StretchColumn := 0;\r\n\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.InternalSelectVirtualNode(\r\n  ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleKeyDown(var Key: Word; Shift: TShiftState);\r\nvar\r\n  sel, prevsel, fsel: TTMSFNCTreeViewVirtualNode;\r\n  sa, spc, donext, doprev: Boolean;\r\n  r: Integer;\r\n  I: Integer;\r\n  b: Boolean;\r\n  a: Boolean;\r\n  n: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  inherited;\r\n  if FInplaceEditorClosed or BlockUserInput then\r\n    Exit;\r\n\r\n  if Key in [KEY_ESCAPE,KEY_INSERT,KEY_DELETE,KEY_UP,KEY_DOWN,KEY_LEFT,KEY_RIGHT,KEY_HOME,KEY_END,\r\n    KEY_PRIOR,KEY_NEXT,KEY_TAB,KEY_MULTIPLY,KEY_SUBTRACT,KEY_ADD,KEY_DIVIDE] then\r\n      FLookupString := '';\r\n\r\n  if (ssCtrl in Shift) or (ssCommand in Shift) then\r\n  begin\r\n    case Key of\r\n      Ord('A'):\r\n      begin\r\n        if Interaction.MultiSelect then\r\n        begin\r\n          sa := True;\r\n          DoBeforeSelectAllNodes(sa);\r\n          if sa then\r\n          begin\r\n            SelectAllNodes;\r\n            DoAfterSelectAllNodes;\r\n          end;\r\n        end;\r\n        Exit;\r\n      end;\r\n      Ord('X'):\r\n      begin\r\n        if Interaction.ClipboardMode <> tcmNone then\r\n        begin\r\n          b := True;\r\n          DoBeforeCutToClipboard(b);\r\n          if b then\r\n          begin\r\n            CutToClipboard(Interaction.ClipboardMode = tcmTextOnly);\r\n            DoAfterCutToClipboard;\r\n          end;\r\n        end;\r\n        Exit;\r\n      end;\r\n      Ord('C'):\r\n      begin\r\n        if Interaction.ClipboardMode <> tcmNone then\r\n        begin\r\n          b := True;\r\n          DoBeforeCopyToClipboard(b);\r\n          if b then\r\n          begin\r\n            CopyToClipboard(Interaction.ClipboardMode = tcmTextOnly);\r\n            DoAfterCopyToClipboard;\r\n          end;\r\n        end;\r\n        Exit;\r\n      end;\r\n      Ord('V'):\r\n      begin\r\n        if Interaction.ClipboardMode <> tcmNone then\r\n        begin\r\n          b := True;\r\n          DoBeforePasteFromClipboard(b);\r\n          if b then\r\n          begin\r\n            PasteFromClipboard;\r\n            DoAfterPasteFromClipboard;\r\n          end;\r\n        end;\r\n        Exit;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  sel := FocusedVirtualNode;\r\n  donext := False;\r\n  doprev := False;\r\n  case Key of\r\n    KEY_MENU, KEY_CONTROL, KEY_SHIFT: sel := nil;\r\n    KEY_PRIOR:\r\n    begin\r\n      doprev := True;\r\n      if Assigned(sel) then\r\n      begin\r\n        r := sel.Row - (StopRow - StartRow);\r\n        sel := GetNodeFromNodeStructure(r);\r\n        if Assigned(sel) then\r\n        begin\r\n          if not IsVirtualNodeSelectable(sel) then\r\n            sel := GetPreviousFocusableNode(sel);\r\n        end;\r\n\r\n        if not Assigned(sel) then\r\n          sel := GetNextFocusableNode(nil);\r\n      end;\r\n    end;\r\n    KEY_NEXT:\r\n    begin\r\n      donext := True;\r\n      if Assigned(sel) then\r\n      begin\r\n        r := sel.Row + (StopRow - StartRow);\r\n        sel := GetNodeFromNodeStructure(r);\r\n        if Assigned(sel) then\r\n        begin\r\n          if not IsVirtualNodeSelectable(sel) then\r\n            sel := GetNextFocusableNode(sel);\r\n        end;\r\n\r\n        if not Assigned(sel) then\r\n          sel := GetPreviousFocusableNode(nil);\r\n      end;\r\n    end;\r\n    KEY_HOME:\r\n    begin\r\n      sel := GetNextFocusableNode(nil);\r\n      doprev := True;\r\n    end;\r\n    KEY_END:\r\n    begin\r\n      sel := GetPreviousFocusableNode(nil);\r\n      doprev := True\r\n    end;\r\n    KEY_DOWN:\r\n    begin\r\n      if not Interaction.MultiSelect or (Interaction.MultiSelect and not ((msSiblingOnly in Interaction.MultiSelectStyle) and (ssCtrl in Shift))) then\r\n      begin\r\n        sel := GetNextFocusableNode(sel);\r\n        donext := True;\r\n      end;\r\n    end;\r\n    KEY_UP:\r\n    begin\r\n      if not (msSiblingOnly in Interaction.MultiSelectStyle) or not Interaction.MultiSelect or not (ssCtrl in Shift) then\r\n      begin\r\n        sel := GetPreviousFocusableNode(sel);\r\n        doprev := True;\r\n      end;\r\n    end;\r\n    KEY_LEFT, KEY_SUBTRACT, KEY_DIVIDE: HandleNodeCollapse(sel, KEY = KEY_DIVIDE);\r\n    KEY_RIGHT, KEY_ADD, KEY_MULTIPLY: HandleNodeExpand(sel, KEY = KEY_MULTIPLY);\r\n    KEY_SPACE: DoNodeClick(sel);\r\n  end;\r\n\r\n  case Key of\r\n    KEY_LEFT, KEY_RIGHT: HandleCustomKeys(Key);\r\n  end;\r\n\r\n  spc := False;\r\n  if (Key = KEY_SPACE) then\r\n    spc := True;\r\n\r\n  if Assigned(sel) then\r\n  begin\r\n    if (Interaction.SelectionFollowsFocus and (donext or doprev)) or (spc and ((ssCtrl in Shift) or (ssCommand in Shift))) then\r\n    begin\r\n      if (ssShift in Shift) then\r\n      begin\r\n        if (FSelectedNodes.Count > 1) then\r\n        begin\r\n          prevsel := FSelectedNodes[FSelectedNodes.Count - 1];\r\n          fsel := FSelectedNodes[0];\r\n          if (doprev and (sel.Row < prevsel.Row) and (sel.Row >= fsel.Row)) or (donext and (sel.Row > prevsel.Row) and (sel.Row <= fsel.Row)) then\r\n          begin\r\n            if prevsel.Row <= sel.Row then\r\n            begin\r\n              for I := prevsel.Row to sel.Row do\r\n              begin\r\n                n := GetNodeFromNodeStructure(I);\r\n                if Assigned(n) then\r\n                begin\r\n                  if n <> sel then\r\n                  begin\r\n                    a := True;\r\n                    DoBeforeUnSelectNode(n, a);\r\n                    if a then\r\n                    begin\r\n                      UnSelectVirtualNode(n);\r\n                      DoAfterUnSelectNode(n);\r\n                    end;\r\n                  end\r\n                  else\r\n                    UnSelectVirtualNode(n);\r\n                end;\r\n              end;\r\n            end\r\n            else\r\n            begin\r\n              for I := prevsel.Row downto sel.Row do\r\n              begin\r\n                n := GetNodeFromNodeStructure(I);\r\n                if Assigned(n) then\r\n                begin\r\n                  if n <> sel then\r\n                  begin\r\n                    a := True;\r\n                    DoBeforeUnSelectNode(n, a);\r\n                    if a then\r\n                    begin\r\n                      UnSelectVirtualNode(n);\r\n                      DoAfterUnSelectNode(n);\r\n                    end;\r\n                  end\r\n                  else\r\n                    UnSelectVirtualNode(n);\r\n                end;\r\n              end;\r\n            end;\r\n          end;\r\n        end;\r\n      end\r\n      else if not (ssCtrl in Shift) and not (ssCommand in Shift) and (donext or doprev) and (FSelectedNodes.Count > 0) then\r\n      begin\r\n        a := True;\r\n        DoBeforeUnSelectNode(sel, a);\r\n        if a then\r\n        begin\r\n          UnSelectVirtualNode(sel);\r\n          DoAfterUnSelectNode(sel);\r\n        end;\r\n      end;\r\n\r\n      if (ssShift in Shift) then\r\n      begin\r\n        if Assigned(FFocusedNode) then\r\n        begin\r\n          if FFocusedNode.Row <= sel.Row then\r\n          begin\r\n            for I := FFocusedNode.Row + 1 to sel.Row do\r\n              HandleSelectNode(GetNodeFromNodeStructure(I), True, True, {$IFNDEF FMXMOBILE}(ssShift in Shift) and {$ENDIF} Interaction.MultiSelect);\r\n          end\r\n          else\r\n          begin\r\n            for I := FFocusedNode.Row - 1 downto sel.Row do\r\n              HandleSelectNode(GetNodeFromNodeStructure(I), True, True, {$IFNDEF FMXMOBILE}(ssShift in Shift) and {$ENDIF} Interaction.MultiSelect);\r\n          end;\r\n        end;\r\n      end\r\n      else\r\n         HandleSelectNode(sel, True, True, {$IFNDEF FMXMOBILE}((ssCtrl in Shift) or (ssCommand in Shift)) and {$ENDIF} Interaction.MultiSelect);\r\n    end\r\n    else if spc then\r\n      HandleNodeToggleCheck(sel, 0);\r\n\r\n    if FFocusedNode <> sel then\r\n    begin\r\n      FFocusedNode := sel;\r\n      DoFocusedNodeChanged(FFocusedNode);\r\n    end;\r\n\r\n    if donext then\r\n      ScrollToVirtualNode(FFocusedNode, True, tvnspBottom)\r\n    else\r\n      ScrollToVirtualNode(FFocusedNode, True, tvnspTop);\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleKeyPress(var Key: Char);\r\nvar\r\n  k: Integer;\r\nbegin\r\n  inherited;\r\n  if BlockUserInput then\r\n    Exit;\r\n\r\n  k := Ord(Key);\r\n\r\n  if Interaction.Lookup.Enabled then\r\n  begin\r\n    if k in [KEY_ESCAPE,KEY_INSERT,KEY_DELETE,KEY_UP,KEY_DOWN,KEY_LEFT,KEY_RIGHT,KEY_HOME,KEY_END,KEY_PRIOR,KEY_NEXT,KEY_TAB, 0] then\r\n      FLookupString := ''\r\n    else\r\n    begin\r\n      if Interaction.Lookup.Incremental then\r\n        FLookupString := FLookupString + Key\r\n      else\r\n        FLookupString := Key;\r\n\r\n      if Assigned(OnCustomLookup) then\r\n        OnCustomLookup(Self, FLookupString)\r\n      else\r\n      begin\r\n        LookupNode(FLookupString, Interaction.Lookup.RootNodesOnly, Interaction.Lookup.Column,\r\n          Interaction.Lookup.CaseSensitive, Interaction.Lookup.AutoSelect, Interaction.Lookup.AutoExpand);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleKeyUp(var Key: Word; Shift: TShiftState);\r\nvar\r\n  en, ext: Boolean;\r\n  c: Integer;\r\nbegin\r\n  inherited;\r\n  if BlockUserInput then\r\n    Exit;\r\n\r\n  if FInplaceEditorClosed then\r\n  begin\r\n    FInplaceEditorClosed := False;\r\n    Exit;\r\n  end;\r\n\r\n  if FCloseWithDialogKey then\r\n  begin\r\n    FCloseWithDialogKey := False;\r\n    Exit;\r\n  end;\r\n\r\n  if Assigned(FFocusedNode) then\r\n  begin\r\n    if not FCompactMode and Interaction.KeyboardEdit and not Interaction.ReadOnly and (Shift = []) then\r\n    begin\r\n      case Key of\r\n        KEY_F2, KEY_RETURN:\r\n        begin\r\n          en := True;\r\n          DoIsNodeEnabled(FFocusedNode, en);\r\n          if en then\r\n          begin\r\n            ext := False;\r\n            DoIsNodeExtended(FFocusedNode, ext);\r\n            if (ext and Interaction.ExtendedSelectable and Interaction.ExtendedEditable) or not ext then\r\n            begin\r\n              c := GetFirstEditableColumn;\r\n              if (c <> -1) and FFocusedNode.TitleExpanded[c] then\r\n                HandleNodeEditing(FFocusedNode, c);\r\n            end;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nvar\r\n  st: TTMSFNCGraphicsSaveState;\r\nbegin\r\n  inherited;\r\n  {$IFDEF WEBLIB}\r\n  if UpdateCount > 0 then\r\n    Exit;\r\n  {$ENDIF}\r\n\r\n  AGraphics.BitmapContainer := BitmapContainer;\r\n  DrawEmptySpaces(AGraphics);\r\n  st := AGraphics.SaveState;\r\n  AGraphics.ClipRect(GetContentClipRect);\r\n  DrawNodeColumns(AGraphics);\r\n  AGraphics.RestoreState(st);\r\n  DrawNodes(AGraphics);\r\n  DrawColumns(AGraphics);\r\n  DrawGroups(AGraphics);\r\n  DrawBorders(AGraphics);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.ResetNodes(AUpdateAll: Boolean = True);\r\nvar\r\n  I: Integer;\r\n  v: TTMSFNCTreeViewVirtualNode;\r\n  st, stp: Integer;\r\nbegin\r\n  if Assigned(VisibleNodes) then\r\n  begin\r\n    if AUpdateAll then\r\n    begin\r\n      st := 0;\r\n      stp := RowCount - 1;\r\n    end\r\n    else\r\n    begin\r\n      st := StartRow;\r\n      stp := StopRow;\r\n    end;\r\n\r\n    for I := st to stp do\r\n    begin\r\n      v := GetVisibleNodeForIndex(I);\r\n      if Assigned(v) then\r\n      begin\r\n        TotalRowHeight := TotalRowHeight - v.Height + GetDefaultRowHeight(v);\r\n        UpdateNodeHeight(v, GetDefaultRowHeight(v));\r\n        UpdateNodeCalculated(v, False);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.ResetToDefaultStyle;\r\nbegin\r\n  BeginUpdate;\r\n\r\n  TTMSFNCUtils.SetFontSize(ColumnsAppearance.TopFont, 14);\r\n  ColumnsAppearance.TopFont.Style := [TFontStyle.fsBold];\r\n  {$IFDEF FMXLIB}\r\n  ColumnsAppearance.TopFill.Color := $FFEEF2F9;\r\n  ColumnsAppearance.TopFont.Color := $FF454545;\r\n  NodesAppearance.SelectedFill.Color := $FFF6F8FC;\r\n  NodesAppearance.SelectedStroke.Color := $FF2D9BEF;\r\n  NodesAppearance.Font.Color := $FF7A7A7A;\r\n  NodesAppearance.SelectedFontColor := $FF454545;\r\n  NodesAppearance.SelectedStroke.Color := $FF2D9BEF;\r\n  {$ENDIF}\r\n  {$IFNDEF FMXLIB}\r\n  ColumnsAppearance.TopFill.Color := $F9F2EE;\r\n  ColumnsAppearance.TopFont.Color := $454545;\r\n  NodesAppearance.SelectedFill.Color := $FCF8F6;\r\n  NodesAppearance.SelectedStroke.Color := $EF9B2D;\r\n  NodesAppearance.Font.Color := $7A7A7A;\r\n  NodesAppearance.SelectedFontColor := $454545;\r\n  NodesAppearance.SelectedStroke.Color := $EF9B2D;\r\n  {$ENDIF}\r\n  NodesAppearance.ShowFocus := False;\r\n  NodesAppearance.ExpandWidth := ScalePaintValue(18);\r\n  NodesAppearance.ExpandHeight := ScalePaintValue(18);\r\n\r\n  NodesAppearance.ShowFocus := False;\r\n  NodesAppearance.SelectedStroke.Width := Trunc(ScalePaintValue(2.0));\r\n\r\n  ColumnsAppearance.TopSize := ScalePaintValue(36);\r\n  ColumnsAppearance.TopStroke.Kind := gskNone;\r\n\r\n  Fill.Kind := gfkSolid;\r\n  Stroke.Kind := gskSolid;\r\n  Fill.Color := gcWhite;\r\n  Stroke.Color := gcDarkGray;\r\n  NodesAppearance.ExtendedFill.Color := TTMSFNCTreeViewColorExtended;\r\n  ColumnsAppearance.BottomFill.Color := ColumnsAppearance.TopFill.Color;\r\n  ColumnsAppearance.TopStroke.Color := gcDarkGray;\r\n  ColumnsAppearance.BottomStroke.Color := gcDarkgray;\r\n  ColumnsAppearance.BottomFont.Color := ColumnsAppearance.TopFont.Color;\r\n  GroupsAppearance.TopFill.Color := gcWhite;\r\n  GroupsAppearance.BottomFill.Color := gcWhite;\r\n  GroupsAppearance.TopStroke.Color := gcDarkGray;\r\n  GroupsAppearance.BottomStroke.Color := gcDarkgray;\r\n  GroupsAppearance.TopFont.Color := gcBlack;\r\n  GroupsAppearance.BottomFont.Color := gcBlack;\r\n  ColumnsAppearance.TopFill.Kind := gfkSolid;\r\n  ColumnsAppearance.BottomFill.Kind := gfkNone;\r\n  ColumnsAppearance.BottomStroke.Kind := gskSolid;\r\n  GroupsAppearance.TopFill.Kind := gfkNone;\r\n  GroupsAppearance.BottomFill.Kind := gfkNone;\r\n  GroupsAppearance.TopStroke.Kind := gskSolid;\r\n  GroupsAppearance.BottomStroke.Kind := gskSolid;\r\n  NodesAppearance.ExtendedFontColor := ColumnsAppearance.TopFont.Color;\r\n  ColumnsAppearance.BottomFont.Color := ColumnsAppearance.TopFont.Color;\r\n  GroupsAppearance.TopFont.Color := ColumnsAppearance.TopFont.Color;\r\n  GroupsAppearance.BottomFont.Color := ColumnsAppearance.TopFont.Color;\r\n\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.SetInteraction(const Value: TTMSFNCTreeViewInteraction);\r\nbegin\r\n  if FInteraction <> Value then\r\n    FInteraction.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.SetNodesAppearance(const Value: TTMSFNCTreeViewNodesAppearance);\r\nbegin\r\n  if FNodesAppearance <> Value then\r\n    FNodesAppearance.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.SetSelectedNode(\r\n  const Value: TTMSFNCTreeViewNode);\r\nbegin\r\n  if Assigned(Value) then\r\n    SelectedVirtualNode := TTMSFNCTreeViewNodeOpen(Value).VirtualNode\r\n  else\r\n    SelectedVirtualNode := nil;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.SetSelectedVirtualNode(\r\n  const Value: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  FocusedVirtualNode := Value;\r\n  SelectVirtualNode(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.SetSortColumn(const Value: Integer);\r\nbegin\r\n  if FSortColumn <> Value then\r\n  begin\r\n    FSortColumn := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.SetTopRow(const Value: Integer);\r\nbegin\r\n  ScrollToVirtualNodeRow(Value, True, tvnspTop, True);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.SetVerticalOffset(AVerticalOffset: Single);\r\nbegin\r\n  FVerticalOffsetTo := AVerticalOffset;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.SetGlobalFont( const Value: TTMSFNCAppearanceGlobalFont);\r\nbegin\r\n  FGlobalFont.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.SetGroupsAppearance(\r\n  const Value: TTMSFNCTreeViewGroupsAppearance);\r\nbegin\r\n  if FGroupsAppearance <> Value then\r\n    FGroupsAppearance.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.SetAdapter(const Value: TTMSFNCTreeViewAdapter);\r\nbegin\r\n  if Assigned(Value) then\r\n    Value.TreeView := Self;\r\n  FAdapter := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.SetColumnsAppearance(\r\n  const Value: TTMSFNCTreeViewColumnsAppearance);\r\nbegin\r\n  if FColumnsAppearance <> Value then\r\n    FColumnsAppearance.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.SetColumnStroke(const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FColumnStroke <> Value then\r\n    FColumnStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.SetCompactMode(const Value: Boolean);\r\nbegin\r\n  if FCompactMode <> Value then\r\n  begin\r\n    FCompactMode := Value;\r\n    UpdateTreeView;\r\n  end;\r\nend;\r\n\r\n{$IFDEF FNCLIB}\r\nprocedure TTMSFNCCustomTreeView.SetDefaultViewJSONOptions(const Value: TTMSFNCTreeViewViewJSONOptions);\r\nbegin\r\n  FDefaultViewJSONOptions := Value;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomTreeView.SetFocusedNode(\r\n  const Value: TTMSFNCTreeViewNode);\r\nbegin\r\n  if Assigned(Value) then\r\n    FocusedVirtualNode := TTMSFNCTreeViewNodeOpen(Value).VirtualNode\r\n  else\r\n    FocusedVirtualNode := nil;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.SetFocusedVirtualNode(\r\n  const Value: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  FFocusedNode := Value;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.SetFonts(ASetType: TTMSFNCAppearanceGlobalFontType);\r\nbegin\r\n  BeginUpdate;\r\n\r\n  GlobalFont.ApplyChange(NodesAppearance.Font, ASetType);\r\n  GlobalFont.ApplyChange(NodesAppearance.ExtendedFont, ASetType);\r\n  GlobalFont.ApplyChange(NodesAppearance.TitleFont, ASetType);\r\n\r\n  GlobalFont.ApplyChange(ColumnsAppearance.TopFont, ASetType);\r\n  GlobalFont.ApplyChange(ColumnsAppearance.BottomFont, ASetType);\r\n\r\n  GlobalFont.ApplyChange(GroupsAppearance.TopFont, ASetType);\r\n  GlobalFont.ApplyChange(GroupsAppearance.BottomFont, ASetType);\r\n\r\n  if ASetType = aftColor then\r\n  begin\r\n    NodesAppearance.SelectedFontColor := GlobalFont.Color;\r\n    NodesAppearance.ExtendedFontColor := GlobalFont.Color;\r\n    NodesAppearance.SelectedTitleFontColor := GlobalFont.Color;\r\n  end;\r\n\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.StartReload;\r\nbegin\r\n  FVerticalOffsetTo := GetReloadOffset;\r\n  StartVerticalOffsetAnimation;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.StartVerticalOffsetAnimation;\r\nbegin\r\n  FAnimateVerticalOffset := True;\r\n  FAnimateTimer.Enabled := True;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.StopAnimationTimer;\r\nbegin\r\n  FAnimateTimer.Enabled := False;\r\n  FAnimating := False;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.StopEditing;\r\nbegin\r\n  if FInplaceEditorActive then\r\n    CloseInplaceEditor(False);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.UnSelectAllNodes;\r\nbegin\r\n  UnSelectAllVirtualNodes;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.UnSelectAllVirtualNodes;\r\nbegin\r\n  FSelectedNodes.Clear;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.UnSelectNode(ANode: TTMSFNCTreeViewNode);\r\nbegin\r\n  if Assigned(ANode) then\r\n    UnSelectVirtualNode(TTMSFNCTreeViewNodeOpen(ANode).VirtualNode);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.UnSelectNodes(ANodes: TTMSFNCTreeViewNodeArray);\r\nvar\r\n  I: Integer;\r\n  v: TTMSFNCTreeViewNode;\r\nbegin\r\n  for I := 0 to Length(ANodes) - 1 do\r\n  begin\r\n    v := ANodes[I];\r\n    if Assigned(v) then\r\n      FSelectedNodes.Remove(TTMSFNCTreeViewNodeOpen(v).VirtualNode);\r\n  end;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.UnSelectVirtualNode(\r\n  ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  FSelectedNodes.Remove(ANode);\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.UnSelectVirtualNodes(\r\n  ANodes: TTMSFNCTreeViewVirtualNodeArray);\r\nvar\r\n  I: Integer;\r\n  v: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  for I := 0 to Length(ANodes) - 1 do\r\n  begin\r\n    v := ANodes[I];\r\n    FSelectedNodes.Remove(v);\r\n  end;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.UpdateAutoSizing;\r\nbegin\r\n  if ColumnsAppearance.Stretch then\r\n    StretchColumn(ColumnsAppearance.StretchAll, ColumnsAppearance.StretchColumn);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.UpdateCalculations;\r\nbegin\r\n  if (UpdateCount > 0) or (csDestroying in ComponentState) or (csLoading in ComponentState) then\r\n    Exit;\r\n\r\n  FOldTopRow := GetFirstVisibleVirtualNodeRow;\r\n\r\n  ColumnCount := Columns.Count;\r\n\r\n  if NodesAppearance.HeightMode = tnhmFixed then\r\n    DefaultRowHeight := NodesAppearance.FixedHeight\r\n  else\r\n    DefaultRowHeight := NodesAppearance.VariableMinimumHeight;\r\n\r\n  if (UpdateCount = 0) and not BlockUpdateNodeList and not ((csDestroying in ComponentState) or (csReading in ComponentState) or (csLoading in ComponentState)) then\r\n    BuildNodeList;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.UpdateColumnRowCalculations(AUpdateTotalRowHeight: Boolean = True);\r\nvar\r\n  I: Integer;\r\n  r, c: Double;\r\n  lm, tm, rm, bm: Single;\r\nbegin\r\n  ColumnP.Clear;\r\n  c := 0;\r\n  ColumnPositions[0] := c;\r\n  for I := 0 to ColumnCount - 1 do\r\n  begin\r\n    c := c + ColumnWidths[I];\r\n    ColumnPositions[I + 1] := c;\r\n  end;\r\n\r\n  TotalColumnWidth := c;\r\n\r\n  if AUpdateTotalRowHeight then\r\n  begin\r\n    lm := 0;\r\n    tm := 0;\r\n    rm := 0;\r\n    bm := 0;\r\n    GetNodeMargins(lm, tm, rm, bm);\r\n    r := (RowCount * GetDefaultRowHeight(nil)) - GetNodesSpacing(nil);\r\n    TotalRowHeight := r + 1 + tm + bm;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.UpdateDisplay;\r\nbegin\r\n  inherited;\r\n  UpdateNodesCache(False);\r\n  UpdateGroupsDisplay;\r\n  UpdateColumnsDisplay;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.UpdateNodesCache(AUpdateNodes: Boolean = True; AResetNodes: Boolean = False);\r\nbegin\r\n  if BlockUpdateNode then\r\n    Exit;\r\n\r\n  UpdateScrollBars(True, False);\r\n  UpdateVisualRange;\r\n  UpdateNodeCache;\r\n  UpdateScrollBars(True, False);\r\n\r\n  {$IFDEF FMXLIB}\r\n  FScrollBarTimer.Enabled := True;\r\n  {$ENDIF}\r\n\r\n  if AUpdateNodes then\r\n  begin\r\n    if AResetNodes then\r\n      ResetNodes(False);\r\n\r\n    UpdateAutoSizing;\r\n    UpdateColumnRowCalculations(False);\r\n    UpdateNodesCache(False);\r\n    UpdateVisualRange;\r\n  end\r\n  else\r\n  begin\r\n    UpdateNodeDisplay;\r\n    UpdateInplaceEditorPosition;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.UpdateTreeViewCache;\r\nbegin\r\n  if (UpdateCount > 0) or IsDestroying then\r\n    Exit;\r\n\r\n  inherited;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.UpdateColumnsCache;\r\nbegin\r\n  UpdateColumnCache(FColumnsTopCache);\r\n  UpdateColumnCache(FColumnsBottomCache);\r\n  UpdateColumnsDisplay;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.UpdateColumnCache(ACache: TTMSFNCTreeViewCache);\r\nvar\r\n  w, h, bmpw, bmph, bw, bh: Double;\r\n  rt: TRectF;\r\n  c: Integer;\r\n  dx: Double;\r\n  offsetx, extrax: Double;\r\n  ac: Integer;\r\n  rc: TRectF;\r\n  cnt: Integer;\r\nbegin\r\n  inherited;\r\n  if (UpdateCount > 0) or (csDestroying in ComponentState) or not Assigned(ACache) then\r\n    Exit;\r\n\r\n  ACache.Clear;\r\n\r\n  if (ACache is TTMSFNCTreeViewColumnsTopCache) and (not (tclTop in ColumnsAppearance.Layouts) or (ColumnsAppearance.TopSize <= 0)) then\r\n    Exit;\r\n\r\n  if (ACache is TTMSFNCTreeViewColumnsBottomCache) and (not (tclBottom in ColumnsAppearance.Layouts) or (ColumnsAppearance.BottomSize <= 0)) then\r\n    Exit;\r\n\r\n  w := GetTotalColumnWidth;\r\n  if ACache is TTMSFNCTreeViewColumnsTopCache then\r\n    h := GetColumnsTopSize + 1\r\n  else\r\n    h := GetColumnsBottomSize + 1;\r\n\r\n  extrax := GetColumnsExtraSize;\r\n  offsetx := 0;\r\n  bmpw := 0;\r\n  bmph := 0;\r\n  ac := 0;\r\n  c := 0;\r\n  dx := 0;\r\n\r\n  cnt := ColumnCount - 1;\r\n\r\n  while bmpw < w do\r\n  begin\r\n    bw := w;\r\n\r\n    while bmph < h do\r\n    begin\r\n      bh := h;\r\n\r\n      rt := RectF(0, 0, bw, bh);\r\n\r\n      dx := rt.Left + offsetx;\r\n\r\n      for c := ac to cnt do\r\n      begin\r\n        {$IFDEF FMXWEBLIB}\r\n        rc.Top := int(rt.Top) + 0.5;\r\n        rc.Bottom := int(rt.Bottom) - 0.5;\r\n        rc.Left := int(dx) + 0.5;\r\n        dx := dx + ColumnWidths[c] + extrax;\r\n        if c = cnt then\r\n          rc.Right := int(dx) - 0.5\r\n        else\r\n          rc.Right := int(dx) + 0.5;\r\n        {$ENDIF}\r\n        {$IFDEF CMNLIB}\r\n        rc.Top := rt.Top;\r\n        rc.Bottom := rt.Bottom;\r\n        if c = ac then\r\n          rc.Left := dx\r\n        else\r\n          rc.Left := dx;\r\n\r\n        dx := dx + ColumnWidths[c] + extrax;\r\n        if c = cnt then\r\n          rc.Right := dx\r\n        else\r\n          rc.Right := dx + 1;\r\n        {$ENDIF}\r\n\r\n        OffsetRectEx(rc, bmpw, bmph);\r\n        if ACache is TTMSFNCTreeViewColumnsTopCache then\r\n          ACache.Add(TTMSFNCTreeViewCacheItem.CreateColumnTop(rc, c))\r\n        else\r\n          ACache.Add(TTMSFNCTreeViewCacheItem.CreateColumnBottom(rc, c));\r\n\r\n        if dx > rt.Right - rt.Left then\r\n          Break;\r\n      end;\r\n\r\n      bmph := bmph + bh;\r\n    end;\r\n    bmpw := bmpw + bw;\r\n    bmph := 0;\r\n    ac := c;\r\n    offsetx := -ColumnWidths[c] - (bw - dx);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.UpdateColumnsDisplay;\r\nbegin\r\n  BuildDisplay(FColumnsTopCache, FColumnsTopDisplay);\r\n  BuildDisplay(FColumnsBottomCache, FColumnsBottomDisplay);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.UpdateControlAfterResize;\r\nbegin\r\n  inherited;\r\n  if Assigned(Adapter) then\r\n    Adapter.UpdateBounds;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.VerticalScrollPositionChanged;\r\nbegin\r\n  BlockScrollingUpdate := True;\r\n  UpdateDisplay;\r\n  BlockScrollingUpdate := False;\r\n  DoVScroll(GetVScrollValue);\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.XYToCacheItem(X,\r\n  Y: Double; OffsetX: Single = 0): TTMSFNCTreeViewCacheItem;\r\nvar\r\n  I: Integer;\r\n  dsp: TTMSFNCTreeViewCacheItem;\r\n  r: TRectF;\r\nbegin\r\n  Result := nil;\r\n  if not Assigned(FNodeDisplay) then\r\n    Exit;\r\n\r\n  if not PtInRectEx(GetContentClipRect, PointF(X, Y)) then\r\n    Exit;\r\n\r\n  for I := 0 to FNodeDisplay.Count - 1 do\r\n  begin\r\n    dsp := FNodeDisplay[I];\r\n    r := dsp.DrawRect;\r\n    r.Left := r.Left + OffsetX;\r\n    r.Right := r.Right + OffsetX;\r\n    if PtInRectEx(r, PointF(X, Y)) then\r\n    begin\r\n      Result := dsp;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.XYToColumn(X, Y: Single; AIncludeRows: Boolean = False): Integer;\r\nvar\r\n  I: Integer;\r\n  topr: TRectF;\r\n  r: TRectF;\r\n  colw, colp: Double;\r\nbegin\r\n  Result := -1;\r\n  if AIncludeRows then\r\n    topr := inherited GetContentRect\r\n  else\r\n    topr := GetColumnsTopRect;\r\n\r\n  topr.Left := topr.Left - GetHorizontalScrollPosition;\r\n  for I := ColumnCount - 1 downto 0 do\r\n  begin\r\n    if (I >= 0) and (I <= Columns.Count - 1) and Columns[I].Visible then\r\n    begin\r\n      colw := ColumnWidths[I] + GetColumnsExtraSize;\r\n      if colw >= 0 then\r\n      begin\r\n        colp := ColumnPositions[I];\r\n        r := RectF(topr.Left + colp, topr.Top, topr.Left + colp + colw, topr.Bottom);\r\n        if PtInRectEx(r, PointF(X, Y)) then\r\n        begin\r\n          Result := I;\r\n          Break;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.XYToColumnAnchor(AX, AY: Single; var AIndex: Integer): string;\r\nbegin\r\n  Result := XYToColumnAnchorCache(AX, AY, FColumnsTopCache, AIndex);\r\n  if (Result = '') and (AIndex = -1) then\r\n    Result := XYToColumnAnchorCache(AX, AY, FColumnsBottomCache, AIndex);\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.XYToColumnAnchorCache(AX, AY: Single;\r\n  ACache: TTMSFNCTreeViewColumnsCache; var AIndex: Integer): string;\r\nvar\r\n  I: Integer;\r\n  txtr: TRectF;\r\n  a: String;\r\n  r: TRectF;\r\n  str: String;\r\n  g: TTMSFNCGraphics;\r\n  c: TTMSFNCTreeViewCacheItem;\r\n  col: TTMSFNCTreeViewColumn;\r\n  def: Boolean;\r\n  trim: TTMSFNCGraphicsTextTrimming;\r\n  ha, va: TTMSFNCGraphicsTextAlign;\r\n  ww: Boolean;\r\n  szt, szd, szr: Single;\r\nbegin\r\n  Result := '';\r\n  AIndex := -1;\r\n  g := TTMSFNCGraphics.CreateBitmapCanvas;\r\n  g.BeginScene;\r\n  try\r\n    g.BitmapContainer := BitmapContainer;\r\n    for I := 0 to ACache.Count - 1 do\r\n    begin\r\n      c := ACache[I];\r\n\r\n      col := nil;\r\n      def := False;\r\n      if (c.Column >= 0) and (c.Column <= Columns.Count - 1) then\r\n        col := Columns[c.Column];\r\n\r\n      r := c.DrawRect;\r\n      szt := 0;\r\n\r\n      if Assigned(col) then\r\n      begin\r\n        if col.Filtering.Enabled then\r\n        begin\r\n          szd := col.Filtering.ButtonSize;\r\n          szt := szt + szd + ScalePaintValue(4);\r\n        end;\r\n\r\n        if col.Expandable then\r\n        begin\r\n          szr := col.ExpandingButtonSize;\r\n          szt := szt + szr + ScalePaintValue(6);\r\n        end;\r\n\r\n        if (TTMSFNCTreeViewColumnOpen(col).SortKind <> nskNone) and (SortColumn = c.Column) then\r\n        begin\r\n          szr := ScalePaintValue(8);\r\n          szt := szt + szr + ScalePaintValue(6);\r\n        end;\r\n      end;\r\n\r\n      if def then\r\n      begin\r\n        case c.Kind of\r\n          ikColumnTop: g.Font.Assign(ColumnsAppearance.TopFont);\r\n          ikColumnBottom: g.Font.Assign(ColumnsAppearance.BottomFont);\r\n        end;\r\n      end\r\n      else if Assigned(col) then\r\n      begin\r\n        case c.Kind of\r\n          ikColumnTop: g.Font.Assign(col.TopFont);\r\n          ikColumnBottom: g.Font.Assign(col.BottomFont);\r\n        end;\r\n      end;\r\n\r\n      str := GetColumnText(c.Column);\r\n      DoGetColumnText(c.Column, c.Kind, str);\r\n\r\n      ha := gtaLeading;\r\n      va := gtaCenter;\r\n      ww := False;\r\n      trim := gttNone;\r\n      if Assigned(col) then\r\n      begin\r\n        ha := col.HorizontalTextAlign;\r\n        va := col.VerticalTextAlign;\r\n        ww := col.WordWrapping;\r\n        trim := col.Trimming;\r\n      end;\r\n\r\n      DoGetColumnTrimming(c.Column, c.Kind, trim);\r\n      DoGetColumnWordWrapping(c.Column, c.Kind, ww);\r\n      DoGetColumnHorizontalTextAlign(c.Column, c.Kind, ha);\r\n      DoGetColumnVerticalTextAlign(c.Column, c.Kind, va);\r\n\r\n      txtr := r;\r\n      InflateRectEx(txtr, ScalePaintValue(-2), ScalePaintValue(-2));\r\n      txtr.Right := Max(txtr.Left, txtr.Right - szt);\r\n\r\n      if PtInRectEx(txtr, PointF(AX, AY)) then\r\n      begin\r\n        case c.Kind of\r\n          ikColumnTop:\r\n          begin\r\n            if Assigned(col) then\r\n              g.Font.Assign(col.TopFont)\r\n            else\r\n              g.Font.Assign(ColumnsAppearance.TopFont);\r\n\r\n            if ColumnsAppearance.TopVerticalText then\r\n              a := g.DrawText(txtr, str, ww, ha, va, trim, -90, -1, -1, True, True, AX, AY)\r\n            else\r\n              a := g.DrawText(txtr, str, ww, ha, va, trim, 0, -1, -1, True, True, AX, AY)\r\n          end;\r\n          ikColumnBottom:\r\n          begin\r\n            if Assigned(col) then\r\n              g.Font.Assign(col.BottomFont)\r\n            else\r\n              g.Font.Assign(ColumnsAppearance.BottomFont);\r\n\r\n            if ColumnsAppearance.BottomVerticalText then\r\n              a := g.DrawText(txtr, str, ww, ha, va, trim, 90, -1, -1, True, True, AX, AY)\r\n            else\r\n              a := g.DrawText(txtr, str, ww, ha, va, trim, 0, -1, -1, True, True, AX, AY)\r\n          end;\r\n        end;\r\n\r\n        if a <> '' then\r\n        begin\r\n          Result := a;\r\n          AIndex := c.Column;\r\n          Break;\r\n        end;\r\n      end;\r\n    end;\r\n  finally\r\n    g.EndScene;\r\n    g.Free;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.XYToColumnExpand(X, Y: Single): Integer;\r\nvar\r\n  I: Integer;\r\n  topr: TRectF;\r\n  r, dr, sr: TRectF;\r\n  szd: Single;\r\n  colw, colp, f: Double;\r\nbegin\r\n  Result := -1;\r\n  topr := GetColumnsTopRect;\r\n  topr.Left := topr.Left - GetHorizontalScrollPosition;\r\n  for I := ColumnCount - 1 downto 0 do\r\n  begin\r\n    if (I >= 0) and (I <= Columns.Count - 1) and Columns[I].Expandable and Columns[I].Visible then\r\n    begin\r\n      colw := ColumnWidths[I] + GetColumnsExtraSize;\r\n      if colw >= 0 then\r\n      begin\r\n        colp := ColumnPositions[I];\r\n        r := RectF(topr.Left + colp, topr.Top, topr.Left + colp + colw, topr.Bottom);\r\n        szd := Columns[I].ExpandingButtonSize;\r\n\r\n        if Columns[I].Filtering.Enabled then\r\n        begin\r\n          f := Columns[I].Filtering.ButtonSize;\r\n          dr := RectF(Round(r.Right - f - ScalePaintValue(4)), Round(r.Top + ((r.Bottom - r.Top) - f) / 2), Round(r.Right - ScalePaintValue(4)), Round(r.Top + ((r.Bottom - r.Top) - f) / 2 + f));\r\n          sr := r;\r\n          sr.Right := dr.Left;\r\n        end\r\n        else\r\n          sr := r;\r\n\r\n        dr := RectF(Round(sr.Right - szd - ScalePaintValue(6)), Round(sr.Top + ((sr.Bottom - sr.Top) - szd) / 2), Round(sr.Right - ScalePaintValue(6)), Round(sr.Top + ((sr.Bottom - sr.Top) - szd) / 2 + szd));\r\n        if PtInRectEx(dr, PointF(X, Y)) then\r\n        begin\r\n          Result := I;\r\n          Break;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.XYToColumnFilter(X, Y: Single): Integer;\r\nvar\r\n  I: Integer;\r\n  topr: TRectF;\r\n  r, dr: TRectF;\r\n  szd: Single;\r\n  colw, colp: Double;\r\nbegin\r\n  Result := -1;\r\n  topr := GetColumnsTopRect;\r\n  topr.Left := topr.Left - GetHorizontalScrollPosition;\r\n  for I := ColumnCount - 1 downto 0 do\r\n  begin\r\n    if (I >= 0) and (I <= Columns.Count - 1) and Columns[I].Filtering.Enabled and Columns[I].Visible then\r\n    begin\r\n      colw := ColumnWidths[I] + GetColumnsExtraSize;\r\n      if colw >= 0 then\r\n      begin\r\n        colp := ColumnPositions[I];\r\n        r := RectF(topr.Left + colp, topr.Top, topr.Left + colp + colw, topr.Bottom);\r\n        szd := Columns[I].Filtering.ButtonSize;\r\n        dr := RectF(Round(r.Right - szd - ScalePaintValue(4)), Round(r.Top + ((r.Bottom - r.Top) - szd) / 2), Round(r.Right - ScalePaintValue(4)), Round(r.Top + ((r.Bottom - r.Top) - szd) / 2 + szd));\r\n        if PtInRectEx(dr, PointF(X, Y)) then\r\n        begin\r\n          Result := I;\r\n          Break;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.XYToColumnSize(X,\r\n  Y: Single): Integer;\r\nvar\r\n  I: Integer;\r\n  topr: TRectF;\r\n  r: TRectF;\r\n  colw, colp: Double;\r\nbegin\r\n  Result := -1;\r\n  topr := GetColumnsTopRect;\r\n  topr.Left := topr.Left - GetHorizontalScrollPosition;\r\n  for I := ColumnCount - 1 downto 0 do\r\n  begin\r\n    if (I >= 0) and (I <= Columns.Count - 1) and Columns[I].Visible then\r\n    begin\r\n      colw := ColumnWidths[I];\r\n      if (colw >= 0) and (I >= 0) and (I <= Columns.Count - 1) and (Columns[I].Visible) then\r\n      begin\r\n        colp := ColumnPositions[I];\r\n        r := RectF(topr.Left + colp + colw - ScalePaintValue(4), topr.Top, topr.Left + colp + colw + ScalePaintValue(4), topr.Bottom);\r\n        if PtInRectEx(r, PointF(X, Y)) then\r\n        begin\r\n          Result := I;\r\n          Break;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.XYToNodeAnchor(ANode: TTMSFNCTreeViewVirtualNode; X,\r\n  Y: Single): TTMSFNCTreeViewNodeAnchor;\r\nvar\r\n  I: Integer;\r\n  txtr: TRectF;\r\n  a: String;\r\n  str: String;\r\n  g: TTMSFNCGraphics;\r\n  c: TTMSFNCTreeViewColumn;\r\n  ha, va: TTMSFNCGraphicsTextAlign;\r\n  ww: Boolean;\r\n  trim: TTMSFNCGraphicsTextTrimming;\r\n  ext: Boolean;\r\n  st, stp: Integer;\r\nbegin\r\n  Result.AAnchor := '';\r\n  Result.AColumn := -1;\r\n  if Assigned(ANode) then\r\n  begin\r\n    st := GetFirstVisibleColumn;\r\n    stp := GetLastVisibleColumn;\r\n    for I := st to stp do\r\n    begin\r\n      if (I - st >= 0) and (I - st <= Length(ANode.TextRects) - 1) then\r\n      begin\r\n        txtr := ANode.TextRects[I - st];\r\n        InflateRectEx(txtr, ScalePaintValue(-2), ScalePaintValue(-2));\r\n        if PtInRectEx(txtr, PointF(X, Y)) then\r\n        begin\r\n          c := nil;\r\n          if (I <= Columns.Count - 1) then\r\n            c := Columns[I];\r\n\r\n          ext := False;\r\n          ha := gtaLeading;\r\n          va := gtaCenter;\r\n          ww := False;\r\n          trim := gttNone;\r\n          if Assigned(c) then\r\n          begin\r\n            ha := c.HorizontalTextAlign;\r\n            va := c.VerticalTextAlign;\r\n            ww := c.WordWrapping;\r\n            trim := c.Trimming;\r\n          end;\r\n\r\n          DoIsNodeExtended(ANode, ext);\r\n          DoGetNodeTrimming(ANode, I, trim);\r\n          DoGetNodeWordWrapping(ANode, I, ww);\r\n          DoGetNodeHorizontalTextAlign(ANode, I, ha);\r\n          DoGetNodeVerticalTextAlign(ANode, I,va);\r\n\r\n          str := '';\r\n          DoGetNodeText(ANode, I, tntmDrawing, str);\r\n\r\n          g := TTMSFNCGraphics.CreateBitmapCanvas;\r\n          g.BeginScene;\r\n\r\n          if Assigned(c) and not c.UseDefaultAppearance and not ext then\r\n            g.Font.Assign(c.Font)\r\n          else\r\n          begin\r\n            if ext then\r\n              g.Font.Assign(NodesAppearance.ExtendedFont)\r\n            else\r\n              g.Font.Assign(NodesAppearance.Font);\r\n          end;\r\n\r\n          g.BitmapContainer := BitmapContainer;\r\n          g.OptimizedHTMLDrawing := OptimizedHTMLDrawing;\r\n          try\r\n            a := g.DrawText(txtr, str, ww, ha, va, trim, 0, -1, -1, True, True, X, Y);\r\n          finally\r\n            g.EndScene;\r\n            g.Free;\r\n          end;\r\n\r\n          if a <> '' then\r\n          begin\r\n            Result.AAnchor := a;\r\n            Result.AColumn := I;\r\n            Break;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.XYToNodeCheck(ANode: TTMSFNCTreeViewVirtualNode; X,\r\n  Y: Single): TTMSFNCTreeViewNodeCheck;\r\nvar\r\n  nrt: TRectF;\r\n  en: Boolean;\r\n  I: Integer;\r\n  st, stp: Integer;\r\nbegin\r\n  Result.AColumn := -1;\r\n  Result.ANode := nil;\r\n  en := True;\r\n  DoIsNodeEnabled(ANode, en);\r\n  if Assigned(ANode) and en then\r\n  begin\r\n    st := GetFirstVisibleColumn;\r\n    stp := GetLastVisibleColumn;\r\n    for I := st to stp do\r\n    begin\r\n      if (I - st >= 0) and (I - st <= Length(ANode.CheckRects) - 1) then\r\n      begin\r\n        nrt := ANode.CheckRects[I - st];\r\n        if PtInRectEx(nrt, PointF(X, Y)) then\r\n        begin\r\n          Result.ANode := ANode;\r\n          Result.AColumn := I;\r\n          Break;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.XYToNodeIcon(ANode: TTMSFNCTreeViewVirtualNode; X,\r\n  Y: Single): TTMSFNCTreeViewNodeIcon;\r\nvar\r\n  nrt: TRectF;\r\n  en: Boolean;\r\n  I: Integer;\r\n  st, stp: Integer;\r\nbegin\r\n  Result.AColumn := -1;\r\n  Result.ANode := nil;\r\n  en := True;\r\n  DoIsNodeEnabled(ANode, en);\r\n  if Assigned(ANode) and en then\r\n  begin\r\n    st := GetFirstVisibleColumn;\r\n    stp := GetLastVisibleColumn;\r\n    for I := st to stp do\r\n    begin\r\n      if (I - st >= 0) and (I - st <= Length(ANode.BitmapRects) - 1) then\r\n      begin\r\n        nrt := ANode.BitmapRects[I - st];\r\n        if PtInRectEx(nrt, PointF(X, Y)) then\r\n        begin\r\n          Result.ANode := ANode;\r\n          Result.AColumn := I;\r\n          Break;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.XYToNodeExpand(ANode: TTMSFNCTreeViewVirtualNode; X,\r\n  Y: Single): Boolean;\r\nvar\r\n  nrt: TRectF;\r\n  en: Boolean;\r\n  c: Integer;\r\nbegin\r\n  Result := False;\r\n  if Assigned(ANode) and (ANode.Children > 0) then\r\n  begin\r\n    en := True;\r\n    DoIsNodeEnabled(ANode, en);\r\n    if en then\r\n    begin\r\n      c := GetFirstVisibleColumn;\r\n      if (NodesAppearance.ExpandColumn - c >= 0) and (NodesAppearance.ExpandColumn - c <= Length(ANode.ExpandRects) - 1) then\r\n      begin\r\n        nrt := ANode.ExpandRects[NodesAppearance.ExpandColumn - c];\r\n        Result := PtInRectEx(nrt, PointF(X, Y));\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.XYToNodeExtra(ANode: TTMSFNCTreeViewVirtualNode;\r\n  X, Y: Single): Boolean;\r\nvar\r\n  nrt: TRectF;\r\n  en: Boolean;\r\n  I: Integer;\r\n  st: Integer;\r\n  stp: Integer;\r\nbegin\r\n  Result := False;\r\n  en := True;\r\n  DoIsNodeEnabled(ANode, en);\r\n  if Assigned(ANode) and en then\r\n  begin\r\n    st := GetFirstVisibleColumn;\r\n    stp := GetLastVisibleColumn;\r\n    for I := st to stp do\r\n    begin\r\n      if (I - st >= 0) and (I - st <= Length(ANode.ExtraRects) - 1) then\r\n      begin\r\n        nrt := ANode.ExtraRects[I - st];\r\n        if PtInRectEx(nrt, PointF(X, Y)) then\r\n        begin\r\n          Result := True;\r\n          Break;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.XYToNodeTextColumn(ANode: TTMSFNCTreeViewVirtualNode;\r\n  X, Y: Single): Integer;\r\nvar\r\n  nrt: TRectF;\r\n  I: Integer;\r\n  st, stp: Integer;\r\nbegin\r\n  Result := -1;\r\n  if Assigned(ANode) then\r\n  begin\r\n    st := GetFirstVisibleColumn;\r\n    stp := GetLastVisibleColumn;\r\n    for I := st to stp do\r\n    begin\r\n      if (I - st >= 0) and (I - st <= Length(ANode.TextRects) - 1) then\r\n      begin\r\n        nrt := ANode.TextRects[I - st];\r\n        if PtInRectEx(nrt, PointF(X, Y)) then\r\n        begin\r\n          Result := I;\r\n          Break;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.XYToNodeTitleAnchor(\r\n  ANode: TTMSFNCTreeViewVirtualNode; X, Y: Single): TTMSFNCTreeViewNodeAnchor;\r\nvar\r\n  I: Integer;\r\n  titr: TRectF;\r\n  a: String;\r\n  str: String;\r\n  g: TTMSFNCGraphics;\r\n  c: TTMSFNCTreeViewColumn;\r\n  ha, va: TTMSFNCGraphicsTextAlign;\r\n  ww: Boolean;\r\n  trim: TTMSFNCGraphicsTextTrimming;\r\n  st, stp: Integer;\r\nbegin\r\n  Result.AAnchor := '';\r\n  Result.AColumn := -1;\r\n  if Assigned(ANode) then\r\n  begin\r\n    st := GetFirstVisibleColumn;\r\n    stp := GetLastVisibleColumn;\r\n    for I := st to stp do\r\n    begin\r\n      if (I - st >= 0) and (I - st <= Length(ANode.TitleRects) - 1) then\r\n      begin\r\n        titr := ANode.TitleRects[I - st];\r\n        InflateRectEx(titr, ScalePaintValue(-2), ScalePaintValue(-2));\r\n        if PtInRectEx(titr, PointF(X, Y)) then\r\n        begin\r\n          c := nil;\r\n          if (I <= Columns.Count - 1) then\r\n            c := Columns[I];\r\n\r\n          ha := gtaLeading;\r\n          va := gtaCenter;\r\n          ww := False;\r\n          trim := gttNone;\r\n          if Assigned(c) then\r\n          begin\r\n            ha := c.TitleHorizontalTextAlign;\r\n            va := c.TitleVerticalTextAlign;\r\n            ww := c.TitleWordWrapping;\r\n            trim := c.TitleTrimming;\r\n          end;\r\n\r\n          DoGetNodeTitleTrimming(ANode, I, trim);\r\n          DoGetNodeTitleWordWrapping(ANode, I, ww);\r\n          DoGetNodeTitleHorizontalTextAlign(ANode, I, ha);\r\n          DoGetNodeTitleVerticalTextAlign(ANode, I,va);\r\n\r\n          str := '';\r\n          DoGetNodeTitle(ANode, I, tntmDrawing, str);\r\n\r\n          g := TTMSFNCGraphics.CreateBitmapCanvas;\r\n          g.BeginScene;\r\n\r\n          if Assigned(c) and not c.UseDefaultAppearance then\r\n            g.Font.Assign(c.TitleFont)\r\n          else\r\n            g.Font.Assign(NodesAppearance.TitleFont);\r\n\r\n          g.BitmapContainer := BitmapContainer;\r\n          g.OptimizedHTMLDrawing := OptimizedHTMLDrawing;\r\n          try\r\n            a := g.DrawText(titr, str, ww, ha, va, trim, 0, -1, -1, True, True, X, Y);\r\n          finally\r\n            g.EndScene;\r\n            g.Free;\r\n          end;\r\n\r\n          if a <> '' then\r\n          begin\r\n            Result.AAnchor := a;\r\n            Result.AColumn := I;\r\n            Break;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.XYToNodeTitleExtra(\r\n  ANode: TTMSFNCTreeViewVirtualNode; X, Y: Single): Boolean;\r\nvar\r\n  nrt: TRectF;\r\n  en: Boolean;\r\n  I: Integer;\r\n  st, stp: Integer;\r\nbegin\r\n  Result := False;\r\n  en := True;\r\n  DoIsNodeEnabled(ANode, en);\r\n  if Assigned(ANode) and en then\r\n  begin\r\n    st := GetFirstVisibleColumn;\r\n    stp := GetLastVisibleColumn;\r\n    for I := st to stp do\r\n    begin\r\n      if (I - st >= 0) and (I - st <= Length(ANode.TitleExtraRects) - 1) then\r\n      begin\r\n        nrt := ANode.TitleExtraRects[I - st];\r\n        if PtInRectEx(nrt, PointF(X, Y)) then\r\n        begin\r\n          Result := True;\r\n          Break;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTreeView.XYToNode(X, Y: Double; OffsetX: Single = 0): TTMSFNCTreeViewVirtualNode;\r\nvar\r\n  dsp: TTMSFNCTreeViewCacheItem;\r\nbegin\r\n  Result := nil;\r\n  dsp := XYToCacheItem(X, Y, OffsetX);\r\n  if Assigned(dsp) then\r\n    Result := dsp.Node;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleNodeEditing(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer);\r\nvar\r\n  c: TTMSFNCTreeViewColumn;\r\n  ins: Boolean;\r\n  {$IFNDEF LCLWEBLIB}\r\n  AContext: TRttiContext;\r\n  rt: TRttiType;\r\n  propt: TRttiProperty;\r\n  {$ENDIF}\r\n  n: String;\r\n  r: TRectF;\r\n  {$IFDEF FMXLIB}\r\n  trans: Boolean;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  rtr: TRect;\r\n  {$ENDIF}\r\n\r\n  function CreateCaretPos(ALine, APos: Integer): TTMSFNCTreeViewCaretPosition;\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    Result.Line := ALine;\r\n    Result.Pos := APos;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    Result.X := ALine;\r\n    Result.Y := APos;\r\n    {$ENDIF}\r\n  end;\r\nbegin\r\n  if Assigned(ANode) and (AColumn >= 0) and (AColumn <= Columns.Count - 1) then\r\n  begin\r\n    c := Columns[AColumn];\r\n    FInplaceEditorClass := nil;\r\n    if not c.CustomEditor then\r\n    begin\r\n      case c.EditorType of\r\n        tcetEdit: FInplaceEditorClass := TTMSFNCTreeViewEdit;\r\n        tcetComboBox: FInplaceEditorClass := TTMSFNCTreeViewComboBox;\r\n        tcetMemo: FInplaceEditorClass := TTMSFNCTreeViewMemo;\r\n        tcetNone: Exit;\r\n      end;\r\n    end;\r\n\r\n    ins := True;\r\n    DoBeforeOpenInplaceEditor(ANode, AColumn, ins);\r\n    if ins then\r\n    begin\r\n      {$IFDEF FMXLIB}\r\n      trans := True;\r\n      DoGetInplaceEditor(ANode, AColumn, trans, FInplaceEditorClass);\r\n      {$ENDIF}\r\n      {$IFDEF CMNWEBLIB}\r\n      DoGetInplaceEditor(ANode, AColumn, FInplaceEditorClass);\r\n      {$ENDIF}\r\n\r\n      if Assigned(FInplaceEditor) then\r\n      begin\r\n        {$IFDEF FMXLIB}\r\n        FInplaceEditor.Free;\r\n        {$ENDIF}\r\n        {$IFDEF CMNWEBLIB}\r\n        if Assigned(FOldInplaceEditor) then\r\n          FOldInplaceEditor.Free;\r\n\r\n        FOldInplaceEditor := FInplaceEditor;\r\n        {$ENDIF}\r\n        FInplaceEditor := nil;\r\n      end;\r\n\r\n      if Assigned(FInplaceEditorClass) then\r\n        FInplaceEditor := FInplaceEditorClass.Create(Self)\r\n      else\r\n        FInplaceEditor := TEdit.Create(Self);\r\n\r\n      r := GetInplaceEditorRect(ANode, AColumn);\r\n      if Assigned(FInplaceEditor) then\r\n      begin\r\n        FUpdateNode := ANode;\r\n        FUpdateNodeColumn := AColumn;\r\n        {$IFDEF FMXLIB}\r\n        if trans then\r\n        begin\r\n          FInplaceEditor.DisableFocusEffect := True;\r\n          FInplaceEditor.OnApplyStyleLookup := ApplyInplaceEditorStyleLookup;\r\n        end;\r\n        {$ENDIF}\r\n\r\n        {$IFDEF WEBLIB}\r\n        FInplaceEditor.ShowFocus := False;\r\n        {$ENDIF}\r\n\r\n        FInplaceEditor.Parent := Self;\r\n        FInplaceEditor.Visible := False;\r\n        {$IFDEF FMXLIB}\r\n        FInplaceEditor.BoundsRect := r;\r\n        FInplaceEditor.BoundsRect := RectF(r.Left, r.Top + (r.Bottom - r.Top - FInplaceEditor.Height) / 2, r.Right, r.Top + (r.Bottom - r.Top - FInplaceEditor.Height) / 2 + FInplaceEditor.Height);\r\n        {$ENDIF}\r\n        {$IFDEF CMNWEBLIB}\r\n        rtr := Rect(Round(r.Left), Round(r.Top), Round(r.Right), Round(r.Bottom));\r\n        FInplaceEditor.BoundsRect := rtr;\r\n        FInplaceEditor.BoundsRect := Rect(rtr.Left, rtr.Top + (rtr.Bottom - rtr.Top - FInplaceEditor.Height) div 2, rtr.Right, rtr.Top + (rtr.Bottom - rtr.Top - FInplaceEditor.Height) div 2 + FInplaceEditor.Height);\r\n        {$ENDIF}\r\n        FInplaceEditor.Visible := True;\r\n\r\n        if (c.EditorType = tcetComboBox) and not c.CustomEditor and (FInplaceEditor is TComboBox) then\r\n        begin\r\n          (FInplaceEditor as TComboBox).Items.Assign(c.EditorItems);\r\n      \t  {$IFDEF CMNWEBLIB}\r\n          (FInplaceEditor as TComboBox).Style := csDropDownList;\r\n      \t  {$ENDIF}\r\n      \tend;\r\n\r\n        CustomizeInplaceEditor(FInplaceEditor, ANode, c);\r\n\r\n        {$IFNDEF LCLWEBLIB}\r\n        AContext := TRttiContext.Create;\r\n        {$ENDIF}\r\n        try\r\n          {$IFNDEF LCLWEBLIB}\r\n          rt := AContext.GetType(FInplaceEditor.ClassInfo);\r\n          {$ENDIF}\r\n          n := '';\r\n          DoGetNodeText(ANode, AColumn, tntmEditing, n);\r\n          if (FInplaceEditor is TComboBox) then\r\n            (FInplaceEditor as TComboBox).ItemIndex := (FInplaceEditor as TComboBox).Items.IndexOf(n)\r\n          {$IFDEF LCLWEBLIB}\r\n          ;\r\n          {$ENDIF}\r\n          {$IFNDEF LCLWEBLIB}\r\n          else\r\n          begin\r\n            propt := rt.GetProperty('Text');\r\n            if Assigned(propt) then\r\n              propt.SetValue(FInplaceEditor, n)\r\n          end;\r\n          {$ENDIF}\r\n\r\n          {$IFDEF LCLWEBLIB}\r\n          if FInplaceEditor is TEdit then\r\n            (FInplaceEditor as TEdit).Text := n;\r\n\r\n          if FInplaceEditor is TMemo then\r\n            (FInplaceEditor as TMemo).Text := n;\r\n          {$ENDIF}\r\n        finally\r\n          {$IFNDEF LCLWEBLIB}\r\n          AContext.Free;\r\n          {$ENDIF}\r\n        end;\r\n\r\n        if FInplaceEditor.CanFocus then\r\n          FInplaceEditor.SetFocus;\r\n\r\n        if FInplaceEditor is TEdit then\r\n          (FInplaceEditor as TEdit).SelStart := Length((FInplaceEditor as TEdit).Text);\r\n\r\n        if FInplaceEditor is TMemo then\r\n        begin\r\n          (FInplaceEditor as TMemo).SelLength := 0;\r\n          if (FInplaceEditor as TMemo).Lines.Count > 0 then\r\n            (FInplaceEditor as TMemo).CaretPosition := CreateCaretPos((FInplaceEditor as TMemo).Lines.Count - 1, Length((FInplaceEditor as TMemo).Lines[(FInplaceEditor as TMemo).Lines.Count - 1]))\r\n          else\r\n            (FInplaceEditor as TMemo).CaretPosition := CreateCaretPos(0, 0);\r\n        end;\r\n\r\n        FInplaceEditorActive := True;\r\n        Invalidate;\r\n      end;\r\n\r\n      DoAfterOpenInplaceEditor(ANode, AColumn, FInplaceEditor, r);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleNodeExpand(ANode: TTMSFNCTreeViewVirtualNode; ARecurse: Boolean);\r\nvar\r\n  e: Boolean;\r\nbegin\r\n  if Assigned(ANode) then\r\n  begin\r\n    if not ANode.Expanded and (ANode.Children > 0) then\r\n    begin\r\n      e := True;\r\n      BlockUpdateNode := True;\r\n      DoBeforeExpandNode(ANode, e);\r\n      BlockUpdateNode := False;\r\n      if e then\r\n      begin\r\n        ToggleNodeInternal(ANode, ARecurse);\r\n        DoAfterExpandNode(ANode);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleNodeExtra(\r\n  ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleNodeCollapse(ANode: TTMSFNCTreeViewVirtualNode; ARecurse: Boolean);\r\nvar\r\n  e: Boolean;\r\nbegin\r\n  if Assigned(ANode) then\r\n  begin\r\n    if ANode.Expanded and (ANode.Children > 0) then\r\n    begin\r\n      e := True;\r\n      BlockUpdateNode := True;\r\n      DoBeforeCollapseNode(ANode, e);\r\n      BlockUpdateNode := False;\r\n      if e then\r\n      begin\r\n        ToggleNodeInternal(ANode, ARecurse);\r\n        DoAfterCollapseNode(ANode);\r\n      end;\r\n    end\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleNodeTitleExtra(\r\n  ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleNodeToggle(ANode: TTMSFNCTreeViewVirtualNode);\r\nvar\r\n  e: Boolean;\r\nbegin\r\n  if Assigned(ANode) and (ANode.Children > 0) then\r\n  begin\r\n    if ANode.Expanded then\r\n    begin\r\n      e := True;\r\n      BlockUpdateNode := True;\r\n      DoBeforeCollapseNode(ANode, e);\r\n      BlockUpdateNode := False;\r\n      if e then\r\n      begin\r\n        ToggleNodeInternal(ANode);\r\n        DoAfterCollapseNode(ANode);\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      e := True;\r\n      BlockUpdateNode := True;\r\n      DoBeforeExpandNode(ANode, e);\r\n      BlockUpdateNode := False;\r\n      if e then\r\n      begin\r\n        ToggleNodeInternal(ANode);\r\n        DoAfterExpandNode(ANode);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleNodeToggleCheck(ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer);\r\nvar\r\n  chk, e: Boolean;\r\n  chkt: TTMSFNCTreeViewNodeCheckType;\r\nbegin\r\n  if Assigned(ANode) then\r\n  begin\r\n    if (AColumn >= 0) and (AColumn <= Length(ANode.CheckStates) - 1) then\r\n    begin\r\n      chk := ANode.CheckStates[AColumn];\r\n      if chk then\r\n      begin\r\n        chkt := tvntNone;\r\n        DoGetNodeCheckType(ANode, AColumn, chkt);\r\n        if chkt = tvntCheckBox then\r\n        begin\r\n          e := True;\r\n          DoBeforeUnCheckNode(ANode, AColumn, e);\r\n          if e then\r\n          begin\r\n            ToggleCheckNodeInternal(ANode, AColumn);\r\n            DoAfterUnCheckNode(ANode, AColumn);\r\n          end;\r\n        end;\r\n      end\r\n      else\r\n      begin\r\n        e := True;\r\n        DoBeforeCheckNode(ANode, AColumn, e);\r\n        if e then\r\n        begin\r\n          ToggleCheckNodeInternal(ANode, AColumn);\r\n          DoAfterCheckNode(ANode, AColumn);\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTreeView.HandleSelectNode(ANode: TTMSFNCTreeViewVirtualNode;\r\n  ATriggerEvents: Boolean; AKeyBoard: Boolean; AMultiSelect: Boolean; AColumn: Integer);\r\nvar\r\n  I: Integer;\r\n  it: TTMSFNCTreeViewVirtualNode;\r\n  en: Boolean;\r\nbegin\r\n  if not AMultiSelect then\r\n  begin\r\n    for I := FSelectedNodes.Count - 1 downto 0 do\r\n    begin\r\n      it := FSelectedNodes[I];\r\n      if it <> ANode then\r\n      begin\r\n        en := True;\r\n        if ATriggerEvents then\r\n          DoBeforeUnSelectNode(it, en);\r\n\r\n        if en then\r\n        begin\r\n          if FSelectedNodes.IndexOf(it) > -1 then\r\n            FSelectedNodes.Remove(it);\r\n          if ATriggerEvents then\r\n            DoAfterUnSelectNode(it);\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(ANode) then\r\n  begin\r\n    if (FSelectedNodes.IndexOf(ANode) > -1) or ((Assigned(FDownNode) and (FDownNode.ParentNode <> ANode.ParentNode)) and (msSiblingOnly in Interaction.MultiSelectStyle) and AMultiSelect)  then\r\n    begin\r\n      en := True;\r\n      if ATriggerEvents then\r\n        DoBeforeUnSelectNode(ANode, en);\r\n      if en then\r\n      begin\r\n        if FSelectedNodes.IndexOf(ANode) > -1 then\r\n          FSelectedNodes.Remove(ANode);\r\n        if ATriggerEvents then\r\n          DoAfterUnSelectNode(ANode);\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      if (Assigned(FDownNode) and ((FDownNode.ParentNode = ANode.ParentNode) or not AMultiSelect)) or not (msSiblingOnly in Interaction.MultiSelectStyle) then\r\n      begin\r\n        if (VisibleNodes.IndexOf(ANode) > -1) or not (msVisibleOnly in Interaction.MultiSelectStyle) then\r\n        begin\r\n          en := True;\r\n          if ATriggerEvents then\r\n            DoBeforeSelectNode(ANode, en);\r\n\r\n          if en then\r\n          begin\r\n            FSelectedNodes.Add(ANode);\r\n            if ATriggerEvents then\r\n              DoAfterSelectNode(ANode);\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    if not AKeyBoard and ATriggerEvents then\r\n    begin\r\n      DoNodeClick(ANode);\r\n      DoNodeValueClick(ANode, AColumn);\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCTreeViewNodesAppearance }\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCTreeViewNodesAppearance then\r\n  begin\r\n    FFill.Assign((Source as TTMSFNCTreeViewNodesAppearance).Fill);\r\n    FStroke.Assign((Source as TTMSFNCTreeViewNodesAppearance).Stroke);\r\n    FFont.Assign((Source as TTMSFNCTreeViewNodesAppearance).Font);\r\n    FTitleFont.Assign((Source as TTMSFNCTreeViewNodesAppearance).TitleFont);\r\n    FSelectedFill.Assign((Source as TTMSFNCTreeViewNodesAppearance).SelectedFill);\r\n    FSelectedStroke.Assign((Source as TTMSFNCTreeViewNodesAppearance).SelectedStroke);\r\n    FDisabledFill.Assign((Source as TTMSFNCTreeViewNodesAppearance).DisabledFill);\r\n    FDisabledStroke.Assign((Source as TTMSFNCTreeViewNodesAppearance).DisabledStroke);\r\n    FExtendedFill.Assign((Source as TTMSFNCTreeViewNodesAppearance).ExtendedFill);\r\n    FExtendedStroke.Assign((Source as TTMSFNCTreeViewNodesAppearance).ExtendedStroke);\r\n    FExtendedFont.Assign((Source as TTMSFNCTreeViewNodesAppearance).ExtendedFont);\r\n    FExtendedSelectedFill.Assign((Source as TTMSFNCTreeViewNodesAppearance).ExtendedSelectedFill);\r\n    FExtendedSelectedStroke.Assign((Source as TTMSFNCTreeViewNodesAppearance).ExtendedSelectedStroke);\r\n    FExtendedDisabledFill.Assign((Source as TTMSFNCTreeViewNodesAppearance).ExtendedDisabledFill);\r\n    FExtendedDisabledStroke.Assign((Source as TTMSFNCTreeViewNodesAppearance).ExtendedDisabledStroke);\r\n    FExpandColumn := (Source as TTMSFNCTreeViewNodesAppearance).ExpandColumn;\r\n    FExpandWidth := (Source as TTMSFNCTreeViewNodesAppearance).ExpandWidth;\r\n    FExpandHeight := (Source as TTMSFNCTreeViewNodesAppearance).ExpandHeight;\r\n    FFixedHeight := (Source as TTMSFNCTreeViewNodesAppearance).FixedHeight;\r\n    FVariableMinimumHeight := (Source as TTMSFNCTreeViewNodesAppearance).VariableMinimumHeight;\r\n    FSelectedFontColor := (Source as TTMSFNCTreeViewNodesAppearance).SelectedFontColor;\r\n    FDisabledFontColor := (Source as TTMSFNCTreeViewNodesAppearance).DisabledFontColor;\r\n    FSelectedTitleFontColor := (Source as TTMSFNCTreeViewNodesAppearance).SelectedTitleFontColor;\r\n    FDisabledTitleFontColor := (Source as TTMSFNCTreeViewNodesAppearance).DisabledTitleFontColor;\r\n    FExtendedFontColor := (Source as TTMSFNCTreeViewNodesAppearance).ExtendedFontColor;\r\n    FExtendedSelectedFontColor := (Source as TTMSFNCTreeViewNodesAppearance).ExtendedSelectedFontColor;\r\n    FExtendedDisabledFontColor := (Source as TTMSFNCTreeViewNodesAppearance).ExtendedDisabledFontColor;\r\n    FLevelIndent := (Source as TTMSFNCTreeViewNodesAppearance).LevelIndent;\r\n    FSpacing := (Source as TTMSFNCTreeViewNodesAppearance).Spacing;\r\n    FHeightMode := (Source as TTMSFNCTreeViewNodesAppearance).HeightMode;\r\n    FShowLines := (Source as TTMSFNCTreeViewNodesAppearance).ShowLines;\r\n    FShowFocus := (Source as TTMSFNCTreeViewNodesAppearance).ShowFocus;\r\n    FColumnStroke.Assign((Source as TTMSFNCTreeViewNodesAppearance).ColumnStroke);\r\n    FLineStroke.Assign((Source as TTMSFNCTreeViewNodesAppearance).LineStroke);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.Changed(Sender: TObject);\r\nbegin\r\n  FTreeView.UpdateTreeViewCache;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.BitmapChanged(Sender: TObject);\r\nbegin\r\n  FTreeView.UpdateTreeViewCache;\r\nend;\r\n\r\nconstructor TTMSFNCTreeViewNodesAppearance.Create(ATreeView: TTMSFNCCustomTreeView);\r\nbegin\r\n  FTreeView := ATreeView;\r\n  FShowFocus := True;\r\n  FSelectionArea := tsaFromText;\r\n  FExpandColumn := 0;\r\n  FExpandWidth := 15;\r\n  FExpandHeight := 15;\r\n  FFixedHeight := 25;\r\n  FVariableMinimumHeight := 25;\r\n  FShowLines := True;\r\n  FHeightMode := tnhmFixed;\r\n  FLevelIndent := 20;\r\n  FSpacing := 0;\r\n  FSelectedFontColor := gcWhite;\r\n  FDisabledFontColor := gcSilver;\r\n\r\n  FSelectedTitleFontColor := gcWhite;\r\n  FDisabledTitleFontColor := gcSilver;\r\n\r\n  FExtendedFontColor := gcBlack;\r\n  FExtendedSelectedFontColor := gcWhite;\r\n  FExtendedDisabledFontColor := gcSilver;\r\n\r\n  FColumnStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcNull);\r\n  FLineStroke := TTMSFNCGraphicsStroke.Create(gskDot, gcDarkGray);\r\n  FFill :=  TTMSFNCGraphicsFill.Create(gfkSolid, gcNull);\r\n  FStroke := TTMSFNCGraphicsStroke.Create(gskNone, gcDarkGray);\r\n  FSelectedFill := TTMSFNCGraphicsFill.Create(gfkSolid, TTMSFNCTreeViewColorSelection);\r\n  FSelectedStroke := TTMSFNCGraphicsStroke.Create(gskSolid, TTMSFNCTreeViewColorSelection);\r\n  FDisabledFill := TTMSFNCGraphicsFill.Create(gfkSolid, gcDarkGray);\r\n  FDisabledStroke := TTMSFNCGraphicsStroke.Create(gskNone, gcDarkGray);\r\n\r\n  FExtendedFill := TTMSFNCGraphicsFill.Create(gfkSolid, TTMSFNCTreeViewColorExtended);\r\n  FExtendedStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcDarkGray);\r\n  FExtendedSelectedFill := TTMSFNCGraphicsFill.Create(gfkSolid, TTMSFNCTreeViewColorSelection);\r\n  FExtendedSelectedStroke := TTMSFNCGraphicsStroke.Create(gskNone, gcDarkGray);\r\n  FExtendedDisabledFill := TTMSFNCGraphicsFill.Create(gfkSolid, gcDarkGray);\r\n  FExtendedDisabledStroke := TTMSFNCGraphicsStroke.Create(gskNone, gcDarkGray);\r\n\r\n  FExpandNodeIcon := TTMSFNCBitmap(TTMSFNCBitmap.CreateFromResource(TTMSFNCTREEVIEWEXPAND, HInstance));\r\n  FExpandNodeIcon.OnChange := @BitmapChanged;\r\n  FCollapseNodeIcon := TTMSFNCBitmap(TTMSFNCBitmap.CreateFromResource(TTMSFNCTREEVIEWCOLLAPSE, HInstance));\r\n  FCollapseNodeIcon.OnChange := @BitmapChanged;\r\n  FExpandNodeIconLarge := TTMSFNCBitmap(TTMSFNCBitmap.CreateFromResource(TTMSFNCTREEVIEWEXPANDLARGE, HInstance));\r\n  FExpandNodeIconLarge.OnChange := @BitmapChanged;\r\n  FCollapseNodeIconLarge := TTMSFNCBitmap(TTMSFNCBitmap.CreateFromResource(TTMSFNCTREEVIEWCOLLAPSELARGE, HInstance));\r\n  FCollapseNodeIconLarge.OnChange := @BitmapChanged;\r\n\r\n  FFont := TTMSFNCGraphicsFont.Create;\r\n  if Assigned(FTreeView) and FTreeView.IsDesignTime then\r\n    FFont.Color := gcBlack;\r\n\r\n  FTitleFont := TTMSFNCGraphicsFont.Create;\r\n  if Assigned(FTreeView) and FTreeView.IsDesignTime then\r\n    FTitleFont.Color := gcBlack;\r\n\r\n  FFill.OnChanged := @Changed;\r\n  FStroke.OnChanged := @Changed;\r\n\r\n  FSelectedFill.OnChanged := @Changed;\r\n  FSelectedStroke.OnChanged := @Changed;\r\n\r\n  FDisabledFill.OnChanged := @Changed;\r\n  FDisabledStroke.OnChanged := @Changed;\r\n\r\n  FExtendedFont := TTMSFNCGraphicsFont.Create;\r\n\r\n  FExtendedFill.OnChanged := @Changed;\r\n  FExtendedStroke.OnChanged := @Changed;\r\n\r\n  FExtendedSelectedFill.OnChanged := @Changed;\r\n  FExtendedSelectedStroke.OnChanged := @Changed;\r\n\r\n  FExtendedDisabledFill.OnChanged := @Changed;\r\n  FExtendedDisabledStroke.OnChanged := @Changed;\r\n\r\n  FFont.OnChanged := @Changed;\r\n  FExtendedFont.OnChanged := @Changed;\r\nend;\r\n\r\ndestructor TTMSFNCTreeViewNodesAppearance.Destroy;\r\nbegin\r\n  FLineStroke.Free;\r\n  FColumnStroke.Free;\r\n\r\n  FExpandNodeIconLarge.Free;\r\n  FCollapseNodeIconLarge.Free;\r\n  FExpandNodeIcon.Free;\r\n  FCollapseNodeIcon.Free;\r\n\r\n  FFill.Free;\r\n  FStroke.Free;\r\n  FFont.Free;\r\n  FTitleFont.Free;\r\n\r\n  FSelectedFill.Free;\r\n  FSelectedStroke.Free;\r\n\r\n  FDisabledFill.Free;\r\n  FDisabledStroke.Free;\r\n\r\n  FExtendedFill.Free;\r\n  FExtendedStroke.Free;\r\n  FExtendedFont.Free;\r\n\r\n  FExtendedSelectedFill.Free;\r\n  FExtendedSelectedStroke.Free;\r\n\r\n  FExtendedDisabledFill.Free;\r\n  FExtendedDisabledStroke.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewNodesAppearance.IsSpacingStored: Boolean;\r\nbegin\r\n  Result := Spacing <> 0;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetSelectedFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FSelectedFill <> Value then\r\n    FSelectedFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetSelectedStroke(const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FSelectedStroke <> Value then\r\n    FSelectedStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetSelectedTitleFontColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FSelectedTitleFontColor <> Value then\r\n  begin\r\n    FSelectedTitleFontColor := Value;\r\n    FTreeView.Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetSelectionArea(const Value: TTMSFNCTreeViewSelectionArea);\r\nbegin\r\n  if FSelectionArea <> Value then\r\n  begin\r\n    FSelectionArea := Value;\r\n    FTreeView.Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetShowFocus(const Value: Boolean);\r\nbegin\r\n  if FShowFocus <> Value then\r\n  begin\r\n    FShowFocus := Value;\r\n    FTreeView.Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetShowLines(const Value: Boolean);\r\nbegin\r\n  if FShowLines <> Value then\r\n  begin\r\n    FShowLines := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetSpacing(const Value: Double);\r\nbegin\r\n  if FSpacing <> Value then\r\n  begin\r\n    FSpacing := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FFill <> Value then\r\n    FFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetExtendedFontColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FExtendedFontColor <> Value then\r\n  begin\r\n    FExtendedFontColor := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetExtendedSelectedFontColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FExtendedSelectedFontColor <> Value then\r\n  begin\r\n    FExtendedSelectedFontColor := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetExtendedDisabledFontColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FExtendedDisabledFontColor <> Value then\r\n  begin\r\n    FExtendedDisabledFontColor := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetSelectedFontColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FSelectedFontColor <> Value then\r\n  begin\r\n    FSelectedFontColor := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetDisabledFontColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FDisabledFontColor <> Value then\r\n  begin\r\n    FDisabledFontColor := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetFixedHeight(const Value: Double);\r\nbegin\r\n  if FFixedHeight <> Value then\r\n  begin\r\n    FFixedHeight := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetVariableMinimumHeight(const Value: Double);\r\nbegin\r\n  if FVariableMinimumHeight <> Value then\r\n  begin\r\n    FVariableMinimumHeight := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  if FFont <> Value then\r\n    FFont.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetExtendedDisabledFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FExtendedDisabledFill <> Value then\r\n    FExtendedDisabledFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetExtendedDisabledStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FExtendedDisabledStroke <> Value then\r\n    FExtendedDisabledStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetExtendedSelectedFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FExtendedSelectedFill <> Value then\r\n    FExtendedSelectedFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetExtendedSelectedStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FExtendedSelectedStroke <> Value then\r\n    FExtendedSelectedStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetExtendedFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FExtendedFill <> Value then\r\n    FExtendedFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetExtendedFont(\r\n  const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  if FExtendedFont <> Value then\r\n    FExtendedFont.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetExtendedStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FExtendedStroke <> Value then\r\n    FExtendedStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetHeightMode(\r\n  const Value: TTMSFNCTreeViewNodeHeightMode);\r\nbegin\r\n  if FHeightMode <> Value then\r\n  begin\r\n    FHeightMode := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetLevelIndent(const Value: Double);\r\nbegin\r\n  if FLevelIndent <> Value then\r\n  begin\r\n    FLevelIndent := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetExpandNodeIcon(const Value: TTMSFNCBitmap);\r\nbegin\r\n  if FExpandNodeIcon <> Value then\r\n  begin\r\n    FExpandNodeIcon.Assign(Value);\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetExpandNodeIconLarge(const Value: TTMSFNCBitmap);\r\nbegin\r\n  if FExpandNodeIconLarge <> Value then\r\n  begin\r\n    FExpandNodeIconLarge.Assign(Value);\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetCollapseNodeIconLarge(const Value: TTMSFNCBitmap);\r\nbegin\r\n  if FCollapseNodeIconLarge <> Value then\r\n  begin\r\n    FCollapseNodeIconLarge.Assign(Value);\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetColumnStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FColumnStroke <> Value then\r\n    FColumnStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetLineStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FLineStroke <> Value then\r\n    FLineStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetExpandColumn(const Value: Integer);\r\nbegin\r\n  if FExpandColumn <> Value then\r\n  begin\r\n    FExpandColumn := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetExpandWidth(const Value: Double);\r\nbegin\r\n  if FExpandWidth <> Value then\r\n  begin\r\n    FExpandWidth := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetExpandHeight(const Value: Double);\r\nbegin\r\n  if FExpandHeight <> Value then\r\n  begin\r\n    FExpandHeight := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetStroke(const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FStroke <> Value then\r\n    FStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetTitleFont(\r\n  const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  if FTitleFont <> Value then\r\n    FTitleFont.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetCollapseNodeIcon(\r\n  const Value: TTMSFNCBitmap);\r\nbegin\r\n  if FCollapseNodeIcon <> Value then\r\n  begin\r\n    FCollapseNodeIcon.Assign(Value);\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetDisabledFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FDisabledFill <> Value then\r\n    FDisabledFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetDisabledStroke(const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FDisabledStroke <> Value then\r\n    FDisabledStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewNodesAppearance.SetDisabledTitleFontColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FDisabledTitleFontColor <> Value then\r\n  begin\r\n    FDisabledTitleFontColor := Value;\r\n    FTreeView.Invalidate;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCTreeViewColumnsAppearance }\r\n\r\nprocedure TTMSFNCTreeViewColumnsAppearance.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCTreeViewColumnsAppearance then\r\n  begin\r\n    FSortIndicatorColor := (Source as TTMSFNCTreeViewColumnsAppearance).SortIndicatorColor;\r\n    FLayouts := (Source as TTMSFNCTreeViewColumnsAppearance).Layouts;\r\n    FTopSize := (Source as TTMSFNCTreeViewColumnsAppearance).TopSize;\r\n    FBottomSize := (Source as TTMSFNCTreeViewColumnsAppearance).BottomSize;\r\n    FBottomFill.Assign((Source as TTMSFNCTreeViewColumnsAppearance).BottomFill);\r\n    FBottomFont.Assign((Source as TTMSFNCTreeViewColumnsAppearance).BottomFont);\r\n    FBottomStroke.Assign((Source as TTMSFNCTreeViewColumnsAppearance).BottomStroke);\r\n    FTopFill.Assign((Source as TTMSFNCTreeViewColumnsAppearance).TopFill);\r\n    FTopStroke.Assign((Source as TTMSFNCTreeViewColumnsAppearance).TopStroke);\r\n    FTopFont.Assign((Source as TTMSFNCTreeViewColumnsAppearance).TopFont);\r\n    FStretch := (Source as TTMSFNCTreeViewColumnsAppearance).Stretch;\r\n    FOptimizedColumnDisplay := (Source as TTMSFNCTreeViewColumnsAppearance).OptimizedColumnDisplay;\r\n    FStretchColumn  := (Source as TTMSFNCTreeViewColumnsAppearance).StretchColumn;\r\n    FStretchAll := (Source as TTMSFNCTreeViewColumnsAppearance).StretchAll;\r\n    FTopVerticalText := (Source as TTMSFNCTreeViewColumnsAppearance).TopVerticalText;\r\n    FBottomVerticalText := (Source as TTMSFNCTreeViewColumnsAppearance).BottomVerticalText;\r\n    FFillEmptySpaces := (Source as TTMSFNCTreeViewColumnsAppearance).FillEmptySpaces;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCTreeViewColumnsAppearance.Create(\r\n  ATreeView: TTMSFNCCustomTreeView);\r\nbegin\r\n  FTreeView := ATreeView;\r\n  FSortIndicatorColor := gcSteelblue;\r\n  FLayouts := [tclTop];\r\n  FFillEmptySpaces := True;\r\n  FOptimizedColumnDisplay := True;\r\n  FStretch := True;\r\n  FStretchAll := True;\r\n  FStretchColumn := -1;\r\n  FBottomSize := 25;\r\n  FTopVerticalText := False;\r\n  FStretchAll := True;\r\n  FBottomVerticalText := False;\r\n  FTopSize := 25;\r\n  FTopHorizontalTextAlign := gtaCenter;\r\n  FTopVerticalTextAlign := gtaCenter;\r\n  FBottomHorizontalTextAlign := gtaCenter;\r\n  FBottomVerticalTextAlign := gtaCenter;\r\n  FBottomFill := TTMSFNCGraphicsFill.Create(gfkSolid, gcWhite);\r\n  FBottomStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcDarkGray);\r\n  FTopFill := TTMSFNCGraphicsFill.Create(gfkSolid, gcWhite);\r\n  FTopStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcDarkGray);\r\n\r\n  FTopFont := TTMSFNCGraphicsFont.Create;\r\n  FTopFont.Color := gcBlack;\r\n  FBottomFont := TTMSFNCGraphicsFont.Create;\r\n  FBottomFont.Color := gcBlack;\r\n\r\n  FBottomFill.OnChanged := @Changed;\r\n  FTopFill.OnChanged := @Changed;\r\n  FBottomStroke.OnChanged := @Changed;\r\n  FTopStroke.OnChanged := @Changed;\r\n\r\n  FTopFont.OnChanged := @Changed;\r\n  FBottomFont.OnChanged := @Changed;\r\nend;\r\n\r\ndestructor TTMSFNCTreeViewColumnsAppearance.Destroy;\r\nbegin\r\n  FTopFont.Free;\r\n  FBottomFont.Free;\r\n  FBottomFill.Free;\r\n  FTopFill.Free;\r\n  FBottomStroke.Free;\r\n  FTopStroke.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumnsAppearance.Changed(Sender: TObject);\r\nbegin\r\n  FTreeView.UpdateTreeViewCache;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumnsAppearance.SetBottomFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FBottomFill <> Value then\r\n    FBottomFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumnsAppearance.SetBottomFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  if FBottomFont <> Value then\r\n    FBottomFont.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumnsAppearance.SetBottomSize(const Value: Double);\r\nbegin\r\n  if FBottomSize <> Value then\r\n  begin\r\n    FBottomSize := Value;\r\n    FTreeView.UpdateTreeViewCache;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumnsAppearance.SetBottomStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FBottomStroke <> Value then\r\n    FBottomStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumnsAppearance.SetBottomVerticalText(\r\n  const Value: Boolean);\r\nbegin\r\n  if FBottomVerticalText <> Value then\r\n  begin\r\n    FBottomVerticalText := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumnsAppearance.SetFillEmptySpaces(\r\n  const Value: Boolean);\r\nbegin\r\n  if FFillEmptySpaces <> Value then\r\n  begin\r\n    FFillEmptySpaces := Value;\r\n    FTreeView.Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumnsAppearance.SetLayouts(\r\n  const Value: TTMSFNCTreeViewColumnsLayouts);\r\nbegin\r\n  if FLayouts <> Value then\r\n  begin\r\n    FLayouts := Value;\r\n    FTreeView.UpdateTreeViewCache;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumnsAppearance.SetOptimizedColumnDisplay(\r\n  const Value: Boolean);\r\nbegin\r\n  if FOptimizedColumnDisplay <> Value then\r\n  begin\r\n    FOptimizedColumnDisplay := Value;\r\n    FTreeView.UpdateColumns;\r\n    FTreeView.UpdateTreeViewCache;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumnsAppearance.SetSortIndicatorColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FSortIndicatorColor <> Value then\r\n  begin\r\n    FSortIndicatorColor := Value;\r\n    FTreeView.Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumnsAppearance.SetStretch(const Value: Boolean);\r\nbegin\r\n  if FStretch <> Value then\r\n  begin\r\n    FStretch := Value;\r\n    FTreeView.UpdateColumns;\r\n    FTreeView.UpdateTreeViewCache;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumnsAppearance.SetStretchColumn(const Value: Integer);\r\nbegin\r\n  if FStretchColumn <> Value then\r\n  begin\r\n    FStretchColumn := Value;\r\n    FTreeView.UpdateColumns;\r\n    FTreeView.UpdateTreeViewCache;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumnsAppearance.SetStretchAll(const Value: Boolean);\r\nbegin\r\n  if FStretchAll <> Value then\r\n  begin\r\n    FStretchAll := Value;\r\n    FTreeView.UpdateColumns;\r\n    FTreeView.UpdateTreeViewCache;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumnsAppearance.SetTopFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FTopFill <> Value then\r\n    FTopFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumnsAppearance.SetTopFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  if FTopFont <> Value then\r\n    FTopFont.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumnsAppearance.SetTopSize(const Value: Double);\r\nbegin\r\n  if FTopSize <> Value then\r\n  begin\r\n    FTopSize := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumnsAppearance.SetTopStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FTopStroke <> Value then\r\n    FTopStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewColumnsAppearance.SetTopVerticalText(\r\n  const Value: Boolean);\r\nbegin\r\n  if FTopVerticalText <> Value then\r\n  begin\r\n    FTopVerticalText := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCTreeViewGroupsAppearance }\r\n\r\nprocedure TTMSFNCTreeViewGroupsAppearance.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCTreeViewGroupsAppearance then\r\n  begin\r\n    FLayouts := (Source as TTMSFNCTreeViewGroupsAppearance).Layouts;\r\n    FTopSize := (Source as TTMSFNCTreeViewGroupsAppearance).TopSize;\r\n    FBottomSize := (Source as TTMSFNCTreeViewGroupsAppearance).BottomSize;\r\n    FBottomFill.Assign((Source as TTMSFNCTreeViewGroupsAppearance).BottomFill);\r\n    FBottomFont.Assign((Source as TTMSFNCTreeViewGroupsAppearance).BottomFont);\r\n    FBottomStroke.Assign((Source as TTMSFNCTreeViewGroupsAppearance).BottomStroke);\r\n    FTopFill.Assign((Source as TTMSFNCTreeViewGroupsAppearance).TopFill);\r\n    FTopStroke.Assign((Source as TTMSFNCTreeViewGroupsAppearance).TopStroke);\r\n    FTopFont.Assign((Source as TTMSFNCTreeViewGroupsAppearance).TopFont);\r\n    FTopHorizontalTextAlign := (Source as TTMSFNCTreeViewGroupsAppearance).TopHorizontalTextAlign;\r\n    FTopVerticalTextAlign := (Source as TTMSFNCTreeViewGroupsAppearance).TopVerticalTextAlign;\r\n    FBottomHorizontalTextAlign := (Source as TTMSFNCTreeViewGroupsAppearance).BottomHorizontalTextAlign;\r\n    FBottomVerticalTextAlign := (Source as TTMSFNCTreeViewGroupsAppearance).BottomVerticalTextAlign;\r\n    FTopVerticalText := (Source as TTMSFNCTreeViewGroupsAppearance).TopVerticalText;\r\n    FBottomVerticalText := (Source as TTMSFNCTreeViewGroupsAppearance).BottomVerticalText;\r\n    FFillEmptySpaces := (Source as TTMSFNCTreeViewGroupsAppearance).FillEmptySpaces;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCTreeViewGroupsAppearance.Create(\r\n  ATreeView: TTMSFNCCustomTreeView);\r\nbegin\r\n  FTreeView := ATreeView;\r\n  FLayouts := [tglTop];\r\n  FFillEmptySpaces := True;\r\n  FTopSize := 50;\r\n  FBottomSize := 50;\r\n  FTopVerticalText := False;\r\n  FBottomVerticalText := False;\r\n  FTopHorizontalTextAlign := gtaCenter;\r\n  FTopVerticalTextAlign := gtaCenter;\r\n  FBottomHorizontalTextAlign := gtaCenter;\r\n  FBottomVerticalTextAlign := gtaCenter;\r\n  FBottomFill := TTMSFNCGraphicsFill.Create(gfkSolid, gcWhite);\r\n  FBottomStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcDarkGray);\r\n  FTopFill := TTMSFNCGraphicsFill.Create(gfkSolid, gcWhite);\r\n  FTopStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcDarkGray);\r\n\r\n  FTopFont := TTMSFNCGraphicsFont.Create;\r\n  FTopFont.Color := gcBlack;\r\n  FBottomFont := TTMSFNCGraphicsFont.Create;\r\n  FBottomFont.Color := gcBlack;\r\n\r\n  FBottomFill.OnChanged := @Changed;\r\n  FTopFill.OnChanged := @Changed;\r\n  FBottomStroke.OnChanged := @Changed;\r\n  FTopStroke.OnChanged := @Changed;\r\n\r\n  FTopFont.OnChanged := @Changed;\r\n  FBottomFont.OnChanged := @Changed;\r\nend;\r\n\r\ndestructor TTMSFNCTreeViewGroupsAppearance.Destroy;\r\nbegin\r\n  FBottomFont.Free;\r\n  FTopFont.Free;\r\n  FBottomFill.Free;\r\n  FBottomStroke.Free;\r\n  FTopFill.Free;\r\n  FTopStroke.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroupsAppearance.Changed(Sender: TObject);\r\nbegin\r\n  FTreeView.UpdateTreeViewCache;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroupsAppearance.SetBottomFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FBottomFill <> Value then\r\n    FBottomFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroupsAppearance.SetBottomHorizontalTextAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FBottomHorizontalTextAlign <> Value then\r\n  begin\r\n    FBottomHorizontalTextAlign := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroupsAppearance.SetBottomFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  if FBottomFont <> Value then\r\n    FBottomFont.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroupsAppearance.SetBottomSize(const Value: Double);\r\nbegin\r\n  if FBottomSize <> Value then\r\n  begin\r\n    FBottomSize := Value;\r\n    FTreeView.UpdateTreeViewCache;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroupsAppearance.SetBottomStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FBottomStroke <> Value then\r\n    FBottomStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroupsAppearance.SetBottomVerticalTextAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FBottomVerticalTextAlign <> Value then\r\n  begin\r\n    FBottomVerticalTextAlign := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroupsAppearance.SetBottomVerticalText(\r\n  const Value: Boolean);\r\nbegin\r\n  if FBottomVerticalText <> Value then\r\n  begin\r\n    FBottomVerticalText := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroupsAppearance.SetFillEmptySpaces(\r\n  const Value: Boolean);\r\nbegin\r\n  if FFillEmptySpaces <> Value then\r\n  begin\r\n    FFillEmptySpaces := Value;\r\n    FTreeView.Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroupsAppearance.SetLayouts(\r\n  const Value: TTMSFNCTreeViewGroupsLayouts);\r\nbegin\r\n  if FLayouts <> Value then\r\n  begin\r\n    FLayouts := Value;\r\n    FTreeView.UpdateTreeViewCache;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroupsAppearance.SetTopFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FTopFill <> Value then\r\n    FTopFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroupsAppearance.SetTopFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  if FTopFont <> Value then\r\n    FTopFont.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroupsAppearance.SetTopHorizontalTextAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FTopHorizontalTextAlign <> Value then\r\n  begin\r\n    FTopHorizontalTextAlign := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroupsAppearance.SetTopSize(const Value: Double);\r\nbegin\r\n  if FTopSize <> Value then\r\n  begin\r\n    FTopSize := Value;\r\n    FTreeView.UpdateTreeViewCache;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroupsAppearance.SetTopStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FTopStroke <> Value then\r\n    FTopStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroupsAppearance.SetTopVerticalTextAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FTopVerticalTextAlign <> Value then\r\n  begin\r\n    FTopVerticalTextAlign := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewGroupsAppearance.SetTopVerticalText(const Value: Boolean);\r\nbegin\r\n  if FTopVerticalText <> Value then\r\n  begin\r\n    FTopVerticalText := Value;\r\n    Changed(Self);\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCTreeViewInteraction }\r\n\r\nprocedure TTMSFNCTreeViewInteraction.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTMSFNCTreeViewInteraction) then\r\n  begin\r\n    FMultiSelect := (Source as TTMSFNCTreeViewInteraction).MultiSelect;\r\n    FTouchScrolling := (Source as TTMSFNCTreeViewInteraction).TouchScrolling;\r\n    FReadOnly := (Source as TTMSFNCTreeViewInteraction).ReadOnly;\r\n    FColumnSizing := (Source as TTMSFNCTreeViewInteraction).ColumnSizing;\r\n    FColumnAutoSizeOnDblClick := (Source as TTMSFNCTreeViewInteraction).ColumnAutoSizeOnDblClick;\r\n    FExtendedSelectable := (Source as TTMSFNCTreeViewInteraction).ExtendedSelectable;\r\n    FSelectionFollowsFocus := (Source as TTMSFNCTreeViewInteraction).SelectionFollowsFocus;\r\n    FKeyboardEdit := (Source as TTMSFNCTreeViewInteraction).KeyboardEdit;\r\n    FMouseEditMode := (Source as TTMSFNCTreeViewInteraction).MouseEditMode;\r\n    FExtendedEditable := (Source as TTMSFNCTreeViewInteraction).ExtendedEditable;\r\n    FClipboardMode := (Source as TTMSFNCTreeViewInteraction).ClipboardMode;\r\n    FReorder := (Source as TTMSFNCTreeViewInteraction).Reorder;\r\n    FDragDropMode := (Source as TTMSFNCTreeViewInteraction).DragDropMode;\r\n    FLookup.Assign((Source as TTMSFNCTreeViewInteraction).Lookup);\r\n    FExpandCollapseOnDblClick := (Source as TTMSFNCTreeViewInteraction).ExpandCollapseOnDblClick;\r\n    FAutoOpenURL := (Source as TTMSFNCTreeViewInteraction).AutoOpenURL;\r\n    FURLDetectionOnMouseMove := (Source as TTMSFNCTreeViewInteraction).URLDetectionOnMouseMove;\r\n    FMouseWheelDelta := (Source as TTMSFNCTreeViewInteraction).MouseWheelDelta;\r\n    FAnimationFactor := (Source as TTMSFNCTreeViewInteraction).AnimationFactor;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCTreeViewInteraction.Create(ATreeView: TTMSFNCCustomTreeView);\r\nbegin\r\n  FTreeView := ATreeView;\r\n  FAutoOpenURL := True;\r\n  FAnimationFactor := 2.5;\r\n  FMouseWheelDelta := 1;\r\n  FClipboardMode := tcmNone;\r\n  FExpandCollapseOnDblClick := True;\r\n  FReorder := False;\r\n  FDragDropMode := tdmNone;\r\n  FReadOnly := False;\r\n  FURLDetectionOnMouseMove := True;\r\n  FSelectionFollowsFocus := True;\r\n  FTouchScrolling := True;\r\n  FKeyboardEdit := True;\r\n  FExtendedSelectable := False;\r\n  FMultiSelect := False;\r\n  FColumnSizing := False;\r\n  FExtendedEditable := False;\r\n  FColumnAutoSizeOnDblClick := False;\r\n  FMouseEditMode := tmemSingleClickOnSelectedNode;\r\n  FLookup := TTMSFNCTreeViewLookup.Create(Self);\r\n  FMultiSelectStyle := [msControlSelect, msShiftSelect];\r\nend;\r\n\r\ndestructor TTMSFNCTreeViewInteraction.Destroy;\r\nbegin\r\n  FLookup.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewInteraction.IsAnimationFactorStored: Boolean;\r\nbegin\r\n  Result := AnimationFactor <> 2.5;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewInteraction.IsMouseWheelDeltaStored: Boolean;\r\nbegin\r\n  Result := MouseWheelDelta <> 1;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewInteraction.SetColumnAutoSizeOnDblClick(\r\n  const Value: Boolean);\r\nbegin\r\n  if FColumnAutoSizeOnDblClick <> Value then\r\n    FColumnAutoSizeOnDblClick := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewInteraction.SetColumnSizing(const Value: Boolean);\r\nbegin\r\n  if FColumnSizing <> Value then\r\n  begin\r\n    FColumnSizing := Value;\r\n    if Assigned(FTreeView) and FColumnSizing then\r\n      FTreeView.ColumnsAppearance.StretchAll := False;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewInteraction.SetDragDropMode(const Value: TTMSFNCTreeViewDragDropMode);\r\nbegin\r\n  if FDragDropMode <> Value then\r\n    FDragDropMode := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewInteraction.SetExpandCollapseOnDblClick(\r\n  const Value: Boolean);\r\nbegin\r\n  if FExpandCollapseOnDblClick <> Value then\r\n    FExpandCollapseOnDblClick := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewInteraction.SetExtendedEditable(const Value: Boolean);\r\nbegin\r\n  if FExtendedEditable <> Value then\r\n    FExtendedEditable := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewInteraction.SetExtendedSelectable(\r\n  const Value: Boolean);\r\nbegin\r\n  if FExtendedSelectable <> Value then\r\n    FExtendedSelectable := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewInteraction.SetLookup(\r\n  const Value: TTMSFNCTreeViewLookup);\r\nbegin\r\n  if FLookup <> Value then\r\n    FLookup.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewInteraction.SetMouseEditMode(\r\n  const Value: TTMSFNCTreeViewMouseEditMode);\r\nbegin\r\n  if FMouseEditMode <> Value then\r\n    FMouseEditMode := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewInteraction.SetMouseWheelDelta(const Value: Single);\r\nbegin\r\n  FMouseWheelDelta := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewInteraction.SetMultiSelect(const Value: Boolean);\r\nbegin\r\n  if FMultiSelect <> Value then\r\n    FMultiSelect := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewInteraction.SetMultiSelectStyle(const Value: TMultiSelectStyle);\r\nbegin\r\n  if Value <> FMultiSelectStyle then\r\n  begin\r\n    FMultiSelectStyle := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewInteraction.SetReadOnly(const Value: Boolean);\r\nbegin\r\n  if FReadOnly <> Value then\r\n    FReadOnly := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewInteraction.SetReorder(const Value: Boolean);\r\nbegin\r\n  if FReorder <> Value then\r\n    FReorder := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewInteraction.SetSelectionFollowsFocus(\r\n  const Value: Boolean);\r\nbegin\r\n  if FSelectionFollowsFocus <> Value then\r\n    FSelectionFollowsFocus := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewInteraction.SetTouchScrolling(const Value: Boolean);\r\nbegin\r\n  if FTouchScrolling <> Value then\r\n    FTouchScrolling := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewInteraction.SetURLDetectionOnMouseMove(\r\n  const Value: Boolean);\r\nbegin\r\n  if FURLDetectionOnMouseMove <> Value then\r\n  begin\r\n    FURLDetectionOnMouseMove := Value;\r\n  end;\r\nend;\r\n\r\n{$IFDEF CMNWEBLIB}\r\nconstructor TTMSFNCTreeViewEdit.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  if AOwner is TTMSFNCCustomTreeView then\r\n    FTreeView := AOwner as TTMSFNCCustomTreeView;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewEdit.DoExit;\r\nbegin\r\n  inherited;\r\n  if Assigned(FTreeView) and FTreeView.FInplaceEditorActive then\r\n    FTreeView.CloseInplaceEditor(False);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewEdit.KeyDown(var Key: Word; Shift: TShiftState);\r\nbegin\r\n  inherited;\r\n  if Assigned(FTreeView) and FTreeView.FInplaceEditorActive then\r\n  begin\r\n    case Key of\r\n      KEY_ESCAPE:\r\n      begin\r\n        FTreeView.CloseInplaceEditor(True, True);\r\n        Key := 0;\r\n      end;\r\n      KEY_F2, KEY_RETURN:\r\n      begin\r\n        FTreeView.CloseInplaceEditor(False, True);\r\n        Key := 0;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCTreeViewMemo.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  if AOwner is TTMSFNCCustomTreeView then\r\n    FTreeView := AOwner as TTMSFNCCustomTreeView;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewMemo.DoExit;\r\nbegin\r\n  inherited;\r\n  if Assigned(FTreeView) and FTreeView.FInplaceEditorActive then\r\n    FTreeView.CloseInplaceEditor(False);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewMemo.KeyDown(var Key: Word; Shift: TShiftState);\r\nbegin\r\n  inherited;\r\n  if Assigned(FTreeView) and FTreeView.FInplaceEditorActive then\r\n  begin\r\n    case Key of\r\n      KEY_ESCAPE:\r\n      begin\r\n        FTreeView.CloseInplaceEditor(True, True);\r\n        Key := 0;\r\n      end;\r\n      KEY_F2:\r\n      begin\r\n        FTreeView.CloseInplaceEditor(False, True);\r\n        Key := 0;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF FMXLIB}\r\nfunction TTMSFNCTreeViewEdit.GetDefaultStyleLookupName: string;\r\nbegin\r\n  Result := 'editstyle';\r\nend;\r\n{$ENDIF}\r\n\r\n{ TTMSFNCTreeViewLookup }\r\n\r\nprocedure TTMSFNCTreeViewLookup.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCTreeViewLookup then\r\n  begin\r\n    FEnabled := (Source as TTMSFNCTreeViewLookup).Enabled;\r\n    FCaseSensitive := (Source as TTMSFNCTreeViewLookup).CaseSensitive;\r\n    FIncremental := (Source as TTMSFNCTreeViewLookup).Incremental;\r\n    FColumn := (Source as TTMSFNCTreeViewLookup).Column;\r\n    FAutoSelect := (Source as TTMSFNCTreeViewLookup).AutoSelect;\r\n    FAutoExpand := (Source as TTMSFNCTreeViewLookup).AutoExpand;\r\n    FRootNodesOnly := (Source as TTMSFNCTreeViewLookup).RootNodesOnly;\r\n    FVisibleNodesOnly := (Source as TTMSFNCTreeViewLookup).VisibleNodesOnly;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCTreeViewLookup.Create(AOwner: TTMSFNCTreeViewInteraction);\r\nbegin\r\n  FOwner := AOwner;\r\n  FEnabled := True;\r\n  FCaseSensitive := False;\r\n  FIncremental := True;\r\n  FColumn := -1;\r\n  FAutoSelect := True;\r\n  FAutoExpand := False;\r\n  FRootNodesOnly := False;\r\n  FVisibleNodesOnly := False;\r\nend;\r\n\r\ndestructor TTMSFNCTreeViewLookup.Destroy;\r\nbegin\r\n\r\n  inherited;\r\nend;\r\n\r\n{ TTMSFNCTreeViewAdapter }\r\n\r\nprocedure TTMSFNCTreeViewAdapter.ExportNotification(AState: TTMSFNCTreeViewExportState; ARow: Integer);\r\nbegin\r\n\r\nend;\r\n\r\nconstructor TTMSFNCTreeViewAdapter.Create(AOwner: TComponent);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  inherited;\r\n  FActive := False;\r\n  if IsDesignTime and Assigned(AOwner) and (AOwner is TCustomForm) then\r\n  begin\r\n    for I := 0 to AOwner.ComponentCount - 1 do\r\n    begin\r\n      if (AOwner.Components[i] is TTMSFNCCustomTreeView) then\r\n      begin\r\n        TreeView := AOwner.Components[i] as TTMSFNCCustomTreeView;\r\n        Break;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewAdapter.Notification(AComponent: TComponent;\r\n  Operation: TOperation);\r\nbegin\r\n  inherited;\r\n  if (Operation = opRemove) and (AComponent = FTreeView) then\r\n    FTreeView := nil;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewAdapter.ScrollTreeView(ADelta: Integer);\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewAdapter.SelectNode(ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewAdapter.SetActive(const Value: boolean);\r\nbegin\r\n  FActive := Value;\r\n  if not Assigned(TreeView) then\r\n    Exit;\r\n  Initialize;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewAdapter.SetTreeView(const Value: TTMSFNCCustomTreeView);\r\nbegin\r\n  if FTreeView <> Value then\r\n  begin\r\n    FTreeView := Value;\r\n    if FBlockAdd then\r\n      Exit;\r\n\r\n    FBlockAdd := True;\r\n    if Assigned(FTreeView) then\r\n    begin\r\n      FTreeView.Adapter := Self;\r\n      Initialize;\r\n    end;\r\n    FBlockAdd := False;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewAdapter.UpdateBounds;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewAdapter.GetNodeText(ACol: Integer; ANode: TTMSFNCTreeViewVirtualNode;\r\n  var AText: String);\r\nbegin\r\n\r\nend;\r\n\r\nfunction TTMSFNCTreeViewAdapter.GetColumnDisplayName(ACol: Integer): String;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCTreeViewAdapter.GetInstance: NativeUInt;\r\nbegin\r\n  Result := HInstance;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewAdapter.GetNumberOfNodes(ANode: TTMSFNCTreeViewVirtualNode; var ANumberOfNodes: Integer);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewAdapter.Initialize;\r\nbegin\r\nend;\r\n\r\n{$IFDEF WEBLIB}\r\nfunction TTMSFNCTreeViewCache.GetItem(Index: Integer): TTMSFNCTreeViewCacheItem;\r\nbegin\r\n  Result := TTMSFNCTreeViewCacheItem(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewCache.SetItem(Index: Integer; const Value: TTMSFNCTreeViewCacheItem);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewDisplayList.GetItem(Index: Integer): TTMSFNCTreeViewCacheItem;\r\nbegin\r\n  Result := TTMSFNCTreeViewCacheItem(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewDisplayList.SetItem(Index: Integer; const Value: TTMSFNCTreeViewCacheItem);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewSelectedNodes.GetItem(Index: Integer): TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := TTMSFNCTreeViewVirtualNode(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewSelectedNodes.SetItem(Index: Integer; const Value: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF FNCLIB}\r\n{ TTMSFNCTreeViewViewJSONOptions }\r\n\r\nprocedure TTMSFNCTreeViewViewJSONOptions.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTMSFNCTreeViewViewJSONOptions) then\r\n  begin\r\n    FExpandNodes := (Source as TTMSFNCTreeViewViewJSONOptions).ExpandNodes;\r\n    FStretchColumn := (Source as TTMSFNCTreeViewViewJSONOptions).StretchColumn;\r\n    FNameHTMLTemplate := (Source as TTMSFNCTreeViewViewJSONOptions).NameHTMLTemplate;\r\n    FValueHTMLTemplate := (Source as TTMSFNCTreeViewViewJSONOptions).ValueHTMLTemplate;\r\n    FArrayItemPrefix := (Source as TTMSFNCTreeViewViewJSONOptions).ArrayItemPrefix;\r\n    FArrayItemSuffix := (Source as TTMSFNCTreeViewViewJSONOptions).ArrayItemSuffix;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewViewJSONOptions.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nconstructor TTMSFNCTreeViewViewJSONOptions.Create;\r\nbegin\r\n  FExpandNodes := True;\r\n  FStretchColumn := 1;\r\n  FNameHTMLTemplate := '<#NAME>';\r\n  FValueHTMLTemplate := '<#VALUE>';\r\n  FArrayItemPrefix := '';\r\n  FArrayItemSuffix := '';\r\nend;\r\n\r\ndestructor TTMSFNCTreeViewViewJSONOptions.Destroy;\r\nbegin\r\n\r\n  inherited;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF WEBLIB}\r\ninitialization\r\nbegin\r\n  TTMSFNCBitmap.CreateFromResource(TTMSFNCTREEVIEWEXPAND);\r\n  TTMSFNCBitmap.CreateFromResource(TTMSFNCTREEVIEWEXPANDLARGE);\r\n  TTMSFNCBitmap.CreateFromResource(TTMSFNCTREEVIEWCOLLAPSE);\r\n  TTMSFNCBitmap.CreateFromResource(TTMSFNCTREEVIEWCOLLAPSELARGE);\r\nend;\r\n{$ENDIF}\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2016 - 2021                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : https://www.tmssoftware.com                       }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCCustomSelector;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, WEBLib.TMSFNCTypes, WEBLib.TMSFNCGraphics, WEBLib.TMSFNCGraphicsTypes,\r\n  WEBLib.TMSFNCCustomControl, WEBLib.Controls\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  ,UITypes, Generics.Collections, Types\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\nconst\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 0; // Minor version nr.\r\n  REL_VER = 1; // Release nr.\r\n  BLD_VER = 0; // Build nr.\r\n\r\n  //Version history\r\n  //v1.0.0.0 : First Release\r\n  //v1.0.1.0 : New : High DPI support for TTMSFNCCustomSelector\r\n\r\ntype\r\n  TTMSFNCCustomSelector = class;\r\n\r\n  TTMSFNCCustomSelectorItemState = (isNormal, isHover, isDown, isSelected, isDisabled);\r\n\r\n  TTMSFNCCustomSelectorItem = class(TCollectionItem)\r\n  private\r\n    FOwner: TTMSFNCCustomSelector;\r\n    FRowSpan: Integer;\r\n    FColumnSpan: Integer;\r\n    FVisible: Boolean;\r\n    FText: String;\r\n    FEnabled: Boolean;\r\n    FSeparator: Boolean;\r\n    FSeparatorHeight: Single;\r\n    FMargins: TTMSFNCMargins;\r\n    FCanDeselect: Boolean;\r\n    FCanSelect: Boolean;\r\n    FVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FHorizontalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FHint: string;\r\n    FDataBoolean: Boolean;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FDataPointer: Pointer;\r\n    procedure SetColumnSpan(const Value: Integer);\r\n    procedure SetRowSpan(const Value: Integer);\r\n    procedure SetVisible(const Value: Boolean);\r\n    procedure SetText(const Value: String);\r\n    procedure SetEnabled(const Value: Boolean);\r\n    procedure SetSeparator(const Value: Boolean);\r\n    procedure SetSeparatorHeight(const Value: Single);\r\n    procedure SetMargins(const Value: TTMSFNCMargins);\r\n    procedure SetCanDeselect(const Value: Boolean);\r\n    procedure SetCanSelect(const Value: Boolean);\r\n    procedure SetHorizontalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetVerticalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    function IsSeparatorHeightStored: Boolean;\r\n  protected\r\n    procedure MarginsChanged(Sender: TObject);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    function State: TTMSFNCCustomSelectorItemState;\r\n    destructor Destroy; override;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n  published\r\n    property CanSelect: Boolean read FCanSelect write SetCanSelect default True;\r\n    property CanDeselect: Boolean read FCanDeselect write SetCanDeselect default True;\r\n    property ColumnSpan: Integer read FColumnSpan write SetColumnSpan default 1;\r\n    property RowSpan: Integer read FRowSpan write SetRowSpan default 1;\r\n    property Visible: Boolean read FVisible write SetVisible default True;\r\n    property Enabled: Boolean read FEnabled write SetEnabled default True;\r\n    property Separator: Boolean read FSeparator write SetSeparator default False;\r\n    property SeparatorHeight: Single read FSeparatorHeight write SetSeparatorHeight stored IsSeparatorHeightStored nodefault;\r\n    property Margins: TTMSFNCMargins read FMargins write SetMargins;\r\n    property Text: String read FText write SetText;\r\n    property HorizontalTextAlign: TTMSFNCGraphicsTextAlign read FHorizontalTextAlign write SetHorizontalTextAlign default gtaCenter;\r\n    property VerticalTextAlign: TTMSFNCGraphicsTextAlign read FVerticalTextAlign write SetVerticalTextAlign default gtaCenter;\r\n    property Hint: string read FHint write FHint;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCCustomSelectorItems = class(TTMSFNCOwnedCollection)\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCCustomSelectorItems = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCCustomSelectorItem>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TTMSFNCCustomSelector;\r\n    function GetItem(Index: Integer): TTMSFNCCustomSelectorItem;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCCustomSelectorItem);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; virtual;\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCCustomSelector); virtual;\r\n    property Items[Index: Integer]: TTMSFNCCustomSelectorItem read GetItem write SetItem; default;\r\n    function Add: TTMSFNCCustomSelectorItem;\r\n    function Insert(Index: Integer): TTMSFNCCustomSelectorItem;\r\n  end;\r\n\r\n  TTMSFNCCustomSelectorAppearance = class(TPersistent)\r\n  private\r\n    FOwner: TTMSFNCCustomSelector;\r\n    FStrokeHover: TTMSFNCGraphicsStroke;\r\n    FFillDown: TTMSFNCGraphicsFill;\r\n    FVerticalSpacing: Single;\r\n    FStrokeDown: TTMSFNCGraphicsStroke;\r\n    FFillSelected: TTMSFNCGraphicsFill;\r\n    FHorizontalSpacing: Single;\r\n    FStrokeSelected: TTMSFNCGraphicsStroke;\r\n    FFill: TTMSFNCGraphicsFill;\r\n    FFillHover: TTMSFNCGraphicsFill;\r\n    FStroke: TTMSFNCGraphicsStroke;\r\n    FFillDisabled: TTMSFNCGraphicsFill;\r\n    FStrokeDisabled: TTMSFNCGraphicsStroke;\r\n    FSeparatorStroke: TTMSFNCGraphicsStroke;\r\n    FFont: TTMSFNCGraphicsFont;\r\n    procedure SetFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetFillDown(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetFillHover(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetFillSelected(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetHorizontalSpacing(const Value: Single);\r\n    procedure SetStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetStrokeDown(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetStrokeHover(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetStrokeSelected(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetVerticalSpacing(const Value: Single);\r\n    procedure SetFillDisabled(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetStrokeDisabled(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetSeparatorStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetFont(const Value: TTMSFNCGraphicsFont);\r\n    function IsHorizontalSpacingStored: Boolean;\r\n    function IsVerticalSpacingStored: Boolean;\r\n  protected\r\n    procedure Changed;\r\n    procedure FontChanged(Sender: TObject);\r\n    procedure FillChanged(Sender: TObject);\r\n    procedure StrokeChanged(Sender: TObject);\r\n  public\r\n    constructor Create(AOwner: TTMSFNCCustomSelector);\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n  published\r\n    property Stroke: TTMSFNCGraphicsStroke read FStroke write SetStroke;\r\n    property Fill: TTMSFNCGraphicsFill read FFill write SetFill;\r\n    property StrokeHover: TTMSFNCGraphicsStroke read FStrokeHover write SetStrokeHover;\r\n    property FillHover: TTMSFNCGraphicsFill read FFillHover write SetFillHover;\r\n    property StrokeDown: TTMSFNCGraphicsStroke read FStrokeDown write SetStrokeDown;\r\n    property FillDown: TTMSFNCGraphicsFill read FFillDown write SetFillDown;\r\n    property StrokeSelected: TTMSFNCGraphicsStroke read FStrokeSelected write SetStrokeSelected;\r\n    property FillSelected: TTMSFNCGraphicsFill read FFillSelected write SetFillSelected;\r\n    property StrokeDisabled: TTMSFNCGraphicsStroke read FStrokeDisabled write SetStrokeDisabled;\r\n    property FillDisabled: TTMSFNCGraphicsFill read FFillDisabled write SetFillDisabled;\r\n    property VerticalSpacing: Single read FVerticalSpacing write SetVerticalSpacing stored IsVerticalSpacingStored nodefault;\r\n    property HorizontalSpacing: Single read FHorizontalSpacing write SetHorizontalSpacing stored IsHorizontalSpacingStored nodefault;\r\n    property SeparatorStroke: TTMSFNCGraphicsStroke read FSeparatorStroke write SetSeparatorStroke;\r\n    property Font: TTMSFNCGraphicsFont read FFont write SetFont;\r\n  end;\r\n\r\n  TTMSFNCCustomSelectorPositionItem = record\r\n    TileSet: Boolean;\r\n    {$IFDEF LCLLIB}\r\n    class operator = (z1, z2 : TTMSFNCCustomSelectorPositionItem) b : Boolean;\r\n    {$ENDIF}\r\n  end;\r\n\r\n  TTMSFNCCustomSelectorDisplayItem = record\r\n    Rect: TRectF;\r\n    Item: TTMSFNCCustomSelectorItem;\r\n    PageIndex: Integer;\r\n    Column, Row, ColumnSpan, RowSpan: Integer;\r\n    {$IFDEF LCLLIB}\r\n    class operator = (z1, z2 : TTMSFNCCustomSelectorDisplayItem) b : Boolean;\r\n    {$ENDIF}\r\n  end;\r\n\r\n  TTMSFNCCustomSelectorItemPosArray = array of array of TTMSFNCCustomSelectorPositionItem;\r\n\r\n  TTMSFNCCustomSelectorItemSelected = procedure(Sender: TObject; AItemIndex: Integer) of object;\r\n  TTMSFNCCustomSelectorItemDeselected = procedure(Sender: TObject; AItemIndex: Integer) of object;\r\n  TTMSFNCCustomSelectorItemClick = procedure(Sender: TObject; AItemIndex: Integer) of object;\r\n  TTMSFNCCustomSelectorItemBeforeDrawBackground = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCCustomSelectorItemAfterDrawBackground = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer) of object;\r\n  TTMSFNCCustomSelectorItemBeforeDrawContent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCCustomSelectorItemAfterDrawContent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer) of object;\r\n  TTMSFNCCustomSelectorItemBeforeDrawText = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer; var AText: String; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCCustomSelectorItemAfterDrawText = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer; AText: String) of object;\r\n  TTMSFNCCustomSelectorBeforeDraw = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCCustomSelectorAfterDraw = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF) of object;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCCustomSelectorDisplayList = class(TList)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCCustomSelectorDisplayItem;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCCustomSelectorDisplayItem);\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCCustomSelectorDisplayItem read GetItem write SetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCCustomSelectorDisplayList = class(TList<TTMSFNCCustomSelectorDisplayItem>);\r\n  {$ENDIF}\r\n\r\n  TTMSFNCCustomSelector = class(TTMSFNCCustomControl)\r\n  private\r\n    FDisplayList: TTMSFNCCustomSelectorDisplayList;\r\n    FUpdateCount: Integer;\r\n    FItems: TTMSFNCCustomSelectorItems;\r\n    FRows: Integer;\r\n    FColumns: Integer;\r\n    FPageCount: Integer;\r\n    FAppearance: TTMSFNCCustomSelectorAppearance;\r\n    FSelectedItemIndex, FFocusedItemIndex, FHoveredItemIndex, FDownItemIndex: Integer;\r\n    FOnItemBeforeDrawText: TTMSFNCCustomSelectorItemBeforeDrawText;\r\n    FOnAfterDraw: TTMSFNCCustomSelectorAfterDraw;\r\n    FOnItemAfterDrawBackground: TTMSFNCCustomSelectorItemAfterDrawBackground;\r\n    FOnItemSelected: TTMSFNCCustomSelectorItemSelected;\r\n    FOnItemAfterDrawText: TTMSFNCCustomSelectorItemAfterDrawText;\r\n    FOnBeforeDraw: TTMSFNCCustomSelectorBeforeDraw;\r\n    FOnItemBeforeDrawBackground: TTMSFNCCustomSelectorItemBeforeDrawBackground;\r\n    FOnItemDeselected: TTMSFNCCustomSelectorItemDeselected;\r\n    FOnItemClick: TTMSFNCCustomSelectorItemClick;\r\n    FOnItemBeforeDrawContent: TTMSFNCCustomSelectorItemBeforeDrawContent;\r\n    FOnItemAfterDrawContent: TTMSFNCCustomSelectorItemAfterDrawContent;\r\n    FBlockChange: Boolean;\r\n    FClosedRemotely: Boolean;\r\n    procedure SetItems(const Value: TTMSFNCCustomSelectorItems);\r\n    procedure SetColumns(const Value: Integer);\r\n    procedure SetRows(const Value: Integer);\r\n    procedure SetAppearance(const Value: TTMSFNCCustomSelectorAppearance);\r\n    procedure SetSelectedItemIndex(const Value: Integer);\r\n  protected\r\n    procedure ChangeDPIScale(M, D: Integer); override;\r\n    procedure RegisterRuntimeClasses; override;\r\n    function GetDocURL: string; override;\r\n    function GetHintString: string; override;\r\n    function HasHint: Boolean; override;\r\n    function GetVersion: String; override;\r\n    function GetDisplayItem(AItemIndex: Integer): TTMSFNCCustomSelectorDisplayItem; virtual;\r\n    function GetNextSelectableItem: Integer; virtual;\r\n    function GetPreviousSelectableItem: Integer; virtual;\r\n    function GetNextSelectableRowItem: Integer; virtual;\r\n    function GetPreviousSelectableRowItem: Integer; virtual;\r\n    function GetFirstSelectableItem: Integer; virtual;\r\n    function GetLastSelectableItem: Integer; virtual;\r\n    function CreateItemsCollection: TTMSFNCCustomSelectorItems; virtual;\r\n    procedure CalculateItems; virtual;\r\n    procedure UpdateCalculations; virtual;\r\n    procedure ApplyStyle; override;\r\n    procedure ResetToDefaultStyle; override;\r\n    function GetTopOffset: Single; virtual;\r\n    function GetCalculationWidth: Single; virtual;\r\n    function GetCalculationHeight: Single; virtual;\r\n    function GetTotalSeparatorHeight: Single;\r\n    function GetTotalSeparatorCount: Integer;\r\n    procedure DoItemSelected(AItemIndex: Integer); virtual;\r\n    procedure DoItemClick(AItemIndex: Integer); virtual;\r\n    procedure DoItemDeselected(AItemIndex: Integer); virtual;\r\n    procedure DoItemBeforeDrawBackground(AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoItemAfterDrawBackground(AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer); virtual;\r\n    procedure DoItemBeforeDrawContent(AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoItemAfterDrawContent(AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer); virtual;\r\n    procedure DoItemBeforeDrawText(AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer; var AText: String; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoItemAfterDrawText(AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer; AText: String); virtual;\r\n    procedure DoBeforeDraw(AGraphics: TTMSFNCGraphics; ARect: TRectF; var ADefaultDraw: Boolean); reintroduce; virtual;\r\n    procedure DoAfterDraw(AGraphics: TTMSFNCGraphics; ARect: TRectF); reintroduce; virtual;\r\n    procedure DrawItems(AGraphics: TTMSFNCGraphics); virtual;\r\n    procedure Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF); override;\r\n\r\n    procedure DrawItem(AGraphics: TTMSFNCGraphics; ADisplayItem: TTMSFNCCustomSelectorDisplayItem); virtual;\r\n    procedure DrawItemBackGround(AGraphics: TTMSFNCGraphics; ADisplayItem: TTMSFNCCustomSelectorDisplayItem); virtual;\r\n    procedure DrawItemContent(AGraphics: TTMSFNCGraphics; ADisplayItem: TTMSFNCCustomSelectorDisplayItem); virtual;\r\n    procedure DrawItemText(AGraphics: TTMSFNCGraphics; ADisplayItem: TTMSFNCCustomSelectorDisplayItem); virtual;\r\n\r\n    procedure HandleMouseDown(Button: TTMSFNCMouseButton; Shift: TShiftState; X: Single; Y: Single); override;\r\n    procedure HandleMouseUp(Button: TTMSFNCMouseButton; Shift: TShiftState; X: Single; Y: Single); override;\r\n    procedure HandleMouseMove(Shift: TShiftState; X: Single; Y: Single); override;\r\n    procedure HandleKeyDown(var Key: Word; Shift: TShiftState); override;\r\n    procedure HandleKeyUp(var Key: Word; Shift: TShiftState); override;\r\n    procedure HandleMouseLeave; override;\r\n    procedure ProcessSelection(AItemIndex: Integer);\r\n    property SelectedItemIndex: Integer read FSelectedItemIndex write SetSelectedItemIndex default -1;\r\n    property Rows: Integer read FRows write SetRows default 4;\r\n    property Columns: Integer read FColumns write SetColumns default 4;\r\n    property Version: String read GetVersion;\r\n    property Items: TTMSFNCCustomSelectorItems read FItems write SetItems;\r\n    property Appearance: TTMSFNCCustomSelectorAppearance read FAppearance write SetAppearance;\r\n    property OnItemSelected: TTMSFNCCustomSelectorItemSelected read FOnItemSelected write FOnItemSelected;\r\n    property OnItemDeselected: TTMSFNCCustomSelectorItemDeselected read FOnItemDeselected write FOnItemDeselected;\r\n    property OnItemClick: TTMSFNCCustomSelectorItemClick read FOnItemClick write FOnItemClick;\r\n    property OnItemBeforeDrawBackground: TTMSFNCCustomSelectorItemBeforeDrawBackground read FOnItemBeforeDrawBackground write FOnItemBeforeDrawBackground;\r\n    property OnItemAfterDrawBackground: TTMSFNCCustomSelectorItemAfterDrawBackground read FOnItemAfterDrawBackground write FOnItemAfterDrawBackground;\r\n    property OnItemBeforeDrawContent: TTMSFNCCustomSelectorItemBeforeDrawContent read FOnItemBeforeDrawContent write FOnItemBeforeDrawContent;\r\n    property OnItemAfterDrawContent: TTMSFNCCustomSelectorItemAfterDrawContent read FOnItemAfterDrawContent write FOnItemAfterDrawContent;\r\n    property OnBeforeDraw: TTMSFNCCustomSelectorBeforeDraw read FOnBeforeDraw write FOnBeforeDraw;\r\n    property OnAfterDraw: TTMSFNCCustomSelectorAfterDraw read FOnAfterDraw write FOnAfterDraw;\r\n    property OnItemBeforeDrawText: TTMSFNCCustomSelectorItemBeforeDrawText read FOnItemBeforeDrawText write FOnItemBeforeDrawText;\r\n    property OnItemAfterDrawText: TTMSFNCCustomSelectorItemAfterDrawText read FOnItemAfterDrawText write FOnItemAfterDrawText;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure BeginUpdate; override;\r\n    procedure EndUpdate; override;\r\n    procedure InvalidateItems;\r\n    property BlockChange: Boolean read FBlockChange write FBlockChange;\r\n    procedure UpdateControlAfterResize; override;\r\n    procedure InitializeDefault; virtual;\r\n    function XYToItem(X, Y: Single): Integer;\r\n    property ClosedRemotely: Boolean read FClosedRemotely write FClosedRemotely;\r\n  end;\r\n\r\n  TTMSFNCDefaultSelector = class(TTMSFNCCustomSelector)\r\n  published\r\n    property Fill;\r\n    property Stroke;\r\n    property Version;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  Math, SysUtils, WEBLib.TMSFNCUtils, WEBLib.TMSFNCStyles\r\n  {$IFDEF VCLLIB}\r\n  , VCL.Graphics\r\n  {$ENDIF}\r\n  ;\r\n\r\n{ TTMSFNCCustomSelector }\r\n\r\nprocedure TTMSFNCCustomSelector.ApplyStyle;\r\nvar\r\n  c: TTMSFNCGraphicsColor;\r\nbegin\r\n  inherited;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleBackgroundFillColor(c) then\r\n    Fill.Color := c;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleBackgroundStrokeColor(c) then\r\n    Stroke.Color := c;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleDefaultButtonFillColor(c) then\r\n    Appearance.Fill.Color := c;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleSelectionFillColor(c) then\r\n  begin\r\n    Appearance.FillSelected.Color := c;\r\n    Appearance.FillDown.Color := c;\r\n    Appearance.FillHover.Color := Blend(c, Appearance.Fill.Color, 25);\r\n  end;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleDefaultButtonStrokeColor(c) then\r\n  begin\r\n    Appearance.Stroke.Color := c;\r\n    Appearance.StrokeSelected.Color := c;\r\n    Appearance.StrokeDown.Color := c;\r\n    Appearance.StrokeHover.Color := c;\r\n  end;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleTextFontColor(c) then\r\n    Appearance.Font.Color := c;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if Source is TTMSFNCCustomSelector then\r\n  begin\r\n    FItems.Assign((Source as TTMSFNCCustomSelector).Items);\r\n    FAppearance.Assign((Source as TTMSFNCCustomSelector).Appearance);\r\n    FRows := (Source as TTMSFNCCustomSelector).Rows;\r\n    FColumns := (Source as TTMSFNCCustomSelector).Columns;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.BeginUpdate;\r\nbegin\r\n  inherited;\r\n  Inc(FUpdateCount);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.CalculateItems;\r\nvar\r\n  itposarr: TTMSFNCCustomSelectorItemPosArray;\r\n  r, newr, c, newc: Integer;\r\n  AItemIndex: Integer;\r\n  AItem: TTMSFNCCustomSelectorItem;\r\n  cspan, rspan, newcspan, newrspan: Integer;\r\n  I: Integer;\r\n  K: Integer;\r\n  sepc: Integer;\r\n  f: Boolean;\r\n  APageIndex: Integer;\r\n  hs, vs: Single;\r\n  iw, ih: Single;\r\n  w, h: Single;\r\n  exw, exh: Single;\r\n  tx, ty: Single;\r\n  pw, ph: Single;\r\n  offs: Single;\r\n  itd: TTMSFNCCustomSelectorDisplayItem;\r\n\r\n  procedure FindNewPos(AItem: TTMSFNCCustomSelectorItem; var ANewR: Integer; var ANewC: Integer; var AFound: Boolean; ARows , {%H-}ACurRow, AColumns, {%H-}ACurCol: Integer; PosArr: TTMSFNCCustomSelectorItemPosArray);\r\n  var\r\n    i, k: integer;\r\n    cspan, rspan: Integer;\r\n    J, L: Integer;\r\n  begin\r\n    AFound := False;\r\n    for I := ANewr to ARows - 1 do\r\n    begin\r\n      for K := ANewC to AColumns - 1 do\r\n      begin\r\n        cspan := AItem.ColumnSpan;\r\n        cspan := Min(cspan, Columns - ANewC);\r\n        rspan := AItem.RowSpan;\r\n        rspan := Min(rspan, Rows - ANewR);\r\n\r\n        AFound := true;\r\n        for J := 0 to rspan - 1 do\r\n        begin\r\n          for L := 0 to cspan - 1 do\r\n          begin\r\n            if PosArr[I + J, K + L].TileSet then\r\n              AFound := False;\r\n          end;\r\n        end;\r\n\r\n        if AFound then\r\n          Break;\r\n        Inc(ANewC);\r\n      end;\r\n      if AFound then\r\n        Break;\r\n\r\n      ANewC := 0;\r\n      Inc(ANewr);\r\n    end;\r\n  end;\r\nbegin\r\n  if (csDestroying in ComponentState) or (FUpdateCount > 0) then\r\n    Exit;\r\n\r\n  FDisplayList.Clear;\r\n\r\n  if Items.Count = 0 then\r\n    Exit;\r\n\r\n  pw := GetCalculationWidth;\r\n  ph := GetCalculationHeight;\r\n  hs := Appearance.HorizontalSpacing;\r\n  vs := Appearance.VerticalSpacing;\r\n  w := pw - vs;\r\n  iw := w;\r\n  if Columns > 0 then\r\n    iw := (w - (Columns * hs)) / Columns;\r\n\r\n  h := ph - vs - GetTotalSeparatorHeight;\r\n  sepc := GetTotalSeparatorCount;\r\n  ih := h;\r\n  if (Rows - sepc) > 0 then\r\n    ih := (h - ((Rows - sepc) * vs)) / (Rows - sepc);\r\n\r\n  AItemIndex := 0;\r\n  APageIndex := 0;\r\n  offs := 0;\r\n  while AItemIndex <= Items.Count - 1 do\r\n  begin\r\n    c := 0;\r\n    r := 0;\r\n    SetLength(itposarr, 0, 0);\r\n    SetLength(itposarr, Rows, Columns);\r\n\r\n    while r < Rows do\r\n    begin\r\n      while (c < Columns) do\r\n      begin\r\n        if (AItemIndex >= 0) and (AItemIndex <= Items.Count - 1) and (APageIndex = 0) then\r\n        begin\r\n          AItem := Items[AItemIndex];\r\n          if not AItem.Visible then\r\n          begin\r\n            Inc(AItemIndex);\r\n            Continue;\r\n          end;\r\n\r\n          if AItem.Separator then\r\n          begin\r\n            cspan := Columns;\r\n            rspan := 1;\r\n          end\r\n          else\r\n          begin\r\n            cspan := AItem.ColumnSpan;\r\n            rspan := AItem.RowSpan;\r\n          end;\r\n\r\n          cspan := Min(cspan, Columns - c);\r\n          rspan := Min(rspan, Rows - r);\r\n\r\n          exw := iw * cspan + (hs * (cspan - 1));\r\n          if AItem.Separator then\r\n            exh := AItem.SeparatorHeight\r\n          else\r\n            exh := ih * rspan + (vs * (rspan - 1));\r\n\r\n          tx := (pw * APageIndex) + hs + iw * c + (hs * c);\r\n          ty := offs + vs + ih * r + (vs * r) + GetTopOffset;\r\n\r\n          itd.Rect := RectF(tx + AItem.Margins.Left, ty + AItem.Margins.Top,\r\n            tx + exw - AItem.Margins.Right, ty + exh - AItem.Margins.Bottom);\r\n          itd.Item := AItem;\r\n          itd.PageIndex := APageIndex;\r\n          itd.Column := c;\r\n          itd.Row := r;\r\n          itd.ColumnSpan := cspan;\r\n          itd.RowSpan := rspan;\r\n          FDisplayList.Add(itd);\r\n\r\n          newcspan := c;\r\n          newrspan := r;\r\n          newcspan := newcspan + cspan - 1;\r\n          newrspan := newrspan + rspan - 1;\r\n\r\n          for I := r to newrspan do\r\n            for K := c to newcspan do\r\n              itposarr[I, K].TileSet := True;\r\n\r\n          if AItem.Separator then\r\n            offs := offs + AItem.SeparatorHeight - ih * rspan + (vs * (rspan - 1));\r\n        end;\r\n        Inc(AItemIndex);\r\n        Inc(c);\r\n        newc := c;\r\n        newr := r;\r\n        f := False;\r\n        if (AItemIndex >= 0) and (AItemIndex <= Items.Count - 1) then\r\n          FindNewPos(Items[AItemIndex], newr, newc, f, Rows, newr, Columns, newc, itposarr);\r\n        c := newc;\r\n        r := newr;\r\n\r\n        if (c >= Columns) or (r >= Rows) then\r\n          Break;\r\n      end;\r\n      c := 0;\r\n      Inc(r);\r\n      newc := c;\r\n      newr := r;\r\n      f := False;\r\n      if (AItemIndex >= 0) and (AItemIndex <= Items.Count - 1) then\r\n        FindNewPos(Items[AItemIndex], newr, newc, f, Rows, newr, Columns, newc, itposarr);\r\n      c := newc;\r\n      r := newr;\r\n      if r >= Rows then\r\n        Break;\r\n    end;\r\n    Inc(APageIndex);\r\n  end;\r\n\r\n  FPageCount := APageIndex;\r\n  InvalidateItems;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.ChangeDPIScale(M, D: Integer);\r\nbegin\r\n  inherited;\r\n  BeginUpdate;\r\n  FAppearance.FVerticalSpacing := TTMSFNCUtils.MulDivSingle(FAppearance.FVerticalSpacing, M, D);\r\n  FAppearance.FHorizontalSpacing := TTMSFNCUtils.MulDivSingle(FAppearance.FHorizontalSpacing, M, D);\r\n  FAppearance.Font.Height := TTMSFNCUtils.MulDivInt(FAppearance.Font.Height, M, D);\r\n  EndUpdate;\r\nend;\r\n\r\nconstructor TTMSFNCCustomSelector.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FColumns := 4;\r\n  FRows := 4;\r\n  FItems := CreateItemsCollection;\r\n  FDisplayList := TTMSFNCCustomSelectorDisplayList.Create;\r\n  FAppearance := TTMSFNCCustomSelectorAppearance.Create(Self);\r\n  FSelectedItemIndex := -1;\r\n  FFocusedItemIndex := -1;\r\n  FHoveredItemIndex := -1;\r\n  FDownItemIndex := -1;\r\n\r\n  if IsDesignTime then\r\n    InitializeDefault;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.InitializeDefault;\r\nbegin\r\n\r\nend;\r\n\r\nfunction TTMSFNCCustomSelector.CreateItemsCollection: TTMSFNCCustomSelectorItems;\r\nbegin\r\n  Result := TTMSFNCCustomSelectorItems.Create(Self);\r\nend;\r\n\r\ndestructor TTMSFNCCustomSelector.Destroy;\r\nbegin\r\n  FAppearance.Free;\r\n  FDisplayList.Free;\r\n  FItems.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.DoAfterDraw(AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nbegin\r\n  if Assigned(OnAfterDraw) then\r\n    OnAfterDraw(Self, AGraphics, ARect);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.DoBeforeDraw(AGraphics: TTMSFNCGraphics; ARect: TRectF;\r\n  var ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDraw) then\r\n    OnBeforeDraw(Self, AGraphics, ARect, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.DoItemAfterDrawBackground(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AItemIndex: Integer);\r\nbegin\r\n  if Assigned(OnItemAfterDrawBackground) then\r\n    OnItemAfterDrawBackground(Self, AGraphics, ARect, AItemIndex);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.DoItemAfterDrawContent(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AItemIndex: Integer);\r\nbegin\r\n  if Assigned(OnItemAfterDrawContent) then\r\n    OnItemAfterDrawContent(Self, AGraphics, ARect, AItemIndex);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.DoItemAfterDrawText(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AItemIndex: Integer; AText: String);\r\nbegin\r\n  if Assigned(OnItemAfterDrawText) then\r\n    OnItemAfterDrawText(Self, AGraphics, ARect, AItemIndex, AText);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.DoItemBeforeDrawBackground(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AItemIndex: Integer; var ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnItemBeforeDrawBackground) then\r\n    OnItemBeforeDrawBackground(Self, AGraphics, ARect, AItemIndex, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.DoItemBeforeDrawContent(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AItemIndex: Integer; var ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnItemBeforeDrawContent) then\r\n    OnItemBeforeDrawContent(Self, AGraphics, ARect, AItemIndex, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.DoItemBeforeDrawText(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AItemIndex: Integer; var AText: String;\r\n  var ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnItemBeforeDrawText) then\r\n    OnItemBeforeDrawText(Self, AGraphics, ARect, AItemIndex, AText, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.DoItemSelected(AItemIndex: Integer);\r\nbegin\r\n  if Assigned(OnItemSelected) then\r\n    OnItemSelected(Self, AItemIndex);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.DoItemClick(AItemIndex: Integer);\r\nbegin\r\n  if Assigned(OnItemClick) then\r\n    OnItemClick(Self, AItemIndex);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.DoItemDeselected(AItemIndex: Integer);\r\nbegin\r\n  if Assigned(OnItemDeselected) then\r\n    OnItemDeselected(Self, AItemIndex);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.HandleMouseLeave;\r\nbegin\r\n  inherited;\r\n  FHoveredItemIndex := -1;\r\n  InvalidateItems;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.DrawItem(AGraphics: TTMSFNCGraphics;\r\n  ADisplayItem: TTMSFNCCustomSelectorDisplayItem);\r\nbegin\r\n  DrawItemBackGround(AGraphics, ADisplayItem);\r\n  DrawItemContent(AGraphics, ADisplayItem);\r\n  DrawItemText(AGraphics, ADisplayItem);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.DrawItemBackGround(AGraphics: TTMSFNCGraphics; ADisplayItem: TTMSFNCCustomSelectorDisplayItem);\r\nvar\r\n  r: TRectF;\r\n  it: TTMSFNCCustomSelectorItem;\r\n  a: Boolean;\r\n  fr: TRectF;\r\nbegin\r\n  it := ADisplayItem.Item;\r\n  if Assigned(it) then\r\n  begin\r\n    if not it.Separator then\r\n    begin\r\n      AGraphics.Fill.Assign(Appearance.Fill);\r\n      AGraphics.Stroke.Assign(Appearance.Stroke);\r\n      if it.Enabled then\r\n      begin\r\n        if it.Index = FDownItemIndex then\r\n        begin\r\n          AGraphics.Fill.Assign(Appearance.FillDown);\r\n          AGraphics.Stroke.Assign(Appearance.StrokeDown);\r\n        end\r\n        else if it.Index = FHoveredItemIndex then\r\n        begin\r\n          AGraphics.Fill.Assign(Appearance.FillHover);\r\n          AGraphics.Stroke.Assign(Appearance.StrokeHover);\r\n        end\r\n        else if it.Index = FSelectedItemIndex then\r\n        begin\r\n          AGraphics.Fill.Assign(Appearance.FillSelected);\r\n          AGraphics.Stroke.Assign(Appearance.StrokeSelected);\r\n        end;\r\n      end\r\n      else\r\n      begin\r\n        AGraphics.Fill.Assign(Appearance.FillDisabled);\r\n        AGraphics.Stroke.Assign(Appearance.StrokeDisabled);\r\n      end;\r\n    end\r\n    else\r\n      AGraphics.Stroke.Assign(Appearance.SeparatorStroke);\r\n\r\n    r := ADisplayItem.Rect;\r\n    a := True;\r\n    DoItemBeforeDrawBackground(AGraphics, ADisplayItem.Rect, it.Index, a);\r\n    if a then\r\n    begin\r\n      if it.Separator then\r\n        AGraphics.DrawLine(PointF(r.Left, CenterPointEx(r).Y), PointF(r.Right, CenterPointEx(r).Y))\r\n      else\r\n      begin\r\n        AGraphics.DrawRectangle(r);\r\n        if IsFocused and (FFocusedItemIndex = it.Index) then\r\n        begin\r\n          fr := r;\r\n          InflateRectEx(fr, ScalePaintValue(-2), ScalePaintValue(-2));\r\n          AGraphics.DrawFocusRectangle(fr);\r\n        end;\r\n      end;\r\n\r\n      DoItemAfterDrawBackground(AGraphics, ADisplayItem.Rect, it.Index);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.DrawItemContent(AGraphics: TTMSFNCGraphics;\r\n  ADisplayItem: TTMSFNCCustomSelectorDisplayItem);\r\nvar\r\n  it: TTMSFNCCustomSelectorItem;\r\n  a: Boolean;\r\nbegin\r\n  it := ADisplayItem.Item;\r\n  if Assigned(it) then\r\n  begin\r\n    a := True;\r\n    DoItemBeforeDrawContent(AGraphics, ADisplayItem.Rect, it.Index, a);\r\n    if a then\r\n      DoItemAfterDrawContent(AGraphics, ADisplayItem.Rect, it.Index);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.DrawItems(AGraphics: TTMSFNCGraphics);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to FDisplayList.Count - 1 do\r\n    DrawItem(AGraphics, FDisplayList[I]);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.DrawItemText(AGraphics: TTMSFNCGraphics;\r\n  ADisplayItem: TTMSFNCCustomSelectorDisplayItem);\r\nvar\r\n  r: TRectF;\r\n  it: TTMSFNCCustomSelectorItem;\r\n  str: String;\r\n  a: Boolean;\r\nbegin\r\n  it := ADisplayItem.Item;\r\n  if Assigned(it) and (it.Text <> '') then\r\n  begin\r\n    r := ADisplayItem.Rect;\r\n    str := it.Text;\r\n    a := True;\r\n    InflateRectEx(r, -2, -2);\r\n    AGraphics.Font.AssignSource(Appearance.Font);\r\n    DoItemBeforeDrawText(AGraphics, ADisplayItem.Rect, it.Index, str, a);\r\n    if a then\r\n    begin\r\n      AGraphics.DrawText(r, str, False, it.HorizontalTextAlign, it.VerticalTextAlign);\r\n      DoItemAfterDrawText(AGraphics, ADisplayItem.Rect, it.Index, str);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.EndUpdate;\r\nbegin\r\n  inherited;\r\n  Dec(FUpdateCount);\r\n  if FUpdateCount = 0 then\r\n    CalculateItems;\r\nend;\r\n\r\nfunction TTMSFNCCustomSelector.GetFirstSelectableItem: Integer;\r\nvar\r\n  I: Integer;\r\n  it: TTMSFNCCustomSelectorItem;\r\nbegin\r\n  Result := FFocusedItemIndex;\r\n  for I := 0 to FDisplayList.Count - 1 do\r\n  begin\r\n    it := FDisplayList[I].Item;\r\n    if Assigned(it) and it.Enabled and not it.Separator then\r\n    begin\r\n      Result := it.Index;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomSelector.GetCalculationHeight: Single;\r\nbegin\r\n  Result := Height - GetTopOffset;\r\nend;\r\n\r\nfunction TTMSFNCCustomSelector.GetHintString: string;\r\nvar\r\n  it: TTMSFNCCustomSelectorItem;\r\nbegin\r\n  Result := inherited GetHintString;\r\n  if (FHoveredItemIndex >= 0) and (FHoveredItemIndex <= FItems.Count - 1) then\r\n  begin\r\n    it := FItems[FHoveredItemIndex];\r\n    Result := it.Hint;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomSelector.GetLastSelectableItem: Integer;\r\nvar\r\n  I: Integer;\r\n  it: TTMSFNCCustomSelectorItem;\r\nbegin\r\n  Result := FFocusedItemIndex;\r\n  for I := FDisplayList.Count - 1 downto 0 do\r\n  begin\r\n    it := FDisplayList[I].Item;\r\n    if Assigned(it) and it.Enabled and not it.Separator then\r\n    begin\r\n      Result := it.Index;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomSelector.GetNextSelectableItem: Integer;\r\nvar\r\n  I: Integer;\r\n  it: TTMSFNCCustomSelectorItem;\r\nbegin\r\n  Result := FFocusedItemIndex;\r\n  for I := 0 to FDisplayList.Count - 1 do\r\n  begin\r\n    it := FDisplayList[I].Item;\r\n    if Assigned(it) and it.Enabled and not it.Separator and (it.Index > FFocusedItemIndex) then\r\n    begin\r\n      Result := it.Index;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomSelector.GetNextSelectableRowItem: Integer;\r\nvar\r\n  I: Integer;\r\n  it: TTMSFNCCustomSelectorItem;\r\n  disp: TTMSFNCCustomSelectorDisplayItem;\r\nbegin\r\n  Result := FFocusedItemIndex;\r\n  if Result = -1 then\r\n  begin\r\n    Result := GetNextSelectableItem;\r\n    Exit;\r\n  end;\r\n\r\n  disp := GetDisplayItem(FFocusedItemIndex);\r\n  for I := 0 to FDisplayList.Count - 1 do\r\n  begin\r\n    it := FDisplayList[I].Item;\r\n    if Assigned(it) and it.Enabled and not it.Separator and (it.Index > FFocusedItemIndex) and (disp.Column >= FDisplayList[I].Column) and\r\n      (disp.Column <= FDisplayList[I].Column + (FDisplayList[I].ColumnSpan - 1))\r\n      and (FDisplayList[I].Row > disp.Row) then\r\n    begin\r\n      Result := it.Index;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomSelector.GetPreviousSelectableItem: Integer;\r\nvar\r\n  I: Integer;\r\n  it: TTMSFNCCustomSelectorItem;\r\nbegin\r\n  Result := FFocusedItemIndex;\r\n  for I := FDisplayList.Count - 1 downto 0 do\r\n  begin\r\n    it := FDisplayList[I].Item;\r\n    if Assigned(it) and it.Enabled and not it.Separator and (it.Index < FFocusedItemIndex) then\r\n    begin\r\n      Result := it.Index;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomSelector.GetPreviousSelectableRowItem: Integer;\r\nvar\r\n  I: Integer;\r\n  it: TTMSFNCCustomSelectorItem;\r\n  disp: TTMSFNCCustomSelectorDisplayItem;\r\nbegin\r\n  Result := FFocusedItemIndex;\r\n  if Result = -1 then\r\n  begin\r\n    Result := GetPreviousSelectableItem;\r\n    Exit;\r\n  end;\r\n\r\n  disp := GetDisplayItem(FFocusedItemIndex);\r\n  for I := FDisplayList.Count - 1 downto 0 do\r\n  begin\r\n    it := FDisplayList[I].Item;\r\n    if Assigned(it) and it.Enabled and not (it.Separator) and (it.Index < FFocusedItemIndex) and (disp.Column >= FDisplayList[I].Column) and\r\n      (disp.Column <= FDisplayList[I].Column + (FDisplayList[I].ColumnSpan - 1)) and (FDisplayList[I].Row < disp.Row) then\r\n    begin\r\n      Result := it.Index;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomSelector.GetTopOffset: Single;\r\nbegin\r\n  Result := 0;\r\nend;\r\n\r\nfunction TTMSFNCCustomSelector.GetTotalSeparatorCount: Integer;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := 0;\r\n  for I := 0 to Items.Count - 1 do\r\n  begin\r\n    if Items[I].Separator then\r\n      Inc(Result);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomSelector.GetTotalSeparatorHeight: Single;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := 0;\r\n  for I := 0 to Items.Count - 1 do\r\n  begin\r\n    if Items[I].Separator then\r\n      Result := Result + Items[I].SeparatorHeight + Appearance.VerticalSpacing;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomSelector.GetVersion: String;\r\nbegin\r\n  Result := GetVersionNumber(MAJ_VER, MIN_VER, REL_VER, BLD_VER);\r\nend;\r\n\r\nfunction TTMSFNCCustomSelector.GetCalculationWidth: Single;\r\nbegin\r\n  Result := Width;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.HandleKeyDown(var Key: Word; Shift: TShiftState);\r\nbegin\r\n  inherited;\r\n  case Key of\r\n    KEY_UP:\r\n    begin\r\n      FFocusedItemIndex := GetPreviousSelectableRowItem;\r\n      InvalidateItems;\r\n    end;\r\n    KEY_LEFT:\r\n    begin\r\n      FFocusedItemIndex := GetPreviousSelectableItem;\r\n      InvalidateItems;\r\n    end;\r\n    KEY_DOWN:\r\n    begin\r\n      FFocusedItemIndex := GetNextSelectableRowItem;\r\n      InvalidateItems;\r\n    end;\r\n    KEY_RIGHT:\r\n    begin\r\n      FFocusedItemIndex := GetNextSelectableItem;\r\n      InvalidateItems;\r\n    end;\r\n    KEY_HOME:\r\n    begin\r\n      FFocusedItemIndex := GetFirstSelectableItem;\r\n      InvalidateItems;\r\n    end;\r\n    KEY_END:\r\n    begin\r\n      FFocusedItemIndex := GetLastSelectableItem;\r\n      InvalidateItems;\r\n    end;\r\n  end;\r\n\r\n  if (Key = KEY_RETURN) then\r\n  begin\r\n    FDownItemIndex := FFocusedItemIndex;\r\n    InvalidateItems;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.HandleKeyUp(var Key: Word; Shift: TShiftState);\r\nbegin\r\n  inherited;\r\n  if (Key = KEY_RETURN) then\r\n  begin\r\n    FDownItemIndex := -1;\r\n    ProcessSelection(FFocusedItemIndex);\r\n    InvalidateItems;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.HandleMouseDown(Button: TTMSFNCMouseButton;\r\n  Shift: TShiftState; X, Y: Single);\r\nbegin\r\n  inherited;\r\n  CaptureEx;\r\n  FDownItemIndex := XYToItem(X, Y);\r\n  InvalidateItems;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.HandleMouseMove(Shift: TShiftState; X, Y: Single);\r\nvar\r\n  h: Integer;\r\nbegin\r\n  inherited;\r\n  if FDownItemIndex > -1 then\r\n    Exit;\r\n\r\n  h := XYToItem(X, Y);\r\n  if h <> FHoveredItemIndex then\r\n  begin\r\n    FHoveredItemIndex := h;\r\n    CancelHint;\r\n    InvalidateItems;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.HandleMouseUp(Button: TTMSFNCMouseButton; Shift: TShiftState;\r\n  X, Y: Single);\r\nvar\r\n  s: Integer;\r\nbegin\r\n  inherited;\r\n  ReleaseCaptureEx;\r\n  s := XYToItem(X, Y);\r\n  if (s = FDownItemIndex) and (FDownItemIndex <> -1) then\r\n  begin\r\n    ProcessSelection(s);\r\n    if s <> -1 then\r\n      DoItemClick(s);\r\n  end;\r\n  FDownItemIndex := -1;\r\n  FHoveredItemIndex := -1;\r\n  InvalidateItems;\r\nend;\r\n\r\nfunction TTMSFNCCustomSelector.HasHint: Boolean;\r\nvar\r\n  it: TTMSFNCCustomSelectorItem;\r\nbegin\r\n  Result := False;\r\n  if (FHoveredItemIndex >= 0) and (FHoveredItemIndex <= FItems.Count - 1) then\r\n  begin\r\n    it := FItems[FHoveredItemIndex];\r\n    Result := it.Hint <> '';\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nvar\r\n  a: Boolean;\r\nbegin\r\n  inherited;\r\n  a := True;\r\n  DoBeforeDraw(AGraphics, ARect, a);\r\n  if a then\r\n  begin\r\n    DrawItems(AGraphics);\r\n    DoAfterDraw(AGraphics, ARect);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.ProcessSelection(AItemIndex: Integer);\r\nvar\r\n  it: TTMSFNCCustomSelectorItem;\r\n  prev: Integer;\r\nbegin\r\n  if (AItemIndex >= 0) and (AItemIndex <= Items.Count - 1) then\r\n  begin\r\n    it := FItems[AItemIndex];\r\n    if it.CanSelect then\r\n    begin\r\n      prev := FSelectedItemIndex;\r\n      if it.CanDeselect and (it.Index = FSelectedItemIndex) then\r\n        FSelectedItemIndex := -1\r\n      else\r\n        FSelectedItemIndex := it.Index;\r\n\r\n      if FSelectedItemIndex <> -1 then\r\n        FFocusedItemIndex := FSelectedItemIndex;\r\n\r\n      if it.CanDeselect and (prev <> -1) then\r\n        DoItemDeSelected(prev);\r\n\r\n      if FSelectedItemIndex <> -1 then\r\n        DoItemSelected(FSelectedItemIndex);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClass(TTMSFNCCustomSelector);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.InvalidateItems;\r\nbegin\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.ResetToDefaultStyle;\r\nbegin\r\n  inherited;\r\n  Fill.Kind := gfkSolid;\r\n  Stroke.Kind := gskSolid;\r\n  Fill.Color := gcWhite;\r\n  Stroke.Color := gcSilver;\r\n\r\n  Appearance.Fill.Color := Lighter(gcLightgray, 50);\r\n  Appearance.FillHover.Color := Lighter(gcLightslategray, 50);\r\n  Appearance.FillDown.Color := Lighter(gcSlategray, 50);\r\n  Appearance.FillSelected.Color := Lighter(gcSlategray, 50);\r\n  Appearance.FillDisabled.Color := Lighter(gcGray, 50);\r\n\r\n  Appearance.Stroke.Color := gcDarkgray;\r\n  Appearance.StrokeHover.Color := gcLightslategray;\r\n  Appearance.StrokeDown.Color := gcSlategray;\r\n  Appearance.StrokeSelected.Color := gcDarkslategray;\r\n  Appearance.StrokeDisabled.Color := gcDarkgray;\r\n\r\n  Appearance.Font.Color := gcBlack;\r\n\r\n  Appearance.Fill.Kind := gfkSolid;\r\n  Appearance.FillHover.Kind := gfkSolid;\r\n  Appearance.FillDown.Kind := gfkSolid;\r\n  Appearance.FillSelected.Kind := gfkSolid;\r\n  Appearance.FillDisabled.Kind := gfkSolid;\r\n\r\n  Appearance.Stroke.Kind := gskSolid;\r\n  Appearance.StrokeHover.Kind := gskSolid;\r\n  Appearance.StrokeDown.Kind := gskSolid;\r\n  Appearance.StrokeSelected.Kind := gskSolid;\r\n  Appearance.StrokeDisabled.Kind := gskSolid;\r\n\r\n  Appearance.SeparatorStroke.Kind := gskSolid;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.UpdateCalculations;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.UpdateControlAfterResize;\r\nbegin\r\n  inherited;\r\n  CalculateItems;\r\nend;\r\n\r\nfunction TTMSFNCCustomSelector.GetDisplayItem(AItemIndex: Integer): TTMSFNCCustomSelectorDisplayItem;\r\nvar\r\n  I: Integer;\r\n  it: TTMSFNCCustomSelectorItem;\r\nbegin\r\n  Result.Rect := RectF(0, 0, 0, 0);\r\n  Result.Item := nil;\r\n  Result.PageIndex := -1;\r\n  Result.Row := -1;\r\n  Result.Column := -1;\r\n  Result.ColumnSpan := -1;\r\n  Result.RowSpan := -1;\r\n  for I := 0 to FDisplayList.Count - 1 do\r\n  begin\r\n    it := FDisplayList[I].Item;\r\n    if Assigned(it) and (it.Index = AItemIndex) then\r\n    begin\r\n      Result := FDisplayList[I];\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomSelector.GetDocURL: string;\r\nbegin\r\n  Result := TTMSFNCBaseDocURL + 'tmsfncuipack/components/' + LowerCase(ClassName);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.SetAppearance(\r\n  const Value: TTMSFNCCustomSelectorAppearance);\r\nbegin\r\n  FAppearance.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.SetColumns(const Value: Integer);\r\nbegin\r\n  if FColumns <> Value then\r\n  begin\r\n    FColumns := Value;\r\n    UpdateCalculations;\r\n    CalculateItems;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.SetItems(const Value: TTMSFNCCustomSelectorItems);\r\nbegin\r\n  FItems.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.SetRows(const Value: Integer);\r\nbegin\r\n  if FRows <> Value then\r\n  begin\r\n    FRows := Value;\r\n    UpdateCalculations;\r\n    CalculateItems;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelector.SetSelectedItemIndex(const Value: Integer);\r\nbegin\r\n  if FSelectedItemIndex <> Value then\r\n  begin\r\n    FSelectedItemIndex := Value;\r\n    FFocusedItemIndex := Value;\r\n    InvalidateItems;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomSelector.XYToItem(X, Y: Single): Integer;\r\nvar\r\n  I: Integer;\r\n  it: TTMSFNCCustomSelectorItem;\r\nbegin\r\n  Result := -1;\r\n  for I := 0 to FDisplayList.Count - 1 do\r\n  begin\r\n    if PtInRectEx(FDisplayList[I].Rect, PointF(X, Y)) then\r\n    begin\r\n      it := FDisplayList[I].Item;\r\n      if Assigned(it) and it.Enabled and not it.Separator then\r\n      begin\r\n        Result := it.Index;\r\n        Break;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCCustomSelectorItem }\r\n\r\nprocedure TTMSFNCCustomSelectorItem.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCCustomSelectorItem then\r\n  begin\r\n    FRowSpan := (Source as TTMSFNCCustomSelectorItem).RowSpan;\r\n    FColumnSpan := (Source as TTMSFNCCustomSelectorItem).ColumnSpan;\r\n    FVisible := (Source as TTMSFNCCustomSelectorItem).Visible;\r\n    FText := (Source as TTMSFNCCustomSelectorItem).Text;\r\n    FEnabled := (Source as TTMSFNCCustomSelectorItem).Enabled;\r\n    FSeparator := (Source as TTMSFNCCustomSelectorItem).Separator;\r\n    FSeparatorHeight := (Source as TTMSFNCCustomSelectorItem).SeparatorHeight;\r\n    FMargins.Assign((Source as TTMSFNCCustomSelectorItem).Margins);\r\n    FCanDeselect := (Source as TTMSFNCCustomSelectorItem).CanDeselect;\r\n    FCanSelect := (Source as TTMSFNCCustomSelectorItem).CanSelect;\r\n    FHint := (Source as TTMSFNCCustomSelectorItem).Hint;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCCustomSelectorItem.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(Collection) then\r\n    FOwner := (Collection as TTMSFNCCustomSelectorItems).FOwner;\r\n  FSeparator := False;\r\n  FColumnSpan := 1;\r\n  FCanDeselect := True;\r\n  FCanSelect := True;\r\n  FRowSpan := 1;\r\n  FMargins := TTMSFNCMargins.Create;\r\n  FMargins.OnChange := @MarginsChanged;\r\n  FEnabled := True;\r\n  FSeparatorHeight := 5;\r\n  FVisible := True;\r\n  if Assigned(FOwner) then\r\n    FOwner.CalculateItems;\r\nend;\r\n\r\ndestructor TTMSFNCCustomSelectorItem.Destroy;\r\nbegin\r\n  FMargins.Free;\r\n  inherited;\r\n  if Assigned(FOwner) then\r\n    FOwner.CalculateItems;\r\nend;\r\n\r\nfunction TTMSFNCCustomSelectorItem.IsSeparatorHeightStored: Boolean;\r\nbegin\r\n  Result := SeparatorHeight <> 5;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorItem.MarginsChanged(Sender: TObject);\r\nbegin\r\n  FOwner.CalculateItems;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorItem.SetCanDeselect(const Value: Boolean);\r\nbegin\r\n  FCanDeselect := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorItem.SetCanSelect(const Value: Boolean);\r\nbegin\r\n  FCanSelect := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorItem.SetColumnSpan(const Value: Integer);\r\nbegin\r\n  if FColumnSpan <> Value then\r\n  begin\r\n    FColumnSpan := Value;\r\n    FOwner.CalculateItems;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorItem.SetEnabled(const Value: Boolean);\r\nbegin\r\n  if FEnabled <> Value then\r\n  begin\r\n    FEnabled := Value;\r\n    FOwner.InvalidateItems;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorItem.SetHorizontalTextAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FHorizontalTextAlign <> Value then\r\n  begin\r\n    FHorizontalTextAlign := Value;\r\n    FOwner.InvalidateItems;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorItem.SetMargins(const Value: TTMSFNCMargins);\r\nbegin\r\n  FMargins.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorItem.SetRowSpan(const Value: Integer);\r\nbegin\r\n  if FRowSpan <> Value then\r\n  begin\r\n    FRowSpan := Value;\r\n    FOwner.CalculateItems;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorItem.SetSeparator(const Value: Boolean);\r\nbegin\r\n  if FSeparator <> Value then\r\n  begin\r\n    FSeparator := Value;\r\n    FOwner.CalculateItems;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorItem.SetSeparatorHeight(const Value: Single);\r\nbegin\r\n  if FSeparatorHeight <> Value then\r\n  begin\r\n    FSeparatorHeight := Value;\r\n    FOwner.InvalidateItems;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorItem.SetText(const Value: String);\r\nbegin\r\n  if FText <> Value then\r\n  begin\r\n    FText := Value;\r\n    FOwner.InvalidateItems;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorItem.SetVerticalTextAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FVerticalTextAlign <> Value then\r\n  begin\r\n    FVerticalTextAlign := Value;\r\n    FOwner.InvalidateItems;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorItem.SetVisible(const Value: Boolean);\r\nbegin\r\n  if FVisible <> Value then\r\n  begin\r\n    FVisible := Value;\r\n    FOwner.CalculateItems;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomSelectorItem.State: TTMSFNCCustomSelectorItemState;\r\nbegin\r\n  Result := isNormal;\r\n  if not Separator then\r\n  begin\r\n    if Enabled then\r\n    begin\r\n      if Index = FOwner.FDownItemIndex then\r\n        Result := isDown\r\n      else if Index = FOwner.FHoveredItemIndex then\r\n        Result := isHover\r\n      else if Index = FOwner.FSelectedItemIndex then\r\n        Result := isSelected\r\n    end\r\n    else\r\n      Result := isDisabled;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCCustomSelectorItems }\r\n\r\nfunction TTMSFNCCustomSelectorItems.Add: TTMSFNCCustomSelectorItem;\r\nbegin\r\n  Result := TTMSFNCCustomSelectorItem(inherited Add);\r\nend;\r\n\r\nconstructor TTMSFNCCustomSelectorItems.Create(AOwner: TTMSFNCCustomSelector);\r\nbegin\r\n  inherited Create(AOwner, CreateItemClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCCustomSelectorItems.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCCustomSelectorItem;\r\nend;\r\n\r\nfunction TTMSFNCCustomSelectorItems.GetItem(\r\n  Index: Integer): TTMSFNCCustomSelectorItem;\r\nbegin\r\n  Result := TTMSFNCCustomSelectorItem(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCCustomSelectorItems.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCCustomSelectorItems.Insert(\r\n  Index: Integer): TTMSFNCCustomSelectorItem;\r\nbegin\r\n  Result := TTMSFNCCustomSelectorItem(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorItems.SetItem(Index: Integer;\r\n  const Value: TTMSFNCCustomSelectorItem);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCCustomSelectorAppearance }\r\n\r\nprocedure TTMSFNCCustomSelectorAppearance.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCCustomSelectorAppearance then\r\n  begin\r\n    FFill.Assign((Source as TTMSFNCCustomSelectorAppearance).Fill);\r\n    FFillHover.Assign((Source as TTMSFNCCustomSelectorAppearance).FillHover);\r\n    FFillSelected.Assign((Source as TTMSFNCCustomSelectorAppearance).FillSelected);\r\n    FFillDisabled.Assign((Source as TTMSFNCCustomSelectorAppearance).FillDisabled);\r\n    FFillDown.Assign((Source as TTMSFNCCustomSelectorAppearance).FillDown);\r\n    FStroke.Assign((Source as TTMSFNCCustomSelectorAppearance).Stroke);\r\n    FStrokeHover.Assign((Source as TTMSFNCCustomSelectorAppearance).StrokeHover);\r\n    FStrokeSelected.Assign((Source as TTMSFNCCustomSelectorAppearance).StrokeSelected);\r\n    FStrokeDown.Assign((Source as TTMSFNCCustomSelectorAppearance).StrokeDown);\r\n    FStrokeDisabled.Assign((Source as TTMSFNCCustomSelectorAppearance).StrokeDisabled);\r\n    FVerticalSpacing := (Source as TTMSFNCCustomSelectorAppearance).VerticalSpacing;\r\n    FHorizontalSpacing := (Source as TTMSFNCCustomSelectorAppearance).HorizontalSpacing;\r\n    FSeparatorStroke.Assign((Source as TTMSFNCCustomSelectorAppearance).SeparatorStroke);\r\n    FFont.AssignSource((Source as TTMSFNCCustomSelectorAppearance).Font);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorAppearance.Changed;\r\nbegin\r\n  FOwner.CalculateItems;\r\nend;\r\n\r\nconstructor TTMSFNCCustomSelectorAppearance.Create(AOwner: TTMSFNCCustomSelector);\r\nbegin\r\n  FOwner := AOwner;\r\n  FFill := TTMSFNCGraphicsFill.Create;\r\n  FFill.Color := Lighter(gcLightgray, 50);\r\n  FFillHover := TTMSFNCGraphicsFill.Create;\r\n  FFillHover.Color := Lighter(gcLightslategray, 50);\r\n  FFillDown := TTMSFNCGraphicsFill.Create;\r\n  FFillDown.Color := Lighter(gcSlategray, 50);\r\n  FFillSelected := TTMSFNCGraphicsFill.Create;\r\n  FFillSelected.Color := Lighter(gcSlategray, 50);\r\n  FFillDisabled := TTMSFNCGraphicsFill.Create;\r\n  FFillDisabled.Color := Lighter(gcGray, 50);\r\n\r\n  FStroke := TTMSFNCGraphicsStroke.Create;\r\n  FStroke.Color := gcDarkgray;\r\n  FStrokeHover := TTMSFNCGraphicsStroke.Create;\r\n  FStrokeHover.Color := gcLightslategray;\r\n  FStrokeDown := TTMSFNCGraphicsStroke.Create;\r\n  FStrokeDown.Color := gcSlategray;\r\n  FStrokeSelected := TTMSFNCGraphicsStroke.Create;\r\n  FStrokeSelected.Color := gcDarkslategray;\r\n  FStrokeDisabled := TTMSFNCGraphicsStroke.Create;\r\n  FStrokeDisabled.Color := gcDarkgray;\r\n\r\n  FSeparatorStroke := TTMSFNCGraphicsStroke.Create;\r\n  FSeparatorStroke.Color := gcDarkGray;\r\n\r\n  FFont := TTMSFNCGraphicsFont.Create;\r\n  FFont.OnChanged := @FontChanged;\r\n\r\n  FSeparatorStroke.OnChanged := @StrokeChanged;\r\n  FFont.OnChanged := @FontChanged;\r\n\r\n  FFill.OnChanged := @FillChanged;\r\n  FFillDown.OnChanged := @FillChanged;\r\n  FFillHover.OnChanged := @FillChanged;\r\n  FFillSelected.OnChanged := @FillChanged;\r\n  FFillDisabled.OnChanged := @FillChanged;\r\n\r\n  FStroke.OnChanged := @StrokeChanged;\r\n  FStrokeHover.OnChanged := @StrokeChanged;\r\n  FStrokeDown.OnChanged := @StrokeChanged;\r\n  FStrokeDisabled.OnChanged := @StrokeChanged;\r\n  FStrokeSelected.OnChanged := @StrokeChanged;\r\n\r\n  FHorizontalSpacing := 4;\r\n  FVerticalSpacing := 4;\r\nend;\r\n\r\ndestructor TTMSFNCCustomSelectorAppearance.Destroy;\r\nbegin\r\n  FFont.Free;\r\n  FFill.Free;\r\n  FFillDown.Free;\r\n  FFillSelected.Free;\r\n  FFillHover.Free;\r\n  FFillDisabled.Free;\r\n  FSeparatorStroke.Free;\r\n  FStroke.Free;\r\n  FStrokeDown.Free;\r\n  FStrokeSelected.Free;\r\n  FStrokeHover.Free;\r\n  FStrokeDisabled.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorAppearance.FillChanged(Sender: TObject);\r\nbegin\r\n  FOwner.InvalidateItems;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorAppearance.FontChanged(Sender: TObject);\r\nbegin\r\n  FOwner.InvalidateItems;\r\nend;\r\n\r\nfunction TTMSFNCCustomSelectorAppearance.IsHorizontalSpacingStored: Boolean;\r\nbegin\r\n  Result := HorizontalSpacing <> 4;\r\nend;\r\n\r\nfunction TTMSFNCCustomSelectorAppearance.IsVerticalSpacingStored: Boolean;\r\nbegin\r\n  Result := VerticalSpacing <> 4;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorAppearance.SetFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorAppearance.SetFillDisabled(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FFillDisabled.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorAppearance.SetFillDown(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FFillDown.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorAppearance.SetFillHover(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FFillHover.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorAppearance.SetFillSelected(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FFillSelected.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorAppearance.SetFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FFont.AssignSource(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorAppearance.SetHorizontalSpacing(\r\n  const Value: Single);\r\nbegin\r\n  if FHorizontalSpacing <> Value then\r\n  begin\r\n    FHorizontalSpacing := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorAppearance.SetSeparatorStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FSeparatorStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorAppearance.SetStroke(const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorAppearance.SetStrokeDisabled(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FStrokeDisabled.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorAppearance.SetStrokeDown(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FStrokeDown.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorAppearance.SetStrokeHover(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FStrokeHover.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorAppearance.SetStrokeSelected(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FStrokeSelected.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorAppearance.SetVerticalSpacing(const Value: Single);\r\nbegin\r\n  if FVerticalSpacing <> Value then\r\n  begin\r\n    FVerticalSpacing := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorAppearance.StrokeChanged(Sender: TObject);\r\nbegin\r\n  FOwner.InvalidateItems;\r\nend;\r\n\r\n{ TTMSFNCGraphicsPathPoint }\r\n\r\n{$IFDEF LCLLIB}\r\nclass operator TTMSFNCCustomSelectorDisplayItem.=(z1, z2: TTMSFNCCustomSelectorDisplayItem)b: boolean;\r\nbegin\r\n  Result := z1 = z2;\r\nend;\r\n\r\nclass operator TTMSFNCCustomSelectorPositionItem.=(z1, z2: TTMSFNCCustomSelectorPositionItem)b: boolean;\r\nbegin\r\n  Result := z1 = z2;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF WEBLIB}\r\nfunction TTMSFNCCustomSelectorDisplayList.GetItem(Index: Integer): TTMSFNCCustomSelectorDisplayItem;\r\nbegin\r\n  Result := TTMSFNCCustomSelectorDisplayItem(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSelectorDisplayList.SetItem(Index: Integer; const Value: TTMSFNCCustomSelectorDisplayItem);\r\nvar\r\n  v: TTMSFNCCustomSelectorDisplayItem;\r\nbegin\r\n  v := Value;\r\n  inherited Items[Index] := v;\r\nend;\r\n{$ENDIF}\r\n\r\ninitialization\r\n  RegisterClass(TTMSFNCCustomSelector);\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2016 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : https://www.tmssoftware.com                       }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCCustomPicker;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF CMNLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface \r\n\r\nuses\r\n  Classes, WEBLib.TMSFNCCustomSelector, WEBLib.TMSFNCPersistence, WEBLib.TMSFNCGraphics, WEBLib.TMSFNCGraphicsTypes,\r\n  WEBLib.TMSFNCCustomControl, WEBLib.TMSFNCPopup, WEBLib.TMSFNCTypes, WEBLib.Controls\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  , UITypes, Types\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  , FMX.Edit, FMX.Types\r\n  {$ENDIF}\r\n  , WEBLib.StdCtrls, WEBLib.ExtCtrls\r\n  ;\r\n\r\ntype\r\n  TTMSFNCCustomPickerBeforeDraw = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCCustomPickerAfterDraw = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF) of object;\r\n\r\n  TTMSFNCCustomPicker = class(TTMSFNCCustomControl)\r\n  private\r\n    FExitTimerClose: Boolean;\r\n    FDefaultStyle: Boolean;\r\n    FKeyDown: Word;\r\n    FContent: string;\r\n    FEdit: TEdit;\r\n    FTimer: TTimer;\r\n    FExitTimer: TTimer;\r\n    FControlExitTimer: TTimer;\r\n    FDown: Boolean;\r\n    FPopup: TTMSFNCPopup;\r\n    FSelector: TTMSFNCCustomSelector;\r\n    FOnItemBeforeDrawText: TTMSFNCCustomSelectorItemBeforeDrawText;\r\n    FOnAfterDraw: TTMSFNCCustomSelectorAfterDraw;\r\n    FOnItemAfterDrawBackground: TTMSFNCCustomSelectorItemAfterDrawBackground;\r\n    FOnItemSelected: TTMSFNCCustomSelectorItemSelected;\r\n    FOnItemAfterDrawText: TTMSFNCCustomSelectorItemAfterDrawText;\r\n    FOnBeforeDraw: TTMSFNCCustomSelectorBeforeDraw;\r\n    FOnItemBeforeDrawBackground: TTMSFNCCustomSelectorItemBeforeDrawBackground;\r\n    FDropDownHeight: Single;\r\n    FDropDownWidth: Single;\r\n    FOnItemDeselected: TTMSFNCCustomSelectorItemDeselected;\r\n    FOnItemClick: TTMSFNCCustomSelectorItemClick;\r\n    FOnItemBeforeDrawContent: TTMSFNCCustomSelectorItemBeforeDrawContent;\r\n    FOnItemAfterDrawContent: TTMSFNCCustomSelectorItemAfterDrawContent;\r\n    FOnPickerBeforeDraw: TTMSFNCCustomPickerBeforeDraw;\r\n    FOnPickerAfterDraw: TTMSFNCCustomPickerAfterDraw;\r\n    FShowFocus: Boolean;\r\n    FOnClosePopup: TNotifyEvent;\r\n    FOnPopup: TNotifyEvent;\r\n    FOnEditChange: TNotifyEvent;\r\n    FOldEnter: TNotifyEvent;\r\n    FOldExit: TNotifyEvent;\r\n    FEditable: Boolean;\r\n    FUpdateCount: Integer;\r\n    FFont: TTMSFNCGraphicsFont;\r\n    FPreventDropDown: Boolean;\r\n    procedure CalcSize;\r\n    function GetAppearance: TTMSFNCCustomSelectorAppearance;\r\n    function GetColumns: Integer;\r\n    function GetItems: TTMSFNCCustomSelectorItems;\r\n    function GetRows: Integer;\r\n    function GetSelectedItemIndex: Integer;\r\n    procedure SetAppearance(const Value: TTMSFNCCustomSelectorAppearance);\r\n    procedure SetColumns(const Value: Integer);\r\n    procedure SetItems(const Value: TTMSFNCCustomSelectorItems);\r\n    procedure SetRows(const Value: Integer);\r\n    procedure SetSelectedItemIndex(const Value: Integer);\r\n    function GetFill: TTMSFNCGraphicsFill;\r\n    function GetStroke: TTMSFNCGraphicsStroke;\r\n    procedure SetFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetDropDownHeight(const Value: Single);\r\n    procedure SetDropDownWidth(const Value: Single);\r\n    function IsDropDownHeightStored: Boolean;\r\n    function IsDropDownWidthStored: Boolean;\r\n    function GetPopup: TTMSFNCPopup;\r\n    function GetSelector: TTMSFNCCustomSelector;\r\n    procedure SetShowFocus(const Value: Boolean);\r\n    procedure SetContent(const Value: String);\r\n    procedure SetDefaultStyle(const Value: Boolean);\r\n    procedure SetFnt(const Value: TTMSFNCGraphicsFont);\r\n  protected\r\n    procedure DisableEnterEvent;\r\n    procedure DisableExitEvent;\r\n    procedure EnableExitEvent;\r\n    procedure EnableEnterEvent;\r\n    procedure ChangeDPIScale(M,D: Integer); override;\r\n    function GetVersion: String; override;\r\n    function GetContent: String; virtual;\r\n    function GetDocURL: string; override;\r\n    procedure SetEditable(const Value: Boolean); virtual;\r\n    procedure ApplyStyle; override;\r\n    procedure SetAdaptToStyle(const Value: Boolean); override;\r\n    procedure DoExit; override;\r\n    procedure DoEnter; override;\r\n    procedure DoEditExit(Sender: TObject); virtual;\r\n    procedure DoEditEnter(Sender: TObject); virtual;\r\n    procedure UpdateEditText(AText: string); virtual;\r\n    procedure DoItemSelected(Sender: TObject; AItemIndex: Integer); virtual;\r\n    procedure DoItemDeselected(Sender: TObject; AItemIndex: Integer); virtual;\r\n    procedure DoItemClick(Sender: TObject; AItemIndex: Integer); virtual;\r\n    procedure DoItemBeforeDrawBackground(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer; var AAllowDraw: Boolean); virtual;\r\n    procedure DoItemAfterDrawBackground(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer); virtual;\r\n    procedure DoItemBeforeDrawContent(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer; var AAllowDraw: Boolean); virtual;\r\n    procedure DoItemAfterDrawContent(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer); virtual;\r\n    procedure DoItemBeforeDrawText(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer; var AText: String; var AAllowDraw: Boolean); virtual;\r\n    procedure DoItemAfterDrawText(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer; AText: String); virtual;\r\n    procedure DoBeforeDraw(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; var AAllowDraw: Boolean); reintroduce; virtual;\r\n    procedure DoAfterDraw(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF); reintroduce; virtual;\r\n    procedure DoPickerBeforeDraw(AGraphics: TTMSFNCGraphics; ARect: TRectF; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoPickerAfterDraw(AGraphics: TTMSFNCGraphics; ARect: TRectF); virtual;\r\n    procedure Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF); override;\r\n    procedure SelectFirstValue; virtual;\r\n    procedure SelectLastValue; virtual;\r\n    procedure SelectNextValue; virtual;\r\n    procedure SelectPreviousValue; virtual;\r\n    procedure EditUp; virtual;\r\n    procedure EditDown; virtual;\r\n    procedure DoPopup(Sender: TObject);\r\n    procedure DoClosePopup(Sender: TObject);\r\n    procedure EnterTimerChanged(Sender: TObject);\r\n    procedure ExitTimerChanged(Sender: TObject);\r\n    procedure ControlExitTimerChanged(Sender: TObject);\r\n    procedure EditChange(Sender: TObject);\r\n    procedure DoEditChange; virtual;\r\n    procedure HandleDialogKey(var Key: Word; Shift: TShiftState); override;\r\n    procedure InitializePopup; virtual;\r\n    procedure FntChanged(Sender: TObject);\r\n\r\n    function CreateSelector: TTMSFNCCustomSelector; virtual;\r\n    function GetFocusedControl: TControl; virtual;\r\n    procedure AssignEvents; virtual;\r\n    procedure SetGraphicColors; virtual;\r\n    procedure DrawContent({%H-}AGraphics: TTMSFNCGraphics; {%H-}ARect: TRectF); virtual;\r\n    procedure DrawBackground(AGraphics: TTMSFNCGraphics; ARect: TRectF); override;\r\n    procedure HandleMouseDown({%H-}Button: TTMSFNCMouseButton; Shift: TShiftState; X, Y: Single); override;\r\n    procedure HandleMouseUp({%H-}Button: TTMSFNCMouseButton; {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Single); override;\r\n    procedure HandleKeyDown(var Key: Word; Shift: TShiftState); override;\r\n    {$IFDEF FMXLIB}\r\n    procedure EditKeyDown(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    procedure EditKeyDown(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState);\r\n    procedure EditKeyPress(Sender: TObject; var Key: Char);\r\n    {$ENDIF}\r\n    property PreventDropDown: Boolean read FPreventDropDown write FPreventDropDown;\r\n    property Font: TTMSFNCGraphicsFont read FFont write SetFnt;\r\n    property Fill: TTMSFNCGraphicsFill read GetFill write SetFill;\r\n    property Stroke: TTMSFNCGraphicsStroke read GetStroke write SetStroke;\r\n    property DropDownHeight: Single read FDropDownHeight write SetDropDownHeight stored IsDropDownHeightStored nodefault;\r\n    property DropDownWidth: Single read FDropDownWidth write SetDropDownWidth stored IsDropDownWidthStored nodefault;\r\n    property Appearance: TTMSFNCCustomSelectorAppearance read GetAppearance write SetAppearance;\r\n    property SelectedItemIndex: Integer read GetSelectedItemIndex write SetSelectedItemIndex default -1;\r\n    property Rows: Integer read GetRows write SetRows default 4;\r\n    property ShowFocus: Boolean read FShowFocus write SetShowFocus default True;\r\n    property Columns: Integer read GetColumns write SetColumns default 4;\r\n    property Items: TTMSFNCCustomSelectorItems read GetItems write SetItems;\r\n    property OnPickerBeforeDraw: TTMSFNCCustomPickerBeforeDraw read FOnPickerBeforeDraw write FOnPickerBeforeDraw;\r\n    property OnPickerAfterDraw: TTMSFNCCustomPickerAfterDraw read FOnPickerAfterDraw write FOnPickerAfterDraw;\r\n    property OnItemSelected: TTMSFNCCustomSelectorItemSelected read FOnItemSelected write FOnItemSelected;\r\n    property OnItemDeselected: TTMSFNCCustomSelectorItemDeselected read FOnItemDeselected write FOnItemDeselected;\r\n    property OnItemClick: TTMSFNCCustomSelectorItemClick read FOnItemClick write FOnItemClick;\r\n    property OnItemBeforeDrawBackground: TTMSFNCCustomSelectorItemBeforeDrawBackground read FOnItemBeforeDrawBackground write FOnItemBeforeDrawBackground;\r\n    property OnItemAfterDrawBackground: TTMSFNCCustomSelectorItemAfterDrawBackground read FOnItemAfterDrawBackground write FOnItemAfterDrawBackground;\r\n    property OnItemBeforeDrawContent: TTMSFNCCustomSelectorItemBeforeDrawContent read FOnItemBeforeDrawContent write FOnItemBeforeDrawContent;\r\n    property OnItemAfterDrawContent: TTMSFNCCustomSelectorItemAfterDrawContent read FOnItemAfterDrawContent write FOnItemAfterDrawContent;\r\n    property OnBeforeDraw: TTMSFNCCustomSelectorBeforeDraw read FOnBeforeDraw write FOnBeforeDraw;\r\n    property OnAfterDraw: TTMSFNCCustomSelectorAfterDraw read FOnAfterDraw write FOnAfterDraw;\r\n    property OnItemBeforeDrawText: TTMSFNCCustomSelectorItemBeforeDrawText read FOnItemBeforeDrawText write FOnItemBeforeDrawText;\r\n    property OnItemAfterDrawText: TTMSFNCCustomSelectorItemAfterDrawText read FOnItemAfterDrawText write FOnItemAfterDrawText;\r\n    property Editable: Boolean read FEditable write SetEditable default False;\r\n    property OnEditChange: TNotifyEvent read FOnEditChange write FOnEditChange;\r\n    property OnClosePopup: TNotifyEvent read FOnClosePopup write FOnClosePopup;\r\n    property OnPopup: TNotifyEvent read FOnPopup write FOnPopup;\r\n    property Version: String read GetVersion;\r\n    property Content: String read GetContent write SetContent;\r\n    property UpdateCount: Integer read FUpdateCount;\r\n    property DefaultStyle: Boolean read FDefaultStyle write SetDefaultStyle default True;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure DropDown; virtual;\r\n    property Popup: TTMSFNCPopup read GetPopup;\r\n    property Selector: TTMSFNCCustomSelector read GetSelector;\r\n    property Edit: TEdit read FEdit;\r\n    procedure BeginUpdate; override;\r\n    procedure EndUpdate; override;\r\n    procedure LoadSettingsFromFile(AFileName: string); override;\r\n    procedure LoadSettingsFromStream(AStream: TStream); override;\r\n  end;\r\n\r\n  TTMSFNCDefaultPicker = class(TTMSFNCCustomPicker)\r\n  published\r\n    property DefaultStyle;\r\n    property Fill;\r\n    property Stroke;\r\n    property Font;\r\n    property Version;\r\n    property OnPopup;\r\n    property OnClosePopup;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  SysUtils, WEBLib.TMSFNCUtils, WEBLib.TMSFNCStyles\r\n  {$IFDEF VCLLIB}\r\n  , VCL.Graphics, Winapi.Messages\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCOpenCustomSelector = class(TTMSFNCCustomSelector)\r\n  public\r\n    property Appearance;\r\n    property Columns;\r\n    property Rows;\r\n    property Items;\r\n    property SelectedItemIndex;\r\n    property OnItemSelected;\r\n    property OnItemDeselected;\r\n    property OnItemClick;\r\n    property OnItemBeforeDrawBackground;\r\n    property OnItemAfterDrawBackground;\r\n    property OnItemBeforeDrawContent;\r\n    property OnItemAfterDrawContent;\r\n    property OnItemBeforeDrawText;\r\n    property OnItemAfterDrawText;\r\n    property OnBeforeDraw;\r\n    property OnAfterDraw;\r\n  end;\r\n\r\n  TTMSFNCCustomPickerEdit = class(TEdit)\r\n  {$IFDEF VCLLIB}\r\n  private\r\n    FOnCancelMode: TNotifyEvent;\r\n  protected\r\n    procedure WndProc(var Msg : TMessage); override;\r\n    property OnCancelMode: TNotifyEvent read FOnCancelMode write FOnCancelMode;\r\n  {$ENDIF}\r\n  end;\r\n\r\n{ TTMSFNCCustomPicker }\r\n\r\nconstructor TTMSFNCCustomPicker.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FExitTimerClose := False;\r\n  FPreventDropDown := False;\r\n  FFont := TTMSFNCGraphicsFont.Create;\r\n  FFont.OnChanged := @FntChanged;\r\n\r\n  FDefaultStyle := True;\r\n  FTimer := TTimer.Create(Self);\r\n  FTimer.Interval := 1;\r\n  FTimer.OnTimer := EnterTimerChanged;\r\n  FTimer.Enabled := False;\r\n\r\n  FExitTimer := TTimer.Create(Self);\r\n  FExitTimer.Interval := 1;\r\n  FExitTimer.OnTimer := ExitTimerChanged;\r\n  FExitTimer.Enabled := False;\r\n\r\n  FControlExitTimer := TTimer.Create(Self);\r\n  FControlExitTimer.Interval := 1;\r\n  FControlExitTimer.OnTimer := ControlExitTimerChanged;\r\n  FControlExitTimer.Enabled := False;\r\n\r\n  //FEdit := TEdit.Create(Self);\r\n  FEdit := TTMSFNCCustomPickerEdit.Create(Self);\r\n  FEdit.TabOrder := 0;\r\n  FEdit.TabStop := True;\r\n  FEdit.OnKeyDown := @EditKeyDown;\r\n  FEdit.OnExit := @DoEditExit;\r\n  FEdit.OnEnter := @DoEditEnter;\r\n  {$IFDEF FMXLIB}\r\n  FEdit.Margins.Left := 0;\r\n  FEdit.Margins.Top := 0;\r\n  FEdit.Margins.Right := 17;\r\n  FEdit.Margins.Bottom := 0;\r\n  FEdit.Align := TAlignLayout.Client;\r\n  FEdit.Stored := False;\r\n  FEdit.OnChangeTracking := EditChange;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  {$IFDEF VCLLIB}\r\n  FEdit.AlignWithMargins := True;\r\n  FEdit.Margins.Left := 0;\r\n  FEdit.Margins.Top := 0;\r\n  FEdit.Margins.Right := ScalePaintValue(17);\r\n  FEdit.Margins.Bottom := 0;\r\n  TTMSFNCCustomPickerEdit(FEdit).OnCancelMode := DoEditExit;\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  FEdit.AlignWithMargins := True;\r\n  FEdit.Margins.Left := 0;\r\n  FEdit.Margins.Top := 0;\r\n  FEdit.Margins.Right := 17;\r\n  FEdit.Margins.Bottom := 0;\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  FEdit.BorderSpacing.Left := 0;\r\n  FEdit.BorderSpacing.Top := 0;\r\n  FEdit.BorderSpacing.Right := ScalePaintValue(17);\r\n  FEdit.BorderSpacing.Bottom := 0;\r\n  {$ENDIF}\r\n  FEdit.Align := alClient;\r\n  FEdit.OnChange := @EditChange;\r\n  FEdit.OnKeyPress := EditKeyPress;\r\n  {$ENDIF}\r\n\r\n  FDropDownWidth := 135;\r\n  FDropDownHeight := 135;\r\n  FShowFocus := True;\r\n  {$IFDEF FMXLIB}\r\n  AutoCapture := True;\r\n  {$ENDIF}\r\n  FSelector := CreateSelector;\r\n  AssignEvents;\r\n\r\n  FPopup := TTMSFNCPopup.Create(Self);\r\n  FPopup.DragWithParent := True;\r\n  FPopup.FocusedControl := GetFocusedControl;\r\n  FPopup.ContentControl := FSelector;\r\n  FPopup.DropDownWidth := FDropDownWidth;\r\n  FPopup.DropDownHeight := FDropDownHeight;\r\n  FPopup.OnPopup := DoPopup;\r\n  FPopup.OnClosePopup := DoClosePopup;\r\n\r\n  Width := 60;\r\n  Height := 22;\r\nend;\r\n\r\nfunction TTMSFNCCustomPicker.CreateSelector: TTMSFNCCustomSelector;\r\nbegin\r\n  Result := TTMSFNCCustomSelector.Create(Self);\r\nend;\r\n\r\ndestructor TTMSFNCCustomPicker.Destroy;\r\nbegin\r\n  if Assigned(FFont) then\r\n    FreeAndNil(FFont);\r\n  if Assigned(FSelector) then\r\n    FreeAndNil(FSelector);\r\n  if Assigned(FPopup) then\r\n    FreeAndNil(FPopup);\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.DisableEnterEvent;\r\nbegin\r\n  if Assigned(OnEnter) then\r\n    FOldEnter := OnEnter;\r\n\r\n  OnEnter := nil;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.DisableExitEvent;\r\nbegin\r\n  if Assigned(OnExit) then\r\n    FOldExit := OnExit;\r\n\r\n  OnExit := nil;\r\nend;\r\n\r\nfunction TTMSFNCCustomPicker.GetAppearance: TTMSFNCCustomSelectorAppearance;\r\nbegin\r\n  Result := TTMSFNCOpenCustomSelector(FSelector).Appearance;\r\nend;\r\n\r\nfunction TTMSFNCCustomPicker.GetColumns: Integer;\r\nbegin\r\n  Result := TTMSFNCOpenCustomSelector(FSelector).Columns;\r\nend;\r\n\r\nfunction TTMSFNCCustomPicker.GetContent: String;\r\nbegin\r\n  if Assigned(FEdit) and Assigned(FEdit.Parent) and Editable then\r\n    Result := FEdit.Text\r\n  else\r\n    Result := FContent;\r\nend;\r\n\r\nfunction TTMSFNCCustomPicker.GetDocURL: string;\r\nbegin\r\n  Result := TTMSFNCBaseDocURL + 'tmsfncuipack/components/' + LowerCase(ClassName);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.SelectFirstValue;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.SelectLastValue;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.SelectNextValue;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.SelectPreviousValue;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.SetAdaptToStyle(const Value: Boolean);\r\nbegin\r\n  inherited;\r\n  if Assigned(FPopup) then\r\n    FPopup.AdaptToStyle := AdaptToStyle;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.SetAppearance(\r\n  const Value: TTMSFNCCustomSelectorAppearance);\r\nbegin\r\n  TTMSFNCOpenCustomSelector(FSelector).Appearance.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.SetColumns(const Value: Integer);\r\nbegin\r\n  TTMSFNCOpenCustomSelector(FSelector).Columns := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.SetContent(const Value: String);\r\nbegin\r\n  FContent := Value;\r\n  UpdateEditText(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.SetDefaultStyle(const Value: Boolean);\r\nbegin\r\n  if FDefaultStyle <> Value then\r\n  begin\r\n    FDefaultStyle := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.SetDropDownHeight(const Value: Single);\r\nbegin\r\n  FDropDownHeight := Value;\r\n  if Assigned(FPopup) then\r\n    FPopup.DropDownHeight := FDropDownHeight;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.SetDropDownWidth(const Value: Single);\r\nbegin\r\n  FDropDownWidth := Value;\r\n  if Assigned(FPopup) then\r\n    FPopup.DropDownWidth := FDropDownWidth;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.SetEditable(const Value: Boolean);\r\nbegin\r\n  if FEditable <> Value then\r\n  begin\r\n    FEditable := Value;\r\n    if Assigned(FEdit) then\r\n    begin\r\n      if FEditable then\r\n      begin\r\n        FEdit.Parent := Self;\r\n        {$IFDEF CMNLIB}\r\n        FEdit.Font.Height := ScalePaintValue(-11);\r\n        {$IFDEF VCLLIB}\r\n        FEdit.Margins.Right := ScalePaintValue(17);\r\n        {$ENDIF}\r\n        {$ENDIF}\r\n      end\r\n      else\r\n        FEdit.Parent := nil;\r\n\r\n      FEdit.Visible := FEditable;\r\n      UpdateEditText(Content);\r\n      FPopup.StaysOpen := Editable;\r\n    end;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.SetFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  TTMSFNCOpenCustomSelector(FSelector).Fill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.SetFnt(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FFont.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.SetGraphicColors;\r\nbegin\r\n  TTMSFNCGraphics.DefaultPopupFillColor := Fill.Color;\r\n  TTMSFNCGraphics.DefaultPopupStrokeColor := Stroke.Color;\r\n  TTMSFNCGraphics.DefaultButtonFillColor := Fill.Color;\r\n  TTMSFNCGraphics.DefaultButtonStrokeColor := Stroke.Color;\r\n  TTMSFNCGraphics.DefaultTextFontColor := Font.Color;\r\n  TTMSFNCGraphics.DefaultSelectionFillColor := gcDarkGray;\r\n  TTMSFNCGraphics.DefaultButtonFillColorFocused := Lighter(Fill.Color, 20);\r\n  TTMSFNCGraphics.DefaultButtonStrokeColorFocused := Lighter(Stroke.Color, 20);\r\n  TTMSFNCGraphics.DefaultButtonStrokeColorDisabled := gcDarkGray;\r\n  TTMSFNCGraphics.DefaultButtonFillColorDisabled := gcLightgray;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.SetItems(const Value: TTMSFNCCustomSelectorItems);\r\nbegin\r\n  TTMSFNCOpenCustomSelector(FSelector).Items.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.SetRows(const Value: Integer);\r\nbegin\r\n  TTMSFNCOpenCustomSelector(FSelector).Rows := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.SetSelectedItemIndex(const Value: Integer);\r\nbegin\r\n  TTMSFNCOpenCustomSelector(FSelector).SelectedItemIndex := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.SetShowFocus(const Value: Boolean);\r\nbegin\r\n  if FShowFocus <> Value then\r\n  begin\r\n    FShowFocus := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.SetStroke(const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  TTMSFNCOpenCustomSelector(FSelector).Stroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.UpdateEditText(AText: string);\r\nbegin\r\n  if Assigned(FEdit) and Assigned(FEdit.Parent) and Editable then\r\n    FEdit.Text := AText;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.ApplyStyle;\r\nvar\r\n  c: TTMSFNCGraphicsColor;\r\nbegin\r\n  inherited;\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleBackgroundFillColor(c) then\r\n    Fill.Color := c;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleLineFillColor(c) then\r\n    Stroke.Color := c;\r\n\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.AssignEvents;\r\nbegin\r\n  if Assigned(FSelector) then\r\n  begin\r\n    TTMSFNCOpenCustomSelector(FSelector).OnItemSelected := DoItemSelected;\r\n    TTMSFNCOpenCustomSelector(FSelector).OnItemDeselected := DoItemDeselected;\r\n    TTMSFNCOpenCustomSelector(FSelector).OnItemClick := DoItemClick;\r\n    TTMSFNCOpenCustomSelector(FSelector).OnItemBeforeDrawBackground := DoItemBeforeDrawBackground;\r\n    TTMSFNCOpenCustomSelector(FSelector).OnItemAfterDrawBackground := DoItemAfterDrawBackground;\r\n    TTMSFNCOpenCustomSelector(FSelector).OnItemBeforeDrawContent := DoItemBeforeDrawContent;\r\n    TTMSFNCOpenCustomSelector(FSelector).OnItemAfterDrawContent := DoItemAfterDrawContent;\r\n    TTMSFNCOpenCustomSelector(FSelector).OnItemBeforeDrawText := DoItemBeforeDrawText;\r\n    TTMSFNCOpenCustomSelector(FSelector).OnItemAfterDrawText := DoItemAfterDrawText;\r\n    TTMSFNCOpenCustomSelector(FSelector).OnBeforeDraw := DoBeforeDraw;\r\n    TTMSFNCOpenCustomSelector(FSelector).OnAfterDraw := DoAfterDraw;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.BeginUpdate;\r\nbegin\r\n  inherited;\r\n  Inc(FUpdateCount);\r\n  if Assigned(FSelector) then\r\n    FSelector.BeginUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.CalcSize;\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.ChangeDPIScale(M, D: Integer);\r\nbegin\r\n  inherited;\r\n  BeginUpdate;\r\n  Font.Height := TTMSFNCUtils.MulDivInt(Font.Height, M, D);\r\n  {$IFDEF CMNLIB}\r\n  FEdit.Font.Height := TTMSFNCUtils.MulDivInt(FEdit.Font.Height, M, D);\r\n  {$ENDIF}\r\n\r\n  {$IFNDEF LCLLIB}\r\n  FEdit.Margins.Right := ScalePaintValue(17);\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  FEdit.BorderSpacing.Right := ScalePaintValue(17);\r\n  {$ENDIF}\r\n\r\n  DropDownHeight := TTMSFNCUtils.MulDivSingle(FDropDownHeight, M, D);\r\n  DropDownWidth := TTMSFNCUtils.MulDivSingle(FDropDownWidth, M, D);\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.ControlExitTimerChanged(Sender: TObject);\r\nbegin\r\n  FControlExitTimer.Enabled := False;\r\n\r\n  if not FEdit.IsFocused {$IFNDEF WEBLIB}and not Assigned(FPopup.PopupForm){$ENDIF} then\r\n    EnableEnterEvent;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.DropDown;\r\nbegin\r\n  DisableExitEvent;\r\n\r\n  FPopup.PlacementControl := Self;\r\n\r\n  if not FPopup.IsOpen then\r\n  begin\r\n    CalcSize;\r\n    FPopup.IsOpen := True;\r\n  end\r\n  else\r\n    FPopup.IsOpen := False;\r\n\r\n  EnableExitEvent;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.EditChange(Sender: TObject);\r\nbegin\r\n  Content := FEdit.Text;\r\n  DoEditChange;\r\n  if Assigned(OnEditChange) then\r\n    OnEditChange(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.EnableEnterEvent;\r\nbegin\r\n  OnEnter := FOldEnter;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.EnableExitEvent;\r\nbegin\r\n  OnExit := FOldExit;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.EndUpdate;\r\nbegin\r\n  inherited;\r\n  Dec(FUpdateCount);\r\n  if Assigned(FSelector) then\r\n    FSelector.EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.EnterTimerChanged(Sender: TObject);\r\nbegin\r\n  if Editable and (not FExitTimerClose) then\r\n  begin\r\n    DisableExitEvent;\r\n    FEdit.SetFocus;\r\n    EnableExitEvent;\r\n  end;\r\n\r\n  FExitTimerClose := False;\r\n  FTimer.Enabled := False;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.ExitTimerChanged(Sender: TObject);\r\nvar\r\n  f: Boolean;\r\nbegin\r\n  FExitTimer.Enabled := False;\r\n\r\n  FExitTimerClose := True;\r\n\r\n  f := True;\r\n  {$IFNDEF VCLLIB}\r\n  if Assigned(FPopup.FocusedControl) then\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    f := not FPopup.FocusedControl.IsFocused;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    if FPopup.FocusedControl is TCustomControl then\r\n      f := not (FPopup.FocusedControl as TCustomControl).Focused;\r\n    {$ENDIF}\r\n    {$IFDEF CMNLIB}\r\n    if FPopup.FocusedControl is TWinControl then\r\n      f := not (FPopup.FocusedControl as TWinControl).Focused;\r\n    {$ENDIF}\r\n  end\r\n  else if Assigned(FPopup.ContentControl) then\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    f := not FPopup.ContentControl.IsFocused;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    if FPopup.ContentControl is TCustomControl then\r\n      f := not (FPopup.ContentControl as TCustomControl).Focused;\r\n    {$ENDIF}\r\n    {$IFDEF CMNLIB}\r\n    if FPopup.ContentControl is TWinControl then\r\n      f := not (FPopup.ContentControl as TWinControl).Focused;\r\n    {$ENDIF}\r\n  end;\r\n  {$ENDIF}\r\n\r\n  if FPopup.IsOpen and (not FDown) and f and (not PreventDropDown) then\r\n  begin\r\n    DropDown;\r\n    {$IFNDEF CMNLIB}\r\n    DoExit;\r\n    if CanFocus and Assigned(OnExit) then\r\n      OnExit(Self);\r\n    {$ENDIF}\r\n    {$IFDEF CMNLIB}\r\n    FControlExitTimer.Enabled := True;\r\n    {$ENDIF}\r\n  end\r\n  else if not FPopup.IsOpen and (not FDown) then\r\n  begin\r\n    {$IFNDEF CMNLIB}\r\n    DoExit;\r\n    {$ENDIF}\r\n    {$IFDEF CMNLIB}\r\n    FControlExitTimer.Enabled := True;\r\n    {$ENDIF}\r\n  end;\r\n\r\n  PreventDropDown := False;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.FntChanged(Sender: TObject);\r\nbegin\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.HandleMouseUp(Button: TTMSFNCMouseButton; Shift: TShiftState; X, Y: Single);\r\nbegin\r\n  {$IFDEF VCLLIB}\r\n  if FExitTimer.Enabled then\r\n    FPreventDropDown := True;\r\n  {$ENDIF}\r\n\r\n  FDown := False;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.HandleDialogKey(var Key: Word;\r\n  Shift: TShiftState);\r\nbegin\r\n  if Shift <> [] then\r\n    Exit;\r\n\r\n  if Editable and FEdit.IsFocused then\r\n  begin\r\n    case Key of\r\n      KEY_F4:\r\n      begin\r\n        if not (ssAlt in Shift) then\r\n          DropDown;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.HandleKeyDown(var Key: Word; Shift: TShiftState);\r\nbegin\r\n  inherited;\r\n\r\n  if (ssAlt in Shift) then\r\n  begin\r\n    case Key of\r\n      KEY_UP, KEY_DOWN:\r\n      begin\r\n        DropDown;\r\n        Exit;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  case Key of\r\n    KEY_HOME: SelectFirstValue;\r\n    KEY_END: SelectLastValue;\r\n    KEY_UP, KEY_LEFT:  SelectPreviousValue;\r\n    KEY_DOWN, KEY_RIGHT: SelectNextValue;\r\n  end;\r\n\r\n  if Shift <> [] then\r\n    Exit;\r\n\r\n  case Key of\r\n    KEY_SPACE, KEY_RETURN, KEY_F4: DropDown;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.HandleMouseDown(Button: TTMSFNCMouseButton; Shift: TShiftState; X, Y: Single);\r\nbegin\r\n  inherited;\r\n  if CanFocus then\r\n    SetFocus;\r\n\r\n  if (Button = {$IFNDEF WEBLIB}TTMSFNCMouseButton.{$ENDIF}mbLeft) then\r\n  begin\r\n    FDown := True;\r\n    Invalidate;\r\n    DropDown;\r\n    if Editable then\r\n    begin\r\n      DisableExitEvent;\r\n      FEdit.SetFocus;\r\n      EnableExitEvent;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.DoAfterDraw(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nbegin\r\n  if Assigned(OnAfterDraw) then\r\n    OnAfterDraw(Self, AGraphics, ARect);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.DoBeforeDraw(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF;\r\n  var AAllowDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDraw) then\r\n    OnBeforeDraw(Self, AGraphics, ARect, AAllowDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.DoClosePopup(Sender: TObject);\r\nbegin\r\n  if Assigned(OnClosePopup) then\r\n    OnClosePopup(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.DoEditChange;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.DoEditEnter(Sender: TObject);\r\nbegin\r\n  if not FPopup.IsOpen then\r\n    DoEnter;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.DoEditExit(Sender: TObject);\r\nbegin\r\n  FExitTimer.Enabled := True;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.DoEnter;\r\nbegin\r\n  inherited;\r\n  DisableEnterEvent;\r\n  FTimer.Enabled := True;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.DoExit;\r\nbegin\r\n  inherited;\r\n  FControlExitTimer.Enabled := True;\r\n\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nvar\r\n  a: Boolean;\r\n  r, rf: TRectF;\r\nbegin\r\n  inherited;\r\n  a := True;\r\n  DoPickerBeforeDraw(AGraphics, ARect, a);\r\n  if a then\r\n  begin\r\n    DrawBackground(AGraphics, ARect);\r\n    r := ARect;\r\n    r.Right := r.Right - ScalePaintValue(15);\r\n    DrawContent(AGraphics, r);\r\n    if ShowFocus and IsFocused then\r\n    begin\r\n      rf := ARect;\r\n      InflateRectEx(rf, -1, -1);\r\n      AGraphics.DrawFocusRectangle(rf);\r\n    end;\r\n    DoPickerAfterDraw(AGraphics, ARect);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.DrawBackground(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF);\r\nbegin\r\n  if not FDefaultStyle then\r\n  begin\r\n    SetGraphicColors;\r\n  end;\r\n\r\n  AGraphics.DrawDropDownButton(ARect, FDown, IsFocused, True, False, AdaptToStyle or not FDefaultStyle, PaintScaleFactor);\r\n\r\n  if not FDefaultStyle then\r\n    AGraphics.SetDefaultGraphicColors;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.DrawContent(AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nbegin\r\n  AGraphics.Font.Assign(Font);\r\n  if not Enabled then\r\n    AGraphics.Font.Color := gcSilver;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.DoItemAfterDrawContent(Sender: TObject; AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AItemIndex: Integer);\r\nbegin\r\n  if Assigned(OnItemAfterDrawContent) then\r\n    OnItemAfterDrawContent(Self, AGraphics, ARect, AItemIndex);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.DoItemAfterDrawBackground(Sender: TObject; AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AItemIndex: Integer);\r\nbegin\r\n  if Assigned(OnItemAfterDrawBackground) then\r\n    OnItemAfterDrawBackground(Self, AGraphics, ARect, AItemIndex);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.DoItemAfterDrawText(Sender: TObject; AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AItemIndex: Integer; AText: String);\r\nbegin\r\n  if Assigned(OnItemAfterDrawText) then\r\n    OnItemAfterDrawText(Self, AGraphics, ARect, AItemIndex, AText);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.DoItemBeforeDrawBackground(Sender: TObject; AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AItemIndex: Integer; var AAllowDraw: Boolean);\r\nbegin\r\n  if Assigned(OnItemBeforeDrawBackground) then\r\n    OnItemBeforeDrawBackground(Self, AGraphics, ARect, AItemIndex, AAllowDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.DoItemBeforeDrawContent(Sender: TObject; AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AItemIndex: Integer; var AAllowDraw: Boolean);\r\nbegin\r\n  if Assigned(OnItemBeforeDrawContent) then\r\n    OnItemBeforeDrawContent(Self, AGraphics, ARect, AItemIndex, AAllowDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.DoItemBeforeDrawText(Sender: TObject; AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AItemIndex: Integer; var AText: String;\r\n  var AAllowDraw: Boolean);\r\nbegin\r\n  if Assigned(OnItemBeforeDrawText) then\r\n    OnItemBeforeDrawText(Self, AGraphics, ARect, AItemIndex, AText, AAllowDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.DoItemClick(Sender: TObject; AItemIndex: Integer);\r\nbegin\r\n  if Assigned(OnItemClick) then\r\n    OnItemClick(Self, AItemIndex);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.DoItemDeselected(Sender: TObject; AItemIndex: Integer);\r\nbegin\r\n  if Assigned(OnItemDeselected) then\r\n    OnItemDeselected(Self, AItemIndex);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.DoItemSelected(Sender: TObject; AItemIndex: Integer);\r\nbegin\r\n  UpdateEditText('');\r\n  if Assigned(OnItemSelected) then\r\n    OnItemSelected(Self, AItemIndex);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.DoPickerAfterDraw(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF);\r\nbegin\r\n  if Assigned(OnPickerAfterDraw) then\r\n    OnPickerAfterDraw(Self, AGraphics, ARect);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.DoPickerBeforeDraw(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; var ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnPickerBeforeDraw) then\r\n    OnPickerBeforeDraw(Self, AGraphics, ARect, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.DoPopup(Sender: TObject);\r\nbegin\r\n  if Editable and FExitTimer.Enabled then\r\n    PreventDropDown := True;\r\n\r\n  InitializePopup;\r\n  if Assigned(FSelector) then\r\n    TTMSFNCOpenCustomSelector(FSelector).CalculateItems;\r\n  if Assigned(OnPopup) then\r\n    OnPopup(Self);\r\nend;\r\n\r\nfunction TTMSFNCCustomPicker.GetFill: TTMSFNCGraphicsFill;\r\nbegin\r\n  Result := TTMSFNCOpenCustomSelector(FSelector).Fill;\r\nend;\r\n\r\nfunction TTMSFNCCustomPicker.GetFocusedControl: TControl;\r\nbegin\r\n  Result := nil;\r\nend;\r\n\r\nfunction TTMSFNCCustomPicker.GetItems: TTMSFNCCustomSelectorItems;\r\nbegin\r\n  Result := TTMSFNCOpenCustomSelector(FSelector).Items;\r\nend;\r\n\r\nfunction TTMSFNCCustomPicker.GetPopup: TTMSFNCPopup;\r\nbegin\r\n  Result := FPopup;\r\nend;\r\n\r\nfunction TTMSFNCCustomPicker.GetRows: Integer;\r\nbegin\r\n  Result := TTMSFNCOpenCustomSelector(FSelector).Rows;\r\nend;\r\n\r\nfunction TTMSFNCCustomPicker.GetSelectedItemIndex: Integer;\r\nbegin\r\n  Result := TTMSFNCOpenCustomSelector(FSelector).SelectedItemIndex;\r\nend;\r\n\r\nfunction TTMSFNCCustomPicker.GetSelector: TTMSFNCCustomSelector;\r\nbegin\r\n  Result := FSelector;\r\nend;\r\n\r\nfunction TTMSFNCCustomPicker.GetStroke: TTMSFNCGraphicsStroke;\r\nbegin\r\n  Result := TTMSFNCOpenCustomSelector(FSelector).Stroke;\r\nend;\r\n\r\nfunction TTMSFNCCustomPicker.GetVersion: String;\r\nbegin\r\n  Result := GetVersionNumber(MAJ_VER, MIN_VER, REL_VER, BLD_VER);\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.InitializePopup;\r\nbegin\r\n  if Assigned(FPopup) then\r\n  begin\r\n    FPopup.AdaptToStyle := AdaptToStyle;\r\n    if not FDefaultStyle then\r\n    begin\r\n      FPopup.FillColor := Fill.Color;\r\n      FPopup.StrokeColor := Stroke.Color;\r\n    end\r\n    else\r\n    begin\r\n      FPopup.FillColor := gcNull;\r\n      FPopup.StrokeColor := gcNull;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(FSelector) then\r\n    FSelector.AdaptToStyle := AdaptToStyle;\r\nend;\r\n\r\nfunction TTMSFNCCustomPicker.IsDropDownHeightStored: Boolean;\r\nbegin\r\n  Result := DropDownHeight <> 135;\r\nend;\r\n\r\nfunction TTMSFNCCustomPicker.IsDropDownWidthStored: Boolean;\r\nbegin\r\n  Result := DropDownWidth <> 135;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.LoadSettingsFromFile(AFileName: string);\r\nbegin\r\n  FDefaultStyle := False;\r\n  inherited;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.LoadSettingsFromStream(AStream: TStream);\r\nbegin\r\n  FDefaultStyle := False;\r\n  inherited;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.EditUp;\r\nbegin\r\n  //\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.EditDown;\r\nbegin\r\n  //\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomPicker.EditKeyDown(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCCustomPicker.EditKeyDown(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState);\r\nbegin\r\n  FKeyDown := Key;\r\nend;\r\n\r\nprocedure TTMSFNCCustomPicker.EditKeyPress(Sender: TObject; var Key: Char);\r\n{$ENDIF}\r\n  procedure EatKey;\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    KeyChar := #0;\r\n    Key := 0;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    Key := #0;\r\n    {$ENDIF}\r\n  end;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  FKeyDown := Key;\r\n  {$ENDIF}\r\n\r\n  if FKeyDown in [KEY_UP, KEY_DOWN] then\r\n  begin\r\n    if FKeyDown = KEY_UP then\r\n      EditUp;\r\n\r\n    if FKeyDown = KEY_DOWN then\r\n      EditDown;\r\n\r\n    EatKey;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCCustomPickerEdit }\r\n\r\n{$IFDEF VCLLIB}\r\nprocedure TTMSFNCCustomPickerEdit.WndProc(var Msg: TMessage);\r\nbegin\r\n  inherited;\r\n  if Msg.Msg = CM_CANCELMODE then\r\n  begin\r\n    if Assigned(OnCancelMode) then\r\n      OnCancelMode(Self);\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2021 - 2023                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : https://www.tmssoftware.com                       }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCControlPicker;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF CMNLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, Types, WEBLib.Controls,\r\n  {$IFDEF FMXLIB}\r\n  FMX.Types,\r\n  {$ENDIF}\r\n  WEBLib.TMSFNCCustomPicker, WEBLib.TMSFNCCustomSelector,\r\n  WEBLib.TMSFNCGraphics, WEBLib.TMSFNCGraphicsTypes, WEBLib.TMSFNCTypes;\r\n\r\nconst\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 0; // Minor version nr.\r\n  REL_VER = 1; // Release nr.\r\n  BLD_VER = 2; // Build nr.\r\n\r\n  // Version history\r\n  // v1.0.0.0 : first release\r\n  // v1.0.0.1 : Fixed : Issue with OnAdjustDropDownWidth event\r\n  // v1.0.1.0 : New : Support for high dpi\r\n  //          : New : Mode value added to use Picker width or height for dropdown\r\n  // v1.0.1.1 : Improved : Bugfix for design-time components on high dpi fixed with november patch\r\n  // v1.0.1.2 : Fixed : Issue with selection on Windows\r\ntype\r\n  ITMSFNCControlPickerBase = interface\r\n  ['{FF82E121-0510-4FF1-8BB8-A40AA5219095}']\r\n    function PickerGetContent: String;\r\n  end;\r\n\r\n  ITMSFNCControlPickerItems = interface(ITMSFNCControlPickerBase)\r\n  ['{D0FBAC5E-B2AA-46AE-AD21-91DF23AD4FCB}']\r\n    procedure PickerSelectItem(AItemIndex: Integer);\r\n    function PickerGetSelectedItem: Integer;\r\n    function PickerGetVisibleItemCount: Integer;\r\n    function PickerGetItemCount: Integer;\r\n    function PickerGetItemHeight: Single;\r\n    procedure PickerSetItemHeight(AValue: Single);\r\n    function PickerGetItemWidth: Single;\r\n    procedure PickerSetItemWidth(AValue: Single);\r\n    function PickerGetNextSelectableItem(AItemIndex: Integer): Integer;\r\n    function PickerGetPreviousSelectableItem(AItemIndex: Integer): Integer;\r\n    function PickerGetFirstSelectableItem: Integer;\r\n    function PickerGetLastSelectableItem: Integer;\r\n  end;\r\n\r\n  TTMSFNCControlPickerFilterItem = record\r\n    ItemIndex: Integer;\r\n    ItemText: string;\r\n  end;\r\n\r\n  ITMSFNCControlPickerFull = interface(ITMSFNCControlPickerItems)\r\n  ['{3AF9E5D7-2049-4809-920F-BA318E3D8E8D}']\r\n    procedure PickerResetFilter;\r\n    procedure PickerApplyFilter(ACondition: string; ACaseSensitive: Boolean);\r\n    function PickerLookupItem(ALookupString: String; ACaseSensitive: Boolean): TTMSFNCControlPickerFilterItem;\r\n  end;\r\n\r\n  TTMSFNCControlPickerStyle = (csDropDown, csDropDownList);\r\n  TTMSFNCControlPickderDropDownHeightMode = (chmDropDownHeight, chmControl, chmItems, chmPickerHeight);\r\n  TTMSFNCControlPickderDropDownWidthMode = (cwmDropDownWidth, cwmControl, cwmItems, cwmPickerWidth);\r\n\r\n  TTMSFNCCustomControlPickerItemSelectedEvent = procedure(Sender: TObject; AText: string; AItemIndex: Integer) of object;\r\n  TTMSFNCCustomControlPickerOnAdjustDropDownSizeEvent = procedure(Sender: TObject; var ASize: Single; var AAllow: Boolean) of object;\r\n  TTMSFNCCustomControlPickerOnSetContentEvent = procedure(Sender: TObject; var AText: string; var AAllow: Boolean) of object;\r\n  TTMSFNCCustomControlPickerBeforeDrawContentEvent = procedure(Sender: TObject; AGrahpics: TTMSFNCGraphics; ARect: TRectF; AContent: string; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCCustomControlPickerAfterDrawContentEvent = procedure(Sender: TObject; AGrahpics: TTMSFNCGraphics; ARect: TRectF; AContent: string) of object;\r\n\r\n  TTMSFNCCustomControlPicker = class(TTMSFNCDefaultPicker)\r\n  private\r\n    FAutoCloseUp: Boolean;\r\n    FAutoComplete: Boolean;\r\n    FAutoCompleteDelay: Integer;\r\n    FAutoCompleteNumChar: Integer;\r\n    FAutoDropDown: Boolean;\r\n    FCaseSensitive: Boolean;\r\n    FControl: TControl;\r\n    {$IFDEF CMNLIB}\r\n    FControlParent: TWINControl;\r\n    {$ENDIF}\r\n    {$IFNDEF CMNLIB}\r\n    FControlParent: TControl;\r\n    {$ENDIF}\r\n    FControlVisible: Boolean;\r\n    {$IFDEF FMXLIB}\r\n    FControlAlign: TAlignLayout;\r\n    {$ENDIF}\r\n    {$IFNDEF FMXLIB}\r\n    FControlAlign: TAlign;\r\n    {$ENDIF}\r\n    FControlLeft: Single;\r\n    FControlTop: Single;\r\n    FControlWidth: Single;\r\n    FControlHeight: Single;\r\n    FDropDownHeightMode: TTMSFNCControlPickderDropDownHeightMode;\r\n    FKeyDown: Word;\r\n    FFont: TTMSFNCGraphicsFont;\r\n    FPrevString: string;\r\n    FStyle: TTMSFNCControlPickerStyle;\r\n    FTick: Cardinal;\r\n    FWrapper: TTMSFNCCustomSelector;\r\n    FOnAdjustDropDownHeight: TTMSFNCCustomControlPickerOnAdjustDropDownSizeEvent;\r\n    FOnAfterDrawPickerContent: TTMSFNCCustomControlPickerAfterDrawContentEvent;\r\n    FOnBeforeDrawPickerContent: TTMSFNCCustomControlPickerBeforeDrawContentEvent;\r\n    FOnItemSelected: TTMSFNCCustomControlPickerItemSelectedEvent;\r\n    FOnSetContent: TTMSFNCCustomControlPickerOnSetContentEvent;\r\n    FDropDownWidthMode: TTMSFNCControlPickderDropDownWidthMode;\r\n    FOnAdjustDropDownWidth: TTMSFNCCustomControlPickerOnAdjustDropDownSizeEvent;\r\n    FDropDownControlWidth: Single;\r\n    FDropDownControlHeight: Single;\r\n    procedure SetAutoCloseUp(const Value: Boolean);\r\n    procedure SetAutoComplete(const Value: Boolean);\r\n    procedure SetAutoCompleteDelay(const Value: Integer);\r\n    procedure SetAutoCompleteNumChar(const Value: Integer);\r\n    procedure SetAutoDropDown(const Value: Boolean);\r\n    procedure SetControl(const Value: TControl);\r\n    procedure SetDropDownHeightMode(const Value: TTMSFNCControlPickderDropDownHeightMode);\r\n    procedure SetFnt(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetItemHeight(const Value: Single);\r\n    procedure SetItemIndex(const Value: Integer);\r\n    procedure SetStyle(const Value: TTMSFNCControlPickerStyle);\r\n    procedure SetText(const Value: string);\r\n    procedure SetCaseSensitive(const Value: Boolean);\r\n    function GetItemIndex: Integer;\r\n    function GetItemHeight: Single;\r\n    function GetText: string;\r\n    function GetCount: Integer;\r\n    procedure ApplyFilter(ACondition: string);\r\n    procedure ClearFilter;\r\n    function LookupItem(ALookupString: String): TTMSFNCControlPickerFilterItem;\r\n    procedure SetDropDownWidthMode(const Value: TTMSFNCControlPickderDropDownWidthMode);\r\n    function GetItemWidth: Single;\r\n    procedure SetItemWidth(const Value: Single);\r\n    procedure SetDropDownControlHeight(const Value: Single);\r\n    procedure SetDropDownControlWidth(const Value: Single);\r\n  protected\r\n    procedure ChangeDPIScale(M, D: Integer); override;\r\n    procedure Notification(AComponent: TComponent; Operation: TOperation); override;\r\n    procedure FontChange(Sender: TObject);\r\n    procedure Loaded; override;\r\n    procedure DoPickerItemSelected(AText: string; AItemIndex: Integer); virtual;\r\n    procedure DoAdjustDropDownHeight(var AHeight: Single; var AAllow: Boolean); virtual;\r\n    procedure DoAdjustDropDownWidth(var AWidth: Single; var AAllow: Boolean); virtual;\r\n    procedure DoAfterDrawPickerContent(AGrahpics: TTMSFNCGraphics; ARect: TRectF; AContent: string); virtual;\r\n    procedure DoBeforeDrawPickerContent(AGrahpics: TTMSFNCGraphics; ARect: TRectF; AContent: string; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoSetContent(var AText: string; var AAllow: Boolean); virtual;\r\n    procedure DrawContent(AGraphics: TTMSFNCGraphics; ARect: TRectF); override;\r\n    procedure InitializePopup; override;\r\n    procedure SelectFirstValue; override;\r\n    procedure SelectLastValue; override;\r\n    procedure SelectNextValue; override;\r\n    procedure SelectPreviousValue; override;\r\n    procedure SetAdaptToStyle(const Value: Boolean); override;\r\n    procedure AdjustDropDownHeight;\r\n    procedure AdjustDropDownWidth;\r\n    procedure UpdateListBoxLookup(AText: string);\r\n    procedure DeleteFromEdit;\r\n    {$IFDEF FMXLIB}\r\n    procedure EditKeyDown(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);\r\n//    procedure TreeviewKeyUp(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);\r\n    procedure KeyDown(var Key: Word; var KeyChar: WideChar; Shift: TShiftState); override;\r\n    {$IFDEF ANDROID}\r\n    procedure EditTyping(Sender: TObject);\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    procedure EditKeyDown(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState);\r\n    procedure EditKeyPress(Sender: TObject; var Key: Char);\r\n    procedure KeyPress(var Key: Char); override;\r\n    procedure KeyDown(var Key: Word; Shift: TShiftState); override;\r\n//    procedure TreeviewKeyUp(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState);\r\n    {$ENDIF}\r\n    function CreateSelector: TTMSFNCCustomSelector; override;\r\n    function GetVisibleItemCount: Integer;\r\n    property AutoCloseUp: Boolean read FAutoCloseUp write SetAutoCloseUp default False;\r\n    property AutoDropDown: Boolean read FAutoDropDown write SetAutoDropDown default False;\r\n    property AutoComplete: Boolean read FAutoComplete write SetAutoComplete default True;\r\n    property AutoCompleteDelay: Integer read FAutoCompleteDelay write SetAutoCompleteDelay default 500;\r\n    property AutoCompleteNumChar: Integer read FAutoCompleteNumChar write SetAutoCompleteNumChar default 2;\r\n    property CaseSensitive: Boolean read FCaseSensitive write SetCaseSensitive default False;\r\n    property Control: TControl read FControl write SetControl;\r\n    property DropDownControlHeight: Single read FDropDownControlHeight write SetDropDownControlHeight;\r\n    property DropDownControlWidth: Single read FDropDownControlWidth write SetDropDownControlWidth;\r\n    property DropDownHeightMode: TTMSFNCControlPickderDropDownHeightMode read FDropDownHeightMode write SetDropDownHeightMode default chmDropDownHeight;\r\n    property DropDownWidthMode: TTMSFNCControlPickderDropDownWidthMode read FDropDownWidthMode write SetDropDownWidthMode default cwmDropDownWidth;\r\n    property Font: TTMSFNCGraphicsFont read FFont write SetFnt;\r\n    property ItemIndex: Integer read GetItemIndex write SetItemIndex default -1;\r\n    property ItemHeight: Single read GetItemHeight write SetItemHeight;\r\n    property ItemWidth: Single read GetItemWidth write SetItemWidth;\r\n    property Style: TTMSFNCControlPickerStyle read FStyle write SetStyle default csDropDown;\r\n    property Text: string read GetText write SetText;\r\n    property OnAdjustDropDownHeight: TTMSFNCCustomControlPickerOnAdjustDropDownSizeEvent read FOnAdjustDropDownHeight write FOnAdjustDropDownHeight;\r\n    property OnAdjustDropDownWidth: TTMSFNCCustomControlPickerOnAdjustDropDownSizeEvent read FOnAdjustDropDownWidth write FOnAdjustDropDownWidth;\r\n    property OnAfterDrawPickerContent: TTMSFNCCustomControlPickerAfterDrawContentEvent read FOnAfterDrawPickerContent write FOnAfterDrawPickerContent;\r\n    property OnBeforeDrawPickerContent: TTMSFNCCustomControlPickerBeforeDrawContentEvent read FOnBeforeDrawPickerContent write FOnBeforeDrawPickerContent;\r\n    property OnItemSelected: TTMSFNCCustomControlPickerItemSelectedEvent read FOnItemSelected write FOnItemSelected;\r\n    property OnSetContent: TTMSFNCCustomControlPickerOnSetContentEvent read FOnSetContent write FOnSetContent;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure CallItemClicked(AItemIndex: Integer);\r\n    procedure UpdatePickerContent; virtual;\r\n    procedure UpdatePickerDropDownSize; virtual;\r\n    procedure UpdateDropDown; virtual;\r\n    procedure DropDown; override;\r\n    property Count: Integer read GetCount;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCControlPicker = class(TTMSFNCCustomControlPicker)\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n  published\r\n    property AutoCloseUp;\r\n    property AutoDropDown;\r\n    property AutoComplete;\r\n    property AutoCompleteDelay;\r\n    property AutoCompleteNumChar;\r\n    property Control;\r\n    property CaseSensitive;\r\n    property DropDownControlHeight;\r\n    property DropDownControlWidth;\r\n    property DropDownHeightMode;\r\n    property DropDownWidthMode;\r\n    property Font;\r\n    property ItemIndex;\r\n    property ItemHeight;\r\n    property ItemWidth;\r\n    property ShowFocus;\r\n    property Style;\r\n    property Text;\r\n    property OnAdjustDropDownHeight;\r\n    property OnAdjustDropDownWidth;\r\n    property OnAfterDrawPickerContent;\r\n    property OnBeforeDrawPickerContent;\r\n    property OnItemSelected;\r\n    property OnSetContent;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  Math, SysUtils, WEBLib.Graphics, WEBLib.TMSFNCStyles, WEBLib.TMSFNCUtils\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Edit\r\n  {$ENDIF}\r\n  {$IFDEF CMNLIB}\r\n  ,StdCtrls\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,WEBLib.StdCtrls\r\n  {$ENDIF};\r\n\r\n{$IFDEF FMXLIB}\r\ntype\r\n  TCustomEditProtected = class(TCustomEdit);\r\n  {$ENDIF}\r\n\r\nfunction GetTickCountX: DWORD;\r\nvar\r\n  h, m, s, ms: Word;\r\nbegin\r\n  DecodeTime(Now, h, m, s, ms);\r\n  Result := ms + s * 1000 + m * 60 * 1000 + h * 60 * 60 * 1000;\r\nend;\r\n\r\n{ TTMSFNCCustomControlPicker }\r\n\r\nprocedure TTMSFNCCustomControlPicker.AdjustDropDownHeight;\r\nvar\r\n  h: Single;\r\n  a: Boolean;\r\nbegin\r\n  if Assigned(FControl) and (DropDownHeightMode = chmItems) then\r\n  begin\r\n    h := ItemHeight * GetVisibleItemCount;\r\n  end\r\n  else if Assigned(FControl) and (DropDownHeightMode = chmControl) then\r\n  begin\r\n    h := FControlHeight;\r\n  end\r\n  else if (FDropDownHeightMode = chmPickerHeight) then\r\n  begin\r\n    h := Height;\r\n  end\r\n  else\r\n    h := FDropDownControlHeight;\r\n\r\n  a := True;\r\n  DoAdjustDropDownHeight(h, a);\r\n\r\n  if a then\r\n    DropDownHeight := h;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.AdjustDropDownWidth;\r\nvar\r\n  w: Single;\r\n  a: Boolean;\r\nbegin\r\n  if Assigned(FControl) and (FDropDownWidthMode = cwmItems) then\r\n  begin\r\n    w := ItemWidth * GetVisibleItemCount;\r\n  end\r\n  else if Assigned(FControl) and (FDropDownWidthMode = cwmControl) then\r\n  begin\r\n    w := FControlWidth;\r\n  end\r\n  else if (FDropDownWidthMode = cwmPickerWidth) then\r\n  begin\r\n    w := Width;\r\n  end\r\n  else\r\n    w := FDropDownControlWidth;\r\n\r\n  a := True;\r\n  DoAdjustDropDownWidth(w, a);\r\n\r\n  if a then\r\n    DropDownWidth := w;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.ApplyFilter(ACondition: string);\r\nvar\r\n  pf: ITMSFNCControlPickerFull;\r\nbegin\r\n  if Assigned(Control) and Supports(FControl, ITMSFNCControlPickerFull, pf) then\r\n    pf.PickerApplyFilter(ACondition, FCaseSensitive);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.CallItemClicked(AItemIndex: Integer);\r\nbegin\r\n  UpdatePickerContent;\r\n  ClearFilter;\r\n\r\n  ItemIndex := AItemIndex;\r\n\r\n  DropDown;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.ChangeDPIScale(M, D: Integer);\r\nbegin\r\n  inherited;\r\n\r\n  BeginUpdate;\r\n  FFont.Height := TTMSFNCUtils.MulDivInt(FFont.Height, M, D);\r\n  Edit.Font.Assign(FFont);\r\n\r\n  {$IFDEF VCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF (COMPILERVERSION >= 33) and (COMPILERVERSION < 35) }\r\n  if Assigned(FControl) then\r\n    FControl.ScaleForPPI(M);\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n\r\n  DropDownControlHeight := TTMSFNCUtils.MulDivSingle(FDropDownControlHeight, M, D);\r\n  DropDownControlWidth := TTMSFNCUtils.MulDivSingle(FDropDownControlWidth, M, D);\r\n  FControlHeight := TTMSFNCUtils.MulDivSingle(FControlHeight, M, D);\r\n  FControlWidth := TTMSFNCUtils.MulDivSingle(FControlWidth, M, D);\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.ClearFilter;\r\nvar\r\n  pf: ITMSFNCControlPickerFull;\r\nbegin\r\n  if Assigned(FControl) and Supports(FControl, ITMSFNCControlPickerFull, pf) then\r\n    pf.PickerResetFilter;\r\nend;\r\n\r\nconstructor TTMSFNCCustomControlPicker.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  Width := 150;\r\n  FDropDownControlWidth := Width;\r\n  FDropDownControlHeight := 150;\r\n  Editable := True;\r\n  FPrevString := '';\r\n  FAutoComplete := True;\r\n  FAutoCloseUp := False;\r\n  FAutoDropDown := False;\r\n  FCaseSensitive := False;\r\n  FAutoCompleteNumChar := 2;\r\n  FAutoCompleteDelay := 500;\r\n  FFont := TTMSFNCGraphicsFont.Create;\r\n  FFont.OnChanged := @FontChange;\r\n  {$IFDEF FMXLIB}\r\n  Edit.StyledSettings := TCustomEditProtected(Edit).StyledSettings - [TStyledSetting.Family, TStyledSetting.Size, TStyledSetting.Style];\r\n  {$IFDEF ANDROID}\r\n  Edit.TextSettings.VertAlign := TTextAlign.Leading;\r\n  Edit.OnTyping := EditTyping;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  Edit.OnKeyDown := @EditKeyDown;\r\n  {$IFDEF CMNWEBLIB}\r\n  Edit.OnKeyPress := EditKeyPress;\r\n  {$ENDIF}\r\n  Edit.Font.Assign(FFont);\r\n  Popup.FocusedControl := Edit;\r\n  Popup.StaysOpen := True;\r\n\r\n  FDropDownHeightMode := chmDropDownHeight;\r\n  FDropDownWidthMode := cwmDropDownWidth;\r\n\r\n  if IsDesignTime then\r\n    Text := 'TTMSFNCControlPicker';\r\nend;\r\n\r\nfunction TTMSFNCCustomControlPicker.CreateSelector: TTMSFNCCustomSelector;\r\nbegin\r\n  FWrapper := TTMSFNCCustomSelector.Create(Self);\r\n\r\n  if Assigned(FControl) then\r\n  begin\r\n    FControl.Parent := FWrapper;\r\n    UpdatePickerContent;\r\n  end;\r\n\r\n  Result := FWrapper;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.DeleteFromEdit;\r\nbegin\r\n  FPrevString := Edit.Text;\r\n\r\n  if Edit.SelLength = 0 then\r\n    Delete(FPrevString, Edit.SelStart, 1)\r\n  else\r\n    Delete(FPrevString, Max(1, Edit.SelStart + 1), Edit.SelLength);\r\n\r\n  UpdateListBoxLookup(FPrevString);\r\n  if (Length(FPrevString) < FAutoCompleteNumChar) and Popup.IsOpen then\r\n  begin\r\n    DropDown;\r\n    ClearFilter;\r\n  end;\r\nend;\r\n\r\ndestructor TTMSFNCCustomControlPicker.Destroy;\r\nbegin\r\n  FFont.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.DoAdjustDropDownHeight(var AHeight: Single; var AAllow: Boolean);\r\nbegin\r\n  if Assigned(OnAdjustDropDownHeight) then\r\n    OnAdjustDropDownHeight(Self, AHeight, AAllow)\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.DoAdjustDropDownWidth(var AWidth: Single; var AAllow: Boolean);\r\nbegin\r\n  if Assigned(OnAdjustDropDownWidth) then\r\n    OnAdjustDropDownWidth(Self, AWidth, AAllow)\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.DoAfterDrawPickerContent(AGrahpics: TTMSFNCGraphics; ARect: TRectF; AContent: string);\r\nbegin\r\n  if Assigned(OnAfterDrawPickerContent) then\r\n    OnAfterDrawPickerContent(Self, AGrahpics, ARect, AContent);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.DoBeforeDrawPickerContent(AGrahpics: TTMSFNCGraphics; ARect: TRectF; AContent: string; var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawPickerContent) then\r\n    OnBeforeDrawPickerContent(Self, AGrahpics, ARect, AContent, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.DoPickerItemSelected(AText: string; AItemIndex: Integer);\r\nbegin\r\n  if Assigned(OnItemSelected) then\r\n    OnItemSelected(Self, AText, AItemIndex);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.DoSetContent(var AText: string;\r\n  var AAllow: Boolean);\r\nbegin\r\n  if Assigned(OnSetContent) then\r\n    OnSetContent(Self, AText, AAllow);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.DrawContent(AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nvar\r\n  r: TRectF;\r\n  a, dd: Boolean;\r\nbegin\r\n  inherited;\r\n\r\n  if not Enabled then\r\n    AGraphics.Font.Color := gcSilver\r\n  else\r\n    AGraphics.Font.AssignSource(Font);\r\n\r\n  r := ARect;\r\n  InflateRectEx(r, -3, -3);\r\n\r\n  a := True;\r\n  dd := True;\r\n\r\n  DoBeforeDrawPickerContent(AGraphics, r, Content, a, dd);\r\n\r\n  if a then\r\n  begin\r\n    if dd then\r\n      AGraphics.DrawText(r, Content);\r\n    DoAfterDrawPickerContent(AGraphics, r, Content);\r\n  end;\r\n\r\n  {$IFDEF MSWINDOWS}\r\n  if Style = csDropDown then\r\n    PreventDropDown := True;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.DropDown;\r\nbegin\r\n  AdjustDropDownHeight;\r\n  AdjustDropDownWidth;\r\n\r\n  Popup.Width := Round(DropDownWidth);\r\n  Popup.Height := Round(DropDownHeight);\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.FontChange(Sender: TObject);\r\nbegin\r\n  Invalidate;\r\nend;\r\n\r\nfunction TTMSFNCCustomControlPicker.GetCount: Integer;\r\nvar\r\n  pi: ITMSFNCControlPickerItems;\r\n  pf: ITMSFNCControlPickerFull;\r\nbegin\r\n  Result := 0;\r\n\r\n  if Assigned(FControl) then\r\n  begin\r\n    if Supports(FControl, ITMSFNCControlPickerItems, pi) then\r\n      Result := pi.PickerGetItemCount\r\n    else if Supports(FControl, ITMSFNCControlPickerFull, pf) then\r\n      Result := pf.PickerGetItemCount\r\n    else\r\n      Result := 1;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomControlPicker.GetItemHeight: Single;\r\nvar\r\n  pi: ITMSFNCControlPickerItems;\r\n  pf: ITMSFNCControlPickerFull;\r\nbegin\r\n  Result := 0.0;\r\n\r\n  if Assigned(FControl) then\r\n  begin\r\n    if Supports(FControl, ITMSFNCControlPickerItems, pi) then\r\n      Result := pi.PickerGetItemHeight\r\n    else if Supports(FControl, ITMSFNCControlPickerFull, pf) then\r\n      Result := pf.PickerGetItemHeight\r\n    else\r\n      Result := FControlHeight;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomControlPicker.GetItemIndex: Integer;\r\nvar\r\n  pi: ITMSFNCControlPickerItems;\r\n  pf: ITMSFNCControlPickerFull;\r\nbegin\r\n  Result := -1;\r\n\r\n  if Assigned(FControl) and Supports(FControl, ITMSFNCControlPickerItems, pi) then\r\n    Result := pi.PickerGetSelectedItem\r\n  else if Assigned(FControl) and Supports(FControl, ITMSFNCControlPickerFull, pf) then\r\n    Result := pf.PickerGetSelectedItem;\r\nend;\r\n\r\nfunction TTMSFNCCustomControlPicker.GetItemWidth: Single;\r\nvar\r\n  pi: ITMSFNCControlPickerItems;\r\n  pf: ITMSFNCControlPickerFull;\r\nbegin\r\n  Result := 0.0;\r\n\r\n  if Assigned(FControl) then\r\n  begin\r\n    if Supports(FControl, ITMSFNCControlPickerItems, pi) then\r\n      Result := pi.PickerGetItemWidth\r\n    else if Supports(FControl, ITMSFNCControlPickerFull, pf) then\r\n      Result := pf.PickerGetItemWidth\r\n    else\r\n      Result := FControlWidth;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomControlPicker.GetText: string;\r\nbegin\r\n  Result := Content;\r\nend;\r\n\r\nfunction TTMSFNCCustomControlPicker.GetVisibleItemCount: Integer;\r\nvar\r\n  pi: ITMSFNCControlPickerItems;\r\n  pf: ITMSFNCControlPickerFull;\r\nbegin\r\n  Result := 0;\r\n\r\n  if Assigned(FControl) then\r\n  begin\r\n    if Supports(FControl, ITMSFNCControlPickerItems, pi) then\r\n      Result := pi.PickerGetVisibleItemCount\r\n    else if Supports(FControl, ITMSFNCControlPickerFull, pf) then\r\n      Result := pf.PickerGetVisibleItemCount\r\n    else\r\n      Result := 1;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.InitializePopup;\r\nbegin\r\n  inherited;\r\n  if Assigned(FControl) then\r\n  begin\r\n    FControl.Width := Round(DropDownWidth);\r\n    FControl.Height := Round(DropDownHeight);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomControlPicker.LookupItem(ALookupString: String): TTMSFNCControlPickerFilterItem;\r\nvar\r\n  pf: ITMSFNCControlPickerFull;\r\nbegin\r\n  Result.ItemIndex := -1;\r\n  Result.ItemText := '';\r\n\r\n  if Assigned(FControl) and Supports(FControl, ITMSFNCControlPickerFull, pf) then\r\n    Result := pf.PickerLookupItem(ALookupString, FCaseSensitive);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.Notification(AComponent: TComponent; Operation: TOperation);\r\nbegin\r\n  inherited;\r\n  if (Operation = opRemove) and (AComponent = FControl) then\r\n    FControl := nil;\r\nend;\r\n\r\ntype\r\n  TControlOpen = class(TControl);\r\n\r\nprocedure TTMSFNCCustomControlPicker.Loaded;\r\nbegin\r\n  inherited;\r\n  {$IFDEF VCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF (COMPILERVERSION >= 33) and (COMPILERVERSION < 35) }\r\n  if Assigned(FControl) then\r\n    FControl.ScaleForPPI(CurrentPPI);\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  AdjustDropDownHeight;\r\n  SetControl(FControl);\r\n  {$ENDIF}\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\n{$IFDEF ANDROID}\r\nprocedure TTMSFNCCustomControlPicker.EditTyping(Sender: TObject);\r\nvar\r\n  fi: TTMSFNCControlPickerFilterItem;\r\nbegin\r\n  if (not Assigned(FControl)) or (not AutoComplete) then\r\n    Exit;\r\n\r\n  if Length(FPrevString) >= Length(Content) then\r\n  begin\r\n    UpdateListBoxLookup(Content);\r\n\r\n    if AutoCloseUp and (Length(Content) < FAutoCompleteNumChar) and Popup.IsOpen then\r\n    begin\r\n      DropDown;\r\n      ClearFilter;\r\n    end;\r\n\r\n    FPrevString := Content;\r\n    Exit;\r\n  end;\r\n\r\n  UpdateListBoxLookup(Content);\r\n\r\n  fi := LookupItem(FPrevString);\r\n  if fi.ItemIndex >= 0 then\r\n  begin\r\n    FPrevString := Content;\r\n\r\n    if AutoCloseUp and (FPrevString = fi.ItemText) and Popup.IsOpen then\r\n    begin\r\n      DropDown;\r\n      ClearFilter;\r\n    end;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomControlPicker.EditKeyDown(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCCustomControlPicker.EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);\r\nbegin\r\n  FKeyDown := Key;\r\n  if FKeyDown in [KEY_UP, KEY_DOWN] then\r\n  begin\r\n    if FKeyDown = KEY_UP then\r\n      SelectPreviousValue;\r\n\r\n    if FKeyDown = KEY_DOWN then\r\n      SelectNextValue;\r\n\r\n    Key := 0;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  if FKeyDown = KEY_BACK then\r\n    DeleteFromEdit;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.EditKeyPress(Sender: TObject; var Key: Char);\r\n{$ENDIF}\r\nvar\r\n  fi: TTMSFNCControlPickerFilterItem;\r\n  selPos, selLen: Integer;\r\n  kch: Char;\r\n\r\n  procedure EatKey;\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    KeyChar := #0;\r\n    Key := 0;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    Key := #0;\r\n    {$ENDIF}\r\n  end;\r\n\r\nbegin\r\n  if not Assigned(FControl) then\r\n    Exit;\r\n\r\n  {$IFDEF FMXLIB}\r\n  kch := KeyChar;\r\n  FKeyDown := Key;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  kch := Key;\r\n  {$ENDIF}\r\n\r\n  if (FKeyDown = KEY_ESCAPE) then\r\n  begin\r\n    if AutoCloseUp and Popup.IsOpen then;\r\n    begin\r\n      DropDown;\r\n      Exit;\r\n    end;\r\n  end;\r\n\r\n  if (FKeyDown = KEY_RETURN) then\r\n  begin\r\n    if Popup.IsOpen then\r\n    begin\r\n      Edit.SelStart := Length(Edit.Text);\r\n      Edit.SelLength := 0;\r\n      ClearFilter;\r\n    end;\r\n    UpdatePickerContent;\r\n\r\n    DropDown;\r\n    Exit;\r\n  end;\r\n\r\n  {$IFDEF FMXLIB}\r\n  if FKeyDown in [KEY_UP, KEY_DOWN] then\r\n  begin\r\n    if FKeyDown = KEY_UP then\r\n      SelectPreviousValue;\r\n\r\n    if FKeyDown = KEY_DOWN then\r\n      SelectNextValue;\r\n\r\n    EatKey;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  if AutoComplete then\r\n  begin\r\n    {$IFNDEF WEBLIB}\r\n    if FKeyDown = KEY_BACK then\r\n    begin\r\n      DeleteFromEdit;\r\n      Exit;\r\n    end;\r\n    {$ENDIF}\r\n\r\n    if kch = #0 then\r\n      Exit;\r\n\r\n    if Edit.SelLength = Length(Edit.Text) then\r\n      FPrevString := '';\r\n\r\n    FPrevString := FPrevString + kch;\r\n    if Length(FPrevString) < FAutoCompleteNumChar then\r\n      Exit;\r\n\r\n    UpdateListBoxLookup(FPrevString);\r\n\r\n    fi := LookupItem(FPrevString);\r\n    if fi.ItemIndex >= 0 then\r\n    begin\r\n      ItemIndex := fi.ItemIndex;\r\n      selPos := Length(FPrevString);\r\n      Content := fi.ItemText;\r\n      Edit.SelStart := selPos;\r\n      selLen := Length(Edit.Text) - selPos;\r\n      Edit.SelLength := selLen;\r\n      EatKey;\r\n\r\n      if AutoCloseUp and (selLen = 0) and Popup.IsOpen then\r\n        DropDown;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomControlPicker.KeyDown(var Key: Word; var KeyChar: WideChar; Shift: TShiftState);\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCCustomControlPicker.KeyDown(var Key: Word; Shift: TShiftState);\r\nbegin\r\n  inherited;\r\n  FKeyDown := Key;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.KeyPress(var Key: Char);\r\n{$ENDIF}\r\nvar\r\n  fi: TTMSFNCControlPickerFilterItem;\r\n  kch: Char;\r\n  tick: Cardinal;\r\nbegin\r\n  inherited;\r\n\r\n  if not Assigned(FControl) then\r\n    Exit;\r\n\r\n  {$IFDEF FMXLIB}\r\n  kch := KeyChar;\r\n  FKeyDown := Key;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  kch := Key;\r\n  {$ENDIF}\r\n\r\n  if (FKeyDown = KEY_ESCAPE) then\r\n  begin\r\n    if Popup.IsOpen then;\r\n    begin\r\n      DropDown;\r\n      Exit;\r\n    end;\r\n  end;\r\n\r\n  if AutoComplete then\r\n  begin\r\n    if FKeyDown = KEY_BACK then\r\n    begin\r\n      Delete(FPrevString, Length(FPrevString), 1);\r\n      if (Length(FPrevString) = 1) and Popup.IsOpen then\r\n      begin\r\n        DropDown;\r\n        ClearFilter;\r\n      end;\r\n\r\n      Exit;\r\n    end;\r\n\r\n    if kch = #0 then\r\n      Exit;\r\n\r\n    if AutoDropDown and (not Popup.IsOpen) then\r\n      DropDown;\r\n\r\n    tick := FAutoCompleteDelay;\r\n    if (GetTickCountX - FTick) < tick then\r\n      FPrevString := FPrevString + kch\r\n    else\r\n    begin\r\n      FTick := GetTickCountX;\r\n      FPrevString := kch;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    if kch = #0 then\r\n      Exit;\r\n\r\n    FPrevString := kch;\r\n  end;\r\n\r\n  fi := LookupItem(FPrevString);\r\n  if fi.ItemIndex >= 0 then\r\n  begin\r\n    ItemIndex := fi.ItemIndex;\r\n    Content := fi.ItemText;\r\n    Invalidate;\r\n\r\n    if AutoComplete and (Content = FPrevString) and AutoCloseUp and Popup.IsOpen then\r\n      DropDown;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.SelectFirstValue;\r\nvar\r\n  idx: Integer;\r\n  pi: ITMSFNCControlPickerItems;\r\n  pf: ITMSFNCControlPickerFull;\r\nbegin\r\n  inherited;\r\n  if Assigned(FControl) then\r\n  begin\r\n    idx := -1;\r\n\r\n    if Supports(FControl, ITMSFNCControlPickerItems, pi) then\r\n      idx := pi.PickerGetFirstSelectableItem\r\n    else if Supports(FControl, ITMSFNCControlPickerFull, pf) then\r\n      idx := pf.PickerGetFirstSelectableItem;\r\n\r\n    ItemIndex := idx;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.SelectLastValue;\r\nvar\r\n  idx: Integer;\r\n  pi: ITMSFNCControlPickerItems;\r\n  pf: ITMSFNCControlPickerFull;\r\nbegin\r\n  inherited;\r\n  if Assigned(FControl) then\r\n  begin\r\n    idx := -1;\r\n\r\n    if Supports(FControl, ITMSFNCControlPickerItems, pi) then\r\n      idx := pi.PickerGetLastSelectableItem\r\n    else if Supports(FControl, ITMSFNCControlPickerFull, pf) then\r\n      idx := pf.PickerGetLastSelectableItem;\r\n\r\n    ItemIndex := idx;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.SelectNextValue;\r\nvar\r\n  idx: Integer;\r\n  pi: ITMSFNCControlPickerItems;\r\n  pf: ITMSFNCControlPickerFull;\r\nbegin\r\n  inherited;\r\n  if Assigned(FControl) then\r\n  begin\r\n    idx := -1;\r\n\r\n    if Supports(FControl, ITMSFNCControlPickerItems, pi) then\r\n      idx := pi.PickerGetNextSelectableItem(ItemIndex)\r\n    else if Supports(FControl, ITMSFNCControlPickerFull, pf) then\r\n      idx := pf.PickerGetNextSelectableItem(ItemIndex);\r\n\r\n    ItemIndex := idx;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.SelectPreviousValue;\r\nvar\r\n  idx: Integer;\r\n  pi: ITMSFNCControlPickerItems;\r\n  pf: ITMSFNCControlPickerFull;\r\nbegin\r\n  inherited;\r\n  if Assigned(FControl) then\r\n  begin\r\n    idx := -1;\r\n\r\n    if Supports(FControl, ITMSFNCControlPickerItems, pi) then\r\n      idx := pi.PickerGetPreviousSelectableItem(ItemIndex)\r\n    else if Supports(FControl, ITMSFNCControlPickerFull, pf) then\r\n      idx := pf.PickerGetPreviousSelectableItem(ItemIndex);\r\n\r\n    ItemIndex := idx;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.SetAdaptToStyle(const Value: Boolean);\r\nvar\r\n  ia: ITMSFNCAdaptToStyle;\r\nbegin\r\n  inherited;\r\n  if Assigned(FWrapper) then\r\n    FWrapper.AdaptToStyle := AdaptToStyle;\r\n  if Assigned(FControl) and Supports(FControl, ITMSFNCAdaptToStyle, ia) then\r\n    ia.AdaptToStyle := AdaptToStyle;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.SetAutoCloseUp(const Value: Boolean);\r\nbegin\r\n  FAutoCloseUp := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.SetAutoComplete(const Value: Boolean);\r\nbegin\r\n  FAutoComplete := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.SetAutoCompleteDelay(const Value: Integer);\r\nbegin\r\n  FAutoCompleteDelay := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.SetAutoCompleteNumChar(const Value: Integer);\r\nbegin\r\n  if Value > 0 then\r\n    FAutoCompleteNumChar := Value\r\n  else\r\n    FAutoCompleteNumChar := 1;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.SetAutoDropDown(const Value: Boolean);\r\nbegin\r\n  FAutoDropDown := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.SetCaseSensitive(const Value: Boolean);\r\nbegin\r\n  FCaseSensitive := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.SetControl(const Value: TControl);\r\nbegin\r\n  if Value = Self then\r\n    Exit;\r\n\r\n  if csDesigning in ComponentState then\r\n  begin\r\n    FControl := Value;\r\n  end\r\n  else\r\n  begin\r\n    if not (csLoading in ComponentState) and Assigned(FControl) then\r\n    begin\r\n      FControl.Parent := FControlParent;\r\n      FControl.Visible := FControlVisible;\r\n      FControl.Align := FControlAlign;\r\n      {$IFDEF FMXLIB}\r\n      FControl.Position.X := FControlLeft;\r\n      FControl.Position.Y := FControlTop;\r\n      FControl.Width := FControlWidth;\r\n      FControl.Height := FControlHeight;\r\n      {$ENDIF}\r\n      {$IFNDEF FMXLIB}\r\n      FControl.Left := Round(FControlLeft);\r\n      FControl.Top := Round(FControlTop);\r\n      FControl.Width := Round(FControlWidth);\r\n      FControl.Height := Round(FControlHeight);\r\n      {$ENDIF}\r\n    end;\r\n\r\n    FControl := Value;\r\n\r\n    if Assigned(FControl) then\r\n    begin\r\n      {$IFDEF CMNLIB}\r\n      FControlParent := TWinControl(FControl.Parent);\r\n      {$ENDIF}\r\n      {$IFNDEF CMNLIB}\r\n      FControlParent := TControl(FControl.Parent);\r\n      {$ENDIF}\r\n      FControlVisible := FControl.Visible;\r\n      FControlAlign := FControl.Align;\r\n      {$IFDEF FMXLIB}\r\n      FControl.Align := TAlignLayout.None;\r\n      FControlLeft := FControl.Position.X;\r\n      FControlTop := FControl.Position.Y;\r\n      {$ENDIF}\r\n      {$IFNDEF FMXLIB}\r\n      FControl.Align := alNone;\r\n      FControlLeft := FControl.Left;\r\n      FControlTop := FControl.Top;\r\n      {$ENDIF}\r\n      FControlWidth := FControl.Width;\r\n      FControlHeight := FControl.Height;\r\n\r\n     // DropDownWidth := FControlWidth;\r\n\r\n      FControl.Parent := FWrapper;\r\n      FControl.Visible := True;\r\n      {$IFDEF FMXLIB}\r\n      FControl.Position.X := 0;\r\n      FControl.Position.Y := 0;\r\n      {$ENDIF}\r\n      {$IFNDEF FMXLIB}\r\n      FControl.Left := 0;\r\n      FControl.Top := 0;\r\n      {$ENDIF}\r\n    end\r\n    else\r\n    begin\r\n      FControlParent := nil;\r\n      FControlVisible := False;\r\n      {$IFDEF FMXLIB}\r\n      FControlAlign := TAlignLayout.None;\r\n      {$ENDIF}\r\n      {$IFNDEF FMXLIB}\r\n      FControlAlign := alNone;\r\n      {$ENDIF}\r\n      FControlLeft := 0;\r\n      FControlTop := 0;\r\n      FControlWidth := 0;\r\n      FControlHeight := 0;\r\n    end;\r\n\r\n    UpdatePickerContent;\r\n\r\n    AdjustDropDownHeight;\r\n    AdjustDropDownWidth;\r\n  end;\r\n\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.SetDropDownControlHeight(const Value: Single);\r\nbegin\r\n  if FDropDownControlHeight <> Value then\r\n  begin\r\n    FDropDownControlHeight := Value;\r\n    AdjustDropDownHeight;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.SetDropDownControlWidth(const Value: Single);\r\nbegin\r\n  if FDropDownControlWidth <> Value then\r\n  begin\r\n    FDropDownControlWidth := Value;\r\n    AdjustDropDownWidth;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.SetDropDownHeightMode(const Value: TTMSFNCControlPickderDropDownHeightMode);\r\nbegin\r\n  if Value <> FDropDownHeightMode then\r\n  begin\r\n    FDropDownHeightMode := Value;\r\n\r\n    AdjustDropDownHeight;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.SetDropDownWidthMode(const Value: TTMSFNCControlPickderDropDownWidthMode);\r\nbegin\r\n  if Value <> FDropDownWidthMode then\r\n  begin\r\n    FDropDownWidthMode := Value;\r\n\r\n    AdjustDropDownWidth;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.SetFnt(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FFont.AssignSource(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.SetItemHeight(const Value: Single);\r\nvar\r\n  pi: ITMSFNCControlPickerItems;\r\n  pf: ITMSFNCControlPickerFull;\r\nbegin\r\n  if Assigned(Control) then\r\n  begin\r\n    if Supports(FControl, ITMSFNCControlPickerItems, pi) then\r\n      pi.PickerSetItemHeight(Value)\r\n    else if Supports(FControl, ITMSFNCControlPickerFull, pf) then\r\n      pf.PickerSetItemHeight(Value);\r\n  end;\r\n\r\n  AdjustDropDownHeight;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.SetItemIndex(const Value: Integer);\r\nvar\r\n  pi: ITMSFNCControlPickerItems;\r\n  pf: ITMSFNCControlPickerFull;\r\nbegin\r\n  if Assigned(FControl) and (Value >= 0) and (Value < Count) then\r\n  begin\r\n    if Supports(FControl, ITMSFNCControlPickerItems, pi) then\r\n      pi.PickerSelectItem(Value)\r\n    else if Supports(FControl, ITMSFNCControlPickerFull, pf) then\r\n      pf.PickerSelectItem(Value);\r\n\r\n    UpdatePickerContent;\r\n    DoPickerItemSelected(Content, Value);\r\n\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.SetItemWidth(const Value: Single);\r\nvar\r\n  pi: ITMSFNCControlPickerItems;\r\n  pf: ITMSFNCControlPickerFull;\r\nbegin\r\n  if Assigned(Control) then\r\n  begin\r\n    if Supports(FControl, ITMSFNCControlPickerItems, pi) then\r\n      pi.PickerSetItemWidth(Value)\r\n    else if Supports(FControl, ITMSFNCControlPickerFull, pf) then\r\n      pf.PickerSetItemWidth(Value);\r\n  end;\r\n\r\n  AdjustDropDownWidth;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.SetStyle(const Value: TTMSFNCControlPickerStyle);\r\nbegin\r\n  if FStyle <> Value then\r\n  begin\r\n    FStyle := Value;\r\n    case FStyle of\r\n      TTMSFNCControlPickerStyle.csDropDown:\r\n      begin\r\n        Editable := True;\r\n        Popup.FocusedControl := Edit;\r\n        Popup.StaysOpen := True;\r\n      end;\r\n      TTMSFNCControlPickerStyle.csDropDownList:\r\n      begin\r\n        Editable := False;\r\n        if Assigned(FControl) then\r\n          Popup.FocusedControl := FControl;\r\n        Popup.StaysOpen := False;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.SetText(const Value: string);\r\nbegin\r\n  Content := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.UpdateDropDown;\r\nbegin\r\n  UpdatePickerContent;\r\n  DropDown;\r\n\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.UpdateListBoxLookup(AText: string);\r\nbegin\r\n  ClearFilter;\r\n  ApplyFilter(AText);\r\n\r\n  if AutoDropDown and (Length(AText) >= FAutoCompleteNumChar) and (not Popup.IsOpen) and (GetVisibleItemCount > 0) then\r\n    DropDown;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.UpdatePickerContent;\r\nvar\r\n  pb: ITMSFNCControlPickerBase;\r\n  pi: ITMSFNCControlPickerItems;\r\n  pf: ITMSFNCControlPickerFull;\r\n  txt: String;\r\n  a: Boolean;\r\nbegin\r\n  txt := GetContent;\r\n  if Supports(FControl, ITMSFNCControlPickerBase, pb) then\r\n    txt := pb.PickerGetContent\r\n  else if Supports(FControl, ITMSFNCControlPickerItems, pi) then\r\n    txt := pi.PickerGetContent\r\n  else if Supports(FControl, ITMSFNCControlPickerFull, pf) then\r\n    txt := pf.PickerGetContent;\r\n\r\n  a := True;\r\n\r\n  DoSetContent(txt, a);\r\n\r\n  if a then\r\n    Content := txt;\r\nend;\r\n\r\nprocedure TTMSFNCCustomControlPicker.UpdatePickerDropDownSize;\r\nbegin\r\n  AdjustDropDownHeight;\r\n  AdjustDropDownWidth;\r\nend;\r\n\r\n{ TTMSFNCControlPicker }\r\n\r\nprocedure TTMSFNCControlPicker.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClass(TTMSFNCControlPicker);\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2016 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : https://www.tmssoftware.com                       }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCTreeView;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n{$DEFINE UIPACK}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, WEBLib.TMSFNCCustomTreeView, WEBLib.TMSFNCGraphics,\r\n  WEBLib.TMSFNCTreeViewData, WEBLib.TMSFNCTypes, WEBLib.TMSFNCGraphicsTypes\r\n  {$IFDEF FNCLIB}\r\n  {$IFDEF UIPACK}\r\n  , WEBLib.TMSFNCControlPicker\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  ,UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  ,Types\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Layouts\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  {$IFDEF FNCLIB}\r\n  TTMSFNCTreeView = class(TTMSFNCTreeViewPublished{$IFDEF UIPACK}, ITMSFNCControlPickerFull{$ENDIF})\r\n  {$ENDIF}\r\n  {$IFNDEF FNCLIB}\r\n  TTMSFNCTreeView = class(TTMSFNCTreeViewPublished)\r\n  {$ENDIF}\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n    {$IFDEF FMXLIB}\r\n    procedure DoAbsoluteChanged; override;\r\n    {$ENDIF}\r\n    procedure DoAfterSelectNode(ANode: TTMSFNCTreeViewVirtualNode); override;\r\n    procedure DrawBorders(AGraphics: TTMSFNCGraphics); override;\r\n    procedure DrawEmptySpaces(AGraphics: TTMSFNCGraphics); override;\r\n    procedure DrawNodeColumns(AGraphics: TTMSFNCGraphics); override;\r\n\r\n    procedure DrawNode(AGraphics: TTMSFNCGraphics; ARect: TRectF; ANode: TTMSFNCTreeViewVirtualNode; ACaching: Boolean = False; AOffsetX: Single = 0; AOffsetY: Single = 0); override;\r\n    procedure DrawGroup(AGraphics: TTMSFNCGraphics; ARect: TRectF; AGroup: Integer; AStartColumn, AEndColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind); override;\r\n    procedure DrawColumn(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind); override;\r\n    procedure DrawSortIndicator(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColor: TTMSFNCGraphicsColor; AColumn: Integer; ASortIndex: Integer; ASortKind: TTMSFNCTreeViewNodesSortKind); virtual;\r\n    {$IFDEF FNCLIB}\r\n    function PickerGetContent: String; virtual;\r\n    procedure PickerSelectItem(AItemIndex: Integer); virtual;\r\n    function PickerGetSelectedItem: Integer; virtual;\r\n    function PickerGetVisibleItemCount: Integer; virtual;\r\n    function PickerGetItemCount: Integer; virtual;\r\n    function PickerGetItemHeight: Single; virtual;\r\n    procedure PickerSetItemHeight(AValue: Single); virtual;\r\n    function PickerGetItemWidth: Single; virtual;\r\n    procedure PickerSetItemWidth(AValue: Single); virtual;\r\n    function PickerGetNextSelectableItem(AItemIndex: Integer): Integer; virtual;\r\n    function PickerGetPreviousSelectableItem(AItemIndex: Integer): Integer; virtual;\r\n    function PickerGetFirstSelectableItem: Integer; virtual;\r\n    function PickerGetLastSelectableItem: Integer; virtual;\r\n    procedure PickerResetFilter; virtual;\r\n    procedure PickerApplyFilter(ACondition: string; ACaseSensitive: Boolean); virtual;\r\n    {$IFDEF UIPACK}\r\n    function PickerLookupItem(ALookupString: String; ACaseSensitive: Boolean): TTMSFNCControlPickerFilterItem; virtual;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  Math, SysUtils, WEBLib.TMSFNCUtils, WEBLib.Graphics\r\n  {$IFDEF FNCLIB}\r\n  {$IFDEF UIPACK}\r\n  , WEBLib.TMSFNCCustomSelector\r\n  {$ENDIF}\r\n  {$ENDIF};\r\n\r\ntype\r\n  TTMSFNCTreeViewColumnOpen = class(TTMSFNCTreeViewColumn);\r\n\r\n{ TTMSFNCTreeView }\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCTreeView.DoAbsoluteChanged;\r\nbegin\r\n  inherited;\r\n  if Parent is TScaledLayout then\r\n    UpdateTreeViewCache;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCTreeView.DoAfterSelectNode(ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  inherited;\r\n  {$IFDEF FNCLIB}\r\n  {$IFDEF UIPACK}\r\n  if Assigned(Parent) and (Parent is TTMSFNCCustomSelector) and Assigned(Parent.Owner) and (Parent.Owner is TTMSFNCControlPicker)then\r\n  begin\r\n//    Update ControlPicker if assigned as control\r\n    (Parent.Owner as TTMSFNCControlPicker).UpdateDropDown;\r\n  end;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCTreeView.DrawBorders(AGraphics: TTMSFNCGraphics);\r\nvar\r\n  rrt, rrb, trl, grt, grb: TRectF;\r\n  nr: TRectF;\r\nbegin\r\n  inherited;\r\n\r\n  grt := GetGroupsTopRect;\r\n  grb := GetGroupsBottomRect;\r\n  rrt := GetColumnsTopRect;\r\n  rrb := GetColumnsBottomRect;\r\n  nr := GetContentClipRect;\r\n\r\n  {$IFDEF CMNLIB}\r\n  grt.Right := grt.Right - 1;\r\n  grb.Right := grb.Right - 1;\r\n  rrt.Right := rrt.Right - 1;\r\n  rrb.Right := rrb.Right - 1;\r\n  {$ENDIF}\r\n\r\n  trl := RectF(nr.Right + 1, rrt.Bottom, nr.Right + 1, rrb.Top);\r\n\r\n  AGraphics.Stroke.Assign(ColumnsAppearance.TopStroke);\r\n\r\n  if (trl.Right - trl.Left > 0) and (trl.Bottom - trl.Top > 0) then\r\n  begin\r\n    if HorizontalScrollBar.Visible or ColumnsAppearance.Stretch then\r\n      AGraphics.DrawLine(PointF(trl.Right, trl.Top), PointF(trl.Right, trl.Bottom), gcpmLeftDown, gcpmLeftUp)\r\n    else\r\n      AGraphics.DrawLine(PointF(trl.Right, trl.Top), PointF(trl.Right, trl.Bottom), gcpmRightDown, gcpmRightUp);\r\n  end;\r\n\r\n  if HorizontalScrollBar.Visible or ColumnsAppearance.Stretch then\r\n  begin\r\n    AGraphics.Stroke.Assign(ColumnsAppearance.TopStroke);\r\n    if (tclTop in ColumnsAppearance.Layouts) and (ColumnsAppearance.TopSize > 0) then\r\n    begin\r\n      AGraphics.DrawLine(PointF(rrt.Left, rrt.Top), PointF(rrt.Left, rrt.Bottom), gcpmRightDown, gcpmRightUp);\r\n      AGraphics.DrawLine(PointF(rrt.Right, rrt.Top), PointF(rrt.Right, rrt.Bottom), gcpmLeftDown, gcpmLeftUp);\r\n    end\r\n    else if not ((tglTop in GroupsAppearance.Layouts) or (GroupsAppearance.TopSize <= 0) or (DisplayGroups.Count = 0)) and (Stroke.Kind <> gskNone) then\r\n      AGraphics.DrawLine(PointF(rrt.Left, rrt.Bottom), PointF(rrt.Right, rrt.Bottom), gcpmRightDown, gcpmLeftDown);\r\n\r\n    AGraphics.Stroke.Assign(ColumnsAppearance.BottomStroke);\r\n    if (tclBottom in ColumnsAppearance.Layouts) and (ColumnsAppearance.Bottomsize > 0) then\r\n    begin\r\n      AGraphics.DrawLine(PointF(rrb.Left, rrb.Top), PointF(rrb.Left, rrb.Bottom), gcpmRightDown, gcpmRightUp);\r\n      AGraphics.DrawLine(PointF(rrb.Right, rrb.Top), PointF(rrb.Right, rrb.Bottom), gcpmLeftDown, gcpmLeftUp);\r\n    end\r\n    else if (not (tglBottom in GroupsAppearance.Layouts) or (GroupsAppearance.BottomSize <= 0) or (DisplayGroups.Count = 0)) and (Stroke.Kind <> gskNone) then\r\n      AGraphics.DrawLine(PointF(rrb.Left, rrb.Top), PointF(rrb.Right, rrb.Top), gcpmRightUp, gcpmLeftUp);\r\n\r\n    AGraphics.Stroke.Assign(GroupsAppearance.TopStroke);\r\n    if (tglTop in GroupsAppearance.Layouts) and (DisplayGroups.Count > 0) and (GroupsAppearance.TopSize > 0) then\r\n    begin\r\n      AGraphics.DrawLine(PointF(grt.Left, grt.Top), PointF(grt.Left, grt.Bottom), gcpmRightDown, gcpmRightUp);\r\n      AGraphics.DrawLine(PointF(grt.Right, grt.Top), PointF(grt.Right, grt.Bottom), gcpmLeftDown, gcpmLeftUp);\r\n    end;\r\n\r\n    if (not (tclTop in ColumnsAppearance.Layouts) or (ColumnsAppearance.TopSize <= 0)) and (Stroke.Kind <> gskNone) then\r\n      AGraphics.DrawLine(PointF(grt.Left, grt.Bottom), PointF(grt.Right, grt.Bottom), gcpmRightDown, gcpmLeftDown);\r\n\r\n    AGraphics.Stroke.Assign(GroupsAppearance.BottomStroke);\r\n    if (tglBottom in GroupsAppearance.Layouts) and (DisplayGroups.Count > 0) and (GroupsAppearance.BottomSize > 0) then\r\n    begin\r\n      AGraphics.DrawLine(PointF(grb.Left, grb.Top), PointF(grb.Left, grb.Bottom), gcpmRightDown, gcpmRightUp);\r\n      AGraphics.DrawLine(PointF(grb.Right, grb.Top), PointF(grb.Right, grb.Bottom), gcpmLeftDown, gcpmLeftUp);\r\n    end;\r\n\r\n    if (not (tclBottom in ColumnsAppearance.Layouts) or (ColumnsAppearance.BottomSize <= 0)) and (Stroke.Kind <> gskNone) then\r\n      AGraphics.DrawLine(PointF(grb.Left, grb.Top), PointF(grb.Right, grb.Top), gcpmRightUp, gcpmLeftUp);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeView.DrawColumn(AGraphics: TTMSFNCGraphics; ARect: TRectF;\r\n  AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind);\r\nvar\r\n  b: Boolean;\r\n  str: String;\r\n  df: Boolean;\r\n  txtr: TRectF;\r\n  def: Boolean;\r\n  col: TTMSFNCTreeViewColumn;\r\n  trim: TTMSFNCGraphicsTextTrimming;\r\n  ha, va: TTMSFNCGraphicsTextAlign;\r\n  ww: Boolean;\r\n  r: TRectF;\r\n  sr, dr: TRectF;\r\n  szd: Single;\r\n  szr: Single;\r\n  szt: Single;\r\nbegin\r\n  inherited;\r\n  r := ARect;\r\n  def := True;\r\n  col := nil;\r\n  if (AColumn >= 0) and (AColumn <= Columns.Count - 1) then\r\n  begin\r\n    col := Columns[AColumn];\r\n    if not col.UseDefaultAppearance then\r\n    begin\r\n      def := False;\r\n      case AKind of\r\n        ikColumnTop:\r\n        begin\r\n          AGraphics.Stroke.Assign(col.TopStroke);\r\n          AGraphics.Fill.Assign(col.TopFill);\r\n        end;\r\n        ikColumnBottom:\r\n        begin\r\n          AGraphics.Stroke.Assign(col.BottomStroke);\r\n          AGraphics.Fill.Assign(col.BottomFill);\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  if def then\r\n  begin\r\n    case AKind of\r\n      ikColumnTop:\r\n      begin\r\n        AGraphics.Stroke.Assign(ColumnsAppearance.TopStroke);\r\n        AGraphics.Fill.Assign(ColumnsAppearance.TopFill);\r\n      end;\r\n      ikColumnBottom:\r\n      begin\r\n        AGraphics.Stroke.Assign(ColumnsAppearance.BottomStroke);\r\n        AGraphics.Fill.Assign(ColumnsAppearance.BottomFill);\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  b := True;\r\n  df := True;\r\n  DoBeforeDrawColumnHeader(AGraphics, r, AColumn, AKind, b, df);\r\n\r\n  if b then\r\n  begin\r\n    if df then\r\n      AGraphics.DrawRectangle(r, gcrmNone);\r\n\r\n    sr := r;\r\n    szt := 0;\r\n\r\n    if Assigned(col) then\r\n    begin\r\n      if col.Filtering.Enabled then\r\n      begin\r\n        szd := col.Filtering.ButtonSize;\r\n        dr := RectF(Round(r.Right - szd - ScalePaintValue(4)), Round(r.Top + ((r.Bottom - r.Top) - szd) / 2), Round(r.Right - ScalePaintValue(4)), Round(r.Top + ((r.Bottom - r.Top) - szd) / 2 + szd));\r\n        AGraphics.DrawDropDownButton(dr, False, False, True, True, AdaptToStyle, PaintScaleFactor);\r\n        sr.Right := dr.Left;\r\n        szt := szt + szd + ScalePaintValue(4);\r\n      end;\r\n\r\n      if col.Expandable then\r\n      begin\r\n        szr := col.ExpandingButtonSize;\r\n        sr := RectF(Round(sr.Right - szr - ScalePaintValue(6)), Round(sr.Top + ((sr.Bottom - sr.Top) - szr) / 2), Round(sr.Right - ScalePaintValue(6)), Round(sr.Top + ((sr.Bottom - sr.Top) - szr) / 2 + szr));\r\n        if col.Expanded then\r\n          AGraphics.DrawCompactButton(sr, gcsExpanded, False, False, True, False, PaintScaleFactor)\r\n        else\r\n          AGraphics.DrawCompactButton(sr, gcsCollapsed, False, False, True, False, PaintScaleFactor);\r\n        sr.Right := sr.Left;\r\n        szt := szt + szr + ScalePaintValue(6);\r\n      end;\r\n\r\n      if (TTMSFNCTreeViewColumnOpen(col).SortKind <> nskNone) and (SortColumn = AColumn) then\r\n      begin\r\n        szr := ScalePaintValue(8);\r\n        sr := RectF(Round(sr.Right - szr - ScalePaintValue(6)), Round(sr.Top + ((sr.Bottom - sr.Top) - szr) / 2), Round(sr.Right - ScalePaintValue(6)), Round(sr.Top + ((sr.Bottom - sr.Top) - szr) / 2 + szr));\r\n        DrawSortIndicator(AGraphics, sr, ColumnsAppearance.SortIndicatorColor, AColumn, TTMSFNCTreeViewColumnOpen(col).SortIndex, TTMSFNCTreeViewColumnOpen(col).SortKind);\r\n        szt := szt + szr + ScalePaintValue(6);\r\n      end;\r\n    end;\r\n\r\n    if def then\r\n    begin\r\n      case AKind of\r\n        ikColumnTop: AGraphics.Font.Assign(ColumnsAppearance.TopFont);\r\n        ikColumnBottom: AGraphics.Font.Assign(ColumnsAppearance.BottomFont);\r\n      end;\r\n    end\r\n    else if Assigned(col) then\r\n    begin\r\n      case AKind of\r\n        ikColumnTop: AGraphics.Font.Assign(col.TopFont);\r\n        ikColumnBottom: AGraphics.Font.Assign(col.BottomFont);\r\n      end;\r\n    end;\r\n\r\n    str := GetColumnText(AColumn);\r\n    DoGetColumnText(AColumn, AKind, str);\r\n\r\n    ha := gtaLeading;\r\n    va := gtaCenter;\r\n    ww := False;\r\n    trim := gttNone;\r\n    if Assigned(col) then\r\n    begin\r\n      ha := col.HorizontalTextAlign;\r\n      va := col.VerticalTextAlign;\r\n      ww := col.WordWrapping;\r\n      trim := col.Trimming;\r\n    end;\r\n\r\n    DoGetColumnTrimming(AColumn, AKind, trim);\r\n    DoGetColumnWordWrapping(AColumn, AKind, ww);\r\n    DoGetColumnHorizontalTextAlign(AColumn, AKind, ha);\r\n    DoGetColumnVerticalTextAlign(AColumn, AKind, va);\r\n\r\n    b := True;\r\n    txtr := r;\r\n    InflateRectEx(txtr, ScalePaintValue(-3), ScalePaintValue(-3));\r\n    txtr.Right := Max(txtr.Left, txtr.Right - szt);\r\n\r\n    DoBeforeDrawColumnText(AGraphics, txtr, AColumn, AKind, str, b);\r\n    if b then\r\n    begin\r\n      case AKind of\r\n        ikColumnTop:\r\n        begin\r\n          if ColumnsAppearance.TopVerticalText then\r\n            AGraphics.DrawText(txtr, str, ww, ha, va, trim, -90)\r\n          else\r\n            AGraphics.DrawText(txtr, str, ww, ha, va, trim)\r\n        end;\r\n        ikColumnBottom:\r\n        begin\r\n          if ColumnsAppearance.BottomVerticalText then\r\n            AGraphics.DrawText(txtr, str, ww, ha, va, trim, 90)\r\n          else\r\n            AGraphics.DrawText(txtr, str, ww, ha, va, trim)\r\n        end;\r\n      end;\r\n      DoAfterDrawColumnText(AGraphics, txtr, AColumn, AKind, str);\r\n    end;\r\n    DoAfterDrawColumnHeader(AGraphics, ARect, AColumn, AKind);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeView.DrawEmptySpaces(AGraphics: TTMSFNCGraphics);\r\nvar\r\n  r: TRectF;\r\n  b, df: Boolean;\r\nbegin\r\n  inherited;\r\n  if ColumnsAppearance.FillEmptySpaces and not StretchScrollBars then\r\n  begin\r\n    if (tclTop in ColumnsAppearance.Layouts) and (ColumnsAppearance.TopSize > 0) then\r\n    begin\r\n      //Column top right\r\n      r := GetColumnTopRightEmptyRect;\r\n      {$IFDEF CMNLIB}\r\n      r.Left := r.Left - 1;\r\n      r.Right := r.Right + 1;\r\n      r.Bottom := r.Bottom + 1;\r\n      {$ENDIF}\r\n      b := True;\r\n      df := True;\r\n\r\n      AGraphics.Fill.Assign(ColumnsAppearance.TopFill);\r\n      AGraphics.Stroke.Assign(ColumnsAppearance.TopStroke);\r\n\r\n      DoBeforeDrawColumnEmptySpace(AGraphics, r, tcesTopRight, b, df);\r\n      if b then\r\n      begin\r\n        if df then\r\n          AGraphics.DrawRectangle(r, gcrmShiftDownAndExpandWidth);\r\n\r\n        DoAfterDrawColumnEmptySpace(AGraphics, r, tcesTopRight);\r\n      end;\r\n    end;\r\n\r\n    if (tclBottom in ColumnsAppearance.Layouts) and (ColumnsAppearance.BottomSize > 0) then\r\n    begin\r\n      //Column bottom right\r\n      r := GetColumnBottomRightEmptyRect;\r\n      {$IFDEF CMNLIB}\r\n      r.Left := r.Left - 1;\r\n      r.Right := r.Right + 1;\r\n      r.Top := r.Top - 1;\r\n      {$ENDIF}\r\n      b := True;\r\n      df := True;\r\n\r\n      AGraphics.Fill.Assign(ColumnsAppearance.BottomFill);\r\n      AGraphics.Stroke.Assign(ColumnsAppearance.BottomStroke);\r\n\r\n      DoBeforeDrawColumnEmptySpace(AGraphics, r, tcesBottomRight, b, df);\r\n      if b then\r\n      begin\r\n        if df then\r\n          AGraphics.DrawRectangle(r, gcrmShiftUpAndExpandWidth);\r\n\r\n        DoAfterDrawColumnEmptySpace(AGraphics, r, tcesBottomRight);\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  if GroupsAppearance.FillEmptySpaces and not StretchScrollBars then\r\n  begin\r\n    if (tglTop in GroupsAppearance.Layouts) and (GroupsAppearance.TopSize > 0) then\r\n    begin\r\n      //Group top right\r\n      r := GetGroupTopRightEmptyRect;\r\n      {$IFDEF CMNLIB}\r\n      r.Left := r.Left - 1;\r\n      r.Bottom := r.Bottom + 1;\r\n      {$ENDIF}\r\n      b := True;\r\n      df := True;\r\n\r\n      AGraphics.Fill.Assign(GroupsAppearance.TopFill);\r\n      AGraphics.Stroke.Assign(GroupsAppearance.TopStroke);\r\n\r\n      DoBeforeDrawGroupEmptySpace(AGraphics, r, tgesTopRight, b, df);\r\n      if b then\r\n      begin\r\n        if df then\r\n          AGraphics.DrawRectangle(r, gcrmShiftLeftDown);\r\n\r\n        DoAfterDrawGroupEmptySpace(AGraphics, r, tgesTopRight);\r\n      end;\r\n    end;\r\n\r\n    if (tglBottom in GroupsAppearance.Layouts) and (GroupsAppearance.BottomSize > 0) then\r\n    begin\r\n      //Group bottom right\r\n      r := GetGroupBottomRightEmptyRect;\r\n      {$IFDEF CMNLIB}\r\n      r.Left := r.Left - 1;\r\n      r.Right := r.Right + 1;\r\n      r.Top := r.Top - 1;\r\n      {$ENDIF}\r\n      b := True;\r\n      df := True;\r\n\r\n      AGraphics.Fill.Assign(GroupsAppearance.BottomFill);\r\n      AGraphics.Stroke.Assign(GroupsAppearance.BottomStroke);\r\n\r\n      DoBeforeDrawGroupEmptySpace(AGraphics, r, tgesBottomRight, b, df);\r\n      if b then\r\n      begin\r\n        if df then\r\n          AGraphics.DrawRectangle(r, gcrmShiftLeftUp);\r\n\r\n        DoAfterDrawGroupEmptySpace(AGraphics, r, tgesBottomRight);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeView.DrawGroup(AGraphics: TTMSFNCGraphics; ARect: TRectF; AGroup,\r\n  AStartColumn, AEndColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind);\r\nvar\r\n  b, df: Boolean;\r\n  str: String;\r\n  txtr: TRectF;\r\n  grp: TTMSFNCTreeViewGroup;\r\n  def: Boolean;\r\nbegin\r\n  grp := nil;\r\n  def := True;\r\n  if (AGroup >= 0) and (AGroup <= Groups.Count - 1) then\r\n  begin\r\n    grp := Groups[AGroup];\r\n    if not grp.UseDefaultAppearance then\r\n    begin\r\n      def := False;\r\n      case AKind of\r\n        ikGroupTop:\r\n        begin\r\n          AGraphics.Stroke.Assign(grp.TopStroke);\r\n          AGraphics.Fill.Assign(grp.TopFill);\r\n        end;\r\n        ikGroupBottom:\r\n        begin\r\n          AGraphics.Stroke.Assign(grp.BottomStroke);\r\n          AGraphics.Fill.Assign(grp.BottomFill);\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  if def then\r\n  begin\r\n    case AKind of\r\n      ikGroupTop:\r\n      begin\r\n        AGraphics.Stroke.Assign(GroupsAppearance.TopStroke);\r\n        AGraphics.Fill.Assign(GroupsAppearance.TopFill);\r\n      end;\r\n      ikGroupBottom:\r\n      begin\r\n        AGraphics.Stroke.Assign(GroupsAppearance.BottomStroke);\r\n        AGraphics.Fill.Assign(GroupsAppearance.BottomFill);\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  b := True;\r\n  df := True;\r\n  DoBeforeDrawGroup(AGraphics, ARect, AGroup, AStartColumn, AEndColumn, AKind, b, df);\r\n\r\n  if b then\r\n  begin\r\n    if df then\r\n      AGraphics.DrawRectangle(ARect, gcrmNone);\r\n\r\n    if def then\r\n    begin\r\n      case AKind of\r\n        ikGroupTop: AGraphics.Font.Assign(GroupsAppearance.TopFont);\r\n        ikGroupBottom: AGraphics.Font.Assign(GroupsAppearance.BottomFont);\r\n      end;\r\n    end\r\n    else if Assigned(grp) then\r\n    begin\r\n      case AKind of\r\n        ikGroupTop: AGraphics.Font.Assign(grp.TopFont);\r\n        ikGroupBottom: AGraphics.Font.Assign(grp.BottomFont);\r\n      end;\r\n    end;\r\n\r\n    txtr := ARect;\r\n    InflateRectEx(txtr, ScalePaintValue(-2), ScalePaintValue(-2));\r\n\r\n    str := GetGroupText(AGroup);\r\n    DoGetGroupText(AGroup, AKind, str);\r\n    b := True;\r\n    DoBeforeDrawGroupText(AGraphics, txtr, AGroup, AStartColumn, AEndColumn, AKind, str, b);\r\n    if b then\r\n    begin\r\n      case AKind of\r\n        ikGroupTop:\r\n        begin\r\n          if GroupsAppearance.TopVerticalText then\r\n            AGraphics.DrawText(txtr, str, False, GroupsAppearance.TopHorizontalTextAlign, GroupsAppearance.TopVerticalTextAlign, gttNone, -90)\r\n          else\r\n            AGraphics.DrawText(txtr, str, False, GroupsAppearance.TopHorizontalTextAlign, GroupsAppearance.TopVerticalTextAlign, gttNone)\r\n        end;\r\n        ikGroupBottom:\r\n        begin\r\n          if GroupsAppearance.BottomVerticalText then\r\n            AGraphics.DrawText(txtr, str, False, GroupsAppearance.BottomHorizontalTextAlign, GroupsAppearance.BottomVerticalTextAlign, gttNone, 90)\r\n          else\r\n            AGraphics.DrawText(txtr, str, False, GroupsAppearance.BottomHorizontalTextAlign, GroupsAppearance.BottomVerticalTextAlign, gttNone)\r\n        end;\r\n      end;\r\n      DoAfterDrawGroupText(AGraphics, txtr, AGroup, AStartColumn, AEndColumn, AKind, str);\r\n    end;\r\n    DoAfterDrawGroup(AGraphics, ARect, AGroup, AStartColumn, AEndColumn, AKind);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeView.DrawNode(AGraphics: TTMSFNCGraphics; ARect: TRectF;\r\n  ANode: TTMSFNCTreeViewVirtualNode; ACaching: Boolean = False; AOffsetX: Single = 0; AOffsetY: Single = 0);\r\nvar\r\n  str: String;\r\n  b, df: Boolean;\r\n  txtr, titr: TRectF;\r\n  I: Integer;\r\n  bmp: TTMSFNCBitmap;\r\n  bmpnr, extr: TRectF;\r\n  AColor: TTMSFNCGraphicsColor;\r\n  AStrokeColor: TTMSFNCGraphicsColor;\r\n  sts, stp: Integer;\r\n  bmpn: TTMSFNCBitmap;\r\n  ha, va: TTMSFNCGraphicsTextAlign;\r\n  c: TTMSFNCTreeViewColumn;\r\n  ww: Boolean;\r\n  trim: TTMSFNCGraphicsTextTrimming;\r\n  en: Boolean;\r\n  colw: Double;\r\n  chk: TTMSFNCTreeViewNodeCheckType;\r\n  chkr: TRectF;\r\n  chkbmp: TTMSFNCBitmap;\r\n  ck, ext: Boolean;\r\n  lr, dr: TRectF;\r\n  bmpexr, dexr: TRectF;\r\n  sel: Boolean;\r\n  cl: TTMSFNCTreeViewColumn;\r\n  rfoc: TRectF;\r\n  p, lp, n: TTMSFNCTreeViewVirtualNode;\r\n  rsel, r: TRectF;\r\n  ns: Double;\r\n  dpi: Boolean;\r\n  g: TTMSFNCGraphics;\r\n  bmpa: TBitmap;\r\n  bt: TTMSFNCBitmap;\r\n  s: TTMSFNCGraphicsSides;\r\n  ro: Integer;\r\n  corners: TTMSFNCGraphicsCorners;\r\nbegin\r\n  inherited;\r\n  if not Assigned(ANode) or ((DragNode = ANode) and DragModeStarted) then\r\n    Exit;\r\n\r\n  dpi := ResourceScaleFactor > 1.0;\r\n\r\n  en := True;\r\n  DoIsNodeEnabled(ANode, en);\r\n  ext := False;\r\n  DoIsNodeExtended(ANode, ext);\r\n  sel := IsVirtualNodeSelected(ANode);\r\n\r\n  if en then\r\n  begin\r\n    if sel then\r\n    begin\r\n      if ext then\r\n      begin\r\n        AGraphics.Fill.Assign(NodesAppearance.ExtendedSelectedFill);\r\n        AGraphics.Stroke.Assign(NodesAppearance.ExtendedSelectedStroke);\r\n      end\r\n      else\r\n      begin\r\n        AGraphics.Fill.Assign(NodesAppearance.SelectedFill);\r\n        AGraphics.Stroke.Assign(NodesAppearance.SelectedStroke);\r\n      end;\r\n\r\n      AColor := AGraphics.Fill.Color;\r\n      AStrokeColor := AGraphics.Stroke.Color;\r\n      DoGetNodeSelectedColor(ANode, AColor);\r\n      DoGetNodeSelectedStrokeColor(ANode, AStrokeColor);\r\n      AGraphics.Fill.Color := AColor;\r\n      AGraphics.Stroke.Color := AStrokeColor;\r\n    end\r\n    else\r\n    begin\r\n      if ext then\r\n      begin\r\n        AGraphics.Fill.Assign(NodesAppearance.ExtendedFill);\r\n        AGraphics.Stroke.Assign(NodesAppearance.ExtendedStroke);\r\n      end\r\n      else\r\n      begin\r\n        AGraphics.Fill.Assign(NodesAppearance.Fill);\r\n        AGraphics.Stroke.Assign(NodesAppearance.Stroke);\r\n      end;\r\n\r\n      AColor := AGraphics.Fill.Color;\r\n      AStrokeColor := AGraphics.Stroke.Color;\r\n      DoGetNodeColor(ANode, AColor);\r\n      DoGetNodeStrokeColor(ANode, AStrokeColor);\r\n      AGraphics.Fill.Color := AColor;\r\n      AGraphics.Stroke.Color := AStrokeColor;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    if ext then\r\n    begin\r\n      AGraphics.Fill.Assign(NodesAppearance.ExtendedDisabledFill);\r\n      AGraphics.Stroke.Assign(NodesAppearance.ExtendedDisabledStroke);\r\n    end\r\n    else\r\n    begin\r\n      AGraphics.Fill.Assign(NodesAppearance.DisabledFill);\r\n      AGraphics.Stroke.Assign(NodesAppearance.DisabledStroke);\r\n    end;\r\n\r\n    AColor := AGraphics.Fill.Color;\r\n    AStrokeColor := AGraphics.Stroke.Color;\r\n    DoGetNodeDisabledColor(ANode, AColor);\r\n    DoGetNodeDisabledStrokeColor(ANode, AStrokeColor);\r\n    AGraphics.Fill.Color := AColor;\r\n    AGraphics.Stroke.Color := AStrokeColor;\r\n  end;\r\n\r\n  df := True;\r\n  b := True;\r\n  DoBeforeDrawNode(AGraphics, ARect, ANode, b, df);\r\n\r\n  if b then\r\n  begin\r\n    if df then\r\n    begin\r\n      rsel := ARect;\r\n      if sel and not ext then\r\n      begin\r\n        case NodesAppearance.SelectionArea of\r\n          tsaFull:\r\n          begin\r\n            if (Stroke.Kind <> gskNone) and (Stroke.Color <> gcNull) then\r\n              rsel.Left := 1\r\n            else\r\n              rsel.Left := 0;\r\n          end;\r\n          tsaFromText:\r\n          begin\r\n            if Length(ANode.TextRects) > 0 then\r\n              rsel.Left := ANode.TextRects[0].Left;\r\n          end;\r\n        end;\r\n      end;\r\n\r\n      s := AllSides;\r\n      ro := 0;\r\n      corners := [gcTopLeft, gcTopRight, gcBottomLeft, gcBottomRight];\r\n      DoGetNodeSides(ANode, s);\r\n      DoGetNodeRounding(ANode, ro, corners);\r\n\r\n      if ro > 0 then\r\n      begin\r\n        ro := Min( Trunc(Min(rsel.Right - rsel.Left, rsel.Bottom - rsel.Top)/2), ro);\r\n        AGraphics.DrawRoundRectangle(rsel, ro, corners, gcrmNone)\r\n      end\r\n      else\r\n      AGraphics.DrawRectangle(rsel, s, gcrmNone);\r\n\r\n      if (ANode = FocusedVirtualNode) and IsFocused and NodesAppearance.ShowFocus then\r\n      begin\r\n        rfoc := rsel;\r\n        InflateRectEx(rfoc, ScalePaintValue(-2), ScalePaintValue(-2));\r\n        AGraphics.DrawFocusRectangle(rfoc);\r\n      end;\r\n    end;\r\n\r\n    if not CompactMode then\r\n    begin\r\n      sts := GetFirstVisibleColumn;\r\n      stp := GetLastVisibleColumn;\r\n      if ext then\r\n        stp := Min(sts, stp);\r\n\r\n      for I := sts to stp do\r\n      begin\r\n        cl := nil;\r\n        if (I >= 0) and (I <= Columns.Count - 1) then\r\n          cl := Columns[I];\r\n\r\n        if  (I - sts >= 0) and (I - sts <= Length(ANode.ExpandRects) - 1) and NodesAppearance.ShowLines and (I = NodesAppearance.ExpandColumn) and (NodesAppearance.ExpandWidth > 0) then\r\n        begin\r\n          r := ANode.ExpandRects[I - sts];\r\n          OffsetRectEx(r, AOffsetX, AOffsetY);\r\n          AGraphics.Stroke.Assign(NodesAppearance.LineStroke);\r\n\r\n          if (NodesAppearance.LineStroke.Kind in [gskDash, gskDot, gskDashDot, gskDashDotDot]) then\r\n            AGraphics.StartSpecialPen;\r\n\r\n          ns := NodesAppearance.LevelIndent;\r\n          lr := RectF(r.Left + NodesAppearance.ExpandWidth / 2, ARect.Top, r.Left + NodesAppearance.ExpandWidth / 2 + ns / 2, ARect.Bottom);\r\n\r\n          AGraphics.DrawLine(PointF(lr.Left, lr.Top + (lr.Bottom - lr.Top) / 2), PointF(lr.Right, lr.Top + (lr.Bottom - lr.Top) / 2));\r\n\r\n          if VisibleNodes.Count > 1 then\r\n          begin\r\n            n := ANode;\r\n            p := n.GetParent;\r\n\r\n            dr := lr;\r\n            while Assigned(p) do\r\n            begin\r\n              if (((n = ANode) and (n.Index <= p.Children - 1)) or ((n <> ANode) and (n.Index < p.Children - 1))) then\r\n              begin\r\n                if n.Index < p.Children - 1 then\r\n                  AGraphics.DrawLine(PointF(dr.Left, dr.Top), PointF(dr.Left, dr.Bottom), gcpmRightDown, gcpmRightUp)\r\n                else\r\n                  AGraphics.DrawLine(PointF(dr.Left, dr.Top), PointF(dr.Left, dr.Top + (dr.Bottom - dr.Top) / 2), gcpmRightDown, gcpmRightUp);\r\n              end;\r\n\r\n              n := p;\r\n              p := n.GetParent;\r\n              OffsetRectEx(dr, -ns, 0);\r\n            end;\r\n\r\n            if NodeStructure.Count - ANode.TotalChildren - 1 > 0 then\r\n            begin\r\n              p := ANode.GetParent;\r\n              if not Assigned(p) then\r\n              begin\r\n                if (ANode.Row = NodeStructure.Count - ANode.TotalChildren - 1) then\r\n                begin\r\n                  AGraphics.DrawLine(PointF(dr.Left, dr.Top), PointF(dr.Left, dr.Top + (dr.Bottom - dr.Top) / 2), gcpmRightDown, gcpmRightUp)\r\n                end\r\n                else if ANode.Row = 0 then\r\n                begin\r\n                  AGraphics.DrawLine(PointF(dr.Left, dr.Top + (dr.Bottom - dr.Top) / 2), PointF(dr.Left, Int(dr.Bottom) - 0.5), gcpmRightDown, gcpmRightUp)\r\n                end\r\n                else\r\n                  AGraphics.DrawLine(PointF(dr.Left, dr.Top), PointF(dr.Left, dr.Bottom), gcpmRightDown, gcpmRightUp)\r\n              end\r\n              else if Assigned(p) then\r\n              begin\r\n                lp := p;\r\n                p := p.GetParent;\r\n                dr := lr;\r\n                OffsetRectEx(dr, -ns, 0);\r\n                while Assigned(p) do\r\n                begin\r\n                  lp := p;\r\n                  p := p.GetParent;\r\n                  OffsetRectEx(dr, -ns, 0);\r\n                end;\r\n\r\n                if Assigned(lp) and (lp.Row < NodeStructure.Count - lp.TotalChildren - 1)  then\r\n                  AGraphics.DrawLine(PointF(dr.Left, dr.Top), PointF(dr.Left, dr.Bottom), gcpmRightDown, gcpmRightUp);\r\n              end;\r\n            end;\r\n          end;\r\n\r\n          if (NodesAppearance.LineStroke.Kind in [gskDash, gskDot, gskDashDot, gskDashDotDot]) then\r\n            AGraphics.StopSpecialPen;\r\n        end;\r\n\r\n        if Assigned(cl) and not cl.UseDefaultAppearance and not ext then\r\n          AGraphics.Font.Assign(cl.Font)\r\n        else\r\n        begin\r\n          if ext then\r\n            AGraphics.Font.Assign(NodesAppearance.ExtendedFont)\r\n          else\r\n            AGraphics.Font.Assign(NodesAppearance.Font);\r\n        end;\r\n\r\n        colw := ColumnWidths[I];\r\n        if (colw > 0) or ext then\r\n        begin\r\n          if en then\r\n          begin\r\n            if sel then\r\n            begin\r\n              if ext then\r\n                AColor := NodesAppearance.ExtendedSelectedFontColor\r\n              else\r\n                AColor := NodesAppearance.SelectedFontColor;\r\n\r\n              DoGetNodeSelectedTextColor(ANode, I, AColor);\r\n              AGraphics.Font.Color := AColor;\r\n            end\r\n            else\r\n            begin\r\n              if Assigned(cl) and not cl.UseDefaultAppearance and not ext then\r\n                AColor := cl.Font.Color\r\n              else\r\n              begin\r\n                if ext then\r\n                  AColor := NodesAppearance.ExtendedFontColor\r\n                else\r\n                  AColor := NodesAppearance.Font.Color;\r\n              end;\r\n\r\n              DoGetNodeTextColor(ANode, I, AColor);\r\n              AGraphics.Font.Color := AColor;\r\n            end;\r\n          end\r\n          else\r\n          begin\r\n            if ext then\r\n              AColor := NodesAppearance.ExtendedDisabledFontColor\r\n            else\r\n              AColor := NodesAppearance.DisabledFontColor;\r\n\r\n            DoGetNodeDisabledTextColor(ANode, I, AColor);\r\n            AGraphics.Font.Color := AColor;\r\n          end;\r\n\r\n          if (I - sts >= 0) and (I - sts <= Length(ANode.CheckRects) - 1) and (I - sts <= Length(ANode.CheckStates) - 1) then\r\n          begin\r\n            chk := tvntNone;\r\n            DoGetNodeCheckType(ANode, I, chk);\r\n            if chk <> tvntNone then\r\n            begin\r\n              chkbmp := nil;\r\n              ck := ANode.CheckStates[I - sts];\r\n              DoIsNodeChecked(ANode, I, ck);\r\n\r\n              case chk of\r\n                tvntCheckBox: chkbmp := TTMSFNCBitmap(GetCheckBoxBitmap(ck, False));\r\n                tvntRadioButton: chkbmp := TTMSFNCBitmap(GetRadioButtonBitmap(ck, False));\r\n              end;\r\n\r\n              if Assigned(chkbmp) then\r\n              begin\r\n                chkr := ANode.CheckRects[I - sts];\r\n                OffsetRectEx(chkr, AOffsetX, AOffsetY);\r\n\r\n                b := True;\r\n                DoBeforeDrawNodeCheck(AGraphics, chkr, I, ANode, chkbmp, b);\r\n                if b then\r\n                begin\r\n                  AGraphics.DrawBitmap(chkr, chkbmp);\r\n                  DoAfterDrawNodeCheck(AGraphics, chkr, I, ANode, chkbmp);\r\n                end;\r\n              end;\r\n            end;\r\n          end;\r\n\r\n          if (I - sts >= 0) and (I - sts <= Length(ANode.BitmapRects) - 1) then\r\n          begin\r\n            bmpn := nil;\r\n            DoGetNodeIcon(ANode, I, False, bmpn);\r\n            if not Assigned(bmpn) and dpi then\r\n              DoGetNodeIcon(ANode, I, True, bmpn);\r\n\r\n            if Assigned(bmpn) and not IsBitmapEmpty(bmpn) then\r\n            begin\r\n              bmpnr := ANode.BitmapRects[I - sts];\r\n              OffsetRectEx(bmpnr, AOffsetX, AOffsetY);\r\n\r\n              b := True;\r\n              DoBeforeDrawNodeIcon(AGraphics, bmpnr, I, ANode, bmpn, b);\r\n              if b then\r\n              begin\r\n                AGraphics.DrawBitmap(bmpnr, bmpn);\r\n                DoAfterDrawNodeIcon(AGraphics, bmpnr, I, ANode, bmpn);\r\n              end;\r\n            end;\r\n          end;\r\n\r\n          if (I - sts >= 0) and (I - sts <= Length(ANode.ExpandRects) - 1) and (ANode.Children > 0) and (I = NodesAppearance.ExpandColumn) and (NodesAppearance.ExpandWidth > 0) then\r\n          begin\r\n            if dpi then\r\n            begin\r\n              if ANode.Expanded then\r\n                bmp := NodesAppearance.CollapseNodeIconLarge\r\n              else\r\n                bmp := NodesAppearance.ExpandNodeIconLarge;\r\n            end\r\n            else\r\n            begin\r\n              if ANode.Expanded then\r\n                bmp := NodesAppearance.CollapseNodeIcon\r\n              else\r\n                bmp := NodesAppearance.ExpandNodeIcon;\r\n            end;\r\n\r\n            bmpa := nil;\r\n            if AdaptToStyle then\r\n            begin\r\n              bmpa := TBitmap.Create;\r\n              bmpa.SetSize(bmp.Width, bmp.Height);\r\n              g := TTMSFNCGraphics.Create(bmpa.Canvas);\r\n              try\r\n                g.BeginScene;\r\n                g.Fill.Color := TTMSFNCGraphics.DefaultSelectionFillColor;\r\n                g.Fill.Kind := gfkSolid;\r\n                g.Stroke.Kind := gskSolid;\r\n                g.Stroke.Color := TTMSFNCGraphics.DefaultTextFontColor;\r\n                g.DrawRectangle(RectF(0, 0, bmp.Width, bmp.Height));\r\n                g.Stroke.Width := ScalePaintValue(2);\r\n\r\n                if not ANode.Expanded then\r\n                  g.DrawLine(PointF(bmp.Width div 2, 0), PointF(bmp.Width div 2, bmp.Height), gcpmRightDown);\r\n\r\n                g.DrawLine(PointF(0, bmp.Height div 2), PointF(bmp.Width, bmp.Height div 2), gcpmRightDown);\r\n              finally\r\n                g.EndScene;\r\n                g.Free;\r\n              end;\r\n            end;\r\n\r\n            bmpexr := ANode.ExpandRects[I - sts];\r\n            OffsetRectEx(bmpexr, AOffsetX, AOffsetY);\r\n\r\n            b := True;\r\n            DoBeforeDrawNodeExpand(AGraphics, bmpexr, I, ANode, bmp, b);\r\n            if b then\r\n            begin\r\n              if dpi then\r\n              begin\r\n                dexr := bmpexr;\r\n                InflateRectEx(dexr, ScalePaintValue(-2), ScalePaintValue(-2));\r\n              end\r\n              else\r\n              begin\r\n                dexr := RectF(Int(bmpexr.Left + ((bmpexr.Right - bmpexr.Left) - bmp.Width) / 2), Int(bmpexr.Top + ((bmpexr.Bottom - bmpexr.Top) - bmp.Height) / 2),\r\n                  Int(bmpexr.Left + ((bmpexr.Right - bmpexr.Left) - bmp.Width) / 2) + bmp.Width, Int(bmpexr.Top + ((bmpexr.Bottom - bmpexr.Top) - bmp.Height) / 2) + bmp.Height);\r\n              end;\r\n\r\n              if AdaptToStyle and Assigned(bmpa) then\r\n              begin\r\n                bt := TTMSFNCBitmap.Create;\r\n                try\r\n                  bt.Assign(bmpa);\r\n                  AGraphics.DrawBitmap(dexr, bt);\r\n                finally\r\n                  bt.Free;\r\n                end;\r\n                bmpa.Free;\r\n                bmpa := nil;\r\n              end\r\n              else\r\n              begin\r\n                AGraphics.DrawBitmap(dexr, bmp);\r\n              end;\r\n\r\n              DoAfterDrawNodeExpand(AGraphics, bmpexr, I, ANode, bmp);\r\n            end;\r\n\r\n            if Assigned(bmpa) then\r\n              bmpa.Free;\r\n          end;\r\n\r\n          if (I - sts >= 0) and (I - sts <= Length(ANode.TextRects) - 1) and ANode.TitleExpanded[I - sts] then\r\n          begin\r\n            txtr := ANode.TextRects[I - sts];\r\n            OffsetRectEx(txtr, AOffsetX, AOffsetY);\r\n\r\n            InflateRectEx(txtr, ScalePaintValue(-2), 0);\r\n\r\n            c := nil;\r\n            if (I >= 0) and (I <= Columns.Count - 1) then\r\n              c := Columns[I];\r\n\r\n            ha := gtaLeading;\r\n            va := gtaCenter;\r\n            ww := False;\r\n            trim := gttNone;\r\n            if Assigned(c) then\r\n            begin\r\n              ha := c.HorizontalTextAlign;\r\n              va := c.VerticalTextAlign;\r\n              ww := c.WordWrapping;\r\n              trim := c.Trimming;\r\n            end;\r\n\r\n            DoGetNodeTrimming(ANode, I, trim);\r\n            DoGetNodeWordWrapping(ANode, I, ww);\r\n            DoGetNodeHorizontalTextAlign(ANode, I, ha);\r\n            DoGetNodeVerticalTextAlign(ANode, I,va);\r\n\r\n            str := '';\r\n            DoGetNodeText(ANode, I, tntmDrawing, str);\r\n            b := True;\r\n            DoBeforeDrawNodeText(AGraphics, txtr, I, ANode, str, b);\r\n            if b then\r\n            begin\r\n              if InplaceEditorActive and ((UpdateNodeColumn <> I) or (FocusedVirtualNode <> ANode)) or not InplaceEditorActive then\r\n                AGraphics.DrawText(txtr, str, ww, ha, va, trim);\r\n\r\n              DoAfterDrawNodeText(AGraphics, txtr, I, ANode, str);\r\n            end;\r\n          end;\r\n\r\n          if Assigned(cl) and not cl.UseDefaultAppearance then\r\n            AGraphics.Font.Assign(cl.TitleFont)\r\n          else\r\n            AGraphics.Font.Assign(NodesAppearance.TitleFont);\r\n\r\n          if en then\r\n          begin\r\n            if sel then\r\n            begin\r\n              AColor := NodesAppearance.SelectedTitleFontColor;\r\n              DoGetNodeSelectedTitleColor(ANode, I, AColor);\r\n              AGraphics.Font.Color := AColor;\r\n            end\r\n            else\r\n            begin\r\n              if Assigned(cl) and not cl.UseDefaultAppearance then\r\n                AColor := cl.TitleFont.Color\r\n              else\r\n                AColor := NodesAppearance.TitleFont.Color;\r\n\r\n              DoGetNodeTitleColor(ANode, I, AColor);\r\n              AGraphics.Font.Color := AColor;\r\n            end;\r\n          end\r\n          else\r\n          begin\r\n            AColor := NodesAppearance.DisabledTitleFontColor;\r\n            DoGetNodeDisabledTitleColor(ANode, I, AColor);\r\n            AGraphics.Font.Color := AColor;\r\n          end;\r\n\r\n          if (I - sts >= 0) and (I - sts <= Length(ANode.TitleRects) - 1) then\r\n          begin\r\n            titr := ANode.TitleRects[I - sts];\r\n            OffsetRectEx(titr, AOffsetX, AOffsetY);\r\n\r\n            InflateRectEx(titr, ScalePaintValue(-2), 0);\r\n\r\n            c := nil;\r\n            if (I >= 0) and (I <= Columns.Count - 1) then\r\n              c := Columns[I];\r\n\r\n            ha := gtaLeading;\r\n            va := gtaCenter;\r\n            ww := False;\r\n            trim := gttNone;\r\n            if Assigned(c) then\r\n            begin\r\n              ha := c.TitleHorizontalTextAlign;\r\n              va := c.TitleVerticalTextAlign;\r\n              ww := c.TitleWordWrapping;\r\n              trim := c.TitleTrimming;\r\n            end;\r\n\r\n            DoGetNodeTitleTrimming(ANode, I, trim);\r\n            DoGetNodeTitleWordWrapping(ANode, I, ww);\r\n            DoGetNodeTitleHorizontalTextAlign(ANode, I, ha);\r\n            DoGetNodeTitleVerticalTextAlign(ANode, I,va);\r\n\r\n            str := '';\r\n            DoGetNodeTitle(ANode, I, tntmDrawing, str);\r\n            b := True;\r\n            DoBeforeDrawNodeTitle(AGraphics, titr, I, ANode, str, b);\r\n            if b then\r\n            begin\r\n  //            if InplaceEditorActive and ((UpdateNodeColumn <> I) or (FocusedVirtualNode <> ANode)) or not InplaceEditorActive then\r\n                AGraphics.DrawText(titr, str, ww, ha, va, trim);\r\n\r\n              DoAfterDrawNodeTitle(AGraphics, titr, I, ANode, str);\r\n            end;\r\n          end;\r\n\r\n          if (I - sts >= 0) and (I - sts <= Length(ANode.ExtraRects) - 1) then\r\n          begin\r\n            extr := ANode.ExtraRects[I - sts];\r\n            OffsetRectEx(extr, AOffsetX, AOffsetY);\r\n            b := True;\r\n            DoBeforeDrawNodeExtra(AGraphics, extr, I, ANode, b);\r\n            if b then\r\n            begin\r\n              DoDrawNodeExtra(AGraphics, extr, I, ANode);\r\n              DoAfterDrawNodeExtra(AGraphics, extr, I, ANode);\r\n            end;\r\n          end;\r\n\r\n          if (I - sts >= 0) and (I - sts <= Length(ANode.TitleExtraRects) - 1) then\r\n          begin\r\n            extr := ANode.TitleExtraRects[I - sts];\r\n            OffsetRectEx(extr, AOffsetX, AOffsetY);\r\n            b := True;\r\n            DoBeforeDrawNodeTitleExtra(AGraphics, extr, I, ANode, b);\r\n            if b then\r\n            begin\r\n              DoDrawNodeTitleExtra(AGraphics, extr, I, ANode);\r\n              DoAfterDrawNodeTitleExtra(AGraphics, extr, I, ANode);\r\n            end;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    DoAfterDrawNode(AGraphics, ARect, ANode);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeView.DrawNodeColumns(AGraphics: TTMSFNCGraphics);\r\nvar\r\n  b, df: Boolean;\r\n  I: Integer;\r\n  r: TRectF;\r\n  x, w: Double;\r\n  cr: TRectF;\r\n  crcl: TRectF;\r\n  hs: Double;\r\n  c: TTMSFNCTreeViewColumn;\r\nbegin\r\n  inherited;\r\n  cr := GetContentRect;\r\n  crcl := GetContentClipRect;\r\n  hs := GetHorizontalScrollPosition;\r\n  for I := 1 to ColumnCount - 1 do\r\n  begin\r\n    if (I >= 0) and (I < Columns.Count - 1) then\r\n    begin\r\n      x := Int(ColumnPositions[I]) - Int(hs);\r\n      w := Int(ColumnWidths[I]);\r\n\r\n      if (ColumnStroke.Color <> gcNull) and (ColumnStroke.Kind <> gskNone) then\r\n      begin\r\n        AGraphics.Stroke.Assign(ColumnStroke);\r\n        b := True;\r\n        df := True;\r\n        r := RectF(x, cr.Top, x + w, cr.Bottom);\r\n\r\n        DoBeforeDrawColumn(AGraphics, r, I, b, df);\r\n\r\n        if b then\r\n        begin\r\n          if df then\r\n            AGraphics.DrawRectangle(r, gcrmShiftRightAndShrinkHeight);\r\n\r\n          DoAfterDrawColumn(AGraphics, r, I);\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  if NodeStructure.Count > 0 then\r\n  begin\r\n    for I := 0 to ColumnCount - 1 do\r\n    begin\r\n      if (I >= 0) and (I <= Columns.Count - 1) then\r\n      begin\r\n        c := Columns[I];\r\n        x := Int(ColumnPositions[I]) - Int(hs);\r\n        w := Int(ColumnWidths[I]);\r\n\r\n        b := True;\r\n        df := True;\r\n\r\n        AGraphics.Fill.Kind := gfkNone;\r\n        AGraphics.Stroke.Assign(NodesAppearance.ColumnStroke);\r\n        if not c.UseDefaultAppearance then\r\n        begin\r\n          AGraphics.Stroke.Assign(c.Stroke);\r\n          AGraphics.Fill.Assign(c.Fill);\r\n        end;\r\n\r\n        r := RectF(x, crcl.Top, x + w, crcl.Bottom);\r\n\r\n        DoBeforeDrawNodeColumn(AGraphics, r, I, b, df);\r\n\r\n        if b then\r\n        begin\r\n          if df then\r\n            AGraphics.DrawRectangle(r, [gsTop, gsRight, gsBottom], gcrmShiftRightAndShrinkHeight);\r\n\r\n          DoAfterDrawNodeColumn(AGraphics, r, I);\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeView.DrawSortIndicator(AGraphics: TTMSFNCGraphics; ARect: TRectF; AColor: TTMSFNCGraphicsColor; AColumn: Integer; ASortIndex: Integer; ASortKind: TTMSFNCTreeViewNodesSortKind);\r\nvar\r\n  pth: TTMSFNCGraphicsPath;\r\n  vertt: TTMSFNCGraphicsTextAlign;\r\n  c: TTMSFNCGraphicsColor;\r\n  txtr: TRectF;\r\n  b: Boolean;\r\nbegin\r\n  inherited;\r\n  c := AColor;\r\n  AGraphics.Fill.Kind := gfkSolid;\r\n  AGraphics.Fill.Color := c;\r\n  AGraphics.Stroke.Kind := gskSolid;\r\n  AGraphics.Stroke.Color := c;\r\n\r\n  b := True;\r\n  DoBeforeDrawSortIndicator(AGraphics, ARect, AColumn, ASortIndex, ASortKind, b);\r\n  if b then\r\n  begin\r\n    vertt := gtaCenter;\r\n    txtr := ARect;\r\n    pth := TTMSFNCGraphicsPath.Create;\r\n    try\r\n      case ASortKind of\r\n        nskAscending:\r\n        begin\r\n          vertt := gtaTrailing;\r\n          pth.MoveTo(PointF(ARect.Left + (ARect.Right - ARect.Left) / 2, ARect.Top));\r\n          pth.LineTo(PointF(ARect.Right, ARect.Bottom));\r\n          pth.LineTo(PointF(ARect.Left, ARect.Bottom));\r\n          txtr := RectF(ARect.Left, ARect.Top + ScalePaintValue(2), ARect.Right, ARect.Bottom + ScalePaintValue(2));\r\n        end;\r\n        nskDescending:\r\n        begin\r\n          vertt := gtaLeading;\r\n          pth.MoveTo(PointF(ARect.Left, ARect.Top));\r\n          pth.LineTo(PointF(ARect.Right, ARect.Top));\r\n          pth.LineTo(PointF(ARect.Left + (ARect.Right - ARect.Left) / 2, ARect.Bottom));\r\n          txtr := RectF(ARect.Left, ARect.Top - ScalePaintValue(2), ARect.Right, ARect.Bottom - ScalePaintValue(2));\r\n        end;\r\n      end;\r\n      pth.ClosePath;\r\n      AGraphics.DrawPath(pth);\r\n\r\n      if ASortIndex <> -1 then\r\n      begin\r\n        AGraphics.Font.Color := gcWhite;\r\n        TTMSFNCUtils.SetFontSize(AGraphics.Font, 9);\r\n        AGraphics.DrawText(txtr, IntToStr(ASortIndex), False, gtaCenter, vertt);\r\n      end;\r\n    finally\r\n      pth.Free;\r\n    end;\r\n    DoAfterDrawSortIndicator(AGraphics, ARect, AColumn, ASortIndex, ASortKind);\r\n  end;\r\nend;\r\n\r\n{$IFDEF FNCLIB}\r\n{ TTMSFNCTreeView picker implementation }\r\n\r\nprocedure TTMSFNCTreeView.PickerApplyFilter(ACondition: string; ACaseSensitive: Boolean);\r\nvar\r\n  f: TTMSFNCTreeViewFilterData;\r\nbegin\r\n  f := Filter.Add;\r\n  f.Condition := ACondition;\r\n  f.CaseSensitive := ACaseSensitive;\r\n  ApplyFilter;\r\nend;\r\n\r\nfunction TTMSFNCTreeView.PickerGetContent: String;\r\nvar\r\n  n: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := '';\r\n  if SelectedVirtualNodeCount > 0 then\r\n  begin\r\n    n := SelectedVirtualNodes[0];\r\n    Result := n.Text[0];\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeView.PickerGetFirstSelectableItem: Integer;\r\nbegin\r\n  Result := GetFirstVisibleVirtualNodeRow;\r\nend;\r\n\r\nfunction TTMSFNCTreeView.PickerGetItemCount: Integer;\r\nbegin\r\n  Result := GetTotalVirtualNodeCount;\r\nend;\r\n\r\nfunction TTMSFNCTreeView.PickerGetItemHeight: Single;\r\nbegin\r\n  Result := NodesAppearance.FixedHeight;\r\nend;\r\n\r\nfunction TTMSFNCTreeView.PickerGetItemWidth: Single;\r\nbegin\r\n  if Columns.Count > 0 then\r\n    Result := Width / Columns.Count\r\n  else\r\n    Result := 0;\r\nend;\r\n\r\nfunction TTMSFNCTreeView.PickerGetLastSelectableItem: Integer;\r\nbegin\r\n  Result := GetLastVisibleVirtualNodeRow;\r\nend;\r\n\r\nfunction TTMSFNCTreeView.PickerGetNextSelectableItem(AItemIndex: Integer): Integer;\r\nvar\r\n  n, nf: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := -1;\r\n  n := GetNodeFromNodeStructure(AItemIndex);\r\n  if Assigned(n) then\r\n  begin\r\n    nf := GetNextFocusableNode(n);\r\n    if Assigned(nf) then\r\n      Result := nf.Row;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeView.PickerGetPreviousSelectableItem(AItemIndex: Integer): Integer;\r\nvar\r\n  n, nf: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := -1;\r\n  n := GetNodeFromNodeStructure(AItemIndex);\r\n  if Assigned(n) then\r\n  begin\r\n    nf := GetPreviousFocusableNode(n);\r\n    if Assigned(nf) then\r\n      Result := nf.Row;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeView.PickerGetSelectedItem: Integer;\r\nbegin\r\n  Result := SelectedVirtualNodeRow;\r\nend;\r\n\r\nfunction TTMSFNCTreeView.PickerGetVisibleItemCount: Integer;\r\nbegin\r\n  Result := GetVisibleNodeCount;\r\nend;\r\n\r\n{$IFDEF UIPACK}\r\nfunction TTMSFNCTreeView.PickerLookupItem(ALookupString: String; ACaseSensitive: Boolean): TTMSFNCControlPickerFilterItem;\r\nvar\r\n  vn: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result.ItemIndex := -1;\r\n  Result.ItemText := '';\r\n  vn := LookupNode(ALookupString + '*', False, -1, ACaseSensitive, True, True);\r\n  if Assigned(vn) then\r\n  begin\r\n    Result.ItemIndex := vn.Row;\r\n    Result.ItemText := vn.Text[0];\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCTreeView.PickerResetFilter;\r\nbegin\r\n  if Filter.Count > 0 then\r\n    RemoveFilters;\r\nend;\r\n\r\nprocedure TTMSFNCTreeView.PickerSelectItem(AItemIndex: Integer);\r\nvar\r\n  n: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  n := GetNodeFromNodeStructure(AItemIndex);\r\n  if Assigned(n) then\r\n  begin\r\n    SelectVirtualNode(n);\r\n    ScrollToVirtualNode(n, True);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeView.PickerSetItemHeight(AValue: Single);\r\nbegin\r\n  NodesAppearance.FixedHeight := AValue;\r\nend;\r\n\r\nprocedure TTMSFNCTreeView.PickerSetItemWidth(AValue: Single);\r\nbegin\r\n  //\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCTreeView.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClasses([TTMSFNCTreeView, TTMSFNCTreeViewColumn, TTMSFNCTreeViewNode, TTMSFNCTreeViewNodeValue]);\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2016                                      }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCBitmapSelector;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, WEBLib.TMSFNCCustomSelector, WEBLib.TMSFNCTypes,\r\n  WEBLib.TMSFNCBitmapContainer, WEBLib.TMSFNCGraphics;\r\n\r\nconst\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 0; // Minor version nr.\r\n  REL_VER = 0; // Release nr.\r\n  BLD_VER = 0; // Build nr.\r\n\r\ntype\r\n  TTMSFNCCustomBitmapSelector = class;\r\n\r\n  TTMSFNCBitmapSelectorBitmapAlign = (baLeft, baCenter, baRight);\r\n\r\n  TTMSFNCBitmapSelectorItem = class(TTMSFNCCustomSelectorItem)\r\n  private\r\n    FOwner: TTMSFNCCustomBitmapSelector;\r\n    FBitmap: TTMSFNCBitmap;\r\n    FBitmapAlign: TTMSFNCBitmapSelectorBitmapAlign;\r\n    FBitmapName: String;\r\n    FBitmapSize: Single;\r\n    procedure SetBitmap(const Value: TTMSFNCBitmap);\r\n    procedure SetBitmapAlign(const Value: TTMSFNCBitmapSelectorBitmapAlign);\r\n    procedure SetBitmapName(const Value: String);\r\n    procedure SetBitmapSize(const Value: Single);\r\n    function GetBitmapContainer: TTMSFNCBitmapContainer;\r\n    function IsBitmapSizeStored: Boolean;\r\n  protected\r\n    function GetDisplayBitmap: TTMSFNCBitmap;\r\n    procedure BitmapChanged(Sender: TObject);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    property BitmapContainer: TTMSFNCBitmapContainer read GetBitmapContainer;\r\n  published\r\n    property Bitmap: TTMSFNCBitmap read FBitmap write SetBitmap;\r\n    property BitmapName: String read FBitmapName write SetBitmapName;\r\n    property BitmapAlign: TTMSFNCBitmapSelectorBitmapAlign read FBitmapAlign write SetBitmapAlign default TTMSFNCBitmapSelectorBitmapAlign.baCenter;\r\n    property BitmapSize: Single read FBitmapSize write SetBitmapSize stored IsBitmapSizeStored nodefault;\r\n  end;\r\n\r\n  TTMSFNCBitmapSelectorItems = class(TTMSFNCCustomSelectorItems)\r\n  private\r\n    FOwner: TTMSFNCCustomBitmapSelector;\r\n    function GetItem(Index: integer): TTMSFNCBitmapSelectorItem;\r\n    procedure SetItem(Index: integer; const Value: TTMSFNCBitmapSelectorItem);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; override;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCCustomSelector); override;\r\n    property Items[Index: integer]: TTMSFNCBitmapSelectorItem read GetItem write SetItem; default;\r\n    function Add: TTMSFNCBitmapSelectorItem;\r\n    function Insert(Index: integer): TTMSFNCBitmapSelectorItem;\r\n  end;\r\n\r\n  TTMSFNCCustomSelectorBitmapSelected = procedure(Sender: TObject; ABitmap: TTMSFNCBitmap) of object;\r\n  TTMSFNCCustomSelectorBitmapDeselected = procedure(Sender: TObject; ABitmap: TTMSFNCBitmap) of object;\r\n\r\n  {$IFDEF FNCLIB}\r\n  TTMSFNCCustomBitmapSelector = class(TTMSFNCDefaultSelector, ITMSFNCBitmapContainer)\r\n  {$ENDIF}\r\n  {$IFNDEF FNCLIB}\r\n  TTMSFNCCustomBitmapSelector = class(TTMSFNCDefaultSelector)\r\n  {$ENDIF}\r\n  private\r\n    FOnBitmapSelected: TTMSFNCCustomSelectorBitmapSelected;\r\n    FOnBitmapDeselected: TTMSFNCCustomSelectorBitmapDeselected;\r\n    FBitmapContainer: TTMSFNCBitmapContainer;\r\n    function GetSelectedBitmap: TTMSFNCBitmap;\r\n    procedure SetBitmapContainer(const Value: TTMSFNCBitmapContainer);\r\n    function GetItems: TTMSFNCBitmapSelectorItems;\r\n    procedure SetItems(const Value: TTMSFNCBitmapSelectorItems);\r\n    function GetBitmapContainer: TTMSFNCBitmapContainer;\r\n  protected\r\n    function GetVersion: String; override;\r\n    procedure Notification(AComponent: TComponent; Operation: TOperation); override;\r\n    procedure DoItemSelected(AItemIndex: Integer); override;\r\n    procedure DoItemDeselected(AItemIndex: Integer); override;\r\n    function CreateItemsCollection: TTMSFNCCustomSelectorItems; override;\r\n    procedure DrawItemContent(AGraphics: TTMSFNCGraphics; ADisplayItem: TTMSFNCCustomSelectorDisplayItem); override;\r\n    procedure DrawItemText(AGraphics: TTMSFNCGraphics; ADisplayItem: TTMSFNCCustomSelectorDisplayItem); override;\r\n    property OnBitmapSelected: TTMSFNCCustomSelectorBitmapSelected read FOnBitmapSelected write FOnBitmapSelected;\r\n    property OnBitmapDeselected: TTMSFNCCustomSelectorBitmapDeselected read FOnBitmapDeselected write FOnBitmapDeselected;\r\n    property SelectedBitmap: TTMSFNCBitmap read GetSelectedBitmap;\r\n    property BitmapContainer: TTMSFNCBitmapContainer read GetBitmapContainer write SetBitmapContainer;\r\n    property Items: TTMSFNCBitmapSelectorItems read GetItems write SetItems;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    procedure LoadFromBitmapContainer; virtual;\r\n    function FindItemByBitmap(ABitmap: TTMSFNCBitmap): Integer;\r\n    function FindBitmapByItem(AItem: Integer): TTMSFNCBitmap;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCBitmapSelector = class(TTMSFNCCustomBitmapSelector)\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n  public\r\n    property SelectedBitmap;\r\n  published\r\n    property Appearance;\r\n    property Rows;\r\n    property Columns;\r\n    property Items;\r\n    property OnBitmapSelected;\r\n    property OnBitmapDeselected;\r\n    property BitmapContainer;\r\n    property OnItemSelected;\r\n    property SelectedItemIndex;\r\n    property OnItemBeforeDrawBackground;\r\n    property OnItemAfterDrawBackground;\r\n    property OnItemBeforeDrawContent;\r\n    property OnItemAfterDrawContent;\r\n    property OnBeforeDraw;\r\n    property OnAfterDraw;\r\n    property OnItemBeforeDrawText;\r\n    property OnItemAfterDrawText;\r\n  end;\r\n\r\nprocedure GetAspectSize(var w, h: Single; ow, oh, nw, nh, crw, crh: Single; asp, st, cr: Boolean);\r\n\r\nimplementation\r\n\r\nuses\r\n  WEBLib.TMSFNCUtils\r\n  {$IFNDEF LCLLIB}\r\n  ,Types\r\n  {$ENDIF}\r\n  ;\r\n\r\nprocedure GetAspectSize(var w, h: Single; ow, oh, nw, nh, crw, crh: Single; asp, st, cr: Boolean);\r\nvar\r\n  arc, ar: Single;\r\nbegin\r\n  if asp then\r\n  begin\r\n    if (ow > 0) and (oh > 0) and (nw > 0) and (nh > 0) then\r\n    begin\r\n      if (ow < nw) and (oh < nh) and (not st) then\r\n      begin\r\n        w := ow;\r\n        h := oh;\r\n      end\r\n      else\r\n      begin\r\n        if ow / oh < nw / nh then\r\n        begin\r\n          h := nh;\r\n          w := nh * ow / oh;\r\n        end\r\n        else\r\n        begin\r\n          w := nw;\r\n          h := nw * oh / ow;\r\n        end;\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      w := 0;\r\n      h := 0;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    if st then\r\n    begin\r\n      w := nw;\r\n      h := nh;\r\n    end\r\n    else\r\n    begin\r\n      w := ow;\r\n      h := oh;\r\n\r\n      if cr then\r\n      begin\r\n        if (w >= h) and (w > 0) then\r\n        begin\r\n          h := crw / w * h;\r\n          w := crw;\r\n        end\r\n        else\r\n        if (h >= w) and (h > 0) then\r\n        begin\r\n          w := crh / h * w;\r\n          h := crh;\r\n        end;\r\n\r\n        if h = 0 then\r\n          ar := 1\r\n        else\r\n          ar := w / h;\r\n\r\n        if crh = 0 then\r\n          arc := 1\r\n        else\r\n          arc := crw / crh;\r\n\r\n        if (ar < 1) or (arc > ar) then\r\n        begin\r\n          h := crw / ar;\r\n          w := crw;\r\n        end\r\n        else\r\n        begin\r\n          w := ar * crh;\r\n          h := crh;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCCustomBitmapSelector }\r\n\r\nconstructor TTMSFNCCustomBitmapSelector.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  Width := 135;\r\n  Height := 135;\r\nend;\r\n\r\nfunction TTMSFNCCustomBitmapSelector.CreateItemsCollection: TTMSFNCCustomSelectorItems;\r\nbegin\r\n  Result := TTMSFNCBitmapSelectorItems.Create(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomBitmapSelector.DoItemDeselected(AItemIndex: Integer);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnBitmapDeselected) then\r\n    OnBitmapDeselected(Self, FindBitmapByItem(AItemIndex));\r\nend;\r\n\r\nprocedure TTMSFNCCustomBitmapSelector.DoItemSelected(AItemIndex: Integer);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnBitmapSelected) then\r\n    OnBitmapSelected(Self, FindBitmapByItem(AItemIndex));\r\nend;\r\n\r\nprocedure TTMSFNCCustomBitmapSelector.DrawItemContent(AGraphics: TTMSFNCGraphics;\r\n  ADisplayItem: TTMSFNCCustomSelectorDisplayItem);\r\nvar\r\n  r: TRectF;\r\n  it: TTMSFNCCustomSelectorItem;\r\n  itbmp: TTMSFNCBitmapSelectorItem;\r\n  a: Boolean;\r\n  sz: Single;\r\n  bmp: TTMSFNCBitmap;\r\n  bmpr: TRectF;\r\n  w, h: Single;\r\n  bmpdr: TRectF;\r\nbegin\r\n  it := ADisplayItem.Item;\r\n  if Assigned(it) and (it is TTMSFNCBitmapSelectorItem) then\r\n  begin\r\n    r := ADisplayItem.Rect;\r\n    a := True;\r\n    DoItemBeforeDrawContent(AGraphics, r, it.Index, a);\r\n    if a then\r\n    begin\r\n      itbmp := (it as TTMSFNCBitmapSelectorItem);\r\n      bmp := itbmp.GetDisplayBitmap;\r\n      if Assigned(bmp) then\r\n      begin\r\n        InflateRectEx(r, -2, -2);\r\n        sz := r.Bottom - r.Top;\r\n        if itbmp.BitmapSize > 0 then\r\n          sz := itbmp.BitmapSize;\r\n\r\n        case itbmp.BitmapAlign of\r\n          baLeft: bmpr := RectF(r.Left, r.Top, r.Left + sz, r.Bottom);\r\n          baCenter: bmpr := RectF(r.Left + ((r.Right - r.Left) - sz) / 2, r.Top, r.Left + ((r.Right - r.Left) - sz) / 2 + sz, r.Bottom);\r\n          baRight: bmpr := RectF(r.Right - sz, r.Top, r.Right, r.Bottom);\r\n        end;\r\n\r\n        w := 0;\r\n        h := 0;\r\n        GetAspectSize(w, h, bmp.Width, bmp.Height, (bmpr.Right - bmpr.Left), (bmpr.Bottom - bmpr.Top), (bmpr.Right - bmpr.Left), (bmpr.Bottom - bmpr.Top), True, False, False);\r\n        bmpdr := RectF(bmpr.Left + ((bmpr.Right - bmpr.Left) - w) / 2, bmpr.Top + ((bmpr.Bottom - bmpr.Top) - h) / 2, bmpr.Left + ((bmpr.Right - bmpr.Left) - w) / 2 + w, bmpr.Top + ((bmpr.Bottom - bmpr.Top) - h) / 2 + h);\r\n        bmpdr := RectF(Round(bmpdr.Left), Round(bmpdr.Top), Round(bmpdr.Right), Round(bmpdr.Bottom));\r\n//      if it.Enabled then\r\n          AGraphics.DrawBitmap(bmpdr, bmp);\r\n//        else\r\n//          AGraphics.DrawBitmap(bmp, RectF(0, 0, bmp.Width, bmp.Height), bmpdr, 0.25);\r\n      end;\r\n\r\n      DoItemAfterDrawContent(AGraphics, r, it.Index);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomBitmapSelector.DrawItemText(AGraphics: TTMSFNCGraphics;\r\n  ADisplayItem: TTMSFNCCustomSelectorDisplayItem);\r\nvar\r\n  it: TTMSFNCBitmapSelectorItem;\r\n  bmp: TTMSFNCBitmap;\r\n  dps: TTMSFNCCustomSelectorDisplayItem;\r\n  sz: Single;\r\nbegin\r\n  if Assigned(ADisplayItem.Item) and (ADisplayItem.Item is TTMSFNCBitmapSelectorItem) then\r\n  begin\r\n    it := ADisplayItem.Item as TTMSFNCBitmapSelectorItem;\r\n    bmp := it.GetDisplayBitmap;\r\n    if Assigned(bmp) then\r\n    begin\r\n      dps := ADisplayItem;\r\n      sz := dps.Rect.Bottom - dps.Rect.Top;\r\n      if it.BitmapSize > 0 then\r\n        sz := it.BitmapSize;\r\n\r\n      case it.BitmapAlign of\r\n        baLeft: dps.Rect.Left := dps.Rect.Left + sz + 4;\r\n        baRight: dps.Rect.Right := dps.Rect.Right - sz - 4;\r\n      end;\r\n      inherited DrawItemText(AGraphics, dps);\r\n    end\r\n    else\r\n      inherited;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nfunction TTMSFNCCustomBitmapSelector.FindBitmapByItem(\r\n  AItem: Integer): TTMSFNCBitmap;\r\nvar\r\n  I: Integer;\r\n  it: TTMSFNCBitmapSelectorItem;\r\nbegin\r\n  Result := nil;\r\n  for I := 0 to Items.Count - 1 do\r\n  begin\r\n    it := Items[I] as TTMSFNCBitmapSelectorItem;\r\n    if it.Index = AItem then\r\n    begin\r\n      Result := it.GetDisplayBitmap;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomBitmapSelector.FindItemByBitmap(\r\n  ABitmap: TTMSFNCBitmap): Integer;\r\nvar\r\n  I: Integer;\r\n  it: TTMSFNCBitmapSelectorItem;\r\nbegin\r\n  Result := -1;\r\n  for I := 0 to Items.Count - 1 do\r\n  begin\r\n    it := Items[I] as TTMSFNCBitmapSelectorItem;\r\n    if it.GetDisplayBitmap = ABitmap then\r\n    begin\r\n      Result := it.Index;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomBitmapSelector.Notification(AComponent: TComponent;\r\n  Operation: TOperation);\r\nbegin\r\n  inherited;\r\n  if (Operation = opRemove) and (AComponent = FBitmapContainer) then\r\n    FBitmapContainer := nil;\r\nend;\r\n\r\n\r\nprocedure TTMSFNCCustomBitmapSelector.SetBitmapContainer(\r\n  const Value: TTMSFNCBitmapContainer);\r\nbegin\r\n  FBitmapContainer := Value;\r\n  InvalidateItems;\r\nend;\r\n\r\nfunction TTMSFNCCustomBitmapSelector.GetBitmapContainer: TTMSFNCBitmapContainer;\r\nbegin\r\n  Result := FBitmapContainer;\r\nend;\r\n\r\nfunction TTMSFNCCustomBitmapSelector.GetItems: TTMSFNCBitmapSelectorItems;\r\nbegin\r\n  Result := TTMSFNCBitmapSelectorItems(inherited Items);\r\nend;\r\n\r\nprocedure TTMSFNCCustomBitmapSelector.SetItems(\r\n  const Value: TTMSFNCBitmapSelectorItems);\r\nbegin\r\n  Items.Assign(Value);\r\nend;\r\n\r\nfunction TTMSFNCCustomBitmapSelector.GetSelectedBitmap: TTMSFNCBitmap;\r\nbegin\r\n  Result := FindBitmapByItem(SelectedItemIndex);\r\nend;\r\n\r\nfunction TTMSFNCCustomBitmapSelector.GetVersion: String;\r\nbegin\r\n  Result := GetVersionNumber(MAJ_VER, MIN_VER, REL_VER, BLD_VER);\r\nend;\r\n\r\nprocedure TTMSFNCCustomBitmapSelector.LoadFromBitmapContainer;\r\nvar\r\n  I: Integer;\r\n  it: TTMSFNCBitmapSelectorItem;\r\nbegin\r\n  if not Assigned(BitmapContainer) then\r\n    Exit;\r\n\r\n  BeginUpdate;\r\n  Items.Clear;\r\n  for I := 0 to BitmapContainer.Items.Count - 1 do\r\n  begin\r\n    it := Items.Add;\r\n    it.BitmapName := BitmapContainer.Items[I].Name;\r\n  end;\r\n  EndUpdate;\r\nend;\r\n\r\n{ TTMSFNCBitmapSelectorItems }\r\n\r\nfunction TTMSFNCBitmapSelectorItems.Add: TTMSFNCBitmapSelectorItem;\r\nbegin\r\n  Result := TTMSFNCBitmapSelectorItem(inherited Add);\r\nend;\r\n\r\nconstructor TTMSFNCBitmapSelectorItems.Create(AOwner: TTMSFNCCustomSelector);\r\nbegin\r\n  inherited;\r\n  FOwner := AOwner as TTMSFNCCustomBitmapSelector;\r\nend;\r\n\r\nfunction TTMSFNCBitmapSelectorItems.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCBitmapSelectorItem;\r\nend;\r\n\r\nfunction TTMSFNCBitmapSelectorItems.GetItem(\r\n  Index: integer): TTMSFNCBitmapSelectorItem;\r\nbegin\r\n  Result := TTMSFNCBitmapSelectorItem(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCBitmapSelectorItems.Insert(\r\n  Index: integer): TTMSFNCBitmapSelectorItem;\r\nbegin\r\n  Result := TTMSFNCBitmapSelectorItem(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCBitmapSelectorItems.SetItem(Index: integer;\r\n  const Value: TTMSFNCBitmapSelectorItem);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCBitmapSelectorItem }\r\n\r\nprocedure TTMSFNCBitmapSelectorItem.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if Source is TTMSFNCBitmapSelectorItem then\r\n  begin\r\n    FBitmap.Assign((Source as TTMSFNCBitmapSelectorItem).Bitmap);\r\n    FBitmapName := (Source as TTMSFNCBitmapSelectorItem).BitmapName;\r\n    FBitmapSize := (Source as TTMSFNCBitmapSelectorItem).BitmapSize;\r\n    FBitmapAlign := (Source as TTMSFNCBitmapSelectorItem).BitmapAlign;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCBitmapSelectorItem.BitmapChanged(Sender: TObject);\r\nbegin\r\n  FOwner.InvalidateItems;\r\nend;\r\n\r\nconstructor TTMSFNCBitmapSelectorItem.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(Collection) then\r\n    FOwner := (Collection as TTMSFNCBitmapSelectorItems).FOwner;\r\n  FBitmapAlign := baCenter;\r\n  FBitmapSize := 0;\r\n  FBitmap := TTMSFNCBitmap.Create;\r\n  FBitmap.OnChange := @BitmapChanged;\r\nend;\r\n\r\ndestructor TTMSFNCBitmapSelectorItem.Destroy;\r\nbegin\r\n  FBitmap.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCBitmapSelectorItem.GetBitmapContainer: TTMSFNCBitmapContainer;\r\nbegin\r\n  Result := FOwner.BitmapContainer;\r\nend;\r\n\r\nfunction TTMSFNCBitmapSelectorItem.GetDisplayBitmap: TTMSFNCBitmap;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(Bitmap) and not IsBitmapEmpty(Bitmap) then\r\n    Result := Bitmap\r\n  else if Assigned(FOwner) and Assigned(FOwner.BitmapContainer) and (BitmapName <> '') then\r\n    Result := TTMSFNCBitmap(FOwner.BitmapContainer.FindBitmap(BitmapName));\r\nend;\r\n\r\nfunction TTMSFNCBitmapSelectorItem.IsBitmapSizeStored: Boolean;\r\nbegin\r\n  Result := BitmapSize <> 0;\r\nend;\r\n\r\nprocedure TTMSFNCBitmapSelectorItem.SetBitmap(const Value: TTMSFNCBitmap);\r\nbegin\r\n  if FBitmap <> Value then\r\n  begin\r\n    FBitmap.Assign(Value);\r\n    FOwner.InvalidateItems;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCBitmapSelectorItem.SetBitmapAlign(\r\n  const Value: TTMSFNCBitmapSelectorBitmapAlign);\r\nbegin\r\n  if FBitmapAlign <> Value then\r\n  begin\r\n    FBitmapAlign := Value;\r\n    FOwner.InvalidateItems;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCBitmapSelectorItem.SetBitmapName(const Value: String);\r\nbegin\r\n  if FBitmapName <> Value then\r\n  begin\r\n    FBitmapName := Value;\r\n    FOwner.InvalidateItems;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCBitmapSelectorItem.SetBitmapSize(const Value: Single);\r\nbegin\r\n  if FBitmapSize <> Value then\r\n  begin\r\n    FBitmapSize := Value;\r\n    FOwner.InvalidateItems;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCBitmapSelector }\r\n\r\nprocedure TTMSFNCBitmapSelector.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClasses([TTMSFNCBitmapSelector, TTMSFNCBitmapSelectorItem]);\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018                                      }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCColorWheelResources;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\ninterface\r\n\r\nfunction GetColorWheelResource: string;\r\nfunction GetColorWheelResource125: string;\r\nfunction GetColorWheelResource150: string;\r\nfunction GetColorWheelResource175: string;\r\nfunction GetColorWheelResource200: string;\r\n\r\nimplementation\r\n\r\nfunction GetColorWheelResource: string;\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  Result := 'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAJYAAACWCAYAAAA8AXHiAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAAZdEVYdFNvZnR3YXJlAHBhaW50Lm5ldCA0LjAuMjHxIGmVAACqeElEQVR4Xuz9BbhVZdjufQM2onR3SSPdId0h3d0p3VLSISkp3S3S3SIhKSmpgISUNDLn9'+\r\n  'xvP5j3e3N+u59nv3vt9psdfFnOOcd/3uK9znec1FmvNFeH/i49aEUJxa0YIpawdIZS6foTQ+EYRQ+OboVXE0LG2EcPhjpHC4c7ohl7oi/4YhCEYgdH4FhMw2TlTnTvTGLMw15iLjR+wNEIo9ttp//3xv9qjVIRw8TIRQiUqRAxt+zJi6HC1SKG/ahFEvXfC4YZo+m443AKt0f69cPgrdEUP9H4/HP4aA/ENhmEUxnptPCZhCqY793vMwXxjLsJS'+\r\n  'c6yIFLq72pxrI4ZWrreGTRFCRd4u698f/zM+CkYItSwcMTy8eMTww1IKXE6hKyl6FdQghDqoTyCNPwiHm6EV2n7IrdAZ3T7iVuiL/hiMoRiB0RiHifjOsdMwE7ONMQ8LscTYy82xCj+Ycx02WsPmSKHQNmvaGSHUa3eEULO3y/33x/+oj88jhBJmixCqkytiaGk+QiqkiEUVs4TClkEFha6s4NUIoBbqEkVDNI3MrdD6Y26Fr6JwK/RAb3yNgZ9'+\r\n  'wKwzDKIz13HhMwhTMwCznzsECYy3GMmOvxBpz/YgN5t5sDVutZQd2W9s+a/zJWn+OGPr+sLWfjhCO9/Zy/v3x/+YjVYRQorQRQlUyRAzt+TxS6J8cCpVHwQooXGFFLKaYpRS1nAJXUuwqqKH4tQmhPhoTSTO0+pRboWNUboVu6BWNW6E/BmMoRmA0xmEivsM0x87EbMwzxkIsMeYKrDLHD1hnzo3m3oLt1rLLmvZa2wFr/Nlaj1jzMWs/ESn07J'+\r\n  'RrORMhVPKCa3t7mf/++O/1SBYhVBijU0cKPUmnIJkUJqsC5VSovApWUOGKKGAJhSyjqOUVt7JCV1P0mqhLBA2JoglaROdWaB+DW6EresTkVvgaA/ENhmMUxmI8JmEqZmCWc+ZiARYbaxlWGnsNfjTXBnNuxjZr2Gkte6xpv7UdtMZD1nrUmo9b+ynXcMa1nHdNF13blQjhAVcjhPK/vex/f/zbPMLvxrbJCSKGtifRp6S0+WkUIoOCfK4w2RUot'+\r\n  '0LlV7TCilcUJRWzLCoqbhVFrq7gtRW/PhoRRLNY4XBLtI0dDndAZ3SLw63QFwPicisMxQiMwThMxHden4aZmIP5zl2EpVhhzNVYa4715tqIrebeYQ27rGWvNR3Az9Z4BMes+aS1/+oazrmWC67pkmu76hqvu9abrvlmhHD2cIRwpLeb8e+Pf41H1AjhL2JGDB2Ipx9J5DM6mU1PpQBpFSKjgmTx2Z9DcfJwhAIK9oXiFVfE0opZXlEro6pC10Rd'+\r\n  'hW9ACE3QgkBao308boWu8bkVeuPrBNwKQzAcozAW4zEZUzEDsxw7Fwuw2BjLsNKYa7DOHBuw2ZzbzL2T0PZYy34ctLbD1viLtZ6w5lPWfsY1nHctv7mmK67tumv8w7Xecs13XPtfEUM77kUI5Xq7Lf/++K99fBAhVOzjiKGz0Xzmxra58W1yYpud3MZ/pgDpFSKzz/hsCpNLgfIpVCEFK6pwJRWxrGJWUNQvFbe6QtdW9HpoRATNiKIl2ibkVui'+\r\n  'ciFuhV2Juhf4YjKEYkYRbYRwm4jvPTcf3mIP5zluEpVhhrNVYa+z12GSurebcgd3WsM9afrKmQ9Z21BqPWetJa/7V2s+5houu5bJruurafneNNwnstmu+59of2INH74TePIkYOvgsQrjA223698d/3iP8boQIoXzvRQzv+kgMfGIzY9jUODY3AUEltdkpbXoan+EZFOFzxcihMLkVqIBCFVawYgpXSgHLKWQlBa2quDUVuY6CN1D8JmhOEK2JpB'+\r\n  '2+Ssqt0CMZt8LXGJicW2E4RmEsJmAypmIGZmGuYxdiCZYbYxV+MOY6bDTHFnNtxy5z77WG/dZy0JoOW9sv1njCWk9b81lrv+AaLrmWK67pumu74Rr/dK13XPNfBPbQHvxtL57Zkxf25rU9CnGwf4/I/9Tjo1DCiO+GFkXiUO/bvMg2MarNjElQ8WxuIp/JyWx2Khufzmd4JkXIqiA5FSavAhVUqCKKVkLxyihiBcX8UlGro5Yi11PsRgrflAhao'+\r\n  'i1hdEDnFNwqJbdCXwxIxa0wFCMxBuNScytM8fF0fI85mI9FzlmKFcZZjbXGXI/N5tiKHebcbe591vCTtRzCUes7bp2n8CuRnbP2i67hsmu55pr+cG23XONt13rPNT9w7Y/twVMCe25PXtmbN/YpHCkUDkV8OZHAEr7dxX9//J8eUUKVIn0UfviOjXvPxn2AKD6OZjNj2dT4NjexTU5usz/zmZ3e5mdWiGwKklth8hNUYUUqRkylFK6sIlZUzCqK'+\r\n  'WkNx6yh0AzRW+OZE0Jog2uErYumCHp9xK3ydhlthCIan5Vb4FhMwGVMxE7MxzzELsQTLnbsKPxhrHTYaewu2m2uXOfea+4B1/Iwj1nTM2k5Y42lrPWvNF6z9kmu46lp+d003XNufrvGua73vmh+59if24Jm9eGlP/rE3IXsUfu9NOPzOq3Ao0rP7oQhPSr3dzX9/EFTsiFFDV9+xce+y//dt3oc2L7II+AQx/D2O1xLY3KQ2OaXNTmPTM9r8LAq'+\r\n  'RQ0Hy+OwvoDhfKFRxBSutcOUVsLJiVlPUWopbV5EbKnhTtCSANsTQAZ0IpFs6boW+6bkVBmMoRmbgVhiHSZiC6fgeczDfMYuwDCudvwY/YoMxNxt7G3aaa4859+OgNRyylqPWdNzaTlnjGWs9b82/Wftl13DNtfzhmm65tjuu8S/X+sA1P3btT+3BC3vxyp6E7E04cshmvbZpL2zeU+J6HApFfHgqHOFG5Le7+//RR+xQ/UixQ+feYf/v2bwPbN'+\r\n  '5HIuBjGxjFBkZFTB/H9VwiryezyalsdjqbnsnmZ1WInD7j8ypKQQUqqlAlFayswlVUwCoKWV1BaytufUVurODNFb4VIbTDV8TRJSO3Qm98nYlbYUhmboVR+BYTMBnTMBOzMQ8LsQTLnbMKPxhjPTYadwt2mGOX+fbigLl/toYj1nLMmk5a26/WeM5aL1jzJWu/6hp+dy03XdNt13bPNd53rY9c8xPX/twevLQX/9iTsE/CcJR/bNZLm/bM5j2xi'+\r\n  'Y+4133ReO9sKMKfdd7u8v+HHmlCn0RMGN71ToJQ6F2foe/bwA9tYGQxEMUmfmoToxFbdBsZC/H8PbHnkzvmM8emt+mZbX52n+m5FSO/whRWoGIKVUrByilcJQWsqpA1FbWuAjdEU8VuofBtiKADQXRCt8/D4Z7om8WdIAZn5VYYiTEYl41bYQqmYxbmYoHXFmMZVmKNc3/EBmNtxjZj7zTPHuw350FzH7aGX3DCmk5Z2xlrPG+tv1nzFWu/7hpu'+\r\n  'ENgt13THtf3lGh+61r9d8zPX/sIevLYXIXsSji4Co72yWdwqylOb99gmPrCZ97jXHe5181Uowu9rNfbvvd31/8UfyUM5IyYL/fSODXzPBn5gAz/yWfqxTfzEJkYltOg2MoaNjEVocWxmAh8n8VxKr6dxXEbnZHFuDoLKoxgFFaaIApVQqDIKVkHhvlTA6opZW1HrK24jhW6m4K3QjgA6EkMXAumB3tm5FQbm4FYYjlE5uRUmYDKmYSZmYx4WYSl'+\r\n  'WOHY11mK9MTZhqzF3YLc59pnrJ3P+jKPWcMxaTlrTr9Z2zhovcrLL1nzN2n93DTcJ7LZruufaHrjGx671iWt+7tpf2YM39iIcRwTGEoExuFV0bvXp3zbvoU28bzPv2tQ/be4N7nWde13ZHYpwKefb3f9f9JE2VCJS6tCbd23g+8TwoU2MbBOj4FNCi4oYNjOmzYxNbHFtaHwbmpDYkvk4lefTeT2TTc/qnJzGyGesQgpTVIFKElRZBauocFUUsI'+\r\n  'ZC1lHQBorbRJFbKHZrhW+PToTQjTB65uJW6J+bW2EoRubhVhiHSZiSl1thFuZigecWYxlWYo1zfsQGbDHWduw09l5z7DfXQRw29y/WcMJaTlvTWWu7YI2/WesVArtu7Tdcw5+u5a5r+su1PXKNf7vWZ675pWv/xx6E7EU4PreKy61iP7dZIjA6t4rKrT7lVlFu29SbNvcPm3yNuC5zr4tPQhEu5Hlbhf+FHoXD70bIEJofKV3o5Xs28QOb+KFN/'+\r\n  'Bif2MioPluj2cyYNjMWscWxofGQgNAS2dQkNjW5Pz+zyek9n9lx2Z2T27n5jVHYmMUJqrRClVewygpXTQFrKWQ9BW2ksM0UuaVit1X0jgTQhSC6ozeh9MvHrfANhufnVvgWEwpwK0zDTMzGPCzCUqxwzGqsxXrnbsJW4+3AbmPvM89POGTOo+Y+bg2nrOWMNZ2ztovWeNlar1nzH9Z+yzXcdi33XNMD1/bYnjx1rS9c8yvX/sYehBNzq4TcKoEI'+\r\n  'jMet4nCrWNwq5l828Q5xcatPuFXk6zb5is3+TTSeJ66zf4cinJ4hGiO+rcr/Ao8soRWRbOB7+MAmfmQTP8YnPluj2szoNjMmYhNcXJsa36YmJJzENjapjU1GbClsbhofZ/B8Fq/ncGwe5xR0fhFjlTBuGYWqoGBfKlwNBaytkPUVtLHiNkdrxW6v6J0IoCsx9CSOvuhfkFthaCFuhTGFuRUmYQqmYxbmYgEWYzlW4Qesc85GbDHGduwy5l4cMMf'+\r\n  'P5jpizl/MfdIaTuOsNV2wtkvWeNVaf7fmm9b+p2u461ruu6ZHru2JvXjmWl/ah3/sQdgehJNp2JNwq8TcKiG3iq9hjysCY4vAmNwqOreK+rvNvWqTL9nsizb9HHH9Gg5HOhkORTi28G1V/id+pAp9EDFHeNk7NvE9m/gBPrKRH9vITxHNZsYgtlg2NA7i2dQExJbIxiaxscmIJ7nNTWlzUxNUWn9m8vesXsvluHyOL+S8osYpabxyxq9krqoKV1'+\r\n  'MB6ypmQ0VtqrgtFbmNYndAZ8XvTgi9iaLfF9wK3xThVhhVlFthAiZjWjFuhdmYj0VYihVeW4212IBNzt2KncbaY9x9+Mkch8111JzHccoazljLeWv6zdqucLJr1vqHNd+y9juu4S/X8tA1PXZtT13jC9f62jWHXHs4tQhMya2Sc6ukGvYkIjARt0rAreJxqzi3bKYIjCECo3GrT7nVx+dt+hmbf0oRjovGX/Rdh6ZwrnfeVul/skf68PsR84ZWv'+\r\n  'mMT37eJHyKyYkdBVBsazYbGsKGxEdemxie4hDY2MZLa3OQEl9IGp7LBn9ngtMSW3iZn9mc2z+X2Wn7HfeG84s4vbZzyxq1s/OrmqqWA9RWysYI2U9zWitxOsb9S+K4E0BN9CKI/kQzG0OLh8IgS3ArjMKkkt8IMzMJcLMASLMcq/IB1jt2ILdhujF3G2osDxv7ZHEdwzJwnzf2rNZyzlovWdMnarlrj79Z605pvW/s913DftTyyB09c23PX+Mq1'+\r\n  'vnHN4XQiMC23+kzDnkoEpuRWyblVUm6VmFslFIHxRWBcbhWbW8XgVtEuENdZm37a5p9UhGPEdYS4fiauA9//TxmLEQuFlr9jI9+3kR8iss38xGZGRXQbGhOxiS6ujY1vYxMhic1NSnApbHAqG5yaaNLY5HQ2OQOhZbLRnyOHv+fxWkHHFHF8CeeVMU5F41Uxbg1z1TFnA/M3UdAWCttGgTsodmdF70YAvQihHwYSxzeluBVGleZWmFAmHP4O0zA'+\r\n  'Ts8tyKyzCUqzw3Gr8iA3Y7Jxt2GmMPdhvzIPGPoxfzHXCnKfMfdYazlvLb9Z0xdquW+MNa71lzXes/S/X8NC1/O2anrm2F679tWsNueZwRm6VQQSm41ZpuFVqbpVSw55cw56UWyURgYm4VXxuFfeyzRWBMblVdG4VlVtF4VaRjyrGIeL6ibj2EdfuRW/L9T/BozqnKkZUNvJ9fGgzI9vMKIhqQ6Mjpk2Ng3g2NoGNTURsSZDMBqe0wals8GdIa5'+\r\n  'PTI6ONzkxsWWx2VoLK6c98nivktaKOK+Wccs6vZKyqxqxljnrma2TuZtbQSmHbKXBHhe6i6D0Uvw8hfE0UgzCUWEaU41YYV55bYQpmVOBWmIsFWILlWIUfsM4xG7EVO5y7C/uM9ZMxf8YRcxw310lz/mruc9Zw0VouW9M1a/vdGm9a621rvmftD1zDY9fyxDU9d22vXPMb1xrOyq2yiMBM3Cojt0qvYU8rAj/jVqm4VQpulYxbJdGwJxKBCbhVP'+\r\n  'G4Vh1vF5FbRT9j8XxThsGL8rCgHiGsvce0iru0a+mX/g8diaT1VafFnM9+3mR8isg2Ngqg2NTpi2tg4iGdzE9jcxEhqg5Pb4JTElhppbHQ6G53BRmcits9tdlabnY2r5bDhuZHfx4U9X9wxpR1b3nlfGqO68Wobu745GpuvublbW097Re6k2N0UvhcB9MMAgviGQIZV5FYYW4lbYTKmVeZWmIP5WPQlt8JKH6/Bj9iAzY7dhp3YY4z9OGjMw8b+'+\r\n  'xRwncNqcZ819wRouWcsVa7pubTes8U9rvWvNf1n7Q9fwt2t55ppeurZ/XGPItYZzcKts3Cqrhv1zEZhJBGbgVum4VRoNe2pulVIEJheBSblVYm6VQMMeT8MeRwTG5FbRuVVUbhWFW0Xepzi7iWsHcW0lrk3E1f9/3O+QiFheo24j38eHNjMyPkFUmxrDpsZCXBsbHwmJLjGS2uTkNjkVPrPRaW10ehudkdgyI4sNz2bDsxNbTpue26bnJbYCKOL'+\r\n  'vJbxW1jEVnVPFuTWMU9eYDY3d1Hwtzd3WGjpaUxfF7q7ovRX/a0IYhCHEMYJgxmBcFW6FKVXdCWJWNW6FhViC5ViFtVjv9U3Yih3O2Y19xvgJh4x51NjHccpcZ8x5ztwXreGytVyzpj+s7ZY13rHWe9b8wNofu4anruWFa3rl2t64xnBebpWbW+UUgdlFYDZu9Tm3yqxhzygC02vY03Krz7hVKm6VXMOeVAQmFoEJRWB8bhWXW8XiVjEOKsZ+4t'+\r\n  'qjODsVaRtxbSGujcS1/n/AWAy+TlU5tOIdG/q+zfwQkW1oFES1qTEQy8bGRXybmxBJbHAypLDJqWzyZ0hLcBlsdiabnRlZbXh2Ysth03PZ9DyEls/GF7DxhVDUx6U8X87rlRxbzTm1jFHPWI2M28w8rczZzvxfWUtX6+ppjX0VfwAhDCaKYRhFKGOrcytMrsGtMLMmt8J8LMIyrMQa/IgN2Ixtjt2Fvc49gJ+NdcSYx3DSHKfNddacF8x9yRquW'+\r\n  'svv1nTTtf9pjXet9b41P7L2J67huWt56Tr/cW1hn0zh/Br2fNwqD7fKxa1ycKtsIjCLCMzMrTJxq/TcKi23+kwEphKBKbhVMm6VhFsl1LDH17DHFYGxRGAMbhWVW0XhVpG3KtYm4lpPXGvDoQirZv+PFYvVQvMj2dD38KENjYwoiGpjYyCWzY2L+DY4IZLY5GRIYaNT2+g0SGezMxBCJnxu07Pa9Ow2PSdy2/i8BJff5he0+YWJ7QsFKI7S/l7e'+\r\n  '8186prpjazu3vjGaGLOF8duYp4M5O5u/uzX1xtfWOZAIhhDECOIYjXG1uFVtboUZdbgV5mJhXW6F5ViNtVjv+U3Yih3Y7Zx9+MkYh4x1FMeNfcocZ8x13py/4Yo1XLOWP6zplrXdcc1/WetDa35s7U9dwwvX8to1hVxb+AsRWJhbFeRW+blVXg17bm6Vk1tl51ZZudXnGvZMGvYM3Codt0rDrVJzqxTcKpkITCICE4rA+CIwLreKxa1icKuo3Cr'+\r\n  'KZsXaoGg/Kt4P4XCklcS1dOTbqv6//KgVKhGpVujlezb1A0S2qZ8gqo2NjliIa4PjI6FNTmKDkyEFUhNdGpudDhlteGYbngXZbHoOwsiFPDY/n80vYPMLEdsXClBUAYoRWglFKOPjip6r4vUajqvrnIbOb2q8lsZta46O5upi/p7W0sfa+lvnYEIYhpGEMZZYJtTjVpiGmfW5FeY34FZYhpVYg3XYiC3Y7phd2OucA/jZOEdwzJgnjf0rzpnvIi'+\r\n  '6Z+6rr/91ablrTbWu7Z40PrPWRNT+x9ueu4ZVreeOawiVEYDFuVUTD/oWGvZAILMCt8nGrPNwql4Y9hwjMJgKzcKvM3CoDt0qnYU+jYU8tAlNwq2QiMAm3Ssit4mvY4+5SlO2KIwKjbiSudYq2VvFWh8PvrgiHIi1+FoqwKPfb6v6/9GgUyhmpXujNezb1A3yEKDY2KqLb3JiIi/g2OCGSKGgypLDRqZHGZqdDRkXPbNOzILuNz4ncNj+Pzc9v8'+\r\n  'wsSW2EUUYSiilCc2EoqRGmFKEdslXxc1fO1vF7P8Y2c19wYrY3X3tidzNXNvL2soZ/1DLS+IdY6nChGYxyRTGzIrTC9EbfC3MbcCkuwHKubcCus9/EmbMNO7Hbsfhx07mH8YqwTxjyFM+Y4b67fzHnF3Net4Ya13LKmu9b2lzU+tNa/rfmZtb90Da9dS8g1hUtzq5IisLgILMqtinCrQhr2ghr2/CIwjwjMxa1ycqtsGvYsGvbMIjCDCEwnAtNw'+\r\n  'q1TcKgW3SsatkojAhCIwvgiMIwJjisDo3Coqt4qyRvFWKuIy4lqs31rwJhRhbo63Vf7v/GgS+iRi49BP79rcD2zsR/gYUW1udMREHJscHwltchIks9EpkNpmp0E6ZLTpmW16FmSz8TltfG7kJbgCClAQhRWhqCIUI7YSClFKIcoQWjnFqKAYlf1Z3XO1vdbAcU0c38L5bYzTwbhdzNHDXH3M/bV1DLKmodY30nrHWv94TCaaaU25FWY341ZYhGV'+\r\n  'Y2ZxbYR02YovntmMX9uKAc37GEWMcM9ZJ/Grsc+a4aK7L5rxm7j+s4aa13Had96ztgTU+ttan1vzc2l+5hjeuJVyeW5UTgWVEYCluVYJbFROBRUVgYW5VkFsV4FZ5uVVuEZhTBGbjVlm4VWZulYFbpdOwp+FWqTTsKbhVMhGYhFsl5FbxuFUcbhWTW0UXgZ+uUrzlirhEk7xQvzWPuOZsE4sfva32f79HxGbhXe/Y1PfxIT7GpzY3GmIijk2Oh4'+\r\n  'RIYqOTIYXNTo00NjwdMtr0z5HVxmdHTpufG3kVoIACFMIXhFFUIYorREmFKI2yxFZeQSoqSCViq6IoNXxc13MNvd7Usa2c1875Xxmvq7F7mqevOQeY/xtrGW5do63zW+ueSCxTML0Ft2rJrbAQS1pxK6zGWqzHZmzDTuxxzH4cxGHn/mKMEzhtzLPGvmCOS+a6as7r5r5hDX9ay11rum9tj6zxb2t9Zs0vrf0f1xByLeFK3KoityrPrcpq2EuLw'+\r\n  'JLcqji3KsqtvuBWhTTsBURgXhGYm1vl5FbZuVVWbvW5CMyoYU/HrdJwq9TcKgW3SsatknCrhNwqnoY9jgiMKQKjrVC8pYq4SDHnK+oc4vpevzV98dty/3d6tAnVf6dVKPSezf0QH+MTRLPBMRAb8Wx0AiRGMpudAqlteBqkQ0Yb/zmy2vwcyKUAeZBPEQoqQiF8oRDFFKIESilGGYIrpyAVFKQSsX2pKFUUpRqh1fJnPX9v7LXmjmvt+PbO62Sc'+\r\n  '7sbsbeyvzTPQ3EOsZYR1jbHO8Zhs7VNbcyvMacOtsKgtt8JKrME6bMQWbMdu7MNPjj2Eo849jlPGOmPMc7hojsvmu4Y/zH3LGu5Yyz1remhtj63xqet5Yc2vrf2NawhX41ZVuFVlblVJBFbgVuW4VRluVUrDXkLDXoxbfSECC3GrAtwqn4Y9j4Y9l4Y9uwjMKgI/51YZuVU6DXsabpVKw55Cw55Mw55YBCYQgfFEYGxuFUMERlusiNwq8jxFnaW'+\r\n  'Zn6nfmvomFOG78m+r/m/8aB+KHald6Ny77UQgIuMTRLXJMRAbcW10AiRGUpudAqmRxqanQ0ab/jmy2vjsyIU8ip1PAQqiMMEVQXHFKKEYpVBWQcorSEViq6woVVBVYaoTUU3Fqa049f3ZxHMtHNPGsR2d18UYPYzVx/j9zTPYvMOsYZT1fGt9E6z3O0x3Dd+351ZY2IFbYQVWd+RWWI/N2Iad2OO1/TiIw875BSeMcdpYZ3HB2JfMcdVcv5vzpr'+\r\n  'lvu7a71nLfmh65nifW+Nx1vLTmf6w97BrCNTXs1TXsVblVFW5ViVtV1LCXF4FlRGApblWCWxXjVkW4VWERWFAE5uNWebhVLm6VnVtl1bBnFoEZNOzpRGAaEZhKBKbgVklFYGJulYBbxeVWsblVDG4VlVt9wq0if6+40/VbU0TipF9DEcbEeFv9f7tHxK9CV9/5ilviI0RBVBsdHbEQF/FtdiIkRXIbngppkM7GZ0RmZLX5OZBLAfIgnyIURGGFK'+\r\n  'ILiilFSMUqjLFGUV5SK+FJhqipMNaKpoTi1FKcOIdVToIZo6u8tvdbOMV85vqtzexqrnzEHGn+IuUaYd4w1jLOmSdY41Zpnuo7ZmN+JW2EZVnYOh3/AOmzEFuzAbuzDT445hKM47txTOGOs88b8zdhXzHHNXDfMecvcd6zhL9fz0Jr+tran1vjCWl9bc8jaw/VEYB1uVYtb1eBW1TTsVUVgZRFYkVuV51ZlNeyluVVJDXtxEViEWxXmVgW5VT5u'+\r\n  'lYdb5RKB2UVgVhGYmVtlEIHpuFUabpWKWyXnVkm5VSINe3xuFZdbxVqgiHNFIreKMkNxpyryZJE4gbi+Pf62/P9Gj66hSu905ZL4EB/jU0TrIqoRB/GRyKYnQXKksumfIR0y2vjMyILsCpALeRQhHwqisGIUUYziKKkgpVFOUSooSiV8qTBViaS64tRUnNqoq0D1ia2hIjVSpOb+bO259l7r7NjuzultjK+NNci4Q80x0lxjzT3BOr6zrunW+b1'+\r\n  '1z8UC17Okm94Kq7EW67tzK2zDTuzx3AH8jCOOP4aTzj2Nc8a6aMxLxr5qjt/NddOct819zxoeWMsja3pibc+t8ZW1vrHmcCMR2JBb1edWdTXstUVgTW5VnVtV5VZfcqtKIrCChr0styotAktyq+LcqoiGvbCGvaCGPR+3ysOtcnGr7NwqC7fKzK0ycKt0GvbPuFVKDXtyEZhEw55Iwx5fBMYRgTFnK+ZMRZ2muN8p8kTFHicSR4fCEUb/G/3kde'+\r\n  '9Qwkg9ww/f7cklERmf9OBWiInYiIeENj4JkiGljf8MaZHB5mdGFmRDTkXIg3wKURCFFaMIiitISZRWlHKooDCVFKYKqilODcWphToKVI/YGihSI0VqTGxNFaoF2vi4o+e7OKaHY/s4d4BxvjHecGOPNt84c0/CFGubgdnWO8/6F2GZa1uJH3pxK2zEVuzAbuzDTzjkmKM47pxTOGOM88b6zfVdMfZ13DDXn+a8a+6/rOGha/jbmp5Z+0trfG2tI'+\r\n  'WsON+VWjTXsjURgA25Vj1vV4Va1uFUNDXs1EfilCKzErSpwq7LcqrSGvaQILC4Ci3CrwtyqILfKx63ycKucGvZs3CqLhj2zCEyvYU8rAj8TgSlFYDIRmFgEJhSB8URgbBEYQwRGnaK4kxR5vGKPFYmjuNbwP8IR+kd5q4Z/pUf/8LsR+4YWvdOXO+IjROljfsRALMRFgt7WiaRIidQ2Py0yIBOyKEJ25FSE3MiHgopRGEVQXFFKoozClENFhams'+\r\n  'MFVQjehqoLYi1VWk+orUgGAao4liNVOsFoTUSsHa+fMrf+/mtV6O6+ecgc4dYpwRxh1jjvHmm2z+adbzvbXNwQJrXuI6lmO1a1yLDdiMbdiFvTiAn3EExxx7Er8695wxLuKyMa8Z+w9z3DTXHddxz9wPrOGxtTy1pufW9soa31hvuBW3aiECm4nAJtyqMbdqoGGvr2Gvy61qicAa3Koat6qiYa/MrSqKwHIisAy3KsmtinOrIhr2whr2ghr2fCI'+\r\n  'wt4Y9pwjMJgKziMBMIjC9CEwrAlOLwBQiMKkITCwCE3CruCIwlgiMIQI/naDI3yr2aEUfIRKHEtfgaWHd0FtV/Cs8+ofyRRrAFfEhPu5vXkRHTMRB/K+5KpIiBVIhTT/XgUz4HNkUIidyI69iFERhFFGU4iipKGVQXmEqorLiVEV1BaqJ2opUlzDqK1RDNFGsporVXLFaEltrBWurYO3R2cfdPd/b6187drDzhhljlPG+NfZE80wx5wzzz7Keed'+\r\n  'a3CEuteyXWuKZ12Oh6t2IHdmMffsJhr/2CE449jbPOvYBLxrpqzOvGvmGOP81115z3rf2RNfxtLc+s6aW1/WONYZ8U4bbcqjW3asmtmmvYm4rAJiKwIbeqz63qcqva3KqmCKyuYa/CrSpzq4rcqjy3KqNhLykCi4vAIiKwsAgswK3yisDcIjAnt8rGrT4XgZm4VTpulUYEpuJWyblVEm6VSATG51ZxuFVMERh9HNcao9gjFX2Y4n8TDkcaGA5F6'+\r\n  'J/trSr+2x8RB4d3vTuYKyIyoiAaYiD2IC6KhEiC5EiFzwZaPzIis0JkRQ7kRl4FKYBCKKIoxVESpRWmHCoqTmVUVaDqqKlIdVBPoRooVCM0UaxmhNJCwVopWBu0U7QOitYRXdDD3/t6foDjvnH8cOePMc44Y042/lRzzTTvHOtYYF2LrXU5Vlv/WmxwfZuxDbuwFwfwM47gmGNO4oxzzuGiMS4b65ox/zD2LXPcMddf5nxo7sfW8NRaXljTa2t7'+\r\n  'Y43hjtyqA7dqx63aiMBWIrAFt2rGrZpo2BtxqwYa9noisDa3qsmtqnOrKtyqsoa9oggsJwJLi8CS3Kq4CCzCrQpxqwLcKi+3ysWtcnCrrNwqM7fKyK3ScavPuFVKbpVMw56EWyXkVvFEYGxuFYNbRR2l2MMVfQjXcqHv9OdafTe+lcV/42NIqFikYaHQe0QbCPdjfIroiDWUeyIBEiMZUiK1daRFBmRGVmLPjlzIgwKKUghfoLj1lkRplFOciqi'+\r\n  'sQFVRXZFqoo5C1UMDxWqEpgrWXMFaorWitVW09sTWUeE6KVxnYuumeL183M9zA70+1HEjnTfW+ROM9Z1xp5tjlnnnWcdCLLW2lda7Butcx0ZsxQ7Xuhv7cRCHPfcLTuC0Y8/ignMvGeMqfjfmTWPfNsddc9035yNzP7GG59byypr+sbawNYY7a9g7adg7isD23Kott2rNrVqKwOYa9qbcqhG3asCt6nGr2hr2mhr26iKwigisLAIriMBy3Ko0ty'+\r\n  'rJrYpp2L/gVoW4VQENex4Ney5ulV3DnkXDnplbZdCwp9WwpxaBKbhVMg17Yg17Am4Vl1vFEoHRReCnLvJjFxVE1Xv9NPK9X4Ui9Pxv/7fEiKNCZ/Vu4Q8QGZ8gGneMiTiIj0RIiuRIZS1pkB6ZkAXZiT4n8iA/CirOFyiGEtZdGuVQQYEqoyqqK1RN1HFN9dBAsRqhKeE1d40t0Ubh2ilce4X7Cp0JrQu6KWAPBeyNr/19sKIO8/oox3/rvEnGm'+\r\n  'WrMmcafY6755l5sLcuxyvrWWvMGbHY927ALe3EAh3AUx3HKMWdw3jm/OfcKrhvrhjFvGfuOOf4y10Nz/m3uZ9bwwlpeW1/I2sI9RGA3EdiFW3XiVl9xq/Ya9nYisA23asmtmnOrptyqkYa9gQisJwJrc6ua3Ko6t6rCrSpzqwoa9nLcqrQILKFhL6Zh/0IEFhSB+TXseURgThGYTcP+uQjMJALTi8A0GvZUIjC5CEzCrRJq2ONr2OModEwXFs2F'+\r\n  'fGLTI9voD2ymu7dQxG7b38rjv/LxbfiLd8zxXtDD+TMKoiI6YiMeEiCJKE6GlPgM6ZARnxN9NuRAbuSz1oIojKIooTilUBYVFKgSqqC666mJOqinWA0UqxGaormitXStbdBO4TooXCd0du1dFbC7Ava0B70Vsa8iDvDnN54b7rUxjhvvnMnGmGas74091xwLzbnUGlZY0xqss9aN1r8VO7Ab+13nQRz28S84gdM469iLzrmEq8b43Vg3jXnb2Pf'+\r\n  'M8cA6H5nzibmfW8Mra3ljTeE+IrA3t+rJrbpzq64a9s4i8CsR2IFbteNWbTTsLTXszblVUxHYiFs14Fb1uFVtblWTW1XnVlVEYCUNewURWFYElhKBJURgURFYWAQWFIH5RGBuEZhDBGYTgZlFYEYRmE4EfiYCU2rYk4nAxIqdwEXFdSGxbFR0C49q0R/bzA99NrzXnWt1CYUidP7srUr+Cx873QlOCB1411wfIDI+QTTERBzEJ+5ESIoUSI20yI'+\r\n  'DM3DQrsiMX8qKANRdGURRHKYUqi/KopEhVUA01XVcd1EMDBWuEporWAq1cbxu0V7yOitcJXRSwmz3ooYi90Ech+9mP/sQ2UDGH+Hik58Y6ZoJjpzh3hjFmG2++sReZZ5l5V1nHWutaj83Wuw27XMteHMAhHMVxnPLaGZx37G+44tzrxrhhrD+NedfY983x0Fx/m/OZuV9awz/WErKm8Nfcqh+36qNh7yUCe3CrbtyqC7fqpGHvIALbicA23KoVt'+\r\n  '2rBrZpyq0Ya9gYa9noa9toa9poisJoI/JJbVRKB5blVWW5VilsVF4FFuFUhEVhABOblVrlEYHYRmFUEZhKBGURgWhGYWgSmcEFJXUQQQfFtbBwLjmmx0XwmfMJmI8vwD+T3u524VodN/3V3iFNC+SOZ7z18hCiIiuBONDbiISGSIDlSIQ0nTYdMyIJsyIk8yG/dhVAExVCSMMugPCriS8Wqhhqo7frqoYGCNUJTtFC4VmjrutujowJ2RldF7G4f'+\r\n  'eipib/RVyK/tyQDFHKiY3xDaMH+O8tw4r01y7FTnzHTuHOMsMOYSc63AGnOvs5aN1rcFO6x7N/bjIA7jGE7iV5xzzEVcds415/5hjFu4Y8x7xn5gjsfmemrOF+Z+ZU1vrCU8mFsN1LAPEIH9uFVfbtWbW/XgVt1EYFcR2JlbdeRW7TXsbblVKw17CxHYVAQ2EoENuFU9EVhbBNbgVtW41ZfcqiK3Ks+tynCrktyqGLcqwq0Kcqv83CqPCMzJrbJ'+\r\n  'xqywiMKMIDIqWxgWksvDkFpzEYhNaaFyfBbHZf/A1pU81sR9rXj90K/6eW/BI7dwhtvz8rVr+8x8Rp4W2v0vMHyAyPkE0xEQcxEciJEUKThq4aVpkQGZkRQ7ktu58KIgvUBQlCLQ0yqEiviTKqqiB2qjrOhugkaI1RXO0Ury2aO/6O6KzAnZFd6LrZT96o69i9lfMgRikmN9gKLENt09jfDzenk12zHTHznLePOMsMuYy468y3w/mXo/N1rTNOn'+\r\n  'dhLw64jkM4iuM45bmzOI/fHHvVOddxwxh/GuuuMe8b+5E5npjrmTlfmvsfawlZS3got/pGBA7iVgO51dca9r4a9t7cqie36s6tunKrTiKwo4a9vQhsKwJbicDm3Kopt2rErRpwq7rcqpaGvQa3qqphr6xhr6BhL8etSmvYS3CrotzqCw17QW6Vj1vl5lY5RGBWxcts4RksOK3FprZxKSwyqc+ARNwqvgiMIwJjisBo7jY+cSsb+SuiaM+1WnOtF'+\r\n  'pveyuU/8/F9qHCk790J6us+wsccMypiIDbiISGSIDlSIQ3SI5P1ZkF25EJeFEBhFPUJUhylUBYVUNm1VUV11EJdhauPRmiK5orXEm0UsD06orO96IruCtlLIfugn73pr5gDMZjghtinYYo6QlFH2a+x/pzo71O8NsMxs50z3/mLjbPcmKvN8aP5NlrDFuywtt3Yb90HcRjHcBK/4pzXLuKyY6/hD+feMsYdY/1lzIfG/tuanprrhTlfmztkHeFR'+\r\n  '3GoEtxrGrYZo2AeLwIHcqj+36set+nCrnhr27iKwqwjsLAI7cqv2IrANt2rJrZpr2Jtyq0bcqr4IrKthryUCq4vAKiKwkoa9gggsq2EvpWEvLgKLaNgLcav8Gva8iprL4rNbcBYbkckC09ugND77UrH25Gw+iT4ioQiMJwKDf1aJIQI/7UQMHbhWG67VUq/V1B1i4/+CO8Q5odHvmP8DREbwD97REBNxEB+JkDS4U8VnSIeMyIxsyIngEyMfxy2'+\r\n  'EL1AMJVEG5V1bJVRBNdREHcKsj4ZoguYK2BJt0N4+dERnReyK7uilmH3sTT8MUNBB+EZRhyrqcPs1EqMVdizG2btJ/pzque+9PtexC5231BgrjfWDsdebZ5N5t1nLTuy1zgM4hKM4jtM4iwu45Jir+N05N5172xj3jHXfmI+M/cQcz831ypz/mDv8LVGN1bCP5lYjReBwETiUW33DrQZp2Ptr2PuJwD4isCe36s6tunKrztyqI7dqp2FvIwJbat'+\r\n  'iba9ibiMCGIrC+CKwjAmuKwGoisIoIrCQCy4vAMiKwpAgspmH/QgQWtPB8FpvbInNYXFYLy0z1GVlqWnYafK0ohQhMyq0SicD4IjCOCIwpAqOJwE/aEkWrcPj95uHwO03EYYO+b1Xzn3jMDyWKtCD05D3r+BAf41NCj47YiIfgn5aSIPiibSqkQXoEd7BZEPSGuZAXBVAYRVECpVHO9VXEl6iKGqhNqPXQAE3QDC0Jsw3aoaP96Iyu6K6YvdBHQ'+\r\n  'fthgH0ahG8UdqjCjrBnozBGcb9V3PHENsEeTsY0f5/l+XmOW+T4Zc5bbYy1xt2ALebaYe7d2G9dB3HEmo/hJH7FOc/9hiuOuYY/nHPLuXfwl7EeGvNvYz8zxwtzvTZnyNzhCSJwvIb9W241mluN4lYjNOxDReA3InAQt+rPrfpxqz7cqie36q5h78qtOonADiKwnQhsw61aiMBmIrAxt2ogAuuJwNoisIYIrCoCK4vACiKwrAgsLQKDzS9qoYUt'+\r\n  'sICF5bUpuSg+O2vPwkqDrw2lF4FpRGAqDXtybpVEBCYQgXFFYCwRGL0dMbQmihbE0ZRrNeJa9W6EIzSM9lY9/38ei0NV3iHw9/ERoiAqYiIO4iMRkiL4p6bUHDYtMiAzsiEn8iA/CiFw4eKurRTKoAIqoQqqoxbx1kUDNEZTtCDQ1miHDvakE7qiO3opah/0U9QBGGy/hmCYwo4guFEYY//GKfAETLSPkzGF2Gb4c7aiL/D6EsetcM4aY6wz3iZ'+\r\n  'jbzPfTuy1hgM4ZH1HcQKncRYXcMlrV/G7Y2867zbuGeOBsR4b84mxn5vjlbnemDM8hVtNFoETudV4bjWOW40RgaNE4AhuNYxbDeFWg7nVAA17Pw17HxHYU8PenVt1EYFficAO3Kott2rNrVpwq6YisDG3asCt6nKrWiKwOreqIgIricDyNr+MRZaysGIW9YUFFaL24G4qN7fKIQKzisDMIjCDCEwrAlNr2FOIwKQiMJEIjC8C44jAGCIwakuiaE'+\r\n  'YcjYmkAdeqw7Vq/KffeyvistCedwn9A0TGp4jOTWMhLhIgMZIjFdIgPTIhC7IjF/KigOsqjKIogdIoh4r4EtV8MtVEHdRHIzRBc4JthbZoj072pgu6o5ei9kE/DFDYwRhi34ZhpOKOxlgFHmcfJ2ASwX2n0FPt6XSFnom5Pl7o+aVeX+X4tc7dYJwtxtxujt3m3I+D1nIEx3ASZ3Aev+EKrjvmBv50zl3n3jfGQ2P9bcxnxn5pjn/MFTJneDq3m'+\r\n  'sqtvtOwT9KwTxCB47jVWG41mluN1LAP07APEYGDRWB/EdiPW/XhVj25VTdu1YVbfaVhb8+t2nKrVhr25tyqCbdqxK3qc6s63Komt6qmAF9aXEWLCiKitE0o4bOsqM+uwtyqAFHlFYG5RGDwFewsIjCTCExPVGk07ClFYDIRmFgEJhCBcUVgLBEYTQR+0oQ4iOqDupr4Wpr46ivfyuc/8lgaShhpVeif96zrQ3yMqIiB4DtY4yEhkiIFUiMtMojy'+\r\n  '4J+gsiIH8iA/CiG40y2OUiiLCqjsk6kqaqA26qEhGqMZIbdEG7THV/anM7qhJ3oTZD8MwCDFHYJhGGkPRyvwWIxX5ImYbE+nKPQ0hZ6B7xV7NuZhsb8v99pqx/3onI3O32qcncbdY54D5j6Eo9Z0AqdxFhdwCde89gduOva2c+4594ExHhvrqTFfGPuVOd6YKzyLW33PrWaIwGkicAq3msytJnKr8Rr2sSJwtAgcKQKHcash3GoQt+rPrfpp2Ht'+\r\n  'zqx7cqpsI7Kxh76hhby8C23Crlhr2Zhr2xhr2htyqroY92NQaFhVEQmWLqEDhZam7FOssLpe/4FaFRGB+EZhbBOYQgVlFYPCPuhmIKviWlNQiMLkITEJUCUVgPBEYWwTGEIHBT8x8XI9IaovDGuKwyutQhNIfvFXR/8NjbajOO9b2Pj7CJ8QfDTERB/GRGMkQfK/YZ0iHTMiC7Aj+SSovCqAwinLlEiiNcqiIL1ENNVEH9e1FIzRFC7RGO3Qk2s'+\r\n  '7oih7oTZR90R+D7N03GIaRCjwaYxV5PCba08mYqtjTFXsmZin4HPs8l9gWKPoSH6/w3BrHrHfsZudtN9Zu7DP+QfMdtoZjOIkzOI/fcAXXccMxfzr2rnPum/+RMZ4Y65kxXxr7H3OEzRWeq2GfIwK/51YzudV0bjVFwz5ZBE4UgeO51VhuNZpbjeRWw7jVNxr2QSKwv4a9r4a9twjsIQK7isBOIrCDhr2dCGwtAluIwKYa9kbBZlpQHQup6aKrm'+\r\n  'fxLyq7INsuJwNIisIRmr6g7mcIisIAIzCsCg3/EzSYCg29BySgC04nAz0RgSn1VMhEYfI95fBEYRwTGFIHR6ovDOkRSk1iqisPK4XCE8pXfquj//oi4PrT0XcL/AB/jU0RHLAQ/1JEQSZAcqZAGGZCZA2dFDuRGPhREEQRf/C2FsqiAyqiKGvahNuqhIZqgOVqhLToQdid0QXf0Ql9C7Y+B+MYeDsUIjFbksRiPiYo9GVPt73QFn4nZij7XXs/D'+\r\n  'AoVfZM+XKv4qH6/12gbHbHHODufvMd4B4x/CUXOewGnrOYuLuIxrnvsDtxxzx/F/4aFz/zbnU2O9MOZrY4fMEV7ErRaIwHncai63mq1hnykCp4vAqdxqMreayK3Gc6uxGvbRGvYRInCoCPxGBA4UgV+LwL4isJcI7C4Cu4jAr0RgBxHYVgS2sqHNLaaJi2ho8nomru0zKLgrqioCK4vACiKwrAgsJQKLicAvRGBBEZhPBOYWgTlEYFZ3gZlFYHo'+\r\n  'RmEYEpiKq5CIwiQhMIALjElUsERhdBH5aSxxWI5YvxWFFcVj2P/4TPZE46nsIfpw/CqIiBmIjPhIhKYLvx0+NdMiIz5ENwbf95EEBFEZRlEDp4Ot1qIgvUQ01URcN0BjN0AJtfPK1R0d0Rjf0RB8C/hoDMRhD7eUIjMJYjFfwiZis4FMx3T7PxGxFn4v5Cr/Ivi9W/KWKv9z+r/bnj57b5LVtjt3lvH3G+Ml4h81xDCfNfQbn8Ruu4Hfc9Npt3H'+\r\n  'Psfec8cu4TYzw31itjvjF2eDlRLeVWi7nVQg37fBE4l1vN4lYzudV0bjVVwz5Zwz5RBI7nVmNF4CgROIJbDRWBg0XgQG7Vj1v1EYE9RWA3EdhZBHa0ue0sorXJA6tvZtJGFF2fVdYRgTVFYDUR+KUIDL4SXW6CYnCrEiKwqAgsLALzi8A8/RVPBGYTgZ+LwIxElVYEphaBwU/CJCWq4Of44onA2CIwhgiMWp37VCGWSkRTThyWevFWRv+Xx7ZQy'+\r\n  '3c46/v4CFEQDTERBwmQGMmQEp8hPTK5vuA7X7MjN/KhIL5A8A/sJVEGFVAZVVEDtVEPDX3SBb1nc7QKPgERfCJ2Qlf04PS90Q8DMAhD7OdwjMIYjCPIiZis4FMxHd/b7zmYp/ALFH4Rltj/ZYq/AqvU4Qes9/Fmr2133G7H73fuz8Y6atwT5jqNs7hoLZdxzcd/4BbuOOYvxz50zt/OfWaMl+Z4bcyQscOrNOwruNUyEbiEWy3kVgu41TxuNVvD'+\r\n  'PlMETheBU0TgZG41kVuNE4FjuNUobjWcWw3hVoO4VX9u1VcE9uZWPWx8VwvoZOIOFt/WZ04rnzHNWXITdtyQWwVfu6ktAmuIwKoisJIILE9UZURgSREYfGvJFyKwoL4qrwjMJQKzi8As+qpMIjB9e0UWgSlFYDJ9VeJG3EUExhGBMWsQhwiMIgI/Kk80ZcRhSXeHxRu/VdP//oi4Mzz8XbH9AYJ3uPkU0RELcZEQSZAcwY+opUEGZEZW5EAe5Ef'+\r\n  'wPWZFUBylUc4nWEV8iWqoiTqoj8ZohpYIetH2+ApdOH139EJf9MdAfGNPh2EkxmAcJhDoZEzFdMWfiTn2fR4WYDEBLCWA5VihFquJ4AciWKsmG/y51XM7vbbXcT85/rDzfzHWSWOfwXnzXsJV/I6bnruNe4554NjHznni3OfGeGWsN8YMr+VWP2jYV3OrFdxqObdaqmFfpGFfIALnicDZ3Gomt5rOraZq2CdzqwncapyGfTS3GsmthmnYv9GwD+'+\r\n  'RWX3OrPhbQ06TdTdbFRF9RcTsW2ZoFtxSBTblVI25VXwTWEYE1RWA1ERj8Y2xFEVhWBJYSgcWJqoi+qpAIzCcC84jAHPqqrJ0UVQRmEIFpiCqVviq5CEwiAhMQVVx9VSwRGJ2oPqlALGWJppQ4LEZYRfq9ldP//oi4J/wweJO3D/ExPkUMxPZJEg+JkBQpkBrpkBGfIxtyIi8KoDCKogTKoDwqoQqqozbqIfiicRM0t1+t0BYd0Ald0QN90A8Df'+\r\n  'KIOxlCMwGh8iwmEOwlTMB0ziXI25mGBGizGUiJYTgSrsEZNfiCEH7GeGDapzzZ/7vL8PscddPwR5x7HaeOdNcdFXMY13MCfuOu1+455iL+d88zYL43xj7FCxgyv51Y/cqsfuNUaDftKEbhcBC4VgYu41QJuNY9bzeJWM0XgdA37FG41SQSO17B/q2EfLQJHiMChGvbBNmqASftZZGDhPXx2dGWPnVhjBxHYVgS2csfQnKiaiMDgny/qisBaRFXd'+\r\n  'XWAVd4GVRGB5EVhGBJbQVxUVgYVFYAERmFdflVMEZhOBnxNVBn1VWhGYWgSmEIFJ9FUJ9VXxRGBsfVWMikRSjliI6sPihFVEn1XwzFs5vX0cCBePxGnfw0eIgqiIgTiIj0RIhpT4DOmRCVmQHbmRDwXxBYqhFMrakwqojKqoiTqoj0ZoipZog/b4Cl3QHb18kvZFfwzCEAzHKIwl+vGYiO8wDTPt/WzMxQJiXIylRLAcK7FGXdYSwjpsIIZNarS'+\r\n  'FILb7c4+/H/D8Icf94ryTxjhjzPP4zXxX8Ttu4rbn7nn9AR479qlzXjj3tTHeGC+8hVtt4lYbNOzrROBabrWGW63kVsu51VJutUjDvkDDPlcEzhKBMzTs00TgdyJwoggcLwLHisBRNnG4CYeYZJAJ+lNvX7bYi912F4FdRGBHEdhOBLYWgS1EYFMR2EgE1heBdYiqpgisKgIri8AKIrCsvqqkCCwmAr8gquAnWvKJwFwiMLu+Kou+KlML7iECPy'+\r\n  'OqlPqqZPqqREQVX18VR18VQwRGLU0sJYimKPEUDocj5eda+TO8VZXHT6ES77iG9xG8ReUniIZYCN6vKwESIzlSIQ3SIzOCH7jNgdzIj0IoguD7+ksj+I7ZivgS1VELdRH8w3xjNEcrn5TBF5M7oBO6Iriz7o2gZx2AwRiGkRgjGb7FBEzGVMzALDWYi/lYRJhLsRwriWEN1qrPOmwkiM0EsRXb1Wsnwe3150+eP+L144495byzxrlo3Mu4jhv4E'+\r\n  '3dx32uPHPPEsc+d89K5/xgjbKzwdg37VhG4WQRu5FbruNVabrWGW63UsC8XgUtF4EIROF8EzhGBs7jVDBE4VQROFoETRGBwkaNNMMJCh1LuYKodwA77icDeIjD4GkxXEdhJBHYQgW3dBbYSgc1EYGMRGHyLSF0RWEsEVhOBXxJVRREYfA94KRFYXAQW0VcVEoH5RWBufVUOfVVWEZiZqNLrq9Loq1KJwGT6qsT6qgQiMA5RxdRXRStJLET1EVG9'+\r\n  'X0CflZewcv7vwop4JLTtXdfyAYI31v0UwVtWxkI8JETw/l3JkRppkcEn1OfIhpzIgwIojKIogTIoj0qoihoIvjetHhqiCVqgNYJ/AuuIzuiOXuiL/hgkEYZgOEZhLMZjEqZguhp8jzmYh0VYQrDLsQpriHEt1qnTRmwmiq3YQRi71G03YezDz/5+1PMnHPOr48879zdjXcXv5rmJOz7+Cw+99rdjnjr2hXNeOzdkjPBuEbhLBO7gVlu51WYN+0Y'+\r\n  'N+zoN+1oRuEYEruRWy7nVEhG4UATO41ZzROD3InC6CAwuapLBxxt0LMWOotbhbHWICBwkAvuLwL4isJcI7CYCO4vAjiIw+EfV1iKwBVE1cRfY0F1gPRFYWwRWF4FVhiiGCCwvAssQVQl9VVERGPxQZwF9VR4RmFMEZtNXZdZXZdBXpSWq4D2nkuurkojAhPqquPqqWCIwejHC+oJoiOqDvOIwlzjMvuCtrAjreOjwuz5RPsTH+BQxEBvxkAhJkQ'+\r\n  'KpkQ4Z8TmC96DIhbwogC9QDCVRFhVQGVVRE3VQH8H3qjXj+C3RBu3xFbqiB3qjHwZgMIZiJMZgHIK0+E4NpmEmZmMuFmAx4S/DCqzBWuJch43qtQXbCGMHdhHHHvXbRxwHcMjHxzx3yjFnHX/BuZdx3Zg38Cfu4r7nHnn9CZ479pVz3jg3fEAE7uNWe7jVLm61QwRuE4FbuNVGbrWOW63lVqu51QputYxbLeZWCzTsc7nVLJsyw6BTDTiZWidQ6'+\r\n  'jg2OEYEjhCBQ0XgYBE4QAT2E4G9RWAPouoy3+aJwPYisI0IbElUwTeyNRKB9UVgHaKqqa+qKgIrE1UFfVVZEVhSBBbTV32hryogAvOKwFz6qmz6qs9FYEZ9VTp9VWoRmIKokuqrgvf5jEdUsfVV0YsQS0GiyUc8uQkrO2Fl+fE/qOpkKG6kk6G/3nNdHyIKgrcFj4E4iI9ESIaU+AzpkQlZkB25kQ/B2wcUQXGUQjlUxJeohlqoiwZojOZohbbo'+\r\n  'gM7ohp7og68xCEOCO28Ed+BjMR6TMAXT8T3mYD4W+aRfihVYjR+wTr02YjO2EeRO7CaQvdhPJD+p5c8EcgTHfXza8+cc85vjrzr/d9zCHfyFh/jba88c89Kxr50Tcm74Z271E7far2HfKwJ3i8Cd3Gobt9rMrTZyq3Ua9h807Ku51QputVQELuJW8w06x2CB9U6n8imsdJIIHC8Cx4rAUSJwuAj8RgQOFIFfi8A+IrCnvqqrCAy+9aMDUbXVV7U'+\r\n  'Sgc1EYGOiaqCvqisCaxJVNX3Vl/qqir0Ji6hK6auCHz3/QgQGb5yRT1+VWwRmJ6os+qpM+qp0RPWZviqlviopUSXSV8XXV8UmqhiFiCU/YRHVhzn0WVkJK9ONUIRUH0SIcCqUMpJPmPcQ/GaMKIiGmIiDBAjegDcZUiEN0iMzsiIHgnfQyY9CKIISKI3gB3UrIfgRuOoIfrikHhqiCYLvtG2NduiILuiOXuiL4J/KBmMoRuhrR+NbTAx6XAS97k'+\r\n  'zMxjwsxBIsxyq1+gE/YgM2E+hW7MBuAtyLA2p5EIeI5AiR/KKuJ/x5xnMXvH7ZsdecewN/4i4e4DGeeu25Y1459o1zwr9wqyMa9kMi8KAIPMCt9nKr3Rr2HRr2rRr2zSJwgwj8UcO+RsO+SgQGi11ioIUGmUehs1nfTBE4TQROFoETROC3InC0CBwhAoeKwMEisD9R9dVX9RKB3UVgF31VRxHYzl1gaxHYXF/VRF/VcLhNF4G19FXV9VVVRGBFf'+\r\n  'VXwo+alRWAJoiqiryqkr8pPVLn1VTn0VVmJKpO+Kr2+Kg1RpdRXJdNXJSaq+PqqOPqqmEQVNQ/R5CSerESUWQOfXp+V+eMIEX4LpX6HG7+Pj/AJoiEW4iIBkiA5UiF479QMyIxsyIk8KIDCKIoSKIPyqISqqIHaqI9GaIqWaIP2+Apd0AO90Q8D8A2GYSTGYDwmYQqm43sEve98NVqEpViB1ViL9diErYxhB3ZhLw4Q60EcUtejOEYsx4nllBqf'+\r\n  '9fFFz13x+u+OveX8O/gLD/G355557aVj/nFsyDnh4yLwGLc6wq0OcauD3Gq/CNwrAneJwB0icKsI3CQC14vAtRa92iArTLqUshexzvncao4I/F4ETheBU0TgJKIaLwLHiMCRIjD4x9Fv9FUDRGA/EdhbBPbQV3WZZhNFYHuiaqOvaqGvaioCGxFVfX1VbRFYg6iq6qsq6avKE1UZfVUJfVVRoiqsr8qvr8pDVDn1VVn1VZmJKoNmPXj34VRElVy'+\r\n  'znlhflYCo4uqrYuqrgt9d80k24vmciDJo4NMSVqpPI0S4GBr/Dlf+AJHxCaIjFuIiIZIgOVIjLTLic2RDLgRvKlcAX6AYSqIMKqAyqqIm6qA+GqMZWqItOqATuqEn+uBrDLL/wT/0D8cojMUETEbw9cQZmIV5WIglWI5V+AHrsJExbMF27MIe7MdBKXQIR9X3GE4QzCmC+VWtz/nzkr9f8/oN/On4e3iAx3jquRd47Zg3jg3/yq1OcasT3OoYtz'+\r\n  'qiYT/ErQ6KwP0icA+32iUCt4vALS5so5PXOTGw1FUsbzmrXCJLF4rAuSJwlgicIQKn6qsmbyIsEThWBI4SgcP1VUMWi0MR+LUI7KOv6iECu4rATvqqDvqqNiKwJVE101c1FoH1RWAdfVVNfVVVERi8IUYFfVUZfVVJzXoxfVVhfVUBzXrwdorB+3Vm06x/rq/KQFRpNeup9VXJiSqJZj2BviouUcXKRSzZiYaoImckrLSElZqwUo6PEPFKaPy7r'+\r\n  'vcDRManiI7g9/zEQ0IkRQqkRjpkxOfIjlzIh4L4AsH7gZVC8E47FfElqiF424G6CH6gtzGCH5VrhbboiM7ohl7oi/4YjKEYgeAf/sdhIr7DNMzEHMzHIkawFEFPvBo/YgMCg9iGndiNfVLoJxzCURxT5xM4TYRncI5wLqr7ZR9f9/xNx9zBX859hCc+fo6XXvvHMWHHhs9xqzMa9lMa9hPc6hi3OsKtDnGrn7jVPhG4m1vtMMBWEwQWup7drWV1'+\r\n  'q0XgChG4VAQGXyOZLwJni8CZInAaUX0nAieKwG+JKvgWjhEicKgIHERU/fVVfUVgT6Lqpq/qrK/qSFRt9VWt9FXNiaoxUQU/Ql5XXxW8AUY1fdWXRFWBqMrqq0oRVTGi+kJfVZCo8mrWc+mrshPV55r1jPqq4A34U2vWU+irkhBVQs16PKKKRVTRsxANUUVOR0SfEVYKfVZSwrpOWD6ZPsDH+BQxEBvxkAhJEfxGjc+QDhmRBdmRG/lQEEVQHKV'+\r\n  'QDhURvPNOddRCPTREEzRHawQ/OvcVuqA7eqEfBmAwgu99G4kxGIdJmILgn9hmYS4WYDGWYRV+QNAjb8QWbMcudd2LA/gZR3AMJ7Q8p3EW5wn0otpfIpyr/vzD3//0/D3HPcBjPMULz732Wsgx4Usa9osi8LwIPMOtTnGrExr2Y9zqCLf6WcN+wAL2OmEXJW5nj1vY4kYRGNxV/CACV7oLXCYCF4vABSJwDlF9LwKDf/ScQlST9FXjROAYEThSBA'+\r\n  '7VVwXfNjtABPbTV/XSV3UXgV30VR31Ve30Va2/scn6qiZE1ZCo6uqrahFVdc36l/qqikRVVrNeSl9VnKiKaNYL6qvyEVUuzXp2fVUWosqoWU9HVKmJKoVmPam+KqFmPZ5mPTZRRc9ENOmJh6g+SOnOMClhJSKsbceOvcupP8THiIoYiI34SIRkSInPEPyGjUzIghzIjXwohCII3iKzNMqhEqqgOmqjHhqiKVqgNdrjK3RBD/RGPwzENxiGUQi+F'+\r\n  '248gu8ymYoZ6jUr+FcRLMQSrMBqrMV6bMI27MAe7MdBHMYvWp7jOIUzOM9ULuIyDVzBNQK64c87nvvL64+c8wTPffzKc2+8Fr4mAq9wq8vc6iK3Oq9hPyMCT2nYj2vYj1roIQcfpMT91LqbvQWN3lYRuEkErheBa/VVq0TgchG4RAQu1FfNE4Gz3AXO0FdN1VdNWuniRWDwXYwj9VXD9FXfENVAfVU/fVVvouqhr+pCVF8RVTt9VWuiaqFZb6qv'+\r\n  'aqivqqdZr6Wvqk5UVTTrFfVV5YiqtGa9uL6qCFEV0qznI6rcRJVds56FqIJfE5JOs/4ZUaUkqqSa9UREFU+zHpuoYhDVp2mIh6g+TEZYicPHIsY6FiGi638PHyIKoiIG4iA+EiMZUiIN0iMTsiIHciM/CqEoSqA0yqMSqqAGaqMeGqEpWiJ4e4L26ISu6IE++BoDMQTDMQrfYgImYxpmYjbmYxGWYgXW4EdswGZsxy7sZR4HAgNBYCTHcBK/4hw'+\r\n  'uSqzLuIrr9HCDiG7hro8feP1vPMNL/OO5kNfCf3Cr69zqKre6LAIvisBzIvBXEXjSQMeoMLDGn1nbARG4VwTuEoHbROBmotqgr/pRBK4RgStE4FJ91aKthCUCZ+urgu/7mSoCJxPVBH3VWH3VKKIarq8aQlQDieprfVVvouqhWe+qr+pEVO0168EbW7QgqqZE1UizXo+oamvWaxBVFaKqpFkvp1kvTVQlNOtFiKqQZj14Y/3cRJVDs56VqDIRVX'+\r\n  'rN+mdElZKokmnWExFVfHeAsYkqBlFFTUVYRPVhYmJKEA5HjBOOEMkn13v4EFEQFcGvF46D+EiMZEiFNEiP4PcDZUUO5EF+FEbwNuQlELzBb3lUQlXUQB0E7yPWCME79LREG3RAJ3RDT/TB1xiEIRiB0fgWwXfyfodp+B5zMB+LsQzBP8X9gHXYiC3YgeCOfx9+wmH8ghM4jbO4ILUu4Qqu4wZu0cZtgvzLn4/8/Qme4xXeeC58m1vd0rDf0LBfF'+\r\n  '4FXROAlERgMdpb6TlPeCbZ2lKgOach+EoH7ROBuEbhDBG7RV20UgetE4BqiWqmvWiYCFxHVfH3VHBE4k6im6au+01dNIKpv9VWj9VXDNetD9FWDiOprzXoffVXwo+BdNeud9FUdiKqNZr2lZr0pUTXSrAfvVFfbHWANzXpVoqpEVOU166WJqoRmvahmvRBR5des5yGqHO4As2rWMxFVeneAaYgqJVElcweYmKjiuwOMQ1QxiCpqcuJJQkRE9V7c'+\r\n  'cDhSTMLySfYePkIURENMxEECJEbwizxTIQ3SIzOyIifyID8KoyhKogzKozKqIngrzTqoj8ZohpYI3rGnAzqhG3qiL/pjEIIfuRuBMRiHiZiC4Dt7v8ccLMBiLMcqKfQD1mMTtmIH9mA/DuIIjuEkfsU5/IYruIYbuEUft3GP+dzHYx8/8/xL/OPjsOfCd0XgbW51i1v9IQKvWcAVL1ykxnMs7VcReFIEBncHh0XgQRG4XwTuIaod+qqtInATUQX'+\r\n  '/ePmDvmoVUS3TVy0mqgVENUdf9b2+ajpRfadZn0hU44hqtGZ9BFEN0awP0qz3J6q+mvWemvVuRNVJs95BXxW8t1NLzXozomqkWa+vWa9DVDU061WJqhJRldeslyGqkkRVVLNemKjyuwPMQ1Q5iSqrO8DMRJXeHWAaokpFVMncASYmqvjuAOMEvyGeqKISVRSi+oio3otFWNEIi4O/h48QBdEQ/Mb9uEiAxEiOVEiLDMiMrMiJPCiAwiiKkiiDCq'+\r\n  'iMaqiJOmiAxmiGVmiLDuiMbgjeG6Mv+mMwhmIkxmAcgh9umYLpmIW5WIAlWI7VWIv12Ixt2Ingi+AH8DOO4jhO4Qwu4BKu4nf6uInbuIf7eMiInuCFj18j5OPwQ251n1vd41a3udVNT/5OcVdZ2SUReD5o3IjqlL7quAg8IgJ/JqrgK7J7ROBOotqmr9qkr1pPVGv1Vav0Vcs160v0VQv0VXOJapZmfTpRTdGsT9SsBz/PNkazPkKzPpSoBmnW+'+\r\n  'xNVX6LqqVnvRlSdiaqDZr0tUbXSrDcjqsZEVZ+o6hBVTXeAVYmqMlGVdwdYhqhKElXwu2QKE1UBd4B5iConUWV1B5iZqDK4A0xDVKmIKpk7wMRElYCo4hBVTKKKmpB4iOojonovOmF9Qlg+4d7HR4iCaIiJuEiA4JelJ0cqpEUGZEY25ETw284KoDCKoSTKoAIqoxpqoi4aoDGaoRXaoiM6oxt6oS8GYDCGYiTGYDwmYQpmYBbmYiGWYAVWYy02'+\r\n  'YDO2YRf24iccwlGcwGmcxQVcxjX8gcCA7uI+HuJvPflTvPTxPwg/Jaq/udVDDft9L9yhtlus7A8ReE0EXhaBF/RVZ0Vg8DWM40QVfAX2kL7qAFHt1Vft0ldtI6rgWyw26KvWEtVqzfpyolpCVAs163OJKvgJkOlENYWoJmnWxxHVGKIaQVRDiWqwZn2AZr0vUfXSrHcjqs5E1ZGo2hJVK3eAzYiqsTvA+u4A6xBVTXeAVYmqMlGVdwdYhqhKVlQ'+\r\n  '8d4CFiaqAO8Dg9/flJKpsRJWZqDJkJyyiSkVUyYgqMVElSEFYRBWTqKLGIx6i+oio3v+EsCITFjd/Hx/hE0RDTMRFAgS/iT85UiEtgl9LnBnBL/zMibwogMIohuD3CpVFBVRGNdREXTRA8MbAzdEKbdERndEdvdAXAzAYwzASYxD8APEkBD+aNwOzMA8LsQTBdwCvRvC9dRuwGdsRfKPBPgT/hHcIv+AETuMcgq8UXEbQg99AkG738ACP8RQv8B'+\r\n  'ohhF9o2IMnH1PZAzZ3l6j+1KjdEIFB1x/cVl68anCiOh185VVfdZSoDh2zCH3VXqLapVnfRlSbiWqDZv1HolqtWQ++Z3oJUS3UrM8jqlnuAGcQ1RSimqRZH0dUY9wBjtSsDyWqwUQ1gKj6ElUvd4DdiapzD5tKVG2JqpU7wGZEFbyldAOiqkNUNesRFlFVJqoK7gDLElXwG6+KEVVhoipQRFGJKmc+RSaqzESVIQthEVWqdMRAVImJKkFSwiKqm'+\r\n  'EQVLTbxENVHnxJTZML6gLB8Ar6Pj/AJoiEm4iIBkiA5UiMtMiAzsiEngl8AWgCFUQwlURYV8CWC3+BRE3XRAE3QHMEbBbdF8BacndEdvdAXAxC8088wjMRYjMckTMUMBD+qNw8LsQQrsBo/YgOC77Xbjl3Yh59wGME/6Z3AaZzDRVzBddxE0JPfQ5B2f+M5XuENPYXf+OClCHwmAv8mqof6qqARC7r8G0R1XV91JfhimL7qHFGdJqoTmvVfiOoQ'+\r\n  'Uf1EVHuJapdmfTtRBd9luEGz/iNRrSaqFUS1hKgWEtU8oprlDnAGUU0hqklENZ6oxhDVSKIaSlSD3QEOIKq+RNWLqLoTVeeuNpWognf5Dd5CujlRNW5q84mqDlHVrE1YRFWZqCoQVVmiKlla8YiqMFEVIKrgV9jmzK3IRJWZqDIQVRqiSvUZMRBVYqJKQFRxiComUUUjqk+I6qOPiekDwnqXsMJvwu/jI3yCaIiJuEiAJEiO1EiLDMiMbMiJvCi'+\r\n  'AwiiGkiiLCvgS1VATddEATdAcrdAWHdEZ3dELfTEAgzEMIzEW4zEJUzEDszAPC7EEK7AaP2IDtmA7dmEffsJh/IITOI1zuIgruI6buI17eIi/8RyvEPwXDonA1yLwRZCPIvARt7ovAu+IwFv6qj9EYPCV1Uv6qgsi8Iy+6pS+6rgIPKKv+llftV+zvkdftUNftVUEbtJXrROBwU92rNJXLdOsL9ZXzReBczTr3+urpmnWv9OsTxCB32rWR+urhr'+\r\n  'sDHKJZD95Z7mt3gH006z1EYFfNeid9VXt3gG30VcEb3zfVrDfUV9VzB1hbs169ajhcxR1gJX1VOX1Vac16cX1VEXeABTXr+URgbs16Dn1VFneAmTTr6dwBfuYOMKW+KmnicDiRZj1enHA4dsxwOHq0cPhTEfjxR+HwB++Hw+9GCoT1irBeEdYrwnpFWK8I6xVhvSKsV4T1irBehVMhLTIgM7IhJ/KiAAqjGEqiLCqgMqqhJuqiARqjOVqhLTqiM'+\r\n  '7qjF/piAAZjGEZiDMZjEqZiBmZhHhZiCVZgNX7EBmzGduzCPvyEQ/gFJ3Aa53ARl3EdN3Ab9/AAj/EUL8Ivw68RQvgNt3qlYX8edPUa9kca9r807HcI6xZh/R582Z6wgn9sPE9YwbdKnHQXeIywjhDWQcLaT1i73QXucBcY/CTHRsJaR1g/ENZKwlpGWMGPas8nrDmENZOwphHW5HHERVjfEtYowhpOWEMIayBhfU1YvQmrB2F1Iazgje7bE1ab'+\r\n  'ZsRFWE0JqyFhBb/JqhZhBb+HrwphVSSscoRVirCKE1bwi7YLElY+wspFWNkJKwthZSSsdIT1GWGlIKykhJWQsOIRVuyoxBWFuAgrMmF98C/Cek5YzwnreTgKoiEm4iIBEiM5UiEtMiAzsiEn8qAACqMYSqIMKqAyqqEm6qABGqMZWqEtOqIzuqEX+mIABmMoRmIMxmMSpmAGZmEuFmIJVmA11mIDNmMbdmEvfsIhHMUJnMZZXMBlXAs/C/+BW7i'+\r\n  'L+3iIv/HUfy/9+Q9YlS6eWwVfe3gmBv8Wgw/F4D0xeNudYPCPi79fEIlnw+HfCOv88XD4V8I6+TNxHZDHhHWQsIKf3NhNWDvWi8S1xEVY65aH/+VHs1cS1tK54fAiwpo/PRyeTVgzCWsaYQXvHDdhhP6AsEYR1vD+4fA3hBW8NXS/bsRFWD0IqwthfUVY7QmrNWG1qK8PIayGhFWPsGoRVvXy+pUyxEVY5QirFGEVJ6wv8hAXYeUjrFyElZ2wsh'+\r\n  'BWRsJKl0xfRFgpCCspYSUkrHiEFYuwohPWp4QV+V+E9Xf4PXyEKIiGmIiDBEiM5EiFtMiAzMiKnMiDAiiMoiiJMqiAyqiKmqiDBmiMZmiFtuiAzuiGXuiL/hiMoRiJMRiHSZiC6ZiFuViAJViO1ViL9diMbdiJPTiAn3EEx3EKZ3ABl3AVv+MmbuMu7vOsh3iC5/7+Gm98HA4R1WuiesGtnorBx+4EH2ja7wb/uKi/uqG/uq6/Cr6h6yJhndNf/'+\r\n  'UpYJwjrF/3V4Z36LcLap7/aRVjbCSv4UewNhPXjYuJaoN8irKWEFbzX0jzCCt4pbgZhTSWsyYQ1nrDGDiIuwhpGWN/01G8RVj/C6t1Bv0VYXQgr+E1V7QirNWE1J6wmNYiLsOoSVi3CqkZYXxJWxaL6LcIqRVjFCesLwiqYlbgIKxdhZSeszwkrI2GlJazUhJWCsJIQVkLCikdYsQgr+nv6rX8R1iPCekRYjwjrEWE9IqxHhPWIsB4R1iPCekRY'+\r\n  'j8JpkB6ZkRU5kQf5URhFURJlUB6VURU1UQf10RjN0BJt0QGd0A090Rf9MQhDMQJjMA4TMQXT8T3mYAEWYzlWkcEPWI9N2Iod2IP9OIgjOIaT+BXn8Buu4Br+EIK3cBv3SCv477GPA/96iX98rLHiWkT1iqiec6u/udUjbnWfW90Rg8E3cP3xazh8zd3gJY37hcPh8FmN+2mN+3HCOqpxP6Rx/4mw9mrcd2nctxNW8AYSGwhrLWGt1riv+F4zT1g'+\r\n  'LvyMuwppFWDNGa+YJa5LGfTxhjSGs4A3shxHWYMIa0Im4CKsXYXVvqZknrI6NiIuwWhFWc8JqQlgNKhEXYdUkrODX/39JWBUIq2x+4iKsYoT1BWEVIKy86YmLsLIR1ueElYGw0sYnLsJKHoO4CCshYcUlrFiEFe1fhPUXYf0V/hBREBUxEQfxkRjJkAppkB6ZkRU5kAf5URhFUQJlUB6VUBU1UAf10QjN0BJt0AGd0BU90QdfYxCGYARG41tMxH'+\r\n  'eYhu8xB/OxGMuwEmuwDhuxBTuwG/vwEw7jF5zAaZwlnwu4hCu4zqtu4Fb4DnHd8cwdcrrLte5xraD7usu1xF+IqF4T1QuiCr7l4bGm/QG3uicGb4vBm2Lwd251VQxe0l+d11+d2aeZ301chHVE4x78yPUBwgreMGKnO8JthLXJHeF6d4RrCSt4R7jl7giXENYCd4Rz3RHOIqzp7ginEFbwhvXj3BGO6RMOjyCsoe4IBxNW8Bup+rYhLsLq5o6wM'+\r\n  '2F1JKy27ghbEVYzwmpMWA0Iq447wpqEVY2wKhciLsIqS1glcxAXYRXORFyElZewcqYkLsLKTFgZCCstYaUirOSElYSwEnxIXIQVi7Ai2qT38CGiICpiIA7iIxGSISXSID0yIStyIDfyoxCKogRKozwqoQpqoDbqoRGaoiXaoD06oSt6oA++xkAMwXCMwreYgMmYhpmYjXlYhKVYgTX4ERuwGduxC3vJ5AB+xhEcw0n8inO4GP5Tr/WnSLxFXLc4'+\r\n  '103/v/kvEnvg+ceOeYaXPv7HcyGvhd8Q1Suiei4CnxDVI251n1vd5VZ/cqsb3Oq6GLwiBi+KweCHFH8Vg8GPWB/TXx3RuB/UuO/XX+3RuO9YqpknrOAd4NbN1swT1qqpmvnJmnnCCt7iee4od4qENZ2wpgwMhycS1rje7hR7EBdhDf0qHB7UPhzuT1h9WoTDPQmrG2F1qhf+l1+Q3bZ6ONyyCnERVuNy4XB9wqpDWDWLhMNVCasyYZXPHQ6XIay'+\r\n  'ShFWUsAoTVoHPwuE8hJWTsLImIi7CyhA7HE5DWKkIK/nH4XBiwkpAWHEiElbo5rF3bdSH+BhREQOxER+JkAwp8RnSIROyIAdyIx8KoQhKoDTKoRKqoDpqox4aoilaoDXa4yt0QQ/0Rj8MxDcYhlEYi/GYjKmYobCzMA8LsQTLsRprsR6bsBU7sAf7cRCH8QtfOo5TOIPzpHQRl3VaV3CNvG7487bn/vLRIzzBc7zy3BuvhUPi7x9OFXzX3zOi+l'+\r\n  'tv9VBv9Zfe6g63usWt/uBW18TgZTF4gVud5VanxeAJMfiL/uqQ/uonMbhPf7Vb475d476FsDbqr9a5I1xDWCs17svG67cIa747wjnDNPPfaOYJ67t+mnnC+pawRnfRzBPWkHbE1dqdImH1IayeDcPhroTVqRZxEVYbwmpZ0Z0iYTUirPrFw+HahFWDsKrkC4crEVb57MSVJRwuQVhF04XDhQgrP2HlSRoO5yCsrPGIi7DSE1aaT8PhlISVjLASv'+\r\n  'xsOxY94jLCuj3/XJn2Aj/EpYiA24iERkiIFPkM6ZEQWZEdu5ENBFEFxlEI5VMSXqI5aqIuGaILmaI12+Apd0B290A8DMBjDMBJjMA6TMAXTMQtzsQCLsQwr8QPWYSO2YDt2EcpeHMDPOIJjOEFCp3CGV53HRbK6RF5X/fmH///ptbuOe4DHeIoXnnvttZDjwm+I6jVRvSCqp0T1mKgenBCJ3Oq23uomt/qdW13lVpfcDQZvBHFGDJ4Sg8fF4FEx'+\r\n  'eEgMHhCDe/VXu/RX28TgZv3VBv3VWo37Gv1V8Eb0SzXuiwhrnsZ9tjvCmQM08/qrye4IJ3TXzBPWKHeEwwnrG437wObE1UQzT1jBr/HvSlhfEVb7L4mLsFqUJa5SmnnCqvcFcRV0p0hYVXIRF2GVI6zSGYmLsIqkJq4UxEVYuRMSF2FlIaxM0YmLsD4jrJQfEBdhJYo4nrCuENZVwroajoxPER2xEQ8JkRQpkBrpkBGfIztyIS8K4gsUQymURUV'+\r\n  '8iWqoibpogMZojlZoi47ojG7ohb7oj8EYihEYjXGYiO8wDTMxB/OxiBCWYgVWYy02YBO2Yid2Yx8x/IRDOIJjZHQCp7TwZ8jqHC7477I/r3v+po/u4C/nPsITHwdfoHjptX8cw4a4lvh7SVTPiOoJUT0iqvsi8C63Cn50+obe6jq3usKtfuNW57jVr9zqJLcK3tntiBj8WQzuF4N79Fc7xeA2MbhJf7Vef7VWDK7SXy3XXy3RuC8Ug/P0V7M07j'+\r\n  'MIa6r+apLGfbw7wrH6q5Ea9+AXX39DWAPcEfZrQFyE1b2mO8VqxOWOsF0Fd4qE1YKwmhQjLsKqR1i18hIXYX1JWBU/Jy7CKpXWnSJhFSGsgkncKRJWbsLKHou4CCsTYaWLTFyElfKdcCgpYUUIXRz/jk36AJHxCaIjFuIiIZIgOVIjLTLgc2RDLuRFARRGMZREGVRAZVRFTdRBfTRGM7REW3RAJ3RFT/TB1xik2EMwHKMwFhMwGVMxA7MwDwuxB'+\r\n  'MuxCj9gncJvxBZsxy7swX5iOIhDOMKnjpHTCZzSyv9KXuf8ecn/r3nthmP+dM49PMBjPPXcC6+9dswbx4ZDeqrXRPWCqJ4S1WOiekhU90TgbRF4y53g79zqmt4qeC+kC9zqLLc67W7whBj8RQwe5lY/cat9c0WiGNwhBreKwU36q3Vi8AcxuEp/tUx/tZiwFojBufqr7zXu08XgFP3VRI37OMIao78aqXEf6o5wMGEN0Lj3dUfYi7C6a9w7E1ZH'+\r\n  'wmrnjrBVSXeKhNXEHWGDAu4UCauWO8Jq2YjLHWHFDJp5wipFWMWSu1MkrIIJNPNx3SkSVnbC+vyTcDgjYaV7350iYaWMEAjrAo2dD7+Pj/AJoiEW4iIBkiA5UiENMiAzsiEn8qAACqMoSqAMyqMSqqIGaqM+GqEpWqIN2uMrdEEP9EY/DMA3GIaRGIPxmIQpmI7vMQfzFXkRlmIFVmMt1mOT4m/FDuzCXuI5gIM4REpH3B8ew3HSOqWlP+vji56'+\r\n  '/4vXf/e2WMe7gLwRfoPjbc8+89tIx/zg25JzwGz3VK6J6TlRPiOoRUd0nqrsiMHh7mhsi8Dq3usKtfuNW57lV8P6Tp7jVcW51lFsd4lYHxOBeMbhLDG4Xg5vF4EYx+KMYXCMGV+qvlumvFonB+fqrOfqrmYQ1TQx+p7+aqHEPfj3/aP3VCP3VEI37IP1Vf417H3eEPQmrm8a9szvCDoTVVuPeyh1hM8JqrHFv4I6wDmHV1LhXI6zKhFXBHWGZVJ'+\r\n  'p5wirmjvALwipAWHljauajuVMkrM8/0swTVlrCyhzhY8I6lTKSTXoPHyEKoiEm4iABEiMZUiEN0iMTsiIHciM/CqEISqA0yqESqqA6aqMeGqIJWqA12qEjuqA7eqEv+mMwhmKEIo7Gt5iA7zANMzEb87AQS7BcsVfhB/yIDdhMMluxA7sJYS/286mDOERSR0jrF/+d8OcZ/7/g9cuOvebcG/gTd/EAj/DUa88d88q5b5wTDmnUX+upXhLVM6L6m'+\r\n  '6geEtVfIvCOCLxFVME7tl1zJxi83+RFvdU5bvUrtzrJrY5p2oM3lP9ZDB4Qg3u41U5utU0MbhaD68Vg8PvuVnOrFWJwiRhcKAbn6a+CX2g9UwwGv45/sv5qgsZ9rBgcpb8arr8aIgYH6q++1l/10bj30F911bh30rh3IKw2GveWGvdmhNVI417fHWEdwqqhca/qjrASYZXXuJdxR1iSsIq6IywcR79FWHncEeaMQlyEldkdYYZI/5uwLsSOFDp5'+\r\n  '9z0b9SGiICpiIA7iIxGSISU+QzpkQhZkR27kQ0EUQXGUQjlUxJeohpqoiwZojGYK0wpt0QGd0Q090QdfYxC+wXCMwliMxyRMwXQi+B5zMB+LsBQrsFrRf8A6bFT8zdiGnQS0G3vDR4nriJ7riIb+sP8f/heJnfb8Ocf95m9X8buxbuEOgq+APfRc8PX7Z4556djXzgmRZ/iNRv2Vnuo5UT0lqkdE9YCo7onA20R1k6h+F4FXReAlorpAVGe51Wl'+\r\n  'udYJb/cKtDnGrg9xqP7cKfkPUDjG4VQxuEoPruNUP3GqVGFwuBoNfYL1AfzVXDM4SgzPE4BT91ST91XgxOEYMjtRfDSOsb8TgQP1VP417b8Lqob/qor/6SuPeXn/VWn/VQuPeVH/VUH9VT+Nem7BqaNyruCOsRFjlNe6l3RGWIKwiGvdC7gjzE1ZujXsOd4RZ3wuHMkW8HkoV4T+8g3LE0PHD79qoD23Ux/gUMRAb8ZAISZECqZEOGfE5siMX8q'+\r\n  'IAvkAxlERZVEBlVEVN1EF9NEIztEQbtMdX6IIe6I1+GIDBGEoIIzEG4zAR32EaZmIW5iryAizGMqzAGkVfi3XYSDhbsI0IdmAXOe3hWftI6wAO+fiY50766Kzjgg7ssjGu44bx/8RdH9/HI689cUzwL5CvnPPGuaxGI69RD97T6Jn4+5uoHhLVfaK6S1R/EtUNERi85fIVEfibO8Hz3OqM3uqU3ir4nSpH9VY/c6sD3Govt9rFrbZzqy3caoO7w'+\r\n  'XXuBteIwZVicJkYXCwG54vBOWLwezE4XQx+p7+aKAbHicEx+qsR+quhYnCwGBygv+qrv+pFWN31V130Vx0Jq53+qrX+qjlhNdFfNdS419W419JfVddffalxr0hY5TTupTTuxQmriP6qkMY9H2Hl1rhnd0eYJeLbNwXxiBg6svJdG/UBIuNTREcsxENCJEFypEZaZMDnyIacyIMCKIyiKIEyKI9KqIoaqI16aIgmaIHWCtQOHdEZ3dALfdEfgzAE'+\r\n  'wzEKYzFeQSdhCqbje8zBPEVeiCVYjpUKvgZrCWcdNmIzAWzlVTuwi6x28659+Nnfj3rthGN+dc55z/xmzKv4HTdxG395/iEeO+apY18457VzQ8YIh7jUa6J6oad6Kv6C95F8QFTBu+DeIapbIvCPlSKRqC4vEYki8JwI/JVbnRSBx7jVEW4V/B67/dxqD7faya22ado3i8ENYnAtt1rNrVZwq6XuBheJwflicLYYnCkGp4nB78TgBDH4rf5qtP5'+\r\n  'qhBgcIgYH6a/666/6iMGeYrCb/qqz/qqjGGyrv2qlv2pOWI31Vw30V3UJq6b+qpr+6kuNewXCKqu/KqVxL0ZYX+ivCmrc8xJWLv1V9giT38rKI/RTiXds1PuIjE8QDTERFwmQGMmQCmmQHpmRFTmQG/lRCEVQHKVtfDlUxJeohlqoiwZojGZohbbogE7oih7ojX4KNwCDMRQjMBrfYgImK+pUzMD3mIv5irwQS7GcZFZijaKvxToetRGbyWkrWW'+\r\n  '0XjMF/e338k+eO+OiY408596yxLiL4AsU13MCfuOu5+3jkmCeODb5/4qVz/zGG7OJaXOoVUT0jqidE9Yio7hPVXU51m6huiMDrIvAqUf0mAs8T1VkReIpbBb+37hdudYhb/cSt9nGr3dxqB7fayq02cat13OoHbrWKWy0Xg0vE4EIxOFcMzuJWM8TgVDE4SQxOEINj9VejxOBwMThEDA7UX30tBvuIwR76q676q05isL3+qo3+qqX+qhlhNdJf1'+\r\n  'ddf1SGsmvqrqvqryhr3CvqrMvqrkhr3YoRVWH9VQOOel7ByRvg/vKNfaF+RSKH9ofds1EeIgqiIgTiIj0RIhpT4DOmRCVmQHbmRDwXxBYqhFMqiAiqjKmqiDuqjEZqiBdooUDt8hS7ojl7oi/4YhCEYroijMBbjMRHfYRqxzMRszMUChV6EpYq9HCuJZw3WKvw6ctqATUJxC3ltxx7/P/A2IIMO7KRnfsV5Y/+Gq/gdN3Eb97z2AI8d+9S4L5wb'+\r\n  'fAfYG2OFQ1u4lru/F0T1lKj+JqqHnOovorpDVLeI6g991TUReFkEXhSB54jq12lc6zuu5U7wiDvBn90JHuBWe7nVLm61nVtt0bRv1LT/qGlfo2lfKQaXcavF3GoBt5rjbvB7MThdDE4Rg5O41Tj91RgxOFIMDhODg8XgADHYTwz2FoPd9VddCOsrMdhef9Vaf9VCf9VUf9VQf1VPf1VbDNbQX1XRX1UirPL6qzL6qxIa96L6q8L6q/yR3oRyR0j'+\r\n  '3VlX/4RExvOfhezbqQ3yMTxEDsREPiZAUKZAa6ZARnyMbciIvCqAwiqIEyqC8za+EKqiOWqiHhmiC5miFtuiATuiKHorcG/0wAIMxFCMwWjG/xXhMwhSFnY6ZmKXA87AAi4hnKZYr+EoyWo0f+NWPZLWedwX/bfPxLs/vc8xBfztijOM4bdzgCxTBV8Au4xr+wJ+447Xgn7iD758IvkHnmXNfGuMfY4WMGX6znmu5+3uuUX/CqR4R1QOiukdUt4'+\r\n  'nqJlH9TlRXieqSCLwgAs8S1WkReEIE/iICD3Org9xqP7faw612cqtt3Gozt9rArdZyq9XcagW3WsqtFmna54nBOWJwJreaxq2+41YTxeC3YnC0GBzBrYaKwcFisL8Y7CsGe+mvuonBzmKwoxhsp79qLQabi8Em+quG+qu6YrCWGKyuv6qiv6ooBsvpr0rrr4oTVhH9VcGI/5c3tw0eoZ293rVZHyAyPkV0xEJcJEASJEcqpEEGm5oZWZEDeZAfh'+\r\n  'VAExVEaZVERX6IaaqIO6qMRmhFAS7RGe3yFLuiOXuiDrxVvIL7BMIzEaIxT0AmYjCkKOx0zMZt45mGBQi/CUsVezqdWYDVJreFba8lrgz+3+PtOr+91XNCBBS3+L8Y7afwzOI/frOEqfvfxTdzGPcc8cOxj5zxx7nNjvDLWG2OGQ1zqNZd66e7vmUb9bz3VQ6L6i6juENWf+qobs0UiUV0hqt/0VedF4BkReEoEHieq4NflH3In+JM7wX3uBHfr'+\r\n  'rXborbbqrTZyq/V6qx+41SputZxbLRGDC7nVPG41i1vN0LRP5VaTxeB4MfitGBzFrYaLwSFicJAY/FoM9uFWPcVgVzHYSQx2EINtCaulGGwmBhvrrxoQVl0xWFN/VU1/9SVhVRSDZfVXpfRXxcVg0QhfvVXT/+ER2tbsHZv1Pj5CFERDTMRBfCRGMqTEZzY1PTIhC7IjF/KhIL5AMZREGZRHZVRFDdRGPUVpiCZojlZoiw7ohK4K1gO90Q8DMEg'+\r\n  'Bh2A4RmGMYo7DREwmk6mYjpkKPBvzFHkBAS3EElJaxq9WkNUq8lrzLxIL/GstyazjkeuF8gbd4UZN/CZN/CautZlrbeZaW7jWFq61mWttDt/y2h0E36Dz0DnBtxc+M8ZLY702ZsjY4TdE9YpLvSCqpxr1x3qqB0QV/P6520R1k6j+IKqrRHWZqIJfMH1OBP4qAk+KwGMi8IgI/FkEHhCBe0XgLm61jVtt5lYbuNWP3GoNt1rJrZZxq8XcaoGmfY'+\r\n  '6m/XsxON3d4BQxOIlbjdO0jykjEsXgMDH4jRgcIAb7uRvsLQZ7iMGuYvArMdheDLYRgy3FYFP9VSP9VX0xWEcM1tBfVdVfVRaD5fVXZfRXJQmrWIQGb9X0f35EslHv4UNEQVTEQGzERyIkRQqkRlpkxOfIhpzIgwIojKIogdI2vxwq4ktUQ03UQX00RjO0UKDWaIeO6Ixu6KlofdAPAzFYAYdiBEYRzFiMx0RFnYypCjsdM0lnFuYq8nxSWojFA'+\r\n  'nEpaS3332p//ui5TT7a5vhdzt3nmeD+8TCOmeuk+c/gPH5D8C+Qv3v+Bv50zF3cd84j5z4xV/AN0q+MGfx4RzhEVP9wqZeLuRZR/a1Rf0RU98XfXaL6k6huEFXwC6WvENUlojovAs8Q1WkReEIE/iICD3OrgyJwP7faza12uBPcyq02cav13Gott1qtt1rBrZZyq4Xcaj63ms2tZnKradzqO241UQyOE4OjxeAIMTiUWw12NzhADPYVg73EYHcx'+\r\n  '2JlbfSUG24nB1mKwhf6qqRhsKAbricHa+qsaYrCKGKwkBsvrr8pEevFWRv/3R8TQuu/ftWEf4GN8iuiIhbhIiCRIjlRIg/TIbHOzIgdyIx8KogiKoxTKogIqoypqKEZt1ENDNEFztEJbReqATuiC7uil8H3xNQbiG0UcihEYrZhjMV5BJ2Iy8UzBdMWdiVlENIdXzSOpBXxrEXkt9ecq/1/7NiC3OH6HZ/YY7wAOmeOoV48j+Pr9WVzEZVzz3B+'+\r\n  '45ZjgO8D+MvcD5z42xlNjvTDma2OHzBMOib7XXOqF6Hvq7i/4LZkPiOovorpDVLeI6g+iukZUl4nqogg8R1S/EtVJEXicqI6KwJ+51QEN+z4RuEvDvv0rjXx7kdjGXSK3+oFbreJWy7nVEm61kFvN5VazuNUMTftUTftkMTiBW33LrUZxq+HcaogYHCQG+4vBPmKwJ7fq5m6wsxjsIAbbisFWYrC5GGwsBhuIwbpisBZhVReDX4rBivqrchFnvp'+\r\n  'XR/8MjtLbOOzbsfXyET2xcNMREHMRHYiRDSnyGdMiELMiOXMiLAiiMoja+BEqjHCriS1RDTdRBfYVphKZogdZoh46K1Qld0QO9Fa4v+mOQAn6DYRipkKMxlnjGY6KiTsZU4pmuuDMwi5zm8Ky5pLWAfy3x8QrPrfHResdudt52Y+z2bPAFioPmO4xj1nESZ3AevyH4/onrXruBPx171zn3nfvIGE+M9cx8L439jzlYB9fiUi+J6vn3Gnl3f4+I6'+\r\n  'j5R3SWq20R1k6h+J6qrRHVJX3VBX3WWqE6LwBMi8BeiOiwCD4rA/SJwjwjcKQK3cavN3GoDt/qRW63hViu51TJutZhbzedWc7jV99xqOreawq0mcavx3GqMpn2kpn2YGPyGWw3kVv24Ve+MIlEMdhWDncRgBzHYRgy2FIPNxGBjMVhfDNYRgzXFYDUxWPkdrhXhP/5r5SKEl8WLFFr17D0b9iE+RlTEQGzEQ0IkRQqkRlpksLmZkRU5kAf5UQhF'+\r\n  'UBylUBYVFKEyqqIGaqMeGqKx4jRDS7RBe3ylWJ3RDT3QW+H6oT8GEcUQDFPIkRitmGMxXkEnYjIJTVHYabxqBkl9T1qzMQ+L/H+511Y77kd/2+j8rcbaadw95jmAQ444iuAfiE7jLC7gkueuIvgOsJu47Zx7zn1gjMfGemreF8YOfkDtjbnCIS71mku9IKqn00Siu7+HRPUXUd0hqltE9QdRXSeqK0T1m77qPFGdIapTIvA4UR0lqkMi8CcRuE8'+\r\n  'E7uZWO7jVVg37pmYisbFIdCe42p3gCm61lFstdCc4j1vN5lYzudU0bvUdt5rIrcZxq9FicAS3GsqtBnOrAZr2vmKwlxjsLga7cKuO3Kq9GGwtBluIwaZisFFUkSgGa4vBGmKwSqS/w9UjvP9WRf/Pj4ihZXvetWkfIDI+tXHREQtxkQCJkQwpkQbpkQlZkB25kNdmF0BhFEUJlEY5VMSXClENNVEH9dEITRSnOVqhLdor1Ffogm7oSQh90E/x+m'+\r\n  'MwhijiMIxUyNEENBbjFHQCGU3Cd/xqKllNF4zBf4HEFnp+qWNW+tsPzl1vnM2eDb5AEXwFbL+5D1rPYRzDSQT/xH0ewTfoXPH6ddxw7J+449z7xnhorODnh54Z+6U5XpsrRNbhN1zq1VSuRVRPJnEtd38PiOoeUd0mqptE9TtRXSWqy0R1kajOEdWv+qqT+qpjRHVEBP4sAg8Q1V4N+y4RuF0EbhGBG0XgOhH4A7daxa2WcavF3GoBt5rLrWZxq'+\r\n  'xncaiq3msytJnCrb7nVKE37cE37EE37IDHYn1v15VY9uVU3btWZW3UUg23FYCsx2JxbNXE32FAM1hODtcRg9Yj/iV/dGzxCi/X3i8XhYnG4WBO/mGstFoeLxeFicbhYE7+Yay3mWou51iKutYhrLeJai7jWIk38Iq61iGst4lqL3CEu5FoLudZCd4gL3SEuDFdCFVRXjFqoiwZojKaK0wKt0Q4dCKYTuqK7ovVEH4XrhwGKNxhDiGcYRijkKIwh'+\r\n  'oHEKOp6cJvKsyaQ1BTMw23MLvL7EcUEHtsYz64y1yfjbsNOcex1xAIes8SiO4zTO4gIuee0qfnds8A3St3HPGA+M9diYT4z93ByvzBX8/HY4JPr+4VIvudSz8VzrW67l7u++Rv2unupPorpBVNeJ6soArkVU54nqDFGd1ledIKpfiOqwCDxIVPuJao8I3CkCt4nAzSJwA7daW0skVheJ3GqpO8FF7gTnuxOcU0okcqvp3GqKpn2S3mo8txrDrUZ'+\r\n  'yq2Hc6htuNZBbfc2t+mjae2jauyYSiWKwA7dqw61acqtmYrCxGGwgBjVPoVr/x6+2/8ceofmJIoUWPHnPpn2Ij/GpzYuO2IiHhEiC5EiFNEiPTMiC7DY5F/KiAAqjKEqgNFGUQ0VURlXUQG1FqYcGaIJmCtQSbdBOoTqgM7oqWHf0RB+F64f+5DJIAb/BUCIaoZCjMJqUvuVX48lqAu+ajEBiszw/z0eLHL/MuauMsdZ4G7wSfAVsh/l3Y791Hc'+\r\n  'RhRx/DSQTfoHPOcxdxxTHX8Idzbjn3jjH+MtZDYwY//fjMGl6Y67U5Q+YOv+FSr7jUCy71lEs9JqoHRHVPo35HT3WLqP7gVNeI6jJRXSSqc0T1q77qpL7qGFEd0Vcd0lcdIKq9InC3CNwuArdyq00icL0I/EHDvkoELheBS0TgQm41j1vN5lYzudU0bvUdt5rIrb7lVqO51QhuNVTTPljTPkDT3k8M9uJW3blVF271Fbdqp2lvo2lvIQabisFGY'+\r\n  'rBexBvhhhGi/Qfx/Kce4bkD3rFhHyAyPkE0xEQcxEciJLWhKZAaaZERmZEVOZAb+Wx4QXyBYiiJMiivCJVQBdVQE3UUpT4aooniNEdLtFGkduiITgTRFd0VrSf6KFw/9CegQQr4DYYq4nA+NZKcRpPVWN4V/DfJx1M9N9NHcx230HlBi7/SeMEXKNaZa5NXt2Gn9ey1zgM4hKM4jlM4iwu45JjgG6R/xw3n3jbGXWPdN2bwE5BPzBH8/PYrc/5j'+\r\n  'blXkWlzqJVE9E31PhotEorpPVHeJ6k+iukFUvxPVVaK6RFQXiOosUZ3WV50gql+I6rC+6qAI3E9Ue0TgTqLaJgI3i8ANIvBHbrVGBK7kVsu41WK91QJuNZdbzdJbzeBWU7nVZG41nluN5VajuNVwbjWEWw3iVv25VV9u1ZNbddO0d9a0dxSD7cRgK27VnFs14VYNInR6q5r/jEdodv5IoZmh92zchzbtY0RFDMRGPCREEiRHKqSxsemRCVmQHbm'+\r\n  'QF/lR2KYXQXGUQllUUIRKqIrqqKUgdVEfjRSmKZqjJdG0QXuF6ojO6Kpg3dGTgPooXD/0V7yBBDRYAYdgGEmNEIqjyGssJvj/lLcBOdvf5jt/sbGWG3u1V34070ZssZbgH4h2Yz8OOuMwjuEkfvXcOVzEZcdec84fuGWMO8b6y5gPrOuxOZ6a64W1vDZ3yBrCIS71mku9EH1PRd/jwSJxoEaeqO4Q1S2i+oOorhHVZaK6SFTnieqMvuqUZv04UR'+\r\n  '0lqkP6qp9E4D4RuFsE7iCqrSJwE1GtF4FrudVqbrVCBC4tLhKLiEQROEfD/j23mu5OcIo7wYncahy3GqO3GsmthnGrb7jVQE17P27VW9PeQwx25VaduFUHbtWWW7XkVk0jvQo1iZDjrWr+8x4RQ9O2v2vTPkBkfIJoiIk4NjE+EiEpUiA10iIDMiOrTc6B3MiHgvgCRW18CZRGOVRUhMqoihqopdh10QCNFKcpmqOVIrVFe4XqiM4E0hXdFa2no'+\r\n  'vVGXyL6WvEGktIgfvUNhvKu4L8xJDbe85N9NN2xs5w3zzPBPWTwBYpV5vsB6x2xybq2YZf17sUBBN+gcxTHcQpncd4xv+GKc64794Zx/rTGu8a8b22PzPHEXM+s6aW5/7GGkLWE33Cpl1zqOZd6QlSPvuZafUWiu7/bRHWTqH4nqqtEdYmoLhDVWaI6ra86SVTHiOoIUf0sAg8Q1V591S4RuF0EbhGBG4lqnYb9BxG4SgQuF4FLROBCbjWPW83m'+\r\n  'VjO41TRu9R23msCtvuVWo7nVCG41lFsN5lYDuFVfbtWLW3XnVl241Vea9vaa9taa9hYRN72Vy3/BI/xd9kg27D18iCiIihiIjXhIiCRIblNTIg3SISOyIJuNzok8yI9CKIJiNr8kyqA8KirEl6iGGgpSG/XQQGEaoanitEAromiL9grVEZ0Uqwu6EVAPReutaH3Rj1f1J6mBfGsweQ3z5yh/H+e1SW87sJnOn2OsBcZdYo4VXg2+xPqj9WzEFuv'+\r\n  'cgd3O2I+DOIxfEHz/6q9eO4eLjr2Ma879wxg3jXXbmPeM/cAcj8311JwvzP3KGt5YSzjEpV4T1Asu9YxL/U1UD4nqrx5cy93fnxr1G0R1naiuENVvRHWeqM4Q1SmiOk5UvxDVYRF4UF+1n6j2iMCd7gK3icDNInADUf0oAteIwJUicBlRLeZWC/KIRG41i1tN/5xrZdTIc6vx7gTHuhMcxa2Gc6sh3GqQ3qo/t+rDrXpyq27cqjO36vieSIwUDr'+\r\n  'WN8NlbtfwXPML9I0UMTdjxrk37AJHxic2LhpiIg/hIhKRIgdQ2Ni0yIBOyIjty2ey8KIBCKGrji6MUyqC8IlTCl6imGDVRG/UUpQEaEU5TtFCgVmijSO3QgWS+Uqwu6KZgPYioFyn14Vd9yepr94wDMeRf/GuwmYa4iqG8ZrhAGyEOgy9QjOJao7nWGK41VhM/lmt9G95s3cE/ce/CXhxwfYdw1MfHcQpncN6xvznnCq4b44ax/jTmHWPfN8dDa'+\r\n  'wze3uSZuV9aw2trCVlT+A2XekVQz0Xfk14ikageENU9orrt7u+mRv13PdU1orpMVBeJ6pw7wF+J6iRRHSOqo0T1swg8QFT7iGq3CNxBVFv1VZtE4DoRuFYErhaBKzTsS0XgIg37PA37HBH4vQicxq2+41YTudU4bjWGW43kVsO41WBuNZBbfc2tenOrHtyqK7fqxK06RFz9Vin/FY/QmFzvhMa+ec+mfYgoiIroiI14NjIBEiMZUuIzpLO5GfE5'+\r\n  'siEHctvsfCiIwihq40ugFMqigiJUQhVUV/iaqK0o9dBAYRqhqeI0R0sCaoN2CtVBob4in87oqmDdeVVPkurNt/r6b4A/v/HccB+Ncex45wQt/jTjfW/suV5ZaM6l1hB8DX+Ntf1ovRux1Rk7sBv7cRCHEXyD9AmcdsxZXHDOJedexe/GumnM28a+Z60PzPXInE/MHbxB0ytreWNN4RBB/cOlXoq+Z6Lvb9H3qLNIJKq7RPUnUd3QqF/XU10lqku'+\r\n  'c6gJRnSWq00R1gqh+IarD+qqDRLWfqPaIwJ36qm1EtUUEbhCBP4rAH7jVSqJaJgIXi8AFInCuCJzFrWZwq6ncajK3mpBMJLoTHM2tRnCroe4EB3Or/tyqL7fqxa266606R3odah8h0VuV/Nc9IoZGHnzXhn2AyPgE0RATcRAfCW1mEiRHKqRBepubCZ8jG3Iij83Oj4L4QmGLoQRKo6wiVEBlhaiC6qipILVRT1EaoBHxNFWc5mipQG0IqC3aK1'+\r\n  'RHIurEq7qQVDe+1YO8er+VWOBfwxwzyjnfOneScaYad4Y5gq+AzTf/Yix31CrrXIv1rmEztmGXa9yLA/gZRz13HKdwxrHn8ZtzrxjjmvH+QPAGAXfM/Je5Hprzbyt5ag0vrOW1NYWsLfyGS73mUi+41FPR91j0PRB999qKRKK6RVR/ENU1orpMVBeJ6hxRnSGqU0R1nKiOatYP6at+Iqp9RLVbBO4gqq1EtUkErieqtfqq1SJwhQhcKgIXicD53'+\r\n  'GpOeq6lYZ+uYZ8iAieJwPEJRSK3GsWthnOrIdxqILf6mlv14VY9uVXX/xa3+t8e4eEFIoWGukMcxrWGuUMcFv7UBkZHLMRFAiRGUhuaEqmRFhmQ2QZnQXbkQh4FLYBC+MLGF0NJlFaAsqiIygpRBdUJoSZqK0o9NFCYRgrTFM2JqIUCtSaitmivUB3I6Sue1Zm0uvqvl4/7eW6gj4Y6dqTzxnpmgrG+M+50c8zy6jzzL7Sepda30prXYB02Omsr'+\r\n  'dmA39uMgDuMXnHDMaZzFBedeMsZVY/1uzBvGvm2Ou+a6b85H1vvEGoK3l3tlTf9Ym1zhWlzqJZd6zqWeENUjorov+u624FpEdZOofieqq0R1iaguENVZojpNVCeJ6heiOkJUPxPVAaLaq6/apa/aTlRbROBGfdU6ovpBBK4SgctF4BJutVAEzhOBs0XgTBE4TQR+x60mcqtx3GoMtxrBrYZxq8HcagC36setekd6EeoRIetbdfy3PSKGB+96x6Z'+\r\n  '9gMiIgmiIYRNjIx4SIgmS29SU+AzpkBGZbXJW5EAum50XBVAIRWx8cZS0+aVRTvErojKqKEZ1xaiJ2gpSDw0IqJHCNEEzxWlBRK0UqA2vakdSHfhWR/Lq4s8e/t/3bUB+42/DnT/aWOOMO8krU80309xzrGOBoxZb63Ksdh1rsR6bXec2BN+/uhcH8DOOeO0Ygh9QO+Occ7hojMvGumbMP4x9yxzB++fcM+cD635sDU+t5YU1vbbWN9YYDnGp1w'+\r\n  'T1QvQ91U89JqqHRPVXM67VmGsR1Q2iuk5UV4jqN6I6T1RniOoUUR3XrB91B3iIqA4S1T6i2qOv2klU24hqswjcQFQ/isA1InAlUS0TgYtF4AIROFcEzhKBM7jVVG41OZ5I1LB/G4NrReVaUbgWtxr0vkh8JxzqG3HjW1n8KzxC/XNFsmnv4UMb9zE+RXTERBwbGR+JkBTJbWoqpEF6ZLLBnyMbctro3MiLAja8MIqguKKXRBkFKIeKilAZVRSiO'+\r\n  'moSUG0FqYv6BNNQYRorTFM0J6SW5NSarNryruC/Tj7u7vnePvra8YOdN8wYo4wZfIFiormmeHWGdcyyrnnWuQhLHb0Sa1zXOmx0zVuxA7uxDz95Pvj5oV9wwrGncda5F4xzCVeNed3YN8zxp7numvO+uR9aw9/W8syaXlrvP9YY8ukQfkNQr0Tfc9H3hEs90qTfJ6p7DTXy9blWXa5FVFeJ6hJRXSSqc0T1K1GdJKpjmvUjRPUzUR0gqr36qt2a'+\r\n  '9R1EtVVftUkErieqtSJwNVGtIKqlInCRCJwvAucQ1fca9ukicIoInCgCx4nAMSJwJLcaxq2+cSc40J1g/wiZ36riX+HxL3eIfSa+Y9Pex0eIYvM+RXTEQlwksJmJkRQpkNrGpkV6ZLLBWZANOW10buRDQeUvjCI2vjhK2vwyKKcAFVCZgKqgmmLUIJRaqKso9RWlAQE1Vpgm5NSMZ7UgrVZoh688181HvRwXdGADnT/EOCOMOcb448052fzTEPw'+\r\n  'D0RxHLrDmJVjuWla7xrVYj83Yhp3YiwP4GUdwzLEnnfMrzhnjorEuG/Ma/jDHTXPdNuc9cz+whsfW8tSanltb8Pa+b6w1HOJS/3CpF1zqmej7m0s95FJ/cam7RPVnLa5Vg2u5+7uiUf+NqM6Lv7NEdZqoThDVL0R1mKgOEtV+otqjr9pJVNuIaou+aoMIXKev+kFftYqolovAJSJwoQicJwJni8AZInCqCPxOBE4Qgd9yq9EfiURuNZRbDYo4+K'+\r\n  '0i/hUfod4JI4V63H/Xxn2AyPjE5kVFTMRGPBuZEEmQDCmV9jOkRQYbnBlZkM1G50Qem50PBVHYphdBcZIoidIKUA4VFKESAX2JaopRQzFqEVEd1FOUBqTUiF81JqumvKsFAol19HwXr/dwfB/nDTDON54dbuzR5hvn1YmYYj0zrG+29c5z9CIsc20r8QPWEctGbMEO7Ebw80M/ee0QjuK4c04heIOA88b6zZhXjH3dPDdcU/AOYHfNHbx/4UNrC'+\r\n  'd599Zm1vbTG19YasubwGy71iks951JPudRjonpQh2txqdtEdZOo/iCqa+7+LhPVRT3VOfF3hqhOEtVxojpKVIeI6iei2qev2k1UO4hqK1FtEoHriWqtvmq1CFxBVEtF4GKimk9Uc0TgLBE4XQROEYGTuNV4EThWwz5Kwz484vVw/whR3qrhX/kR6l4qUqirRr6rSOwqErtyrS76rS7E1UUkdhGJnUViZ+LqLBI7i8ROxNVJv9WJuL4irq+Iq6Nm'+\r\n  'vqN+qyNxdSCuDsTVnrjaE1c74mpHXG2Jqw1xtSGu1sTVirhahasSUXXFqKkYtflUXXKqj4Z8qxF5NfNna/9v7/VOju3unKDFD+4fBxl3qFdGmm+suSdYy3eOmmad31v7XCxwTUuwnEBWYy3WG2UztmEn9nhuPw7iiGOP4aRzT+OcsS4a85Kxgzdo+t1cN81529z3rOGBtTyypifW9twaX1l78O734RCX+odLvSSoZ1zqb9H3iKjui767VbkWUd0'+\r\n  'gqutEdZWoLhHVBaI6S1SnieoEUR1zB3iEqH4mqgP6qr2a9V1EtZ2otmjWN4rAdUT1g75qlQhcLgKX6KsWisB5InC2CJwpAqdxq+9E4EQROE7DPibS69CYCLnequDf5hEx1OnUOzbtfXyEKPjUBkZHLMS1kfGRCEmR3KamQhqks7kZkNkGZ0V25CKcPDY7HwqisE0vYtOLoyQBlUZZBShPLBUVobIiVEE1IqpBSrVIqg7fqkteDd9KrKXng4D8yt'+\r\n  '+6OrenMfoZd6Dxh5hvhHnHOGKcNU2yxqnWPQOznTGfKBZhGVYSyRqsw0ZswXbsxj785JhDOOq84zhljDPGO4/fjH3FHNfM9Yc5g/cvDN4g8y9reWhNf1vbU2t8Ya2vrTlk7eE3BPWaS70QfU+51GMu9VA/9Zfou6OfulWeaxHVNaK6TFS/EdV5ojpDVKc41XGiOkpUh4jqJ6Lap6/aQ1Q7iWobUW0WgRuI6keiWiMCV+qrlhHVYhG4QATOFYGzi'+\r\n  'GqGCJwqAieLwAki8NsI+9+W/9/wEW4ROWKo/dl3bdoHiIxPbF5UxEBsxLWRCZAYSW1oCqRW2DRIhww2+HNktcnZkctG50E+4imIwja9iE0vhhIEVMrml0V5BahARJUUoYogrEpO1VGTdwX/1SexJp5v4aM2ju3onC6e6WG8Psbt75XB5h1mDaOs6VtHTcB31hx8/8T3mEsQCwljCZYj+AbptViPzdiGndjjtf0Ifn77sHN+ce4JnDbWWWNewCVz'+\r\n  'BG8v97s5b7q+P63hrrXct6ZH1vbEGp9b60tr/sfaw64h/A+XesmlnnOpJ0T1iEvd51J3ieq2fupmKY18Ca5FVJeI6gJRnSWqX4nqJFEdI6ojRPUzUR0gqr1EtYuothPVVs36JhG4jqjWEtVqEbiCqJYS1SIROF8EzhGB34vA6SJwigicGPF0eNl/4rtD/9UeoVZ1IoVavXrPpn2IyPjE5kVDDMRWwHhIgMQ2NBlSILWNTYN0NjcjPrfBWZEduQg'+\r\n  'oj83OhwI2vBC+IKJiNr6EjS9FQGVQTgEqKEAlXlWZpKrwrWrkVdOf9fy/kdeaO6a1v7V3bifjdPNsb+N/bZ7gS6xDrGGEo8ZY33jrnWz9U50xE8F3gM3HIgJZhpVYg3XYiOAH1LZjF/bhJ8cewlHnHjPOKZwx5jljXzTHZXNdM+cf5r5lDcHb+95zXQ+s7bE1PrXWF9Yc/P6ON64hHOJSrwnqBZd6yqX+JqqHmvS/uNQdorpFVDeKisQvNPKFuB'+\r\n  'ZRnSeqM0R1iqhOENUvRHXYHeBBd4D7iWoPUe0kqm1EtVlftYGofiSqNfqqVfqq5US1WAQuJKp5RDVbBM4UgVMjPQ9NjlDubdX/Oz1Czde+Y9Pex4f42OZ9imiIiTg2Mh4S2swkSIYUNjUV0ih2OmS0wZmR1SZnR04bnZt48qKADS9kw79AUSIqbuNL2vjSRFSWlMrzqwpkVUnnVQU1/L+u5xv6qKljWzqvnTGCe8jgCxQ9zdPXqwPM/421DLe2U'+\r\n  'Y781tqD75/4DtOJYRbmOnshlhDJcqzGWqzHJmzFTuxxzH4cdM5h/GKMEzhtzLPGvmCO38x1xZzXzX3DGv60lrvWdN/aHlpj8OsVnlnzS2v/xzWEXEv4DZd6RVDPudQT0feYqB6IvnvFuRZR3SSq34nqWn6RmFcj7+7vnEb9V6I6SVTHOdURojpEVD8R1T6i2k1UO4hqq2Z9E1GtJ6q1RLVaX7WCqJaKwEX6qvlENVcEfi8Cp0eY9rba/x0f4Rbv'+\r\n  'RQw12v2OTfsAH9m4j/EpotvAmIiD+DYyIZIQTTKkQCobm8bGpkMGZLbBWYgnG3La6Nw2Oi8KEFFBG16YiIqgmI0vYeNL8aoyJFVW11WevCr7s7r/1/ZaA8cFHVgL57cxVgdjdjZHd3P2NvfX1hL8A9FQ6xxp3WMVfjwmO2sqMczEbMwnjkVYhpVYQzDBD6gFPwG5BduxC3sdewA/I3j/nGPGOolfjX3OHBfNddmc18wdvL3vTau8bU33rO2BNT6'+\r\n  '21qfW/Nzag98+9Ma1hEME9Q9BvRB9z7jU31zqoej7S/TdFX1/atJvENV1orpCVL8R1QV3f2c16qeJ6oT4+4WoDhPVQaI6QFR7iWoXUW3XrG8hqo1EtY6oftBXrSKq5US1RF+1kKjmEdXsiOvdBb77ttr/nR+hRjkjheo/edemfYCPbFwUREV0xYyJuIhvMxMiiQ1NhhQ2NTXS2Nh0yEAWmW1wFmSzyTkJKBfy2Oz8NrsgERWy4UWIqCiKk1NJsi'+\r\n  'pNXuX+RWLlnFXByBWtorKSfkkCVYVTNXFYXRwGX16tFe5lDf2sZ6D1DXHkcAUfjeAbdCYSwRRMd/YszMVCAlmC5ViNtViPTdiKnY7ZjeDtTX5y7iEcNdZxY54y/hnznMdv5rxi7uvWcMNagjcov2ttwa9XeGitwS+HeWbtL1zDa9cSck3hN1zqFZd6zqWecqnHXOoBl7pHVHdE303R94fou0ZUl4nqIlGdI6pfieoUUR0nqqNEdYiofiKqfUS1m'+\r\n  '6h2aNa3uQPcRFQbiOpHfdUazfpKolqmr1qsr1oQ8Ulo7n/hN/D9qz9CdfNECtX6+12b9oFNi4woiEow0RHLJsZFfBuZEElsZjKkIJxUSGNj0yGDzc1MIlmQzSbnsMm5CCgP8tnsAoRU0IZ/QU5FeFYx0irhvzI+rui5Kl6v4bi6zmvomabGaWnctl7paL4u5u5hHX2sLfgXyMHWO1SxRyr6WGeNx2RimIbgG6TnYD4WYRmxrMQa/Ijg57e3YDt2'+\r\n  'Ya9zDuBnYxxB8PZyJ439qznOmuuClV0yd/D+0b9by01rum1t96zxvrU+suYn1v7cNbxyLf+4pnCIS/3DpV5yqWdc6m+CeqSfus+l7hLVn0R1I4dIFH1XieoSUV0gqrNE9StRnSCqY0R1hKh+JqoDRLWXqHYR1XbN+hai2khU64lqrb5qNVGtIKolke6HlkTI+La6/y8/QtVnRLJp79m0DxHZxkVBVMSwgbEQl3DiI6HNTIJkNjSFDU2FNMSTDul'+\r\n  'tbiab+zmykkx2m5zTJucmorxElB8FSaoQ3/oCxVHa38t7vrLjqvtbbefWN04Tz7YwRxtzdfBqZ2vobj29re9rax3o6CEKPkLhg+8AG0cEkzDFCNMxizjmYiGCH1BbjlX4AeuxCVuxw7G7sc+5P+GQsY7iuLFPmeOMuYK39/3N3Fes4Zq1/GFNt6wt+P0df1nrQ2t+bO1PXecL1/LaNb1xbeE3XOo1l3pBVE9F32Oieij6/uJSd/RTt4jqD036tU'+\r\n  'wiMb1IJKrzRHWGqE4R1XGiOkpUh4nqIFHtJ6o9RLVTs75N/G0mqg1E9aO+6of3uFakcGh5hH+Dr67/1z7CESJGCFVe+I5Ne8+mfYjINi4KohJODMSyiXER30YmRBKbmQwpCCiVTf0MaYkjvc3NZHMzIwvpZLPJOWxyLj6Vh5zy6bjyk1bwX1Efl/RcOR9Vcmw159QyRj1jNTJuM+O3Mmc7839lLV0d1dMa+ypw8P0TgxV8GEY5cywRTEDwDdLTM'+\r\n  'BNzCGQ+FmEZViL4+e0fscHrm7ENu5y3Fwfws7EOG/MXnDDHaXOdNecFc1+yhqvWEvx6hZvW9qc13rXW+67ikbU/ca3PXctL1/SPawv7NAr/Q1CvRN9zLvWESz3iUvdF310udZtL3dSk/05UV9Nyrc+4VkqRSFS/EtVJojpGVEeI6meiOkBU+4hqN6faQVRbiWoTUa0nKrdioTURvntb0f+xHhFD5aa8Y9Pes2kfIrKNi4KoiGEDYyl6HMSzkQmR'+\r\n  '2GYmJYjkSGlTP7OpaZGOiDLa3Mw293MCyobswjAnSeVGXvIqgCL+X8JrZR1X0fFVnFvDOHU828D4Tc3V0txtHRH8A1FnIuuusL0d/TUGKXbwHWAjFD/4/tVxRpiEKUQxHbMQ/IDaQizBcqzCD1iPTQjeP2eHc4J3/9pnjJ+MdwhHjX3cHCdxxpznzH3RGi5byzV78Ye13bLG29Z6z5ofWPtj1/DUtbxwTcGvF33jGsMhLvWaS73gUs+41N9c6iG'+\r\n  'X+ouo7hDVn1zqBpe6TlRXiOq35FwrKddKpJF393dCo/4LUR0mqoNEtZ+o9hDVLqLaTlRbiGojUa0P3vT/f9RHuPo7EUOl3KiWIq6SxFWSuEoQVwniKq7nKq6hL0ZcRYmraDgBaSS2mUmR3IamtKGpfZamQTobm4GIMtnczKSUlV9lI6scvCv4L5BYYc8X91Fpx5Z3bmXPVDdW8AWK+uZp7NXm5m5tHe2tqRORdVPYXuiryAOc9Y2iD8MoAhiLCQ'+\r\n  'QxGcHPD8004hzMxyIsRfAGAWvwIzY4ZjO2Yadz9yB4/8KDOGzsX8xxwlyncdYqL1jDb9ZyxZquW9sNa/zTWu9ac/D70x667uC3Pz5zzS9d2z+uMeTTKfyGS73iUs+51FOCeiz6Huin7hHVbaK6mVokcqlrRHWZqC4S1Tmi+pWoTrr7O65RP6qn+v+1d5/RUpTZGse7G5CcBSQKShIRkSAYBgczRlRUFFFEFBFFJIgwhIsgQxDJIjmIBEFykAySJ'+\r\n  'MeD5HDIOWeovr/y8mHWXWu+3GuAkWL94Zzuqvfdez9P77fo06dqieVvEVPNZ6q5TDWbqaYz1Y/RdvFw1bmmNwFGg4eHJlGwZEjBPKkULg3SK15GZGaCrIp4C3IoZC7myIO8CnqbguZnooKKWpiBiqAoO92F4vrWPexV2r/3+76c5x623xOOedrxzxvrJWO+ao4q5qtm7hr2eJ+AtQn5MUHrE7aRI/5B6OaM9jnCz6+2Q0ejdEZ3puiJ3gh/A3IQ'+\r\n  'owzBcIzEaI+Nw0RMwXTHzMIcY8zHImMuxjJzrDTXGnMmmHuDGDaLZZuYdoptlxj3yuKAmA+L/ZgcTsrltJzOye2iHMO7b8cDXeqyLnWBoc7qUqcsfcctfUd1qUPOp/Yz1R5LX2IeXYuptjLVJqb6hanWMdVqplqhUy1lqsVMtZCp5iWLB3OSBMHMaPdr31T/skWDcn2SKFgypFC0VEijcOlZIiMyK2AWBsqG7AqZSyFzs8ytyKegtzNPAUUtxEp'+\r\n  '3sNSdFsWietfdCC1W1uMP2qe87x5zbAVjPGfMF439inleN++bRKvOZO8R8AN71iFoPcKGH9Bp7Khm+C+ityZ+W3RghE7oih5G7IW+GMAs32IoRmCUx8ZgAibbdypmYLYxfsICY/5s7KVYYa7V5lxr7vD2ChvFskVM28WWKMY9Yg3vn3ZQ7EfkcFwup+R0Vm7n5XhJroGc41cY6pIudV6XOqNLndSljln6DutSB3Wpfc6ndjuf2ul8als2XYupNj'+\r\n  'LVeqZay1SrmGo5Uy1hqkU61QKdak60+1W5rqPt12XxPua6j7nKMldZ5irDXPfG0yEDA2VSwCzIpojZmSinQuZWyDzskxe36VP5UZClCutd4Z9iLFbCY2V89YB9H3LMo45/0jjPGLeiZyqZq7J5qxIs/AFR+BPI9wn5ob3rErYBGhH5H8RuQfTwA9JtjNIOHZmhM7ozR0/0Rvj724MwBMMwEqMxzn4TMQXTHDsTc4w1DwuNHV4/epm5wqvfrzF3g'+\r\n  'hg2iGWTmLaKLby91S6x7hXzAfU4JIejcgnvX3tabuHdty/I9bKc415e8cu61AVd6qwudVqXOqFLHdWlDjHVAV1qD1PtYqodzqe2Op/alEHXsvwlMNUaplrJVMuYajFTLbgelr9/t8UjsWhQyrJYirlKxpMjJVukVrh0yKB4mRjoZgXMilsUMQcT5VLIPEyUVzHzsdTt+lYB9irs37v8fY/nStvvft+Vc9zDxnnco08b+3lzhW+xvspkVYj2FvHe'+\r\n  'sWdNNvyAoHUQfgLsU0c2JnYztCR8ayZoiw4If0GtK3qgF5P0xQB8i6EYgVGeG4PxmOyYHxFeIHM2wsv7zscicywx13JzrjJ/eP+O9QjvPrSFmbaJcadYd4t5n9jD24sekctxOZ2U2xl1OK8Gl+QcyD8e6FKXdKnzutQZXeokUx239B1hqoOWvn1O0ncz1U6m2s5UW5hqY2pdK6WuldySyFQrmGpptMv1a6p/3YLiA2IMlFTBkiOloqVmjLQKlx4'+\r\n  'ZGSWzAmZRwGzMkx05WSk38uhZefWu8E8hX9/pseK+KmXfso77m0fKGy98g6KCOZ4lzgtEepmJX7NX+BPItwn4LiFrOeIjRvuEuA0I/RnCD0i3MMrnaMMI7dERnRmjO3qiN/pjEIZgGL7HDxhn34mYgmnGmIk5xpxn7IVYbK5l5lxh7tViWCeWX8S0SWxbxbhDrLvEvEfs++VwSC5H5RTefTu8vftZuV6Q82Uvr7gaxC/rUhcZ6pwuddrSd0KXOq'+\r\n  'pLHbb0HbD07bX07bL07UirazHVZqbawFQJSXWtWDxYeY2+pfB/2iyLkaBo+1hQ5GxSBroJKRQtlaKlRTqvxgyKl4lxblbArAp4i16Vg6VyOuvKzV75/FvQ30U8V8x+4RlYGcc+YJyHPPooMZ5k1mc8W5FI4Q+IKhPsDcJVs/c7hKxJ0PATYB87sj4+JXYTojdDSwZojbZG7IBO6MogPdALfTEA4fVzhiK8+tco+4zBeExy7I+YbqxZmGvs+eZYZ'+\r\n  'L4lWG7uVWII7z6UIKYNYtssxm1i3clMu8W+Tw4H1OawnI7J7aQcz8j1nJwvyv2KGsQDhrrEUOd1qbO61Cld6rgudUSXOqhL7del9jBVoqVvu6Vvy02WxKTxYH3saLDuWnrz87fcggJlokGBK0kU6yakYKJUipZG0dIxUXpkYqLMyMJO2SyK2dkr568Wy+WIPMp+KxnykeU2UuUnZQG9opAFqbDl8A6n1kWcxBd1En+Xk/hiTuLvdhJf3El8+Omv'+\r\n  'ErpWCV2rpK5VStcqrWuVjjclfAu0YoQ2aM8UHdEZ3dGTUXqjHwZhiMeG4XuE1y8c65gJmGyMaZhpzNn4yRzh7RV+NudSrBDDarGsE9MvYtskxi3MtF3MiWLfI4f9Xj6H5BTe3v24HE/J9aycL8j9shoEahG/oktd1KXO6VJndKmTutQxXeowUx1wPrWXqXYz1U6m2mbp2xw9Hay/Vn5M83ttwW2lokHeGUkUKxmSK1hKJkqtaGlZKJ3CZWSnTHr'+\r\n  'WzayV1Z8c/s3jsds9X+jqGVhxx5ZS9LKK/zfP/J0YjxGlgj2eJdALxHrZnq/hDQJWI2QNvE/UDx39MZHr41OCNyF+M7REa6O2RQfG6ISu6IFe6IsBGIzvMAKj7DsG4x07CT9iujHDq9/PxXxzLTJneIOY5VgpljViSsAGZtos1m1i3iH2XXLYK5cDcjost2NyPCnX03I+pwoX1eCKWsQDXeqyLnVBlzqrS51iqBO61FFL3yFL335L3x7nU4lMtS'+\r\n  '06KdjyZ/9A+Y/aglwpI0HOYbEgx5WkinUTE6VQsFRIw0hp9av0+lZG3IzQYrk9ns/zBe1fhMGKKXZJRS+j+OE7YA959hGiPOGV/jSBnrfnSwR7lXBVCPiWo6oT8z3d7APi1sEnRmlI9M/QlAFaoBUztEF7dERnJumGnuiNfhiIIZ4bhu8RXn11rGMnYLKxphp3Bmab4ycsMOfP5l4qhhViWSWmtWJbL8aNYt0i5u1iT5TDbrnsk9NBGR+R43GGO'+\r\n  'iXns3I/rwaX1CJQk/gVXeqSLnWeoc7oUid1qWO61BFd6qClb2/sXLA70is++8/66MufuQXZnokGWRKSKFYyxUquT6Vkp9TOuNKwVnr9K7Ovs3ksl6/yMlx+xb3j1/8/ZidnDj0jl8Upt66Vx3KY13KYz3J4m+Xwdl0rv65VQNcq6CS+kJP4wk7iww9Hh5++LxKvS+z6aET4Jmhu1Jb4Am0ZowM6oSt6ILxAUx+El5cbjO8w3L4jMRrjjDEJU4w5'+\r\n  'DTPNMcdc88y7EOHtrZaJJbw53xqxJYhxg1g3iXmr2HfIYZdc9sppv9wOy/GoXE/I+bTcz6nBBbW4rCZxtYlfZqgLutRZXeq0LnVClzqqSx2Krgv2/dGf/LzWtiBdpmiQflUsSB8kVaybWCoFUrFXWmT0d1YWy6GYtzLe7YpbSJGLerQ4y5VS/LKefVAX+ztRHiXOk/Z8hlAVCVaJcJUdVYWQbxH0HdQk7gdGqYNPCB7+gtpnDNAULZihFdqgPXN'+\r\n  '0RHj9nG7oid7oh4EIL5A5FOHlfX9w7FhMMNZkTDX2DMw2V3j3ofnm/xlLxLJcTKvEFt5edL1Yw5sjbxH7NjnslMtuOe2T20E5HpHrMTmfVIkzanBejS6qSaA28UCXuqRLndelzuhSJ2OXgmORBfH4H/UZ9ethi6d5MBqk2J2ErZLpXeGf0GIZWOxmRcyumLkVNZ9HCjJY+AZFMc+UUPx7ifCAV3Y5e4U/gXyCQE/Z+zmCvYhXCPg6qjo6/ID0u8'+\r\n  'SthQ8JXZfo9dEITYzcHC0Z4gu0RQd8ha7ogW/QBwMwGN9huGNGIrxA+ThMxBRjTzPHTMwx5zxzLxTDYkYK7/64AqvFuE6sv4h5k9i3ymGHXBKZaY/c9svxEEMdlfMJuZ9Sg7NqcUFNLqtN4GUYv6JLXdSlzkUTgzO/869oXbdbPJImGiTpFYvHlCyJ8iXTq5Ir7/+cgeVS1LyKm1+RCyv2XYp+D5OVJkL4A6K/MVl5ez5GoAqEepZgLxCukiMrE'+\r\n  '/ENYlYj7DuoaaTaxA5/Qa0e4RviMyZoihZoZZY2aI+O6Ixu+Bq90Q8D8a19h2IERhljDMYbM7x/x1RzTDfXLMw193wxLBLLEjEtF9sqMa4Va4KYN4h9sxy2yWWnnHbLbZ8cD8j1sJyPyf2kGpxWi3NqclFtrqhRPIjFg0vRVrrU7/TLpP8pW/iOcBApkSyITkkZxC6mjSdV5mTKnpwUKciTioSp9Ynw7dV0TpXTWw4zOInPpGtldhJ/s5P4LLpW'+\r\n  'Vifx2ZzE3+IkPruulUPXyhl/E9WJ+y6Ra+FDI9ZFfeI3QhNmaI6WaI226MAkX6ErwusXfuOxPuiPQRiC4Y4didHGGoeJxp6Caeaaac45mCeG8O6PP4tpqdhWiHG1WNeJ+Rexb5TDFrlsl1Oi3PbIcb9cD8r5iNyPq8EptTirJueD2PmLanQh+C2vpfAX2VIGkTJpgujMDEEsyKKY2RU1t+LmU+SCil1E0YtZMEsQ4F5i3E+Ucl7pDxPocUI9RbB'+\r\n  'nCfcCAV/Ga8R8g6jVjFQDNQldG3WIXg8NmaAxmpqlBVohvEBTO4SXl+uMbvgavdAPA/GtY4ZihDFGYYwxx2OSOcLbW0035yxzzxXDfCwS02KxLRNjePftNWJOEPsGOWyWyzY57ZDbLv+V2SvXA3I+LPejanAiiF06HUTHMNRvcymhv/KWNogUzBxEf8xmicyluHkVOXyLtbCiF1X84kxWihBlCfKgV3r4AZ1HCfUkwZ4h3PN4iYivErMKUd9EdQ'+\r\n  'K/S+xa+IjwddEAjRihCcLr57RkjtZoiw74Cl3QA9+gj336YxCGOHYYvscPxhyLCeaYbK6pmGHu2WIIby+6QFw/Y6kYV4h3NdaKfb0cNspli5y2yy1Rjrvluk/OB+V+mKEOB//PK+nd2P7XZonMEkTuzsFgeSyRtzu/KKTodyr+3V7RJQlRhiAPEKYcgR4m1ONe/U8RLfyA9ItEfJmYr6EqcasRuQZqErw26hC/HhqiMUM0RXiBplZog3boiM7oh'+\r\n  'q8RXj+6LwY6Jry9wlCMMNYojDb2eEwy1xRzTscsMcwRyzwxLRTbYjEuE+tKMa8Re4IcNshlk5y2ym2HHBPlulfOB724rlbixvZ7bXktkWiaP4jtuUPx7/KKvocQpQlyH2HCT4CVJ9RjBKtAuGcIWJGQlfAqUcNfUHsL1Qn9HsFr4SPUZYIGaIQmTNEcLdEabdEBXyG8vG939LRfH/THIAwxxjCEdx/6wdhjzTEBk8051dwzMFss4c2RF4htkRiX'+\r\n  'iHW5mFeJfa0c1stlo5w2B9E924PIJzuDv8q75tfQdms8kqFwEClbNIj+cLdzj5IEKUuYBwj0EKEeIdgThHuagM/hRWK+QtTXUJXA1QhdA+8TvjbqoB4jNERjNEULhNcvbIN2+NL3ndANX6MXwtsrDHDsYHyH4cYcidHmGGeuiZhi7mlimCmeOZgntoViXCzWZWJeIfbVQezUOrkkBJE7t8vtapo3tj9zyx9EkpeMRyreG0SH3e9/TOUIVZ5gj6E'+\r\n  'C8Z4lYkViViJqZVQh8luoTvD3UIv4H6EuGjBEIzRBc7Rkktb4Jzr4Prx+dBd0R0/0cUx/DMQQYw3D98b+AWPNNd68kzFVDNPFMktMc8U3H4vEujiI9l0p9nU33ti89rcHg8jb5YNIs0eC6PonnPg+TcTnCfoiXiHu66hK6LdRg+jvozYTfIx6aMgUjRFev7AFPkcbtMOX6ISu+Nq+vdAXA4wxGN8ZczhGmmM0xplzovmnYGoQuzJDTHODSN15wb'+\r\n  '+5h/KN7frYnrC0PPsr0SEvBNEJlZy/VGa2KoR+C9XxHvFr4SNGqIsGaIQmDNIMLdEa/0R7fOW5LuiOnujt2H4YaKxvMRQjzDEqiCaONee4INJjihgmBpE7roZ1Y/tP2560bL4RRFJXCSLpqgaRLtWCaJcaqBlEV9aOR3WtmK4V07ViulZM14rpWjFdKxb/Au3wJTqhK3o4pqdjexujPwYZc7DxQ7qY6+q0f6EtEvlvLj6dTNsMZuwAAAAASUVOR'+\r\n  'K5CYII=';\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  Result := 'TTMSFNCCOLORWHEELPICTURE100';\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction GetColorWheelResource125: string;\r\nbegin\r\n  Result := 'TTMSFNCCOLORWHEELPICTURE125';\r\nend;\r\n\r\nfunction GetColorWheelResource150: string;\r\nbegin\r\n  Result := 'TTMSFNCCOLORWHEELPICTURE150';\r\nend;\r\n\r\nfunction GetColorWheelResource175: string;\r\nbegin\r\n  Result := 'TTMSFNCCOLORWHEELPICTURE175';\r\nend;\r\n\r\nfunction GetColorWheelResource200: string;\r\nbegin\r\n  Result := 'TTMSFNCCOLORWHEELPICTURE200';\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018                                      }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCColorWheel;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$DEFINE VCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF CMNLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF VCLLIB}\r\n{$DEFINE VCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  {$IFNDEF LCLLIB}\r\n  {$IFNDEF WEBLIB}\r\n  UITypes,\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  WEBLib.StdCtrls,\r\n  {$ENDIF}\r\n  {$IFDEF CMNLIB}\r\n  {$IFDEF WINDOWS}\r\n  Messages,\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  Windows,\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  LCLIntF, LCLType,\r\n  {$ENDIF}\r\n  ComCtrls, Controls,\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  WEBLib.ExtCtrls, WEBLib.Controls, Web,\r\n  {$ENDIF}\r\n  Classes, Types, WEBLib.Graphics, WEBLib.TMSFNCCustomControl, WEBLib.TMSFNCImage, WEBLib.TMSFNCGraphics,\r\n  WEBLib.TMSFNCGraphicsTypes, WEBLib.TMSFNCTypes, WEBLib.TMSFNCEdit, WEBLib.TMSFNCStyles,\r\n  WEBLib.TMSFNCUtils;\r\n\r\nconst\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 0; // Minor version nr.\r\n  REL_VER = 1; // Release nr.\r\n  BLD_VER = 0; // Build nr.\r\n\r\n  //Version history\r\n  //v1.0.0.0 : First Release\r\n  //v1.0.1.0 : New : Support for high dpi\r\n\r\ntype\r\n  {$IFDEF FMXLIB}\r\n  TTMSFNCRGBTrackBar = class(TTrackBar)\r\n  private\r\n    procedure SetLeft(const Value: Single);\r\n    procedure SetTop(const Value: Single);\r\n    function GetL: Single;\r\n    function GetT: Single;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    property Left: Single read GetL write SetLeft;\r\n    property Top: Single read GetT write SetTop;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF CMNLIB}\r\n  TTMSFNCRGBTrackBar = class(TTrackBar)\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCRGBTrackBar = class(TWebTrackBar)\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  private\r\n    {$IFNDEF WEBLIB}\r\n    {$IFDEF WINDOWS}\r\n    procedure CMParentColorChanged(var Message: TMessage); message CM_PARENTCOLORCHANGED;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    procedure SetValue(const Value: Single);\r\n    function GetV: Single;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    property Value: Single read GetV write SetValue;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF CMNLIB}\r\n  PRGBTripleArray = ^TRGBTripleArray;\r\n  TRGBTripleArray = array[0..4095] of TRGBTriple;\r\n  {$ENDIF}\r\n\r\n  TTMSFNCImageColor = class(TTMSFNCImage)\r\n  private\r\n    FDPIChanged: Boolean;\r\n    FMouseDown, FImageLoaded: Boolean;\r\n    FPixelColor: TTMSFNCGraphicsColor;\r\n    FOnColorChanged: TNotifyEvent;\r\n    FX: Single;\r\n    FY: Single;\r\n    {$IFDEF FMXLIB}\r\n    FBmpDt: TBitmapData;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    FImgDt: TJSImageData;\r\n    FOffS: Integer;\r\n    Fsc: Single;\r\n    {$ENDIF}\r\n    {$IFDEF CMNLIB}\r\n    FBmp: TBitmap;\r\n    FPixels: PRGBTripleArray;\r\n    FRX: Integer;\r\n    {$ENDIF}\r\n    procedure SetPixelColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetX(const Value: Single);\r\n    procedure SetY(const Value: Single);\r\n    procedure SetCoordinates(AX, AY: Single);\r\n    function PtInColorWheel(X, Y: Single): Boolean;\r\n  protected\r\n    procedure DoAfterDraw(AGraphics: TTMSFNCGraphics; ARect: TRectF); override;\r\n    procedure ChangeDPIScale(M, D: Integer); override;\r\n    procedure ColorChanged;\r\n    procedure BitmapLoaded(Sender: TObject);\r\n    procedure HandleMouseDown({%H-}Button: TTMSFNCMouseButton; {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Single); override;\r\n    procedure HandleMouseMove({%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Single); override;\r\n    procedure HandleMouseUp({%H-}Button: TTMSFNCMouseButton; {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Single); override;\r\n    function GetDPIScale: Single;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF); override;\r\n    procedure MapPixels;\r\n    procedure UnmapPixels;\r\n    function XYToColor(X, Y: Single): TTMSFNCGraphicsColor;\r\n    function GetCenterPoint: TPointF;\r\n    function GetRadius: Single;\r\n    property X: Single read FX write SetX;\r\n    property Y: Single read FY write SetY;\r\n    property PixelColor: TTMSFNCGraphicsColor read FPixelColor write SetPixelColor default gcWhite;\r\n    property OnColorChanged: TNotifyEvent read FOnColorChanged write FOnColorChanged;\r\n  end;\r\n\r\n  TTMSFNCColorWheelHSColor = record\r\n    Hue: Double;\r\n    Saturation: Double;\r\n  end;\r\n\r\n  TTMSFNCCustomColorWheelBeforeDrawSelectedColorPanelEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARectF: TRectF; ASelectedColor: TTMSFNCGraphicsColor; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCCustomColorWheelAfterDrawSelectedColorPanelEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARectF: TRectF; ASelectedColor: TTMSFNCGraphicsColor) of object;\r\n  TTMSFNCCustomColorWheelSelectedColorChangedEvent = procedure(Sender: TObject; ASelectedColor: TTMSFNCGraphicsColor) of object;\r\n  TTMSFNCCustomColorWheelRValueChangedEvent = procedure(Sender: TObject; AR: Integer; ASelectedColor: TTMSFNCGraphicsColor) of object;\r\n  TTMSFNCCustomColorWheelGValueChangedEvent = procedure(Sender: TObject; AG: Integer; ASelectedColor: TTMSFNCGraphicsColor) of object;\r\n  TTMSFNCCustomColorWheelBValueChangedEvent = procedure(Sender: TObject; AB: Integer; ASelectedColor: TTMSFNCGraphicsColor) of object;\r\n\r\n  TTMSFNCCustomColorWheel = class(TTMSFNCCustomControl)\r\n  private\r\n    FImage: TTMSFNCImageColor;\r\n    FREdit: TTMSFNCEdit;\r\n    FGEdit: TTMSFNCEdit;\r\n    FBEdit: TTMSFNCEdit;\r\n    FHEXEdit: TTMSFNCEdit;\r\n    FRTrackBar: TTMSFNCRGBTrackBar;\r\n    FGTrackBar: TTMSFNCRGBTrackBar;\r\n    FBTrackBar: TTMSFNCRGBTrackBar;\r\n    FSelectedColor: TTMSFNCGraphicsColor;\r\n    FGValue: Integer;\r\n    FRValue: Integer;\r\n    FBValue: Integer;\r\n    FHSColor: TTMSFNCColorWheelHSColor;\r\n    FOnBValueChanged: TTMSFNCCustomColorWheelBValueChangedEvent;\r\n    FOnGValueChanged: TTMSFNCCustomColorWheelGValueChangedEvent;\r\n    FOnAfterDrawSelectedColorPanel: TTMSFNCCustomColorWheelAfterDrawSelectedColorPanelEvent;\r\n    FOnSelectedColorChanged: TTMSFNCCustomColorWheelSelectedColorChangedEvent;\r\n    FOnRValueChanged: TTMSFNCCustomColorWheelRValueChangedEvent;\r\n    FOnBeforeDrawSelectedColorPanel: TTMSFNCCustomColorWheelBeforeDrawSelectedColorPanelEvent;\r\n    FFont: TTMSFNCGraphicsFont;\r\n    procedure SetSelectedColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetBValue(const Value: Integer);\r\n    procedure SetGValue(const Value: Integer);\r\n    procedure SetRValue(const Value: Integer);\r\n    procedure SetHEXValue(const Value: string);\r\n    function GetHEXValue: string;\r\n    function IsHEXValueStored: Boolean;\r\n    procedure SetFnt(const Value: TTMSFNCGraphicsFont);\r\n  protected\r\n    procedure Loaded; override;\r\n    procedure ChangeDPIScale(M, D: Integer); override;\r\n    procedure Draw({%H-}AGraphics: TTMSFNCGraphics; {%H-}ARect: TRectF); override;\r\n    procedure DrawColorPanel({%H-}AGraphics: TTMSFNCGraphics; {%H-}ARect: TRectF);\r\n    procedure DrawText({%H-}AGraphics: TTMSFNCGraphics; {%H-}ARect: TRectF);\r\n    {$IFDEF FMXLIB}\r\n    procedure RFieldKeyDown(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);\r\n    procedure GFieldKeyDown(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);\r\n    procedure BFieldKeyDown(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);\r\n    procedure HEXFieldKeyDown(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    procedure RFieldKeyDown(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState);\r\n    procedure GFieldKeyDown(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState);\r\n    procedure BFieldKeyDown(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState);\r\n    procedure HEXFieldKeyDown(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState);\r\n    {$ENDIF}\r\n    procedure DoBeforeDrawSelectedColorPanel(AGraphics: TTMSFNCGraphics; ARectF: TRectF; ASelectedColor: TTMSFNCGraphicsColor; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawSelectedColorPanel(AGraphics: TTMSFNCGraphics; ARectF: TRectF; ASelectedColor: TTMSFNCGraphicsColor); virtual;\r\n    procedure DoSelectedColorChanged(ASelectedColor: TTMSFNCGraphicsColor); virtual;\r\n    procedure DoRValueChanged(AR: Integer; ASelectedColor: TTMSFNCGraphicsColor); virtual;\r\n    procedure DoGValueChanged(AG: Integer; ASelectedColor: TTMSFNCGraphicsColor); virtual;\r\n    procedure DoBValueChanged(AB: Integer; ASelectedColor: TTMSFNCGraphicsColor); virtual;\r\n    procedure ColorChanged(Sender: TObject);\r\n    procedure RTrackBarChanged(Sender: TObject);\r\n    procedure GTrackBarChanged(Sender: TObject);\r\n    procedure BTrackBarChanged(Sender: TObject);\r\n    procedure FillColorChanged(Sender: TObject);\r\n    procedure ApplyStyle; override;\r\n    procedure ResetToDefaultStyle; override;\r\n    procedure UpdateControlAfterResize; override;\r\n    procedure SetIndicator;\r\n    function GetVersion: string; override;\r\n    function RGBToHS(AR, AG, AB: Integer): TTMSFNCColorWheelHSColor;\r\n    property Font: TTMSFNCGraphicsFont read FFont write SetFnt;\r\n    property SelectedColor: TTMSFNCGraphicsColor read FSelectedColor write SetSelectedColor default gcWhite;\r\n    property RValue: Integer read FRValue write SetRValue default 255;\r\n    property BValue: Integer read FBValue write SetBValue default 255;\r\n    property GValue: Integer read FGValue write SetGValue default 255;\r\n    property HEXValue: string read GetHEXValue write SetHEXValue stored IsHEXValueStored nodefault;\r\n    property OnBeforeDrawSelectedColorPanel: TTMSFNCCustomColorWheelBeforeDrawSelectedColorPanelEvent read FOnBeforeDrawSelectedColorPanel write FOnBeforeDrawSelectedColorPanel;\r\n    property OnAfterDrawSelectedColorPanel: TTMSFNCCustomColorWheelAfterDrawSelectedColorPanelEvent read FOnAfterDrawSelectedColorPanel write FOnAfterDrawSelectedColorPanel;\r\n    property OnSelectedColorChanged: TTMSFNCCustomColorWheelSelectedColorChangedEvent read FOnSelectedColorChanged write FOnSelectedColorChanged;\r\n    property OnRValueChanged: TTMSFNCCustomColorWheelRValueChangedEvent read FOnRValueChanged write FOnRValueChanged;\r\n    property OnGValueChanged: TTMSFNCCustomColorWheelGValueChangedEvent read FOnGValueChanged write FOnGValueChanged;\r\n    property OnBValueChanged: TTMSFNCCustomColorWheelBValueChangedEvent read FOnBValueChanged write FOnBValueChanged;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    function ColorToRValue(AColor: TTMSFNCGraphicsColor): Integer;\r\n    function ColorToGValue(AColor: TTMSFNCGraphicsColor): Integer;\r\n    function ColorToBValue(AColor: TTMSFNCGraphicsColor): Integer;\r\n    function RGBToGraphicsColor(R, G, B: Integer): TTMSFNCGraphicsColor;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCColorWheel = class(TTMSFNCCustomColorWheel)\r\n  published\r\n    property Font;\r\n    property Fill;\r\n    property Stroke;\r\n    property SelectedColor;\r\n    property RValue;\r\n    property BValue;\r\n    property GValue;\r\n    property HEXValue;\r\n    property OnBeforeDrawSelectedColorPanel;\r\n    property OnAfterDrawSelectedColorPanel;\r\n    property OnSelectedColorChanged;\r\n    property OnRValueChanged;\r\n    property OnGValueChanged;\r\n    property OnBValueChanged;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  Math, SysUtils, WEBLib.TMSFNCColorWheelResources;\r\n\r\n{$R TMSFNCColorWheel.res}\r\n\r\n{ TTMSFNCCustomColorWheel }\r\n\r\nfunction TTMSFNCCustomColorWheel.ColorToBValue(\r\n  AColor: TTMSFNCGraphicsColor): Integer;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Result := AColor and $000000FF;\r\n  {$ELSE}\r\n  Result := AColor and $00FF0000 shr 16;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCCustomColorWheel.ColorToGValue(\r\n  AColor: TTMSFNCGraphicsColor): Integer;\r\nbegin\r\n  Result := AColor and $0000FF00 shr 8;\r\nend;\r\n\r\nfunction TTMSFNCCustomColorWheel.ColorToRValue(\r\n  AColor: TTMSFNCGraphicsColor): Integer;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Result := AColor and $00FF0000 shr 16;\r\n  {$ELSE}\r\n  Result := AColor and $000000FF;\r\n  {$ENDIF}\r\nend;\r\n\r\nconstructor TTMSFNCCustomColorWheel.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  Width := 350;\r\n  Height := 175;\r\n  FRValue := 255;\r\n  FGValue := 255;\r\n  FBValue := 255;\r\n  FSelectedColor := gcWhite;\r\n  Fill.OnChanged := @FillColorChanged;\r\n\r\n  FFont := TTMSFNCGraphicsFont.Create;\r\n\r\n  FImage := TTMSFNCImageColor.Create(Self);\r\n  FImage.Parent := Self;\r\n  {$IFDEF FMXLIB}\r\n  FImage.Stored := False;\r\n  {$ENDIF}\r\n  FImage.Bitmaps.AddBitmapFromResource(GetColorWheelResource, HInstance, 1.0);\r\n  {$IFNDEF WEBLIB}\r\n  FImage.Bitmaps.AddBitmapFromResource(GetColorWheelResource125, HInstance, 1.25);\r\n  FImage.Bitmaps.AddBitmapFromResource(GetColorWheelResource150, HInstance, 1.5);\r\n  FImage.Bitmaps.AddBitmapFromResource(GetColorWheelResource175, HInstance, 1.75);\r\n  FImage.Bitmaps.AddBitmapFromResource(GetColorWheelResource200, HInstance, 2);\r\n  {$ENDIF}\r\n  FImage.Top := Round((Height / 2) - (FImage.Height / 2));\r\n  FImage.Left := 10;\r\n  FImage.OnColorChanged := ColorChanged;\r\n  FImage.Stretch := True;\r\n\r\n  FREdit := TTMSFNCEdit.Create(Self);\r\n  FREdit.Parent := Self;\r\n  FREdit.Width := 35;\r\n  {$IFDEF FMXLIB}\r\n  FREdit.Stored := False;\r\n  FREdit.Position.X := Width - FREdit.Width - 15;\r\n  FREdit.Position.Y := {$IFDEF FMXMOBILE} 10 {$ELSE} 15 {$ENDIF};\r\n  {$ELSE}\r\n  FREdit.Left := Width - FREdit.Width - 15;\r\n  FREdit.Top := 15;\r\n  {$ENDIF}\r\n  FREdit.EditType := etNumeric;\r\n  FREdit.OnKeyDown := @RFieldKeyDown;\r\n  FREdit.MaxLength := 3;\r\n  FREdit.Text := '255';\r\n\r\n  FGEdit := TTMSFNCEdit.Create(Self);\r\n  FGEdit.Parent := Self;\r\n  FGEdit.Width := 35;\r\n  {$IFDEF FMXLIB}\r\n  FGEdit.Stored := False;\r\n  FGEdit.Position.X := Width - FGEdit.Width - 15;\r\n  FGEdit.Position.Y := {$IFDEF FMXMOBILE} 40 {$ELSE} 45 {$ENDIF};\r\n  {$ELSE}\r\n  FGEdit.Left := Width - FGEdit.Width - 15;\r\n  FGEdit.Top := 45;\r\n  {$ENDIF}\r\n  FGEdit.EditType := etNumeric;\r\n  FGEdit.OnKeyDown := @GFieldKeyDown;\r\n  FGEdit.MaxLength := 3;\r\n  FGEdit.Text := '255';\r\n\r\n  FBEdit := TTMSFNCEdit.Create(Self);\r\n  FBEdit.Parent := Self;\r\n  FBEdit.Width := 35;\r\n  {$IFDEF FMXLIB}\r\n  FBEdit.Stored := False;\r\n  FBEdit.Position.X := Width - FBEdit.Width - 15;\r\n  FBEdit.Position.Y := {$IFDEF FMXMOBILE} 70 {$ELSE} 75 {$ENDIF};\r\n  {$ELSE}\r\n  FBEdit.Left := Width - FBEdit.Width - 15;\r\n  FBEdit.Top := 75;\r\n  {$ENDIF}\r\n  FBEdit.EditType := etNumeric;\r\n  FBEdit.OnKeyDown := @BFieldKeyDown;\r\n  FBEdit.MaxLength := 3;\r\n  FBEdit.Text := '255';\r\n\r\n  FHEXEdit := TTMSFNCEdit.Create(Self);\r\n  FHEXEdit.Parent := Self;\r\n  FHEXEdit.Width := {$IFDEF FMXMOBILE} 105 {$ELSE} 125 {$ENDIF};\r\n  {$IFDEF FMXLIB}\r\n  FHEXEdit.Stored := False;\r\n  FHEXEdit.Position.X := {$IFDEF FMXMOBILE} 230 {$ELSE} 210 {$ENDIF};\r\n  FHEXEdit.Position.Y := {$IFDEF FMXMOBILE} 100 {$ELSE} 105 {$ENDIF};\r\n  {$ELSE}\r\n  FHEXEdit.Left := 210;\r\n  FHEXEdit.Top := 105;\r\n  {$ENDIF}\r\n  FHEXEdit.EditType := etHex;\r\n  FHEXEdit.OnKeyDown := @HEXFieldKeyDown;\r\n  FHEXEdit.MaxLength := 6;\r\n  FHEXEdit.Text := 'FFFFFF';\r\n\r\n  FRTrackBar := TTMSFNCRGBTrackBar.Create(Self);\r\n  FRTrackBar.Parent := Self;\r\n  FRTrackBar.Left := 195;\r\n  FRTrackBar.Top := {$IFDEF FMXLIB}{$IFNDEF IOS}FREdit.Position.Y + 1{$ENDIF}{$IFDEF IOS}FREdit.Position.Y - 3{$ENDIF}{$ELSE}FREdit.Top - 1{$ENDIF};\r\n  FRTrackBar.Value := 255;\r\n  FRTrackBar.OnChange := @RTrackBarChanged;\r\n  {$IFDEF FMXLIB}\r\n  FRTrackBar.Stored := False;\r\n  {$ENDIF}\r\n\r\n  FGTrackBar := TTMSFNCRGBTrackBar.Create(Self);\r\n  FGTrackBar.Parent := Self;\r\n  FGTrackBar.Left := 195;\r\n  FGTrackBar.Top := {$IFDEF FMXLIB}{$IFNDEF IOS}FGEdit.Position.Y + 1{$ENDIF}{$IFDEF IOS}FGEdit.Position.Y - 3{$ENDIF}{$ELSE}FGEdit.Top - 1{$ENDIF};\r\n  FGTrackBar.Value := 255;\r\n  FGTrackBar.OnChange := @GTrackBarChanged;\r\n  {$IFDEF FMXLIB}\r\n  FGTrackBar.Stored := False;\r\n  {$ENDIF}\r\n\r\n  FBTrackBar := TTMSFNCRGBTrackBar.Create(Self);\r\n  FBTrackBar.Parent := Self;\r\n  FBTrackBar.Left := 195;\r\n  FBTrackBar.Top := {$IFDEF FMXLIB}{$IFNDEF IOS}FBEdit.Position.Y + 1{$ENDIF}{$IFDEF IOS}FBEdit.Position.Y - 3{$ENDIF}{$ELSE}FBEdit.Top - 1{$ENDIF};\r\n  FBTrackBar.Value := 255;\r\n  FBTrackBar.OnChange := @BTrackBarChanged;\r\n  {$IFDEF FMXLIB}\r\n  FBTrackBar.Stored := False;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorWheel.ApplyStyle;\r\nvar\r\n  c: TTMSFNCGraphicsColor;\r\nbegin\r\n  inherited;\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleBackgroundFillColor(c) then\r\n    Fill.Color := c;\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorWheel.BTrackBarChanged(Sender: TObject);\r\nbegin\r\n  BValue := Round(FBTrackBar.Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorWheel.ChangeDPIScale(M, D: Integer);\r\nbegin\r\n  inherited;\r\n  Font.Height := TTMSFNCUtils.MulDivInt(Font.Height, M, D);\r\n  SetIndicator;\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorWheel.ColorChanged(Sender: TObject);\r\nbegin\r\n  SelectedColor := FImage.PixelColor;\r\nend;\r\n\r\ndestructor TTMSFNCCustomColorWheel.Destroy;\r\nbegin\r\n  FImage.Free;\r\n  FREdit.Free;\r\n  FGEdit.Free;\r\n  FBEdit.Free;\r\n  FRTrackBar.Free;\r\n  FGTrackBar.Free;\r\n  FBTrackBar.Free;\r\n  FFont.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorWheel.DoAfterDrawSelectedColorPanel(\r\n  AGraphics: TTMSFNCGraphics; ARectF: TRectF;\r\n  ASelectedColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  if Assigned(OnAfterDrawSelectedColorPanel) then\r\n    OnAfterDrawSelectedColorPanel(Self, AGraphics, ARectF, ASelectedColor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorWheel.DoBeforeDrawSelectedColorPanel(\r\n  AGraphics: TTMSFNCGraphics; ARectF: TRectF;\r\n  ASelectedColor: TTMSFNCGraphicsColor; var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawSelectedColorPanel) then\r\n    OnBeforeDrawSelectedColorPanel(Self, AGraphics, ARectF, ASelectedColor, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorWheel.DoBValueChanged(AB: Integer;\r\n  ASelectedColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  if Assigned(OnBValueChanged) then\r\n    OnBValueChanged(Self, AB, ASelectedColor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorWheel.DoGValueChanged(AG: Integer;\r\n  ASelectedColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  if Assigned(OnGValueChanged) then\r\n    OnGValueChanged(Self, AG, ASelectedColor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorWheel.DoRValueChanged(AR: Integer;\r\n  ASelectedColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  if Assigned(OnRValueChanged) then\r\n    OnRValueChanged(Self, AR, ASelectedColor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorWheel.DoSelectedColorChanged(\r\n  ASelectedColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  if Assigned(OnSelectedColorChanged) then\r\n    OnSelectedColorChanged(Self, ASelectedColor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorWheel.Draw(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF);\r\nbegin\r\n  inherited;\r\n  DrawColorPanel(AGraphics, ARect);\r\n  DrawText(AGraphics, ARect);\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorWheel.DrawColorPanel(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF);\r\nvar\r\n  r: TRectF;\r\n  b, df: Boolean;\r\n  h: Single;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  h := 135;\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  h := ScalePaintValue(13) + FHEXEdit.Top + FHEXEdit.Height;\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  h := 45 + FREdit.Height + FBEdit.Height + FGEdit.Height + FHEXEdit.Height;\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  h := 35 + FREdit.Height + FBEdit.Height + FGEdit.Height + FHEXEdit.Height;\r\n  {$ENDIF}\r\n  r := RectF(0, 0, ScalePaintValue(25), ScalePaintValue(25));\r\n  OffsetRectEx(r, ScalePaintValue(30) + FImage.Width, h);\r\n  {$IFDEF FMXLIB}\r\n  r.Right := FREdit.Position.X + FREdit.Width;\r\n  {$ELSE}\r\n  r.Right := FREdit.Left + FREdit.Width;\r\n  {$ENDIF}\r\n\r\n  AGraphics.Fill.Color := SelectedColor;\r\n\r\n  b := True;\r\n  df := True;\r\n  DoBeforeDrawSelectedColorPanel(AGraphics, r, FSelectedColor, b, df);\r\n  if b then\r\n  begin\r\n    if df then\r\n      AGraphics.DrawRectangle(r);\r\n\r\n    DoAfterDrawSelectedColorPanel(AGraphics, r, FSelectedColor);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorWheel.DrawText(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF);\r\nbegin\r\n  AGraphics.Font.AssignSource(Font);\r\n  {$IFDEF FMXLIB}\r\n  {$IFDEF FMXMOBILE}\r\n  AGraphics.Font.Size := 20;\r\n  AGraphics.DrawText(PointF(30 + FImage.Width, FREdit.Position.Y + 5), 'R');\r\n  AGraphics.DrawText(PointF(30 + FImage.Width, FGEdit.Position.Y + 5), 'G');\r\n  AGraphics.DrawText(PointF(30 + FImage.Width, FBEdit.Position.Y + 5), 'B');\r\n  AGraphics.DrawText(PointF(30 + FImage.Width, FHEXEdit.Position.Y + 5), 'HEX');\r\n  {$ENDIF}\r\n  {$IFNDEF FMXMOBILE}\r\n  AGraphics.DrawText(PointF(30 + FImage.Width, FREdit.Position.Y + 3), 'R');\r\n  AGraphics.DrawText(PointF(30 + FImage.Width, FGEdit.Position.Y + 3), 'G');\r\n  AGraphics.DrawText(PointF(30 + FImage.Width, FBEdit.Position.Y + 3), 'B');\r\n  AGraphics.DrawText(PointF(30 + FImage.Width, FHEXEdit.Position.Y + 3), 'HEX');\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFNDEF FMXLIB}\r\n  {$IFDEF WEBLIB}\r\n  AGraphics.DrawText(PointF(30 + FImage.Width, FREdit.Top + 7), 'R');\r\n  AGraphics.DrawText(PointF(30 + FImage.Width, FGEdit.Top + 7), 'G');\r\n  AGraphics.DrawText(PointF(30 + FImage.Width, FBEdit.Top + 7), 'B');\r\n  AGraphics.DrawText(PointF(30 + FImage.Width, FHEXEdit.Top + 7), 'HEX');\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  AGraphics.DrawText(PointF(ScalePaintValue(30) + FImage.Width, FREdit.Top + 3), 'R');\r\n  AGraphics.DrawText(PointF(ScalePaintValue(30) + FImage.Width, FGEdit.Top + 3), 'G');\r\n  AGraphics.DrawText(PointF(ScalePaintValue(30) + FImage.Width, FBEdit.Top + 3), 'B');\r\n  AGraphics.DrawText(PointF(ScalePaintValue(30) + FImage.Width, FHEXEdit.Top + 3), 'HEX');\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorWheel.FillColorChanged(Sender: TObject);\r\nbegin\r\n  FillChanged(Self);\r\n  {$IFDEF CMNWEBLIB}\r\n  FImage.Fill.Color := Color;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCCustomColorWheel.GetHEXValue: string;\r\nbegin\r\n  Result := FHEXEdit.Text;\r\nend;\r\n\r\nfunction TTMSFNCCustomColorWheel.GetVersion: string;\r\nbegin\r\n  Result := GetVersionNumber(MAJ_VER, MIN_VER, REL_VER, BLD_VER);\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorWheel.GTrackBarChanged(Sender: TObject);\r\nbegin\r\n  GValue := Round(FGTrackBar.Value);\r\nend;\r\n\r\nfunction TTMSFNCCustomColorWheel.IsHEXValueStored: Boolean;\r\nbegin\r\n  Result := GetHEXValue <> 'FFFFFF';\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorWheel.Loaded;\r\nbegin\r\n  inherited;\r\n  {$IFDEF VCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF (COMPILERVERSION >= 33) AND (COMPILERVERSION < 36)}\r\n  FImage.ScaleForPPI(CurrentPPI);\r\n  FREdit.ScaleForPPI(CurrentPPI);\r\n  FGEdit.ScaleForPPI(CurrentPPI);\r\n  FBEdit.ScaleForPPI(CurrentPPI);\r\n  FHEXEdit.ScaleForPPI(CurrentPPI);\r\n  FRTrackBar.ScaleForPPI(CurrentPPI);\r\n  FGTrackBar.ScaleForPPI(CurrentPPI);\r\n  FBTrackBar.ScaleForPPI(CurrentPPI);\r\n\r\n  FREdit.AutoSize := True;\r\n  FGEdit.AutoSize := True;\r\n  FBEdit.AutoSize := True;\r\n  FHEXEdit.AutoSize := True;\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorWheel.ResetToDefaultStyle;\r\nbegin\r\n  inherited;\r\n  Fill.Color := gcWhite;\r\nend;\r\n\r\nfunction TTMSFNCCustomColorWheel.RGBToGraphicsColor(R, G,\r\n  B: Integer): TTMSFNCGraphicsColor;\r\n{$IFDEF FMXLIB}\r\nvar\r\n  col: TAlphaColorRec;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  col.R := R;\r\n  col.G := G;\r\n  col.B := B;\r\n  col.A := 255;\r\n  Result := col.Color;\r\n  {$ELSE}\r\n  Result := RGB(R, G, B);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCCustomColorWheel.RGBToHS(AR, AG,\r\n  AB: Integer): TTMSFNCColorWheelHSColor;\r\nvar\r\n  minRGB, maxRGB, delta, h, s: Double;\r\nbegin\r\n  h := 0.0;\r\n  maxRGB := Max(Max(AR, AG), AB);\r\n  minRGB := Min(Min(AR, AG), AB);\r\n  delta := maxRGB - minRGB;\r\n\r\n  if maxRGB = 0 then\r\n    s := 0.0\r\n  else\r\n    s := delta / maxRGB;\r\n\r\n  if delta = 0 then\r\n    h := 0.0\r\n  else if maxRGB = AR then\r\n    h := (AG - AB) / delta\r\n  else if maxRGB = AG then\r\n    h := (AB - AR) / delta + 2\r\n  else if maxRGB = AB then\r\n    h := (AR - AG) / delta + 4;\r\n\r\n  h := 60 * h;\r\n\r\n  with Result do\r\n  begin\r\n    Hue := h;\r\n    Saturation := s;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorWheel.RTrackBarChanged(Sender: TObject);\r\nbegin\r\n  RValue := Round(FRTrackBar.Value);\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomColorWheel.RFieldKeyDown(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCCustomColorWheel.RFieldKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);\r\n{$ENDIF}\r\nvar\r\n  v: Integer;\r\nbegin\r\n  if Key = KEY_RETURN then\r\n  begin\r\n    v := FREdit.IntValue;\r\n    if v < 0 then\r\n      v := 0\r\n    else if v > 255 then\r\n      v := 255;\r\n\r\n    if v = RValue then\r\n    begin\r\n      FREdit.Text := IntToStr(v);\r\n    end\r\n    else\r\n    begin\r\n      SelectedColor := RGBToGraphicsColor(v, FGValue, FBValue);\r\n      FHSColor := RGBToHS(v, FGValue, FBValue);\r\n      SetIndicator;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomColorWheel.GFieldKeyDown(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCCustomColorWheel.GFieldKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);\r\n{$ENDIF}\r\nvar\r\n  v: Integer;\r\nbegin\r\n  if Key = KEY_RETURN then\r\n  begin\r\n    v := FGEdit.IntValue;\r\n    if v < 0 then\r\n      v := 0\r\n    else if v > 255 then\r\n      v := 255;\r\n\r\n    if v = GValue then\r\n    begin\r\n      FGEdit.Text := IntToStr(v);\r\n    end\r\n    else\r\n    begin\r\n      SelectedColor := RGBToGraphicsColor(FRValue, v, FBValue);\r\n      FHSColor := RGBToHS(FRValue, v, FBValue);\r\n      SetIndicator;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomColorWheel.BFieldKeyDown(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCCustomColorWheel.BFieldKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);\r\n{$ENDIF}\r\nvar\r\n  v: Integer;\r\nbegin\r\n  if Key = KEY_RETURN then\r\n  begin\r\n    v := FBEdit.IntValue;\r\n    if v < 0 then\r\n      v := 0\r\n    else if v > 255 then\r\n      v := 255;\r\n\r\n    if v = BValue then\r\n    begin\r\n      FBEdit.Text := IntToStr(v);\r\n    end\r\n    else\r\n    begin\r\n      SelectedColor := RGBToGraphicsColor(FRValue, FGValue, v);\r\n      FHSColor := RGBToHS(FRValue, FGValue, v);\r\n      SetIndicator;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomColorWheel.HEXFieldKeyDown(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCCustomColorWheel.HEXFieldKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);\r\n{$ENDIF}\r\nvar\r\n  str: string;\r\n  r, g, b: Integer;\r\nbegin\r\n  if (Key = KEY_RETURN) and (Length(FHEXEdit.Text) = 6) then\r\n  begin\r\n    str := Copy(FHEXEdit.Text, 1, 2);\r\n    r := StrToInt('$' + str);\r\n    str := Copy(FHEXEdit.Text, 3, 2);\r\n    g := StrToInt('$' + str);\r\n    str := Copy(FHEXEdit.Text, 5, 2);\r\n    b := StrToInt('$' + str);\r\n    SelectedColor := RGBToGraphicsColor(r, g, b);\r\n    FHSColor := RGBToHS(r, g, b);\r\n    SetIndicator;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorWheel.SetBValue(const Value: Integer);\r\nbegin\r\n  if FBValue <> Value then\r\n  begin\r\n    FBValue := Value;\r\n    FBEdit.Text := IntToStr(Value);\r\n    FHEXEdit.Text := IntToHex(FRValue, 2) + IntToHex(FGValue, 2) + IntToHex(FBValue, 2);\r\n    FBTrackBar.Value := FBValue;\r\n    FSelectedColor := RGBToGraphicsColor(FRValue, FGValue, FBValue);\r\n    FHSColor := RGBToHS(FRValue, FGValue, FBValue);\r\n    SetIndicator;\r\n    DoBValueChanged(FBValue, FSelectedColor);\r\n    DoSelectedColorChanged(FSelectedColor);\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorWheel.SetFnt(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FFont.AssignSource(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorWheel.SetGValue(const Value: Integer);\r\nbegin\r\n  if FGValue <> Value then\r\n  begin\r\n    FGValue := Value;\r\n    FGEdit.Text := IntToStr(Value);\r\n    FHEXEdit.Text := IntToHex(FRValue, 2) + IntToHex(FGValue, 2) + IntToHex(FBValue, 2);\r\n    FGTrackBar.Value := FGValue;\r\n    FSelectedColor := RGBToGraphicsColor(FRValue, FGValue, FBValue);\r\n    FHSColor := RGBToHS(FRValue, FGValue, FBValue);\r\n    SetIndicator;\r\n    DoGValueChanged(FGValue, FSelectedColor);\r\n    DoSelectedColorChanged(FSelectedColor);\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorWheel.SetHEXValue(const Value: string);\r\nvar\r\n  str: string;\r\n  r, g, b: Integer;\r\nbegin\r\n  if Length(Value) = 6 then\r\n  begin\r\n    str := Copy(Value, 1, 2);\r\n    r := StrToInt('$' + str);\r\n    str := Copy(Value, 3, 2);\r\n    g := StrToInt('$' + str);\r\n    str := Copy(Value, 5, 2);\r\n    b := StrToInt('$' + str);\r\n    SelectedColor := RGBToGraphicsColor(r, g, b);\r\n    FHSColor := RGBToHS(r, g, b);\r\n    SetIndicator;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorWheel.SetIndicator;\r\nvar\r\n  angle, r: Double;\r\n  cp: TPointF;\r\nbegin\r\n  cp := FImage.GetCenterPoint;\r\n  r := FImage.GetRadius - 0.5;\r\n  angle := DegToRad(FHSColor.Hue);\r\n  FImage.X := cp.X + (r * FHSColor.Saturation) * Cos(angle);\r\n  FImage.Y := cp.Y + (r * FHSColor.Saturation) * Sin(angle);\r\n  FImage.Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorWheel.SetRValue(const Value: Integer);\r\nbegin\r\n  if FRValue <> Value then\r\n  begin\r\n    FRValue := Value;\r\n    FREdit.Text := IntToStr(Value);\r\n    FHEXEdit.Text := IntToHex(FRValue, 2) + IntToHex(FGValue, 2) + IntToHex(FBValue, 2);\r\n    FRTrackBar.Value := FRValue;\r\n    FSelectedColor := RGBToGraphicsColor(FRValue, FGValue, FBValue);\r\n    FHSColor := RGBToHS(FRValue, FGValue, FBValue);\r\n    SetIndicator;\r\n    DoRValueChanged(FRValue, FSelectedColor);\r\n    DoSelectedColorChanged(FSelectedColor);\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorWheel.SetSelectedColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FSelectedColor <> Value then\r\n  begin\r\n    FSelectedColor := Value;\r\n    FRValue := ColorToRValue(FSelectedColor);\r\n    FREdit.Text := IntToStr(FRValue);\r\n    FGValue := ColorToGValue(FSelectedColor);\r\n    FGEdit.Text := IntToStr(FGValue);\r\n    FBValue := ColorToBValue(FSelectedColor);\r\n    FBEdit.Text := IntToStr(FBValue);\r\n    FHEXEdit.Text := IntToHex(FRValue, 2) + IntToHex(FGValue, 2) + IntToHex(FBValue, 2);\r\n\r\n    FRTrackBar.OnChange := nil;\r\n    if FRTrackBar.Value <> FRValue then\r\n    begin\r\n      FRTrackBar.Value := FRValue;\r\n      DoRValueChanged(FRValue, FSelectedColor);\r\n    end;\r\n    FRTrackBar.OnChange := @RTrackBarChanged;\r\n\r\n    FGTrackBar.OnChange := nil;\r\n    if FGTrackBar.Value <> FGValue then\r\n    begin\r\n      FGTrackBar.Value := FGValue;\r\n      DoGValueChanged(FGValue, FSelectedColor);\r\n    end;\r\n    FGTrackBar.OnChange := @GTrackBarChanged;\r\n\r\n    FBTrackBar.OnChange := nil;\r\n    if FBTrackBar.Value <> FBValue then\r\n    begin\r\n      FBTrackBar.Value := FBValue;\r\n      DoBValueChanged(FBValue, FSelectedColor);\r\n    end;\r\n    FBTrackBar.OnChange := @BTrackBarChanged;\r\n\r\n    FHSColor := RGBToHS(FRValue, FGValue, FBValue);\r\n    SetIndicator;\r\n\r\n    DoSelectedColorChanged(FSelectedColor);\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorWheel.UpdateControlAfterResize;\r\nbegin\r\n  inherited;\r\n  if Assigned(FImage) then\r\n    FImage.Top := Round((Height / 2) - (FImage.Height / 2));\r\nend;\r\n\r\n{ TTMSFNCRGBTrackBar }\r\n\r\n{$IFDEF FMXLIB}\r\nconstructor TTMSFNCRGBTrackBar.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  Max := 255;\r\nend;\r\n\r\nfunction TTMSFNCRGBTrackBar.GetL: Single;\r\nbegin\r\n  Result := Position.X;\r\nend;\r\n\r\nfunction TTMSFNCRGBTrackBar.GetT: Single;\r\nbegin\r\n  Result := Position.Y;\r\nend;\r\n\r\nprocedure TTMSFNCRGBTrackBar.SetLeft(const Value: Single);\r\nbegin\r\n  Position.X := Value;\r\nend;\r\n\r\nprocedure TTMSFNCRGBTrackBar.SetTop(const Value: Single);\r\nbegin\r\n  Position.Y := Value;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF CMNWEBLIB}\r\nconstructor TTMSFNCRGBTrackBar.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  {$IFDEF CMNLIB}\r\n  TickStyle := tsNone;\r\n  Height := 22;\r\n  {$ENDIF}\r\n  Max := 255;\r\n  Width := 100;\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\n{$IFDEF WINDOWS}\r\nprocedure TTMSFNCRGBTrackBar.CMParentColorChanged(var Message: TMessage);\r\nbegin\r\n  inherited;\r\n  Width := Width + 1;\r\n  Width := Width - 1;\r\nend;\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\nfunction TTMSFNCRGBTrackBar.GetV: Single;\r\nbegin\r\n  Result := Position;\r\nend;\r\n\r\nprocedure TTMSFNCRGBTrackBar.SetValue(const Value: Single);\r\nbegin\r\n  Position := Round(Value);\r\nend;\r\n{$ENDIF}\r\n\r\n{ TTMSFNCImageColor }\r\n\r\nprocedure TTMSFNCImageColor.BitmapLoaded(Sender: TObject);\r\nbegin\r\n  FImageLoaded := True;\r\nend;\r\n\r\nprocedure TTMSFNCImageColor.ChangeDPIScale(M, D: Integer);\r\nbegin\r\n  inherited;\r\n  FDPIChanged := True;\r\nend;\r\n\r\nprocedure TTMSFNCImageColor.ColorChanged;\r\nbegin\r\n  if Assigned(OnColorChanged) then\r\n    OnColorChanged(Self);\r\nend;\r\n\r\nconstructor TTMSFNCImageColor.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  Width := 150;\r\n  Height := 150;\r\n  X := Width / 2 * GetDPIScale;\r\n  Y := Height / 2 * GetDPIScale;\r\n  FImageLoaded := False;\r\n  FDPIChanged := False;\r\n  Stroke.Kind := gskNone;\r\n  {$IFDEF FMXLIB}\r\n  Fill.Kind := gfkNone;\r\n  {$ENDIF}\r\n\r\n  Self.OnBitmapChanged := @BitmapLoaded;\r\nend;\r\n\r\ndestructor TTMSFNCImageColor.Destroy;\r\nbegin\r\n  UnmapPixels;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCImageColor.DoAfterDraw(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF);\r\nbegin\r\n  inherited;\r\n  if FDPIChanged then\r\n  begin\r\n    FDPIChanged := False;\r\n    MapPixels;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCImageColor.Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nbegin\r\n  inherited;\r\n  if FImageLoaded then\r\n  begin\r\n    FImageLoaded := False;\r\n    MapPixels;\r\n  end;\r\n  AGraphics.Stroke.Kind := gskSolid;\r\n  AGraphics.Fill.Kind := gfkNone;\r\n  AGraphics.Stroke.Color := gcBlack;\r\n  AGraphics.DrawEllipse(X - ScalePaintValue(5), Y - ScalePaintValue(5), X + ScalePaintValue(5), Y + ScalePaintValue(5));\r\n  AGraphics.Stroke.Color := gcWhite;\r\n  AGraphics.DrawEllipse(X - ScalePaintValue(4), Y - ScalePaintValue(4), X + ScalePaintValue(4), Y + ScalePaintValue(4));\r\nend;\r\n\r\nfunction TTMSFNCImageColor.GetCenterPoint: TPointF;\r\nbegin\r\n  Result := PointF(Width / 2, Height / 2);\r\nend;\r\n\r\nfunction TTMSFNCImageColor.GetDPIScale: Single;\r\nbegin\r\n  Result := PaintScaleFactor;\r\nend;\r\n\r\nfunction TTMSFNCImageColor.GetRadius: Single;\r\nbegin\r\n  Result := Width / 2;\r\nend;\r\n\r\nprocedure TTMSFNCImageColor.HandleMouseDown(Button: TTMSFNCMouseButton;\r\n  Shift: TShiftState; X, Y: Single);\r\nbegin\r\n  inherited;\r\n  CaptureEx;\r\n  FMouseDown := True;\r\n  if PtInColorWheel(X, Y) then\r\n  begin\r\n    PixelColor := XYToColor(X, Y);\r\n    ColorChanged;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCImageColor.HandleMouseMove(Shift: TShiftState; X, Y: Single);\r\nbegin\r\n  inherited;\r\n  if FMouseDown then\r\n  begin\r\n    if PtInColorWheel(X, Y) then\r\n    begin\r\n      PixelColor := XYToColor(X, Y);\r\n    end\r\n    else\r\n    begin\r\n      SetCoordinates(X, Y);\r\n      PixelColor := XYToColor(FX, FY);\r\n    end;\r\n    ColorChanged;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCImageColor.HandleMouseUp(Button: TTMSFNCMouseButton;\r\n  Shift: TShiftState; X, Y: Single);\r\nbegin\r\n  inherited;\r\n  FMouseDown := False;\r\n  ReleaseCaptureEx;\r\nend;\r\n\r\nprocedure TTMSFNCImageColor.MapPixels;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Bitmaps.Items[0].Bitmap.Map(TMapAccess.Read, FBmpDt);\r\n  {$ENDIF}\r\n\r\n  {$IFDEF WEBLIB}\r\n  if Width <> 0 then\r\n    Fsc := Round((Canvas.Element.width / Width) * 100) / 100\r\n  else\r\n    Fsc := 1.0;\r\n\r\n  FImgDt := Canvas.Context.getImageData(0, 0, Round(Width * Fsc), Round(Height * Fsc));\r\n  {$ENDIF}\r\n\r\n  {$IFDEF CMNLIB}\r\n  FBmp := TBitmap.Create;\r\n  FBmp.Width := Width;\r\n  FBmp.Height := Height;\r\n  FBmp.PixelFormat := pf24bit;\r\n  FBmp.Canvas.CopyRect(Rect(0, 0, Width, Height), Canvas, Rect(0, 0, Width, Height));\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCImageColor.PtInColorWheel(X, Y: Single): Boolean;\r\nbegin\r\n  Result := (Sqr(X - 75 * GetDPIScale) + Sqr(Y - 75 * GetDPIScale)) <= Sqr(74 * GetDPIScale);\r\nend;\r\n\r\nprocedure TTMSFNCImageColor.SetCoordinates(AX, AY: Single);\r\nvar\r\n  a, b, angle, r: Single;\r\n  cp: TPointF;\r\nbegin\r\n  cp := GetCenterPoint;\r\n  r := GetRadius - 1 {$IFDEF WEBLIB}* Fsc{$ENDIF};\r\n  a := Abs(cp.X - AY);\r\n  b := Abs(cp.Y - AX);\r\n  if (a = 0) then\r\n    a := 1;\r\n\r\n  if (b = 0) then\r\n    b := 1;\r\n\r\n  angle := ArcTan(a / b) * 180 / PI;\r\n\r\n  if (AX >= cp.X) and (AY <= cp.Y) then\r\n    angle := 360 - angle\r\n  else if (AX <= cp.X) and (AY >= cp.Y) then\r\n    angle := 180 - angle\r\n  else if (AX <= cp.X) and (AY <= cp.Y) then\r\n    angle := 180 + angle;\r\n\r\n  angle := DegToRad(angle);\r\n  FX := (cp.X - 0.5) + r * Cos(angle);\r\n  FY := (cp.Y - 0.5) + r * Sin(angle);\r\nend;\r\n\r\nprocedure TTMSFNCImageColor.SetPixelColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FPixelColor <> Value then\r\n    FPixelColor := Value;\r\nend;\r\n\r\nprocedure TTMSFNCImageColor.SetX(const Value: Single);\r\nbegin\r\n  if FX <> Value then\r\n    FX := Value;\r\nend;\r\n\r\nprocedure TTMSFNCImageColor.SetY(const Value: Single);\r\nbegin\r\n  if FY <> Value then\r\n    FY := Value;\r\nend;\r\n\r\nprocedure TTMSFNCImageColor.UnmapPixels;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Bitmaps.Items[0].Bitmap.Unmap(FBmpDt);\r\n  {$ENDIF}\r\n\r\n  {$IFDEF CMNLIB}\r\n  FBmp.Free;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCImageColor.XYToColor(X, Y: Single): TTMSFNCGraphicsColor;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Result := FBmpDt.GetPixel(Round(X), Round(Y))\r\n  {$ENDIF}\r\n\r\n  {$IFDEF CMNLIB}\r\n  FRX := Round(X);\r\n  FPixels := FBmp.Scanline[Round(Y)];\r\n  {$IFDEF VCLLIB}\r\n  Result := RGB(FPixels[FRX].rgbtRed, FPixels[FRX].rgbtGreen, FPixels[FRX].rgbtBlue);\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  Result := RGB(FPixels^[FRX].rgbtRed, FPixels^[FRX].rgbtGreen, FPixels^[FRX].rgbtBlue);\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF WEBLIB}\r\n  FOffS := (Round(X * Fsc) + (Round(Y * Fsc) * Round(Width * Fsc))) * 4;\r\n  Result := RGB(FImgDt.data[FOffS + 0], FImgDt.data[FOffS + 1], FImgDt.data[FOffS + 2]);\r\n  {$ENDIF}\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2016 - 2022                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : https://www.tmssoftware.com                       }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCColorSelector;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF CMNLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, WEBLib.TMSFNCGraphics, WEBLib.TMSFNCCustomControl, WEBLib.TMSFNCCustomSelector, WEBLib.Controls,\r\n  WEBLib.TMSFNCTypes, WEBLib.ExtCtrls, WEBLib.TMSFNCGraphicsTypes, WEBLib.StdCtrls\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Types\r\n  {$ENDIF}\r\n  {$IFNDEF LCLLIB}\r\n  ,Types\r\n  {$ENDIF}\r\n  ;\r\n\r\nconst\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 0; // Minor version nr.\r\n  REL_VER = 0; // Release nr.\r\n  BLD_VER = 1; // Build nr.\r\n\r\n  //v1.0.0.0: First release\r\n  //v1.0.0.1 : Improved : Updated initial look\r\n\r\nconst\r\n  TMSFNCColorSelectorColorSetCount = 15;\r\n  TMSFNCColorSelectorColorSet: array[0..TMSFNCColorSelectorColorSetCount] of TTMSFNCGraphicsColor = (gcBlack, gcMaroon, gcGreen, gcOlive,\r\n    gcNavy, gcPurple, gcTeal, gcSilver, gcGray, gcRed,\r\n    gcLime, gcYellow, gcBlue, gcFuchsia, gcAqua, gcWhite);\r\n\r\n  {$IFDEF FMXLIB}\r\n  TMSFNCColorSelectorExtendedColorSetCount = 39;\r\n  TMSFNCColorSelectorExtendedColorSet: array[0..TMSFNCColorSelectorExtendedColorSetCount] of TTMSFNCGraphicsColor = (gcBlack, $FF003399, $FF003333, $FF003300, $FF663300, gcNavy,\r\n    $FF353333, $FF333333, $FF800000, $FFFF6600, $FF808000, $FF008000, $FF008080, $FF0000FF,\r\n    $FF666699, $FF808080, $FFFF0000, $FFFF9900, $FF99CC00, $FF339966, $FF33CCCC,\r\n    $FF3366FF, $FF800080, $FF999999, $FFFF00FF, $FFFFCC00, $FFFFFF00, $FF00FF00,\r\n    $FF00FFFF, $FF00CCFF, $FF993366, $FFC0C0C0, $FFFF99CC, $FFFFCC99, $FFFFFF99,\r\n    $FFCCFFCC, $FFCCFFFF, $FF99CCFF, $FFCC99FF, $FFFFFFFF);\r\n  {$ENDIF}\r\n\r\n  {$IFDEF CMNWEBLIB}\r\n  TMSFNCColorSelectorExtendedColorSetCount = 39;\r\n  TMSFNCColorSelectorExtendedColorSet: array[0..TMSFNCColorSelectorExtendedColorSetCount] of TTMSFNCGraphicsColor = (gcBlack, $993300, $333300, $003300, $003366, gcNavy,\r\n    $333335, $333333, $000080, $0066FF, $008080, $008000, $808000, $FF0000,\r\n    $996666, $808080, $0000FF, $0099FF, $00CC99, $669933, $CCCC33,\r\n    $FF6633, $800080, $999999, $FF00FF, $00CCFF, $00FFFF, $00FF00,\r\n    $FFFF00, $FFCC00, $663399, $C0C0C0, $CC99FF, $99CCFF, $99FFFF,\r\n    $CCFFCC, $FFFFCC, $FFCC99, $FF99CC, $FFFFFF);\r\n  {$ENDIF}\r\n\r\n\r\ntype\r\n  TTMSFNCCustomColorSelector = class;\r\n\r\n  TTMSFNCColorSelectorItem = class(TTMSFNCCustomSelectorItem)\r\n  private\r\n    FOwner: TTMSFNCCustomColorSelector;\r\n    FColor: TTMSFNCGraphicsColor;\r\n    procedure SetColor(const Value: TTMSFNCGraphicsColor);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property Color: TTMSFNCGraphicsColor read FColor write SetColor default gcNull;\r\n  end;\r\n\r\n  TTMSFNCColorSelectorItems = class(TTMSFNCCustomSelectorItems)\r\n  private\r\n    FOwner: TTMSFNCCustomColorSelector;\r\n    function GetItem(Index: integer): TTMSFNCColorSelectorItem;\r\n    procedure SetItem(Index: integer; const Value: TTMSFNCColorSelectorItem);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; override;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCCustomSelector); override;\r\n    property Items[Index: integer]:TTMSFNCColorSelectorItem read GetItem write SetItem; default;\r\n    function Add: TTMSFNCColorSelectorItem;\r\n    function Insert(Index: integer): TTMSFNCColorSelectorItem;\r\n  end;\r\n\r\n  TTMSFNCCustomSelectorColorSelected = procedure(Sender: TObject; AColor: TTMSFNCGraphicsColor) of object;\r\n  TTMSFNCCustomSelectorColorDeselected = procedure(Sender: TObject; AColor: TTMSFNCGraphicsColor) of object;\r\n  TTMSFNCCustomSelectorColorClick = procedure(Sender: TObject; AColor: TTMSFNCGraphicsColor) of object;\r\n\r\n  TTMSFNCCustomColorSelectorMode = (csmSimple, csmExtended, csmExtendedMore);\r\n\r\n  TTMSFNCCustomColorSelector = class(TTMSFNCDefaultSelector)\r\n  private\r\n    w, h: Single;\r\n    FColorWheel: TTMSFNCCustomControl;\r\n    FPanel: TTMSFNCCustomControl;\r\n    FBackButton: TButton;\r\n    FOnColorSelected: TTMSFNCCustomSelectorColorSelected;\r\n    FOnColorDeselected: TTMSFNCCustomSelectorColorDeselected;\r\n    FMode: TTMSFNCCustomColorSelectorMode;\r\n    procedure SetSelectedColor(const Value: TTMSFNCGraphicsColor);\r\n    function GetSelectedColor: TTMSFNCGraphicsColor;\r\n    function GetItems: TTMSFNCColorSelectorItems;\r\n    procedure SetItems(const Value: TTMSFNCColorSelectorItems);\r\n    procedure SetMode(const Value: TTMSFNCCustomColorSelectorMode);\r\n  protected\r\n    function GetVersion: String; override;\r\n    procedure BackButtonClicked(Sender: TObject);\r\n    procedure ColorWheelChange(Sender: TObject; AColor: TTMSFNCGraphicsColor);\r\n    procedure DoItemClick(AItemIndex: Integer); override;\r\n    procedure WrapperSizeChanged(AWidth, AHeight: Single); virtual;\r\n    procedure DoItemSelected(AItemIndex: Integer); override;\r\n    procedure DoItemDeselected(AItemIndex: Integer); override;\r\n    function CreateItemsCollection: TTMSFNCCustomSelectorItems; override;\r\n    procedure DoItemBeforeDrawContent(AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer; var ADefaultDraw: Boolean); override;\r\n    procedure DrawItemContent(AGraphics: TTMSFNCGraphics; ADisplayItem: TTMSFNCCustomSelectorDisplayItem); override;\r\n    property OnColorSelected: TTMSFNCCustomSelectorColorSelected read FOnColorSelected write FOnColorSelected;\r\n    property OnColorDeselected: TTMSFNCCustomSelectorColorDeselected read FOnColorDeselected write FOnColorDeselected;\r\n    property SelectedColor: TTMSFNCGraphicsColor read GetSelectedColor write SetSelectedColor default gcNull;\r\n    property Items: TTMSFNCColorSelectorItems read GetItems write SetItems;\r\n    property Mode: TTMSFNCCustomColorSelectorMode read FMode write SetMode default csmSimple;\r\n    procedure AddColors;\r\n    procedure ResetToDefaultStyle; override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    function FindItemByColor(AColor: TTMSFNCGraphicsColor): Integer;\r\n    function FindColorByItem(AItem: Integer): TTMSFNCGraphicsColor;\r\n    function ColorWheelActive: Boolean;\r\n    procedure InitializeDefault; override;\r\n    procedure InitSample; virtual;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCColorSelector = class(TTMSFNCCustomColorSelector)\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n  published\r\n    property Appearance;\r\n    property Rows;\r\n    property Columns;\r\n    property Items;\r\n    property Mode;\r\n    property OnColorSelected;\r\n    property OnColorDeselected;\r\n    property SelectedColor;\r\n    property OnItemSelected;\r\n    property OnItemDeselected;\r\n    property OnItemClick;\r\n    property SelectedItemIndex;\r\n    property OnItemBeforeDrawBackground;\r\n    property OnItemAfterDrawBackground;\r\n    property OnItemBeforeDrawContent;\r\n    property OnItemAfterDrawContent;\r\n    property OnBeforeDraw;\r\n    property OnAfterDraw;\r\n    property OnItemBeforeDrawText;\r\n    property OnItemAfterDrawText;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  SysUtils, WEBLib.TMSFNCUtils, WEBLib.TMSFNCColorWheel;\r\n\r\nfunction AsColorWheel(AColorWheel: TTMSFNCCustomControl): TTMSFNCColorWheel;\r\nbegin\r\n  Result := (AColorWheel as TTMSFNCColorWheel);\r\nend;\r\n\r\n{ TTMSFNCCustomColorSelector }\r\n\r\nprocedure TTMSFNCCustomColorSelector.AddColors;\r\nvar\r\n  I: Integer;\r\n  it: TTMSFNCCustomSelectorItem;\r\nbegin\r\n  BeginUpdate;\r\n  Items.Clear;\r\n  case Mode of\r\n    csmSimple:\r\n    begin\r\n      Columns := 4;\r\n      Rows := 4;\r\n      for I := 0 to TMSFNCColorSelectorColorSetCount do\r\n        TTMSFNCColorSelectorItem(Items.Add).Color := TMSFNCColorSelectorColorSet[I];\r\n    end;\r\n    csmExtended:\r\n    begin\r\n      Columns := 8;\r\n      Rows := 5;\r\n      for I := 0 to TMSFNCColorSelectorExtendedColorSetCount do\r\n        TTMSFNCColorSelectorItem(Items.Add).Color := TMSFNCColorSelectorExtendedColorSet[I];\r\n    end;\r\n    csmExtendedMore:\r\n    begin\r\n      Columns := 8;\r\n      Rows := 7;\r\n      for I := 0 to TMSFNCColorSelectorExtendedColorSetCount do\r\n        TTMSFNCColorSelectorItem(Items.Add).Color := TMSFNCColorSelectorExtendedColorSet[I];\r\n\r\n      it := Items.Insert(0);\r\n      TTMSFNCColorSelectorItem(it).Color := gcBlack;\r\n      it.ColumnSpan := 8;\r\n      it.Text := 'Automatic';\r\n      it.DataBoolean := True;\r\n\r\n      it := Items.Add;\r\n      it.ColumnSpan := 8;\r\n      it.Text := 'More Colors...';\r\n      it.CanSelect := False;\r\n      it.DataBoolean := True;\r\n\r\n      Items.Add.Visible := False;\r\n    end;\r\n  end;\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorSelector.BackButtonClicked(Sender: TObject);\r\nbegin\r\n  if Assigned(FPanel) then\r\n  begin\r\n    FPanel.Visible := False;\r\n    FPanel.Parent := nil;\r\n    Width := Round(w);\r\n    Height := Round(h);\r\n    WrapperSizeChanged(w, h);\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorSelector.WrapperSizeChanged(AWidth, AHeight: Single);\r\nbegin\r\n\r\nend;\r\n\r\nfunction TTMSFNCCustomColorSelector.ColorWheelActive: Boolean;\r\nbegin\r\n  Result := Assigned(FPanel) and Assigned(FPanel.Parent) and FPanel.Visible\r\n    and Assigned(FColorWheel) and Assigned(FColorWheel.Parent) and FColorWheel.Visible\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorSelector.ColorWheelChange(Sender: TObject; AColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  if BlockChange then\r\n    Exit;\r\n\r\n  BlockChange := True;\r\n  SelectedItemIndex := -1;\r\n  Items[Items.Count - 1].Color := AsColorWheel(FColorWheel).SelectedColor;\r\n  SelectedColor := AsColorWheel(FColorWheel).SelectedColor;\r\n  DoItemSelected(SelectedItemIndex);\r\n  Invalidate;\r\n  BlockChange := False;\r\nend;\r\n\r\nconstructor TTMSFNCCustomColorSelector.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  Width := 135;\r\n  Height := 135;\r\n  FMode := csmSimple;\r\n\r\n  FPanel := TTMSFNCCustomControl.Create(Self);\r\n  FPanel.Visible := False;\r\n  FPanel.Stored := False;\r\n  FPanel.ControlAlignment := caClient;\r\n\r\n  FBackButton := TButton.Create(FPanel);\r\n  {$IFDEF CMNWEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  FBackButton.AlignWithMargins := True;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  FBackButton.BorderSpacing.Top := 3;\r\n  FBackButton.BorderSpacing.Left := 3;\r\n  FBackButton.BorderSpacing.Bottom := 3;\r\n  FBackButton.BorderSpacing.Right := 3;\r\n  {$ENDIF}\r\n  {$IFNDEF LCLLIB}\r\n  FBackButton.Margins.Top := 3;\r\n  FBackButton.Margins.Left := 3;\r\n  FBackButton.Margins.Bottom := 3;\r\n  FBackButton.Margins.Right := 3;\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  FBackButton.Text := 'Back';\r\n  FBackButton.Align := TAlignLayout.Top;\r\n  {$ENDIF}\r\n  {$IFNDEF FMXLIB}\r\n  FBackButton.Caption := 'Back';\r\n  FBackButton.Align := alTop;\r\n  {$ENDIF}\r\n  FBackButton.Parent := FPanel;\r\n  FBackButton.OnClick := BackButtonClicked;\r\n\r\n  FColorWheel := TTMSFNCColorWheel.Create(FPanel);\r\n  AsColorWheel(FColorWheel).ControlAlignment := caClient;\r\n  AsColorWheel(FColorWheel).SetControlMargins(3, 0, 3, 3);\r\n  AsColorWheel(FColorWheel).Parent := FPanel;\r\n  AsColorWheel(FColorWheel).OnSelectedColorChanged := ColorWheelChange;\r\n\r\n  if IsDesignTime then\r\n    InitSample;\r\nend;\r\n\r\nfunction TTMSFNCCustomColorSelector.CreateItemsCollection: TTMSFNCCustomSelectorItems;\r\nbegin\r\n  Result := TTMSFNCColorSelectorItems.Create(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorSelector.DoItemBeforeDrawContent(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; AItemIndex: Integer; var ADefaultDraw: Boolean);\r\nbegin\r\n  if Mode = csmExtendedMore then\r\n  begin\r\n    if (AItemIndex >= 0) and (AItemIndex <= Items.Count - 1) then\r\n      ADefaultDraw := not Items[AItemIndex].DataBoolean;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorSelector.DoItemClick(AItemIndex: Integer);\r\nvar\r\n  l, t, r, b, nw, nh: Single;\r\nbegin\r\n  if ClosedRemotely then\r\n  begin\r\n    ClosedRemotely := False;\r\n    inherited;\r\n    Exit;\r\n  end;\r\n\r\n  if (Mode = csmExtendedMore) and Assigned(FPanel) and (AItemIndex = Items.Count - 2) then\r\n  begin\r\n    w := Width;\r\n    h := Height;\r\n    l := 0;\r\n    t := 0;\r\n    r := 0;\r\n    b := 0;\r\n    FColorWheel.GetControlMargins(l, t, r, b);\r\n    nh := ScalePaintValue(205) + FBackButton.Height + t + b;\r\n    Height := Round(nh);\r\n    nw := ScalePaintValue(350);\r\n    Width := Round(nw);\r\n    WrapperSizeChanged(nw, nh);\r\n    BlockChange := True;\r\n    AsColorWheel(FColorWheel).SelectedColor := FindColorByItem(AItemIndex + 1);\r\n    BlockChange := False;\r\n    FPanel.Visible := True;\r\n    FPanel.Parent := Self;\r\n  end;\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorSelector.DoItemDeselected(AItemIndex: Integer);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnColorDeselected) then\r\n    OnColorDeselected(Self, FindColorByItem(AItemIndex));\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorSelector.DoItemSelected(AItemIndex: Integer);\r\nvar\r\n  c: TTMSFNCGraphicsColor;\r\nbegin\r\n  inherited;\r\n  c := FindColorByItem(AItemIndex);\r\n  if Assigned(FColorWheel) and not BlockChange then\r\n  begin\r\n    BlockChange := True;\r\n    AsColorWheel(FColorWheel).SelectedColor := c;\r\n    if (Mode = csmExtendedMore) and (Items.Count > 0) then\r\n      Items[Items.Count - 1].Color := c;\r\n    BlockChange := False;\r\n  end;\r\n\r\n  if Assigned(OnColorSelected) then\r\n    OnColorSelected(Self, c);\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorSelector.DrawItemContent(AGraphics: TTMSFNCGraphics;\r\n  ADisplayItem: TTMSFNCCustomSelectorDisplayItem);\r\nvar\r\n  r: TRectF;\r\n  it: TTMSFNCCustomSelectorItem;\r\n  a: Boolean;\r\nbegin\r\n  it := ADisplayItem.Item;\r\n  if Assigned(it) and (it is TTMSFNCColorSelectorItem) then\r\n  begin\r\n    r := ADisplayItem.Rect;\r\n    a := True;\r\n    DoItemBeforeDrawContent(AGraphics, ADisplayItem.Rect, it.Index, a);\r\n    if a then\r\n    begin\r\n      case Mode of\r\n        csmSimple: InflateRectEx(r, -5, -5);\r\n        csmExtended, csmExtendedMore: InflateRectEx(r, -3, -3);\r\n      end;\r\n      AGraphics.Fill.Kind := gfkSolid;\r\n      AGraphics.Fill.Color := (it as TTMSFNCColorSelectorItem).Color;\r\n      AGraphics.Stroke.Color := AGraphics.Fill.Color;\r\n      AGraphics.DrawRectangle(r);\r\n      DoItemAfterDrawContent(AGraphics, ADisplayItem.Rect, it.Index);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomColorSelector.FindColorByItem(\r\n  AItem: Integer): TTMSFNCGraphicsColor;\r\nvar\r\n  I: Integer;\r\n  it: TTMSFNCColorSelectorItem;\r\nbegin\r\n  Result := gcNull;\r\n  for I := 0 to Items.Count - 1 do\r\n  begin\r\n    it := Items[I] as TTMSFNCColorSelectorItem;\r\n    if it.Index = AItem then\r\n    begin\r\n      Result := it.Color;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomColorSelector.FindItemByColor(\r\n  AColor: TTMSFNCGraphicsColor): Integer;\r\nvar\r\n  I: Integer;\r\n  it: TTMSFNCColorSelectorItem;\r\nbegin\r\n  Result := -1;\r\n  for I := 0 to Items.Count - 1 do\r\n  begin\r\n    it := Items[I] as TTMSFNCColorSelectorItem;\r\n    if (it.Color = AColor) and it.CanSelect then\r\n    begin\r\n      Result := it.Index;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomColorSelector.GetItems: TTMSFNCColorSelectorItems;\r\nbegin\r\n  Result := TTMSFNCColorSelectorItems(inherited Items);\r\nend;\r\n\r\nfunction TTMSFNCCustomColorSelector.GetSelectedColor: TTMSFNCGraphicsColor;\r\nbegin\r\n  Result := FindColorByItem(SelectedItemIndex);\r\nend;\r\n\r\nfunction TTMSFNCCustomColorSelector.GetVersion: String;\r\nbegin\r\n  Result := GetVersionNumber(MAJ_VER, MIN_VER, REL_VER, BLD_VER);\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorSelector.InitializeDefault;\r\nbegin\r\n  inherited;\r\n  AddColors;\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorSelector.InitSample;\r\nbegin\r\n  ResetToDefaultStyle;\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorSelector.ResetToDefaultStyle;\r\nbegin\r\n  inherited;\r\n  BeginUpdate;\r\n\r\n  {$IFDEF FMXLIB}\r\n  Appearance.Font.Color := $FF454545;\r\n  Appearance.Fill.Color := $FFEEF2F9;\r\n  Appearance.FillSelected.Color := $FFA8BCF0;\r\n  Appearance.StrokeSelected.Color := $FF2D9BEF;\r\n  Appearance.FillDown.Color := $FF5A81E6;\r\n  Appearance.FillHover.Color := $FFFFFFFE;\r\n  {$ENDIF}\r\n  {$IFNDEF FMXLIB}\r\n  Appearance.Font.Color := $454545;\r\n  Appearance.Fill.Color := $F9F2EE;\r\n  Appearance.FillSelected.Color := $F0BCA8;\r\n  Appearance.StrokeSelected.Color := $EF9B2D;\r\n  Appearance.FillDown.Color := $E6815A;\r\n  {$ENDIF}\r\n\r\n  Appearance.FillSelected.Kind := gfkSolid;\r\n  Appearance.Fill.Kind := gfkSolid;\r\n  Appearance.FillDown.Kind := gfkSolid;\r\n  Appearance.FillHover.Kind := gfkSolid;\r\n  Appearance.Stroke.Kind := gskSolid;\r\n  Appearance.StrokeSelected.Kind := gskSolid;\r\n  Appearance.StrokeHover.Kind := gskSolid;\r\n\r\n  Appearance.Stroke.Color := gcDarkgray;\r\n  Appearance.StrokeHover.Color := Appearance.FillDown.Color;\r\n  Appearance.StrokeDown.Assign(Appearance.Stroke);\r\n\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorSelector.SetItems(\r\n  const Value: TTMSFNCColorSelectorItems);\r\nbegin\r\n  Items.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorSelector.SetMode(const Value: TTMSFNCCustomColorSelectorMode);\r\nvar\r\n  s: Single;\r\nbegin\r\n  {$IFDEF VCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF (COMPILERVERSION >= 33) and (COMPILERVERSION < 35)}\r\n  s := PaintScaleFactor;\r\n  {$ELSE}\r\n  s := TTMSFNCUtils.GetDPIScale(Self, 96);\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFNDEF VCLLIB}\r\n  s := 1;\r\n  {$ENDIF}\r\n\r\n  if FMode <> Value then\r\n  begin\r\n    FMode := Value;\r\n    case Mode of\r\n      csmSimple:\r\n      begin\r\n        Width := Round(s * 135);\r\n        Height := Round(s * 135);\r\n      end;\r\n      csmExtended:\r\n      begin\r\n        Width := Round(s * 200);\r\n        Height := Round(s * 135);\r\n      end;\r\n      csmExtendedMore:\r\n      begin\r\n        Width := Round(s * 200);\r\n        Height := Round(s * 175);\r\n      end;\r\n    end;\r\n    AddColors;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomColorSelector.SetSelectedColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  case Mode of\r\n    csmExtendedMore:\r\n    begin\r\n      if Items.Count > 0 then\r\n        Items[Items.Count - 1].Color := Value;\r\n    end;\r\n  end;\r\n  SelectedItemIndex := FindItemByColor(Value);\r\nend;\r\n\r\n{ TTMSFNCColorSelectorItems }\r\n\r\nconstructor TTMSFNCColorSelectorItems.Create(AOwner: TTMSFNCCustomSelector);\r\nbegin\r\n  inherited;\r\n  FOwner := AOwner as TTMSFNCCustomColorSelector;\r\nend;\r\n\r\nfunction TTMSFNCColorSelectorItems.Add: TTMSFNCColorSelectorItem;\r\nbegin\r\n  Result := TTMSFNCColorSelectorItem(inherited Add);\r\nend;\r\n\r\nfunction TTMSFNCColorSelectorItems.Insert(\r\n  Index: integer): TTMSFNCColorSelectorItem;\r\nbegin\r\n  Result := TTMSFNCColorSelectorItem(inherited Insert(Index));\r\nend;\r\n\r\nfunction TTMSFNCColorSelectorItems.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCColorSelectorItem;\r\nend;\r\n\r\nfunction TTMSFNCColorSelectorItems.GetItem(\r\n  Index: integer): TTMSFNCColorSelectorItem;\r\nbegin\r\n  Result := TTMSFNCColorSelectorItem(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCColorSelectorItems.SetItem(Index: integer;\r\n  const Value: TTMSFNCColorSelectorItem);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCColorSelectorItem }\r\n\r\nprocedure TTMSFNCColorSelectorItem.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if Source is TTMSFNCColorSelectorItem then\r\n    FColor := (Source as TTMSFNCColorSelectorItem).Color;\r\nend;\r\n\r\nconstructor TTMSFNCColorSelectorItem.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(Collection) then\r\n    FOwner := (Collection as TTMSFNCColorSelectorItems).FOwner;\r\nend;\r\n\r\nprocedure TTMSFNCColorSelectorItem.SetColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FColor <> Value then\r\n  begin\r\n    FColor := Value;\r\n    if Assigned(FOwner) then\r\n      FOwner.InvalidateItems;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCColorSelector }\r\n\r\nprocedure TTMSFNCColorSelector.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClasses([TTMSFNCColorSelector, TTMSFNCColorSelectorItem]);\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2016                                      }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCToolBarRes;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\ninterface\r\n\r\n{$IFDEF WEBLIB}\r\nconst\r\n  TMSFNCTOOLBAREXPAND = 'data:image/PNG;base64,iVBORw0KGgoAAAANSUhEUgAAAAcAAAAHCAYAAADEUlfTAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAOvwAADr8B'+\r\n                        'OAVTJAAAABh0RVh0U29mdHdhcmUAcGFpbnQubmV0IDQuMC4zjOaXUAAAACVJREFUGFdj+P//P07MEBYW9h8Xxi8J'+\r\n                        'AjglYACnBAzglMAEDAwARZ1DA4NRF38AAAAASUVORK5CYII=';\r\n  TMSFNCTOOLBAREXPANDLARGE = TMSFNCTOOLBAREXPAND;\r\n\r\n  TMSFNCTOOLBAREXPAND2 = 'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAcAAAAHCAYAAADEUlfTAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAOvgAADr4'+\r\n                         'B6kKxwAAAABl0RVh0U29mdHdhcmUAcGFpbnQubmV0IDQuMC4xNkRpr/UAAAA3SURBVBhXY3j69KktLgyS/I8LE5RsQxeE4jaQpCKIgSQIlgBi'+\r\n                         'RQYQADGgAqgSMABVkI2QYGAAANnukE/t/B6ZAAAAAElFTkSuQmCC';\r\n  TMSFNCTOOLBAREXPAND2LARGE = TMSFNCTOOLBAREXPAND;\r\n\r\n  TMSFNCTOOLBAROPTIONSMENU = 'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAcAAAAJCAYAAAD+WDajAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAOvwA'+\r\n                             'ADr8BOAVTJAAAABh0RVh0U29mdHdhcmUAcGFpbnQubmV0IDQuMC4zjOaXUAAAACpJREFUKFNjwAvCwsL+48IM///jxvh1YhOEYZz2giVg'+\r\n                             'AKcEDOCUwAQMDAAqj1EKDJG5XAAAAABJRU5ErkJggg==';\r\n  TMSFNCTOOLBAROPTIONSMENULARGE = TMSFNCTOOLBAROPTIONSMENU;\r\n\r\n  TMSFNCTOOLBARQUICKMENU = 'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAcAAAAHCAYAAADEUlfTAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAOwgAADs'+\r\n                           'IBFShKgAAAABl0RVh0U29mdHdhcmUAcGFpbnQubmV0IDQuMC4xNkRpr/UAAAAlSURBVBhXYwCC/9gwEAApKAMbJl4SnY0igCQIw3gkcUowMP'+\r\n                           'wHALBNZJw15C+yAAAAAElFTkSuQmCC';\r\n  TMSFNCTOOLBARQUICKMENU2 = 'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAcAAAAHCAYAAADEUlfTAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAA'+\r\n                            'AAJcEhZcwAADsMAAA7DAcdvqGQAAAAZdEVYdFNvZnR3YXJlAHBhaW50Lm5ldCA0LjAuMTZEaa/1AAAAL0lEQVQYV2P4jxswwCRBNAYGESCA'+\r\n                            'IQHCIAIEYAIgAGejC8D4YEBQEqvE/////wMA7H6pV7j5gXMAAAAASUVORK5CYII=';\r\n{$ENDIF}\r\n\r\n{$R TMSFNCToolBar.res}\r\n\r\nimplementation\r\n\r\n{$IFDEF WEBLIB}\r\nuses\r\n  WEBLib.TMSFNCTypes;\r\n\r\ninitialization\r\nbegin\r\n  TTMSFNCBitmap.CreateFromResource(TMSFNCTOOLBAREXPAND);\r\n  TTMSFNCBitmap.CreateFromResource(TMSFNCTOOLBAREXPAND2);\r\n  TTMSFNCBitmap.CreateFromResource(TMSFNCTOOLBAROPTIONSMENU);\r\n  TTMSFNCBitmap.CreateFromResource(TMSFNCTOOLBARQUICKMENU);\r\n  TTMSFNCBitmap.CreateFromResource(TMSFNCTOOLBARQUICKMENU2);\r\nend;\r\n{$ENDIF}\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2016 - 2022                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : https://www.tmssoftware.com                       }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCToolBar;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\n{$IFDEF CMNLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$DEFINE VCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF VCLLIB}\r\n{$DEFINE VCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, WEBLib.TMSFNCGraphics, WEBLib.TMSFNCPersistence, WEBLib.TMSFNCStyles, WEBLib.TMSFNCCustomControl, WEBLib.Controls, Types, WEBLib.TMSFNCBitmapSelector,\r\n  WEBLib.TMSFNCPopup, WEBLib.TMSFNCTypes, WEBLib.TMSFNCBitmapContainer, WEBLib.StdCtrls, WEBLib.TMSFNCColorSelector,\r\n  {%H-}WEBLib.TMSFNCToolBarRes, WEBLib.TMSFNCGraphicsTypes\r\n  {$IFNDEF LCLLIB}\r\n  {$IFNDEF WEBLIB}\r\n  ,UITypes, Generics.Collections, Generics.Defaults\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.ListBox, WEBLib.Menus, FMX.Types, FMX.Edit\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  {$IFNDEF WEBLIB}\r\n  ,Menus\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, WEBLib.Menus\r\n  {$ENDIF}\r\n  ,WEBLib.ExtCtrls\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\nconst\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 0; // Minor version nr.\r\n  REL_VER = 2; // Release nr.\r\n  BLD_VER = 5; // Build nr.\r\n\r\n  // version history\r\n  // v1.0.0.0 : first release\r\n  // v1.0.1.0 : New : DisabledBitmaps property\r\n  // v1.0.1.1 : Fixed : Issue with DropDownButton on VCL\r\n  // v1.0.1.2 : Fixed : Issue with bounds loop on LCL\r\n  // v1.0.1.3 : Fixed : Issue with Tag property being overriden\r\n  // v1.0.1.4 : Fixed : Issue with BitmapContainer not being given to internal TTMSFNCBitmapSelector in TTMSFNCToolBarBitmapPicker\r\n  // v1.0.1.5 : Improved: Added onAnchorClick for HTML text in the TAdvToolBar\r\n  // v1.0.1.6 : Fixed : Issue updating Visible property triggering multiple unnecessary UpdateToolBar calls\r\n  //          : Improved : IsLoading check expanded checking for loading subcontrols\r\n  // v1.0.1.7 : Fixed : Issue in Delphi 11 with begin and end scene for CreateBitmapCanvas\r\n  //          : Fixed : Issue with compact toolbars not getting hidden in combination with TTMSFNCRibbon\r\n  // v1.0.2.0 : Improved : Support for Delphi 11 high dpi handling added\r\n  // v1.0.2.1 : Fixed : Issue with realignment causing extreme slowness at designtime in FMX.\r\n  // v1.0.2.2 : Fixed : Issue with aligning buttons when parenting\r\n  // v1.0.2.3 : Fixed : access violation with compacting popup\r\n  // v1.0.2.4 : Improved : Exposed font color properties for disabled, hover and down state\r\n  //          : Improved : UseStyledDropDownIcon to allow toggling between a styled or bitmap container icon when AdaptToStyle is true\r\n  //          : Fixed : Issue styling Text when AdaptToStyle is true\r\n  // v1.0.2.5 : Improved : OnCustomizeCompactToolBar event added\r\n\r\n  {$IFDEF WEBLIB}\r\n  TMSFNCTOOLBAREXPANDSVG = 'data:image/svg+xml;base64,PHN2ZyB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGhlaWdo'\r\n                +'dD0iMTIiIHdpZHRoPSIxMCI+DQogIDxwYXRoIGQ9Ik0gMiA0IEwgNSA3IEwgOCA0IFoiIHN0eWxlPSJzdHJva2U6YmxhY2s7'\r\n                +'c3Ryb2tlLXdpZHRoOjEiIHN0cm9rZS1saW5lY2FwPSJyb3VuZCIgLz4NCjwvc3ZnPg==';\r\n  {$ENDIF}\r\n\r\ntype\r\n  TTMSFNCCustomToolBar = class;\r\n  TTMSFNCCustomDockPanel = class;\r\n  TTMSFNCCustomToolBarSeparator = class;\r\n  TTMSFNCDefaultToolBarButton = class;\r\n  TTMSFNCToolBarButton = class;\r\n  TTMSFNCToolBarDropDownButton = class;\r\n\r\n  TTMSFNCToolBarCustomButtonAppearance = class(TPersistent)\r\n  private\r\n    FOwner: TTMSFNCDefaultToolBarButton;\r\n    FHoverStroke: TTMSFNCGraphicsStroke;\r\n    FDownFill: TTMSFNCGraphicsFill;\r\n    FNormalFill: TTMSFNCGraphicsFill;\r\n    FDownStroke: TTMSFNCGraphicsStroke;\r\n    FDisabledFill: TTMSFNCGraphicsFill;\r\n    FNormalStroke: TTMSFNCGraphicsStroke;\r\n    FDisabledStroke: TTMSFNCGraphicsStroke;\r\n    FHoverFill: TTMSFNCGraphicsFill;\r\n    FCorners: TTMSFNCGraphicsCorners;\r\n    FRounding: Single;\r\n    FTransparent: Boolean;\r\n    FShowInnerStroke: Boolean;\r\n    FInnerStroke: TTMSFNCGraphicsStroke;\r\n    FFlatStyle: Boolean;\r\n    FOnChange: TNotifyEvent;\r\n    procedure SetDisabledFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetDisabledStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetDownFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetDownStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetHoverFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetHoverStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetNormalFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetNormalStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetCorners(const Value: TTMSFNCGraphicsCorners); virtual;\r\n    procedure SetRounding(const Value: Single); virtual;\r\n    procedure SetInnerStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetShowInnerStroke(const Value: Boolean);\r\n    procedure SetTransparent(const Value: Boolean);\r\n    function IsRoundingStored: Boolean;\r\n    procedure SetFlatStyle(const Value: Boolean);\r\n  protected\r\n    procedure FillChanged(Sender: TObject);\r\n    procedure StrokeChanged(Sender: TObject);\r\n    procedure Changed; virtual;\r\n    property Transparent: Boolean read FTransparent write SetTransparent default False;\r\n    property ShowInnerStroke: Boolean read FShowInnerStroke write SetShowInnerStroke default True;\r\n    property Rounding: Single read FRounding write SetRounding stored IsRoundingStored nodefault;\r\n    property Corners: TTMSFNCGraphicsCorners read FCorners write SetCorners default [gcTopLeft, gcTopRight, gcBottomLeft, gcBottomRight];\r\n    property InnerStroke: TTMSFNCGraphicsStroke read FInnerStroke write SetInnerStroke;\r\n    property NormalFill: TTMSFNCGraphicsFill read FNormalFill write SetNormalFill;\r\n    property NormalStroke: TTMSFNCGraphicsStroke read FNormalStroke write SetNormalStroke;\r\n    property HoverFill: TTMSFNCGraphicsFill read FHoverFill write SetHoverFill;\r\n    property HoverStroke: TTMSFNCGraphicsStroke read FHoverStroke write SetHoverStroke;\r\n    property DownFill: TTMSFNCGraphicsFill read FDownFill write SetDownFill;\r\n    property DownStroke: TTMSFNCGraphicsStroke read FDownStroke write SetDownStroke;\r\n    property DisabledFill: TTMSFNCGraphicsFill read FDisabledFill write SetDisabledFill;\r\n    property DisabledStroke: TTMSFNCGraphicsStroke read FDisabledStroke write SetDisabledStroke;\r\n    property FlatStyle: Boolean read FFlatStyle write SetFlatStyle default False;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create(AOwner: TTMSFNCDefaultToolBarButton);\r\n    destructor Destroy; override;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  end;\r\n\r\n  TTMSFNCToolBarButtonAppearance = class(TTMSFNCToolBarCustomButtonAppearance)\r\n  published\r\n    property Transparent;\r\n    property ShowInnerStroke;\r\n    property Rounding;\r\n    property Corners;\r\n    property InnerStroke;\r\n    property NormalFill;\r\n    property NormalStroke;\r\n    property HoverFill;\r\n    property HoverStroke;\r\n    property DownFill;\r\n    property DownStroke;\r\n    property DisabledFill;\r\n    property DisabledStroke;\r\n    property FlatStyle;\r\n  end;\r\n\r\n  TTMSFNCToolBarCompactAppearance = class(TTMSFNCToolBarCustomButtonAppearance)\r\n  published\r\n    property NormalFill;\r\n    property NormalStroke;\r\n    property HoverFill;\r\n    property HoverStroke;\r\n    property DownFill;\r\n    property DownStroke;\r\n    property DisabledFill;\r\n    property DisabledStroke;\r\n    property FlatStyle;\r\n  end;\r\n\r\n  TTMSFNCToolBarQuickMenuButtonAppearance = class(TTMSFNCToolBarCustomButtonAppearance)\r\n  published\r\n    property NormalFill;\r\n    property NormalStroke;\r\n    property HoverFill;\r\n    property HoverStroke;\r\n    property DownFill;\r\n    property DownStroke;\r\n    property DisabledFill;\r\n    property DisabledStroke;\r\n    property FlatStyle;\r\n  end;\r\n\r\n  TTMSFNCToolBarElementState = (esNormal, esLarge);\r\n\r\n  TTMSFNCCustomToolBarElement = class(TTMSFNCCustomControl)\r\n  private\r\n    FBlockUpdate: Boolean;\r\n    FOnUpdateToolBar: TNotifyEvent;\r\n    FOnUpdateToolBarControl: TNotifyEvent;\r\n    FCanCopy: Boolean;\r\n    FState: TTMSFNCToolBarElementState;\r\n    FLastElement: Boolean;\r\n    FControlIndex: Integer;\r\n    procedure SetState(const Value: TTMSFNCToolBarElementState);\r\n    procedure SetLastElement(const Value: Boolean);\r\n  protected\r\n    function GetDocURL: string; override;\r\n    procedure UpdateState; virtual;\r\n    procedure UpdateToolBar; virtual;\r\n    procedure UpdateToolBarControl; virtual;\r\n    {$IFDEF FMXLIB}\r\n    procedure SetVisible(const Value: Boolean); override;\r\n    procedure DoMatrixChanged(Sender: TObject); override;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    procedure VisibleChanging; override;\r\n    {$ENDIF}\r\n    procedure DefineProperties(Filer : TFiler); override;\r\n    procedure ReadControlIndex(Reader: TReader);\r\n    procedure WriteControlIndex(Writer: TWriter);\r\n    procedure UpdateControlAfterResize; override;\r\n    property OnUpdateToolBar: TNotifyEvent read FOnUpdateToolBar write FOnUpdateToolBar;\r\n    property OnUpdateToolBarControl: TNotifyEvent read FOnUpdateToolBarControl write FOnUpdateToolBarControl;\r\n    property State: TTMSFNCToolBarElementState read FState write SetState default esNormal;\r\n    property LastElement: Boolean read FLastElement write SetLastElement default False;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    property CanCopy: Boolean read FCanCopy write FCanCopy default True;\r\n    property ControlIndex: Integer read FControlIndex write FControlIndex default -1;\r\n  end;\r\n\r\n  TTMSFNCToolBarButtonBitmapPosition = (bbpLeft, bbpTop);\r\n\r\n  TTMSFNCToolBarButtonLayout = (bblNone, bblBitmap, bblLabel, bblLarge);\r\n\r\n  {$IFDEF FNCLIB}\r\n  TTMSFNCDefaultToolBarButton = class(TTMSFNCCustomToolBarElement, ITMSFNCBitmapContainer)\r\n  {$ENDIF}\r\n  {$IFNDEF FNCLIB}\r\n  TTMSFNCDefaultToolBarButton = class(TTMSFNCCustomToolBarElement)\r\n  {$ENDIF}\r\n  private\r\n    FOldHeight: Single;\r\n    FBitmapVisible: Boolean;\r\n    FText: String;\r\n    FPopup: TTMSFNCPopup;\r\n    FPopupPlacement: TTMSFNCPopupPlacement;\r\n    FDropDownHeight: Single;\r\n    FDropDownWidth: Single;\r\n    FDown, FHover, FPrevHover: Boolean;\r\n    FAppearance: TTMSFNCToolBarButtonAppearance;\r\n    FBitmapContainer: TTMSFNCBitmapContainer;\r\n    FBitmaps: TTMSFNCScaledBitmaps;\r\n    FApplyName: Boolean;\r\n    FDropDownControl: TControl;\r\n    FFont: TTMSFNCGraphicsFont;\r\n    FOnBeforeDropDown: TNotifyEvent;\r\n    FCloseOnSelection: Boolean;\r\n    FDownState: Boolean;\r\n    FTextVisible: Boolean;\r\n    FOnCloseDropDown: TNotifyEvent;\r\n    FOnDropDown: TNotifyEvent;\r\n    FVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FHorizontalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FWordWrapping: Boolean;\r\n    FTrimming: TTMSFNCGraphicsTextTrimming;\r\n    FBitmapSize: Single;\r\n    FStretchText: Boolean;\r\n    FDisabledBitmaps: TTMSFNCScaledBitmaps;\r\n    FHoverBitmaps: TTMSFNCScaledBitmaps;\r\n    FShowFocus: Boolean;\r\n    FDropDownAutoWidth: Boolean;\r\n    FHoverFontColor: TTMSFNCGraphicsColor;\r\n    FDownFontColor: TTMSFNCGraphicsColor;\r\n    FDisabledFontColor: TTMSFNCGraphicsColor;\r\n    FStretchBitmapIfNoText: Boolean;\r\n    FBitmapPosition: TTMSFNCToolBarButtonBitmapPosition;\r\n    FMaximumLayout: TTMSFNCToolBarButtonLayout;\r\n    FMinimumLayout: TTMSFNCToolBarButtonLayout;\r\n    FLayout: TTMSFNCToolBarButtonLayout;\r\n    FCompactLayout: TTMSFNCToolBarButtonLayout;\r\n    FLargeLayoutBitmapSize: Single;\r\n    FLargeLayoutBitmaps: TTMSFNCScaledBitmaps;\r\n    FLargeLayoutHoverBitmaps: TTMSFNCScaledBitmaps;\r\n    FLargeLayoutDisabledBitmaps: TTMSFNCScaledBitmaps;\r\n    FAutoBitmapSize: Boolean;\r\n    FLargeLayoutAutoBitmapSize: Boolean;\r\n    FUseStyledDropDownIcon: Boolean;\r\n    procedure SetAppearance(const Value: TTMSFNCToolBarButtonAppearance);\r\n    procedure SetBitmapContainer(const Value: TTMSFNCBitmapContainer); virtual;\r\n    procedure SetBitmaps(const Value: TTMSFNCScaledBitmaps);\r\n    procedure SetText(const Value: String);\r\n    procedure SetDropDownHeight(const Value: Single);\r\n    procedure SetDropDownWidth(const Value: Single);\r\n    procedure SetBitmapVisible(const Value: Boolean);\r\n    procedure SetTextVisible(const Value: Boolean);\r\n    procedure SetFont(const Value: TTMSFNCGraphicsFont); reintroduce;\r\n    procedure SetDropDownControl(const Value: TControl);\r\n    procedure SetCloseOnSelection(const Value: Boolean);\r\n    procedure SetDownState(const Value: Boolean);\r\n    function IsDropDownHeightStored: Boolean;\r\n    function IsDropDownWidthStored: Boolean;\r\n    procedure SetHorizontalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetVerticalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetWordWrapping(const Value: Boolean);\r\n    procedure SetTrimming(const Value: TTMSFNCGraphicsTextTrimming);\r\n    function IsBitmapSizeStored: Boolean;\r\n    procedure SetBitmapSize(const Value: Single);\r\n    procedure SetStretchText(const Value: Boolean);\r\n    procedure SetDisabledBitmaps(const Value: TTMSFNCScaledBitmaps);\r\n    procedure SetHoverBitmaps(const Value: TTMSFNCScaledBitmaps);\r\n    function GetBitmapContainer: TTMSFNCBitmapContainer;\r\n    procedure SetShowFocus(const Value: Boolean);\r\n    procedure SetDropDownAutoWidth(const Value: Boolean);\r\n    procedure SetDisabledFontColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetDownFontColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetHoverFontColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetStretchBitmapIfNoText(const Value: Boolean);\r\n    procedure SetBitmapPosition(const Value: TTMSFNCToolBarButtonBitmapPosition);\r\n    procedure SetMaximumLayout(const Value: TTMSFNCToolBarButtonLayout);\r\n    procedure SetMinimumLayout(const Value: TTMSFNCToolBarButtonLayout);\r\n    procedure SetLayout(const Value: TTMSFNCToolBarButtonLayout);\r\n    procedure SetCompactLayout(const Value: TTMSFNCToolBarButtonLayout);\r\n    function IsLargeLayoutBitmapSizeStored: Boolean;\r\n    procedure SetLargeLayoutBitmaps(const Value: TTMSFNCScaledBitmaps);\r\n    procedure SetLargeLayoutBitmapSize(const Value: Single);\r\n    procedure SetLargeLayoutDisabledBitmaps(const Value: TTMSFNCScaledBitmaps);\r\n    procedure SetLargeLayoutHoverBitmaps(const Value: TTMSFNCScaledBitmaps);\r\n    procedure SetAutoBitmapSize(const Value: Boolean);\r\n    procedure SetLargeLayoutAutoBitmapSize(const Value: Boolean);\r\n    procedure SetUseStyledDropDownIcon(const Value: Boolean);\r\n  protected\r\n    function CanDrawDesignTime: Boolean; virtual;\r\n    function HasHint: Boolean; override;\r\n    function GetHintString: String; override;\r\n    function GetText: String; virtual;\r\n    function GetTextSize: TSizeF; virtual;\r\n    {$IFNDEF WEBLIB}\r\n    {$IFDEF FNCLIB}\r\n    {$IFNDEF LCLLIB}\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION >= 30}\r\n    procedure ActionChange(Sender: {$IFNDEF FMXLIB}TObject{$ELSE}TBasicAction{$ENDIF}; CheckDefaults: Boolean); override;\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    procedure UpdateControlAfterResize; override;\r\n    procedure ApplyStyle; override;\r\n    procedure ResetToDefaultStyle; override;\r\n    procedure SetAdaptToStyle(const Value: Boolean); override;\r\n    procedure BitmapsChanged(Sender: TObject);\r\n    procedure DoFontChanged(Sender: TObject);\r\n    procedure UpdateLayout; virtual;\r\n    procedure DoClosePopup(Sender: TObject);\r\n    procedure DoPopup(Sender: TObject);\r\n    procedure InitializePopup; virtual;\r\n    procedure UpdateState; override;\r\n    procedure ChangeDPIScale(M, D: Integer); override;\r\n    procedure AppearanceChanged; virtual;\r\n    procedure Notification(AComponent: TComponent; Operation: TOperation); override;\r\n    procedure SetName(const Value: TComponentName); override;\r\n    procedure HandleMouseDown(Button: TTMSFNCMouseButton; Shift: TShiftState; X, Y: Single); override;\r\n    procedure HandleMouseMove(Shift: TShiftState; X, Y: Single); override;\r\n    procedure HandleMouseUp(Button: TTMSFNCMouseButton; Shift: TShiftState; X, Y: Single); override;\r\n    procedure HandleKeyUp(var Key: Word; Shift: TShiftState); override;\r\n    procedure HandleKeyDown(var Key: Word; Shift: TShiftState); override;\r\n    procedure HandleKeyPress(var Key: Char); override;\r\n    procedure HandleMouseEnter; override;\r\n    procedure HandleMouseLeave; override;\r\n    procedure SelectFirstValue; virtual;\r\n    procedure SelectValueWithCharacter({%H-}ACharacter: Char); virtual;\r\n    procedure SelectLastValue; virtual;\r\n    procedure SelectNextValue; virtual;\r\n    procedure SelectPreviousValue; virtual;\r\n    procedure DrawText(AGraphics: TTMSFNCGraphics); virtual;\r\n    procedure DrawBitmap(AGraphics: TTMSFNCGraphics; ARect: TRectF); virtual;\r\n    procedure DrawButton({%H-}AGraphics: TTMSFNCGraphics); virtual;\r\n    function CanDropDown: Boolean; virtual;\r\n    function CanChangeText: Boolean; virtual;\r\n    function GetTextRect: TRectF; virtual;\r\n    function GetDropDownRect: TRectF; virtual;\r\n    function GetBitmapRect: TRectF; overload; virtual;\r\n    function GetBitmapRect(ARect: TRectF): TRectF; overload; virtual;\r\n    function GetBitmapSize: Single; virtual;\r\n    function GetLargeLayoutBitmapSize: Single; virtual;\r\n    property Appearance: TTMSFNCToolBarButtonAppearance read FAppearance write SetAppearance;\r\n    property BitmapVisible: Boolean read FBitmapVisible write SetBitmapVisible default False;\r\n    property Bitmaps: TTMSFNCScaledBitmaps read FBitmaps write SetBitmaps;\r\n    property DisabledBitmaps: TTMSFNCScaledBitmaps read FDisabledBitmaps write SetDisabledBitmaps;\r\n    property HoverBitmaps: TTMSFNCScaledBitmaps read FHoverBitmaps write SetHoverBitmaps;\r\n    property LargeLayoutBitmaps: TTMSFNCScaledBitmaps read FLargeLayoutBitmaps write SetLargeLayoutBitmaps;\r\n    property LargeLayoutDisabledBitmaps: TTMSFNCScaledBitmaps read FLargeLayoutDisabledBitmaps write SetLargeLayoutDisabledBitmaps;\r\n    property LargeLayoutHoverBitmaps: TTMSFNCScaledBitmaps read FLargeLayoutHoverBitmaps write SetLargeLayoutHoverBitmaps;\r\n    property BitmapContainer: TTMSFNCBitmapContainer read GetBitmapContainer write SetBitmapContainer;\r\n    property BitmapSize: Single read FBitmapSize write SetBitmapSize stored IsBitmapSizeStored nodefault;\r\n    property AutoBitmapSize: Boolean read FAutoBitmapSize write SetAutoBitmapSize default false;\r\n    property LargeLayoutBitmapSize: Single read FLargeLayoutBitmapSize write SetLargeLayoutBitmapSize stored IsLargeLayoutBitmapSizeStored nodefault;\r\n    property LargeLayoutAutoBitmapSize: Boolean read FLargeLayoutAutoBitmapSize write SetLargeLayoutAutoBitmapSize default False;\r\n    property StretchBitmapIfNoText: Boolean read FStretchBitmapIfNoText write SetStretchBitmapIfNoText default True;\r\n    property Text: String read GetText write SetText;\r\n    property Trimming: TTMSFNCGraphicsTextTrimming read FTrimming write SetTrimming default gttCharacter;\r\n    property HorizontalTextAlign: TTMSFNCGraphicsTextAlign read FHorizontalTextAlign write SetHorizontalTextAlign default gtaCenter;\r\n    property VerticalTextAlign: TTMSFNCGraphicsTextAlign read FVerticalTextAlign write SetVerticalTextAlign default gtaCenter;\r\n    property Font: TTMSFNCGraphicsFont read FFont write SetFont;\r\n    property HoverFontColor: TTMSFNCGraphicsColor read FHoverFontColor write SetHoverFontColor default gcNull;\r\n    property DownFontColor: TTMSFNCGraphicsColor read FDownFontColor write SetDownFontColor default gcNull;\r\n    property DisabledFontColor: TTMSFNCGraphicsColor read FDisabledFontColor write SetDisabledFontColor default gcNull;\r\n    property TextVisible: Boolean read FTextVisible write SetTextVisible default True;\r\n    property StretchText: Boolean read FStretchText write SetStretchText default False;\r\n    property WordWrapping: Boolean read FWordWrapping write SetWordWrapping default False;\r\n    property DropDownAutoWidth: Boolean read FDropDownAutoWidth write SetDropDownAutoWidth default False;\r\n    property DropDownHeight: Single read FDropDownHeight write SetDropDownHeight stored IsDropDownHeightStored nodefault;\r\n    property DropDownWidth: Single read FDropDownWidth write SetDropDownWidth stored IsDropDownWidthStored nodefault;\r\n    property DropDownControl: TControl read FDropDownControl write SetDropDownControl;\r\n    property CloseOnSelection: Boolean read FCloseOnSelection write SetCloseOnSelection default True;\r\n    property OnBeforeDropDown: TNotifyEvent read FOnBeforeDropDown write FOnBeforeDropDown;\r\n    property OnDropDown: TNotifyEvent read FOnDropDown write FOnDropDown;\r\n    property OnCloseDropDown: TNotifyEvent read FOnCloseDropDown write FOnCloseDropDown;\r\n    property ApplyName: Boolean read FApplyName write FApplyName default True;\r\n    property ShowFocus: Boolean read FShowFocus write SetShowFocus default False;\r\n    property BitmapPosition: TTMSFNCToolBarButtonBitmapPosition read FBitmapPosition write SetBitmapPosition default bbpLeft;\r\n    property CompactLayout: TTMSFNCToolBarButtonLayout read FCompactLayout write SetCompactLayout default bblNone;\r\n    property Layout: TTMSFNCToolBarButtonLayout read FLayout write SetLayout default bblNone;\r\n    property MinimumLayout: TTMSFNCToolBarButtonLayout read FMinimumLayout write SetMinimumLayout default bblBitmap;\r\n    property MaximumLayout: TTMSFNCToolBarButtonLayout read FMaximumLayout write SetMaximumLayout default bblLarge;\r\n    property UseStyledDropDownIcon: Boolean read FUseStyledDropDownIcon write SetUseStyledDropDownIcon default True;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF); override;\r\n    procedure DropDown; virtual;\r\n    procedure CloseDropDown; virtual;\r\n    function GetPopupControl: TTMSFNCPopup;\r\n    function GetBitmap: TTMSFNCBitmap; virtual;\r\n    property DownState: Boolean read FDownState write SetDownState;\r\n    property PopupPlacement: TTMSFNCPopupPlacement read FPopupPlacement write FPopupPlacement default ppBottom;\r\n  end;\r\n\r\n  TTMSFNCToolBarButtonDropDownKind = (ddkNormal, ddkDropDown, ddkDropDownButton);\r\n  TTMSFNCToolBarButtonDropDownPosition = (ddpRight, ddpBottom);\r\n\r\n  TTMSFNCToolBarDropDownButton = class(TTMSFNCDefaultToolBarButton)\r\n  private\r\n    FDefaultStyle: Boolean;\r\n    procedure SetDefaultStyle(const Value: Boolean);\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n    procedure DrawBitmap(AGraphics: TTMSFNCGraphics; ARect: TRectF); override;\r\n    function GetBitmapRect(ARect: TRectF): TRectF; override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    procedure LoadSettingsFromFile(AFileName: string); override;\r\n    procedure LoadSettingsFromStream(AStream: TStream); override;\r\n  published\r\n    property DefaultStyle: Boolean read FDefaultStyle write SetDefaultStyle default True;\r\n    {$IFNDEF WEBLIB}\r\n    {$IFNDEF LCLLIB}\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION >= 30}\r\n    property Action;\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    property UseStyledDropDownIcon;\r\n    property Font;\r\n    property Text;\r\n    property ShowFocus;\r\n    property TextVisible;\r\n    property StretchText;\r\n    property HoverFontColor;\r\n    property DownFontColor;\r\n    property DisabledFontColor;\r\n    property WordWrapping;\r\n    property HorizontalTextAlign;\r\n    property VerticalTextAlign;\r\n    property Trimming;\r\n    property Bitmaps;\r\n    property DisabledBitmaps;\r\n    property HoverBitmaps;\r\n    property BitmapVisible;\r\n    property BitmapContainer;\r\n    property State;\r\n    property LastElement;\r\n    property Appearance;\r\n  end;\r\n\r\n  TTMSFNCToolBarDropDownButtonClass = class of TTMSFNCToolBarDropDownButton;\r\n\r\n\r\n  TTMSFNCCustomToolBarButton = class(TTMSFNCDefaultToolBarButton)\r\n  private\r\n    FDropDownButton: TTMSFNCToolBarDropDownButton;\r\n    FDropDownKind: TTMSFNCToolBarButtonDropDownKind;\r\n    FDropDownPosition: TTMSFNCToolBarButtonDropDownPosition;\r\n    FHidden: Boolean;\r\n    FAutoOptionsMenuText: String;\r\n    procedure SetDropDownKind(const Value: TTMSFNCToolBarButtonDropDownKind);\r\n    procedure SetDropDownPosition(\r\n      const Value: TTMSFNCToolBarButtonDropDownPosition);\r\n    procedure SetHidden(const Value: Boolean);\r\n  protected\r\n    procedure ChangeDPIScale(M, D: Integer); override;\r\n    procedure SetAdaptToStyle(const Value: Boolean); override;\r\n    procedure DoFontChanged(Sender: TObject);\r\n    procedure AppearanceChanged; override;\r\n    procedure UpdateDropDownButton; virtual;\r\n    procedure HandleMouseDown(Button: TTMSFNCMouseButton; Shift: TShiftState; X, Y: Single); override;\r\n    procedure DropDownButtonClick(Sender: TObject);\r\n    procedure DrawButton(AGraphics: TTMSFNCGraphics); override;\r\n    {$IFDEF FMXLIB}\r\n    procedure SetEnabled(const Value: Boolean); override;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    procedure SetEnabled(Value: Boolean); override;\r\n    {$ENDIF}\r\n    function GetDropDownButtonClass: TTMSFNCToolBarDropDownButtonClass; virtual;\r\n    function GetDropDownRect: TRectF; override;\r\n    function GetTextRect: TRectF; override;\r\n    function GetBitmapRect(ARect: TRectF): TRectF; overload; override;\r\n    function GetBitmapRect: TRectF; overload; override;\r\n    function CanDropDown: Boolean; override;\r\n    property DropDownKind: TTMSFNCToolBarButtonDropDownKind read FDropDownKind write SetDropDownKind default ddkNormal;\r\n    property DropDownPosition: TTMSFNCToolBarButtonDropDownPosition read FDropDownPosition write SetDropDownPosition default ddpRight;\r\n    property AutoOptionsMenuText: String read FAutoOptionsMenuText write FAutoOptionsMenuText;\r\n    property Hidden: Boolean read FHidden write SetHidden default False;\r\n    procedure Loaded; override;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    function GetDropDownButtonControl: TTMSFNCToolBarDropDownButton;\r\n    procedure LoadSettingsFromFile(AFileName: string); override;\r\n    procedure LoadSettingsFromStream(AStream: TStream); override;\r\n  end;\r\n\r\n  TTMSFNCCustomToolBarSeparatorAppearance = class(TPersistent)\r\n  private\r\n    FOwner: TTMSFNCCustomToolBarSeparator;\r\n    FStroke: TTMSFNCGraphicsStroke;\r\n    FInnerStroke: TTMSFNCGraphicsStroke;\r\n    procedure SetStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetInnerStroke(const Value: TTMSFNCGraphicsStroke);\r\n  protected\r\n    procedure StrokeChanged(Sender: TObject);\r\n    property Stroke: TTMSFNCGraphicsStroke read FStroke write SetStroke;\r\n    property InnerStroke: TTMSFNCGraphicsStroke read FInnerStroke write SetInnerStroke;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create(AOwner: TTMSFNCCustomToolBarSeparator);\r\n    destructor Destroy; override;\r\n  end;\r\n\r\n  TTMSFNCToolBarSeparatorAppearance = class(TTMSFNCCustomToolBarSeparatorAppearance)\r\n  published\r\n    property Stroke;\r\n    property InnerStroke;\r\n  end;\r\n\r\n  TTMSFNCCustomToolBarSeparator = class(TTMSFNCCustomToolBarElement)\r\n  private\r\n    FAppearance: TTMSFNCToolBarSeparatorAppearance;\r\n    procedure SetAppearance(const Value: TTMSFNCToolBarSeparatorAppearance);\r\n  protected\r\n    procedure UpdateState; override;\r\n    property Appearance: TTMSFNCToolBarSeparatorAppearance read FAppearance write SetAppearance;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF); override;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCToolBarButton = class(TTMSFNCCustomToolBarButton)\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n  public\r\n    property Hidden;\r\n  published\r\n    {$IFNDEF WEBLIB}\r\n    {$IFNDEF LCLLIB}\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION >= 30}\r\n    property Action;\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    property Font;\r\n    property AutoOptionsMenuText;\r\n    property DropDownAutoWidth;\r\n    property DropDownKind;\r\n    property DropDownPosition;\r\n    property DropDownHeight;\r\n    property DropDownWidth;\r\n    property DropDownControl;\r\n    property OnBeforeDropDown;\r\n    property OnDropDown;\r\n    property OnCloseDropDown;\r\n    property Text;\r\n    property ShowFocus;\r\n    property TextVisible;\r\n    property StretchText;\r\n    property HoverFontColor;\r\n    property DownFontColor;\r\n    property DisabledFontColor;\r\n    property StretchBitmapIfNoText;\r\n    property HorizontalTextAlign;\r\n    property VerticalTextAlign;\r\n    property Trimming;\r\n    property Bitmaps;\r\n    property LargeLayoutBitmaps;\r\n    property Layout;\r\n    property CompactLayout;\r\n    property MinimumLayout;\r\n    property MaximumLayout;\r\n    property BitmapPosition;\r\n    property DisabledBitmaps;\r\n    property HoverBitmaps;\r\n    property LargeLayoutDisabledBitmaps;\r\n    property LargeLayoutHoverBitmaps;\r\n    property BitmapVisible;\r\n    property BitmapContainer;\r\n    property BitmapSize;\r\n    property AutoBitmapSize;\r\n    property LargeLayoutBitmapSize;\r\n    property LargeLayoutAutoBitmapSize;\r\n    property State;\r\n    property LastElement;\r\n    property Appearance;\r\n    property WordWrapping;\r\n  end;\r\n\r\n  TTMSFNCToolBarButtonClass = class of TTMSFNCToolBarButton;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCToolBarSeparator = class(TTMSFNCCustomToolBarSeparator)\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n  published\r\n    property State;\r\n    property LastElement;\r\n    property Appearance;\r\n  end;\r\n\r\n  TTMSFNCToolBarSeparatorClass = class of TTMSFNCToolBarSeparator;\r\n\r\n  TTMSFNCToolBarItemPickerItemSelected = procedure(Sender: TObject; AItemIndex: Integer) of object;\r\n\r\n  TTMSFNCToolBarCustomItemPicker = class(TTMSFNCToolBarButton)\r\n  private\r\n    FEdit: TEdit;\r\n    FTimer: TTimer;\r\n    FItemIndex: Integer;\r\n    FItems: TStringList;\r\n    FKeyboardUsed: Boolean;\r\n    FItemSelector: TListBox;\r\n    FOnItemSelected: TTMSFNCToolBarItemPickerItemSelected;\r\n    FEditable: Boolean;\r\n    FOnEditChange: TNotifyEvent;\r\n    function GetSelectedItemIndex: Integer;\r\n    procedure SetSelectedItemIndex(const Value: Integer);\r\n    function GetSelectedItem: String;\r\n    procedure SetSelectedItem(const Value: String);\r\n    procedure SetItems(const Value: TStringList);\r\n    procedure SetEditable(const Value: Boolean);\r\n  protected\r\n    procedure ChangeDPIScale(M, D: Integer); override;\r\n    function CanChangeText: Boolean; override;\r\n    function GetText: String; override;\r\n    procedure EnterTimerChanged(Sender: TObject);\r\n    procedure EditChange(Sender: TObject);\r\n    procedure HandleDialogKey(var Key: Word; Shift: TShiftState); override;\r\n    procedure InitializePopup; override;\r\n    procedure SelectValueWithString(AValue: string); virtual;\r\n    procedure SelectValueWithCharacter(ACharacter: Char); override;\r\n    procedure SelectFirstValue; override;\r\n    procedure SelectLastValue; override;\r\n    procedure SelectNextValue; override;\r\n    procedure SelectPreviousValue; override;\r\n    {$IFDEF FMXLIB}\r\n    procedure ItemKeyUp(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);\r\n    procedure ItemKeyDown(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);\r\n    procedure ItemSelected(const Sender: TCustomListBox; const Item: TListBoxItem);\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    procedure ItemKeyUp(Sender: TObject; var {%H-}Key: Word; {%H-}Shift: TShiftState);\r\n    procedure ItemKeyDown(Sender: TObject; var {%H-}Key: Word; {%H-}Shift: TShiftState);\r\n    procedure ItemSelected(Sender: TObject);\r\n    {$ENDIF}\r\n    procedure DoItemSelected; virtual;\r\n    procedure DoEnter; override;\r\n    property CloseOnSelection;\r\n    property Items: TStringList read FItems write SetItems;\r\n    property OnItemSelected: TTMSFNCToolBarItemPickerItemSelected read FOnItemSelected write FOnItemSelected;\r\n    property ListBox: TListBox read FItemSelector;\r\n    property SelectedItemIndex: Integer read GetSelectedItemIndex write SetSelectedItemIndex default -1;\r\n    property SelectedItem: String read GetSelectedItem write SetSelectedItem;\r\n    property Editable: Boolean read FEditable write SetEditable default False;\r\n    property OnEditChange: TNotifyEvent read FOnEditChange write FOnEditChange;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    procedure Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF); override;\r\n    destructor Destroy; override;\r\n    procedure DropDown; override;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCToolBarItemPicker = class(TTMSFNCToolBarCustomItemPicker)\r\n  published\r\n    property OnItemSelected;\r\n    property SelectedItemIndex;\r\n    property Items;\r\n    property Editable;\r\n    property OnEditChange;\r\n  end;\r\n\r\n  TTMSFNCToolBarFontNamePickerFontNameSelected = procedure(Sender: TObject; AFontName: String) of object;\r\n\r\n  TTMSFNCToolBarItemPickerClass = class of TTMSFNCToolBarItemPicker;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCToolBarFontNamePicker = class(TTMSFNCToolBarCustomItemPicker)\r\n  private\r\n    FOnFontNameSelected: TTMSFNCToolBarFontNamePickerFontNameSelected;\r\n    function GetSelectedFontName: String;\r\n    procedure SetSelectedFontName(const Value: String);\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n    procedure DoItemSelected; override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    property SelectedFontName: String read GetSelectedFontName write SetSelectedFontName;\r\n    property SelectedItemIndex;\r\n    property Items;\r\n  published\r\n    property OnFontNameSelected: TTMSFNCToolBarFontNamePickerFontNameSelected read FOnFontNameSelected write FOnFontNameSelected;\r\n    property CloseOnSelection;\r\n    property Editable;\r\n    property OnEditChange;\r\n  end;\r\n\r\n  TTMSFNCToolBarFontSizePickerFontSizeSelected = procedure(Sender: TObject; AFontSize: Single) of object;\r\n\r\n  TTMSFNCToolBarFontNamePickerClass = class of TTMSFNCToolBarFontNamePicker;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCToolBarFontSizePicker = class(TTMSFNCToolBarCustomItemPicker)\r\n  private\r\n    FOnFontSizeSelected: TTMSFNCToolBarFontSizePickerFontSizeSelected;\r\n    function GetSelectedFontSize: Single;\r\n    procedure SetSelectedFontSize(const Value: Single);\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n    procedure DoItemSelected; override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    property SelectedFontSize: Single read GetSelectedFontSize write SetSelectedFontSize;\r\n    property SelectedItemIndex;\r\n    property Items;\r\n  published\r\n    property OnFontSizeSelected: TTMSFNCToolBarFontSizePickerFontSizeSelected read FOnFontSizeSelected write FOnFontSizeSelected;\r\n    property CloseOnSelection;\r\n    property Editable;\r\n    property OnEditChange;\r\n  end;\r\n\r\n  TTMSFNCToolBarColorPickerColorSelected = procedure(Sender: TObject; AColor: TTMSFNCGraphicsColor) of object;\r\n\r\n  TTMSFNCToolBarFontSizePickerClass = class of TTMSFNCToolBarFontSizePicker;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCToolBarColorPicker = class(TTMSFNCToolBarButton)\r\n  private\r\n    FColorSelector: TTMSFNCColorSelector;\r\n    FOnColorSelected: TTMSFNCToolBarColorPickerColorSelected;\r\n    function GetSelectedColor: TTMSFNCGraphicsColor;\r\n    procedure SetSelectedColor(const Value: TTMSFNCGraphicsColor);\r\n    function GetSelectedItemIndex: Integer;\r\n    procedure SetSelectedItemIndex(const Value: Integer);\r\n    function GetItems: TTMSFNCColorSelectorItems;\r\n    procedure SetItems(const Value: TTMSFNCColorSelectorItems);\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n    procedure SetAdaptToStyle(const Value: Boolean); override;\r\n    procedure DrawColor(AColor: TTMSFNCGraphicsColor; ARect: TRectF; AGraphics: TTMSFNCGraphics);\r\n    procedure ColorSelected(Sender: TObject; AColor: TTMSFNCGraphicsColor);\r\n    procedure DoColorSelected(AColor: TTMSFNCGraphicsColor); virtual;\r\n    function CanChangeText: Boolean; override;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    function BlockChange: Boolean;\r\n    function ColorSelector: TTMSFNCColorSelector;\r\n    procedure Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF); override;\r\n    procedure DrawSelectedColor(AGraphics: TTMSFNCGraphics; {%H-}ARect: TRectF); virtual;\r\n  published\r\n    property OnColorSelected: TTMSFNCToolBarColorPickerColorSelected read FOnColorSelected write FOnColorSelected;\r\n    property SelectedColor: TTMSFNCGraphicsColor read GetSelectedColor write SetSelectedColor default gcNull;\r\n    property SelectedItemIndex: Integer read GetSelectedItemIndex write SetSelectedItemIndex;\r\n    property Items: TTMSFNCColorSelectorItems read GetItems write SetItems;\r\n    property CloseOnSelection;\r\n  end;\r\n\r\n  TTMSFNCToolBarBitmapPickerBitmapSelected = procedure(Sender: TObject; ABitmap: TTMSFNCBitmap) of object;\r\n\r\n  TTMSFNCToolBarColorPickerClass = class of TTMSFNCToolBarColorPicker;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCToolBarBitmapPicker = class(TTMSFNCToolBarButton)\r\n  private\r\n    FBitmapSelector: TTMSFNCBitmapSelector;\r\n    FOnBitmapSelected: TTMSFNCToolBarBitmapPickerBitmapSelected;\r\n    function GetSelectedBitmap: TTMSFNCBitmap;\r\n    function GetSelectedItemIndex: Integer;\r\n    procedure SetSelectedItemIndex(const Value: Integer);\r\n    function GetItems: TTMSFNCBitmapSelectorItems;\r\n    procedure SetItems(const Value: TTMSFNCBitmapSelectorItems);\r\n    procedure SetBitmapContainer(const Value: TTMSFNCBitmapContainer); override;\r\n  protected\r\n    function GetBitmapRect(ARect: TRectF): TRectF; override;\r\n    function CanChangeText: Boolean; override;\r\n    procedure RegisterRuntimeClasses; override;\r\n    procedure SetAdaptToStyle(const Value: Boolean); override;\r\n    procedure BitmapSelected(Sender: TObject; ABitmap: TTMSFNCBitmap);\r\n    procedure DoBitmapSelected(ABitmap: TTMSFNCBitmap); virtual;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    function BlockChange: Boolean;\r\n    function BitmapSelector: TTMSFNCBitmapSelector;\r\n    property SelectedBitmap: TTMSFNCBitmap read GetSelectedBitmap;\r\n  published\r\n    property OnBitmapSelected: TTMSFNCToolBarBitmapPickerBitmapSelected read FOnBitmapSelected write FOnBitmapSelected;\r\n    property SelectedItemIndex: Integer read GetSelectedItemIndex write SetSelectedItemIndex;\r\n    property Items: TTMSFNCBitmapSelectorItems read GetItems write SetItems;\r\n    property CloseOnSelection;\r\n  end;\r\n\r\n  TTMSFNCToolBarBitmapPickerClass = class of TTMSFNCToolBarBitmapPicker;\r\n\r\n  TTMSFNCCustomToolBarAppearance = class(TPersistent)\r\n  private\r\n    FOwner: TTMSFNCCustomToolBar;\r\n    FFill: TTMSFNCGraphicsFill;\r\n    FStroke: TTMSFNCGraphicsStroke;\r\n    FVerticalSpacing: Single;\r\n    FHorizontalSpacing: Single;\r\n    FDragGripColor: TTMSFNCGraphicsColor;\r\n    FDragGrip: Boolean;\r\n    FFlatStyle: Boolean;\r\n    FFont: TTMSFNCGraphicsFont;\r\n    FSeparatorStroke: TTMSFNCGraphicsStroke;\r\n    FSeparator: Boolean;\r\n    procedure SetFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetHorizontalSpacing(const Value: Single);\r\n    procedure SetVerticalSpacing(const Value: Single);\r\n    procedure SetDragGrip(const Value: Boolean);\r\n    procedure SetDragGripColor(const Value: TTMSFNCGraphicsColor);\r\n    function IsHorizontalSpacingStored: Boolean;\r\n    function IsVerticalSpacingStored: Boolean;\r\n    procedure SetFlatStyle(const Value: Boolean);\r\n    procedure SetSeparator(const Value: Boolean);\r\n    procedure SetSeparatorStroke(const Value: TTMSFNCGraphicsStroke);\r\n  protected\r\n    procedure FillChanged(Sender: TObject);\r\n    procedure StrokeChanged(Sender: TObject);\r\n    property Fill: TTMSFNCGraphicsFill read FFill write SetFill;\r\n    property Stroke: TTMSFNCGraphicsStroke read FStroke write SetStroke;\r\n    property HorizontalSpacing: Single read FHorizontalSpacing write SetHorizontalSpacing stored IsHorizontalSpacingStored nodefault;\r\n    property VerticalSpacing: Single read FVerticalSpacing write SetVerticalSpacing stored IsVerticalSpacingStored nodefault;\r\n    property DragGrip: Boolean read FDragGrip write SetDragGrip default True;\r\n    property DragGripColor: TTMSFNCGraphicsColor read FDragGripColor write SetDragGripColor default gcLightgray;\r\n    property FlatStyle: Boolean read FFlatStyle write SetFlatStyle default False;\r\n    property Separator: Boolean read FSeparator write SetSeparator default False;\r\n    property SeparatorStroke: TTMSFNCGraphicsStroke read FSeparatorStroke write SetSeparatorStroke;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create(AOwner: TTMSFNCCustomToolBar);\r\n    destructor Destroy; override;\r\n  end;\r\n\r\n  TTMSFNCToolBarAppearance = class(TTMSFNCCustomToolBarAppearance)\r\n  published\r\n    property FlatStyle;\r\n    property Fill;\r\n    property Stroke;\r\n    property Separator;\r\n    property SeparatorStroke;\r\n    property HorizontalSpacing;\r\n    property VerticalSpacing;\r\n    property DragGrip;\r\n    property DragGripColor;\r\n  end;\r\n\r\n  TTMSFNCToolBarOptionMenuItem = class(TMenuItem)\r\n  private\r\n    FControl: TControl;\r\n    FGlyphWidth: Single;\r\n    FCalculate: Boolean;\r\n  protected\r\n    property Calculate: Boolean read FCalculate write FCalculate;\r\n    property GlyphWidth: Single read FGlyphWidth write FGlyphWidth;\r\n  public\r\n    property Control: TControl read FControl write FControl;\r\n  end;\r\n\r\n  TTMSFNCToolBarControl = class(TPersistent)\r\n  private\r\n    FControlIndex: Integer;\r\n    FControl: TControl;\r\n    FLayout: TTMSFNCToolBarButtonLayout;\r\n    FBitmap: TTMSFNCBitmap;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\n  TControlClass = class of TControl;\r\n\r\n  TTMSFNCToolBarCustomizeOptionsMenu = procedure(Sender: TObject; APopupMenu: TPopupMenu) of object;\r\n  TTMSFNCToolBarCustomizeOptionsMenuItem = procedure(Sender: TObject; AControl: TControl; AMenuItem: TMenuItem) of object;\r\n  TTMSFNCToolBarCanShowOptionsMenuItem = procedure(Sender: TObject; AControl: TControl; var ACanShowItem: Boolean) of object;\r\n  TTMSFNCToolBarOptionsMenuItemClick = procedure(Sender: TObject; AControl: TControl; AMenuItem: TMenuItem; var AExecuteDefaultAction: Boolean) of object;\r\n  TTMSFNCToolBarIsLastElement = procedure(Sender: TObject; AControl: TControl; var AIsLastElement: Boolean) of object;\r\n  TTMSFNCToolBarAnchorClickEvent = procedure(Sender: TObject; AAnchor: string) of object;\r\n\r\n  TTMSFNCCustomToolBarOptionsMenu = class(TPersistent)\r\n  private\r\n    FOwner: TTMSFNCCustomToolBar;\r\n    FShowItemText: Boolean;\r\n    FShowItemBitmap: Boolean;\r\n    FShowButton: Boolean;\r\n    FItemBitmapWidth: Single;\r\n    FAutoItemBitmapWidth: Boolean;\r\n    procedure SetShowButton(const Value: Boolean);\r\n    procedure SetShowItemBitmap(const Value: Boolean);\r\n    procedure SetShowItemText(const Value: Boolean);\r\n    procedure SetAutoItemBitmapWidth(const Value: Boolean);\r\n    procedure SetItemBitmapWidth(const Value: Single);\r\n    function IsItemBitmapWidthStored: Boolean;\r\n  protected\r\n    property ShowButton: Boolean read FShowButton write SetShowButton default True;\r\n    property ShowItemBitmap: Boolean read FShowItemBitmap write SetShowItemBitmap default True;\r\n    property ShowItemText: Boolean read FShowItemText write SetShowItemText default True;\r\n    property AutoItemBitmapWidth: Boolean read FAutoItemBitmapWidth write SetAutoItemBitmapWidth default True;\r\n    property ItemBitmapWidth: Single read FItemBitmapWidth write SetItemBitmapWidth stored IsItemBitmapWidthStored nodefault;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create(AOwner: TTMSFNCCustomToolBar);\r\n    destructor Destroy; override;\r\n  end;\r\n\r\n  TTMSFNCToolBarOptionsMenu = class(TTMSFNCCustomToolBarOptionsMenu)\r\n  published\r\n    property ShowButton;\r\n    property ShowItemBitmap;\r\n    property ShowItemText;\r\n    property AutoItemBitmapWidth;\r\n    property ItemBitmapWidth;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCToolBarControlObjectList = class(TObjectList)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCToolBarControl;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCToolBarControl);\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCToolBarControl read GetItem write SetItem; default;\r\n  end;\r\n  TTMSFNCToolBarControlList = class(TList)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCToolBarControl;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCToolBarControl);\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCToolBarControl read GetItem write SetItem; default;\r\n  end;\r\n  TTMSFNCControlList = class(TList)\r\n  private\r\n    function GetItem(Index: Integer): TControl;\r\n    procedure SetItem(Index: Integer; const Value: TControl);\r\n  public\r\n    property Items[Index: Integer]: TControl read GetItem write SetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCToolBarControlObjectList = TObjectList<TTMSFNCToolBarControl>;\r\n  TTMSFNCToolBarControlList = TList<TTMSFNCToolBarControl>;\r\n  TTMSFNCControlList = TList<TControl>;\r\n  {$ENDIF}\r\n\r\n  TTMSFNCToolBarDragGripMovingEvent = procedure(Sender: TObject; DeltaX: Double; DeltaY: Double) of object;\r\n\r\n  TTMSFNCToolBarPopup = class(TTMSFNCPopup)\r\n  public\r\n    property OnClosePopup;\r\n  end;\r\n\r\n  TTMSFNCToolBar = class;\r\n\r\n  TTMSFNCToolBarCustomizeCompactToolBarEvent = procedure(Sender: TObject; ACompactToolBar: TTMSFNCToolBar) of object;\r\n\r\n  {$IFDEF FNCLIB}\r\n  TTMSFNCCustomToolBar = class(TTMSFNCCustomControl, ITMSFNCStylesManager, ITMSFNCBitmapContainer)\r\n  {$ENDIF}\r\n  {$IFNDEF FNCLIB}\r\n  TTMSFNCCustomToolBar = class(TTMSFNCCustomControl)\r\n  {$ENDIF}\r\n  private\r\n    FCompactToolbar: TTMSFNCToolBar;\r\n    FCompactPopup: TTMSFNCToolBarPopup;\r\n    FHover, FHoverP, FQuickMenuButtonHover, FQuickMenuButtonHoverP: Boolean;\r\n    FDown, FQuickMenuButtonDown: Boolean;\r\n    FOldWidth: Single;\r\n    FOldMenuButtonState: Boolean;\r\n    FBitmapContainer: TTMSFNCBitmapContainer;\r\n    FInsideDrag, FDragGripMoving, FDragGripDown: Boolean;\r\n    FDragGripDownPt: TPointF;\r\n    FTotalOptionsMenuWidth: Single;\r\n    {$IFNDEF LCLLIB}\r\n    {$IFNDEF WEBLIB}\r\n    FCompareControls: IComparer<TControl>;\r\n    FCompareHiddenControls: IComparer<TTMSFNCToolBarControl>;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    FHiddenControls: TTMSFNCToolBarControlObjectList;\r\n    FCompactControls: TTMSFNCToolBarControlObjectList;\r\n    FBlockUpdate, FBlockResize: Boolean;\r\n    FAutoSize: Boolean;\r\n    FAppearance: TTMSFNCToolBarAppearance;\r\n    FAutoAlign: Boolean;\r\n    FOptionsMenuButton: TTMSFNCToolBarDropDownButton;\r\n    FAutoOptionsMenu: TPopupMenu;\r\n    FOnOptionsMenuCustomize: TTMSFNCToolBarCustomizeOptionsMenu;\r\n    FOnOptionsMenuItemCustomize: TTMSFNCToolBarCustomizeOptionsMenuItem;\r\n    FOnOptionsMenuButtonClick: TNotifyEvent;\r\n    FOptionsMenu: TTMSFNCToolBarOptionsMenu;\r\n    FCustomOptionsMenu: TPopupMenu;\r\n    FOnOptionsMenuItemCanShow: TTMSFNCToolBarCanShowOptionsMenuItem;\r\n    FState: TTMSFNCToolBarElementState;\r\n    FOnOptionsMenuItemClick: TTMSFNCToolBarOptionsMenuItemClick;\r\n    FOnOptionsMenuItemApplyStyle: TTMSFNCToolBarCustomizeOptionsMenuItem;\r\n    FOnUpdateDockPanel: TNotifyEvent;\r\n    FOnUpdateControls: TNotifyEvent;\r\n    FOnIsLastElement: TTMSFNCToolBarIsLastElement;\r\n    FOnDragGripMoving: TTMSFNCToolBarDragGripMovingEvent;\r\n    FAutoMoveToolBar: Boolean;\r\n    FOnInternalDblClick: TNotifyEvent;\r\n    FOnInternalMouseDown: TNotifyEvent;\r\n    FOnInternalMouseMove: TNotifyEvent;\r\n    FOnInternalMouseUp: TNotifyEvent;\r\n    FAutoHeight: Boolean;\r\n    FAutoWidth: Boolean;\r\n    FOnInternalInsertControl: TNotifyEvent;\r\n    FAutoStretchHeight: Boolean;\r\n    FText: string;\r\n    FFirstLoad: Boolean;\r\n    FFont: TTMSFNCGraphicsFont;\r\n    FVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FTrimming: TTMSFNCGraphicsTextTrimming;\r\n    FHorizontalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FWordWrapping: Boolean;\r\n    FTextVisible: Boolean;\r\n    FMinimumWidth: Single;\r\n    FCompact: Boolean;\r\n    FCanCompact: Boolean;\r\n    FCompactWidth: Single;\r\n    FCompactAppearance: TTMSFNCToolBarCompactAppearance;\r\n    FCompactBitmaps: TTMSFNCScaledBitmaps;\r\n    FOnCompactClick: TNotifyEvent;\r\n    FCompactBitmapSize: Single;\r\n    FCompactBitmapVisible: Boolean;\r\n    FCompactExpanderBitmaps: TTMSFNCScaledBitmaps;\r\n    FQuickMenuButton: Boolean;\r\n    FQuickMenuButtonAppearance: TTMSFNCToolBarQuickMenuButtonAppearance;\r\n    FOnQuickMenuButtonClick: TNotifyEvent;\r\n    FQuickMenuButtonBitmaps: TTMSFNCScaledBitmaps;\r\n    FQuickMenuButtonHint: string;\r\n    FCompactAutoBitmapSize: Boolean;\r\n    FOnAnchorClick: TTMSFNCToolBarAnchorClickEvent;\r\n    FDisabledFontColor: TTMSFNCGraphicsColor;\r\n    FOnCustomizeCompactToolBar: TTMSFNCToolBarCustomizeCompactToolBarEvent;\r\n    procedure SetAppearance(const Value: TTMSFNCToolBarAppearance);\r\n    procedure SetAS(const Value: Boolean);\r\n    procedure SetAutoAlign(const Value: Boolean);\r\n    procedure SetOptionsMenu(const Value: TTMSFNCToolBarOptionsMenu);\r\n    procedure SetState(const Value: TTMSFNCToolBarElementState);\r\n    procedure SetAutoHeight(const Value: Boolean);\r\n    procedure SetAutoWidth(const Value: Boolean);\r\n    procedure SetAutoStretchHeight(const Value: Boolean);\r\n    procedure SetText(const Value: string);\r\n    function GetBitmapContainer: TTMSFNCBitmapContainer;\r\n    procedure SetBitmapContainer(const Value: TTMSFNCBitmapContainer);\r\n    procedure SetFont(const Value: TTMSFNCGraphicsFont); reintroduce;\r\n    procedure SetHorizontalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetTrimming(const Value: TTMSFNCGraphicsTextTrimming);\r\n    procedure SetVerticalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetWordWrapping(const Value: Boolean);\r\n    procedure SetTextVisible(const Value: Boolean);\r\n    function IsMinimumWidthStored: Boolean;\r\n    procedure SetMinimumWidth(const Value: Single);\r\n    procedure SetCompact(const Value: Boolean);\r\n    procedure SetCanCompact(const Value: Boolean);\r\n    function IsCompactWidthStored: Boolean;\r\n    procedure SetCompactWidth(const Value: Single);\r\n    procedure SetCompactAppearance(const Value: TTMSFNCToolBarCompactAppearance);\r\n    procedure SetCompactBitmaps(const Value: TTMSFNCScaledBitmaps);\r\n    function IsCompactBitmapSizeStored: Boolean;\r\n    procedure SetCompactBitmapSize(const Value: Single);\r\n    procedure SetCompactBitmapVisible(const Value: Boolean);\r\n    procedure SetCompactExpanderBitmaps(const Value: TTMSFNCScaledBitmaps);\r\n    procedure SetQuickMenuButton(const Value: Boolean);\r\n    procedure SetQuickMenuButtonAppearance(\r\n      const Value: TTMSFNCToolBarQuickMenuButtonAppearance);\r\n    procedure SetQuickMenuButtonBitmaps(\r\n      const Value: TTMSFNCScaledBitmaps);\r\n    procedure SetCompactAutoBitmapSize(const Value: Boolean);\r\n    function GetTextRect: TRectF;\r\n    procedure SetDisabledFontColor(const Value: TTMSFNCGraphicsColor);\r\n  protected\r\n    {$IFDEF FNCLIB}\r\n    function GetSubComponentArray: TTMSFNCStylesManagerComponentArray;\r\n    {$ENDIF}\r\n    function GetDocURL: string; override;\r\n    function GetVersion: String; override;\r\n    function CanDrawDesignTime: Boolean; virtual;\r\n    function CanBuildControls: Boolean; virtual;\r\n    function GetOptionsMenuButtonClass: TTMSFNCToolBarDropDownButtonClass; virtual;\r\n    function GetBitmapPickerClass: TTMSFNCToolBarBitmapPickerClass; virtual;\r\n    function GetToolBarButtonClass: TTMSFNCToolBarButtonClass; virtual;\r\n    function GetColorPickerClass: TTMSFNCToolBarColorPickerClass; virtual;\r\n    function GetItemPickerClass: TTMSFNCToolBarItemPickerClass; virtual;\r\n    function GetFontNamePickerClass: TTMSFNCToolBarFontNamePickerClass; virtual;\r\n    function GetFontSizePickerClass: TTMSFNCToolBarFontSizePickerClass; virtual;\r\n    function GetToolBarSeparatorClass: TTMSFNCToolBarSeparatorClass; virtual;\r\n    function GetTextSize: TSizeF; virtual;\r\n    function GetHiddenControl(AControl: TControl): TTMSFNCToolBarControl; virtual;\r\n    function GetCompactControl(AControl: TControl): TTMSFNCToolBarControl; virtual;\r\n    function GetHiddenControlCount(AControl: TControl): Integer; virtual;\r\n    function GetCompactControlCount: Integer; virtual;\r\n    function GetCompactTextRect: TRectF; virtual;\r\n    function GetCompactBitmapRect(ARect: TRectF): TRectF; virtual;\r\n    function GetCompactBitmapSize: Single; virtual;\r\n    function GetQuickMenuButtonRect: TRectF; virtual;\r\n    function HasHint: Boolean; override;\r\n    function GetHintString: String; override;\r\n    procedure ChangeDPIScale(M, D: Integer); override;\r\n    procedure HandleQuickMenuButton; virtual;\r\n    procedure CompactAppearanceChanged(Sender: TObject);\r\n    procedure QuickMenuButtonAppearanceChanged(Sender: TObject);\r\n    procedure CompactBitmapsChanged(Sender: TObject);\r\n    procedure CompactExpanderBitmapsChanged(Sender: TObject);\r\n    procedure QuickMenuButtonBitmapsChanged(Sender: TObject);    \r\n    procedure ApplyFlatStyle; virtual;\r\n    procedure SetAdaptToStyle(const Value: Boolean); override;\r\n    procedure ApplyStyle; override;\r\n    procedure ResetToDefaultStyle; override;\r\n    procedure HandleMouseDown(Button: TTMSFNCMouseButton; Shift: TShiftState; X, Y: Single); override;\r\n    procedure HandleMouseMove(Shift: TShiftState; X, Y: Single); override;\r\n    procedure HandleMouseLeave; override;\r\n    procedure HandleMouseUp(Button: TTMSFNCMouseButton; Shift: TShiftState; X, Y: Single); override;\r\n    procedure HandleCompact; virtual;\r\n    procedure DeactivateAllPopups; virtual;\r\n    procedure DoCompactClick; virtual;\r\n    procedure DoCustomizeCompactToolBar(ACompactToolBar: TTMSFNCToolBar); virtual;\r\n    procedure HandleDblClick({%H-}X, {%H-}Y: Single); override;\r\n    procedure UpdateDockPanel; virtual;\r\n    procedure InsertToolBarControl(AControl: TControl; {%H-}AIndex: Integer);\r\n    procedure DoDragGripMoving(ADeltaX, ADeltaY: Double); virtual;\r\n    {$IFDEF FMXLIB}\r\n    procedure SetVisible(const Value: Boolean); override;\r\n    procedure DoMatrixChanged(Sender: TObject); override;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    procedure VisibleChanging; override;\r\n    {$ENDIF}\r\n    function GetDragGripRect(AInteraction: Boolean = False): TRectF;\r\n    procedure CompactControls; virtual;\r\n    procedure UncompactControls; virtual;\r\n    procedure DoCustomizeOptionsMenu; virtual;\r\n    procedure DoCustomizeOptionsMenuItem(AControl: TControl; AMenuItem: TMenuItem); virtual;\r\n    procedure DoCanShowOptionsMenuItem(AControl: TControl; var ACanShowItem: Boolean); virtual;\r\n    procedure UpdateToolBar(Sender: TObject);\r\n    procedure DoIsLastElement(AControl: TControl; var ALastElement: Boolean);\r\n    procedure UpdateToolBarControl(Sender: TObject);\r\n    procedure OptionMenuItemClick(Sender: TObject);\r\n    {$IFDEF FMXLIB}\r\n    procedure OptionMenuItemApplyStyleLookup(Sender: TObject);\r\n    {$ENDIF}\r\n    procedure OptionsButtonClick(Sender: TObject);\r\n    procedure DoCloseCompactPopup(Sender: TObject);\r\n    procedure Notification(AComponent: TComponent; Operation: TOperation); override;\r\n\r\n    {$IFDEF FMXLIB}\r\n    procedure DoAddObject(const AObject: TFmxObject); override;\r\n    procedure DoInsertObject(Index: Integer; const AObject: TFmxObject); override;\r\n    procedure DoRemoveObject(const AObject: TFmxObject); override;\r\n    {$ENDIF}\r\n\r\n    {$IFDEF CMNWEBLIB}\r\n    procedure AlignControls(AControl: TControl; var Rect: TRect); override;\r\n    {$ENDIF}\r\n    procedure UpdateControlAfterResize; override;\r\n    procedure UpdateControls; virtual;\r\n    procedure InitializeOptionsMenu; virtual;\r\n    procedure DrawDragGrip(AGraphics: TTMSFNCGraphics); virtual;\r\n    procedure DrawText(AGraphics: TTMSFNCGraphics); virtual;\r\n    procedure DrawCompactBitmap(AGraphics: TTMSFNCGraphics; ARect: TRectF); virtual;\r\n    procedure DrawCompactText(AGraphics: TTMSFNCGraphics); virtual;\r\n    procedure DrawCompactExpander(AGraphics: TTMSFNCGraphics); virtual;\r\n    procedure ShowOptionsMenu(X, Y: Single); virtual;\r\n    function CheckIsLoading: Boolean; virtual;\r\n    function XYToAnchor(AX, AY: Single): string;\r\n    procedure DoAnchorClick(AAnchor: string); virtual;\r\n    procedure Loaded; override;\r\n    property BlockUpdate: Boolean read FBlockUpdate write FBlockUpdate;\r\n    property OnCompactClick: TNotifyEvent read FOnCompactClick write FOnCompactClick;\r\n    property OnUpdateControls: TNotifyEvent read FOnUpdateControls write FOnUpdateControls;\r\n    property OnUpdateDockPanel: TNotifyEvent read FOnUpdateDockPanel write FOnUpdateDockPanel;\r\n    property OnInternalMouseDown: TNotifyEvent read FOnInternalMouseDown write FOnInternalMouseDown;\r\n    property OnInternalInsertControl: TNotifyEvent read FOnInternalInsertControl write FOnInternalInsertControl;\r\n    property OnInternalMouseUp: TNotifyEvent read FOnInternalMouseUp write FOnInternalMouseUp;\r\n    property OnInternalMouseMove: TNotifyEvent read FOnInternalMouseMove write FOnInternalMouseMove;\r\n    property OnInternalDblClick: TNotifyEvent read FOnInternalDblClick write FOnInternalDblClick;\r\n    property Version: String read GetVersion;\r\n    property AutoSize: Boolean read FAutoSize write SetAS default True;\r\n    property AutoHeight: Boolean read FAutoHeight write SetAutoHeight default True;\r\n    property AutoWidth: Boolean read FAutoWidth write SetAutoWidth default True;\r\n    property AutoAlign: Boolean read FAutoAlign write SetAutoAlign default True;\r\n    property AutoStretchHeight: Boolean read FAutoStretchHeight write SetAutoStretchHeight default False;\r\n    property AutoMoveToolBar: Boolean read FAutoMoveToolBar write FAutoMoveToolBar default True;\r\n    property Appearance: TTMSFNCToolBarAppearance read FAppearance write SetAppearance;\r\n    property WordWrapping: Boolean read FWordWrapping write SetWordWrapping default False;\r\n    property Text: string read FText write SetText;\r\n    property TextVisible: Boolean read FTextVisible write SetTextVisible default True;\r\n    property Trimming: TTMSFNCGraphicsTextTrimming read FTrimming write SetTrimming default gttCharacter;\r\n    property HorizontalTextAlign: TTMSFNCGraphicsTextAlign read FHorizontalTextAlign write SetHorizontalTextAlign default gtaCenter;\r\n    property VerticalTextAlign: TTMSFNCGraphicsTextAlign read FVerticalTextAlign write SetVerticalTextAlign default gtaCenter;\r\n    property Font: TTMSFNCGraphicsFont read FFont write SetFont;\r\n    property DisabledFontColor: TTMSFNCGraphicsColor read FDisabledFontColor write SetDisabledFontColor default gcNull;\r\n    property OptionsMenu: TTMSFNCToolBarOptionsMenu read FOptionsMenu write SetOptionsMenu;\r\n    property OnOptionsMenuItemCanShow: TTMSFNCToolBarCanShowOptionsMenuItem read FOnOptionsMenuItemCanShow write FOnOptionsMenuItemCanShow;\r\n    property OnOptionsMenuCustomize: TTMSFNCToolBarCustomizeOptionsMenu read FOnOptionsMenuCustomize write FOnOptionsMenuCustomize;\r\n    property OnOptionsMenuItemCustomize: TTMSFNCToolBarCustomizeOptionsMenuItem read FOnOptionsMenuItemCustomize write FOnOptionsMenuItemCustomize;\r\n    property OnOptionsMenuItemApplyStyle: TTMSFNCToolBarCustomizeOptionsMenuItem read FOnOptionsMenuItemApplyStyle write FOnOptionsMenuItemApplyStyle;\r\n    property OnOptionsMenuButtonClick: TNotifyEvent read FOnOptionsMenuButtonClick write FOnOptionsMenuButtonClick;\r\n    property OnOptionsMenuItemClick: TTMSFNCToolBarOptionsMenuItemClick read FOnOptionsMenuItemClick write FOnOptionsMenuItemClick;\r\n    property CustomOptionsMenu: TPopupMenu read FCustomOptionsMenu write FCustomOptionsMenu;\r\n    property State: TTMSFNCToolBarElementState read FState write SetState default esNormal;\r\n    property OnIsLastElement: TTMSFNCToolBarIsLastElement read FOnIsLastElement write FOnIsLastElement;\r\n    property OnDragGripMoving: TTMSFNCToolBarDragGripMovingEvent read FOnDragGripMoving write FOnDragGripMoving;\r\n    property AutoOptionsMenu: TPopupMenu read FAutoOptionsMenu;\r\n    property BitmapContainer: TTMSFNCBitmapContainer read GetBitmapContainer write SetBitmapContainer;\r\n    property MinimumWidth: Single read FMinimumWidth write SetMinimumWidth stored IsMinimumWidthStored nodefault;\r\n    property CompactBitmapVisible: Boolean read FCompactBitmapVisible write SetCompactBitmapVisible default False;\r\n    property CompactAutoBitmapSize: Boolean read FCompactAutoBitmapSize write SetCompactAutoBitmapSize default False;\r\n    property CompactBitmaps: TTMSFNCScaledBitmaps read FCompactBitmaps write SetCompactBitmaps;\r\n    property Compact: Boolean read FCompact write SetCompact default False;\r\n    property QuickMenuButton: Boolean read FQuickMenuButton write SetQuickMenuButton default False;\r\n    property QuickMenuButtonHint: string read FQuickMenuButtonHint write FQuickMenuButtonHint;\r\n    property CompactWidth: Single read FCompactWidth write SetCompactWidth stored IsCompactWidthStored nodefault;\r\n    property CanCompact: Boolean read FCanCompact write SetCanCompact default True;\r\n    property CompactAppearance: TTMSFNCToolBarCompactAppearance read FCompactAppearance write SetCompactAppearance;\r\n    property QuickMenuButtonAppearance: TTMSFNCToolBarQuickMenuButtonAppearance read FQuickMenuButtonAppearance write SetQuickMenuButtonAppearance;\r\n    property CompactBitmapSize: Single read FCompactBitmapSize write SetCompactBitmapSize stored IsCompactBitmapSizeStored nodefault;\r\n    property CompactExpanderBitmaps: TTMSFNCScaledBitmaps read FCompactExpanderBitmaps write SetCompactExpanderBitmaps;\r\n    property QuickMenuButtonBitmaps: TTMSFNCScaledBitmaps read FQuickMenuButtonBitmaps write SetQuickMenuButtonBitmaps;    \r\n    property OnQuickMenuButtonClick: TNotifyEvent read FOnQuickMenuButtonClick write FOnQuickMenuButtonClick;\r\n    property OnAnchorClick: TTMSFNCToolBarAnchorClickEvent read FOnAnchorClick write FOnAnchorClick;\r\n    property OnCustomizeCompactToolBar: TTMSFNCToolBarCustomizeCompactToolBarEvent read FOnCustomizeCompactToolBar write FOnCustomizeCompactToolBar;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure Build; virtual;\r\n    procedure Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF); override;\r\n    {$IFDEF FMXLIB}\r\n    procedure SetBounds(X, Y, AWidth, AHeight: Single); override;\r\n    {$ENDIF}\r\n    function CanExpand: Boolean; virtual;\r\n    function CanShrink: Boolean; virtual;\r\n    function DropDownActive: Boolean; virtual;\r\n    procedure CloseCompactPopup; virtual;\r\n    procedure AddCustomControl(AControl: TControl; AIndex: Integer = -1); virtual;\r\n    function AddCustomControlClass(AControlClass: TControlClass; AIndex: Integer = -1): TControl; virtual;\r\n    function AddButton(AWidth: Single = -1; AHeight: Single = -1; AResource: String = ''; AResourceLarge: String = ''; AText: String = '';\r\n      AIndex: Integer = -1): TTMSFNCToolBarButton; overload; virtual;\r\n    function AddSeparator(AIndex: Integer = -1): TTMSFNCToolBarSeparator; virtual;\r\n    function AddFontNamePicker(AIndex: Integer = -1): TTMSFNCToolBarFontNamePicker; virtual;\r\n    function AddFontSizePicker(AIndex: Integer = -1): TTMSFNCToolBarFontSizePicker; virtual;\r\n    function AddColorPicker(AIndex: Integer = -1): TTMSFNCToolBarColorPicker; virtual;\r\n    function AddItemPicker(AIndex: Integer = -1): TTMSFNCToolBarItemPicker; virtual;\r\n    function AddBitmapPicker(AIndex: Integer = -1): TTMSFNCToolBarBitmapPicker; virtual;\r\n    function GetOptionsMenuButtonControl: TTMSFNCToolBarDropDownButton; virtual;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCToolBar = class(TTMSFNCCustomToolBar)\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n  published\r\n    property OnOptionsMenuButtonClick;\r\n    property OnOptionsMenuItemCanShow;\r\n    property OnOptionsMenuCustomize;\r\n    property OnOptionsMenuItemCustomize;\r\n    property OnOptionsMenuItemApplyStyle;\r\n    property OnOptionsMenuItemClick;\r\n    property OnIsLastElement;\r\n    property OnDragGripMoving;\r\n    property OnQuickMenuButtonClick;\r\n    property OnAnchorClick;\r\n    //\r\n    property Version;\r\n    property AutoHeight;\r\n    property AutoWidth;\r\n    property AutoSize;\r\n    property AutoAlign;\r\n    property AutoStretchHeight;\r\n    property OnCustomizeCompactToolBar;\r\n    property AutoMoveToolBar;\r\n    property Appearance;\r\n    property CanCompact;\r\n    property OnCompactClick;\r\n    property CompactBitmapVisible;\r\n    property CompactBitmaps;\r\n    property Compact;\r\n    property CompactWidth;\r\n    property CompactAppearance;\r\n    property CompactBitmapSize;\r\n    property CompactAutoBitmapSize;\r\n    property QuickMenuButtonHint;\r\n    property QuickMenuButton;\r\n    property QuickMenuButtonAppearance;\r\n    property MinimumWidth;\r\n    property WordWrapping;\r\n    property Text;\r\n    property Trimming;\r\n    property HorizontalTextAlign;\r\n    property VerticalTextAlign;\r\n    property Font;\r\n    property DisabledFontColor;\r\n    property OptionsMenu;\r\n    property CustomOptionsMenu;\r\n    property State;\r\n  end;\r\n\r\n  TTMSFNCCustomDockPanelAppearance = class(TPersistent)\r\n  private\r\n    FOwner: TTMSFNCCustomDockPanel;\r\n    FFill: TTMSFNCGraphicsFill;\r\n    FStroke: TTMSFNCGraphicsStroke;\r\n    FMargins: TTMSFNCMargins;\r\n    procedure SetFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetMargins(const Value: TTMSFNCMargins);\r\n  protected\r\n    procedure FillChanged(Sender: TObject);\r\n    procedure StrokeChanged(Sender: TObject);\r\n    procedure MarginsChanged(Sender: TObject);\r\n    property Fill: TTMSFNCGraphicsFill read FFill write SetFill;\r\n    property Stroke: TTMSFNCGraphicsStroke read FStroke write SetStroke;\r\n    property Margins: TTMSFNCMargins read FMargins write SetMargins;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCCustomDockPanel);\r\n    destructor Destroy; override;\r\n  end;\r\n\r\n  TTMSFNCDockPanelAppearance = class(TTMSFNCCustomDockPanelAppearance)\r\n  published\r\n    property Fill;\r\n    property Stroke;\r\n  end;\r\n\r\n  TTMSFNCCustomDockPanel = class(TTMSFNCCustomControl)\r\n  private\r\n    FBlockUpdate: Boolean;\r\n    FAppearance: TTMSFNCDockPanelAppearance;\r\n    FAutoSize: Boolean;\r\n    FAutoAlign: Boolean;\r\n    FState: TTMSFNCToolBarElementState;\r\n    procedure SetAppearance(const Value: TTMSFNCDockPanelAppearance);\r\n    procedure SetAutoAlign(const Value: Boolean);\r\n    procedure SetAS(const Value: Boolean);\r\n    procedure SetState(const Value: TTMSFNCToolBarElementState);\r\n  protected\r\n    function GetDocURL: string; override;\r\n    function GetVersion: String; override;\r\n    procedure SetAdaptToStyle(const Value: Boolean); override;\r\n    procedure UpdateControls; virtual;\r\n    procedure InitializeControls; virtual;\r\n    procedure RearrangeControls; virtual;\r\n    procedure UpdateDockPanel(Sender: TObject);\r\n    procedure ApplyStyle; override;\r\n    procedure ResetToDefaultStyle; override;\r\n\r\n    {$IFDEF FMXLIB}\r\n    procedure DoAddObject(const AObject: TFmxObject); override;\r\n    procedure DoInsertObject(Index: Integer; const AObject: TFmxObject); override;\r\n    procedure DoRemoveObject(const AObject: TFmxObject); override;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    procedure AlignControls(AControl: TControl; var Rect: TRect); override;\r\n    {$ENDIF}\r\n\r\n    property Version: String read GetVersion;\r\n    property Appearance: TTMSFNCDockPanelAppearance read FAppearance write SetAppearance;\r\n    property AutoSize: Boolean read FAutoSize write SetAS default True;\r\n    property AutoAlign: Boolean read FAutoAlign write SetAutoAlign default True;\r\n    property State: TTMSFNCToolBarElementState read FState write SetState default esNormal;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF); override;\r\n    function AddToolBar({%H-}AIndex: Integer = -1): TTMSFNCToolBar;\r\n    {$IFDEF FMXLIB}\r\n    procedure SetBounds(X, Y, AWidth, AHeight: Single); override;\r\n    {$ENDIF}\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCDockPanel = class(TTMSFNCCustomDockPanel)\r\n  published\r\n    property Version;\r\n    property Appearance;\r\n    property AutoSize;\r\n    property AutoAlign;\r\n    property State;\r\n  end;\r\n\r\n  {$IFDEF CMNWEBLIB}\r\n  TTMSFNCToolBarParent = TWinControl;\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  TTMSFNCToolBarParent = TControl;\r\n  {$ENDIF}\r\n\r\nimplementation\r\n\r\nuses\r\n  Math, SysUtils, WEBLib.TMSFNCUtils\r\n  {$IFNDEF WEBLIB}\r\n  {$IFDEF FNCLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION >= 30}\r\n  ,FMX.ActnList, FMX.ImgList\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  ,WEBLib.Graphics, {%H-}StrUtils;\r\n\r\ntype\r\n  TControlOpen = class(TControl);\r\n\r\nfunction TTMSFNCCustomToolBar.AddBitmapPicker(\r\n  AIndex: Integer): TTMSFNCToolBarBitmapPicker;\r\nbegin\r\n  FBlockUpdate := True;\r\n  Result := GetBitmapPickerClass.Create(Self);\r\n  Result.Appearance.FlatStyle := Appearance.FlatStyle;\r\n  InsertToolBarControl(Result, AIndex);\r\n  FBlockUpdate := False;\r\n  UpdateControls;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.AddButton(AWidth: Single = -1; AHeight: Single = -1;\r\n  AResource: String = ''; AResourceLarge: String = ''; AText: String = ''; AIndex: Integer = -1): TTMSFNCToolBarButton;\r\nbegin\r\n  FBlockUpdate := True;\r\n  Result := GetToolBarButtonClass.Create(Self);\r\n  Result.Appearance.FlatStyle := Appearance.FlatStyle;\r\n  Result.Text := AText;\r\n  if AWidth <> -1 then\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    Result.Width := AWidth;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    Result.Width := Round(AWidth);\r\n    {$ENDIF}\r\n  end;\r\n\r\n  if AHeight <> -1 then\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    Result.Height := AHeight;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    Result.Height := Round(AHeight);\r\n    {$ENDIF}\r\n  end;\r\n\r\n  if AResource <> '' then\r\n  begin\r\n    Result.Bitmaps.AddBitmapFromResource(AResource, HInstance, 1.0);\r\n    Result.DisabledBitmaps.AddBitmapFromResource(AResource, HInstance, 1.0);\r\n    Result.HoverBitmaps.AddBitmapFromResource(AResource, HInstance, 1.0);\r\n  end;\r\n\r\n  if AResourceLarge <> '' then\r\n  begin\r\n    Result.Bitmaps.AddBitmapFromResource(AResourceLarge, HInstance, 1.5);\r\n    Result.DisabledBitmaps.AddBitmapFromResource(AResourceLarge, HInstance, 1.5);\r\n    Result.HoverBitmaps.AddBitmapFromResource(AResourceLarge, HInstance, 1.5);\r\n  end;\r\n\r\n  InsertToolBarControl(Result, AIndex);\r\n\r\n  FBlockUpdate := False;\r\n  UpdateControls;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.AddColorPicker(\r\n  AIndex: Integer): TTMSFNCToolBarColorPicker;\r\nbegin\r\n  FBlockUpdate := True;\r\n  Result := GetColorPickerClass.Create(Self);\r\n  Result.Appearance.FlatStyle := Appearance.FlatStyle;\r\n  InsertToolBarControl(Result, AIndex);\r\n  FBlockUpdate := False;\r\n  UpdateControls;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.AddCustomControl(AControl: TControl; AIndex: Integer = -1);\r\nbegin\r\n  FBlockUpdate := True;\r\n  InsertToolBarControl(AControl, AIndex);\r\n  FBlockUpdate := False;\r\n  UpdateControls;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.AddCustomControlClass(AControlClass: TControlClass;\r\n  AIndex: Integer = -1): TControl;\r\nbegin\r\n  FBlockUpdate := True;\r\n  Result := AControlClass.Create(Self);\r\n  InsertToolBarControl(Result, AIndex);\r\n  FBlockUpdate := False;\r\n  UpdateControls;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.AddFontNamePicker(\r\n  AIndex: Integer): TTMSFNCToolBarFontNamePicker;\r\nbegin\r\n  FBlockUpdate := True;\r\n  Result := GetFontNamePickerClass.Create(Self);\r\n  Result.Appearance.FlatStyle := Appearance.FlatStyle;\r\n  InsertToolBarControl(Result, AIndex);\r\n  FBlockUpdate := False;\r\n  UpdateControls;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.AddFontSizePicker(\r\n  AIndex: Integer): TTMSFNCToolBarFontSizePicker;\r\nbegin\r\n  FBlockUpdate := True;\r\n  Result := GetFontSizePickerClass.Create(Self);\r\n  Result.Appearance.FlatStyle := Appearance.FlatStyle;\r\n  InsertToolBarControl(Result, AIndex);\r\n  FBlockUpdate := False;\r\n  UpdateControls;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.AddItemPicker(\r\n  AIndex: Integer): TTMSFNCToolBarItemPicker;\r\nbegin\r\n  FBlockUpdate := True;\r\n  Result := GetItemPickerClass.Create(Self);\r\n  Result.Appearance.FlatStyle := Appearance.FlatStyle;\r\n  InsertToolBarControl(Result, AIndex);\r\n  FBlockUpdate := False;\r\n  UpdateControls;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.AddSeparator(AIndex: Integer = -1): TTMSFNCToolBarSeparator;\r\nbegin\r\n  FBlockUpdate := True;\r\n  Result := GetToolBarSeparatorClass.Create(Self);\r\n  InsertToolBarControl(Result, AIndex);\r\n  FBlockUpdate := False;\r\n  UpdateControls;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.ApplyFlatStyle;\r\nvar\r\n  I: Integer;\r\n  c: TControl;\r\nbegin\r\n  for I := 0 to Self.ControlCount - 1 do\r\n  begin\r\n    c := Self.Controls[I];\r\n    {$IFDEF FMXLIB}\r\n    if Supports(c, IDesignerControl) then\r\n      Continue;\r\n    {$ENDIF}\r\n\r\n    if c is TTMSFNCDefaultToolBarButton then\r\n      (c as TTMSFNCDefaultToolBarButton).Appearance.FlatStyle := Appearance.FlatStyle;\r\n\r\n    if c is TTMSFNCCustomToolBar then\r\n      (c as TTMSFNCCustomToolBar).Appearance.FlatStyle := Appearance.FlatStyle;\r\n  end;\r\n\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.ApplyStyle;\r\nvar\r\n  c: TTMSFNCGraphicsColor;\r\nbegin\r\n  inherited;\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleHeaderFillColor(c) then\r\n  begin\r\n    Appearance.Fill.Kind := gfkSolid;\r\n    Appearance.Fill.Color := c;\r\n  end;\r\n\r\n  if TTMSFNCStyles.GetStyleHeaderFillColorTo(c) then\r\n  begin\r\n    Appearance.Fill.Kind := gfkGradient;\r\n    Appearance.Fill.ColorTo := c;\r\n  end;\r\n\r\n  if TTMSFNCStyles.GetStyleTextFontColor(c) then\r\n    Font.Color := c;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.Assign(Source: TPersistent);\r\nvar\r\n  c, cc: TControl;\r\n  I: Integer;\r\nbegin\r\n  inherited;\r\n  if Source is TTMSFNCCustomToolBar then\r\n  begin\r\n    FCompactAppearance.Assign((Source as TTMSFNCCustomToolBar).CompactAppearance);\r\n    FQuickMenuButtonAppearance.Assign((Source as TTMSFNCCustomToolBar).QuickMenuButtonAppearance);\r\n    FQuickMenuButton := (Source as TTMSFNCCustomToolBar).QuickMenuButton;\r\n    FCompactBitmaps.Assign((Source as TTMSFNCCustomToolBar).CompactBitmaps);\r\n    FCompact := (Source as TTMSFNCCustomToolBar).Compact;\r\n    FCanCompact := (Source as TTMSFNCCustomToolBar).CanCompact;\r\n    FMinimumWidth := (Source as TTMSFNCCustomToolBar).MinimumWidth;\r\n    FCompactWidth := (Source as TTMSFNCCustomToolBar).CompactWidth;\r\n    FCompactBitmapSize := (Source as TTMSFNCCustomToolBar).CompactBitmapSize;\r\n    FCompactAutoBitmapSize := (Source as TTMSFNCCustomToolBar).CompactAutoBitmapSize;\r\n    FCompactExpanderBitmaps.Assign((Source as TTMSFNCCustomToolBar).CompactExpanderBitmaps);\r\n    FQuickMenuButtonBitmaps.Assign((Source as TTMSFNCCustomToolBar).QuickMenuButtonBitmaps);    \r\n    FCompactBitmapVisible := (Source as TTMSFNCCustomToolBar).CompactBitmapVisible;\r\n    FText := (Source as TTMSFNCCustomToolBar).Text;\r\n    FTextVisible := (Source as TTMSFNCCustomToolBar).TextVisible;\r\n    FWordWrapping := (Source as TTMSFNCCustomToolBar).WordWrapping;\r\n    FHorizontalTextAlign := (Source as TTMSFNCCustomToolBar).HorizontalTextAlign;\r\n    FVerticalTextAlign := (Source as TTMSFNCCustomToolBar).VerticalTextAlign;\r\n    FTrimming := (Source as TTMSFNCCustomToolBar).Trimming;\r\n    FFont.Assign((Source as TTMSFNCCustomToolBar).Font);\r\n    FAutoSize := (Source as TTMSFNCCustomToolBar).AutoSize;\r\n    FAutoHeight := (Source as TTMSFNCCustomToolBar).AutoHeight;\r\n    FAutoWidth := (Source as TTMSFNCCustomToolBar).AutoWidth;\r\n    FAutoAlign := (Source as TTMSFNCCustomToolBar).AutoAlign;\r\n    FAutoStretchHeight := (Source as TTMSFNCCustomToolBar).AutoStretchHeight;\r\n    FAutoMoveToolBar := (Source as TTMSFNCCustomToolBar).AutoMoveToolBar;\r\n    FAppearance.Assign((Source as TTMSFNCCustomToolBar).Appearance);\r\n    for I := 0 to (Source as TTMSFNCCustomToolBar).ControlCount - 1 do\r\n    begin\r\n      cc := (Source as TTMSFNCCustomToolBar).Controls[I];\r\n      if ((cc is TTMSFNCDefaultToolBarButton) and (cc as TTMSFNCDefaultToolBarButton).CanCopy) or not ((cc is TTMSFNCDefaultToolBarButton) and (cc is TControl)) then\r\n      begin\r\n        if cc is TTMSFNCDefaultToolBarButton then\r\n          (cc as TTMSFNCDefaultToolBarButton).ApplyName := False;\r\n\r\n        c := (TTMSFNCUtils.Clone(cc) as TControl);\r\n        if cc is TTMSFNCDefaultToolBarButton then\r\n          (cc as TTMSFNCDefaultToolBarButton).ApplyName := True;\r\n\r\n        AddCustomControl(c);\r\n      end;\r\n    end;\r\n    Invalidate;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.Build;\r\nbegin\r\n  UpdateControls;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.ChangeDPIScale(M, D: Integer);\r\nbegin\r\n  inherited;\r\n  Font.Height := TTMSFNCUtils.MulDivInt(Font.Height, M, D);\r\n  Appearance.HorizontalSpacing := TTMSFNCUtils.MulDivSingle(Appearance.HorizontalSpacing, M, D);\r\n  Appearance.VerticalSpacing := TTMSFNCUtils.MulDivSingle(Appearance.VerticalSpacing, M, D);\r\n  CompactWidth := TTMSFNCUtils.MulDivSingle(CompactWidth, M, D);\r\n  CompactBitmapSize := TTMSFNCUtils.MulDivSingle(CompactBitmapSize, M, D);\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.CheckIsLoading: Boolean;\r\nbegin\r\n  Result := IsLoading;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.CanShrink: Boolean;\r\nvar\r\n  I: Integer;\r\n  c: TControl;\r\n  btn: TTMSFNCDefaultToolBarButton;\r\nbegin\r\n  Result := False;\r\n\r\n  if not Compact and CanCompact then\r\n  begin\r\n    Result := True;\r\n    Exit;\r\n  end;\r\n\r\n  for I := Self.ControlCount - 1 downto 0 do\r\n  begin\r\n    c := Self.Controls[I];\r\n    {$IFDEF FMXLIB}\r\n    if Supports(c, IDesignerControl) then\r\n      Continue;\r\n    {$ENDIF}\r\n\r\n    if c <> FOptionsMenuButton then\r\n    begin\r\n      if c is TTMSFNCDefaultToolBarButton then\r\n      begin\r\n        btn := c as TTMSFNCDefaultToolBarButton;\r\n        if (Integer(btn.Layout) > Integer(btn.MinimumLayout)) and (btn.Layout <> bblNone) then\r\n        begin\r\n          Result := True;\r\n          Break;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.CloseCompactPopup;\r\nbegin\r\n  if Assigned(FCompactPopup) then\r\n    FCompactPopup.IsOpen := False;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.CanBuildControls: Boolean;\r\nbegin\r\n  Result := True;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.CanDrawDesignTime: Boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.CanExpand: Boolean;\r\nvar\r\n  I: Integer;\r\n  c: TControl;\r\n  btn: TTMSFNCDefaultToolBarButton;\r\nbegin\r\n  Result := False;\r\n\r\n  if Compact then\r\n  begin\r\n    Result := True;\r\n    Exit;\r\n  end;\r\n\r\n  for I := Self.ControlCount - 1 downto 0 do\r\n  begin\r\n    c := Self.Controls[I];\r\n    {$IFDEF FMXLIB}\r\n    if Supports(c, IDesignerControl) then\r\n      Continue;\r\n    {$ENDIF}\r\n\r\n    if c <> FOptionsMenuButton then\r\n    begin\r\n      if c is TTMSFNCDefaultToolBarButton then\r\n      begin\r\n        btn := c as TTMSFNCDefaultToolBarButton;\r\n        if (Integer(btn.Layout) < Integer(btn.MaximumLayout)) and (btn.Layout <> bblNone) then\r\n        begin\r\n          Result := True;\r\n          Break;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.CompactAppearanceChanged(Sender: TObject);\r\nbegin\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.CompactBitmapsChanged(Sender: TObject);\r\nvar\r\n  bmp: TTMSFNCBitmap;\r\nbegin\r\n  bmp := TTMSFNCGraphics.GetScaledBitmap(CompactBitmaps, 0, BitmapContainer);\r\n  CompactBitmapVisible := Assigned(bmp) and not IsBitmapEmpty(bmp);\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.CompactControls;\r\nvar\r\n  I: Integer;\r\n  cc: TTMSFNCToolBarControl;\r\n  c: TControl;\r\nbegin\r\n  FBlockUpdate := True;\r\n  FCompactControls.Clear;\r\n  for I := Self.ControlCount - 1 downto 0 do\r\n  begin\r\n    c := Self.Controls[I];\r\n    {$IFDEF FMXLIB}\r\n    if Supports(c, IDesignerControl) then\r\n      Continue;\r\n    {$ENDIF}\r\n\r\n    if c <> FOptionsMenuButton then\r\n    begin\r\n      cc := TTMSFNCToolBarControl.Create;\r\n      cc.FControl := c;\r\n      if c is TTMSFNCDefaultToolBarButton then\r\n      begin\r\n        cc.FLayout := (c as TTMSFNCDefaultToolBarButton).Layout;\r\n        if ((c as TTMSFNCDefaultToolBarButton).CompactLayout = bblNone) and ((c as TTMSFNCDefaultToolBarButton).Layout <> bblNone) then\r\n          (c as TTMSFNCDefaultToolBarButton).CompactLayout := (c as TTMSFNCDefaultToolBarButton).MaximumLayout;\r\n      end;\r\n\r\n      if c is TTMSFNCCustomToolBarElement then\r\n        cc.FControlIndex := (c as TTMSFNCCustomToolBarElement).ControlIndex\r\n      else\r\n        cc.FControlIndex := c.Tag;\r\n\r\n      c.Parent := nil;\r\n      c.Visible := False;\r\n      FCompactControls.Add(cc);\r\n    end;\r\n  end;\r\n  FBlockUpdate := True;\r\n  UpdateControls;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.CompactExpanderBitmapsChanged(Sender: TObject);\r\nbegin\r\n  Invalidate;\r\nend;\r\n\r\nconstructor TTMSFNCCustomToolBar.Create(AOwner: TComponent);\r\nvar\r\n  c: TTMSFNCGraphicsColor;\r\nbegin\r\n  inherited;\r\n  FFirstLoad := True;\r\n  FHiddenControls := TTMSFNCToolBarControlObjectList.Create;\r\n  FCompactControls := TTMSFNCToolBarControlObjectList.Create;\r\n  {$IFNDEF LCLLIB}\r\n  {$IFNDEF WEBLIB}\r\n  FCompareControls := TDelegatedComparer<TControl>.Create(\r\n    function(const Item1, Item2: TControl): Integer\r\n    var\r\n      c1, c2: Integer;\r\n    begin\r\n      if Item1 is TTMSFNCCustomToolBarElement then\r\n        c1 := (Item1 as TTMSFNCCustomToolBarElement).ControlIndex\r\n      else\r\n        c1 := Item1.Tag;\r\n\r\n      if Item2 is TTMSFNCCustomToolBarElement then\r\n        c2 := (Item2 as TTMSFNCCustomToolBarElement).ControlIndex\r\n      else\r\n        c2 := Item2.Tag;\r\n\r\n      Result := CompareValue(c1, c2);\r\n    end);\r\n  FCompareHiddenControls := TDelegatedComparer<TTMSFNCToolBarControl>.Create(\r\n    function(const Item1, Item2: TTMSFNCToolBarControl): Integer\r\n    begin\r\n      Result := CompareValue(Item1.FControlIndex, Item2.FControlIndex);\r\n    end);\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  FState := esNormal;\r\n  FDisabledFontColor := gcNull;\r\n  FAppearance := TTMSFNCToolBarAppearance.Create(Self);\r\n  FCompactAppearance := TTMSFNCToolBarCompactAppearance.Create(nil);\r\n  FCompactAppearance.OnChange := @CompactAppearanceChanged;\r\n  FQuickMenuButtonAppearance := TTMSFNCToolBarQuickMenuButtonAppearance.Create(nil);\r\n  FQuickMenuButtonAppearance.OnChange := @QuickMenuButtonAppearanceChanged;\r\n  FCompactBitmaps := TTMSFNCScaledBitmaps.Create(Self);\r\n  FCompactBitmaps.OnChange := @CompactBitmapsChanged;\r\n  FOptionsMenu := TTMSFNCToolBarOptionsMenu.Create(Self);\r\n  FMinimumWidth := 30;\r\n  FCompactWidth := 50;\r\n  FCompactBitmapSize := 24;\r\n  FCompactAutoBitmapSize := False;\r\n  FCompactBitmapVisible := False;\r\n  FCompactExpanderBitmaps := TTMSFNCScaledBitmaps.Create(Self);\r\n  FCompactExpanderBitmaps.OnChange := @CompactExpanderBitmapsChanged;\r\n  FQuickMenuButtonBitmaps := TTMSFNCScaledBitmaps.Create(Self);\r\n  FQuickMenuButtonBitmaps.OnChange := @QuickMenuButtonBitmapsChanged;\r\n  FCanCompact := True;\r\n  FQuickMenuButton := False;\r\n  FCompact := False;\r\n  FAutoSize := True;\r\n  FAutoWidth := True;\r\n  FAutoHeight := True;\r\n  FAutoAlign := True;\r\n  FAutoStretchHeight := False;\r\n  FAutoMoveToolBar := True;\r\n  FOptionsMenuButton := GetOptionsMenuButtonClass.Create(Self);\r\n  FOptionsMenuButton.Appearance.NormalFill.Kind := gfkSolid;\r\n  c := gcLightgray;\r\n  FOptionsMenuButton.Appearance.NormalFill.Color := c;\r\n  FOptionsMenuButton.Appearance.ShowInnerStroke := False;\r\n  FOptionsMenuButton.Appearance.Rounding := 0;\r\n\r\n  FOptionsMenuButton.Appearance.HoverFill.Assign(FOptionsMenuButton.Appearance.NormalFill);\r\n  FOptionsMenuButton.Appearance.DisabledFill.Assign(FOptionsMenuButton.Appearance.NormalFill);\r\n  FOptionsMenuButton.Appearance.DownFill.Assign(FOptionsMenuButton.Appearance.NormalFill);\r\n\r\n  FOptionsMenuButton.Appearance.HoverFill.Color := gcLightblue;\r\n  FOptionsMenuButton.Appearance.DownFill.Color := gcLightsteelblue;\r\n  FOptionsMenuButton.Appearance.DisabledFill.Color := gcLightgray;\r\n\r\n  {$IFDEF VCLWEBLIB}\r\n  FOptionsMenuButton.AlignWithMargins := True;\r\n  {$ENDIF}\r\n  \r\n  {$IFNDEF LCLLIB}\r\n  FOptionsMenuButton.Margins.Top := 3;\r\n  FOptionsMenuButton.Margins.Bottom := 3;\r\n  FOptionsMenuButton.Margins.Right := 3;\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  FOptionsMenuButton.BorderSpacing.Top := 3;\r\n  FOptionsMenuButton.BorderSpacing.Bottom := 3;\r\n  FOptionsMenuButton.BorderSpacing.Right := 3;\r\n  {$ENDIF}\r\n\r\n  FOptionsMenuButton.CanCopy := False;\r\n  FAutoOptionsMenu := TPopupMenu.Create(Self);\r\n  {$IFDEF FMXLIB}\r\n  FAutoOptionsMenu.Parent := Self;\r\n  FAutoOptionsMenu.Stored := False;\r\n  {$ENDIF}\r\n  FOptionsMenuButton.OnClick := OptionsButtonClick;\r\n  FOptionsMenuButton.Width := 17;\r\n  FOptionsMenuButton.Text := '';\r\n  FOptionsMenuButton.Stored := False;\r\n\r\n  FOptionsMenuButton.Bitmaps.AddBitmapFromResource(TMSFNCTOOLBAROPTIONSMENU, HInstance, 1.0);\r\n  FOptionsMenuButton.Bitmaps.AddBitmapFromResource(TMSFNCTOOLBAROPTIONSMENULARGE, HInstance, 1.5);\r\n  FOptionsMenuButton.DisabledBitmaps.AddBitmapFromResource(TMSFNCTOOLBAROPTIONSMENU, HInstance, 1.0);\r\n  FOptionsMenuButton.DisabledBitmaps.AddBitmapFromResource(TMSFNCTOOLBAROPTIONSMENULARGE, HInstance,1.5);\r\n  FOptionsMenuButton.HoverBitmaps.AddBitmapFromResource(TMSFNCTOOLBAROPTIONSMENU, HInstance, 1.0);\r\n  FOptionsMenuButton.HoverBitmaps.AddBitmapFromResource(TMSFNCTOOLBAROPTIONSMENULARGE, HInstance,1.5);\r\n\r\n  FHorizontalTextAlign := gtaCenter;\r\n  FVerticalTextAlign := gtaCenter;\r\n  FTrimming := gttCharacter;\r\n  FWordWrapping := False;\r\n  FTextVisible := True;\r\n\r\n  FFont := TTMSFNCGraphicsFont.Create;\r\n\r\n  FCompactExpanderBitmaps.AddBitmapFromResource(TMSFNCGRAPHICSDOWN, HInstance, 1.0);\r\n  FQuickMenuButtonBitmaps.AddBitmapFromResource(TMSFNCTOOLBARQUICKMENU, HInstance, 1.0);  \r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.DeactivateAllPopups;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  if Assigned(Parent) and (Parent is TTMSFNCToolBarParent) then\r\n    for I := 0 to (Parent as TTMSFNCToolBarParent).ControlCount - 1 do\r\n      if (Parent as TTMSFNCToolBarParent).Controls[I] is TTMSFNCCustomToolBar then\r\n        ((Parent as TTMSFNCToolBarParent).Controls[I] as TTMSFNCCustomToolBar).CloseCompactPopup;\r\nend;\r\n\r\ndestructor TTMSFNCCustomToolBar.Destroy;\r\nbegin\r\n  FQuickMenuButtonBitmaps.Free;\r\n  FCompactExpanderBitmaps.Free;\r\n  FCompactPopup.Free;\r\n  FQuickMenuButtonAppearance.Free;\r\n  FCompactAppearance.Free;\r\n  FCompactBitmaps.Free;\r\n  FFont.Free;\r\n  FOptionsMenu.Free;\r\n  FAppearance.Free;\r\n  FHiddenControls.Free;\r\n  FCompactControls.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.DoAnchorClick(AAnchor: string);\r\nbegin\r\n  if Assigned(OnAnchorClick) then\r\n    OnAnchorClick(Self, AAnchor)\r\n  else\r\n    TTMSFNCUtils.OpenURL(AAnchor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.DoCanShowOptionsMenuItem(AControl: TControl;\r\n  var ACanShowItem: Boolean);\r\nbegin\r\n  if Assigned(OnOptionsMenuItemCanShow) then\r\n    OnOptionsMenuItemCanShow(Self, AControl, ACanShowItem);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.DoCloseCompactPopup(Sender: TObject);\r\nvar\r\n  I: Integer;\r\n  cc: TTMSFNCToolBarControl;\r\nbegin\r\n  FCompactPopup.ContentControl := nil;\r\n\r\n  for I := 0 to FCompactControls.Count - 1 do\r\n  begin\r\n    cc := TTMSFNCToolBarControl(FCompactControls[I]);\r\n    if Assigned(cc.FControl) then\r\n    begin\r\n      if cc.FControl is TTMSFNCDefaultToolBarButton then\r\n        (cc.FControl as TTMSFNCDefaultToolBarButton).Layout := cc.FLayout;\r\n\r\n      cc.FControl.Parent := nil;\r\n      cc.FControl.Visible := False;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(FCompactToolbar) then\r\n  begin\r\n    FCompactToolbar.Free;\r\n    FCompactToolbar := nil;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.DoCompactClick;\r\nbegin\r\n  if Assigned(OnCompactClick) then\r\n    OnCompactClick(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.DoCustomizeCompactToolBar(\r\n  ACompactToolBar: TTMSFNCToolBar);\r\nbegin\r\n  if Assigned(OnCustomizeCompactToolBar) then\r\n    OnCustomizeCompactToolBar(Self, ACompactToolBar);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.DoCustomizeOptionsMenu;\r\nbegin\r\n  if Assigned(OnOptionsMenuCustomize) then\r\n    OnOptionsMenuCustomize(Self, FAutoOptionsMenu);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.DoCustomizeOptionsMenuItem(AControl: TControl; AMenuItem: TMenuItem);\r\nbegin\r\n  if Assigned(OnOptionsMenuItemCustomize) then\r\n    OnOptionsMenuItemCustomize(Self, AControl, AMenuItem);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.DoDragGripMoving(ADeltaX, ADeltaY: Double);\r\nbegin\r\n  if Assigned(OnDragGripMoving) then\r\n    OnDragGripMoving(Self, ADeltaX, ADeltaY);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.DoIsLastElement(AControl: TControl; var ALastElement: Boolean);\r\nbegin\r\n  if Assigned(OnIsLastElement) then\r\n    OnIsLastElement(Self, AControl, ALastElement);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.HandleQuickMenuButton;\r\nbegin\r\n  if Assigned(OnQuickMenuButtonClick) then\r\n    OnQuickMenuButtonClick(Self);\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.HasHint: Boolean;\r\nbegin\r\n  Result := inherited HasHint;\r\n  if FQuickMenuButtonHover then\r\n    Result := QuickMenuButtonHint <> '';\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomToolBar.DoMatrixChanged(Sender: TObject);\r\nbegin\r\n  inherited;\r\n  UpdateDockPanel;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomToolBar.HandleMouseLeave;\r\nbegin\r\n  inherited;\r\n  FHoverP := False;\r\n  FQuickMenuButtonHover := False;\r\n  Cursor := crDefault;\r\n  FInsideDrag := False;\r\n  if FHoverP <> FHover then\r\n  begin\r\n    FHover := False;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCCustomToolBar.AlignControls(AControl: TControl; var Rect: TRect);\r\nbegin\r\n  inherited;\r\n  UpdateControls;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomToolBar.DoAddObject(const AObject: TFmxObject);\r\nbegin\r\n  inherited;\r\n  UpdateControls;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.DoInsertObject(Index: Integer;\r\n  const AObject: TFmxObject);\r\nbegin\r\n  inherited;\r\n  UpdateControls;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetBounds(X, Y, AWidth, AHeight: Single);\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  r := BoundsRect;\r\n  inherited;\r\n  if (csDesigning in ComponentState) and not ((csLoading in ComponentState) or (csReading in ComponentState)) then\r\n  begin\r\n    if ((r.Width <> AWidth) or (r.Height <> AHeight)) then\r\n      UpdateControls;\r\n  end\r\n  else\r\n    UpdateControls;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.DoRemoveObject(const AObject: TFmxObject);\r\nbegin\r\n  inherited;\r\n  UpdateControls;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomToolBar.DrawDragGrip(AGraphics: TTMSFNCGraphics);\r\nvar\r\n  cnt: Integer;\r\n\r\n  procedure DrawDots(ARect: TRectF);\r\n  var\r\n    i: integer;\r\n    rdg: TRectF;\r\n    sz: Integer;\r\n  begin\r\n    if State = esLarge then\r\n      sz := ScalePaintValue(3)\r\n    else\r\n      sz := ScalePaintValue(2);\r\n\r\n    ARect.Left := ARect.Left;\r\n    ARect.Top := ARect.Top;\r\n    cnt := Round(ARect.Bottom) div (Round(sz) * 2);\r\n    for i := 1 to cnt do\r\n    begin\r\n      rdg := RectF(ARect.Left + ((ARect.Right - ARect.Left) - sz) / 2, ARect.Top + 1, ARect.Left + sz + ((ARect.Right - ARect.Left) - sz) / 2, ARect.Top + 1 + sz);\r\n      rdg := RectF(int(rdg.Left), int(rdg.Top), int(rdg.Right), int(rdg.Bottom));\r\n      AGraphics.DrawRectangle(rdg);\r\n      ARect.Top := ARect.Top + sz * 2;\r\n    end;\r\n  end;\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  AGraphics.Fill.Color := Appearance.DragGripColor;\r\n  AGraphics.Fill.Kind := gfkSolid;\r\n  r := GetDragGripRect;\r\n  DrawDots(r);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.DrawText(AGraphics: TTMSFNCGraphics);\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  if TextVisible and (Text <> '') then\r\n  begin\r\n    AGraphics.Font.Assign(Font);\r\n\r\n    if not Enabled and (DisabledFontColor <> gcNull) then\r\n      AGraphics.Font.Color := DisabledFontColor;\r\n\r\n    r := GetTextRect;\r\n\r\n    AGraphics.DrawText(r, Text, WordWrapping, HorizontalTextAlign, VerticalTextAlign, Trimming);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.DropDownActive: Boolean;\r\nvar\r\n  I: Integer;\r\n  c: TControl;\r\nbegin\r\n  Result := False;\r\n  for I := 0 to Self.ControlCount - 1 do\r\n  begin\r\n    c := Self.Controls[I];\r\n    if c is TTMSFNCDefaultToolBarButton then\r\n    begin\r\n      if Assigned((c as TTMSFNCDefaultToolBarButton).FPopup) then\r\n      begin\r\n        Result := (c as TTMSFNCDefaultToolBarButton).FPopup.IsOpen;\r\n        if Result then\r\n          Break;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.GetBitmapContainer: TTMSFNCBitmapContainer;\r\nbegin\r\n  Result := FBitmapContainer;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.GetBitmapPickerClass: TTMSFNCToolBarBitmapPickerClass;\r\nbegin\r\n  Result := TTMSFNCToolBarBitmapPicker;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.GetCompactBitmapRect(ARect: TRectF): TRectF;\r\nvar\r\n  r: TRectF;\r\n  bs: Single;\r\nbegin\r\n  r := ARect;\r\n  Result := RectF(r.Left, r.Top, r.Right, r.Top);\r\n  if CompactBitmapVisible then\r\n  begin\r\n    bs := GetCompactBitmapSize;\r\n    if not TextVisible or (Text = '') then\r\n    begin\r\n      Result := RectF(r.Left + 3, r.Top + 3, r.Right - 3, r.Bottom - 3);\r\n      if (bs <> -1) then\r\n      begin\r\n        Result.Left := Round(r.Left + ((r.Right - r.Left) - bs) / 2);\r\n        Result.Top := Round(r.Top + ((r.Bottom - r.Top) - bs) / 2);\r\n        Result.Right := Result.Left + bs;\r\n        Result.Bottom := Result.Top + bs;\r\n      end;\r\n    end\r\n    else if TextVisible and not (Text = '') then\r\n      Result := RectF(r.Left + 3, r.Top + 3, r.Right - 3, r.Top + bs);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.GetCompactBitmapSize: Single;\r\nvar\r\n  bmp: TTMSFNCBitmap;\r\nbegin\r\n  Result := CompactBitmapSize;\r\n  if CompactAutoBitmapSize then\r\n  begin\r\n    bmp := TTMSFNCGraphics.GetScaledBitmap(CompactBitmaps, 0, BitmapContainer);\r\n    if Assigned(bmp) and not IsBitmapEmpty(bmp) then\r\n      Result := Max(bmp.Height, bmp.Width);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.GetColorPickerClass: TTMSFNCToolBarColorPickerClass;\r\nbegin\r\n  Result := TTMSFNCToolBarColorPicker;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.GetCompactControl(\r\n  AControl: TControl): TTMSFNCToolBarControl;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := nil;\r\n  for I := 0 to FCompactControls.Count - 1 do\r\n  begin\r\n    if TTMSFNCToolBarControl(FCompactControls[I]).FControl = AControl then\r\n    begin\r\n      Result := TTMSFNCToolBarControl(FCompactControls[I]);\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.GetCompactControlCount: Integer;\r\nbegin\r\n  Result := FCompactControls.Count;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.GetDocURL: string;\r\nbegin\r\n  Result := TTMSFNCBaseDocURL + 'tmsfncuipack/components/' + LowerCase(ClassName);\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.GetDragGripRect(AInteraction: Boolean = False): TRectF;\r\nvar\r\n  r: TRectF;\r\n  f: Single;\r\nbegin\r\n  r := LocalRect;\r\n  f := 1;\r\n  if State = esLarge then\r\n    f := 1.75;\r\n\r\n  if AInteraction then\r\n    Result := RectF(r.Left, r.Top, r.Left + ScalePaintValue(8 * f), r.Bottom)\r\n  else\r\n    Result := RectF(r.Left + ScalePaintValue(3), r.Top + ScalePaintValue(3), r.Left + ScalePaintValue(6 * f), r.Bottom - ScalePaintValue(3));\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.GetFontNamePickerClass: TTMSFNCToolBarFontNamePickerClass;\r\nbegin\r\n  Result := TTMSFNCToolBarFontNamePicker;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.GetFontSizePickerClass: TTMSFNCToolBarFontSizePickerClass;\r\nbegin\r\n  Result := TTMSFNCToolBarFontSizePicker;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.GetHiddenControl(\r\n  AControl: TControl): TTMSFNCToolBarControl;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := nil;\r\n  for I := 0 to FHiddenControls.Count - 1 do\r\n  begin\r\n    if TTMSFNCToolBarControl(FHiddenControls[I]).FControl = AControl then\r\n    begin\r\n      Result := TTMSFNCToolBarControl(FHiddenControls[I]);\r\n      Break;\r\n    end;\r\n  end;              \r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.GetHiddenControlCount(\r\n  AControl: TControl): Integer;\r\nvar\r\n  I: Integer;\r\n  lst: TTMSFNCToolBarControlList;\r\nbegin\r\n  lst := TTMSFNCToolBarControlList.Create;\r\n  for I := 0 to FHiddenControls.Count - 1 do\r\n    lst.Add(FHiddenControls[I]);\r\n\r\n  {$IFNDEF LCLLIB}\r\n  {$IFNDEF WEBLIB}\r\n  lst.Sort(FCompareHiddenControls);\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  Result := 0;\r\n  for I := 0 to lst.Count - 1 do\r\n  begin\r\n    if TTMSFNCToolBarControl(lst[I]).FControl = AControl then\r\n      Break\r\n    else\r\n      Inc(Result);\r\n  end;\r\n  lst.Free;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.GetHintString: String;\r\nbegin\r\n  Result := inherited GetHintString;\r\n  if FQuickMenuButtonHover then\r\n    Result := QuickMenuButtonHint\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.GetItemPickerClass: TTMSFNCToolBarItemPickerClass;\r\nbegin\r\n  Result := TTMSFNCToolBarItemPicker;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.GetOptionsMenuButtonClass: TTMSFNCToolBarDropDownButtonClass;\r\nbegin\r\n  Result := TTMSFNCToolBarDropDownButton;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.GetOptionsMenuButtonControl: TTMSFNCToolBarDropDownButton;\r\nbegin\r\n  Result := FOptionsMenuButton;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.GetQuickMenuButtonRect: TRectF;\r\nbegin\r\n  Result := RectF(Width - 16, Height - 16, Width, Height);\r\n  if Appearance.Separator then\r\n  begin\r\n    Result.Left := Result.Left - Appearance.SeparatorStroke.Width;\r\n    Result.Right := Result.Right - Appearance.SeparatorStroke.Width;\r\n  end;\r\nend;\r\n\r\n{$IFDEF FNCLIB}\r\nfunction TTMSFNCCustomToolBar.GetSubComponentArray: TTMSFNCStylesManagerComponentArray;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  SetLength(Result, ControlCount + FHiddenControls.Count + 1);\r\n  for I := 0 to ControlCount - 1 do\r\n    Result[I] := Controls[I];\r\n\r\n  for I := 0 to FHiddenControls.Count - 1 do\r\n    Result[I + ControlCount] := FHiddenControls[I].FControl;\r\n\r\n  Result[Length(Result) - 1] := FOptionsMenuButton;\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TTMSFNCCustomToolBar.GetCompactTextRect: TRectF;\r\nvar\r\n  bmpr: TRectF;\r\n  r: TRectF;\r\nbegin\r\n  r := LocalRect;\r\n  bmpr := GetCompactBitmapRect(r);\r\n  Result := RectF(r.Left + 3, bmpr.Bottom + 3, r.Right - 3, r.Bottom - 23)\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.GetTextRect: TRectF;\r\nvar\r\n  r: TRectF;\r\n  h, sz: Single;\r\nbegin\r\n  sz := 0;\r\n  if Appearance.DragGrip then\r\n  begin\r\n    if State = esLarge then\r\n      sz := 3\r\n    else\r\n      sz := 2;\r\n  end;\r\n  r := LocalRect;\r\n  r := RectF(r.Left + ScalePaintValue(sz), r.Top, r.Right, r.Bottom);\r\n  InflateRectEx(r, ScalePaintValue(-2), ScalePaintValue(-2));\r\n\r\n  h := GetTextSize.cy;\r\n\r\n  Result := RectF(r.Left, r.Bottom - h, r.Right, r.Bottom);\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.GetTextSize: TSizeF;\r\nvar\r\n  g: TTMSFNCGraphics;\r\n  sz: Single;\r\n  r: TRectF;\r\nbegin\r\n  Result.cx := 0;\r\n  Result.cy := 0;\r\n  if TextVisible and (Text <> '') then\r\n  begin\r\n    g := TTMSFNCGraphics.CreateBitmapCanvas(1, 1, NativeCanvas);\r\n    if not NativeCanvas then\r\n      g.BeginScene;\r\n    g.BitmapContainer := BitmapContainer;\r\n    g.OptimizedHTMLDrawing := OptimizedHTMLDrawing;\r\n    try\r\n      sz := 0;\r\n      if Appearance.DragGrip then\r\n      begin\r\n        if State = esLarge then\r\n          sz := 3\r\n        else\r\n          sz := 2;\r\n      end;\r\n\r\n      g.Font.Assign(Font);\r\n\r\n      r := LocalRect;\r\n      r := RectF(r.Left + sz, r.Top, r.Right, r.Bottom);\r\n      InflateRectEx(r, -2, -2);\r\n      Result := g.CalculateTextSize(Text, r, WordWrapping);\r\n    finally\r\n      if not NativeCanvas then\r\n        g.EndScene;\r\n      g.Free;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.GetToolBarButtonClass: TTMSFNCToolBarButtonClass;\r\nbegin\r\n  Result := TTMSFNCToolBarButton;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.GetToolBarSeparatorClass: TTMSFNCToolBarSeparatorClass;\r\nbegin\r\n  Result := TTMSFNCToolBarSeparator;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.GetVersion: String;\r\nbegin\r\n  Result := GetVersionNumber(MAJ_VER, MIN_VER, REL_VER, BLD_VER);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.UpdateToolBar(Sender: TObject);\r\nbegin\r\n  UpdateControls;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.UpdateToolBarControl(Sender: TObject);\r\nvar\r\n  tb: TTMSFNCToolBarControl;\r\n  bmp: TTMSFNCBitmapHelperClass;\r\n  c: TControl;\r\n  tc: TControl;\r\n  tci: Integer;\r\nbegin\r\n  if not Assigned(Sender) then\r\n    Exit;\r\n\r\n  FBlockUpdate := True;\r\n\r\n  c := Sender as TControl;\r\n\r\n  tb := GetHiddenControl(c);\r\n  if Assigned(tb) then\r\n  begin\r\n    tc := tb.FControl;\r\n    tci := Max(0, Min(ControlCount, tb.FControlIndex - GetHiddenControlCount(tc)));\r\n    FHiddenControls.Remove(tb);\r\n    InsertToolBarControl(tc, tci);\r\n    tc.Visible := True;\r\n  end\r\n  else\r\n  begin\r\n    tb := TTMSFNCToolBarControl.Create;\r\n\r\n    if c is TTMSFNCCustomToolBarElement then\r\n      tb.FControlIndex := (c as TTMSFNCCustomToolBarElement).ControlIndex\r\n    else\r\n      tb.FControlIndex := c.Tag;\r\n\r\n    tb.FControl := c;\r\n    FBlockUpdate := True;\r\n    bmp := c.MakeScreenshot;\r\n    FBlockUpdate := False;\r\n    tb.FBitmap.Assign(bmp);\r\n    bmp.Free;\r\n    FHiddenControls.Add(tb);\r\n    c.Parent := nil;\r\n    c.Visible := False;\r\n  end;\r\n\r\n  FBlockUpdate := False;\r\n  UpdateControls;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.XYToAnchor(AX, AY: Single): string;\r\nvar\r\n  r: TRectF;\r\n  g: TTMSFNCGraphics;\r\nbegin\r\n  Result := '';\r\n  r := GetTextRect;\r\n\r\n  g := TTMSFNCGraphics.CreateBitmapCanvas;\r\n  g.BeginScene;\r\n  g.BitmapContainer := BitmapContainer;\r\n  try\r\n    g.Font.Assign(Font);\r\n    Result := g.DrawText(r, FText, FWordWrapping, FHorizontalTextAlign, FVerticalTextAlign, FTrimming, 0, -1, -1, True, True, AX, AY);\r\n  finally\r\n    g.EndScene;\r\n    g.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.InitializeOptionsMenu;\r\n{$IFDEF WEBLIB}\r\nbegin\r\n{$ENDIF}\r\n{$IFNDEF WEBLIB}\r\nvar\r\n  mnu: TTMSFNCToolBarOptionMenuItem;\r\n  bmp: TTMSFNCBitmapHelperClass;\r\n  I: Integer;\r\n  c: TControl;\r\n  lst: TTMSFNCControlList;\r\n  tb: TTMSFNCToolBarControl;\r\n  sh: Boolean;\r\n  bmpw, bw, bh: Single;\r\n  {$IFDEF FMXLIB}\r\n  o: TFmxObject;\r\n  {$ENDIF}\r\n  maxh: Single;\r\nbegin\r\n  lst := nil;\r\n  try\r\n    lst := TTMSFNCControlList.Create;\r\n    for I := 0 to Self.ControlCount - 1 do\r\n      lst.Add(Controls[I]);\r\n\r\n    for I := 0 to FHiddenControls.Count - 1 do\r\n      lst.Add(TTMSFNCToolBarControl(FHiddenControls[I]).FControl);\r\n\r\n    {$IFNDEF LCLLIB}\r\n    {$IFNDEF WEBLIB}\r\n    lst.Sort(FCompareControls);\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n\r\n    {$IFDEF FMXLIB}\r\n    FAutoOptionsMenu.Clear;\r\n    {$ENDIF}\r\n    {$IFDEF CMNLIB}\r\n    FAutoOptionsMenu.Items.Clear;\r\n    {$ENDIF}\r\n\r\n    FTotalOptionsMenuWidth := 0;\r\n\r\n    for I := 0 to lst.Count - 1 do\r\n    begin\r\n      c := TControl(lst[I]);\r\n\r\n      {$IFDEF FMXLIB}\r\n      if Supports(c, IDesignerControl) then\r\n        Continue;\r\n      {$ENDIF}\r\n\r\n      if not (c = FOptionsMenuButton) and not (c is TTMSFNCCustomToolBarSeparator) then\r\n      begin\r\n        sh := True;\r\n        DoCanShowOptionsMenuItem(c, sh);\r\n        if sh then\r\n        begin\r\n          mnu := TTMSFNCToolBarOptionMenuItem.Create(FAutoOptionsMenu);\r\n          mnu.OnClick := OptionMenuItemClick;\r\n          {$IFDEF FMXLIB}\r\n          mnu.OnApplyStyleLookup := OptionMenuItemApplyStyleLookup;\r\n          mnu.Calculate := True;\r\n          mnu.ApplyStyleLookup;\r\n          {$ENDIF}\r\n\r\n          bmpw := 0;\r\n          bw := 0;\r\n          bh := 0;\r\n          {$IFDEF FMXLIB}\r\n          o := mnu.FindStyleResource('checkmark');\r\n          if Assigned(o) and (o is TControl) then\r\n            bmpw := (o as TControl).Width;\r\n          {$ENDIF}\r\n\r\n          maxh := 20;\r\n          if OptionsMenu.ShowItemBitmap then\r\n          begin\r\n            tb := GetHiddenControl(c);\r\n            if Assigned(tb) then\r\n            begin\r\n              bmp := tb.FBitmap;\r\n              mnu.Bitmap.Assign(bmp);\r\n              bw := bmp.Width;\r\n              bh := bmp.Height;\r\n            end\r\n            else\r\n            begin\r\n              FBlockUpdate := True;\r\n              bmp := c.MakeScreenshot;\r\n              FBlockUpdate := False;\r\n              mnu.Bitmap.Assign(bmp);\r\n              bw := bmp.Width;\r\n              bh := bmp.Height;\r\n              bmp.Free;\r\n            end;\r\n          end;\r\n\r\n          TTMSFNCGraphics.GetAspectSize(bw, bh, bw, bh, bw, maxh, True, False, False);\r\n          bmpw := bmpw + int(bw);\r\n\r\n          if OptionsMenu.ShowItemText then\r\n          begin\r\n            if c is TTMSFNCCustomToolBarButton then\r\n              mnu.Text := (c as TTMSFNCCustomToolBarButton).AutoOptionsMenuText;\r\n\r\n            if mnu.Text = '' then\r\n              mnu.Text := c.Name;\r\n          end;\r\n\r\n          mnu.Control := c;\r\n          mnu.IsChecked := Assigned(c.Parent);\r\n\r\n          DoCustomizeOptionsMenuItem(c, mnu);\r\n\r\n          {$IFDEF FMXLIB}\r\n          FAutoOptionsMenu.AddObject(mnu);\r\n          {$ENDIF}\r\n          {$IFDEF CMNLIB}\r\n          FAutoOptionsMenu.Items.Add(mnu);\r\n          {$ENDIF}\r\n          FTotalOptionsMenuWidth := Max(FTotalOptionsMenuWidth, bmpw);\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    {$IFDEF FMXLIB}\r\n    for I := 0 to FAutoOptionsMenu.ItemsCount - 1 do\r\n    {$ENDIF}\r\n    {$IFDEF CMNLIB}\r\n    for I := 0 to FAutoOptionsMenu.Items.Count - 1 do\r\n    {$ENDIF}\r\n    begin\r\n      if FAutoOptionsMenu.Items[I] is TTMSFNCToolBarOptionMenuItem then\r\n      begin\r\n        mnu := (FAutoOptionsMenu.Items[I] as TTMSFNCToolBarOptionMenuItem);\r\n        {$IFDEF FMXLIB}\r\n        mnu.NeedStyleLookup;\r\n        mnu.Calculate := False;\r\n        {$ENDIF}\r\n        if OptionsMenu.AutoItemBitmapWidth then\r\n          mnu.GlyphWidth := FTotalOptionsMenuWidth\r\n        else\r\n          mnu.GlyphWidth := OptionsMenu.ItemBitmapWidth;\r\n      end;\r\n    end;\r\n\r\n  finally\r\n    if Assigned(lst) then\r\n      lst.Free;\r\n  end;\r\n{$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.InsertToolBarControl(AControl: TControl;\r\n  AIndex: Integer);\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  if (AIndex >= 0) and (AIndex <= Self.ControlCount - 1) then\r\n    InsertObject(AIndex, AControl)\r\n  else\r\n    AddObject(AControl);\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  AControl.Parent := Self;\r\n  if AIndex > -1 then\r\n    SetChildOrder(AControl, AIndex);\r\n  {$ENDIF}\r\n\r\n  if Assigned(OnInternalInsertControl) then\r\n    OnInternalInsertControl(AControl);\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.IsCompactBitmapSizeStored: Boolean;\r\nbegin\r\n  Result := CompactBitmapSize <> 24;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.IsCompactWidthStored: Boolean;\r\nbegin\r\n  Result := CompactWidth <> 50;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBar.IsMinimumWidthStored: Boolean;\r\nbegin\r\n  Result := MinimumWidth <> 30;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.Loaded;\r\nbegin\r\n  inherited;\r\n  {$IFDEF FMXLIB}\r\n  if (csDesigning in ComponentState) or (FFirstLoad) then\r\n    UpdateControls;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.HandleCompact;\r\nvar\r\n  I: Integer;\r\n  cc: TTMSFNCToolBarControl;\r\nbegin\r\n  inherited;\r\n\r\n  DeactivateAllPopups;\r\n\r\n  if Assigned(FCompactToolbar) then\r\n  begin\r\n    FCompactToolbar.Free;\r\n    FCompactToolbar := nil;\r\n  end;\r\n\r\n  if Assigned(FCompactPopup) then\r\n  begin\r\n    FCompactPopup.Free;\r\n    FCompactPopup := nil;\r\n  end;\r\n\r\n  FCompactPopup := TTMSFNCToolBarPopup.Create(Self);\r\n  FCompactPopup.OnClosePopup := DoCloseCompactPopup;\r\n\r\n  FCompactToolbar := TTMSFNCToolBar.Create(FCompactPopup);\r\n\r\n  {$IFDEF VCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION >= 33}\r\n  FCompactToolbar.ScaleForPPI(CurrentPPI);\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n\r\n  FCompactToolbar.Assign(Self);\r\n  FCompactToolbar.Compact := False;\r\n  FCompactToolbar.AutoSize := True;\r\n  FCompactToolbar.AutoHeight := False;\r\n  FCompactToolbar.AutoWidth := True;\r\n  FCompactToolbar.AutoStretchHeight := False;\r\n  FCompactToolbar.Appearance.Separator := False;\r\n  FCompactToolbar.SetControlMargins(1, 1, 1, 1);\r\n  FCompactToolbar.Height := Height + 2;\r\n\r\n  DoCustomizeCompactToolBar(FCompactToolBar);\r\n\r\n  for I := FCompactControls.Count - 1 downto 0 do\r\n  begin\r\n    cc := TTMSFNCToolBarControl(FCompactControls[I]);\r\n    if Assigned(cc.FControl) then\r\n    begin\r\n      if cc.FControl is TTMSFNCDefaultToolBarButton then\r\n        (cc.FControl as TTMSFNCDefaultToolBarButton).Layout := (cc.FControl as TTMSFNCDefaultToolBarButton).CompactLayout;\r\n      cc.FControl.Visible := True;\r\n      cc.FControl.Parent := FCompactToolbar;\r\n    end;\r\n  end;\r\n\r\n  FCompactToolbar.UpdateControls;\r\n  FCompactPopup.PlacementControl := Self;\r\n  FCompactPopup.ContentControl := FCompactToolbar;\r\n  FCompactPopup.IsOpen := True;\r\n  DoCompactClick;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.HandleDblClick(X, Y: Single);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnInternalDblClick) then\r\n    OnInternalDblClick(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.HandleMouseDown(Button: TTMSFNCMouseButton;\r\n  Shift: TShiftState; X, Y: Single);\r\nbegin\r\n  inherited;\r\n  if Appearance.DragGrip and not FDragGripMoving then\r\n  begin\r\n    FDragGripDown := PtInRectEx(GetDragGripRect(True), PointF(X, Y));\r\n    FDragGripDownPt := PointF(X, Y);\r\n  end;\r\n\r\n  if not FDragGripDown then\r\n  begin\r\n    if Compact then\r\n    begin\r\n      FDown := True;\r\n      Invalidate;\r\n      CaptureEx;\r\n    end\r\n    else if QuickMenuButton then\r\n    begin\r\n      FQuickMenuButtonDown := PtInRectEx(GetQuickMenuButtonRect, PointF(X, Y));\r\n      if FQuickMenuButtonDown then\r\n      begin\r\n        Invalidate;\r\n        CaptureEx;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(OnInternalMouseDown) and not (Button = TTMSFNCMouseButton.mbRight) then\r\n    OnInternalMouseDown(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.HandleMouseMove(Shift: TShiftState; X, Y: Single);\r\nvar\r\n  r: TRectF;\r\n  absx, absy: Single;\r\n  pt: TPointF;\r\n  d: TTMSFNCCustomDockPanel;\r\n  a: string;\r\nbegin\r\n  inherited;\r\n\r\n  if Compact then\r\n  begin\r\n    FHoverP := FHover;\r\n    FHover := True;\r\n    if FHover <> FHoverP then\r\n      Invalidate;\r\n  end\r\n  else if QuickMenuButton then\r\n  begin\r\n    FQuickMenuButtonHoverP := FQuickMenuButtonHover;\r\n    FQuickMenuButtonHover := PtInRectEx(GetQuickMenuButtonRect, PointF(X, Y));\r\n    if FQuickMenuButtonHover <> FQuickMenuButtonHoverP then\r\n      Invalidate;\r\n  end;\r\n\r\n  if Appearance.DragGrip then\r\n  begin\r\n    if FDragGripDown then\r\n    begin\r\n      if not FDragGripMoving then\r\n      begin\r\n        CaptureEx;\r\n        FDragGripMoving := True;\r\n      end;\r\n\r\n      if FDragGripMoving then\r\n      begin\r\n        absx := (FDragGripDownPt.X - X);\r\n        absy := (FDragGripDownPt.Y - Y);\r\n        if AutoMoveToolBar then\r\n        begin\r\n          {$IFDEF FMXLIB}\r\n          pt := PointF(Position.Point.X - absx, Position.Point.Y - absy);\r\n          {$ENDIF}\r\n          {$IFDEF CMNWEBLIB}\r\n          pt := PointF(Left - absx, Top - absy);\r\n          {$ENDIF}\r\n\r\n          if Parent is TTMSFNCCustomDockPanel then\r\n          begin\r\n            d := Parent as TTMSFNCCustomDockPanel;\r\n            if d.AutoAlign then\r\n            begin\r\n              if pt.Y < d.Appearance.Margins.Top then\r\n                pt.Y := Round(d.Appearance.Margins.Top);\r\n              if pt.X < d.Appearance.Margins.Left then\r\n                pt.X := Round(d.Appearance.Margins.Left)\r\n              else if pt.X + Width > d.Width - d.Appearance.Margins.Right then\r\n                pt.X := Round(d.Width - d.Appearance.Margins.Right - Width);\r\n\r\n              SetBounds(Round(pt.X), Round(pt.Y), Width, Height);\r\n            end;\r\n          end;\r\n        end;\r\n        FDragGripDownPt := PointF(X + absx, Y + absy);\r\n        DoDragGripMoving(absx, absy);\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      r := GetDragGripRect(True);\r\n      if PtInRectEx(r, PointF(X, Y)) then\r\n      begin\r\n        if not FInsideDrag then\r\n        begin\r\n          FInsideDrag := True;\r\n          Cursor := crSize;\r\n        end;\r\n      end\r\n      else if FInsideDrag then\r\n      begin\r\n        FInsideDrag := False;\r\n        Cursor := crDefault;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  a := XYToAnchor(X, Y);\r\n\r\n  if a <> '' then\r\n    Cursor := crHandPoint\r\n  else if (Cursor = crHandPoint) then\r\n    Cursor := crDefault;\r\n\r\n  if Assigned(OnInternalMouseMove) then\r\n    OnInternalMouseMove(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.HandleMouseUp(Button: TTMSFNCMouseButton; Shift: TShiftState;\r\n  X, Y: Single);\r\nvar\r\n  a: string;\r\nbegin\r\n  inherited;\r\n  if FDragGripDown then\r\n    ReleaseCaptureEx\r\n  else if FDown and Compact then\r\n  begin\r\n    Invalidate;\r\n    ReleaseCaptureEx;\r\n    HandleCompact;\r\n  end\r\n  else if FQuickMenuButtonDown and QuickMenuButton and not Compact then\r\n  begin\r\n    Invalidate;\r\n    ReleaseCaptureEx;\r\n    HandleQuickMenuButton;\r\n  end;\r\n\r\n  FDragGripDown := False;\r\n  FDragGripMoving := False;\r\n  FDown := False;\r\n  FQuickMenuButtonDown := False;\r\n\r\n  a := XYToAnchor(X, Y);\r\n  if a <> '' then\r\n    DoAnchorClick(a);\r\n\r\n  if Assigned(OnInternalMouseUp) and not (Button = TTMSFNCMouseButton.mbRight) then\r\n    OnInternalMouseUp(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.Notification(AComponent: TComponent;\r\n  Operation: TOperation);\r\nbegin\r\n  inherited;\r\n  if (Operation = opRemove) and (AComponent = FBitmapContainer) then\r\n    FBitmapContainer := nil;\r\n\r\n  if (Operation = opRemove) and (AComponent = FCustomOptionsMenu) then\r\n    FCustomOptionsMenu := nil;\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomToolBar.OptionMenuItemApplyStyleLookup(Sender: TObject);\r\nvar\r\n  c: TControl;\r\nbegin\r\n  c := nil;\r\n  if (Sender is TTMSFNCToolBarOptionMenuItem) then\r\n    c := (Sender as TTMSFNCToolBarOptionMenuItem).FControl;\r\n\r\n  if Assigned(OnOptionsMenuItemApplyStyle) and (Sender is TMenuItem) then\r\n    OnOptionsMenuItemApplyStyle(Self, c, Sender as TMenuItem);\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomToolBar.OptionMenuItemClick(Sender: TObject);\r\nvar\r\n  a: Boolean;\r\n  c: TControl;\r\nbegin\r\n  a := True;\r\n  c := nil;\r\n  if (Sender is TTMSFNCToolBarOptionMenuItem) then\r\n    c := (Sender as TTMSFNCToolBarOptionMenuItem).FControl;\r\n\r\n  if Assigned(OnOptionsMenuItemClick) and (Sender is TMenuItem) then\r\n    OnOptionsMenuItemClick(Self, c, Sender as TMenuItem, a);\r\n\r\n  if a then\r\n    UpdateToolBarControl(c);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.OptionsButtonClick(Sender: TObject);\r\nvar\r\n  pt: TPointF;\r\nbegin\r\n  if Assigned(OnOptionsMenuButtonClick) then\r\n    OnOptionsMenuButtonClick(Self)\r\n  else\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    pt := FOptionsMenuButton.Position.Point;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    pt := PointF(FOptionsMenuButton.Left, FOptionsMenuButton.Top);\r\n    {$ENDIF}\r\n    pt := LocalToScreenEx(PointF(pt.X, pt.Y + FOptionsMenuButton.Height));\r\n    ShowOptionsMenu(pt.X, pt.Y);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.QuickMenuButtonAppearanceChanged(\r\n  Sender: TObject);\r\nbegin\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.QuickMenuButtonBitmapsChanged(\r\n  Sender: TObject);\r\nbegin\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.ResetToDefaultStyle;\r\nbegin\r\n  inherited;\r\n  Appearance.DragGripColor := gcLightgray;\r\n  Appearance.Fill.Color := gcWhite;\r\n  Appearance.Stroke.Color := gcGray;\r\n  Appearance.Fill.Kind := gfkGradient;\r\n  Appearance.Stroke.Kind := gskSolid;\r\n  Appearance.Fill.Color := gcWhite;\r\n  Appearance.Fill.ColorTo := MakeGraphicsColor(230, 230, 230);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nvar\r\n  qr, r: TRectF;\r\n  w: Single;  \r\nbegin\r\n  inherited;\r\n\r\n  r := LocalRect;\r\n\r\n  if Compact then\r\n  begin\r\n    if FDown then\r\n    begin\r\n      AGraphics.Fill.Assign(CompactAppearance.DownFill);\r\n      AGraphics.Stroke.Assign(CompactAppearance.DownStroke);\r\n    end\r\n    else if FHover then\r\n    begin\r\n      AGraphics.Fill.Assign(CompactAppearance.HoverFill);\r\n      AGraphics.Stroke.Assign(CompactAppearance.HoverStroke);\r\n    end\r\n    else\r\n    begin\r\n      AGraphics.Fill.Assign(CompactAppearance.NormalFill);\r\n      AGraphics.Stroke.Assign(CompactAppearance.NormalStroke);\r\n    end;\r\n\r\n    if CompactAppearance.FlatStyle then\r\n      AGraphics.Fill.Kind := gfkSolid;\r\n\r\n    AGraphics.DrawRectangle(RectF(r.Left, r.Top + 2, r.Right - 3, r.Bottom - 2));\r\n  end\r\n  else\r\n  begin\r\n    AGraphics.Fill.Assign(Appearance.Fill);\r\n    AGraphics.Stroke.Assign(Appearance.Stroke);\r\n\r\n    if Appearance.FlatStyle then\r\n      AGraphics.Fill.Kind := gfkSolid;\r\n\r\n    AGraphics.DrawRectangle(r);\r\n  end;\r\n\r\n  if Compact then\r\n  begin\r\n    DrawCompactBitmap(AGraphics, ARect);\r\n    DrawCompactText(AGraphics);\r\n    DrawCompactExpander(AGraphics);\r\n  end\r\n  else\r\n  begin\r\n    if Appearance.DragGrip then\r\n      DrawDragGrip(AGraphics);\r\n\r\n    DrawText(AGraphics);\r\n\r\n    if QuickMenuButton then\r\n    begin\r\n      if FQuickMenuButtonDown then\r\n      begin\r\n        AGraphics.Fill.Assign(QuickMenuButtonAppearance.DownFill);\r\n        AGraphics.Stroke.Assign(QuickMenuButtonAppearance.DownStroke);\r\n      end\r\n      else if FQuickMenuButtonHover then\r\n      begin\r\n        AGraphics.Fill.Assign(QuickMenuButtonAppearance.HoverFill);\r\n        AGraphics.Stroke.Assign(QuickMenuButtonAppearance.HoverStroke);\r\n      end\r\n      else\r\n      begin\r\n        AGraphics.Fill.Assign(QuickMenuButtonAppearance.NormalFill);\r\n        AGraphics.Stroke.Assign(QuickMenuButtonAppearance.NormalStroke);\r\n      end;\r\n\r\n      if QuickMenuButtonAppearance.FlatStyle then\r\n        AGraphics.Fill.Kind := gfkSolid;\r\n      \r\n      qr := GetQuickMenuButtonRect;\r\n      AGraphics.DrawRectangle(qr);\r\n\r\n      InflateRectEx(qr, -2, -2);\r\n      AGraphics.DrawScaledBitmap(qr, QuickMenuButtonBitmaps);      \r\n    end;\r\n  end;\r\n\r\n  if Appearance.Separator then\r\n  begin\r\n    AGraphics.Stroke.Assign(Appearance.SeparatorStroke);\r\n    w := Appearance.SeparatorStroke.Width;\r\n    AGraphics.DrawLine(PointF(r.Right - w, r.Top + 4), PointF(r.Right - w, r.Bottom - 4));\r\n  end;\r\n\r\n  if IsDesignTime and CanDrawDesignTime then\r\n    AGraphics.DrawFocusRectangle(ARect, gcBlack);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.DrawCompactBitmap(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF);\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  r := GetCompactBitmapRect(ARect);\r\n  AGraphics.BitmapContainer := BitmapContainer;\r\n  AGraphics.DrawScaledBitmap(r, CompactBitmaps)\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.DrawCompactExpander(AGraphics: TTMSFNCGraphics);\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  r := LocalRect;\r\n  r := RectF(r.Left, r.Bottom - 20, r.Right, r.Bottom);\r\n  InflateRectEx(r, -2, -2);\r\n  AGraphics.DrawScaledBitmap(r, CompactExpanderBitmaps);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.DrawCompactText(AGraphics: TTMSFNCGraphics);\r\nvar\r\n  tr: TRectF;\r\n  st: TTMSFNCGraphicsSaveState;\r\nbegin\r\n  if not TextVisible or (Text = '') then\r\n    Exit;\r\n\r\n  tr := GetCompactTextRect;\r\n  st := AGraphics.SaveState;\r\n  try\r\n    AGraphics.ClipRect(tr);\r\n    AGraphics.Font.Assign(Font);\r\n    AGraphics.DrawText(tr, Text, WordWrapping, HorizontalTextAlign, VerticalTextAlign, Trimming);\r\n  finally\r\n    AGraphics.RestoreState(st);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.UncompactControls;\r\nvar\r\n  I: Integer;\r\n  cc: TTMSFNCToolBarControl;\r\n  c: TControl;\r\nbegin\r\n  FBlockUpdate := True;\r\n  for I := FCompactControls.Count - 1 downto 0 do\r\n  begin\r\n    cc := TTMSFNCToolBarControl(FCompactControls[I]);\r\n    c := cc.FControl;\r\n    if Assigned(c) then\r\n    begin\r\n      if c is TTMSFNCCustomToolBarElement then\r\n        (c as TTMSFNCCustomToolBarElement).FBlockUpdate := True;\r\n      c.Parent := Self;\r\n      c.Visible := True;\r\n      if c is TTMSFNCCustomToolBarElement then\r\n        (c as TTMSFNCCustomToolBarElement).FBlockUpdate := False;\r\n      {$IFDEF VCLLIB}\r\n      {$HINTS OFF}\r\n      {$IF COMPILERVERSION >= 33}\r\n      c.ScaleForPPI(CurrentPPI);\r\n      {$IFEND}\r\n      {$HINTS ON}\r\n      {$ENDIF}\r\n    end;\r\n  end;\r\n\r\n  FBlockUpdate := False;\r\n  UpdateControls;\r\n\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.UpdateControlAfterResize;\r\nbegin\r\n  inherited;\r\n  UpdateDockPanel;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetAdaptToStyle(const Value: Boolean);\r\nbegin\r\n  inherited;\r\n  UpdateControls;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetAppearance(\r\n  const Value: TTMSFNCToolBarAppearance);\r\nbegin\r\n  FAppearance.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetOptionsMenu(\r\n  const Value: TTMSFNCToolBarOptionsMenu);\r\nbegin\r\n  FOptionsMenu.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetQuickMenuButton(const Value: Boolean);\r\nbegin\r\n  if FQuickMenuButton <> Value then\r\n  begin\r\n    FQuickMenuButton := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetQuickMenuButtonAppearance(\r\n  const Value: TTMSFNCToolBarQuickMenuButtonAppearance);\r\nbegin\r\n  FQuickMenuButtonAppearance.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetQuickMenuButtonBitmaps(\r\n  const Value: TTMSFNCScaledBitmaps);\r\nbegin\r\n  FQuickMenuButtonBitmaps.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetState(const Value: TTMSFNCToolBarElementState);\r\nvar\r\n  I: Integer;\r\n  c: TControl;\r\nbegin\r\n  if FState <> Value then\r\n  begin\r\n    FState := Value;\r\n    for I := 0 to Self.ControlCount - 1 do\r\n    begin\r\n      c := Self.Controls[I];\r\n      if c is TTMSFNCCustomToolBarElement then\r\n        (c as TTMSFNCCustomToolBarElement).State := FState;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetText(const Value: string);\r\nbegin\r\n  if FText <> Value then\r\n  begin\r\n    FText := Value;\r\n    UpdateControls;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetTextVisible(const Value: Boolean);\r\nbegin\r\n  if FTextVisible <> Value then\r\n  begin\r\n    FTextVisible := Value;\r\n    UpdateControls;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetTrimming(\r\n  const Value: TTMSFNCGraphicsTextTrimming);\r\nbegin\r\n  if FTrimming <> Value then\r\n  begin\r\n    FTrimming := Value;\r\n    UpdateControls;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetVerticalTextAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FVerticalTextAlign <> Value then\r\n  begin\r\n    FVerticalTextAlign := Value;\r\n    UpdateControls;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetWordWrapping(const Value: Boolean);\r\nbegin\r\n  if FWordWrapping <> Value then\r\n  begin\r\n    FWordWrapping := Value;\r\n    UpdateControls;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetAutoAlign(const Value: Boolean);\r\nbegin\r\n  if FAutoAlign <> Value then\r\n  begin\r\n    FAutoAlign := Value;\r\n    UpdateControls;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetAutoHeight(const Value: Boolean);\r\nbegin\r\n  if FAutoHeight <> Value then\r\n  begin\r\n    FAutoHeight := Value;\r\n    UpdateControls;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetAutoStretchHeight(const Value: Boolean);\r\nbegin\r\n  if FAutoStretchHeight <> Value then\r\n  begin\r\n    FAutoStretchHeight := Value;\r\n    UpdateControls;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetAutoWidth(const Value: Boolean);\r\nbegin\r\n  if FAutoWidth <> Value then\r\n  begin\r\n    FAutoWidth := Value;\r\n    UpdateControls;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetBitmapContainer(\r\n  const Value: TTMSFNCBitmapContainer);\r\nvar\r\n  I: Integer;\r\n  {$IFDEF FNCLIB}\r\n  c: TControl;\r\n  b: ITMSFNCBitmapContainer;\r\n  {$ENDIF}\r\nbegin\r\n  FBitmapContainer := Value;\r\n  for I := 0 to Self.ControlCount - 1 do\r\n  begin\r\n    {$IFDEF FNCLIB}\r\n    {$IFNDEF WEBLIB}\r\n    c := Self.Controls[I];\r\n    {$IFDEF FMXLIB}\r\n    if Supports(c, IDesignerControl) then\r\n      Continue;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n\r\n    {$IFDEF FNCLIB}\r\n    if Supports(c, ITMSFNCBitmapContainer, b) then\r\n      b.BitmapContainer := Value;\r\n    {$ENDIF}\r\n  end;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetCanCompact(const Value: Boolean);\r\nbegin\r\n  if FCanCompact <> Value then\r\n    FCanCompact := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetCompact(const Value: Boolean);\r\nbegin\r\n  if FCompact <> Value then\r\n  begin\r\n    if CanCompact then\r\n    begin\r\n      FCompact := Value;\r\n      if Compact then\r\n      begin\r\n        FOldMenuButtonState := OptionsMenu.ShowButton;\r\n        OptionsMenu.ShowButton := False;\r\n        FOldWidth := Width;\r\n        CompactControls;\r\n        Width := Round(CompactWidth);\r\n      end\r\n      else\r\n      begin\r\n        Width := Round(FOldWidth);\r\n        UncompactControls;\r\n        OptionsMenu.ShowButton := FOldMenuButtonState;\r\n      end;\r\n\r\n      UpdateControls;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetCompactAppearance(\r\n  const Value: TTMSFNCToolBarCompactAppearance);\r\nbegin\r\n  FCompactAppearance.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetCompactAutoBitmapSize(const Value: Boolean);\r\nbegin\r\n  if FCompactAutoBitmapSize <> Value then\r\n  begin\r\n    FCompactAutoBitmapSize := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetCompactBitmaps(\r\n  const Value: TTMSFNCScaledBitmaps);\r\nbegin\r\n  FCompactBitmaps.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetCompactBitmapSize(const Value: Single);\r\nbegin\r\n  if FCompactBitmapSize <> Value then\r\n  begin\r\n    FCompactBitmapSize := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetCompactBitmapVisible(const Value: Boolean);\r\nbegin\r\n  if FCompactBitmapVisible <> Value then\r\n  begin\r\n    FCompactBitmapVisible := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetCompactExpanderBitmaps(\r\n  const Value: TTMSFNCScaledBitmaps);\r\nbegin\r\n  FCompactExpanderBitmaps.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetCompactWidth(const Value: Single);\r\nbegin\r\n  if FCompactWidth <> Value then\r\n  begin\r\n    FCompactWidth := Value;\r\n    if Compact then\r\n      Width := Round(CompactWidth);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetDisabledFontColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FDisabledFontColor <> Value then\r\n  begin\r\n    FDisabledFontColor := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FFont.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetHorizontalTextAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FHorizontalTextAlign <> Value then\r\n  begin\r\n    FHorizontalTextAlign := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetMinimumWidth(const Value: Single);\r\nbegin\r\n  if FMinimumWidth <> Value then\r\n  begin\r\n    FMinimumWidth := Value;\r\n    UpdateControls;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.SetAS(const Value: Boolean);\r\nbegin\r\n  if FAutoSize <> Value then\r\n  begin\r\n    FAutoSize := Value;\r\n    UpdateControls;\r\n  end;\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomToolBar.SetVisible(const Value: Boolean);\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCCustomToolBar.VisibleChanging;\r\n{$ENDIF}\r\nbegin\r\n  inherited;\r\n  UpdateDockPanel;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.ShowOptionsMenu(X, Y: Single);\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  if not Assigned(CustomOptionsMenu) then\r\n  begin\r\n    InitializeOptionsMenu;\r\n    DoCustomizeOptionsMenu;\r\n    if FAutoOptionsMenu.ItemsCount > 0 then\r\n      FAutoOptionsMenu.Popup(X, Y);\r\n  end\r\n  else\r\n    CustomOptionsMenu.Popup(X, Y);\r\n {$ENDIF}\r\n {$IFDEF CMNLIB}\r\n  if not Assigned(CustomOptionsMenu) then\r\n  begin\r\n    InitializeOptionsMenu;\r\n    DoCustomizeOptionsMenu;\r\n    if FAutoOptionsMenu.Items.Count > 0 then\r\n      FAutoOptionsMenu.Popup(Round(X), Round(Y));\r\n  end\r\n  else\r\n    CustomOptionsMenu.Popup(Round(X), Round(Y));\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.UpdateControls;\r\nvar\r\n  I: Integer;\r\n  c: TControl;\r\n  idx: Integer;\r\n  fu: Boolean;\r\n  hc: TTMSFNCToolBarControl;\r\n  {$IFDEF FMXLIB}\r\n  maxx, x, w, y, h, hs, hsm, vs, xs, ys, txth, txtw: Single;\r\n  mgr: TBounds;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  maxx, x, w, y, h, hs, hsm, vs, xs, ys, txth, txtw: Integer;\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  mgr: TControlBorderSpacing;\r\n  {$ENDIF}\r\n  {$IFDEF VCLWEBLIB}\r\n  mgr: TMargins;\r\n  {$ENDIF}\r\n  l: Boolean;\r\n  {$IFDEF FNCLIB}\r\n  ia: ITMSFNCAdaptToStyle;\r\n  {$ENDIF}\r\n  sz: TSizeF;\r\n  cn: TControl;\r\n  lm, tm, rm, bm: Single;\r\n\r\n  function GetControl(AIndex: Integer): TControl;\r\n  begin\r\n    Result := nil;\r\n\r\n    if (AIndex >= 0) and (AIndex <= Self.ControlCount - 1) then\r\n    begin\r\n      if Self.Controls[AIndex].Visible then\r\n      begin\r\n        Result := Self.Controls[AIndex];\r\n        Exit;\r\n      end;\r\n    end;\r\n\r\n    while (AIndex >= 0) and (AIndex <= Self.ControlCount - 1) do\r\n    begin\r\n      Inc(AIndex);\r\n      if (AIndex >= 0) and (AIndex <= Self.ControlCount - 1) then\r\n      begin\r\n        if Self.Controls[AIndex].Visible then\r\n        begin\r\n          Result := Self.Controls[AIndex];\r\n          Exit;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  function IsLoadingEx: Boolean;\r\n  var\r\n    ii: Integer;\r\n    ctl: TControl;\r\n  begin\r\n    Result := CheckIsLoading;\r\n    if not Result then\r\n    begin\r\n      for ii := ControlCount - 1 downto 0 do\r\n      begin\r\n        ctl := Controls[ii];\r\n        if (csLoading in ctl.ComponentState) then\r\n        begin\r\n          Result := True;\r\n          Exit;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\n\r\nbegin\r\n  if FBlockUpdate or FBlockResize or IsLoadingEx or IsDestroying or not CanBuildControls then\r\n    Exit;\r\n\r\n  FFirstLoad := False;\r\n\r\n  FBlockUpdate := True;\r\n  {$IFDEF FMXLIB}\r\n  BeginUpdate;\r\n  hs := Appearance.HorizontalSpacing;\r\n  vs := Appearance.VerticalSpacing;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  hs := Round(Appearance.HorizontalSpacing);\r\n  vs := Round(Appearance.VerticalSpacing);\r\n  {$ENDIF}\r\n\r\n  x := hs;\r\n  if Appearance.DragGrip then\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    x := x + GetDragGripRect.Right;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    x := x + Round(GetDragGripRect.Right);\r\n    {$ENDIF}\r\n    if hs = 0 then\r\n      x := x + ScalePaintValue(3);\r\n  end;\r\n\r\n  y := vs;\r\n\r\n  xs := x;\r\n  ys := y;\r\n\r\n  hsm := ScalePaintValue(30);\r\n  txth := 0;\r\n  txtw := 0;\r\n  sz := GetTextSize;\r\n  if sz.cy > 0 then\r\n    txth := Round(sz.cy + ScalePaintValue(4));\r\n\r\n  if sz.cx > 0 then\r\n    txtw := Round(sz.cx + ScalePaintValue(8));\r\n\r\n  w := txtw;\r\n  maxx := 0;\r\n  h := 0;\r\n  idx := 0;\r\n\r\n  fu := False;\r\n  for I := 0 to Self.ControlCount - 1 do\r\n  begin\r\n    c := Self.Controls[I];\r\n    {$IFDEF FMXLIB}\r\n    if Supports(c, IDesignerControl) then\r\n      Continue;\r\n    {$ENDIF}\r\n\r\n    hc := GetHiddenControl(c);\r\n    fu := not Assigned(hc);\r\n    if fu then\r\n      Break;\r\n  end;\r\n\r\n  l := False;\r\n  for I := 0 to Self.ControlCount - 1 do\r\n  begin\r\n    c := Self.Controls[I];\r\n    {$IFDEF FMXLIB}\r\n    if Supports(c, IDesignerControl) then\r\n      Continue;\r\n    {$ENDIF}\r\n\r\n    {$IFDEF FNCLIB}\r\n    if Supports(c, ITMSFNCAdaptToStyle, ia) then\r\n      ia.AdaptToStyle := AdaptToStyle;\r\n    {$ENDIF}\r\n\r\n    if l then\r\n    begin\r\n      x := xs;\r\n      y := h;\r\n      ys := y;\r\n    end;\r\n\r\n    l := False;\r\n    if c is TTMSFNCCustomToolBarElement then\r\n    begin\r\n      l := (c as TTMSFNCCustomToolBarElement).LastElement;\r\n      (c as TTMSFNCCustomToolBarElement).OnUpdateToolBar := UpdateToolBar;\r\n      (c as TTMSFNCCustomToolBarElement).OnUpdateToolBarControl := UpdateToolBarControl;\r\n    end;\r\n\r\n    DoIsLastElement(c, l);\r\n\r\n    if not (c = FOptionsMenuButton) then\r\n    begin\r\n      if fu then\r\n      begin\r\n        if c is TTMSFNCCustomToolBarElement then\r\n          (c as TTMSFNCCustomToolBarElement).ControlIndex := idx\r\n        else\r\n          c.Tag := idx;\r\n      end;\r\n\r\n      if c.Visible then\r\n      begin\r\n        {$IFDEF FMXLIB}\r\n        if AutoAlign then\r\n        begin\r\n          c.Position.X := x + c.Margins.Left;\r\n          c.Position.Y := y + c.Margins.Top;\r\n        end;\r\n\r\n        if AutoStretchHeight or ((c is TTMSFNCDefaultToolBarButton) and ((c as TTMSFNCDefaultToolBarButton).Layout = bblLarge)) then\r\n        begin\r\n          h := Height - c.Margins.Bottom - txth - y;\r\n          c.Height := h;\r\n        end\r\n        else\r\n          h := Max(h, c.Position.y + c.Height + vs + c.Margins.Bottom);\r\n\r\n        cn := GetControl(I + 1);\r\n        if Assigned(cn) and (cn is TTMSFNCDefaultToolBarButton) then\r\n        begin\r\n          case (cn as TTMSFNCDefaultToolBarButton).Layout of\r\n            bblBitmap, bblLabel:\r\n            begin\r\n              y := Max(y, c.Position.Y + c.Height + vs + c.Margins.Bottom);\r\n              if y + cn.Margins.Top + cn.Height > Height - cn.Margins.Bottom - txth then\r\n              begin\r\n                x := Max(x, Max(maxx, c.Position.x + c.Width + hs + c.Margins.Right));\r\n                y := ys;\r\n              end\r\n              else\r\n              begin\r\n                c.Position.X := x + c.Margins.Left;\r\n                maxx := Max(x, Max(maxx, c.Position.x + c.Width + hs + c.Margins.Right));\r\n              end;\r\n            end;\r\n            bblNone, bblLarge:\r\n            begin\r\n              y := ys;\r\n              x := Max(x, c.Position.x + c.Width + hs + c.Margins.Right);\r\n            end;\r\n          end;\r\n        end\r\n        else\r\n        begin\r\n          y := ys;\r\n          x := Max(x, Max(maxx, c.Position.x + c.Width + hs + c.Margins.Right));\r\n        end;\r\n\r\n        {$ENDIF}\r\n        {$IFDEF VCLWEBLIB}\r\n        if c.AlignWithMargins then\r\n        begin\r\n          if AutoAlign then\r\n          begin\r\n            c.Left := x + c.Margins.Left;\r\n            c.Top := y + c.Margins.Top;\r\n          end;\r\n\r\n          if AutoStretchHeight or ((c is TTMSFNCDefaultToolBarButton) and ((c as TTMSFNCDefaultToolBarButton).Layout = bblLarge)) then\r\n          begin\r\n            h := Height - c.Margins.Bottom - txth - y;\r\n            c.Height := h;\r\n          end\r\n          else\r\n            h := Max(h, c.Top + c.Height + vs + c.Margins.Bottom);\r\n\r\n          cn := GetControl(I + 1);\r\n          if Assigned(cn) and (cn is TTMSFNCDefaultToolBarButton) then\r\n          begin\r\n            case (cn as TTMSFNCDefaultToolBarButton).Layout of\r\n              bblBitmap, bblLabel:\r\n              begin\r\n                y := Max(y, c.Top + c.Height + vs + c.Margins.Bottom);\r\n                if y + cn.Margins.Top + cn.Height > Height - cn.Margins.Bottom - txth then\r\n                begin\r\n                  x := Max(x, Max(maxx, c.Left + c.Width + hs + c.Margins.Right));\r\n                  y := ys;\r\n                end\r\n                else\r\n                begin\r\n                  c.Left := x + c.Margins.Left;\r\n                  maxx := Max(x, Max(maxx, c.Left + c.Width + hs + c.Margins.Right));\r\n                end;\r\n              end;\r\n              bblNone, bblLarge:\r\n              begin\r\n                x := Max(x, c.Left + c.Width + hs + c.Margins.Right);\r\n                y := ys;\r\n              end;\r\n            end;\r\n          end\r\n          else\r\n          begin\r\n            x := Max(x, Max(maxx, c.Left + c.Width + hs + c.Margins.Right));\r\n            y := ys;\r\n          end;\r\n        end\r\n        else\r\n        begin\r\n          if AutoAlign then\r\n          begin\r\n            c.Left := x;\r\n            c.Top := y;\r\n          end;\r\n\r\n          if AutoStretchHeight or ((c is TTMSFNCDefaultToolBarButton) and ((c as TTMSFNCDefaultToolBarButton).Layout = bblLarge)) then\r\n          begin\r\n            h := Height - txth - y;\r\n            c.Height := h\r\n          end\r\n          else\r\n            h := Max(h, c.Top + c.Height + vs);\r\n\r\n          cn := GetControl(I + 1);\r\n          if Assigned(cn) and (cn is TTMSFNCDefaultToolBarButton) then\r\n          begin\r\n            case (cn as TTMSFNCDefaultToolBarButton).Layout of\r\n              bblBitmap, bblLabel:\r\n              begin\r\n                y := Max(y, c.Top + c.Height + vs);\r\n                if y + cn.Height > Height - txth then\r\n                begin\r\n                  x := Max(x, Max(maxx, c.Left + c.Width + hs));\r\n                  y := ys;\r\n                end\r\n                else\r\n                begin\r\n                  c.Left := x;\r\n                  maxx := Max(x, Max(maxx, c.Left + c.Width + hs));\r\n                end;\r\n              end;\r\n              bblNone, bblLarge:\r\n              begin\r\n                x := Max(x, c.Left + c.Width + hs);\r\n                y := ys;\r\n              end;\r\n            end;\r\n          end\r\n          else\r\n          begin\r\n            x := Max(x, Max(maxx, c.Left + c.Width + hs));\r\n            y := ys;\r\n          end;\r\n        end;\r\n        {$ENDIF}\r\n        {$IFDEF LCLLIB}\r\n        if AutoAlign then\r\n        begin\r\n          c.Left := x + c.BorderSpacing.Left;\r\n          c.Top := y + c.BorderSpacing.Top;\r\n        end;\r\n\r\n        if AutoStretchHeight or ((c is TTMSFNCDefaultToolBarButton) and ((c as TTMSFNCDefaultToolBarButton).Layout = bblLarge)) then\r\n        begin\r\n          h := Height - c.BorderSpacing.Bottom - txth - y;\r\n          c.Height := h;\r\n        end\r\n        else\r\n          h := Max(h, c.Top + c.Height + vs + c.BorderSpacing.Bottom);\r\n\r\n        cn := GetControl(I + 1);\r\n        if Assigned(cn) and (cn is TTMSFNCDefaultToolBarButton) then\r\n        begin\r\n          case (cn as TTMSFNCDefaultToolBarButton).Layout of\r\n            bblBitmap, bblLabel:\r\n            begin\r\n              y := Max(y, c.Top + c.Height + vs + c.BorderSpacing.Bottom);\r\n              if y + cn.BorderSpacing.Top + cn.Height > Height - cn.BorderSpacing.Bottom - txth then\r\n              begin\r\n                x := Max(x, Max(maxx, c.Left + c.Width + hs + c.BorderSpacing.Right));\r\n                y := ys;\r\n              end\r\n              else\r\n              begin\r\n                c.Left := x + c.BorderSpacing.Left;\r\n                maxx := Max(x, Max(maxx, c.Left + c.Width + hs + c.BorderSpacing.Right));\r\n              end;\r\n            end;\r\n            bblNone, bblLarge:\r\n            begin\r\n              x := Max(x, c.Left + c.Width + hs + c.BorderSpacing.Right);\r\n              y := ys;\r\n            end;\r\n          end;\r\n        end\r\n        else\r\n        begin\r\n          x := Max(x, Max(maxx, c.Left + c.Width + hs + c.BorderSpacing.Right));\r\n          y := ys;\r\n        end;\r\n\r\n        {$ENDIF}\r\n        w := Max(w, x);\r\n      end;\r\n      inc(idx);\r\n    end;\r\n  end;\r\n\r\n  if h = 0 then\r\n    h := hsm;\r\n\r\n  FOptionsMenuButton.Visible := OptionsMenu.ShowButton;\r\n  if OptionsMenu.ShowButton then\r\n    FOptionsMenuButton.Parent := Self\r\n  else\r\n    FOptionsMenuButton.Parent := nil;\r\n\r\n  {$IFDEF FMXLIB}\r\n  if FOptionsMenuButton.Visible then\r\n  begin\r\n    FOptionsMenuButton.Index := Self.ControlCount;\r\n    FOptionsMenuButton.ControlIndex := Self.ControlCount - 1;\r\n    FOptionsMenuButton.Position.Y := FOptionsMenuButton.Margins.Top;\r\n    mgr := FOptionsMenuButton.Margins;\r\n\r\n    if AutoSize then\r\n    begin\r\n      FOptionsMenuButton.Position.X := w + mgr.Left;\r\n      if AutoHeight then\r\n        FOptionsMenuButton.Height := h - mgr.Bottom - mgr.Top - txth\r\n      else if AutoStretchHeight then\r\n        FOptionsMenuButton.Height := Height - mgr.Bottom - mgr.Top - txth;\r\n    end\r\n    else\r\n    begin\r\n      FOptionsMenuButton.Position.X := Width - FOptionsMenuButton.Width - mgr.Right;\r\n      FOptionsMenuButton.Height := Height - mgr.Bottom - mgr.Top - txth;\r\n    end;\r\n    w := w + FOptionsMenuButton.Width + mgr.Right + mgr.Left;\r\n  end;\r\n\r\n  if AutoSize then\r\n  begin\r\n    if Appearance.Separator then\r\n      w := w + Appearance.SeparatorStroke.Width;\r\n\r\n    w := Round(Max(MinimumWidth, w));\r\n\r\n    if ControlAlignment = caNone then\r\n    begin\r\n      lm := 0;\r\n      rm := 0;\r\n      tm := 0;\r\n      bm := 0;\r\n      GetControlMargins(lm, tm, rm, bm);\r\n      w := w + lm + rm;\r\n    end;\r\n\r\n    h := h + txth;\r\n\r\n    if AutoHeight and AutoWidth and (ControlAlignment = caNone) then\r\n      SetBounds(Position.X, Position.Y, w, h)\r\n    else if AutoHeight and not (ControlAlignment in [caLeft, caRight, caClient]) then\r\n      SetBounds(Position.X, Position.Y, Width, h)\r\n    else if AutoWidth and not (ControlAlignment in [caTop, caBottom, caClient]) then\r\n      SetBounds(Position.X, Position.Y, w, Height);\r\n  end;\r\n\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  if FOptionsMenuButton.Visible then\r\n  begin\r\n    FOptionsMenuButton.ControlIndex := Self.ControlCount - 1;\r\n    {$IFDEF LCLLIB}\r\n    FOptionsMenuButton.Top := FOptionsMenuButton.BorderSpacing.Top;\r\n    mgr := FOptionsMenuButton.BorderSpacing;\r\n    {$ENDIF}\r\n    {$IFDEF VCLWEBLIB}\r\n    FOptionsMenuButton.Top := FOptionsMenuButton.Margins.Top;\r\n    mgr := FOptionsMenuButton.Margins;\r\n    if not FOptionsMenuButton.AlignWithMargins then\r\n    begin\r\n      mgr.Left := 0;\r\n      mgr.Top := 0;\r\n      mgr.Right := 0;\r\n      mgr.Bottom := 0;\r\n    end;\r\n    {$ENDIF}\r\n\r\n    if AutoSize then\r\n    begin\r\n      FOptionsMenuButton.Left := w + mgr.Left;\r\n      if AutoHeight then\r\n        FOptionsMenuButton.Height := h - mgr.Bottom - mgr.Top\r\n      else if AutoStretchHeight then\r\n        FOptionsMenuButton.Height := Height - mgr.Bottom - txth - mgr.Top;\r\n    end\r\n    else\r\n    begin\r\n      FOptionsMenuButton.Left := Width - FOptionsMenuButton.Width - mgr.Right;\r\n      FOptionsMenuButton.Height := Height - mgr.Bottom - mgr.Top - txth;\r\n    end;\r\n    w := w + FOptionsMenuButton.Width + mgr.Right + mgr.Left;\r\n  end;\r\n\r\n  if AutoSize then\r\n  begin\r\n    if Appearance.Separator then\r\n      w := w + Round(Appearance.SeparatorStroke.Width);\r\n\r\n    w := Round(Max(MinimumWidth, w));\r\n\r\n    if ControlAlignment = caNone then\r\n    begin\r\n      lm := 0;\r\n      rm := 0;\r\n      tm := 0;\r\n      bm := 0;\r\n      GetControlMargins(lm, tm, rm, bm);\r\n      w := w + Round(lm + rm);\r\n    end;\r\n\r\n    h := h + txth;\r\n\r\n    if AutoHeight and AutoWidth and (ControlAlignment = caNone) then\r\n      SetBounds(Left, Top, w, h)\r\n    else if AutoHeight and not (ControlAlignment in [caLeft, caRight, caClient]) then\r\n      SetBounds(Left, Top, Width, h)\r\n    else if AutoWidth and not (ControlAlignment in [caTop, caBottom, caClient]) then\r\n      SetBounds(Left, Top, w, Height);\r\n  end;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF FMXLIB}\r\n  EndUpdate;\r\n  {$ENDIF}\r\n\r\n  if Assigned(OnUpdateControls) then\r\n    OnUpdateControls(Self);\r\n\r\n  FBlockUpdate := False;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBar.UpdateDockPanel;\r\nbegin\r\n  if Assigned(OnUpdateDockPanel) then\r\n    OnUpdateDockPanel(Self);\r\nend;\r\n\r\n{ TTMSFNCDefaultToolBarButton }\r\n\r\n{$IFNDEF WEBLIB}\r\n{$IFDEF FNCLIB}\r\n{$IFNDEF LCLLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION >= 30}\r\nprocedure TTMSFNCDefaultToolBarButton.ActionChange(Sender: {$IFNDEF FMXLIB}TObject{$ELSE}TBasicAction{$ENDIF};\r\n  CheckDefaults: Boolean);\r\nvar\r\n  l: TCustomImageList;\r\n  idx: Integer;\r\n  b: TTMSFNCBitmap;\r\nbegin\r\n  inherited ActionChange(Sender, CheckDefaults);\r\n  if Sender is TCustomAction then\r\n  begin\r\n    if (not CheckDefaults) or (Text = '') or (Text = Name) then\r\n     Text := TCustomAction(Sender).Text;\r\n  end;\r\n\r\n  if (Sender is TCustomAction) and not CheckDefaults then\r\n  begin\r\n    if (TCustomAction(Sender).ActionList <> nil) and (TCustomAction(Sender).ActionList.Images is TCustomImageList) then\r\n    begin\r\n      l := TCustomImageList(TCustomAction(Sender).ActionList.Images);\r\n      idx := TCustomAction(Sender).ImageIndex;\r\n      b := TTMSFNCBitmap.Create;\r\n      try\r\n        TTMSFNCUtils.LoadBitmapFromImageList(b, l, idx);\r\n        if not IsBitmapEmpty(b) then\r\n        begin\r\n          Bitmaps.Clear;\r\n          Bitmaps.Add.Bitmap.Assign(b);\r\n        end;\r\n      finally\r\n        b.free;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.AppearanceChanged;\r\nbegin\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.ApplyStyle;\r\nvar\r\n  c: TTMSFNCGraphicsColor;\r\nbegin\r\n  inherited;\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleBackgroundFillColor(c) then\r\n  begin\r\n    Appearance.NormalFill.Color := c;\r\n    Appearance.NormalFill.Kind := gfkSolid;\r\n    Appearance.DisabledFill.Color := Blend(c, gcDarkgray, 20);\r\n    Appearance.DisabledFill.Kind := gfkSolid;\r\n    Appearance.InnerStroke.Color := Blend(Appearance.NormalFill.Color, Appearance.NormalStroke.Color, 75);\r\n    Appearance.InnerStroke.Kind := gskSolid;\r\n  end;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleTextFontColor(c) then\r\n    Font.Color := c;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleBackgroundStrokeColor(c) then\r\n  begin\r\n    Appearance.NormalStroke.Color := c;\r\n    Appearance.DownStroke.Color := c;\r\n    Appearance.DisabledStroke.Color := c;\r\n    Appearance.NormalStroke.Color := c;\r\n    Appearance.DownStroke.Color := c;\r\n    Appearance.DisabledStroke.Color := c;\r\n    Appearance.HoverStroke.Color := c;\r\n  end;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleSelectionFillColor(c) then\r\n  begin\r\n    Appearance.HoverFill.Color := c;\r\n    Appearance.HoverFill.Kind := gfkSolid;\r\n    Appearance.DownFill.Color := Blend(c, Fill.Color, 20);\r\n    Appearance.DownFill.Kind := gfkSolid;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if Source is TTMSFNCDefaultToolBarButton then\r\n  begin\r\n    FLayout := (Source as TTMSFNCDefaultToolBarButton).Layout;\r\n    FCompactLayout := (Source as TTMSFNCDefaultToolBarButton).CompactLayout;\r\n    FMinimumLayout := (Source as TTMSFNCDefaultToolBarButton).MinimumLayout;\r\n    FMaximumLayout := (Source as TTMSFNCDefaultToolBarButton).MaximumLayout;\r\n    FBitmapPosition := (Source as TTMSFNCDefaultToolBarButton).BitmapPosition;\r\n    FBitmapSize := (Source as TTMSFNCDefaultToolBarButton).BitmapSize;\r\n    FLargeLayoutBitmapSize := (Source as TTMSFNCDefaultToolBarButton).LargeLayoutBitmapSize;\r\n    FAutoBitmapSize := (Source as TTMSFNCDefaultToolBarButton).AutoBitmapSize;\r\n    FLargeLayoutAutoBitmapSize := (Source as TTMSFNCDefaultToolBarButton).LargeLayoutAutoBitmapSize;\r\n    FStretchBitmapIfNoText := (Source as TTMSFNCDefaultToolBarButton).StretchBitmapIfNoText;\r\n    FAppearance.Assign((Source as TTMSFNCDefaultToolBarButton).Appearance);\r\n    FBitmapContainer := (Source as TTMSFNCDefaultToolBarButton).BitmapContainer;\r\n    FBitmaps.Assign((Source as TTMSFNCDefaultToolBarButton).Bitmaps);\r\n    FDisabledBitmaps.Assign((Source as TTMSFNCDefaultToolBarButton).DisabledBitmaps);\r\n    FLargeLayoutHoverBitmaps.Assign((Source as TTMSFNCDefaultToolBarButton).LargeLayoutHoverBitmaps);\r\n    FLargeLayoutBitmaps.Assign((Source as TTMSFNCDefaultToolBarButton).LargeLayoutBitmaps);\r\n    FLargeLayoutDisabledBitmaps.Assign((Source as TTMSFNCDefaultToolBarButton).LargeLayoutDisabledBitmaps);\r\n    FHoverBitmaps.Assign((Source as TTMSFNCDefaultToolBarButton).HoverBitmaps);\r\n    FBitmapVisible := (Source as TTMSFNCDefaultToolBarButton).BitmapVisible;\r\n    FText := (Source as TTMSFNCDefaultToolBarButton).Text;\r\n    FTextVisible := (Source as TTMSFNCDefaultToolBarButton).TextVisible;\r\n    FDropDownHeight := (Source as TTMSFNCDefaultToolBarButton).DropDownHeight;\r\n    FDropDownWidth := (Source as TTMSFNCDefaultToolBarButton).DropDownWidth;\r\n    FDropDownAutoWidth := (Source as TTMSFNCDefaultToolBarButton).DropDownAutoWidth;\r\n    FWordWrapping := (Source as TTMSFNCDefaultToolBarButton).WordWrapping;\r\n    FHorizontalTextAlign := (Source as TTMSFNCDefaultToolBarButton).HorizontalTextAlign;\r\n    FVerticalTextAlign := (Source as TTMSFNCDefaultToolBarButton).VerticalTextAlign;\r\n    FTrimming := (Source as TTMSFNCDefaultToolBarButton).Trimming;\r\n    FFont.Assign((Source as TTMSFNCDefaultToolBarButton).Font);\r\n    FHoverFontColor := (Source as TTMSFNCDefaultToolBarButton).HoverFontColor;\r\n    FDownFontColor := (Source as TTMSFNCDefaultToolBarButton).DownFontColor;\r\n    FDisabledFontColor := (Source as TTMSFNCDefaultToolBarButton).DisabledFontColor;\r\n    FStretchText := (Source as TTMSFNCDefaultToolBarButton).StretchText;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.BitmapsChanged(Sender: TObject);\r\nvar\r\n  bmp: TTMSFNCBitmap;\r\nbegin\r\n  bmp := TTMSFNCGraphics.GetScaledBitmap(Bitmaps, 0, BitmapContainer);\r\n  BitmapVisible := Assigned(bmp) and not IsBitmapEmpty(bmp);\r\n\r\n  if not BitmapVisible and (Layout = bblLarge) then\r\n  begin\r\n    bmp := TTMSFNCGraphics.GetScaledBitmap(LargeLayoutBitmaps, 0, BitmapContainer);\r\n    BitmapVisible := Assigned(bmp) and not IsBitmapEmpty(bmp);\r\n  end;\r\n\r\n  Invalidate;\r\nend;\r\n\r\nfunction TTMSFNCDefaultToolBarButton.CanChangeText: Boolean;\r\nbegin\r\n  Result := True;\r\nend;\r\n\r\nfunction TTMSFNCDefaultToolBarButton.CanDrawDesignTime: Boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n\r\nfunction TTMSFNCDefaultToolBarButton.CanDropDown: Boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.ChangeDPIScale(M, D: Integer);\r\nbegin\r\n  inherited;\r\n\r\n  BeginUpdate;\r\n  Font.Height := TTMSFNCUtils.MulDivInt(Font.Height, M, D);\r\n  BitmapSize := TTMSFNCUtils.MulDivSingle(BitmapSize, M, D);\r\n  LargeLayoutBitmapSize := TTMSFNCUtils.MulDivSingle(LargeLayoutBitmapSize, M, D);\r\n\r\n  if FOldHeight <> -1 then\r\n    FOldHeight := TTMSFNCUtils.MulDivSingle(FOldHeight, M, D);\r\n  FDropDownHeight := TTMSFNCUtils.MulDivSingle(FDropDownHeight, M, D);\r\n  FDropDownWidth := TTMSFNCUtils.MulDivSingle(FDropDownWidth, M, D);\r\n\r\n  FPopup.DropDownWidth := TTMSFNCUtils.MulDivSingle(FPopup.DropDownWidth, M, D);\r\n  FPopup.DropDownHeight := TTMSFNCUtils.MulDivSingle(FPopup.DropDownHeight, M, D);\r\n\r\n//  FAppearance.Rounding := TTMSFNCUtils.MulDivSingle(FAppearance.Rounding, M, D);\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.CloseDropDown;\r\nbegin\r\n  if not Assigned(FPopup) then\r\n    Exit;\r\n\r\n  if FPopup.IsOpen then\r\n    FPopup.IsOpen := False;\r\nend;\r\n\r\nconstructor TTMSFNCDefaultToolBarButton.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  {$IFDEF FMXLIB}\r\n  EnableExecuteAction := True;\r\n  {$ENDIF}\r\n  FUseStyledDropDownIcon := True;\r\n  FOldHeight := -1;\r\n  FLayout := bblNone;\r\n  FCompactLayout := bblNone;\r\n  FMinimumLayout := bblBitmap;\r\n  FMaximumLayout := bblLarge;\r\n\r\n  FFont := TTMSFNCGraphicsFont.Create;\r\n  FFont.OnChanged := @DoFontChanged;\r\n\r\n  FHoverFontColor := gcNull;\r\n  FDownFontColor := gcNull;\r\n  FDisabledFontColor := gcNull;\r\n\r\n  FDownState := False;\r\n  FApplyName := True;\r\n  FCloseOnSelection := True;\r\n  FBitmapSize := 24;\r\n  FLargeLayoutBitmapSize := 32;\r\n  FAutoBitmapSize := False;\r\n  FLargeLayoutAutoBitmapSize := False;\r\n  FStretchBitmapIfNoText := True;\r\n  FStretchText := False;\r\n\r\n  FDropDownWidth := 135;\r\n  FDropDownHeight := 135;\r\n  FDropDownAutoWidth := False;\r\n  FPopup := TTMSFNCPopup.Create(Self);\r\n  FPopup.DragWithParent := True;\r\n  FPopup.DropDownWidth := FDropDownWidth;\r\n  FPopup.DropDownHeight := FDropDownHeight;\r\n  FPopup.OnPopup := DoPopup;\r\n  FPopup.OnClosePopup := DoClosePopup;\r\n  FPopupPlacement := ppBottom;\r\n\r\n  FBitmaps := TTMSFNCScaledBitmaps.Create(Self);\r\n  FBitmaps.OnChange := @BitmapsChanged;\r\n  FDisabledBitmaps := TTMSFNCScaledBitmaps.Create(Self);\r\n  FDisabledBitmaps.OnChange := @BitmapsChanged;\r\n  FHoverBitmaps := TTMSFNCScaledBitmaps.Create(Self);\r\n  FHoverBitmaps.OnChange := @BitmapsChanged;\r\n\r\n  FLargeLayoutBitmaps := TTMSFNCScaledBitmaps.Create(Self);\r\n  FLargeLayoutBitmaps.OnChange := @BitmapsChanged;\r\n  FLargeLayoutDisabledBitmaps := TTMSFNCScaledBitmaps.Create(Self);\r\n  FLargeLayoutDisabledBitmaps.OnChange := @BitmapsChanged;\r\n  FLargeLayoutHoverBitmaps := TTMSFNCScaledBitmaps.Create(Self);\r\n  FLargeLayoutHoverBitmaps.OnChange := @BitmapsChanged;\r\n\r\n  FAppearance := TTMSFNCToolBarButtonAppearance.Create(Self);\r\n\r\n  FTextVisible := True;\r\n  FBitmapVisible := False;\r\n  FWordWrapping := False;\r\n  FHorizontalTextAlign := gtaCenter;\r\n  FVerticalTextAlign := gtaCenter;\r\n  FTrimming := gttCharacter;\r\n  FBitmapPosition := bbpLeft;\r\n\r\n  Width := 100;\r\n  Height := 24;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetDisabledBitmaps(const Value: TTMSFNCScaledBitmaps);\r\nbegin\r\n  FDisabledBitmaps.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetDisabledFontColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FDisabledFontColor <> Value then\r\n  begin\r\n    FDisabledFontColor := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetHoverBitmaps(const Value: TTMSFNCScaledBitmaps);\r\nbegin\r\n  FHoverBitmaps.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetDownFontColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FDownFontColor <> Value then\r\n  begin\r\n    FDownFontColor := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetHoverFontColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FHoverFontColor <> Value then\r\n  begin\r\n    FHoverFontColor := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetMaximumLayout(\r\n  const Value: TTMSFNCToolBarButtonLayout);\r\nbegin\r\n  if FMaximumLayout <> Value then\r\n  begin\r\n    FMaximumLayout := Value;\r\n    UpdateToolBar;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetMinimumLayout(\r\n  const Value: TTMSFNCToolBarButtonLayout);\r\nbegin\r\n  if FMinimumLayout <> Value then\r\n  begin\r\n    FMinimumLayout := Value;\r\n    UpdateToolBar;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetDownState(const Value: Boolean);\r\nbegin\r\n  FDownState := Value;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetDropDownControl(const Value: TControl);\r\nbegin\r\n  FDropDownControl := Value;\r\n  if Assigned(FDropDownControl) then\r\n  begin\r\n    if not (csDesigning in ComponentState) then\r\n    begin\r\n      if Assigned(FPopup) then\r\n      begin\r\n        FPopup.ContentControl := FDropDownControl;\r\n        FPopup.FocusedControl := FDropDownControl;\r\n      end;\r\n    end\r\n    else if (csDesigning in ComponentState) then\r\n    begin\r\n      DropDownHeight := FDropDownControl.Height;\r\n      DropDownWidth := FDropDownControl.Width;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetDropDownAutoWidth(\r\n  const Value: Boolean);\r\nbegin\r\n  if FDropDownAutoWidth <> Value then\r\n  begin\r\n    FDropDownAutoWidth := Value;\r\n    if Assigned(FPopup) then\r\n    begin\r\n      if FDropDownAutoWidth then\r\n        FPopup.DropDownWidth := Width\r\n      else\r\n        FPopup.DropDownWidth := FDropDownWidth;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetDropDownHeight(const Value: Single);\r\nbegin\r\n  FDropDownHeight := Value;\r\n  if Assigned(FPopup) and not DropDownAutoWidth then\r\n    FPopup.DropDownHeight := FDropDownHeight;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetDropDownWidth(const Value: Single);\r\nbegin\r\n  FDropDownWidth := Value;\r\n  if Assigned(FPopup) then\r\n    FPopup.DropDownWidth := FDropDownWidth;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FFont.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetHorizontalTextAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FHorizontalTextAlign <> Value then\r\n  begin\r\n    FHorizontalTextAlign := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarButton.SetAdaptToStyle(const Value: Boolean);\r\nbegin\r\n  inherited;\r\n  if Assigned(FDropDownButton) then\r\n    FDropDownButton.AdaptToStyle := AdaptToStyle;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarButton.SetDropDownKind(\r\n  const Value: TTMSFNCToolBarButtonDropDownKind);\r\nbegin\r\n  if FDropDownKind <> Value then\r\n  begin\r\n    FDropDownKind := Value;\r\n    if Assigned(FDropDownButton) then\r\n    begin\r\n      case DropDownKind of\r\n        ddkNormal:\r\n        begin\r\n          FDropDownButton.Visible := False;\r\n          FDropDownButton.Parent := nil;\r\n          {$IFDEF FMXLIB}\r\n          FDropDownButton.HitTest := True;\r\n          {$ENDIF}\r\n          FDropDownButton.Appearance.Transparent := False;\r\n        end;\r\n        ddkDropDown:\r\n        begin\r\n          FDropDownButton.Visible := False;\r\n          FDropDownButton.Parent := Self;\r\n          {$IFDEF FMXLIB}\r\n          FDropDownButton.HitTest := False;\r\n          {$ENDIF}\r\n          FDropDownButton.Appearance.Transparent := True;\r\n        end;\r\n        ddkDropDownButton:\r\n        begin\r\n          FDropDownButton.Visible := True;\r\n          FDropDownButton.Parent := Self;\r\n          {$IFDEF FMXLIB}\r\n          FDropDownButton.HitTest := True;\r\n          {$ENDIF}\r\n          FDropDownButton.Appearance.Transparent := False;\r\n        end;\r\n      end;\r\n    end;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarButton.SetDropDownPosition(const Value: TTMSFNCToolBarButtonDropDownPosition);\r\nvar\r\n  sc: Single;\r\nbegin\r\n  if FDropDownPosition <> Value then\r\n  begin\r\n    sc := TTMSFNCUtils.GetDPIScale(Self, 96);\r\n\r\n    FDropDownPosition := Value;\r\n    if Assigned(FDropDownButton) then\r\n    begin\r\n      case Value of\r\n        ddpRight:\r\n        begin\r\n          {$IFDEF FMXLIB}\r\n          FDropDownButton.Align := TAlignLayout.Right;\r\n          {$ENDIF}\r\n          {$IFDEF CMNWEBLIB}\r\n          FDropDownButton.Align := alRight;\r\n          {$ENDIF}\r\n          FDropDownButton.Width := Round(sc *17);\r\n          FDropDownButton.Appearance.Corners := [gcTopRight, gcBottomRight];\r\n        end;\r\n        ddpBottom:\r\n        begin\r\n          {$IFDEF FMXLIB}\r\n          FDropDownButton.Align := TAlignLayout.Bottom;\r\n          {$ENDIF}\r\n          {$IFDEF CMNWEBLIB}\r\n          FDropDownButton.Align := alBottom;\r\n          {$ENDIF}\r\n          FDropDownButton.Height := Round(sc * 10);\r\n          FDropDownButton.Appearance.Corners := [gcBottomLeft, gcBottomRight];\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomToolBarButton.SetEnabled(const Value: Boolean);\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCCustomToolBarButton.SetEnabled(Value: Boolean);\r\n{$ENDIF}\r\nvar\r\n  d: TTMSFNCToolBarDropDownButton;\r\nbegin\r\n  inherited;\r\n  d := GetDropDownButtonControl;\r\n  if Assigned(d) then\r\n    d.Enabled := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarButton.SetHidden(const Value: Boolean);\r\nbegin\r\n  if FHidden <> Value then\r\n  begin\r\n    FHidden := Value;\r\n    UpdateToolBarControl;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarButton.UpdateDropDownButton;\r\nbegin\r\n  if Assigned(FDropDownButton) then\r\n    FDropDownButton.Appearance.Rounding := Appearance.Rounding;\r\nend;\r\n\r\ndestructor TTMSFNCDefaultToolBarButton.Destroy;\r\nbegin\r\n  FFont.Free;\r\n  FPopup.Free;\r\n  FBitmaps.Free;\r\n  FDisabledBitmaps.Free;\r\n  FHoverBitmaps.Free;\r\n  FLargeLayoutBitmaps.Free;\r\n  FLargeLayoutDisabledBitmaps.Free;\r\n  FLargeLayoutHoverBitmaps.Free;\r\n  FAppearance.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.DoPopup(Sender: TObject);\r\nbegin\r\n  InitializePopup;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.HandleMouseEnter;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.HandleMouseLeave;\r\nbegin\r\n  inherited;\r\n  FDown := False;\r\n  FHover := False;\r\n  FPrevHover := False;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarButton.DoFontChanged(Sender: TObject);\r\nbegin\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarButton.AppearanceChanged;\r\nbegin\r\n  inherited;\r\n  UpdateDropDownButton;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarButton.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if Source is TTMSFNCCustomToolBarButton then\r\n  begin\r\n    FDropDownKind := (Source as TTMSFNCCustomToolBarButton).DropDownKind;\r\n    FDropDownPosition := (Source as TTMSFNCCustomToolBarButton).DropDownPosition;\r\n    FAutoOptionsMenuText := (Source as TTMSFNCCustomToolBarButton).AutoOptionsMenuText;\r\n    FHidden := (Source as TTMSFNCCustomToolBarButton).Hidden;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBarButton.CanDropDown: Boolean;\r\nbegin\r\n  Result := DropDownKind <> ddkNormal;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarButton.ChangeDPIScale(M, D: Integer);\r\nbegin\r\n  inherited;\r\n\r\nend;\r\n\r\nconstructor TTMSFNCCustomToolBarButton.Create(AOwner: TComponent);\r\nvar\r\n  res: string;\r\nbegin\r\n  inherited;\r\n  FHidden := False;\r\n  FDropDownPosition := ddpRight;\r\n  FDropDownButton := GetDropDownButtonClass.Create(Self);\r\n  FDropDownButton.TabStop := False;\r\n  FDropDownButton.Text := '';\r\n  FDropDownButton.OnClick := DropDownButtonClick;\r\n  FDropDownButton.Visible := False;\r\n  FDropDownButton.Width := 17;\r\n  FDropDownButton.Appearance.Corners := [gcTopRight, gcBottomRight];\r\n  {$IFDEF FMXLIB}\r\n  FDropDownButton.Align := TAlignLayout.Right;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  FDropDownButton.Align := alRight;\r\n  {$ENDIF}\r\n  FDropDownButton.Stored := False;\r\n\r\n  {$IFNDEF WEBLIB}\r\n  res := 'TMSFNCTOOLBAREXPANDSVG';\r\n  {$ELSE}\r\n  res := TMSFNCTOOLBAREXPANDSVG;\r\n  {$ENDIF}\r\n\r\n  FDropDownButton.Bitmaps.AddBitmapFromResource(res, HInstance);\r\n  FDropDownButton.DisabledBitmaps.AddBitmapFromResource(res, HInstance);\r\n  FDropDownButton.HoverBitmaps.AddBitmapFromResource(res, HInstance);\r\nend;\r\n\r\ndestructor TTMSFNCCustomToolBarButton.Destroy;\r\nbegin\r\n  FDropDownButton.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarButton.DrawButton(AGraphics: TTMSFNCGraphics);\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  inherited;\r\n  if Assigned(FDropDownButton) and (DropDownKind = ddkDropDown) then\r\n  begin\r\n    case DropDownPosition of\r\n      ddpRight: r := RectF(Width - FDropDownButton.Width, 0, Width, Height);\r\n      ddpBottom: r := RectF(0, Height - FDropDownButton.Height, Width, Height);\r\n    end;\r\n    FDropDownButton.DrawBitmap(AGraphics, r);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarButton.DropDownButtonClick(Sender: TObject);\r\nbegin\r\n  DropDown;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.DrawBitmap(AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nvar\r\n  r: TRectF;\r\n  bmpa: TBitmap;\r\n  bmp: TTMSFNCBitmap;\r\n  g: TTMSFNCGraphics;\r\n  x, y: Integer;\r\nbegin\r\n  if not BitmapVisible then\r\n    Exit;\r\n\r\n  r := GetBitmapRect(ARect);\r\n\r\n  if (Self is TTMSFNCToolBarDropDownButton) and AdaptToStyle and UseStyledDropDownIcon then\r\n  begin\r\n    bmpa := TBitmap.Create;\r\n    bmpa.SetSize(ScalePaintValue(7), ScalePaintValue(7));\r\n    {$IFDEF CMNLIB}\r\n    bmpa.TransparentMode := tmFixed;\r\n    bmpa.Transparent := True;\r\n    bmpa.TransparentColor := gcWhite;\r\n    {$ENDIF}\r\n    g := TTMSFNCGraphics.Create(bmpa.Canvas);\r\n    try\r\n      g.BeginScene;\r\n      {$IFDEF CMNLIB}\r\n      g.Fill.Color := gcWhite;\r\n      g.Fill.Kind := gfkSolid;\r\n      g.Stroke.Kind := gskSolid;\r\n      g.Stroke.Color := gcWhite;\r\n      g.DrawRectangle(0, 0, bmpa.Width, bmpa.Height);\r\n      {$ENDIF}\r\n      g.Stroke.Kind := gskSolid;\r\n      g.Stroke.Color := TTMSFNCGraphics.DefaultSelectionFillColor;\r\n//      g.DrawLine(PointF(0, 1), PointF(6, 1), gcpmRightDown);\r\n//      g.DrawLine(PointF(0, 2), PointF(6, 2), gcpmRightDown);\r\n//      g.DrawLine(PointF(1, 3), PointF(5, 3), gcpmRightDown);\r\n//      g.DrawLine(PointF(2, 4), PointF(4, 4), gcpmRightDown);\r\n//      g.DrawLine(PointF(3, 5), PointF(3, 5), gcpmRightDown);\r\n\r\n      for y := ScalePaintValue(1) to ScalePaintValue(5) do\r\n      begin\r\n        x := Max(0, y - ScalePaintValue(2));\r\n        g.DrawLine(PointF(x, y), PointF((bmpa.Width - 1) - x, y), gcpmRightDown);\r\n        if x >= ((bmpa.Width - 1) - x) then\r\n          Break;\r\n      end;\r\n\r\n    finally\r\n      g.EndScene;\r\n      g.Free;\r\n    end;\r\n\r\n    try\r\n      bmp := TTMSFNCBitmap.Create;\r\n      try\r\n        bmp.Assign(bmpa);\r\n        AGraphics.DrawBitmap(r, bmp);\r\n      finally\r\n        bmp.Free;\r\n      end;\r\n    finally\r\n      bmpa.Free;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    AGraphics.BitmapContainer := BitmapContainer;\r\n\r\n    case Layout of\r\n      bblLarge:\r\n      begin\r\n        if Enabled then\r\n        begin\r\n          if FHover and (LargeLayoutHoverBitmaps.Count > 0) then\r\n            AGraphics.DrawScaledBitmap(r, LargeLayoutHoverBitmaps, ResourceScaleFactor)\r\n          else if FHover and (HoverBitmaps.Count > 0) then\r\n            AGraphics.DrawScaledBitmap(r, HoverBitmaps, ResourceScaleFactor)\r\n          else if LargeLayoutBitmaps.Count > 0 then\r\n            AGraphics.DrawScaledBitmap(r, LargeLayoutBitmaps, ResourceScaleFactor)\r\n          else\r\n            AGraphics.DrawScaledBitmap(r, Bitmaps, ResourceScaleFactor)\r\n        end\r\n        else\r\n        begin\r\n          if LargeLayoutDisabledBitmaps.Count > 0 then\r\n            AGraphics.DrawScaledBitmap(r, LargeLayoutDisabledBitmaps, ResourceScaleFactor)\r\n          else if DisabledBitmaps.Count > 0 then\r\n            AGraphics.DrawScaledBitmap(r, DisabledBitmaps, ResourceScaleFactor)\r\n          else\r\n            AGraphics.DrawScaledBitmap(r, Bitmaps, ResourceScaleFactor)\r\n        end;\r\n      end\r\n      else\r\n      begin\r\n        if Enabled then\r\n        begin\r\n          if FHover and (HoverBitmaps.Count > 0) then\r\n            AGraphics.DrawScaledBitmap(r, HoverBitmaps, ResourceScaleFactor)\r\n          else\r\n            AGraphics.DrawScaledBitmap(r, Bitmaps, ResourceScaleFactor)\r\n        end\r\n        else if DisabledBitmaps.Count > 0 then\r\n          AGraphics.DrawScaledBitmap(r, DisabledBitmaps, ResourceScaleFactor)\r\n        else\r\n          AGraphics.DrawScaledBitmap(r, Bitmaps, ResourceScaleFactor)\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.DrawButton(AGraphics: TTMSFNCGraphics);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.DrawText(AGraphics: TTMSFNCGraphics);\r\nvar\r\n  tr: TRectF;\r\n  st: TTMSFNCGraphicsSaveState;\r\nbegin\r\n  if not TextVisible or (Text = '') then\r\n    Exit;\r\n\r\n  tr := GetTextRect;\r\n  st := AGraphics.SaveState;\r\n  try\r\n    AGraphics.ClipRect(tr);\r\n    AGraphics.Font.Assign(Font);\r\n\r\n    if Enabled then\r\n    begin\r\n      if (FDown or FDownState) and (DownFontColor <> gcNull) then\r\n        AGraphics.Font.Color := DownFontColor\r\n      else if FHover and (HoverFontColor <> gcNull) then\r\n        AGraphics.Font.Color := HoverFontColor\r\n    end\r\n    else if DisabledFontColor <> gcNull then\r\n      AGraphics.Font.Color := DisabledFontColor;\r\n\r\n    AGraphics.DrawText(tr, Text, WordWrapping, HorizontalTextAlign, VerticalTextAlign, Trimming);\r\n  finally\r\n    AGraphics.RestoreState(st);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.DropDown;\r\nbegin\r\n  if not Assigned(FPopup) then\r\n    Exit;\r\n\r\n  FPopup.PlacementControl := Self;\r\n\r\n  if not FPopup.IsOpen then\r\n  begin\r\n    if Assigned(OnBeforeDropDown) then\r\n      OnBeforeDropDown(Self);\r\n\r\n    if DropDownAutoWidth then\r\n      FPopup.DropDownWidth := Width;\r\n\r\n    FPopup.Placement := FPopupPlacement;\r\n    FPopup.IsOpen := True;\r\n    if Assigned(OnDropDown) then\r\n      OnDropDown(Self);\r\n  end\r\n  else\r\n    FPopup.IsOpen := False;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.DoFontChanged(Sender: TObject);\r\nbegin\r\n  Invalidate;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBarButton.GetBitmapRect: TRectF;\r\nbegin\r\n  Result := inherited GetBitmapRect;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBarButton.GetBitmapRect(ARect: TRectF): TRectF;\r\nvar\r\n  r: TRectF;\r\n  dr: TRectf;\r\n  bs: Single;\r\nbegin\r\n  bs := GetBitmapSize;\r\n  case Layout of\r\n    bblLarge: bs := GetLargeLayoutBitmapSize;\r\n  end;\r\n\r\n  r := ARect;\r\n  Result := RectF(r.Left, r.Top, r.Left, r.Bottom);\r\n  if BitmapVisible then\r\n  begin\r\n    if DropDownKind <> ddkNormal then\r\n    begin\r\n      dr := GetDropDownRect;\r\n      case BitmapPosition of\r\n        bbpLeft:\r\n        begin\r\n          case DropDownPosition of\r\n            ddpRight: Result := RectF(Result.Left + 3, Result.Top + 3, Result.Left + 3 + bs, Result.Bottom - 3);\r\n            ddpBottom: Result := RectF(Result.Left + 3, Result.Top + 3, Result.Left + 3 + bs, dr.Top - 3);\r\n          end;\r\n        end;\r\n        bbpTop:\r\n        begin\r\n          case DropDownPosition of\r\n            ddpRight: Result := RectF(Result.Left + 3, Result.Top + 3, dr.Left - 3, Result.Top + 3 + bs);\r\n            ddpBottom: Result := RectF(Result.Left + 3, Result.Top + 3, r.Right - 3, Result.Top + 3 + bs);\r\n          end;\r\n        end;\r\n      end;\r\n    end\r\n    else if not TextVisible or (Text = '') then\r\n    begin\r\n      Result := RectF(r.Left + 3, r.Top + 3, r.Right - 3, r.Bottom - 3);\r\n      if (bs <> -1) and not StretchBitmapIfNoText then\r\n      begin\r\n        Result.Left := Round(r.Left + ((r.Right - r.Left) - bs) / 2);\r\n        Result.Top := Round(r.Top + ((r.Bottom - r.Top) - bs) / 2);\r\n        Result.Right := Result.Left + bs;\r\n        Result.Bottom := Result.Top + bs;\r\n      end;      \r\n    end\r\n    else if TextVisible and not (Text = '') then\r\n    begin\r\n      case BitmapPosition of\r\n        bbpLeft: Result := RectF(r.Left + 3, r.Top + 3, r.Left + 3 + bs, r.Bottom - 3);\r\n        bbpTop: Result := RectF(r.Left + 3, r.Top + 3, r.Right - 3, r.Top + 3 + bs);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBarButton.GetDropDownButtonClass: TTMSFNCToolBarDropDownButtonClass;\r\nbegin\r\n  Result := TTMSFNCToolBarDropDownButton;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBarButton.GetDropDownButtonControl: TTMSFNCToolBarDropDownButton;\r\nbegin\r\n  Result := FDropDownButton;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBarButton.GetDropDownRect: TRectF;\r\nbegin\r\n  Result := inherited GetDropDownRect;\r\n  if Assigned(FDropDownButton) and (DropDownKind <> ddkNormal) then\r\n  begin\r\n    if DropDownKind = ddkDropDown then\r\n    begin\r\n      case DropDownPosition of\r\n        ddpRight: Result := RectF(Width - FDropDownButton.Width, 0, Width, Height);\r\n        ddpBottom: Result := RectF(0, Height - FDropDownButton.Height, Width, Height);\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      {$IFDEF FMXLIB}\r\n      Result := RectF(FDropDownButton.Position.X, FDropDownButton.Position.Y, FDropDownButton.Position.X + FDropDownButton.Width, FDropDownButton.Position.Y + FDropDownButton.Height);\r\n      {$ENDIF}\r\n      {$IFDEF CMNWEBLIB}\r\n      Result := RectF(FDropDownButton.Left, FDropDownButton.Top, FDropDownButton.Left + FDropDownButton.Width, FDropDownButton.Top + FDropDownButton.Height);\r\n      {$ENDIF}\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBarButton.GetTextRect: TRectF;\r\nvar\r\n  bmpr: TRectF;\r\n  dr: TRectF;\r\n  r: TRectF;\r\nbegin\r\n  r := LocalRect;\r\n  bmpr := GetBitmapRect(r);\r\n  dr := GetDropDownRect;\r\n  if DropDownKind <> ddkNormal then\r\n  begin\r\n    if not StretchText then\r\n    begin\r\n      case BitmapPosition of\r\n        bbpLeft:\r\n        begin\r\n          case DropDownPosition of\r\n            ddpRight: Result := RectF(bmpr.Right + 3, r.Top + 3, dr.Left - 3, r.Bottom - 3);\r\n            ddpBottom: Result := RectF(bmpr.Right + 3, r.Top + 3, r.Right - 3, dr.Top - 3);\r\n          end;\r\n        end;\r\n        bbpTop:\r\n        begin\r\n          case DropDownPosition of\r\n            ddpRight: Result := RectF(r.Left + 3, bmpr.Bottom + 3, dr.Left - 3, r.Bottom - 3);\r\n            ddpBottom: Result := RectF(r.Left + 3, bmpr.Bottom + 3, r.Right - 3, dr.Top - 3);\r\n          end;\r\n        end;\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      case DropDownPosition of\r\n        ddpRight: Result := RectF(r.Left + 3, r.Top + 3, dr.Left - 3, r.Bottom - 3);\r\n        ddpBottom: Result := RectF(r.Left + 3, r.Top + 3, r.Right - 3, dr.Top - 3);\r\n      end;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    if not StretchText then\r\n    begin\r\n      case BitmapPosition of\r\n        bbpLeft: Result := RectF(bmpr.Right + 3, r.Top + 3, dr.Left - 3, r.Bottom - 3);\r\n        bbpTop: Result := RectF(r.Left + 3, bmpr.Bottom + 3, dr.Left - 3, r.Bottom - 3)\r\n      end;\r\n    end\r\n    else\r\n      Result := RectF(r.Left + 3, r.Top + 3, dr.Left - 3, r.Bottom - 3);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarButton.HandleMouseDown(Button: TTMSFNCMouseButton;\r\n  Shift: TShiftState; X, Y: Single);\r\nbegin\r\n  inherited;\r\n  if DropDownKind = ddkDropDown then\r\n    DropDown;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarButton.Loaded;\r\nbegin\r\n  inherited;\r\n  {$IFDEF VCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF (COMPILERVERSION >= 33) AND (COMPILERVERSION < 36)}\r\n  FDropDownButton.ScaleForPPI(CurrentPPI);\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarButton.LoadSettingsFromFile(AFileName: string);\r\nbegin\r\n  inherited;\r\n  if Assigned(FDropDownButton) then\r\n  begin\r\n    FDropDownButton.Appearance.ShowInnerStroke := Appearance.ShowInnerStroke;\r\n    FDropDownButton.Appearance.InnerStroke.Assign(Appearance.InnerStroke);\r\n    FDropDownButton.Appearance.NormalFill.Assign(Appearance.NormalFill);\r\n    FDropDownButton.Appearance.NormalStroke.Assign(Appearance.NormalStroke);\r\n    FDropDownButton.Appearance.HoverFill.Assign(Appearance.HoverFill);\r\n    FDropDownButton.Appearance.HoverStroke.Assign(Appearance.HoverStroke);\r\n    FDropDownButton.Appearance.DownFill.Assign(Appearance.DownFill);\r\n    FDropDownButton.Appearance.DownStroke.Assign(Appearance.DownStroke);\r\n    FDropDownButton.Appearance.DisabledFill.Assign(Appearance.DisabledFill);\r\n    FDropDownButton.Appearance.DisabledStroke.Assign(Appearance.DisabledStroke);\r\n    FDropDownButton.Appearance.FlatStyle := Appearance.FlatStyle;\r\n    FDropDownButton.Fill.Assign(Fill);\r\n    FDropDownButton.Stroke.Assign(Stroke);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarButton.LoadSettingsFromStream(AStream: TStream);\r\nbegin\r\n  inherited;\r\n  if Assigned(FDropDownButton) then\r\n  begin\r\n    FDropDownButton.Appearance.ShowInnerStroke := Appearance.ShowInnerStroke;\r\n    FDropDownButton.Appearance.InnerStroke.Assign(Appearance.InnerStroke);\r\n    FDropDownButton.Appearance.NormalFill.Assign(Appearance.NormalFill);\r\n    FDropDownButton.Appearance.NormalStroke.Assign(Appearance.NormalStroke);\r\n    FDropDownButton.Appearance.HoverFill.Assign(Appearance.HoverFill);\r\n    FDropDownButton.Appearance.HoverStroke.Assign(Appearance.HoverStroke);\r\n    FDropDownButton.Appearance.DownFill.Assign(Appearance.DownFill);\r\n    FDropDownButton.Appearance.DownStroke.Assign(Appearance.DownStroke);\r\n    FDropDownButton.Appearance.DisabledFill.Assign(Appearance.DisabledFill);\r\n    FDropDownButton.Appearance.DisabledStroke.Assign(Appearance.DisabledStroke);\r\n    FDropDownButton.Appearance.FlatStyle := Appearance.FlatStyle;\r\n    FDropDownButton.Fill.Assign(Fill);\r\n    FDropDownButton.Stroke.Assign(Stroke);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCDefaultToolBarButton.GetBitmap: TTMSFNCBitmap;\r\nbegin\r\n  Result := TTMSFNCGraphics.GetScaledBitmap(Bitmaps, 0, FBitmapContainer);\r\nend;\r\n\r\nfunction TTMSFNCDefaultToolBarButton.GetBitmapContainer: TTMSFNCBitmapContainer;\r\nbegin\r\n  Result := FBitmapContainer;\r\nend;\r\n\r\nfunction TTMSFNCDefaultToolBarButton.GetBitmapRect(ARect: TRectF): TRectF;\r\nvar\r\n  r: TRectF;\r\n  bs: Single;\r\nbegin\r\n  bs := GetBitmapSize;\r\n  case Layout of\r\n    bblLarge: bs := GetLargeLayoutBitmapSize;\r\n  end;\r\n\r\n  r := ARect;\r\n  Result := RectF(r.Left, r.Top, r.Left, r.Bottom);\r\n  if BitmapVisible then\r\n  begin\r\n    case BitmapPosition of\r\n      bbpLeft: Result := RectF(Result.Left + 3, Result.Top + 3, Result.Left + 3 + bs, Result.Bottom - 3);\r\n      bbpTop: Result := RectF(Result.Left + 3, Result.Top + 3, Result.Right - 3, Result.Top + 3 + bs);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCDefaultToolBarButton.GetBitmapSize: Single;\r\nvar\r\n  bmp: TTMSFNCBitmap;\r\nbegin\r\n  Result := BitmapSize;\r\n  if AutoBitmapSize then\r\n  begin\r\n    bmp := TTMSFNCGraphics.GetScaledBitmap(Bitmaps, 0, BitmapContainer);\r\n    if Assigned(bmp) and not IsBitmapEmpty(bmp) then\r\n      Result := Max(bmp.Height, bmp.Width);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCDefaultToolBarButton.GetBitmapRect: TRectF;\r\nbegin\r\n  Result := GetBitmapRect(LocalRect);\r\nend;\r\n\r\nfunction TTMSFNCDefaultToolBarButton.GetDropDownRect: TRectF;\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  r := LocalRect;\r\n  Result := RectF(r.Right, r.Top, r.Right, r.Bottom);\r\nend;\r\n\r\nfunction TTMSFNCDefaultToolBarButton.GetHintString: String;\r\nbegin\r\n  Result := Hint;\r\nend;\r\n\r\nfunction TTMSFNCDefaultToolBarButton.GetLargeLayoutBitmapSize: Single;\r\nvar\r\n  bmp: TTMSFNCBitmap;\r\nbegin\r\n  Result := LargeLayoutBitmapSize;\r\n  if LargeLayoutAutoBitmapSize then\r\n  begin\r\n    bmp := TTMSFNCGraphics.GetScaledBitmap(LargeLayoutBitmaps, 0, BitmapContainer);\r\n    if Assigned(bmp) and not IsBitmapEmpty(bmp) then\r\n      Result := Max(bmp.Height, bmp.Width);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCDefaultToolBarButton.GetPopupControl: TTMSFNCPopup;\r\nbegin\r\n  Result := FPopup;\r\nend;\r\n\r\nfunction TTMSFNCDefaultToolBarButton.GetText: String;\r\nbegin\r\n  Result := FText;\r\nend;\r\n\r\nfunction TTMSFNCDefaultToolBarButton.GetTextRect: TRectF;\r\nvar\r\n  bmpr: TRectF;\r\n  dr: TRectF;\r\n  r: TRectF;\r\nbegin\r\n  r := LocalRect;\r\n  bmpr := GetBitmapRect;\r\n  dr := GetDropDownRect;\r\n  if not StretchText then\r\n  begin\r\n    case BitmapPosition of\r\n      bbpLeft: Result := RectF(bmpr.Right + 3, r.Top + 3, dr.Left - 3, r.Bottom - 3);\r\n      bbpTop: Result := RectF(r.Left + 3, bmpr.Bottom + 3, dr.Left - 3, r.Bottom - 3);\r\n    end;\r\n  end\r\n  else\r\n    Result := RectF(r.Left + 3, r.Top + 3, dr.Left - 3, r.Bottom - 3);\r\nend;\r\n\r\nfunction TTMSFNCDefaultToolBarButton.GetTextSize: TSizeF;\r\nvar\r\n  g: TTMSFNCGraphics;\r\n  r: TRectF;\r\nbegin\r\n  Result.cx := 0;\r\n  Result.cy := 0;\r\n  if TextVisible and (Text <> '') then\r\n  begin\r\n    g := TTMSFNCGraphics.CreateBitmapCanvas(1, 1, NativeCanvas);\r\n    if not NativeCanvas then\r\n      g.BeginScene;\r\n    g.BitmapContainer := BitmapContainer;\r\n    g.OptimizedHTMLDrawing := OptimizedHTMLDrawing;\r\n    try\r\n      g.Font.Assign(Font);\r\n      r := LocalRect;\r\n      InflateRectEx(r, ScalePaintValue(-2), ScalePaintValue(-2));\r\n      Result := g.CalculateTextSize(Text, r, WordWrapping);\r\n    finally\r\n      if not NativeCanvas then\r\n        g.EndScene;\r\n      g.Free;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.InitializePopup;\r\nbegin\r\n\r\nend;\r\n\r\nfunction TTMSFNCDefaultToolBarButton.IsBitmapSizeStored: Boolean;\r\nbegin\r\n  Result := BitmapSize <> 24;\r\nend;\r\n\r\nfunction TTMSFNCDefaultToolBarButton.IsDropDownHeightStored: Boolean;\r\nbegin\r\n  Result := DropDownHeight <> 135;\r\nend;\r\n\r\nfunction TTMSFNCDefaultToolBarButton.IsDropDownWidthStored: Boolean;\r\nbegin\r\n  Result := DropDownWidth <> 135;\r\nend;\r\n\r\nfunction TTMSFNCDefaultToolBarButton.IsLargeLayoutBitmapSizeStored: Boolean;\r\nbegin\r\n  Result := LargeLayoutBitmapSize <> 32;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.HandleKeyDown(var Key: Word; Shift: TShiftState);\r\nbegin\r\n  inherited;\r\n  case Key of\r\n    KEY_HOME: SelectFirstValue;\r\n    KEY_END: SelectLastValue;\r\n    KEY_UP, KEY_LEFT:  SelectPreviousValue;\r\n    KEY_DOWN, KEY_RIGHT: SelectNextValue;\r\n    KEY_SPACE: Click;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.HandleKeyPress(var Key: Char);\r\nbegin\r\n  inherited;\r\n  if (Key >= #32) and not (Ord(Key) in [KEY_F2, KEY_RETURN, KEY_SPACE, KEY_ESCAPE, KEY_HOME, KEY_END, KEY_UP, KEY_LEFT, KEY_DOWN, KEY_RIGHT]) then\r\n    SelectValueWithCharacter(Key);\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.HandleKeyUp(var Key: Word; Shift: TShiftState);\r\nbegin\r\n  inherited;\r\n  if Shift <> [] then\r\n    Exit;\r\n\r\n  case Key of\r\n    KEY_RETURN, KEY_F4:\r\n    begin\r\n      if CanDropDown then\r\n        DropDown;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.HandleMouseDown(Button: TTMSFNCMouseButton;\r\n  Shift: TShiftState; X, Y: Single);\r\nbegin\r\n  inherited;\r\n  if CanFocus then\r\n    SetFocus;\r\n\r\n  FDown := True;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.HandleMouseMove(Shift: TShiftState; X,\r\n  Y: Single);\r\nbegin\r\n  inherited;\r\n  FHover := True;\r\n  if FPrevHover <> FHover then\r\n    Invalidate;\r\n\r\n  FPrevHover := FHover;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.HandleMouseUp(Button: TTMSFNCMouseButton;\r\n  Shift: TShiftState; X, Y: Single);\r\nbegin\r\n  inherited;\r\n  FDown := False;\r\n  Invalidate;\r\nend;\r\n\r\nfunction TTMSFNCDefaultToolBarButton.HasHint: Boolean;\r\nbegin\r\n  Result := Hint <> '';\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.Notification(AComponent: TComponent;\r\n  Operation: TOperation);\r\nbegin\r\n  inherited;\r\n  if (Operation = opRemove) and (AComponent = FBitmapContainer) then\r\n    FBitmapContainer := nil;\r\n\r\n  if (Operation = opRemove) and (AComponent = FDropDownControl) then\r\n    FDropDownControl := nil;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  inherited;\r\n  if not Appearance.Transparent then\r\n  begin\r\n    if Enabled then\r\n    begin\r\n      if FDown or FDownState then\r\n      begin\r\n        AGraphics.Fill.Assign(Appearance.DownFill);\r\n        AGraphics.Stroke.Assign(Appearance.DownStroke);\r\n      end\r\n      else if FHover then\r\n      begin\r\n        AGraphics.Fill.Assign(Appearance.HoverFill);\r\n        AGraphics.Stroke.Assign(Appearance.HoverStroke);\r\n      end\r\n      else\r\n      begin\r\n        AGraphics.Fill.Assign(Appearance.NormalFill);\r\n        AGraphics.Stroke.Assign(Appearance.NormalStroke);\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      AGraphics.Fill.Assign(Appearance.DisabledFill);\r\n      AGraphics.Stroke.Assign(Appearance.DisabledStroke);\r\n    end;\r\n\r\n    r := LocalRect;\r\n\r\n    if Appearance.FlatStyle then\r\n    begin\r\n      AGraphics.Fill.Kind := gfkSolid;\r\n      AGraphics.DrawRectangle(r);\r\n    end\r\n    else\r\n      AGraphics.DrawRoundRectangle(r, Appearance.Rounding, Appearance.Corners);\r\n\r\n    if Appearance.ShowInnerStroke and not Appearance.FlatStyle then\r\n    begin\r\n      InflateRectEx(r, -1, -1);\r\n      AGraphics.Stroke.Assign(Appearance.InnerStroke);\r\n      AGraphics.Fill.Kind := gfkNone;\r\n      AGraphics.DrawRoundRectangle(r, Appearance.Rounding, Appearance.Corners);\r\n    end;\r\n  end;\r\n\r\n  DrawBitmap(AGraphics, ARect);\r\n  DrawText(AGraphics);\r\n  DrawButton(AGraphics);\r\n\r\n  if ShowFocus and IsFocused then\r\n  begin\r\n    r := GetTextRect;\r\n    AGraphics.DrawFocusRectangle(r);\r\n  end;\r\n\r\n  if IsDesignTime and CanDrawDesignTime then\r\n    AGraphics.DrawFocusRectangle(ARect, gcBlack);\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.DoClosePopup(Sender: TObject);\r\nbegin\r\n  if Assigned(OnCloseDropDown) then\r\n    OnCloseDropDown(Self);\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.ResetToDefaultStyle;\r\nbegin\r\n  inherited;\r\n  Font.Color := gcBlack;\r\n  Appearance.NormalFill.Color := gcWhite;\r\n  Appearance.HoverFill.Color := gcWhite;\r\n  Appearance.DownFill.Color := gcWhite;\r\n  Appearance.DisabledFill.Color := gcLightgray;\r\n  Appearance.NormalStroke.Color := gcGray;\r\n  Appearance.InnerStroke.Color := gcWhite;\r\n  Appearance.HoverStroke.Color := gcGray;\r\n  Appearance.DownStroke.Color := gcGray;\r\n  Appearance.DisabledStroke.Color := gcGray;\r\n\r\n  Appearance.NormalFill.Kind := gfkGradient;\r\n  Appearance.HoverFill.Kind := gfkGradient;\r\n  Appearance.DownFill.Kind := gfkGradient;\r\n  Appearance.DisabledFill.Kind := gfkSolid;\r\n  Appearance.NormalStroke.Kind := gskSolid;\r\n  Appearance.InnerStroke.Kind := gskSolid;\r\n  Appearance.HoverStroke.Kind := gskSolid;\r\n  Appearance.DownStroke.Kind := gskSolid;\r\n  Appearance.DisabledStroke.Kind := gskSolid;\r\n\r\n  Appearance.NormalFill.Color := MakeGraphicsColor(249, 251, 252);\r\n  Appearance.NormalFill.ColorTo := MakeGraphicsColor(230, 235, 235);\r\n  Appearance.NormalFill.ColorMirror := MakeGraphicsColor(220, 220, 236);\r\n  Appearance.NormalFill.ColorMirrorTo := MakeGraphicsColor(220, 225, 236);\r\n\r\n  Appearance.HoverFill.Color := MakeGraphicsColor(229, 231, 232);\r\n  Appearance.HoverFill.ColorTo := MakeGraphicsColor(210, 215, 215);\r\n  Appearance.HoverFill.ColorMirror := MakeGraphicsColor(200, 200, 216);\r\n  Appearance.HoverFill.ColorMirrorTo := MakeGraphicsColor(200, 205, 216);\r\n\r\n  Appearance.DownFill.Color := MakeGraphicsColor(219, 221, 222);\r\n  Appearance.DownFill.ColorTo := MakeGraphicsColor(200, 205, 205);\r\n  Appearance.DownFill.ColorMirror := MakeGraphicsColor(190, 190, 206);\r\n  Appearance.DownFill.ColorMirrorTo := MakeGraphicsColor(190, 195, 206);\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SelectFirstValue;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SelectLastValue;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SelectNextValue;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SelectPreviousValue;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SelectValueWithCharacter(\r\n  ACharacter: Char);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetAdaptToStyle(const Value: Boolean);\r\nbegin\r\n  inherited;\r\n  if Assigned(FPopup) then\r\n    FPopup.AdaptToStyle := AdaptToStyle;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetAppearance(\r\n  const Value: TTMSFNCToolBarButtonAppearance);\r\nbegin\r\n  FAppearance.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetAutoBitmapSize(const Value: Boolean);\r\nbegin\r\n  if FAutoBitmapSize <> Value then\r\n  begin\r\n    FAutoBitmapSize := Value;\r\n    UpdateLayout;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetBitmaps(const Value: TTMSFNCScaledBitmaps);\r\nbegin\r\n  FBitmaps.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetBitmapSize(const Value: Single);\r\nbegin\r\n  if FBitmapSize <> Value then\r\n  begin\r\n    FBitmapSize := Value;\r\n    UpdateLayout;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetBitmapContainer(\r\n  const Value: TTMSFNCBitmapContainer);\r\nbegin\r\n  FBitmapContainer := Value;\r\n  UpdateLayout;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetBitmapPosition(\r\n  const Value: TTMSFNCToolBarButtonBitmapPosition);\r\nbegin\r\n  if FBitmapPosition <> Value then\r\n  begin\r\n    FBitmapPosition := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetBitmapVisible(const Value: Boolean);\r\nbegin\r\n  FBitmapVisible := Value;\r\n  UpdateLayout;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetLargeLayoutAutoBitmapSize(\r\n  const Value: Boolean);\r\nbegin\r\n  if FLargeLayoutAutoBitmapSize <> Value then\r\n  begin\r\n    FLargeLayoutAutoBitmapSize := Value;\r\n    UpdateLayout;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetLargeLayoutBitmaps(\r\n  const Value: TTMSFNCScaledBitmaps);\r\nbegin\r\n  FLargeLayoutBitmaps.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetLargeLayoutBitmapSize(\r\n  const Value: Single);\r\nbegin\r\n  if FLargeLayoutBitmapSize <> Value then\r\n  begin\r\n    FLargeLayoutBitmapSize := Value;\r\n    UpdateLayout;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetLargeLayoutDisabledBitmaps(\r\n  const Value: TTMSFNCScaledBitmaps);\r\nbegin\r\n  FLargeLayoutDisabledBitmaps.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetLargeLayoutHoverBitmaps(\r\n  const Value: TTMSFNCScaledBitmaps);\r\nbegin\r\n  FLargeLayoutHoverBitmaps.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetLayout(\r\n  const Value: TTMSFNCToolBarButtonLayout);\r\nbegin\r\n  if FLayout <> Value then\r\n  begin\r\n    FLayout := Value;\r\n    UpdateLayout;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetCloseOnSelection(const Value: Boolean);\r\nbegin\r\n  if FCloseOnSelection <> Value then\r\n  begin\r\n    FCloseOnSelection := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetCompactLayout(\r\n  const Value: TTMSFNCToolBarButtonLayout);\r\nbegin\r\n  if FCompactLayout <> Value then\r\n    FCompactLayout := Value;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetName(const Value: TComponentName);\r\nvar\r\n  ChangeText: Boolean;\r\nbegin\r\n  ChangeText := not (csLoading in ComponentState) and (Name = Text) and\r\n    ((not Assigned(Owner)) or not (Owner is TComponent) or not (csLoading in TComponent(Owner).ComponentState));\r\n  inherited SetName(Value);\r\n  if ChangeText and ApplyName and CanChangeText then\r\n    Text := StringReplace(Text, 'TMSFNCToolBar', '', [rfReplaceAll]);\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetShowFocus(const Value: Boolean);\r\nbegin\r\n  if FShowFocus <> Value then\r\n  begin\r\n    FShowFocus := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetStretchBitmapIfNoText(\r\n  const Value: Boolean);\r\nbegin\r\n  if FStretchBitmapIfNoText <> Value then\r\n  begin\r\n    FStretchBitmapIfNoText := Value;\r\n    UpdateLayout;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetStretchText(const Value: Boolean);\r\nbegin\r\n  if FStretchText <> Value then\r\n  begin\r\n    FStretchText := Value;\r\n    UpdateLayout;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetText(const Value: String);\r\nbegin\r\n  if FText <> Value then\r\n  begin\r\n    FText := Value;\r\n    FTextVisible := Value <> '';\r\n    UpdateLayout;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetTextVisible(const Value: Boolean);\r\nbegin\r\n  if FTextVisible <> Value then\r\n  begin\r\n    FTextVisible := Value;\r\n    UpdateLayout;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetTrimming(\r\n  const Value: TTMSFNCGraphicsTextTrimming);\r\nbegin\r\n  if FTrimming <> Value then\r\n  begin\r\n    FTrimming := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetUseStyledDropDownIcon(\r\n  const Value: Boolean);\r\nbegin\r\n  if FUseStyledDropDownIcon <> Value then\r\n  begin\r\n    FUseStyledDropDownIcon := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetVerticalTextAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FVerticalTextAlign <> Value then\r\n  begin\r\n    FVerticalTextAlign := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.SetWordWrapping(const Value: Boolean);\r\nbegin\r\n  if FWordWrapping <> Value then\r\n  begin\r\n    FWordWrapping := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.UpdateControlAfterResize;\r\nbegin\r\n  inherited;\r\n  if Layout = bblLarge then\r\n    FOldHeight := Height;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.UpdateLayout;\r\nvar\r\n  sz: TSizeF;\r\n  w: Single;\r\nbegin\r\n  if (Layout = bblNone) or FBlockUpdate then\r\n    Exit;\r\n\r\n  FBlockUpdate := True;\r\n  case Layout of\r\n    bblBitmap:\r\n    begin\r\n      TextVisible := False;\r\n      BitmapPosition := bbpLeft;\r\n      StretchText := False;\r\n      Height := Round(GetBitmapSize + 6);\r\n      Width := Round(GetBitmapSize + 6);\r\n    end;\r\n    bblLabel:\r\n    begin\r\n      TextVisible := True;\r\n      BitmapPosition := bbpLeft;\r\n      StretchText := False;\r\n      sz := GetTextSize;\r\n      if BitmapVisible then\r\n      begin\r\n        Height := Round(Max(GetBitmapSize, sz.cy) + 6);\r\n        Width := Round(GetBitmapSize + sz.cx + 12);\r\n      end\r\n      else if TextVisible and (Text <> '') then\r\n      begin\r\n        Height := Round(sz.cy + 6);\r\n        Width := Round(sz.cx + 6);\r\n      end\r\n      else\r\n      begin\r\n        Width := 75;\r\n        Height := 24;\r\n      end;\r\n    end;\r\n    bblLarge:\r\n    begin\r\n      TextVisible := True;\r\n      BitmapPosition := bbpTop;\r\n      StretchText := not BitmapVisible;\r\n\r\n      sz := GetTextSize;\r\n      w := 30;\r\n      if BitmapVisible then\r\n        w := Max(w, GetLargeLayoutBitmapSize + 6);\r\n\r\n      if TextVisible and (Text <> '') then\r\n        w := Max(w, sz.cx + 12);\r\n\r\n      Width := Round(w);\r\n\r\n      if FOldHeight <> -1 then\r\n        Height := Round(FOldHeight);\r\n    end;\r\n  end;\r\n  FBlockUpdate := False;\r\n\r\n  UpdateToolBar;\r\nend;\r\n\r\nprocedure TTMSFNCDefaultToolBarButton.UpdateState;\r\nvar\r\n  f: Single;\r\nbegin\r\n  inherited;\r\n  case FState of\r\n    esNormal: f := 0.8;\r\n    esLarge: f := 1.25;\r\n    else\r\n      f := 1;\r\n  end;\r\n\r\n  if not (csLoading in ComponentState) then\r\n  begin\r\n    DropDownWidth := DropDownWidth * f;\r\n    DropDownHeight := DropDownHeight * f;\r\n    {$IFDEF FMXLIB}\r\n    Font.Size := Font.Size * f;\r\n    SetBounds(Position.X, Position.Y, int(Width * f), int(Height * f));\r\n    {$ENDIF}\r\n    {$IFDEF VCLWEBLIB}\r\n    Font.Size := Round(Font.Size * f);\r\n    SetBounds(Left, Top, Round(Width * f), Round(Height * f));\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomButtonAppearance.SetCorners(const Value: TTMSFNCGraphicsCorners);\r\nbegin\r\n  if FCorners <> Value then\r\n  begin\r\n    FCorners := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomButtonAppearance.SetRounding(const Value: Single);\r\nbegin\r\n  if FRounding <> Value then\r\n  begin\r\n    FRounding := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomButtonAppearance.StrokeChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\n{ TTMSFNCCustomToolBarSeparator }\r\n\r\nprocedure TTMSFNCCustomToolBarSeparator.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if Source is TTMSFNCCustomToolBarSeparator then\r\n  begin\r\n    FAppearance.Assign((Source as TTMSFNCCustomToolBarSeparator).Appearance);\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCCustomToolBarSeparator.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  {$IFDEF FMXLIB}\r\n  Width := 3;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  Width := 2;\r\n  {$ENDIF}\r\n  Height := 30;\r\n  FAppearance := TTMSFNCToolBarSeparatorAppearance.Create(Self);\r\nend;\r\n\r\ndestructor TTMSFNCCustomToolBarSeparator.Destroy;\r\nbegin\r\n  FAppearance.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarSeparator.Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nvar\r\n  cp: TPointF;\r\n  r: TRectF;\r\nbegin\r\n  inherited;\r\n  r := LocalRect;\r\n  {$IFDEF FMXLIB}\r\n  cp := r.CenterPoint;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  cp := PointF(r.Left, r.Top);\r\n  {$ENDIF}\r\n  AGraphics.Stroke.Assign(Appearance.Stroke);\r\n  AGraphics.DrawLine(PointF(cp.X, r.Top), PointF(cp.X, r.Bottom));\r\n  AGraphics.Stroke.Assign(Appearance.InnerStroke);\r\n  AGraphics.DrawLine(PointF(cp.X + 1, r.Top), PointF(cp.X + 1, r.Bottom));\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarSeparator.SetAppearance(\r\n  const Value: TTMSFNCToolBarSeparatorAppearance);\r\nbegin\r\n  FAppearance.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarSeparator.UpdateState;\r\nvar\r\n  f: Single;\r\nbegin\r\n  inherited;\r\n  case State of\r\n    esNormal: f := 0.8;\r\n    esLarge: f := 1.25;\r\n    else\r\n      f := 1;\r\n  end;\r\n\r\n  if not (csLoading in ComponentState) then\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    SetBounds(Position.X, Position.Y, Width, int(Height * f));\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    SetBounds(Left, Top, Width, Round(Height * f));\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCToolBarCustomButtonAppearance }\r\n\r\nprocedure TTMSFNCToolBarCustomButtonAppearance.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCToolBarCustomButtonAppearance then\r\n  begin\r\n    FNormalFill.Assign((Source as TTMSFNCToolBarCustomButtonAppearance).NormalFill);\r\n    FDisabledFill.Assign((Source as TTMSFNCToolBarCustomButtonAppearance).DisabledFill);\r\n    FHoverFill.Assign((Source as TTMSFNCToolBarCustomButtonAppearance).HoverFill);\r\n    FDownFill.Assign((Source as TTMSFNCToolBarCustomButtonAppearance).DownFill);\r\n    FNormalStroke.Assign((Source as TTMSFNCToolBarCustomButtonAppearance).NormalStroke);\r\n    FDisabledStroke.Assign((Source as TTMSFNCToolBarCustomButtonAppearance).DisabledStroke);\r\n    FHoverStroke.Assign((Source as TTMSFNCToolBarCustomButtonAppearance).HoverStroke);\r\n    FDownStroke.Assign((Source as TTMSFNCToolBarCustomButtonAppearance).DownStroke);\r\n    FRounding := (Source as TTMSFNCToolBarCustomButtonAppearance).Rounding;\r\n    FCorners := (Source as TTMSFNCToolBarCustomButtonAppearance).Corners;\r\n    FShowInnerStroke := (Source as TTMSFNCToolBarCustomButtonAppearance).ShowInnerStroke;\r\n    FTransparent := (Source as TTMSFNCToolBarCustomButtonAppearance).Transparent;\r\n    FFlatStyle := (Source as TTMSFNCToolBarCustomButtonAppearance).FlatStyle;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomButtonAppearance.Changed;\r\nbegin\r\n  if Assigned(FOwner) then\r\n    FOwner.AppearanceChanged\r\n  else if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nconstructor TTMSFNCToolBarCustomButtonAppearance.Create(AOwner: TTMSFNCDefaultToolBarButton);\r\nbegin\r\n  FOwner := AOwner;\r\n  FCorners := [gcTopLeft, gcTopRight, gcBottomLeft, gcBottomRight];\r\n  FRounding := 3;\r\n  FTransparent := False;\r\n  FShowInnerStroke := True;\r\n  FFlatStyle := False;\r\n\r\n  FNormalFill := TTMSFNCGraphicsFill.Create(gfkGradient, MakeGraphicsColor(249, 251, 252), MakeGraphicsColor(230, 235, 235), MakeGraphicsColor(220, 220, 236), MakeGraphicsColor(220, 225, 236));\r\n  FHoverFill := TTMSFNCGraphicsFill.Create(gfkGradient, MakeGraphicsColor(229, 231, 232), MakeGraphicsColor(210, 215, 215), MakeGraphicsColor(200, 200, 216), MakeGraphicsColor(200, 205, 216));\r\n  FDownFill := TTMSFNCGraphicsFill.Create(gfkGradient, MakeGraphicsColor(219, 221, 222), MakeGraphicsColor(200, 205, 205), MakeGraphicsColor(190, 190, 206), MakeGraphicsColor(190, 195, 206));\r\n  FDisabledFill := TTMSFNCGraphicsFill.Create(gfkSolid, gcLightgray);\r\n  FNormalStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcGray);\r\n  FInnerStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcWhite);\r\n  FHoverStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcGray);\r\n  FDownStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcGray);\r\n  FDisabledStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcGray);\r\n\r\n  FNormalFill.OnChanged := @FillChanged;\r\n  FHoverFill.OnChanged := @FillChanged;\r\n  FDownFill.OnChanged := @FillChanged;\r\n  FDisabledFill.OnChanged := @FillChanged;\r\n\r\n  FInnerStroke.OnChanged := @StrokeChanged;\r\n  FNormalStroke.OnChanged := @StrokeChanged;\r\n  FHoverStroke.OnChanged := @StrokeChanged;\r\n  FDownStroke.OnChanged := @StrokeChanged;\r\n  FDisabledStroke.OnChanged := @StrokeChanged;\r\nend;\r\n\r\ndestructor TTMSFNCToolBarCustomButtonAppearance.Destroy;\r\nbegin\r\n  FNormalFill.Free;\r\n  FHoverFill.Free;\r\n  FDownFill.Free;\r\n  FDisabledFill.Free;\r\n\r\n  FInnerStroke.Free;\r\n  FNormalStroke.Free;\r\n  FHoverStroke.Free;\r\n  FDownStroke.Free;\r\n  FDisabledStroke.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomButtonAppearance.FillChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\nfunction TTMSFNCToolBarCustomButtonAppearance.IsRoundingStored: Boolean;\r\nbegin\r\n  Result := Rounding <> 3;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomButtonAppearance.SetDisabledFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FDisabledFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomButtonAppearance.SetDisabledStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FDisabledStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomButtonAppearance.SetDownFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FDownFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomButtonAppearance.SetDownStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FDownStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomButtonAppearance.SetFlatStyle(const Value: Boolean);\r\nvar\r\n  c: TControl;\r\n  I: Integer;\r\nbegin\r\n  if FFlatStyle <> Value then\r\n  begin\r\n    FFlatStyle := Value;\r\n    if Assigned(FOwner) then\r\n    begin\r\n      for I := 0 to FOwner.ControlCount - 1 do\r\n      begin\r\n        c := FOwner.Controls[I];\r\n        {$IFDEF FMXLIB}\r\n        if Supports(c, IDesignerControl) then\r\n          Continue;\r\n        {$ENDIF}\r\n\r\n        if c is TTMSFNCDefaultToolBarButton then\r\n          (c as TTMSFNCDefaultToolBarButton).Appearance.FlatStyle := FlatStyle;\r\n\r\n        if c is TTMSFNCCustomToolBar then\r\n          (c as TTMSFNCCustomToolBar).Appearance.FlatStyle := FlatStyle;\r\n      end;\r\n    end;\r\n\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomButtonAppearance.SetHoverFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FHoverFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomButtonAppearance.SetHoverStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FHoverStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomButtonAppearance.SetInnerStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FInnerStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomButtonAppearance.SetNormalFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FNormalFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomButtonAppearance.SetNormalStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FNormalStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomButtonAppearance.SetShowInnerStroke(\r\n  const Value: Boolean);\r\nbegin\r\n  if FShowInnerStroke <> Value then\r\n  begin\r\n    FShowInnerStroke := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomButtonAppearance.SetTransparent(\r\n  const Value: Boolean);\r\nbegin\r\n  if FTransparent <> Value then\r\n  begin\r\n    FTransparent := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCCustomToolBarAppearance }\r\n\r\nprocedure TTMSFNCCustomToolBarAppearance.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCCustomToolBarAppearance then\r\n  begin\r\n    FSeparatorStroke.Assign((Source as TTMSFNCCustomToolBarAppearance).SeparatorStroke);\r\n    FSeparator := (Source as TTMSFNCCustomToolBarAppearance).Separator;\r\n    FFill.Assign((Source as TTMSFNCCustomToolBarAppearance).Fill);\r\n    FStroke.Assign((Source as TTMSFNCCustomToolBarAppearance).Stroke);\r\n    FHorizontalSpacing := (Source as TTMSFNCCustomToolBarAppearance).HorizontalSpacing;\r\n    FVerticalSpacing := (Source as TTMSFNCCustomToolBarAppearance).VerticalSpacing;\r\n    FDragGripColor := (Source as TTMSFNCCustomToolBarAppearance).DragGripColor;\r\n    FDragGrip := (Source as TTMSFNCCustomToolBarAppearance).DragGrip;\r\n    FFlatStyle := (Source as TTMSFNCCustomToolBarAppearance).FlatStyle;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCCustomToolBarAppearance.Create(AOwner: TTMSFNCCustomToolBar);\r\nbegin\r\n  FOwner := AOwner;\r\n  FFont := TTMSFNCGraphicsFont.Create;\r\n  FFlatStyle := False;\r\n  FHorizontalSpacing := 3;\r\n  FVerticalSpacing := 3;\r\n  FDragGrip := True;\r\n  FDragGripColor := gcLightgray;\r\n  FFill := TTMSFNCGraphicsFill.Create(gfkGradient, gcWhite, MakeGraphicsColor(230, 230, 230));\r\n  FStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcGray);\r\n\r\n  FFill.OnChanged := @FillChanged;\r\n  FStroke.OnChanged := @StrokeChanged;\r\n\r\n  FSeparatorStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcWhite);\r\n  FSeparatorStroke.OnChanged := @StrokeChanged;\r\nend;\r\n\r\ndestructor TTMSFNCCustomToolBarAppearance.Destroy;\r\nbegin\r\n  FSeparatorStroke.Free;\r\n  FFont.Free;\r\n  FFill.Free;\r\n  FStroke.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarAppearance.FillChanged(Sender: TObject);\r\nbegin\r\n  FOwner.Invalidate;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBarAppearance.IsHorizontalSpacingStored: Boolean;\r\nbegin\r\n  Result := HorizontalSpacing <> 3;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBarAppearance.IsVerticalSpacingStored: Boolean;\r\nbegin\r\n  Result := VerticalSpacing <> 3;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarAppearance.SetDragGrip(const Value: Boolean);\r\nbegin\r\n  if FDragGrip <> Value then\r\n  begin\r\n    FDragGrip := Value;\r\n    FOwner.UpdateControls;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarAppearance.SetDragGripColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FDragGripColor <> Value then\r\n  begin\r\n    FDragGripColor := Value;\r\n    FOwner.Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarAppearance.SetFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarAppearance.SetFlatStyle(const Value: Boolean);\r\nbegin\r\n  if FFlatStyle <> Value then\r\n  begin\r\n    FFlatStyle := Value;\r\n    if Assigned(FOwner) then\r\n      FOwner.ApplyFlatStyle;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarAppearance.SetHorizontalSpacing(\r\n  const Value: Single);\r\nbegin\r\n  if FHorizontalSpacing <> Value then\r\n  begin\r\n    FHorizontalSpacing := Value;\r\n    FOwner.UpdateControls;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarAppearance.SetSeparator(const Value: Boolean);\r\nbegin\r\n  if FSeparator <> Value then\r\n  begin\r\n    FSeparator := Value;\r\n    FOwner.Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarAppearance.SetSeparatorStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FSeparatorStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarAppearance.SetStroke(const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarAppearance.SetVerticalSpacing(\r\n  const Value: Single);\r\nbegin\r\n  if FVerticalSpacing <> Value then\r\n  begin\r\n    FVerticalSpacing := Value;\r\n    FOwner.UpdateControls;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarAppearance.StrokeChanged(Sender: TObject);\r\nbegin\r\n  FOwner.Invalidate;\r\nend;\r\n\r\n{ TTMSFNCCustomToolBarSeparatorAppearance }\r\n\r\nprocedure TTMSFNCCustomToolBarSeparatorAppearance.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCCustomToolBarSeparatorAppearance then\r\n  begin\r\n    Stroke.Assign((Source as TTMSFNCCustomToolBarSeparatorAppearance).Stroke);\r\n    InnerStroke.Assign((Source as TTMSFNCCustomToolBarSeparatorAppearance).InnerStroke);\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nconstructor TTMSFNCCustomToolBarSeparatorAppearance.Create(\r\n  AOwner: TTMSFNCCustomToolBarSeparator);\r\nbegin\r\n  FOwner := AOwner;\r\n  FStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcGray);\r\n  FStroke.OnChanged := @StrokeChanged;\r\n  FInnerStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcWhite);\r\n  FInnerStroke.OnChanged := @StrokeChanged;\r\nend;\r\n\r\ndestructor TTMSFNCCustomToolBarSeparatorAppearance.Destroy;\r\nbegin\r\n  FInnerStroke.Free;\r\n  FStroke.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarSeparatorAppearance.SetInnerStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FInnerStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarSeparatorAppearance.SetStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarSeparatorAppearance.StrokeChanged(\r\n  Sender: TObject);\r\nbegin\r\n  FOwner.Invalidate;\r\nend;\r\n\r\n{ TTMSFNCCustomDockPanel }\r\n\r\nfunction TTMSFNCCustomDockPanel.AddToolBar(AIndex: Integer = -1): TTMSFNCToolBar;\r\nbegin\r\n  FBlockUpdate := True;\r\n  Result := TTMSFNCToolBar.Create(Self);\r\n  {$IFDEF FMXLIB}\r\n  if (AIndex >= 0) and (AIndex <= Self.ControlCount - 1) then\r\n    InsertObject(AIndex, Result)\r\n  else\r\n    AddObject(Result);\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  Result.Parent := Self;\r\n  {$ENDIF}\r\n\r\n  FBlockUpdate := False;\r\n  UpdateControls;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDockPanel.ApplyStyle;\r\nvar\r\n  c: TTMSFNCGraphicsColor;\r\nbegin\r\n  inherited;\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleHeaderFillColor(c) then\r\n  begin\r\n    Appearance.Fill.Kind := gfkSolid;\r\n    Appearance.Fill.Color := c;\r\n  end;\r\n\r\n  if TTMSFNCStyles.GetStyleHeaderFillColorTo(c) then\r\n  begin\r\n    Appearance.Fill.Kind := gfkGradient;\r\n    Appearance.Fill.ColorTo := c;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDockPanel.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if Source is TTMSFNCCustomDockPanel then\r\n  begin\r\n    Appearance.Assign((Source as TTMSFNCCustomDockPanel).Appearance);\r\n    AutoSize := (Source as TTMSFNCCustomDockPanel).AutoSize;\r\n    AutoAlign := (Source as TTMSFNCCustomDockPanel).AutoAlign;\r\n    State := (Source as TTMSFNCCustomDockPanel).State;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nconstructor TTMSFNCCustomDockPanel.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FState := esNormal;\r\n  FAppearance := TTMSFNCDockPanelAppearance.Create(Self);\r\n  FAutoSize := True;\r\n  FAutoAlign := True;\r\n  {$IFDEF FMXLIB}\r\n  Align := TAlignLayout.Top;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  Align := alTop;\r\n  {$ENDIF}\r\n  Height := 40;\r\nend;\r\n\r\ndestructor TTMSFNCCustomDockPanel.Destroy;\r\nbegin\r\n  FAppearance.Free;\r\n  inherited;\r\nend;\r\n\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCCustomDockPanel.AlignControls(AControl: TControl; var Rect: TRect);\r\nbegin\r\n  inherited;\r\n  UpdateControls;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomDockPanel.DoAddObject(const AObject: TFmxObject);\r\nbegin\r\n  inherited;\r\n  UpdateControls;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDockPanel.DoInsertObject(Index: Integer;\r\n  const AObject: TFmxObject);\r\nbegin\r\n  inherited;\r\n  UpdateControls;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDockPanel.SetBounds(X, Y, AWidth, AHeight: Single);\r\nbegin\r\n  inherited;\r\n  UpdateControls;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDockPanel.DoRemoveObject(\r\n  const AObject: TFmxObject);\r\nbegin\r\n  inherited;\r\n  UpdateControls;\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TTMSFNCCustomDockPanel.GetDocURL: string;\r\nbegin\r\n  Result := TTMSFNCBaseDocURL + 'tmsfncuipack/components/ttmsfnctoolbar';\r\nend;\r\n\r\nfunction TTMSFNCCustomDockPanel.GetVersion: String;\r\nbegin\r\n  Result := GetVersionNumber(MAJ_VER, MIN_VER, REL_VER, BLD_VER);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDockPanel.InitializeControls;\r\nvar\r\n  I: Integer;\r\n  c: TControl;\r\nbegin\r\n  for I := 0 to Self.ControlCount - 1 do\r\n  begin\r\n    c := Self.Controls[I];\r\n    {$IFDEF FMXLIB}\r\n    if Supports(c, IDesignerControl) then\r\n      Continue;\r\n    {$ENDIF}\r\n\r\n    if c is TTMSFNCCustomToolBar then\r\n    begin\r\n      (c as TTMSFNCCustomToolBar).OnUpdateDockPanel := UpdateDockPanel;\r\n      if (c as TTMSFNCCustomToolBar).FDragGripMoving then\r\n        Continue;\r\n    end;\r\n\r\n    if c.Visible then\r\n    begin\r\n      {$IFDEF FMXLIB}\r\n      if c.Position.y < Appearance.Margins.Top then\r\n        c.Position.y := Appearance.Margins.Top;\r\n      if c.Position.x < Appearance.Margins.Left then\r\n        c.Position.x := Appearance.Margins.Left\r\n      else if c.Position.x + c.Width > Width - Appearance.Margins.Right then\r\n        c.Position.x := Width - Appearance.Margins.Right - c.Width;\r\n      {$ENDIF}\r\n      {$IFDEF CMNWEBLIB}\r\n      if c.Top < Appearance.Margins.Top then\r\n        c.Top := Round(Appearance.Margins.Top);\r\n      if c.Left < Appearance.Margins.Left then\r\n        c.Left := Round(Appearance.Margins.Left)\r\n      else if c.Left + c.Width > Width - Appearance.Margins.Right then\r\n        c.Left := Round(Width - Appearance.Margins.Right - c.Width);\r\n      {$ENDIF}\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDockPanel.Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  inherited;\r\n  AGraphics.Fill.Assign(Appearance.Fill);\r\n  AGraphics.Stroke.Assign(Appearance.Stroke);\r\n\r\n  r := LocalRect;\r\n  AGraphics.DrawRectangle(r);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDockPanel.RearrangeControls;\r\nvar\r\n  c, cl: TControl;\r\n  cr, clr: TRectF;\r\n  I, J: Integer;\r\nbegin\r\n  for I := 0 to Self.ControlCount - 1 do\r\n  begin\r\n    c := Self.Controls[I];\r\n\r\n    {$IFDEF FMXLIB}\r\n    if Supports(c, IDesignerControl) then\r\n      Continue;\r\n    {$ENDIF}\r\n\r\n    if not c.Visible then\r\n      Continue;\r\n\r\n    if c is TTMSFNCCustomToolBar then\r\n    begin\r\n      if (c as TTMSFNCCustomToolBar).FDragGripMoving then\r\n        Continue;\r\n    end;\r\n\r\n    for J := 0 to Self.ControlCount - 1 do\r\n    begin\r\n      cl := Self.Controls[J];\r\n\r\n      if (cl = c) or not cl.Visible then\r\n        Continue;\r\n\r\n      {$IFDEF FMXLIB}\r\n      if Supports(cl, IDesignerControl) then\r\n        Continue;\r\n      {$ENDIF}\r\n\r\n      {$IFDEF FMXLIB}\r\n      cr := RectF(c.Position.X, c.Position.Y, c.Position.X + c.Width, c.Position.Y + c.Height);\r\n      clr := RectF(cl.Position.X, cl.Position.Y, cl.Position.X + cl.Width, cl.Position.Y + cl.Height);\r\n\r\n      if (clr.Left >= cr.Left - 3) and (clr.Left <= cr.Right + 3) then\r\n      begin\r\n        if (clr.Top < CenterPointEx(cr).Y) and (clr.Top >= cr.Top - 3) then\r\n        begin\r\n          cl.Position.X := c.Position.X + c.Width + 3;\r\n          cl.Position.Y := c.Position.Y;\r\n        end\r\n        else if (clr.Top >= CenterPointEx(cr).Y) and (clr.Top <= cr.Bottom + 3) then\r\n        begin\r\n          cl.Position.Y := c.Position.Y + c.Height + 3;\r\n          cl.Position.X := c.Position.X;\r\n        end;\r\n      end;\r\n      {$ENDIF}\r\n\r\n      {$IFDEF CMNWEBLIB}\r\n      cr := RectF(c.Left, c.Top, c.Left + c.Width, c.Top + c.Height);\r\n      clr := RectF(cl.Left, cl.Top, cl.Left + cl.Width, cl.Top + cl.Height);\r\n\r\n      if (clr.Left >= cr.Left - 3) and (clr.Left <= cr.Right + 3) then\r\n      begin\r\n        if (clr.Top < CenterPointEx(cr).Y) and (clr.Top >= cr.Top - 3) then\r\n        begin\r\n          cl.Left := c.Left + c.Width + 3;\r\n          cl.Top := c.Top;\r\n        end\r\n        else if (clr.Top >= CenterPointEx(cr).Y) and (clr.Top <= cr.Bottom + 3) then\r\n        begin\r\n          cl.Top := c.Top + c.Height + 3;\r\n          cl.Left := c.Left;\r\n        end;\r\n      end;\r\n      {$ENDIF}\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDockPanel.ResetToDefaultStyle;\r\nbegin\r\n  inherited;\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomDockPanel.SetAdaptToStyle(const Value: Boolean);\r\nbegin\r\n  inherited;\r\n  UpdateControls;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDockPanel.SetAppearance(\r\n  const Value: TTMSFNCDockPanelAppearance);\r\nbegin\r\n  FAppearance.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDockPanel.SetAutoAlign(const Value: Boolean);\r\nbegin\r\n  if FAutoAlign <> Value then\r\n  begin\r\n    FAutoAlign := Value;\r\n    UpdateControls;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDockPanel.SetAS(const Value: Boolean);\r\nbegin\r\n  if FAutoSize <> Value then\r\n  begin\r\n    FAutoSize := Value;\r\n    UpdateControls;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDockPanel.SetState(\r\n  const Value: TTMSFNCToolBarElementState);\r\nvar\r\n  I: Integer;\r\n  c: TControl;\r\nbegin\r\n  if FState <> Value then\r\n  begin\r\n    FState := Value;\r\n    for I := 0 to Self.ControlCount - 1 do\r\n    begin\r\n      c := Self.Controls[I];\r\n      if c is TTMSFNCCustomToolBar then\r\n        (c as TTMSFNCCustomToolBar).State := FState;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDockPanel.UpdateControls;\r\nvar\r\n  I: Integer;\r\n  {$IFDEF FMXLIB}\r\n  h, hsm: Single;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  h, hsm: Integer;\r\n  {$ENDIF}\r\n  c: TControl;\r\n  {$IFDEF FNCLIB}\r\n  ia: ITMSFNCAdaptToStyle;\r\n  {$ENDIF}\r\nbegin\r\n  if FBlockUpdate or IsLoading or IsDestroying then\r\n    Exit;\r\n\r\n  FBlockUpdate := True;\r\n  h := 0;\r\n  hsm := ScalePaintValue(30);\r\n\r\n  if AutoAlign then\r\n  begin\r\n    InitializeControls;\r\n    RearrangeControls;\r\n  end;\r\n\r\n  if AutoSize then\r\n  begin\r\n    for I := 0 to Self.ControlCount - 1 do\r\n    begin\r\n      c := Self.Controls[I];\r\n      {$IFDEF FMXLIB}\r\n      if Supports(c, IDesignerControl) then\r\n        Continue;\r\n\r\n      if c.Visible then\r\n        h := Max(h, c.Position.y + c.Height + Appearance.Margins.Bottom);\r\n      {$ENDIF}\r\n\r\n      {$IFDEF FNCLIB}\r\n      if Supports(c, ITMSFNCAdaptToStyle, ia) then\r\n        ia.AdaptToStyle := AdaptToStyle;\r\n      {$ENDIF}\r\n\r\n      {$IFDEF CMNWEBLIB}\r\n      if c.Visible then\r\n        h := Round(Max(h, c.Top + c.Height + Appearance.Margins.Bottom));\r\n      {$ENDIF}\r\n    end;\r\n\r\n    if h = 0 then\r\n      h := hsm;\r\n\r\n    if csDesigning in ComponentState then\r\n      h := h + ScalePaintValue(15);\r\n\r\n    {$IFDEF FMXLIB}\r\n    SetBounds(Position.X, Position.Y, Width, h);\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    SetBounds(Left, Top, Width, h);\r\n    {$ENDIF}\r\n  end;\r\n\r\n  FBlockUpdate := False;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDockPanel.UpdateDockPanel(Sender: TObject);\r\nbegin\r\n  UpdateControls;\r\nend;\r\n\r\n{ TTMSFNCCustomDockPanelAppearance }\r\n\r\nconstructor TTMSFNCCustomDockPanelAppearance.Create(AOwner: TTMSFNCCustomDockPanel);\r\nbegin\r\n  FOwner := AOwner;\r\n  FFill := TTMSFNCGraphicsFill.Create(gfkSolid, gcWhite);\r\n  FStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcGray);\r\n\r\n  FFill.OnChanged := @FillChanged;\r\n  FStroke.OnChanged := @StrokeChanged;\r\n  FMargins := TTMSFNCMargins.Create;\r\n  FMargins.Left := 3;\r\n  FMargins.Top := 3;\r\n  FMargins.Bottom := 3;\r\n  FMargins.Right := 3;\r\nend;\r\n\r\ndestructor TTMSFNCCustomDockPanelAppearance.Destroy;\r\nbegin\r\n  FMargins.Free;\r\n  FFill.Free;\r\n  FStroke.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDockPanelAppearance.FillChanged(Sender: TObject);\r\nbegin\r\n  FOwner.Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDockPanelAppearance.MarginsChanged(\r\n  Sender: TObject);\r\nbegin\r\n  FOwner.UpdateControls;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDockPanelAppearance.SetFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDockPanelAppearance.SetMargins(\r\n  const Value: TTMSFNCMargins);\r\nbegin\r\n  FMargins.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDockPanelAppearance.SetStroke(const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDockPanelAppearance.StrokeChanged(Sender: TObject);\r\nbegin\r\n  FOwner.Invalidate;\r\nend;\r\n\r\n{ TTMSFNCCustomToolBarElement }\r\n\r\nprocedure TTMSFNCCustomToolBarElement.UpdateToolBarControl;\r\nbegin\r\n  if Assigned(OnUpdateToolBarControl) then\r\n    OnUpdateToolBarControl(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarElement.ReadControlIndex(Reader: TReader);\r\nbegin\r\n  ControlIndex := Reader.ReadInteger;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarElement.WriteControlIndex(Writer: TWriter);\r\nbegin\r\n  Writer.WriteInteger(ControlIndex);\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarElement.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if Source is TTMSFNCCustomToolBarElement then\r\n  begin\r\n    FState := (Source as TTMSFNCCustomToolBarElement).State;\r\n    FLastElement := (Source as TTMSFNCCustomToolBarElement).LastElement;\r\n    FCanCopy := (Source as TTMSFNCCustomToolBarElement).CanCopy;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCCustomToolBarElement.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  DisableBackground;\r\n  {$IFDEF CMNLIB}\r\n  ParentColor := True;\r\n  {$IFDEF VCLLIB}\r\n  ParentBackground := True;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  FLastElement := False;\r\n  FCanCopy := True;\r\n  FState := esNormal;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarElement.DefineProperties(Filer: TFiler);\r\nbegin\r\n  inherited;\r\n  {$IFDEF LCLWEBLIB}\r\n  Filer.DefineProperty('ControlIndex', @ReadControlIndex, @WriteControlIndex, True);\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  Filer.DefineProperty('ControlIndex', ReadControlIndex, WriteControlIndex, True);\r\n  {$ENDIF}\r\nend;\r\n\r\ndestructor TTMSFNCCustomToolBarElement.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBarElement.GetDocURL: string;\r\nbegin\r\n  Result := TTMSFNCBaseDocURL + 'tmsfncuipack/components/ttmsfnctoolbar';\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomToolBarElement.DoMatrixChanged(Sender: TObject);\r\nbegin\r\n  inherited;\r\n  UpdateToolBar;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomToolBarElement.UpdateControlAfterResize;\r\nbegin\r\n  inherited;\r\n  UpdateToolBar;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarElement.SetLastElement(const Value: Boolean);\r\nbegin\r\n  if FLastElement <> Value then\r\n  begin\r\n    FLastElement := Value;\r\n    UpdateToolBar;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarElement.SetState(\r\n  const Value: TTMSFNCToolBarElementState);\r\nbegin\r\n  if FState <> Value then\r\n  begin\r\n    FState := Value;\r\n    UpdateState;\r\n  end;\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomToolBarElement.SetVisible(const Value: Boolean);\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCCustomToolBarElement.VisibleChanging;\r\n{$ENDIF}\r\nbegin\r\n  inherited;\r\n  {$IFDEF FMXLIB}\r\n  if Visible <> Value then\r\n  {$ENDIF}\r\n    UpdateToolBar;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarElement.UpdateState;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarElement.UpdateToolBar;\r\nbegin\r\n  if Assigned(OnUpdateToolBar) and not FBlockUpdate then\r\n    OnUpdateToolBar(Self);\r\nend;\r\n\r\n{ TTMSFNCToolBarControl }\r\n\r\nconstructor TTMSFNCToolBarControl.Create;\r\nbegin\r\n  FBitmap := TTMSFNCBitmap.Create;\r\nend;\r\n\r\ndestructor TTMSFNCToolBarControl.Destroy;\r\nbegin \r\n  FBitmap.Free;\r\n  inherited;\r\nend;\r\n\r\n{ TTMSFNCCustomToolBarOptionsMenu }\r\n\r\nprocedure TTMSFNCCustomToolBarOptionsMenu.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCCustomToolBarOptionsMenu then\r\n  begin\r\n    FShowItemText := (Source as TTMSFNCCustomToolBarOptionsMenu).ShowItemText;\r\n    FShowItemBitmap := (Source as TTMSFNCCustomToolBarOptionsMenu).ShowItemBitmap;\r\n    FShowButton := (Source as TTMSFNCCustomToolBarOptionsMenu).ShowButton;\r\n    FAutoItemBitmapWidth := (Source as TTMSFNCCustomToolBarOptionsMenu).AutoItemBitmapWidth;\r\n    FItemBitmapWidth := (Source as TTMSFNCCustomToolBarOptionsMenu).ItemBitmapWidth;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCCustomToolBarOptionsMenu.Create(\r\n  AOwner: TTMSFNCCustomToolBar);\r\nbegin\r\n  FOwner := AOwner;\r\n  FShowItemText := True;\r\n  FShowButton := True;\r\n  FShowItemBitmap := True;\r\n  FAutoItemBitmapWidth := True;\r\n  FItemBitmapWidth := 50;\r\nend;\r\n\r\ndestructor TTMSFNCCustomToolBarOptionsMenu.Destroy;\r\nbegin\r\n\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCCustomToolBarOptionsMenu.IsItemBitmapWidthStored: Boolean;\r\nbegin\r\n  Result := ItemBitmapWidth <> 50;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarOptionsMenu.SetAutoItemBitmapWidth(\r\n  const Value: Boolean);\r\nbegin\r\n  if FAutoItemBitmapWidth <> Value then\r\n  begin\r\n    FAutoItemBitmapWidth := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarOptionsMenu.SetItemBitmapWidth(\r\n  const Value: Single);\r\nbegin\r\n  if FItemBitmapWidth <> Value then\r\n  begin\r\n    FItemBitmapWidth := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarOptionsMenu.SetShowButton(const Value: Boolean);\r\nbegin\r\n  if FShowButton <> Value then\r\n  begin\r\n    FShowButton := Value;\r\n    FOwner.FOptionsMenuButton.Visible := FShowButton;\r\n    if FShowButton then\r\n      FOwner.FOptionsMenuButton.Parent := FOwner\r\n    else\r\n      FOwner.FOptionsMenuButton.Parent := nil;\r\n\r\n    FOwner.UpdateControls;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarOptionsMenu.SetShowItemBitmap(\r\n  const Value: Boolean);\r\nbegin\r\n  if FShowItemBitmap <> Value then\r\n  begin\r\n    FShowItemBitmap := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomToolBarOptionsMenu.SetShowItemText(const Value: Boolean);\r\nbegin\r\n  if FShowItemText <> Value then\r\n  begin\r\n    FShowItemText := Value;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCToolBarFontNamePicker }\r\n\r\nconstructor TTMSFNCToolBarFontNamePicker.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  AutoOptionsMenuText := 'Font Name';\r\n  TTMSFNCUtils.GetFonts(FItems);\r\n  {$IFDEF LCLLIB}\r\n  FItems.Insert(0, 'Default');\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCToolBarFontNamePicker.DoItemSelected;\r\nbegin\r\n  inherited;\r\n  if Assigned(OnFontNameSelected) then\r\n    OnFontNameSelected(Self, SelectedFontName);\r\nend;\r\n\r\nfunction TTMSFNCToolBarFontNamePicker.GetSelectedFontName: String;\r\nbegin\r\n  Result := GetSelectedItem;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarFontNamePicker.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClass(TTMSFNCToolBarFontNamePicker);\r\nend;\r\n\r\nprocedure TTMSFNCToolBarFontNamePicker.SetSelectedFontName(const Value: String);\r\nbegin\r\n  SelectedItem := Value;\r\nend;\r\n\r\n{ TTMSFNCToolBarFontNamePicker }\r\n\r\nconstructor TTMSFNCToolBarFontSizePicker.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  AutoOptionsMenuText := 'Font Size';\r\n  FItems.Add('8');\r\n  FItems.Add('9');\r\n  FItems.Add('10');\r\n  FItems.Add('11');\r\n  FItems.Add('12');\r\n  FItems.Add('14');\r\n  FItems.Add('16');\r\n  FItems.Add('18');\r\n  FItems.Add('20');\r\n  FItems.Add('22');\r\n  FItems.Add('24');\r\n  FItems.Add('26');\r\n  FItems.Add('28');\r\n  FItems.Add('36');\r\n  FItems.Add('48');\r\n  FItems.Add('72');\r\nend;\r\n\r\nprocedure TTMSFNCToolBarFontSizePicker.DoItemSelected;\r\nbegin\r\n  inherited;\r\n  if Assigned(OnFontSizeSelected) then\r\n    OnFontSizeSelected(Self, SelectedFontSize);\r\nend;\r\n\r\nfunction TTMSFNCToolBarFontSizePicker.GetSelectedFontSize: Single;\r\nvar\r\n  s: String;\r\nbegin\r\n  Result := -1;\r\n  s := GetSelectedItem;\r\n  if s <> '' then\r\n    Result := StrToFloat(GetSelectedItem)\r\nend;\r\n\r\nprocedure TTMSFNCToolBarFontSizePicker.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClass(TTMSFNCToolBarFontSizePicker);\r\nend;\r\n\r\nprocedure TTMSFNCToolBarFontSizePicker.SetSelectedFontSize(const Value: Single);\r\nbegin\r\n  SelectedItem := FloatToStr(Value);\r\nend;\r\n\r\n{ TTMSFNCToolBarColorPicker }\r\n\r\nfunction TTMSFNCToolBarColorPicker.BlockChange: Boolean;\r\nbegin\r\n  Result := FColorSelector.BlockChange;\r\nend;\r\n\r\nfunction TTMSFNCToolBarColorPicker.CanChangeText: Boolean;\r\nbegin\r\n  Result := not (csLoading in ComponentState) and not (csDesigning in ComponentState);\r\nend;\r\n\r\nprocedure TTMSFNCToolBarColorPicker.ColorSelected(Sender: TObject;\r\n  AColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  if CloseOnSelection and not BlockChange then\r\n    CloseDropDown;\r\n  DoColorSelected(AColor);\r\n  Invalidate;\r\nend;\r\n\r\nfunction TTMSFNCToolBarColorPicker.ColorSelector: TTMSFNCColorSelector;\r\nbegin\r\n  Result := FColorSelector;\r\nend;\r\n\r\nconstructor TTMSFNCToolBarColorPicker.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  Width := 40;\r\n  Height := 24;\r\n  AutoOptionsMenuText := 'Color';\r\n  FColorSelector := TTMSFNCColorSelector.Create(Self);\r\n  FColorSelector.Appearance.HorizontalSpacing := 2;\r\n  FColorSelector.Appearance.VerticalSpacing := 2;\r\n  FColorSelector.Mode := csmExtended;\r\n  FColorSelector.Width := 175;\r\n  FColorSelector.Height := 125;\r\n  FColorSelector.Stored := False;\r\n  FColorSelector.SelectedColor := gcBlack;\r\n  FColorSelector.OnColorSelected := ColorSelected;\r\n\r\n  DropDownControl := FColorSelector;\r\n  DropDownWidth := FColorSelector.Width;\r\n  DropDownHeight := FColorSelector.Height;\r\n  DropDownKind := ddkDropDownButton;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarColorPicker.DoColorSelected(AColor: TTMSFNCGraphicsColor);\r\nbegin\r\n  if Assigned(OnColorSelected) then\r\n    OnColorSelected(Self, AColor);\r\nend;\r\n\r\nprocedure TTMSFNCToolBarColorPicker.DrawColor(AColor: TTMSFNCGraphicsColor;\r\n  ARect: TRectF; AGraphics: TTMSFNCGraphics);\r\nvar\r\n  r: TRectF;\r\n  rounding: integer;\r\n  I, J: Integer;\r\n  st: TTMSFNCGraphicsSaveState;\r\nbegin\r\n  R := ARect;\r\n\r\n  rounding := Round(Max(ScalePaintValue(3.5), Appearance.Rounding / 4));\r\n\r\n  InflateRectEx(R, -rounding, -rounding);\r\n  OffsetRectEx(R, ScalePaintValue(0.5), ScalePaintValue(0.5));\r\n  st := AGraphics.SaveState;\r\n  try\r\n    AGraphics.ClipRect(R);\r\n    AGraphics.Stroke.Kind := gskNone;\r\n    AGraphics.Fill.Kind := gfkSolid;\r\n    AGraphics.Stroke.Width := 1;\r\n    AGraphics.Fill.Color := MakeGraphicsColor(255, 255, 255);\r\n    AGraphics.DrawRectangle(R);\r\n    AGraphics.Fill.Color := MakeGraphicsColor(211 , 211 , 211 );\r\n    for I := 0 to Trunc((r.Right - r.Left) / 5) + 1 do\r\n      for J := 0 to Trunc((r.Bottom - r.Top) / 5) + 1 do\r\n        if Odd(I + J) then\r\n          AGraphics.DrawRectangle(RectF(I * 5, J * 5, (I + 1) * 5, (J + 1) * 5), gcrmNone);\r\n\r\n    AGraphics.Fill.Kind := gfkSolid;\r\n    AGraphics.Fill.Color := AColor;\r\n    AGraphics.Stroke.Color := gcBlack;\r\n    AGraphics.Stroke.Kind := gskSolid;\r\n    AGraphics.DrawRectangle(R);\r\n  finally\r\n    AGraphics.RestoreState(st);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarColorPicker.DrawSelectedColor(\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nvar\r\n  R: TRectF;\r\n  c: TTMSFNCGraphicsColor;\r\n  ct: TTMSFNCToolBarDropDownButton;\r\nbegin\r\n  ct := GetDropDownButtonControl;\r\n  if Assigned(ct) then\r\n  begin\r\n    R := RectF(0, 0, Width - ct.Width, Height);\r\n    c := SelectedColor;\r\n    DrawColor(c, r, AGraphics);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCToolBarColorPicker.GetItems: TTMSFNCColorSelectorItems;\r\nbegin\r\n  Result := FColorSelector.Items;\r\nend;\r\n\r\nfunction TTMSFNCToolBarColorPicker.GetSelectedColor: TTMSFNCGraphicsColor;\r\nbegin\r\n  Result := FColorSelector.SelectedColor;\r\nend;\r\n\r\nfunction TTMSFNCToolBarColorPicker.GetSelectedItemIndex: Integer;\r\nbegin\r\n  Result := FColorSelector.SelectedItemIndex;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarColorPicker.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClass(TTMSFNCToolBarColorPicker);\r\nend;\r\n\r\nprocedure TTMSFNCToolBarColorPicker.Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nbegin\r\n  inherited;\r\n  DrawSelectedColor(AGraphics, ARect);\r\nend;\r\n\r\nprocedure TTMSFNCToolBarColorPicker.SetAdaptToStyle(const Value: Boolean);\r\nbegin\r\n  inherited;\r\n  if Assigned(FColorSelector) then\r\n    FColorSelector.AdaptToStyle := AdaptToStyle;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarColorPicker.SetItems(\r\n  const Value: TTMSFNCColorSelectorItems);\r\nbegin\r\n  FColorSelector.Items.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCToolBarColorPicker.SetSelectedColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  FColorSelector.SelectedColor := Value;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarColorPicker.SetSelectedItemIndex(const Value: Integer);\r\nbegin\r\n  FColorSelector.SelectedItemIndex := Value;\r\n  Invalidate;\r\nend;\r\n\r\n{ TTMSFNCToolBarBitmapPicker }\r\n\r\nfunction TTMSFNCToolBarBitmapPicker.BitmapSelector: TTMSFNCBitmapSelector;\r\nbegin\r\n  Result := FBitmapSelector;\r\nend;\r\n\r\nfunction TTMSFNCToolBarBitmapPicker.BlockChange: Boolean;\r\nbegin\r\n  Result := FBitmapSelector.BlockChange;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarBitmapPicker.BitmapSelected(Sender: TObject;\r\n  ABitmap: TTMSFNCBitmap);\r\nbegin\r\n  Bitmaps.Clear;\r\n  DisabledBitmaps.Clear;\r\n  HoverBitmaps.Clear;\r\n  Bitmaps.AddBitmap(ABitmap);\r\n  DisabledBitmaps.AddBitmap(ABitmap);\r\n  HoverBitmaps.AddBitmap(ABitmap);\r\n\r\n  if CloseOnSelection and not BlockChange then\r\n    CloseDropDown;\r\n  DoBitmapSelected(ABitmap);\r\nend;\r\n\r\nfunction TTMSFNCToolBarBitmapPicker.CanChangeText: Boolean;\r\nbegin\r\n  Result := not (csLoading in ComponentState) and not (csDesigning in ComponentState);\r\nend;\r\n\r\nconstructor TTMSFNCToolBarBitmapPicker.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  Width := 40;\r\n  Height := 24;\r\n  AutoOptionsMenuText := 'Bitmap';\r\n  FBitmapSelector := TTMSFNCBitmapSelector.Create(Self);\r\n  FBitmapSelector.Appearance.HorizontalSpacing := 2;\r\n  FBitmapSelector.Appearance.VerticalSpacing := 2;\r\n  FBitmapSelector.Stored := False;\r\n  FBitmapSelector.OnBitmapSelected := BitmapSelected;\r\n\r\n  DropDownControl := FBitmapSelector;\r\n  DropDownWidth := FBitmapSelector.Width;\r\n  DropDownHeight := FBitmapSelector.Height;\r\n  DropDownKind := ddkDropDownButton;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarBitmapPicker.DoBitmapSelected(ABitmap: TTMSFNCBitmap);\r\nbegin\r\n  if Assigned(OnBitmapSelected) then\r\n    OnBitmapSelected(Self, ABitmap);\r\nend;\r\n\r\nfunction TTMSFNCToolBarBitmapPicker.GetBitmapRect(ARect: TRectF): TRectF;\r\nvar\r\n  r: TRectF;\r\n  dr: TRectf;\r\nbegin\r\n  r := ARect;\r\n  Result := RectF(r.Left, r.Top, r.Right, r.Bottom);\r\n  if BitmapVisible then\r\n  begin\r\n    if DropDownKind <> ddkNormal then\r\n    begin\r\n      dr := GetDropDownRect;\r\n      case DropDownPosition of\r\n        ddpRight: Result := RectF(Result.Left + 3, Result.Top + 3, dr.Left - 3, Result.Bottom - 3);\r\n        ddpBottom: Result := RectF(Result.Left + 3, Result.Top + 3, Result.Right - 3, dr.Top - 3);\r\n      end;\r\n    end\r\n    else\r\n      Result := RectF(Result.Left + 3, Result.Top + 3, Result.Right - 3, Result.Bottom - 3);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCToolBarBitmapPicker.GetItems: TTMSFNCBitmapSelectorItems;\r\nbegin\r\n  Result := FBitmapSelector.Items;\r\nend;\r\n\r\nfunction TTMSFNCToolBarBitmapPicker.GetSelectedBitmap: TTMSFNCBitmap;\r\nbegin\r\n  Result := FBitmapSelector.SelectedBitmap;\r\nend;\r\n\r\nfunction TTMSFNCToolBarBitmapPicker.GetSelectedItemIndex: Integer;\r\nbegin\r\n  Result := FBitmapSelector.SelectedItemIndex;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarBitmapPicker.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClass(TTMSFNCToolBarBitmapPicker);\r\nend;\r\n\r\nprocedure TTMSFNCToolBarBitmapPicker.SetAdaptToStyle(const Value: Boolean);\r\nbegin\r\n  inherited;\r\n  if Assigned(FBitmapSelector) then\r\n    FBitmapSelector.AdaptToStyle := AdaptToStyle;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarBitmapPicker.SetBitmapContainer(\r\n  const Value: TTMSFNCBitmapContainer);\r\nbegin\r\n  inherited;\r\n  if Assigned(FBitmapSelector) then\r\n    FBitmapSelector.BitmapContainer := Value;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarBitmapPicker.SetItems(\r\n  const Value: TTMSFNCBitmapSelectorItems);\r\nbegin\r\n  if Assigned(FBitmapSelector) then\r\n    FBitmapSelector.Items.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCToolBarBitmapPicker.SetSelectedItemIndex(const Value: Integer);\r\nbegin\r\n  FBitmapSelector.SelectedItemIndex := Value;\r\n  Bitmaps.Clear;\r\n  DisabledBitmaps.Clear;\r\n  HoverBitmaps.Clear;\r\n  Bitmaps.AddBitmap(SelectedBitmap);\r\n  DisabledBitmaps.AddBitmap(SelectedBitmap);\r\n  HoverBitmaps.AddBitmap(SelectedBitmap);\r\n  Invalidate;\r\nend;\r\n\r\n{ TTMSFNCToolBarDropDownButton }\r\n\r\nconstructor TTMSFNCToolBarDropDownButton.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FDefaultStyle := True;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarDropDownButton.DrawBitmap(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF);\r\nvar\r\n  bmp: TTMSFNCBitmapHelperClass;\r\n  bmpa: TBitmap;\r\n  r: TRectF;\r\n  g: TTMSFNCGraphics;\r\nbegin\r\n  if DefaultStyle then\r\n  begin\r\n    r := ARect;\r\n\r\n    if not(Assigned(Owner) and (Owner is TTMSFNCCustomToolBarButton) and ((Owner as TTMSFNCCustomToolBarButton).FDropDownPosition = ddpBottom)) then\r\n      InflateRectEx(r, ScalePaintValue(-2),ScalePaintValue(-2));\r\n\r\n    inherited DrawBitmap(AGraphics, r);\r\n  end\r\n  else\r\n  begin\r\n    bmpa := TBitmap.Create;\r\n    bmpa.SetSize(7, 7);\r\n    {$IFDEF CMNLIB}\r\n    bmpa.TransparentMode := tmFixed;\r\n    bmpa.Transparent := True;\r\n    bmpa.TransparentColor := gcWhite;\r\n    {$ENDIF}\r\n    g := TTMSFNCGraphics.Create(bmpa.Canvas);\r\n    try\r\n      g.BeginScene;\r\n      {$IFDEF CMNLIB}\r\n      g.Fill.Color := gcWhite;\r\n      g.Fill.Kind := gfkSolid;\r\n      g.Stroke.Kind := gskSolid;\r\n      g.Stroke.Color := gcWhite;\r\n      g.DrawRectangle(0, 0, bmpa.Width, bmpa.Height);\r\n      {$ENDIF}\r\n      g.Stroke.Kind := gskSolid;\r\n      g.Stroke.Color := gcDarkgray;\r\n      g.DrawLine(PointF(0, 1), PointF(6, 1), gcpmRightDown);\r\n      g.DrawLine(PointF(0, 2), PointF(6, 2), gcpmRightDown);\r\n      g.DrawLine(PointF(1, 3), PointF(5, 3), gcpmRightDown);\r\n      g.DrawLine(PointF(2, 4), PointF(4, 4), gcpmRightDown);\r\n      g.DrawLine(PointF(3, 5), PointF(3, 5), gcpmRightDown);\r\n    finally\r\n      g.EndScene;\r\n      g.Free;\r\n    end;\r\n\r\n    try\r\n      r := ARect;\r\n      bmp := TTMSFNCBitmap.Create;\r\n      try\r\n        bmp.Assign(bmpa);\r\n        AGraphics.DrawBitmap(r, bmp);\r\n      finally\r\n        bmp.Free;\r\n      end;\r\n    finally\r\n      bmpa.Free;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCToolBarDropDownButton.GetBitmapRect(ARect: TRectF): TRectF;\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  r := ARect;\r\n  Result := RectF(r.Left + 3, r.Top + 3, r.Right - 3, r.Bottom - 3);\r\nend;\r\n\r\nprocedure TTMSFNCToolBarDropDownButton.LoadSettingsFromFile(AFileName: string);\r\nbegin\r\n  inherited;\r\n  DefaultStyle := False;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarDropDownButton.LoadSettingsFromStream(\r\n  AStream: TStream);\r\nbegin\r\n  inherited;\r\n  DefaultStyle := False;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarDropDownButton.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClass(TTMSFNCToolBarDropDownButton);\r\nend;\r\n\r\nprocedure TTMSFNCToolBarDropDownButton.SetDefaultStyle(const Value: Boolean);\r\nbegin\r\n  if FDefaultStyle <> Value then\r\n  begin\r\n    FDefaultStyle := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCToolBarCustomItemPicker }\r\n\r\nfunction TTMSFNCToolBarCustomItemPicker.CanChangeText: Boolean;\r\nbegin\r\n  Result := not (csLoading in ComponentState) and not (csDesigning in ComponentState);\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomItemPicker.ChangeDPIScale(M, D: Integer);\r\nbegin\r\n  inherited;\r\n  {$IFDEF CMNLIB}\r\n  FItemSelector.Font.Height := TTMSFNCUtils.MulDivInt(FItemSelector.Font.Height, M, D);\r\n  FItemSelector.ItemHeight := TTMSFNCUtils.MulDivInt(FItemSelector.ItemHeight, M, D);\r\n  {$ENDIF}\r\nend;\r\n\r\nconstructor TTMSFNCToolBarCustomItemPicker.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FTimer := TTimer.Create(Self);\r\n  FTimer.Interval := 1;\r\n  FTimer.OnTimer := EnterTimerChanged;\r\n  FTimer.Enabled := False;\r\n\r\n  FEdit := TEdit.Create(Self);\r\n  FEdit.TabStop := True;\r\n  {$IFDEF FMXLIB}\r\n  FEdit.Align := TAlignLayout.Client;\r\n  FEdit.Stored := False;\r\n  FEdit.OnChangeTracking := EditChange;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  FEdit.Align := alClient;\r\n  FEdit.OnChange := @EditChange;\r\n  {$ENDIF}\r\n\r\n  Width := 100;\r\n  Height := 24;\r\n  HorizontalTextAlign := gtaLeading;\r\n  FItemIndex := -1;\r\n\r\n  FItemSelector := TListBox.Create(Self);\r\n  FItemSelector.Width := 200;\r\n  FItemSelector.Height := 150;\r\n  {$IFDEF LCLLIB}\r\n  FItemSelector.ClickOnSelChange := False;\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  FItemSelector.Align := TAlignLayout.Client;\r\n  FItemSelector.OnItemClick := ItemSelected;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  FItemSelector.Font.Height := -11;\r\n  FItemSelector.Align := alClient;\r\n  FItemSelector.OnClick := ItemSelected;\r\n  {$ENDIF}\r\n\r\n  FItemSelector.OnKeyUp := @ItemKeyUp;\r\n  FItemSelector.OnKeyDown := @ItemKeyDown;\r\n\r\n  DropDownControl := FItemSelector;\r\n  DropDownKind := ddkDropDownButton;\r\n  DropDownWidth := FItemSelector.Width;\r\n  DropDownHeight := FItemSelector.Height;\r\n\r\n  FItems := TStringList.Create;\r\nend;\r\n\r\ndestructor TTMSFNCToolBarCustomItemPicker.Destroy;\r\nbegin\r\n  FTimer.Free;\r\n  FItems.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomItemPicker.DoEnter;\r\nbegin\r\n  inherited;\r\n  FTimer.Enabled := Editable;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomItemPicker.DoItemSelected;\r\nbegin\r\n  if Assigned(FEdit) {$IFDEF CMNWEBLIB} and FEdit.HandleAllocated{$ENDIF} then\r\n  begin\r\n    FEdit.Text := SelectedItem;\r\n    FEdit.SelStart := Length(FEdit.Text);\r\n  end;\r\n\r\n  if Assigned(OnItemSelected) then\r\n    OnItemSelected(Self, SelectedItemIndex);\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomItemPicker.Draw(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF);\r\nbegin\r\n  if not Editable then\r\n    inherited;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomItemPicker.DropDown;\r\nbegin\r\n  inherited;\r\n  if not Assigned(FPopup) then\r\n    Exit;\r\n\r\n  {$IFDEF CMNLIB}\r\n  if Assigned(FItemSelector) then\r\n    FItemSelector.Font.Height := ScalePaintValue(-11);\r\n  {$ENDIF}\r\n\r\n  if FPopup.IsOpen and Assigned(FItemSelector) then\r\n  begin\r\n    FItemSelector.ItemIndex := -1;\r\n    FItemSelector.ItemIndex := SelectedItemIndex;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomItemPicker.EditChange(Sender: TObject);\r\nbegin\r\n  SelectedItem := FEdit.Text;\r\n  if Assigned(OnEditChange) then\r\n    OnEditChange(Self);\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomItemPicker.EnterTimerChanged(Sender: TObject);\r\nbegin\r\n  FEdit.SetFocus;\r\n  FTimer.Enabled := False;\r\nend;\r\n\r\nfunction TTMSFNCToolBarCustomItemPicker.GetSelectedItem: String;\r\nbegin\r\n  Result := '';\r\n  if Assigned(FItems) and (FItemIndex >= 0) and (FItemIndex <= FItems.Count - 1) then\r\n    Result := FItems[FItemIndex]\r\nend;\r\n\r\nfunction TTMSFNCToolBarCustomItemPicker.GetSelectedItemIndex: Integer;\r\nbegin\r\n  Result := FItemIndex;\r\nend;\r\n\r\nfunction TTMSFNCToolBarCustomItemPicker.GetText: String;\r\nbegin\r\n  if Editable then\r\n    Result := FEdit.Text\r\n  else\r\n    Result := SelectedItem;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomItemPicker.HandleDialogKey(var Key: Word;\r\n  Shift: TShiftState);\r\nbegin\r\n  inherited;\r\n  if Shift <> [] then\r\n    Exit;\r\n\r\n  if Editable and FEdit.IsFocused then\r\n  begin\r\n    case Key of\r\n      KEY_F4:\r\n      begin\r\n        if not (ssAlt in Shift) then\r\n          DropDown;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomItemPicker.InitializePopup;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  FItemSelector.BeginUpdate;\r\n  {$ENDIF}\r\n  FItemSelector.Items.Clear;\r\n  FItemSelector.Items.Assign(FItems);\r\n  FItemSelector.ItemIndex := FItemIndex;\r\n  {$IFDEF FMXLIB}\r\n  FItemSelector.EndUpdate;\r\n  {$ENDIF}\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCToolBarCustomItemPicker.ItemKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCToolBarCustomItemPicker.ItemKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);\r\n{$ENDIF}\r\nbegin\r\n  FKeyboardUsed := True;\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCToolBarCustomItemPicker.ItemKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCToolBarCustomItemPicker.ItemKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);\r\n{$ENDIF}\r\nbegin\r\n  if (Key = KEY_RETURN) or (Key = KEY_SPACE) then\r\n  begin\r\n    FItemIndex := FItemSelector.ItemIndex;\r\n    if CloseOnSelection then\r\n      DropDown;\r\n\r\n    DoItemSelected;\r\n    Invalidate;\r\n  end;\r\n\r\n  FKeyBoardUsed := False;\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCToolBarCustomItemPicker.ItemSelected(const Sender: TCustomListBox; const Item: TListBoxItem);\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCToolBarCustomItemPicker.ItemSelected(Sender: TObject);\r\n{$ENDIF}\r\nbegin\r\n  if FKeyBoardUsed then\r\n    Exit;\r\n\r\n  FItemIndex := FItemSelector.ItemIndex;\r\n  if CloseOnSelection then\r\n    DropDown;\r\n\r\n  DoItemSelected;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomItemPicker.SelectFirstValue;\r\nbegin\r\n  inherited;\r\n  FItemIndex := 0;\r\n  DoItemSelected;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomItemPicker.SelectLastValue;\r\nbegin\r\n  inherited;\r\n  FItemIndex := FItems.Count - 1;\r\n  DoItemSelected;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomItemPicker.SelectNextValue;\r\nbegin\r\n  inherited;\r\n  if FItemIndex = -1 then\r\n    FItemIndex := 0\r\n  else\r\n    FItemIndex := Min(FItems.Count - 1, FItemIndex + 1);\r\n\r\n  DoItemSelected;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomItemPicker.SelectPreviousValue;\r\nbegin\r\n  inherited;\r\n  if FItemIndex = -1 then\r\n    FItemIndex := 0\r\n  else\r\n    FItemIndex := Max(0, FItemIndex - 1);\r\n\r\n  DoItemSelected;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomItemPicker.SelectValueWithCharacter(\r\n  ACharacter: Char);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  inherited;\r\n  for I := 0 to Items.Count - 1 do\r\n  begin\r\n    if TTMSFNCUtils.MatchStrEx(ACharacter + '*', Items[I], False) then\r\n    begin\r\n      FItemIndex := I;\r\n      DoItemSelected;\r\n      Invalidate;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomItemPicker.SelectValueWithString(AValue: string);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  inherited;\r\n  for I := 0 to Items.Count - 1 do\r\n  begin\r\n    if TTMSFNCUtils.MatchStrEx(AValue + '*', Items[I], False) then\r\n    begin\r\n      FItemIndex := I;\r\n      DoItemSelected;\r\n      Invalidate;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomItemPicker.SetEditable(const Value: Boolean);\r\nbegin\r\n  if FEditable <> Value then\r\n  begin\r\n    FEditable := Value;\r\n    if Assigned(FEdit) then\r\n    begin\r\n      if FEditable then\r\n      begin\r\n        FEdit.Parent := Self;\r\n      end\r\n      else\r\n        FEdit.Parent := nil;\r\n\r\n      FEdit.Visible := FEditable;\r\n    end;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomItemPicker.SetItems(const Value: TStringList);\r\nbegin\r\n  FItems.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomItemPicker.SetSelectedItem(const Value: String);\r\nbegin\r\n  FItemIndex := FItems.IndexOf(Value);\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCToolBarCustomItemPicker.SetSelectedItemIndex(\r\n  const Value: Integer);\r\nbegin\r\n  FItemIndex := Value;\r\n  Invalidate;\r\nend;\r\n\r\n{ TTMSFNCToolBarButton }\r\n\r\nprocedure TTMSFNCToolBarButton.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClass(TTMSFNCToolBarButton);\r\nend;\r\n\r\n{ TTMSFNCToolBarSeparator }\r\n\r\nprocedure TTMSFNCToolBarSeparator.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClass(TTMSFNCToolBarSeparator);\r\nend;\r\n\r\n{ TTMSFNCToolBar }\r\n\r\nprocedure TTMSFNCToolBar.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClass(TTMSFNCToolBar);\r\nend;\r\n\r\n{$IFDEF WEBLIB}\r\nfunction TTMSFNCToolBarControlObjectList.GetItem(\r\n  Index: Integer): TTMSFNCToolBarControl;\r\nbegin\r\n  Result := TTMSFNCToolBarControl(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCToolBarControlObjectList.SetItem(Index: Integer; const Value: TTMSFNCToolBarControl);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nfunction TTMSFNCToolBarControlList.GetItem(\r\n  Index: Integer): TTMSFNCToolBarControl;\r\nbegin\r\n  Result := TTMSFNCToolBarControl(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCToolBarControlList.SetItem(Index: Integer; const Value: TTMSFNCToolBarControl);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nfunction TTMSFNCControlList.GetItem(Index: Integer): TControl;\r\nbegin\r\n  Result := TControl(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCControlList.SetItem(Index: Integer; const Value: TControl);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n{$ENDIF}\r\n\r\ninitialization\r\n  RegisterClass(TTMSFNCToolBarButton);\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCBitmap.CreateFromResource(TMSFNCTOOLBAREXPANDSVG);\r\n  {$ENDIF}\r\n\r\nend.\r\n","{********************************************************************}\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2016 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : https://www.tmssoftware.com                       }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCEdit;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF CMNLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n\r\n{$IFDEF FMXLIB}\r\n{$IFDEF ANDROID}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 33}\r\n{$DEFINE CUSTOMMODEL}\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, WEBLib.TMSFNCToolBar, {%H-}WEBLib.TMSFNCToolBarRes, WEBLib.TMSFNCCustomControl, WEBLib.TMSFNCTypes,\r\n  WEBLib.TMSFNCPopup, WEBLib.ExtCtrls, WEBLib.StdCtrls, WEBLib.Graphics, WEBLib.Controls, WEBLib.TMSFNCGraphicsTypes,\r\n  WEBLib.TMSFNCBitmapContainer\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.ListBox, FMX.Edit, FMX.Types\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  ,UITypes, Generics.Collections\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,web\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  {$IFDEF CUSTOMMODEL}\r\n  ,WEBLib.Controls.Model\r\n  {$ENDIF}\r\n  ;\r\n\r\nconst\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 0; // Minor version nr.\r\n  REL_VER = 4; // Release nr.\r\n  BLD_VER = 1; // Build nr.\r\n\r\n  // version history\r\n  // v1.0.0.0 : first release\r\n  // v1.0.0.1 : Fixed: Issue with typing '-' with signedfloat when text is selected\r\n  // v1.0.0.2 : Fixed: Issue with etSignedNumeric handling\r\n  // v1.0.1.0 : New : UseValueList boolean to switch between Value and Display list when using the lookup functionality\r\n  // v1.0.2.0 : New : MinimumWidth and MinimumHeight properties to defined lookup dropdown minimum size\r\n  //          : Fixed : Issue with escape and exiting control closing lookup window\r\n  // v1.0.2.1 : Fixed : Issue with calculating size of lookup items\r\n  // v1.0.2.2 : Fixed : Issue selecting lookup item entry with mouse\r\n  // v1.0.2.3 : Fixed : Issue with lookup on RAD Studio 10.2 Tokyo\r\n  // v1.0.2.4 : Improved : DisplayLookup method to display all values from the displaylist\r\n  // v1.0.2.5 : New : LiveBindings Support\r\n  // v1.0.2.6 : Fixed : Issue with binding only working on Windows\r\n  // v1.0.2.7 : Fixed : Issue with copy & paste actions on VCL\r\n  // v1.0.2.8 : Fixed : Behaviour of closing popup when focusing other control and moving parent form\r\n  // v1.0.2.9 : Fixed : Issue with editing on TMS WEB Core\r\n  // v1.0.2.10: Fixed : Issue with signed / unsigned numeric and thousand separators.\r\n  // v1.0.2.11: Fixed : Issue with float type precision.\r\n  // v1.0.2.12: Fixed : Issue with autocomplete and special characters\r\n  // v1.0.3.0 : New : Support for high dpi\r\n  // v1.0.3.1 : Fixed : Issue with etSignedNumeric type\r\n  // v1.0.3.2 : Improved : Accepting negative money numbers\r\n  // v1.0.3.3 : Fixed : Issue parsing negative money numbers upon exiting\r\n  // v1.0.3.4 : Fixed : Lookup value not correctly updated in OnLookupNeedData event in VCL\r\n  // v1.0.3.5 : Fixed : Issue pasting values\r\n  // v1.0.3.6 : Fixed : Registered TTMSFNCEditButton to be observable\r\n  // v1.0.3.7 : Fixed : Issue with Ctrl key not being processed\r\n  // v1.0.3.8 : Improved : Auto separators, key handling and caret position in TMS WEB Core\r\n  // v1.0.3.9 : Fixed : StyleElements property not found in TMS WEB Core\r\n  // v1.0.4.0 : Fixed : Issue with Money edit and formatting\r\n  // v1.0.4.1 : Improved : Typing etFloat, etSignedFloat, etSignedNumeric and etMoney values\r\n\r\nconst\r\n  LOOKUPITEMHEIGHT = 18;\r\n\r\ntype\r\n  TTMSFNCEditType = (etString, etNumeric, etSignedNumeric, etFloat, etSignedFloat, etUpperCase, etMixedCase, etLowerCase,\r\n    etMoney, etHex, etAlphaNumeric, etValidChars);\r\n\r\n  TTMSFNCEditPrecisionDisplay = (pdNormal, pdShortest);\r\n\r\n  TTMSFNCEdit = class;\r\n\r\n  TTMSFNCEditLookupSettings = class(TPersistent)\r\n  private\r\n    FDisplayList: TStringList;\r\n    FValueList: TStringList;\r\n    FDisplayCount: Integer;\r\n    FColor: TTMSFNCGraphicsColor;\r\n    FEnabled: Boolean;\r\n    FNumChars: Integer;\r\n    FCaseSensitive: Boolean;\r\n    FHistory: Boolean;\r\n    FMulti: Boolean;\r\n    FSeparator: char;\r\n    FAcceptOnTab: Boolean;\r\n    FWidth: Integer;\r\n    FHeight: Integer;\r\n    FUseValueList: Boolean;\r\n    FMinimumWidth: Integer;\r\n    FMinimumHeight: Integer;\r\n    procedure SetDisplayList(const Value: TStringList);\r\n    procedure SetValueList(const Value: TStringList);\r\n    procedure SetNumChars(const Value: Integer);\r\n    procedure SetHeight(const Value: Integer);\r\n    procedure SetWidth(const Value: Integer);\r\n    procedure SetMinimumHeight(const Value: Integer);\r\n    procedure SetMinimumWidth(const Value: Integer);\r\n  protected\r\n    property AcceptOnTab: boolean read FAcceptOnTab write FAcceptOnTab default False;\r\n    property Color: TTMSFNCGraphicsColor read FColor write FColor default gcWhite;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property CaseSensitive: Boolean read FCaseSensitive write FCaseSensitive default False;\r\n    property DisplayCount: Integer read FDisplayCount write FDisplayCount default 4;\r\n    property DisplayList: TStringList read FDisplayList write SetDisplayList;\r\n    property Enabled: Boolean read FEnabled write FEnabled default False;\r\n    property History: Boolean read FHistory write FHistory default False;\r\n    property NumChars: Integer read FNumChars write SetNumChars default 2;\r\n    property ValueList: TStringList read FValueList write SetValueList;\r\n    property Multi: Boolean read FMulti write FMulti default False;\r\n    property Separator: char read FSeparator write FSeparator;\r\n    property Width: Integer read FWidth write SetWidth default 0;\r\n    property Height: Integer read FHeight write SetHeight default 0;\r\n    property MinimumWidth: Integer read FMinimumWidth write SetMinimumWidth default 0;\r\n    property MinimumHeight: Integer read FMinimumHeight write SetMinimumHeight default 0;\r\n    property UseValueList: Boolean read FUseValueList write FUseValueList default True;\r\n  end;\r\n\r\n  TTMSFNCEditLookupSelectEvent = procedure(Sender: TObject; var Value: string) of object;\r\n  TTMSFNCEditLookupIndexSelectEvent = procedure(Sender: TObject; Index: Integer; var Value: string) of object;\r\n  TTMSFNCEditLookupNeedDataEvent = procedure(Sender: TObject; Value: string; List: TStrings; var ItemIndex: integer) of object;\r\n\r\n  TTMSFNCEditHexCharacterArray = array of char;\r\n\r\n  TTMSFNCLookupListBoxItem = class\r\n  private\r\n    FIdx: Integer;\r\n  public\r\n    constructor Create(AIdx: Integer);\r\n    property Idx: Integer read FIdx;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCLookupList = class(TList);\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCLookupList = class(TList<TTMSFNCLookupListBoxItem>);\r\n  {$ENDIF}\r\n\r\n  {$IFDEF CUSTOMMODEL}\r\n  TTMSFNCCustomEditModel = class(TCustomEditModel)\r\n  private\r\n    FEdit: TTMSFNCEdit;\r\n  protected\r\n    procedure DoChange; override;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCEdit = class(TCustomEdit)\r\n  private\r\n    FLookupListBoxItems: TTMSFNCLookupList;\r\n    {$IFDEF WEBLIB}\r\n    FStyleElements: TStyleElements;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    FAllowFocus: Boolean;\r\n    {$ENDIF}\r\n    {$IFDEF FMXLIB}\r\n    FDoneLookupTimer: TTimer;\r\n    {$ENDIF}\r\n    {$IFDEF VCLLIB}\r\n    FInitialize: Boolean;\r\n    {$ENDIF}\r\n    FLookupFormTimer: TTimer;\r\n    FKeyDown: Word;\r\n    FShiftState: TShiftState;\r\n    FEditType: TTMSFNCEditType;\r\n    FValidChars: string;\r\n    FLookupList: TTMSFNCPopup;\r\n    FLookupListBox: TListBox;\r\n    FLookup: TTMSFNCEditLookupSettings;\r\n    FOnLookupSelect: TTMSFNCEditLookupSelectEvent;\r\n    FOnLookupIndexSelect: TTMSFNCEditLookupIndexSelectEvent;\r\n    FSigned: Boolean;\r\n    FPrefix: string;\r\n    FSuffix: string;\r\n    FIsModified: Boolean;\r\n    FLengthLimit: smallint;\r\n    FFullTextSearch: boolean;\r\n    FAutoThousandSeparator: Boolean;\r\n    FPrecision: smallint;\r\n    FPrecisionDisplay: TTMSFNCEditPrecisionDisplay;\r\n    FBlockChange: Boolean;\r\n    FAllowNumericNullValue: Boolean;\r\n    FAutoComplete: Boolean;\r\n    FOnCloseWithEscape: TNotifyEvent;\r\n    FOnLookupNeedData: TTMSFNCEditLookupNeedDataEvent;\r\n    FAutoClose: Boolean;\r\n    FOnLookupClose: TNotifyEvent;\r\n    FOnLookupOpen: TNotifyEvent;\r\n    procedure CloseLookup;\r\n    procedure DoneLookup;\r\n    procedure UpdateAutoComplete;\r\n    procedure SetLookup(const Value: TTMSFNCEditLookupSettings);\r\n    function AllowMin(ch: char): boolean;\r\n    function FixedLength(s: string): Integer;\r\n    procedure SetPrefix(const Value: string);\r\n    procedure SetSuffix(const Value: string);\r\n    procedure SetModified(const Value: Boolean);\r\n    function DecimalPos: Integer;\r\n    procedure AutoSeparators;\r\n    function GetFloat: double;\r\n    procedure SetFloat(const Value: double);\r\n    procedure SetAutoThousandSeparator(const Value: Boolean);\r\n    procedure SetPrecision(const Value: smallint);\r\n    procedure SetPrecisionDisplay(const Value: TTMSFNCEditPrecisionDisplay);\r\n    function EStrToFloat(s: string): extended;\r\n    function GetInt: Integer;\r\n    procedure SetInt(const Value: Integer);\r\n    procedure SetEditType(const Value: TTMSFNCEditType);\r\n    function IsLookupListVisible: Boolean;\r\n    function GetAllowFocus: Boolean;\r\n    procedure SetAllowFocus(const Value: Boolean);\r\n  protected\r\n    procedure SelectAfterDecimal;\r\n    procedure UpdateLookup;\r\n    {$IFDEF WEBLIB}\r\n    class function GetVersionNumber(AMaj, AMin, ARel, ABld: ShortInt): string;\r\n    function Validate(AValue: string): boolean; override;\r\n    {$ENDIF}\r\n    function GetVersion: String; virtual;\r\n    procedure DoLookupFormTimer(Sender: TObject);\r\n    {$IFDEF CUSTOMMODEL}\r\n    function DefineModelClass: TDataModelClass; override;\r\n    {$ENDIF}\r\n    {$IFDEF FMXLIB}\r\n    procedure DoDoneLookupTimer(Sender: TObject);\r\n    function GetDefaultStyleLookupName: string; override;\r\n    {$ENDIF}\r\n    function GetT: string; virtual;\r\n    function GetCaretPosition: Integer; virtual;\r\n    {$IFDEF FMXLIB}\r\n    procedure Change; virtual;\r\n    {$ENDIF}\r\n    {$IFDEF LCLLIB}\r\n    function ChildClassAllowed(ChildClass: TClass): boolean; override;\r\n    {$ENDIF}\r\n    {$IFDEF VCLLIB}\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION > 30}\r\n    procedure ChangeScale(M, D: Integer; isDpiChange: Boolean); override;\r\n    {$ELSE}\r\n    procedure ChangeScale(M, D: Integer); override;\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n    {$ENDIF}\r\n    procedure CleanupLookupList;\r\n    procedure SetCaretPosition(ACaretPosition: Integer); virtual;\r\n    procedure SetT(const Value: string); virtual;\r\n    procedure InsertText(const AText: string);\r\n    {$IFDEF FMXLIB}\r\n    procedure ListKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);\r\n    procedure ListMouseUp(Sender: TObject; Button: TTMSFNCMouseButton; Shift: TShiftState; X, Y: Single);\r\n    procedure KeyDown(var Key: Word; var KeyChar: WideChar; Shift: TShiftState); override;\r\n    procedure KeyUp(var Key: Word; var KeyChar: WideChar; Shift: TShiftState); override;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    procedure ListKeyUp(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState);\r\n    procedure ListMouseUp(Sender: TObject; {%H-}Button: TTMSFNCMouseButton; {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer);\r\n    procedure KeyPress(var Key: Char); override;\r\n    procedure KeyDown(var Key: Word; Shift: TShiftState); override;\r\n    procedure KeyUp(var Key: Word; Shift: TShiftState); override;\r\n    {$ENDIF}\r\n    procedure DoLookupNeedData(Value: string; List: TStrings; var ItemIndex: integer); virtual;\r\n    procedure DoLookupOpen; virtual;\r\n    procedure DoLookupClose; virtual;\r\n    procedure DoExit; override;\r\n    {$IFDEF WEBLIB}\r\n    function DoHandleChange(Event: TEventListenerEvent): Boolean; override;\r\n    {$ENDIF}\r\n\r\n    property OnCloseWithEscape: TNotifyEvent read FOnCloseWithEscape write FOnCloseWithEscape;\r\n    property Signed: Boolean read FSigned write FSigned default False;\r\n    property Prefix: string read FPrefix write SetPrefix;\r\n    property Suffix: string read FSuffix write SetSuffix;\r\n    property AutoClose: Boolean read FAutoClose write FAutoClose default True;\r\n  public\r\n    function LookupListbox: TListBox;\r\n    function LookupList: TTMSFNCPopup;\r\n    {$IFDEF CMNWEBLIB}\r\n    function CanFocus: Boolean; override;\r\n    {$ENDIF}\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure DisplayLookup;\r\n    property Modified: Boolean read FIsModified write SetModified;\r\n    property FloatValue: double read GetFloat write SetFloat;\r\n    property IntValue: Integer read GetInt write SetInt;\r\n    {$IFNDEF WEBLIB}\r\n    property Action;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    property StyleElements: TStyleElements read FStyleElements write FStyleElements;\r\n    {$ENDIF}\r\n  published\r\n    property AllowFocus: Boolean read GetAllowFocus write SetAllowFocus default True;\r\n    {$IFDEF FMXLIB}\r\n    property Cursor default crIBeam;\r\n    property CanParentFocus;\r\n    property DisableFocusEffect;\r\n    property KeyboardType;\r\n    property ReturnKeyType;\r\n    property Password;\r\n    property ReadOnly;\r\n    property TextSettings;\r\n    property ImeMode;\r\n    property Position;\r\n    property Width;\r\n    property Height;\r\n    property ClipChildren default False;\r\n    property ClipParent default False;\r\n    property DragMode default TDragMode.dmManual;\r\n    property EnableDragHighlight default True;\r\n    property Enabled default True;\r\n    property Locked default False;\r\n    property HitTest default True;\r\n    property Hint;\r\n    property HelpContext;\r\n    property HelpKeyword;\r\n    property HelpType;\r\n    property Padding;\r\n    property Opacity;\r\n    property Margins;\r\n    property PopupMenu;\r\n    property RotationAngle;\r\n    property RotationCenter;\r\n    property Scale;\r\n    {$WARNINGS OFF}\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION > 27}\r\n    property Size;\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n    {$WARNINGS ON}\r\n    property TextPrompt;\r\n    property StyleLookup;\r\n    property StyledSettings;\r\n    property TouchTargetExpansion;\r\n    property Visible default True;\r\n    property Caret;\r\n    property ShowHint;\r\n    property KillFocusByReturn;\r\n    property CheckSpelling;\r\n    property OnChange;\r\n    property OnChangeTracking;\r\n    property OnTyping;\r\n    property OnApplyStyleLookup;\r\n    property OnValidating;\r\n    property OnValidate;\r\n    property OnDragEnter;\r\n    property OnDragLeave;\r\n    property OnDragOver;\r\n    property OnDragDrop;\r\n    property OnDragEnd;\r\n    property OnKeyDown;\r\n    property OnKeyUp;\r\n    property OnCanFocus;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnMouseDown;\r\n    property OnMouseMove;\r\n    property OnMouseUp;\r\n    property OnMouseWheel;\r\n    property OnMouseEnter;\r\n    property OnMouseLeave;\r\n    property OnPainting;\r\n    property OnPaint;\r\n    property OnResize;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    property Align;\r\n    property Alignment;\r\n    property Anchors;\r\n    property AutoSelect;\r\n    property AutoSize;\r\n    property Hint;\r\n    {$IFDEF LCLLIB}\r\n    property BorderSpacing;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    property TextHint;\r\n    {$ENDIF}\r\n    {$IFDEF VCLLIB}\r\n    property BevelEdges;\r\n    property BevelInner;\r\n    property BevelKind default bkNone;\r\n    property BevelOuter;\r\n    property BevelWidth;\r\n    property Ctl3D;\r\n    property ImeMode;\r\n    property ImeName;\r\n    property OEMConvert;\r\n    property ParentCtl3D;\r\n    property ParentDoubleBuffered;\r\n    property TextHint;\r\n    property Touch;\r\n    {$HINTS OFF}\r\n    {$IF COMPILERVERSION > 23}\r\n    property StyleElements;\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n    property OnGesture;\r\n    property OnMouseActivate;\r\n    {$ENDIF}\r\n    {$IFNDEF WEBLIB}\r\n    property BiDiMode;\r\n    {$ENDIF}\r\n    property BorderStyle;\r\n    property Color;\r\n    {$IFNDEF WEBLIB}\r\n    property Constraints;\r\n    {$ENDIF}\r\n    property DoubleBuffered;\r\n    {$IFNDEF WEBLIB}\r\n    property DragCursor;\r\n    property DragKind;\r\n    property DragMode;\r\n    {$ENDIF}\r\n    property Enabled;\r\n    property Font;\r\n    property HideSelection;\r\n    property MaxLength;\r\n    {$IFNDEF WEBLIB}\r\n    property ParentBiDiMode;\r\n    property ParentColor;\r\n    property ParentFont;\r\n    property ParentShowHint;\r\n    {$ENDIF}\r\n    property PasswordChar;\r\n    {$IFNDEF WEBLIB}\r\n    property PopupMenu;\r\n    {$ENDIF}\r\n    property ReadOnly;\r\n    property ShowHint;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property Visible;\r\n    property OnChange;\r\n    property OnClick;\r\n    {$IFNDEF WEBLIB}\r\n    property OnContextPopup;\r\n    {$ENDIF}\r\n    property OnDblClick;\r\n    {$IFNDEF WEBLIB}\r\n    property OnDragDrop;\r\n    property OnDragOver;\r\n    property OnEndDock;\r\n    property OnEndDrag;\r\n    {$ENDIF}\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnKeyDown;\r\n    property OnKeyPress;\r\n    property OnKeyUp;\r\n    property OnMouseDown;\r\n    property OnMouseEnter;\r\n    property OnMouseLeave;\r\n    property OnMouseMove;\r\n    property OnMouseUp;\r\n    {$IFNDEF WEBLIB}\r\n    property OnStartDock;\r\n    property OnStartDrag;\r\n    {$ENDIF}\r\n    {$ENDIF}        \r\n\r\n    property Text: string read GetT write SetT;\r\n    property Version: String read GetVersion;\r\n    property AutoComplete: Boolean read FAutoComplete write FAutoComplete default False;\r\n    property EditType: TTMSFNCEditType read FEditType write SetEditType default etString;\r\n    property Lookup: TTMSFNCEditLookupSettings read FLookup write SetLookup;\r\n    property ValidChars: string read FValidChars write FValidChars;\r\n    property AllowNumericNullValue: Boolean read FAllowNumericNullValue write FAllowNumericNullValue default False;\r\n    property AutoThousandSeparator: Boolean read FAutoThousandSeparator write SetAutoThousandSeparator default True;\r\n    property FullTextSearch: boolean read FFullTextSearch write FFullTextSearch default false;\r\n    property LengthLimit: smallint read FLengthLimit write FLengthLimit default 0;\r\n    property Precision: smallint read FPrecision write SetPrecision default 0;\r\n    property PrecisionDisplay: TTMSFNCEditPrecisionDisplay read FPrecisionDisplay write SetPrecisionDisplay default pdNormal;\r\n    property OnLookupSelect: TTMSFNCEditLookupSelectEvent read FOnLookupSelect write FOnLookupSelect;\r\n    property OnLookupIndexSelect: TTMSFNCEditLookupIndexSelectEvent read FOnLookupIndexSelect write FOnLookupIndexSelect;\r\n    property OnLookupNeedData: TTMSFNCEditLookupNeedDataEvent read FOnLookupNeedData write FOnLookupNeedData;\r\n    property OnLookupOpen: TNotifyEvent read FOnLookupOpen write FOnLookupOpen;\r\n    property OnLookupClose: TNotifyEvent read FOnLookupClose write FOnLookupClose;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCEditButton = class(TTMSFNCCustomControl, ITMSFNCBitmapContainer)\r\n  private\r\n    FBlockDropDown: Boolean;\r\n    FPopup: TTMSFNCPopup;\r\n    FEdit: TTMSFNCEdit;\r\n    FButton: TTMSFNCToolBarDropDownButton;\r\n    FPopupControl: TControl;\r\n    FOnButtonClick: TNotifyEvent;\r\n    FModalPopup: Boolean;\r\n    FBitmap: TTMSFNCBitmap;\r\n    FBitmapName: string;\r\n    FButtonSize: Integer;\r\n    FBitmapContainer: TTMSFNCBitmapContainer;\r\n    procedure SetPopupControl(const Value: TControl);\r\n    function GetText: string;\r\n    procedure SetText(const Value: string);\r\n    function GetBitmapContainer: TTMSFNCBitmapContainer;\r\n    procedure SetBitmap(const Value: TTMSFNCBitmap);\r\n    procedure SetBitmapContainer(const Value: TTMSFNCBitmapContainer);\r\n    procedure SetBitmapName(const Value: String);\r\n    procedure SetButtonSize(const Value: Integer);\r\n  protected\r\n    procedure ChangeDPIScale(M, D: Integer); override;\r\n    procedure SetAdaptToStyle(const Value: Boolean); override;\r\n    procedure BeforeDropDown; virtual;\r\n    procedure Loaded; override;\r\n    {$IFDEF FMXLIB}\r\n    procedure KeyDown(var Key: Word; var KeyChar: WideChar; Shift: TShiftState); override;\r\n    procedure PopupKeyDown(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    procedure KeyDown(var Key: Word; Shift: TShiftState); override;\r\n    procedure PopupKeyDown(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState);\r\n    {$ENDIF}\r\n    procedure Notification(AComponent: TComponent; Operation: TOperation); override;\r\n    procedure ButtonClick(Sender: TObject);\r\n    procedure ButtonDblClick(Sender: TObject);\r\n    procedure BitmapChanged(Sender: TObject);\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure DropDown; virtual;\r\n    property Popup: TTMSFNCPopup read FPopup write FPopup;\r\n    property Button: TTMSFNCToolBarDropDownButton read FButton;\r\n    property Edit: TTMSFNCEdit read FEdit;\r\n    property ModalPopup: Boolean read FModalPopup write FModalPopup default False;\r\n  published\r\n    property BitmapContainer: TTMSFNCBitmapContainer read GetBitmapContainer write SetBitmapContainer;\r\n    property Bitmap: TTMSFNCBitmap read FBitmap write SetBitmap;\r\n    property BitmapName: String read FBitmapName write SetBitmapName;\r\n    property ButtonSize: Integer read FButtonSize write SetButtonSize default 18;\r\n    property PopupControl: TControl read FPopupControl write SetPopupControl;\r\n    property OnButtonClick: TNotifyEvent read FOnButtonClick write FOnButtonClick;\r\n  published\r\n    property Text: string read GetText write SetText;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  SysUtils, Types, WEBLib.TMSFNCUtils, Math\r\n  {$IFNDEF LCLLIB}\r\n  {$IFNDEF WEBLIB}\r\n  ,Data.Bind.Components\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCEditAutoType = (atNumeric, atFloat, atString, atDate, atTime, atHex);\r\n  TTMSFNCPopupOpen = class(TTMSFNCPopup);\r\n\r\nfunction CheckTerminator(ch: char): boolean;\r\nbegin\r\n  Result := CharInArray(ch, [' ', ',', '.', '/', '\\', ':', '*', '$', '-', '(', ')', '[', ']', '\"','''','&']);\r\nend;\r\n\r\nfunction ShiftCase(AName: string): string;\r\nvar\r\n  I, L: Integer;\r\n  NewName: string;\r\n  First: Boolean;\r\nbegin\r\n  First := true;\r\n  NewName := AName;\r\n  L := Length(AName);\r\n\r\n  {$IFDEF ZEROSTRINGINDEX}\r\n  for I := 0 to L - 1 do\r\n  {$ELSE}\r\n  for I := 1 to L do\r\n  {$ENDIF}\r\n  begin\r\n    if CheckTerminator(NewName[I]) then\r\n      First := true\r\n    else\r\n      if First then\r\n      begin\r\n        NewName[I] := AnsiUpperCase(AName)[I];\r\n        First := false;\r\n      end\r\n      else\r\n        NewName[I] := AnsiLowerCase(AName)[I];\r\n\r\n    if (Copy(NewName, 1, I) = 'Mc') or (Copy(NewName, 1, I) = 'Mac') or\r\n      ((Pos(' Mc', NewName) = I - 2) and (I > 2)) or\r\n      ((I > L - 3) and ((Copy(NewName, I - 1, 2) = ' I') or\r\n      (Copy(NewName, I - 2, 3) = ' II'))) then\r\n      First := true;\r\n  end;\r\n  Result := NewName;\r\nend;\r\n\r\nfunction IsType(s: string): TTMSFNCEditAutoType;\r\nvar\r\n  i: Integer;\r\n  isI, isF, isH: Boolean;\r\n  th, de, mi: Integer;\r\nbegin\r\n  Result := atString;\r\n\r\n  isI := true;\r\n  isF := true;\r\n  isH := true;\r\n\r\n  if s = '' then\r\n  begin\r\n    isI := false;\r\n    isF := false;\r\n    isH := false;\r\n  end;\r\n\r\n  th := -1; de := 0; mi := 0;\r\n\r\n  {$IFDEF ZEROSTRINGINDEX}\r\n  for i := 0 to Length(s) - 1 do\r\n  {$ELSE}\r\n  for i := 1 to Length(s) do\r\n  {$ENDIF}\r\n  begin\r\n\r\n    if not CharIsNumber(s[i]) then\r\n      isI := False;\r\n    if not CharIsNumber(s[i]) and not CharInArray(s[i], ['.',',']) then\r\n      isF := False;\r\n    if not CharIsNumber(s[i]) and not CharIsLetter(s[i]) then\r\n      isH := False;\r\n\r\n    if (s[i] = FormatSettings.ThousandSeparator) and (i - th < 3) then isF := false;\r\n    if s[i] = FormatSettings.ThousandSeparator then th := i;\r\n    if s[i] = FormatSettings.DecimalSeparator then inc(de);\r\n    if s[i] = '-' then inc(mi);\r\n  end;\r\n\r\n  if isH and not isI then\r\n    Result := atHex;\r\n\r\n  if isI then\r\n    Result := atNumeric\r\n  else\r\n  begin\r\n    if isF then\r\n      Result := atFloat;\r\n  end;\r\n\r\n  if (mi > 1) or (de > 1) then\r\n    Result := atString;\r\nend;\r\n\r\nfunction HexToInt(s: string): Integer;\r\nvar\r\n  i: Integer;\r\n  r, m: Integer;\r\n\r\n  function CharVal(c: char): Integer;\r\n  begin\r\n    Result := 0;\r\n    if ((c >= '0') and (c <= '9')) then Result := ord(c) - ord('0');\r\n    if ((c >= 'A') and (c <= 'F')) then Result := ord(c) - ord('A') + 10;\r\n    if ((c >= 'a') and (c <= 'f')) then Result := ord(c) - ord('a') + 10;\r\n  end;\r\n\r\nbegin\r\n  r := 0;\r\n  m := 1;\r\n  {$IFDEF FMXMOBILE}\r\n  for i := Length(s) - 1 downto 0 do\r\n  {$ELSE}\r\n  for i := Length(s) downto 1 do\r\n  {$ENDIF}\r\n  begin\r\n    r := r + m * CharVal(s[i]);\r\n    m := m shl 4;\r\n  end;\r\n  Result := r;\r\nend;\r\n\r\nfunction ValStr(s: string): Integer;\r\nvar\r\n  {%H-}err: Integer;\r\nbegin\r\n  val(s, result, err);\r\nend;\r\n\r\nfunction CleanString(s: string): string;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  i := pos(#13, s);\r\n  if i > 0 then\r\n    delete(s, i, 1);\r\n  i := pos(#10, s);\r\n  if i > 0 then\r\n    delete(s, i, 1);\r\n  i := pos(#11, s);\r\n  if i > 0 then\r\n    delete(s, i, 1);\r\n\r\n  Result := s;\r\nend;\r\n\r\n{ TTMSFNCEdit }\r\n\r\n{$IFDEF WEBLIB}\r\nfunction TTMSFNCEdit.Validate(AValue: string): boolean;\r\nvar\r\n  i: integer;\r\n  kch: char;\r\n  isValid: boolean;\r\nbegin\r\n  inherited;\r\n  Result := true;\r\n\r\n  for i := 1 to Length(AValue) do\r\n  begin\r\n    kch := AValue[i];\r\n    isValid := True;\r\n\r\n    case FEditType of\r\n      etNumeric:\r\n        begin\r\n          if not CharIsNumber(kch) then\r\n            isValid := False;\r\n        end;\r\n      etFloat:\r\n        begin\r\n          if not (CharIsNumber(kch) or (kch = FormatSettings.DecimalSeparator)) then\r\n            isValid := False;\r\n        end;\r\n      etSignedFloat, etSignedNumeric:\r\n        begin\r\n          if not (CharInArray(kch, ['-']) or CharIsNumber(kch) or (kch = FormatSettings.DecimalSeparator)) then\r\n            isValid := False;\r\n        end;\r\n      etMoney:\r\n        begin\r\n          if not (CharIsNumber(kch) or (kch = FormatSettings.DecimalSeparator) or (kch = FormatSettings.ThousandSeparator)) then\r\n            isValid := False;\r\n        end;\r\n      etHex:\r\n        begin\r\n          if not CharIsHex(kch) then\r\n            isValid := False;\r\n        end;\r\n      etAlphaNumeric:\r\n        begin\r\n          if not CharIsLetterOrNumber(kch) then\r\n            isValid := False;\r\n        end;\r\n    end;\r\n\r\n    if not isValid then\r\n    begin\r\n      Result := false;\r\n      break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCEdit.GetVersionNumber(AMaj, AMin, ARel, ABld: ShortInt): string;\r\nbegin\r\n  Result := '';\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TTMSFNCEdit.GetVersion: String;\r\nbegin\r\n  Result := GetVersionNumber(MAJ_VER, MIN_VER, REL_VER, BLD_VER);\r\nend;\r\n\r\n{$IFDEF CMNWEBLIB}\r\nfunction TTMSFNCEdit.CanFocus: Boolean;\r\nbegin\r\n  Result := inherited CanFocus;\r\n  Result := Result and AllowFocus;\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TTMSFNCEdit.GetAllowFocus: Boolean;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Result := CanFocus;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  Result := FAllowFocus;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCEdit.SelectAfterDecimal;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  i := Pos(FormatSettings.DecimalSeparator, self.Text);\r\n  if (i > 0) then\r\n    SelStart := i + Length(FPrefix)\r\n  else\r\n    SelStart := Length(FPrefix);\r\nend;\r\n\r\nprocedure TTMSFNCEdit.SetAllowFocus(const Value: Boolean);\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  CanFocus := Value;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  FAllowFocus := Value;\r\n  {$ENDIF}\r\nend;\r\n\r\nconstructor TTMSFNCEdit.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FAutoClose := True;\r\n  {$IFDEF CMNWEBLIB}\r\n  FAllowFocus := True;\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  AutoCompletion := acNone;\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  FDoneLookupTimer := TTimer.Create(Self);\r\n  FDoneLookupTimer.OnTimer := DoDoneLookupTimer;\r\n  FDoneLookupTimer.Enabled := False;\r\n  FDoneLookupTimer.Interval := 1;\r\n  {$ENDIF}\r\n  FLookupFormTimer := TTimer.Create(Self);\r\n  FLookupFormTimer.OnTimer := DoLookupFormTimer;\r\n  FLookupFormTimer.Enabled := False;\r\n  FLookupFormTimer.Interval := 1;\r\n  FAutoThousandSeparator := True;\r\n  FLengthLimit := 0;\r\n  FAutoComplete := False;\r\n  FLookup := TTMSFNCEditLookupSettings.Create;\r\n\r\n  FLookupListBoxItems := TTMSFNCLookupList.Create;\r\n\r\n  FLookupList := TTMSFNCPopup.Create(Self);\r\n  FLookupList.StaysOpen := True;\r\n\r\n  FLookupListBox := TListBox.Create(Self);\r\n  {$IFDEF LCLLIB}\r\n  FLookupListBox.ClickOnSelChange := False;\r\n  {$ENDIF}\r\n  FLookupListBox.ItemHeight := LOOKUPITEMHEIGHT;\r\n  FLookupListBox.OnKeyUp := @ListKeyUp;\r\n  FLookupListBox.OnMouseUp := ListMouseUp;\r\n  {$IFDEF FMXLIB}\r\n  FLookupListBox.Align := TAlignLayout.Client;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  FLookupListBox.Visible := False;\r\n  FLookupListBox.Align := alClient;\r\n  {$IFDEF VCLLIB}\r\n  FInitialize := True;\r\n  {$ELSE}\r\n  AutoSize := False;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  FLookupList.ContentControl := FLookupListBox;\r\n  FLookupList.FocusedControl := Self;\r\n\r\n  {$IFDEF CUSTOMMODEL}\r\n  if Model is TTMSFNCCustomEditModel then\r\n    (Model as TTMSFNCCustomEditModel).FEdit := Self;\r\n  {$ENDIF}\r\nend;\r\n\r\ndestructor TTMSFNCEdit.Destroy;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  FDoneLookupTimer.Free;\r\n  {$ENDIF}\r\n  FLookupFormTimer.Free;\r\n  FLookup.Free;\r\n  CleanupLookupList;\r\n\r\n  if Assigned(FLookupListBox) then\r\n  begin\r\n    FLookupListBox.Free;\r\n    FLookupListBox := nil;\r\n  end;\r\n\r\n  FLookupListBoxItems.Free;\r\n\r\n  if Assigned(FLookupList) then\r\n  begin\r\n    FLookupList.Free;\r\n    FLookupList := nil;\r\n  end;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCEdit.DisplayLookup;\r\nvar\r\n  i, cnt: Integer;\r\n  mw, mh, tw: Integer;\r\n  LookupText: string;\r\n  idx: Integer;\r\n  obj: TTMSFNCLookupListBoxItem;\r\nbegin\r\n  if not Assigned(FLookup) or not FLookup.Enabled or not Assigned(FLookupListBox) then\r\n    Exit;\r\n\r\n  mh := (LOOKUPITEMHEIGHT * FLookup.DisplayCount) + 4;\r\n  FLookupListBox.Parent := Self;\r\n  CleanupLookupList;\r\n  FLookupListBox.Items.Clear;\r\n  {$IFDEF FMXLIB}\r\n  FLookupListBox.NeedStyleLookup;\r\n  FLookupListBox.ApplyStyleLookup;\r\n  FLookupListBox.BeginUpdate;\r\n  {$ENDIF}\r\n\r\n  for i := 1 to FLookup.DisplayList.Count do\r\n  begin\r\n    obj := TTMSFNCLookupListBoxItem.Create(i - 1);\r\n    FLookupListbox.Items.AddObject(CleanString(FLookup.FDisplayList.Strings[i - 1]), obj);\r\n    FLookupListBoxItems.Add(obj);\r\n  end;\r\n\r\n  idx := 0;\r\n  DoLookupNeedData(LookupText, FLookupListBox.Items, idx);\r\n  cnt := FLookupListBox.Items.Count;\r\n\r\n  {$IFDEF FMXLIB}\r\n  FLookupListBox.EndUpdate;\r\n  {$ENDIF}\r\n\r\n  if (FLookup.FDisplayList.Count > 0) and (FLookupListBox.Items.Count > 0) then\r\n    FLookupListBox.ItemIndex := idx;\r\n\r\n  if cnt < FLookup.DisplayCount then\r\n    mh := (cnt * LOOKUPITEMHEIGHT) + 4;\r\n\r\n  FLookupListBox.Sorted := True;\r\n  mw := 50;\r\n  FLookupList.DropDownWidth := 0;\r\n\r\n  if cnt > 0 then\r\n  begin\r\n    for i := 1 to cnt do\r\n    begin\r\n      tw := 0;\r\n      if Assigned(FLookupListBox.Canvas) then\r\n        tw := Round(FLookupListBox.Canvas.TextWidth(FLookupListBox.Items[i - 1]));\r\n\r\n      if tw > mw then\r\n        mw := tw;\r\n    end;\r\n\r\n    mw := mw + 26;\r\n  end;\r\n\r\n  if (FLookup.Width > 0) then\r\n    mw := FLookup.Width;\r\n\r\n  if (FLookup.Height > 0) then\r\n    mh := FLookup.Height;\r\n\r\n  FLookupList.PlacementControl := Self;\r\n\r\n  if (cnt > 0) then\r\n  begin\r\n    FLookupList.DropDownWidth := Max(Lookup.MinimumWidth, mw);\r\n    FLookupList.DropDownHeight := Max(Lookup.MinimumHeight, mh);\r\n    if FLookupList.HasPopupForm then\r\n    begin\r\n      FLookupListBox.Parent := FLookupList.PopupForm;\r\n      FLookupList.PopupForm.Width := Round(FLookupList.DropDownWidth);\r\n      FLookupList.PopupForm.Height := Round(FLookupList.DropDownHeight);\r\n    end;\r\n    if not FLookupList.IsOpen then\r\n      DoLookupOpen;\r\n    FLookupList.IsOpen := True;\r\n    FLookupFormTimer.Enabled := AutoClose;\r\n  end\r\n  else\r\n  begin\r\n    if FLookupList.IsOpen then\r\n      DoLookupClose;\r\n    FLookupList.IsOpen := False;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCEdit.DoExit;\r\nvar\r\n  TT: string;\r\n  OldModified: Boolean;\r\nbegin\r\n  inherited;\r\n  if (csLoading in ComponentState) or (csDestroying in ComponentState) then\r\n    Exit;\r\n\r\n  if (FPrecision >= 0) and (EditType in [etFloat, etSignedFloat, etMoney]) then\r\n  begin\r\n    if (self.Text <> '') or not FAllowNumericNullValue then\r\n    begin\r\n      OldModified := Modified;\r\n      Floatvalue := self.Floatvalue;\r\n      Modified := OldModified;\r\n    end;\r\n  end;\r\n\r\n  if (EditType in [etNumeric, etSignedNumeric]) and (Self.Text = '') and not FAllowNumericNullValue then\r\n    Text := '0';\r\n\r\n  if (EditType in [etFloat, etSignedFloat, etMoney]) and (Self.Text = '') and not FAllowNumericNullValue  then\r\n    Floatvalue := 0.0;\r\n\r\n  TT := Trim(Text);\r\n  if FLookup.Enabled and FLookup.History and (TT <> '') then\r\n  begin\r\n    if FLookup.DisplayList.IndexOf(TT) = -1 then\r\n      FLookup.DisplayList.Add(TT);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCEdit.InsertText(const AText: string);\r\nvar\r\n  TmpS: string;\r\nbegin\r\n  if ReadOnly then\r\n    Exit;\r\n\r\n  TmpS := Text;\r\n  System.Delete(TmpS, SelStart + 1, SelLength);\r\n  System.Insert(AText, TmpS, SelStart + 1);\r\n  if (MaxLength <= 0) or (Length(TmpS) <= MaxLength) then\r\n  begin\r\n    Text := TmpS;\r\n    SetCaretPosition(SelStart + Length(AText));\r\n  end;\r\n  SelLength := 0;\r\nend;\r\n\r\nfunction TTMSFNCEdit.IsLookupListVisible: Boolean;\r\nbegin\r\n  Result := Assigned(FLookupList) and FLookupList.IsOpen;\r\nend;\r\n\r\nprocedure TTMSFNCEdit.SetT(const Value: string);\r\nvar\r\n  fmt, neg: string;\r\n  f: extended;\r\n  v: string;\r\nbegin\r\n  v := Value;\r\n  if not ((v = '') and AllowNumericNullValue) then\r\n  begin\r\n    case FEditType of\r\n      etFloat: if not (IsType(v) in [atFloat, atNumeric]) then v := '0';\r\n      etMoney: if not (IsType(v) in [atFloat, atNumeric]) then v := '0';\r\n      etHex: if not (IsType(v) in [atHex, atNumeric]) then v := '0';\r\n      etNumeric: if not (IsType(v) in [atNumeric]) then v := '0';\r\n    end;\r\n\r\n    if (PrecisionDisplay = pdNormal) then\r\n    begin\r\n      if ((FPrecision >= 0) or (FEditType = etMoney)) and (v <> '') then\r\n      begin\r\n        if (FEditType in [etMoney]) and (FPrecision >= 0) then\r\n        begin\r\n          if (Pos('-', value) > 0) then neg := '-' else neg := '';\r\n          fmt := '%.' + IntToStr(FPrecision) + 'n';\r\n          v := Format(fmt, [EStrToFloat(v)]);\r\n        end;\r\n\r\n        if (FEditType in [etFloat, etSignedFloat]) then\r\n        begin\r\n          fmt := '%.' + inttostr(FPrecision) + 'f';\r\n          f := EStrToFloat(v);\r\n          v := Format(fmt, [f]);\r\n        end;\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      if (FEditType in [etFloat, etMoney, etSignedFloat]) then\r\n      begin\r\n        f := EStrToFloat(v);\r\n        v := Format('%g', [f]);\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  if (FEditType in [etHex, etUpperCase]) then\r\n    v := AnsiUpperCase(v)\r\n  else if FEditType in [etLowerCase] then\r\n    v := AnsiLowerCase(v);\r\n\r\n  {$IFDEF WEBLIB}\r\n  inherited SetText(FPrefix + v + FSuffix);\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  inherited Text := FPrefix + v + FSuffix;\r\n  {$ENDIF}\r\n\r\n  SetModified(False);\r\nend;\r\n\r\n{$IFDEF CUSTOMMODEL}\r\nfunction TTMSFNCEdit.DefineModelClass: TDataModelClass;\r\nbegin\r\n  Result := TTMSFNCCustomEditModel;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCEdit.DoDoneLookupTimer(Sender: TObject);\r\nbegin\r\n  DoneLookup;\r\n  FDoneLookupTimer.Enabled := False;\r\nend;\r\n\r\nfunction TTMSFNCEdit.GetDefaultStyleLookupName: string;\r\nbegin\r\n  Result := 'editstyle';\r\nend;\r\n{$ENDIF}\r\n\r\nfunction StripThousandSep(s: string): string;\r\nbegin\r\n  while (Pos(FormatSettings.ThousandSeparator, s) > 0) do\r\n    Delete(s, Pos(FormatSettings.ThousandSeparator, s), 1);\r\n  Result := s;\r\nend;\r\n\r\nfunction TTMSFNCEdit.FixedLength(s: string): Integer;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  s := StripThousandSep(s);\r\n  i := Pos(FormatSettings.decimalseparator, s);\r\n  if (i > 0) then Result := i else Result := Length(s) + 1;\r\n\r\n  if Signed and (EditType in [etFloat, etSignedFloat, etNumeric, etSignedNumeric, etMoney]) and (pos('-',s) > 0) then\r\n    Result := Result - 1;\r\nend;\r\n\r\nfunction TTMSFNCEdit.AllowMin(ch: char): boolean;\r\nbegin\r\n  Result := Signed and (EditType in [etFloat, etSignedFloat, etNumeric, etSignedNumeric, etMoney]) and (ch = '-');\r\nend;\r\n\r\n{$IFDEF WEBLIB}\r\nfunction TTMSFNCEdit.DoHandleChange(Event: TEventListenerEvent): Boolean;\r\nbegin\r\n  inherited;\r\n\r\n  if (EditType = etMoney) then\r\n    AutoSeparators;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCEdit.KeyDown(var Key: Word; var KeyChar: WideChar; Shift: TShiftState);\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCEdit.KeyDown(var Key: Word; Shift: TShiftState);\r\nbegin\r\n  inherited;\r\n  FKeyDown := Key;\r\n  FShiftState := Shift;\r\n end;\r\n\r\nprocedure TTMSFNCEdit.KeyPress(var Key: Char);\r\n{$ENDIF}\r\nvar\r\n  oldSelStart, oldprec: Integer;\r\n  s, cl, st: string;\r\n  allowclip: boolean;\r\n  at: TTMSFNCEditAutoType;\r\n  ismod: Boolean;\r\n  d: Integer;\r\n  kch: Char;\r\n\r\n  function ScanPrecision(s: string; inspos: Integer): Boolean;\r\n  var\r\n    mdist: Integer;\r\n  begin\r\n    Result := false;\r\n    inspos := inspos - Length(FPrefix);\r\n    if FPrecision <= 0 then Exit;\r\n\r\n    if (Length(s) - inspos > FPrecision) then\r\n    begin\r\n      Result := false;\r\n      exit;\r\n    end;\r\n\r\n    if (Pos(FormatSettings.DecimalSeparator, s) > 0) then\r\n    begin\r\n      mdist := Length(s) - Pos(FormatSettings.DecimalSeparator, s);\r\n      if (inspos >= Pos(FormatSettings.DecimalSeparator, s)) and (mdist >= FPrecision) then\r\n        Result := true;\r\n    end;\r\n  end;\r\n\r\n  function ScanDistance(s: string; inspos: Integer): Boolean;\r\n  var\r\n    mdist: Integer;\r\n  begin\r\n    Result := false;\r\n    inspos := inspos - Length(FPrefix);\r\n    mdist := Length(s);\r\n\r\n    if (Pos(FormatSettings.ThousandSeparator, s) = 0) then\r\n    begin\r\n      Result := false;\r\n      Exit;\r\n    end;\r\n\r\n    while (Pos(FormatSettings.ThousandSeparator, s) > 0) do\r\n    begin\r\n      if abs(Pos(FormatSettings.ThousandSeparator, s) - inspos) < mdist then mdist := abs(Pos(FormatSettings.ThousandSeparator, s) - inspos);\r\n      if (abs(Pos(FormatSettings.ThousandSeparator, s) - inspos) < 3) then\r\n      begin\r\n        Result := true;\r\n        break;\r\n      end;\r\n\r\n      if inspos > Pos(FormatSettings.ThousandSeparator, s) then inspos := inspos - Pos(FormatSettings.ThousandSeparator, s);\r\n      delete(s, 1, Pos(FormatSettings.ThousandSeparator, s));\r\n    end;\r\n\r\n    if (mdist > 3) then\r\n    begin\r\n      Result := true;\r\n    end;\r\n  end;\r\n\r\n  procedure EatKey;\r\n  begin\r\n    {$IFDEF FMXLIB}\r\n    KeyChar := #0;\r\n    if not (Key in [KEY_UP, KEY_DOWN]) then\r\n      Key := 0;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    if not (FKeyDown in [KEY_UP, KEY_DOWN]) then\r\n      Key := #0;\r\n    {$ENDIF}\r\n  end;\r\n\r\nbegin\r\n  if not Assigned(FLookupListBox) then\r\n  begin\r\n    inherited;\r\n    Exit;\r\n  end;\r\n\r\n  {$IFDEF FMXLIB}\r\n  s := KeyChar;\r\n  kch := KeyChar;\r\n  FKeyDown := Key;\r\n  FShiftState := Shift;\r\n  {$ELSE}\r\n  s := Key;\r\n  kch := Key;\r\n  {$ENDIF}\r\n\r\n  if (FKeyDown = KEY_MENU) or (FKeyDown = KEY_ESCAPE) then\r\n  begin\r\n    CloseLookup;\r\n  end;\r\n\r\n  if (FKeyDown = KEY_BACK) and (FPrefix <> '') then\r\n    if (SelStart <= Length(FPrefix)) and (SelLength = 0) then Exit;\r\n\r\n  if (FLengthLimit > 0) and (FixedLength(self.Text) > FLengthLimit) and\r\n    (SelLength = 0) and (SelStart < DecimalPos) and (FKeyDown <> KEY_BACK) and (FKeyDown <> ord(FormatSettings.decimalseparator{$IFDEF WEBLIB}[0]{$ENDIF})) and not AllowMin(kch) then\r\n    begin\r\n      EatKey;\r\n      Exit;\r\n    end;\r\n\r\n  if (FKeyDown in [KEY_HOME, KEY_END, KEY_TAB, KEY_LEFT, KEY_RIGHT, KEY_PRIOR, KEY_NEXT, KEY_DELETE, KEY_BACK]) then\r\n  begin\r\n    if (FKeyDown = KEY_BACK) then\r\n    begin\r\n      s := self.Text;\r\n\r\n      if SelLength = 0 then\r\n        delete(s, SelStart - Length(fprefix), 1)\r\n      else\r\n        delete(s, Max(1, SelStart - Length(fprefix)), SelLength);\r\n\r\n      ismod := (s <> Text) or Modified;\r\n      Modified := ismod;\r\n\r\n      inherited;\r\n\r\n      if (EditType = etMoney) then\r\n        AutoSeparators;\r\n\r\n      if (Text = '') and ((s <> '') or ismod) then\r\n      begin\r\n        Change;\r\n      end;\r\n\r\n      Modified := ismod;\r\n\r\n      UpdateLookup;\r\n      Exit;\r\n    end\r\n    else\r\n    begin\r\n      if (FKeyDown in [KEY_HOME, KEY_END, KEY_TAB, KEY_LEFT, KEY_RIGHT, KEY_PRIOR, KEY_NEXT]) then\r\n      begin\r\n        if AutoComplete and (SelLength > 0) and IsLookupListVisible then\r\n          CloseLookup;\r\n      end;\r\n      st := Self.Text;\r\n      inherited;\r\n      if Self.Text <> st then\r\n        Modified := True;\r\n    end;\r\n\r\n    Exit;\r\n  end;\r\n\r\n  if (FKeyDown = KEY_RETURN) and IsLookupListVisible then\r\n  begin\r\n    inherited;\r\n    DoneLookup;\r\n    Exit;\r\n  end;\r\n\r\n  if (FKeyDown in [KEY_TAB, KEY_RETURN, KEY_ESCAPE]) {and IsCtrl} then\r\n  begin\r\n    inherited;\r\n    Exit;\r\n  end;\r\n\r\n  if (FKeyDown = KEY_HOME) and IsLookupListVisible then\r\n  begin\r\n    if FLookupListBox.Items.Count > 0 then\r\n      FLookupListBox.ItemIndex := 0\r\n    else\r\n      FLookupListBox.ItemIndex := -1;\r\n    Exit;\r\n  end;\r\n\r\n  if (FKeyDown = KEY_END) and IsLookupListVisible then\r\n  begin\r\n    if FLookupListBox.Items.Count > 0 then\r\n      FLookupListBox.ItemIndex := FLookupListBox.Items.Count - 1\r\n    else\r\n      FLookupListBox.ItemIndex := -1;\r\n    Exit;\r\n  end;\r\n\r\n  if (FKeyDown = KEY_NEXT) and IsLookupListVisible then\r\n  begin\r\n    if FLookupListBox.Items.Count > 0 then\r\n    begin\r\n      if FLookupListBox.ItemIndex + FLookup.DisplayCount < FLookupListBox.Items.Count then\r\n        FLookupListBox.ItemIndex := FLookupListBox.ItemIndex + FLookup.DisplayCount\r\n      else\r\n        FLookupListBox.ItemIndex := FLookupListBox.Items.Count - 1;\r\n    end\r\n    else\r\n      FLookupListBox.ItemIndex := -1;\r\n    Exit;\r\n  end;\r\n\r\n  if (FKeyDown = KEY_PRIOR) and IsLookupListVisible then\r\n  begin\r\n    if FLookupListBox.Items.Count > 0 then\r\n    begin\r\n      if FLookupListBox.ItemIndex > FLookup.DisplayCount then\r\n        FLookupListBox.ItemIndex := FLookupListBox.ItemIndex - FLookup.DisplayCount\r\n      else\r\n        FLookupListBox.ItemIndex := 0;\r\n    end\r\n    else\r\n      FLookupListBox.ItemIndex := -1;\r\n    Exit;\r\n  end;\r\n\r\n  if (FKeyDown = KEY_UP) and IsLookupListVisible then\r\n  begin\r\n    if FLookupListBox.Items.Count > 0 then\r\n    begin\r\n      if FLookupListBox.ItemIndex > 0 then\r\n        FLookupListBox.ItemIndex := FLookupListBox.ItemIndex - 1;\r\n    end\r\n    else\r\n      FLookupListBox.ItemIndex := -1;\r\n\r\n    inherited;\r\n    Exit;\r\n  end;\r\n\r\n  if (FKeyDown = KEY_DOWN) and IsLookupListVisible then\r\n  begin\r\n    if FLookupListBox.Items.Count > 0 then\r\n    begin\r\n      if FLookupListBox.ItemIndex + 1 < FLookupListBox.Items.Count then\r\n        FLookupListBox.ItemIndex := FLookupListBox.ItemIndex + 1;\r\n    end\r\n    else\r\n      FLookupListBox.ItemIndex := -1;\r\n\r\n    inherited;\r\n    Exit;\r\n  end;\r\n\r\n  if (FKeyDown = KEY_ESCAPE) and IsLookupListVisible then\r\n  begin\r\n    CloseLookup;\r\n    Exit;\r\n  end;\r\n\r\n  if (FKeyDown = KEY_DELETE) and (SelStart >= Length(FPrefix)) then\r\n  begin\r\n    s := self.text;\r\n    if SelLength = 0 then\r\n      Delete(s, SelStart - Length(fprefix) + 1, 1)\r\n    else\r\n      Delete(s, SelStart - Length(fprefix) + 1, SelLength);\r\n\r\n    if (lengthlimit > 0) and (fixedLength(s) - 1 > lengthlimit) then\r\n    begin\r\n      EatKey;\r\n      exit;\r\n    end;\r\n    SetModified(true);\r\n  end;\r\n\r\n  if (MaxLength > 0) and (SelLength = 0) and (Length(Text) >= MaxLength) then\r\n    Exit;\r\n\r\n  if (fPrefix <> '') and (SelStart < Length(fPrefix)) then\r\n    SelStart := Length(fPrefix);\r\n\r\n  if (FShiftState = [ssCtrl]) then\r\n  begin\r\n    if FKeyDown = Ord('V') then\r\n    begin    \r\n      cl := TTMSFNCClipBoard.GetText;\r\n      at := IsType(cl);\r\n\r\n      allowclip := true;\r\n\r\n      case FEditType of\r\n        etNumeric: allowclip := at = atNumeric;\r\n        etSignedNumeric: allowclip := at = atNumeric;\r\n        etFloat, etSignedFloat: allowclip := at = atFloat;\r\n        etUpperCase: cl := AnsiUpperCase(cl);\r\n        etMixedCase: cl := Shiftcase(cl);\r\n        etLowerCase: cl := AnsiLowercase(cl);\r\n        etMoney: allowclip := at = atFloat;\r\n        etHex: allowclip := at in [atHex, atNumeric];\r\n      end;\r\n\r\n      if Allowclip then\r\n        InsertText(cl);\r\n    end\r\n    else if FKeyDown = Ord('A') then\r\n      SelectAll\r\n    else\r\n      inherited;\r\n\r\n    EatKey;\r\n    Exit;\r\n  end;\r\n\r\n  case FEditType of\r\n    etString:\r\n      begin\r\n      end;\r\n    etNumeric:\r\n      begin\r\n        if not CharIsNumber(kch) then\r\n          EatKey;\r\n      end;\r\n    etFloat, etSignedFloat:\r\n      begin\r\n        if ((kch = ',') and (FormatSettings.DecimalSeparator <> ',')) or ((kch = '.') and (FormatSettings.DecimalSeparator <> '.')) then\r\n        begin\r\n          EatKey;\r\n          Exit;\r\n        end;\r\n\r\n        if (CharIsNumber(kch) or (kch = '.') or (kch = ',') or (kch = FormatSettings.DecimalSeparator) or (kch = FormatSettings.ThousandSeparator) or ((FEditType = etSignedFloat) and (kch = '-'))) then\r\n        begin\r\n          if (kch = FormatSettings.DecimalSeparator) and\r\n            (Pos(FormatSettings.DecimalSeparator, self.SelText) = 0) and\r\n            ((Pos(FormatSettings.DecimalSeparator, self.Text) > 0) or (FPrecision = 0)) then\r\n          begin\r\n            if (FPrecision > 0) then\r\n              SelectAfterDecimal;\r\n\r\n            {$IFDEF WEBLIB}\r\n            EatKey;\r\n            {$ENDIF}\r\n            Exit;\r\n          end;\r\n\r\n          if ((kch = ',') and (Pos(',', self.Text) > 0) and (Pos(',', self.SelText) = 0)) and (kch <> FormatSettings.ThousandSeparator) then\r\n          begin\r\n            {$IFDEF WEBLIB}\r\n            EatKey;\r\n            {$ENDIF}\r\n            Exit;\r\n          end;\r\n\r\n          if (kch = FormatSettings.ThousandSeparator) or (kch = FormatSettings.DecimalSeparator) then\r\n          begin\r\n            if ScanDistance(self.Text, SelStart) then\r\n            begin\r\n              {$IFDEF WEBLIB}\r\n              EatKey;\r\n              {$ENDIF}\r\n              Exit;\r\n            end;\r\n          end;\r\n\r\n          if ScanPrecision(self.text, SelStart) and (CharIsNumber(kch) or (kch = FormatSettings.DecimalSeparator)) and (SelLength = 0) then\r\n          begin\r\n            if (FPrecision > 0) and (SelStart - Length(FPrefix) >= Pos(FormatSettings.DecimalSeparator, self.Text))\r\n              and CharIsNumber(kch) and (SelStart - Length(FPrefix) < Length(self.Text)) then\r\n            begin\r\n              {$IFNDEF WEBLIB}\r\n              SelLength := 1;\r\n              {$ENDIF}\r\n              {$IFDEF WEBLIB}\r\n              oldSelStart := SelStart;\r\n              inherited Text := Text.Substring(0, SelStart) + kch + Text.Substring(SelStart + 1, Length(Text));\r\n              SelStart := oldSelStart + 1;\r\n              EatKey;\r\n              Exit;\r\n              {$ENDIF}\r\n            end\r\n            else\r\n            begin\r\n              {$IFDEF WEBLIB}\r\n              EatKey;\r\n              {$ENDIF}\r\n              Exit;\r\n            end;\r\n          end;\r\n\r\n          if (SelStart = 0) and (self.Text = '') and (kch = FormatSettings.DecimalSeparator) then\r\n          begin\r\n            inherited Text := '0' + FormatSettings.DecimalSeparator;\r\n            SelStart := 2;\r\n            SetModified(true);\r\n            {$IFDEF WEBLIB}\r\n            EatKey;\r\n            {$ENDIF}\r\n            Exit;\r\n          end;\r\n\r\n          if FEditType = etSignedFloat then\r\n          begin\r\n            if (kch = '-') and (SelLength = 0) then\r\n            begin\r\n              s := self.Text;\r\n              oldprec := FPrecision;\r\n              FPrecision := 0;\r\n              oldSelStart := SelStart;\r\n\r\n              if (Pos('-', s) <> 0) then\r\n              begin\r\n                delete(s, 1, 1);\r\n                inherited Text := s + Suffix;\r\n                SetModified(true);\r\n                if (oldSelStart > 0) and (oldSelStart > Length(FPrefix)) then\r\n                  SelStart := oldSelStart - 1\r\n                else\r\n                  SelStart := Length(Prefix);\r\n              end\r\n              else\r\n              begin\r\n                if (FloatValue <> 0) or (1 > 0) then\r\n                begin\r\n                  inherited Text := '-' + self.Text + Suffix;\r\n                  SelLength := 0;\r\n                  SelStart := oldSelStart + 1;\r\n                  SetModified(true);\r\n                end;\r\n              end;\r\n              FPrecision := oldprec;\r\n              {$IFDEF WEBLIB}\r\n              EatKey;\r\n              {$ENDIF}\r\n              Exit;\r\n            end;\r\n          end;\r\n        end\r\n        else\r\n          EatKey;\r\n      end;\r\n    etSignedNumeric:\r\n      begin\r\n        if not (CharInArray(kch, ['-']) or CharIsNumber(kch)) then\r\n          EatKey;\r\n\r\n        {$IFDEF FMXLIB}\r\n        if (Pos(FormatSettings.DecimalSeparator, Text) > 0) and (KeyChar = FormatSettings.DecimalSeparator) then\r\n        {$ENDIF}\r\n        {$IFDEF CMNWEBLIB}\r\n        if (Pos(FormatSettings.DecimalSeparator, Text) > 0) and (Key = FormatSettings.DecimalSeparator) then\r\n        {$ENDIF}\r\n          EatKey;\r\n\r\n        {$IFDEF FMXLIB}\r\n        if (Pos('-', Text) > 0) and (KeyChar = '-') and not (SelLength = Length(Text)) then\r\n        {$ENDIF}\r\n        {$IFDEF CMNWEBLIB}\r\n        if (Pos('-', Text) > 0) and (Key = '-') and not (SelLength = Length(Text)) then\r\n        {$ENDIF}\r\n          EatKey;\r\n\r\n        if (kch = '-') and (SelLength = 0) then\r\n        begin\r\n          s := self.Text;\r\n          oldSelStart := SelStart;\r\n\r\n          if (Pos('-', s) <> 0) then\r\n          begin\r\n            delete(s, 1, 1);\r\n            inherited Text := s + Suffix;\r\n            SetModified(true);\r\n            if (oldSelStart > 0) and (oldSelStart > Length(FPrefix)) then\r\n              SelStart := oldSelStart - 1\r\n            else\r\n              SelStart := Length(Prefix);\r\n          end\r\n          else\r\n          begin\r\n            if (FloatValue <> 0) or (1 > 0) then\r\n            begin\r\n              inherited Text := '-' + self.Text + Suffix;\r\n              SelLength := 0;\r\n              SelStart := oldSelStart + 1;\r\n              SetModified(true);\r\n            end;\r\n          end;\r\n          {$IFDEF WEBLIB}\r\n          EatKey;\r\n          {$ENDIF}\r\n          Exit;\r\n        end;\r\n      end;\r\n    etUpperCase:\r\n      begin\r\n        s := AnsiUpperCase(s);\r\n        {$IFDEF ZEROSTRINGINDEX}\r\n        kch := s[0];\r\n        {$ELSE}\r\n        kch := s[1];\r\n        {$ENDIF}\r\n\r\n        {$IFDEF FMXLIB}\r\n        Key := ord(kch);\r\n        KeyChar := kch;\r\n        {$ENDIF}\r\n        {$IFDEF CMNWEBLIB}\r\n        Key := kch;\r\n        {$ENDIF}\r\n      end;\r\n    etLowerCase:\r\n      begin\r\n        s := AnsiLowerCase(s);\r\n        {$IFDEF ZEROSTRINGINDEX}\r\n        kch := s[0];\r\n        {$ELSE}\r\n        kch := s[1];\r\n        {$ENDIF}\r\n\r\n        {$IFDEF FMXLIB}\r\n        Key := ord(kch);\r\n        KeyChar := kch;\r\n        {$ENDIF}\r\n        {$IFDEF CMNWEBLIB}\r\n        Key := kch;\r\n        {$ENDIF}\r\n      end;\r\n    etMoney:\r\n      begin\r\n        if (kch = FormatSettings.DecimalSeparator) and ((Pos(FormatSettings.DecimalSeparator, self.Text) > 0) or (FPrecision = 0)) then\r\n        begin\r\n          if (FPrecision > 0) then\r\n          begin\r\n            if SelLength = Length(Text) then\r\n              Text := '0,0';\r\n\r\n            SelectAfterDecimal;\r\n            {$IFDEF WEBLIB}\r\n            EatKey;\r\n            {$ENDIF}\r\n          end;\r\n          FBlockChange := false;\r\n          Exit;\r\n        end;\r\n\r\n        if (CharIsNumber(kch) or (kch = '-')) or (kch = FormatSettings.DecimalSeparator) then\r\n        begin\r\n          if (kch = FormatSettings.ThousandSeparator) or (kch = FormatSettings.DecimalSeparator) then\r\n          begin\r\n            if ScanDistance(self.Text, SelStart) then\r\n              Exit;\r\n          end;\r\n\r\n          if ScanPrecision(self.Text, SelStart) and (CharIsNumber(kch) or (kch = FormatSettings.DecimalSeparator)) and (SelLength = 0) then\r\n          begin\r\n            if (FPrecision > 0) and (SelStart - Length(FPrefix) >= Pos(FormatSettings.DecimalSeparator, self.text))\r\n              and CharIsNumber(kch) and (SelStart - Length(FPrefix) < Length(self.text)) then\r\n            begin\r\n              SelLength := 1;\r\n            end\r\n            else\r\n            begin\r\n              {$IFDEF WEBLIB}\r\n              EatKey;\r\n              {$ENDIF}\r\n              Exit;\r\n            end;\r\n          end;\r\n\r\n          if (SelStart = 0) and (self.Text = '') and (kch = FormatSettings.DecimalSeparator) then\r\n          begin\r\n            inherited Text := '0' + FormatSettings.DecimalSeparator;\r\n            SelStart := 2;\r\n            SetModified(true);\r\n            Exit;\r\n          end;\r\n\r\n          if (kch = '-') and (SelLength = 0) then\r\n          begin\r\n            s := self.Text;\r\n            oldprec := FPrecision;\r\n            FPrecision := 0;\r\n            oldSelStart := SelStart;\r\n\r\n            if (Pos('-', s) <> 0) then\r\n            begin\r\n              delete(s, 1, 1);\r\n              inherited Text := s + Suffix;\r\n              SetModified(true);\r\n              if (oldSelStart > 0) and (oldSelStart > Length(FPrefix)) then\r\n                SelStart := oldSelStart - 1\r\n              else\r\n                SelStart := Length(Prefix);\r\n            end\r\n            else\r\n            begin\r\n              if (FloatValue <> 0) or (1 > 0) then\r\n              begin\r\n                inherited Text := '-' + self.Text + Suffix;\r\n                SelLength := 0;\r\n                SelStart := oldSelStart + 1;\r\n                SetModified(true);\r\n              end;\r\n            end;\r\n            FPrecision := oldprec;\r\n            {$IFDEF WEBLIB}\r\n            EatKey;\r\n            {$ENDIF}\r\n            Exit;\r\n          end;\r\n        end\r\n        else\r\n        begin\r\n          EatKey;\r\n          Exit;\r\n        end;\r\n      end;\r\n    etHex:\r\n      begin\r\n        if not CharIsHex(kch) then\r\n          EatKey;\r\n      end;\r\n    etAlphaNumeric:\r\n      begin\r\n        if not CharIsLetterOrNumber(kch) then\r\n          EatKey;\r\n      end;\r\n    etValidChars:\r\n      begin\r\n        if (FValidChars <> '') then\r\n          if Pos(AnsiUpperCase(s), AnsiUpperCase(FValidChars)) = 0 then\r\n            EatKey;\r\n      end;\r\n  end;\r\n\r\n  s := self.Text;\r\n  inherited;\r\n  if self.Text <> s then\r\n    Modified := True;\r\n\r\n//  if (EditType in [etMoney, etSignedFloat, etSignedNumeric]) then\r\n//  begin\r\n//    stmin := Text;\r\n//    if pos('-', stmin) > 1 then\r\n//    begin\r\n//      delete(stmin,Pos('-', stmin),1);\r\n//      Text := '-' + stmin;\r\n//    end;\r\n//  end;\r\n\r\n  {$IFNDEF WEBLIB}\r\n  if (EditType = etMoney) then\r\n  begin\r\n    if (self.Text <> '') and (self.Text <> '-') and (kch <> FormatSettings.DecimalSeparator) then\r\n      AutoSeparators;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  if (FEditType in [etFloat, etSignedFloat, etMoney]) then\r\n  begin\r\n    d := Length(Text) - Length(s);\r\n    if (d > 1) then\r\n      SetCaretPosition(GetCaretPosition + d);\r\n  end;\r\n\r\n  if FShiftState = [] then\r\n    UpdateLookup;\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCEdit.KeyUp(var Key: Word; var KeyChar: Char; Shift: TShiftState);\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCEdit.KeyUp(var Key: Word; Shift: TShiftState);\r\n{$ENDIF}\r\nvar\r\n  oldSelStart: integer;\r\n  kch: Char;\r\nbegin\r\n  inherited;\r\n\r\n  {$IFDEF FMXLIB}\r\n  kch := KeyChar;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  kch := Chr(Key);\r\n  {$ENDIF}\r\n\r\n  if not (Key in [KEY_F2, KEY_RETURN, KEY_UP, KEY_DOWN, KEY_ESCAPE]) then\r\n    UpdateLookup;\r\n\r\n  if (Key = KEY_TAB) and IsLookupListVisible and (Lookup.AcceptOnTab) then\r\n    DoneLookup;\r\n\r\n  if EditType = etMixedCase then\r\n  begin\r\n    oldSelStart := SelStart;\r\n    Text := ShiftCase(Text);\r\n    SelStart := oldSelStart;\r\n  end;\r\n\r\n  if (kch <> '') and (kch <> #8) then\r\n    UpdateAutoComplete;\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCEdit.ListKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCEdit.ListKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);\r\n{$ENDIF}\r\nbegin\r\n  if Key = KEY_RETURN then\r\n    DoneLookup;\r\n\r\n  if (Key = KEY_TAB) and (Lookup.AcceptOnTab) then\r\n    DoneLookup;\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCEdit.ListMouseUp(Sender: TObject; Button: TTMSFNCMouseButton; Shift: TShiftState; X, Y: Single);\r\nbegin\r\n  FDoneLookupTimer.Enabled := True;\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCEdit.ListMouseUp(Sender: TObject; Button: TTMSFNCMouseButton; Shift: TShiftState; X, Y: Integer);\r\nbegin\r\n  DoneLookup;\r\n{$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCEdit.LookupList: TTMSFNCPopup;\r\nbegin\r\n  Result := FLookupList;\r\nend;\r\n\r\nfunction TTMSFNCEdit.LookupListbox: TListBox;\r\nbegin\r\n  Result := FLookupListBox;\r\nend;\r\n\r\nprocedure TTMSFNCEdit.SetEditType(const Value: TTMSFNCEditType);\r\nvar\r\n  at: TTMSFNCEditAutoType;\r\nbegin\r\n  if FEditType <> Value then\r\n  begin\r\n    FEditType := Value;\r\n\r\n    if (csLoading in ComponentState) then\r\n      Exit;\r\n\r\n    if (Text <> '') or (not AllowNumericNullValue) then\r\n    begin\r\n      at := IsType(self.Text);\r\n      case FEditType of\r\n        etHex: if not (at in [atNumeric, atHex]) then self.IntValue := 0;\r\n        etNumeric, etSignedNumeric: if (at <> atNumeric) then self.IntValue := 0;\r\n        etFloat, etSignedFloat, etMoney: if not (at in [atFloat, atNumeric]) then self.FloatValue := 0.0;\r\n      end;\r\n    end;\r\n\r\n    if (csDesigning in ComponentState) and not(csLoading in ComponentState) and ((FEditType = etFloat) or (FEditType = etSignedFloat)) and (Precision = 0) then\r\n      Precision := 2;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  case FEditType of\r\n    etValidChars, etAlphaNumeric, etMoney, etString, etUpperCase, etMixedCase, etLowerCase: inherited EditType := weString;\r\n    etNumeric: inherited EditType := weNumeric;\r\n    etSignedNumeric: inherited EditType := weSignedNumeric;\r\n    etFloat: inherited EditType := weFloat;\r\n    etSignedFloat: inherited EditType := weSignedFloat;\r\n    etHex: inherited EditType := weHex;\r\n  end;\r\n\r\n  CharCase := wecNormal;\r\n  case EditType of\r\n    etUpperCase: CharCase := wecUpperCase;\r\n    etMixedCase: CharCase := wecMixedCase;\r\n    etLowerCase: CharCase := wecLowerCase;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\n{$IFDEF VCLLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 30}\r\nprocedure TTMSFNCEdit.ChangeScale(M, D: Integer; isDpiChange: Boolean);\r\n{$ELSE}\r\nprocedure TTMSFNCEdit.ChangeScale(M, D: Integer);\r\n{$IFEND}\r\nbegin\r\n  inherited;\r\n  if FInitialize then\r\n  begin\r\n    AutoSize := False;\r\n    FInitialize := False;\r\n  end;\r\nend;\r\n{$HINTS ON}\r\n{$ENDIF}\r\n\r\n{$IFDEF LCLLIB}\r\nfunction TTMSFNCEdit.ChildClassAllowed(ChildClass: TClass): Boolean;\r\nbegin\r\n  if ChildClass = TListBox then\r\n    Result := True\r\n  else\r\n    inherited;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCEdit.Change;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCEdit.CleanupLookupList;\r\nvar\r\n  I: Integer;\r\n  obj: TObject;\r\nbegin\r\n  if not Assigned(FLookupListBoxItems) then\r\n   Exit;\r\n\r\n  for I := 0 to FLookupListBoxItems.Count - 1 do\r\n  begin\r\n    obj := TObject(FLookupListBoxItems[I]);\r\n    if Assigned(obj) then\r\n      obj.Free;\r\n  end;\r\n\r\n  FLookupListBoxItems.Clear;\r\nend;\r\n\r\nprocedure TTMSFNCEdit.CloseLookup;\r\nbegin\r\n  if CanFocus then\r\n    SetFocus;\r\n\r\n  if Assigned(FLookupList) then\r\n  begin\r\n    if FLookupList.IsOpen then\r\n      DoLookupClose;\r\n    FLookupList.IsOpen := False;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCEdit.DoneLookup;\r\nvar\r\n  idx, vp: Integer;\r\n  NewValue: string;\r\n  LookupText, NewText: string;\r\n  obj: TObject;\r\nbegin\r\n  if not Assigned(FLookupListBox) then\r\n    Exit;\r\n\r\n  if (FlookupListBox.ItemIndex <> -1) then\r\n  begin\r\n    idx := -1;\r\n    obj := FLookupListBox.Items.Objects[FlookupListBox.ItemIndex];\r\n    if Assigned(obj) then\r\n      idx := TTMSFNCLookupListBoxItem(obj).Idx;\r\n\r\n    if ((idx >= 0) and (idx < FLookup.ValueList.Count)) and Lookup.UseValueList then\r\n      NewValue := FLookup.ValueList.Strings[idx]\r\n    else\r\n      NewValue := FLookupListbox.Items[FLookupListBox.ItemIndex];\r\n\r\n    if Assigned(FOnLookupSelect) then\r\n      FOnLookupSelect(Self, NewValue);\r\n\r\n    if Assigned(FOnlookupIndexSelect) then\r\n      FOnLookupIndexSelect(Self, idx, NewValue);\r\n\r\n    if FLookup.Multi then\r\n    begin\r\n      NewValue := NewValue + FLookup.Separator;\r\n      LookupText := Text;\r\n      NewText := '';\r\n      vp := -1;\r\n      while TTMSFNCUtils.VarPos(FLookup.Separator, LookupText, vp) > 0 do\r\n      begin\r\n        NewText := NewText + Copy(LookupText, 1, vp);\r\n        Delete(LookupText, 1, vp);\r\n      end;\r\n      Text := NewText + NewValue;\r\n\r\n    end\r\n    else\r\n      Text := NewValue;\r\n\r\n    if FLookup.Multi then\r\n      SelStart := length(Text)\r\n    else\r\n      SelectAll;\r\n\r\n\r\n    CloseLookup;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCEdit.SetLookup(const Value: TTMSFNCEditLookupSettings);\r\nbegin\r\n  FLookup.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCEdit.DoLookupFormTimer(Sender: TObject);\r\nbegin\r\n  if not Assigned(FLookupList) or not Assigned(FLookupListBox) then\r\n  begin\r\n    FLookupFormTimer.Enabled := False;\r\n    Exit;\r\n  end;\r\n\r\n  if Assigned(TTMSFNCPopupOpen(FLookupList).PopupForm) then\r\n    TTMSFNCPopupOpen(FLookupList).PopupForm.ApplyPlacement;\r\n\r\n  if not FLookupList.IsOpen or (not IsFocused and not (FLookupList.IsFocused) and not {$IFDEF FMXLIB}FLookupListBox.IsFocused{$ELSE}FLookupListBox.Focused{$ENDIF}) then\r\n  begin\r\n    if LookupList.IsOpen then\r\n      DoLookupClose;\r\n    FLookupList.IsOpen := False;\r\n    FLookupFormTimer.Enabled := False;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCEdit.DoLookupNeedData(Value: string; List: TStrings; var ItemIndex: integer);\r\nbegin\r\n  if Assigned(OnLookupNeedData) then\r\n    OnLookupNeedData(Self, Value, List, ItemIndex);\r\nend;\r\n\r\nprocedure TTMSFNCEdit.DoLookupOpen;\r\nbegin\r\n  if Assigned(OnLookupOpen) then\r\n    OnLookupOpen(Self);\r\nend;\r\n\r\nprocedure TTMSFNCEdit.DoLookupClose;\r\nbegin\r\n  if Assigned(OnLookupClose) then\r\n    OnLookupClose(Self);\r\nend;\r\n\r\nprocedure TTMSFNCEdit.UpdateLookup;\r\nvar\r\n  i, cnt: Integer;\r\n  mw, mh, tw, vp: Integer;\r\n  LookupText: string;\r\n  ismatch: Boolean;\r\n  idx: Integer;\r\n  obj: TTMSFNCLookupListBoxItem;\r\nbegin\r\n  if not Assigned(FLookup) or not FLookup.Enabled or not Assigned(FLookupListBox) then\r\n    Exit;\r\n\r\n  if FLookup.Multi then\r\n  begin\r\n    LookupText := Text;\r\n    vp := -1;\r\n    while TTMSFNCUtils.VarPos(FLookup.Separator, LookupText, vp) > 0 do\r\n      Delete(LookupText, 1, vp);\r\n  end\r\n  else\r\n    LookupText := Text;\r\n\r\n  if Length(LookupText) >= FLookup.NumChars then\r\n  begin\r\n    mh := (LOOKUPITEMHEIGHT * FLookup.DisplayCount) + 4;\r\n    FLookupListBox.Parent := Self;\r\n    CleanupLookupList;\r\n    FLookupListBox.Items.Clear;\r\n    {$IFDEF FMXLIB}\r\n    FLookupListBox.NeedStyleLookup;\r\n    FLookupListBox.ApplyStyleLookup;\r\n    FLookupListBox.BeginUpdate;\r\n    {$ENDIF}\r\n\r\n    for i := 1 to FLookup.DisplayList.Count do\r\n    begin\r\n      if FLookup.CaseSensitive then\r\n      begin\r\n        if Pos(LookupText, FLookup.FDisplayList.Strings[i - 1]) = 1 then\r\n        begin\r\n          obj := TTMSFNCLookupListBoxItem.Create(i - 1);\r\n          FLookupListbox.Items.AddObject(CleanString(FLookup.FDisplayList.Strings[i - 1]), obj);\r\n          FLookupListBoxItems.Add(obj);\r\n        end;\r\n      end\r\n      else\r\n      begin\r\n        vp := Pos(AnsiUpperCase(LookupText), AnsiUpperCase(FLookup.FDisplayList.Strings[i - 1]));\r\n\r\n        if FullTextSearch then\r\n          ismatch := vp > 0\r\n        else\r\n          ismatch := vp = 1;\r\n\r\n        if ismatch then\r\n        begin\r\n          obj := TTMSFNCLookupListBoxItem.Create(i - 1);\r\n          FLookupListbox.Items.AddObject(CleanString(FLookup.FDisplayList.Strings[i - 1]), obj);\r\n          FLookupListBoxItems.Add(obj);\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    idx := 0;\r\n    DoLookupNeedData(LookupText, FLookupListBox.Items, idx);\r\n    cnt := FLookupListBox.Items.Count;\r\n\r\n    {$IFDEF FMXLIB}\r\n    FLookupListBox.EndUpdate;\r\n    {$ENDIF}\r\n\r\n    if (FLookup.FDisplayList.Count > 0) and (FLookupListBox.Items.Count > 0) then\r\n      FLookupListBox.ItemIndex := idx;\r\n\r\n    if cnt < FLookup.DisplayCount then\r\n      mh := (cnt * LOOKUPITEMHEIGHT) + 4;\r\n\r\n    FLookupListBox.Sorted := True;\r\n    mw := 50;\r\n    FLookupList.DropDownWidth := 0;\r\n\r\n    if cnt > 0 then\r\n    begin\r\n      for i := 1 to cnt do\r\n      begin\r\n        tw := 0;\r\n        if Assigned(FLookupListBox.Canvas) then\r\n          tw := Round(FLookupListBox.Canvas.TextWidth(FLookupListBox.Items[i - 1]));\r\n\r\n        if tw > mw then\r\n          mw := tw;\r\n      end;\r\n\r\n      mw := mw + 26;\r\n    end;\r\n\r\n    if (FLookup.Width > 0) then\r\n      mw := FLookup.Width;\r\n\r\n    if (FLookup.Height > 0) then\r\n      mh := FLookup.Height;\r\n\r\n    FLookupList.PlacementControl := Self;\r\n\r\n    if (cnt > 0) then\r\n    begin\r\n      FLookupList.DropDownWidth := Max(Lookup.MinimumWidth, mw);\r\n      FLookupList.DropDownHeight := Max(Lookup.MinimumHeight, mh);\r\n      if FLookupList.HasPopupForm then\r\n      begin\r\n        FLookupListBox.Parent := FLookupList.PopupForm;\r\n        FLookupList.PopupForm.Width := Round(FLookupList.DropDownWidth);\r\n        FLookupList.PopupForm.Height := Round(FLookupList.DropDownHeight);\r\n      end;\r\n      if not FLookupList.IsOpen then\r\n        DoLookupOpen;\r\n      FLookupList.IsOpen := True;\r\n      FLookupFormTimer.Enabled := AutoClose;\r\n    end\r\n    else\r\n    begin\r\n      if FLookupList.IsOpen then\r\n        DoLookupClose;\r\n      FLookupList.IsOpen := False;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    if FLookupList.IsOpen then\r\n      DoLookupClose;\r\n    FLookupList.IsOpen := False;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCEdit.UpdateAutoComplete;\r\nvar\r\n  s, ms: string;\r\n  i, vp: Integer;\r\nbegin\r\n  if not AutoComplete then\r\n    Exit;\r\n\r\n  s := Text;\r\n  ms := '';\r\n  if Length(s) >= 1 then\r\n  begin\r\n    for i := 1 to FLookup.DisplayList.Count do\r\n    begin\r\n      if FLookup.CaseSensitive then\r\n      begin\r\n        if Pos(s, FLookup.FDisplayList.Strings[i - 1]) = 1 then\r\n        begin\r\n          ms := FLookup.FDisplayList.Strings[i - 1];\r\n          Break;\r\n        end;\r\n      end\r\n      else\r\n      begin\r\n        vp := Pos(AnsiUpperCase(s), AnsiUpperCase(FLookup.FDisplayList.Strings[i - 1]));\r\n        if (vp = 1) then\r\n        begin\r\n          ms := FLookup.FDisplayList.Strings[i - 1];\r\n          Break;\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    if (ms <> '') then\r\n    begin\r\n      Text := CleanString(ms);\r\n      SelStart := Length(s);\r\n      SelLength := Length(Text) - SelStart;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCEdit.SetPrefix(const Value: string);\r\nbegin\r\n  FPrefix := Value;\r\nend;\r\n\r\nprocedure TTMSFNCEdit.SetSuffix(const Value: string);\r\nbegin\r\n  FSuffix := Value;\r\nend;\r\n\r\nprocedure TTMSFNCEdit.SetModified(const Value: Boolean);\r\nbegin\r\n  if csLoading in ComponentState then\r\n    Exit;\r\n\r\n  if ReadOnly then\r\n    Exit;\r\n\r\n  FIsModified := value;\r\nend;\r\n\r\nfunction TTMSFNCEdit.DecimalPos: Integer;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  i := Pos(FormatSettings.decimalseparator, self.text);\r\n  if (i = 0) then Result := Length(fprefix) + Length(self.text) + Length(fSuffix) + 1\r\n  else Result := Length(fPrefix) + i;\r\nend;\r\n\r\nprocedure TTMSFNCEdit.AutoSeparators;\r\nvar\r\n  s, si, neg: string;\r\n  d: Double;\r\n  Diffl, OldSelStart, OldPrec: Integer;\r\n  {$IFNDEF WEBLIB}\r\n  cp: Boolean;\r\n  {$ENDIF}\r\nbegin\r\n  {$IFNDEF WEBLIB}\r\n  cp := False;\r\n  if not Assigned(Parent) then\r\n  begin\r\n    cp := True;\r\n    Parent := TTMSFNCUtils.GetOwnerForm(Self);\r\n  end;\r\n  {$ENDIF}\r\n\r\n  s := self.Text;\r\n  Diffl := Length(s);\r\n\r\n  if SelLength = 0 then\r\n    OldSelStart := SelStart\r\n  else\r\n    OldSelStart := SelStart + SelLength;\r\n\r\n  if (s = '') then\r\n    Exit;\r\n\r\n  if (Pos('-', s) = 1) then\r\n  begin\r\n    Delete(s, 1, 1);\r\n    neg := '-';\r\n  end\r\n  else\r\n    neg := '';\r\n\r\n  if (Pos(FormatSettings.DecimalSeparator, s) > 0) then\r\n    s := Copy(s, Pos(FormatSettings.DecimalSeparator, s), 255)\r\n  else\r\n    s := '';\r\n\r\n  d := Trunc(Abs(self.FloatValue));\r\n\r\n  if FAutoThousandSeparator then\r\n    si := Format('%n', [d])\r\n  else\r\n    si := Format('%f', [d]);\r\n\r\n  si := Copy(si, 1, Pos(FormatSettings.decimalseparator, si) - 1);\r\n\r\n  OldPrec := FPrecision;\r\n  FPrecision := 0;\r\n\r\n  FBlockChange := (Text <> FPrefix + neg + si + s + FSuffix);\r\n\r\n  if FBlockChange then\r\n  begin\r\n    {$IFDEF WEBLIB}\r\n    inherited SetText(FPrefix + neg + si + s + fSuffix);\r\n    {$ENDIF}\r\n    {$IFNDEF WEBLIB}\r\n    inherited Text := FPrefix + neg + si + s + fSuffix;\r\n    {$ENDIF}\r\n  end;\r\n\r\n  FBlockChange := false;\r\n\r\n  FPrecision := OldPrec;\r\n\r\n  Diffl := Length(self.Text) - Diffl;\r\n\r\n  SelStart := OldSelStart + Diffl;\r\n  SelLength := 0;\r\n\r\n  {$IFNDEF WEBLIB}\r\n  if cp then\r\n    Parent := nil;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCEdit.SetAutoThousandSeparator(const Value: Boolean);\r\nbegin\r\n  FAutoThousandSeparator := Value;\r\n  if FEditType in [etNumeric, etSignedNumeric, etMoney, etFloat, etSignedFloat] then AutoSeparators;\r\nend;\r\n\r\nprocedure TTMSFNCEdit.SetCaretPosition(ACaretPosition: Integer);\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  CaretPosition := ACaretPosition;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  SelStart := ACaretPosition;\r\n  SelLength := 0;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCEdit.SetFloat(const Value: double);\r\nvar\r\n  s:string;\r\nbegin\r\n  case FEditType of\r\n    etHex: self.Text := IntToHex(trunc(value), 0);\r\n    etNumeric, etSignedNumeric:\r\n      if (FPrecision >= 0) then\r\n        self.Text := Format('%.' + inttostr(FPrecision) + 'n', [value])\r\n      else\r\n        self.Text := Format('%g', [Value]);\r\n    etFloat, etSignedFloat, etString:\r\n      if (FPrecision >= 0) then\r\n      begin\r\n        s := Format('%.' + inttostr(FPrecision) + 'f', [value]);\r\n        self.Text := s;\r\n      end\r\n      else\r\n        self.Text := Format('%g', [Value]);\r\n    etMoney:\r\n      begin\r\n        if (FPrecision >= 0) then\r\n          self.Text := Format('%.' + inttostr(FPrecision) + 'f', [value]) else self.Text := Format('%g', [Value]);\r\n        AutoSeparators;\r\n      end;\r\n  end;\r\n  SetModified(True);\r\nend;\r\n\r\nfunction TTMSFNCEdit.GetCaretPosition: Integer;\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Result := CaretPosition;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  Result := SelStart;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCEdit.GetFloat: double;\r\nvar\r\n  s: string;\r\nbegin\r\n  Result := 0;\r\n  case FEditType of\r\n    etHex: if self.Text <> '' then Result := HexToInt(self.Text);\r\n    etString:\r\n      begin\r\n        //val(self.Text, d, e);\r\n        Result := EStrToFloat(self.Text);\r\n      end;\r\n    etNumeric, etFloat, etSignedFloat, etSignedNumeric:\r\n      if (self.Text <> '') then\r\n      begin\r\n        s := self.Text;\r\n        if (s = '-') then\r\n          Result := 0\r\n        else\r\n          Result := EStrToFloat(s);\r\n      end;\r\n    etMoney:\r\n      if self.Text <> '' then\r\n      begin\r\n        s := StripThousandSep(self.Text);\r\n        if (Pos(FormatSettings.Decimalseparator, s) = Length(s)) then Delete(s, Pos(FormatSettings.DecimalSeparator, s), 1);\r\n        if (s = '') or (s = '-') then Result := 0 else\r\n          Result := EStrToFloat(s);\r\n      end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCEdit.SetPrecision(const Value: smallint);\r\nvar\r\n  at: TTMSFNCEditAutoType;\r\nbegin\r\n  if (FPrecision <> value) and (editType in [etFloat, etSignedFloat, etMoney, etString]) then\r\n  begin\r\n    FPrecision := Value;\r\n    if (Text <> '') or (not AllowNumericNullValue) then\r\n    begin\r\n      at := IsType(self.text);\r\n      if (at in [atFloat, atNumeric]) then\r\n        FloatValue := FloatValue\r\n      else\r\n        FloatValue := 0.0;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCEdit.SetPrecisionDisplay(const Value: TTMSFNCEditPrecisionDisplay);\r\nbegin\r\n  if (FPrecisionDisplay <> Value) then\r\n  begin\r\n    FPrecisionDisplay := Value;\r\n    FloatValue := FloatValue;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCEdit.EStrToFloat(s: string): extended;\r\nbegin\r\n  Result := 0;\r\n\r\n  if Pos(FormatSettings.ThousandSeparator, s) > 0 then\r\n    s := StripThousandSep(s);\r\n\r\n  if (FPrecision > 0) and (Length(s) > FPrecision) then\r\n    if s[Length(s){$IFDEF ZEROSTRINGINDEX}-1{$ENDIF} - FPrecision] = FormatSettings.Thousandseparator{$IFDEF WEBLIB}[0]{$ENDIF} then\r\n      s[Length(s){$IFDEF ZEROSTRINGINDEX}-1{$ENDIF} - FPrecision] := FormatSettings.Decimalseparator{$IFDEF WEBLIB}[0]{$ENDIF};\r\n  try\r\n    TryStrToFloat(s, Result);\r\n  except\r\n    Result := 0;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCEdit.GetInt: Integer;\r\nbegin\r\n  Result := 0;\r\n  case FEditType of\r\n    etHex: if (self.Text <> '') then Result := HexToInt(self.Text);\r\n    etSignedNumeric, etNumeric, etSignedFloat, etFloat: Result := ValStr(self.Text);\r\n    etMoney: Result := ValStr(StripThousandSep(self.Text));\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCEdit.GetT: string;\r\nvar\r\n  s: string;\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  s := inherited GetText;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  s := inherited Text;\r\n  {$ENDIF}\r\n  if (fPrefix <> '') and (Pos(AnsiUpperCase(fPrefix), AnsiUpperCase(s)) = 1) then delete(s, 1, Length(fPrefix));\r\n  if (fSuffix <> '') then delete(s, Length(s) - Length(fSuffix) + 1, Length(fSuffix));\r\n  Result := s;\r\nend;\r\n\r\nprocedure TTMSFNCEdit.SetInt(const Value: Integer);\r\nbegin\r\n  case FEditType of\r\n    etHex: self.Text := IntToHex(value, 0);\r\n    etSignedNumeric, etNumeric, etSignedFloat, etFloat: self.Text := Inttostr(value);\r\n    etMoney:\r\n      begin\r\n        self.Text := IntToStr(value);\r\n        AutoSeparators;\r\n      end;\r\n  end;\r\n  SetModified(True);\r\nend;\r\n\r\n{ TTMSFNCEditLookupSettings }\r\n\r\nprocedure TTMSFNCEditLookupSettings.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTMSFNCEditLookupSettings) then\r\n  begin\r\n    FAcceptOnTab := (Source as TTMSFNCEditLookupSettings).AcceptOnTab;\r\n    FCaseSensitive := (Source as TTMSFNCEditLookupSettings).CaseSensitive;\r\n    FColor := (Source as TTMSFNCEditLookupSettings).Color;\r\n    FDisplayCount := (Source as TTMSFNCEditLookupSettings).DisplayCount;\r\n    FDisplayList.Assign((Source as TTMSFNCEditLookupSettings).DisplayList);\r\n    FEnabled := (Source as TTMSFNCEditLookupSettings).Enabled;\r\n    FHistory := (Source as TTMSFNCEditLookupSettings).History;\r\n    FNumChars := (Source as TTMSFNCEditLookupSettings).NumChars;\r\n    FValueList.Assign((Source as TTMSFNCEditLookupSettings).ValueList);\r\n    FMulti := (Source as TTMSFNCEditLookupSettings).Multi;\r\n    FSeparator := (Source as TTMSFNCEditLookupSettings).Separator;\r\n    FWidth := (Source as TTMSFNCEditLookupSettings).Width;\r\n    FHeight := (Source as TTMSFNCEditLookupSettings).Height;\r\n    FMinimumWidth := (Source as TTMSFNCEditLookupSettings).MinimumWidth;\r\n    FMinimumHeight := (Source as TTMSFNCEditLookupSettings).MinimumHeight;\r\n    FUseValueList  := (Source as TTMSFNCEditLookupSettings).UseValueList;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCEditLookupSettings.Create;\r\nbegin\r\n  inherited Create;\r\n  FUseValueList := True;\r\n  FWidth := 0;\r\n  FMinimumWidth := 0;\r\n  FHeight := 0;\r\n  FMinimumHeight := 0;\r\n  FDisplayList := TStringList.Create;\r\n  FDisplayList.Sorted := true;\r\n  FDisplayList.Duplicates :=  dupIgnore;\r\n  FValueList := TStringList.Create;\r\n  FColor := gcWhite;\r\n  FDisplayCount := 4;\r\n  FNumChars := 2;\r\n  FEnabled := False;\r\n  FSeparator := ';';\r\nend;\r\n\r\ndestructor TTMSFNCEditLookupSettings.Destroy;\r\nbegin\r\n  FValueList.Free;\r\n  FDisplayList.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCEditLookupSettings.SetDisplayList(const Value: TStringList);\r\nbegin\r\n  FDisplayList.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCEditLookupSettings.SetHeight(const Value: Integer);\r\nbegin\r\n  FHeight := Value;\r\nend;\r\n\r\nprocedure TTMSFNCEditLookupSettings.SetMinimumHeight(const Value: Integer);\r\nbegin\r\n  FMinimumHeight := Value;\r\nend;\r\n\r\nprocedure TTMSFNCEditLookupSettings.SetMinimumWidth(const Value: Integer);\r\nbegin\r\n  FMinimumWidth := Value;\r\nend;\r\n\r\nprocedure TTMSFNCEditLookupSettings.SetNumChars(const Value: Integer);\r\nbegin\r\n  if Value > 0 then\r\n    FNumChars := Value\r\nend;\r\n\r\nprocedure TTMSFNCEditLookupSettings.SetValueList(const Value: TStringList);\r\nbegin\r\n  FValueList.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCEditLookupSettings.SetWidth(const Value: Integer);\r\nbegin\r\n  FWidth := Value;\r\nend;\r\n\r\n{ TTMSFNCEditButton }\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCEditButton.KeyDown(var Key: Word; var KeyChar: WideChar; Shift: TShiftState);\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCEditButton.KeyDown(var Key: Word; Shift: TShiftState);\r\n{$ENDIF}\r\nbegin\r\n  inherited;\r\n  if Key = KEY_F4 then\r\n  begin\r\n    DropDown;\r\n    Exit;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCEditButton.Notification(AComponent: TComponent;\r\n  Operation: TOperation);\r\nbegin\r\n  if (Operation = opRemove) and (AComponent = FPopupControl) then\r\n    FPopupControl := nil;\r\n\r\n  if (Operation = opRemove) and (AComponent = FBitmapContainer) then\r\n    FBitmapContainer := nil;\r\n  inherited;\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCEditButton.PopupKeyDown(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCEditButton.PopupKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);\r\n{$ENDIF}\r\nbegin\r\n  case Key of\r\n    KEY_RETURN:\r\n    begin\r\n      DropDown;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCEditButton.SetAdaptToStyle(const Value: Boolean);\r\nbegin\r\n  inherited;\r\n  if Assigned(FButton) then\r\n    FButton.AdaptToStyle := AdaptToStyle;\r\nend;\r\n\r\nprocedure TTMSFNCEditButton.SetBitmap(const Value: TTMSFNCBitmap);\r\nbegin\r\n  FBitmap := Value;\r\n  if Assigned(FButton) then\r\n  begin\r\n    FButton.Bitmaps.Clear;\r\n    FButton.Bitmaps.AddBitmap(Value);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCEditButton.SetBitmapContainer(\r\n  const Value: TTMSFNCBitmapContainer);\r\nbegin\r\n  FBitmapContainer := Value;\r\n  if Assigned(FButton) then\r\n    FButton.BitmapContainer := Value;\r\nend;\r\n\r\nprocedure TTMSFNCEditButton.SetBitmapName(const Value: String);\r\nbegin\r\n  FBitmapName := Value;\r\n  if Assigned(FButton) then\r\n  begin\r\n    FButton.Bitmaps.Clear;\r\n    FButton.Bitmaps.AddBitmapName(Value);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCEditButton.SetButtonSize(const Value: Integer);\r\nbegin\r\n  FButtonSize := Value;\r\n  if Assigned(FButton) then\r\n    FButton.Width := Value;\r\nend;\r\n\r\nprocedure TTMSFNCEditButton.SetPopupControl(const Value: TControl);\r\nbegin\r\n  FPopupControl := Value;\r\n  FPopup.ContentControl := FPopupControl;\r\nend;\r\n\r\nprocedure TTMSFNCEditButton.SetText(const Value: string);\r\nbegin\r\n  FEdit.Text := Value;\r\nend;\r\n\r\nprocedure TTMSFNCEditButton.BeforeDropDown;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCEditButton.BitmapChanged(Sender: TObject);\r\nbegin\r\n  if Assigned(FButton) then\r\n  begin\r\n    FButton.Bitmaps.Clear;\r\n    FButton.Bitmaps.AddBitmap(Bitmap);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCEditButton.ButtonClick(Sender: TObject);\r\nbegin\r\n  if not FBlockDropDown then\r\n    DropDown;\r\n\r\n  FBlockDropDown := False;\r\n\r\n  if Assigned(OnButtonClick) then\r\n    OnButtonClick(Self);\r\nend;\r\n\r\nprocedure TTMSFNCEditButton.ButtonDblClick(Sender: TObject);\r\nbegin\r\n  FBlockDropDown := True;\r\nend;\r\n\r\nprocedure TTMSFNCEditButton.ChangeDPISCale(M, D: Integer);\r\nbegin\r\n  inherited;\r\n  ButtonSize := TTMSFNCUtils.MulDivInt(FButtonSize, M, D);\r\nend;\r\n\r\nconstructor TTMSFNCEditButton.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FModalPopup := False;\r\n  FButton := TTMSFNCToolBarDropDownButton.Create(Self);\r\n  FButton.TabStop := False;\r\n  FButton.AllowFocus := False;\r\n  FButton.Stored := False;\r\n  FButton.Width := 18;\r\n  FButton.Appearance.Rounding := 0;\r\n  {$IFDEF CMNWEBLIB}\r\n  FButton.Align := alRight;\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  FButton.Align := TAlignLayout.Right;\r\n  {$ENDIF}\r\n  FButton.Parent := Self;\r\n  FButton.OnClick := ButtonClick;\r\n  FButton.OnDblClick := ButtonDblClick;\r\n\r\n  FButton.Bitmaps.AddBitmapFromResource(TMSFNCTOOLBAREXPAND, HInstance, 1.0);\r\n  FButton.Bitmaps.AddBitmapFromResource(TMSFNCTOOLBAREXPANDLARGE, HInstance, 1.5);\r\n  FButton.DisabledBitmaps.AddBitmapFromResource(TMSFNCTOOLBAREXPAND, HInstance, 1.0);\r\n  FButton.DisabledBitmaps.AddBitmapFromResource(TMSFNCTOOLBAREXPANDLARGE, HInstance, 1.5);\r\n\r\n  FEdit := TTMSFNCEdit.Create(Self);\r\n  {$IFDEF FMXLIB}\r\n  FEdit.Stored := False;\r\n  {$ENDIF}\r\n  FEdit.Parent := Self;\r\n  {$IFDEF CMNWEBLIB}\r\n  FEdit.Align := alClient;\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  FEdit.Align := TAlignLayout.Client;\r\n  {$ENDIF}\r\n  FPopup := TTMSFNCPopup.Create(Self);\r\n  FPopup.Placement := ppBottom;\r\n  FPopup.Stored := False;\r\n  FPopup.DragWithParent := True;\r\n  FPopup.Width := 240;\r\n  FPopup.Height := 160;\r\n\r\n  FButtonSize := 18;\r\n  FBitmap := TTMSFNCBitmap.Create;\r\n  FBitmap.OnChange := @BitmapChanged;\r\n  Width := 118;\r\n  Height := 22;\r\nend;\r\n\r\ndestructor TTMSFNCEditButton.Destroy;\r\nbegin\r\n  FButton.Free;\r\n  FPopup.Free;\r\n  FBitmap.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCEditButton.DropDown;\r\nbegin\r\n  if Assigned(PopupControl) then\r\n  begin\r\n    FPopup.PlacementControl := Self;\r\n\r\n    if not FPopup.IsOpen then\r\n    begin\r\n      BeforeDropDown;\r\n      FPopup.Popup(ModalPopup)\r\n    end\r\n    else\r\n      FPopup.IsOpen := False;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCEditButton.GetBitmapContainer: TTMSFNCBitmapContainer;\r\nbegin\r\n  Result := FBitmapContainer;\r\nend;\r\n\r\nfunction TTMSFNCEditButton.GetText: string;\r\nbegin\r\n  Result := FEdit.Text;\r\nend;\r\n\r\ntype\r\n  TTMSFNCControlOpen = class(TControl);\r\n  TTMSFNCToolBarDropDownButtonOpen = class(TTMSFNCToolBarDropDownButton);\r\n\r\nprocedure TTMSFNCEditButton.Loaded;\r\nbegin\r\n  inherited;\r\n\r\n  {$IFDEF VCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF (COMPILERVERSION >= 33) AND (COMPILERVERSION < 36)}\r\n  if Assigned(FButton) then\r\n  begin\r\n    TTMSFNCToolBarDropDownButtonOpen(FButton).ChangeDPIScale(96, DesigntimeFormPixelsPerInch);\r\n//    TTMSFNCControlOpen(FButton).ScaleForPPI(CurrentPPI);\r\n  end;\r\n\r\n  if Assigned(FPopupControl) then\r\n  begin\r\n    TTMSFNCControlOpen(FPopupControl).ChangeScale(96, DesigntimeFormPixelsPerInch);\r\n    TTMSFNCControlOpen(FPopupControl).ScaleForPPI(CurrentPPI);\r\n  end;\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n\r\n  if Assigned(FButton) and Assigned(FBitmapContainer) and (FBitmapName <> '') then\r\n  begin\r\n    FButton.Bitmaps.Clear;\r\n    FButton.Bitmaps.AddBitmapName(FBitmapName);\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCLookupListBoxItem }\r\n\r\nconstructor TTMSFNCLookupListBoxItem.Create(AIdx: Integer);\r\nbegin\r\n  FIdx := AIdx;\r\nend;\r\n\r\n\r\n{$IFDEF CUSTOMMODEL}\r\n\r\n{ TTMSFNCCustomEditModel }\r\n\r\nprocedure TTMSFNCCustomEditModel.DoChange;\r\nbegin\r\n  inherited;\r\n  if Assigned(FEdit) then\r\n    FEdit.UpdateAutoComplete;\r\nend;\r\n\r\n{$ENDIF}\r\n\r\ninitialization\r\nbegin\r\n  RegisterClass(TTMSFNCEditButton);\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  RegisterClass(TTMSFNCEdit);\r\n  {$WARNINGS OFF}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 23}\r\n  RegisterObservableMember(\r\n    TArray<TClass>.Create(\r\n    TTMSFNCEdit, TTMSFNCEditButton\r\n  {$IFDEF FMXLIB}\r\n    ), 'Text', 'FMX');\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n    ), 'Text', 'VCL');\r\n  {$ENDIF}\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$WARNINGS ON}\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\nfinalization\r\nbegin\r\n  {$IFNDEF LCLLIB}\r\n  {$WARNINGS OFF}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 23}\r\n  UnRegisterObservableMember(\r\n    TArray<TClass>.Create(\r\n    TTMSFNCEdit, TTMSFNCEditButton\r\n    ));\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$WARNINGS ON}\r\n  {$ENDIF}\r\nend;\r\n{$ENDIF}\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2017 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : https://www.tmssoftware.com                       }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCTableView;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\n{$IFDEF CMNLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, WEBLib.TMSFNCTreeViewBase, WEBLib.TMSFNCTreeView, WEBLib.TMSFNCPersistence, WEBLib.TMSFNCStyles, WEBLib.TMSFNCTreeViewData, WEBLib.TMSFNCCustomControl,\r\n  WEBLib.TMSFNCTypes, WEBLib.TMSFNCGraphics, WEBLib.TMSFNCCustomTreeView, WEBLib.TMSFNCBitmapContainer,\r\n  WEBLib.TMSFNCGraphicsTypes, WEBLib.TMSFNCEdit, WEBLib.TMSFNCToolBar, WEBLib.Controls, WEBLib.ExtCtrls\r\n  {$IFDEF FNCLIB}\r\n  , WEBLib.TMSFNCControlPicker\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Types\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,UITypes, Types, Generics.Collections\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Types\r\n  {$ENDIF}\r\n  ,TypInfo\r\n  ;\r\n\r\nconst\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 0; // Minor version nr.\r\n  REL_VER = 7; // Release nr.\r\n  BLD_VER = 1; // Build nr.\r\n  CLP_FMT = '#TableView#';\r\n  SWIPEOFFSET = 30;\r\n  FILTERDELAY = 40;\r\n\r\n  // version history\r\n  // v1.0.0.0 : first release\r\n  // v1.0.1.0 : New : SwipeBounceGesture property to toggle bounce effect when swiping up/down on the list\r\n  //          : Fixed : Issue with lookup category\r\n  // v1.0.2.0 : New : KeyboardEscapeMode property to clear or stop filtering\r\n  //          : Improved : CategoryID can be a number that doesn't start from 0\r\n  // v1.0.2.1 : Fixed : Issue with badge drawing\r\n  // v1.0.2.2 : Fixed : Issue with showing filter button\r\n  // v1.0.2.3 : Fixed : Issue with filtering condition\r\n  // v1.0.2.4 : Fixed : Issue with scrolling to item with categories\r\n  // v1.0.2.5 : Fixed : Issue with resizing\r\n  // v1.0.3.0 : New : OnHeaderAnchorClick, OnFooterAnchorClick and OnItemTitleAnchorClick events implemented\r\n  // v1.0.3.1 : Fixed : Issue with swiping to see more options in combination with LongPressToEdit property.\r\n  //          : Fixed : Issue with anchor click when item was selected\r\n  // v1.0.3.2 : Fixed : Issue with text centering in accessory due to word-wrapping.\r\n  //          : Fixed : Issue with OnClick event not triggered\r\n  // v1.0.3.3 : Fixed : Issue with Anchor if font was changed\r\n  // v1.0.3.4 : Fixed : Issue with detail view event handler being called when view is not visible yet\r\n  // v1.0.4.0 : New : Interface for TMSFNCControlPicker implemented\r\n  // v1.0.4.1 : Fixed : Issue with back button not visible in TMS WEB Core\r\n  // v1.0.4.2 : Fixed : Issue in Delphi 11 with begin and end scene for CreateBitmapCanvas\r\n  // v1.0.4.3 : Fixed : Issue with OnBeforeItemShowDetailControl event when calling ShowDetailControl programmatically\r\n  // v1.0.4.4 : Fixed : Issue with returning existing category for category IDs not yet existing\r\n  // v1.0.5.0 : New : GlobalFont interface implemented\r\n  //          : New : Update initial look\r\n  //          : Fixed : Issue with returning ItemIndex between BeginUpdate & EndUpdate\r\n  // v1.0.5.1 : Fixed : Issue with index out of bounds when dragging item\r\n  // v1.0.5.2 : Fixed : Issue with designtime Header visiblity in Lazarus\r\n  // v1.0.5.3 : Fixed : Issue with stroke not correctly applied to underlying treeview\r\n  // v1.0.5.4 : Fixed : Access violation moving/copying items in iOS\r\n  // v1.0.6.0 : New : Added group layout support\r\n  //          : New : Added BadgeAlign property to align the badge accessory within the rectangle\r\n  // v1.0.6.1 : Improved : IsEditMode & CancelEditMode functions\r\n  // v1.0.6.2 : Improved : Filter now applied only when typing is idle\r\n  // v1.0.6.3 : Fixed : Issue with clipping content when filter edit is active\r\n  //          : Improved : MatchFilter(AItem) exposed\r\n  // v1.0.6.4 : Improved : Exposed Edit property to access filter input\r\n  //          : Improved : DisplayItemCount & DisplayItem properties\r\n  // v1.0.6.5 : Improved : LookupBar.IncludeFilteredItems to include or exclude filtered items when indicating the categories\r\n  // v1.0.6.6 : Fixed : LookupBar.IncludeFilteredItems causing unnecessary delay when filtering\r\n  // v1.0.7.0 : New : OnItemBitmapClick event\r\n  //          : Fixed : Categories and Items causing miscalculation when filtering\r\n  // v1.0.7.1 : Fixed : Issue with applying header & footer settings\r\n\r\ntype\r\n  TTMSFNCTableViewItemAccessory = (tviaNone, tviaDetail, tviaProgress, tviaButton, tviaBadge, tviaCustom);\r\n  TTMSFNCTableViewItemAccessories = set of TTMSFNCTableViewItemAccessory;\r\n\r\nconst\r\n  ClickAccessories = [tviaButton, tviaCustom];\r\n\r\ntype\r\n  TTMSFNCCustomTableView = class;\r\n  TTMSFNCTableViewInteraction = class;\r\n\r\n  TTMSFNCTableViewCategory = class;\r\n\r\n  TTMSFNCTableViewLayoutMode = (tvlmDefault, tvlmGroup);\r\n  TTMSFNCTableViewItemCheckType = (tvictNone, tvictCheckBox, tvictRadioButton);\r\n\r\n  TTMSFNCTableViewItem = class(TCollectionItem)\r\n  private\r\n    FFiltered: Boolean;\r\n    FRow: Integer;\r\n    FTag: NativeInt;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FTableView: TTMSFNCCustomTableView;\r\n    FText: String;\r\n    FDBKey: String;\r\n    FChecked: Boolean;\r\n    FDataBoolean: Boolean;\r\n    FWordWrapping: Boolean;\r\n    FTrimming: TTMSFNCGraphicsTextTrimming;\r\n    FHorizontalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FSelectedTextColor: TTMSFNCGraphicsColor;\r\n    FTextColor: TTMSFNCGraphicsColor;\r\n    FDisabledTextColor: TTMSFNCGraphicsColor;\r\n    FEnabled: Boolean;\r\n    FBitmapName: string;\r\n    FBitmap: TTMSFNCBitmap;\r\n    FHeight: Double;\r\n    FDataPointer: Pointer;\r\n    FHTMLTemplateItems: TStringList;\r\n    FVisible: Boolean;\r\n    FCategoryID: integer;\r\n    FDetailControl: TControl;\r\n    FAccessory: TTMSFNCTableViewItemAccessory;\r\n    FAccessoryWidth: Single;\r\n    FAccessoryProgress: Single;\r\n    FAccessoryHeight: Single;\r\n    FAccessoryText: String;\r\n    FCheckType: TTMSFNCTableViewItemCheckType;\r\n    FAccessoryFontColor: TTMSFNCGraphicsColor;\r\n    FAccessoryBorderColor: TTMSFNCGraphicsColor;\r\n    FAccessoryColor: TTMSFNCGraphicsColor;\r\n    FVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FEnableMoreOptions: Boolean;\r\n    FTitleTrimming: TTMSFNCGraphicsTextTrimming;\r\n    FTitleHorizontalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FTitle: String;\r\n    FDisabledTitleColor: TTMSFNCGraphicsColor;\r\n    FTitleWordWrapping: Boolean;\r\n    FSelectedTitleColor: TTMSFNCGraphicsColor;\r\n    FTitleColor: TTMSFNCGraphicsColor;\r\n    FTitleVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FTitleExpanded: Boolean;\r\n    FGroupIndex: Integer;\r\n    FBadgeAlign: TTMSFNCGraphicsTextAlign;\r\n    procedure SetText(const Value: String);\r\n    procedure SetHeight(const Value: Double);\r\n    procedure SetTrimming(const Value: TTMSFNCGraphicsTextTrimming);\r\n    procedure SetWordWrapping(const Value: Boolean);\r\n    procedure SetHorizontalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetSelectedTextColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetTextColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetDisabledTextColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetEnabled(const Value: Boolean);\r\n    procedure SetBitmapName(const Value: string);\r\n    procedure SetBitmap(const Value: TTMSFNCBitmap);\r\n    procedure SetChecked(const Value: Boolean);\r\n    function GetBitmapContainer: TTMSFNCBitmapContainer;\r\n    function GetStrippedHTMLText: string;\r\n    function IsHeightStored: Boolean;\r\n    procedure SetHTMLTemplateItems(const Value: TStringList);\r\n    procedure SetVisible(const Value: Boolean);\r\n    procedure SetCategoryID(const Value: integer);\r\n    procedure SetDetailControl(const Value: TControl);\r\n    procedure SetAccessory(const Value: TTMSFNCTableViewItemAccessory);\r\n    function IsAccessoryWidthStored: Boolean;\r\n    procedure SetAccessoryWidth(const Value: Single);\r\n    function IsAccessoryProgressStored: Boolean;\r\n    procedure SetAccessoryProgress(const Value: Single);\r\n    function IsAccessoryHeightStored: Boolean;\r\n    procedure SetAccessoryHeight(const Value: Single);\r\n    procedure SetAccessoryText(const Value: String);\r\n    procedure SetCheckType(const Value: TTMSFNCTableViewItemCheckType);\r\n    procedure SetAccessoryBorderColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetAccessoryColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetAccessoryFontColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetVerticalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetDisabledTitleColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetSelectedTitleColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetTitle(const Value: String);\r\n    procedure SetTitleColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetTitleHorizontalTextAlign(\r\n      const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetTitleTrimming(const Value: TTMSFNCGraphicsTextTrimming);\r\n    procedure SetTitleVerticalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetTitleWordWrapping(const Value: Boolean);\r\n    procedure SetTitleExpanded(const Value: Boolean);\r\n    procedure SetGroupIndex(const Value: Integer);\r\n    procedure SetBadgeAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n  protected\r\n    procedure UpdateItem;\r\n    procedure Changed(Sender: TObject);\r\n    procedure BitmapChanged(Sender: TObject);\r\n    procedure TemplateItemsChanged(Sender: TObject);\r\n  public\r\n    function GetTableView: TTMSFNCCustomTableView;\r\n    function GetText: string;\r\n    function GetTitle: string;\r\n    constructor Create(ACollection: TCollection); override;\r\n    destructor Destroy; override;\r\n    function SaveToString(ATextOnly: Boolean = True): String; virtual;\r\n    function IsSelected: Boolean; virtual;\r\n    procedure LoadFromString(AString: String); virtual;\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure AssignData(Source: TPersistent); virtual;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n    property DBKey: String read FDBKey write FDBKey;\r\n    property BitmapContainer: TTMSFNCBitmapContainer read GetBitmapContainer;\r\n    property StrippedHTMLText: String read GetStrippedHTMLText;\r\n    property TableView: TTMSFNCCustomTableView read GetTableView;\r\n    procedure ShowDetailControl; virtual;\r\n    procedure HideDetailControl; virtual;\r\n    property Title: String read FTitle write SetTitle;\r\n    property TitleExpanded: Boolean read FTitleExpanded write SetTitleExpanded default True;\r\n    property TitleWordWrapping: Boolean read FTitleWordWrapping write SetTitleWordWrapping default True;\r\n    property TitleTrimming: TTMSFNCGraphicsTextTrimming read FTitleTrimming write SetTitleTrimming default gttNone;\r\n    property TitleHorizontalTextAlign: TTMSFNCGraphicsTextAlign read FTitleHorizontalTextAlign write SetTitleHorizontalTextAlign default gtaLeading;\r\n    property TitleVerticalTextAlign: TTMSFNCGraphicsTextAlign read FTitleVerticalTextAlign write SetTitleVerticalTextAlign default gtaLeading;\r\n    property TitleColor: TTMSFNCGraphicsColor read FTitleColor write SetTitleColor default gcBlack;\r\n    property SelectedTitleColor: TTMSFNCGraphicsColor read FSelectedTitleColor write SetSelectedTitleColor default gcWhite;\r\n    property DisabledTitleColor: TTMSFNCGraphicsColor read FDisabledTitleColor write SetDisabledTitleColor default gcSilver;\r\n  published\r\n    property Checked: Boolean read FChecked write SetChecked default False;\r\n    property DetailControl: TControl read FDetailControl write SetDetailControl;\r\n    property Text: String read FText write SetText;\r\n    property HTMLTemplateItems: TStringList read FHTMLTemplateItems write SetHTMLTemplateItems;\r\n    property Bitmap: TTMSFNCBitmap read FBitmap write SetBitmap;\r\n    property BitmapName: string read FBitmapName write SetBitmapName;\r\n    property WordWrapping: Boolean read FWordWrapping write SetWordWrapping default True;\r\n    property Trimming: TTMSFNCGraphicsTextTrimming read FTrimming write SetTrimming default gttNone;\r\n    property HorizontalTextAlign: TTMSFNCGraphicsTextAlign read FHorizontalTextAlign write SetHorizontalTextAlign default gtaLeading;\r\n    property VerticalTextAlign: TTMSFNCGraphicsTextAlign read FVerticalTextAlign write SetVerticalTextAlign default gtaLeading;\r\n    property TextColor: TTMSFNCGraphicsColor read FTextColor write SetTextColor default gcBlack;\r\n    property SelectedTextColor: TTMSFNCGraphicsColor read FSelectedTextColor write SetSelectedTextColor default gcWhite;\r\n    property DisabledTextColor: TTMSFNCGraphicsColor read FDisabledTextColor write SetDisabledTextColor default gcSilver;\r\n    property Enabled: Boolean read FEnabled write SetEnabled default True;\r\n    property Height: Double read FHeight write SetHeight stored IsHeightStored nodefault;\r\n    property Visible: Boolean read FVisible write SetVisible default True;\r\n    property CategoryID: integer read FCategoryID write SetCategoryID default -1;\r\n    property GroupIndex: Integer read FGroupIndex write SetGroupIndex default 0;\r\n    property Tag: NativeInt read FTag write FTag default 0;\r\n    property AccessoryWidth: Single read FAccessoryWidth write SetAccessoryWidth stored IsAccessoryWidthStored nodefault;\r\n    property AccessoryHeight: Single read FAccessoryHeight write SetAccessoryHeight stored IsAccessoryHeightStored nodefault;\r\n    property Accessory: TTMSFNCTableViewItemAccessory read FAccessory write SetAccessory default tviaNone;\r\n    property AccessoryProgress: Single read FAccessoryProgress write SetAccessoryProgress stored IsAccessoryProgressStored nodefault;\r\n    property AccessoryText: String read FAccessoryText write SetAccessoryText;\r\n    property BadgeAlign: TTMSFNCGraphicsTextAlign read FBadgeAlign write SetBadgeAlign default gtaCenter;\r\n    property AccessoryColor: TTMSFNCGraphicsColor read FAccessoryColor write SetAccessoryColor default gcNull;\r\n    property AccessoryBorderColor: TTMSFNCGraphicsColor read FAccessoryBorderColor write SetAccessoryBorderColor default gcNull;\r\n    property AccessoryFontColor: TTMSFNCGraphicsColor read FAccessoryFontColor write SetAccessoryFontColor default gcNull;\r\n    property CheckType: TTMSFNCTableViewItemCheckType read FCheckType write SetCheckType default tvictNone;\r\n    property EnableMoreOptions: Boolean read FEnableMoreOptions write FEnableMoreOptions default True;\r\n  end;\r\n\r\n  TTMSFNCTableViewItemsSortMode = (tvismAscending, tvismDescending);\r\n  TTMSFNCTableViewItemsSortKind = (tviskNone, tviskAscending, tviskDescending);\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCTableViewItems = class(TTMSFNCOwnedCollection)\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCTableViewItems = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCTableViewItem>)\r\n  {$ENDIF}\r\n  private\r\n    FTableView: TTMSFNCCustomTableView;\r\n    function GetItem(Index: Integer): TTMSFNCTableViewItem;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCTableViewItem);\r\n  protected\r\n    function GetItemClass: TCollectionItemClass; virtual;\r\n    function Compare(AItem1, AItem2: TTMSFNCTableViewItem; ACaseSensitive: Boolean = True; ASortingMode: TTMSFNCTableViewItemsSortMode = tvismAscending): Integer; virtual;\r\n    procedure QuickSort(L, R: Integer; ACaseSensitive: Boolean = True; ASortingMode: TTMSFNCTableViewItemsSortMode = tvismAscending); virtual;\r\n  public\r\n    function TableView: TTMSFNCCustomTableView;\r\n    constructor Create(ATableView: TTMSFNCCustomTableView);\r\n    function Add: TTMSFNCTableViewItem; virtual;\r\n    function Insert(Index: Integer): TTMSFNCTableViewItem;\r\n    procedure Clear; virtual;\r\n    procedure Sort(ACaseSensitive: Boolean = True; ASortingMode: TTMSFNCTableViewItemsSortMode = tvismAscending);\r\n    property Items[Index: Integer]: TTMSFNCTableViewItem read GetItem write SetItem; default;\r\n  end;\r\n\r\n  TTMSFNCTableViewLookup = class(TPersistent)\r\n  private\r\n    FOwner: TTMSFNCTableViewInteraction;\r\n    function GetAutoSelect: Boolean;\r\n    function GetCaseSensitive: Boolean;\r\n    function GetEnabled: Boolean;\r\n    function GetIncremental: Boolean;\r\n    procedure SetAutoSelect(const Value: Boolean);\r\n    procedure SetCaseSensitive(const Value: Boolean);\r\n    procedure SetEnabled(const Value: Boolean);\r\n    procedure SetIncremental(const Value: Boolean);\r\n  public\r\n    constructor Create(AOwner: TTMSFNCTableViewInteraction);\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property CaseSensitive: Boolean read GetCaseSensitive write SetCaseSensitive default False;\r\n    property Enabled: Boolean read GetEnabled write SetEnabled default True;\r\n    property Incremental: Boolean read GetIncremental write SetIncremental default True;\r\n    property AutoSelect: Boolean read GetAutoSelect write SetAutoSelect default True;\r\n  end;\r\n\r\n  TTMSFNCTableViewFiltering = class(TPersistent)\r\n  private\r\n    FOwner: TTMSFNCTableViewInteraction;\r\n    function GetDropDownHeight: integer;\r\n    function GetDropDownWidth: integer;\r\n    function GetEnabled: Boolean;\r\n    procedure SetDropDownHeight(const Value: integer);\r\n    procedure SetDropDownWidth(const Value: integer);\r\n    procedure SetEnabled(const Value: Boolean);\r\n  public\r\n    constructor Create(AOwner: TTMSFNCTableViewInteraction);\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property Enabled: Boolean read GetEnabled write SetEnabled default False;\r\n    property DropDownWidth: integer read GetDropDownWidth write SetDropDownWidth default 100;\r\n    property DropDownHeight: integer read GetDropDownHeight write SetDropDownHeight default 120;\r\n  end;\r\n\r\n  TTMSFNCTableViewMouseEditMode = (tvmemDoubleClick, tvmemSingleClick, tvmemSingleClickOnSelectedItem);\r\n  TTMSFNCTableViewClipboardMode = (tvcmNone, tvcmTextOnly, tvcmFull);\r\n  TTMSFNCTableViewDragDropMode = (tvdmNone, tvdmMove, tvdmCopy);\r\n  TTMSFNCTableViewSorting = (tvcsNone, tvcsNormal, tvcsNormalCaseSensitive);\r\n  TTMSFNCTableViewShowDetailMode = (tvdtNone, tvdtAfterSelectItem);\r\n  TTMSFNCTableViewKeyboardEscapeMode = (tvkeNone, tvkeClearEdit, tvkeStopFilter);\r\n\r\n  TTMSFNCTableViewInteraction = class(TPersistent)\r\n  private\r\n    FTableView: TTMSFNCCustomTableView;\r\n    FLookup: TTMSFNCTableViewLookup;\r\n    FFiltering: TTMSFNCTableViewFiltering;\r\n    FShowDetailMode: TTMSFNCTableViewShowDetailMode;\r\n    FShowEditButton: Boolean;\r\n    FShowFilterButton: Boolean;\r\n    FAccessoryClickDetection: TTMSFNCTableViewItemAccessories;\r\n    FLongPressToEdit: Boolean;\r\n    FSwipeToShowMoreOptions: Boolean;\r\n    FSwipeBounceGesture: Boolean;\r\n    FKeyboardEscapeMode: TTMSFNCTableViewKeyboardEscapeMode;\r\n    function GetMultiSelect: Boolean;\r\n    procedure SetMultiSelect(const Value: Boolean);\r\n    function GetClipboardMode: TTMSFNCTableViewClipboardMode;\r\n    function GetDragDropMode: TTMSFNCTableViewDragDropMode;\r\n    function GetReorder: Boolean;\r\n    function GetTouchScrolling: Boolean;\r\n    procedure SetDragDropMode(const Value: TTMSFNCTableViewDragDropMode);\r\n    procedure SetFiltering(const Value: TTMSFNCTableViewFiltering);\r\n    procedure SetLookup(const Value: TTMSFNCTableViewLookup);\r\n    procedure SetReorder(const Value: Boolean);\r\n    procedure SetTouchScrolling(const Value: Boolean);\r\n    procedure SetClipboardMode(const Value: TTMSFNCTableViewClipboardMode);\r\n    function GetSorting: TTMSFNCTableViewSorting;\r\n    procedure SetSorting(const Value: TTMSFNCTableViewSorting);\r\n    procedure SetShowDetailMode(const Value: TTMSFNCTableViewShowDetailMode);\r\n    procedure SetShowEditButton(const Value: Boolean);\r\n    procedure SetShowFilterButton(const Value: Boolean);\r\n    procedure SetAccessoryClickDetection(\r\n      const Value: TTMSFNCTableViewItemAccessories);\r\n    function GetAutoOpenURL: Boolean;\r\n    procedure SetAutoOpenURL(const Value: Boolean);\r\n    function GetAnimationFactor: Single;\r\n    procedure SetAnimationFactor(const Value: Single);\r\n  protected\r\n    property ClipboardMode: TTMSFNCTableViewClipboardMode read GetClipboardMode write SetClipboardMode default tvcmNone;\r\n    property Reorder: Boolean read GetReorder write SetReorder default False;\r\n    property Sorting: TTMSFNCTableViewSorting read GetSorting write SetSorting default tvcsNone;\r\n    property Filtering: TTMSFNCTableViewFiltering read FFiltering write SetFiltering;\r\n    property Lookup: TTMSFNCTableViewLookup read FLookup write SetLookup;\r\n  public\r\n    constructor Create(ATableView: TTMSFNCCustomTableView);\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    property DragDropMode: TTMSFNCTableViewDragDropMode read GetDragDropMode write SetDragDropMode default tvdmNone;\r\n  published\r\n    property AnimationFactor: Single read GetAnimationFactor write SetAnimationFactor;\r\n    property AutoOpenURL: Boolean read GetAutoOpenURL write SetAutoOpenURL default True;\r\n    property MultiSelect: Boolean read GetMultiSelect write SetMultiSelect default False;\r\n    property TouchScrolling: Boolean read GetTouchScrolling write SetTouchScrolling default True;\r\n    property ShowDetailMode: TTMSFNCTableViewShowDetailMode read FShowDetailMode write SetShowDetailMode default tvdtAfterSelectItem;\r\n    property ShowEditButton: Boolean read FShowEditButton write SetShowEditButton default False;\r\n    property ShowFilterButton: Boolean read FShowFilterButton write SetShowFilterButton default False;\r\n    property SwipeBounceGesture: Boolean read FSwipeBounceGesture write FSwipeBounceGesture default True;\r\n    property AccessoryClickDetection: TTMSFNCTableViewItemAccessories read FAccessoryClickDetection write SetAccessoryClickDetection default ClickAccessories;\r\n    property SwipeToShowMoreOptions: Boolean read FSwipeToShowMoreOptions write FSwipeToShowMoreOptions default True;\r\n    property LongPressToEdit: Boolean read FLongPressToEdit write FLongPressToEdit default true;\r\n    property KeyboardEscapeMode: TTMSFNCTableViewKeyboardEscapeMode read FKeyboardEscapeMode write FKeyboardEscapeMode default tvkeStopFilter;\r\n  end;\r\n\r\n  TTMSFNCTableViewItemHeightMode = (tvhmFixed, tvhmVariable);\r\n\r\n  TTMSFNCTableViewItemAppearance = class(TPersistent)\r\n  private\r\n    FTableView: TTMSFNCCustomTableView;\r\n    FHTMLTemplate: string;\r\n    FAccessoryDetailBitmaps: TTMSFNCScaledBitmaps;\r\n    FAccessoryFont: TTMSFNCGraphicsFont;\r\n    FAccessoryStroke: TTMSFNCGraphicsStroke;\r\n    FAccessoryFill: TTMSFNCGraphicsFill;\r\n    FHeight: Double;\r\n    function GetFont: TTMSFNCGraphicsFont;\r\n    function GetSelectedFill: TTMSFNCGraphicsFill;\r\n    procedure SetFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetSelectedFill(const Value: TTMSFNCGraphicsFill);\r\n    function GetSelectedStroke: TTMSFNCGraphicsStroke;\r\n    procedure SetSelectedStroke(const Value: TTMSFNCGraphicsStroke);\r\n    function GetDisabledFill: TTMSFNCGraphicsFill;\r\n    function GetDisabledStroke: TTMSFNCGraphicsStroke;\r\n    function GetFill: TTMSFNCGraphicsFill;\r\n    function GetStroke: TTMSFNCGraphicsStroke;\r\n    procedure SetDisabledFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetDisabledStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetStroke(const Value: TTMSFNCGraphicsStroke);\r\n    function GetHeightMode: TTMSFNCTableViewItemHeightMode;\r\n    procedure SetHeightMode(const Value: TTMSFNCTableViewItemHeightMode);\r\n    function GetFixedHeight: Double;\r\n    procedure SetFixedHeight(const Value: Double);\r\n    procedure SetHTMLTemplate(const Value: string);\r\n    procedure SetAccessoryDetailBitmaps(const Value: TTMSFNCScaledBitmaps);\r\n    procedure SetAccessoryFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetAccessoryFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetAccessoryStroke(const Value: TTMSFNCGraphicsStroke);\r\n    function IsHeightStored: Boolean;\r\n    procedure SetHeight(const Value: Double);\r\n    function GetShowFocus: Boolean;\r\n    procedure SetShowFocus(const Value: Boolean);\r\n  protected\r\n    procedure DoAccessoryDetailBitmapsChanged(Sender: TObject);\r\n    procedure FontChanged(Sender: TObject);\r\n    procedure FillChanged(Sender: TObject);\r\n    procedure StrokeChanged(Sender: TObject);\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create(ATableView: TTMSFNCCustomTableView);\r\n    destructor Destroy; override;\r\n  published\r\n    property Font: TTMSFNCGraphicsFont read GetFont write SetFont;\r\n    property Fill: TTMSFNCGraphicsFill read GetFill write SetFill;\r\n    property Stroke: TTMSFNCGraphicsStroke read GetStroke write SetStroke;\r\n    property SelectedFill: TTMSFNCGraphicsFill read GetSelectedFill write SetSelectedFill;\r\n    property SelectedStroke: TTMSFNCGraphicsStroke read GetSelectedStroke write SetSelectedStroke;\r\n    property DisabledFill: TTMSFNCGraphicsFill read GetDisabledFill write SetDisabledFill;\r\n    property DisabledStroke: TTMSFNCGraphicsStroke read GetDisabledStroke write SetDisabledStroke;\r\n    property HeightMode: TTMSFNCTableViewItemHeightMode read GetHeightMode write SetHeightMode default tvhmVariable;\r\n    property FixedHeight: Double read GetFixedHeight write SetFixedHeight;\r\n    property Height: Double read FHeight write SetHeight stored IsHeightStored nodefault;\r\n    property HTMLTemplate: string read FHTMLTemplate write SetHTMLTemplate;\r\n    property AccessoryDetailBitmaps: TTMSFNCScaledBitmaps read FAccessoryDetailBitmaps write SetAccessoryDetailBitmaps;\r\n    property AccessoryFont: TTMSFNCGraphicsFont read FAccessoryFont write SetAccessoryFont;\r\n    property AccessoryStroke: TTMSFNCGraphicsStroke read FAccessoryStroke write SetAccessoryStroke;\r\n    property AccessoryFill: TTMSFNCGraphicsFill read FAccessoryFill write SetAccessoryFill;\r\n    property ShowFocus: Boolean read GetShowFocus write SetShowFocus default True;\r\n  end;\r\n\r\n  TTMSFNCTableViewCategoryAppearance = class(TPersistent)\r\n  private\r\n    FTableView: TTMSFNCCustomTableView;\r\n    FHeight: Single;\r\n    FFloating: Boolean;\r\n    FShowUncategorized: Boolean;\r\n    function GetFont: TTMSFNCGraphicsFont;\r\n    procedure SetFont(const Value: TTMSFNCGraphicsFont);\r\n    function GetFill: TTMSFNCGraphicsFill;\r\n    function GetStroke: TTMSFNCGraphicsStroke;\r\n    procedure SetFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetStroke(const Value: TTMSFNCGraphicsStroke);\r\n    function IsHeightStored: Boolean;\r\n    procedure SetHeight(const Value: Single);\r\n    procedure SetFloating(const Value: Boolean);\r\n    procedure SetShowUncategorized(const Value: Boolean);\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create(ATableView: TTMSFNCCustomTableView);\r\n    destructor Destroy; override;\r\n  published\r\n    property Font: TTMSFNCGraphicsFont read GetFont write SetFont;\r\n    property Fill: TTMSFNCGraphicsFill read GetFill write SetFill;\r\n    property Stroke: TTMSFNCGraphicsStroke read GetStroke write SetStroke;\r\n    property Height: Single read FHeight write SetHeight stored IsHeightStored nodefault;\r\n    property Floating: Boolean read FFloating write SetFloating default True;\r\n    property ShowUncategorized: Boolean read FShowUncategorized write SetShowUncategorized default True;\r\n  end;\r\n\r\n  TTMSFNCTableViewGroupAppearance = class(TPersistent)\r\n  private\r\n    FTableView: TTMSFNCCustomTableView;\r\n    FMargins: TTMSFNCMargins;\r\n    FRounding: Integer;\r\n    procedure SetMargins(const Value: TTMSFNCMargins);\r\n    procedure SetRounding(const Value: Integer);\r\n  protected\r\n    procedure MarginsChanged(Sender: TObject);\r\n  public\r\n    constructor Create(ATableView: TTMSFNCCustomTableView);\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property Rounding: Integer read FRounding write SetRounding default 10;\r\n    property Margins: TTMSFNCMargins read FMargins write SetMargins;\r\n  end;\r\n\r\n  TTMSFNCTableViewMoreOptionAppearance = class(TPersistent)\r\n  private\r\n    FTableView: TTMSFNCCustomTableView;\r\n    FFill: TTMSFNCGraphicsFill;\r\n    FStroke: TTMSFNCGraphicsStroke;\r\n    FFont: TTMSFNCGraphicsFont;\r\n    procedure SetFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetStroke(const Value: TTMSFNCGraphicsStroke);\r\n  protected\r\n    procedure FontChanged(Sender: TObject);\r\n    procedure StrokeChanged(Sender: TObject);\r\n    procedure FillChanged(Sender: TObject);\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create(ATableView: TTMSFNCCustomTableView);\r\n    destructor Destroy; override;\r\n  published\r\n    property Font: TTMSFNCGraphicsFont read FFont write SetFont;\r\n    property Fill: TTMSFNCGraphicsFill read FFill write SetFill;\r\n    property Stroke: TTMSFNCGraphicsStroke read FStroke write SetStroke;\r\n  end;\r\n\r\n  TTMSFNCTableViewIntegerArray = array of Integer;\r\n\r\n  TTMSFNCTableViewHeaderFooter = class(TPersistent)\r\n  private\r\n    FTableView: TTMSFNCCustomTableView;\r\n    FText: String;\r\n    FWordWrapping: Boolean;\r\n    FVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FTrimming: TTMSFNCGraphicsTextTrimming;\r\n    FHorizontalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    function GetVisible: Boolean;\r\n    procedure SetVisible(const Value: Boolean);\r\n    procedure SetText(const Value: String);\r\n    function GetFill: TTMSFNCGraphicsFill;\r\n    function GetHeight: Single;\r\n    function GetStroke: TTMSFNCGraphicsStroke;\r\n    procedure SetFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetHorizontalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetHeight(const Value: Single);\r\n    procedure SetStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetVerticalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    function GetFont: TTMSFNCGraphicsFont;\r\n    procedure SetFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetTrimming(const Value: TTMSFNCGraphicsTextTrimming);\r\n    procedure SetWordWrapping(const Value: Boolean);\r\n    function GetSortIndicatorColor: TTMSFNCGraphicsColor;\r\n    procedure SetSortIndicatorColor(const Value: TTMSFNCGraphicsColor);\r\n  protected\r\n    property Visible: Boolean read GetVisible write SetVisible default True;\r\n    property Text: String read FText write SetText;\r\n    property Fill: TTMSFNCGraphicsFill read GetFill write SetFill;\r\n    property Font: TTMSFNCGraphicsFont read GetFont write SetFont;\r\n    property Stroke: TTMSFNCGraphicsStroke read GetStroke write SetStroke;\r\n    property HorizontalTextAlign: TTMSFNCGraphicsTextAlign read FHorizontalTextAlign write SetHorizontalTextAlign default gtaCenter;\r\n    property VerticalTextAlign: TTMSFNCGraphicsTextAlign read FVerticalTextAlign write SetVerticalTextAlign default gtaCenter;\r\n    property WordWrapping: Boolean read FWordWrapping write SetWordWrapping default False;\r\n    property Trimming: TTMSFNCGraphicsTextTrimming read FTrimming write SetTrimming default gttNone;\r\n    property Height: Single read GetHeight write SetHeight;\r\n    property SortIndicatorColor: TTMSFNCGraphicsColor read GetSortIndicatorColor write SetSortIndicatorColor default TTMSFNCTreeViewColorSelection;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create(ATableView: TTMSFNCCustomTableView); virtual;\r\n  end;\r\n\r\n  TTMSFNCTableViewHeader = class(TTMSFNCTableViewHeaderFooter)\r\n  published\r\n    property Visible;\r\n    property Text;\r\n    property Fill;\r\n    property Font;\r\n    property Stroke;\r\n    property HorizontalTextAlign;\r\n    property VerticalTextAlign;\r\n    property WordWrapping;\r\n    property Trimming;\r\n    property Height;\r\n  end;\r\n\r\n  TTMSFNCTableViewFooter = class(TTMSFNCTableViewHeaderFooter)\r\n  published\r\n    property Visible;\r\n    property Text;\r\n    property Fill;\r\n    property Font;\r\n    property Stroke;\r\n    property HorizontalTextAlign;\r\n    property VerticalTextAlign;\r\n    property WordWrapping;\r\n    property Trimming;\r\n    property Height;\r\n  end;\r\n\r\n  TTMSFNCTableViewCopyItems = class(TTMSFNCTableViewItems);\r\n\r\n  TTMSFNCTableViewBeforeDrawSortIndicatorEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; ASortIndex: Integer; ASortKind: TTMSFNCTableViewItemsSortKind; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCTableViewAfterDrawSortIndicatorEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; ASortIndex: Integer; ASortKind: TTMSFNCTableViewItemsSortKind) of object;\r\n  TTMSFNCTableViewNeedFilterDropDownDataEvent = procedure(Sender: TObject; AValues: TStrings) of object;\r\n  TTMSFNCTableViewItemAnchorClickEvent = procedure(Sender: TObject; AItem: TTMSFNCTableViewItem; AAnchor: String) of object;\r\n  TTMSFNCTableViewBeforeReorderItemEvent = procedure(Sender: TObject; AFromItem, AToItem: TTMSFNCTableViewItem; var ACanReorder: Boolean) of object;\r\n  TTMSFNCTableViewAfterReorderItemEvent = procedure(Sender: TObject; AFromItem, AToItem: TTMSFNCTableViewItem) of object;\r\n  TTMSFNCTableViewBeforeDropItemEvent = procedure(Sender: TObject; AFromItem, AToItem: TTMSFNCTableViewItem; var ACanDrop: Boolean) of object;\r\n  TTMSFNCTableViewAfterDropItemEvent = procedure(Sender: TObject; AFromItem, AToItem: TTMSFNCTableViewItem) of object;\r\n  TTMSFNCTableViewBeforeCopyToClipboardEvent = procedure(Sender: TObject; var ACanCopy: Boolean) of object;\r\n  TTMSFNCTableViewBeforeCutToClipboardEvent = procedure(Sender: TObject; var ACanCut: Boolean) of object;\r\n  TTMSFNCTableViewBeforePasteFromClipboardEvent = procedure(Sender: TObject; var ACanPaste: Boolean) of object;\r\n  TTMSFNCTableViewAfterCopyToClipboardEvent = procedure(Sender: TObject) of object;\r\n  TTMSFNCTableViewAfterCutToClipboardEvent = procedure(Sender: TObject) of object;\r\n  TTMSFNCTableViewAfterPasteFromClipboardEvent = procedure(Sender: TObject) of object;\r\n  TTMSFNCTableViewBeforeDrawItemTextEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItem: TTMSFNCTableViewItem; AText: String; var AAllow: Boolean) of object;\r\n  TTMSFNCTableViewAfterDrawItemTextEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItem: TTMSFNCTableViewItem; AText: String) of object;\r\n  TTMSFNCTableViewBeforeDrawItemTitleEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItem: TTMSFNCTableViewItem; ATitle: String; var AAllow: Boolean) of object;\r\n  TTMSFNCTableViewAfterDrawItemTitleEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItem: TTMSFNCTableViewItem; ATitle: String) of object;\r\n  TTMSFNCTableViewItemSelectedEvent = procedure(Sender: TObject; AItem: TTMSFNCTableViewItem) of object;\r\n  TTMSFNCTableViewItemUnSelectedEvent = procedure(Sender: TObject; AItem: TTMSFNCTableViewItem) of object;\r\n  TTMSFNCTableViewItemSelectionChangedEvent = TNotifyEvent;\r\n  TTMSFNCTableViewItemClickEvent = procedure(Sender: TObject; AItem: TTMSFNCTableViewItem) of object;\r\n  TTMSFNCTableViewItemMouseEnterEvent = procedure(Sender: TObject; AItem: TTMSFNCTableViewItem) of object;\r\n  TTMSFNCTableViewItemMouseLeaveEvent = procedure(Sender: TObject; AItem: TTMSFNCTableViewItem) of object;\r\n  TTMSFNCTableViewItemCheckChangedEvent = procedure(Sender: TObject; AItem: TTMSFNCTableViewItem) of object;\r\n  TTMSFNCTableViewScrollEvent = procedure(Sender: TObject; APosition: Single) of object;\r\n  TTMSFNCTableViewGetItemHeightEvent = procedure(Sender: TObject; AItem: TTMSFNCTableViewItem; var AHeight: Double) of object;\r\n  TTMSFNCTableViewBeforeDrawItemIconEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItem: TTMSFNCTableViewItem; AIcon:TTMSFNCBitmap; var AAllow: Boolean) of object;\r\n  TTMSFNCTableViewAfterDrawItemIconEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItem: TTMSFNCTableViewItem; AIcon:TTMSFNCBitmap) of object;\r\n  TTMSFNCTableViewBeforeDrawItemCheckEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItem: TTMSFNCTableViewItem; ACheck: TTMSFNCBitmap; var AAllow: Boolean) of object;\r\n  TTMSFNCTableViewAfterDrawItemCheckEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItem: TTMSFNCTableViewItem; ACheck: TTMSFNCBitmap) of object;\r\n  TTMSFNCTableViewBeforeDrawItemEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItem: TTMSFNCTableViewItem; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCTableViewAfterDrawItemEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItem: TTMSFNCTableViewItem) of object;\r\n  TTMSFNCTableViewItemCompareEvent = procedure(Sender: TObject; Item1, Item2: TTMSFNCTableViewItem; var ACompareResult: Integer) of object;\r\n  TTMSFNCTableViewCategoryCompareEvent = procedure(Sender: TObject; Category1, Category2: TTMSFNCTableViewCategory; var ACompareResult: Integer) of object;\r\n  TTMSFNCTableViewFilterSelectEvent = procedure(Sender: TObject; var ACondition: string) of object;\r\n  TTMSFNCTableViewGetHTMLTemplateValueEvent = procedure(Sender: TObject; AItem: TTMSFNCTableViewItem; AName: string; var AValue: string) of object;\r\n  TTMSFNCTableViewGetHTMLTemplateEvent = procedure(Sender: TObject; AItem: TTMSFNCTableViewItem; var AHTMLTemplate: string) of object;\r\n  TTMSFNCTableViewAnchorHeaderFooterClick = procedure(Sender: TObject; AAnchor: string) of object;\r\n\r\n  TTMSFNCTableViewFilterOperation = (tvfoSHORT, tvfoNONE, tvfoAND, tvfoXOR, tvfoOR);\r\n\r\n  TTMSFNCTableViewFilterData = class(TCollectionItem)\r\n  private\r\n    FCondition: string;\r\n    FCaseSensitive: Boolean;\r\n    FSuffix: string;\r\n    FPrefix: string;\r\n    FOperation: TTMSFNCTableViewFilterOperation;\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property Condition:string read FCondition write FCondition;\r\n    property CaseSensitive: Boolean read FCaseSensitive write FCaseSensitive default True;\r\n    property Prefix: string read FPrefix write FPrefix;\r\n    property Suffix: string read FSuffix write FSuffix;\r\n    property Operation: TTMSFNCTableViewFilterOperation read FOperation write FOperation;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCTableViewFilter = class(TTMSFNCOwnedCollection)\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCTableViewFilter = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCTableViewFilterData>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TTMSFNCCustomTableView;\r\n    function GetItem(Index: Integer): TTMSFNCTableViewFilterData;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCTableViewFilterData);\r\n  public\r\n    constructor Create(AOwner: TTMSFNCCustomTableView);\r\n    function Add: TTMSFNCTableViewFilterData;\r\n    function Insert(index: Integer): TTMSFNCTableViewFilterData;\r\n    property Items[Index: Integer]: TTMSFNCTableViewFilterData read GetItem write SetItem; default;\r\n  end;\r\n\r\n  TTMSFNCTableViewBeforeApplyFilterEvent = procedure(Sender: TObject; AFilter: TTMSFNCTableViewFilterData; var AAllow: Boolean) of object;\r\n  TTMSFNCTableViewAfterApplyFilterEvent = procedure(Sender: TObject; AFilter: TTMSFNCTableViewFilterData) of object;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCTreeViewTableViewFloatingNodes = class(TObjectList)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCTreeViewVirtualNode;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCTreeViewVirtualNode);\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCTreeViewVirtualNode read GetItem write SetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCTreeViewTableViewFloatingNodes = class(TObjectList<TTMSFNCTreeViewVirtualNode>);\r\n  {$ENDIF}\r\n\r\n  TTMSFNCTableViewMoreOption = class;\r\n\r\n  TTMSFNCTreeViewTableView = class(TTMSFNCTreeView)\r\n  private\r\n    FDownMoreOption: TTMSFNCTableViewMoreOption;\r\n    FMoreOffset, FMoreOffsetTo: Double;\r\n    FMoreOffsetItem: TTMSFNCTableViewItem;\r\n    FDownAction: Boolean;\r\n    FDownCount: Integer;\r\n    FDownTimer: Boolean;\r\n    FDownX, FDownY: Single;\r\n    FAnimTimer: TTimer;\r\n    FAnimateMoreOptions, FAnimateMoreOptionsClose: Boolean;\r\n    FMouseDownOnAccessory: Boolean;\r\n    FMouseDownOnBitmap: Boolean;\r\n    FAnimMarqueeSwitch: Boolean;\r\n    FAnimMarqueeStartAngle, FAnimMarqueeSweepAngle, FAnimShiftAngle: Single;\r\n    FManualProgressSweepAngle, FManualProgressStartAngle: Single;\r\n    FReloadActive: Boolean;\r\n    FMouseDownOnLookupBar: Boolean;\r\n    FTableView: TTMSFNCCustomTableView;\r\n    FFloatingNodes: TTMSFNCTreeViewTableViewFloatingNodes;\r\n    FOnFooterAnchorClick: TTMSFNCTableViewAnchorHeaderFooterClick;\r\n    FOnHeaderAnchorClick: TTMSFNCTableViewAnchorHeaderFooterClick;\r\n  protected\r\n    procedure AnimateTimerChanged(Sender: TObject);\r\n    procedure OffsetNodeRects(ANode: TTMSFNCTreeViewVirtualNode; AX, AY: Single; var ARect: TRectF); override;\r\n    procedure GetNodeMargins(var ALeft, ATop, ARight, ABottom: Single); override;\r\n    function GetVScrollOffset: Single; override;\r\n    function GetNodesSpacing(ANode: TTMSFNCTreeViewVirtualNode): Single; override;\r\n    procedure DoGetNodeRounding(ANode: TTMSFNCTreeViewVirtualNode; var ARounding: Integer; var ACorners: TTMSFNCGraphicsCorners); override;\r\n    procedure CustomizeNodeCache({%H-}AGraphics: TTMSFNCGraphics; {%H-}AStartY: Single); override;\r\n    procedure CustomizeScrollPosition({%H-}ANode: TTMSFNCTreeViewVirtualNode; var {%H-}APosition, {%H-}ATopPosition: Double); override;\r\n    procedure DrawLookupBar(AGraphics: TTMSFNCGraphics; {%H-}ARect: TRectF); virtual;\r\n    procedure DrawReload(AGraphics: TTMSFNCGraphics; {%H-}ARect: TRectF); virtual;\r\n    procedure HandleMouseUp(Button: TTMSFNCMouseButton; Shift: TShiftState; X, Y: Single); override;\r\n    procedure HandleMouseDown(Button: TTMSFNCMouseButton; Shift: TShiftState; X, Y: Single); override;\r\n    procedure HandleMouseMove(Shift: TShiftState; X, Y: Single); override;\r\n    procedure HandleKeyDown(var Key: Word; Shift: TShiftState); override;\r\n    procedure ProcessLookup(X, Y: Single; DoLookup: Boolean = True); virtual;\r\n    procedure StartReload; override;\r\n    procedure UpdateCheckState({%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; {%H-}AChecked: Boolean); override;\r\n    function ScrollLimitation: Boolean; override;\r\n    function NeedsReload(AVerticalOffset: Single): Boolean; override;\r\n    function GetReloadOffset: Single; override;\r\n    function GetNodesRect: TRectF; override;\r\n    function GetContentRect: TRectF; override;\r\n    function GetCategoryAtXY(X, Y: Single): Integer; virtual;\r\n    function GetLookupBarRect: TRectF; virtual;\r\n    function GetContentClipRect: TRectF; override;\r\n    function CanApplyVerticalOffset: Boolean; override;\r\n    function XYToHeaderAnchor(X, Y: Single): string;\r\n    function XYToFooterAnchor(X, Y: Single): string;\r\n    procedure DoHeaderAnchorClick(AAnchor: String); virtual;\r\n    procedure DoFooterAnchorClick(AAnchor: String); virtual;\r\n    property OnFooterAnchorClick: TTMSFNCTableViewAnchorHeaderFooterClick read FOnFooterAnchorClick write FOnFooterAnchorClick;\r\n    property OnHeaderAnchorClick: TTMSFNCTableViewAnchorHeaderFooterClick read FOnHeaderAnchorClick write FOnHeaderAnchorClick;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF); override;\r\n    function GetTotalColumnNodeWidth: Double; override;\r\n    function GetColumnWidth(AColumn: Integer): Double; override;\r\n    property CustomScrollBars;\r\n  end;\r\n\r\n  TTMSFNCTableViewDisplayItemKind = (tvikNone, tvikItem, tvikCategory);\r\n\r\n  TTMSFNCTableViewDisplayItem = record\r\n    Kind: TTMSFNCTableViewDisplayItemKind;\r\n    Item: TTMSFNCTableViewItem;\r\n    CategoryID: Integer;\r\n    Row: Integer;\r\n    Text: string;\r\n    {$IFDEF LCLLIB}\r\n    class operator = (z1, z2 : TTMSFNCTableViewDisplayItem) b : boolean;\r\n    {$ENDIF}\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCTableViewDisplayList = class(TList)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCTableViewDisplayItem;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCTableViewDisplayItem);\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCTableViewDisplayItem read GetItem write SetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCTableViewDisplayList = class(TList<TTMSFNCTableViewDisplayItem>);\r\n  {$ENDIF}\r\n\r\n  TTMSFNCTableViewLookupBarDisplayItem = record\r\n    Rect: TRectF;\r\n    Text: string;\r\n    Active: Boolean;\r\n    {$IFDEF LCLLIB}\r\n    class operator = (z1, z2 : TTMSFNCTableViewLookupBarDisplayItem) b : boolean;\r\n    {$ENDIF}\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCTableViewLookupBarDisplayList = class(TList)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCTableViewLookupBarDisplayItem;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCTableViewLookupBarDisplayItem);\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCTableViewLookupBarDisplayItem read GetItem write SetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCTableViewLookupBarDisplayList = class(TList<TTMSFNCTableViewLookupBarDisplayItem>);\r\n  {$ENDIF}\r\n\r\n  TTMSFNCTableViewLookupBarPosition = (tvlbpLeft, tvlbpRight);\r\n\r\n  TTMSFNCTableViewLookupBar = class(TPersistent)\r\n  private\r\n    FTableView: TTMSFNCCustomTableView;\r\n    FVisible: Boolean;\r\n    FFont: TTMSFNCGraphicsFont;\r\n    FAutoLookup: Boolean;\r\n    FFill: TTMSFNCGraphicsFill;\r\n    FStroke: TTMSFNCGraphicsStroke;\r\n    FWidth: Single;\r\n    FPosition: TTMSFNCTableViewLookupBarPosition;\r\n    FDownFill: TTMSFNCGraphicsFill;\r\n    FDownStroke: TTMSFNCGraphicsStroke;\r\n    FInActiveFont: TTMSFNCGraphicsFont;\r\n    FIncludeFilteredItems: Boolean;\r\n    procedure SetVisible(const Value: Boolean);\r\n    procedure SetFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetAutoLookup(const Value: Boolean);\r\n    procedure SetFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetStroke(const Value: TTMSFNCGraphicsStroke);\r\n    function IsWidthStored: Boolean;\r\n    procedure SetPosition(const Value: TTMSFNCTableViewLookupBarPosition);\r\n    procedure SetWidth(const Value: Single);\r\n    procedure SetDownFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetDownStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetInActiveFont(const Value: TTMSFNCGraphicsFont);\r\n  protected\r\n    procedure FontChanged(Sender: TObject);\r\n    procedure StrokeChanged(Sender: TObject);\r\n    procedure FillChanged(Sender: TObject);\r\n  public\r\n    constructor Create(ATableView: TTMSFNCCustomTableView);\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property IncludeFilteredItems: Boolean read FIncludeFilteredItems write FIncludeFilteredItems default True;\r\n    property Width: Single read FWidth write SetWidth stored IsWidthStored nodefault;\r\n    property Position: TTMSFNCTableViewLookupBarPosition read FPosition write SetPosition default tvlbpRight;\r\n    property Visible: Boolean read FVisible write SetVisible default True;\r\n    property Font: TTMSFNCGraphicsFont read FFont write SetFont;\r\n    property InActiveFont: TTMSFNCGraphicsFont read FInActiveFont write SetInActiveFont;\r\n    property AutoLookup: Boolean read FAutoLookup write SetAutoLookup default True;\r\n    property Fill: TTMSFNCGraphicsFill read FFill write SetFill;\r\n    property Stroke: TTMSFNCGraphicsStroke read FStroke write SetStroke;\r\n    property DownFill: TTMSFNCGraphicsFill read FDownFill write SetDownFill;\r\n    property DownStroke: TTMSFNCGraphicsStroke read FDownStroke write SetDownStroke;\r\n  end;\r\n\r\n  TTMSFNCTableViewReloadProgressMode = (tvrpmMarquee, tvrpmMarqueeAlternate, tvrpmManual);\r\n\r\n  TTMSFNCTableViewReload = class(TPersistent)\r\n  private\r\n    FTableView: TTMSFNCCustomTableView;\r\n    FOffset: Single;\r\n    FEnabled: Boolean;\r\n    FStroke: TTMSFNCGraphicsStroke;\r\n    FSize: Single;\r\n    FProgressMode: TTMSFNCTableViewReloadProgressMode;\r\n    function IsOffsetStored: Boolean;\r\n    procedure SetOffset(const Value: Single);\r\n    procedure SetEnabled(const Value: Boolean);\r\n    procedure SetStroke(const Value: TTMSFNCGraphicsStroke);\r\n    function IsSizeStored: Boolean;\r\n    procedure SetSize(const Value: Single);\r\n    procedure SetProgressMode(const Value: TTMSFNCTableViewReloadProgressMode);\r\n  public\r\n    constructor Create(ATableView: TTMSFNCCustomTableView);\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property Offset: Single read FOffset write SetOffset stored IsOffsetStored nodefault;\r\n    property Enabled: Boolean read FEnabled write SetEnabled default False;\r\n    property Stroke: TTMSFNCGraphicsStroke read FStroke write SetStroke;\r\n    property Size: Single read FSize write SetSize stored IsSizeStored nodefault;\r\n    property ProgressMode: TTMSFNCTableViewReloadProgressMode read FProgressMode write SetProgressMode default tvrpmMarquee;\r\n  end;\r\n\r\n  TTMSFNCTableViewCategory = class(TCollectionItem)\r\n  private\r\n    FTableView: TTMSFNCCustomTableView;\r\n    FText: String;\r\n    FID: integer;\r\n    FLookupText: String;\r\n    FDataPointer: Pointer;\r\n    FDataBoolean: Boolean;\r\n    FDBKey: String;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    procedure SetText(const Value: String);\r\n    procedure SetId(const Value: integer);\r\n    procedure SetLookupText(const Value: String);\r\n    function GetStrippedHTMLText: String;\r\n  protected\r\n    procedure Changed;\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n    property DBKey: String read FDBKey write FDBKey;\r\n    property StrippedHTMLText: String read GetStrippedHTMLText;\r\n  published\r\n    property Text: String read FText write SetText;\r\n    property LookupText: String read FLookupText write SetLookupText;\r\n    property Id: integer read FID write SetId;\r\n  end;\r\n\r\n  TTMSFNCTableViewCategoriesSortMode = (tvcsmAscending, tvcsmDescending);\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCTableViewCategories = class(TTMSFNCOwnedCollection)\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCTableViewCategories = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCTableViewCategory>)\r\n  {$ENDIF}\r\n  private\r\n    FTableView: TTMSFNCCustomTableView;\r\n    FOnChange: TNotifyEvent;\r\n    function GetItem(Index: Integer): TTMSFNCTableViewCategory;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCTableViewCategory);\r\n  protected\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    function Compare(AItem1, AItem2: TTMSFNCTableViewCategory; ACaseSensitive: Boolean = True; ASortingMode: TTMSFNCTableViewCategoriesSortMode = tvcsmAscending): Integer; virtual;\r\n    procedure QuickSort(L, R: Integer; ACaseSensitive: Boolean = True; ASortingMode: TTMSFNCTableViewCategoriesSortMode = tvcsmAscending); virtual;\r\n  public\r\n    constructor Create(ATableView: TTMSFNCCustomTableView);\r\n    property Items[Index: Integer]: TTMSFNCTableViewCategory read GetItem write SetItem; default;\r\n    function ItemById(id: integer): TTMSFNCTableViewCategory;\r\n    function ItemIndexById(id: integer): integer;\r\n    function Add: TTMSFNCTableViewCategory;\r\n    function Insert(Index: Integer): TTMSFNCTableViewCategory;\r\n    procedure Delete(Index: Integer);\r\n    procedure Sort(ACaseSensitive: Boolean = True; ASortingMode: TTMSFNCTableViewCategoriesSortMode = tvcsmAscending);\r\n    procedure Clear;\r\n  end;\r\n\r\n  TTMSFNCTableViewMoreOption = class(TCollectionItem)\r\n  private\r\n    FTableView: TTMSFNCCustomTableView;\r\n    FText: String;\r\n    FDataPointer: Pointer;\r\n    FDataBoolean: Boolean;\r\n    FDBKey: String;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FWidth: Single;\r\n    FColor: TTMSFNCGraphicsColor;\r\n    FFontColor: TTMSFNCGraphicsColor;\r\n    FBorderColor: TTMSFNCGraphicsColor;\r\n    procedure SetText(const Value: String);\r\n    function GetStrippedHTMLText: String;\r\n    function IsWidthStored: Boolean;\r\n    procedure SetWidth(const Value: Single);\r\n    procedure SetColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetFontColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetBorderColor(const Value: TTMSFNCGraphicsColor);\r\n  protected\r\n    procedure Changed;\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n    property DBKey: String read FDBKey write FDBKey;\r\n    property StrippedHTMLText: String read GetStrippedHTMLText;\r\n  published\r\n    property Text: String read FText write SetText;\r\n    property Width: Single read FWidth write SetWidth stored IsWidthStored nodefault;\r\n    property Color: TTMSFNCGraphicsColor read FColor write SetColor default gcNull;\r\n    property BorderColor: TTMSFNCGraphicsColor read FBorderColor write SetBorderColor default gcNull;\r\n    property FontColor: TTMSFNCGraphicsColor read FFontColor write SetFontColor default gcNull;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCTableViewMoreOptions = class(TTMSFNCOwnedCollection)\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCTableViewMoreOptions = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCTableViewMoreOption>)\r\n  {$ENDIF}\r\n  private\r\n    FTableView: TTMSFNCCustomTableView;\r\n    FOnChange: TNotifyEvent;\r\n    function GetItem(Index: Integer): TTMSFNCTableViewMoreOption;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCTableViewMoreOption);\r\n  protected\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  public\r\n    constructor Create(ATableView: TTMSFNCCustomTableView);\r\n    property Items[Index: Integer]: TTMSFNCTableViewMoreOption read GetItem write SetItem; default;\r\n    function ItemById(id: integer): TTMSFNCTableViewMoreOption;\r\n    function ItemIndexById(id: integer): integer;\r\n    function Add: TTMSFNCTableViewMoreOption;\r\n    function Insert(Index: Integer): TTMSFNCTableViewMoreOption;\r\n    procedure Delete(Index: Integer);\r\n    procedure Clear;\r\n  end;\r\n\r\n  TTMSFNCTableViewCategoryType = (tvctNone, tvctAlphaBetic, tvctAlphaNumericFirst, tvctAlphaNumericLast, tvctCustom);\r\n\r\n  TTMSFNCTableViewLookupCategoryEvent = procedure(Sender: TObject; ACharacter: String; ACharacterID: Integer) of object;\r\n  TTMSFNCTableViewDrawItemCustomAccessoryEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItem: TTMSFNCTableViewItem) of object;\r\n  TTMSFNCTableViewItemMoreOptionClickEvent = procedure(Sender: TObject; AItem: TTMSFNCTableViewItem; AMoreOption: TTMSFNCTableViewMoreOption) of object;\r\n  TTMSFNCTableViewBeforeDrawItemMoreOptionEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItem: TTMSFNCTableViewItem; AMoreOption: TTMSFNCTableViewMoreOption; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCTableViewAfterDrawItemMoreOptionEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItem: TTMSFNCTableViewItem; AMoreOption: TTMSFNCTableViewMoreOption) of object;\r\n  TTMSFNCTableViewBeforeItemShowDetailControl = procedure(Sender: TObject; AItem: TTMSFNCTableViewItem; ADetailControl: TControl; var AAllow: Boolean) of object;\r\n  TTMSFNCTableViewBeforeItemHideDetailControl = procedure(Sender: TObject; AItem: TTMSFNCTableViewItem; ADetailControl: TControl; var AAllow: Boolean) of object;\r\n  TTMSFNCTableViewItemShowDetailControl = procedure(Sender: TObject; AItem: TTMSFNCTableViewItem; ADetailControl: TControl) of object;\r\n  TTMSFNCTableViewItemHideDetailControl = procedure(Sender: TObject; AItem: TTMSFNCTableViewItem; ADetailControl: TControl) of object;\r\n\r\n  TTMSFNCTableViewItemArray = array of TTMSFNCTableViewItem;\r\n  TTMSFNCTableViewCheckedItems = TTMSFNCTableViewItemArray;\r\n  TTMSFNCTableViewSelectedItems = TTMSFNCTableViewItemArray;\r\n\r\n  TTMSFNCTableViewCustomChar = class\r\n  private\r\n    FID: Integer;\r\n    FActive: Boolean;\r\n  public\r\n    constructor Create(AID: Integer; AActive: Boolean);\r\n    property ID: Integer read FID write FID;\r\n    property Active: Boolean read FActive write FActive;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCTableViewCustomCharList = class(TObjectList)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCTableViewCustomChar;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCTableViewCustomChar);\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCTableViewCustomChar read GetItem write SetItem; default;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCTableViewCustomCharList = class(TObjectList<TTMSFNCTableViewCustomChar>)\r\n  public\r\n  {$ENDIF}\r\n    procedure ActivateID(AID: Integer);\r\n    function IsIDActive(AID: Integer): Boolean;\r\n  end;\r\n\r\n  TTMSFNCTableViewEdit = class(TTMSFNCEdit)\r\n  private\r\n    FTableView: TTMSFNCCustomTableView;\r\n  protected\r\n    {$IFDEF FMXLIB}\r\n    procedure KeyDown(var Key: Word; var KeyChar: WideChar; Shift: TShiftState); override;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    procedure KeyDown(var Key: Word; Shift: TShiftState); override;\r\n    {$ENDIF}\r\n  end;\r\n\r\n  {$IFDEF FNCLIB}\r\n  TTMSFNCCustomTableView = class(TTMSFNCCustomControl, ITMSFNCStylesManager, ITMSFNCBitmapContainer, ITMSFNCControlPickerFull, ITMSFNCAppearanceGlobalFont)\r\n  {$ENDIF}\r\n  {$IFNDEF FNCLIB}\r\n  TTMSFNCCustomTableView = class(TTMSFNCCustomControl, ITMSFNCAppearanceGlobalFont)\r\n  {$ENDIF}\r\n  private\r\n    FFilterTime: Integer;\r\n    FFirstLoad: Boolean;\r\n    FFilterTimer: TTimer;\r\n    FFilterActive: Boolean;\r\n    FEditMode: Boolean;\r\n    FDoneButton, FEditButton, FBackButton, FFilterButton: TTMSFNCToolBarButton;\r\n    FEdit: TTMSFNCTableViewEdit;\r\n    FActiveAccessoryItem, FActiveBitmapItem: TTMSFNCTableViewItem;\r\n    FDetailControlTimer: TTimer;\r\n    FDetailControlOffset: Double;\r\n    FShowDetailControl: Boolean;\r\n    FActiveDetailControl: TControl;\r\n    FActiveDetailItem: TTMSFNCTableViewItem;\r\n    FCustomChar: TTMSFNCTableViewCustomCharList;\r\n    FLookupBarDisplayList: TTMSFNCTableViewLookupBarDisplayList;\r\n    FFilterApplied: Boolean;\r\n    FUpdateCount: Integer;\r\n    FDisplayList: TTMSFNCTableViewDisplayList;\r\n    FCategoryList: TTMSFNCTableViewDisplayList;\r\n    FSaveSelectedItem: Integer;\r\n    FSaveSelectedItems: TTMSFNCTableViewIntegerArray;\r\n    FCopyItems: TTMSFNCTableViewCopyItems;\r\n    FAccepted: Boolean;\r\n    FItems: TTMSFNCTableViewItems;\r\n    FTreeView: TTMSFNCTreeViewTableView;\r\n    FColumn: TTMSFNCTreeViewColumn;\r\n    FDefaultItem: TTMSFNCTableViewItem;\r\n    FItemAppearance: TTMSFNCTableViewItemAppearance;\r\n    FOnItemSelected: TTMSFNCTableViewItemSelectedEvent;\r\n    FInteraction: TTMSFNCTableViewInteraction;\r\n    FHeader: TTMSFNCTableViewHeader;\r\n    FFooter: TTMSFNCTableViewFooter;\r\n    FOnItemAnchorClick: TTMSFNCTableViewItemAnchorClickEvent;\r\n    FOnAfterCutToClipboard: TTMSFNCTableViewAfterCutToClipboardEvent;\r\n    FOnBeforePasteFromClipboard: TTMSFNCTableViewBeforePasteFromClipboardEvent;\r\n    FOnAfterReorderItem: TTMSFNCTableViewAfterReorderItemEvent;\r\n    FOnBeforeDropItem: TTMSFNCTableViewBeforeDropItemEvent;\r\n    FOnBeforeDrawItemText: TTMSFNCTableViewBeforeDrawItemTextEvent;\r\n    FOnVScroll: TTMSFNCTableViewScrollEvent;\r\n    FOnBeforeCopyToClipboard: TTMSFNCTableViewBeforeCopyToClipboardEvent;\r\n    FOnItemDblClick: TTMSFNCTableViewItemClickEvent;\r\n    FOnBeforeDrawItemCheck: TTMSFNCTableViewBeforeDrawItemCheckEvent;\r\n    FOnAfterDrawItemIcon: TTMSFNCTableViewAfterDrawItemIconEvent;\r\n    FOnBeforeDrawItem: TTMSFNCTableViewBeforeDrawItemEvent;\r\n    FOnAfterPasteFromClipboard: TTMSFNCTableViewAfterPasteFromClipboardEvent;\r\n    FOnItemClick: TTMSFNCTableViewItemClickEvent;\r\n    FOnAfterDropItem: TTMSFNCTableViewAfterDropItemEvent;\r\n    FOnAfterDrawItemText: TTMSFNCTableViewAfterDrawItemTextEvent;\r\n    FOnItemCompare: TTMSFNCTableViewItemCompareEvent;\r\n    FOnBeforeCutToClipboard: TTMSFNCTableViewBeforeCutToClipboardEvent;\r\n    FOnBeforeReorderItem: TTMSFNCTableViewBeforeReorderItemEvent;\r\n    FOnNeedFilterDropDownData: TTMSFNCTableViewNeedFilterDropDownDataEvent;\r\n    FOnAfterCopyToClipboard: TTMSFNCTableViewAfterCopyToClipboardEvent;\r\n    FOnFilterSelect: TTMSFNCTableViewFilterSelectEvent;\r\n    FOnAfterDrawItemCheck: TTMSFNCTableViewAfterDrawItemCheckEvent;\r\n    FOnAfterDrawItem: TTMSFNCTableViewAfterDrawItemEvent;\r\n    FOnBeforeDrawItemIcon: TTMSFNCTableViewBeforeDrawItemIconEvent;\r\n    FFilter: TTMSFNCTableViewFilter;\r\n    FOnBeforeDrawSortIndicator: TTMSFNCTableViewBeforeDrawSortIndicatorEvent;\r\n    FOnAfterDrawSortIndicator: TTMSFNCTableViewAfterDrawSortIndicatorEvent;\r\n    FOnGetHTMLTemplateValue: TTMSFNCTableViewGetHTMLTemplateValueEvent;\r\n    FOnGetHTMLTemplate: TTMSFNCTableViewGetHTMLTemplateEvent;\r\n    FCategoryType: TTMSFNCTableViewCategoryType;\r\n    FCategories: TTMSFNCTableViewCategories;\r\n    FOnCategoryCompare: TTMSFNCTableViewCategoryCompareEvent;\r\n    FLookupBar: TTMSFNCTableViewLookupBar;\r\n    FOnManualLookupCategory: TTMSFNCTableViewLookupCategoryEvent;\r\n    FOnCategoryClick: TTMSFNCTableViewLookupCategoryEvent;\r\n    FReload: TTMSFNCTableViewReload;\r\n    FOnStopReload: TNotifyEvent;\r\n    FOnStartReload: TNotifyEvent;\r\n    FOnDrawItemCustomAccessory: TTMSFNCTableViewDrawItemCustomAccessoryEvent;\r\n    FOnItemAccessoryClick: TTMSFNCTableViewItemClickEvent;\r\n    FCategoryAppearance: TTMSFNCTableViewCategoryAppearance;\r\n    FOnItemCheckChanged: TTMSFNCTableViewItemCheckChangedEvent;\r\n    FOnAfterApplyFilter: TTMSFNCTableViewAfterApplyFilterEvent;\r\n    FOnBeforeApplyFilter: TTMSFNCTableViewBeforeApplyFilterEvent;\r\n    FMoreOptions: TTMSFNCTableViewMoreOptions;\r\n    FMoreOptionAppearance: TTMSFNCTableViewMoreOptionAppearance;\r\n    FOnItemMoreOptionClick: TTMSFNCTableViewItemMoreOptionClickEvent;\r\n    FOnAfterDrawItemMoreOption: TTMSFNCTableViewAfterDrawItemMoreOptionEvent;\r\n    FOnBeforeDrawItemMoreOption: TTMSFNCTableViewBeforeDrawItemMoreOptionEvent;\r\n    FOnItemShowDetailControl: TTMSFNCTableViewItemShowDetailControl;\r\n    FOnItemHideDetailControl: TTMSFNCTableViewItemHideDetailControl;\r\n    FOnBeforeItemShowDetailControl: TTMSFNCTableViewBeforeItemShowDetailControl;\r\n    FOnBeforeItemHideDetailControl: TTMSFNCTableViewBeforeItemHideDetailControl;\r\n    FOnItemSelectionChanged: TTMSFNCTableViewItemSelectionChangedEvent;\r\n    FOnItemUnSelected: TTMSFNCTableViewItemUnSelectedEvent;\r\n    FOnAfterDrawItemTitle: TTMSFNCTableViewAfterDrawItemTitleEvent;\r\n    FOnBeforeDrawItemTitle: TTMSFNCTableViewBeforeDrawItemTitleEvent;\r\n    FOnItemMouseLeave: TTMSFNCTableViewItemMouseLeaveEvent;\r\n    FOnItemMouseEnter: TTMSFNCTableViewItemMouseEnterEvent;\r\n    FOnFooterAnchorClick: TTMSFNCTableViewAnchorHeaderFooterClick;\r\n    FOnHeaderAnchorClick: TTMSFNCTableViewAnchorHeaderFooterClick;\r\n    FOnItemTitleAnchorClick: TTMSFNCTableViewItemAnchorClickEvent;\r\n    FGlobalFont: TTMSFNCAppearanceGlobalFont;\r\n    FLayoutMode: TTMSFNCTableViewLayoutMode;\r\n    FGroupAppearance: TTMSFNCTableViewGroupAppearance;\r\n    FOnItemBitmapClick: TTMSFNCTableViewItemClickEvent;\r\n    procedure SetItems(const Value: TTMSFNCTableViewItems);\r\n    procedure SetDefaultItem(const Value: TTMSFNCTableViewItem);\r\n    procedure SetItemAppearance(const Value: TTMSFNCTableViewItemAppearance);\r\n    function GetItemIndex: Integer;\r\n    procedure SetItemIndex(const Value: Integer);\r\n    procedure SetInteraction(const Value: TTMSFNCTableViewInteraction);\r\n    function GetBitmapContainer: TTMSFNCBitmapContainer;\r\n    procedure SetBitmapContainer(const Value: TTMSFNCBitmapContainer);\r\n    procedure SetHeader(const Value: TTMSFNCTableViewHeader);\r\n    procedure SetFooter(const Value: TTMSFNCTableViewFooter);\r\n    function GetSelectedItem: TTMSFNCTableViewItem;\r\n    procedure SetSelectedItem(const Value: TTMSFNCTableViewItem);\r\n    function GetSelItem(AIndex: Integer): TTMSFNCTableViewItem;\r\n    function GetVerticalScrollBarVisible: Boolean;\r\n    procedure SetVerticalScrollBarVisible(const Value: Boolean);\r\n    function GetFill: TTMSFNCGraphicsFill;\r\n    function GetStroke: TTMSFNCGraphicsStroke;\r\n    procedure SetFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetCategoryType(const Value: TTMSFNCTableViewCategoryType);\r\n    procedure SetCategories(const Value: TTMSFNCTableViewCategories);\r\n    procedure SetLookupBar(const Value: TTMSFNCTableViewLookupBar);\r\n    procedure SetReload(const Value: TTMSFNCTableViewReload);\r\n    procedure SetCategoryAppearance(\r\n      const Value: TTMSFNCTableViewCategoryAppearance);\r\n    function GetChecked(AItemIndex: Integer): Boolean;\r\n    function GetCheckedItem(AItem: TTMSFNCTableViewItem): Boolean;\r\n    procedure SetChecked(AItemIndex: Integer; const Value: Boolean);\r\n    procedure SetCheckedItem(AItem: TTMSFNCTableViewItem;\r\n      const Value: Boolean);\r\n    procedure SetMoreOptions(const Value: TTMSFNCTableViewMoreOptions);\r\n    procedure SetMoreOptionAppearance(const Value: TTMSFNCTableViewMoreOptionAppearance);\r\n    procedure SetGlobalFont(const Value: TTMSFNCAppearanceGlobalFont);\r\n    procedure SetLayoutMode(const Value: TTMSFNCTableViewLayoutMode);\r\n    procedure SetGroupApperance(const Value: TTMSFNCTableViewGroupAppearance);\r\n    function GetPrecalculateItems: Boolean;\r\n    procedure SetPrecalculateItems(const Value: Boolean);\r\n    function GetFilterTimer: TTimer;\r\n    function GetDisplayItem(AIndex: Integer): TTMSFNCTableViewDisplayItem;\r\n    function GetDisplayItemCount: Integer;\r\n    procedure DoItemBitmapClick(AItem: TTMSFNCTableViewItem);\r\n  protected\r\n    {$IFDEF FNCLIB}\r\n    function GetSubComponentArray: TTMSFNCStylesManagerComponentArray;\r\n    {$ENDIF}\r\n    function GetDocURL: string; override;\r\n    function GetVersion: string; override;\r\n    function GetItemsRect: TRectF; virtual;\r\n    function CreateTreeView: TTMSFNCTreeViewTableView; virtual;\r\n    function CreateItems: TTMSFNCTableViewItems; virtual;\r\n    function GetRowForItemIndex(AItemIndex: Integer): Integer; virtual;\r\n    function GetDisplayCategoryIndex(AIndex: Integer): Integer; virtual;\r\n    function GetDisplayItemIndex(AIndex: Integer): Integer; virtual;\r\n    function GetNextDisplayCategoryIndex(AIndex: Integer): Integer; virtual;\r\n    function GetItemIndexForNode(ANode: TTMSFNCTreeViewVirtualNode): Integer; virtual;\r\n    function GetItemForNode(ANode: TTMSFNCTreeViewVirtualNode): TTMSFNCTableViewItem; virtual;\r\n    function GetNodeForItemIndex(AItemIndex: Integer): TTMSFNCTreeViewVirtualNode; virtual;\r\n    function HTMLReplace(AValue: string; AItem: TTMSFNCTableViewItem): string;\r\n    function ItemFromDifferentCategory(AItem1, AItem2: TTMSFNCTableViewItem): Boolean; virtual;\r\n    function GetCharacterForItem(AItem: TTMSFNCTableViewItem): String; virtual;\r\n    function GetCharacter(Idx: Integer): String; virtual;\r\n    function GetCharacterCount: Integer; virtual;\r\n    function FindCategoryWithCharacter(ACategory: String): TTMSFNCTableViewDisplayItem;\r\n    function FindCategoryWithCharacterID(ACategoryID: Integer): TTMSFNCTableViewDisplayItem;\r\n    function FindFirstItemWithCategory(ACategory: String; AIncludeFilteredItems: Boolean = True): TTMSFNCTableViewItem; virtual;\r\n    function FindFirstItemWithCategoryID(ACategoryID: Integer; AIncludeFilteredItems: Boolean = True): TTMSFNCTableViewItem; virtual;\r\n    function GetMoreOptionsSize: Single; virtual;\r\n    function IsAppearanceProperty(AObject: TObject; APropertyName: string; APropertyType: TTypeKind): Boolean; override;\r\n    procedure ChangeDPIScale(M, D: Integer); override;\r\n    procedure DoEnter; override;\r\n    procedure Loaded; override;\r\n    procedure DoItemMoreOptionClick(AItem: TTMSFNCTableViewItem; AMoreOption: TTMSFNCTableViewMoreOption); virtual;\r\n    procedure DoFilterButtonClicked(Sender: TObject); virtual;\r\n    procedure DoEditButtonClicked(Sender: TObject); virtual;\r\n    procedure DoEditChange(Sender: TObject); virtual;\r\n    procedure DoBeforeApplyFilter(AFilter: TTMSFNCTableViewFilterData; AAllow: Boolean); virtual;\r\n    procedure DoAfterApplyFilter(AFilter: TTMSFNCTableViewFilterData); virtual;\r\n    procedure DoDoneButtonClicked(Sender: TObject); virtual;\r\n    procedure DoBackButtonClicked(Sender: TObject); virtual;\r\n    procedure DoItemAccessoryClick(AItem: TTMSFNCTableViewItem); virtual;\r\n    procedure DoDetailControlTimer(Sender: TObject);\r\n    procedure DoItemShowDetailControl(AItem: TTMSFNCTableViewItem; ADetailControl: TControl); virtual;\r\n    procedure DoItemHideDetailControl(AItem: TTMSFNCTableViewItem; ADetailControl: TControl); virtual;\r\n    procedure DoBeforeItemShowDetailControl(AItem: TTMSFNCTableViewItem; ADetailControl: TControl; var AAllow: Boolean); virtual;\r\n    procedure DoBeforeItemHideDetailControl(AItem: TTMSFNCTableViewItem; ADetailControl: TControl; var AAllow: Boolean); virtual;\r\n    procedure Notification(AComponent: TComponent; Operation: TOperation); override;\r\n    procedure DoStartReload; virtual;\r\n    procedure DoFilterTimer(Sender: TObject);\r\n    procedure DoStopReload; virtual;\r\n    procedure ScrollToCategoryId(ACategoryID: Integer); virtual;\r\n    procedure ScrollToCategoryCharacter(ACharacter: String); virtual;\r\n    procedure RegisterRuntimeClasses; override;\r\n    procedure ApplyStyle; override;\r\n    procedure UpdateControlAfterResize; override;\r\n    procedure ResetToDefaultStyle; override;\r\n    procedure SetAdaptToStyle(const Value: Boolean); override;\r\n    procedure UpdateTableView(ADisplayOnly: Boolean = False); virtual;\r\n    procedure CustomizeButtons; virtual;\r\n    procedure SelectAllCheckedItems; virtual;\r\n    procedure UnSelectAllItems; virtual;\r\n    procedure CalculateItems; virtual;\r\n    procedure CalculateLookupBar; virtual;\r\n    function AddDisplayCategory(AItem: TTMSFNCTableViewItem): TTMSFNCTableViewDisplayItem; virtual;\r\n    procedure AddDisplayItem(AItem: TTMSFNCTableViewItem); virtual;\r\n    procedure DoClick(Sender: TObject);\r\n    procedure DoGetNodeHeight(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var AHeight: Double); virtual;\r\n    procedure DoGetNodeIcon(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; {%H-}ALarge: Boolean; var AIcon: TTMSFNCBitmap); virtual;\r\n    procedure DoGetNodeSides(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; var ASides: TTMSFNCGraphicsSides); virtual;\r\n    procedure DoGetColumnText(Sender: TObject; {%H-}AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var AText: String); virtual;\r\n    procedure DoGetColumnTrimming(Sender: TObject; {%H-}AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var ATrimming: TTMSFNCGraphicsTextTrimming); virtual;\r\n    procedure DoGetColumnWordWrapping(Sender: TObject; {%H-}AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var AWordWrapping: Boolean); virtual;\r\n    procedure DoGetColumnHorizontalTextAlign(Sender: TObject; {%H-}AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var AHorizontalTextAlign: TTMSFNCGraphicsTextAlign); virtual;\r\n    procedure DoGetColumnVerticalTextAlign(Sender: TObject; {%H-}AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var AVerticalTextAlign: TTMSFNCGraphicsTextAlign); virtual;\r\n    procedure DoIsNodeChecked(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AIsChecked: Boolean); virtual;\r\n    procedure DoGetNodeCheckType(Sender: TObject; {%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var ACheckType: TTMSFNCTreeViewNodeCheckType); virtual;\r\n    procedure DoAfterCheckNode(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer); virtual;\r\n    procedure DoAfterUnCheckNode(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer); virtual;\r\n    procedure DoItemCheckChanged(AItem: TTMSFNCTableViewItem); virtual;\r\n    procedure DoGetNumberOfNodes(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; var ANumberOfNodes: Integer); virtual;\r\n    procedure DoGetHTMLTemplateValue(AItem: TTMSFNCTableViewItem; AName: string; var AValue: string); virtual;\r\n    procedure DoGetHTMLTemplate(AItem: TTMSFNCTableViewItem; var AHTMLTemplate: string); virtual;\r\n    procedure DoIsNodeExtended(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; var AExtended: Boolean); virtual;\r\n    procedure DoGetNodeText(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; {%H-}AMode: TTMSFNCTreeViewNodeTextMode; var AText: String); virtual;\r\n    procedure DoGetNodeTitle(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; {%H-}AMode: TTMSFNCTreeViewNodeTextMode; var ATitle: String); virtual;\r\n    procedure DoGetNodeTitleExpanded(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var AExpanded: Boolean); virtual;\r\n    procedure DoGetNodeTrimming(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var ATrimming: TTMSFNCGraphicsTextTrimming); virtual;\r\n    procedure DoGetNodeTitleTrimming(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var ATrimming: TTMSFNCGraphicsTextTrimming); virtual;\r\n    procedure DrawBadge(AGraphics: TTMSFNCGraphics; ARect: TRectF; AItem: TTMSFNCTableViewItem); virtual;\r\n    procedure DoDrawNodeExtra(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; {%H-}AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure DoDrawItemCustomAccessory(AGraphics: TTMSFNCGraphics; ARect: TRectF; AItem: TTMSFNCTableViewItem); virtual;\r\n    procedure DoBeforeDrawItemMoreOption(AGraphics: TTMSFNCGraphics; ARect: TRectF; AItem: TTMSFNCTableViewItem; AMoreOption: TTMSFNCTableViewMoreOption; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawItemMoreOption(AGraphics: TTMSFNCGraphics; ARect: TRectF; AItem: TTMSFNCTableViewItem; AMoreOption: TTMSFNCTableViewMoreOption); virtual;\r\n    procedure DoGetNodeWordWrapping(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var AWordWrapping: Boolean); virtual;\r\n    procedure DoGetNodeTitleWordWrapping(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var AWordWrapping: Boolean); virtual;\r\n    procedure DoGetNodeExtraSize(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var AExtraSize: Single); virtual;\r\n    procedure DoGetNodeTitleHorizontalTextAlign(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var AHorizontalTextAlign: TTMSFNCGraphicsTextAlign); virtual;\r\n    procedure DoGetNodeTitleVerticalTextAlign(Sender: TObject; {%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var {%H-}AVerticalTextAlign: TTMSFNCGraphicsTextAlign); virtual;\r\n    procedure DoGetNodeHorizontalTextAlign(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var AHorizontalTextAlign: TTMSFNCGraphicsTextAlign); virtual;\r\n    procedure DoGetNodeVerticalTextAlign(Sender: TObject; {%H-}ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var {%H-}AVerticalTextAlign: TTMSFNCGraphicsTextAlign); virtual;\r\n    procedure DoGetNodeTextColor(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var ATextColor: TTMSFNCGraphicsColor); virtual;\r\n    procedure DoGetNodeSelectedTextColor(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var ASelectedTextColor: TTMSFNCGraphicsColor); virtual;\r\n    procedure DoGetNodeDisabledTextColor(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var ADisabledTextColor: TTMSFNCGraphicsColor); virtual;\r\n    procedure DoGetNodeTitleColor(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var ATitleColor: TTMSFNCGraphicsColor); virtual;\r\n    procedure DoGetNodeSelectedTitleColor(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var ASelectedTitleColor: TTMSFNCGraphicsColor); virtual;\r\n    procedure DoGetNodeDisabledTitleColor(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; var ADisabledTitleColor: TTMSFNCGraphicsColor); virtual;\r\n    procedure DoIsNodeEnabled(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; var AEnabled: Boolean); virtual;\r\n    procedure DoAfterSelectNode(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure DoAfterUnSelectNode(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure DoNeedFilterDropDownData(Sender: TObject; {%H-}AColumn: Integer; AValues: TStrings); virtual;\r\n    procedure DoFilterSelect(Sender: TObject; {%H-}AColumn: integer; var ACondition: string); virtual;\r\n    procedure DoBeforeDrawSortIndicator(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; {%H-}AColumn: Integer; ASortIndex: Integer; ASortKind: TTMSFNCTreeViewNodesSortKind; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawSortIndicator(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; {%H-}AColumn: Integer; ASortIndex: Integer; ASortKind: TTMSFNCTreeViewNodesSortKind); virtual;\r\n    procedure DoBeforeDrawNode(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; ANode: TTMSFNCTreeViewVirtualNode; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawNode(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure DoItemCompare(AItem1, AItem2: TTMSFNCTableViewItem; var ACompareResult: Integer); virtual;\r\n    procedure DoCategoryCompare(ACategory1, ACategory2: TTMSFNCTableViewCategory; var ACompareResult: Integer); virtual;\r\n    procedure DoBeforeDrawNodeText(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; {%H-}AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; AText: String; var AAllow: Boolean); virtual;\r\n    procedure DoAfterDrawNodeText(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; {%H-}AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; AText: String); virtual;\r\n    procedure DoBeforeDrawNodeTitle(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; {%H-}AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; ATitle: String; var AAllow: Boolean); virtual;\r\n    procedure DoAfterDrawNodeTitle(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; {%H-}AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; ATitle: String); virtual;\r\n    procedure DoBeforeDrawNodeIcon(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; {%H-}AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; AIcon: TTMSFNCBitmap; var AAllow: Boolean); virtual;\r\n    procedure DoAfterDrawNodeIcon(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; {%H-}AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; AIcon: TTMSFNCBitmap); virtual;\r\n    procedure DoBeforeDrawNodeCheck(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; {%H-}AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; ACheck: TTMSFNCBitmap; var AAllow: Boolean); virtual;\r\n    procedure DoAfterDrawNodeCheck(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; {%H-}AColumn: Integer; ANode: TTMSFNCTreeViewVirtualNode; ACheck: TTMSFNCBitmap); virtual;\r\n    procedure DoNodeAnchorClick(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; AAnchor: String); virtual;\r\n    procedure DoNodeTitleAnchorClick(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; {%H-}AColumn: Integer; AAnchor: String); virtual;\r\n    procedure DoNodeClick(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure DoNodeMouseLeave(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure DoNodeMouseEnter(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure DoNodeDblClick(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure DoVScroll(Sender: TObject; APosition: Single); virtual;\r\n    procedure DoBeforeCutToClipboard(Sender: TObject; var ACanCut: Boolean); virtual;\r\n    procedure DoBeforeCopyToClipboard(Sender: TObject; var ACanCopy: Boolean); virtual;\r\n    procedure DoBeforePasteFromClipboard(Sender: TObject; var ACanPaste: Boolean); virtual;\r\n    procedure DoAfterCutToClipboard(Sender: TObject); virtual;\r\n    procedure DoAfterCopyToClipboard(Sender: TObject); virtual;\r\n    procedure DoAfterPasteFromClipboard(Sender: TObject); virtual;\r\n    procedure DoBeforeReorderItem(AFromItem, AToItem: TTMSFNCTableViewItem; var ACanReorder: Boolean); virtual;\r\n    procedure DoAfterReorderItem(AFromItem, AToItem: TTMSFNCTableViewItem); virtual;\r\n    procedure DoBeforeDropItem(AFromItem, AToItem: TTMSFNCTableViewItem; var ACanDrop: Boolean); virtual;\r\n    procedure DoAfterDropItem(AFromItem, AToItem: TTMSFNCTableViewItem); virtual;\r\n    procedure CustomizeTreeView({%H-}ATreeView: TTMSFNCTreeView); virtual;\r\n    procedure DoCustomDragOver(Sender: TObject; Source: TObject; {%H-}Point: TPointF; var Accept: Boolean); virtual;\r\n    procedure DoCustomDragDrop(Sender: TObject; Source: TObject; {%H-}Point: TPointF); virtual;\r\n    procedure DragItemMove({%H-}AFromItem, {%H-}AToItem: TTMSFNCTableViewItem); virtual;\r\n    procedure DragItemAdd({%H-}ANewItem, {%H-}AAssignItem, {%H-}AInsertItem: TTMSFNCTableViewItem); virtual;\r\n    procedure DragItemDelete({%H-}AItem: TTMSFNCTableViewItem); virtual;\r\n    procedure DoCustomReorder(Sender: TObject; AFromNode, AToNode: TTMSFNCTreeViewVirtualNode); virtual;\r\n    procedure DoCopyToClipboard(Sender: TObject); virtual;\r\n    procedure DoCutToClipboard(Sender: TObject); virtual;\r\n    procedure DoPasteFromClipboard(Sender: TObject); virtual;\r\n    procedure DoColumnSort(Sender: TObject; {%H-}AColumn: Integer; ASortMode: TTMSFNCTreeViewNodesSortMode); virtual;\r\n    procedure DoLookup(Sender: TObject; ALookupString: String); virtual;\r\n    procedure UpdateActiveDetailControl; virtual;\r\n    procedure DoFooterAnchorClick(Sender: TObject; AAnchor: String);\r\n    procedure DoHeaderAnchorClick(Sender: TObject; AAnchor: String);\r\n    {$IFDEF FMXLIB}\r\n    procedure DoTreeViewMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean);\r\n    procedure DoTreeViewKeyDown(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);\r\n    procedure DoTreeViewKeyUp(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    procedure DoTreeViewMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);\r\n    procedure DoTreeViewMouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);\r\n    procedure DoTreeViewKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);\r\n    procedure DoTreeViewKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);\r\n    procedure DoTreeViewKeyPress(Sender: TObject; var AChar: Char);\r\n    {$ENDIF}\r\n    {$IFDEF FNCLIB}\r\n    function PickerGetContent: String; virtual;\r\n    procedure PickerSelectItem(AItemIndex: Integer); virtual;\r\n    function PickerGetSelectedItem: Integer; virtual;\r\n    function PickerGetVisibleItemCount: Integer; virtual;\r\n    function PickerGetItemCount: Integer; virtual;\r\n    function PickerGetItemHeight: Single; virtual;\r\n    procedure PickerSetItemHeight(AValue: Single); virtual;\r\n    function PickerGetItemWidth: Single; virtual;\r\n    procedure PickerSetItemWidth(AValue: Single); virtual;\r\n    function PickerGetNextSelectableItem(AItemIndex: Integer): Integer; virtual;\r\n    function PickerGetPreviousSelectableItem(AItemIndex: Integer): Integer; virtual;\r\n    function PickerGetFirstSelectableItem: Integer; virtual;\r\n    function PickerGetLastSelectableItem: Integer; virtual;\r\n    procedure PickerResetFilter; virtual;\r\n    procedure PickerApplyFilter(ACondition: string; ACaseSensitive: Boolean); virtual;\r\n    function PickerLookupItem(ALookupString: String; ACaseSensitive: Boolean): TTMSFNCControlPickerFilterItem; virtual;\r\n    {$ENDIF}\r\n    procedure SetFonts(ASetType: TTMSFNCAppearanceGlobalFontType); virtual;\r\n    property Fill: TTMSFNCGraphicsFill read GetFill write SetFill;\r\n    property Stroke: TTMSFNCGraphicsStroke read GetStroke write SetStroke;\r\n    property Version: String read GetVersion;\r\n    property TreeView: TTMSFNCTreeViewTableView read FTreeView;\r\n    property BitmapContainer: TTMSFNCBitmapContainer read GetBitmapContainer write SetBitmapContainer;\r\n    property Items: TTMSFNCTableViewItems read FItems write SetItems;\r\n    property DefaultItem: TTMSFNCTableViewItem read FDefaultItem write SetDefaultItem;\r\n    property ItemAppearance: TTMSFNCTableViewItemAppearance read FItemAppearance write SetItemAppearance;\r\n    property CategoryAppearance: TTMSFNCTableViewCategoryAppearance read FCategoryAppearance write SetCategoryAppearance;\r\n    property GroupAppearance: TTMSFNCTableViewGroupAppearance read FGroupAppearance write SetGroupApperance;\r\n    property MoreOptionAppearance: TTMSFNCTableViewMoreOptionAppearance read FMoreOptionAppearance write SetMoreOptionAppearance;\r\n    property Interaction: TTMSFNCTableViewInteraction read FInteraction write SetInteraction;\r\n    property ItemIndex: Integer read GetItemIndex write SetItemIndex default -1;\r\n    property LookupBar: TTMSFNCTableViewLookupBar read FLookupBar write SetLookupBar;\r\n    property Reload: TTMSFNCTableViewReload read FReload write SetReload;\r\n    property Categories: TTMSFNCTableViewCategories read FCategories write SetCategories;\r\n    property MoreOptions: TTMSFNCTableViewMoreOptions read FMoreOptions write SetMoreOptions;\r\n    property CategoryType: TTMSFNCTableViewCategoryType read FCategoryType write SetCategoryType default tvctNone;\r\n    property GlobalFont: TTMSFNCAppearanceGlobalFont read FGlobalFont write SetGlobalFont;\r\n    property OnItemSelected: TTMSFNCTableViewItemSelectedEvent read FOnItemSelected write FOnItemSelected;\r\n    property OnItemUnSelected: TTMSFNCTableViewItemUnSelectedEvent read FOnItemUnSelected write FOnItemUnSelected;\r\n    property OnItemSelectionChanged: TTMSFNCTableViewItemSelectionChangedEvent read FOnItemSelectionChanged write FOnItemSelectionChanged;\r\n    property FilterTimer: TTimer read GetFilterTimer;\r\n    property Header: TTMSFNCTableViewHeader read FHeader write SetHeader;\r\n    property Footer: TTMSFNCTableViewFooter read FFooter write SetFooter;\r\n    property VerticalScrollBarVisible: Boolean read GetVerticalScrollBarVisible write SetVerticalScrollBarVisible default False;\r\n    property LayoutMode: TTMSFNCTableViewLayoutMode read FLayoutMode write SetLayoutMode default tvlmDefault;\r\n    property OnNeedFilterDropDownData: TTMSFNCTableViewNeedFilterDropDownDataEvent read FOnNeedFilterDropDownData write FOnNeedFilterDropDownData;\r\n    property OnFilterSelect: TTMSFNCTableViewFilterSelectEvent read FOnFilterSelect write FOnFilterSelect;\r\n    property OnBeforeDrawItem: TTMSFNCTableViewBeforeDrawItemEvent read FOnBeforeDrawItem write FOnBeforeDrawItem;\r\n    property OnAfterDrawItem: TTMSFNCTableViewAfterDrawItemEvent read FOnAfterDrawItem write FOnAfterDrawItem;\r\n    property OnBeforeDrawItemMoreOption: TTMSFNCTableViewBeforeDrawItemMoreOptionEvent read FOnBeforeDrawItemMoreOption write FOnBeforeDrawItemMoreOption;\r\n    property OnAfterDrawItemMoreOption: TTMSFNCTableViewAfterDrawItemMoreOptionEvent read FOnAfterDrawItemMoreOption write FOnAfterDrawItemMoreOption;\r\n    property OnItemCompare: TTMSFNCTableViewItemCompareEvent read FOnItemCompare write FOnItemCompare;\r\n    property OnCategoryCompare: TTMSFNCTableViewCategoryCompareEvent read FOnCategoryCompare write FOnCategoryCompare;\r\n    property OnAfterDrawItemIcon: TTMSFNCTableViewAfterDrawItemIconEvent read FOnAfterDrawItemIcon write FOnAfterDrawItemIcon;\r\n    property OnBeforeDrawItemIcon: TTMSFNCTableViewBeforeDrawItemIconEvent read FOnBeforeDrawItemIcon write FOnBeforeDrawItemIcon;\r\n    property OnAfterDrawItemCheck: TTMSFNCTableViewAfterDrawItemCheckEvent read FOnAfterDrawItemCheck write FOnAfterDrawItemCheck;\r\n    property OnBeforeDrawItemCheck: TTMSFNCTableViewBeforeDrawItemCheckEvent read FOnBeforeDrawItemCheck write FOnBeforeDrawItemCheck;\r\n    property OnBeforeDrawItemText: TTMSFNCTableViewBeforeDrawItemTextEvent read FOnBeforeDrawItemText write FOnBeforeDrawItemText;\r\n    property OnAfterDrawItemText: TTMSFNCTableViewAfterDrawItemTextEvent read FOnAfterDrawItemText write FOnAfterDrawItemText;\r\n    property OnBeforeDrawItemTitle: TTMSFNCTableViewBeforeDrawItemTitleEvent read FOnBeforeDrawItemTitle write FOnBeforeDrawItemTitle;\r\n    property OnAfterDrawItemTitle: TTMSFNCTableViewAfterDrawItemTitleEvent read FOnAfterDrawItemTitle write FOnAfterDrawItemTitle;\r\n    property OnAfterDrawSortIndicator: TTMSFNCTableViewAfterDrawSortIndicatorEvent read FOnAfterDrawSortIndicator write FOnAfterDrawSortIndicator;\r\n    property OnBeforeDrawSortIndicator: TTMSFNCTableViewBeforeDrawSortIndicatorEvent read FOnBeforeDrawSortIndicator write FOnBeforeDrawSortIndicator;\r\n    property OnItemAnchorClick: TTMSFNCTableViewItemAnchorClickEvent read FOnItemAnchorClick write FOnItemAnchorClick;\r\n    property OnItemTitleAnchorClick: TTMSFNCTableViewItemAnchorClickEvent read FOnItemTitleAnchorClick write FOnItemTitleAnchorClick;\r\n    property OnItemClick: TTMSFNCTableViewItemClickEvent read FOnItemClick write FOnItemClick;\r\n    property OnItemMouseLeave: TTMSFNCTableViewItemMouseLeaveEvent read FOnItemMouseLeave write FOnItemMouseLeave;\r\n    property OnItemMouseEnter: TTMSFNCTableViewItemMouseEnterEvent read FOnItemMouseEnter write FOnItemMouseEnter;\r\n    property OnItemDblClick: TTMSFNCTableViewItemClickEvent read FOnItemDblClick write FOnItemDblClick;\r\n    property OnVScroll: TTMSFNCTableViewScrollEvent read FOnVScroll write FOnVScroll;\r\n    property OnBeforeReorderItem: TTMSFNCTableViewBeforeReorderItemEvent read FOnBeforeReorderItem write FOnBeforeReorderItem;\r\n    property OnAfterReorderItem: TTMSFNCTableViewAfterReorderItemEvent read FOnAfterReorderItem write FOnAfterReorderItem;\r\n    property OnBeforeDropItem: TTMSFNCTableViewBeforeDropItemEvent read FOnBeforeDropItem write FOnBeforeDropItem;\r\n    property OnAfterDropItem: TTMSFNCTableViewAfterDropItemEvent read FOnAfterDropItem write FOnAfterDropItem;\r\n    property OnBeforeCutToClipboard: TTMSFNCTableViewBeforeCutToClipboardEvent read FOnBeforeCutToClipboard write FOnBeforeCutToClipboard;\r\n    property OnBeforeCopyToClipboard: TTMSFNCTableViewBeforeCopyToClipboardEvent read FOnBeforeCopyToClipboard write FOnBeforeCopyToClipboard;\r\n    property OnBeforePasteFromClipboard: TTMSFNCTableViewBeforePasteFromClipboardEvent read FOnBeforePasteFromClipboard write FOnBeforePasteFromClipboard;\r\n    property OnAfterCutToClipboard: TTMSFNCTableViewAfterCutToClipboardEvent read FOnAfterCutToClipboard write FOnAfterCutToClipboard;\r\n    property OnAfterCopyToClipboard: TTMSFNCTableViewAfterCopyToClipboardEvent read FOnAfterCopyToClipboard write FOnAfterCopyToClipboard;\r\n    property OnAfterPasteFromClipboard: TTMSFNCTableViewAfterPasteFromClipboardEvent read FOnAfterPasteFromClipboard write FOnAfterPasteFromClipboard;\r\n    property OnGetHTMLTemplateValue: TTMSFNCTableViewGetHTMLTemplateValueEvent read FOnGetHTMLTemplateValue write FOnGetHTMLTemplateValue;\r\n    property OnGetHTMLTemplate: TTMSFNCTableViewGetHTMLTemplateEvent read FOnGetHTMLTemplate write FOnGetHTMLTemplate;\r\n    property OnManualLookupCategory: TTMSFNCTableViewLookupCategoryEvent read FOnManualLookupCategory write FOnManualLookupCategory;\r\n    property OnCategoryClick: TTMSFNCTableViewLookupCategoryEvent read FOnCategoryClick write FOnCategoryClick;\r\n    property OnStartReload: TNotifyEvent read FOnStartReload write FOnStartReload;\r\n    property OnStopReload: TNotifyEvent read FOnStopReload write FOnStopReload;\r\n    property OnDrawItemCustomAccessory: TTMSFNCTableViewDrawItemCustomAccessoryEvent read FOnDrawItemCustomAccessory write FOnDrawItemCustomAccessory;\r\n    property OnItemAccessoryClick: TTMSFNCTableViewItemClickEvent read FOnItemAccessoryClick write FOnItemAccessoryClick;\r\n    property OnItemBitmapClick: TTMSFNCTableViewItemClickEvent read FOnItemBitmapClick write FOnItemBitmapClick;\r\n    property OnItemCheckChanged: TTMSFNCTableViewItemCheckChangedEvent read FOnItemCheckChanged write FOnItemCheckChanged;\r\n    property OnBeforeApplyFilter: TTMSFNCTableViewBeforeApplyFilterEvent read FOnBeforeApplyFilter write FOnBeforeApplyFilter;\r\n    property OnAfterApplyFilter: TTMSFNCTableViewAfterApplyFilterEvent read FOnAfterApplyFilter write FOnAfterApplyFilter;\r\n    property OnItemMoreOptionClick: TTMSFNCTableViewItemMoreOptionClickEvent read FOnItemMoreOptionClick write FOnItemMoreOptionClick;\r\n    property OnBeforeItemShowDetailControl: TTMSFNCTableViewBeforeItemShowDetailControl read FOnBeforeItemShowDetailControl write FOnBeforeItemShowDetailControl;\r\n    property OnBeforeItemHideDetailControl: TTMSFNCTableViewBeforeItemHideDetailControl read FOnBeforeItemHideDetailControl write FOnBeforeItemHideDetailControl;\r\n    property OnItemShowDetailControl: TTMSFNCTableViewItemShowDetailControl read FOnItemShowDetailControl write FOnItemShowDetailControl;\r\n    property OnItemHideDetailControl: TTMSFNCTableViewItemHideDetailControl read FOnItemHideDetailControl write FOnItemHideDetailControl;\r\n    property OnHeaderAnchorClick: TTMSFNCTableViewAnchorHeaderFooterClick read FOnHeaderAnchorClick write FOnHeaderAnchorClick;\r\n    property OnFooterAnchorClick: TTMSFNCTableViewAnchorHeaderFooterClick read FOnFooterAnchorClick write FOnFooterAnchorClick;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure Draw({%H-}AGraphics: TTMSFNCGraphics; {%H-}ARect: TRectF); override;\r\n    procedure DrawBackground(AGraphics: TTMSFNCGraphics; ARect: TRectF); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    function MatchFilter(AItem: TTMSFNCTableViewItem): Boolean; virtual;\r\n    function AddItem(AText: string = ''): TTMSFNCTableViewItem; virtual;\r\n    function XYToAccessoryItem(X, Y: Single): TTMSFNCTableViewItem; virtual;\r\n    function XYToBitmapItem(X, Y: Single): TTMSFNCTableViewItem; virtual;\r\n    function XYToItem(X, Y: Single): TTMSFNCTableViewItem; virtual;\r\n    function XYToMoreOption(X, Y: Single): TTMSFNCTableViewMoreOption; virtual;\r\n    function XYToItemIndex(X, Y: Single): Integer; virtual;\r\n    function SelectedItemCount: Integer; virtual;\r\n    function GetItemsFromClipboard: TTMSFNCTableViewCopyItems; virtual;\r\n    function LookupItem(ALookupString: String; ACaseSensitive: Boolean = False; AAutoSelect: Boolean = False): TTMSFNCTableViewItem; virtual;\r\n    function IsItemSelectable(AItem: TTMSFNCTableViewItem): Boolean; virtual;\r\n    function ReloadProgress: Single; virtual;\r\n    function DetailControlActive: Boolean; virtual;\r\n    function GetCheckedItems: TTMSFNCTableViewCheckedItems; virtual;\r\n    function GetSelectedItems: TTMSFNCTableViewSelectedItems; virtual;\r\n    function IsEditMode: Boolean; virtual;\r\n    procedure CancelEditMode; virtual;\r\n    procedure LookupCustomCategory(ACategoryID: Integer); virtual;\r\n    procedure LookupCategory(ACategory: String);virtual;\r\n    procedure RemoveItem(AItem: TTMSFNCTableViewItem); virtual;\r\n    procedure EnableInteraction; virtual;\r\n    procedure DisableInteraction; virtual;\r\n    procedure BeginUpdate; override;\r\n    procedure EndUpdate; override;\r\n    procedure InitSample; virtual;\r\n    procedure ScrollToItem(AItemIndex: Integer); virtual;\r\n    procedure ClearSelection; virtual;\r\n    procedure UnCheckAllItems; virtual;\r\n    procedure StartFiltering; virtual;\r\n    procedure StopFiltering; virtual;\r\n    procedure StartEditMode; virtual;\r\n    procedure ShowMoreOptions(AItem: TTMSFNCTableViewItem); virtual;\r\n    procedure HideMoreOptions; virtual;\r\n    procedure StopEditMode; virtual;\r\n    procedure ToggleEditMode; virtual;\r\n    procedure CheckAllItems; virtual;\r\n    procedure SelectItem(AItemIndex: Integer); virtual;\r\n    procedure SelectItems(AItemIndexes: TTMSFNCTableViewIntegerArray); virtual;\r\n    procedure LoadFromStrings(AStrings: TStrings); virtual;\r\n    {$IFNDEF WEBLIB}\r\n    procedure LoadFromFile(AFileName: string); virtual;\r\n    procedure LoadFromStream(AStream: TStream); virtual;\r\n    procedure SaveToStrings(AStrings: TStrings); virtual;\r\n    procedure SaveToFile(AFileName: string; ATextOnly: Boolean = True); virtual;\r\n    procedure SaveToStream(AStream: TStream; ATextOnly: Boolean = True); virtual;\r\n    {$ENDIF}\r\n    procedure CutToClipboard(ATextOnly: Boolean = False); virtual;\r\n    procedure CopyToClipboard(ATextOnly: Boolean = False); virtual;\r\n    procedure PasteFromClipboard; virtual;\r\n    procedure Sort(ACaseSensitive: Boolean = True; ASortingMode: TTMSFNCTableViewItemsSortMode = tvismAscending); {$IFDEF FMXLIB}reintroduce;{$ENDIF} virtual;\r\n    procedure ApplyFilter; virtual;\r\n    procedure RemoveFilter; virtual;\r\n    procedure RemoveFilters; virtual;\r\n    procedure StopReload; virtual;\r\n    procedure StartReload; virtual;\r\n    procedure LoadSettingsFromFile(AFileName: string); override;\r\n    procedure LoadSettingsFromStream(AStream: TStream); override;\r\n    procedure ShowDetailControl(AItemIndex: Integer = -1); virtual;\r\n    procedure HideDetailControl; virtual;\r\n    procedure UpdateReloadProgress(AProgress: Single; AAutoStopReload: Boolean = True); virtual;\r\n    property DisplayItem[AIndex: Integer]: TTMSFNCTableViewDisplayItem read GetDisplayItem;\r\n    property DisplayItemCount: Integer read GetDisplayItemCount;\r\n    property Edit: TTMSFNCTableViewEdit read FEdit;\r\n    property Filter: TTMSFNCTableViewFilter read FFilter;\r\n    property SelectedItem: TTMSFNCTableViewItem read GetSelectedItem write SetSelectedItem;\r\n    property SelectedItems[AIndex: Integer]: TTMSFNCTableViewItem read GetSelItem;\r\n    property CheckedItem[AItem: TTMSFNCTableViewItem]: Boolean read GetCheckedItem write SetCheckedItem;\r\n    property Checked[AItemIndex: Integer]: Boolean read GetChecked write SetChecked;\r\n    property DoneButton: TTMSFNCToolBarButton read FDoneButton;\r\n    property EditButton: TTMSFNCToolBarButton read FEditButton;\r\n    property FilterButton: TTMSFNCToolBarButton read FFilterButton;\r\n    property BackButton: TTMSFNCToolBarButton read FBackButton;\r\n    property PrecalculateItems: Boolean read GetPrecalculateItems write SetPrecalculateItems default False;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCTableView = class(TTMSFNCCustomTableView)\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n    property OnNeedFilterDropDownData;\r\n    property OnFilterSelect;\r\n    property OnBeforeReorderItem;\r\n    property OnAfterReorderItem;\r\n    property OnBeforeDropItem;\r\n    property OnAfterDropItem;\r\n    property OnBeforeCutToClipboard;\r\n    property OnBeforeCopyToClipboard;\r\n    property OnBeforePasteFromClipboard;\r\n    property OnAfterCutToClipboard;\r\n    property OnAfterCopyToClipboard;\r\n    property OnAfterPasteFromClipboard;\r\n  public\r\n    property TreeView;\r\n  published\r\n    property Fill;\r\n    property Stroke;\r\n    property BitmapContainer;\r\n    property ItemAppearance;\r\n    property DefaultItem;\r\n    property Items;\r\n    property Header;\r\n    property Footer;\r\n    property ItemIndex;\r\n    property Interaction;\r\n    property LookupBar;\r\n    property LayoutMode;\r\n    property Reload;\r\n    property Categories;\r\n    property MoreOptions;\r\n    property MoreOptionAppearance;\r\n    property CategoryAppearance;\r\n    property GroupAppearance;\r\n    property CategoryType;\r\n    property OnItemSelected;\r\n    property OnItemUnSelected;\r\n    property OnItemSelectionChanged;\r\n    property Version;\r\n    property VerticalScrollBarVisible;\r\n    property GlobalFont;\r\n    property OnBeforeDrawItem;\r\n    property OnAfterDrawItem;\r\n    property OnItemCompare;\r\n    property OnCategoryCompare;\r\n    property OnCategoryClick;\r\n    property OnManualLookupCategory;\r\n    property OnAfterDrawItemIcon;\r\n    property OnBeforeDrawItemIcon;\r\n    property OnBeforeDrawItemText;\r\n    property OnAfterDrawItemText;\r\n    property OnItemAnchorClick;\r\n    property OnItemClick;\r\n    property OnItemMouseLeave;\r\n    property OnItemMouseEnter;\r\n    property OnItemDblClick;\r\n    property OnVScroll;\r\n    property OnStartReload;\r\n    property OnStopReload;\r\n    property OnDrawItemCustomAccessory;\r\n    property OnItemAccessoryClick;\r\n    property OnItemBitmapClick;\r\n    property OnItemCheckChanged;\r\n    property OnAfterDrawItemCheck;\r\n    property OnBeforeDrawItemCheck;\r\n    property OnBeforeApplyFilter;\r\n    property OnAfterApplyFilter;\r\n    property OnItemMoreOptionClick;\r\n    property OnBeforeItemShowDetailControl;\r\n    property OnBeforeItemHideDetailControl;\r\n    property OnItemShowDetailControl;\r\n    property OnItemHideDetailControl;\r\n    property OnHeaderAnchorClick;\r\n    property OnFooterAnchorClick;\r\n    property OnGetHTMLTemplateValue;\r\n    property OnGetHTMLTemplate;\r\n  end;\r\n\r\n{$IFDEF WEBLIB}\r\nconst\r\n  TMSFNCTABLEVIEWSEARCH = 'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAACXBIWXMAAA7DAAAOwwHHb6hkAAABXElEQVQ4jY2TP0'+\r\n                           '/CUBTFf1VJGhmoEzCQIIkDG4y4gNGJ5cnoiKMTfACCpoubDk5OfAPoUpcm4sRYEkzcsEkHJNGIRgwJiwPUtKVFz3Tzzj3n3PdPYg3KDS0NlID0cq'+\r\n                           'mrq6Lr7pFChArQBGoBtAVUHaMwAxPIReUIR/kUhWyS8fs3Rt9m8PzqtFV0VXRWDMoN7RxoZhIxLk/3icoRD2+YNldtE2AC7G76DfaKJ+2oHJFvzo'+\r\n                           'orYoBMMoYEDKw3GRhv+NJLgFLIJgLFDg7zKacUG0ENcWU7VOznAw2+ZvO1BlMX7zFwrsYwbU+TH1pv6JQPQRNcT2dzbu8eA8XDlw86C4MJ0NoKCg'+\r\n                           'BqhmkzHH0iChniO4s9955G7vS6rgrL8w7KDS0H3ANK6PyL5Lquiha4XqJPPAEOltSxS2wBHV0VE2dBChPrquivmeIXziG6x678V+w2uFgmV/3f9S'+\r\n                           '/8AOOWdCNEGLMkAAAAAElFTkSuQmCC';\r\n{$ENDIF}\r\n\r\nimplementation\r\n\r\nuses\r\n  Math, WEBLib.TMSFNCUtils, SysUtils, WEBLib.Graphics\r\n  {$IFDEF FNCLIB}\r\n  , WEBLib.TMSFNCCustomSelector\r\n  {$ENDIF}\r\n  ;\r\n\r\n{$R 'TMSFNCTableView.res'}\r\n\r\ntype\r\n  TTMSFNCTreeViewOpen = class(TTMSFNCTreeViewTableView);\r\n  TTMSFNCCustomTreeViewOpen = class(TTMSFNCCustomTreeView);\r\n  TTMSFNCCustomTableViewOpen = class(TTMSFNCCustomTableView);\r\n  TTMSFNCTreeViewColumnOpen = class(TTMSFNCTreeViewColumn);\r\n\r\nfunction AnimateDouble(var Start, Stop: Double; Delta, Margin: Double): Boolean;\r\nbegin\r\n  Result := true;\r\n  if (Start > Stop - Margin) and (Start < Stop + Margin) then\r\n  begin\r\n    Start := Stop;\r\n    Result := false;\r\n  end\r\n  else\r\n  begin\r\n    Delta := Max(Margin, Delta);\r\n    if Start < Stop then\r\n      Start := Start + Delta\r\n    else\r\n      Start := Start - Delta;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.AddDisplayItem(AItem: TTMSFNCTableViewItem);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  dp.CategoryID := -1;\r\n  dp.Item := AItem;\r\n  dp.Kind := tvikItem;\r\n  dp.Text := '';\r\n  dp.Row := FDisplayList.Count;\r\n  if Assigned(AItem) then\r\n    AItem.FRow := dp.Row;\r\n  FDisplayList.Add(dp);\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.AddDisplayCategory(AItem: TTMSFNCTableViewItem): TTMSFNCTableViewDisplayItem;\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  dp.Item := nil;\r\n  dp.Kind := tvikCategory;\r\n  dp.Text := GetCharacterForItem(AItem);\r\n  dp.CategoryID := AItem.CategoryID;\r\n  dp.Row := FDisplayList.Count;\r\n  if Assigned(AItem) then\r\n    AItem.FRow := dp.Row;\r\n\r\n  if (dp.CategoryID <> -1) or CategoryAppearance.ShowUncategorized then\r\n  begin\r\n    FDisplayList.Add(dp);\r\n    FCategoryList.Add(dp);\r\n  end;\r\n\r\n  Result := dp;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.AddItem(AText: string = ''): TTMSFNCTableViewItem;\r\nbegin\r\n  Result := Items.Add;\r\n  Result.Text := AText;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.ApplyFilter;\r\nbegin\r\n  FFilterApplied := True;\r\n  UpdateTableView;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.ApplyStyle;\r\nvar\r\n  I: Integer;\r\n  c: TTMSFNCGraphicsColor;\r\nbegin\r\n  inherited;\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleTextFontColor(c) then\r\n  begin\r\n    for I := 0 to Items.Count - 1 do\r\n    begin\r\n      Items[I].TextColor := c;\r\n      Items[I].TitleColor := c;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTMSFNCCustomTableView) then\r\n  begin\r\n    FTreeView.Assign((Source as TTMSFNCCustomTableView).TreeView);\r\n    FItems.Assign((Source as TTMSFNCCustomTableView).Items);\r\n    FItemAppearance.Assign((Source as TTMSFNCCustomTableView).ItemAppearance);\r\n    FCategoryAppearance.Assign((Source as TTMSFNCCustomTableView).CategoryAppearance);\r\n    FCategoryType := (Source as TTMSFNCCustomTableView).CategoryType;\r\n    FFilter.Assign((Source as TTMSFNCCustomTableView).Filter);\r\n    FHeader.Assign((Source as TTMSFNCCustomTableView).Header);\r\n    FFooter.Assign((Source as TTMSFNCCustomTableView).Footer);\r\n    FDefaultItem.Assign((Source as TTMSFNCCustomTableView).DefaultItem);\r\n    FInteraction.Assign((Source as TTMSFNCCustomTableView).Interaction);\r\n    FReload.Assign((Source as TTMSFNCCustomTableView).Reload);\r\n    FLookupBar.Assign((Source as TTMSFNCCustomTableView).LookupBar);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.BeginUpdate;\r\nvar\r\n  a: TTMSFNCTableViewSelectedItems;\r\n  I: Integer;\r\nbegin\r\n  inherited;\r\n  Inc(FUpdateCount);\r\n  if Assigned(FTreeView) then\r\n  begin\r\n    if Assigned(SelectedItem) then\r\n      FSaveSelectedItem := SelectedItem.Index\r\n    else\r\n      FSaveSelectedItem := -1;\r\n\r\n    a := GetSelectedItems;\r\n    SetLength(FSaveSelectedItems, Length(a));\r\n    for I := 0 to Length(a) - 1 do\r\n    begin\r\n      if Assigned(a[I]) then\r\n        FSaveSelectedItems[I] := a[I].Index;\r\n    end;\r\n\r\n    FTreeView.BeginUpdate;\r\n    FTreeView.ClearNodeList;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.CalculateItems;\r\nvar\r\n  I: Integer;\r\n  v: Boolean;\r\n  it: TTMSFNCTableViewItem;\r\n  c: TTMSFNCTableViewDisplayItem;\r\n  cc: Integer;\r\nbegin\r\n  if (FUpdateCount > 0) or IsDestroying then\r\n    Exit;\r\n\r\n  FDisplayList.Clear;\r\n  FCategoryList.Clear;\r\n\r\n  cc := 0;\r\n  for I := 0 to Items.Count - 1 do\r\n  begin\r\n    it := Items[I];\r\n    v := it.Visible;\r\n\r\n    it.FFiltered := False;\r\n    if FFilterApplied then\r\n    begin\r\n      it.FFiltered := MatchFilter(it);\r\n      v := v and it.FFiltered;\r\n    end;\r\n\r\n    if CategoryType <> tvctNone then\r\n    begin\r\n      if FDisplayList.Count = 0 then\r\n      begin\r\n        if v then\r\n        begin\r\n          c := AddDisplayCategory(it);\r\n          AddDisplayItem(it);\r\n          Inc(cc);\r\n        end;\r\n      end\r\n      else\r\n      begin\r\n        if ItemFromDifferentCategory(it, Items[I - 1]) then\r\n        begin\r\n          if (cc = 0) and (c.Kind = tvikCategory) then\r\n          begin\r\n            FDisplayList.Remove(c);\r\n            FCategoryList.Remove(c);\r\n          end;\r\n\r\n          c := AddDisplayCategory(it);\r\n          cc := 0;\r\n\r\n          if v then\r\n          begin\r\n            AddDisplayItem(it);\r\n            Inc(cc);\r\n          end;\r\n        end\r\n        else\r\n        begin\r\n          if v then\r\n          begin\r\n            AddDisplayItem(it);\r\n            Inc(cc);\r\n          end;\r\n        end;\r\n      end;\r\n    end\r\n    else if v then\r\n      AddDisplayItem(it);\r\n  end;\r\n\r\n  if (cc = 0) and (c.Kind = tvikCategory) then\r\n  begin\r\n    FDisplayList.Remove(c);\r\n    FCategoryList.Remove(c);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.CalculateLookupBar;\r\nvar\r\n  s: Integer;\r\n  I: Integer;\r\n  str: string;\r\n  r, cr: TRectF;\r\n  ldp: TTMSFNCTableViewLookupBarDisplayItem;\r\n  ypos: Single;\r\n  g: TTMSFNCGraphics;\r\n  j: Integer;\r\nbegin\r\n  if (FUpdateCount > 0) or IsDestroying or not Assigned(FTreeView) then\r\n    Exit;\r\n\r\n  FLookupBarDisplayList.Clear;\r\n\r\n  if LookupBar.Visible and (CategoryType <> tvctNone) then\r\n  begin\r\n    cr := FTreeView.GetLookupBarRect;\r\n\r\n    case CategoryType of\r\n      tvctAlphaBetic, tvctAlphaNumericFirst, tvctAlphaNumericLast:\r\n      begin\r\n        s := GetCharacterCount;\r\n        for I := 1 to s do\r\n        begin\r\n          str := GetCharacter(I);\r\n          r.Left := cr.Left;\r\n          r.Right := cr.Right;\r\n          r.Top := cr.Top + ((I - 1) * ((cr.Bottom - cr.Top) / s));\r\n          r.Bottom := r.Top + ((cr.Bottom - cr.Top) / s);\r\n\r\n          ldp.Rect := r;\r\n          ldp.Text := str;\r\n          ldp.Active := Assigned(FindFirstItemWithCategory(str, LookupBar.IncludeFilteredItems));\r\n\r\n          FLookupBarDisplayList.Add(ldp);\r\n        end;\r\n      end;\r\n      tvctCustom:\r\n      begin\r\n        FCustomChar.Clear;\r\n        for I := 0 to Categories.Count - 1 do\r\n          FCustomChar.Add(TTMSFNCTableViewCustomChar.Create(Categories[I].Id, False));\r\n\r\n        for I := 0 to Items.Count - 1 do\r\n        begin\r\n          str := Items[I].StrippedHTMLText;\r\n          if (str <> '') then\r\n          begin\r\n            j := Items[I].CategoryID;\r\n            FCustomChar.ActivateID(j);\r\n          end;\r\n        end;\r\n\r\n        g := TTMSFNCGraphics.CreateBitmapCanvas;\r\n        try\r\n          g.Font.Assign(LookupBar.Font);\r\n          s := Categories.Count - 1;\r\n          ypos := cr.Top + 3;\r\n          for I := 0 to s do\r\n          begin\r\n            str := Categories[I].LookupText;\r\n\r\n            r.Left := cr.Left;\r\n            r.Right := cr.Right;\r\n            r.Top := ypos;\r\n            r.Bottom := r.Top + g.CalculateTextHeight(str);\r\n            ypos := ypos + (r.Bottom - r.Top) + 3;\r\n\r\n            ldp.Rect := r;\r\n            ldp.Text := str;\r\n            ldp.Active := Assigned(FindFirstItemWithCategoryID(Categories[I].Id, LookupBar.IncludeFilteredItems));\r\n\r\n            FLookupBarDisplayList.Add(ldp);\r\n          end;\r\n        finally\r\n          g.Free;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.CancelEditMode;\r\nbegin\r\n  StopEditMode;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.ChangeDPIScale(M, D: Integer);\r\nbegin\r\n  inherited;\r\n  {$IFDEF VCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION >= 33}\r\n  FDoneButton.ScaleForPPI(CurrentPPI);\r\n  FEditButton.ScaleForPPI(CurrentPPI);\r\n  FBackButton.ScaleForPPI(CurrentPPI);\r\n  FFilterButton.ScaleForPPI(CurrentPPI);\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  ItemAppearance.Height := TTMSFNCUtils.MulDivSingle(ItemAppearance.Height, M, D);\r\n  GroupAppearance.Margins.Top := TTMSFNCUtils.MulDivSingle(GroupAppearance.Margins.Top, M, D);\r\n  GroupAppearance.Margins.Left := TTMSFNCUtils.MulDivSingle(GroupAppearance.Margins.Left, M, D);\r\n  GroupAppearance.Margins.Bottom := TTMSFNCUtils.MulDivSingle(GroupAppearance.Margins.Bottom, M, D);\r\n  GroupAppearance.Margins.Right := TTMSFNCUtils.MulDivSingle(GroupAppearance.Margins.Right, M, D);\r\n  GroupAppearance.Rounding := TTMSFNCUtils.MulDivInt(GroupAppearance.Rounding, M, D);\r\n  UpdateControlAfterResize;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.CheckAllItems;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  BeginUpdate;\r\n  for I := 0 to Items.Count - 1 do\r\n    Items[I].Checked := True;\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.ClearSelection;\r\nbegin\r\n  if Assigned(FTreeView) then\r\n  begin\r\n    if FEditMode then\r\n      UnCheckAllItems;\r\n    FTreeView.UnSelectAllNodes;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetCheckedItems: TTMSFNCTableViewCheckedItems;\r\nvar\r\n  I: Integer;\r\n  n: TTMSFNCTableViewItem;\r\nbegin\r\n  Result := nil;\r\n  for I := 0 to Items.Count - 1 do\r\n  begin\r\n    n := Items[I] as TTMSFNCTableViewItem;\r\n    if n.Checked then\r\n    begin\r\n      SetLength(Result, Length(Result) + 1);\r\n      Result[Length(Result) - 1] := n;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.CopyToClipboard(ATextOnly: Boolean);\r\nvar\r\n  s: String;\r\n  I: Integer;\r\n  it: TTMSFNCTableViewItem;\r\n  cl: TTMSFNCTreeViewIntegerList;\r\nbegin\r\n  cl := TTMSFNCTreeViewIntegerList.Create;\r\n  try\r\n    s := '';\r\n    for I := 0 to SelectedItemCount - 1 do\r\n    begin\r\n      it := SelectedItems[I];\r\n      if Assigned(it) and (cl.IndexOf(it.Index) = -1) then\r\n      begin\r\n        s := s + it.SaveToString(ATextOnly) + ENDOFLINE;\r\n        cl.Add(it.Index);\r\n      end;\r\n    end;\r\n\r\n    if s <> '' then\r\n      TTMSFNCClipBoard.SetText(CLP_FMT + s);\r\n  finally\r\n    cl.Free;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCCustomTableView.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FFirstLoad := False;\r\n  FEdit := TTMSFNCTableViewEdit.Create(Self);\r\n  FEdit.FTableView := Self;\r\n  FEdit.OnChange := @DoEditChange;\r\n  {$IFDEF FMXLIB}\r\n  FEdit.OnChangeTracking := DoEditChange;\r\n  FEdit.Stored := False;\r\n  {$ENDIF}\r\n\r\n  FEditButton := TTMSFNCToolBarButton.Create(Self);\r\n  FEditButton.OnClick := DoEditButtonClicked;\r\n  FEditButton.Stored := False;\r\n  FEditButton.Width := 50;\r\n  FEditButton.Appearance.FlatStyle := True;\r\n\r\n  FDoneButton := TTMSFNCToolBarButton.Create(Self);\r\n  FDoneButton.OnClick := DoDoneButtonClicked;\r\n  FDoneButton.Stored := False;\r\n  FDoneButton.Width := 50;\r\n  FDoneButton.Appearance.FlatStyle := True;\r\n\r\n  FFilterButton := TTMSFNCToolBarButton.Create(Self);\r\n  FFilterButton.OnClick := DoFilterButtonClicked;\r\n  FFilterButton.Stored := False;\r\n  FFilterButton.Width := 30;\r\n  FFilterButton.Appearance.FlatStyle := True;\r\n  FFilterButton.Bitmaps.AddBitmapFromResource(TMSFNCTABLEVIEWSEARCH, HInstance, 1.0);\r\n  FFilterButton.BitmapVisible := True;\r\n\r\n  FBackButton := TTMSFNCToolBarButton.Create(Self);\r\n  FBackButton.OnClick := DoBackButtonClicked;\r\n  FBackButton.Stored := False;\r\n  FBackButton.Width := 50;\r\n  FBackButton.Appearance.FlatStyle := True;\r\n\r\n  FEditButton.Text := 'Edit';\r\n  FDoneButton.Text := 'Done';\r\n  FBackButton.Text := 'Back';\r\n\r\n  FDetailControlTimer := TTimer.Create(Self);\r\n  FDetailControlTimer.OnTimer := DoDetailControlTimer;\r\n  FDetailControlTimer.Enabled := False;\r\n  FDetailControlTimer.Interval := 1;\r\n\r\n  FDisplayList := TTMSFNCTableViewDisplayList.Create;\r\n  FCategoryList := TTMSFNCTableViewDisplayList.Create;\r\n  FLookupBarDisplayList := TTMSFNCTableViewLookupBarDisplayList.Create;\r\n  FItems := CreateItems;\r\n  FLookupBar := TTMSFNCTableViewLookupBar.Create(Self);\r\n  FReload := TTMSFNCTableViewReload.Create(Self);\r\n  FCategories := TTMSFNCTableViewCategories.Create(Self);\r\n  FMoreOptions := TTMSFNCTableViewMoreOptions.Create(Self);\r\n  FCategoryType := tvctNone;\r\n  FLayoutMode := tvlmDefault;\r\n\r\n  FCustomChar := TTMSFNCTableViewCustomCharList.Create;\r\n\r\n  FTreeView := CreateTreeView;\r\n  {$IFDEF WEBLIB}\r\n  FTreeView.AllowTouch := False;\r\n  {$ENDIF}\r\n  FTreeView.OnClick := DoClick;\r\n  FTreeView.OptimizedHTMLDrawing := True;\r\n  FTreeView.FTableView := Self;\r\n  FTreeView.Stored := False;\r\n  FTreeView.Parent := Self;\r\n  FTreeView.Columns.Clear;\r\n  FColumn := FTreeView.Columns.Add;\r\n  FTreeView.ClearNodes;\r\n  FTreeView.ColumnsAppearance.Layouts := [tclTop, tclBottom];\r\n  FTreeView.ColumnsAppearance.TopSize := 30;\r\n  FTreeView.ColumnsAppearance.BottomSize := 30;\r\n  FTreeView.StretchScrollBars := True;\r\n  FTreeView.VerticalScrollBarVisible := False;\r\n  FTreeview.NodesAppearance.Stroke.Kind := gskSolid;\r\n  FTreeView.NodesAppearance.ExpandColumn := -1;\r\n  FTreeView.NodesAppearance.LevelIndent := 0;\r\n  FTreeView.NodesAppearance.ShowLines := False;\r\n  FTreeView.NodesAppearance.ExpandWidth := 0;\r\n  FTreeView.NodesAppearance.ExpandHeight := 0;\r\n  FTreeView.NodesAppearance.SelectionArea := tsaDefault;\r\n  FTreeView.NodesAppearance.ShowFocus := True;\r\n  FTreeView.NodesAppearance.SelectedFill.Color := MakeGraphicsColor(217, 217, 217);\r\n  FTreeView.NodesAppearance.SelectedStroke.Color := MakeGraphicsColor(217, 217, 217);\r\n  FTreeView.NodesAppearance.Stroke.Color := MakeGraphicsColor(200, 199, 204);\r\n\r\n  FFilter := TTMSFNCTableViewFilter.Create(Self);\r\n  FHeader := TTMSFNCTableViewHeader.Create(Self);\r\n  FFooter := TTMSFNCTableViewFooter.Create(Self);\r\n  FItemAppearance := TTMSFNCTableViewItemAppearance.Create(Self);\r\n  FCategoryAppearance := TTMSFNCTableViewCategoryAppearance.Create(Self);\r\n  FMoreOptionAppearance := TTMSFNCTableViewMoreOptionAppearance.Create(Self);\r\n  FGroupAppearance := TTMSFNCTableViewGroupAppearance.Create(Self);\r\n  FDefaultItem := TTMSFNCTableViewItem.Create(nil);\r\n  FInteraction := TTMSFNCTableViewInteraction.Create(Self);\r\n  FCopyItems := TTMSFNCTableViewCopyItems.Create(nil);\r\n\r\n  FGlobalFont := TTMSFNCAppearanceGlobalFont.Create(Self);\r\n\r\n  FTreeView.OnGetNodeSides := DoGetNodeSides;\r\n  FTreeView.OnGetColumnText := DoGetColumnText;\r\n  FTreeView.OnGetColumnWordWrapping := DoGetColumnWordWrapping;\r\n  FTreeView.OnGetColumnHorizontalTextAlign := DoGetColumnHorizontalTextAlign;\r\n  FTreeView.OnGetColumnVerticalTextAlign := DoGetColumnVerticalTextAlign;\r\n  FTreeView.OnGetColumnTrimming := DoGetColumnTrimming;\r\n  FTreeView.OnGetNumberOfNodes := DoGetNumberOfNodes;\r\n  FTreeView.OnIsNodeChecked := DoIsNodeChecked;\r\n  FTreeView.OnGetNodeCheckType := DoGetNodeCheckType;\r\n  FTreeView.OnAfterUnCheckNode := DoAfterUnCheckNode;\r\n  FTreeView.OnAfterCheckNode := DoAfterCheckNode;\r\n  FTreeView.OnGetNodeHeight := DoGetNodeHeight;\r\n  FTreeView.OnGetNodeIcon := DoGetNodeIcon;\r\n  FTreeView.OnGetNodeTrimming := DoGetNodeTrimming;\r\n  FTreeView.OnGetNodeWordWrapping := DoGetNodeWordWrapping;\r\n  FTreeView.OnGetNodeTitleTrimming := DoGetNodeTitleTrimming;\r\n  FTreeView.OnGetNodeTitleWordWrapping := DoGetNodeTitleWordWrapping;\r\n  FTreeView.OnDrawNodeExtra := DoDrawNodeExtra;\r\n  FTreeView.OnGetNodeExtraSize := DoGetNodeExtraSize;\r\n  FTreeView.OnGetNodeTextColor := DoGetNodeTextColor;\r\n  FTreeView.OnGetNodeTitleColor := DoGetNodeTitleColor;\r\n  FTreeView.OnIsNodeExtended := DoIsNodeExtended;\r\n  FTreeView.OnGetNodeSelectedTextColor := DoGetNodeSelectedTextColor;\r\n  FTreeView.OnGetNodeDisabledTextColor := DoGetNodeDisabledTextColor;\r\n  FTreeView.OnGetNodeSelectedTitleColor := DoGetNodeSelectedTitleColor;\r\n  FTreeView.OnGetNodeDisabledTitleColor := DoGetNodeDisabledTitleColor;\r\n  FTreeView.OnGetNodeText := DoGetNodeText;\r\n  FTreeView.OnGetNodeTitle := DoGetNodeTitle;\r\n  FTreeView.OnGetNodeTitleExpanded := DoGetNodeTitleExpanded;\r\n  FTreeView.OnGetNodeHorizontalTextAlign := DoGetNodeHorizontalTextAlign;\r\n  FTreeView.OnGetNodeVerticalTextAlign := DoGetNodeVerticalTextAlign;\r\n  FTreeView.OnGetNodeTitleHorizontalTextAlign := DoGetNodeTitleHorizontalTextAlign;\r\n  FTreeView.OnGetNodeTitleVerticalTextAlign := DoGetNodeTitleVerticalTextAlign;\r\n  FTreeView.OnIsNodeEnabled := DoIsNodeEnabled;\r\n  FTreeView.OnAfterSelectNode := DoAfterSelectNode;\r\n  FTreeView.OnAfterUnSelectNode := DoAfterUnSelectNode;\r\n  FTreeView.OnNeedFilterDropDownData := DoNeedFilterDropDownData;\r\n  FTreeView.OnFilterSelect := DoFilterSelect;\r\n  FTreeView.OnBeforeDrawNode := DoBeforeDrawNode;\r\n  FTreeView.OnAfterDrawNode := DoAfterDrawNode;\r\n  FTreeView.OnAfterDrawNodeIcon := DoAfterDrawNodeIcon;\r\n  FTreeView.OnBeforeDrawNodeIcon := DoBeforeDrawNodeIcon;\r\n  FTreeView.OnAfterDrawNodeCheck := DoAfterDrawNodeCheck;\r\n  FTreeView.OnBeforeDrawNodeCheck := DoBeforeDrawNodeCheck;\r\n  FTreeView.OnBeforeDrawNodeText := DoBeforeDrawNodeText;\r\n  FTreeView.OnAfterDrawNodeText := DoAfterDrawNodeText;\r\n  FTreeView.OnBeforeDrawNodeTitle := DoBeforeDrawNodeTitle;\r\n  FTreeView.OnAfterDrawNodeTitle := DoAfterDrawNodeTitle;\r\n  FTreeView.OnNodeAnchorClick := DoNodeAnchorClick;\r\n  FTreeView.OnNodeTitleAnchorClick := @DoNodeTitleAnchorClick;\r\n  FTreeView.OnBeforeDrawSortIndicator := DoBeforeDrawSortIndicator;\r\n  FTreeView.OnAfterDrawSortIndicator := DoAfterDrawSortIndicator;\r\n  FTreeView.OnNodeClick := DoNodeClick;\r\n  FTreeView.OnNodeMouseLeave := DoNodeMouseLeave;\r\n  FTreeView.OnNodeMouseEnter := DoNodeMouseEnter;\r\n  FTreeView.OnNodeDblClick := DoNodeDblClick;\r\n  FTreeView.OnVScroll := DoVScroll;\r\n  FTreeView.OnBeforeCutToClipboard := DoBeforeCutToClipboard;\r\n  FTreeView.OnBeforeCopyToClipboard := DoBeforeCopyToClipboard;\r\n  FTreeView.OnBeforePasteFromClipboard := DoBeforePasteFromClipboard;\r\n  FTreeView.OnAfterCutToClipboard := DoAfterCutToClipboard;\r\n  FTreeView.OnAfterCopyToClipboard := DoAfterCopyToClipboard;\r\n  FTreeView.OnAfterPasteFromClipboard := DoAfterPasteFromClipboard;\r\n  FTreeView.OnHeaderAnchorClick := @DoHeaderAnchorClick;\r\n  FTreeView.OnFooterAnchorClick := @DoFooterAnchorClick;\r\n  {$IFDEF FMXLIB}\r\n  FTreeView.OnMouseWheel := DoTreeViewMouseWheel;\r\n  FTreeView.OnKeyDown := @DoTreeViewKeyDown;\r\n  FTreeView.OnKeyUp := @DoTreeViewKeyUp;\r\n  {$ENDIF}\r\n  {$IFDEF CMNWEBLIB}\r\n  FTreeView.OnMouseWheelDown := DoTreeViewMouseWheelDown;\r\n  FTreeView.OnMouseWheelUp := DoTreeViewMouseWheelUp;\r\n  FTreeView.OnKeyDown := @DoTreeViewKeyDown;\r\n  FTreeView.OnKeyUp := @DoTreeViewKeyUp;\r\n  FTreeView.OnKeyPress := DoTreeViewKeyPress;\r\n  {$ENDIF}\r\n\r\n  TTMSFNCTreeViewOpen(FTreeView).OnCustomReorder := DoCustomReorder;\r\n  TTMSFNCTreeViewOpen(FTreeView).OnCustomDragOver := DoCustomDragOver;\r\n  TTMSFNCTreeViewOpen(FTreeView).OnCustomDragDrop := DoCustomDragDrop;\r\n  TTMSFNCTreeViewOpen(FTreeView).OnCustomCopyToClipboard := DoCopyToClipboard;\r\n  TTMSFNCTreeViewOpen(FTreeView).OnCustomCutToClipboard := DoCutToClipboard;\r\n  TTMSFNCTreeViewOpen(FTreeView).OnCustomPasteFromClipboard := DoPasteFromClipboard;\r\n  TTMSFNCTreeViewOpen(FTreeView).OnCustomColumnSort := DoColumnSort;\r\n  TTMSFNCTreeViewOpen(FTreeView).OnCustomLookup := DoLookup;\r\n\r\n  CustomizeTreeView(FTreeView);\r\n\r\n  Width := 250;\r\n  Height := 350;\r\n  if IsDesignTime then\r\n  begin\r\n    Stroke.Color := MakeGraphicsColor(200, 199, 204);\r\n    InitSample;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.CreateItems: TTMSFNCTableViewItems;\r\nbegin\r\n  Result := TTMSFNCTableViewItems.Create(Self);\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.CreateTreeView: TTMSFNCTreeViewTableView;\r\nbegin\r\n  Result := TTMSFNCTreeViewTableView.Create(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.CustomizeTreeView(\r\n  ATreeView: TTMSFNCTreeView);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.CutToClipboard(ATextOnly: Boolean);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  BeginUpdate;\r\n  CopyToClipboard(ATextOnly);\r\n  for I := SelectedItemCount - 1 downto 0 do\r\n    RemoveItem(SelectedItems[I]);\r\n  EndUpdate;\r\nend;\r\n\r\ndestructor TTMSFNCCustomTableView.Destroy;\r\nbegin\r\n  FreeAndNil(FFilterTimer);\r\n  FGlobalFont.Free;\r\n\r\n  FEditButton.Free;\r\n  FFilterButton.Free;\r\n  FEdit.Free;\r\n  FBackButton.Free;\r\n  FDoneButton.Free;\r\n\r\n  FDetailControlTimer.Free;\r\n  FMoreOptions.Free;\r\n  FCategories.Free;\r\n  FReload.Free;\r\n  FLookupBar.Free;\r\n  FCustomChar.Free;\r\n  FDisplayList.Free;\r\n  FCategoryList.Free;\r\n  FLookupBarDisplayList.Free;\r\n  FFilter.Free;\r\n  FCopyItems.Free;\r\n  FHeader.Free;\r\n  FFooter.Free;\r\n  FDefaultItem.Free;\r\n  FInteraction.Free;\r\n  FItems.Free;\r\n  FTreeView.Free;\r\n  FItemAppearance.Free;\r\n  FCategoryAppearance.Free;\r\n  FGroupAppearance.Free;\r\n  FMoreOptionAppearance.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.DetailControlActive: Boolean;\r\nbegin\r\n  Result := Assigned(FActiveDetailControl);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.StopEditMode;\r\nbegin\r\n  if (Assigned(FTreeView) and FTreeView.FReloadActive) or not Assigned(FTreeView) then\r\n    Exit;\r\n\r\n  FEditMode := False;\r\n  UpdateTableView;\r\n  UnSelectAllItems;\r\n  UnCheckAllItems;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.StopFiltering;\r\nbegin\r\n  if (Assigned(FTreeView) and FTreeView.FReloadActive) or not Assigned(FTreeView) then\r\n    Exit;\r\n\r\n  FFilterActive := False;\r\n  RemoveFilters;\r\n  UpdateTableView;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DisableInteraction;\r\nbegin\r\n  if Assigned(FTreeView) then\r\n    FTreeView.BlockUserInput := True;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoAfterApplyFilter(\r\n  AFilter: TTMSFNCTableViewFilterData);\r\nbegin\r\n  if Assigned(OnAfterApplyFilter) then\r\n    OnAfterApplyFilter(Self, AFilter);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoAfterCheckNode(Sender: TObject;\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikItem:\r\n      begin\r\n        if Assigned(dp.Item) then\r\n        begin\r\n          dp.Item.Checked := True;\r\n          if Assigned(FTreeView) then\r\n            FTreeView.DoAfterSelectNode(ANode);\r\n          DoItemCheckChanged(dp.Item);\r\n        end;\r\n      end;\r\n      tvikCategory: ;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoAfterCopyToClipboard(Sender: TObject);\r\nbegin\r\n  if Assigned(OnAfterCopyToClipboard) then\r\n    OnAfterCopyToClipboard(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoAfterCutToClipboard(Sender: TObject);\r\nbegin\r\n  if Assigned(OnAfterCutToClipboard) then\r\n    OnAfterCutToClipboard(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoAfterDrawItemMoreOption(\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AItem: TTMSFNCTableViewItem;\r\n  AMoreOption: TTMSFNCTableViewMoreOption);\r\nbegin\r\n  if Assigned(OnAfterDrawItemMoreOption) then\r\n    OnAfterDrawItemMoreOption(Self, AGraphics, ARect, AItem, AMoreOption);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoAfterDrawNode(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  if Assigned(OnAfterDrawItem) then\r\n    OnAfterDrawItem(Self, AGraphics, ARect, GetItemForNode(ANode));\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoAfterDrawNodeCheck(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer;\r\n  ANode: TTMSFNCTreeViewVirtualNode; ACheck: TTMSFNCBitmap);\r\nbegin\r\n  if Assigned(OnAfterDrawItemCheck) then\r\n    OnAfterDrawItemCheck(Self, AGraphics, ARect, GetItemForNode(ANode), ACheck);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoAfterDrawNodeIcon(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer;\r\n  ANode: TTMSFNCTreeViewVirtualNode; AIcon: TTMSFNCBitmap);\r\nbegin\r\n  if Assigned(OnAfterDrawItemIcon) then\r\n    OnAfterDrawItemIcon(Self, AGraphics, ARect, GetItemForNode(ANode), AIcon);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoAfterDrawNodeText(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer;\r\n  ANode: TTMSFNCTreeViewVirtualNode; AText: String);\r\nbegin\r\n  if Assigned(OnAfterDrawItemText) then\r\n    OnAfterDrawItemText(Self, AGraphics, ARect, GetItemForNode(ANode), AText);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoAfterDrawNodeTitle(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer;\r\n  ANode: TTMSFNCTreeViewVirtualNode; ATitle: String);\r\nbegin\r\n  if Assigned(OnAfterDrawItemTitle) then\r\n    OnAfterDrawItemTitle(Self, AGraphics, ARect, GetItemForNode(ANode), ATitle);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoAfterDrawSortIndicator(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn, ASortIndex: Integer;\r\n  ASortKind: TTMSFNCTreeViewNodesSortKind);\r\nvar\r\n  i: Integer;\r\n  sk: TTMSFNCTableViewItemsSortKind;\r\nbegin\r\n  if Assigned(OnAfterDrawSortIndicator) then\r\n  begin\r\n    i := Integer(ASortKind);\r\n    sk := TTMSFNCTableViewItemsSortKind(i);\r\n    OnAfterDrawSortIndicator(Self, AGraphics, ARect, ASortIndex, sk);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoAfterDropItem(AFromItem: TTMSFNCTableViewItem; AToItem: TTMSFNCTableViewItem);\r\nbegin\r\n  if Assigned(OnAfterDropItem) then\r\n    OnAfterDropItem(Self, AFromItem, AToItem);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoAfterPasteFromClipboard(Sender: TObject);\r\nbegin\r\n  if Assigned(OnAfterPasteFromClipboard) then\r\n    OnAfterPasteFromClipboard(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoAfterReorderItem(AFromItem, AToItem: TTMSFNCTableViewItem);\r\nbegin\r\n  if Assigned(OnAfterReorderItem) then\r\n    OnAfterReorderItem(Self, AFromItem, AToItem);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoAfterSelectNode(Sender: TObject;\r\n  ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  if Assigned(OnItemSelected) then\r\n    OnItemSelected(Self, GetItemForNode(ANode));\r\n\r\n  if Assigned(OnItemSelectionChanged) then\r\n    OnItemSelectionChanged(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoAfterUnCheckNode(Sender: TObject;\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikItem:\r\n      begin\r\n        if Assigned(dp.Item) then\r\n        begin\r\n          dp.Item.Checked := False;\r\n          if Assigned(FTreeView) then\r\n            FTreeView.DoAfterUnSelectNode(ANode);\r\n          DoItemCheckChanged(dp.Item);\r\n        end;\r\n      end;\r\n      tvikCategory: ;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoAfterUnSelectNode(Sender: TObject;\r\n  ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  if Assigned(OnItemUnSelected) then\r\n    OnItemUnSelected(Self, GetItemForNode(ANode));\r\n\r\n  if Assigned(OnItemSelectionChanged) then\r\n    OnItemSelectionChanged(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoBackButtonClicked(Sender: TObject);\r\nbegin\r\n  HideDetailControl;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoBeforeApplyFilter(\r\n  AFilter: TTMSFNCTableViewFilterData; AAllow: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeApplyFilter) then\r\n    OnBeforeApplyFilter(Self, AFilter, AAllow);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoBeforeCopyToClipboard(Sender: TObject;\r\n  var ACanCopy: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeCopyToClipboard) then\r\n    OnBeforeCopyToClipboard(Self, ACanCopy);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoBeforeCutToClipboard(Sender: TObject;\r\n  var ACanCut: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeCutToClipboard) then\r\n    OnBeforeCutToClipboard(Self, ACanCut);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoBeforeDrawItemMoreOption(\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AItem: TTMSFNCTableViewItem;\r\n  AMoreOption: TTMSFNCTableViewMoreOption; var ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawItemMoreOption) then\r\n    OnBeforeDrawItemMoreOption(Self, AGraphics, ARect, AItem, AMoreOption, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoBeforeDrawNode(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; ANode: TTMSFNCTreeViewVirtualNode;\r\n  var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawItem) then\r\n    OnBeforeDrawItem(Self, AGraphics, ARect, GetItemForNode(ANode), AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoBeforeDrawNodeCheck(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer;\r\n  ANode: TTMSFNCTreeViewVirtualNode; ACheck: TTMSFNCBitmap; var AAllow: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawItemCheck) then\r\n    OnBeforeDrawItemCheck(Self, AGraphics, ARect, GetItemForNode(ANode), ACheck, AAllow);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoBeforeDrawNodeIcon(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer;\r\n  ANode: TTMSFNCTreeViewVirtualNode; AIcon: TTMSFNCBitmap; var AAllow: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawItemIcon) then\r\n    OnBeforeDrawItemIcon(Self, AGraphics, ARect, GetItemForNode(ANode), AIcon, AAllow);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoBeforeDrawNodeTitle(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer;\r\n  ANode: TTMSFNCTreeViewVirtualNode; ATitle: String; var AAllow: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawItemTitle) then\r\n    OnBeforeDrawItemTitle(Self, AGraphics, ARect, GetItemForNode(ANode), ATitle, AAllow);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoBeforeDrawNodeText(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer;\r\n  ANode: TTMSFNCTreeViewVirtualNode; AText: String; var AAllow: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawItemText) then\r\n    OnBeforeDrawItemText(Self, AGraphics, ARect, GetItemForNode(ANode), AText, AAllow);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoBeforeDrawSortIndicator(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn, ASortIndex: Integer;\r\n  ASortKind: TTMSFNCTreeViewNodesSortKind; var ADefaultDraw: Boolean);\r\nvar\r\n  i: Integer;\r\n  sk: TTMSFNCTableViewItemsSortKind;\r\nbegin\r\n  if Assigned(OnBeforeDrawSortIndicator) then\r\n  begin\r\n    i := Integer(ASortKind);\r\n    sk := TTMSFNCTableViewItemsSortKind(i);\r\n    OnBeforeDrawSortIndicator(Self, AGraphics, ARect, ASortIndex, sk, ADefaultDraw);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoBeforeDropItem(AFromItem: TTMSFNCTableViewItem; AToItem: TTMSFNCTableViewItem; var ACanDrop: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDropItem) then\r\n    OnBeforeDropItem(Self, AFromItem, AToItem, ACanDrop);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoBeforeItemHideDetailControl(\r\n  AItem: TTMSFNCTableViewItem; ADetailControl: TControl; var AAllow: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeItemHideDetailControl) then\r\n    OnBeforeItemHideDetailControl(Self, AItem, ADetailControl, AAllow);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoBeforeItemShowDetailControl(\r\n  AItem: TTMSFNCTableViewItem; ADetailControl: TControl; var AAllow: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeItemShowDetailControl) then\r\n    OnBeforeItemShowDetailControl(Self, AItem, ADetailControl, AAllow);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoBeforePasteFromClipboard(Sender: TObject;\r\n  var ACanPaste: Boolean);\r\nbegin\r\n  if Assigned(OnBeforePasteFromClipboard) then\r\n    OnBeforePasteFromClipboard(Self, ACanPaste);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoBeforeReorderItem(AFromItem, AToItem: TTMSFNCTableViewItem; var ACanReorder: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeReorderItem) then\r\n    OnBeforeReorderItem(Self, AFromItem, AToItem, ACanReorder);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoDoneButtonClicked(Sender: TObject);\r\nbegin\r\n  StopEditMode;\r\n  StopFiltering;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoCategoryCompare(ACategory1,\r\n  ACategory2: TTMSFNCTableViewCategory; var ACompareResult: Integer);\r\nbegin\r\n  if Assigned(OnCategoryCompare) then\r\n    OnCategoryCompare(Self, ACategory1, ACategory2, ACompareResult);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoClick(Sender: TObject);\r\nbegin\r\n  if Assigned(OnClick) then\r\n    OnClick(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoItemBitmapClick(\r\n  AItem: TTMSFNCTableViewItem);\r\nbegin\r\n  if Assigned(OnItemBitmapClick) then\r\n    OnItemBitmapClick(Self, AItem);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoItemAccessoryClick(\r\n  AItem: TTMSFNCTableViewItem);\r\nbegin\r\n  if Assigned(OnItemAccessoryClick) then\r\n    OnItemAccessoryClick(Self, AItem);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoHeaderAnchorClick(Sender: TObject; AAnchor: String);\r\nbegin\r\n  if Assigned(OnHeaderAnchorClick) then\r\n    OnHeaderAnchorClick(Self, AAnchor)\r\n  else if Interaction.AutoOpenURL then\r\n    TTMSFNCUtils.OpenURL(AAnchor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoColumnSort(Sender: TObject; AColumn: Integer;\r\n  ASortMode: TTMSFNCTreeViewNodesSortMode);\r\nvar\r\n  i: Integer;\r\nbegin\r\n  i := Integer(ASortMode);\r\n  Items.Sort(Interaction.Sorting in [tvcsNormalCaseSensitive], TTMSFNCTableViewItemsSortMode(i));\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoCopyToClipboard(Sender: TObject);\r\nbegin\r\n  CopyToClipboard(Interaction.ClipboardMode = tvcmTextOnly);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoCustomDragDrop(Sender, Source: TObject;\r\n  Point: TPointF);\r\nvar\r\n  di, dragi, li, dic, newi: TTMSFNCTableViewItem;\r\n  dragn: TTMSFNCTreeViewVirtualNode;\r\n  b: Boolean;\r\n  tv: TTMSFNCCustomTableViewOpen;\r\nbegin\r\n  if FAccepted and Assigned(Source) and (Source is TTMSFNCCustomTreeView) and ((Source as TTMSFNCCustomTreeView).Parent is TTMSFNCCustomTableView)\r\n    and (TTMSFNCCustomTreeViewOpen(Source).Interaction.DragDropMode  <> tdmNone) then\r\n  begin\r\n    dragn := (Source as TTMSFNCCustomTreeView).DragNode;\r\n    if Assigned(dragn) then\r\n    begin\r\n      dragi := TTMSFNCCustomTableViewOpen((Source as TTMSFNCCustomTreeView).Parent).GetItemForNode(dragn);\r\n      di := XYToItem(Point.X, Point.Y);\r\n      if (di <> dragi) and Assigned(dragi) and PtInRectEx(GetItemsRect, Point) then\r\n      begin\r\n        b := True;\r\n        if Assigned(di) then\r\n          DoBeforeDropItem(dragi, di, b)\r\n        else\r\n        begin\r\n          Inc(FUpdateCount);\r\n          newi := Items.Add;\r\n          Dec(FUpdateCount);\r\n          DoBeforeDropItem(dragi, newi, b);\r\n          newi.Free;\r\n        end;\r\n\r\n        if b then\r\n        begin\r\n          dic := nil;\r\n          BeginUpdate;\r\n          tv := TTMSFNCCustomTableViewOpen((Source as TTMSFNCCustomTreeView).Parent);\r\n          tv.BeginUpdate;\r\n          if Assigned(di) then\r\n          begin\r\n            case tv.Interaction.DragDropMode of\r\n              tvdmMove:\r\n              begin\r\n                if (Source as TTMSFNCCustomTreeView).Parent = Self then\r\n                begin\r\n                  DragItemMove(dragi, di);\r\n                  dragi.Index := di.Index;\r\n                  dic := di;\r\n                end\r\n                else\r\n                begin\r\n                  li := Items.Add;\r\n                  DragItemAdd(li, dragi, di);\r\n                  tv.DragItemDelete(dragi);\r\n                  li.Assign(dragi);\r\n                  li.Index := di.Index;\r\n                  tv.Items.Delete(dragi.Index);\r\n                  tv.ItemIndex := tv.ItemIndex;\r\n                  dic := li;\r\n                  dragi := nil;\r\n                end;\r\n              end;\r\n              tvdmCopy:\r\n              begin\r\n                li := Items.Add;\r\n                DragItemAdd(li, dragi, di);\r\n                li.Assign(dragi);\r\n                li.Index := di.Index;\r\n                dic := li;\r\n              end;\r\n            end;\r\n          end\r\n          else\r\n          begin\r\n            li := Items.Add;\r\n            DragItemAdd(li, dragi, nil);\r\n            li.Assign(dragi);\r\n            case tv.Interaction.DragDropMode of\r\n              tvdmMove:\r\n              begin\r\n                tv.DragItemDelete(dragi);\r\n                tv.TreeView.RemoveNodeFromSelection(tv.GetNodeForItemIndex(dragi.Index));\r\n                tv.Items.Delete(dragi.Index);\r\n                tv.ItemIndex := tv.ItemIndex;\r\n                dragi := nil;\r\n              end;\r\n            end;\r\n            dic := li;\r\n          end;\r\n          (Source as TTMSFNCCustomTreeView).DragNode := nil;\r\n          if Assigned(dic) then\r\n          begin\r\n            FSaveSelectedItem := dic.Index;\r\n            SetLength(FSaveSelectedItems, 1);\r\n            FSaveSelectedItems[0] := dic.Index;\r\n          end;\r\n          tv.EndUpdate;\r\n          EndUpdate;\r\n          DoAfterDropItem(dragi, dic);\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoCustomDragOver(Sender, Source: TObject;\r\n  Point: TPointF; var Accept: Boolean);\r\nbegin\r\n  Accept := (Interaction.DragDropMode <> tvdmNone) and (Source is TTMSFNCCustomTreeView) and Assigned((Source as TTMSFNCCustomTreeView).DragNode);\r\n  Accept := Accept and PtInRectEx(GetItemsRect, Point);\r\n  FAccepted := Accept;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.CustomizeButtons;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoCustomReorder(Sender: TObject; AFromNode,\r\n  AToNode: TTMSFNCTreeViewVirtualNode);\r\nvar\r\n  it, itt: TTMSFNCTableViewItem;\r\n  b: Boolean;\r\nbegin\r\n  if not Assigned(AFromNode) or not Assigned(AToNode) then\r\n    Exit;\r\n\r\n  b := True;\r\n  it := GetItemForNode(AFromNode);\r\n  itt := GetItemForNode(AToNode);\r\n  DoBeforeReorderItem(it, itt, b);\r\n  if b then\r\n  begin\r\n    BeginUpdate;\r\n    it.Index := itt.Index;\r\n    EndUpdate;\r\n    DoAfterReorderItem(it, itt);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoCutToClipboard(Sender: TObject);\r\nbegin\r\n  CutToClipboard(Interaction.ClipboardMode = tvcmTextOnly);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoDetailControlTimer(Sender: TObject);\r\nvar\r\n  d: Double;\r\n  p: Double;\r\n  anim: Boolean;\r\n  cr: TRectF;\r\nbegin\r\n  if Assigned(FActiveDetailControl) and Assigned(FTreeView) then\r\n  begin\r\n    if not FShowDetailControl then\r\n      p := 0\r\n    else\r\n    begin\r\n      cr := FTreeView.GetContentRect;\r\n      p := cr.Right - cr.Left;\r\n    end;\r\n\r\n    if FTreeView.Interaction.AnimationFactor > 0 then\r\n    begin\r\n      d := Abs(FDetailControlOffset - p) / FTreeView.Interaction.AnimationFactor;\r\n      anim := AnimateDouble(FDetailControlOffset, p, d, 0.01);\r\n    end\r\n    else\r\n      anim := False;\r\n\r\n    if not anim then\r\n    begin\r\n      FDetailControlOffset := p;\r\n      FShowDetailControl := not FShowDetailControl;\r\n      if not FShowDetailControl then\r\n      begin\r\n        DoItemHideDetailControl(FActiveDetailItem, FActiveDetailControl);\r\n        FActiveDetailControl.Visible := False;\r\n        FActiveDetailControl.Parent := nil;\r\n        FActiveDetailControl := nil;\r\n        FActiveDetailItem := nil;\r\n      end\r\n      else\r\n        DoItemShowDetailControl(FActiveDetailItem, FActiveDetailControl);\r\n\r\n      FDetailControlTimer.Enabled := False;\r\n    end;\r\n\r\n    UpdateTableView(True);\r\n    UpdateActiveDetailControl;\r\n  end\r\n  else\r\n    FDetailControlTimer.Enabled := False;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoDrawItemCustomAccessory(\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AItem: TTMSFNCTableViewItem);\r\nbegin\r\n  if Assigned(OnDrawItemCustomAccessory) then\r\n    OnDrawItemCustomAccessory(Self, AGraphics, ARect, AItem);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoDrawNodeExtra(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AColumn: Integer;\r\n  ANode: TTMSFNCTreeViewVirtualNode);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\n  bmp: TTMSFNCBitmap;\r\n  r: TRectF;\r\n  h: Single;\r\n  I: Integer;\r\n  mo: TTMSFNCTableViewMoreOption;\r\n  sz: Single;\r\n  w: Single;\r\n  a: Boolean;\r\n  c, fc: TTMSFNCGraphicsColor;\r\nbegin\r\n  if not Assigned(FTreeView) then\r\n    Exit;\r\n\r\n  if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikItem:\r\n      begin\r\n        if Assigned(dp.Item) then\r\n        begin\r\n          if (FTreeView.FMoreOffsetItem = dp.Item) and (MoreOptions.Count > 0) then\r\n          begin\r\n            AGraphics.Font.Assign(MoreOptionAppearance.Font);\r\n            AGraphics.Fill.Assign(MoreOptionAppearance.Fill);\r\n            AGraphics.Stroke.Assign(MoreOptionAppearance.Stroke);\r\n\r\n            sz := FTreeView.FMoreOffset;\r\n            w := sz / MoreOptions.Count;\r\n\r\n            for I := 0 to MoreOptions.Count - 1 do\r\n            begin\r\n              mo := MoreOptions[I];\r\n              if mo.Color <> gcNull then\r\n                AGraphics.Fill.Color := mo.Color;\r\n              if mo.BorderColor <> gcNull then\r\n                AGraphics.Stroke.Color := mo.BorderColor;\r\n              if mo.FontColor <> gcNull then\r\n                AGraphics.Font.Color := mo.FontColor;\r\n              r := RectF(ARect.Right - 1 + w * I, ARect.Top, ARect.Right - 1 + w * (I + 1), ARect.Bottom);\r\n              a := True;\r\n              DoBeforeDrawItemMoreOption(AGraphics, r, dp.Item, mo, a);\r\n              if a then\r\n              begin\r\n                if FTreeview.FDownMoreOption = mo then\r\n                begin\r\n                  AGraphics.Fill.Color := Lighter(AGraphics.Fill.Color, 20);\r\n                  AGraphics.Stroke.Color := Lighter(AGraphics.Stroke.Color, 20);\r\n                end;\r\n\r\n                AGraphics.DrawRectangle(r, gcrmNone);\r\n                InflateRectEx(r, -2, -2);\r\n                AGraphics.DrawText(r, mo.Text, False, gtaCenter);\r\n                DoAfterDrawItemMoreOption(AGraphics, r, dp.Item, mo);\r\n              end;\r\n            end;\r\n          end;\r\n\r\n          if (dp.Item.AccessoryWidth > 0) and (dp.Item.AccessoryHeight > 0) and (dp.Item.Accessory <> tviaNone) then\r\n          begin\r\n            r := ARect;\r\n            if dp.Item = FTreeView.FMoreOffsetItem then\r\n              r.Left := r.Left + FTreeView.FMoreOffset;\r\n\r\n            InflateRectEx(r, -4, -4);\r\n            h := dp.Item.AccessoryHeight;\r\n            r := RectF(r.Left, r.Top + ((r.Bottom - r.Top) - h) / 2, r.Right, r.Top + ((r.Bottom - r.Top) - h) / 2 + h);\r\n\r\n            AGraphics.Font.Assign(ItemAppearance.AccessoryFont);\r\n\r\n            if dp.Item.AccessoryFontColor <> gcNull then\r\n              AGraphics.Font.Color := dp.Item.AccessoryFontColor;\r\n\r\n            case dp.Item.Accessory of\r\n              tviaDetail:\r\n              begin\r\n                bmp := TTMSFNCGraphics.GetScaledBitmap(ItemAppearance.AccessoryDetailBitmaps, 0, BitmapContainer);\r\n                if Assigned(bmp) and not IsBitmapEmpty(bmp) then\r\n                  AGraphics.DrawBitmap(r, bmp);\r\n              end;\r\n              tviaProgress:\r\n              begin\r\n                c := ItemAppearance.AccessoryFill.Color;\r\n                if dp.Item.AccessoryColor <> gcNull then\r\n                  c := dp.Item.AccessoryColor;\r\n                fc := ItemAppearance.AccessoryFont.Color;\r\n                if dp.Item.AccessoryFontColor <> gcNull then\r\n                  fc := dp.Item.AccessoryFontColor;\r\n                AGraphics.DrawProgressBar(r, dp.Item.AccessoryProgress, '%.0f%%', 100, c, fc);\r\n              end;\r\n              tviaBadge: DrawBadge(AGraphics, r, dp.Item);\r\n              tviaButton:\r\n              begin\r\n                AGraphics.DrawButton(r, dp.Item = FActiveAccessoryItem);\r\n                AGraphics.DrawText(r, dp.Item.AccessoryText, False, gtaCenter, gtaCenter);\r\n              end;\r\n              tviaCustom: DoDrawItemCustomAccessory(AGraphics, r, dp.Item);\r\n            end;\r\n          end;\r\n        end;\r\n      end;\r\n      tvikCategory: ;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoEditButtonClicked(Sender: TObject);\r\nbegin\r\n  StartEditMode;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoEditChange(Sender: TObject);\r\nbegin\r\n  FFilterTime := 0;\r\n  FilterTimer.Enabled := True;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoEnter;\r\nbegin\r\n  inherited;\r\n  if Assigned(FTreeView) and FTreeView.AllowFocus then\r\n    FTreeView.SetFocus;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoFilterSelect(Sender: TObject; AColumn: integer;\r\n  var ACondition: string);\r\nbegin\r\n  if Assigned(OnFilterSelect) then\r\n    OnFilterSelect(Self, ACondition);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoFooterAnchorClick(Sender: TObject; AAnchor: String);\r\nbegin\r\n  if Assigned(OnFooterAnchorClick) then\r\n    OnFooterAnchorClick(Self, AAnchor)\r\n  else if Interaction.AutoOpenURL then\r\n    TTMSFNCUtils.OpenURL(AAnchor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetColumnHorizontalTextAlign(Sender: TObject;\r\n  AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind;\r\n  var AHorizontalTextAlign: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  case AKind of\r\n    ikColumnTop: AHorizontalTextAlign := Header.HorizontalTextAlign;\r\n    ikColumnBottom: AHorizontalTextAlign := Footer.HorizontalTextAlign;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetColumnText(Sender: TObject;\r\n  AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind; var AText: String);\r\nbegin\r\n  case AKind of\r\n    ikColumnTop: AText := Header.Text;\r\n    ikColumnBottom: AText := Footer.Text;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetColumnTrimming(Sender: TObject;\r\n  AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind;\r\n  var ATrimming: TTMSFNCGraphicsTextTrimming);\r\nbegin\r\n  case AKind of\r\n    ikColumnTop: ATrimming := Header.Trimming;\r\n    ikColumnBottom: ATrimming := Footer.Trimming;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetColumnVerticalTextAlign(Sender: TObject;\r\n  AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind;\r\n  var AVerticalTextAlign: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  case AKind of\r\n    ikColumnTop: AVerticalTextAlign := Header.VerticalTextAlign;\r\n    ikColumnBottom: AVerticalTextAlign := Footer.VerticalTextAlign;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetColumnWordWrapping(Sender: TObject;\r\n  AColumn: Integer; AKind: TTMSFNCTreeViewCacheItemKind;\r\n  var AWordWrapping: Boolean);\r\nbegin\r\n  case AKind of\r\n    ikColumnTop: AWordWrapping := Header.WordWrapping;\r\n    ikColumnBottom: AWordWrapping := Footer.WordWrapping;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetHTMLTemplate(AItem: TTMSFNCTableViewItem;\r\n  var AHTMLTemplate: string);\r\nbegin\r\n  if Assigned(OnGetHTMLTemplate) then\r\n    OnGetHTMLTemplate(Self, AItem, AHTMLTemplate);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetHTMLTemplateValue(\r\n  AItem: TTMSFNCTableViewItem; AName: string; var AValue: string);\r\nbegin\r\n  if Assigned(OnGetHTMLTemplateValue) then\r\n    OnGetHTMLTemplateValue(Self, AItem, AName, AValue);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoIsNodeExtended(Sender: TObject;\r\n  ANode: TTMSFNCTreeViewVirtualNode; var AExtended: Boolean);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikCategory: AExtended := True;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetNodeCheckType(Sender: TObject;\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var ACheckType: TTMSFNCTreeViewNodeCheckType);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\n  i: Integer;\r\nbegin\r\n  if FEditMode then\r\n  begin\r\n    if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n    begin\r\n      dp := FDisplayList[ANode.Row];\r\n      case dp.Kind of\r\n        tvikItem:\r\n        begin\r\n          if Assigned(dp.Item) then\r\n          begin\r\n            i := Integer(dp.Item.CheckType);\r\n            ACheckType := TTMSFNCTreeViewNodeCheckType(i);\r\n          end;\r\n        end;\r\n        tvikCategory: ;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetNodeDisabledTextColor(Sender: TObject;\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var ADisabledTextColor: TTMSFNCGraphicsColor);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikItem:\r\n      begin\r\n        if Assigned(dp.Item) then\r\n          ADisabledTextColor := dp.Item.DisabledTextColor;\r\n      end;\r\n      tvikCategory: ;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetNodeDisabledTitleColor(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var ADisabledTitleColor: TTMSFNCGraphicsColor);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikItem:\r\n      begin\r\n        if Assigned(dp.Item) then\r\n          ADisabledTitleColor := dp.Item.DisabledTitleColor;\r\n      end;\r\n      tvikCategory: ;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetNodeHeight(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AHeight: Double);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikItem:\r\n      begin\r\n        if ItemAppearance.Height > -1 then\r\n          AHeight := ItemAppearance.Height;\r\n\r\n        if Assigned(dp.Item) and (dp.Item.Height > -1) then\r\n          AHeight := dp.Item.Height;\r\n      end;\r\n      tvikCategory:\r\n      begin\r\n        if CategoryAppearance.Height > -1 then\r\n          AHeight := CategoryAppearance.Height;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetNodeHorizontalTextAlign(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var AHorizontalTextAlign: TTMSFNCGraphicsTextAlign);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikItem:\r\n      begin\r\n        if Assigned(dp.Item) then\r\n          AHorizontalTextAlign := dp.Item.HorizontalTextAlign;\r\n      end;\r\n      tvikCategory: ;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetNodeVerticalTextAlign(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AVerticalTextAlign: TTMSFNCGraphicsTextAlign);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikItem:\r\n      begin\r\n        if Assigned(dp.Item) then\r\n          AVerticalTextAlign := dp.Item.VerticalTextAlign;\r\n      end;\r\n      tvikCategory: ;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetNodeIcon(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; ALarge: Boolean; var AIcon: TTMSFNCBitmap);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikItem:\r\n      begin\r\n        if Assigned(dp.Item) then\r\n        begin\r\n          if Assigned(BitmapContainer) and (dp.Item.BitmapName <> '') then\r\n            AIcon := TTMSFNCBitmap(BitmapContainer.FindBitmap(dp.Item.BitmapName));\r\n\r\n          if not Assigned(AIcon) then\r\n            AIcon := dp.Item.Bitmap;\r\n        end;\r\n      end;\r\n      tvikCategory: ;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetNodeSelectedTextColor(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ASelectedTextColor: TTMSFNCGraphicsColor);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikItem:\r\n      begin\r\n        if Assigned(dp.Item) then\r\n          ASelectedTextColor := dp.Item.SelectedTextColor;\r\n      end;\r\n      tvikCategory: ;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetNodeSelectedTitleColor(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ASelectedTitleColor: TTMSFNCGraphicsColor);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikItem:\r\n      begin\r\n        if Assigned(dp.Item) then\r\n          ASelectedTitleColor := dp.Item.SelectedTitleColor;\r\n      end;\r\n      tvikCategory: ;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetNodeSides(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; var ASides: TTMSFNCGraphicsSides);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\n  n: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  if Assigned(FTreeView) then\r\n  begin\r\n    if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n    begin\r\n      dp := FDisplayList[ANode.Row];\r\n      if not FTreeView.IsVirtualNodeSelected(ANode) and not (dp.Kind = tvikCategory) then\r\n      begin\r\n        if FTreeView.GetLastVirtualNode = ANode then\r\n          ASides := []\r\n        else\r\n        begin\r\n          n := FTreeView.GetNextVirtualNode(ANode);\r\n          if Assigned(n) and (n.Row >= 0) and (n.Row <= FDisplayList.Count - 1) then\r\n          begin\r\n            dp := FDisplayList[n.Row];\r\n            if dp.Kind = tvikItem then\r\n              ASides := [gsBottom]\r\n            else\r\n              ASides := [];\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.HideDetailControl;\r\nvar\r\n  a: Boolean;\r\nbegin\r\n  if (Assigned(FTreeView) and FTreeView.FReloadActive) or not Assigned(FTreeView) or not FShowDetailControl then\r\n    Exit;\r\n\r\n  FTreeView.StopAnimationTimer;\r\n\r\n  a := True;\r\n  DoBeforeItemHideDetailControl(FActiveDetailItem, FActiveDetailControl, a);\r\n\r\n  if Assigned(FActiveDetailControl) and Assigned(FTreeView) and a then\r\n  begin\r\n    FShowDetailControl := True;\r\n    UpdateActiveDetailControl;\r\n    FDetailControlTimer.Enabled := True;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.HideMoreOptions;\r\nbegin\r\n  if (Assigned(FTreeView) and (FTreeView.FReloadActive or FFilterActive or Assigned(FActiveDetailControl))) or not Assigned(FTreeView) then\r\n    Exit;\r\n\r\n  FTreeView.FAnimateMoreOptions := False;\r\n  FTreeView.FAnimateMoreOptionsClose := True;\r\n  FTreeView.FMoreOffsetTo := 0;\r\n  FTreeView.FAnimTimer.Enabled := True;\r\n  FTreeView.BlockMouseClick := False;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.HTMLReplace(AValue: string; AItem: TTMSFNCTableViewItem): string;\r\nvar\r\n  beforetag, aftertag, nm, vl: string;\r\n  i, j: integer;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(AItem) then\r\n    Exit;\r\n\r\n  beforetag := '';\r\n\r\n  while (Pos('<#', AValue) > 0) and (Pos('>', AValue) > 0) do\r\n  begin\r\n    i := pos('<#', AValue);\r\n    beforetag := beforetag + copy(AValue, 1, i - 1); //part prior to the tag\r\n    aftertag := copy(AValue, i, length(AValue)); //part after the tag\r\n    j := pos('>', aftertag);\r\n    nm := copy(aftertag, 1, j - 1);\r\n    Delete(nm, 1, 2);\r\n    Delete(AValue, 1, i + j - 1);\r\n    vl := AItem.HTMLTemplateItems.Values[nm];\r\n    DoGetHTMLTemplateValue(AItem, nm, vl);\r\n    beforetag := beforetag + vl;\r\n  end;\r\n\r\n  Result := beforetag + AValue;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetNodeTitleExpanded(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AExpanded: Boolean);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikItem:\r\n      begin\r\n        if Assigned(dp.Item) then\r\n          AExpanded := dp.Item.TitleExpanded;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetNodeTitle(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AMode: TTMSFNCTreeViewNodeTextMode; var ATitle: String);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikItem:\r\n      begin\r\n        if Assigned(dp.Item) then\r\n          ATitle := dp.Item.GetTitle;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetNodeTitleColor(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ATitleColor: TTMSFNCGraphicsColor);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikItem:\r\n      begin\r\n        if Assigned(dp.Item) then\r\n          ATitleColor := dp.Item.TitleColor;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetNodeTitleHorizontalTextAlign(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var AHorizontalTextAlign: TTMSFNCGraphicsTextAlign);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikItem:\r\n      begin\r\n        if Assigned(dp.Item) then\r\n          AHorizontalTextAlign := dp.Item.TitleHorizontalTextAlign;\r\n      end;\r\n      tvikCategory: ;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetNodeTitleTrimming(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ATrimming: TTMSFNCGraphicsTextTrimming);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikItem:\r\n      begin\r\n        if Assigned(dp.Item) then\r\n          ATrimming := dp.Item.TitleTrimming;\r\n      end;\r\n      tvikCategory: ;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetNodeTitleVerticalTextAlign(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer;\r\n  var AVerticalTextAlign: TTMSFNCGraphicsTextAlign);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikItem:\r\n      begin\r\n        if Assigned(dp.Item) then\r\n          AVerticalTextAlign := dp.Item.TitleVerticalTextAlign;\r\n      end;\r\n      tvikCategory: ;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetNodeTitleWordWrapping(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AWordWrapping: Boolean);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikItem:\r\n      begin\r\n        if Assigned(dp.Item) then\r\n          AWordWrapping := dp.Item.TitleWordWrapping;\r\n      end;\r\n      tvikCategory: ;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetNodeText(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AMode: TTMSFNCTreeViewNodeTextMode; var AText: String);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikItem:\r\n      begin\r\n        if Assigned(dp.Item) then\r\n          AText := dp.Item.GetText;\r\n      end;\r\n      tvikCategory: AText := dp.Text;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetNodeTextColor(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ATextColor: TTMSFNCGraphicsColor);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikItem:\r\n      begin\r\n        if Assigned(dp.Item) then\r\n          ATextColor := dp.Item.TextColor;\r\n      end;\r\n      tvikCategory: ATextColor := CategoryAppearance.Font.Color;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetNodeTrimming(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var ATrimming: TTMSFNCGraphicsTextTrimming);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikItem:\r\n      begin\r\n        if Assigned(dp.Item) then\r\n          ATrimming := dp.Item.Trimming;\r\n      end;\r\n      tvikCategory: ;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetNodeWordWrapping(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AWordWrapping: Boolean);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikItem:\r\n      begin\r\n        if Assigned(dp.Item) then\r\n          AWordWrapping := dp.Item.WordWrapping;\r\n      end;\r\n      tvikCategory: ;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetNodeExtraSize(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AExtraSize: Single);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  if not Assigned(FTreeView) then\r\n    Exit;\r\n\r\n  if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikItem:\r\n      begin\r\n        if Assigned(dp.Item) and (dp.Item.AccessoryWidth > 0) and (dp.Item.Accessory <> tviaNone) then\r\n          AExtraSize := dp.Item.AccessoryWidth + 8;\r\n\r\n        if dp.Item = FTreeView.FMoreOffsetItem then\r\n          AExtraSize := AExtraSize + FTreeView.FMoreOffset;\r\n      end;\r\n      tvikCategory: ;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoGetNumberOfNodes(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; var ANumberOfNodes: Integer);\r\nbegin\r\n  if ANode.Level = -1 then\r\n    ANumberOfNodes := FDisplayList.Count;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoIsNodeChecked(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; var AIsChecked: Boolean);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikItem:\r\n      begin\r\n        if Assigned(dp.Item) then\r\n          AIsChecked := dp.Item.Checked;\r\n      end;\r\n      tvikCategory: ;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoIsNodeEnabled(Sender: TObject; ANode: TTMSFNCTreeViewVirtualNode; var AEnabled: Boolean);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  if (ANode.Row >= 0) and (ANode.Row <= FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikItem:\r\n      begin\r\n        if Assigned(dp.Item) then\r\n          AEnabled := dp.Item.Enabled;\r\n      end;\r\n      tvikCategory: ;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoLookup(Sender: TObject; ALookupString: String);\r\nbegin\r\n  LookupItem(ALookupString, Interaction.Lookup.CaseSensitive, Interaction.Lookup.AutoSelect)\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoItemMoreOptionClick(AItem: TTMSFNCTableViewItem; AMoreOption: TTMSFNCTableViewMoreOption);\r\nbegin\r\n  if Assigned(OnItemMoreOptionClick) then\r\n    OnItemMoreOptionClick(Self, AItem, AMoreOption);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoItemShowDetailControl(\r\n  AItem: TTMSFNCTableViewItem; ADetailControl: TControl);\r\nbegin\r\n  if Assigned(OnItemShowDetailControl) then\r\n    OnItemShowDetailControl(Self, AItem, ADetailControl);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoNeedFilterDropDownData(Sender: TObject;\r\n  AColumn: Integer; AValues: TStrings);\r\nbegin\r\n  if Assigned(OnNeedFilterDropDownData) then\r\n    OnNeedFilterDropDownData(Self, AValues);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoNodeAnchorClick(Sender: TObject;\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AAnchor: String);\r\nbegin\r\n  if Assigned(OnItemAnchorClick) then\r\n    OnItemAnchorClick(Self, GetItemForNode(ANode), AAnchor)\r\n  else if Interaction.AutoOpenURL then\r\n    TTMSFNCUtils.OpenURL(AAnchor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoNodeClick(Sender: TObject;\r\n  ANode: TTMSFNCTreeViewVirtualNode);\r\nvar\r\n  it: TTMSFNCTableViewItem;\r\nbegin\r\n  it := GetItemForNode(ANode);\r\n\r\n  if Assigned(it) and (Interaction.ShowDetailMode = tvdtAfterSelectItem) and not FEditMode then\r\n    it.ShowDetailControl;\r\n\r\n  if Assigned(it) and FEditMode then\r\n  begin\r\n    if it.Checked then\r\n    begin\r\n      it.Checked := False;\r\n      FTreeView.DoAfterUnSelectNode(ANode);\r\n    end\r\n    else\r\n    begin\r\n      it.Checked := True;\r\n      FTreeView.DoAfterSelectNode(ANode);\r\n    end;\r\n\r\n    SelectAllCheckedItems;\r\n  end;\r\n\r\n  if Assigned(OnItemClick) then\r\n    OnItemClick(Self, GetItemForNode(ANode));\r\n\r\n  {$IFDEF FNCLIB}\r\n  if Assigned(Parent) and (Parent is TTMSFNCCustomSelector) and Assigned(Parent.Owner) and (Parent.Owner is TTMSFNCControlPicker)then\r\n  begin\r\n//    Update ControlPicker if assigned as control\r\n    if Assigned(it) then\r\n      (Parent.Owner as TTMSFNCControlPicker).CallItemClicked(it.Index)\r\n    else\r\n      (Parent.Owner as TTMSFNCControlPicker).UpdateDropDown;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoNodeMouseEnter(Sender: TObject;\r\n  ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  if Assigned(OnItemMouseEnter) then\r\n    OnItemMouseEnter(Self, GetItemForNode(ANode));\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoNodeMouseLeave(Sender: TObject;\r\n  ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  if Assigned(OnItemMouseLeave) then\r\n    OnItemMouseLeave(Self, GetItemForNode(ANode));\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoNodeTitleAnchorClick(Sender: TObject;\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AAnchor: String);\r\nbegin\r\n  if Assigned(OnItemTitleAnchorClick) then\r\n    OnItemTitleAnchorClick(Self, GetItemForNode(ANode), AAnchor)\r\n  else if Interaction.AutoOpenURL then\r\n    TTMSFNCUtils.OpenURL(AAnchor);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoItemCheckChanged(AItem: TTMSFNCTableViewItem);\r\nbegin\r\n  if Assigned(OnItemCheckChanged) then\r\n    OnItemCheckChanged(Self, AItem);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoItemCompare(AItem1: TTMSFNCTableViewItem; AItem2: TTMSFNCTableViewItem; var ACompareResult: Integer);\r\nbegin\r\n  if Assigned(OnItemCompare) then\r\n    OnItemCompare(Self, AItem1, AItem2, ACompareResult);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoItemHideDetailControl(\r\n  AItem: TTMSFNCTableViewItem; ADetailControl: TControl);\r\nbegin\r\n  if Assigned(OnItemHideDetailControl) then\r\n    OnItemHideDetailControl(Self, AItem, ADetailControl);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoNodeDblClick(Sender: TObject;\r\n  ANode: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  if Assigned(OnItemDblClick) then\r\n    OnItemDblClick(Self, GetItemForNode(ANode));\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoPasteFromClipboard(Sender: TObject);\r\nbegin\r\n  PasteFromClipboard;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoFilterButtonClicked(Sender: TObject);\r\nbegin\r\n  StartFiltering;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoStartReload;\r\nbegin\r\n  if Assigned(OnStartReload) then\r\n    OnStartReload(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoStopReload;\r\nbegin\r\n  if Assigned(OnStopReload) then\r\n    OnStopReload(Self);\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomTableView.DoTreeViewMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean);\r\nbegin\r\n  if Assigned(OnMouseWheel) then\r\n    OnMouseWheel(Self, Shift, WheelDelta, Handled);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoTreeViewKeyDown(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);\r\nbegin\r\n  if Assigned(OnKeyDown) then\r\n    OnKeyDown(Self, Key, KeyChar, Shift);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoTreeViewKeyUp(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);\r\nbegin\r\n  if Assigned(OnKeyUp) then\r\n    OnKeyUp(Self, Key, KeyChar, Shift);\r\nend;\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCCustomTableView.DoTreeViewMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);\r\nbegin\r\n  if Assigned(OnMouseWheelDown) then\r\n    OnMouseWheelDown(Self, Shift, MousePos, Handled);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoTreeViewMouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);\r\nbegin\r\n  if Assigned(OnMouseWheelUp) then\r\n    OnMouseWheelUp(Self, Shift, MousePos, Handled);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoTreeViewKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);\r\nbegin\r\n  if Assigned(OnKeyDown) then\r\n    OnKeyDown(Self, Key, Shift);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoTreeViewKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);\r\nbegin\r\n  if Assigned(OnKeyUp) then\r\n    OnKeyUp(Self, Key, Shift);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoTreeViewKeyPress(Sender: TObject; var AChar: Char);\r\nbegin\r\n  if Assigned(OnKeyPress) then\r\n    OnKeyPress(Self, AChar);\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomTableView.DoVScroll(Sender: TObject; APosition: Single);\r\nbegin\r\n  if Assigned(OnVScroll) then\r\n    OnVScroll(Self, APosition);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DragItemAdd(ANewItem, AAssignItem, AInsertItem: TTMSFNCTableViewItem);\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DragItemDelete(AItem: TTMSFNCTableViewItem);\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DragItemMove(AFromItem, AToItem: TTMSFNCTableViewItem);\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nbegin\r\n  inherited;\r\n  if not FFirstLoad then\r\n  begin\r\n    FFirstLoad := True;\r\n    UpdateControlAfterResize;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DrawBackground(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF);\r\nbegin\r\n  AGraphics.Fill.Assign(Fill);\r\n  AGraphics.Fill.Color := Color;\r\n  AGraphics.Stroke.Assign(Stroke);\r\n  AGraphics.DrawRectangle(ARect);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DrawBadge(AGraphics: TTMSFNCGraphics; ARect: TRectF; AItem: TTMSFNCTableViewItem);\r\nvar\r\n  r: TRectF;\r\n  sz: TSizeF;\r\n  s: String;\r\n  pth: TTMSFNCGraphicsPath;\r\n  rnd: Single;\r\nbegin\r\n  if (AItem.AccessoryText = '') then\r\n    Exit;\r\n\r\n  AGraphics.Font.Assign(ItemAppearance.AccessoryFont);\r\n  AGraphics.Stroke.Assign(ItemAppearance.AccessoryStroke);\r\n  AGraphics.Fill.Assign(ItemAppearance.AccessoryFill);\r\n\r\n  if AItem.AccessoryFontColor <> gcNull then\r\n    AGraphics.Font.Color := AItem.AccessoryFontColor;\r\n\r\n  if AItem.AccessoryBorderColor <> gcNull then\r\n    AGraphics.Stroke.Color := AItem.AccessoryBorderColor;\r\n\r\n  if AItem.AccessoryColor <> gcNull then\r\n    AGraphics.Fill.Color := AItem.AccessoryColor;\r\n\r\n  s := AItem.AccessoryText;\r\n  sz := AGraphics.CalculateTextSize(s);\r\n  sz.cy := sz.cy + 4;\r\n  sz.cx := Max(sz.cy, sz.cx + 6);\r\n\r\n  r := ARect;\r\n\r\n  case AItem.BadgeAlign of\r\n    gtaCenter: r := RectF(r.Left + ((r.Right - r.Left) - sz.cx) / 2, r.Top + ((r.Bottom - r.Top) - sz.cy) / 2, r.Left + ((r.Right - r.Left) - sz.cx) / 2 + sz.cx, r.Top + ((r.Bottom - r.Top) - sz.cy) / 2 + sz.cy);\r\n    gtaLeading: r := RectF(r.Left, r.Top + ((r.Bottom - r.Top) - sz.cy) / 2, r.Left + sz.cx, r.Top + ((r.Bottom - r.Top) - sz.cy) / 2 + sz.cy);\r\n    gtaTrailing: r := RectF(r.Right - sz.cx, r.Top + ((r.Bottom - r.Top) - sz.cy) / 2, r.Right, r.Top + ((r.Bottom - r.Top) - sz.cy) / 2 + sz.cy);\r\n  end;\r\n\r\n  rnd := (r.Bottom - r.Top) / 2;\r\n\r\n  pth := TTMSFNCGraphicsPath.Create;\r\n  try\r\n    pth.AddArc(PointF(r.Left + rnd, r.Top + rnd), PointF(rnd, rnd), 180, 90);\r\n    pth.AddArc(PointF(r.Right - rnd, r.Top + rnd), PointF(rnd, rnd), -90, 90);\r\n    pth.AddArc(PointF(r.Right - rnd, r.Bottom - rnd), PointF(rnd, rnd), 0, 90);\r\n    pth.AddArc(PointF(r.Left + rnd, r.Bottom - rnd), PointF(rnd, rnd), -270, 90);\r\n    pth.ClosePath;\r\n    AGraphics.DrawPath(pth);\r\n  finally\r\n    pth.Free;\r\n  end;\r\n\r\n  AGraphics.DrawText(r, s, False, gtaCenter, gtaCenter);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.StartEditMode;\r\nbegin\r\n  if (Assigned(FTreeView) and FTreeView.FReloadActive) or not Assigned(FTreeView) then\r\n    Exit;\r\n\r\n  FEditMode := True;\r\n  UpdateTableView;\r\n  SelectAllCheckedItems ;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.StartFiltering;\r\nbegin\r\n  if (Assigned(FTreeView) and (FTreeView.FReloadActive or FFilterActive)) or not Assigned(FTreeView) then\r\n    Exit;\r\n\r\n  FFilterActive := True;\r\n  RemoveFilters;\r\n  UpdateTableView;\r\n  FEdit.Text := '';\r\n  FEdit.SetFocus;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.StartReload;\r\nbegin\r\n  if Assigned(FTreeView) then\r\n    FTreeView.StartReload;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.EnableInteraction;\r\nbegin\r\n  if Assigned(FTreeView) then\r\n    FTreeView.BlockUserInput := False;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.EndUpdate;\r\nbegin\r\n  inherited;\r\n  Dec(FUpdateCount);\r\n  if FUpdateCount = 0 then\r\n    UpdateTableView;\r\n\r\n  if Assigned(FTreeView) then\r\n    FTreeView.EndUpdate;\r\n\r\n  SelectItem(FSaveSelectedItem);\r\n  SelectItems(FSaveSelectedItems);\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.FindCategoryWithCharacter(ACategory: String): TTMSFNCTableViewDisplayItem;\r\nvar\r\n  I: Integer;\r\n  cat: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  Result.Kind := tvikNone;\r\n  Result.Item := nil;\r\n  Result.CategoryID := -1;\r\n  Result.Text := '';\r\n  for I := 0 to FCategoryList.Count - 1 do\r\n  begin\r\n    cat := FCategoryList[I];\r\n    if cat.Text = ACategory then\r\n    begin\r\n      Result := cat;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.FindCategoryWithCharacterID(ACategoryID: Integer): TTMSFNCTableViewDisplayItem;\r\nvar\r\n  I: Integer;\r\n  cat: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  Result.Kind := tvikNone;\r\n  Result.Item := nil;\r\n  Result.CategoryID := -1;\r\n  Result.Text := '';\r\n  for I := 0 to FCategoryList.Count - 1 do\r\n  begin\r\n    cat := FCategoryList[I];\r\n    if cat.CategoryID = ACategoryID then\r\n    begin\r\n      Result := cat;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.FindFirstItemWithCategory(ACategory: String; AIncludeFilteredItems: Boolean = True): TTMSFNCTableViewItem;\r\nvar\r\n  I: Integer;\r\n  v: Boolean;\r\nbegin\r\n  Result := nil;\r\n  for I := 0 to Items.Count - 1 do\r\n  begin\r\n    v := Items[I].Visible;\r\n    if FFilterApplied and not AIncludeFilteredItems then\r\n      v := v and Items[I].FFiltered;\r\n\r\n    if v and (GetCharacterForItem(Items[I]) = ACategory) then\r\n    begin\r\n      Result := Items[I];\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.FindFirstItemWithCategoryID(ACategoryID: Integer; AIncludeFilteredItems: Boolean = True): TTMSFNCTableViewItem;\r\nvar\r\n  I: Integer;\r\n  v: Boolean;\r\nbegin\r\n  Result := nil;\r\n  for I := 0 to Items.Count - 1 do\r\n  begin\r\n    v := Items[I].Visible;\r\n    if FFilterApplied and not AIncludeFilteredItems then\r\n      v := v and Items[I].FFiltered;\r\n\r\n    if v and (Items[I].CategoryID = ACategoryID) then\r\n    begin\r\n      Result := Items[I];\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetBitmapContainer: TTMSFNCBitmapContainer;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.BitmapContainer;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetCharacter(Idx: Integer): String;\r\nbegin\r\n  Result := '';\r\n  if (CategoryType = tvctAlphaNumericLast) or (CategoryType = tvctAlphaBetic) then\r\n  begin\r\n    if Idx < 27 then\r\n      Result := chr(ord('A') + (Idx - 1))\r\n    else\r\n      Result := chr(ord('0') + (Idx - 27));\r\n  end\r\n  else\r\n  begin\r\n    if Idx < 11 then\r\n      Result := chr(ord('0') + (Idx - 1))\r\n    else\r\n      Result := chr(ord('A') + (Idx - 11));\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetCharacterCount: Integer;\r\nbegin\r\n  Result := 26;\r\n  if (CategoryType = tvctAlphaNumericFirst) or (CategoryType = tvctAlphaNumericLast) then\r\n    Result := 36;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetCharacterForItem(AItem: TTMSFNCTableViewItem): String;\r\nvar\r\n  cat: TTMSFNCTableViewCategory;\r\n  s: string;\r\n  idx: Integer;\r\nbegin\r\n  Result := '';\r\n  case CategoryType of\r\n    tvctAlphaNumericFirst, tvctAlphaNumericLast, tvctAlphaBetic:\r\n    begin\r\n      s := AItem.StrippedHTMLText;\r\n      if Length(s) > 0 then\r\n      begin\r\n        {$IFDEF ZEROSTRINGINDEX}\r\n        Result := s[0]\r\n        {$ELSE}\r\n        Result := s[1]\r\n        {$ENDIF}\r\n      end\r\n      else\r\n        Result := '';\r\n    end;\r\n    tvctCustom:\r\n    begin\r\n      idx := Categories.ItemIndexByID(AItem.CategoryID);\r\n      if (idx >= 0) and (idx <= Categories.Count - 1) then\r\n      begin\r\n        cat := Categories[idx];\r\n        Result := cat.Text;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetChecked(AItemIndex: Integer): Boolean;\r\nbegin\r\n  Result := False;\r\n  if (AItemIndex >= 0) and (AItemIndex <= Items.Count - 1) then\r\n    Result := Items[AItemIndex].Checked;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetCheckedItem(\r\n  AItem: TTMSFNCTableViewItem): Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(AItem) then\r\n    Result := AItem.Checked;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetDisplayCategoryIndex(AIndex: Integer): Integer;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := -1;\r\n  for I := FDisplayList.Count - 1 downto 0 do\r\n  begin\r\n    if (FDisplayList[I].Kind = tvikCategory) and (I <= AIndex) then\r\n    begin\r\n      Result := I;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetDisplayItem(\r\n  AIndex: Integer): TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  Result.Kind := tvikNone;\r\n  Result.Text := '';\r\n  Result.Item := nil;\r\n  Result.CategoryID := -1;\r\n  Result.Row := -1;\r\n  if (AIndex >= 0) and (AIndex <= FDisplayList.Count - 1) then\r\n    Result := FDisplayList[AIndex];\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetDisplayItemCount: Integer;\r\nbegin\r\n  Result := FDisplayList.Count;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetDisplayItemIndex(AIndex: Integer): Integer;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := -1;\r\n  for I := FDisplayList.Count - 1 downto 0 do\r\n  begin\r\n    if (FDisplayList[I].Kind = tvikItem) and (I <= AIndex) then\r\n    begin\r\n      Result := I;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetDocURL: string;\r\nbegin\r\n  Result := TTMSFNCBaseDocURL + 'tmsfncuipack/components/' + LowerCase(ClassName);\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetFill: TTMSFNCGraphicsFill;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n    Result := TTMSFNCTreeViewOpen(FTreeView).Fill;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.DoFilterTimer(Sender: TObject);\r\nvar\r\n  f: TTMSFNCTableViewFilterData;\r\n  a: Boolean;\r\nbegin\r\n  Inc(FFilterTime);\r\n  if FFilterTime >= FILTERDELAY then\r\n  begin\r\n    FilterTimer.Enabled := False;\r\n\r\n    RemoveFilters;\r\n    f := Filter.Add;\r\n    f.CaseSensitive := False;\r\n    f.Condition := '*'+FEdit.Text+'*';\r\n\r\n    a := True;\r\n    DoBeforeApplyFilter(f, a);\r\n    if a then\r\n    begin\r\n      ApplyFilter;\r\n      DoAfterApplyFilter(f);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetFilterTimer: TTimer;\r\nbegin\r\n  if not Assigned(FFilterTimer) then\r\n  begin\r\n    FFilterTimer := TTimer.Create(nil);\r\n    FFilterTimer.OnTimer := DoFilterTimer;\r\n    FFilterTimer.Interval := 1;\r\n    FFilterTimer.Enabled := False;\r\n  end;\r\n\r\n  Result := FFilterTimer;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetItemForNode(ANode: TTMSFNCTreeViewVirtualNode): TTMSFNCTableViewItem;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  Result := nil;\r\n  i := GetItemIndexForNode(ANode);\r\n  if (i >= 0) and (i <= Items.Count - 1) then\r\n    Result := Items[i];\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetItemIndex: Integer;\r\nvar\r\n  it: TTMSFNCTableViewItem;\r\nbegin\r\n  Result := -1;\r\n  if Assigned(FTreeView) and (FTreeView.SelectedVirtualNodeCount > 0) and Assigned(FTreeView.SelectedVirtualNodes[0]) then\r\n  begin\r\n    it := GetItemForNode(FTreeView.SelectedVirtualNode);\r\n    if Assigned(it) then\r\n      Result := it.Index\r\n    else if FSaveSelectedItem <> -1 then\r\n      Result := FSaveSelectedItem;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetItemIndexForNode(ANode: TTMSFNCTreeViewVirtualNode): Integer;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := -1;\r\n  if Assigned(ANode) then\r\n  begin\r\n    for I := 0 to FDisplayList.Count - 1 do\r\n    begin\r\n      if (FDisplayList[I].Row = ANode.Row) and Assigned(FDisplayList[I].Item) and Assigned(FDisplayList[I].Item.Collection) then\r\n      begin\r\n        Result := FDisplayList[I].Item.Index;\r\n        Break;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetItemsFromClipboard: TTMSFNCTableViewCopyItems;\r\nvar\r\n  s: String;\r\n  a: TStringList;\r\n  AItem: TTMSFNCTableViewItem;\r\n  I: Integer;\r\n  CurrStr: String;\r\n  templ: TTMSFNCCustomTableView;\r\nbegin\r\n  if TTMSFNCClipBoard.HasFormat(TTMSFNCClipBoardFormat.cfText) then\r\n  begin\r\n    s := TTMSFNCClipBoard.GetText;\r\n    if (Pos(CLP_FMT, s) > 0) then\r\n    begin\r\n      templ := TTMSFNCCustomTableView.Create(nil);\r\n      a := TStringList.Create;\r\n      try\r\n        s := StringReplace(s, CLP_FMT, '', [rfReplaceAll]);\r\n        a.Text := s;\r\n        try\r\n          for I := 0 to a.Count - 1 do\r\n          begin\r\n            CurrStr := a[i];\r\n            AItem := templ.AddItem;\r\n            AItem.LoadFromString(CurrStr);\r\n          end;\r\n        finally\r\n        end;\r\n      finally\r\n        FCopyItems.Assign(templ.Items);\r\n        a.Free;\r\n        templ.Free;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  Result := FCopyItems;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetItemsRect: TRectF;\r\nbegin\r\n  Result := EmptyRect;\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.GetNodesRect;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetMoreOptionsSize: Single;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := 0;\r\n  for I := 0 to MoreOptions.Count - 1 do\r\n    Result := Result + MoreOptions[I].Width;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetNextDisplayCategoryIndex(AIndex: Integer): Integer;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := -1;\r\n  for I := AIndex + 1 to FDisplayList.Count - 1 do\r\n  begin\r\n    if FDisplayList[I].Kind = tvikCategory then\r\n    begin\r\n      Result := I;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetNodeForItemIndex(AItemIndex: Integer): TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n    Result := TTMSFNCTreeViewOpen(FTreeView).GetNodeForRow(GetRowForItemIndex(AItemIndex));\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetPrecalculateItems: Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(FTreeView) then\r\n    Result := TTMSFNCTreeViewOpen(FTreeView).PrecalculateItems;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetRowForItemIndex(AItemIndex: Integer): Integer;\r\nvar\r\n  I: Integer;\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  Result := -1;\r\n  for I := 0 to FDisplayList.Count - 1 do\r\n  begin\r\n    dp := FDisplayList[I];\r\n    if Assigned(dp.Item) and Assigned(dp.Item.Collection) and (dp.Item.Index = AItemIndex) and (dp.Kind = tvikItem) then\r\n    begin\r\n      Result := dp.Item.FRow;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetSelectedItem: TTMSFNCTableViewItem;\r\nbegin\r\n  Result := nil;\r\n  if (ItemIndex >= 0) and (ItemIndex <= Items.Count - 1) then\r\n    Result := Items[ItemIndex];\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetSelectedItems: TTMSFNCTableViewSelectedItems;\r\nvar\r\n  I: Integer;\r\n  n: TTMSFNCTableViewItem;\r\nbegin\r\n  Result := nil;\r\n  for I := 0 to SelectedItemCount - 1 do\r\n  begin\r\n    n := SelectedItems[I] as TTMSFNCTableViewItem;\r\n    SetLength(Result, Length(Result) + 1);\r\n    Result[Length(Result) - 1] := n;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetSelItem(AIndex: Integer): TTMSFNCTableViewItem;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n    Result := GetItemForNode(FTreeView.SelectedVirtualNodes[AIndex]);\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetStroke: TTMSFNCGraphicsStroke;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n    Result := TTMSFNCTreeViewOpen(FTreeView).Stroke;\r\nend;\r\n\r\n{$IFDEF FNCLIB}\r\nfunction TTMSFNCCustomTableView.GetSubComponentArray: TTMSFNCStylesManagerComponentArray;\r\nbegin\r\n  SetLength(Result, 1);\r\n  Result[0] := FTreeView;\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TTMSFNCCustomTableView.GetVersion: string;\r\nbegin\r\n  Result := GetVersionNumber(MAJ_VER, MIN_VER, REL_VER, BLD_VER);\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.GetVerticalScrollBarVisible: Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.VerticalScrollBarVisible;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.InitSample;\r\nbegin\r\n  BeginUpdate;\r\n  Items.Clear;\r\n\r\n  AddItem('Bugfix 376');\r\n  AddItem('Bugfix 378');\r\n  AddItem('Customer Update');\r\n  AddItem('Install New server');\r\n  AddItem('Meeting: Next Phase');\r\n  AddItem('Release Planning');\r\n\r\n  ResetToDefaultStyle;\r\n\r\n  GlobalFont.Name := 'Segoe UI';\r\n\r\n  EndUpdate;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.IsAppearanceProperty(AObject: TObject; APropertyName: string; APropertyType: TTypeKind): Boolean;\r\nbegin\r\n  Result := inherited IsAppearanceProperty(AObject, APropertyName, APropertyType);\r\n  Result := Result or (APropertyName = 'Header') or (APropertyName = 'Footer');\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.IsEditMode: Boolean;\r\nbegin\r\n  Result := FEditMode;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.IsItemSelectable(AItem: TTMSFNCTableViewItem): Boolean;\r\nbegin\r\n  Result := True;\r\n  if Assigned(AItem) then\r\n  begin\r\n    Result := AItem.Enabled;\r\n    if not (TTMSFNCTreeViewOpen(FTreeView).VisibleNodes.IndexOf(GetNodeForItemIndex(AItem.Index)) > -1) then\r\n      Result := False;\r\n  end\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.ItemFromDifferentCategory(AItem1, AItem2: TTMSFNCTableViewItem): Boolean;\r\nvar\r\n  s1, s2: string;\r\nbegin\r\n  Result := False;\r\n  if (AItem1 = nil) or (AItem2 = nil) then\r\n  begin\r\n    Result := true\r\n  end\r\n  else\r\n  begin\r\n    case CategoryType of\r\n      tvctAlphaBetic, tvctAlphaNumericFirst, tvctAlphaNumericLast:\r\n      begin\r\n        s1 := AItem1.StrippedHTMLText;\r\n        s2 := AItem2.StrippedHTMLText;\r\n        if (Length(s1) > 0) and (Length(s2) > 0) then\r\n        begin\r\n          {$IFDEF ZEROSTRINGINDEX}\r\n          Result := (s1[0] <> s2[0]);\r\n          {$ELSE}\r\n          Result := (s1[1] <> s2[1]);\r\n          {$ENDIF}\r\n        end\r\n        else\r\n        begin\r\n          if (Length(s1) = 0) and (Length(s2) = 0) then\r\n            Result := false\r\n          else\r\n            Result := true;\r\n        end;\r\n      end;\r\n      tvctCustom:\r\n      begin\r\n        if (AItem1.CategoryID > -1) and (AItem2.CategoryID > -1) then\r\n          Result := (AItem1.CategoryID <> AItem2.CategoryID)\r\n        else\r\n          Result := not ((AItem1.CategoryID = -1) and (AItem2.CategoryID = -1));\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.Loaded;\r\nbegin\r\n  inherited;\r\n  {$IFDEF VCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF (COMPILERVERSION >= 33) AND (COMPILERVERSION < 36)}\r\n  TTMSFNCTreeViewOpen(FTreeView).ChangeDPIScale(96, DesigntimeFormPixelsPerInch);\r\n  FTreeView.ScaleForPPI(CurrentPPI);\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\nprocedure TTMSFNCCustomTableView.LoadFromFile(AFileName: string);\r\nvar\r\n  Stream: TStream;\r\nbegin\r\n  Stream := TFileStream.Create(AFileName, fmOpenRead);\r\n  try\r\n    LoadFromStream(Stream);\r\n  finally\r\n    Stream.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.LoadFromStream(AStream: TStream);\r\nvar\r\n  List: TStringList;\r\n  AItem: TTMSFNCTableViewItem;\r\n  i: Integer;\r\n  CurrStr: string;\r\nbegin\r\n  List := TStringList.Create;\r\n  BeginUpdate;\r\n  try\r\n    try\r\n      Items.Clear;\r\n      List.LoadFromStream(AStream);\r\n      for i := 0 to List.Count - 1 do\r\n      begin\r\n        CurrStr := List[i];\r\n        AItem := AddItem;\r\n        if Assigned(AItem) then\r\n          AItem.LoadFromString(CurrStr);\r\n      end;\r\n    finally\r\n      EndUpdate;\r\n      List.Free;\r\n    end;\r\n  except\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomTableView.LoadFromStrings(AStrings: TStrings);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  BeginUpdate;\r\n  Items.Clear;\r\n  for I := 0 to AStrings.Count - 1 do\r\n    Items.Add.Text := AStrings[I];\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.LoadSettingsFromFile(AFileName: string);\r\nvar\r\n  c: TTMSFNCGraphicsColor;\r\n  I: Integer;\r\nbegin\r\n  c := DefaultItem.TextColor;\r\n  inherited;\r\n  if (c = DefaultItem.TextColor) and (c <> ItemAppearance.Font.Color) then\r\n  begin\r\n    DefaultItem.TextColor := ItemAppearance.Font.Color;\r\n    for I := 0 to Items.Count - 1 do\r\n      Items[I].TextColor := DefaultItem.TextColor;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.LoadSettingsFromStream(AStream: TStream);\r\nvar\r\n  c: TTMSFNCGraphicsColor;\r\n  I: Integer;\r\nbegin\r\n  c := DefaultItem.TextColor;\r\n  inherited;\r\n  if (c = DefaultItem.TextColor) and (c <> ItemAppearance.Font.Color) then\r\n  begin\r\n    DefaultItem.TextColor := ItemAppearance.Font.Color;\r\n    for I := 0 to Items.Count - 1 do\r\n      Items[I].TextColor := DefaultItem.TextColor;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.LookupCategory(ACategory: String);\r\nbegin\r\n  if LookupBar.AutoLookup then\r\n    ScrollToCategoryCharacter(ACategory)\r\n  else\r\n  begin\r\n    if Assigned(OnManualLookupCategory) then\r\n      OnManualLookupCategory(Self, ACategory, -1);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.LookupCustomCategory(ACategoryID: Integer);\r\nbegin\r\n  if LookupBar.AutoLookup then\r\n    ScrollToCategoryID(ACategoryID)\r\n  else\r\n  begin\r\n    if Assigned(OnManualLookupCategory) then\r\n      OnManualLookupCategory(Self, '', ACategoryID);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.LookupItem(ALookupString: String; ACaseSensitive,\r\n  AAutoSelect: Boolean): TTMSFNCTableViewItem;\r\nvar\r\n  v: String;\r\n  it: TTMSFNCTableViewItem;\r\n  i: Integer;\r\n  s: String;\r\nbegin\r\n  Result := nil;\r\n  v := ALookupString;\r\n  if not ACaseSensitive then\r\n    v := Uppercase(v);\r\n\r\n  for I := 0 to Items.Count - 1 do\r\n  begin\r\n    it := Items[I];\r\n    s := it.StrippedHTMLText;\r\n\r\n    if not ACaseSensitive then\r\n      s := UpperCase(s);\r\n\r\n    if Pos(v, s) = 1 then\r\n    begin\r\n      Result := it;\r\n      Break;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(Result) and IsItemSelectable(Result) and AAutoSelect then\r\n  begin\r\n    SelectItem(Result.Index);\r\n    ScrollToItem(Result.Index);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.MatchFilter(\r\n  AItem: TTMSFNCTableViewItem): Boolean;\r\nvar\r\n  i: Integer;\r\n  s:string;\r\n  temp: Boolean;\r\nbegin\r\n  Result := True;\r\n  for i := 1 to FFilter.Count do\r\n  begin\r\n    with FFilter.Items[i - 1] do\r\n    begin\r\n      s := AItem.StrippedHTMLText;\r\n      s := Trim(s);\r\n\r\n      if Prefix <> '' then\r\n        if Pos(Prefix,s) = 1 then\r\n          Delete(s,1,Length(FFilter.Items[i - 1].Prefix));\r\n\r\n      if Suffix <> '' then\r\n        if Pos(Suffix,s) = 1 + Length(s) - Length(Suffix) then\r\n          Delete(s,1 + Length(s) - Length(Suffix),Length(s));\r\n\r\n      temp := true;\r\n      try\r\n        if FFilter.Items[i - 1].Condition <> '' then\r\n          temp := TTMSFNCUtils.MatchStrEx(Condition,s,CaseSensitive);\r\n      except\r\n        temp := false;\r\n      end;\r\n\r\n      case FFilter.Items[i - 1].Operation of\r\n        tvfoSHORT:\r\n        begin\r\n          Result := temp;\r\n          if not Result then\r\n            Break;\r\n        end;\r\n        tvfoNONE: Result := temp;\r\n        tvfoAND: Result := Result AND temp;\r\n        tvfoOR:  Result := Result OR temp;\r\n        tvfoXOR: Result := Result XOR temp;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.Notification(AComponent: TComponent;\r\n  Operation: TOperation);\r\nvar\r\n  i: Integer;\r\nbegin\r\n  inherited;\r\n  if not (csDestroying in ComponentState) and (Operation = opRemove) then\r\n  begin\r\n    for i := 0 to Items.Count - 1 do\r\n    begin\r\n      if AComponent = Items[i].FDetailControl then\r\n        Items[i].FDetailControl := nil;\r\n    end;\r\n\r\n    if Assigned(DefaultItem) and (AComponent = DefaultItem.FDetailControl) then\r\n      DefaultItem.FDetailControl := nil;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.PasteFromClipboard;\r\nvar\r\n  s: String;\r\n  a: TStringList;\r\n  AItem: TTMSFNCTableViewItem;\r\n  I: Integer;\r\n  CurrStr: String;\r\nbegin\r\n  if TTMSFNCClipBoard.HasFormat(TTMSFNCClipBoardFormat.cfText) then\r\n  begin\r\n    s := TTMSFNCClipBoard.GetText;\r\n    if (Pos(CLP_FMT, s) > 0) then\r\n    begin\r\n      a := TStringList.Create;\r\n      try\r\n        s := StringReplace(s, CLP_FMT, '', [rfReplaceAll]);\r\n        a.Text := s;\r\n        try\r\n          for I := 0 to a.Count - 1 do\r\n          begin\r\n            CurrStr := a[i];\r\n            AItem := AddItem;\r\n            AItem.LoadFromString(CurrStr);\r\n          end;\r\n        finally\r\n        end;\r\n      finally\r\n        a.Free;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.ReloadProgress: Single;\r\nbegin\r\n  Result := 0;\r\n  if Assigned(FTreeView) and (Reload.ProgressMode = tvrpmManual) then\r\n    Result := FTreeView.FManualProgressSweepAngle / 360 * 100;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClass(TTMSFNCCustomTableView);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.RemoveFilter;\r\nbegin\r\n  FFilterApplied := False;\r\n  UpdateTableView;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.RemoveFilters;\r\nbegin\r\n  FFilterApplied := False;\r\n  Filter.Clear;\r\n  UpdateTableView;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.RemoveItem(AItem: TTMSFNCTableViewItem);\r\nbegin\r\n  if Assigned(AItem) then\r\n    Items.Delete(AItem.Index);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.ResetToDefaultStyle;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  inherited;\r\n\r\n  BeginUpdate;\r\n\r\n  Stroke.Color := MakeGraphicsColor(178, 178, 178);\r\n  Header.Fill.Kind := gfkSolid;\r\n  Footer.Fill.Kind := gfkSolid;\r\n  Header.Stroke.Color := Stroke.Color;\r\n  Footer.Stroke.Color := Stroke.Color;\r\n\r\n  TTMSFNCUtils.SetFontSize(Header.Font, 16);\r\n  TTMSFNCUtils.SetFontSize(Footer.Font, 16);\r\n\r\n  TTMSFNCUtils.SetFontSize(Header.Font, 14);\r\n  Header.Font.Style := [TFontStyle.fsBold];\r\n  TTMSFNCUtils.SetFontSize(Footer.Font, 14);\r\n  ItemAppearance.Stroke.Kind := gskNone;\r\n  {$IFDEF FMXLIB}\r\n  Header.Fill.Color := $FFEEF2F9;\r\n  Header.Font.Color := $FF454545;\r\n  Footer.Fill.Color := $FFEEF2F9;\r\n  Footer.Font.Color := $FF454545;\r\n  ItemAppearance.SelectedFill.Color := $FFF6F8FC;\r\n  ItemAppearance.SelectedStroke.Color := $FF2D9BEF;\r\n  ItemAppearance.Font.Color := $FF7A7A7A;\r\n  ItemAppearance.SelectedStroke.Color := $FF2D9BEF;\r\n  {$ENDIF}\r\n  {$IFNDEF FMXLIB}\r\n  Header.Fill.Color := $F9F2EE;\r\n  Header.Font.Color := $454545;\r\n  Footer.Fill.Color := $F9F2EE;\r\n  Footer.Font.Color := $454545;\r\n  ItemAppearance.SelectedFill.Color := $FCF8F6;\r\n  ItemAppearance.SelectedStroke.Color := $EF9B2D;\r\n  ItemAppearance.Font.Color := $7A7A7A;\r\n  ItemAppearance.SelectedStroke.Color := $EF9B2D;\r\n  {$ENDIF}\r\n  ItemAppearance.ShowFocus := False;\r\n\r\n  Header.Height := ScalePaintValue(36);\r\n\r\n  for I := 0 to Items.Count - 1 do\r\n  begin\r\n    Items[I].SelectedTitleColor := Header.Font.Color;\r\n    Items[I].TitleColor := Header.Font.Color;\r\n    Items[I].SelectedTextColor := Header.Font.Color;\r\n    Items[I].TextColor := ItemAppearance.Font.Color;\r\n  end;\r\n\r\n  EndUpdate;\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\nprocedure TTMSFNCCustomTableView.SaveToFile(AFileName: string; ATextOnly: Boolean = True);\r\nvar\r\n  Stream: TStream;\r\nbegin\r\n  Stream := TFileStream.Create(AFileName, fmCreate);\r\n  try\r\n    SaveToStream(Stream, ATextOnly);\r\n  finally\r\n    Stream.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SaveToStream(AStream: TStream; ATextOnly: Boolean = True);\r\nvar\r\n  AItem: TTMSFNCTableViewItem;\r\n  ItemStr: string;\r\n  Buffer: TBytes;\r\n  K: Integer;\r\n  {$IFDEF LCLLIB}\r\n  I: Integer;\r\n  {$ENDIF}\r\nbegin\r\n  for K := 0 to Items.Count - 1 do\r\n  begin\r\n    AItem := Items[K];\r\n    ItemStr := AItem.SaveToString(ATextOnly);\r\n    ItemStr := ItemStr + EndOfLine;\r\n    {$IFNDEF LCLLIB}\r\n    Buffer := TEncoding.Default.GetBytes(ItemStr);\r\n    {$ENDIF}\r\n    {$IFDEF LCLLIB}\r\n    SetLength(Buffer, Length(ItemStr));\r\n    for I := 1 to Length(ItemStr) do\r\n      Buffer[I - 1] := Ord(ItemStr[I]);\r\n    {$ENDIF}\r\n\r\n    {$IFDEF CMNLIB}\r\n    AStream.Write(Buffer[0], Length(Buffer));\r\n    {$ELSE}\r\n    AStream.Write(Buffer, Length(Buffer));\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SaveToStrings(AStrings: TStrings);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to Items.Count - 1 do\r\n    AStrings.Add(Items[I].Text);\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomTableView.ScrollToCategoryCharacter(ACharacter: String);\r\nvar\r\n  cat: TTMSFNCTableViewDisplayItem;\r\n  t: TTMSFNCTreeViewOpen;\r\nbegin\r\n  if Assigned(FTreeView) then\r\n  begin\r\n    cat := FindCategoryWithCharacter(ACharacter);\r\n    if (cat.Row >= 0) and (cat.Row <= FDisplayList.Count - 1) then\r\n    begin\r\n      t := TTMSFNCTreeViewOpen(FTreeView);\r\n      t.ScrollToVirtualNode(t.GetNodeForRow(cat.Row), True, tvnspTop, True);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.ScrollToCategoryId(ACategoryID: Integer);\r\nvar\r\n  cat: TTMSFNCTableViewDisplayItem;\r\n  t: TTMSFNCTreeViewOpen;\r\nbegin\r\n  if Assigned(FTreeView) then\r\n  begin\r\n    cat := FindCategoryWithCharacterID(ACategoryID);\r\n    if (cat.Row >= 0) and (cat.Row <= FDisplayList.Count - 1) then\r\n    begin\r\n      t := TTMSFNCTreeViewOpen(FTreeView);\r\n      t.ScrollToVirtualNode(t.GetNodeForRow(cat.Row), True, tvnspTop, True);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.ScrollToItem(AItemIndex: Integer);\r\nvar\r\n  t: TTMSFNCTreeViewOpen;\r\nbegin\r\n  if Assigned(FTreeView) then\r\n  begin\r\n    if (AItemIndex >= 0) and (AItemIndex <= Items.Count - 1) then\r\n    begin\r\n      t := TTMSFNCTreeViewOpen(FTreeView);\r\n      t.ScrollToVirtualNode(t.GetNodeForRow(GetRowForItemIndex(AItemIndex)), True, tvnspTop, True);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SelectAllCheckedItems;\r\nvar\r\n  I: Integer;\r\n  arr: TTMSFNCTableViewIntegerArray;\r\nbegin\r\n  SetLength(arr, 0);\r\n  for I := 0 to Items.Count - 1 do\r\n  begin\r\n    if Items[I].Checked then\r\n    begin\r\n      SetLength(arr, Length(arr) + 1);\r\n      arr[Length(arr) - 1] := I;\r\n    end;\r\n  end;\r\n\r\n  SelectItems(arr);\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.SelectedItemCount: Integer;\r\nbegin\r\n  Result := 0;\r\n  if Assigned(FTreeView) then\r\n    Result := FTreeView.SelectedVirtualNodeCount;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SelectItem(AItemIndex: Integer);\r\nvar\r\n  t: TTMSFNCTreeViewOpen;\r\n  i: Integer;\r\nbegin\r\n  if Assigned(FTreeView) and (AItemIndex <> -1) then\r\n  begin\r\n    i := Max(0, Min(AItemIndex, Items.Count - 1));\r\n    if (i >= 0) and (i <= Items.Count - 1) then\r\n    begin\r\n      t := TTMSFNCTreeViewOpen(FTreeView);\r\n      t.SelectVirtualNode(t.GetNodeForRow(GetRowForItemIndex(i)));\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SelectItems(\r\n  AItemIndexes: TTMSFNCTableViewIntegerArray);\r\nvar\r\n  t: TTMSFNCTreeViewOpen;\r\n  I: Integer;\r\n  na: TTMSFNCTreeViewVirtualNodeArray;\r\nbegin\r\n  if Assigned(FTreeView) then\r\n  begin\r\n    t := TTMSFNCTreeViewOpen(FTreeView);\r\n    SetLength(na, Length(AItemIndexes));\r\n    for I := 0 to Length(AItemIndexes) - 1 do\r\n      na[I] := t.GetNodeForRow(GetRowForItemIndex(AItemIndexes[I]));\r\n\r\n    t.SelectVirtualNodes(na);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetItemAppearance(\r\n  const Value: TTMSFNCTableViewItemAppearance);\r\nbegin\r\n  FItemAppearance.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetLayoutMode(\r\n  const Value: TTMSFNCTableViewLayoutMode);\r\nbegin\r\n  if FLayoutMode <> Value then\r\n  begin\r\n    FLayoutMode := Value;\r\n    UpdateTableView;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetLookupBar(const Value: TTMSFNCTableViewLookupBar);\r\nbegin\r\n  FLookupBar.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetMoreOptionAppearance(\r\n  const Value: TTMSFNCTableViewMoreOptionAppearance);\r\nbegin\r\n  FMoreOptionAppearance.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetMoreOptions(\r\n  const Value: TTMSFNCTableViewMoreOptions);\r\nbegin\r\n  FMoreOptions.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetPrecalculateItems(const Value: Boolean);\r\nbegin\r\n  if Assigned(FTreeView) then\r\n    TTMSFNCTreeViewOpen(FTreeView).PrecalculateItems := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetReload(\r\n  const Value: TTMSFNCTableViewReload);\r\nbegin\r\n  FReload.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetSelectedItem(const Value: TTMSFNCTableViewItem);\r\nbegin\r\n  if Assigned(Value) then\r\n    ItemIndex := Value.Index;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetStroke(const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if Assigned(FTreeView) then\r\n    TTMSFNCTreeViewOpen(FTreeView).Stroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetVerticalScrollBarVisible(\r\n  const Value: Boolean);\r\nbegin\r\n  if Assigned(FTreeView) then\r\n    FTreeView.VerticalScrollBarVisible := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.ShowDetailControl(AItemIndex: Integer);\r\nvar\r\n  a: Boolean;\r\n  cr: TRectF;\r\nbegin\r\n  if (Assigned(FTreeView) and FTreeView.FReloadActive) or not Assigned(FTreeView) then\r\n    Exit;\r\n\r\n  FTreeView.StopAnimationTimer;\r\n\r\n  HideDetailControl;\r\n\r\n  if (AItemIndex >= 0) and (AItemIndex <= Items.Count - 1) then\r\n  begin\r\n    FActiveDetailControl := Items[AItemIndex].DetailControl;\r\n    FActiveDetailItem := Items[AItemIndex];\r\n  end;\r\n\r\n  if not Assigned(FActiveDetailControl) then\r\n    FActiveDetailControl := DefaultItem.DetailControl;\r\n\r\n  a := True;\r\n  DoBeforeItemShowDetailControl(FActiveDetailItem, FActiveDetailControl, a);\r\n\r\n  if Assigned(FActiveDetailControl) and Assigned(FTreeView) and a then\r\n  begin\r\n    FShowDetailControl := False;\r\n    FActiveDetailControl.Parent := Self;\r\n    cr := FTreeView.GetContentRect;\r\n    FDetailControlOffset := cr.Right - cr.Left;\r\n    UpdateActiveDetailControl;\r\n    FActiveDetailControl.Visible := True;\r\n    FDetailControlTimer.Enabled := True;\r\n  end\r\n  else\r\n  begin\r\n    FActiveDetailControl := nil;\r\n    FActiveDetailItem := nil;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.ShowMoreOptions(AItem: TTMSFNCTableViewItem);\r\nbegin\r\n  if (Assigned(FTreeView) and (FTreeView.FReloadActive or FFilterActive or Assigned(FActiveDetailControl))) or not Assigned(FTreeView) then\r\n    Exit;\r\n\r\n  FTreeView.FMoreOffsetItem := AItem;\r\n  FTreeView.FMoreOffsetTo := GetMoreOptionsSize;\r\n  FTreeView.BlockMouseClick := True;\r\n  FTreeView.FAnimateMoreOptions := True;\r\n  FTreeView.FAnimTimer.Enabled := True;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.Sort(ACaseSensitive: Boolean;\r\n  ASortingMode: TTMSFNCTableViewItemsSortMode);\r\nbegin\r\n  Items.Sort(ACaseSensitive, ASortingMode);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.StopReload;\r\nbegin\r\n  if Assigned(FTreeView) then\r\n  begin\r\n    FTreeView.FManualProgressSweepAngle := 0;\r\n    FTreeView.FManualProgressStartAngle := 0;\r\n    FTreeView.FAnimTimer.Enabled := False;\r\n    FTreeView.BlockUserInput := False;\r\n    FTreeView.FReloadActive := False;\r\n    FTreeView.SetVerticalOffset(0);\r\n    FTreeView.StartVerticalOffsetAnimation;\r\n    DoStopReload;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.ToggleEditMode;\r\nbegin\r\n  if FEditMode then\r\n    StopEditMode\r\n  else\r\n    StartEditMode;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetAdaptToStyle(const Value: Boolean);\r\nbegin\r\n  inherited;\r\n  if Assigned(FTreeView) then\r\n    FTreeView.AdaptToStyle := AdaptToStyle;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetBitmapContainer(\r\n  const Value: TTMSFNCBitmapContainer);\r\nbegin\r\n  FTreeView.BitmapContainer := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetCategories(\r\n  const Value: TTMSFNCTableViewCategories);\r\nbegin\r\n  FCategories.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetCategoryAppearance(\r\n  const Value: TTMSFNCTableViewCategoryAppearance);\r\nbegin\r\n  FCategoryAppearance.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetCategoryType(\r\n  const Value: TTMSFNCTableViewCategoryType);\r\nbegin\r\n  if FCategoryType <> Value then\r\n  begin\r\n    FCategoryType := Value;\r\n    UpdateTableView;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetChecked(AItemIndex: Integer;\r\n  const Value: Boolean);\r\nbegin\r\n  if (AItemIndex >= 0) and (AItemIndex <= Items.Count - 1) then\r\n    Items[AItemIndex].Checked := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetCheckedItem(\r\n  AItem: TTMSFNCTableViewItem; const Value: Boolean);\r\nbegin\r\n  if Assigned(AItem) then\r\n    AItem.Checked := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetDefaultItem(const Value: TTMSFNCTableViewItem);\r\nbegin\r\n  FDefaultItem.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if Assigned(FTreeView) then\r\n    TTMSFNCTreeViewOpen(FTreeView).Fill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetFooter(const Value: TTMSFNCTableViewFooter);\r\nbegin\r\n  FFooter.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetFonts(ASetType: TTMSFNCAppearanceGlobalFontType);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  BeginUpdate;\r\n\r\n  GlobalFont.ApplyChange(Footer.Font, ASetType);\r\n  GlobalFont.ApplyChange(Header.Font, ASetType);\r\n\r\n  GlobalFont.ApplyChange(ItemAppearance.Font, ASetType);\r\n  GlobalFont.ApplyChange(ItemAppearance.AccessoryFont, ASetType);\r\n\r\n  GlobalFont.ApplyChange(LookupBar.Font, ASetType);\r\n  GlobalFont.ApplyChange(LookupBar.InActiveFont, ASetType);\r\n\r\n  if ASetType = aftColor then\r\n  begin\r\n    for I := 0 to Items.Count - 1 do\r\n    begin\r\n      Items[I].TextColor := GlobalFont.Color;\r\n      Items[I].AccessoryFontColor := GlobalFont.Color;\r\n      Items[I].SelectedTextColor := GlobalFont.Color;\r\n      Items[I].FSelectedTitleColor := GlobalFont.Color;\r\n    end\r\n  end;\r\n\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetGlobalFont(const Value: TTMSFNCAppearanceGlobalFont);\r\nbegin\r\n  FGlobalFont.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetGroupApperance(\r\n  const Value: TTMSFNCTableViewGroupAppearance);\r\nbegin\r\n  FGroupAppearance.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetHeader(const Value: TTMSFNCTableViewHeader);\r\nbegin\r\n  FHeader.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetInteraction(\r\n  const Value: TTMSFNCTableViewInteraction);\r\nbegin\r\n  FInteraction.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetItemIndex(const Value: Integer);\r\nbegin\r\n  SelectItem(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.SetItems(const Value: TTMSFNCTableViewItems);\r\nbegin\r\n  FItems.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.UnCheckAllItems;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  BeginUpdate;\r\n  for I := 0 to Items.Count - 1 do\r\n    Items[I].Checked := False;\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.UnSelectAllItems;\r\nbegin\r\n  if Assigned(FTreeView) then\r\n    FTreeView.UnSelectAllNodes;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.UpdateActiveDetailControl;\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  if Assigned(FActiveDetailControl) and Assigned(FTreeView) then\r\n  begin\r\n    r := FTreeView.GetContentRect;\r\n    InflateRectEx(r, -1, -1);\r\n    r := RectF(r.Left + FDetailControlOffset, r.Top, r.Right + FDetailControlOffset, r.Bottom);\r\n    FActiveDetailControl.SetBounds(Round(r.Left), Round(R.Top), Round((r.Right - r.Left)), Round((r.Bottom - r.Top)));\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.UpdateControlAfterResize;\r\nbegin\r\n  inherited;\r\n  if Assigned(FTreeView) then\r\n    FTreeView.SetBounds(0, 0, Width, Height);\r\n\r\n  UpdateTableView(False);\r\n  UpdateActiveDetailControl;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.UpdateReloadProgress(AProgress: Single; AAutoStopReload: Boolean = True);\r\nbegin\r\n  if Assigned(FTreeView) then\r\n  begin\r\n    FTreeView.FManualProgressStartAngle := 0;\r\n    FTreeView.FManualProgressSweepAngle := AProgress / 100 * 360;\r\n\r\n    if AAutoStopReload and (AProgress >= 100) then\r\n      StopReload\r\n    else\r\n      FTreeView.Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.UpdateTableView(ADisplayOnly: Boolean = False);\r\nvar\r\n  sel: TTMSFNCTableViewItem;\r\n  cr, hr: TRectF;\r\n  szd: Single;\r\n  szr: Single;\r\n  szt: Single;\r\n  btnh: Single;\r\n  b: Boolean;\r\n  a: TTMSFNCTableViewItemArray;\r\n  sela: TTMSFNCTableViewIntegerArray;\r\n  I: Integer;\r\nbegin\r\n  if (FUpdateCount > 0) or IsDestroying then\r\n    Exit;\r\n\r\n  if Assigned(FTreeView) then\r\n  begin\r\n    if not ADisplayOnly then\r\n      CalculateItems;\r\n\r\n    sel := SelectedItem;\r\n    a := GetSelectedItems;\r\n    SetLength(sela, Length(a));\r\n    for I := 0 to Length(a) - 1 do\r\n    begin\r\n      if Assigned(a[I]) then\r\n        sela[I] := a[I].Index;\r\n    end;\r\n\r\n    if not FDetailControlTimer.Enabled then\r\n    begin\r\n      if FShowDetailControl then\r\n        FDetailControlOffset := 0\r\n      else\r\n      begin\r\n        cr := FTreeView.GetContentRect;\r\n        FDetailControlOffset := cr.Right - cr.Left;\r\n      end;\r\n    end;\r\n\r\n    if ADisplayOnly then\r\n      FTreeView.UpdateTreeViewDisplay\r\n    else\r\n    begin\r\n      FTreeView.BeginUpdate;\r\n      FTreeView.ClearNodeList;\r\n      FTreeView.EndUpdate;\r\n    end;\r\n\r\n    CalculateLookupBar;\r\n    SelectedItem := sel;\r\n    SelectItems(sela);\r\n\r\n    hr := FTreeView.GetColumnsTopRect;    \r\n\r\n    b := False;\r\n    if Assigned(FColumn) then\r\n      b := FColumn.Expanded;\r\n\r\n    if not IsDesignTime and FFilterActive and b then\r\n      FEdit.Parent := Self\r\n    else\r\n      FEdit.Parent := nil;\r\n\r\n    FDoneButton.Visible := FEditMode or FFilterActive and not Assigned(FActiveDetailControl) and b;\r\n    if not IsDesignTime and ((Header.Height > 0) and Header.Visible) then\r\n      FDoneButton.Parent := Self\r\n    else\r\n      FDoneButton.Parent := nil;\r\n\r\n    FDoneButton.Invalidate;\r\n\r\n    FBackButton.Visible := Assigned(FActiveDetailControl) and ((FShowDetailControl and not FDetailControlTimer.Enabled) or not FShowDetailControl) and b;\r\n    if not IsDesignTime and ((Header.Height > 0) and Header.Visible) then\r\n      FBackButton.Parent := Self\r\n    else\r\n      FBackButton.Parent := nil;\r\n\r\n    FBackButton.Invalidate;\r\n\r\n    FEditButton.Visible := not FEditMode and not FFilterActive and Interaction.ShowEditButton and not Assigned(FActiveDetailControl) and b;\r\n    if not IsDesignTime and ((Header.Height > 0) and Header.Visible) then\r\n      FEditButton.Parent := Self\r\n    else\r\n      FEditButton.Parent := nil;\r\n\r\n    FEditButton.Invalidate;\r\n\r\n    FFilterButton.Visible := Interaction.ShowFilterButton and not FFilterActive and not Assigned(FActiveDetailControl) and b;\r\n    if not IsDesignTime and ((Header.Height > 0) and Header.Visible) then\r\n      FFilterButton.Parent := Self\r\n    else\r\n      FFilterButton.Parent := nil;\r\n\r\n    FFilterButton.Invalidate;\r\n\r\n    btnh := hr.Bottom - hr.Top;\r\n    {$IFDEF LCLLIB}\r\n    if btnh < ScalePaintValue(4) then\r\n      btnh := ScalePaintValue(4);\r\n    {$ENDIF}\r\n\r\n    FBackButton.Height := Round(btnh - ScalePaintValue(4));\r\n    FDoneButton.Height := Round(btnh - ScalePaintValue(4));\r\n    FEditButton.Height := Round(btnh - ScalePaintValue(4));\r\n    FFilterButton.Height := Round(btnh - ScalePaintValue(4));\r\n\r\n    CustomizeButtons;\r\n\r\n    szt := 0;\r\n    if Assigned(FColumn) then\r\n    begin\r\n      if FColumn.Filtering.Enabled then\r\n      begin\r\n        szd := FColumn.Filtering.ButtonSize;\r\n        szt := szt + szd + ScalePaintValue(4);\r\n      end;\r\n\r\n      if FColumn.Expandable then\r\n      begin\r\n        szr := FColumn.ExpandingButtonSize;\r\n        szt := szt + szr + ScalePaintValue(6);\r\n      end;\r\n\r\n      if (TTMSFNCTreeViewColumnOpen(FColumn).SortKind <> nskNone) then\r\n      begin\r\n        szr := ScalePaintValue(8);\r\n        szt := szt + szr + ScalePaintValue(6);\r\n      end;\r\n    end;\r\n\r\n    FBackButton.SetBounds(Round(hr.Left + ScalePaintValue(3)), Round(hr.Top + ((hr.Bottom - hr.Top) - FBackButton.Height) / 2), FBackButton.Width, FBackButton.Height);\r\n    if FFilterButton.Visible then\r\n    begin\r\n      FFilterButton.SetBounds(Round(hr.Right - ScalePaintValue(3) - FFilterButton.Width - szt), Round(hr.Top + ((hr.Bottom - hr.Top) - FFilterButton.Height) / 2), FFilterButton.Width, FFilterButton.Height);\r\n      FDoneButton.SetBounds(Round(hr.Right - ScalePaintValue(6) - FDoneButton.Width - FFilterButton.Width - szt), Round(hr.Top + Round(((hr.Bottom - hr.Top) - FDoneButton.Height) / 2)), FDoneButton.Width, FDoneButton.Height);\r\n      FEditButton.SetBounds(Round(hr.Right - ScalePaintValue(6) - FEditButton.Width - FFilterButton.Width - szt), Round(hr.Top + Round(((hr.Bottom - hr.Top) - FEditButton.Height) / 2)), FEditButton.Width, FEditButton.Height);\r\n    end\r\n    else\r\n    begin\r\n      FDoneButton.SetBounds(Round(hr.Right - ScalePaintValue(3) - FDoneButton.Width - szt), Round(hr.Top + ((hr.Bottom - hr.Top) - FDoneButton.Height) / 2), FDoneButton.Width, FDoneButton.Height);\r\n      FEditButton.SetBounds(Round(hr.Right - ScalePaintValue(3) - FEditButton.Width - szt), Round(hr.Top + ((hr.Bottom - hr.Top) - FEditButton.Height) / 2), FEditButton.Width, FEditButton.Height);\r\n    end;\r\n\r\n    if LookupBar.Visible and (CategoryType <> tvctNone) then\r\n    begin\r\n      case LookupBar.Position of\r\n        tvlbpLeft: FEdit.SetBounds(Round(hr.Left + 1 + LookupBar.Width), Round(hr.Bottom), Round((hr.Right - hr.Left) - LookupBar.Width - 2), FEdit.Height);\r\n        tvlbpRight: FEdit.SetBounds(Round(hr.Left + 1), Round(hr.Bottom + 1), Round((hr.Right - hr.Left) - LookupBar.Width - 2), FEdit.Height);\r\n      end;\r\n    end\r\n    else\r\n      FEdit.SetBounds(Round(hr.Left + 1), Round(hr.Bottom), Round((hr.Right - hr.Left) - 2), FEdit.Height);\r\n\r\n    FTreeView.Invalidate;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.XYToAccessoryItem(X,\r\n  Y: Single): TTMSFNCTableViewItem;\r\nvar\r\n  n: TTMSFNCTreeViewVirtualNode;\r\n  r: TRectF;\r\n  it: TTMSFNCTableViewItem;\r\n  h: Single;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n  begin\r\n    n := FTreeView.XYToNode(X, Y);\r\n    if Assigned(n) and (n.Row >= 0) and (n.Row <= Items.Count - 1)  then\r\n    begin\r\n      it := GetItemForNode(n);\r\n      if Assigned(it) and (it.Accessory in Interaction.AccessoryClickDetection) then\r\n      begin\r\n        r := n.ExtraRects[0];\r\n        InflateRectEx(r, 0, -4);\r\n        h := it.AccessoryHeight;\r\n        r := RectF(r.Left, r.Top + ((r.Bottom - r.Top) - h) / 2, r.Right, r.Top + ((r.Bottom - r.Top) - h) / 2 + h);\r\n        if PtInRectEx(r, PointF(X, Y)) then\r\n          Result := it;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.XYToBitmapItem(X, Y: Single): TTMSFNCTableViewItem;\r\nvar\r\n  n: TTMSFNCTreeViewVirtualNode;\r\n  r: TRectF;\r\n  it: TTMSFNCTableViewItem;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n  begin\r\n    n := FTreeView.XYToNode(X, Y);\r\n    if Assigned(n) and (n.Row >= 0) and (n.Row <= Items.Count - 1)  then\r\n    begin\r\n      it := GetItemForNode(n);\r\n      if Assigned(it) then\r\n      begin\r\n        r := n.BitmapRects[0];\r\n        if PtInRectEx(r, PointF(X, Y)) then\r\n          Result := it;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.XYToItem(X, Y: Single): TTMSFNCTableViewItem;\r\nvar\r\n  n: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTreeView) then\r\n  begin\r\n    n := FTreeView.XYToNode(X, Y);\r\n    if Assigned(n) and (n.Row >= 0) and (n.Row <= FDisplayList.Count - 1) then\r\n      Result := GetItemForNode(n);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.XYToItemIndex(X, Y: Single): Integer;\r\nvar\r\n  it: TTMSFNCTableViewItem;\r\nbegin\r\n  Result := - 1;\r\n  it := XYToItem(X, Y);\r\n  if Assigned(it) then\r\n    Result := it.Index;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.XYToMoreOption(X,\r\n  Y: Single): TTMSFNCTableViewMoreOption;\r\nvar\r\n  sz: Single;\r\n  w: Single;\r\n  r, rt: TRectF;\r\n  n: TTMSFNCTreeViewVirtualNode;\r\n  I: Integer;\r\n  mo: TTMSFNCTableViewMoreOption;\r\nbegin\r\n  Result := nil;\r\n\r\n  if not Assigned(FTreeView) then\r\n    Exit;\r\n\r\n  n := FTreeView.XYToNode(X, Y, FTreeView.FMoreOffset);\r\n\r\n  if not Assigned(n) or (GetItemForNode(n) <> FTreeView.FMoreOffsetItem) then\r\n    Exit;\r\n\r\n  if MoreOptions.Count > 0 then\r\n  begin\r\n    rt := n.ExtraRects[0];\r\n    sz := FTreeView.FMoreOffset;\r\n    w := sz / MoreOptions.Count;\r\n\r\n    for I := 0 to MoreOptions.Count - 1 do\r\n    begin\r\n      mo := MoreOptions[I];\r\n      r := RectF(rt.Right + w * I, rt.Top, rt.Right + w * (I + 1), rt.Bottom);\r\n      if PtInRectEx(r, PointF(X, Y)) then\r\n      begin\r\n        Result := mo;\r\n        Break;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{$IFDEF FNCLIB}\r\n{ TTMSFNCTreeView picker implementation }\r\n\r\nprocedure TTMSFNCCustomTableView.PickerApplyFilter(ACondition: string; ACaseSensitive: Boolean);\r\nbegin\r\n  ApplyFilter;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.PickerGetContent: String;\r\nbegin\r\n  Result := '';\r\n\r\n  if ItemIndex >= 0 then\r\n    Result := Items[ItemIndex].Text;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.PickerGetFirstSelectableItem: Integer;\r\nbegin\r\n  if Items.Count > 0 then\r\n    Result := 0\r\n  else\r\n    Result := -1;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.PickerGetItemCount: Integer;\r\nbegin\r\n  Result := Items.Count;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.PickerGetItemHeight: Single;\r\nbegin\r\n  Result := ItemAppearance.FixedHeight;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.PickerGetItemWidth: Single;\r\nbegin\r\n  Result := Width;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.PickerGetLastSelectableItem: Integer;\r\nbegin\r\n  if Items.Count > 0 then\r\n    Result := Items.Count - 1\r\n  else\r\n    Result := -1;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.PickerGetNextSelectableItem(AItemIndex: Integer): Integer;\r\nbegin\r\n  if AItemIndex < Items.Count - 1 then\r\n    Result := AItemIndex + 1\r\n  else\r\n    Result := AItemIndex;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.PickerGetPreviousSelectableItem(AItemIndex: Integer): Integer;\r\nbegin\r\n  if AItemIndex > 0 then\r\n    Result := AItemIndex - 1\r\n  else\r\n    Result := AItemIndex;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.PickerGetSelectedItem: Integer;\r\nbegin\r\n  Result := ItemIndex;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.PickerGetVisibleItemCount: Integer;\r\nbegin\r\n  if Assigned(FTreeView) then\r\n    Result := TTMSFNCTreeViewOpen(FTreeView).VisibleNodes.Count\r\n  else\r\n    Result := 0;\r\nend;\r\n\r\nfunction TTMSFNCCustomTableView.PickerLookupItem(ALookupString: String; ACaseSensitive: Boolean): TTMSFNCControlPickerFilterItem;\r\nvar\r\n  it: TTMSFNCTableViewItem;\r\nbegin\r\n  it := LookupItem(ALookupString, ACaseSensitive);\r\n\r\n  Result.ItemIndex := it.Index;\r\n  Result.ItemText := it.Text;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.PickerResetFilter;\r\nbegin\r\n  RemoveFilters;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.PickerSelectItem(AItemIndex: Integer);\r\nbegin\r\n  if (AItemIndex >= 0) and (AItemIndex <= Items.Count - 1) then\r\n    ItemIndex := AItemIndex;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.PickerSetItemHeight(AValue: Single);\r\nbegin\r\n  ItemAppearance.FixedHeight := AValue;\r\nend;\r\n\r\nprocedure TTMSFNCCustomTableView.PickerSetItemWidth(AValue: Single);\r\nbegin\r\n  //\r\nend;\r\n{$ENDIF}\r\n\r\n{ TTMSFNCTableViewItems }\r\n\r\nfunction TTMSFNCTableViewItems.Add: TTMSFNCTableViewItem;\r\nbegin\r\n  Result := TTMSFNCTableViewItem(inherited Add);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItems.Clear;\r\nvar\r\n  l: TTMSFNCCustomTableView;\r\nbegin\r\n  l := TableView;\r\n  if Assigned(l) then\r\n    l.BeginUpdate;\r\n  inherited Clear;\r\n  if Assigned(l) then\r\n    l.EndUpdate;\r\nend;\r\n\r\nfunction TTMSFNCTableViewItems.Compare(AItem1, AItem2: TTMSFNCTableViewItem; ACaseSensitive: Boolean; ASortingMode: TTMSFNCTableViewItemsSortMode): Integer;\r\nvar\r\n  cIdx1, cIdx2: integer;\r\n  itemcap1, itemcap2: String;\r\n  l: TTMSFNCCustomTableView;\r\nbegin\r\n  Result := 0;\r\n\r\n  l := FTableView;\r\n  if Assigned(l) then\r\n  begin\r\n    case l.CategoryType of\r\n      tvctNone, tvctAlphaBetic, tvctAlphaNumericFirst, tvctAlphaNumericLast:\r\n      begin\r\n        if not ACaseSensitive then\r\n          Result := AnsiCompareStr(UpperCase(AItem1.StrippedHTMLText), UpperCase(AItem2.StrippedHTMLText))\r\n        else\r\n          Result := AnsiCompareStr(AItem1.StrippedHTMLText, AItem2.StrippedHTMLText)\r\n      end;\r\n      tvctCustom:\r\n      begin\r\n        cIdx1 := l.Categories.ItemIndexById(AItem1.CategoryID);\r\n        cIdx2 := l.Categories.ItemIndexById(AItem2.CategoryID);\r\n\r\n        if cIdx1 < cIdx2 then\r\n          result :=  -1\r\n        else if cIdx1 > cIdx2 then\r\n          result := 1\r\n        else\r\n        begin\r\n          itemcap1 := AItem1.StrippedHTMLText;\r\n          itemcap2 := AItem2.StrippedHTMLText;\r\n          if not ACaseSensitive then\r\n          begin\r\n            itemcap1 := UpperCase(itemcap1);\r\n            itemcap2 := UpperCase(itemcap2);\r\n          end;\r\n\r\n          if itemcap1 < itemcap2 then\r\n            result :=  -1\r\n          else if itemcap1 > itemcap2 then\r\n            result := 1\r\n          else\r\n            result := 0\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    case ASortingMode of\r\n      tvismDescending: Result := Result * -1;\r\n    end;\r\n\r\n    l.DoItemCompare(AItem1, AItem2, Result);\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCTableViewItems.Create(ATableView: TTMSFNCCustomTableView);\r\nbegin\r\n  inherited Create(ATableView, GetItemClass);\r\n  FTableView := ATableView;\r\nend;\r\n\r\nfunction TTMSFNCTableViewItems.GetItem(Index: Integer): TTMSFNCTableViewItem;\r\nbegin\r\n  Result := TTMSFNCTableViewItem(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCTableViewItems.GetItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCTableViewItem;\r\nend;\r\n\r\nfunction TTMSFNCTableViewItems.Insert(Index: Integer): TTMSFNCTableViewItem;\r\nbegin\r\n  Result := TTMSFNCTableViewItem(inherited Insert(Index));\r\nend;\r\n\r\nfunction TTMSFNCTableViewItems.TableView: TTMSFNCCustomTableView;\r\nbegin\r\n  Result := FTableView;\r\nend;\r\n\r\ntype\r\n  {$HINTS OFF}\r\n  TShadowedCollection = class(TPersistent)\r\n  private\r\n    {%H-}FItemClass: TCollectionItemClass;\r\n    {$IFDEF LCLWEBLIB}\r\n    FItems: TFPList;\r\n    {$ENDIF}\r\n    {$IFNDEF LCLWEBLIB}\r\n    FItems: TList<TCollectionItem>;\r\n    {$ENDIF}\r\n  end;\r\n  {$HINTS ON}\r\n\r\nprocedure TTMSFNCTableViewItems.QuickSort(L, R: Integer; ACaseSensitive: Boolean; ASortingMode: TTMSFNCTableViewItemsSortMode);\r\nvar\r\n  I, J, p: Integer;\r\n  {$IFDEF LCLWEBLIB}\r\n  SortList: TFPList;\r\n\r\n  procedure ExchangeItems(Index1, Index2: Integer);\r\n  var\r\n    {$IFDEF WEBLIB}\r\n    Save: JSValue;\r\n    {$ENDIF}\r\n    {$IFNDEF WEBLIB}\r\n    Save: Pointer;\r\n    {$ENDIF}\r\n  begin\r\n    Save := SortList.Items[Index1];\r\n    SortList.Items[Index1] := SortList.Items[Index2];\r\n    SortList.Items[Index2] := Save;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  SortList: TList<TCollectionItem>;\r\n\r\n  procedure ExchangeItems(Index1, Index2: Integer);\r\n  var\r\n    Save: TCollectionItem;\r\n  begin\r\n    Save := SortList[Index1];\r\n    SortList[Index1] := SortList[Index2];\r\n    SortList[Index2] := Save;\r\n    Save.Index := Index2;\r\n  end;\r\n  {$ENDIF}\r\nbegin\r\n  //This cast allows us to get at the private elements in the base class\r\n  {$IFNDEF WEBLIB}\r\n  SortList := {%H-}TShadowedCollection(Self).FItems;\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  SortList := Self.FPList;\r\n  {$ENDIF}\r\n\r\n  repeat\r\n    I := L;\r\n    J := R;\r\n    P := (L + R) shr 1;\r\n    repeat\r\n      while Compare(Items[I], Items[P], ACaseSensitive, ASortingMode) < 0 do\r\n        Inc(I);\r\n      while Compare(Items[J], Items[P], ACaseSensitive, ASortingMode) > 0 do\r\n        Dec(J);\r\n      if I <= J then\r\n      begin\r\n        ExchangeItems(I, J);\r\n        if P = I then\r\n          P := J\r\n        else if P = J then\r\n          P := I;\r\n        Inc(I);\r\n        Dec(J);\r\n      end;\r\n    until I > J;\r\n    if L < J then\r\n      QuickSort(L, J, ACaseSensitive, ASortingMode);\r\n    L := I;\r\n  until I >= R;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItems.SetItem(Index: Integer; const Value: TTMSFNCTableViewItem);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItems.Sort(ACaseSensitive: Boolean; ASortingMode: TTMSFNCTableViewItemsSortMode);\r\nvar\r\n  l: TTMSFNCCustomTableView;\r\nbegin\r\n  l := TableView;\r\n  if Assigned(l) then\r\n  begin\r\n    l.BeginUpdate;\r\n    BeginUpdate;\r\n    if Count > 1 then\r\n      QuickSort(0, Pred(Count), ACaseSensitive, ASortingMode);\r\n    EndUpdate;\r\n    l.EndUpdate;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCTableViewItem }\r\n\r\nprocedure TTMSFNCTableViewItem.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCTableViewItem then\r\n  begin\r\n    FTag := (Source as TTMSFNCTableViewItem).Tag;\r\n    FHTMLTemplateItems.Assign((Source as TTMSFNCTableViewItem).HTMLTemplateItems);\r\n    FText := (Source as TTMSFNCTableViewItem).Text;\r\n    FTrimming := (Source as TTMSFNCTableViewItem).Trimming;\r\n    FWordWrapping := (Source as TTMSFNCTableViewItem).WordWrapping;\r\n    FHorizontalTextAlign := (Source as TTMSFNCTableViewItem).HorizontalTextAlign;\r\n    FVerticalTextAlign := (Source as TTMSFNCTableViewItem).VerticalTextAlign;\r\n    FTextColor := (Source as TTMSFNCTableViewItem).TextColor;\r\n    FSelectedTextColor := (Source as TTMSFNCTableViewItem).SelectedTextColor;\r\n    FDisabledTextColor := (Source as TTMSFNCTableViewItem).DisabledTextColor;\r\n    FTitle := (Source as TTMSFNCTableViewItem).Title;\r\n    FTitleTrimming := (Source as TTMSFNCTableViewItem).TitleTrimming;\r\n    FTitleWordWrapping := (Source as TTMSFNCTableViewItem).TitleWordWrapping;\r\n    FTitleHorizontalTextAlign := (Source as TTMSFNCTableViewItem).TitleHorizontalTextAlign;\r\n    FTitleVerticalTextAlign := (Source as TTMSFNCTableViewItem).TitleVerticalTextAlign;\r\n    FTitleColor := (Source as TTMSFNCTableViewItem).TitleColor;\r\n    FSelectedTitleColor := (Source as TTMSFNCTableViewItem).SelectedTitleColor;\r\n    FDisabledTitleColor := (Source as TTMSFNCTableViewItem).DisabledTitleColor;\r\n    FEnabled := (Source as TTMSFNCTableViewItem).Enabled;\r\n    FAccessory := (Source as TTMSFNCTableViewItem).Accessory;\r\n    FVisible := (Source as TTMSFNCTableViewItem).Visible;\r\n    FBitmapName := (Source as TTMSFNCTableViewItem).BitmapName;\r\n    FBitmap.Assign((Source as TTMSFNCTableViewItem).Bitmap);\r\n    FHeight := (Source as TTMSFNCTableViewItem).Height;\r\n    FCategoryID := (Source as TTMSFNCTableViewItem).CategoryID;\r\n    FGroupIndex := (Source as TTMSFNCTableViewItem).GroupIndex;\r\n    FBadgeAlign := (Source as TTMSFNCTableViewItem).BadgeAlign;\r\n    FAccessoryWidth := (Source as TTMSFNCTableViewItem).AccessoryWidth;\r\n    FAccessoryHeight := (Source as TTMSFNCTableViewItem).AccessoryHeight;\r\n    FAccessoryProgress := (Source as TTMSFNCTableViewItem).AccessoryProgress;\r\n    FAccessoryText := (Source as TTMSFNCTableViewItem).AccessoryText;\r\n    FChecked := (Source as TTMSFNCTableViewItem).Checked;\r\n    FCheckType := (Source as TTMSFNCTableViewItem).CheckType;\r\n    FAccessoryFontColor := (Source as TTMSFNCTableViewItem).AccessoryFontColor;\r\n    FAccessoryBorderColor := (Source as TTMSFNCTableViewItem).AccessoryBorderColor;\r\n    FAccessoryColor := (Source as TTMSFNCTableViewItem).AccessoryColor;\r\n    FEnableMoreOptions := (Source as TTMSFNCTableViewItem).EnableMoreOptions;\r\n    AssignData(Source);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.AssignData(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCTableViewItem then\r\n  begin\r\n    FDataString := (Source as TTMSFNCTableViewItem).DataString;\r\n    FDataBoolean := (Source as TTMSFNCTableViewItem).DataBoolean;\r\n    FDataObject := (Source as TTMSFNCTableViewItem).DataObject;\r\n    FDataInteger := (Source as TTMSFNCTableViewItem).DataInteger;\r\n    FDataPointer := (Source as TTMSFNCTableViewItem).DataPointer;\r\n    FDBKey := (Source as TTMSFNCTableViewItem).DBKey;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.BitmapChanged(Sender: TObject);\r\nbegin\r\n  UpdateItem;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.Changed(Sender: TObject);\r\nbegin\r\n  UpdateItem;\r\nend;\r\n\r\nconstructor TTMSFNCTableViewItem.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(Collection) then\r\n    FTableView := (Collection as TTMSFNCTableViewItems).TableView;\r\n\r\n  FTextColor := gcBlack;\r\n  FEnableMoreOptions := True;\r\n  FTitleExpanded := True;\r\n  FChecked := False;\r\n  FCheckType := tvictNone;\r\n  FCategoryID := -1;\r\n  FGroupIndex := 0;\r\n  FBadgeAlign := gtaCenter;\r\n  FAccessoryFontColor := gcNull;\r\n  FAccessoryColor := gcNull;\r\n  FAccessoryBorderColor := gcNull;\r\n  FHeight := -1;\r\n  FEnabled := True;\r\n  FAccessory := tviaNone;\r\n  FAccessoryWidth := 24;\r\n  FAccessoryHeight := 24;\r\n  FAccessoryProgress := 0;\r\n  if Assigned(FTableView) and FTableView.IsDesignTime then\r\n    FAccessoryText := 'Button';\r\n  FVisible := True;\r\n  FHTMLTemplateItems := TStringList.Create;\r\n  FHTMLTemplateItems.OnChange := @TemplateItemsChanged;\r\n  FTitleColor := gcBlack;\r\n  FSelectedTextColor := gcBlack;\r\n  FDisabledTextColor := gcSilver;\r\n  FWordWrapping := true;\r\n  FHorizontalTextAlign := gtaLeading;\r\n  FVerticalTextAlign := gtaCenter;\r\n  FTrimming := gttNone;\r\n  FSelectedTitleColor := gcBlack;\r\n  FDisabledTitleColor := gcSilver;\r\n  FTitleWordWrapping := true;\r\n  FTitleHorizontalTextAlign := gtaLeading;\r\n  FTitleVerticalTextAlign := gtaCenter;\r\n  FTitleTrimming := gttNone;\r\n  FBitmap := TTMSFNCBitmap.Create;\r\n  FBitmap.OnChange := @BitmapChanged;\r\n  if Assigned(FTableView) then\r\n    Self.Assign(FTableView.DefaultItem);\r\n  UpdateItem;\r\nend;\r\n\r\ndestructor TTMSFNCTableViewItem.Destroy;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  FBitmap.Free;\r\n  FHTMLTemplateItems.Free;\r\n  if Assigned(FTableView) and Assigned(FTableView.FDisplayList) then\r\n  begin\r\n    for I := FTableView.FDisplayList.Count - 1 downto 0 do\r\n    begin\r\n      if FTableView.FDisplayList[I].Item = Self then\r\n      begin\r\n        FTableView.FDisplayList.Delete(I);\r\n        Break;\r\n      end;\r\n    end;\r\n  end;\r\n  inherited;\r\n  UpdateItem;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetHeight(const Value: Double);\r\nbegin\r\n  if FHeight <> Value then\r\n  begin\r\n    FHeight := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetHTMLTemplateItems(const Value: TStringList);\r\nbegin\r\n  if FHTMLTemplateItems <> Value then\r\n  begin\r\n    FHTMLTemplateItems.Assign(Value);\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTableViewItem.GetBitmapContainer: TTMSFNCBitmapContainer;\r\nvar\r\n  l: TTMSFNCCustomTableView;\r\nbegin\r\n  Result := nil;\r\n  l := TableView;\r\n  if Assigned(l) then\r\n    Result := l.BitmapContainer;\r\nend;\r\n\r\nfunction TTMSFNCTableViewItem.GetTableView: TTMSFNCCustomTableView;\r\nbegin\r\n  Result := FTableView;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.TemplateItemsChanged(Sender: TObject);\r\nbegin\r\n  UpdateItem;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.LoadFromString(AString: String);\r\nvar\r\n  k: Integer;\r\n  a: TStringList;\r\n  s: TStringList;\r\n  y: Integer;\r\n  st: string;\r\n  ps: Integer;\r\n  subst: string;\r\nbegin\r\n  a := TStringList.Create;\r\n  try\r\n    st := AString;\r\n    while st <> '' do\r\n    begin\r\n      ps := Pos('{0}', st);\r\n      if ps = 0 then\r\n      begin\r\n        a.Add(st);\r\n        Break;\r\n      end;\r\n      subst := Copy(st, 1, ps - 1);\r\n      a.Add(subst);\r\n      Delete(st, 1, ps - 1 + Length('{0}'));\r\n    end;\r\n\r\n    for K := 0 to a.Count - 1 do\r\n    begin\r\n      if a[K] <> '' then\r\n      begin\r\n        if K = 0 then\r\n          Text := a[K]\r\n        else if K = 1 then\r\n        begin\r\n          s := TStringList.Create;\r\n          try\r\n            TTMSFNCUtils.Split(';', a[K], s);\r\n            for y := 0 to s.Count - 1 do\r\n            begin\r\n              if s[y] <> '' then\r\n              begin\r\n                if y = 0 then\r\n                  Checked := StrToBool(s[y])\r\n                else if y = 1 then\r\n                  BitmapName := s[y]\r\n                else if y = 2 then\r\n                  TTMSFNCUtils.LoadBitmapFromHexStr(s[y], Bitmap);\r\n              end;\r\n            end;\r\n          finally\r\n            s.Free;\r\n          end;\r\n        end\r\n        else if K = 2 then\r\n          Enabled := StrToBool(a[K]);\r\n      end;\r\n    end;\r\n  finally\r\n    a.Free;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTableViewItem.GetStrippedHTMLText: String;\r\nbegin\r\n  Result := TTMSFNCUtils.HTMLStrip(GetText);\r\nend;\r\n\r\nfunction TTMSFNCTableViewItem.GetText: string;\r\nvar\r\n  ht: string;\r\n  s: string;\r\nbegin\r\n  s := '';\r\n  if Assigned(FTableView) then\r\n  begin\r\n    ht := FTableView.ItemAppearance.HTMLTemplate;\r\n    FTableView.DoGetHTMLTemplate(Self, ht);\r\n    if ht = '' then\r\n      s := Text\r\n    else\r\n      s := FTableView.HTMLReplace(ht, Self);\r\n  end;\r\n\r\n  Result := s;\r\nend;\r\n\r\nfunction TTMSFNCTableViewItem.GetTitle: string;\r\nbegin\r\n  Result := Title;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.HideDetailControl;\r\nbegin\r\n  if Assigned(FTableView) then\r\n    FTableView.HideDetailControl;\r\nend;\r\n\r\nfunction TTMSFNCTableViewItem.IsAccessoryHeightStored: Boolean;\r\nbegin\r\n  Result := AccessoryHeight <> 24;\r\nend;\r\n\r\nfunction TTMSFNCTableViewItem.IsAccessoryProgressStored: Boolean;\r\nbegin\r\n  Result := AccessoryProgress <> 0;\r\nend;\r\n\r\nfunction TTMSFNCTableViewItem.IsAccessoryWidthStored: Boolean;\r\nbegin\r\n  Result := AccessoryWidth <> 24;\r\nend;\r\n\r\nfunction TTMSFNCTableViewItem.IsHeightStored: Boolean;\r\nbegin\r\n  Result := Height <> -1;\r\nend;\r\n\r\nfunction TTMSFNCTableViewItem.IsSelected: Boolean;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  Result := False;\r\n  if Assigned(FTableView) then\r\n  begin\r\n    for I := 0 to FTableView.SelectedItemCount - 1 do\r\n    begin\r\n      if FTableView.SelectedItems[I] = Self then\r\n      begin\r\n        Result := True;\r\n        Break;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTableViewItem.SaveToString(ATextOnly: Boolean): String;\r\nvar\r\n  s: String;\r\nbegin\r\n  if not Assigned(FTableView) then\r\n    Exit;\r\n\r\n  Result := '';\r\n  Result := Result + Text;\r\n\r\n  if not ATextOnly then\r\n    Result := Result + '{0}';\r\n\r\n  if not ATextOnly then\r\n  begin\r\n    Result := Result + BoolToStr(Checked) + ';';\r\n    Result := Result + BitmapName + ';';\r\n    Result := Result + TTMSFNCUtils.SaveBitmapToHexStr(Bitmap) + ';';\r\n    Result := Result + s;\r\n  end;\r\n\r\n  if not ATextOnly then\r\n  begin\r\n    Result := Result + '{0}';\r\n    Result := Result + BoolToStr(Enabled);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetCategoryID(const Value: integer);\r\nbegin\r\n  if FCategoryID <> Value then\r\n  begin\r\n    FCategoryID := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetChecked(const Value: Boolean);\r\nvar\r\n  l: TTMSFNCCustomTableView;\r\n  n: TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  if FChecked <> Value then\r\n  begin\r\n    FChecked := Value;\r\n    l := TableView;\r\n    if Assigned(l) then\r\n    begin\r\n      n := TTMSFNCCustomTableViewOpen(l).GetNodeForItemIndex(Index);\r\n      if Assigned(n) and (n.CheckStates[0] <> FChecked) then\r\n      begin\r\n        if FChecked then\r\n          TTMSFNCCustomTableViewOpen(l).TreeView.CheckVirtualNode(n, 0)\r\n        else\r\n          TTMSFNCCustomTableViewOpen(l).TreeView.UnCheckVirtualNode(n, 0);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetCheckType(\r\n  const Value: TTMSFNCTableViewItemCheckType);\r\nbegin\r\n  if FCheckType <> Value then\r\n  begin\r\n    FCheckType := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetTitleExpanded(const Value: Boolean);\r\nbegin\r\n  if FTitleExpanded <> Value then\r\n  begin\r\n    FTitleExpanded := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetAccessory(\r\n  const Value: TTMSFNCTableViewItemAccessory);\r\nbegin\r\n  if FAccessory <> Value then\r\n  begin\r\n    FAccessory := Value;\r\n    case FAccessory of\r\n      tviaDetail:\r\n      begin\r\n        AccessoryWidth := 32;\r\n        AccessoryHeight := 24;\r\n      end;\r\n      tviaProgress:\r\n      begin\r\n        AccessoryWidth := 75;\r\n        AccessoryHeight := 20;\r\n      end;\r\n      tviaButton:\r\n      begin\r\n        AccessoryWidth := 75;\r\n        AccessoryHeight := 20;\r\n      end;\r\n      tviaBadge:\r\n      begin\r\n        AccessoryWidth := 32;\r\n        AccessoryHeight := 24;\r\n      end;\r\n      tviaCustom: ;\r\n    end;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetAccessoryBorderColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FAccessoryBorderColor <> Value then\r\n  begin\r\n    FAccessoryBorderColor := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetAccessoryColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FAccessoryColor <> Value then\r\n  begin\r\n    FAccessoryColor := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetAccessoryFontColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FAccessoryFontColor <> Value then\r\n  begin\r\n    FAccessoryFontColor := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetAccessoryHeight(const Value: Single);\r\nbegin\r\n  if FAccessoryHeight <> Value then\r\n  begin\r\n    FAccessoryHeight := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetAccessoryProgress(const Value: Single);\r\nbegin\r\n  if FAccessoryProgress <> Value then\r\n  begin\r\n    FAccessoryProgress := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetAccessoryText(const Value: String);\r\nbegin\r\n  if FAccessoryText <> Value then\r\n  begin\r\n    FAccessoryText := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetAccessoryWidth(const Value: Single);\r\nbegin\r\n  if FAccessoryWidth <> Value then\r\n  begin\r\n    FAccessoryWidth := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetBadgeAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FBadgeAlign <> Value then\r\n  begin\r\n    FBadgeAlign := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetBitmap(const Value: TTMSFNCBitmap);\r\nbegin\r\n  if FBitmap <> Value then\r\n  begin\r\n    FBitmap.Assign(Value);\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetBitmapName(const Value: string);\r\nbegin\r\n  if FBitmapName <> Value then\r\n  begin\r\n    FBitmapName := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetDetailControl(const Value: TControl);\r\nbegin\r\n  if Value = nil then\r\n  begin\r\n    if Assigned(FDetailControl) then\r\n      FDetailControl.Visible := True;\r\n  end;\r\n\r\n  FDetailControl := Value;\r\n  if Assigned(FDetailControl) then\r\n    FDetailControl.Visible := False;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetDisabledTextColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FDisabledTextColor <> Value then\r\n  begin\r\n    FDisabledTextColor := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetDisabledTitleColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FDisabledTitleColor <> Value then\r\n  begin\r\n    FDisabledTitleColor := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetEnabled(const Value: Boolean);\r\nbegin\r\n  if FEnabled <> Value then\r\n  begin\r\n    FEnabled := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetGroupIndex(const Value: Integer);\r\nbegin\r\n  if FGroupIndex <> Value then\r\n  begin\r\n    FGroupIndex := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetSelectedTextColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FSelectedTextColor <> Value then\r\n  begin\r\n    FSelectedTextColor := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetSelectedTitleColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FSelectedTitleColor <> Value then\r\n  begin\r\n    FSelectedTitleColor := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetText(const Value: String);\r\nbegin\r\n  if FText <> Value then\r\n  begin\r\n    FText := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetHorizontalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FHorizontalTextAlign <> Value then\r\n  begin\r\n    FHorizontalTextAlign := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetTextColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FTextColor <> Value then\r\n  begin\r\n    FTextColor := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetTitle(const Value: String);\r\nbegin\r\n  if FTitle <> Value then\r\n  begin\r\n    FTitle := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetTitleColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FTitleColor <> Value then\r\n  begin\r\n    FTitleColor := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetTitleHorizontalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FTitleHorizontalTextAlign <> Value then\r\n  begin\r\n    FTitleHorizontalTextAlign := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetTitleTrimming(const Value: TTMSFNCGraphicsTextTrimming);\r\nbegin\r\n  if FTitleTrimming <> Value then\r\n  begin\r\n    FTitleTrimming := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetTitleVerticalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FTitleVerticalTextAlign <> Value then\r\n  begin\r\n    FTitleVerticalTextAlign := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetTitleWordWrapping(const Value: Boolean);\r\nbegin\r\n  if FTitleWordWrapping <> Value then\r\n  begin\r\n    FTitleWordWrapping := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetTrimming(const Value: TTMSFNCGraphicsTextTrimming);\r\nbegin\r\n  if FTrimming <> Value then\r\n  begin\r\n    FTrimming := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetVerticalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FVerticalTextAlign <> Value then\r\n  begin\r\n    FVerticalTextAlign := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetVisible(const Value: Boolean);\r\nbegin\r\n  if FVisible <> Value then\r\n  begin\r\n    FVisible := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.SetWordWrapping(const Value: Boolean);\r\nbegin\r\n  if FWordWrapping <> Value then\r\n  begin\r\n    FWordWrapping := Value;\r\n    UpdateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.ShowDetailControl;\r\nbegin\r\n  if Assigned(FTableView) then\r\n    FTableView.ShowDetailControl(Index);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItem.UpdateItem;\r\nvar\r\n  l: TTMSFNCCustomTableView;\r\nbegin\r\n  l := TableView;\r\n  if Assigned(l) then\r\n    l.UpdateTableView;\r\nend;\r\n\r\n{ TTMSFNCTableViewItemAppearance }\r\n\r\nprocedure TTMSFNCTableViewItemAppearance.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCTableViewItemAppearance then\r\n  begin\r\n    Font.Assign((Source as TTMSFNCTableViewItemAppearance).Font);\r\n    Fill.Assign((Source as TTMSFNCTableViewItemAppearance).Fill);\r\n    Stroke.Assign((Source as TTMSFNCTableViewItemAppearance).Stroke);\r\n    SelectedFill.Assign((Source as TTMSFNCTableViewItemAppearance).SelectedFill);\r\n    SelectedStroke.Assign((Source as TTMSFNCTableViewItemAppearance).SelectedStroke);\r\n    DisabledFill.Assign((Source as TTMSFNCTableViewItemAppearance).DisabledFill);\r\n    DisabledStroke.Assign((Source as TTMSFNCTableViewItemAppearance).DisabledStroke);\r\n    HeightMode := (Source as TTMSFNCTableViewItemAppearance).HeightMode;\r\n    FixedHeight := (Source as TTMSFNCTableViewItemAppearance).FixedHeight;\r\n    FHTMLTemplate := (Source as TTMSFNCTableViewItemAppearance).HTMLTemplate;\r\n    FAccessoryDetailBitmaps.Assign((Source as TTMSFNCTableViewItemAppearance).AccessoryDetailBitmaps);\r\n    FAccessoryFont.Assign((Source as TTMSFNCTableViewItemAppearance).AccessoryFont);\r\n    FAccessoryStroke.Assign((Source as TTMSFNCTableViewItemAppearance).AccessoryStroke);\r\n    FAccessoryFill.Assign((Source as TTMSFNCTableViewItemAppearance).AccessoryFill);\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCTableViewItemAppearance.Create(ATableView: TTMSFNCCustomTableView);\r\nbegin\r\n  FTableView := ATableView;\r\n\r\n  FAccessoryFill := TTMSFNCGraphicsFill.Create(gfkSolid, gcYellowgreen);\r\n  FAccessoryFill.OnChanged := @FillChanged;\r\n  FAccessoryStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcBlack);\r\n  FAccessoryStroke.OnChanged := @StrokeChanged;\r\n  FAccessoryFont := TTMSFNCGraphicsFont.Create;\r\n  if Assigned(FTableView) and FTableView.IsDesignTime then\r\n  begin\r\n    FAccessoryFont.Color := gcDarkred;\r\n    FAccessoryFont.Style := [TFontStyle.fsBold];\r\n  end;\r\n  FAccessoryFont.OnChanged := @FontChanged;\r\n\r\n  FAccessoryDetailBitmaps := TTMSFNCScaledBitmaps.Create(Self);\r\n  FAccessoryDetailBitmaps.OnChange := @DoAccessoryDetailBitmapsChanged;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) and FTableView.IsDesignTime then\r\n  begin\r\n    FTableView.FTreeView.NodesAppearance.DisabledFill.Kind := gfkNone;\r\n    FTableView.FTreeView.NodesAppearance.DisabledStroke.Kind := gskNone;\r\n    FTableView.FTreeView.NodesAppearance.SelectedStroke.Assign(FTableView.FTreeView.NodesAppearance.SelectedFill);\r\n  end;\r\n  HeightMode := tvhmVariable;\r\n  FHeight := -1;\r\nend;\r\n\r\ndestructor TTMSFNCTableViewItemAppearance.Destroy;\r\nbegin\r\n  FAccessoryFill.Free;\r\n  FAccessoryStroke.Free;\r\n  FAccessoryFont.Free;\r\n  FAccessoryDetailBitmaps.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItemAppearance.DoAccessoryDetailBitmapsChanged(Sender: TObject);\r\nbegin\r\n  if Assigned(FTableView) then\r\n    FTableView.UpdateTableView;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItemAppearance.FontChanged(Sender: TObject);\r\nbegin\r\n  if Assigned(FTableView) then\r\n    FTableView.UpdateTableView;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItemAppearance.StrokeChanged(Sender: TObject);\r\nbegin\r\n  if Assigned(FTableView) then\r\n    FTableView.UpdateTableView;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItemAppearance.FillChanged(Sender: TObject);\r\nbegin\r\n  if Assigned(FTableView) then\r\n    FTableView.UpdateTableView;\r\nend;\r\n\r\nfunction TTMSFNCTableViewItemAppearance.GetDisabledFill: TTMSFNCGraphicsFill;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    Result := FTableView.FTreeView.NodesAppearance.DisabledFill;\r\nend;\r\n\r\nfunction TTMSFNCTableViewItemAppearance.GetDisabledStroke: TTMSFNCGraphicsStroke;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    Result := FTableView.FTreeView.NodesAppearance.DisabledStroke;\r\nend;\r\n\r\nfunction TTMSFNCTableViewItemAppearance.GetFill: TTMSFNCGraphicsFill;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    Result := FTableView.FTreeView.NodesAppearance.Fill;\r\nend;\r\n\r\nfunction TTMSFNCTableViewItemAppearance.GetFixedHeight: Double;\r\nbegin\r\n  Result := 0;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    Result := FTableView.FTreeView.NodesAppearance.FixedHeight;\r\nend;\r\n\r\nfunction TTMSFNCTableViewItemAppearance.GetFont: TTMSFNCGraphicsFont;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    Result := FTableView.FTreeView.NodesAppearance.Font;\r\nend;\r\n\r\nfunction TTMSFNCTableViewItemAppearance.GetHeightMode: TTMSFNCTableViewItemHeightMode;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  Result := tvhmVariable;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n  begin\r\n    i := Integer(FTableView.FTreeView.NodesAppearance.HeightMode);\r\n    Result := TTMSFNCTableViewItemHeightMode(i);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTableViewItemAppearance.GetOwner: TPersistent;\r\nbegin\r\n  Result := FTableView;\r\nend;\r\n\r\nfunction TTMSFNCTableViewItemAppearance.GetSelectedFill: TTMSFNCGraphicsFill;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    Result := FTableView.FTreeView.NodesAppearance.SelectedFill;\r\nend;\r\n\r\nfunction TTMSFNCTableViewItemAppearance.GetSelectedStroke: TTMSFNCGraphicsStroke;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    Result := FTableView.FTreeView.NodesAppearance.SelectedStroke;\r\nend;\r\n\r\nfunction TTMSFNCTableViewItemAppearance.GetShowFocus: Boolean;\r\nbegin\r\n  Result := True;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    Result := FTableView.FTreeView.NodesAppearance.ShowFocus;\r\nend;\r\n\r\nfunction TTMSFNCTableViewItemAppearance.GetStroke: TTMSFNCGraphicsStroke;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    Result := FTableView.FTreeView.NodesAppearance.Stroke;\r\nend;\r\n\r\nfunction TTMSFNCTableViewItemAppearance.IsHeightStored: Boolean;\r\nbegin\r\n  Result := Height <> -1;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItemAppearance.SetAccessoryDetailBitmaps(const Value: TTMSFNCScaledBitmaps);\r\nbegin\r\n  FAccessoryDetailBitmaps.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItemAppearance.SetAccessoryFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FAccessoryFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItemAppearance.SetAccessoryFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FAccessoryFont.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItemAppearance.SetAccessoryStroke(const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FAccessoryStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItemAppearance.SetDisabledFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    FTableView.FTreeView.NodesAppearance.DisabledFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItemAppearance.SetDisabledStroke(const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    FTableView.FTreeView.NodesAppearance.DisabledStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItemAppearance.SetFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    FTableView.FTreeView.NodesAppearance.Fill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItemAppearance.SetFixedHeight(const Value: Double);\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    FTableView.FTreeView.NodesAppearance.FixedHeight := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItemAppearance.SetFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    FTableView.FTreeView.NodesAppearance.Font.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItemAppearance.SetHeight(const Value: Double);\r\nbegin\r\n  if FHeight <> Value then\r\n  begin\r\n    FHeight := Value;\r\n    if Assigned(FTableView) then\r\n      FTableView.UpdateTableView;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItemAppearance.SetHeightMode(const Value: TTMSFNCTableViewItemHeightMode);\r\nvar\r\n  i: Integer;\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n  begin\r\n    i := Integer(Value);\r\n    FTableView.FTreeView.NodesAppearance.HeightMode := TTMSFNCTreeViewNodeHeightMode(i);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItemAppearance.SetHTMLTemplate(const Value: string);\r\nbegin\r\n  if FHTMLTemplate <> Value then\r\n  begin\r\n    FHTMLTemplate := Value;\r\n    if Assigned(FTableView) then\r\n      FTableView.UpdateTableView;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItemAppearance.SetSelectedFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    FTableView.FTreeView.NodesAppearance.SelectedFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItemAppearance.SetSelectedStroke(const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    FTableView.FTreeView.NodesAppearance.SelectedStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItemAppearance.SetShowFocus(const Value: Boolean);\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    FTableView.FTreeView.NodesAppearance.ShowFocus := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewItemAppearance.SetStroke(const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    FTableView.FTreeView.NodesAppearance.Stroke.Assign(Value);\r\nend;\r\n\r\n{ TTMSFNCTableViewCategoryAppearance }\r\n\r\nprocedure TTMSFNCTableViewCategoryAppearance.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCTableViewCategoryAppearance then\r\n  begin\r\n    Font.Assign((Source as TTMSFNCTableViewCategoryAppearance).Font);\r\n    Fill.Assign((Source as TTMSFNCTableViewCategoryAppearance).Fill);\r\n    Stroke.Assign((Source as TTMSFNCTableViewCategoryAppearance).Stroke);\r\n    FHeight := (Source as TTMSFNCTableViewCategoryAppearance).Height;\r\n    FFloating := (Source as TTMSFNCTableViewCategoryAppearance).Floating;\r\n    FShowUncategorized := (Source as TTMSFNCTableViewCategoryAppearance).ShowUncategorized;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCTableViewCategoryAppearance.Create(ATableView: TTMSFNCCustomTableView);\r\nbegin\r\n  FTableView := ATableView;\r\n  FHeight := -1;\r\n  FFloating := True;\r\n  FShowUncategorized := True;\r\nend;\r\n\r\ndestructor TTMSFNCTableViewCategoryAppearance.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCTableViewCategoryAppearance.GetFill: TTMSFNCGraphicsFill;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    Result := FTableView.FTreeView.NodesAppearance.ExtendedFill;\r\nend;\r\n\r\nfunction TTMSFNCTableViewCategoryAppearance.GetFont: TTMSFNCGraphicsFont;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    Result := FTableView.FTreeView.NodesAppearance.ExtendedFont;\r\nend;\r\n\r\nfunction TTMSFNCTableViewCategoryAppearance.GetStroke: TTMSFNCGraphicsStroke;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    Result := FTableView.FTreeView.NodesAppearance.ExtendedStroke;\r\nend;\r\n\r\nfunction TTMSFNCTableViewCategoryAppearance.IsHeightStored: Boolean;\r\nbegin\r\n  Result := Height <> -1;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewCategoryAppearance.SetFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    FTableView.FTreeView.NodesAppearance.ExtendedFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewCategoryAppearance.SetFloating(const Value: Boolean);\r\nbegin\r\n  if FFloating <> Value then\r\n  begin\r\n    FFloating := Value;\r\n    if Assigned(FTableView) then\r\n      FTableView.UpdateTableView;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewCategoryAppearance.SetFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    FTableView.FTreeView.NodesAppearance.ExtendedFont.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewCategoryAppearance.SetHeight(const Value: Single);\r\nbegin\r\n  if FHeight <> Value then\r\n  begin\r\n    FHeight := Value;\r\n    if Assigned(FTableView) then\r\n      FTableView.UpdateTableView;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewCategoryAppearance.SetShowUncategorized(\r\n  const Value: Boolean);\r\nbegin\r\n  if FShowUncategorized then\r\n  begin\r\n    FShowUncategorized := Value;\r\n    if Assigned(FTableView) then\r\n      FTableView.UpdateTableView;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewCategoryAppearance.SetStroke(const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    FTableView.FTreeView.NodesAppearance.ExtendedStroke.Assign(Value);\r\nend;\r\n\r\n{ TTMSFNCTableViewGroupAppearance }\r\n\r\nprocedure TTMSFNCTableViewGroupAppearance.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCTableViewGroupAppearance then\r\n  begin\r\n    FRounding := (Source as TTMSFNCTableViewGroupAppearance).Rounding;\r\n    FMargins.Assign((Source as TTMSFNCTableViewGroupAppearance).Margins);\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nconstructor TTMSFNCTableViewGroupAppearance.Create(\r\n  ATableView: TTMSFNCCustomTableView);\r\nbegin\r\n  FTableView := ATableView;\r\n\r\n  FMargins := TTMSFNCMargins.Create(RectF(20, 10, 20, 10));\r\n  FMargins.OnChange := @MarginsChanged;\r\n  FRounding := 10;\r\nend;\r\n\r\ndestructor TTMSFNCTableViewGroupAppearance.Destroy;\r\nbegin\r\n  FMargins.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewGroupAppearance.MarginsChanged(Sender: TObject);\r\nbegin\r\n  if Assigned(FTableView) then\r\n    FTableView.UpdateTableView;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewGroupAppearance.SetMargins(\r\n  const Value: TTMSFNCMargins);\r\nbegin\r\n  FMargins.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewGroupAppearance.SetRounding(const Value: Integer);\r\nbegin\r\n  if FRounding <> Value then\r\n  begin\r\n    FRounding := Value;\r\n    if Assigned(FTableView) then\r\n      FTableView.UpdateTableView;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCTableViewMoreOptionAppearance }\r\n\r\nprocedure TTMSFNCTableViewMoreOptionAppearance.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCTableViewMoreOptionAppearance then\r\n  begin\r\n    FFont.Assign((Source as TTMSFNCTableViewMoreOptionAppearance).Font);\r\n    FFill.Assign((Source as TTMSFNCTableViewMoreOptionAppearance).Fill);\r\n    FStroke.Assign((Source as TTMSFNCTableViewMoreOptionAppearance).Stroke);\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCTableViewMoreOptionAppearance.Create(ATableView: TTMSFNCCustomTableView);\r\nbegin\r\n  FTableView := ATableView;\r\n  FFont := TTMSFNCGraphicsFont.Create;\r\n  if Assigned(FTableView) and FTableView.IsDesignTime then\r\n    FFont.Color := gcWhite;\r\n  FFont.OnChanged := @FontChanged;\r\n  FFill := TTMSFNCGraphicsFill.Create(gfkSolid, gcSteelblue);\r\n  FFill.OnChanged := @FillChanged;\r\n  FStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcSteelblue);\r\n  FStroke.OnChanged := @StrokeChanged;\r\nend;\r\n\r\ndestructor TTMSFNCTableViewMoreOptionAppearance.Destroy;\r\nbegin\r\n  FFont.Free;\r\n  FFill.Free;\r\n  FStroke.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewMoreOptionAppearance.FillChanged(Sender: TObject);\r\nbegin\r\n  if Assigned(FTableView) then\r\n    FTableView.Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewMoreOptionAppearance.FontChanged(Sender: TObject);\r\nbegin\r\n  if Assigned(FTableView) then\r\n    FTableView.Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewMoreOptionAppearance.SetFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewMoreOptionAppearance.SetFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FFont.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewMoreOptionAppearance.SetStroke(const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewMoreOptionAppearance.StrokeChanged(Sender: TObject);\r\nbegin\r\n  if Assigned(FTableView) then\r\n    FTableView.Invalidate;\r\nend;\r\n\r\n{ TTMSFNCTableViewInteraction }\r\n\r\nprocedure TTMSFNCTableViewInteraction.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTMSFNCTableViewInteraction) then\r\n  begin\r\n    FLookup.Assign((Source as TTMSFNCTableViewInteraction).Lookup);\r\n    Filtering.Assign((Source as TTMSFNCTableViewInteraction).Filtering);\r\n    Sorting := (Source as TTMSFNCTableViewInteraction).Sorting;\r\n    FShowDetailMode := (Source as TTMSFNCTableViewInteraction).ShowDetailMode;\r\n    DragDropMode := (Source as TTMSFNCTableViewInteraction).DragDropMode;\r\n    MultiSelect := (Source as TTMSFNCTableViewInteraction).MultiSelect;\r\n    TouchScrolling := (Source as TTMSFNCTableViewInteraction).TouchScrolling;\r\n    ClipboardMode := (Source as TTMSFNCTableViewInteraction).ClipboardMode;\r\n    Reorder := (Source as TTMSFNCTableViewInteraction).Reorder;\r\n    FShowEditButton := (Source as TTMSFNCTableViewInteraction).ShowEditButton;\r\n    FShowFilterButton := (Source as TTMSFNCTableViewInteraction).ShowFilterButton;\r\n    FAccessoryClickDetection := (Source as TTMSFNCTableViewInteraction).AccessoryClickDetection;\r\n    FLongPressToEdit := (Source as TTMSFNCTableViewInteraction).LongPressToEdit;\r\n    FSwipeToShowMoreOptions := (Source as TTMSFNCTableViewInteraction).SwipeToShowMoreOptions;\r\n    FSwipeBounceGesture := (Source as TTMSFNCTableViewInteraction).SwipeBounceGesture;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCTableViewInteraction.Create(ATableView: TTMSFNCCustomTableView);\r\nbegin\r\n  FTableView := ATableView;\r\n  FLongPressToEdit := True;\r\n  FSwipeToShowMoreOptions := True;\r\n  FAccessoryClickDetection := ClickAccessories;\r\n  FLookup := TTMSFNCTableViewLookup.Create(Self);\r\n  FFiltering := TTMSFNCTableViewFiltering.Create(Self);\r\n  FShowDetailMode := tvdtAfterSelectItem;\r\n  FShowEditButton := False;\r\n  FShowFilterButton := False;\r\n  FSwipeBounceGesture := True;\r\n  FKeyboardEscapeMode := tvkeStopFilter;\r\nend;\r\n\r\ndestructor TTMSFNCTableViewInteraction.Destroy;\r\nbegin\r\n  FLookup.Free;\r\n  FFiltering.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCTableViewInteraction.GetAnimationFactor: Single;\r\nbegin\r\n  Result := 2.5;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    Result := FTableView.FTreeView.Interaction.AnimationFactor;\r\nend;\r\n\r\nfunction TTMSFNCTableViewInteraction.GetAutoOpenURL: Boolean;\r\nbegin\r\n  Result := True;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    Result := FTableView.FTreeView.Interaction.AutoOpenURL;\r\nend;\r\n\r\nfunction TTMSFNCTableViewInteraction.GetClipboardMode: TTMSFNCTableViewClipboardMode;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  Result := tvcmNone;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n  begin\r\n    i := Integer(FTableView.FTreeView.Interaction.ClipboardMode);\r\n    Result := TTMSFNCTableViewClipboardMode(i);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTableViewInteraction.GetDragDropMode: TTMSFNCTableViewDragDropMode;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  Result := tvdmNone;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n  begin\r\n    i := Integer(FTableView.FTreeView.Interaction.DragDropMode);\r\n    Result := TTMSFNCTableViewDragDropMode(i);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTableViewInteraction.GetMultiSelect: Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    Result := FTableView.FTreeView.Interaction.MultiSelect;\r\nend;\r\n\r\nfunction TTMSFNCTableViewInteraction.GetReorder: Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    Result := FTableView.FTreeView.Interaction.Reorder;\r\nend;\r\n\r\nfunction TTMSFNCTableViewInteraction.GetSorting: TTMSFNCTableViewSorting;\r\nbegin\r\n  Result := tvcsNone;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) and (FTableView.FTreeView.Columns.Count > 0) then\r\n  begin\r\n    case FTableView.FTreeView.Columns[0].Sorting of\r\n      tcsNone: Result := tvcsNone;\r\n      tcsNormal: Result := tvcsNormal;\r\n      tcsNormalCaseSensitive: Result := tvcsNormalCaseSensitive;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTableViewInteraction.GetTouchScrolling: Boolean;\r\nbegin\r\n  Result := True;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    Result := FTableView.FTreeView.Interaction.TouchScrolling;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewInteraction.SetAccessoryClickDetection(const Value: TTMSFNCTableViewItemAccessories);\r\nbegin\r\n  FAccessoryClickDetection := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewInteraction.SetAnimationFactor(const Value: Single);\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    FTableView.FTreeView.Interaction.AnimationFactor := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewInteraction.SetAutoOpenURL(const Value: Boolean);\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    FTableView.FTreeView.Interaction.AutoOpenURL := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewInteraction.SetClipboardMode(\r\n  const Value: TTMSFNCTableViewClipboardMode);\r\nvar\r\n  i: Integer;\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n  begin\r\n    i := Integer(Value);\r\n    FTableView.FTreeView.Interaction.ClipboardMode := TTMSFNCTreeViewClipboardMode(i);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewInteraction.SetShowDetailMode(const Value: TTMSFNCTableViewShowDetailMode);\r\nbegin\r\n  if FShowDetailMode <> Value then\r\n    FShowDetailMode := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewInteraction.SetShowEditButton(const Value: Boolean);\r\nbegin\r\n  if FShowEditButton <> Value then\r\n  begin\r\n    FShowEditButton := Value;\r\n    if Assigned(FTableView) then\r\n      FTableView.UpdateTableView;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewInteraction.SetShowFilterButton(const Value: Boolean);\r\nbegin\r\n  if FShowFilterButton <> Value then\r\n  begin\r\n    FShowFilterButton := Value;\r\n    if Assigned(FTableView) then\r\n      FTableView.UpdateTableView;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewInteraction.SetDragDropMode(const Value: TTMSFNCTableViewDragDropMode);\r\nvar\r\n  i: Integer;\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n  begin\r\n    i := Integer(Value);\r\n    FTableView.FTreeView.Interaction.DragDropMode := TTMSFNCTreeViewDragDropMode(i);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewInteraction.SetFiltering(const Value: TTMSFNCTableViewFiltering);\r\nbegin\r\n  FFiltering.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewInteraction.SetLookup(const Value: TTMSFNCTableViewLookup);\r\nbegin\r\n  FLookup.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewInteraction.SetMultiSelect(const Value: Boolean);\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    FTableView.FTreeView.Interaction.MultiSelect := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewInteraction.SetReorder(const Value: Boolean);\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    FTableView.FTreeView.Interaction.Reorder := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewInteraction.SetSorting(const Value: TTMSFNCTableViewSorting);\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) and (FTableView.FTreeView.Columns.Count > 0) then\r\n  begin\r\n    case Value of\r\n      tvcsNone: FTableView.FTreeView.Columns[0].Sorting := tcsNone;\r\n      tvcsNormal: FTableView.FTreeView.Columns[0].Sorting := tcsNormal;\r\n      tvcsNormalCaseSensitive: FTableView.FTreeView.Columns[0].Sorting := tcsNormalCaseSensitive;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewInteraction.SetTouchScrolling(const Value: Boolean);\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    FTableView.FTreeView.Interaction.TouchScrolling := Value;\r\nend;\r\n\r\n{ TTMSFNCTableViewLookup }\r\n\r\nprocedure TTMSFNCTableViewLookup.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCTableViewLookup then\r\n  begin\r\n    CaseSensitive := (Source as TTMSFNCTableViewLookup).CaseSensitive;\r\n    Enabled := (Source as TTMSFNCTableViewLookup).Enabled;\r\n    Incremental := (Source as TTMSFNCTableViewLookup).Incremental;\r\n    AutoSelect := (Source as TTMSFNCTableViewLookup).AutoSelect;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCTableViewLookup.Create(AOwner: TTMSFNCTableViewInteraction);\r\nbegin\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCTableViewLookup.GetAutoSelect: Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(FOwner) and Assigned(FOwner.FTableView) and Assigned(FOwner.FTableView.FTreeView) then\r\n    Result := FOwner.FTableView.FTreeView.Interaction.Lookup.AutoSelect;\r\nend;\r\n\r\nfunction TTMSFNCTableViewLookup.GetCaseSensitive: Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(FOwner) and Assigned(FOwner.FTableView) and Assigned(FOwner.FTableView.FTreeView) then\r\n    Result := FOwner.FTableView.FTreeView.Interaction.Lookup.CaseSensitive;\r\nend;\r\n\r\nfunction TTMSFNCTableViewLookup.GetEnabled: Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(FOwner) and Assigned(FOwner.FTableView) and Assigned(FOwner.FTableView.FTreeView) then\r\n    Result := FOwner.FTableView.FTreeView.Interaction.Lookup.Enabled;\r\nend;\r\n\r\nfunction TTMSFNCTableViewLookup.GetIncremental: Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(FOwner) and Assigned(FOwner.FTableView) and Assigned(FOwner.FTableView.FTreeView) then\r\n    Result := FOwner.FTableView.FTreeView.Interaction.Lookup.Incremental;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewLookup.SetAutoSelect(const Value: Boolean);\r\nbegin\r\n  if Assigned(FOwner) and Assigned(FOwner.FTableView) and Assigned(FOwner.FTableView.FTreeView) then\r\n    FOwner.FTableView.FTreeView.Interaction.Lookup.AutoSelect := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewLookup.SetCaseSensitive(const Value: Boolean);\r\nbegin\r\n  if Assigned(FOwner) and Assigned(FOwner.FTableView) and Assigned(FOwner.FTableView.FTreeView) then\r\n    FOwner.FTableView.FTreeView.Interaction.Lookup.CaseSensitive := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewLookup.SetEnabled(const Value: Boolean);\r\nbegin\r\n  if Assigned(FOwner) and Assigned(FOwner.FTableView) and Assigned(FOwner.FTableView.FTreeView) then\r\n    FOwner.FTableView.FTreeView.Interaction.Lookup.Enabled := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewLookup.SetIncremental(const Value: Boolean);\r\nbegin\r\n  if Assigned(FOwner) and Assigned(FOwner.FTableView) and Assigned(FOwner.FTableView.FTreeView) then\r\n    FOwner.FTableView.FTreeView.Interaction.Lookup.Incremental := Value;\r\nend;\r\n\r\n{ TTMSFNCTableViewFiltering }\r\n\r\nprocedure TTMSFNCTableViewFiltering.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCTableViewFiltering then\r\n  begin\r\n    Enabled := (Source as TTMSFNCTableViewFiltering).Enabled;\r\n    DropDownWidth := (Source as TTMSFNCTableViewFiltering).DropDownWidth;\r\n    DropDownHeight := (Source as TTMSFNCTableViewFiltering).DropDownHeight;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCTableViewFiltering.Create(AOwner: TTMSFNCTableViewInteraction);\r\nbegin\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCTableViewFiltering.GetDropDownHeight: integer;\r\nbegin\r\n  Result := 120;\r\n  if Assigned(FOwner) and Assigned(FOwner.FTableView) and Assigned(FOwner.FTableView.FTreeView) and (FOwner.FTableView.FTreeView.Columns.Count > 0) then\r\n    Result := FOwner.FTableView.FTreeView.Columns[0].Filtering.DropDownHeight;\r\nend;\r\n\r\nfunction TTMSFNCTableViewFiltering.GetDropDownWidth: integer;\r\nbegin\r\n  Result := 100;\r\n  if Assigned(FOwner) and Assigned(FOwner.FTableView) and Assigned(FOwner.FTableView.FTreeView) and (FOwner.FTableView.FTreeView.Columns.Count > 0) then\r\n    Result := FOwner.FTableView.FTreeView.Columns[0].Filtering.DropDownWidth;\r\nend;\r\n\r\nfunction TTMSFNCTableViewFiltering.GetEnabled: Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(FOwner) and Assigned(FOwner.FTableView) and Assigned(FOwner.FTableView.FTreeView) and (FOwner.FTableView.FTreeView.Columns.Count > 0) then\r\n    Result := FOwner.FTableView.FTreeView.Columns[0].Filtering.Enabled;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewFiltering.SetDropDownHeight(const Value: integer);\r\nbegin\r\n  if Assigned(FOwner) and Assigned(FOwner.FTableView) and Assigned(FOwner.FTableView.FTreeView) and (FOwner.FTableView.FTreeView.Columns.Count > 0) then\r\n    FOwner.FTableView.FTreeView.Columns[0].Filtering.DropDownHeight := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewFiltering.SetDropDownWidth(const Value: integer);\r\nbegin\r\n  if Assigned(FOwner) and Assigned(FOwner.FTableView) and Assigned(FOwner.FTableView.FTreeView) and (FOwner.FTableView.FTreeView.Columns.Count > 0) then\r\n    FOwner.FTableView.FTreeView.Columns[0].Filtering.DropDownWidth := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewFiltering.SetEnabled(const Value: Boolean);\r\nbegin\r\n  if Assigned(FOwner) and Assigned(FOwner.FTableView) and Assigned(FOwner.FTableView.FTreeView) and (FOwner.FTableView.FTreeView.Columns.Count > 0) then\r\n    FOwner.FTableView.FTreeView.Columns[0].Filtering.Enabled := Value;\r\nend;\r\n\r\n{ TTMSFNCTableViewHeaderFooter }\r\n\r\nprocedure TTMSFNCTableViewHeaderFooter.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCTableViewHeaderFooter then\r\n  begin\r\n    Visible := (Source as TTMSFNCTableViewHeaderFooter).Visible;\r\n    Text := (Source as TTMSFNCTableViewHeaderFooter).Text;\r\n    Fill.Assign((Source as TTMSFNCTableViewHeaderFooter).Fill);\r\n    Font.Assign((Source as TTMSFNCTableViewHeaderFooter).Font);\r\n    Stroke.Assign((Source as TTMSFNCTableViewHeaderFooter).Stroke);\r\n    HorizontalTextAlign := (Source as TTMSFNCTableViewHeaderFooter).HorizontalTextAlign;\r\n    VerticalTextAlign := (Source as TTMSFNCTableViewHeaderFooter).VerticalTextAlign;\r\n    WordWrapping := (Source as TTMSFNCTableViewHeaderFooter).WordWrapping;\r\n    Trimming := (Source as TTMSFNCTableViewHeaderFooter).Trimming;\r\n    Height := (Source as TTMSFNCTableViewHeaderFooter).Height;\r\n    SortIndicatorColor := (Source as TTMSFNCTableViewHeaderFooter).SortIndicatorColor;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCTableViewHeaderFooter.Create(ATableView: TTMSFNCCustomTableView);\r\nbegin\r\n  FTableView := ATableView;\r\n  if Assigned(FTableView) and FTableView.IsDesignTime and not (csReading in FTableView.Componentstate) then\r\n  begin\r\n    if Self is TTMSFNCTableViewHeader then\r\n      FText := 'Header'\r\n    else\r\n      FText := 'Footer';\r\n\r\n    Fill.Color := MakeGraphicsColor(249, 249, 249);\r\n    Fill.Kind := gfkSolid;\r\n    Stroke.Color := MakeGraphicsColor(178, 178, 178);\r\n    Stroke.Kind := gskSolid;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTableViewHeaderFooter.GetFill: TTMSFNCGraphicsFill;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n  begin\r\n    if Self is TTMSFNCTableViewHeader then\r\n      Result := FTableView.FTreeView.ColumnsAppearance.TopFill\r\n    else\r\n      Result := FTableView.FTreeView.ColumnsAppearance.BottomFill\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTableViewHeaderFooter.GetFont: TTMSFNCGraphicsFont;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n  begin\r\n    if Self is TTMSFNCTableViewHeader then\r\n      Result := FTableView.FTreeView.ColumnsAppearance.TopFont\r\n    else\r\n      Result := FTableView.FTreeView.ColumnsAppearance.BottomFont\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTableViewHeaderFooter.GetHeight: Single;\r\nbegin\r\n  Result := 30;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n  begin\r\n    if Self is TTMSFNCTableViewHeader then\r\n      Result := FTableView.FTreeView.ColumnsAppearance.TopSize\r\n    else\r\n      Result := FTableView.FTreeView.ColumnsAppearance.BottomSize\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTableViewHeaderFooter.GetSortIndicatorColor: TTMSFNCGraphicsColor;\r\nbegin\r\n  Result := TTMSFNCTreeViewColorSelection;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    Result := FTableView.FTreeView.ColumnsAppearance.SortIndicatorColor;\r\nend;\r\n\r\nfunction TTMSFNCTableViewHeaderFooter.GetStroke: TTMSFNCGraphicsStroke;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n  begin\r\n    if Self is TTMSFNCTableViewHeader then\r\n      Result := FTableView.FTreeView.ColumnsAppearance.TopStroke\r\n    else\r\n      Result := FTableView.FTreeView.ColumnsAppearance.BottomStroke\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTableViewHeaderFooter.GetVisible: Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n  begin\r\n    if Self is TTMSFNCTableViewHeader then\r\n      Result := tclTop in FTableView.FTreeView.ColumnsAppearance.Layouts\r\n    else\r\n      Result := tclBottom in FTableView.FTreeView.ColumnsAppearance.Layouts;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewHeaderFooter.SetFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n  begin\r\n    if Self is TTMSFNCTableViewHeader then\r\n      FTableView.FTreeView.ColumnsAppearance.TopFill.Assign(Value)\r\n    else\r\n      FTableView.FTreeView.ColumnsAppearance.BottomFill.Assign(Value);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewHeaderFooter.SetFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n  begin\r\n    if Self is TTMSFNCTableViewHeader then\r\n      FTableView.FTreeView.ColumnsAppearance.TopFill.Assign(Value)\r\n    else\r\n      FTableView.FTreeView.ColumnsAppearance.BottomFill.Assign(Value);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewHeaderFooter.SetHorizontalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FHorizontalTextAlign <> Value then\r\n  begin\r\n    FHorizontalTextAlign := Value;\r\n    if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n      FTableView.FTreeView.Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewHeaderFooter.SetHeight(const Value: Single);\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n  begin\r\n    if Self is TTMSFNCTableViewHeader then\r\n      FTableView.FTreeView.ColumnsAppearance.TopSize := Value\r\n    else\r\n      FTableView.FTreeView.ColumnsAppearance.BottomSize := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewHeaderFooter.SetSortIndicatorColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    FTableView.FTreeView.ColumnsAppearance.SortIndicatorColor := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewHeaderFooter.SetStroke(const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n    FTableView.FTreeView.ColumnsAppearance.TopStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewHeaderFooter.SetText(const Value: String);\r\nbegin\r\n  if FText <> Value then\r\n  begin\r\n    FText := Value;\r\n    if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n      FTableView.FTreeView.Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewHeaderFooter.SetTrimming(const Value: TTMSFNCGraphicsTextTrimming);\r\nbegin\r\n  if FTrimming <> Value then\r\n  begin\r\n    FTrimming := Value;\r\n    if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n      FTableView.FTreeView.Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewHeaderFooter.SetVerticalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FVerticalTextAlign <> Value then\r\n  begin\r\n    FVerticalTextAlign := Value;\r\n    if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n      FTableView.FTreeView.Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewHeaderFooter.SetVisible(const Value: Boolean);\r\nbegin\r\n  if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n  begin\r\n    if Self is TTMSFNCTableViewHeader then\r\n    begin\r\n      if Value then\r\n        FTableView.FTreeView.ColumnsAppearance.Layouts := FTableView.FTreeView.ColumnsAppearance.Layouts + [tclTop]\r\n      else\r\n        FTableView.FTreeView.ColumnsAppearance.Layouts := FTableView.FTreeView.ColumnsAppearance.Layouts - [tclTop];\r\n    end\r\n    else\r\n    begin\r\n      if Value then\r\n        FTableView.FTreeView.ColumnsAppearance.Layouts := FTableView.FTreeView.ColumnsAppearance.Layouts + [tclBottom]\r\n      else\r\n        FTableView.FTreeView.ColumnsAppearance.Layouts := FTableView.FTreeView.ColumnsAppearance.Layouts - [tclBottom];\r\n    end;\r\n\r\n    FTableView.UpdateTableView;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewHeaderFooter.SetWordWrapping(const Value: Boolean);\r\nbegin\r\n  if FWordWrapping <> Value then\r\n  begin\r\n    FWordWrapping := Value;\r\n    if Assigned(FTableView) and Assigned(FTableView.FTreeView) then\r\n      FTableView.FTreeView.Invalidate;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCTableViewFilterData }\r\n\r\nprocedure TTMSFNCTableViewFilterData.Assign(Source: TPersistent);\r\nvar\r\n  ASrcFilterData: TTMSFNCTableViewFilterData;\r\nbegin\r\n  ASrcFilterData := Source as TTMSFNCTableViewFilterData;\r\n  if Assigned(ASrcFilterData) then\r\n  begin\r\n    FCondition := ASrcFilterData.Condition;\r\n    FCaseSensitive := ASrcFilterData.CaseSensitive;\r\n    FPrefix := ASrcFilterData.Prefix;\r\n    FSuffix := ASrcFilterData.Suffix;\r\n    FOperation := ASrcFilterData.Operation;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCTableViewFilterData.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  FCaseSensitive := True;\r\nend;\r\n\r\n{ TTMSFNCTableViewFilter }\r\n\r\nfunction TTMSFNCTableViewFilter.Add: TTMSFNCTableViewFilterData;\r\nbegin\r\n  Result := TTMSFNCTableViewFilterData(inherited Add);\r\n  if Count = 1 then\r\n    Result.Operation := tvfoNone\r\n  else\r\n    Result.Operation := tvfoAND;\r\nend;\r\n\r\nconstructor TTMSFNCTableViewFilter.Create(AOwner: TTMSFNCCustomTableView);\r\nbegin\r\n  inherited Create(AOwner, TTMSFNCTableViewFilterData);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCTableViewFilter.GetItem(Index: Integer): TTMSFNCTableViewFilterData;\r\nbegin\r\n  Result := TTMSFNCTableViewFilterData(inherited GetItem(Index));\r\nend;\r\n\r\nfunction TTMSFNCTableViewFilter.Insert(index: Integer): TTMSFNCTableViewFilterData;\r\nbegin\r\n  Result := TTMSFNCTableViewFilterData(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCTableViewFilter.SetItem(Index: Integer; const Value: TTMSFNCTableViewFilterData);\r\nbegin\r\n  inherited SetItem(Index, Value);\r\nend;\r\n\r\n{ TTMSFNCTableView }\r\n\r\nprocedure TTMSFNCTableView.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClasses([TTMSFNCTableView, TTMSFNCTableViewItem]);\r\nend;\r\n\r\n{ TTMSFNCTreeViewTableView }\r\n\r\nprocedure TTMSFNCTreeViewTableView.AnimateTimerChanged(Sender: TObject);\r\nvar\r\n  d, pos: Double;\r\n  anim: Boolean;\r\nbegin\r\n  if FAnimateMoreOptions or FAnimateMoreOptionsClose then\r\n  begin\r\n    pos := FMoreOffset;\r\n    if Interaction.AnimationFactor > 0 then\r\n    begin\r\n      d := Abs(FMoreOffsetTo - pos) / Interaction.AnimationFactor;\r\n      anim := AnimateDouble(pos, FMoreOffsetTo, d, 0.01)\r\n    end\r\n    else\r\n      anim := False;\r\n\r\n    if anim then\r\n      FMoreOffset := pos\r\n    else\r\n    begin\r\n      FMoreOffset := FMoreOffsetTo;\r\n      FAnimTimer.Enabled := False;\r\n      if FAnimateMoreOptionsClose then\r\n      begin\r\n        FMoreOffsetItem := nil;\r\n        FAnimateMoreOptionsClose := False;\r\n      end;\r\n    end;\r\n\r\n    if Assigned(FTableView) then\r\n      FTableView.UpdateTableView(True);\r\n  end\r\n  else\r\n  begin\r\n    if FDownTimer then\r\n    begin\r\n      Inc(FDownCount);\r\n      if FDownCount = DOWNCOUNT + 50 then\r\n      begin\r\n        FDownAction := True;\r\n        FAnimTimer.Enabled := False;\r\n        if Assigned(FTableView) then\r\n          FTableView.ToggleEditMode;\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      FAnimShiftAngle := FAnimShiftAngle + 5;\r\n      if FAnimShiftAngle = 360 then\r\n        FAnimShiftAngle := 0;\r\n\r\n      if not FAnimMarqueeSwitch then\r\n        FAnimMarqueeSweepAngle := FAnimMarqueeSweepAngle + 10\r\n      else\r\n      begin\r\n        FAnimMarqueeStartAngle := FAnimMarqueeStartAngle + 10;\r\n        FAnimMarqueeSweepAngle := FAnimMarqueeSweepAngle - 10;\r\n      end;\r\n\r\n      if (FAnimMarqueeSweepAngle = 360) and (FAnimMarqueeStartAngle = 0) then\r\n        FAnimMarqueeSwitch := True\r\n      else if ((FAnimMarqueeStartAngle = 360) and (FAnimMarqueeSweepAngle = 0)) then\r\n      begin\r\n        FAnimMarqueeSwitch := False;\r\n        FAnimMarqueeStartAngle := 0;\r\n      end;\r\n\r\n      Invalidate;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewTableView.CanApplyVerticalOffset: Boolean;\r\nbegin\r\n  Result := False;\r\n  if Assigned(FTableView) and Assigned(FTableView.Interaction) then\r\n    Result := FTableView.Interaction.SwipeBounceGesture;\r\nend;\r\n\r\nconstructor TTMSFNCTreeViewTableView.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FAnimMarqueeStartAngle := 0;\r\n  FManualProgressSweepAngle := 0;\r\n  FManualProgressStartAngle := 0;\r\n  FAnimMarqueeSweepAngle := 0;\r\n  FMoreOffset := 0;\r\n  FMoreOffsetTo := 0;\r\n  FAnimMarqueeSwitch := False;\r\n  FFloatingNodes := TTMSFNCTreeViewTableViewFloatingNodes.Create;\r\n  FAnimTimer := TTimer.Create(Self);\r\n  FAnimTimer.Enabled := False;\r\n  FAnimTimer.Interval := 1;\r\n  FAnimTimer.OnTimer := AnimateTimerChanged;\r\nend;\r\n\r\ndestructor TTMSFNCTreeViewTableView.Destroy;\r\nbegin\r\n  FAnimTimer.Free;\r\n  FFloatingNodes.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewTableView.DoFooterAnchorClick(AAnchor: String);\r\nbegin\r\n  if Assigned(OnFooterAnchorClick) then\r\n    OnFooterAnchorClick(Self, AAnchor)\r\n  else if Interaction.AutoOpenURL then\r\n    TTMSFNCUtils.OpenURL(AAnchor);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewTableView.DoGetNodeRounding(\r\n  ANode: TTMSFNCTreeViewVirtualNode; var ARounding: Integer;\r\n  var ACorners: TTMSFNCGraphicsCorners);\r\nvar\r\n  I: Integer;\r\n  itm, itmP: TTMSFNCTableViewItem;\r\nbegin\r\n  inherited;\r\n  if Assigned(FTableView) and (FTableView.LayoutMode = tvlmGroup) then\r\n  begin\r\n    ARounding := FTableView.GroupAppearance.Rounding;\r\n    ACorners := [gcTopLeft, gcTopRight, gcBottomLeft, gcBottomRight];\r\n    I := FTableView.GetItemIndexForNode(ANode);\r\n    itm := FTableView.GetItemForNode(ANode);\r\n    if Assigned(itm) then\r\n    begin\r\n      if (I - 1 >= 0) and (I - 1 <= FTableView.Items.Count - 1) then\r\n      begin\r\n        //top\r\n        itmP := FTableView.Items[I - 1];\r\n        if (itmP.GroupIndex = itm.GroupIndex) and not FTableView.ItemFromDifferentCategory(itmP, itm) then\r\n          ACorners := ACorners - [gcTopLeft, gcTopRight];\r\n      end;\r\n\r\n      if (I + 1 >= 0) and (I + 1 <= FTableView.Items.Count - 1) then\r\n      begin\r\n       //bottom\r\n        itmP := FTableView.Items[I + 1];\r\n        if (itmP.GroupIndex = itm.GroupIndex) and not FTableView.ItemFromDifferentCategory(itmP, itm) then\r\n          ACorners := ACorners - [gcBottomLeft, gcBottomRight];\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewTableView.DoHeaderAnchorClick(AAnchor: String);\r\nbegin\r\n  if Assigned(OnHeaderAnchorClick) then\r\n    OnHeaderAnchorClick(Self, AAnchor)\r\n  else if Interaction.AutoOpenURL then\r\n    TTMSFNCUtils.OpenURL(AAnchor);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewTableView.Draw(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF);\r\nbegin\r\n  inherited;\r\n  DrawLookupBar(AGraphics, ARect);\r\n  DrawReload(AGraphics, ARect);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewTableView.DrawLookupBar(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF);\r\nvar\r\n  I: Integer;\r\n  ldp: TTMSFNCTableViewLookupBarDisplayItem;\r\n  cr: TRectF;\r\nbegin\r\n  if Assigned(FTableView) and (FTableView.LookupBar.Visible and (FTableView.CategoryType <> tvctNone)) then\r\n  begin\r\n    cr := GetLookupBarRect;\r\n    if FMouseDownOnLookupBar then\r\n    begin\r\n      AGraphics.Fill.Assign(FTableView.LookupBar.DownFill);\r\n      AGraphics.Stroke.Assign(FTableView.LookupBar.DownStroke);\r\n    end\r\n    else\r\n    begin\r\n      AGraphics.Fill.Assign(FTableView.LookupBar.Fill);\r\n      AGraphics.Stroke.Assign(FTableView.LookupBar.Stroke);\r\n    end;\r\n\r\n    AGraphics.DrawRectangle(cr);\r\n\r\n    for I := 0 to FTableView.FLookupBarDisplayList.Count - 1 do\r\n    begin\r\n      ldp := FTableView.FLookupBarDisplayList[I];\r\n      if ldp.Active then\r\n        AGraphics.Font.Assign(FTableView.LookupBar.Font)\r\n      else\r\n        AGraphics.Font.Assign(FTableView.LookupBar.InActiveFont);\r\n      AGraphics.DrawText(ldp.Rect, ldp.Text, False, gtaCenter, gtaCenter);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewTableView.DrawReload(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF);\r\nvar\r\n  r: TRectF;\r\n  sz: Single;\r\nbegin\r\n  if Assigned(FTableView) and FTableView.Reload.Enabled and FReloadActive then\r\n  begin\r\n    r := GetNodesRect;\r\n    sz := FTableView.Reload.Size;\r\n    r := RectF(r.Left + ((r.Right - r.Left) - sz) / 2, r.Top + (FTableView.Reload.Offset - sz) / 2, r.Left + ((r.Right - r.Left) - sz) / 2 + sz, r.Top + (FTableView.Reload.Offset - sz) / 2 + sz);\r\n    AGraphics.Stroke.Assign(FTableView.Reload.Stroke);\r\n    case FTableView.Reload.ProgressMode of\r\n      tvrpmMarquee: AGraphics.DrawArc(CenterPointEx(r), PointF((r.Right - r.Left) / 2, (r.Bottom - r.Top) / 2), FAnimMarqueeStartAngle, FAnimMarqueeSweepAngle);\r\n      tvrpmMarqueeAlternate: AGraphics.DrawArc(CenterPointEx(r), PointF((r.Right - r.Left) / 2, (r.Bottom - r.Top) / 2), FAnimShiftAngle + FAnimMarqueeStartAngle, FAnimMarqueeSweepAngle);\r\n      tvrpmManual: AGraphics.DrawArc(CenterPointEx(r), PointF((r.Right - r.Left) / 2, (r.Bottom - r.Top) / 2), FManualProgressStartAngle, FManualProgressSweepAngle);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewTableView.CustomizeNodeCache(\r\n  AGraphics: TTMSFNCGraphics; AStartY: Single);\r\nvar\r\n  n: TTMSFNCTreeViewVirtualNode;\r\n  s: Single;\r\n  dp: Integer;\r\nbegin\r\n  inherited;\r\n  if Assigned(FTableView) and (FTableView.FUpdateCount = 0) and (FTableView.CategoryType <> tvctNone) then\r\n  begin\r\n    dp := FTableView.GetDisplayCategoryIndex(StartRow);\r\n    if (dp > -1) then\r\n    begin\r\n      FFloatingNodes.Clear;\r\n      n := TTMSFNCTreeViewVirtualNode.Create(Self);\r\n      n.CopyFrom(GetNodeForRow(dp));\r\n      s := 0;\r\n      ConfigureNode(AGraphics, 0, n, s);\r\n      if FTableView.CategoryAppearance.Floating then\r\n        FFloatingNodes.Add(n);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewTableView.CustomizeScrollPosition(\r\n  ANode: TTMSFNCTreeViewVirtualNode; var APosition, ATopPosition: Double);\r\nbegin\r\n  inherited;\r\n  if (FFloatingNodes.Count > 0) and not ANode.Extended {and (CompareValue(APosition, GetVerticalScrollPosition) = LessThanValue)} then\r\n  begin\r\n    APosition := APosition - FFloatingNodes[0].Height;\r\n    ATopPosition := ATopPosition - FFloatingNodes[0].Height;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewTableView.GetCategoryAtXY(X, Y: Single): Integer;\r\nvar\r\n  i, s: Integer;\r\n  r: TRectF;\r\n  str: String;\r\n  ypos: Single;\r\n  g: TTMSFNCGraphics;\r\n  cr: TRectF;\r\nbegin\r\n  Result := -1;\r\n\r\n  if not Assigned(FTableView) then\r\n    Exit;\r\n\r\n  g := TTMSFNCGraphics.CreateBitmapCanvas;\r\n  g.BeginScene;\r\n  try\r\n    g.Font.Assign(FTableView.LookupBar.Font);\r\n    s := FTableView.Categories.Count - 1;\r\n    cr := GetLookupBarRect;\r\n    ypos := cr.Top + 3;\r\n    for I := 0 to s do\r\n    begin\r\n      str := FTableView.Categories[I].LookupText;\r\n      r.Left := cr.Left;\r\n      r.Right := cr.Right;\r\n      r.Top := ypos;\r\n      r.Bottom := r.Top + g.CalculateTextHeight(str);\r\n      ypos := ypos + (r.Bottom - r.Top) + 3;\r\n\r\n      if PtInRectEx(r, PointF(X, Y)) then\r\n      begin\r\n        Result := I;\r\n        Break;\r\n      end;\r\n    end;\r\n  finally\r\n    g.EndScene;\r\n    g.Free;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewTableView.GetColumnWidth(AColumn: Integer): Double;\r\nbegin\r\n  Result := inherited GetColumnWidth(AColumn);\r\n  if Assigned(FTableView) and (FTableView.LookupBar.Visible and (FTableView.CategoryType <> tvctNone)) then\r\n    Result := Result - FTableView.LookupBar.Width;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewTableView.GetContentClipRect: TRectF;\r\nbegin\r\n  Result := GetContentRect;\r\n  Result.Left := Result.Left + 1;\r\n  Result.Right := Result.Right - 1;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewTableView.GetContentRect: TRectF;\r\nbegin\r\n  Result := inherited GetContentRect;\r\n  if Assigned(FTableView) and FTableView.FFilterActive then\r\n    Result.Top := Result.Top + FTableView.FEdit.Height;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewTableView.GetNodeMargins(var ALeft, ATop, ARight,\r\n  ABottom: Single);\r\nbegin\r\n  inherited;\r\n  if Assigned(FTableView) and (FTableView.LayoutMode = tvlmGroup) then\r\n  begin\r\n    ARight := ARight + FTableView.GroupAppearance.Margins.Right;\r\n    ALeft := ALeft + FTableView.GroupAppearance.Margins.Left;\r\n    ATop := ATop + FTableView.GroupAppearance.Margins.Top;\r\n    ABottom := ABottom + FTableView.GroupAppearance.Margins.Bottom;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewTableView.GetNodesRect: TRectF;\r\nvar\r\n  d: Double;\r\nbegin\r\n  Result := inherited GetNodesRect;\r\n  if Assigned(FTableView) then\r\n  begin\r\n    d := (Result.Right - Result.Left) - FTableView.FDetailControlOffset;\r\n    if (FTableView.LookupBar.Visible and (FTableView.CategoryType <> tvctNone)) then\r\n    begin\r\n      case FTableView.LookupBar.Position of\r\n        tvlbpLeft:\r\n        begin\r\n          Result.Left := Result.Left + FTableView.LookupBar.Width - 1;\r\n          Result.Right := Result.Right - FTableView.LookupBar.Width - 1;\r\n        end;\r\n        tvlbpRight: Result.Right := Result.Right - FTableView.LookupBar.Width;\r\n      end;\r\n    end;\r\n\r\n    Result.Left := Result.Left - d;\r\n    Result.Right := Result.Right - d;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewTableView.GetNodesSpacing(ANode: TTMSFNCTreeViewVirtualNode): Single;\r\nvar\r\n  I: Integer;\r\n  itm, itmP: TTMSFNCTableViewItem;\r\n  s: Single;\r\nbegin\r\n  s := inherited GetNodesSpacing(ANode);\r\n  if Assigned(FTableView) and (FTableView.LayoutMode = tvlmGroup) then\r\n  begin\r\n    I := FTableView.GetItemIndexForNode(ANode);\r\n    itm := FTableView.GetItemForNode(ANode);\r\n    if Assigned(itm) then\r\n    begin\r\n      if (I + 1 >= 0) and (I + 1 <= FTableView.Items.Count - 1) then\r\n      begin\r\n        itmP := FTableView.Items[I + 1];\r\n        if (itmP.GroupIndex <> itm.GroupIndex) and not FTableView.ItemFromDifferentCategory(itmP, itm) then\r\n          s := s + FTableView.GroupAppearance.Margins.Top + FTableView.GroupAppearance.Margins.Bottom;\r\n      end;\r\n    end;\r\n  end;\r\n  Result := s;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewTableView.GetReloadOffset: Single;\r\nbegin\r\n  Result := inherited GetReloadOffset;\r\n  if Assigned(FTableView) then\r\n  begin\r\n    if FTableView.Reload.Enabled then\r\n      Result := Result + FTableView.Reload.Offset;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewTableView.GetTotalColumnNodeWidth: Double;\r\nbegin\r\n  Result := inherited GetTotalColumnNodeWidth;\r\n  if Assigned(FTableView) and (FTableView.LookupBar.Visible and (FTableView.CategoryType <> tvctNone)) then\r\n    Result := Result - FTableView.LookupBar.Width;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewTableView.GetVScrollOffset: Single;\r\nbegin\r\n  Result := inherited GetVScrollOffset;\r\n  if Assigned(FTableView) and (FTableView.LayoutMode = tvlmGroup) then\r\n    Result := FTableView.GroupAppearance.Margins.Top;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewTableView.GetLookupBarRect: TRectF;\r\nvar\r\n  sz: Single;\r\n  d: Single;\r\nbegin\r\n  Result := EmptyRect;\r\n  if Assigned(FTableView) and (FTableView.LookupBar.Visible and (FTableView.CategoryType <> tvctNone)) then\r\n  begin\r\n    sz := FTableView.LookupBar.Width;\r\n    Result := GetContentRect;\r\n    d := (Result.Right - Result.Left) - FTableView.FDetailControlOffset;\r\n    case FTableView.LookupBar.Position of\r\n      tvlbpLeft:\r\n      begin\r\n        Result.Right := Result.Left + sz;\r\n        Result.Left := Result.Left + 1;\r\n        Result.Top := Result.Top + 1;\r\n        Result.Bottom := Result.Bottom - 1;\r\n      end;\r\n      tvlbpRight:\r\n      begin\r\n        Result.Left := Result.Right - sz;\r\n        Result.Top := Result.Top + 1;\r\n        Result.Bottom := Result.Bottom - 1;\r\n        Result.Right := Result.Right - 1;\r\n      end;\r\n    end;\r\n\r\n    Result.Left := Result.Left - d;\r\n    Result.Right := Result.Right - d;\r\n  end;\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCTableViewEdit.KeyDown(var Key: Word; var KeyChar: WideChar; Shift: TShiftState);\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCTableViewEdit.KeyDown(var Key: Word; Shift: TShiftState);\r\n{$ENDIF}\r\nbegin\r\n  inherited;\r\n  if not Assigned(FTableView) then\r\n    Exit;\r\n\r\n  if (Key in [KEY_ESCAPE]) and FTableView.FFilterActive then\r\n  begin\r\n    case FTableView.Interaction.KeyboardEscapeMode of\r\n      tvkeNone: ;\r\n      tvkeClearEdit:\r\n      begin\r\n        FTableView.FFilterActive := False;\r\n        FTableView.StartFiltering;\r\n      end;\r\n      tvkeStopFilter: FTableView.StopFiltering;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewTableView.HandleKeyDown(var Key: Word;\r\n  Shift: TShiftState);\r\nbegin\r\n  inherited;\r\n  if BlockUserInput or not Assigned(FTableView) then\r\n    Exit;\r\n\r\n  if (Key in [KEY_ESCAPE]) and FTableView.FFilterActive then\r\n  begin\r\n    case FTableView.Interaction.KeyboardEscapeMode of\r\n      tvkeNone: ;\r\n      tvkeClearEdit:\r\n      begin\r\n        FTableView.FFilterActive := False;\r\n        FTableView.StartFiltering;\r\n      end;\r\n      tvkeStopFilter: FTableView.StopFiltering;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewTableView.HandleMouseDown(Button: TTMSFNCMouseButton;\r\n  Shift: TShiftState; X, Y: Single);\r\nvar\r\n  it: TTMSFNCTableViewItem;\r\nbegin\r\n  if Assigned(FTableView) then\r\n  begin\r\n    FDownMoreOption := FTableView.XYToMoreOption(X, Y);\r\n    if Assigned(FDownMoreOption) then\r\n    begin\r\n      BlockUserInput := True;\r\n      inherited;\r\n      BlockUserInput := False;\r\n      Invalidate;\r\n      Exit;\r\n    end;\r\n  end;\r\n\r\n  if FAnimateMoreOptions then\r\n  begin\r\n    FAnimateMoreOptions := False;\r\n    FAnimateMoreOptionsClose := True;\r\n    FMoreOffsetTo := 0;\r\n    FAnimTimer.Enabled := True;\r\n    inherited;\r\n    BlockMouseClick := False;\r\n    Exit;\r\n  end;\r\n\r\n  if BlockUserInput then\r\n  begin\r\n    inherited;\r\n    Exit;\r\n  end;\r\n\r\n  it := nil;\r\n  FMouseDownOnLookupBar := PtInRectEx(GetLookupBarRect, PointF(X, Y));\r\n  if not FMouseDownOnLookupBar and Assigned(FTableView) and not IsAnimating then\r\n  begin\r\n    it := FTableView.XYToAccessoryItem(X, Y);\r\n    FMouseDownOnAccessory := Assigned(it);\r\n    if not Assigned(it) then\r\n    begin\r\n      it := FTableView.XYToBitmapItem(X, Y);\r\n      FMouseDownOnBitmap := Assigned(it);\r\n    end;\r\n  end;\r\n\r\n  BlockUserInput := FMouseDownOnLookupBar or FMouseDownOnAccessory or FMouseDownOnBitmap;\r\n  inherited;\r\n\r\n  if FMouseDownOnLookupBar then\r\n  begin\r\n    CaptureEx;\r\n    StopAnimationTimer;\r\n    ProcessLookup(X, Y);\r\n    Invalidate;\r\n  end;\r\n\r\n  if FMouseDownOnAccessory then\r\n  begin\r\n    CaptureEx;\r\n    StopAnimationTimer;\r\n    if Assigned(FTableView) then\r\n      FTableView.FActiveAccessoryItem := it;\r\n    Invalidate;\r\n  end;\r\n\r\n  if FMouseDownOnBitmap then\r\n  begin\r\n    CaptureEx;\r\n    StopAnimationTimer;\r\n    if Assigned(FTableView) then\r\n      FTableView.FActiveBitmapItem := it;\r\n    Invalidate;\r\n  end;\r\n\r\n  FDownX := X;\r\n  FDownY := Y;\r\n\r\n  if not FMouseDownOnAccessory and not FMouseDownOnBitmap and not FMouseDownOnLookupBar and (Assigned(FTableView) and FTableView.Interaction.LongPressToEdit) then\r\n  begin\r\n    FDownAction := False;\r\n    FDownTimer := True;\r\n    FDownCount := 0;\r\n    FAnimTimer.Enabled := True;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewTableView.HandleMouseMove(Shift: TShiftState; X,\r\n  Y: Single);\r\nvar\r\n  a: string;\r\n  crs: smallInt;\r\nbegin\r\n  inherited;\r\n  crs := Cursor;\r\n  if FDownTimer and not (FAnimateMoreOptions or FAnimateMoreOptionsClose) then\r\n  begin\r\n    if (Abs(X - FDownX) > 5) or (Abs(Y - FDownY) > 5) then\r\n    begin\r\n      FDownAction := False;\r\n      FDownCount := 0;\r\n      FDownTimer := False;\r\n      FAnimTimer.Enabled := False;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(FTableView) and (FTableView.MoreOptions.Count > 0) and FTableView.Interaction.SwipeToShowMoreOptions and not Assigned(FMoreOffsetItem) and IsMouseDown and\r\n    not BlockUserInput and not BlockMouseClick and (Abs(X - FDownX) > SWIPEOFFSET) and (Abs(Y - FDownY) <= 5) then\r\n  begin\r\n    FMoreOffsetItem := FTableView.XYToItem(X, Y);\r\n    if Assigned(FMoreOffsetItem) then\r\n    begin\r\n      if FMoreOffsetItem.EnableMoreOptions then\r\n      begin\r\n        FMoreOffsetTo := FTableView.GetMoreOptionsSize;\r\n        BlockMouseClick := True;\r\n        FAnimateMoreOptions := True;\r\n        FAnimTimer.Enabled := True;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  a := XYToHeaderAnchor(X,Y);\r\n  if a <> '' then\r\n    crs := crHandPoint\r\n  else\r\n  begin\r\n    a := XYToFooterAnchor(X,Y);\r\n    if a <> '' then\r\n      crs := crHandPoint;\r\n  end;\r\n\r\n  if crs <> Cursor then\r\n    Cursor := crs;\r\n\r\n  if FMouseDownOnLookupBar then\r\n    ProcessLookup(X, Y);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewTableView.HandleMouseUp(Button: TTMSFNCMouseButton;\r\n  Shift: TShiftState; X, Y: Single);\r\nvar\r\n  rp: Boolean;\r\n  mo: TTMSFNCTableViewMoreOption;\r\n  a: string;\r\nbegin\r\n  if Assigned(FDownMoreOption) then\r\n  begin\r\n    mo := FDownMoreOption;\r\n    FDownMoreOption := nil;\r\n    Invalidate;\r\n    if FAnimateMoreOptions then\r\n    begin\r\n      FAnimateMoreOptions := False;\r\n      FAnimateMoreOptionsClose := True;\r\n      FMoreOffsetTo := 0;\r\n      FAnimTimer.Enabled := True;\r\n      inherited;\r\n      BlockMouseClick := False;\r\n      if Assigned(FTableView) and Assigned(FMoreOffsetItem) and Assigned(mo) then\r\n        FTableView.DoItemMoreOptionClick(FMoreOffsetItem, mo);\r\n      Exit;\r\n    end;\r\n  end;\r\n\r\n  if FDownTimer and not (FAnimateMoreOptions or FAnimateMoreOptionsClose) then\r\n  begin\r\n    FDownCount := 0;\r\n    FDownTimer := False;\r\n    FAnimTimer.Enabled := False;\r\n    if FDownAction then\r\n    begin\r\n      FDownAction := False;\r\n      BlockUserInput := True;\r\n      inherited;\r\n      IsMouseDown := False;\r\n      BlockUserInput := False;\r\n      Exit;\r\n    end;\r\n  end;\r\n\r\n  inherited;\r\n\r\n  rp := False;\r\n  if FMouseDownOnLookupBar then\r\n  begin\r\n    ReleaseCaptureEx;\r\n    ProcessLookup(X, Y, False);\r\n    rp := True;\r\n  end;\r\n\r\n  if FMouseDownOnAccessory then\r\n  begin\r\n    ReleaseCaptureEx;\r\n    if Assigned(FTableView) then\r\n    begin\r\n      if Assigned(FTableView.FActiveAccessoryItem) then\r\n        FTableView.DoItemAccessoryClick(FTableView.FActiveAccessoryItem);\r\n      FTableView.FActiveAccessoryItem := nil;\r\n    end;\r\n    rp := True;\r\n  end;\r\n\r\n  if FMouseDownOnBitmap then\r\n  begin\r\n    ReleaseCaptureEx;\r\n    if Assigned(FTableView) then\r\n    begin\r\n      if Assigned(FTableView.FActiveBitmapItem) then\r\n        FTableView.DoItemBitmapClick(FTableView.FActiveBitmapItem);\r\n      FTableView.FActiveBitmapItem := nil;\r\n    end;\r\n    rp := True;\r\n  end;\r\n\r\n  if rp then\r\n  begin\r\n    FMouseDownOnAccessory := False;\r\n    FMouseDownOnBitmap := False;\r\n    FMouseDownOnLookupBar := False;\r\n    BlockUserInput := False;\r\n  end;\r\n\r\n  a := XYToFooterAnchor(X, Y);\r\n  if a <> '' then\r\n     DoFooterAnchorClick(a)\r\n  else\r\n  begin\r\n    a := XYToHeaderAnchor(X, Y);\r\n    if a <> '' then\r\n       DoHeaderAnchorClick(a)\r\n  end;\r\n\r\n  Invalidate;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewTableView.NeedsReload(AVerticalOffset: Single): Boolean;\r\nbegin\r\n  Result := inherited NeedsReload(AVerticalOffset);\r\n  if Assigned(FTableView) and FTableView.Reload.Enabled and not Assigned(FTableView.FActiveDetailControl) and not FTableView.FEditMode and not FTableView.FFilterActive then\r\n    Result := AVerticalOffset >= FTableView.Reload.Offset;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewTableView.OffsetNodeRects(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AX, AY: Single; var ARect: TRectF);\r\nvar\r\n  i: Integer;\r\nbegin\r\n  if not Assigned(FFloatingNodes) then\r\n  begin\r\n    inherited;\r\n    Exit;\r\n  end;\r\n\r\n  i := FFloatingNodes.IndexOf(ANode);\r\n  if i > -1 then\r\n    inherited OffsetNodeRects(ANode, AX, Max(0, AY), ARect)\r\n  else\r\n  begin\r\n    if (FMoreOffsetItem = FTableView.GetItemForNode(ANode)) then\r\n      inherited OffsetNodeRects(ANode, AX - FMoreOffset, AY, ARect)\r\n    else\r\n      inherited;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewTableView.ProcessLookup(X, Y: Single;\r\n  DoLookup: Boolean);\r\nvar\r\n  l: Integer;\r\n  ch: String;\r\n  catid: Integer;\r\n  I: Integer;\r\nbegin\r\n  if Assigned(FTableView) then\r\n  begin\r\n    case FTableView.CategoryType of\r\n      tvctCustom:\r\n      begin\r\n        l := GetCategoryAtXY(X, Y);\r\n        if (l > -1) and (l < FTableView.Categories.Count) then\r\n        begin\r\n          catid := FTableView.Categories[l].Id;\r\n          if FTableView.FCustomChar.IsIDActive(catID) then\r\n          begin\r\n            if DoLookup then\r\n              FTableView.LookupCustomCategory(catid)\r\n            else if Assigned(FTableView.OnCategoryClick) then\r\n              FTableView.OnCategoryClick(Self, '', catid);\r\n          end;\r\n        end;\r\n      end;\r\n      tvctAlphaBetic, tvctAlphaNumericFirst, tvctAlphaNumericLast:\r\n      begin\r\n        l := 0;\r\n        for I := 0 to FTableView.FLookupBarDisplayList.Count - 1 do\r\n        begin\r\n          if PtInRectEx(FTableView.FLookupBarDisplayList[I].Rect, PointF(X, Y)) and FTableView.FLookupBarDisplayList[I].Active then\r\n          begin\r\n            l := I + 1;\r\n            Break;\r\n          end;\r\n        end;\r\n\r\n        if (l >= 1) and (l <= FTableView.GetCharacterCount) then\r\n        begin\r\n          if Assigned(FTableView) then\r\n          begin\r\n            ch := FTableView.GetCharacter(l);\r\n            if (ch <> '') then\r\n            begin\r\n              if DoLookup then\r\n                FTableView.LookupCategory(ch)\r\n              else if Assigned(FTableView.OnCategoryClick) then\r\n                FTableView.OnCategoryClick(Self, ch, -1);\r\n            end;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewTableView.ScrollLimitation: Boolean;\r\nbegin\r\n  Result := True;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewTableView.StartReload;\r\nbegin\r\n  inherited;\r\n  FReloadActive := True;\r\n  BlockUserInput := True;\r\n  if Assigned(FTableView) then\r\n  begin\r\n    FManualProgressSweepAngle := 0;\r\n    FManualProgressStartAngle := 0;\r\n    FAnimTimer.Enabled := (FTableView.Reload.ProgressMode <> tvrpmManual);\r\n    FTableView.DoStartReload;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewTableView.UpdateCheckState(\r\n  ANode: TTMSFNCTreeViewVirtualNode; AColumn: Integer; AChecked: Boolean);\r\nvar\r\n  dp: TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  inherited;\r\n  if not Assigned(FTableView) then\r\n    Exit;\r\n\r\n  if (ANode.Row >= 0) and (ANode.Row <= FTableView.FDisplayList.Count - 1) then\r\n  begin\r\n    dp := FTableView.FDisplayList[ANode.Row];\r\n    case dp.Kind of\r\n      tvikItem:\r\n      begin\r\n        if Assigned(dp.Item) then\r\n          dp.Item.FChecked := AChecked;\r\n\r\n        FTableView.SelectAllCheckedItems;\r\n      end;\r\n      tvikCategory: ;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewTableView.XYToHeaderAnchor(X, Y: Single): string;\r\nvar\r\n  r : TRectF;\r\n  g: TTMSFNCGraphics;\r\nbegin\r\n  Result := '';\r\n\r\n  r := RectF(0,0, Width, FTableView.Header.Height);\r\n\r\n  g := TTMSFNCGraphics.CreateBitmapCanvas;\r\n  g.BeginScene;\r\n  g.BitmapContainer := BitmapContainer;\r\n  g.Font.Assign(FTableView.Header.Font);\r\n\r\n  try\r\n    Result := g.DrawText(r, FTableView.Header.Text, FTableView.Header.WordWrapping, FTableView.Header.HorizontalTextAlign , FTableView.Header.VerticalTextAlign, FTableView.Header.Trimming, 0, -1, -1, True, True, X, Y);\r\n  finally\r\n    g.EndScene;\r\n    g.Free;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTreeViewTableView.XYToFooterAnchor(X, Y: Single): string;\r\nvar\r\n  r : TRectF;\r\n  g: TTMSFNCGraphics;\r\nbegin\r\n  Result := '';\r\n\r\n  r := RectF(0, Height - FTableView.Footer.Height, Width, Height);\r\n\r\n  g := TTMSFNCGraphics.CreateBitmapCanvas;\r\n  g.BeginScene;\r\n  g.BitmapContainer := BitmapContainer;\r\n  g.Font.Assign(FTableView.Footer.Font);\r\n\r\n  try\r\n    Result := g.DrawText(r, FTableView.Footer.Text, FTableView.Footer.WordWrapping, FTableView.Footer.HorizontalTextAlign , FTableView.Footer.VerticalTextAlign, FTableView.Footer.Trimming, 0, -1, -1, True, True, X, Y);\r\n  finally\r\n    g.EndScene;\r\n    g.Free;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCTableViewCategory }\r\n\r\nprocedure TTMSFNCTableViewCategory.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTMSFNCTableViewCategory) then\r\n  begin\r\n    FText := (Source as TTMSFNCTableViewCategory).Text;\r\n    FLookupText := (Source as TTMSFNCTableViewCategory).LookupText;\r\n    FId := (Source as TTMSFNCTableViewCategory).Id;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewCategory.Changed;\r\nbegin\r\n  if Assigned(FTableView) then\r\n    FTableView.UpdateTableView;\r\nend;\r\n\r\nconstructor TTMSFNCTableViewCategory.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  FTableView := (Collection as TTMSFNCTableViewCategories).FTableView;\r\n  FID := (Collection as TTMSFNCTableViewCategories).Count - 1;\r\n  if Assigned(FTableView) then\r\n    FTableView.UpdateTableView;\r\nend;\r\n\r\ndestructor TTMSFNCTableViewCategory.Destroy;\r\nbegin\r\n  inherited;\r\n  if Assigned(FTableView) then\r\n    FTableView.UpdateTableView;\r\nend;\r\n\r\nfunction TTMSFNCTableViewCategory.GetStrippedHTMLText: String;\r\nbegin\r\n  Result := TTMSFNCUtils.HTMLStrip(Text);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewCategory.SetId(const Value: integer);\r\nbegin\r\n  if FId <> Value then\r\n  begin\r\n    FId := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewCategory.SetLookupText(const Value: String);\r\nbegin\r\n  if FLookupText <> value then\r\n  begin\r\n    FLookupText := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewCategory.SetText(const Value: String);\r\nbegin\r\n  if FText <> value then\r\n  begin\r\n    FText := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCTableViewCategories }\r\n\r\nfunction TTMSFNCTableViewCategories.Add: TTMSFNCTableViewCategory;\r\nbegin\r\n  Result := TTMSFNCTableViewCategory(inherited Add);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewCategories.Clear;\r\nvar\r\n  it: TTMSFNCTableViewCategory;\r\nbegin\r\n  if Count > 0 then\r\n  begin\r\n    while Count > 0 do\r\n    begin\r\n      it := Items[Count - 1];\r\n      it.Free;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTableViewCategories.Compare(AItem1,\r\n  AItem2: TTMSFNCTableViewCategory; ACaseSensitive: Boolean;\r\n  ASortingMode: TTMSFNCTableViewCategoriesSortMode): Integer;\r\nvar\r\n  l: TTMSFNCCustomTableView;\r\nbegin\r\n  Result := 0;\r\n\r\n  l := FTableView;\r\n  if not Assigned(l) then\r\n    Exit;\r\n\r\n  if not ACaseSensitive then\r\n    Result := AnsiCompareStr(UpperCase(AItem1.StrippedHTMLText), UpperCase(AItem2.StrippedHTMLText))\r\n  else\r\n    Result := AnsiCompareStr(AItem1.StrippedHTMLText, AItem2.StrippedHTMLText);\r\n\r\n  case ASortingMode of\r\n    tvcsmDescending: Result := Result * -1;\r\n  end;\r\n\r\n  l.DoCategoryCompare(AItem1, AItem2, Result);\r\nend;\r\n\r\nconstructor TTMSFNCTableViewCategories.Create(ATableView: TTMSFNCCustomTableView);\r\nbegin\r\n  inherited Create(ATableView, TTMSFNCTableViewCategory);\r\n  FTableView := ATableView;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewCategories.Delete(Index: Integer);\r\nvar\r\n  it: TTMSFNCTableViewCategory;\r\nbegin\r\n  it := Items[Index];\r\n  it.Free;\r\nend;\r\n\r\nfunction TTMSFNCTableViewCategories.GetItem(\r\n  Index: Integer): TTMSFNCTableViewCategory;\r\nbegin\r\n  Result := TTMSFNCTableViewCategory(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCTableViewCategories.Insert(\r\n  Index: Integer): TTMSFNCTableViewCategory;\r\nbegin\r\n  Result := TTMSFNCTableViewCategory(inherited Insert(Index));\r\nend;\r\n\r\nfunction TTMSFNCTableViewCategories.ItemById(\r\n  id: integer): TTMSFNCTableViewCategory;\r\nvar\r\n  i: integer;\r\nbegin\r\n  Result := nil;\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    if Items[I].ID = id then\r\n    begin\r\n      Result := Items[I];\r\n      break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTableViewCategories.ItemIndexByID(id: integer): integer;\r\nvar\r\n  ci: TTMSFNCTableViewCategory;\r\nbegin\r\n  ci := ItemByID(id);\r\n  if Assigned(ci) then\r\n    result := ci.Index\r\n  else\r\n    result := -1;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewCategories.QuickSort(L: Integer; R: Integer; ACaseSensitive: Boolean = True; ASortingMode: TTMSFNCTableViewCategoriesSortMode = tvcsmAscending);\r\nvar\r\n  I, J, p: Integer;\r\n  {$IFDEF LCLWEBLIB}\r\n  SortList: TFPList;\r\n\r\n  procedure ExchangeItems(Index1, Index2: Integer);\r\n  var\r\n    {$IFDEF WEBLIB}\r\n    Save: JSValue;\r\n    {$ENDIF}\r\n    {$IFNDEF WEBLIB}\r\n    Save: Pointer;\r\n    {$ENDIF}\r\n  begin\r\n    Save := SortList.Items[Index1];\r\n    SortList.Items[Index1] := SortList.Items[Index2];\r\n    SortList.Items[Index2] := Save;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  SortList: TList<TCollectionItem>;\r\n\r\n  procedure ExchangeItems(Index1, Index2: Integer);\r\n  var\r\n    Save: TCollectionItem;\r\n  begin\r\n    Save := SortList[Index1];\r\n    SortList[Index1] := SortList[Index2];\r\n    SortList[Index2] := Save;\r\n    Save.Index := Index2;\r\n  end;\r\n  {$ENDIF}\r\nbegin\r\n  //This cast allows us to get at the private elements in the base class\r\n  {$IFNDEF WEBLIB}\r\n  SortList := {%H-}TShadowedCollection(Self).FItems;\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  SortList := Self.FPList;\r\n  {$ENDIF}\r\n\r\n  repeat\r\n    I := L;\r\n    J := R;\r\n    P := (L + R) shr 1;\r\n    repeat\r\n      while Compare(Items[I], Items[P], ACaseSensitive, ASortingMode) < 0 do\r\n        Inc(I);\r\n      while Compare(Items[J], Items[P], ACaseSensitive, ASortingMode) > 0 do\r\n        Dec(J);\r\n      if I <= J then\r\n      begin\r\n        ExchangeItems(I, J);\r\n        if P = I then\r\n          P := J\r\n        else if P = J then\r\n          P := I;\r\n        Inc(I);\r\n        Dec(J);\r\n      end;\r\n    until I > J;\r\n    if L < J then\r\n      QuickSort(L, J, ACaseSensitive, ASortingMode);\r\n    L := I;\r\n  until I >= R;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewCategories.SetItem(Index: Integer;\r\n  const Value: TTMSFNCTableViewCategory);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewCategories.Sort(ACaseSensitive: Boolean = True; ASortingMode: TTMSFNCTableViewCategoriesSortMode = tvcsmAscending);\r\nvar\r\n  l: TTMSFNCCustomTableView;\r\nbegin\r\n  l := FTableView;\r\n  if Assigned(l) then\r\n  begin\r\n    l.BeginUpdate;\r\n    BeginUpdate;\r\n    if Count > 1 then\r\n      QuickSort(0, Pred(Count), ACaseSensitive, ASortingMode);\r\n    EndUpdate;\r\n    l.EndUpdate;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCTableViewMoreOption }\r\n\r\nprocedure TTMSFNCTableViewMoreOption.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTMSFNCTableViewMoreOption) then\r\n  begin\r\n    FText := (Source as TTMSFNCTableViewMoreOption).Text;\r\n    FWidth := (Source as TTMSFNCTableViewMoreOption).Width;\r\n    FColor := (Source as TTMSFNCTableViewMoreOption).Color;\r\n    FBorderColor := (Source as TTMSFNCTableViewMoreOption).BorderColor;\r\n    FFontColor := (Source as TTMSFNCTableViewMoreOption).FontColor;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewMoreOption.Changed;\r\nbegin\r\n  if Assigned(FTableView) then\r\n    FTableView.UpdateTableView;\r\nend;\r\n\r\nconstructor TTMSFNCTableViewMoreOption.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  FTableView := (Collection as TTMSFNCTableViewMoreOptions).FTableView;\r\n  FWidth := 60;\r\n  FColor := gcNull;\r\n  FBorderColor := gcNull;\r\n  FFontColor := gcNull;\r\n  if Assigned(FTableView) then\r\n    FTableView.UpdateTableView;\r\nend;\r\n\r\ndestructor TTMSFNCTableViewMoreOption.Destroy;\r\nbegin\r\n  inherited;\r\n  if Assigned(FTableView) then\r\n    FTableView.UpdateTableView;\r\nend;\r\n\r\nfunction TTMSFNCTableViewMoreOption.GetStrippedHTMLText: String;\r\nbegin\r\n  Result := TTMSFNCUtils.HTMLStrip(Text);\r\nend;\r\n\r\nfunction TTMSFNCTableViewMoreOption.IsWidthStored: Boolean;\r\nbegin\r\n  Result := Width <> 60;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewMoreOption.SetBorderColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FBorderColor <> Value then\r\n  begin\r\n    FBorderColor := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewMoreOption.SetColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FColor <> Value then\r\n  begin\r\n    FColor := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewMoreOption.SetFontColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FFontColor <> Value then\r\n  begin\r\n    FFontColor := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewMoreOption.SetText(const Value: String);\r\nbegin\r\n  if FText <> value then\r\n  begin\r\n    FText := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewMoreOption.SetWidth(const Value: Single);\r\nbegin\r\n  if FWidth <> Value then\r\n  begin\r\n    FWidth := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCTableViewMoreOptions }\r\n\r\nfunction TTMSFNCTableViewMoreOptions.Add: TTMSFNCTableViewMoreOption;\r\nbegin\r\n  Result := TTMSFNCTableViewMoreOption(inherited Add);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewMoreOptions.Clear;\r\nvar\r\n  it: TTMSFNCTableViewMoreOption;\r\nbegin\r\n  if Count > 0 then\r\n  begin\r\n    while Count > 0 do\r\n    begin\r\n      it := Items[Count - 1];\r\n      it.Free;\r\n    end;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCTableViewMoreOptions.Create(ATableView: TTMSFNCCustomTableView);\r\nbegin\r\n  inherited Create(ATableView, TTMSFNCTableViewMoreOption);\r\n  FTableView := ATableView;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewMoreOptions.Delete(Index: Integer);\r\nvar\r\n  it: TTMSFNCTableViewMoreOption;\r\nbegin\r\n  it := Items[Index];\r\n  it.Free;\r\nend;\r\n\r\nfunction TTMSFNCTableViewMoreOptions.GetItem(\r\n  Index: Integer): TTMSFNCTableViewMoreOption;\r\nbegin\r\n  Result := TTMSFNCTableViewMoreOption(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCTableViewMoreOptions.Insert(\r\n  Index: Integer): TTMSFNCTableViewMoreOption;\r\nbegin\r\n  Result := TTMSFNCTableViewMoreOption(inherited Insert(Index));\r\nend;\r\n\r\nfunction TTMSFNCTableViewMoreOptions.ItemById(\r\n  id: integer): TTMSFNCTableViewMoreOption;\r\nvar\r\n  i: integer;\r\nbegin\r\n  Result := nil;\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    if Items[I].ID = id then\r\n    begin\r\n      Result := Items[I];\r\n      break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTableViewMoreOptions.ItemIndexByID(id: integer): integer;\r\nvar\r\n  ci: TTMSFNCTableViewMoreOption;\r\nbegin\r\n  ci := ItemByID(id);\r\n  if Assigned(ci) then\r\n    Result := ci.Index\r\n  else\r\n    Result := -1;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewMoreOptions.SetItem(Index: Integer;\r\n  const Value: TTMSFNCTableViewMoreOption);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{$IFDEF LCLLIB}\r\nclass operator TTMSFNCTableViewDisplayItem.=(z1, z2: TTMSFNCTableViewDisplayItem)b: boolean;\r\nbegin\r\n  Result := z1 = z2;\r\nend;\r\n\r\nclass operator TTMSFNCTableViewLookupBarDisplayItem.=(z1, z2: TTMSFNCTableViewLookupBarDisplayItem)b: boolean;\r\nbegin\r\n  Result := z1 = z2;\r\nend;\r\n{$ENDIF}\r\n\r\n{ TTMSFNCTableViewLookupBar }\r\n\r\nprocedure TTMSFNCTableViewLookupBar.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTMSFNCTableViewLookupBar) then\r\n  begin\r\n    FVisible := (Source as TTMSFNCTableViewLookupBar).Visible;\r\n    FFont.Assign((Source as TTMSFNCTableViewLookupBar).Font);\r\n    FInActiveFont.Assign((Source as TTMSFNCTableViewLookupBar).InActiveFont);\r\n    FStroke.Assign((Source as TTMSFNCTableViewLookupBar).Stroke);\r\n    FFill.Assign((Source as TTMSFNCTableViewLookupBar).Fill);\r\n    FAutoLookup := (Source as TTMSFNCTableViewLookupBar).AutoLookup;\r\n    FWidth := (Source as TTMSFNCTableViewLookupBar).Width;\r\n    FPosition := (Source as TTMSFNCTableViewLookupBar).Position;\r\n    FDownFill.Assign((Source as TTMSFNCTableViewLookupBar).DownFill);\r\n    FDownStroke.Assign((Source as TTMSFNCTableViewLookupBar).DownStroke);\r\n    FIncludeFilteredItems := (Source as TTMSFNCTableViewLookupBar).IncludeFilteredItems;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCTableViewLookupBar.Create(\r\n  ATableView: TTMSFNCCustomTableView);\r\nbegin\r\n  FTableView := ATableView;\r\n  FWidth := 25;\r\n  FIncludeFilteredItems := True;\r\n  FVisible := True;\r\n  FPosition := tvlbpRight;\r\n  FAutoLookup := True;\r\n  FFont := TTMSFNCGraphicsFont.Create;\r\n  FFont.OnChanged := @FontChanged;\r\n  FInActiveFont := TTMSFNCGraphicsFont.Create;\r\n  if Assigned(FTableView) and FTableView.IsDesignTime then\r\n    FInActiveFont.Color := gcSilver;\r\n  FInActiveFont.OnChanged := @FontChanged;\r\n  FFill := TTMSFNCGraphicsFill.Create(gfkSolid, gcWhite);\r\n  FFill.OnChanged := @FillChanged;\r\n  FStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcWhite);\r\n  FStroke.OnChanged := @StrokeChanged;\r\n\r\n  FDownFill := TTMSFNCGraphicsFill.Create(gfkSolid, MakeGraphicsColor(249, 249, 249));\r\n  FDownFill.OnChanged := @FillChanged;\r\n  FDownStroke := TTMSFNCGraphicsStroke.Create(gskSolid, MakeGraphicsColor(249, 249, 249));\r\n  FDownStroke.OnChanged := @StrokeChanged;\r\nend;\r\n\r\ndestructor TTMSFNCTableViewLookupBar.Destroy;\r\nbegin\r\n  FFont.Free;\r\n  FInActiveFont.Free;\r\n  FFill.Free;\r\n  FStroke.Free;\r\n  FDownFill.Free;\r\n  FDownStroke.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewLookupBar.FillChanged(Sender: TObject);\r\nbegin\r\n  if Assigned(FTableView) then\r\n    FTableView.UpdateTableView;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewLookupBar.FontChanged(Sender: TObject);\r\nbegin\r\n  if Assigned(FTableView) then\r\n    FTableView.UpdateTableView;\r\nend;\r\n\r\nfunction TTMSFNCTableViewLookupBar.IsWidthStored: Boolean;\r\nbegin\r\n  Result := Width <> 25;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewLookupBar.SetAutoLookup(const Value: Boolean);\r\nbegin\r\n  FAutoLookup := Value;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewLookupBar.SetDownFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FDownFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewLookupBar.SetDownStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FDownStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewLookupBar.SetFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewLookupBar.SetFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FFont.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewLookupBar.SetInActiveFont(\r\n  const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FInActiveFont.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewLookupBar.SetPosition(\r\n  const Value: TTMSFNCTableViewLookupBarPosition);\r\nbegin\r\n  if FPosition <> Value then\r\n  begin\r\n    FPosition := Value;\r\n    if Assigned(FTableView) then\r\n      FTableView.UpdateTableView;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewLookupBar.SetStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewLookupBar.SetVisible(const Value: Boolean);\r\nbegin\r\n  if FVisible <> Value then\r\n  begin\r\n    FVisible := Value;\r\n    if Assigned(FTableView) then\r\n      FTableView.UpdateTableView;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewLookupBar.SetWidth(const Value: Single);\r\nbegin\r\n  if FWidth <> Value then\r\n  begin\r\n    FWidth := Value;\r\n    if Assigned(FTableView) then\r\n      FTableView.UpdateTableView;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewLookupBar.StrokeChanged(Sender: TObject);\r\nbegin\r\n  if Assigned(FTableView) then\r\n    FTableView.UpdateTableView;\r\nend;\r\n\r\n{ TTMSFNCTableViewReload }\r\n\r\nprocedure TTMSFNCTableViewReload.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCTableViewReload then\r\n  begin\r\n    FOffset := (Source as TTMSFNCTableViewReload).Offset;\r\n    FSize := (Source as TTMSFNCTableViewReload).Size;\r\n    FEnabled := (Source as TTMSFNCTableViewReload).Enabled;\r\n    FStroke.Assign((Source as TTMSFNCTableViewReload).Stroke);\r\n    FProgressMode := (Source as TTMSFNCTableViewReload).ProgressMode;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCTableViewReload.Create(ATableView: TTMSFNCCustomTableView);\r\nbegin\r\n  FTableView := ATableView;\r\n  FOffset := 40;\r\n  FSize := 20;\r\n  FEnabled := False;\r\n  FProgressMode := tvrpmMarquee;\r\n  FStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcDarkgray);\r\n  if Assigned(FTableView) and FTableView.IsDesignTime then\r\n    FStroke.Width := 2;\r\nend;\r\n\r\ndestructor TTMSFNCTableViewReload.Destroy;\r\nbegin\r\n  FStroke.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCTableViewReload.IsOffsetStored: Boolean;\r\nbegin\r\n  Result := Offset <> 40;\r\nend;\r\n\r\nfunction TTMSFNCTableViewReload.IsSizeStored: Boolean;\r\nbegin\r\n  Result := Size <> 20;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewReload.SetEnabled(const Value: Boolean);\r\nbegin\r\n  if FEnabled <> Value then\r\n  begin\r\n    FEnabled := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewReload.SetOffset(const Value: Single);\r\nbegin\r\n  if FOffset <> Value then\r\n  begin\r\n    FOffset := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewReload.SetProgressMode(\r\n  const Value: TTMSFNCTableViewReloadProgressMode);\r\nbegin\r\n  if FProgressMode <> Value then\r\n  begin\r\n    FProgressMode := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewReload.SetSize(const Value: Single);\r\nbegin\r\n  if FSize <> Value then\r\n  begin\r\n    FSize := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCTableViewReload.SetStroke(const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FStroke.Assign(Value);\r\nend;\r\n\r\n{$IFDEF WEBLIB}\r\nfunction TTMSFNCTreeViewTableViewFloatingNodes.GetItem(Index: Integer): TTMSFNCTreeViewVirtualNode;\r\nbegin\r\n  Result := TTMSFNCTreeViewVirtualNode(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCTreeViewTableViewFloatingNodes.SetItem(Index: Integer; const Value: TTMSFNCTreeViewVirtualNode);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nfunction TTMSFNCTableViewLookupBarDisplayList.GetItem(Index: Integer): TTMSFNCTableViewLookupBarDisplayItem;\r\nbegin\r\n  Result := TTMSFNCTableViewLookupBarDisplayItem(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewLookupBarDisplayList.SetItem(Index: Integer; const Value: TTMSFNCTableViewLookupBarDisplayItem);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nfunction TTMSFNCTableViewDisplayList.GetItem(Index: Integer): TTMSFNCTableViewDisplayItem;\r\nbegin\r\n  Result := TTMSFNCTableViewDisplayItem(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewDisplayList.SetItem(Index: Integer; const Value: TTMSFNCTableViewDisplayItem);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nfunction TTMSFNCTableViewCustomCharList.GetItem(Index: Integer): TTMSFNCTableViewCustomChar;\r\nbegin\r\n  Result := TTMSFNCTableViewCustomChar(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCTableViewCustomCharList.SetItem(Index: Integer; const Value: TTMSFNCTableViewCustomChar);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n{$ENDIF}\r\n\r\n{ TTMSFNCTableViewCustomChar }\r\n\r\nconstructor TTMSFNCTableViewCustomChar.Create(AID: Integer; AActive: Boolean);\r\nbegin\r\n  FID := AID;\r\n  FActive := AActive;\r\nend;\r\n\r\n{ TTMSFNCTableViewCustomCharList }\r\n\r\nprocedure TTMSFNCTableViewCustomCharList.ActivateID(AID: Integer);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    if Items[I].ID = AID then\r\n    begin\r\n      Items[I].Active := True;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCTableViewCustomCharList.IsIDActive(AID: Integer): Boolean;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := False;\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    if Items[I].ID = AID then\r\n    begin\r\n      Result := Items[I].Active;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\n\r\nend.\r\n","{********************************************************************}\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : https://www.tmssoftware.com                       }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCSignatureCapture;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\ninterface\r\n\r\nuses\r\n  {$IFNDEF LCLLIB}\r\n  {$IFNDEF WEBLIB}\r\n  Generics.Collections, UITypes,\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  Contnrs, WEBLib.Controls,\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  fgl, Controls,\r\n  {$ENDIF}\r\n  Classes, Types, WEBLib.TMSFNCCustomControl, WEBLib.Graphics,\r\n  WEBLib.TMSFNCGraphicsTypes, WEBLib.TMSFNCGraphics, WEBLib.TMSFNCTypes\r\n  ,TypInfo;\r\n\r\nconst\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 0; // Minor version nr.\r\n  REL_VER = 1; // Release nr.\r\n  BLD_VER = 3; // Build nr.\r\n\r\n  //Version history\r\n  //v1.0.0.0 : First Release\r\n  //v1.0.0.1 : Fixed : Issue with signature export on TMS WEB Core\r\n  //v1.0.0.2 : Fixed : Issue in Lazarus exporting to image\r\n  //v1.0.1.0 : New : Support for high dpi\r\n  //v1.0.1.1 : Fixed : Issue with writing proper signature point count\r\n  //v1.0.1.2 : Fixed : Issue exporting images\r\n  //v1.0.1.3 : Fixed : Issue with clearing signature\r\n\r\ntype\r\n  TTMSFNCSignatureCaptureStoredPoint = class(TObject)\r\n  public\r\n    X, Y, PenWidth: Single;\r\n    DrawLine: Boolean;\r\n    PenColor: TTMSFNCGraphicsColor;\r\n  end;\r\n\r\n  TTMSFNCSignatureCaptureTextHintPosition = (tpBottomCenter, tpBottomLeft, tpBottomRight, tpTopCenter, tpTopLeft, tpTopRight, tpXY, tpNone);\r\n  TTMSFNCSignatureCaptureClearSignPosition = (cpBottomCenter, cpBottomLeft, cpBottomRight, cpTopCenter, cpTopLeft, cpTopRight, cpXY, cpNone);\r\n\r\n  TTMSFNCSignatureCaptureClearPosition = class(TPersistent)\r\n  private\r\n    FImage: TTMSFNCBitmap;\r\n    FX: Single;\r\n    FY: Single;\r\n    FPosition: TTMSFNCSignatureCaptureClearSignPosition;\r\n    FOnChange: TNotifyEvent;\r\n    procedure SetImage(const Value: TTMSFNCBitmap);\r\n    procedure SetPosition(const Value: TTMSFNCSignatureCaptureClearSignPosition);\r\n    procedure SetX(const Value: Single);\r\n    procedure SetY(const Value: Single);\r\n    function IsXStored: Boolean;\r\n    function IsYStored: Boolean;\r\n  protected\r\n    procedure ImageChanged(Sender: TObject);\r\n    procedure Changed; virtual;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property X: Single read FX write SetX stored IsXStored nodefault;\r\n    property Y: Single read FY write SetY stored IsYStored nodefault;\r\n    property Position: TTMSFNCSignatureCaptureClearSignPosition read FPosition write SetPosition default cpBottomLeft;\r\n    property Image: TTMSFNCBitmap read FImage write SetImage;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  end;\r\n\r\n  TTMSFNCSignatureCaptureTextPosition = class(TPersistent)\r\n  private\r\n    FX: Single;\r\n    FY: Single;\r\n    FOnChange: TNotifyEvent;\r\n    FLine: TTMSFNCGraphicsStroke;\r\n    FPosition: TTMSFNCSignatureCaptureTextHintPosition;\r\n    procedure SetX(const Value: Single);\r\n    procedure SetY(const Value: Single);\r\n    procedure SetPosition(const Value: TTMSFNCSignatureCaptureTextHintPosition);\r\n    procedure SetLine(const Value: TTMSFNCGraphicsStroke);\r\n    function IsXStored: Boolean;\r\n    function IsYStored: Boolean;\r\n  protected\r\n    procedure Changed; virtual;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property X: Single read FX write SetX stored IsXStored nodefault;\r\n    property Y: Single read FY write SetY stored IsYStored nodefault;\r\n    property Position: TTMSFNCSignatureCaptureTextHintPosition read FPosition write SetPosition default tpBottomCenter;\r\n    property Line: TTMSFNCGraphicsStroke read FLine write SetLine;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  end;\r\n\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCSignatureCapturePoints = class(TObjectList<TTMSFNCSignatureCaptureStoredPoint>);\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCSignatureCapturePoints = class(TObjectList)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCSignatureCaptureStoredPoint;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCSignatureCaptureStoredPoint);\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCSignatureCaptureStoredPoint read GetItem write SetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  TTMSFNCCustomSignatureCapture = class(TTMSFNCCustomControl)\r\n  private\r\n    FExport: Boolean;\r\n    FBmpStream: TBitmap;\r\n    FDrawing: Boolean;\r\n    FSignaturePoints: TTMSFNCSignatureCapturePoints;\r\n    FPen: TTMSFNCGraphicsStroke;\r\n    FTextPosition: TTMSFNCSignatureCaptureTextPosition;\r\n    FText: string;\r\n    FClearSig: TTMSFNCSignatureCaptureClearPosition;\r\n    FClearRect: TRectF;\r\n    FFont: TTMSFNCGraphicsFont;\r\n    procedure SetPen(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetTextPosition(const Value: TTMSFNCSignatureCaptureTextPosition);\r\n    procedure SetText(const Value: string);\r\n    procedure SetClearSig(const Value: TTMSFNCSignatureCaptureClearPosition);\r\n    procedure SetEmpty(const Value: Boolean);\r\n    procedure SetFnt(const Value: TTMSFNCGraphicsFont);\r\n    {$IFNDEF WEBLIB}\r\n    procedure WriteStringToStream(const Stream: TStream; const S: string);\r\n    function ReadStringFromStream(const Stream: TStream): string;\r\n    {$ENDIF}\r\n    function IsTextStored: Boolean;\r\n    function GetEmpty: Boolean;\r\n  protected\r\n    procedure ChangeDPIScale(M, D: Integer); override;\r\n    procedure ClearSignChanged(Sender: TObject);\r\n    procedure TextPositionChanged(Sender: TObject);\r\n    procedure HandleMouseDown({%H-}Button: TTMSFNCMouseButton; {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Single); override;\r\n    procedure HandleMouseMove({%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Single); override;\r\n    procedure HandleMouseUp({%H-}Button: TTMSFNCMouseButton; {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Single); override;\r\n    procedure Draw({%H-}AGraphics: TTMSFNCGraphics; {%H-}ARect: TRectF); override;\r\n    procedure DrawSignText(AGraphics: TTMSFNCGraphics; ARect: TRectF; var ACRect: TRectF);\r\n    procedure DrawClearIcon(AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\n    procedure DrawSignature(AGraphics: TTMSFNCGraphics);\r\n    function GetVersion: string; override;\r\n    function GetClearRect(ARect: TRectF): TRectF;\r\n    function IsAppearanceProperty({%H-}AObject: TObject; {%H-}APropertyName: string; {%H-}APropertyType: TTypeKind): Boolean; override;\r\n    property Pen: TTMSFNCGraphicsStroke read FPen write SetPen;\r\n    property Text: string read FText write SetText stored IsTextStored nodefault;\r\n    property TextPosition: TTMSFNCSignatureCaptureTextPosition read FTextPosition write SetTextPosition;\r\n    property ClearSig: TTMSFNCSignatureCaptureClearPosition read FClearSig write SetClearSig;\r\n    property Font: TTMSFNCGraphicsFont read FFont write SetFnt;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    {$IFNDEF WEBLIB}\r\n    procedure LoadFromStream(AStream: TStream);\r\n    procedure LoadFromFile(FileName: string);\r\n    procedure SaveToImageFile(FileName: string);\r\n    procedure SaveToImageStream(AStream: TStream);\r\n    procedure SaveToStream(AStream: TStream);\r\n    procedure SaveToFile(FileName: string);\r\n    function GetImageFromStream(AStream: TStream): TBitmap;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    function GetBase64Img: string;\r\n    {$ENDIF}\r\n    property Empty: Boolean read GetEmpty write SetEmpty;\r\n    property SignaturePoints: TTMSFNCSignatureCapturePoints read FSignaturePoints;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCSignatureCapture = class(TTMSFNCCustomSignatureCapture)\r\n  published\r\n    property Fill;\r\n    property Stroke;\r\n    property Font;\r\n    property Pen;\r\n    property Text;\r\n    property TextPosition;\r\n    property ClearSig;\r\n  end;\r\n\r\n{$IFDEF WEBLIB}\r\nconst\r\n  TTMSFNCSIGNATURECAPTURECLEAR = 'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAACXBIWXMAAA7DAAAOwwHHb6hkAAABl0lEQVRIidWVsVnDMBCFf0JD6RFcUj' +\r\n                                 'obKBvABCQTgCfgMUGygd1RBiZAG2A6OsIEZAQKnb8oQnYCVHmVrLt77+4kneHUcdYvJJXAEiiAZ6CVtP2vwCRaL4ErwNn6Q5L+KxBXsDaBFB0wO7YaSUXPI6mNK6iBHE' +\r\n                                 'lFqKY6QOwkNcAXcAv4vQrMqQTWRprDQlKbxMyBG0JrAVaS6t6+JxAFCbgfE5HkgAYobX9jNh87ZwVMpDKCXDVdsr8CHnLnNCgQCYnhajZkso4xGTIkArMBsx8jBzg/Qu' +\r\n                                 'AKeAQuMubKOffpve+G4kcrkLQk3KrCtrbAU+LWjF3hrICkQtIrcBdtbwkP7hpYJCFre2CHBSybD/ZvSU/emU+biJSEG/cDe2dg5C/sWvKDvIf3vnPOlVEil865N+/9e+' +\r\n                                 'yXTtPXhBzgWlLa9zipBpjb5waYxu8hblGTIa/HyE1gAbT2WZK8mTNzqiz7GK0FH4Wkkmnf0r6CdEz/itxQE0YIhP8JsUDLblSv/kCO9X1mIs6G4eFZ9AehgnAOpb2ZE8' +\r\n                                 'c3BUakH/cxNusAAAAASUVORK5CYII=';\r\n{$ENDIF}\r\n\r\nimplementation\r\n\r\nuses\r\n  WEBLib.TMSFNCUtils;\r\n\r\n{$R TMSFNCSignatureCapture.res}\r\n\r\nconst\r\n  TEXTMARGIN = 3;\r\n  CLEARMARGIN = 4;\r\n\r\n{ TTMSFNCCustomSignatureCapture }\r\n\r\nprocedure TTMSFNCCustomSignatureCapture.ChangeDPIScale(M, D: Integer);\r\nbegin\r\n  inherited;\r\n  FFont.Height := TTMSFNCUtils.MulDivInt(FFont.Height, M, D);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSignatureCapture.ClearSignChanged(Sender: TObject);\r\nbegin\r\n  Invalidate;\r\nend;\r\n\r\nconstructor TTMSFNCCustomSignatureCapture.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  Width := 400;\r\n  Height := 300;\r\n  FDrawing := False;\r\n  FText := 'Sign here.';\r\n\r\n  FBmpStream := TBitmap.Create;\r\n  FSignaturePoints := TTMSFNCSignatureCapturePoints.Create;\r\n  FPen := TTMSFNCGraphicsStroke.Create;\r\n  FPen.Color := gcBlack;\r\n  FTextPosition := TTMSFNCSignatureCaptureTextPosition.Create;\r\n  FClearSig := TTMSFNCSignatureCaptureClearPosition.Create;\r\n  FClearRect := RectF(0, 0, 0, 0);\r\n  FFont := TTMSFNCGraphicsFont.Create;\r\n  FClearSig.OnChange := @ClearSignChanged;\r\n  FTextPosition.OnChange := @TextPositionChanged;\r\n\r\n  {$IFDEF CMNLIB}\r\n  {$IFDEF MSWINDOWS}\r\n  NativeCanvas := True;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nend;\r\n\r\ndestructor TTMSFNCCustomSignatureCapture.Destroy;\r\nbegin\r\n  FBmpStream.Free;\r\n  FSignaturePoints.Free;\r\n  FPen.Free;\r\n  FTextPosition.Free;\r\n  FClearSig.Free;\r\n  FFont.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSignatureCapture.Draw(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF);\r\nvar\r\n  cr: TRectF;\r\nbegin\r\n  if not FExport then\r\n  begin\r\n    inherited;\r\n    cr := ARect;\r\n    DrawSignText(AGraphics, ARect, cr);\r\n    FClearRect := GetClearRect(cr);\r\n    DrawClearIcon(AGraphics, FClearRect);\r\n  end;\r\n  DrawSignature(AGraphics);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSignatureCapture.DrawClearIcon(\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nbegin\r\n  if Assigned(FClearSig.Image) and not IsBitmapEmpty(FClearSig.Image) and (FClearSig.Position <> cpNone) then\r\n  begin\r\n//    AGraphics.DrawBitmap(ARect.Left, ARect.Top, FClearSig.Image, true, true);\r\n    AGraphics.DrawBitmap(ARect, FClearSig.Image, true, true);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSignatureCapture.DrawSignature(\r\n  AGraphics: TTMSFNCGraphics);\r\nvar\r\n  I: Integer;\r\n  sp: TTMSFNCSignatureCaptureStoredPoint;\r\nbegin\r\n  if FSignaturePoints.Count >= 2 then\r\n  begin\r\n    for I := 0 to FSignaturePoints.Count - 2 do\r\n    begin\r\n      if FSignaturePoints.Items[I+1].DrawLine then\r\n      begin\r\n        sp := FSignaturePoints.Items[I];\r\n        AGraphics.Stroke.Color := sp.PenColor;\r\n        AGraphics.Stroke.Width := sp.PenWidth;\r\n        AGraphics.DrawLine(PointF(FSignaturePoints.Items[I].X, FSignaturePoints.Items[I].Y), PointF(FSignaturePoints.Items[I+1].X, FSignaturePoints.Items[I+1].Y));\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSignatureCapture.DrawSignText(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; var ACRect: TRectF);\r\nvar\r\n  th, tw: Single;\r\n  tp: TPointF;\r\nbegin\r\n  AGraphics.Font.AssignSource(Font);\r\n\r\n  th := AGraphics.CalculateTextHeight(Text) + ScalePaintValue(2 * TEXTMARGIN);\r\n  tw := AGraphics.CalculateTextWidth(Text);\r\n\r\n  case FTextPosition.Position of\r\n    tpBottomCenter, tpBottomLeft, tpBottomRight:\r\n    begin\r\n      AGraphics.Stroke.Assign(FTextPosition.Line);\r\n      AGraphics.DrawLine(PointF(0, ARect.Bottom - th), PointF(ARect.Right, ARect.Bottom - th));\r\n      ACRect.Bottom := ACRect.Bottom - th;\r\n    end;\r\n    tpTopCenter, tpTopLeft, tpTopRight:\r\n    begin\r\n      AGraphics.Stroke.Assign(FTextPosition.Line);\r\n      AGraphics.DrawLine(PointF(0, ARect.Top + th), PointF(ARect.Right, ARect.Top + th));\r\n      ACRect.Top := ACRect.Top + th;\r\n    end;\r\n  end;\r\n\r\n  if FTextPosition.Position <> tpNone then\r\n  begin\r\n    case FTextPosition.Position of\r\n      tpBottomCenter: tp := PointF((ARect.Right - ARect.Left) / 2 - tw / 2, ARect.Bottom - th + ScalePaintValue(TEXTMARGIN));\r\n      tpBottomLeft: tp := PointF(TEXTMARGIN, ARect.Bottom - th + ScalePaintValue(TEXTMARGIN));\r\n      tpBottomRight: tp := PointF(ARect.Right - tw -  ScalePaintValue(TEXTMARGIN), ARect.Bottom - th + ScalePaintValue(TEXTMARGIN));\r\n      tpTopCenter: tp := PointF((ARect.Right - ARect.Left) / 2 - tw / 2, ARect.Top + ScalePaintValue(TEXTMARGIN));\r\n      tpTopLeft: tp := PointF(ScalePaintValue(TEXTMARGIN), ARect.Top + ScalePaintValue(TEXTMARGIN));\r\n      tpTopRight: tp := PointF(ARect.Right - tw - ScalePaintValue(TEXTMARGIN), ARect.Top + ScalePaintValue(TEXTMARGIN));\r\n      tpXY: tp := PointF(FTextPosition.X, FTextPosition.Y);\r\n    end;\r\n\r\n    AGraphics.DrawText(tp, Text);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomSignatureCapture.GetClearRect(ARect: TRectF): TRectF;\r\nvar\r\n  w, h: Single;\r\nbegin\r\n  w := ScalePaintValue(FClearSig.Image.Width);\r\n  h := ScalePaintValue(FClearSig.Image.Height);\r\n\r\n  case FClearSig.Position of\r\n    cpBottomCenter:\r\n    begin\r\n      Result.Top := ARect.Bottom - h - ScalePaintValue(CLEARMARGIN);\r\n      Result.Left := (ARect.Right - ARect.Left - w) / 2;\r\n    end;\r\n    cpBottomLeft:\r\n    begin\r\n      Result.Top := ARect.Bottom - h - ScalePaintValue(CLEARMARGIN);\r\n      Result.Left := ARect.Left + ScalePaintValue(CLEARMARGIN);\r\n    end;\r\n    cpBottomRight:\r\n    begin\r\n      Result.Top := ARect.Bottom - h - ScalePaintValue(CLEARMARGIN);\r\n      Result.Left := ARect.Right - ScalePaintValue(CLEARMARGIN) - w;\r\n    end;\r\n    cpTopCenter:\r\n    begin\r\n      Result.Top := ARect.Top + ScalePaintValue(CLEARMARGIN);\r\n      Result.Left := (ARect.Right - ARect.Left - w) / 2;\r\n    end;\r\n    cpTopLeft:\r\n    begin\r\n      Result.Top := ARect.Top + ScalePaintValue(CLEARMARGIN);\r\n      Result.Left := ARect.Left + ScalePaintValue(CLEARMARGIN);\r\n    end;\r\n    cpTopRight:\r\n    begin\r\n      Result.Top := ARect.Top + ScalePaintValue(CLEARMARGIN);\r\n      Result.Left := ARect.Right - ScalePaintValue(CLEARMARGIN) - w;\r\n    end;\r\n    cpXY:\r\n    begin\r\n      Result.Top := FClearSig.Y;\r\n      Result.Left := FClearSig.X;\r\n    end;\r\n  end;\r\n\r\n  Result.Right := Result.Left + w;\r\n  Result.Bottom := Result.Top + h;\r\n\r\n  FClearRect := Result;\r\nend;\r\n\r\n{$IFDEF WEBLIB}\r\nfunction TTMSFNCCustomSignatureCapture.GetBase64Img: string;\r\nbegin\r\n  FExport := True;\r\n  Invalidate;\r\n  Result := Canvas.GetBase64Image;\r\n  FExport := False;\r\n  Invalidate;\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TTMSFNCCustomSignatureCapture.GetEmpty: Boolean;\r\nbegin\r\n  Result := FSignaturePoints.Count = 0;\r\nend;\r\n\r\nfunction TTMSFNCCustomSignatureCapture.GetVersion: string;\r\nbegin\r\n  Result := GetVersionNumber(MAJ_VER, MIN_VER, REL_VER, BLD_VER);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSignatureCapture.HandleMouseDown(\r\n  Button: TTMSFNCMouseButton; Shift: TShiftState; X, Y: Single);\r\nvar\r\n  np: TTMSFNCSignatureCaptureStoredPoint;\r\nbegin\r\n  inherited;\r\n  if PtInRectEx(FClearRect, PointF(X, Y)) then\r\n  begin\r\n    FSignaturePoints.Clear;\r\n  end\r\n  else\r\n  begin\r\n    FDrawing := True;\r\n    CaptureEx;\r\n    np := TTMSFNCSignatureCaptureStoredPoint.Create;\r\n    np.X := X;\r\n    np.Y := Y;\r\n    np.PenWidth := Pen.Width;\r\n    np.PenColor := Pen.Color;\r\n    np.DrawLine := False;\r\n    FSignaturePoints.Add(np);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSignatureCapture.HandleMouseMove(Shift: TShiftState; X,\r\n  Y: Single);\r\nvar\r\n  np: TTMSFNCSignatureCaptureStoredPoint;\r\nbegin\r\n  inherited;\r\n  if FDrawing then\r\n  begin\r\n    np := TTMSFNCSignatureCaptureStoredPoint.Create;\r\n    np.X := X;\r\n    np.Y := Y;\r\n    np.PenWidth := Pen.Width;\r\n    np.PenColor := Pen.Color;\r\n    np.DrawLine := True;\r\n    FSignaturePoints.Add(np);\r\n    Invalidate;\r\n  end\r\n  else if PtInRectEx(FClearRect, PointF(X, Y)) then\r\n  begin\r\n    Cursor := crHandPoint;\r\n  end\r\n  else\r\n    Cursor := crDefault;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSignatureCapture.HandleMouseUp(\r\n  Button: TTMSFNCMouseButton; Shift: TShiftState; X, Y: Single);\r\nvar\r\n  np: TTMSFNCSignatureCaptureStoredPoint;\r\nbegin\r\n  inherited;\r\n  if not PtInRectEx(FClearRect, PointF(X, Y)) then\r\n  begin\r\n    np := TTMSFNCSignatureCaptureStoredPoint.Create;\r\n    np.X := X;\r\n    np.Y := Y;\r\n    np.PenWidth := Pen.Width;\r\n    np.PenColor := Pen.Color;\r\n    np.DrawLine := True;\r\n    FSignaturePoints.Add(np);\r\n    FDrawing := False;\r\n    ReleaseCaptureEx;\r\n  end;\r\n\r\n  Invalidate;\r\nend;\r\n\r\nfunction TTMSFNCCustomSignatureCapture.IsAppearanceProperty(AObject: TObject;\r\n  APropertyName: string; APropertyType: TTypeKind): Boolean;\r\nbegin\r\n  Result := inherited IsAppearanceProperty(AObject, APropertyName, APropertyType);\r\n  Result := Result or (APropertyName = 'Pen') or (APropertyName = 'TextPosition');\r\nend;\r\n\r\nfunction TTMSFNCCustomSignatureCapture.IsTextStored: Boolean;\r\nbegin\r\n  Result := FText <> 'Sign here.';\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\nprocedure TTMSFNCCustomSignatureCapture.LoadFromFile(FileName: string);\r\nvar\r\n  ms: TMemoryStream;\r\nbegin\r\n  ms := TMemoryStream.Create;\r\n  try\r\n    ms.LoadFromFile(FileName);\r\n    ms.Position := 0;\r\n    LoadFromStream(ms);\r\n  finally\r\n    ms.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSignatureCapture.LoadFromStream(AStream: TStream);\r\nvar\r\n  I, sizeTest: Integer;\r\n  point: TTMSFNCSignatureCaptureStoredPoint;\r\n  {$IFDEF CMNLIB}\r\n  x, y, w, f: Integer;\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  x, y, w, f: Single;\r\n  {$ENDIF}\r\n  c: TTMSFNCGraphicsColor;\r\n  d: boolean;\r\n  sTest: string;\r\nbegin\r\n  sizeTest := Random(50);\r\n  AStream.Position := 0;\r\n  AStream.Read(c, SizeOf(c));\r\n  Fill.Color := c;\r\n\r\n  AStream.Read(sizeTest, SizeOf(sizeTest));\r\n  FSignaturePoints.Clear;\r\n  for I := 0 to sizeTest - 1 do\r\n  begin\r\n    point := TTMSFNCSignatureCaptureStoredPoint.Create();\r\n\r\n    AStream.Read(x, SizeOf(x));\r\n    AStream.Read(y, SizeOf(y));\r\n    AStream.Read(w, SizeOf(w));\r\n    AStream.Read(c, SizeOf(c));\r\n    AStream.Read(d, SizeOf(d));\r\n\r\n    point.X := x;\r\n    point.Y := y;\r\n    point.PenWidth := w;\r\n    point.PenColor := c;\r\n    point.DrawLine := d;\r\n\r\n    FSignaturePoints.Add(point);\r\n  end;\r\n\r\n  FText := ReadStringFromStream(AStream);\r\n  AStream.Read(f, SizeOf(f));\r\n  Font.Size := f;\r\n  AStream.Read(c, SizeOf(TTMSFNCGraphicsColor));\r\n  Font.Color := c;\r\n  AStream.Read(i, SizeOf(Integer));\r\n  {$IFNDEF LCLLIB}\r\n  Font.Style := TFontStyles(Byte(I));\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  Font.Style := TFontStyles(Integer(I));\r\n  {$ENDIF}\r\n  sTest := ReadStringFromStream(AStream);\r\n  Font.Name := TFontName(sTest);\r\n  Invalidate;\r\nend;\r\n\r\nfunction TTMSFNCCustomSignatureCapture.ReadStringFromStream(\r\n  const Stream: TStream): string;\r\nvar\r\n  n: LongInt;\r\n  size: Integer;\r\nbegin\r\n  Stream.Read(n, SizeOf(n));\r\n  SetLength(Result, n);\r\n  {$IFDEF ZEROSTRINGINDEX}\r\n  size := 0;\r\n  {$ELSE}\r\n  size := 1;\r\n  {$ENDIF}\r\n  if n > 0 then Stream.Read(Result[size], n * SizeOf(Char));\r\nend;\r\n\r\nprocedure TTMSFNCCustomSignatureCapture.SaveToFile(FileName: string);\r\nvar\r\n  ms: TMemoryStream;\r\nbegin\r\n  ms := TMemoryStream.Create;\r\n  try\r\n    SaveToStream(ms);\r\n    ms.SaveToFile(FileName);\r\n  finally\r\n    ms.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSignatureCapture.SaveToImageFile(FileName: string);\r\nvar\r\n  bmp: TBitmap;\r\n  g: TTMSFNCGraphics;\r\nbegin\r\n  bmp := TBitmap.Create;\r\n  bmp.Width := Round(Width);\r\n  bmp.Height := Round(Height);\r\n  g := TTMSFNCGraphics.Create(bmp.Canvas);\r\n  try\r\n    g.BeginScene;\r\n    {$IFDEF LCLLIB}\r\n    g.Fill.Color := Color;\r\n    g.DrawRectangle(RectF(0, 0, Width, Height));\r\n    {$ENDIF}\r\n    DrawSignature(g);\r\n    g.EndScene;\r\n    bmp.SaveToFile(FileName);\r\n  finally\r\n    g.Free;\r\n    bmp.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSignatureCapture.SaveToImageStream(AStream: TStream);\r\nvar\r\n  bmp: TBitmap;\r\n  g: TTMSFNCGraphics;\r\nbegin\r\n  AStream.Position := 0;\r\n  bmp := TBitmap.Create;\r\n  bmp.Width := Round(Width);\r\n  bmp.Height := Round(Height);\r\n  g := TTMSFNCGraphics.Create(bmp.Canvas);\r\n  try\r\n    g.BeginScene;\r\n    {$IFDEF LCLLIB}\r\n    g.Fill.Color := Color;\r\n    g.DrawRectangle(RectF(0, 0, Width, Height));\r\n    {$ENDIF}\r\n    DrawSignature(g);\r\n    g.EndScene;\r\n    bmp.SaveToStream(AStream);\r\n  finally\r\n    g.Free;\r\n    bmp.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSignatureCapture.SaveToStream(AStream: TStream);\r\nvar\r\n  c: TTMSFNCGraphicsColor;\r\n  I: Integer;\r\n  {$IFDEF FMXLIB}\r\n  f: Single;\r\n  {$ENDIF}\r\n  {$IFDEF CMNLIB}\r\n  xi, yi, wi, f: Integer;\r\n  {$ENDIF}\r\n  point: TTMSFNCSignatureCaptureStoredPoint;\r\nbegin\r\n  AStream.Position := 0;\r\n  c := Fill.Color;\r\n  AStream.Write(c, SizeOf(c));\r\n  AStream.Write(FSignaturePoints.Count, SizeOf(Integer(FSignaturePoints.Count)));\r\n\r\n  for I := 0 to FSignaturePoints.Count - 1 do\r\n  begin\r\n    point := FSignaturePoints.Items[I];\r\n    {$IFDEF CMNLIB}\r\n    xi := Round(point.X);\r\n    AStream.Write(xi, SizeOf(xi));\r\n    yi := Round(point.Y);\r\n    AStream.Write(yi, SizeOf(yi));\r\n    wi := Round(point.PenWidth);\r\n    AStream.Write(wi, SizeOf(wi));\r\n    {$ENDIF}\r\n    {$IFDEF FMXLIB}\r\n    AStream.Write(point.X, SizeOf(point.X));\r\n    AStream.Write(point.Y, SizeOf(point.Y));\r\n    AStream.Write(point.PenWidth, SizeOf(point.PenWidth));\r\n    {$ENDIF}\r\n    AStream.Write(point.PenColor, SizeOf(point.PenColor));\r\n    AStream.Write(point.DrawLine, SizeOf(point.DrawLine));\r\n  end;\r\n  WriteStringToStream(AStream, FText);\r\n  {$IFDEF CMNLIB}\r\n  f := Round(Font.Size);\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  f := Font.Size;\r\n  {$ENDIF}\r\n  AStream.Write(f, SizeOf(f));\r\n  AStream.Write(Font.Color, SizeOf(Font.Color));\r\n  {$IFNDEF LCLLIB}\r\n  i := Byte(Font.Style);\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  i := Integer(Font.Style);\r\n  {$ENDIF}\r\n  AStream.Write(I, SizeOf(I));\r\n  WriteStringToStream(AStream, Font.Name);\r\nend;\r\n\r\nfunction TTMSFNCCustomSignatureCapture.GetImageFromStream(\r\n  AStream: TStream): TBitmap;\r\nbegin\r\n  AStream.Position := 0;\r\n  FBmpStream.Width := Round(Width);\r\n  FBmpStream.Height := Round(Height);\r\n  FBmpStream.LoadFromStream(AStream);\r\n  Result := FBmpStream;\r\nend;\r\n\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomSignatureCapture.SetClearSig(\r\n  const Value: TTMSFNCSignatureCaptureClearPosition);\r\nbegin\r\n  if FClearSig <> Value then\r\n    FClearSig.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSignatureCapture.SetEmpty(const Value: Boolean);\r\nbegin\r\n  if Value then\r\n    FSignaturePoints.Clear;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSignatureCapture.SetFnt(\r\n  const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FFont.AssignSource(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSignatureCapture.SetPen(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FPen <> Value then\r\n    FPen.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSignatureCapture.SetText(const Value: string);\r\nbegin\r\n  if FText <> Value then\r\n    FText := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomSignatureCapture.SetTextPosition(\r\n  const Value: TTMSFNCSignatureCaptureTextPosition);\r\nbegin\r\n  if FTextPosition <> Value then\r\n    FTextPosition.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomSignatureCapture.TextPositionChanged(Sender: TObject);\r\nbegin\r\n  Invalidate;\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\nprocedure TTMSFNCCustomSignatureCapture.WriteStringToStream(\r\n  const Stream: TStream; const S: string);\r\nvar\r\n  n: LongInt;\r\n  size: Integer;\r\nbegin\r\n  n := Length(S);\r\n  Stream.Write(n, SizeOf(n));\r\n  {$IFDEF ZEROSTRINGINDEX}\r\n  size := 0;\r\n  {$ELSE}\r\n  size := 1;\r\n  {$ENDIF}\r\n  if n > 0 then Stream.Write(S[size], n * SizeOf(Char));\r\nend;\r\n{$ENDIF}\r\n\r\n{ TTMSFNCSignatureCaptureTextPosition }\r\n\r\nprocedure TTMSFNCSignatureCaptureTextPosition.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if Source is TTMSFNCSignatureCaptureTextPosition then\r\n  begin\r\n    FX := (Source as TTMSFNCSignatureCaptureTextPosition).X;\r\n    FY := (Source as TTMSFNCSignatureCaptureTextPosition).Y;\r\n    FPosition := (Source as TTMSFNCSignatureCaptureTextPosition).Position;\r\n    FLine.Assign((Source as TTMSFNCSignatureCaptureTextPosition).Line);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCSignatureCaptureTextPosition.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nconstructor TTMSFNCSignatureCaptureTextPosition.Create;\r\nbegin\r\n  FX := 25;\r\n  FY := 25;\r\n  FPosition := tpBottomCenter;\r\n  FLine := TTMSFNCGraphicsStroke.Create;\r\n  FLine.Color := gcGray;\r\n  FLine.Width := 1;\r\nend;\r\n\r\ndestructor TTMSFNCSignatureCaptureTextPosition.Destroy;\r\nbegin\r\n  FLine.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCSignatureCaptureTextPosition.IsXStored: Boolean;\r\nbegin\r\n  Result := FX <> 25.0;\r\nend;\r\n\r\nfunction TTMSFNCSignatureCaptureTextPosition.IsYStored: Boolean;\r\nbegin\r\n  Result := FY <> 25.0;\r\nend;\r\n\r\nprocedure TTMSFNCSignatureCaptureTextPosition.SetLine(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FLine <> Value then\r\n    FLine.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCSignatureCaptureTextPosition.SetPosition(\r\n  const Value: TTMSFNCSignatureCaptureTextHintPosition);\r\nbegin\r\n  if FPosition <> Value then\r\n  begin\r\n    FPosition := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCSignatureCaptureTextPosition.SetX(const Value: Single);\r\nbegin\r\n  if FX <> Value then\r\n  begin\r\n    FX := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCSignatureCaptureTextPosition.SetY(const Value: Single);\r\nbegin\r\n  if FY <> Value then\r\n  begin\r\n    FY := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCSignatureCapturePoints }\r\n\r\n{$IFDEF WEBLIB}\r\nfunction TTMSFNCSignatureCapturePoints.GetItem(Index: Integer): TTMSFNCSignatureCaptureStoredPoint;\r\nbegin\r\n  Result := TTMSFNCSignatureCaptureStoredPoint(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCSignatureCapturePoints.SetItem(Index: Integer; const Value: TTMSFNCSignatureCaptureStoredPoint);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n{$ENDIF}\r\n\r\n{ TTMSFNCSignatureCaptureClearPosition }\r\n\r\nprocedure TTMSFNCSignatureCaptureClearPosition.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if (Source is TTMSFNCSignatureCaptureClearPosition) then\r\n  begin\r\n    FX := (Source as TTMSFNCSignatureCaptureClearPosition).X;\r\n    FY := (Source as TTMSFNCSignatureCaptureClearPosition).Y;\r\n    FPosition := (Source as TTMSFNCSignatureCaptureClearPosition).Position;\r\n    FImage.Assign((Source as TTMSFNCSignatureCaptureClearPosition).Image);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCSignatureCaptureClearPosition.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nconstructor TTMSFNCSignatureCaptureClearPosition.Create;\r\nbegin\r\n  FPosition := cpBottomLeft;\r\n  FImage := TTMSFNCBitmap.Create;\r\n  {$IFNDEF WEBLIB}\r\n  FImage.LoadFromResource('TMSFNCSIGNATURECAPTURECLEAR', HInstance);\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  FImage.LoadFromResource(TTMSFNCSIGNATURECAPTURECLEAR, HInstance);\r\n  {$ENDIF}\r\n  FImage.OnChange := @ImageChanged;\r\nend;\r\n\r\ndestructor TTMSFNCSignatureCaptureClearPosition.Destroy;\r\nbegin\r\n  FImage.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCSignatureCaptureClearPosition.ImageChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\nfunction TTMSFNCSignatureCaptureClearPosition.IsXStored: Boolean;\r\nbegin\r\n  Result := FX <> 0.0;\r\nend;\r\n\r\nfunction TTMSFNCSignatureCaptureClearPosition.IsYStored: Boolean;\r\nbegin\r\n  Result := FY <> 0.0;\r\nend;\r\n\r\nprocedure TTMSFNCSignatureCaptureClearPosition.SetImage(\r\n  const Value: TTMSFNCBitmap);\r\nbegin\r\n  FImage.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCSignatureCaptureClearPosition.SetPosition(\r\n  const Value: TTMSFNCSignatureCaptureClearSignPosition);\r\nbegin\r\n  if FPosition <> Value then\r\n  begin\r\n    FPosition := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCSignatureCaptureClearPosition.SetX(const Value: Single);\r\nbegin\r\n  if FX <> Value then\r\n  begin\r\n    FX := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCSignatureCaptureClearPosition.SetY(const Value: Single);\r\nbegin\r\n  if FY <> Value then\r\n  begin\r\n    FY := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\n{$IFDEF WEBLIB}\r\ninitialization\r\nbegin\r\n  TTMSFNCBitmap.CreateFromResource(TTMSFNCSIGNATURECAPTURECLEAR);\r\nend;\r\n{$ENDIF}\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : https://www.tmssoftware.com                       }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCCalendar;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\ninterface\r\n\r\nuses\r\n  {$IFDEF WIN32}\r\n  Windows,\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  UITypes,\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  WEBLib.ExtCtrls,\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  Vcl.Menus,\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  WEBLib.Menus,\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  Menus,\r\n  {$ENDIF}\r\n  Classes, Types, TypInfo, WEBLib.Controls, WEBLib.Graphics, WEBLib.TMSFNCCustomControl, WEBLib.TMSFNCGraphics,\r\n  WEBLib.TMSFNCGraphicsTypes, WEBLib.TMSFNCTypes, WEBLib.TMSFNCUtils, WEBLib.TMSFNCBitmapContainer, SysUtils,\r\n  WEBLib.TMSFNCStyles;\r\n\r\nconst\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 0; // Minor version nr.\r\n  REL_VER = 4; // Release nr.\r\n  BLD_VER = 1; // Build nr.\r\n\r\n  //Version history\r\n  //v1.0.0.0 : First Release\r\n  //v1.0.0.1 : Improved : ShowFocus property under DateAppearance to remove the dotted border around the focused date\r\n  //v1.0.1.0 : New : Added DayNameAppearance.Height property\r\n  //         : New : Added OnNavigateBack, OnNavigateForward and OnNavigateFooter events\r\n  //v1.0.2.0 : New : Support for high dpi\r\n  //v1.0.2.1 : Improved: Exposed Date and Day properties to have more control over design-time view\r\n  //v1.0.3.0 : New : GlobalFont interface implemented\r\n  //         : New : Updated initial look\r\n  //v1.0.3.1 : Improved : Date selection handling\r\n  //v1.0.3.2 : Fixed : Issue calculating week numbers\r\n  //v1.0.3.3 : Fixed : Issue with calculating days before and after a displayed month\r\n  //v1.0.4.0 : New : Added month and year selectors\r\n  //v1.0.4.1 : Fixed : Issue with badge gradients\r\n\r\ntype\r\n  TTMSFNCCustomCalendar = class;\r\n  TTMSFNCCalendarArrowLayoutValue = (alvLeft, alvRight);\r\n  TTMSFNCCalendarArrowLayout = set of TTMSFNCCalendarArrowLayoutValue;\r\n\r\n  TTMSFNCCalendarArrowType = (atTriangle, atArrow, atBitmap, atCustom);\r\n\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCCalendarArrow = class(TTMSFNCPersistent, ITMSFNCBitmapContainer)\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCCalendarArrow = class(TTMSFNCPersistent)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TPersistent;\r\n    FColor: TTMSFNCGraphicsColor;\r\n    FVisibility: TTMSFNCCalendarArrowLayout;\r\n    FSize: Integer;\r\n    FOnChange: TNotifyEvent;\r\n    FArrowLeftType: TTMSFNCCalendarArrowType;\r\n    FArrowLeftBitmap: TTMSFNCScaledBitmaps;\r\n    FArrowRightBitmap: TTMSFNCScaledBitmaps;\r\n    FArrowRightBitmapSize: Single;\r\n    FArrowRightType: TTMSFNCCalendarArrowType;\r\n    FArrowLeftBitmapSize: Single;\r\n    procedure SetColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetVisibility(const Value: TTMSFNCCalendarArrowLayout);\r\n    procedure SetSize(const Value: Integer);\r\n    procedure SetArrowLeftBitmap(const Value: TTMSFNCScaledBitmaps);\r\n    procedure SetArrowRightBitmap(const Value: TTMSFNCScaledBitmaps);\r\n    procedure SetArrowLeftBitmapSize(const Value: Single);\r\n    procedure SetArrowLeftType(const Value: TTMSFNCCalendarArrowType);\r\n    procedure SetArrowRightBitmapSize(const Value: Single);\r\n    procedure SetArrowRightType(const Value: TTMSFNCCalendarArrowType);\r\n    procedure SetBitmapContainer(const Value: TTMSFNCBitmapContainer);\r\n    function GetBitmapContainer: TTMSFNCBitmapContainer;\r\n    function IsArrowLeftBitmapSizeStored: Boolean;\r\n    function IsArrowRightBitmapSizeStore: Boolean;\r\n  protected\r\n    procedure Changed;\r\n    function GetOwner: TPersistent; override;\r\n    property BitmapContainer: TTMSFNCBitmapContainer read GetBitmapContainer write SetBitmapContainer;\r\n  public\r\n    constructor Create(AOwner: TComponent);\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    property Size: Integer read FSize write SetSize default 15;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  published\r\n    property ArrowLeftBitmap: TTMSFNCScaledBitmaps read FArrowLeftBitmap write SetArrowLeftBitmap;\r\n    property ArrowLeftType: TTMSFNCCalendarArrowType read FArrowLeftType write SetArrowLeftType default atArrow;\r\n    property ArrowLeftBitmapSize: Single read FArrowLeftBitmapSize write SetArrowLeftBitmapSize stored IsArrowLeftBitmapSizeStored nodefault;\r\n    property ArrowRightBitmap: TTMSFNCScaledBitmaps read FArrowRightBitmap write SetArrowRightBitmap;\r\n    property ArrowRightType: TTMSFNCCalendarArrowType read FArrowRightType write SetArrowRightType default atArrow;\r\n    property ArrowRightBitmapSize: Single read FArrowRightBitmapSize write SetArrowRightBitmapSize stored IsArrowRightBitmapSizeStore nodefault;\r\n    property Color: TTMSFNCGraphicsColor read FColor write SetColor default gcDimgray;\r\n    property Visibility: TTMSFNCCalendarArrowLayout read FVisibility write SetVisibility default [alvLeft, alvRight];\r\n  end;\r\n\r\n  TTMSFNCCalendarHeader = class(TPersistent)\r\n  private\r\n    FFill: TTMSFNCGraphicsFill;\r\n    FFont: TTMSFNCGraphicsFont;\r\n    FStroke: TTMSFNCGraphicsStroke;\r\n    FVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FHorizontalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FArrow: TTMSFNCCalendarArrow;\r\n    FVisible: Boolean;\r\n    FOnChange: TNotifyEvent;\r\n    FHeight: Integer;\r\n    procedure SetFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetHorizontalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetVerticalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetArrow(const Value: TTMSFNCCalendarArrow);\r\n    procedure SetVisible(const Value: Boolean);\r\n    procedure SetHeight(const Value: Integer);\r\n  protected\r\n    procedure Changed;\r\n    procedure FillChanged(Sender: TObject);\r\n    procedure FontChanged(Sender: TObject);\r\n    procedure StrokeChanged(Sender: TObject);\r\n  public\r\n    constructor Create(AOwner: TComponent);\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  published\r\n    property Arrow: TTMSFNCCalendarArrow read FArrow write SetArrow;\r\n    property Height: Integer read FHeight write SetHeight default 25;\r\n    property Fill: TTMSFNCGraphicsFill read FFill write SetFill;\r\n    property Font: TTMSFNCGraphicsFont read FFont write SetFont;\r\n    property Stroke: TTMSFNCGraphicsStroke read FStroke write SetStroke;\r\n    property Visible: Boolean read FVisible write SetVisible default True;\r\n    property VerticalTextAlign: TTMSFNCGraphicsTextAlign read FVerticalTextAlign write SetVerticalTextAlign default gtaCenter;\r\n    property HorizontalTextAlign: TTMSFNCGraphicsTextAlign read FHorizontalTextAlign write SetHorizontalTextAlign default gtaCenter;\r\n  end;\r\n\r\n  TTMSFNCCalendarFooterDate = (fdNone, fdSelected, fdToday);\r\n\r\n  TTMSFNCCalendarFooter = class(TPersistent)\r\n  private\r\n    FFill: TTMSFNCGraphicsFill;\r\n    FFont: TTMSFNCGraphicsFont;\r\n    FStroke: TTMSFNCGraphicsStroke;\r\n    FVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FHorizontalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FCaption: string;\r\n    FVisible: Boolean;\r\n    FDateCaption: TTMSFNCCalendarFooterDate;\r\n    FOnChange: TNotifyEvent;\r\n    FHeight: Integer;\r\n    FCaptionRect: TRectF;\r\n    procedure SetFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetHorizontalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetVerticalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetCaption(const Value: string);\r\n    procedure SetVisible(const Value: Boolean);\r\n    procedure SetHeight(const Value: Integer);\r\n    procedure SetDateCaption(const Value: TTMSFNCCalendarFooterDate);\r\n    procedure SetCaptionRect(const Value: TRectF);\r\n    function IsCaptionStored: Boolean;\r\n  protected\r\n    procedure Changed;\r\n    procedure FillChanged(Sender: TObject);\r\n    procedure FontChanged(Sender: TObject);\r\n    procedure StrokeChanged(Sender: TObject);\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    property CaptionRect: TRectF read FCaptionRect write SetCaptionRect;\r\n  published\r\n    property Caption: string read FCaption write SetCaption stored IsCaptionStored nodefault;\r\n    property DateCaption: TTMSFNCCalendarFooterDate read FDateCaption write SetDateCaption default fdToday;\r\n    property Height: Integer read FHeight write SetHeight default 25;\r\n    property Fill: TTMSFNCGraphicsFill read FFill write SetFill;\r\n    property Font: TTMSFNCGraphicsFont read FFont write SetFont;\r\n    property Stroke: TTMSFNCGraphicsStroke read FStroke write SetStroke;\r\n    property Visible: Boolean read FVisible write SetVisible default True;\r\n    property VerticalTextAlign: TTMSFNCGraphicsTextAlign read FVerticalTextAlign write SetVerticalTextAlign default gtaCenter;\r\n    property HorizontalTextAlign: TTMSFNCGraphicsTextAlign read FHorizontalTextAlign write SetHorizontalTextAlign default gtaCenter;\r\n  end;\r\n\r\n  TTMSFNCCalendarDayNameAppearance = class(TPersistent)\r\n  private\r\n    FFill: TTMSFNCGraphicsFill;\r\n    FFont: TTMSFNCGraphicsFont;\r\n    FStroke: TTMSFNCGraphicsStroke;\r\n    FVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FHorizontalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FOnChange: TNotifyEvent;\r\n    FHeight: Integer;\r\n    procedure SetFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetHorizontalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetVerticalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetHeight(const Value: Integer);\r\n  protected\r\n    procedure Changed;\r\n    procedure FillChanged(Sender: TObject);\r\n    procedure FontChanged(Sender: TObject);\r\n    procedure StrokeChanged(Sender: TObject);\r\n  public\r\n    constructor Create; virtual;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  published\r\n    property Height: Integer read FHeight write SetHeight default 15;\r\n    property Fill: TTMSFNCGraphicsFill read FFill write SetFill;\r\n    property Font: TTMSFNCGraphicsFont read FFont write SetFont;\r\n    property Stroke: TTMSFNCGraphicsStroke read FStroke write SetStroke;\r\n    property VerticalTextAlign: TTMSFNCGraphicsTextAlign read FVerticalTextAlign write SetVerticalTextAlign default gtaCenter;\r\n    property HorizontalTextAlign: TTMSFNCGraphicsTextAlign read FHorizontalTextAlign write SetHorizontalTextAlign default gtaCenter;\r\n  end;\r\n\r\n  TTMSFNCCalendarDateAppearance = class(TPersistent)\r\n  private\r\n    FFill: TTMSFNCGraphicsFill;\r\n    FFont: TTMSFNCGraphicsFont;\r\n    FStroke: TTMSFNCGraphicsStroke;\r\n    FVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FHorizontalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FSelectedFill: TTMSFNCGraphicsFill;\r\n    FSelectedFont: TTMSFNCGraphicsFont;\r\n    FSelectedStroke: TTMSFNCGraphicsStroke;\r\n    FSelectedVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FSelectedHorizontalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FDisabledFill: TTMSFNCGraphicsFill;\r\n    FDisabledFont: TTMSFNCGraphicsFont;\r\n    FDisabledStroke: TTMSFNCGraphicsStroke;\r\n    FDateBeforeFill: TTMSFNCGraphicsFill;\r\n    FDateBeforeFont: TTMSFNCGraphicsFont;\r\n    FDateBeforeStroke: TTMSFNCGraphicsStroke;\r\n    FDateAfterFont: TTMSFNCGraphicsFont;\r\n    FDateAfterFill: TTMSFNCGraphicsFill;\r\n    FDateAfterStroke: TTMSFNCGraphicsStroke;\r\n    FShowDaysBefore, FShowDaysAfter: Boolean;\r\n    FOnChange: TNotifyEvent;\r\n    FTodayFill: TTMSFNCGraphicsFill;\r\n    FBadgeFont: TTMSFNCGraphicsFont;\r\n    FTodayStroke: TTMSFNCGraphicsStroke;\r\n    FBadgeFill: TTMSFNCGraphicsFill;\r\n    FBadgeStroke: TTMSFNCGraphicsStroke;\r\n    FTodayFont: TTMSFNCGraphicsFont;\r\n    FShowFocus: Boolean;\r\n    procedure SetFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetHorizontalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetVerticalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetSelectedFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetSelectedFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetSelectedHorizontalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetSelectedStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetSelectedVerticalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetDisabledFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetDisabledFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetDisabledStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetDateAfterFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetDateAfterFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetDateBeforeFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetDateBeforeFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetShowDaysAfter(const Value: Boolean);\r\n    procedure SetShowDaysBefore(const Value: Boolean);\r\n    procedure SetDateAfterStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetDateBeforeStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetBadgeFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetBadgeFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetBadgeStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetTodayFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetTodayFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetTodayStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetShowFocus(const Value: Boolean);\r\n  protected\r\n    procedure Changed;\r\n    procedure FillChanged(Sender: TObject);\r\n    procedure FontChanged(Sender: TObject);\r\n    procedure StrokeChanged(Sender: TObject);\r\n  public\r\n    constructor Create; virtual;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  published\r\n    property Fill: TTMSFNCGraphicsFill read FFill write SetFill;\r\n    property Font: TTMSFNCGraphicsFont read FFont write SetFont;\r\n    property Stroke: TTMSFNCGraphicsStroke read FStroke write SetStroke;\r\n    property VerticalTextAlign: TTMSFNCGraphicsTextAlign read FVerticalTextAlign write SetVerticalTextAlign default gtaCenter;\r\n    property HorizontalTextAlign: TTMSFNCGraphicsTextAlign read FHorizontalTextAlign write SetHorizontalTextAlign default gtaCenter;\r\n    property SelectedFill: TTMSFNCGraphicsFill read FSelectedFill write SetSelectedFill;\r\n    property SelectedFont: TTMSFNCGraphicsFont read FSelectedFont write SetSelectedFont;\r\n    property SelectedStroke: TTMSFNCGraphicsStroke read FSelectedStroke write SetSelectedStroke;\r\n    property SelectedVerticalTextAlign: TTMSFNCGraphicsTextAlign read FSelectedVerticalTextAlign write SetSelectedVerticalTextAlign default gtaCenter;\r\n    property SelectedHorizontalTextAlign: TTMSFNCGraphicsTextAlign read FSelectedHorizontalTextAlign write SetSelectedHorizontalTextAlign default gtaCenter;\r\n    property DisabledFill: TTMSFNCGraphicsFill read FDisabledFill write SetDisabledFill;\r\n    property DisabledFont: TTMSFNCGraphicsFont read FDisabledFont write SetDisabledFont;\r\n    property DisabledStroke: TTMSFNCGraphicsStroke read FDisabledStroke write SetDisabledStroke;\r\n    property ShowDaysBefore: Boolean read FShowDaysBefore write SetShowDaysBefore default False;\r\n    property ShowDaysAfter: Boolean read FShowDaysAfter write SetShowDaysAfter default False;\r\n    property DateBeforeFill: TTMSFNCGraphicsFill read FDateBeforeFill write SetDateBeforeFill;\r\n    property DateBeforeFont: TTMSFNCGraphicsFont read FDateBeforeFont write SetDateBeforeFont;\r\n    property DateBeforeStroke: TTMSFNCGraphicsStroke read FDateBeforeStroke write SetDateBeforeStroke;\r\n    property DateAfterFill: TTMSFNCGraphicsFill read FDateAfterFill write SetDateAfterFill;\r\n    property DateAfterFont: TTMSFNCGraphicsFont read FDateAfterFont write SetDateAfterFont;\r\n    property DateAfterStroke: TTMSFNCGraphicsStroke read FDateAfterStroke write SetDateAfterStroke;\r\n    property TodayFill: TTMSFNCGraphicsFill read FTodayFill write SetTodayFill;\r\n    property TodayFont: TTMSFNCGraphicsFont read FTodayFont write SetTodayFont;\r\n    property TodayStroke: TTMSFNCGraphicsStroke read FTodayStroke write SetTodayStroke;\r\n    property BadgeFill: TTMSFNCGraphicsFill read FBadgeFill write SetBadgeFill;\r\n    property BadgeFont: TTMSFNCGraphicsFont read FBadgeFont write SetBadgeFont;\r\n    property BadgeStroke: TTMSFNCGraphicsStroke read FBadgeStroke write SetBadgeStroke;\r\n    property ShowFocus: Boolean read FShowFocus write SetShowFocus default True;\r\n  end;\r\n\r\n  TTMSFNCCalendarLineAppearance = class(TPersistent)\r\n  private\r\n    FStroke: TTMSFNCGraphicsStroke;\r\n    FOnChange: TNotifyEvent;\r\n    procedure SetStroke(const Value: TTMSFNCGraphicsStroke);\r\n  protected\r\n    procedure Changed;\r\n    procedure StrokeChanged(Sender: TObject);\r\n  public\r\n    constructor Create; virtual;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  published\r\n    property Stroke: TTMSFNCGraphicsStroke read FStroke write SetStroke;\r\n  end;\r\n\r\n  TTMSFNCCalendarWeekNumberAppearance = class(TPersistent)\r\n  private\r\n    FOnChange: TNotifyEvent;\r\n    FVisible: Boolean;\r\n    FFont: TTMSFNCGraphicsFont;\r\n    FFill: TTMSFNCGraphicsFill;\r\n    FStroke: TTMSFNCGraphicsStroke;\r\n    FVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    FHorizontalTextAlign: TTMSFNCGraphicsTextAlign;\r\n    procedure SetFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetVisible(const Value: Boolean);\r\n    procedure SetHorizontalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n    procedure SetVerticalTextAlign(const Value: TTMSFNCGraphicsTextAlign);\r\n  protected\r\n    procedure Changed;\r\n    procedure FillChanged(Sender: TObject);\r\n    procedure FontChanged(Sender: TObject);\r\n    procedure StrokeChanged(Sender: TObject);\r\n  public\r\n    constructor Create; virtual;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  published\r\n    property Visible: Boolean read FVisible write SetVisible default False;\r\n    property Font: TTMSFNCGraphicsFont read FFont write SetFont;\r\n    property Fill: TTMSFNCGraphicsFill read FFill write SetFill;\r\n    property Stroke: TTMSFNCGraphicsStroke read FStroke write SetStroke;\r\n    property VerticalTextAlign: TTMSFNCGraphicsTextAlign read FVerticalTextAlign write SetVerticalTextAlign default gtaCenter;\r\n    property HorizontalTextAlign: TTMSFNCGraphicsTextAlign read FHorizontalTextAlign write SetHorizontalTextAlign default gtaCenter;\r\n  end;\r\n\r\n  TTMSFNCCalendarNavigationMode = (nmMonth, nmYear, nmFocusedDate, nmCustom);\r\n\r\n  TTMSFNCCalendarInteractionYearOptions = class(TPersistent)\r\n  private\r\n    FItemsBeforeCurrentYear: Integer;\r\n    FItemsAfterCurrentYear: Integer;\r\n    procedure SetItemsAfterCurrentYear(const Value: Integer);\r\n    procedure SetItemsBeforeCurrentYear(const Value: Integer);\r\n  public\r\n    constructor Create; virtual;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property ItemsBeforeCurrentYear: Integer read FItemsBeforeCurrentYear write SetItemsBeforeCurrentYear default 5;\r\n    property ItemsAfterCurrentYear: Integer read FItemsAfterCurrentYear write SetItemsAfterCurrentYear default 5;\r\n  end;\r\n\r\n  TTMSFNCCalendarCustomInteraction = class(TPersistent)\r\n  private\r\n    FMultiSelect: Boolean;\r\n    FKeyboardSupport: Boolean;\r\n    FReadOnlyMode: Boolean;\r\n    FNavigationMode: TTMSFNCCalendarNavigationMode;\r\n    FSwipeOnHeader: Boolean;\r\n    FAllowMonthSelection: Boolean;\r\n    FAllowYearSelection: Boolean;\r\n    FYearOptions: TTMSFNCCalendarInteractionYearOptions;\r\n    procedure SetKeyboardSupport(const Value: Boolean);\r\n    procedure SetMultiSelect(const Value: Boolean);\r\n    procedure SetReadOnlyMode(const Value: Boolean);\r\n    procedure SetNavigationMode(const Value: TTMSFNCCalendarNavigationMode);\r\n    procedure SetSwipeOnHeader(const Value: Boolean);\r\n    procedure SetAllowMonthSelection(const Value: Boolean);\r\n    procedure SetAllowYearSelection(const Value: Boolean);\r\n    procedure SetYearOptions(\r\n      const Value: TTMSFNCCalendarInteractionYearOptions);\r\n  protected\r\n    property AllowYearSelection: Boolean read FAllowYearSelection write SetAllowYearSelection default False;\r\n    property AllowMonthSelection: Boolean read FAllowMonthSelection write SetAllowMonthSelection default False;\r\n    property YearOptions: TTMSFNCCalendarInteractionYearOptions read FYearOptions write SetYearOptions;\r\n    property MultiSelect: Boolean read FMultiSelect write SetMultiSelect default False;\r\n    property KeyboardSupport: Boolean read FKeyboardSupport write SetKeyboardSupport default True;\r\n    property ReadOnlyMode: Boolean read FReadOnlyMode write SetReadOnlyMode default False;\r\n    property SwipeOnHeader: Boolean read FSwipeOnHeader write SetSwipeOnHeader default False;\r\n    property NavigationMode: TTMSFNCCalendarNavigationMode read FNavigationMode write SetNavigationMode default nmMonth;\r\n  public\r\n    constructor Create; virtual;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n  end;\r\n\r\n  TTMSFNCCalendarInteraction = class(TTMSFNCCalendarCustomInteraction)\r\n  published\r\n    property AllowYearSelection;\r\n    property AllowMonthSelection;\r\n    property YearOptions;\r\n    property MultiSelect;\r\n    property KeyboardSupport;\r\n    property ReadOnlyMode;\r\n    property SwipeOnHeader;\r\n    property NavigationMode;\r\n  end;\r\n\r\n  TTMSFNCCalendarDateItem = class(TCollectionItem)\r\n  private\r\n    FDate: TDate;\r\n    procedure SetDate(const Value: TDate);\r\n  protected\r\n    procedure Update;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property Date: TDate read FDate write SetDate;\r\n  end;\r\n\r\n  TTMSFNCCalendarDates = class(TCollection)\r\n  private\r\n    FOnChange: TNotifyEvent;\r\n    procedure SetItem(Index: integer; const Value: TTMSFNCCalendarDateItem);\r\n    function GetItem(Index: integer): TTMSFNCCalendarDateItem;\r\n  protected\r\n    procedure DoChange; virtual;\r\n    procedure Update(Item: TCollectionItem); override;\r\n  public\r\n    procedure SelectDate(ADate: TDate);\r\n    procedure SelectDateInterval(ADateFrom, ADateTo: TDate);\r\n    procedure UnselectDate(ADate: TDate);\r\n    procedure UnselectAll;\r\n    function Add: TTMSFNCCalendarDateItem;\r\n    function InCollection(ADate: TDate): Boolean;\r\n    property Items[Index: integer]: TTMSFNCCalendarDateItem read GetItem write SetItem;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  end;\r\n\r\n  TTMSFNCCalendarEventItem = class(TTMSFNCCalendarDateItem)\r\n  private\r\n    FHint: string;\r\n    FBadgeValue: Integer;\r\n    FBadgeColor: TTMSFNCGraphicsColor;\r\n    FShowBadge: Boolean;\r\n    FBadgeFontColor: TTMSFNCGraphicsColor;\r\n    procedure SetBadgeColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetBadgeFontColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetBadgeValue(const Value: Integer);\r\n    procedure SetHint(const Value: string);\r\n    procedure SetShowBadge(const Value: Boolean);\r\n    function IsHintStored: Boolean;\r\n  protected\r\n    procedure Update;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create(ACollection: TCollection); override;\r\n  published\r\n    property BadgeValue: Integer read FBadgeValue write SetBadgeValue default 0;\r\n    property ShowBadge: Boolean read FShowBadge write SetShowBadge default True;\r\n    property BadgeFontColor: TTMSFNCGraphicsColor read FBadgeFontColor write SetBadgeFontColor default gcNull;\r\n    property BadgeColor: TTMSFNCGraphicsColor read FBadgeColor write SetBadgeColor default gcNull;\r\n    property Hint: string read FHint write SetHint stored IsHintStored nodefault;\r\n  end;\r\n\r\n  TTMSFNCCalendarEvents = class(TTMSFNCCalendarDates)\r\n  private\r\n    procedure SetItem(Index: integer; const Value: TTMSFNCCalendarEventItem);\r\n    function GetItem(Index: integer): TTMSFNCCalendarEventItem;\r\n  public\r\n    function Add: TTMSFNCCalendarEventItem;\r\n    function GetEventCollectionItemByDate(ADate: TDate): TTMSFNCCalendarEventItem;\r\n    property Items[Index: integer]: TTMSFNCCalendarEventItem read GetItem write SetItem;\r\n  end;\r\n\r\n  {$IFDEF FMXLIB}\r\n  TTMSFNCCalendarPopupBox = class(TPopupBox)\r\n  public\r\n    procedure Popup(APoint: TPointF);\r\n  end;\r\n  {$ENDIF}\r\n  {$IFNDEF FMXLIB}\r\n  TTMSFNCCalendarPopupBox = class(TComponent)\r\n  private\r\n    FPaintScale: Single;\r\n    {$IFNDEF WEBLIB}\r\n    FPopup: TPopupMenu;\r\n    {$ENDIF}\r\n    {$IFDEF WEBLIB}\r\n    FPopup: TWebPopupMenu;\r\n    {$ENDIF}\r\n    FItems: TStringList;\r\n    FItemIndex: Integer;\r\n    FOnChange: TNotifyEvent;\r\n    procedure SetItemIndex(const Value: Integer);\r\n    procedure SetItems(const Value: TStringList);\r\n  protected\r\n    procedure DoMenuItemClick(Sender: TObject);\r\n    procedure DoPopup(ALeft, ATop: Single);\r\n    procedure DoChange;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCCustomCalendar); reintroduce;\r\n    destructor Destroy; override;\r\n    procedure SetPaintScale(AValue: Single);\r\n    procedure Popup(APoint: TPointF);\r\n    property Items: TStringList read FItems write SetItems;\r\n    property ItemIndex: Integer read FItemIndex write SetItemIndex;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  TTMSFNCCalendarBeforeDrawHeaderEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCCalendarAfterDrawHeaderEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF) of object;\r\n  TTMSFNCCalendarBeforeDrawHeaderTextEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCCalendarAfterDrawHeaderTextEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign) of object;\r\n  TTMSFNCCalendarBeforeDrawFooterEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARectF: TRectF; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCCalendarAfterDrawFooterEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARectF: TRectF) of object;\r\n  TTMSFNCCalendarBeforeDrawFooterTextEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCCalendarAfterDrawFooterTextEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign) of object;\r\n  TTMSFNCCalendarBeforeDrawDayNamesEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCCalendarAfterDrawDayNamesEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF) of object;\r\n  TTMSFNCCalendarBeforeDrawDayNamesTextEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCCalendarAfterDrawDayNamesTextEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign) of object;\r\n  TTMSFNCCalendarBeforeDrawDayNumbersEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; ADate: TDate; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCCalendarAfterDrawDayNumbersEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; ADate: TDate) of object;\r\n  TTMSFNCCalendarBeforeDrawDayNumbersTextEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCCalendarAfterDrawDayNumbersTextEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign) of object;\r\n  TTMSFNCCalendarBeforeDrawLinesEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCCalendarAfterDrawLinesEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics) of object;\r\n  TTMSFNCCalendarBeforeDrawWeekNumbersEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCCalendarAfterDrawWeekNumbersEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF) of object;\r\n  TTMSFNCCalendarBeforeDrawWeekNumbersTextEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCCalendarAfterDrawWeekNumbersTextEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign) of object;\r\n  TTMSFNCCalendarBeforeDrawBadgeEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; ABadge: TTMSFNCCalendarEventItem; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCCalendarAfterDrawBadgeEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; ABadge: TTMSFNCCalendarEventItem) of object;\r\n  TTMSFNCCalendarBeforeDrawArrowLeftEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; AArrowRect: TRectF; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCCalendarAfterDrawArrowLeftEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; AArrowRect: TRectF) of object;\r\n  TTMSFNCCalendarBeforeDrawArrowRightEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; AArrowRect: TRectF; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCCalendarAfterDrawArrowRightEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; AArrowRect: TRectF) of object;\r\n  TTMSFNCCalendarBeforeSelectDateEvent = procedure(Sender: TObject; ADate: TDate) of object;\r\n  TTMSFNCCalendarSelectedDateEvent = procedure(Sender: TObject; ADate: TDate) of object;\r\n  TTMSFNCCalendarSelectedMultiDateEvent = procedure(Sender: TObject; AStartDate: TDate; AEndDate: TDate) of object;\r\n  TTMSFNCCalendarYearChangedEvent = procedure(Sender: TObject; AYear: Integer) of object;\r\n  TTMSFNCCalendarMonthChangedEvent = procedure(Sender: TObject; AMonth: Integer) of object;\r\n  TTMSFNCCalendarCustomNavigationEvent = procedure(Sender: TObject; ADate: TDate; AFocusedDate: TDate; ADirection: Boolean) of object;\r\n  TTMSFNCCalendarCustomArrowDrawEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; ADirection: Boolean) of object;\r\n  TTMSFNCCalendarCustomNavigateEvent = procedure(Sender: TObject; AMonth: Integer; AYear: Integer) of object;\r\n  TTMSFNCCalendarShowPopupEvent = procedure(Sender: TObject; var AAllow: Boolean) of object;\r\n  TTMSFNCCalendarYearPopupValueSelected = procedure(Sender: TObject; AItemIndex: Integer; AYear: Integer) of object;\r\n  TTMSFNCCalendarMonthPopupValueSelected = procedure(Sender: TObject; AItemIndex: Integer; AMonth: Integer; AMonthValue: string) of object;\r\n\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCCustomCalendar = class(TTMSFNCCustomControl, ITMSFNCBitmapContainer, ITMSFNCAppearanceGlobalFont)\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCCustomCalendar = class(TTMSFNCCustomControl, ITMSFNCAppearanceGlobalFont)\r\n  {$ENDIF}\r\n  private\r\n    FDay, FMonth, FYear: Integer;\r\n    FBitmapContainer: TTMSFNCBitmapContainer;\r\n    FNumOfWeeksDrawn: Integer;\r\n    FWeekNumberAppearance: TTMSFNCCalendarWeekNumberAppearance;\r\n    FFirstDay: Integer;\r\n    FHeader: TTMSFNCCalendarHeader;\r\n    FFooter: TTMSFNCCalendarFooter;\r\n    FDayNameAppearance: TTMSFNCCalendarDayNameAppearance;\r\n    FDateAppearance: TTMSFNCCalendarDateAppearance;\r\n    FLineAppearance: TTMSFNCCalendarLineAppearance;\r\n    FXOffset, FYOffset, FDateAreaHeight: Single;\r\n    FMx, FMy: Single;\r\n    FTick: Cardinal;\r\n    FSelectedDates: TTMSFNCCalendarDates;\r\n    FEvents: TTMSFNCCalendarEvents;\r\n    FBadgeSize: Integer;\r\n    FMouseDown, FShiftPressed, FSelectedAll: Boolean;\r\n    FDate: TDate;\r\n    FMaxDate, FMinDate: TDate;\r\n    FClickedDate, FMouseAtDate, FFocusedDate, FHoverDate: TDate;\r\n    FOnChange: TNotifyEvent;\r\n    FOnBeforeDrawHeader: TTMSFNCCalendarBeforeDrawHeaderEvent;\r\n    FOnAfterDrawDayNames: TTMSFNCCalendarAfterDrawDayNamesEvent;\r\n    FOnAfterDrawHeader: TTMSFNCCalendarAfterDrawHeaderEvent;\r\n    FOnBeforeDrawDayNames: TTMSFNCCalendarBeforeDrawDayNamesEvent;\r\n    FOnAfterDrawHeaderText: TTMSFNCCalendarAfterDrawHeaderTextEvent;\r\n    FOnBeforeDrawHeaderText: TTMSFNCCalendarBeforeDrawHeaderTextEvent;\r\n    FOnAfterDrawDayNamesText: TTMSFNCCalendarAfterDrawDayNamesTextEvent;\r\n    FOnBeforeDrawDayNamesText: TTMSFNCCalendarBeforeDrawDayNamesTextEvent;\r\n    FOnAfterDrawWeekNumbersText: TTMSFNCCalendarAfterDrawWeekNumbersTextEvent;\r\n    FOnBeforeDrawDayNumbersText: TTMSFNCCalendarBeforeDrawDayNumbersTextEvent;\r\n    FOnBeforeDrawLines: TTMSFNCCalendarBeforeDrawLinesEvent;\r\n    FOnAfterDrawWeekNumbers: TTMSFNCCalendarAfterDrawWeekNumbersEvent;\r\n    FOnBeforeDrawDayNumbers: TTMSFNCCalendarBeforeDrawDayNumbersEvent;\r\n    FOnAfterDrawDayNumbersText: TTMSFNCCalendarAfterDrawDayNumbersTextEvent;\r\n    FOnBeforeDrawWeekNumbersText: TTMSFNCCalendarBeforeDrawWeekNumbersTextEvent;\r\n    FOnAfterDrawLines: TTMSFNCCalendarAfterDrawLinesEvent;\r\n    FOnAfterDrawDayNumbers: TTMSFNCCalendarAfterDrawDayNumbersEvent;\r\n    FOnBeforeDrawWeekNumbers: TTMSFNCCalendarBeforeDrawWeekNumbersEvent;\r\n    FInteraction: TTMSFNCCalendarInteraction;\r\n    FOnYearChanged: TTMSFNCCalendarYearChangedEvent;\r\n    FOnSelectDate: TTMSFNCCalendarSelectedDateEvent;\r\n    FOnMonthChanged: TTMSFNCCalendarMonthChangedEvent;\r\n    FOnSelectMultiDate: TTMSFNCCalendarSelectedMultiDateEvent;\r\n    FOnBeforeSelectDate: TTMSFNCCalendarBeforeSelectDateEvent;\r\n    FOnBeforeDrawFooterText: TTMSFNCCalendarBeforeDrawFooterTextEvent;\r\n    FOnBeforeDrawFooter: TTMSFNCCalendarBeforeDrawFooterEvent;\r\n    FOnAfterDrawFooterText: TTMSFNCCalendarAfterDrawFooterTextEvent;\r\n    FOnAfterDrawFooter: TTMSFNCCalendarAfterDrawFooterEvent;\r\n    FOnCustomNavigation: TTMSFNCCalendarCustomNavigationEvent;\r\n    FOnAfterDrawBadge: TTMSFNCCalendarAfterDrawBadgeEvent;\r\n    FOnBeforeDrawBadge: TTMSFNCCalendarBeforeDrawBadgeEvent;\r\n    FOnCustomArrowDraw: TTMSFNCCalendarCustomArrowDrawEvent;\r\n    FOnAfterDrawArrowRight: TTMSFNCCalendarAfterDrawArrowRightEvent;\r\n    FOnBeforeDrawArrowLeft: TTMSFNCCalendarBeforeDrawArrowLeftEvent;\r\n    FOnBeforeDrawArrowRight: TTMSFNCCalendarBeforeDrawArrowRightEvent;\r\n    FOnAfterDrawArrowLeft: TTMSFNCCalendarAfterDrawArrowLeftEvent;\r\n    FOnNavigateBack: TTMSFNCCalendarCustomNavigateEvent;\r\n    FOnNavigateForward: TTMSFNCCalendarCustomNavigateEvent;\r\n    FOnNavigateFooter: TNotifyEvent;\r\n    FGlobalFont: TTMSFNCAppearanceGlobalFont;\r\n    FMonthsPopup: TTMSFNCCalendarPopupBox;\r\n    FYearsPopup: TTMSFNCCalendarPopupBox;\r\n    FOnBeforeShowMonthPopup: TTMSFNCCalendarShowPopupEvent;\r\n    FOnBeforeShowYearPopup: TTMSFNCCalendarShowPopupEvent;\r\n    FOnYearPopupValueSelected: TTMSFNCCalendarYearPopupValueSelected;\r\n    FOnMonthPopupValueSelected: TTMSFNCCalendarMonthPopupValueSelected;\r\n    procedure SetDay(const Value: Integer);\r\n    procedure SetMonth(const Value: Integer);\r\n    procedure SetYear(const Value: Integer);\r\n    procedure SetFirstDay(const Value: Integer);\r\n    procedure SetHeader(const Value: TTMSFNCCalendarHeader);\r\n    procedure IncrementCell(var ACellSide: Single; const AMoveBy: Single);\r\n    procedure ShiftCellH(var ACell: TRectF; const AMoveBy: Single);\r\n    procedure ShiftCellV(var ACell: TRectF; const AMoveBy: Single);\r\n    procedure IncrementWeekDay(var ADay: Integer);\r\n    procedure SetDateForward(var ADate: TDate; ASetBy: Integer);\r\n    procedure SetDateBackward(var ADate: TDate; ASetBy: Integer);\r\n    procedure SetDayNameAppearance(const Value: TTMSFNCCalendarDayNameAppearance);\r\n    procedure SetDateAppearance(const Value: TTMSFNCCalendarDateAppearance);\r\n    procedure SetLineAppearance(const Value: TTMSFNCCalendarLineAppearance);\r\n    procedure SetWeekNumberAppearance(const Value: TTMSFNCCalendarWeekNumberAppearance);\r\n    procedure SetArrowLeftRect(AHeaderRect: TRectF; var AArrowRect: TRectF; ACentre: Single);\r\n    procedure SetArrowRightRect(AHeaderRect: TREctF; var AArrowRect: TRectF; ACentre: Single);\r\n    procedure SetFocusedDate(const Value: TDate);\r\n    procedure SetDate(const Value: TDate);\r\n    procedure SetInteraction(const Value: TTMSFNCCalendarInteraction);\r\n    procedure SetMaxDate(const Value: TDate);\r\n    procedure SetMinDate(const Value: TDate);\r\n    procedure SetFooter(const Value: TTMSFNCCalendarFooter);\r\n    procedure SetBitmapContainer(const Value: TTMSFNCBitmapContainer);\r\n    procedure SetBadgeSize(const Value: Integer);\r\n    procedure SetEvents(const Value: TTMSFNCCalendarEvents);\r\n    function ColCount(const AShowWeeks: Boolean): Integer;\r\n    function CalcRowCount(const ACol: Integer; const ADaysInAMonth: Integer): Integer;\r\n    function CalcDateAreaHeight(const AHeight: Single; const AHeaderVisible: Boolean; const AFooterVisible: Boolean): Single;\r\n    function GetArrowRect(ALeft: Boolean): TRectF;\r\n    procedure GetMonthYearRect(AControl: TRectF; var AMonthRect: TRectF; var AYearRect: TRectF);\r\n    function GetFooterTextRect: TRectF;\r\n    function PointInRect(ARect: TRectF; APoint: TPointF): Boolean;\r\n    function IsMaxDateStored: Boolean;\r\n    function IsMinDateStored: Boolean;\r\n    function GetCurrentDate: TDate;\r\n    function GetBitmapContainer: TTMSFNCBitmapContainer;\r\n    function IsFocusedDateStored: Boolean;\r\n    procedure SetGlobalFont(const Value: TTMSFNCAppearanceGlobalFont);\r\n    function GetMonthsPopup: TTMSFNCCalendarPopupBox;\r\n    function GetYearsPopup: TTMSFNCCalendarPopupBox;\r\n  protected\r\n    procedure ApplyStyle; override;\r\n    procedure ResetToDefaultStyle; override;\r\n    procedure Changed;\r\n    procedure CalculateXOffset; virtual;\r\n    procedure ChangeDPIScale(M, D: Integer); override;\r\n    procedure Notification(AComponent: TComponent; Operation: TOperation); override;\r\n    procedure Draw(AGraphics: TTMSFNCGraphics; ARectF: TRectF); override;\r\n    procedure DrawHeader(AGraphics: TTMSFNCGraphics; ARectF: TRectF);\r\n    procedure DrawFooter(AGraphics: TTMSFNCGraphics; ARectF: TRectF);\r\n    procedure DrawArrows(AGraphics: TTMSFNCGraphics; ARectF: TRectF; ADirection: TTMSFNCCalendarArrowLayoutValue);\r\n    procedure DrawDayNames(AGraphics: TTMSFNCGraphics; ARectF: TRectF);\r\n    procedure DrawDays(AGraphics: TTMSFNCGraphics; ARectF: TRectF);\r\n    procedure DrawDayNumbers(AGraphics: TTMSFNCGraphics; ACellRect: TRectF; Col, Row, AMonth, I: Integer);\r\n    procedure DrawWeekNumbers(AGraphics: TTMSFNCGraphics; ARectF: TRectF);\r\n    procedure DrawLines(AGraphics: TTMSFNCGraphics; ARectF: TRectF);\r\n    procedure DrawBadges(AGraphics: TTMSFNCGraphics; ARectF: TRectF);\r\n    procedure DrawBadge(AGraphics: TTMSFNCGraphics; ARectF: TRectF; ABadge: TTMSFNCCalendarEventItem; ACol, ARow: Integer);\r\n    procedure EventsChanged(Sender: TObject);\r\n    procedure WeekNumbersChanged(Sender: TObject);\r\n    procedure ArrowsChanged(Sender: TObject);\r\n    procedure HeaderChanged(Sender: TObject);\r\n    procedure FooterChanged(Sender: TObject);\r\n    procedure DayNameAppearanceChanged(Sender: TObject);\r\n    procedure LineAppearanceChanged(Sender: TObject);\r\n    procedure ShowBeforeAndAfterChanged(Sender: TObject);\r\n    procedure HandleMouseDown(Button: TTMSFNCMouseButton; Shift: TShiftState; X, Y: Single); override;\r\n    procedure HandleMouseUp(Button: TTMSFNCMouseButton; Shift: TShiftState; X, Y: Single); override;\r\n    procedure HandleMouseMove(Shift: TShiftState; X, Y: Single); override;\r\n    procedure HandleKeyDown(var Key: Word; Shift: TShiftState); override;\r\n    procedure HandleKeyUp(var Key: Word; Shift: TShiftState); override;\r\n    procedure DoBeforeDrawHeader(AGraphics: TTMSFNCGraphics; ARect: TRectF; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawHeader(AGraphics: TTMSFNCGraphics; ARect: TRectF); virtual;\r\n    procedure DoBeforeDrawHeaderText(AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawHeaderText(AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign); virtual;\r\n    procedure DoBeforeDrawFooter(AGraphics: TTMSFNCGraphics; ARect: TRectF; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawFooter(AGraphics: TTMSFNCGraphics; ARect: TRectF); virtual;\r\n    procedure DoBeforeDrawFooterText(AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawFooterText(AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign); virtual;\r\n    procedure DoBeforeDrawDayNames(AGraphics: TTMSFNCGraphics; ARect: TRectF; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawDayNames(AGraphics: TTMSFNCGraphics; ARect: TRectF); virtual;\r\n    procedure DoBeforeDrawDayNamesText(AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawDayNamesText(AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign); virtual;\r\n    procedure DoBeforeDrawDayNumbers(AGraphics: TTMSFNCGraphics; ARect: TrectF; ADate: TDate; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawDayNumbers(AGraphics: TTMSFNCGraphics; ARect: TRectF; ADate: TDate); virtual;\r\n    procedure DoBeforeDrawDayNumbersText(AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawDayNumbersText(AGraphics: TTMSFNCGraphics; ARect: TrectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign); virtual;\r\n    procedure DoBeforeDrawLines(AGraphics: TTMSFNCGraphics; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawLines(AGraphics: TTMSFNCGraphics); virtual;\r\n    procedure DoBeforeDrawWeekNumbers(AGraphics: TTMSFNCGraphics; ARect: TRectF; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawWeekNumbers(AGraphics: TTMSFNCGraphics; ARect: TRectF); virtual;\r\n    procedure DoBeforeDrawWeekNumbersText(AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawWeekNumbersText(AGraphics: TTMSFNCGraphics; ARect: TrectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign); virtual;\r\n    procedure DoBeforeDrawBadge(AGraphics: TTMSFNCGraphics; ARect: TRectF; ABadge: TTMSFNCCalendarEventItem; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawBadge(AGraphics: TTMSFNCGraphics; ARect: TRectF; ABadge: TTMSFNCCalendarEventItem); virtual;\r\n    procedure DoBeforeDrawArrowLeft(AGraphics: TTMSFNCGraphics; AArrowRect: TRectF; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawArrowLeft(AGraphics: TTMSFNCGraphics; AArrowRect: TRectF); virtual;\r\n    procedure DoBeforeDrawArrowRight(AGraphics: TTMSFNCGraphics; AArrowRect: TRectF; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawArrowRight(AGraphics: TTMSFNCGraphics; AArrowRect: TRectF); virtual;\r\n    procedure DoBeforeSelectDate(ADate: TDate); virtual;\r\n    procedure DoSelectDate(ADate: TDate); virtual;\r\n    procedure DoSelectMultiDate(AStartDate: TDate; AEndDate: TDate); virtual;\r\n    procedure DoChangeYear(AYear: Integer); virtual;\r\n    procedure DoChangeMonth(AMonth: Integer); virtual;\r\n    procedure DoCustomNavigation(ADate: TDate; AFocusedDate: TDate; ADirection: Boolean); virtual;\r\n    procedure DoCustomArrowDraw(AGraphics: TTMSFNCGraphics; ARect: TRectF; ADirection: Boolean); virtual;\r\n    procedure DoPopupYearsChange(Sender: TObject);\r\n    procedure DoPopupMonthsChange(Sender: TObject);\r\n    procedure DoMonthSelectorPopup(ALeft, ATop: Single);\r\n    procedure DoYearSelectorPopup(ALeft, ATop: Single);\r\n    procedure DoBeforeShowMonthPopup(var AAllow: Boolean); virtual;\r\n    procedure DoBeforeShowYearPopup(var AAllow: Boolean); virtual;\r\n    procedure DoYearPopupValueSelected(AItemIndex: Integer; AYear: Integer); virtual;\r\n    procedure DoMonthPopupValueSelected(AItemIndex: Integer; AMonth: Integer; AMonthValue: string); virtual;\r\n    function IsAppearanceProperty(AObject: TObject; APropertyName: string; APropertyType: TTypeKind): Boolean; override;\r\n    function GetVersion: string; override;\r\n    function GetHintString: string; override;\r\n    function HasHint: Boolean; override;\r\n    function GetDocURL: string; override;\r\n    procedure SetFonts(ASetType: TTMSFNCAppearanceGlobalFontType); virtual;\r\n    property BitmapContainer: TTMSFNCBitmapContainer read GetBitmapContainer write SetBitmapContainer;\r\n    property Header: TTMSFNCCalendarHeader read FHeader write SetHeader;\r\n    property Footer: TTMSFNCCalendarFooter read FFooter write SetFooter;\r\n    property Events: TTMSFNCCalendarEvents read FEvents write SetEvents;\r\n    property Month: Integer read FMonth write SetMonth;\r\n    property Year: Integer read FYear write SetYear;\r\n    property MaxDate: TDate read FMaxDate write SetMaxDate stored IsMaxDateStored;\r\n    property MinDate: TDate read FMinDate write SetMinDate stored IsMinDateStored;\r\n    property WeekNumberAppearance: TTMSFNCCalendarWeekNumberAppearance read FWeekNumberAppearance write SetWeekNumberAppearance;\r\n    property FirstDay: Integer read FFirstDay write SetFirstDay default 1;\r\n    property DayNameAppearance: TTMSFNCCalendarDayNameAppearance read FDayNameAppearance write SetDayNameAppearance;\r\n    property DateAppearance: TTMSFNCCalendarDateAppearance read FDateAppearance write SetDateAppearance;\r\n    property LineAppearance: TTMSFNCCalendarLineAppearance read FLineAppearance write SetLineAppearance;\r\n    property Interaction: TTMSFNCCalendarInteraction read FInteraction write SetInteraction;\r\n    property GlobalFont: TTMSFNCAppearanceGlobalFont read FGlobalFont write SetGlobalFont;\r\n    property OnBeforeDrawHeader: TTMSFNCCalendarBeforeDrawHeaderEvent read FOnBeforeDrawHeader write FOnBeforeDrawHeader;\r\n    property OnAfterDrawHeader: TTMSFNCCalendarAfterDrawHeaderEvent read FOnAfterDrawHeader write FOnAfterDrawHeader;\r\n    property OnBeforeDrawHeaderText: TTMSFNCCalendarBeforeDrawHeaderTextEvent read FOnBeforeDrawHeaderText write FOnBeforeDrawHeaderText;\r\n    property OnAfterDrawHeaderText: TTMSFNCCalendarAfterDrawHeaderTextEvent read FOnAfterDrawHeaderText write FOnAfterDrawHeaderText;\r\n    property OnBeforeDrawFooter: TTMSFNCCalendarBeforeDrawFooterEvent read FOnBeforeDrawFooter write FOnBeforeDrawFooter;\r\n    property OnAfterDrawFooter: TTMSFNCCalendarAfterDrawFooterEvent read FOnAfterDrawFooter write FOnAfterDrawFooter;\r\n    property OnBeforeDrawFooterText: TTMSFNCCalendarBeforeDrawFooterTextEvent read FOnBeforeDrawFooterText write FOnBeforeDrawFooterText;\r\n    property OnAfterDrawFooterText: TTMSFNCCalendarAfterDrawFooterTextEvent read FOnAfterDrawFooterText write FOnAfterDrawFooterText;\r\n    property OnBeforeDrawDayNames: TTMSFNCCalendarBeforeDrawDayNamesEvent read FOnBeforeDrawDayNames write FOnBeforeDrawDayNames;\r\n    property OnAfterDrawDayNames: TTMSFNCCalendarAfterDrawDayNamesEvent read FOnAfterDrawDayNames write FOnAfterDrawDayNames;\r\n    property OnBeforeDrawDayNamesText: TTMSFNCCalendarBeforeDrawDayNamesTextEvent read FOnBeforeDrawDayNamesText write FOnBeforeDrawDayNamesText;\r\n    property OnAfterDrawDayNamesText: TTMSFNCCalendarAfterDrawDayNamesTextEvent read FOnAfterDrawDayNamesText write FOnAfterDrawDayNamesText;\r\n    property OnBeforeDrawDayNumbers: TTMSFNCCalendarBeforeDrawDayNumbersEvent read FOnBeforeDrawDayNumbers write FOnBeforeDrawDayNumbers;\r\n    property OnAfterDrawDayNumbers: TTMSFNCCalendarAfterDrawDayNumbersEvent read FOnAfterDrawDayNumbers write FOnAfterDrawDayNumbers;\r\n    property OnBeforeDrawDayNumbersText: TTMSFNCCalendarBeforeDrawDayNumbersTextEvent read FOnBeforeDrawDayNumbersText write FOnBeforeDrawDayNumbersText;\r\n    property OnAfterDrawDayNumbersText: TTMSFNCCalendarAfterDrawDayNumbersTextEvent read FOnAfterDrawDayNumbersText write FOnAfterDrawDayNumbersText;\r\n    property OnBeforeDrawLines: TTMSFNCCalendarBeforeDrawLinesEvent read FOnBeforeDrawLines write FOnBeforeDrawLines;\r\n    property OnAfterDrawLines: TTMSFNCCalendarAfterDrawLinesEvent read FOnAfterDrawLines write FOnAfterDrawLines;\r\n    property OnBeforeDrawWeekNumbers: TTMSFNCCalendarBeforeDrawWeekNumbersEvent read FOnBeforeDrawWeekNumbers write FOnBeforeDrawWeekNumbers;\r\n    property OnAfterDrawWeekNumbers: TTMSFNCCalendarAfterDrawWeekNumbersEvent read FOnAfterDrawWeekNumbers write FOnAfterDrawWeekNumbers;\r\n    property OnBeforeDrawWeekNumbersText: TTMSFNCCalendarBeforeDrawWeekNumbersTextEvent read FOnBeforeDrawWeekNumbersText write FOnBeforeDrawWeekNumbersText;\r\n    property OnAfterDrawWeekNumbersText: TTMSFNCCalendarAfterDrawWeekNumbersTextEvent read FOnAfterDrawWeekNumbersText write FOnAfterDrawWeekNumbersText;\r\n    property OnBeforeDrawBadge: TTMSFNCCalendarBeforeDrawBadgeEvent read FOnBeforeDrawBadge write FOnBeforeDrawBadge;\r\n    property OnAfterDrawBadge: TTMSFNCCalendarAfterDrawBadgeEvent read FOnAfterDrawBadge write FOnAfterDrawBadge;\r\n    property OnBeforeDrawArrowLeft: TTMSFNCCalendarBeforeDrawArrowLeftEvent read FOnBeforeDrawArrowLeft write FOnBeforeDrawArrowLeft;\r\n    property OnAfterDrawArrowLeft: TTMSFNCCalendarAfterDrawArrowLeftEvent read FOnAfterDrawArrowLeft write FOnAfterDrawArrowLeft;\r\n    property OnBeforeDrawArrowRight: TTMSFNCCalendarBeforeDrawArrowRightEvent read FOnBeforeDrawArrowRight write FOnBeforeDrawArrowRight;\r\n    property OnAfterDrawArrowRight: TTMSFNCCalendarAfterDrawArrowRightEvent read FOnAfterDrawArrowRight write FOnAfterDrawArrowRight;\r\n    property OnBeforeSelectDate: TTMSFNCCalendarBeforeSelectDateEvent read FOnBeforeSelectDate write FOnBeforeSelectDate;\r\n    property OnSelectDate: TTMSFNCCalendarSelectedDateEvent read FOnSelectDate write FOnSelectDate;\r\n    property OnSelectMultiDate: TTMSFNCCalendarSelectedMultiDateEvent read FOnSelectMultiDate write FOnSelectMultiDate;\r\n    property OnYearChanged: TTMSFNCCalendarYearChangedEvent read FOnYearChanged write FOnYearChanged;\r\n    property OnMonthChanged: TTMSFNCCalendarMonthChangedEvent read FOnMonthChanged write FOnMonthChanged;\r\n    property OnCustomNavigation: TTMSFNCCalendarCustomNavigationEvent read FOnCustomNavigation write FOnCustomNavigation;\r\n    property OnCustomArrowDraw: TTMSFNCCalendarCustomArrowDrawEvent read FOnCustomArrowDraw write FOnCustomArrowDraw;\r\n    property OnNavigateBack: TTMSFNCCalendarCustomNavigateEvent read FOnNavigateBack write FOnNavigateBack;\r\n    property OnNavigateForward: TTMSFNCCalendarCustomNavigateEvent read FOnNavigateForward write FOnNavigateForward;\r\n    property OnNavigateFooter: TNotifyEvent read FOnNavigateFooter write FOnNavigateFooter;\r\n    property OnBeforeShowMonthPopup: TTMSFNCCalendarShowPopupEvent read FOnBeforeShowMonthPopup write FOnBeforeShowMonthPopup;\r\n    property OnBeforeShowYearPopup: TTMSFNCCalendarShowPopupEvent read FOnBeforeShowYearPopup write FOnBeforeShowYearPopup;\r\n    property OnYearPopupValueSelected: TTMSFNCCalendarYearPopupValueSelected read FOnYearPopupValueSelected write FOnYearPopupValueSelected;\r\n    property OnMonthPopupValueSelected: TTMSFNCCalendarMonthPopupValueSelected read FOnMonthPopupValueSelected write FOnMonthPopupValueSelected;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure SelectDate(ADate: TDate);\r\n    procedure SelectEvent(ADate: TDate);\r\n    procedure SelectMultiDates(AStartDate: TDate; AEndDate: TDate);\r\n    procedure PreviousDate;\r\n    procedure NextDate;\r\n    procedure UpdateControlAfterResize; override;\r\n    procedure SelectADate(ADate: TDate);\r\n    procedure SelectDateIfAvailable(ADate: TDate);\r\n    procedure InitSample; virtual;\r\n    function ColAtX(AX: Single): Integer;\r\n    function RowAtY(AY: Single): Integer;\r\n    function DateToRow(ADate: TDate): Integer;\r\n    function DateToCol(ADate: TDate): Integer;\r\n    function XYToDate(AX, AY: Single): TDate;\r\n    function CurrentDay: Integer;\r\n    function CurrentMonth: Integer;\r\n    function CurrentYear: Integer;\r\n    function PreviousMonth: Integer;\r\n    function PreviousYear: Integer;\r\n    function NextMonth: Integer;\r\n    function NextYear: Integer;\r\n    function SelectedDate: TDate;\r\n    property MonthsPopup: TTMSFNCCalendarPopupBox read GetMonthsPopup;\r\n    property YearsPopup: TTMSFNCCalendarPopupBox read GetYearsPopup;\r\n    property Day: Integer read FDay write SetDay;\r\n    property Date: TDate read FDate write SetDate;\r\n    property CurrentDate: TDate read GetCurrentDate;\r\n    property FocusedDate: TDate read FFocusedDate write SetFocusedDate stored IsFocusedDateStored nodefault;\r\n    property SelectedDates: TTMSFNCCalendarDates read FSelectedDates;\r\n    property BadgeSize: Integer read FBadgeSize write SetBadgeSize default 14;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCCalendar = class(TTMSFNCCustomCalendar)\r\n  published\r\n    property BitmapContainer;\r\n    property BadgeSize;\r\n    property Header;\r\n    property Footer;\r\n    property Fill;\r\n    property Stroke;\r\n    property Day;\r\n    property Month;\r\n    property Year;\r\n    property Date;\r\n    property MaxDate;\r\n    property MinDate;\r\n    property FirstDay;\r\n    property Events;\r\n    property WeekNumberAppearance;\r\n    property DayNameAppearance;\r\n    property DateAppearance;\r\n    property LineAppearance;\r\n    property Interaction;\r\n    property GlobalFont;\r\n    property OnBeforeDrawHeader;\r\n    property OnAfterDrawHeader;\r\n    property OnBeforeDrawFooter;\r\n    property OnAfterDrawFooter;\r\n    property OnBeforeDrawDayNames;\r\n    property OnAfterDrawDayNames;\r\n    property OnBeforeDrawDayNumbers;\r\n    property OnAfterDrawDayNumbers;\r\n    property OnBeforeDrawLines;\r\n    property OnAfterDrawLines;\r\n    property OnBeforeDrawWeekNumbers;\r\n    property OnAfterDrawWeekNumbers;\r\n    property OnBeforeDrawArrowLeft;\r\n    property OnAfterDrawArrowLeft;\r\n    property OnBeforeDrawArrowRight;\r\n    property OnAfterDrawArrowRight;\r\n    property OnBeforeDrawBadge;\r\n    property OnAfterDrawBadge;\r\n    property OnBeforeDrawHeaderText;\r\n    property OnAfterDrawHeaderText;\r\n    property OnBeforeDrawFooterText;\r\n    property OnAfterDrawFooterText;\r\n    property OnBeforeDrawDayNamesText;\r\n    property OnAfterDrawDayNamesText;\r\n    property OnBeforeDrawDayNumbersText;\r\n    property OnAfterDrawDayNumbersText;\r\n    property OnBeforeDrawWeekNumbersText;\r\n    property OnAfterDrawWeekNumbersText;\r\n    property OnBeforeSelectDate;\r\n    property OnSelectDate;\r\n    property OnSelectMultiDate;\r\n    property OnYearChanged;\r\n    property OnMonthChanged;\r\n    property OnCustomNavigation;\r\n    property OnCustomArrowDraw;\r\n    property OnNavigateBack;\r\n    property OnNavigateForward;\r\n    property OnNavigateFooter;\r\n    property OnBeforeShowMonthPopup;\r\n    property OnBeforeShowYearPopup;\r\n    property OnYearPopupValueSelected;\r\n    property OnMonthPopupValueSelected;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  Math, DateUtils, Variants, WEBLib.TMSFNCPersistence;\r\n\r\nconst\r\n  CALMINDATE = -693594;\r\n  ARRPOS = 8;\r\n  //DAYNAMEHEIGHT = 15;\r\n\r\ntype\r\n  TTMSFNCCalendarWordArray = array of Word;\r\n\r\nfunction GetTickCountX: DWORD;\r\nvar\r\n  h, m, s, ms: Word;\r\nbegin\r\n  DecodeTime(Now, h, m, s, ms);\r\n  Result := ms + s * 1000 + m * 60 * 1000 + h * 60 * 60 * 1000;\r\nend;\r\n\r\n{ TTMSFNCCustomCalendar }\r\n\r\nfunction TTMSFNCCustomCalendar.ColCount(const AShowWeeks: Boolean): Integer;\r\nbegin\r\n  if AShowWeeks then\r\n    Result := 8\r\n  else\r\n    Result := 7;\r\nend;\r\n\r\nconstructor TTMSFNCCustomCalendar.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  {$IFDEF CMNLIB}\r\n  {$IFDEF MSWINDOWS}\r\n  NativeCanvas := True;\r\n  TextQuality := gtqClearType;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  Width := 235;\r\n  Height := 235;\r\n  Date := Int(Now);\r\n  FHoverDate := CALMINDATE;\r\n  FSelectedAll := False;\r\n  FBadgeSize := 14;\r\n  FFocusedDate := FDate;\r\n  SetFirstDay(1);\r\n\r\n  FHeader := TTMSFNCCalendarHeader.Create(Self);\r\n  FFooter := TTMSFNCCalendarFooter.Create;\r\n  FDayNameAppearance := TTMSFNCCalendarDayNameAppearance.Create;\r\n  FDateAppearance := TTMSFNCCalendarDateAppearance.Create;\r\n  FLineAppearance := TTMSFNCCalendarLineAppearance.Create;\r\n  FWeekNumberAppearance := TTMSFNCCalendarWeekNumberAppearance.Create;\r\n  FInteraction := TTMSFNCCalendarInteraction.Create;\r\n  FSelectedDates := TTMSFNCCalendarDates.Create(TTMSFNCCalendarDateItem);\r\n  FEvents := TTMSFNCCalendarEvents.Create(TTMSFNCCalendarEventItem);\r\n\r\n  SelectDate(FFocusedDate);\r\n  CalculateXOffset;\r\n\r\n  FEvents.OnChange := @EventsChanged;\r\n  FWeekNumberAppearance.OnChange := @WeekNumbersChanged;\r\n  FDateAppearance.OnChange := @ShowBeforeAndAfterChanged;\r\n  FHeader.OnChange := @HeaderChanged;\r\n  FHeader.Arrow.OnChange := @ArrowsChanged;\r\n  FFooter.OnChange := @FooterChanged;\r\n  FDayNameAppearance.OnChange := @DayNameAppearanceChanged;\r\n  FLineAppearance.OnChange := @LineAppearanceChanged;\r\n  FGlobalFont := TTMSFNCAppearanceGlobalFont.Create(Self);\r\n\r\n  if IsDesignTime then\r\n    InitSample;\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.DateToCol(ADate: TDate): Integer;\r\nvar\r\n  Col: Integer;\r\nbegin\r\n  Col := DayOfWeek(EncodeDate(FYear, FMonth, 1)) - FirstDay;\r\n  if Col < 0 then\r\n    Col := Col + 7;\r\n\r\n  if WeekNumberAppearance.Visible then\r\n    Result := (Col + DayOf(ADate) + DateToRow(ADate)) mod 8\r\n  else\r\n    Result := (Col + DayOf(ADate) - 1) mod 7;\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.DateToRow(ADate: TDate): Integer;\r\nvar\r\n  fd: Integer;\r\nbegin\r\n  fd := DayOfWeek(EncodeDate(FYear, FMonth, 1)) - FirstDay;\r\n  if fd < 0 then\r\n    fd := fd + 7;\r\n\r\n  Result := (fd - 1 + DayOf(ADate)) div 7;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DayNameAppearanceChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\ndestructor TTMSFNCCustomCalendar.Destroy;\r\nbegin\r\n  FGlobalFont.Free;\r\n  FHeader.Free;\r\n  FFooter.Free;\r\n  FDayNameAppearance.Free;\r\n  FDateAppearance.Free;\r\n  FLineAppearance.Free;\r\n  FWeekNumberAppearance.Free;\r\n  FSelectedDates.Free;\r\n  FEvents.Free;\r\n  FInteraction.Free;\r\n  if Assigned(FYearsPopup) then\r\n    FYearsPopup.Free;\r\n  if Assigned(FMonthsPopup) then\r\n    FMonthsPopup.Free;\r\n  inherited;\r\nend;\r\n\r\n procedure TTMSFNCCustomCalendar.DoAfterDrawArrowLeft(AGraphics: TTMSFNCGraphics;\r\n  AArrowRect: TRectF);\r\nbegin\r\n  if Assigned(OnAfterDrawArrowLeft) then\r\n    OnAfterDrawArrowLeft(Self, AGraphics, AArrowRect);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoAfterDrawArrowRight(\r\n  AGraphics: TTMSFNCGraphics; AArrowRect: TRectF);\r\nbegin\r\n  if Assigned(OnAfterDrawArrowRight) then\r\n    OnAfterDrawArrowRight(Self, Agraphics, AArrowRect);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoAfterDrawBadge(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; ABadge: TTMSFNCCalendarEventItem);\r\nbegin\r\n  if Assigned(OnAfterDrawBadge) then\r\n    OnAfterDrawBadge(Self, AGraphics, ARect, ABadge);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoAfterDrawDayNames(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF);\r\nbegin\r\n  if Assigned(OnAfterDrawDayNames) then\r\n    OnAfterDrawDayNames(Self, AGraphics, ARect);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoAfterDrawDayNamesText(\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string;\r\n  AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if Assigned(OnAfterDrawDayNamesText) then\r\n    OnAfterDrawDayNamesText(Self, AGraphics, ARect, AText, AHorizontalTextAlign, AVerticalTextAlign);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoAfterDrawDayNumbers(\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; ADate: TDate);\r\nbegin\r\n  if Assigned(OnAfterDrawDayNumbers) then\r\n    OnAfterDrawDayNumbers(Self, AGraphics, ARect, ADate);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoAfterDrawDayNumbersText(\r\n  AGraphics: TTMSFNCGraphics; ARect: TrectF; AText: string;\r\n  AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if Assigned(OnAfterDrawDayNumbersText) then\r\n    OnAfterDrawDayNumbersText(Self, AGraphics, ARect, AText, AHorizontalTextAlign, AVerticalTextAlign);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoAfterDrawFooter(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF);\r\nbegin\r\n  if Assigned(OnAfterDrawFooter) then\r\n    OnAfterDrawFooter(Self, AGraphics, ARect);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoAfterDrawFooterText(\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string;\r\n  AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if Assigned(OnAfterDrawFooterText) then\r\n    OnAfterDrawFooterText(Self, AGraphics, ARect, AText, AHorizontalTexTAlign, AVerticalTextAlign);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoAfterDrawHeader(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF);\r\nbegin\r\n  if Assigned(OnAfterDrawHeader) then\r\n    OnAfterDrawHeader(Self, AGraphics, ARect);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoAfterDrawHeaderText(\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string;\r\n  AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if Assigned(OnAfterDrawHeaderText) then\r\n    OnAfterDrawHeaderText(Self, AGraphics, ARect, AText, AHorizontalTexTAlign, AVerticalTextAlign);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoAfterDrawWeekNumbersText(\r\n  AGraphics: TTMSFNCGraphics; ARect: TrectF; AText: string;\r\n  AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if Assigned(OnAfterDrawWeekNumbersText) then\r\n    OnAfterDrawWeekNumbersText(Self, AGraphics, ARect, AText, AHorizontalTextAlign, AVerticalTextAlign);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoAfterDrawLines(AGraphics: TTMSFNCGraphics);\r\nbegin\r\n  if Assigned(OnAfterDrawLines) then\r\n    OnAfterDrawLines(Self, AGraphics);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoAfterDrawWeekNumbers(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF);\r\nbegin\r\n  if Assigned(OnAfterDrawWeekNumbers) then\r\n    OnAfterDrawWeekNumbers(Self, AGraphics, ARect);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoBeforeDrawArrowLeft(\r\n  AGraphics: TTMSFNCGraphics; AArrowRect: TRectF; var AAllow,\r\n  ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawArrowLeft) then\r\n    OnBeforeDrawArrowLeft(Self, Agraphics, AArrowRect, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoBeforeDrawArrowRight(\r\n  AGraphics: TTMSFNCGraphics; AArrowRect: TRectF; var AAllow,\r\n  ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawArrowRight) then\r\n    OnBeforeDrawArrowRight(Self, AGraphics, AArrowRect, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoBeforeDrawBadge(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; ABadge: TTMSFNCCalendarEventItem; var AAllow,\r\n  ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawBadge) then\r\n    OnBeforeDrawBadge(Self, AGraphics, ARect, ABadge, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoBeforeDrawDayNames(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawDayNames) then\r\n    OnBeforeDrawDayNames(Self, AGraphics, ARect, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoBeforeDrawDayNamesText(\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string;\r\n  AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n  var AAllow: Boolean; var ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawDayNamesText) then\r\n    OnBeforeDrawDayNamesText(Self, AGraphics, ARect, AText, AHorizontalTextAlign, AVerticalTextAlign, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoBeforeDrawDayNumbers(\r\n  AGraphics: TTMSFNCGraphics; ARect: TrectF; ADate: TDate; var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawDayNumbers) then\r\n    OnBeforeDrawDayNumbers(Self, AGraphics, ARect, ADate, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoBeforeDrawDayNumbersText(\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string;\r\n  AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n  var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawDayNumbersText) then\r\n    OnBeforeDrawDayNumbersText(Self, AGraphics, ARect, AText, AHorizontalTextAlign, AVerticalTextAlign, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoBeforeDrawFooter(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawFooter) then\r\n    OnBeforeDrawFooter(Self, AGraphics, ARect, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoBeforeDrawFooterText(\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string;\r\n  AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n  var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawFooterText) then\r\n    OnBeforeDrawFooterText(Self, AGraphics, ARect, AText, AHorizontalTextAlign, AVerticalTextAlign, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoBeforeDrawHeader(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawHeader) then\r\n    OnBeforeDrawHeader(Self, AGraphics, ARect, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoBeforeDrawHeaderText(\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string;\r\n  AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n  var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawHeaderText) then\r\n    OnBeforeDrawHeaderText(Self, AGraphics, ARect, AText, AHorizontalTextAlign, AVerticalTextAlign, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoBeforeDrawWeekNumbersText(\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string;\r\n  AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n  var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawWeekNumbersText) then\r\n    OnBeforeDrawWeekNumbersText(Self, AGraphics, ARect, AText, AHorizontalTextAlign, AVerticalTextAlign, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoBeforeShowMonthPopup(var AAllow: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeShowMonthPopup) then\r\n    OnBeforeShowMonthPopup(Self, AAllow);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoBeforeSelectDate(ADate: TDate);\r\nbegin\r\n  if Assigned(OnBeforeSelectDate) then\r\n    OnBeforeSelectDate(Self, ADate);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoBeforeShowYearPopup(var AAllow: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeShowYearPopup) then\r\n    OnBeforeShowYearPopup(Self, AAllow);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoChangeMonth(AMonth: Integer);\r\nbegin\r\n  if Assigned(OnMonthChanged) then\r\n    OnMonthChanged(Self, AMonth);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoChangeYear(AYear: Integer);\r\nbegin\r\n  if Assigned(OnYearChanged) then\r\n    OnYearChanged(Self, AYear);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoCustomArrowDraw(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; ADirection: Boolean);\r\nbegin\r\n  if Assigned(OnCustomArrowDraw) then\r\n    OnCustomArrowDraw(Self, AGraphics, ARect, ADirection);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoCustomNavigation(ADate,\r\n  AFocusedDate: TDate; ADirection: Boolean);\r\nbegin\r\n  if Assigned(OnCustomNavigation) then\r\n    OnCustomNavigation(Self, ADate, AFocusedDate, ADirection);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoMonthPopupValueSelected(AItemIndex: Integer; AMonth: Integer; AMonthValue: string);\r\nbegin\r\n  if Assigned(OnMonthPopupValueSelected) then\r\n    OnMonthPopupValueSelected(Self, AItemIndex, AMonth, AMonthValue);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoMonthSelectorPopup(ALeft, ATop: Single);\r\nvar\r\n  I: Integer;\r\n  b: Boolean;\r\n  p: TPointF;\r\nbegin\r\n  MonthsPopup.Items.Clear;\r\n\r\n  for I := 1 to 12 do\r\n    MonthsPopup.Items.Add(FormatSettings.LongMonthNames[I]);\r\n  MonthsPopup.ItemIndex := MonthOf(Date) - 1;\r\n\r\n  p := PointF(ALeft, ATop);\r\n  {$IFNDEF FMXLIB}\r\n  p := LocalToScreenEx(p);\r\n  {$ENDIF}\r\n\r\n  b := True;\r\n  DoBeforeShowMonthPopup(b);\r\n  if b then\r\n    MonthsPopup.Popup(p);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoPopupMonthsChange(Sender: TObject);\r\nvar\r\n  m: Integer;\r\nbegin\r\n  m := MonthsPopup.ItemIndex + 1;\r\n  DoMonthPopupValueSelected(MonthsPopup.ItemIndex, m, MonthsPopup.Items[MonthsPopup.ItemIndex]);\r\n  Month := m;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoPopupYearsChange(Sender: TObject);\r\nvar\r\n  y: Integer;\r\nbegin\r\n  y := StrToInt(YearsPopup.Items[YearsPopup.ItemIndex]);\r\n  DoYearPopupValueSelected(YearsPopup.ItemIndex, y);\r\n  Year := y;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoSelectDate(ADate: TDate);\r\nbegin\r\n  if Assigned(OnSelectDate) then\r\n    OnSelectDate(Self, ADate);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoSelectMultiDate(AStartDate,\r\n  AEndDate: TDate);\r\nbegin\r\n  if Assigned(OnSelectMultiDate) then\r\n    OnSelectMultiDate(Self, AStartDate, AEndDate);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoYearPopupValueSelected(AItemIndex: Integer; AYear: Integer);\r\nbegin\r\n  if Assigned(OnYearPopupValueSelected) then\r\n    OnYearPopupValueSelected(Self, AItemIndex, AYear);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoYearSelectorPopup(ALeft, ATop: Single);\r\nvar\r\n  I: Integer;\r\n  b: Boolean;\r\n  p: TPointF;\r\nbegin\r\n  YearsPopup.Items.Clear;\r\n\r\n  for I := Interaction.YearOptions.ItemsBeforeCurrentYear downto 1 do\r\n    YearsPopup.Items.Add(IntToStr(Year - I));\r\n\r\n  YearsPopup.Items.Add(IntToStr(Year));\r\n\r\n  for I := 1 to Interaction.YearOptions.ItemsAfterCurrentYear do\r\n    YearsPopup.Items.Add(IntToStr(Year + I));\r\n\r\n  YearsPopup.ItemIndex := Interaction.YearOptions.ItemsBeforeCurrentYear;\r\n\r\n  p := PointF(ALeft, ATop);\r\n  {$IFNDEF FMXLIB}\r\n  p := LocalToScreenEx(p);\r\n  {$ENDIF}\r\n\r\n  b := True;\r\n  DoBeforeShowYearPopup(b);\r\n  if b then\r\n    YearsPopup.Popup(p);\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.IsMaxDateStored: Boolean;\r\nbegin\r\n  Result := FMaxDate <> 0.0;\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.IsMinDateStored: Boolean;\r\nbegin\r\n  Result := FMinDate <> 0.0;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.LineAppearanceChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoBeforeDrawLines(AGraphics: TTMSFNCGraphics;\r\n  var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawLines) then\r\n    OnBeforeDrawLines(Self, AGraphics, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DoBeforeDrawWeekNumbers(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF; var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawWeekNumbers) then\r\n    OnBeforeDrawWeekNumbers(Self, AGraphics, ARect, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.Draw(AGraphics: TTMSFNCGraphics;\r\n  ARectF: TRectF);\r\nbegin\r\n  inherited;\r\n  FDateAreaHeight := CalcDateAreaHeight(Height, FHeader.Visible, FFooter.Visible);\r\n\r\n  AGraphics.BitmapContainer := BitmapContainer;\r\n\r\n  DrawDayNames(AGraphics, ARectF);\r\n\r\n  if FDateAreaHeight > 0 then\r\n  begin\r\n    DrawDays(AGraphics, ARectF);\r\n    if WeekNumberAppearance.Visible then\r\n      DrawWeekNumbers(AGraphics, ARectF);\r\n  end;\r\n\r\n  if FFooter.Visible then\r\n    DrawFooter(AGraphics, ARectF);\r\n\r\n  DrawLines(AGraphics, ARectF);\r\n\r\n  if FHeader.Visible then\r\n    DrawHeader(AGraphics, ARectF);\r\n\r\n  DrawBadges(AGraphics, ARectF);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DrawArrows(AGraphics: TTMSFNCGraphics;\r\n  ARectF: TRectF; ADirection: TTMSFNCCalendarArrowLayoutValue);\r\nvar\r\n  arrPath: TTMSFNCGraphicsPath;\r\n  p: TPointF;\r\n  rHeight, rRight, rLeft: Single;\r\n  b, df: Boolean;\r\nbegin\r\n  rHeight := (ARectF.Bottom - ARectF.Top);\r\n  InflateRectEx(ARectF, -1, -1);\r\n  AGraphics.Fill.Color := Header.Arrow.Color;\r\n  AGraphics.Stroke.Color := Header.Arrow.Color;\r\n\r\n  if ADirection = alvLeft then\r\n  begin\r\n    b := True;\r\n    df := True;\r\n    case Header.Arrow.ArrowLeftType of\r\n      atTriangle:\r\n      begin\r\n        arrPath := TTMSFNCGraphicsPath.Create;\r\n        try\r\n          p := PointF(ARectF.Left, ARectF.Top + rHeight / 2);\r\n          arrPath.MoveTo(p);\r\n          arrPath.LineTo(PointF(ARectF.Right, ARectF.Top));\r\n          arrPath.LineTo(PointF(ARectF.Right, ARectF.Bottom));\r\n          arrPath.ClosePath;\r\n          AGraphics.Stroke.Width := 1;\r\n\r\n          DoBeforeDrawArrowLeft(AGraphics, ARectF, b, df);\r\n          if b then\r\n          begin\r\n            if df then\r\n              AGraphics.DrawPath(arrPath);\r\n\r\n            DoAfterDrawArrowLeft(AGraphics, ARectF);\r\n          end;\r\n        finally\r\n          arrPath.Free;\r\n        end;\r\n      end;\r\n      atArrow:\r\n      begin\r\n        p := PointF(ARectF.Left, ARectF.Top + rHeight / 2);\r\n        rRight := ARectF.Left + (ARectF.Right - ARectF.Left) / 2;\r\n        AGraphics.Stroke.Width := 2;\r\n\r\n        DoBeforeDrawArrowLeft(AGraphics, ARectF, b, df);\r\n        if b then\r\n        begin\r\n          if df then\r\n          begin\r\n            AGraphics.DrawLine(PointF(rRight, ARectF.Top), p);\r\n            AGraphics.DrawLine(p, PointF(rRight, ARectF.Bottom));\r\n          end;\r\n          DoAfterDrawArrowLeft(AGraphics, ARectF);\r\n        end;\r\n      end;\r\n      atBitmap:\r\n      begin\r\n        DoBeforeDrawArrowLeft(AGraphics, ARectF, b, df);\r\n        if b then\r\n        begin\r\n          if df then\r\n            AGraphics.DrawScaledBitmap(ARectF, FHeader.Arrow.FArrowLeftBitmap);\r\n\r\n          DoAfterDrawArrowLeft(AGraphics, ARectF);\r\n        end;\r\n      end;\r\n      atCustom:\r\n      begin\r\n        DoBeforeDrawArrowLeft(AGraphics, ARectF, b, df);\r\n        if b then\r\n        begin\r\n          if df then\r\n            DoCustomArrowDraw(AGraphics, ARectF, True);\r\n\r\n          DoAfterDrawArrowLeft(AGraphics, ARectF);\r\n        end;\r\n      end;\r\n    end;\r\n  end\r\n  else if ADirection = alvRight then\r\n  begin\r\n    b := True;\r\n    df := True;\r\n    case Header.Arrow.ArrowRightType of\r\n      atTriangle:\r\n      begin\r\n        arrPath := TTMSFNCGraphicsPath.Create;\r\n        try\r\n          p := PointF(ARectF.Right, ARectF.Top + rHeight / 2);\r\n          arrPath.MoveTo(p);\r\n          arrPath.LineTo(PointF(ARectF.Left, ARectF.Bottom));\r\n          arrPath.LineTo(PointF(ARectF.Left, ARectF.Top));\r\n          arrPath.ClosePath;\r\n          AGraphics.Stroke.Width := 1;\r\n\r\n          DoBeforeDrawArrowLeft(AGraphics, ARectF, b, df);\r\n          if b then\r\n          begin\r\n            if df then\r\n              AGraphics.DrawPath(arrPath);\r\n\r\n            DoAfterDrawArrowLeft(AGraphics, ARectF);\r\n          end;\r\n        finally\r\n          arrPath.Free;\r\n        end;\r\n      end;\r\n      atArrow:\r\n      begin\r\n        p := PointF(ARectF.Right, ARectF.Top + rHeight / 2);\r\n        rLeft := ARectF.Left + (ARectF.Right - ARectF.Left) / 2;\r\n        AGraphics.Stroke.Width := 2;\r\n\r\n        DoBeforeDrawArrowLeft(AGraphics, ARectF, b, df);\r\n        if b then\r\n        begin\r\n          if df then\r\n          begin\r\n            AGraphics.DrawLine(PointF(rLeft, ARectF.Top), p);\r\n            AGraphics.DrawLine(PointF(rLeft, ARectF.Bottom), p);\r\n          end;\r\n          DoAfterDrawArrowLeft(AGraphics, ARectF);\r\n        end;\r\n      end;\r\n      atBitmap:\r\n      begin\r\n        DoBeforeDrawArrowLeft(AGraphics, ARectF, b, df);\r\n        if b then\r\n        begin\r\n          if df then\r\n            AGraphics.DrawScaledBitmap(ARectF, FHeader.Arrow.ArrowRightBitmap);\r\n\r\n          DoAfterDrawArrowLeft(AGraphics, ARectF);\r\n        end;\r\n      end;\r\n      atCustom:\r\n      begin\r\n        DoBeforeDrawArrowLeft(AGraphics, ARectF, b, df);\r\n        if b then\r\n        begin\r\n          if df then\r\n            DoCustomArrowDraw(AGraphics, ARectF, False);\r\n\r\n          DoAfterDrawArrowLeft(AGraphics, ARectF);\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DrawBadge(AGraphics: TTMSFNCGraphics;\r\n  ARectF: TRectF; ABadge: TTMSFNCCalendarEventItem; ACol, ARow: Integer);\r\nvar\r\n  b, df: Boolean;\r\nbegin\r\n  if ABadge.BadgeColor <> gcNull then\r\n  begin\r\n    AGraphics.Fill.Kind := gfkSolid;\r\n    AGraphics.Stroke.Kind := gskSolid;\r\n    AGraphics.Fill.Color := ABadge.BadgeColor;\r\n    AGraphics.Stroke.Color := ABadge.BadgeColor;\r\n  end\r\n  else\r\n  begin\r\n    AGraphics.Fill.Assign(DateAppearance.BadgeFill);\r\n    AGraphics.Stroke.Assign(DateAppearance.BadgeStroke);\r\n  end;\r\n\r\n  if ABadge.BadgeFontColor <> gcNull then\r\n  begin\r\n    {$IFNDEF FMXLIB}\r\n    AGraphics.Font.Size := 7;\r\n    {$ENDIF}\r\n    {$IFDEF FMXLIB}\r\n    AGraphics.Font.Size := 10;\r\n    {$ENDIF}\r\n    AGraphics.Font.Color := ABadge.BadgeFontColor\r\n  end\r\n  else\r\n    AGraphics.Font.AssignSource(DateAppearance.BadgeFont);\r\n\r\n  ShiftCellH(ARectF, (ACol + 1) * FXOffset - FBadgeSize);\r\n  ShiftCellV(ARectF, ARow * FYOffset);\r\n\r\n  b := True;\r\n  df := True;\r\n  DoBeforeDrawBadge(AGraphics, ARectF, ABadge, b, df);\r\n  if b then\r\n  begin\r\n    if df then\r\n    begin\r\n      AGraphics.DrawEllipse(ARectF);\r\n      if ABadge.BadgeValue <> 0 then\r\n         AGraphics.DrawText(ARectF, IntToStr(ABadge.BadgeValue), False, gtaCenter, gtaCenter)\r\n    end;\r\n    DoAfterDrawBadge(AGraphics, ARectF, ABadge);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DrawBadges(AGraphics: TTMSFNCGraphics;\r\n  ARectF: TRectF);\r\nvar\r\n  col, row, I: Integer;\r\n  br: TRectF;\r\n  badge: TTMSFNCCalendarEventItem;\r\nbegin\r\n  br := RectF(ARectF.Left, ARectF.Top, ARectF.Left + FBadgeSize, ARectF.Top + FBadgeSize);\r\n  ShiftCellH(br, 1);\r\n\r\n  if FHeader.Visible then\r\n    ShiftCellV(br, FHeader.Height + FDayNameAppearance.Height)\r\n  else\r\n    ShiftCellV(br, FDayNameAppearance.Height);\r\n\r\n  for I := 0 to FEvents.Count - 1 do\r\n  begin\r\n    Badge := FEvents.Items[I];\r\n    if (FYear = YearOf(badge.Date)) and (FMonth = MonthOf(badge.Date)) and badge.ShowBadge then\r\n    begin\r\n      row := DateToRow(badge.Date);\r\n      col := DateToCol(badge.Date);\r\n      DrawBadge(AGraphics, br, badge, col, row);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DrawDayNames(AGraphics: TTMSFNCGraphics;\r\n  ARectF: TRectF);\r\nvar\r\n  dnColCount, dn: Integer;\r\n  cellRect: TRectF;\r\n  I: Integer;\r\n  b, df: Boolean;\r\nbegin\r\n  dnColCount := ColCount(WeekNumberAppearance.Visible);\r\n\r\n  if FHeader.Visible then\r\n    cellRect := RectF(ARectF.Left, Header.Height - 1, FXOffset, Header.Height + FDayNameAppearance.Height)\r\n  else\r\n    cellRect := RectF(ARectF.Left, ARectF.Top + 1, FXOffset, FDayNameAppearance.Height);\r\n\r\n  dn := FirstDay;\r\n  ShiftCellH(cellRect, 1);\r\n\r\n  if WeekNumberAppearance.Visible then\r\n  begin\r\n    ShiftCellH(cellRect, FXOffset);\r\n    dnColCount := dnColCount - 1;\r\n  end;\r\n\r\n  AGraphics.Fill.Assign(DayNameAppearance.Fill);\r\n  AGraphics.Stroke.Assign(DayNameAppearance.Stroke);\r\n  AGraphics.Font.AssignSource(DayNameAppearance.Font);\r\n\r\n  for I := 0 to dnColCount - 1 do\r\n  begin\r\n    b := True;\r\n    df := True;\r\n    DoBeforeDrawDayNames(AGraphics, cellRect, b, df);\r\n    if b then\r\n    begin\r\n      if df then\r\n        AGraphics.DrawRectangle(cellRect, gcrmNone);\r\n\r\n      DoAfterDrawDayNames(AGraphics, cellRect);\r\n    end;\r\n\r\n    b := True;\r\n    df := True;\r\n    DoBeforeDrawDayNamesText(AGraphics, cellRect, FormatSettings.ShortDayNames[dn], DayNameAppearance.HorizontalTextAlign, DayNameAppearance.VerticalTextAlign, b, df);\r\n    if b then\r\n    begin\r\n      if df then\r\n        AGraphics.DrawText(cellRect, FormatSettings.ShortDayNames[dn], False, DayNameAppearance.HorizontalTextAlign, DayNameAppearance.VerticalTextAlign);\r\n\r\n      DoAfterDrawDayNamesText(AGraphics, cellRect, FormatSettings.ShortDayNames[dn], DayNameAppearance.HorizontalTextAlign, DayNameAppearance.VerticalTextAlign);\r\n    end;\r\n\r\n    IncrementWeekDay(dn);\r\n    ShiftCellH(cellRect, FXOffset);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DrawDayNumbers(AGraphics: TTMSFNCGraphics; ACellRect: TRectF; Col,\r\n  Row, AMonth, I: Integer);\r\nvar\r\n  d, mind, maxd: TDate;\r\n  b, df: Boolean;\r\nbegin\r\n  if WeekNumberAppearance.Visible then\r\n    Inc(Col);\r\n\r\n  if FHeader.Visible then\r\n    ShiftCellV(ACellRect, FHeader.Height + FDayNameAppearance.Height + (Row - 1) * FYOffset)\r\n  else\r\n    ShiftCellV(ACellRect, FDayNameAppearance.Height + (Row - 1) * FYOffset);\r\n\r\n  ShiftCellH(ACellRect, Col * FXOffset);\r\n  d := EncodeDate(FYear, AMonth, I);\r\n  mind := MinDate;\r\n  maxd := MaxDate;\r\n\r\n  if MinDate = 0 then\r\n    mind := d;\r\n\r\n  if MaxDate = 0 then\r\n    maxd := d;\r\n\r\n  if FSelectedDates.InCollection(d) then\r\n  begin\r\n    AGraphics.Fill.Assign(DateAppearance.SelectedFill);\r\n    AGraphics.Stroke.Assign(DateAppearance.SelectedStroke);\r\n    AGraphics.Font.AssignSource(DateAppearance.SelectedFont);\r\n  end\r\n  else if (Int(d) < Int(mind)) or (Int(d) > Int(maxd)) then\r\n  begin\r\n    AGraphics.Fill.Assign(DateAppearance.DisabledFill);\r\n    AGraphics.Stroke.Assign(DateAppearance.DisabledStroke);\r\n    AGraphics.Font.AssignSource(DateAppearance.DisabledFont);\r\n  end\r\n  else if FDateAppearance.ShowDaysBefore and (20 < I) and (Row = 1) then\r\n  begin\r\n    if AMonth = 12 then\r\n      d := IncYear(d, -1);\r\n\r\n    AGraphics.Fill.Assign(DateAppearance.DateBeforeFill);\r\n    AGraphics.Font.AssignSource(DateAppearance.DateBeforeFont);\r\n    AGraphics.Stroke.Assign(DateAppearance.DateBeforeStroke);\r\n  end\r\n  else if FDateAppearance.ShowDaysAfter and (15 > I) and (Row >= 5) then\r\n  begin\r\n    if AMonth = 1 then\r\n      d := IncYear(d, 1);\r\n\r\n    AGraphics.Fill.Assign(DateAppearance.DateAfterFill);\r\n    AGraphics.Font.AssignSource(DateAppearance.DateAfterFont);\r\n    AGraphics.Stroke.Assign(DateAppearance.DateAfterStroke);\r\n  end\r\n  else if CompareDate(d, CurrentDate) = 0 then\r\n  begin\r\n    AGraphics.Fill.Assign(DateAppearance.TodayFill);\r\n    AGraphics.Stroke.Assign(DateAppearance.TodayStroke);\r\n    AGraphics.Font.AssignSource(DateAppearance.TodayFont);\r\n  end\r\n  else\r\n  begin\r\n    AGraphics.Fill.Assign(DateAppearance.Fill);\r\n    AGraphics.Stroke.Assign(DateAppearance.Stroke);\r\n    AGraphics.Font.AssignSource(DateAppearance.Font);\r\n  end;\r\n\r\n  b := True;\r\n  df := True;\r\n  DoBeforeDrawDayNumbers(AGraphics, ACellRect, d, b, df);\r\n  if b then\r\n  begin\r\n    if df then\r\n      AGraphics.DrawRectangle(ACellRect, gcrmNone);\r\n\r\n    DoAfterDrawDayNumbers(AGraphics, ACellRect, d);\r\n  end;\r\n\r\n  b := True;\r\n  DoBeforeDrawDayNumbersText(AGraphics, ACellRect, IntToStr(I), DateAppearance.HorizontalTextAlign, DateAppearance.VerticalTextAlign, b, df);\r\n  if b then\r\n  begin\r\n    if df then\r\n      AGraphics.DrawText(ACellRect, IntToStr(I), False, DateAppearance.HorizontalTextAlign, DateAppearance.VerticalTextAlign);\r\n\r\n    DoAfterDrawDayNumbersText(AGraphics, ACellRect, IntToStr(I), DateAppearance.HorizontalTextAlign, DateAppearance.VerticalTextAlign);\r\n  end;\r\n\r\n  if (CompareDate(d, FFocusedDate) = 0) and DateAppearance.ShowFocus then\r\n    AGraphics.DrawFocusRectangle(ACellRect);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DrawDays(AGraphics: TTMSFNCGraphics;\r\n  ARectF: TRectF);\r\nvar\r\n  I, row, allRows, col, bCol, dim, baDays: Integer;\r\n  CalcMonth: TDate;\r\n  CellRect: TRectF;\r\nbegin\r\n  row := 1;\r\n  CalcMonth := (EncodeDate(FYear, FMonth, 1));\r\n  col := DayOfWeek(CalcMonth) - FirstDay;\r\n\r\n  if col < 0 then\r\n    col := col + 7;\r\n\r\n  dim := DaysInMonth(CalcMonth);\r\n  allRows := CalcRowCount(col, dim);\r\n\r\n  if allRows <> 0 then\r\n    FYOffset := FDateAreaHeight / allRows;\r\n\r\n  CellRect := RectF(ARectF.Left, ARectF.Top, ARectF.Left + FXOffset, ARectF.Top + FYOffset);\r\n  ShiftCellH(CellRect, 1);\r\n\r\n  if FDateAppearance.ShowDaysBefore then\r\n  begin\r\n    bCol := col;\r\n    if bCol > 0 then\r\n    begin\r\n      baDays := DaysInMonth(IncMonth(CalcMonth, -1));\r\n      for I := bCol - 1 downto 0 do\r\n      begin\r\n        Dec(bCol);\r\n        DrawDayNumbers(AGraphics, CellRect, bCol, row, PreviousMonth, baDays);\r\n        Dec(baDays);\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  for I := 1 to dim do\r\n  begin\r\n    DrawDayNumbers(AGraphics, CellRect, col, row, FMonth, I);\r\n    Inc(col);\r\n    if col > 6 then\r\n    begin\r\n      col := 0;\r\n      Inc(row);\r\n    end;\r\n  end;\r\n\r\n  if FDateAppearance.ShowDaysAfter then\r\n  begin\r\n    baDays := 1;\r\n    while (row <= allRows) do\r\n    begin\r\n      DrawDayNumbers(AGraphics, CellRect, col, row, NextMonth, baDays);\r\n      Inc(col);\r\n      if col > 6 then\r\n      begin\r\n        col := 0;\r\n        Inc(row);\r\n      end;\r\n      Inc(baDays);\r\n    end;\r\n  end;\r\n\r\n  FNumOfWeeksDrawn := allRows;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DrawFooter(AGraphics: TTMSFNCGraphics;\r\n  ARectF: TRectF);\r\nvar\r\n  fr: TRectF;\r\n  fText: string;\r\n  b, df: Boolean;\r\nbegin\r\n  fr := RectF(ARectF.Left, ARectF.Bottom - FFooter.Height, ARectF.Right, ARectF.Bottom);\r\n  AGraphics.Fill.Assign(FFooter.Fill);\r\n  AGraphics.Stroke.Assign(FFooter.Stroke);\r\n\r\n  b := True;\r\n  df := True;\r\n  DoBeforeDrawFooter(AGraphics, fr, b, df);\r\n  if b then\r\n  begin\r\n    if df then\r\n      AGraphics.DrawRectangle(fr);\r\n\r\n    DoAfterDrawFooter(AGraphics, fr);\r\n  end;\r\n\r\n  if fdSelected = FFooter.DateCaption then\r\n    fText := FFooter.Caption + ' ' + DateToStr(SelectedDate)\r\n  else if fdToday = FFooter.DateCaption then\r\n    fText := FFooter.Caption + ' ' + DateToStr(CurrentDate)\r\n  else\r\n    fText := FFooter.Caption;\r\n\r\n  AGraphics.Font.AssignSource(FFooter.Font);\r\n  FFooter.CaptionRect := AGraphics.CalculateText(fText, fr);\r\n\r\n  b := True;\r\n  df := True;\r\n  DoBeforeDrawFooterText(AGraphics, fr, fText, FFooter.HorizontalTextAlign, FFooter.VerticalTextAlign, b, df);\r\n  if b then\r\n  begin\r\n    if df then\r\n      AGraphics.DrawText(fr, fText, False, FFooter.HorizontalTextAlign, FFooter.VerticalTextAlign);\r\n\r\n    DoAfterDrawFooterText(AGraphics, fr, fText, FFooter.HorizontalTextAlign, FFooter.VerticalTextAlign);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DrawHeader(AGraphics: TTMSFNCGraphics; ARectF: TRectF);\r\nvar\r\n  b, df: Boolean;\r\n  hr, ar: TRectF;\r\n  rCentre: Single;\r\n  ht: string;\r\nbegin\r\n  ht := FormatSettings.ShortMonthNames[Month] + ' ' + IntToStr(Year);\r\n  hr := RectF(ARectF.Left, ARectF.Top, ARectF.Right, FHeader.Height);\r\n  AGraphics.Fill.Assign(Header.Fill);\r\n  AGraphics.Stroke.Assign(Header.Stroke);\r\n\r\n  b := True;\r\n  df := True;\r\n  DoBeforeDrawHeader(AGraphics, hr, b, df);\r\n  if b then\r\n  begin\r\n    if df then\r\n      AGraphics.DrawRectangle(hr);\r\n\r\n    DoAfterDrawHeader(AGraphics, hr);\r\n  end;\r\n\r\n  AGraphics.Font.AssignSource(Header.Font);\r\n\r\n  b := True;\r\n  df := True;\r\n  DoBeforeDrawHeaderText(AGraphics, hr, ht, Header.HorizontalTextAlign, Header.VerticalTextAlign, b, df);\r\n  if b then\r\n  begin\r\n    if df then\r\n      AGraphics.DrawText(hr, ht, False, Header.HorizontalTextAlign, Header.VerticalTextAlign);\r\n\r\n    DoAfterDrawHeaderText(AGraphics, hr, ht, Header.HorizontalTextAlign, Header.VerticalTextAlign);\r\n  end;\r\n\r\n  if not (Header.Arrow.Visibility = []) then\r\n  begin\r\n    ar := hr;\r\n    rCentre := (hr.Bottom - hr.Top) / 2;\r\n\r\n    if alvLeft in Header.Arrow.Visibility then\r\n    begin\r\n      SetArrowLeftRect(hr, ar, rCentre);\r\n      DrawArrows(AGraphics, ar, alvLeft);\r\n    end;\r\n\r\n    if alvRight in Header.Arrow.Visibility then\r\n    begin\r\n      SetArrowRightRect(hr, ar, rCentre);\r\n      DrawArrows(AGraphics, ar, alvRight);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DrawLines(AGraphics: TTMSFNCGraphics;\r\n  ARectF: TRectF);\r\nvar\r\n  fLeft, fTop, tRight, tBottom: Single;\r\n  b, df: Boolean;\r\nbegin\r\n  AGraphics.Stroke.Assign(LineAppearance.Stroke);\r\n\r\n  fLeft := ARectF.Left + 1;\r\n  tRight := ARectF.Right - 1;\r\n\r\n  if FHeader.Visible then\r\n    fTop := FHeader.Height + FDayNameAppearance.Height - 1\r\n  else\r\n    fTop := FDayNameAppearance.Height - 1;\r\n\r\n  tBottom := fTop;\r\n\r\n  b := True;\r\n  df := True;\r\n  DoBeforeDrawLines(AGraphics, b, df);\r\n  if b then\r\n  begin\r\n    if df then\r\n        AGraphics.DrawLine(PointF(fLeft, fTop), PointF(tRight, tBottom));\r\n\r\n    DoAfterDrawLines(AGraphics);\r\n  end;\r\n\r\n  if WeekNumberAppearance.Visible then\r\n  begin\r\n    fLeft := ARectF.Left + FXOffset;\r\n    tRight := fLeft;\r\n\r\n    if FHeader.Visible then\r\n      fTop := FHeader.Height - 1\r\n    else\r\n      fTop := 0;\r\n\r\n    if FFooter.Visible then\r\n      tBottom := ARectF.Bottom - FFooter.Height\r\n    else\r\n      tBottom := ARectF.Bottom;\r\n\r\n    DoBeforeDrawLines(AGraphics, b, df);\r\n    if b then\r\n    begin\r\n      if df then\r\n        AGraphics.DrawLine(PointF(fLeft, fTop), PointF(tRight, tBottom));\r\n\r\n      DoAfterDrawLines(AGraphics);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.DrawWeekNumbers(AGraphics: TTMSFNCGraphics;\r\n  ARectF: TRectF);\r\nvar\r\n  wNum, I: Integer;\r\n  CellRect: TRectF;\r\n  b, df: Boolean;\r\n  wks: TTMSFNCCalendarWordArray;\r\nconst\r\n  dm: array [1..7] of Word = (7, 1, 2, 3, 4, 5, 6);\r\n\r\n  function GregorianFirstWeekDaysCount(const AYear: Word; const AFirstDayOfWeek: Word): Word;\r\n  var\r\n    FirstJanuary: TDateTime;\r\n    FirstJanuaryDay: Word;\r\n  begin\r\n    FirstJanuary := EncodeDate(AYear, 1, 1);\r\n    FirstJanuaryDay := DayOfTheWeek(FirstJanuary);\r\n    Result := DaysPerWeek - ((FirstJanuaryDay - AFirstDayOfWeek + 7) mod DaysPerWeek);\r\n  end;\r\n\r\n  function GregorianWeeksInAYear(const AYear: Word; const AFirstDayOfWeek: Word): Word;\r\n  var\r\n    DaysInFirstWeek: Word;\r\n  begin\r\n    Result := DaysInAYear(AYear) div 7;\r\n    DaysInFirstWeek := GregorianFirstWeekDaysCount(AYear, AFirstDayOfWeek);\r\n    if IsLeapYear(AYear) then\r\n    begin\r\n      // 366\r\n      if DaysInFirstWeek >= 4 then\r\n        Inc(Result);\r\n    end\r\n    else\r\n    begin\r\n      // 365\r\n       if DaysInFirstWeek > 4 then\r\n        Inc(Result);\r\n    end;\r\n  end;\r\n\r\n  function GregorianWeekOfTheYear(const ADateTime: TDateTime; const AFirstDayOfWeek: Word): Word;\r\n  var\r\n    DaysInFirstWeek: Word;\r\n  begin\r\n    DaysInFirstWeek := GregorianFirstWeekDaysCount(YearOf(ADateTime), AFirstDayOfWeek);\r\n    if DaysInFirstWeek >= 4 then\r\n      // 1 January - 1 week number\r\n      Result := (DayOfTheYear(ADateTime) + DaysPerWeek - DaysInFirstWeek - 1) div 7 + 1\r\n    else if DayOfTheYear(ADateTime) < 4 then\r\n      // 1 January - previous last week number\r\n      Result := GregorianWeeksInAYear(YearOf(ADateTime) - 1, AFirstDayOfWeek)\r\n    else\r\n      Result := (DayOfTheYear(ADateTime) + DaysPerWeek - DaysInFirstWeek - 1) div 7;\r\n  end;\r\n\r\n  function GenerateWeekNumbers(AMonth: Integer): TTMSFNCCalendarWordArray;\r\n  var\r\n    lod: Word;\r\n    wcnt: Word;\r\n    wc: Integer;\r\n    fw: Word;\r\n    dic, I: Integer;\r\n    bd: TDate;\r\n  begin\r\n    SetLength(Result, FNumOfWeeksDrawn);\r\n    I := DaysPerWeek - dm[FirstDay];\r\n    bd := EncodeDate(YearOf(FDate), MonthOf(FDate), 1);\r\n    dic := (I + DayOfTheWeek(bd)) mod DaysPerWeek + 1;\r\n    wc := (dic - 1) div 7;\r\n    fw := GregorianWeekOfTheYear(bd, dm[FirstDay]);\r\n\r\n    case AMonth of\r\n      1:\r\n      begin\r\n        if fw <> 1 then\r\n        begin\r\n          Result[0] := fw;\r\n          for I := 1 to FNumOfWeeksDrawn - 1 do\r\n            Result[I] := I - wc;\r\n        end\r\n        else\r\n        begin\r\n          for I := 0 to FNumOfWeeksDrawn - 1 do\r\n            Result[I] := fw + I - wc;\r\n        end;\r\n      end;\r\n      12:\r\n      begin\r\n        lod := GregorianWeekOfTheYear(EncodeDate(YearOf(FDate), MonthOf(FDate), 31), dm[FirstDay]);\r\n        wcnt := lod - fw + 1;\r\n\r\n        wc := (dic - 1) div 7;\r\n        for I := 0 to Min(wcnt - 1, FNumOfWeeksDrawn - 1) do\r\n          Result[I] := fw + I - wc;\r\n\r\n        for I := wcnt to FNumOfWeeksDrawn - 1 do\r\n          Result[I] := I - wcnt + 1;\r\n      end\r\n      else\r\n      begin\r\n        for I := 0 to FNumOfWeeksDrawn - 1 do\r\n          Result[I] := fw + I - wc;\r\n      end;\r\n    end;\r\n  end;\r\nbegin\r\n  wks := GenerateWeekNumbers(MonthOf(FDate));\r\n  if Length(wks) > 0 then\r\n  begin\r\n    CellRect := RectF(ARectF.Left, ARectF.Top, ARectF.Left + FXOffset, ARectF.Top + FYOffset);\r\n    ShiftCellH(CellRect, 1);\r\n\r\n    if FHeader.Visible then\r\n      ShiftCellV(CellRect, FHeader.Height + FDayNameAppearance.Height)\r\n    else\r\n      ShiftCellV(CellRect, FDayNameAppearance.Height);\r\n\r\n    AGraphics.Fill.Assign(WeekNumberAppearance.Fill);\r\n    AGraphics.Stroke.Assign(WeekNumberAppearance.Stroke);\r\n    AGraphics.Font.AssignSource(WeekNumberAppearance.Font);\r\n\r\n    for I := 0 to Length(wks) - 1 do\r\n    begin\r\n      wNum := wks[I];\r\n      b := True;\r\n      df := True;\r\n      DoBeforeDrawWeekNumbers(AGraphics, CellRect, b, df);\r\n      if b then\r\n      begin\r\n        if df then\r\n          AGraphics.DrawRectangle(CellRect, gcrmNone);\r\n\r\n        DoAfterDrawWeekNumbers(AGraphics, CellRect);\r\n      end;\r\n\r\n      b := True;\r\n      df := True;\r\n      DoBeforeDrawWeekNumbersText(AGraphics, CellRect, IntToStr(wNum), WeekNumberAppearance.HorizontalTextAlign, WeekNumberAppearance.VerticalTextAlign, b, df);\r\n      if b then\r\n      begin\r\n        if df then\r\n          AGraphics.DrawText(CellRect, IntToStr(wNum) , False, WeekNumberAppearance.HorizontalTextAlign, WeekNumberAppearance.VerticalTextAlign);\r\n\r\n        DoAfterDrawWeekNumbersText(AGraphics, CellRect, IntToStr(wNum), WeekNumberAppearance.HorizontalTextAlign, WeekNumberAppearance.VerticalTextAlign);\r\n      end;\r\n\r\n      ShiftCellV(CellRect, FYOffset);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.EventsChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.FooterChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.GetArrowRect(ALeft: Boolean): TRectF;\r\nvar\r\n  rect: TRectF;\r\n  hHeight: Single;\r\n  s: Single;\r\nbegin\r\n  hHeight := FHeader.Height;\r\n  s := 0;\r\n\r\n  if ALeft then\r\n  begin\r\n    case Header.Arrow.ArrowLeftType of\r\n      atTriangle, atArrow, atCustom: s := Header.Arrow.Size;\r\n      atBitmap: s := Header.Arrow.ArrowLeftBitmapSize;\r\n    end;\r\n\r\n    rect.Top := (hHeight / 2) - (s / 2);\r\n    rect.Bottom := (hHeight / 2) + (s / 2);\r\n    rect.Left := ARRPOS;\r\n    rect.Right := ARRPOS + s;\r\n  end\r\n  else\r\n  begin\r\n    case Header.Arrow.ArrowRightType of\r\n      atTriangle, atArrow, atCustom: s := Header.Arrow.Size;\r\n      atBitmap: s := Header.Arrow.ArrowRightBitmapSize;\r\n    end;\r\n\r\n    rect.Top := (hHeight / 2) - (s / 2);\r\n    rect.Bottom := (hHeight / 2) + (s / 2);\r\n    rect.Left := Width - ARRPOS - s;\r\n    rect.Right := Width - ARRPOS;\r\n  end;\r\n\r\n  Result := rect;\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.GetBitmapContainer: TTMSFNCBitmapContainer;\r\nbegin\r\n  Result := FBitmapContainer;\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.GetCurrentDate: TDate;\r\nbegin\r\n  Result := Now;\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.GetDocURL: string;\r\nbegin\r\n  Result := TTMSFNCBaseDocURL + 'tmsfncuipack/components/' + LowerCase(ClassName);\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.GetFooterTextRect: TRectF;\r\nvar\r\n  l, t, r, b, fHeight, fWidth: Single;\r\nbegin\r\n  l := 0;\r\n  t := 0;\r\n  fHeight := FFooter.CaptionRect.Bottom;\r\n  fWidth := FFooter.CaptionRect.Right;\r\n\r\n  case FFooter.HorizontalTextAlign of\r\n    gtaCenter: l := (Width / 2) - (fWidth / 2);\r\n    gtaLeading: l := FFooter.CaptionRect.Left;\r\n    gtaTrailing: l := Width - fWidth;\r\n  end;\r\n\r\n  case FFooter.VerticalTextAlign of\r\n    gtaCenter: t := Height - (FFooter.Height / 2) - (fHeight / 2);\r\n    gtaLeading: t := FFooter.CaptionRect.Top;\r\n    gtaTrailing: t := Height - fHeight;\r\n  end;\r\n\r\n  b := t + fHeight;\r\n  r := l + fWidth;\r\n\r\n  Result := RectF(l, t, r, b);\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.GetHintString: string;\r\nvar\r\n  it: TTMSFNCCalendarEventItem;\r\nbegin\r\n  Result := inherited GetHintString;\r\n  it := FEvents.GetEventCollectionItemByDate(FHoverDate);\r\n\r\n  if Assigned(it) then\r\n    Result := it.Hint;\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.GetMonthsPopup: TTMSFNCCalendarPopupBox;\r\nbegin\r\n  if not Assigned(FMonthsPopup) then\r\n  begin\r\n    FMonthsPopup := TTMSFNCCalendarPopupBox.Create(Self);\r\n    FMonthsPopup.OnChange := @DoPopupMonthsChange;\r\n    {$IFDEF VCLLIB}\r\n    FMonthsPopup.SetPaintScale(PaintScaleFactor);\r\n    {$ENDIF}\r\n    {$IFDEF FMXLIB}\r\n    FMonthsPopup.Visible := False;\r\n    FMonthsPopup.Parent := Self;\r\n    {$ENDIF}\r\n  end;\r\n\r\n  Result := FMonthsPopup;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.GetMonthYearRect(AControl: TRectF; var AMonthRect: TRectF; var AYearRect: TRectF);\r\nvar\r\n  r: TRectF;\r\n  g: TTMSFNCGraphics;\r\n  sAll, sYear: string;\r\nbegin\r\n  r := Rectf(AControl.Left, AControl.Top, AControl.Right, AControl.Top + FHeader.Height);\r\n  sAll := FormatSettings.ShortMonthNames[Month] + ' ' + IntToStr(Year);\r\n  sYear := IntToStr(Year);\r\n\r\n  g := TTMSFNCGraphics.Create(Self.Canvas{$IFDEF VCLLIB}, True{$ENDIF});\r\n  try\r\n    g.Font.Assign(FHeader.Font);\r\n    AMonthRect := g.CalculateText(sAll, r);\r\n    OffsetRectEx(AMonthRect, (r.Right - r.Left - AMonthRect.Right + AMonthRect.Left) / 2, (FHeader.Height - AMonthRect.Bottom + AMonthRect.Top) / 2);\r\n    AYearRect := g.CalculateText(sYear, r);\r\n    AMonthRect.Right := AMonthRect.Right - AYearRect.Right + AYearRect.Left;\r\n\r\n    OffsetRectEx(AYearRect, AMonthRect.Right - AYearRect.Left, (FHeader.Height - AYearRect.Bottom + AYearRect.Top) / 2);\r\n  finally\r\n    g.Free;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.GetVersion: string;\r\nbegin\r\n  Result := GetVersionNumber(MAJ_VER, MIN_VER, REL_VER, BLD_VER);\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.GetYearsPopup: TTMSFNCCalendarPopupBox;\r\nbegin\r\n  if not Assigned(FYearsPopup) then\r\n  begin\r\n    FYearsPopup := TTMSFNCCalendarPopupBox.Create(Self);\r\n    FYearsPopup.OnChange := @DoPopupYearsChange;\r\n    {$IFDEF VCLLIB}\r\n    FYearsPopup.SetPaintScale(PaintScaleFactor);\r\n    {$ENDIF}\r\n    {$IFDEF FMXLIB}\r\n    FYearsPopup.Visible := False;\r\n    FYearsPopup.Parent := Self;\r\n    {$ENDIF}\r\n  end;\r\n\r\n  Result := FYearsPopup;\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.CurrentDay: Integer;\r\nbegin\r\n  Result := DayOf(Now);\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.CurrentMonth: Integer;\r\nbegin\r\n  Result := MonthOf(Now);\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.CurrentYear: Integer;\r\nbegin\r\n  Result := YearOf(Now);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.HandleKeyDown(var Key: Word;\r\n  Shift: TShiftState);\r\nvar\r\n  df, dt: TDate;\r\nbegin\r\n  inherited;\r\n\r\n  if Interaction.ReadOnlyMode or (not Interaction.KeyboardSupport) then\r\n    Exit;\r\n\r\n  if ([ssCtrl] = Shift) and Interaction.MultiSelect then\r\n  begin\r\n    case Key of\r\n      Ord('A'), Ord('a'):\r\n      begin\r\n        if FSelectedAll then\r\n        begin\r\n          FSelectedDates.UnselectAll;\r\n          DoBeforeSelectDate(FFocusedDate);\r\n          SelectDate(FFocusedDate);\r\n          DoSelectDate(FFocusedDate);\r\n          FSelectedAll := False;\r\n        end\r\n        else\r\n        begin\r\n          df := EncodeDate(FYear, FMonth, 1);\r\n          dt := EncodeDate(FYear, FMonth, DaysInAMonth(FYear, FMonth));\r\n\r\n          if MinDate <> 0 then\r\n          begin\r\n            if (MinDate >= df) and (MinDate <= dt) then\r\n              df := MinDate;\r\n          end;\r\n\r\n          if MaxDate <> 0 then\r\n          begin\r\n            if (MaxDate <= dt) and (MaxDate >= df) then\r\n              dt := MaxDate;\r\n          end;\r\n\r\n          SelectMultiDates(df, dt);\r\n          DoSelectMultiDate(df, dt);\r\n          FSelectedAll := True;\r\n        end;\r\n      end;\r\n    end;\r\n  end\r\n  else if ([ssShift] = Shift) and Interaction.MultiSelect then\r\n  begin\r\n    case Key of\r\n      KEY_LEFT, KEY_RIGHT, KEY_UP, KEY_DOWN:\r\n      begin\r\n        if not FShiftPressed then\r\n        begin\r\n          FClickedDate := FFocusedDate;\r\n          DoBeforeSelectDate(FClickedDate);\r\n          SelectDate(FClickedDate);\r\n          DoSelectDate(FClickedDate);\r\n          FShiftPressed := True;\r\n        end;\r\n        if Key = KEY_LEFT then\r\n        begin\r\n          SetDateBackward(FFocusedDate, -1);\r\n          SelectMultiDates(FClickedDate, FFocusedDate);\r\n          DoSelectMultiDate(FClickedDate, FFocusedDate);\r\n        end\r\n        else if Key = KEY_RIGHT then\r\n        begin\r\n          SetDateForward(FFocusedDate, 1);\r\n          SelectMultiDates(FClickedDate, FFocusedDate);\r\n          DoSelectMultiDate(FClickedDate, FFocusedDate);\r\n        end\r\n        else if Key = KEY_UP then\r\n        begin\r\n          SetDateBackward(FFocusedDate, -7);\r\n          SelectMultiDates(FClickedDate, FFocusedDate);\r\n          DoSelectMultiDate(FClickedDate, FFocusedDate);\r\n        end\r\n        else if KEY = KEY_DOWN then\r\n        begin\r\n          SetDateForward(FFocusedDate, 7);\r\n          SelectMultiDates(FClickedDate, FFocusedDate);\r\n          DoSelectMultiDate(FClickedDate, FFocusedDate);\r\n        end;\r\n      end;\r\n    end;\r\n    Exit;\r\n  end;\r\n\r\n  case Key of\r\n    KEY_LEFT:\r\n    begin\r\n      SetDateBackward(FFocusedDate, -1);\r\n    end;\r\n    KEY_RIGHT:\r\n    begin\r\n      SetDateForward(FFocusedDate, 1);\r\n    end;\r\n    KEY_UP:\r\n    begin\r\n      SetDateBackward(FFocusedDate, -7);\r\n    end;\r\n    KEY_DOWN:\r\n    begin\r\n      SetDateForward(FFocusedDate, 7);\r\n    end;\r\n    KEY_HOME:\r\n    begin\r\n      FFocusedDate := EncodeDate(FYear, FMonth, 1);\r\n    end;\r\n    KEY_END:\r\n    begin\r\n      FFocusedDate := EncodeDate(FYear, FMonth, DaysInAMonth(Year, Month));\r\n    end;\r\n  end;\r\n\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.HandleKeyUp(var Key: Word; Shift: TShiftState);\r\nbegin\r\n  inherited;\r\n\r\n  if Interaction.ReadOnlyMode or (not Interaction.KeyboardSupport) then\r\n    Exit;\r\n\r\n  case Key of\r\n    KEY_SHIFT: FShiftPressed := False;\r\n    KEY_SPACE, KEY_RETURN:\r\n    begin\r\n      DoBeforeSelectDate(FFocusedDate);\r\n      if not (Interaction.MultiSelect and (ssCtrl in Shift)) then\r\n        SelectDateIfAvailable(FFocusedDate)\r\n      else\r\n        SelectDate(FFocusedDate);\r\n      DoSelectDate(FFocusedDate);\r\n    end;\r\n  end;\r\n\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.HandleMouseDown(Button: TTMSFNCMouseButton;\r\n  Shift: TShiftState; X, Y: Single);\r\nvar\r\n  dateAtXY, mind, maxd: TDate;\r\n  mr, yr: TRectF;\r\nbegin\r\n  inherited;\r\n\r\n  if Interaction.ReadOnlyMode then\r\n    Exit;\r\n\r\n  SetFocus;\r\n  FMouseDown := True;\r\n  CaptureEx;\r\n\r\n  if FHeader.Visible then\r\n  begin\r\n    if Y <= FHeader.Height then\r\n    begin\r\n      if (alvLeft in FHeader.Arrow.Visibility) and PointInRect(GetArrowRect(True), PointF(X,Y)) then\r\n        PreviousDate\r\n      else if (alvRight in FHeader.Arrow.Visibility) and PointInRect(GetArrowRect(False), PointF(X,Y)) then\r\n        NextDate\r\n      else if Interaction.AllowYearSelection or Interaction.AllowMonthSelection then\r\n      begin\r\n        GetMonthYearRect(GetControlRect, mr, yr);\r\n\r\n        if Interaction.AllowMonthSelection and PointInRect(mr, PointF(X, Y)) then\r\n          DoMonthSelectorPopup(mr.Left, mr.Top)\r\n        else if Interaction.AllowYearSelection and PointInRect(yr, PointF(X, Y)) then\r\n          DoYearSelectorPopup(yr.Left, yr.Top);\r\n      end;\r\n\r\n      if Interaction.SwipeOnHeader then\r\n      begin\r\n        FTick := GetTickCountX;\r\n        FMx := X;\r\n        FMy := Y;\r\n      end;\r\n\r\n      Invalidate;\r\n      Exit;\r\n    end;\r\n  end;\r\n\r\n  if FFooter.Visible then\r\n  begin\r\n    if Y >= (Height - FFooter.Height) then\r\n    begin\r\n      if PointInRect(GetFooterTextRect, PointF(X,Y)) and (FFooter.DateCaption = fdToday) then\r\n      begin\r\n        if (MonthOf(Date) <> MonthOf(Now)) or (YearOf(Date) <> YearOf(Now)) then\r\n        begin\r\n          if Assigned(OnNavigateFooter) then\r\n            OnNavigateFooter(Self);\r\n        end;\r\n        Date := Now;\r\n      end;\r\n\r\n      Invalidate;\r\n      Exit;\r\n    end;\r\n  end;\r\n\r\n  dateAtXY := XYToDate(X, Y);\r\n  mind := MinDate;\r\n  maxd := MaxDate;\r\n\r\n  if MinDate = 0 then\r\n    mind := dateAtXY;\r\n\r\n  if MaxDate = 0 then\r\n    maxd := dateAtXY;\r\n\r\n  if (Int(dateAtXY) = CALMINDATE) or (Int(dateAtXY) < Int(mind)) or (Int(dateAtXY) > Int(maxd)) then\r\n    Exit;\r\n\r\n  FClickedDate := dateAtXY;\r\n  FFocusedDate := FClickedDate;\r\n  FMouseAtDate := dateAtXY;\r\n\r\n  if Interaction.MultiSelect then\r\n  begin\r\n    if (ssCtrl in Shift) then\r\n    begin\r\n      DoBeforeSelectDate(dateAtXY);\r\n      SelectDate(dateAtXY);\r\n      DoSelectDate(dateAtXY);\r\n    end\r\n    else if (ssShift in Shift) then\r\n    begin\r\n      if FSelectedDates.Count > 0 then\r\n      begin\r\n        SelectMultiDates(FSelectedDates.Items[FSelectedDates.Count - 1].Date, dateAtXY);\r\n        DoSelectMultiDate(FSelectedDates.Items[FSelectedDates.Count - 1].Date, dateAtXY);\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      FSelectedDates.UnselectAll;\r\n\r\n      if FSelectedDates.InCollection(dateAtXY) then\r\n        FSelectedDates.UnselectDate(dateAtXY)\r\n      else\r\n      begin\r\n        DoBeforeSelectDate(dateAtXY);\r\n        SelectDate(dateAtXY);\r\n        Date := dateAtXY;\r\n        DoSelectDate(dateAtXY);\r\n      end;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    FSelectedDates.UnselectAll;\r\n\r\n    if FSelectedDates.InCollection(dateAtXY) then\r\n      FSelectedDates.UnselectDate(dateAtXY)\r\n    else\r\n    begin\r\n      DoBeforeSelectDate(dateAtXY);\r\n      Date := dateAtXY;\r\n      SelectDate(dateAtXY);\r\n      DoSelectDate(dateAtXY);\r\n      ReleaseCaptureEx;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.HandleMouseMove(Shift: TShiftState; X, Y: Single);\r\nvar\r\n  dt: TDate;\r\nbegin\r\n  inherited;\r\n\r\n  if (FYOffset = 0) or (FXOffset = 0) then\r\n    Exit;\r\n\r\n  dt := XYToDate(X, Y);\r\n\r\n  if FHoverDate <> dt then\r\n  begin\r\n    FHoverDate := dt;\r\n    CancelHint;\r\n    Invalidate;\r\n  end;\r\n\r\n  if Interaction.ReadOnlyMode then\r\n    Exit;\r\n\r\n  if FHeader.Visible then\r\n  begin\r\n    if Y <= FHeader.Height then\r\n    begin\r\n      if ((alvLeft in FHeader.Arrow.Visibility) and (PointInRect(GetArrowRect(True), PointF(X,Y)))) or ((alvRight in FHeader.Arrow.Visibility) and (PointInRect(GetArrowRect(False), PointF(X,Y)))) then\r\n        Cursor := crHandPoint\r\n      else\r\n        Cursor := crDefault;\r\n      Exit;\r\n    end\r\n    else\r\n      Cursor := crDefault;\r\n  end;\r\n\r\n  if FFooter.Visible then\r\n  begin\r\n    if Y > (Height - FFooter.Height) then\r\n    begin\r\n      if PointInRect(GetFooterTextRect, PointF(X,Y)) and (FFooter.DateCaption = fdToday) then\r\n        Cursor := crHandPoint\r\n      else\r\n        Cursor := crDefault;\r\n      Exit;\r\n    end\r\n    else\r\n      Cursor := crDefault;\r\n  end;\r\n\r\n  if Interaction.MultiSelect and FMouseDown then\r\n  begin\r\n    if X > (Self.Width) then\r\n      Exit;\r\n\r\n    if dt = CALMINDATE then\r\n    begin\r\n      FMouseAtDate := dt;\r\n      Exit;\r\n    end;\r\n\r\n    if FMouseAtDate = dt then\r\n      Exit;\r\n\r\n    if (dt <> CALMINDATE) then\r\n    begin\r\n      FMouseAtDate := dt;\r\n      SelectMultiDates(FClickedDate, FMouseAtDate);\r\n      DoSelectMultiDate(FClickedDate, FMouseAtDate);\r\n      Invalidate;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.HandleMouseUp(Button: TTMSFNCMouseButton;\r\n  Shift: TShiftState; X, Y: Single);\r\nbegin\r\n  inherited;\r\n\r\n  if Interaction.SwipeOnHeader then\r\n  begin\r\n    if (Abs(Y - FMy) < 10) and (Abs(X - FMx) > 20) and FMouseDown and ((GetTickCountX - FTick) < 1000) then\r\n    begin\r\n      if X < FMx then\r\n        NextDate\r\n      else\r\n        PreviousDate;\r\n    end;\r\n\r\n    Invalidate;\r\n  end;\r\n\r\n  FMouseDown := False;\r\n  ReleaseCaptureEx;\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.HasHint: Boolean;\r\nvar\r\n  it: TTMSFNCCalendarEventItem;\r\nbegin\r\n  it := FEvents.GetEventCollectionItemByDate(FHoverDate);\r\n  Result := Assigned(it) and (it.Hint <> '');\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.HeaderChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.IncrementCell(var ACellSide: Single;\r\n  const AMoveBy: Single);\r\nbegin\r\n  ACellSide := ACellSide + AMoveBy;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.IncrementWeekDay(var ADay: Integer);\r\nbegin\r\n  ADay := (ADay + 1) mod 7;\r\n  if ADay = 0 then\r\n    ADay := 7;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.InitSample;\r\nbegin\r\n  BeginUpdate;\r\n\r\n  ResetToDefaultStyle;\r\n\r\n  EndUpdate;\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.IsAppearanceProperty(AObject: TObject;\r\n  APropertyName: string; APropertyType: TTypeKind): Boolean;\r\nbegin\r\n  Result := inherited IsAppearanceProperty(AObject, APropertyName, APropertyType);\r\n  Result := Result or (APropertyName = 'Header') or (APropertyName = 'Footer');\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.IsFocusedDateStored: Boolean;\r\nbegin\r\n  Result := FocusedDate <> 0.0;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.NextDate;\r\nvar\r\n  tMonth, tYear: Integer;\r\n  d: TDate;\r\nbegin\r\n  case FInteraction.NavigationMode of\r\n    nmMonth:\r\n    begin\r\n      if (FMonth + 1) > 12 then\r\n      begin\r\n        Date := EncodeDate(NextYear, NextMonth, 1);\r\n        DoChangeYear(FYear);\r\n      end\r\n      else\r\n        Date := EncodeDate(FYear, NextMonth, 1);\r\n\r\n      DoChangeMonth(FMonth);\r\n    end;\r\n    nmYear:\r\n    begin\r\n      Date := IncYear(FDate);\r\n      DoChangeYear(FYear);\r\n    end;\r\n    nmFocusedDate:\r\n    begin\r\n      tMonth := FMonth;\r\n      tYear := FYear;\r\n      FocusedDate := IncDay(FFocusedDate);\r\n\r\n      if tMonth <> MonthOf(FocusedDate) then\r\n      begin\r\n        Date := FocusedDate;\r\n        DoChangeMonth(FMonth);\r\n\r\n        if tYear <> YearOf(FocusedDate) then\r\n          DoChangeYear(FYear);\r\n      end;\r\n    end;\r\n    nmCustom:\r\n    begin\r\n      d := FDate;\r\n      DoCustomNavigation(FDate, FFocusedDate, False);\r\n\r\n      if MonthOf(d) <> MonthOf(FDate) then\r\n        DoChangeMonth(FMonth);\r\n      if YearOf(d) <> YearOf(FDate) then\r\n        DoChangeYear(FYear);\r\n    end;\r\n  end;\r\n  if Assigned(OnNavigateForward) then\r\n    OnNavigateForward(Self, FMonth, FYear);\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.NextMonth: Integer;\r\nvar\r\n  nMonth: Integer;\r\nbegin\r\n  nMonth := FMonth + 1;\r\n\r\n  if nMonth = 13 then\r\n    nMonth := 1;\r\n\r\n  Result := nMonth;\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.NextYear: Integer;\r\nbegin\r\n  Result := FYear + 1;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.Notification(AComponent: TComponent;\r\n  Operation: TOperation);\r\nbegin\r\n  inherited;\r\n\r\n  if (Operation = opRemove) and (AComponent = FBitmapContainer) then\r\n    FBitmapContainer := nil;\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.PointInRect(ARect: TRectF;\r\n  APoint: TPointF): Boolean;\r\nbegin\r\n  Result := (ARect.Left <= APoint.X) and (ARect.Right >= APoint.X) and (ARect.Top <= APoint.Y) and (ARect.Bottom >= APoint.Y);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.PreviousDate;\r\nvar\r\n  tMonth, tYear: Integer;\r\n  d: TDate;\r\nbegin\r\n  case FInteraction.NavigationMode of\r\n    nmMonth:\r\n    begin\r\n      if (FMonth - 1) <= 0 then\r\n      begin\r\n        Date := EncodeDate(PreviousYear, PreviousMonth, 1);\r\n        DoChangeYear(FYear);\r\n      end\r\n      else\r\n        Date := EncodeDate(FYear, PreviousMonth, 1);\r\n\r\n      DoChangeMonth(FMonth);\r\n    end;\r\n    nmYear:\r\n    begin\r\n      Date := IncYear(FDate, -1);\r\n      DoChangeYear(FYear);\r\n    end;\r\n    nmFocusedDate:\r\n    begin\r\n      tMonth := FMonth;\r\n      tYear := FYear;\r\n      FocusedDate := IncDay(FFocusedDate, -1);\r\n\r\n      if tMonth <> MonthOf(FocusedDate) then\r\n      begin\r\n        Date := FocusedDate;\r\n        DoChangeMonth(FMonth);\r\n\r\n        if tYear <> MonthOf(FocusedDate) then\r\n          DoChangeYear(FYear);\r\n      end;\r\n    end;\r\n    nmCustom:\r\n    begin\r\n      d := FDate;\r\n      DoCustomNavigation(FDate, FFocusedDate, True);\r\n\r\n      if MonthOf(d) <> MonthOf(FDate) then\r\n        DoChangeMonth(FMonth);\r\n      if YearOf(d) <> YearOf(FDate) then\r\n        DoChangeYear(FYear);\r\n    end;\r\n  end;\r\n  if Assigned(OnNavigateBack) then\r\n    OnNavigateBack(Self, FMonth, FYear);\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.PreviousMonth: Integer;\r\nvar\r\n  pMonth: Integer;\r\nbegin\r\n  pMonth := FMonth - 1;\r\n\r\n  if pMonth = 0 then\r\n    pMonth := 12;\r\n\r\n  Result := pMonth;\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.PreviousYear: Integer;\r\nbegin\r\n  Result := FYear - 1;\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.XYToDate(AX, AY: Single): TDate;\r\nvar\r\n  colFrom, rowFrom, colTo, rowTo, cDay, dim: Integer;\r\n  calcMonth: TDate;\r\nbegin\r\n  rowTo := RowAtY(AY);\r\n  colTo := ColAtX(AX);\r\n\r\n  if (rowTo = -1) or (colTo = -1) then\r\n  begin\r\n    Result := CALMINDATE;\r\n    Exit;\r\n  end;\r\n\r\n  calcMonth := (EncodeDate(FYear, FMonth, 1));\r\n  rowFrom := 1;\r\n  colFrom := DayOfWeek(calcMonth) - FirstDay ;\r\n\r\n  if (colFrom < 0) then\r\n    colFrom := colFrom + 7;\r\n\r\n  Inc(colFrom);\r\n  cDay := colTo - colFrom + 1;\r\n\r\n  if (rowFrom = rowTo) and (not FDateAppearance.ShowDaysBefore) then\r\n  begin\r\n    if (cDay < 1) then\r\n    begin\r\n      Result := CALMINDATE;\r\n      Exit;\r\n    end;\r\n    Result := EncodeDate(FYear, FMonth, cDay);\r\n    Exit;\r\n  end\r\n  else if (rowFrom = rowTo) and FDateAppearance.ShowDaysBefore then\r\n  begin\r\n    if (cDay < 1) then\r\n    begin\r\n      Result := IncDay(calcMonth, colTo - colFrom);\r\n      Exit;\r\n    end;\r\n  end;\r\n\r\n  cDay := (rowTo - rowFrom - 1) * 7 + colTo + (7 - colFrom + 1);\r\n  dim := DaysInAMonth(FYear, FMonth);\r\n  calcMonth := EncodeDate(FYear, FMonth, dim);\r\n\r\n  if (cDay > dim) and (not FDateAppearance.ShowDaysAfter) then\r\n    Result := CALMINDATE\r\n  else if (cDay > dim) and FDateAppearance.ShowDaysAfter then\r\n    Result := IncDay(calcMonth, cDay - dim)\r\n  else\r\n    Result := EncodeDate(FYear, FMonth, cDay);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.ApplyStyle;\r\nvar\r\n  c: TTMSFNCGraphicsColor;\r\nbegin\r\n  inherited;\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleBackgroundFillColor(c) then\r\n  begin\r\n    Fill.Color := c;\r\n    DateAppearance.Fill.Color := c;\r\n    DateAppearance.Stroke.Kind := gskNone;\r\n    DateAppearance.DateAfterFill.Color := c;\r\n    DateAppearance.DateAfterStroke.Kind := gskNone;\r\n    DateAppearance.DateBeforeFill.Color := c;\r\n    DateAppearance.DateBeforeStroke.Kind := gskNone;\r\n    DateAppearance.DisabledFill.Color := c;\r\n    DateAppearance.DisabledStroke.Kind := gskNone;\r\n    DateAppearance.TodayFill.Color := c;\r\n    DateAppearance.TodayStroke.Kind := gskNone;\r\n    WeekNumberAppearance.Fill.Color := c;\r\n    WeekNumberAppearance.Stroke.Kind := gskNone;\r\n    DayNameAppearance.Stroke.Kind := gskNone;\r\n    DayNameAppearance.Fill.Color := c;\r\n  end;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleSelectionFillColor(c) then\r\n  begin\r\n    DateAppearance.SelectedFill.Color := c;\r\n    DateAppearance.SelectedStroke.Color := c;\r\n  end;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleLineFillColor(c) then\r\n  begin\r\n    Stroke.Color := c;\r\n    Header.Stroke.Color := c;\r\n    Footer.Stroke.Color := c;\r\n    LineAppearance.Stroke.Color := c;\r\n    Header.Arrow.Color := c;\r\n  end;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleHeaderFillColor(c) then\r\n  begin\r\n    Header.Fill.Color := c;\r\n    Footer.Fill.Color := c;\r\n  end;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleHeaderFillColorTo(c) then\r\n  begin\r\n    Header.Fill.Kind := gfkGradient;\r\n    Header.Fill.ColorTo := c;\r\n    Footer.Fill.Kind := gfkGradient;\r\n    Footer.Fill.ColorTo := c;\r\n  end;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleSelectionFillColorTo(c) then\r\n    DateAppearance.TodayFont.Color := c;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleTextFontColor(c) then\r\n  begin\r\n    if c = gcBlack then\r\n    begin\r\n      DateAppearance.DateAFterFont.Color := Lighter(c, 50);\r\n      DateAppearance.DateBeforeFont.Color := Lighter(c, 50);\r\n      DateAppearance.DisabledFont.Color := Lighter(c, 75);\r\n    end\r\n    else\r\n    begin\r\n      DateAppearance.DateAFterFont.Color := Blend(c, Fill.Color, 50);\r\n      DateAppearance.DateBeforeFont.Color := Blend(c, Fill.Color, 50);\r\n      DateAppearance.DisabledFont.Color := Blend(c, Fill.Color, 25);\r\n    end;\r\n\r\n    DateAppearance.SelectedFont.Color := c;\r\n    DateAppearance.Font.Color := c;\r\n    Header.Font.Color := c;\r\n    Footer.Font.Color := c;\r\n    DayNameAppearance.Font.Color := c;\r\n    WeekNumberAppearance.Font.Color := c;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.ArrowsChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTMSFNCCustomCalendar) then\r\n  begin\r\n    FDate := (Source as TTMSFNCCustomCalendar).Date;\r\n    FYear := (Source as TTMSFNCCustomCalendar).Year;\r\n    FMonth := (Source as TTMSFNCCustomCalendar).Month;\r\n    FDay := (Source as TTMSFNCCustomCalendar).Day;\r\n    FMinDate := (Source as TTMSFNCCustomCalendar).MinDate;\r\n    FMaxDate := (Source as TTMSFNCCustomCalendar).MaxDate;\r\n    Fill.Assign((Source as TTMSFNCCustomCalendar).Fill);\r\n    Stroke.Assign((Source as TTMSFNCCustomCalendar).Stroke);\r\n    FSelectedAll := (Source as TTMSFNCCustomCalendar).FSelectedAll;\r\n    FFirstDay := (Source as TTMSFNCCustomCalendar).FirstDay;\r\n    FBadgeSize := (Source as TTMSFNCCustomCalendar).BadgeSize;\r\n    FFocusedDate := (Source as TTMSFNCCustomCalendar).FocusedDate;\r\n    FXOffset := (Source as TTMSFNCCustomCalendar).FXOffset;\r\n    FYOffset := (Source as TTMSFNCCustomCalendar).FYOffset;\r\n    FHeader.Assign((Source as TTMSFNCCustomCalendar).Header);\r\n    FFooter.Assign((Source as TTMSFNCCustomCalendar).Footer);\r\n    FDayNameAppearance.Assign((Source as TTMSFNCCustomCalendar).DayNameAppearance);\r\n    FDateAppearance.Assign((Source as TTMSFNCCustomCalendar).DateAppearance);\r\n    FLineAppearance.Assign((Source as TTMSFNCCustomCalendar).LineAppearance);\r\n    FWeekNumberAppearance.Assign((Source as TTMSFNCCustomCalendar).WeekNumberAppearance);\r\n    FInteraction.Assign((Source as TTMSFNCCustomCalendar).Interaction);\r\n    FSelectedDates.Assign((Source as TTMSFNCCustomCalendar).SelectedDates);\r\n    FEvents.Assign((Source as TTMSFNCCustomCalendar).Events);\r\n  end\r\n  else\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.CalcDateAreaHeight(const AHeight: Single;\r\n  const AHeaderVisible, AFooterVisible: Boolean): Single;\r\nvar\r\n  h: Single;\r\nbegin\r\n  h := AHeight;\r\n\r\n  if AHeaderVisible then\r\n    h := h - FHeader.Height;\r\n  if AFooterVisible then\r\n    h := h - FFooter.Height;\r\n\r\n  h := h - FDayNameAppearance.Height;\r\n  Result := h;\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.CalcRowCount(const ACol,\r\n  ADaysInAMonth: Integer): Integer;\r\nbegin\r\n  Result := Ceil((ADaysInAMonth + ACol) / 7);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.CalculateXOffset;\r\nbegin\r\n  FXOffset := (Width - 2) / ColCount(WeekNumberAppearance.Visible);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\n\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.ChangeDPIScale(M, D: Integer);\r\nbegin\r\n  inherited;\r\n\r\n  BeginUpdate;\r\n\r\n  Header.Font.Height := TTMSFNCUtils.MulDivInt(Header.Font.Height, M, D);\r\n  Footer.Font.Height := TTMSFNCUtils.MulDivInt(Footer.Font.Height, M, D);\r\n  DayNameAppearance.Font.Height := TTMSFNCUtils.MulDivInt(DayNameAppearance.Font.Height, M, D);\r\n  DateAppearance.Font.Height := TTMSFNCUtils.MulDivInt(DateAppearance.Font.Height, M, D);\r\n  DateAppearance.SelectedFont.Height := TTMSFNCUtils.MulDivInt(DateAppearance.SelectedFont.Height, M, D);\r\n  DateAppearance.DisabledFont.Height := TTMSFNCUtils.MulDivInt(DateAppearance.DisabledFont.Height, M, D);\r\n  DateAppearance.BadgeFont.Height := TTMSFNCUtils.MulDivInt(DateAppearance.BadgeFont.Height, M, D);\r\n  DateAppearance.DateBeforeFont.Height := TTMSFNCUtils.MulDivInt(DateAppearance.DateBeforeFont.Height, M, D);\r\n  DateAppearance.DateAfterFont.Height := TTMSFNCUtils.MulDivInt(DateAppearance.DateAfterFont.Height, M, D);\r\n  DateAppearance.TodayFont.Height := TTMSFNCUtils.MulDivInt(DateAppearance.TodayFont.Height, M, D);\r\n  WeekNumberAppearance.Font.Height := TTMSFNCUtils.MulDivInt(WeekNumberAppearance.Font.Height, M, D);\r\n  DayNameAppearance.Height := TTMSFNCUtils.MulDivInt(DayNameAppearance.Height, M, D);\r\n  Header.Height := TTMSFNCUtils.MulDivInt(Header.Height, M, D);\r\n  Footer.Height := TTMSFNCUtils.MulDivInt(Footer.Height, M, D);\r\n  Header.Arrow.Size := TTMSFNCUtils.MulDivInt(Header.Arrow.Size, M, D);\r\n  Header.Arrow.ArrowLeftBitmapSize := TTMSFNCUtils.MulDivSingle(Header.Arrow.ArrowLeftBitmapSize, M, D);\r\n  Header.Arrow.ArrowRightBitmapSize := TTMSFNCUtils.MulDivSingle(Header.Arrow.ArrowRightBitmapSize, M, D);\r\n  BadgeSize := TTMSFNCUtils.MulDivInt(BadgeSize, M, D);\r\n\r\n  EndUpdate;\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.ColAtX(AX: Single): Integer;\r\nbegin\r\n  if WeekNumberAppearance.Visible then\r\n  begin\r\n    if (AX > FXOffset) and (AX < Self.Width - 2) and (FXOffset <> 0) then\r\n      Result := Trunc(AX / FXOffset)\r\n    else\r\n      Result := -1;\r\n  end\r\n  else\r\n  begin\r\n    if (AX > 0) and (AX < Self.Width - 2) and (FXOffset <> 0) then\r\n      Result := Trunc(AX / FXOffset) + 1\r\n    else\r\n      Result := -1;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.ResetToDefaultStyle;\r\nbegin\r\n  inherited;\r\n\r\n  Fill.Kind := gfkSolid;\r\n  Stroke.Kind := gskSolid;\r\n  Fill.Color := gcWhite;\r\n  Stroke.Color := gcSilver;\r\n\r\n  Header.Fill.Kind := gfkGradient;\r\n  {$IFDEF FMXLIB}\r\n  Header.Fill.Color := $FFF6F8FC;\r\n  Header.Fill.ColorTo := $FFEEF2F9;\r\n  Header.Font.Color := $FF454545;\r\n  {$ENDIF}\r\n  {$IFNDEF FMXLIB}\r\n  Header.Fill.Color := $FCF8F6;\r\n  Header.Fill.ColorTo := $F9F2EE;\r\n  Header.Font.Color := $454545;\r\n  {$ENDIF}\r\n  Header.Stroke.Kind := gskSolid;\r\n  Header.Stroke.Color := gcSilver;\r\n  Header.Arrow.Color := gcDimgray;\r\n  TTMSFNCUtils.SetFontSize(Header.Font, 14);\r\n\r\n  Footer.Fill.Assign(Header.Fill);\r\n  Footer.Stroke.Assign(Header.Stroke);\r\n  Footer.Font.Assign(Header.Font);\r\n  Footer.Font.Style := [];\r\n\r\n  LineAppearance.Stroke.Kind := gskSolid;\r\n  LineAppearance.Stroke.Color := gcDarkgray;\r\n\r\n  DayNameAppearance.Fill.Kind := gfkSolid;\r\n  DayNameAppearance.Stroke.Kind := gskSolid;\r\n  DayNameAppearance.Fill.Color := gcNull;\r\n  DayNameAppearance.Stroke.Color := gcNull;\r\n  {$IFDEF FMXLIB}\r\n  DayNameAppearance.Font.Color := $FF7A7A7A;\r\n  {$ENDIF}\r\n  {$IFNDEF FMXLIB}\r\n  DayNameAppearance.Font.Color := $7A7A7A;\r\n  {$ENDIF}\r\n\r\n  WeekNumberAppearance.Fill.Kind := gfkSolid;\r\n  WeekNumberAppearance.Stroke.Kind := gskSolid;\r\n  WeekNumberAppearance.Fill.Color := gcNull;\r\n  WeekNumberAppearance.Stroke.Color := gcNull;\r\n  WeekNumberAppearance.Font.Color := DayNameAppearance.Font.Color;\r\n\r\n  DateAppearance.DateAfterFill.Kind := gfkSolid;\r\n  DateAppearance.DateAfterStroke.Kind := gskSolid;\r\n  DateAppearance.DateBeforeFill.Kind := gfkSolid;\r\n  DateAppearance.DateBeforeStroke.Kind := gskSolid;\r\n  DateAppearance.DisabledFill.Kind := gfkSolid;\r\n  DateAppearance.DisabledStroke.Kind := gskSolid;\r\n  DateAppearance.Fill.Kind := gfkSolid;\r\n  DateAppearance.Stroke.Kind := gskSolid;\r\n  DateAppearance.SelectedFill.Kind := gfkSolid;\r\n  DateAppearance.SelectedStroke.Kind := gskSolid;\r\n  DateAppearance.TodayFill.Kind := gfkSolid;\r\n  DateAppearance.TodayStroke.Kind := gskSolid;\r\n\r\n  {$IFDEF FMXLIB}\r\n  DateAppearance.Font.Color := $FF7A7A7A;\r\n  DateAppearance.TodayFont.Color := $FF2D9BEF;\r\n  DateAppearance.DateBeforeFont.Color := $FFBBBBBB;\r\n  {$ENDIF}\r\n  {$IFNDEF FMXLIB}\r\n  DateAppearance.Font.Color := $7A7A7A;\r\n  DateAppearance.TodayFont.Color := $EF9B2D;\r\n  DateAppearance.DateBeforeFont.Color := $BBBBBB;\r\n  {$ENDIF}\r\n\r\n  DateAppearance.DateAfterFill.Color := gcNull;\r\n  DateAppearance.DateAfterStroke.Color := gcNull;\r\n  DateAppearance.DateAfterFont.Color := DateAppearance.DateBeforeFont.Color;\r\n  DateAppearance.DateBeforeFill.Color := gcNull;\r\n  DateAppearance.DateBeforeStroke.Color := gcNull;\r\n  DateAppearance.DisabledFill.Color := gcNull;\r\n  DateAppearance.DisabledStroke.Color := gcNull;\r\n  DateAppearance.DisabledFont.Color := gcLightgrey;\r\n  DateAppearance.Fill.Color := gcNull;\r\n  DateAppearance.Stroke.Color := gcNull;\r\n  DateAppearance.SelectedFill.Color := Header.Fill.ColorTo;\r\n  DateAppearance.SelectedStroke.Color :=  DateAppearance.TodayFont.Color;\r\n  DateAppearance.TodayFill.Color := gcNull;\r\n  DateAppearance.TodayStroke.Color := gcNull;\r\n  DateAppearance.TodayFont.Style := [TFontStyle.fsBold];\r\n  DateAppearance.ShowFocus := False;\r\n\r\n  Header.Font.Style := [TFontStyle.fsBold];\r\n  DateAppearance.SelectedFont.Assign(Header.Font);\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.RowAtY(AY: Single): Integer;\r\nvar\r\n  t, b: Single;\r\nbegin\r\n  if FHeader.Visible then\r\n    t := FHeader.Height + FDayNameAppearance.Height\r\n  else\r\n    t := FDayNameAppearance.Height;\r\n\r\n  if FFooter.Visible then\r\n    b := Self.Height - FFooter.Height\r\n  else\r\n    b := Self.Height;\r\n\r\n  if (AY > t) and (AY < b) and (FYOffset <> 0) then\r\n  begin\r\n    if FHeader.Visible then\r\n      Result := Trunc((AY - FHeader.Height - FDayNameAppearance.Height) / FYOffset) + 1\r\n    else\r\n      Result := Trunc((AY - FDayNameAppearance.Height) / FYOffset) + 1;\r\n  end\r\n  else\r\n    Result := -1;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SelectADate(ADate: TDate);\r\nbegin\r\n  FSelectedDates.UnselectAll;\r\n  FSelectedDates.SelectDate(ADate);\r\n  Date := ADate;\r\n  FFocusedDate := ADate;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SelectDate(ADate: TDate);\r\nvar\r\n  mind, maxd: TDate;\r\nbegin\r\n  mind := MinDate;\r\n  maxd := MaxDate;\r\n\r\n  if MinDate = 0 then\r\n    mind := ADate;\r\n  if MaxDate = 0 then\r\n    maxd := ADate;\r\n\r\n  if (Int(ADate) >= Int(mind)) and (Int(ADate) <= Int(maxd)) then\r\n  begin\r\n    FSelectedDates.SelectDate(ADate);\r\n    FClickedDate := ADate;\r\n  end;\r\n\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SelectDateIfAvailable(ADate: TDate);\r\nvar\r\n  mind, maxd: TDate;\r\nbegin\r\n  mind := MinDate;\r\n  maxd := MaxDate;\r\n\r\n  if MinDate = 0 then\r\n    mind := ADate;\r\n  if MaxDate = 0 then\r\n    maxd := ADate;\r\n\r\n  if (Int(ADate) >= Int(mind)) and (Int(ADate) <= Int(maxd)) then\r\n  begin\r\n    FSelectedDates.UnselectAll;\r\n    FSelectedDates.SelectDate(ADate);\r\n    Date := ADate;\r\n    FFocusedDate := ADate;\r\n    FClickedDate := ADate;\r\n  end;\r\n\r\n  Invalidate;\r\nend;\r\n\r\nfunction TTMSFNCCustomCalendar.SelectedDate: TDate;\r\nbegin\r\n  if FSelectedDates.Count > 0 then\r\n    Result := FSelectedDates.Items[FSelectedDates.Count - 1].Date\r\n  else\r\n    Result := CALMINDATE;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SelectEvent(ADate: TDate);\r\nbegin\r\n  FEvents.SelectDate(ADate);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SelectMultiDates(AStartDate,\r\n  AEndDate: TDate);\r\nvar\r\n  mind, maxd: TDate;\r\nbegin\r\n  mind := MinDate;\r\n  maxd := MaxDate;\r\n\r\n  if CompareDate(AStartDate, AEndDate) = -1 then\r\n  begin\r\n    if MinDate = 0 then\r\n      mind := AStartDate;\r\n\r\n    if MaxDate = 0 then\r\n      maxd := AEndDate;\r\n\r\n    if (Int(AStartDate) >= Int(mind)) and (Int(AEndDate) <= Int(maxd)) then\r\n    begin\r\n      FSelectedDates.UnselectAll;\r\n      FSelectedDates.SelectDateInterval(AStartDate, AEndDate);\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    if MinDate = 0 then\r\n      mind := AEndDate;\r\n\r\n    if MaxDate = 0 then\r\n      maxd := AStartDate;\r\n\r\n    if (Int(AEndDate) >= Int(mind)) and (Int(AStartDate) <= Int(maxd)) then\r\n    begin\r\n      FSelectedDates.UnselectAll;\r\n      FSelectedDates.SelectDateInterval(AStartDate, AEndDate);\r\n    end;\r\n  end;\r\n\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SetArrowLeftRect(AHeaderRect: TRectF; var AArrowRect: TRectF;\r\n  ACentre: Single);\r\nbegin\r\n  case Header.Arrow.ArrowLeftType of\r\n    atTriangle, atArrow, atCustom:\r\n    begin\r\n      AArrowRect.Top := ACentre - Header.Arrow.Size / 2;\r\n      AArrowRect.Bottom := ACentre + Header.Arrow.Size / 2;\r\n      AArrowRect.Right := AHeaderRect.Left + Header.Arrow.Size + ARRPOS;\r\n    end;\r\n    atBitmap:\r\n    begin\r\n      AArrowRect.Top := ACentre - Header.Arrow.ArrowLeftBitmapSize / 2;\r\n      AArrowRect.Bottom := ACentre + Header.Arrow.ArrowLeftBitmapSize / 2;\r\n      AArrowRect.Right := AHeaderRect.Left + Header.Arrow.ArrowLeftBitmapSize + ARRPOS;\r\n    end;\r\n  end;\r\n\r\n  AArrowRect.Left := AHeaderRect.Left + ARRPOS;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SetArrowRightRect(AHeaderRect: TREctF;\r\n  var AArrowRect: TRectF; ACentre: Single);\r\nbegin\r\n  case Header.Arrow.ArrowRightType of\r\n    atTriangle, atArrow, atCustom:\r\n    begin\r\n      AArrowRect.Top := ACentre - Header.Arrow.Size / 2;\r\n      AArrowRect.Bottom := ACentre + Header.Arrow.Size / 2;\r\n      AArrowRect.Left := AHeaderRect.Right - ARRPOS - Header.Arrow.Size;\r\n    end;\r\n    atBitmap:\r\n    begin\r\n      AArrowRect.Top := ACentre - Header.Arrow.ArrowRightBitmapSize / 2;\r\n      AArrowRect.Bottom := ACentre + Header.Arrow.ArrowRightBitmapSize / 2;\r\n      AArrowRect.Left := AHeaderRect.Right - ARRPOS - Header.Arrow.ArrowRightBitmapSize;\r\n    end;\r\n  end;\r\n\r\n  AArrowRect.Right := AHeaderRect.Right - ARRPOS;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SetBadgeSize(const Value: Integer);\r\nbegin\r\n  if FBadgeSize <> Value then\r\n    FBadgeSize := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SetBitmapContainer(\r\n  const Value: TTMSFNCBitmapContainer);\r\nbegin\r\n  FBitmapContainer := Value;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SetDate(const Value: TDate);\r\nbegin\r\n  if FDate <> Value then\r\n  begin\r\n    FDate := Value;\r\n    FDay := DayOf(FDate);\r\n    FMonth := MonthOf(FDate);\r\n    FYear := YearOf(FDate);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SetDateAppearance(\r\n  const Value: TTMSFNCCalendarDateAppearance);\r\nbegin\r\n  FDateAppearance.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SetDay(const Value: Integer);\r\nbegin\r\n  if FDay <> Value then\r\n  begin\r\n    FDay := Value;\r\n    FDate := EncodeDate(YearOf(FDate), MonthOf(FDate), FDay);\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SetDayNameAppearance(\r\n  const Value: TTMSFNCCalendarDayNameAppearance);\r\nbegin\r\n  FDayNameAppearance.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SetEvents(\r\n  const Value: TTMSFNCCalendarEvents);\r\nbegin\r\n  FEvents.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SetFirstDay(const Value: Integer);\r\nbegin\r\n  if FFirstDay <> Value then\r\n  begin\r\n    FFirstDay := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SetFocusedDate(const Value: TDate);\r\nbegin\r\n  if FFocusedDate <> Value then\r\n    FFocusedDate := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SetFonts(ASetType: TTMSFNCAppearanceGlobalFontType);\r\nbegin\r\n  BeginUpdate;\r\n\r\n  GlobalFont.ApplyChange(DayNameAppearance.Font, ASetType);\r\n\r\n  GlobalFont.ApplyChange(WeekNumberAppearance.Font, ASetType);\r\n\r\n  GlobalFont.ApplyChange(DateAppearance.Font, ASetType);\r\n  GlobalFont.ApplyChange(DateAppearance.SelectedFont, ASetType);\r\n\r\n  if not (ASetType = aftColor) then\r\n    GlobalFont.ApplyChange(DateAppearance.DisabledFont, ASetType);\r\n\r\n  GlobalFont.ApplyChange(DateAppearance.DateBeforeFont, ASetType);\r\n  GlobalFont.ApplyChange(DateAppearance.DateAfterFont, ASetType);\r\n  GlobalFont.ApplyChange(DateAppearance.BadgeFont, ASetType);\r\n  GlobalFont.ApplyChange(DateAppearance.TodayFont, ASetType);\r\n\r\n  GlobalFont.ApplyChange(FFooter.Font, ASetType);\r\n\r\n  GlobalFont.ApplyChange(FHeader.Font, ASetType);\r\n\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SetFooter(const Value: TTMSFNCCalendarFooter);\r\nbegin\r\n  FFooter.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SetGlobalFont(const Value: TTMSFNCAppearanceGlobalFont);\r\nbegin\r\n  FGlobalFont.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SetDateBackward(var ADate: TDate;\r\n  ASetBy: Integer);\r\nbegin\r\n  ADate := IncDay(ADate, ASetBy);\r\n\r\n  if YearOf(ADate) < FYear then\r\n  begin\r\n    DoChangeYear(FYear);\r\n    DoChangeMonth(FMonth);\r\n  end\r\n  else if MonthOf(ADate) < FMonth then\r\n  begin\r\n    DoChangeMonth(FMonth);\r\n  end;\r\n\r\n  Date := ADate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SetDateForward(var ADate: TDate;\r\n  ASetBy: Integer);\r\nbegin\r\n  ADate := IncDay(ADate, ASetBy);\r\n\r\n  if YearOf(ADate) > FYear then\r\n  begin\r\n    DoChangeYear(FYear);\r\n    DoChangeMonth(FMonth);\r\n  end\r\n  else if MonthOf(ADate) > FMonth then\r\n  begin\r\n    DoChangeMonth(FMonth);\r\n  end;\r\n\r\n  Date := ADate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SetHeader(const Value: TTMSFNCCalendarHeader);\r\nbegin\r\n  FHeader.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SetInteraction(\r\n  const Value: TTMSFNCCalendarInteraction);\r\nbegin\r\n  FInteraction.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SetLineAppearance(\r\n  const Value: TTMSFNCCalendarLineAppearance);\r\nbegin\r\n  FLineAppearance.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SetMaxDate(const Value: TDate);\r\nbegin\r\n  if FMaxDate <> Value then\r\n  begin\r\n    FMaxDate := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SetMinDate(const Value: TDate);\r\nbegin\r\n  if FMinDate <> Value then\r\n  begin\r\n    FMinDate := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SetMonth(const Value: Integer);\r\nbegin\r\n  if FMonth <> Value then\r\n  begin\r\n    FMonth := Value;\r\n    FDate := EncodeDate(YearOf(FDate), FMonth, DayOf(FDate));\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SetWeekNumberAppearance(\r\n  const Value: TTMSFNCCalendarWeekNumberAppearance);\r\nbegin\r\n  FWeekNumberAppearance.Assign(Value);\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.SetYear(const Value: Integer);\r\nbegin\r\n  if FYear <> Value then\r\n  begin\r\n    FYear := Value;\r\n    FDate := EncodeDate(FYear, MonthOf(FDate), DayOf(FDate));\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.ShiftCellH(var ACell: TRectF;\r\n  const AMoveBy: Single);\r\nbegin\r\n  IncrementCell(ACell.Left, AMoveBy);\r\n  IncrementCell(ACell.Right, AMoveBy);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.ShiftCellV(var ACell: TRectF;\r\n  const AMoveBy: Single);\r\nbegin\r\n  IncrementCell(ACell.Top, AMoveBy);\r\n  IncrementCell(ACell.Bottom, AMoveBy);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.ShowBeforeAndAfterChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.UpdateControlAfterResize;\r\nbegin\r\n  inherited;\r\n  if Assigned(WeekNumberAppearance) then\r\n    CalculateXOffset;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCalendar.WeekNumbersChanged(Sender: TObject);\r\nbegin\r\n  CalculateXOffset;\r\n  Changed;\r\nend;\r\n\r\n{ TTMSFNCCalendarHeader }\r\n\r\nprocedure TTMSFNCCalendarHeader.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTMSFNCCalendarHeader) then\r\n  begin\r\n    FFont.AssignSource((Source as TTMSFNCCalendarHeader).Font);\r\n    FHorizontalTextAlign := (Source as TTMSFNCCalendarHeader).HorizontalTextAlign;\r\n    FVerticalTextAlign := (Source as TTMSFNCCalendarHeader).VerticalTextAlign;\r\n    FStroke.Assign((Source as TTMSFNCCalendarHeader).Stroke);\r\n    FFill.Assign((Source as TTMSFNCCalendarHeader).Fill);\r\n    FArrow.Assign((Source as TTMSFNCCalendarHeader).Arrow);\r\n    FVisible := (Source as TTMSFNCCalendarHeader).Visible;\r\n    FHeight := (Source as TTMSFNCCalendarHeader).Height;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarHeader.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nconstructor TTMSFNCCalendarHeader.Create(AOwner: TComponent);\r\nbegin\r\n  FFont := TTMSFNCGraphicsFont.Create;\r\n  FHorizontalTextAlign := gtaCenter;\r\n  FVerticalTextAlign := gtaCenter;\r\n  FStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcSilver);\r\n  FFill := TTMSFNCGraphicsFill.Create(gfkSolid, MakeGraphicsColor(228, 228, 228));\r\n  FArrow := TTMSFNCCalendarArrow.Create(AOwner);\r\n  FVisible := True;\r\n  FHeight := 25;\r\n\r\n  FFill.OnChanged := @FillChanged;\r\n  FFont.OnChanged := @FontChanged;\r\n  FStroke.OnChanged := @StrokeChanged;\r\nend;\r\n\r\ndestructor TTMSFNCCalendarHeader.Destroy;\r\nbegin\r\n  FFont.Free;\r\n  FFill.Free;\r\n  FStroke.Free;\r\n  FArrow.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarHeader.FillChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarHeader.FontChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarHeader.SetArrow(const Value: TTMSFNCCalendarArrow);\r\nbegin\r\n  if FArrow <> Value then\r\n    FArrow.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarHeader.SetFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FFill <> Value then\r\n    FFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarHeader.SetFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FFont.AssignSource(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarHeader.SetHeight(const Value: Integer);\r\nbegin\r\n  if FHeight <> Value then\r\n  begin\r\n    FHeight := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarHeader.SetHorizontalTextAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FHorizontalTextAlign <> Value then\r\n  begin\r\n    FHorizontalTextAlign := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarHeader.SetStroke(const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FStroke <> Value then\r\n    FStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarHeader.SetVerticalTextAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FVerticalTextAlign <> Value then\r\n  begin\r\n    FVerticalTextAlign := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarHeader.SetVisible(const Value: Boolean);\r\nbegin\r\n  if FVisible <> Value then\r\n  begin\r\n    FVisible := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarHeader.StrokeChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\n{ TTMSFNCCalendarDayNameAppearance }\r\n\r\nprocedure TTMSFNCCalendarDayNameAppearance.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCCalendarDayNameAppearance then\r\n  begin\r\n    FHeight := (Source as TTMSFNCCalendarDayNameAppearance).Height;\r\n    FFill.Assign((Source as TTMSFNCCalendarDayNameAppearance).Fill);\r\n    FStroke.Assign((Source as TTMSFNCCalendarDayNameAppearance).Stroke);\r\n    FFont.AssignSource((Source as TTMSFNCCalendarDayNameAppearance).Font);\r\n    FVerticalTextAlign := ((Source as TTMSFNCCalendarDayNameAppearance).VerticalTextAlign);\r\n    FHorizontalTextAlign := ((Source as TTMSFNCCalendarDayNameAppearance).HorizontalTextAlign);\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDayNameAppearance.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nconstructor TTMSFNCCalendarDayNameAppearance.Create;\r\nbegin\r\n  FHeight := 15;\r\n  FFont := TTMSFNCGraphicsFont.Create;\r\n  FFill := TTMSFNCGraphicsFill.Create(gfkSolid, gcNull);\r\n  FStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcNull);\r\n  FHorizontalTextAlign := gtaCenter;\r\n  FVerticalTextAlign := gtaCenter;\r\nend;\r\n\r\ndestructor TTMSFNCCalendarDayNameAppearance.Destroy;\r\nbegin\r\n  FFill.Free;\r\n  FStroke.Free;\r\n  FFont.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDayNameAppearance.FillChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDayNameAppearance.FontChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDayNameAppearance.SetFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FFill <> Value then\r\n    FFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDayNameAppearance.SetFont(\r\n  const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FFont.AssignSource(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDayNameAppearance.SetHeight(const Value: Integer);\r\nbegin\r\n  if FHeight <> Value then\r\n    FHeight := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDayNameAppearance.SetHorizontalTextAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FHorizontalTextAlign <> Value then\r\n    FHorizontalTextAlign := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDayNameAppearance.SetStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FStroke <> Value then\r\n    FStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDayNameAppearance.SetVerticalTextAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FVerticalTextAlign <> Value then\r\n    FVerticalTextAlign := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDayNameAppearance.StrokeChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\n{ TTMSFNCCalendarDateAppearance }\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCCalendarDateAppearance then\r\n  begin\r\n    FFill.Assign((Source as TTMSFNCCalendarDateAppearance).Fill);\r\n    FStroke.Assign((Source as TTMSFNCCalendarDateAppearance).Stroke);\r\n    FFont.AssignSource((Source as TTMSFNCCalendarDateAppearance).Font);\r\n    FVerticalTextAlign := (Source as TTMSFNCCalendarDateAppearance).VerticalTextAlign;\r\n    FHorizontalTextAlign := (Source as TTMSFNCCalendarDateAppearance).HorizontalTextAlign;\r\n    FSelectedFill.Assign((Source as TTMSFNCCalendarDateAppearance).SelectedFill);\r\n    FSelectedStroke.Assign((Source as TTMSFNCCalendarDateAppearance).SelectedStroke);\r\n    FSelectedFont.AssignSource((Source as TTMSFNCCalendarDateAppearance).SelectedFont);\r\n    FSelectedVerticalTextAlign := (Source as TTMSFNCCalendarDateAppearance).SelectedVerticalTextAlign;\r\n    FSelectedHorizontalTextAlign := (Source as TTMSFNCCalendarDateAppearance).SelectedHorizontalTextAlign;\r\n    FDisabledFill.Assign((Source as TTMSFNCCalendarDateAppearance).DisabledFill);\r\n    FDisabledStroke.Assign((Source as TTMSFNCCalendarDateAppearance).DisabledStroke);\r\n    FDisabledFont.AssignSource((Source as TTMSFNCCalendarDateAppearance).DisabledFont);\r\n    FDateBeforeFill.Assign((Source as TTMSFNCCalendarDateAppearance).DateBeforeFill);\r\n    FDateBeforeFont.AssignSource((Source as TTMSFNCCalendarDateAppearance).DateBeforeFont);\r\n    FDateBeforeStroke.Assign((Source as TTMSFNCCalendarDateAppearance).DateBeforeStroke);\r\n    FDateAfterFill.Assign((Source as TTMSFNCCalendarDateAppearance).DateAfterFill);\r\n    FDateAfterFont.AssignSource((Source as TTMSFNCCalendarDateAppearance).DateAfterFont);\r\n    FDateAfterStroke.Assign((Source as TTMSFNCCalendarDateAppearance).DateAfterStroke);\r\n    FTodayFill.Assign((Source as TTMSFNCCalendarDateAppearance).TodayFill);\r\n    FTodayFont.AssignSource((Source as TTMSFNCCalendarDateAppearance).TodayFont);\r\n    FTodayStroke.Assign((Source as TTMSFNCCalendarDateAppearance).TodayStroke);\r\n    FBadgeFill.Assign((Source as TTMSFNCCalendarDateAppearance).BadgeFill);\r\n    FBadgeFont.AssignSource((Source as TTMSFNCCalendarDateAppearance).BadgeFont);\r\n    FBadgeStroke.Assign((Source as TTMSFNCCalendarDateAppearance).BadgeStroke);\r\n    FShowDaysBefore := (Source as TTMSFNCCalendarDateAppearance).ShowDaysBefore;\r\n    FShowDaysAfter := (Source as TTMSFNCCalendarDateAppearance).ShowDaysAfter;\r\n    FShowFocus := (Source as TTMSFNCCalendarDateAppearance).ShowFocus;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nconstructor TTMSFNCCalendarDateAppearance.Create;\r\nbegin\r\n  FFont := TTMSFNCGraphicsFont.Create;\r\n  FFill := TTMSFNCGraphicsFill.Create(gfkSolid, gcNull);\r\n  FStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcNull);\r\n  FHorizontalTextAlign := gtaCenter;\r\n  FVerticalTextAlign := gtaCenter;\r\n  FSelectedFill := TTMSFNCGraphicsFill.Create(gfkSolid, gcDodgerblue);\r\n  FSelectedStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcDodgerblue);\r\n  FSelectedFont := TTMSFNCGraphicsFont.Create;\r\n  FSelectedFont.Color := gcWhite;\r\n  FSelectedHorizontalTextAlign := gtaCenter;\r\n  FSelectedVerticalTextAlign := gtaCenter;\r\n  FDisabledFont := TTMSFNCGraphicsFont.Create;\r\n  FDisabledFont.Color := gcLightgrey;\r\n  FDisabledFill := TTMSFNCGraphicsFill.Create(gfkSolid, gcNull);\r\n  FDisabledStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcNull);\r\n  FDateBeforeFill := TTMSFNCGraphicsFill.Create(gfkSolid, gcNull);\r\n  FDateBeforeFont := TTMSFNCGraphicsFont.Create;\r\n  FDateBeforeStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcNull);\r\n  FDateBeforeFont.Color := gcMedGray;\r\n  FDateAfterFill := TTMSFNCGraphicsFill.Create(gfkSolid, gcNull);\r\n  FDateAfterFont := TTMSFNCGraphicsFont.Create;\r\n  FDateAfterFont.Color := gcMedGray;\r\n  FDateAfterStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcNull);\r\n  FTodayFill := TTMSFNCGraphicsFill.Create(gfkSolid, gcNull);\r\n  FTodayFont := TTMSFNCGraphicsFont.Create;\r\n  FTodayFont.Color := gcRed;\r\n  FTodayStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcNull);\r\n  FBadgeFill := TTMSFNCGraphicsFill.Create(gfkSolid, gcRed);\r\n  FBadgeFont := TTMSFNCGraphicsFont.Create;\r\n  FBadgeFont.Color := gcWhite;\r\n  FShowFocus := True;\r\n  {$IFNDEF FMXLIB}\r\n  FBadgeFont.Size := 7;\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  FBadgeFont.Size := 10;\r\n  {$ENDIF}\r\n  FBadgeStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcRed);\r\n  FShowDaysBefore := False;\r\n  FShowDaysAfter := False;\r\n\r\n  FFont.OnChanged := @FontChanged;\r\n  FSelectedFont.OnChanged := @FontChanged;\r\n  FDisabledFont.OnChanged := @FontChanged;\r\n  FDateBeforeFont.OnChanged := @FontChanged;\r\n  FDateAfterFont.OnChanged := @FontChanged;\r\n  FTodayFont.OnChanged := @FontChanged;\r\n  FBadgeFont.OnChanged := @FontChanged;\r\n  FFill.OnChanged := @FillChanged;\r\n  FSelectedFill.OnChanged := @FillChanged;\r\n  FDisabledFill.OnChanged := @FillChanged;\r\n  FDateBeforeFill.OnChanged := @FillChanged;\r\n  FDateAfterFill.OnChanged := @FillChanged;\r\n  FTodayFill.OnChanged := @FillChanged;\r\n  FBadgeFill.OnChanged := @FillChanged;\r\n  FStroke.OnChanged := @StrokeChanged;\r\n  FSelectedStroke.OnChanged := @StrokeChanged;\r\n  FDisabledStroke.OnChanged := @StrokeChanged;\r\n  FDateBeforeStroke.OnChanged := @StrokeChanged;\r\n  FDateAfterStroke.OnChanged := @StrokeChanged;\r\n  FTodayStroke.OnChanged := @StrokeChanged;\r\n  FBadgeStroke.OnChanged := @StrokeChanged;\r\nend;\r\n\r\ndestructor TTMSFNCCalendarDateAppearance.Destroy;\r\nbegin\r\n  FFill.Free;\r\n  FStroke.Free;\r\n  FFont.Free;\r\n  FSelectedFill.Free;\r\n  FSelectedStroke.Free;\r\n  FSelectedFont.Free;\r\n  FDisabledFill.Free;\r\n  FDisabledStroke.Free;\r\n  FDisabledFont.Free;\r\n  FDateBeforeFill.Free;\r\n  FDateBeforeFont.Free;\r\n  FDateBeforeStroke.Free;\r\n  FDateAfterFill.Free;\r\n  FDateAfterFont.Free;\r\n  FDateAfterStroke.Free;\r\n  FTodayFill.Free;\r\n  FTodayFont.Free;\r\n  FTodayStroke.Free;\r\n  FBadgeFill.Free;\r\n  FBadgeFont.Free;\r\n  FBadgeStroke.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.FillChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.FontChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetBadgeFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FBadgeFill <> Value then\r\n    FBadgeFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetBadgeFont(\r\n  const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FBadgeFont.AssignSource(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetBadgeStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FBadgeStroke <> Value then\r\n    FBadgeStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetDateAfterFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FDateAfterFill <> Value then\r\n    FDateAfterFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetDateAfterFont(\r\n  const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FDateAfterFont.AssignSource(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetDateAfterStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FDateAfterStroke <> Value then\r\n    FDateAfterStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetDateBeforeFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FDateBeforeFill <> Value then\r\n    FDateBeforeFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetDateBeforeFont(\r\n  const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FDateBeforeFont.AssignSource(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetDateBeforeStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FDateBeforeStroke <> Value then\r\n    FDateBeforeStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetDisabledFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FDisabledFill <> Value then\r\n    FDisabledFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetDisabledFont(\r\n  const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FDisabledFont.AssignSource(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetDisabledStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FDisabledStroke <> Value then\r\n    FDisabledStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FFill <> Value then\r\n    FFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetFont(\r\n  const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FFont.AssignSource(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetHorizontalTextAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FHorizontalTextAlign <> Value then\r\n    FHorizontalTextAlign := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetSelectedFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FSelectedFill <> Value then\r\n    FSelectedFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetSelectedFont(\r\n  const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FSelectedFont.AssignSource(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetSelectedHorizontalTextAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FSelectedHorizontalTextAlign <> Value then\r\n    FSelectedHorizontalTextAlign := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetSelectedStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FSelectedStroke <> Value then\r\n    FSelectedStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetSelectedVerticalTextAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FSelectedVerticalTextAlign <> Value then\r\n    FSelectedVerticalTextAlign := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetShowDaysAfter(const Value: Boolean);\r\nbegin\r\n  if FShowDaysAfter <> Value then\r\n  begin\r\n    FShowDaysAfter := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetShowDaysBefore(const Value: Boolean);\r\nbegin\r\n  if FShowDaysBefore <> Value then\r\n  begin\r\n    FShowDaysBefore := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetShowFocus(const Value: Boolean);\r\nbegin\r\n  if FShowFocus <> Value then\r\n  begin\r\n    FShowFocus := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FStroke <> Value then\r\n    FStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetTodayFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FTodayFill <> Value then\r\n    FTodayFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetTodayFont(\r\n  const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FTodayFont.AssignSource(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetTodayStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FTodayStroke <> Value then\r\n    FTodayStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.SetVerticalTextAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FVerticalTextAlign <> Value then\r\n    FVerticalTextAlign := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateAppearance.StrokeChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\n{ TTMSFNCCalendarLineAppearance }\r\n\r\nprocedure TTMSFNCCalendarLineAppearance.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCCalendarLineAppearance then\r\n    FStroke.Assign((Source as TTMSFNCCalendarLineAppearance).Stroke)\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarLineAppearance.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nconstructor TTMSFNCCalendarLineAppearance.Create;\r\nbegin\r\n  FStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcSilver);\r\n  FStroke.OnChanged := @StrokeChanged;\r\nend;\r\n\r\ndestructor TTMSFNCCalendarLineAppearance.Destroy;\r\nbegin\r\n  FStroke.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarLineAppearance.SetStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FStroke <> Value then\r\n    FStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarLineAppearance.StrokeChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\n{ TTMSFNCCalendarWeekNumberAppearance }\r\n\r\nprocedure TTMSFNCCalendarWeekNumberAppearance.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCCalendarWeekNumberAppearance then\r\n  begin\r\n    FVisible := (Source as TTMSFNCCalendarWeekNumberAppearance).Visible;\r\n    FFill.Assign((Source as TTMSFNCCalendarWeekNumberAppearance).Fill);\r\n    FStroke.Assign((Source as TTMSFNCCalendarWeekNumberAppearance).Stroke);\r\n    FFont.AssignSource((Source as TTMSFNCCalendarWeekNumberAppearance).Font);\r\n    FHorizontalTextAlign := (Source as TTMSFNCCalendarWeekNumberAppearance).HorizontalTextAlign;\r\n    FVerticalTextAlign := (Source as TTMSFNCCalendarWeekNumberAppearance).VerticalTextAlign;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarWeekNumberAppearance.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nconstructor TTMSFNCCalendarWeekNumberAppearance.Create;\r\nbegin\r\n  FVisible := False;\r\n  FFill := TTMSFNCGraphicsFill.Create(gfkSolid, gcNull);\r\n  FFont := TTMSFNCGraphicsFont.Create;\r\n  FStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcNull);\r\n  FHorizontalTextAlign := gtaCenter;\r\n  FVerticalTextAlign := gtaCenter;\r\n\r\n  FFill.OnChanged := @FillChanged;\r\n  FFont.OnChanged := @FontChanged;\r\n  FStroke.OnChanged := @StrokeChanged;\r\nend;\r\n\r\ndestructor TTMSFNCCalendarWeekNumberAppearance.Destroy;\r\nbegin\r\n  FFill.Free;\r\n  FFont.Free;\r\n  FStroke.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarWeekNumberAppearance.FillChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarWeekNumberAppearance.FontChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarWeekNumberAppearance.SetFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FFill <> Value then\r\n    FFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarWeekNumberAppearance.SetFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FFont.AssignSource(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarWeekNumberAppearance.SetHorizontalTextAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FHorizontalTextAlign <> Value then\r\n  begin\r\n    FHorizontalTextAlign := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarWeekNumberAppearance.SetStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FStroke <> Value then\r\n    FStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarWeekNumberAppearance.SetVerticalTextAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FVerticalTextAlign <> Value then\r\n  begin\r\n    FVerticalTextAlign := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarWeekNumberAppearance.SetVisible(const Value: Boolean);\r\nbegin\r\n  if FVisible <> Value then\r\n  begin\r\n    FVisible := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarWeekNumberAppearance.StrokeChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\n{ TTMSFNCCalendarDateItem }\r\n\r\nprocedure TTMSFNCCalendarDateItem.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTMSFNCCalendarDateItem) then\r\n    FDate := (Source as TTMSFNCCalendarDateItem).Date\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateItem.SetDate(const Value: TDate);\r\nbegin\r\n  if FDate <> Value then\r\n  begin\r\n    FDate := Value;\r\n    Update;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDateItem.Update;\r\nbegin\r\n  TTMSFNCCalendarDates(Collection).Update(Self);\r\nend;\r\n\r\n{ TTMSFNCCalendarDates }\r\n\r\nfunction TTMSFNCCalendarDates.Add: TTMSFNCCalendarDateItem;\r\nbegin\r\n  Result := TTMSFNCCalendarDateItem(inherited Add);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDates.DoChange;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nfunction TTMSFNCCalendarDates.GetItem(Index: integer): TTMSFNCCalendarDateItem;\r\nbegin\r\n  Result := TTMSFNCCalendarDateItem(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCCalendarDates.InCollection(ADate: TDate): Boolean;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := False;\r\n\r\n  for I := 0 to Count - 1 do\r\n    if CompareDate(Items[I].Date, ADate) = 0 then\r\n    begin\r\n      Result := True;\r\n      Break;\r\n    end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDates.SelectDate(ADate: TDate);\r\nvar\r\n  DateToAdd: TTMSFNCCalendarDateItem;\r\nbegin\r\n  DateToAdd := Add;\r\n  DateToAdd.Date := ADate;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDates.SelectDateInterval(ADateFrom, ADateTo: TDate);\r\nvar\r\n  I: Integer;\r\n  IDate: TDate;\r\nbegin\r\n  SelectDate(ADateFrom);\r\n  IDate := ADateFrom;\r\n\r\n  if CompareDate(ADateFrom, ADateTo) = -1  then\r\n  begin\r\n    for I := 0 to DaysBetween(ADateFrom, ADateTo) - 1 do\r\n    begin\r\n      IDate := IncDay(IDate, 1);\r\n      SelectDate(IDate);\r\n    end;\r\n  end;\r\n\r\n  if CompareDate(ADateTo, ADateFrom) = -1  then\r\n  begin\r\n    for I := 0 to DaysBetween(ADateTo, ADateFrom) - 1 do\r\n    begin\r\n      IDate := IncDay(IDate, -1);\r\n      SelectDate(IDate);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDates.SetItem(Index: integer;\r\n  const Value: TTMSFNCCalendarDateItem);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDates.UnselectAll;\r\nbegin\r\n  Clear;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDates.UnselectDate(ADate: TDate);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to Count - 1 do\r\n    if Items[I].Date = ADate then\r\n    begin\r\n      Delete(I);\r\n      Exit;\r\n    end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarDates.Update(Item: TCollectionItem);\r\nbegin\r\n  inherited;\r\n  DoChange;\r\nend;\r\n\r\n{ TTMSFNCCalendarInteraction }\r\n\r\nprocedure TTMSFNCCalendarCustomInteraction.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCCalendarCustomInteraction then\r\n  begin\r\n    FKeyboardSupport := (Source as TTMSFNCCalendarCustomInteraction).KeyboardSupport;\r\n    FMultiSelect := (Source as TTMSFNCCalendarCustomInteraction).MultiSelect;\r\n    FReadOnlyMode := (Source as TTMSFNCCalendarCustomInteraction).ReadOnlyMode;\r\n    FNavigationMode := (Source as TTMSFNCCalendarCustomInteraction).NavigationMode;\r\n    FSwipeOnHeader := (Source as TTMSFNCCalendarCustomInteraction).SwipeOnHeader;\r\n    FAllowYearSelection := (Source as TTMSFNCCalendarCustomInteraction).AllowYearSelection;\r\n    FAllowMonthSelection := (Source as TTMSFNCCalendarCustomInteraction).AllowMonthSelection;\r\n    FYearOptions.Assign((Source as TTMSFNCCalendarCustomInteraction).YearOptions);\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nconstructor TTMSFNCCalendarCustomInteraction.Create;\r\nbegin\r\n  inherited;\r\n  FKeyboardSupport := True;\r\n  FMultiSelect := False;\r\n  FReadOnlyMode := False;\r\n  FNavigationMode := nmMonth;\r\n  FSwipeOnHeader := False;\r\n  FAllowMonthSelection := False;\r\n  FAllowYearSelection := False;\r\n  FYearOptions := TTMSFNCCalendarInteractionYearOptions.Create;\r\nend;\r\n\r\ndestructor TTMSFNCCalendarCustomInteraction.Destroy;\r\nbegin\r\n  FYearOptions.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarCustomInteraction.SetAllowMonthSelection(\r\n  const Value: Boolean);\r\nbegin\r\n  if FAllowMonthSelection <> Value then\r\n    FAllowMonthSelection := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarCustomInteraction.SetAllowYearSelection(\r\n  const Value: Boolean);\r\nbegin\r\n  if FAllowYearSelection <> Value then\r\n    FAllowYearSelection := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarCustomInteraction.SetKeyboardSupport(const Value: Boolean);\r\nbegin\r\n  if FKeyboardSupport <> Value then\r\n    FKeyboardSupport := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarCustomInteraction.SetMultiSelect(const Value: Boolean);\r\nbegin\r\n  if FMultiSelect <> Value then\r\n    FMultiSelect := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarCustomInteraction.SetNavigationMode(\r\n  const Value: TTMSFNCCalendarNavigationMode);\r\nbegin\r\n  if FNavigationMode <> Value then\r\n    FNavigationMode := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarCustomInteraction.SetReadOnlyMode(const Value: Boolean);\r\nbegin\r\n  if FReadOnlyMode <> Value then\r\n    FReadOnlyMode := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarCustomInteraction.SetSwipeOnHeader(const Value: Boolean);\r\nbegin\r\n  if FSwipeOnHeader <> Value then\r\n    FSwipeOnHeader := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarCustomInteraction.SetYearOptions(\r\n  const Value: TTMSFNCCalendarInteractionYearOptions);\r\nbegin\r\n  FYearOptions.Assign(Value);\r\nend;\r\n\r\n{ TTMSFNCCalendarArrow }\r\n\r\nprocedure TTMSFNCCalendarArrow.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCCalendarArrow then\r\n  begin\r\n    FColor := (Source as TTMSFNCCalendarArrow).Color;\r\n    FVisibility := (Source as TTMSFNCCalendarArrow).Visibility;\r\n    FSize := (Source as TTMSFNCCalendarArrow).Size;\r\n    FArrowLeftType := (Source as TTMSFNCCalendarArrow).ArrowLeftType;\r\n    FArrowLeftBitmapSize := (Source as TTMSFNCCalendarArrow).ArrowLeftBitmapSize;\r\n    FArrowLeftBitmap.Assign((Source as TTMSFNCCalendarArrow).ArrowLeftBitmap);\r\n    FArrowRightType := (Source as TTMSFNCCalendarArrow).ArrowRightType;\r\n    FArrowRightBitmapSize := (Source as TTMSFNCCalendarArrow).ArrowRightBitmapSize;\r\n    FArrowRightBitmap.Assign((Source as TTMSFNCCalendarArrow).ArrowRightBitmap);\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarArrow.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nconstructor TTMSFNCCalendarArrow.Create(AOwner: TComponent);\r\nbegin\r\n  FOwner := AOwner;\r\n  FArrowLeftBitmap := TTMSFNCScaledBitmaps.Create(Self);\r\n  FArrowRightBitmap := TTMSFNCScaledBitmaps.Create(Self);\r\n  FColor := gcDimgray;\r\n  FVisibility := [alvLeft, alvRight];\r\n  FArrowLeftType := atArrow;\r\n  FArrowRightType := atArrow;\r\n  FArrowLeftBitmapSize := 15;\r\n  FArrowRightBitmapSize := 15;\r\n  FSize := 15;\r\nend;\r\n\r\ndestructor TTMSFNCCalendarArrow.Destroy;\r\nbegin\r\n  FArrowLeftBitmap.Free;\r\n  FArrowRightBitmap.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCCalendarArrow.GetBitmapContainer: TTMSFNCBitmapContainer;\r\n{$IFNDEF WEBLIB}\r\nvar\r\n  ia: ITMSFNCBitmapContainer;\r\n{$ENDIF}\r\nbegin\r\n  Result := nil;\r\n  {$IFNDEF WEBLIB}\r\n  if Assigned(FOwner) and Supports(FOwner, ITMSFNCBitmapContainer, ia) then\r\n    Result := ia.BitmapContainer;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCCalendarArrow.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCCalendarArrow.IsArrowLeftBitmapSizeStored: Boolean;\r\nbegin\r\n  Result := ArrowLeftBitmapSize <> 15;\r\nend;\r\n\r\nfunction TTMSFNCCalendarArrow.IsArrowRightBitmapSizeStore: Boolean;\r\nbegin\r\n  Result := ArrowRightBitmapSize <> 15;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarArrow.SetArrowLeftBitmap(const Value: TTMSFNCScaledBitmaps);\r\nbegin\r\n  FArrowLeftBitmap.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarArrow.SetArrowLeftBitmapSize(const Value: Single);\r\nbegin\r\n  if FArrowLeftBitmapSize <> Value then\r\n  begin\r\n    FArrowLeftBitmapSize := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarArrow.SetArrowLeftType(\r\n  const Value: TTMSFNCCalendarArrowType);\r\nbegin\r\n  if FArrowLeftType <> Value then\r\n  begin\r\n    FArrowLeftType := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarArrow.SetArrowRightBitmap(const Value: TTMSFNCScaledBitmaps);\r\nbegin\r\n  FArrowRightBitmap.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarArrow.SetArrowRightBitmapSize(const Value: Single);\r\nbegin\r\n  if FArrowRightBitmapSize <> Value then\r\n  begin\r\n    FArrowRightBitmapSize := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarArrow.SetArrowRightType(\r\n  const Value: TTMSFNCCalendarArrowType);\r\nbegin\r\n  if FArrowRightType <> Value then\r\n  begin\r\n    FArrowRightType := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarArrow.SetBitmapContainer(\r\n  const Value: TTMSFNCBitmapContainer);\r\n{$IFNDEF WEBLIB}\r\nvar\r\n  ia: ITMSFNCBitmapContainer;\r\n{$ENDIF}\r\nbegin\r\n  {$IFNDEF WEBLIB}\r\n  if Assigned(FOwner) and Supports(FOwner, ITMSFNCBitmapContainer, ia) then\r\n    ia.BitmapContainer := Value;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCalendarArrow.SetColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FColor <> Value then\r\n  begin\r\n    FColor := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarArrow.SetSize(const Value: Integer);\r\nbegin\r\n  if FSize <> Value then\r\n    FSize := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarArrow.SetVisibility(\r\n  const Value: TTMSFNCCalendarArrowLayout);\r\nbegin\r\n  if FVisibility <> Value then\r\n  begin\r\n    FVisibility := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCCalendarFooter }\r\n\r\nprocedure TTMSFNCCalendarFooter.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCCalendarFooter then\r\n  begin\r\n    FFill.Assign((Source as TTMSFNCCalendarFooter).Fill);\r\n    FStroke.Assign((Source as TTMSFNCCalendarFooter).Stroke);\r\n    FFont.AssignSource((Source as TTMSFNCCalendarFooter).Font);\r\n    FVerticalTextAlign := (Source as TTMSFNCCalendarFooter).FVerticalTextAlign;\r\n    FHorizontalTextAlign := (Source as TTMSFNCCalendarFooter).FHorizontalTextAlign;\r\n    FVisible := (Source as TTMSFNCCalendarFooter).Visible;\r\n    FDateCaption := (Source as TTMSFNCCalendarFooter).DateCaption;\r\n    FCaptionRect := (Source as TTMSFNCCalendarFooter).CaptionRect;\r\n    FCaption := (Source as TTMSFNCCalendarFooter).Caption;\r\n    FHeight := (Source as TTMSFNCCalendarFooter).Height;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarFooter.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nconstructor TTMSFNCCalendarFooter.Create;\r\nbegin\r\n  FFont := TTMSFNCGraphicsFont.Create;\r\n  FHorizontalTextAlign := gtaCenter;\r\n  FVerticalTextAlign := gtaCenter;\r\n  FStroke := TTMSFNCGraphicsStroke.Create(gskSolid, gcSilver);\r\n  FFill := TTMSFNCGraphicsFill.Create(gfkSolid, MakeGraphicsColor(228, 228, 228));\r\n  FVisible := True;\r\n  FHeight := 25;\r\n  FDateCaption := fdToday;\r\n\r\n  FFill.OnChanged := @FillChanged;\r\n  FFont.OnChanged := @FontChanged;\r\n  FStroke.OnChanged := @StrokeChanged;\r\nend;\r\n\r\ndestructor TTMSFNCCalendarFooter.Destroy;\r\nbegin\r\n  FFont.Free;\r\n  FStroke.Free;\r\n  FFill.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarFooter.FillChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarFooter.FontChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\nfunction TTMSFNCCalendarFooter.IsCaptionStored: Boolean;\r\nbegin\r\n  Result := Caption <> '';\r\nend;\r\n\r\nprocedure TTMSFNCCalendarFooter.SetCaption(const Value: string);\r\nbegin\r\n  if FCaption <> Value then\r\n  begin\r\n    FCaption := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarFooter.SetCaptionRect(const Value: TRectF);\r\nbegin\r\n  FCaptionRect := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarFooter.SetDateCaption(\r\n  const Value: TTMSFNCCalendarFooterDate);\r\nbegin\r\n  if FDateCaption <> Value then\r\n  begin\r\n    FDateCaption := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarFooter.SetFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FFill <> Value then\r\n    FFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarFooter.SetFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FFont.AssignSource(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarFooter.SetHeight(const Value: Integer);\r\nbegin\r\n  if FHeight <> Value then\r\n  begin\r\n    FHeight := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarFooter.SetHorizontalTextAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FHorizontalTextAlign <> Value then\r\n  begin\r\n    FHorizontalTextAlign := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarFooter.SetStroke(const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FStroke <> Value then\r\n    FStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarFooter.SetVerticalTextAlign(\r\n  const Value: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if FVerticalTextAlign <> Value then\r\n  begin\r\n    FVerticalTextAlign := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarFooter.SetVisible(const Value: Boolean);\r\nbegin\r\n  if FVisible <> Value then\r\n  begin\r\n    FVisible := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarFooter.StrokeChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\n{ TTMSFNCCalendarEventItem }\r\n\r\nprocedure TTMSFNCCalendarEventItem.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCCalendarEventItem then\r\n  begin\r\n    FBadgeColor := (Source as TTMSFNCCalendarEventItem).BadgeColor;\r\n    FBadgeFontColor := (Source as TTMSFNCCalendarEventItem).BadgeFontColor;\r\n    FBadgeValue := (Source as TTMSFNCCalendarEventItem).BadgeValue;\r\n    FHint := (Source as TTMSFNCCalendarEventItem).Hint;\r\n    FShowBadge := (Source as TTMSFNCCalendarEventItem).ShowBadge;\r\n    FDate := (Source as TTMSFNCCalendarEventItem).Date;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nconstructor TTMSFNCCalendarEventItem.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  FShowBadge := True;\r\n  FBadgeColor := gcNull;\r\n  FBadgeFontColor := gcNull;\r\n  Date := Now;\r\nend;\r\n\r\nfunction TTMSFNCCalendarEventItem.IsHintStored: Boolean;\r\nbegin\r\n  Result := Hint <> '';\r\nend;\r\n\r\nprocedure TTMSFNCCalendarEventItem.SetBadgeColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FBadgeColor <> Value then\r\n  begin\r\n    FBadgeColor := Value;\r\n    Update;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarEventItem.SetBadgeFontColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FBadgeFontColor <> Value then\r\n  begin\r\n    FBadgeFontColor := Value;\r\n    Update;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarEventItem.SetBadgeValue(const Value: Integer);\r\nbegin\r\n  if FBadgeValue <> Value then\r\n  begin\r\n    FBadgeValue := Value;\r\n    Update;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarEventItem.SetHint(const Value: string);\r\nbegin\r\n  if FHint <> Value then\r\n  begin\r\n    FHint := Value;\r\n    Update;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarEventItem.SetShowBadge(const Value: Boolean);\r\nbegin\r\n  if FShowBadge <> Value then\r\n  begin\r\n    FShowBadge := Value;\r\n    Update;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarEventItem.Update;\r\nbegin\r\n  TTMSFNCCalendarEvents(Collection).Update(Self);\r\nend;\r\n\r\n{ TTMSFNCCalendarEvents }\r\n\r\nfunction TTMSFNCCalendarEvents.Add: TTMSFNCCalendarEventItem;\r\nbegin\r\n  Result := TTMSFNCCalendarEventItem(inherited Add);\r\nend;\r\n\r\nfunction TTMSFNCCalendarEvents.GetEventCollectionItemByDate(\r\n  ADate: TDate): TTMSFNCCalendarEventItem;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := nil;\r\n\r\n  for I := 0 to Count - 1 do\r\n    if CompareDate(Items[I].Date, ADate) = 0 then\r\n    begin\r\n      Result := Items[I];\r\n      Exit;\r\n    end;\r\nend;\r\n\r\nfunction TTMSFNCCalendarEvents.GetItem(\r\n  Index: integer): TTMSFNCCalendarEventItem;\r\nbegin\r\n  Result := TTMSFNCCalendarEventItem(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarEvents.SetItem(Index: integer;\r\n  const Value: TTMSFNCCalendarEventItem);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCCalendarPopupBox }\r\n\r\nprocedure TTMSFNCCalendarPopupBox.Popup(APoint: TPointF);\r\nbegin\r\n  {$IFDEF FMXLIB}\r\n  Position.X := APoint.X;\r\n  DoPopup;\r\n  {$ENDIF}\r\n  {$IFNDEF FMXLIB}\r\n  DoPopup(APoint.X, APoint.Y);\r\n  {$ENDIF}\r\nend;\r\n\r\n{$IFNDEF FMXLIB}\r\nconstructor TTMSFNCCalendarPopupBox.Create(AOwner: TTMSFNCCustomCalendar);\r\nbegin\r\n  inherited Create(AOwner);\r\n  {$IFNDEF WEBLIB}\r\n  FPopup := TPopupMenu.Create(Self);\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  FPopup := TWebPopupMenu.Create(TTMSFNCUtils.GetParentForm(AOwner));\r\n  FPopup.Parent := TTMSFNCUtils.GetParentForm(AOwner);\r\n  {$ENDIF}\r\n  FItems := TStringList.Create;\r\n  FPaintScale := 1;\r\nend;\r\n\r\ndestructor TTMSFNCCalendarPopupBox.Destroy;\r\nbegin\r\n  FPopup.Free;\r\n  FItems.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarPopupBox.DoChange;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCalendarPopupBox.DoMenuItemClick(Sender: TObject);\r\nbegin\r\n  ItemIndex := TMenuItem(Sender).Tag;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarPopupBox.DoPopup(ALeft, ATop: Single);\r\nvar\r\n  mi: TMenuItem;\r\n  I: Integer;\r\nbegin\r\n  FPopup.Items.Clear;\r\n\r\n  for I := 0 to FItems.Count - 1 do\r\n  begin\r\n    mi := TMenuItem.Create(FPopup);\r\n    mi.OnClick := DoMenuItemClick;\r\n    mi.Tag := I;\r\n    mi.Name := 'MenuItem' + FItems[I];\r\n    mi.Caption := FItems[I];\r\n    mi.AutoCheck := True;\r\n    mi.RadioItem := True;\r\n    mi.Checked := i = ItemIndex;\r\n    FPopup.Items.Add(mi);\r\n  end;\r\n\r\n  if (FItems.Count > 0) then\r\n    FPopup.Popup(Round(ALeft), Round(ATop - 15 * FPaintScale));\r\nend;\r\n\r\nprocedure TTMSFNCCalendarPopupBox.SetItemIndex(const Value: Integer);\r\nbegin\r\n  if FItemIndex <> Value then\r\n  begin\r\n    FItemIndex := Value;\r\n    DoChange;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarPopupBox.SetItems(const Value: TStringList);\r\nbegin\r\n  FItems.Assign(Value);\r\nend;\r\nprocedure TTMSFNCCalendarPopupBox.SetPaintScale(AValue: Single);\r\nbegin\r\n  FPaintScale := AValue;\r\nend;\r\n\r\n{$ENDIF}\r\n\r\n{ TTMSFNCCalendarInteractionYearOptions }\r\n\r\nprocedure TTMSFNCCalendarInteractionYearOptions.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTMSFNCCalendarInteractionYearOptions) then\r\n  begin\r\n    FItemsBeforeCurrentYear := (Source as TTMSFNCCalendarInteractionYearOptions).ItemsBeforeCurrentYear;\r\n    FItemsAfterCurrentYear := (Source as TTMSFNCCalendarInteractionYearOptions).ItemsAfterCurrentYear;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nconstructor TTMSFNCCalendarInteractionYearOptions.Create;\r\nbegin\r\n  FItemsBeforeCurrentYear := 5;\r\n  FItemsAfterCurrentYear := 5;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarInteractionYearOptions.SetItemsAfterCurrentYear(\r\n  const Value: Integer);\r\nbegin\r\n  if FItemsAfterCurrentYear <> Value then\r\n  begin\r\n    if Value < 0 then\r\n      FItemsAfterCurrentYear := 0\r\n    else\r\n      FItemsAfterCurrentYear := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCalendarInteractionYearOptions.SetItemsBeforeCurrentYear(\r\n  const Value: Integer);\r\nbegin\r\n  if FItemsBeforeCurrentYear <> Value then\r\n  begin\r\n    if Value < 0 then\r\n      FItemsBeforeCurrentYear := 0\r\n    else\r\n      FItemsBeforeCurrentYear := Value;\r\n  end;\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : https://www.tmssoftware.com                       }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCDatePicker;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF CMNLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, WEBLib.TMSFNCCustomPicker, WEBLib.Controls, WEBLib.TMSFNCCustomSelector,\r\n  WEBLib.TMSFNCGraphics, WEBLib.TMSFNCTypes, WEBLib.StdCtrls, WEBLib.TMSFNCGraphicsTypes,\r\n  WEBLib.TMSFNCCalendar, WEBLib.TMSFNCBitmapContainer, WEBLib.TMSFNCStyles, WEBLib.TMSFNCUtils\r\n  {$IFNDEF LCLLIB}\r\n  ,Types\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Types\r\n  {$ENDIF}\r\n  ,TypInfo\r\n  ;\r\n\r\nconst\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 0; // Minor version nr.\r\n  REL_VER = 3; // Release nr.\r\n  BLD_VER = 0; // Build nr.\r\n\r\n  //Version history\r\n  //v1.0.0.0 : First Release\r\n  //v1.0.1.0 : New : Property AllowNumericNullValue added\r\n  //         : New : Method Clear added\r\n  //         : Fixed : Issue with OnDateSelected event\r\n  //v1.0.1.1 : Fixed : Issue with applying font\r\n  //v1.0.1.2 : Fixed : Issue with control color in disabled state\r\n  //v1.0.1.3 : Fixed : Issue with keyboard date selection\r\n  //v1.0.1.4 : Improved : Exposed Font property\r\n  //v1.0.1.5 : Improved : Date validation\r\n  //         : Improved : Exposed OnValidate event\r\n  //v1.0.1.6 : Fixed : Issue with OnDateSelected event triggering before the component is loaded\r\n  //v1.0.2.0 : New : Support for high dpi\r\n  //v1.0.2.1 : Fixed : Issue with dropdown opening again after date selection in WEB.\r\n  //v1.0.2.2 : Fixed : Issue with Font not applied in Editable mode\r\n  //v1.0.3.0 : New : Added OnBeforeEditExitValidate event\r\n\r\ntype\r\n  TTMSFNCCustomDatePickerDateSelected = procedure(Sender: TObject; ADate: TDate) of object;\r\n  TTMSFNCCustomDatePickerValidateEvent = procedure(Sender: TObject; AEditText: string; var ADate: TDateTime; var ADefault: Boolean) of object;\r\n\r\n  TTMSFNCCustomDatePickerEditExitValidateEvent = procedure(Sender: TObject; var AAllow: Boolean) of object;\r\n\r\n  TTMSFNCDatePickerInteraction = class(TTMSFNCCalendarCustomInteraction)\r\n  published\r\n    property ReadOnlyMode;\r\n    property SwipeOnHeader;\r\n    property KeyboardSupport;\r\n    property NavigationMode;\r\n  end;\r\n\r\n  TTMSFNCCustomDatePicker = class(TTMSFNCDefaultPicker, ITMSFNCBitmapContainer)\r\n  private\r\n    FPrevSelDate: TDate;\r\n    FWrapper: TTMSFNCCustomSelector;\r\n    FDateSelector: TTMSFNCCalendar;\r\n    FOnDateSelected: TTMSFNCCustomDatePickerDateSelected;\r\n    FCloseOnSelection: Boolean;\r\n    FOnCustomize: TNotifyEvent;\r\n    FHeader: TTMSFNCCalendarHeader;\r\n    FInteraction: TTMSFNCDatePickerInteraction;\r\n    FOnAfterDrawBadge: TTMSFNCCalendarAfterDrawBadgeEvent;\r\n    FOnAfterDrawArrowRight: TTMSFNCCalendarAfterDrawArrowRightEvent;\r\n    FOnAfterDrawDayNamesText: TTMSFNCCalendarAfterDrawDayNamesTextEvent;\r\n    FOnAfterDrawWeekNumbersText: TTMSFNCCalendarAfterDrawWeekNumbersTextEvent;\r\n    FOnBeforeDrawHeader: TTMSFNCCalendarBeforeDrawHeaderEvent;\r\n    FOnBeforeDrawDayNumbersText: TTMSFNCCalendarBeforeDrawDayNumbersTextEvent;\r\n    FOnBeforeDrawFooterText: TTMSFNCCalendarBeforeDrawFooterTextEvent;\r\n    FOnBeforeDrawLines: TTMSFNCCalendarBeforeDrawLinesEvent;\r\n    FOnAfterDrawDayNames: TTMSFNCCalendarAfterDrawDayNamesEvent;\r\n    FOnAfterDrawWeekNumbers: TTMSFNCCalendarAfterDrawWeekNumbersEvent;\r\n    FOnAfterDrawHeaderText: TTMSFNCCalendarAfterDrawHeaderTextEvent;\r\n    FOnBeforeDrawArrowLeft: TTMSFNCCalendarBeforeDrawArrowLeftEvent;\r\n    FOnBeforeDrawDayNumbers: TTMSFNCCalendarBeforeDrawDayNumbersEvent;\r\n    FOnBeforeDrawFooter: TTMSFNCCalendarBeforeDrawFooterEvent;\r\n    FOnBeforeDrawBadge: TTMSFNCCalendarBeforeDrawBadgeEvent;\r\n    FOnAfterDrawHeader: TTMSFNCCalendarAfterDrawHeaderEvent;\r\n    FOnBeforeDrawArrowRight: TTMSFNCCalendarBeforeDrawArrowRightEvent;\r\n    FOnAfterDrawDayNumbersText: TTMSFNCCalendarAfterDrawDayNumbersTextEvent;\r\n    FOnBeforeDrawDayNamesText: TTMSFNCCalendarBeforeDrawDayNamesTextEvent;\r\n    FOnBeforeDrawWeekNumbersText: TTMSFNCCalendarBeforeDrawWeekNumbersTextEvent;\r\n    FOnAfterDrawFooterText: TTMSFNCCalendarAfterDrawFooterTextEvent;\r\n    FOnAfterDrawLines: TTMSFNCCalendarAfterDrawLinesEvent;\r\n    FOnAfterDrawArrowLeft: TTMSFNCCalendarAfterDrawArrowLeftEvent;\r\n    FOnAfterDrawDayNumbers: TTMSFNCCalendarAfterDrawDayNumbersEvent;\r\n    FOnBeforeDrawDayNames: TTMSFNCCalendarBeforeDrawDayNamesEvent;\r\n    FOnBeforeDrawWeekNumbers: TTMSFNCCalendarBeforeDrawWeekNumbersEvent;\r\n    FOnAfterDrawFooter: TTMSFNCCalendarAfterDrawFooterEvent;\r\n    FOnBeforeDrawHeaderText: TTMSFNCCalendarBeforeDrawHeaderTextEvent;\r\n    FOnYearChanged: TTMSFNCCalendarYearChangedEvent;\r\n    FOnCustomArrowDraw: TTMSFNCCalendarCustomArrowDrawEvent;\r\n    FOnMonthChanged: TTMSFNCCalendarMonthChangedEvent;\r\n    FOnSelectMultiDate: TTMSFNCCalendarSelectedMultiDateEvent;\r\n    FOnBeforeSelectDate: TTMSFNCCalendarBeforeSelectDateEvent;\r\n    FOnCustomNavigation: TTMSFNCCalendarCustomNavigationEvent;\r\n    FAllowNumericNullValue: Boolean;\r\n    FFont: TTMSFNCGraphicsFont;\r\n    FOnValidate: TTMSFNCCustomDatePickerValidateEvent;\r\n    FOnBeforeEditExitValidate: TTMSFNCCustomDatePickerEditExitValidateEvent;\r\n    procedure SetSelectedDate(const Value: TDate);\r\n    procedure SetEvents(const Value: TTMSFNCCalendarEvents);\r\n    procedure SetWeekNumberAppearance(const Value: TTMSFNCCalendarWeekNumberAppearance);\r\n    procedure SetDateAppearance(const Value: TTMSFNCCalendarDateAppearance);\r\n    procedure SetDayNameAppearance(const Value: TTMSFNCCalendarDayNameAppearance);\r\n    procedure SetLineAppearance(const Value: TTMSFNCCalendarLineAppearance);\r\n    procedure SetInteraction(const Value: TTMSFNCDatePickerInteraction);\r\n    procedure SetMaxDate(const Value: TDate);\r\n    procedure SetMinDate(const Value: TDate);\r\n    procedure SetFirstDay(const Value: Integer);\r\n    procedure SetHeader(const Value: TTMSFNCCalendarHeader);\r\n    procedure SetFooter(const Value: TTMSFNCCalendarFooter);\r\n    procedure SetCalendarFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetCalendarStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetBitmapContainer(const Value: TTMSFNCBitmapContainer);\r\n    procedure SetBadgeSize(const Value: Integer);\r\n    procedure SetDay(const Value: Integer);\r\n    procedure SetMonth(const Value: Integer);\r\n    procedure SetYear(const Value: Integer);\r\n    procedure SetAllowNumericNullValue(const Value: Boolean);\r\n    function GetSelectedDate: TDate;\r\n    function GetEvents: TTMSFNCCalendarEvents;\r\n    function GetWeekNumberAppearance: TTMSFNCCalendarWeekNumberAppearance;\r\n    function GetDateAppearance: TTMSFNCCalendarDateAppearance;\r\n    function GetDayNameAppearance: TTMSFNCCalendarDayNameAppearance;\r\n    function GetLineAppearance: TTMSFNCCalendarLineAppearance;\r\n    function GetMaxDate: TDate;\r\n    function GetMinDate: TDate;\r\n    function GetFirstDay: Integer;\r\n    function GetFooter: TTMSFNCCalendarFooter;\r\n    function GetCalendarFill: TTMSFNCGraphicsFill;\r\n    function GetCalendarStroke: TTMSFNCGraphicsStroke;\r\n    function GetBitmapContainer: TTMSFNCBitmapContainer;\r\n    function GetBadgeSize: Integer;\r\n    function GetDay: Integer;\r\n    function GetMonth: Integer;\r\n    function GetYear: Integer;\r\n    procedure SetFnt(const Value: TTMSFNCGraphicsFont);\r\n  protected\r\n    procedure ChangeDPIScale(M, D: Integer); override;\r\n    procedure DoDateSelected; virtual;\r\n    procedure DoValidate; virtual;\r\n    procedure DoEditExit(Sender: TObject); override;\r\n    procedure Loaded; override;\r\n    procedure FontChange(Sender: TObject);\r\n    procedure InitializePopup; override;\r\n    procedure ApplyStyle; override;\r\n    procedure ResetToDefaultStyle; override;\r\n    procedure SetAdaptToStyle(const Value: Boolean); override;\r\n    procedure DrawContent(AGraphics: TTMSFNCGraphics; ARect: TRectF); override;\r\n    procedure SelectFirstValue; override;\r\n    procedure SelectLastValue; override;\r\n    procedure SelectNextValue; override;\r\n    procedure SelectPreviousValue; override;\r\n    procedure EditUp; override;\r\n    procedure EditDown; override;\r\n    procedure HandleKeyDown(var Key: Word; Shift: TShiftState); override;\r\n    procedure SetEditable(const Value: Boolean); override;\r\n    procedure UpdateEditText(AText: string); override;\r\n    procedure DateSelected(Sender: TObject; ADate: TDate); virtual;\r\n    procedure DoBeforeDrawHeader(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawHeader(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF); virtual;\r\n    procedure DoBeforeDrawHeaderText(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawHeaderText(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign); virtual;\r\n    procedure DoBeforeDrawFooter(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawFooter(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF); virtual;\r\n    procedure DoBeforeDrawFooterText(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawFooterText(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign); virtual;\r\n    procedure DoBeforeDrawDayNames(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawDayNames(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF); virtual;\r\n    procedure DoBeforeDrawDayNamesText(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawDayNamesText(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign); virtual;\r\n    procedure DoBeforeDrawDayNumbers(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TrectF; ADate: TDate; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawDayNumbers(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; ADate: TDate); virtual;\r\n    procedure DoBeforeDrawDayNumbersText(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawDayNumbersText(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TrectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign); virtual;\r\n    procedure DoBeforeDrawLines(Sender: TObject; AGraphics: TTMSFNCGraphics; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawLines(Sender: TObject; AGraphics: TTMSFNCGraphics); virtual;\r\n    procedure DoBeforeDrawWeekNumbers(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawWeekNumbers(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF); virtual;\r\n    procedure DoBeforeDrawWeekNumbersText(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawWeekNumbersText(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TrectF; AText: string; AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign); virtual;\r\n    procedure DoBeforeDrawBadge(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; ABadge: TTMSFNCCalendarEventItem; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawBadge(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; ABadge: TTMSFNCCalendarEventItem); virtual;\r\n    procedure DoBeforeDrawArrowLeft(Sender: TObject; AGraphics: TTMSFNCGraphics; AArrowRect: TRectF; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawArrowLeft(Sender: TObject; AGraphics: TTMSFNCGraphics; AArrowRect: TRectF); virtual;\r\n    procedure DoBeforeDrawArrowRight(Sender: TObject; AGraphics: TTMSFNCGraphics; AArrowRect: TRectF; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawArrowRight(Sender: TObject; AGraphics: TTMSFNCGraphics; AArrowRect: TRectF); virtual;\r\n    procedure DoBeforeSelectDate(Sender: TObject; ADate: TDate); virtual;\r\n    procedure DoSelectMultiDate(Sender: TObject; AStartDate: TDate; AEndDate: TDate); virtual;\r\n    procedure DoChangeYear(Sender: TObject; AYear: Integer); virtual;\r\n    procedure DoChangeMonth(Sender: TObject; AMonth: Integer); virtual;\r\n    procedure DoCustomNavigation(Sender: TObject; ADate: TDate; AFocusedDate: TDate; ADirection: Boolean); virtual;\r\n    procedure DoCustomArrowDraw(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; ADirection: Boolean); virtual;\r\n    procedure DoBeforeEditExitValidate(var AAllow: Boolean); virtual;\r\n    function IsAppearanceProperty({%H-}AObject: TObject; {%H-}APropertyName: string; {%H-}APropertyType: TTypeKind): Boolean; override;\r\n    function GetVersion: string; override;\r\n    function CreateSelector: TTMSFNCCustomSelector; override;\r\n    function GetFocusedControl: TControl; override;\r\n    property AllowNumericNullValue: Boolean read FAllowNumericNullValue write SetAllowNumericNullValue default True;\r\n    property CloseOnSelection: Boolean read FCloseOnSelection write FCloseOnSelection default True;\r\n    property OnDateSelected: TTMSFNCCustomDatePickerDateSelected read FOnDateSelected write FOnDateSelected;\r\n    property SelectedDate: TDate read GetSelectedDate write SetSelectedDate;\r\n    property OnCustomize: TNotifyEvent read FOnCustomize write FOnCustomize;\r\n    property WeekNumberAppearance: TTMSFNCCalendarWeekNumberAppearance read GetWeekNumberAppearance write SetWeekNumberAppearance;\r\n    property DayNameAppearance: TTMSFNCCalendarDayNameAppearance read GetDayNameAppearance write SetDayNameAppearance;\r\n    property DateAppearance: TTMSFNCCalendarDateAppearance read GetDateAppearance write SetDateAppearance;\r\n    property LineAppearance: TTMSFNCCalendarLineAppearance read GetLineAppearance write SetLineAppearance;\r\n    property Interaction: TTMSFNCDatePickerInteraction read FInteraction write SetInteraction;\r\n    property CalendarFill: TTMSFNCGraphicsFill read GetCalendarFill write SetCalendarFill;\r\n    property CalendarStroke: TTMSFNCGraphicsStroke read GetCalendarStroke write SetCalendarStroke;\r\n    property Events: TTMSFNCCalendarEvents read GetEvents write SetEvents;\r\n    property BadgeSize: Integer read GetBadgeSize write SetBadgeSize;\r\n    property FirstDay: Integer read GetFirstDay write SetFirstDay;\r\n    property Header: TTMSFNCCalendarHeader read FHeader write SetHeader;\r\n    property Footer: TTMSFNCCalendarFooter read GetFooter write SetFooter;\r\n    property MaxDate: TDate read GetMaxDate write SetMaxDate;\r\n    property MinDate: TDate read GetMinDate write SetMinDate;\r\n    property Font: TTMSFNCGraphicsFont read FFont write SetFnt;\r\n    property BitmapContainer: TTMSFNCBitmapContainer read GetBitmapContainer write SetBitmapContainer;\r\n    property OnBeforeDrawHeader: TTMSFNCCalendarBeforeDrawHeaderEvent read FOnBeforeDrawHeader write FOnBeforeDrawHeader;\r\n    property OnAfterDrawHeader: TTMSFNCCalendarAfterDrawHeaderEvent read FOnAfterDrawHeader write FOnAfterDrawHeader;\r\n    property OnBeforeDrawHeaderText: TTMSFNCCalendarBeforeDrawHeaderTextEvent read FOnBeforeDrawHeaderText write FOnBeforeDrawHeaderText;\r\n    property OnAfterDrawHeaderText: TTMSFNCCalendarAfterDrawHeaderTextEvent read FOnAfterDrawHeaderText write FOnAfterDrawHeaderText;\r\n    property OnBeforeDrawFooter: TTMSFNCCalendarBeforeDrawFooterEvent read FOnBeforeDrawFooter write FOnBeforeDrawFooter;\r\n    property OnAfterDrawFooter: TTMSFNCCalendarAfterDrawFooterEvent read FOnAfterDrawFooter write FOnAfterDrawFooter;\r\n    property OnBeforeDrawFooterText: TTMSFNCCalendarBeforeDrawFooterTextEvent read FOnBeforeDrawFooterText write FOnBeforeDrawFooterText;\r\n    property OnAfterDrawFooterText: TTMSFNCCalendarAfterDrawFooterTextEvent read FOnAfterDrawFooterText write FOnAfterDrawFooterText;\r\n    property OnBeforeDrawDayNames: TTMSFNCCalendarBeforeDrawDayNamesEvent read FOnBeforeDrawDayNames write FOnBeforeDrawDayNames;\r\n    property OnAfterDrawDayNames: TTMSFNCCalendarAfterDrawDayNamesEvent read FOnAfterDrawDayNames write FOnAfterDrawDayNames;\r\n    property OnBeforeDrawDayNamesText: TTMSFNCCalendarBeforeDrawDayNamesTextEvent read FOnBeforeDrawDayNamesText write FOnBeforeDrawDayNamesText;\r\n    property OnAfterDrawDayNamesText: TTMSFNCCalendarAfterDrawDayNamesTextEvent read FOnAfterDrawDayNamesText write FOnAfterDrawDayNamesText;\r\n    property OnBeforeDrawDayNumbers: TTMSFNCCalendarBeforeDrawDayNumbersEvent read FOnBeforeDrawDayNumbers write FOnBeforeDrawDayNumbers;\r\n    property OnAfterDrawDayNumbers: TTMSFNCCalendarAfterDrawDayNumbersEvent read FOnAfterDrawDayNumbers write FOnAfterDrawDayNumbers;\r\n    property OnBeforeDrawDayNumbersText: TTMSFNCCalendarBeforeDrawDayNumbersTextEvent read FOnBeforeDrawDayNumbersText write FOnBeforeDrawDayNumbersText;\r\n    property OnAfterDrawDayNumbersText: TTMSFNCCalendarAfterDrawDayNumbersTextEvent read FOnAfterDrawDayNumbersText write FOnAfterDrawDayNumbersText;\r\n    property OnBeforeDrawLines: TTMSFNCCalendarBeforeDrawLinesEvent read FOnBeforeDrawLines write FOnBeforeDrawLines;\r\n    property OnAfterDrawLines: TTMSFNCCalendarAfterDrawLinesEvent read FOnAfterDrawLines write FOnAfterDrawLines;\r\n    property OnBeforeDrawWeekNumbers: TTMSFNCCalendarBeforeDrawWeekNumbersEvent read FOnBeforeDrawWeekNumbers write FOnBeforeDrawWeekNumbers;\r\n    property OnAfterDrawWeekNumbers: TTMSFNCCalendarAfterDrawWeekNumbersEvent read FOnAfterDrawWeekNumbers write FOnAfterDrawWeekNumbers;\r\n    property OnBeforeDrawWeekNumbersText: TTMSFNCCalendarBeforeDrawWeekNumbersTextEvent read FOnBeforeDrawWeekNumbersText write FOnBeforeDrawWeekNumbersText;\r\n    property OnAfterDrawWeekNumbersText: TTMSFNCCalendarAfterDrawWeekNumbersTextEvent read FOnAfterDrawWeekNumbersText write FOnAfterDrawWeekNumbersText;\r\n    property OnBeforeDrawBadge: TTMSFNCCalendarBeforeDrawBadgeEvent read FOnBeforeDrawBadge write FOnBeforeDrawBadge;\r\n    property OnAfterDrawBadge: TTMSFNCCalendarAfterDrawBadgeEvent read FOnAfterDrawBadge write FOnAfterDrawBadge;\r\n    property OnBeforeDrawArrowLeft: TTMSFNCCalendarBeforeDrawArrowLeftEvent read FOnBeforeDrawArrowLeft write FOnBeforeDrawArrowLeft;\r\n    property OnAfterDrawArrowLeft: TTMSFNCCalendarAfterDrawArrowLeftEvent read FOnAfterDrawArrowLeft write FOnAfterDrawArrowLeft;\r\n    property OnBeforeDrawArrowRight: TTMSFNCCalendarBeforeDrawArrowRightEvent read FOnBeforeDrawArrowRight write FOnBeforeDrawArrowRight;\r\n    property OnAfterDrawArrowRight: TTMSFNCCalendarAfterDrawArrowRightEvent read FOnAfterDrawArrowRight write FOnAfterDrawArrowRight;\r\n    property OnBeforeSelectDate: TTMSFNCCalendarBeforeSelectDateEvent read FOnBeforeSelectDate write FOnBeforeSelectDate;\r\n    property OnSelectMultiDate: TTMSFNCCalendarSelectedMultiDateEvent read FOnSelectMultiDate write FOnSelectMultiDate;\r\n    property OnYearChanged: TTMSFNCCalendarYearChangedEvent read FOnYearChanged write FOnYearChanged;\r\n    property OnMonthChanged: TTMSFNCCalendarMonthChangedEvent read FOnMonthChanged write FOnMonthChanged;\r\n    property OnCustomNavigation: TTMSFNCCalendarCustomNavigationEvent read FOnCustomNavigation write FOnCustomNavigation;\r\n    property OnCustomArrowDraw: TTMSFNCCalendarCustomArrowDrawEvent read FOnCustomArrowDraw write FOnCustomArrowDraw;\r\n    property OnValidate: TTMSFNCCustomDatePickerValidateEvent read FOnValidate write FOnValidate;\r\n    property OnBeforeEditExitValidate: TTMSFNCCustomDatePickerEditExitValidateEvent read FOnBeforeEditExitValidate write FOnBeforeEditExitValidate;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure Clear;\r\n    property Day: Integer read GetDay write SetDay;\r\n    property Month: Integer read GetMonth write SetMonth;\r\n    property Year: Integer read GetYear write SetYear;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCDatePicker = class(TTMSFNCCustomDatePicker)\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n  published\r\n    property AllowNumericNullValue;\r\n    property BitmapContainer;\r\n    property Editable;\r\n    property FirstDay;\r\n    property MaxDate;\r\n    property MinDate;\r\n    property Events;\r\n    property BadgeSize;\r\n    property Header;\r\n    property Footer;\r\n    property Font;\r\n    property Interaction;\r\n    property DropDownWidth;\r\n    property DropDownHeight;\r\n    property CloseOnSelection;\r\n    property OnDateSelected;\r\n    property SelectedDate;\r\n    property WeekNumberAppearance;\r\n    property DateAppearance;\r\n    property DayNameAppearance;\r\n    property LineAppearance;\r\n    property CalendarFill;\r\n    property CalendarStroke;\r\n    property OnCustomize;\r\n    property OnBeforeDrawHeader;\r\n    property OnAfterDrawHeader;\r\n    property OnBeforeDrawFooter;\r\n    property OnAfterDrawFooter;\r\n    property OnBeforeDrawDayNames;\r\n    property OnAfterDrawDayNames;\r\n    property OnBeforeDrawDayNumbers;\r\n    property OnAfterDrawDayNumbers;\r\n    property OnBeforeDrawLines;\r\n    property OnAfterDrawLines;\r\n    property OnBeforeDrawWeekNumbers;\r\n    property OnAfterDrawWeekNumbers;\r\n    property OnBeforeDrawArrowLeft;\r\n    property OnAfterDrawArrowLeft;\r\n    property OnBeforeDrawArrowRight;\r\n    property OnAfterDrawArrowRight;\r\n    property OnBeforeDrawBadge;\r\n    property OnAfterDrawBadge;\r\n    property OnBeforeDrawHeaderText;\r\n    property OnAfterDrawHeaderText;\r\n    property OnBeforeDrawFooterText;\r\n    property OnAfterDrawFooterText;\r\n    property OnBeforeDrawDayNamesText;\r\n    property OnAfterDrawDayNamesText;\r\n    property OnBeforeDrawDayNumbersText;\r\n    property OnAfterDrawDayNumbersText;\r\n    property OnBeforeDrawWeekNumbersText;\r\n    property OnAfterDrawWeekNumbersText;\r\n    property OnBeforeSelectDate;\r\n    property OnSelectMultiDate;\r\n    property OnYearChanged;\r\n    property OnMonthChanged;\r\n    property OnCustomNavigation;\r\n    property OnCustomArrowDraw;\r\n    property OnValidate;\r\n    property OnBeforeEditExitValidate;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  DateUtils, SysUtils\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Edit\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  , VCL.Graphics\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TCustomEditProtected = class(TCustomEdit);\r\n  TTMSFNCCustomSelectorOpen = class(TTMSFNCCustomSelector);\r\n\r\n{ TTMSFNCCustomDatePicker }\r\n\r\nprocedure TTMSFNCCustomDatePicker.ApplyStyle;\r\nvar\r\n  c: TTMSFNCGraphicsColor;\r\nbegin\r\n  inherited;\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleHeaderFillColor(c) then\r\n    FHeader.Fill.Color := c;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleHeaderFillColorTo(c) then\r\n  begin\r\n    FHeader.Fill.Kind := gfkGradient;\r\n    FHeader.Fill.ColorTo := c;\r\n  end;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleLineFillColor(c) then\r\n  begin\r\n    Header.Stroke.Color := c;\r\n    Header.Arrow.Color := c;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.ChangeDPIScale(M, D: Integer);\r\nbegin\r\n  inherited;\r\n  BeginUpdate;\r\n\r\n  Font.Height := TTMSFNCUtils.MulDivInt(FFont.Height, M, D);\r\n  Header.Font.Height := TTMSFNCUtils.MulDivInt(Header.Font.Height, M, D);\r\n  Header.Height := TTMSFNCUtils.MulDivInt(Header.Height, M, D);\r\n  {$IFDEF CMNLIB}\r\n  Edit.Font.Height := FFont.Height;\r\n  {$ENDIF}\r\n\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.Clear;\r\nbegin\r\n  SelectedDate := 0;\r\n  Invalidate;\r\nend;\r\n\r\nconstructor TTMSFNCCustomDatePicker.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  SelectedDate := Int(Now);\r\n  FHeader := TTMSFNCCalendarHeader.Create(Self);\r\n  FInteraction := TTMSFNCDatePickerInteraction.Create;\r\n  FCloseOnSelection := True;\r\n  FAllowNumericNullValue := True;\r\n  FFont := TTMSFNCGraphicsFont.Create;\r\n  FFont.OnChanged := @FontChange;\r\n  Width := 90;\r\n  DropDownWidth := 200;\r\n  DropDownHeight := 180;\r\n  {$IFDEF FMXLIB}\r\n  Edit.StyledSettings := TCustomEditProtected(Edit).StyledSettings - [TStyledSetting.Family, TStyledSetting.Size, TStyledSetting.Style];\r\n  {$IFDEF ANDROID}\r\n  Edit.TextSettings.VertAlign := TTextAlign.Leading;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF CMNLIB}\r\n  Edit.Font.Height := FFont.Height;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCCustomDatePicker.CreateSelector: TTMSFNCCustomSelector;\r\nbegin\r\n  FWrapper := TTMSFNCCustomSelector.Create(Self);\r\n  FDateSelector := TTMSFNCCalendar.Create(FWrapper);\r\n  FDateSelector.Parent := FWrapper;\r\n\r\n  FDateSelector.OnSelectDate := DateSelected;\r\n  FDateSelector.OnBeforeDrawHeader := DoBeforeDrawHeader;\r\n  FDateSelector.OnAfterDrawHeader := DoAfterDrawHeader;\r\n  FDateSelector.OnBeforeDrawFooter := DoBeforeDrawFooter;\r\n  FDateSelector.OnAfterDrawFooter := DoAfterDrawFooter;\r\n  FDateSelector.OnBeforeDrawDayNames := DoBeforeDrawDayNames;\r\n  FDateSelector.OnAfterDrawDayNames := DoAfterDrawDayNames;\r\n  FDateSelector.OnBeforeDrawDayNumbers := DoBeforeDrawDayNumbers;\r\n  FDateSelector.OnAfterDrawDayNumbers := DoAfterDrawDayNumbers;\r\n  FDateSelector.OnBeforeDrawLines := DoBeforeDrawLines;\r\n  FDateSelector.OnAfterDrawLines := DoAfterDrawLines;\r\n  FDateSelector.OnBeforeDrawWeekNumbers := DoBeforeDrawWeekNumbers;\r\n  FDateSelector.OnAfterDrawWeekNumbers := DoAfterDrawWeekNumbers;\r\n  FDateSelector.OnBeforeDrawArrowLeft := DoBeforeDrawArrowLeft;\r\n  FDateSelector.OnAfterDrawArrowLeft := DoAfterDrawArrowLeft;\r\n  FDateSelector.OnBeforeDrawArrowRight := DoBeforeDrawArrowRight;\r\n  FDateSelector.OnAfterDrawArrowRight := DoAfterDrawArrowRight;\r\n  FDateSelector.OnBeforeDrawBadge := DoBeforeDrawBadge;\r\n  FDateSelector.OnAfterDrawBadge := DoAfterDrawBadge;\r\n  FDateSelector.OnBeforeDrawHeaderText := DoBeforeDrawHeaderText;\r\n  FDateSelector.OnAfterDrawHeaderText := DoAfterDrawHeaderText;\r\n  FDateSelector.OnBeforeDrawFooterText := DoBeforeDrawFooterText;\r\n  FDateSelector.OnAfterDrawFooterText := DoAfterDrawFooterText;\r\n  FDateSelector.OnBeforeDrawDayNamesText := DoBeforeDrawDayNamesText;\r\n  FDateSelector.OnAfterDrawDayNamesText := DoAfterDrawDayNamesText;\r\n  FDateSelector.OnBeforeDrawDayNumbersText := DoBeforeDrawDayNumbersText;\r\n  FDateSelector.OnAfterDrawDayNumbersText := DoAfterDrawDayNumbersText;\r\n  FDateSelector.OnBeforeDrawWeekNumbersText := DoBeforeDrawWeekNumbersText;\r\n  FDateSelector.OnAfterDrawWeekNumbersText := DoAfterDrawWeekNumbersText;\r\n  FDateSelector.OnBeforeSelectDate := DoBeforeSelectDate;\r\n  FDateSelector.OnSelectMultiDate := DoSelectMultiDate;\r\n  FDateSelector.OnYearChanged := DoChangeYear;\r\n  FDateSelector.OnMonthChanged := DoChangeMonth;\r\n  FDateSelector.OnCustomNavigation := DoCustomNavigation;\r\n  FDateSelector.OnCustomArrowDraw := DoCustomArrowDraw;\r\n\r\n  Result := FWrapper;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DateSelected(Sender: TObject; ADate: TDate);\r\nbegin\r\n  if Editable and Edit.IsFocused then\r\n    PreventDropDown := True;\r\n\r\n  if CloseOnSelection then\r\n    DropDown;\r\n\r\n  SelectedDate := FDateSelector.SelectedDate;\r\n\r\n  DoDateSelected;\r\nend;\r\n\r\ndestructor TTMSFNCCustomDatePicker.Destroy;\r\nbegin\r\n  FFont.Free;\r\n  FHeader.Free;\r\n  FInteraction.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoAfterDrawArrowLeft(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; AArrowRect: TRectF);\r\nbegin\r\n  if Assigned(OnAfterDrawArrowLeft) then\r\n    OnAfterDrawArrowLeft(Self, AGraphics, AArrowRect);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoAfterDrawArrowRight(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; AArrowRect: TRectF);\r\nbegin\r\n  if Assigned(OnAfterDrawArrowRight) then\r\n    OnAfterDrawArrowRight(Self, AGraphics, AArrowRect);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoAfterDrawBadge(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; ABadge: TTMSFNCCalendarEventItem);\r\nbegin\r\n  if Assigned(OnAfterDrawBadge) then\r\n    OnAfterDrawBadge(Self, AGraphics, ARect, ABadge);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoAfterDrawDayNames(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nbegin\r\n  if Assigned(OnAfterDrawDayNames) then\r\n    OnAfterDrawDayNames(Self, AGraphics, ARect);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoAfterDrawDayNamesText(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string;\r\n  AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if Assigned(OnAfterDrawDayNamesText) then\r\n    OnAfterDrawDayNamesText(Self, AGraphics, ARect, AText, AHorizontalTextAlign, AVerticalTextAlign);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoAfterDrawDayNumbers(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; ADate: TDate);\r\nbegin\r\n  if Assigned(OnAfterDrawDayNumbers) then\r\n    OnAfterDrawDayNumbers(Self, AGraphics, ARect, ADate);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoAfterDrawDayNumbersText(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TrectF; AText: string;\r\n  AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if Assigned(OnAfterDrawDayNumbersText) then\r\n    OnAfterDrawDayNumbersText(Self, AGraphics, ARect, AText, AHorizontalTextAlign, AVerticalTextAlign);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoAfterDrawFooter(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nbegin\r\n  if Assigned(OnAfterDrawFooter) then\r\n    OnAfterDrawFooter(Self, AGraphics, ARect);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoAfterDrawFooterText(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string;\r\n  AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if Assigned(OnAfterDrawFooterText) then\r\n    OnAfterDrawFooterText(Self, AGraphics, ARect, AText, AHorizontalTextAlign, AVerticalTextAlign);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoAfterDrawHeader(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nbegin\r\n  if Assigned(OnAfterDrawHeader) then\r\n    OnAfterDrawHeader(Self, AGraphics, ARect);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoAfterDrawHeaderText(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string;\r\n  AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if Assigned(OnAfterDrawHeaderText) then\r\n    OnAfterDrawHeaderText(Self, AGraphics, ARect, AText, AHorizontalTextAlign, AVerticalTextAlign);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoAfterDrawLines(Sender: TObject;  AGraphics: TTMSFNCGraphics);\r\nbegin\r\n  if Assigned(OnAfterDrawLines) then\r\n    OnAfterDrawLines(Self, AGraphics);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoAfterDrawWeekNumbers(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF);\r\nbegin\r\n  if Assigned(OnAfterDrawWeekNumbers) then\r\n    OnAfterDrawWeekNumbers(Self, AGraphics, ARect);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoAfterDrawWeekNumbersText(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TrectF; AText: string;\r\n  AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign);\r\nbegin\r\n  if Assigned(OnAfterDrawWeekNumbersText) then\r\n    OnAfterDrawWeekNumbersText(Self, AGraphics, ARect, AText, AHorizontalTextAlign, AVerticalTextAlign);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoBeforeDrawArrowLeft(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; AArrowRect: TRectF; var AAllow,\r\n  ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawArrowLeft) then\r\n    OnBeforeDrawArrowLeft(Self, AGraphics, AArrowRect, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoBeforeDrawArrowRight(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; AArrowRect: TRectF; var AAllow,\r\n  ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawArrowRight) then\r\n    OnBeforeDrawArrowRight(Self, AGraphics, AArrowRect, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoBeforeDrawBadge(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; ABadge: TTMSFNCCalendarEventItem;\r\n  var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawBadge) then\r\n    OnBeforeDrawBadge(Self, AGraphics, ARect, ABadge, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoBeforeDrawDayNames(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawDayNames) then\r\n    OnBeforeDrawDayNames(Self, AGraphics, ARect, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoBeforeDrawDayNamesText(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string;\r\n  AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n  var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawDayNamesText) then\r\n    OnBeforeDrawDayNamesText(Self, AGraphics, ARect, AText, AHorizontalTextAlign, AVerticalTextAlign, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoBeforeDrawDayNumbers(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TrectF; ADate: TDate; var AAllow,\r\n  ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawDayNumbers) then\r\n    OnBeforeDrawDayNumbers(Self, AGraphics, ARect, ADate, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoBeforeDrawDayNumbersText(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string;\r\n  AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n  var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawDayNumbersText) then\r\n    OnBeforeDrawDayNumbersText(Self, AGraphics, ARect, AText, AHorizontalTextAlign, AVerticalTextAlign, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoBeforeDrawFooter(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawFooter) then\r\n    OnBeforeDrawFooter(Self, AGraphics, ARect, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoBeforeDrawFooterText(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string;\r\n  AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n  var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawFooterText) then\r\n    OnBeforeDrawFooterText(Self, AGraphics, ARect, AText, AHorizontalTextAlign, AVerticalTextAlign, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoBeforeDrawHeader(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawHeader) then\r\n    OnBeforeDrawHeader(Self, AGraphics, ARect, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoBeforeDrawHeaderText(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string;\r\n  AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n  var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawHeaderText) then\r\n    OnBeforeDrawHeaderText(Self, AGraphics, ARect, AText, AHorizontalTextAlign, AVerticalTextAlign, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoBeforeDrawLines(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawLines) then\r\n    OnBeforeDrawLines(Self, AGraphics, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoBeforeDrawWeekNumbers(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawWeekNumbers) then\r\n    OnBeforeDrawWeekNumbers(Self, AGraphics, ARect, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoBeforeDrawWeekNumbersText(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AText: string;\r\n  AHorizontalTextAlign, AVerticalTextAlign: TTMSFNCGraphicsTextAlign;\r\n  var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawWeekNumbersText) then\r\n    OnBeforeDrawWeekNumbersText(Self, AGraphics, ARect, AText, AHorizontalTextAlign, AVerticalTextAlign, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoBeforeEditExitValidate(var AAllow: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeEditExitValidate) then\r\n    OnBeforeEditExitValidate(Self, AAllow);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoBeforeSelectDate(Sender: TObject;\r\n  ADate: TDate);\r\nbegin\r\n  if Assigned(OnBeforeSelectDate) then\r\n    OnBeforeSelectDate(Self, ADate);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoChangeMonth(Sender: TObject;\r\n  AMonth: Integer);\r\nbegin\r\n  if Assigned(OnMonthChanged) then\r\n    OnMonthChanged(Self, AMonth);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoChangeYear(Sender: TObject; AYear: Integer);\r\nbegin\r\n  if Assigned(OnYearChanged) then\r\n    OnYearChanged(Self, AYear);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoCustomArrowDraw(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; ADirection: Boolean);\r\nbegin\r\n  if Assigned(OnCustomArrowDraw) then\r\n    OnCustomArrowDraw(Self, AGraphics, ARect, ADirection);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoCustomNavigation(Sender: TObject; ADate,\r\n  AFocusedDate: TDate; ADirection: Boolean);\r\nbegin\r\n  if Assigned(OnCustomNavigation) then\r\n    OnCustomNavigation(Self, ADate, AFocusedDate, ADirection);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoDateSelected;\r\nbegin\r\n  if csLoading in ComponentState then\r\n    Exit;\r\n\r\n  if Assigned(OnDateSelected) then\r\n    OnDateSelected(Self, SelectedDate);\r\n\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoEditExit(Sender: TObject);\r\nvar\r\n  a: Boolean;\r\nbegin\r\n  a := True;\r\n  DoBeforeEditExitValidate(a);\r\n  if a then\r\n    DoValidate;\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoSelectMultiDate(Sender: TObject; AStartDate,\r\n  AEndDate: TDate);\r\nbegin\r\n  if Assigned(OnSelectMultiDate) then\r\n    OnSelectMultiDate(Self, AStartDate, AEndDate);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DoValidate;\r\nvar\r\n  d: TDateTime;\r\n  df: Boolean;\r\nbegin\r\n  df := True;\r\n  d := SelectedDate;\r\n  if Assigned(OnValidate) then\r\n    OnValidate(Self, Edit.Text, d, df);\r\n\r\n  if df then\r\n  begin\r\n    if TryStrToDate(Edit.Text, d) then\r\n      SelectedDate := Int(d)\r\n    else\r\n      SelectedDate := Int(Now);\r\n  end\r\n  else\r\n    SelectedDate := Int(d);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.DrawContent(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF);\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  inherited;\r\n  if not Editable then\r\n  begin\r\n    AGraphics.Font.AssignSource(Font);\r\n\r\n    if not Enabled then\r\n      AGraphics.Font.Color := gcSilver;\r\n\r\n    r := ARect;\r\n    InflateRectEx(r, -3, -3);\r\n    AGraphics.DrawText(r, Content);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.EditDown;\r\nbegin\r\n  inherited;\r\n  if not Popup.IsOpen then\r\n    DropDown;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.EditUp;\r\nbegin\r\n  inherited;\r\n  if Popup.IsOpen then\r\n    DropDown;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.FontChange(Sender: TObject);\r\nbegin\r\n  if Assigned(Edit) then\r\n    Edit.Font.Assign(FFont);\r\n\r\n  Invalidate;\r\nend;\r\n\r\nfunction TTMSFNCCustomDatePicker.GetBadgeSize: Integer;\r\nbegin\r\n  Result := FDateSelector.BadgeSize;\r\nend;\r\n\r\nfunction TTMSFNCCustomDatePicker.GetBitmapContainer: TTMSFNCBitmapContainer;\r\nbegin\r\n  Result := FDateSelector.BitmapContainer;\r\nend;\r\n\r\nfunction TTMSFNCCustomDatePicker.GetCalendarFill: TTMSFNCGraphicsFill;\r\nbegin\r\n  Result := FDateSelector.Fill;\r\nend;\r\n\r\nfunction TTMSFNCCustomDatePicker.GetCalendarStroke: TTMSFNCGraphicsStroke;\r\nbegin\r\n  Result := FDateSelector.Stroke;\r\nend;\r\n\r\nfunction TTMSFNCCustomDatePicker.GetDateAppearance: TTMSFNCCalendarDateAppearance;\r\nbegin\r\n  Result := FDateSelector.DateAppearance;\r\nend;\r\n\r\nfunction TTMSFNCCustomDatePicker.GetDay: Integer;\r\nbegin\r\n  Result := FDateSelector.Day;\r\nend;\r\n\r\nfunction TTMSFNCCustomDatePicker.GetDayNameAppearance: TTMSFNCCalendarDayNameAppearance;\r\nbegin\r\n  Result := FDateSelector.DayNameAppearance;\r\nend;\r\n\r\nfunction TTMSFNCCustomDatePicker.GetEvents: TTMSFNCCalendarEvents;\r\nbegin\r\n  Result := FDateSelector.Events;\r\nend;\r\n\r\nfunction TTMSFNCCustomDatePicker.GetFirstDay: Integer;\r\nbegin\r\n  Result := FDateSelector.FirstDay;\r\nend;\r\n\r\nfunction TTMSFNCCustomDatePicker.GetFocusedControl: TControl;\r\nbegin\r\n  Result := FDateSelector;\r\nend;\r\n\r\nfunction TTMSFNCCustomDatePicker.GetFooter: TTMSFNCCalendarFooter;\r\nbegin\r\n  Result := FDateSelector.Footer;\r\nend;\r\n\r\nfunction TTMSFNCCustomDatePicker.GetLineAppearance: TTMSFNCCalendarLineAppearance;\r\nbegin\r\n  Result := FDateSelector.LineAppearance;\r\nend;\r\n\r\nfunction TTMSFNCCustomDatePicker.GetMaxDate: TDate;\r\nbegin\r\n  Result := FDateSelector.MaxDate;\r\nend;\r\n\r\nfunction TTMSFNCCustomDatePicker.GetMinDate: TDate;\r\nbegin\r\n  Result := FDateSelector.MinDate;\r\nend;\r\n\r\nfunction TTMSFNCCustomDatePicker.GetMonth: Integer;\r\nbegin\r\n  Result := FDateSelector.Month;\r\nend;\r\n\r\nfunction TTMSFNCCustomDatePicker.GetSelectedDate: TDate;\r\nbegin\r\n  Result := 0;\r\n  if (FDateSelector.SelectedDates.Count > 0) then\r\n    Result := TDate(FDateSelector.SelectedDate);\r\nend;\r\n\r\nfunction TTMSFNCCustomDatePicker.GetVersion: string;\r\nbegin\r\n  Result := GetVersionNumber(MAJ_VER, MIN_VER, REL_VER, BLD_VER);\r\nend;\r\n\r\nfunction TTMSFNCCustomDatePicker.GetWeekNumberAppearance: TTMSFNCCalendarWeekNumberAppearance;\r\nbegin\r\n  Result := FDateSelector.WeekNumberAppearance;\r\nend;\r\n\r\nfunction TTMSFNCCustomDatePicker.GetYear: Integer;\r\nbegin\r\n  Result := FDateSelector.Year;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.HandleKeyDown(var Key: Word;\r\n  Shift: TShiftState);\r\nbegin\r\n  inherited;\r\n  case Key of\r\n    KEY_PRIOR:\r\n    begin\r\n      if FDateSelector.Month <> 1 then\r\n        SelectedDate := EncodeDate(FDateSelector.Year, FDateSelector.PreviousMonth, 1)\r\n      else\r\n        SelectedDate := EncodeDate(FDateSelector.PreviousYear, FDateSelector.PreviousMonth, 1);\r\n    end;\r\n    KEY_NEXT:\r\n    begin\r\n      if FDateSelector.Month <> 12 then\r\n        SelectedDate := EncodeDate(FDateSelector.Year, FDateSelector.NextMonth, 1)\r\n      else\r\n        SelectedDate := EncodeDate(FDateSelector.NextYear, FDateSelector.NextMonth, 1);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.InitializePopup;\r\nbegin\r\n  inherited;\r\n  if FAllowNumericNullValue and (Int(SelectedDate) = 0) then\r\n  begin\r\n    FDateSelector.Date := Int(Now)\r\n  end\r\n  else if Editable and Assigned(Edit.Parent) and Edit.Visible then\r\n  begin\r\n    DoValidate;\r\n  end;\r\n\r\n  TTMSFNCCustomSelectorOpen(FWrapper).Fill.Assign(FDateSelector.Fill);\r\n  TTMSFNCCustomSelectorOpen(FWrapper).Stroke.Assign(FDateSelector.Stroke);\r\n  FDateSelector.Width := Round(DropDownWidth);\r\n  FDateSelector.Height := Round(DropDownHeight);\r\n  FDateSelector.Header.Assign(FHeader);\r\n  FDateSelector.Interaction.Assign(FInteraction);\r\n  FDateSelector.Invalidate;\r\nend;\r\n\r\nfunction TTMSFNCCustomDatePicker.IsAppearanceProperty(AObject: TObject;\r\n  APropertyName: string; APropertyType: TTypeKind): Boolean;\r\nbegin\r\n  Result := inherited IsAppearanceProperty(AObject, APropertyName, APropertyType);\r\n  Result := Result or (APropertyName = 'Header') or (APropertyName = 'Footer');\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.Loaded;\r\nbegin\r\n  inherited;\r\n  if Assigned(FDateSelector) then\r\n  begin\r\n    FDateSelector.Width := Round(DropDownWidth);\r\n    FDateSelector.Height := Round(DropDownHeight);\r\n    FDateSelector.UpdateControlAfterResize;\r\n    {$IFDEF VCLLIB}\r\n    {$HINTS OFF}\r\n    {$IF (COMPILERVERSION >= 33) AND (COMPILERVERSION < 36)}\r\n    FDateSelector.ScaleForPPI(CurrentPPI);\r\n    {$IFEND}\r\n    {$HINTS ON}\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.ResetToDefaultStyle;\r\nbegin\r\n  inherited;\r\n  FHeader.Fill.Kind := gfkSolid;\r\n  FHeader.Stroke.Kind := gskSolid;\r\n  FHeader.Fill.Color := MakeGraphicsColor(228, 228, 228);\r\n  FHeader.Stroke.Color := gcSilver;\r\n  FHeader.Font.Color := gcBlack;\r\n  FHeader.Arrow.Color := gcDimgray;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SelectFirstValue;\r\nvar\r\n  d: TDate;\r\nbegin\r\n  inherited;\r\n  d := EncodeDate(FDateSelector.Year, FDateSelector.Month, 1);\r\n  if (Int(MinDate) < Int(d)) and (CompareDate(SelectedDate, d) <> 0) then\r\n  begin\r\n    SelectedDate := d;\r\n    DoDateSelected;\r\n  end\r\n  else if (CompareDate(SelectedDate, MinDate) <> 0) and (CompareDate(SelectedDate, d) <> 0) then\r\n  begin\r\n    SelectedDate := MinDate;\r\n    DoDateSelected;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SelectLastValue;\r\nvar\r\n  d: TDate;\r\n  dim: Integer;\r\nbegin\r\n  inherited;\r\n  dim := DaysInAMonth(FDateSelector.Year, FDateSelector.Month);\r\n  d := EncodeDate(FDateSelector.Year, FDateSelector.Month, dim);\r\n\r\n  if ((MaxDate <> 0) and (Int(MaxDate) > Int(d))) or (MaxDate = 0) then\r\n  begin\r\n    if CompareDate(SelectedDate, d) <> 0 then\r\n    begin\r\n      SelectedDate := d;\r\n      DoDateSelected;\r\n    end;\r\n  end\r\n  else if (CompareDate(SelectedDate, MaxDate) <> 0) and (CompareDate(SelectedDate, d) <> 0) then\r\n  begin\r\n    SelectedDate := MaxDate;\r\n    DoDateSelected;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SelectNextValue;\r\nvar\r\n  d: TDate;\r\nbegin\r\n  inherited;\r\n  d := IncDay(FDateSelector.Date, 1);\r\n  if Int(MaxDate + 1) <> Int(d) then\r\n  begin\r\n    SelectedDate := IncDay(FDateSelector.Date, 1);\r\n    DoDateSelected;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SelectPreviousValue;\r\nvar\r\n  d: TDate;\r\nbegin\r\n  inherited;\r\n  d := IncDay(FDateSelector.Date, -1);\r\n  if Int(MinDate) - 1 <> Int(d) then\r\n  begin\r\n    SelectedDate := d;\r\n    DoDateSelected;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SetAdaptToStyle(const Value: Boolean);\r\nbegin\r\n  inherited;\r\n  if Assigned(FWrapper) then\r\n    FWrapper.AdaptToStyle := AdaptToStyle;\r\n  if Assigned(FDateSelector) then\r\n    FDateSelector.AdaptToStyle := AdaptToStyle;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SetAllowNumericNullValue(\r\n  const Value: Boolean);\r\nbegin\r\n  if FAllowNumericNullValue <> Value then\r\n  begin\r\n    FAllowNumericNullValue := Value;\r\n    if FAllowNumericNullValue and (Int(SelectedDate) = 0) then\r\n      Content := ''\r\n    else\r\n      Content := DateToStr(SelectedDate);\r\n  end;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SetBadgeSize(const Value: Integer);\r\nbegin\r\n  FDateSelector.BadgeSize := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SetBitmapContainer(\r\n  const Value: TTMSFNCBitmapContainer);\r\nbegin\r\n  FDateSelector.BitmapContainer := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SetCalendarFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  FDateSelector.Fill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SetCalendarStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  FDateSelector.Stroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SetDateAppearance(\r\n  const Value: TTMSFNCCalendarDateAppearance);\r\nbegin\r\n  FDateSelector.DateAppearance.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SetDay(const Value: Integer);\r\nbegin\r\n  FDateSelector.Day := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SetDayNameAppearance(\r\n  const Value: TTMSFNCCalendarDayNameAppearance);\r\nbegin\r\n  FDateSelector.DayNameAppearance.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SetEditable(const Value: Boolean);\r\nbegin\r\n  inherited;\r\n  if FAllowNumericNullValue and (Int(FPrevSelDate) = 0) then\r\n    Content := ''\r\n  else\r\n    Content := DateToStr(FPrevSelDate);\r\n\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SetEvents(const Value: TTMSFNCCalendarEvents);\r\nbegin\r\n  FDateSelector.Events.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SetFirstDay(const Value: Integer);\r\nbegin\r\n  FDateSelector.FirstDay := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SetFnt(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FFont.AssignSource(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SetFooter(const Value: TTMSFNCCalendarFooter);\r\nbegin\r\n  FDateSelector.Footer.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SetHeader(const Value: TTMSFNCCalendarHeader);\r\nbegin\r\n  FHeader.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SetInteraction(\r\n  const Value: TTMSFNCDatePickerInteraction);\r\nbegin\r\n  FInteraction.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SetLineAppearance(\r\n  const Value: TTMSFNCCalendarLineAppearance);\r\nbegin\r\n  FDateSelector.LineAppearance.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SetMaxDate(const Value: TDate);\r\nbegin\r\n  FDateSelector.MaxDate := Value;\r\n  if CompareDate(SelectedDate, Value) = 1 then\r\n    SelectedDate := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SetMinDate(const Value: TDate);\r\nbegin\r\n  FDateSelector.MinDate := Value;\r\n  if CompareDate(SelectedDate, Value) = -1 then\r\n    SelectedDate := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SetMonth(const Value: Integer);\r\nbegin\r\n  FDateSelector.Month := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SetSelectedDate(const Value: TDate);\r\nbegin\r\n  if FAllowNumericNullValue and (Int(Value) = 0) then\r\n    Content := ''\r\n  else\r\n    Content := DateToStr(Value);\r\n\r\n  FPrevSelDate := Value;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SetWeekNumberAppearance(\r\n  const Value: TTMSFNCCalendarWeekNumberAppearance);\r\nbegin\r\n  FDateSelector.WeekNumberAppearance.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.SetYear(const Value: Integer);\r\nbegin\r\n  FDateSelector.Year := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDatePicker.UpdateEditText(AText: string);\r\nvar\r\n  d: TDateTime;\r\nbegin\r\n  inherited;\r\n  if AText = '' then\r\n  begin\r\n    if (0 = Int(FPrevSelDate)) then\r\n    begin\r\n      FDateSelector.SelectADate(0);\r\n      DoDateSelected;\r\n    end;\r\n  end\r\n  else if TryStrToDate(AText, d) then\r\n  begin\r\n    if (Int(d) <> Int(SelectedDate)) and (Int(d) >= Int(MinDate)) and (((Int(d) <= Int(MaxDate)) and (MaxDate <> 0)) or (MaxDate = 0)) then\r\n    begin\r\n      FDateSelector.SelectADate(Int(d));\r\n      DoDateSelected;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCDatePicker }\r\n\r\nprocedure TTMSFNCDatePicker.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClass(TTMSFNCDatePicker);\r\nend;\r\n\r\nend.\r\n","unit Unit_Artikel;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Vcl.StdCtrls, WEBLib.StdCtrls, WEBLib.DBCtrls,\r\n  Vcl.Controls, WEBLib.ExtCtrls, Data.DB, WEBLib.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, WEBLib.Buttons, WEBLib.Grids, XData.Web.Client, strutils,\r\n  DB;\r\n\r\ntype\r\n  TfrmArtikel = class(TForm)\r\n    xdsEinzelartikel: TXDataWebDataSet;\r\n    sourceEinzelartikel: TDataSource;\r\n    TC: TTableControl;\r\n    xdsEinzelartikelHersteller: TXDataWebEntityField;\r\n    xdsEinzelartikelArtderMenge: TXDataWebEntityField;\r\n    xdsEinzelartikelPfandArt: TXDataWebEntityField;\r\n    xdsEinzelartikelWarengruppe: TXDataWebEntityField;\r\n    xdsEinzelartikelWarenuntergruppe: TXDataWebEntityField;\r\n    xdsEinzelartikelArtikelnummer: TStringField;\r\n    xdsEinzelartikelArtikelueberschrift: TStringField;\r\n    xdsEinzelartikelArtikelbeschreibung: TStringField;\r\n    xdsEinzelartikelVerkaufspreis: TFloatField;\r\n    xdsEinzelartikelMindestbestand: TFloatField;\r\n    xdsEinzelartikelPreisliste: TStringField;\r\n    xdsEinzelartikelGewicht: TFloatField;\r\n    xdsEinzelartikelBreite: TFloatField;\r\n    xdsEinzelartikelArtikelZusatz: TStringField;\r\n    xdsEinzelartikelLagerort: TStringField;\r\n    xdsEinzelartikelBuchungskonto: TIntegerField;\r\n    xdsEinzelartikelEingangMenge: TFloatField;\r\n    xdsEinzelartikelEingangEndpreis: TFloatField;\r\n    xdsEinzelartikelAusgangMenge: TFloatField;\r\n    xdsEinzelartikelAusgangEndpreisEK: TFloatField;\r\n    xdsEinzelartikelAusgangEndpreisVK: TFloatField;\r\n    xdsEinzelartikelBestand: TFloatField;\r\n    xdsEinzelartikelBestandswert: TFloatField;\r\n    xdsEinzelartikelMarge: TFloatField;\r\n    xdsEinzelartikelMargeProzent: TFloatField;\r\n    xdsEinzelartikelArtikelnummer2: TStringField;\r\n    xdsEinzelartikelArtikelmatchcode: TStringField;\r\n    xdsEinzelartikelRabattpreis1: TFloatField;\r\n    xdsEinzelartikelRabattpreis2: TFloatField;\r\n    xdsEinzelartikelRabattpreis3: TFloatField;\r\n    xdsEinzelartikelRabattpreis4: TFloatField;\r\n    xdsEinzelartikelRabattpreis5: TFloatField;\r\n    xdsEinzelartikelArtikelnichtmehrgueltig: TBooleanField;\r\n    xdsEinzelartikelEinkaufspreis: TFloatField;\r\n    xdsEinzelartikelAufschlag: TFloatField;\r\n    xdsEinzelartikelWarenbestand: TBooleanField;\r\n    xdsEinzelartikelTextfrei10: TStringField;\r\n    xdsEinzelartikelTextfrei20: TStringField;\r\n    xdsEinzelartikelArtikelbeschreibungRTF: TStringField;\r\n    xdsEinzelartikelArtikeldatei1: TStringField;\r\n    xdsEinzelartikelArtikeldatei2: TStringField;\r\n    xdsEinzelartikelArtikeldatei3: TStringField;\r\n    xdsEinzelartikelArtikeldatei4: TStringField;\r\n    xdsEinzelartikelArtikeldatei5: TStringField;\r\n    xdsEinzelartikelEinkaufspreisVom: TDateTimeField;\r\n    xdsEinzelartikelEAN: TStringField;\r\n    xdsEinzelartikelVGPFaktor: TFloatField;\r\n    xdsEinzelartikelVGPMengenart: TStringField;\r\n    xdsEinzelartikelVerleihpreis: TFloatField;\r\n    xdsEinzelartikelZusatzPreis: TFloatField;\r\n    xdsEinzelartikelVerpackungsart: TStringField;\r\n    xdsEinzelartikelVerpackungsMenge: TFloatField;\r\n    xdsEinzelartikelQuellartikel: TStringField;\r\n    xdsEinzelartikelrabattierfaehig: TBooleanField;\r\n    xdsEinzelartikelAngebotAlternativeAN: TStringField;\r\n    xdsEinzelartikelPreisanteilNetto: TFloatField;\r\n    xdsEinzelartikelFarbe: TIntegerField;\r\n    xdsEinzelartikelAEinkauf: TBooleanField;\r\n    xdsEinzelartikelAVerkauf: TBooleanField;\r\n    xdsEinzelartikelArtikelnummerLieferant: TStringField;\r\n    xdsEinzelartikelLieferantnummer: TStringField;\r\n    xdsEinzelartikelVerkaufspreisBrutto: TFloatField;\r\n    xdsEinzelartikelArtikelSet: TBooleanField;\r\n    xdsEinzelartikelProvisionssatz: TFloatField;\r\n    xdsEinzelartikelWarentarifnummer: TStringField;\r\n    xdsEinzelartikelHandelsartikel: TBooleanField;\r\n    xdsEinzelartikelUrsprungsland: TStringField;\r\n    xdsEinzelartikelKategorie: TStringField;\r\n    xdsEinzelartikelStandardRabattsatzEK: TFloatField;\r\n    xdsEinzelartikelStandardRabattsatzVK: TFloatField;\r\n    xdsEinzelartikelRabattpreiseManuell: TBooleanField;\r\n    xdsEinzelartikelMengeBestellt: TFloatField;\r\n    xdsEinzelartikelMengeBeauftragt: TFloatField;\r\n    xdsEinzelartikelBestandDisponiert: TFloatField;\r\n    xdsEinzelartikelMengeAngeboten: TFloatField;\r\n    xdsEinzelartikelBestandDispInclAngebot: TFloatField;\r\n    xdsEinzelartikelMWStKey: TIntegerField;\r\n    xdsEinzelartikelShopAmazon: TBooleanField;\r\n    xdsEinzelartikelShopQuelle: TBooleanField;\r\n    xdsEinzelartikelGeraet: TBooleanField;\r\n    xdsEinzelartikelArtgewicht: TFloatField;\r\n    xdsEinzelartikelVolumen: TFloatField;\r\n    xdsEinzelartikelPacklisteNichtAnzeigen: TBooleanField;\r\n    xdsEinzelartikelKeineAufschlagskalkulation: TBooleanField;\r\n    xdsEinzelartikelKorrekturMenge: TFloatField;\r\n    xdsEinzelartikelKorrekturWert: TFloatField;\r\n    xdsEinzelartikelNachfolgeartikel: TStringField;\r\n    xdsEinzelartikelMindestbestellmenge: TFloatField;\r\n    xdsEinzelartikelSchnittEK: TFloatField;\r\n    xdsEinzelartikelVerkaufspreisVom: TDateTimeField;\r\n    xdsEinzelartikelPruefungChargeSNR: TIntegerField;\r\n    xdsEinzelartikelArtikelbeschreibungHTML: TStringField;\r\n    xdsEinzelartikelProduktKurzbeschreibungHTML: TStringField;\r\n    xdsEinzelartikelStatusFuerShop: TStringField;\r\n    xdsEinzelartikelAmpelFuerShop: TStringField;\r\n    xdsEinzelartikelEXP_Anzahl: TFloatField;\r\n    xdsEinzelartikelEXP_Inhalt: TFloatField;\r\n    xdsEinzelartikelEXP_Faktor: TFloatField;\r\n    xdsEinzelartikelFach: TStringField;\r\n    xdsEinzelartikelExportKasse: TIntegerField;\r\n    xdsEinzelartikelWKNR: TIntegerField;\r\n    xdsEinzelartikelArtikelAttribute: TStringField;\r\n    xdsEinzelartikelErstelltAm: TDateTimeField;\r\n    xdsEinzelartikelVarianteVonAN: TStringField;\r\n    xdsEinzelartikelGurtmassWerte: TStringField;\r\n    xdsEinzelartikelGurtmass: TFloatField;\r\n    xdsEinzelartikelAltersgrenze: TIntegerField;\r\n    xdsEinzelartikelMWStKeyImHaus: TIntegerField;\r\n    xdsEinzelartikelKasseBewegung: TFloatField;\r\n    xdsEinzelartikelKasseBewegungEK: TFloatField;\r\n    xdsEinzelartikelKasseBewegungVK: TFloatField;\r\n    xdsEinzelartikelProduktionBewegung: TFloatField;\r\n    xdsEinzelartikelProduktionBewegungEK: TFloatField;\r\n    xdsEinzelartikelProduktionBewegungVK: TFloatField;\r\n    xdsEinzelartikelWaWiAB: TIntegerField;\r\n    xdsEinzelartikelGeaendertAm: TDateTimeField;\r\n    xdsEinzelartikelGefahrgutKennzeichen: TStringField;\r\n    xdsEinzelartikelVerpackG: TBooleanField;\r\n    xdsEinzelartikelUPE: TFloatField;\r\n    xdsEinzelartikelArtikelbeschreibungEinkauf: TStringField;\r\n    xdsEinzelartikelHerstellerArtikelnummer: TStringField;\r\n    xdsEinzelartikelNatura: TStringField;\r\n    xdsEinzelartikelArbeitszeit: TBooleanField;\r\n    xdsEinzelartikelWarengruppeWarengruppe: TStringField;\r\n    xdsEinzelartikelLaenge: TFloatField;\r\n    xdsEinzelartikelHoehe: TFloatField;\r\n    xdsEinzelartikelArtderMengeArtderMenge: TStringField;\r\n    xdsEinzelartikelHerstellerHersteller: TStringField;\r\n    xdsEinzelartikelHerstellerHerstellerID: TStringField;\r\n    xdsEinzelartikelHerstellerHerstellerURL: TStringField;\r\n    xdsEinzelartikelArtderMengeISO3: TStringField;\r\n    xdsEinzelartikelArtderMengeMengenauswahl: TBooleanField;\r\n    xdsEinzelartikelArtderMengeVGPauswahl: TBooleanField;\r\n    xdsEinzelartikelArtderMengeUVPauswahl: TBooleanField;\r\n    xdsEinzelartikelArtderMengeVKPDivisor: TFloatField;\r\n    xdsEinzelartikelPfandArtPfandArt: TStringField;\r\n    xdsEinzelartikelPfandArtPfandWert: TFloatField;\r\n    xdsEinzelartikelPfandArtPfandwertEK: TFloatField;\r\n    xdsEinzelartikelWarengruppeWGNR: TIntegerField;\r\n    xdsEinzelartikelWarenuntergruppeWarenuntergruppe: TStringField;\r\n    xdsEinzelartikelWarenuntergruppeWarengruppe: TStringField;\r\n    xdsEinzelartikelWarenuntergruppeWUGNR: TIntegerField;\r\n    xdsEinzelartikelWarenuntergruppeWGNR: TIntegerField;\r\n    WClient: TXDataWebClient;\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    btnzurueck: TButton;\r\n    WebLabel1: TLabel;\r\n    btnSpeichern: TButton;\r\n    edtBMenge: TEdit;\r\n    edtArtikelnummer: TEdit;\r\n    btnEtikettendruck: TButton;\r\n    Container3: THTMLContainer;\r\n    procedure edtArtikelnummerChange(Sender: TObject);\r\n    procedure xdsEinzelartikelAfterOpen(DataSet: TDataSet);\r\n    procedure btnEtikettendruckClick(Sender: TObject);\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure btnSpeichernClick(Sender: TObject);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  frmArtikel: TfrmArtikel;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_artikelsuche;\r\n{$R *.dfm}\r\n\r\nprocedure TfrmArtikel.btnEtikettendruckClick(Sender: TObject);\r\n  procedure OnResponse(Response:TXDataClientResponse);\r\n  var\r\n  ergebnis:string;\r\n  begin\r\n    ergebnis:=string(TJSObject(response.Result)['value']);\r\n    if ergebnis='WRONG' then\r\n    begin\r\n      showmessage('Druckvormerkung für Etiketten konnte leider nicht durchgeführt werden');\r\n    end\r\n    else\r\n    begin\r\n      if ergebnis='OK' then\r\n      begin\r\n        showmessage('Etikettendruck wurde vorgemerkt');\r\n      end\r\n      else\r\n      begin\r\n        if ergebnis='Bereits vorhanden' then showmessage('Dieser Eintrag war bereits vorhanden');\r\n\r\n      end;\r\n    end;\r\n  end;\r\nbegin\r\n  if LizenzOK then\r\n  begin\r\n    WClient.RawInvoke('IServerService.ArtikelEtikettenDruck',[xdseinzelartikelartikelnummer.asstring],@OnResponse);\r\n  end\r\n  else\r\n  begin\r\n    showmessage('Für das Speichern von Daten sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n  end;\r\nend;\r\n\r\nprocedure TfrmArtikel.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  self.Close;\r\nend;\r\n\r\nprocedure TfrmArtikel.edtArtikelnummerChange(Sender: TObject);\r\nbegin\r\n  xdsEinzelArtikel.Close;\r\n  xdseinzelArtikel.QueryString:='$filter=Artikelnummer eq '+QuotedStr(edtArtikelnummer.Text)+'&$expand=ArtderMenge,Hersteller';\r\n  xdseinzelArtikel.Load;\r\nend;\r\n\r\nprocedure TfrmArtikel.btnSpeichernClick(Sender: TObject);\r\n  procedure OnResponse(Response:TXDataClientResponse);\r\n  var\r\n  ergebnis:string;\r\n  begin\r\n    ergebnis:=string(TJSObject(response.Result)['value']);\r\n    if ergebnis='WRONG' then\r\n    begin\r\n      showmessage('Bestellvormerkung konnte leider nicht durchgeführt werden');\r\n    end\r\n    else\r\n    begin\r\n      showmessage('Bestellvormerkung erfolgreich');\r\n      edtBMenge.Text:='';\r\n\r\n    end;\r\n  end;\r\n  var\r\n  rawArtikelnummer:string;\r\n  rawArtikelueberschrift:string;\r\nbegin\r\n  if edtBMenge.Text='' then\r\n  begin\r\n    showmessage('Bestellmenge muß angegeben werden');\r\n  end\r\n  else\r\n  begin\r\n    if LizenzOK then\r\n    begin\r\n      rawArtikelnummer:=xdseinzelartikelartikelnummer.asstring;\r\n      rawArtikelueberschrift:=xdseinzelartikelartikelueberschrift.asstring;\r\n      WClient.RawInvoke('IServerService.ArtikelBestellvormerkung',[rawArtikelnummer,edtBMenge.text,rawArtikelueberschrift,BenutzerLoginName],@OnResponse);\r\n    end\r\n    else\r\n    begin\r\n      showmessage('Für das Speichern von Daten sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n    end;\r\n\r\n  end;\r\nend;\r\n\r\nprocedure TfrmArtikel.WebFormShow(Sender: TObject);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Einzelartikel</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  Container2.HTML.Text:='';\r\n  myelement:=container2.ElementHandle;\r\n  btnEtikettendruck.ParentElement:=myelement;\r\n  container3.parentelement:=myelement;\r\n  myelement:=container3.ElementHandle;\r\n  weblabel1.ParentElement:=myelement;\r\n  edtBMenge.ParentElement:=myelement;\r\n  btnSpeichern.ParentElement:=myelement;\r\nend;\r\n\r\nprocedure TfrmArtikel.xdsEinzelartikelAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  TC.RowCount:=22;\r\n  TC.Cells[0,0]:='Bezeichnung';\r\n  TC.Cells[1,0]:='Wert';\r\n  TC.Cells[0,1]:='Artikelnummer';\r\n  TC.Cells[1,1]:='<h5>'+xdsEinzelartikelArtikelnummer.asstring;\r\n  TC.Cells[0,2]:='Artikelüberschrift';\r\n  TC.Cells[1,2]:='<h5>'+xdsEinzelartikelArtikelueberschrift.asstring;\r\n  TC.Cells[0,3]:='Artikelbeschreibung';\r\n  TC.Cells[1,3]:='<h6>'+ReplaceStr(xdsEinzelartikelArtikelbeschreibung.asstring,#13+#10,'<BR>');\r\n  TC.Cells[0,4]:='Einkaufspreis';\r\n  if form1.rcw.Einkaufspreise=true then TC.Cells[1,4]:='<h5>'+formatfloat('#,##0.00',xdsEinzelartikelEinkaufspreis.asfloat);\r\n  if form1.rcw.Einkaufspreise=false then TC.Cells[1,4]:='<h5>XXX';\r\n  TC.Cells[0,5]:='Verkaufspreis';\r\n  if form1.rcw.Verkaufspreise=true then TC.Cells[1,5]:='<h5>'+formatfloat('#,##0.00',xdsEinzelartikelVerkaufspreis.asfloat);\r\n  if form1.rcw.Verkaufspreise=false then TC.Cells[1,5]:='<h5>XXX';\r\n  TC.Cells[0,6]:='Verkaufspreis (brutto)';\r\n  if form1.rcw.Verkaufspreise=true then TC.Cells[1,6]:='<h5><B>'+formatfloat('#,##0.00',xdsEinzelartikelVerkaufspreisBrutto.asfloat);\r\n  if form1.rcw.Verkaufspreise=false then TC.Cells[1,6]:='<h5>XXX';\r\n  TC.Cells[0,7]:='Bestand';\r\n  TC.Cells[1,7]:='<h5>'+formatfloat('#,##0.00',xdsEinzelartikelBestand.asfloat);\r\n  TC.Cells[0,8]:='Gewicht';\r\n  TC.Cells[1,8]:='<h6>'+formatfloat('#,##0.0000',xdsEinzelartikelGewicht.asfloat);\r\n  TC.Cells[0,9]:='Länge';\r\n  TC.Cells[1,9]:='<h6>'+formatfloat('#,##0.0000',xdsEinzelartikelLaenge.asfloat);\r\n  TC.Cells[0,10]:='Breite';\r\n  TC.Cells[1,10]:='<h6>'+formatfloat('#,##0.0000',xdsEinzelartikelBreite.asfloat);\r\n  TC.Cells[0,11]:='Höhe';\r\n  TC.Cells[1,11]:='<h6>'+formatfloat('#,##0.0000',xdsEinzelartikelHoehe.asfloat);\r\n  TC.Cells[0,12]:='Hersteller|Art.Nr.';\r\n  TC.Cells[1,12]:='<h6>'+xdsEinzelartikelHerstellerHersteller.AsString+' | '+xdsEinzelartikelHerstellerArtikelnummer.AsString;\r\n  TC.Cells[0,13]:='Lieferant|Art.Nr.';\r\n  TC.Cells[1,13]:='<h6>'+xdsEinzelartikelLieferantnummer.AsString+' | '+xdsEinzelartikelArtikelnummerLieferant.asstring;\r\n  TC.Cells[0,14]:='Lager|Fach';\r\n  TC.Cells[1,14]:='<h6>'+xdsEinzelartikelLagerort.AsString+' | '+xdsEinzelartikelFach.asstring;\r\n  TC.Cells[0,15]:='GTIN/EAN';\r\n  TC.Cells[1,15]:='<h6>'+xdsEinzelartikelEAN.AsString;\r\n  TC.Cells[0,16]:='Mindestbestand';\r\n  TC.Cells[1,16]:='<h6>'+xdsEinzelartikelMindestbestand.AsString;\r\n  TC.Cells[0,17]:='Mindestbestellmenge';\r\n  TC.Cells[1,17]:='<h6>'+xdsEinzelartikelMindestbestellmenge.AsString;\r\n  TC.Cells[0,18]:='Mengenart';\r\n  TC.Cells[1,18]:='<h6>'+xdsEinzelartikelArtderMengeArtderMenge.AsString;\r\n  TC.Cells[0,19]:='Verpackungsart';\r\n  TC.Cells[1,19]:='<h6>'+xdsEinzelartikelVerpackungsart.AsString;\r\n  TC.Cells[0,20]:='Verpackungsmenge';\r\n  TC.Cells[1,20]:='<h6>'+xdsEinzelartikelVerpackungsMenge.AsString;\r\nend;\r\n\r\nprocedure TfrmArtikel.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  WebLabel1 := TLabel.Create(Self);\r\n  TC := TTableControl.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  btnSpeichern := TButton.Create(Self);\r\n  edtBMenge := TEdit.Create(Self);\r\n  edtArtikelnummer := TEdit.Create(Self);\r\n  btnEtikettendruck := TButton.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  xdsEinzelartikel := TXDataWebDataSet.Create(Self);\r\n  xdsEinzelartikelHersteller := TXDataWebEntityField.Create(Self);\r\n  xdsEinzelartikelArtderMenge := TXDataWebEntityField.Create(Self);\r\n  xdsEinzelartikelPfandArt := TXDataWebEntityField.Create(Self);\r\n  xdsEinzelartikelWarengruppe := TXDataWebEntityField.Create(Self);\r\n  xdsEinzelartikelWarenuntergruppe := TXDataWebEntityField.Create(Self);\r\n  xdsEinzelartikelArtikelnummer := TStringField.Create(Self);\r\n  xdsEinzelartikelArtikelueberschrift := TStringField.Create(Self);\r\n  xdsEinzelartikelArtikelbeschreibung := TStringField.Create(Self);\r\n  xdsEinzelartikelVerkaufspreis := TFloatField.Create(Self);\r\n  xdsEinzelartikelMindestbestand := TFloatField.Create(Self);\r\n  xdsEinzelartikelPreisliste := TStringField.Create(Self);\r\n  xdsEinzelartikelGewicht := TFloatField.Create(Self);\r\n  xdsEinzelartikelBreite := TFloatField.Create(Self);\r\n  xdsEinzelartikelArtikelZusatz := TStringField.Create(Self);\r\n  xdsEinzelartikelLagerort := TStringField.Create(Self);\r\n  xdsEinzelartikelBuchungskonto := TIntegerField.Create(Self);\r\n  xdsEinzelartikelEingangMenge := TFloatField.Create(Self);\r\n  xdsEinzelartikelEingangEndpreis := TFloatField.Create(Self);\r\n  xdsEinzelartikelAusgangMenge := TFloatField.Create(Self);\r\n  xdsEinzelartikelAusgangEndpreisEK := TFloatField.Create(Self);\r\n  xdsEinzelartikelAusgangEndpreisVK := TFloatField.Create(Self);\r\n  xdsEinzelartikelBestand := TFloatField.Create(Self);\r\n  xdsEinzelartikelBestandswert := TFloatField.Create(Self);\r\n  xdsEinzelartikelMarge := TFloatField.Create(Self);\r\n  xdsEinzelartikelMargeProzent := TFloatField.Create(Self);\r\n  xdsEinzelartikelArtikelnummer2 := TStringField.Create(Self);\r\n  xdsEinzelartikelArtikelmatchcode := TStringField.Create(Self);\r\n  xdsEinzelartikelRabattpreis1 := TFloatField.Create(Self);\r\n  xdsEinzelartikelRabattpreis2 := TFloatField.Create(Self);\r\n  xdsEinzelartikelRabattpreis3 := TFloatField.Create(Self);\r\n  xdsEinzelartikelRabattpreis4 := TFloatField.Create(Self);\r\n  xdsEinzelartikelRabattpreis5 := TFloatField.Create(Self);\r\n  xdsEinzelartikelArtikelnichtmehrgueltig := TBooleanField.Create(Self);\r\n  xdsEinzelartikelEinkaufspreis := TFloatField.Create(Self);\r\n  xdsEinzelartikelAufschlag := TFloatField.Create(Self);\r\n  xdsEinzelartikelWarenbestand := TBooleanField.Create(Self);\r\n  xdsEinzelartikelTextfrei10 := TStringField.Create(Self);\r\n  xdsEinzelartikelTextfrei20 := TStringField.Create(Self);\r\n  xdsEinzelartikelArtikelbeschreibungRTF := TStringField.Create(Self);\r\n  xdsEinzelartikelArtikeldatei1 := TStringField.Create(Self);\r\n  xdsEinzelartikelArtikeldatei2 := TStringField.Create(Self);\r\n  xdsEinzelartikelArtikeldatei3 := TStringField.Create(Self);\r\n  xdsEinzelartikelArtikeldatei4 := TStringField.Create(Self);\r\n  xdsEinzelartikelArtikeldatei5 := TStringField.Create(Self);\r\n  xdsEinzelartikelEinkaufspreisVom := TDateTimeField.Create(Self);\r\n  xdsEinzelartikelEAN := TStringField.Create(Self);\r\n  xdsEinzelartikelVGPFaktor := TFloatField.Create(Self);\r\n  xdsEinzelartikelVGPMengenart := TStringField.Create(Self);\r\n  xdsEinzelartikelVerleihpreis := TFloatField.Create(Self);\r\n  xdsEinzelartikelZusatzPreis := TFloatField.Create(Self);\r\n  xdsEinzelartikelVerpackungsart := TStringField.Create(Self);\r\n  xdsEinzelartikelVerpackungsMenge := TFloatField.Create(Self);\r\n  xdsEinzelartikelQuellartikel := TStringField.Create(Self);\r\n  xdsEinzelartikelrabattierfaehig := TBooleanField.Create(Self);\r\n  xdsEinzelartikelAngebotAlternativeAN := TStringField.Create(Self);\r\n  xdsEinzelartikelPreisanteilNetto := TFloatField.Create(Self);\r\n  xdsEinzelartikelFarbe := TIntegerField.Create(Self);\r\n  xdsEinzelartikelAEinkauf := TBooleanField.Create(Self);\r\n  xdsEinzelartikelAVerkauf := TBooleanField.Create(Self);\r\n  xdsEinzelartikelArtikelnummerLieferant := TStringField.Create(Self);\r\n  xdsEinzelartikelLieferantnummer := TStringField.Create(Self);\r\n  xdsEinzelartikelVerkaufspreisBrutto := TFloatField.Create(Self);\r\n  xdsEinzelartikelArtikelSet := TBooleanField.Create(Self);\r\n  xdsEinzelartikelProvisionssatz := TFloatField.Create(Self);\r\n  xdsEinzelartikelWarentarifnummer := TStringField.Create(Self);\r\n  xdsEinzelartikelHandelsartikel := TBooleanField.Create(Self);\r\n  xdsEinzelartikelUrsprungsland := TStringField.Create(Self);\r\n  xdsEinzelartikelKategorie := TStringField.Create(Self);\r\n  xdsEinzelartikelStandardRabattsatzEK := TFloatField.Create(Self);\r\n  xdsEinzelartikelStandardRabattsatzVK := TFloatField.Create(Self);\r\n  xdsEinzelartikelRabattpreiseManuell := TBooleanField.Create(Self);\r\n  xdsEinzelartikelMengeBestellt := TFloatField.Create(Self);\r\n  xdsEinzelartikelMengeBeauftragt := TFloatField.Create(Self);\r\n  xdsEinzelartikelBestandDisponiert := TFloatField.Create(Self);\r\n  xdsEinzelartikelMengeAngeboten := TFloatField.Create(Self);\r\n  xdsEinzelartikelBestandDispInclAngebot := TFloatField.Create(Self);\r\n  xdsEinzelartikelMWStKey := TIntegerField.Create(Self);\r\n  xdsEinzelartikelShopAmazon := TBooleanField.Create(Self);\r\n  xdsEinzelartikelShopQuelle := TBooleanField.Create(Self);\r\n  xdsEinzelartikelGeraet := TBooleanField.Create(Self);\r\n  xdsEinzelartikelArtgewicht := TFloatField.Create(Self);\r\n  xdsEinzelartikelVolumen := TFloatField.Create(Self);\r\n  xdsEinzelartikelPacklisteNichtAnzeigen := TBooleanField.Create(Self);\r\n  xdsEinzelartikelKeineAufschlagskalkulation := TBooleanField.Create(Self);\r\n  xdsEinzelartikelKorrekturMenge := TFloatField.Create(Self);\r\n  xdsEinzelartikelKorrekturWert := TFloatField.Create(Self);\r\n  xdsEinzelartikelNachfolgeartikel := TStringField.Create(Self);\r\n  xdsEinzelartikelMindestbestellmenge := TFloatField.Create(Self);\r\n  xdsEinzelartikelSchnittEK := TFloatField.Create(Self);\r\n  xdsEinzelartikelVerkaufspreisVom := TDateTimeField.Create(Self);\r\n  xdsEinzelartikelPruefungChargeSNR := TIntegerField.Create(Self);\r\n  xdsEinzelartikelArtikelbeschreibungHTML := TStringField.Create(Self);\r\n  xdsEinzelartikelProduktKurzbeschreibungHTML := TStringField.Create(Self);\r\n  xdsEinzelartikelStatusFuerShop := TStringField.Create(Self);\r\n  xdsEinzelartikelAmpelFuerShop := TStringField.Create(Self);\r\n  xdsEinzelartikelEXP_Anzahl := TFloatField.Create(Self);\r\n  xdsEinzelartikelEXP_Inhalt := TFloatField.Create(Self);\r\n  xdsEinzelartikelEXP_Faktor := TFloatField.Create(Self);\r\n  xdsEinzelartikelFach := TStringField.Create(Self);\r\n  xdsEinzelartikelExportKasse := TIntegerField.Create(Self);\r\n  xdsEinzelartikelWKNR := TIntegerField.Create(Self);\r\n  xdsEinzelartikelArtikelAttribute := TStringField.Create(Self);\r\n  xdsEinzelartikelErstelltAm := TDateTimeField.Create(Self);\r\n  xdsEinzelartikelVarianteVonAN := TStringField.Create(Self);\r\n  xdsEinzelartikelGurtmassWerte := TStringField.Create(Self);\r\n  xdsEinzelartikelGurtmass := TFloatField.Create(Self);\r\n  xdsEinzelartikelAltersgrenze := TIntegerField.Create(Self);\r\n  xdsEinzelartikelMWStKeyImHaus := TIntegerField.Create(Self);\r\n  xdsEinzelartikelKasseBewegung := TFloatField.Create(Self);\r\n  xdsEinzelartikelKasseBewegungEK := TFloatField.Create(Self);\r\n  xdsEinzelartikelKasseBewegungVK := TFloatField.Create(Self);\r\n  xdsEinzelartikelProduktionBewegung := TFloatField.Create(Self);\r\n  xdsEinzelartikelProduktionBewegungEK := TFloatField.Create(Self);\r\n  xdsEinzelartikelProduktionBewegungVK := TFloatField.Create(Self);\r\n  xdsEinzelartikelWaWiAB := TIntegerField.Create(Self);\r\n  xdsEinzelartikelGeaendertAm := TDateTimeField.Create(Self);\r\n  xdsEinzelartikelGefahrgutKennzeichen := TStringField.Create(Self);\r\n  xdsEinzelartikelVerpackG := TBooleanField.Create(Self);\r\n  xdsEinzelartikelUPE := TFloatField.Create(Self);\r\n  xdsEinzelartikelArtikelbeschreibungEinkauf := TStringField.Create(Self);\r\n  xdsEinzelartikelHerstellerArtikelnummer := TStringField.Create(Self);\r\n  xdsEinzelartikelNatura := TStringField.Create(Self);\r\n  xdsEinzelartikelArbeitszeit := TBooleanField.Create(Self);\r\n  xdsEinzelartikelWarengruppeWarengruppe := TStringField.Create(Self);\r\n  xdsEinzelartikelLaenge := TFloatField.Create(Self);\r\n  xdsEinzelartikelHoehe := TFloatField.Create(Self);\r\n  xdsEinzelartikelArtderMengeArtderMenge := TStringField.Create(Self);\r\n  xdsEinzelartikelHerstellerHersteller := TStringField.Create(Self);\r\n  xdsEinzelartikelHerstellerHerstellerID := TStringField.Create(Self);\r\n  xdsEinzelartikelHerstellerHerstellerURL := TStringField.Create(Self);\r\n  xdsEinzelartikelArtderMengeISO3 := TStringField.Create(Self);\r\n  xdsEinzelartikelArtderMengeMengenauswahl := TBooleanField.Create(Self);\r\n  xdsEinzelartikelArtderMengeVGPauswahl := TBooleanField.Create(Self);\r\n  xdsEinzelartikelArtderMengeUVPauswahl := TBooleanField.Create(Self);\r\n  xdsEinzelartikelArtderMengeVKPDivisor := TFloatField.Create(Self);\r\n  xdsEinzelartikelPfandArtPfandArt := TStringField.Create(Self);\r\n  xdsEinzelartikelPfandArtPfandWert := TFloatField.Create(Self);\r\n  xdsEinzelartikelPfandArtPfandwertEK := TFloatField.Create(Self);\r\n  xdsEinzelartikelWarengruppeWGNR := TIntegerField.Create(Self);\r\n  xdsEinzelartikelWarenuntergruppeWarenuntergruppe := TStringField.Create(Self);\r\n  xdsEinzelartikelWarenuntergruppeWarengruppe := TStringField.Create(Self);\r\n  xdsEinzelartikelWarenuntergruppeWUGNR := TIntegerField.Create(Self);\r\n  xdsEinzelartikelWarenuntergruppeWGNR := TIntegerField.Create(Self);\r\n  sourceEinzelartikel := TDataSource.Create(Self);\r\n  WClient := TXDataWebClient.Create(Self);\r\n\r\n  WebLabel1.BeforeLoadDFMValues;\r\n  TC.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  btnSpeichern.BeforeLoadDFMValues;\r\n  edtBMenge.BeforeLoadDFMValues;\r\n  edtArtikelnummer.BeforeLoadDFMValues;\r\n  btnEtikettendruck.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  xdsEinzelartikel.BeforeLoadDFMValues;\r\n  xdsEinzelartikelHersteller.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArtderMenge.BeforeLoadDFMValues;\r\n  xdsEinzelartikelPfandArt.BeforeLoadDFMValues;\r\n  xdsEinzelartikelWarengruppe.BeforeLoadDFMValues;\r\n  xdsEinzelartikelWarenuntergruppe.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArtikelnummer.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArtikelueberschrift.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArtikelbeschreibung.BeforeLoadDFMValues;\r\n  xdsEinzelartikelVerkaufspreis.BeforeLoadDFMValues;\r\n  xdsEinzelartikelMindestbestand.BeforeLoadDFMValues;\r\n  xdsEinzelartikelPreisliste.BeforeLoadDFMValues;\r\n  xdsEinzelartikelGewicht.BeforeLoadDFMValues;\r\n  xdsEinzelartikelBreite.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArtikelZusatz.BeforeLoadDFMValues;\r\n  xdsEinzelartikelLagerort.BeforeLoadDFMValues;\r\n  xdsEinzelartikelBuchungskonto.BeforeLoadDFMValues;\r\n  xdsEinzelartikelEingangMenge.BeforeLoadDFMValues;\r\n  xdsEinzelartikelEingangEndpreis.BeforeLoadDFMValues;\r\n  xdsEinzelartikelAusgangMenge.BeforeLoadDFMValues;\r\n  xdsEinzelartikelAusgangEndpreisEK.BeforeLoadDFMValues;\r\n  xdsEinzelartikelAusgangEndpreisVK.BeforeLoadDFMValues;\r\n  xdsEinzelartikelBestand.BeforeLoadDFMValues;\r\n  xdsEinzelartikelBestandswert.BeforeLoadDFMValues;\r\n  xdsEinzelartikelMarge.BeforeLoadDFMValues;\r\n  xdsEinzelartikelMargeProzent.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArtikelnummer2.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArtikelmatchcode.BeforeLoadDFMValues;\r\n  xdsEinzelartikelRabattpreis1.BeforeLoadDFMValues;\r\n  xdsEinzelartikelRabattpreis2.BeforeLoadDFMValues;\r\n  xdsEinzelartikelRabattpreis3.BeforeLoadDFMValues;\r\n  xdsEinzelartikelRabattpreis4.BeforeLoadDFMValues;\r\n  xdsEinzelartikelRabattpreis5.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArtikelnichtmehrgueltig.BeforeLoadDFMValues;\r\n  xdsEinzelartikelEinkaufspreis.BeforeLoadDFMValues;\r\n  xdsEinzelartikelAufschlag.BeforeLoadDFMValues;\r\n  xdsEinzelartikelWarenbestand.BeforeLoadDFMValues;\r\n  xdsEinzelartikelTextfrei10.BeforeLoadDFMValues;\r\n  xdsEinzelartikelTextfrei20.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArtikelbeschreibungRTF.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArtikeldatei1.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArtikeldatei2.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArtikeldatei3.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArtikeldatei4.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArtikeldatei5.BeforeLoadDFMValues;\r\n  xdsEinzelartikelEinkaufspreisVom.BeforeLoadDFMValues;\r\n  xdsEinzelartikelEAN.BeforeLoadDFMValues;\r\n  xdsEinzelartikelVGPFaktor.BeforeLoadDFMValues;\r\n  xdsEinzelartikelVGPMengenart.BeforeLoadDFMValues;\r\n  xdsEinzelartikelVerleihpreis.BeforeLoadDFMValues;\r\n  xdsEinzelartikelZusatzPreis.BeforeLoadDFMValues;\r\n  xdsEinzelartikelVerpackungsart.BeforeLoadDFMValues;\r\n  xdsEinzelartikelVerpackungsMenge.BeforeLoadDFMValues;\r\n  xdsEinzelartikelQuellartikel.BeforeLoadDFMValues;\r\n  xdsEinzelartikelrabattierfaehig.BeforeLoadDFMValues;\r\n  xdsEinzelartikelAngebotAlternativeAN.BeforeLoadDFMValues;\r\n  xdsEinzelartikelPreisanteilNetto.BeforeLoadDFMValues;\r\n  xdsEinzelartikelFarbe.BeforeLoadDFMValues;\r\n  xdsEinzelartikelAEinkauf.BeforeLoadDFMValues;\r\n  xdsEinzelartikelAVerkauf.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArtikelnummerLieferant.BeforeLoadDFMValues;\r\n  xdsEinzelartikelLieferantnummer.BeforeLoadDFMValues;\r\n  xdsEinzelartikelVerkaufspreisBrutto.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArtikelSet.BeforeLoadDFMValues;\r\n  xdsEinzelartikelProvisionssatz.BeforeLoadDFMValues;\r\n  xdsEinzelartikelWarentarifnummer.BeforeLoadDFMValues;\r\n  xdsEinzelartikelHandelsartikel.BeforeLoadDFMValues;\r\n  xdsEinzelartikelUrsprungsland.BeforeLoadDFMValues;\r\n  xdsEinzelartikelKategorie.BeforeLoadDFMValues;\r\n  xdsEinzelartikelStandardRabattsatzEK.BeforeLoadDFMValues;\r\n  xdsEinzelartikelStandardRabattsatzVK.BeforeLoadDFMValues;\r\n  xdsEinzelartikelRabattpreiseManuell.BeforeLoadDFMValues;\r\n  xdsEinzelartikelMengeBestellt.BeforeLoadDFMValues;\r\n  xdsEinzelartikelMengeBeauftragt.BeforeLoadDFMValues;\r\n  xdsEinzelartikelBestandDisponiert.BeforeLoadDFMValues;\r\n  xdsEinzelartikelMengeAngeboten.BeforeLoadDFMValues;\r\n  xdsEinzelartikelBestandDispInclAngebot.BeforeLoadDFMValues;\r\n  xdsEinzelartikelMWStKey.BeforeLoadDFMValues;\r\n  xdsEinzelartikelShopAmazon.BeforeLoadDFMValues;\r\n  xdsEinzelartikelShopQuelle.BeforeLoadDFMValues;\r\n  xdsEinzelartikelGeraet.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArtgewicht.BeforeLoadDFMValues;\r\n  xdsEinzelartikelVolumen.BeforeLoadDFMValues;\r\n  xdsEinzelartikelPacklisteNichtAnzeigen.BeforeLoadDFMValues;\r\n  xdsEinzelartikelKeineAufschlagskalkulation.BeforeLoadDFMValues;\r\n  xdsEinzelartikelKorrekturMenge.BeforeLoadDFMValues;\r\n  xdsEinzelartikelKorrekturWert.BeforeLoadDFMValues;\r\n  xdsEinzelartikelNachfolgeartikel.BeforeLoadDFMValues;\r\n  xdsEinzelartikelMindestbestellmenge.BeforeLoadDFMValues;\r\n  xdsEinzelartikelSchnittEK.BeforeLoadDFMValues;\r\n  xdsEinzelartikelVerkaufspreisVom.BeforeLoadDFMValues;\r\n  xdsEinzelartikelPruefungChargeSNR.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArtikelbeschreibungHTML.BeforeLoadDFMValues;\r\n  xdsEinzelartikelProduktKurzbeschreibungHTML.BeforeLoadDFMValues;\r\n  xdsEinzelartikelStatusFuerShop.BeforeLoadDFMValues;\r\n  xdsEinzelartikelAmpelFuerShop.BeforeLoadDFMValues;\r\n  xdsEinzelartikelEXP_Anzahl.BeforeLoadDFMValues;\r\n  xdsEinzelartikelEXP_Inhalt.BeforeLoadDFMValues;\r\n  xdsEinzelartikelEXP_Faktor.BeforeLoadDFMValues;\r\n  xdsEinzelartikelFach.BeforeLoadDFMValues;\r\n  xdsEinzelartikelExportKasse.BeforeLoadDFMValues;\r\n  xdsEinzelartikelWKNR.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArtikelAttribute.BeforeLoadDFMValues;\r\n  xdsEinzelartikelErstelltAm.BeforeLoadDFMValues;\r\n  xdsEinzelartikelVarianteVonAN.BeforeLoadDFMValues;\r\n  xdsEinzelartikelGurtmassWerte.BeforeLoadDFMValues;\r\n  xdsEinzelartikelGurtmass.BeforeLoadDFMValues;\r\n  xdsEinzelartikelAltersgrenze.BeforeLoadDFMValues;\r\n  xdsEinzelartikelMWStKeyImHaus.BeforeLoadDFMValues;\r\n  xdsEinzelartikelKasseBewegung.BeforeLoadDFMValues;\r\n  xdsEinzelartikelKasseBewegungEK.BeforeLoadDFMValues;\r\n  xdsEinzelartikelKasseBewegungVK.BeforeLoadDFMValues;\r\n  xdsEinzelartikelProduktionBewegung.BeforeLoadDFMValues;\r\n  xdsEinzelartikelProduktionBewegungEK.BeforeLoadDFMValues;\r\n  xdsEinzelartikelProduktionBewegungVK.BeforeLoadDFMValues;\r\n  xdsEinzelartikelWaWiAB.BeforeLoadDFMValues;\r\n  xdsEinzelartikelGeaendertAm.BeforeLoadDFMValues;\r\n  xdsEinzelartikelGefahrgutKennzeichen.BeforeLoadDFMValues;\r\n  xdsEinzelartikelVerpackG.BeforeLoadDFMValues;\r\n  xdsEinzelartikelUPE.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArtikelbeschreibungEinkauf.BeforeLoadDFMValues;\r\n  xdsEinzelartikelHerstellerArtikelnummer.BeforeLoadDFMValues;\r\n  xdsEinzelartikelNatura.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArbeitszeit.BeforeLoadDFMValues;\r\n  xdsEinzelartikelWarengruppeWarengruppe.BeforeLoadDFMValues;\r\n  xdsEinzelartikelLaenge.BeforeLoadDFMValues;\r\n  xdsEinzelartikelHoehe.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArtderMengeArtderMenge.BeforeLoadDFMValues;\r\n  xdsEinzelartikelHerstellerHersteller.BeforeLoadDFMValues;\r\n  xdsEinzelartikelHerstellerHerstellerID.BeforeLoadDFMValues;\r\n  xdsEinzelartikelHerstellerHerstellerURL.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArtderMengeISO3.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArtderMengeMengenauswahl.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArtderMengeVGPauswahl.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArtderMengeUVPauswahl.BeforeLoadDFMValues;\r\n  xdsEinzelartikelArtderMengeVKPDivisor.BeforeLoadDFMValues;\r\n  xdsEinzelartikelPfandArtPfandArt.BeforeLoadDFMValues;\r\n  xdsEinzelartikelPfandArtPfandWert.BeforeLoadDFMValues;\r\n  xdsEinzelartikelPfandArtPfandwertEK.BeforeLoadDFMValues;\r\n  xdsEinzelartikelWarengruppeWGNR.BeforeLoadDFMValues;\r\n  xdsEinzelartikelWarenuntergruppeWarenuntergruppe.BeforeLoadDFMValues;\r\n  xdsEinzelartikelWarenuntergruppeWarengruppe.BeforeLoadDFMValues;\r\n  xdsEinzelartikelWarenuntergruppeWUGNR.BeforeLoadDFMValues;\r\n  xdsEinzelartikelWarenuntergruppeWGNR.BeforeLoadDFMValues;\r\n  sourceEinzelartikel.BeforeLoadDFMValues;\r\n  WClient.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'frmArtikel';\r\n    Width := 269;\r\n    Height := 290;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    WebLabel1.SetParentComponent(Self);\r\n    WebLabel1.Name := 'WebLabel1';\r\n    WebLabel1.Left := 8;\r\n    WebLabel1.Top := 166;\r\n    WebLabel1.Width := 142;\r\n    WebLabel1.Height := 15;\r\n    WebLabel1.Caption := 'Bestellvormerkung Menge:';\r\n    WebLabel1.ElementClassName := 'h6 text-primary m-2';\r\n    WebLabel1.ElementFont := efCSS;\r\n    WebLabel1.ElementPosition := epIgnore;\r\n    WebLabel1.HeightStyle := ssAuto;\r\n    WebLabel1.HeightPercent := 100.000000000000000000;\r\n    WebLabel1.WidthStyle := ssAuto;\r\n    WebLabel1.WidthPercent := 100.000000000000000000;\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.Left := 0;\r\n    TC.Top := 82;\r\n    TC.Width := 269;\r\n    TC.Height := 208;\r\n    TC.ElementClassName := 'table table-hover table-bordered table-striped';\r\n    TC.HeightStyle := ssAuto;\r\n    TC.WidthStyle := ssAuto;\r\n    TC.Align := alClient;\r\n    TC.BorderColor := clSilver;\r\n    TC.ChildOrder := 2;\r\n    TC.ColHeader := False;\r\n    TC.ElementFont := efCSS;\r\n    TC.ElementHeaderClassName := 'table-info';\r\n    TC.ElementPosition := epIgnore;\r\n    TC.ElementTableClassName := 'table table-hover table-bordered table-striped';\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 2;\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 269;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.Align := alTop;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 41;\r\n    Container2.Width := 269;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.Align := alTop;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 8;\r\n    btnzurueck.Top := 135;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    btnSpeichern.SetParentComponent(Self);\r\n    btnSpeichern.Name := 'btnSpeichern';\r\n    btnSpeichern.Left := 8;\r\n    btnSpeichern.Top := 210;\r\n    btnSpeichern.Width := 96;\r\n    btnSpeichern.Height := 25;\r\n    btnSpeichern.Caption := 'speichern';\r\n    btnSpeichern.ChildOrder := 6;\r\n    btnSpeichern.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnSpeichern.ElementFont := efCSS;\r\n    btnSpeichern.ElementPosition := epIgnore;\r\n    btnSpeichern.HeightStyle := ssAuto;\r\n    btnSpeichern.HeightPercent := 100.000000000000000000;\r\n    btnSpeichern.WidthStyle := ssAuto;\r\n    btnSpeichern.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnSpeichern, Self, 'OnClick', 'btnSpeichernClick');\r\n    edtBMenge.SetParentComponent(Self);\r\n    edtBMenge.Name := 'edtBMenge';\r\n    edtBMenge.Left := 8;\r\n    edtBMenge.Top := 185;\r\n    edtBMenge.Width := 121;\r\n    edtBMenge.Height := 19;\r\n    edtBMenge.ChildOrder := 2;\r\n    edtBMenge.EditType := weFloat;\r\n    edtBMenge.ElementClassName := 'form-control input-sm';\r\n    edtBMenge.ElementFont := efCSS;\r\n    edtBMenge.ElementPosition := epIgnore;\r\n    edtBMenge.HeightStyle := ssAuto;\r\n    edtBMenge.HeightPercent := 100.000000000000000000;\r\n    edtBMenge.TextHint := 'eintragen';\r\n    edtBMenge.WidthPercent := 100.000000000000000000;\r\n    edtArtikelnummer.SetParentComponent(Self);\r\n    edtArtikelnummer.Name := 'edtArtikelnummer';\r\n    edtArtikelnummer.Left := 110;\r\n    edtArtikelnummer.Top := 210;\r\n    edtArtikelnummer.Width := 121;\r\n    edtArtikelnummer.Height := 19;\r\n    edtArtikelnummer.ChildOrder := 8;\r\n    edtArtikelnummer.ElementClassName := 'form-control';\r\n    edtArtikelnummer.ElementFont := efCSS;\r\n    edtArtikelnummer.ElementPosition := epIgnore;\r\n    edtArtikelnummer.HeightPercent := 100.000000000000000000;\r\n    edtArtikelnummer.Text := 'edtArtikelnummer';\r\n    edtArtikelnummer.Visible := False;\r\n    edtArtikelnummer.WidthPercent := 100.000000000000000000;\r\n    SetEvent(edtArtikelnummer, Self, 'OnChange', 'edtArtikelnummerChange');\r\n    btnEtikettendruck.SetParentComponent(Self);\r\n    btnEtikettendruck.Name := 'btnEtikettendruck';\r\n    btnEtikettendruck.Left := 110;\r\n    btnEtikettendruck.Top := 149;\r\n    btnEtikettendruck.Width := 96;\r\n    btnEtikettendruck.Height := 25;\r\n    btnEtikettendruck.Caption := 'Etikettendruck';\r\n    btnEtikettendruck.ChildOrder := 4;\r\n    btnEtikettendruck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnEtikettendruck.ElementFont := efCSS;\r\n    btnEtikettendruck.ElementPosition := epIgnore;\r\n    btnEtikettendruck.HeightStyle := ssAuto;\r\n    btnEtikettendruck.HeightPercent := 100.000000000000000000;\r\n    btnEtikettendruck.WidthStyle := ssAuto;\r\n    btnEtikettendruck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnEtikettendruck, Self, 'OnClick', 'btnEtikettendruckClick');\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 8;\r\n    Container3.Top := 102;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 2;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    xdsEinzelartikel.SetParentComponent(Self);\r\n    xdsEinzelartikel.Name := 'xdsEinzelartikel';\r\n    xdsEinzelartikel.AfterOpen := xdsEinzelartikelAfterOpen;\r\n    xdsEinzelartikel.EntitySetName := 'Artikel';\r\n    xdsEinzelartikel.Connection := DM2.XDataWebConnection1;\r\n    xdsEinzelartikel.SubpropsDepth := 1;\r\n    xdsEinzelartikel.QueryTop := 1;\r\n    xdsEinzelartikel.Left := 100;\r\n    xdsEinzelartikel.Top := 21;\r\n    xdsEinzelartikelHersteller.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelHersteller.Name := 'xdsEinzelartikelHersteller';\r\n    xdsEinzelartikelHersteller.FieldName := 'Hersteller';\r\n    xdsEinzelartikelHersteller.Required := True;\r\n    xdsEinzelartikelArtderMenge.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArtderMenge.Name := 'xdsEinzelartikelArtderMenge';\r\n    xdsEinzelartikelArtderMenge.FieldName := 'ArtderMenge';\r\n    xdsEinzelartikelArtderMenge.Required := True;\r\n    xdsEinzelartikelPfandArt.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelPfandArt.Name := 'xdsEinzelartikelPfandArt';\r\n    xdsEinzelartikelPfandArt.FieldName := 'PfandArt';\r\n    xdsEinzelartikelWarengruppe.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelWarengruppe.Name := 'xdsEinzelartikelWarengruppe';\r\n    xdsEinzelartikelWarengruppe.FieldName := 'Warengruppe';\r\n    xdsEinzelartikelWarenuntergruppe.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelWarenuntergruppe.Name := 'xdsEinzelartikelWarenuntergruppe';\r\n    xdsEinzelartikelWarenuntergruppe.FieldName := 'Warenuntergruppe';\r\n    xdsEinzelartikelArtikelnummer.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArtikelnummer.Name := 'xdsEinzelartikelArtikelnummer';\r\n    xdsEinzelartikelArtikelnummer.FieldName := 'Artikelnummer';\r\n    xdsEinzelartikelArtikelnummer.Required := True;\r\n    xdsEinzelartikelArtikelnummer.Size := 25;\r\n    xdsEinzelartikelArtikelueberschrift.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArtikelueberschrift.Name := 'xdsEinzelartikelArtikelueberschrift';\r\n    xdsEinzelartikelArtikelueberschrift.FieldName := 'Artikelueberschrift';\r\n    xdsEinzelartikelArtikelueberschrift.Size := 50;\r\n    xdsEinzelartikelArtikelbeschreibung.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArtikelbeschreibung.Name := 'xdsEinzelartikelArtikelbeschreibung';\r\n    xdsEinzelartikelArtikelbeschreibung.FieldName := 'Artikelbeschreibung';\r\n    xdsEinzelartikelArtikelbeschreibung.Size := 255;\r\n    xdsEinzelartikelVerkaufspreis.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelVerkaufspreis.Name := 'xdsEinzelartikelVerkaufspreis';\r\n    xdsEinzelartikelVerkaufspreis.FieldName := 'Verkaufspreis';\r\n    xdsEinzelartikelMindestbestand.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelMindestbestand.Name := 'xdsEinzelartikelMindestbestand';\r\n    xdsEinzelartikelMindestbestand.FieldName := 'Mindestbestand';\r\n    xdsEinzelartikelPreisliste.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelPreisliste.Name := 'xdsEinzelartikelPreisliste';\r\n    xdsEinzelartikelPreisliste.FieldName := 'Preisliste';\r\n    xdsEinzelartikelPreisliste.Size := 150;\r\n    xdsEinzelartikelGewicht.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelGewicht.Name := 'xdsEinzelartikelGewicht';\r\n    xdsEinzelartikelGewicht.FieldName := 'Gewicht';\r\n    xdsEinzelartikelBreite.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelBreite.Name := 'xdsEinzelartikelBreite';\r\n    xdsEinzelartikelBreite.FieldName := 'Breite';\r\n    xdsEinzelartikelArtikelZusatz.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArtikelZusatz.Name := 'xdsEinzelartikelArtikelZusatz';\r\n    xdsEinzelartikelArtikelZusatz.FieldName := 'ArtikelZusatz';\r\n    xdsEinzelartikelArtikelZusatz.Size := 255;\r\n    xdsEinzelartikelLagerort.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelLagerort.Name := 'xdsEinzelartikelLagerort';\r\n    xdsEinzelartikelLagerort.FieldName := 'Lagerort';\r\n    xdsEinzelartikelLagerort.Size := 50;\r\n    xdsEinzelartikelBuchungskonto.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelBuchungskonto.Name := 'xdsEinzelartikelBuchungskonto';\r\n    xdsEinzelartikelBuchungskonto.FieldName := 'Buchungskonto';\r\n    xdsEinzelartikelEingangMenge.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelEingangMenge.Name := 'xdsEinzelartikelEingangMenge';\r\n    xdsEinzelartikelEingangMenge.FieldName := 'EingangMenge';\r\n    xdsEinzelartikelEingangEndpreis.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelEingangEndpreis.Name := 'xdsEinzelartikelEingangEndpreis';\r\n    xdsEinzelartikelEingangEndpreis.FieldName := 'EingangEndpreis';\r\n    xdsEinzelartikelAusgangMenge.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelAusgangMenge.Name := 'xdsEinzelartikelAusgangMenge';\r\n    xdsEinzelartikelAusgangMenge.FieldName := 'AusgangMenge';\r\n    xdsEinzelartikelAusgangEndpreisEK.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelAusgangEndpreisEK.Name := 'xdsEinzelartikelAusgangEndpreisEK';\r\n    xdsEinzelartikelAusgangEndpreisEK.FieldName := 'AusgangEndpreisEK';\r\n    xdsEinzelartikelAusgangEndpreisVK.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelAusgangEndpreisVK.Name := 'xdsEinzelartikelAusgangEndpreisVK';\r\n    xdsEinzelartikelAusgangEndpreisVK.FieldName := 'AusgangEndpreisVK';\r\n    xdsEinzelartikelBestand.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelBestand.Name := 'xdsEinzelartikelBestand';\r\n    xdsEinzelartikelBestand.FieldName := 'Bestand';\r\n    xdsEinzelartikelBestandswert.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelBestandswert.Name := 'xdsEinzelartikelBestandswert';\r\n    xdsEinzelartikelBestandswert.FieldName := 'Bestandswert';\r\n    xdsEinzelartikelMarge.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelMarge.Name := 'xdsEinzelartikelMarge';\r\n    xdsEinzelartikelMarge.FieldName := 'Marge';\r\n    xdsEinzelartikelMargeProzent.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelMargeProzent.Name := 'xdsEinzelartikelMargeProzent';\r\n    xdsEinzelartikelMargeProzent.FieldName := 'MargeProzent';\r\n    xdsEinzelartikelArtikelnummer2.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArtikelnummer2.Name := 'xdsEinzelartikelArtikelnummer2';\r\n    xdsEinzelartikelArtikelnummer2.FieldName := 'Artikelnummer2';\r\n    xdsEinzelartikelArtikelnummer2.Size := 25;\r\n    xdsEinzelartikelArtikelmatchcode.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArtikelmatchcode.Name := 'xdsEinzelartikelArtikelmatchcode';\r\n    xdsEinzelartikelArtikelmatchcode.FieldName := 'Artikelmatchcode';\r\n    xdsEinzelartikelArtikelmatchcode.Size := 30;\r\n    xdsEinzelartikelRabattpreis1.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelRabattpreis1.Name := 'xdsEinzelartikelRabattpreis1';\r\n    xdsEinzelartikelRabattpreis1.FieldName := 'Rabattpreis1';\r\n    xdsEinzelartikelRabattpreis2.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelRabattpreis2.Name := 'xdsEinzelartikelRabattpreis2';\r\n    xdsEinzelartikelRabattpreis2.FieldName := 'Rabattpreis2';\r\n    xdsEinzelartikelRabattpreis3.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelRabattpreis3.Name := 'xdsEinzelartikelRabattpreis3';\r\n    xdsEinzelartikelRabattpreis3.FieldName := 'Rabattpreis3';\r\n    xdsEinzelartikelRabattpreis4.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelRabattpreis4.Name := 'xdsEinzelartikelRabattpreis4';\r\n    xdsEinzelartikelRabattpreis4.FieldName := 'Rabattpreis4';\r\n    xdsEinzelartikelRabattpreis5.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelRabattpreis5.Name := 'xdsEinzelartikelRabattpreis5';\r\n    xdsEinzelartikelRabattpreis5.FieldName := 'Rabattpreis5';\r\n    xdsEinzelartikelArtikelnichtmehrgueltig.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArtikelnichtmehrgueltig.Name := 'xdsEinzelartikelArtikelnichtmehrgueltig';\r\n    xdsEinzelartikelArtikelnichtmehrgueltig.FieldName := 'Artikelnichtmehrgueltig';\r\n    xdsEinzelartikelEinkaufspreis.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelEinkaufspreis.Name := 'xdsEinzelartikelEinkaufspreis';\r\n    xdsEinzelartikelEinkaufspreis.FieldName := 'Einkaufspreis';\r\n    xdsEinzelartikelAufschlag.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelAufschlag.Name := 'xdsEinzelartikelAufschlag';\r\n    xdsEinzelartikelAufschlag.FieldName := 'Aufschlag';\r\n    xdsEinzelartikelWarenbestand.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelWarenbestand.Name := 'xdsEinzelartikelWarenbestand';\r\n    xdsEinzelartikelWarenbestand.FieldName := 'Warenbestand';\r\n    xdsEinzelartikelTextfrei10.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelTextfrei10.Name := 'xdsEinzelartikelTextfrei10';\r\n    xdsEinzelartikelTextfrei10.FieldName := 'Textfrei10';\r\n    xdsEinzelartikelTextfrei10.Size := 50;\r\n    xdsEinzelartikelTextfrei20.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelTextfrei20.Name := 'xdsEinzelartikelTextfrei20';\r\n    xdsEinzelartikelTextfrei20.FieldName := 'Textfrei20';\r\n    xdsEinzelartikelTextfrei20.Size := 50;\r\n    xdsEinzelartikelArtikelbeschreibungRTF.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArtikelbeschreibungRTF.Name := 'xdsEinzelartikelArtikelbeschreibungRTF';\r\n    xdsEinzelartikelArtikelbeschreibungRTF.FieldName := 'ArtikelbeschreibungRTF';\r\n    xdsEinzelartikelArtikelbeschreibungRTF.Size := 255;\r\n    xdsEinzelartikelArtikeldatei1.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArtikeldatei1.Name := 'xdsEinzelartikelArtikeldatei1';\r\n    xdsEinzelartikelArtikeldatei1.FieldName := 'Artikeldatei1';\r\n    xdsEinzelartikelArtikeldatei1.Size := 255;\r\n    xdsEinzelartikelArtikeldatei2.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArtikeldatei2.Name := 'xdsEinzelartikelArtikeldatei2';\r\n    xdsEinzelartikelArtikeldatei2.FieldName := 'Artikeldatei2';\r\n    xdsEinzelartikelArtikeldatei2.Size := 255;\r\n    xdsEinzelartikelArtikeldatei3.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArtikeldatei3.Name := 'xdsEinzelartikelArtikeldatei3';\r\n    xdsEinzelartikelArtikeldatei3.FieldName := 'Artikeldatei3';\r\n    xdsEinzelartikelArtikeldatei3.Size := 255;\r\n    xdsEinzelartikelArtikeldatei4.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArtikeldatei4.Name := 'xdsEinzelartikelArtikeldatei4';\r\n    xdsEinzelartikelArtikeldatei4.FieldName := 'Artikeldatei4';\r\n    xdsEinzelartikelArtikeldatei4.Size := 255;\r\n    xdsEinzelartikelArtikeldatei5.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArtikeldatei5.Name := 'xdsEinzelartikelArtikeldatei5';\r\n    xdsEinzelartikelArtikeldatei5.FieldName := 'Artikeldatei5';\r\n    xdsEinzelartikelArtikeldatei5.Size := 255;\r\n    xdsEinzelartikelEinkaufspreisVom.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelEinkaufspreisVom.Name := 'xdsEinzelartikelEinkaufspreisVom';\r\n    xdsEinzelartikelEinkaufspreisVom.FieldName := 'EinkaufspreisVom';\r\n    xdsEinzelartikelEAN.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelEAN.Name := 'xdsEinzelartikelEAN';\r\n    xdsEinzelartikelEAN.FieldName := 'EAN';\r\n    xdsEinzelartikelEAN.Size := 15;\r\n    xdsEinzelartikelVGPFaktor.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelVGPFaktor.Name := 'xdsEinzelartikelVGPFaktor';\r\n    xdsEinzelartikelVGPFaktor.FieldName := 'VGPFaktor';\r\n    xdsEinzelartikelVGPMengenart.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelVGPMengenart.Name := 'xdsEinzelartikelVGPMengenart';\r\n    xdsEinzelartikelVGPMengenart.FieldName := 'VGPMengenart';\r\n    xdsEinzelartikelVGPMengenart.Size := 50;\r\n    xdsEinzelartikelVerleihpreis.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelVerleihpreis.Name := 'xdsEinzelartikelVerleihpreis';\r\n    xdsEinzelartikelVerleihpreis.FieldName := 'Verleihpreis';\r\n    xdsEinzelartikelZusatzPreis.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelZusatzPreis.Name := 'xdsEinzelartikelZusatzPreis';\r\n    xdsEinzelartikelZusatzPreis.FieldName := 'ZusatzPreis';\r\n    xdsEinzelartikelVerpackungsart.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelVerpackungsart.Name := 'xdsEinzelartikelVerpackungsart';\r\n    xdsEinzelartikelVerpackungsart.FieldName := 'Verpackungsart';\r\n    xdsEinzelartikelVerpackungsart.Size := 50;\r\n    xdsEinzelartikelVerpackungsMenge.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelVerpackungsMenge.Name := 'xdsEinzelartikelVerpackungsMenge';\r\n    xdsEinzelartikelVerpackungsMenge.FieldName := 'VerpackungsMenge';\r\n    xdsEinzelartikelQuellartikel.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelQuellartikel.Name := 'xdsEinzelartikelQuellartikel';\r\n    xdsEinzelartikelQuellartikel.FieldName := 'Quellartikel';\r\n    xdsEinzelartikelQuellartikel.Size := 25;\r\n    xdsEinzelartikelrabattierfaehig.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelrabattierfaehig.Name := 'xdsEinzelartikelrabattierfaehig';\r\n    xdsEinzelartikelrabattierfaehig.FieldName := 'rabattierfaehig';\r\n    xdsEinzelartikelAngebotAlternativeAN.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelAngebotAlternativeAN.Name := 'xdsEinzelartikelAngebotAlternativeAN';\r\n    xdsEinzelartikelAngebotAlternativeAN.FieldName := 'AngebotAlternativeAN';\r\n    xdsEinzelartikelAngebotAlternativeAN.Size := 25;\r\n    xdsEinzelartikelPreisanteilNetto.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelPreisanteilNetto.Name := 'xdsEinzelartikelPreisanteilNetto';\r\n    xdsEinzelartikelPreisanteilNetto.FieldName := 'PreisanteilNetto';\r\n    xdsEinzelartikelFarbe.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelFarbe.Name := 'xdsEinzelartikelFarbe';\r\n    xdsEinzelartikelFarbe.FieldName := 'Farbe';\r\n    xdsEinzelartikelAEinkauf.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelAEinkauf.Name := 'xdsEinzelartikelAEinkauf';\r\n    xdsEinzelartikelAEinkauf.FieldName := 'AEinkauf';\r\n    xdsEinzelartikelAVerkauf.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelAVerkauf.Name := 'xdsEinzelartikelAVerkauf';\r\n    xdsEinzelartikelAVerkauf.FieldName := 'AVerkauf';\r\n    xdsEinzelartikelArtikelnummerLieferant.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArtikelnummerLieferant.Name := 'xdsEinzelartikelArtikelnummerLieferant';\r\n    xdsEinzelartikelArtikelnummerLieferant.FieldName := 'ArtikelnummerLieferant';\r\n    xdsEinzelartikelLieferantnummer.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelLieferantnummer.Name := 'xdsEinzelartikelLieferantnummer';\r\n    xdsEinzelartikelLieferantnummer.FieldName := 'Lieferantnummer';\r\n    xdsEinzelartikelLieferantnummer.Size := 13;\r\n    xdsEinzelartikelVerkaufspreisBrutto.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelVerkaufspreisBrutto.Name := 'xdsEinzelartikelVerkaufspreisBrutto';\r\n    xdsEinzelartikelVerkaufspreisBrutto.FieldName := 'VerkaufspreisBrutto';\r\n    xdsEinzelartikelArtikelSet.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArtikelSet.Name := 'xdsEinzelartikelArtikelSet';\r\n    xdsEinzelartikelArtikelSet.FieldName := 'ArtikelSet';\r\n    xdsEinzelartikelProvisionssatz.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelProvisionssatz.Name := 'xdsEinzelartikelProvisionssatz';\r\n    xdsEinzelartikelProvisionssatz.FieldName := 'Provisionssatz';\r\n    xdsEinzelartikelWarentarifnummer.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelWarentarifnummer.Name := 'xdsEinzelartikelWarentarifnummer';\r\n    xdsEinzelartikelWarentarifnummer.FieldName := 'Warentarifnummer';\r\n    xdsEinzelartikelHandelsartikel.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelHandelsartikel.Name := 'xdsEinzelartikelHandelsartikel';\r\n    xdsEinzelartikelHandelsartikel.FieldName := 'Handelsartikel';\r\n    xdsEinzelartikelUrsprungsland.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelUrsprungsland.Name := 'xdsEinzelartikelUrsprungsland';\r\n    xdsEinzelartikelUrsprungsland.FieldName := 'Ursprungsland';\r\n    xdsEinzelartikelUrsprungsland.Size := 5;\r\n    xdsEinzelartikelKategorie.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelKategorie.Name := 'xdsEinzelartikelKategorie';\r\n    xdsEinzelartikelKategorie.FieldName := 'Kategorie';\r\n    xdsEinzelartikelKategorie.Size := 25;\r\n    xdsEinzelartikelStandardRabattsatzEK.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelStandardRabattsatzEK.Name := 'xdsEinzelartikelStandardRabattsatzEK';\r\n    xdsEinzelartikelStandardRabattsatzEK.FieldName := 'StandardRabattsatzEK';\r\n    xdsEinzelartikelStandardRabattsatzVK.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelStandardRabattsatzVK.Name := 'xdsEinzelartikelStandardRabattsatzVK';\r\n    xdsEinzelartikelStandardRabattsatzVK.FieldName := 'StandardRabattsatzVK';\r\n    xdsEinzelartikelRabattpreiseManuell.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelRabattpreiseManuell.Name := 'xdsEinzelartikelRabattpreiseManuell';\r\n    xdsEinzelartikelRabattpreiseManuell.FieldName := 'RabattpreiseManuell';\r\n    xdsEinzelartikelMengeBestellt.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelMengeBestellt.Name := 'xdsEinzelartikelMengeBestellt';\r\n    xdsEinzelartikelMengeBestellt.FieldName := 'MengeBestellt';\r\n    xdsEinzelartikelMengeBeauftragt.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelMengeBeauftragt.Name := 'xdsEinzelartikelMengeBeauftragt';\r\n    xdsEinzelartikelMengeBeauftragt.FieldName := 'MengeBeauftragt';\r\n    xdsEinzelartikelBestandDisponiert.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelBestandDisponiert.Name := 'xdsEinzelartikelBestandDisponiert';\r\n    xdsEinzelartikelBestandDisponiert.FieldName := 'BestandDisponiert';\r\n    xdsEinzelartikelMengeAngeboten.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelMengeAngeboten.Name := 'xdsEinzelartikelMengeAngeboten';\r\n    xdsEinzelartikelMengeAngeboten.FieldName := 'MengeAngeboten';\r\n    xdsEinzelartikelBestandDispInclAngebot.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelBestandDispInclAngebot.Name := 'xdsEinzelartikelBestandDispInclAngebot';\r\n    xdsEinzelartikelBestandDispInclAngebot.FieldName := 'BestandDispInclAngebot';\r\n    xdsEinzelartikelMWStKey.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelMWStKey.Name := 'xdsEinzelartikelMWStKey';\r\n    xdsEinzelartikelMWStKey.FieldName := 'MWStKey';\r\n    xdsEinzelartikelShopAmazon.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelShopAmazon.Name := 'xdsEinzelartikelShopAmazon';\r\n    xdsEinzelartikelShopAmazon.FieldName := 'ShopAmazon';\r\n    xdsEinzelartikelShopQuelle.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelShopQuelle.Name := 'xdsEinzelartikelShopQuelle';\r\n    xdsEinzelartikelShopQuelle.FieldName := 'ShopQuelle';\r\n    xdsEinzelartikelGeraet.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelGeraet.Name := 'xdsEinzelartikelGeraet';\r\n    xdsEinzelartikelGeraet.FieldName := 'Geraet';\r\n    xdsEinzelartikelArtgewicht.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArtgewicht.Name := 'xdsEinzelartikelArtgewicht';\r\n    xdsEinzelartikelArtgewicht.FieldName := 'Artgewicht';\r\n    xdsEinzelartikelVolumen.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelVolumen.Name := 'xdsEinzelartikelVolumen';\r\n    xdsEinzelartikelVolumen.FieldName := 'Volumen';\r\n    xdsEinzelartikelPacklisteNichtAnzeigen.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelPacklisteNichtAnzeigen.Name := 'xdsEinzelartikelPacklisteNichtAnzeigen';\r\n    xdsEinzelartikelPacklisteNichtAnzeigen.FieldName := 'PacklisteNichtAnzeigen';\r\n    xdsEinzelartikelKeineAufschlagskalkulation.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelKeineAufschlagskalkulation.Name := 'xdsEinzelartikelKeineAufschlagskalkulation';\r\n    xdsEinzelartikelKeineAufschlagskalkulation.FieldName := 'KeineAufschlagskalkulation';\r\n    xdsEinzelartikelKorrekturMenge.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelKorrekturMenge.Name := 'xdsEinzelartikelKorrekturMenge';\r\n    xdsEinzelartikelKorrekturMenge.FieldName := 'KorrekturMenge';\r\n    xdsEinzelartikelKorrekturWert.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelKorrekturWert.Name := 'xdsEinzelartikelKorrekturWert';\r\n    xdsEinzelartikelKorrekturWert.FieldName := 'KorrekturWert';\r\n    xdsEinzelartikelNachfolgeartikel.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelNachfolgeartikel.Name := 'xdsEinzelartikelNachfolgeartikel';\r\n    xdsEinzelartikelNachfolgeartikel.FieldName := 'Nachfolgeartikel';\r\n    xdsEinzelartikelNachfolgeartikel.Size := 25;\r\n    xdsEinzelartikelMindestbestellmenge.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelMindestbestellmenge.Name := 'xdsEinzelartikelMindestbestellmenge';\r\n    xdsEinzelartikelMindestbestellmenge.FieldName := 'Mindestbestellmenge';\r\n    xdsEinzelartikelSchnittEK.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelSchnittEK.Name := 'xdsEinzelartikelSchnittEK';\r\n    xdsEinzelartikelSchnittEK.FieldName := 'SchnittEK';\r\n    xdsEinzelartikelVerkaufspreisVom.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelVerkaufspreisVom.Name := 'xdsEinzelartikelVerkaufspreisVom';\r\n    xdsEinzelartikelVerkaufspreisVom.FieldName := 'VerkaufspreisVom';\r\n    xdsEinzelartikelPruefungChargeSNR.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelPruefungChargeSNR.Name := 'xdsEinzelartikelPruefungChargeSNR';\r\n    xdsEinzelartikelPruefungChargeSNR.FieldName := 'PruefungChargeSNR';\r\n    xdsEinzelartikelArtikelbeschreibungHTML.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArtikelbeschreibungHTML.Name := 'xdsEinzelartikelArtikelbeschreibungHTML';\r\n    xdsEinzelartikelArtikelbeschreibungHTML.FieldName := 'ArtikelbeschreibungHTML';\r\n    xdsEinzelartikelArtikelbeschreibungHTML.Size := 255;\r\n    xdsEinzelartikelProduktKurzbeschreibungHTML.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelProduktKurzbeschreibungHTML.Name := 'xdsEinzelartikelProduktKurzbeschreibungHTML';\r\n    xdsEinzelartikelProduktKurzbeschreibungHTML.FieldName := 'ProduktKurzbeschreibungHTML';\r\n    xdsEinzelartikelProduktKurzbeschreibungHTML.Size := 255;\r\n    xdsEinzelartikelStatusFuerShop.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelStatusFuerShop.Name := 'xdsEinzelartikelStatusFuerShop';\r\n    xdsEinzelartikelStatusFuerShop.FieldName := 'StatusFuerShop';\r\n    xdsEinzelartikelStatusFuerShop.Size := 25;\r\n    xdsEinzelartikelAmpelFuerShop.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelAmpelFuerShop.Name := 'xdsEinzelartikelAmpelFuerShop';\r\n    xdsEinzelartikelAmpelFuerShop.FieldName := 'AmpelFuerShop';\r\n    xdsEinzelartikelAmpelFuerShop.Size := 25;\r\n    xdsEinzelartikelEXP_Anzahl.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelEXP_Anzahl.Name := 'xdsEinzelartikelEXP_Anzahl';\r\n    xdsEinzelartikelEXP_Anzahl.FieldName := 'EXP_Anzahl';\r\n    xdsEinzelartikelEXP_Inhalt.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelEXP_Inhalt.Name := 'xdsEinzelartikelEXP_Inhalt';\r\n    xdsEinzelartikelEXP_Inhalt.FieldName := 'EXP_Inhalt';\r\n    xdsEinzelartikelEXP_Faktor.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelEXP_Faktor.Name := 'xdsEinzelartikelEXP_Faktor';\r\n    xdsEinzelartikelEXP_Faktor.FieldName := 'EXP_Faktor';\r\n    xdsEinzelartikelFach.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelFach.Name := 'xdsEinzelartikelFach';\r\n    xdsEinzelartikelFach.FieldName := 'Fach';\r\n    xdsEinzelartikelExportKasse.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelExportKasse.Name := 'xdsEinzelartikelExportKasse';\r\n    xdsEinzelartikelExportKasse.FieldName := 'ExportKasse';\r\n    xdsEinzelartikelWKNR.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelWKNR.Name := 'xdsEinzelartikelWKNR';\r\n    xdsEinzelartikelWKNR.FieldName := 'WKNR';\r\n    xdsEinzelartikelArtikelAttribute.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArtikelAttribute.Name := 'xdsEinzelartikelArtikelAttribute';\r\n    xdsEinzelartikelArtikelAttribute.FieldName := 'ArtikelAttribute';\r\n    xdsEinzelartikelArtikelAttribute.Size := 255;\r\n    xdsEinzelartikelErstelltAm.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelErstelltAm.Name := 'xdsEinzelartikelErstelltAm';\r\n    xdsEinzelartikelErstelltAm.FieldName := 'ErstelltAm';\r\n    xdsEinzelartikelVarianteVonAN.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelVarianteVonAN.Name := 'xdsEinzelartikelVarianteVonAN';\r\n    xdsEinzelartikelVarianteVonAN.FieldName := 'VarianteVonAN';\r\n    xdsEinzelartikelVarianteVonAN.Size := 25;\r\n    xdsEinzelartikelGurtmassWerte.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelGurtmassWerte.Name := 'xdsEinzelartikelGurtmassWerte';\r\n    xdsEinzelartikelGurtmassWerte.FieldName := 'GurtmassWerte';\r\n    xdsEinzelartikelGurtmassWerte.Size := 250;\r\n    xdsEinzelartikelGurtmass.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelGurtmass.Name := 'xdsEinzelartikelGurtmass';\r\n    xdsEinzelartikelGurtmass.FieldName := 'Gurtmass';\r\n    xdsEinzelartikelAltersgrenze.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelAltersgrenze.Name := 'xdsEinzelartikelAltersgrenze';\r\n    xdsEinzelartikelAltersgrenze.FieldName := 'Altersgrenze';\r\n    xdsEinzelartikelMWStKeyImHaus.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelMWStKeyImHaus.Name := 'xdsEinzelartikelMWStKeyImHaus';\r\n    xdsEinzelartikelMWStKeyImHaus.FieldName := 'MWStKeyImHaus';\r\n    xdsEinzelartikelKasseBewegung.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelKasseBewegung.Name := 'xdsEinzelartikelKasseBewegung';\r\n    xdsEinzelartikelKasseBewegung.FieldName := 'KasseBewegung';\r\n    xdsEinzelartikelKasseBewegungEK.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelKasseBewegungEK.Name := 'xdsEinzelartikelKasseBewegungEK';\r\n    xdsEinzelartikelKasseBewegungEK.FieldName := 'KasseBewegungEK';\r\n    xdsEinzelartikelKasseBewegungVK.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelKasseBewegungVK.Name := 'xdsEinzelartikelKasseBewegungVK';\r\n    xdsEinzelartikelKasseBewegungVK.FieldName := 'KasseBewegungVK';\r\n    xdsEinzelartikelProduktionBewegung.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelProduktionBewegung.Name := 'xdsEinzelartikelProduktionBewegung';\r\n    xdsEinzelartikelProduktionBewegung.FieldName := 'ProduktionBewegung';\r\n    xdsEinzelartikelProduktionBewegungEK.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelProduktionBewegungEK.Name := 'xdsEinzelartikelProduktionBewegungEK';\r\n    xdsEinzelartikelProduktionBewegungEK.FieldName := 'ProduktionBewegungEK';\r\n    xdsEinzelartikelProduktionBewegungVK.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelProduktionBewegungVK.Name := 'xdsEinzelartikelProduktionBewegungVK';\r\n    xdsEinzelartikelProduktionBewegungVK.FieldName := 'ProduktionBewegungVK';\r\n    xdsEinzelartikelWaWiAB.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelWaWiAB.Name := 'xdsEinzelartikelWaWiAB';\r\n    xdsEinzelartikelWaWiAB.FieldName := 'WaWiAB';\r\n    xdsEinzelartikelGeaendertAm.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelGeaendertAm.Name := 'xdsEinzelartikelGeaendertAm';\r\n    xdsEinzelartikelGeaendertAm.FieldName := 'GeaendertAm';\r\n    xdsEinzelartikelGefahrgutKennzeichen.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelGefahrgutKennzeichen.Name := 'xdsEinzelartikelGefahrgutKennzeichen';\r\n    xdsEinzelartikelGefahrgutKennzeichen.FieldName := 'GefahrgutKennzeichen';\r\n    xdsEinzelartikelGefahrgutKennzeichen.Size := 50;\r\n    xdsEinzelartikelVerpackG.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelVerpackG.Name := 'xdsEinzelartikelVerpackG';\r\n    xdsEinzelartikelVerpackG.FieldName := 'VerpackG';\r\n    xdsEinzelartikelUPE.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelUPE.Name := 'xdsEinzelartikelUPE';\r\n    xdsEinzelartikelUPE.FieldName := 'UPE';\r\n    xdsEinzelartikelArtikelbeschreibungEinkauf.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArtikelbeschreibungEinkauf.Name := 'xdsEinzelartikelArtikelbeschreibungEinkauf';\r\n    xdsEinzelartikelArtikelbeschreibungEinkauf.FieldName := 'ArtikelbeschreibungEinkauf';\r\n    xdsEinzelartikelArtikelbeschreibungEinkauf.Size := 255;\r\n    xdsEinzelartikelHerstellerArtikelnummer.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelHerstellerArtikelnummer.Name := 'xdsEinzelartikelHerstellerArtikelnummer';\r\n    xdsEinzelartikelHerstellerArtikelnummer.FieldName := 'HerstellerArtikelnummer';\r\n    xdsEinzelartikelHerstellerArtikelnummer.Size := 25;\r\n    xdsEinzelartikelNatura.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelNatura.Name := 'xdsEinzelartikelNatura';\r\n    xdsEinzelartikelNatura.FieldName := 'Natura';\r\n    xdsEinzelartikelNatura.Size := 2;\r\n    xdsEinzelartikelArbeitszeit.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArbeitszeit.Name := 'xdsEinzelartikelArbeitszeit';\r\n    xdsEinzelartikelArbeitszeit.FieldName := 'Arbeitszeit';\r\n    xdsEinzelartikelWarengruppeWarengruppe.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelWarengruppeWarengruppe.Name := 'xdsEinzelartikelWarengruppeWarengruppe';\r\n    xdsEinzelartikelWarengruppeWarengruppe.FieldName := 'Warengruppe.Warengruppe';\r\n    xdsEinzelartikelWarengruppeWarengruppe.Size := 70;\r\n    xdsEinzelartikelLaenge.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelLaenge.Name := 'xdsEinzelartikelLaenge';\r\n    xdsEinzelartikelLaenge.FieldName := 'Laenge';\r\n    xdsEinzelartikelHoehe.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelHoehe.Name := 'xdsEinzelartikelHoehe';\r\n    xdsEinzelartikelHoehe.FieldName := 'Hoehe';\r\n    xdsEinzelartikelArtderMengeArtderMenge.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArtderMengeArtderMenge.Name := 'xdsEinzelartikelArtderMengeArtderMenge';\r\n    xdsEinzelartikelArtderMengeArtderMenge.FieldName := 'ArtderMenge.ArtderMenge';\r\n    xdsEinzelartikelArtderMengeArtderMenge.Size := 50;\r\n    xdsEinzelartikelHerstellerHersteller.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelHerstellerHersteller.Name := 'xdsEinzelartikelHerstellerHersteller';\r\n    xdsEinzelartikelHerstellerHersteller.FieldName := 'Hersteller.Hersteller';\r\n    xdsEinzelartikelHerstellerHersteller.Size := 25;\r\n    xdsEinzelartikelHerstellerHerstellerID.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelHerstellerHerstellerID.Name := 'xdsEinzelartikelHerstellerHerstellerID';\r\n    xdsEinzelartikelHerstellerHerstellerID.FieldName := 'Hersteller.HerstellerID';\r\n    xdsEinzelartikelHerstellerHerstellerID.Size := 50;\r\n    xdsEinzelartikelHerstellerHerstellerURL.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelHerstellerHerstellerURL.Name := 'xdsEinzelartikelHerstellerHerstellerURL';\r\n    xdsEinzelartikelHerstellerHerstellerURL.FieldName := 'Hersteller.HerstellerURL';\r\n    xdsEinzelartikelHerstellerHerstellerURL.Size := 100;\r\n    xdsEinzelartikelArtderMengeISO3.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArtderMengeISO3.Name := 'xdsEinzelartikelArtderMengeISO3';\r\n    xdsEinzelartikelArtderMengeISO3.FieldName := 'ArtderMenge.ISO3';\r\n    xdsEinzelartikelArtderMengeISO3.Size := 3;\r\n    xdsEinzelartikelArtderMengeMengenauswahl.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArtderMengeMengenauswahl.Name := 'xdsEinzelartikelArtderMengeMengenauswahl';\r\n    xdsEinzelartikelArtderMengeMengenauswahl.FieldName := 'ArtderMenge.Mengenauswahl';\r\n    xdsEinzelartikelArtderMengeVGPauswahl.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArtderMengeVGPauswahl.Name := 'xdsEinzelartikelArtderMengeVGPauswahl';\r\n    xdsEinzelartikelArtderMengeVGPauswahl.FieldName := 'ArtderMenge.VGPauswahl';\r\n    xdsEinzelartikelArtderMengeUVPauswahl.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArtderMengeUVPauswahl.Name := 'xdsEinzelartikelArtderMengeUVPauswahl';\r\n    xdsEinzelartikelArtderMengeUVPauswahl.FieldName := 'ArtderMenge.UVPauswahl';\r\n    xdsEinzelartikelArtderMengeVKPDivisor.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelArtderMengeVKPDivisor.Name := 'xdsEinzelartikelArtderMengeVKPDivisor';\r\n    xdsEinzelartikelArtderMengeVKPDivisor.FieldName := 'ArtderMenge.VKPDivisor';\r\n    xdsEinzelartikelPfandArtPfandArt.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelPfandArtPfandArt.Name := 'xdsEinzelartikelPfandArtPfandArt';\r\n    xdsEinzelartikelPfandArtPfandArt.FieldName := 'PfandArt.PfandArt';\r\n    xdsEinzelartikelPfandArtPfandArt.Size := 50;\r\n    xdsEinzelartikelPfandArtPfandWert.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelPfandArtPfandWert.Name := 'xdsEinzelartikelPfandArtPfandWert';\r\n    xdsEinzelartikelPfandArtPfandWert.FieldName := 'PfandArt.PfandWert';\r\n    xdsEinzelartikelPfandArtPfandwertEK.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelPfandArtPfandwertEK.Name := 'xdsEinzelartikelPfandArtPfandwertEK';\r\n    xdsEinzelartikelPfandArtPfandwertEK.FieldName := 'PfandArt.PfandwertEK';\r\n    xdsEinzelartikelWarengruppeWGNR.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelWarengruppeWGNR.Name := 'xdsEinzelartikelWarengruppeWGNR';\r\n    xdsEinzelartikelWarengruppeWGNR.FieldName := 'Warengruppe.WGNR';\r\n    xdsEinzelartikelWarenuntergruppeWarenuntergruppe.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelWarenuntergruppeWarenuntergruppe.Name := 'xdsEinzelartikelWarenuntergruppeWarenuntergruppe';\r\n    xdsEinzelartikelWarenuntergruppeWarenuntergruppe.FieldName := 'Warenuntergruppe.Warenuntergruppe';\r\n    xdsEinzelartikelWarenuntergruppeWarenuntergruppe.Size := 70;\r\n    xdsEinzelartikelWarenuntergruppeWarengruppe.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelWarenuntergruppeWarengruppe.Name := 'xdsEinzelartikelWarenuntergruppeWarengruppe';\r\n    xdsEinzelartikelWarenuntergruppeWarengruppe.FieldName := 'Warenuntergruppe.Warengruppe';\r\n    xdsEinzelartikelWarenuntergruppeWarengruppe.Size := 70;\r\n    xdsEinzelartikelWarenuntergruppeWUGNR.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelWarenuntergruppeWUGNR.Name := 'xdsEinzelartikelWarenuntergruppeWUGNR';\r\n    xdsEinzelartikelWarenuntergruppeWUGNR.FieldName := 'Warenuntergruppe.WUGNR';\r\n    xdsEinzelartikelWarenuntergruppeWGNR.SetParentComponent(xdsEinzelartikel);\r\n    xdsEinzelartikelWarenuntergruppeWGNR.Name := 'xdsEinzelartikelWarenuntergruppeWGNR';\r\n    xdsEinzelartikelWarenuntergruppeWGNR.FieldName := 'Warenuntergruppe.WGNR';\r\n    sourceEinzelartikel.SetParentComponent(Self);\r\n    sourceEinzelartikel.Name := 'sourceEinzelartikel';\r\n    sourceEinzelartikel.DataSet := xdsEinzelartikel;\r\n    sourceEinzelartikel.Left := 20;\r\n    sourceEinzelartikel.Top := 21;\r\n    WClient.SetParentComponent(Self);\r\n    WClient.Name := 'WClient';\r\n    WClient.Connection := DM2.XDataWebConnection1;\r\n    WClient.Left := 144;\r\n    WClient.Top := 24;\r\n  finally\r\n    WebLabel1.AfterLoadDFMValues;\r\n    TC.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    btnSpeichern.AfterLoadDFMValues;\r\n    edtBMenge.AfterLoadDFMValues;\r\n    edtArtikelnummer.AfterLoadDFMValues;\r\n    btnEtikettendruck.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    xdsEinzelartikel.AfterLoadDFMValues;\r\n    xdsEinzelartikelHersteller.AfterLoadDFMValues;\r\n    xdsEinzelartikelArtderMenge.AfterLoadDFMValues;\r\n    xdsEinzelartikelPfandArt.AfterLoadDFMValues;\r\n    xdsEinzelartikelWarengruppe.AfterLoadDFMValues;\r\n    xdsEinzelartikelWarenuntergruppe.AfterLoadDFMValues;\r\n    xdsEinzelartikelArtikelnummer.AfterLoadDFMValues;\r\n    xdsEinzelartikelArtikelueberschrift.AfterLoadDFMValues;\r\n    xdsEinzelartikelArtikelbeschreibung.AfterLoadDFMValues;\r\n    xdsEinzelartikelVerkaufspreis.AfterLoadDFMValues;\r\n    xdsEinzelartikelMindestbestand.AfterLoadDFMValues;\r\n    xdsEinzelartikelPreisliste.AfterLoadDFMValues;\r\n    xdsEinzelartikelGewicht.AfterLoadDFMValues;\r\n    xdsEinzelartikelBreite.AfterLoadDFMValues;\r\n    xdsEinzelartikelArtikelZusatz.AfterLoadDFMValues;\r\n    xdsEinzelartikelLagerort.AfterLoadDFMValues;\r\n    xdsEinzelartikelBuchungskonto.AfterLoadDFMValues;\r\n    xdsEinzelartikelEingangMenge.AfterLoadDFMValues;\r\n    xdsEinzelartikelEingangEndpreis.AfterLoadDFMValues;\r\n    xdsEinzelartikelAusgangMenge.AfterLoadDFMValues;\r\n    xdsEinzelartikelAusgangEndpreisEK.AfterLoadDFMValues;\r\n    xdsEinzelartikelAusgangEndpreisVK.AfterLoadDFMValues;\r\n    xdsEinzelartikelBestand.AfterLoadDFMValues;\r\n    xdsEinzelartikelBestandswert.AfterLoadDFMValues;\r\n    xdsEinzelartikelMarge.AfterLoadDFMValues;\r\n    xdsEinzelartikelMargeProzent.AfterLoadDFMValues;\r\n    xdsEinzelartikelArtikelnummer2.AfterLoadDFMValues;\r\n    xdsEinzelartikelArtikelmatchcode.AfterLoadDFMValues;\r\n    xdsEinzelartikelRabattpreis1.AfterLoadDFMValues;\r\n    xdsEinzelartikelRabattpreis2.AfterLoadDFMValues;\r\n    xdsEinzelartikelRabattpreis3.AfterLoadDFMValues;\r\n    xdsEinzelartikelRabattpreis4.AfterLoadDFMValues;\r\n    xdsEinzelartikelRabattpreis5.AfterLoadDFMValues;\r\n    xdsEinzelartikelArtikelnichtmehrgueltig.AfterLoadDFMValues;\r\n    xdsEinzelartikelEinkaufspreis.AfterLoadDFMValues;\r\n    xdsEinzelartikelAufschlag.AfterLoadDFMValues;\r\n    xdsEinzelartikelWarenbestand.AfterLoadDFMValues;\r\n    xdsEinzelartikelTextfrei10.AfterLoadDFMValues;\r\n    xdsEinzelartikelTextfrei20.AfterLoadDFMValues;\r\n    xdsEinzelartikelArtikelbeschreibungRTF.AfterLoadDFMValues;\r\n    xdsEinzelartikelArtikeldatei1.AfterLoadDFMValues;\r\n    xdsEinzelartikelArtikeldatei2.AfterLoadDFMValues;\r\n    xdsEinzelartikelArtikeldatei3.AfterLoadDFMValues;\r\n    xdsEinzelartikelArtikeldatei4.AfterLoadDFMValues;\r\n    xdsEinzelartikelArtikeldatei5.AfterLoadDFMValues;\r\n    xdsEinzelartikelEinkaufspreisVom.AfterLoadDFMValues;\r\n    xdsEinzelartikelEAN.AfterLoadDFMValues;\r\n    xdsEinzelartikelVGPFaktor.AfterLoadDFMValues;\r\n    xdsEinzelartikelVGPMengenart.AfterLoadDFMValues;\r\n    xdsEinzelartikelVerleihpreis.AfterLoadDFMValues;\r\n    xdsEinzelartikelZusatzPreis.AfterLoadDFMValues;\r\n    xdsEinzelartikelVerpackungsart.AfterLoadDFMValues;\r\n    xdsEinzelartikelVerpackungsMenge.AfterLoadDFMValues;\r\n    xdsEinzelartikelQuellartikel.AfterLoadDFMValues;\r\n    xdsEinzelartikelrabattierfaehig.AfterLoadDFMValues;\r\n    xdsEinzelartikelAngebotAlternativeAN.AfterLoadDFMValues;\r\n    xdsEinzelartikelPreisanteilNetto.AfterLoadDFMValues;\r\n    xdsEinzelartikelFarbe.AfterLoadDFMValues;\r\n    xdsEinzelartikelAEinkauf.AfterLoadDFMValues;\r\n    xdsEinzelartikelAVerkauf.AfterLoadDFMValues;\r\n    xdsEinzelartikelArtikelnummerLieferant.AfterLoadDFMValues;\r\n    xdsEinzelartikelLieferantnummer.AfterLoadDFMValues;\r\n    xdsEinzelartikelVerkaufspreisBrutto.AfterLoadDFMValues;\r\n    xdsEinzelartikelArtikelSet.AfterLoadDFMValues;\r\n    xdsEinzelartikelProvisionssatz.AfterLoadDFMValues;\r\n    xdsEinzelartikelWarentarifnummer.AfterLoadDFMValues;\r\n    xdsEinzelartikelHandelsartikel.AfterLoadDFMValues;\r\n    xdsEinzelartikelUrsprungsland.AfterLoadDFMValues;\r\n    xdsEinzelartikelKategorie.AfterLoadDFMValues;\r\n    xdsEinzelartikelStandardRabattsatzEK.AfterLoadDFMValues;\r\n    xdsEinzelartikelStandardRabattsatzVK.AfterLoadDFMValues;\r\n    xdsEinzelartikelRabattpreiseManuell.AfterLoadDFMValues;\r\n    xdsEinzelartikelMengeBestellt.AfterLoadDFMValues;\r\n    xdsEinzelartikelMengeBeauftragt.AfterLoadDFMValues;\r\n    xdsEinzelartikelBestandDisponiert.AfterLoadDFMValues;\r\n    xdsEinzelartikelMengeAngeboten.AfterLoadDFMValues;\r\n    xdsEinzelartikelBestandDispInclAngebot.AfterLoadDFMValues;\r\n    xdsEinzelartikelMWStKey.AfterLoadDFMValues;\r\n    xdsEinzelartikelShopAmazon.AfterLoadDFMValues;\r\n    xdsEinzelartikelShopQuelle.AfterLoadDFMValues;\r\n    xdsEinzelartikelGeraet.AfterLoadDFMValues;\r\n    xdsEinzelartikelArtgewicht.AfterLoadDFMValues;\r\n    xdsEinzelartikelVolumen.AfterLoadDFMValues;\r\n    xdsEinzelartikelPacklisteNichtAnzeigen.AfterLoadDFMValues;\r\n    xdsEinzelartikelKeineAufschlagskalkulation.AfterLoadDFMValues;\r\n    xdsEinzelartikelKorrekturMenge.AfterLoadDFMValues;\r\n    xdsEinzelartikelKorrekturWert.AfterLoadDFMValues;\r\n    xdsEinzelartikelNachfolgeartikel.AfterLoadDFMValues;\r\n    xdsEinzelartikelMindestbestellmenge.AfterLoadDFMValues;\r\n    xdsEinzelartikelSchnittEK.AfterLoadDFMValues;\r\n    xdsEinzelartikelVerkaufspreisVom.AfterLoadDFMValues;\r\n    xdsEinzelartikelPruefungChargeSNR.AfterLoadDFMValues;\r\n    xdsEinzelartikelArtikelbeschreibungHTML.AfterLoadDFMValues;\r\n    xdsEinzelartikelProduktKurzbeschreibungHTML.AfterLoadDFMValues;\r\n    xdsEinzelartikelStatusFuerShop.AfterLoadDFMValues;\r\n    xdsEinzelartikelAmpelFuerShop.AfterLoadDFMValues;\r\n    xdsEinzelartikelEXP_Anzahl.AfterLoadDFMValues;\r\n    xdsEinzelartikelEXP_Inhalt.AfterLoadDFMValues;\r\n    xdsEinzelartikelEXP_Faktor.AfterLoadDFMValues;\r\n    xdsEinzelartikelFach.AfterLoadDFMValues;\r\n    xdsEinzelartikelExportKasse.AfterLoadDFMValues;\r\n    xdsEinzelartikelWKNR.AfterLoadDFMValues;\r\n    xdsEinzelartikelArtikelAttribute.AfterLoadDFMValues;\r\n    xdsEinzelartikelErstelltAm.AfterLoadDFMValues;\r\n    xdsEinzelartikelVarianteVonAN.AfterLoadDFMValues;\r\n    xdsEinzelartikelGurtmassWerte.AfterLoadDFMValues;\r\n    xdsEinzelartikelGurtmass.AfterLoadDFMValues;\r\n    xdsEinzelartikelAltersgrenze.AfterLoadDFMValues;\r\n    xdsEinzelartikelMWStKeyImHaus.AfterLoadDFMValues;\r\n    xdsEinzelartikelKasseBewegung.AfterLoadDFMValues;\r\n    xdsEinzelartikelKasseBewegungEK.AfterLoadDFMValues;\r\n    xdsEinzelartikelKasseBewegungVK.AfterLoadDFMValues;\r\n    xdsEinzelartikelProduktionBewegung.AfterLoadDFMValues;\r\n    xdsEinzelartikelProduktionBewegungEK.AfterLoadDFMValues;\r\n    xdsEinzelartikelProduktionBewegungVK.AfterLoadDFMValues;\r\n    xdsEinzelartikelWaWiAB.AfterLoadDFMValues;\r\n    xdsEinzelartikelGeaendertAm.AfterLoadDFMValues;\r\n    xdsEinzelartikelGefahrgutKennzeichen.AfterLoadDFMValues;\r\n    xdsEinzelartikelVerpackG.AfterLoadDFMValues;\r\n    xdsEinzelartikelUPE.AfterLoadDFMValues;\r\n    xdsEinzelartikelArtikelbeschreibungEinkauf.AfterLoadDFMValues;\r\n    xdsEinzelartikelHerstellerArtikelnummer.AfterLoadDFMValues;\r\n    xdsEinzelartikelNatura.AfterLoadDFMValues;\r\n    xdsEinzelartikelArbeitszeit.AfterLoadDFMValues;\r\n    xdsEinzelartikelWarengruppeWarengruppe.AfterLoadDFMValues;\r\n    xdsEinzelartikelLaenge.AfterLoadDFMValues;\r\n    xdsEinzelartikelHoehe.AfterLoadDFMValues;\r\n    xdsEinzelartikelArtderMengeArtderMenge.AfterLoadDFMValues;\r\n    xdsEinzelartikelHerstellerHersteller.AfterLoadDFMValues;\r\n    xdsEinzelartikelHerstellerHerstellerID.AfterLoadDFMValues;\r\n    xdsEinzelartikelHerstellerHerstellerURL.AfterLoadDFMValues;\r\n    xdsEinzelartikelArtderMengeISO3.AfterLoadDFMValues;\r\n    xdsEinzelartikelArtderMengeMengenauswahl.AfterLoadDFMValues;\r\n    xdsEinzelartikelArtderMengeVGPauswahl.AfterLoadDFMValues;\r\n    xdsEinzelartikelArtderMengeUVPauswahl.AfterLoadDFMValues;\r\n    xdsEinzelartikelArtderMengeVKPDivisor.AfterLoadDFMValues;\r\n    xdsEinzelartikelPfandArtPfandArt.AfterLoadDFMValues;\r\n    xdsEinzelartikelPfandArtPfandWert.AfterLoadDFMValues;\r\n    xdsEinzelartikelPfandArtPfandwertEK.AfterLoadDFMValues;\r\n    xdsEinzelartikelWarengruppeWGNR.AfterLoadDFMValues;\r\n    xdsEinzelartikelWarenuntergruppeWarenuntergruppe.AfterLoadDFMValues;\r\n    xdsEinzelartikelWarenuntergruppeWarengruppe.AfterLoadDFMValues;\r\n    xdsEinzelartikelWarenuntergruppeWUGNR.AfterLoadDFMValues;\r\n    xdsEinzelartikelWarenuntergruppeWGNR.AfterLoadDFMValues;\r\n    sourceEinzelartikel.AfterLoadDFMValues;\r\n    WClient.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.","unit libfilereader;\r\n\r\n{$mode objfpc}\r\n{$modeswitch externalclass}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, JS, Web;\r\n\r\ntype\r\n  //FileReader helpers\r\n  TJSFileReader = class external name 'FileReader' (TJSEventTarget)\r\n  private\r\n    FResult: JSValue; external name 'result';\r\n  public\r\n    constructor new;\r\n    procedure readAsBinaryString(aFile: TJSHtmlFile);\r\n    property result : JSValue read FResult;\r\n  end;\r\n\r\n  TFileReaderReadDoneEvent = procedure(aFileName: string; AResult: JSValue) of object;\r\n\r\n  TFileReader = class(TComponent)\r\n    FOnReadDone: TFileReaderReadDoneEvent;\r\n  public\r\n    constructor Create(AOwner: TComponent); overload; override;\r\n    procedure readAsBinaryString(AFile: TJSHtmlFile);\r\n    function doOnLoad(Event: TEventListenerEvent): boolean;\r\n\r\n    property OnReadDone: TFileReaderReadDoneEvent read FOnReadDone write FOnReadDone;\r\n  end;\r\n\r\n  TWebFileReader = class(TFileReader); {nopp}\r\n\r\nimplementation\r\n\r\nconstructor TFileReader.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure setFileName(var aRdr: TJSFileReader; aFileName: string);\r\nbegin\r\n  TJSObject(aRdr)['fname'] := aFileName;\r\nend;\r\n\r\nfunction getFileName(var aRdr: TJSFileReader): string;\r\nbegin\r\n  Result := string(TJSObject(aRdr)['fname']);\r\nend;\r\n\r\nprocedure TFileReader.readAsBinaryString(aFile: TJSHtmlFile);\r\nvar\r\n  aFileReader: TJSFileReader;\r\nbegin\r\n  aFileReader := TJSFileReader.New;\r\n  setFileName(aFileReader, aFile.name);\r\n  aFileReader.addEventListener('load',@doOnLoad);\r\n  aFileReader.readAsBinaryString(aFile);\r\nend;\r\n\r\nfunction TFileReader.doOnLoad(Event: TEventListenerEvent): boolean;\r\nvar\r\n  aReader: TJSFileReader;\r\nbegin\r\n  aReader := Event.target as TJSFileReader;\r\n  if Assigned(FOnReadDone) then\r\n    FOnReadDone(getFileName(aReader), aReader.result);\r\n  Result := true;\r\nend;\r\n\r\nend.\r\n","unit libglmatrix;\r\n\r\n{$mode objfpc}\r\n{$modeswitch externalclass}\r\n\r\ninterface\r\n\r\nuses\r\n  classes, JS, Web;\r\n\r\ntype\r\n  TJSGLMat4 = class external name 'mat4' (TJSObject)\r\n    class function create: TJSObject;\r\n    class procedure perspective(aout: TJSObject; fovy, aspect, anear, afar: double);\r\n    class procedure translate(aout: TJSObject; a: TJSObject; v: TJSFloat32Array);\r\n    class procedure rotate(aout: TJSObject; a: TJSObject; rad: double; axis: TJSFloat32Array);\r\n    class procedure copy(aout: TJSObject; a: TJSObject);\r\n    class function clone(a: TJSObject): TJSObject;\r\n  end;\r\n\r\n  TFrameRequestMethodCallback = procedure (aTime: TJSDOMHighResTimeStamp) of object;\r\n\r\n  TJSAnimWindow = class external name 'window' (TJSObject)\r\n  public\r\n    class function requestAnimationFrame(aCallback: TFrameRequestMethodCallback): Integer;\r\n  end;\r\n\r\n\r\nimplementation\r\n\r\n\r\nend.\r\n","unit libmedia;\r\n\r\ninterface\r\n\r\n{$mode objfpc}\r\n{$modeswitch externalclass}\r\n{$DEFINE NOPP}\r\n\r\nuses\r\n  Web, JS, Classes, Types;\r\n\r\ntype\r\n  TWebMediaStreamTrack = class external name 'MediaStreamTrack'\r\n    procedure stop;\r\n    function applyConstraints: TJSPromise; overload;\r\n    function applyConstraints(aConstraints: TJSObject): TJSPromise; overload;\r\n    function getConstraints: TJSObject;\r\n    function getCapabilities: TJSObject;\r\n    function getSettings: TJSObject;\r\n  end;\r\n\r\n  TJSMediaStreamTrackEx = TWebMediaStreamTrack;\r\n\r\n  TWebMediaStream = class external name 'MediaStream' (TJSObject)\r\n    procedure addTrack(aTrack: TWebMediaStreamTrack);\r\n    function getAudioTracks: TJSArray;\r\n    function getTracks: TJSArray;\r\n    function getVideoTracks: TJSArray;\r\n  end;\r\n\r\n  TJSMediaStreamEx = TWebMediaStream;\r\n\r\n  TWebAudioNode = class external name 'AudioNode'\r\n    function connect(aDestination: TWebAudioNode): TWebAudioNode;\r\n    procedure disconnect; overload;\r\n    procedure disconnect(aDestination: TWebAudioNode); overload;\r\n  end;\r\n\r\n  TWebAnalyserNode = class external name 'AnalyserNode' (TWebAudioNode)\r\n  private\r\n    FFFTSize: NativeInt; external name 'fftSize';\r\n    FFrequencyBinCount: NativeInt; external name 'frequencyBinCount';\r\n    FMaxDecibels: Double; external name 'maxDecibels';\r\n    FMinDecibels: Double; external name 'minDecibels';\r\n    FSmoothingTimeConstant: Double; external name 'smoothingTimeConstant';\r\n  public\r\n    procedure getFloatFrequencyData(aData: TJSFloat32Array);\r\n    procedure getByteFrequencyData(aData: TJSUint8Array);\r\n    procedure getFloatTimeDomainData(aData: TJSFloat32Array);\r\n    procedure getByteTimeDomainData(aData: TJSUint8Array);\r\n    property FFTSize: NativeInt read FFFTSize write FFFTSize;\r\n    property FrequencyBinCount: NativeInt read FFrequencyBinCount;\r\n    property MaxDecibels: Double read FMaxDecibels write FMaxDecibels;\r\n    property MinDecibels: Double read FMinDecibels write FMinDecibels;\r\n    property SmoothingTimeConstant: Double read FSmoothingTimeConstant write FSmoothingTimeConstant;\r\n  end;\r\n\r\n  TJSAnalyserNodeEx = TWebAnalyserNode;\r\n\r\n  TWebMediaStreamAudioSourceNode = class external name 'MediaStreamAudioSourceNode' (TWebAudioNode)\r\n  end;\r\n\r\n  TJSMediaStreamAudioSourceNodeEx = TWebMediaStreamAudioSourceNode;\r\n\r\n  TWebBaseAudioContext = class external name 'BaseAudioContext'\r\n    function createAnalyser: TWebAnalyserNode;\r\n  end;\r\n\r\n  TJSBaseAudioContextEx = TWebBaseAudioContext;\r\n\r\n  TWebAudioContext = class external name 'AudioContext' (TWebBaseAudioContext)\r\n    function createMediaStreamSource(aStream: TWebMediaStream): TWebMediaStreamAudioSourceNode;\r\n    function resume: TJSPromise;\r\n  end;\r\n\r\n  TJSAudioContextEx = TWebAudioContext;\r\n\r\n  TWebMediaRecorderStopEvent = reference to procedure;\r\n\r\n  TWebMediaRecorder = class external name 'MediaRecorder' (TJSObject)\r\n    ondataavailable: TJSEventHandler;\r\n    onstop: TWebMediaRecorderStopEvent;\r\n    constructor new (aStream : TWebMediaStream); overload;\r\n    constructor new (aStream : TWebMediaStream; aOptions : TJSObject); overload;\r\n    procedure start;\r\n    procedure stop;\r\n  end;\r\n\r\n  TJSMediaRecorderEx = TWebMediaRecorder;\r\n\r\n  TWebHTMLMediaElement = class external name 'HTMLMediaElement' (TJSHTMLElement)\r\n    paused: Boolean;\r\n    srcObject: TJSObject;\r\n    procedure pause;\r\n    procedure play;\r\n  end;\r\n\r\n  TJSHTMLMediaElementEx = TWebHTMLMediaElement;\r\n\r\n  TWebHTMLVideoElement = class external name 'HTMLVideoElement' (TWebHTMLMediaElement)\r\n    videoHeight: NativeInt;\r\n    videoWidth: NativeInt;\r\n  end;\r\n\r\n  TJSHTMLVideoElementEx = TWebHTMLVideoElement;\r\n\r\n  TWebMediaDevicesInfo = class external name 'MediaDevicesInfo' (TJSObject)\r\n    deviceId: string;\r\n    kind: string;\r\n    &label: string;\r\n  end;\r\n\r\n  TJSMediaDevicesInfoEx = TWebMediaDevicesInfo;\r\n\r\n  TWebMediaDevices = class external name 'MediaDevices' (TJSEventTarget)\r\n    function enumerateDevices: TJSPromise;\r\n    function getUserMedia(aConstraints: TJSObject): TJSPromise;\r\n    function getSupportedConstraints: TJSObject;\r\n    function getDisplayMedia(aConstraints: TJSObject): TJSPromise;\r\n  end;\r\n\r\n  TJSMediaDevicesEx = TWebMediaDevices;\r\n\r\n  TWebJSQRResultObject = class external name 'QRCode' (TJSObject)\r\n    binaryData: TJSUint8ClampedArray;\r\n    data: string;\r\n  end;\r\n\r\n  TWebQuaggaJSConfigObject = class external name 'Object' (TJSObject)\r\n    decoder: TJSObject;\r\n    src: string; //can be url or base64 data string\r\n  end;\r\n\r\n  TWebQuaggaJSResultObject_CodeResult = class external name 'Object' (TJSObject)\r\n    code: string;\r\n  end;\r\n\r\n  TWebQuaggaJSResultObject = class external name 'Object' (TJSObject)\r\n    codeResult: TWebQuaggaJSResultObject_CodeResult;\r\n  end;\r\n\r\n  TWebQuaggaJSResultCallback = reference to procedure(data: TWebQuaggaJSResultObject);\r\n\r\n  TWebQuagga  = class external name 'Quagga' (TJSObject)\r\n    procedure decodeSingle(aConfig: TWebQuaggaJSConfigObject; aResultCallback: TWebQuaggaJSResultCallback);\r\n  end;\r\n\r\nfunction jsQR(aImageData: TJSUint8ClampedArray; aWidth: NativeInt; aHeight: NativeInt): TWebJSQRResultObject; external name 'jsQR';\r\n\r\nvar\r\n  Quagga: TWebQuagga; external name 'Quagga';\r\n\r\nimplementation\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            Copyright (c) 2019 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.Devices;\r\n\r\n{$DEFINE NOPP}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, SysUtils, WEBLib.Controls, Web, JS,\r\n  WEBLib.ExtCtrls, WEBLib.Graphics, libfilereader, libglmatrix, libmedia;\r\n\r\ntype\r\n  TCameraType = (ctFront, ctRear, ctSelected);\r\n  TCameraBaseFormat = (cbfJPEG, cbfPNG);\r\n\r\n  TCameraDevice = class(TCollectionItem)\r\n  private\r\n    FId: string;\r\n    FName: string;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    property Id: string read FId write FId;\r\n    property Name: string read FName write FName;\r\n  end;\r\n\r\n  TCameraDevices = class(TCollection)\r\n  private\r\n    procedure SetItem(Index: Integer; const Value: TCameraDevice); reintroduce;\r\n    function GetItem(Index: Integer): TCameraDevice; reintroduce;\r\n  public\r\n    constructor Create;\r\n    function Add: TCameraDevice; reintroduce;\r\n    function GetDeviceById(Id: string): TCameraDevice;\r\n    function GetDeviceByName(Name: string): TCameraDevice;\r\n    function Insert(Index: Integer): TCameraDevice; reintroduce;\r\n    property Items[Index: integer]: TCameraDevice read GetItem write SetItem;\r\n  end;\r\n\r\n  TCameraErrorEvent = procedure(Sender: TObject; AName: string; AMessage: string) of object;\r\n  TCameraEvent = procedure(Sender: TObject; ACamera: TCameraDevice) of object;\r\n  TCameraBeforeStartEvent = procedure(Sender: TObject; var AConstraints: TJSObjectRecord) of object;\r\n\r\n  TCamera = class(TCustomControl)\r\n  private\r\n    FPaused: Boolean;\r\n    FDeviceCounter: Integer;\r\n    FCameraDevices: TCameraDevices;\r\n    FCameraBaseFormat: TCameraBaseFormat;\r\n    FSelectedCameraDevice: TCameraDevice;\r\n    FOnCameraDevicesInitialized: TNotifyEvent;\r\n    FCameraType: TCameraType;\r\n    FOnCameraStop: TCameraEvent;\r\n    FOnSwitchCamera: TCameraEvent;\r\n    FOnCameraPause: TCameraEvent;\r\n    FOnCameraResume: TCameraEvent;\r\n    FOnCameraStreamPlay: TCameraEvent;\r\n    FOnBeforeStart: TCameraBeforeStartEvent;\r\n    FVideoTrack: TWebMediaStreamTrack;\r\n    FBrowserConstraints: TStringList;\r\n    FDeviceConstraints: TStringList;\r\n    FOnError: TCameraErrorEvent;\r\n    function GetSnapShotBase64: string;\r\n    function GetSnapShotImgData: TJSImageData;\r\n    function GetSnapShotUint8Array: TJSUint8Array;\r\n    procedure SetCameraType(const Value: TCameraType);\r\n  protected\r\n    procedure BindEvents; override;\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElementData; override;\r\n    procedure UpdateElementVisual; override;\r\n    function GetVideoTrack: TWebMediaStreamTrack;\r\n    function HandleStreamPlay(aEvent : TJSPointerEvent): Boolean;\r\n    function HandleEnumerateDevices(aMediaDevices: JSValue): JSValue;\r\n    function HandleUserMedia(aMediaStream: JSValue): JSValue;\r\n    function HandleReject(AValue: JSValue): JSValue;\r\n    function HandleLoadedMetaData(Event: TEventListenerEvent): Boolean;\r\n    procedure UnbindEvents; override;\r\n  public\r\n    destructor Destroy; override;\r\n    procedure CreateInitialize; override;\r\n    function BrowserSupportedConstraints: TStringList;\r\n    function GetDeviceConstraints: TStringList;\r\n    procedure ReInitializeDevices;\r\n    procedure Pause;\r\n    procedure Resume;\r\n    procedure SetSelectedCameraDevice(aDevice: TCameraDevice);\r\n    function ApplyConstraints(AConstraints: TJSObject): TJSPromise;\r\n    procedure Start;\r\n    function StartP: TJSPromise;\r\n    procedure Stop;\r\n    property CameraDevices: TCameraDevices read FCameraDevices;\r\n    property Paused: Boolean read FPaused;\r\n    property SnapShotAsBase64: string read GetSnapShotBase64;\r\n    property SnapShotAsImageData: TJSImageData read GetSnapShotImgData;\r\n    property SnapShotAsUint8Array: TJSUint8Array read GetSnapShotUint8Array;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property CameraType: TCameraType read FCameraType write SetCameraType default ctFront;\r\n    property BaseFormat: TCameraBaseFormat read FCameraBaseFormat write FCameraBaseFormat default cbfJPEG;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Margins;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property OnError: TCameraErrorEvent read FOnError write FOnError;\r\n    property OnBeforeStart: TCameraBeforeStartEvent read FOnBeforeStart write FOnBeforeStart;\r\n    property OnCameraDevicesInitialized: TNotifyEvent read FOnCameraDevicesInitialized write FOnCameraDevicesInitialized;\r\n    property OnCameraPause: TCameraEvent read FOnCameraPause write FOnCameraPause;\r\n    property OnCameraResume: TCameraEvent read FOnCameraResume write FOnCameraResume;\r\n    property OnCameraStreamPlay: TCameraEvent read FOnCameraStreamPlay write FOnCameraStreamPlay;\r\n    property OnCameraStop: TCameraEvent read FOnCameraStop write FOnCameraStop;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnMouseDown;\r\n    property OnMouseEnter;\r\n    property OnMouseLeave;\r\n    property OnMouseMove;\r\n    property OnMouseUp;\r\n    property OnSwitchCamera: TCameraEvent read FOnSwitchCamera write FOnSwitchCamera;\r\n  end;\r\n\r\n  TWebCamera = class(TCamera);\r\n\r\n  TMediaCaptureType = (mctVideo, mctAudio, mctBoth);\r\n  TMediaCaptureRecordingMode = (mrmManual, mrmAuto);\r\n  TMediaCaptureFFTSize = (mfs32, mfs64, mfs128, mfs256, mfs512, mfs1024, mfs2048, mfs4096, mfs8192, mfs16384, mfs32768);\r\n  TMediaCaptureCloseEvent = procedure(Sender: TObject; ABinary: TJSUint8Array; ABase: string) of object;\r\n\r\n  TMediaCapture = class(TComponent)\r\n  private\r\n    FCamera: TCamera;\r\n    FCapture: TMediaCaptureType;\r\n    FRecorder: TWebMediaRecorder;\r\n    FData: TJSArray;\r\n    FAutoDataArray: TJSUint8Array;\r\n    FAudioTrack: TWebMediaStreamTrack;\r\n    FVideoTrack: TWebMediaStreamTrack;\r\n    FOnStartCapture: TNotifyEvent;\r\n    FOnStopCapture: TMediaCaptureCloseEvent;\r\n    FFormat: string;\r\n    FFFTSize: TMediaCaptureFFTSize;\r\n    FRecordingMode: TMediaCaptureRecordingMode;\r\n    FSensitivity: Integer;\r\n    FTimeConstant: Double;\r\n    FIsRecording: Boolean;\r\n    FAnalyser: TWebAnalyserNode;\r\n    FNewRecorder: Boolean;\r\n    FStopped: Boolean;\r\n    FAudioCtx: TWebAudioContext;\r\n    FAudioContext: TWebAudioContext;\r\n    FOldStartEvent: TCameraEvent;\r\n    procedure SetCamera(const Value: TCamera);\r\n    procedure SetCapture(const Value: TMediaCaptureType);\r\n    procedure SetFFTSize(const Value: TMediaCaptureFFTSize);\r\n    procedure SetRecordingMode(const Value: TMediaCaptureRecordingMode);\r\n    procedure SetSensitivity(const Value: Integer);\r\n    procedure SetTimeConstant(const Value: Double);\r\n  protected\r\n    procedure CreateAnalyser(AStream: TWebMediaStream);\r\n    procedure DoAutoProcess(aTime: TJSDOMHighResTimeStamp);\r\n    procedure DoHandleCameraStart(Sender: TObject; ACamera: TCameraDevice);\r\n    procedure DoHandleCaptureStop;\r\n    function DoHandleDataAvailable(Event: TEventListenerEvent): Boolean;\r\n    procedure GetAudioTrack;\r\n    function GetFFTSize(ASize: TMediaCaptureFFTSize): Integer;\r\n    function GetMinDecibels(ASensitivity: Integer): Integer;\r\n    function GetTimeConstant(AConstant: Double): Double;\r\n    procedure GetVideoTrack;\r\n    function HandleAudioUserMedia(aMediaStream: JSValue): JSValue;\r\n    function HandleFileReaderLoad(Event: TEventListenerEvent): Boolean;\r\n    function HandleVideoUserMedia(aMediaStream: JSValue): JSValue;\r\n    procedure InitializeContext(AStream: TWebMediaStream);\r\n    procedure InitializeRecording;\r\n    procedure Notification(AComponent: TComponent; Operation: TOperation); override;\r\n    procedure RequestDevices;\r\n    procedure RequestVideoAccess;\r\n    procedure StartRecording;\r\n    procedure StopAuto;\r\n    procedure StopManual;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    procedure Start;\r\n    procedure Stop;\r\n  published\r\n    property Capture: TMediaCaptureType read FCapture write SetCapture default mctBoth;\r\n    property Camera: TCamera read FCamera write SetCamera;\r\n    property FFTSize: TMediaCaptureFFTSize read FFFTSize write SetFFTSize default mfs2048;\r\n    property RecordingMode: TMediaCaptureRecordingMode read FRecordingMode write SetRecordingMode default mrmManual;\r\n    property Sensitivity: Integer read FSensitivity write SetSensitivity default 100;\r\n    property SmoothingTimeConstant: Double read FTimeConstant write SetTimeConstant; //default 0.9\r\n    property OnStartCapture: TNotifyEvent read FOnStartCapture write FOnStartCapture;\r\n    property OnStopCapture: TMediaCaptureCloseEvent read FOnStopCapture write FOnStopCapture;\r\n  end;\r\n\r\n  TWebMediaCapture = class(TMediaCapture);\r\n\r\n  TDecoderDecodedEvent = procedure(Sender: TObject; ADecoded: string) of object;\r\n\r\n  TDecoder = class(TComponent)\r\n  private\r\n    FTimer: TWebTimer;\r\n    FCamera: TCamera;\r\n    FOnDecoded: TDecoderDecodedEvent;\r\n    FEnableTimer: Boolean;\r\n    FImageControl: TImageControl;\r\n    procedure SetCamera(const Value: TCamera);\r\n    procedure SetEnableTimer(const Value: Boolean);\r\n  protected\r\n    procedure DecodeURL(AURL: string); virtual;\r\n    procedure DoDecoded; virtual;\r\n    procedure DoDecodeTimer(Sender: TObject);\r\n    procedure Notification(AComponent: TComponent; Operation: TOperation); override;\r\n    property Camera: TCamera read FCamera write SetCamera;\r\n    property ImageControl: TImageControl read FImageControl write FImageControl;\r\n    property EnableTimer: Boolean read FEnableTimer write SetEnableTimer default False;\r\n    property OnDecoded: TDecoderDecodedEvent read FOnDecoded write FOnDecoded;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\n  TQRDecoder = class(TDecoder)\r\n  private\r\n    FImg: TJSHTMLImageElement;\r\n    FObj: TWebJSQRResultObject;\r\n  protected\r\n    procedure DoDecoded; override;\r\n    function HandleImageLoad(Event: TEventListenerEvent): boolean;\r\n  public\r\n    procedure DecodeURL(AURL: string); override;\r\n  published\r\n    property Camera;\r\n    property EnableTimer;\r\n    property OnDecoded;\r\n  end;\r\n\r\n  TWebQRDecoder = class(TQRDecoder);\r\n\r\n  TBarcodeDecoderReader = (bcvCode128, bcvEAN, bcvEAN8, bcvCode39, bcvCode39VIN, bcvCodabar, bcvUPC, bcvUPCE, bcvI2OF5, bcv2OF5, bcvCode93);\r\n  TBarcodeDecoderReaders = set of TBarcodeDecoderReader;\r\n\r\n  TBarcodeDecoder = class(TDecoder)\r\n    FTempDisable: Boolean;\r\n    FInternalTimer: Boolean;\r\n    FReader: TBarcodeDecoderReaders;\r\n    FObj: TWebQuaggaJSResultObject;\r\n    FConfigObj: TWebQuaggaJSConfigObject;\r\n  private\r\n    procedure SetReader(const Value: TBarcodeDecoderReaders);\r\n  protected\r\n    procedure DoDecoded; override;\r\n    procedure DoDecodeCallback(aResult: TWebQuaggaJSResultObject);\r\n    procedure InitConfigObj;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    procedure DecodeURL(AURL: string); override;\r\n  published\r\n    property Camera;\r\n    property EnableTimer;\r\n    property Reader: TBarcodeDecoderReaders read FReader write SetReader default [bcvCode128];\r\n    property OnDecoded;\r\n  end;\r\n\r\n  TWebBarcodeDecoder = class(TBarcodeDecoder);\r\n\r\nfunction Uint8ToBase64(AArray: TJSUint8Array): string;\r\nfunction IsSafari: Boolean;\r\n\r\nvar\r\n  TBarcodeDecoderValue: array[TBarcodeDecoderReader] of string = ('code_128_reader', 'ean_reader', 'ean_8_reader', 'code_39_reader', 'code_39_vin_reader',\r\n    'codabar_reader', 'upc_reader', 'upc_e_reader', 'i2of5_reader', '2of5_reader', 'code_93_reader');\r\n\r\nimplementation\r\n\r\nuses\r\n  Types;\r\n\r\nfunction IsSafari: Boolean;\r\nvar\r\n  ua: Boolean;\r\nbegin\r\n  ua := False;\r\n  asm\r\n    function getMobileOperatingSystem() {\r\n      var userAgent = navigator.userAgent || navigator.vendor || window.opera;\r\n\r\n        if (/windows phone/i.test(userAgent)) {\r\n            return \"Windows Phone\";\r\n        }\r\n\r\n        if (/android/i.test(userAgent)) {\r\n            return \"Android\";\r\n        }\r\n\r\n        if (/iPad|iPhone|iPod/.test(userAgent) && !window.MSStream) {\r\n            return \"iOS\";\r\n        }\r\n\r\n        return \"unknown\";\r\n    }\r\n\r\n    var isSafariMobile = getMobileOperatingSystem();\r\n    var isSafariDesktop = window.safari !== undefined;\r\n\r\n    if (isSafariMobile === \"iOS\" || isSafariDesktop) {\r\n      ua = true;\r\n    }\r\n  end;\r\n  Result := ua;\r\nend;\r\n\r\nfunction Uint8ToBase64(AArray: TJSUint8Array): string;\r\nvar\r\n  len, I: Integer;\r\n  base: string;\r\nbegin\r\n  len := AArray.byteLength;\r\n  for I := 0 to len - 1 do\r\n    base := base + TJSString.fromCharCode(AArray[i]);\r\n\r\n  Result := window.btoa(base);\r\nend;\r\n\r\n{ TWebCamera }\r\n\r\nfunction TCamera.ApplyConstraints(AConstraints: TJSObject): TJSPromise;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FVideoTrack) then\r\n  begin\r\n    Result := FVideoTrack.applyConstraints(AConstraints);\r\n  end;\r\nend;\r\n\r\nprocedure TCamera.BindEvents;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    ElementHandle.onplay := @HandleStreamPlay;\r\n  end;\r\nend;\r\n\r\nfunction TCamera.BrowserSupportedConstraints: TStringList;\r\nvar\r\n  strArr: TStringDynArray;\r\n  O: TJSObject;\r\n  I: Integer;\r\nbegin\r\n  if not Assigned(FBrowserConstraints) then\r\n  begin\r\n    FBrowserConstraints := TStringList.Create;\r\n    O := TWebMediaDevices(window.navigator.mediaDevices).getSupportedConstraints;\r\n    strArr := TJSObject.keys(O);\r\n    for I := 0 to Length(strArr) - 1 do\r\n      FBrowserConstraints.Add(strArr[I]);\r\n  end;\r\n  Result := FBrowserConstraints;\r\nend;\r\n\r\nfunction TCamera.CreateElement: TJSElement;\r\nvar\r\n  LLabel: TJSHTMLElement;\r\nbegin\r\n  if (csDesigning in ComponentState) then\r\n  begin\r\n    Result := document.createElement('DIV');\r\n    LLabel := TJSHTMLElement(document.createElement('DIV'));\r\n    LLabel.innerHTML := 'TWebCamera';\r\n    BorderStyle := bsSingle;\r\n    LLabel['align'] := 'center';\r\n    LLabel.style.setProperty('border','1px solid gray');\r\n    LLabel.style.setProperty('vertical-align','middle');\r\n    LLabel.style.setProperty('display','table-cell');\r\n    Result.appendChild(LLabel);\r\n  end\r\n  else\r\n  begin\r\n    Result := document.createElement('VIDEO');\r\n    Result.setAttribute('playsinline', '');\r\n  end;\r\nend;\r\n\r\nprocedure TCamera.UpdateElementData;\r\nbegin\r\n  inherited;\r\n  if (csDesigning in ComponentState) then\r\n    TJSHTMLElement(ElementHandle).style.setProperty('display','table');\r\nend;\r\n\r\nprocedure TCamera.UpdateElementVisual;\r\nbegin\r\n  inherited;\r\n  if (csDesigning in ComponentState) then\r\n    TJSHTMLElement(ElementHandle).style.setProperty('background-color','silver');\r\nend;\r\n\r\n\r\ndestructor TCamera.Destroy;\r\nbegin\r\n  FCameraDevices.Free;\r\n  if Assigned(FBrowserConstraints) then\r\n    FBrowserConstraints.Free;\r\n\r\n  if Assigned(FDeviceConstraints) then\r\n    FDeviceConstraints.Free;\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TCamera.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FPaused := True;\r\n  FSelectedCameraDevice := TCameraDevice.Create;\r\n  FCameraDevices := TCameraDevices.Create;\r\n  FDeviceCounter := 1;\r\n  FCameraType := ctFront;\r\n  FCameraBaseFormat := cbfJPEG;\r\n  TabStop := false;\r\n\r\n  Width := 400;\r\n  Height := 300;\r\n  if Assigned(TWebMediaDevices(window.navigator.mediaDevices)) then\r\n    TWebMediaDevices(window.navigator.mediaDevices).enumerateDevices._then(@HandleEnumerateDevices);\r\nend;\r\n\r\nfunction TCamera.GetDeviceConstraints: TStringList;\r\nvar\r\n  strArr: TStringDynArray;\r\n  O: TJSObject;\r\n  I: Integer;\r\nbegin\r\n  if not Assigned(FDeviceConstraints) then\r\n    FDeviceConstraints := TStringList.Create;\r\n\r\n  if Assigned(FVideoTrack) then\r\n  begin\r\n    FDeviceConstraints.Clear;\r\n    O := FVideoTrack.getCapabilities;\r\n    strArr := TJSObject.keys(O);\r\n    for I := 0 to Length(strArr) - 1 do\r\n      FDeviceConstraints.Add(strArr[I]);\r\n  end;\r\n  Result := FDeviceConstraints;\r\nend;\r\n\r\nfunction TCamera.GetSnapShotBase64: string;\r\nvar\r\n  canvas: TJSHTMLCanvasElement;\r\n  vid: TWebHTMLVideoElement;\r\nbegin\r\n  Result := '';\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    vid := TWebHTMLVideoElement(ElementHandle);\r\n    canvas := TJSHTMLCanvasElement(document.createElement('canvas'));\r\n    canvas.width := vid.videoWidth;\r\n    canvas.height := vid.videoHeight;\r\n    canvas.getContextAs2DContext('2d').drawImage(TJSObject(vid), 0, 0);\r\n\r\n    case FCameraBaseFormat of\r\n      cbfJPEG: Result := canvas.toDataURL('image/jpeg');\r\n      cbfPNG: Result := canvas.toDataURL('image/png');\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TCamera.GetSnapShotImgData: TJSImageData;\r\nvar\r\n  canvas: TJSHTMLCanvasElement;\r\n  ctx: TJSCanvasRenderingContext2D;\r\n  vid: TWebHTMLVideoElement;\r\nbegin\r\n  Result := nil;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    vid := TWebHTMLVideoElement(ElementHandle);\r\n    canvas := TJSHTMLCanvasElement(document.createElement('canvas'));\r\n    canvas.width := vid.videoWidth;\r\n    canvas.height := vid.videoHeight;\r\n    ctx := canvas.getContextAs2DContext('2d');\r\n    ctx.drawImage(TJSObject(vid), 0, 0);\r\n\r\n    Result := ctx.getImageData(0, 0, canvas.width, canvas.height);\r\n  end;\r\nend;\r\n\r\nfunction TCamera.GetSnapShotUint8Array: TJSUint8Array;\r\nvar\r\n  b, binaryString: TJSString;\r\n  str: string;\r\n  exp: TJSRegexp;\r\n  len, I: Integer;\r\nbegin\r\n  b := TJSString.new(GetSnapShotBase64);\r\n  exp := TJSRegexp.new('^data:[\\s\\S]*;base64,');\r\n  str := b.replace(exp, '');\r\n  binaryString := TJSString.new(window.atob(str));\r\n  len := binaryString.length;\r\n  Result := TJSUint8Array.new(len);\r\n\r\n  for I := 0 to len - 1 do\r\n    Result[I] := binaryString.charCodeAt(I);\r\nend;\r\n\r\nfunction TCamera.HandleEnumerateDevices(aMediaDevices: JSValue): JSValue;\r\n  function DoEachDevice(mediadevice: JSValue; index: NativeInt; anArray: TJSArray): Boolean;\r\n  var\r\n    cd: TCameraDevice;\r\n    mi: TWebMediaDevicesInfo;\r\n  begin\r\n    mi := TWebMediaDevicesInfo(mediadevice);\r\n    if mi.kind = 'videoinput' then\r\n    begin\r\n      cd := FCameraDevices.Add;\r\n      cd.Id := mi.deviceId;\r\n\r\n      if mi.&label <> '' then\r\n        cd.Name := mi.&label\r\n      else\r\n      begin\r\n        cd.Name := 'Camera ' + IntToStr(FDeviceCounter);\r\n        Inc(FDeviceCounter);\r\n      end;\r\n    end;\r\n\r\n    Result := True;\r\n  end;\r\nbegin\r\n  TJSArray(aMediaDevices).forEach(@DoEachDevice);\r\n\r\n  if Assigned(OnCameraDevicesInitialized) then\r\n    OnCameraDevicesInitialized(Self);\r\n\r\n  Result := True;\r\nend;\r\n\r\nfunction TCamera.GetVideoTrack: TWebMediaStreamTrack;\r\nbegin\r\n  Result := FVideoTrack;\r\nend;\r\n\r\nfunction TCamera.HandleLoadedMetaData(Event: TEventListenerEvent): Boolean;\r\nbegin\r\n  if Assigned(ElementHandle) then\r\n    TWebHTMLMediaElement(ElementHandle).play;\r\n\r\n  Result := True;\r\nend;\r\n\r\nfunction TCamera.HandleReject(AValue: JSValue): JSValue;\r\nvar\r\n  n, m: string;\r\nbegin\r\n  Result := nil;\r\n  if AValue is TJSDOMException then\r\n  begin\r\n    m := TJSDOMException(AValue).message;\r\n    n := TJSDOMException(AValue).name;\r\n    if Assigned(OnError) then\r\n      OnError(Self, n, m);\r\n  end;\r\nend;\r\n\r\nfunction TCamera.HandleStreamPlay(aEvent: TJSPointerEvent): Boolean;\r\nbegin\r\n  if Assigned(OnCameraStreamPlay) then\r\n    OnCameraStreamPlay(Self, FSelectedCameraDevice);\r\n\r\n  Result := True;\r\n\r\n  FPaused := False;\r\nend;\r\n\r\nfunction TCamera.HandleUserMedia(aMediaStream: JSValue): JSValue;\r\nbegin\r\n  TWebHTMLMediaElement(ElementHandle).srcObject := TJSObject(aMediaStream);\r\n  TWebHTMLMediaElement(ElementHandle).onloadedmetadata := @HandleLoadedMetaData;\r\n  FVideoTrack := TWebMediaStreamTrack(TWebMediaStream(aMediaStream).getVideoTracks[0]);\r\n\r\n  Result := True;\r\nend;\r\n\r\nprocedure TCamera.Pause;\r\nbegin\r\n  FPaused := True;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    TWebHTMLMediaElement(ElementHandle).pause;\r\n\r\n    if Assigned(OnCameraPause) then\r\n      OnCameraPause(Self, FSelectedCameraDevice);\r\n  end;\r\nend;\r\n\r\nprocedure TCamera.ReInitializeDevices;\r\nbegin\r\n  CameraDevices.Clear;\r\n  if Assigned(TWebMediaDevices(window.navigator.mediaDevices)) then\r\n    TWebMediaDevices(window.navigator.mediaDevices).enumerateDevices._then(@HandleEnumerateDevices);\r\nend;\r\n\r\nprocedure TCamera.Resume;\r\nbegin\r\n  if Assigned(ElementHandle) and (Paused) then\r\n  begin\r\n    TWebHTMLMediaElement(ElementHandle).play;\r\n\r\n    if Assigned(OnCameraResume) then\r\n      OnCameraResume(Self, FSelectedCameraDevice);\r\n  end;\r\n  FPaused := False;\r\nend;\r\n\r\nprocedure TCamera.SetCameraType(const Value: TCameraType);\r\nbegin\r\n  if FCameraType <> Value then\r\n    FCameraType := Value;\r\nend;\r\n\r\nprocedure TCamera.SetSelectedCameraDevice(aDevice: TCameraDevice);\r\nbegin\r\n  if aDevice.Id <> FSelectedCameraDevice.Id then\r\n  begin\r\n    FSelectedCameraDevice.Assign(aDevice);\r\n\r\n    if Assigned(OnSwitchCamera) then\r\n      OnSwitchCamera(Self, FSelectedCameraDevice);\r\n  end;\r\nend;\r\n\r\nprocedure TCamera.Start;\r\nvar\r\n  p: TJSPromise;\r\nbegin\r\n  p := StartP;\r\n  p.catch(@HandleReject);\r\nend;\r\n\r\nfunction TCamera.StartP: TJSPromise;\r\nvar\r\n  O, P: TJSObject;\r\n  LObjRec: TJSObjectRecord;\r\nbegin\r\n  Stop;\r\n\r\n  case FCameraType of\r\n    ctFront: O := new(['facingMode', 'user']);\r\n    ctRear: O := new(['facingMode', 'environment']);\r\n    ctSelected:\r\n    begin\r\n      if FSelectedCameraDevice.Id <> '' then\r\n      begin\r\n        P := new(['exact', FSelectedCameraDevice.Id]);\r\n        O := new(['deviceId', P]);\r\n      end\r\n      else\r\n        O := new([]);\r\n    end;\r\n  end;\r\n\r\n  if Assigned(OnBeforeStart) then\r\n  begin\r\n    LObjRec.jsobject := O;\r\n    OnBeforeStart(Self, LObjRec);\r\n  end;\r\n\r\n  if Assigned(ElementHandle) and Assigned(TWebMediaDevices(window.navigator.mediaDevices)) then\r\n    Result := TWebMediaDevices(window.navigator.mediaDevices).getUserMedia(new(['video', O]))._then(@HandleUserMedia){.catch(@HandleReject)}\r\n  else\r\n    Result := nil;\r\nend;\r\n\r\nprocedure TCamera.Stop;\r\n  function DoEachTrack(track: JSValue; index: NativeInt; anArray: TJSArray): Boolean;\r\n  begin\r\n    TWebMediaStreamTrack(track).stop;\r\n    Result := True;\r\n  end;\r\nbegin\r\n  FPaused := True;\r\n\r\n  if Assigned(ElementHandle) then\r\n  begin\r\n    if Assigned(TWebHTMLMediaElement(ElementHandle).srcObject) then\r\n    begin\r\n      TWebMediaStream(TWebHTMLMediaElement(ElementHandle).srcObject).getVideoTracks.forEach(@DoEachTrack);\r\n\r\n      if Assigned(OnCameraStop) then\r\n        OnCameraStop(Self, FSelectedCameraDevice);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TCamera.UnbindEvents;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementHandle) then\r\n    ElementHandle.onplay := nil;\r\nend;\r\n\r\n{ TCameraDevices }\r\n\r\nfunction TCameraDevices.Add: TCameraDevice;\r\nbegin\r\n  Result := TCameraDevice(inherited Add);\r\nend;\r\n\r\nconstructor TCameraDevices.Create;\r\nbegin\r\n  inherited Create(TCameraDevice);\r\nend;\r\n\r\nfunction TCameraDevices.GetDeviceById(Id: string): TCameraDevice;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := nil;\r\n\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    if TCameraDevice(Items[I]).Id = Id then\r\n    begin\r\n      Result := TCameraDevice(Items[I]);\r\n      Exit;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TCameraDevices.GetDeviceByName(Name: string): TCameraDevice;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := nil;\r\n\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    if TCameraDevice(Items[I]).Name = Name then\r\n    begin\r\n      Result := TCameraDevice(Items[I]);\r\n      Exit;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TCameraDevices.GetItem(Index: Integer): TCameraDevice;\r\nbegin\r\n  Result := TCameraDevice(inherited Items[Index]);\r\nend;\r\n\r\nfunction TCameraDevices.Insert(Index: Integer): TCameraDevice;\r\nbegin\r\n  Result := TCameraDevice(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TCameraDevices.SetItem(Index: Integer; const Value: TCameraDevice);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TCameraDevice }\r\n\r\nprocedure TCameraDevice.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TCameraDevice) then\r\n  begin\r\n    FName := (Source as TCameraDevice).Name;\r\n    FId := (Source as TCameraDevice).Id;\r\n  end;\r\nend;\r\n\r\n{ TDecoder }\r\n\r\nconstructor TDecoder.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FTimer := TWebTimer.Create(Self);\r\n  FEnableTimer := False;\r\nend;\r\n\r\nprocedure TDecoder.DecodeURL(AURL: string);\r\nbegin\r\n  //\r\nend;\r\n\r\ndestructor TDecoder.Destroy;\r\nbegin\r\n  FTimer.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TDecoder.DoDecoded;\r\nbegin\r\nend;\r\n\r\nprocedure TDecoder.DoDecodeTimer(Sender: TObject);\r\nbegin\r\n  if Assigned(FCamera) and not FCamera.Paused then\r\n    DoDecoded;\r\nend;\r\n\r\nprocedure TDecoder.Notification(AComponent: TComponent; Operation: TOperation);\r\nbegin\r\n  inherited;\r\n  if not (csDestroying in ComponentState) then\r\n  begin\r\n    if (Operation = opRemove) then\r\n    begin\r\n      if (AComponent = FCamera) then\r\n        FCamera := nil;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TDecoder.SetCamera(const Value: TCamera);\r\nbegin\r\n  if FCamera <> Value then\r\n    FCamera := Value;\r\nend;\r\n\r\nprocedure TDecoder.SetEnableTimer(const Value: Boolean);\r\nbegin\r\n  if FEnableTimer <> Value then\r\n  begin\r\n    FEnableTimer := Value;\r\n\r\n    if FEnableTimer then\r\n      FTimer.OnTimer := DoDecodeTimer\r\n    else\r\n      FTimer.OnTimer := nil;\r\n  end;\r\nend;\r\n\r\n{ TQRDecoder }\r\n\r\nprocedure TQRDecoder.DecodeURL(AURL: string);\r\nbegin\r\n  inherited;\r\n  FImg := TJSHTMLImageElement(document.createElement('IMG'));\r\n\r\n  FImg.onload := @HandleImageLoad;\r\n  FImg.src := AURL;\r\nend;\r\n\r\nprocedure TQRDecoder.DoDecoded;\r\nvar\r\n  img: TJSImageData;\r\nbegin\r\n  img := Camera.SnapshotAsImageData;\r\n  FObj := jsQR(img.data, img.width, img.height);\r\n\r\n  if Assigned(FObj) and Assigned(OnDecoded) then\r\n    OnDecoded(Self, FObj.data);\r\nend;\r\n\r\nfunction TQRDecoder.HandleImageLoad(Event: TEventListenerEvent): boolean;\r\nvar\r\n  canvas: TJSHTMLCanvasElement;\r\n  ctx: TJSCanvasRenderingContext2D;\r\n  imgData: TJSImageData;\r\nbegin\r\n  canvas := TJSHTMLCanvasElement(document.createElement('canvas'));\r\n  canvas.width := FImg.width;\r\n  canvas.height := FImg.height;\r\n  ctx := canvas.getContextAs2DContext('2d');\r\n  ctx.drawImage(TJSObject(FImg), 0, 0);\r\n\r\n  imgData := ctx.getImageData(0, 0, canvas.width, canvas.height);\r\n  FObj := jsQR(imgData.data, imgData.width, imgData.height);\r\n\r\n  if Assigned(FObj) and Assigned(OnDecoded) then\r\n    OnDecoded(Self, FObj.data);\r\n\r\n  Result := True;\r\nend;\r\n\r\n{ TBarcodeDecoder }\r\n\r\nconstructor TBarcodeDecoder.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FConfigObj := TWebQuaggaJSConfigObject.new;\r\n  FReader := [bcvCode128];\r\n  FTempDisable := False;\r\n  FInternalTimer := True;\r\nend;\r\n\r\nprocedure TBarcodeDecoder.DecodeURL(AURL: string);\r\nbegin\r\n  inherited;\r\n  FConfigObj.src := AURL;\r\n  if EnableTimer then\r\n  begin\r\n    EnableTimer := False;\r\n    FTempDisable := True;\r\n  end;\r\n  Quagga.decodeSingle(FConfigObj, @DoDecodeCallback);\r\nend;\r\n\r\nprocedure TBarcodeDecoder.DoDecodeCallback(aResult: TWebQuaggaJSResultObject);\r\nbegin\r\n  if Assigned(aResult) then\r\n  begin\r\n    if Assigned(aResult.codeResult) then\r\n    begin\r\n      if Assigned(OnDecoded) then\r\n        OnDecoded(Self, aResult.codeResult.code)\r\n    end;\r\n  end;\r\n\r\n  if FTempDisable then\r\n  begin\r\n    FInternalTimer := True;\r\n    FTempDisable := False;\r\n  end;\r\n\r\n  if Assigned(Camera) then\r\n    FInternalTimer := True;\r\nend;\r\n\r\nprocedure TBarcodeDecoder.DoDecoded;\r\nvar\r\n  img: string;\r\nbegin\r\n  if FInternalTimer then\r\n  begin\r\n    FInternalTimer := False;\r\n    img := Camera.SnapshotAsBase64;\r\n    FConfigObj.src := img;\r\n    Quagga.decodeSingle(FConfigObj, @DoDecodeCallback);\r\n  end;\r\nend;\r\n\r\nprocedure TBarcodeDecoder.InitConfigObj;\r\nvar\r\n  arr: TJSArray;\r\n  opt: TBarcodeDecoderReader;\r\nbegin\r\n  arr := TJSArray.new;\r\n  if FReader = [] then\r\n    arr.push('code_128_reader')\r\n  else\r\n  begin\r\n    for opt := Low(TBarcodeDecoderReaders) to High(TBarcodeDecoderReaders) do\r\n    begin\r\n      if opt in Reader then\r\n        arr.push(TBarcodeDecoderValue[opt]);\r\n    end;\r\n  end;\r\n\r\n  FConfigObj.decoder := new(['readers', arr]);\r\nend;\r\n\r\nprocedure TBarcodeDecoder.SetReader(const Value: TBarcodeDecoderReaders);\r\nbegin\r\n  FReader := Value;\r\n  InitConfigObj;\r\nend;\r\n\r\n{ TMediaCapture }\r\n\r\nconstructor TMediaCapture.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FData := TJSArray.new;\r\n  FCapture := mctBoth;\r\n  FAudioTrack := nil;\r\n  FVideoTrack := nil;\r\n  FRecordingMode := mrmManual;\r\n  FTimeConstant := 0.9;\r\n  FFFTSize := mfs2048;\r\n  FSensitivity := 100;\r\n  FNewRecorder := True;\r\n  asm\r\n    this.FAudioContext = window.AudioContext || window.webkitAudioContext;\r\n  end;\r\nend;\r\n\r\nprocedure TMediaCapture.CreateAnalyser(AStream: TWebMediaStream);\r\nvar\r\n  mic: TWebMediaStreamAudioSourceNode;\r\nbegin\r\n  FAnalyser := FAudioCtx.createAnalyser;\r\n  FAnalyser.MinDecibels := GetMinDecibels(FSensitivity);\r\n  FAnalyser.SmoothingTimeConstant := GetTimeConstant(FTimeConstant);\r\n  FAnalyser.FFTSize := GetFFTSize(FFFTSize);\r\n  mic := FAudioCtx.createMediaStreamSource(AStream);\r\n  mic.connect(FAnalyser);\r\n  FAutoDataArray := TJSUint8Array.new(FAnalyser.frequencyBinCount);\r\n  FIsRecording := False;\r\n  DoAutoProcess(Now);\r\nend;\r\n\r\nprocedure TMediaCapture.DoAutoProcess(aTime: TJSDOMHighResTimeStamp);\r\nvar\r\n  cb: TFrameRequestMethodCallback;\r\n  I, sum, len: Integer;\r\n  av: Double;\r\nbegin\r\n  cb := DoAutoProcess;\r\n  TJSAnimWindow.requestAnimationFrame(cb);\r\n\r\n  if FStopped then\r\n    Exit;\r\n\r\n  if not FNewRecorder then\r\n    Exit;\r\n\r\n  FAnalyser.getByteFrequencyData(FAutoDataArray);\r\n\r\n  sum := 0;\r\n  len := FAutoDataArray.length;\r\n  for I := 0 to len - 1 do\r\n    sum := sum + FAutoDataArray[I];\r\n\r\n  av := sum / len;\r\n  if (av > 1) and (not FIsRecording) then\r\n  begin\r\n    StartRecording;\r\n    FIsRecording := True;\r\n  end\r\n  else if (av <= 1) and FIsRecording then\r\n  begin\r\n    FRecorder.stop;\r\n    FIsRecording := False;\r\n    FNewRecorder := False;\r\n    RequestDevices;\r\n  end;\r\nend;\r\n\r\nprocedure TMediaCapture.DoHandleCameraStart(Sender: TObject; ACamera: TCameraDevice);\r\nbegin\r\n  if Assigned(FOldStartEvent) then\r\n    FOldStartEvent(Sender, ACamera);\r\n\r\n  FVideoTrack := FCamera.GetVideoTrack;\r\n  InitializeRecording;\r\nend;\r\n\r\n{$HINTS OFF}\r\nprocedure TMediaCapture.DoHandleCaptureStop;\r\nvar\r\n  fr: TJSFileReader;\r\nbegin\r\n  fr := TJSFileReader.new;\r\n  fr.addEventListener('load',@HandleFileReaderLoad);\r\n  asm\r\n    var blob = new Blob(this.FData, {\r\n      type: this.FFormat\r\n    });\r\n\r\n    fr.readAsArrayBuffer(blob);\r\n  end;\r\n  FData := TJSArray.new;\r\nend;\r\n{$HINTS ON}\r\n\r\nfunction TMediaCapture.DoHandleDataAvailable(Event: TEventListenerEvent): Boolean;\r\nvar\r\n  b: TJSBlob;\r\nbegin\r\n  asm\r\n    b = Event.data;\r\n  end;\r\n  FData.push(b);\r\n\r\n  Result := True;\r\nend;\r\n\r\nprocedure TMediaCapture.GetAudioTrack;\r\nbegin\r\n  case FCapture of\r\n    mctAudio, mctBoth: TWebMediaDevices(window.navigator.mediaDevices).getUserMedia(new(['audio', True]))._then(@HandleAudioUserMedia);\r\n  end;\r\nend;\r\n\r\nfunction TMediaCapture.GetFFTSize(ASize: TMediaCaptureFFTSize): Integer;\r\nbegin\r\n  Result := 2048;\r\n\r\n  case ASize of\r\n    mfs32: Result := 32;\r\n    mfs64: Result := 64;\r\n    mfs128: Result := 128;\r\n    mfs256: Result := 256;\r\n    mfs512: Result := 512;\r\n    mfs1024: Result := 1024;\r\n    mfs2048: Result := 2048;\r\n    mfs4096: Result := 4096;\r\n    mfs8192: Result := 8192;\r\n    mfs16384: Result := 16384;\r\n    mfs32768: Result := 32768;\r\n  end;\r\nend;\r\n\r\nfunction TMediaCapture.GetMinDecibels(ASensitivity: Integer): Integer;\r\nbegin\r\n  if ASensitivity < 0 then\r\n    ASensitivity := 0\r\n  else if ASensitivity > 100 then\r\n    ASensitivity := 100;\r\n\r\n  if ASensitivity = 0 then\r\n    Result := ASensitivity\r\n  else\r\n    Result := -ASensitivity;\r\nend;\r\n\r\nfunction TMediaCapture.GetTimeConstant(AConstant: Double): Double;\r\nbegin\r\n  if AConstant < 0.0 then\r\n    AConstant := 0.0\r\n  else if AConstant >= 1.0 then\r\n    AConstant := 0.99;\r\n\r\n  Result := AConstant;\r\nend;\r\n\r\nprocedure TMediaCapture.GetVideoTrack;\r\nbegin\r\n  case FCapture of\r\n    mctVideo, mctBoth:\r\n    begin\r\n      if Assigned(FCamera) then\r\n        FCamera.Start\r\n      else\r\n        RequestVideoAccess;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TMediaCapture.HandleAudioUserMedia(aMediaStream: JSValue): JSValue;\r\nbegin\r\n  FAudioTrack := TWebMediaStreamTrack(TWebMediaStream(aMediaStream).getAudioTracks[0]);\r\n  InitializeRecording;\r\n  Result := True;\r\nend;\r\n\r\nfunction TMediaCapture.HandleFileReaderLoad(Event: TEventListenerEvent): Boolean;\r\nvar\r\n  u: TJSUint8Array;\r\n  b: string;\r\nbegin\r\n  asm\r\n    u = new Uint8Array(Event.target.result);\r\n  end;\r\n\r\n  b := Uint8ToBase64(u);\r\n\r\n  if Assigned(OnStopCapture) then\r\n    OnStopCapture(Self, u, b);\r\n\r\n  Result := True;\r\nend;\r\n\r\nfunction TMediaCapture.HandleVideoUserMedia(aMediaStream: JSValue): JSValue;\r\nbegin\r\n  FVideoTrack := TWebMediaStreamTrack(TWebMediaStream(aMediaStream).getVideoTracks[0]);\r\n  InitializeRecording;\r\n  Result := True;\r\nend;\r\n\r\nprocedure TMediaCapture.InitializeContext(AStream: TWebMediaStream);\r\nbegin\r\n  if not Assigned(FAudioContext) then\r\n    Exit;\r\n\r\n  if not Assigned(FAudioCtx) then\r\n  begin\r\n    asm\r\n      this.FAudioCtx = new this.FAudioContext();\r\n    end;\r\n  end;\r\n\r\n  CreateAnalyser(AStream);\r\nend;\r\n\r\nprocedure TMediaCapture.InitializeRecording;\r\nvar\r\n  mstream: TWebMediaStream;\r\n  opt: TJSObject;\r\nbegin\r\n  if (FCapture = mctBoth) and (not Assigned(FVideoTrack) or  not Assigned(FAudioTrack)) then\r\n    Exit;\r\n\r\n  mstream := TWebMediaStream.new;\r\n\r\n  case FCapture of\r\n    mctAudio:\r\n    begin\r\n      FFormat := 'audio/';\r\n      mstream.addTrack(FAudioTrack);\r\n    end;\r\n    mctBoth:\r\n    begin\r\n      FFormat := 'video/';\r\n      mstream.addTrack(FAudioTrack);\r\n      mstream.addTrack(FVideoTrack);\r\n    end;\r\n    mctVideo:\r\n    begin\r\n      FFormat := 'video/';\r\n      mstream.addTrack(FVideoTrack);\r\n    end;\r\n  end;\r\n\r\n  if IsSafari and (FFormat = 'video/') then\r\n    FFormat := FFormat + 'mp4'\r\n  else\r\n    FFormat := FFormat + 'webm';\r\n\r\n  opt := new(['mimeType', FFormat]);\r\n\r\n  FRecorder := TWebMediaRecorder.new(mstream, opt);\r\n  FRecorder.ondataavailable := @DoHandleDataAvailable;\r\n  FRecorder.onstop := @DoHandleCaptureStop;\r\n\r\n  case FRecordingMode of\r\n    mrmManual: StartRecording;\r\n    mrmAuto:\r\n    begin\r\n      FNewRecorder := True;\r\n      InitializeContext(mstream);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TMediaCapture.Notification(AComponent: TComponent;\r\n  Operation: TOperation);\r\nbegin\r\n  inherited;\r\n  if not (csDestroying in ComponentState) then\r\n  begin\r\n    if (Operation = opRemove) then\r\n    begin\r\n      if (AComponent = FCamera) then\r\n        FCamera := nil;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TMediaCapture.RequestDevices;\r\nvar\r\n  mr: Boolean;\r\nbegin\r\n  mr := False;\r\n  //if MediaRecorder API or MediaDevices are not available then exit\r\n  asm\r\n    if (window.MediaRecorder == undefined) { mr = true; };\r\n  end;\r\n\r\n  if (not Assigned(TWebMediaDevices(window.navigator.mediaDevices))) or mr then\r\n    Exit;\r\n\r\n  GetVideoTrack;\r\n  GetAudioTrack;\r\nend;\r\n\r\nprocedure TMediaCapture.RequestVideoAccess;\r\nbegin\r\n  TWebMediaDevices(window.navigator.mediaDevices).getUserMedia(new(['video', True]))._then(@HandleVideoUserMedia);\r\nend;\r\n\r\nprocedure TMediaCapture.SetCamera(const Value: TCamera);\r\nbegin\r\n  if FCamera <> Value then\r\n  begin\r\n    FCamera := Value;\r\n    if Assigned(FCamera) then\r\n    begin\r\n      FOldStartEvent := FCamera.OnCameraStreamPlay;\r\n      FCamera.OnCameraStreamPlay := DoHandleCameraStart;\r\n    end\r\n    else\r\n      FOldStartEvent := nil;\r\n  end;\r\nend;\r\n\r\nprocedure TMediaCapture.SetCapture(const Value: TMediaCaptureType);\r\nbegin\r\n  if FCapture <> Value then\r\n    FCapture := Value;\r\nend;\r\n\r\nprocedure TMediaCapture.SetFFTSize(const Value: TMediaCaptureFFTSize);\r\nbegin\r\n  FFFTSize := Value;\r\nend;\r\n\r\nprocedure TMediaCapture.SetRecordingMode(const Value: TMediaCaptureRecordingMode);\r\nbegin\r\n  if FRecordingMode <> Value then\r\n    FRecordingMode := Value;\r\nend;\r\n\r\nprocedure TMediaCapture.SetSensitivity(const Value: Integer);\r\nbegin\r\n  FSensitivity := Value;\r\nend;\r\n\r\nprocedure TMediaCapture.SetTimeConstant(const Value: Double);\r\nbegin\r\n  FTimeConstant := Value;\r\nend;\r\n\r\nprocedure TMediaCapture.Start;\r\nbegin\r\n  case FRecordingMode of\r\n    mrmAuto:\r\n    begin\r\n      if not Assigned(FRecorder) then\r\n        RequestDevices;\r\n\r\n      FStopped := False;\r\n    end;\r\n    mrmManual: RequestDevices;\r\n  end;\r\nend;\r\n\r\nprocedure TMediaCapture.StartRecording;\r\nbegin\r\n  FRecorder.start;\r\n\r\n  if Assigned(OnStartCapture) then\r\n    OnStartCapture(Self);\r\nend;\r\n\r\nprocedure TMediaCapture.Stop;\r\nbegin\r\n  case FRecordingMode of\r\n    mrmAuto: StopAuto;\r\n    mrmManual: StopManual;\r\n  end;\r\nend;\r\n\r\nprocedure TMediaCapture.StopAuto;\r\nbegin\r\n  FStopped := True;\r\n\r\n  if Assigned(FRecorder) and FIsRecording then\r\n  begin\r\n    FIsRecording := False;\r\n    FRecorder.Stop;\r\n  end;\r\nend;\r\n\r\nprocedure TMediaCapture.StopManual;\r\nbegin\r\n  if Assigned(FRecorder) then\r\n    FRecorder.Stop;\r\n\r\n  if Assigned(FCamera) then\r\n    FCamera.Stop;\r\n\r\n  if Assigned(FAudioTrack) then\r\n  begin\r\n    FAudioTrack.stop;\r\n    FAudioTrack := nil;\r\n  end;\r\n\r\n  if Assigned(FVideoTrack) then\r\n  begin\r\n    FVideoTrack.stop;\r\n    FVideoTrack := nil;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit unit_BarcodeScan;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, WEBLib.Devices, Vcl.StdCtrls, WEBLib.StdCtrls,\r\n  Vcl.Controls, WEBLib.ExtCtrls;\r\n\r\ntype\r\n  TBarcodeScan = class(TForm)\r\n    WebBarcodeDecoder1: TBarcodeDecoder;\r\n    WebCamera1: TCamera;\r\n    Container2: THTMLContainer;\r\n    Container1: THTMLContainer;\r\n    btnAbbrechen: TButton;\r\n    btnstart: TButton;\r\n    labelergebnis: TLabel;\r\n    Container3: THTMLContainer;\r\n    procedure WebCamera1CameraDevicesInitialized(Sender: TObject);\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure btnAbbrechenClick(Sender: TObject);\r\n    procedure btnstartClick(Sender: TObject);\r\n    procedure WebBarcodeDecoder1Decoded(Sender: TObject; ADecoded: string);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    ScanErgebnis:string;\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  BarcodeScan: TBarcodeScan;\r\n\r\nimplementation\r\n\r\n{$R *.dfm}\r\n\r\nprocedure TBarcodeScan.btnstartClick(Sender: TObject);\r\nbegin\r\n  WebCamera1.Start;\r\nend;\r\n\r\nprocedure TBarcodeScan.WebBarcodeDecoder1Decoded(Sender: TObject;\r\n  ADecoded: string);\r\nbegin\r\n  ScanErgebnis:= trim(ADecoded);\r\n  labelergebnis.Caption:=ScanErgebnis;\r\n  WebCamera1.Stop;\r\n  self.Close;\r\nend;\r\n\r\nprocedure TBarcodeScan.btnAbbrechenClick(Sender: TObject);\r\nbegin\r\n  ScanErgebnis:='';\r\n  webcamera1.Stop;\r\n  self.Close;\r\nend;\r\n\r\nprocedure TBarcodeScan.WebCamera1CameraDevicesInitialized(Sender: TObject);\r\nbegin\r\n  labelergebnis.Caption:='Camera gestartet';\r\n  btnstart.Visible:=false;\r\nend;\r\n\r\nprocedure TBarcodeScan.WebFormShow(Sender: TObject);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Barcode scannen</h5></nav>';\r\n  Container2.HTML.Text:='';\r\n  myelement:=container2.ElementHandle;\r\n  btnabbrechen.ParentElement:=myelement;\r\n  btnstart.ParentElement:=myelement;\r\n  myelement:=container3.ElementHandle;\r\n  labelergebnis.ParentElement:=myelement;\r\n  webcamera1.ParentElement:=myelement;\r\n  btnstartClick(Sender);\r\nend;\r\n\r\nprocedure TBarcodeScan.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  labelergebnis := TLabel.Create(Self);\r\n  WebCamera1 := TCamera.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  btnAbbrechen := TButton.Create(Self);\r\n  btnstart := TButton.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  WebBarcodeDecoder1 := TBarcodeDecoder.Create(Self);\r\n\r\n  labelergebnis.BeforeLoadDFMValues;\r\n  WebCamera1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  btnAbbrechen.BeforeLoadDFMValues;\r\n  btnstart.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  WebBarcodeDecoder1.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'BarcodeScan';\r\n    Width := 175;\r\n    Height := 348;\r\n    Caption := 'BarcodeScan';\r\n    CSSLibrary := cssBootstrap;\r\n    Font.Charset := DEFAULT_CHARSET;\r\n    Font.Color := clWindowText;\r\n    Font.Height := -11;\r\n    Font.Name := 'Arial';\r\n    Font.Style := [];\r\n    ParentFont := False;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    labelergebnis.SetParentComponent(Self);\r\n    labelergebnis.Name := 'labelergebnis';\r\n    labelergebnis.Left := 8;\r\n    labelergebnis.Top := 140;\r\n    labelergebnis.Width := 64;\r\n    labelergebnis.Height := 14;\r\n    labelergebnis.Caption := 'labelergebnis';\r\n    labelergebnis.ElementClassName := 'h6 m-1';\r\n    labelergebnis.ElementFont := efCSS;\r\n    labelergebnis.ElementPosition := epIgnore;\r\n    labelergebnis.HeightStyle := ssAuto;\r\n    labelergebnis.HeightPercent := 100.000000000000000000;\r\n    labelergebnis.WidthPercent := 100.000000000000000000;\r\n    WebCamera1.SetParentComponent(Self);\r\n    WebCamera1.Name := 'WebCamera1';\r\n    WebCamera1.Left := 0;\r\n    WebCamera1.Top := 222;\r\n    WebCamera1.Width := 169;\r\n    WebCamera1.Height := 118;\r\n    WebCamera1.HeightStyle := ssAuto;\r\n    WebCamera1.WidthStyle := ssPercent;\r\n    WebCamera1.WidthPercent := 90.000000000000000000;\r\n    WebCamera1.CameraType := ctRear;\r\n    SetEvent(WebCamera1, Self, 'OnCameraDevicesInitialized', 'WebCamera1CameraDevicesInitialized');\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 5;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ChildOrder := 2;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    btnAbbrechen.SetParentComponent(Self);\r\n    btnAbbrechen.Name := 'btnAbbrechen';\r\n    btnAbbrechen.Left := 0;\r\n    btnAbbrechen.Top := 160;\r\n    btnAbbrechen.Width := 96;\r\n    btnAbbrechen.Height := 25;\r\n    btnAbbrechen.Caption := 'ABBRECHEN';\r\n    btnAbbrechen.ChildOrder := 3;\r\n    btnAbbrechen.ElementClassName := 'btn btn-info m-1 text-left';\r\n    btnAbbrechen.ElementFont := efCSS;\r\n    btnAbbrechen.ElementPosition := epIgnore;\r\n    btnAbbrechen.HeightStyle := ssAuto;\r\n    btnAbbrechen.HeightPercent := 100.000000000000000000;\r\n    btnAbbrechen.WidthStyle := ssAuto;\r\n    btnAbbrechen.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnAbbrechen, Self, 'OnClick', 'btnAbbrechenClick');\r\n    btnstart.SetParentComponent(Self);\r\n    btnstart.Name := 'btnstart';\r\n    btnstart.Left := 0;\r\n    btnstart.Top := 191;\r\n    btnstart.Width := 96;\r\n    btnstart.Height := 25;\r\n    btnstart.Caption := 'START';\r\n    btnstart.ChildOrder := 3;\r\n    btnstart.ElementClassName := 'btn btn-info m-1 text-left';\r\n    btnstart.ElementFont := efCSS;\r\n    btnstart.ElementPosition := epIgnore;\r\n    btnstart.HeightStyle := ssAuto;\r\n    btnstart.HeightPercent := 100.000000000000000000;\r\n    btnstart.WidthStyle := ssAuto;\r\n    btnstart.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnstart, Self, 'OnClick', 'btnstartClick');\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 5;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    WebBarcodeDecoder1.SetParentComponent(Self);\r\n    WebBarcodeDecoder1.Name := 'WebBarcodeDecoder1';\r\n    WebBarcodeDecoder1.Camera := WebCamera1;\r\n    WebBarcodeDecoder1.EnableTimer := True;\r\n    WebBarcodeDecoder1.Reader := [bcvCode128,bcvEAN,bcvEAN8,bcvCode39,bcvCode39VIN,bcvCodabar,bcvUPC,bcvUPCE,bcvI2OF5,bcv2OF5,bcvCode93];\r\n    SetEvent(WebBarcodeDecoder1, Self, 'OnDecoded', 'WebBarcodeDecoder1Decoded');\r\n    WebBarcodeDecoder1.Left := 120;\r\n    WebBarcodeDecoder1.Top := 26;\r\n  finally\r\n    labelergebnis.AfterLoadDFMValues;\r\n    WebCamera1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    btnAbbrechen.AfterLoadDFMValues;\r\n    btnstart.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    WebBarcodeDecoder1.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.","unit unit_Artikelsuche;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Data.DB, WEBLib.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, XData.Web.Connection, Vcl.Controls, Vcl.StdCtrls,\r\n  WEBLib.StdCtrls, WEBLib.ExtCtrls, Vcl.Grids, WEBLib.DBCtrls, VCL.TMSFNCTypes,\r\n  VCL.TMSFNCUtils, VCL.TMSFNCGraphics, VCL.TMSFNCGraphicsTypes,\r\n  VCL.TMSFNCCustomControl, VCL.TMSFNCTableView, WEBLib.Buttons, WEBLib.Grids, DB;\r\n\r\ntype\r\n  TfrmArtikelsuche = class(TForm)\r\n    DataSet: TXDataWebDataSet;\r\n    Source: TDataSource;\r\n    DataSetArtikelnummer: TStringField;\r\n    DataSetArtikelueberschrift: TStringField;\r\n    DataSetArtikelbeschreibung: TStringField;\r\n    DataSetVerkaufspreis: TFloatField;\r\n    DataSetBestand: TFloatField;\r\n    TC: TTableControl;\r\n    DataSetArtikelmatchcode: TStringField;\r\n    DataSetEAN: TStringField;\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    Container3: THTMLContainer;\r\n    btnzurueck: TButton;\r\n    btnScan: TButton;\r\n    ResultLabel: TLabel;\r\n    edtSuchbegriff: TEdit;\r\n    btnNurArtikelMitBestand: TButton;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure DataSetAfterOpen(DataSet: TDataSet);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n    procedure btnScanClick(Sender: TObject);\r\n    procedure edtSuchbegriffChange(Sender: TObject);\r\n    procedure ResultLabelClick(Sender: TObject);\r\n    procedure btnNurArtikelMitBestandClick(Sender: TObject);\r\n\r\n    public\r\n    Artikelnummer:string;\r\n    NurArtikelMitBestand:boolean;\r\n    weiterzueinzelartikel:boolean;\r\n    buttonartikelnummer:TButton;\r\n    procedure buttonartikelnummerclick(Sender:TObject);\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  frmArtikelsuche: TfrmArtikelsuche;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_Artikel, unit_BarcodeScan;\r\n{$R *.dfm}\r\n\r\nprocedure TfrmArtikelsuche.btnNurArtikelMitBestandClick(Sender: TObject);\r\nbegin\r\n  if NurArtikelMitBestand=false then NurArtikelMitBestand:=true else NurArtikelMitBestand:=false;\r\n  if NurArtikelMitBestand=false then btnNurArtikelMitBestand.Caption:='mit Bestand';\r\n  if NurArtikelMitBestand=true then btnNurArtikelMitBestand.Caption:='Bestand egal';\r\n  edtSuchbegriffChange(self);\r\nend;\r\n\r\nprocedure TfrmArtikelsuche.btnScanClick(Sender: TObject);\r\nvar\r\n  LFrm:TBarcodeScan;\r\n  procedure AfterCreate(AForm:TObject);\r\n  var\r\n    LForm:TBarcodeScan;\r\n    begin\r\n      LForm:=(AForm as TBarcodeScan);\r\n      //lform.mykundehint:=xdsEinzelkontaktKundennummer.AsString+' '+xdsEinzelkontaktNachname.AsString+', '+xdsEinzelkontaktVorname.asstring;\r\n      //lForm.edttoaddress.Text:= xdsEinzelkontaktPostleitzahl.AsString+' '+xdsEinzelkontaktort.AsString+', '+xdsEinzelkontaktStrasse.AsString;\r\n\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      edtsuchbegriff.text:=trim(lfrm.ScanErgebnis);\r\n      edtsuchbegriffChange(self);\r\n    end;\r\n  begin\r\n    if LizenzOK then\r\n    begin\r\n      LFrm:=TBarcodeScan.CreateNew(@AfterCreate);\r\n      LFrm.ShowModal(@AfterShowmodal);\r\n    end\r\n    else\r\n    begin\r\n      showmessage('Für diese Funktion sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n    end;\r\nend;\r\n\r\nprocedure TfrmArtikelsuche.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  self.Close;\r\nend;\r\n\r\nprocedure TfrmArtikelsuche.buttonartikelnummerclick(Sender:TObject);\r\nvar\r\n  MFrm:TfrmArtikel;\r\n    procedure AfterCreate(AForm:TObject);\r\n    begin\r\n      (AForm as TfrmArtikel).edtArtikelnummer.text:=Artikelnummer;\r\n      (AForm as TfrmArtikel).edtArtikelnummerChange(nil);\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      edtsuchbegriffChange(nil);\r\n    end;\r\n\r\n  begin\r\n  Artikelnummer:=(sender as TButton).Caption;\r\n\r\n  if weiterzueinzelartikel then\r\n  begin\r\n    tc.Visible:=false;\r\n    MFrm:=TfrmArtikel.CreateNew(@AfterCreate);\r\n    MFrm.ShowModal(@AfterShowmodal);\r\n\r\n  end\r\n  else\r\n  begin\r\n    self.close;\r\n  end;\r\nend;\r\n\r\nprocedure TfrmArtikelsuche.DataSetAfterOpen(DataSet: TDataSet);\r\nvar\r\n  i:integer;\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  i:=0;\r\n  TC.visible:=true;\r\n  TC.ColCount:=6;\r\n  tc.RowCount:=dataset.RecordCount+1;\r\n  tc.Cells[0,i]:='Artikelnummer';\r\n  tc.Cells[1,i]:='Artikelüberschrift';\r\n  tc.Cells[2,i]:='Artikelbeschreibung';\r\n  tc.Cells[3,i]:='Bestand';\r\n  tc.Cells[4,i]:='EAN';\r\n  tc.Cells[5,i]:='Matchcode';\r\n  dataset.First;\r\n  if dataset.RecordCount=0 then ResultLabel.HTML:='nichts gefunden';\r\n  if dataset.RecordCount>0 then ResultLabel.HTML:='Übereinstimmungen: '+inttostr(dataset.RecordCount);\r\n  if dataset.RecordCount>20 then ResultLabel.HTML:='mehr als 20 Übereinstimmungen <I><U>mehr anzeigen</I></U>';\r\n  if dataset.RecordCount>22 then ResultLabel.HTML:='Übereinstimmungen: '+inttostr(dataset.RecordCount)+' (max. Anzeige: 500)';\r\n\r\n\r\n  while not dataset.eof do\r\n  begin\r\n    inc(i);\r\n    myelement:=TC.cellelements[0,i];\r\n    myelement.innerHTML:='';\r\n    buttonartikelnummer:=TButton.Create(self);\r\n    buttonartikelnummer.ElementClassName:='btn btn-sm btn-info';\r\n    buttonartikelnummer.HeightStyle:=ssauto;\r\n    buttonartikelnummer.Width:=150;\r\n    buttonartikelnummer.tag:=0;\r\n    buttonartikelnummer.Caption:=DataSetArtikelnummer.AsString;\r\n    buttonartikelnummer.OnClick:=@buttonartikelnummerClick;\r\n    buttonartikelnummer.ParentElement:=myelement;\r\n    TC.Cells[1,i]:=DataSetArtikelueberschrift.AsString;\r\n    TC.Cells[2,i]:=leftstr(DataSetArtikelbeschreibung.AsString,250);\r\n    TC.Cells[3,i]:=DataSetBestand.AsString;\r\n    TC.Cells[4,i]:=DataSetEAN.AsString;\r\n    TC.Cells[5,i]:=DataSetArtikelmatchcode.AsString;\r\n    dataset.Next;\r\n  end;\r\n\r\n  btnNurArtikelMitBestand.Enabled:=true;\r\nend;\r\n\r\n\r\n\r\nprocedure TfrmArtikelsuche.edtSuchbegriffChange(Sender: TObject);\r\nvar\r\n  suchtext:string;\r\nbegin\r\n  suchtext:=trim(edtsuchbegriff.Text);\r\n  if length(suchtext)>0 then\r\n  begin\r\n    if NurArtikelMitBestand=false then\r\n    begin\r\n      dataset.Close;\r\n      dataset.QueryTop:=21;\r\n      dataset.QueryString:='$filter=contains(Artikelueberschrift, '''+suchtext+''') OR contains(Artikelnummer, '''+suchtext+''') OR contains(EAN, '''+suchtext+''') OR contains(Artikelmatchcode, '''+suchtext+''') OR contains(Artikelbeschreibung, '''+suchtext+''')';\r\n      dataset.Load;\r\n    end\r\n    else\r\n    begin\r\n      dataset.Close;\r\n      dataset.QueryTop:=21;\r\n      dataset.QueryString:='$filter=(contains(Artikelueberschrift, '''+suchtext+''') OR contains(Artikelnummer, '''+suchtext+''') OR contains(EAN, '''+suchtext+''') OR contains(Artikelmatchcode, '''+suchtext+''') OR contains(Artikelbeschreibung, '''+suchtext+''')) AND Bestand gt 0';\r\n      dataset.Load;\r\n    end;\r\n  end;\r\nend;\r\n\r\n\r\nprocedure TfrmArtikelsuche.ResultLabelClick(Sender: TObject);\r\nbegin\r\n  if Pos('mehr anzeigen',resultlabel.html,0)>1 then\r\n  begin\r\n    dataset.close;\r\n    dataset.QueryTop:=501;\r\n    dataset.Load;\r\n  end;\r\nend;\r\n\r\nprocedure TfrmArtikelsuche.WebFormShow(Sender: TObject);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Artikelsuche</h5></nav>';\r\n  Container2.HTML.Text:='';\r\n  myelement:=container1.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  btnNurArtikelMitBestand.ParentElement:=myelement;\r\n  btnscan.ParentElement:=myelement;\r\n  container2.ParentElement:=myelement;\r\n  Container3.ParentElement:=myelement;\r\n  myelement:=container2.ElementHandle;\r\n  resultlabel.Caption:='Suchbegriff';\r\n  resultlabel.ParentElement:=myelement;\r\n  edtsuchbegriff.ParentElement:=myelement;\r\n  myelement:=container3.ElementHandle;\r\n  TC.ParentElement:=myelement;\r\n  TC.Visible:=false;\r\n  artikelnummer:='';\r\n  NurartikelmitBestand:=false;\r\n  btnNurArtikelMitBestand.Enabled:=false;\r\n  edtsuchbegriff.SetFocus;\r\nend;\r\n\r\nprocedure TfrmArtikelsuche.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  ResultLabel := TLabel.Create(Self);\r\n  TC := TTableControl.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  btnScan := TButton.Create(Self);\r\n  edtSuchbegriff := TEdit.Create(Self);\r\n  btnNurArtikelMitBestand := TButton.Create(Self);\r\n  DataSet := TXDataWebDataSet.Create(Self);\r\n  DataSetArtikelnummer := TStringField.Create(Self);\r\n  DataSetArtikelueberschrift := TStringField.Create(Self);\r\n  DataSetArtikelbeschreibung := TStringField.Create(Self);\r\n  DataSetVerkaufspreis := TFloatField.Create(Self);\r\n  DataSetBestand := TFloatField.Create(Self);\r\n  DataSetArtikelmatchcode := TStringField.Create(Self);\r\n  DataSetEAN := TStringField.Create(Self);\r\n  Source := TDataSource.Create(Self);\r\n\r\n  ResultLabel.BeforeLoadDFMValues;\r\n  TC.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  btnScan.BeforeLoadDFMValues;\r\n  edtSuchbegriff.BeforeLoadDFMValues;\r\n  btnNurArtikelMitBestand.BeforeLoadDFMValues;\r\n  DataSet.BeforeLoadDFMValues;\r\n  DataSetArtikelnummer.BeforeLoadDFMValues;\r\n  DataSetArtikelueberschrift.BeforeLoadDFMValues;\r\n  DataSetArtikelbeschreibung.BeforeLoadDFMValues;\r\n  DataSetVerkaufspreis.BeforeLoadDFMValues;\r\n  DataSetBestand.BeforeLoadDFMValues;\r\n  DataSetArtikelmatchcode.BeforeLoadDFMValues;\r\n  DataSetEAN.BeforeLoadDFMValues;\r\n  Source.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'frmArtikelsuche';\r\n    Width := 173;\r\n    Height := 344;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    Visible := True;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    ResultLabel.SetParentComponent(Self);\r\n    ResultLabel.Name := 'ResultLabel';\r\n    ResultLabel.Left := 8;\r\n    ResultLabel.Top := 288;\r\n    ResultLabel.Width := 60;\r\n    ResultLabel.Height := 15;\r\n    ResultLabel.Caption := 'ResultLabel';\r\n    ResultLabel.ElementClassName := 'h6 m-2';\r\n    ResultLabel.ElementFont := efCSS;\r\n    ResultLabel.ElementPosition := epIgnore;\r\n    ResultLabel.HeightStyle := ssAuto;\r\n    ResultLabel.HeightPercent := 100.000000000000000000;\r\n    ResultLabel.WidthStyle := ssPercent;\r\n    ResultLabel.WidthPercent := 100.000000000000000000;\r\n    SetEvent(ResultLabel, Self, 'OnClick', 'ResultLabelClick');\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.Left := 0;\r\n    TC.Top := 141;\r\n    TC.Width := 169;\r\n    TC.Height := 79;\r\n    TC.ElementClassName := 'table table-hover table-bordered table-striped';\r\n    TC.HeightStyle := ssAuto;\r\n    TC.WidthStyle := ssPercent;\r\n    TC.BorderColor := clSilver;\r\n    TC.ChildOrder := 3;\r\n    TC.ColHeader := False;\r\n    TC.ElementFont := efCSS;\r\n    TC.ElementHeaderClassName := 'table-info';\r\n    TC.ElementPosition := epIgnore;\r\n    TC.ElementTableClassName := 'table table-hover table-bordered table-striped';\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 1;\r\n    TC.RowCount := 5;\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epRelative;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex m-1';\r\n    Container3.HeightStyle := ssPercent;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 2;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 0;\r\n    btnzurueck.Top := 226;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    btnScan.SetParentComponent(Self);\r\n    btnScan.Name := 'btnScan';\r\n    btnScan.Left := 0;\r\n    btnScan.Top := 257;\r\n    btnScan.Width := 96;\r\n    btnScan.Height := 25;\r\n    btnScan.Caption := 'Bar-/QR-Code scannen';\r\n    btnScan.ChildOrder := 4;\r\n    btnScan.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnScan.ElementFont := efCSS;\r\n    btnScan.ElementPosition := epIgnore;\r\n    btnScan.HeightStyle := ssAuto;\r\n    btnScan.HeightPercent := 100.000000000000000000;\r\n    btnScan.WidthStyle := ssAuto;\r\n    btnScan.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnScan, Self, 'OnClick', 'btnScanClick');\r\n    edtSuchbegriff.SetParentComponent(Self);\r\n    edtSuchbegriff.Name := 'edtSuchbegriff';\r\n    edtSuchbegriff.Left := 8;\r\n    edtSuchbegriff.Top := 307;\r\n    edtSuchbegriff.Width := 150;\r\n    edtSuchbegriff.Height := 22;\r\n    edtSuchbegriff.ChildOrder := 6;\r\n    edtSuchbegriff.ElementClassName := 'form-control input-sm m-1';\r\n    edtSuchbegriff.ElementFont := efCSS;\r\n    edtSuchbegriff.ElementPosition := epIgnore;\r\n    edtSuchbegriff.HeightStyle := ssAuto;\r\n    edtSuchbegriff.HeightPercent := 100.000000000000000000;\r\n    edtSuchbegriff.ShowHint := True;\r\n    edtSuchbegriff.TextHint := 'Suchbegriff eingeben';\r\n    edtSuchbegriff.WidthPercent := 60.000000000000000000;\r\n    SetEvent(edtSuchbegriff, Self, 'OnChange', 'edtSuchbegriffChange');\r\n    btnNurArtikelMitBestand.SetParentComponent(Self);\r\n    btnNurArtikelMitBestand.Name := 'btnNurArtikelMitBestand';\r\n    btnNurArtikelMitBestand.Left := 102;\r\n    btnNurArtikelMitBestand.Top := 226;\r\n    btnNurArtikelMitBestand.Width := 96;\r\n    btnNurArtikelMitBestand.Height := 25;\r\n    btnNurArtikelMitBestand.Caption := 'mit Bestand';\r\n    btnNurArtikelMitBestand.ChildOrder := 4;\r\n    btnNurArtikelMitBestand.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnNurArtikelMitBestand.ElementFont := efCSS;\r\n    btnNurArtikelMitBestand.ElementPosition := epIgnore;\r\n    btnNurArtikelMitBestand.HeightStyle := ssAuto;\r\n    btnNurArtikelMitBestand.HeightPercent := 100.000000000000000000;\r\n    btnNurArtikelMitBestand.WidthStyle := ssAuto;\r\n    btnNurArtikelMitBestand.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnNurArtikelMitBestand, Self, 'OnClick', 'btnNurArtikelMitBestandClick');\r\n    DataSet.SetParentComponent(Self);\r\n    DataSet.Name := 'DataSet';\r\n    DataSet.AfterOpen := DataSetAfterOpen;\r\n    DataSet.EntitySetName := 'Artikel';\r\n    DataSet.Connection := DM2.XDataWebConnection1;\r\n    DataSet.QueryTop := 21;\r\n    DataSet.Left := 56;\r\n    DataSet.Top := 72;\r\n    DataSetArtikelnummer.SetParentComponent(DataSet);\r\n    DataSetArtikelnummer.Name := 'DataSetArtikelnummer';\r\n    DataSetArtikelnummer.FieldName := 'Artikelnummer';\r\n    DataSetArtikelnummer.Required := True;\r\n    DataSetArtikelnummer.Size := 25;\r\n    DataSetArtikelueberschrift.SetParentComponent(DataSet);\r\n    DataSetArtikelueberschrift.Name := 'DataSetArtikelueberschrift';\r\n    DataSetArtikelueberschrift.FieldName := 'Artikelueberschrift';\r\n    DataSetArtikelueberschrift.Size := 50;\r\n    DataSetArtikelbeschreibung.SetParentComponent(DataSet);\r\n    DataSetArtikelbeschreibung.Name := 'DataSetArtikelbeschreibung';\r\n    DataSetArtikelbeschreibung.FieldName := 'Artikelbeschreibung';\r\n    DataSetArtikelbeschreibung.Size := 255;\r\n    DataSetVerkaufspreis.SetParentComponent(DataSet);\r\n    DataSetVerkaufspreis.Name := 'DataSetVerkaufspreis';\r\n    DataSetVerkaufspreis.FieldName := 'Verkaufspreis';\r\n    DataSetBestand.SetParentComponent(DataSet);\r\n    DataSetBestand.Name := 'DataSetBestand';\r\n    DataSetBestand.FieldName := 'Bestand';\r\n    DataSetArtikelmatchcode.SetParentComponent(DataSet);\r\n    DataSetArtikelmatchcode.Name := 'DataSetArtikelmatchcode';\r\n    DataSetArtikelmatchcode.FieldName := 'Artikelmatchcode';\r\n    DataSetArtikelmatchcode.Size := 30;\r\n    DataSetEAN.SetParentComponent(DataSet);\r\n    DataSetEAN.Name := 'DataSetEAN';\r\n    DataSetEAN.FieldName := 'EAN';\r\n    DataSetEAN.Size := 15;\r\n    Source.SetParentComponent(Self);\r\n    Source.Name := 'Source';\r\n    Source.DataSet := DataSet;\r\n    Source.Left := 56;\r\n    Source.Top := 144;\r\n  finally\r\n    ResultLabel.AfterLoadDFMValues;\r\n    TC.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    btnScan.AfterLoadDFMValues;\r\n    edtSuchbegriff.AfterLoadDFMValues;\r\n    btnNurArtikelMitBestand.AfterLoadDFMValues;\r\n    DataSet.AfterLoadDFMValues;\r\n    DataSetArtikelnummer.AfterLoadDFMValues;\r\n    DataSetArtikelueberschrift.AfterLoadDFMValues;\r\n    DataSetArtikelbeschreibung.AfterLoadDFMValues;\r\n    DataSetVerkaufspreis.AfterLoadDFMValues;\r\n    DataSetBestand.AfterLoadDFMValues;\r\n    DataSetArtikelmatchcode.AfterLoadDFMValues;\r\n    DataSetEAN.AfterLoadDFMValues;\r\n    Source.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            Copyright (c) 2020                                      }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.SignatureCapture;\r\n\r\n{$DEFINE NOPP}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, WEBLib.Controls, Types, Contnrs, WEBLib.Graphics, web;\r\n\r\ntype\r\n  TSignatureCaptureLineTextPosition = (ltpBottomLeft, ltpBottomCenter, ltpBottomRight, ltpTopLeft, ltpTopCenter, ltpTopRight, ltpXY);\r\n\r\n  TSignatureCaptureSignTextPosition = class(TPersistent)\r\n  private\r\n    FLineVisible: Boolean;\r\n    FOnChange: TNotifyEvent;\r\n    FPosition: TSignatureCaptureLineTextPosition;\r\n    FX: Integer;\r\n    FY: Integer;\r\n    FLine: TPen;\r\n    procedure SetLineVisible(const Value: Boolean);\r\n    procedure SetPosition(const Value: TSignatureCaptureLineTextPosition);\r\n    procedure SetX(const Value: Integer);\r\n    procedure SetY(const Value: Integer);\r\n    procedure SetLine(const Value: TPen);\r\n  protected\r\n    procedure Changed; virtual;\r\n  public\r\n    constructor Create;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  published\r\n    property Line: TPen read FLine write SetLine;\r\n    property LineVisible: Boolean read FLineVisible write SetLineVisible;\r\n    property Position: TSignatureCaptureLineTextPosition read FPosition write SetPosition;\r\n    property X: Integer read FX write SetX;\r\n    property Y: Integer read FY write SetY;\r\n  end;\r\n\r\n  TSignatureCapturePoint = class(TObject)\r\n  public\r\n    X, Y, PenWidth: Integer;\r\n    DrawLine: Boolean;\r\n    PenColor: TColor;\r\n    PenStyle: TPenStyle;\r\n  end;\r\n\r\n  TSignatureCapturePoints = class(TObjectList)\r\n  private\r\n    function GetItem(Index: Integer): TSignatureCapturePoint; reintroduce;\r\n    procedure SetItem(Index: Integer; const Value: TSignatureCapturePoint);\r\n  public\r\n    property Items[Index: Integer]: TSignatureCapturePoint read GetItem write SetItem; default;\r\n  end;\r\n\r\n  TSignatureCaptureClearButtonPosition = (cbpTopLeft, cbpTopRight, cbpBottomLeft, cbpBottomRight, cbpXY);\r\n\r\n  TSignatureCaptureClearButton = class(TPersistent)\r\n  private\r\n    FImage: TURLPicture;\r\n    FX: Integer;\r\n    FY: Integer;\r\n    FPosition: TSignatureCaptureClearButtonPosition;\r\n    FOnChange: TNotifyEvent;\r\n    procedure SetImage(const Value: TURLPicture);\r\n    procedure SetPosition(const Value: TSignatureCaptureClearButtonPosition);\r\n    procedure SetX(const Value: Integer);\r\n    procedure SetY(const Value: Integer);\r\n  protected\r\n    procedure Changed; virtual;\r\n    procedure ImageChange(Sender: TObject);\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  published\r\n    property Image: TURLPicture read FImage write SetImage;\r\n    property Position: TSignatureCaptureClearButtonPosition read FPosition write SetPosition;\r\n    property X: Integer read FX write SetX;\r\n    property Y: Integer read FY write SetY;\r\n  end;\r\n\r\n  TSignatureCapture = class(TCustomControl)\r\n  private\r\n    FExport: Boolean;\r\n    FClearBtn: TGraphic;\r\n    FMouseDown: Boolean;\r\n    FSignaturePoints: TSignatureCapturePoints;\r\n    FTextPosition: TSignatureCaptureSignTextPosition;\r\n    FPen: TPen;\r\n    FClearButton: TSignatureCaptureClearButton;\r\n    FText: string;\r\n    procedure SetTextPosition(const Value: TSignatureCaptureSignTextPosition);\r\n    procedure SetPen(const Value: TPen);\r\n    procedure SetClearButton(const Value: TSignatureCaptureClearButton);\r\n    function GetEmpty: Boolean;\r\n    procedure SetEmpty(const Value: Boolean);\r\n    procedure SetText(const Value: string);\r\n  protected\r\n    procedure CreateInitialize; override;\r\n    procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X,Y: Integer); override;\r\n    procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X,Y: Integer); override;\r\n    procedure MouseMove(Shift: TShiftState; X,Y: Integer); override;\r\n    procedure Paint; override;\r\n    procedure PaintSignature(ACanvas: TCanvas); virtual;\r\n    procedure PaintClearButton; virtual;\r\n    procedure PaintLine; virtual;\r\n    procedure PaintText; virtual;\r\n    procedure ClearBtnChanged(Sender: TObject);\r\n    procedure ButtonChanged(Sender: TObject);\r\n    procedure TextPositionChanged(Sender: TObject);\r\n    function GetLineY: Integer;\r\n    function InClearRect(AX, AY: Integer): Boolean;\r\n    procedure UpdateElement; override;\r\n  public\r\n    destructor Destroy; override;\r\n    function GetAsBase64Image: string;\r\n    property Empty: Boolean read GetEmpty write SetEmpty;\r\n  published\r\n    property Align;\r\n    property Anchors;\r\n    property ChildOrder;\r\n    property ShowHint;\r\n    property Visible;\r\n    property TabOrder;\r\n    property TabStop;\r\n    property ClearButton: TSignatureCaptureClearButton read FClearButton write SetClearButton;\r\n    property TextPosition: TSignatureCaptureSignTextPosition read FTextPosition write SetTextPosition;\r\n    property Text: string read FText write SetText;\r\n    property Pen: TPen read FPen write SetPen;\r\n    property OnEnter;\r\n    property OnExit;\r\n    property OnMouseDown;\r\n    property OnMouseEnter;\r\n    property OnMouseLeave;\r\n    property OnMouseMove;\r\n    property OnMouseUp;\r\n  end;\r\n\r\n  TWebSignatureCapture = class(TSignatureCapture);\r\n\r\nimplementation\r\n\r\nconst\r\n  TEXTSPACING = 5;\r\n  TSIGNATURECAPTURECLEAR = 'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAArklEQVRIS+2U0Q2DQAxDH0swRLdop2AIxukQnaJsw' +\r\n                           'RBMgSxBhdCF+CdSP7ifSCfHTny5dBSfrpifWyB1OLLoAbyBAVgSlh74ACMwn7GRwBd4bgmKkYjIJ0AFKb5cgWOiqmqJOJjLKboisMjVTTamLSLl' +\r\n                           '7bZE3f2cygQEPIvoTp6n5E4HeyVHEd1Z5H8jUGpR6SOXjqkz5w4m/Aflq6J82aVr2AU4P9nlauJugdS+FVopQhlEDradAAAAAElFTkSuQmCC';\r\n\r\n{ TSignatureCapture }\r\n\r\nprocedure TSignatureCapture.ButtonChanged(Sender: TObject);\r\nbegin\r\n  if FClearButton.Image.Data <> '' then\r\n    FClearBtn.LoadFromResource('')\r\n  else\r\n    FClearBtn.LoadFromFile(FClearButton.Image.FileName);\r\n    \r\n  Invalidate;\r\nend;\r\n\r\nprocedure TSignatureCapture.ClearBtnChanged(Sender: TObject);\r\nbegin\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TSignatureCapture.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  AllowTouch := False;\r\n  FText := 'Sign here';\r\n  FClearBtn := TGraphic.Create;\r\n  FClearBtn.LoadFromResource(TSIGNATURECAPTURECLEAR);\r\n  FClearBtn.OnChange := ClearBtnChanged;\r\n  FMouseDown := False;\r\n  FClearButton := TSignatureCaptureClearButton.Create;\r\n  FClearButton.OnChange := ButtonChanged;\r\n  FSignaturePoints := TSignatureCapturePoints.Create;\r\n  FTextPosition := TSignatureCaptureSignTextPosition.Create;\r\n  FTextPosition.OnChange := TextPositionChanged;\r\n  FPen := TPen.Create;\r\n  CustomBorder := True;\r\n  BorderStyle := bsSingle;\r\n  Width := 300;\r\n  Height := 256;\r\nend;\r\n\r\ndestructor TSignatureCapture.Destroy;\r\nbegin\r\n  FClearBtn.Free;\r\n  FClearButton.Free;\r\n  FSignaturePoints.Free;\r\n  FTextPosition.Free;\r\n  FPen.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TSignatureCapture.GetAsBase64Image: string;\r\nbegin\r\n  FExport := True;\r\n  Invalidate;\r\n  Result := Canvas.GetBase64Image;\r\n  FExport := False;\r\n  Invalidate;\r\nend;\r\n\r\nfunction TSignatureCapture.GetEmpty: Boolean;\r\nbegin\r\n  Result := FSignaturePoints.Count = 0;\r\nend;\r\n\r\nfunction TSignatureCapture.GetLineY: Integer;\r\nbegin\r\n  Result := Round(Canvas.TextHeight(Text)) + 2 * TEXTSPACING;\r\nend;\r\n\r\nfunction TSignatureCapture.InClearRect(AX, AY: Integer): Boolean;\r\nvar\r\n  h: Integer;\r\nbegin\r\n  Result := False;\r\n\r\n  case FClearButton.Position of\r\n    cbpTopLeft:\r\n    begin\r\n      case FTextPosition.Position of\r\n        ltpBottomLeft, ltpBottomCenter, ltpBottomRight, ltpXY:\r\n        begin\r\n          Result := (AX >= TEXTSPACING) and (AX <= TEXTSPACING + FClearBtn.Width) and (AY >= TEXTSPACING) and (AY <= TEXTSPACING + FClearBtn.Height);\r\n        end;\r\n        ltpTopLeft, ltpTopCenter, ltpTopRight:\r\n        begin\r\n          h := GetLineY;\r\n          Result := (AX >= TEXTSPACING) and (AX <= TEXTSPACING + FClearBtn.Width) and (AY >= TEXTSPACING + h) and (AY <= TEXTSPACING + h + FClearBtn.Height);\r\n        end;\r\n      end;\r\n    end;\r\n    cbpTopRight:\r\n    begin\r\n      case FTextPosition.Position of\r\n        ltpBottomLeft, ltpBottomCenter, ltpBottomRight, ltpXY:\r\n        begin\r\n          Result := (AX >= Width - FClearBtn.Width - TEXTSPACING) and (AX <= Width - TEXTSPACING) and (AY >= TEXTSPACING) and (AY <= TEXTSPACING + FClearBtn.Height);\r\n        end;\r\n        ltpTopLeft, ltpTopCenter, ltpTopRight:\r\n        begin\r\n          h := GetLineY;\r\n          Result := (AX >= Width - FClearBtn.Width - TEXTSPACING) and (AX <= Width - TEXTSPACING) and (AY >= TEXTSPACING + h) and (AY <= TEXTSPACING + h + FClearBtn.Height);\r\n        end;\r\n      end;\r\n    end;\r\n    cbpBottomLeft:\r\n    begin\r\n      case FTextPosition.Position of\r\n        ltpBottomLeft, ltpBottomCenter, ltpBottomRight:\r\n        begin\r\n          h := GetLineY;\r\n          Result := (AX >= TEXTSPACING) and (AX <= TEXTSPACING + FClearBtn.Width) and (AY >= Height - FClearBtn.Height - h - TEXTSPACING) and (AY <= Height - h - TEXTSPACING);\r\n        end;\r\n        ltpTopLeft, ltpTopCenter, ltpTopRight, ltpXY:\r\n        begin\r\n          Result := (AX >= TEXTSPACING) and (AX <= TEXTSPACING + FClearBtn.Width) and (AY >= Height - FClearBtn.Height - TEXTSPACING) and (AY <= Height - TEXTSPACING);\r\n        end;\r\n      end;\r\n    end;\r\n    cbpBottomRight:\r\n    begin\r\n      case FTextPosition.Position of\r\n        ltpBottomLeft, ltpBottomCenter, ltpBottomRight:\r\n        begin\r\n          h := GetLineY;\r\n          Result := (AX >= Width - FClearBtn.Width - TEXTSPACING) and (AX <= Width - TEXTSPACING) and (AY >= Height - FClearBtn.Height - h - TEXTSPACING) and (AY <= Height - h - TEXTSPACING);\r\n        end;\r\n        ltpTopLeft, ltpTopCenter, ltpTopRight, ltpXY:\r\n        begin\r\n          Result := (AX >= Width - FClearBtn.Width - TEXTSPACING) and (AX <= Width - TEXTSPACING) and (AY >= Height - FClearBtn.Height - TEXTSPACING) and (AY <= Height - TEXTSPACING);\r\n        end;\r\n      end;\r\n    end;\r\n    cbpXY: Result := (AX >= FClearButton.X) and (AX <= FClearButton.X + FClearBtn.Width) and (AY >= FClearButton.Y) and (AY <= FClearButton.Y + FClearBtn.Height);\r\n  end;\r\nend;\r\n\r\nprocedure TSignatureCapture.MouseDown(Button: TMouseButton; Shift: TShiftState;\r\n  X, Y: Integer);\r\nvar\r\n  p: TSignatureCapturePoint;\r\nbegin\r\n  inherited;\r\n  if InClearRect(X, Y) then\r\n    Empty := True\r\n  else\r\n  begin\r\n    FMouseDown := True;\r\n    p := TSignatureCapturePoint.Create;\r\n    p.X := X;\r\n    p.Y := Y;\r\n    p.DrawLine := False;\r\n    p.PenColor := FPen.Color;\r\n    p.PenWidth := FPen.Width;\r\n    p.PenStyle := FPen.Style;\r\n    FSignaturePoints.Add(p);\r\n    Capture;\r\n  end;\r\nend;\r\n\r\nprocedure TSignatureCapture.MouseMove(Shift: TShiftState; X, Y: Integer);\r\nvar\r\n  p: TSignatureCapturePoint;\r\nbegin\r\n  inherited;\r\n  if FMouseDown then\r\n  begin\r\n    Cursor := crDefault;\r\n    p := TSignatureCapturePoint.Create;\r\n    p.X := X;\r\n    p.Y := Y;\r\n    p.DrawLine := True;\r\n    p.PenColor := FPen.Color;\r\n    p.PenWidth := FPen.Width;\r\n    p.PenStyle := FPen.Style;\r\n    FSignaturePoints.Add(p);\r\n    Invalidate;\r\n  end\r\n  else\r\n  begin\r\n    if InClearRect(X, Y) then\r\n      Cursor := crHandPoint\r\n    else\r\n      Cursor := crDefault;\r\n  end;\r\nend;\r\n\r\nprocedure TSignatureCapture.MouseUp(Button: TMouseButton; Shift: TShiftState; X,\r\n  Y: Integer);\r\nvar\r\n  p: TSignatureCapturePoint;\r\nbegin\r\n  inherited;\r\n  p := TSignatureCapturePoint.Create;\r\n  p.X := X;\r\n  p.Y := Y;\r\n  p.DrawLine := True;\r\n  p.PenColor := FPen.Color;\r\n  p.PenWidth := FPen.Width;\r\n  p.PenStyle := FPen.Style;\r\n  FSignaturePoints.Add(p);\r\n  FMouseDown := False;\r\n  ReleaseCapture;\r\nend;\r\n\r\nprocedure TSignatureCapture.Paint;\r\nbegin\r\n  if not FExport then\r\n  begin\r\n    inherited;\r\n    Canvas.Clear;\r\n    PaintLine;\r\n    PaintText;\r\n    PaintClearButton;\r\n  end\r\n  else\r\n  begin\r\n    Canvas.Pen.Style := psClear;\r\n    Canvas.FillRect(Bounds(0, 0, Width + 1, Height + 1));\r\n  end;\r\n\r\n  PaintSignature(Canvas);\r\nend;\r\n\r\nprocedure TSignatureCapture.PaintClearButton;\r\nvar\r\n  h: Integer;\r\nbegin\r\n  case FClearButton.Position of\r\n    cbpTopLeft:\r\n    begin\r\n      case FTextPosition.Position of\r\n        ltpBottomLeft, ltpBottomCenter, ltpBottomRight, ltpXY:\r\n        begin\r\n          Canvas.Draw(TEXTSPACING, TEXTSPACING, FClearBtn);\r\n        end;\r\n        ltpTopLeft, ltpTopCenter, ltpTopRight:\r\n        begin\r\n          h := GetLineY;\r\n          Canvas.Draw(TEXTSPACING, h + TEXTSPACING, FClearBtn);\r\n        end;\r\n      end;\r\n    end;\r\n    cbpTopRight:\r\n    begin\r\n      case FTextPosition.Position of\r\n        ltpBottomLeft, ltpBottomCenter, ltpBottomRight, ltpXY:\r\n        begin\r\n          Canvas.Draw(Width - FClearBtn.Width - TEXTSPACING, TEXTSPACING, FClearBtn);\r\n        end;\r\n        ltpTopLeft, ltpTopCenter, ltpTopRight:\r\n        begin\r\n          h := GetLineY;\r\n          Canvas.Draw(Width - FClearBtn.Width - TEXTSPACING, h + TEXTSPACING, FClearBtn);\r\n        end;\r\n      end;\r\n    end;\r\n    cbpBottomLeft:\r\n    begin\r\n      case FTextPosition.Position of\r\n        ltpBottomLeft, ltpBottomCenter, ltpBottomRight:\r\n        begin\r\n          h := GetLineY;\r\n          Canvas.Draw(TEXTSPACING, Height - FClearBtn.Height - h - TEXTSPACING, FClearBtn);\r\n        end;\r\n        ltpTopLeft, ltpTopCenter, ltpTopRight, ltpXY:\r\n        begin\r\n          Canvas.Draw(TEXTSPACING, Height - FClearBtn.Height - TEXTSPACING, FClearBtn);\r\n        end;\r\n      end;\r\n    end;\r\n    cbpBottomRight:\r\n    begin\r\n      case FTextPosition.Position of\r\n        ltpBottomLeft, ltpBottomCenter, ltpBottomRight:\r\n        begin\r\n          h := GetLineY;\r\n          Canvas.Draw(Width - FClearBtn.Width - TEXTSPACING, Height - FClearBtn.Height - h - TEXTSPACING, FClearBtn);\r\n        end;\r\n        ltpTopLeft, ltpTopCenter, ltpTopRight, ltpXY:\r\n        begin\r\n          Canvas.Draw(Width - FClearBtn.Width - TEXTSPACING, Height - FClearBtn.Height - TEXTSPACING, FClearBtn);\r\n        end;\r\n      end;\r\n    end;\r\n    cbpXY: Canvas.Draw(FClearButton.X, FClearButton.Y, FClearBtn);\r\n  end;\r\nend;\r\n\r\nprocedure TSignatureCapture.PaintLine;\r\nvar\r\n  h: Integer;\r\nbegin\r\n  if FTextPosition.LineVisible then\r\n  begin\r\n    h := GetLineY;\r\n    Canvas.Pen.Assign(FTextPosition.Line);\r\n    case FTextPosition.Position of\r\n      ltpBottomLeft, ltpBottomCenter, ltpBottomRight:\r\n      begin\r\n        Canvas.MoveTo(0, Height - h);\r\n        Canvas.LineTo(Width, Height - h);\r\n      end;\r\n      ltpTopLeft, ltpTopCenter, ltpTopRight:\r\n      begin\r\n        Canvas.MoveTo(0, h);\r\n        Canvas.LineTo(Width, h);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TSignatureCapture.PaintSignature(ACanvas: TCanvas);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to FSignaturePoints.Count - 2 do\r\n  begin\r\n    if FSignaturePoints[I + 1].DrawLine then\r\n    begin\r\n      ACanvas.Pen.Width := FSignaturePoints[I].PenWidth;\r\n      ACanvas.Pen.Color := FSignaturePoints[I].PenColor;\r\n      ACanvas.Pen.Style := FSignaturePoints[I].PenStyle;\r\n      ACanvas.MoveTo(FSignaturePoints[I].X, FSignaturePoints[I].Y);\r\n      ACanvas.LineTo(FSignaturePoints[I + 1].X, FSignaturePoints[I + 1].Y);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TSignatureCapture.PaintText;\r\nvar\r\n  r: TRect;\r\n  tw, th: Single;\r\nbegin\r\n  tw := Canvas.TextWidth(Text);\r\n  th := Canvas.TextHeight(Text);\r\n  case FTextPosition.Position of\r\n    ltpBottomLeft: r := Rect(TEXTSPACING, Round(Height - th - TEXTSPACING), Round(TEXTSPACING + tw), Height);\r\n    ltpBottomCenter: r := Rect(Round((Width - tw) / 2), Round(Height - th - TEXTSPACING), Round((Width + tw) / 2), Height);\r\n    ltpBottomRight: r := Rect(Round((Width - tw - TEXTSPACING)), Round(Height - th - TEXTSPACING), Width - TEXTSPACING, Height);\r\n    ltpTopLeft: r := Rect(TEXTSPACING, TEXTSPACING, Round(TEXTSPACING + tw), Round(TEXTSPACING + th));\r\n    ltpTopCenter: r := Rect(Round((Width - tw) / 2), TEXTSPACING, Round((Width + tw) / 2), Round(TEXTSPACING + th));\r\n    ltpTopRight: r := Rect(Round((Width - tw - TEXTSPACING)), TEXTSPACING, Width - TEXTSPACING, Round(TEXTSPACING + th));\r\n    ltpXY: r := Rect(FTextPosition.X, FTextPosition.Y, Round(FTextPosition.X + tw), Round(FTextPosition.Y + th));\r\n  end;\r\n  Canvas.TextRect(r, Text);\r\nend;\r\n\r\nprocedure TSignatureCapture.SetClearButton(\r\n  const Value: TSignatureCaptureClearButton);\r\nbegin\r\n  FClearButton.Assign(Value);\r\nend;\r\n\r\nprocedure TSignatureCapture.SetEmpty(const Value: Boolean);\r\nbegin\r\n  if Value then\r\n  begin\r\n    FSignaturePoints.Clear;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TSignatureCapture.SetPen(\r\n  const Value: TPen);\r\nbegin\r\n  FPen.Assign(Value);\r\nend;\r\n\r\nprocedure TSignatureCapture.SetText(const Value: string);\r\nbegin\r\n  if FText <> Value then\r\n  begin\r\n    FText := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TSignatureCapture.SetTextPosition(\r\n  const Value: TSignatureCaptureSignTextPosition);\r\nbegin\r\n  FTextPosition.Assign(Value);\r\nend;\r\n\r\nprocedure TSignatureCapture.TextPositionChanged(Sender: TObject);\r\nbegin\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TSignatureCapture.UpdateElement;\r\nbegin\r\n  inherited;\r\n  if Assigned(ElementHandle) then\r\n    ElementHandle.style.setProperty('touch-action','none');\r\nend;\r\n\r\n{ TSignatureCapturePoints }\r\n\r\nfunction TSignatureCapturePoints.GetItem(\r\n  Index: Integer): TSignatureCapturePoint;\r\nbegin\r\n  Result := TSignatureCapturePoint(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TSignatureCapturePoints.SetItem(Index: Integer;\r\n  const Value: TSignatureCapturePoint);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TSignatureCaptureSignTextPosition }\r\n\r\nprocedure TSignatureCaptureSignTextPosition.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nconstructor TSignatureCaptureSignTextPosition.Create;\r\nbegin\r\n  FLineVisible := True;\r\n  FPosition := ltpBottomCenter;\r\n  FX := -1;\r\n  FY := -1;\r\n  FLine := TPen.Create;\r\n  FLine.Color := clGray;\r\n  FLine.Width := 1;\r\nend;\r\n\r\nprocedure TSignatureCaptureSignTextPosition.SetLine(const Value: TPen);\r\nbegin\r\n  FLine.Assign(Value);\r\n  Changed;\r\nend;\r\n\r\nprocedure TSignatureCaptureSignTextPosition.SetLineVisible(const Value: Boolean);\r\nbegin\r\n  if FLineVisible <> Value then\r\n  begin\r\n    FLineVisible := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TSignatureCaptureSignTextPosition.SetPosition(\r\n  const Value: TSignatureCaptureLineTextPosition);\r\nbegin\r\n  if FPosition <> Value then\r\n  begin\r\n    FPosition := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TSignatureCaptureSignTextPosition.SetX(const Value: Integer);\r\nbegin\r\n  if FX <> Value then\r\n  begin\r\n    FX := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TSignatureCaptureSignTextPosition.SetY(const Value: Integer);\r\nbegin\r\n  if FY <> Value then\r\n  begin\r\n    FY := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\n{ TSignatureCaptureClearButton }\r\n\r\nprocedure TSignatureCaptureClearButton.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nconstructor TSignatureCaptureClearButton.Create;\r\nbegin\r\n  FX := -1;\r\n  FY := -1;\r\n  FPosition := cbpBottomLeft;\r\n  FImage := TURLPicture.Create;\r\n  FImage.OnChange := ImageChange;\r\n  FImage.OnDataChange := ImageChange;\r\nend;\r\n\r\ndestructor TSignatureCaptureClearButton.Destroy;\r\nbegin\r\n  FImage.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TSignatureCaptureClearButton.ImageChange(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\nprocedure TSignatureCaptureClearButton.SetImage(const Value: TURLPicture);\r\nbegin\r\n  FImage := Value;\r\nend;\r\n\r\nprocedure TSignatureCaptureClearButton.SetPosition(\r\n  const Value: TSignatureCaptureClearButtonPosition);\r\nbegin\r\n  if FPosition <> Value then\r\n  begin\r\n    FPosition := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TSignatureCaptureClearButton.SetX(const Value: Integer);\r\nbegin\r\n  if FX <> Value then\r\n  begin\r\n    FX := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TSignatureCaptureClearButton.SetY(const Value: Integer);\r\nbegin\r\n  if FY <> Value then\r\n  begin\r\n    FY := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit unit_AuftragUnterschriften;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, VCL.TMSFNCTypes, VCL.TMSFNCUtils,\r\n  VCL.TMSFNCGraphics, VCL.TMSFNCGraphicsTypes, Vcl.StdCtrls, WEBLib.StdCtrls,\r\n  VCL.TMSFNCCustomControl, VCL.TMSFNCSignatureCapture, Vcl.Controls,\r\n  WEBLib.ExtCtrls, Data.DB, WEBLib.DB, XData.Web.JsonDataset, XData.Web.Dataset,\r\n  WEBLib.SignatureCapture;\r\n\r\ntype\r\n  TAuftragUnterschriften = class(TForm)\r\n    panelmonteur: TPanel;\r\n    dsUnterschriften: TXDataWebDataSet;\r\n    dsUnterschriftenNummerkomplett: TStringField;\r\n    dsUnterschriftenDatum: TDateTimeField;\r\n    dsUnterschriftenUnterschriftMonteur: TBlobField;\r\n    dsUnterschriftenUnterschriftKunde: TBlobField;\r\n    dsUnterschriftenUnterschriftMonteurText: TStringField;\r\n    dsUnterschriftenUnterschriftKundeText: TStringField;\r\n    sourceUnterschriften: TDataSource;\r\n    WebLabel1: TLabel;\r\n    WebEdit1: TEdit;\r\n    dsUnterschriftenNachnameKunde: TStringField;\r\n    dsUnterschriftenNachnameMonteur: TStringField;\r\n    Container1: THTMLContainer;\r\n    btnUAbbrechen: TButton;\r\n    btnUSpeichern: TButton;\r\n    Container2: THTMLContainer;\r\n    panelkunde: TPanel;\r\n    WebLabel3: TLabel;\r\n    WebEdit2: TEdit;\r\n    SigMonteur: TSignatureCapture;\r\n    SigKunde: TSignatureCapture;\r\n    procedure btnUSpeichernClick(Sender: TObject);\r\n    procedure btnUAbbrechenClick(Sender: TObject);\r\n    procedure dsUnterschriftenAfterPost(DataSet: TDataSet);\r\n    procedure dsUnterschriftenAfterApplyUpdates(Sender: TDataSet;\r\n      Info: TResolveResults);\r\n    procedure WebFormShow(Sender: TObject);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    UMerkerAuftrag:string;\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  AuftragUnterschriften: TAuftragUnterschriften;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_Einzelauftrag;\r\n{$R *.dfm}\r\n\r\nprocedure TAuftragUnterschriften.btnUAbbrechenClick(Sender: TObject);\r\nbegin\r\n  self.Close;\r\nend;\r\n\r\nprocedure TAuftragUnterschriften.btnUSpeichernClick(Sender: TObject);\r\nbegin\r\n  dsunterschriften.Append;\r\n  dsUnterschriftenNummerkomplett.AsString:=UMerkerAuftrag;\r\n  dsUnterschriftenDatum.AsDateTime:=date+time;\r\n//WebImageControl1.URL := TMSFNCSignatureCapture1.GetBase64Img;\r\n//WebDBImageControl1.Base64Image := TMSFNCSignatureCapture1.GetBase64Img;\r\n  dsUnterschriftenUnterschriftMonteurText.asstring:=sigmonteur.GetAsBase64Image;\r\n  dsUnterschriftenUnterschriftKundeText.AsString:=sigkunde.GetAsBase64Image;\r\n  dsUnterschriftenNachnameMonteur.AsString:=WebEdit1.Text;\r\n  dsUnterschriftenNachnameKunde.AsString:=WebEdit2.Text;\r\n  dsUnterschriften.Post;\r\n\r\nend;\r\n\r\nprocedure TAuftragUnterschriften.dsUnterschriftenAfterApplyUpdates(\r\n  Sender: TDataSet; Info: TResolveResults);\r\nbegin\r\n  self.Close;\r\nend;\r\n\r\nprocedure TAuftragUnterschriften.dsUnterschriftenAfterPost(DataSet: TDataSet);\r\nbegin\r\n  if LizenzOK then\r\n  begin\r\n    dsUnterschriften.ApplyUpdates;\r\n  end\r\n  else\r\n  begin\r\n    showmessage('Für das Speichern von Daten sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n  end;\r\nend;\r\n\r\nprocedure TAuftragUnterschriften.WebFormShow(Sender: TObject);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Unterschriften Auftrag '+UMerkerAuftrag+'</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  btnUAbbrechen.ParentElement:=myelement;\r\n  btnUSpeichern.ParentElement:=myelement;\r\n\r\n  myelement:=container2.elementhandle;\r\n  panelMonteur.parentelement:=myelement;\r\n  panelKunde.parentelement:=myelement;\r\n\r\n  myelement:=panelMonteur.elementhandle;\r\n  sigmonteur.ParentElement:=myelement;\r\n  weblabel1.ParentElement:=myelement;\r\n  webedit1.ParentElement:=myelement;\r\n\r\n  myelement:=panelkunde.elementhandle;\r\n  sigkunde.ParentElement:=myelement;\r\n  weblabel3.ParentElement:=myelement;\r\n  webedit2.ParentElement:=myelement;\r\n\r\n  dsUnterschriften.Close;\r\n  dsUnterschriften.QueryString:='$filter=Nummerkomplett eq '+QuotedStr(UMerkerAuftrag);\r\n  dsUnterschriften.Load;\r\nend;\r\n\r\nprocedure TAuftragUnterschriften.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  panelmonteur := TPanel.Create(Self);\r\n  WebLabel1 := TLabel.Create(Self);\r\n  WebEdit1 := TEdit.Create(Self);\r\n  SigMonteur := TSignatureCapture.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  btnUAbbrechen := TButton.Create(Self);\r\n  btnUSpeichern := TButton.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  panelkunde := TPanel.Create(Self);\r\n  WebLabel3 := TLabel.Create(Self);\r\n  WebEdit2 := TEdit.Create(Self);\r\n  SigKunde := TSignatureCapture.Create(Self);\r\n  dsUnterschriften := TXDataWebDataSet.Create(Self);\r\n  dsUnterschriftenNummerkomplett := TStringField.Create(Self);\r\n  dsUnterschriftenDatum := TDateTimeField.Create(Self);\r\n  dsUnterschriftenUnterschriftMonteur := TBlobField.Create(Self);\r\n  dsUnterschriftenUnterschriftKunde := TBlobField.Create(Self);\r\n  dsUnterschriftenUnterschriftMonteurText := TStringField.Create(Self);\r\n  dsUnterschriftenUnterschriftKundeText := TStringField.Create(Self);\r\n  dsUnterschriftenNachnameKunde := TStringField.Create(Self);\r\n  dsUnterschriftenNachnameMonteur := TStringField.Create(Self);\r\n  sourceUnterschriften := TDataSource.Create(Self);\r\n\r\n  panelmonteur.BeforeLoadDFMValues;\r\n  WebLabel1.BeforeLoadDFMValues;\r\n  WebEdit1.BeforeLoadDFMValues;\r\n  SigMonteur.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  btnUAbbrechen.BeforeLoadDFMValues;\r\n  btnUSpeichern.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  panelkunde.BeforeLoadDFMValues;\r\n  WebLabel3.BeforeLoadDFMValues;\r\n  WebEdit2.BeforeLoadDFMValues;\r\n  SigKunde.BeforeLoadDFMValues;\r\n  dsUnterschriften.BeforeLoadDFMValues;\r\n  dsUnterschriftenNummerkomplett.BeforeLoadDFMValues;\r\n  dsUnterschriftenDatum.BeforeLoadDFMValues;\r\n  dsUnterschriftenUnterschriftMonteur.BeforeLoadDFMValues;\r\n  dsUnterschriftenUnterschriftKunde.BeforeLoadDFMValues;\r\n  dsUnterschriftenUnterschriftMonteurText.BeforeLoadDFMValues;\r\n  dsUnterschriftenUnterschriftKundeText.BeforeLoadDFMValues;\r\n  dsUnterschriftenNachnameKunde.BeforeLoadDFMValues;\r\n  dsUnterschriftenNachnameMonteur.BeforeLoadDFMValues;\r\n  sourceUnterschriften.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'AuftragUnterschriften';\r\n    Width := 348;\r\n    Height := 682;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    ElementPosition := epIgnore;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    panelmonteur.SetParentComponent(Self);\r\n    panelmonteur.Name := 'panelmonteur';\r\n    panelmonteur.Left := 0;\r\n    panelmonteur.Top := 133;\r\n    panelmonteur.Width := 313;\r\n    panelmonteur.Height := 270;\r\n    panelmonteur.ElementClassName := 'card m-1 border-info bg-info';\r\n    panelmonteur.BorderStyle := bsNone;\r\n    panelmonteur.Caption := 'panelMonteur';\r\n    panelmonteur.Color := 12557152;\r\n    panelmonteur.ElementFont := efCSS;\r\n    panelmonteur.ElementPosition := epIgnore;\r\n    panelmonteur.ShowCaption := False;\r\n    WebLabel1.SetParentComponent(panelmonteur);\r\n    WebLabel1.Name := 'WebLabel1';\r\n    WebLabel1.Left := 3;\r\n    WebLabel1.Top := 195;\r\n    WebLabel1.Width := 120;\r\n    WebLabel1.Height := 15;\r\n    WebLabel1.Caption := 'Name ausgeschrieben:';\r\n    WebLabel1.ElementClassName := 'text-sm';\r\n    WebLabel1.ElementFont := efCSS;\r\n    WebLabel1.ElementPosition := epIgnore;\r\n    WebLabel1.HeightPercent := 100.000000000000000000;\r\n    WebLabel1.WidthStyle := ssPercent;\r\n    WebLabel1.WidthPercent := 98.000000000000000000;\r\n    WebEdit1.SetParentComponent(panelmonteur);\r\n    WebEdit1.Name := 'WebEdit1';\r\n    WebEdit1.Left := 3;\r\n    WebEdit1.Top := 216;\r\n    WebEdit1.Width := 295;\r\n    WebEdit1.Height := 23;\r\n    WebEdit1.AutoSize := True;\r\n    WebEdit1.ChildOrder := 4;\r\n    WebEdit1.ElementClassName := 'form-control';\r\n    WebEdit1.ElementFont := efCSS;\r\n    WebEdit1.ElementPosition := epIgnore;\r\n    WebEdit1.HeightStyle := ssAuto;\r\n    WebEdit1.HeightPercent := 100.000000000000000000;\r\n    WebEdit1.TextHint := 'Name Monteur/Techniker';\r\n    WebEdit1.WidthStyle := ssPercent;\r\n    WebEdit1.WidthPercent := 98.000000000000000000;\r\n    SigMonteur.SetParentComponent(panelmonteur);\r\n    SigMonteur.Name := 'SigMonteur';\r\n    SigMonteur.Left := 3;\r\n    SigMonteur.Top := 3;\r\n    SigMonteur.Width := 299;\r\n    SigMonteur.Height := 186;\r\n    SigMonteur.ElementClassName := 'form-control';\r\n    SigMonteur.WidthStyle := ssPercent;\r\n    SigMonteur.WidthPercent := 98.000000000000000000;\r\n    SigMonteur.ChildOrder := 2;\r\n    SigMonteur.ElementPosition := epIgnore;\r\n    SigMonteur.TabOrder := 1;\r\n    SigMonteur.TextPosition.Line.Color := clGray;\r\n    SigMonteur.Text := 'Unterschrift Monteur/Techniker';\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 8;\r\n    Container1.Width := 225;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    btnUAbbrechen.SetParentComponent(Self);\r\n    btnUAbbrechen.Name := 'btnUAbbrechen';\r\n    btnUAbbrechen.Left := 0;\r\n    btnUAbbrechen.Top := 102;\r\n    btnUAbbrechen.Width := 104;\r\n    btnUAbbrechen.Height := 25;\r\n    btnUAbbrechen.Caption := 'Abbrechen';\r\n    btnUAbbrechen.ChildOrder := 3;\r\n    btnUAbbrechen.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnUAbbrechen.ElementFont := efCSS;\r\n    btnUAbbrechen.ElementPosition := epIgnore;\r\n    btnUAbbrechen.HeightStyle := ssAuto;\r\n    btnUAbbrechen.HeightPercent := 100.000000000000000000;\r\n    btnUAbbrechen.WidthStyle := ssAuto;\r\n    btnUAbbrechen.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnUAbbrechen, Self, 'OnClick', 'btnUAbbrechenClick');\r\n    btnUSpeichern.SetParentComponent(Self);\r\n    btnUSpeichern.Name := 'btnUSpeichern';\r\n    btnUSpeichern.Left := 110;\r\n    btnUSpeichern.Top := 102;\r\n    btnUSpeichern.Width := 105;\r\n    btnUSpeichern.Height := 25;\r\n    btnUSpeichern.Caption := 'speichern';\r\n    btnUSpeichern.ChildOrder := 4;\r\n    btnUSpeichern.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnUSpeichern.ElementFont := efCSS;\r\n    btnUSpeichern.ElementPosition := epIgnore;\r\n    btnUSpeichern.HeightStyle := ssAuto;\r\n    btnUSpeichern.HeightPercent := 100.000000000000000000;\r\n    btnUSpeichern.WidthStyle := ssAuto;\r\n    btnUSpeichern.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnUSpeichern, Self, 'OnClick', 'btnUSpeichernClick');\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 55;\r\n    Container2.Width := 225;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    panelkunde.SetParentComponent(Self);\r\n    panelkunde.Name := 'panelkunde';\r\n    panelkunde.Left := 0;\r\n    panelkunde.Top := 404;\r\n    panelkunde.Width := 313;\r\n    panelkunde.Height := 270;\r\n    panelkunde.ElementClassName := 'card m-1 border-info bg-info';\r\n    panelkunde.BorderStyle := bsNone;\r\n    panelkunde.Caption := 'panelKunde';\r\n    panelkunde.ChildOrder := 7;\r\n    panelkunde.Color := 12557152;\r\n    panelkunde.ElementFont := efCSS;\r\n    panelkunde.ElementPosition := epIgnore;\r\n    panelkunde.ShowCaption := False;\r\n    WebLabel3.SetParentComponent(panelkunde);\r\n    WebLabel3.Name := 'WebLabel3';\r\n    WebLabel3.Left := 3;\r\n    WebLabel3.Top := 195;\r\n    WebLabel3.Width := 120;\r\n    WebLabel3.Height := 15;\r\n    WebLabel3.Caption := 'Name ausgeschrieben:';\r\n    WebLabel3.ElementClassName := 'text-sm';\r\n    WebLabel3.ElementFont := efCSS;\r\n    WebLabel3.ElementPosition := epIgnore;\r\n    WebLabel3.HeightPercent := 100.000000000000000000;\r\n    WebLabel3.WidthStyle := ssPercent;\r\n    WebLabel3.WidthPercent := 98.000000000000000000;\r\n    WebEdit2.SetParentComponent(panelkunde);\r\n    WebEdit2.Name := 'WebEdit2';\r\n    WebEdit2.Left := 3;\r\n    WebEdit2.Top := 216;\r\n    WebEdit2.Width := 295;\r\n    WebEdit2.Height := 23;\r\n    WebEdit2.AutoSize := True;\r\n    WebEdit2.ChildOrder := 4;\r\n    WebEdit2.ElementClassName := 'form-control';\r\n    WebEdit2.ElementFont := efCSS;\r\n    WebEdit2.ElementPosition := epIgnore;\r\n    WebEdit2.HeightStyle := ssAuto;\r\n    WebEdit2.HeightPercent := 100.000000000000000000;\r\n    WebEdit2.TextHint := 'Name des Kunden';\r\n    WebEdit2.WidthStyle := ssPercent;\r\n    WebEdit2.WidthPercent := 98.000000000000000000;\r\n    SigKunde.SetParentComponent(panelkunde);\r\n    SigKunde.Name := 'SigKunde';\r\n    SigKunde.Left := 6;\r\n    SigKunde.Top := 11;\r\n    SigKunde.Width := 299;\r\n    SigKunde.Height := 186;\r\n    SigKunde.ElementClassName := 'form-control';\r\n    SigKunde.WidthStyle := ssPercent;\r\n    SigKunde.WidthPercent := 98.000000000000000000;\r\n    SigKunde.ChildOrder := 2;\r\n    SigKunde.ElementPosition := epIgnore;\r\n    SigKunde.TabOrder := 1;\r\n    SigKunde.TextPosition.Line.Color := clGray;\r\n    SigKunde.Text := 'Unterschrift Kunde';\r\n    dsUnterschriften.SetParentComponent(Self);\r\n    dsUnterschriften.Name := 'dsUnterschriften';\r\n    dsUnterschriften.AfterApplyUpdates := dsUnterschriftenAfterApplyUpdates;\r\n    dsUnterschriften.AfterPost := dsUnterschriftenAfterPost;\r\n    dsUnterschriften.EntitySetName := 'AuftragUnterschriften';\r\n    dsUnterschriften.Connection := DM2.XDataWebConnection1;\r\n    dsUnterschriften.Left := 252;\r\n    dsUnterschriften.Top := 96;\r\n    dsUnterschriftenNummerkomplett.SetParentComponent(dsUnterschriften);\r\n    dsUnterschriftenNummerkomplett.Name := 'dsUnterschriftenNummerkomplett';\r\n    dsUnterschriftenNummerkomplett.FieldName := 'Nummerkomplett';\r\n    dsUnterschriftenNummerkomplett.Required := True;\r\n    dsUnterschriftenNummerkomplett.Size := 10;\r\n    dsUnterschriftenDatum.SetParentComponent(dsUnterschriften);\r\n    dsUnterschriftenDatum.Name := 'dsUnterschriftenDatum';\r\n    dsUnterschriftenDatum.FieldName := 'Datum';\r\n    dsUnterschriftenUnterschriftMonteur.SetParentComponent(dsUnterschriften);\r\n    dsUnterschriftenUnterschriftMonteur.Name := 'dsUnterschriftenUnterschriftMonteur';\r\n    dsUnterschriftenUnterschriftMonteur.FieldName := 'UnterschriftMonteur';\r\n    dsUnterschriftenUnterschriftKunde.SetParentComponent(dsUnterschriften);\r\n    dsUnterschriftenUnterschriftKunde.Name := 'dsUnterschriftenUnterschriftKunde';\r\n    dsUnterschriftenUnterschriftKunde.FieldName := 'UnterschriftKunde';\r\n    dsUnterschriftenUnterschriftMonteurText.SetParentComponent(dsUnterschriften);\r\n    dsUnterschriftenUnterschriftMonteurText.Name := 'dsUnterschriftenUnterschriftMonteurText';\r\n    dsUnterschriftenUnterschriftMonteurText.FieldName := 'UnterschriftMonteurText';\r\n    dsUnterschriftenUnterschriftMonteurText.Size := 255;\r\n    dsUnterschriftenUnterschriftKundeText.SetParentComponent(dsUnterschriften);\r\n    dsUnterschriftenUnterschriftKundeText.Name := 'dsUnterschriftenUnterschriftKundeText';\r\n    dsUnterschriftenUnterschriftKundeText.FieldName := 'UnterschriftKundeText';\r\n    dsUnterschriftenUnterschriftKundeText.Size := 255;\r\n    dsUnterschriftenNachnameKunde.SetParentComponent(dsUnterschriften);\r\n    dsUnterschriftenNachnameKunde.Name := 'dsUnterschriftenNachnameKunde';\r\n    dsUnterschriftenNachnameKunde.FieldName := 'NachnameKunde';\r\n    dsUnterschriftenNachnameKunde.Size := 50;\r\n    dsUnterschriftenNachnameMonteur.SetParentComponent(dsUnterschriften);\r\n    dsUnterschriftenNachnameMonteur.Name := 'dsUnterschriftenNachnameMonteur';\r\n    dsUnterschriftenNachnameMonteur.FieldName := 'NachnameMonteur';\r\n    dsUnterschriftenNachnameMonteur.Size := 50;\r\n    sourceUnterschriften.SetParentComponent(Self);\r\n    sourceUnterschriften.Name := 'sourceUnterschriften';\r\n    sourceUnterschriften.DataSet := dsUnterschriften;\r\n    sourceUnterschriften.Left := 256;\r\n    sourceUnterschriften.Top := 36;\r\n  finally\r\n    panelmonteur.AfterLoadDFMValues;\r\n    WebLabel1.AfterLoadDFMValues;\r\n    WebEdit1.AfterLoadDFMValues;\r\n    SigMonteur.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    btnUAbbrechen.AfterLoadDFMValues;\r\n    btnUSpeichern.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    panelkunde.AfterLoadDFMValues;\r\n    WebLabel3.AfterLoadDFMValues;\r\n    WebEdit2.AfterLoadDFMValues;\r\n    SigKunde.AfterLoadDFMValues;\r\n    dsUnterschriften.AfterLoadDFMValues;\r\n    dsUnterschriftenNummerkomplett.AfterLoadDFMValues;\r\n    dsUnterschriftenDatum.AfterLoadDFMValues;\r\n    dsUnterschriftenUnterschriftMonteur.AfterLoadDFMValues;\r\n    dsUnterschriftenUnterschriftKunde.AfterLoadDFMValues;\r\n    dsUnterschriftenUnterschriftMonteurText.AfterLoadDFMValues;\r\n    dsUnterschriftenUnterschriftKundeText.AfterLoadDFMValues;\r\n    dsUnterschriftenNachnameKunde.AfterLoadDFMValues;\r\n    dsUnterschriftenNachnameMonteur.AfterLoadDFMValues;\r\n    sourceUnterschriften.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2023                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : https://www.tmssoftware.com                       }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCDigitalTimeSelector;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes,\r\n  {$IFNDEF LCLLIB}\r\n  Types,\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  UITypes,\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  WEBLib.TMSFNCCustomSelector, WEBLib.TMSFNCGraphics, WEBLib.TMSFNCGraphicsTypes,\r\n  WEBLib.TMSFNCTypes, WEBLib.Controls, WEBLib.TMSFNCUtils;\r\n\r\nconst\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 0; // Minor version nr.\r\n  REL_VER = 2; // Release nr.\r\n  BLD_VER = 1; // Build nr.\r\n\r\n  //Version history\r\n  //v1.0.0.0 : First Release\r\n  //v1.0.1.0 : New: Property HeaderSize added\r\n  //v1.0.1.1 : Fixed : Issue with Column and Row property persistence\r\n  //v1.0.2.0 : New : Support for high dpi\r\n  //v1.0.2.1 : Improved : Upadated initial look\r\n\r\ntype\r\n  TTMSFNCDigitalTimeSelectorIntervalUnit = (tsuMilliseconds, tsuSeconds, tsuMinutes, tsuHours);\r\n\r\n  TTMSFNCCustomDigitalTimeSelector = class;\r\n\r\n  TTMSFNCDigitalTimeSelectorItem = class(TTMSFNCCustomSelectorItem)\r\n  private\r\n    FOwner: TTMSFNCCustomDigitalTimeSelector;\r\n    FTime: TTime;\r\n    procedure SetTime(const Value: TTime);\r\n    function IsTimeStored: Boolean;\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property Time: TTime read FTime write SetTime stored IsTimeStored nodefault;\r\n  end;\r\n\r\n  TTMSFNCDigitalTimeSelectorItems = class(TTMSFNCCustomSelectorItems)\r\n  private\r\n    FOwner: TTMSFNCCustomDigitalTimeSelector;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCDigitalTimeSelectorItem);\r\n    function GetItem(Index: Integer): TTMSFNCDigitalTimeSelectorItem;\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; override;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCCustomSelector); override;\r\n    function Add: TTMSFNCDigitalTimeSelectorItem;\r\n    function Insert(Index: Integer): TTMSFNCDigitalTimeSelectorItem;\r\n    property Items[Index: Integer]: TTMSFNCDigitalTimeSelectorItem read GetItem write SetItem; default;\r\n  end;\r\n\r\n  TTMSFNCCustomDigitalTimeSelectorTimeSelected = procedure(Sender: TObject; ATime: TTime) of object;\r\n  TTMSFNCCustomDigitalTimeSelectorTimeDeselected = procedure(Sender: TObject; ATime: TTime) of object;\r\n  TTMSFNCCustomDigitalTimeSelectorBeforeDrawHeaderEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARectF: TRectF; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCCustomDigitalTimeSelectorAfterDrawHeaderEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARectF: TRectF) of object;\r\n  TTMSFNCCustomDigitalTimeSelectorBeforeDrawHeaderTextEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARectF: TRectF; AText: string; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCCustomDigitalTimeSelectorAfterDrawHeaderTextEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARectF: TRectF; AText: string) of object;\r\n  TTMSFNCCustomDigitalTimeSelectorBeforeDrawArrowEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARectF: TRectF; ALeft: Boolean; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCCustomDigitalTimeSelectorAfterDrawArrowEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARectF: TRectF; ALeft: Boolean) of object;\r\n  TTMSFNCCustomDigitalTimeSelectorNavigationEvent = procedure(Sender: TObject; ALeft: Boolean) of object;\r\n\r\n  TTMSFNCCustomDigitalTimeSelector = class(TTMSFNCDefaultSelector)\r\n  private\r\n    FStartTime, FEndTime, FFirst, FLast, FSelectedTime: TTime;\r\n    FTimeInterval: Integer;\r\n    FIntervalUnit: TTMSFNCDigitalTimeSelectorIntervalUnit;\r\n    FTimeFormat: string;\r\n    FOnTimeDeselected: TTMSFNCCustomDigitalTimeSelectorTimeDeselected;\r\n    FOnTimeSelected: TTMSFNCCustomDigitalTimeSelectorTimeSelected;\r\n    FOnAfterDrawArrow: TTMSFNCCustomDigitalTimeSelectorAfterDrawArrowEvent;\r\n    FOnBeforeDrawHeader: TTMSFNCCustomDigitalTimeSelectorBeforeDrawHeaderEvent;\r\n    FOnBeforeDrawArrow: TTMSFNCCustomDigitalTimeSelectorBeforeDrawArrowEvent;\r\n    FOnAfterDrawHeader: TTMSFNCCustomDigitalTimeSelectorAfterDrawHeaderEvent;\r\n    FOnAfterDrawHeaderText: TTMSFNCCustomDigitalTimeSelectorAfterDrawHeaderTextEvent;\r\n    FOnBeforeDrawHeaderText: TTMSFNCCustomDigitalTimeSelectorBeforeDrawHeaderTextEvent;\r\n    FOnNavigation: TTMSFNCCustomDigitalTimeSelectorNavigationEvent;\r\n    FHeaderSize: Integer;\r\n    procedure SetItems(const Value: TTMSFNCDigitalTimeSelectorItems);\r\n    procedure SetSelectedTime(const Value: TTime);\r\n    procedure SetStartTime(const Value: TTime);\r\n    procedure SetTimeInterval(const Value: Integer);\r\n    procedure SetEndTime(const Value: TTime);\r\n    procedure SetIntervalUnit(const Value: TTMSFNCDigitalTimeSelectorIntervalUnit);\r\n    procedure SetTimeFormat(const Value: string);\r\n    procedure SetHeaderSize(const Value: Integer);\r\n    function GetItems: TTMSFNCDigitalTimeSelectorItems;\r\n    function IsTimeFormatStored: Boolean;\r\n  protected\r\n    procedure ChangeDPIScale(M, D: Integer); override;\r\n    procedure DoItemSelected(AItemIndex: Integer); override;\r\n    procedure DoItemDeselected(AItemIndex: Integer); override;\r\n    procedure DoBeforeDrawHeader(AGraphics: TTMSFNCGraphics; ARectF: TRectF; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawHeader(AGraphics: TTMSFNCGraphics; ARectF: TRectF); virtual;\r\n    procedure DoBeforeDrawHeaderText(AGraphics: TTMSFNCGraphics; ARectF: TRectF; AText: string; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawHeaderText(AGraphics: TTMSFNCGraphics; ARectF: TRectF; AText: string); virtual;\r\n    procedure DoBeforeDrawArrow(AGraphics: TTMSFNCGraphics; ARectF: TRectF; ALeft: Boolean; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawArrow(AGraphics: TTMSFNCGraphics; ARectF: TRectF; ALeft: Boolean); virtual;\r\n    procedure DoNavigation(ALeft: Boolean); virtual;\r\n    procedure Draw(AGraphics: TTMSFNCGraphics; ARect: TRectF); override;\r\n    procedure DrawArrows(AGraphics: TTMSFNCGraphics);\r\n    procedure DrawItemText(AGraphics: TTMSFNCGraphics; ADisplayItem: TTMSFNCCustomSelectorDisplayItem); override;\r\n    procedure AddTimes; virtual;\r\n    procedure CalculateTimes; virtual;\r\n    procedure UpdateCalculations; override;\r\n    procedure HandleMouseDown(Button: TTMSFNCMouseButton; Shift: TShiftState; X: Single; Y: Single); override;\r\n    procedure HandleMouseMove(Shift: TShiftState; X: Single; Y: Single); override;\r\n    function GetVersion: string; override;\r\n    function CreateItemsCollection: TTMSFNCCustomSelectorItems; override;\r\n    function GetTopOffset: Single; override;\r\n    function GetArrowRect(ALeft: Boolean): TRectF; virtual;\r\n    procedure ResetToDefaultStyle; override;\r\n    property HeaderSize: Integer read FHeaderSize write SetHeaderSize default 24;\r\n    property StartTime: TTime read FStartTime write SetStartTime;\r\n    property EndTime: TTime read FEndTime write SetEndTime;\r\n    property TimeInterval: Integer read FTimeInterval write SetTimeInterval default 5;\r\n    property IntervalUnit: TTMSFNCDigitalTimeSelectorIntervalUnit read FIntervalUnit write SetIntervalUnit default tsuMinutes;\r\n    property TimeFormat: string read FTimeFormat write SetTimeFormat stored IsTimeFormatStored nodefault;\r\n    property OnTimeSelected: TTMSFNCCustomDigitalTimeSelectorTimeSelected read FOnTimeSelected write FOnTimeSelected;\r\n    property OnTimeDeselected: TTMSFNCCustomDigitalTimeSelectorTimeDeselected read FOnTimeDeselected write FOnTimeDeselected;\r\n    property OnBeforeDrawHeader: TTMSFNCCustomDigitalTimeSelectorBeforeDrawHeaderEvent read FOnBeforeDrawHeader write FOnBeforeDrawHeader;\r\n    property OnAfterDrawHeader: TTMSFNCCustomDigitalTimeSelectorAfterDrawHeaderEvent read FOnAfterDrawHeader write FOnAfterDrawHeader;\r\n    property OnBeforeDrawHeaderText: TTMSFNCCustomDigitalTimeSelectorBeforeDrawHeaderTextEvent read FOnBeforeDrawHeaderText write FOnBeforeDrawHeaderText;\r\n    property OnAfterDrawHeaderText: TTMSFNCCustomDigitalTimeSelectorAfterDrawHeaderTextEvent read FOnAfterDrawHeaderText write FOnAfterDrawHeaderText;\r\n    property OnBeforeDrawArrow: TTMSFNCCustomDigitalTimeSelectorBeforeDrawArrowEvent read FOnBeforeDrawArrow write FOnBeforeDrawArrow;\r\n    property OnAfterDrawArrow: TTMSFNCCustomDigitalTimeSelectorAfterDrawArrowEvent read FOnAfterDrawArrow write FOnAfterDrawArrow;\r\n    property OnNavigation: TTMSFNCCustomDigitalTimeSelectorNavigationEvent read FOnNavigation write FOnNavigation;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    procedure NavigateBack;\r\n    procedure NavigateForth;\r\n    procedure InitializePage(ATime: TTime);\r\n    function FindItemByTime(ATime: TTime): Integer;\r\n    function FindTimeByItem(AItem: Integer): TTime;\r\n    procedure InitSample; virtual;\r\n    property SelectedTime: TTime read FSelectedTime write SetSelectedTime;\r\n    property Items: TTMSFNCDigitalTimeSelectorItems read GetItems write SetItems;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCDigitalTimeSelector = class(TTMSFNCCustomDigitalTimeSelector)\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n  published\r\n    property Appearance;\r\n    property Rows default 4;\r\n    property Columns default 3;\r\n    property SelectedItemIndex;\r\n    property StartTime;\r\n    property EndTime;\r\n    property HeaderSize;\r\n    property IntervalUnit;\r\n    property TimeInterval;\r\n    property TimeFormat;\r\n    property OnTimeSelected;\r\n    property OnTimeDeselected;\r\n    property OnBeforeDrawHeader;\r\n    property OnAfterDrawHeader;\r\n    property OnBeforeDrawHeaderText;\r\n    property OnAfterDrawHeaderText;\r\n    property OnBeforeDrawArrow;\r\n    property OnAfterDrawArrow;\r\n    property OnNavigation;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  Math, DateUtils, SysUtils;\r\n\r\n{ TTMSFNCCustomDigitalTimeSelectorItem }\r\n\r\nprocedure TTMSFNCDigitalTimeSelectorItem.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if Source is TTMSFNCDigitalTimeSelectorItem then\r\n    FTime := (Source as TTMSFNCDigitalTimeSelectorItem).FTime;\r\nend;\r\n\r\nconstructor TTMSFNCDigitalTimeSelectorItem.Create(\r\n  ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(ACollection) then\r\n    FOwner := (ACollection as TTMSFNCDigitalTimeSelectorItems).FOwner;\r\nend;\r\n\r\nfunction TTMSFNCDigitalTimeSelectorItem.IsTimeStored: Boolean;\r\nbegin\r\n  Result := FTime <> 0.0;\r\nend;\r\n\r\nprocedure TTMSFNCDigitalTimeSelectorItem.SetTime(const Value: TTime);\r\nbegin\r\n  if FTime <> Value then\r\n    FTime := Value;\r\nend;\r\n\r\n{ TTMSFNCCustomDigitalTimeSelectorItems }\r\n\r\nfunction TTMSFNCDigitalTimeSelectorItems.Add: TTMSFNCDigitalTimeSelectorItem;\r\nbegin\r\n  Result := TTMSFNCDigitalTimeSelectorItem(inherited Add);\r\nend;\r\n\r\nconstructor TTMSFNCDigitalTimeSelectorItems.Create(\r\n  AOwner: TTMSFNCCustomSelector);\r\nbegin\r\n  inherited;\r\n  FOwner := AOwner as TTMSFNCCustomDigitalTimeSelector;\r\nend;\r\n\r\nfunction TTMSFNCDigitalTimeSelectorItems.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCDigitalTimeSelectorItem;\r\nend;\r\n\r\nfunction TTMSFNCDigitalTimeSelectorItems.GetItem(\r\n  Index: Integer): TTMSFNCDigitalTimeSelectorItem;\r\nbegin\r\n  Result := TTMSFNCDigitalTimeSelectorItem(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCDigitalTimeSelectorItems.Insert(\r\n  Index: Integer): TTMSFNCDigitalTimeSelectorItem;\r\nbegin\r\n  Result := TTMSFNCDigitalTimeSelectorItem(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCDigitalTimeSelectorItems.SetItem(Index: Integer;\r\n  const Value: TTMSFNCDigitalTimeSelectorItem);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCCustomDigitalTimeSelector }\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.AddTimes;\r\nbegin\r\n  BeginUpdate;\r\n  CalculateTimes;\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.CalculateTimes;\r\nvar\r\n  I: Integer;\r\n  t: TDateTime;\r\nbegin\r\n  Items.Clear;\r\n  t := 0.0;\r\n  for I := 0 to Columns * Rows - 1 do\r\n  begin\r\n    case FIntervalUnit of\r\n      tsuMilliseconds: t := IncMillisecond(FFirst, I * TimeInterval);\r\n      tsuSeconds: t := IncSecond(FFirst, I * TimeInterval);\r\n      tsuMinutes: t := IncMinute(FFirst, I * TimeInterval);\r\n      tsuHours: t := IncHour(FFirst, I * TimeInterval);\r\n    end;\r\n    if CompareDateTime(t, EndTime) = 1 then\r\n      Break;\r\n    TTMSFNCDigitalTimeSelectorItem(Items.Add).Time := t;\r\n    FLast := t;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.ChangeDPIScale(M, D: Integer);\r\nbegin\r\n  HeaderSize := TTMSFNCUtils.MulDivInt(HeaderSize, M, D);\r\n  inherited;\r\nend;\r\n\r\nconstructor TTMSFNCCustomDigitalTimeSelector.Create(AOwner: TComponent);\r\n//var\r\n//  fs: TFormatSettings;\r\nbegin\r\n  inherited;\r\n  {$IFDEF CMNLIB}\r\n  {$IFDEF MSWINDOWS}\r\n  NativeCanvas := True;\r\n  TextQuality := gtqClearType;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  Height := 150;\r\n  Width := 220;\r\n  Columns := 3;\r\n  Rows := 4;\r\n  FTimeInterval := 5;\r\n  FHeaderSize := 24;\r\n  FIntervalUnit := tsuMinutes;\r\n  FTimeFormat := 'hh:nn:ss';\r\n//  fs.TimeSeparator := ':';\r\n//  fs.LongTimeFormat := FTimeFormat;\r\n//  FStartTime := StrToTime('00:00:00', fs);\r\n//  FEndTime := StrToTime('23:59:59', fs);\r\n  FStartTime := EncodeTime(0, 0, 0, 0);\r\n  FEndTime := EncodeTime(23, 59, 59, 999);\r\n  FSelectedTime := FStartTime;\r\n  FFirst := FStartTime;\r\n  AddTimes;\r\n\r\n  if IsDesignTime then\r\n    InitSample;\r\nend;\r\n\r\nfunction TTMSFNCCustomDigitalTimeSelector.CreateItemsCollection: TTMSFNCCustomSelectorItems;\r\nbegin\r\n  Result := TTMSFNCDigitalTimeSelectorItems.Create(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.DoAfterDrawArrow(\r\n  AGraphics: TTMSFNCGraphics; ARectF: TRectF; ALeft: Boolean);\r\nbegin\r\n  if Assigned(OnAfterDrawArrow) then\r\n    OnAfterDrawArrow(Self, AGraphics, ARectF, ALeft);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.DoAfterDrawHeader(\r\n  AGraphics: TTMSFNCGraphics; ARectF: TRectF);\r\nbegin\r\n  if Assigned(OnAfterDrawHeader) then\r\n    OnAfterDrawHeader(Self, AGraphics, ARectF);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.DoAfterDrawHeaderText(\r\n  AGraphics: TTMSFNCGraphics; ARectF: TRectF; AText: string);\r\nbegin\r\n  if Assigned(OnAfterDrawHeaderText) then\r\n    OnAfterDrawHeaderText(Self, AGraphics, ARectF, AText);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.DoBeforeDrawArrow(\r\n  AGraphics: TTMSFNCGraphics; ARectF: TRectF; ALeft: Boolean; var AAllow,\r\n  ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawArrow) then\r\n    OnBeforeDrawArrow(Self, AGraphics, ARectF, ALeft, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.DoBeforeDrawHeader(\r\n  AGraphics: TTMSFNCGraphics; ARectF: TRectF; var AAllow,\r\n  ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawHeader) then\r\n    OnBeforeDrawHeader(Self, AGraphics, ARectF, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.DoBeforeDrawHeaderText(\r\n  AGraphics: TTMSFNCGraphics; ARectF: TRectF; AText: string; var AAllow,\r\n  ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawHeaderText) then\r\n    OnBeforeDrawHeaderText(Self, AGraphics, ARectF, AText, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.DoItemDeselected(\r\n  AItemIndex: Integer);\r\nbegin\r\n  inherited;\r\n  if Assigned(OnTimeDeselected) then\r\n    OnTimeDeselected(Self, FindTimeByItem(AItemIndex));\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.DoItemSelected(AItemIndex: Integer);\r\nbegin\r\n  inherited;\r\n  FSelectedTime := FindTimeByItem(AItemIndex);\r\n  if Assigned(OnTimeSelected) then\r\n    OnTimeSelected(Self, FindTimeByItem(AItemIndex));\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.DoNavigation(ALeft: Boolean);\r\nbegin\r\n  if Assigned(OnNavigation) then\r\n    OnNavigation(Self, ALeft);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.Draw(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF);\r\nvar\r\n  b, df: Boolean;\r\n  r: TRectF;\r\n  s: string;\r\nbegin\r\n  b := True;\r\n  df := True;\r\n  r := RectF(0, 0, Width, GetTopOffset);\r\n  AGraphics.Fill.Color := Appearance.Fill.Color;\r\n  AGraphics.Stroke.Color := Appearance.Stroke.Color;\r\n  AGraphics.Font.AssignSource(Appearance.Font);\r\n\r\n  DoBeforeDrawHeader(AGraphics, r, b, df);\r\n  if b then\r\n  begin\r\n    if df then\r\n      AGraphics.DrawRectangle(r);\r\n    DoAfterDrawHeader(AGraphics, r);\r\n  end;\r\n\r\n  s := FormatDateTime(FTimeFormat, FindTimeByItem(0)) + ' - ' + FormatDateTime(FTimeFormat, FindTimeByItem(Items.Count - 1));\r\n  b := True;\r\n  df := True;\r\n  DoBeforeDrawHeaderText(AGraphics, r, s, b, df);\r\n  if b then\r\n  begin\r\n    if df then\r\n      AGraphics.DrawText(r, s, False, gtaCenter, gtaCenter);\r\n\r\n    DoAfterDrawHeaderText(AGraphics, r, s);\r\n  end;\r\n\r\n  DrawArrows(AGraphics);\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.DrawArrows(\r\n  AGraphics: TTMSFNCGraphics);\r\nvar\r\n  r: TRectF;\r\n  p: TPointF;\r\n  b, df: Boolean;\r\nbegin\r\n  r := GetArrowRect(True);\r\n  AGraphics.Stroke.Width := ScalePaintValue(2);\r\n  AGraphics.Stroke.Color := gcDimgray;\r\n\r\n  b := True;\r\n  df := True;\r\n  DoBeforeDrawArrow(AGraphics, r, True, b, df);\r\n  if b then\r\n  begin\r\n    if df then\r\n    begin\r\n      p := PointF(r.Left + ScalePaintValue(4), GetTopOffset / 2);\r\n      AGraphics.DrawLine(p, PointF(r.Right - ScalePaintValue(4), r.Top));\r\n      AGraphics.DrawLine(p, PointF(r.Right - ScalePaintValue(4), r.Bottom - 1));\r\n    end;\r\n    DoAfterDrawArrow(AGraphics, r, True);\r\n  end;\r\n\r\n  r := GetArrowRect(False);\r\n  b := True;\r\n  df := True;\r\n  DoBeforeDrawArrow(AGraphics, r, False, b, df);\r\n  if b then\r\n  begin\r\n    if df then\r\n    begin\r\n      p := PointF(r.Right - ScalePaintValue(4), GetTopOffset / 2);\r\n      AGraphics.DrawLine(p, PointF(r.Left + ScalePaintValue(4), r.Top));\r\n      AGraphics.DrawLine(p, PointF(r.Left + ScalePaintValue(4), r.Bottom - 1));\r\n    end;\r\n    DoAfterDrawArrow(AGraphics, r, False);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.DrawItemText(\r\n  AGraphics: TTMSFNCGraphics; ADisplayItem: TTMSFNCCustomSelectorDisplayItem);\r\nvar\r\n  r: TRectF;\r\n  s: string;\r\n  it: TTMSFNCCustomSelectorItem;\r\n  t: TTime;\r\n  a: Boolean;\r\nbegin\r\n  it := ADisplayItem.Item;\r\n  if Assigned(it) and (it is TTMSFNCDigitalTimeSelectorItem) then\r\n  begin\r\n    r := ADisplayItem.Rect;\r\n    a := True;\r\n    InflateRectEx(r, -5, -5);\r\n    t := (it as TTMSFNCDigitalTimeSelectorItem).Time;\r\n    s := FormatDateTime(FTimeFormat, t);\r\n    AGraphics.Font.AssignSource(Appearance.Font);\r\n    DoItemBeforeDrawText(AGraphics, ADisplayItem.Rect, it.Index, s, a);\r\n    if a then\r\n    begin\r\n       AGraphics.DrawText(r, s, False, gtaCenter, gtaCenter);\r\n      DoItemAfterDrawText(AGraphics, ADisplayItem.Rect, it.Index, s);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomDigitalTimeSelector.FindItemByTime(ATime: TTime): Integer;\r\nvar\r\n  I: Integer;\r\n  it: TTMSFNCDigitalTimeSelectorItem;\r\nbegin\r\n  Result := -1;\r\n  for I := 0 to Items.Count - 1 do\r\n  begin\r\n    it := Items[I] as TTMSFNCDigitalTimeSelectorItem;\r\n    if (CompareTime(it.Time, ATime) = 0) and it.CanSelect then\r\n    begin\r\n      Result := it.Index;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomDigitalTimeSelector.FindTimeByItem(AItem: Integer): TTime;\r\nvar\r\n  I: Integer;\r\n  it: TTMSFNCDigitalTimeSelectorItem;\r\nbegin\r\n  Result := 0.0;\r\n  for I := 0 to Items.Count - 1 do\r\n  begin\r\n    it := Items[I] as TTMSFNCDigitalTimeSelectorItem;\r\n    if it.Index = AItem then\r\n    begin\r\n      Result := it.Time;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomDigitalTimeSelector.GetArrowRect(ALeft: Boolean): TRectF;\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  r := GetControlRect;\r\n  if ALeft then\r\n    Result := RectF(r.Left, r.Top, r.Left + FHeaderSize, r.Top + FHeaderSize)\r\n  else\r\n    Result := RectF(r.Right - FHeaderSize, r.Top, r.Right, r.Top + FHeaderSize);\r\n\r\n  InflateRectEx(Result, -ScalePaintValue(4), -ScalePaintValue(4));\r\nend;\r\n\r\nfunction TTMSFNCCustomDigitalTimeSelector.GetItems: TTMSFNCDigitalTimeSelectorItems;\r\nbegin\r\n  Result := TTMSFNCDigitalTimeSelectorItems(inherited Items);\r\nend;\r\n\r\nfunction TTMSFNCCustomDigitalTimeSelector.GetTopOffset: Single;\r\nbegin\r\n  Result := FHeaderSize;\r\nend;\r\n\r\nfunction TTMSFNCCustomDigitalTimeSelector.GetVersion: string;\r\nbegin\r\n  Result := GetVersionNumber(MAJ_VER, MIN_VER, REL_VER, BLD_VER);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.HandleMouseDown(\r\n  Button: TTMSFNCMouseButton; Shift: TShiftState; X, Y: Single);\r\nbegin\r\n  inherited;\r\n  if PtInRectEx(GetArrowRect(True), PointF(X, Y)) then\r\n    NavigateBack\r\n  else if PtInRectEx(GetArrowRect(False), PointF(X, Y)) then\r\n    NavigateForth;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.HandleMouseMove(Shift: TShiftState;\r\n  X, Y: Single);\r\nbegin\r\n  inherited;\r\n  if PtInRectEx(GetArrowRect(True), PointF(X, Y)) or PtInRectEx(GetArrowRect(False), PointF(X, Y)) then\r\n    Cursor :=  crHandPoint\r\n  else\r\n    Cursor := crArrow;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.InitializePage(ATime: TTime);\r\nvar\r\n  e, p: Integer;\r\nbegin\r\n  if (CompareTime(ATime, FStartTime) = -1) or (CompareTime(ATime, FEndTime) = 1) then\r\n  begin\r\n    FFirst := FStartTime;\r\n    Exit;\r\n  end;\r\n\r\n  case FIntervalUnit of\r\n    tsuMilliseconds:\r\n    begin\r\n      e := (MilliSecondOfTheDay(ATime) - MilliSecondOfTheDay(FStartTime)) div Cardinal(FTimeInterval);\r\n      p := e div (Rows * Columns);\r\n      FFirst := IncMilliSecond(FStartTime, p * Rows * Columns * FTimeInterval);\r\n    end;\r\n    tsuSeconds:\r\n    begin\r\n      e := (SecondOfTheDay(ATime) - SecondOfTheDay(FStartTime)) div Cardinal(FTimeInterval);\r\n      p := e div (Rows * Columns);\r\n      FFirst := IncSecond(FStartTime, p * Rows * Columns * FTimeInterval);\r\n    end;\r\n    tsuMinutes:\r\n    begin\r\n      e := (MinuteOfTheDay(ATime) - MinuteOfTheDay(FStartTime)) div FTimeInterval;\r\n      p := e div (Rows * Columns);\r\n      FFirst := IncMinute(FStartTime, p * Rows * Columns * FTimeInterval);\r\n    end;\r\n    tsuHours:\r\n    begin\r\n      e := (HourOfTheDay(ATime) - HourOfTheDay(FStartTime)) div FTimeInterval;\r\n      p := e div (Rows * Columns);\r\n      FFirst := IncHour(FStartTime, p * Rows * Columns * FTimeInterval);\r\n    end;\r\n  end;\r\n\r\n  AddTimes;\r\n  SelectedItemIndex := FindItemByTime(FSelectedTime);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.InitSample;\r\nbegin\r\n  ResetToDefaultStyle;\r\nend;\r\n\r\nfunction TTMSFNCCustomDigitalTimeSelector.IsTimeFormatStored: Boolean;\r\nbegin\r\n  Result := FTimeFormat <> 'hh:nn:ss';\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.NavigateBack;\r\nvar\r\n  t: TDateTime;\r\nbegin\r\n  t := 0.0;\r\n  case FIntervalUnit of\r\n    tsuMilliseconds: t := IncMilliSecond(FFirst, -(Columns * Rows) * FTimeInterval);\r\n    tsuSeconds: t := IncSecond(FFirst, -(Columns * Rows) * FTimeInterval);\r\n    tsuMinutes: t := IncMinute(FFirst, -(Columns * Rows) * FTimeInterval);\r\n    tsuHours: t := IncHour(FFirst, -(Columns * Rows) * FTimeInterval);\r\n  end;\r\n  if CompareDateTime(t, FStartTime) >= 0 then\r\n  begin\r\n    FFirst := Frac(t);\r\n    AddTimes;\r\n    SelectedItemIndex := FindItemByTime(FSelectedTime);\r\n    DoNavigation(True);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.NavigateForth;\r\nvar\r\n  t: TDateTime;\r\nbegin\r\n  t := 0.0;\r\n  case FIntervalUnit of\r\n    tsuMilliseconds: t := IncMilliSecond(FLast, FTimeInterval);\r\n    tsuSeconds: t := IncSecond(FLast, FTimeInterval);\r\n    tsuMinutes: t := IncMinute(FLast, FTimeInterval);\r\n    tsuHours: t := IncHour(FLast, FTimeInterval);\r\n  end;\r\n  if CompareDateTime(t, FEndTime) < 0 then\r\n  begin\r\n    FFirst := Frac(t);\r\n    AddTimes;\r\n    SelectedItemIndex := FindItemByTime(FSelectedTime);\r\n    DoNavigation(False);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.ResetToDefaultStyle;\r\nbegin\r\n  inherited;\r\n  BeginUpdate;\r\n\r\n  {$IFDEF FMXLIB}\r\n  Appearance.Font.Color := $FF454545;\r\n  Appearance.Fill.Color := $FFEEF2F9;\r\n  Appearance.FillSelected.Color := $FFA8BCF0;\r\n  Appearance.StrokeSelected.Color := $FF2D9BEF;\r\n  Appearance.FillDown.Color := $FF5A81E6;\r\n  {$ENDIF}\r\n  {$IFNDEF FMXLIB}\r\n  Appearance.Font.Color := $454545;\r\n  Appearance.Fill.Color := $F9F2EE;\r\n  Appearance.FillSelected.Color := $F0BCA8;\r\n  Appearance.StrokeSelected.Color := $EF9B2D;\r\n  Appearance.FillDown.Color := $E6815A;\r\n  {$ENDIF}\r\n\r\n  Appearance.FillSelected.Kind := gfkSolid;\r\n  Appearance.Fill.Kind := gfkSolid;\r\n  Appearance.FillDown.Kind := gfkSolid;\r\n  Appearance.Stroke.Kind := gskSolid;\r\n  Appearance.StrokeSelected.Kind := gskSolid;\r\n  Appearance.StrokeHover.Kind := gskSolid;\r\n\r\n  Appearance.Stroke.Color := gcDarkgray;\r\n  Appearance.StrokeHover.Color := Appearance.FillDown.Color;\r\n\r\n  Appearance.FillHover.Assign(Appearance.Fill);\r\n  Appearance.StrokeDown.Assign(Appearance.Stroke);\r\n\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.SetEndTime(const Value: TTime);\r\nbegin\r\n  if CompareTime(FEndTime, Value) <> 0 then\r\n  begin\r\n    FEndTime := Value;\r\n    AddTimes;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.SetHeaderSize(const Value: Integer);\r\nbegin\r\n  if HeaderSize <> Value then\r\n    FHeaderSize := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.SetIntervalUnit(\r\n  const Value: TTMSFNCDigitalTimeSelectorIntervalUnit);\r\nbegin\r\n  if FIntervalUnit <> Value then\r\n  begin\r\n    FIntervalUnit := Value;\r\n    AddTimes;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.SetItems(\r\n  const Value: TTMSFNCDigitalTimeSelectorItems);\r\nbegin\r\n  Items.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.SetSelectedTime(const Value: TTime);\r\nbegin\r\n  FSelectedTime := Value;\r\n  SelectedItemIndex := FindItemByTime(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.SetStartTime(const Value: TTime);\r\nbegin\r\n  if CompareTime(FStartTime, Value) <> 0 then\r\n  begin\r\n    FStartTime := Value;\r\n    FFirst := FStartTime;\r\n    AddTimes;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.SetTimeFormat(const Value: string);\r\nbegin\r\n  if FTimeFormat <> Value then\r\n  begin\r\n    FTimeFormat := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.SetTimeInterval(\r\n  const Value: Integer);\r\nbegin\r\n  if FTimeInterval <> Value then\r\n  begin\r\n    FTimeInterval := Value;\r\n    AddTimes;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimeSelector.UpdateCalculations;\r\nbegin\r\n  inherited;\r\n  CalculateTimes;\r\nend;\r\n\r\n{ TTMSFNCDigitalTimeSelector }\r\n\r\nprocedure TTMSFNCDigitalTimeSelector.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClasses([TTMSFNCDigitalTimeSelector, TTMSFNCDigitalTimeSelectorItem]);\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2021                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : https://www.tmssoftware.com                       }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCDigitalTimePicker;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, Types,\r\n  {$IFDEF FMXLIB}\r\n  FMX.Types,\r\n  {$ENDIF}\r\n  WEBLib.TMSFNCCustomPicker, WEBLib.TMSFNCCustomSelector, WEBLib.TMSFNCGraphics,\r\n  WEBLib.TMSFNCDigitalTimeSelector, WEBLib.TMSFNCTypes, WEBLib.TMSFNCUtils, WEBLib.StdCtrls,\r\n  WEBLib.TMSFNCGraphicsTypes;\r\n\r\nconst\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 0; // Minor version nr.\r\n  REL_VER = 3; // Release nr.\r\n  BLD_VER = 0; // Build nr.\r\n\r\n  //Version history\r\n  //v1.0.0.0 : First Release\r\n  //v1.0.1.0 : New : Property AllowNumericNullValue added\r\n  //         : New : Method Clear added\r\n  //         : Fixed : Issue with OnTimeSelected event\r\n  //v1.0.1.1 : Fixed : Issue with setting the SelectedTime to 00:00:00\r\n  //v1.0.1.2 : Fixed : Issue with control color in disabled state\r\n  //v1.0.1.3 : Fixed : Issue with Column and Row property persistence\r\n  //v1.0.1.4 : Improved : Exposed Font property\r\n  //v1.0.2.0 : New : TimeSelector property added\r\n  //         : Improved : Exposed OnItemBeforeDrawBackground, OnItemAfterDrawBackground, OnItemBeforeDrawContent, OnItemAfterDrawContent, OnItemBeforeDrawText and OnItemAfterDrawText events\r\n  //v1.0.3.0 : New : Support for high dpi\r\n\r\ntype\r\n  TTMSFNCCustomDigitalTimePicker = class(TTMSFNCDefaultPicker)\r\n  private\r\n    FPrevSelTime: TTime;\r\n    FCloseOnSelection: Boolean;\r\n    FTimeSelector: TTMSFNCDigitalTimeSelector;\r\n    FOnTimeDeselected: TTMSFNCCustomDigitalTimeSelectorTimeDeselected;\r\n    FOnTimeSelected: TTMSFNCCustomDigitalTimeSelectorTimeSelected;\r\n    FOnAfterDrawArrow: TTMSFNCCustomDigitalTimeSelectorAfterDrawArrowEvent;\r\n    FOnBeforeDrawHeader: TTMSFNCCustomDigitalTimeSelectorBeforeDrawHeaderEvent;\r\n    FOnAfterDrawHeaderText: TTMSFNCCustomDigitalTimeSelectorAfterDrawHeaderTextEvent;\r\n    FOnBeforeDrawArrow: TTMSFNCCustomDigitalTimeSelectorBeforeDrawArrowEvent;\r\n    FOnAfterDrawHeader: TTMSFNCCustomDigitalTimeSelectorAfterDrawHeaderEvent;\r\n    FOnBeforeDrawHeaderText: TTMSFNCCustomDigitalTimeSelectorBeforeDrawHeaderTextEvent;\r\n    FAllowNumericNullValue: Boolean;\r\n    FFont: TTMSFNCGraphicsFont;\r\n    FOnItemBeforeDrawText: TTMSFNCCustomSelectorItemBeforeDrawText;\r\n    FOnItemBeforeDrawContent: TTMSFNCCustomSelectorItemBeforeDrawContent;\r\n    FOnItemAfterDrawBackground: TTMSFNCCustomSelectorItemAfterDrawBackground;\r\n    FOnItemAfterDrawText: TTMSFNCCustomSelectorItemAfterDrawText;\r\n    FOnItemAfterDrawContent: TTMSFNCCustomSelectorItemAfterDrawContent;\r\n    FOnItemBeforeDrawBackground: TTMSFNCCustomSelectorItemBeforeDrawBackground;\r\n    procedure SetHeaderSize(const Value: Integer);\r\n    procedure SetItems(const Value: TTMSFNCDigitalTimeSelectorItems);\r\n    procedure SetSelectedTime(const Value: TTime);\r\n    procedure SetEndTime(const Value: TTime);\r\n    procedure SetIntervalUnit(const Value: TTMSFNCDigitalTimeSelectorIntervalUnit);\r\n    procedure SetStartTime(const Value: TTime);\r\n    procedure SetTimeFormat(const Value: string);\r\n    procedure SetTimeInterval(const Value: Integer);\r\n    procedure SetAllowNumericNullValue(const Value: Boolean);\r\n    function GetItems: TTMSFNCDigitalTimeSelectorItems;\r\n    function GetSelectedTime: TTime;\r\n    function GetEndTime: TTime;\r\n    function GetIntervalUnit: TTMSFNCDigitalTimeSelectorIntervalUnit;\r\n    function GetStartTime: TTime;\r\n    function GetTimeFormat: string;\r\n    function GetTimeInterval: Integer;\r\n    function IsTimeFormatStored: Boolean;\r\n    function IsIntervalUnitStored: Boolean;\r\n    function GetHeaderSize: Integer;\r\n    procedure SetFnt(const Value: TTMSFNCGraphicsFont);\r\n  protected\r\n    procedure Loaded; override;\r\n    procedure ChangeDPIScale(M, D: Integer); override;\r\n    procedure FontChange(Sender: TObject);\r\n    procedure SetEditable(const Value: Boolean); override;\r\n    procedure UpdateEditText(AText: string); override;\r\n    procedure InitializePopup; override;\r\n    procedure DoTimeSelected; virtual;\r\n    procedure SetGraphicColors; override;\r\n    procedure TimeSelected(Sender: TObject; ATime: TTime);\r\n    procedure TimeDeselected(Sender: TObject; ATime: TTime);\r\n    procedure DoBeforeDrawHeader(Sender: TObject; AGraphics: TTMSFNCGraphics; ARectF: TRectF; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawHeader(Sender: TObject; AGraphics: TTMSFNCGraphics; ARectF: TRectF); virtual;\r\n    procedure DoBeforeDrawHeaderText(Sender: TObject; AGraphics: TTMSFNCGraphics; ARectF: TRectF; AText: string; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawHeaderText(Sender: TObject; AGraphics: TTMSFNCGraphics; ARectF: TRectF; AText: string); virtual;\r\n    procedure DoBeforeDrawArrow(Sender: TObject; AGraphics: TTMSFNCGraphics; ARectF: TRectF; ALeft: Boolean; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawArrow(Sender: TObject; AGraphics: TTMSFNCGraphics; ARectF: TRectF; ALeft: Boolean); virtual;\r\n    procedure DoBeforeDrawItemBackground(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawItemBackground(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer); virtual;\r\n    procedure DoBeforeDrawItemContent(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawItemContent(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer); virtual;\r\n    procedure DoBeforeDrawItemText(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer; var AText: string; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawItemText(Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer; AText: string); virtual;\r\n    procedure DrawContent(AGraphics: TTMSFNCGraphics; ARect: TRectF); override;\r\n    procedure SelectFirstValue; override;\r\n    procedure SelectLastValue; override;\r\n    procedure SelectNextValue; override;\r\n    procedure SelectPreviousValue; override;\r\n    procedure EditUp; override;\r\n    procedure EditDown; override;\r\n    function GetVersion: string; override;\r\n    function CreateSelector: TTMSFNCCustomSelector; override;\r\n    property AllowNumericNullValue: Boolean read FAllowNumericNullValue write SetAllowNumericNullValue default True;\r\n    property SelectedTime: TTime read GetSelectedTime write SetSelectedTime;\r\n    property Items: TTMSFNCDigitalTimeSelectorItems read GetItems write SetItems;\r\n    property CloseOnSelection: Boolean read FCloseOnSelection write FCloseOnSelection default True;\r\n    property TimeFormat: string read GetTimeFormat write SetTimeFormat stored IsTimeFormatStored nodefault;\r\n    property TimeInterval: Integer read GetTimeInterval write SetTimeInterval default 5;\r\n    property IntervalUnit: TTMSFNCDigitalTimeSelectorIntervalUnit read GetIntervalUnit write SetIntervalUnit stored IsIntervalUnitStored nodefault;\r\n    property StartTime: TTime read GetStartTime write SetStartTime;\r\n    property EndTime: TTime read GetEndTime write SetEndTime;\r\n    property HeaderSize: Integer read GetHeaderSize write SetHeaderSize;\r\n    property Font: TTMSFNCGraphicsFont read FFont write SetFnt;\r\n    property OnTimeSelected: TTMSFNCCustomDigitalTimeSelectorTimeSelected read FOnTimeSelected write FOnTimeSelected;\r\n    property OnTimeDeselected: TTMSFNCCustomDigitalTimeSelectorTimeDeselected read FOnTimeDeselected write FOnTimeDeselected;\r\n    property OnBeforeDrawHeader: TTMSFNCCustomDigitalTimeSelectorBeforeDrawHeaderEvent read FOnBeforeDrawHeader write FOnBeforeDrawHeader;\r\n    property OnAfterDrawHeader: TTMSFNCCustomDigitalTimeSelectorAfterDrawHeaderEvent read FOnAfterDrawHeader write FOnAfterDrawHeader;\r\n    property OnBeforeDrawHeaderText: TTMSFNCCustomDigitalTimeSelectorBeforeDrawHeaderTextEvent read FOnBeforeDrawHeaderText write FOnBeforeDrawHeaderText;\r\n    property OnAfterDrawHeaderText: TTMSFNCCustomDigitalTimeSelectorAfterDrawHeaderTextEvent read FOnAfterDrawHeaderText write FOnAfterDrawHeaderText;\r\n    property OnBeforeDrawArrow: TTMSFNCCustomDigitalTimeSelectorBeforeDrawArrowEvent read FOnBeforeDrawArrow write FOnBeforeDrawArrow;\r\n    property OnAfterDrawArrow: TTMSFNCCustomDigitalTimeSelectorAfterDrawArrowEvent read FOnAfterDrawArrow write FOnAfterDrawArrow;\r\n    property OnItemBeforeDrawBackground: TTMSFNCCustomSelectorItemBeforeDrawBackground read FOnItemBeforeDrawBackground write FOnItemBeforeDrawBackground;\r\n    property OnItemAfterDrawBackground: TTMSFNCCustomSelectorItemAfterDrawBackground read FOnItemAfterDrawBackground write FOnItemAfterDrawBackground;\r\n    property OnItemBeforeDrawContent: TTMSFNCCustomSelectorItemBeforeDrawContent read FOnItemBeforeDrawContent write FOnItemBeforeDrawContent;\r\n    property OnItemAfterDrawContent: TTMSFNCCustomSelectorItemAfterDrawContent read FOnItemAfterDrawContent write FOnItemAfterDrawContent;\r\n    property OnItemBeforeDrawText: TTMSFNCCustomSelectorItemBeforeDrawText read FOnItemBeforeDrawText write FOnItemBeforeDrawText;\r\n    property OnItemAfterDrawText: TTMSFNCCustomSelectorItemAfterDrawText read FOnItemAfterDrawText write FOnItemAfterDrawText;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure Clear;\r\n    property TimeSelector: TTMSFNCDigitalTimeSelector read FTimeSelector;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCDigitalTimePicker = class(TTMSFNCCustomDigitalTimePicker)\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n  published\r\n    property AllowNumericNullValue;\r\n    property Editable;\r\n    property DropDownWidth;\r\n    property DropDownHeight;\r\n    property Appearance;\r\n    property Rows default 4;\r\n    property Columns default 3;\r\n    property CloseOnSelection;\r\n    property Font;\r\n    property SelectedTime;\r\n    property TimeFormat;\r\n    property TimeInterval;\r\n    property IntervalUnit;\r\n    property StartTime;\r\n    property EndTime;\r\n    property HeaderSize;\r\n    property OnTimeSelected;\r\n    property OnTimeDeselected;\r\n    property OnBeforeDrawHeader;\r\n    property OnAfterDrawHeader;\r\n    property OnBeforeDrawHeaderText;\r\n    property OnAfterDrawHeaderText;\r\n    property OnBeforeDrawArrow;\r\n    property OnAfterDrawArrow;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  Math, DateUtils, SysUtils\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Edit\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  , VCL.Graphics\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TCustomEditProtected = class(TCustomEdit);\r\n  TTMSFNCDigitalTimeSelectorOpen = class(TTMSFNCDigitalTimeSelector);\r\n\r\n{ TTMSFNCCustomDigitalTimePicker }\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.ChangeDPIScale(M, D: Integer);\r\nbegin\r\n  inherited;\r\n  BeginUpdate;\r\n  {$IFDEF VCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF (COMPILERVERSION >= 33) and (COMPILERVERSION < 35) }\r\n  if Assigned(FTimeSelector) then\r\n    FTimeSelector.ScaleForPPI(M);\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n\r\n  Font.Height := TTMSFNCUtils.MulDivInt(FFont.Height, M, D);\r\n  {$IFDEF CMNLIB}\r\n  Edit.Font.Height := FFont.Height;\r\n  {$ENDIF}\r\n\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.Clear;\r\nbegin\r\n  SelectedTime := 0.0;\r\nend;\r\n\r\nconstructor TTMSFNCCustomDigitalTimePicker.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  Width := 90;\r\n  FAllowNumericNullValue := True;\r\n  DropDownWidth := 220;\r\n  DropDownHeight := 150;\r\n  FCloseOnSelection := True;\r\n  FFont := TTMSFNCGraphicsFont.Create;\r\n  FFont.OnChanged := @FontChange;\r\n  {$IFDEF FMXLIB}\r\n  Edit.StyledSettings := TCustomEditProtected(Edit).StyledSettings - [TStyledSetting.Family, TStyledSetting.Size, TStyledSetting.Style];\r\n  {$IFDEF ANDROID}\r\n  Edit.TextSettings.VertAlign := TTextAlign.Leading;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCCustomDigitalTimePicker.CreateSelector: TTMSFNCCustomSelector;\r\nbegin\r\n  FTimeSelector := TTMSFNCDigitalTimeSelector.Create(Self);\r\n  FTimeSelector.OnTimeSelected := TimeSelected;\r\n  FTimeSelector.OnTimeDeselected := TimeDeselected;\r\n  FTimeSelector.OnBeforeDrawHeader := DoBeforeDrawHeader;\r\n  FTimeSelector.OnBeforeDrawHeaderText := DoBeforeDrawHeaderText;\r\n  FTimeSelector.OnBeforeDrawArrow := DoBeforeDrawArrow;\r\n  FTimeSelector.OnAfterDrawHeader := DoAfterDrawHeader;\r\n  FTimeSelector.OnAfterDrawHeaderText := DoAfterDrawHeaderText;\r\n  FTimeSelector.OnAfterDrawArrow := DoAfterDrawArrow;\r\n  TTMSFNCDigitalTimeSelectorOpen(FTimeSelector).OnItemBeforeDrawBackground := DoBeforeDrawItemBackground;\r\n  TTMSFNCDigitalTimeSelectorOpen(FTimeSelector).OnItemAfterDrawBackground := DoAfterDrawItemBackground;\r\n  TTMSFNCDigitalTimeSelectorOpen(FTimeSelector).OnItemBeforeDrawContent := DoBeforeDrawItemContent;\r\n  TTMSFNCDigitalTimeSelectorOpen(FTimeSelector).OnItemAfterDrawContent := DoAfterDrawItemContent;\r\n  TTMSFNCDigitalTimeSelectorOpen(FTimeSelector).OnItemBeforeDrawText := DoBeforeDrawItemText;\r\n  TTMSFNCDigitalTimeSelectorOpen(FTimeSelector).OnItemAfterDrawText := DoAfterDrawItemText;\r\n  Result := FTimeSelector;\r\nend;\r\n\r\ndestructor TTMSFNCCustomDigitalTimePicker.Destroy;\r\nbegin\r\n  FFont.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.DoAfterDrawArrow(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARectF: TRectF; ALeft: Boolean);\r\nbegin\r\n  if Assigned(OnAfterDrawArrow) then\r\n    OnAfterDrawArrow(Self, AGraphics, ARectF, ALeft);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.DoAfterDrawHeader(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARectF: TRectF);\r\nbegin\r\n  if Assigned(OnAfterDrawHeader) then\r\n    OnAfterDrawHeader(Self, AGraphics, ARectF);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.DoAfterDrawHeaderText(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARectF: TRectF; AText: string);\r\nbegin\r\n  if Assigned(OnAfterDrawHeaderText) then\r\n    OnAfterDrawHeaderText(Self, AGraphics, ARectF, AText);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.DoAfterDrawItemBackground(\r\n  Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF;\r\n  AItemIndex: Integer);\r\nbegin\r\n  if Assigned(OnItemAfterDrawBackground) then\r\n    OnItemAfterDrawBackground(Self, AGraphics, ARect, AItemIndex);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.DoAfterDrawItemContent(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer);\r\nbegin\r\n  if Assigned(OnItemAfterDrawContent) then\r\n    OnItemAfterDrawContent(Self, AGraphics, ARect, AItemIndex);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.DoAfterDrawItemText(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer;\r\n  AText: string);\r\nbegin\r\n  if Assigned(OnItemAfterDrawText) then\r\n    OnItemAfterDrawText(Self, AGraphics, ARect, AItemIndex, AText);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.DoBeforeDrawArrow(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARectF: TRectF; ALeft: Boolean; var AAllow,\r\n  ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawArrow) then\r\n    OnBeforeDrawArrow(Self, AGraphics, ARectF, ALeft, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.DoBeforeDrawHeader(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARectF: TRectF; var AAllow,\r\n  ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawHeader) then\r\n    OnBeforeDrawHeader(Self, AGraphics, ARectF, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.DoBeforeDrawHeaderText(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARectF: TRectF; AText: string; var AAllow,\r\n  ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawHeaderText) then\r\n    OnBeforeDrawHeaderText(Self, AGraphics, ARectF, AText, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.DoBeforeDrawItemBackground(\r\n  Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF;\r\n  AItemIndex: Integer; var ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnItemBeforeDrawBackground) then\r\n    OnItemBeforeDrawBackground(Self, AGraphics, ARect, AItemIndex, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.DoBeforeDrawItemContent(\r\n  Sender: TObject; AGraphics: TTMSFNCGraphics; ARect: TRectF;\r\n  AItemIndex: Integer; var ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnItemBeforeDrawContent) then\r\n    OnItemBeforeDrawContent(Self, AGraphics, ARect, AItemIndex, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.DoBeforeDrawItemText(Sender: TObject;\r\n  AGraphics: TTMSFNCGraphics; ARect: TRectF; AItemIndex: Integer;\r\n  var AText: string; var ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnItemBeforeDrawText) then\r\n    OnItemBeforeDrawText(Self, AGraphics, ARect, AItemIndex, AText, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.DoTimeSelected;\r\nbegin\r\n  if Assigned(OnTimeSelected) then\r\n    OnTimeSelected(Self, SelectedTime);\r\n\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.DrawContent(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF);\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  inherited;\r\n  if not Editable then\r\n  begin\r\n    AGraphics.Font.AssignSource(Font);\r\n\r\n    if not Enabled then\r\n      AGraphics.Font.Color := gcSilver;\r\n    r := ARect;\r\n    InflateRectEx(r, -3, -3);\r\n    AGraphics.DrawText(r, Content);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.EditDown;\r\nbegin\r\n  inherited;\r\n  if not Popup.IsOpen then\r\n    DropDown;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.EditUp;\r\nbegin\r\n  inherited;\r\n  if Popup.IsOpen then\r\n    DropDown;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.FontChange(Sender: TObject);\r\nbegin\r\n  Invalidate;\r\nend;\r\n\r\nfunction TTMSFNCCustomDigitalTimePicker.GetEndTime: TTime;\r\nbegin\r\n  Result := FTimeSelector.EndTime;\r\nend;\r\n\r\nfunction TTMSFNCCustomDigitalTimePicker.GetHeaderSize: Integer;\r\nbegin\r\n  Result := FTimeSelector.HeaderSize;\r\nend;\r\n\r\nfunction TTMSFNCCustomDigitalTimePicker.GetIntervalUnit: TTMSFNCDigitalTimeSelectorIntervalUnit;\r\nbegin\r\n  Result := FTimeSelector.IntervalUnit;\r\nend;\r\n\r\nfunction TTMSFNCCustomDigitalTimePicker.GetItems: TTMSFNCDigitalTimeSelectorItems;\r\nbegin\r\n  Result := FTimeSelector.Items;\r\nend;\r\n\r\nfunction TTMSFNCCustomDigitalTimePicker.GetSelectedTime: TTime;\r\nbegin\r\n  Result := FTimeSelector.SelectedTime;\r\nend;\r\n\r\nfunction TTMSFNCCustomDigitalTimePicker.GetStartTime: TTime;\r\nbegin\r\n  Result := FTimeSelector.StartTime;\r\nend;\r\n\r\nfunction TTMSFNCCustomDigitalTimePicker.GetTimeFormat: string;\r\nbegin\r\n  Result := FTimeSelector.TimeFormat;\r\nend;\r\n\r\nfunction TTMSFNCCustomDigitalTimePicker.GetTimeInterval: Integer;\r\nbegin\r\n  Result := FTimeSelector.TimeInterval;\r\nend;\r\n\r\nfunction TTMSFNCCustomDigitalTimePicker.GetVersion: string;\r\nbegin\r\n  Result := GetVersionNumber(MAJ_VER, MIN_VER, REL_VER, BLD_VER);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.InitializePopup;\r\nvar\r\n  t: TDateTime;\r\nbegin\r\n  inherited;\r\n  if Editable and Assigned(Edit.Parent) and Edit.Visible then\r\n  begin\r\n    t := SelectedTime;\r\n    if TryStrToTime(Edit.Text, t) then\r\n      SelectedTime := t;\r\n  end;\r\n  FTimeSelector.InitializePage(SelectedTime);\r\nend;\r\n\r\nfunction TTMSFNCCustomDigitalTimePicker.IsIntervalUnitStored: Boolean;\r\nbegin\r\n  Result := GetIntervalUnit <> tsuMinutes;\r\nend;\r\n\r\nfunction TTMSFNCCustomDigitalTimePicker.IsTimeFormatStored: Boolean;\r\nbegin\r\n  Result := GetTimeFormat <> 'hh:nn:ss';\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.Loaded;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.SelectFirstValue;\r\nbegin\r\n  inherited;\r\n  SelectedTime := StartTime;\r\n  DoTimeSelected;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.SelectLastValue;\r\nvar\r\n  n: Integer;\r\nbegin\r\n  inherited;\r\n  case IntervalUnit of\r\n    tsuMilliseconds:\r\n    begin\r\n      n := (MilliSecondOfTheDay(EndTime) - MilliSecondOfTheDay(StartTime)) div Cardinal(TimeInterval);\r\n      SelectedTime := IncMilliSecond(StartTime, n * TimeInterval);\r\n    end;\r\n    tsuSeconds:\r\n    begin\r\n      n := (SecondOfTheDay(EndTime) - SecondOfTheDay(StartTime)) div Cardinal(TimeInterval);\r\n      SelectedTime := IncSecond(StartTime, n * TimeInterval);\r\n    end;\r\n    tsuMinutes:\r\n    begin\r\n      n := (MinuteOfTheDay(EndTime) - MinuteOfTheDay(StartTime)) div TimeInterval;\r\n      SelectedTime := IncMinute(StartTime, n * TimeInterval);\r\n    end;\r\n    tsuHours:\r\n    begin\r\n      n := (HourOfTheDay(EndTime) - HourOfTheDay(StartTime)) div TimeInterval;\r\n      SelectedTime := IncHour(StartTime, n * TimeInterval);\r\n    end;\r\n  end;\r\n  DoTimeSelected;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.SelectNextValue;\r\nvar\r\n  t: TDateTime;\r\nbegin\r\n  inherited;\r\n  t := 0.0;\r\n  case IntervalUnit of\r\n    tsuMilliseconds: t := IncMilliSecond(SelectedTime, TimeInterval);\r\n    tsuSeconds: t := IncSecond(SelectedTime, TimeInterval);\r\n    tsuMinutes: t := IncMinute(SelectedTime, TimeInterval);\r\n    tsuHours: t := IncHour(SelectedTime, TimeInterval);\r\n  end;\r\n  if CompareDateTime(t, EndTime) <= 0 then\r\n    SelectedTime := t;\r\n\r\n  DoTimeSelected;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.SelectPreviousValue;\r\nvar\r\n  t: TDateTime;\r\nbegin\r\n  inherited;\r\n  t := 0.0;\r\n  case IntervalUnit of\r\n    tsuMilliseconds: t := IncMilliSecond(SelectedTime, -TimeInterval);\r\n    tsuSeconds: t := IncSecond(SelectedTime, -TimeInterval);\r\n    tsuMinutes: t := IncMinute(SelectedTime, -TimeInterval);\r\n    tsuHours: t := IncHour(SelectedTime, -TimeInterval);\r\n  end;\r\n  if CompareDateTime(t, StartTime) >= 0 then\r\n    SelectedTime := t;\r\n\r\n  DoTimeSelected;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.SetAllowNumericNullValue(\r\n  const Value: Boolean);\r\nbegin\r\n  if FAllowNumericNullValue <> Value then\r\n  begin\r\n    FAllowNumericNullValue := Value;\r\n    if FAllowNumericNullValue and (Frac(SelectedTime) = 0.0) then\r\n      Content := ''\r\n    else\r\n      Content := FormatDateTime(TimeFormat, SelectedTime);\r\n\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.SetEditable(const Value: Boolean);\r\nbegin\r\n  inherited;\r\n  if FAllowNumericNullValue and (Frac(FPrevSelTime) = 0.0) then\r\n    Content := ''\r\n  else\r\n    Content := FormatDateTime(TimeFormat, FPrevSelTime);\r\n\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.SetEndTime(const Value: TTime);\r\nbegin\r\n  FTimeSelector.EndTime := Value;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.SetFnt(\r\n  const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FFont.AssignSource(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.SetGraphicColors;\r\nbegin\r\n  inherited;\r\n  TTMSFNCGraphics.DefaultTextFontColor := Font.Color;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.SetHeaderSize(const Value: Integer);\r\nbegin\r\n  FTimeSelector.HeaderSize := Value;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.SetIntervalUnit(\r\n  const Value: TTMSFNCDigitalTimeSelectorIntervalUnit);\r\nbegin\r\n  FTimeSelector.IntervalUnit := Value;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.SetItems(\r\n  const Value: TTMSFNCDigitalTimeSelectorItems);\r\nbegin\r\n  FTimeSelector.Items.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.SetSelectedTime(const Value: TTime);\r\nbegin\r\n  if FAllowNumericNullValue and (Frac(Value) = 0.0) then\r\n    Content := ''\r\n  else\r\n  begin\r\n    if (CompareTime(Value, StartTime) = -1) or (CompareTime(Value, EndTime) = 1) then\r\n      Content := FormatDateTime(TimeFormat, StartTime)\r\n    else\r\n      Content := FormatDateTime(TimeFormat, Value);\r\n  end;\r\n\r\n  FPrevSelTime := Value;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.SetStartTime(const Value: TTime);\r\nbegin\r\n  FTimeSelector.StartTime := Value;\r\n  SelectedTime := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.SetTimeFormat(const Value: string);\r\nbegin\r\n  FTimeSelector.TimeFormat := Value;\r\n  Content := FormatDateTime(Value, SelectedTime);\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.SetTimeInterval(const Value: Integer);\r\nbegin\r\n  FTimeSelector.TimeInterval := Value;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.TimeDeselected(Sender: TObject;\r\n  ATime: TTime);\r\nbegin\r\n  if Assigned(OnTimeDeselected) then\r\n    OnTimeDeselected(Self, ATime);\r\n\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.TimeSelected(Sender: TObject;\r\n  ATime: TTime);\r\nbegin\r\n  if Editable and Edit.IsFocused then\r\n    PreventDropDown := True;\r\n\r\n  if CloseOnSelection then\r\n    DropDown;\r\n\r\n  if Assigned(OnTimeSelected) then\r\n    OnTimeSelected(Self, ATime);\r\n\r\n  SelectedTime := ATime;\r\n\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDigitalTimePicker.UpdateEditText(AText: string);\r\nvar\r\n  t: TDateTime;\r\nbegin\r\n  inherited;\r\n  if AText = '' then\r\n  begin\r\n    if (0.0 <> FPrevSelTime) then\r\n    begin\r\n      FTimeSelector.SelectedTime := 0.0;\r\n      DoTimeSelected;\r\n    end;\r\n  end\r\n  else if TryStrToTime(AText, t) then\r\n  begin\r\n    if (Frac(t) <> SelectedTime) and (Frac(t) >= StartTime) and (Frac(t) <= EndTime) then\r\n    begin\r\n      FTimeSelector.SelectedTime := Frac(t);\r\n      DoTimeSelected;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCDigitalTimePicker }\r\n\r\nprocedure TTMSFNCDigitalTimePicker.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClass(TTMSFNCDigitalTimePicker);\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2022                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : https://www.tmssoftware.com                       }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCAnalogTimeSelector;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\ninterface\r\n\r\nuses\r\n  {$IFDEF FMXLIB}\r\n  FMX.Types,\r\n  {$ENDIF}\r\n  {$IFNDEF LCLLIB}\r\n  Types,\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  UITypes,\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  Classes, WEBLib.Controls, WEBLib.TMSFNCCustomControl, WEBLib.TMSFNCGraphics,\r\n  WEBLib.TMSFNCGraphicsTypes, WEBLib.TMSFNCTypes, WEBLib.ExtCtrls, WEBLib.TMSFNCStyles,\r\n  WEBLib.Graphics, WEBLib.TMSFNCUtils;\r\n\r\nconst\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 0; // Minor version nr.\r\n  REL_VER = 2; // Release nr.\r\n  BLD_VER = 0; // Build nr.\r\n\r\n  //Version history\r\n  //v1.0.0.0 : First Release\r\n  //v1.0.1.0 : New : Support for high dpi\r\n  //v1.0.2.0 : New : GlobalFont interface implemented\r\n\r\ntype\r\n  TTMSFNCAnalogTimeSelectorShape = (wsCircle, wsRect, wsRoundRect);\r\n  TTMSFNCAnalogTimeSelectorTickMark = (tmAll, tmHours, tmNone, tmQuartHours);\r\n  TTMSFNCAnalogTimeSelectorHourMarkStyle = (hmsLine, hmsQuartDblLine);\r\n  TTMSFNCAnalogTimeSelectorPointerStyle = (psLine, psShortLine, psPointer, psLineArrow);\r\n  TTMSFNCAnalogTimeSelectorStyle = (wsClassic, wsFluorescent, wsEmerald, wsTower, wsFuchsia, wsBlack, wsBlackWhite, wsSuperNova, wsSports, wsSmooth, wsCustom);\r\n\r\n  TTMSFNCAnalogTimeSelectorAppearance = class(TPersistent)\r\n  private\r\n    FFill: TTMSFNCGraphicsFill;\r\n    FStroke: TTMSFNCGraphicsStroke;\r\n    FShape: TTMSFNCAnalogTimeSelectorShape;\r\n    FHourMark: TTMSFNCGraphicsStroke;\r\n    FTickMark: TTMSFNCAnalogTimeSelectorTickMark;\r\n    FMinuteMark: TTMSFNCGraphicsStroke;\r\n    FHourMarkLength: Single;\r\n    FMinuteMarkLength: Single;\r\n    FHourFont: TTMSFNCGraphicsFont;\r\n    FAMPMFill: TTMSFNCGraphicsFill;\r\n    FAMPMStroke: TTMSFNCGraphicsStroke;\r\n    FAMPMFont: TTMSFNCGraphicsFont;\r\n    FShowAMPM: Boolean;\r\n    FPointerStyle: TTMSFNCAnalogTimeSelectorPointerStyle;\r\n    FMinutePointerShadow: TTMSFNCGraphicsStroke;\r\n    FHourPointerShadow: TTMSFNCGraphicsStroke;\r\n    FSecondPointer: TTMSFNCGraphicsStroke;\r\n    FMinutePointer: TTMSFNCGraphicsStroke;\r\n    FHourPointer: TTMSFNCGraphicsStroke;\r\n    FCenterPointSize: Single;\r\n    FCenterPointFill: TTMSFNCGraphicsFill;\r\n    FCenterPointStroke: TTMSFNCGraphicsStroke;\r\n    FShowSecondPointer: Boolean;\r\n    FShowNumbers: Boolean;\r\n    FOnChange: TNotifyEvent;\r\n    FHourMarkStyle: TTMSFNCAnalogTimeSelectorHourMarkStyle;\r\n    FCenterPointOuterColor: TTMSFNCGraphicsColor;\r\n    procedure SetFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetShape(const Value: TTMSFNCAnalogTimeSelectorShape);\r\n    procedure SetHourMark(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetMinuteMark(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetTickMark(const Value: TTMSFNCAnalogTimeSelectorTickMark);\r\n    procedure SetHourMarkLength(const Value: Single);\r\n    procedure SetMinuteMarkLength(const Value: Single);\r\n    procedure SetHourFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetAMPMFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetAMPMFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetAMPMStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetShowAMPM(const Value: Boolean);\r\n    procedure SetPointerStyle(const Value: TTMSFNCAnalogTimeSelectorPointerStyle);\r\n    procedure SetHourPointerShadow(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetMinutePointerShadow(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetHourPointer(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetMinutePointer(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetSecondPointer(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetCenterPointFill(const Value: TTMSFNCGraphicsFill);\r\n    procedure SetCenterPointSize(const Value: Single);\r\n    procedure SetCenterPointStroke(const Value: TTMSFNCGraphicsStroke);\r\n    procedure SetShowSecondPointer(const Value: Boolean);\r\n    procedure SetShowNumbers(const Value: Boolean);\r\n    procedure SetHourMarkStyle(const Value: TTMSFNCAnalogTimeSelectorHourMarkStyle);\r\n    procedure SetCenterPointOuterColor(const Value: TTMSFNCGraphicsColor);\r\n    function IsHourMarkLengthStored: Boolean;\r\n    function IsMinuteMarkLengthStored: Boolean;\r\n    function IsCenterPointSizeStored: Boolean;\r\n  protected\r\n    procedure Changed;\r\n    procedure FillChanged(Sender: TObject);\r\n    procedure FontChanged(Sender: TObject);\r\n    procedure StrokeChanged(Sender: TObject);\r\n  public\r\n    constructor Create; virtual;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure InitializeDefault;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  published\r\n    property Fill: TTMSFNCGraphicsFill read FFill write SetFill;\r\n    property Stroke: TTMSFNCGraphicsStroke read FStroke write SetStroke;\r\n    property HourMark: TTMSFNCGraphicsStroke read FHourMark write SetHourMark;\r\n    property HourFont: TTMSFNCGraphicsFont read FHourFont write SetHourFont;\r\n    property MinuteMark: TTMSFNCGraphicsStroke read FMinuteMark write SetMinuteMark;\r\n    property AMPMFill: TTMSFNCGraphicsFill read FAMPMFill write SetAMPMFill;\r\n    property AMPMStroke: TTMSFNCGraphicsStroke read FAMPMStroke write SetAMPMStroke;\r\n    property AMPMFont: TTMSFNCGraphicsFont read FAMPMFont write SetAMPMFont;\r\n    property ShowAMPM: Boolean read FShowAMPM write SetShowAMPM default True;\r\n    property Shape: TTMSFNCAnalogTimeSelectorShape read FShape write SetShape default wsCircle;\r\n    property HourMarkStyle: TTMSFNCAnalogTimeSelectorHourMarkStyle read FHourMarkStyle write SetHourMarkStyle default hmsLine;\r\n    property HourMarkLength: Single read FHourMarkLength write SetHourMarkLength stored IsHourMarkLengthStored nodefault;\r\n    property MinuteMarkLength: Single read FMinuteMarkLength write SetMinuteMarkLength stored IsMinuteMarkLengthStored nodefault;\r\n    property HourPointer: TTMSFNCGraphicsStroke read FHourPointer write SetHourPointer;\r\n    property MinutePointer: TTMSFNCGraphicsStroke read FMinutePointer write SetMinutePointer;\r\n    property SecondPointer: TTMSFNCGraphicsStroke read FSecondPointer write SetSecondPointer;\r\n    property HourPointerShadow: TTMSFNCGraphicsStroke read FHourPointerShadow write SetHourPointerShadow;\r\n    property MinutePointerShadow: TTMSFNCGraphicsStroke read FMinutePointerShadow write SetMinutePointerShadow;\r\n    property CenterPointFill: TTMSFNCGraphicsFill read FCenterPointFill write SetCenterPointFill;\r\n    property CenterPointStroke: TTMSFNCGraphicsStroke read FCenterPointStroke write SetCenterPointStroke;\r\n    property CenterPointOuterColor: TTMSFNCGraphicsColor read FCenterPointOuterColor write SetCenterPointOuterColor default gcNull;\r\n    property CenterPointSize: Single read FCenterPointSize write SetCenterPointSize stored IsCenterPointSizeStored nodefault;\r\n    property PointerStyle: TTMSFNCAnalogTimeSelectorPointerStyle read FPointerStyle write SetPointerStyle default psLine;\r\n    property TickMarks: TTMSFNCAnalogTimeSelectorTickMark read FTickMark write SetTickMark default tmAll;\r\n    property ShowSecondPointer: Boolean read FShowSecondPointer write SetShowSecondPointer default False;\r\n    property ShowNumbers: Boolean read FShowNumbers write SetShowNumbers default True;\r\n  end;\r\n\r\n  TTMSFNCAnalogTimeSelectorSettings = class(TPersistent)\r\n  private\r\n    FAuto: Boolean;\r\n    FTimeOffset: Integer;\r\n    FReadOnly: Boolean;\r\n    FOnChange: TNotifyEvent;\r\n    procedure SetAuto(const Value: Boolean);\r\n    procedure SetReadOnly(const Value: Boolean);\r\n    procedure SetTimeOffset(const Value: Integer);\r\n  protected\r\n    procedure Changed;\r\n  public\r\n    constructor Create; virtual;\r\n    procedure Assign(Source: TPersistent); override;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  published\r\n    property Auto: Boolean read FAuto write SetAuto default False;\r\n    property TimeOffset: Integer read FTimeOffset write SetTimeOffset default 0;\r\n    property ReadOnly: Boolean read FReadOnly write SetReadOnly default False;\r\n  end;\r\n\r\n  TTMSFNCAnalogTimeSelectorBeforeDrawWatchBackgroundEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARectF: TRectF; AShape: TTMSFNCAnalogTimeSelectorShape; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCAnalogTimeSelectorAfterDrawWatchBackgroundEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARectF: TRectF; AShape: TTMSFNCAnalogTimeSelectorShape) of object;\r\n  TTMSFNCAnalogTimeSelectorBeforeDrawTickMarkEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARectF: TRectF; ATickMarks: TTMSFNCAnalogTimeSelectorTickMark; AHourMarkLength: Single; AMinuteMarkLength: Single; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCAnalogTimeSelectorAfterDrawTickMarkEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARectF: TRectF; ATickMarks: TTMSFNCAnalogTimeSelectorTickMark; AHourMarkLength: Single; AMinuteMarkLength: Single) of object;\r\n  TTMSFNCAnalogTimeSelectorBeforeDrawNumberEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARectF: TRectF; ANumber: Integer; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCAnalogTimeSelectorAfterDrawNumberEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARectF: TRectF; ANumber: Integer) of object;\r\n  TTMSFNCAnalogTimeSelectorBeforeDrawAMPMEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARectF: TRectF; AAM: Boolean; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCAnalogTimeSelectorAfterDrawAMPMEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARectF: TRectF; AAM: Boolean) of object;\r\n  TTMSFNCAnalogTimeSelectorBeforeDrawHourPointerEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ACenterPoint: TPointF; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCAnalogTimeSelectorAfterDrawHourPointerEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ACenterPoint: TPointF) of object;\r\n  TTMSFNCAnalogTimeSelectorBeforeDrawMinutePointerEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ACenterPoint: TPointF; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCAnalogTimeSelectorAfterDrawMinutePointerEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ACenterPoint: TPointF) of object;\r\n  TTMSFNCAnalogTimeSelectorBeforeDrawSecondPointerEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ACenterPoint: TPointF; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCAnalogTimeSelectorAfterDrawSecondPonterEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ACenterPoint: TPointF) of object;\r\n  TTMSFNCAnalogTimeSelectorBeforeDrawCenterPointEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARectF: TRectF; ACenterPointSize: Single; var AAllow: Boolean; var ADefaultDraw: Boolean) of object;\r\n  TTMSFNCAnalogTimeSelectorAfterDrawCenterPointEvent = procedure(Sender: TObject; AGraphics: TTMSFNCGraphics; ARectF: TRectF; ACenterPointSize: Single) of object;\r\n  TTMSFNCAnalogTimeSelectorSecondChangedEvent = procedure(Sender: TObject; ATime: TTime) of object;\r\n  TTMSFNCAnalogTimeSelectorMinuteChangedEvent = procedure(Sender: TObject; ATime: TTime) of object;\r\n  TTMSFNCAnalogTimeSelectorHourChangedEvent = procedure(Sender: TObject; ATime: TTime) of object;\r\n  TTMSFNCAnalogTimeSelectorTimeChangedEvent = procedure(Sender: TObject; ATime: TTime) of object;\r\n\r\n  TTMSFNCCustomAnalogTimeSelector = class(TTMSFNCCustomControl, ITMSFNCAppearanceGlobalFont)\r\n  private\r\n    FTime: TTime;\r\n    FWatchTimer: TTimer;\r\n    FMouseHourDown, FMouseMinuteDown: Boolean;\r\n    FAM: Boolean;\r\n    FPrevHour: Word;\r\n    FPrevMin: Word;\r\n    FPrevSec: Word;\r\n    FAMRect: TRectF;\r\n    FAppearance: TTMSFNCAnalogTimeSelectorAppearance;\r\n    FSettings: TTMSFNCAnalogTimeSelectorSettings;\r\n    FOnChanged: TNotifyEvent;\r\n    FOnBeforeDrawBackground: TTMSFNCAnalogTimeSelectorBeforeDrawWatchBackgroundEvent;\r\n    FOnAfterDrawBackground: TTMSFNCAnalogTimeSelectorAfterDrawWatchBackgroundEvent;\r\n    FOnBeforeDrawTickMark: TTMSFNCAnalogTimeSelectorBeforeDrawTickMarkEvent;\r\n    FOnAfterDrawTickMark: TTMSFNCAnalogTimeSelectorAfterDrawTickMarkEvent;\r\n    FOnBeforeDrawNumber: TTMSFNCAnalogTimeSelectorBeforeDrawNumberEvent;\r\n    FOnAfterDrawNumber: TTMSFNCAnalogTimeSelectorAfterDrawNumberEvent;\r\n    FOnBeforeDrawAMPM: TTMSFNCAnalogTimeSelectorBeforeDrawAMPMEvent;\r\n    FOnAfterDrawAMPM: TTMSFNCAnalogTimeSelectorAfterDrawAMPMEvent;\r\n    FOnAfterDrawHourPointer: TTMSFNCAnalogTimeSelectorAfterDrawHourPointerEvent;\r\n    FOnBeforeDrawHourPointer: TTMSFNCAnalogTimeSelectorBeforeDrawHourPointerEvent;\r\n    FOnAfterDrawMinutePointer: TTMSFNCAnalogTimeSelectorAfterDrawMinutePointerEvent;\r\n    FOnBeforeDrawMinutePointer: TTMSFNCAnalogTimeSelectorBeforeDrawMinutePointerEvent;\r\n    FOnBeforeDrawSecondPointer: TTMSFNCAnalogTimeSelectorBeforeDrawSecondPointerEvent;\r\n    FOnAfterDrawSecondPointer: TTMSFNCAnalogTimeSelectorAfterDrawSecondPonterEvent;\r\n    FOnAfterDrawCenterPoint: TTMSFNCAnalogTimeSelectorAfterDrawCenterPointEvent;\r\n    FOnBeforeDrawCenterPoint: TTMSFNCAnalogTimeSelectorBeforeDrawCenterPointEvent;\r\n    FOnMinuteChanged: TTMSFNCAnalogTimeSelectorMinuteChangedEvent;\r\n    FOnHourChanged: TTMSFNCAnalogTimeSelectorHourChangedEvent;\r\n    FOnSecondChanged: TTMSFNCAnalogTimeSelectorSecondChangedEvent;\r\n    FOnTimeChanged: TTMSFNCAnalogTimeSelectorTimeChangedEvent;\r\n    FStyle: TTMSFNCAnalogTimeSelectorStyle;\r\n    FFollowMouse: Boolean;\r\n    FGlobalFont: TTMSFNCAppearanceGlobalFont;\r\n    procedure SetTime(const Value: TTime);\r\n    procedure SetAM(const Value: Boolean);\r\n    procedure SetAppearance(const Value: TTMSFNCAnalogTimeSelectorAppearance);\r\n    procedure SetSettings(const Value: TTMSFNCAnalogTimeSelectorSettings);\r\n    procedure SetStyle(const Value: TTMSFNCAnalogTimeSelectorStyle);\r\n    procedure SetFollowMouse(const Value: Boolean);\r\n    function PtInCircle(APointF: TPointF; ACPoint: TPointF; ARadius: Single): Boolean;\r\n    procedure SetGlobalFont(const Value: TTMSFNCAppearanceGlobalFont);\r\n  protected\r\n    procedure ChangeDPIScale(M, D: Integer); override;\r\n    procedure Changed;\r\n    procedure AppearanceChanged(Sender: TObject);\r\n    procedure SettingsChanged(Sender: TObject);\r\n    procedure OnWatchTimer(Sender: TObject);\r\n    procedure Draw(AGraphics: TTMSFNCGraphics; ARectF: TRectF); override;\r\n    procedure DrawWatchBackground(AGraphics: TTMSFNCGraphics; ARectF: TRectF);\r\n    procedure DrawTickMarks(AGraphics: TTMSFNCGraphics; ARectF: TRectF);\r\n    procedure DrawNumbers(AGraphics: TTMSFNCGraphics; ARectF: TRectF);\r\n    procedure DrawAMPM(AGraphics: TTMSFNCGraphics; ARectF: TRectF);\r\n    procedure DrawNeedles(AGraphics: TTMSFNCGraphics; ARectF: TRectF);\r\n    procedure DoBeforeDrawWatchBackground(AGraphics: TTMSFNCGraphics; ARectF: TRectF; AShape: TTMSFNCAnalogTimeSelectorShape; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawWatchBackground(AGraphics: TTMSFNCGraphics; ARectF: TRectF; AShape: TTMSFNCAnalogTimeSelectorShape); virtual;\r\n    procedure DoBeforeDrawTickMark(AGraphics: TTMSFNCGraphics; ARectF: TRectF; ATickMarks: TTMSFNCAnalogTimeSelectorTickMark; AHourMarkLength: Single; AMinuteMarkLength: Single; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawTickMark(AGraphics: TTMSFNCGraphics; ARectF: TRectF; ATickMarks: TTMSFNCAnalogTimeSelectorTickMark; AHourMarkLength: Single; AMinuteMarkLength: Single); virtual;\r\n    procedure DoBeforeDrawNumber(AGraphics: TTMSFNCGraphics; ARectF: TRectF; ANumber: Integer; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawNumber(AGraphics: TTMSFNCGraphics; ARectF: TRectF; ANumber: Integer); virtual;\r\n    procedure DoBeforeDrawAMPM(AGraphics: TTMSFNCGraphics; ARectF: TRectF; AAM: Boolean; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawAMPM(AGraphics: TTMSFNCGraphics; ARectF: TRectF; AAM: Boolean); virtual;\r\n    procedure DoBeforeDrawHourPointer(AGraphics: TTMSFNCGraphics; ACenterPoint: TPointF; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawHourPointer(AGraphics: TTMSFNCGraphics; ACenterPoint: TPointF); virtual;\r\n    procedure DoBeforeDrawMinutePointer(AGraphics: TTMSFNCGraphics; ACenterPoint: TPointF; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawMinutePointer(AGraphics: TTMSFNCGraphics; ACenterPoint: TPointF); virtual;\r\n    procedure DoBeforeDrawSecondPointer(AGraphics: TTMSFNCGraphics; ACenterPoint: TPointF; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawSecondPonter(AGraphics: TTMSFNCGraphics; ACenterPoint: TPointF); virtual;\r\n    procedure DoBeforeDrawCenterPoint(AGraphics: TTMSFNCGraphics; ARectF: TRectF; ACenterPointSize: Single; var AAllow: Boolean; var ADefaultDraw: Boolean); virtual;\r\n    procedure DoAfterDrawCenterPoint(AGraphics: TTMSFNCGraphics; ARectF: TRectF; ACenterPointSize: Single); virtual;\r\n    procedure DoSecondChanged(ATime: TTime); virtual;\r\n    procedure DoMinuteChanged(ATime: TTime); virtual;\r\n    procedure DoHourChanged(ATime: TTime); virtual;\r\n    procedure DoTimeChanged(ATime: TTime); virtual;\r\n    procedure HandleMouseDown(Button: TTMSFNCMouseButton; Shift: TShiftState; X, Y: Single); override;\r\n    procedure HandleMouseUp(Button: TTMSFNCMouseButton; Shift: TShiftState; X, Y: Single); override;\r\n    procedure HandleMouseMove(Shift: TShiftState; X, Y: Single); override;\r\n    procedure HandleKeyDown(var Key: Word; Shift: TShiftState); override;\r\n    procedure ApplyStyle; override;\r\n    procedure ResetToDefaultStyle; override;\r\n    function GetVersion: string; override;\r\n    function GetWatchRect(ARectF: TRectF): TRectF;\r\n    function GetCenterPoint(ARectF: TRectF): TPointF;\r\n    function GetRadius(ARectF: TRectF): Single;\r\n    function GetAMPMRect(AGraphics: TTMSFNCGraphics; ARectF: TRectF): TRectF;\r\n    procedure SetFonts(ASetType: TTMSFNCAppearanceGlobalFontType); virtual;\r\n    property Time: TTime read FTime write SetTime;\r\n    property AM: Boolean read FAM write SetAM default True;\r\n    property Appearance: TTMSFNCAnalogTimeSelectorAppearance read FAppearance write SetAppearance;\r\n    property Settings: TTMSFNCAnalogTimeSelectorSettings read FSettings write SetSettings;\r\n    property GlobalFont: TTMSFNCAppearanceGlobalFont read FGlobalFont write SetGlobalFont;\r\n    property OnChanged: TNotifyEvent read FOnChanged write FOnChanged;\r\n    property OnBeforeDrawBackground: TTMSFNCAnalogTimeSelectorBeforeDrawWatchBackgroundEvent read FOnBeforeDrawBackground write FOnBeforeDrawBackground;\r\n    property OnAfterDrawBackground: TTMSFNCAnalogTimeSelectorAfterDrawWatchBackgroundEvent read FOnAfterDrawBackground write FOnAfterDrawBackground;\r\n    property OnBeforeDrawTickMark: TTMSFNCAnalogTimeSelectorBeforeDrawTickMarkEvent read FOnBeforeDrawTickMark write FOnBeforeDrawTickMark;\r\n    property OnAfterDrawTickMark: TTMSFNCAnalogTimeSelectorAfterDrawTickMarkEvent read FOnAfterDrawTickMark write FOnAfterDrawTickMark;\r\n    property OnBeforeDrawNumber: TTMSFNCAnalogTimeSelectorBeforeDrawNumberEvent read FOnBeforeDrawNumber write FOnBeforeDrawNumber;\r\n    property OnAfterDrawNumber: TTMSFNCAnalogTimeSelectorAfterDrawNumberEvent read FOnAfterDrawNumber write FOnAfterDrawNumber;\r\n    property OnBeforeDrawAMPM: TTMSFNCAnalogTimeSelectorBeforeDrawAMPMEvent read FOnBeforeDrawAMPM write FOnBeforeDrawAMPM;\r\n    property OnAfterDrawAMPM: TTMSFNCAnalogTimeSelectorAfterDrawAMPMEvent read FOnAfterDrawAMPM write FOnAfterDrawAMPM;\r\n    property OnBeforeDrawHourPointer: TTMSFNCAnalogTimeSelectorBeforeDrawHourPointerEvent read FOnBeforeDrawHourPointer write FOnBeforeDrawHourPointer;\r\n    property OnAfterDrawHourPointer: TTMSFNCAnalogTimeSelectorAfterDrawHourPointerEvent read FOnAfterDrawHourPointer write FOnAfterDrawHourPointer;\r\n    property OnBeforeDrawMinutePointer: TTMSFNCAnalogTimeSelectorBeforeDrawMinutePointerEvent read FOnBeforeDrawMinutePointer write FOnBeforeDrawMinutePointer;\r\n    property OnAfterDrawMinutePointer: TTMSFNCAnalogTimeSelectorAfterDrawMinutePointerEvent read FOnAfterDrawMinutePointer write FOnAfterDrawMinutePointer;\r\n    property OnBeforeDrawSecondPointer: TTMSFNCAnalogTimeSelectorBeforeDrawSecondPointerEvent read FOnBeforeDrawSecondPointer write FOnBeforeDrawSecondPointer;\r\n    property OnAfterDrawSecondPointer: TTMSFNCAnalogTimeSelectorAfterDrawSecondPonterEvent read FOnAfterDrawSecondPointer write FOnAfterDrawSecondPointer;\r\n    property OnBeforeDrawCenterPoint: TTMSFNCAnalogTimeSelectorBeforeDrawCenterPointEvent read FOnBeforeDrawCenterPoint write FOnBeforeDrawCenterPoint;\r\n    property OnAfterDrawCenterPoint: TTMSFNCAnalogTimeSelectorAfterDrawCenterPointEvent read FOnAfterDrawCenterPoint write FOnAfterDrawCenterPoint;\r\n    property OnSecondChanged: TTMSFNCAnalogTimeSelectorSecondChangedEvent read FOnSecondChanged write FOnSecondChanged;\r\n    property OnMinuteChanged: TTMSFNCAnalogTimeSelectorMinuteChangedEvent read FOnMinuteChanged write FOnMinuteChanged;\r\n    property OnHourChanged: TTMSFNCAnalogTimeSelectorHourChangedEvent read FOnHourChanged write FOnHourChanged;\r\n    property OnTimeChanged: TTMSFNCAnalogTimeSelectorTimeChangedEvent read FOnTimeChanged write FOnTimeChanged;\r\n    property Style: TTMSFNCAnalogTimeSelectorStyle read FStyle write SetStyle default wsClassic;\r\n    property FollowMouse: Boolean read FFollowMouse write SetFollowMouse default True;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    procedure Initialize;\r\n    function XYToHour(X: Single; Y: Single): Integer;\r\n    function XYToMinute(X: Single; Y: Single): Integer;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCAnalogTimeSelector = class(TTMSFNCCustomAnalogTimeSelector)\r\n  published\r\n    property Fill;\r\n    property Stroke;\r\n    property Appearance;\r\n    property FollowMouse;\r\n    property Settings;\r\n    property Time;\r\n    property Style;\r\n    property GlobalFont;\r\n    property OnChanged;\r\n    property OnSecondChanged;\r\n    property OnMinuteChanged;\r\n    property OnHourChanged;\r\n    property OnTimeChanged;\r\n    property OnBeforeDrawBackground;\r\n    property OnAfterDrawBackground;\r\n    property OnBeforeDrawTickMark;\r\n    property OnAfterDrawTickMark;\r\n    property OnBeforeDrawNumber;\r\n    property OnAfterDrawNumber;\r\n    property OnBeforeDrawAMPM;\r\n    property OnAfterDrawAMPM;\r\n    property OnBeforeDrawHourPointer;\r\n    property OnAfterDrawHourPointer;\r\n    property OnBeforeDrawMinutePointer;\r\n    property OnAfterDrawMinutePointer;\r\n    property OnBeforeDrawSecondPointer;\r\n    property OnAfterDrawSecondPointer;\r\n    property OnBeforeDrawCenterPoint;\r\n    property OnAfterDrawCenterPoint;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  Math, DateUtils, SysUtils;\r\n\r\n{ TTMSFNCCustomWatch }\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.AppearanceChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.ApplyStyle;\r\nvar\r\n  c: TTMSFNCGraphicsColor;\r\nbegin\r\n  inherited;\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleBackgroundFillColor(c) then\r\n  begin\r\n    Appearance.Fill.Kind := gfkSolid;\r\n    Appearance.Fill.Color := c;\r\n    Appearance.AMPMFill.Kind := gfkSolid;\r\n    Appearance.AMPMFill.Color := c;\r\n  end;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleSelectionFillColorTo(c) then\r\n  begin\r\n    Appearance.SecondPointer.Kind := gskSolid;\r\n    Appearance.SecondPointer.Color := c;\r\n  end;\r\n\r\n  c := gcNull;\r\n  if TTMSFNCStyles.GetStyleSelectionFillColor(c) then\r\n  begin\r\n    Appearance.Stroke.Kind := gskSolid;\r\n    Appearance.Stroke.Color := c;\r\n    Appearance.HourPointer.Kind := gskSolid;\r\n    Appearance.HourPointer.Color := c;\r\n    Appearance.MinutePointer.Kind := gskSolid;\r\n    Appearance.MinutePointer.Color := c;\r\n    Appearance.CenterPointFill.Kind := gfkSolid;\r\n    Appearance.CenterPointFill.Color := c;\r\n    Appearance.CenterPointStroke.Kind := gskSolid;\r\n    Appearance.CenterPointStroke.Color := c;\r\n    Appearance.HourFont.Color := c;\r\n    Appearance.HourMark.Kind := gskSolid;\r\n    Appearance.HourMark.Color := c;\r\n    Appearance.MinuteMark.Kind := gskSolid;\r\n    Appearance.MinuteMark.Color := c;\r\n    Appearance.AMPMFont.Color := c;\r\n    Appearance.AMPMStroke.Kind := gskSolid;\r\n    Appearance.AMPMStroke.Color := c;\r\n    Appearance.HourPointerShadow.Color := gcNull;\r\n    Appearance.MinutePointerShadow.Color := gcNull;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTMSFNCCustomAnalogTimeSelector) then\r\n  begin\r\n    FSettings.Assign((Source as TTMSFNCAnalogTimeSelector).Settings);\r\n    FAppearance.Assign((Source as TTMSFNCCustomAnalogTimeSelector).Appearance);\r\n    FTime := (Source as TTMSFNCCustomAnalogTimeSelector).Time;\r\n    FAM := (Source as TTMSFNCCustomAnalogTimeSelector).AM;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.Changed;\r\nbegin\r\n  if Assigned(OnChanged) then\r\n    OnChanged(Self);\r\n\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.ChangeDPIScale(M, D: Integer);\r\nbegin\r\n  inherited;\r\n  BeginUpdate;\r\n  Appearance.HourFont.Height := TTMSFNCUtils.MulDivInt(Appearance.HourFont.Height, M, D);\r\n  Appearance.AMPMFont.Height := TTMSFNCUtils.MulDivInt(Appearance.AMPMFont.Height, M, D);\r\n  Appearance.CenterPointSize := TTMSFNCUtils.MulDivSingle(Appearance.CenterPointSize, M, D);\r\n  if Appearance.HourMarkLength > 1 then\r\n    Appearance.HourMarkLength := TTMSFNCUtils.MulDivSingle(Appearance.HourMarkLength, M, D);\r\n  if Appearance.MinuteMarkLength > 1 then\r\n    Appearance.MinuteMarkLength := TTMSFNCUtils.MulDivSingle(Appearance.MinuteMarkLength, M, D);\r\n  EndUpdate;\r\nend;\r\n\r\nconstructor TTMSFNCCustomAnalogTimeSelector.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  {$IFDEF CMNLIB}\r\n  {$IFDEF MSWINDOWS}\r\n  NativeCanvas := True;\r\n  TextQuality := gtqClearType;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  Height := 180;\r\n  Width := 180;\r\n  Fill.Color := gcNull;\r\n  Stroke.Color := gcNull;\r\n  FAM := True;\r\n  FMouseHourDown := False;\r\n  FMouseMinuteDown := False;\r\n  FollowMouse := True;\r\n\r\n  FAppearance := TTMSFNCAnalogTimeSelectorAppearance.Create;\r\n  FSettings := TTMSFNCAnalogTimeSelectorSettings.Create;\r\n  FAppearance.OnChange := @AppearanceChanged;\r\n  FSettings.OnChange := @SettingsChanged;\r\n\r\n  FWatchTimer := TTimer.Create(Self);\r\n  FWatchTimer.Enabled:= Settings.Auto;\r\n  FWatchTimer.Interval := 100;\r\n  FWatchTimer.OnTimer := OnWatchTimer;\r\n\r\n  FGlobalFont := TTMSFNCAppearanceGlobalFont.Create(Self);\r\nend;\r\n\r\ndestructor TTMSFNCCustomAnalogTimeSelector.Destroy;\r\nbegin\r\n  FGlobalFont.Free;\r\n  FAppearance.Free;\r\n  FSettings.Free;\r\n  FWatchTimer.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.DoAfterDrawAMPM(AGraphics: TTMSFNCGraphics;\r\n  ARectF: TRectF; AAM: Boolean);\r\nbegin\r\n  if Assigned(OnAfterDrawAMPM) then\r\n    OnAfterDrawAMPM(Self, AGraphics, ARectF, AAM);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.DoAfterDrawCenterPoint(AGraphics: TTMSFNCGraphics;\r\n  ARectF: TRectF; ACenterPointSize: Single);\r\nbegin\r\n  if Assigned(OnAfterDrawCenterPoint) then\r\n    OnAfterDrawCenterPoint(Self, AGraphics, ARectF, ACenterPointSize);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.DoAfterDrawHourPointer(AGraphics: TTMSFNCGraphics;\r\n  ACenterPoint: TPointF);\r\nbegin\r\n  if Assigned(OnAfterDrawHourPointer) then\r\n    OnAfterDrawHourPointer(Self, AGraphics, ACenterPoint);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.DoAfterDrawMinutePointer(\r\n  AGraphics: TTMSFNCGraphics; ACenterPoint: TPointF);\r\nbegin\r\n  if Assigned(OnAfterDrawMinutePointer) then\r\n    OnAfterDrawMinutePointer(Self, AGraphics, ACenterPoint);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.DoAfterDrawNumber(AGraphics: TTMSFNCGraphics;\r\n  ARectF: TRectF; ANumber: Integer);\r\nbegin\r\n  if Assigned(OnAfterDrawNumber) then\r\n    OnAfterDrawNumber(Self, AGraphics, ARectF, ANumber);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.DoAfterDrawSecondPonter(AGraphics: TTMSFNCGraphics;\r\n  ACenterPoint: TPointF);\r\nbegin\r\n  if Assigned(OnAfterDrawSecondPointer) then\r\n    OnAfterDrawSecondPointer(Self, AGraphics, ACenterPoint);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.DoAfterDrawTickMark(AGraphics: TTMSFNCGraphics;\r\n  ARectF: TRectF; ATickMarks: TTMSFNCAnalogTimeSelectorTickMark; AHourMarkLength,\r\n  AMinuteMarkLength: Single);\r\nbegin\r\n  if Assigned(OnAfterDrawTickMark) then\r\n    OnAfterDrawTickMark(Self, AGraphics, ARectF, ATickMarks, AHourMarkLength, AMinuteMarkLength);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.DoAfterDrawWatchBackground(\r\n  AGraphics: TTMSFNCGraphics; ARectF: TRectF; AShape: TTMSFNCAnalogTimeSelectorShape);\r\nbegin\r\n  if Assigned(OnAfterDrawBackground) then\r\n    OnAfterDrawBackground(Self, AGraphics, ARectF, AShape);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.DoBeforeDrawAMPM(AGraphics: TTMSFNCGraphics;\r\n  ARectF: TRectF; AAM: Boolean; var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawAMPM) then\r\n    OnBeforeDrawAMPM(Self, AGraphics, ARectF, AAM, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.DoBeforeDrawCenterPoint(AGraphics: TTMSFNCGraphics;\r\n  ARectF: TRectF; ACenterPointSize: Single; var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawCenterPoint) then\r\n    OnBeforeDrawCenterPoint(Self, AGraphics, ARectF, ACenterPointSize, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.DoBeforeDrawHourPointer(AGraphics: TTMSFNCGraphics;\r\n  ACenterPoint: TPointF; var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawHourPointer) then\r\n    OnBeforeDrawHourPointer(Self, AGraphics, ACenterPoint, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.DoBeforeDrawMinutePointer(\r\n  AGraphics: TTMSFNCGraphics; ACenterPoint: TPointF; var AAllow,\r\n  ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawMinutePointer) then\r\n    OnBeforeDrawMinutePointer(Self, AGraphics, ACenterPoint, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.DoBeforeDrawNumber(AGraphics: TTMSFNCGraphics;\r\n  ARectF: TRectF; ANumber: Integer; var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawNumber) then\r\n    OnBeforeDrawNumber(Self, AGraphics, ARectF, ANumber, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.DoBeforeDrawSecondPointer(\r\n  AGraphics: TTMSFNCGraphics; ACenterPoint: TPointF; var AAllow,\r\n  ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawSecondPointer) then\r\n    OnBeforeDrawSecondPointer(Self, AGraphics, ACenterPoint, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.DoBeforeDrawTickMark(AGraphics: TTMSFNCGraphics;\r\n  ARectF: TRectF; ATickMarks: TTMSFNCAnalogTimeSelectorTickMark; AHourMarkLength,\r\n  AMinuteMarkLength: Single; var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawTickMark) then\r\n    OnBeforeDrawTickMark(Self, AGraphics, ARectf, ATickMarks, AHourMarkLength, AMinuteMarkLength, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.DoBeforeDrawWatchBackground(\r\n  AGraphics: TTMSFNCGraphics; ARectF: TRectF; AShape: TTMSFNCAnalogTimeSelectorShape;\r\n  var AAllow, ADefaultDraw: Boolean);\r\nbegin\r\n  if Assigned(OnBeforeDrawBackground) then\r\n    OnBeforeDrawBackground(Self, AGraphics, ARectF, AShape, AAllow, ADefaultDraw);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.DoHourChanged(ATime: TTime);\r\nbegin\r\n  if Assigned(OnHourChanged) then\r\n    OnHourChanged(Self, ATime);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.DoMinuteChanged(ATime: TTime);\r\nbegin\r\n  if Assigned(OnMinuteChanged) then\r\n    OnMinuteChanged(Self, ATime);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.DoSecondChanged(ATime: TTime);\r\nbegin\r\n  if Assigned(OnSecondChanged) then\r\n    OnSecondChanged(Self, ATime);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.DoTimeChanged(ATime: TTime);\r\nbegin\r\n  if Assigned(OnTimeChanged) then\r\n    OnTimeChanged(Self, ATime);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.Draw(AGraphics: TTMSFNCGraphics; ARectF: TRectF);\r\nbegin\r\n  inherited;\r\n  DrawWatchBackground(AGraphics, ARectF);\r\n  DrawTickMarks(AGraphics, ARectF);\r\n  DrawNumbers(AGraphics, ARectF);\r\n  DrawAMPM(AGraphics, ARectF);\r\n  DrawNeedles(AGraphics, ARectF);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.DrawAMPM(AGraphics: TTMSFNCGraphics;\r\n  ARectF: TRectF);\r\nvar\r\n  s: string;\r\n  r: TRectF;\r\n  b, df: Boolean;\r\nbegin\r\n  if not Appearance.ShowAMPM then\r\n    Exit;\r\n\r\n  if AM then\r\n    s := 'AM'\r\n  else\r\n    s := 'PM';\r\n\r\n  r := GetWatchRect(ARectF);\r\n  r := GetAMPMRect(AGraphics, r);\r\n\r\n  b := True;\r\n  df := True;\r\n  with Appearance do\r\n  begin\r\n    AGraphics.Fill.Assign(AMPMFill);\r\n    AGraphics.Stroke.Assign(AMPMStroke);\r\n    AGraphics.Font.Assign(AMPMFont);\r\n\r\n    DoBeforeDrawAMPM(AGraphics, r, AM, b, df);\r\n    if b then\r\n    begin\r\n      if df then\r\n      begin\r\n        AGraphics.DrawRectangle(r);\r\n        AGraphics.DrawText(r, s, False, gtaCenter, gtaCenter);\r\n      end;\r\n      DoAfterDrawAMPM(AGraphics, r, AM);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.DrawWatchBackground(AGraphics: TTMSFNCGraphics;\r\n  ARectF: TRectF);\r\nvar\r\n  r: TRectF;\r\n  b, df: Boolean;\r\nbegin\r\n  {$IFNDEF FMXLIB}\r\n  OffsetRectEx(ARectF, 0.5, 0.5);\r\n  {$ENDIF}\r\n  r := ARectF;\r\n  AGraphics.Fill.Assign(Appearance.Fill);\r\n  AGraphics.Stroke.Assign(Appearance.Stroke);\r\n\r\n  b := True;\r\n  df := True;\r\n  DoBeforeDrawWatchBackground(AGraphics, r, Appearance.Shape, b, df);\r\n  if b then\r\n  begin\r\n    if df then\r\n    begin\r\n      case Appearance.Shape of\r\n        wsCircle:\r\n        begin\r\n          r := GetWatchRect(ARectF);\r\n          AGraphics.DrawEllipse(r, gcrmNone);\r\n        end;\r\n        wsRect:\r\n        begin\r\n          AGraphics.DrawRectangle(r);\r\n        end;\r\n        wsRoundRect:\r\n        begin\r\n          AGraphics.DrawRoundRectangle(r);\r\n        end;\r\n      end;\r\n    end;\r\n    DoAfterDrawWatchBackground(AGraphics, r, Appearance.Shape);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.DrawNeedles(AGraphics: TTMSFNCGraphics;\r\n  ARectF: TRectF);\r\nvar\r\n  r: TRectF;\r\n  cp, pf, pt, pm, pn: TPointF;\r\n  rd, os, cr: Single;\r\n  t: TTime;\r\n  h, m, s, ms: Word;\r\n  ptrPath: TTMSFNCGraphicsPath;\r\n  b, df: Boolean;\r\nbegin\r\n  r := GetWatchRect(ARectF);\r\n  cp := GetCenterPoint(r);\r\n  rd := GetRadius(r);\r\n  \r\n  if Settings.Auto then\r\n  begin\r\n    t := Now;\r\n    t := t + (Settings.TimeOffset / (60 * 24));\r\n    FTime := t;\r\n  end\r\n  else\r\n    t := Self.Time;\r\n\r\n  DecodeTime(t, h, m, s, ms);\r\n  AM := h < 12;\r\n\r\n  if Settings.Auto then\r\n  begin\r\n    if s <> FPrevSec then\r\n    begin\r\n      FPrevSec := s;\r\n      DoSecondChanged(FTime);\r\n      if (m <> FPrevMin) then\r\n      begin\r\n        FPrevMin := m;\r\n        DoMinuteChanged(FTime);\r\n        if (h <> FPrevHour) then\r\n        begin\r\n          FPrevHour := h;\r\n          DoHourChanged(FTime);\r\n        end;\r\n      end;\r\n      DoTimeChanged(FTime);\r\n    end;\r\n  end;\r\n\r\n  with Appearance do\r\n  begin\r\n    case PointerStyle of\r\n      psLine, psShortLine, psLineArrow:\r\n      begin\r\n        if PointerStyle = psShortLine then\r\n          os := 0.0\r\n        else\r\n          os := 0.1;\r\n        \r\n        AGraphics.Stroke.Assign(HourPointerShadow);\r\n        pf := PointF(Round(cp.X - 1 - (Sin((h * 30 + m / 12 * 6) * PI / 180)) * rd * os), cp.Y + 3 - (-Cos((h * 30 + m / 12 * 6) * PI / 180)) * rd * os);\r\n        pt := PointF(Round((Sin((h * 30 + m / 12 * 6) * PI / 180)) * rd * 0.46 + cp.X -1), (-Cos((h * 30 + m / 12 * 6) * PI / 180)) * rd * 0.46 + cp.Y + 3);\r\n        AGraphics.DrawLine(pf, pt, gcpmNone, gcpmNone);\r\n\r\n        AGraphics.Stroke.Assign(MinutePointerShadow);\r\n        pf := PointF(Round(cp.X - (Sin(m * 6 * PI / 180)) * rd * os), cp.Y + 3- (-Cos(m * 6 * PI / 180)) * rd * os);\r\n        pt := PointF(Round((Sin(m * 6 * PI / 180)) * rd * 0.65 + cp.X), (-Cos(m * 6 * PI / 180)) * rd * 0.65 + cp.Y + 3);\r\n        AGraphics.DrawLine(pf, pt, gcpmNone, gcpmNone);\r\n\r\n        AGraphics.Stroke.Assign(HourPointer);\r\n        pf := PointF(Round(cp.X - (Sin((h * 30 + m / 12 * 6) * PI / 180)) * rd * os), cp.Y - (-Cos((h * 30 + m / 12 * 6) * PI / 180)) * rd * os);\r\n        pt := PointF(Round((Sin((h * 30 + m / 12 * 6) * PI / 180)) * rd * 0.5 + cp.X), (-Cos((h * 30 + m / 12 * 6) * PI / 180)) * rd * 0.5 + cp.Y);\r\n\r\n        b := True;\r\n        df := True;\r\n        DoBeforeDrawHourPointer(AGraphics, cp, b, df);\r\n        if b then\r\n        begin\r\n          if df then\r\n          begin\r\n            AGraphics.DrawLine(pf, pt);\r\n            if PointerStyle = psLineArrow then\r\n            begin\r\n              pf := PointF((Sin(((h * 30 + m / 12 * 6) + 10) * PI / 180)) * rd * 0.4 + cp.X, (-Cos(((h * 30 + m / 12 * 6) + 10) * PI / 180)) * rd * 0.4 + cp.Y);\r\n              pm := PointF((Sin(((h * 30 + m / 12 * 6) - 10) * PI / 180)) * rd * 0.4 + cp.X, (-Cos(((h * 30 + m / 12 * 6) - 10) * PI / 180)) * rd * 0.4 + cp.Y);\r\n              ptrPath := TTMSFNCGraphicsPath.Create;\r\n              try\r\n                ptrPath.MoveTo(pf);\r\n                ptrPath.LineTo(pt);\r\n                ptrPath.LineTo(pm);\r\n                AGraphics.Fill.Color := gcNull;\r\n                AGraphics.DrawPath(ptrPath, pdmPolyline);\r\n              finally\r\n                ptrPath.Free;\r\n              end;\r\n            end;\r\n          end;\r\n          DoAfterDrawHourPointer(AGraphics, cp);\r\n        end;\r\n\r\n        AGraphics.Stroke.Assign(MinutePointer);\r\n        pf := PointF(Round(cp.X - (Sin(m * 6 * PI / 180)) * rd * os), cp.Y - (-Cos(m * 6 * PI / 180)) * rd * os);\r\n        pt := PointF(Round((Sin(m * 6 * PI / 180)) * rd * 0.7 + cp.X), (-Cos(m * 6 * PI / 180)) * rd * 0.7 + cp.Y);\r\n\r\n        b := True;\r\n        df := True;\r\n        DoBeforeDrawMinutePointer(AGraphics, cp, b, df);\r\n        if b then\r\n        begin\r\n          if df then\r\n          begin\r\n            AGraphics.DrawLine(pf, pt);\r\n            if PointerStyle = psLineArrow then\r\n            begin\r\n              pf := PointF((Sin((m * 6 + 7) * PI / 180)) * rd * 0.6 + cp.X, (-Cos((m * 6 + 7) * PI / 180)) * rd * 0.6 + cp.Y);\r\n              pm := PointF((Sin((m * 6 - 7) * PI / 180)) * rd * 0.6 + cp.X, (-Cos((m * 6 - 7) * PI / 180)) * rd * 0.6 + cp.Y);\r\n              ptrPath := TTMSFNCGraphicsPath.Create;\r\n              try\r\n                ptrPath.MoveTo(pf);\r\n                ptrPath.LineTo(pt);\r\n                ptrPath.LineTo(pm);\r\n                AGraphics.Fill.Color := gcNull;\r\n                AGraphics.DrawPath(ptrPath, pdmPolyline);\r\n              finally\r\n                ptrPath.Free;\r\n              end;\r\n            end;\r\n          end;\r\n          DoAfterDrawMinutePointer(AGraphics, cp);\r\n        end;\r\n      end;\r\n      psPointer:\r\n      begin\r\n        AGraphics.Fill.Color := HourPointerShadow.Color;\r\n        AGraphics.Stroke.Assign(HourPointerShadow);\r\n        AGraphics.Stroke.Width := 1;\r\n        \r\n        ptrPath := TTMSFNCGraphicsPath.Create;\r\n        try\r\n          pf := PointF(cp.X + 1 - (Sin((h * 30 + m / 12 * 6) * PI / 180)) * rd * 0.1, cp.Y + 3 - (-Cos((h * 30 + m / 12 * 6) * PI / 180)) * rd * 0.1);\r\n          pm := PointF(cp.X + 1 - (Sin((h * 30 + m / 12 * 6 + 90) * PI / 180)) * rd * 0.05, cp.Y + 3 - (-Cos((h * 30 + m / 12 * 6 + 90) * PI / 180)) * rd * 0.05);\r\n          pn := PointF((Sin((h * 30 + m / 12 * 6) * PI / 180)) * rd * 0.5 + cp.X + 1, (-Cos((h * 30 + m / 12 * 6) * PI / 180)) * rd * 0.5 + cp.Y + 3);\r\n          pt := PointF(cp.X + 1 - (Sin((h * 30 + m / 12 * 6 - 90) * PI / 180)) * rd * 0.05, cp.Y + 3 - (-Cos((h * 30 + m / 12 * 6 - 90) * PI / 180)) * rd * 0.05);\r\n          ptrPath.MoveTo(pf);\r\n          ptrPath.LineTo(pm);\r\n          ptrPath.LineTo(pn);\r\n          ptrPath.LineTo(pt);\r\n          ptrPath.ClosePath;\r\n          AGraphics.DrawPath(ptrPath);\r\n        finally\r\n          ptrPath.Free;\r\n        end;\r\n\r\n        AGraphics.Fill.Color := MinutePointerShadow.Color;\r\n        AGraphics.Stroke.Assign(MinutePointerShadow);\r\n        AGraphics.Stroke.Width := 1;\r\n\r\n        ptrPath := TTMSFNCGraphicsPath.Create;\r\n        try\r\n          pf := PointF(cp.X + 1 - (Sin(m * 6 * PI / 180)) * rd * 0.1, cp.Y + 3 - (-Cos(m * 6 * PI / 180)) * rd * 0.1);\r\n          pm := PointF(cp.X + 1 - (Sin((m * 6 + 90) * PI / 180)) * rd * 0.05, cp.Y + 3 - (-Cos((m * 6 + 90) * PI / 180)) * rd * 0.05);\r\n          pn := PointF((Sin(m * 6 * PI / 180)) * rd * 0.7 + cp.X + 1, (-Cos(m * 6 * PI / 180)) * rd * 0.7 + cp.Y + 3);\r\n          pt := PointF(cp.X + 1 - (Sin((m * 6 - 90) * PI / 180)) * rd * 0.05, cp.Y + 3 - (-Cos((m * 6 - 90) * PI / 180)) * rd * 0.05);\r\n          ptrPath.MoveTo(pf);\r\n          ptrPath.LineTo(pm);\r\n          ptrPath.LineTo(pn);\r\n          ptrPath.LineTo(pt);\r\n          ptrPath.ClosePath;\r\n          AGraphics.DrawPath(ptrPath);\r\n        finally\r\n          ptrPath.Free;\r\n        end;\r\n        \r\n        AGraphics.Fill.Color := HourPointer.Color;\r\n        AGraphics.Fill.ColorTo := HourPointer.Color;\r\n        AGraphics.Stroke.Assign(HourPointer);\r\n        AGraphics.Stroke.Width := 1;\r\n\r\n        b := True;\r\n        df := True;\r\n        ptrPath := TTMSFNCGraphicsPath.Create;\r\n        try\r\n          pf := PointF(cp.X - (Sin((h * 30 + m / 12 * 6) * PI / 180)) * rd * 0.1, cp.Y - (-Cos((h * 30 + m / 12 * 6) * PI / 180)) * rd * 0.1);\r\n          pm := PointF(cp.X - (Sin((h * 30 + m / 12 * 6 + 90) * PI / 180)) * rd * 0.05, cp.Y - (-Cos((h * 30 + m / 12 * 6 + 90) * PI / 180)) * rd * 0.05);\r\n          pn := PointF((Sin((h * 30 + m / 12 * 6) * PI / 180)) * rd * 0.5 + cp.X, (-Cos((h * 30 + m / 12 * 6) * PI / 180)) * rd * 0.5 + cp.Y);\r\n          pt := PointF(cp.X - (Sin((h * 30 + m / 12 * 6 - 90) * PI / 180)) * rd * 0.05, cp.Y - (-Cos((h * 30 + m / 12 * 6 - 90) * PI / 180)) * rd * 0.05);\r\n          ptrPath.MoveTo(pf);\r\n          ptrPath.LineTo(pm);\r\n          ptrPath.LineTo(pn);\r\n          ptrPath.LineTo(pt);\r\n          ptrPath.ClosePath;\r\n\r\n          DoBeforeDrawHourPointer(AGraphics, cp, b, df);\r\n          if b then\r\n          begin\r\n            if df then\r\n              AGraphics.DrawPath(ptrPath);\r\n            DoAfterDrawHourPointer(AGraphics, cp);\r\n          end;\r\n        finally\r\n          ptrPath.Free;\r\n        end;\r\n\r\n        AGraphics.Fill.Color := MinutePointer.Color;\r\n        AGraphics.Fill.ColorTo := MinutePointer.Color;\r\n        AGraphics.Stroke.Assign(MinutePointer);\r\n        AGraphics.Stroke.Width := 1;\r\n\r\n        b := True;\r\n        df := True;\r\n        ptrPath := TTMSFNCGraphicsPath.Create;\r\n        try\r\n          pf := PointF(cp.X - (Sin(m * 6 * PI / 180)) * rd * 0.1, cp.Y - (-Cos(m * 6 * PI / 180)) * rd * 0.1);\r\n          pm := PointF(cp.X - (Sin((m * 6 + 90) * PI / 180)) * rd * 0.05, cp.Y - (-Cos((m * 6 + 90) * PI / 180)) * rd * 0.05);\r\n          pn := PointF((Sin(m * 6 * PI / 180)) * rd * 0.7 + cp.X, (-Cos(m * 6 * PI / 180)) * rd * 0.7 + cp.Y);\r\n          pt := PointF(cp.X - (Sin((m * 6 - 90) * PI / 180)) * rd * 0.05, cp.Y - (-Cos((m * 6 - 90) * PI / 180)) * rd * 0.05);\r\n          ptrPath.MoveTo(pf);\r\n          ptrPath.LineTo(pm);\r\n          ptrPath.LineTo(pn);\r\n          ptrPath.LineTo(pt);\r\n          ptrPath.ClosePath;\r\n\r\n          DoBeforeDrawMinutePointer(AGraphics, cp, b, df);\r\n          if b then\r\n          begin\r\n            if df then\r\n              AGraphics.DrawPath(ptrPath);\r\n\r\n            DoAfterDrawMinutePointer(AGraphics, cp);\r\n          end;\r\n        finally\r\n          ptrPath.Free;\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    b := True;\r\n    df := True;\r\n    if ShowSecondPointer then\r\n    begin\r\n      pf := PointF(cp.X - (Sin(s * 6 * PI / 180)) * rd * 0.2, cp.Y - (-Cos(s * 6 * PI / 180)) * rd * 0.2);\r\n      pt := PointF((Sin(s * 6 * PI / 180)) * rd * 0.9 + cp.X, (-Cos(s * 6 * PI / 180)) * rd * 0.9 + cp.Y);\r\n      AGraphics.Stroke.Assign(SecondPointer);\r\n\r\n      DoBeforeDrawSecondPointer(AGraphics, cp, b, df);\r\n      if b then\r\n      begin\r\n        if df then\r\n          AGraphics.DrawLine(pf, pt, gcpmNone, gcpmNone);\r\n\r\n        DoAfterDrawSecondPonter(AGraphics, cp);\r\n      end;\r\n    end;\r\n\r\n    b := True;\r\n    df := True;\r\n    if (CenterPointSize > 0) then\r\n    begin\r\n      cr := CenterPointSize / 2;\r\n      r := RectF(cp.X - cr, cp.Y - cr, cp.X + cr, cp.Y + cr);\r\n      AGraphics.Fill.Assign(CenterPointFill);\r\n      AGraphics.Stroke.Assign(CenterPointStroke);\r\n\r\n      DoBeforeDrawCenterPoint(AGraphics, r, CenterPointSize, b, df);\r\n      if b then\r\n      begin\r\n        if df then\r\n        begin\r\n          AGraphics.DrawEllipse(r, gcrmNone);\r\n\r\n          InflateRectEx(r, CenterPointStroke.Width / 2, CenterPointStroke.Width / 2);\r\n          AGraphics.Fill.Color := gcNull;\r\n          AGraphics.Stroke.Color := CenterPointOuterColor;\r\n          AGraphics.Stroke.Width := CenterPointStroke.Width * 0.8;\r\n\r\n          AGraphics.DrawEllipse(r, gcrmNone);\r\n        end;\r\n\r\n        DoAfterDrawCenterPoint(AGraphics, r, CenterPointSize);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.DrawNumbers(AGraphics: TTMSFNCGraphics;\r\n  ARectF: TRectF);\r\nvar\r\n  r, r1: TRectF;\r\n  ts: TSizeF;\r\n  cp: TPointF;\r\n  rd,  rn, ang, X, Y, rd2: Single;\r\n  I, h: Integer;\r\n  s: string;\r\n  b, df: Boolean;\r\nbegin\r\n  if not Appearance.ShowNumbers then\r\n    Exit;\r\n\r\n  r := GetWatchRect(ARectF);\r\n  cp := GetCenterPoint(r);\r\n  rd := GetRadius(r) - (Appearance.Stroke.Width / 2);\r\n\r\n  if (Appearance.HourMarkLength > 0) then\r\n    rd2 := Appearance.HourMarkLength\r\n  else\r\n    rd2 := Round(rd - (rd * 0.9)) + 2;\r\n\r\n  AGraphics.Font.Assign(Appearance.HourFont);\r\n\r\n  b := True;\r\n  df := True;\r\n  with Appearance do\r\n  begin\r\n    rn := rd - (rd2 + 3) - rd2;\r\n    for I := 1 to 12 do\r\n    begin\r\n      if (TickMarks = tmAll) or ((TickMarks = tmQuartHours) and ((I mod 3) = 0)) then\r\n      begin\r\n        ang := (PI / 3000) * ((I * 100) * 30 div 6);\r\n        s := IntToStr(I);\r\n        ts := AGraphics.CalculateTextSize(s, r);\r\n\r\n        h := -1;\r\n        if (i = 10) then\r\n        begin\r\n          h := h + Round(ts.cy * 0.2);\r\n        end\r\n        else if (i = 11) then\r\n        begin\r\n          h := h + Round(ts.cy * 0.15);\r\n        end;\r\n\r\n        X := CP.X + 1 + (rn - h + (rd2 / 2)) * Sin(ang);\r\n        {$IFDEF FMXLIB}\r\n        Y := CP.Y + 1 - (rn - h + (rd2 / 2)) * Cos(ang);\r\n        {$ELSE}\r\n        Y := CP.Y + 2 - (rn - h + (rd2 / 2)) * Cos(ang);\r\n        {$ENDIF}\r\n        r1 := RectF(X - (rd2 / 2), y - (rd2 / 2), X + (rd2 / 2), Y + (rd2 / 2));\r\n        X := r1.Right - ((r1.Right - r1.Left) / 2) - (ts.cx / 2) - 1;\r\n        Y := r1.Bottom - ((r1.Bottom - r1.Top) / 2) - (ts.cy / 2) - 1;\r\n\r\n        DoBeforeDrawNumber(AGraphics, r1, I, b, df);\r\n        if b then\r\n        begin\r\n          if df then\r\n            AGraphics.DrawText(PointF(X, Y), s);\r\n\r\n          DoAfterDrawNumber(AGraphics, r1, I);\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.DrawTickMarks(AGraphics: TTMSFNCGraphics;\r\n  ARectF: TRectF);\r\nvar\r\n  r: TRectF;\r\n  cp, pf, pt, qf, qt: TPointF;\r\n  rd, ml: Double;\r\n  I: Integer;\r\n  b, df: Boolean;\r\nbegin\r\n  r := GetWatchRect(ARectF);\r\n  cp := GetCenterPoint(r);\r\n  rd := GetRadius(r) - (Appearance.Stroke.Width / 2);\r\n\r\n  b := True;\r\n  df := True;\r\n  with Appearance do\r\n  begin\r\n    ml := rd * 0.9;\r\n    if (HourMarkLength > 0) then\r\n      ml := rd - HourMarkLength;\r\n\r\n    AGraphics.Stroke.Assign(HourMark);\r\n    for I := 0 to 3 do\r\n    begin\r\n      if (HourMarkStyle = hmsQuartDblLine) then\r\n      begin\r\n        case I of\r\n          0, 2:\r\n          begin\r\n            qf := PointF(Cos(i * 90 * PI / 180) * ml + CP.X, Sin(i * 90 * PI / 180) * ml + CP.Y - 2);\r\n            qt := PointF(Cos(i * 90 * PI / 180) * rd + CP.X, Sin(i * 90 * PI / 180) * rd + CP.Y - 2);\r\n            pf := PointF(Cos(i * 90 * PI / 180) * ml + CP.X, Sin(i * 90 * PI / 180) * ml + CP.Y + 2);\r\n            pt := PointF(Cos(i * 90 * PI / 180) * rd + CP.X, Sin(i * 90 * PI / 180) * rd + CP.Y + 2);\r\n\r\n            DoBeforeDrawTickMark(AGraphics, r, TickMarks, HourMarkLength, MinuteMarkLength, b, df);\r\n            if b then\r\n            begin  \r\n              if df then\r\n              begin\r\n                AGraphics.DrawLine(qf, qt, gcpmNone, gcpmNone);\r\n                AGraphics.DrawLine(pf, pt, gcpmNone, gcpmNone);\r\n              end;\r\n              DoAfterDrawTickMark(AGraphics, r, TickMarks, HourMarkLength, MinuteMarkLength);\r\n            end;\r\n          end;\r\n          1, 3:\r\n          begin  \r\n            qf := PointF(Cos(i * 90 * PI / 180) * ml + CP.X - 2, Sin(i * 90 * PI / 180) * ml + CP.Y);\r\n            qt := PointF(Cos(i * 90 * PI / 180) * rd + CP.X - 2, Sin(i * 90 * PI / 180) * rd + CP.Y);\r\n            pf := PointF(Cos(i * 90 * PI / 180) * ml + CP.X + 2, Sin(i * 90 * PI / 180) * ml + CP.Y);\r\n            pt := PointF(Cos(i * 90 * PI / 180) * rd + CP.X + 2, Sin(i * 90 * PI / 180) * rd + CP.Y);\r\n\r\n            DoBeforeDrawTickMark(AGraphics, r, TickMarks, HourMarkLength, MinuteMarkLength, b, df);\r\n            if b then\r\n            begin  \r\n              if df then\r\n              begin\r\n                AGraphics.DrawLine(qf, qt, gcpmNone, gcpmNone);\r\n                AGraphics.DrawLine(pf, pt, gcpmNone, gcpmNone);\r\n              end;\r\n              DoAfterDrawTickMark(AGraphics, r, TickMarks, HourMarkLength, MinuteMarkLength);\r\n            end;\r\n          end;\r\n        end;\r\n      end\r\n      else\r\n      begin\r\n        pf := PointF(Cos(I * 90 * PI / 180) * ml + cp.X, Sin(I * 90 * PI / 180) * ml + cp.Y);\r\n        pt := PointF(Cos(I * 90 * PI / 180) * rd + cp.X, Sin(I * 90 * PI / 180) * rd + cp.Y);\r\n\r\n        DoBeforeDrawTickMark(AGraphics, r, TickMarks, HourMarkLength, MinuteMarkLength, b, df);\r\n        if b then\r\n        begin\r\n          if df then\r\n            AGraphics.DrawLine(pf, pt, gcpmNone, gcpmNone);\r\n\r\n          DoAfterDrawTickMark(AGraphics, r, TickMarks, HourMarkLength, MinuteMarkLength);\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    b := True;\r\n    df := True;\r\n    if (TickMarks in [tmAll, tmHours]) then\r\n    begin\r\n      AGraphics.Stroke.Assign(HourMark);\r\n      for I := 0 to 11 do\r\n      begin\r\n        if ((I mod 3) <> 0) then\r\n        begin\r\n          pf := PointF(Cos(I * 30 * PI / 180) * ml + cp.X, Sin(I * 30 * PI / 180) * ml + cp.Y);\r\n          pt := PointF(Cos(I * 30 * PI / 180) * rd + cp.X, Sin(I * 30 * PI / 180) * rd + cp.Y);\r\n\r\n          DoBeforeDrawTickMark(AGraphics, r, TickMarks, HourMarkLength, MinuteMarkLength, b, df);\r\n          if b then\r\n          begin\r\n            if df then\r\n              AGraphics.DrawLine(pf, pt, gcpmNone, gcpmNone);\r\n\r\n            DoAfterDrawTickMark(AGraphics, r, TickMarks, HourMarkLength, MinuteMarkLength);\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    ml := rd * 0.95;\r\n    if (MinuteMarkLength > 0) then\r\n      ml := rd - MinuteMarkLength;\r\n\r\n    b := True;\r\n    df := True;\r\n    if (TickMarks = tmAll) then\r\n    begin\r\n      for I := 0 to 59 do\r\n      begin\r\n        if ((I mod 5) <> 0) then\r\n        begin\r\n          AGraphics.Stroke.Assign(MinuteMark);\r\n          pf := PointF(Cos(I * 6 * PI / 180) * ml + cp.X, Sin(I * 6 * PI / 180) * ml + cp.Y);\r\n          pt := PointF(Cos(I * 6 * PI / 180) * rd + cp.X, Sin(I * 6 * PI / 180) * rd + cp.Y);\r\n\r\n          DoBeforeDrawTickMark(AGraphics, r, TickMarks, HourMarkLength, MinuteMarkLength, b, df);\r\n          if b then\r\n          begin\r\n            if df then\r\n              AGraphics.DrawLine(pf, pt, gcpmNone, gcpmNone);\r\n\r\n            DoAfterDrawTickMark(AGraphics, r, TickMarks, HourMarkLength, MinuteMarkLength);\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomAnalogTimeSelector.GetAMPMRect(AGraphics: TTMSFNCGraphics; ARectF: TRectF): TRectF;\r\nvar\r\n  r: TRectF;\r\n  cp: TPointF;\r\n  rd: Single;\r\nbegin\r\n  r := RectF(-1, -1, -1, -1);\r\n  Result := r;\r\n  if not Appearance.ShowAMPM then\r\n    Exit;\r\n\r\n  AGraphics.Font.AssignSource(Appearance.AMPMFont);\r\n  r := RectF(0, 0, 200, 200);\r\n  r := AGraphics.CalculateText('AM', r);\r\n  cp := GetCenterPoint(ARectF);\r\n  rd := GetRadius(ARectF);\r\n  R.Right := r.Right + 4 * 2;\r\n  R.Bottom := r.Bottom + 0 * 2;\r\n  Result.Left := cp.X - (r.Right / 2);\r\n  Result.Top := cp.Y + Round((rd - r.Bottom) / 3);\r\n  Result.Right := Result.Left + r.Right;\r\n  Result.Bottom := Result.Top + r.Bottom;\r\n  FAMRect := Result;\r\nend;\r\n\r\nfunction TTMSFNCCustomAnalogTimeSelector.GetCenterPoint(ARectF: TRectF): TPointF;\r\nbegin\r\n  Result := PointF(ARectF.Left + (ARectF.Right - ARectF.Left) / 2, ARectF.Top + (ARectF.Bottom - ARectF.Top) / 2);\r\nend;\r\n\r\nfunction TTMSFNCCustomAnalogTimeSelector.GetRadius(ARectF: TRectF): Single;\r\nbegin\r\n  Result := (ARectF.Right - ARectF.Left) / 2;\r\nend;\r\n\r\nfunction TTMSFNCCustomAnalogTimeSelector.GetVersion: string;\r\nbegin\r\n  Result := GetVersionNumber(MAJ_VER, MIN_VER, REL_VER, BLD_VER);\r\nend;\r\n\r\nfunction TTMSFNCCustomAnalogTimeSelector.GetWatchRect(ARectF: TRectF): TRectF;\r\nvar\r\n  r: TRectF;\r\n  h, w, s, offset: Single;\r\nbegin\r\n  r := ARectF;\r\n  h := r.Bottom - r.Top;\r\n  w := r.Right - r.Left;\r\n  offset := 20;\r\n  s := h;\r\n  if (s > h) then\r\n    s := h;\r\n\r\n  if (s > w) then\r\n    s := w;\r\n\r\n  s := s - offset;\r\n  Result := RectF(r.Left + ((w - s) / 2), r.Top + ((h - s) / 2), r.Left + ((w - s) / 2) + s, r.Top + ((h - s) / 2) + s);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.HandleKeyDown(var Key: Word; Shift: TShiftState);\r\nvar\r\n  h, m, s, ms: Word;\r\nbegin\r\n  inherited;\r\n  if Settings.ReadOnly then\r\n    Exit;\r\n\r\n  if ([ssShift] = Shift) then\r\n  begin\r\n    case Key of\r\n      KEY_UP:\r\n      begin\r\n        Time := IncHour(FTime, 1);\r\n        DoHourChanged(FTime);\r\n        DoTimeChanged(FTime);\r\n      end;\r\n      KEY_DOWN:\r\n      begin\r\n        Time:= IncHour(FTime, -1);\r\n        DoHourChanged(FTime);\r\n        DoTimeChanged(FTime);\r\n      end;\r\n    end;\r\n    Exit;\r\n  end;\r\n\r\n  case Key of\r\n    KEY_UP, KEY_RIGHT:\r\n    begin\r\n      Time := IncMinute(FTime, 1);\r\n      DoMinuteChanged(FTime);\r\n      DoTimeChanged(FTime);\r\n    end;\r\n    KEY_DOWN, KEY_LEFT:\r\n    begin\r\n      Time := IncMinute(FTime, -1);\r\n      DoMinuteChanged(FTime);\r\n      DoTimeChanged(FTime);\r\n    end;\r\n    KEY_HOME:\r\n    begin\r\n      Time := Now;\r\n      DecodeTime(FTime, h, m, s, ms);\r\n      if FPrevSec <> s then\r\n        DoSecondChanged(Time);\r\n\r\n      if FPrevMin <> m then\r\n        DoMinuteChanged(Time);\r\n\r\n      if FPrevHour <> h then\r\n        DoHourChanged(Time);\r\n\r\n      DoTimeChanged(FTime);\r\n    end;\r\n    KEY_END:\r\n    begin\r\n      Time := EncodeTime(12, 0, 0, 0);\r\n      if FPrevSec <> 0 then\r\n        DoSecondChanged(FTime);\r\n\r\n      if FPrevMin <> 0 then\r\n        DoMinuteChanged(FTime);\r\n\r\n      if FPrevHour <> 12 then\r\n        DoHourChanged(FTime);\r\n\r\n      DoTimeChanged(FTime);\r\n    end;\r\n    KEY_NEXT:\r\n    begin\r\n      Time := IncHour(FTime, 1);\r\n      DoHourChanged(FTime);\r\n      DoTimeChanged(FTime);\r\n    end;\r\n    KEY_PRIOR:\r\n    begin\r\n      Time := IncHour(FTime, -1);\r\n      DoHourChanged(FTime);\r\n      DoTimeChanged(FTime);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.HandleMouseDown(Button: TTMSFNCMouseButton;\r\n  Shift: TShiftState; X, Y: Single);\r\nvar\r\n  rect: TRectF;\r\n  cp, p: TPointF;\r\n  r: Single;\r\nbegin\r\n  inherited;\r\n  if CanFocus then\r\n    SetFocus;\r\n\r\n  rect := GetWatchRect(GetControlRect);\r\n  cp := GetCenterPoint(rect);\r\n  r := GetRadius(rect);\r\n  p := PointF(X, Y);\r\n\r\n  if not Settings.Auto or not Settings.ReadOnly then\r\n  begin\r\n    if PtInCircle(p, cp, r) and not PtInRectEx(FAMRect, p) then\r\n      FMouseHourDown := True\r\n    else if not PtInRectEx(FAMRect, p) then\r\n      FMouseMinuteDown := True;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.HandleMouseMove(Shift: TShiftState; X, Y: Single);\r\nvar\r\n   h, m, s, ms: Word;\r\n   i: Integer;\r\nbegin\r\n  inherited;\r\n  if not Settings.Auto and not Settings.ReadOnly then\r\n  begin\r\n    if PtInRectEx(FAMREct, PointF(X, Y)) and Appearance.ShowAMPM and not FMouseHourDown and not FMouseMinuteDown then\r\n      Cursor := crHandPoint\r\n    else\r\n      Cursor := crDefault;\r\n\r\n    if FollowMouse and FMouseHourDown then\r\n    begin\r\n      DecodeTime(Time, h, m, s, ms);\r\n      i := XYToHour(X, Y);\r\n      Time := EncodeTime(i, m, s, ms);\r\n      DoHourChanged(FTime);\r\n      DoTimeChanged(FTime);\r\n    end\r\n    else if FollowMouse and FMouseMinuteDown then\r\n    begin\r\n      DecodeTime(Time, h, m, s, ms);\r\n      i := XYToMinute(X, Y);\r\n      Time := EncodeTime(h, i, s, ms);\r\n      DoMinuteChanged(FTime);\r\n      DoTimeChanged(FTime);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.HandleMouseUp(Button: TTMSFNCMouseButton;\r\n  Shift: TShiftState; X, Y: Single);\r\nvar\r\n  rect: TRectF;\r\n  cp, p: TPointF;\r\n  i: Integer;\r\n  r: Single;\r\n  h, m, s, ms: Word;\r\nbegin\r\n  inherited;\r\n  FMouseHourDown := False;\r\n  FMouseMinuteDown := False;\r\n\r\n  if Settings.ReadOnly then\r\n    Exit;\r\n\r\n  if not Settings.Auto then\r\n  begin\r\n    rect := GetWatchRect(GetControlRect);\r\n    cp := GetCenterPoint(rect);\r\n    r := GetRadius(rect);\r\n    p := PointF(X, Y);\r\n    DecodeTime(Time, h, m, s, ms);\r\n\r\n    if PtInCircle(p, cp, r) then\r\n    begin\r\n      if PtInRectEx(FAMRect, p) then\r\n      begin\r\n        if (h < 12) then\r\n          Time := IncHour(FTime, 12)\r\n        else\r\n          Time := IncHour(FTime, -12);\r\n\r\n        DoHourChanged(FTime);\r\n        DoTimeChanged(FTime);\r\n      end\r\n      else\r\n      begin\r\n        i := XYToHour(X, Y);\r\n        Time := EncodeTime(i, m, s, ms);\r\n        DoHourChanged(FTime);\r\n        DoTimeChanged(FTime);\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      i := XYToMinute(X, Y);\r\n      Time := EncodeTime(h, i, s, ms);\r\n      DoMinuteChanged(FTime);\r\n      DoTimeChanged(FTime);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.Initialize;\r\nbegin\r\n  FMouseHourDown := False;\r\n  FMouseMinuteDown := False;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.OnWatchTimer(Sender: TObject);\r\nbegin\r\n  Invalidate;\r\nend;\r\n\r\nfunction TTMSFNCCustomAnalogTimeSelector.PtInCircle(APointF, ACPoint: TPointF;\r\n  ARadius: Single): Boolean;\r\nbegin\r\n  Result := (Sqr(APointF.X - ACPoint.X) + Sqr(APointF.Y - ACPoint.Y)) <= Sqr(ARadius);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.ResetToDefaultStyle;\r\nbegin\r\n  inherited;\r\n  Appearance.Fill.Kind := gfkSolid;\r\n  Appearance.Fill.Color := gcWhite;\r\n  Appearance.AMPMFill.Kind := gfkSolid;\r\n  Appearance.AMPMFill.Color := gcWhite;\r\n  Appearance.SecondPointer.Kind := gskSolid;\r\n  Appearance.SecondPointer.Color := gcRed;\r\n  Appearance.Stroke.Kind := gskSolid;\r\n  Appearance.Stroke.Color := gcBlack;\r\n  Appearance.HourPointer.Kind := gskSolid;\r\n  Appearance.HourPointer.Color := gcBlack;\r\n  Appearance.MinutePointer.Kind := gskSolid;\r\n  Appearance.MinutePointer.Color := gcBlack;\r\n  Appearance.CenterPointFill.Kind := gfkSolid;\r\n  Appearance.CenterPointFill.Color := gcBlack;\r\n  Appearance.CenterPointStroke.Kind := gskSolid;\r\n  Appearance.CenterPointStroke.Color := gcBlack;\r\n  Appearance.HourFont.Color := gcBlack;\r\n  Appearance.HourMark.Kind := gskSolid;\r\n  Appearance.HourMark.Color := gcBlack;\r\n  Appearance.MinuteMark.Kind := gskSolid;\r\n  Appearance.MinuteMark.Color := gcBlack;\r\n  Appearance.AMPMFont.Color := gcBlack;\r\n  Appearance.AMPMStroke.Kind := gskSolid;\r\n  Appearance.AMPMStroke.Color := gcBlack;\r\n  Appearance.HourPointerShadow.Color := gcMedGray;\r\n  Appearance.MinutePointerShadow.Color := gcMedGray;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.SetAM(const Value: Boolean);\r\nbegin\r\n  if FAM <> Value then\r\n  begin\r\n    FAM := Value;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.SetAppearance(const Value: TTMSFNCAnalogTimeSelectorAppearance);\r\nbegin\r\n  FAppearance.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.SetFollowMouse(const Value: Boolean);\r\nbegin\r\n  if FFollowMouse <> Value then\r\n    FFollowMouse := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.SetFonts(ASetType: TTMSFNCAppearanceGlobalFontType);\r\nbegin\r\n  BeginUpdate;\r\n\r\n  GlobalFont.ApplyChange(Appearance.HourFont, ASetType);\r\n  GlobalFont.ApplyChange(Appearance.AMPMFont, ASetType);\r\n\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.SetGlobalFont(const Value: TTMSFNCAppearanceGlobalFont);\r\nbegin\r\n  FGlobalFont.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.SetSettings(const Value: TTMSFNCAnalogTimeSelectorSettings);\r\nbegin\r\n  FSettings.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.SetStyle(const Value: TTMSFNCAnalogTimeSelectorStyle);\r\nbegin\r\n  if FStyle <> Value then\r\n  begin\r\n    FStyle := Value;\r\n    case FStyle of\r\n      wsClassic:\r\n      begin\r\n        with Appearance do\r\n        begin\r\n          InitializeDefault;\r\n          AMPMFont.Name := 'MS Sans Serif';\r\n          AMPMFont.Style := [];\r\n          AMPMFont.Color := gcBlack;\r\n          HourFont.Name := 'Comic Sans MS';\r\n          HourFont.Size := {$IFDEF FMXLIB} 14 {$ELSE} 10 {$ENDIF};\r\n          HourFont.Style := [TFontStyle.fsBold];\r\n          HourFont.Color := gcBlack;\r\n          HourMarkLength := 8;\r\n          HourPointer.Color := gcBlack;\r\n          HourPointer.Width := 5;\r\n          HourPointerShadow.Color := gcMedGray;\r\n          MinutePointerShadow.Color := gcMedGray;\r\n          MinuteMarkLength := 4;\r\n          ShowAMPM := True;\r\n          ShowNumbers := True;\r\n          ShowSecondPointer := True;\r\n        end;\r\n      end;\r\n      wsFluorescent:\r\n      begin\r\n        with Appearance do\r\n        begin\r\n          InitializeDefault;\r\n          AMPMFont.Color := gcBlack;\r\n          AMPMFont.Size := {$IFDEF FMXLIB} 14 {$ELSE} 10 {$ENDIF};\r\n          AMPMFont.Name := 'MS Sans Serif';\r\n          AMPMFont.Style := [];\r\n          Stroke.Color := {$IFDEF FMXLIB} $FF3E3EFF {$ELSE} $00FF3E3E {$ENDIF};\r\n          Fill.Color := gcBlack;\r\n          Fill.ColorTo := gcBlack;\r\n          CenterPointFill.Color := {$IFDEF FMXLIB} $FF3E3EFF {$ELSE} $00FF3E3E {$ENDIF};\r\n          CenterPointStroke.Color := gcBlack;\r\n          CenterPointSize := 20;\r\n          CenterPointStroke.Width := 4;\r\n          HourFont.Color := gcBlack;\r\n          HourFont.Size := {$IFDEF FMXLIB} 12 {$ELSE} 8 {$ENDIF};\r\n          HourFont.Name := 'MS Sans Serif';\r\n          HourFont.Style := [];\r\n          HourMark.Color := {$IFDEF FMXLIB} $FF3E3EFF {$ELSE} $00FF3E3E {$ENDIF};\r\n          HourMarkLength := 10;\r\n          HourPointer.Color := {$IFDEF FMXLIB} $FF3E3EFF {$ELSE} $00FF3E3E {$ENDIF};\r\n          HourPointer.Width := 2;\r\n          HourPointerShadow.Color := gcNull;\r\n          MinuteMark.Color := {$IFDEF FMXLIB} $FF3E3EFF {$ELSE} $00FF3E3E {$ENDIF};\r\n          MinutePointer.Color := {$IFDEF FMXLIB} $FF3E3EFF {$ELSE} $00FF3E3E {$ENDIF};\r\n          MinutePointer.Width := 2;\r\n          MinutePointerShadow.Color := gcNull;\r\n          Shape := wsRoundRect;\r\n          HourMark.Width := 2;\r\n          HourMarkStyle := hmsQuartDblLine;\r\n          TickMarks := tmHours;\r\n          ShowAMPM := False;\r\n          ShowNumbers := False;\r\n          ShowSecondPointer := True;\r\n        end;\r\n      end;\r\n      wsEmerald:\r\n      begin\r\n        with Appearance do\r\n        begin\r\n          InitializeDefault;\r\n          AMPMFont.Color := {$IFDEF FMXLIB} $FFA00000 {$ELSE} $00A00000 {$ENDIF};\r\n          AMPMFont.Name := 'MS Sans Serif';\r\n          AMPMFont.Style := [];\r\n          Stroke.Color := {$IFDEF FMXLIB} $FF3AE800 {$ELSE} $003AE800 {$ENDIF};\r\n          Fill.Color := {$IFDEF FMXLIB} $FF3AE800 {$ELSE} $003AE800 {$ENDIF};\r\n          Fill.ColorTo := gcBlack;\r\n          Fill.Kind := gfkGradient;\r\n          Fill.Orientation := gfoVertical;\r\n          CenterPointStroke.Color := {$IFDEF FMXLIB} $FF40FF00 {$ELSE} $0040FF00 {$ENDIF};\r\n          CenterPointStroke.Width := 3;\r\n          CenterPointFill.Color := {$IFDEF FMXLIB} $FF38E100 {$ELSE} $0038E100 {$ENDIF};\r\n          CenterPointOuterColor := gcBlack;\r\n          CenterPointSize := 16;\r\n          HourFont.Color := gcBlack;\r\n          HourFont.Name := 'MS Sans Serif';\r\n          HourFont.Style := [];\r\n          HourPointer.Color := {$IFDEF FMXLIB} $FF40FF00 {$ELSE} $0040FF00 {$ENDIF};\r\n          HourPointer.Color := {$IFDEF FMXLIB} $FF40FF00 {$ELSE} $0040FF00 {$ENDIF};\r\n          HourPointerShadow.Color := gcDarkgreen;\r\n          HourPointer.Width := 5;\r\n          MinutePointer.Color := {$IFDEF FMXLIB} $FF40FF00 {$ELSE} $0040FF00 {$ENDIF};\r\n          MinutePointerShadow.Color := gcDarkgreen;\r\n          Shape := wsRect;\r\n          PointerStyle := psPointer;\r\n          AMPMFill.Color := gcNull;\r\n          HourFont.Color := Appearance.Fill.Color;\r\n          HourMarkStyle := hmsQuartDblLine;\r\n          HourMark.Color := Appearance.Fill.Color;\r\n          SecondPointer.Color := gcYellow;\r\n          TickMarks := tmHours;\r\n          ShowNumbers := False;\r\n          ShowAMPM := False;\r\n          ShowSecondPointer := True;\r\n        end;\r\n      end;\r\n      wsTower:\r\n      begin\r\n        with Appearance do\r\n        begin\r\n          InitializeDefault;\r\n          AMPMFont.Name := 'MS Sans Serif';\r\n          AMPMFont.Style := [];\r\n          AMPMFont.Color := gcBlack;\r\n          Stroke.Width := 1;\r\n          Fill.Color := {$IFDEF FMXLIB} $FFFEF0B1 {$ELSE} $00B1F0FE {$ENDIF};\r\n          Fill.ColorTo := {$IFDEF FMXLIB} $FFE8CC5B {$ELSE} $005BCCE8 {$ENDIF};\r\n          Fill.Kind := gfkGradient;\r\n          Fill.Orientation := gfoVertical;\r\n          CenterPointFill.Color := {$IFDEF FMXLIB} $FFD52B00 {$ELSE} $00002BD5 {$ENDIF};\r\n          CenterPointSize := 6;\r\n          CenterPointStroke.Color := {$IFDEF FMXLIB} $FFD52B00 {$ELSE} $00002BD5 {$ENDIF};\r\n          HourFont.Color := gcBlack;\r\n          HourFont.Name := 'Century';\r\n          HourFont.Style := [TFontStyle.fsBold];\r\n          HourPointer.Color := gcBlack;\r\n          HourPointerShadow.Color := gcSaddlebrown;\r\n          HourPointer.Width := 5;\r\n          MinutePointerShadow.Color := gcSaddlebrown;\r\n          SecondPointer.Color := {$IFDEF FMXLIB} $FFD52B00 {$ELSE} $00002BD5 {$ENDIF};\r\n          Shape := wsRect;\r\n          PointerStyle := psPointer;\r\n          AMPMFill.Color := Appearance.Fill.Color;\r\n          ShowNumbers := False;\r\n          TickMarks := tmHours;\r\n          ShowSecondPointer := True;\r\n        end;\r\n      end;\r\n      wsFuchsia:\r\n      begin\r\n        with Appearance do\r\n        begin\r\n          InitializeDefault;\r\n          AMPMFont.Color := gcBlack;\r\n          AMPMFont.Size := {$IFDEF FMXLIB} 14 {$ELSE} 10 {$ENDIF};\r\n          AMPMFont.Name := 'MS Sans Serif';\r\n          AMPMFont.Style := [];\r\n          Stroke.Color := {$IFDEF FMXLIB} $FFFFD0FF {$ELSE} $00FFD0FF {$ENDIF};\r\n          Fill.Color := gcBlack;\r\n          Fill.ColorTo := gcBlack;\r\n          CenterPointStroke.Color := {$IFDEF FMXLIB} $FFDD68DD {$ELSE} $00DD68DD {$ENDIF};\r\n          CenterPointStroke.Width := 4;\r\n          CenterPointSize := 18;\r\n          CenterPointOuterColor := gcBlack;\r\n          HourFont.Color := gcBlack;\r\n          HourFont.Size := {$IFDEF FMXLIB} 12 {$ELSE} 8 {$ENDIF};\r\n          HourFont.Name := 'MS Sans Serif';\r\n          HourFont.Style := [];\r\n          HourMark.Color := {$IFDEF FMXLIB} $FFFFD0FF {$ELSE} $00FFD0FF {$ENDIF};\r\n          HourMarkLength := 10;\r\n          HourPointer.Color := {$IFDEF FMXLIB} $FFFFD0FF {$ELSE} $00FFD0FF {$ENDIF};\r\n          HourPointerShadow.Color := gcNull;\r\n          HourPointer.Width := 2;\r\n          MinuteMark.Color := {$IFDEF FMXLIB} $FFFFD0FF {$ELSE} $00FFD0FF {$ENDIF};\r\n          MinutePointer.Color := {$IFDEF FMXLIB} $FFFFD0FF {$ELSE} $00FFD0FF {$ENDIF};\r\n          MinutePointerShadow.Color := gcNull;\r\n          MinutePointer.Width := 2;\r\n          Shape := wsRect;\r\n          HourMark.Width := 2;\r\n          HourMarkStyle := hmsQuartDblLine;\r\n          SecondPointer.Color := {$IFDEF FMXLIB} $FFDD68DD {$ELSE} $00DD68DD {$ENDIF};\r\n          TickMarks := tmQuartHours;\r\n          ShowAMPM := False;\r\n          ShowNumbers := False;\r\n          ShowSecondPointer := True;\r\n        end;\r\n      end;\r\n      wsBlack:\r\n      begin\r\n        with Appearance do\r\n        begin\r\n          InitializeDefault;\r\n          AMPMFont.Name := 'MS Sans Serif';\r\n          AMPMFont.Style := [];\r\n          Fill.Color := {$IFDEF FMXLIB} $FF202020 {$ELSE} $00202020 {$ENDIF};\r\n          Fill.ColorTo := gcNull;\r\n          Stroke.Color := gcBlack;\r\n          CenterPointStroke.Color := gcWhite;\r\n          CenterPointFill.Color := gcWhite;\r\n          HourMark.Color := {$IFDEF FMXLIB} $FF585858 {$ELSE} $00585858 {$ENDIF};\r\n          HourFont.Color := gcWhite;\r\n          HourFont.Name := 'Century Gothic';\r\n          HourFont.Size := {$IFDEF FMXLIB} 15 {$ELSE} 11 {$ENDIF};\r\n          HourPointer.Color := gcWhite;\r\n          HourPointerShadow.Color := gcNull;\r\n          HourPointer.Width := 5;\r\n          MinuteMark.Color := {$IFDEF FMXLIB} $FF585858 {$ELSE} $00585858 {$ENDIF};\r\n          MinutePointer.Color := gcWhite;\r\n          MinutePointerShadow.Color := gcNull;\r\n          MinuteMarkLength := 4;\r\n          ShowAMPM := False;\r\n          ShowNumbers := True;\r\n          ShowSecondPointer := True;\r\n        end;\r\n      end;\r\n      wsBlackWhite:\r\n      begin\r\n        with Appearance do\r\n        begin\r\n          InitializeDefault;\r\n          Fill.Color := gcWhite;\r\n          Fill.ColorTo := gcNull;\r\n          Stroke.Color := gcBlack;\r\n          Stroke.Width := 8;\r\n          CenterPointStroke.Color := gcBlack;\r\n          CenterPointFill.Color := gcBlack;\r\n          CenterPointSize := 8;\r\n          HourMark.Color := {$IFDEF FMXLIB} $FF585858 {$ELSE} $00585858 {$ENDIF};\r\n          HourFont.Color := gcBlack;\r\n          HourFont.Name := 'Century Gothic';\r\n          HourFont.Size := {$IFDEF FMXLIB} 18 {$ELSE} 14 {$ENDIF};\r\n          HourFont.Style := [TFontStyle.fsBold];\r\n          HourPointer.Color := gcBlack;\r\n          HourPointerShadow.Color := gcMedGray;\r\n          HourPointer.Width := 5;\r\n          MinutePointer.Color := gcBlack;\r\n          MinutePointerShadow.Color := gcMedGray;\r\n          MinuteMarkLength := 4;\r\n          SecondPointer.Color := gcMaroon;\r\n          PointerStyle := psPointer;\r\n          TickMarks := tmQuartHours;\r\n          ShowAMPM := False;\r\n          ShowNumbers := True;\r\n          ShowSecondPointer := True;\r\n        end;\r\n      end;\r\n      wsSuperNova:\r\n      begin\r\n        with Appearance do\r\n        begin\r\n          InitializeDefault;\r\n          Fill.ColorTo := {$IFDEF FMXLIB} $FFD1D3D3 {$ELSE} $00D1D3D3 {$ENDIF};\r\n          Fill.Kind := gfkGradient;\r\n          Fill.Orientation := gfoVertical;\r\n          Stroke.Color := Fill.Color;\r\n          Stroke.Width := 4;\r\n          CenterPointStroke.Color := gcBlack;\r\n          CenterPointSize := 10;\r\n          HourMarkLength := Round(Min(Self.Height, Self.Width) / 4.5);\r\n          HourPointer.Color := gcBlack;\r\n          HourPointerShadow.Color := gcMedGray;\r\n          MinuteMark.Color := gcGray;\r\n          MinuteMarkLength := Min(Self.Height, Self.Width) / 3;\r\n          MinutePointer.Color := gcBlack;       \r\n          ShowAMPM := False;\r\n          ShowNumbers := False;\r\n          ShowSecondPointer := True;\r\n        end;\r\n      end;\r\n      wsSports:\r\n      begin\r\n        with Appearance do\r\n        begin\r\n          InitializeDefault;\r\n          Fill.Color := gcBlack;\r\n          Stroke.Color := gcBlack;\r\n          Stroke.Width := 1;\r\n          CenterPointStroke.Color := gcBlue;\r\n          CenterPointOuterColor := gcBlack;\r\n          CenterPointFill.Color := {$IFDEF FMXLIB} $FF191919 {$ELSE} $00191919 {$ENDIF};\r\n          CenterPointStroke.Width := 8;\r\n          CenterPointSize := Round(Min(Self.Height, Self.Width) / 4);\r\n          HourMark.Color := {$IFDEF FMXLIB} $FFABB0B1 {$ELSE} $00ABB0B1 {$ENDIF};\r\n          HourFont.Color := {$IFDEF FMXLIB} $FF797979 {$ELSE} $00797979 {$ENDIF};\r\n          HourFont.Name := 'Times New Roman';\r\n          HourFont.Size := {$IFDEF FMXLIB} 13 {$ELSE} 9 {$ENDIF};\r\n          HourPointer.Color := gcRed;\r\n          HourPointerShadow.Color := gcNull;\r\n          HourPointer.Width := 2;\r\n          MinuteMark.Color := gcGray;\r\n          MinutePointer.Color := gcYellow;\r\n          MinutePointer.Width := 2;\r\n          MinutePointerShadow.Color := gcNull;\r\n          MinuteMarkLength := 1;\r\n          SecondPointer.Color := {$IFDEF FMXLIB} $FFFE8B18 {$ELSE} $00188BFE {$ENDIF};\r\n          TickMarks := tmQuartHours;\r\n          ShowAMPM := False;\r\n          ShowNumbers := True;\r\n          ShowSecondPointer := True;\r\n        end;\r\n      end;\r\n      wsSmooth:\r\n      begin\r\n        with Appearance do\r\n        begin\r\n          InitializeDefault;\r\n          Fill.Color := gcWhite;\r\n          Fill.ColorTo := {$IFDEF FMXLIB} $FFABB0B1 {$ELSE} $00ABB0B1 {$ENDIF};\r\n          Fill.Kind := gfkGradient;\r\n          Fill.Orientation := gfoVertical;\r\n          Stroke.Color := {$IFDEF FMXLIB} $FF585858 {$ELSE} $00585858 {$ENDIF};\r\n          Stroke.Width := 1;\r\n          CenterPointStroke.Color := gcBlack;\r\n          CenterPointStroke.Width := 1;\r\n          CenterPointFill.Color := gcWhite;\r\n          CenterPointOuterColor := gcBlack;\r\n          CenterPointSize := 6;\r\n          HourMark.Color := {$IFDEF FMXLIB} $FFABB0B1 {$ELSE} $00ABB0B1 {$ENDIF};\r\n          HourFont.Color := {$IFDEF FMXLIB} $FF797979 {$ELSE} $00797979 {$ENDIF};\r\n          HourFont.Name := 'Times New Roman';\r\n          HourFont.Size := {$IFDEF FMXLIB} 13 {$ELSE} 9 {$ENDIF};\r\n          HourPointer.Color := {$IFDEF FMXLIB} $FF4A4A4A {$ELSE} $004A4A4A {$ENDIF};\r\n          HourPointerShadow.Color := {$IFDEF FMXLIB} $FFB2B2B2 {$ELSE} $00B2B2B2 {$ENDIF};\r\n          HourPointer.Width := 2;\r\n          MinuteMark.Color := gcGray;\r\n          MinutePointer.Color := {$IFDEF FMXLIB} $FF4A4A4A {$ELSE} $004A4A4A {$ENDIF};\r\n          MinutePointer.Width := 2;\r\n          MinutePointerShadow.Color := {$IFDEF FMXLIB} $FFB2B2B2 {$ELSE} $00B2B2B2 {$ENDIF};\r\n          MinuteMarkLength := 1;\r\n          SecondPointer.Color := {$IFDEF FMXLIB} $FF4A4A4A {$ELSE} $004A4A4A {$ENDIF};\r\n          TickMarks := tmQuartHours;\r\n          ShowAMPM := False;\r\n          ShowNumbers := True;\r\n          ShowSecondPointer := True;\r\n        end;\r\n      end;\r\n      wsCustom:\r\n      begin\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.SetTime(const Value: TTime);\r\nvar\r\n  h, m, s, ms: Word;\r\nbegin\r\n  if FTime <> Value then\r\n  begin\r\n    FTime := Value;\r\n    DecodeTime(Value, h, m, s, ms);\r\n    if h < 12 then\r\n      AM := True\r\n    else\r\n      AM := False;\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimeSelector.SettingsChanged(Sender: TObject);\r\nbegin\r\n  FWatchTimer.Enabled := Settings.Auto;\r\n  Changed;\r\nend;\r\n\r\nfunction TTMSFNCCustomAnalogTimeSelector.XYToHour(X, Y: Single): Integer;\r\nbegin\r\n  Result := Round(XYToMinute(X, Y) / 5);\r\n  if (Result <= 0) then\r\n  begin\r\n    if AM then\r\n      Result := 0\r\n    else\r\n      Result := 12;\r\n  end\r\n  else\r\n  begin\r\n    if not AM then\r\n      Result := Result + 12;\r\n    if (Result = 24) then\r\n      Result := 0;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomAnalogTimeSelector.XYToMinute(X, Y: Single): Integer;\r\nvar\r\n  r: TRectF;\r\n  cp: TPointF;\r\n  a, b, m: Double;\r\nbegin\r\n  r := GetWatchRect(GetControlRect);\r\n  cp := GetCenterPoint(r);\r\n\r\n  a := abs(cp.Y - Y);\r\n  b := abs(cp.X - X);\r\n  if (a = 0) then\r\n    a := 1;\r\n\r\n  if (b = 0) then\r\n    b := 1;\r\n\r\n  m := ArcTan(a / b) * 180/pi;\r\n  m := m / 6;\r\n  Result := Round(m);\r\n\r\n  if (X >= cp.X) and (Y >= cp.Y) then\r\n    Result := Result + 15\r\n  else if (X <= cp.X) and (Y >= cp.Y) then\r\n  begin\r\n    Result := 15 - Result;\r\n    Result := Result + 30;\r\n  end\r\n  else if (X <= cp.X) and (Y <= cp.Y) then\r\n    Result := Result + 45\r\n  else if (X >= cp.X) and (Y <= cp.Y) then\r\n    Result := 15 - Result;\r\n\r\n  if (Result < 0) or (Result >= 60) then\r\n    Result := 0;\r\n\r\nend;\r\n\r\n{ TTMSFNCWatchAppearance }\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTMSFNCAnalogTimeSelectorAppearance) then\r\n  begin\r\n    FStroke.Assign((Source as TTMSFNCAnalogTimeSelectorAppearance).Stroke);\r\n    FFill.Assign((Source as TTMSFNCAnalogTimeSelectorAppearance).Fill);\r\n    FHourMark.Assign((Source as TTMSFNCAnalogTimeSelectorAppearance).HourMark);\r\n    FMinuteMark.Assign((Source as TTMSFNCAnalogTimeSelectorAppearance).MinuteMark);\r\n    FHourFont.AssignSource((Source as TTMSFNCAnalogTimeSelectorAppearance).HourFont);\r\n    FAMPMFill.Assign((Source as TTMSFNCAnalogTimeSelectorAppearance).AMPMFill);\r\n    FAMPMStroke.Assign((Source as TTMSFNCAnalogTimeSelectorAppearance).AMPMStroke);\r\n    FAMPMFont.Assign((Source as TTMSFNCAnalogTimeSelectorAppearance).AMPMFont);\r\n    FShowAMPM := (Source as TTMSFNCAnalogTimeSelectorAppearance).ShowAMPM;\r\n    FHourPointerShadow.Assign((Source as TTMSFNCAnalogTimeSelectorAppearance).HourPointerShadow);\r\n    FMinutePointerShadow.Assign((Source as TTMSFNCAnalogTimeSelectorAppearance).MinutePointerShadow);\r\n    FHourPointer.Assign((Source as TTMSFNCAnalogTimeSelectorAppearance).HourPointer);\r\n    FMinutePointer.Assign((Source as TTMSFNCAnalogTimeSelectorAppearance).MinutePointer);\r\n    FSecondPointer.Assign((Source as TTMSFNCAnalogTimeSelectorAppearance).SecondPointer);\r\n    FShape := (Source as TTMSFNCAnalogTimeSelectorAppearance).Shape;\r\n    FTickMark := (Source as TTMSFNCAnalogTimeSelectorAppearance).TickMarks;\r\n    FHourMarkLength := (Source as TTMSFNCAnalogTimeSelectorAppearance).HourMarkLength;\r\n    FMinuteMarkLength := (Source as TTMSFNCAnalogTimeSelectorAppearance).MinuteMarkLength;\r\n    FCenterPointSize := (Source as TTMSFNCAnalogTimeSelectorAppearance).CenterPointSize;\r\n    FCenterPointFill.Assign((Source as TTMSFNCAnalogTimeSelectorAppearance).CenterPointFill);\r\n    FCenterPointStroke.Assign((Source as TTMSFNCAnalogTimeSelectorAppearance).CenterPointStroke);\r\n    FCenterPointOuterColor := (Source as TTMSFNCAnalogTimeSelectorAppearance).CenterPointOuterColor;\r\n    FPointerStyle := (Source as TTMSFNCAnalogTimeSelectorAppearance).PointerStyle;\r\n    FShowSecondPointer := (Source as TTMSFNCAnalogTimeSelectorAppearance).ShowSecondPointer;\r\n    FShowNumbers := (Source as TTMSFNCAnalogTimeSelectorAppearance).ShowNumbers;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nconstructor TTMSFNCAnalogTimeSelectorAppearance.Create;\r\nbegin\r\n  FFill := TTMSFNCGraphicsFill.Create;\r\n  FStroke := TTMSFNCGraphicsStroke.Create;\r\n  FHourMark := TTMSFNCGraphicsStroke.Create;\r\n  FMinuteMark := TTMSFNCGraphicsStroke.Create;\r\n  FHourFont := TTMSFNCGraphicsFont.Create;\r\n  FAMPMFill := TTMSFNCGraphicsFill.Create;\r\n  FAMPMStroke := TTMSFNCGraphicsStroke.Create;\r\n  FAMPMFont := TTMSFNCGraphicsFont.Create;\r\n  FHourPointerShadow := TTMSFNCGraphicsStroke.Create;\r\n  FMinutePointerShadow := TTMSFNCGraphicsStroke.Create;\r\n  FHourPointer := TTMSFNCGraphicsStroke.Create;\r\n  FMinutePointer := TTMSFNCGraphicsStroke.Create;\r\n  FSecondPointer := TTMSFNCGraphicsStroke.Create;\r\n  FCenterPointFill := TTMSFNCGraphicsFill.Create;\r\n  FCenterPointStroke := TTMSFNCGraphicsStroke.Create;\r\n  InitializeDefault;\r\n\r\n  FFill.OnChanged := @FillChanged;\r\n  FAMPMFill.OnChanged := @FillChanged;\r\n  FCenterPointFill.OnChanged := @FillChanged;\r\n  FStroke.OnChanged := @StrokeChanged;\r\n  FHourMark.OnChanged := @StrokeChanged;\r\n  FMinuteMark.OnChanged := @StrokeChanged;\r\n  FAMPMStroke.OnChanged := @StrokeChanged;\r\n  FHourPointerShadow.OnChanged := @StrokeChanged;\r\n  FMinutePointerShadow.OnChanged := @StrokeChanged;\r\n  FHourPointer.OnChanged := @StrokeChanged;\r\n  FMinutePointer.OnChanged := @StrokeChanged;\r\n  FSecondPointer.OnChanged := @StrokeChanged;\r\n  FCenterPointStroke.OnChanged := @StrokeChanged;\r\n  FHourFont.OnChanged := @FontChanged;\r\n  FAMPMFont.OnChanged := @FontChanged;\r\nend;\r\n\r\ndestructor TTMSFNCAnalogTimeSelectorAppearance.Destroy;\r\nbegin\r\n  FFill.Free;\r\n  FStroke.Free;\r\n  FHourMark.Free;\r\n  FMinuteMark.Free;\r\n  FHourFont.Free;\r\n  FAMPMFill.Free;\r\n  FAMPMStroke.Free;\r\n  FAMPMFont.Free;\r\n  FHourPointerShadow.Free;\r\n  FMinutePointerShadow.Free;\r\n  FHourPointer.Free;\r\n  FMinutePointer.Free;\r\n  FSecondPointer.Free;\r\n  FCenterPointFill.Free;\r\n  FCenterPointStroke.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.FillChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.FontChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.InitializeDefault;\r\nbegin\r\n  FAMPMFont.Name := 'Tahoma';\r\n  {$IFNDEF VCLLIB}\r\n  FAMPMFont.Size := {$IFDEF FMXLIB} 12 {$ELSE} 8 {$ENDIF};\r\n  {$ENDIF}\r\n  FAMPMFont.Color := gcBlack;\r\n  FAMPMFont.Style := [];\r\n  FAMPMFill.Kind := gfkSolid;\r\n  FAMPMFill.Color := gcWhite;\r\n  FAMPMStroke.Kind := gskSolid;\r\n  FAMPMStroke.Color := gcBlack;\r\n  FAMPMStroke.Width := 1;\r\n  FCenterPointFill.Color := gcBlack;\r\n  FCenterPointFill.Kind := gfkSolid;\r\n  FCenterPointSize := 4;\r\n  FCenterPointStroke.Color := gcBlack;\r\n  FCenterPointStroke.Kind := gskSolid;\r\n  FCenterPointStroke.Width := 1;\r\n  FCenterPointOuterColor := gcNull;\r\n  FFill.Color := gcWhite;\r\n  FFill.Kind := gfkSolid;\r\n  FHourFont.Name := 'Tahoma';\r\n  {$IFNDEF VCLLIB}\r\n  FHourFont.Size := {$IFDEF FMXLIB} 12 {$ELSE} 8 {$ENDIF};\r\n  {$ENDIF}\r\n  FHourFont.Color := gcBlack;\r\n  FHourFont.Style := [];\r\n  FHourMark.Color := gcBlack;\r\n  FHourMark.Kind := gskSolid;\r\n  FHourMark.Width := 1;\r\n  FHourMarkLength := 0;\r\n  FHourPointer.Color := gcBlack;\r\n  FHourPointer.Kind := gskSolid;\r\n  FHourPointer.Width := 4;\r\n  FHourPointerShadow.Color := gcMedGray;\r\n  FHourPointerShadow.Kind := gskSolid;\r\n  FHourPointerShadow.Width := 4;\r\n  FHourMarkStyle := hmsLine;\r\n  FMinuteMark.Color := gcBlack;\r\n  FMinuteMark.Kind := gskSolid;\r\n  FMinuteMark.Width := 1;\r\n  FMinuteMarkLength := 0;\r\n  FMinutePointer.Color := gcBlack;\r\n  FMinutePointer.Kind := gskSolid;\r\n  FMinutePointer.Width := 3;\r\n  FMinutePointerShadow.Color := gcMedGray;\r\n  FMinutePointerShadow.Kind := gskSolid;\r\n  FMinutePointerShadow.Width := 3;\r\n  FPointerStyle := psLine;\r\n  FSecondPointer.Color := gcRed;\r\n  FSecondPointer.Kind := gskSolid;\r\n  FSecondPointer.Width := 1;\r\n  FShape := wsCircle;\r\n  FShowAMPM := True;\r\n  FShowNumbers := True;\r\n  FShowSecondPointer := False;\r\n  FStroke.Kind := gskSolid;\r\n  FStroke.Color := gcBlack;\r\n  FStroke.Width := 4;\r\n  FTickMark := tmAll;\r\nend;\r\n\r\nfunction TTMSFNCAnalogTimeSelectorAppearance.IsCenterPointSizeStored: Boolean;\r\nbegin\r\n  Result := FCenterPointSize <> 4.0;\r\nend;\r\n\r\nfunction TTMSFNCAnalogTimeSelectorAppearance.IsHourMarkLengthStored: Boolean;\r\nbegin\r\n  Result := FHourMarkLength <> 0.0;\r\nend;\r\n\r\nfunction TTMSFNCAnalogTimeSelectorAppearance.IsMinuteMarkLengthStored: Boolean;\r\nbegin\r\n  Result := FMinuteMarkLength <> 0.0;\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.SetAMPMFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FAMPMFill <> Value then\r\n    FAMPMFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.SetAMPMFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FAMPMFont.AssignSource(Value);\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.SetAMPMStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FAMPMStroke <> Value then\r\n    FAMPMStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.SetCenterPointFill(\r\n  const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FCenterPointFill <> Value then \r\n    FCenterPointFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.SetCenterPointOuterColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FCenterPointOuterColor <> Value then\r\n  begin\r\n    FCenterPointOuterColor := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.SetCenterPointSize(const Value: Single);\r\nbegin\r\n  if FCenterPointSize <> Value then\r\n  begin\r\n    FCenterPointSize := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.SetCenterPointStroke(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FCenterPointStroke <> Value then\r\n    FCenterPointStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.SetFill(const Value: TTMSFNCGraphicsFill);\r\nbegin\r\n  if FFill <> Value then\r\n    FFill.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.SetHourFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FHourFont.AssignSource(Value);\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.SetHourMark(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FHourMark <> Value then\r\n    FHourMark.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.SetHourMarkLength(const Value: Single);\r\nbegin\r\n  if FHourMarkLength <> Value then\r\n  begin\r\n    FHourMarkLength := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.SetHourMarkStyle(\r\n  const Value: TTMSFNCAnalogTimeSelectorHourMarkStyle);\r\nbegin\r\n  if FHourMarkStyle <> Value then\r\n  begin\r\n    FHourMarkStyle := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.SetHourPointer(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FHourPointer <> Value then\r\n    FHourPointer.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.SetHourPointerShadow(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FHourPointerShadow <> Value then\r\n    FHourPointerShadow.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.SetMinuteMark(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FMinuteMark <> Value then\r\n    FMinuteMark := Value;\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.SetMinuteMarkLength(const Value: Single);\r\nbegin\r\n  if FMinuteMarkLength <> Value then\r\n  begin\r\n    FMinuteMarkLength := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.SetMinutePointer(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FMinutePointer <> Value then\r\n    FMinutePointer.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.SetMinutePointerShadow(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FMinutePointerShadow <> Value then\r\n    FMinutePointerShadow.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.SetPointerStyle(\r\n  const Value: TTMSFNCAnalogTimeSelectorPointerStyle);\r\nbegin\r\n  if FPointerStyle <> Value then\r\n  begin\r\n    FPointerStyle := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.SetSecondPointer(\r\n  const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FSecondPointer <> Value then\r\n    FSecondPointer.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.SetShape(const Value: TTMSFNCAnalogTimeSelectorShape);\r\nbegin\r\n  if FShape <> Value then\r\n  begin\r\n    FShape := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.SetShowAMPM(const Value: Boolean);\r\nbegin\r\n  if FShowAMPM <> Value then\r\n  begin\r\n    FShowAMPM := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.SetShowNumbers(const Value: Boolean);\r\nbegin\r\n  if FShowNumbers <> Value then\r\n  begin\r\n    FShowNumbers := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.SetShowSecondPointer(const Value: Boolean);\r\nbegin\r\n  if FShowSecondPointer <> Value then\r\n  begin\r\n    FShowSecondPointer := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.SetStroke(const Value: TTMSFNCGraphicsStroke);\r\nbegin\r\n  if FStroke <> Value then\r\n    FStroke.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.SetTickMark(const Value: TTMSFNCAnalogTimeSelectorTickMark);\r\nbegin\r\n  if FTickMark <> Value then\r\n  begin\r\n    FTickMark := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorAppearance.StrokeChanged(Sender: TObject);\r\nbegin\r\n  Changed;\r\nend;\r\n\r\n{ TTMSFNCWatchSettings }\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorSettings.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCAnalogTimeSelectorSettings then\r\n  begin\r\n    FAuto := (Source as TTMSFNCAnalogTimeSelectorSettings).Auto;\r\n    FReadOnly := (Source as TTMSFNCAnalogTimeSelectorSettings).ReadOnly;\r\n    FTimeOffset := (Source as TTMSFNCAnalogTimeSelectorSettings).TimeOffset;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorSettings.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nconstructor TTMSFNCAnalogTimeSelectorSettings.Create;\r\nbegin\r\n  FAuto := False;\r\n  FReadOnly := False;\r\n  FTimeOffset := 0;\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorSettings.SetAuto(const Value: Boolean);\r\nbegin\r\n  if FAuto <> Value then\r\n  begin\r\n    FAuto := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorSettings.SetReadOnly(const Value: Boolean);\r\nbegin\r\n  if FReadOnly <> Value then\r\n  begin\r\n    FReadOnly := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCAnalogTimeSelectorSettings.SetTimeOffset(const Value: Integer);\r\nbegin\r\n  if FTimeOffset <> Value then\r\n  begin\r\n    FTimeOffset := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2021                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCAnalogTimePicker;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, WEBLib.TMSFNCCustomPicker, WEBLib.TMSFNCCustomSelector, WEBLib.TMSFNCGraphics,\r\n  WEBLib.Controls, WEBLib.TMSFNCAnalogTimeSelector, WEBLib.TMSFNCTypes, WEBLib.StdCtrls,\r\n  SysUtils, WEBLib.TMSFNCUtils, WEBLib.TMSFNCGraphicsTypes\r\n  {$IFNDEF LCLLIB}\r\n  ,Types\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Types\r\n  {$ENDIF}\r\n  ;\r\n\r\nconst\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 0; // Minor version nr.\r\n  REL_VER = 2; // Release nr.\r\n  BLD_VER = 0; // Build nr.\r\n\r\n  //Version history\r\n  //v1.0.0.0 : First Release\r\n  //v1.0.1.0 : New : Property AllowNumericNullValue added\r\n  //         : New : Method Clear added\r\n  //         : Fixed : Issue with OnTimeSelected event\r\n  //v1.0.1.1 : Fixed : Issue with setting the SelectedTime to 00:00:00\r\n  //v1.0.1.2 : Fixed : Issue with control color in disabled state\r\n  //v1.0.1.3 : Improved : Exposed Font property\r\n  //v1.0.2.0 : New : Support for high dpi\r\n\r\ntype\r\n  TTMSFNCTimePickerMode = (tpmAnalog, tpmDigital);\r\n\r\n  TTMSFNCCustomAnalogTimePickerTimeSelectedEvent = procedure(Sender: TObject; ATime: TTime) of object;\r\n\r\n  TTMSFNCCustomAnalogTimePicker = class(TTMSFNCDefaultPicker)\r\n  private\r\n    FPrevSelTime: TTime;\r\n    FWrapper: TTMSFNCCustomSelector;\r\n    FTimeSelector: TTMSFNCAnalogTimeSelector;\r\n    FCloseOnSelection: Boolean;\r\n    FOnTimeSelected: TTMSFNCCustomAnalogTimePickerTimeSelectedEvent;\r\n    FMode: TTMSFNCTimePickerMode;\r\n    FTimeFormat: string;\r\n    FAllowNumericNullValue: Boolean;\r\n    FFont: TTMSFNCGraphicsFont;\r\n    procedure SetSelectedTime(const Value: TTime);\r\n    procedure SetAnalogTimeSelectorAppearance(const Value: TTMSFNCAnalogTimeSelectorAppearance);\r\n    procedure SetMode(const Value: TTMSFNCTimePickerMode);\r\n    procedure SetTimeFormat(const Value: string);\r\n    procedure SetAllowNumericNullValue(const Value: Boolean);\r\n    function GetSelectedTime: TTime;\r\n    function GetAnalogTimeSelectorAppearance: TTMSFNCAnalogTimeSelectorAppearance;\r\n    function IsTimeFormatStored: Boolean;\r\n    procedure SetFnt(const Value: TTMSFNCGraphicsFont);\r\n  protected\r\n    procedure ChangeDPIScale(M, D: Integer); override;\r\n    procedure FontChange(Sender: TObject);\r\n    procedure SetEditable(const Value: Boolean); override;\r\n    procedure UpdateEditText(AText: string); override;\r\n    procedure Loaded; override;\r\n    procedure SetGraphicColors; override;\r\n    procedure SetAdaptToStyle(const Value: Boolean); override;\r\n    procedure InitializePopup; override;\r\n    procedure DrawContent(AGraphics: TTMSFNCGraphics; ARect: TRectF); override;\r\n    procedure SelectFirstValue; override;\r\n    procedure SelectLastValue; override;\r\n    procedure SelectNextValue; override;\r\n    procedure SelectPreviousValue; override;\r\n    procedure EditUp; override;\r\n    procedure EditDown; override;\r\n    procedure DoSelectTime; virtual;\r\n    procedure TimeSelected(Sender: TObject; ATime: TTime);\r\n    function GetVersion: string; override;\r\n    function CreateSelector: TTMSFNCCustomSelector; override;\r\n    function GetFocusedControl: TControl; override;\r\n    property AllowNumericNullValue: Boolean read FAllowNumericNullValue write SetAllowNumericNullValue default True;\r\n    property TimeFormat: string read FTimeFormat write SetTimeFormat stored IsTimeFormatStored nodefault;\r\n    property Mode: TTMSFNCTimePickerMode read FMode write SetMode default tpmAnalog;\r\n    property Font: TTMSFNCGraphicsFont read FFont write SetFnt;\r\n    property CloseOnSelection: Boolean read FCloseOnSelection write FCloseOnSelection default False;\r\n    property SelectedTime: TTime read GetSelectedTime write SetSelectedTime;\r\n    property OnTimeSelected: TTMSFNCCustomAnalogTimePickerTimeSelectedEvent read FOnTimeSelected write FOnTimeSelected;\r\n    property SelectorAppearance: TTMSFNCAnalogTimeSelectorAppearance read GetAnalogTimeSelectorAppearance write SetAnalogTimeSelectorAppearance;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure Clear;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCAnalogTimePicker = class(TTMSFNCCustomAnalogTimePicker)\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n  published\r\n    property AllowNumericNullValue;\r\n    property Editable;\r\n    property DropDownWidth;\r\n    property DropDownHeight;\r\n    property Font;\r\n    property CloseOnSelection;\r\n    property SelectorAppearance;\r\n    property SelectedTime;\r\n    property TimeFormat;\r\n    property Mode;\r\n    property OnTimeSelected;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  DateUtils\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Edit\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  , VCL.Graphics\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TCustomEditProtected = class(TCustomEdit);\r\n  TTMSFNCAnalogTimePickerOpen = class(TTMSFNCAnalogTimePicker);\r\n\r\n{ TTMSFNCCustomTimePicker }\r\n\r\nprocedure TTMSFNCCustomAnalogTimePicker.ChangeDPIScale(M, D: Integer);\r\nbegin\r\n  inherited;\r\n  BeginUpdate;\r\n  Font.Height := TTMSFNCUtils.MulDivInt(Font.Height, M, D);\r\n  {$IFDEF VCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION >= 33}\r\n  FTimeSelector.ScaleForPPI(CurrentPPI);\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimePicker.Clear;\r\nbegin\r\n  SelectedTime := 0.0;\r\nend;\r\n\r\nconstructor TTMSFNCCustomAnalogTimePicker.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FTimeFormat := 'hh:nn:ss';\r\n  FCloseOnSelection := False;\r\n  FAllowNumericNullValue := True;\r\n  Width := 90;\r\n  FFont := TTMSFNCGraphicsFont.Create;\r\n  FFont.OnChanged := @FontChange;\r\n  DropDownHeight := 180;\r\n  DropDownWidth := 180;\r\n  {$IFDEF FMXLIB}\r\n  Edit.StyledSettings := TCustomEditProtected(Edit).StyledSettings - [TStyledSetting.Family, TStyledSetting.Size, TStyledSetting.Style];\r\n  {$IFDEF ANDROID}\r\n  Edit.TextSettings.VertAlign := TTextAlign.Leading;\r\n  {$ENDIF}\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCCustomAnalogTimePicker.CreateSelector: TTMSFNCCustomSelector;\r\nbegin\r\n  FWrapper := TTMSFNCCustomSelector.Create(Self);\r\n  FTimeSelector := TTMSFNCAnalogTimeSelector.Create(FWrapper);\r\n  FTimeSelector.Parent := FWrapper;\r\n\r\n  FTimeSelector.OnTimeChanged := TimeSelected;\r\n\r\n  Result := FWrapper;\r\nend;\r\n\r\ndestructor TTMSFNCCustomAnalogTimePicker.Destroy;\r\nbegin\r\n  FFont.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimePicker.DoSelectTime;\r\nbegin\r\n  if Assigned(OnTimeSelected) then\r\n    OnTimeSelected(Self, SelectedTime);\r\n\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimePicker.DrawContent(AGraphics: TTMSFNCGraphics;\r\n  ARect: TRectF);\r\nvar\r\n  r: TRectF;\r\nbegin\r\n  inherited;\r\n  if not Editable then\r\n  begin\r\n    AGraphics.Font.AssignSource(Font);\r\n\r\n    if not Enabled then\r\n      AGraphics.Font.Color := gcSilver;\r\n\r\n    r := ARect;\r\n    InflateRectEx(r, -3, -3);\r\n    AGraphics.DrawText(r, Content);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimePicker.EditDown;\r\nbegin\r\n  inherited;\r\n  if not Popup.IsOpen then\r\n    Dropdown;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimePicker.EditUp;\r\nbegin\r\n  inherited;\r\n  if Popup.IsOpen then\r\n    Dropdown;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimePicker.FontChange(Sender: TObject);\r\nbegin\r\n  Invalidate;\r\nend;\r\n\r\nfunction TTMSFNCCustomAnalogTimePicker.GetAnalogTimeSelectorAppearance: TTMSFNCAnalogTimeSelectorAppearance;\r\nbegin\r\n  Result := FTimeSelector.Appearance;\r\nend;\r\n\r\nfunction TTMSFNCCustomAnalogTimePicker.GetFocusedControl: TControl;\r\nbegin\r\n  Result := FTimeSelector;\r\nend;\r\n\r\nfunction TTMSFNCCustomAnalogTimePicker.GetSelectedTime: TTime;\r\nbegin\r\n  Result := FTimeSelector.Time\r\nend;\r\n\r\nfunction TTMSFNCCustomAnalogTimePicker.GetVersion: string;\r\nbegin\r\n  Result := GetVersionNumber(MAJ_VER, MIN_VER, REL_VER, BLD_VER);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimePicker.InitializePopup;\r\nvar\r\n  t: TDateTime;\r\nbegin\r\n  inherited;\r\n  if Editable and Assigned(Edit.Parent) and Edit.Visible then\r\n  begin\r\n    t := SelectedTime;\r\n    if TryStrToTime(Edit.Text, t) then\r\n      SelectedTime := t;\r\n  end;\r\n\r\n  FTimeSelector.Initialize;\r\n  FTimeSelector.Width := Round(DropDownWidth);\r\n  FTimeSelector.Height := Round(DropDownHeight);\r\n  FTimeSelector.Fill.Assign(SelectorAppearance.Fill);\r\nend;\r\n\r\nfunction TTMSFNCCustomAnalogTimePicker.IsTimeFormatStored: Boolean;\r\nbegin\r\n  Result := FTimeFormat <> 'hh:nn:ss';\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimePicker.Loaded;\r\nbegin\r\n  inherited;\r\n  FTimeSelector.Width := Round(DropDownWidth);\r\n  FTimeSelector.Height := Round(DropDownHeight);\r\n  {$IFDEF VCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION >= 33}\r\n  TTMSFNCAnalogTimePickerOpen(FTimeSelector).ChangeDPIScale(96, DesigntimeFormPixelsPerInch);\r\n  FTimeSelector.ScaleForPPI(CurrentPPI);\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimePicker.SelectFirstValue;\r\nvar\r\n  h, m, s, ms: Word;\r\nbegin\r\n  inherited;\r\n  DecodeTime(SelectedTime, h, m, s, ms);\r\n  FTimeSelector.Time := EncodeTime(h, 0, 0, 0);\r\n  DoSelectTime;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimePicker.SelectLastValue;\r\nvar\r\n  h, m, s, ms: Word;\r\nbegin\r\n  inherited;\r\n  DecodeTime(SelectedTime, h, m, s, ms);\r\n  FTimeSelector.Time := EncodeTime(h, 59, 0, 0);\r\n  DoSelectTime;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimePicker.SelectNextValue;\r\nbegin\r\n  inherited;\r\n  FTimeSelector.Time := IncMinute(SelectedTime, 1);\r\n  DoSelectTime;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimePicker.SelectPreviousValue;\r\nbegin\r\n  inherited;\r\n  FTimeSelector.Time := IncMinute(SelectedTime, -1);\r\n  DoSelectTime;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimePicker.SetAdaptToStyle(const Value: Boolean);\r\nbegin\r\n  inherited;\r\n  if Assigned(FWrapper) then\r\n    FWrapper.AdaptToStyle := AdaptToStyle;\r\n  if Assigned(FTimeSelector) then\r\n    FTimeSelector.AdaptToStyle := AdaptToStyle;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimePicker.SetAllowNumericNullValue(\r\n  const Value: Boolean);\r\nbegin\r\n  if FAllowNumericNullValue <> Value then\r\n  begin\r\n    FAllowNumericNullValue := Value;\r\n    if FAllowNumericNullValue and (Frac(SelectedTime) = 0.0) then\r\n      Content := ''\r\n    else\r\n      Content := FormatDateTime(TimeFormat, SelectedTime);\r\n\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimePicker.SetAnalogTimeSelectorAppearance(\r\n  const Value: TTMSFNCAnalogTimeSelectorAppearance);\r\nbegin\r\n  FTimeSelector.Appearance.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimePicker.SetEditable(const Value: Boolean);\r\nbegin\r\n  inherited;\r\n  if FAllowNumericNullValue and (Frac(FPrevSelTime) = 0.0) then\r\n    Content := ''\r\n  else\r\n    Content := FormatDateTime(TimeFormat, FPrevSelTime);\r\n\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimePicker.SetFnt(\r\n  const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FFont.AssignSource(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimePicker.SetGraphicColors;\r\nbegin\r\n  inherited;\r\n  TTMSFNCGraphics.DefaultPopupFillColor := SelectorAppearance.Fill.Color;\r\n  TTMSFNCGraphics.DefaultPopupStrokeColor := SelectorAppearance.Stroke.Color;\r\n  TTMSFNCGraphics.DefaultButtonFillColor := SelectorAppearance.Fill.Color;\r\n  TTMSFNCGraphics.DefaultButtonStrokeColor := SelectorAppearance.Stroke.Color;\r\n  TTMSFNCGraphics.DefaultButtonFillColorFocused := Lighter(SelectorAppearance.Fill.Color, 20);\r\n  TTMSFNCGraphics.DefaultButtonStrokeColorFocused := Lighter(SelectorAppearance.Stroke.Color, 20);\r\n  TTMSFNCGraphics.DefaultButtonStrokeColorDisabled := gcDarkGray;\r\n  TTMSFNCGraphics.DefaultButtonFillColorDisabled := gcLightgray;\r\n  TTMSFNCGraphics.DefaultTextFontColor := Font.Color;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimePicker.SetMode(const Value: TTMSFNCTimePickerMode);\r\nbegin\r\n  if FMode <> Value then\r\n  begin\r\n    FMode := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimePicker.SetSelectedTime(const Value: TTime);\r\nbegin\r\n  if FAllowNumericNullValue and (Frac(Value) = 0.0) then\r\n    Content := ''\r\n  else\r\n    Content := FormatDateTime(TimeFormat, Value);\r\n\r\n  FPrevSelTime := Value;\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimePicker.SetTimeFormat(const Value: string);\r\nbegin\r\n  if FTimeFormat <> Value then\r\n  begin\r\n    FTimeFormat := Value;\r\n    Content := FormatDateTime(TimeFormat, SelectedTime);\r\n    Invalidate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimePicker.TimeSelected(Sender: TObject; ATime: TTime);\r\nbegin\r\n  if Editable and Edit.IsFocused then\r\n    PreventDropDown := True;\r\n\r\n  if CloseOnSelection then\r\n    DropDown;\r\n\r\n  if Assigned(OnTimeSelected) then\r\n    OnTimeSelected(Self, ATime);\r\n\r\n  SelectedTime := ATime;\r\n\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomAnalogTimePicker.UpdateEditText(AText: string);\r\nvar\r\n  t: TDateTime;\r\nbegin\r\n  inherited;\r\n  if AText = '' then\r\n  begin\r\n    if (0.0 <> FPrevSelTime) then\r\n    begin\r\n      FTimeSelector.Time := 0.0;\r\n      DoSelectTime;\r\n    end;\r\n  end\r\n  else if TryStrToTime(AText, t) then\r\n  begin\r\n    if (Frac(t) <> SelectedTime) then\r\n    begin\r\n      FTimeSelector.Time := Frac(t);\r\n      DoSelectTime;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCTimePicker }\r\n\r\nprocedure TTMSFNCAnalogTimePicker.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClass(TTMSFNCAnalogTimePicker);\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : https://www.tmssoftware.com                       }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCDateTimePicker;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF CMNLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\n{$DEFINE CMNWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, Types,\r\n  {$IFDEF FMXLIB}\r\n  FMX.Types, FMX.DateTimeCtrls,\r\n  {$ENDIF}\r\n  WEBLib.TMSFNCCustomControl, WEBLib.TMSFNCTypes, WEBLib.TMSFNCDatePicker,\r\n  WEBLib.TMSFNCDigitalTimePicker, WEBLib.TMSFNCAnalogTimePicker, WEBLib.TMSFNCGraphicsTypes,\r\n  WEBLib.TMSFNCGraphics, WEBLib.TMSFNCUtils, WEBLib.TMSFNCStyles;\r\n\r\n  const\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 0; // Minor version nr.\r\n  REL_VER = 2; // Release nr.\r\n  BLD_VER = 0; // Build nr.\r\n\r\n  //Version history\r\n  //v1.0.0.0 : First Release\r\n  //v1.0.1.0 : New : Property AllowNumericNullValue added\r\n  //         : New : Method Clear added\r\n  //         : Fixed : Issue with OnDateTimeSelected event\r\n  //v1.0.1.1 : Fixed : Issue with incorrect time selection\r\n  //v1.0.1.2 : Fixed : Issue with control color in disabled state\r\n  //v1.0.1.3 : Fixed : Issue with OnDateTimeSelected event after dropdown close\r\n  //v1.0.2.0 : New : Added property Native for FMX\r\n\r\ntype\r\n  TTMSFNCDateTimePickerMode = (dtpmAnalog, dtpmDigital);\r\n\r\n  TTMSFNCCustomDateTimePickerDateTimeChangedEvent = procedure(Sender: TObject; ADateTime: TDateTime) of object;\r\n\r\n  TTMSFNCCustomDateTimePicker = class(TTMSFNCCustomControl, ITMSFNCStylesManager)\r\n  private\r\n    FDatePicker: TTMSFNCDatePicker;\r\n    FDigitalTimePicker: TTMSFNCDigitalTimePicker;\r\n    FOnDateTimeChanged: TTMSFNCCustomDateTimePickerDateTimeChangedEvent;\r\n    FEditable: Boolean;\r\n    FTimePickerMode: TTMSFNCDateTimePickerMode;\r\n    FCloseOnSelection: Boolean;\r\n    FAnalogTimePicker: TTMSFNCAnalogTimePicker;\r\n    FAllowNumericNullValue: Boolean;\r\n    {$IFDEF FMXLIB}\r\n    FNative: Boolean;\r\n    FDateEdit: TDateEdit;\r\n    FTimeEdit: TTimeEdit;\r\n    procedure SetNative(const Value: Boolean);\r\n    {$ENDIF}\r\n    procedure SetSelectedDateTime(const Value: TDateTime);\r\n    procedure SetEditable(const Value: Boolean);\r\n    procedure SetTimePickerMode(const Value: TTMSFNCDateTimePickerMode);\r\n    procedure SetCloseOnSelection(const Value: Boolean);\r\n    procedure SetAllowNumericNullValue(const Value: Boolean);\r\n    function GetSelectedDateTime: TDateTime;\r\n  protected\r\n    procedure Loaded; override;\r\n    {$IFDEF FMXLIB}\r\n    procedure DateEditChanged(Sender: TObject);\r\n    procedure TimeEditChanged(Sender: TObject);\r\n    procedure SetEnabled(const Value: Boolean); override;\r\n    {$ENDIF}\r\n    {$IFDEF CMNWEBLIB}\r\n    procedure SetEnabled(Value: Boolean); override;\r\n    {$ENDIF}\r\n    procedure UpdateControlAfterResize; override;\r\n    procedure SetAdaptToStyle(const Value: Boolean); override;\r\n    procedure DateSelected(Sender: TObject; ADate: TDate);\r\n    procedure TimeSelected(Sender: TObject; ATime: TTime);\r\n    procedure DoDateTimeChanged(ADateTime: TDateTime); virtual;\r\n    procedure ChangeMode(AMode: TTMSFNCDateTimePickerMode);\r\n    function GetVersion: string; override;\r\n    function GetSubComponentArray: TTMSFNCStylesManagerComponentArray;\r\n    property AllowNumericNullValue: Boolean read FAllowNumericNullValue write SetAllowNumericNullValue default True;\r\n    property Editable: Boolean read FEditable write SetEditable default False;\r\n    property CloseOnSelection: Boolean read FCloseOnSelection write SetCloseOnSelection default True;\r\n    property TimePickerMode: TTMSFNCDateTimePickerMode read FTimePickerMode write SetTimePickerMode default dtpmDigital;\r\n    property SelectedDateTime: TDateTime read GetSelectedDateTime write SetSelectedDateTime;\r\n    {$IFDEF FMXLIB}\r\n    property Native: Boolean read FNative write SetNative default False;\r\n    {$ENDIF}\r\n    property OnDateTimeChanged: TTMSFNCCustomDateTimePickerDateTimeChangedEvent read FOnDateTimeChanged write FOnDateTimeChanged;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure Clear;\r\n    property DatePicker: TTMSFNCDatePicker read FDatePicker;\r\n    property AnalogTimePicker: TTMSFNCAnalogTimePicker read FAnalogTimePicker;\r\n    property DigitalTimePicker: TTMSFNCDigitalTimePicker read FDigitalTimePicker;\r\n    {$IFDEF FMXLIB}\r\n    property DateEdit: TDateEdit read FDateEdit;\r\n    property TimeEdit: TTimeEdit read FTimeEdit;\r\n    {$ENDIF}\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCDateTimePicker = class(TTMSFNCCustomDateTimePicker)\r\n    property AllowNumericNullValue;\r\n    property Editable;\r\n    property CloseOnSelection;\r\n    {$IFDEF FMXLIB}\r\n    property Native;\r\n    {$ENDIF}\r\n    property TimePickerMode;\r\n    property SelectedDateTime;\r\n    property OnDateTimeChanged;\r\n  end;\r\n\r\nimplementation\r\n\r\n{$IFDEF FMXLIB}\r\nuses\r\n  SysUtils;\r\n{$ENDIF}\r\n\r\n{ TTMSFNCCustomDateTimePicker }\r\n\r\nprocedure TTMSFNCCustomDateTimePicker.ChangeMode(\r\n  AMode: TTMSFNCDateTimePickerMode);\r\nvar\r\n  t: TTime;\r\nbegin\r\n  if AMode = dtpmAnalog then\r\n  begin\r\n    t := 0;\r\n    if Assigned(FDigitalTimePicker) then\r\n    begin\r\n      t := FDigitalTimePicker.SelectedTime;\r\n      FDigitalTimePicker.Parent := nil;\r\n    end;\r\n\r\n    if not Assigned(FAnalogTimePicker) then\r\n      FAnalogTimePicker := TTMSFNCAnalogTimePicker.Create(Self);\r\n\r\n    FAnalogTimePicker.Parent := Self;\r\n    {$IFDEF FMXLIB}\r\n    FAnalogTimePicker.Stored := False;\r\n    {$ENDIF}\r\n    FAnalogTimePicker.Width := Round(Width / 2);\r\n    FAnalogTimePicker.ControlAlignment := caRight;\r\n    FAnalogTimePicker.SelectedTime := t;\r\n    FAnalogTimePicker.Editable := FEditable;\r\n    FAnalogTimePicker.CloseOnSelection := FCloseOnSelection;\r\n    FAnalogTimePicker.OnTimeSelected := TimeSelected;\r\n  end\r\n  else if AMode = dtpmDigital then\r\n  begin\r\n    t := 0;\r\n    if Assigned(FAnalogTimePicker) then\r\n    begin\r\n      t := FAnalogTimePicker.SelectedTime;\r\n      FAnalogTimePicker.Parent := nil;\r\n    end;\r\n\r\n    if not Assigned(FDigitalTimePicker) then\r\n      FDigitalTimePicker := TTMSFNCDigitalTimePicker.Create(Self);\r\n\r\n    FDigitalTimePicker.Parent := Self;\r\n    {$IFDEF FMXLIB}\r\n    FDigitalTimePicker.Stored := False;\r\n    {$ENDIF}\r\n    FDigitalTimePicker.Width := Round(Width / 2);\r\n    FDigitalTimePicker.ControlAlignment := caRight;\r\n    FDigitalTimePicker.SelectedTime := t;\r\n    FDigitalTimePicker.Editable := FEditable;\r\n    FDigitalTimePicker.CloseOnSelection := FCloseOnSelection;\r\n    FDigitalTimePicker.OnTimeSelected := TimeSelected;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDateTimePicker.Clear;\r\nbegin\r\n  FDatePicker.Clear;\r\n\r\n  if Assigned(FDigitalTimePicker) then\r\n    FDigitalTimePicker.Clear;\r\n\r\n  if Assigned(FAnalogTimePicker) then\r\n    FAnalogTimePicker.Clear;\r\n\r\n  {$IFDEF FMXLIB}\r\n  if Assigned(FDateEdit) then\r\n    FDateEdit.Date := 0;\r\n\r\n  if Assigned(FTimeEdit) then\r\n    FTimeEdit.Time := 0;\r\n  {$ENDIF}\r\nend;\r\n\r\nconstructor TTMSFNCCustomDateTimePicker.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  Width := 180;\r\n  Height := 22;\r\n  FEditable := False;\r\n  FCloseOnSelection := True;\r\n  FAllowNumericNullValue := True;\r\n  FTimePickerMode := dtpmDigital;\r\n  Fill.Color := MakeGraphicsColor(169, 169, 169);\r\n  Stroke.Color := MakeGraphicsColor(169, 169, 169);\r\n\r\n  FDatePicker := TTMSFNCDatePicker.Create(Self);\r\n  FDatePicker.Parent := Self;\r\n  {$IFDEF FMXLIB}\r\n  FDatePicker.Stored := False;\r\n  {$ENDIF}\r\n  FDatePicker.ControlAlignment := caLeft;\r\n  FDatePicker.Editable := FEditable;\r\n\r\n  FDigitalTimePicker := TTMSFNCDigitalTimePicker.Create(Self);\r\n  FDigitalTimePicker.Parent := Self;\r\n  {$IFDEF FMXLIB}\r\n  FDigitalTimePicker.Stored := False;\r\n  {$ENDIF}\r\n  FDigitalTimePicker.ControlAlignment := caRight;\r\n  FDigitalTimePicker.Editable := FEditable;\r\n\r\n  FAnalogTimePicker := nil;\r\n\r\n  FDatePicker.OnDateSelected := DateSelected;\r\n  FDigitalTimePicker.OnTimeSelected := TimeSelected;\r\n\r\n  {$IFDEF FMXLIB}\r\n  FNative := False;\r\n  FDateEdit := nil;\r\n  FTimeEdit := nil;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomDateTimePicker.DateSelected(Sender: TObject;\r\n  ADate: TDate);\r\nbegin\r\n  DoDateTimeChanged(SelectedDateTime);\r\n//  if (FTimePickerMode = dtpmDigital) and Assigned(FDigitalTimePicker) then\r\n//  begin\r\n    //SelectedDateTime := ADate + FDigitalTimePicker.SelectedTime;\r\n//    DoDateTimeChanged(SelectedDateTime);\r\n//  end\r\n//  else if (FTimePickerMode = dtpmAnalog) and Assigned(FAnalogTimePicker) then\r\n//  begin\r\n    //SelectedDateTime := ADate + FAnalogTimePicker.SelectedTime;\r\n//    DoDateTimeChanged(SelectedDateTime);\r\n//  end;\r\nend;\r\n\r\ndestructor TTMSFNCCustomDateTimePicker.Destroy;\r\nbegin\r\n  FDatePicker.Free;\r\n\r\n  if Assigned(FDigitalTimePicker) then\r\n    FDigitalTimePicker.Free;\r\n\r\n  if Assigned(FAnalogTimePicker) then\r\n    FAnalogTimePicker.Free;\r\n\r\n  {$IFDEF FMXLIB}\r\n  if Assigned(FDateEdit) then\r\n    FDateEdit.Free;\r\n\r\n  if Assigned(FTimeEdit) then\r\n    FTimeEdit.Free;\r\n  {$ENDIF}\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDateTimePicker.DoDateTimeChanged(ADateTime: TDateTime);\r\nbegin\r\n  if Assigned(OnDateTimeChanged) then\r\n    OnDateTimeChanged(Self, ADateTime);\r\nend;\r\n\r\nfunction TTMSFNCCustomDateTimePicker.GetSelectedDateTime: TDateTime;\r\nbegin\r\n  Result := 0.0;\r\n  if Assigned(FDatePicker) {$IFDEF FMXLIB}and not Native{$ENDIF} then\r\n  begin\r\n    if Assigned(FDigitalTimePicker) then\r\n      Result := FDatePicker.SelectedDate + FDigitalTimePicker.SelectedTime\r\n    else if Assigned(FAnalogTimePicker) then\r\n      Result := FDatePicker.SelectedDate + FAnalogTimePicker.SelectedTime\r\n  end\r\n  {$IFDEF FMXLIB}\r\n  else if Assigned(FDateEdit) and Native then\r\n  begin\r\n    Result := FDateEdit.Date + FTimeEdit.Time;\r\n  end{$ENDIF};\r\nend;\r\n\r\nfunction TTMSFNCCustomDateTimePicker.GetSubComponentArray: TTMSFNCStylesManagerComponentArray;\r\nvar\r\n  arr: TTMSFNCStylesManagerComponentArray;\r\n  m: TTMSFNCDateTimePickerMode;\r\nbegin\r\n  SetLength(arr, 3);\r\n  if not Assigned(FAnalogTimePicker) then\r\n  begin\r\n    m := TimePickerMode;\r\n    TimePickerMode := dtpmAnalog;\r\n    TimePickerMode := m;\r\n  end;\r\n\r\n  arr[0] := FDatePicker;\r\n  arr[1] := FDigitalTimePicker;\r\n  arr[2] := FAnalogTimePicker;\r\n\r\n  Result := arr;\r\nend;\r\n\r\nfunction TTMSFNCCustomDateTimePicker.GetVersion: string;\r\nbegin\r\n  Result := GetVersionNumber(MAJ_VER, MIN_VER, REL_VER, BLD_VER);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDateTimePicker.Loaded;\r\nbegin\r\n  inherited;\r\n  {$IFDEF VCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF (COMPILERVERSION >= 33) AND (COMPILERVERSION < 36)}\r\n  if Assigned(FDigitalTimePicker) then\r\n    FDigitalTimePicker.ScaleForPPI(CurrentPPI);\r\n\r\n  if Assigned(FAnalogTimePicker) then\r\n    FAnalogTimePicker.ScaleForPPI(CurrentPPI);\r\n\r\n  FDatePicker.ScaleForPPI(CurrentPPI);\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n\r\nend;\r\n\r\nprocedure TTMSFNCCustomDateTimePicker.SetAdaptToStyle(const Value: Boolean);\r\nbegin\r\n  inherited;\r\n  if Assigned(FDatePicker) then\r\n    FDatePicker.AdaptToStyle := Value;\r\n\r\n  if Assigned(FDigitalTimePicker) then\r\n    FDigitalTimePicker.AdaptToStyle := Value;\r\n\r\n  if Assigned(FAnalogTimePicker) then\r\n    FAnalogTimePicker.AdaptToStyle := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDateTimePicker.SetAllowNumericNullValue(\r\n  const Value: Boolean);\r\nbegin\r\n  if FAllowNumericNullValue <> Value then\r\n  begin\r\n    FAllowNumericNullValue := Value;\r\n\r\n    if Assigned(FDatePicker) then\r\n      FDatePicker.AllowNumericNullValue := Value;\r\n\r\n    if Assigned(FDigitalTimePicker) then\r\n      FDigitalTimePicker.AllowNumericNullValue := Value;\r\n\r\n    if Assigned(FAnalogTimePicker) then\r\n      FAnalogTimePicker.AllowNumericNullValue := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDateTimePicker.SetCloseOnSelection(const Value: Boolean);\r\nbegin\r\n  if FCloseOnSelection <> Value then\r\n  begin\r\n    FCloseOnSelection := Value;\r\n\r\n    if Assigned(FDatePicker) then\r\n      FDatePicker.CloseOnSelection := Value;\r\n\r\n    if Assigned(FDigitalTimePicker) then\r\n      FDigitalTimePicker.CloseOnSelection := Value;\r\n\r\n    if Assigned(FAnalogTimePicker) then\r\n      FAnalogTimePicker.CloseOnSelection := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDateTimePicker.SetEditable(const Value: Boolean);\r\nbegin\r\n  if FEditable <> Value then\r\n  begin\r\n    FEditable := Value;\r\n    if Assigned(FDatePicker) then\r\n      FDatePicker.Editable := Value;\r\n\r\n    if Assigned(FDigitalTimePicker) then\r\n      FDigitalTimePicker.Editable := Value;\r\n\r\n    if Assigned(FAnalogTimePicker) then\r\n      FAnalogTimePicker.Editable := Value;\r\n  end;\r\nend;\r\n\r\n{$IFDEF FMXLIB}\r\nprocedure TTMSFNCCustomDateTimePicker.DateEditChanged(Sender: TObject);\r\nbegin\r\n  DoDateTimeChanged(FDateEdit.Date + FTimeEdit.Time);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDateTimePicker.TimeEditChanged(Sender: TObject);\r\nbegin\r\n  DoDateTimeChanged(FDateEdit.Date + FTimeEdit.Time);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDateTimePicker.SetNative(const Value: Boolean);\r\nvar\r\n  d: TDate;\r\n  t: TTime;\r\nbegin\r\n  if FNative <> Value then\r\n  begin\r\n    FNative := Value;\r\n\r\n    d := Date;\r\n    t := Time;\r\n    if FNative then\r\n    begin\r\n      //Date\r\n      if Assigned(FDatePicker) then\r\n      begin\r\n        d := FDatePicker.SelectedDate;\r\n        FDatePicker.Parent := nil;\r\n      end;\r\n\r\n      if not Assigned(FDateEdit) then\r\n        FDateEdit := TDateEdit.Create(Self);\r\n\r\n      FDateEdit.Parent := Self;\r\n      FDateEdit.Stored := False;\r\n      FDateEdit.Date := d;\r\n      FDateEdit.Width := Width / 2;\r\n      FDateEdit.Align := TAlignLayout.Left;\r\n      FDateEdit.OnChange := @DateEditChanged;\r\n\r\n      //Time\r\n      if Assigned(FAnalogTimePicker) and (TimePickerMode = dtpmAnalog) then\r\n      begin\r\n        t := FAnalogTimePicker.SelectedTime;\r\n        FAnalogTimePicker.Parent := nil;\r\n      end;\r\n\r\n      if Assigned(FDigitalTimePicker) and (TimePickerMode = dtpmDigital) then\r\n      begin\r\n        t := FDigitalTimePicker.SelectedTime;\r\n        FDigitalTimePicker.Parent := nil;\r\n      end;\r\n\r\n      if not Assigned(FTimeEdit) then\r\n        FTimeEdit := TTimeEdit.Create(Self);\r\n\r\n      FTimeEdit.Parent := Self;\r\n      FTimeEdit.Stored := False;\r\n      FTimeEdit.Time := t;\r\n      FTimeEdit.Width := Width / 2;\r\n      FTimeEdit.Align := TAlignLayout.Right;\r\n      FTimeEdit.OnChange := @TimeEditChanged;\r\n    end\r\n    else\r\n    begin\r\n      //Date:\r\n      if Assigned(FDateEdit) then\r\n      begin\r\n        d := FDateEdit.Date;\r\n        FDateEdit.Parent := nil;\r\n      end;\r\n\r\n      if not Assigned(FDatePicker) then\r\n        FDatePicker := TTMSFNCDatePicker.Create(Self);\r\n\r\n      FDatePicker.Parent := Self;\r\n      FDatePicker.Stored := False;\r\n      FDatePicker.SelectedDate := d;\r\n      FDatePicker.Width := Width / 2;\r\n      FDatePicker.Align := TAlignLayout.Left;\r\n      FDatePicker.OnDateSelected := DateSelected;\r\n\r\n      //Time:\r\n      if Assigned(FTimeEdit) then\r\n      begin\r\n        t := FTimeEdit.Time;\r\n        FTimeEdit.Parent := nil;\r\n      end;\r\n\r\n      if TimePickerMode = dtpmAnalog then\r\n      begin\r\n        ChangeMode(dtpmAnalog);\r\n        FAnalogTimePicker.SelectedTime := t;\r\n      end\r\n      else if TimePickerMode = dtpmDigital then\r\n      begin\r\n        ChangeMode(dtpmDigital);\r\n        FDigitalTimePicker.SelectedTime := t;\r\n      end;\r\n    end\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDateTimePicker.SetEnabled(const Value: Boolean);\r\n{$ENDIF}\r\n{$IFDEF CMNWEBLIB}\r\nprocedure TTMSFNCCustomDateTimePicker.SetEnabled(Value: Boolean);\r\n{$ENDIF}\r\nbegin\r\n  inherited;\r\n  if Assigned(FDatePicker) then\r\n    FDatePicker.Enabled := Value;\r\n\r\n  if Assigned(FDigitalTimePicker) then\r\n    FDigitalTimePicker.Enabled := Value;\r\n\r\n  if Assigned(FAnalogTimePicker) then\r\n    FAnalogTimePicker.Enabled := Value;\r\n\r\n  {$IFDEF FMXLIB}\r\n  if Assigned(FDateEdit) then\r\n    FDateEdit.Enabled := Value;\r\n\r\n  if Assigned(FTimeEdit) then\r\n    FTimeEdit.Enabled := Value;\r\n  {$ENDIF}\r\n\r\n  Invalidate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDateTimePicker.SetSelectedDateTime(\r\n  const Value: TDateTime);\r\nvar\r\n  tpv: TDateTime;\r\nbegin\r\n  if Assigned(FDatePicker) then\r\n  begin\r\n    tpv := 0.0;\r\n    FDatePicker.SelectedDate := Int(Value);\r\n\r\n    {$IFDEF FMXLIB}\r\n    if Assigned(FDateEdit) then\r\n      FDateEdit.Date := Int(Value);\r\n\r\n    if Assigned(FTimeEdit) then\r\n    begin\r\n      tpv := Frac(Value);\r\n      FTimeEdit.Time := Frac(tpv);\r\n    end;\r\n    {$ENDIF}\r\n\r\n    if Assigned(FDigitalTimePicker) then\r\n    begin\r\n      tpv := Frac(Value);\r\n      FDigitalTimePicker.SelectedTime := Frac(tpv);\r\n    end;\r\n\r\n    if Assigned(FAnalogTimePicker) then\r\n    begin\r\n      tpv := Frac(Value);\r\n      FAnalogTimePicker.SelectedTime := Frac(tpv);\r\n    end;\r\n\r\n    if (FDatePicker.SelectedDate + tpv) <> Value then\r\n      DoDateTimeChanged(Value);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDateTimePicker.SetTimePickerMode(\r\n  const Value: TTMSFNCDateTimePickerMode);\r\nbegin\r\n  if (FTimePickerMode <> Value) {$IFDEF FMXLIB}and not Native{$ENDIF} then\r\n  begin\r\n    FTimePickerMode := Value;\r\n//    if IsDesignTime then\r\n      ChangeMode(Value);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDateTimePicker.TimeSelected(Sender: TObject;\r\n  ATime: TTime);\r\nbegin\r\n  //SelectedDateTime := FDatePicker.SelectedDate + ATime;\r\n  DoDateTimeChanged(SelectedDateTime);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDateTimePicker.UpdateControlAfterResize;\r\nbegin\r\n  inherited;\r\n  if Assigned(FDatePicker) then\r\n    FDatePicker.Width := Round(Width / 2);\r\n\r\n  if Assigned(FDigitalTimePicker) then\r\n    FDigitalTimePicker.Width := Round(Width / 2);\r\n\r\n  if Assigned(FAnalogTimePicker) then\r\n    FAnalogTimePicker.Width := Round(Width / 2);\r\n\r\n  {$IFDEF FMXLIB}\r\n  if Assigned(FDateEdit) then\r\n    FDateEdit.Width := Width / 2;\r\n\r\n  if Assigned(FTimeEdit) then\r\n    FTimeEdit.Width := Width / 2;\r\n  {$ENDIF}\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2021                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCWebBrowser.WEB;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\ninterface\r\n\r\nprocedure RegisterWebBrowserService;\r\nprocedure UnRegisterWebBrowserService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, SysUtils, WEBLib.Controls, WEBLib.TMSFNCWebBrowser, WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes\r\n  {$IFDEF WEBLIB}\r\n  ,WEB\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCWEBWebBrowserService = class;\r\n\r\n  TTMSFNCWEBWebBrowserService = class(TTMSFNCWebBrowserFactoryService)\r\n  protected\r\n    function DoCreateWebBrowser(const AValue: TTMSFNCCustomWebBrowser): ITMSFNCCustomWebBrowser; override;\r\n    procedure DeleteCookies; override;\r\n  end;\r\n\r\n  TTMSFNCCustomWebBrowserProtected = class(TTMSFNCCustomWebBrowser);\r\n\r\n  TTMSFNCWEBWebBrowser = class(TInterfacedObject, ITMSFNCCustomWebBrowser)\r\n  private\r\n    {$IFDEF WEBLIB}\r\n    FCustomObjectMessage: Pointer;\r\n    FCustomBridge: string;\r\n    FCustomBridgeObject: TObject;\r\n    {$ENDIF}\r\n    FExternalBrowser: Boolean;\r\n    FURL: string;\r\n    FWebControl: TTMSFNCCustomWebBrowser;\r\n  protected\r\n    {$IFDEF WEBLIB}\r\n    function HandleDoCustomObjectMessage(Event: TJSEvent): Boolean; virtual;\r\n    procedure ClearMethodPointers;\r\n    procedure GetMethodPointers;\r\n    {$ENDIF}\r\n    function GetUserAgent: string;\r\n    procedure SetUserAgent(const Value: string);\r\n    procedure BeforeChangeParent;\r\n    procedure SetFocus;\r\n    procedure ClearFocus;\r\n    procedure SetCacheFolderName(const Value: string);\r\n    procedure SetCacheFolder(const Value: string);\r\n    procedure SetAutoClearCache(const Value: Boolean);\r\n    procedure SetURL(const AValue: string);\r\n    procedure SetExternalBrowser(const AValue: Boolean);\r\n    procedure SetEnableContextMenu(const AValue: Boolean);\r\n    procedure SetEnableShowDebugConsole(const AValue: Boolean);\r\n    procedure SetEnableAcceleratorKeys(const AValue: Boolean);\r\n    procedure ShowDebugConsole;\r\n    procedure Navigate(const AURL: string); overload;\r\n    procedure Navigate; overload;\r\n    procedure LoadHTML(AHTML: String);\r\n    procedure LoadFile(AFile: String);\r\n    procedure GoForward;\r\n    procedure GoBack;\r\n    procedure Close;\r\n    procedure Reload;\r\n    procedure StopLoading;\r\n    procedure UpdateVisible;\r\n    procedure UpdateEnabled;\r\n    procedure UpdateBounds;\r\n    procedure Initialize;\r\n    procedure ClearCache;\r\n    procedure AddBridge(ABridgeName: string; ABridgeObject: TObject);\r\n    procedure RemoveBridge(ABridgeName: string);\r\n    procedure CaptureScreenshot(ACompleteEvent: TTMSFNCWebBrowserCaptureScreenShotCompleteEvent = nil);\r\n    procedure DeInitialize;\r\n    function GetExternalBrowser: Boolean;\r\n    function GetEnableContextMenu: Boolean;\r\n    function GetEnableShowDebugConsole: Boolean;\r\n    function GetEnableAcceleratorKeys: Boolean;\r\n    function GetURL: string;\r\n    procedure ExecuteJavascript(AScript: String; ACompleteEvent: TTMSFNCWebBrowserJavaScriptCompleteEvent; ACallback: TNotifyEvent);\r\n    function BodyInnerHTML: string;\r\n    function DocumentReadyState: string;\r\n    function NativeEnvironment: Pointer;\r\n    function NativeBrowser: Pointer;\r\n    function GetBrowserInstance: IInterface;\r\n    function NativeDialog: Pointer;\r\n    function IsFMXBrowser: Boolean;\r\n    function CanGoBack: Boolean;\r\n    function CanGoForward: Boolean;\r\n    function GetCacheFolderName: string;\r\n    function GetAutoClearCache: Boolean;\r\n    function GetCacheFolder: string;\r\n    procedure UpdateContentFromControl;\r\n    property CacheFolderName: string read GetCacheFolderName write SetCacheFolderName;\r\n    property AutoClearCache: Boolean read GetAutoClearCache write SetAutoClearCache;\r\n    property CacheFolder: string read GetCacheFolder write SetCacheFolder;\r\n    property UserAgent: string read GetUserAgent write SetUserAgent;\r\n  public\r\n    constructor Create(const AWebControl: TTMSFNCCustomWebBrowser);\r\n  end;\r\n\r\nvar\r\n  WebBrowserService: ITMSFNCWebBrowserService;\r\n\r\nprocedure RegisterWebBrowserService;\r\nbegin\r\n  if not TTMSFNCWebBrowserPlatformServices.Current.SupportsPlatformService(ITMSFNCWebBrowserService, IInterface(WebBrowserService)) then\r\n  begin\r\n    WebBrowserService := TTMSFNCWEBWebBrowserService.Create;\r\n    TTMSFNCWebBrowserPlatformServices.Current.AddPlatformService(ITMSFNCWebBrowserService, WebBrowserService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterWebBrowserService;\r\nbegin\r\n  TTMSFNCWebBrowserPlatformServices.Current.RemovePlatformService(ITMSFNCWebBrowserService);\r\nend;\r\n\r\nfunction TTMSFNCWEBWebBrowser.GetBrowserInstance: IInterface;\r\nbegin\r\n  Result := nil;\r\nend;\r\n\r\nfunction TTMSFNCWEBWebBrowser.GetCacheFolder: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCWEBWebBrowser.GetCacheFolderName: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCWEBWebBrowser.GetAutoClearCache: Boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n\r\nfunction TTMSFNCWEBWebBrowser.GetExternalBrowser: Boolean;\r\nbegin\r\n  Result := FExternalBrowser;\r\nend;\r\n\r\nfunction TTMSFNCWEBWebBrowser.GetURL: string;\r\nbegin\r\n  Result := FURL;\r\nend;\r\n\r\nfunction TTMSFNCWEBWebBrowser.GetUserAgent: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.GoBack;\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.GoForward;\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.Initialize;\r\nbegin\r\nend;\r\n\r\nfunction TTMSFNCWEBWebBrowser.GetEnableAcceleratorKeys: Boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n\r\nfunction TTMSFNCWEBWebBrowser.GetEnableContextMenu: Boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n\r\nfunction TTMSFNCWEBWebBrowser.GetEnableShowDebugConsole: Boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.SetCacheFolder(const Value: string);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.SetCacheFolderName(const Value: string);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.SetAutoClearCache(const Value: Boolean);\r\nbegin\r\n\r\nend;\r\n\r\n{$IFDEF WEBLIB}\r\nprocedure TTMSFNCWEBWebBrowser.ClearMethodPointers;\r\nbegin\r\n  inherited;\r\n  FCustomObjectMessage := nil;\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.GetMethodPointers;\r\nbegin\r\n  inherited;\r\n  if FCustomObjectMessage = nil then\r\n    FCustomObjectMessage := @HandleDoCustomObjectMessage;\r\nend;\r\n\r\nfunction TTMSFNCWEBWebBrowser.HandleDoCustomObjectMessage(Event: TJSEvent): Boolean;\r\nvar\r\n  s, t: string;\r\n  b: ITMSFNCCustomWebBrowserBridge;\r\nbegin\r\n  asm\r\n    s = Event.detail;\r\n    t = Event.type;\r\n  end;\r\n\r\n  if Assigned(FCustomBridgeObject) and (t = FCustomBridge) and Supports(FCustomBridgeObject, ITMSFNCCustomWebBrowserBridge, b) then\r\n    b.ObjectMessage := s;\r\n\r\n  Result := True;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCWEBWebBrowser.AddBridge(ABridgeName: string;\r\n  ABridgeObject: TObject);\r\n{$IFDEF WEBLIB}\r\nvar\r\n  eh: TJSEventTarget;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  if Assigned(FWebControl) and Assigned(TTMSFNCCustomWebBrowserProtected(FWebControl).ElementBindHandle) and (ABridgeName <> '') and Assigned(ABridgeObject) then\r\n  begin\r\n    GetMethodPointers;\r\n    eh := TTMSFNCCustomWebBrowserProtected(FWebControl).ElementBindHandle;\r\n    eh.addEventListener(ABridgeName, FCustomObjectMessage);\r\n    FCustomBridge := ABridgeName;\r\n    FCustomBridgeObject := ABridgeObject;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCWEBWebBrowser.BodyInnerHTML: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCWEBWebBrowser.IsFMXBrowser: Boolean;\r\nbegin\r\n  Result := True;\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.LoadFile(AFile: String);\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.LoadHTML(AHTML: String);\r\nbegin\r\n  if Assigned(FWebControl) then\r\n  begin\r\n    {$IFDEF WEBLIB}\r\n    if Assigned(FWebControl.ElementHandle) then\r\n      FWebControl.ElementHandle.innerHTML := AHTML;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.Navigate(const AURL: string);\r\nbegin\r\nend;\r\n\r\nfunction TTMSFNCWEBWebBrowser.NativeBrowser: Pointer;\r\nbegin\r\n  Result := nil;\r\nend;\r\n\r\nfunction TTMSFNCWEBWebBrowser.NativeDialog: Pointer;\r\nbegin\r\n  Result := nil;\r\nend;\r\n\r\nfunction TTMSFNCWEBWebBrowser.NativeEnvironment: Pointer;\r\nbegin\r\n  Result := nil;\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.SetFocus;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.BeforeChangeParent;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.Navigate;\r\nbegin\r\n  Navigate(FURL);\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.SetEnableAcceleratorKeys(const AValue: Boolean);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.SetEnableContextMenu(const AValue: Boolean);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.SetEnableShowDebugConsole(const AValue: Boolean);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.Reload;\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.RemoveBridge(ABridgeName: string);\r\n{$IFDEF WEBLIB}\r\nvar\r\n  eh: TJSEventTarget;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  if Assigned(FWebControl) and Assigned(TTMSFNCCustomWebBrowserProtected(FWebControl).ElementBindHandle) and (ABridgeName <> '') then\r\n  begin\r\n    eh := TTMSFNCCustomWebBrowserProtected(FWebControl).ElementBindHandle;\r\n    eh.removeEventListener(ABridgeName, FCustomObjectMessage);\r\n    if ABridgeName = FCustomBridge then\r\n    begin\r\n      FCustomBridge := '';\r\n      FCustomBridgeObject := nil;\r\n    end;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.SetExternalBrowser(const AValue: Boolean);\r\nbegin\r\n  FExternalBrowser := AValue;\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.SetURL(const AValue: string);\r\nbegin\r\n  FURL := AValue;\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.SetUserAgent(const Value: string);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.ShowDebugConsole;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.StopLoading;\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.UpdateBounds;\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.UpdateEnabled;\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.UpdateVisible;\r\nbegin\r\nend;\r\n\r\nfunction TTMSFNCWEBWebBrowser.CanGoBack: Boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n\r\nfunction TTMSFNCWEBWebBrowser.CanGoForward: Boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.CaptureScreenshot(ACompleteEvent: TTMSFNCWebBrowserCaptureScreenShotCompleteEvent = nil);\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.ClearCache;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.ClearFocus;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.Close;\r\nbegin\r\n  TTMSFNCCustomWebBrowserProtected(FWebControl).DoCloseForm;\r\nend;\r\n\r\nconstructor TTMSFNCWEBWebBrowser.Create(const AWebControl: TTMSFNCCustomWebBrowser);\r\nbegin\r\n  FExternalBrowser := False;\r\n  FWebControl := AWebControl;\r\n  {$IFDEF WEBLIB}\r\n  ClearMethodPointers;\r\n  {$ENDIF}\r\n  if Assigned(FWebControl) then\r\n    TTMSFNCCustomWebBrowserProtected(FWebControl).Initialized;\r\n\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.DeInitialize;\r\nbegin\r\nend;\r\n\r\nfunction TTMSFNCWEBWebBrowser.DocumentReadyState: string;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.UpdateContentFromControl;\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TTMSFNCWEBWebBrowser.ExecuteJavascript(AScript: String; ACompleteEvent: TTMSFNCWebBrowserJavaScriptCompleteEvent; ACallback: TNotifyEvent);\r\nvar\r\n  v, s, id, ssub: string;\r\n  res, sc, sn: string;\r\n  ps: Integer;\r\n  p, psub: Integer;\r\n  {$IFDEF WEBLIB}\r\n  e: TJSHTMLElement;\r\n  {$ENDIF}\r\nbegin\r\n  id := StringReplace(CreateNewGUID, '{', '', [rfReplaceAll]);\r\n  id := StringReplace(id, '}', '', [rfReplaceAll]);\r\n  id := StringReplace(id, '-', '', [rfReplaceAll]);\r\n  v := 'executeScript' + id;\r\n  ssub := 'function ' + v + '(){' + #13#10;\r\n  if Pos('function ', AScript) = 1 then\r\n  begin\r\n    sc := AScript;\r\n    ps := Pos('function ', AScript) + 9;\r\n    sn := Copy(AScript, ps, Pos('(', AScript) - ps);\r\n    sc := StringReplace(sc, sn + '();', '', [rfReplaceAll]);\r\n    ssub := ssub + ' return (' + sc + ')();' + #13#10\r\n  end\r\n  else\r\n    ssub := ssub + ' return ' + AScript + #13#10;\r\n  ssub := ssub + '}';\r\n\r\n  {$IFDEF WEBLIB}\r\n  e := FWebControl.ElementHandle;\r\n\r\n  asm\r\n    var script = document.createElement('script');\r\n    script.id = id;\r\n    script.text = ssub;\r\n    var ctx;\r\n\r\n    if (e && e.ownerDocument) {\r\n      e.ownerDocument.body.append(script);\r\n      ctx = e.ownerDocument.defaultView;\r\n    }\r\n    else{\r\n      document.body.append(script);\r\n      ctx = document.body.defaultView;\r\n    }\r\n  end;\r\n\r\n  {$ENDIF}\r\n\r\n  s := v;\r\n\r\n  {$IFDEF WEBLIB}\r\n  asm\r\n    function functionFromString(context, funcDef, funcParam) {\r\n       try {\r\n          var fn = new Function(\"return function() {return this.\" + funcDef + \"(\" + funcParam + \")};\");\r\n          return fn();\r\n       } catch (e) {\r\n          return (function() {});\r\n       }\r\n    }\r\n\r\n    function mainfunc (context, func, p){\r\n      var f = functionFromString(context, func, p);\r\n      return f.apply(context);\r\n    }\r\n\r\n    var obj;\r\n    res = mainfunc(ctx, s, obj);\r\n    if (res) {\r\n      res = res.toString();\r\n    }\r\n    else\r\n    {\r\n      res = \"\";\r\n    }\r\n  end;\r\n  {$ENDIF}\r\n  if Assigned(ACompleteEvent) then\r\n    ACompleteEvent(res);\r\n\r\n  if Assigned(ACallback) then\r\n    ACallback(Self);\r\n\r\n  {$IFDEF WEBLIB}\r\n  asm\r\n    var exScript = document.getElementById(id);\r\n    if (exScript){\r\n      exScript.parentNode.removeChild(exScript);\r\n    }\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\n{ TTMSFNCWEBWebBrowserService }\r\n\r\nprocedure TTMSFNCWEBWebBrowserService.DeleteCookies;\r\nbegin\r\nend;\r\n\r\nfunction TTMSFNCWEBWebBrowserService.DoCreateWebBrowser(const AValue: TTMSFNCCustomWebBrowser): ITMSFNCCustomWebBrowser;\r\nbegin\r\n  Result := TTMSFNCWEBWebBrowser.Create(AValue);\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCMapsCommonTypes;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, WEBLib.TMSFNCTypes\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,XmlIntf, XMLDom, XMLDoc\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,XMLRead, XMLWrite, DOM\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,web\r\n  {$ENDIF}\r\n  ;\r\n\r\nconst\r\n  DEFAULT_LOCALE = 'en-US';\r\n  DEFAULT_LATITUDE = 40.689247;\r\n  DEFAULT_LONGITUDE = -74.044502;\r\n  DEFAULT_ICONURL = 'https://cdn.mapmarker.io/api/v1/pin?text=P&size=50&hoffset=1';\r\n\r\ntype\r\n  TTMSFNCMapsAnchorPointRec = record\r\n    X: Single;\r\n    Y: Single;\r\n  end;\r\n\r\n  TTMSFNCMapsCoordinateRec = record\r\n    Longitude: Double;\r\n    Latitude: Double;\r\n    Elevation: Double;\r\n    TimeStamp: TDateTime;\r\n    HasElevation: Boolean;\r\n    HasTimeStamp: Boolean;\r\n    DataObject: TObject;\r\n    Description: String;\r\n    Weight: Double;\r\n  end;\r\n\r\n  TTMSFNCMapsCoordinateRecArray = array of TTMSFNCMapsCoordinateRec;\r\n  TTMSFNCMapsCoordinateRecArrayArray = array of TTMSFNCMapsCoordinateRecArray;\r\n  TTMSFNCMapsCoordinateRecArrayArrayArray = array of TTMSFNCMapsCoordinateRecArrayArray;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TDomNode = TJSNode;\r\n  TXMLDocument = TJSDocument;\r\n\r\n  TJSNodeListHelper = class helper for TJSNodeList\r\n    function FindNode(ANodeName: string): TJSNode;\r\n    function IndexOf(const Name: string): NativeInt; overload;\r\n    function GetCount: NativeInt;\r\n    property Count: NativeInt read GetCount;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  {$IFNDEF LCLWEBLIB}\r\n  TTMSFNCMapsXMLNode = IXMLNode;\r\n  TTMSFNCMapsXMLDocument = IXMLDocument;\r\n  TTMSFNCMapsXMLDomNode = IDOMNode;\r\n  {$ELSE}\r\n  TTMSFNCMapsXMLNode = TDomNode;\r\n  TTMSFNCMapsXMLDomNode = TDomNode;\r\n  TTMSFNCMapsXMLDocument = TXMLDocument;\r\n  {$ENDIF}\r\n\r\n  TTMSFNCMapsGPXTrackRec = record\r\n    Segments: TTMSFNCMapsCoordinateRecArrayArray;\r\n    Name: string;\r\n  end;\r\n\r\n  TTMSFNCMapsGPXMetaData = record\r\n    AuthorName: string;\r\n    AuthorLink: string;\r\n    TrackName: string;\r\n    TrackType: string;\r\n  end;\r\n\r\n  TTMSFNCMapsGPXWayPointRec = record\r\n    WayPoint: TTMSFNCMapsCoordinateRec;\r\n    Name: string;\r\n    Elevation: Double;\r\n    HasElevation: Boolean;\r\n    Comment: string;\r\n    Description: string;\r\n    Symbol: string;\r\n    Link: string;\r\n    TimeStamp: TDateTime;\r\n    HasTimeStamp: Boolean;\r\n    WayPointType: string;\r\n  end;\r\n\r\n  TTMSFNCMapsGPXWayPointRecArray = array of TTMSFNCMapsGPXWayPointRec;\r\n\r\n  TTMSFNCMapsGPXRec = record\r\n    Tracks: array of TTMSFNCMapsGPXTrackRec;\r\n    WayPoints: TTMSFNCMapsGPXWayPointRecArray;\r\n  end;\r\n\r\n  TTMSFNCMapsGPXTrackEventData = class(TPersistent)\r\n  private\r\n    FNode: TTMSFNCMapsXMLDOMNode;\r\n    FData: TTMSFNCMapsGPXTrackRec;\r\n  public\r\n    constructor Create; virtual;\r\n    destructor Destroy; override;\r\n    property Data: TTMSFNCMapsGPXTrackRec read FData write FData;\r\n    property Node: TTMSFNCMapsXMLDOMNode read FNode write FNode;\r\n  end;\r\n\r\n  TTMSFNCMapsGPXSegmentEventData = class(TPersistent)\r\n  private\r\n    FNode: TTMSFNCMapsXMLDOMNode;\r\n    FData: TTMSFNCMapsCoordinateRec;\r\n  public\r\n    constructor Create; virtual;\r\n    destructor Destroy; override;\r\n    property Data: TTMSFNCMapsCoordinateRec read FData write FData;\r\n    property Node: TTMSFNCMapsXMLDOMNode read FNode write FNode;\r\n  end;\r\n\r\n  TTMSFNCMapsGPXWayPointEventData = class(TPersistent)\r\n  private\r\n    FNode: TTMSFNCMapsXMLDOMNode;\r\n    FData: TTMSFNCMapsGPXWayPointRec;\r\n  public\r\n    constructor Create; virtual;\r\n    destructor Destroy; override;\r\n    property Data: TTMSFNCMapsGPXWayPointRec read FData write FData;\r\n    property Node: TTMSFNCMapsXMLDOMNode read FNode write FNode;\r\n  end;\r\n\r\n  TTMSFNCMapsGPXTrackEvent = procedure(Sender: TObject; AEventData: TTMSFNCMapsGPXTrackEventData) of object;\r\n  TTMSFNCMapsGPXSegmentEvent = procedure(Sender: TObject; AEventData: TTMSFNCMapsGPXSegmentEventData) of object;\r\n  TTMSFNCMapsGPXWayPointEvent = procedure(Sender: TObject; AEventData: TTMSFNCMapsGPXWayPointEventData) of object;\r\n\r\n  TTMSFNCMapsLocaleMode = (mlmDefault, mlmCountry, mlmLanguage);\r\n\r\n  TTMSFNCMapsBoundsRec = record\r\n    NorthEast: TTMSFNCMapsCoordinateRec;\r\n    SouthWest: TTMSFNCMapsCoordinateRec;\r\n  end;\r\n\r\n  TTMSFNCMapsCoordinate = class(TPersistent)\r\n  private\r\n    FDataBoolean: Boolean;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FDataPointer: Pointer;\r\n    FLatitude: Double;\r\n    FLongitude: Double;\r\n    FOnChange: TNotifyEvent;\r\n    procedure SetLatitude(const Value: Double);\r\n    procedure SetLongitude(const Value: Double);\r\n    function IsLatitudeStored: Boolean;\r\n    function IsLongitudeStored: Boolean;\r\n    function GetToRec: TTMSFNCMapsCoordinateRec;\r\n    procedure SetToRec(const Value: TTMSFNCMapsCoordinateRec);\r\n  protected\r\n    procedure UpdateCoordinate; virtual;\r\n  public\r\n    constructor Create; overload; virtual;\r\n    constructor Create(ACoordinate: TTMSFNCMapsCoordinateRec); overload; virtual;\r\n    constructor Create(ALatitude: Double; ALongitude: Double); overload; virtual;\r\n    procedure Assign(Source: TPersistent); override;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n    property ToRec: TTMSFNCMapsCoordinateRec read GetToRec write SetToRec;\r\n  published\r\n    property Longitude: Double read FLongitude write SetLongitude stored IsLongitudeStored nodefault;\r\n    property Latitude: Double read FLatitude write SetLatitude stored IsLatitudeStored nodefault;\r\n  end;\r\n\r\n  TTMSFNCMapsBounds = class(TPersistent)\r\n  private\r\n    FNorthEast: TTMSFNCMapsCoordinate;\r\n    FSouthWest: TTMSFNCMapsCoordinate;\r\n    FOnChange: TNotifyEvent;\r\n    FDataPointer: Pointer;\r\n    FDataBoolean: Boolean;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    function GetToRec: TTMSFNCMapsBoundsRec;\r\n    procedure SetToRec(const Value: TTMSFNCMapsBoundsRec);\r\n  protected\r\n    procedure DoCoordinateChanged(Sender: TObject);\r\n  public\r\n    constructor Create; overload; virtual;\r\n    constructor Create(ANorthEast: TTMSFNCMapsCoordinateRec; ASouthWest: TTMSFNCMapsCoordinateRec); overload; virtual;\r\n    procedure Assign(Source: TPersistent); override;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n    destructor Destroy; override;\r\n    property ToRec: TTMSFNCMapsBoundsRec read GetToRec write SetToRec;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  published\r\n    property NorthEast: TTMSFNCMapsCoordinate read FNorthEast;\r\n    property SouthWest: TTMSFNCMapsCoordinate read FSouthWest;\r\n  end;\r\n\r\n  TTMSFNCMapsCoordinateItem = class(TCollectionItem)\r\n  private\r\n    FOwner: TPersistent;\r\n    FDataBoolean: Boolean;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FDataPointer: Pointer;\r\n    FCoordinate: TTMSFNCMapsCoordinate;\r\n    procedure SetCoordinate(const Value: TTMSFNCMapsCoordinate);\r\n    function GetLatitude: Double;\r\n    function GetLongitude: Double;\r\n    procedure SetLatitude(const Value: Double);\r\n    procedure SetLongitude(const Value: Double);\r\n    function IsLatitudeStored: Boolean;\r\n    function IsLongitudeStored: Boolean;\r\n  protected\r\n    procedure UpdateCoordinateItem; virtual;\r\n    procedure CoordinateChanged(Sender: TObject);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n    property Coordinate: TTMSFNCMapsCoordinate read FCoordinate write SetCoordinate;\r\n  published\r\n    property Longitude: Double read GetLongitude write SetLongitude stored IsLongitudeStored nodefault;\r\n    property Latitude: Double read GetLatitude write SetLatitude stored IsLatitudeStored nodefault;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCMapsCoordinates = class(TTMSFNCOwnedCollection)\r\n  {$ELSE}\r\n  TTMSFNCMapsCoordinates = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCMapsCoordinateItem>)\r\n  {$ENDIF}\r\n  private\r\n    FBounds: TTMSFNCMapsBounds;\r\n    FOwner: TPersistent;\r\n    FOnBeginUpdate: TNotifyEvent;\r\n    FOnEndUpdate: TNotifyEvent;\r\n    FOnUpdateCoordinates: TNotifyEvent;\r\n    function GetItem(Index: Integer): TTMSFNCMapsCoordinateItem;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCMapsCoordinateItem);\r\n    function GetBounds: TTMSFNCMapsBounds;\r\n    function GetArray: TTMSFNCMapsCoordinateRecArray;\r\n    procedure SetArray(const Value: TTMSFNCMapsCoordinateRecArray);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; virtual;\r\n    function GetOwner: TPersistent; override;\r\n    procedure UpdateCoordinates; virtual;\r\n  public\r\n    constructor Create(AOwner: TPersistent); virtual;\r\n    destructor Destroy; override;\r\n    property Items[Index: Integer]: TTMSFNCMapsCoordinateItem read GetItem write SetItem; default;\r\n    procedure Clear; virtual;\r\n    function Add: TTMSFNCMapsCoordinateItem;\r\n    property Bounds: TTMSFNCMapsBounds read GetBounds;\r\n    function Insert(Index: Integer): TTMSFNCMapsCoordinateItem;\r\n    property OnBeginUpdate: TNotifyEvent read FOnBeginUpdate write FOnBeginUpdate;\r\n    property OnEndUpdate: TNotifyEvent read FOnEndUpdate write FOnEndUpdate;\r\n    property OnUpdateCoordinates: TNotifyEvent read FOnUpdateCoordinates write FOnUpdateCoordinates;\r\n    property ToArray: TTMSFNCMapsCoordinateRecArray read GetArray write SetArray;\r\n  end;\r\n\r\n  TTMSFNCMapsBasePoint = class(TPersistent)\r\n  private\r\n    FX: Single;\r\n    FY: Single;\r\n    FOnChange: TNotifyEvent;\r\n    procedure SetY(const Value: Single);\r\n    procedure SetX(const Value: Single);\r\n    function IsYStored: Boolean;\r\n    function IsXStored: Boolean;\r\n  protected\r\n    procedure UpdatePoint;\r\n  public\r\n    constructor Create; virtual;\r\n    procedure Assign(Source: TPersistent); override;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  protected\r\n    property X: Single read FX write SetX stored IsXStored;\r\n    property Y: Single read FY write SetY stored IsYStored;\r\n  end;\r\n\r\n  TTMSFNCMapsAnchorPoint = class(TTMSFNCMapsBasePoint)\r\n  published\r\n    property X;\r\n    property Y;\r\n  end;\r\n\r\n  TTMSFNCMapsPlusCode = class\r\n  private const\r\n    SeparatorPosition: Integer = 8;\r\n    SeparatorCharacter: Char = '+';\r\n    PaddingCharacter: Char = '0';\r\n    GridColumns: Integer = 4;\r\n    GridRows: Integer = 5;\r\n    CodeAlphaBet: array[0..19] of string = ('2', '3', '4', '5', '6', '7', '8', '9', 'C', 'F', 'G', 'H', 'J', 'M', 'P', 'Q', 'R', 'V', 'W', 'X');\r\n    EncodingBase: Integer = 20;\r\n    LatitudeMax: Integer = 90;\r\n    LongitudeMax: Integer = 180;\r\n    GridRowsMultiplier: Integer = 3125;\r\n    GridColumnsMultiplier: Integer = 1024;\r\n    LatIntegerMultiplier: Int64 = 25000000;\r\n    LngIntegerMultiplier: Int64 = 8192000;\r\n    LatMspValue: Int64 = 10000000000;\r\n    LngMspValue: Int64 = 3276800000;\r\n    PairCodeLength: Integer = 10;\r\n    MaxDigitCount: Integer = 15;\r\n    GridCodeLength: Integer = 5;\r\n  protected\r\n    class function DigitValueOf(digit: Char): Integer;\r\n  public\r\n    class function Encode(ACoordinate: TTMSFNCMapsCoordinateRec): string;\r\n    class function Decode(APlusCode: string): TTMSFNCMapsBoundsRec;\r\n  end;\r\n\r\nfunction CenterCoordinate: TTMSFNCMapsCoordinateRec;\r\nfunction DefaultCoordinate: TTMSFNCMapsCoordinateRec;\r\nfunction EmptyCoordinate: TTMSFNCMapsCoordinateRec;\r\nfunction CreateCoordinate(const ALatitude: Double; const ALongitude: Double): TTMSFNCMapsCoordinateRec;\r\nfunction CreateBounds(ACoordinate1, ACoordinate2: TTMSFNCMapsCoordinateRec): TTMSFNCMapsBoundsRec; overload;\r\nfunction CreateBounds(ACoordinates: TTMSFNCMapsCoordinateRecArray): TTMSFNCMapsBoundsRec; overload;\r\nfunction CreateBounds(ACoordinatesArray: TTMSFNCMapsCoordinateRecArrayArray): TTMSFNCMapsBoundsRec; overload;\r\nfunction CreateBounds(ACoordinatesArrayArray: TTMSFNCMapsCoordinateRecArrayArrayArray): TTMSFNCMapsBoundsRec; overload;\r\nfunction CreateBounds(ANorthLatitude, AEastLongitude, ASouthLatitude, AWestLongitude: Double): TTMSFNCMapsBoundsRec; overload;\r\nfunction CreateCircle(ACenter: TTMSFNCMapsCoordinateRec; ARadius: Double): TTMSFNCMapsCoordinateRecArray;\r\nfunction BoundsCenter(ABounds: TTMSFNCMapsBoundsRec): TTMSFNCMapsCoordinateRec;\r\nfunction BoundsRectangle(ABounds:  TTMSFNCMapsBoundsRec): TTMSFNCMapsCoordinateRecArray;\r\nfunction MeasureDistance(ACoordinate1: TTMSFNCMapsCoordinateRec; ACoordinate2: TTMSFNCMapsCoordinateRec): Double;\r\nfunction MeasureArea(ACoordinatesArray: TTMSFNCMapsCoordinateRecArray): Double;\r\nfunction FindNearestCoordinate(ACoordinate: TTMSFNCMapsCoordinateRec; ACoordinatesArray: TTMSFNCMapsCoordinateRecArray): Integer;\r\nfunction IsPointInArea(ALatitude: Double; ALongitude: Double; ACoordinatesArray: TTMSFNCMapsCoordinateRecArray): Boolean;\r\nfunction CalculateCoordinate(ACoordinate: TTMSFNCMapsCoordinateRec; ABearing: Double; ADistance: Double): TTMSFNCMapsCoordinateRec;\r\nfunction CalculateBearing(ACoordinate1: TTMSFNCMapsCoordinateRec; ACoordinate2: TTMSFNCMapsCoordinateRec): Double;\r\nfunction ParseLocale(ALocale: string; AMode: TTMSFNCMapsLocaleMode = mlmDefault): string;\r\nfunction LoadResourceFile(AResName: string): string;\r\nfunction DefaultGPXMetaData: TTMSFNCMapsGPXMetaData;\r\nfunction EmptyGPXWayPoint: TTMSFNCMapsGPXWayPointRec;\r\nfunction CreateGPXMetaData(AAuthorName, AAuthorLink, ATrackName, ATrackType: string): TTMSFNCMapsGPXMetaData;\r\nfunction SaveToGPX(ACoordinates: TTMSFNCMapsCoordinateRecArray; AMetaData: TTMSFNCMapsGPXMetaData;\r\n  IncludeElevation: Boolean = True; IncludeTimeStamp: Boolean = True; AInstructions: string = ''; AWayPoints: TTMSFNCMapsGPXWayPointRecArray = nil): string; overload;\r\nfunction SaveToGPX(ASegments: TTMSFNCMapsCoordinateRecArrayArray; AMetaData: TTMSFNCMapsGPXMetaData;\r\n  IncludeElevation: Boolean = True; IncludeTimeStamp: Boolean = True; AInstructions: TStringList = nil; AWayPoints: TTMSFNCMapsGPXWayPointRecArray = nil): string; overload;\r\nfunction BoolToStrEx(AValue: Boolean): string;\r\nfunction TryCatchStart: string;\r\nfunction TryCatchEnd(AErrorMessagePrefix: string): string;\r\n\r\nimplementation\r\n\r\nuses\r\n  WEBLib.TMSFNCUtils, SysUtils, Math;\r\n\r\n{$R 'TMSFNCMaps.res'}\r\n\r\nconst\r\n//  EarthRadius = 6371000;\r\n  EarthRadius = 6378137;\r\n  LB = #13;\r\n  GETSENDEVENT = 'sendEvent';\r\n\r\nfunction TryCatchStart(): string;\r\nbegin\r\n  Result := ' try{' + LB;\r\nend;\r\n\r\nfunction TryCatchEnd(AErrorMessagePrefix: string): string;\r\nvar\r\n  sprefix: string;\r\nbegin\r\n  sprefix := 'TMS FNC Maps error';\r\n  if AErrorMessagePrefix <> '' then\r\n  begin\r\n    sprefix := AErrorMessagePrefix;\r\n  end;\r\n\r\n  Result :=  '} catch (err) {' + LB +\r\n      '  console.error(err);' + LB +\r\n      '  ' + GETSENDEVENT + '(parseEvent(event, \"Error\", \"' + sprefix + ': \" + err.message));' + LB +\r\n      '}' + LB;\r\nend;\r\n\r\nfunction BoolToStrEx(AValue: Boolean): string;\r\nbegin\r\n  if AValue then\r\n    Result := 'true'\r\n  else\r\n    Result := 'false';\r\nend;\r\n\r\nfunction CreateGPXMetaData(AAuthorName, AAuthorLink, ATrackName, ATrackType: string): TTMSFNCMapsGPXMetaData;\r\nvar\r\n  md: TTMSFNCMapsGPXMetaData;\r\nbegin\r\n  md.AuthorName := AAuthorName;\r\n  md.AuthorLink := AAuthorLink;\r\n  md.TrackName := ATrackName;\r\n  md.TrackType := ATrackType;\r\nend;\r\n\r\nfunction DefaultGPXMetaData: TTMSFNCMapsGPXMetaData;\r\nbegin\r\n  Result := CreateGPXMetaData('TMS', 'http://www.tmssoftware.com', 'MyTrack', 'Track');\r\nend;\r\n\r\nfunction ParseLocale(ALocale: string; AMode: TTMSFNCMapsLocaleMode = mlmDefault): string;\r\nvar\r\n  s: string;\r\n  sl: TStringList;\r\nbegin\r\n  Result := ALocale;\r\n\r\n  case AMode of\r\n    mlmCountry, mlmLanguage:\r\n    begin\r\n      s := Result;\r\n      sl := TStringList.Create;\r\n      try\r\n        TTMSFNCUtils.Split('-', s, sl);\r\n        if sl.Count >= 2 then\r\n        begin\r\n          case AMode of\r\n            mlmCountry: Result := sl[0];\r\n            mlmLanguage: Result := sl[1];\r\n          end;\r\n        end;\r\n      finally\r\n        sl.Free;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction CalculateBearing(ACoordinate1: TTMSFNCMapsCoordinateRec; ACoordinate2: TTMSFNCMapsCoordinateRec): Double;\r\nvar\r\n  a1, a2, d1, x, y, a: Double;\r\nbegin\r\n  a1 := DegToRad(ACoordinate1.Latitude);\r\n  a2 := DegToRad(ACoordinate2.Latitude);\r\n  d1 := DegToRad(ACoordinate2.Longitude - ACoordinate1.Longitude);\r\n  x := Cos(a1) * Sin(a2) - Sin(a1) * Cos(a2) * Cos(d1);\r\n  y := Sin(d1) * Cos(a2);\r\n  a := ArcTan2(y, x);\r\n  Result := RadToDeg(a);\r\nend;\r\n\r\nfunction CalculateCoordinate(ACoordinate: TTMSFNCMapsCoordinateRec; ABearing: Double; ADistance: Double): TTMSFNCMapsCoordinateRec;\r\nvar\r\n  a, ad, r, a1, sina2, a2, y, x, d1, d2: Double;\r\nbegin\r\n  r := EarthRadius;\r\n  a := ADistance / r;\r\n  ad := DegToRad(ABearing);\r\n\r\n  a1 := DegToRad(ACoordinate.Latitude);\r\n  d1 := DegToRad(ACoordinate.Longitude);\r\n  sina2 := Sin(a1) * Cos(a) + Cos(a1) * Sin(a) * Cos(ad);\r\n  a2 := ArcSin(sina2);\r\n  y := Sin(ad) * Sin(a) * Cos(a1);\r\n  x := Cos(a) - Sin(a1) * sina2;\r\n  d2 := d1 + ArcTan2(y, x);\r\n\r\n  Result.Latitude := RadToDeg(a2);\r\n  Result.Longitude := RadToDeg(d2);\r\nend;\r\n\r\nfunction MeasureDistance(ACoordinate1: TTMSFNCMapsCoordinateRec; ACoordinate2: TTMSFNCMapsCoordinateRec): Double;\r\nvar\r\n  r, a1, a2, d1, d2, a, c: Double;\r\nbegin\r\n  r := EarthRadius;\r\n  a1 := DegToRad(ACoordinate1.Latitude);\r\n  a2 := DegToRad(ACoordinate2.Latitude);\r\n  d1 := DegToRad(ACoordinate2.Latitude - ACoordinate1.Latitude);\r\n  d2 := DegToRad(ACoordinate2.Longitude - ACoordinate1.Longitude);\r\n\r\n  a := Sin(d1 / 2) * Sin(d1 / 2) + Cos(a1) * Cos(a2) * Sin(d2 / 2) * Sin(d2 / 2);\r\n  c := 2 * ArcTan2(SQRT(a), SQRT(1 - a));\r\n  Result := r * c;\r\nend;\r\n\r\nfunction FindNearestCoordinate(ACoordinate: TTMSFNCMapsCoordinateRec; ACoordinatesArray: TTMSFNCMapsCoordinateRecArray): Integer;\r\nvar\r\n  I: Integer;\r\n  Distance, MinDistance: Double;\r\nbegin\r\n  Result := -1;\r\n  MinDistance := 0;\r\n  for I := 0 to Length(ACoordinatesArray) - 1 do\r\n  begin\r\n    Distance := MeasureDistance(ACoordinate, ACoordinatesArray[I]);\r\n    if (Distance < MinDistance) or (MinDistance = 0) then\r\n    begin\r\n      MinDistance := Distance;\r\n      Result := I;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction MeasureArea(ACoordinatesArray: TTMSFNCMapsCoordinateRecArray): Double;\r\nvar\r\n  i, pointsCount: Integer;\r\n  area, d2r, radius: Double;\r\n  p1, p2: TTMSFNCMapsCoordinateRec;\r\nbegin\r\n  pointsCount := Length(ACoordinatesArray);\r\n  area := 0;\r\n  d2r := Pi / 180;\r\n  radius := EarthRadius;\r\n\r\n  if pointsCount <= 2 then\r\n  begin\r\n    area := 0;\r\n  end\r\n  else\r\n  begin\r\n\r\n    for i := 0 to pointsCount - 1 do\r\n    begin\r\n        p1 := ACoordinatesArray[i];\r\n        p2 := ACoordinatesArray[(i + 1) mod pointsCount];\r\n        area := area + ((p2.Longitude - p1.Longitude) * d2r) *\r\n                (2 + Sin(p1.Latitude * d2r) + Sin(p2.Latitude * d2r));\r\n    end;\r\n    area := area * radius * radius / 2.0;\r\n    area := abs(area);\r\n  end;\r\n\r\n  Result := area;\r\nend;\r\n\r\nfunction IsPointInArea(ALatitude: Double; ALongitude: Double; ACoordinatesArray: TTMSFNCMapsCoordinateRecArray): Boolean;\r\nvar\r\n  i, j, pointsCount: Integer;\r\n  x, xi, xj, y, yi, yj: Double;\r\nbegin\r\n  pointsCount := Length(ACoordinatesArray);\r\n  Result := False;\r\n\r\n  x := ALatitude;\r\n  y := ALongitude;\r\n  j := pointsCount - 1;\r\n\r\n  for i := 0 to pointsCount - 1 do\r\n  begin\r\n    xi := ACoordinatesArray[i].Latitude;\r\n    yi := ACoordinatesArray[i].Longitude;\r\n\r\n    xj := ACoordinatesArray[j].Latitude;\r\n    yj := ACoordinatesArray[j].Longitude;\r\n\r\n//    Result := ((yi > y) <> (yj > y)) and (x < (xj - xi) * (y - yi) / (yj - yi) + xi);\r\n\r\n    if (((yi < y) and (yj >= y) or (yj < y) and (yi >= y)) and ((xi <= x) or (xj <= x))) then\r\n    begin\r\n      Result := Result xor ((xi + (y-yi)*(xj-xi)/(yj-yi)) < x);\r\n    end;\r\n\r\n    j := i;\r\n  end;\r\nend;\r\n\r\nfunction BoundsCenter(ABounds: TTMSFNCMapsBoundsRec): TTMSFNCMapsCoordinateRec;\r\nbegin\r\n  Result.Longitude := (ABounds.SouthWest.Longitude + ABounds.NorthEast.Longitude) / 2;\r\n  Result.Latitude := (ABounds.SouthWest.Latitude + ABounds.NorthEast.Latitude) / 2;\r\nend;\r\n\r\nfunction BoundsRectangle(ABounds: TTMSFNCMapsBoundsRec): TTMSFNCMapsCoordinateRecArray;\r\nbegin\r\n  SetLength(Result, 5);\r\n  Result[0] := CreateCoordinate(ABounds.NorthEast.Latitude, ABounds.SouthWest.Longitude);\r\n  Result[1] := ABounds.NorthEast;\r\n  Result[2] := CreateCoordinate(ABounds.SouthWest.Latitude, ABounds.NorthEast.Longitude);\r\n  Result[3] := ABounds.SouthWest;\r\n  Result[4] := Result[0];\r\nend;\r\n\r\nfunction CreateBounds(ANorthLatitude, AEastLongitude, ASouthLatitude, AWestLongitude: Double): TTMSFNCMapsBoundsRec; overload;\r\nbegin\r\n  Result.NorthEast := CreateCoordinate(ANorthLatitude, AEastLongitude);\r\n  Result.SouthWest := CreateCoordinate(ASouthLatitude, AWestLongitude);\r\nend;\r\n\r\nfunction CreateBounds(ACoordinatesArrayArray: TTMSFNCMapsCoordinateRecArrayArrayArray): TTMSFNCMapsBoundsRec;\r\nvar\r\n  maxlat, minlat: double;\r\n  maxlon, minlon: double;\r\n  i, j, k: Integer;\r\nbegin\r\n  maxlon := -180;\r\n  maxlat := -90;\r\n  minlon := 180;\r\n  minlat := 90;\r\n\r\n  for i := 0 to Length(ACoordinatesArrayArray) - 1 do\r\n  begin\r\n    for j := 0 to Length(ACoordinatesArrayArray[I]) - 1 do\r\n    begin\r\n      for k := 0 to Length(ACoordinatesArrayArray[I][J]) - 1 do\r\n      begin\r\n        if ACoordinatesArrayArray[i][j][k].Longitude < minlon then\r\n          minlon := ACoordinatesArrayArray[i][j][k].Longitude;\r\n\r\n        if ACoordinatesArrayArray[i][j][k].Latitude < minlat then\r\n          minlat := ACoordinatesArrayArray[i][j][k].Latitude;\r\n\r\n        if ACoordinatesArrayArray[i][j][k].Longitude > maxlon then\r\n          maxlon := ACoordinatesArrayArray[i][j][k].Longitude;\r\n\r\n        if ACoordinatesArrayArray[i][j][k].Latitude > maxlat then\r\n          maxlat := ACoordinatesArrayArray[i][j][k].Latitude;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  if (maxlon = -180) then\r\n    maxlon := 180;\r\n\r\n  if (maxlat = -90) then\r\n    maxlat := 90;\r\n\r\n  if (minlon = 180) then\r\n    minlon := -180;\r\n\r\n  if (minlat = 90) then\r\n    minlat := -90;\r\n\r\n  Result.NorthEast.Latitude := maxlat;\r\n  Result.NorthEast.Longitude := maxlon;\r\n\r\n  Result.SouthWest.Latitude := minlat;\r\n  Result.SouthWest.Longitude := minlon;\r\n\r\nend;\r\n\r\nfunction CreateBounds(ACoordinatesArray: TTMSFNCMapsCoordinateRecArrayArray): TTMSFNCMapsBoundsRec;\r\nvar\r\n  arr: TTMSFNCMapsCoordinateRecArrayArrayArray;\r\nbegin\r\n  SetLength(arr, 1);\r\n  arr[0] := ACoordinatesArray;\r\n  Result := CreateBounds(arr);\r\nend;\r\n\r\nfunction CreateBounds(ACoordinate1, ACoordinate2: TTMSFNCMapsCoordinateRec): TTMSFNCMapsBoundsRec;\r\nvar\r\n  arr: TTMSFNCMapsCoordinateRecArray;\r\nbegin\r\n  SetLength(arr, 2);\r\n  arr[0] := ACoordinate1;\r\n  arr[1] := ACoordinate2;\r\n  Result := CreateBounds(arr);\r\nend;\r\n\r\nfunction CreateBounds(ACoordinates: TTMSFNCMapsCoordinateRecArray): TTMSFNCMapsBoundsRec;\r\nvar\r\n  arr: TTMSFNCMapsCoordinateRecArrayArrayArray;\r\n  arrc: TTMSFNCMapsCoordinateRecArrayArray;\r\nbegin\r\n  SetLength(arrc, 1);\r\n  arrc[0] := ACoordinates;\r\n  SetLength(arr, 1);\r\n  arr[0] := arrc;\r\n  Result := CreateBounds(arr);\r\nend;\r\n\r\nfunction EmptyGPXWayPoint: TTMSFNCMapsGPXWayPointRec;\r\nbegin\r\n  Result.WayPoint.Latitude := 0;\r\n  Result.WayPoint.Longitude := 0;\r\n  Result.Elevation := 0;\r\n  Result.TimeStamp := 0;\r\n  Result.HasElevation := False;\r\n  Result.HasTimeStamp := False;\r\n  Result.Name := '';\r\n  Result.Comment := '';\r\n  Result.Description := '';\r\n  Result.Symbol := '';\r\n  Result.Link := '';\r\n  Result.WayPointType := '';\r\nend;\r\n\r\nfunction EmptyCoordinate: TTMSFNCMapsCoordinateRec;\r\nbegin\r\n  Result.Latitude := 0;\r\n  Result.Longitude := 0;\r\n  Result.Elevation := 0;\r\n  Result.TimeStamp := 0;\r\n  Result.HasElevation := False;\r\n  Result.HasTimeStamp := False;\r\n  Result.DataObject := nil;\r\nend;\r\n\r\nfunction DefaultCoordinate: TTMSFNCMapsCoordinateRec;\r\nbegin\r\n  Result.Latitude := DEFAULT_LATITUDE;\r\n  Result.Longitude := DEFAULT_LONGITUDE;\r\n  Result.Elevation := 0;\r\n  Result.TimeStamp := 0;\r\n  Result.HasElevation := False;\r\n  Result.HasTimeStamp := False;\r\n  Result.DataObject := nil;\r\nend;\r\n\r\nfunction CenterCoordinate: TTMSFNCMapsCoordinateRec;\r\nbegin\r\n  Result.Latitude := 0;\r\n  Result.Longitude := 0;\r\n  Result.Elevation := 0;\r\n  Result.TimeStamp := 0;\r\n  Result.HasElevation := False;\r\n  Result.HasTimeStamp := False;\r\n  Result.DataObject := nil;\r\nend;\r\n\r\nfunction CreateCircle(ACenter: TTMSFNCMapsCoordinateRec; ARadius: Double): TTMSFNCMapsCoordinateRecArray;\r\nvar\r\n  I: Integer;\r\nconst\r\n  stp = 100;\r\nbegin\r\n  for I := 0 to stp do\r\n  begin\r\n    SetLength(Result, Length(Result) + 1);\r\n    Result[Length(Result) - 1] := CalculateCoordinate(ACenter, I * -360 / stp, ARadius);\r\n  end;\r\nend;\r\n\r\nfunction CreateCoordinate(const ALatitude: Double; const ALongitude: Double): TTMSFNCMapsCoordinateRec;\r\nbegin\r\n  Result.Latitude := ALatitude;\r\n  Result.Longitude := ALongitude;\r\n  Result.Elevation := 0;\r\n  Result.TimeStamp := 0;\r\n  Result.HasElevation := False;\r\n  Result.HasTimeStamp := False;\r\n  Result.DataObject := nil;\r\nend;\r\n\r\n{ TTMSFNCMapsCoordinates }\r\n\r\nfunction TTMSFNCMapsCoordinates.Add: TTMSFNCMapsCoordinateItem;\r\nbegin\r\n  Result := TTMSFNCMapsCoordinateItem(inherited Add);\r\nend;\r\n\r\nprocedure TTMSFNCMapsCoordinates.Clear;\r\nvar\r\n  ci: TCollectionItem;\r\nbegin\r\n  if Assigned(OnBeginUpdate) then\r\n    OnBeginUpdate(Self);\r\n\r\n  if Count > 0 then\r\n  begin\r\n    while Count > 0 do\r\n    begin\r\n      ci := TCollectionItem(Items[Count - 1]);\r\n      ci.Free;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(OnEndUpdate) then\r\n    OnEndUpdate(Self);\r\nend;\r\n\r\nconstructor TTMSFNCMapsCoordinates.Create(AOwner: TPersistent);\r\nbegin\r\n  inherited Create(AOwner, CreateItemClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCMapsCoordinates.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCMapsCoordinateItem;\r\nend;\r\n\r\ndestructor TTMSFNCMapsCoordinates.Destroy;\r\nbegin\r\n  if Assigned(FBounds) then\r\n    FBounds.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCMapsCoordinates.GetArray: TTMSFNCMapsCoordinateRecArray;\r\nvar\r\n  I: Integer;\r\n  r: TTMSFNCMapsCoordinateRec;\r\nbegin\r\n  SetLength(Result, Count);\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    r.Longitude := Self[I].Longitude;\r\n    r.Latitude := Self[I].Latitude;\r\n    r.Elevation := 0;\r\n    r.TimeStamp := 0;\r\n    r.HasElevation := False;\r\n    r.HasTimeStamp := False;\r\n    r.DataObject := nil;\r\n    Result[I] := r;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCMapsCoordinates.GetBounds: TTMSFNCMapsBounds;\r\nvar\r\n  b: TTMSFNCMapsBoundsRec;\r\nbegin\r\n  if not Assigned(FBounds) then\r\n    FBounds := TTMSFNCMapsBounds.Create;\r\n\r\n  b := CreateBounds(ToArray);\r\n\r\n  FBounds.NorthEast.Longitude := b.NorthEast.Longitude;\r\n  FBounds.NorthEast.Latitude := b.NorthEast.Latitude;\r\n  FBounds.SouthWest.Longitude := b.SouthWest.Longitude;\r\n  FBounds.SouthWest.Latitude := b.SouthWest.Latitude;\r\n\r\n  Result := FBounds;\r\nend;\r\n\r\nfunction TTMSFNCMapsCoordinates.GetItem(\r\n  Index: Integer): TTMSFNCMapsCoordinateItem;\r\nbegin\r\n  Result := TTMSFNCMapsCoordinateItem(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCMapsCoordinates.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCMapsCoordinates.Insert(\r\n  Index: Integer): TTMSFNCMapsCoordinateItem;\r\nbegin\r\n  Result := TTMSFNCMapsCoordinateItem(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCMapsCoordinates.SetArray(\r\n  const Value: TTMSFNCMapsCoordinateRecArray);\r\nvar\r\n  I: Integer;\r\n  c: TTMSFNCMapsCoordinateItem;\r\nbegin\r\n  Clear;\r\n\r\n  for I := 0 to Length(Value) - 1 do\r\n  begin\r\n    c := Add;\r\n    c.Latitude := Value[I].Latitude;\r\n    c.Longitude := Value[I].Longitude;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsCoordinates.SetItem(Index: Integer;\r\n  const Value: TTMSFNCMapsCoordinateItem);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nprocedure TTMSFNCMapsCoordinates.UpdateCoordinates;\r\nbegin\r\n  if Assigned(OnUpdateCoordinates) then\r\n    OnUpdateCoordinates(Self);\r\nend;\r\n\r\n{ TTMSFNCMapsCoordinateItem }\r\n\r\nprocedure TTMSFNCMapsCoordinateItem.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCMapsCoordinateItem then\r\n    FCoordinate.Assign((Source as TTMSFNCMapsCoordinateItem).Coordinate);\r\nend;\r\n\r\nconstructor TTMSFNCMapsCoordinateItem.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(ACollection) then\r\n    FOwner := (Collection as TTMSFNCMapsCoordinates).FOwner;\r\n\r\n  FCoordinate := TTMSFNCMapsCoordinate.Create;\r\n  FCoordinate.OnChange := @CoordinateChanged;\r\n\r\n  UpdateCoordinateItem;\r\nend;\r\n\r\ndestructor TTMSFNCMapsCoordinateItem.Destroy;\r\nbegin\r\n  FCoordinate.Free;\r\n  inherited;\r\n  UpdateCoordinateItem;\r\nend;\r\n\r\nfunction TTMSFNCMapsCoordinateItem.GetLatitude: Double;\r\nbegin\r\n  Result := Coordinate.Latitude;\r\nend;\r\n\r\nfunction TTMSFNCMapsCoordinateItem.GetLongitude: Double;\r\nbegin\r\n  Result := Coordinate.Longitude;\r\nend;\r\n\r\nfunction TTMSFNCMapsCoordinateItem.IsLatitudeStored: Boolean;\r\nbegin\r\n  Result := Latitude <> DEFAULT_LATITUDE;\r\nend;\r\n\r\nfunction TTMSFNCMapsCoordinateItem.IsLongitudeStored: Boolean;\r\nbegin\r\n  Result := Longitude <> DEFAULT_LONGITUDE;\r\nend;\r\n\r\nprocedure TTMSFNCMapsCoordinateItem.CoordinateChanged(Sender: TObject);\r\nbegin\r\n  UpdateCoordinateItem;\r\nend;\r\n\r\nprocedure TTMSFNCMapsCoordinateItem.SetCoordinate(const Value: TTMSFNCMapsCoordinate);\r\nbegin\r\n  if FCoordinate <> Value then\r\n  begin\r\n    FCoordinate.Assign(Value);\r\n    UpdateCoordinateItem;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsCoordinateItem.SetLatitude(const Value: Double);\r\nbegin\r\n  Coordinate.Latitude := Value;\r\nend;\r\n\r\nprocedure TTMSFNCMapsCoordinateItem.SetLongitude(const Value: Double);\r\nbegin\r\n  Coordinate.Longitude := Value;\r\nend;\r\n\r\nprocedure TTMSFNCMapsCoordinateItem.UpdateCoordinateItem;\r\nbegin\r\n  if (Collection is TTMSFNCMapsCoordinates) then\r\n    (Collection as TTMSFNCMapsCoordinates).UpdateCoordinates;\r\nend;\r\n\r\n{ TTMSFNCMapsBounds }\r\n\r\nprocedure TTMSFNCMapsBounds.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCMapsBounds then\r\n  begin\r\n    FNorthEast.Assign((Source as TTMSFNCMapsBounds).NorthEast);\r\n    FSouthWest.Assign((Source as TTMSFNCMapsBounds).SouthWest);\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCMapsBounds.Create(ANorthEast: TTMSFNCMapsCoordinateRec; ASouthWest: TTMSFNCMapsCoordinateRec);\r\nbegin\r\n  FNorthEast := TTMSFNCMapsCoordinate.Create(ANorthEast);\r\n  FNorthEast.OnChange := @DoCoordinateChanged;\r\n  FSouthWest := TTMSFNCMapsCoordinate.Create(ASouthWest);\r\n  FSouthWest.OnChange := @DoCoordinateChanged;\r\nend;\r\n\r\nconstructor TTMSFNCMapsBounds.Create;\r\nbegin\r\n  FNorthEast := TTMSFNCMapsCoordinate.Create;\r\n  FSouthWest := TTMSFNCMapsCoordinate.Create;\r\nend;\r\n\r\ndestructor TTMSFNCMapsBounds.Destroy;\r\nbegin\r\n  FNorthEast.Free;\r\n  FSouthWest.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCMapsBounds.DoCoordinateChanged(Sender: TObject);\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nfunction TTMSFNCMapsBounds.GetToRec: TTMSFNCMapsBoundsRec;\r\nvar\r\n  r: TTMSFNCMapsBoundsRec;\r\n  ne, sw: TTMSFNCMapsCoordinateRec;\r\nbegin\r\n  ne := Self.NorthEast.ToRec;\r\n  sw := Self.SouthWest.ToRec;\r\n  r.NorthEast := ne;\r\n  r.SouthWest := sw;\r\n  Result := r;\r\nend;\r\n\r\nprocedure TTMSFNCMapsBounds.SetToRec(const Value: TTMSFNCMapsBoundsRec);\r\nbegin\r\n  Self.NorthEast.ToRec := Value.NorthEast;\r\n  Self.SouthWest.ToRec := Value.SouthWest;\r\nend;\r\n\r\n{ TTMSFNCMapsCoordinate }\r\n\r\nprocedure TTMSFNCMapsCoordinate.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCMapsCoordinate then\r\n  begin\r\n    FLatitude := (Source as TTMSFNCMapsCoordinate).Latitude;\r\n    FLongitude := (Source as TTMSFNCMapsCoordinate).Longitude;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCMapsCoordinate.Create;\r\nbegin\r\n  FLatitude := DEFAULT_LATITUDE;\r\n  FLongitude := DEFAULT_LONGITUDE;\r\nend;\r\n\r\nconstructor TTMSFNCMapsCoordinate.Create(ACoordinate: TTMSFNCMapsCoordinateRec);\r\nbegin\r\n  FLatitude := ACoordinate.Latitude;\r\n  FLongitude := ACoordinate.Longitude;\r\nend;\r\n\r\nconstructor TTMSFNCMapsCoordinate.Create(ALatitude, ALongitude: Double);\r\nbegin\r\n  Create(CreateCoordinate(ALatitude, ALongitude));\r\nend;\r\n\r\nfunction TTMSFNCMapsCoordinate.GetToRec: TTMSFNCMapsCoordinateRec;\r\nvar\r\n  c: TTMSFNCMapsCoordinateRec;\r\nbegin\r\n  c.Longitude := Longitude;\r\n  c.Latitude := Latitude;\r\n  c.Elevation := 0;\r\n  c.TimeStamp := 0;\r\n  c.HasElevation := False;\r\n  c.HasTimeStamp := False;\r\n  c.DataObject := nil;\r\n  Result := c;\r\nend;\r\n\r\nfunction TTMSFNCMapsCoordinate.IsLatitudeStored: Boolean;\r\nbegin\r\n  Result := Latitude <> DEFAULT_LATITUDE;\r\nend;\r\n\r\nfunction TTMSFNCMapsCoordinate.IsLongitudeStored: Boolean;\r\nbegin\r\n  Result := Longitude <> DEFAULT_LONGITUDE;\r\nend;\r\n\r\nprocedure TTMSFNCMapsCoordinate.UpdateCoordinate;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nprocedure TTMSFNCMapsCoordinate.SetLatitude(const Value: Double);\r\nbegin\r\n  if FLatitude <> Value then\r\n  begin\r\n    FLatitude := Value;\r\n    UpdateCoordinate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsCoordinate.SetLongitude(const Value: Double);\r\nbegin\r\n  if FLongitude <> Value then\r\n  begin\r\n    FLongitude := Value;\r\n    UpdateCoordinate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsCoordinate.SetToRec(const Value: TTMSFNCMapsCoordinateRec);\r\nbegin\r\n  Self.Latitude := Value.Latitude;\r\n  Self.Longitude := Value.Longitude;\r\nend;\r\n\r\n{ TTMSFNCMapsBasePoint }\r\n\r\nprocedure TTMSFNCMapsBasePoint.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTMSFNCMapsBasePoint) then\r\n  begin\r\n    FX := (Source as TTMSFNCMapsBasePoint).X;\r\n    FY := (Source as TTMSFNCMapsBasePoint).Y;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCMapsBasePoint.Create;\r\nbegin\r\n  FX := 0;\r\n  FY := 0;\r\nend;\r\n\r\nfunction TTMSFNCMapsBasePoint.IsYStored: Boolean;\r\nbegin\r\n  Result := Y <> 0;\r\nend;\r\n\r\nfunction TTMSFNCMapsBasePoint.IsXStored: Boolean;\r\nbegin\r\n  Result := X <> 0;\r\nend;\r\n\r\nprocedure TTMSFNCMapsBasePoint.SetY(const Value: Single);\r\nbegin\r\n  if FY <> Value then\r\n  begin\r\n    FY := Value;\r\n    UpdatePoint;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsBasePoint.SetX(const Value: Single);\r\nbegin\r\n  if FX <> Value then\r\n  begin\r\n    FX := Value;\r\n    UpdatePoint;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsBasePoint.UpdatePoint;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\n{ TTMSFNCMapsPlusCode }\r\n\r\nclass function TTMSFNCMapsPlusCode.Decode(\r\n  APlusCode: string): TTMSFNCMapsBoundsRec;\r\nvar\r\n  latVal, lngVal, latPlaceVal, lngPlaceVal: Int64;\r\n  pairPartLength, codeLength: Integer;\r\n  I: Integer;\r\n  digit, row, col: Integer;\r\n\r\n  function NormalizeCode(ACode: string): string;\r\n  var\r\n    K: Integer;\r\n  begin\r\n    Result := ACode;\r\n    if Length(ACode) < SeparatorPosition then\r\n    begin\r\n      Result := ACode;\r\n      for K := 0 to SeparatorPosition - Length(ACode) - 1 do\r\n        Result := Result + PaddingCharacter;\r\n\r\n      Result := Result + SeparatorCharacter;\r\n    end\r\n    else if Length(ACode) = SeparatorPosition then\r\n      Result := ACode + SeparatorCharacter\r\n    else if ACode[SeparatorPosition{$IFNDEF ZEROSTRINGINDEX}+1{$ENDIF}] <> SeparatorCharacter then\r\n      Result := Copy(ACode, 0, SeparatorPosition) + SeparatorCharacter + Copy(ACode, SeparatorPosition + 1, Length(ACode) - SeparatorPosition);\r\n  end;\r\nbegin\r\n  APlusCode := NormalizeCode(UpperCase(APlusCode));\r\n  APlusCode := StringReplace(APlusCode, SeparatorCharacter, '', [rfReplaceAll]);\r\n  APlusCode := StringReplace(APlusCode, PaddingCharacter, '', [rfReplaceAll]);\r\n\r\n  latVal := -LatitudeMax * LatIntegerMultiplier;\r\n  lngVal := -LongitudeMax * LngIntegerMultiplier;\r\n\r\n  latPlaceVal := LatMspValue;\r\n  lngPlaceVal := LngMspValue;\r\n\r\n  pairPartLength := Min(Length(APlusCode), PairCodeLength);\r\n  codeLength := Min(Length(APlusCode), MaxDigitCount);\r\n\r\n  i := 0;\r\n  while i < pairPartLength do\r\n  begin\r\n    latPlaceVal := latPlaceVal div EncodingBase;\r\n    lngPlaceVal := lngPlaceVal div EncodingBase;\r\n    latVal := latVal + DigitValueOf(APlusCode[i {$IFNDEF ZEROSTRINGINDEX} + 1 {$ENDIF}]) * latPlaceVal;\r\n    lngVal := lngVal + DigitValueOf(APlusCode[i {$IFNDEF ZEROSTRINGINDEX} + 1 {$ENDIF} + 1]) * lngPlaceVal;\r\n    Inc(i, 2);\r\n  end;\r\n\r\n  i := PairCodeLength;\r\n  while i < codeLength do\r\n  begin\r\n    latPlaceVal := latPlaceVal div GridRows;\r\n    lngPlaceVal := lngPlaceVal div GridColumns;\r\n    digit := DigitValueOf(APlusCode[i {$IFNDEF ZEROSTRINGINDEX} + 1 {$ENDIF}]);\r\n    row := digit div GridColumns;\r\n    col := digit mod GridColumns;\r\n    latVal := latVal + row * latPlaceVal;\r\n    lngVal := lngVal + col * lngPlaceVal;\r\n    Inc(I);\r\n  end;\r\n\r\n  Result := CreateBounds((latVal + latPlaceVal) / LatIntegerMultiplier, (lngVal + lngPlaceVal) / LngIntegerMultiplier,\r\n    latVal / LatIntegerMultiplier, lngVal / LngIntegerMultiplier);\r\nend;\r\n\r\nclass function TTMSFNCMapsPlusCode.DigitValueOf(digit: Char): Integer;\r\nbegin\r\n  Result := TTMSFNCUtils.IndexOfTextInArray(digit, CodeAlphaBet);\r\nend;\r\n\r\nclass function TTMSFNCMapsPlusCode.Encode(\r\n  ACoordinate: TTMSFNCMapsCoordinateRec): string;\r\nconst\r\n  codeLength: Integer = 10;\r\nvar\r\n  latDigit, lngDigit, latitude, longitude, latVal, lngVal: Double;\r\n  I, K, ndx: Integer;\r\n  s: string;\r\n\r\n  function ClipLatitude(ALatitude: Double): Double;\r\n  begin\r\n    Result := Min(Max(ALatitude, -LatitudeMax), LatitudeMax);\r\n  end;\r\n\r\n  function NormalizeLongitude(ALongitude: Double): Double;\r\n  begin\r\n    Result := ALongitude;\r\n    while Result < -LongitudeMax do\r\n      Result := Result + LongitudeMax * 2;\r\n\r\n    while Result >= LongitudeMax do\r\n      Result := Result - LongitudeMax * 2;\r\n  end;\r\n\r\n  function ComputeLatitudePrecision(ACodeLength: Integer): Double;\r\n  begin\r\n    if ACodeLength <= 10 then\r\n    begin\r\n      Result := Power(EncodingBase, ACodeLength / -2  + 2);\r\n      Exit;\r\n    end;\r\n\r\n    Result := Power(EncodingBase, -2) / Power(GridRows, ACodeLength - PairCodeLength);\r\n  end;\r\n\r\n  function FModEx(const ANumerator, ADenominator: Double): Double;\r\n  begin\r\n    Result := ANumerator - Trunc(ANumerator / ADenominator) * ADenominator;\r\n  end;\r\n\r\nbegin\r\n  Result := '';\r\n\r\n  latitude := ClipLatitude(ACoordinate.Latitude);\r\n  longitude := NormalizeLongitude(ACoordinate.Longitude);\r\n\r\n  if Int(latitude) = LatitudeMax then\r\n    latitude := latitude - 0.9 * ComputeLatitudePrecision(codeLength);\r\n\r\n  latVal := Round((latitude + LatitudeMax) * LatIntegerMultiplier * 1E6) / 1E6;\r\n  lngVal := Round((longitude + LongitudeMax) * LngIntegerMultiplier * 1E6) / 1E6;\r\n\r\n  if codeLength > PairCodeLength then\r\n  begin\r\n    for I := 0 to GridCodeLength - 1 do\r\n    begin\r\n      latDigit := FModEx(latVal, GridRows);\r\n      lngDigit := FModEx(lngVal, GridColumns);\r\n      ndx := Round(Int(latDigit * GridColumns + lngDigit));\r\n      s := CodeAlphaBet[ndx] + s;\r\n      latVal := latVal / GridRows;\r\n      lngVal := lngVal / GridColumns;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    latVal := latVal / GridRowsMultiplier;\r\n    lngVal := lngVal / GridColumnsMultiplier;\r\n  end;\r\n\r\n  for I := 0 to (PairCodeLength div 2) - 1 do\r\n  begin\r\n    s := CodeAlphaBet[Round(Int(FModEx(lngVal, EncodingBase)))] + s;\r\n    s := CodeAlphaBet[Round(Int(FModEx(latVal, EncodingBase)))] + s;\r\n    latVal := latVal / EncodingBase;\r\n    lngVal := lngVal / EncodingBase;\r\n  end;\r\n\r\n  s := Copy(s, 0, SeparatorPosition) + SeparatorCharacter + Copy(s, SeparatorPosition + 1, Length(s) - SeparatorPosition);\r\n\r\n  if codeLength >= SeparatorPosition then\r\n  begin\r\n    Result := Copy(s, 0, codeLength + 1);\r\n    Exit;\r\n  end;\r\n\r\n  Result := Copy(s, 0, codeLength);\r\n  for K := 0 to SeparatorPosition - codeLength - 1 do\r\n    Result := Result + PaddingCharacter;\r\n\r\n  Result := Result + SeparatorCharacter;\r\nend;\r\n\r\n{ TTMSFNCMapsGPXTrackEventData }\r\n\r\nconstructor TTMSFNCMapsGPXTrackEventData.Create;\r\nbegin\r\n  FNode := nil;\r\nend;\r\n\r\ndestructor TTMSFNCMapsGPXTrackEventData.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\n{ TTMSFNCMapsGPXSegmentEventData }\r\n\r\nconstructor TTMSFNCMapsGPXSegmentEventData.Create;\r\nbegin\r\n  FNode := nil;\r\nend;\r\n\r\ndestructor TTMSFNCMapsGPXSegmentEventData.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\n{ TTMSFNCMapsGPXWayPointEventData }\r\n\r\nconstructor TTMSFNCMapsGPXWayPointEventData.Create;\r\nbegin\r\n  FNode := nil;\r\nend;\r\n\r\ndestructor TTMSFNCMapsGPXWayPointEventData.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\n{$IFDEF WEBLIB}\r\nfunction TJSNodeListHelper.GetCount: NativeInt;\r\nbegin\r\n  Result := length;\r\nend;\r\n\r\nfunction TJSNodeListHelper.FindNode(ANodeName: string): TJSNode;\r\nvar\r\n  Index: Integer;\r\nbegin\r\n  Index := IndexOf(ANodeName);\r\n  if Index >= 0 then\r\n    Result := Nodes[Index]\r\n  else\r\n    Result := nil;\r\nend;\r\n\r\nfunction TJSNodeListHelper.IndexOf(const Name: string): NativeInt;\r\nvar\r\n  n: TJSNode;\r\nbegin\r\n  for Result := 0 to Count - 1 do\r\n  begin\r\n    n := Nodes[Result];\r\n    if (n.nodeName = Name) then\r\n      Exit;\r\n  end;\r\n  Result := -1;\r\nend;\r\n{$ENDIF}\r\n\r\nfunction LoadResourceFile(AResName: string): string;\r\n{$IFNDEF WEBLIB}\r\nvar\r\n  RS: TResourceStream;\r\n  ST: TStringList;\r\n{$ENDIF}\r\nbegin\r\n  Result := '';\r\n{$IFNDEF WEBLIB}\r\n  ST := TStringList.Create;\r\n  begin\r\n    RS := TTMSFNCUtils.GetResourceStream(AResName);\r\n    try\r\n      ST.LoadFromStream(RS{$IFNDEF LCLLIB}, TEncoding.UTF8{$ENDIF});\r\n      Result := ST.text;\r\n    finally\r\n      RS.Free;\r\n    end;\r\n  end;\r\n  ST.Free;\r\n{$ENDIF}\r\nend;\r\n\r\nfunction SaveToGPX(ACoordinates: TTMSFNCMapsCoordinateRecArray; AMetaData: TTMSFNCMapsGPXMetaData;\r\n  IncludeElevation: Boolean = True; IncludeTimeStamp: Boolean = True; AInstructions: string = ''; AWayPoints: TTMSFNCMapsGPXWayPointRecArray = nil): string;\r\nvar\r\n  Segments: TTMSFNCMapsCoordinateRecArrayArray;\r\n  Instructions: TStringList;\r\nbegin\r\n  Setlength(Segments, 1);\r\n  Segments[0] := ACoordinates;\r\n  Instructions := TStringList.Create;\r\n  Instructions.Add(AInstructions);\r\n  Result := SaveToGPX(Segments, AMetaData, IncludeElevation, IncludeTimeStamp, Instructions, AWayPoints);\r\n  Instructions.Free;\r\nend;\r\n\r\nfunction SaveToGPX(ASegments: TTMSFNCMapsCoordinateRecArrayArray; AMetaData: TTMSFNCMapsGPXMetaData;\r\n  IncludeElevation: Boolean = True; IncludeTimeStamp: Boolean = True; AInstructions: TStringList = nil; AWayPoints: TTMSFNCMapsGPXWayPointRecArray = nil): string;\r\nconst\r\n  LB = #13;\r\n\r\n  function XMLEncode(AText: string): string;\r\n  begin\r\n    Result := StringReplace(AText, '<', '&lt;', [rfReplaceAll]);\r\n    Result := StringReplace(Result, '>', '&gt;', [rfReplaceAll]);\r\n    Result := StringReplace(Result, '%', '&#37;', [rfReplaceAll]);\r\n  end;\r\n\r\nvar\r\n  i, j: Integer;\r\n  hdr, trk, ftr, wpt: string;\r\n  sl: TStringList;\r\n  {$IFDEF WEBLIB}\r\n  d, t: string;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  d, t: Char;\r\n  {$ENDIF}\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray;\r\nbegin\r\n  t := FormatSettings.ThousandSeparator;\r\n  d := FormatSettings.DecimalSeparator;\r\n  FormatSettings.DecimalSeparator := '.';\r\n  FormatSettings.ThousandSeparator := ',';\r\n\r\n  hdr :=\r\n    '<?xml version=\"1.0\"?>' + LB +\r\n    '<gpx xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" xmlns:xsd=\"http://www.w3.org/2001/XMLSchema\" ' + LB +\r\n    'xsi:schemaLocation=\"http://www.topografix.com/GPX/1/1 http://www.topografix.com/GPX/1/1/gpx.xsd\" version=\"1.1\" creator=\"TMS FNC Maps\" xmlns=\"http://www.topografix.com/GPX/1/1\">' + LB +\r\n    '<metadata>' + LB +\r\n    '<author>' + LB +\r\n    '<name>%s</name>' + LB +\r\n    '<link href=\"%s\" />' + LB +\r\n    '</author>' + LB +\r\n    '</metadata>' + LB;\r\n\r\n  wpt := '';\r\n  if Assigned(AWayPoints) then\r\n  begin\r\n    sl := TStringList.Create;\r\n    try\r\n        for j := 0 to Length(AWayPoints) - 1 do\r\n        begin\r\n          sl.Add(Format('<wpt lat=\"%.7f\" lon=\"%.7f\">', [AWayPoints[j].WayPoint.Latitude, AWayPoints[j].WayPoint.Longitude]));\r\n          if AWayPoints[j].HasElevation then\r\n          begin\r\n            sl.Add(Format('<ele>%.7f</ele>', [AWayPoints[j].Elevation]));\r\n          end;\r\n          if AWayPoints[j].HasTimeStamp then\r\n          begin\r\n            sl.Add(Format('<time>%s</time>', [TTMSFNCUtils.DateTimeToISO(AWayPoints[j].TimeStamp, True, True)]));\r\n          end;\r\n          if AWayPoints[j].Name <> '' then\r\n          begin\r\n            sl.Add(Format('<name>%s</name>', [XMLEncode(AWayPoints[j].Name)]));\r\n          end;\r\n          if AWayPoints[j].Comment <> '' then\r\n          begin\r\n            sl.Add(Format('<cmt>%s</cmt>', [XMLEncode(AWayPoints[j].Comment)]));\r\n          end;\r\n          if AWayPoints[j].Description <> '' then\r\n          begin\r\n            sl.Add(Format('<desc>%s</desc>', [XMLEncode(AWayPoints[j].Description)]));\r\n          end;\r\n          if AWayPoints[j].Symbol <> '' then\r\n          begin\r\n            sl.Add(Format('<sym>%s</sym>', [AWayPoints[j].Symbol]));\r\n          end;\r\n          if AWayPoints[j].WayPointType <> '' then\r\n          begin\r\n            sl.Add(Format('<type>%s</type>', [AWayPoints[j].WayPointType]));\r\n          end;\r\n          if AWayPoints[j].Link <> '' then\r\n          begin\r\n            sl.Add(Format('<link href=\"%s\"/>', [AWayPoints[j].Link]));\r\n          end;\r\n          sl.Add('</wpt>');\r\n        end;\r\n        wpt := sl.Text;\r\n    finally\r\n      sl.Free;\r\n    end;\r\n  end;\r\n\r\n  trk :=\r\n    '<trk>' + LB +\r\n    '<name>%s</name>' + LB +\r\n    '<type>%s</type>';\r\n\r\n  hdr := hdr + wpt + trk;\r\n\r\n  ftr :=\r\n    '</trk>' + LB +\r\n    '</gpx>';\r\n\r\n  hdr := Format(hdr,[AMetaData.AuthorName, AMetaData.AuthorLink, AMetaData.TrackName, AMetaData.TrackType]);\r\n\r\n  sl := TStringList.Create;\r\n  try\r\n    sl.Add(hdr);\r\n\r\n    for i := 0 to Length(ASegments) - 1 do\r\n    begin\r\n      ACoordinates := ASegments[i];\r\n      sl.Add('<trkseg>');\r\n\r\n      if Assigned(AInstructions) and (AInstructions.Count > i) then\r\n      begin\r\n        sl.Add(Format('<extensions>' + LB + '<instructions>%s</instructions>' + LB + '</extensions>', [AInstructions[I]]));\r\n      end;\r\n\r\n      for j := 0 to Length(ACoordinates) - 1 do\r\n      begin\r\n        sl.Add(Format('<trkpt lat=\"%.7f\" lon=\"%.7f\">', [ACoordinates[j].Latitude, ACoordinates[j].Longitude]));\r\n        if IncludeElevation and ACoordinates[j].HasElevation then\r\n        begin\r\n          sl.Add(Format('<ele>%.7f</ele>', [ACoordinates[j].Elevation]));\r\n        end;\r\n        if IncludeTimeStamp and ACoordinates[j].HasTimeStamp then\r\n        begin\r\n          sl.Add(Format('<time>%s</time>', [TTMSFNCUtils.DateTimeToISO(ACoordinates[j].TimeStamp, True, True)]));\r\n        end;\r\n        sl.Add('</trkpt>');\r\n      end;\r\n\r\n      sl.Add('</trkseg>');\r\n    end;\r\n\r\n    sl.Add(ftr);\r\n\r\n    Result := sl.Text;\r\n  finally\r\n    sl.Free;\r\n  end;\r\n\r\n  FormatSettings.ThousandSeparator := t;\r\n  FormatSettings.DecimalSeparator := d;\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2019 - 2021                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCCloudBase.WEB;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\ninterface\r\n\r\nprocedure RegisterCloudBaseService;\r\nprocedure UnRegisterCloudBaseService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Types, SysUtils, WEBLib.TMSFNCCloudBase, WEBLib.TMSFNCTypes\r\n  {$IFDEF WEBLIB}\r\n  ,web\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCWEBCloudBaseService = class;\r\n\r\n  TTMSFNCWEBCloudBaseService = class(TTMSFNCCloudBaseFactoryService)\r\n  protected\r\n    function DoCreateCloudBase(const AValue: TTMSFNCCustomCloudBase): ITMSFNCCustomCloudBase; override;\r\n  end;\r\n\r\n  TTMSFNCCloudBaseRequestResultOpen = class(TTMSFNCCloudBaseRequestResult);\r\n\r\n  TTMSFNCWEBCloudBase = class(TInterfacedObject, ITMSFNCCustomCloudBase)\r\n  private\r\n    FCloudBaseInstance: TTMSFNCCustomCloudBase;\r\n  public\r\n    constructor Create(const ACloudBaseInstance: TTMSFNCCustomCloudBase);\r\n    function GetUploadFileSize(const ARequest: TTMSFNCCloudBaseRequest): Int64;\r\n    procedure ExecuteRequest(const ARequest: TTMSFNCCloudBaseRequestResult);\r\n    procedure RunExternalBrowser(const AURL: string; const ACallBackURL: string; const ACallBack: TTMSFNCCloudBaseExternalBrowserCallBackEvent = nil);\r\n    procedure CloseBrowser;\r\n  end;\r\n\r\nvar\r\n  CloudBaseService: ITMSFNCCloudBaseService;\r\n\r\nprocedure RegisterCloudBaseService;\r\nbegin\r\n  if not TTMSFNCCloudBasePlatformServices.Current.SupportsPlatformService(ITMSFNCCloudBaseService, IInterface(CloudBaseService)) then\r\n  begin\r\n    CloudBaseService := TTMSFNCWEBCloudBaseService.Create;\r\n    TTMSFNCCloudBasePlatformServices.Current.AddPlatformService(ITMSFNCCloudBaseService, CloudBaseService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterCloudBaseService;\r\nbegin\r\n  TTMSFNCCloudBasePlatformServices.Current.RemovePlatformService(ITMSFNCCloudBaseService);\r\nend;\r\n\r\nprocedure TTMSFNCWEBCloudBase.RunExternalBrowser(const AURL: string; const ACallBackURL: string; const ACallBack: TTMSFNCCloudBaseExternalBrowserCallBackEvent = nil);\r\n{$IFNDEF WEBLIB}\r\nbegin\r\n{$ELSE}\r\nvar\r\n  s, sc: string;\r\n  cb: TTMSFNCCloudBaseExternalBrowserCallBackEvent;\r\nbegin\r\n  cb := ACallBack;\r\n  s := AURL;\r\n  sc := ACallBackURL;\r\n  asm\r\n    this.OAuthPopup = function(options)\r\n    {\r\n\r\n        var l, t, w, h;\r\n        w = 800;\r\n        h = 600;\r\n\r\n        var dualScreenLeft = window.screenLeft != undefined ? window.screenLeft : window.screenX;\r\n        var dualScreenTop = window.screenTop != undefined ? window.screenTop : window.screenY;\r\n\r\n        var width = window.innerWidth ? window.innerWidth : document.documentElement.clientWidth ? document.documentElement.clientWidth : screen.width;\r\n        var height = window.innerHeight ? window.innerHeight : document.documentElement.clientHeight ? document.documentElement.clientHeight : screen.height;\r\n\r\n        var systemZoom = width / window.screen.availWidth;\r\n        l = (width - w) / 2 / systemZoom + dualScreenLeft\r\n        t = (height - h) / 2 / systemZoom + dualScreenTop\r\n\r\n        options.windowName = options.windowName ||  'Authentication'; // should not include space for IE\r\n        options.windowOptions = options.windowOptions || 'location=0,status=0,left='+l+',top='+t+',width='+w+',height='+h+'';\r\n        options.callback = options.callback || function(){ window.location.reload(); };\r\n        var that = this;\r\n        that._oauthWindow = window.open(options.path, options.windowName, options.windowOptions);\r\n        that._oauthInterval = window.setInterval(function(){\r\n            var s, b;\r\n            if (that._oauthWindow && that._oauthWindow.location){\r\n              try{\r\n                 s = that._oauthWindow.location.href;\r\n                 if (!s){\r\n                   s = that._oauthWindow.location;\r\n                 }\r\n\r\n                 b = s.indexOf(sc) != -1;\r\n                 if (b) {\r\n                   that._oauthWindow.close();\r\n                   window.clearInterval(that._oauthInterval);\r\n                   if (b){\r\n                     options.callback(s);\r\n                   }\r\n                 }\r\n              }catch(exception){\r\n              }\r\n            }\r\n\r\n        }, 1000);\r\n    };\r\n\r\n    this.OAuthPopup({\r\n        path: s,\r\n        callback: function(callbackURL)\r\n        {\r\n          if (cb) {\r\n            cb(callbackURL);\r\n          }\r\n        }\r\n    });\r\n  end;\r\n{$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCWEBCloudBase.CloseBrowser;\r\nbegin\r\n//\r\nend;\r\n\r\nconstructor TTMSFNCWEBCloudBase.Create(const ACloudBaseInstance: TTMSFNCCustomCloudBase);\r\nbegin\r\n  FCloudBaseInstance := ACloudBaseInstance;\r\nend;\r\n\r\n{ TTMSFNCWEBCloudBaseService }\r\n\r\nfunction TTMSFNCWEBCloudBaseService.DoCreateCloudBase(const AValue: TTMSFNCCustomCloudBase): ITMSFNCCustomCloudBase;\r\nbegin\r\n  Result := TTMSFNCWEBCloudBase.Create(AValue);\r\nend;\r\n\r\nprocedure TTMSFNCWEBCloudBase.ExecuteRequest(const ARequest: TTMSFNCCloudBaseRequestResult);\r\n{$IFNDEF WEBLIB}\r\nbegin\r\n{$ELSE}\r\nvar\r\n  u: string;\r\n  up: Boolean;\r\n  timeo: Integer;\r\n  mt: string;\r\n  sz: Int64;\r\n  head, tail: string;\r\n  h: TTMSFNCCloudBaseRequestHeaders;\r\n  b: TBytes;\r\n\r\n  procedure AddHeader(const AName, AValue: string);\r\n  begin\r\n    h.Add(TTMSFNCCloudBaseRequestHeader.Create(AName, AValue));\r\n  end;\r\n\r\nbegin\r\n  try\r\n    u := ARequest.GetURL;\r\n    mt := ARequest.GetMethodString;\r\n    sz := GetUploadFileSize(ARequest);\r\n    head := '';\r\n    tail := '';\r\n    timeo := ARequest.ConnectTimeout;\r\n\r\n    h := TTMSFNCCloudBaseRequestHeaders.Create;\r\n    up := (ARequest.HasUploadStream or ARequest.HasUploadFile);\r\n\r\n    if not ARequest.CustomHeaders and (ARequest.Method in [rmPOST, rmPUT, rmPATCH]) and (ARequest.HasUploadStream or ARequest.HasUploadFile) then\r\n    begin\r\n      //AddHeader('Content-Length', inttostr(sz));\r\n      AddHeader('Content-Type', 'application/octet-stream');\r\n      AddHeader('Content-Transfer-Encoding', 'binary');\r\n    end;\r\n\r\n    if (ARequest.Method in [rmPOSTMULTIPART, rmPUTMULTIPART]) then\r\n    begin\r\n      head := sRequestHeadBoundary + #13#10;\r\n      tail := #13#10 + sRequestTailBoundary + #13#10;\r\n      AddHeader('Content-Type', 'multipart/form-data; boundary=' + sRequestBoundary);\r\n    end;\r\n\r\n    if (ARequest.Method in [rmPOSTMULTIPARTRELATED, rmPUTMULTIPARTRELATED]) then\r\n    begin\r\n      head := ''#13#10;\r\n      tail := #13#10 + sRequestTailBoundary + #13#10;\r\n      AddHeader('Content-Type', 'multipart/related; boundary=' + sRequestBoundary);\r\n    end;\r\n\r\n    asm\r\n      var arr = [];\r\n    end;\r\n\r\n    if head <> '' then\r\n    begin\r\n      asm\r\n        arr.push(head);\r\n      end;\r\n    end;\r\n\r\n    if ARequest.PostData <> '' then\r\n    begin\r\n      asm\r\n        arr.push(ARequest.FPostData);\r\n      end;\r\n    end;\r\n\r\n    if ARequest.HasUploadFile then\r\n    begin\r\n      asm\r\n        arr.push(ARequest.FUploadFile.Data);\r\n      end;\r\n      if Assigned(ARequest.OnProgress) then\r\n        ARequest.OnProgress(ARequest, 100, True);\r\n    end\r\n    else if ARequest.HasUploadStream then\r\n    begin\r\n      ARequest.UploadStream.Position := 0;\r\n\r\n      b := ARequest.UploadStream.Bytes;\r\n\r\n      asm\r\n        var byteArray = new Uint8Array(b);\r\n        arr.push(byteArray);\r\n      end;\r\n\r\n      if Assigned(ARequest.OnProgress) then\r\n        ARequest.OnProgress(ARequest, 100, True);\r\n    end;\r\n\r\n    if tail <> '' then\r\n    begin\r\n      asm\r\n        arr.push(tail);\r\n      end;\r\n    end;\r\n\r\n    if mt <> '' then\r\n    begin\r\n      asm\r\n        function reqListener(e)\r\n        {\r\n          var $tmp1 = ARequest.FResultType;\r\n\r\n          if (!(ARequest.FResponseCode in pas[\"WEBLib.TMSFNCCloudBase\"].ValidHTTPCodes)){\r\n            if (!this.responseType == \"arrayBuffer\"){\r\n              ARequest.FResultString = this.responseText;\r\n            }\r\n          }\r\n          else\r\n          {\r\n            if ($tmp1 === pas[\"WEBLib.TMSFNCCloudBase\"].TTMSFNCCloudBaseRequestResultType.rrtString) {\r\n              ARequest.FResultString = this.responseText;\r\n            }\r\n            else if ($tmp1 === pas[\"WEBLib.TMSFNCCloudBase\"].TTMSFNCCloudBaseRequestResultType.rrtFile) {\r\n              var byteArray = new Uint8Array(this.response);\r\n\r\n              var userAgent = navigator.userAgent.toLowerCase();\r\n              if (userAgent.indexOf('electron/') > -1)\r\n              {\r\n                require('fs').writeFile(ARequest.FResultFile, byteArray, (err) => {});\r\n              }\r\n              else\r\n              {\r\n                var m = pas[\"Classes\"].TMemoryStream.$create(\"Create\");\r\n                try\r\n                {\r\n                  m.Write(byteArray, byteArray.length);\r\n                  pas[\"WEBLib.TMSFNCTypes\"].TTMSFNCMemoryStream.SaveToFile.call(m, ARequest.FResultFile);\r\n                }\r\n                finally\r\n                {\r\n                  m = rtl.freeLoc(m);\r\n                }\r\n              }\r\n            }\r\n            else\r\n            {\r\n              var byteArray = new Uint8Array(this.response);\r\n              ARequest.FResultStream.Write(byteArray, byteArray.length);\r\n            }\r\n          }\r\n\r\n          ARequest.FDone = true;\r\n          if (ARequest.CheckTaskStatus()) {\r\n            if (ARequest.FOnProgress != null && e.total == 0) ARequest.FOnProgress(ARequest, 100, false);\r\n            if (ARequest.FOnComplete != null) ARequest.FOnComplete(ARequest);\r\n          }\r\n          else\r\n          {\r\n            if (ARequest.FOnCancelled != null) ARequest.FOnCancelled(ARequest);\r\n          }\r\n        }\r\n\r\n        const req = new XMLHttpRequest();\r\n        req.timeout = timeo;\r\n        req.addEventListener('load', reqListener);\r\n        req.onreadystatechange = () => {\r\n          ARequest.FResponseCode = req.status;\r\n\r\n          if(req.readyState == 2){\r\n            // Get the raw header string\r\n            var headers = req.getAllResponseHeaders();\r\n\r\n            // Convert the header string into an array\r\n            // of individual headers\r\n            var arr = headers.trim().split(/[\\r\\n]+/);\r\n\r\n            // Create a map of header names to values\r\n            arr.forEach(function (line) {\r\n              var parts = line.split(': ');\r\n              var header = parts.shift();\r\n              var value = parts.join(': ');\r\n              if (value != \"\"){\r\n                ARequest.FResponseHeaders.Add$1(pas[\"WEBLib.TMSFNCCloudBase\"].TTMSFNCCloudBaseRequestHeader.$create(\"Create$1\",[header,value]));\r\n              }\r\n            });\r\n          }\r\n        };\r\n        req.upload.addEventListener(\"progress\", function(event){\r\n          if (ARequest.CheckTaskStatus() && up && event.total > 0) {\r\n            if (ARequest.FOnProgress != null) ARequest.FOnProgress(ARequest, event.loaded / event.total * 100, true);\r\n          };\r\n        }, false);\r\n        req.onprogress = function(event){\r\n          if (ARequest.CheckTaskStatus() && !up && event.total > 0) {\r\n            ARequest.FTotalBytes = event.total;\r\n            ARequest.FBytesReceived = event.loaded;\r\n            if (ARequest.FOnProgress != null) ARequest.FOnProgress(ARequest, event.loaded / event.total * 100, false);\r\n          };\r\n        };\r\n\r\n        var $tmp1 = ARequest.FResultType;\r\n        if ($tmp1 === pas[\"WEBLib.TMSFNCCloudBase\"].TTMSFNCCloudBaseRequestResultType.rrtStream || $tmp1 === pas[\"WEBLib.TMSFNCCloudBase\"].TTMSFNCCloudBaseRequestResultType.rrtFile) {\r\n          req.responseType = 'arraybuffer';\r\n        }\r\n\r\n        req.open(mt, u);\r\n\r\n        for (var $l1 = 0, $end2 = ARequest.FHeaders.GetCount() - 1; $l1 <= $end2; $l1++) {\r\n            var I = $l1;\r\n            var hd = ARequest.FHeaders.GetItem$1(I);\r\n            req.setRequestHeader(hd.FName, hd.FValue);\r\n        };\r\n\r\n        for (var $l1 = 0, $end2 = h.GetCount() - 1; $l1 <= $end2; $l1++) {\r\n            var I = $l1;\r\n            var hd = h.GetItem$1(I);\r\n            req.setRequestHeader(hd.FName, hd.FValue);\r\n        };\r\n\r\n        try\r\n        {\r\n          if (arr.length > 0){\r\n            var b = new Blob(arr);\r\n            req.send(b);\r\n          }\r\n          else{\r\n            req.send();\r\n          }\r\n        }catch(exception){\r\n        }\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      if ARequest.CheckTaskStatus then\r\n      begin\r\n        TTMSFNCCloudbaseRequestResultOpen(ARequest).FDone := True;\r\n        if Assigned(ARequest.OnComplete) then\r\n          ARequest.OnComplete(ARequest);\r\n      end;    \r\n    end;\r\n  finally\r\n  end;\r\n{$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCWEBCloudBase.GetUploadFileSize(\r\n  const ARequest: TTMSFNCCloudBaseRequest): Int64;\r\nbegin\r\n  Result := 0;\r\n  {$IFDEF WEBLIB}\r\n  if ARequest.HasUploadFile then\r\n  begin\r\n    Result := ARequest.UploadFile.Data.length;\r\n  end\r\n  else if ARequest.HasUploadStream then\r\n  begin\r\n    ARequest.UploadStream.Position := 0;\r\n    Result := ARequest.UploadStream.Size;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2019 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCCloudBase;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$DEFINE LCLWEBLIBTHREAD}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$DEFINE LCLLIBTHREAD}\r\n{$DEFINE LCLWEBLIBTHREAD}\r\n{$ENDIF}\r\n\r\n{$IFNDEF LCLWEBLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION <= 26}\r\n{$DEFINE LCLWEBLIBTHREAD}\r\n{$DEFINE LCLLIBTHREAD}\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n\r\n{$IFDEF FNCLIB}\r\n{$IFNDEF LCLWEBLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 30}\r\n{$DEFINE SUPPORTCURL}\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\n{$IFNDEF LCLWEBLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 31}\r\n{$DEFINE SUPPORTPROMISE}\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, Types, WEBLib.TMSFNCCustomComponent, WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, SysUtils\r\n  {$IFDEF SUPPORTPROMISE}\r\n  {$IFDEF FMXLIB}\r\n  , FMX.Types\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  , Vcl.ExtCtrls\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 26}\r\n  ,Threading\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,contnrs, js\r\n  {$ENDIF}\r\n  ;\r\n\r\nconst\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 0; // Minor version nr.\r\n  REL_VER = 1; // Release nr.\r\n  BLD_VER = 1; // Build nr.\r\n  sRequestLineBreak = #13#10;\r\n  sRequestBoundary = 'AaB03x';\r\n  sRequestHeadBoundary = '--' + sRequestBoundary;\r\n  sRequestTailBoundary = '--' + sRequestBoundary + '--';\r\n  ValidHTTPCodes = [200, 201, 202, 204];\r\n\r\n  //v1.0.0.0 : First release\r\n  //v1.0.0.1 : Fixed : Issue with saving/loading additional information such as key, client id, secret and callback url\r\n  //v1.0.1.0 : New : OnRequestCancelled event added\r\n  //         : New : OnAccessDenied event added\r\n  //v1.0.1.0 : Improved : cancelling requests while uploading files\r\n\r\ntype\r\n  ETMSFNCCloudBaseException = class(Exception);\r\n  {$IFDEF SUPPORTPROMISE}\r\n  ETMSFNCCloudBasePromiseException = class(Exception);\r\n  {$ENDIF}\r\n\r\n  TTMSFNCCloudBaseLocale = (cblDefault, cblEnglish, cblDutch, cblGerman, cblFrench, cblSpanish, cblItalian,\r\n     cblPortuguese, cblGreek, cblDanish, cblRussian, cblRomanian, cblSwedish, cblFinnish, cblTurkish, cblJapanese);\r\n\r\n  TTMSFNCCustomCloudBase = class;\r\n\r\n  TTMSFNCCloudBaseRequest = class;\r\n\r\n  TTMSFNCCloudBaseRequestResult = class;\r\n\r\n  TTMSFNCCloudBaseRequestEvent = procedure(const ARequest: TTMSFNCCloudBaseRequestResult) of object;\r\n\r\n  TTMSFNCCloudBaseRequestCompleteEvent = procedure(Sender: TObject; const ARequest: TTMSFNCCloudBaseRequestResult) of object;\r\n\r\n  TTMSFNCCloudBaseRequestRunEvent = procedure(const ARequest: TTMSFNCCloudBaseRequestResult) of object;\r\n\r\n  TTMSFNCCloudBaseRequestResultStringEvent = {$IFNDEF LCLLIB}reference to {$ENDIF}procedure(const AResult: string){$IFDEF LCLLIB} of object{$ENDIF};\r\n\r\n  TTMSFNCCloudBaseRequestResultStreamEvent = {$IFNDEF LCLLIB}reference to {$ENDIF}procedure(const AResult: TMemoryStream){$IFDEF LCLLIB} of object{$ENDIF};\r\n\r\n  TTMSFNCCloudBaseRequestResultEvent = {$IFNDEF LCLLIB}reference to {$ENDIF}procedure(const ARequestResult: TTMSFNCCloudBaseRequestResult){$IFDEF LCLLIB} of object{$ENDIF};\r\n\r\n  TTMSFNCCloudBaseRequestResultEventWrapper = class\r\n  private\r\n    FCallbackRequest: TTMSFNCCloudBaseRequestResultEvent;\r\n    FCallbackString: TTMSFNCCloudBaseRequestResultStringEvent;\r\n    FCallbackStream: TTMSFNCCloudBaseRequestResultStreamEvent;\r\n  public\r\n    constructor Create(ACallbackRequest: TTMSFNCCloudBaseRequestResultEvent; ACallbackString: TTMSFNCCloudBaseRequestResultStringEvent; ACallbackStream: TTMSFNCCloudBaseRequestResultStreamEvent);\r\n  end;\r\n\r\n  TTMSFNCCloudBaseRequestResultProgressEvent = {$IFNDEF LCLLIB}reference to {$ENDIF}procedure(const ARequestResult: TTMSFNCCloudBaseRequestResult; AProgress: Single){$IFDEF LCLLIB} of object{$ENDIF};\r\n\r\n  TTMSFNCCloudBaseLogEvent = procedure(Sender: TObject; const ARequestResult: TTMSFNCCloudBaseRequestResult; AMessage: string) of object;\r\n\r\n  TTMSFNCCloudBaseRequestLogEvent = procedure(const ARequestResult: TTMSFNCCloudBaseRequestResult; AMessage: string) of object;\r\n\r\n  TTMSFNCCloudBaseProgressEvent = procedure(Sender: TObject; const ARequestResult: TTMSFNCCloudBaseRequestResult; AProgress: Single; AUpload: Boolean) of object;\r\n\r\n  TTMSFNCCloudBaseRequestProgressEvent = procedure(const ARequestResult: TTMSFNCCloudBaseRequestResult; AProgress: Single; AUpload: Boolean) of object;\r\n\r\n  TTMSFNCCloudBaseCompleteEvent = procedure(Sender: TObject; const ARequestResult: TTMSFNCCloudBaseRequestResult) of object;\r\n\r\n  TTMSFNCCloudBaseCancelledEvent = procedure(Sender: TObject; const ARequestResult: TTMSFNCCloudBaseRequestResult) of object;\r\n\r\n  TTMSFNCCloudBaseStartedEvent = procedure(Sender: TObject; const ARequestResult: TTMSFNCCloudBaseRequestResult) of object;\r\n\r\n  TTMSFNCCloudBaseExternalBrowserCallBackEvent = procedure(const ACallbackURLResult: string) of object;\r\n\r\n  ITMSFNCCustomCloudBase = interface(IInterface)\r\n  ['{F5D2BC35-639A-4EBF-8201-06B3F9EFB82D}']\r\n    function GetUploadFileSize(const ARequest: TTMSFNCCloudBaseRequest): Int64;\r\n    procedure ExecuteRequest(const ARequest: TTMSFNCCloudBaseRequestResult);\r\n    procedure RunExternalBrowser(const AURL: string; const ACallBackURL: string; const ACallBack: TTMSFNCCloudBaseExternalBrowserCallBackEvent = nil);\r\n    procedure CloseBrowser;\r\n  end;\r\n\r\n  ITMSFNCCloudBaseService = interface(IInterface)\r\n  ['{4876E6F4-B5D4-4322-A0B9-749040C239A5}']\r\n    function CreateCloudBase(const AValue: TTMSFNCCustomCloudBase): ITMSFNCCustomCloudBase;\r\n    procedure DestroyCloudBase(const AValue: ITMSFNCCustomCloudBase);\r\n  end;\r\n\r\n  TTMSFNCCloudBaseRequestHeader = class\r\n  private\r\n    FName: string;\r\n    FValue: string;\r\n  public\r\n    constructor Create(const AName: string; const AValue: string);\r\n    property Name: string read FName write FName;\r\n    property Value: string read FValue write FValue;\r\n  end;\r\n\r\n  {$IFDEF LCLWEBLIBTHREAD}\r\n  TTaskStatus = (Created, WaitingToRun, Running, Completed, WaitingForChildren, Canceled, Exception);\r\n\r\n  ITask = interface\r\n  ['{5A2BE42C-8E7B-468B-8D6A-2B27EAE87B55}']\r\n    function GetStatus: TTaskStatus;\r\n    procedure Start;\r\n    procedure Cancel;\r\n    property Status: TTaskStatus read GetStatus;\r\n  end;\r\n\r\n  {$IFDEF LCLLIBTHREAD}\r\n  TTaskWorkerThread = class(TThread)\r\n  private\r\n    FRequest: TTMSFNCCloudBaseRequestResult;\r\n    FRunEvent: TTMSFNCCloudBaseRequestRunEvent;\r\n  protected\r\n    procedure Execute; override;\r\n  public\r\n    constructor Create(const ARequest: TTMSFNCCloudBaseRequestResult; const ARunEvent: TTMSFNCCloudBaseRequestRunEvent);\r\n  end;\r\n  {$ENDIF}\r\n\r\n  TTask = class(TInterfacedObject, ITask)\r\n  private\r\n    {$IFDEF LCLLIBTHREAD}\r\n    FWorkerThread: TTaskWorkerThread;\r\n    {$ENDIF}\r\n    FTaskStatus: TTaskStatus;\r\n    FRunEvent: TTMSFNCCloudBaseRequestRunEvent;\r\n    FRequest: TTMSFNCCloudBaseRequestResult;\r\n    function GetStatus: TTaskStatus;\r\n  public\r\n    constructor Create(const ARequest: TTMSFNCCloudBaseRequestResult; const ARunEvent: TTMSFNCCloudBaseRequestRunEvent);\r\n    destructor Destroy; override;\r\n    procedure Start;\r\n    procedure Cancel;\r\n    property Status: TTaskStatus read GetStatus;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCCloudBaseRequestHeaders = class(TObjectList)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCCloudBaseRequestHeader;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCCloudBaseRequestHeader);\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCCloudBaseRequestHeader read GetItem write SetItem; default;\r\n  end;\r\n\r\n  TTMSFNCCloudBaseRequests = class(TObjectList)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCCloudBaseRequest;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCCloudBaseRequest);\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCCloudBaseRequest read GetItem write SetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCCloudBaseRequestHeaders = class(TObjectList<TTMSFNCCloudBaseRequestHeader>);\r\n\r\n  TTMSFNCCloudBaseRequests = class(TObjectList<TTMSFNCCloudBaseRequest>);\r\n  {$ENDIF}\r\n\r\n  TTMSFNCCloudBaseRequestMethod = (rmGET, rmPOST, rmPOSTMULTIPART, rmPOSTMULTIPARTRELATED, rmPUT, rmPUTMULTIPART, rmPUTMULTIPARTRELATED, rmDELETE, rmPATCH, rmUPDATE);\r\n\r\n  TTMSFNCCloudBaseRequestScheme = (rsHTTP, rsHTTPS);\r\n\r\n  TTMSFNCCloudBaseRequestResultType = (rrtString, rrtStream, rrtFile);\r\n\r\n  {$IFDEF SUPPORTCURL}\r\n  TTMSFNCCloudBaseRequestCurlParserMode = (cpmNone, cpmHeader, cpmFormData, cpmData, cpmDataBinary, cpmDataRaw, cpmDataUrlEncode,\r\n    cpmUser, cpmBearer, cpmRequest, cpmResultFile);\r\n\r\n  TTMSFNCCloudBaseRequestCurlParserFile = class\r\n  private\r\n    FFileName: string;\r\n  end;\r\n\r\n  TTMSFNCCloudBaseRequestCurlParser = class\r\n  private\r\n    FRequest: TTMSFNCCloudBaseRequest;\r\n  public\r\n    function Parse(ACurl: string): TTMSFNCCloudBaseRequest;\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  TTMSFNCCloudBaseRequestPostDataBuilder = class\r\n  private\r\n    FPostData: string;\r\n  protected\r\n    procedure AddInternalData(ADataType: string; AName: string; AValue: string; ASkipBoundary: Boolean; AFileName: string; AContentType: string; AContentTransferEncoding: string; ASkipLineBreakOnEnd: Boolean);\r\n  public\r\n    procedure Clear;\r\n    procedure AddText(AText: string; ALineBreak: Boolean = True);\r\n    procedure AddContentType(AValue: string);\r\n    procedure AddLineBreak;\r\n    procedure AddAttachment(AName: string; AValue: string; ASkipBoundary: Boolean = False; AFileName: string = ''; AContentType: string = ''; AContentTransferEncoding: string = ''; ASkipLineBreakOnEnd: Boolean = False);\r\n    procedure AddHeadBoundary;\r\n    procedure AddTailBoundary;\r\n    procedure AddFormData(AName: string; AValue: string; ASkipBoundary: Boolean = False; AFileName: string = ''; AContentType: string = ''; AContentTransferEncoding: string = ''; ASkipLineBreakOnEnd: Boolean = False);\r\n    procedure Close;\r\n    function Build: string;\r\n  end;\r\n\r\n  TTMSFNCCloudBaseRequest = class\r\n  private\r\n    FHeaders: TTMSFNCCloudBaseRequestHeaders;\r\n    FAgent: string;\r\n    FHost: string;\r\n    FPort: Integer;\r\n    FPath: string;\r\n    FQuery: string;\r\n    FMethod: TTMSFNCCloudBaseRequestMethod;\r\n    FName: string;\r\n    FPostData: string;\r\n    FDataPointer: Pointer;\r\n    FDataBoolean: Boolean;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FResultType: TTMSFNCCloudBaseRequestResultType;\r\n    FUploadStream: TMemoryStream;\r\n    FUploadFile: TTMSFNCUtilsFile;\r\n    FResultFile: string;\r\n    FCustomHeaders: Boolean;\r\n    FDataUpload: TTMSFNCUtilsFile;\r\n    FResultFileSize: Int64;\r\n    FDataInt64: Int64;\r\n    FReadTimeout: Integer;\r\n    FConnectTimeout: Integer;\r\n    function GetUploadStream: TMemoryStream;\r\n    function GetHeaders: TTMSFNCCloudBaseRequestHeaders;\r\n  protected\r\n    function DuplicateHeader(AHeader: TTMSFNCCloudBaseRequestHeader): TTMSFNCCloudBaseRequestHeader;\r\n  public\r\n    constructor Create; virtual;\r\n    destructor Destroy; override;\r\n    procedure Assign(ARequest: TTMSFNCCloudBaseRequest);\r\n    procedure Clear; virtual;\r\n    procedure ClearHeaders; virtual;\r\n    function HasUploadStream: Boolean;\r\n    function HasUploadFile: Boolean;\r\n    function GenerateHeaders: string;\r\n    function GetMethodString: string;\r\n    function GetURL: string;\r\n    function GetServer: string;\r\n    function GetQueryPath: string;\r\n    function GetPort: Integer;\r\n    function AddHeader(const AName: string; const AValue: string): TTMSFNCCloudBaseRequestHeader;\r\n    {$IFDEF FNCLIB}\r\n    function AddBasicAuthHeader(const AUserName: string; const APassword: string): TTMSFNCCloudBaseRequestHeader;\r\n    {$ENDIF}\r\n    property CustomHeaders: Boolean read FCustomHeaders write FCustomHeaders;\r\n    property DataUpload: TTMSFNCUtilsFile read FDataUpload write FDataUpload;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n    property DataInt64: Int64 read FDataInt64 write FDataInt64;\r\n    property Headers: TTMSFNCCloudBaseRequestHeaders read GetHeaders;\r\n    property Agent: string read FAgent write FAgent;\r\n    property PostData: string read FPostData write FPostData;\r\n    property Host: string read FHost write FHost;\r\n    property Port: Integer read FPort write FPort;\r\n    property Path: string read FPath write FPath;\r\n    property Query: string read FQuery write FQuery;\r\n    property Method: TTMSFNCCloudBaseRequestMethod read FMethod write FMethod default rmGET;\r\n    property Name: string read FName write FName;\r\n    property ResultType: TTMSFNCCloudBaseRequestResultType read FResultType write FResultType default rrtString;\r\n    property ResultFile: string read FResultFile write FResultFile;\r\n    property ResultFileSize: Int64 read FResultFileSize write FResultFileSize;\r\n    property UploadStream: TMemoryStream read GetUploadStream;\r\n    property UploadFile: TTMSFNCUtilsFile read FUploadFile write FUploadFile;\r\n    property ReadTimeout: Integer read FReadTimeout write FReadTimeout;\r\n    property ConnectTimeout: Integer read FConnectTimeout write FConnectTimeout;\r\n  end;\r\n\r\n  TTMSFNCCloudBaseRequestResult = class(TTMSFNCCloudBaseRequest)\r\n  private\r\n    FResponseHeaders: TTMSFNCCloudBaseRequestHeaders;\r\n    FMessage: string;\r\n    FIsDestroying: Boolean;\r\n    FResultString: string;\r\n    FCallBackResult: TTMSFNCCloudBaseRequestResultEvent;\r\n    FCallBackProgress: TTMSFNCCloudBaseRequestResultProgressEvent;\r\n    FAsync: Boolean;\r\n    FTask: ITask;\r\n    {$IFDEF WEBLIB}\r\n    FResolve: TJSPromiseResolver;\r\n    {$ENDIF}\r\n    FResponseCode: Integer;\r\n    FProgress: Single;\r\n    FRunning: Boolean;\r\n    FOnRemove: TTMSFNCCloudBaseRequestEvent;\r\n    FOnComplete: TTMSFNCCloudBaseRequestEvent;\r\n    FOnLog: TTMSFNCCloudBaseRequestLogEvent;\r\n    FOnProgress: TTMSFNCCloudBaseRequestProgressEvent;\r\n    FResultStream: TMemoryStream;\r\n    FSuccess: Boolean;\r\n    FOnCancelled: TTMSFNCCloudBaseRequestEvent;\r\n  protected\r\n    FTotalBytes: Int64;\r\n    FBytesReceived: Int64;\r\n    FDone: Boolean;\r\n    procedure ProcessResult;\r\n    procedure ProcessProgress;\r\n    procedure RequestResult;\r\n    procedure ProcessLog;\r\n    procedure RequestProgress(AProgress: Single; AUpload: Boolean);\r\n    function IsAsyncAvailable: Boolean;\r\n    property OnRemove: TTMSFNCCloudBaseRequestEvent read FOnRemove write FOnRemove;\r\n    property Progress: Single read FProgress;\r\n  public\r\n    constructor Create; reintroduce; overload;\r\n    constructor Create(const ARequest: TTMSFNCCloudBaseRequest; const ARequestResultEvent: TTMSFNCCloudBaseRequestResultEvent = nil; const ARequestResultProgressEvent: TTMSFNCCloudBaseRequestResultProgressEvent = nil; const AAsync: Boolean = True; const ATask: ITask = nil); reintroduce; overload;\r\n    destructor Destroy; override;\r\n    procedure Clear; override;\r\n    procedure Cancel; virtual;\r\n    procedure Log(AMessage: string); virtual;\r\n    function CheckTaskStatus: Boolean;\r\n    function GetResponseHeader(AName: string): string;\r\n    property ResultBytesReceived: Int64 read FBytesReceived;\r\n    property ResultTotalBytes: Int64 read FTotalBytes;\r\n    property ResultString: string read FResultString write FResultString;\r\n    property ResultStream: TMemoryStream read FResultStream write FResultStream;\r\n    property ResponseCode: Integer read FResponseCode write FResponseCode;\r\n    property ResponseHeaders: TTMSFNCCloudBaseRequestHeaders read FResponseHeaders;\r\n    property CallBackResult: TTMSFNCCloudBaseRequestResultEvent read FCallBackResult write FCallBackResult;\r\n    property CallBackProgress: TTMSFNCCloudBaseRequestResultProgressEvent read FCallBackProgress write FCallBackProgress;\r\n    property Async: Boolean read FAsync write FAsync;\r\n    property Success: Boolean read FSuccess write FSuccess;\r\n    property Task: ITask read FTask write FTask;\r\n    property Running: Boolean read FRunning write FRunning default False;\r\n    property OnLog: TTMSFNCCloudBaseRequestLogEvent read FOnLog write FOnLog;\r\n    property OnProgress: TTMSFNCCloudBaseRequestProgressEvent read FOnProgress write FOnProgress;\r\n    property OnComplete: TTMSFNCCloudBaseRequestEvent read FOnComplete write FOnComplete;\r\n    property OnCancelled: TTMSFNCCloudBaseRequestEvent read FOnCancelled write FOnCancelled;\r\n  end;\r\n\r\n  TTMSFNCCloudBaseService = class(TPersistent)\r\n  private\r\n    FDeveloperURL: string;\r\n    FName: string;\r\n    FBaseURL: string;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    property Name: string read FName write FName;\r\n    property DeveloperURL: string read FDeveloperURL write FDeveloperURL;\r\n    property BaseURL: string read FBaseURL write FBaseURL;\r\n  end;\r\n\r\n  TTMSFNCCustomCloudBase = class(TTMSFNCCustomComponent)\r\n  private\r\n    FPostDataBuilder: TTMSFNCCloudBaseRequestPostDataBuilder;\r\n    FCloudBase: ITMSFNCCustomCloudBase;\r\n    FRequest: TTMSFNCCloudBaseRequest;\r\n    FRequestResult: TTMSFNCCloudBaseRequestResult;\r\n    FRequests: TTMSFNCCloudBaseRequests;\r\n    FOnRequestLog: TTMSFNCCloudBaseLogEvent;\r\n    FLogging: Boolean;\r\n    FLogFileName: string;\r\n    FOnRequestComplete: TTMSFNCCloudBaseCompleteEvent;\r\n    FOnRequestProgress: TTMSFNCCloudBaseProgressEvent;\r\n    FService: TTMSFNCCloudBaseService;\r\n    FScopes: TStrings;\r\n    FOnRequestsComplete: TNotifyEvent;\r\n    FOnRequestStarted: TTMSFNCCloudBaseStartedEvent;\r\n    FOnRequestCancelled: TTMSFNCCloudBaseCancelledEvent;\r\n    {$IFDEF SUPPORTPROMISE}\r\n    FPromiseTimeoutTimer: TTimer;\r\n    procedure DoPromiseTimeoutTimer(Sender: TObject);\r\n    {$ENDIF}\r\n    function IsLogFileNameStored: Boolean;\r\n    procedure SetService(const Value: TTMSFNCCloudBaseService);\r\n    procedure SetScopes(const Value: TStrings);\r\n    function GetPostDataBuilder: TTMSFNCCloudBaseRequestPostDataBuilder;\r\n  protected\r\n    {$IFDEF SUPPORTPROMISE}\r\n    FReject: TProc<Exception>;\r\n    {$ENDIF}\r\n    procedure SetPromiseTimeout(AInterval: Integer = 10000);\r\n    procedure RejectPromise(AMessage: string);\r\n    {$IFDEF SUPPORTPROMISE}\r\n    procedure AssignReject(AReject: TProc<Exception>);\r\n    {$ENDIF}\r\n    procedure ClearPromiseResolvers; virtual;\r\n    procedure DisablePromiseTimeout;\r\n    function GetInstance: NativeUInt; override;\r\n    function GetVersion: string; override;\r\n    function GetScopes(ADelimiter: Char; AEncode: Boolean = False): string;\r\n    class function GetCloudBaseGlobal: TTMSFNCCustomCloudBase;\r\n    class function GetPostDataBuilderGlobal: TTMSFNCCloudBaseRequestPostDataBuilder;\r\n    class function GetHeadersGlobal: TTMSFNCCloudBaseRequestHeaders;\r\n    procedure Log(const ARequestResult: TTMSFNCCloudBaseRequestResult; AMessage: string); virtual;\r\n    class procedure DoCurlRequestComplete(const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\n    procedure DoRequestRemove(const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\n    procedure DoRequestComplete(const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\n    procedure DoRequestCancelled(const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\n    procedure DoRequestStarted(const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\n    procedure DoRequestsComplete;\r\n    procedure DoRequestProgress(const ARequestResult: TTMSFNCCloudBaseRequestResult; AProgress: single; AUpload: Boolean);\r\n    procedure DoRequestLog(const ARequestResult: TTMSFNCCloudBaseRequestResult; ALogMessage: string);\r\n    procedure InternalExecuteRequest(const ARequest: TTMSFNCCloudBaseRequestResult); virtual;\r\n    {$IFDEF SUPPORTCURL}\r\n    class procedure InternalCurl(const ACurl: string; ACallbackRequest: TTMSFNCCloudBaseRequestResultEvent; ACallbackString: TTMSFNCCloudBaseRequestResultStringEvent; ACallbackStream: TTMSFNCCloudBaseRequestResultStreamEvent); overload;\r\n    {$ENDIF}\r\n    class procedure InternalSimpleGETAsync(const AURL: string; const AResultType: TTMSFNCCloudBaseRequestResultType; const ARequestResultEvent: TTMSFNCCloudBaseRequestResultEvent);\r\n    class function InternalSimpleGETSync(const AURL: string; const AResultType: TTMSFNCCloudBaseRequestResultType): TTMSFNCCloudBaseRequestResult; {$IFDEF WEBLIB} async;{$ENDIf}\r\n    property CloudBase: ITMSFNCCustomCloudBase read FCloudBase;\r\n    property Version: string read GetVersion;\r\n    property Service: TTMSFNCCloudBaseService read FService write SetService;\r\n    property OnRequestLog: TTMSFNCCloudBaseLogEvent read FOnRequestLog write FOnRequestLog;\r\n    property OnRequestProgress: TTMSFNCCloudBaseProgressEvent read FOnRequestProgress write FOnRequestProgress;\r\n    property OnRequestComplete: TTMSFNCCloudBaseCompleteEvent read FOnRequestComplete write FOnRequestComplete;\r\n    property OnRequestCancelled: TTMSFNCCloudBaseCancelledEvent read FOnRequestCancelled write FOnRequestCancelled;\r\n    property OnRequestStarted: TTMSFNCCloudBaseStartedEvent read FOnRequestStarted write FOnRequestStarted;\r\n    property OnRequestsComplete: TNotifyEvent read FOnRequestsComplete write FOnRequestsComplete;\r\n    property Logging: Boolean read FLogging write FLogging default False;\r\n    property LogFileName: string read FLogFileName write FLogFileName stored IsLogFileNameStored nodefault;\r\n  public\r\n    constructor Create; reintroduce; overload; virtual;\r\n    constructor Create(AOwner: TComponent); overload; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n    procedure ExecuteAllRequests;\r\n    procedure Test; virtual;\r\n    procedure CancelRequests; virtual;\r\n    procedure CancelRequest(const ARequest: TTMSFNCCloudBaseRequestResult); virtual;\r\n    function GetUploadFileSize(const ARequest: TTMSFNCCloudBaseRequest): Int64; virtual;\r\n    function GetRequestCount(const IsRunning: Boolean = False; const ARequestName: string = ''): Integer; virtual;\r\n    function AddRequest(const ARequestResultEvent: TTMSFNCCloudBaseRequestResultEvent = nil; const ARequestResultProgressEvent: TTMSFNCCloudBaseRequestResultProgressEvent = nil; const AAsync: Boolean = True): TTMSFNCCloudBaseRequestResult; virtual;\r\n    function ExecuteRequest(const ARequestResultEvent: TTMSFNCCloudBaseRequestResultEvent = nil; const ARequestResultProgressEvent: TTMSFNCCloudBaseRequestResultProgressEvent = nil; const AAsync: Boolean = True): {$IFDEF WEBLIB}TJSPromise{$ELSE}TTMSFNCCloudBaseRequestResult{$ENDIF}; virtual;\r\n    property Request: TTMSFNCCloudBaseRequest read FRequest;\r\n    property RequestResult: TTMSFNCCloudBaseRequestResult read FRequestResult;\r\n    property PostDataBuilder: TTMSFNCCloudBaseRequestPostDataBuilder read GetPostDataBuilder;\r\n    property Scopes: TStrings read FScopes write SetScopes;\r\n    property RunningRequests: TTMSFNCCloudBaseRequests read FRequests;\r\n    class procedure DownloadFileFromURL(const AURL: string; const ARequestResultEvent: TTMSFNCCloudBaseRequestResultEvent);\r\n    class procedure SimpleGETAsyncAsString(const AURL: string; const ARequestResultEvent: TTMSFNCCloudBaseRequestResultEvent);\r\n    class procedure SimpleGETAsyncAsStream(const AURL: string; const ARequestResultEvent: TTMSFNCCloudBaseRequestResultEvent);\r\n    {$IFNDEF LCLWEBLIB}\r\n    class function SimpleGETSyncAsString(const AURL: string): string;\r\n    class function SimpleGETSyncAsStream(const AURL: string): TMemoryStream;\r\n    {$ENDIF}\r\n    {$IFDEF SUPPORTCURL}\r\n    class procedure Curl(const ACurl: string; ACallback: TTMSFNCCloudBaseRequestResultEvent); overload;\r\n    class procedure Curl(const ACurl: string; ACallback: TTMSFNCCloudBaseRequestResultStringEvent); overload;\r\n    class procedure Curl(const ACurl: string; ACallback: TTMSFNCCloudBaseRequestResultStreamEvent); overload;\r\n    {$ENDIF}\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  TTMSFNCCloudBase = class(TTMSFNCCustomCloudBase)\r\n  published\r\n    property Logging;\r\n    property LogFileName;\r\n    property Version;\r\n    property OnRequestsComplete;\r\n    property OnRequestLog;\r\n    property OnRequestComplete;\r\n    property OnRequestCancelled;\r\n    property OnRequestStarted;\r\n    property OnRequestProgress;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCCloudBaseList = class(TList)\r\n  private\r\n    function GetItem(Index: Integer): ITMSFNCCustomCloudBase;\r\n    procedure SetItem(Index: Integer; const Value: ITMSFNCCustomCloudBase);\r\n  public\r\n    property Items[Index: Integer]: ITMSFNCCustomCloudBase read GetItem write SetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCCloudBaseList = class(TList<ITMSFNCCustomCloudBase>);\r\n  {$ENDIF}\r\n\r\n  TTMSFNCCloudBaseFactoryService = class(TInterfacedObject, ITMSFNCCloudBaseService)\r\n  protected\r\n    FCloudBases: TTMSFNCCloudBaseList;\r\n    function DoCreateCloudBase(const AValue: TTMSFNCCustomCloudBase): ITMSFNCCustomCloudBase; virtual; abstract;\r\n    procedure DoRemoveCloudBase(const AValue: ITMSFNCCustomCloudBase);\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n    function CreateCloudBase(const AValue: TTMSFNCCustomCloudBase): ITMSFNCCustomCloudBase;\r\n    procedure DestroyCloudBase(const AValue: ITMSFNCCustomCloudBase);\r\n  end;\r\n\r\n  TTMSFNCCloudPlatformServicesService = class\r\n  private\r\n    FInterface: IInterface;\r\n    FGUID: string;\r\n  public\r\n    constructor Create(AGUID: string; AInterface: IInterface);\r\n    property GUID: string read FGUID;\r\n    property &Interface: IInterface read FInterface;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCCloudPlatformServicesList = class(TObjectList)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCCloudPlatformServicesService;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCCloudPlatformServicesService);\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCCloudPlatformServicesService read GetItem write SetItem; default;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCCloudPlatformServicesList = class(TObjectList<TTMSFNCCloudPlatformServicesService>)\r\n  {$ENDIF}\r\n  private\r\n    function GetValue(AGUID: string): IInterface;\r\n  public\r\n    function ContainsKey(AGUID: string): Boolean;\r\n    procedure RemoveByGUID(AGUID: string);\r\n    property Interfaces[AGUID: string]: IInterface read GetValue;\r\n  end;\r\n\r\n  TTMSFNCCloudBasePlatformServices = class\r\n  private\r\n    FServicesList: TTMSFNCCloudPlatformServicesList;\r\n    class var FCurrent: TTMSFNCCloudBasePlatformServices;\r\n    class var FCurrentReleased: Boolean;\r\n{$IFNDEF AUTOREFCOUNT}\r\n    class procedure ReleaseCurrent;\r\n{$ENDIF}\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n    procedure AddPlatformService(const AServiceGUID: TGUID; const AService: IInterface);\r\n    procedure RemovePlatformService(const AServiceGUID: TGUID);\r\n    function GetPlatformService(const AServiceGUID: TGUID): IInterface;\r\n    function SupportsPlatformService(const AServiceGUID: TGUID): Boolean; overload;\r\n    function SupportsPlatformService(const AServiceGUID: TGUID; var AService: IInterface): Boolean; overload;\r\n    class function Current: TTMSFNCCloudBasePlatformServices;\r\n  end;\r\n\r\nfunction HTTPPostDataBuilder: TTMSFNCCloudBaseRequestPostDataBuilder;\r\nprocedure HTTPClearHeaders;\r\nprocedure HTTPAddHeader(const AName: string; const AValue: string);\r\nprocedure HTTPCloudRequest(const AURL: string; AResultType: TTMSFNCCloudBaseRequestResultType = rrtString; AMethod: TTMSFNCCloudBaseRequestMethod = rmGET; const ARequestResultEvent: TTMSFNCCloudBaseRequestResultEvent = nil); overload;\r\nprocedure HTTPCloudRequest(const AHost, APath, AQuery, APostData: string; AResultType: TTMSFNCCloudBaseRequestResultType = rrtString; AMethod: TTMSFNCCloudBaseRequestMethod = rmPOST; const ARequestResultEvent: TTMSFNCCloudBaseRequestResultEvent = nil); overload;\r\n\r\nimplementation\r\n\r\nuses\r\n  StrUtils\r\n  {$IFDEF MSWINDOWS}\r\n  ,WEBLib.TMSFNCCloudBase.Win\r\n  {$ENDIF}\r\n  {$IFDEF UNIX}\r\n  ,WEBLib.TMSFNCCloudBase.Unix\r\n  {$ENDIF}\r\n  {$IFDEF MACOS}\r\n  ,WEBLib.TMSFNCCloudBase.Mac\r\n  {$ENDIF}\r\n  {$IFDEF ANDROID}\r\n  ,WEBLib.TMSFNCCloudBase.Android\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,WEBLib.TMSFNCCloudBase.WEB\r\n  {$ENDIF}\r\n  ;\r\n\r\nvar\r\n  FCloudBaseGlobal: TTMSFNCCustomCloudBase;\r\n  FPostDataBuilderGlobal: TTMSFNCCloudBaseRequestPostDataBuilder;\r\n  FHeadersGlobal: TTMSFNCCloudBaseRequestHeaders;\r\n\r\nfunction HTTPPostDataBuilder: TTMSFNCCloudBaseRequestPostDataBuilder;\r\nbegin\r\n  Result := TTMSFNCCustomCloudBase.GetPostDataBuilderGlobal;\r\nend;\r\n\r\nprocedure HTTPClearHeaders;\r\nvar\r\n  h: TTMSFNCCloudBaseRequestHeaders;\r\nbegin\r\n  h := TTMSFNCCustomCloudBase.GetHeadersGlobal;\r\n  h.Clear;\r\nend;\r\n\r\nprocedure HTTPAddHeader(const AName: string; const AValue: string);\r\nvar\r\n  h: TTMSFNCCloudBaseRequestHeaders;\r\nbegin\r\n  h := TTMSFNCCustomCloudBase.GetHeadersGlobal;\r\n  h.Add(TTMSFNCCloudBaseRequestHeader.Create(AName, AValue));\r\nend;\r\n\r\nprocedure HTTPCloudRequest(const AURL: string; AResultType: TTMSFNCCloudBaseRequestResultType = rrtString; AMethod: TTMSFNCCloudBaseRequestMethod = rmGET; const ARequestResultEvent: TTMSFNCCloudBaseRequestResultEvent = nil); overload;\r\nvar\r\n  c: TTMSFNCCustomCloudBase;\r\n  I: Integer;\r\n  h: TTMSFNCCloudBaseRequestHeaders;\r\nbegin\r\n  c := TTMSFNCCustomCloudBase.GetCloudBaseGlobal;\r\n  if Assigned(c) then\r\n  begin\r\n    c.Request.Clear;\r\n    c.Request.Host := AURL;\r\n    c.Request.Method := AMethod;\r\n    h := TTMSFNCCustomCloudBase.GetHeadersGlobal;\r\n    if Assigned(h) then\r\n    begin\r\n      for I := 0 to h.Count - 1 do\r\n        c.Request.AddHeader(h[I].Name, h[I].Value);\r\n    end;\r\n    c.Request.ResultType := AResultType;\r\n    c.ExecuteRequest(ARequestResultEvent);\r\n  end;\r\nend;\r\n\r\nprocedure HTTPCloudRequest(const AHost, APath, AQuery, APostData: string; AResultType: TTMSFNCCloudBaseRequestResultType = rrtString; AMethod: TTMSFNCCloudBaseRequestMethod = rmPOST; const ARequestResultEvent: TTMSFNCCloudBaseRequestResultEvent = nil); overload;\r\nvar\r\n  c: TTMSFNCCustomCloudBase;\r\n  I: Integer;\r\n  h: TTMSFNCCloudBaseRequestHeaders;\r\nbegin\r\n  c := TTMSFNCCustomCloudBase.GetCloudBaseGlobal;\r\n  if Assigned(c) then\r\n  begin\r\n    c.Request.Clear;\r\n    c.Request.Host := AHost;\r\n    c.Request.Path := APath;\r\n    c.Request.Query := AQuery;\r\n    c.Request.Method := AMethod;\r\n    c.Request.PostData := APostData;\r\n    h := TTMSFNCCustomCloudBase.GetHeadersGlobal;\r\n    if Assigned(h) then\r\n    begin\r\n      for I := 0 to h.Count - 1 do\r\n        c.Request.AddHeader(h[I].Name, h[I].Value);\r\n    end;\r\n    c.Request.ResultType := AResultType;\r\n    c.ExecuteRequest(ARequestResultEvent);\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCCustomCloudBase }\r\n\r\nfunction TTMSFNCCustomCloudBase.AddRequest(const ARequestResultEvent: TTMSFNCCloudBaseRequestResultEvent = nil; const ARequestResultProgressEvent: TTMSFNCCloudBaseRequestResultProgressEvent = nil; const AAsync: Boolean = True): TTMSFNCCloudBaseRequestResult;\r\nvar\r\n  req: TTMSFNCCloudBaseRequestResult;\r\n  t: ITask;\r\nbegin\r\n  t := nil;\r\n  req := TTMSFNCCloudBaseRequestResult.Create(Request, ARequestResultEvent, ARequestResultProgressEvent, AAsync, t);\r\n  req.OnRemove := DoRequestRemove;\r\n  req.OnComplete := DoRequestComplete;\r\n  req.OnCancelled := DoRequestCancelled;\r\n  req.OnProgress := DoRequestProgress;\r\n  req.OnLog := DoRequestLog;\r\n\r\n  if req.IsAsyncAvailable then\r\n  begin\r\n    {$IFDEF LCLWEBLIBTHREAD}\r\n    t := TTask.Create(req, @InternalExecuteRequest);\r\n    {$ENDIF}\r\n    {$IFNDEF LCLWEBLIBTHREAD}\r\n    t := TTask.Create(\r\n    procedure\r\n    begin\r\n      if (req.Task.Status <> TTaskStatus.Canceled) and not IsDestroying then\r\n      begin\r\n        InternalExecuteRequest(req);\r\n      end;\r\n    end);\r\n    {$ENDIF}\r\n  end;\r\n\r\n  req.Task := t;\r\n\r\n  FRequests.Add(req);\r\n\r\n  Result := req;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCloudBase.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCCustomCloudBase then\r\n  begin\r\n    FLogging := (Source as TTMSFNCCustomCloudBase).Logging;\r\n    FLogFileName := (Source as TTMSFNCCustomCloudBase).LogFileName;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\n{$IFDEF SUPPORTPROMISE}\r\nprocedure TTMSFNCCustomCloudBase.AssignReject(AReject: TProc<Exception>);\r\nbegin\r\n  DisablePromiseTimeout;\r\n\r\n  if Assigned(FReject) then\r\n    FReject(ETMSFNCCloudBasePromiseException.Create('Promise did not resolve'));\r\n\r\n  FReject := AReject;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomCloudBase.CancelRequest(\r\n  const ARequest: TTMSFNCCloudBaseRequestResult);\r\nbegin\r\n  if Assigned(ARequest) then\r\n    ARequest.Cancel;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCloudBase.CancelRequests;\r\nvar\r\n  I: Integer;\r\n  r: TTMSFNCCloudBaseRequest;\r\n  rr: TTMSFNCCloudBaseRequestResult;\r\nbegin\r\n  for I := 0 to RunningRequests.Count - 1 do\r\n  begin\r\n    r := RunningRequests[I];\r\n    if r is TTMSFNCCloudBaseRequestResult then\r\n    begin\r\n      rr := (r as TTMSFNCCloudBaseRequestResult);\r\n      rr.Cancel;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCloudBase.ClearPromiseResolvers;\r\nbegin\r\n  {$IFDEF SUPPORTPROMISE}\r\n  FReject := nil;\r\n  {$ENDIF}\r\nend;\r\n\r\nconstructor TTMSFNCCustomCloudBase.Create;\r\nbegin\r\n  Create(nil);\r\nend;\r\n\r\nconstructor TTMSFNCCustomCloudBase.Create(AOwner: TComponent);\r\nvar\r\n  CloudBaseService: ITMSFNCCloudBaseService;\r\nbegin\r\n  inherited;\r\n  if TTMSFNCCloudBasePlatformServices.Current.SupportsPlatformService(ITMSFNCCloudBaseService, IInterface(CloudBaseService)) then\r\n    FCloudBase := CloudBaseService.CreateCloudBase(Self);\r\n\r\n  FLogging := False;\r\n  FLogFileName := ClassName + '.LOG';\r\n\r\n  FRequest := TTMSFNCCloudBaseRequest.Create;\r\n  FRequests := TTMSFNCCloudBaseRequests.Create;\r\n\r\n  FService := TTMSFNCCloudBaseService.Create;\r\n\r\n  FScopes := TStringList.Create;\r\n\r\n  {$IFDEF SUPPORTPROMISE}\r\n  FPromiseTimeoutTimer := TTimer.Create(Self);\r\n  FPromiseTimeoutTimer.Enabled := False;\r\n  FPromiseTimeoutTimer.OnTimer := DoPromiseTimeoutTimer;\r\n  {$ENDIF}\r\nend;\r\n\r\nclass function TTMSFNCCustomCloudBase.GetCloudBaseGlobal: TTMSFNCCustomCloudBase;\r\nbegin\r\n  if not Assigned(FCloudBaseGlobal) then\r\n    FCloudBaseGlobal := TTMSFNCCustomCloudBase.Create;\r\n\r\n  Result := FCloudBaseGlobal;\r\nend;\r\n\r\nclass function TTMSFNCCustomCloudBase.GetHeadersGlobal: TTMSFNCCloudBaseRequestHeaders;\r\nbegin\r\n  if not Assigned(FHeadersGlobal) then\r\n    FHeadersGlobal := TTMSFNCCloudBaseRequestHeaders.Create;\r\n\r\n  Result := FHeadersGlobal;\r\nend;\r\n\r\nclass function TTMSFNCCustomCloudBase.GetPostDataBuilderGlobal: TTMSFNCCloudBaseRequestPostDataBuilder;\r\nbegin\r\n  if not Assigned(FPostDataBuilderGlobal) then\r\n    FPostDataBuilderGlobal := TTMSFNCCloudBaseRequestPostDataBuilder.Create;\r\n\r\n  Result := FPostDataBuilderGlobal;\r\nend;\r\n\r\nfunction TTMSFNCCustomCloudBase.GetInstance: NativeUInt;\r\nbegin\r\n  Result := HInstance;\r\nend;\r\n\r\nfunction TTMSFNCCustomCloudBase.GetUploadFileSize(\r\n  const ARequest: TTMSFNCCloudBaseRequest): Int64;\r\nbegin\r\n  Result := 0;\r\n  if Assigned(FCloudBase) then\r\n    Result := FCloudBase.GetUploadFileSize(ARequest);\r\nend;\r\n\r\nfunction TTMSFNCCustomCloudBase.GetPostDataBuilder: TTMSFNCCloudBaseRequestPostDataBuilder;\r\nbegin\r\n  if not Assigned(FPostDataBuilder) then\r\n    FPostDataBuilder := TTMSFNCCloudBaseRequestPostDataBuilder.Create;\r\n\r\n  Result := FPostDataBuilder;\r\nend;\r\n\r\nfunction TTMSFNCCustomCloudBase.GetRequestCount(const IsRunning: Boolean = False; const ARequestName: string = ''): Integer;\r\nvar\r\n  I: Integer;\r\n  r: TTMSFNCCloudBaseRequest;\r\n  rr: TTMSFNCCloudBaseRequestResult;\r\nbegin\r\n  Result := 0;\r\n  for I := 0 to FRequests.Count - 1 do\r\n  begin\r\n    r := FRequests[I];\r\n    if r is TTMSFNCCloudBaseRequestResult then\r\n    begin\r\n      rr := r as TTMSFNCCloudBaseRequestResult;\r\n      if ((IsRunning and not rr.FDone) or not IsRunning) and ((rr.Name = ARequestName) or (ARequestName = '')) then\r\n        Inc(Result);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomCloudBase.GetScopes(ADelimiter: Char; AEncode: Boolean = False): string;\r\nvar\r\n  i: integer;\r\n  scopestr: string;\r\nbegin\r\n  Result := '';\r\n  for i := 0 to Scopes.Count - 1 do\r\n  begin\r\n    if AEncode then\r\n      scopestr := TTMSFNCUtils.URLEncode(Scopes[i])\r\n    else\r\n      scopestr := Scopes[i];\r\n\r\n    if Result = '' then\r\n      Result := scopestr\r\n    else\r\n      Result := Result + ADelimiter + scopestr;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomCloudBase.GetVersion: string;\r\nbegin\r\n  Result := GetVersionNumber(MAJ_VER, MIN_VER, REL_VER, BLD_VER);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCloudBase.InternalExecuteRequest(\r\n  const ARequest: TTMSFNCCloudBaseRequestResult);\r\nbegin\r\n  if Assigned(FCloudBase) and Assigned(ARequest) then\r\n  begin\r\n    FRequestResult := nil;\r\n    DoRequestStarted(ARequest);\r\n    ARequest.Running := True;\r\n    ARequest.Log('Executing request [' + ARequest.Name + '] with url: [' + ARequest.GetURL + ']');\r\n    FCloudBase.ExecuteRequest(ARequest);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomCloudBase.IsLogFileNameStored: Boolean;\r\nbegin\r\n  Result := FLogFileName <> ClassName + '.LOG';\r\nend;\r\n\r\nprocedure TTMSFNCCustomCloudBase.Log(const ARequestResult: TTMSFNCCloudBaseRequestResult; AMessage: string);\r\nvar\r\n  {$IFNDEF WEBLIB}\r\n  tf: System.Text;\r\n  fn: string;\r\n  {$ENDIF}\r\n  s: string;\r\nbegin\r\n  if not Logging then\r\n    Exit;\r\n\r\n  if Assigned(OnRequestLog) then\r\n    OnRequestLog(Self, ARequestResult, AMessage)\r\n  else\r\n  begin\r\n    {$IFDEF FNCLIB}\r\n    s := TTMSFNCUtils.DateTimeToISO(Now) + ': ' + AMessage;\r\n    {$ELSE}\r\n    s := DateTimeToStr(Now) + ': ' + AMessage;\r\n    {$ENDIF}\r\n\r\n    {$IFDEF WEBLIB}\r\n    asm\r\n      console.log(s);\r\n    end;\r\n    {$ELSE}\r\n    if LogFileName = '' then\r\n      Exit;\r\n\r\n    if (Pos('\\', LogFilename) = 0) and (Pos('/', LogFileName) = 0) and (Pos(':', LogFileName) = 0) then\r\n      fn := TTMSFNCUtils.AddBackslash(TTMSFNCUtils.GetDocumentsPath) + LogFileName\r\n    else\r\n      fn := Logfilename;\r\n\r\n    AssignFile(tf, fn);\r\n    try\r\n      {$i-}\r\n      Append(tf);\r\n      {$i+}\r\n      if IOResult <> 0 then\r\n      begin\r\n        {$i-}\r\n        Rewrite(tf);\r\n        {$i+}\r\n        if IOResult <> 0 then\r\n          Exit;\r\n      end;\r\n\r\n      Writeln(tf, s);\r\n    finally\r\n      if TTextRec(tf).Mode <> fmClosed then\r\n        CloseFile(tf);\r\n    end;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCloudBase.RejectPromise(AMessage: string);\r\nbegin\r\n  DisablePromiseTimeout;\r\n\r\n  {$IFDEF SUPPORTPROMISE}\r\n  if Assigned(FReject) then\r\n    FReject(ETMSFNCCloudBasePromiseException.Create(AMessage));\r\n  {$ENDIF}\r\n\r\n  ClearPromiseResolvers;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCloudBase.SetScopes(const Value: TStrings);\r\nbegin\r\n  FScopes.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCloudBase.SetService(\r\n  const Value: TTMSFNCCloudBaseService);\r\nbegin\r\n  FService.Assign(Value);\r\nend;\r\n\r\nclass procedure TTMSFNCCustomCloudBase.SimpleGETAsyncAsString(const AURL: string; const ARequestResultEvent: TTMSFNCCloudBaseRequestResultEvent);\r\nbegin\r\n  InternalSimpleGETAsync(AURL, rrtString, ARequestResultEvent);\r\nend;\r\n\r\nclass procedure TTMSFNCCustomCloudBase.SimpleGETAsyncAsStream(const AURL: string; const ARequestResultEvent: TTMSFNCCloudBaseRequestResultEvent);\r\nbegin\r\n  InternalSimpleGETAsync(AURL, rrtStream, ARequestResultEvent);\r\nend;\r\n\r\nclass procedure TTMSFNCCustomCloudBase.InternalSimpleGETAsync(const AURL: string; const AResultType: TTMSFNCCloudBaseRequestResultType;\r\n  const ARequestResultEvent: TTMSFNCCloudBaseRequestResultEvent);\r\nvar\r\n  c: TTMSFNCCustomCloudBase;\r\nbegin\r\n  c := GetCloudBaseGlobal;\r\n  if Assigned(c) then\r\n  begin\r\n    c.Request.Clear;\r\n    c.Request.Host := AURL;\r\n    c.Request.ResultType := AResultType;\r\n    c.ExecuteRequest(ARequestResultEvent);\r\n  end;\r\nend;\r\n\r\nclass function TTMSFNCCustomCloudBase.InternalSimpleGETSync(\r\n  const AURL: string; const AResultType: TTMSFNCCloudBaseRequestResultType): TTMSFNCCloudBaseRequestResult;\r\nvar\r\n  c: TTMSFNCCustomCloudBase;\r\nbegin\r\n  Result := nil;\r\n  c := GetCloudBaseGlobal;\r\n  if Assigned(c) then\r\n  begin\r\n    c.Request.Clear;\r\n    c.Request.Host := AURL;\r\n    c.Request.ResultType := AResultType;\r\n    Result := {$IFDEF WEBLIB}await(TTMSFNCCloudBaseRequestResult,{$ENDIF} c.ExecuteRequest(nil, nil, False){$IFDEF WEBLIB}){$ENDIF};\r\n  end;\r\nend;\r\n\r\n{$IFDEF SUPPORTCURL}\r\nclass procedure TTMSFNCCustomCloudBase.InternalCurl(const ACurl: string; ACallbackRequest: TTMSFNCCloudBaseRequestResultEvent; ACallbackString: TTMSFNCCloudBaseRequestResultStringEvent; ACallbackStream: TTMSFNCCloudBaseRequestResultStreamEvent);\r\nvar\r\n  c: TTMSFNCCustomCloudBase;\r\n  p: TTMSFNCCloudBaseRequestCurlParser;\r\nbegin\r\n  c := GetCloudBaseGlobal;\r\n  if Assigned(c) then\r\n  begin\r\n    p := TTMSFNCCloudBaseRequestCurlParser.Create;\r\n    try\r\n      c.Request.Assign(p.Parse(ACurl));\r\n      if Assigned(ACallbackString) then\r\n        c.Request.ResultType := rrtString;\r\n\r\n      c.Request.DataObject := TTMSFNCCloudBaseRequestResultEventWrapper.Create(ACallbackRequest, ACallbackString, ACallbackStream);\r\n    finally\r\n      p.Free;\r\n    end;\r\n\r\n    c.ExecuteRequest({$IFDEF LCLWEBLIB}@{$ENDIF}DoCurlRequestComplete);\r\n  end;\r\nend;\r\n\r\nclass procedure TTMSFNCCustomCloudBase.Curl(const ACurl: string; ACallback: TTMSFNCCloudBaseRequestResultEvent);\r\nbegin\r\n  InternalCurl(ACurl, ACallback, nil, nil);\r\nend;\r\n\r\nclass procedure TTMSFNCCustomCloudBase.Curl(const ACurl: string; ACallback: TTMSFNCCloudBaseRequestResultStringEvent);\r\nbegin\r\n  InternalCurl(ACurl, nil, ACallback, nil);\r\nend;\r\n\r\nclass procedure TTMSFNCCustomCloudBase.Curl(const ACurl: string; ACallback: TTMSFNCCloudBaseRequestResultStreamEvent);\r\nbegin\r\n  InternalCurl(ACurl, nil, nil, ACallback);\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFNDEF LCLWEBLIB}\r\nclass function TTMSFNCCustomCloudBase.SimpleGETSyncAsStream(\r\n  const AURL: string): TMemoryStream;\r\nbegin\r\n  Result := InternalSimpleGETSync(AURL, rrtStream).ResultStream;\r\nend;\r\n\r\nclass function TTMSFNCCustomCloudBase.SimpleGETSyncAsString(\r\n  const AURL: string): string;\r\nbegin\r\n  Result := InternalSimpleGETSync(AURL, rrtString).ResultString;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomCloudBase.SetPromiseTimeout(AInterval: Integer);\r\nbegin\r\n  {$IFDEF SUPPORTPROMISE}\r\n  FPromiseTimeoutTimer.Interval := AInterval;\r\n  FPromiseTimeoutTimer.Enabled := True;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomCloudBase.Test;\r\nbegin\r\n\r\nend;\r\n\r\ndestructor TTMSFNCCustomCloudBase.Destroy;\r\nvar\r\n  CloudBaseService: ITMSFNCCloudBaseService;\r\nbegin\r\n  {$IFDEF SUPPORTPROMISE}\r\n  RejectPromise('Promise did not resolve');\r\n  FPromiseTimeoutTimer.Free;\r\n  {$ENDIF}\r\n\r\n  FreeAndNil(FRequests);\r\n  FreeAndNil(FRequest);\r\n  FreeAndNil(FPostDataBuilder);\r\n\r\n  if TTMSFNCCloudBasePlatformServices.Current.SupportsPlatformService(ITMSFNCCloudBaseService, IInterface(CloudBaseService)) then\r\n    CloudBaseService.DestroyCloudBase(FCloudBase);\r\n\r\n  FCloudBase := nil;\r\n\r\n  FService.Free;\r\n  FScopes.Free;\r\n\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCloudBase.DisablePromiseTimeout;\r\nbegin\r\n  {$IFDEF SUPPORTPROMISE}\r\n  FPromiseTimeoutTimer.Enabled := False;\r\n  {$ENDIF}\r\nend;\r\n\r\nclass procedure TTMSFNCCustomCloudBase.DoCurlRequestComplete(const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\nvar\r\n  obj: TTMSFNCCloudBaseRequestResultEventWrapper;\r\nbegin\r\n  if Assigned(ARequestResult.DataObject) then\r\n  begin\r\n    obj := TTMSFNCCloudBaseRequestResultEventWrapper(ARequestResult.DataObject);\r\n    if Assigned(obj.FCallbackRequest) then\r\n      obj.FCallbackRequest(ARequestResult);\r\n\r\n    if Assigned(obj.FCallbackString) then\r\n      obj.FCallbackString(ARequestResult.ResultString);\r\n\r\n    if Assigned(obj.FCallbackStream) then\r\n      obj.FCallbackStream(ARequestResult.ResultStream);\r\n    obj.Free;\r\n  end;\r\nend;\r\n\r\n{$IFDEF SUPPORTPROMISE}\r\nprocedure TTMSFNCCustomCloudBase.DoPromiseTimeoutTimer(Sender: TObject);\r\nbegin\r\n  RejectPromise('Request Timeout');\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomCloudBase.DoRequestRemove(const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\nbegin\r\n  if Assigned(ARequestResult) and ARequestResult.Async then\r\n    FRequests.Remove(ARequestResult);\r\n\r\n  if RunningRequests.Count = 0 then\r\n    DoRequestsComplete;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCloudBase.DoRequestsComplete;\r\nbegin\r\n  if Assigned(OnRequestsComplete) then\r\n    OnRequestsComplete(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCloudBase.DoRequestStarted(\r\n  const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\nbegin\r\n  if Assigned(OnRequestStarted) then\r\n    OnRequestStarted(Self, ARequestResult);\r\nend;\r\n\r\nclass procedure TTMSFNCCustomCloudBase.DownloadFileFromURL(const AURL: string;\r\n  const ARequestResultEvent: TTMSFNCCloudBaseRequestResultEvent);\r\nbegin\r\n  InternalSimpleGETAsync(AURL, rrtStream, ARequestResultEvent);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCloudBase.DoRequestCancelled(\r\n  const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\nbegin\r\n  if Assigned(ARequestResult) then\r\n  begin\r\n    if Assigned(OnRequestCancelled) then\r\n      OnRequestCancelled(Self, ARequestResult);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCloudBase.DoRequestComplete(\r\n  const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\nbegin\r\n  if Assigned(ARequestResult) then\r\n  begin\r\n    ARequestResult.Log('Response code from request [' + ARequestResult.Name + '] is ' + IntTostr(ARequestResult.ResponseCode));\r\n    if (ARequestResult.ResponseCode in ValidHTTPCodes) then\r\n    begin\r\n      case ARequestResult.ResultType of\r\n        rrtString: ARequestResult.Log('Result from request [' + ARequestResult.Name + '] is ' + ARequestResult.ResultString);\r\n        rrtStream: ARequestResult.Log('Result from request [' + ARequestResult.Name + '] is a stream with size ' + TTMSFNCUtils.FormatBytesAsString(ARequestResult.ResultStream.Size));\r\n        rrtFile: ARequestResult.Log('Result from request [' + ARequestResult.Name + '] is a file with location [' + ARequestResult.ResultFile + ']');\r\n      end;\r\n    end\r\n    else\r\n      ARequestResult.Log('Result from request [' + ARequestResult.Name + '] is ' + ARequestResult.ResultString);\r\n\r\n    ARequestResult.Success := (ARequestResult.ResponseCode in ValidHTTPCodes);\r\n\r\n    FRequestResult := ARequestResult;\r\n\r\n    if Assigned(OnRequestComplete) then\r\n      OnRequestComplete(Self, ARequestResult);\r\n\r\n    ARequestResult.RequestResult;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCloudBase.DoRequestLog(\r\n  const ARequestResult: TTMSFNCCloudBaseRequestResult; ALogMessage: string);\r\nbegin\r\n  if Assigned(ARequestResult) then\r\n    Log(ARequestResult, ALogMessage);\r\nend;\r\n\r\nprocedure TTMSFNCCustomCloudBase.DoRequestProgress(\r\n  const ARequestResult: TTMSFNCCloudBaseRequestResult; AProgress: single; AUpload: Boolean);\r\nbegin\r\n  if Assigned(ARequestResult) then\r\n  begin\r\n    if Assigned(ARequestResult) then\r\n      ARequestResult.RequestProgress(AProgress, AUpload);\r\n    if Assigned(OnRequestProgress) then\r\n      OnRequestProgress(Self, ARequestResult, AProgress, AUpload);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomCloudBase.ExecuteAllRequests;\r\nvar\r\n  I: Integer;\r\n  req: TTMSFNCCloudBaseRequestResult;\r\nbegin\r\n  for I := 0 to FRequests.Count - 1 do\r\n  begin\r\n    req := TTMSFNCCloudBaseRequestResult(FRequests[I]);\r\n    if not req.Running then\r\n    begin\r\n      if req.IsAsyncAvailable then\r\n      begin\r\n        {$IFNDEF LCLWEBLIBTHREAD}\r\n        if not (req.Task.Status = TTaskStatus.Canceled) and not IsDestroying then\r\n        {$ENDIF}\r\n          req.Task.Start\r\n      end\r\n      else\r\n      begin\r\n        InternalExecuteRequest(req);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomCloudBase.ExecuteRequest(const ARequestResultEvent: TTMSFNCCloudBaseRequestResultEvent = nil; const ARequestResultProgressEvent: TTMSFNCCloudBaseRequestResultProgressEvent = nil; const AAsync: Boolean = True): {$IFDEF WEBLIB}TJSPromise{$ELSE}TTMSFNCCloudBaseRequestResult{$ENDIF};\r\n{$IFDEF WEBLIB}\r\nvar\r\n  req: TTMSFNCCloudBaseRequestResult;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  Result := TJSPromise.New(\r\n    procedure(AResolve, AReject : TJSPromiseResolver)\r\n    begin\r\n      req := AddRequest(ARequestResultEvent, ARequestResultProgressEvent, AAsync);\r\n\r\n      if not AAsync then\r\n        req.FResolve := AResolve;\r\n\r\n      if Assigned(req) then\r\n        InternalExecuteRequest(req);\r\n\r\n      if AAsync then\r\n        AResolve(req);\r\n    end);\r\n  {$ELSE}\r\n  begin\r\n    Result := AddRequest(ARequestResultEvent, ARequestResultProgressEvent, AAsync);\r\n\r\n    if Assigned(Result) then\r\n    begin\r\n      if Result.IsAsyncAvailable then\r\n      begin\r\n        {$IFNDEF LCLWEBLIBTHREAD}\r\n        if not (Result.Task.Status = TTaskStatus.Canceled) and not IsDestroying then\r\n        {$ENDIF}\r\n          Result.Task.Start\r\n      end\r\n      else\r\n        InternalExecuteRequest(Result);\r\n    end;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\n{ TTMSFNCCloudBaseFactoryService }\r\n\r\nconstructor TTMSFNCCloudBaseFactoryService.Create;\r\nbegin\r\n  inherited Create;\r\n  FCloudBases := TTMSFNCCloudBaseList.Create;\r\nend;\r\n\r\nfunction TTMSFNCCloudBaseFactoryService.CreateCloudBase(const AValue: TTMSFNCCustomCloudBase): ITMSFNCCustomCloudBase;\r\nbegin\r\n  Result := DoCreateCloudBase(AValue);\r\n  FCloudBases.Add(Result);\r\nend;\r\n\r\ndestructor TTMSFNCCloudBaseFactoryService.Destroy;\r\nbegin\r\n  FreeAndNil(FCloudBases);\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TTMSFNCCloudBaseFactoryService.DestroyCloudBase(\r\n  const AValue: ITMSFNCCustomCloudBase);\r\nbegin\r\n  DoRemoveCloudBase(AValue);\r\nend;\r\n\r\nprocedure TTMSFNCCloudBaseFactoryService.DoRemoveCloudBase(\r\n  const AValue: ITMSFNCCustomCloudBase);\r\nbegin\r\n  if (FCloudBases <> nil) and (AValue <> nil) then\r\n    FCloudBases.Remove(AValue);\r\nend;\r\n\r\n{ TTMSFNCCloudBasePlatformServices }\r\n\r\nprocedure TTMSFNCCloudBasePlatformServices.AddPlatformService(const AServiceGUID: TGUID; const AService: IInterface);\r\nvar\r\n  LService: IInterface;\r\nbegin\r\n  if not FServicesList.ContainsKey(GUIDToString(AServiceGUID)) then\r\n  begin\r\n    if Supports(AService, AServiceGUID, LService) then\r\n      FServicesList.Add(TTMSFNCCloudPlatformServicesService.Create(GUIDToString(AServiceGUID), AService));\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCCloudBasePlatformServices.Create;\r\nbegin\r\n  inherited;\r\n  FServicesList := TTMSFNCCloudPlatformServicesList.Create;\r\nend;\r\n\r\ndestructor TTMSFNCCloudBasePlatformServices.Destroy;\r\nbegin\r\n  FreeAndNil(FServicesList);\r\n  inherited;\r\nend;\r\n\r\n{$IFNDEF AUTOREFCOUNT}\r\nclass procedure TTMSFNCCloudBasePlatformServices.ReleaseCurrent;\r\nbegin\r\n  FreeAndNil(FCurrent);\r\n  FCurrentReleased := True;\r\nend;\r\n{$ENDIF}\r\n\r\nclass function TTMSFNCCloudBasePlatformServices.Current: TTMSFNCCloudBasePlatformServices;\r\nbegin\r\n  if (FCurrent = nil) and not FCurrentReleased then\r\n    FCurrent := TTMSFNCCloudBasePlatformServices.Create;\r\n  Result := FCurrent;\r\nend;\r\n\r\nfunction TTMSFNCCloudBasePlatformServices.GetPlatformService(const AServiceGUID: TGUID): IInterface;\r\nvar\r\n  k: IInterface;\r\nbegin\r\n  k := FServicesList.Interfaces[GUIDToString(AServiceGUID)];\r\n  Supports(k, AServiceGUID, Result);\r\nend;\r\n\r\nprocedure TTMSFNCCloudBasePlatformServices.RemovePlatformService(const AServiceGUID: TGUID);\r\nbegin\r\n  FServicesList.RemoveByGUID(GUIDToString(AServiceGUID));\r\nend;\r\n\r\nfunction TTMSFNCCloudBasePlatformServices.SupportsPlatformService(const AServiceGUID: TGUID;\r\n  var AService: IInterface): Boolean;\r\nbegin\r\n  if FServicesList.ContainsKey(GUIDToString(AServiceGUID)) then\r\n    Result := Supports(FServicesList.Interfaces[GUIDToString(AServiceGUID)], AServiceGUID, AService)\r\n  else\r\n  begin\r\n    AService := nil;\r\n    Result := False;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCloudBasePlatformServices.SupportsPlatformService(const AServiceGUID: TGUID): Boolean;\r\nbegin\r\n  Result := FServicesList.ContainsKey(GUIDToString(AServiceGUID));\r\nend;\r\n\r\n{ TTMSFNCCloudBaseRequestHeader }\r\n\r\nconstructor TTMSFNCCloudBaseRequestHeader.Create(const AName, AValue: string);\r\nbegin\r\n  FName := AName;\r\n  FValue := AValue;\r\nend;\r\n\r\n{ TTMSFNCCloudBaseRequest }\r\n\r\n{$IFDEF FNCLIB}\r\nfunction TTMSFNCCloudBaseRequest.AddBasicAuthHeader(const AUserName: string; const APassword: string): TTMSFNCCloudBaseRequestHeader;\r\nvar\r\n  h: TTMSFNCCloudBaseRequestHeader;\r\nbegin\r\n  h := TTMSFNCCloudBaseRequestHeader.Create('Authorization', 'Basic ' + TTMSFNCUtils.Encode64(AUserName + ':' + APassword));\r\n  Headers.Add(h);\r\n  Result := h;\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TTMSFNCCloudBaseRequest.AddHeader(const AName,\r\n  AValue: string): TTMSFNCCloudBaseRequestHeader;\r\nvar\r\n  h: TTMSFNCCloudBaseRequestHeader;\r\nbegin\r\n  h := TTMSFNCCloudBaseRequestHeader.Create(AName, AValue);\r\n  Headers.Add(h);\r\n  Result := h;\r\nend;\r\n\r\nfunction TTMSFNCCloudBaseRequest.HasUploadFile: Boolean;\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  Result := Assigned(FUploadFile.Data);\r\n  {$ELSE}\r\n  Result := FUploadFile <> '';\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCCloudBaseRequest.HasUploadStream: Boolean;\r\nbegin\r\n  Result := Assigned(FUploadStream) and (FUploadStream.Size > 0);\r\nend;\r\n\r\nprocedure TTMSFNCCloudBaseRequest.Assign(ARequest: TTMSFNCCloudBaseRequest);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  FAgent := ARequest.Agent;\r\n  FHost := ARequest.Host;\r\n  FPort := ARequest.Port;\r\n  FPath := ARequest.Path;\r\n  FMethod := ARequest.Method;\r\n  FQuery := ARequest.Query;\r\n  FName := ARequest.Name;\r\n  FPostData := ARequest.PostData;\r\n  FResultType := ARequest.ResultType;\r\n  FResultFileSize := ARequest.ResultFileSize;\r\n  FReadTimeout := ARequest.ReadTimeout;\r\n  FConnectTimeout := ARequest.ConnectTimeout;\r\n\r\n  if ARequest.HasUploadStream then\r\n    UploadStream.LoadFromStream(ARequest.UploadStream);\r\n\r\n  FUploadFile := ARequest.UploadFile;\r\n  FResultFile := ARequest.ResultFile;\r\n  FCustomHeaders := ARequest.CustomHeaders;\r\n\r\n  FDataPointer := ARequest.DataPointer;\r\n  FDataBoolean := ARequest.DataBoolean;\r\n  FDataObject := ARequest.DataObject;\r\n  FDataString := ARequest.DataString;\r\n  FDataUpload := ARequest.DataUpload;\r\n  FDataInteger := ARequest.DataInteger;\r\n  FDataInt64 := ARequest.DataInt64;\r\n\r\n  Headers.Clear;\r\n  for I := 0 to ARequest.Headers.Count - 1 do\r\n    Headers.Add(DuplicateHeader(ARequest.Headers[I]));\r\nend;\r\n\r\nprocedure TTMSFNCCloudBaseRequest.Clear;\r\nbegin\r\n  ClearHeaders;\r\n  FHost := '';\r\n  FPort := 0;\r\n  FResultFileSize := -1;\r\n  FPath := '';\r\n  FQuery := '';\r\n  FMethod := rmGET;\r\n  FResultType := rrtString;\r\n  FName := '';\r\n  FPostData := '';\r\n  FDataPointer := nil;\r\n  FDataBoolean := False;\r\n  FDataString := '';\r\n  FDataObject := nil;\r\n  FDataInteger := 0;\r\n  FDataInt64 := 0;\r\n  if Assigned(FUploadStream) then\r\n  begin\r\n    FUploadStream.Clear;\r\n    FUploadStream.Position := 0;\r\n  end;\r\n  {$IFDEF WEBLIB}\r\n  FDataUpload.Data := nil;\r\n  FDataUpload.Name := '';\r\n  FUploadFile.Data := nil;\r\n  FUploadFile.Name := '';\r\n  {$ELSE}\r\n  FUploadFile := '';\r\n  FDataUpload := '';\r\n  {$ENDIF}\r\n  FResultFile := '';\r\n  FCustomHeaders := False;\r\n  FReadTimeout := 60000;\r\n  FConnectTimeout := 60000;\r\nend;\r\n\r\nprocedure TTMSFNCCloudBaseRequest.ClearHeaders;\r\nbegin\r\n  Headers.Clear;\r\nend;\r\n\r\nconstructor TTMSFNCCloudBaseRequest.Create;\r\nbegin\r\n  FAgent := 'Mozilla/5.001 (windows; U; NT4.0; en-US; rv:1.0) Gecko/25250101';\r\n  FMethod := rmGET;\r\n  FResultType := rrtString;\r\n  FResultFileSize := -1;\r\n  FReadTimeout := 60000;\r\n  FConnectTimeout := 60000;\r\nend;\r\n\r\ndestructor TTMSFNCCloudBaseRequest.Destroy;\r\nbegin\r\n  FreeAndNil(FHeaders);\r\n  FreeAndNil(FUploadStream);\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCCloudBaseRequest.DuplicateHeader(\r\n  AHeader: TTMSFNCCloudBaseRequestHeader): TTMSFNCCloudBaseRequestHeader;\r\nbegin\r\n  Result := TTMSFNCCloudBaseRequestHeader.Create(AHeader.Name, AHeader.Value);\r\nend;\r\n\r\nfunction TTMSFNCCloudBaseRequest.GenerateHeaders: string;\r\nvar\r\n  i: integer;\r\nbegin\r\n  Result := '';\r\n  for I := 0 to Headers.Count - 1 do\r\n    Result := Result + Headers[I].Name + ': ' + headers[I].Value +#13#10;\r\nend;\r\n\r\nfunction TTMSFNCCloudBaseRequest.GetHeaders: TTMSFNCCloudBaseRequestHeaders;\r\nbegin\r\n  if not Assigned(FHeaders) then\r\n    FHeaders := TTMSFNCCloudBaseRequestHeaders.Create;\r\n  Result := FHeaders;\r\nend;\r\n\r\nfunction TTMSFNCCloudBaseRequest.GetMethodString: string;\r\nbegin\r\n  case Method of\r\n    rmGET: Result := 'GET';\r\n    rmPOST, rmPOSTMULTIPART, rmPOSTMULTIPARTRELATED: Result := 'POST';\r\n    rmPUT, rmPUTMULTIPART, rmPUTMULTIPARTRELATED, rmUPDATE: Result := 'PUT';\r\n    rmDELETE: Result := 'DELETE';\r\n    rmPATCH: Result := 'PATCH';\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCloudBaseRequest.GetPort: Integer;\r\nbegin\r\n  Result := Port;\r\n  if Result = 0 then\r\n  begin\r\n    if Pos('HTTPS', UpperCase(Host)) > 0 then\r\n      Result := 443\r\n    else\r\n      Result := 80;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCloudBaseRequest.GetQueryPath: string;\r\nvar\r\n  q: string;\r\nbegin\r\n  q := '';\r\n  if Query <> '' then\r\n    q := '?' + Query;\r\n\r\n  Result := Path + q;\r\nend;\r\n\r\nfunction TTMSFNCCloudBaseRequest.GetServer: string;\r\nvar\r\n  firstslash: integer;\r\n  firstat: integer;\r\n  s: string;\r\nbegin\r\n  s := Host;\r\n\r\n  if Pos('://',UpperCase(s)) > 0 then\r\n    Delete(s, 1, Pos('://', s) + 2);\r\n\r\n  firstslash := Pos('/', s);\r\n  firstat := Pos('@', s);\r\n\r\n  if (firstat > 0) and (firstat < firstslash) then\r\n    Delete(s, 1, firstat + 1);\r\n\r\n  if firstslash > 0 then\r\n    Delete(s, 1, firstslash - 1);\r\n\r\n  Result := s;\r\nend;\r\n\r\nfunction TTMSFNCCloudBaseRequest.GetUploadStream: TMemoryStream;\r\nbegin\r\n  if not Assigned(FUploadStream) then\r\n    FUploadStream := TMemoryStream.Create;\r\n  Result := FUploadStream;\r\nend;\r\n\r\nfunction TTMSFNCCloudBaseRequest.GetURL: string;\r\nvar\r\n  p, q: string;\r\nbegin\r\n  p := '';\r\n  if Port > 0 then\r\n    p := ':' + IntToStr(Port);\r\n\r\n  q := '';\r\n  if Query <> '' then\r\n    q := '?' + Query;\r\n\r\n  Result := Host + p + Path + q;\r\nend;\r\n\r\n{ TTMSFNCCloudBaseRequestResult }\r\n\r\nprocedure TTMSFNCCloudBaseRequestResult.Cancel;\r\nbegin\r\n  if Assigned(Task) then\r\n    Task.Cancel;\r\nend;\r\n\r\nfunction TTMSFNCCloudBaseRequestResult.CheckTaskStatus: Boolean;\r\nbegin\r\n  if FIsDestroying then\r\n    Result := False\r\n  else\r\n    Result := (IsAsyncAvailable and Assigned(Task) and (Task.Status <> TTaskStatus.Canceled)) or not IsAsyncAvailable;\r\nend;\r\n\r\nprocedure TTMSFNCCloudBaseRequestResult.Clear;\r\nbegin\r\n  inherited;\r\n  FBytesReceived := 0;\r\n  FTotalBytes := 0;\r\n  FSuccess := False;\r\n  FResultString := '';\r\n  FResultStream.Clear;\r\n  FCallBackResult := nil;\r\n  FCallBackProgress := nil;\r\n  FTask := nil;\r\n  FResponseCode := 0;\r\n  FRunning := False;\r\n  FResponseHeaders.Clear;\r\nend;\r\n\r\nconstructor TTMSFNCCloudBaseRequestResult.Create;\r\nbegin\r\n  inherited Create;\r\nend;\r\n\r\nconstructor TTMSFNCCloudBaseRequestResult.Create(const ARequest: TTMSFNCCloudBaseRequest; const ARequestResultEvent: TTMSFNCCloudBaseRequestResultEvent = nil; const ARequestResultProgressEvent: TTMSFNCCloudBaseRequestResultProgressEvent = nil; const AAsync: Boolean = True; const ATask: ITask = nil);\r\nbegin\r\n  inherited Create;\r\n  Assign(ARequest);\r\n  FAsync := AAsync;\r\n  FTask := ATask;\r\n  FCallBackResult := ARequestResultEvent;\r\n  FCallBackProgress := ARequestResultProgressEvent;\r\n  FResultStream := TMemoryStream.Create;\r\n  FResponseHeaders := TTMSFNCCloudBaseRequestHeaders.Create;\r\nend;\r\n\r\ndestructor TTMSFNCCloudBaseRequestResult.Destroy;\r\nbegin\r\n  FIsDestroying := True;\r\n\r\n  if Assigned(FTask) then\r\n    FTask.Cancel;\r\n\r\n  FTask := nil;\r\n  FCallBackResult := nil;\r\n  FCallBackProgress := nil;\r\n  if Assigned(FResultStream) then\r\n    FResultStream.Free;\r\n\r\n  if Assigned(FResponseHeaders) then\r\n    FResponseHeaders.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCCloudBaseRequestResult.GetResponseHeader(AName: string): string;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := '';\r\n  for I := 0 to ResponseHeaders.Count - 1 do\r\n  begin\r\n    if UpperCase(ResponseHeaders[I].Name) = UpperCase(AName) then\r\n    begin\r\n      Result := ResponseHeaders[I].Value;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCloudBaseRequestResult.IsAsyncAvailable: Boolean;\r\nbegin\r\n  Result := Async;\r\nend;\r\n\r\nprocedure TTMSFNCCloudBaseRequestResult.Log(AMessage: string);\r\nbegin\r\n  FMessage := AMessage;\r\n  {$IFNDEF WEBLIB}\r\n  TThread.Queue(nil, ProcessLog);\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ProcessLog;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCloudBaseRequestResult.ProcessLog;\r\nbegin\r\n  if Assigned(OnLog) then\r\n    OnLog(Self, FMessage);\r\nend;\r\n\r\nprocedure TTMSFNCCloudBaseRequestResult.ProcessProgress;\r\nbegin\r\n  if Assigned(CallBackProgress) then\r\n    CallBackProgress(Self, FProgress);\r\nend;\r\n\r\nprocedure TTMSFNCCloudBaseRequestResult.ProcessResult;\r\nbegin\r\n  if Assigned(CallBackResult) then\r\n    CallBackResult(Self);\r\n\r\n  {$IFDEF WEBLIB}\r\n  if Assigned(FResolve) then\r\n    FResolve(Self);\r\n  {$ENDIF}\r\n\r\n  if Assigned(OnRemove) then\r\n    OnRemove(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCloudBaseRequestResult.RequestProgress(AProgress: Single; AUpload: Boolean);\r\nbegin\r\n  FProgress := AProgress;\r\n  if IsAsyncAvailable then\r\n  begin\r\n    {$IFNDEF LCLWEBLIBTHREAD}\r\n    if TTask.CurrentTask.Status <> TTaskStatus.Canceled then\r\n    {$ENDIF}\r\n    begin\r\n      {$IFNDEF WEBLIB}\r\n      TThread.Queue(nil, ProcessProgress);\r\n      {$ENDIF}\r\n      {$IFDEF WEBLIB}\r\n      ProcessProgress;\r\n      {$ENDIF}\r\n    end;\r\n  end\r\n  else\r\n    ProcessProgress;\r\nend;\r\n\r\nprocedure TTMSFNCCloudBaseRequestResult.RequestResult;\r\nbegin\r\n  if IsAsyncAvailable then\r\n  begin\r\n    {$IFNDEF LCLWEBLIBTHREAD}\r\n    if TTask.CurrentTask.Status <> TTaskStatus.Canceled then\r\n    {$ENDIF}\r\n    begin\r\n      {$IFNDEF WEBLIB}\r\n      TThread.Queue(nil, ProcessResult);\r\n      {$ENDIF}\r\n      {$IFDEF WEBLIB}\r\n      ProcessResult;\r\n      {$ENDIF}\r\n    end;\r\n  end\r\n  else\r\n    ProcessResult;\r\nend;\r\n\r\n{$IFDEF WEBLIB}\r\nfunction TTMSFNCCloudBaseRequests.GetItem(Index: Integer): TTMSFNCCloudBaseRequest;\r\nbegin\r\n  Result := TTMSFNCCloudBaseRequest(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCCloudBaseRequests.SetItem(Index: Integer; const Value: TTMSFNCCloudBaseRequest);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nfunction TTMSFNCCloudBaseRequestHeaders.GetItem(Index: Integer): TTMSFNCCloudBaseRequestHeader;\r\nbegin\r\n  Result := TTMSFNCCloudBaseRequestHeader(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCCloudBaseRequestHeaders.SetItem(Index: Integer; const Value: TTMSFNCCloudBaseRequestHeader);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nfunction TTMSFNCCloudBaseList.GetItem(Index: Integer): ITMSFNCCustomCloudBase;\r\nbegin\r\n  Result := ITMSFNCCustomCloudBase(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCCloudBaseList.SetItem(Index: Integer; const Value: ITMSFNCCustomCloudBase);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nfunction TTMSFNCCloudPlatformServicesList.GetItem(Index: Integer): TTMSFNCCloudPlatformServicesService;\r\nbegin\r\n  Result := TTMSFNCCloudPlatformServicesService(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCCloudPlatformServicesList.SetItem(Index: Integer; const Value: TTMSFNCCloudPlatformServicesService);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF LCLWEBLIBTHREAD}\r\nconstructor TTask.Create(const ARequest: TTMSFNCCloudBaseRequestResult; const ARunEvent: TTMSFNCCloudBaseRequestRunEvent);\r\nbegin\r\n  FTaskStatus := TTaskStatus.Created;\r\n  FRunEvent := ARunEvent;\r\n  FRequest := ARequest;\r\nend;\r\n\r\ndestructor TTask.Destroy;\r\nbegin\r\n  FRunEvent := nil;\r\n  inherited;\r\nend;\r\n\r\nfunction TTask.GetStatus: TTaskStatus;\r\nbegin\r\n  Result := FTaskStatus;\r\nend;\r\n\r\nprocedure TTask.Cancel;\r\nbegin\r\n  {$IFDEF LCLLIBTHREAD}\r\n  FWorkerThread.Terminate;\r\n  {$ENDIF}\r\n  FTaskStatus := TTaskStatus.Canceled;\r\nend;\r\n\r\nprocedure TTask.Start;\r\nbegin\r\n  {$IFDEF LCLLIBTHREAD}\r\n  FWorkerThread := TTaskWorkerThread.Create(FRequest, FRunEvent);\r\n  {$ELSE}\r\n  if Assigned(FRunEvent) then\r\n    FRunEvent(FRequest);\r\n  {$ENDIF}\r\n  FTaskStatus := TTaskStatus.Running;\r\nend;\r\n\r\n{$IFDEF LCLLIBTHREAD}\r\nconstructor TTaskWorkerThread.Create(const ARequest: TTMSFNCCloudBaseRequestResult; const ARunEvent: TTMSFNCCloudBaseRequestRunEvent);\r\nbegin\r\n  inherited Create(False);\r\n  FRequest := ARequest;\r\n  FRunEvent := ARunEvent;\r\n  FreeOnTerminate := False;\r\nend;\r\n\r\ntype\r\n  TTMSFNCCloudBaseRequestResultOpen = class(TTMSFNCCloudBaseRequestResult);\r\n\r\nprocedure TTaskWorkerThread.Execute;\r\nbegin\r\n  if Assigned(FRunEvent) then\r\n  begin\r\n    FRunEvent(FRequest);\r\n    while not TTMSFNCCloudBaseRequestResultOpen(FRequest).FDone do\r\n      Sleep(1);\r\n  end;\r\nend;\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\n{ TTMSFNCCloudPlatformServicesService }\r\n\r\nconstructor TTMSFNCCloudPlatformServicesService.Create(AGUID: string;\r\n  AInterface: IInterface);\r\nbegin\r\n  FGUID := AGUID;\r\n  FInterface := AInterface;\r\nend;\r\n\r\n{ TTMSFNCCloudPlatformServicesList }\r\n\r\nfunction TTMSFNCCloudPlatformServicesList.ContainsKey(AGUID: string): Boolean;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := False;\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    if Items[I].GUID = AGUID then\r\n    begin\r\n      Result := True;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCloudPlatformServicesList.GetValue(AGUID: string): IInterface;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := nil;\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    if Items[I].GUID = AGUID then\r\n    begin\r\n      Result := Items[I].&Interface;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCloudPlatformServicesList.RemoveByGUID(AGUID: string);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := Count - 1 downto 0 do\r\n  begin\r\n    if Items[I].GUID = AGUID then\r\n    begin\r\n      Remove(Items[I]);\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCCloudBaseService }\r\n\r\nprocedure TTMSFNCCloudBaseService.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCCloudBaseService then\r\n  begin\r\n    FBaseURL := (Source as TTMSFNCCloudBaseService).BaseURL;\r\n    FDeveloperURL := (Source as TTMSFNCCloudBaseService).DeveloperURL;\r\n    FName := (Source as TTMSFNCCloudBaseService).Name;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\n{ TTMSFNCCloudBaseRequestPostDataBuilder }\r\n\r\nprocedure TTMSFNCCloudBaseRequestPostDataBuilder.AddAttachment(AName: string; AValue: string; ASkipBoundary: Boolean = False; AFileName: string = '';\r\n  AContentType: string = ''; AContentTransferEncoding: string = ''; ASkipLineBreakOnEnd: Boolean = False);\r\nbegin\r\n  AddInternalData('attachment', AName, AValue, ASkipBoundary, AFileName, AContentType, AContentTransferEncoding, ASkipLineBreakOnEnd);\r\nend;\r\n\r\nprocedure TTMSFNCCloudBaseRequestPostDataBuilder.AddContentType(AValue: string);\r\nbegin\r\n  FPostData := FPostData + Format('Content-Type: %s' + sRequestLineBreak, [AValue]);\r\nend;\r\n\r\nprocedure TTMSFNCCloudBaseRequestPostDataBuilder.AddFormData(AName: string; AValue: string; ASkipBoundary: Boolean = False; AFileName: string = ''; AContentType: string = ''; AContentTransferEncoding: string = ''; ASkipLineBreakOnEnd: Boolean = False);\r\nbegin\r\n  AddInternalData('form-data', AName, AValue, ASkipBoundary, AFileName, AContentType, AContentTransferEncoding, ASkipLineBreakOnEnd);\r\nend;\r\n\r\nprocedure TTMSFNCCloudBaseRequestPostDataBuilder.AddHeadBoundary;\r\nbegin\r\n  FPostData := FPostData + sRequestHeadBoundary + sRequestLineBreak;\r\nend;\r\n\r\nprocedure TTMSFNCCloudBaseRequestPostDataBuilder.AddInternalData(ADataType: string; AName: string; AValue: string; ASkipBoundary: Boolean; AFileName: string; AContentType: string; AContentTransferEncoding: string; ASkipLineBreakOnEnd: Boolean);\r\nbegin\r\n  if not ASkipBoundary then\r\n    AddHeadBoundary;\r\n\r\n  if AContentType <> '' then\r\n    FPostData := FPostData + Format('Content-Type: %s' + sRequestLineBreak, [AContentType]);\r\n\r\n  if AContentTransferEncoding <> '' then\r\n    FPostData := FPostData + Format('Content-Transfer-Encoding: %s' + sRequestLineBreak, [AContentTransferEncoding]);\r\n\r\n  if (AFileName <> '') and (AName <> '') then\r\n    FPostData := FPostData + Format('Content-Disposition: ' + ADataType + '; name=\"%s\"; filename=\"%s\"' + sRequestLineBreak, [AName, AFileName])\r\n  else if (AName <> '') then\r\n    FPostData := FPostData + Format('Content-Disposition: ' + ADataType + '; name=\"%s\"' + sRequestLineBreak, [AName])\r\n  else if (AFileName <> '') then\r\n    FPostData := FPostData + Format('Content-Disposition: ' + ADataType + '; filename=\"%s\"' + sRequestLineBreak, [AFileName]);\r\n\r\n  if AValue <> '' then\r\n  begin\r\n    if not ASkipLineBreakOnEnd then\r\n      FPostData := FPostData + Format(sRequestLineBreak + '%s' + sRequestLineBreak, [AValue])\r\n    else\r\n      FPostData := FPostData + Format(sRequestLineBreak + '%s', [AValue])\r\n  end\r\n  else\r\n    FPostData := FPostData + sRequestLineBreak;\r\nend;\r\n\r\nprocedure TTMSFNCCloudBaseRequestPostDataBuilder.AddLineBreak;\r\nbegin\r\n  FPostData := FPostData + sRequestLineBreak;\r\nend;\r\n\r\nprocedure TTMSFNCCloudBaseRequestPostDataBuilder.AddTailBoundary;\r\nbegin\r\n  FPostData := FPostData + sRequestTailBoundary + sRequestLineBreak;\r\nend;\r\n\r\nprocedure TTMSFNCCloudBaseRequestPostDataBuilder.AddText(AText: string; ALineBreak: Boolean = True);\r\nbegin\r\n  FPostData := FPostData + AText;\r\n  if ALineBreak then\r\n    FPostData := FPostData + sLineBreak;\r\nend;\r\n\r\nfunction TTMSFNCCloudBaseRequestPostDataBuilder.Build: string;\r\nbegin\r\n  Result := FPostData;\r\nend;\r\n\r\nprocedure TTMSFNCCloudBaseRequestPostDataBuilder.Clear;\r\nbegin\r\n  FPostData := '';\r\nend;\r\n\r\nprocedure TTMSFNCCloudBaseRequestPostDataBuilder.Close;\r\nbegin\r\n  AddTailBoundary;\r\nend;\r\n\r\n{$IFDEF SUPPORTCURL}\r\n\r\n{ TTMSFNCCloudBaseRequestCurlParser }\r\n\r\nconstructor TTMSFNCCloudBaseRequestCurlParser.Create;\r\nbegin\r\n  FRequest := TTMSFNCCloudBaseRequest.Create;\r\nend;\r\n\r\ndestructor TTMSFNCCloudBaseRequestCurlParser.Destroy;\r\nbegin\r\n  FreeAndNil(FRequest);\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCCloudBaseRequestCurlParser.Parse(\r\n  ACurl: string): TTMSFNCCloudBaseRequest;\r\nvar\r\n  t, l, e, ev, hd, pd: TStringList;\r\n  fl: TStringStream;\r\n  fn: string;\r\n  cmd, vl, vln, vld: string;\r\n  I, K, o, vldp: Integer;\r\n  v, hs: Boolean;\r\n  n, h, q, p: string;\r\n  pt: Integer;\r\n  s: string;\r\n  f, fs, mp: Boolean;\r\n  mt: string;\r\n  fls: TFileStream;\r\n  md: TTMSFNCCloudBaseRequestCurlParserMode;\r\n  qp: Boolean;\r\n  obj: TTMSFNCCloudBaseRequestCurlParserFile;\r\n  ob: TObject;\r\n  pdb: TStringStream;\r\nbegin\r\n  Result := nil;\r\n  if not Assigned(FRequest) then\r\n    Exit;\r\n\r\n  FRequest.Clear;\r\n  FRequest.ResultType := rrtStream;\r\n\r\n  v := False;\r\n  cmd := ACurl;\r\n  cmd := StringReplace(cmd, #13#10, '', [rfReplaceAll]);\r\n  t := TStringList.Create('''', ' ');\r\n  l := TStringList.Create('''', ' ');\r\n  pd := TStringList.Create;\r\n  pd.Delimiter := '&';\r\n  pd.TrailingLineBreak := False;\r\n  pd.QuoteChar := #0;\r\n  pd.StrictDelimiter := True;\r\n\r\n  try\r\n    s := cmd;\r\n    cmd := '';\r\n    f := False;\r\n    fs := False;\r\n    {$IFDEF ZEROSTRINGINDEX}\r\n    o := 1;\r\n    {$ELSE}\r\n    o := 0;\r\n    {$ENDIF}\r\n    I := 1;\r\n    while I <= Length(s) do\r\n    begin\r\n      if (s[I - o] = '''') then\r\n        fs := not fs;\r\n\r\n      if (s[I - o] = '\"') and not fs then\r\n      begin\r\n        if not f then\r\n        begin\r\n          f := True;\r\n          s[I - o] := '''';\r\n        end\r\n        else if f then\r\n        begin\r\n          f := False;\r\n          s[I - o] := '''';\r\n        end;\r\n      end;\r\n\r\n      cmd := cmd + s[I - o];\r\n      Inc(I);\r\n    end;\r\n\r\n    md := cpmNone;\r\n    mp := False;\r\n    qp := False;\r\n\r\n    t.DelimitedText := cmd;\r\n\r\n    for I := 0 to t.Count - 1 do\r\n    begin\r\n      vl := Trim(t[I]);\r\n\r\n      if vl = '\\' then\r\n        Continue;\r\n\r\n      if md = cpmNone then\r\n      begin\r\n        if (vl = '-H') or (vl = '--header') then\r\n          md := cpmHeader\r\n        else if (vl = '-g') or (vl = '--get') then\r\n          qp := True\r\n        else if (vl = '-F') or (vl = '--form') then\r\n          md := cpmFormData\r\n        else if (vl = '-d') or (vl = '--data') or (vl = '--data-ascii') or (vl = '--json') then\r\n          md := cpmData\r\n        else if (vl = '--data-binary') then\r\n          md := cpmDataBinary\r\n        else if (vl = '--data-urlencode') then\r\n          md := cpmDataUrlEncode\r\n        else if (vl = '--data-raw') then\r\n          md := cpmDataRaw\r\n        else if (vl = '-u') or (vl = '--user') then\r\n          md := cpmUser\r\n        else if (vl = '--oauth2-bearer') then\r\n          md := cpmBearer\r\n        else if (vl = '-X') or (vl = '--request') then\r\n          md := cpmRequest\r\n        else if (vl = '-o') or (vl = '--output') then\r\n          md := cpmResultFile\r\n        else\r\n          l.Add(vl);\r\n      end\r\n      else\r\n      begin\r\n        case md of\r\n          cpmHeader:\r\n          begin\r\n            hd := TStringList.Create;\r\n            try\r\n              TTMSFNCUtils.Split(':', vl, hd, True);\r\n              if hd.Count = 1 then\r\n                FRequest.AddHeader(Trim(hd[0]), '')\r\n              else if hd.Count > 1 then\r\n              begin\r\n                s := '';\r\n                for K := 1 to hd.Count - 1 do\r\n                begin\r\n                  s := s + hd[K];\r\n                  if K < hd.Count - 1 then\r\n                    s := s + ':';\r\n                end;\r\n                FRequest.AddHeader(Trim(hd[0]), Trim(s));\r\n              end;\r\n            finally\r\n              hd.Free;\r\n            end;\r\n          end;\r\n          cpmFormData, cpmData, cpmDataRaw, cpmDataUrlEncode:\r\n          begin\r\n            if md = cpmFormData then\r\n              mp := True;\r\n\r\n            if mp then\r\n              ev := TStringList.Create('''', ';')\r\n            else\r\n              ev := TStringList.Create('''', '&');\r\n\r\n            try\r\n              ev.StrictDelimiter := True;\r\n              ev.DelimitedText := vl;\r\n\r\n              for K := 0 to ev.Count - 1 do\r\n              begin\r\n                e := TStringList.Create('''', '=');\r\n                e.StrictDelimiter := True;\r\n                try\r\n                  e.DelimitedText := ev[K];\r\n\r\n                  vln := '';\r\n                  vld := '';\r\n\r\n                  if e.Count = 2 then\r\n                  begin\r\n                    vln := e[0];\r\n                    vld := e[1];\r\n                  end\r\n                  else if e.Count = 1 then\r\n                  begin\r\n                    vld := e[0];\r\n                  end;\r\n\r\n                  obj := nil;\r\n\r\n                  if (md <> cpmDataRaw) and not TTMSFNCUtils.IsJSON(vld) then\r\n                  begin\r\n                    vldp := Pos('@', vld);\r\n                    if (vldp > 0) then\r\n                    begin\r\n                      if vln = '' then\r\n                        vln := Copy(vld, 1, vldp - 1);\r\n\r\n                      fn := Copy(vld, vldp + 1, Length(vld) - vldp);\r\n                      if FileExists(fn) then\r\n                      begin\r\n                        fl := TStringStream.Create;\r\n                        try\r\n                          if not mp then\r\n                          begin\r\n                            fl.LoadFromFile(fn);\r\n                            vld := fl.DataString;\r\n                          end;\r\n                          obj := TTMSFNCCloudBaseRequestCurlParserFile.Create;\r\n                          obj.FFileName := fn;\r\n                        finally\r\n                          fl.Free;\r\n                        end;\r\n                      end;\r\n                    end;\r\n                  end;\r\n\r\n                  if md = cpmDataUrlEncode then\r\n                    vld := TTMSFNCUtils.URLEncode(vld);\r\n\r\n                  if (vln <> '') and (vld <> '') then\r\n                    pd.AddObject(vln + '=' + vld, obj)\r\n                  else if (vld <> '') then\r\n                    pd.AddObject(vld, obj);\r\n                finally\r\n                  e.Free;\r\n                end;\r\n              end;\r\n            finally\r\n              ev.free;\r\n            end;\r\n          end;\r\n          cpmBearer: FRequest.AddHeader('Authorization', 'Bearer ' + vl);\r\n          cpmUser: FRequest.AddHeader('Authorization', 'Basic ' + TTMSFNCUtils.Encode64(vl));\r\n          cpmResultFile:\r\n          begin\r\n            FRequest.ResultType := rrtFile;\r\n            FRequest.ResultFile := vl;\r\n          end;\r\n          cpmRequest:\r\n          begin\r\n            if UpperCase(vl) = 'GET' then\r\n              FRequest.Method := rmGET\r\n            else if UpperCase(vl) = 'POST' then\r\n              FRequest.Method := rmPOST\r\n            else if UpperCase(vl) = 'PUT' then\r\n              FRequest.Method := rmPUT\r\n            else if UpperCase(vl) = 'DELETE' then\r\n              FRequest.Method := rmDELETE;\r\n          end;\r\n        end;\r\n\r\n        md := cpmNone;\r\n      end;\r\n    end;\r\n\r\n    for I := 0 to l.Count - 1 do\r\n    begin\r\n      vl := l[I];\r\n\r\n      if not v and (UpperCase(vl) = 'CURL') then\r\n        v := True\r\n      else if v and (Pos('http', LowerCase(vl)) > 0) then\r\n      begin\r\n        h := '';\r\n        q := '';\r\n        p := '';\r\n        pt := 0;\r\n        TTMSFNCUtils.SplitURL(vl, h, p, q, pt);\r\n        if h <> '' then\r\n          FRequest.Host := h;\r\n\r\n        if q <> '' then\r\n          FRequest.Query := q;\r\n\r\n        if p <> '' then\r\n          FRequest.Path := p;\r\n\r\n        if pt <> 0 then\r\n          FRequest.Port := pt;\r\n      end;\r\n    end;\r\n\r\n    if not mp then\r\n    begin\r\n      if qp then\r\n        FRequest.Query := FRequest.Query + '&' + pd.DelimitedText\r\n      else\r\n        FRequest.PostData := pd.DelimitedText\r\n    end\r\n    else\r\n    begin\r\n      pdb := TStringStream.Create;\r\n      try\r\n        for I := 0 to pd.Count - 1 do\r\n        begin\r\n          if I > 0 then\r\n            pdb.WriteString(sRequestLineBreak + sRequestHeadBoundary + sRequestLineBreak)\r\n          else\r\n            pdb.WriteString(sRequestHeadBoundary + sRequestLineBreak);\r\n\r\n          ob := pd.Objects[I];\r\n          n := pd.Names[I];\r\n          if Assigned(ob) and (ob is TTMSFNCCloudBaseRequestCurlParserFile) then\r\n          begin\r\n            obj := ob as TTMSFNCCloudBaseRequestCurlParserFile;\r\n            try\r\n              mt := TTMSFNCUtils.GetMimeType(obj.FFileName) ;\r\n              if mt = '' then\r\n                mt := 'application/octet-stream';\r\n\r\n              pdb.WriteString('Content-Type: ' + mt + sRequestLineBreak);\r\n              pdb.WriteString('Content-Disposition: form-data; name=\"' + n + '\"; filename=\"' + obj.FFileName + '\"' + sRequestLineBreak);\r\n              pdb.WriteString(sRequestLineBreak);\r\n              fls := TFileStream.Create(obj.FFileName, fmOpenRead or fmShareDenyWrite);\r\n              try\r\n                pdb.CopyFrom(fls, 0);\r\n              finally\r\n                fls.Free;\r\n              end;\r\n            finally\r\n              obj.Free;\r\n            end;\r\n          end\r\n          else\r\n          begin\r\n            pdb.WriteString('Content-Disposition: form-data; name=\"' + n + '\"' + sRequestLineBreak);\r\n            pdb.WriteString(sRequestLineBreak);\r\n            pdb.WriteString(pd.Values[n]);\r\n          end;\r\n        end;\r\n\r\n        pdb.WriteString(sRequestLineBreak + sRequestTailBoundary + sRequestLineBreak);\r\n        FRequest.PostData := pdb.DataString;\r\n      finally\r\n        pdb.free;\r\n      end;\r\n\r\n    end;\r\n\r\n    if FRequest.PostData <> '' then\r\n    begin\r\n      if (FRequest.Method = rmGET) then\r\n        FRequest.Method := rmPOST;\r\n\r\n      hs := False;\r\n      for I := 0 to FRequest.Headers.Count - 1 do\r\n      begin\r\n        if UpperCase(FRequest.Headers[I].Name) = 'CONTENT-TYPE' then\r\n        begin\r\n          hs := True;\r\n          Break;\r\n        end;\r\n      end;\r\n\r\n      if not hs then\r\n      begin\r\n        if TTMSFNCUtils.IsJSON(FRequest.PostData) then\r\n          FRequest.AddHeader('Content-Type', 'application/json')\r\n        else\r\n        begin\r\n          if not mp then\r\n            FRequest.AddHeader('Content-Type', 'application/x-www-form-urlencoded')\r\n          else\r\n            FRequest.AddHeader('Content-Type', 'multipart/form-data; boundary=' + sRequestBoundary);\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    if not v then\r\n      raise ETMSFNCCloudBaseException.Create('Not a valid curl command');\r\n\r\n  finally\r\n    t.Free;\r\n    l.Free;\r\n    pd.Free;\r\n  end;\r\n\r\n  Result := FRequest;\r\nend;\r\n{$ENDIF}\r\n\r\n{ TTMSFNCCloudBaseRequestResultEventWrapper }\r\n\r\nconstructor TTMSFNCCloudBaseRequestResultEventWrapper.Create(ACallbackRequest: TTMSFNCCloudBaseRequestResultEvent; ACallbackString: TTMSFNCCloudBaseRequestResultStringEvent; ACallbackStream: TTMSFNCCloudBaseRequestResultStreamEvent);\r\nbegin\r\n  FCallbackRequest := ACallbackRequest;\r\n  FCallbackString := ACallbackString;\r\n  FCallbackStream := ACallbackStream;\r\nend;\r\n\r\ninitialization\r\nbegin\r\n  TTMSFNCCloudBasePlatformServices.FCurrentReleased := False;\r\n  RegisterCloudBaseService;\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\nfinalization\r\nbegin\r\n  if Assigned(FCloudBaseGlobal) then\r\n  begin\r\n    FCloudBaseGlobal.Free;\r\n    FCloudBaseGlobal := nil;\r\n  end;\r\n\r\n  if Assigned(FHeadersGlobal) then\r\n  begin\r\n    FHeadersGlobal.Free;\r\n    FHeadersGlobal := nil;\r\n  end;\r\n\r\n  if Assigned(FPostDataBuilderGlobal) then\r\n  begin\r\n    FPostDataBuilderGlobal.Free;\r\n    FPostDataBuilderGlobal := nil;\r\n  end;\r\n\r\n  UnRegisterCloudBaseService;\r\n{$IFNDEF AUTOREFCOUNT}\r\n  TTMSFNCCloudBasePlatformServices.ReleaseCurrent;\r\n{$ENDIF}\r\nend;\r\n{$ENDIF}\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2022                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCGeocoding.Google;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nprocedure RegisterGoogleGeocodingService;\r\nprocedure UnRegisterGoogleGeocodingService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCGeocoding,\r\n  WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes, WEBLib.TMSFNCCloudBase\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 26}\r\n  ,JSON\r\n  {$ELSE}\r\n  ,DBXJSON\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  ,fpjson\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web, WEBLIB.JSON\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\nconst\r\n  PRECISION_ROOFTOP = 'ROOFTOP';\r\n  PRECISION_RANGE_INTERPOLATED = 'RANGE_INTERPOLATED';\r\n  PRECISION_GEOMETRIC_CENTER = 'GEOMETRIC_CENTER';\r\n  PRECISION_APPROXIMATE = 'APPROXIMATE';\r\n\r\ntype\r\n  TTMSFNCGeocodingGoogleService = class;\r\n\r\n  TTMSFNCGeocodingGoogleGeocodingFactoryService = class(TTMSFNCGeocodingFactoryService, ITMSFNCGeocodingServiceGoogle);\r\n\r\n  TTMSFNCGeocodingGoogleService = class(TTMSFNCGeocodingGoogleGeocodingFactoryService)\r\n  protected\r\n    function DoCreateGeocoding: ITMSFNCCustomGeocoding; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCGeocodingGoogleGeocoding = class;\r\n\r\n  TTMSFNCGeocodingGoogleGeocoding = class(TTMSFNCCustomGeocodingInterfacedObject, ITMSFNCCustomGeocoding)\r\n  protected\r\n    function GetIdentifier: string;\r\n    function IsValid: Boolean;\r\n    function GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\n    function GetHost: string;\r\n    function GetReverseHost: string;\r\n    function GetPath(AAddress: string): string;\r\n    function GetReversePath(ACoordinate: TTMSFNCMapsCoordinateRec): string;\r\n    function GetQuery(AAddress: string; ALocale: string): string; overload;\r\n    function GetQuery(ACoordinate: TTMSFNCMapsCoordinateRec; ALocale: string): string; overload;\r\n    function GetPostData: string;\r\n    procedure Parse(ARequest: TTMSFNCGeocodingRequest; ARequestResult: string);\r\n    procedure AddHeaders(AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\n    procedure DestroyGeocoding;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  GeocodingService: ITMSFNCGeocodingServiceGoogle;\r\n\r\nprocedure RegisterGoogleGeocodingService;\r\nbegin\r\n  if not TTMSFNCGeocodingPlatformServices.Current.SupportsPlatformService(ITMSFNCGeocodingServiceGoogle, IInterface(GeocodingService)) then\r\n  begin\r\n    GeocodingService := TTMSFNCGeocodingGoogleService.Create;\r\n    TTMSFNCGeocodingPlatformServices.Current.AddPlatformService(ITMSFNCGeocodingServiceGoogle, GeocodingService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterGoogleGeocodingService;\r\nbegin\r\n  TTMSFNCGeocodingPlatformServices.Current.RemovePlatformService(ITMSFNCGeocodingServiceGoogle);\r\nend;\r\n\r\n{ TTMSFNCGeocodingGoogleService }\r\n\r\nfunction TTMSFNCGeocodingGoogleService.DoCreateGeocoding: ITMSFNCCustomGeocoding;\r\nbegin\r\n  Result := TTMSFNCGeocodingGoogleGeocoding.Create;\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingGoogleGeocoding.AddHeaders(\r\n  AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\nbegin\r\n\r\nend;\r\n\r\nconstructor TTMSFNCGeocodingGoogleGeocoding.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCGeocodingGoogleGeocoding.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingGoogleGeocoding.DestroyGeocoding;\r\nbegin\r\n  GeocodingService.DestroyGeocoding(Self);\r\nend;\r\n\r\nfunction TTMSFNCGeocodingGoogleGeocoding.GetHost: string;\r\nbegin\r\n  Result := 'https://maps.googleapis.com';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingGoogleGeocoding.GetReverseHost: string;\r\nbegin\r\n  Result := GetHost;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingGoogleGeocoding.GetIdentifier: string;\r\nbegin\r\n  Result := 'Google';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingGoogleGeocoding.GetPath(AAddress: string): string;\r\nbegin\r\n  Result := '/maps/api/geocode/json';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingGoogleGeocoding.GetReversePath(ACoordinate: TTMSFNCMapsCoordinateRec): string;\r\nbegin\r\n  Result := GetPath('');\r\nend;\r\n\r\nfunction TTMSFNCGeocodingGoogleGeocoding.GetPostData: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingGoogleGeocoding.GetQuery(\r\n  ACoordinate: TTMSFNCMapsCoordinateRec; ALocale: string): string;\r\nbegin\r\n  Result := 'key=' + GeocodingProperties.GetAPIKey\r\n    + '&latlng=' + TTMSFNCUtils.FloatToStrDot(ACoordinate.Latitude) + ',' + TTMSFNCUtils.FloatToStrDot(ACoordinate.Longitude)\r\n    + '&language=' + ALocale\r\n    ;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingGoogleGeocoding.GetQuery(AAddress: string; ALocale: string): string;\r\nbegin\r\n  Result := 'key=' + GeocodingProperties.GetAPIKey\r\n    + '&address=' + AAddress\r\n    + '&language=' + ALocale\r\n    ;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingGoogleGeocoding.GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\nbegin\r\n  Result := rmGet;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingGoogleGeocoding.IsValid: Boolean;\r\nbegin\r\n  Result := GeocodingProperties.GetAPIKey <> '';\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingGoogleGeocoding.Parse(ARequest: TTMSFNCGeocodingRequest; ARequestResult: string);\r\nvar\r\n  d: TTMSFNCGeocodingItems;\r\n  di: TTMSFNCGeocodingItem;\r\n\r\n  o, jo, joa: TJSONValue;\r\n  jar, jaa: TJSONArray;\r\n  i, j: Integer;\r\n  ob, oc: TJSONObject;\r\n  atype, streetno, streetname, longname, shortname, precision: string;\r\nbegin\r\n  if Assigned(GeocodingProperties) then\r\n  begin\r\n    d := ARequest.Items;\r\n\r\n    if Assigned(d) then\r\n    begin\r\n      if ARequestResult <> '' then\r\n      begin\r\n        o := TTMSFNCUtils.ParseJSON(ARequestResult);\r\n        if Assigned(o) then\r\n        begin\r\n          try\r\n            ARequest.Status := TTMSFNCUtils.GetJSONProp(o, 'status');\r\n            ARequest.ErrorMessage := TTMSFNCUtils.GetJSONProp(o, 'error_message');\r\n\r\n            jar := TTMSFNCUtils.GetJSONValue(o, 'results') as TJSONArray;\r\n            if Assigned(jar) then\r\n            begin\r\n              for i := 0 to TTMSFNCUtils.GetJSONArraySize(jar) - 1 do\r\n              begin\r\n                jo := TTMSFNCUtils.GetJSONArrayItem(jar, i);\r\n\r\n                di := d.Add;\r\n                di.Address := TTMSFNCUtils.GetJSONProp(jo, 'formatted_address');\r\n\r\n                jaa := TTMSFNCUtils.GetJSONValue(jo, 'address_components') as TJSONArray;\r\n                if Assigned(jaa) then\r\n                begin\r\n                  for j := 0 to TTMSFNCUtils.GetJSONArraySize(jaa) - 1 do\r\n                  begin\r\n                    joa := TTMSFNCUtils.GetJSONArrayItem(jaa, j);\r\n\r\n                    atype := (TTMSFNCUtils.GetJSONValue(joa, 'types') as TJSONArray).ToString;\r\n                    longname := TTMSFNCUtils.GetJSONProp(joa, 'long_name');\r\n                    shortname := TTMSFNCUtils.GetJSONProp(joa, 'short_name');\r\n\r\n                    if Pos('street_number', atype) > 0 then\r\n                      streetno := longname;\r\n                    if Pos('route', atype) > 0 then\r\n                      streetname := longname;\r\n                    if Pos('locality', atype) > 0 then\r\n                      di.City := longname;\r\n                    if Pos('sublocality', atype) > 0 then\r\n                      di.District := longname;\r\n                    if di.District = '' then\r\n                    begin\r\n                      if Pos('political', atype) > 0 then\r\n                        di.District := longname;\r\n                    end;\r\n                    if Pos('administrative_area_level_1', atype) > 0 then\r\n                    begin\r\n                      di.Region := longname;\r\n                      di.RegionCode := shortname\r\n                    end;\r\n                    if Pos('administrative_area_level_2', atype) > 0 then\r\n                    begin\r\n                      di.Province := longname;\r\n                      di.ProvinceCode := shortname\r\n                    end;\r\n                    if Pos('country', atype) > 0 then\r\n                    begin\r\n                      di.Country := longname;\r\n                      di.CountryCode := shortname;\r\n                    end;\r\n                    if (Pos('postal_code', atype) > 0) and not (Pos('postal_code_suffix', atype) > 0) then\r\n                    begin\r\n                      di.PostalCode := longname;\r\n                    end;\r\n                    if Pos('intersection', atype) > 0 then\r\n                    begin\r\n                      di.Intersection := shortname;\r\n                    end;\r\n\r\n                    di.Street := streetname + ' ' + streetno;\r\n                    di.StreetName := streetname;\r\n                    di.StreetNumber := streetno;\r\n                  end;\r\n                end;\r\n\r\n                ob := TTMSFNCUtils.GetJSONValue(jo, 'geometry') as TJSONObject;\r\n                if Assigned(ob) then\r\n                begin\r\n                  precision  := TTMSFNCUtils.GetJSONProp(ob, 'location_type');\r\n                  if precision = PRECISION_ROOFTOP then\r\n                    di.Precision := gpRoofTop\r\n                  else if precision = PRECISION_RANGE_INTERPOLATED then\r\n                    di.Precision := gpRangeInterpolated\r\n                  else if precision = PRECISION_GEOMETRIC_CENTER then\r\n                    di.Precision := gpGeometricCenter\r\n                  else if precision = PRECISION_APPROXIMATE then\r\n                    di.Precision := gpApproximate\r\n                  else\r\n                    di.Precision := gpUnknown;\r\n\r\n                  oc := TTMSFNCUtils.GetJSONValue(ob, 'location') as TJSONObject;\r\n                  if Assigned(oc) then\r\n                  begin\r\n                    di.Coordinate.Latitude := TTMSFNCUtils.GetJSONDoubleValue(oc, 'lat');\r\n                    di.Coordinate.Longitude := TTMSFNCUtils.GetJSONDoubleValue(oc, 'lng');\r\n                  end;\r\n                end;\r\n              end;\r\n            end;\r\n          finally\r\n            o.Free;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2022                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCGeocoding.Here;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nprocedure RegisterHereGeocodingService;\r\nprocedure UnRegisterHereGeocodingService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCGeocoding,\r\n  WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes, WEBLib.TMSFNCCloudBase\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 26}\r\n  ,JSON\r\n  {$ELSE}\r\n  ,DBXJSON\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  ,fpjson\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web, WEBLIB.JSON\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCGeocodingHereService = class;\r\n\r\n  TTMSFNCGeocodingHereGeocodingFactoryService = class(TTMSFNCGeocodingFactoryService, ITMSFNCGeocodingServiceHere);\r\n\r\n  TTMSFNCGeocodingHereService = class(TTMSFNCGeocodingHereGeocodingFactoryService)\r\n  protected\r\n    function DoCreateGeocoding: ITMSFNCCustomGeocoding; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCGeocodingHereGeocoding = class;\r\n\r\n  TTMSFNCGeocodingHereGeocoding = class(TTMSFNCCustomGeocodingInterfacedObject, ITMSFNCCustomGeocoding)\r\n  protected\r\n    function GetIdentifier: string;\r\n    function IsValid: Boolean;\r\n    function GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\n    function GetHost: string;\r\n    function GetReverseHost: string;\r\n    function GetPath(AAddress: string): string;\r\n    function GetReversePath(ACoordinate: TTMSFNCMapsCoordinateRec): string;\r\n    function GetQuery(AAddress: string; ALocale: string): string; overload;\r\n    function GetQuery(ACoordinate: TTMSFNCMapsCoordinateRec; ALocale: string): string; overload;\r\n    function GetPostData: string;\r\n    procedure Parse(ARequest: TTMSFNCGeocodingRequest; ARequestResult: string);\r\n    procedure AddHeaders(AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\n    procedure DestroyGeocoding;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  GeocodingService: ITMSFNCGeocodingServiceHere;\r\n\r\nprocedure RegisterHereGeocodingService;\r\nbegin\r\n  if not TTMSFNCGeocodingPlatformServices.Current.SupportsPlatformService(ITMSFNCGeocodingServiceHere, IInterface(GeocodingService)) then\r\n  begin\r\n    GeocodingService := TTMSFNCGeocodingHereService.Create;\r\n    TTMSFNCGeocodingPlatformServices.Current.AddPlatformService(ITMSFNCGeocodingServiceHere, GeocodingService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterHereGeocodingService;\r\nbegin\r\n  TTMSFNCGeocodingPlatformServices.Current.RemovePlatformService(ITMSFNCGeocodingServiceHere);\r\nend;\r\n\r\n{ TTMSFNCGeocodingHereService }\r\n\r\nfunction TTMSFNCGeocodingHereService.DoCreateGeocoding: ITMSFNCCustomGeocoding;\r\nbegin\r\n  Result := TTMSFNCGeocodingHereGeocoding.Create;\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingHereGeocoding.AddHeaders(\r\n  AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\nbegin\r\n\r\nend;\r\n\r\nconstructor TTMSFNCGeocodingHereGeocoding.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCGeocodingHereGeocoding.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingHereGeocoding.DestroyGeocoding;\r\nbegin\r\n  GeocodingService.DestroyGeocoding(Self);\r\nend;\r\n\r\nfunction TTMSFNCGeocodingHereGeocoding.GetHost: string;\r\nbegin\r\n  Result := 'https://geocode.search.hereapi.com';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingHereGeocoding.GetReverseHost: string;\r\nbegin\r\n  Result := 'https://revgeocode.search.hereapi.com';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingHereGeocoding.GetIdentifier: string;\r\nbegin\r\n  Result := 'Here';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingHereGeocoding.GetPath(AAddress: string): string;\r\nbegin\r\n  Result := '/v1/geocode';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingHereGeocoding.GetReversePath(ACoordinate: TTMSFNCMapsCoordinateRec): string;\r\nbegin\r\n  Result := '/v1/revgeocode';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingHereGeocoding.GetPostData: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingHereGeocoding.GetQuery(\r\n  ACoordinate: TTMSFNCMapsCoordinateRec; ALocale: string): string;\r\nbegin\r\n  Result := 'apiKey=' + GeocodingProperties.GetAPIKey\r\n    + '&at=' + TTMSFNCUtils.FloatToStrDot(ACoordinate.Latitude) + ',' + TTMSFNCUtils.FloatToStrDot(ACoordinate.Longitude);\r\n    ;\r\n\r\n  if ALocale <> '' then\r\n    Result := Result + '&lang=' + ALocale;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingHereGeocoding.GetQuery(AAddress: string; ALocale: string): string;\r\nbegin\r\n  Result := 'apiKey=' + GeocodingProperties.GetAPIKey\r\n    + '&q=' + AAddress\r\n    ;\r\n\r\n  if ALocale <> '' then\r\n    Result := Result + '&lang=' + ALocale;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingHereGeocoding.GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\nbegin\r\n  Result := rmGet;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingHereGeocoding.IsValid: Boolean;\r\nbegin\r\n  Result := GeocodingProperties.GetAPIKey <> '';\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingHereGeocoding.Parse(ARequest: TTMSFNCGeocodingRequest; ARequestResult: string);\r\nvar\r\n  d: TTMSFNCGeocodingItems;\r\n  di: TTMSFNCGeocodingItem;\r\n\r\n  o, jo: TJSONValue;\r\n  jar: TJSONArray;\r\n  i: Integer;\r\n  oc: TJSONObject;\r\n  street, number: string;\r\nbegin\r\n  if Assigned(GeocodingProperties) then\r\n  begin\r\n    d := ARequest.Items;\r\n    if Assigned(d) then\r\n    begin\r\n      if ARequestResult <> '' then\r\n      begin\r\n        o := TTMSFNCUtils.ParseJSON(ARequestResult);\r\n        if Assigned(o) then\r\n        begin\r\n          try\r\n            ARequest.Status := TTMSFNCUtils.GetJSONProp(o, 'error');\r\n            ARequest.ErrorMessage := TTMSFNCUtils.GetJSONProp(o, 'error_description');\r\n\r\n            if ARequest.Status = '' then\r\n              ARequest.Status := TTMSFNCUtils.GetJSONProp(o, 'type') + ' ' + TTMSFNCUtils.GetJSONProp(o, 'subtype');\r\n\r\n            if ARequest.ErrorMessage = '' then\r\n              ARequest.ErrorMessage := TTMSFNCUtils.GetJSONProp(o, 'Details');\r\n\r\n            jar := TTMSFNCUtils.GetJSONValue(o, 'items') as TJSONArray;\r\n            if Assigned(jar) then\r\n            begin\r\n              for i := 0 to TTMSFNCUtils.GetJSONArraySize(jar) - 1 do\r\n              begin\r\n                jo := TTMSFNCUtils.GetJSONArrayItem(jar, i);\r\n\r\n                di := d.Add;\r\n\r\n                oc := TTMSFNCUtils.GetJSONValue(jo, 'address') as TJSONObject;\r\n                if Assigned(oc) then\r\n                begin\r\n                  di.Address := TTMSFNCUtils.GetJSONProp(oc, 'label');\r\n                  di.CountryCode := TTMSFNCUtils.GetJSONProp(oc, 'countryCode');\r\n                  di.Country := TTMSFNCUtils.GetJSONProp(oc, 'countryName');\r\n                  di.Province := TTMSFNCUtils.GetJSONProp(oc, 'county');\r\n                  di.District := TTMSFNCUtils.GetJSONProp(oc, 'district');\r\n                  di.Province := TTMSFNCUtils.GetJSONProp(oc, 'county');\r\n                  di.Region := TTMSFNCUtils.GetJSONProp(oc, 'state');\r\n                  di.City := TTMSFNCUtils.GetJSONProp(oc, 'city');\r\n                  di.PostalCode := TTMSFNCUtils.GetJSONProp(oc, 'postalCode');\r\n                  street := TTMSFNCUtils.GetJSONProp(oc, 'street');\r\n                  number := TTMSFNCUtils.GetJSONProp(oc, 'houseNumber');\r\n                  di.Street := Trim(street + ' ' + number);\r\n                  di.StreetName := street;\r\n                  di.StreetNumber := number;\r\n                end;\r\n                oc := TTMSFNCUtils.GetJSONValue(jo, 'position') as TJSONObject;\r\n                if Assigned(oc) then\r\n                begin\r\n                  di.Coordinate.Latitude := TTMSFNCUtils.GetJSONDoubleValue(oc, 'lat');\r\n                  di.Coordinate.Longitude := TTMSFNCUtils.GetJSONDoubleValue(oc, 'lng');\r\n                end;\r\n              end;\r\n            end;\r\n          finally\r\n            o.Free;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2021                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCGeocoding.Bing;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nprocedure RegisterBingGeocodingService;\r\nprocedure UnRegisterBingGeocodingService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCGeocoding,\r\n  WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes, WEBLib.TMSFNCCloudBase\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 26}\r\n  ,JSON\r\n  {$ELSE}\r\n  ,DBXJSON\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  ,fpjson\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web, WEBLIB.JSON\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCGeocodingBingService = class;\r\n\r\n  TTMSFNCGeocodingBingGeocodingFactoryService = class(TTMSFNCGeocodingFactoryService, ITMSFNCGeocodingServiceBing);\r\n\r\n  TTMSFNCGeocodingBingService = class(TTMSFNCGeocodingBingGeocodingFactoryService)\r\n  protected\r\n    function DoCreateGeocoding: ITMSFNCCustomGeocoding; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCGeocodingBingGeocoding = class;\r\n\r\n  TTMSFNCGeocodingBingGeocoding = class(TTMSFNCCustomGeocodingInterfacedObject, ITMSFNCCustomGeocoding)\r\n  protected\r\n    function GetIdentifier: string;\r\n    function IsValid: Boolean;\r\n    function GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\n    function GetHost: string;\r\n    function GetReverseHost: string;\r\n    function GetPath(AAddress: string): string;\r\n    function GetReversePath(ACoordinate: TTMSFNCMapsCoordinateRec): string;\r\n    function GetQuery(AAddress: string; ALocale: string): string; overload;\r\n    function GetQuery(ACoordinate: TTMSFNCMapsCoordinateRec; ALocale: string): string; overload;\r\n    function GetPostData: string;\r\n    procedure Parse(ARequest: TTMSFNCGeocodingRequest; ARequestResult: string);\r\n    procedure AddHeaders(AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\n    procedure DestroyGeocoding;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  GeocodingService: ITMSFNCGeocodingServiceBing;\r\n\r\nprocedure RegisterBingGeocodingService;\r\nbegin\r\n  if not TTMSFNCGeocodingPlatformServices.Current.SupportsPlatformService(ITMSFNCGeocodingServiceBing, IInterface(GeocodingService)) then\r\n  begin\r\n    GeocodingService := TTMSFNCGeocodingBingService.Create;\r\n    TTMSFNCGeocodingPlatformServices.Current.AddPlatformService(ITMSFNCGeocodingServiceBing, GeocodingService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterBingGeocodingService;\r\nbegin\r\n  TTMSFNCGeocodingPlatformServices.Current.RemovePlatformService(ITMSFNCGeocodingServiceBing);\r\nend;\r\n\r\n{ TTMSFNCGeocodingBingService }\r\n\r\nfunction TTMSFNCGeocodingBingService.DoCreateGeocoding: ITMSFNCCustomGeocoding;\r\nbegin\r\n  Result := TTMSFNCGeocodingBingGeocoding.Create;\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingBingGeocoding.AddHeaders(\r\n  AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\nbegin\r\n\r\nend;\r\n\r\nconstructor TTMSFNCGeocodingBingGeocoding.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCGeocodingBingGeocoding.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingBingGeocoding.DestroyGeocoding;\r\nbegin\r\n  GeocodingService.DestroyGeocoding(Self);\r\nend;\r\n\r\nfunction TTMSFNCGeocodingBingGeocoding.GetHost: string;\r\nbegin\r\n  Result := 'https://dev.virtualearth.net';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingBingGeocoding.GetReverseHost: string;\r\nbegin\r\n  Result := GetHost;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingBingGeocoding.GetIdentifier: string;\r\nbegin\r\n  Result := 'Bing';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingBingGeocoding.GetPath(AAddress: string): string;\r\nbegin\r\n  Result := '/REST/v1/Locations';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingBingGeocoding.GetReversePath(\r\n  ACoordinate: TTMSFNCMapsCoordinateRec): string;\r\nbegin\r\n  Result := '/REST/v1/Locations/' + TTMSFNCUtils.FloatToStrDot(ACoordinate.Latitude) + ',' + TTMSFNCUtils.FloatToStrDot(ACoordinate.Longitude);\r\nend;\r\n\r\nfunction TTMSFNCGeocodingBingGeocoding.GetPostData: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingBingGeocoding.GetQuery(\r\n  ACoordinate: TTMSFNCMapsCoordinateRec; ALocale: string): string;\r\nbegin\r\n  Result := 'key=' + GeocodingProperties.GetAPIKey;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingBingGeocoding.GetQuery(AAddress: string; ALocale: string): string;\r\nbegin\r\n  Result := 'key=' + GeocodingProperties.GetAPIKey\r\n    + '&maxResults=1'\r\n    + '&c=' + ALocale\r\n    + '&query=' + AAddress\r\n    ;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingBingGeocoding.GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\nbegin\r\n  Result := rmGet;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingBingGeocoding.IsValid: Boolean;\r\nbegin\r\n  Result := GeocodingProperties.GetAPIKey <> '';\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingBingGeocoding.Parse(ARequest: TTMSFNCGeocodingRequest; ARequestResult: string);\r\nvar\r\n  d: TTMSFNCGeocodingItems;\r\n  di: TTMSFNCGeocodingItem;\r\n\r\n  o, ro, jo: TJSONValue;\r\n  jav, jar, jas: TJSONArray;\r\n  i: Integer;\r\n  oc: TJSONObject;\r\n  position: string;\r\n  sposition: TStringList;\r\nbegin\r\n  if Assigned(GeocodingProperties) then\r\n  begin\r\n    d := ARequest.Items;\r\n    if Assigned(d) then\r\n    begin\r\n      if ARequestResult <> '' then\r\n      begin\r\n        o := TTMSFNCUtils.ParseJSON(ARequestResult);\r\n        if Assigned(o) then\r\n        begin\r\n          try\r\n            ARequest.Status := TTMSFNCUtils.GetJSONProp(o, 'statusCode');\r\n            ARequest.ErrorMessage := TTMSFNCUtils.GetJSONProp(o, 'statusDescription');\r\n\r\n            jav := TTMSFNCUtils.GetJSONValue(o, 'resourceSets') as TJSONArray;\r\n            if Assigned(jav) then\r\n            begin\r\n\r\n              ro := TTMSFNCUtils.GetJSONArrayItem(jav, 0);\r\n\r\n              jar := TTMSFNCUtils.GetJSONValue(ro, 'resources') as TJSONArray;\r\n              if Assigned(jar) then\r\n              begin\r\n                for i := 0 to TTMSFNCUtils.GetJSONArraySize(jar) - 1 do\r\n                begin\r\n                  di := d.Add;\r\n                  jo := TTMSFNCUtils.GetJSONArrayItem(jar, i);\r\n\r\n                  di.Address := TTMSFNCUtils.GetJSONProp(jo, 'name');\r\n                  oc := TTMSFNCUtils.GetJSONValue(jo, 'address') as TJSONObject;\r\n                  if Assigned(oc) then\r\n                  begin\r\n                    di.Street := TTMSFNCUtils.GetJSONProp(oc, 'addressLine');\r\n                    di.City := TTMSFNCUtils.GetJSONProp(oc, 'locality');\r\n                    di.PostalCode := TTMSFNCUtils.GetJSONProp(oc, 'postalCode');\r\n                    di.Province := TTMSFNCUtils.GetJSONProp(oc, 'adminDistrict');\r\n                    di.ProvinceCode := TTMSFNCUtils.GetJSONProp(oc, 'adminDistrict');\r\n                    di.Region := TTMSFNCUtils.GetJSONProp(oc, 'adminDistrict2');\r\n                    di.Country := TTMSFNCUtils.GetJSONProp(oc, 'countryRegion');\r\n                  end;\r\n\r\n                  oc := TTMSFNCUtils.GetJSONValue(jo, 'point') as TJSONObject;\r\n                  if Assigned(oc) then\r\n                  begin\r\n                    jas := TTMSFNCUtils.GetJSONValue(oc, 'coordinates') as TJSONArray;\r\n                    if Assigned(jas) then\r\n                    begin\r\n                        sposition := TStringList.Create;\r\n                        position := StringReplace(jas.ToString, '[', '', [rfReplaceAll]);\r\n                        position := StringReplace(position, ']', '', [rfReplaceAll]);\r\n                        TTMSFNCUtils.Split(',', position, sposition);\r\n                        if sposition.Count > 1 then\r\n                        begin\r\n                          di.Coordinate.Latitude := TTMSFNCUtils.StrToFloatDot(sposition[0]);\r\n                          di.Coordinate.Longitude := TTMSFNCUtils.StrToFloatDot(sposition[1]);\r\n                        end;\r\n                        sposition.Free;\r\n                      end;\r\n                  end;\r\n                end;\r\n              end;\r\n            end;\r\n          finally\r\n            o.Free;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2021                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCGeocoding.Azure;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nprocedure RegisterAzureGeocodingService;\r\nprocedure UnRegisterAzureGeocodingService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCGeocoding,\r\n  WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes, WEBLib.TMSFNCCloudBase\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 26}\r\n  ,JSON\r\n  {$ELSE}\r\n  ,DBXJSON\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  ,fpjson\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web, WEBLIB.JSON\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCGeocodingAzureService = class;\r\n\r\n  TTMSFNCGeocodingAzureGeocodingFactoryService = class(TTMSFNCGeocodingFactoryService, ITMSFNCGeocodingServiceAzure);\r\n\r\n  TTMSFNCGeocodingAzureService = class(TTMSFNCGeocodingAzureGeocodingFactoryService)\r\n  protected\r\n    function DoCreateGeocoding: ITMSFNCCustomGeocoding; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCGeocodingAzureGeocoding = class;\r\n\r\n  TTMSFNCGeocodingAzureGeocoding = class(TTMSFNCCustomGeocodingInterfacedObject, ITMSFNCCustomGeocoding)\r\n  protected\r\n    function GetIdentifier: string;\r\n    function IsValid: Boolean;\r\n    function GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\n    function GetHost: string;\r\n    function GetReverseHost: string;\r\n    function GetPath(AAddress: string): string;\r\n    function GetReversePath(ACoordinate: TTMSFNCMapsCoordinateRec): string;\r\n    function GetQuery(AAddress: string; ALocale: string): string; overload;\r\n    function GetQuery(ACoordinate: TTMSFNCMapsCoordinateRec; ALocale: string): string; overload;\r\n    function GetPostData: string;\r\n    procedure Parse(ARequest: TTMSFNCGeocodingRequest; ARequestResult: string);\r\n    procedure AddHeaders(AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\n    procedure DestroyGeocoding;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  GeocodingService: ITMSFNCGeocodingServiceAzure;\r\n\r\nprocedure RegisterAzureGeocodingService;\r\nbegin\r\n  if not TTMSFNCGeocodingPlatformServices.Current.SupportsPlatformService(ITMSFNCGeocodingServiceAzure, IInterface(GeocodingService)) then\r\n  begin\r\n    GeocodingService := TTMSFNCGeocodingAzureService.Create;\r\n    TTMSFNCGeocodingPlatformServices.Current.AddPlatformService(ITMSFNCGeocodingServiceAzure, GeocodingService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterAzureGeocodingService;\r\nbegin\r\n  TTMSFNCGeocodingPlatformServices.Current.RemovePlatformService(ITMSFNCGeocodingServiceAzure);\r\nend;\r\n\r\n{ TTMSFNCGeocodingAzureService }\r\n\r\nfunction TTMSFNCGeocodingAzureService.DoCreateGeocoding: ITMSFNCCustomGeocoding;\r\nbegin\r\n  Result := TTMSFNCGeocodingAzureGeocoding.Create;\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingAzureGeocoding.AddHeaders(\r\n  AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\nbegin\r\n\r\nend;\r\n\r\nconstructor TTMSFNCGeocodingAzureGeocoding.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCGeocodingAzureGeocoding.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingAzureGeocoding.DestroyGeocoding;\r\nbegin\r\n  GeocodingService.DestroyGeocoding(Self);\r\nend;\r\n\r\nfunction TTMSFNCGeocodingAzureGeocoding.GetHost: string;\r\nbegin\r\n  Result := 'https://atlas.microsoft.com';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingAzureGeocoding.GetReverseHost: string;\r\nbegin\r\n  Result := GetHost;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingAzureGeocoding.GetIdentifier: string;\r\nbegin\r\n  Result := 'Azure';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingAzureGeocoding.GetPath(AAddress: string): string;\r\nbegin\r\n  Result := '/search/address/json';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingAzureGeocoding.GetReversePath(ACoordinate: TTMSFNCMapsCoordinateRec): string;\r\nbegin\r\n  Result := '/search/address/reverse/json';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingAzureGeocoding.GetPostData: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingAzureGeocoding.GetQuery(\r\n  ACoordinate: TTMSFNCMapsCoordinateRec; ALocale: string): string;\r\nbegin\r\n  Result := GetQuery(TTMSFNCUtils.FloatToStrDot(ACoordinate.Latitude) + ',' + TTMSFNCUtils.FloatToStrDot(ACoordinate.Longitude), ALocale);\r\nend;\r\n\r\nfunction TTMSFNCGeocodingAzureGeocoding.GetQuery(AAddress: string; ALocale: string): string;\r\nbegin\r\n  Result := 'subscription-key=' + GeocodingProperties.GetAPIKey\r\n    + '&api-version=1'\r\n    + '&limit=1'\r\n    + '&language=' + ALocale\r\n    + '&query=' + AAddress\r\n    ;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingAzureGeocoding.GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\nbegin\r\n  Result := rmGet;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingAzureGeocoding.IsValid: Boolean;\r\nbegin\r\n  Result := GeocodingProperties.GetAPIKey <> '';\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingAzureGeocoding.Parse(ARequest: TTMSFNCGeocodingRequest; ARequestResult: string);\r\nvar\r\n  d: TTMSFNCGeocodingItems;\r\n  di: TTMSFNCGeocodingItem;\r\n\r\n  o, jo: TJSONValue;\r\n  jav: TJSONArray;\r\n  i: Integer;\r\n  oc, op: TJSONObject;\r\n  isReverse: Boolean;\r\n  position, street, number: string;\r\n  sposition: TStringList;\r\nbegin\r\n  if Assigned(GeocodingProperties) then\r\n  begin\r\n    d := ARequest.Items;\r\n    if Assigned(d) then\r\n    begin\r\n      if ARequestResult <> '' then\r\n      begin\r\n        o := TTMSFNCUtils.ParseJSON(ARequestResult);\r\n        if Assigned(o) then\r\n        begin\r\n          try\r\n            oc := TTMSFNCUtils.GetJSONValue(o, 'error') as TJSONObject;\r\n            if Assigned(oc) then\r\n            begin\r\n              ARequest.Status := TTMSFNCUtils.GetJSONProp(oc, 'code');\r\n              ARequest.ErrorMessage := TTMSFNCUtils.GetJSONProp(oc, 'message');\r\n            end;\r\n\r\n            //geocoding\r\n            jav := TTMSFNCUtils.GetJSONValue(o, 'results') as TJSONArray;\r\n            isReverse := False;\r\n\r\n            //reversegeocoding\r\n            if not Assigned(jav) then\r\n            begin\r\n              jav := TTMSFNCUtils.GetJSONValue(o, 'addresses') as TJSONArray;\r\n              isReverse := True;\r\n            end;\r\n\r\n            if Assigned(jav) then\r\n            begin\r\n              for i := 0 to TTMSFNCUtils.GetJSONArraySize(jav) - 1 do\r\n              begin\r\n                di := d.Add;\r\n                jo := TTMSFNCUtils.GetJSONArrayItem(jav, i);\r\n\r\n                oc := TTMSFNCUtils.GetJSONValue(jo, 'address') as TJSONObject;\r\n                if Assigned(oc) then\r\n                begin\r\n                  di.Address := TTMSFNCUtils.GetJSONProp(oc, 'freeformAddress');\r\n                  di.City := TTMSFNCUtils.GetJSONProp(oc, 'municipality');\r\n                  di.Country := TTMSFNCUtils.GetJSONProp(oc, 'country');\r\n                  di.CountryCode := TTMSFNCUtils.GetJSONProp(oc, 'countryCode');\r\n                  di.Region := TTMSFNCUtils.GetJSONProp(oc, 'countrySecondarySubdivision');\r\n                  di.Province := TTMSFNCUtils.GetJSONProp(oc, 'countrySubdivision');\r\n\r\n                  street := TTMSFNCUtils.GetJSONProp(oc, 'streetName');\r\n                  number := TTMSFNCUtils.GetJSONProp(oc, 'streetNumber');\r\n                  di.Street := Trim(street + ' ' + number);\r\n                  di.StreetName := street;\r\n                  di.StreetNumber := number;\r\n\r\n                  di.PostalCode := TTMSFNCUtils.GetJSONProp(oc, 'postalCode');\r\n                end;\r\n\r\n                if not isReverse then\r\n                begin\r\n                  op := TTMSFNCUtils.GetJSONValue(jo, 'position') as TJSONObject;\r\n                  if Assigned(op) then\r\n                  begin\r\n                    di.Coordinate.Latitude := TTMSFNCUtils.GetJSONDoubleValue(op, 'lat');\r\n                    di.Coordinate.Longitude := TTMSFNCUtils.GetJSONDoubleValue(op, 'lon');\r\n                  end;\r\n                end\r\n                else\r\n                begin\r\n                  position := TTMSFNCUtils.GetJSONProp(jo, 'position');\r\n                  if position <> '' then\r\n                  begin\r\n                    sposition := TStringList.Create;\r\n                    TTMSFNCUtils.Split(',', position, sposition);\r\n                    if sposition.Count > 1 then\r\n                    begin\r\n                      di.Coordinate.Latitude := TTMSFNCUtils.StrToFloatDot(sposition[0]);\r\n                      di.Coordinate.Longitude := TTMSFNCUtils.StrToFloatDot(sposition[1]);\r\n                    end;\r\n                    sposition.Free;\r\n                  end;\r\n                end;\r\n              end;\r\n            end;\r\n          finally\r\n            o.Free;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCGeocoding.MapBox;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nprocedure RegisterMapBoxGeocodingService;\r\nprocedure UnRegisterMapBoxGeocodingService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCGeocoding,\r\n  WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes, WEBLib.TMSFNCCloudBase\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 26}\r\n  ,JSON\r\n  {$ELSE}\r\n  ,DBXJSON\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  ,fpjson\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web, WEBLIB.JSON\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCGeocodingMapBoxService = class;\r\n\r\n  TTMSFNCGeocodingMapBoxGeocodingFactoryService = class(TTMSFNCGeocodingFactoryService, ITMSFNCGeocodingServiceMapBox);\r\n\r\n  TTMSFNCGeocodingMapBoxService = class(TTMSFNCGeocodingMapBoxGeocodingFactoryService)\r\n  protected\r\n    function DoCreateGeocoding: ITMSFNCCustomGeocoding; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCGeocodingMapBoxGeocoding = class;\r\n\r\n  TTMSFNCGeocodingMapBoxGeocoding = class(TTMSFNCCustomGeocodingInterfacedObject, ITMSFNCCustomGeocoding)\r\n  protected\r\n    function GetIdentifier: string;\r\n    function IsValid: Boolean;\r\n    function GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\n    function GetHost: string;\r\n    function GetReverseHost: string;\r\n    function GetPath(AAddress: string): string;\r\n    function GetReversePath(ACoordinate: TTMSFNCMapsCoordinateRec): string;\r\n    function GetQuery(AAddress: string; ALocale: string): string; overload;\r\n    function GetQuery(ACoordinate: TTMSFNCMapsCoordinateRec; ALocale: string): string; overload;\r\n    function GetPostData: string;\r\n    procedure Parse(ARequest: TTMSFNCGeocodingRequest; ARequestResult: string);\r\n    procedure AddHeaders(AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\n    procedure DestroyGeocoding;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  GeocodingService: ITMSFNCGeocodingServiceMapBox;\r\n\r\nprocedure RegisterMapBoxGeocodingService;\r\nbegin\r\n  if not TTMSFNCGeocodingPlatformServices.Current.SupportsPlatformService(ITMSFNCGeocodingServiceMapBox, IInterface(GeocodingService)) then\r\n  begin\r\n    GeocodingService := TTMSFNCGeocodingMapBoxService.Create;\r\n    TTMSFNCGeocodingPlatformServices.Current.AddPlatformService(ITMSFNCGeocodingServiceMapBox, GeocodingService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterMapBoxGeocodingService;\r\nbegin\r\n  TTMSFNCGeocodingPlatformServices.Current.RemovePlatformService(ITMSFNCGeocodingServiceMapBox);\r\nend;\r\n\r\n{ TTMSFNCGeocodingMapBoxService }\r\n\r\nfunction TTMSFNCGeocodingMapBoxService.DoCreateGeocoding: ITMSFNCCustomGeocoding;\r\nbegin\r\n  Result := TTMSFNCGeocodingMapBoxGeocoding.Create;\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingMapBoxGeocoding.AddHeaders(\r\n  AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\nbegin\r\n\r\nend;\r\n\r\nconstructor TTMSFNCGeocodingMapBoxGeocoding.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCGeocodingMapBoxGeocoding.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingMapBoxGeocoding.DestroyGeocoding;\r\nbegin\r\n  GeocodingService.DestroyGeocoding(Self);\r\nend;\r\n\r\nfunction TTMSFNCGeocodingMapBoxGeocoding.GetHost: string;\r\nbegin\r\n  Result := 'https://api.mapbox.com';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingMapBoxGeocoding.GetReverseHost: string;\r\nbegin\r\n  Result := GetHost;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingMapBoxGeocoding.GetIdentifier: string;\r\nbegin\r\n  Result := 'MapBox';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingMapBoxGeocoding.GetPath(AAddress: string): string;\r\nbegin\r\n  Result := '/geocoding/v5/mapbox.places/' + AAddress + '.json';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingMapBoxGeocoding.GetReversePath(\r\n  ACoordinate: TTMSFNCMapsCoordinateRec): string;\r\nbegin\r\n  Result := GetPath(TTMSFNCUtils.FloatToStrDot(ACoordinate.Longitude) + ',' + TTMSFNCUtils.FloatToStrDot(ACoordinate.Latitude));\r\nend;\r\n\r\nfunction TTMSFNCGeocodingMapBoxGeocoding.GetPostData: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingMapBoxGeocoding.GetQuery(\r\n  ACoordinate: TTMSFNCMapsCoordinateRec; ALocale: string): string;\r\nbegin\r\n  Result := GetQuery('', ALocale);\r\nend;\r\n\r\nfunction TTMSFNCGeocodingMapBoxGeocoding.GetQuery(AAddress: string; ALocale: string): string;\r\nbegin\r\n  Result := 'access_token=' + GeocodingProperties.GetAPIKey\r\n  + '&language=' + ALocale\r\n  ;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingMapBoxGeocoding.GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\nbegin\r\n  Result := rmGet;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingMapBoxGeocoding.IsValid: Boolean;\r\nbegin\r\n  Result := GeocodingProperties.GetAPIKey <> '';\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingMapBoxGeocoding.Parse(ARequest: TTMSFNCGeocodingRequest; ARequestResult: string);\r\nvar\r\n  d: TTMSFNCGeocodingItems;\r\n  di: TTMSFNCGeocodingItem;\r\n\r\n  o, jo, oa: TJSONValue;\r\n  jav, jas, jaa: TJSONArray;\r\n  i, j: Integer;\r\n  position, cid: string;\r\n  sposition: TStringList;\r\nbegin\r\n  if Assigned(GeocodingProperties) then\r\n  begin\r\n    d := ARequest.Items;\r\n    if Assigned(d) then\r\n    begin\r\n      if ARequestResult <> '' then\r\n      begin\r\n        o := TTMSFNCUtils.ParseJSON(ARequestResult);\r\n        if Assigned(o) then\r\n        begin\r\n          try\r\n            ARequest.Status := TTMSFNCUtils.GetJSONProp(o, 'message');\r\n            ARequest.ErrorMessage := ARequest.Status;\r\n\r\n            jav := TTMSFNCUtils.GetJSONValue(o, 'features') as TJSONArray;\r\n            if Assigned(jav) then\r\n            begin\r\n              for i := 0 to TTMSFNCUtils.GetJSONArraySize(jav) - 1 do\r\n              begin\r\n                di := d.Add;\r\n                jo := TTMSFNCUtils.GetJSONArrayItem(jav, i);\r\n\r\n                di.Address := TTMSFNCUtils.GetJSONProp(jo, 'place_name');\r\n                di.Street := TTMSFNCUtils.GetJSONProp(jo, 'address');\r\n\r\n                jaa := TTMSFNCUtils.GetJSONValue(jo, 'context') as TJSONArray;\r\n                if Assigned(jaa) then\r\n                begin\r\n                  for j := 0 to TTMSFNCUtils.GetJSONArraySize(jaa) - 1 do\r\n                  begin\r\n                    oa := TTMSFNCUtils.GetJSONArrayItem(jaa, j);\r\n                    cid := TTMSFNCUtils.GetJSONProp(oa, 'id');\r\n\r\n                    if (pos('postcode', cid) > 0) then\r\n                      di.PostalCode := TTMSFNCUtils.GetJSONProp(oa, 'text')\r\n                    else if (pos('place', cid) > 0) then\r\n                      di.City := TTMSFNCUtils.GetJSONProp(oa, 'text')\r\n                    else if (pos('region', cid) > 0) then\r\n                      di.Region := TTMSFNCUtils.GetJSONProp(oa, 'text')\r\n                    else if (pos('country', cid) > 0) then\r\n                      di.Country := TTMSFNCUtils.GetJSONProp(oa, 'text')\r\n                    ;\r\n                  end;\r\n                end;\r\n\r\n                jas := TTMSFNCUtils.GetJSONValue(jo, 'center') as TJSONArray;\r\n                if Assigned(jas) then\r\n                begin\r\n                  sposition := TStringList.Create;\r\n                  position := StringReplace(jas.ToString, '[', '', [rfReplaceAll]);\r\n                  position := StringReplace(position, ']', '', [rfReplaceAll]);\r\n                  TTMSFNCUtils.Split(',', position, sposition);\r\n                  if sposition.Count > 1 then\r\n                  begin\r\n                    di.Coordinate.Latitude := TTMSFNCUtils.StrToFloatDot(sposition[1]);\r\n                    di.Coordinate.Longitude := TTMSFNCUtils.StrToFloatDot(sposition[0]);\r\n                  end;\r\n                  sposition.Free;\r\n                end;\r\n              end;\r\n            end;\r\n          finally\r\n            o.Free;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2022                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCGeocoding.TomTom;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nprocedure RegisterTomTomGeocodingService;\r\nprocedure UnRegisterTomTomGeocodingService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCGeocoding,\r\n  WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes, WEBLib.TMSFNCCloudBase\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 26}\r\n  ,JSON\r\n  {$ELSE}\r\n  ,DBXJSON\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  ,fpjson\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web, WEBLIB.JSON\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$ENDIF}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCGeocodingTomTomService = class;\r\n\r\n  TTMSFNCGeocodingTomTomGeocodingFactoryService = class(TTMSFNCGeocodingFactoryService, ITMSFNCGeocodingServiceTomTom);\r\n\r\n  TTMSFNCGeocodingTomTomService = class(TTMSFNCGeocodingTomTomGeocodingFactoryService)\r\n  protected\r\n    function DoCreateGeocoding: ITMSFNCCustomGeocoding; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCGeocodingTomTomGeocoding = class;\r\n\r\n  TTMSFNCGeocodingTomTomGeocoding = class(TTMSFNCCustomGeocodingInterfacedObject, ITMSFNCCustomGeocoding)\r\n  protected\r\n    function GetIdentifier: string;\r\n    function IsValid: Boolean;\r\n    function GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\n    function GetHost: string;\r\n    function GetReverseHost: string;\r\n    function GetPath(AAddress: string): string;\r\n    function GetReversePath(ACoordinate: TTMSFNCMapsCoordinateRec): string;\r\n    function GetQuery(AAddress: string; ALocale: string): string; overload;\r\n    function GetQuery(ACoordinate: TTMSFNCMapsCoordinateRec; ALocale: string): string; overload;\r\n    function GetPostData: string;\r\n    procedure Parse(ARequest: TTMSFNCGeocodingRequest; ARequestResult: string);\r\n    procedure AddHeaders(AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\n    procedure DestroyGeocoding;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  GeocodingService: ITMSFNCGeocodingServiceTomTom;\r\n\r\nprocedure RegisterTomTomGeocodingService;\r\nbegin\r\n  if not TTMSFNCGeocodingPlatformServices.Current.SupportsPlatformService(ITMSFNCGeocodingServiceTomTom, IInterface(GeocodingService)) then\r\n  begin\r\n    GeocodingService := TTMSFNCGeocodingTomTomService.Create;\r\n    TTMSFNCGeocodingPlatformServices.Current.AddPlatformService(ITMSFNCGeocodingServiceTomTom, GeocodingService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterTomTomGeocodingService;\r\nbegin\r\n  TTMSFNCGeocodingPlatformServices.Current.RemovePlatformService(ITMSFNCGeocodingServiceTomTom);\r\nend;\r\n\r\n{ TTMSFNCGeocodingTomTomService }\r\n\r\nfunction TTMSFNCGeocodingTomTomService.DoCreateGeocoding: ITMSFNCCustomGeocoding;\r\nbegin\r\n  Result := TTMSFNCGeocodingTomTomGeocoding.Create;\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingTomTomGeocoding.AddHeaders(\r\n  AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\nbegin\r\n\r\nend;\r\n\r\nconstructor TTMSFNCGeocodingTomTomGeocoding.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCGeocodingTomTomGeocoding.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingTomTomGeocoding.DestroyGeocoding;\r\nbegin\r\n  GeocodingService.DestroyGeocoding(Self);\r\nend;\r\n\r\nfunction TTMSFNCGeocodingTomTomGeocoding.GetHost: string;\r\nbegin\r\n  Result := 'https://api.tomtom.com';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingTomTomGeocoding.GetReverseHost: string;\r\nbegin\r\n  Result := GetHost;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingTomTomGeocoding.GetIdentifier: string;\r\nbegin\r\n  Result := 'TomTom';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingTomTomGeocoding.GetPath(AAddress: string): string;\r\nbegin\r\n  Result := '/search/2/geocode/' + AAddress + '.json';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingTomTomGeocoding.GetReversePath(\r\n  ACoordinate: TTMSFNCMapsCoordinateRec): string;\r\nbegin\r\n  Result :=  '/search/2/reverseGeocode/' + (TTMSFNCUtils.FloatToStrDot(ACoordinate.Latitude) + ',' + TTMSFNCUtils.FloatToStrDot(ACoordinate.Longitude)) + '.json';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingTomTomGeocoding.GetPostData: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingTomTomGeocoding.GetQuery(\r\n  ACoordinate: TTMSFNCMapsCoordinateRec; ALocale: string): string;\r\nbegin\r\n  Result := GetQuery('', ALocale);\r\nend;\r\n\r\nfunction TTMSFNCGeocodingTomTomGeocoding.GetQuery(AAddress: string; ALocale: string): string;\r\nbegin\r\n  Result := 'key=' + GeocodingProperties.GetAPIKey;\r\n\r\n  if ALocale <> '' then\r\n    Result := Result + '&language=' + ALocale;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingTomTomGeocoding.GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\nbegin\r\n  Result := rmGet;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingTomTomGeocoding.IsValid: Boolean;\r\nbegin\r\n  Result := GeocodingProperties.GetAPIKey <> '';\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingTomTomGeocoding.Parse(ARequest: TTMSFNCGeocodingRequest; ARequestResult: string);\r\nvar\r\n  d: TTMSFNCGeocodingItems;\r\n  di: TTMSFNCGeocodingItem;\r\n\r\n  o, jo: TJSONValue;\r\n  jav: TJSONArray;\r\n  i: Integer;\r\n  oc, op: TJSONObject;\r\n  isReverse: Boolean;\r\n  position: string;\r\n  sposition: TStringList;\r\nbegin\r\n  if Assigned(GeocodingProperties) then\r\n  begin\r\n    d := ARequest.Items;\r\n    if Assigned(d) then\r\n    begin\r\n      if ARequestResult <> '' then\r\n      begin\r\n        o := TTMSFNCUtils.ParseJSON(ARequestResult);\r\n        if Assigned(o) then\r\n        begin\r\n          try\r\n            ARequest.Status := TTMSFNCUtils.GetJSONProp(o, 'httpStatusCode');\r\n            ARequest.ErrorMessage := TTMSFNCUtils.GetJSONProp(o, 'errorText');\r\n\r\n            //geocoding\r\n            jav := TTMSFNCUtils.GetJSONValue(o, 'results') as TJSONArray;\r\n            isReverse := False;\r\n\r\n            //reversegeocoding\r\n            if not Assigned(jav) then\r\n            begin\r\n              jav := TTMSFNCUtils.GetJSONValue(o, 'addresses') as TJSONArray;\r\n              isReverse := True;\r\n            end;\r\n\r\n            if Assigned(jav) then\r\n            begin\r\n              for i := 0 to TTMSFNCUtils.GetJSONArraySize(jav) - 1 do\r\n              begin\r\n                di := d.Add;\r\n                jo := TTMSFNCUtils.GetJSONArrayItem(jav, i);\r\n\r\n                oc := TTMSFNCUtils.GetJSONValue(jo, 'address') as TJSONObject;\r\n                if Assigned(oc) then\r\n                begin\r\n                  di.Address := TTMSFNCUtils.GetJSONProp(oc, 'freeformAddress');\r\n                  di.City := TTMSFNCUtils.GetJSONProp(oc, 'municipality');\r\n                  di.Country := TTMSFNCUtils.GetJSONProp(oc, 'country');\r\n                  di.CountryCode := TTMSFNCUtils.GetJSONProp(oc, 'countryCode');\r\n                  di.Region := TTMSFNCUtils.GetJSONProp(oc, 'countrySecondarySubdivision');\r\n                  di.Province := TTMSFNCUtils.GetJSONProp(oc, 'countrySubdivision');\r\n                  di.Street := TTMSFNCUtils.GetJSONProp(oc, 'streetName') + ' ' + TTMSFNCUtils.GetJSONProp(oc, 'streetNumber');\r\n                  di.PostalCode := TTMSFNCUtils.GetJSONProp(oc, 'postalCode');\r\n                end;\r\n\r\n                if not isReverse then\r\n                begin\r\n                  op := TTMSFNCUtils.GetJSONValue(jo, 'position') as TJSONObject;\r\n                  if Assigned(op) then\r\n                  begin\r\n                    di.Coordinate.Latitude := TTMSFNCUtils.GetJSONDoubleValue(op, 'lat');\r\n                    di.Coordinate.Longitude := TTMSFNCUtils.GetJSONDoubleValue(op, 'lon');\r\n                  end;\r\n                end\r\n                else\r\n                begin\r\n                  position := TTMSFNCUtils.GetJSONProp(jo, 'position');\r\n                  if position <> '' then\r\n                  begin\r\n                    sposition := TStringList.Create;\r\n                    TTMSFNCUtils.Split(',', position, sposition);\r\n                    if sposition.Count > 1 then\r\n                    begin\r\n                      di.Coordinate.Latitude := TTMSFNCUtils.StrToFloatDot(sposition[0]);\r\n                      di.Coordinate.Longitude := TTMSFNCUtils.StrToFloatDot(sposition[1]);\r\n                    end;\r\n                    sposition.Free;\r\n                  end;\r\n                end;\r\n              end;\r\n            end;\r\n          finally\r\n            o.Free;\r\n          end;\r\n        end\r\n        else\r\n        begin\r\n          //error\r\n          ARequest.Status := ARequestResult;\r\n          ARequest.ErrorMessage := ARequest.Status;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2021 - 2023                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCGeocoding.OpenStreetMap;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nprocedure RegisterOpenStreetMapGeocodingService;\r\nprocedure UnRegisterOpenStreetMapGeocodingService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCGeocoding,\r\n  WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes, WEBLib.TMSFNCCloudBase\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 26}\r\n  ,JSON\r\n  {$ELSE}\r\n  ,DBXJSON\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  ,fpjson\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web, WEBLIB.JSON\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCGeocodingOpenStreetMapService = class;\r\n\r\n  TTMSFNCGeocodingOpenStreetMapGeocodingFactoryService = class(TTMSFNCGeocodingFactoryService, ITMSFNCGeocodingServiceOpenStreetMap);\r\n\r\n  TTMSFNCGeocodingOpenStreetMapService = class(TTMSFNCGeocodingOpenStreetMapGeocodingFactoryService)\r\n  protected\r\n    function DoCreateGeocoding: ITMSFNCCustomGeocoding; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCGeocodingOpenStreetMapGeocoding = class;\r\n\r\n  TTMSFNCGeocodingOpenStreetMapGeocoding = class(TTMSFNCCustomGeocodingInterfacedObject, ITMSFNCCustomGeocoding)\r\n  protected\r\n    function GetIdentifier: string;\r\n    function IsValid: Boolean;\r\n    function GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\n    function GetHost: string;\r\n    function GetReverseHost: string;\r\n    function GetPath(AAddress: string): string;\r\n    function GetReversePath(ACoordinate: TTMSFNCMapsCoordinateRec): string;\r\n    function GetQuery(AAddress: string; ALocale: string): string; overload;\r\n    function GetQuery(ACoordinate: TTMSFNCMapsCoordinateRec; ALocale: string): string; overload;\r\n    function GetPostData: string;\r\n    procedure Parse(ARequest: TTMSFNCGeocodingRequest; ARequestResult: string);\r\n    procedure AddHeaders(AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\n    procedure DestroyGeocoding;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  GeocodingService: ITMSFNCGeocodingServiceOpenStreetMap;\r\n\r\nprocedure RegisterOpenStreetMapGeocodingService;\r\nbegin\r\n  if not TTMSFNCGeocodingPlatformServices.Current.SupportsPlatformService(ITMSFNCGeocodingServiceOpenStreetMap, IInterface(GeocodingService)) then\r\n  begin\r\n    GeocodingService := TTMSFNCGeocodingOpenStreetMapService.Create;\r\n    TTMSFNCGeocodingPlatformServices.Current.AddPlatformService(ITMSFNCGeocodingServiceOpenStreetMap, GeocodingService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterOpenStreetMapGeocodingService;\r\nbegin\r\n  TTMSFNCGeocodingPlatformServices.Current.RemovePlatformService(ITMSFNCGeocodingServiceOpenStreetMap);\r\nend;\r\n\r\n{ TTMSFNCGeocodingOpenStreetMapService }\r\n\r\nfunction TTMSFNCGeocodingOpenStreetMapService.DoCreateGeocoding: ITMSFNCCustomGeocoding;\r\nbegin\r\n  Result := TTMSFNCGeocodingOpenStreetMapGeocoding.Create;\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingOpenStreetMapGeocoding.AddHeaders(\r\n  AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\nbegin\r\n\r\nend;\r\n\r\nconstructor TTMSFNCGeocodingOpenStreetMapGeocoding.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCGeocodingOpenStreetMapGeocoding.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingOpenStreetMapGeocoding.DestroyGeocoding;\r\nbegin\r\n  GeocodingService.DestroyGeocoding(Self);\r\nend;\r\n\r\nfunction TTMSFNCGeocodingOpenStreetMapGeocoding.GetHost: string;\r\nbegin\r\n  Result := 'https://nominatim.openstreetmap.org';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingOpenStreetMapGeocoding.GetReverseHost: string;\r\nbegin\r\n  Result := GetHost;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingOpenStreetMapGeocoding.GetIdentifier: string;\r\nbegin\r\n  Result := 'OpenStreetMap';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingOpenStreetMapGeocoding.GetPath(AAddress: string): string;\r\nbegin\r\n  Result := '/search';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingOpenStreetMapGeocoding.GetReversePath(ACoordinate: TTMSFNCMapsCoordinateRec): string;\r\nbegin\r\n  Result := '/reverse';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingOpenStreetMapGeocoding.GetPostData: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingOpenStreetMapGeocoding.GetQuery(\r\n  ACoordinate: TTMSFNCMapsCoordinateRec; ALocale: string): string;\r\nbegin\r\n  Result := 'lat=' + TTMSFNCUtils.FloatToStrDot(ACoordinate.Latitude)\r\n    + '&lon=' + TTMSFNCUtils.FloatToStrDot(ACoordinate.Longitude)\r\n    + '&accept-language=' + Alocale\r\n    + '&format=jsonv2';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingOpenStreetMapGeocoding.GetQuery(AAddress: string; ALocale: string): string;\r\nbegin\r\n  Result := 'q=' + AAddress\r\n    + '&addressdetails=1'\r\n    + '&accept-language=' + Alocale\r\n    + '&format=jsonv2';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingOpenStreetMapGeocoding.GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\nbegin\r\n  Result := rmGet;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingOpenStreetMapGeocoding.IsValid: Boolean;\r\nbegin\r\n  Result := True;\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingOpenStreetMapGeocoding.Parse(ARequest: TTMSFNCGeocodingRequest; ARequestResult: string);\r\nvar\r\n  d: TTMSFNCGeocodingItems;\r\n  di: TTMSFNCGeocodingItem;\r\n\r\n  o, jo: TJSONValue;\r\n  jar: TJSONArray;\r\n  i: Integer;\r\n  oc: TJSONObject;\r\n  error: string;\r\n\r\n  procedure ParseGeocodingItem(Items: TTMSFNCGeocodingItems; JSON: TJSONValue);\r\n  var\r\n    street, number: string;\r\n  begin\r\n    di := Items.Add;\r\n    di.Address := TTMSFNCUtils.GetJSONProp(JSON, 'display_name');\r\n    di.Coordinate.Latitude := TTMSFNCUtils.StrToFloatDot(TTMSFNCUtils.GetJSONProp(JSON, 'lat'));\r\n    di.Coordinate.Longitude := TTMSFNCUtils.StrToFloatDot(TTMSFNCUtils.GetJSONProp(JSON, 'lon'));\r\n\r\n    oc := TTMSFNCUtils.GetJSONValue(JSON, 'address') as TJSONObject;\r\n    if Assigned(oc) then\r\n    begin\r\n\r\n      street := TTMSFNCUtils.GetJSONProp(oc, 'road');\r\n      if street = '' then\r\n        street := TTMSFNCUtils.GetJSONProp(oc, 'locality');\r\n      number := TTMSFNCUtils.GetJSONProp(oc, 'house_number');\r\n\r\n      di.Street := Trim(street + number);\r\n      di.StreetNumber := number;\r\n      di.StreetName := street;\r\n\r\n      di.PostalCode := TTMSFNCUtils.GetJSONProp(oc, 'postcode');\r\n      di.City := TTMSFNCUtils.GetJSONProp(oc, 'city');\r\n      if di.City = '' then\r\n      begin\r\n        di.City := TTMSFNCUtils.GetJSONProp(oc, 'city_district');\r\n        if di.City = '' then\r\n          di.City := TTMSFNCUtils.GetJSONProp(oc, 'village');\r\n        if di.City = '' then\r\n          di.City := TTMSFNCUtils.GetJSONProp(oc, 'town');\r\n      end;\r\n      di.Region := TTMSFNCUtils.GetJSONProp(oc, 'region');\r\n      if di.Region = '' then\r\n        di.Region := TTMSFNCUtils.GetJSONProp(oc, 'county');\r\n      di.Province := TTMSFNCUtils.GetJSONProp(oc, 'state');\r\n      di.Country := TTMSFNCUtils.GetJSONProp(oc, 'country');\r\n      di.CountryCode := TTMSFNCUtils.GetJSONProp(oc, 'country_code');\r\n    end;\r\n  end;\r\n\r\nbegin\r\n  if Assigned(GeocodingProperties) then\r\n  begin\r\n    d := ARequest.Items;\r\n\r\n    if Assigned(d) then\r\n    begin\r\n      if ARequestResult <> '' then\r\n      begin\r\n        o := TTMSFNCUtils.ParseJSON(ARequestResult);\r\n        if Assigned(o) then\r\n        begin\r\n          try\r\n            error := TTMSFNCUtils.GetJSONProp(o, 'error');\r\n            if error <> '' then\r\n            begin\r\n              ARequest.Status := 'error';\r\n              ARequest.ErrorMessage := error;\r\n            end\r\n            else\r\n            begin\r\n              if o is TJSONArray then\r\n              begin\r\n                jar := o as TJSONArray;\r\n                if Assigned(jar) then\r\n                begin\r\n                  for i := 0 to TTMSFNCUtils.GetJSONArraySize(jar) - 1 do\r\n                  begin\r\n                    jo := TTMSFNCUtils.GetJSONArrayItem(jar, i);\r\n                    ParseGeocodingItem(d, jo);\r\n                  end;\r\n                end\r\n              end\r\n              else\r\n              begin\r\n                ParseGeocodingItem(d, o);\r\n              end;\r\n            end;\r\n          finally\r\n            o.Free;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2021                                      }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCGeocoding.OpenRouteService;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nprocedure RegisterOpenRouteServiceGeocodingService;\r\nprocedure UnRegisterOpenRouteServiceGeocodingService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCGeocoding,\r\n  WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes, WEBLib.TMSFNCCloudBase\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 26}\r\n  ,JSON\r\n  {$ELSE}\r\n  ,DBXJSON\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  ,fpjson\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web, WEBLIB.JSON\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCGeocodingOpenRouteServiceService = class;\r\n\r\n  TTMSFNCGeocodingOpenRouteServiceGeocodingFactoryService = class(TTMSFNCGeocodingFactoryService, ITMSFNCGeocodingServiceOpenRouteService);\r\n\r\n  TTMSFNCGeocodingOpenRouteServiceService = class(TTMSFNCGeocodingOpenRouteServiceGeocodingFactoryService)\r\n  protected\r\n    function DoCreateGeocoding: ITMSFNCCustomGeocoding; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCGeocodingOpenRouteServiceGeocoding = class;\r\n\r\n  TTMSFNCGeocodingOpenRouteServiceGeocoding = class(TTMSFNCCustomGeocodingInterfacedObject, ITMSFNCCustomGeocoding)\r\n  protected\r\n    function GetIdentifier: string;\r\n    function IsValid: Boolean;\r\n    function GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\n    function GetHost: string;\r\n    function GetReverseHost: string;\r\n    function GetPath(AAddress: string): string;\r\n    function GetReversePath(ACoordinate: TTMSFNCMapsCoordinateRec): string;\r\n    function GetQuery(AAddress: string; ALocale: string): string; overload;\r\n    function GetQuery(ACoordinate: TTMSFNCMapsCoordinateRec; ALocale: string): string; overload;\r\n    function GetPostData: string;\r\n    procedure Parse(ARequest: TTMSFNCGeocodingRequest; ARequestResult: string);\r\n    procedure AddHeaders(AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\n    procedure DestroyGeocoding;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  GeocodingService: ITMSFNCGeocodingServiceOpenRouteService;\r\n\r\nprocedure RegisterOpenRouteServiceGeocodingService;\r\nbegin\r\n  if not TTMSFNCGeocodingPlatformServices.Current.SupportsPlatformService(ITMSFNCGeocodingServiceOpenRouteService, IInterface(GeocodingService)) then\r\n  begin\r\n    GeocodingService := TTMSFNCGeocodingOpenRouteServiceService.Create;\r\n    TTMSFNCGeocodingPlatformServices.Current.AddPlatformService(ITMSFNCGeocodingServiceOpenRouteService, GeocodingService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterOpenRouteServiceGeocodingService;\r\nbegin\r\n  TTMSFNCGeocodingPlatformServices.Current.RemovePlatformService(ITMSFNCGeocodingServiceOpenRouteService);\r\nend;\r\n\r\n{ TTMSFNCGeocodingOpenRouteServiceService }\r\n\r\nfunction TTMSFNCGeocodingOpenRouteServiceService.DoCreateGeocoding: ITMSFNCCustomGeocoding;\r\nbegin\r\n  Result := TTMSFNCGeocodingOpenRouteServiceGeocoding.Create;\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingOpenRouteServiceGeocoding.AddHeaders(\r\n  AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\nbegin\r\n\r\nend;\r\n\r\nconstructor TTMSFNCGeocodingOpenRouteServiceGeocoding.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCGeocodingOpenRouteServiceGeocoding.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingOpenRouteServiceGeocoding.DestroyGeocoding;\r\nbegin\r\n  GeocodingService.DestroyGeocoding(Self);\r\nend;\r\n\r\nfunction TTMSFNCGeocodingOpenRouteServiceGeocoding.GetHost: string;\r\nbegin\r\n  Result := 'https://api.openrouteservice.org';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingOpenRouteServiceGeocoding.GetReverseHost: string;\r\nbegin\r\n  Result := GetHost;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingOpenRouteServiceGeocoding.GetIdentifier: string;\r\nbegin\r\n  Result := 'OpenRouteService';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingOpenRouteServiceGeocoding.GetPath(AAddress: string): string;\r\nbegin\r\n  Result := '/geocode/search';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingOpenRouteServiceGeocoding.GetReversePath(ACoordinate: TTMSFNCMapsCoordinateRec): string;\r\nbegin\r\n  Result := '/geocode/reverse';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingOpenRouteServiceGeocoding.GetPostData: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingOpenRouteServiceGeocoding.GetQuery(\r\n  ACoordinate: TTMSFNCMapsCoordinateRec; ALocale: string): string;\r\nbegin\r\n  Result := 'api_key=' + GeocodingProperties.GetAPIKey\r\n    + '&point.lat=' + TTMSFNCUtils.FloatToStrDot(ACoordinate.Latitude)\r\n    + '&point.lon=' + TTMSFNCUtils.FloatToStrDot(ACoordinate.Longitude);\r\nend;\r\n\r\nfunction TTMSFNCGeocodingOpenRouteServiceGeocoding.GetQuery(AAddress: string; ALocale: string): string;\r\nbegin\r\n  Result := 'api_key=' + GeocodingProperties.GetAPIKey\r\n    + '&text=' + AAddress;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingOpenRouteServiceGeocoding.GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\nbegin\r\n  Result := rmGet;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingOpenRouteServiceGeocoding.IsValid: Boolean;\r\nbegin\r\n  Result := GeocodingProperties.GetAPIKey <> '';\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingOpenRouteServiceGeocoding.Parse(ARequest: TTMSFNCGeocodingRequest; ARequestResult: string);\r\nvar\r\n  d: TTMSFNCGeocodingItems;\r\n  di: TTMSFNCGeocodingItem;\r\n\r\n  o, jo, joar: TJSONValue;\r\n  jar, jab: TJSONArray;\r\n  i, j: Integer;\r\n  ob, oc: TJSONObject;\r\nbegin\r\n  if Assigned(GeocodingProperties) then\r\n  begin\r\n    d := ARequest.Items;\r\n\r\n    if Assigned(d) then\r\n    begin\r\n      if ARequestResult <> '' then\r\n      begin\r\n        o := TTMSFNCUtils.ParseJSON(ARequestResult);\r\n        if Assigned(o) then\r\n        begin\r\n          try\r\n            ARequest.ErrorMessage := TTMSFNCUtils.GetJSONProp(o, 'error');\r\n            if ARequest.ErrorMessage <> '' then\r\n              ARequest.Status := 'error';\r\n\r\n            jar := TTMSFNCUtils.GetJSONValue(o, 'features') as TJSONArray;\r\n            if Assigned(jar) then\r\n            begin\r\n              for i := 0 to TTMSFNCUtils.GetJSONArraySize(jar) - 1 do\r\n              begin\r\n                jo := TTMSFNCUtils.GetJSONArrayItem(jar, i);\r\n\r\n                di := d.Add;\r\n\r\n                oc := TTMSFNCUtils.GetJSONValue(jo, 'properties') as TJSONObject;\r\n                if Assigned(oc) then\r\n                begin\r\n                  di.Address := TTMSFNCUtils.GetJSONProp(oc, 'label');\r\n                  di.Street := TTMSFNCUtils.GetJSONProp(oc, 'street');\r\n                  if di.Street = '' then\r\n                    di.Street := TTMSFNCUtils.GetJSONProp(oc, 'name');\r\n                  di.PostalCode := TTMSFNCUtils.GetJSONProp(oc, 'postalcode');\r\n                  di.City := TTMSFNCUtils.GetJSONProp(oc, 'localadmin');\r\n                  di.Region := TTMSFNCUtils.GetJSONProp(oc, 'county');\r\n                  di.RegionCode := TTMSFNCUtils.GetJSONProp(oc, 'county_a');\r\n                  di.Province := TTMSFNCUtils.GetJSONProp(oc, 'region');\r\n                  di.ProvinceCode := TTMSFNCUtils.GetJSONProp(oc, 'region_a');\r\n                  di.Country := TTMSFNCUtils.GetJSONProp(oc, 'country');\r\n                  di.CountryCode := TTMSFNCUtils.GetJSONProp(oc, 'country_a');\r\n                end;\r\n\r\n                ob := TTMSFNCUtils.GetJSONValue(jo, 'geometry') as TJSONObject;\r\n                if Assigned(ob) then\r\n                begin\r\n                  jab := TTMSFNCUtils.GetJSONValue(ob, 'coordinates') as TJSONArray;\r\n                  if Assigned(jar) then\r\n                  begin\r\n                    for j := 0 to TTMSFNCUtils.GetJSONArraySize(jab) - 1 do\r\n                    begin\r\n                      joar := TTMSFNCUtils.GetJSONArrayItem(jab, j);\r\n                        if j = 0 then\r\n                          di.Coordinate.Longitude := TTMSFNCUtils.StrToFloatDot(joar.Value);\r\n                        if j = 1 then\r\n                          di.Coordinate.Latitude := TTMSFNCUtils.StrToFloatDot(joar.Value);\r\n                    end;\r\n                  end;\r\n                end;\r\n              end;\r\n            end;\r\n          finally\r\n            o.Free;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2021                                      }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCGeocoding.GeoApify;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nprocedure RegisterGeoApifyGeocodingService;\r\nprocedure UnRegisterGeoApifyGeocodingService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCGeocoding,\r\n  WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes, WEBLib.TMSFNCCloudBase\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 26}\r\n  ,JSON\r\n  {$ELSE}\r\n  ,DBXJSON\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  ,fpjson\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web, WEBLIB.JSON\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCGeocodingGeoApifyService = class;\r\n\r\n  TTMSFNCGeocodingGeoApifyGeocodingFactoryService = class(TTMSFNCGeocodingFactoryService, ITMSFNCGeocodingServiceGeoApify);\r\n\r\n  TTMSFNCGeocodingGeoApifyService = class(TTMSFNCGeocodingGeoApifyGeocodingFactoryService)\r\n  protected\r\n    function DoCreateGeocoding: ITMSFNCCustomGeocoding; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCGeocodingGeoApifyGeocoding = class;\r\n\r\n  TTMSFNCGeocodingGeoApifyGeocoding = class(TTMSFNCCustomGeocodingInterfacedObject, ITMSFNCCustomGeocoding)\r\n  protected\r\n    function GetIdentifier: string;\r\n    function IsValid: Boolean;\r\n    function GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\n    function GetHost: string;\r\n    function GetReverseHost: string;\r\n    function GetPath(AAddress: string): string;\r\n    function GetReversePath(ACoordinate: TTMSFNCMapsCoordinateRec): string;\r\n    function GetQuery(AAddress: string; ALocale: string): string; overload;\r\n    function GetQuery(ACoordinate: TTMSFNCMapsCoordinateRec; ALocale: string): string; overload;\r\n    function GetPostData: string;\r\n    procedure Parse(ARequest: TTMSFNCGeocodingRequest; ARequestResult: string);\r\n    procedure AddHeaders(AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\n    procedure DestroyGeocoding;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  GeocodingService: ITMSFNCGeocodingServiceGeoApify;\r\n\r\nprocedure RegisterGeoApifyGeocodingService;\r\nbegin\r\n  if not TTMSFNCGeocodingPlatformServices.Current.SupportsPlatformService(ITMSFNCGeocodingServiceGeoApify, IInterface(GeocodingService)) then\r\n  begin\r\n    GeocodingService := TTMSFNCGeocodingGeoApifyService.Create;\r\n    TTMSFNCGeocodingPlatformServices.Current.AddPlatformService(ITMSFNCGeocodingServiceGeoApify, GeocodingService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterGeoApifyGeocodingService;\r\nbegin\r\n  TTMSFNCGeocodingPlatformServices.Current.RemovePlatformService(ITMSFNCGeocodingServiceGeoApify);\r\nend;\r\n\r\n{ TTMSFNCGeocodingGeoApifyService }\r\n\r\nfunction TTMSFNCGeocodingGeoApifyService.DoCreateGeocoding: ITMSFNCCustomGeocoding;\r\nbegin\r\n  Result := TTMSFNCGeocodingGeoApifyGeocoding.Create;\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingGeoApifyGeocoding.AddHeaders(\r\n  AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\nbegin\r\n\r\nend;\r\n\r\nconstructor TTMSFNCGeocodingGeoApifyGeocoding.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCGeocodingGeoApifyGeocoding.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingGeoApifyGeocoding.DestroyGeocoding;\r\nbegin\r\n  GeocodingService.DestroyGeocoding(Self);\r\nend;\r\n\r\nfunction TTMSFNCGeocodingGeoApifyGeocoding.GetHost: string;\r\nbegin\r\n  Result := 'https://api.geoapify.com';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingGeoApifyGeocoding.GetReverseHost: string;\r\nbegin\r\n  Result := GetHost;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingGeoApifyGeocoding.GetIdentifier: string;\r\nbegin\r\n  Result := 'GeoApify';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingGeoApifyGeocoding.GetPath(AAddress: string): string;\r\nbegin\r\n  Result := '/v1/geocode/search';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingGeoApifyGeocoding.GetReversePath(ACoordinate: TTMSFNCMapsCoordinateRec): string;\r\nbegin\r\n  Result := '/v1/geocode/reverse';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingGeoApifyGeocoding.GetPostData: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCGeocodingGeoApifyGeocoding.GetQuery(\r\n  ACoordinate: TTMSFNCMapsCoordinateRec; ALocale: string): string;\r\nbegin\r\n  Result := 'apiKey=' + GeocodingProperties.GetAPIKey\r\n    + '&lat=' + TTMSFNCUtils.FloatToStrDot(ACoordinate.Latitude)\r\n    + '&lon=' + TTMSFNCUtils.FloatToStrDot(ACoordinate.Longitude);\r\nend;\r\n\r\nfunction TTMSFNCGeocodingGeoApifyGeocoding.GetQuery(AAddress: string; ALocale: string): string;\r\nbegin\r\n  Result := 'apiKey=' + GeocodingProperties.GetAPIKey\r\n    + '&text=' + AAddress;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingGeoApifyGeocoding.GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\nbegin\r\n  Result := rmGet;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingGeoApifyGeocoding.IsValid: Boolean;\r\nbegin\r\n  Result := GeocodingProperties.GetAPIKey <> '';\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingGeoApifyGeocoding.Parse(ARequest: TTMSFNCGeocodingRequest; ARequestResult: string);\r\nvar\r\n  d: TTMSFNCGeocodingItems;\r\n  di: TTMSFNCGeocodingItem;\r\n\r\n  o, jo, joar: TJSONValue;\r\n  jar, jab: TJSONArray;\r\n  i, j: Integer;\r\n  ob, oc: TJSONObject;\r\n  street, number: string;\r\nbegin\r\n  if Assigned(GeocodingProperties) then\r\n  begin\r\n    d := ARequest.Items;\r\n\r\n    if Assigned(d) then\r\n    begin\r\n      if ARequestResult <> '' then\r\n      begin\r\n        o := TTMSFNCUtils.ParseJSON(ARequestResult);\r\n        if Assigned(o) then\r\n        begin\r\n          try\r\n            ARequest.Status := TTMSFNCUtils.GetJSONProp(o, 'error');\r\n            ARequest.ErrorMessage := TTMSFNCUtils.GetJSONProp(o, 'message');\r\n\r\n            jar := TTMSFNCUtils.GetJSONValue(o, 'features') as TJSONArray;\r\n            if Assigned(jar) then\r\n            begin\r\n              for i := 0 to TTMSFNCUtils.GetJSONArraySize(jar) - 1 do\r\n              begin\r\n                jo := TTMSFNCUtils.GetJSONArrayItem(jar, i);\r\n\r\n                di := d.Add;\r\n\r\n                oc := TTMSFNCUtils.GetJSONValue(jo, 'properties') as TJSONObject;\r\n                if Assigned(oc) then\r\n                begin\r\n                  di.Address := TTMSFNCUtils.GetJSONProp(oc, 'formatted');\r\n\r\n                  street := TTMSFNCUtils.GetJSONProp(oc, 'street');\r\n                  if street = '' then\r\n                    street := TTMSFNCUtils.GetJSONProp(oc, 'name');\r\n\r\n                  number := TTMSFNCUtils.GetJSONProp(oc, 'housenumber');\r\n\r\n                  di.Street := Trim(street + ' ' + number);\r\n                  di.StreetName := street;\r\n                  di.StreetNumber := number;\r\n\r\n                  di.PostalCode := TTMSFNCUtils.GetJSONProp(oc, 'postcode');\r\n                  di.City := TTMSFNCUtils.GetJSONProp(oc, 'city');\r\n                  di.Region := TTMSFNCUtils.GetJSONProp(oc, 'county');\r\n                  if di.Region = '' then\r\n                    di.Region := TTMSFNCUtils.GetJSONProp(oc, 'district');\r\n                  if di.Region = '' then\r\n                    di.Region := TTMSFNCUtils.GetJSONProp(oc, 'suburb');\r\n                  di.Province := TTMSFNCUtils.GetJSONProp(oc, 'state');\r\n                  di.ProvinceCode := TTMSFNCUtils.GetJSONProp(oc, 'state_code');\r\n                  di.Country := TTMSFNCUtils.GetJSONProp(oc, 'country');\r\n                  di.CountryCode := TTMSFNCUtils.GetJSONProp(oc, 'country_code');\r\n                end;\r\n\r\n                ob := TTMSFNCUtils.GetJSONValue(jo, 'geometry') as TJSONObject;\r\n                if Assigned(ob) then\r\n                begin\r\n                  jab := TTMSFNCUtils.GetJSONValue(ob, 'coordinates') as TJSONArray;\r\n                  if Assigned(jar) then\r\n                  begin\r\n                    for j := 0 to TTMSFNCUtils.GetJSONArraySize(jab) - 1 do\r\n                    begin\r\n                      joar := TTMSFNCUtils.GetJSONArrayItem(jab, j);\r\n                      if j = 0 then\r\n                        di.Coordinate.Longitude := TTMSFNCUtils.StrToFloatDot(joar.Value);\r\n                      if j = 1 then\r\n                        di.Coordinate.Latitude := TTMSFNCUtils.StrToFloatDot(joar.Value);\r\n                    end;\r\n                  end;\r\n                end;\r\n              end;\r\n            end;\r\n          finally\r\n            o.Free;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCGeocoding;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\n{$IFNDEF LCLLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 23}\r\n{$DEFINE UNREGISTER}\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE UNREGISTER}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, Types, WEBLib.Forms\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,web, Contnrs, js\r\n  {$ENDIF}\r\n  {$IFDEF CMNLIB}\r\n  {$ENDIF}\r\n  ,WEBLib.TMSFNCTypes\r\n  ,WEBLib.TMSFNCMapsCommonTypes\r\n  ,WEBLib.TMSFNCCloudBase;\r\n\r\nconst\r\n  TTMSFNCGeocodingDocURL = TTMSFNCBaseDocURL + 'tmsfncmaps/components/ttmsfncmaps/#ttmsfncgeocoding';\r\n  TTMSFNCGeocodingTipsURL = 'https://www.tmssoftware.com/site/tmsfncmaps.asp?s=faq';\r\n\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 5; // Minor version nr.\r\n  REL_VER = 3; // Release nr.\r\n  BLD_VER = 2; // Build nr.\r\n\r\n  //v1.0.0.0: First release\r\n  //v1.0.1.0: New: (Reverse)Geocoding result Status and ErrorMessage added\r\n  //v1.1.0.0: New: Here geocoding service updated to Geocoding API v1\r\n  //v1.2.0.0: New: Optional Locale parameter added\r\n  //          New: Province property added\r\n  //v1.3.0.0: New: Support for OpenStreetMap Nominatim geocoding & reversegeocoding\r\n  //v1.4.0.0: New: Support for OpenRouteService geocoding & reversegeocoding\r\n  //          Improved: OpenStreetMap address details\r\n  //v1.5.0.0: New: Support for GeoApify geocoding & reversegeocoding\r\n  //v1.5.1.0: New : Added Intersection address field\r\n  //v1.5.2.0: New: Added Precision property for Google\r\n  //        : Fixed: Issue with returning postal code for Google\r\n  //v1.5.2.1: Fixed: Issue with TomTom when no Locale specified\r\n  //v1.5.2.2: Improved: OpenStreetMap error handling\r\n  //v1.5.2.3: New: District address data added for Here maps\r\n  //v1.5.3.0: New: StreetName property added\r\n  //v1.5.3.1: Fixed: Issue with StreetName not properly implemented\r\n  //v1.5.3.2: Improved: MapBox: Possible issue with parsing coordinates\r\n\r\ntype\r\n  TTMSFNCCustomGeocoding = class;\r\n  TTMSFNCGeocodingRequests = class;\r\n  TTMSFNCGeocodingRequest = class;\r\n\r\n  ITMSFNCCustomGeocodingProperties = interface(IInterface)\r\n    ['{FE4F141C-69EA-4FBE-B5BF-1262F9EFBA70}']\r\n    function GetAPIKey: string;\r\n  end;\r\n\r\n  ITMSFNCCustomGeocodingInstance = interface(IInterface)\r\n    ['{25C43C12-543C-460C-A8EE-9010559E62AD}']\r\n    procedure SetGeocodingProperties(const Value: ITMSFNCCustomGeocodingProperties);\r\n  end;\r\n\r\n  ITMSFNCCustomGeocoding = interface(IInterface)\r\n  ['{FE8B5C56-279A-405B-94ED-ACDFC142CFEF}']\r\n    function GetIdentifier: string;\r\n    function GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\n    function GetHost: string;\r\n    function GetReverseHost: string;\r\n    function GetPath(AAddress: string = ''): string;\r\n    function GetReversePath(ACoordinate: TTMSFNCMapsCoordinateRec): string;\r\n    function GetQuery(AAddress: string; ALocale: string): string; overload;\r\n    function GetQuery(ACoordinate: TTMSFNCMapsCoordinateRec; ALocale: string): string; overload;\r\n    function GetPostData: string;\r\n    procedure AddHeaders(AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\n    procedure Parse(ARequest: TTMSFNCGeocodingRequest; ARequestResult: string);\r\n    function IsValid: Boolean;\r\n    procedure DestroyGeocoding;\r\n  end;\r\n\r\n  ITMSFNCGeocodingService = interface(IInterface)\r\n  ['{7B450AC9-7EE3-4D61-AFEA-6D0D1FF2B392}']\r\n    function CreateGeocoding: ITMSFNCCustomGeocoding;\r\n    procedure DestroyGeocoding(AGeocoding: ITMSFNCCustomGeocoding);\r\n  end;\r\n\r\n  ITMSFNCGeocodingServiceGoogle = interface(ITMSFNCGeocodingService)\r\n    ['{88D1B5B9-DA7F-44EB-97C7-93C5EBDDEA83}']\r\n  end;\r\n\r\n  ITMSFNCGeocodingServiceHere = interface(ITMSFNCGeocodingService)\r\n    ['{C08CBDEE-6884-4C81-A241-3B8E8EE1D6F2}']\r\n  end;\r\n\r\n  ITMSFNCGeocodingServiceBing = interface(ITMSFNCGeocodingService)\r\n    ['{E03F86CE-3E36-43D9-AD79-4D9D1BFB5C22}']\r\n  end;\r\n\r\n  ITMSFNCGeocodingServiceAzure = interface(ITMSFNCGeocodingService)\r\n    ['{541F996E-F3A7-4750-8E12-D95B091DB936}']\r\n  end;\r\n\r\n  ITMSFNCGeocodingServiceMapBox = interface(ITMSFNCGeocodingService)\r\n    ['{496E6828-08F0-4E28-AB11-577069815E99}']\r\n  end;\r\n\r\n  ITMSFNCGeocodingServiceTomTom = interface(ITMSFNCGeocodingService)\r\n    ['{95D7749D-DA80-45D3-B0E5-D21E7654FABA}']\r\n  end;\r\n\r\n  ITMSFNCGeocodingServiceOpenStreetMap = interface(ITMSFNCGeocodingService)\r\n    ['{E2D4A08F-03F2-4A23-83AA-27E599E01C5A}']\r\n  end;\r\n\r\n  ITMSFNCGeocodingServiceOpenRouteService = interface(ITMSFNCGeocodingService)\r\n    ['{CE13AC60-6343-4A53-8577-4A11D98F9136}']\r\n  end;\r\n\r\n  ITMSFNCGeocodingServiceGeoApify = interface(ITMSFNCGeocodingService)\r\n    ['{BEAAE65C-C97B-4668-8C94-413F8C7987B8}']\r\n  end;\r\n\r\n  TTMSFNCGeocodingService = (gsGoogle, gsHere, gsBing, gsAzure, gsMapBox, gsTomTom, gsOpenStreetMap, gsOpenRouteService, gsGeoApify);\r\n  TTMSFNCGeocodingPrecision = (gpRoofTop, gpRangeInterpolated, gpGeometricCenter, gpApproximate, gpUnknown);\r\n\r\n  TTMSFNCGeocodingItem = class(TCollectionItem)\r\n  private\r\n    FOwner: TTMSFNCCustomGeocoding;\r\n    FDataBoolean: Boolean;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FDataPointer: Pointer;\r\n    FAddress: string;\r\n    FCoordinate: TTMSFNCMapsCoordinate;\r\n    FStreet: string;\r\n    FPostalCode: string;\r\n    FCountry: string;\r\n    FCountryCode: string;\r\n    FRegion: string;\r\n    FCity: string;\r\n    FProvince: string;\r\n    FProvinceCode: string;\r\n    FRegionCode: string;\r\n    FDistrict: string;\r\n    FStreetNumber: string;\r\n    FIntersection: string;\r\n    FPrecision: TTMSFNCGeocodingPrecision;\r\n    FStreetName: string;\r\n    procedure SetCoordinate(const Value: TTMSFNCMapsCoordinate);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n  published\r\n    property Coordinate: TTMSFNCMapsCoordinate read FCoordinate write SetCoordinate;\r\n    property Address: string read FAddress write FAddress;\r\n    property City: string read FCity write FCity;\r\n    property District: string read FDistrict write FDistrict;\r\n    property Country: string read FCountry write FCountry;\r\n    property CountryCode: string read FCountryCode write FCountryCode;\r\n    property Province: string read FProvince write FProvince;\r\n    property ProvinceCode: string read FProvinceCode write FProvinceCode;\r\n    property Region: string read FRegion write FRegion;\r\n    property RegionCode: string read FRegionCode write FRegionCode;\r\n    property Street: string read FStreet write FStreet;\r\n    property StreetName: string read FStreetName write FStreetName;\r\n    property StreetNumber: string read FStreetNumber write FStreetNumber;\r\n    property PostalCode: string read FPostalCode write FPostalCode;\r\n    property Intersection: string read FIntersection write FIntersection;\r\n    property Precision: TTMSFNCGeocodingPrecision read FPrecision write FPrecision;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCGeocodingItems = class(TTMSFNCOwnedCollection)\r\n  {$ELSE}\r\n  TTMSFNCGeocodingItems = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCGeocodingItem>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TTMSFNCCustomGeocoding;\r\n    function GetItem(Index: Integer): TTMSFNCGeocodingItem;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCGeocodingItem);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; virtual;\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCCustomGeocoding); virtual;\r\n    property Items[Index: Integer]: TTMSFNCGeocodingItem read GetItem write SetItem; default;\r\n    function Add: TTMSFNCGeocodingItem;\r\n    function Insert(Index: Integer): TTMSFNCGeocodingItem;\r\n  end;\r\n\r\n  TTMSFNCGeocodingRequest = class(TCollectionItem)\r\n  private\r\n    FOwner: TTMSFNCCustomGeocoding;\r\n    FDataPointer: Pointer;\r\n    FDataBoolean: Boolean;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FItems: TTMSFNCGeocodingItems;\r\n    FID: string;\r\n    FStatus: string;\r\n    FErrorMessage: string;\r\n    procedure SetItems(const Value: TTMSFNCGeocodingItems);\r\n    procedure SetErrorMessage(const Value: string);\r\n    procedure SetStatus(const Value: string);\r\n    function GetFirst: TTMSFNCGeocodingItem;\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n    property First: TTMSFNCGeocodingItem read GetFirst;\r\n  published\r\n    property ID: string read FID;\r\n    property Items: TTMSFNCGeocodingItems read FItems write SetItems;\r\n    property Status: string read FStatus write SetStatus;\r\n    property ErrorMessage: string read FErrorMessage write SetErrorMessage;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCGeocodingRequests = class(TTMSFNCOwnedCollection)\r\n  {$ELSE}\r\n  TTMSFNCGeocodingRequests = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCGeocodingRequest>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TTMSFNCCustomGeocoding;\r\n    function GetItem(Index: Integer): TTMSFNCGeocodingRequest;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCGeocodingRequest);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; virtual;\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCCustomGeocoding); virtual;\r\n    property Items[Index: Integer]: TTMSFNCGeocodingRequest read GetItem write SetItem; default;\r\n    function Add: TTMSFNCGeocodingRequest;\r\n    function Insert(Index: Integer): TTMSFNCGeocodingRequest;\r\n  end;\r\n\r\n  { TTMSFNCCustomGeocoding }\r\n\r\n  TTMSFNCGeocodingGetGeocodingCallBack = {$IFNDEF LCLLIB}reference to {$ENDIF}procedure(const ARequest: TTMSFNCGeocodingRequest; const ARequestResult: TTMSFNCCloudBaseRequestResult){$IFDEF LCLLIB} of object{$ENDIF};\r\n  TTMSFNCGeocodingGetGeocodingEvent = procedure(Sender: TObject; const ARequest: TTMSFNCGeocodingRequest; const ARequestResult: TTMSFNCCloudBaseRequestResult) of object;\r\n\r\n  TTMSFNCGeocodingGetGeocodingResultCallBack = {$IFNDEF LCLLIB}reference to {$ENDIF}procedure(const AResult: TTMSFNCGeocodingRequest){$IFDEF LCLLIB} of object{$ENDIF};\r\n  TTMSFNCGeocodingGetGeocodingResultEvent = procedure(Sender: TObject; const AResult: TTMSFNCGeocodingRequest) of object;\r\n\r\n  TTMSFNCGeocodingGetReverseGeocodingCallBack = {$IFNDEF LCLLIB}reference to {$ENDIF}procedure(const ARequest: TTMSFNCGeocodingRequest; const ARequestResult: TTMSFNCCloudBaseRequestResult){$IFDEF LCLLIB} of object{$ENDIF};\r\n  TTMSFNCGeocodingGetReverseGeocodingEvent = procedure(Sender: TObject; const ARequest: TTMSFNCGeocodingRequest; const ARequestResult: TTMSFNCCloudBaseRequestResult) of object;\r\n\r\n  TTMSFNCGeocodingGetReverseGeocodingResultCallBack = {$IFNDEF LCLLIB}reference to {$ENDIF}procedure(const AResult: TTMSFNCGeocodingRequest){$IFDEF LCLLIB} of object{$ENDIF};\r\n  TTMSFNCGeocodingGetReverseGeocodingResultEvent = procedure(Sender: TObject; const AResult: TTMSFNCGeocodingRequest) of object;\r\n\r\n  TTMSFNCGeocodingCallBackWrapper = class\r\n  private\r\n    FCallback: TTMSFNCGeocodingGetGeocodingCallBack;\r\n  public\r\n    constructor Create(ACallback: TTMSFNCGeocodingGetGeocodingCallBack);\r\n  end;\r\n\r\n  TTMSFNCGeocodingResultCallBackWrapper = class\r\n  private\r\n    FCallback: TTMSFNCGeocodingGetGeocodingResultCallBack;\r\n  public\r\n    constructor Create(ACallback: TTMSFNCGeocodingGetGeocodingResultCallBack);\r\n  end;\r\n\r\n  TTMSFNCReverseGeocodingCallBackWrapper = class\r\n  private\r\n    FCallback: TTMSFNCGeocodingGetReverseGeocodingCallBack;\r\n  public\r\n    constructor Create(ACallback: TTMSFNCGeocodingGetReverseGeocodingCallBack);\r\n  end;\r\n\r\n  TTMSFNCReverseGeocodingResultCallBackWrapper = class\r\n  private\r\n    FCallback: TTMSFNCGeocodingGetReverseGeocodingResultCallBack;\r\n  public\r\n    constructor Create(ACallback: TTMSFNCGeocodingGetReverseGeocodingResultCallBack);\r\n  end;\r\n\r\n  TTMSFNCCustomGeocoding = class(TTMSFNCCloudBase, ITMSFNCCustomGeocodingProperties)\r\n  private\r\n    FGeocoding: ITMSFNCCustomGeocoding;\r\n    FGeocodingInstance: ITMSFNCCustomGeocodingInstance;\r\n    FGeocodingProperties: ITMSFNCCustomGeocodingProperties;\r\n    FService: TTMSFNCGeocodingService;\r\n    FAPIKey: string;\r\n    FGeocodingRequests: TTMSFNCGeocodingRequests;\r\n    FOnGetGeocoding: TTMSFNCGeocodingGetGeocodingEvent;\r\n    FOnGetGeocodingInternal: TTMSFNCGeocodingGetGeocodingEvent;\r\n    FOnGetReverseGeocodingInternal: TTMSFNCGeocodingGetReverseGeocodingEvent;\r\n    FOnGetReverseGeocoding: TTMSFNCGeocodingGetReverseGeocodingEvent;\r\n    FOnGetGeocodingResult: TTMSFNCGeocodingGetGeocodingResultEvent;\r\n    FOnGetReverseGeocodingResultInternal: TTMSFNCGeocodingGetReverseGeocodingResultEvent;\r\n    FOnGetReverseGeocodingResult: TTMSFNCGeocodingGetReverseGeocodingResultEvent;\r\n    FOnGetGeocodingResultInternal: TTMSFNCGeocodingGetGeocodingResultEvent;\r\n    procedure SetService(const Value: TTMSFNCGeocodingService);\r\n    procedure SetAPIKey(const Value: string);\r\n    procedure SetGeocodingRequests(const Value: TTMSFNCGeocodingRequests);\r\n  protected\r\n    procedure InternalGetGeocoding(AAddress: string; ACallback: TTMSFNCGeocodingGetGeocodingCallBack = nil; ACallback2: TTMSFNCGeocodingGetGeocodingResultCallBack = nil; AID: string = ''; ADataPointer: Pointer = nil; ALocale: string = ''; AMode: TTMSFNCMapsLocaleMode = mlmDefault); overload; virtual;\r\n    procedure InternalGetReverseGeocoding(ACoordinate: TTMSFNCMapsCoordinateRec; ACallback: TTMSFNCGeocodingGetReverseGeocodingCallBack = nil; ACallback2: TTMSFNCGeocodingGetReverseGeocodingResultCallBack = nil; AID: string = ''; ADataPointer: Pointer = nil; ALocale: string = ''; AMode: TTMSFNCMapsLocaleMode = mlmDefault); overload; virtual;\r\n\r\n    function InternalGetGeocodingSync(AAddress: string; ALocale: string = ''; AMode: TTMSFNCMapsLocaleMode = mlmDefault): {$IFDEF WEBLIB}TJSPromise{$ELSE}TTMSFNCMapsCoordinateRec{$ENDIF}; virtual;\r\n    function InternalGetReverseGeocodingSync(ACoordinate: TTMSFNCMapsCoordinateRec; ALocale: string = ''; AMode: TTMSFNCMapsLocaleMode = mlmDefault): {$IFDEF WEBLIB}TJSPromise{$ELSE}string{$ENDIF}; virtual;\r\n    procedure DoRequestGetGeocoding(const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\n    procedure DoGetGeocoding(const ARequest: TTMSFNCGeocodingRequest; const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\n    procedure DoGetReverseGeocoding(const ARequest: TTMSFNCGeocodingRequest; const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\n    property OnGetGeocoding: TTMSFNCGeocodingGetGeocodingEvent read FOnGetGeocoding write FOnGetGeocoding;\r\n    property OnGetGeocodingInternal: TTMSFNCGeocodingGetGeocodingEvent read FOnGetGeocodingInternal write FOnGetGeocodingInternal;\r\n    property OnGetReverseGeocoding: TTMSFNCGeocodingGetReverseGeocodingEvent read FOnGetReverseGeocoding write FOnGetReverseGeocoding;\r\n    property OnGetReverseGeocodingInternal: TTMSFNCGeocodingGetReverseGeocodingEvent read FOnGetReverseGeocodingInternal write FOnGetReverseGeocodingInternal;\r\n\r\n    property OnGetGeocodingResult: TTMSFNCGeocodingGetGeocodingResultEvent read FOnGetGeocodingResult write FOnGetGeocodingResult;\r\n    property OnGetGeocodingResultInternal: TTMSFNCGeocodingGetGeocodingResultEvent read FOnGetGeocodingResultInternal write FOnGetGeocodingResultInternal;\r\n    property OnGetReverseGeocodingResult: TTMSFNCGeocodingGetReverseGeocodingResultEvent read FOnGetReverseGeocodingResult write FOnGetReverseGeocodingResult;\r\n    property OnGetReverseGeocodingResultInternal: TTMSFNCGeocodingGetReverseGeocodingResultEvent read FOnGetReverseGeocodingResultInternal write FOnGetReverseGeocodingResultInternal;\r\n\r\n    procedure InitializeGeocoding; virtual;\r\n    function GetInstance: NativeUInt; override;\r\n    function GetGeocodingRequests: TTMSFNCGeocodingRequests;\r\n    function GeocodingReady: Boolean;\r\n    function GetAPIKey: string;\r\n    function GetVersionNr: Integer;\r\n    function GetDocURL: string; override;\r\n    function GetTipsURL: string; override;\r\n    function Geocoding: ITMSFNCCustomGeocoding;\r\n    function GetVersion: string; override;\r\n    property Service: TTMSFNCGeocodingService read FService write SetService default gsGoogle;\r\n    property APIKey: string read FAPIKey write SetAPIKey;\r\n    property GeocodingRequests: TTMSFNCGeocodingRequests read FGeocodingRequests write SetGeocodingRequests;\r\n\r\n    property GeocodingInstance: ITMSFNCCustomGeocoding read FGeocoding;\r\n    property GeocodingProperties: ITMSFNCCustomGeocodingProperties read FGeocodingProperties;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure GetGeocoding(AAddress: string; ACallback: TTMSFNCGeocodingGetGeocodingCallBack = nil; AID: string = ''; ADataPointer: Pointer = nil; ALocale: string = ''; AMode: TTMSFNCMapsLocaleMode = mlmDefault); overload; virtual;\r\n    procedure GetReverseGeocoding(ACoordinate: TTMSFNCMapsCoordinateRec; ACallback: TTMSFNCGeocodingGetReverseGeocodingCallBack = nil; AID: string = ''; ADataPointer: Pointer = nil; ALocale: string = ''; AMode: TTMSFNCMapsLocaleMode = mlmDefault); overload; virtual;\r\n    procedure GetGeocodingResult(AAddress: string; ACallback: TTMSFNCGeocodingGetGeocodingResultCallBack = nil; AID: string = ''; ADataPointer: Pointer = nil; ALocale: string = ''; AMode: TTMSFNCMapsLocaleMode = mlmDefault); overload; virtual;\r\n    procedure GetReverseGeocodingResult(ACoordinate: TTMSFNCMapsCoordinateRec; ACallback: TTMSFNCGeocodingGetReverseGeocodingResultCallBack = nil; AID: string = ''; ADataPointer: Pointer = nil; ALocale: string = ''; AMode: TTMSFNCMapsLocaleMode = mlmDefault); overload; virtual;\r\n    function GetGeocodingSync(AAddress: string; ALocale: string = ''; AMode: TTMSFNCMapsLocaleMode = mlmDefault): TTMSFNCMapsCoordinateRec; virtual; {$IFDEF WEBLIB}async;{$ENDIF}\r\n    function GetReverseGeocodingSync(ACoordinate: TTMSFNCMapsCoordinateRec; ALocale: string = ''; AMode: TTMSFNCMapsLocaleMode = mlmDefault): string; virtual; {$IFDEF WEBLIB} async;{$ENDIF}\r\n  end;\r\n\r\n  TTMSFNCCustomGeocodingInterfacedObject = class(TInterfacedObject, ITMSFNCCustomGeocodingInstance)\r\n  private\r\n    FGeocodingProperties: ITMSFNCCustomGeocodingProperties;\r\n    function GetGeocodingProperties: ITMSFNCCustomGeocodingProperties;\r\n  protected\r\n    procedure SetGeocodingProperties(const Value: ITMSFNCCustomGeocodingProperties);\r\n  public\r\n    property GeocodingProperties: ITMSFNCCustomGeocodingProperties read GetGeocodingProperties;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCGeocodingList = class(TList)\r\n  private\r\n    function GetItem(Index: Integer): ITMSFNCCustomGeocoding;\r\n    procedure SetItem(Index: Integer; const Value: ITMSFNCCustomGeocoding);\r\n  public\r\n    property Items[Index: Integer]: ITMSFNCCustomGeocoding read GetItem write SetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCGeocodingList = class(TList<ITMSFNCCustomGeocoding>);\r\n  {$ENDIF}\r\n\r\n  TTMSFNCGeocodingFactoryService = class(TInterfacedObject, ITMSFNCGeocodingService)\r\n  private\r\n    FGeocoding: TTMSFNCGeocodingList;\r\n  protected\r\n    function DoCreateGeocoding: ITMSFNCCustomGeocoding; virtual; abstract;\r\n    function CreateGeocoding: ITMSFNCCustomGeocoding;\r\n    procedure DestroyGeocoding(AGeocoding: ITMSFNCCustomGeocoding);\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  TTMSFNCGeocoding = class(TTMSFNCCustomGeocoding)\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n  public\r\n    property GeocodingInstance;\r\n    property GeocodingProperties;\r\n  published\r\n    property OnGetReverseGeocoding;\r\n    property OnGetGeocoding;\r\n    property OnGetReverseGeocodingResult;\r\n    property OnGetGeocodingResult;\r\n    property APIKey;\r\n    property GeocodingRequests;\r\n    property Service;\r\n    property Version;\r\n  end;\r\n\r\n  TTMSFNCGeocodingPlatformServicesService = class\r\n  private\r\n    FInterface: IInterface;\r\n    FGUID: string;\r\n  public\r\n    constructor Create(AGUID: string; AInterface: IInterface);\r\n    property GUID: string read FGUID;\r\n    property &Interface: IInterface read FInterface;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCGeocodingPlatformServicesList = class(TObjectList)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCGeocodingPlatformServicesService;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCGeocodingPlatformServicesService);\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCGeocodingPlatformServicesService read GetItem write SetItem; default;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCGeocodingPlatformServicesList = class(TObjectList<TTMSFNCGeocodingPlatformServicesService>)\r\n  {$ENDIF}\r\n  private\r\n    function GetValue(AGUID: string): IInterface;\r\n  public\r\n    function ContainsKey(AGUID: string): Boolean;\r\n    procedure RemoveByGUID(AGUID: string);\r\n    property Interfaces[AGUID: string]: IInterface read GetValue;\r\n  end;\r\n\r\n  TTMSFNCGeocodingPlatformServices = class\r\n  private\r\n    FServicesList: TTMSFNCGeocodingPlatformServicesList;\r\n    class var FCurrent: TTMSFNCGeocodingPlatformServices;\r\n    class var FCurrentReleased: Boolean;\r\n{$IFNDEF AUTOREFCOUNT}\r\n    class procedure ReleaseCurrent;\r\n{$ENDIF}\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n    procedure AddPlatformService(const AServiceGUID: TGUID; const AService: IInterface);\r\n    procedure RemovePlatformService(const AServiceGUID: TGUID);\r\n    function GetPlatformService(const AServiceGUID: TGUID): IInterface;\r\n    function SupportsPlatformService(const AServiceGUID: TGUID): Boolean; overload;\r\n    function SupportsPlatformService(const AServiceGUID: TGUID; var AService: IInterface): Boolean; overload;\r\n    class function Current: TTMSFNCGeocodingPlatformServices;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  {$IFDEF MSWINDOWS}\r\n  Windows, Registry,\r\n  {$ENDIF}\r\n  {%H-}Math,\r\n  WEBLib.TMSFNCUtils,\r\n  WEBLib.TMSFNCGeocoding.Google,\r\n  WEBLib.TMSFNCGeocoding.Here,\r\n  WEBLib.TMSFNCGeocoding.Bing,\r\n  WEBLib.TMSFNCGeocoding.Azure,\r\n  WEBLib.TMSFNCGeocoding.MapBox,\r\n  WEBLib.TMSFNCGeocoding.TomTom,\r\n  WEBLib.TMSFNCGeocoding.OpenStreetMap,\r\n  WEBLib.TMSFNCGeocoding.OpenRouteService,\r\n  WEBLib.TMSFNCGeocoding.GeoApify,\r\n  SysUtils\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Types\r\n  {$ENDIF}\r\n  ;\r\n\r\n{ TTMSFNCCustomGeocoding }\r\n\r\nfunction TTMSFNCCustomGeocoding.GetAPIKey: string;\r\nbegin\r\n  Result := APIKey;\r\nend;\r\n\r\nfunction TTMSFNCCustomGeocoding.GetDocURL: string;\r\nbegin\r\n  Result := TTMSFNCGeocodingDocURL;\r\nend;\r\n\r\nfunction TTMSFNCCustomGeocoding.GetVersion: string;\r\nvar\r\n  vn: Integer;\r\nbegin\r\n  vn := GetVersionNr;\r\n  Result := IntToStr(Hi(Hiword(vn)))+'.'+IntToStr(Lo(Hiword(vn)))+'.'+IntToStr(Hi(Loword(vn)))+'.'+IntToStr(Lo(Loword(vn)));\r\nend;\r\n\r\nfunction TTMSFNCCustomGeocoding.GetVersionNr: Integer;\r\nbegin\r\n  Result := MakeLong(MakeWord(BLD_VER,REL_VER),MakeWord(MIN_VER,MAJ_VER));\r\nend;\r\n\r\nprocedure TTMSFNCCustomGeocoding.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if (Source is TTMSFNCCustomGeocoding) then\r\n  begin\r\n    FService := (Source as TTMSFNCCustomGeocoding).Service;\r\n    FAPIKey := (Source as TTMSFNCCustomGeocoding).APIKey;\r\n    FGeocodingRequests.Assign((Source as TTMSFNCCustomGeocoding).GeocodingRequests);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGeocoding.GetGeocoding(AAddress: string;\r\n  ACallback: TTMSFNCGeocodingGetGeocodingCallBack = nil; AID: string = ''; ADataPointer: Pointer = nil;\r\n  ALocale: string = ''; AMode: TTMSFNCMapsLocaleMode = mlmDefault);\r\nbegin\r\n  InternalGetGeocoding(AAddress, ACallBack, nil, AID, ADataPointer, ALocale, AMode);\r\nend;\r\n\r\nprocedure TTMSFNCCustomGeocoding.InternalGetGeocoding(AAddress: string;\r\n  ACallback: TTMSFNCGeocodingGetGeocodingCallBack = nil; ACallback2: TTMSFNCGeocodingGetGeocodingResultCallBack = nil; AID: string = ''; ADataPointer: Pointer = nil;\r\n  ALocale: string = ''; AMode: TTMSFNCMapsLocaleMode = mlmDefault);\r\nbegin\r\n  if not GeocodingReady then\r\n  begin\r\n    raise Exception.Create('Please set API key!');\r\n    Exit;\r\n  end;\r\n\r\n  Request.Clear;\r\n  Request.ClearHeaders;\r\n  FGeocoding.AddHeaders(Request.Headers);\r\n  Request.Name := 'GET GEOCODING';\r\n  Request.DataString := AID;\r\n  Request.DataPointer := ADataPointer;\r\n\r\n  if Assigned(ACallback) then\r\n    Request.DataObject := TTMSFNCGeocodingCallBackWrapper.Create(ACallback)\r\n  else if Assigned(ACallback2) then\r\n    Request.DataObject := TTMSFNCGeocodingResultCallBackWrapper.Create(ACallback2);\r\n\r\n  Request.Method := FGeocoding.GetRequestMethod;\r\n  Request.Host := FGeocoding.GetHost;\r\n  Request.Path := FGeocoding.GetPath(TTMSFNCUtils.URLEncode(AAddress));\r\n  Request.Query := FGeocoding.GetQuery(TTMSFNCUtils.URLEncode(AAddress), ParseLocale(ALocale, AMode));\r\n  Request.PostData := FGeocoding.GetPostData;\r\n\r\n  ExecuteRequest({$IFDEF LCLWEBLIB}@{$ENDIF}DoRequestGetGeocoding);\r\nend;\r\n\r\nprocedure TTMSFNCCustomGeocoding.GetGeocodingResult(AAddress: string;\r\n  ACallback: TTMSFNCGeocodingGetGeocodingResultCallBack = nil; AID: string = ''; ADataPointer: Pointer = nil;\r\n  ALocale: string = ''; AMode: TTMSFNCMapsLocaleMode = mlmDefault);\r\nbegin\r\n  InternalGetGeocoding(AAddress, nil, ACallBack, AID, ADataPointer, ALocale, AMode);\r\nend;\r\n\r\nfunction TTMSFNCCustomGeocoding.GetGeocodingRequests: TTMSFNCGeocodingRequests;\r\nbegin\r\n  Result := GeocodingRequests;\r\nend;\r\n\r\nfunction TTMSFNCCustomGeocoding.GetGeocodingSync(AAddress, ALocale: string;\r\n  AMode: TTMSFNCMapsLocaleMode): TTMSFNCMapsCoordinateRec; {$IFDEF WEBLIB}async;{$ENDIF}\r\nbegin\r\n  Result := {$IFDEF WEBLIB}await(TTMSFNCMapsCoordinateRec,{$ENDIF} InternalGetGeocodingSync(AAddress, ALocale, AMode){$IFDEF WEBLIB}){$ENDIF};\r\nend;\r\n\r\nfunction TTMSFNCCustomGeocoding.InternalGetGeocodingSync(AAddress, ALocale: string;\r\n  AMode: TTMSFNCMapsLocaleMode): {$IFDEF WEBLIB}TJSPromise{$ELSE}TTMSFNCMapsCoordinateRec{$ENDIF};\r\nvar\r\n  req: TTMSFNCGeocodingRequest;\r\nbegin\r\n  if not GeocodingReady then\r\n  begin\r\n    raise Exception.Create('Please set API key!');\r\n    Exit;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  Result := TJSPromise.New(\r\n    procedure(AResolve, AReject : TJSPromiseResolver)\r\n    begin\r\n      GetGeocoding(AAddress,\r\n      procedure(const ARequest: TTMSFNCGeocodingRequest; const ARequestResult: TTMSFNCCloudBaseRequestResult)\r\n      var\r\n        c: TTMSFNCMapsCoordinateRec;\r\n      begin\r\n        c := EmptyCoordinate;\r\n        if ARequest.Items.Count > 0 then\r\n          c := ARequest.Items[0].Coordinate.ToRec;\r\n\r\n        AResolve(c);\r\n      end, '', nil, ALocale, AMode);\r\n    end);\r\n  {$ELSE}\r\n  Result := EmptyCoordinate;\r\n  Request.Clear;\r\n  Request.ClearHeaders;\r\n  FGeocoding.AddHeaders(Request.Headers);\r\n  Request.Name := 'GET GEOCODING SYNC';\r\n\r\n  Request.Method := FGeocoding.GetRequestMethod;\r\n  Request.Host := FGeocoding.GetHost;\r\n  Request.Path := FGeocoding.GetPath(TTMSFNCUtils.URLEncode(AAddress));\r\n  Request.Query := FGeocoding.GetQuery(TTMSFNCUtils.URLEncode(AAddress), ParseLocale(ALocale, AMode));\r\n  Request.PostData := FGeocoding.GetPostData;\r\n\r\n  ExecuteRequest(nil, nil, False);\r\n  if Assigned(RequestResult) then\r\n  begin\r\n    req := GeocodingRequests.Add;\r\n    FGeocoding.Parse(req, RequestResult.ResultString);\r\n    DoGetGeocoding(req, RequestResult);\r\n    if req.Items.Count > 0 then\r\n      Result := req.Items[0].Coordinate.ToRec;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCCustomGeocoding.GetInstance: NativeUInt;\r\nbegin\r\n  Result := HInstance;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGeocoding.GetReverseGeocoding(ACoordinate: TTMSFNCMapsCoordinateRec;\r\n  ACallback: TTMSFNCGeocodingGetReverseGeocodingCallBack = nil; AID: string = ''; ADataPointer: Pointer = nil;\r\n  ALocale: string = ''; AMode: TTMSFNCMapsLocaleMode = mlmDefault);\r\nbegin\r\n  InternalGetReverseGeocoding(ACoordinate, ACallback, nil, AID, ADataPointer, ALocale, AMode);\r\nend;\r\n\r\nprocedure TTMSFNCCustomGeocoding.InternalGetReverseGeocoding(ACoordinate: TTMSFNCMapsCoordinateRec;\r\n  ACallback: TTMSFNCGeocodingGetReverseGeocodingCallBack = nil; ACallback2: TTMSFNCGeocodingGetReverseGeocodingResultCallBack = nil; AID: string = ''; ADataPointer: Pointer = nil;\r\n  ALocale: string = ''; AMode: TTMSFNCMapsLocaleMode = mlmDefault);\r\nbegin\r\n  if not GeocodingReady then\r\n  begin\r\n    raise Exception.Create('Please set API key!');\r\n    Exit;\r\n  end;\r\n\r\n  Request.Clear;\r\n  Request.ClearHeaders;\r\n  FGeocoding.AddHeaders(Request.Headers);\r\n  Request.Name := 'GET REVERSEGEOCODING';\r\n  Request.DataString := AID;\r\n  Request.DataPointer := ADataPointer;\r\n  Request.DataBoolean := True;\r\n\r\n  if Assigned(ACallback) then\r\n    Request.DataObject := TTMSFNCReverseGeocodingCallBackWrapper.Create(ACallback)\r\n  else if Assigned(ACallback2) then\r\n    Request.DataObject := TTMSFNCReverseGeocodingResultCallBackWrapper.Create(ACallback2);\r\n\r\n  Request.Method := FGeocoding.GetRequestMethod;\r\n  Request.Host := FGeocoding.GetReverseHost;\r\n  Request.Path := FGeocoding.GetReversePath(ACoordinate);\r\n  Request.Query := FGeocoding.GetQuery(ACoordinate, ParseLocale(ALocale, AMode));\r\n  Request.PostData := FGeocoding.GetPostData;\r\n  ExecuteRequest({$IFDEF LCLWEBLIB}@{$ENDIF}DoRequestGetGeocoding);\r\nend;\r\n\r\nprocedure TTMSFNCCustomGeocoding.GetReverseGeocodingResult(ACoordinate: TTMSFNCMapsCoordinateRec;\r\n  ACallback: TTMSFNCGeocodingGetReverseGeocodingResultCallBack = nil; AID: string = ''; ADataPointer: Pointer = nil;\r\n  ALocale: string = ''; AMode: TTMSFNCMapsLocaleMode = mlmDefault);\r\nbegin\r\n  InternalGetReverseGeocoding(ACoordinate, nil, ACallback, AID, ADataPointer, ALocale, AMode);\r\nend;\r\n\r\nfunction TTMSFNCCustomGeocoding.GetReverseGeocodingSync(\r\n  ACoordinate: TTMSFNCMapsCoordinateRec; ALocale: string;\r\n  AMode: TTMSFNCMapsLocaleMode): string;{$IFDEF WEBLIB}async;{$ENDIF}\r\nbegin\r\n  Result := {$IFDEF WEBLIB}await(string,{$ENDIF} InternalGetReverseGeocodingSync(ACoordinate, ALocale, AMode){$IFDEF WEBLIB}){$ENDIF};\r\nend;\r\n\r\nfunction TTMSFNCCustomGeocoding.InternalGetReverseGeocodingSync(\r\n  ACoordinate: TTMSFNCMapsCoordinateRec; ALocale: string;\r\n  AMode: TTMSFNCMapsLocaleMode): {$IFDEF WEBLIB}TJSPromise{$ELSE}string{$ENDIF};\r\nvar\r\n  req: TTMSFNCGeocodingRequest;\r\nbegin\r\n  if not GeocodingReady then\r\n  begin\r\n    raise Exception.Create('Please set API key!');\r\n    Exit;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  Result := TJSPromise.New(\r\n    procedure(AResolve, AReject : TJSPromiseResolver)\r\n    begin\r\n      GetReverseGeocoding(ACoordinate,\r\n      procedure(const ARequest: TTMSFNCGeocodingRequest; const ARequestResult: TTMSFNCCloudBaseRequestResult)\r\n      var\r\n        s: string;\r\n      begin\r\n        s := '';\r\n        if ARequest.Items.Count > 0 then\r\n          s := ARequest.Items[0].Address;\r\n\r\n        AResolve(s);\r\n      end, '', nil, ALocale, AMode);\r\n    end);\r\n\r\n  {$ELSE}\r\n  Result := '';\r\n  Request.Clear;\r\n  Request.ClearHeaders;\r\n  FGeocoding.AddHeaders(Request.Headers);\r\n  Request.Name := 'GET REVERSEGEOCODING SYNC';\r\n\r\n  Request.Method := FGeocoding.GetRequestMethod;\r\n  Request.Host := FGeocoding.GetReverseHost;\r\n  Request.Path := FGeocoding.GetReversePath(ACoordinate);\r\n  Request.Query := FGeocoding.GetQuery(ACoordinate, ParseLocale(ALocale, AMode));\r\n  Request.PostData := FGeocoding.GetPostData;\r\n  ExecuteRequest(nil, nil, False);\r\n  if Assigned(RequestResult) then\r\n  begin\r\n    req := GeocodingRequests.Add;\r\n    FGeocoding.Parse(req, RequestResult.ResultString);\r\n    DoGetReverseGeocoding(req, RequestResult);\r\n    if req.Items.Count > 0 then\r\n      Result := req.Items[0].Address;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCCustomGeocoding.GetTipsURL: string;\r\nbegin\r\n  Result := TTMSFNCGeocodingTipsURL;\r\nend;\r\n\r\nconstructor TTMSFNCCustomGeocoding.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  Supports(Self, ITMSFNCCustomGeocodingProperties, FGeocodingProperties);\r\n  FGeocodingRequests := TTMSFNCGeocodingRequests.Create(Self);\r\n  InitializeGeocoding;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGeocoding.InitializeGeocoding;\r\nvar\r\n  GeocodingServiceGoogleGeocoding: ITMSFNCGeocodingServiceGoogle;\r\n  GeocodingServiceHereGeocoding: ITMSFNCGeocodingServiceHere;\r\n  GeocodingServiceBingGeocoding: ITMSFNCGeocodingServiceBing;\r\n  GeocodingServiceAzureGeocoding: ITMSFNCGeocodingServiceAzure;\r\n  GeocodingServiceMapBoxGeocoding: ITMSFNCGeocodingServiceMapBox;\r\n  GeocodingServiceTomTomGeocoding: ITMSFNCGeocodingServiceTomTom;\r\n  GeocodingServiceOpenStreetMapGeocoding: ITMSFNCGeocodingServiceOpenStreetMap;\r\n  GeocodingServiceOpenRouteServiceGeocoding: ITMSFNCGeocodingServiceOpenRouteService;\r\n  GeocodingServiceGeoApifyGeocoding: ITMSFNCGeocodingServiceGeoApify;\r\nbegin\r\n  if IsDestroying then\r\n    Exit;\r\n\r\n  if Assigned(FGeocoding) then\r\n    FGeocoding.DestroyGeocoding;\r\n\r\n  FGeocoding := nil;\r\n  FGeocodingInstance := nil;\r\n\r\n  case Service of\r\n    gsGoogle:\r\n    begin\r\n      if TTMSFNCGeocodingPlatformServices.Current.SupportsPlatformService(ITMSFNCGeocodingServiceGoogle, IInterface(GeocodingServiceGoogleGeocoding)) then\r\n        FGeocoding := GeocodingServiceGoogleGeocoding.CreateGeocoding;\r\n    end;\r\n    gsHere:\r\n    begin\r\n      if TTMSFNCGeocodingPlatformServices.Current.SupportsPlatformService(ITMSFNCGeocodingServiceHere, IInterface(GeocodingServiceHereGeocoding)) then\r\n        FGeocoding := GeocodingServiceHereGeocoding.CreateGeocoding;\r\n    end;\r\n    gsBing:\r\n    begin\r\n      if TTMSFNCGeocodingPlatformServices.Current.SupportsPlatformService(ITMSFNCGeocodingServiceBing, IInterface(GeocodingServiceBingGeocoding)) then\r\n        FGeocoding := GeocodingServiceBingGeocoding.CreateGeocoding;\r\n      TTMSFNCUtils.Log('The Bing Geocoding service is deprecated. It is recommend to use a different service.');\r\n    end;\r\n    gsAzure:\r\n    begin\r\n      if TTMSFNCGeocodingPlatformServices.Current.SupportsPlatformService(ITMSFNCGeocodingServiceAzure, IInterface(GeocodingServiceAzureGeocoding)) then\r\n        FGeocoding := GeocodingServiceAzureGeocoding.CreateGeocoding;\r\n    end;\r\n    gsMapBox:\r\n    begin\r\n      if TTMSFNCGeocodingPlatformServices.Current.SupportsPlatformService(ITMSFNCGeocodingServiceMapBox, IInterface(GeocodingServiceMapBoxGeocoding)) then\r\n        FGeocoding := GeocodingServiceMapBoxGeocoding.CreateGeocoding;\r\n    end;\r\n    gsTomTom:\r\n    begin\r\n      if TTMSFNCGeocodingPlatformServices.Current.SupportsPlatformService(ITMSFNCGeocodingServiceTomTom, IInterface(GeocodingServiceTomTomGeocoding)) then\r\n        FGeocoding := GeocodingServiceTomTomGeocoding.CreateGeocoding;\r\n    end;\r\n    gsOpenStreetMap:\r\n    begin\r\n      if TTMSFNCGeocodingPlatformServices.Current.SupportsPlatformService(ITMSFNCGeocodingServiceOpenStreetMap, IInterface(GeocodingServiceOpenStreetMapGeocoding)) then\r\n        FGeocoding := GeocodingServiceOpenStreetMapGeocoding.CreateGeocoding;\r\n    end;\r\n    gsOpenRouteService:\r\n    begin\r\n      if TTMSFNCGeocodingPlatformServices.Current.SupportsPlatformService(ITMSFNCGeocodingServiceOpenRouteService, IInterface(GeocodingServiceOpenRouteServiceGeocoding)) then\r\n        FGeocoding := GeocodingServiceOpenRouteServiceGeocoding.CreateGeocoding;\r\n    end;\r\n    gsGeoApify:\r\n    begin\r\n      if TTMSFNCGeocodingPlatformServices.Current.SupportsPlatformService(ITMSFNCGeocodingServiceGeoApify, IInterface(GeocodingServiceGeoApifyGeocoding)) then\r\n        FGeocoding := GeocodingServiceGeoApifyGeocoding.CreateGeocoding;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(FGeocoding) and Supports(FGeocoding, ITMSFNCCustomGeocodingInstance, FGeocodingInstance) then\r\n    FGeocodingInstance.SetGeocodingProperties(FGeocodingProperties);\r\nend;\r\n\r\nfunction TTMSFNCCustomGeocoding.GeocodingReady: Boolean;\r\nbegin\r\n  Result := Assigned(FGeocoding) and Assigned(FGeocodingInstance) and Assigned(FGeocodingProperties) and FGeocoding.IsValid;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGeocoding.DoGetReverseGeocoding(const ARequest: TTMSFNCGeocodingRequest;\r\n  const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\nbegin\r\n  if Assigned(OnGetReverseGeocodingInternal) then\r\n    OnGetReverseGeocodingInternal(Self, ARequest, ARequestResult);\r\n  if Assigned(OnGetReverseGeocoding) then\r\n    OnGetReverseGeocoding(Self, ARequest, ARequestResult);\r\n  if Assigned(OnGetReverseGeocodingResultInternal) then\r\n    OnGetReverseGeocodingResultInternal(Self, ARequest);\r\n  if Assigned(OnGetReverseGeocodingResult) then\r\n    OnGetReverseGeocodingResult(Self, ARequest);\r\nend;\r\n\r\nprocedure TTMSFNCCustomGeocoding.DoGetGeocoding(const ARequest: TTMSFNCGeocodingRequest;\r\n  const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\nbegin\r\n  if Assigned(OnGetGeocodingInternal) then\r\n    OnGetGeocodingInternal(Self, ARequest, ARequestResult);\r\n  if Assigned(OnGetGeocoding) then\r\n    OnGetGeocoding(Self, ARequest, ARequestResult);\r\n  if Assigned(OnGetGeocodingResultInternal) then\r\n    OnGetGeocodingResultInternal(Self, ARequest);\r\n  if Assigned(OnGetGeocodingResult) then\r\n    OnGetGeocodingResult(Self, ARequest);\r\nend;\r\n\r\nprocedure TTMSFNCCustomGeocoding.DoRequestGetGeocoding(\r\n  const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\nvar\r\n  req: TTMSFNCGeocodingRequest;\r\n  obj: TTMSFNCGeocodingCallBackWrapper;\r\n  obj2: TTMSFNCGeocodingResultCallBackWrapper;\r\n  obj3: TTMSFNCReverseGeocodingResultCallBackWrapper;\r\nbegin\r\n  if not GeocodingReady then\r\n    Exit;\r\n\r\n  //if ARequestResult.Success then\r\n  //if there is an error, trigger the event and parse the error message instead\r\n  begin\r\n    req := GeocodingRequests.Add;\r\n    req.FID := ARequestResult.DataString;\r\n    req.DataPointer := ARequestResult.DataPointer;\r\n    FGeocoding.Parse(req, ARequestResult.ResultString);\r\n\r\n    if not ARequestResult.DataBoolean then\r\n      DoGetGeocoding(req, ARequestResult)\r\n    else\r\n      DoGetReverseGeocoding(req, ARequestResult);\r\n\r\n    if Assigned(ARequestResult.DataObject) then\r\n    begin\r\n      if ARequestResult.DataObject is TTMSFNCGeocodingCallBackWrapper then\r\n      begin\r\n        obj := TTMSFNCGeocodingCallBackWrapper(ARequestResult.DataObject);\r\n        obj.FCallback(req, ARequestResult);\r\n        obj.Free;\r\n      end\r\n      else if ARequestResult.DataObject is TTMSFNCGeocodingResultCallBackWrapper then\r\n      begin\r\n        obj2 := TTMSFNCGeocodingResultCallBackWrapper(ARequestResult.DataObject);\r\n        obj2.FCallback(req);\r\n        obj2.Free;\r\n      end\r\n      else if ARequestResult.DataObject is TTMSFNCReverseGeocodingCallBackWrapper then\r\n      begin\r\n        obj3 := TTMSFNCReverseGeocodingResultCallBackWrapper(ARequestResult.DataObject);\r\n        obj3.FCallback(req);\r\n        obj3.Free;\r\n      end\r\n      else if ARequestResult.DataObject is TTMSFNCReverseGeocodingResultCallBackWrapper then\r\n      begin\r\n        obj3 := TTMSFNCReverseGeocodingResultCallBackWrapper(ARequestResult.DataObject);\r\n        obj3.FCallback(req);\r\n        obj3.Free;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomGeocoding.Geocoding: ITMSFNCCustomGeocoding;\r\nbegin\r\n  Result := FGeocoding;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGeocoding.SetAPIKey(const Value: string);\r\nbegin\r\n  if FAPIKey <> Value then\r\n    FAPIKey := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGeocoding.SetService(const Value: TTMSFNCGeocodingService);\r\nbegin\r\n  if FService <> Value then\r\n  begin\r\n    FService := Value;\r\n    InitializeGeocoding;\r\n  end;\r\nend;\r\n\r\ndestructor TTMSFNCCustomGeocoding.Destroy;\r\nbegin\r\n  FGeocodingRequests.Free;\r\n\r\n  if Assigned(FGeocoding) then\r\n    FGeocoding.DestroyGeocoding;\r\n\r\n  FGeocoding := nil;\r\n  FGeocodingInstance := nil;\r\n  FGeocodingProperties := nil;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGeocoding.SetGeocodingRequests(const Value: TTMSFNCGeocodingRequests);\r\nbegin\r\n  FGeocodingRequests.Assign(Value);\r\nend;\r\n\r\n{ TTMSFNCGeocodingFactoryService }\r\n\r\nconstructor TTMSFNCGeocodingFactoryService.Create;\r\nbegin\r\n  inherited Create;\r\n  FGeocoding := TTMSFNCGeocodingList.Create;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingFactoryService.CreateGeocoding: ITMSFNCCustomGeocoding;\r\nbegin\r\n  Result := DoCreateGeocoding;\r\n  FGeocoding.Add(Result);\r\nend;\r\n\r\ndestructor TTMSFNCGeocodingFactoryService.Destroy;\r\nbegin\r\n  FreeAndNil(FGeocoding);\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingFactoryService.DestroyGeocoding(AGeocoding: ITMSFNCCustomGeocoding);\r\nbegin\r\n  FGeocoding.Remove(AGeocoding)\r\nend;\r\n\r\n{ TTMSFNCGeocodingPlatformServices }\r\n\r\nprocedure TTMSFNCGeocodingPlatformServices.AddPlatformService(const AServiceGUID: TGUID; const AService: IInterface);\r\nvar\r\n  LService: IInterface;\r\nbegin\r\n  if not FServicesList.ContainsKey(GUIDToString(AServiceGUID)) then\r\n  begin\r\n    if Supports(AService, AServiceGUID, LService) then\r\n      FServicesList.Add(TTMSFNCGeocodingPlatformServicesService.Create(GUIDToString(AServiceGUID), AService));\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCGeocodingPlatformServices.Create;\r\nbegin\r\n  inherited;\r\n  FServicesList := TTMSFNCGeocodingPlatformServicesList.Create;\r\nend;\r\n\r\ndestructor TTMSFNCGeocodingPlatformServices.Destroy;\r\nbegin\r\n  FreeAndNil(FServicesList);\r\n  inherited;\r\nend;\r\n\r\n{$IFNDEF AUTOREFCOUNT}\r\nclass procedure TTMSFNCGeocodingPlatformServices.ReleaseCurrent;\r\nbegin\r\n  FreeAndNil(FCurrent);\r\n  FCurrentReleased := True;\r\nend;\r\n{$ENDIF}\r\n\r\nclass function TTMSFNCGeocodingPlatformServices.Current: TTMSFNCGeocodingPlatformServices;\r\nbegin\r\n  if (FCurrent = nil) and not FCurrentReleased then\r\n    FCurrent := TTMSFNCGeocodingPlatformServices.Create;\r\n  Result := FCurrent;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingPlatformServices.GetPlatformService(const AServiceGUID: TGUID): IInterface;\r\nvar\r\n  k: IInterface;\r\nbegin\r\n  k := FServicesList.Interfaces[GUIDToString(AServiceGUID)];\r\n  Supports(k, AServiceGUID, Result);\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingPlatformServices.RemovePlatformService(const AServiceGUID: TGUID);\r\nbegin\r\n  FServicesList.RemoveByGUID(GUIDToString(AServiceGUID));\r\nend;\r\n\r\nfunction TTMSFNCGeocodingPlatformServices.SupportsPlatformService(const AServiceGUID: TGUID;\r\n  var AService: IInterface): Boolean;\r\nbegin\r\n  if FServicesList.ContainsKey(GUIDToString(AServiceGUID)) then\r\n    Result := Supports(FServicesList.Interfaces[GUIDToString(AServiceGUID)], AServiceGUID, AService)\r\n  else\r\n  begin\r\n    AService := nil;\r\n    Result := False;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingPlatformServices.SupportsPlatformService(const AServiceGUID: TGUID): Boolean;\r\nbegin\r\n  Result := FServicesList.ContainsKey(GUIDToString(AServiceGUID));\r\nend;\r\n\r\n{ TTMSFNCGeocodingPlatformServicesService }\r\n\r\nconstructor TTMSFNCGeocodingPlatformServicesService.Create(AGUID: string;\r\n  AInterface: IInterface);\r\nbegin\r\n  FGUID := AGUID;\r\n  FInterface := AInterface;\r\nend;\r\n\r\n{ TTMSFNCGeocodingPlatformServicesList }\r\n\r\nfunction TTMSFNCGeocodingPlatformServicesList.ContainsKey(AGUID: string): Boolean;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := False;\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    if Items[I].GUID = AGUID then\r\n    begin\r\n      Result := True;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingPlatformServicesList.GetValue(AGUID: string): IInterface;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := nil;\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    if Items[I].GUID = AGUID then\r\n    begin\r\n      Result := Items[I].&Interface;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingPlatformServicesList.RemoveByGUID(AGUID: string);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := Count - 1 downto 0 do\r\n  begin\r\n    if Items[I].GUID = AGUID then\r\n    begin\r\n      Remove(Items[I]);\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{$IFDEF WEBLIB}\r\nfunction TTMSFNCGeocodingPlatformServicesList.GetItem(Index: Integer): TTMSFNCGeocodingPlatformServicesService;\r\nbegin\r\n  Result := TTMSFNCGeocodingPlatformServicesService(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingPlatformServicesList.SetItem(Index: Integer; const Value: TTMSFNCGeocodingPlatformServicesService);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingList.GetItem(Index: Integer): ITMSFNCCustomGeocoding;\r\nbegin\r\n  Result := ITMSFNCCustomGeocoding(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingList.SetItem(Index: Integer; const Value: ITMSFNCCustomGeocoding);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n{$ENDIF}\r\n\r\n{ TTMSFNCCustomGeocodingInterfacedObject }\r\n\r\ndestructor TTMSFNCCustomGeocodingInterfacedObject.Destroy;\r\nbegin\r\n  FGeocodingProperties := nil;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCCustomGeocodingInterfacedObject.GetGeocodingProperties: ITMSFNCCustomGeocodingProperties;\r\nbegin\r\n  Result := FGeocodingProperties;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGeocodingInterfacedObject.SetGeocodingProperties(\r\n  const Value: ITMSFNCCustomGeocodingProperties);\r\nbegin\r\n  FGeocodingProperties := Value;\r\nend;\r\n\r\n{ TTMSFNCGeocodingItem }\r\n\r\nprocedure TTMSFNCGeocodingItem.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCGeocodingItem then\r\n  begin\r\n    FCoordinate.Assign(TTMSFNCGeocodingItem(Source).Coordinate);\r\n    FAddress := TTMSFNCGeocodingItem(Source).Address;\r\n    FCity := TTMSFNCGeocodingItem(Source).City;\r\n    FDistrict := TTMSFNCGeocodingItem(Source).District;\r\n    FCountry := TTMSFNCGeocodingItem(Source).Country;\r\n    FCountryCode := TTMSFNCGeocodingItem(Source).CountryCode;\r\n    FProvince := TTMSFNCGeocodingItem(Source).Province;\r\n    FProvinceCode := TTMSFNCGeocodingItem(Source).ProvinceCode;\r\n    FRegion := TTMSFNCGeocodingItem(Source).Region;\r\n    FRegionCode := TTMSFNCGeocodingItem(Source).RegionCode;\r\n    FStreet := TTMSFNCGeocodingItem(Source).Street;\r\n    FStreetNumber := TTMSFNCGeocodingItem(Source).StreetNumber;\r\n    FStreetName := TTMSFNCGeocodingItem(Source).StreetName;\r\n    FPostalCode := TTMSFNCGeocodingItem(Source).PostalCode;\r\n    FIntersection := TTMSFNCGeocodingItem(Source).Intersection;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCGeocodingItem.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(ACollection) then\r\n    FOwner := (Collection as TTMSFNCGeocodingItems).FOwner;\r\n\r\n  FCoordinate := TTMSFNCMapsCoordinate.Create;\r\n  FAddress := '';\r\n  FCity := '';\r\n  FDistrict := '';\r\n  FRegion := '';\r\n  FRegionCode := '';\r\n  FCountry := '';\r\n  FCountryCode := '';\r\n  FProvince := '';\r\n  FProvinceCode := '';\r\n  FStreet := '';\r\n  FStreetNumber := '';\r\n  FStreetName := '';\r\n  FPostalCode := '';\r\n  FIntersection := '';\r\nend;\r\n\r\ndestructor TTMSFNCGeocodingItem.Destroy;\r\nbegin\r\n  FCoordinate.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingItem.SetCoordinate(\r\n  const Value: TTMSFNCMapsCoordinate);\r\nbegin\r\n  FCoordinate.Assign(Value);\r\nend;\r\n\r\n{ TTMSFNCGeocodingItems }\r\n\r\nfunction TTMSFNCGeocodingItems.Add: TTMSFNCGeocodingItem;\r\nbegin\r\n  Result := TTMSFNCGeocodingItem(inherited Add);\r\nend;\r\n\r\nconstructor TTMSFNCGeocodingItems.Create(AOwner: TTMSFNCCustomGeocoding);\r\nbegin\r\n  inherited Create(AOwner, CreateItemClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingItems.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCGeocodingItem;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingItems.GetItem(\r\n  Index: Integer): TTMSFNCGeocodingItem;\r\nbegin\r\n  Result := TTMSFNCGeocodingItem(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCGeocodingItems.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingItems.Insert(\r\n  Index: Integer): TTMSFNCGeocodingItem;\r\nbegin\r\n  Result := TTMSFNCGeocodingItem(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingItems.SetItem(Index: Integer;\r\n  const Value: TTMSFNCGeocodingItem);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCGeocodingRequest }\r\n\r\nprocedure TTMSFNCGeocodingRequest.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCGeocodingRequest then\r\n  begin\r\n    FItems.Assign((Source as TTMSFNCGeocodingRequest).Items);\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCGeocodingRequest.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(ACollection) then\r\n    FOwner := (Collection as TTMSFNCGeocodingRequests).FOwner;\r\n\r\n  FItems := TTMSFNCGeocodingItems.Create(FOwner);\r\n  FID := '';\r\n  FStatus := '';\r\n  FErrorMessage := '';\r\nend;\r\n\r\ndestructor TTMSFNCGeocodingRequest.Destroy;\r\nbegin\r\n  FItems.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingRequest.GetFirst: TTMSFNCGeocodingItem;\r\nbegin\r\n  Result := nil;\r\n  if Items.Count > 0 then\r\n    Result := Items[0];\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingRequest.SetErrorMessage(const Value: string);\r\nbegin\r\n  FErrorMessage := Value;\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingRequest.SetItems(const Value: TTMSFNCGeocodingItems);\r\nbegin\r\n  FItems.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingRequest.SetStatus(const Value: string);\r\nbegin\r\n  FStatus := Value;\r\nend;\r\n\r\n{ TTMSFNCGeocodingRequests }\r\n\r\nfunction TTMSFNCGeocodingRequests.Add: TTMSFNCGeocodingRequest;\r\nbegin\r\n  Result := TTMSFNCGeocodingRequest(inherited Add);\r\nend;\r\n\r\nconstructor TTMSFNCGeocodingRequests.Create(AOwner: TTMSFNCCustomGeocoding);\r\nbegin\r\n  inherited Create(AOwner, CreateItemClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingRequests.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCGeocodingRequest;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingRequests.GetItem(\r\n  Index: Integer): TTMSFNCGeocodingRequest;\r\nbegin\r\n  Result := TTMSFNCGeocodingRequest(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCGeocodingRequests.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCGeocodingRequests.Insert(\r\n  Index: Integer): TTMSFNCGeocodingRequest;\r\nbegin\r\n  Result := TTMSFNCGeocodingRequest(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCGeocodingRequests.SetItem(Index: Integer;\r\n  const Value: TTMSFNCGeocodingRequest);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n\r\n{ TTMSFNCGeocodingCallBackWrapper }\r\n\r\nconstructor TTMSFNCGeocodingCallBackWrapper.Create(\r\n  ACallback: TTMSFNCGeocodingGetGeocodingCallBack);\r\nbegin\r\n  FCallback := ACallback;\r\nend;\r\n\r\n{ TTMSFNCGeocodingResultCallBackWrapper }\r\n\r\nconstructor TTMSFNCGeocodingResultCallBackWrapper.Create(\r\n  ACallback: TTMSFNCGeocodingGetGeocodingResultCallBack);\r\nbegin\r\n  FCallback := ACallback;\r\nend;\r\n\r\n{ TTMSFNCGeocoding }\r\n\r\nprocedure TTMSFNCGeocoding.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClasses([TTMSFNCGeocoding]);\r\nend;\r\n\r\n{ TTMSFNCReverseGeocodingResultCallBackWrapper }\r\n\r\nconstructor TTMSFNCReverseGeocodingResultCallBackWrapper.Create(\r\n  ACallback: TTMSFNCGeocodingGetReverseGeocodingResultCallBack);\r\nbegin\r\n  FCallback := ACallback;\r\nend;\r\n\r\n{ TTMSFNCReverseGeocodingCallBackWrapper }\r\n\r\nconstructor TTMSFNCReverseGeocodingCallBackWrapper.Create(\r\n  ACallback: TTMSFNCGeocodingGetReverseGeocodingCallBack);\r\nbegin\r\n  FCallback := ACallback;\r\nend;\r\n\r\ninitialization\r\nbegin\r\n  TTMSFNCGeocodingPlatformServices.FCurrentReleased := False;\r\n  RegisterGoogleGeocodingService;\r\n  RegisterHereGeocodingService;\r\n  RegisterBingGeocodingService;\r\n  RegisterAzureGeocodingService;\r\n  RegisterMapBoxGeocodingService;\r\n  RegisterTomTomGeocodingService;\r\n  RegisterOpenStreetMapGeocodingService;\r\n  RegisterOpenRouteServiceGeocodingService;\r\n  RegisterGeoApifyGeocodingService;\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\nfinalization\r\nbegin\r\n  UnRegisterGoogleGeocodingService;\r\n  UnRegisterHereGeocodingService;\r\n  UnRegisterBingGeocodingService;\r\n  UnRegisterAzureGeocodingService;\r\n  UnRegisterMapBoxGeocodingService;\r\n  UnRegisterTomTomGeocodingService;\r\n  UnRegisterOpenStreetMapGeocodingService;\r\n  UnRegisterOpenRouteServiceGeocodingService;\r\n  UnRegisterGeoApifyGeocodingService;\r\n  {$IFNDEF AUTOREFCOUNT}\r\n  TTMSFNCGeocodingPlatformServices.ReleaseCurrent;\r\n  {$ENDIF}\r\nend;\r\n{$ENDIF}\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCDirections.Google;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nprocedure RegisterGoogleDirectionsService;\r\nprocedure UnRegisterGoogleDirectionsService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCDirections,\r\n  WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes, WEBLib.TMSFNCCloudBase\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 26}\r\n  ,JSON\r\n  {$ELSE}\r\n  ,DBXJSON\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  ,fpjson\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web, WEBLIB.JSON\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCDirectionsGoogleService = class;\r\n\r\n  TTMSFNCDirectionsGoogleDirectionsFactoryService = class(TTMSFNCDirectionsFactoryService, ITMSFNCDirectionsServiceGoogle);\r\n\r\n  TTMSFNCDirectionsGoogleService = class(TTMSFNCDirectionsGoogleDirectionsFactoryService)\r\n  protected\r\n    function DoCreateDirections: ITMSFNCCustomDirections; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCDirectionsGoogleDirections = class;\r\n\r\n  TTMSFNCDirectionsGoogleDirections = class(TTMSFNCCustomDirectionsInterfacedObject, ITMSFNCCustomDirections)\r\n  protected\r\n    FTravelMode: TTMSFNCDirectionsTravelMode;\r\n    function GetIdentifier: string;\r\n    function IsValid: Boolean;\r\n    function GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\n    function GetHost: string;\r\n    function GetPath(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil): string;\r\n    function GetQuery(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAVoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\n    function GetPostData(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAvoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\n    procedure Parse(ARequest: TTMSFNCDirectionsRequest; ARequestResult: string);\r\n    procedure AddHeaders(AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\n    procedure DestroyDirections;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  DirectionsService: ITMSFNCDirectionsServiceGoogle;\r\n\r\nprocedure RegisterGoogleDirectionsService;\r\nbegin\r\n  if not TTMSFNCDirectionsPlatformServices.Current.SupportsPlatformService(ITMSFNCDirectionsServiceGoogle, IInterface(DirectionsService)) then\r\n  begin\r\n    DirectionsService := TTMSFNCDirectionsGoogleService.Create;\r\n    TTMSFNCDirectionsPlatformServices.Current.AddPlatformService(ITMSFNCDirectionsServiceGoogle, DirectionsService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterGoogleDirectionsService;\r\nbegin\r\n  TTMSFNCDirectionsPlatformServices.Current.RemovePlatformService(ITMSFNCDirectionsServiceGoogle);\r\nend;\r\n\r\n{ TTMSFNCDirectionsGoogleService }\r\n\r\nfunction TTMSFNCDirectionsGoogleService.DoCreateDirections: ITMSFNCCustomDirections;\r\nbegin\r\n  Result := TTMSFNCDirectionsGoogleDirections.Create;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsGoogleDirections.AddHeaders(\r\n  AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\nbegin\r\n\r\nend;\r\n\r\nconstructor TTMSFNCDirectionsGoogleDirections.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCDirectionsGoogleDirections.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsGoogleDirections.DestroyDirections;\r\nbegin\r\n  DirectionsService.DestroyDirections(Self);\r\nend;\r\n\r\nfunction TTMSFNCDirectionsGoogleDirections.GetHost: string;\r\nbegin\r\n  Result := 'https://maps.googleapis.com';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsGoogleDirections.GetIdentifier: string;\r\nbegin\r\n  Result := 'Google';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsGoogleDirections.GetPath(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil): string;\r\nbegin\r\n  Result := '/maps/api/directions/json';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsGoogleDirections.GetPostData(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAvoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsGoogleDirections.GetQuery(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n  ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n  ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n  AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAVoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\nvar\r\n  TravelMode, WayPoints: string;\r\n  I: Integer;\r\nbegin\r\n  if ATravelMode in [tmTruck] then\r\n    FTravelMode := tmDriving\r\n  else\r\n    FTravelMode := ATravelMode;\r\n\r\n  case ATravelMode of\r\n    tmDriving: TravelMode := '';\r\n    tmWalking: TravelMode := 'walking';\r\n    tmBicycling: TravelMode := 'bicycling';\r\n    tmPublicTransport: TravelMode := 'transit';\r\n  end;\r\n\r\n  WayPoints := '';\r\n\r\n  if Assigned(AWayPointList) and (AWayPointList.Count > 0) then\r\n  begin\r\n    WayPoints := '&waypoints=';\r\n    WayPoints := WayPoints + 'optimize:' + BoolToStrEx(AOptimizeWayPoints);\r\n    for I := 0 to (AWayPointList.Count - 1) do\r\n      WayPoints := WayPoints + '|' + AWayPointList[I];\r\n  end;\r\n\r\n  if Assigned(AWaypoints) and (Length(AWayPoints) > 0) then\r\n  begin\r\n    WayPoints := '&waypoints=';\r\n    WayPoints := WayPoints + 'optimize:' + BoolToStrEx(AOptimizeWayPoints);\r\n    for I := 0 to (Length(AWayPoints) - 1) do\r\n      WayPoints := WayPoints + '|' + TTMSFNCUtils.FloatToStrDot(AWayPoints[I].Latitude) + ',' + TTMSFNCUtils.FloatToStrDot(AWayPoints[I].Longitude);\r\n  end;\r\n\r\n  if AOrigin = '' then\r\n    AOrigin := TTMSFNCUtils.FloatToStrDot(AOriginLatitude) + ',' + TTMSFNCUtils.FloatToStrDot(AOriginLongitude);\r\n  if ADestination = '' then\r\n    ADestination := TTMSFNCUtils.FloatToStrDot(ADestinationLatitude) + ',' + TTMSFNCUtils.FloatToStrDot(ADestinationLongitude);\r\n\r\n  Result := 'key=' + DirectionsProperties.GetAPIKey\r\n    + '&origin=' + AOrigin\r\n    + '&destination=' + ADestination\r\n    + '&alternatives=' + BoolToStrEx(AAlternatives)\r\n    + '&mode=' + TravelMode\r\n    + '&language=' + ALocale\r\n    + WayPoints;\r\n\r\n  if AAvoidTolls or AAvoidHighways then\r\n  begin\r\n    Result := Result + '&avoid=';\r\n\r\n    if AAvoidTolls then\r\n      Result := Result + 'tolls|';\r\n\r\n    if AAvoidHighways then\r\n      Result := Result + 'highways';\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsGoogleDirections.GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\nbegin\r\n  Result := rmGet;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsGoogleDirections.IsValid: Boolean;\r\nbegin\r\n  Result := DirectionsProperties.GetAPIKey <> '';\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsGoogleDirections.Parse(ARequest: TTMSFNCDirectionsRequest; ARequestResult: string);\r\nvar\r\n  d: TTMSFNCDirectionsItems;\r\n  di: TTMSFNCDirectionsItem;\r\n  step, lstep: TTMSFNCDirectionsStep;\r\n  wp: TTMSFNCDirectionsWayPoint;\r\n  l: TTMSFNCDirectionsLeg;\r\n\r\n  o, jo, jol, jos: TJSONValue;\r\n  jar, jal, jas: TJSONArray;\r\n  i, j, k, lm: Integer;\r\n  op, ol, os: TJSONObject;\r\n  wpIndex: array of integer;\r\nbegin\r\n  if Assigned(DirectionsProperties) then\r\n  begin\r\n    ARequest.TravelMode := FTravelMode;\r\n\r\n    d := ARequest.Items;\r\n    if Assigned(d) then\r\n    begin\r\n      if ARequestResult <> '' then\r\n      begin\r\n        o := TTMSFNCUtils.ParseJSON(ARequestResult);\r\n        if Assigned(o) then\r\n        begin\r\n          try\r\n            ARequest.Status := TTMSFNCUtils.GetJSONProp(o, 'status');\r\n            ARequest.ErrorMessage := TTMSFNCUtils.GetJSONProp(o, 'error_message');\r\n\r\n            jar := TTMSFNCUtils.GetJSONValue(o, 'routes') as TJSONArray;\r\n            if Assigned(jar) then\r\n            begin\r\n\r\n              for i := 0 to TTMSFNCUtils.GetJSONArraySize(jar) - 1 do\r\n              begin\r\n                jo := TTMSFNCUtils.GetJSONArrayItem(jar, i);\r\n\r\n                di := d.Add;\r\n                di.Summary := TTMSFNCUtils.GetJSONProp(jo, 'summary');\r\n\r\n//                ob := TTMSFNCUtils.GetJSONValue(jo, 'bounds') as TJSONObject;\r\n//                if Assigned(ob) then\r\n//                begin\r\n//                  oc := TTMSFNCUtils.GetJSONValue(ob, 'northeast') as TJSONObject;\r\n//                  if Assigned(oc) then\r\n//                  begin\r\n//                    di.Bounds.NorthEast.Latitude := TTMSFNCUtils.GetJSONDoubleValue(oc, 'lat');\r\n//                    di.Bounds.NorthEast.Longitude := TTMSFNCUtils.GetJSONDoubleValue(oc, 'lng');\r\n//                  end;\r\n//                  oc := TTMSFNCUtils.GetJSONValue(ob, 'southwest') as TJSONObject;\r\n//                  if Assigned(oc) then\r\n//                  begin\r\n//                    di.Bounds.SouthWest.Latitude := TTMSFNCUtils.GetJSONDoubleValue(oc, 'lat');\r\n//                    di.Bounds.SouthWest.Longitude := TTMSFNCUtils.GetJSONDoubleValue(oc, 'lng');\r\n//                  end;\r\n//                end;\r\n\r\n                op := TTMSFNCUtils.GetJSONValue(jo, 'overview_polyline') as TJSONObject;\r\n                if Assigned(op) then\r\n                  DecodeValues(TTMSFNCUtils.GetJSONProp(op, 'points'), di.Coordinates);\r\n\r\n                SetLength(wpIndex, 1);\r\n                wpIndex[0] := -1;\r\n\r\n                jal := TTMSFNCUtils.GetJSONValue(jo, 'waypoint_order') as TJSONArray;\r\n                if Assigned(jal) then\r\n                begin\r\n                  SetLength(wpIndex, TTMSFNCUtils.GetJSONArraySize(jal) + 1);\r\n\r\n                  for j := 0 to TTMSFNCUtils.GetJSONArraySize(jal) - 1 do\r\n                  begin\r\n                    jol := TTMSFNCUtils.GetJSONArrayItem(jal, j);\r\n                    if jol.Value <> '' then\r\n                      wpIndex[j + 1] := StrToInt(jol.Value);\r\n                  end;\r\n                end;\r\n\r\n                jal := TTMSFNCUtils.GetJSONValue(jo, 'legs') as TJSONArray;\r\n                if Assigned(jal) then\r\n                begin\r\n                  for j := 0 to TTMSFNCUtils.GetJSONArraySize(jal) - 1 do\r\n                  begin\r\n                    jol := TTMSFNCUtils.GetJSONArrayItem(jal, j);\r\n\r\n                    l := di.Legs.Add;\r\n\r\n                    wp := di.WayPoints.Add;\r\n                    if Length(wpIndex) > j then\r\n                      wp.OptimizedIndex := wpIndex[j];\r\n\r\n                    l.StartAddress := TTMSFNCUtils.GetJSONProp(jol, 'start_address');\r\n                    l.EndAddress := TTMSFNCUtils.GetJSONProp(jol, 'end_address');\r\n\r\n                    ol := TTMSFNCUtils.GetJSONValue(jol, 'distance') as TJSONObject;\r\n                    if Assigned(ol) then\r\n                    begin\r\n                      l.Distance := TTMSFNCUtils.GetJSONIntegerValue(ol, 'value');\r\n                      di.Distance := di.Distance + l.Distance;\r\n                      wp.Distance := l.Distance;\r\n                    end;\r\n\r\n                    ol := TTMSFNCUtils.GetJSONValue(jol, 'duration') as TJSONObject;\r\n                    if Assigned(ol) then\r\n                    begin\r\n                      l.Duration := TTMSFNCUtils.GetJSONIntegerValue(ol, 'value');\r\n                      di.Duration := di.Duration + l.Duration;\r\n                      wp.Duration := l.Duration;\r\n                    end;\r\n\r\n                    os := TTMSFNCUtils.GetJSONValue(jol, 'end_location') as TJSONObject;\r\n                    if Assigned(os) then\r\n                    begin\r\n                      l.EndLocation.Latitude := TTMSFNCUtils.GetJSONDoubleValue(os, 'lat');\r\n                      l.EndLocation.Longitude := TTMSFNCUtils.GetJSONDoubleValue(os, 'lng');\r\n                    end;\r\n\r\n                    os := TTMSFNCUtils.GetJSONValue(jol, 'start_location') as TJSONObject;\r\n                    if Assigned(os) then\r\n                    begin\r\n                      l.StartLocation.Latitude := TTMSFNCUtils.GetJSONDoubleValue(os, 'lat');\r\n                      l.StartLocation.Longitude := TTMSFNCUtils.GetJSONDoubleValue(os, 'lng');\r\n                    end;\r\n\r\n                    jas := TTMSFNCUtils.GetJSONValue(jol, 'steps') as TJSONArray;\r\n                    if Assigned(jas) then\r\n                    begin\r\n                      for k := 0 to TTMSFNCUtils.GetJSONArraySize(jas) - 1 do\r\n                      begin\r\n                        jos := TTMSFNCUtils.GetJSONArrayItem(jas, k);\r\n\r\n                        step := di.Steps.Add;\r\n\r\n                        os := TTMSFNCUtils.GetJSONValue(jos, 'distance') as TJSONObject;\r\n                        if Assigned(ol) then\r\n                          step.Distance := TTMSFNCUtils.GetJSONIntegerValue(os, 'value');\r\n\r\n                        os := TTMSFNCUtils.GetJSONValue(jos, 'duration') as TJSONObject;\r\n                        if Assigned(ol) then\r\n                          step.Duration := TTMSFNCUtils.GetJSONIntegerValue(os, 'value');\r\n\r\n                        step.Instructions := TTMSFNCUtils.GetJSONProp(jos, 'html_instructions');\r\n\r\n                        os := TTMSFNCUtils.GetJSONValue(jos, 'polyline') as TJSONObject;\r\n                        if Assigned(os) then\r\n                          DecodeValues(TTMSFNCUtils.GetJSONProp(os, 'points'), step.Coordinates);\r\n\r\n                        for lm := 0 to step.Coordinates.Count - 1 do\r\n                          l.Coordinates.Add.Assign(step.Coordinates[lm]);\r\n\r\n                        os := TTMSFNCUtils.GetJSONValue(jos, 'end_location') as TJSONObject;\r\n                        if Assigned(os) then\r\n                        begin\r\n                          step.EndLocation.Latitude := TTMSFNCUtils.GetJSONDoubleValue(os, 'lat');\r\n                          step.EndLocation.Longitude := TTMSFNCUtils.GetJSONDoubleValue(os, 'lng');\r\n                        end;\r\n\r\n                        os := TTMSFNCUtils.GetJSONValue(jos, 'start_location') as TJSONObject;\r\n                        if Assigned(os) then\r\n                        begin\r\n                          step.StartLocation.Latitude := TTMSFNCUtils.GetJSONDoubleValue(os, 'lat');\r\n                          step.StartLocation.Longitude := TTMSFNCUtils.GetJSONDoubleValue(os, 'lng');\r\n                        end;\r\n\r\n                        lstep := l.Steps.Add;\r\n                        lstep.Assign(step);\r\n                      end;\r\n                    end;\r\n                  end;\r\n                end;\r\n              end;\r\n            end;\r\n          finally\r\n            o.Free;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2023 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCGoogleRoutes;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\n{$IFNDEF LCLLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 23}\r\n{$DEFINE UNREGISTER}\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE UNREGISTER}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, Types, WEBLib.Forms\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,web, Contnrs\r\n  {$ENDIF}\r\n  {$IFDEF CMNLIB}\r\n  {$ENDIF}\r\n  ,WEBLib.TMSFNCTypes\r\n  ,WEBLib.TMSFNCMapsCommonTypes\r\n  ,WEBLib.TMSFNCCloudBase\r\n  ,WEBLib.TMSFNCDirections;\r\n\r\nconst\r\n  LB = #13;\r\n  TTMSFNCGoogleRoutesDocURL = TTMSFNCBaseDocURL + 'tmsfncmaps/components/ttmsfncmaps/#ttmsfncdirections';\r\n  TTMSFNCGoogleRoutesTipsURL = 'https://www.tmssoftware.com/site/tmsfncmaps.asp?s=faq';\r\n\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 0; // Minor version nr.\r\n  REL_VER = 0; // Release nr.\r\n  BLD_VER = 2; // Build nr.\r\n\r\n  //v1.0.0.0: First release\r\n  //v1.0.0.1: Fixed : Issues with GetDirections call\r\n  //v1.0.0.2: Fixed : Issue with setting AOptimzeWayPoints parameter to True\r\n\r\n\r\ntype\r\n  TTMSFNCGoogleRoutesRoutingMode = (rmTrafficUnaware, rmTrafficAware, rmTrafficAwareOptimal);\r\n  TTMSFNCGoogleRoutesDeparture = (rdIgnore, rdNow, rdDateTime);\r\n\r\n  TTMSFNCGoogleRoutes = class;\r\n\r\n  TTMSFNCGoogleRoutesOptions = class(TPersistent)\r\n  private\r\n    FRoutingMode: TTMSFNCGoogleRoutesRoutingMode;\r\n    FDeparture: TTMSFNCGoogleRoutesDeparture;\r\n    FDepartureTime: TDateTime;\r\n    FHTMLFormattedInstructions: Boolean;\r\n    FIncludeFuelEfficientRoute: Boolean;\r\n    procedure SetRoutingMode(const Value: TTMSFNCGoogleRoutesRoutingMode);\r\n    procedure SetDeparture(const Value: TTMSFNCGoogleRoutesDeparture);\r\n    procedure SetDepartureTime(const Value: TDateTime);\r\n    procedure SetHTMLFormattedInstructions(const Value: Boolean);\r\n    procedure SetIncludeFuelEfficientRoute(const Value: Boolean);\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create; virtual;\r\n    destructor Destroy; override;\r\n  published\r\n    property RoutingMode: TTMSFNCGoogleRoutesRoutingMode read FRoutingMode write SetRoutingMode default rmTrafficUnaware;\r\n    property Departure: TTMSFNCGoogleRoutesDeparture read FDeparture write SetDeparture default rdIgnore;\r\n    property DepartureTime: TDateTime read FDepartureTime write SetDepartureTime;\r\n    property HTMLFormattedInstructions: Boolean read FHTMLFormattedInstructions write SetHTMLFormattedInstructions default false;\r\n    property IncludeFuelEfficientRoute: Boolean read FIncludeFuelEfficientRoute write SetIncludeFuelEfficientRoute default False;\r\n  end;\r\n\r\n  TTMSFNCSpeedReadingInterval = class(TCollectionItem)\r\n  private\r\n    FOwner: TPersistent;\r\n    FDataBoolean: Boolean;\r\n    FDataString: string;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FDataPointer: Pointer;\r\n    FStartPolylinePointIndex: Integer;\r\n    FSpeed: string;\r\n    FEndPolylinePointIndex: Integer;\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: string read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n  published\r\n    property StartPolylinePointIndex: Integer read FStartPolylinePointIndex write FStartPolylinePointIndex;\r\n    property EndPolylinePointIndex: Integer read FEndPolylinePointIndex write FEndPolylinePointIndex;\r\n    property Speed: string read FSpeed write FSpeed;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCSpeedReadingIntervals = class(TTMSFNCOwnedCollection)\r\n  {$ELSE}\r\n  TTMSFNCSpeedReadingIntervals = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCSpeedReadingInterval>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TPersistent;\r\n    function GetItem(Index: Integer): TTMSFNCSpeedReadingInterval;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCSpeedReadingInterval);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; virtual;\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create(AOwner: TPersistent); virtual;\r\n    property Items[Index: Integer]: TTMSFNCSpeedReadingInterval read GetItem write SetItem; default;\r\n    function Add: TTMSFNCSpeedReadingInterval;\r\n    function Insert(Index: Integer): TTMSFNCSpeedReadingInterval;\r\n  end;\r\n\r\n  TTMSFNCGoogleRoutesTravelAdvisory = class(TPersistent)\r\n  private\r\n    FSpeedReadingIntervals: TTMSFNCSpeedReadingIntervals;\r\n    FFuelConsumptionMicroliters: Integer;\r\n    procedure SetSpeedReadingIntervals(\r\n      const Value: TTMSFNCSpeedReadingIntervals);\r\n    procedure SetFuelConsumptionMicroliters(const Value: Integer);\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create; virtual;\r\n    destructor Destroy; override;\r\n  published\r\n    property SpeedReadingIntervals: TTMSFNCSpeedReadingIntervals read FSpeedReadingIntervals write SetSpeedReadingIntervals;\r\n    property FuelConsumptionMicroliters: Integer read FFuelConsumptionMicroliters write SetFuelConsumptionMicroliters;\r\n  end;\r\n\r\n  TTMSFNCGoogleRoutesItem = class(TTMSFNCDirectionsItem)\r\n  private\r\n    FRouteLabels: TStringList;\r\n    FTravelAdvisory: TTMSFNCGoogleRoutesTravelAdvisory;\r\n    procedure SetRouteLabels(const Value: TStringList);\r\n    procedure SetTravelAdivsory(const Value: TTMSFNCGoogleRoutesTravelAdvisory);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n  published\r\n    property RouteLabels: TStringList read FRouteLabels write SetRouteLabels;\r\n    property TravelAdvisory: TTMSFNCGoogleRoutesTravelAdvisory read FTravelAdvisory write SetTravelAdivsory;\r\n  end;\r\n\r\n  TTMSFNCGoogleRoutesItems = class(TTMSFNCDirectionsItems)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCGoogleRoutesItem;\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; override;\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCGoogleRoutesItem read GetItem; default;\r\n  end;\r\n\r\n  TTMSFNCGoogleRoutesRequest = class(TTMSFNCDirectionsRequest)\r\n  private\r\n    function GetItems: TTMSFNCGoogleRoutesItems;\r\n  protected\r\n    function GetDirectionsItemsClass: TTMSFNCDirectionsItemsClass; override;\r\n  published\r\n    property Items: TTMSFNCGoogleRoutesItems read GetItems;\r\n  end;\r\n\r\n  TTMSFNCGoogleRoutesRequests = class(TTMSFNCDirectionsRequests)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCGoogleRoutesRequest;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCGoogleRoutesRequest);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; override;\r\n    property Items[Index: Integer]: TTMSFNCGoogleRoutesRequest read GetItem write SetItem; default;\r\n  end;\r\n\r\n  TTMSFNCCustomGoogleRoutes = class(TTMSFNCCustomDirections)\r\n  private\r\n    FOptions: TTMSFNCGoogleRoutesOptions;\r\n    procedure SetOptions(const Value: TTMSFNCGoogleRoutesOptions);\r\n    function GetDirectionsRequests: TTMSFNCGoogleRoutesRequests;\r\n    procedure SetDirectionsRequests(const Value: TTMSFNCGoogleRoutesRequests);\r\n  protected\r\n    function GetDirectionsRequestsClass: TTMSFNCDirectionsRequestsClass; override;\r\n    function GetGoogleRoutesOptions(var AOptions: string; ATravelMode: TTMSFNCDirectionsTravelMode;\r\n      AWayPoints: TTMSFNCMapsCoordinateRecArray; AWayPointsList: TStringList; AOptimizeWayPoints: Boolean): string; override;\r\n    property DirectionsRequests: TTMSFNCGoogleRoutesRequests read GetDirectionsRequests write SetDirectionsRequests;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    property Options: TTMSFNCGoogleRoutesOptions read FOptions write SetOptions;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  TTMSFNCGoogleRoutes = class(TTMSFNCCustomGoogleRoutes)\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n  public\r\n    property DirectionsInstance;\r\n    property DirectionsProperties;\r\n  published\r\n    property OnGetDirections;\r\n    property OnGetDirectionsResult;\r\n    property APIKey;\r\n    property DirectionsRequests;\r\n    property Version;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  {$IFDEF MSWINDOWS}\r\n  Windows, Registry,\r\n  {$ENDIF}\r\n  {%H-}Math,\r\n  WEBLib.TMSFNCUtils,\r\n  WEBLib.TMSFNCDirections.Google,\r\n  SysUtils\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Types\r\n  {$ENDIF}\r\n  , DateUtils\r\n  ;\r\n\r\n{ TTMSFNCCustomGoogleRoutes }\r\n\r\nconstructor TTMSFNCCustomGoogleRoutes.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  IsGoogleRoutes := True;\r\n  InitializeDirections;\r\n  FOptions := TTMSFNCGoogleRoutesOptions.Create;\r\nend;\r\n\r\ndestructor TTMSFNCCustomGoogleRoutes.Destroy;\r\nbegin\r\n  FOptions.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCCustomGoogleRoutes.GetDirectionsRequests: TTMSFNCGoogleRoutesRequests;\r\nbegin\r\n  Result := TTMSFNCGoogleRoutesRequests(inherited DirectionsRequests);\r\nend;\r\n\r\nfunction TTMSFNCCustomGoogleRoutes.GetDirectionsRequestsClass: TTMSFNCDirectionsRequestsClass;\r\nbegin\r\n  Result := TTMSFNCGoogleRoutesRequests;\r\nend;\r\n\r\nfunction TTMSFNCCustomGoogleRoutes.GetGoogleRoutesOptions(\r\n  var AOptions: string; ATravelMode: TTMSFNCDirectionsTravelMode;\r\n    AWayPoints: TTMSFNCMapsCoordinateRecArray; AWayPointsList: TStringList; AOptimizeWayPoints: Boolean): string;\r\nvar\r\n  Preference: string;\r\n  Departure: string;\r\n  Extras: TStringList;\r\n  I: Integer;\r\nbegin\r\n  Result := AOptions;\r\n\r\n  if not (ATravelMode in [tmWalking, tmBicycling]) then\r\n  begin\r\n    if AOptimizeWayPoints then\r\n    begin\r\n      Preference := '';\r\n    end\r\n    else\r\n    begin\r\n      case Options.RoutingMode of\r\n        rmTrafficUnaware: Preference := '';\r\n        rmTrafficAware: Preference := 'TRAFFIC_AWARE';\r\n        rmTrafficAwareOptimal:\r\n        begin\r\n          Preference := 'TRAFFIC_AWARE_OPTIMAL';\r\n          if (Options.IncludeFuelEfficientRoute) then\r\n          begin\r\n            if (Length(AWayPoints) <= 0) and ((not Assigned(AWayPointsList)) or (Assigned(AWayPointsList) and (AWayPointsList.Count <= 0))) then\r\n            begin\r\n              Result := Result + '  \"requestedReferenceRoutes\": [\"FUEL_EFFICIENT\"],' + LB;\r\n            end;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    if Preference <> '' then\r\n    begin\r\n      Result := Result +\r\n        '  \"routingPreference\": \"' + Preference + '\",' + LB;\r\n    end;\r\n  end;\r\n\r\n  if Options.RoutingMode <> rmTrafficUnaware then\r\n  begin\r\n    case Options.Departure of\r\n      rdIgnore: Departure := '';\r\n      rdNow: Departure := TTMSFNCUtils.DateTimeToISO(Now, True, True);\r\n      rdDateTime: Departure := TTMSFNCUtils.DateTimeToISO(Options.DepartureTime, True, True);\r\n    end;\r\n\r\n    if Departure <> '' then\r\n    begin\r\n      Result := Result +\r\n        '  \"departureTime\": \"' + Departure + '\",' + LB;\r\n    end;\r\n  end;\r\n\r\n  Extras := TStringList.Create;\r\n//  Extras.Add('TOLLS');\r\n//  Extras.Add('FUEL_CONSUMPTION');\r\n  Extras.Add('TRAFFIC_ON_POLYLINE');\r\n\r\n  if Options.HTMLFormattedInstructions then\r\n  begin\r\n    Extras.Add('HTML_FORMATTED_NAVIGATION_INSTRUCTIONS');\r\n  end;\r\n\r\n  if Extras.Count > 0 then\r\n  begin\r\n    Result := Result + '  \"extraComputations\": [';\r\n    for I := 0 to Extras.Count - 1 do\r\n    begin\r\n      Result := Result + '\"' + Extras[I] + '\",';\r\n    end;\r\n    Result := Result + '],' + LB;\r\n  end;\r\n\r\n  Extras.Free;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGoogleRoutes.SetDirectionsRequests(\r\n  const Value: TTMSFNCGoogleRoutesRequests);\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomGoogleRoutes.SetOptions(\r\n  const Value: TTMSFNCGoogleRoutesOptions);\r\nbegin\r\n  FOptions.Assign(Value);\r\nend;\r\n\r\n{ TTMSFNCGoogleRoutes }\r\n\r\nprocedure TTMSFNCGoogleRoutes.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  Classes.RegisterClass(TTMSFNCGoogleRoutes);\r\nend;\r\n\r\n{ TTMSFNCGoogleRoutesOptions }\r\n\r\nprocedure TTMSFNCGoogleRoutesOptions.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTMSFNCGoogleRoutesOptions) then\r\n  begin\r\n    FRoutingMode := (Source as TTMSFNCGoogleRoutesOptions).RoutingMode;\r\n    FDeparture := (Source as TTMSFNCGoogleRoutesOptions).Departure;\r\n    FDepartureTime := (Source as TTMSFNCGoogleRoutesOptions).DepartureTime;\r\n    FHTMLFormattedInstructions := (Source as TTMSFNCGoogleRoutesOptions).HTMLFormattedInstructions;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nconstructor TTMSFNCGoogleRoutesOptions.Create;\r\nbegin\r\n  FRoutingMode := rmTrafficUnaware;\r\n  FDeparture := rdIgnore;\r\n  FDepartureTime := Now;\r\n  FHTMLFormattedInstructions := False;\r\nend;\r\n\r\ndestructor TTMSFNCGoogleRoutesOptions.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCGoogleRoutesOptions.SetDeparture(\r\n  const Value: TTMSFNCGoogleRoutesDeparture);\r\nbegin\r\n  if FDeparture <> Value then\r\n  begin\r\n    FDeparture := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGoogleRoutesOptions.SetDepartureTime(const Value: TDateTime);\r\nbegin\r\n  if FDepartureTime <> Value then\r\n  begin\r\n      FDepartureTime := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGoogleRoutesOptions.SetHTMLFormattedInstructions(\r\n  const Value: Boolean);\r\nbegin\r\n  if FHTMLFormattedInstructions <> Value then\r\n  begin\r\n    FHTMLFormattedInstructions := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGoogleRoutesOptions.SetIncludeFuelEfficientRoute(\r\n  const Value: Boolean);\r\nbegin\r\n  if FIncludeFuelEfficientRoute <> Value then\r\n  begin\r\n    FIncludeFuelEfficientRoute := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCGoogleRoutesOptions.SetRoutingMode(const Value: TTMSFNCGoogleRoutesRoutingMode);\r\nbegin\r\n  if FRoutingMode <> Value then\r\n  begin\r\n    FRoutingMode := Value;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCGoogleRoutesTravelAdvisory }\r\n\r\nprocedure TTMSFNCGoogleRoutesTravelAdvisory.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTMSFNCGoogleRoutesTravelAdvisory) then\r\n  begin\r\n    FSpeedReadingIntervals := (Source as TTMSFNCGoogleRoutesTravelAdvisory).SpeedReadingIntervals;\r\n    FFuelConsumptionMicroliters := (Source as TTMSFNCGoogleRoutesTravelAdvisory).FuelConsumptionMicroliters;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nconstructor TTMSFNCGoogleRoutesTravelAdvisory.Create;\r\nbegin\r\n  FSpeedReadingIntervals := TTMSFNCSpeedReadingIntervals.Create(Self);\r\n  FFuelConsumptionMicroliters := 0;\r\nend;\r\n\r\ndestructor TTMSFNCGoogleRoutesTravelAdvisory.Destroy;\r\nbegin\r\n  FSpeedReadingIntervals.Free;\r\nend;\r\n\r\nprocedure TTMSFNCGoogleRoutesTravelAdvisory.SetFuelConsumptionMicroliters(\r\n  const Value: Integer);\r\nbegin\r\n  FFuelConsumptionMicroliters := Value;\r\nend;\r\n\r\nprocedure TTMSFNCGoogleRoutesTravelAdvisory.SetSpeedReadingIntervals(\r\n  const Value: TTMSFNCSpeedReadingIntervals);\r\nbegin\r\n  FSpeedReadingIntervals.Assign(Value);\r\nend;\r\n\r\n{ TTMSFNCGoogleRoutesRequests }\r\n\r\nfunction TTMSFNCGoogleRoutesRequests.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCGoogleRoutesRequest;\r\nend;\r\n\r\nfunction TTMSFNCGoogleRoutesRequests.GetItem(\r\n  Index: Integer): TTMSFNCGoogleRoutesRequest;\r\nbegin\r\n  Result := TTMSFNCGoogleRoutesRequest(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCGoogleRoutesRequests.SetItem(Index: Integer;\r\n  const Value: TTMSFNCGoogleRoutesRequest);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCGoogleRoutesRequest }\r\n\r\nfunction TTMSFNCGoogleRoutesRequest.GetDirectionsItemsClass: TTMSFNCDirectionsItemsClass;\r\nbegin\r\n  Result := TTMSFNCGoogleRoutesItems;\r\nend;\r\n\r\nfunction TTMSFNCGoogleRoutesRequest.GetItems: TTMSFNCGoogleRoutesItems;\r\nbegin\r\n  Result := TTMSFNCGoogleRoutesItems(inherited Items);\r\nend;\r\n\r\n{ TTMSFNCGoogleRoutesItems }\r\n\r\nfunction TTMSFNCGoogleRoutesItems.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCGoogleRoutesItem;\r\nend;\r\n\r\nfunction TTMSFNCGoogleRoutesItems.GetItem(\r\n  Index: Integer): TTMSFNCGoogleRoutesItem;\r\nbegin\r\n  Result := TTMSFNCGoogleRoutesItem(inherited Items[Index]);\r\nend;\r\n\r\n{ TTMSFNCGoogleRoutesItem }\r\n\r\nprocedure TTMSFNCGoogleRoutesItem.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if Source is TTMSFNCGoogleRoutesItem then\r\n  begin\r\n    FRouteLabels.Assign(TTMSFNCGoogleRoutesItem(Source).RouteLabels);\r\n    FTravelAdvisory.Assign(TTMSFNCGoogleRoutesItem(Source).TravelAdvisory);\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCGoogleRoutesItem.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  FRouteLabels := TStringList.Create;\r\n  FTravelAdvisory := TTMSFNCGoogleRoutesTravelAdvisory.Create;\r\nend;\r\n\r\ndestructor TTMSFNCGoogleRoutesItem.Destroy;\r\nbegin\r\n  FRouteLabels.Free;\r\n  FTravelAdvisory.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCGoogleRoutesItem.SetRouteLabels(const Value: TStringList);\r\nbegin\r\n  FRouteLabels.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCGoogleRoutesItem.SetTravelAdivsory(\r\n  const Value: TTMSFNCGoogleRoutesTravelAdvisory);\r\nbegin\r\n  FTravelAdvisory := Value;\r\nend;\r\n\r\n{ TTMSFNCSpeedReadingIntervals }\r\n\r\nfunction TTMSFNCSpeedReadingIntervals.Add: TTMSFNCSpeedReadingInterval;\r\nbegin\r\n  Result := TTMSFNCSpeedReadingInterval(inherited Add);\r\nend;\r\n\r\nconstructor TTMSFNCSpeedReadingIntervals.Create(AOwner: TPersistent);\r\nbegin\r\n  inherited Create(AOwner, CreateItemClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCSpeedReadingIntervals.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCSpeedReadingInterval;\r\nend;\r\n\r\nfunction TTMSFNCSpeedReadingIntervals.GetItem(\r\n  Index: Integer): TTMSFNCSpeedReadingInterval;\r\nbegin\r\n  Result := TTMSFNCSpeedReadingInterval(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCSpeedReadingIntervals.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCSpeedReadingIntervals.Insert(\r\n  Index: Integer): TTMSFNCSpeedReadingInterval;\r\nbegin\r\n  Result := TTMSFNCSpeedReadingInterval(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCSpeedReadingIntervals.SetItem(Index: Integer;\r\n  const Value: TTMSFNCSpeedReadingInterval);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCSpeedReadingInterval }\r\n\r\nprocedure TTMSFNCSpeedReadingInterval.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n\r\nend;\r\n\r\nconstructor TTMSFNCSpeedReadingInterval.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(ACollection) then\r\n    FOwner := (Collection as TTMSFNCSpeedReadingIntervals).FOwner;\r\n\r\n  FStartPolylinePointIndex := -1;\r\n  FEndPolylinePointIndex := 0;\r\n  FSpeed := '';\r\nend;\r\n\r\ndestructor TTMSFNCSpeedReadingInterval.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCDirections;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\n{$IFNDEF LCLLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 23}\r\n{$DEFINE UNREGISTER}\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE UNREGISTER}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, Types, WEBLib.Forms\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,web, Contnrs\r\n  {$ENDIF}\r\n  {$IFDEF CMNLIB}\r\n  {$ENDIF}\r\n  ,WEBLib.TMSFNCTypes\r\n  ,WEBLib.TMSFNCMapsCommonTypes\r\n  ,WEBLib.TMSFNCCloudBase;\r\n\r\nconst\r\n  TTMSFNCDirectionsDocURL = TTMSFNCBaseDocURL + 'tmsfncmaps/components/ttmsfncmaps/#ttmsfncdirections';\r\n  TTMSFNCDirectionsTipsURL = 'https://www.tmssoftware.com/site/tmsfncmaps.asp?s=faq';\r\n\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 6; // Minor version nr.\r\n  REL_VER = 1; // Release nr.\r\n  BLD_VER = 0; // Build nr.\r\n\r\n  //v1.0.0.0: First release\r\n  //v1.0.1.0: New : TravelMode tmPublicTransport, tmTruck added (where available)\r\n  //        : New : Directions result Status and ErrorMessage added\r\n  //v1.1.0.0: New : Here directions service updated to Routing API v8\r\n  //v1.1.1.0: New : GetDirections AvoidTolls parameter\r\n  //v1.1.2.0: New : WayPoints.OptimizedIndex added for Google, Here and TomTom\r\n  //v1.2.0.0: New : Support for OpenRouteService directions\r\n  //v1.3.0.0: New : Support for GeoApify directions\r\n  //v1.3.0.1: Fixed : Here: Issue with Distance and Duration values\r\n  //v1.4.0.0: New : Google: Support for Origin, Destination and WayPoints string values\r\n  //v1.5.0.0: New : SaveToGPXFile, SaveToGPXStream, SaveToGPXText added\r\n  //        : New : Google: Leg StartAddress and EndAddress added\r\n  //v1.6.0.0: New : GetDirections AvoidHighWays parameter\r\n  //        : New : GetDirections simplified overloads\r\n  //v1.6.1.0: New : Switch to Google Routes API with UseGoogleRoutes\r\n\r\ntype\r\n  TTMSFNCDirectionsTravelMode = (tmDriving, tmWalking, tmBicycling, tmPublicTransport, tmTruck);\r\n  TTMSFNCCustomDirections = class;\r\n  TTMSFNCDirectionsRequest = class;\r\n  TTMSFNCDirectionsItems = class;\r\n  TTMSFNCDirectionsItem = class;\r\n\r\n  ITMSFNCCustomDirectionsProperties = interface(IInterface)\r\n    ['{7E76D35C-397F-4D05-AAAB-3CE44C082FE7}']\r\n    function GetAPIKey: string;\r\n    function GetTruckOptions(var AOptions: string; AAvoidTolls: Boolean): string;\r\n    function GetGoogleRoutesOptions(var AOptions: string; ATravelMode: TTMSFNCDirectionsTravelMode;\r\n      AWayPoints: TTMSFNCMapsCoordinateRecArray; AWayPointsList: TStringList; AOptimizeWayPoints: Boolean): string;\r\n  end;\r\n\r\n  ITMSFNCCustomDirectionsInstance = interface(IInterface)\r\n    ['{BB0799B8-FE15-4E10-AC1D-7490C887DB7C}']\r\n    procedure SetDirectionsProperties(const Value: ITMSFNCCustomDirectionsProperties);\r\n  end;\r\n\r\n  ITMSFNCCustomDirections = interface(IInterface)\r\n  ['{EDE79341-AAA4-4E89-B471-47365BDC999D}']\r\n    function GetIdentifier: string;\r\n    function GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\n    function GetHost: string;\r\n    function GetPath(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil): string;\r\n    function GetQuery(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; \r\n      AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAvoidTolls: Boolean = False; AAvoidHighWays: Boolean = False): string;\r\n    function GetPostData(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude, ADestinationLatitude,\r\n      ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil;\r\n      AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = '';\r\n      AAvoidTolls: Boolean = False;\r\n      AAvoidHighWays: Boolean = False): string;\r\n    procedure AddHeaders(AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\n    procedure Parse(ARequest: TTMSFNCDirectionsRequest; ARequestResult: string);\r\n    function IsValid: Boolean;\r\n    procedure DestroyDirections;\r\n  end;\r\n\r\n  ITMSFNCDirectionsService = interface(IInterface)\r\n  ['{74DDA282-D3BD-4883-8A49-CE2F67BF32AB}']\r\n    function CreateDirections: ITMSFNCCustomDirections;\r\n    procedure DestroyDirections(ADirections: ITMSFNCCustomDirections);\r\n  end;\r\n\r\n  ITMSFNCDirectionsServiceGoogle = interface(ITMSFNCDirectionsService)\r\n    ['{6A97B0E0-8F24-4E04-9110-E1472169FF20}']\r\n  end;\r\n\r\n  ITMSFNCDirectionsServiceGoogleRoutes = interface(ITMSFNCDirectionsService)\r\n    ['{65FF008D-06F9-418D-8399-7DCB12003B17}']\r\n  end;\r\n\r\n  ITMSFNCDirectionsServiceHere = interface(ITMSFNCDirectionsService)\r\n    ['{0CD111D1-2C73-47A0-86B2-04CFFD819AAF}']\r\n  end;\r\n\r\n  ITMSFNCDirectionsServiceBing = interface(ITMSFNCDirectionsService)\r\n    ['{6A0EED0A-BBE0-4092-956F-37A0055A64B2}']\r\n  end;\r\n\r\n  ITMSFNCDirectionsServiceAzure = interface(ITMSFNCDirectionsService)\r\n    ['{A8DBA06B-C950-4B88-B124-58A67600E0F5}']\r\n  end;\r\n\r\n  ITMSFNCDirectionsServiceMapBox = interface(ITMSFNCDirectionsService)\r\n    ['{8695A289-6B14-472C-AA32-617B913173FD}']\r\n  end;\r\n\r\n  ITMSFNCDirectionsServiceTomTom = interface(ITMSFNCDirectionsService)\r\n    ['{111375A8-5C34-4AA9-A612-E3FB70944928}']\r\n  end;\r\n\r\n  ITMSFNCDirectionsServiceOpenRouteService = interface(ITMSFNCDirectionsService)\r\n    ['{ABDB1BFD-AEBF-421A-B744-98E7040803F9}']\r\n  end;\r\n\r\n  ITMSFNCDirectionsServiceGeoApify = interface(ITMSFNCDirectionsService)\r\n    ['{BFB8236B-9D74-4F67-BCFB-1641107C4DEA}']\r\n  end;\r\n\r\n  TTMSFNCDirectionsService = (dsGoogle, dsHere, dsBing, dsAzure, dsMapBox, dsTomTom, dsOpenRouteService, dsGeoApify);\r\n\r\n  TTMSFNCDirectionsStep = class(TCollectionItem)\r\n  private\r\n    FOwner: TCollectionItem;\r\n    FDataBoolean: Boolean;\r\n    FDataString: string;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FDataPointer: Pointer;\r\n    FDistance: Integer;\r\n    FDuration: Integer;\r\n    FStartLocation: TTMSFNCMapsCoordinate;\r\n    FInstructions: string;\r\n    FEndLocation: TTMSFNCMapsCoordinate;\r\n    FCoordinates: TTMSFNCMapsCoordinates;\r\n    procedure SetCoordinates(const Value: TTMSFNCMapsCoordinates);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: string read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n  published\r\n    property Coordinates: TTMSFNCMapsCoordinates read FCoordinates write SetCoordinates;\r\n    property StartLocation: TTMSFNCMapsCoordinate read FStartLocation write FStartLocation;\r\n    property EndLocation: TTMSFNCMapsCoordinate read FEndLocation write FEndLocation;\r\n    property Distance: Integer read FDistance write FDistance;\r\n    property Duration: Integer read FDuration write FDuration;\r\n    property Instructions: string read FInstructions write FInstructions;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCDirectionsSteps = class(TTMSFNCOwnedCollection)\r\n  {$ELSE}\r\n  TTMSFNCDirectionsSteps = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCDirectionsStep>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TCollectionItem;\r\n    function GetItem(Index: Integer): TTMSFNCDirectionsStep;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCDirectionsStep);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; virtual;\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create(AOwner: TCollectionItem); virtual;\r\n    property Items[Index: Integer]: TTMSFNCDirectionsStep read GetItem write SetItem; default;\r\n    function Add: TTMSFNCDirectionsStep;\r\n    function Insert(Index: Integer): TTMSFNCDirectionsStep;\r\n  end;\r\n\r\n  TTMSFNCDirectionsLeg = class(TCollectionItem)\r\n  private\r\n    FOwner: TCollectionItem;\r\n    FDataBoolean: Boolean;\r\n    FDataString: string;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FDataPointer: Pointer;\r\n    FDistance: Integer;\r\n    FDuration: Integer;\r\n    FStartLocation: TTMSFNCMapsCoordinate;\r\n    FEndLocation: TTMSFNCMapsCoordinate;\r\n    FCoordinates: TTMSFNCMapsCoordinates;\r\n    FSteps: TTMSFNCDirectionsSteps;\r\n    FStartAddress: string;\r\n    FEndAddress: string;\r\n    procedure SetCoordinates(const Value: TTMSFNCMapsCoordinates);\r\n    procedure SetSteps(const Value: TTMSFNCDirectionsSteps);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: string read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n  published\r\n    property Coordinates: TTMSFNCMapsCoordinates read FCoordinates write SetCoordinates;\r\n    property StartAddress: string read FStartAddress write FStartAddress;\r\n    property StartLocation: TTMSFNCMapsCoordinate read FStartLocation write FStartLocation;\r\n    property EndAddress: string read FEndAddress write FEndAddress;\r\n    property EndLocation: TTMSFNCMapsCoordinate read FEndLocation write FEndLocation;\r\n    property Distance: Integer read FDistance write FDistance;\r\n    property Duration: Integer read FDuration write FDuration;\r\n    property Steps: TTMSFNCDirectionsSteps read FSteps write SetSteps;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCDirectionsLegs = class(TTMSFNCOwnedCollection)\r\n  {$ELSE}\r\n  TTMSFNCDirectionsLegs = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCDirectionsLeg>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TCollectionItem;\r\n    function GetItem(Index: Integer): TTMSFNCDirectionsLeg;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCDirectionsLeg);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; virtual;\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create(AOwner: TCollectionItem); virtual;\r\n    property Items[Index: Integer]: TTMSFNCDirectionsLeg read GetItem write SetItem; default;\r\n    function Add: TTMSFNCDirectionsLeg;\r\n    function Insert(Index: Integer): TTMSFNCDirectionsLeg;\r\n  end;\r\n\r\n  TTMSFNCDirectionsWayPoint = class(TCollectionItem)\r\n  private\r\n    FOwner: TCollectionItem;\r\n    FDataBoolean: Boolean;\r\n    FDataString: string;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FDataPointer: Pointer;\r\n    FDistance: Integer;\r\n    FDuration: Integer;\r\n    FOptimizedIndex: Integer;\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: string read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n  published\r\n    property Distance: Integer read FDistance write FDistance;\r\n    property Duration: Integer read FDuration write FDuration;\r\n    property OptimizedIndex: Integer read FOptimizedIndex write FOptimizedIndex;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCDirectionsWayPoints = class(TTMSFNCOwnedCollection)\r\n  {$ELSE}\r\n  TTMSFNCDirectionsWayPoints = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCDirectionsWayPoint>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TCollectionItem;\r\n    function GetItem(Index: Integer): TTMSFNCDirectionsWayPoint;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCDirectionsWayPoint);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; virtual;\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create(AOwner: TCollectionItem); virtual;\r\n    property Items[Index: Integer]: TTMSFNCDirectionsWayPoint read GetItem write SetItem; default;\r\n    function Add: TTMSFNCDirectionsWayPoint;\r\n    function Insert(Index: Integer): TTMSFNCDirectionsWayPoint;\r\n  end;\r\n\r\n  TTMSFNCDirectionsItem = class(TCollectionItem)\r\n  private\r\n    FOwner: TTMSFNCCustomDirections;\r\n    FDataBoolean: Boolean;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FDataPointer: Pointer;\r\n    FCoordinates: TTMSFNCMapsCoordinates;\r\n    FSummary: string;\r\n    FDistance: Double;\r\n    FDuration: Integer;\r\n    FSteps: TTMSFNCDirectionsSteps;\r\n    FLegs: TTMSFNCDirectionsLegs;\r\n    FWayPoints: TTMSFNCDirectionsWayPoints;\r\n    procedure SetCoordinates(const Value: TTMSFNCMapsCoordinates);\r\n    function GetBounds: TTMSFNCMapsBounds;\r\n    procedure SetSteps(const Value: TTMSFNCDirectionsSteps);\r\n    procedure SetLegs(const Value: TTMSFNCDirectionsLegs);\r\n    procedure SetWayPoints(const Value: TTMSFNCDirectionsWayPoints);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n    property Bounds: TTMSFNCMapsBounds read GetBounds;\r\n    property Legs: TTMSFNCDirectionsLegs read FLegs write SetLegs;\r\n  published\r\n    property Coordinates: TTMSFNCMapsCoordinates read FCoordinates write SetCoordinates;\r\n    property Distance: Double read FDistance write FDistance;\r\n    property Duration: Integer read FDuration write FDuration;\r\n    property Summary: string read FSummary write FSummary;\r\n    property WayPoints: TTMSFNCDirectionsWayPoints read FWayPoints write SetWayPoints;\r\n    property Steps: TTMSFNCDirectionsSteps read FSteps write SetSteps;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCDirectionsItems = class(TTMSFNCOwnedCollection)\r\n  {$ELSE}\r\n  TTMSFNCDirectionsItems = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCDirectionsItem>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TTMSFNCCustomDirections;\r\n    function GetItem(Index: Integer): TTMSFNCDirectionsItem;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCDirectionsItem);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; virtual;\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCCustomDirections); virtual;\r\n    property Items[Index: Integer]: TTMSFNCDirectionsItem read GetItem write SetItem; default;\r\n    function Add: TTMSFNCDirectionsItem;\r\n    function Insert(Index: Integer): TTMSFNCDirectionsItem;\r\n  end;\r\n\r\n  TTMSFNCDirectionsItemsClass = class of TTMSFNCDirectionsItems;\r\n\r\n  TTMSFNCDirectionsRequest = class(TCollectionItem)\r\n  private\r\n    FOwner: TTMSFNCCustomDirections;\r\n    FDataPointer: Pointer;\r\n    FDataBoolean: Boolean;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FItems: TTMSFNCDirectionsItems;\r\n    FID: string;\r\n    FTraveLmode: TTMSFNCDirectionsTravelMode;\r\n    FStatus: string;\r\n    FErrorMessage: string;\r\n    procedure SetItems(const Value: TTMSFNCDirectionsItems);\r\n    procedure SetTravelMode(const Value: TTMSFNCDirectionsTravelMode);\r\n    procedure SetErrorMessage(const Value: string);\r\n    procedure SetStatus(const Value: string);\r\n  protected\r\n    function GetDirectionsItemsClass: TTMSFNCDirectionsItemsClass; virtual;\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n  published\r\n    property ID: string read FID;\r\n    property Items: TTMSFNCDirectionsItems read FItems write SetItems;\r\n    property TravelMode: TTMSFNCDirectionsTravelMode read FTraveLmode write SetTravelMode;\r\n    property Status: string read FStatus write SetStatus;\r\n    property ErrorMessage: string read FErrorMessage write SetErrorMessage;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCDirectionsRequests = class(TTMSFNCOwnedCollection)\r\n  {$ELSE}\r\n  TTMSFNCDirectionsRequests = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCDirectionsRequest>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TTMSFNCCustomDirections;\r\n    function GetItem(Index: Integer): TTMSFNCDirectionsRequest;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCDirectionsRequest);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; virtual;\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCCustomDirections); virtual;\r\n    property Items[Index: Integer]: TTMSFNCDirectionsRequest read GetItem write SetItem; default;\r\n    function Add: TTMSFNCDirectionsRequest;\r\n    function Insert(Index: Integer): TTMSFNCDirectionsRequest;\r\n  end;\r\n\r\n  TTMSFNCDirectionsRequestsClass = class of TTMSFNCDirectionsRequests;\r\n\r\n  { TTMSFNCCustomDirections }\r\n  TTMSFNCDirectionsGetDirectionsCallback = {$IFNDEF LCLLIB}reference to {$ENDIF}procedure(const ARequest: TTMSFNCDirectionsRequest; const ARequestResult: TTMSFNCCloudBaseRequestResult){$IFDEF LCLLIB} of object{$ENDIF};\r\n  TTMSFNCDirectionsGetDirectionsEvent = procedure(Sender: TObject; const ARequest: TTMSFNCDirectionsRequest; const ARequestResult: TTMSFNCCloudBaseRequestResult) of object;\r\n\r\n  TTMSFNCDirectionsGetDirectionsResultCallback = {$IFNDEF LCLLIB}reference to {$ENDIF}procedure(const AResult: TTMSFNCDirectionsRequest){$IFDEF LCLLIB} of object{$ENDIF};\r\n  TTMSFNCDirectionsGetDirectionsResultEvent = procedure(Sender: TObject; const AResult: TTMSFNCDirectionsRequest) of object;\r\n\r\n  TTMSFNCDirectionsOptionsRec = record\r\n    Callback: TTMSFNCDirectionsGetDirectionsCallback;\r\n    ID: string;\r\n    DataPointer: Pointer;\r\n    Alternatives: Boolean;\r\n    TravelMode: TTMSFNCDirectionsTravelMode;\r\n    WayPointStrings: array of string;\r\n    WayPointCoordinates: TTMSFNCMapsCoordinateRecArray;\r\n    OptimizeWayPoints: Boolean;\r\n    Locale: string;\r\n    LocaleMode: TTMSFNCMapsLocaleMode;\r\n    AvoidTolls: Boolean;\r\n    AvoidHighways: Boolean;\r\n  end;\r\n\r\n  TTMSFNCDirectionsCallBackWrapper = class\r\n  private\r\n    FCallback: TTMSFNCDirectionsGetDirectionsCallback;\r\n  public\r\n    constructor Create(ACallback: TTMSFNCDirectionsGetDirectionsCallback);\r\n  end;\r\n\r\n  TTMSFNCDirectionsResultCallBackWrapper = class\r\n  private\r\n    FCallback: TTMSFNCDirectionsGetDirectionsResultCallback;\r\n  public\r\n    constructor Create(ACallback: TTMSFNCDirectionsGetDirectionsResultCallback);\r\n  end;\r\n\r\n  TTMSFNCCustomDirections = class(TTMSFNCCloudBase, ITMSFNCCustomDirectionsProperties)\r\n  private\r\n    FDirections: ITMSFNCCustomDirections;\r\n    FDirectionsInstance: ITMSFNCCustomDirectionsInstance;\r\n    FDirectionsProperties: ITMSFNCCustomDirectionsProperties;\r\n    FService: TTMSFNCDirectionsService;\r\n    FAPIKey: string;\r\n    FDirectionsRequests: TTMSFNCDirectionsRequests;\r\n    FOnGetDirections: TTMSFNCDirectionsGetDirectionsEvent;\r\n    FOnGetDirectionsInternal: TTMSFNCDirectionsGetDirectionsEvent;\r\n    FOnGetDirectionsResultInternal: TTMSFNCDirectionsGetDirectionsResultEvent;\r\n    FOnGetDirectionsResult: TTMSFNCDirectionsGetDirectionsResultEvent;\r\n    FIsGoogleRoutes: Boolean;\r\n    FUseGoogleRoutes: Boolean;\r\n    procedure SetService(const Value: TTMSFNCDirectionsService);\r\n    procedure SetAPIKey(const Value: string);\r\n    procedure SetDirectionsRequests(const Value: TTMSFNCDirectionsRequests);\r\n    procedure SetIsGoogleRoutes(const Value: Boolean);\r\n    procedure SetUseGoogleRoutes(const Value: Boolean);\r\n  protected\r\n    procedure DoRequestGetDirections(const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\n    procedure DoGetDirections(const ARequest: TTMSFNCDirectionsRequest; const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\n    property OnGetDirections: TTMSFNCDirectionsGetDirectionsEvent read FOnGetDirections write FOnGetDirections;\r\n    property OnGetDirectionsInternal: TTMSFNCDirectionsGetDirectionsEvent read FOnGetDirectionsInternal write FOnGetDirectionsInternal;\r\n    property OnGetDirectionsResult: TTMSFNCDirectionsGetDirectionsResultEvent read FOnGetDirectionsResult write FOnGetDirectionsResult;\r\n    property OnGetDirectionsResultInternal: TTMSFNCDirectionsGetDirectionsResultEvent read FOnGetDirectionsResultInternal write FOnGetDirectionsResultInternal;\r\n\r\n    procedure InitializeDirections; virtual;\r\n    function GetTruckOptions(var AOptions: string; AAVoidTolls: Boolean): string; virtual;\r\n    function GetGoogleRoutesOptions(var AOptions: string; ATravelMode: TTMSFNCDirectionsTravelMode;\r\n      AWayPoints: TTMSFNCMapsCoordinateRecArray; AWayPointsList: TStringList; AOptimizeWayPoints: Boolean): string; virtual;\r\n    function GetInstance: NativeUInt; override;\r\n    function GetDirectionsRequests: TTMSFNCDirectionsRequests;\r\n    function GetDirectionsRequestsClass: TTMSFNCDirectionsRequestsClass; virtual;\r\n    function DirectionsReady: Boolean;\r\n    function GetAPIKey: string;\r\n    function GetVersionNr: Integer;\r\n    function GetDocURL: string; override;\r\n    function GetTipsURL: string; override;\r\n    function Directions: ITMSFNCCustomDirections;\r\n    function GetVersion: string; override;\r\n    property IsGoogleRoutes: Boolean read FIsGoogleRoutes write SetIsGoogleRoutes default False;\r\n    property Service: TTMSFNCDirectionsService read FService write SetService default dsGoogle;\r\n    property APIKey: string read FAPIKey write SetAPIKey;\r\n    property DirectionsRequests: TTMSFNCDirectionsRequests read FDirectionsRequests write SetDirectionsRequests;\r\n\r\n    property DirectionsInstance: ITMSFNCCustomDirections read FDirections;\r\n    property DirectionsProperties: ITMSFNCCustomDirectionsProperties read FDirectionsProperties;\r\n    property UseGoogleRoutes: Boolean read FUseGoogleRoutes write SetUseGoogleRoutes default False;\r\n\r\n    procedure GetDirectionsInt(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude, ADestinationLatitude,\r\n      ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AMode: TTMSFNCMapsLocaleMode = mlmDefault;\r\n      AID: string = ''; ADataPointer: Pointer = nil; ACallback: TTMSFNCDirectionsGetDirectionsCallback = nil; ACallback2: TTMSFNCDirectionsGetDirectionsResultCallback = nil;\r\n      AAVoidTolls: Boolean = False; AAvoidHighways: Boolean = False); overload; virtual;\r\n\r\n    procedure GetDirectionsInt(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude, ADestinationLatitude,\r\n      ADestinationLongitude: Double; AOptions: TTMSFNCDirectionsOptionsRec); overload; virtual;\r\n\r\n    function SaveToGPXInt(ACoordinates: TTMSFNCMapsCoordinateRecArray; AMetaData: TTMSFNCMapsGPXMetaData; AInstructions: TTMSFNCDirectionsSteps): string;\r\n\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure GetDirections(AOrigin, ADestination: TTMSFNCMapsCoordinateRec; ACallback: TTMSFNCDirectionsGetDirectionsCallback = nil;\r\n      AID: string = ''; ADataPointer: Pointer = nil; AAlternatives: Boolean = False; ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving;\r\n      AWayPoints: TTMSFNCMapsCoordinateRecArray = nil; AOptimizeWayPoints: Boolean = False; ALocale: string = '';\r\n      AMode: TTMSFNCMapsLocaleMode = mlmDefault; AAvoidTolls: Boolean = False; AAvoidHighways: Boolean = False); overload; virtual;\r\n\r\n    procedure GetDirections(AOrigin, ADestination: string; ACallback: TTMSFNCDirectionsGetDirectionsCallback = nil;\r\n      AID: string = ''; ADataPointer: Pointer = nil; AAlternatives: Boolean = False; ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving;\r\n      AWayPoints: TStringList = nil; AOptimizeWayPoints: Boolean = False; ALocale: string = '';\r\n      AMode: TTMSFNCMapsLocaleMode = mlmDefault; AAvoidTolls: Boolean = False; AAvoidHighways: Boolean = False); overload; virtual;\r\n\r\n    procedure GetDirections(AOrigin, ADestination: TTMSFNCMapsCoordinateRec; AOptions: TTMSFNCDirectionsOptionsRec); overload; virtual;\r\n    procedure GetDirections(AOrigin, ADestination: string; AOptions: TTMSFNCDirectionsOptionsRec); overload; virtual;\r\n\r\n    procedure GetDirectionsResult(AOrigin, ADestination: TTMSFNCMapsCoordinateRec; ACallback: TTMSFNCDirectionsGetDirectionsResultCallback = nil;\r\n      AID: string = ''; ADataPointer: Pointer = nil; AAlternatives: Boolean = False; ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving;\r\n      AWayPoints: TTMSFNCMapsCoordinateRecArray = nil; AOptimizeWayPoints: Boolean = False; ALocale: string = '';\r\n      AMode: TTMSFNCMapsLocaleMode = mlmDefault; AAvoidTolls: Boolean = False; AAvoidHighways: Boolean = False); overload; virtual;\r\n\r\n    procedure GetDirectionsResult(AOrigin, ADestination: string; ACallback: TTMSFNCDirectionsGetDirectionsResultCallback = nil;\r\n      AID: string = ''; ADataPointer: Pointer = nil; AAlternatives: Boolean = False; ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving;\r\n      AWayPoints: TStringList = nil; AOptimizeWayPoints: Boolean = False; ALocale: string = '';\r\n      AMode: TTMSFNCMapsLocaleMode = mlmDefault; AAvoidTolls: Boolean = False; AAvoidHighways: Boolean = False); overload; virtual;\r\n\r\n    procedure SaveToGPXStream(ACoordinates: TTMSFNCMapsCoordinateRecArray; AStream: TStream; AInstructions: TTMSFNCDirectionsSteps = nil); overload; virtual;\r\n    procedure SaveToGPXStream(ACoordinates: TTMSFNCMapsCoordinateRecArray; AStream: TStream; AMetaData: TTMSFNCMapsGPXMetaData; AInstructions: TTMSFNCDirectionsSteps = nil); overload; virtual;\r\n    procedure SaveToGPXFile(ACoordinates: TTMSFNCMapsCoordinateRecArray; AFileName: string; AInstructions: TTMSFNCDirectionsSteps = nil); overload; virtual;\r\n    procedure SaveToGPXFile(ACoordinates: TTMSFNCMapsCoordinateRecArray; AFileName: string; AMetaData: TTMSFNCMapsGPXMetaData; AInstructions: TTMSFNCDirectionsSteps = nil); overload; virtual;\r\n    function SaveToGPXText(ACoordinates: TTMSFNCMapsCoordinateRecArray; AInstructions: TTMSFNCDirectionsSteps = nil): string; overload; virtual;\r\n    function SaveToGPXText(ACoordinates: TTMSFNCMapsCoordinateRecArray; AMetaData: TTMSFNCMapsGPXMetaData; AInstructions: TTMSFNCDirectionsSteps = nil): string; overload; virtual;\r\n  end;\r\n\r\n  TTMSFNCCustomDirectionsInterfacedObject = class(TInterfacedObject, ITMSFNCCustomDirectionsInstance)\r\n  private\r\n    FDirectionsProperties: ITMSFNCCustomDirectionsProperties;\r\n    function GetDirectionsProperties: ITMSFNCCustomDirectionsProperties;\r\n  protected\r\n    procedure SetDirectionsProperties(const Value: ITMSFNCCustomDirectionsProperties);\r\n  public\r\n    property DirectionsProperties: ITMSFNCCustomDirectionsProperties read GetDirectionsProperties;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCDirectionsList = class(TList)\r\n  private\r\n    function GetItem(Index: Integer): ITMSFNCCustomDirections;\r\n    procedure SetItem(Index: Integer; const Value: ITMSFNCCustomDirections);\r\n  public\r\n    property Items[Index: Integer]: ITMSFNCCustomDirections read GetItem write SetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCDirectionsList = class(TList<ITMSFNCCustomDirections>);\r\n  {$ENDIF}\r\n\r\n  TTMSFNCDirectionsFactoryService = class(TInterfacedObject, ITMSFNCDirectionsService)\r\n  private\r\n    FDirections: TTMSFNCDirectionsList;\r\n  protected\r\n    function DoCreateDirections: ITMSFNCCustomDirections; virtual; abstract;\r\n    function CreateDirections: ITMSFNCCustomDirections;\r\n    procedure DestroyDirections(ADirections: ITMSFNCCustomDirections);\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  TTMSFNCDirections = class(TTMSFNCCustomDirections)\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n  public\r\n    property DirectionsInstance;\r\n    property DirectionsProperties;\r\n    property UseGoogleRoutes;\r\n  published\r\n    property OnGetDirections;\r\n    property OnGetDirectionsResult;\r\n    property APIKey;\r\n    property DirectionsRequests;\r\n    property Service;\r\n    property Version;\r\n  end;\r\n\r\n  TTMSFNCDirectionsPlatformServicesService = class\r\n  private\r\n    FInterface: IInterface;\r\n    FGUID: string;\r\n  public\r\n    constructor Create(AGUID: string; AInterface: IInterface);\r\n    property GUID: string read FGUID;\r\n    property &Interface: IInterface read FInterface;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCDirectionsPlatformServicesList = class(TObjectList)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCDirectionsPlatformServicesService;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCDirectionsPlatformServicesService);\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCDirectionsPlatformServicesService read GetItem write SetItem; default;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCDirectionsPlatformServicesList = class(TObjectList<TTMSFNCDirectionsPlatformServicesService>)\r\n  {$ENDIF}\r\n  private\r\n    function GetValue(AGUID: string): IInterface;\r\n  public\r\n    function ContainsKey(AGUID: string): Boolean;\r\n    procedure RemoveByGUID(AGUID: string);\r\n    property Interfaces[AGUID: string]: IInterface read GetValue;\r\n  end;\r\n\r\n  TTMSFNCDirectionsPlatformServices = class\r\n  private\r\n    FServicesList: TTMSFNCDirectionsPlatformServicesList;\r\n    class var FCurrent: TTMSFNCDirectionsPlatformServices;\r\n    class var FCurrentReleased: Boolean;\r\n{$IFNDEF AUTOREFCOUNT}\r\n    class procedure ReleaseCurrent;\r\n{$ENDIF}\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n    procedure AddPlatformService(const AServiceGUID: TGUID; const AService: IInterface);\r\n    procedure RemovePlatformService(const AServiceGUID: TGUID);\r\n    function GetPlatformService(const AServiceGUID: TGUID): IInterface;\r\n    function SupportsPlatformService(const AServiceGUID: TGUID): Boolean; overload;\r\n    function SupportsPlatformService(const AServiceGUID: TGUID; var AService: IInterface): Boolean; overload;\r\n    class function Current: TTMSFNCDirectionsPlatformServices;\r\n  end;\r\n\r\n  procedure DecodeValues(AValues: string; ACoordinates: TTMSFNCMapsCoordinates);\r\n  function DefaultDirectionsOptions: TTMSFNCDirectionsOptionsRec;\r\n\r\nimplementation\r\n\r\nuses\r\n  {$IFDEF MSWINDOWS}\r\n  Windows, Registry,\r\n  {$ENDIF}\r\n  {%H-}Math,\r\n  WEBLib.TMSFNCUtils,\r\n  WEBLib.TMSFNCDirections.Google,\r\n  WEBLib.TMSFNCDirections.GoogleRoutes,\r\n  WEBLib.TMSFNCDirections.Here,\r\n  WEBLib.TMSFNCDirections.Bing,\r\n  WEBLib.TMSFNCDirections.Azure,\r\n  WEBLib.TMSFNCDirections.MapBox,\r\n  WEBLib.TMSFNCDirections.TomTom,\r\n  WEBLib.TMSFNCDirections.OpenRouteService,\r\n  WEBLib.TMSFNCDirections.GeoAPify,\r\n  SysUtils\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Types\r\n  {$ENDIF}\r\n  ;\r\n\r\nfunction DefaultDirectionsOptions: TTMSFNCDirectionsOptionsRec;\r\nbegin\r\n  Result.Callback := nil;\r\n  Result.ID := '';\r\n  Result.DataPointer := nil;\r\n  Result.Alternatives := False;\r\n  Result.TravelMode := tmDriving;\r\n  {$IFNDEF LCLLIB}\r\n  Result.WayPointStrings := [];\r\n  {$ENDIF}\r\n  Result.Locale := '';\r\n  Result.LocaleMode := mlmCountry;\r\n  Result.AvoidTolls := False;\r\n  Result.AvoidHighways := False;\r\nend;\r\n\r\n{ TTMSFNCCustomDirections }\r\n\r\nfunction TTMSFNCCustomDirections.GetAPIKey: string;\r\nbegin\r\n  Result := APIKey;\r\nend;\r\n\r\nfunction TTMSFNCCustomDirections.GetDocURL: string;\r\nbegin\r\n  Result := TTMSFNCDirectionsDocURL;\r\nend;\r\n\r\nfunction TTMSFNCCustomDirections.GetGoogleRoutesOptions(\r\n  var AOptions: string; ATravelMode: TTMSFNCDirectionsTravelMode;\r\n    AWayPoints: TTMSFNCMapsCoordinateRecArray; AWayPointsList: TStringList; AOptimizeWayPoints: Boolean): string;\r\nbegin\r\n  Result := AOptions;\r\nend;\r\n\r\nfunction TTMSFNCCustomDirections.GetInstance: NativeUInt;\r\nbegin\r\n  Result := HInstance;\r\nend;\r\n\r\nfunction TTMSFNCCustomDirections.GetTipsURL: string;\r\nbegin\r\n  Result := TTMSFNCDirectionsTipsURL;\r\nend;\r\n\r\nfunction TTMSFNCCustomDirections.GetTruckOptions(var AOptions: string; AAVoidTolls: Boolean): string;\r\nbegin\r\n  Result := AOptions;\r\nend;\r\n\r\nfunction TTMSFNCCustomDirections.GetVersion: string;\r\nvar\r\n  vn: Integer;\r\nbegin\r\n  vn := GetVersionNr;\r\n  Result := IntToStr(Hi(Hiword(vn)))+'.'+IntToStr(Lo(Hiword(vn)))+'.'+IntToStr(Hi(Loword(vn)))+'.'+IntToStr(Lo(Loword(vn)));\r\nend;\r\n\r\nfunction TTMSFNCCustomDirections.GetVersionNr: Integer;\r\nbegin\r\n  Result := MakeLong(MakeWord(BLD_VER,REL_VER),MakeWord(MIN_VER,MAJ_VER));\r\nend;\r\n\r\nprocedure TTMSFNCCustomDirections.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if (Source is TTMSFNCCustomDirections) then\r\n  begin\r\n    FService := (Source as TTMSFNCCustomDirections).Service;\r\n    FAPIKey := (Source as TTMSFNCCustomDirections).APIKey;\r\n    FDirectionsRequests.Assign((Source as TTMSFNCCustomDirections).DirectionsRequests);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDirections.GetDirections(AOrigin, ADestination: TTMSFNCMapsCoordinateRec; ACallback: TTMSFNCDirectionsGetDirectionsCallback = nil;\r\n  AID: string = ''; ADataPointer: Pointer = nil; AAlternatives: Boolean = False; ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving;\r\n    AWayPoints: TTMSFNCMapsCoordinateRecArray = nil; AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AMode: TTMSFNCMapsLocaleMode = mlmDefault;\r\n    AAvoidTolls: Boolean = False; AAvoidHighways: Boolean = False);\r\nbegin\r\n  GetDirectionsInt('', '', AOrigin.Latitude, AOrigin.Longitude, ADestination.Latitude,\r\n    ADestination.Longitude, AAlternatives, ATravelMode, nil, AWayPoints, AOptimizeWayPoints,\r\n    ALocale, AMode, AID, ADataPointer, ACallback, nil, AAvoidTolls, AAvoidHighways);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDirections.GetDirectionsResult(AOrigin, ADestination: TTMSFNCMapsCoordinateRec; ACallback: TTMSFNCDirectionsGetDirectionsResultCallback = nil;\r\n  AID: string = ''; ADataPointer: Pointer = nil; AAlternatives: Boolean = False; ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving;\r\n    AWayPoints: TTMSFNCMapsCoordinateRecArray = nil; AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AMode: TTMSFNCMapsLocaleMode = mlmDefault;\r\n    AAvoidTolls: Boolean = False; AAvoidHighways: Boolean = False);\r\nbegin\r\n  GetDirectionsInt('', '', AOrigin.Latitude, AOrigin.Longitude, ADestination.Latitude,\r\n    ADestination.Longitude, AAlternatives, ATravelMode, nil, AWayPoints, AOptimizeWayPoints,\r\n    ALocale, AMode, AID, ADataPointer, nil, ACallback, AAvoidTolls, AAvoidHighways);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDirections.GetDirections(AOrigin, ADestination: string;\r\n  ACallback: TTMSFNCDirectionsGetDirectionsCallback; AID: string;\r\n  ADataPointer: Pointer; AAlternatives: Boolean;\r\n  ATravelMode: TTMSFNCDirectionsTravelMode;\r\n  AWayPoints: TStringList; AOptimizeWayPoints: Boolean;\r\n  ALocale: string; AMode: TTMSFNCMapsLocaleMode; AAvoidTolls: Boolean; AAvoidHighways: Boolean);\r\nbegin\r\n  if (Service in [dsGoogle]) or (IsGoogleRoutes) then\r\n  begin\r\n    GetDirectionsInt(AOrigin, ADestination, 0, 0, 0,\r\n      0, AAlternatives, ATravelMode, AWayPoints, nil, AOptimizeWayPoints,\r\n      ALocale, AMode, AID, ADataPointer, ACallback, nil, AAvoidTolls, AAvoidHighways);\r\n  end\r\n  else\r\n  begin\r\n    raise Exception.Create('Using AOrigin and ADestination string parameters only supported for Google Directions/Routes');\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDirections.GetDirectionsResult(AOrigin,\r\n  ADestination: string; ACallback: TTMSFNCDirectionsGetDirectionsResultCallback;\r\n  AID: string; ADataPointer: Pointer; AAlternatives: Boolean;\r\n  ATravelMode: TTMSFNCDirectionsTravelMode;\r\n  AWayPoints: TStringList; AOptimizeWayPoints: Boolean;\r\n  ALocale: string; AMode: TTMSFNCMapsLocaleMode; AAvoidTolls: Boolean; AAvoidHighways: Boolean);\r\nbegin\r\n  if (Service in [dsGoogle]) or (IsGoogleRoutes) then\r\n  begin\r\n    GetDirectionsInt(AOrigin, ADestination, 0, 0, 0,\r\n      0, AAlternatives, ATravelMode, AWayPoints, nil, AOptimizeWayPoints,\r\n      ALocale, AMode, AID, ADataPointer, nil, ACallback, AAvoidTolls, AAvoidHighways);\r\n  end\r\n  else\r\n  begin\r\n    raise Exception.Create('Using AOrigin and ADestination string parameters only supported for Google Directions/Routes');\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDirections.GetDirections(AOrigin,\r\n  ADestination: TTMSFNCMapsCoordinateRec;\r\n  AOptions: TTMSFNCDirectionsOptionsRec);\r\nbegin\r\n  GetDirectionsInt('', '', AOrigin.Latitude, AOrigin.Longitude, ADestination.Latitude,\r\n    ADestination.Longitude, AOptions);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDirections.GetDirections(AOrigin, ADestination: string;\r\n  AOptions: TTMSFNCDirectionsOptionsRec);\r\nbegin\r\n  GetDirectionsInt(AOrigin, ADestination, 0, 0, 0, 0, AOptions);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDirections.GetDirectionsInt(AOrigin,\r\n  ADestination: string; AOriginLatitude, AOriginLongitude, ADestinationLatitude,\r\n  ADestinationLongitude: Double; AOptions: TTMSFNCDirectionsOptionsRec);\r\nvar\r\n  WayPointStrings: TStringList;\r\n  I: Integer;\r\nbegin\r\n  WayPointStrings := TStringList.Create;\r\n  for I := 0 to Length(AOptions.WayPointStrings) - 1 do\r\n  begin\r\n    WayPointStrings.Add(AOptions.WayPointStrings[I]);\r\n  end;\r\n\r\n  GetDirectionsInt(AOrigin, ADestination, AOriginLatitude, AOriginLongitude, ADestinationLatitude,\r\n    ADestinationLongitude, AOptions.Alternatives, AOptions.TravelMode, WayPointStrings, AOptions.WayPointCoordinates, AOptions.OptimizeWayPoints,\r\n    AOptions.Locale, AOptions.LocaleMode, AOptions.ID, AOptions.DataPointer, AOptions.Callback, nil, AOptions.AvoidTolls, AOptions.AvoidHighways);\r\n\r\n  WayPointStrings.Free;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDirections.GetDirectionsInt(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude, ADestinationLatitude, ADestinationLongitude: Double;\r\n  AAlternatives: Boolean = False; ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n    AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AMode: TTMSFNCMapsLocaleMode = mlmDefault; AID: string = '';\r\n    ADataPointer: Pointer = nil; ACallback: TTMSFNCDirectionsGetDirectionsCallback = nil; ACallback2: TTMSFNCDirectionsGetDirectionsResultCallback = nil; AAvoidTolls: Boolean = False;\r\n    AAvoidHighways: Boolean = False);\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  if Service = dsGoogle then\r\n  begin\r\n    raise Exception.Create('The Google Directions/Routes API does not support client-side requests from a browser.');\r\n    Exit;\r\n  end;\r\n  {$ENDIF}\r\n\r\n  if not DirectionsReady then\r\n  begin\r\n    raise Exception.Create('Please set API key!');\r\n    Exit;\r\n  end;\r\n\r\n  Request.Clear;\r\n  Request.ClearHeaders;\r\n  FDirections.AddHeaders(Request.Headers);\r\n  Request.Name := 'GET DIRECTIONS';\r\n  Request.DataString := AID;\r\n  Request.DataPointer := ADataPointer;\r\n\r\n  if Assigned(ACallback) then\r\n    Request.DataObject := TTMSFNCDirectionsCallBackWrapper.Create(ACallback)\r\n  else if Assigned(ACallback2) then\r\n    Request.DataObject := TTMSFNCDirectionsResultCallBackWrapper.Create(ACallback2);\r\n\r\n  Request.Method := FDirections.GetRequestMethod;\r\n  Request.Host := FDirections.GetHost;\r\n  Request.Path := FDirections.GetPath(TTMSFNCUtils.URLEncode(AOrigin), TTMSFNCUtils.URLEncode(ADestination), AOriginLatitude,\r\n    AOriginLongitude, ADestinationLatitude, ADestinationLongitude, ATravelMode, AWayPoints);\r\n  Request.Query := FDirections.GetQuery(TTMSFNCUtils.URLEncode(AOrigin), TTMSFNCUtils.URLEncode(ADestination), AOriginLatitude,\r\n    AOriginLongitude, ADestinationLatitude, ADestinationLongitude, AAlternatives,\r\n    ATravelMode, AWayPointList, AWayPoints, AOptimizeWayPoints, ParseLocale(ALocale, AMode), AAVoidTolls, AAvoidHighways);\r\n  Request.PostData := FDirections.GetPostData(AOrigin, ADestination, AOriginLatitude, AOriginLongitude, ADestinationLatitude, ADestinationLongitude,\r\n    AAlternatives, ATravelMode, AWayPointList, AWayPoints, AOptimizeWayPoints, ParseLocale(ALocale, AMode), AAVoidTolls, AAvoidHighways);\r\n  ExecuteRequest({$IFDEF LCLWEBLIB}@{$ENDIF}DoRequestGetDirections);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDirections.SaveToGPXFile(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray; AFileName: string; AInstructions: TTMSFNCDirectionsSteps = nil);\r\nbegin\r\n  SaveToGPXFile(ACoordinates, AFileName, DefaultGPXMetaData, AInstructions);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDirections.SaveToGPXFile(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray; AFileName: string;\r\n  AMetaData: TTMSFNCMapsGPXMetaData; AInstructions: TTMSFNCDirectionsSteps = nil);\r\nvar\r\n  sl: TStringList;\r\nbegin\r\n  sl := TStringList.Create;\r\n  try\r\n    sl.Text := SaveToGPXText(ACoordinates, AMetaData, AInstructions);\r\n    sl.SaveToFile(AFileName);\r\n  finally\r\n    sl.Free;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomDirections.SaveToGPXInt(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray;\r\n  AMetaData: TTMSFNCMapsGPXMetaData; AInstructions: TTMSFNCDirectionsSteps): string;\r\nvar\r\n  Instructions: TStringList;\r\n  Steps: TTMSFNCMapsCoordinateRecArrayArray;\r\n  I, J: Integer;\r\nbegin\r\n  if Assigned(AInstructions) then\r\n  begin\r\n    SetLength(Steps, AInstructions.Count);\r\n    Instructions := TStringList.Create;\r\n    for I := 0 to AInstructions.Count - 1 do\r\n    begin\r\n      Instructions.Add(AInstructions[I].Instructions);\r\n      Setlength(Steps[I], AInstructions[I].Coordinates.Count);\r\n      for J := 0 to AInstructions[I].Coordinates.Count - 1 do\r\n      begin\r\n        Steps[I][J].Latitude := AInstructions[I].Coordinates[J].Latitude;\r\n        Steps[I][J].Longitude := AInstructions[I].Coordinates[J].Longitude;\r\n      end;\r\n    end;\r\n    Result := SaveToGPX(Steps, AMetaData, True, True, Instructions);\r\n    Instructions.Free;\r\n  end\r\n  else\r\n  begin\r\n    Result := SaveToGPX(ACoordinates, AMetaData);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDirections.SaveToGPXStream(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray; AStream: TStream; AInstructions: TTMSFNCDirectionsSteps = nil);\r\nbegin\r\n  SaveToGPXStream(ACoordinates, AStream, DefaultGPXMetaData, AInstructions);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDirections.SaveToGPXStream(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray; AStream: TStream;\r\n  AMetaData: TTMSFNCMapsGPXMetaData; AInstructions: TTMSFNCDirectionsSteps = nil);\r\nvar\r\n  ss: TStringStream;\r\nbegin\r\n  ss := TStringStream.Create(SaveToGPXText(ACoordinates, AMetaData, AInstructions));\r\n  try\r\n    AStream.CopyFrom(ss, ss.Size);\r\n  finally\r\n    ss.Free;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomDirections.SaveToGPXText(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray; AInstructions: TTMSFNCDirectionsSteps = nil): string;\r\nbegin\r\n  Result := SaveToGPXInt(ACoordinates, DefaultGPXMetaData, AInstructions);\r\nend;\r\n\r\nfunction TTMSFNCCustomDirections.SaveToGPXText(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray;\r\n  AMetaData: TTMSFNCMapsGPXMetaData; AInstructions: TTMSFNCDirectionsSteps = nil): string;\r\nbegin\r\n  Result := SaveToGPXInt(ACoordinates, AMetaData, AInstructions);\r\nend;\r\n\r\nfunction TTMSFNCCustomDirections.GetDirectionsRequests: TTMSFNCDirectionsRequests;\r\nbegin\r\n  Result := DirectionsRequests;\r\nend;\r\n\r\nfunction TTMSFNCCustomDirections.GetDirectionsRequestsClass: TTMSFNCDirectionsRequestsClass;\r\nbegin\r\n  Result := TTMSFNCDirectionsRequests;\r\nend;\r\n\r\nconstructor TTMSFNCCustomDirections.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  Supports(Self, ITMSFNCCustomDirectionsProperties, FDirectionsProperties);\r\n  FDirectionsRequests := GetDirectionsRequestsClass.Create(Self);\r\n  InitializeDirections;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDirections.InitializeDirections;\r\nvar\r\n  DirectionsServiceGoogleDirections: ITMSFNCDirectionsServiceGoogle;\r\n  DirectionsServiceGoogleRoutesDirections: ITMSFNCDirectionsServiceGoogleRoutes;\r\n  DirectionsServiceHereDirections: ITMSFNCDirectionsServiceHere;\r\n  DirectionsServiceBingDirections: ITMSFNCDirectionsServiceBing;\r\n  DirectionsServiceAzureDirections: ITMSFNCDirectionsServiceAzure;\r\n  DirectionsServiceMapBoxDirections: ITMSFNCDirectionsServiceMapBox;\r\n  DirectionsServiceTomTomDirections: ITMSFNCDirectionsServiceTomTom;\r\n  DirectionsServiceOpenRouteServiceDirections: ITMSFNCDirectionsServiceOpenRouteService;\r\n  DirectionsServiceGeoApifyDirections: ITMSFNCDirectionsServiceGeoApify;\r\nbegin\r\n  if IsDestroying then\r\n    Exit;\r\n\r\n  if Assigned(FDirections) then\r\n    FDirections.DestroyDirections;\r\n\r\n  FDirections := nil;\r\n  FDirectionsInstance := nil;\r\n\r\n  if ((Service = dsGoogle) and UseGoogleRoutes) or IsGoogleRoutes then\r\n  begin\r\n    if TTMSFNCDirectionsPlatformServices.Current.SupportsPlatformService(ITMSFNCDirectionsServiceGoogleRoutes, IInterface(DirectionsServiceGoogleRoutesDirections)) then\r\n    FDirections := DirectionsServiceGoogleRoutesDirections.CreateDirections;\r\n  end\r\n  else\r\n  begin\r\n    case Service of\r\n      dsGoogle:\r\n      begin\r\n        if TTMSFNCDirectionsPlatformServices.Current.SupportsPlatformService(ITMSFNCDirectionsServiceGoogle, IInterface(DirectionsServiceGoogleDirections)) then\r\n          FDirections := DirectionsServiceGoogleDirections.CreateDirections;\r\n        TTMSFNCUtils.Log('The Google Directions service is deprecated. It is recommend to use Google Routes (Set UseGoogleRoutes to True).');\r\n      end;\r\n      dsHere:\r\n      begin\r\n        if TTMSFNCDirectionsPlatformServices.Current.SupportsPlatformService(ITMSFNCDirectionsServiceHere, IInterface(DirectionsServiceHereDirections)) then\r\n          FDirections := DirectionsServiceHereDirections.CreateDirections;\r\n      end;\r\n      dsBing:\r\n      begin\r\n        if TTMSFNCDirectionsPlatformServices.Current.SupportsPlatformService(ITMSFNCDirectionsServiceBing, IInterface(DirectionsServiceBingDirections)) then\r\n          FDirections := DirectionsServiceBingDirections.CreateDirections;\r\n        TTMSFNCUtils.Log('The Bing Directions service is deprecated. It is recommend to use a different service.');\r\n      end;\r\n      dsAzure:\r\n      begin\r\n        if TTMSFNCDirectionsPlatformServices.Current.SupportsPlatformService(ITMSFNCDirectionsServiceAzure, IInterface(DirectionsServiceAzureDirections)) then\r\n          FDirections := DirectionsServiceAzureDirections.CreateDirections;\r\n      end;\r\n      dsMapBox:\r\n      begin\r\n        if TTMSFNCDirectionsPlatformServices.Current.SupportsPlatformService(ITMSFNCDirectionsServiceMapBox, IInterface(DirectionsServiceMapBoxDirections)) then\r\n          FDirections := DirectionsServiceMapBoxDirections.CreateDirections;\r\n      end;\r\n      dsTomTom:\r\n      begin\r\n        if TTMSFNCDirectionsPlatformServices.Current.SupportsPlatformService(ITMSFNCDirectionsServiceTomTom, IInterface(DirectionsServiceTomTomDirections)) then\r\n          FDirections := DirectionsServiceTomTomDirections.CreateDirections;\r\n      end;\r\n      dsOpenRouteService:\r\n      begin\r\n        if TTMSFNCDirectionsPlatformServices.Current.SupportsPlatformService(ITMSFNCDirectionsServiceOpenRouteService, IInterface(DirectionsServiceOpenRouteServiceDirections)) then\r\n          FDirections := DirectionsServiceOpenRouteServiceDirections.CreateDirections;\r\n      end;\r\n      dsGeoApify:\r\n      begin\r\n        if TTMSFNCDirectionsPlatformServices.Current.SupportsPlatformService(ITMSFNCDirectionsServiceGeoApify, IInterface(DirectionsServiceGeoApifyDirections)) then\r\n          FDirections := DirectionsServiceGeoApifyDirections.CreateDirections;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(FDirections) and Supports(FDirections, ITMSFNCCustomDirectionsInstance, FDirectionsInstance) then\r\n    FDirectionsInstance.SetDirectionsProperties(FDirectionsProperties);\r\nend;\r\n\r\nfunction TTMSFNCCustomDirections.DirectionsReady: Boolean;\r\nbegin\r\n  Result := Assigned(FDirections) and Assigned(FDirectionsInstance) and Assigned(FDirectionsProperties) and FDirections.IsValid;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDirections.DoGetDirections(const ARequest: TTMSFNCDirectionsRequest;\r\n  const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\nbegin\r\n  if Assigned(OnGetDirectionsInternal) then\r\n    OnGetDirectionsInternal(Self, ARequest, ARequestResult);\r\n  if Assigned(OnGetDirections) then\r\n    OnGetDirections(Self, ARequest, ARequestResult);\r\n  if Assigned(OnGetDirectionsResultInternal) then\r\n    OnGetDirectionsResultInternal(Self, ARequest);\r\n  if Assigned(OnGetDirectionsResult) then\r\n    OnGetDirectionsResult(Self, ARequest);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDirections.DoRequestGetDirections(\r\n  const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\nvar\r\n  req: TTMSFNCDirectionsRequest;\r\n  obj: TTMSFNCDirectionsCallBackWrapper;\r\n  obj2: TTMSFNCDirectionsResultCallBackWrapper;\r\nbegin\r\n  if not DirectionsReady then\r\n    Exit;\r\n\r\n  //if ARequestResult.Success then\r\n  //if there is an error, trigger the event and parse the error message instead\r\n  begin\r\n    req := DirectionsRequests.Add;\r\n    req.FID := ARequestResult.DataString;\r\n    req.DataPointer := ARequestResult.DataPointer;\r\n    FDirections.Parse(req, ARequestResult.ResultString);\r\n    DoGetDirections(req, ARequestResult);\r\n    if Assigned(ARequestResult.DataObject) then\r\n    begin\r\n      if ARequestResult.DataObject is TTMSFNCDirectionsCallBackWrapper then\r\n      begin\r\n        obj := TTMSFNCDirectionsCallBackWrapper(ARequestResult.DataObject);\r\n        obj.FCallback(req, ARequestResult);\r\n        obj.Free;\r\n      end\r\n      else if ARequestResult.DataObject is TTMSFNCDirectionsResultCallBackWrapper then\r\n      begin\r\n        obj2 := TTMSFNCDirectionsResultCallBackWrapper(ARequestResult.DataObject);\r\n        obj2.FCallback(req);\r\n        obj2.Free;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomDirections.Directions: ITMSFNCCustomDirections;\r\nbegin\r\n  Result := FDirections;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDirections.SetAPIKey(const Value: string);\r\nbegin\r\n  if FAPIKey <> Value then\r\n  begin\r\n    FAPIKey := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDirections.SetDirectionsRequests(\r\n  const Value: TTMSFNCDirectionsRequests);\r\nbegin\r\n  FDirectionsRequests.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomDirections.SetIsGoogleRoutes(const Value: Boolean);\r\nbegin\r\n  if FIsGoogleRoutes <> Value then\r\n  begin\r\n    FIsGoogleRoutes := Value;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDirections.SetService(const Value: TTMSFNCDirectionsService);\r\nbegin\r\n  if FService <> Value then\r\n  begin\r\n    FService := Value;\r\n    InitializeDirections;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDirections.SetUseGoogleRoutes(const Value: Boolean);\r\nbegin\r\n  if FUseGoogleRoutes <> Value then\r\n  begin\r\n    FUseGoogleRoutes := Value;\r\n    InitializeDirections;\r\n  end;\r\nend;\r\n\r\nprocedure DecodeValues(AValues: string;\r\n  ACoordinates: TTMSFNCMapsCoordinates);\r\nvar\r\n  lat, lon, lat_f, lon_f: Double;\r\n  index: Integer;\r\n  len: Integer;\r\n  b: Integer;\r\n  shift: Integer;\r\n  decodeResult: Integer;\r\n  encoded: String;\r\n  dlat: Integer;\r\n  dlng: Integer;\r\n  co: TTMSFNCMapsCoordinateItem;\r\nbegin\r\n  encoded := AValues;\r\n  {$IFDEF ZEROSTRINGINDEX}\r\n  len := Length(encoded) - 1;\r\n  index := 0;\r\n  {$ELSE}\r\n  len := Length(encoded);\r\n  index := 1;\r\n  {$ENDIF}\r\n  lat := 0;\r\n  lon := 0;\r\n\r\n  while (index <= len) do begin\r\n    b := $20;\r\n    shift := 0;\r\n    decodeResult := 0;\r\n\r\n    while (b >= $20) do begin\r\n      b := ord(encoded[index]);\r\n      b := b - 63;\r\n      inc(index);\r\n      decodeResult := decodeResult or (b and $1f) Shl shift;\r\n      shift := shift + 5;\r\n    end;\r\n\r\n    if (decodeResult and 1) <> 0 then\r\n      dlat := not (decodeResult shr 1)\r\n    else\r\n      dlat := decodeResult shr 1;\r\n    lat := lat + dlat;\r\n\r\n    shift := 0;\r\n    decodeResult := 0;\r\n    b := $20;\r\n    while (b >= $20) do begin\r\n      b := ord(encoded[index]);\r\n      b := b-63;\r\n      inc(index);\r\n      decodeResult := decodeResult or (b and $1f) Shl shift;\r\n      shift := shift + 5;\r\n    end;\r\n\r\n    if (decodeResult and 1) <> 0 then\r\n      dlng := not (decodeResult shr 1)\r\n    else\r\n      dlng := decodeResult shr 1;\r\n    lon := lon + dlng;\r\n\r\n    lon_f := lon / 100000.0;\r\n    lat_f := lat / 100000.0;\r\n\r\n    //set coordinates\r\n    co := ACoordinates.Add;\r\n    co.Latitude := lat_f;\r\n    co.Longitude := lon_f;\r\n  end;\r\nend;\r\n\r\ndestructor TTMSFNCCustomDirections.Destroy;\r\nbegin\r\n  FDirectionsRequests.Free;\r\n\r\n  if Assigned(FDirections) then\r\n    FDirections.DestroyDirections;\r\n\r\n  FDirections := nil;\r\n  FDirectionsInstance := nil;\r\n  FDirectionsProperties := nil;\r\n  inherited;\r\nend;\r\n\r\n{ TTMSFNCDirectionsFactoryService }\r\n\r\nconstructor TTMSFNCDirectionsFactoryService.Create;\r\nbegin\r\n  inherited Create;\r\n  FDirections := TTMSFNCDirectionsList.Create;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsFactoryService.CreateDirections: ITMSFNCCustomDirections;\r\nbegin\r\n  Result := DoCreateDirections;\r\n  FDirections.Add(Result);\r\nend;\r\n\r\ndestructor TTMSFNCDirectionsFactoryService.Destroy;\r\nbegin\r\n  FreeAndNil(FDirections);\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsFactoryService.DestroyDirections(ADirections: ITMSFNCCustomDirections);\r\nbegin\r\n  FDirections.Remove(ADirections);\r\nend;\r\n\r\n{ TTMSFNCDirectionsPlatformServices }\r\n\r\nprocedure TTMSFNCDirectionsPlatformServices.AddPlatformService(const AServiceGUID: TGUID; const AService: IInterface);\r\nvar\r\n  LService: IInterface;\r\nbegin\r\n  if not FServicesList.ContainsKey(GUIDToString(AServiceGUID)) then\r\n  begin\r\n    if Supports(AService, AServiceGUID, LService) then\r\n      FServicesList.Add(TTMSFNCDirectionsPlatformServicesService.Create(GUIDToString(AServiceGUID), AService));\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCDirectionsPlatformServices.Create;\r\nbegin\r\n  inherited;\r\n  FServicesList := TTMSFNCDirectionsPlatformServicesList.Create;\r\nend;\r\n\r\ndestructor TTMSFNCDirectionsPlatformServices.Destroy;\r\nbegin\r\n  FreeAndNil(FServicesList);\r\n  inherited;\r\nend;\r\n\r\n{$IFNDEF AUTOREFCOUNT}\r\nclass procedure TTMSFNCDirectionsPlatformServices.ReleaseCurrent;\r\nbegin\r\n  FreeAndNil(FCurrent);\r\n  FCurrentReleased := True;\r\nend;\r\n{$ENDIF}\r\n\r\nclass function TTMSFNCDirectionsPlatformServices.Current: TTMSFNCDirectionsPlatformServices;\r\nbegin\r\n  if (FCurrent = nil) and not FCurrentReleased then\r\n    FCurrent := TTMSFNCDirectionsPlatformServices.Create;\r\n  Result := FCurrent;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsPlatformServices.GetPlatformService(const AServiceGUID: TGUID): IInterface;\r\nvar\r\n  k: IInterface;\r\nbegin\r\n  k := FServicesList.Interfaces[GUIDToString(AServiceGUID)];\r\n  Supports(k, AServiceGUID, Result);\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsPlatformServices.RemovePlatformService(const AServiceGUID: TGUID);\r\nbegin\r\n  FServicesList.RemoveByGUID(GUIDToString(AServiceGUID));\r\nend;\r\n\r\nfunction TTMSFNCDirectionsPlatformServices.SupportsPlatformService(const AServiceGUID: TGUID;\r\n  var AService: IInterface): Boolean;\r\nbegin\r\n  if FServicesList.ContainsKey(GUIDToString(AServiceGUID)) then\r\n    Result := Supports(FServicesList.Interfaces[GUIDToString(AServiceGUID)], AServiceGUID, AService)\r\n  else\r\n  begin\r\n    AService := nil;\r\n    Result := False;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsPlatformServices.SupportsPlatformService(const AServiceGUID: TGUID): Boolean;\r\nbegin\r\n  Result := FServicesList.ContainsKey(GUIDToString(AServiceGUID));\r\nend;\r\n\r\n{ TTMSFNCDirectionsPlatformServicesService }\r\n\r\nconstructor TTMSFNCDirectionsPlatformServicesService.Create(AGUID: string;\r\n  AInterface: IInterface);\r\nbegin\r\n  FGUID := AGUID;\r\n  FInterface := AInterface;\r\nend;\r\n\r\n{ TTMSFNCDirectionsPlatformServicesList }\r\n\r\nfunction TTMSFNCDirectionsPlatformServicesList.ContainsKey(AGUID: string): Boolean;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := False;\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    if Items[I].GUID = AGUID then\r\n    begin\r\n      Result := True;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsPlatformServicesList.GetValue(AGUID: string): IInterface;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := nil;\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    if Items[I].GUID = AGUID then\r\n    begin\r\n      Result := Items[I].&Interface;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsPlatformServicesList.RemoveByGUID(AGUID: string);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := Count - 1 downto 0 do\r\n  begin\r\n    if Items[I].GUID = AGUID then\r\n    begin\r\n      Remove(Items[I]);\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{$IFDEF WEBLIB}\r\nfunction TTMSFNCDirectionsPlatformServicesList.GetItem(Index: Integer): TTMSFNCDirectionsPlatformServicesService;\r\nbegin\r\n  Result := TTMSFNCDirectionsPlatformServicesService(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsPlatformServicesList.SetItem(Index: Integer; const Value: TTMSFNCDirectionsPlatformServicesService);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsList.GetItem(Index: Integer): ITMSFNCCustomDirections;\r\nbegin\r\n  Result := ITMSFNCCustomDirections(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsList.SetItem(Index: Integer; const Value: ITMSFNCCustomDirections);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n{$ENDIF}\r\n\r\n{ TTMSFNCCustomDirectionsInterfacedObject }\r\n\r\ndestructor TTMSFNCCustomDirectionsInterfacedObject.Destroy;\r\nbegin\r\n  FDirectionsProperties := nil;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCCustomDirectionsInterfacedObject.GetDirectionsProperties: ITMSFNCCustomDirectionsProperties;\r\nbegin\r\n  Result := FDirectionsProperties;\r\nend;\r\n\r\nprocedure TTMSFNCCustomDirectionsInterfacedObject.SetDirectionsProperties(\r\n  const Value: ITMSFNCCustomDirectionsProperties);\r\nbegin\r\n  FDirectionsProperties := Value;\r\nend;\r\n\r\n{ TTMSFNCDirectionsItem }\r\n\r\nprocedure TTMSFNCDirectionsItem.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCDirectionsItem then\r\n  begin\r\n    FCoordinates.Assign(TTMSFNCDirectionsItem(Source).Coordinates);\r\n    FDistance := TTMSFNCDirectionsItem(Source).Distance;\r\n    FDuration := TTMSFNCDirectionsItem(Source).Duration;\r\n    FSummary := TTMSFNCDirectionsItem(Source).Summary;\r\n    FSteps.Assign(TTMSFNCDirectionsItem(Source).Steps);\r\n    FLegs.Assign(TTMSFNCDirectionsItem(Source).Legs);\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCDirectionsItem.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(ACollection) and (Collection is TTMSFNCDirectionsItems) then\r\n    FOwner := (Collection as TTMSFNCDirectionsItems).FOwner;\r\n\r\n  FCoordinates := TTMSFNCMapsCoordinates.Create(Self);\r\n  FDistance := 0;\r\n  FDuration := 0;\r\n  FSummary := '';\r\n  FSteps := TTMSFNCDirectionsSteps.Create(Self);\r\n  FLegs := TTMSFNCDirectionsLegs.Create(Self);\r\n  FWayPoints := TTMSFNCDirectionsWayPoints.Create(Self);\r\nend;\r\n\r\ndestructor TTMSFNCDirectionsItem.Destroy;\r\nbegin\r\n  FCoordinates.Free;\r\n  FSteps.Free;\r\n  FLegs.Free;\r\n  FWayPoints.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsItem.GetBounds: TTMSFNCMapsBounds;\r\nbegin\r\n  Result := Coordinates.Bounds;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsItem.SetCoordinates(\r\n  const Value: TTMSFNCMapsCoordinates);\r\nbegin\r\n  FCoordinates.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsItem.SetLegs(const Value: TTMSFNCDirectionsLegs);\r\nbegin\r\n  FLegs.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsItem.SetSteps(const Value: TTMSFNCDirectionsSteps);\r\nbegin\r\n  FSteps.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsItem.SetWayPoints(\r\n  const Value: TTMSFNCDirectionsWayPoints);\r\nbegin\r\n  FWayPoints.Assign(Value);\r\nend;\r\n\r\n{ TTMSFNCDirectionsItems }\r\n\r\nfunction TTMSFNCDirectionsItems.Add: TTMSFNCDirectionsItem;\r\nbegin\r\n  Result := TTMSFNCDirectionsItem(inherited Add);\r\nend;\r\n\r\nconstructor TTMSFNCDirectionsItems.Create(AOwner: TTMSFNCCustomDirections);\r\nbegin\r\n  inherited Create(AOwner, CreateItemClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsItems.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCDirectionsItem;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsItems.GetItem(\r\n  Index: Integer): TTMSFNCDirectionsItem;\r\nbegin\r\n  Result := TTMSFNCDirectionsItem(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCDirectionsItems.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsItems.Insert(\r\n  Index: Integer): TTMSFNCDirectionsItem;\r\nbegin\r\n  Result := TTMSFNCDirectionsItem(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsItems.SetItem(Index: Integer;\r\n  const Value: TTMSFNCDirectionsItem);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCDirectionsStep }\r\n\r\nprocedure TTMSFNCDirectionsStep.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCDirectionsStep then\r\n  begin\r\n    FCoordinates.Assign(TTMSFNCDirectionsStep(Source).Coordinates);\r\n    FStartLocation.Assign(TTMSFNCDirectionsStep(Source).StartLocation);\r\n    FEndLocation.Assign(TTMSFNCDirectionsStep(Source).EndLocation);\r\n    FDistance := TTMSFNCDirectionsStep(Source).Distance;\r\n    FDuration := TTMSFNCDirectionsStep(Source).Duration;\r\n    FInstructions := TTMSFNCDirectionsStep(Source).Instructions;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCDirectionsStep.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(ACollection) then\r\n    FOwner := (Collection as TTMSFNCDirectionsSteps).FOwner;\r\n\r\n  FCoordinates := TTMSFNCMapsCoordinates.Create(Self);\r\n  FStartLocation := TTMSFNCMapsCoordinate.Create;\r\n  FEndLocation := TTMSFNCMapsCoordinate.Create;\r\n  FDistance := 0;\r\n  FDuration := 0;\r\n  FInstructions := '';\r\nend;\r\n\r\ndestructor TTMSFNCDirectionsStep.Destroy;\r\nbegin\r\n  FCoordinates.Free;\r\n  FStartLocation.Free;\r\n  FEndLocation.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsStep.SetCoordinates(\r\n  const Value: TTMSFNCMapsCoordinates);\r\nbegin\r\n  FCoordinates.Assign(Value);\r\nend;\r\n\r\n{ TTMSFNCDirectionsLeg }\r\n\r\nprocedure TTMSFNCDirectionsLeg.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCDirectionsLeg then\r\n  begin\r\n    FCoordinates.Assign(TTMSFNCDirectionsLeg(Source).Coordinates);\r\n    FStartLocation.Assign(TTMSFNCDirectionsLeg(Source).StartLocation);\r\n    FEndLocation.Assign(TTMSFNCDirectionsLeg(Source).EndLocation);\r\n    FDistance := TTMSFNCDirectionsLeg(Source).Distance;\r\n    FDuration := TTMSFNCDirectionsLeg(Source).Duration;\r\n    FSteps.Assign(TTMSFNCDirectionsLeg(Source).Steps);\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCDirectionsLeg.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(ACollection) then\r\n    FOwner := (Collection as TTMSFNCDirectionsLegs).FOwner;\r\n\r\n  FCoordinates := TTMSFNCMapsCoordinates.Create(Self);\r\n  FStartLocation := TTMSFNCMapsCoordinate.Create;\r\n  FEndLocation := TTMSFNCMapsCoordinate.Create;\r\n  FDistance := 0;\r\n  FDuration := 0;\r\n  FSteps := TTMSFNCDirectionsSteps.Create(Self);\r\nend;\r\n\r\ndestructor TTMSFNCDirectionsLeg.Destroy;\r\nbegin\r\n  FCoordinates.Free;\r\n  FStartLocation.Free;\r\n  FEndLocation.Free;\r\n  FSteps.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsLeg.SetCoordinates(\r\n  const Value: TTMSFNCMapsCoordinates);\r\nbegin\r\n  FCoordinates.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsLeg.SetSteps(const Value: TTMSFNCDirectionsSteps);\r\nbegin\r\n  FSteps := Value;\r\nend;\r\n\r\n{ TTMSFNCDirectionsSteps }\r\n\r\nfunction TTMSFNCDirectionsSteps.Add: TTMSFNCDirectionsStep;\r\nbegin\r\n  Result := TTMSFNCDirectionsStep(inherited Add);\r\nend;\r\n\r\nconstructor TTMSFNCDirectionsSteps.Create(AOwner: TCollectionItem);\r\nbegin\r\n  inherited Create(AOwner, CreateItemClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsSteps.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCDirectionsStep;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsSteps.GetItem(Index: Integer): TTMSFNCDirectionsStep;\r\nbegin\r\n  Result := TTMSFNCDirectionsStep(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCDirectionsSteps.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsSteps.Insert(Index: Integer): TTMSFNCDirectionsStep;\r\nbegin\r\n  Result := TTMSFNCDirectionsStep(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsSteps.SetItem(Index: Integer;\r\n  const Value: TTMSFNCDirectionsStep);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCDirectionsLegs }\r\n\r\nfunction TTMSFNCDirectionsLegs.Add: TTMSFNCDirectionsLeg;\r\nbegin\r\n  Result := TTMSFNCDirectionsLeg(inherited Add);\r\nend;\r\n\r\nconstructor TTMSFNCDirectionsLegs.Create(AOwner: TCollectionItem);\r\nbegin\r\n  inherited Create(AOwner, CreateItemClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsLegs.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCDirectionsLeg;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsLegs.GetItem(Index: Integer): TTMSFNCDirectionsLeg;\r\nbegin\r\n  Result := TTMSFNCDirectionsLeg(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCDirectionsLegs.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsLegs.Insert(Index: Integer): TTMSFNCDirectionsLeg;\r\nbegin\r\n  Result := TTMSFNCDirectionsLeg(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsLegs.SetItem(Index: Integer;\r\n  const Value: TTMSFNCDirectionsLeg);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCDirectionsWayPoint }\r\n\r\nprocedure TTMSFNCDirectionsWayPoint.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if Source is TTMSFNCDirectionsWayPoint then\r\n  begin\r\n    FDistance := TTMSFNCDirectionsWayPoint(Source).Distance;\r\n    FDuration := TTMSFNCDirectionsWayPoint(Source).Duration;\r\n    FOptimizedIndex := TTMSFNCDirectionsWayPoint(Source).OptimizedIndex;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCDirectionsWayPoint.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(ACollection) then\r\n    FOwner := (Collection as TTMSFNCDirectionsWayPoints).FOwner;\r\n\r\n  FDistance := 0;\r\n  FDuration := 0;\r\n  FOptimizedIndex := -1;\r\nend;\r\n\r\ndestructor TTMSFNCDirectionsWayPoint.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\n{ TTMSFNCDirectionsWayPoints }\r\n\r\nfunction TTMSFNCDirectionsWayPoints.Add: TTMSFNCDirectionsWayPoint;\r\nbegin\r\n  Result := TTMSFNCDirectionsWayPoint(inherited Add);\r\nend;\r\n\r\nconstructor TTMSFNCDirectionsWayPoints.Create(AOwner: TCollectionItem);\r\nbegin\r\n  inherited Create(AOwner, CreateItemClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsWayPoints.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCDirectionsWayPoint;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsWayPoints.GetItem(\r\n  Index: Integer): TTMSFNCDirectionsWayPoint;\r\nbegin\r\n  Result := TTMSFNCDirectionsWayPoint(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCDirectionsWayPoints.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsWayPoints.Insert(\r\n  Index: Integer): TTMSFNCDirectionsWayPoint;\r\nbegin\r\n  Result := TTMSFNCDirectionsWayPoint(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsWayPoints.SetItem(Index: Integer;\r\n  const Value: TTMSFNCDirectionsWayPoint);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCDirectionsRequest }\r\n\r\nprocedure TTMSFNCDirectionsRequest.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCDirectionsRequest then\r\n  begin\r\n    FItems.Assign((Source as TTMSFNCDirectionsRequest).Items);\r\n    FTravelMode := (Source as TTMSFNCDirectionsRequest).TravelMode;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCDirectionsRequest.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(ACollection) then\r\n    FOwner := (Collection as TTMSFNCDirectionsRequests).FOwner;\r\n\r\n  FItems := GetDirectionsItemsClass.Create(FOwner);\r\n  FTravelMode := tmDriving;\r\n  FID := '';\r\n  FStatus := '';\r\n  FErrorMessage := '';\r\nend;\r\n\r\ndestructor TTMSFNCDirectionsRequest.Destroy;\r\nbegin\r\n  FItems.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsRequest.GetDirectionsItemsClass: TTMSFNCDirectionsItemsClass;\r\nbegin\r\n  Result := TTMSFNCDirectionsItems;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsRequest.SetErrorMessage(const Value: string);\r\nbegin\r\n  FErrorMessage := Value;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsRequest.SetItems(const Value: TTMSFNCDirectionsItems);\r\nbegin\r\n  FItems.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsRequest.SetStatus(const Value: string);\r\nbegin\r\n  FStatus := Value;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsRequest.SetTravelMode(\r\n  const Value: TTMSFNCDirectionsTravelMode);\r\nbegin\r\n  FTraveLmode := Value;\r\nend;\r\n\r\n{ TTMSFNCDirectionsRequests }\r\n\r\nfunction TTMSFNCDirectionsRequests.Add: TTMSFNCDirectionsRequest;\r\nbegin\r\n  Result := TTMSFNCDirectionsRequest(inherited Add);\r\nend;\r\n\r\nconstructor TTMSFNCDirectionsRequests.Create(AOwner: TTMSFNCCustomDirections);\r\nbegin\r\n  inherited Create(AOwner, CreateItemClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsRequests.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCDirectionsRequest;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsRequests.GetItem(\r\n  Index: Integer): TTMSFNCDirectionsRequest;\r\nbegin\r\n  Result := TTMSFNCDirectionsRequest(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCDirectionsRequests.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsRequests.Insert(\r\n  Index: Integer): TTMSFNCDirectionsRequest;\r\nbegin\r\n  Result := TTMSFNCDirectionsRequest(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsRequests.SetItem(Index: Integer;\r\n  const Value: TTMSFNCDirectionsRequest);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCDirectionsCallBackWrapper }\r\n\r\nconstructor TTMSFNCDirectionsCallBackWrapper.Create(\r\n  ACallback: TTMSFNCDirectionsGetDirectionsCallback);\r\nbegin\r\n  FCallback := ACallback;\r\nend;\r\n\r\n{ TTMSFNCDirections }\r\n\r\nprocedure TTMSFNCDirections.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClasses([TTMSFNCDirections]);\r\nend;\r\n\r\n{ TTMSFNCDirectionsResultCallBackWrapper }\r\n\r\nconstructor TTMSFNCDirectionsResultCallBackWrapper.Create(\r\n  ACallback: TTMSFNCDirectionsGetDirectionsResultCallback);\r\nbegin\r\n  FCallback := ACallback;\r\nend;\r\n\r\ninitialization\r\nbegin\r\n  TTMSFNCDirectionsPlatformServices.FCurrentReleased := False;\r\n  RegisterGoogleDirectionsService;\r\n  RegisterGoogleRoutesDirectionsService;\r\n  RegisterHereDirectionsService;\r\n  RegisterBingDirectionsService;\r\n  RegisterAzureDirectionsService;\r\n  RegisterMapBoxDirectionsService;\r\n  RegisterTomTomDirectionsService;\r\n  RegisterOpenRouteServiceDirectionsService;\r\n  RegisterGeoApifyDirectionsService;\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\nfinalization\r\nbegin\r\n  UnRegisterGoogleDirectionsService;\r\n  UnRegisterGoogleRoutesDirectionsService;\r\n  UnRegisterHereDirectionsService;\r\n  UnRegisterBingDirectionsService;\r\n  UnRegisterAzureDirectionsService;\r\n  UnRegisterMapBoxDirectionsService;\r\n  UnRegisterTomTomDirectionsService;\r\n  UnRegisterOpenRouteServiceDirectionsService;\r\n  {$IFNDEF AUTOREFCOUNT}\r\n  TTMSFNCDirectionsPlatformServices.ReleaseCurrent;\r\n  {$ENDIF}\r\nend;\r\n{$ENDIF}\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2023 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCDirections.GoogleRoutes;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nprocedure RegisterGoogleRoutesDirectionsService;\r\nprocedure UnRegisterGoogleRoutesDirectionsService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils , Types, SysUtils, WEBLib.TMSFNCDirections, WEBLib.TMSFNCGoogleRoutes,\r\n  WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes, WEBLib.TMSFNCCloudBase\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 26}\r\n  ,JSON\r\n  {$ELSE}\r\n  ,DBXJSON\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  ,fpjson\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web, WEBLIB.JSON\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\nconst\r\n  LB = #13;\r\n\r\ntype\r\n  TTMSFNCDirectionsGoogleRoutesService = class;\r\n\r\n  TTMSFNCDirectionsGoogleRoutesDirectionsFactoryService = class(TTMSFNCDirectionsFactoryService, ITMSFNCDirectionsServiceGoogleRoutes);\r\n\r\n  TTMSFNCDirectionsGoogleRoutesService = class(TTMSFNCDirectionsGoogleRoutesDirectionsFactoryService)\r\n  protected\r\n    function DoCreateDirections: ITMSFNCCustomDirections; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCDirectionsGoogleRoutesDirections = class;\r\n\r\n  TTMSFNCDirectionsGoogleRoutesDirections = class(TTMSFNCCustomDirectionsInterfacedObject, ITMSFNCCustomDirections)\r\n  protected\r\n    FTravelMode: TTMSFNCDirectionsTravelMode;\r\n    function GetIdentifier: string;\r\n    function IsValid: Boolean;\r\n    function GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\n    function GetHost: string;\r\n    function GetPath(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil): string;\r\n    function GetQuery(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAVoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\n    function GetPostData(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAvoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\n    procedure Parse(ARequest: TTMSFNCDirectionsRequest; ARequestResult: string);\r\n    procedure AddHeaders(AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\n    procedure DestroyDirections;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  DirectionsService: ITMSFNCDirectionsServiceGoogleRoutes;\r\n\r\nprocedure RegisterGoogleRoutesDirectionsService;\r\nbegin\r\n  if not TTMSFNCDirectionsPlatformServices.Current.SupportsPlatformService(ITMSFNCDirectionsServiceGoogleRoutes, IInterface(DirectionsService)) then\r\n  begin\r\n    DirectionsService := TTMSFNCDirectionsGoogleRoutesService.Create;\r\n    TTMSFNCDirectionsPlatformServices.Current.AddPlatformService(ITMSFNCDirectionsServiceGoogleRoutes, DirectionsService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterGoogleRoutesDirectionsService;\r\nbegin\r\n  TTMSFNCDirectionsPlatformServices.Current.RemovePlatformService(ITMSFNCDirectionsServiceGoogleRoutes);\r\nend;\r\n\r\n{ TTMSFNCDirectionsGoogleRoutesService }\r\n\r\nfunction TTMSFNCDirectionsGoogleRoutesService.DoCreateDirections: ITMSFNCCustomDirections;\r\nbegin\r\n  Result := TTMSFNCDirectionsGoogleRoutesDirections.Create;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsGoogleRoutesDirections.AddHeaders(\r\n  AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\nvar\r\n  Fields: TStringList;\r\nbegin\r\n  Fields := TStringList.Create;\r\n\r\n//  Fields.Add('*');\r\n\r\n  Fields.Add('routes.distanceMeters');\r\n  Fields.Add('routes.duration');\r\n//  Fields.Add('routes.staticDuration');\r\n  Fields.Add('routes.polyline.encodedPolyline');\r\n  Fields.Add('routes.description');\r\n//  Fields.Add('routes.warnings');\r\n  Fields.Add('routes.routeLabels');\r\n  Fields.Add('routes.travelAdvisory');\r\n  Fields.Add('routes.optimizedIntermediateWaypointIndex');\r\n  Fields.Add('routes.legs.distanceMeters');\r\n  Fields.Add('routes.legs.duration');\r\n//  Fields.Add('routes.legs.staticDuration');\r\n  Fields.Add('routes.legs.polyline.encodedPolyline');\r\n  Fields.Add('routes.legs.startLocation');\r\n  Fields.Add('routes.legs.endLocation');\r\n  Fields.Add('routes.legs.steps.distanceMeters');\r\n  Fields.Add('routes.legs.steps.staticDuration');\r\n  Fields.Add('routes.legs.steps.polyline.encodedPolyline');\r\n  Fields.Add('routes.legs.steps.startLocation');\r\n  Fields.Add('routes.legs.steps.endLocation');\r\n//  Fields.Add('routes.legs.steps.navigationInstructions.maneuver');\r\n  Fields.Add('routes.legs.steps.navigationInstruction.instructions');\r\n//  Fields.Add('routes.legs.steps.travelmode');\r\n//  Fields.Add('routes.legs.steps.transitDetails');\r\n\r\n  AHeaders.Add(TTMSFNCCloudBaseRequestHeader.Create('X-Goog-FieldMask', Fields.CommaText));\r\n  Fields.Free;\r\nend;\r\n\r\nconstructor TTMSFNCDirectionsGoogleRoutesDirections.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCDirectionsGoogleRoutesDirections.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsGoogleRoutesDirections.DestroyDirections;\r\nbegin\r\n  DirectionsService.DestroyDirections(Self);\r\nend;\r\n\r\nfunction TTMSFNCDirectionsGoogleRoutesDirections.GetHost: string;\r\nbegin\r\n  Result := 'https://routes.googleapis.com';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsGoogleRoutesDirections.GetIdentifier: string;\r\nbegin\r\n  Result := 'GoogleRoutes';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsGoogleRoutesDirections.GetPath(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil): string;\r\nbegin\r\n  Result := '/directions/v2:computeRoutes';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsGoogleRoutesDirections.GetPostData(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAvoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\nvar\r\n  TravelMode, WayPoints, Locale: string;\r\n  I, J: Integer;\r\nbegin\r\n  if ATravelMode in [tmTruck] then\r\n    FTravelMode := tmDriving\r\n  else\r\n    FTravelMode := ATravelMode;\r\n\r\n  case FTravelMode of\r\n    tmDriving: TravelMode := 'DRIVE';\r\n    tmWalking: TravelMode := 'WALK';\r\n    tmBicycling: TravelMode := 'BICYCLE';\r\n    tmPublicTransport: TravelMode := 'TRANSIT';\r\n  end;\r\n\r\n  if ALocale = '' then\r\n  begin\r\n    Locale := 'EN';\r\n  end\r\n  else\r\n  begin\r\n    Locale := ALocale;\r\n  end;\r\n\r\n  WayPoints := '';\r\n\r\n  if ATravelMode <> tmPublicTransport then\r\n  begin\r\n    if Assigned(AWayPointList) and (AWayPointList.Count > 0) then\r\n    begin\r\n      WayPoints := '  \"intermediates\": [';\r\n        for I := 0 to (AWayPointList.Count - 1) do\r\n          WayPoints := WayPoints + '{\"address\": \"' + AWayPointList[I] + '\"},';\r\n      WayPoints := WayPoints + ']';\r\n    end;\r\n\r\n    if Assigned(AWayPoints) and (Length(AWayPoints) > 0) then\r\n    begin\r\n      WayPoints := '  \"intermediates\": [';\r\n        J := 0;\r\n        for I := Low(AWayPoints) to High(AWayPoints) do\r\n        begin\r\n          if J > 0 then\r\n          begin\r\n            WayPoints := WayPoints + ' , ';\r\n          end;\r\n\r\n          WayPoints := WayPoints +\r\n            '    {\"location\":{' + LB +\r\n            '      \"latLng\":{' + LB +\r\n            '        \"latitude\": ' + TTMSFNCUtils.FloatToStrDot(AWayPoints[I].Latitude) + ',' + LB +\r\n            '        \"longitude\": ' + TTMSFNCUtils.FloatToStrDot(AWayPoints[I].Longitude) + '' + LB +\r\n            '      }' + LB +\r\n            '    }}' + LB;\r\n\r\n          J := J + 1;\r\n        end;\r\n      WayPoints := WayPoints + ']' + LB;\r\n    end;\r\n\r\n    if WayPoints <> '' then\r\n    begin\r\n      WayPoints := WayPoints +\r\n      ', \"optimizeWaypointOrder\": ' + LowerCase(BoolToStr(AOptimizeWayPoints, True)) + '' + LB;\r\n    end;\r\n  end;\r\n\r\n  Result := '{' + LB +\r\n    '  \"origin\":{' + LB;\r\n\r\n  if AOrigin <> '' then\r\n  begin\r\n    Result := Result + '    \"address\": \"' + AOrigin + '\"' + LB;\r\n  end\r\n  else\r\n  begin\r\n    Result := Result +\r\n    '    \"location\":{' + LB +\r\n    '      \"latLng\":{' + LB +\r\n    '        \"latitude\": ' + TTMSFNCUtils.FloatToStrDot(AOriginLatitude) + ',' + LB +\r\n    '        \"longitude\": ' + TTMSFNCUtils.FloatToStrDot(AOriginLongitude) + '' + LB +\r\n    '      }' + LB +\r\n    '    }' + LB;\r\n  end;\r\n\r\n  Result := Result + '  },' + LB +\r\n    '  \"destination\":{' + LB;\r\n\r\n  if ADestination <> '' then\r\n  begin\r\n    Result := Result + '    \"address\": \"' + ADestination + '\"' + LB;\r\n  end\r\n  else\r\n  begin\r\n    Result := Result +\r\n    '    \"location\":{' + LB +\r\n    '      \"latLng\":{' + LB +\r\n    '        \"latitude\": ' + TTMSFNCUtils.FloatToStrDot(ADestinationLatitude) + ',' + LB +\r\n    '        \"longitude\": ' + TTMSFNCUtils.FloatToStrDot(ADestinationLongitude) + '' + LB +\r\n    '      }' + LB +\r\n    '    }' + LB;\r\n  end;\r\n\r\n  Result := Result + '  },' + LB +\r\n    '  \"travelMode\": \"' + TravelMode + '\",' + LB;\r\n\r\n  Result := DirectionsProperties.GetGoogleRoutesOptions(Result, FTravelMode, AWayPoints, AWayPointList, AOptimizeWayPoints);\r\n\r\n  Result := Result +\r\n    '    \"computeAlternativeRoutes\": ' + LowerCase(BoolToStr(AAlternatives, True)) + ',' + LB;\r\n\r\n  if FTravelMode = tmDriving then\r\n  begin\r\n    Result := Result +\r\n      '    \"routeModifiers\": {' + LB +\r\n      '    \"avoidTolls\": ' + LowerCase(BoolToStr(AAvoidTolls, True)) + ',' + LB +\r\n      '    \"avoidHighways\": ' + LowerCase(BoolToStr(AAvoidHighways, True)) + ',' + LB +\r\n      '    \"avoidFerries\": false,' + LB +\r\n  //  '  \"vehicleInfo\": {\"emissionType\": \"ELECTRIC\"},' + LB +\r\n      '  },' + LB;\r\n  end;\r\n\r\n  Result := Result +\r\n    '  \"languageCode\": \"' + Locale + '\",' + LB +\r\n    '  \"units\": \"IMPERIAL\",' + LB +\r\n    WayPoints +\r\n    '}' + LB;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsGoogleRoutesDirections.GetQuery(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n  ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n  ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n  AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAVoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\nbegin\r\n  Result := 'key=' + DirectionsProperties.GetAPIKey;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsGoogleRoutesDirections.GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\nbegin\r\n  Result := rmPOST;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsGoogleRoutesDirections.IsValid: Boolean;\r\nbegin\r\n  Result := DirectionsProperties.GetAPIKey <> '';\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsGoogleRoutesDirections.Parse(ARequest: TTMSFNCDirectionsRequest; ARequestResult: string);\r\nvar\r\n  d: TTMSFNCDirectionsItems;\r\n  di: TTMSFNCDirectionsItem;\r\n  step, lstep: TTMSFNCDirectionsStep;\r\n  wp: TTMSFNCDirectionsWayPoint;\r\n  l: TTMSFNCDirectionsLeg;\r\n  spi: TTMSFNCSpeedReadingInterval;\r\n  fcm: string;\r\n  fcmint: Integer;\r\n\r\n  o, jo, jol, jos: TJSONValue;\r\n  jar, jal, jas: TJSONArray;\r\n  i, j, k, lm: Integer;\r\n  os, ot: TJSONObject;\r\n  wpIndex: array of integer;\r\nbegin\r\n  if Assigned(DirectionsProperties) then\r\n  begin\r\n    ARequest.TravelMode := FTravelMode;\r\n\r\n    d := ARequest.Items;\r\n    if Assigned(d) then\r\n    begin\r\n      if ARequestResult <> '' then\r\n      begin\r\n        o := TTMSFNCUtils.ParseJSON(ARequestResult);\r\n        if Assigned(o) then\r\n        begin\r\n          try\r\n            ARequest.Status := TTMSFNCUtils.GetJSONProp(o, 'status');\r\n            ARequest.ErrorMessage := TTMSFNCUtils.GetJSONProp(o, 'error_message');\r\n\r\n            jar := TTMSFNCUtils.GetJSONValue(o, 'routes') as TJSONArray;\r\n            if Assigned(jar) then\r\n            begin\r\n\r\n              for i := 0 to TTMSFNCUtils.GetJSONArraySize(jar) - 1 do\r\n              begin\r\n                jo := TTMSFNCUtils.GetJSONArrayItem(jar, i);\r\n\r\n                di := d.Add;\r\n\r\n                di.Summary := TTMSFNCUtils.GetJSONProp(jo, 'description');\r\n                //di.Warnings := TTMSFNCUtils.GetJSONProp(jo, 'warnings'); //array\r\n                di.Distance := TTMSFNCUtils.GetJSONIntegerValue(jo, 'distanceMeters');\r\n                di.Duration := StrToInt(StringReplace(TTMSFNCUtils.GetJSONProp(jo, 'duration'), 's', '', []));\r\n\r\n                os := TTMSFNCUtils.GetJSONValue(jo, 'polyline') as TJSONObject;\r\n                if Assigned(os) then\r\n                begin\r\n                  DecodeValues(TTMSFNCUtils.GetJSONProp(os, 'encodedPolyline'), di.Coordinates);\r\n                end;\r\n\r\n                SetLength(wpIndex, 1);\r\n                wpIndex[0] := -1;\r\n\r\n                jal := TTMSFNCUtils.GetJSONValue(jo, 'optimizedIntermediateWaypointIndex') as TJSONArray;\r\n                if Assigned(jal) then\r\n                begin\r\n                  SetLength(wpIndex, TTMSFNCUtils.GetJSONArraySize(jal) + 1);\r\n\r\n                  for j := 0 to TTMSFNCUtils.GetJSONArraySize(jal) - 1 do\r\n                  begin\r\n                    jol := TTMSFNCUtils.GetJSONArrayItem(jal, j);\r\n                    if jol.Value <> '' then\r\n                      wpIndex[j + 1] := StrToInt(jol.Value);\r\n                  end;\r\n                end;\r\n\r\n                if di is TTMSFNCGoogleRoutesItem then\r\n                begin\r\n                  jas := jo['routeLabels'].AsArray;\r\n                  if Assigned(jas) then\r\n                  begin\r\n                    (di as TTMSFNCGoogleRoutesItem).RouteLabels.JSON := jas.ToJSON;\r\n                  end;\r\n\r\n                  jos := jo['travelAdvisory'];\r\n                  if Assigned(jos) then\r\n                  begin\r\n                    fcm := jos['fuelConsumptionMicroliters'].AsString;\r\n                    TryStrToInt(fcm, fcmint);\r\n                    (di as TTMSFNCGoogleRoutesItem).TravelAdvisory.FuelConsumptionMicroliters := fcmint;\r\n//                    (di as TTMSFNCGoogleRoutesItem).TravelAdvisory.JSON := jos.ToJSON;\r\n                    jas := jos['speedReadingIntervals'].AsArray;\r\n                    if Assigned(jas) then\r\n                    begin\r\n                      for K := 0 to jas.Count - 1 do\r\n                      begin\r\n                        spi := (di as TTMSFNCGoogleRoutesItem).TravelAdvisory.SpeedReadingIntervals.Add;\r\n                        spi.JSON := jas[K].ToJSON;\r\n\r\n//                        spi.StartPolylinePointIndex := jol['startPolylinePointIndex'].AsInteger;\r\n//                        spi.EndPolylinePointIndex := jol['endPolylinePointIndex'].AsInteger;\r\n//                        spi.Speed := jol['speed'].AsString;\r\n                      end;\r\n                    end;\r\n                  end;\r\n                end;\r\n\r\n                jal := TTMSFNCUtils.GetJSONValue(jo, 'legs') as TJSONArray;\r\n                if Assigned(jal) then\r\n                begin\r\n                  for j := 0 to TTMSFNCUtils.GetJSONArraySize(jal) - 1 do\r\n                  begin\r\n                    jol := TTMSFNCUtils.GetJSONArrayItem(jal, j);\r\n\r\n                    l := di.Legs.Add;\r\n\r\n                    wp := di.WayPoints.Add;\r\n                    if Length(wpIndex) > j then\r\n                      wp.OptimizedIndex := wpIndex[j];\r\n\r\n                    //not available\r\n                    //l.StartAddress := TTMSFNCUtils.GetJSONProp(jol, 'start_address');\r\n                    //l.EndAddress := TTMSFNCUtils.GetJSONProp(jol, 'end_address');\r\n\r\n                    l.Distance := TTMSFNCUtils.GetJSONIntegerValue(jol, 'distanceMeters');\r\n                    wp.Distance := l.Distance;\r\n\r\n                    l.Duration := StrToInt(StringReplace(TTMSFNCUtils.GetJSONProp(jol, 'duration'), 's', '', []));\r\n                    wp.Duration := l.Duration;\r\n\r\n                    os := TTMSFNCUtils.GetJSONValue(jol, 'polyline') as TJSONObject;\r\n                    if Assigned(os) then\r\n                    begin\r\n                      DecodeValues(TTMSFNCUtils.GetJSONProp(os, 'encodedPolyline'), l.Coordinates);\r\n                    end;\r\n\r\n                    os := TTMSFNCUtils.GetJSONValue(jol, 'endLocation') as TJSONObject;\r\n                    if Assigned(os) then\r\n                    begin\r\n                      ot := TTMSFNCUtils.GetJSONValue(os, 'latLng') as TJSONObject;\r\n                      if Assigned(ot) then\r\n                      begin\r\n                        l.EndLocation.Latitude := TTMSFNCUtils.GetJSONDoubleValue(ot, 'latitude');\r\n                        l.EndLocation.Longitude := TTMSFNCUtils.GetJSONDoubleValue(ot, 'longitude');\r\n                      end;\r\n                    end;\r\n\r\n                    os := TTMSFNCUtils.GetJSONValue(jol, 'startLocation') as TJSONObject;\r\n                    if Assigned(os) then\r\n                    begin\r\n                      ot := TTMSFNCUtils.GetJSONValue(os, 'latLng') as TJSONObject;\r\n                      if Assigned(ot) then\r\n                      begin\r\n                        l.StartLocation.Latitude := TTMSFNCUtils.GetJSONDoubleValue(ot, 'latitude');\r\n                        l.StartLocation.Longitude := TTMSFNCUtils.GetJSONDoubleValue(ot, 'longitude');\r\n                      end;\r\n                    end;\r\n\r\n                    jas := TTMSFNCUtils.GetJSONValue(jol, 'steps') as TJSONArray;\r\n                    if Assigned(jas) then\r\n                    begin\r\n                      for k := 0 to TTMSFNCUtils.GetJSONArraySize(jas) - 1 do\r\n                      begin\r\n                        jos := TTMSFNCUtils.GetJSONArrayItem(jas, k);\r\n\r\n                        step := di.Steps.Add;\r\n\r\n                        step.Distance := TTMSFNCUtils.GetJSONIntegerValue(jos, 'distanceMeters');\r\n                        step.Duration := StrToInt(StringReplace(TTMSFNCUtils.GetJSONProp(jos, 'staticDuration'), 's', '', []));\r\n\r\n                        os := TTMSFNCUtils.GetJSONValue(jos, 'navigationInstruction') as TJSONObject;\r\n                        if Assigned(os) then\r\n                        begin\r\n                          step.Instructions := TTMSFNCUtils.GetJSONProp(os, 'instructions');\r\n//                          step.Maneuver := TTMSFNCUtils.GetJSONProp(os, 'maneuver');\r\n                        end;\r\n\r\n//                        step.TravelMode := TTMSFNCUtils.GetJSONProp(os, 'travelMode');\r\n\r\n                        os := TTMSFNCUtils.GetJSONValue(jos, 'polyline') as TJSONObject;\r\n                        if Assigned(os) then\r\n                          DecodeValues(TTMSFNCUtils.GetJSONProp(os, 'encodedPolyline'), step.Coordinates);\r\n\r\n                        for lm := 0 to step.Coordinates.Count - 1 do\r\n                          l.Coordinates.Add.Assign(step.Coordinates[lm]);\r\n\r\n                        os := TTMSFNCUtils.GetJSONValue(jos, 'endLocation') as TJSONObject;\r\n                        if Assigned(os) then\r\n                        begin\r\n                          ot := TTMSFNCUtils.GetJSONValue(os, 'latLng') as TJSONObject;\r\n                          if Assigned(ot) then\r\n                          begin\r\n                            step.EndLocation.Latitude := TTMSFNCUtils.GetJSONDoubleValue(ot, 'latitude');\r\n                            step.EndLocation.Longitude := TTMSFNCUtils.GetJSONDoubleValue(ot, 'longitude');\r\n                          end;\r\n                        end;\r\n\r\n                        os := TTMSFNCUtils.GetJSONValue(jos, 'startLocation') as TJSONObject;\r\n                        if Assigned(os) then\r\n                        begin\r\n                          ot := TTMSFNCUtils.GetJSONValue(os, 'latLng') as TJSONObject;\r\n                          if Assigned(ot) then\r\n                          begin\r\n                            step.StartLocation.Latitude := TTMSFNCUtils.GetJSONDoubleValue(ot, 'latitude');\r\n                            step.StartLocation.Longitude := TTMSFNCUtils.GetJSONDoubleValue(ot, 'longitude');\r\n                          end;\r\n                        end;\r\n\r\n                        lstep := l.Steps.Add;\r\n                        lstep.Assign(step);\r\n                      end;\r\n                    end;\r\n                  end;\r\n                end;\r\n              end;\r\n            end;\r\n          finally\r\n            o.Free;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCDirections.Here;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nprocedure RegisterHereDirectionsService;\r\nprocedure UnRegisterHereDirectionsService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, WEBLib.TMSFNCDirections,\r\n  WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes, WEBLib.TMSFNCCloudBase, SysUtils\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 26}\r\n  ,JSON\r\n  {$ELSE}\r\n  ,DBXJSON\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  ,fpjson\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web, WEBLIB.JSON\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCDirectionsHereService = class;\r\n\r\n  TTMSFNCDirectionsHereDirectionsFactoryService = class(TTMSFNCDirectionsFactoryService, ITMSFNCDirectionsServiceHere);\r\n\r\n  TTMSFNCDirectionsHereService = class(TTMSFNCDirectionsHereDirectionsFactoryService)\r\n  protected\r\n    function DoCreateDirections: ITMSFNCCustomDirections; override;\r\n  end;\r\n\r\nconst\r\n DECODING_TABLE: array[0..77] of Integer = (\r\n                    62, -1, -1, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, -1, -1, -1, -1, -1, -1, -1,\r\n                    0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21,\r\n                    22, 23, 24, 25, -1, -1, -1, -1, 63, -1, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35,\r\n                    36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51\r\n\r\n                  );\r\n\r\ntype\r\n  TTMSFNCDirectionsHereDirections = class;\r\n\r\n  TTMSFNCDirectionsHereDirectionsThirdDimensionValue = (tdAbsent, tdLevel, tdAltitude, tdElevation, tdReserved1, tdReserved2, tdCustom1, tdCustom2);\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCDirectionsHereDirectionsThirdDimensionValueEnum = TTMSFNCDirectionsHereDirectionsThirdDimensionValue;\r\n  {$ELSE}\r\n  TTMSFNCDirectionsHereDirectionsThirdDimensionValueEnum = set of TTMSFNCDirectionsHereDirectionsThirdDimensionValue;\r\n  {$ENDIF}\r\n\r\n  TTMSFNCDirectionsHereDirectionsThirdDimension = class\r\n  public\r\n    class function fromNum(value: Integer): TTMSFNCDirectionsHereDirectionsThirdDimensionValue;\r\n  end;\r\n\r\n  TTMSFNCDirectionsHereDirectionsConverter = class\r\n  private\r\n    multiplier, lastValue: Integer;\r\n  protected\r\n    procedure setPrecision(precision: Integer);\r\n  public\r\n    constructor Create(precision: Integer);\r\n    class function decodeUnsignedVarInt(enc: string; var idx: integer; var res: Integer): Boolean;\r\n    class function decodeChar(charValue: Char): Integer;\r\n    function decodeValue(enc: string; var idx: Integer; var c: Double): Boolean;\r\n  end;\r\n\r\n  TTMSFNCDirectionsHereDirectionsDecoder = class\r\n  private\r\n    encoded: string;\r\n    index: Integer;\r\n    latConverter: TTMSFNCDirectionsHereDirectionsConverter;\r\n    lngConverter: TTMSFNCDirectionsHereDirectionsConverter;\r\n    zConverter: TTMSFNCDirectionsHereDirectionsConverter;\r\n    precision: Integer;\r\n    thirdDimPrecision: Integer;\r\n    thirdDimension: TTMSFNCDirectionsHereDirectionsThirdDimensionValue;\r\n  protected\r\n    procedure decodeHeaderFromString(enc: string; var idx: Integer; var h: Integer);\r\n    procedure decodeHeader;\r\n    function decodeOne(var lat, lng, z: Double): Boolean;\r\n    function hasThirdDimension: Boolean;\r\n  public\r\n    constructor Create(AEncoded: string);\r\n    destructor Destroy; override;\r\n    class function Decode(AEncoded: string): TTMSFNCMapsCoordinateRecArray;\r\n  end;\r\n\r\n  TTMSFNCDirectionsHereDirections = class(TTMSFNCCustomDirectionsInterfacedObject, ITMSFNCCustomDirections)\r\n  protected\r\n    FTravelMode: TTMSFNCDirectionsTravelMode;\r\n    function GetIdentifier: string;\r\n    function IsValid: Boolean;\r\n    function GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\n    function GetHost: string;\r\n    function GetPath(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; ATravelMode: TTMSFNCDirectionsTravelMode; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil): string;\r\n    function GetQuery(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAVoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\n    function GetPostData(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAvoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\n    procedure Parse(ARequest: TTMSFNCDirectionsRequest; ARequestResult: string);\r\n    procedure AddHeaders(AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\n    procedure DestroyDirections;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  DirectionsService: ITMSFNCDirectionsServiceHere;\r\n\r\nprocedure RegisterHereDirectionsService;\r\nbegin\r\n  if not TTMSFNCDirectionsPlatformServices.Current.SupportsPlatformService(ITMSFNCDirectionsServiceHere, IInterface(DirectionsService)) then\r\n  begin\r\n    DirectionsService := TTMSFNCDirectionsHereService.Create;\r\n    TTMSFNCDirectionsPlatformServices.Current.AddPlatformService(ITMSFNCDirectionsServiceHere, DirectionsService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterHereDirectionsService;\r\nbegin\r\n  TTMSFNCDirectionsPlatformServices.Current.RemovePlatformService(ITMSFNCDirectionsServiceHere);\r\nend;\r\n\r\n{ TTMSFNCDirectionsHereService }\r\n\r\nfunction TTMSFNCDirectionsHereService.DoCreateDirections: ITMSFNCCustomDirections;\r\nbegin\r\n  Result := TTMSFNCDirectionsHereDirections.Create;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsHereDirections.AddHeaders(\r\n  AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\nbegin\r\n\r\nend;\r\n\r\nconstructor TTMSFNCDirectionsHereDirections.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCDirectionsHereDirections.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsHereDirections.DestroyDirections;\r\nbegin\r\n  DirectionsService.DestroyDirections(Self);\r\nend;\r\n\r\nfunction TTMSFNCDirectionsHereDirections.GetHost: string;\r\nbegin\r\n  Result := 'https://router.hereapi.com';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsHereDirections.GetIdentifier: string;\r\nbegin\r\n  Result := 'Here';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsHereDirections.GetPath(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; ATravelMode: TTMSFNCDirectionsTravelMode; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil): string;\r\nbegin\r\n  Result := '/v8/routes';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsHereDirections.GetPostData(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAvoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsHereDirections.GetQuery(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n  ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n  AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAVoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\nvar\r\n  TravelMode, WayPoints, Alternatives: string;\r\n  I: Integer;\r\nbegin\r\n  if AAlternatives then\r\n    Alternatives := '3'\r\n  else\r\n    Alternatives := '0';\r\n\r\n  if ATravelMode in [tmPublicTransport] then\r\n    FTravelMode := tmDriving\r\n  else\r\n    FTravelMode := ATravelMode;\r\n\r\n  case FTravelMode of\r\n    tmDriving: TravelMode := 'car';\r\n    tmWalking: TravelMode := 'pedestrian';\r\n    tmBicycling: TravelMode := 'bicycle';\r\n    tmTruck: TravelMode := 'truck';\r\n  end;\r\n\r\n  AOrigin := TTMSFNCUtils.FloatToStrDot(AOriginLatitude) + ',' + TTMSFNCUtils.FloatToStrDot(AOriginLongitude);\r\n  ADestination := TTMSFNCUtils.FloatToStrDot(ADestinationLatitude) + ',' + TTMSFNCUtils.FloatToStrDot(ADestinationLongitude);\r\n\r\n  WayPoints := '';\r\n\r\n  if Assigned(AWaypoints) and (Length(AWayPoints) > 0) then\r\n  begin\r\n    for I := 0 to (Length(AWayPoints) - 1) do\r\n      WayPoints := WayPoints + '&via=' + TTMSFNCUtils.FloatToStrDot(AWayPoints[I].Latitude) + ',' + TTMSFNCUtils.FloatToStrDot(AWayPoints[I].Longitude);\r\n  end;\r\n\r\n  Result := 'apiKey=' + DirectionsProperties.GetAPIKey\r\n    + '&transportMode=' + TravelMode\r\n    + '&origin=' + AOrigin\r\n    + '&destination=' + ADestination\r\n    + '&return=polyline,actions,instructions,summary'\r\n    + WayPoints\r\n    + '&alternatives=' + Alternatives;\r\n\r\n  if ALocale <> '' then\r\n    Result := Result + '&lang=' + ALocale;\r\n\r\n  if ATravelMode = tmTruck then\r\n  begin\r\n    Result := DirectionsProperties.GetTruckOptions(Result, AAvoidTolls);\r\n  end\r\n  else\r\n  begin\r\n    Result := Result + '&routingMode=fast';\r\n\r\n    if AAvoidTolls or AAvoidHighways then\r\n    begin\r\n      Result := Result + '&avoid[features]=';\r\n\r\n      if AAvoidTolls then\r\n        Result := Result + 'tollRoad,';\r\n\r\n      if AAvoidHighways then\r\n        Result := Result + 'controlledAccessHighway';\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsHereDirections.GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\nbegin\r\n  Result := rmGet;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsHereDirections.IsValid: Boolean;\r\nbegin\r\n  Result := DirectionsProperties.GetAPIKey <> '';\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsHereDirections.Parse(ARequest: TTMSFNCDirectionsRequest; ARequestResult: string);\r\nvar\r\n  d: TTMSFNCDirectionsItems;\r\n  di: TTMSFNCDirectionsItem;\r\n  co: TTMSFNCMapsCoordinateItem;\r\n  step, lstep: TTMSFNCDirectionsStep;\r\n\r\n  o, jo, jol, jos: TJSONValue;\r\n  jar, jal, jas: TJSONArray;\r\n  i, j, k: Integer;\r\n  l: TTMSFNCDirectionsLeg;\r\n  ol, old, ola: TJSONObject;\r\n  corlist: string;\r\n  coarr: TTMSFNCMapsCoordinateRecArray;\r\n  offset: Integer;\r\nbegin\r\n  if Assigned(DirectionsProperties) then\r\n  begin\r\n    ARequest.TravelMode := FTravelMode;\r\n\r\n    d := ARequest.Items;\r\n    if Assigned(d) then\r\n    begin\r\n      if ARequestResult <> '' then\r\n      begin\r\n        o := TTMSFNCUtils.ParseJSON(ARequestResult);\r\n        if Assigned(o) then\r\n        begin\r\n          try\r\n            ARequest.Status := TTMSFNCUtils.GetJSONProp(o, 'status');\r\n            ARequest.ErrorMessage := TTMSFNCUtils.GetJSONProp(o, 'title');\r\n\r\n            if ARequest.Status = '' then\r\n              ARequest.Status := TTMSFNCUtils.GetJSONProp(o, 'type') + ' ' + TTMSFNCUtils.GetJSONProp(o, 'subtype');\r\n\r\n            if ARequest.ErrorMessage = '' then\r\n              ARequest.ErrorMessage := TTMSFNCUtils.GetJSONProp(o, 'Details');\r\n\r\n            jar := TTMSFNCUtils.GetJSONValue(o, 'routes') as TJSONArray;\r\n            if Assigned(jar) then\r\n            begin\r\n              for i := 0 to TTMSFNCUtils.GetJSONArraySize(jar) - 1 do\r\n              begin\r\n                jo := TTMSFNCUtils.GetJSONArrayItem(jar, i);\r\n\r\n                di := d.Add;\r\n                di.Summary := 'Route ' + IntToStr(i);\r\n\r\n                jal := TTMSFNCUtils.GetJSONValue(jo, 'sections') as TJSONArray;\r\n                if Assigned(jal) then\r\n                begin\r\n                  for j := 0 to TTMSFNCUtils.GetJSONArraySize(jal) - 1 do\r\n                  begin\r\n                    l := di.Legs.Add;\r\n\r\n                    jol := TTMSFNCUtils.GetJSONArrayItem(jal, j);\r\n\r\n                    old := TTMSFNCUtils.GetJSONValue(jol, 'arrival') as TJSONObject;\r\n                    if Assigned(old) then\r\n                    begin\r\n                      ol := TTMSFNCUtils.GetJSONValue(old, 'place') as TJSONObject;\r\n                      if Assigned(ol) then\r\n                      begin\r\n                        ol := TTMSFNCUtils.GetJSONValue(ol, 'location') as TJSONObject;\r\n                        if Assigned(ol) then\r\n                        begin\r\n                          l.EndLocation.Latitude := TTMSFNCUtils.GetJSONDoubleValue(ol, 'lat');\r\n                          l.EndLocation.Longitude := TTMSFNCUtils.GetJSONDoubleValue(ol, 'lng');\r\n                        end;\r\n                      end;\r\n                    end;\r\n\r\n                    ola := TTMSFNCUtils.GetJSONValue(jol, 'departure') as TJSONObject;\r\n                    if Assigned(ola) then\r\n                    begin\r\n                      ol := TTMSFNCUtils.GetJSONValue(ola, 'place') as TJSONObject;\r\n                      if Assigned(ol) then\r\n                      begin\r\n                        ol := TTMSFNCUtils.GetJSONValue(ol, 'location') as TJSONObject;\r\n                        if Assigned(ol) then\r\n                        begin\r\n                          l.StartLocation.Latitude := TTMSFNCUtils.GetJSONDoubleValue(ol, 'lat');\r\n                          l.StartLocation.Longitude := TTMSFNCUtils.GetJSONDoubleValue(ol, 'lng');\r\n                        end;\r\n                      end;\r\n                    end;\r\n\r\n                    corlist := TTMSFNCUtils.GetJSONProp(jol, 'polyline');\r\n                    coarr := TTMSFNCDirectionsHereDirectionsDecoder.Decode(corlist);\r\n\r\n                    for k := 0 to Length(coarr) - 1 do\r\n                    begin\r\n                      co := di.Coordinates.Add;\r\n                      co.Latitude := coarr[k].Latitude;\r\n                      co.Longitude := coarr[k].Longitude;\r\n                      l.Coordinates.Add.Assign(co);\r\n                    end;\r\n\r\n                    jas := TTMSFNCUtils.GetJSONValue(jol, 'actions') as TJSONArray;\r\n                    if Assigned(jas) then\r\n                    begin\r\n                      for k := 0 to TTMSFNCUtils.GetJSONArraySize(jas) - 1 do\r\n                      begin\r\n                        jos := TTMSFNCUtils.GetJSONArrayItem(jas, k);\r\n\r\n                        step := di.Steps.Add;\r\n\r\n                        offset := TTMSFNCUtils.GetJSONIntegerValue(jos, 'offset');\r\n                        if (di.Coordinates.Count > offset) and (offset >= 0) then\r\n                        begin\r\n                          step.StartLocation.Latitude := di.Coordinates[offset].Latitude;\r\n                          step.StartLocation.Longitude := di.Coordinates[offset].Longitude;\r\n                        end;\r\n\r\n                        step.Instructions := TTMSFNCUtils.GetJSONProp(jos, 'instruction');\r\n                        step.Distance := TTMSFNCUtils.GetJSONIntegerValue(jos, 'length');\r\n                        step.Duration := TTMSFNCUtils.GetJSONIntegerValue(jos, 'duration');\r\n\r\n                        lstep := l.Steps.Add;\r\n                        lstep.Assign(step);\r\n                      end;\r\n                    end;\r\n\r\n                    ol := TTMSFNCUtils.GetJSONValue(jol, 'summary') as TJSONObject;\r\n                    if Assigned(ol) then\r\n                    begin\r\n                      l.Distance := TTMSFNCUtils.GetJSONIntegerValue(ol, 'length');\r\n                      di.Distance := di.Distance + l.Distance;\r\n                      l.Duration := TTMSFNCUtils.GetJSONIntegerValue(ol, 'duration');\r\n                      di.Duration := di.Duration + l.Duration;\r\n                    end;\r\n                  end;\r\n                end;\r\n              end;\r\n            end;\r\n          finally\r\n            o.Free;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCDirectionsHereDirectionsDecoder }\r\n\r\nconstructor TTMSFNCDirectionsHereDirectionsDecoder.Create(AEncoded: string);\r\nbegin\r\n  encoded := AEncoded;\r\n  index := 0;\r\n  decodeHeader;\r\n  latConverter := TTMSFNCDirectionsHereDirectionsConverter.Create(precision);\r\n  lngConverter := TTMSFNCDirectionsHereDirectionsConverter.Create(precision);\r\n  zConverter := TTMSFNCDirectionsHereDirectionsConverter.Create(thirdDimPrecision);\r\nend;\r\n\r\nclass function TTMSFNCDirectionsHereDirectionsDecoder.Decode(\r\n  AEncoded: string): TTMSFNCMapsCoordinateRecArray;\r\nvar\r\n  d: TTMSFNCDirectionsHereDirectionsDecoder;\r\n  a: TTMSFNCMapsCoordinateRecArray;\r\n  lat, lng, z: Double;\r\nbegin\r\n  if AEncoded = '' then\r\n    Exit;\r\n\r\n  d := TTMSFNCDirectionsHereDirectionsDecoder.Create(AEncoded);\r\n  try\r\n    lat := 0;\r\n    lng := 0;\r\n    z := 0;\r\n    while d.decodeOne(lat, lng, z) do\r\n    begin\r\n      SetLength(a, Length(a) + 1);\r\n      a[Length(a) - 1] := CreateCoordinate(lat, lng);\r\n    end;\r\n\r\n    Result := a;\r\n\r\n  finally\r\n    d.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsHereDirectionsDecoder.decodeHeader;\r\nvar\r\n  td, header: Integer;\r\nbegin\r\n  decodeHeaderFromString(encoded, index, header);\r\n  precision := header and 15;\r\n  header := header shr 4;\r\n  td := (header and 7);\r\n  thirdDimension := TTMSFNCDirectionsHereDirectionsThirdDimension.fromNum(td);\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsHereDirectionsDecoder.decodeHeaderFromString(enc: string; var idx: Integer; var h: Integer);\r\nvar\r\n  value: Integer;\r\nbegin\r\n  if not (TTMSFNCDirectionsHereDirectionsConverter.decodeUnsignedVarInt(enc, idx, value)) then\r\n    Exit;\r\n\r\n  if value <> 1 then\r\n    Exit;\r\n\r\n  if not (TTMSFNCDirectionsHereDirectionsConverter.decodeUnsignedVarInt(enc, index, value)) then\r\n    Exit;\r\n\r\n  h := value;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsHereDirectionsDecoder.decodeOne(var lat, lng, z: Double): Boolean;\r\nbegin\r\n  if index = Length(encoded) then\r\n  begin\r\n    Result := False;\r\n    Exit;\r\n  end;\r\n\r\n  if not latConverter.decodeValue(encoded, index, lat) then\r\n    raise Exception.Create('Invalid encoding');\r\n\r\n  if not lngConverter.decodeValue(encoded, index, lng) then\r\n    raise Exception.Create('Invalid encoding');\r\n\r\n  if hasThirdDimension then\r\n  begin\r\n    if not zConverter.decodeValue(encoded, index, z) then\r\n      raise Exception.Create('Invalid encoding');\r\n  end;\r\n\r\n  Result := True;\r\nend;\r\n\r\ndestructor TTMSFNCDirectionsHereDirectionsDecoder.Destroy;\r\nbegin\r\n  latConverter.Free;\r\n  lngConverter.Free;\r\n  zConverter.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsHereDirectionsDecoder.hasThirdDimension: Boolean;\r\nbegin\r\n  Result := thirdDimension <> tdAbsent;\r\nend;\r\n\r\n{ TTMSFNCDirectionsHereDirectionsConverter }\r\n\r\nconstructor TTMSFNCDirectionsHereDirectionsConverter.Create(precision: Integer);\r\nbegin\r\n  setPrecision(precision);\r\nend;\r\n\r\nclass function TTMSFNCDirectionsHereDirectionsConverter.decodeChar(charValue: Char): Integer;\r\nvar\r\n  pos: Integer;\r\nbegin\r\n  pos := Ord(charValue) - 45;\r\n  if (pos < 0) or (pos > 77) then\r\n  begin\r\n    Result := -1;\r\n    Exit;\r\n  end;\r\n\r\n  Result := DECODING_TABLE[pos];\r\nend;\r\n\r\nclass function TTMSFNCDirectionsHereDirectionsConverter.decodeUnsignedVarInt(enc: string; var idx: integer;\r\n  var res: Integer): Boolean;\r\nvar\r\n  shift, delta, value: Integer;\r\nbegin\r\n  shift := 0;\r\n  delta := 0;\r\n\r\n  while idx < Length(enc) do\r\n  begin\r\n    value := decodeChar(enc[idx{$IFNDEF ZEROSTRINGINDEX}+ 1{$ENDIF}]);\r\n    if value < 0 then\r\n    begin\r\n      Result := False;\r\n      Exit;\r\n    end;\r\n\r\n    Inc(idx);\r\n    delta := delta or (value and $1F) shl shift;\r\n    if (value and $20) = 0 then\r\n    begin\r\n      res := delta;\r\n      Result := True;\r\n      Exit;\r\n    end\r\n    else\r\n      Inc(shift, 5);\r\n  end;\r\n\r\n  if shift > 0 then\r\n  begin\r\n    Result := False;\r\n    Exit;\r\n  end;\r\n\r\n  Result := True;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsHereDirectionsConverter.decodeValue(enc: string; var idx: Integer;\r\n  var c: Double): Boolean;\r\nvar\r\n  delta: Integer;\r\nbegin\r\n  if not decodeUnsignedVarInt(enc, idx, delta) then\r\n  begin\r\n    Result := False;\r\n    Exit;\r\n  end;\r\n\r\n  if (delta and 1) <> 0 then\r\n    delta := not delta;\r\n\r\n  delta := delta div (1 shl 1);\r\n  Inc(lastValue, delta);\r\n  c := lastValue / multiplier;\r\n\r\n  Result := True;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsHereDirectionsConverter.setPrecision(precision: Integer);\r\nbegin\r\n  multiplier := Round(Power(10, precision));\r\nend;\r\n\r\n{ TTMSFNCDirectionsHereDirectionsThirdDimension }\r\n\r\nclass function TTMSFNCDirectionsHereDirectionsThirdDimension.fromNum(value: Integer): TTMSFNCDirectionsHereDirectionsThirdDimensionValue;\r\nvar\r\n  I: TTMSFNCDirectionsHereDirectionsThirdDimensionValue;\r\nbegin\r\n  Result := tdAbsent;\r\n  for I := Low(TTMSFNCDirectionsHereDirectionsThirdDimensionValueEnum) to High(TTMSFNCDirectionsHereDirectionsThirdDimensionValueEnum) do\r\n  begin\r\n    if value = Integer(I) then\r\n    begin\r\n      Result := I;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2021                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCDirections.Bing;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nprocedure RegisterBingDirectionsService;\r\nprocedure UnRegisterBingDirectionsService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCDirections,\r\n  WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes, WEBLib.TMSFNCCloudBase\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 26}\r\n  ,JSON\r\n  {$ELSE}\r\n  ,DBXJSON\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  ,fpjson\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web, WEBLIB.JSON\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCDirectionsBingService = class;\r\n\r\n  TTMSFNCDirectionsBingDirectionsFactoryService = class(TTMSFNCDirectionsFactoryService, ITMSFNCDirectionsServiceBing);\r\n\r\n  TTMSFNCDirectionsBingService = class(TTMSFNCDirectionsBingDirectionsFactoryService)\r\n  protected\r\n    function DoCreateDirections: ITMSFNCCustomDirections; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCDirectionsBingDirections = class;\r\n\r\n  TTMSFNCDirectionsBingDirections = class(TTMSFNCCustomDirectionsInterfacedObject, ITMSFNCCustomDirections)\r\n  protected\r\n    FTravelMode: TTMSFNCDirectionsTravelMode;\r\n    function GetIdentifier: string;\r\n    function IsValid: Boolean;\r\n    function GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\n    function GetHost: string;\r\n    function GetPath(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; ATravelMode: TTMSFNCDirectionsTravelMode; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil): string;\r\n    function GetQuery(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAVoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\n    function GetPostData(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAvoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\n    procedure Parse(ARequest: TTMSFNCDirectionsRequest; ARequestResult: string);\r\n    procedure AddHeaders(AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\n    procedure DestroyDirections;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  DirectionsService: ITMSFNCDirectionsServiceBing;\r\n\r\nprocedure RegisterBingDirectionsService;\r\nbegin\r\n  if not TTMSFNCDirectionsPlatformServices.Current.SupportsPlatformService(ITMSFNCDirectionsServiceBing, IInterface(DirectionsService)) then\r\n  begin\r\n    DirectionsService := TTMSFNCDirectionsBingService.Create;\r\n    TTMSFNCDirectionsPlatformServices.Current.AddPlatformService(ITMSFNCDirectionsServiceBing, DirectionsService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterBingDirectionsService;\r\nbegin\r\n  TTMSFNCDirectionsPlatformServices.Current.RemovePlatformService(ITMSFNCDirectionsServiceBing);\r\nend;\r\n\r\n{ TTMSFNCDirectionsBingService }\r\n\r\nfunction TTMSFNCDirectionsBingService.DoCreateDirections: ITMSFNCCustomDirections;\r\nbegin\r\n  Result := TTMSFNCDirectionsBingDirections.Create;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsBingDirections.AddHeaders(\r\n  AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\nbegin\r\n\r\nend;\r\n\r\nconstructor TTMSFNCDirectionsBingDirections.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCDirectionsBingDirections.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsBingDirections.DestroyDirections;\r\nbegin\r\n  DirectionsService.DestroyDirections(Self);\r\nend;\r\n\r\nfunction TTMSFNCDirectionsBingDirections.GetHost: string;\r\nbegin\r\n  Result := 'https://dev.virtualearth.net';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsBingDirections.GetIdentifier: string;\r\nbegin\r\n  Result := 'BingMaps';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsBingDirections.GetPath(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n  ADestinationLatitude, ADestinationLongitude: Double; ATravelMode: TTMSFNCDirectionsTravelMode; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil): string;\r\nvar\r\n  TravelMode: string;\r\nbegin\r\n\r\n  if ATravelMode in [tmBicycling, tmTruck] then\r\n    FTravelMode := tmDriving\r\n  else\r\n    FTravelMode := ATravelMode;\r\n\r\n  case FTravelMode of\r\n    tmDriving: TravelMode := 'driving';\r\n    tmWalking: TravelMode := 'walking';\r\n    tmPublicTransport: TravelMode := 'transit';\r\n  end;\r\n\r\n  Result := '/REST/v1/Routes/' + TravelMode + '/';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsBingDirections.GetPostData(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAvoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsBingDirections.GetQuery(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n  ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n  AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAVoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\nvar\r\n  WayPoints, Alternatives: string;\r\n  I: Integer;\r\nbegin\r\n  if AAlternatives then\r\n    Alternatives := '3'\r\n  else\r\n    Alternatives := '1';\r\n\r\n  if ATravelMode in [tmBicycling, tmTruck] then\r\n    FTravelMode := tmDriving\r\n  else\r\n    FTravelMode := ATravelMode;\r\n\r\n  if AOrigin = '' then\r\n    AOrigin := TTMSFNCUtils.FloatToStrDot(AOriginLatitude) + ',' + TTMSFNCUtils.FloatToStrDot(AOriginLongitude);\r\n  if ADestination = '' then\r\n    ADestination := TTMSFNCUtils.FloatToStrDot(ADestinationLatitude) + ',' + TTMSFNCUtils.FloatToStrDot(ADestinationLongitude);\r\n\r\n  if Assigned(AWaypoints) and (Length(AWayPoints) > 0) then\r\n  begin\r\n    for I := 0 to (Length(AWayPoints) - 1) do\r\n      WayPoints := WayPoints + '&wayPoint.' + IntToStr(I+2) + '=' + TTMSFNCUtils.FloatToStrDot(AWayPoints[I].Latitude) + ',' + TTMSFNCUtils.FloatToStrDot(AWayPoints[I].Longitude);\r\n    WayPoints := '&wayPoint.1=' + AOrigin + WayPoints + '&wayPoint.' + IntToStr(Length(AWayPoints)+2) + '=' + ADestination;\r\n  end\r\n  else\r\n    WayPoints := '&wayPoint.1=' + AOrigin + '&wayPoint.2=' + ADestination;\r\n\r\n  Result := 'key=' + DirectionsProperties.GetAPIKey\r\n  + WayPoints\r\n  + '&optimizeWaypoints=' + BoolToStrEx(AOptimizeWayPoints)\r\n  + '&routeAttributes=routePath'\r\n  + '&maxSolutions=' + Alternatives\r\n  + '&c=' + ALocale;\r\n\r\n  if FTravelMode = tmPublicTransport then\r\n    Result := Result + '&timeType=Departure&dateTime=10:00:00AM';\r\n\r\n  if AAVoidTolls then\r\n    Result := Result + '&avoid=tolls';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsBingDirections.GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\nbegin\r\n  Result := rmGet;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsBingDirections.IsValid: Boolean;\r\nbegin\r\n  Result := DirectionsProperties.GetAPIKey <> '';\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsBingDirections.Parse(ARequest: TTMSFNCDirectionsRequest; ARequestResult: string);\r\nvar\r\n  d: TTMSFNCDirectionsItems;\r\n  di: TTMSFNCDirectionsItem;\r\n  co: TTMSFNCMapsCoordinateItem;\r\n  lg: TTMSFNCDirectionsLeg;\r\n  cor: TStringList;\r\n  step, lstep: TTMSFNCDirectionsStep;\r\n\r\n  o, jo, jol, jos, joc: TJSONValue;\r\n  jar, jal, jas, jac, jak: TJSONArray;\r\n  i, j, k, l: Integer;\r\n  ob, os: TJSONObject;\r\n  obs: TJSONValue;\r\n  idxs, idxe: Integer;\r\n  corlist, distance: string;\r\n  JJ: Integer;\r\nbegin\r\n  if Assigned(DirectionsProperties) then\r\n  begin\r\n    ARequest.TravelMode := FTravelMode;\r\n\r\n    d := ARequest.Items;\r\n    if Assigned(d) then\r\n    begin\r\n      if ARequestResult <> '' then\r\n      begin\r\n        o := TTMSFNCUtils.ParseJSON(ARequestResult);\r\n        if Assigned(o) then\r\n        begin\r\n          try\r\n            ARequest.Status := TTMSFNCUtils.GetJSONProp(o, 'statusCode');\r\n            ARequest.ErrorMessage := TTMSFNCUtils.GetJSONProp(o, 'statusDescription');\r\n\r\n            jar := TTMSFNCUtils.GetJSONValue(o, 'resourceSets') as TJSONArray;\r\n            if Assigned(jar) then\r\n            begin\r\n              for i := 0 to TTMSFNCUtils.GetJSONArraySize(jar) - 1 do\r\n              begin\r\n                jo := TTMSFNCUtils.GetJSONArrayItem(jar, i);\r\n\r\n                jal := TTMSFNCUtils.GetJSONValue(jo, 'resources') as TJSONArray;\r\n                if Assigned(jal) then\r\n                begin\r\n                  for j := 0 to TTMSFNCUtils.GetJSONArraySize(jal) - 1 do\r\n                  begin\r\n                    di := d.Add;\r\n                    di.Summary := 'Route ' + IntToStr(j);\r\n\r\n                    jol := TTMSFNCUtils.GetJSONArrayItem(jal, j);\r\n\r\n                    distance := TTMSFNCUtils.GetJSONProp(jol, 'travelDistance');\r\n                    if distance <> '' then\r\n                      di.Distance := TTMSFNCUtils.StrToFloatDot(StringReplace(distance, ',', '.', [])) * 1000;\r\n                    di.Duration := TTMSFNCUtils.GetJSONIntegerValue(jol, 'travelDuration');\r\n\r\n                    os := TTMSFNCUtils.GetJSONValue(jol, 'routePath') as TJSONObject;\r\n                    if Assigned(os) then\r\n                    begin\r\n                      ob := TTMSFNCUtils.GetJSONValue(os, 'line') as TJSONObject;\r\n\r\n                      jas := TTMSFNCUtils.GetJSONValue(ob, 'coordinates') as TJSONArray;\r\n                      if Assigned(jas) then\r\n                      begin\r\n                        for k := 0 to TTMSFNCUtils.GetJSONArraySize(jas) - 1 do\r\n                        begin\r\n                          jos := TTMSFNCUtils.GetJSONArrayItem(jas, k);\r\n\r\n                          co := di.Coordinates.Add;\r\n                          cor := TStringList.Create;\r\n                          cor.QuoteChar := '\"';\r\n                          corlist := StringReplace(jos.ToString, ',', '\",\"', [rfReplaceAll]);\r\n                          corlist := StringReplace(corlist, '[', '\"', [rfReplaceAll]);\r\n                          corlist := StringReplace(corlist, ']', '\"', [rfReplaceAll]);\r\n                          TTMSFNCUtils.Split(',', corlist, cor);\r\n                          co.Latitude := TTMSFNCUtils.StrToFloatDot(cor[0]);\r\n                          co.Longitude := TTMSFNCUtils.StrToFloatDot(cor[1]);\r\n                          cor.Free;\r\n                        end;\r\n                      end;\r\n                    end;\r\n\r\n                    jak := TTMSFNCUtils.GetJSONValue(jol, 'routeLegs') as TJSONArray;\r\n                    if Assigned(jak) then\r\n                    begin\r\n                      for l := 0 to TTMSFNCUtils.GetJSONArraySize(jak) - 1 do\r\n                      begin\r\n                        lg := di.Legs.Add;\r\n\r\n                        jol := TTMSFNCUtils.GetJSONArrayItem(jak, l);\r\n\r\n                        obs := TTMSFNCUtils.GetJSONValue(jol, 'actualStart');\r\n                        if Assigned(obs) then\r\n                        begin\r\n                          jac := TTMSFNCUtils.GetJSONValue(obs, 'coordinates') as TJSONArray;\r\n                          if Assigned(jac) then\r\n                          begin\r\n                            joc := TTMSFNCUtils.GetJSONArrayItem(jac, 0);\r\n                            lg.StartLocation.Latitude := TTMSFNCUtils.StrToFloatDot(joc.ToString);\r\n                            joc := TTMSFNCUtils.GetJSONArrayItem(jac, 1);\r\n                            lg.StartLocation.Longitude := TTMSFNCUtils.StrToFloatDot(joc.ToString);\r\n                          end;\r\n                        end;\r\n\r\n                        obs := TTMSFNCUtils.GetJSONValue(jol, 'actualEnd');\r\n                        if Assigned(obs) then\r\n                        begin\r\n                          jac := TTMSFNCUtils.GetJSONValue(obs, 'coordinates') as TJSONArray;\r\n                          if Assigned(jac) then\r\n                          begin\r\n                            joc := TTMSFNCUtils.GetJSONArrayItem(jac, 0);\r\n                            lg.EndLocation.Latitude := TTMSFNCUtils.StrToFloatDot(joc.ToString);\r\n                            joc := TTMSFNCUtils.GetJSONArrayItem(jac, 1);\r\n                            lg.EndLocation.Longitude := TTMSFNCUtils.StrToFloatDot(joc.ToString);\r\n                          end;\r\n                        end;\r\n\r\n                        di.Summary := TTMSFNCUtils.GetJSONProp(jol, 'description');\r\n\r\n                        jas := TTMSFNCUtils.GetJSONValue(jol, 'routeSubLegs') as TJSONArray;\r\n                        if Assigned(jas) then\r\n                        begin\r\n                          for k := 0 to TTMSFNCUtils.GetJSONArraySize(jas) - 1 do\r\n                          begin\r\n                            jos := TTMSFNCUtils.GetJSONArrayItem(jas, k);\r\n                            obs := TTMSFNCUtils.GetJSONValue(jos, 'startWaypoint');\r\n                            idxs := -1;\r\n                            if Assigned(obs) then\r\n                              idxs := TTMSFNCUtils.GetJSONIntegerValue(obs, 'routePathIndex');\r\n\r\n                            obs := TTMSFNCUtils.GetJSONValue(jos, 'endWaypoint');\r\n                            idxe := -1;\r\n                            if Assigned(obs) then\r\n                              idxe := TTMSFNCUtils.GetJSONIntegerValue(obs, 'routePathIndex');\r\n\r\n                            for JJ := idxs to idxe do\r\n                            begin\r\n                              if (JJ >= 0) and (JJ <= di.Coordinates.Count - 1) then\r\n                                lg.Coordinates.Add.Assign(di.Coordinates[JJ]);\r\n                            end;\r\n                          end;\r\n                        end;\r\n\r\n                        jas := TTMSFNCUtils.GetJSONValue(jol, 'itineraryItems') as TJSONArray;\r\n                        if Assigned(jas) then\r\n                        begin\r\n                          for k := 0 to TTMSFNCUtils.GetJSONArraySize(jas) - 1 do\r\n                          begin\r\n                            jos := TTMSFNCUtils.GetJSONArrayItem(jas, k);\r\n\r\n                            step := di.Steps.Add;\r\n\r\n                            distance := TTMSFNCUtils.GetJSONProp(jos, 'travelDistance');\r\n                            if distance <> '' then\r\n                              step.Distance := Round(TTMSFNCUtils.StrToFloatDot(StringReplace(distance, ',', '.', [])) * 1000);\r\n                            step.Duration := TTMSFNCUtils.GetJSONIntegerValue(jos, 'travelDuration');\r\n\r\n                            lg.Distance := lg.Distance + step.Distance;\r\n                            lg.Duration := lg.Duration + step.Duration;\r\n\r\n                            os := TTMSFNCUtils.GetJSONValue(jos, 'instruction') as TJSONObject;\r\n                            if Assigned(os) then\r\n                              step.Instructions := TTMSFNCUtils.GetJSONProp(os, 'text');\r\n\r\n                            os := TTMSFNCUtils.GetJSONValue(jos, 'maneuverPoint') as TJSONObject;\r\n                            if Assigned(os) then\r\n                            begin\r\n                              jac := TTMSFNCUtils.GetJSONValue(os, 'coordinates') as TJSONArray;\r\n                              if Assigned(jac) then\r\n                              begin\r\n                                joc := TTMSFNCUtils.GetJSONArrayItem(jac, 0);\r\n                                step.StartLocation.Latitude := TTMSFNCUtils.StrToFloatDot(joc.ToString);\r\n                                joc := TTMSFNCUtils.GetJSONArrayItem(jac, 1);\r\n                                step.StartLocation.Longitude := TTMSFNCUtils.StrToFloatDot(joc.ToString);\r\n                              end;\r\n                            end;\r\n                            lstep := lg.Steps.Add;\r\n                            lstep.Assign(step);\r\n                          end;\r\n                        end;\r\n                      end;\r\n                    end;\r\n                  end;\r\n                end;\r\n              end;\r\n            end;\r\n          finally\r\n            o.Free;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCDirections.Azure;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nprocedure RegisterAzureDirectionsService;\r\nprocedure UnRegisterAzureDirectionsService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCDirections,\r\n  WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes, WEBLib.TMSFNCCloudBase\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 26}\r\n  ,JSON\r\n  {$ELSE}\r\n  ,DBXJSON\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  ,fpjson\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web, WEBLIB.JSON\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCDirectionsAzureService = class;\r\n\r\n  TTMSFNCDirectionsAzureDirectionsFactoryService = class(TTMSFNCDirectionsFactoryService, ITMSFNCDirectionsServiceAzure);\r\n\r\n  TTMSFNCDirectionsAzureService = class(TTMSFNCDirectionsAzureDirectionsFactoryService)\r\n  protected\r\n    function DoCreateDirections: ITMSFNCCustomDirections; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCDirectionsAzureDirections = class;\r\n\r\n  TTMSFNCDirectionsAzureDirections = class(TTMSFNCCustomDirectionsInterfacedObject, ITMSFNCCustomDirections)\r\n  protected\r\n    FTravelMode: TTMSFNCDirectionsTravelMode;\r\n    function GetIdentifier: string;\r\n    function IsValid: Boolean;\r\n    function GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\n    function GetHost: string;\r\n    function GetPath(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; ATravelMode: TTMSFNCDirectionsTravelMode; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil): string;\r\n    function GetQuery(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAVoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\n    function GetPostData(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAvoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\n    procedure Parse(ARequest: TTMSFNCDirectionsRequest; ARequestResult: string);\r\n    procedure AddHeaders(AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\n    procedure DestroyDirections;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  DirectionsService: ITMSFNCDirectionsServiceAzure;\r\n\r\nprocedure RegisterAzureDirectionsService;\r\nbegin\r\n  if not TTMSFNCDirectionsPlatformServices.Current.SupportsPlatformService(ITMSFNCDirectionsServiceAzure, IInterface(DirectionsService)) then\r\n  begin\r\n    DirectionsService := TTMSFNCDirectionsAzureService.Create;\r\n    TTMSFNCDirectionsPlatformServices.Current.AddPlatformService(ITMSFNCDirectionsServiceAzure, DirectionsService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterAzureDirectionsService;\r\nbegin\r\n  TTMSFNCDirectionsPlatformServices.Current.RemovePlatformService(ITMSFNCDirectionsServiceAzure);\r\nend;\r\n\r\n{ TTMSFNCDirectionsAzureService }\r\n\r\nfunction TTMSFNCDirectionsAzureService.DoCreateDirections: ITMSFNCCustomDirections;\r\nbegin\r\n  Result := TTMSFNCDirectionsAzureDirections.Create;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsAzureDirections.AddHeaders(\r\n  AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\nbegin\r\n\r\nend;\r\n\r\nconstructor TTMSFNCDirectionsAzureDirections.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCDirectionsAzureDirections.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsAzureDirections.DestroyDirections;\r\nbegin\r\n  DirectionsService.DestroyDirections(Self);\r\nend;\r\n\r\nfunction TTMSFNCDirectionsAzureDirections.GetHost: string;\r\nbegin\r\n  Result := 'https://atlas.microsoft.com';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsAzureDirections.GetIdentifier: string;\r\nbegin\r\n  Result := 'Azure';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsAzureDirections.GetPath(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n  ADestinationLatitude, ADestinationLongitude: Double; ATravelMode: TTMSFNCDirectionsTravelMode; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil): string;\r\nbegin\r\n  Result := '/route/directions/json';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsAzureDirections.GetPostData(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAvoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsAzureDirections.GetQuery(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n  ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n  ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n  AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAVoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\nvar\r\n  TravelMode, WayPoints, Alternatives: string;\r\n  I: Integer;\r\nbegin\r\n  if AAlternatives then\r\n    Alternatives := '5'\r\n  else\r\n    Alternatives := '0';\r\n\r\n  if ATravelMode in [tmPublicTransport] then\r\n    FTravelMode := tmDriving\r\n  else\r\n    FTravelMode := ATravelMode;\r\n\r\n  case ATravelMode of\r\n    tmDriving: TravelMode := 'car';\r\n    tmWalking: TravelMode := 'pedestrian';\r\n    tmBicycling: TravelMode := 'bicycle';\r\n    tmTruck: TravelMode := 'truck';\r\n  end;\r\n\r\n  AOrigin := TTMSFNCUtils.FloatToStrDot(AOriginLatitude) + ',' + TTMSFNCUtils.FloatToStrDot(AOriginLongitude);\r\n  ADestination := TTMSFNCUtils.FloatToStrDot(ADestinationLatitude) + ',' + TTMSFNCUtils.FloatToStrDot(ADestinationLongitude);\r\n\r\n  WayPoints := AOrigin;\r\n  if Assigned(AWaypoints) and (Length(AWayPoints) > 0) then\r\n  begin\r\n    for I := 0 to (Length(AWayPoints) - 1) do\r\n      WayPoints := WayPoints + ':' + TTMSFNCUtils.FloatToStrDot(AWayPoints[I].Latitude) + ',' + TTMSFNCUtils.FloatToStrDot(AWayPoints[I].Longitude);\r\n  end;\r\n  WayPoints := WayPoints + ':' + ADestination;\r\n\r\n  Result := 'api-version=1.0'\r\n  + '&subscription-key=' + DirectionsProperties.GetAPIKey\r\n  + '&query=' + WayPoints\r\n  + '&maxAlternatives=' + Alternatives\r\n  + '&computeBestOrder=' + BoolToStrEx(AOptimizeWayPoints)\r\n  + '&instructionsType=text'\r\n  + '&travelMode=' + TravelMode\r\n  + '&language=' + ALocale;\r\n\r\n  if AAvoidTolls then\r\n    Result := Result + '&avoid=tollRoads';\r\n\r\n  if AAvoidHighways then\r\n    Result := Result + '&avoid=motorways';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsAzureDirections.GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\nbegin\r\n  Result := rmGet;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsAzureDirections.IsValid: Boolean;\r\nbegin\r\n  Result := DirectionsProperties.GetAPIKey <> '';\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsAzureDirections.Parse(ARequest: TTMSFNCDirectionsRequest; ARequestResult: string);\r\nvar\r\n  d: TTMSFNCDirectionsItems;\r\n  di: TTMSFNCDirectionsItem;\r\n  l: TTMSFNCDirectionsLeg;\r\n  co: TTMSFNCMapsCoordinateItem;\r\n  step: TTMSFNCDirectionsStep;\r\n  wp: TTMSFNCDirectionsWayPoint;\r\n\r\n  o, jo, jol, jos: TJSONValue;\r\n  jar, jal, jas: TJSONArray;\r\n  i, j, k: Integer;\r\n  ol, os, oc: TJSONObject;\r\n  wpIndex: array of Integer;\r\n  providedIndex, optimizedIndex: Integer;\r\nbegin\r\n  if Assigned(DirectionsProperties) then\r\n  begin\r\n    ARequest.TravelMode := FTravelMode;\r\n\r\n    d := ARequest.Items;\r\n    if Assigned(d) then\r\n    begin\r\n      if ARequestResult <> '' then\r\n      begin\r\n        o := TTMSFNCUtils.ParseJSON(ARequestResult);\r\n        if Assigned(o) then\r\n        begin\r\n          try\r\n            oc := TTMSFNCUtils.GetJSONValue(o, 'error') as TJSONObject;\r\n            if Assigned(oc) then\r\n            begin\r\n              ARequest.Status := TTMSFNCUtils.GetJSONProp(oc, 'code');\r\n              ARequest.ErrorMessage := TTMSFNCUtils.GetJSONProp(oc, 'message');\r\n            end;\r\n\r\n            SetLength(wpIndex, 1);\r\n            wpIndex[0] := -1;\r\n\r\n            jal := TTMSFNCUtils.GetJSONValue(o, 'optimizedWaypoints') as TJSONArray;\r\n            if Assigned(jal) then\r\n            begin\r\n              SetLength(wpIndex, TTMSFNCUtils.GetJSONArraySize(jal) + 1);\r\n\r\n              for j := 0 to TTMSFNCUtils.GetJSONArraySize(jal) - 1 do\r\n              begin\r\n                jol := TTMSFNCUtils.GetJSONArrayItem(jal, j);\r\n\r\n                if Assigned(jol) then\r\n                begin\r\n                  providedIndex := TTMSFNCUtils.GetJSONIntegerValue(jol, 'providedIndex');\r\n                  optimizedIndex := TTMSFNCUtils.GetJSONIntegerValue(jol, 'optimizedIndex');\r\n                  wpIndex[providedIndex + 1] := optimizedIndex;\r\n                end;\r\n              end;\r\n            end;\r\n\r\n            jar := TTMSFNCUtils.GetJSONValue(o, 'routes') as TJSONArray;\r\n            if Assigned(jar) then\r\n            begin\r\n              for i := 0 to TTMSFNCUtils.GetJSONArraySize(jar) - 1 do\r\n              begin\r\n                jo := TTMSFNCUtils.GetJSONArrayItem(jar, i);\r\n\r\n                di := d.Add;\r\n                di.Summary := 'Route ' + IntToStr(i);\r\n\r\n                jal := TTMSFNCUtils.GetJSONValue(jo, 'legs') as TJSONArray;\r\n                if Assigned(jal) then\r\n                begin\r\n                  for j := 0 to TTMSFNCUtils.GetJSONArraySize(jal) - 1 do\r\n                  begin\r\n                    jol := TTMSFNCUtils.GetJSONArrayItem(jal, j);\r\n\r\n                    l := di.Legs.Add;\r\n\r\n                    wp := di.WayPoints.Add;\r\n                    if Length(wpIndex) > j then\r\n                      wp.OptimizedIndex := wpIndex[j];\r\n\r\n                    ol := TTMSFNCUtils.GetJSONValue(jol, 'summary') as TJSONObject;\r\n                    if Assigned(ol) then\r\n                    begin\r\n                      l.Distance := TTMSFNCUtils.GetJSONIntegerValue(ol, 'lengthInMeters');\r\n                      di.Distance := di.Distance + l.Distance;\r\n                      l.Duration := TTMSFNCUtils.GetJSONIntegerValue(ol, 'travelTimeInSeconds');\r\n                      di.Duration := di.Duration + l.Duration;\r\n                      wp.Distance := l.Distance;\r\n                      wp.Duration := l.Duration;\r\n                    end;\r\n\r\n                    jas := TTMSFNCUtils.GetJSONValue(jol, 'points') as TJSONArray;\r\n                    if Assigned(jas) then\r\n                    begin\r\n                      for k := 0 to TTMSFNCUtils.GetJSONArraySize(jas) - 1 do\r\n                      begin\r\n                        jos := TTMSFNCUtils.GetJSONArrayItem(jas, k);\r\n\r\n                        co := di.Coordinates.Add;\r\n                        co.Latitude := TTMSFNCUtils.GetJSONDoubleValue(jos, 'latitude');\r\n                        co.Longitude := TTMSFNCUtils.GetJSONDoubleValue(jos, 'longitude');\r\n                        l.Coordinates.Add.Assign(co);\r\n                        if k = 0 then\r\n                        begin\r\n                          l.StartLocation.Latitude := co.Latitude;\r\n                          l.StartLocation.Longitude := co.Longitude;\r\n                        end\r\n                        else if k = TTMSFNCUtils.GetJSONArraySize(jas) - 1 then\r\n                        begin\r\n                          l.EndLocation.Latitude := co.Latitude;\r\n                          l.EndLocation.Longitude := co.Longitude;\r\n                        end;\r\n                      end;\r\n                    end;\r\n                  end;\r\n                end;\r\n\r\n                ol := TTMSFNCUtils.GetJSONValue(jo, 'guidance') as TJSONObject;\r\n                if Assigned(ol) then\r\n                begin\r\n                  jas := TTMSFNCUtils.GetJSONValue(ol, 'instructions') as TJSONArray;\r\n                  if Assigned(jas) then\r\n                  begin\r\n                    for k := 0 to TTMSFNCUtils.GetJSONArraySize(jas) - 1 do\r\n                    begin\r\n                      jos := TTMSFNCUtils.GetJSONArrayItem(jas, k);\r\n\r\n                      step := di.Steps.Add;\r\n                      step.Distance := TTMSFNCUtils.GetJSONIntegerValue(jos, 'routeOffsetInMeters');\r\n                      step.Duration := TTMSFNCUtils.GetJSONIntegerValue(jos, 'travelTimeInSeconds');\r\n                      os := TTMSFNCUtils.GetJSONValue(jos, 'point') as TJSONObject;\r\n                      if Assigned(os) then\r\n                      begin\r\n                        step.StartLocation.Latitude := TTMSFNCUtils.GetJSONDoubleValue(os, 'latitude');\r\n                        step.StartLocation.Longitude := TTMSFNCUtils.GetJSONDoubleValue(os, 'longitude');\r\n                      end;\r\n                      step.Instructions := TTMSFNCUtils.GetJSONProp(jos, 'message');\r\n                    end;\r\n                  end;\r\n                end;\r\n\r\n              end;\r\n            end;\r\n          finally\r\n            o.Free;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCDirections.MapBox;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nprocedure RegisterMapBoxDirectionsService;\r\nprocedure UnRegisterMapBoxDirectionsService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCDirections,\r\n  WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes, WEBLib.TMSFNCCloudBase\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 26}\r\n  ,JSON\r\n  {$ELSE}\r\n  ,DBXJSON\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  ,fpjson\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web, WEBLIB.JSON\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCDirectionsMapBoxService = class;\r\n\r\n  TTMSFNCDirectionsMapBoxDirectionsFactoryService = class(TTMSFNCDirectionsFactoryService, ITMSFNCDirectionsServiceMapBox);\r\n\r\n  TTMSFNCDirectionsMapBoxService = class(TTMSFNCDirectionsMapBoxDirectionsFactoryService)\r\n  protected\r\n    function DoCreateDirections: ITMSFNCCustomDirections; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCDirectionsMapBoxDirections = class;\r\n\r\n  TTMSFNCDirectionsMapBoxDirections = class(TTMSFNCCustomDirectionsInterfacedObject, ITMSFNCCustomDirections)\r\n  protected\r\n    FTravelMode: TTMSFNCDirectionsTravelMode;\r\n    function GetIdentifier: string;\r\n    function IsValid: Boolean;\r\n    function GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\n    function GetHost: string;\r\n    function GetPath(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; ATravelMode: TTMSFNCDirectionsTravelMode; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil): string;\r\n    function GetQuery(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAVoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\n    function GetPostData(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAvoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\n    procedure Parse(ARequest: TTMSFNCDirectionsRequest; ARequestResult: string);\r\n    procedure AddHeaders(AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\n    procedure DestroyDirections;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  DirectionsService: ITMSFNCDirectionsServiceMapBox;\r\n\r\nprocedure RegisterMapBoxDirectionsService;\r\nbegin\r\n  if not TTMSFNCDirectionsPlatformServices.Current.SupportsPlatformService(ITMSFNCDirectionsServiceMapBox, IInterface(DirectionsService)) then\r\n  begin\r\n    DirectionsService := TTMSFNCDirectionsMapBoxService.Create;\r\n    TTMSFNCDirectionsPlatformServices.Current.AddPlatformService(ITMSFNCDirectionsServiceMapBox, DirectionsService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterMapBoxDirectionsService;\r\nbegin\r\n  TTMSFNCDirectionsPlatformServices.Current.RemovePlatformService(ITMSFNCDirectionsServiceMapBox);\r\nend;\r\n\r\n{ TTMSFNCDirectionsMapBoxService }\r\n\r\nfunction TTMSFNCDirectionsMapBoxService.DoCreateDirections: ITMSFNCCustomDirections;\r\nbegin\r\n  Result := TTMSFNCDirectionsMapBoxDirections.Create;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsMapBoxDirections.AddHeaders(\r\n  AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\nbegin\r\n\r\nend;\r\n\r\nconstructor TTMSFNCDirectionsMapBoxDirections.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCDirectionsMapBoxDirections.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsMapBoxDirections.DestroyDirections;\r\nbegin\r\n  DirectionsService.DestroyDirections(Self);\r\nend;\r\n\r\nfunction TTMSFNCDirectionsMapBoxDirections.GetHost: string;\r\nbegin\r\n  Result := 'https://api.mapbox.com';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsMapBoxDirections.GetIdentifier: string;\r\nbegin\r\n  Result := 'MapBox';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsMapBoxDirections.GetPath(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n  ADestinationLatitude, ADestinationLongitude: Double; ATravelMode: TTMSFNCDirectionsTravelMode; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil): string;\r\nvar\r\n  TravelMode, WayPoints: string;\r\n  I: Integer;\r\nbegin\r\n\r\n  if ATravelMode in [tmTruck, tmPublicTransport] then\r\n    FTravelMode := tmDriving\r\n  else\r\n    FTravelMode := ATravelMode;\r\n\r\n  case ATravelMode of\r\n    tmDriving: TravelMode := 'driving';\r\n    tmWalking: TravelMode := 'walking';\r\n    tmBicycling: TravelMode := 'cycling';\r\n  end;\r\n\r\n  AOrigin := TTMSFNCUtils.FloatToStrDot(AOriginLongitude) + ',' + TTMSFNCUtils.FloatToStrDot(AOriginLatitude);\r\n  ADestination := TTMSFNCUtils.FloatToStrDot(ADestinationLongitude) + ',' + TTMSFNCUtils.FloatToStrDot(ADestinationLatitude);\r\n\r\n  WayPoints := AOrigin;\r\n  if Assigned(AWaypoints) and (Length(AWayPoints) > 0) then\r\n  begin\r\n    for I := 0 to (Length(AWayPoints) - 1) do\r\n      WayPoints := WayPoints + ';' + TTMSFNCUtils.FloatToStrDot(AWayPoints[I].Longitude) + ',' + TTMSFNCUtils.FloatToStrDot(AWayPoints[I].Latitude);\r\n  end;\r\n  WayPoints := WayPoints + ';' + ADestination;\r\n\r\n  Result := '/directions/v5/mapbox/' + TravelMode + '/' + WayPoints;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsMapBoxDirections.GetPostData(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAvoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsMapBoxDirections.GetQuery(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n  ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n  ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n  AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAVoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\nbegin\r\n  Result := 'geometries=polyline'\r\n  + '&alternatives=' + BoolToStrEx(AAlternatives)\r\n  + '&overview=full'\r\n  + '&steps=true'\r\n  + '&access_token=' + DirectionsProperties.GetAPIKey\r\n  + '&language=' + ALocale;\r\n\r\n  if AAvoidTolls or AAvoidHighways then\r\n  begin\r\n    Result := Result + '&exclude=';\r\n\r\n    if AAVoidTolls then\r\n      Result := Result + 'toll,';\r\n\r\n    if AAVoidHighways then\r\n      Result := Result + 'motorway';\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsMapBoxDirections.GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\nbegin\r\n  Result := rmGet;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsMapBoxDirections.IsValid: Boolean;\r\nbegin\r\n  Result := DirectionsProperties.GetAPIKey <> '';\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsMapBoxDirections.Parse(ARequest: TTMSFNCDirectionsRequest; ARequestResult: string);\r\nvar\r\n  d: TTMSFNCDirectionsItems;\r\n  di: TTMSFNCDirectionsItem;\r\n  l: TTMSFNCDirectionsLeg;\r\n  step, lstep: TTMSFNCDirectionsStep;\r\n\r\n  o, jo, jol, jos, joc: TJSONValue;\r\n  jar, jal, jas, jac: TJSONArray;\r\n  i, j, k: Integer;\r\n  os: TJSONObject;\r\n  lm: Integer;\r\nbegin\r\n  if Assigned(DirectionsProperties) then\r\n  begin\r\n    ARequest.TravelMode := FTravelMode;\r\n\r\n    d := ARequest.Items;\r\n    if Assigned(d) then\r\n    begin\r\n      if ARequestResult <> '' then\r\n      begin\r\n        o := TTMSFNCUtils.ParseJSON(ARequestResult);\r\n        if Assigned(o) then\r\n        begin\r\n          try\r\n            ARequest.Status := TTMSFNCUtils.GetJSONProp(o, 'message');\r\n            ARequest.ErrorMessage := ARequest.Status;\r\n\r\n            jar := TTMSFNCUtils.GetJSONValue(o, 'routes') as TJSONArray;\r\n            if Assigned(jar) then\r\n            begin\r\n              for i := 0 to TTMSFNCUtils.GetJSONArraySize(jar) - 1 do\r\n              begin\r\n                di := d.Add;\r\n                di.Summary := 'Route ' + IntToStr(i);\r\n\r\n                jo := TTMSFNCUtils.GetJSONArrayItem(jar, i);\r\n\r\n                di.Distance := Round(TTMSFNCUtils.GetJSONDoubleValue(jo, 'distance'));\r\n                di.Duration := Round(TTMSFNCUtils.GetJSONDoubleValue(jo, 'duration'));\r\n\r\n                DecodeValues(TTMSFNCUtils.GetJSONProp(jo, 'geometry'), di.Coordinates);\r\n\r\n                jal := TTMSFNCUtils.GetJSONValue(jo, 'legs') as TJSONArray;\r\n                if Assigned(jal) then\r\n                begin\r\n                  for j := 0 to TTMSFNCUtils.GetJSONArraySize(jal) - 1 do\r\n                  begin\r\n                    jol := TTMSFNCUtils.GetJSONArrayItem(jal, j);\r\n\r\n                    l := di.Legs.Add;\r\n\r\n                    l.Distance := Round(TTMSFNCUtils.GetJSONDoubleValue(jol, 'distance'));\r\n                    l.Duration := Round(TTMSFNCUtils.GetJSONDoubleValue(jol, 'duration'));\r\n\r\n                    jas := TTMSFNCUtils.GetJSONValue(jol, 'steps') as TJSONArray;\r\n                    if Assigned(jas) then\r\n                    begin\r\n                      for k := 0 to TTMSFNCUtils.GetJSONArraySize(jas) - 1 do\r\n                      begin\r\n                        jos := TTMSFNCUtils.GetJSONArrayItem(jas, k);\r\n\r\n                        step := di.Steps.Add;\r\n\r\n                        step.Distance := Round(TTMSFNCUtils.GetJSONDoubleValue(jos, 'distance'));\r\n                        step.Duration := Round(TTMSFNCUtils.GetJSONDoubleValue(jos, 'duration'));\r\n\r\n                        DecodeValues(TTMSFNCUtils.GetJSONProp(jos, 'geometry'), step.Coordinates);\r\n\r\n                        for lm := 0 to step.Coordinates.Count - 1 do\r\n                          l.Coordinates.Add.Assign(step.Coordinates[lm]);\r\n\r\n                        if l.Coordinates.Count > 0 then\r\n                        begin\r\n                          l.StartLocation.Assign(l.Coordinates[0].Coordinate);\r\n                          l.EndLocation.Assign(l.Coordinates[l.Coordinates.Count - 1].Coordinate);\r\n                        end;\r\n\r\n                        os := TTMSFNCUtils.GetJSONValue(jos, 'maneuver') as TJSONObject;\r\n                        if Assigned(os) then\r\n                        begin\r\n                          step.Instructions := TTMSFNCUtils.GetJSONProp(os, 'instruction');\r\n\r\n                          jac := TTMSFNCUtils.GetJSONValue(os, 'location') as TJSONArray;\r\n                          if Assigned(jac) then\r\n                          begin\r\n                            joc := TTMSFNCUtils.GetJSONArrayItem(jac, 0);\r\n                            step.StartLocation.Longitude := TTMSFNCUtils.StrToFloatDot(joc.ToString);\r\n                            joc := TTMSFNCUtils.GetJSONArrayItem(jac, 1);\r\n                            step.StartLocation.Latitude := TTMSFNCUtils.StrToFloatDot(joc.ToString);\r\n                          end;\r\n                          lstep := l.Steps.Add;\r\n                          lstep.Assign(step);\r\n                        end;\r\n                      end;\r\n                    end;\r\n                  end;\r\n                end;\r\n              end;\r\n\r\n            end;\r\n          finally\r\n            o.Free;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCDirections.TomTom;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nprocedure RegisterTomTomDirectionsService;\r\nprocedure UnRegisterTomTomDirectionsService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCDirections,\r\n  WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes, WEBLib.TMSFNCCloudBase\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 26}\r\n  ,JSON\r\n  {$ELSE}\r\n  ,DBXJSON\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  ,fpjson\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web, WEBLIB.JSON\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCDirectionsTomTomService = class;\r\n\r\n  TTMSFNCDirectionsTomTomDirectionsFactoryService = class(TTMSFNCDirectionsFactoryService, ITMSFNCDirectionsServiceTomTom);\r\n\r\n  TTMSFNCDirectionsTomTomService = class(TTMSFNCDirectionsTomTomDirectionsFactoryService)\r\n  protected\r\n    function DoCreateDirections: ITMSFNCCustomDirections; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCDirectionsTomTomDirections = class;\r\n\r\n  TTMSFNCDirectionsTomTomDirections = class(TTMSFNCCustomDirectionsInterfacedObject, ITMSFNCCustomDirections)\r\n  protected\r\n    FTravelMode: TTMSFNCDirectionsTravelMode;\r\n    function GetIdentifier: string;\r\n    function IsValid: Boolean;\r\n    function GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\n    function GetHost: string;\r\n    function GetPath(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; ATravelMode: TTMSFNCDirectionsTravelMode; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil): string;\r\n    function GetQuery(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAVoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\n    function GetPostData(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAvoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\n    procedure Parse(ARequest: TTMSFNCDirectionsRequest; ARequestResult: string);\r\n    procedure AddHeaders(AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\n    procedure DestroyDirections;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  DirectionsService: ITMSFNCDirectionsServiceTomTom;\r\n\r\nprocedure RegisterTomTomDirectionsService;\r\nbegin\r\n  if not TTMSFNCDirectionsPlatformServices.Current.SupportsPlatformService(ITMSFNCDirectionsServiceTomTom, IInterface(DirectionsService)) then\r\n  begin\r\n    DirectionsService := TTMSFNCDirectionsTomTomService.Create;\r\n    TTMSFNCDirectionsPlatformServices.Current.AddPlatformService(ITMSFNCDirectionsServiceTomTom, DirectionsService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterTomTomDirectionsService;\r\nbegin\r\n  TTMSFNCDirectionsPlatformServices.Current.RemovePlatformService(ITMSFNCDirectionsServiceTomTom);\r\nend;\r\n\r\n{ TTMSFNCDirectionsTomTomService }\r\n\r\nfunction TTMSFNCDirectionsTomTomService.DoCreateDirections: ITMSFNCCustomDirections;\r\nbegin\r\n  Result := TTMSFNCDirectionsTomTomDirections.Create;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsTomTomDirections.AddHeaders(\r\n  AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\nbegin\r\n\r\nend;\r\n\r\nconstructor TTMSFNCDirectionsTomTomDirections.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCDirectionsTomTomDirections.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsTomTomDirections.DestroyDirections;\r\nbegin\r\n  DirectionsService.DestroyDirections(Self);\r\nend;\r\n\r\nfunction TTMSFNCDirectionsTomTomDirections.GetHost: string;\r\nbegin\r\n  Result := 'https://api.tomtom.com';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsTomTomDirections.GetIdentifier: string;\r\nbegin\r\n  Result := 'TomTom';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsTomTomDirections.GetPath(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n  ADestinationLatitude, ADestinationLongitude: Double; ATravelMode: TTMSFNCDirectionsTravelMode; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil): string;\r\nvar\r\n  WayPoints: string;\r\n  I: Integer;\r\nbegin\r\n  AOrigin := TTMSFNCUtils.FloatToStrDot(AOriginLatitude) + ',' + TTMSFNCUtils.FloatToStrDot(AOriginLongitude);\r\n  ADestination := TTMSFNCUtils.FloatToStrDot(ADestinationLatitude) + ',' + TTMSFNCUtils.FloatToStrDot(ADestinationLongitude);\r\n\r\n  AOrigin := TTMSFNCUtils.FloatToStrDot(AOriginLatitude) + ',' + TTMSFNCUtils.FloatToStrDot(AOriginLongitude);\r\n  ADestination := TTMSFNCUtils.FloatToStrDot(ADestinationLatitude) + ',' + TTMSFNCUtils.FloatToStrDot(ADestinationLongitude);\r\n\r\n  WayPoints := AOrigin;\r\n  if Assigned(AWaypoints) and (Length(AWayPoints) > 0) then\r\n  begin\r\n    for I := 0 to (Length(AWayPoints) - 1) do\r\n      WayPoints := WayPoints + ':' + TTMSFNCUtils.FloatToStrDot(AWayPoints[I].Latitude) + ',' + TTMSFNCUtils.FloatToStrDot(AWayPoints[I].Longitude);\r\n  end;\r\n  WayPoints := WayPoints + ':' + ADestination;\r\n\r\n  Result := '/routing/1/calculateRoute/' + WayPoints + '/json';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsTomTomDirections.GetPostData(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAvoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsTomTomDirections.GetQuery(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n  ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n  AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAVoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\nvar\r\n  TravelMode, Alternatives: string;\r\nbegin\r\n  if AAlternatives then\r\n    Alternatives := '5'\r\n  else\r\n    Alternatives := '0';\r\n\r\n  if ATravelMode in [tmPublicTransport] then\r\n    FTravelMode := tmDriving\r\n  else\r\n    FTravelMode := ATravelMode;\r\n\r\n  case ATravelMode of\r\n    tmDriving: TravelMode := 'car';\r\n    tmWalking: TravelMode := 'pedestrian';\r\n    tmBicycling: TravelMode := 'bicycle';\r\n    tmTruck: TravelMode := 'truck';\r\n  end;\r\n\r\n  Result := 'key=' + DirectionsProperties.GetAPIKey\r\n  + '&maxAlternatives=' + Alternatives\r\n  + '&computeBestOrder=' + BoolToStrEx(AOptimizeWayPoints)\r\n  + '&instructionsType=text'\r\n  + '&travelMode=' + TravelMode\r\n  + '&language=' + ALocale;\r\n\r\n  if AAVoidTolls then\r\n    Result := Result + '&avoid=tolls';\r\n\r\n  if AAVoidHighways then\r\n    Result := Result + '&avoid=motorways';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsTomTomDirections.GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\nbegin\r\n  Result := rmGet;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsTomTomDirections.IsValid: Boolean;\r\nbegin\r\n  Result := DirectionsProperties.GetAPIKey <> '';\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsTomTomDirections.Parse(ARequest: TTMSFNCDirectionsRequest; ARequestResult: string);\r\nvar\r\n  d: TTMSFNCDirectionsItems;\r\n  di: TTMSFNCDirectionsItem;\r\n  co: TTMSFNCMapsCoordinateItem;\r\n  l: TTMSFNCDirectionsLeg;\r\n  step: TTMSFNCDirectionsStep;\r\n  wp: TTMSFNCDirectionsWayPoint;\r\n\r\n  o, jo, jol, jos: TJSONValue;\r\n  jar, jal, jas: TJSONArray;\r\n  i, j, k: Integer;\r\n  ol, os: TJSONObject;\r\n  wpIndex: array of integer;\r\n  providedIndex, optimizedIndex: integer;\r\nbegin\r\n  if Assigned(DirectionsProperties) then\r\n  begin\r\n    ARequest.TravelMode := FTravelMode;\r\n\r\n    d := ARequest.Items;\r\n    if Assigned(d) then\r\n    begin\r\n      if ARequestResult <> '' then\r\n      begin\r\n        o := TTMSFNCUtils.ParseJSON(ARequestResult);\r\n        if Assigned(o) then\r\n        begin\r\n          try\r\n            ARequest.Status := TTMSFNCUtils.GetJSONProp(o, 'httpStatusCode');\r\n            ARequest.ErrorMessage := TTMSFNCUtils.GetJSONProp(o, 'errorText');\r\n\r\n            SetLength(wpIndex, 1);\r\n            wpIndex[0] := -1;\r\n\r\n            jal := TTMSFNCUtils.GetJSONValue(o, 'optimizedWaypoints') as TJSONArray;\r\n            if Assigned(jal) then\r\n            begin\r\n              SetLength(wpIndex, TTMSFNCUtils.GetJSONArraySize(jal) + 1);\r\n\r\n              for j := 0 to TTMSFNCUtils.GetJSONArraySize(jal) - 1 do\r\n              begin\r\n                jol := TTMSFNCUtils.GetJSONArrayItem(jal, j);\r\n\r\n                if Assigned(jol) then\r\n                begin\r\n                  providedIndex := TTMSFNCUtils.GetJSONIntegerValue(jol, 'providedIndex');\r\n                  optimizedIndex := TTMSFNCUtils.GetJSONIntegerValue(jol, 'optimizedIndex');\r\n                  wpIndex[providedIndex + 1] := optimizedIndex;\r\n                end;\r\n              end;\r\n            end;\r\n\r\n            jar := TTMSFNCUtils.GetJSONValue(o, 'routes') as TJSONArray;\r\n            if Assigned(jar) then\r\n            begin\r\n              for i := 0 to TTMSFNCUtils.GetJSONArraySize(jar) - 1 do\r\n              begin\r\n                jo := TTMSFNCUtils.GetJSONArrayItem(jar, i);\r\n\r\n                di := d.Add;\r\n                di.Summary := 'Route ' + IntToStr(i);\r\n\r\n                jal := TTMSFNCUtils.GetJSONValue(jo, 'legs') as TJSONArray;\r\n                if Assigned(jal) then\r\n                begin\r\n                  for j := 0 to TTMSFNCUtils.GetJSONArraySize(jal) - 1 do\r\n                  begin\r\n                    jol := TTMSFNCUtils.GetJSONArrayItem(jal, j);\r\n\r\n                    l := di.Legs.Add;\r\n\r\n                    wp := di.WayPoints.Add;\r\n                    if Length(wpIndex) > j then\r\n                      wp.OptimizedIndex := wpIndex[j];\r\n\r\n                    ol := TTMSFNCUtils.GetJSONValue(jol, 'summary') as TJSONObject;\r\n                    if Assigned(ol) then\r\n                    begin\r\n                      l.Distance := TTMSFNCUtils.GetJSONIntegerValue(ol, 'lengthInMeters');\r\n                      di.Distance := di.Distance + l.Distance;\r\n                      l.Duration := TTMSFNCUtils.GetJSONIntegerValue(ol, 'travelTimeInSeconds');\r\n                      di.Duration := di.Duration + l.Duration;\r\n                      wp.Distance := l.Distance;\r\n                      wp.Duration := l.Duration;\r\n                    end;\r\n\r\n                    jas := TTMSFNCUtils.GetJSONValue(jol, 'points') as TJSONArray;\r\n                    if Assigned(jas) then\r\n                    begin\r\n                      for k := 0 to TTMSFNCUtils.GetJSONArraySize(jas) - 1 do\r\n                      begin\r\n                        jos := TTMSFNCUtils.GetJSONArrayItem(jas, k);\r\n\r\n                        co := di.Coordinates.Add;\r\n                        co.Latitude := TTMSFNCUtils.GetJSONDoubleValue(jos, 'latitude');\r\n                        co.Longitude := TTMSFNCUtils.GetJSONDoubleValue(jos, 'longitude');\r\n                        l.Coordinates.Add.Assign(co);\r\n                      end;\r\n                    end;\r\n\r\n                    if l.Coordinates.Count > 0 then\r\n                    begin\r\n                      l.StartLocation.Assign(l.Coordinates[0].Coordinate);\r\n                      l.EndLocation.Assign(l.Coordinates[l.Coordinates.Count - 1].Coordinate);\r\n                    end;\r\n\r\n                  end;\r\n                end;\r\n\r\n                ol := TTMSFNCUtils.GetJSONValue(jo, 'guidance') as TJSONObject;\r\n                if Assigned(ol) then\r\n                begin\r\n                  jas := TTMSFNCUtils.GetJSONValue(ol, 'instructions') as TJSONArray;\r\n                  if Assigned(jas) then\r\n                  begin\r\n                    for k := 0 to TTMSFNCUtils.GetJSONArraySize(jas) - 1 do\r\n                    begin\r\n                      jos := TTMSFNCUtils.GetJSONArrayItem(jas, k);\r\n\r\n                      step := di.Steps.Add;\r\n                      step.Distance := TTMSFNCUtils.GetJSONIntegerValue(jos, 'routeOffsetInMeters');\r\n                      step.Duration := TTMSFNCUtils.GetJSONIntegerValue(jos, 'travelTimeInSeconds');\r\n                      os := TTMSFNCUtils.GetJSONValue(jos, 'point') as TJSONObject;\r\n                      if Assigned(os) then\r\n                      begin\r\n                        step.StartLocation.Latitude := TTMSFNCUtils.GetJSONDoubleValue(os, 'latitude');\r\n                        step.StartLocation.Longitude := TTMSFNCUtils.GetJSONDoubleValue(os, 'longitude');\r\n                      end;\r\n                      step.Instructions := TTMSFNCUtils.GetJSONProp(jos, 'message');\r\n                    end;\r\n                  end;\r\n                end;\r\n\r\n              end;\r\n            end;\r\n          finally\r\n            o.Free;\r\n          end;\r\n        end\r\n        else\r\n        begin\r\n          //error\r\n          ARequest.Status := ARequestResult;\r\n          ARequest.ErrorMessage := ARequest.Status;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCDirections.OpenRouteService;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nprocedure RegisterOpenRouteServiceDirectionsService;\r\nprocedure UnRegisterOpenRouteServiceDirectionsService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCDirections,\r\n  WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes, WEBLib.TMSFNCCloudBase\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 26}\r\n  ,JSON\r\n  {$ELSE}\r\n  ,DBXJSON\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  ,fpjson\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web, WEBLIB.JSON\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCDirectionsOpenRouteServiceService = class;\r\n\r\n  TTMSFNCDirectionsOpenRouteServiceDirectionsFactoryService = class(TTMSFNCDirectionsFactoryService, ITMSFNCDirectionsServiceOpenRouteService);\r\n\r\n  TTMSFNCDirectionsOpenRouteServiceService = class(TTMSFNCDirectionsOpenRouteServiceDirectionsFactoryService)\r\n  protected\r\n    function DoCreateDirections: ITMSFNCCustomDirections; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCDirectionsOpenRouteServiceDirections = class;\r\n\r\n  TTMSFNCDirectionsOpenRouteServiceDirections = class(TTMSFNCCustomDirectionsInterfacedObject, ITMSFNCCustomDirections)\r\n  protected\r\n    FTravelMode: TTMSFNCDirectionsTravelMode;\r\n    function GetIdentifier: string;\r\n    function IsValid: Boolean;\r\n    function GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\n    function GetHost: string;\r\n    function GetPath(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil): string;\r\n    function GetQuery(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAVoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\n    function GetPostData(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAvoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\n    procedure Parse(ARequest: TTMSFNCDirectionsRequest; ARequestResult: string);\r\n    procedure AddHeaders(AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\n    procedure DestroyDirections;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  DirectionsService: ITMSFNCDirectionsServiceOpenRouteService;\r\n\r\nprocedure RegisterOpenRouteServiceDirectionsService;\r\nbegin\r\n  if not TTMSFNCDirectionsPlatformServices.Current.SupportsPlatformService(ITMSFNCDirectionsServiceOpenRouteService, IInterface(DirectionsService)) then\r\n  begin\r\n    DirectionsService := TTMSFNCDirectionsOpenRouteServiceService.Create;\r\n    TTMSFNCDirectionsPlatformServices.Current.AddPlatformService(ITMSFNCDirectionsServiceOpenRouteService, DirectionsService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterOpenRouteServiceDirectionsService;\r\nbegin\r\n  TTMSFNCDirectionsPlatformServices.Current.RemovePlatformService(ITMSFNCDirectionsServiceOpenRouteService);\r\nend;\r\n\r\n{ TTMSFNCDirectionsOpenRouteServiceService }\r\n\r\nfunction TTMSFNCDirectionsOpenRouteServiceService.DoCreateDirections: ITMSFNCCustomDirections;\r\nbegin\r\n  Result := TTMSFNCDirectionsOpenRouteServiceDirections.Create;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsOpenRouteServiceDirections.AddHeaders(\r\n  AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\nbegin\r\n  AHeaders.Add(TTMSFNCCloudBaseRequestHeader.Create('Content-Type', 'application/json'));\r\n  AHeaders.Add(TTMSFNCCloudBaseRequestHeader.Create('Authorization', DirectionsProperties.GetAPIKey));\r\nend;\r\n\r\nconstructor TTMSFNCDirectionsOpenRouteServiceDirections.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCDirectionsOpenRouteServiceDirections.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsOpenRouteServiceDirections.DestroyDirections;\r\nbegin\r\n  DirectionsService.DestroyDirections(Self);\r\nend;\r\n\r\nfunction TTMSFNCDirectionsOpenRouteServiceDirections.GetHost: string;\r\nbegin\r\n  Result := 'https://api.openrouteservice.org';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsOpenRouteServiceDirections.GetIdentifier: string;\r\nbegin\r\n  Result := 'OpenRouteService';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsOpenRouteServiceDirections.GetPath(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil): string;\r\nvar\r\n  TravelMode: string;\r\nbegin\r\n\r\n  if ATravelMode in [tmPublicTransport] then\r\n    FTravelMode := tmDriving\r\n  else\r\n    FTravelMode := ATravelMode;\r\n\r\n  case ATravelMode of\r\n    tmDriving: TravelMode := 'driving-car';\r\n    tmWalking: TravelMode := 'foot-walking';\r\n    tmBicycling: TravelMode := 'cycling-regular';\r\n    tmPublicTransport: TravelMode := 'driving-car';\r\n    tmTruck: TravelMode := 'driving-hgv';\r\n  end;\r\n\r\n  Result := '/v2/directions/' + TravelMode;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsOpenRouteServiceDirections.GetPostData(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAvoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\nvar\r\n  coords, avoid, alts, lang: string;\r\n  I, wpcount: Integer;\r\n\r\n  function CoordToStr(Latitude, Longitude: Double): string;\r\n  begin\r\n    Result := '[' + TTMSFNCUtils.FloatToStrDot(Longitude) + ',' + TTMSFNCUtils.FloatToStrDot(Latitude) + ']';\r\n  end;\r\n\r\nbegin\r\n  wpcount := 0;\r\n  coords := CoordToStr(AOriginLatitude, AOriginLongitude);\r\n  if Assigned(AWayPoints) then\r\n  begin\r\n    wpcount := Length(AWayPoints);\r\n    for I := 0 to wpcount - 1 do\r\n    begin\r\n      coords := coords +  ', ' + CoordToStr(AWayPoints[I].Latitude, AWayPoints[I].Longitude);\r\n    end;\r\n  end;\r\n  coords := coords + ', ' + CoordToStr(ADestinationLatitude, ADestinationLongitude);\r\n\r\n  if ATravelMode in [tmDriving, tmTruck] then\r\n  begin\r\n    if AAvoidTolls or AAvoidHighways then\r\n    begin\r\n      avoid := '';\r\n\r\n      if AAvoidTolls then\r\n        avoid := avoid + '\"tollways\"';\r\n\r\n      if AAvoidHighways then\r\n      begin\r\n        if avoid <> '' then\r\n          avoid := avoid + ', ';\r\n        avoid := avoid + '\"highways\"';\r\n      end;\r\n\r\n      avoid := ',\"options\":{\"avoid_features\":[' + avoid + ']}';\r\n    end;\r\n  end;\r\n\r\n  if wpcount <= 0 then\r\n  begin\r\n    if AAlternatives then\r\n      alts := ',\"alternative_routes\":{\"target_count\":2}';\r\n  end;\r\n\r\n  if ALocale <> '' then\r\n    lang := ', \"language\": \"' + ALocale + '\"';\r\n\r\n  Result := '{\"coordinates\":[' + coords + ']' + lang + alts + avoid + '}';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsOpenRouteServiceDirections.GetQuery(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n  ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n  ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n  AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAVoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsOpenRouteServiceDirections.GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\nbegin\r\n  Result := rmPost;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsOpenRouteServiceDirections.IsValid: Boolean;\r\nbegin\r\n  Result := DirectionsProperties.GetAPIKey <> '';\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsOpenRouteServiceDirections.Parse(ARequest: TTMSFNCDirectionsRequest; ARequestResult: string);\r\nvar\r\n  d: TTMSFNCDirectionsItems;\r\n  di: TTMSFNCDirectionsItem;\r\n  step, lstep: TTMSFNCDirectionsStep;\r\n  l: TTMSFNCDirectionsLeg;\r\n  it, lit: TTMSFNCMapsCoordinateItem;\r\n\r\n  o, jo, jol, jos, joar: TJSONValue;\r\n  jar, jal, jas, jab: TJSONArray;\r\n  i, j, k, m, startindex, endindex: Integer;\r\n  ol: TJSONObject;\r\nbegin\r\n  if Assigned(DirectionsProperties) then\r\n  begin\r\n    ARequest.TravelMode := FTravelMode;\r\n\r\n    d := ARequest.Items;\r\n    if Assigned(d) then\r\n    begin\r\n      if ARequestResult <> '' then\r\n      begin\r\n        o := TTMSFNCUtils.ParseJSON(ARequestResult);\r\n        if Assigned(o) then\r\n        begin\r\n          try\r\n            ARequest.ErrorMessage := TTMSFNCUtils.GetJSONProp(o, 'error');\r\n            if ARequest.ErrorMessage <> '' then\r\n              ARequest.Status := 'error';\r\n\r\n            jar := TTMSFNCUtils.GetJSONValue(o, 'routes') as TJSONArray;\r\n            if Assigned(jar) then\r\n            begin\r\n\r\n              for i := 0 to TTMSFNCUtils.GetJSONArraySize(jar) - 1 do\r\n              begin\r\n                jo := TTMSFNCUtils.GetJSONArrayItem(jar, i);\r\n\r\n                di := d.Add;\r\n                ol := TTMSFNCUtils.GetJSONValue(jo, 'summary') as TJSONObject;\r\n                if Assigned(ol) then\r\n                begin\r\n                  di.Distance := TTMSFNCUtils.GetJSONDoubleValue(ol, 'distance');\r\n                  di.Duration := Round(TTMSFNCUtils.GetJSONDoubleValue(ol, 'duration'));\r\n                end;\r\n\r\n                DecodeValues(TTMSFNCUtils.GetJSONProp(jo, 'geometry'), di.Coordinates);\r\n\r\n                jal := TTMSFNCUtils.GetJSONValue(jo, 'segments') as TJSONArray;\r\n                if Assigned(jal) then\r\n                begin\r\n                  for j := 0 to TTMSFNCUtils.GetJSONArraySize(jal) - 1 do\r\n                  begin\r\n                    jol := TTMSFNCUtils.GetJSONArrayItem(jal, j);\r\n\r\n                    l := di.Legs.Add;\r\n                    l.Distance := Round(TTMSFNCUtils.GetJSONDoubleValue(jol, 'distance'));\r\n                    l.Duration := Round(TTMSFNCUtils.GetJSONDoubleValue(jol, 'duration'));\r\n\r\n                    jas := TTMSFNCUtils.GetJSONValue(jol, 'steps') as TJSONArray;\r\n                    if Assigned(jas) then\r\n                    begin\r\n                      for k := 0 to TTMSFNCUtils.GetJSONArraySize(jas) - 1 do\r\n                      begin\r\n                        jos := TTMSFNCUtils.GetJSONArrayItem(jas, k);\r\n\r\n                        step := di.Steps.Add;\r\n                        step.Distance := Round(TTMSFNCUtils.GetJSONDoubleValue(jos, 'distance'));\r\n                        step.Duration := Round(TTMSFNCUtils.GetJSONDoubleValue(jos, 'duration'));\r\n                        step.Instructions := TTMSFNCUtils.GetJSONProp(jos, 'instruction');\r\n\r\n                        jab := TTMSFNCUtils.GetJSONValue(jos, 'way_points') as TJSONArray;\r\n                        if Assigned(jar) then\r\n                        begin\r\n                          startindex := 0;\r\n                          endindex := 0;\r\n                          for m := 0 to TTMSFNCUtils.GetJSONArraySize(jab) - 1 do\r\n                          begin\r\n                            joar := TTMSFNCUtils.GetJSONArrayItem(jab, m);\r\n                            if m = 0 then\r\n                              startindex := Round(TTMSFNCUtils.StrToFloatDot(joar.Value));\r\n                            if m = 1 then\r\n                              endindex := Round(TTMSFNCUtils.StrToFloatDot(joar.Value));\r\n                          end;\r\n                          for m := startindex to endindex do\r\n                          begin\r\n                            it := step.Coordinates.Add;\r\n                            it.Latitude := di.Coordinates[m].Latitude;\r\n                            it.Longitude := di.Coordinates[m].Longitude;\r\n\r\n                            lit := l.Coordinates.Add;\r\n                            lit.Latitude := it.Latitude;\r\n                            lit.Longitude := it.Longitude;\r\n                          end;\r\n                          if step.Coordinates.Count > 0 then\r\n                          begin\r\n                            step.StartLocation.Assign(step.Coordinates[0].Coordinate);\r\n                            step.EndLocation.Assign(step.Coordinates[step.Coordinates.Count - 1].Coordinate);\r\n                          end;\r\n                          lstep := l.Steps.Add;\r\n                          lstep.Assign(step);\r\n                        end;\r\n                      end;\r\n\r\n                      if l.Coordinates.Count > 0 then\r\n                      begin\r\n                        l.StartLocation.Assign(l.Coordinates[0].Coordinate);\r\n                        l.EndLocation.Assign(l.Coordinates[l.Coordinates.Count - 1].Coordinate);\r\n                      end;\r\n\r\n                    end;\r\n                  end;\r\n                end;\r\n              end;\r\n            end;\r\n          finally\r\n            o.Free;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCDirections.GeoApify;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nprocedure RegisterGeoApifyDirectionsService;\r\nprocedure UnRegisterGeoApifyDirectionsService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCDirections,\r\n  WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes, WEBLib.TMSFNCCloudBase\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 26}\r\n  ,JSON\r\n  {$ELSE}\r\n  ,DBXJSON\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  ,fpjson\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web, WEBLIB.JSON\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCDirectionsGeoApifyService = class;\r\n\r\n  TTMSFNCDirectionsGeoApifyDirectionsFactoryService = class(TTMSFNCDirectionsFactoryService, ITMSFNCDirectionsServiceGeoApify);\r\n\r\n  TTMSFNCDirectionsGeoApifyService = class(TTMSFNCDirectionsGeoApifyDirectionsFactoryService)\r\n  protected\r\n    function DoCreateDirections: ITMSFNCCustomDirections; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCDirectionsGeoApifyDirections = class;\r\n\r\n  TTMSFNCDirectionsGeoApifyDirections = class(TTMSFNCCustomDirectionsInterfacedObject, ITMSFNCCustomDirections)\r\n  protected\r\n    FTravelMode: TTMSFNCDirectionsTravelMode;\r\n    function GetIdentifier: string;\r\n    function IsValid: Boolean;\r\n    function GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\n    function GetHost: string;\r\n    function GetPath(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil): string;\r\n    function GetQuery(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAVoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\n    function GetPostData(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAvoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\n    procedure Parse(ARequest: TTMSFNCDirectionsRequest; ARequestResult: string);\r\n    procedure AddHeaders(AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\n    procedure DestroyDirections;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  DirectionsService: ITMSFNCDirectionsServiceGeoApify;\r\n\r\nprocedure RegisterGeoApifyDirectionsService;\r\nbegin\r\n  if not TTMSFNCDirectionsPlatformServices.Current.SupportsPlatformService(ITMSFNCDirectionsServiceGeoApify, IInterface(DirectionsService)) then\r\n  begin\r\n    DirectionsService := TTMSFNCDirectionsGeoApifyService.Create;\r\n    TTMSFNCDirectionsPlatformServices.Current.AddPlatformService(ITMSFNCDirectionsServiceGeoApify, DirectionsService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterGeoApifyDirectionsService;\r\nbegin\r\n  TTMSFNCDirectionsPlatformServices.Current.RemovePlatformService(ITMSFNCDirectionsServiceGeoApify);\r\nend;\r\n\r\n{ TTMSFNCDirectionsGeoApifyService }\r\n\r\nfunction TTMSFNCDirectionsGeoApifyService.DoCreateDirections: ITMSFNCCustomDirections;\r\nbegin\r\n  Result := TTMSFNCDirectionsGeoApifyDirections.Create;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsGeoApifyDirections.AddHeaders(\r\n  AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\nbegin\r\n  AHeaders.Add(TTMSFNCCloudBaseRequestHeader.Create('Content-Type', 'application/json'));\r\n  AHeaders.Add(TTMSFNCCloudBaseRequestHeader.Create('Authorization', DirectionsProperties.GetAPIKey));\r\nend;\r\n\r\nconstructor TTMSFNCDirectionsGeoApifyDirections.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCDirectionsGeoApifyDirections.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsGeoApifyDirections.DestroyDirections;\r\nbegin\r\n  DirectionsService.DestroyDirections(Self);\r\nend;\r\n\r\nfunction TTMSFNCDirectionsGeoApifyDirections.GetHost: string;\r\nbegin\r\n  Result := 'https://api.geoapify.com';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsGeoApifyDirections.GetIdentifier: string;\r\nbegin\r\n  Result := 'GeoApify';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsGeoApifyDirections.GetPath(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil): string;\r\nbegin\r\n  Result := '/v1/routing';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsGeoApifyDirections.GetPostData(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n      ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n      ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n      AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAvoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsGeoApifyDirections.GetQuery(AOrigin, ADestination: string; AOriginLatitude, AOriginLongitude,\r\n  ADestinationLatitude, ADestinationLongitude: Double; AAlternatives: Boolean = False;\r\n  ATravelMode: TTMSFNCDirectionsTravelMode = tmDriving; AWayPointList: TStringList = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil;\r\n  AOptimizeWayPoints: Boolean = False; ALocale: string = ''; AAVoidTolls: Boolean = False;\r\n      AAvoidHighways: Boolean = False): string;\r\nvar\r\n  TravelMode, WayPoints: string;\r\n  I: Integer;\r\nbegin\r\n  case ATravelMode of\r\n    tmDriving: TravelMode := 'drive';\r\n    tmWalking: TravelMode := 'walk';\r\n    tmBicycling: TravelMode := 'bicycle';\r\n    tmPublicTransport: TravelMode := 'transit';\r\n    tmTruck: TravelMode := 'truck';\r\n  end;\r\n\r\n  WayPoints := TTMSFNCUtils.FloatToStrDot(AOriginLatitude) + ',' + TTMSFNCUtils.FloatToStrDot(AOriginLongitude);\r\n  for I := 0 to Length(AWayPoints) - 1 do\r\n  begin\r\n    WayPoints := WayPoints +\r\n      '|' + TTMSFNCUtils.FloatToStrDot(AWayPoints[I].Latitude) + ',' + TTMSFNCUtils.FloatToStrDot(AWayPoints[I].Longitude);\r\n  end;\r\n  WayPoints := WayPoints +\r\n    '|' + TTMSFNCUtils.FloatToStrDot(ADestinationLatitude) + ',' + TTMSFNCUtils.FloatToStrDot(ADestinationLongitude);\r\n\r\n  Result := 'apiKey=' + DirectionsProperties.GetAPIKey +\r\n   '&mode=' + TravelMode +\r\n   '&waypoints=' + WayPoints;\r\n\r\n  if ALocale <> '' then  \r\n     Result := Result + '&lang=' + ALocale;\r\n\r\n  if AAvoidTolls then\r\n    Result := Result + '&avoid=tolls';\r\n\r\n  if AAvoidHighways then\r\n    Result := Result + '&avoid=highways';\r\nend;\r\n\r\nfunction TTMSFNCDirectionsGeoApifyDirections.GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\nbegin\r\n  Result := rmGet;\r\nend;\r\n\r\nfunction TTMSFNCDirectionsGeoApifyDirections.IsValid: Boolean;\r\nbegin\r\n  Result := DirectionsProperties.GetAPIKey <> '';\r\nend;\r\n\r\nprocedure TTMSFNCDirectionsGeoApifyDirections.Parse(ARequest: TTMSFNCDirectionsRequest; ARequestResult: string);\r\nvar\r\n  d: TTMSFNCDirectionsItems;\r\n  di: TTMSFNCDirectionsItem;\r\n  step, lstep: TTMSFNCDirectionsStep;\r\n  l: TTMSFNCDirectionsLeg;\r\n  it, lit: TTMSFNCMapsCoordinateItem;\r\n\r\n  o, jo, jol, jos, joar: TJSONValue;\r\n  jar, jal, jas, jac, jaa: TJSONArray;\r\n  i, j, k, m, startindex, endindex: Integer;\r\n  ob, ol: TJSONObject;\r\nbegin\r\n  if Assigned(DirectionsProperties) then\r\n  begin\r\n    ARequest.TravelMode := FTravelMode;\r\n\r\n    d := ARequest.Items;\r\n    if Assigned(d) then\r\n    begin\r\n      if ARequestResult <> '' then\r\n      begin\r\n        o := TTMSFNCUtils.ParseJSON(ARequestResult);\r\n        if Assigned(o) then\r\n        begin\r\n          try\r\n            ARequest.Status := TTMSFNCUtils.GetJSONProp(o, 'error');\r\n            ARequest.ErrorMessage := TTMSFNCUtils.GetJSONProp(o, 'message');\r\n\r\n            jar := TTMSFNCUtils.GetJSONValue(o, 'features') as TJSONArray;\r\n            if Assigned(jar) then\r\n            begin                                            \r\n              for i := 0 to TTMSFNCUtils.GetJSONArraySize(jar) - 1 do\r\n              begin\r\n                jo := TTMSFNCUtils.GetJSONArrayItem(jar, i);\r\n\r\n                di := d.Add;\r\n                ol := TTMSFNCUtils.GetJSONValue(jo, 'geometry') as TJSONObject;\r\n                if Assigned(ol) then\r\n                begin\r\n                  jac := TTMSFNCUtils.GetJSONValue(ol, 'coordinates') as TJSONArray;                \r\n                  if Assigned(jac) then\r\n                  begin\r\n                    for k := 0 to TTMSFNCUtils.GetJSONArraySize(jac) - 1 do\r\n                    begin\r\n                      l := di.Legs.Add;\r\n                      jaa := TTMSFNCUtils.GetJSONArrayItem(jac, k) as TJSONArray;\r\n                      if Assigned(jaa) then\r\n                      begin\r\n                        for m := 0 to TTMSFNCUtils.GetJSONArraySize(jaa) - 1 do\r\n                        begin\r\n                          jas := TTMSFNCUtils.GetJSONArrayItem(jaa, m) as TJSONArray;\r\n                          if Assigned(jas) then\r\n                          begin\r\n                            it := di.Coordinates.Add;\r\n                            joar := TTMSFNCUtils.GetJSONArrayItem(jas, 0);\r\n                            if joar.Value <> '' then\r\n                              it.Longitude := TTMSFNCUtils.StrToFloatDot(joar.Value);\r\n                            joar := TTMSFNCUtils.GetJSONArrayItem(jas, 1);\r\n                            if joar.Value <> '' then\r\n                              it.Latitude := TTMSFNCUtils.StrToFloatDot(joar.Value);\r\n                            lit := l.Coordinates.Add;\r\n                            lit.Latitude := it.Latitude;\r\n                            lit.Longitude := it.Longitude;\r\n                          end;\r\n                        end;\r\n                      end;\r\n\r\n                      if l.Coordinates.Count > 0 then\r\n                      begin\r\n                        l.StartLocation.Assign(l.Coordinates[0].Coordinate);\r\n                        l.EndLocation.Assign(l.Coordinates[l.Coordinates.Count - 1].Coordinate);\r\n                      end;\r\n                    end;\r\n                  end;                                          \r\n                end;\r\n\r\n                ol := TTMSFNCUtils.GetJSONValue(jo, 'properties') as TJSONObject;\r\n                if Assigned(ol) then\r\n                begin\r\n                  di.Distance := TTMSFNCUtils.GetJSONDoubleValue(ol, 'distance');\r\n                  di.Duration := Round(TTMSFNCUtils.GetJSONDoubleValue(ol, 'time'));\r\n\r\n                  jal := TTMSFNCUtils.GetJSONValue(ol, 'legs') as TJSONArray;\r\n                  if Assigned(jal) then\r\n                  begin\r\n                    for j := 0 to TTMSFNCUtils.GetJSONArraySize(jal) - 1 do\r\n                    begin\r\n                      jol := TTMSFNCUtils.GetJSONArrayItem(jal, j);\r\n\r\n                      l := di.legs[j];\r\n                      l.Distance := Round(TTMSFNCUtils.GetJSONDoubleValue(jol, 'distance'));\r\n                      l.Duration := Round(TTMSFNCUtils.GetJSONDoubleValue(jol, 'time'));\r\n\r\n                      jas := TTMSFNCUtils.GetJSONValue(jol, 'steps') as TJSONArray;\r\n                      if Assigned(jas) then\r\n                      begin\r\n                        for k := 0 to TTMSFNCUtils.GetJSONArraySize(jas) - 1 do\r\n                        begin\r\n                          jos := TTMSFNCUtils.GetJSONArrayItem(jas, k);\r\n\r\n                          step := di.Steps.Add;\r\n                          step.Distance := Round(TTMSFNCUtils.GetJSONDoubleValue(jos, 'distance'));\r\n                          step.Duration := Round(TTMSFNCUtils.GetJSONDoubleValue(jos, 'time'));\r\n                          ob := TTMSFNCUtils.GetJSONValue(jos, 'instruction') as TJSONObject;                        \r\n                          if Assigned(ob) then\r\n                          begin\r\n                            step.Instructions := TTMSFNCUtils.GetJSONProp(ob, 'text');\r\n                          end;\r\n\r\n                          startindex := TTMSFNCUtils.GetJSONIntegerValue(jos, 'from_index');\r\n                          endindex := TTMSFNCUtils.GetJSONIntegerValue(jos, 'to_index');\r\n                          for m := startindex to endindex do\r\n                          begin\r\n                            it := step.Coordinates.Add;\r\n                            it.Latitude := l.Coordinates[m].Latitude;\r\n                            it.Longitude := l.Coordinates[m].Longitude;\r\n                          end;\r\n                          if step.Coordinates.Count > 0 then\r\n                          begin\r\n                            step.StartLocation.Assign(step.Coordinates[0].Coordinate);\r\n                            step.EndLocation.Assign(step.Coordinates[step.Coordinates.Count - 1].Coordinate);\r\n                          end;\r\n\r\n                          lstep := l.Steps.Add;\r\n                          lstep.Assign(step);\r\n                        end;\r\n                      end;\r\n                    end;\r\n                  end;\r\n                end;\r\n              end;\r\n            end;\r\n          finally\r\n            o.Free;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2021                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCLocation.IPStack;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nprocedure RegisterIPStackLocationService;\r\nprocedure UnRegisterIPStackLocationService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCLocation,\r\n  WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes, WEBLib.TMSFNCCloudBase\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 26}\r\n  ,JSON\r\n  {$ELSE}\r\n  ,DBXJSON\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  ,fpjson\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web, WEBLIB.JSON\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCLocationIPStackService = class;\r\n\r\n  TTMSFNCLocationIPStackLocationFactoryService = class(TTMSFNCLocationFactoryService, ITMSFNCLocationServiceIPStack);\r\n\r\n  TTMSFNCLocationIPStackService = class(TTMSFNCLocationIPStackLocationFactoryService)\r\n  protected\r\n    function DoCreateLocation: ITMSFNCCustomLocation; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCLocationIPStackLocation = class;\r\n\r\n  TTMSFNCLocationIPStackLocation = class(TTMSFNCCustomLocationInterfacedObject, ITMSFNCCustomLocation)\r\n  protected\r\n    function GetIdentifier: string;\r\n    function IsValid: Boolean;\r\n    function GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\n    function GetHost: string;\r\n    function GetPath: string;\r\n    function GetQuery: string; overload;\r\n    function GetPostData: string;\r\n    procedure Parse(ARequest: TTMSFNCLocationRequest; ARequestResult: string);\r\n    procedure AddHeaders(AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\n    procedure DestroyLocation;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  LocationService: ITMSFNCLocationServiceIPStack;\r\n\r\nprocedure RegisterIPStackLocationService;\r\nbegin\r\n  if not TTMSFNCLocationPlatformServices.Current.SupportsPlatformService(ITMSFNCLocationServiceIPStack, IInterface(LocationService)) then\r\n  begin\r\n    LocationService := TTMSFNCLocationIPStackService.Create;\r\n    TTMSFNCLocationPlatformServices.Current.AddPlatformService(ITMSFNCLocationServiceIPStack, LocationService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterIPStackLocationService;\r\nbegin\r\n  TTMSFNCLocationPlatformServices.Current.RemovePlatformService(ITMSFNCLocationServiceIPStack);\r\nend;\r\n\r\n{ TTMSFNCLocationIPStackService }\r\n\r\nfunction TTMSFNCLocationIPStackService.DoCreateLocation: ITMSFNCCustomLocation;\r\nbegin\r\n  Result := TTMSFNCLocationIPStackLocation.Create;\r\nend;\r\n\r\nprocedure TTMSFNCLocationIPStackLocation.AddHeaders(\r\n  AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\nbegin\r\n\r\nend;\r\n\r\nconstructor TTMSFNCLocationIPStackLocation.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCLocationIPStackLocation.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCLocationIPStackLocation.DestroyLocation;\r\nbegin\r\n  LocationService.DestroyLocation(Self);\r\nend;\r\n\r\nfunction TTMSFNCLocationIPStackLocation.GetHost: string;\r\nbegin\r\n  Result := 'https://api.ipstack.com';\r\nend;\r\n\r\nfunction TTMSFNCLocationIPStackLocation.GetIdentifier: string;\r\nbegin\r\n  Result := 'IPStack';\r\nend;\r\n\r\nfunction TTMSFNCLocationIPStackLocation.GetPath: string;\r\nbegin\r\n  Result := '/check';\r\nend;\r\n\r\nfunction TTMSFNCLocationIPStackLocation.GetPostData: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCLocationIPStackLocation.GetQuery: string;\r\nbegin\r\n  Result := 'access_key=' + LocationProperties.GetAPIKey;\r\nend;\r\n\r\nfunction TTMSFNCLocationIPStackLocation.GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\nbegin\r\n  Result := rmGet;\r\nend;\r\n\r\nfunction TTMSFNCLocationIPStackLocation.IsValid: Boolean;\r\nbegin\r\n  Result := LocationProperties.GetAPIKey <> '';\r\nend;\r\n\r\nprocedure TTMSFNCLocationIPStackLocation.Parse(ARequest: TTMSFNCLocationRequest; ARequestResult: string);\r\nvar\r\n  o: TJSONValue;\r\nbegin\r\n  if Assigned(LocationProperties) then\r\n  begin\r\n    if Assigned(ARequest) then\r\n    begin\r\n      if ARequestResult <> '' then\r\n      begin\r\n        o := TTMSFNCUtils.ParseJSON(ARequestResult);\r\n        if Assigned(o) then\r\n        begin\r\n          try\r\n             ARequest.Coordinate.Latitude := TTMSFNCUtils.GetJSONDoubleValue(o, 'latitude');\r\n             ARequest.Coordinate.Longitude := TTMSFNCUtils.GetJSONDoubleValue(o, 'longitude');\r\n             ARequest.IP := TTMSFNCUtils.GetJSONProp(o, 'ip');\r\n             ARequest.IPType := TTMSFNCUtils.GetJSONProp(o, 'type');\r\n             ARequest.Continent := TTMSFNCUtils.GetJSONProp(o, 'continent_name');\r\n             ARequest.ContinentCode := TTMSFNCUtils.GetJSONProp(o, 'continent_code');\r\n             ARequest.Country := TTMSFNCUtils.GetJSONProp(o, 'country_name');\r\n             ARequest.CountryCode := TTMSFNCUtils.GetJSONProp(o, 'country_code');\r\n             ARequest.Region := TTMSFNCUtils.GetJSONProp(o, 'region_name');\r\n             ARequest.RegionCode := TTMSFNCUtils.GetJSONProp(o, 'region_code');\r\n             ARequest.City := TTMSFNCUtils.GetJSONProp(o, 'city');\r\n             ARequest.PostalCode := TTMSFNCUtils.GetJSONProp(o, 'zip');\r\n          finally\r\n            o.Free;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020                                      }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCLocation.Google;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nprocedure RegisterGoogleLocationService;\r\nprocedure UnRegisterGoogleLocationService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCLocation,\r\n  WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes, WEBLib.TMSFNCCloudBase\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 26}\r\n  ,JSON\r\n  {$ELSE}\r\n  ,DBXJSON\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  ,fpjson\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web, WEBLIB.JSON\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCLocationGoogleService = class;\r\n\r\n  TTMSFNCLocationGoogleLocationFactoryService = class(TTMSFNCLocationFactoryService, ITMSFNCLocationServiceGoogle);\r\n\r\n  TTMSFNCLocationGoogleService = class(TTMSFNCLocationGoogleLocationFactoryService)\r\n  protected\r\n    function DoCreateLocation: ITMSFNCCustomLocation; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCLocationGoogleLocation = class;\r\n\r\n  TTMSFNCLocationGoogleLocation = class(TTMSFNCCustomLocationInterfacedObject, ITMSFNCCustomLocation)\r\n  protected\r\n    function GetIdentifier: string;\r\n    function IsValid: Boolean;\r\n    function GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\n    function GetHost: string;\r\n    function GetPath: string;\r\n    function GetQuery: string; overload;\r\n    function GetPostData: string;\r\n    procedure Parse(ARequest: TTMSFNCLocationRequest; ARequestResult: string);\r\n    procedure AddHeaders(AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\n    procedure DestroyLocation;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  LocationService: ITMSFNCLocationServiceGoogle;\r\n\r\nprocedure RegisterGoogleLocationService;\r\nbegin\r\n  if not TTMSFNCLocationPlatformServices.Current.SupportsPlatformService(ITMSFNCLocationServiceGoogle, IInterface(LocationService)) then\r\n  begin\r\n    LocationService := TTMSFNCLocationGoogleService.Create;\r\n    TTMSFNCLocationPlatformServices.Current.AddPlatformService(ITMSFNCLocationServiceGoogle, LocationService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterGoogleLocationService;\r\nbegin\r\n  TTMSFNCLocationPlatformServices.Current.RemovePlatformService(ITMSFNCLocationServiceGoogle);\r\nend;\r\n\r\n{ TTMSFNCLocationGoogleService }\r\n\r\nfunction TTMSFNCLocationGoogleService.DoCreateLocation: ITMSFNCCustomLocation;\r\nbegin\r\n  Result := TTMSFNCLocationGoogleLocation.Create;\r\nend;\r\n\r\nprocedure TTMSFNCLocationGoogleLocation.AddHeaders(\r\n  AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\nbegin\r\n\r\nend;\r\n\r\nconstructor TTMSFNCLocationGoogleLocation.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCLocationGoogleLocation.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCLocationGoogleLocation.DestroyLocation;\r\nbegin\r\n  LocationService.DestroyLocation(Self);\r\nend;\r\n\r\nfunction TTMSFNCLocationGoogleLocation.GetHost: string;\r\nbegin\r\n  Result := 'https://www.googleapis.com';\r\nend;\r\n\r\nfunction TTMSFNCLocationGoogleLocation.GetIdentifier: string;\r\nbegin\r\n  Result := 'Google';\r\nend;\r\n\r\nfunction TTMSFNCLocationGoogleLocation.GetPath: string;\r\nbegin\r\n  Result := '/geolocation/v1/geolocate';\r\nend;\r\n\r\nfunction TTMSFNCLocationGoogleLocation.GetPostData: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCLocationGoogleLocation.GetQuery: string;\r\nbegin\r\n  Result := 'key=' + LocationProperties.GetAPIKey;\r\nend;\r\n\r\nfunction TTMSFNCLocationGoogleLocation.GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\nbegin\r\n  Result := rmPost;\r\nend;\r\n\r\nfunction TTMSFNCLocationGoogleLocation.IsValid: Boolean;\r\nbegin\r\n  Result := LocationProperties.GetAPIKey <> '';\r\nend;\r\n\r\nprocedure TTMSFNCLocationGoogleLocation.Parse(ARequest: TTMSFNCLocationRequest; ARequestResult: string);\r\nvar\r\n  o: TJSONValue;\r\n  b: TJSONObject;\r\nbegin\r\n  if Assigned(LocationProperties) then\r\n  begin\r\n    if Assigned(ARequest) then\r\n    begin\r\n      if ARequestResult <> '' then\r\n      begin\r\n        o := TTMSFNCUtils.ParseJSON(ARequestResult);\r\n        if Assigned(o) then\r\n        begin\r\n          try\r\n            b := TTMSFNCUtils.GetJSONValue(o, 'location') as TJSONObject;\r\n            if Assigned(b) then\r\n            begin\r\n              ARequest.Coordinate.Latitude := TTMSFNCUtils.GetJSONDoubleValue(b, 'lat');\r\n              ARequest.Coordinate.Longitude := TTMSFNCUtils.GetJSONDoubleValue(b, 'lng');\r\n            end;\r\n          finally\r\n            o.Free;\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2021                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCLocation;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\n{$IFNDEF LCLLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 23}\r\n{$DEFINE UNREGISTER}\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE UNREGISTER}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, Types, WEBLib.Forms\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,web, Contnrs\r\n  {$ENDIF}\r\n  {$IFDEF CMNLIB}\r\n  {$ENDIF}\r\n  ,WEBLib.TMSFNCTypes\r\n  ,WEBLib.TMSFNCMapsCommonTypes\r\n  ,WEBLib.TMSFNCCloudBase;\r\n\r\nconst\r\n  TTMSFNCLocationDocURL = TTMSFNCBaseDocURL + 'tmsfncmaps/components/ttmsfncmaps/#ttmsfnclocation';\r\n  TTMSFNCLocationTipsURL = 'https://www.tmssoftware.com/site/tmsfncmaps.asp?s=faq';\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 0; // Minor version nr.\r\n  REL_VER = 2; // Release nr.\r\n  BLD_VER = 0; // Build nr.\r\n\r\n  //v1.0.0.0: First release\r\n  //v1.0.1.0: Connection property added (IPStack only)\r\n  //v1.0.2.0: RegionCode property added (IPStack only)\r\n\r\ntype\r\n  TTMSFNCCustomLocation = class;\r\n  TTMSFNCLocationRequests = class;\r\n  TTMSFNCLocationRequest = class;\r\n\r\n  ITMSFNCCustomLocationProperties = interface(IInterface)\r\n    ['{360FCEAE-9777-47FB-ACCC-4DFCAC859E8C}']\r\n    function GetAPIKey: string;\r\n  end;\r\n\r\n  ITMSFNCCustomLocationInstance = interface(IInterface)\r\n    ['{2E68C9D2-AAE4-4D00-B243-BA7EC6BF1946}']\r\n    procedure SetLocationProperties(const Value: ITMSFNCCustomLocationProperties);\r\n  end;\r\n\r\n  ITMSFNCCustomLocation = interface(IInterface)\r\n  ['{AC454083-A583-4826-B598-DF46154FD159}']\r\n    function GetIdentifier: string;\r\n    function GetRequestMethod: TTMSFNCCloudBaseRequestMethod;\r\n    function GetHost: string;\r\n    function GetPath: string;\r\n    function GetQuery: string;\r\n    function GetPostData: string;\r\n    procedure AddHeaders(AHeaders: TTMSFNCCloudBaseRequestHeaders);\r\n    procedure Parse(ARequest: TTMSFNCLocationRequest; ARequestResult: string);\r\n    function IsValid: Boolean;\r\n    procedure DestroyLocation;\r\n  end;\r\n\r\n  ITMSFNCLocationService = interface(IInterface)\r\n  ['{E18B6ADA-BA25-4D32-8427-9BA47CDE3B86}']\r\n    function CreateLocation: ITMSFNCCustomLocation;\r\n    procedure DestroyLocation(ALocation: ITMSFNCCustomLocation);\r\n  end;\r\n\r\n  ITMSFNCLocationServiceIPStack = interface(ITMSFNCLocationService)\r\n  ['{212D0845-716A-4E06-A5EE-3DB50B1B639F}']\r\n  end;\r\n\r\n  ITMSFNCLocationServiceGoogle = interface(ITMSFNCLocationService)\r\n  ['{79722F6E-7BE2-451F-9D22-8F3C3CB5F118}']\r\n  end;\r\n\r\n  TTMSFNCLocationService = (lsGoogle, lsIPStack);\r\n  TTMSFNCLocationConnection = (lcHTTP, lcHTTPS);\r\n\r\n\r\n  TTMSFNCLocationRequest = class(TCollectionItem)\r\n  private\r\n    FID: string;\r\n    FOwner: TTMSFNCCustomLocation;\r\n    FDataBoolean: Boolean;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FDataPointer: Pointer;\r\n    FCoordinate: TTMSFNCMapsCoordinate;\r\n    FPostalCode: string;\r\n    FCountry: string;\r\n    FCountryCode: string;\r\n    FRegion: string;\r\n    FCity: string;\r\n    FIP: string;\r\n    FIPType: string;\r\n    FContinentCode: string;\r\n    FContinent: string;\r\n    FRegionCode: string;\r\n    procedure SetCoordinate(const Value: TTMSFNCMapsCoordinate);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n  published\r\n    property ID: string read FID;\r\n    property Coordinate: TTMSFNCMapsCoordinate read FCoordinate write SetCoordinate;\r\n    property City: string read FCity write FCity;\r\n    property Country: string read FCountry write FCountry;\r\n    property CountryCode: string read FCountryCode write FCountryCode;\r\n    property Continent: string read FContinent write FContinent;\r\n    property ContinentCode: string read FContinentCode write FContinentCode;\r\n    property Region: string read FRegion write FRegion;\r\n    property RegionCode: string read FRegionCode write FRegionCode;\r\n    property PostalCode: string read FPostalCode write FPostalCode;\r\n    property IP: string read FIP write FIP;\r\n    property IPType: string read FIPType write FIPType;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCLocationRequests = class(TTMSFNCOwnedCollection)\r\n  {$ELSE}\r\n  TTMSFNCLocationRequests = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCLocationRequest>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TTMSFNCCustomLocation;\r\n    function GetItem(Index: Integer): TTMSFNCLocationRequest;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCLocationRequest);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; virtual;\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCCustomLocation); virtual;\r\n    property Items[Index: Integer]: TTMSFNCLocationRequest read GetItem write SetItem; default;\r\n    function Add: TTMSFNCLocationRequest;\r\n    function Insert(Index: Integer): TTMSFNCLocationRequest;\r\n  end;\r\n\r\n  { TTMSFNCCustomLocation }\r\n\r\n  TTMSFNCLocationGetLocationCallBack = {$IFNDEF LCLLIB}reference to {$ENDIF}procedure(const ARequest: TTMSFNCLocationRequest; const ARequestResult: TTMSFNCCloudBaseRequestResult){$IFDEF LCLLIB} of object{$ENDIF};\r\n  TTMSFNCLocationGetLocationEvent = procedure(Sender: TObject; const ARequest: TTMSFNCLocationRequest; const ARequestResult: TTMSFNCCloudBaseRequestResult) of object;\r\n\r\n  TTMSFNCLocationGetLocationResultCallBack = {$IFNDEF LCLLIB}reference to {$ENDIF}procedure(const AResult: TTMSFNCLocationRequest){$IFDEF LCLLIB} of object{$ENDIF};\r\n  TTMSFNCLocationGetLocationResultEvent = procedure(Sender: TObject; const AResult: TTMSFNCLocationRequest) of object;\r\n\r\n  TTMSFNCLocationCallBackWrapper = class\r\n  private\r\n    FCallback: TTMSFNCLocationGetLocationCallBack;\r\n  public\r\n    constructor Create(ACallback: TTMSFNCLocationGetLocationCallBack);\r\n  end;\r\n\r\n  TTMSFNCLocationResultCallBackWrapper = class\r\n  private\r\n    FCallback: TTMSFNCLocationGetLocationResultCallBack;\r\n  public\r\n    constructor Create(ACallback: TTMSFNCLocationGetLocationResultCallBack);\r\n  end;\r\n\r\n  TTMSFNCCustomLocation = class(TTMSFNCCloudBase, ITMSFNCCustomLocationProperties)\r\n  private\r\n    FLocation: ITMSFNCCustomLocation;\r\n    FLocationInstance: ITMSFNCCustomLocationInstance;\r\n    FLocationProperties: ITMSFNCCustomLocationProperties;\r\n    FService: TTMSFNCLocationService;\r\n    FAPIKey: string;\r\n    FLocationRequests: TTMSFNCLocationRequests;\r\n    FOnGetLocation: TTMSFNCLocationGetLocationEvent;\r\n    FOnGetLocationInternal: TTMSFNCLocationGetLocationEvent;\r\n    FConnection: TTMSFNCLocationConnection;\r\n    FOnGetLocationResultInternal: TTMSFNCLocationGetLocationResultEvent;\r\n    FOnGetLocationResult: TTMSFNCLocationGetLocationResultEvent;\r\n    procedure SetService(const Value: TTMSFNCLocationService);\r\n    procedure SetAPIKey(const Value: string);\r\n    procedure SetLocationRequests(const Value: TTMSFNCLocationRequests);\r\n    procedure SetConnection(const Value: TTMSFNCLocationConnection);\r\n  protected\r\n    procedure InternalGetLocation(ACallback: TTMSFNCLocationGetLocationCallBack = nil; ACallback2: TTMSFNCLocationGetLocationResultCallBack = nil; AID: string = ''); overload; virtual;\r\n    procedure DoRequestGetLocation(const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\n    procedure DoGetLocation(const ARequest: TTMSFNCLocationRequest; const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\n    property OnGetLocation: TTMSFNCLocationGetLocationEvent read FOnGetLocation write FOnGetLocation;\r\n    property OnGetLocationInternal: TTMSFNCLocationGetLocationEvent read FOnGetLocationInternal write FOnGetLocationInternal;\r\n    property OnGetLocationResult: TTMSFNCLocationGetLocationResultEvent read FOnGetLocationResult write FOnGetLocationResult;\r\n    property OnGetLocationResultInternal: TTMSFNCLocationGetLocationResultEvent read FOnGetLocationResultInternal write FOnGetLocationResultInternal;\r\n\r\n    procedure InitializeLocation; virtual;\r\n    function GetInstance: NativeUInt; override;\r\n    function GetLocationRequests: TTMSFNCLocationRequests;\r\n    function LocationReady: Boolean;\r\n    function GetAPIKey: string;\r\n    function GetVersionNr: Integer;\r\n    function GetDocURL: string; override;\r\n    function GetTipsURL: string; override;\r\n    function Location: ITMSFNCCustomLocation;\r\n    function GetVersion: string; override;\r\n    property Service: TTMSFNCLocationService read FService write SetService default lsGoogle;\r\n    property APIKey: string read FAPIKey write SetAPIKey;\r\n    property LocationRequests: TTMSFNCLocationRequests read FLocationRequests write SetLocationRequests;\r\n\r\n    property LocationInstance: ITMSFNCCustomLocation read FLocation;\r\n    property LocationProperties: ITMSFNCCustomLocationProperties read FLocationProperties;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure GetLocation(ACallback: TTMSFNCLocationGetLocationCallBack = nil; AID: string = ''); overload; virtual;\r\n    procedure GetLocationResult(ACallback: TTMSFNCLocationGetLocationResultCallBack = nil; AID: string = ''); overload; virtual;\r\n  published\r\n    property Connection: TTMSFNCLocationConnection read FConnection write SetConnection;\r\n  end;\r\n\r\n  TTMSFNCCustomLocationInterfacedObject = class(TInterfacedObject, ITMSFNCCustomLocationInstance)\r\n  private\r\n    FLocationProperties: ITMSFNCCustomLocationProperties;\r\n    function GetLocationProperties: ITMSFNCCustomLocationProperties;\r\n  protected\r\n    procedure SetLocationProperties(const Value: ITMSFNCCustomLocationProperties);\r\n  public\r\n    property LocationProperties: ITMSFNCCustomLocationProperties read GetLocationProperties;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCLocationList = class(TList)\r\n  private\r\n    function GetItem(Index: Integer): ITMSFNCCustomLocation;\r\n    procedure SetItem(Index: Integer; const Value: ITMSFNCCustomLocation);\r\n  public\r\n    property Items[Index: Integer]: ITMSFNCCustomLocation read GetItem write SetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCLocationList = class(TList<ITMSFNCCustomLocation>);\r\n  {$ENDIF}\r\n\r\n  TTMSFNCLocationFactoryService = class(TInterfacedObject, ITMSFNCLocationService)\r\n  private\r\n    FLocation: TTMSFNCLocationList;\r\n  protected\r\n    function DoCreateLocation: ITMSFNCCustomLocation; virtual; abstract;\r\n    function CreateLocation: ITMSFNCCustomLocation;\r\n    procedure DestroyLocation(ALocation: ITMSFNCCustomLocation);\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  TTMSFNCLocation = class(TTMSFNCCustomLocation)\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n  public\r\n    property LocationInstance;\r\n    property LocationProperties;\r\n  published\r\n    property OnGetLocation;\r\n    property OnGetLocationResult;\r\n    property APIKey;\r\n    property LocationRequests;\r\n    property Service;\r\n    property Version;\r\n  end;\r\n\r\n  TTMSFNCLocationPlatformServicesService = class\r\n  private\r\n    FInterface: IInterface;\r\n    FGUID: string;\r\n  public\r\n    constructor Create(AGUID: string; AInterface: IInterface);\r\n    property GUID: string read FGUID;\r\n    property &Interface: IInterface read FInterface;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCLocationPlatformServicesList = class(TObjectList)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCLocationPlatformServicesService;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCLocationPlatformServicesService);\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCLocationPlatformServicesService read GetItem write SetItem; default;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCLocationPlatformServicesList = class(TObjectList<TTMSFNCLocationPlatformServicesService>)\r\n  {$ENDIF}\r\n  private\r\n    function GetValue(AGUID: string): IInterface;\r\n  public\r\n    function ContainsKey(AGUID: string): Boolean;\r\n    procedure RemoveByGUID(AGUID: string);\r\n    property Interfaces[AGUID: string]: IInterface read GetValue;\r\n  end;\r\n\r\n  TTMSFNCLocationPlatformServices = class\r\n  private\r\n    FServicesList: TTMSFNCLocationPlatformServicesList;\r\n    class var FCurrent: TTMSFNCLocationPlatformServices;\r\n    class var FCurrentReleased: Boolean;\r\n{$IFNDEF AUTOREFCOUNT}\r\n    class procedure ReleaseCurrent;\r\n{$ENDIF}\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n    procedure AddPlatformService(const AServiceGUID: TGUID; const AService: IInterface);\r\n    procedure RemovePlatformService(const AServiceGUID: TGUID);\r\n    function GetPlatformService(const AServiceGUID: TGUID): IInterface;\r\n    function SupportsPlatformService(const AServiceGUID: TGUID): Boolean; overload;\r\n    function SupportsPlatformService(const AServiceGUID: TGUID; var AService: IInterface): Boolean; overload;\r\n    class function Current: TTMSFNCLocationPlatformServices;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  {$IFDEF MSWINDOWS}\r\n  Windows, Registry,\r\n  {$ENDIF}\r\n  {%H-}Math,\r\n  WEBLib.TMSFNCUtils,\r\n  WEBLib.TMSFNCLocation.IPStack,\r\n  WEBLib.TMSFNCLocation.Google,\r\n  SysUtils\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Types\r\n  {$ENDIF}\r\n  ;\r\n\r\n{ TTMSFNCCustomLocation }\r\n\r\nfunction TTMSFNCCustomLocation.GetAPIKey: string;\r\nbegin\r\n  Result := APIKey;\r\nend;\r\n\r\nfunction TTMSFNCCustomLocation.GetDocURL: string;\r\nbegin\r\n  Result := TTMSFNCLocationDocURL;\r\nend;\r\n\r\nfunction TTMSFNCCustomLocation.GetInstance: NativeUInt;\r\nbegin\r\n  Result := HInstance;\r\nend;\r\n\r\nfunction TTMSFNCCustomLocation.GetVersion: string;\r\nvar\r\n  vn: Integer;\r\nbegin\r\n  vn := GetVersionNr;\r\n  Result := IntToStr(Hi(Hiword(vn)))+'.'+IntToStr(Lo(Hiword(vn)))+'.'+IntToStr(Hi(Loword(vn)))+'.'+IntToStr(Lo(Loword(vn)));\r\nend;\r\n\r\nfunction TTMSFNCCustomLocation.GetVersionNr: Integer;\r\nbegin\r\n  Result := MakeLong(MakeWord(BLD_VER,REL_VER),MakeWord(MIN_VER,MAJ_VER));\r\nend;\r\n\r\nprocedure TTMSFNCCustomLocation.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if (Source is TTMSFNCCustomLocation) then\r\n  begin\r\n    FService := (Source as TTMSFNCCustomLocation).Service;\r\n    FAPIKey := (Source as TTMSFNCCustomLocation).APIKey;\r\n    FLocationRequests.Assign((Source as TTMSFNCCustomLocation).LocationRequests);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomLocation.GetLocationResult(\r\n  ACallback: TTMSFNCLocationGetLocationResultCallBack; AID: string);\r\nbegin\r\n  InternalGetLocation(nil, ACallback, AID);\r\nend;\r\n\r\nfunction TTMSFNCCustomLocation.GetLocationRequests: TTMSFNCLocationRequests;\r\nbegin\r\n  Result := LocationRequests;\r\nend;\r\n\r\nfunction TTMSFNCCustomLocation.GetTipsURL: string;\r\nbegin\r\n  Result := TTMSFNCLocationTipsURL;\r\nend;\r\n\r\nprocedure TTMSFNCCustomLocation.GetLocation(ACallback: TTMSFNCLocationGetLocationCallBack = nil; AID: string = '');\r\nbegin\r\n  InternalGetLocation(ACallback, nil, AID);\r\nend;\r\n\r\nprocedure TTMSFNCCustomLocation.InternalGetLocation(ACallback: TTMSFNCLocationGetLocationCallBack = nil; ACallback2: TTMSFNCLocationGetLocationResultCallBack = nil; AID: string = '');\r\nbegin\r\n  if not LocationReady then\r\n  begin\r\n    raise Exception.Create('Please set API key!');\r\n    Exit;\r\n  end;\r\n\r\n  Request.Clear;\r\n  Request.ClearHeaders;\r\n  FLocation.AddHeaders(Request.Headers);\r\n  Request.Name := 'GET LOCATION';\r\n  Request.DataString := AID;\r\n\r\n  if Assigned(ACallback) then\r\n    Request.DataObject := TTMSFNCLocationCallBackWrapper.Create(ACallback)\r\n  else if Assigned(ACallback2) then\r\n    Request.DataObject := TTMSFNCLocationResultCallBackWrapper.Create(ACallback2);\r\n\r\n  Request.Method := FLocation.GetRequestMethod;\r\n  Request.Host := FLocation.GetHost;\r\n\r\n  if (Service = lsIPStack) and (Connection = lcHTTP) then\r\n    Request.Host := StringReplace(Request.Host, 'https://', 'http://', [rfIgnoreCase]);\r\n\r\n  Request.Path := FLocation.GetPath;\r\n  Request.Query := FLocation.GetQuery;\r\n  Request.PostData := FLocation.GetPostData;\r\n  ExecuteRequest({$IFDEF LCLWEBLIB}@{$ENDIF}DoRequestGetLocation);\r\nend;\r\n\r\nconstructor TTMSFNCCustomLocation.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  Supports(Self, ITMSFNCCustomLocationProperties, FLocationProperties);\r\n  FLocationRequests := TTMSFNCLocationRequests.Create(Self);\r\n  InitializeLocation;\r\nend;\r\n\r\nprocedure TTMSFNCCustomLocation.InitializeLocation;\r\nvar\r\n  LocationServiceGoogleLocation: ITMSFNCLocationServiceGoogle;\r\n  LocationServiceIPStackLocation: ITMSFNCLocationServiceIPStack;\r\nbegin\r\n  if IsDestroying then\r\n    Exit;\r\n\r\n  if Assigned(FLocation) then\r\n    FLocation.DestroyLocation;\r\n\r\n  FLocation := nil;\r\n  FLocationInstance := nil;\r\n\r\n  case Service of\r\n    lsGoogle:\r\n    begin\r\n      if TTMSFNCLocationPlatformServices.Current.SupportsPlatformService(ITMSFNCLocationServiceGoogle, IInterface(LocationServiceGoogleLocation)) then\r\n        FLocation := LocationServiceGoogleLocation.CreateLocation;\r\n    end;\r\n    lsIPStack:\r\n    begin\r\n      if TTMSFNCLocationPlatformServices.Current.SupportsPlatformService(ITMSFNCLocationServiceIPStack, IInterface(LocationServiceIPStackLocation)) then\r\n        FLocation := LocationServiceIPStackLocation.CreateLocation;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(FLocation) and Supports(FLocation, ITMSFNCCustomLocationInstance, FLocationInstance) then\r\n    FLocationInstance.SetLocationProperties(FLocationProperties);\r\nend;\r\n\r\nfunction TTMSFNCCustomLocation.LocationReady: Boolean;\r\nbegin\r\n  Result := Assigned(FLocation) and Assigned(FLocationInstance) and Assigned(FLocationProperties) and FLocation.IsValid;\r\nend;\r\n\r\nprocedure TTMSFNCCustomLocation.DoGetLocation(const ARequest: TTMSFNCLocationRequest;\r\n  const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\nbegin\r\n  if Assigned(OnGetLocationInternal) then\r\n    OnGetLocationInternal(Self, ARequest, ARequestResult);\r\n  if Assigned(OnGetLocation) then\r\n    OnGetLocation(Self, ARequest, ARequestResult);\r\n\r\n  if Assigned(OnGetLocationResultInternal) then\r\n    OnGetLocationResultInternal(Self, ARequest);\r\n  if Assigned(OnGetLocationResult) then\r\n    OnGetLocationResult(Self, ARequest);\r\nend;\r\n\r\nprocedure TTMSFNCCustomLocation.DoRequestGetLocation(\r\n  const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\nvar\r\n  req: TTMSFNCLocationRequest;\r\n  obj: TTMSFNCLocationCallBackWrapper;\r\n  obj2: TTMSFNCLocationResultCallBackWrapper;\r\nbegin\r\n  if not LocationReady then\r\n    Exit;\r\n\r\n  if ARequestResult.Success then\r\n  begin\r\n    req := LocationRequests.Add;\r\n    req.FID := ARequestResult.DataString;\r\n    FLocation.Parse(req, ARequestResult.ResultString);\r\n    DoGetLocation(req, ARequestResult);\r\n    if Assigned(ARequestResult.DataObject) then\r\n    begin\r\n      if ARequestResult.DataObject is TTMSFNCLocationCallBackWrapper then\r\n      begin\r\n        obj := TTMSFNCLocationCallBackWrapper(ARequestResult.DataObject);\r\n        obj.FCallback(req, ARequestResult);\r\n        obj.Free;\r\n      end\r\n      else if ARequestResult.DataObject is TTMSFNCLocationResultCallBackWrapper then\r\n      begin\r\n        obj2 := TTMSFNCLocationResultCallBackWrapper(ARequestResult.DataObject);\r\n        obj2.FCallback(req);\r\n        obj2.Free;\r\n      end\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomLocation.Location: ITMSFNCCustomLocation;\r\nbegin\r\n  Result := FLocation;\r\nend;\r\n\r\nprocedure TTMSFNCCustomLocation.SetAPIKey(const Value: string);\r\nbegin\r\n  if FAPIKey <> Value then\r\n    FAPIKey := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomLocation.SetConnection(\r\n  const Value: TTMSFNCLocationConnection);\r\nbegin\r\n  FConnection := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomLocation.SetService(const Value: TTMSFNCLocationService);\r\nbegin\r\n  if FService <> Value then\r\n  begin\r\n    FService := Value;\r\n    InitializeLocation;\r\n  end;\r\nend;\r\n\r\ndestructor TTMSFNCCustomLocation.Destroy;\r\nbegin\r\n  FLocationRequests.Free;\r\n\r\n  if Assigned(FLocation) then\r\n    FLocation.DestroyLocation;\r\n\r\n  FLocation := nil;\r\n  FLocationInstance := nil;\r\n  FLocationProperties := nil;\r\n  FConnection := lcHTTP;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomLocation.SetLocationRequests(const Value: TTMSFNCLocationRequests);\r\nbegin\r\n  FLocationRequests.Assign(Value);\r\nend;\r\n\r\n{ TTMSFNCLocationFactoryService }\r\n\r\nconstructor TTMSFNCLocationFactoryService.Create;\r\nbegin\r\n  inherited Create;\r\n  FLocation := TTMSFNCLocationList.Create;\r\nend;\r\n\r\nfunction TTMSFNCLocationFactoryService.CreateLocation: ITMSFNCCustomLocation;\r\nbegin\r\n  Result := DoCreateLocation;\r\n  FLocation.Add(Result);\r\nend;\r\n\r\ndestructor TTMSFNCLocationFactoryService.Destroy;\r\nbegin\r\n  FreeAndNil(FLocation);\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TTMSFNCLocationFactoryService.DestroyLocation(ALocation: ITMSFNCCustomLocation);\r\nbegin\r\n  FLocation.Remove(ALocation);\r\nend;\r\n\r\n{ TTMSFNCLocationPlatformServices }\r\n\r\nprocedure TTMSFNCLocationPlatformServices.AddPlatformService(const AServiceGUID: TGUID; const AService: IInterface);\r\nvar\r\n  LService: IInterface;\r\nbegin\r\n  if not FServicesList.ContainsKey(GUIDToString(AServiceGUID)) then\r\n  begin\r\n    if Supports(AService, AServiceGUID, LService) then\r\n      FServicesList.Add(TTMSFNCLocationPlatformServicesService.Create(GUIDToString(AServiceGUID), AService));\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCLocationPlatformServices.Create;\r\nbegin\r\n  inherited;\r\n  FServicesList := TTMSFNCLocationPlatformServicesList.Create;\r\nend;\r\n\r\ndestructor TTMSFNCLocationPlatformServices.Destroy;\r\nbegin\r\n  FreeAndNil(FServicesList);\r\n  inherited;\r\nend;\r\n\r\n{$IFNDEF AUTOREFCOUNT}\r\nclass procedure TTMSFNCLocationPlatformServices.ReleaseCurrent;\r\nbegin\r\n  FreeAndNil(FCurrent);\r\n  FCurrentReleased := True;\r\nend;\r\n{$ENDIF}\r\n\r\nclass function TTMSFNCLocationPlatformServices.Current: TTMSFNCLocationPlatformServices;\r\nbegin\r\n  if (FCurrent = nil) and not FCurrentReleased then\r\n    FCurrent := TTMSFNCLocationPlatformServices.Create;\r\n  Result := FCurrent;\r\nend;\r\n\r\nfunction TTMSFNCLocationPlatformServices.GetPlatformService(const AServiceGUID: TGUID): IInterface;\r\nvar\r\n  k: IInterface;\r\nbegin\r\n  k := FServicesList.Interfaces[GUIDToString(AServiceGUID)];\r\n  Supports(k, AServiceGUID, Result);\r\nend;\r\n\r\nprocedure TTMSFNCLocationPlatformServices.RemovePlatformService(const AServiceGUID: TGUID);\r\nbegin\r\n  FServicesList.RemoveByGUID(GUIDToString(AServiceGUID));\r\nend;\r\n\r\nfunction TTMSFNCLocationPlatformServices.SupportsPlatformService(const AServiceGUID: TGUID;\r\n  var AService: IInterface): Boolean;\r\nbegin\r\n  if FServicesList.ContainsKey(GUIDToString(AServiceGUID)) then\r\n    Result := Supports(FServicesList.Interfaces[GUIDToString(AServiceGUID)], AServiceGUID, AService)\r\n  else\r\n  begin\r\n    AService := nil;\r\n    Result := False;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCLocationPlatformServices.SupportsPlatformService(const AServiceGUID: TGUID): Boolean;\r\nbegin\r\n  Result := FServicesList.ContainsKey(GUIDToString(AServiceGUID));\r\nend;\r\n\r\n{ TTMSFNCLocationPlatformServicesService }\r\n\r\nconstructor TTMSFNCLocationPlatformServicesService.Create(AGUID: string;\r\n  AInterface: IInterface);\r\nbegin\r\n  FGUID := AGUID;\r\n  FInterface := AInterface;\r\nend;\r\n\r\n{ TTMSFNCLocationPlatformServicesList }\r\n\r\nfunction TTMSFNCLocationPlatformServicesList.ContainsKey(AGUID: string): Boolean;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := False;\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    if Items[I].GUID = AGUID then\r\n    begin\r\n      Result := True;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCLocationPlatformServicesList.GetValue(AGUID: string): IInterface;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := nil;\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    if Items[I].GUID = AGUID then\r\n    begin\r\n      Result := Items[I].&Interface;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCLocationPlatformServicesList.RemoveByGUID(AGUID: string);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := Count - 1 downto 0 do\r\n  begin\r\n    if Items[I].GUID = AGUID then\r\n    begin\r\n      Remove(Items[I]);\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{$IFDEF WEBLIB}\r\nfunction TTMSFNCLocationPlatformServicesList.GetItem(Index: Integer): TTMSFNCLocationPlatformServicesService;\r\nbegin\r\n  Result := TTMSFNCLocationPlatformServicesService(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCLocationPlatformServicesList.SetItem(Index: Integer; const Value: TTMSFNCLocationPlatformServicesService);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nfunction TTMSFNCLocationList.GetItem(Index: Integer): ITMSFNCCustomLocation;\r\nbegin\r\n  Result := ITMSFNCCustomLocation(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCLocationList.SetItem(Index: Integer; const Value: ITMSFNCCustomLocation);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n{$ENDIF}\r\n\r\n{ TTMSFNCCustomLocationInterfacedObject }\r\n\r\ndestructor TTMSFNCCustomLocationInterfacedObject.Destroy;\r\nbegin\r\n  FLocationProperties := nil;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCCustomLocationInterfacedObject.GetLocationProperties: ITMSFNCCustomLocationProperties;\r\nbegin\r\n  Result := FLocationProperties;\r\nend;\r\n\r\nprocedure TTMSFNCCustomLocationInterfacedObject.SetLocationProperties(\r\n  const Value: ITMSFNCCustomLocationProperties);\r\nbegin\r\n  FLocationProperties := Value;\r\nend;\r\n\r\n{ TTMSFNCLocationRequest }\r\n\r\nprocedure TTMSFNCLocationRequest.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCLocationRequest then\r\n  begin\r\n    FCity := TTMSFNCLocationRequest(Source).City;\r\n    FCountry := TTMSFNCLocationRequest(Source).Country;\r\n    FCountryCode := TTMSFNCLocationRequest(Source).CountryCode;\r\n    FContinent := TTMSFNCLocationRequest(Source).Continent;\r\n    FContinentCode := TTMSFNCLocationRequest(Source).ContinentCode;\r\n    FRegion := TTMSFNCLocationRequest(Source).Region;\r\n    FRegionCode := TTMSFNCLocationRequest(Source).RegionCode;\r\n    FPostalCode := TTMSFNCLocationRequest(Source).PostalCode;\r\n    FIP := TTMSFNCLocationRequest(Source).IP;\r\n    FIPType := TTMSFNCLocationRequest(Source).IPType;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCLocationRequest.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(ACollection) then\r\n    FOwner := (Collection as TTMSFNCLocationRequests).FOwner;\r\n\r\n  FCoordinate := TTMSFNCMapsCoordinate.Create;\r\n  FCity := '';\r\n  FRegion := '';\r\n  FRegionCode := '';\r\n  FCountry := '';\r\n  FCountryCode := '';\r\n  FContinent := '';\r\n  FContinentCode := '';\r\n  FPostalCode := '';\r\n  FIP := '';\r\n  FIPType := '';\r\nend;\r\n\r\ndestructor TTMSFNCLocationRequest.Destroy;\r\nbegin\r\n  FCoordinate.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCLocationRequest.SetCoordinate(\r\n  const Value: TTMSFNCMapsCoordinate);\r\nbegin\r\n  FCoordinate.Assign(Value);\r\nend;\r\n\r\n{ TTMSFNCLocationRequests }\r\n\r\nfunction TTMSFNCLocationRequests.Add: TTMSFNCLocationRequest;\r\nbegin\r\n  Result := TTMSFNCLocationRequest(inherited Add);\r\nend;\r\n\r\nconstructor TTMSFNCLocationRequests.Create(AOwner: TTMSFNCCustomLocation);\r\nbegin\r\n  inherited Create(AOwner, CreateItemClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCLocationRequests.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCLocationRequest;\r\nend;\r\n\r\nfunction TTMSFNCLocationRequests.GetItem(\r\n  Index: Integer): TTMSFNCLocationRequest;\r\nbegin\r\n  Result := TTMSFNCLocationRequest(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCLocationRequests.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCLocationRequests.Insert(\r\n  Index: Integer): TTMSFNCLocationRequest;\r\nbegin\r\n  Result := TTMSFNCLocationRequest(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCLocationRequests.SetItem(Index: Integer;\r\n  const Value: TTMSFNCLocationRequest);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n\r\n{ TTMSFNCLocationCallBackWrapper }\r\n\r\nconstructor TTMSFNCLocationCallBackWrapper.Create(\r\n  ACallback: TTMSFNCLocationGetLocationCallBack);\r\nbegin\r\n  FCallback := ACallback;\r\nend;\r\n\r\n{ TTMSFNCLocation }\r\n\r\nprocedure TTMSFNCLocation.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClasses([TTMSFNCLocation]);\r\nend;\r\n\r\n{ TTMSFNCLocationResultCallBackWrapper }\r\n\r\nconstructor TTMSFNCLocationResultCallBackWrapper.Create(\r\n  ACallback: TTMSFNCLocationGetLocationResultCallBack);\r\nbegin\r\n  FCallback := ACallback;\r\nend;\r\n\r\ninitialization\r\nbegin\r\n  TTMSFNCLocationPlatformServices.FCurrentReleased := False;\r\n  RegisterGoogleLocationService;\r\n  RegisterIPStackLocationService;\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\nfinalization\r\nbegin\r\n  UnRegisterGoogleLocationService;\r\n  UnRegisterIPStackLocationService;\r\n  {$IFNDEF AUTOREFCOUNT}\r\n  TTMSFNCLocationPlatformServices.ReleaseCurrent;\r\n  {$ENDIF}\r\nend;\r\n{$ENDIF}\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2021 - 2023                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : https://www.tmssoftware.com                       }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCRouteCalculator;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\n{$IFNDEF LCLLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 23}\r\n{$DEFINE UNREGISTER}\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE UNREGISTER}\r\n{$ENDIF}\r\n\r\n\r\n{$IFNDEF LCLLIB}\r\n{$IFNDEF WEBLIB}\r\n{$IFNDEF UNIX}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 26}\r\n{$DEFINE SENSORSUPPORT}\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, Types, WEBLib.Forms\r\n\r\n  {$IFNDEF LCLWEBLIB}\r\n  , XmlIntf, XMLDom, XMLDoc, Variants\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl, XMLRead, XMLWrite, DOM\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,web, Contnrs\r\n  {$ENDIF}\r\n  {$IFDEF CMNLIB}\r\n  {$ENDIF}\r\n  ,WEBLib.TMSFNCCustomComponent\r\n  ,WEBLib.TMSFNCTypes\r\n  ,WEBLib.TMSFNCMapsCommonTypes\r\n  ,WEBLib.TMSFNCCloudBase\r\n  ,WEBLib.TMSFNCGeocoding\r\n  ,WEBLib.TMSFNCDirections\r\n  ,WEBLib.TMSFNCLocation\r\n  ,WEBLib.TMSFNCUndo\r\n  ,WEBLib.TMSFNCGraphicsTypes\r\n  {$IFDEF SENSORSUPPORT}\r\n  , System.Sensors\r\n  , System.Sensors.Components\r\n  {$ENDIF}\r\n  ;\r\n\r\nconst\r\n  TTMSFNCRouteCalculatorDocURL = TTMSFNCBaseDocURL + 'tmsfncmaps/components/ttmsfncmaps/#ttmsfncroutecalculator';\r\n  TTMSFNCRouteCalculatorTipsURL = 'https://www.tmssoftware.com/site/tmsfncmaps.asp?s=faq';\r\n\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 1; // Minor version nr.\r\n  REL_VER = 0; // Release nr.\r\n  BLD_VER = 0; // Build nr.\r\n\r\n  //v1.0.0.0: First release\r\n  //v1.0.0.1: Fixed: Issue with Route Instructions after updating segment\r\n  //        : Fixed: Issue with Route ID\r\n  //v1.0.1.0: New: Support for OpenRouteService added\r\n  //v1.0.2.0: New: Support for GeoApify added\r\n  //v1.0.3.0: New: Options.Locale & Options.LocaleMode added\r\n  //v1.1.0.0: New: SaveToGPXFile, SaveToGPXStream, SaveToGPXText added\r\n  //        : New: Google: Segment StartAddress and EndAddress value\r\n\r\n  DEFAULTSTARTMARKER = 'data:image/png;base64,'\r\n  + 'iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADdYAAA3WAZBveZwAAAcrSURBVGhDzZldbBRVFMfPndmPlra0paVABdr'\r\n  + 'S0i8aQoIxGgli/IoPSGgi+oJUE21abEx8kvBACQ9GHjQGhRRFhZgQ8YnEFzXRCJgoNKJpgXYF20Ip9osSoLTd3ZnrOXfu7M7uzLT7VeqPTvaeszvnnv+9Z+6dGRhkglOn1PKRdY8CY1vweAyArWXAH+'\r\n  + 'HAculrbN/H9k0A/jd+/zto2i/9JZc6YccOTZyfBmkJWNPRvZrr3hbgfBdGWiHdicHhFmf8uKp7Dl/bvfaG9CZNSgKqO3qKgxrfj803GWNew5sanPMQMOVoVljb19NWPy7dCZO0gIqOnpe5xg9j4sXSF'\r\n  + 'YEpXlA9flAUH7Y9WC0YntMf/tPDoOtB0MIz2A7JM6KgkDEGrLWvtfZb6UqIhAU8te9nz/VlKz7EM9qkS8CYAqo3Fzy+XEw8scnQUUA4eB+00H1MXJdeCdcP9Q0Pvwv7nw5Lz6wkJKDq44Bf8/NvsLdt'\r\n  + '0iXw+PLA6y8QIlKBkg/N3EEx96RHwvlpNaS+cvWd6hnpcWXunk9xNezVTlqTp/LIylkOvqwlKSdP0LkUg2JRzAiMbRN9Yt/S48qcvZeP9RzEWt4uTVBUn+hQUf3Skz4Uy4jpkx7SwLaXj/d+IE1XZi2'\r\n  + 'hik+vbAWFncam+B114F+0LK1Rnw0qqZkHw6BrwYgH/17qa63/TjpsuApY09GZz/Xcy9gsJZsxFbJyV4jPdPDdGQAlOCna4ZwSPGIXM841mL5/S3waDhhSQ0odXg93DUcsrkOp6znv4YdInvBlFyeVfP'\r\n  + 'bUKFT1nhQHtU2KLh6H0p/axZE7cEZ6o1Af1FcEBqVhn7ZHWjYcZ6D00OUiv8oGMFoO2R5cJn3ZReK7uciZHIKV13+EotGLwLACCI4lN750Awyufg4Wn/8csoe7hf/2+lfhTn2jaMcTnBqHMC6zAs4nZ'\r\n  + 'zReNuSw0TnOgM/L3jCTJ43erAKjOQt5d/uhrvsz2NB5EIpH/ogkTzCsbfLRdyu0UfD5oherG0afcnwxF5GTA84lxNku2cLRz5m1dAomAtDw1yew/uJHsGScRtZIvLKyEpqamsRBbQMO2V4FioqKxLGI'\r\n  + 'mxerHeqT+o7A2WuyFYOthFYf7alQNfhHmri8LcPVJ0taJhyTvYSl8gOO/ID0UacMampqYPPmzVBaGrl8BENDQ3DmzBno7e3FiojOzr3FZVhaz8PtonVoxaaja9MwPTksLbSBVwy01PVLU2ATUHbkSpM'\r\n  + 'C7Etq03KZnbdK+E2KR/+ElQPfi1o3URQFGhoaYNOmTVBSUiK9zoyMjMC5c+egu7sbF4robcRkTikMlr0AY3itWJm6dwMFG79DAa+jgK+EIbGVEONso2w6blYFEz2R5FWPBzZu3AhtbW3Q2Ng4Z/IE/Y'\r\n  + 'Z+S+fQuRSDoJgUOx5rDtbcTOwCGKyVzZid0eTmqmdAw5IaWrkF1Bf3wNatW6GwsFB+mzh0Dp1LMSiW5smCwVXPym+jxO7O0dxM7Bcx58tlS1xI8UxlL4ULTxyAvsrtEPTnS2/qUAyKdf7xAzBtXf8lM'\r\n  + 'TlYcjOxCcDLSzwGClxuGTSHmUkX3S2mJYeY3CS2i7j8SE8vOqupTZsXbWJuPLk0BO0NcrOxcOLECbh7N3bnz8/Ph507d0orSnt3Lvw66v4cQZsZbWoECgj0t9TWCEPiNMTRm3PLcpcMgUAAurq6Yg5a'\r\n  + 'PlMiNoe4BwcHAQx45AGbnpwWGmsO1txM7DPAISBbuJH8DwRYc7DkZmIToDPlN9nEk+mJLrUyyghYPkYOBtbcTGwC/Ao/izlHbsa10JTRXAC0MPUdGcBwKKzZ7r9tAgLNtWP4cdawjFVgoYjr+2zCt9O'\r\n  + 'o+QvZFKMQfcR7eFCfxgwYYDWJ+7N4bPsAQa9Rwl7tKt5driSb7kbprjSeQp8O1Xn215tXA70QDMaKpmeAquqYJVwQuKfCRNA+jtOT/0bqH+9eBz0htcrpNYujAKL88JW3UECHNMXrD3oP9DCg90TB6d'\r\n  + 'vSEgKa+1vrjkozBscSIvqLa4/htHVKEwNOxKwI8wX1QX2ZcOAX+ou7jknThqsA2ME0VdeaMMIDw8Fh5sHIvG5uFJv6oL4EnD/QAXOY5TW8uwDk2tvrLmGsZopEtnhvg09I8yFCJI+xo+9KsU/Omq+3N'\r\n  + 'NCrHVdmFUD07a79Gn+2V5oYVsu4iGjy1oHme42+Z2dOAURfS837GJD+P0CQSRFOyeMstPe11GOfc+O6CjlRceRKO56yT5riYcNPD/0JvlaPxzl5aO9vrY0M1lwkJYDIlIhMJE8kVEJW+lrqUEB65eRW'\r\n  + 'NskmTyQ9AyapzkSmRt4kZQFEsiIynTyRdAlZSaacMlk2VtKaAZO5ZmI+Rt4kIwIINxHEfCVPZEwA4SSCsJdNfUaSJzIqgIgXYSWTI2+ScQGEk4j5SJ5IaxVyw746pb/aLAg0E+WHexzLKTMA/AdvKV0'\r\n  + 'lo28WnwAAAABJRU5ErkJggg==';\r\n\r\n  DEFAULTENDMARKER = 'data:image/png;base64,'\r\n  + 'iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADdYAAA3WAZBveZwAAAj/SURBVGhDtZh9bBTHGcbfuTv7zviITbASJza'\r\n  + 'EONQfNVVUNSD6JSfFYCREU7Uy/BEUQqQ2qlFRE6F+0D+SqKIOqGmRIltqkIqIIoUIqSJVkRyiJKJppTRYRBEKcYxDofbFBIxl/H2+u52+z+zMefZuzz7b55902pm53ZnnmXnnY1dQAZCtFBwYaXiE'\r\n  + 'hHxUkNwkSHyN01UkKar+FzQupIhJkleECPzHceh8dfln3eI0pVQFS2BJBmLNX18rgqmfO5L2CiHu08V5IaUc5NZPkgx1Vp/7tF8XL5hFGYg11VY4YfEiP/xTFl6kixcFG0lwPa/KlHi++t2e27o4b'\r\n  + 'xZsYHB7XWvKEZ1CUIUuShMMEBUF3St+fI9CSqKU4/4SHDS4ZsL3DFFAtlV3fX5aF+VF3gZkU1MoFvnqT/zAL3SRAiIjPAb4QXQ+wMB0wv3BnI106JUrM/c+99j580ldNCd5Gejdvj4cdUJv8mR8XB'\r\n  + 'cpSoqJVvDP9PRCgfjJGaIp/tlw+VuTgeTu2q6+uC7Kybx9hhVmhRN8wxYf4KfKVhCVhv3FJ7mH49x/ppeRRlkmeBZ1oC7UaeDyx1Wb3LYuysm8fde/re7lgBDP6SyFuMq7SrjBjCeTHNtTLHaGxWa'\r\n  + 'GhQGCi0M8chxuqMeGVzIanXLrsXi56u2egzrty5wGBrbW7WSlb/FN6r6Q7nm71xHPEzzQEO4hwApL1TbAN4yzQq8yGEHv2/MGxu9Mzo4WZ3nroB9Wn+v5h1uSTU4DXzTXlEWCxZc5eT/y6PHyUm/PI'\r\n  + 'zTGp60ev7eKxPe2E31jE1HVg+yYVYIk3xj7L9Glj0j+q4voq5gqRkdEI0RhfRvASIxMuFfAly8jItlQ0dU36pZ4yWlgoKWunXfU3+is6nkskQbENsQroneR2PUM0XdbvMHsB2/DxCbk6Ve5AlcTTGA'\r\n  + 'VM2CpxUgYeBheqn7789/qrAdfAwNb6ldTSF5nA9znbuVoxIBwQbwq1jxE4peHie6+RxdkU1xcTGVlZdzjgmZmZmhiYoISPAry2O94kn2h7sG8QlgZ0DnoJMAGJigpHvDb6Py7KySfNuLhcAXHqgFDO'\r\n  + '6Z7Plm5hmaefWlO8QDiQxxOwWCQSkpKqKKigqJra3h8/0xUXaPuQZ0mbADaNL2rtLAmnfXga0Dw2UYnKcy9b8f9hI55GS6h4SeepaKyVfqf3EB4JitXrqToPZUkDvyel6VSVSfqNqBNtG3xpL56yDI'\r\n  + 'wuLX2QR7rRp31VIIVBxMXjDX/hGRFJYf8PDHPIGxsRkdHaWpqSpkornqAxI+eUuWo2z5m2G3zKGwYbKlbp7NpslpPBUSTTrKP7IkLnGgZTW7akpd4MD7Oy6gGZjo6OujIkSN069YtikZ5qX1sJ08Cd'\r\n  + 'yRNGwBte5Zsokd1Mo2fgm/pq0c8MGv91MPf4VOwd3znwkxcPnnSiRMn6Nq1azQ4OEhnzpxRE5yK+Ld5i3uvbsOQoSGtzZBtQPLLiMbeZDDBzPDG129QVwdLYp4gbE6dOkUXL15U+crKStqzZ48yBcS'\r\n  + 'GR9QVbdiT2XNAtLQZsgzwkFXqpOdhOzax+gAYSKXcHXZycjKd9uPChQvKwPDwMIXDYdq/fz9FIhEaGxtzb8DGp7HbsjXY2gxZBrhH9P7PD+grSO+2XEuK54AhHo/zRptUcX3s2LFZQRZXr16lkyf55Y'\r\n  + 'srgendu3crszdu3FDGFbwZmhbTbTFeDbPaDNkjoObKHHDtwhpjrCZnz56lvr4+6u3tpfb2durvn31DvH37NnV2dlIikWDvgvbu3Us1Ne7a70GptpT74KfNJ4REugvtWLT3guCdIZ1yR6CpqYkaGhpUH'\r\n  + 'oKPHj1K3d3dND09rUbGjMqOHTto48aNKp3FyGyddlu2BlubIcuAQzLdfbkmU9GX13TKBSF04MABam5uVnmsOsePH6fDhw9TLOYe3CB8505eLnNx/YpOeNuyNdjaDFkGeKb36pTnbI712Jzhwz0fuwmN'\r\n  + 'WSZbW1tp3759VFTkLrE3b95UV4QMQmcu5CcfqivaQFsGz/uBpc2QHUIBcmti8LAdlebYG/m0mwIT3tMtwgQTcvPmzXTw4EFatcrdmFavXk1tbW1pU76MjhB1/1Ml7aM12vZ0oqXNkD0CIecDflI9hgr'\r\n  + 'sjQVbO3pHJOIUfe+MLp1lZGREGVm3bh0dOnSIGhsb1XKJI8NcyL+/xg3FVd328QFtz3agTMoEuS4trMGaZWBb/ftcmdq2ccTFUdeAty/1Es7dMbzv1xR/KH1sSoPexglU7bLz8dlFkn/8FQe4oz4S4C'\r\n  + '3NgCO71YHv8+vlD3Q6TfYIMFKIv+qkqsAeRnyFUJNMOlT+xisUuvE/9w8LLJlDQ0PqrINzEPJmxwVIo2y67zLJjheVeNSJug1o0x59h8QJnfTgOwL4jFLqhPr432rkcR7BG5kB76x4Y4Imh4/CI7vaK'\r\n  + 'F77sP43N9gHAAyEez+h8jc7KDA9qUKnnOu3Vx/UjzczhaSBiUByvd9nFl8DoH9b/c94Pf6Lzvq+9mGIVceygqlvfp/GtvyYUuVZH+w8BHm9X/nu36jk4w/UwxCPEM089aZfVxleSp9Zc66H30GzyWlA'\r\n  + 'trYGY6OXPuQb1CkLN2IU7M8hOLPARPrsEgiqgx5GI3HfWnJK3SNHYPwOFXGoodfDfZdUyAD0OMTbPY/QUaOr85y48O+ynm/vyvElO6cBcL2loTEo5UfcSyqAsEPChN0gGsKkxk+NRh6g1zFh8bMFoCM'\r\n  + 'g3mxeHGqTgUBw4/1dl/F1xJc5DYD+rbV7RCDwGt+o7vUzASAeb1SYeAivTDMQjTDBqoa1HnmbLPGownGeXPNO7+tuiT8Z1fgTa6nHJ40/uLncJmwgxJiAWPt8k0mmeM0hXjbbdToneRkAsZa6F/j253'\r\n  + 'U2LxP54Ceejb9Qfa6H19f5ydsAKLSJpYoHCzIACmWiEOLBgg2ApZoolHiwKANgsSYKKR4s2gBYqIlCiwdLMgDyNbEc4sGSDYD5TCyXeFAQAyCXCbBc4kHBDAA/E2C5xIOCGgCZJmwKLR4U3ADwM7Ec4'\r\n  + 'sGyGAC2ieUSv+zAxMC2et9wKgxE/wfU9O7YdUzoAgAAAABJRU5ErkJggg==';\r\n\r\n  DEFAULTSELECTEDWAYPOINTMARKER = 'data:image/png;base64,'\r\n  + 'iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADdYAAA3WAZBveZwAAAnTSURBVGhDtVhrjFVXFV77nHPnzn3MgxleA0P'\r\n  + 'HUmBqi0VCFBUT0mAd+vhhfxht6g9j/GPaGIn9ISRCibE+o/FHjbWCGhOjhaRFGwPBaMbIo0asUNNSZmhhZoDymAEuc9/nnu369jn7zj5z3zPDl+x7zlnnnL3X41trr3MFzROXntgUdwq3VhSF9SGS9q'\r\n  + 'dI0kYSci3fWiFIJkkKTwqREoIu8713PSGOS8990yMxPjDVMSFOnSr6M80NczZA7tljXTnxhyc9oqdZufWs3AAJ0RbcrgspZZ7fOc9nJ0lYf1yx+Qt/FXv38lStY04GjH927QZB1k/47c08RZwnmdM8U'\r\n  + 'hIHQmaEpNcLeXvHvcNvfxDcahotLXz+M6u7ohR5iizxHfbg4kCsYFlENs9m89HhgWt+RoEVpRL7F8Pl4WGwzARH5R1L0m67YB9eNvz2dCBuiKYNGNs2+BHbkd9lTg+ZVInYRO0RVpqPSulAXgvaGLdE'\r\n  + 'lGX241zDp5b8veW1f6vv6JlrgbgumjLgxuNrV+aL1gFOxk/wC+V3ElFfee3pVoEoZAv+mIF0+Wd/qSP9jXsOTmR9WW00XHric/f3WhnxshTyyUCkvJ5o96lSD5oljRYpcjSmc+FocF7sy8eyz9176OK'\r\n  + 'tQFQVdVWY2HZ/r8h5+03l4fGOWGPlgTxTpAB/NgAc0slztjmBgOEJ+oqTa3/h31ymA1FV1FRjD98TFu3gmbYHImoLPG81QRlwPZMnyjE9cN4ISP4OnhvGALyEsKR4qq+Q3uJfVkdNA7726OCDUtDTOm'\r\n  + 'HhHXi+Cd0Vcuz9csIa1KgH5FKSjYAxvoC6eey89MS63kBSgZoGuCXxDL88gHNUlzgnbLPJiuQEfeB487wZQPk4u6xcgom2egXxdf+qElVVGt++pt+S9jm+zT5n3vOESTagWYD3d7h+FJf1k3CL5Exep'\r\n  + 'e6E4dkmkOL3df540stE3OLq5X97/6ovmUHFlGwxtzDOLq08PAGPtAKURc+JUGroizS95TGSlk1pzodWgFzTUeBkjLtO21f9qzAqDLgwNDgg5EzVibHyzSStBuiCsph7YBMVVn+Y8oMbyF3Sp7zZTEXS'\r\n  + 'wK6OiqfBjn38/a0buoPLMioMaCPxST504hweMCdpBFV5UHXaopTbsIVkJEqlrl7K3/cgr2T5iR082wxQOLTvWJeVtpNbFVyWETIA9JGexw0aKcajpFVzPhRFcuqWAJ4Fbe4Em5G7bBUVVt3HOltk2TZ'\r\n  + 'lPvYweYlOFZk0P4PSWuR38C6ex1zVSi0ijwKiIGkx19X+4KqMkAEXtg5EhRBreKhqjP5G8xCLYbdEcmHczvDAMbgGx2GIdBxKf3ybUrirq4uSySS5S/s5Fx7lXHBUFKb5Wf2ufl8PzAODAGVAsD7rFJ'\r\n  + 'cWrX7l8xTsFD5CDuZ6u1gWrddYiM1D1f1osDtizmleIG/w2GuPk7t8lVKwiGPfALk9S0nGkhSJxainp4dKpRJNTU2RV8iTlU6Rc+0yj0sUuTpGzuWL5Fy/TKLIIQmAnFMlO7iGUTp3OEo/zFju7nWHR'\r\n  + '8slIWTAGDdtdtH6M5u7ETdggLm9A4gCEhXKT31pBxUGBstxBmXYU+oIz8fYCO4wKZVKUT6fV+cYHvpphii51DbyFi165UWyCjmVb2gQTWA9RC0AN3nTz5pNXohCDuIvyE9btkDTxwQWiGKjyWWo++Av'\r\n  + 'KDr6P+UaKA3K9Pb2Ks+3t3MdZMCgzs7OsjyRSCgZlE8cO6zmgPKYd7byQFgHGbdzy0KSkAGea3n4hg0uoVcFMKFuo+1bk9T96ssUufSe8momkyGbkxYDSmrgXMuy2ayKQvTsfyg5fIisbFrRpplqx/H'\r\n  + 'jTAwjZIALtwhShKymvAZUQ8+Che07N6n31z+g6LunKZ/N0OTkZJkiJiC7efMmlXJZip05yZ7/Jdn5rOJ7vY3S1ENI607hzo3Q5CEDksJN8yHlX81Ug1rAwvCcxXTqev03FOHkLBQK5LpGpgcoFotqtL'\r\n  + '/1BnUe2k920adNXeV5mDpwGZ2YnF4cikLIgN6OjWnJjgouVY2uZwNYUm68oHTgeYdTCdBJC2iZ8EqK/+iL2hrQBq9qA/ggS9Ia23TqVMg7IQPEgQMllpzmNxWNsPHUtYChNiE+Sq5KXqJDcR1Kp9Npu'\r\n  + 'nbtGt24cYNyuZziPxLdXdzHq+IZfqfB3MqAgDDc3tziD6sx9lXorZABgGWLYUlC1VlsXo16eX0fZdWLdyjlUfdv375NcjpFJR7gPmSAu2QFSdvxjW5gABxYjoAQVx1LXPCvZlBhwHKv+AYrcSW4nPXB'\r\n  + 'XQlFM3iqs4d7nzaVrEX2eOzNf1Lvz79NPb96gSJjI1TgfQD3vHiSSp2LlGImv6sB+42G9ORoX2L9RHBZRmhbBvaOTpW+uW4J/PoYh0tAwQjTt1Yvj0UQhdz6zbwr91Nk/Dwn9O8oeewvZGemuUrdoth'\r\n  + '/j6kE9zq6lQGRq+MUuXxB7fK15i2w97Xz2E7pCGt3x5+GedMJA+lXgSuPPJQoicJxpu1DuFafk0Z/rgHPp3inRGOW/einyU5NsQGjZHFrAKNRofAM/v8BHb1YglvsB1ibNoqdPqaqEErxbMBpaCFwVJ'\r\n  + 'DyBEdt2z0HT5Z3YI2qBgATjwx+mTXeh9zDQ0mjL9IABbAQlJPYqHhFS0j1MYI/ALTBMAI9FBo1zi/1gYNKpFoHOMZ/rAyzfWA6u5b0tq04OvIPXxJGjQCyApY4wjOfQPh4qH8YoKgJxX3cZDi8SSaik'\r\n  + 'hbxpyMMNaOFcyi7KM5HR/KzfiVUHg7e10DjVm4YJZWERS/1FQr/CiQVqGnAkiNnP+AlnpfSU+VDhZU9Y35VwQB8OWFXxv86oMNsmplAz6efBX2UZwwgn+B9Lee27x2HSj8VwxdZWh01DWA95PHOkb+T'\r\n  + 'sHfwfGpK1GTQQJdOJCA6Vni3lQ92PAtj1d80gcFKeZ5bR5SX4A5R7Fp6ePQ9X1Iddfw1g/GhwV38IA/BBPE/dPAvBY4LAUQVntfKcwSuC8vbufLwuX2+pDaa8pvjRX/GBvyYfVLe4GbTaa7QtDGVJ0s'\r\n  + '+cy7b91tfUh9NGdB39Ew6LUrf4/38+4Gogk5zwWzaKAjaO5Jd/urDw8NNuacpCpm4NDT4PB+e41fnRadqtIHy/UfOvuhLmkMLqefD8qI/4sO86FSNNjbTZiS37CVf0jxaNmC+dKpFm7Mt0MZEyxQy0S'\r\n  + 'qdFoo2JlqOgIlW6LSQtDExLwOapdNC08bEvChkohadoPRC08bEvCJgohad7gZtTCxYBIBz29dEE9LeydPuCUQhsB3PQvn50sbEghqgMZtOC00bEwtGIRMmne4GbUzclQgAmk78BXZ9oWkzA6L/A+Dav'\r\n  + 'xFhPzMaAAAAAElFTkSuQmCC';\r\n\r\n  DEFAULTADDWAYPOINTMARKER = 'data:image/png;base64,'\r\n  + 'iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADdYAAA3WAZBveZwAAAloSURBVGhDvZlrbFxHFcfP3Ltr73rXjl2C28Q'\r\n  + 'mTaGxHbs1DS1SWkoDgjoPoqZQMIJWIEFUvqRSPiAIIGFCRRWExEMKX3iIV9QPKW1p1TYvKkgoNFBKaFq7tZsCSZPYsU3W79317t7hf+bOXc8+7r5s8ZNXd+bevWfOa87MrAWtEJc+2r3OsTPbLSnulC'\r\n  + 'S7SYh1JGWTeijEDNoXBIkhDPgn6VhH234/dEE9WybLMkAOkHX5xY33SHL2Qsm7IKwieZL/pDwlyPrh2ttff1rsJ0c/qpqaDbjY13kHXj4IxTfpW7Uh5RkYtKf9+PBf9J2qqNoAuWVLYLT+yn64bJ+AC'\r\n  + '/VthY1eXYAoYKPN4dDSJTTM4JPOEC2m0c7zN57znQNtyWsHxMmT+EblVGXA6N29EcdKHsZrO/QtRT2UDte5ilcCGxJfJErmqyrlc5as719z4uy8vlOWig24sLk9bDVFjgkhPqhvKY83hipXPB82ZDaR'\r\n  + 'GxFMjlOpRGLrDSfP40l5clLAD0Rf2KuivzGVZ683NxRXnhVKplwvK0+jnZ82DL/LMliWByrVXcFQ+BCPqW+VpKIvvd3XtdcS9APdpVCQKArPm3Ces7IJKOugXQzIoBBSLYz3vfnhMQd/87tLyL1tx4Z'\r\n  + '/pDu+lDVgdGvnegf1G80w93mSNqnWEuzhuaRrBFkI6o09RO/BUtCyWj2XsUmityDi3CCsgzSMGq2H52GIyUzcneSauIX1ZM2x4f/oflHKGnCpr+swvvUpbrMHWyK53puH4ux5spAPH9pJ4mOfIbqm1X'\r\n  + '2Yz9Vxks8+SvTHZ5QhPPEjMMSDHRDD9PUiiP5j7cff6Hd7xSlpwMWtnZ0ksXrqctkIz5v5ugDlF6C8jK4i66H9RB29+kkZRs6SPPgtzOApaoARDYYRXJlmEQmFRPW1qbv9yBsj+k4BJScxPPCgpzxXH'\r\n  + 'FP5FAZi5Z1whOb3PFxW+UgkQo2NjRQMIm/wXbHv+7jZqGSwLA8eg8dSCLJlRn5J94riawBvEywhPq27KtwmnPPM9H0Pkmhb73Z8YKWbmpooGo3S6tWrlTG0dj2JL3xFPfdkeZhjWST6kVG+meJrwPm/'\r\n  + 'dnfh0ub2cr3PYValsuO9lNh4K9l26YUgk0HBN2Bj6uqg5fs+QHTz+11ZRhS4UGQR1H65r6NT9wrwNSDgZDbrpqrX5sTlqsPM37HVbZTBwYSdn89dXFUUgOj7pLp6MhkuFgFDM0Thdt0swNcACNmgmzn'\r\n  + 'CmBQcKutClHw3yiVgBcsxOztL8bg3O9kh2iMbsRcMhZVME3OBzAjq0M0CfA3A5muNbiqPeHCJ43KXvrYds80dJZ024u+DxEtTU1M0OTlJ09PTqq2wkS+YQyzTXADNMYUU1+lmAf4RIIFF3sVMHx6IcR'\r\n  + 'qibgMkEhVtWxSpVIoWFhZyo4YyzHiyGXNM4OZbEXwNkIJ4eVIYcpdILyUtT9JkMq+UVEMqO1SWvDF9hfsaABEx3cjxDO8UmMDVK25DMzMzo1s1MH5ZXTzZjDkmnJnVJR9fA5B3b+kmpY1oc2R5UtvY3'\r\n  + '9ixCfcm4NSoyYiJUaLJMSXTzBpzTBjzL90swNcAR8h/6qbat5t4dbrh5ZNuQzM3N1dQLsshXziqrjm1H+SMaeiSj68BVnDmb7Bc5R6H09glqi0x0/DicbLmpt2OhisMf7jqlGX6KtGJJ5TnPZkMj5V9'\r\n  + 'XVI8nUic1r0CfA1oe2Z0AW8/q7sFCw0v91ZigZof/wkvBPqJC0dhfHxcXf3WCJlJk/z5d7GVnVfKm2XTHAsntCOlTme+Bigk/VK3stsHD95Fct7Wj7yijBB52wWuTByJsbExmpiYoFgspmo/XyevjFH'\r\n  + '8x98mevUlJYNleeRvK0wdimHOmwLU7z6nu15DcyP3g8jTVcZhhp07hcWVr4vrNtD0x3dTujW7fSpKYPwSrXryp1R34ZyqOs2QZ1afacjL7k6lHFp7fPgmKOmbjyUNYHAmuAfn1Kd0Vx1AzN0ir558kl'\r\n  + 'KTDpokum+j+M2bKbXuRso0tqjv2LMxCkLh8KunKTT4d6jjqK0Cn+zM1OGDER+QPJA+u9qPDT+tu0UpawBzsa/rd1gZd+muGji/angH+JzzsLecGhPamz/523OeuOwID7zyFE5j9+quL6XngEYknd1wx'\r\n  + '0XdVT+F5G++WKEW7C7YOD70s4dtIdWH23yPn/F38pVnWdlTmEK+TRn6ou6UpKIIMGPbOnrT0jqFF9TGhZ3LCgWNXWMtsPLseSNIU45wtrzrKM6dFVBRBJjrIFAIZyciMct9HpAHzo9ENeQrj+ssWc7O'\r\n  + 'SpVnKo6Ax6VtHXdKKY5gYqvtaK2RUMrzSqP7rLyQzva2EyN/1rcqouIIeLQdHXlBCLkdFWKO+7VEIut53a9VeaZqAxjPiFrSqVjaCMvZUYvyTNUpZFJtOq1U2pjUFAGPatJpJdPGZFkGMJWk00qnjcm'\r\n  + 'yUsiE04mk9Ryajdz30olZ6bQxWXYEPDgSsYaWezOWrba+XiTMtEkLOxELXbNrpZRnqo5A92FZZ6VTvU4mdauwrG6otwFiroeSayGs+abxM/Sd5/dQOAW3G8SDDfSNjxyk11o3sUFT+C4OwvI83n1TOs'\r\n  + '6QZQdfdgLBs0P9ovCEX4KKDOj8mdNoh5P8E9on8PkwXvL9mYPJN2IhGFHKD7beovp+wDCcR+UfoNYTmXj9b4d3W2pelaKkAVsGZGCiI/llbH/3CSHcH28qpOfKP+iR5x/iXxS08tX9NxZH0mlod6AnG'\r\n  + 'P7eY/2iSF1zKWlA96H4rzAZP6e7SyDBHWeRkEbqKp0MbuGIiH2+lBhLl5ve/76urmffoc5DGA0rhrDxsfAJkLACOEIECemDK7aoPPPzgKhfDz0Q/rzuFuBvwMCA1dPxVYRU5Pw3LJOOUyo5BeWrStWy'\r\n  + 'WHYdBeubyQ7o0uUh5dzg/eEmGOfVghzKRGDha0idR3Q3Fy8KTsqNgMMR4EjgfMkf/oquP/C7usLl2vuIArwvLNuNgI/3eRBJ1teH7g8d0DcKKGkA0/1ofBuOWQ/DkNv0rf8LMP0laPfNoc+G3R+OfCh'\r\n  + 'rgEf3oblbSNj3IZB3Q/wmeCzvXLVMpEROijOY9CdIZh4feiDq+2OWScUGmFz/i3+HInWtvcjcHgjYgJRZL4VYA+PeCZEtJGQUHgzjmdrWoZ1BO46ShD2TjEHJCaQV/yB6Hs/exEl6cLEl/Mq5HVaVvx'\r\n  + 'AT/Q+niwvEyza8sQAAAABJRU5ErkJggg==';\r\n\r\n  DEFAULTWAYPOINTMARKER = 'data:image/png;base64,'\r\n  + 'iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADdUAAA3VAT3WWPEAAAnJSURBVGhDtVhbbBxXGf7PmdmL12s79joXX4J'\r\n  + 'pSOKWNo2iPLSlVVGVBwo89QFBlAdKhRRBECJSHkgk0lbQcqtIW6klSZWIi6iAPhQED62EhIpKmiJaaEFJiN36njSub7G9673NHL7/zFnvzN48vuSTZmfmnznn/Jfv/88/K2id2P+ricRcxu6WTuGTVo'\r\n  + 'Q+Q4L2KZd24VG3UiIpLHKFUvNE4hqe/U8o90KxqP4lyB1rua9v/J19ouDNtDas2YDHR5T87evXHyHlHsI0d2GmPkwWNY8bQimVw5gPYOhFKel3X364+y9P9gnXPF4V1mTArhfH9kpL/IwU3SMEJUjgd'\r\n  + '01QLozIkBR/tqL5o5ceve0j8yA0VrXwjlMftEWSsYNC0fcxtNOIPShJJC1c4BA2zrhXZnoMIOXgAocq4szODjocUblMUp60ktZrlw5uXTTiFRHagP6zo3uUYz0FTn8Og8pUEREccVxAaTZixWDAGDaE'\r\n  + 'YIi7ZK49MLWUK16Ot8rvvn+oa9KIGyKUAbtOT/VImXsFyXhvgC6i2Sgf2g8VQBQUjODDQCm2jM6nx5zvjP/gE+UHdbDiyrc/O54SLfIl5ahHjAij4HVi5ZkqDQBtNFaKikIhUsyacjSQF+eWruWOjZy'\r\n  + '8bc5IagIxr4/bz42n3Kg4H1QeHhctKyuvgWJDee+yEdghshVnXxFz3Mfim+2n95/6Z8JIaqK+AV97XCIJj0LPh40Eb/MC8Hxjuw04cTM4Z73rFcHJz47h6AKgqrDlwXSy636+84TVqKtJ/73fuJNcdQ'\r\n  + 'gjPbdo7/ACIfmuoHip+ujKEwaYWyRx5moGKNqE4/ju5ydSnqAadQ0QongEg/v0DVcXlHu9QChwiQR9dA74r8MAykvfWkp9VkTdb3s31aip0c7nx3qtmLwKZzd5EvBesmfCArxXC9QbK1ABe8GNPPJFb'\r\n  + 'ILceDYMuPtQXv64jpspyMiOocPbbmiBD9UReFMJO0onysrDRu2RVQBlMQLPf6Vnnr6APcnSVEqbh2HBueb5V1oyEaXi1/VNBaoM6P/3cJ8Swld12I66TKsBpkuB9rdl6Y5knva25qgrihzQ3gxRkUrA'\r\n  + 'juntMQZKfXHvy0McxgCqNBPR6H04oabpu+AkKwKedjMUk4ru78xSzFKUijp0Z0vOW4gTO3QuMFA4louG6MkuWtvNzTKCBoA+rlL34Cqm73VJq5UmpeQ0LYHmPO+oC1q2valIn2rKo7WRZOF4qDNDrRH'\r\n  + 'edblzZipxaeVrHstz8Fw1DBNQTxcQvqZOtBm93k0ZAQP63h2OofruxGGyjTerkgFMA+yWOrlwuDexNg4+uyyDYqCJDUUObE5rhdva2iiZTFIvDPr8lkWyERkdBRfz6HGlOcyc+mAD2SAG1GMjAOiUIE'\r\n  + 'ftoD2/D1SCgHtRbztlTP0Bb/Pmgadc971geKFnA3h39ZCwXNoeL1Jvoohzgfpw3gK+JyOKmqIR6ujoIMdxaGZmhnJFl+YLkq7lbJrI2jSaidDIkk3XcJ13fWronEPRKFHHV41w8ZPifObk4LHdy0oED'\r\n  + 'Nj17GiPTFh/gnCfnoANqPxG0T1LjhLSpaM7Zqi/BVTxnmjKwFP6zJ5vamqC3Yrm5+cpl8vpaz5c1/NwESX2P/NRemGonbIue5vbFK4+PuioM+U0zi+OOt/yN3kBCtlNNjPA28vZ4aV+3g9eQMUo4wg6'\r\n  + 'PbyJ/rsQ06+y0kyZVCqlPR+Pe8nPBrW2ti7Lm5ubtYyVf22yWc/hKc/NYYXyGmUdYHti624roFTAABlxXVCuRECMrZFYPKFpo6cLFr0EBT5Mo+rDq5lMhizL0gcrWQJfl2RLS0s6Cu/OxeiP15OUdlh'\r\n  + '50CZEtcP3m69d9RAwwMkWi3CnIVwt5Q1YOe5ZsPAsjPjxYIrem0dUlnI0PT29TBE/WDY7O0tLBYcuzjXR2dFNtORyrWe+N9ooy3pIWyxMzeUDkwcMKFpJLgHIGgN8sDaEXjxOGVDgFyNtNJGLUD6fpy'\r\n  + 'L8UIlCAW0Fjrdn43R+pJWyDpSXHMkGyiNS5YqEW0eMd26ZDkQhYMC+B1Np0GbW3ALcSTaIhKYTFACfWWXXvGojlRilpGWUZA6/y7nFlVpVFIhK6BbEGICJpHRG3+ndH/BOwIBX7hAODH4Pwzwa8cZTp'\r\n  + 'nId8ALILuy6Lbaruc5Kp9NpmpycpKmpKcpms5r/nOhdKLteGmKVmjnmBz/3DEB7M4cPq1F6IDgoYAADy7whlos9b17VdAjAPOc9gQ1g5bnu37x5k+bzKKFZR3OfZYxuGGBrz7IeKxigd27PAHyP3xDS'\r\n  + 'HtY3PlQZUGjd9jaUuG5ugZW+q5mSijpiLkWx03KyZvMFenOmib53OUVPD3bQwGKEcsgNfpaEoe0R0z6slGP6k9QDyDh414Nd4+Z2GVUGDB6UOaHEc8vk5V1Qe6IePCV64NmFoqRLC1E6NdRBZ1FeJws'\r\n  + 'RGspE6amBFL043E5X01HKYdfdkeD5MH0jCvnXZf7b9q81xStQk+F3/+Z6cz7tXMDju7WAPyf1rlz5OhTgPgaN2QOpJZrJWzSIPSGvGzDsh7q28zscxSI1w/ufxs4dRb78fZprP1ch89kRAPTU83r6Yo'\r\n  + 'a32m3nwMXHqv9mqZui/WfHH8XDc3iF+wNIuO6bvmgZ8L5eCImJZVy8B18ZxbjClKaHCpxWaNTwhv7A8SoRG8jvVqjhax/gfHRR8sDA4e6/aUEFqihUAj7LXsdab2kqMZv0PwyVCc1yj0KO7kOhjGzHY'\r\n  + 'DbUr5RR1mpHNYlD+dJfMvBwhe5ea264L/CCEmfyHV3/8ATVqGvAld2bP3KK9ITrKq988GIOe9ts1BowgP8P5V1Z/6/DdKjSqAwdndK7MJbHBwDFudU2ctdRlx1lnxr5klju5ipR1wCutwOnL/wVZf2o'\r\n  + 'jgKD/wF3ue8vRYKV55abqYDr0OBxnAP+vCopbyoTPAemnRjcs+VDT1AbDdxVRv/Px06ApyeELLWLoID+l6JEhfUCUfUrT+pjtyiOX/1mD3KwMepHwIdYq/0cDHgG5hpyIgJVdForKjwP5dFzHulqvvp'\r\n  + 'LI2iIUAa8f6gr7Sykf4h8/ZERIXaVdFoLKpUHFD25LTHw6htffSjUxKEo5Ef/mYkncDqGyrdOOlXThpW/crj3BSMIhVAR8COWlD/FaZ10qkEbZR3ZGh84YwShsWoD1k+nOrSJXwlNGz9WTSE/Vk+nja'\r\n  + 'GNH6uOgB+ro9PG0caPdRkQnk4bSxs/1kUhP+rTiQ3aWNr4sa4I+FGXTreANn5smAF16XQLaOPHhlHIj2o6bSxt/NiwCPgRpNPG08aPWxIBxs5nrsaslubj+AL7mJXfSNqUQfR/fzph4tKG32YAAAAAS'\r\n  + 'UVORK5CYII=';\r\n\r\ntype\r\n  TTMSFNCCustomRouteCalculator = class;\r\n  TTMSFNCRouteCalculatorRoute = class;\r\n  TTMSFNCRouteCalculatorSegments = class;\r\n  TTMSFNCRouteCalculatorAlternativeSegments = class;\r\n  TTMSFNCRouteCalculatorSegment = class;\r\n  TTMSFNCRouteCalculatorAlternativeSegment = class;\r\n\r\n  TTMSFNCRouteCalculatorService = (csAzure, csBing, csGoogle, csHere, csMapBox, csOpenRouteService, csGeoApify);\r\n  TTMSFNCRouteCalculatorLocationMode = (lmDevice, lmService);\r\n\r\n  TTMSFNCRouteCalculatorPolylineOptions = class(TPersistent)\r\n  private\r\n    FWayPointMarker: string;\r\n    FStrokeWidth: Integer;\r\n    FStrokeColor: TTMSFNCGraphicsColor;\r\n    FEndMarker: string;\r\n    FStrokeOpacity: Single;\r\n    FStartMarker: string;\r\n    FAddWayPointMarker: string;\r\n    FSelectedStrokeColor: TTMSFNCGraphicsColor;\r\n    FSelectedWayPointMarker: string;\r\n    function IsStrokeOpacityStored: Boolean;\r\n    procedure SetStrokeOpacity(const Value: Single);\r\n  public\r\n    constructor Create;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n  published\r\n    property StartMarker: string read FStartMarker write FStartMarker;\r\n    property EndMarker: string read FEndMarker write FEndMarker;\r\n    property WayPointMarker: string read FWayPointMarker write FWayPointMarker;\r\n    property AddWayPointMarker: string read FAddWayPointMarker write FAddWayPointMarker;\r\n    property SelectedWayPointMarker: string read FSelectedWayPointMarker write FSelectedWayPointMarker;\r\n    property StrokeColor: TTMSFNCGraphicsColor read FStrokeColor write FStrokeColor default gcBlue;\r\n    property StrokeWidth: Integer read FStrokeWidth write FStrokeWidth default 5;\r\n    property StrokeOpacity: Single read FStrokeOpacity write SetStrokeOpacity stored IsStrokeOpacityStored nodefault;\r\n    property SelectedStrokeColor: TTMSFNCGraphicsColor read FSelectedStrokeColor write FSelectedStrokeColor default gcRed;\r\n  end;\r\n\r\n  TTMSFNCRouteCalculatorHistoryManager = class(TTMSFNCUndoManager);\r\n\r\n  TTMSFNCRouteCalculatorOptions = class(TPersistent)\r\n  private\r\n    FIncludeAlternativeRoutes: Boolean;\r\n    FTravelMode: TTMSFNCDirectionsTravelMode;\r\n    FAvoidTolls: Boolean;\r\n    FPolyline: TTMSFNCRouteCalculatorPolylineOptions;\r\n    FHistoryEnabled: Boolean;\r\n    FLocale: string;\r\n    FlocaleMode: TTMSFNCMapsLocaleMode;\r\n    procedure SetPolyline(const Value: TTMSFNCRouteCalculatorPolylineOptions);\r\n  public\r\n    constructor Create;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n  published\r\n    property AvoidTolls: Boolean read FAvoidTolls write FAvoidTolls default False;\r\n    property IncludeAlternativeRoutes: Boolean read FIncludeAlternativeRoutes write FIncludeAlternativeRoutes default False;\r\n    property TravelMode: TTMSFNCDirectionsTravelMode read FTravelMode write FTravelMode default tmDriving;\r\n    property Polyline: TTMSFNCRouteCalculatorPolylineOptions read FPolyline write SetPolyline;\r\n    property HistoryEnabled: Boolean read FHistoryEnabled write FHistoryEnabled default False;\r\n    property Locale: string read FLocale write FLocale;\r\n    property LocaleMode: TTMSFNCMapsLocaleMode read FlocaleMode write FLocaleMode default mlmDefault;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCRouteCalculatorDirectionsItems = class(TTMSFNCOwnedCollection)\r\n  {$ELSE}\r\n  TTMSFNCRouteCalculatorDirectionsItems = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCDirectionsItem>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TTMSFNCRouteCalculatorSegment;\r\n    function GetItem(Index: Integer): TTMSFNCDirectionsItem;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCDirectionsItem);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; virtual;\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCRouteCalculatorSegment); virtual;\r\n    property Items[Index: Integer]: TTMSFNCDirectionsItem read GetItem write SetItem; default;\r\n    function Add: TTMSFNCDirectionsItem;\r\n    function Insert(Index: Integer): TTMSFNCDirectionsItem;\r\n  end;\r\n\r\n  TTMSFNCRouteCalculatorInfoMode = (cimDefault, cimUpdateDirections, cimAddDirections);\r\n\r\n  TTMSFNCRouteCalculatorInfo = class\r\n  private\r\n    FID: string;\r\n    FStartAddress: string;\r\n    FEndAddress: string;\r\n    FStartFound: Boolean;\r\n    FEndFound: Boolean;\r\n    FStartGeocoded: Boolean;\r\n    FEndGeocoded: Boolean;\r\n    FStartCoordinate: TTMSFNCMapsCoordinateRec;\r\n    FEndCoordinate: TTMSFNCMapsCoordinateRec;\r\n    FCallBack: Pointer;\r\n    FMode: TTMSFNCRouteCalculatorInfoMode;\r\n    FWayPoints: TTMSFNCMapsCoordinateRecArray;\r\n    FUpdateRoute: TTMSFNCRouteCalculatorRoute;\r\n    FUpdateSegments: array of TTMSFNCRouteCalculatorSegment;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\n  TTMSFNCRouteCalculatorAlternativeSegment = class(TCollectionItem)\r\n  private\r\n    FOwner: TTMSFNCRouteCalculatorAlternativeSegments;\r\n    FDataPointer: Pointer;\r\n    FDataBoolean: Boolean;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FStartCoordinate: TTMSFNCMapsCoordinate;\r\n    FEndCoordinate: TTMSFNCMapsCoordinate;\r\n    FCoordinates: TTMSFNCMapsCoordinates;\r\n    FDistance: Double;\r\n    FDuration: Integer;\r\n    function GetPolyline: TTMSFNCMapsCoordinateRecArray;\r\n    procedure SetCoordinates(const Value: TTMSFNCMapsCoordinates);\r\n    function GetSegment: TTMSFNCRouteCalculatorSegment;\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n    property Polyline: TTMSFNCMapsCoordinateRecArray read GetPolyline;\r\n    property Segment: TTMSFNCRouteCalculatorSegment read GetSegment;\r\n  published\r\n    property Coordinates: TTMSFNCMapsCoordinates read FCoordinates write SetCoordinates;\r\n    property Distance: Double read FDistance write FDistance;\r\n    property Duration: Integer read FDuration write FDuration;\r\n\r\n    property StartCoordinate: TTMSFNCMapsCoordinate read FStartCoordinate write FStartCoordinate;\r\n    property EndCoordinate: TTMSFNCMapsCoordinate read FEndCoordinate write FEndCoordinate;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCRouteCalculatorAlternativeSegments = class(TTMSFNCOwnedCollection)\r\n  {$ELSE}\r\n  TTMSFNCRouteCalculatorAlternativeSegments = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCRouteCalculatorAlternativeSegment>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TTMSFNCRouteCalculatorSegment;\r\n    function GetItem(Index: Integer): TTMSFNCRouteCalculatorAlternativeSegment;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCRouteCalculatorAlternativeSegment);\r\n    function GetSegment: TTMSFNCRouteCalculatorSegment;\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; virtual;\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCRouteCalculatorSegment); virtual;\r\n    property Items[Index: Integer]: TTMSFNCRouteCalculatorAlternativeSegment read GetItem write SetItem; default;\r\n    function Add: TTMSFNCRouteCalculatorAlternativeSegment;\r\n    function Insert(Index: Integer): TTMSFNCRouteCalculatorAlternativeSegment;\r\n    property Segment: TTMSFNCRouteCalculatorSegment read GetSegment;\r\n  end;\r\n\r\n\r\n  TTMSFNCRouteCalculatorSegment = class(TCollectionItem)\r\n  private\r\n    FOwner: TTMSFNCRouteCalculatorSegments;\r\n    FDataPointer: Pointer;\r\n    FDataBoolean: Boolean;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FID: string;\r\n    FStartAddress: string;\r\n    FEndAddress: string;\r\n    FStartCoordinate: TTMSFNCMapsCoordinate;\r\n    FEndCoordinate: TTMSFNCMapsCoordinate;\r\n    FCoordinates: TTMSFNCMapsCoordinates;\r\n    FDistance: Double;\r\n    FDuration: Integer;\r\n    FAlternativeSegments: TTMSFNCRouteCalculatorAlternativeSegments;\r\n    function GetPolyline: TTMSFNCMapsCoordinateRecArray;\r\n    function GetSegments: TTMSFNCRouteCalculatorSegments;\r\n    procedure SetCoordinates(const Value: TTMSFNCMapsCoordinates);\r\n    function GetNextSegment: TTMSFNCRouteCalculatorSegment;\r\n    function GetPreviousSegment: TTMSFNCRouteCalculatorSegment;\r\n    function GetRoute: TTMSFNCRouteCalculatorRoute;\r\n    procedure SetAlternativeSegments(\r\n      const Value: TTMSFNCRouteCalculatorAlternativeSegments);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n    property NextSegment: TTMSFNCRouteCalculatorSegment read GetNextSegment;\r\n    property PreviousSegment: TTMSFNCRouteCalculatorSegment read GetPreviousSegment;\r\n    property Segments: TTMSFNCRouteCalculatorSegments read GetSegments;\r\n    property Polyline: TTMSFNCMapsCoordinateRecArray read GetPolyline;\r\n    property Route: TTMSFNCRouteCalculatorRoute read GetRoute;\r\n  published\r\n    property ID: string read FID write FID;\r\n\r\n    property AlternativeSegments: TTMSFNCRouteCalculatorAlternativeSegments read FAlternativeSegments write SetAlternativeSegments;\r\n\r\n    property Coordinates: TTMSFNCMapsCoordinates read FCoordinates write SetCoordinates;\r\n    property Distance: Double read FDistance write FDistance;\r\n    property Duration: Integer read FDuration write FDuration;\r\n\r\n    property StartAddress: string read FStartAddress write FStartAddress;\r\n    property EndAddress: string read FEndAddress write FEndAddress;\r\n    property StartCoordinate: TTMSFNCMapsCoordinate read FStartCoordinate write FStartCoordinate;\r\n    property EndCoordinate: TTMSFNCMapsCoordinate read FEndCoordinate write FEndCoordinate;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCRouteCalculatorSegments = class(TTMSFNCOwnedCollection)\r\n  {$ELSE}\r\n  TTMSFNCRouteCalculatorSegments = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCRouteCalculatorSegment>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TTMSFNCRouteCalculatorRoute;\r\n    function GetItem(Index: Integer): TTMSFNCRouteCalculatorSegment;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCRouteCalculatorSegment);\r\n    function GetRoute: TTMSFNCRouteCalculatorRoute;\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; virtual;\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCRouteCalculatorRoute); virtual;\r\n    property Items[Index: Integer]: TTMSFNCRouteCalculatorSegment read GetItem write SetItem; default;\r\n    function Add: TTMSFNCRouteCalculatorSegment;\r\n    function Insert(Index: Integer): TTMSFNCRouteCalculatorSegment;\r\n    property Route: TTMSFNCRouteCalculatorRoute read GetRoute;\r\n  end;\r\n\r\n  TTMSFNCRouteCalculatorRoute = class(TCollectionItem)\r\n  private\r\n    FOwner: TTMSFNCCustomRouteCalculator;\r\n    FDataPointer: Pointer;\r\n    FDataBoolean: Boolean;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FSegments: TTMSFNCRouteCalculatorSegments;\r\n    FID: string;\r\n    FStartAddress: string;\r\n    FEndAddress: string;\r\n    FStartCoordinate: TTMSFNCMapsCoordinate;\r\n    FEndCoordinate: TTMSFNCMapsCoordinate;\r\n    FRouteName: string;\r\n    FActive: Boolean;\r\n    FSteps: TTMSFNCDirectionsSteps;\r\n    function GetPolyline: TTMSFNCMapsCoordinateRecArray;\r\n    function GetWayPoints: TTMSFNCMapsCoordinateRecArray;\r\n    function GetDistance: Double;\r\n    function GetDuration: Double;\r\n    function GetRouteCalculator: TTMSFNCCustomRouteCalculator;\r\n    procedure SetSteps(const Value: TTMSFNCDirectionsSteps);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n    function FirstSegment: TTMSFNCRouteCalculatorSegment;\r\n    function LastSegment: TTMSFNCRouteCalculatorSegment;\r\n    property Duration: Double read GetDuration;\r\n    property Distance: Double read GetDistance;\r\n    property Polyline: TTMSFNCMapsCoordinateRecArray read GetPolyline;\r\n    property WayPoints: TTMSFNCMapsCoordinateRecArray read GetWayPoints;\r\n    property RouteCalculator: TTMSFNCCustomRouteCalculator read GetRouteCalculator;\r\n  published\r\n    property ID: string read FID write FID;\r\n    property RouteName: string read FRouteName write FRouteName;\r\n    property Steps: TTMSFNCDirectionsSteps read FSteps write SetSteps;\r\n    property Segments: TTMSFNCRouteCalculatorSegments read FSegments write FSegments;\r\n    property Active: Boolean read FActive write FActive;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCRouteCalculatorRoutes = class(TTMSFNCOwnedCollection)\r\n  {$ELSE}\r\n  TTMSFNCRouteCalculatorRoutes = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCRouteCalculatorRoute>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TTMSFNCCustomRouteCalculator;\r\n    function GetItem(Index: Integer): TTMSFNCRouteCalculatorRoute;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCRouteCalculatorRoute);\r\n    function GetRouteCalculator: TTMSFNCCustomRouteCalculator;\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; virtual;\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCCustomRouteCalculator); virtual;\r\n    property Items[Index: Integer]: TTMSFNCRouteCalculatorRoute read GetItem write SetItem; default;\r\n    function Add: TTMSFNCRouteCalculatorRoute;\r\n    function Insert(Index: Integer): TTMSFNCRouteCalculatorRoute;\r\n    property RouteCalculator: TTMSFNCCustomRouteCalculator read GetRouteCalculator;\r\n  end;\r\n\r\n  { TTMSFNCCustomRouteCalculator }\r\n\r\n  TTMSFNCRouteCalculatorCalculateRouteCallback = {$IFNDEF LCLLIB}reference to {$ENDIF}procedure(const ARoute: TTMSFNCRouteCalculatorRoute){$IFDEF LCLLIB} of object{$ENDIF};\r\n  TTMSFNCRouteCalculatorCalculateRouteEvent = procedure(Sender: TObject; const ARoute: TTMSFNCRouteCalculatorRoute) of object;\r\n  TTMSFNCRouteCalculatorCalculateRoutesCompleteEvent = procedure(Sender: TObject) of object;\r\n  TTMSFNCRouteCalculatorLocationEvent = procedure(Sender: TObject; const ACoordinate: TTMSFNCMapsCoordinateRec) of object;\r\n  TTMSFNCRouteCalculatorGPXEvent = procedure(Sender: TObject; const ARoute: TTMSFNCRouteCalculatorRoute) of object;\r\n\r\n  TTMSFNCRouteCalculatorRouteCallBackWrapper = class\r\n  private\r\n    FCallback: TTMSFNCRouteCalculatorCalculateRouteCallback;\r\n  public\r\n    constructor Create(ACallback: TTMSFNCRouteCalculatorCalculateRouteCallback);\r\n  end;\r\n\r\n  TTMSFNCCustomRouteCalculator = class(TTMSFNCCustomComponent)\r\n  private\r\n    FAPIKey: string;\r\n    FLocation: TTMSFNCLocation;\r\n    {$IFDEF SENSORSUPPORT}\r\n    FLocationSensor: TLocationSensor;\r\n    {$ENDIF}\r\n    FGeocoding: TTMSFNCGeocoding;\r\n    FDirections: TTMSFNCDirections;\r\n    FService: TTMSFNCRouteCalculatorService;\r\n    FOnGetGeocoding: TTMSFNCGeocodingGetGeocodingEvent;\r\n    FOnGetDirections: TTMSFNCDirectionsGetDirectionsEvent;\r\n    FOnCalculateRoute: TTMSFNCRouteCalculatorCalculateRouteEvent;\r\n    FRoutes: TTMSFNCRouteCalculatorRoutes;\r\n    FOnGetRouteGeocoding: TTMSFNCGeocodingGetGeocodingEvent;\r\n    FOnGetRouteDirections: TTMSFNCDirectionsGetDirectionsEvent;\r\n    FOnGetLocation: TTMSFNCRouteCalculatorLocationEvent;\r\n    FOnCreateGPXSegment: TTMSFNCMapsGPXSegmentEvent;\r\n    FOnCreateGPXTrack: TTMSFNCMapsGPXTrackEvent;\r\n    FOnLoadGPXRouteComplete: TTMSFNCRouteCalculatorGPXEvent;\r\n    FOptions: TTMSFNCRouteCalculatorOptions;\r\n    FActive: Boolean;\r\n    FHistoryManager: TTMSFNCRouteCalculatorHistoryManager;\r\n    procedure SetService(const Value: TTMSFNCRouteCalculatorService);\r\n    procedure SetAPIKey(const Value: string);\r\n    procedure SetRoutes(const Value: TTMSFNCRouteCalculatorRoutes);\r\n    function GetHistoryManager: TTMSFNCRouteCalculatorHistoryManager;\r\n  protected\r\n    procedure DoGetGeocoding(Sender: TObject; const ARequest: TTMSFNCGeocodingRequest; const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\n    property OnGetGeocoding: TTMSFNCGeocodingGetGeocodingEvent read FOnGetGeocoding write FOnGetGeocoding;\r\n    property OnGetRouteGeocoding: TTMSFNCGeocodingGetGeocodingEvent read FOnGetRouteGeocoding write FOnGetRouteGeocoding;\r\n    procedure DoGetDirections(Sender: TObject; const ARequest: TTMSFNCDirectionsRequest; const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\n    property OnGetDirections: TTMSFNCDirectionsGetDirectionsEvent read FOnGetDirections write FOnGetDirections;\r\n    property OnGetRouteDirections: TTMSFNCDirectionsGetDirectionsEvent read FOnGetRouteDirections write FOnGetRouteDirections;\r\n    procedure DoCalculateRoute(const ARoute: TTMSFNCRouteCalculatorRoute; const ARouteInfo: TTMSFNCRouteCalculatorInfo);\r\n    property OnCalculateRoute: TTMSFNCRouteCalculatorCalculateRouteEvent read FOnCalculateRoute write FOnCalculateRoute;\r\n    property OnCalculateRouteInternal: TTMSFNCRouteCalculatorCalculateRouteEvent read FOnCalculateRoute write FOnCalculateRoute;\r\n    procedure DoGetLocation(Sender: TObject; const ARequest: TTMSFNCLocationRequest; const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\n    property OnGetLocation: TTMSFNCRouteCalculatorLocationEvent read FOnGetLocation write FOnGetLocation;\r\n\t{$IFDEF SENSORSUPPORT}  \r\n    procedure DoLocationChanged(Sender: TObject; const OldLocation, NewLocation: TLocationCoord2D);\r\n    {$ENDIF}\r\n    procedure DoCreateGPXTrack(AEventData: TTMSFNCMapsGPXTrackEventData); virtual;\r\n    procedure DoCreateGPXSegment(AEventData: TTMSFNCMapsGPXSegmentEventData); virtual;\r\n    property OnCreateGPXTrack: TTMSFNCMapsGPXTrackEvent read FOnCreateGPXTrack write FOnCreateGPXTrack;\r\n    property OnCreateGPXSegment: TTMSFNCMapsGPXSegmentEvent read FOnCreateGPXSegment write FOnCreateGPXSegment;\r\n    procedure DoLoadGPXRouteComplete(ARoute: TTMSFNCRouteCalculatorRoute); virtual;\r\n    property OnLoadGPXRouteComplete: TTMSFNCRouteCalculatorGPXEvent read FOnLoadGPXRouteComplete write FOnLoadGPXRouteComplete;\r\n\r\n    function GetInstance: NativeUInt; override;\r\n    function GeocodingReady: Boolean;\r\n    function DirectionsReady: Boolean;\r\n    function LocationReady: Boolean;\r\n    function GetAPIKey: string;\r\n    function GetVersionNr: Integer;\r\n    function GetDocURL: string; override;\r\n    function GetTipsURL: string; override;\r\n    function GetVersion: string; override;\r\n\r\n    function InternalSaveGPX(ARoute: TTMSFNCRouteCalculatorRoute; AMetaData: TTMSFNCMapsGPXMetaData): string;\r\n    function InternalLoadGPX(AText: string; ADoGeocoding: Boolean = False): TTMSFNCMapsGPXRec;\r\n\r\n    property Service: TTMSFNCRouteCalculatorService read FService write SetService default csGoogle;\r\n    property Version: string read GetVersion;\r\n    property APIKey: string read FAPIKey write SetAPIKey;\r\n    property Routes: TTMSFNCRouteCalculatorRoutes read FRoutes write SetRoutes;\r\n    property Options: TTMSFNCRouteCalculatorOptions read FOptions write FOptions;\r\n\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create; reintroduce; overload; virtual;\r\n    constructor Create(AOwner: TComponent); overload; override;\r\n    destructor Destroy; override;\r\n    procedure GetGeocoding(AAddress: string; ACallback: TTMSFNCGeocodingGetGeocodingCallBack = nil; AID: string = ''; ADataPointer: Pointer = nil); virtual;\r\n    procedure GetReverseGeocoding(ACoordinates: TTMSFNCMapsCoordinateRec; ACallback: TTMSFNCGeocodingGetReverseGeocodingCallBack = nil; AID: string = ''; ADataPointer: Pointer = nil); virtual;\r\n    procedure GetDirections(AOrigin, ADestination: TTMSFNCMapsCoordinateRec; ACallback: TTMSFNCDirectionsGetDirectionsCallBack = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil; AID: string = ''; ADataPointer: Pointer = nil); virtual;\r\n\r\n    procedure CalculateRoute(AStartAddress, AEndAddress: string; ACallback: TTMSFNCRouteCalculatorCalculateRouteCallback = nil; AID: string = ''; ADataPointer: Pointer = nil); overload; virtual;\r\n    procedure CalculateRoute(AStartCoordinate, AEndCoordinate: TTMSFNCMapsCoordinateRec; ACallback: TTMSFNCRouteCalculatorCalculateRouteCallback = nil; AWayPoints: TTMSFNCMapsCoordinateRecArray = nil; AID: string = ''; ADataPointer: Pointer = nil); overload; virtual;\r\n\r\n    procedure AddRouteSegment(ARoute: TTMSFNCRouteCalculatorRoute; AEndAddress: string; ACallback: TTMSFNCRouteCalculatorCalculateRouteCallback = nil; AID: string = ''; ADataPointer: Pointer = nil); overload; virtual;\r\n    procedure AddRouteSegment(ARoute: TTMSFNCRouteCalculatorRoute; AEndCoordinate: TTMSFNCMapsCoordinateRec; ACallback: TTMSFNCRouteCalculatorCalculateRouteCallback = nil; AID: string = ''; ADataPointer: Pointer = nil); overload; virtual;\r\n\r\n    procedure AddWayPointsToSegment(ASegment: TTMSFNCRouteCalculatorSegment; AWayPoints: TTMSFNCMapsCoordinateRecArray; ACallback: TTMSFNCRouteCalculatorCalculateRouteCallback = nil; AID: string = ''; ADataPointer: Pointer = nil); virtual;\r\n\r\n    procedure UpdateRouteSegment(ASegment: TTMSFNCRouteCalculatorSegment; AStartAddress, AEndAddress: string; ACallback: TTMSFNCRouteCalculatorCalculateRouteCallback = nil; AID: string = ''; ADataPointer: Pointer = nil); overload; virtual;\r\n    procedure UpdateRouteSegment(ASegment: TTMSFNCRouteCalculatorSegment; AStartCoordinate, AEndCoordinate: TTMSFNCMapsCoordinateRec; ACallback: TTMSFNCRouteCalculatorCalculateRouteCallback = nil; AID: string = ''; ADataPointer: Pointer = nil); overload; virtual;\r\n    procedure UpdateRouteSegmentStartAddress(ASegment: TTMSFNCRouteCalculatorSegment; AStartAddress: string; ACallback: TTMSFNCRouteCalculatorCalculateRouteCallback = nil; AID: string = ''; ADataPointer: Pointer = nil); overload; virtual;\r\n    procedure UpdateRouteSegmentEndAddress(ASegment: TTMSFNCRouteCalculatorSegment; AEndAddress: string; ACallback: TTMSFNCRouteCalculatorCalculateRouteCallback = nil; AID: string = ''; ADataPointer: Pointer = nil); overload; virtual;\r\n    procedure UpdateRouteSegmentStartCoordinate(ASegment: TTMSFNCRouteCalculatorSegment; AStartCoordinate: TTMSFNCMapsCoordinateRec; ACallback: TTMSFNCRouteCalculatorCalculateRouteCallback = nil; AID: string = ''; ADataPointer: Pointer = nil); overload; virtual;\r\n    procedure UpdateRouteSegmentEndCoordinate(ASegment: TTMSFNCRouteCalculatorSegment; AEndCoordinate: TTMSFNCMapsCoordinateRec; ACallback: TTMSFNCRouteCalculatorCalculateRouteCallback = nil; AID: string = ''; ADataPointer: Pointer = nil); overload; virtual;\r\n\r\n    procedure DeleteRoute(ARoute: TTMSFNCRouteCalculatorRoute);\r\n    procedure DeleteRouteSegment(ASegment: TTMSFNCRouteCalculatorSegment; ACallback: TTMSFNCRouteCalculatorCalculateRouteCallback = nil);\r\n    procedure GetCurrentLocation(AMode: TTMSFNCRouteCalculatorLocationMode = lmDevice);\r\n\r\n    function LoadGPXFromStream(const AStream: TStream; ADoGeocoding: Boolean = False): TTMSFNCMapsGPXRec;\r\n    {$IFNDEF WEBLIB}\r\n    function LoadGPXFromFile(AFileName: string; ADoGeocoding: Boolean = False): TTMSFNCMapsGPXRec;\r\n    {$ENDIF}\r\n    function LoadGPXFromText(AText: string; ADoGeocoding: Boolean = False): TTMSFNCMapsGPXRec;\r\n\r\n    procedure SaveToGPXStream(ARoute: TTMSFNCRouteCalculatorRoute; AStream: TStream); overload; virtual;\r\n    procedure SaveToGPXStream(ARoute: TTMSFNCRouteCalculatorRoute; AStream: TStream; AMetaData: TTMSFNCMapsGPXMetaData); overload; virtual;\r\n    procedure SaveToGPXFile(ARoute: TTMSFNCRouteCalculatorRoute; AFileName: string); overload; virtual;\r\n    procedure SaveToGPXFile(ARoute: TTMSFNCRouteCalculatorRoute; AFileName: string; AMetaData: TTMSFNCMapsGPXMetaData); overload; virtual;\r\n    function SaveToGPXText(ARoute: TTMSFNCRouteCalculatorRoute): string; overload; virtual;\r\n    function SaveToGPXText(ARoute: TTMSFNCRouteCalculatorRoute; AMetaData: TTMSFNCMapsGPXMetaData): string; overload; virtual;\r\n\r\n    procedure SaveRoutesToStream(AStream: TStream); virtual;\r\n    function SaveRoutesToText: string; virtual;\r\n    procedure SaveRoutesToFile(AFileName: string); virtual;\r\n\r\n    procedure LoadRoutesFromStream(AStream: TStream); virtual;\r\n    procedure LoadRoutesFromText(AText: string); virtual;\r\n    {$IFNDEF WEBLIB}\r\n    procedure LoadRoutesFromFile(AFileName: string); virtual;\r\n    {$ENDIF}\r\n\r\n    function RunnningRequestCount: Integer;\r\n\r\n    procedure Clear; virtual;\r\n    procedure ClearRoutes; virtual;\r\n    procedure SaveToGPXStream(ACoordinates: TTMSFNCMapsCoordinateRecArray; AStream: TStream); overload; virtual;\r\n    procedure SaveToGPXStream(ACoordinates: TTMSFNCMapsCoordinateRecArray; AStream: TStream; AMetaData: TTMSFNCMapsGPXMetaData); overload; virtual;\r\n    procedure SaveToGPXFile(ACoordinates: TTMSFNCMapsCoordinateRecArray; AFileName: string); overload; virtual;\r\n    procedure SaveToGPXFile(ACoordinates: TTMSFNCMapsCoordinateRecArray; AFileName: string; AMetaData: TTMSFNCMapsGPXMetaData); overload; virtual;\r\n    function SaveToGPXText(ACoordinates: TTMSFNCMapsCoordinateRecArray): string; overload; virtual;\r\n    function SaveToGPXText(ACoordinates: TTMSFNCMapsCoordinateRecArray; AMetaData: TTMSFNCMapsGPXMetaData): string; overload; virtual;\r\n    function HasRoutes: Boolean; virtual;\r\n    property Geocoding: TTMSFNCGeocoding read FGeocoding;\r\n    property Directions: TTMSFNCDirections read FDirections;\r\n    property Active: Boolean read FActive write FActive default False;\r\n    property HistoryManager: TTMSFNCRouteCalculatorHistoryManager read GetHistoryManager;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  TTMSFNCRouteCalculator = class(TTMSFNCCustomRouteCalculator)\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n  published\r\n    property OnGetGeocoding;\r\n    property OnGetDirections;\r\n    property OnGetRouteGeocoding;\r\n    property OnGetRouteDirections;\r\n    property OnCalculateRoute;\r\n    property OnCreateGPXTrack;\r\n    property OnCreateGPXSegment;\r\n    property OnLoadGPXRouteComplete;\r\n    property OnGetLocation;\r\n    property APIKey;\r\n    property Service;\r\n    property Version;\r\n    property Routes;\r\n    property Options;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  {$IFDEF MSWINDOWS}\r\n  Windows,\r\n  {$ENDIF}\r\n  {%H-}Math,\r\n  WEBLib.TMSFNCUtils,\r\n  WEBLib.TMSFNCPersistence,\r\n  SysUtils\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Types\r\n  {$ENDIF}\r\n  ;\r\n  \r\n {$R TMSFNCRouteCalculator.res}\r\n\r\n{ TTMSFNCCustomRouteCalculator }\r\n\r\nfunction TTMSFNCCustomRouteCalculator.GetAPIKey: string;\r\nbegin\r\n  Result := APIKey;\r\nend;\r\n\r\nfunction GetFirstChildNode(const ANode: TTMSFNCMapsXMLNode): TTMSFNCMapsXMLDomNode;\r\nbegin\r\n  {$IFNDEF LCLWEBLIB}\r\n  Result := ANode.DOMNode.firstChild;\r\n  {$ELSE}\r\n  Result := ANode.firstChild;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction FindNodeAttribute(const ANode: TTMSFNCMapsXMLDOMNode; const ANodeName: string): TTMSFNCMapsXMLDomNode;\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  asm\r\n    if (ANode.attributes){\r\n      return ANode.attributes.getNamedItem(ANodeName);\r\n    }else{\r\n      return undefined;\r\n    }\r\n  end;\r\n  {$ELSE}\r\n  Result := ANode.Attributes.GetNamedItem(ANodeName);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction FindNode(const ANode: TTMSFNCMapsXMLNode; const ANodeName: string): TTMSFNCMapsXMLNode;\r\nbegin\r\n  {$IFNDEF LCLLIB}\r\n  Result := ANode.ChildNodes.FindNode(ANodeName);\r\n  {$ELSE}\r\n  Result := ANode.FindNode(ANodeName);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction NodeToString(ANode: TTMSFNCMapsXMLDOMNode): string;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(ANode) then\r\n    Exit;\r\n\r\n  Result := ANode.nodeValue;\r\nend;\r\n\r\n\r\n{$IFNDEF WEBLIB}\r\nfunction TTMSFNCCustomRouteCalculator.LoadGPXFromFile(AFileName: string; ADoGeocoding: Boolean = False): TTMSFNCMapsGPXRec;\r\nvar\r\n  ms: TMemoryStream;\r\nbegin\r\n  ms := TMemoryStream.Create;\r\n  try\r\n    ms.LoadFromFile(AFileName);\r\n    Result := LoadGPXFromStream(ms, ADoGeocoding);\r\n  finally\r\n    ms.Free;\r\n  end;\r\nend;\r\n\r\n{$ENDIF}\r\n\r\nfunction TTMSFNCCustomRouteCalculator.LoadGPXFromStream(const AStream: TStream; ADoGeocoding: Boolean = False): TTMSFNCMapsGPXRec;\r\nvar\r\n  s: TStringStream;\r\nbegin\r\n  s := TStringStream.Create('');\r\n  try\r\n    AStream.Position := 0;\r\n    s.CopyFrom(AStream, AStream.Size);\r\n    Result := LoadGPXFromText(s.DataString, ADoGeocoding);\r\n  finally\r\n    s.Free;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomRouteCalculator.LoadGPXFromText(AText: string; ADoGeocoding: Boolean = False): TTMSFNCMapsGPXRec;\r\nbegin\r\n  Result := InternalLoadGPX(AText, ADoGeocoding);\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\nprocedure TTMSFNCCustomRouteCalculator.LoadRoutesFromFile(AFileName: string);\r\nvar\r\n  ms: TMemoryStream;\r\nbegin\r\n  ms := TMemoryStream.Create;\r\n  try\r\n    ms.LoadFromFile(AFileName);\r\n    ms.Position := 0;\r\n    LoadRoutesFromStream(ms);\r\n  finally\r\n    ms.Free;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.LoadRoutesFromStream(AStream: TStream);\r\nbegin\r\n  TTMSFNCPersistence.LoadSettingsFromStream(Routes, AStream);\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.LoadRoutesFromText(AText: string);\r\nvar\r\n  s: TStringStream;\r\nbegin\r\n  s := TStringStream.Create(AText);\r\n  try\r\n    s.Position := 0;\r\n    LoadRoutesFromStream(s);\r\n  finally\r\n    s.Free;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomRouteCalculator.InternalLoadGPX(AText: string; ADoGeocoding: Boolean = False): TTMSFNCMapsGPXRec;\r\nvar\r\n  xmldoc: TTMSFNCMapsXMLDocument;\r\n  iNode, nNode, sNode: TTMSFNCMapsXMLNode;\r\n  snlat, snlng, cNode, eNode, pNode: TTMSFNCMapsXMLDomNode;\r\n  v: Double;\r\n  parentNode: TTMSFNCMapsXMLNode;\r\n  gpx11: Boolean;\r\n  cnt, cntTr, cntSeg: Integer;\r\n  {$IFDEF LCLLIB}\r\n  ss: TStringStream;\r\n  {$ENDIF}\r\n  allpath: TTMSFNCMapsCoordinateRecArray;\r\n  nodeName, timeStamp: string;\r\n  ele, maxHeight, minHeight: Double;\r\n  heightFound: Boolean;\r\n  trackEventData: TTMSFNCMapsGPXTrackEventData;\r\n  segmentEventData: TTMSFNCMapsGPXSegmentEventData;\r\n  I, J, K: Integer;\r\n  r: TTMSFNCRouteCalculatorRoute;\r\n  s: TTMSFNCRouteCalculatorSegment;\r\n  c: TTMSFNCMapsCoordinateItem;\r\n  distance: double;\r\n  o: TTMSFNCRouteCalculatorInfo;\r\nbegin\r\n  {$IFDEF LCLLIB}\r\n  ss := TStringStream.Create(AText);\r\n  try\r\n    ReadXMLFile(xmldoc, ss);\r\n  finally\r\n    ss.Free;\r\n  end;\r\n  {$ELSE}\r\n  {$IFDEF WEBLIB}\r\n  asm\r\n    var parser = new DOMParser();\r\n    xmldoc = parser.parseFromString(AText, 'text/xml');\r\n  end;\r\n  {$ELSE}\r\n  xmldoc := TXmlDocument.Create(nil);\r\n  xmldoc.LoadFromXML(AText);\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  parentNode := xmldoc.DocumentElement;\r\n\r\n  gpx11 := false;\r\n  cntTr := -1;\r\n  minHeight := 0;\r\n  maxHeight := 0;\r\n\r\n  if Assigned(parentNode) then\r\n  begin\r\n    iNode := FindNode(parentNode, 'trk');\r\n\r\n    if not Assigned(iNode) then\r\n    begin\r\n      iNode := FindNode(parentNode, 'rte');\r\n      gpx11 := true;\r\n    end;\r\n\r\n    repeat\r\n      if Assigned(iNode) then\r\n      begin\r\n        cntSeg := -1;\r\n        inc(cntTr);\r\n\r\n        SetLength(Result.Tracks, cntTr + 1);\r\n\r\n        nNode := FindNode(iNode, 'name');\r\n        if Assigned(nNode) then\r\n        begin\r\n          {$IFNDEF LCLWEBLIB}\r\n          Result.Tracks[cntTr].Name := nNode.Text;\r\n          {$ENDIF}\r\n          {$IFDEF LCLWEBLIB}\r\n          Result.Tracks[cntTr].Name := nNode.nodeValue;\r\n          {$ENDIF}\r\n        end;\r\n\r\n        trackEventData := TTMSFNCMapsGPXTrackEventData.Create;\r\n        trackEventData.Node := iNode{$IFNDEF LCLWEBLIB}.DOMNode{$ENDIF};\r\n        trackEventData.Data := Result.Tracks[cntTr];\r\n        try\r\n        DoCreateGPXTrack(trackEventData);\r\n        finally\r\n          trackEventData.Free;\r\n        end;\r\n\r\n        if not gpx11 then\r\n          sNode := FindNode(iNode, 'trkseg')\r\n        else\r\n          sNode := iNode;\r\n\r\n        repeat\r\n          if Assigned(sNode) and sNode.HasChildNodes then\r\n          begin\r\n            cnt := -1;\r\n            inc(cntSeg);\r\n            SetLength(Result.Tracks[cntTr].Segments, cntSeg + 1);\r\n            heightFound := false;\r\n\r\n            cNode := GetFirstChildNode(sNode);\r\n\r\n            while Assigned(cNode) do\r\n            begin\r\n              pNode := cNode;\r\n              nodeName := pNode.NodeName;\r\n\r\n              if not gpx11 or (gpx11 and (pNode.NodeName = 'rtept')) then\r\n              begin\r\n                snlat := FindNodeAttribute(pNode, 'lat');\r\n                snlng := FindNodeAttribute(pNode, 'lon');\r\n\r\n                if Assigned(snlat) and Assigned(snlng) then\r\n                begin\r\n                  inc(cnt);\r\n                  SetLength(Result.Tracks[cntTr].Segments[cntSeg], cnt + 1);\r\n\r\n                  if nodeName = 'trkpt' then\r\n                  begin\r\n                    eNode := FindNodeAttribute(pNode, 'ele');\r\n                    if Assigned(eNode) then\r\n                    begin\r\n                      ele := 0;\r\n                      if TTMSFNCUtils.TryStrToFloatDot(eNode.nodeValue, ele) then\r\n                      begin\r\n                        if heightFound then\r\n                        begin\r\n                          if ele > maxHeight then\r\n                            maxHeight := ele;\r\n                          if ele < minHeight then\r\n                            minHeight := ele;\r\n                        end\r\n                        else\r\n                        begin\r\n                          heightFound := true;\r\n                          maxHeight := ele;\r\n                          minHeight := ele;\r\n                        end;\r\n\r\n                        Result.Tracks[cntTr].Segments[cntSeg][cnt].Elevation := ele;\r\n                        Result.Tracks[cntTr].Segments[cntSeg][cnt].HasElevation := True;\r\n                      end;\r\n                    end;\r\n\r\n                    eNode := FindNodeAttribute(pNode, 'time');\r\n                    if Assigned(eNode) then\r\n                    begin\r\n                      timestamp := eNode.nodeValue;\r\n                      if timestamp <> '' then\r\n                      begin\r\n                        Result.Tracks[cntTr].Segments[cntSeg][cnt].TimeStamp := TTMSFNCUtils.ISOToDateTime(timestamp, True);\r\n                        Result.Tracks[cntTr].Segments[cntSeg][cnt].HasTimeStamp := True;\r\n                      end;\r\n                    end;\r\n                  end;\r\n\r\n                  v := 0;\r\n                  if TTMSFNCUtils.TryStrToFloatDot(snlat.nodeValue, v) then\r\n                    Result.Tracks[cntTr].Segments[cntSeg][cnt].Latitude := v;\r\n\r\n                  v := 0;\r\n                  if TTMSFNCUtils.TryStrToFloatDot(snlng.nodeValue, v) then\r\n                    Result.Tracks[cntTr].Segments[cntSeg][cnt].Longitude := v;\r\n\r\n                  SetLength(allpath, Length(allpath) + 1);\r\n                  allpath[Length(allpath) - 1] := CreateCoordinate(Result.Tracks[cntTr].Segments[cntSeg][cnt].Latitude, Result.Tracks[cntTr].Segments[cntSeg][cnt].Longitude);\r\n\r\n                  segmentEventData := TTMSFNCMapsGPXSegmentEventData.Create;\r\n                  segmentEventData.Node := pNode;\r\n                  segmentEventData.Data := Result.Tracks[cntTr].Segments[cntSeg][cnt];\r\n                  try\r\n                    DoCreateGPXSegment(segmentEventData);\r\n                  finally\r\n                    segmentEventData.Free;\r\n                  end;\r\n                end;\r\n              end;\r\n\r\n              cNode := cNode.nextSibling;\r\n            end;\r\n          end;\r\n\r\n          if Assigned(sNode) then\r\n            sNode := sNode.NextSibling;\r\n\r\n        until (not Assigned(sNode));\r\n      end;\r\n\r\n      if Assigned(iNode) then\r\n        iNode := iNode.NextSibling;\r\n    until (not Assigned(iNode));\r\n  end;\r\n\r\n  for I := 0 to Length(Result.Tracks) - 1 do\r\n  begin\r\n    r := Routes.Add;\r\n    r.RouteName := Result.Tracks[I].Name;\r\n    for J := 0 to Length(Result.Tracks[I].Segments) - 1 do\r\n    begin\r\n      distance := 0;\r\n      s := r.Segments.Add;\r\n      for K := 0 to Length(Result.Tracks[I].Segments[J]) - 1 do\r\n      begin\r\n        c := s.Coordinates.Add;\r\n        c.Latitude := Result.Tracks[I].Segments[J][K].Latitude;\r\n        c.Longitude := Result.Tracks[I].Segments[J][K].Longitude;\r\n        if K = 0 then\r\n        begin\r\n          if J = 0 then\r\n            r.FStartCoordinate.Assign(c.Coordinate);\r\n          s.FStartCoordinate.Assign(c.Coordinate);\r\n        end;\r\n        if K = Length(Result.Tracks[I].Segments[J]) - 1 then\r\n        begin\r\n          if J = Length(Result.Tracks[I].Segments) - 1 then\r\n            r.FEndCoordinate.Assign(c.Coordinate);\r\n          s.FEndCoordinate.Assign(c.Coordinate);\r\n        end;\r\n        if K > 0 then\r\n          distance := distance + MeasureDistance(c.Coordinate.ToRec, s.Coordinates[K - 1].Coordinate.ToRec);\r\n      end;\r\n      s.Distance := distance;\r\n    end;\r\n    if not ADoGeocoding then\r\n      DoLoadGPXRouteComplete(r)\r\n    else\r\n    begin\r\n      for J := 0 to r.Segments.Count - 1 do\r\n      begin\r\n        s := r.Segments[J];\r\n        o := TTMSFNCRouteCalculatorInfo.Create;\r\n        o.FStartGeocoded := False;\r\n        o.FEndGeocoded := True;\r\n        GetReverseGeocoding(s.FStartCoordinate.ToRec, nil, 'GPXStart', o);\r\n        GetReverseGeocoding(s.FEndCoordinate.ToRec, nil, 'GPXEnd', o);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomRouteCalculator.InternalSaveGPX(\r\n  ARoute: TTMSFNCRouteCalculatorRoute;\r\n  AMetaData: TTMSFNCMapsGPXMetaData): string;\r\nvar\r\n  ca: TTMSFNCMapsCoordinateRecArray;\r\nvar\r\n  I, J: integer;\r\n  hdr,ftr, wpts: string;\r\n  sl: TStringList;\r\n  {$IFDEF WEBLIB}\r\n  d, t: string;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  d, t: Char;\r\n  {$ENDIF}\r\nbegin\r\n  t := FormatSettings.ThousandSeparator;\r\n  d := FormatSettings.DecimalSeparator;\r\n  FormatSettings.DecimalSeparator := '.';\r\n  FormatSettings.ThousandSeparator := ',';\r\n\r\n  ca := ARoute.GetWayPoints;\r\n  wpts := '';\r\n  for I := 0 to Length(ca) - 1 do\r\n  begin\r\n    wpts := wpts + Format('<wpt lat=\"%.7f\" lon=\"%.7f\">', [ca[I].Latitude, ca[I].Longitude]);\r\n    if ca[I].HasElevation then\r\n      wpts := wpts + Format('<ele>%.7f</ele>', [ARoute.GetWayPoints[I].Elevation]);\r\n    if ca[I].Description <> '' then\r\n      wpts := wpts + '<name>' + ca[I].Description + '</name>';\r\n    wpts := wpts + '</wpt>';\r\n  end;\r\n\r\n  hdr :=\r\n    '<?xml version=\"1.0\"?>'+\r\n    '<gpx xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" xmlns:xsd=\"http://www.w3.org/2001/XMLSchema\" '+\r\n    'xsi:schemaLocation=\"http://www.topografix.com/GPX/1/1 http://www.topografix.com/GPX/1/1/gpx.xsd\" version=\"1.1\" creator=\"TMS FNC Maps\" xmlns=\"http://www.topografix.com/GPX/1/1\">'+\r\n    '<metadata>'+\r\n    '<author>'+\r\n    '<name>%s</name>'+\r\n    '<link href=\"%s\" />'+\r\n    '</author>'+\r\n    '</metadata>'+\r\n    wpts +\r\n    '<trk>'+\r\n    '<name>%s</name>'+\r\n    '<type>%s</type>';\r\n\r\n  ftr :=\r\n    '</trk>'+\r\n    '</gpx>';\r\n\r\n  hdr := Format(hdr,[AMetaData.AuthorName, AMetaData.AuthorLink, AMetaData.TrackName, AMetaData.TrackType]);\r\n\r\n  sl := TStringList.Create;\r\n  try\r\n    sl.Add(hdr);\r\n\r\n    for I := 0 to ARoute.Segments.Count - 1 do\r\n    begin\r\n      sl.Add('<trkseg>');\r\n      for J := 0 to ARoute.Segments[I].Coordinates.Count - 1 do\r\n        sl.Add(Format('<trkpt lat=\"%.7f\" lon=\"%.7f\" />', [ARoute.Segments[I].Coordinates[J].Latitude, ARoute.Segments[I].Coordinates[J].Longitude]));\r\n      sl.Add('</trkseg>');\r\n    end;\r\n\r\n    sl.Add(ftr);\r\n\r\n    Result := sl.Text;\r\n  finally\r\n    sl.Free;\r\n  end;\r\n\r\n  FormatSettings.ThousandSeparator := t;\r\n  FormatSettings.DecimalSeparator := d;\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.GetCurrentLocation(\r\n  AMode: TTMSFNCRouteCalculatorLocationMode);\r\nbegin\r\n  if AMode = lmService then\r\n  begin\r\n    if not LocationReady then\r\n    begin\r\n      raise Exception.Create('Please set API key!');\r\n      Exit;\r\n    end;\r\n\r\n    if (Service = csGoogle) then\r\n      FLocation.GetLocation;\r\n  end\r\n  else\r\n  begin\r\n    {$IFDEF SENSORSUPPORT}  \r\n    FLocationSensor.Active := True;\r\n    {$ENDIF}\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.GetDirections(AOrigin,\r\n  ADestination: TTMSFNCMapsCoordinateRec; ACallback: TTMSFNCDirectionsGetDirectionsCallback = nil;\r\n  AWayPoints: TTMSFNCMapsCoordinateRecArray = nil; AID: string = ''; ADataPointer: Pointer = nil);\r\nbegin\r\n  if not DirectionsReady then\r\n  begin\r\n    raise Exception.Create('Please set API key!');\r\n    Exit;\r\n  end;\r\n\r\n  FDirections.GetDirections(AOrigin, ADestination, ACallBack, AID, ADataPointer,\r\n    Options.IncludeAlternativeRoutes, Options.TravelMode, AWayPoints, False, Options.Locale, Options.LocaleMode, Options.AvoidTolls);\r\nend;\r\n\r\nfunction TTMSFNCCustomRouteCalculator.GetDocURL: string;\r\nbegin\r\n  Result := TTMSFNCRouteCalculatorDocURL;\r\nend;\r\n\r\nfunction TTMSFNCCustomRouteCalculator.GetVersion: string;\r\nvar\r\n  vn: Integer;\r\nbegin\r\n  vn := GetVersionNr;\r\n  Result := IntToStr(Hi(Hiword(vn)))+'.'+IntToStr(Lo(Hiword(vn)))+'.'+IntToStr(Hi(Loword(vn)))+'.'+IntToStr(Lo(Loword(vn)));\r\nend;\r\n\r\nfunction TTMSFNCCustomRouteCalculator.GetVersionNr: Integer;\r\nbegin\r\n  Result := MakeLong(MakeWord(BLD_VER,REL_VER),MakeWord(MIN_VER,MAJ_VER));\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.SaveToGPXFile(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray; AFileName: string);\r\nbegin\r\n  SaveToGPXFile(ACoordinates, AFileName, DefaultGPXMetaData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.SaveToGPXFile(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray; AFileName: string;\r\n  AMetaData: TTMSFNCMapsGPXMetaData);\r\nvar\r\n  sl: TStringList;\r\nbegin\r\n  sl := TStringList.Create;\r\n  try\r\n    sl.Text := SaveToGPXText(ACoordinates, AMetaData);\r\n    sl.SaveToFile(AFileName);\r\n  finally\r\n    sl.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.SaveToGPXStream(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray; AStream: TStream);\r\nbegin\r\n  SaveToGPXStream(ACoordinates, AStream, DefaultGPXMetaData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.SaveToGPXStream(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray; AStream: TStream;\r\n  AMetaData: TTMSFNCMapsGPXMetaData);\r\nvar\r\n  ss: TStringStream;\r\nbegin\r\n  ss := TStringStream.Create(SaveToGPXText(ACoordinates, AMetaData));\r\n  try\r\n    AStream.CopyFrom(ss, ss.Size);\r\n  finally\r\n    ss.Free;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomRouteCalculator.SaveToGPXText(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray): string;\r\nbegin\r\n  Result := SaveToGPX(ACoordinates, DefaultGPXMetaData);\r\nend;\r\n\r\nfunction TTMSFNCCustomRouteCalculator.SaveToGPXText(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray;\r\n  AMetaData: TTMSFNCMapsGPXMetaData): string;\r\nbegin\r\n  Result := SaveToGPX(ACoordinates, AMetaData);\r\nend;\r\n\r\nfunction TTMSFNCCustomRouteCalculator.HasRoutes: Boolean;\r\nbegin\r\n  Result := False;\r\n  if Routes.Count <= 0 then\r\n    Exit;\r\n\r\n  if Routes[0].Segments.Count <= 0 then\r\n    Exit;\r\n\r\n  if Routes[0].Segments[0].Coordinates.Count <= 0 then\r\n    Exit;\r\n\r\n  Result := True;\r\nend;\r\n\r\nfunction TTMSFNCCustomRouteCalculator.LocationReady: Boolean;\r\nbegin\r\n  if Assigned(FLocation) then\r\n    FLocation.APIKey := APIKey;\r\n  Result := Assigned(FLocation) and (FLocation.APIKey <> '');\r\nend;\r\n\r\nfunction TTMSFNCCustomRouteCalculator.RunnningRequestCount: Integer;\r\nbegin\r\n  Result := FDirections.GetRequestCount(True);\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.AddRouteSegment(\r\n  ARoute: TTMSFNCRouteCalculatorRoute; AEndCoordinate: TTMSFNCMapsCoordinateRec;\r\n  ACallback: TTMSFNCRouteCalculatorCalculateRouteCallback = nil; AID: string = '';\r\n  ADataPointer: Pointer = nil);\r\nvar\r\n  o: TTMSFNCRouteCalculatorInfo;\r\n  sg: TTMSFNCRouteCalculatorSegment;\r\nbegin\r\n  if not Assigned(ARoute) or (ARoute.Segments.Count = 0) then\r\n    Exit;\r\n\r\n  o := TTMSFNCRouteCalculatorInfo.Create;\r\n  o.FID := AID;\r\n\r\n  sg := ARoute.LastSegment;\r\n\r\n  o.FStartAddress := sg.EndAddress;\r\n  o.FStartCoordinate := sg.EndCoordinate.ToRec;\r\n  o.FEndCoordinate := AEndCoordinate;\r\n  o.FUpdateRoute := ARoute;\r\n  o.FMode := cimAddDirections;\r\n\r\n  if Assigned(ACallback) then\r\n    o.FCallBack := TTMSFNCRouteCalculatorRouteCallBackWrapper.Create(ACallback)\r\n  else\r\n    o.FCallBack := nil;\r\n\r\n  GetDirections(o.FStartCoordinate, o.FEndCoordinate, nil, nil, AID, o);\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.AddWayPointsToSegment(\r\n  ASegment: TTMSFNCRouteCalculatorSegment;\r\n  AWayPoints: TTMSFNCMapsCoordinateRecArray;\r\n  ACallback: TTMSFNCRouteCalculatorCalculateRouteCallback; AID: string;\r\n  ADataPointer: Pointer);\r\nvar\r\n  o: TTMSFNCRouteCalculatorInfo;\r\nbegin\r\n  if not Assigned(ASegment) then\r\n    Exit;\r\n\r\n  o := TTMSFNCRouteCalculatorInfo.Create;\r\n  o.FID := AID;\r\n  o.FUpdateRoute := ASegment.Route;\r\n  o.FMode := cimUpdateDirections;\r\n\r\n  o.FStartCoordinate := ASegment.StartCoordinate.ToRec;\r\n  o.FEndCoordinate := ASegment.EndCoordinate.ToRec;\r\n  SetLength(o.FUpdateSegments, 1);\r\n  o.FUpdateSegments[0] := ASegment;\r\n\r\n  if Assigned(ACallback) then\r\n    o.FCallBack := TTMSFNCRouteCalculatorRouteCallBackWrapper.Create(ACallback)\r\n  else\r\n    o.FCallBack := nil;\r\n\r\n  GetDirections(o.FStartCoordinate, o.FEndCoordinate, nil, AWayPoints, AID, o);\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.AddRouteSegment(\r\n  ARoute: TTMSFNCRouteCalculatorRoute; AEndAddress: string;\r\n  ACallback: TTMSFNCRouteCalculatorCalculateRouteCallback = nil; AID: string = '';\r\n  ADataPointer: Pointer = nil);\r\nvar\r\n  o: TTMSFNCRouteCalculatorInfo;\r\n  sg: TTMSFNCRouteCalculatorSegment;\r\nbegin\r\n  if not Assigned(ARoute) or (ARoute.Segments.Count = 0) then\r\n    Exit;\r\n\r\n  o := TTMSFNCRouteCalculatorInfo.Create;\r\n  o.FID := AID;\r\n\r\n  sg := ARoute.LastSegment;\r\n\r\n  o.FStartAddress := sg.EndAddress;\r\n  o.FStartCoordinate := sg.EndCoordinate.ToRec;\r\n  o.FEndAddress := AEndAddress;\r\n  o.FStartFound := True;\r\n  o.FUpdateRoute := ARoute;\r\n  o.FMode := cimAddDirections;\r\n\r\n  if Assigned(ACallback) then\r\n    o.FCallBack := TTMSFNCRouteCalculatorRouteCallBackWrapper.Create(ACallback)\r\n  else\r\n    o.FCallBack := nil;\r\n\r\n  GetGeocoding(o.FEndAddress, nil, 'End', o);\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if (Source is TTMSFNCCustomRouteCalculator) then\r\n  begin\r\n    FActive := (Source as TTMSFNCCustomRouteCalculator).Active;\r\n    FService := (Source as TTMSFNCCustomRouteCalculator).Service;\r\n    FAPIKey := (Source as TTMSFNCCustomRouteCalculator).APIKey;\r\n    FRoutes.Assign((Source as TTMSFNCCustomRouteCalculator).Routes);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.GetGeocoding(AAddress: string; ACallback: TTMSFNCGeocodingGetGeocodingCallBack = nil; AID: string = ''; ADataPointer: Pointer = nil);\r\nbegin\r\n  if not GeocodingReady then\r\n  begin\r\n    raise Exception.Create('Please set API key!');\r\n    Exit;\r\n  end;\r\n\r\n  FGeocoding.GetGeocoding(AAddress, ACallBack, AID, ADataPointer);\r\nend;\r\n\r\nfunction TTMSFNCCustomRouteCalculator.GetHistoryManager: TTMSFNCRouteCalculatorHistoryManager;\r\nbegin\r\n  if not Assigned(FHistoryManager) then\r\n    FHistoryManager := TTMSFNCRouteCalculatorHistoryManager.Create(Routes);\r\n\r\n  Result := FHistoryManager;\r\nend;\r\n\r\nfunction TTMSFNCCustomRouteCalculator.GetInstance: NativeUInt;\r\nbegin\r\n  Result := HInstance;\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.GetReverseGeocoding(ACoordinates: TTMSFNCMapsCoordinateRec; ACallback: TTMSFNCGeocodingGetReverseGeocodingCallBack = nil; AID: string = ''; ADataPointer: Pointer = nil);\r\nbegin\r\n  if not GeocodingReady then\r\n  begin\r\n    raise Exception.Create('Please set API key!');\r\n    Exit;\r\n  end;\r\n\r\n  FGeocoding.GetReverseGeocoding(ACoordinates, ACallBack, AID, ADataPointer);\r\nend;\r\n\r\nfunction TTMSFNCCustomRouteCalculator.GetTipsURL: string;\r\nbegin\r\n  Result := TTMSFNCGeocodingTipsURL;\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.CalculateRoute(AStartCoordinate,\r\n  AEndCoordinate: TTMSFNCMapsCoordinateRec; ACallback: TTMSFNCRouteCalculatorCalculateRouteCallback = nil;\r\n  AWayPoints: TTMSFNCMapsCoordinateRecArray = nil; AID: string = ''; ADataPointer: Pointer = nil);\r\nvar\r\n  o: TTMSFNCRouteCalculatorInfo;\r\nbegin\r\n  o := TTMSFNCRouteCalculatorInfo.Create;\r\n  o.FID := AID;\r\n  o.FStartCoordinate.Latitude := AStartCoordinate.Latitude;\r\n  o.FEndCoordinate.Latitude := AEndCoordinate.Latitude;\r\n  o.FStartCoordinate.Longitude := AStartCoordinate.Longitude;\r\n  o.FEndCoordinate.Longitude := AEndCoordinate.Longitude;\r\n\r\n  if Assigned(ACallback) then\r\n    o.FCallBack := TTMSFNCRouteCalculatorRouteCallBackWrapper.Create(ACallback)\r\n  else\r\n    o.FCallBack := nil;\r\n\r\n  GetDirections(o.FStartCoordinate, o.FEndCoordinate, nil, AWayPoints, o.FID, o);\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.CalculateRoute(AStartAddress,\r\n  AEndAddress: string; ACallback: TTMSFNCRouteCalculatorCalculateRouteCallback = nil;\r\n  AID: string = ''; ADataPointer: Pointer = nil);\r\nvar\r\n  o: TTMSFNCRouteCalculatorInfo;\r\nbegin\r\n  o := TTMSFNCRouteCalculatorInfo.Create;\r\n  o.FID := AID;\r\n  o.FStartAddress := AStartAddress;\r\n  o.FEndAddress := AEndAddress;\r\n\r\n  o.FMode := cimAddDirections;\r\n\r\n  if Assigned(ACallback) then\r\n    o.FCallBack := TTMSFNCRouteCalculatorRouteCallBackWrapper.Create(ACallback)\r\n  else\r\n    o.FCallBack := nil;\r\n\r\n  GetGeocoding(o.FStartAddress, nil, 'Start', o);\r\n  GetGeocoding(o.FEndAddress, nil, 'End', o);\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.Clear;\r\nbegin\r\n  BeginUpdate;\r\n  ClearRoutes;\r\n  if Assigned(FGeocoding) then\r\n    FGeocoding.GeocodingRequests.Clear;\r\n  if Assigned(FDirections) then\r\n    FDirections.DirectionsRequests.Clear;\r\n  if Assigned(FLocation) then\r\n    FLocation.LocationRequests.Clear;\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.ClearRoutes;\r\nbegin\r\n  BeginUpdate;\r\n  Routes.Clear;\r\n  EndUpdate;\r\nend;\r\n\r\nconstructor TTMSFNCCustomRouteCalculator.Create;\r\nbegin\r\n  Create(nil);\r\nend;\r\n\r\nconstructor TTMSFNCCustomRouteCalculator.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  FActive := False;\r\n  FService := csGoogle;\r\n\r\n  FGeocoding := TTMSFNCGeocoding.Create(Self);\r\n\r\n  FGeocoding.OnGetGeocoding := {$IFDEF LCLLIB}@{$ENDIF}DoGetGeocoding;\r\n  FGeocoding.OnGetReverseGeocoding := {$IFDEF LCLLIB}@{$ENDIF}DoGetGeocoding;\r\n\r\n  FDirections := TTMSFNCDirections.Create(Self);\r\n  FDirections.OnGetDirections:= {$IFDEF LCLLIB}@{$ENDIF}DoGetDirections;\r\n\r\n  FLocation := TTMSFNCLocation.Create(Self);\r\n  FLocation.OnGetLocation := {$IFDEF LCLLIB}@{$ENDIF}DoGetLocation;\r\n\r\n  FRoutes := TTMSFNCRouteCalculatorRoutes.Create(Self);\r\n  FOptions := TTMSFNCRouteCalculatorOptions.Create;\r\n\r\n  {$IFDEF SENSORSUPPORT}\r\n  FLocationSensor := TLocationSensor.Create(Self);\r\n  FLocationSensor.OnLocationChanged := DoLocationChanged;\r\n  {$ENDIF}\r\n\r\n//  auto assign if fncmaps found\r\n//  if IsDesignTime and Assigned(AOwner) and (AOwner is TCustomForm) then\r\n//  begin\r\n//    for I := 0 to AOwner.ComponentCount - 1 do\r\n//    begin\r\n//      if (AOwner.Components[i] is TTMSFNCCustomGrid) then\r\n//      begin\r\n//        Grid := AOwner.Components[i] as TTMSFNCCustomGrid;\r\n//        Break;\r\n//      end;\r\n//    end;\r\n//  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomRouteCalculator.GeocodingReady: Boolean;\r\nbegin\r\n  if Assigned(FGeocoding) then\r\n    FGeocoding.APIKey := APIKey;\r\n  Result := Assigned(FGeocoding) and (FGeocoding.APIKey <> '');\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.DoCalculateRoute(const ARoute: TTMSFNCRouteCalculatorRoute; const ARouteInfo: TTMSFNCRouteCalculatorInfo);\r\nvar\r\n  obj: TTMSFNCRouteCalculatorRouteCallBackWrapper;\r\nbegin\r\n  if not Assigned(ARoute) or not Assigned(ARouteInfo) then\r\n    Exit;\r\n\r\n  if Assigned(ARouteInfo.FCallBack) then\r\n  begin\r\n    obj := TTMSFNCRouteCalculatorRouteCallBackWrapper(ARouteInfo.FCallBack);\r\n    obj.FCallback(ARoute);\r\n    obj.Free;\r\n  end;\r\n\r\n  if Assigned(OnCalculateRouteInternal) then\r\n    OnCalculateRouteInternal(Self, ARoute);\r\n\r\n  if Assigned(OnCalculateRoute) then\r\n    OnCalculateRoute(Self, ARoute);\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.DoCreateGPXSegment(\r\n  AEventData: TTMSFNCMapsGPXSegmentEventData);\r\nbegin\r\n  if Assigned(OnCreateGPXSegment) then\r\n    OnCreateGPXSegment(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.DoCreateGPXTrack(\r\n  AEventData: TTMSFNCMapsGPXTrackEventData);\r\nbegin\r\n  if Assigned(OnCreateGPXTrack) then\r\n    OnCreateGPXTrack(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.DoGetDirections(Sender: TObject;\r\n  const ARequest: TTMSFNCDirectionsRequest;\r\n  const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\nvar\r\n  o: TTMSFNCRouteCalculatorInfo;\r\n  I: Integer;\r\n  d: TTMSFNCDirectionsItem;\r\n  r: TTMSFNCRouteCalculatorRoute;\r\n  s, seg: TTMSFNCRouteCalculatorSegment;\r\n  l: TTMSFNCDirectionsLeg;\r\n\r\n  procedure ApplyLeg(ASegment: TTMSFNCRouteCalculatorSegment; ALeg: TTMSFNCDirectionsLeg);\r\n  var\r\n    K: Integer;\r\n    la: TTMSFNCDirectionsLeg;\r\n    sa: TTMSFNCRouteCalculatorAlternativeSegment;\r\n    da: TTMSFNCDirectionsItem;\r\n  begin\r\n    ASegment.Coordinates.Assign(ALeg.Coordinates);\r\n    if ALeg.StartAddress <> '' then\r\n      ASegment.StartAddress := ALeg.StartAddress\r\n    else\r\n      ASegment.StartAddress := o.FStartAddress;\r\n    if ALeg.EndAddress <> '' then\r\n      ASegment.EndAddress := ALeg.EndAddress\r\n    else\r\n      ASegment.EndAddress := o.FEndAddress;\r\n    ASegment.StartCoordinate.Assign(ALeg.StartLocation);\r\n    ASegment.EndCoordinate.Assign(ALeg.EndLocation);\r\n    ASegment.Duration := ALeg.Duration;\r\n    ASegment.Distance := ALeg.Distance;\r\n\r\n    ASegment.AlternativeSegments.Clear;\r\n\r\n    for K := 1 to ARequest.Items.Count - 1 do\r\n    begin\r\n      da := ARequest.Items[K];\r\n\r\n      if da.Legs.Count > 0 then\r\n      begin\r\n        if (ALeg.Index >= 0) and (ALeg.Index <= da.Legs.Count - 1) then\r\n        begin\r\n          la := da.Legs[ALeg.Index];\r\n          sa := ASegment.AlternativeSegments.Add;\r\n          sa.Coordinates.Assign(la.Coordinates);\r\n          sa.StartCoordinate.Assign(la.StartLocation);\r\n          sa.EndCoordinate.Assign(la.EndLocation);\r\n          sa.Duration := la.Duration;\r\n          sa.Distance := la.Distance;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\n\r\nbegin\r\n  o := nil;\r\n  if ARequestResult.Success then\r\n  begin\r\n    if Assigned(ARequest.DataPointer) and (TObject(ARequest.DataPointer) is TTMSFNCRouteCalculatorInfo) then\r\n    begin\r\n      o := TTMSFNCRouteCalculatorInfo(ARequest.DataPointer);\r\n      if Assigned(o) then\r\n      begin\r\n        if ARequest.Items.Count = 0 then\r\n          DoCalculateRoute(nil, o)\r\n        else\r\n        begin\r\n          if Options.HistoryEnabled then\r\n          begin\r\n            if HistoryManager.Count = 0 then \r\n              HistoryManager.PushState('Initialize');\r\n          end;\r\n\r\n          d := ARequest.Items[0];\r\n\r\n          if Assigned(o.FUpdateRoute) then\r\n          begin\r\n            r := o.FUpdateRoute;\r\n            r.Steps.Clear;\r\n            for I := 0 to d.Steps.Count - 1 do\r\n              r.Steps.Add.Assign(d.Steps[I]);\r\n          end\r\n          else\r\n          begin\r\n            r := Routes.Add;\r\n            r.ID := o.FID;\r\n            r.Steps.Assign(d.Steps);\r\n          end;\r\n\r\n          if Length(o.FUpdateSegments) > 0 then\r\n          begin\r\n            for I := 0 to Length(o.FUpdateSegments) - 1 do\r\n            begin\r\n              s := o.FUpdateSegments[I];\r\n              if I <= d.Legs.Count - 1 then\r\n                ApplyLeg(s, d.Legs[I]);\r\n            end;\r\n\r\n            seg := o.FUpdateSegments[Length(o.FUpdateSegments) - 1];\r\n\r\n            for I := Length(o.FUpdateSegments) to d.Legs.Count - 1 do\r\n            begin\r\n              s := r.Segments.Insert(seg.Index + 1);\r\n              ApplyLeg(s, d.Legs[I]);\r\n            end;\r\n          end\r\n          else\r\n          begin\r\n            for I := 0 to d.Legs.Count - 1 do\r\n            begin\r\n              s := r.Segments.Add;\r\n              l := d.Legs[I];\r\n              ApplyLeg(s, l);\r\n            end;\r\n          end;\r\n\r\n          if Options.HistoryEnabled then\r\n            HistoryManager.PushState('RouteAction' + IntToStr(HistoryManager.Count));\r\n\r\n          DoCalculateRoute(r, o);\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(o) then\r\n  begin\r\n    if Assigned(OnGetRouteDirections) then\r\n      OnGetRouteDirections(Self, ARequest, ARequestResult);\r\n\r\n    o.Free;\r\n  end\r\n  else\r\n  begin\r\n    if Assigned(OnGetDirections) then\r\n      OnGetDirections(Self, ARequest, ARequestResult);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.DoGetGeocoding(Sender: TObject; const ARequest: TTMSFNCGeocodingRequest;\r\n  const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\nvar\r\n  o: TTMSFNCRouteCalculatorInfo;\r\n  I: Integer;\r\nbegin\r\n  o := nil;\r\n  if ARequestResult.Success then\r\n  begin\r\n    if Assigned(ARequest.DataPointer) and (TObject(ARequest.DataPointer) is TTMSFNCRouteCalculatorInfo) then\r\n    begin\r\n      o := TTMSFNCRouteCalculatorInfo(ARequest.DataPointer);\r\n\r\n      if ARequest.Items.Count > 0 then\r\n      begin\r\n        if ARequest.ID = 'Start' then\r\n        begin\r\n          o.FStartFound := True;\r\n          o.FStartCoordinate := ARequest.Items[0].Coordinate.ToRec;\r\n          o.FStartAddress := ARequest.Items[0].Address;\r\n        end\r\n        else if ARequest.ID = 'End' then\r\n        begin\r\n          o.FEndFound := True;\r\n          o.FEndCoordinate := ARequest.Items[0].Coordinate.ToRec;\r\n          o.FEndAddress := ARequest.Items[0].Address;\r\n        end\r\n        else if ARequest.ID = 'GPXStart' then\r\n        begin\r\n          o.FStartFound := False;\r\n          o.FStartGeocoded := True;\r\n          o.FStartAddress := ARequest.Items[0].Address;\r\n        end\r\n        else if ARequest.ID = 'GPXEnd' then\r\n        begin\r\n          o.FEndFound := False;\r\n          o.FEndGeocoded := True;\r\n          o.FEndAddress := ARequest.Items[0].Address;\r\n        end;\r\n      end;\r\n\r\n      if o.FStartGeocoded and o.FEndGeocoded then\r\n      begin\r\n        if (FGeocoding.GetRequestCount(True) = 0) then\r\n        begin\r\n          //TODO : DoLoadGPXRouteComplete(s.Segments.Route);\r\n          //raise Exception.Create('TODO');\r\n        end;\r\n      end;\r\n\r\n      if o.FStartFound and o.FEndFound then\r\n      begin\r\n        if (o.FMode = cimAddDirections) then\r\n          GetDirections(o.FStartCoordinate, o.FEndCoordinate, nil, o.FWayPoints, o.FID, o)\r\n        else if o.FMode = cimUpdateDirections then\r\n        begin\r\n          for I := 0 to Length(o.FUpdateSegments) - 1 do\r\n            UpdateRouteSegment(o.FUpdateSegments[I], o.FStartCoordinate, o.FEndCoordinate, TTMSFNCRouteCalculatorRouteCallBackWrapper(o.FCallBack).FCallback, o.FID, nil);\r\n\r\n          o.Free;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(o) then\r\n  begin\r\n    if o.FMode <> cimDefault then\r\n    begin\r\n      if Assigned(OnGetRouteGeocoding) then\r\n        OnGetRouteGeocoding(Self, ARequest, ARequestResult);\r\n    end\r\n    else\r\n      o.Free;\r\n  end\r\n  else\r\n  begin\r\n    if Assigned(OnGetGeocoding) then\r\n      OnGetGeocoding(Self, ARequest, ARequestResult);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.DoGetLocation(Sender: TObject;\r\n  const ARequest: TTMSFNCLocationRequest;\r\n  const ARequestResult: TTMSFNCCloudBaseRequestResult);\r\nbegin\r\n  if not ARequestResult.Success then\r\n    Exit;\r\n\r\n  if Assigned(OnGetLocation) then\r\n    OnGetLocation(Self, ARequest.Coordinate.ToRec);\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.DoLoadGPXRouteComplete(\r\n  ARoute: TTMSFNCRouteCalculatorRoute);\r\nbegin\r\n  if Assigned(OnLoadGPXRouteComplete) then\r\n    OnLoadGPXRouteComplete(Self, ARoute);\r\nend;\r\n\r\n{$IFDEF SENSORSUPPORT}\r\nprocedure TTMSFNCCustomRouteCalculator.DoLocationChanged(Sender: TObject;\r\n  const OldLocation, NewLocation: TLocationCoord2D);\r\nvar\r\n  cr: TTMSFNCMapsCoordinateRec;\r\nbegin\r\n  if Assigned(OnGetLocation) then\r\n  begin\r\n    FLocationSensor.Active := False;\r\n    cr.Latitude := NewLocation.Latitude;\r\n    cr.Longitude := NewLocation.Longitude;\r\n    OnGetLocation(Self, cr);\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.SaveToGPXFile(\r\n  ARoute: TTMSFNCRouteCalculatorRoute; AFileName: string);\r\nbegin\r\n  SaveToGPXFile(ARoute, AFileName, DefaultGPXMetaData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.SaveRoutesToFile(AFileName: string);\r\nvar\r\n  ms: TMemoryStream;\r\nbegin\r\n  ms := TMemoryStream.Create;\r\n  try\r\n    SaveRoutesToStream(ms);\r\n    ms.Position := 0;\r\n    ms.SaveToFile(AFileName);\r\n  finally\r\n    ms.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.SaveRoutesToStream(AStream: TStream);\r\nbegin\r\n  TTMSFNCPersistence.SaveSettingsToStream(Routes, AStream);\r\nend;\r\n\r\nfunction TTMSFNCCustomRouteCalculator.SaveRoutesToText: string;\r\nvar\r\n  s: TStringStream;\r\nbegin\r\n  s := TStringStream.Create('');\r\n  try\r\n    SaveRoutesToStream(s);\r\n    s.Position := 0;\r\n    Result := s.DataString;\r\n  finally\r\n    s.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.SaveToGPXFile(\r\n  ARoute: TTMSFNCRouteCalculatorRoute; AFileName: string;\r\n  AMetaData: TTMSFNCMapsGPXMetaData);\r\nvar\r\n  sl: TStringList;\r\nbegin\r\n  sl := TStringList.Create;\r\n  try\r\n    sl.Text := InternalSaveGPX(ARoute, AMetaData);\r\n    sl.SaveToFile(AFileName);\r\n  finally\r\n    sl.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.SaveToGPXStream(\r\n  ARoute: TTMSFNCRouteCalculatorRoute; AStream: TStream);\r\nbegin\r\n  SaveToGPXStream(ARoute, AStream, DefaultGPXMetaData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.SaveToGPXStream(\r\n  ARoute: TTMSFNCRouteCalculatorRoute; AStream: TStream;\r\n  AMetaData: TTMSFNCMapsGPXMetaData);\r\nvar\r\n  ss: TStringStream;\r\nbegin\r\n  ss := TStringStream.Create(InternalSaveGPX(ARoute, AMetaData));\r\n  try\r\n    AStream.CopyFrom(ss, ss.Size);\r\n  finally\r\n    ss.Free;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomRouteCalculator.SaveToGPXText(\r\n  ARoute: TTMSFNCRouteCalculatorRoute): string;\r\nbegin\r\n  Result := InternalSaveGPX(ARoute, DefaultGPXMetaData);\r\nend;\r\n\r\nfunction TTMSFNCCustomRouteCalculator.SaveToGPXText(\r\n  ARoute: TTMSFNCRouteCalculatorRoute;\r\n  AMetaData: TTMSFNCMapsGPXMetaData): string;\r\nbegin\r\n  Result := InternalSaveGPX(ARoute, AMetaData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.SetAPIKey(const Value: string);\r\nbegin\r\n  if FAPIKey <> Value then\r\n    FAPIKey := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.SetRoutes(\r\n  const Value: TTMSFNCRouteCalculatorRoutes);\r\nbegin\r\n  FRoutes.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.SetService(const Value: TTMSFNCRouteCalculatorService);\r\nbegin\r\n  if FService <> Value then\r\n  begin\r\n    FLocation.Service := lsGoogle;\r\n\r\n    FService := Value;\r\n    case FService of\r\n      csAzure:\r\n      begin\r\n        FGeocoding.Service := gsAzure;\r\n        FDirections.Service := dsAzure;\r\n      end;\r\n      csBing:\r\n      begin\r\n        FGeocoding.Service := gsBing;\r\n        FDirections.Service := dsBing;\r\n      end;\r\n      csGoogle:\r\n      begin\r\n        FGeocoding.Service := gsGoogle;\r\n        FDirections.Service := dsGoogle;\r\n      end;\r\n      csHere:\r\n      begin\r\n        FGeocoding.Service := gsHere;\r\n        FDirections.Service := dsHere;\r\n      end;\r\n      csMapBox:\r\n      begin\r\n        FGeocoding.Service := gsMapBox;\r\n        FDirections.Service := dsMapBox;\r\n      end;\r\n      csOpenRouteService:\r\n      begin\r\n        FGeocoding.Service := gsOpenRouteService;\r\n        FDirections.Service := dsOpenRouteService;\r\n      end;\r\n      csGeoApify:\r\n      begin\r\n        FGeocoding.Service := gsGeoApify;\r\n        FDirections.Service := dsGeoApify;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.UpdateRouteSegment(\r\n  ASegment: TTMSFNCRouteCalculatorSegment; AStartCoordinate,\r\n  AEndCoordinate: TTMSFNCMapsCoordinateRec;\r\n  ACallback: TTMSFNCRouteCalculatorCalculateRouteCallback = nil; AID: string = '';\r\n  ADataPointer: Pointer = nil);\r\nvar\r\n  o: TTMSFNCRouteCalculatorInfo;\r\n  ps, ns: TTMSFNCRouteCalculatorSegment;\r\n  wp: TTMSFNCMapsCoordinateRecArray;\r\nbegin\r\n  if not Assigned(ASegment) then\r\n    Exit;\r\n\r\n  o := TTMSFNCRouteCalculatorInfo.Create;\r\n  o.FID := AID;\r\n  ps := ASegment.PreviousSegment;\r\n  ns := ASegment.NextSegment;\r\n  o.FUpdateRoute := ASegment.Route;\r\n  o.FMode := cimUpdateDirections;\r\n\r\n  if Assigned(ps) and Assigned(ns) then\r\n  begin\r\n    o.FStartCoordinate := ps.StartCoordinate.ToRec;\r\n    o.FEndCoordinate := ns.EndCoordinate.ToRec;\r\n    SetLength(wp, Length(wp) + 1);\r\n    wp[Length(wp) - 1] := AStartCoordinate;\r\n    SetLength(wp, Length(wp) + 1);\r\n    wp[Length(wp) - 1] := AEndCoordinate;\r\n    SetLength(o.FUpdateSegments, 3);\r\n    o.FUpdateSegments[0] := ps;\r\n    o.FUpdateSegments[1] := ASegment;\r\n    o.FUpdateSegments[2] := ns;\r\n  end\r\n  else if Assigned(ps) then\r\n  begin\r\n    o.FStartCoordinate := ps.StartCoordinate.ToRec;\r\n    o.FEndCoordinate := AEndCoordinate;\r\n    SetLength(wp, Length(wp) + 1);\r\n    wp[Length(wp) - 1] := AStartCoordinate;\r\n    SetLength(o.FUpdateSegments, 2);\r\n    o.FUpdateSegments[0] := ps;\r\n    o.FUpdateSegments[1] := ASegment;\r\n  end\r\n  else if Assigned(ns) then\r\n  begin\r\n    o.FStartCoordinate := AStartCoordinate;\r\n    o.FEndCoordinate := ns.EndCoordinate.ToRec;\r\n    SetLength(wp, Length(wp) + 1);\r\n    wp[Length(wp) - 1] := AEndCoordinate;\r\n    SetLength(o.FUpdateSegments, 2);\r\n    o.FUpdateSegments[0] := ASegment;\r\n    o.FUpdateSegments[1] := ns;\r\n  end\r\n  else\r\n  begin\r\n    o.FStartCoordinate := AStartCoordinate;\r\n    o.FEndCoordinate := AEndCoordinate;\r\n    SetLength(o.FUpdateSegments, 1);\r\n    o.FUpdateSegments[0] := ASegment;\r\n  end;\r\n\r\n  if Assigned(ACallback) then\r\n    o.FCallBack := TTMSFNCRouteCalculatorRouteCallBackWrapper.Create(ACallback)\r\n  else\r\n    o.FCallBack := nil;\r\n\r\n  GetDirections(o.FStartCoordinate, o.FEndCoordinate, nil, wp, AID, o);\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.UpdateRouteSegmentEndAddress(\r\n  ASegment: TTMSFNCRouteCalculatorSegment; AEndAddress: string;\r\n  ACallback: TTMSFNCRouteCalculatorCalculateRouteCallback; AID: string;\r\n  ADataPointer: Pointer);\r\nbegin\r\n  UpdateRouteSegment(ASegment, ASegment.StartAddress, AEndAddress, ACallBack, AID, ADataPointer);\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.UpdateRouteSegmentEndCoordinate(\r\n  ASegment: TTMSFNCRouteCalculatorSegment;\r\n  AEndCoordinate: TTMSFNCMapsCoordinateRec;\r\n  ACallback: TTMSFNCRouteCalculatorCalculateRouteCallback; AID: string;\r\n  ADataPointer: Pointer);\r\nbegin\r\n  UpdateRouteSegment(ASegment, ASegment.StartCoordinate.ToRec, AEndCoordinate, ACallBack, AID, ADataPointer);\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.UpdateRouteSegmentStartAddress(\r\n  ASegment: TTMSFNCRouteCalculatorSegment; AStartAddress: string;\r\n  ACallback: TTMSFNCRouteCalculatorCalculateRouteCallback; AID: string;\r\n  ADataPointer: Pointer);\r\nbegin\r\n  UpdateRouteSegment(ASegment, AStartAddress, ASegment.EndAddress, ACallBack, AID, ADataPointer);\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.UpdateRouteSegmentStartCoordinate(\r\n  ASegment: TTMSFNCRouteCalculatorSegment;\r\n  AStartCoordinate: TTMSFNCMapsCoordinateRec;\r\n  ACallback: TTMSFNCRouteCalculatorCalculateRouteCallback; AID: string;\r\n  ADataPointer: Pointer);\r\nbegin\r\n  UpdateRouteSegment(ASegment, AStartCoordinate, ASegment.EndCoordinate.ToRec, ACallBack, AID, ADataPointer);\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.UpdateRouteSegment(\r\n  ASegment: TTMSFNCRouteCalculatorSegment; AStartAddress, AEndAddress: string;\r\n  ACallback: TTMSFNCRouteCalculatorCalculateRouteCallback = nil; AID: string = '';\r\n  ADataPointer: Pointer = nil);\r\nvar\r\n  o: TTMSFNCRouteCalculatorInfo;\r\nbegin\r\n  if not Assigned(ASegment) then\r\n    Exit;\r\n\r\n  o := TTMSFNCRouteCalculatorInfo.Create;\r\n  o.FID := AID;\r\n\r\n  o.FStartAddress := AStartAddress;\r\n  o.FEndAddress := AEndAddress;\r\n  o.FUpdateRoute := ASegment.Route;\r\n  o.FMode := cimUpdateDirections;\r\n\r\n  SetLength(o.FUpdateSegments, 1);\r\n  o.FUpdateSegments[0] := ASegment;\r\n\r\n  if Assigned(ACallback) then\r\n    o.FCallBack := TTMSFNCRouteCalculatorRouteCallBackWrapper.Create(ACallback)\r\n  else\r\n    o.FCallBack := nil;\r\n\r\n  GetGeocoding(o.FEndAddress, nil, 'End', o);\r\n  GetGeocoding(o.FStartAddress, nil, 'Start', o);\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.DeleteRoute(\r\n  ARoute: TTMSFNCRouteCalculatorRoute);\r\nbegin\r\n  if not Assigned(ARoute) then\r\n    Exit;\r\n\r\n  ARoute.Free;\r\nend;\r\n\r\nprocedure TTMSFNCCustomRouteCalculator.DeleteRouteSegment(\r\n  ASegment: TTMSFNCRouteCalculatorSegment; ACallback: TTMSFNCRouteCalculatorCalculateRouteCallback = nil);\r\nvar\r\n  ps, ns: TTMSFNCRouteCalculatorSegment;\r\n  et, st: TTMSFNCMapsCoordinateRec;\r\n  r: TTMSFNCRouteCalculatorRoute;\r\n  o: TTMSFNCRouteCalculatorInfo;\r\nbegin\r\n  if not Assigned(ASegment) then\r\n    Exit;\r\n\r\n  if Assigned(ASegment.Route) and (ASegment.Route.Segments.Count = 1) then\r\n  begin\r\n    r := ASegment.Route;\r\n    ASegment.Free;\r\n    if Assigned(ACallback) then\r\n      ACallback(r);\r\n    o := TTMSFNCRouteCalculatorInfo.Create;\r\n    DoCalculateRoute(r, o);\r\n    o.Free;\r\n    r.Free;\r\n    Exit;\r\n  end;\r\n\r\n  ps := ASegment.PreviousSegment;\r\n  ns := ASegment.NextSegment;\r\n\r\n  et := ASegment.EndCoordinate.ToRec;\r\n  st := ASegment.StartCoordinate.ToRec;\r\n\r\n  ASegment.Free;\r\n\r\n  if Assigned(ps) then\r\n    UpdateRouteSegmentEndCoordinate(ps, st, ACallback)\r\n  else if Assigned(ns) then\r\n    UpdateRouteSegmentStartCoordinate(ns, et, ACallback)\r\nend;\r\n\r\ndestructor TTMSFNCCustomRouteCalculator.Destroy;\r\nbegin\r\n  if Assigned(FHistoryManager) then\r\n    FHistoryManager.Free;\r\n  FGeocoding.Free;\r\n  FGeocoding := nil;\r\n  FDirections.Free;\r\n  FDirections := nil;\r\n  FLocation.Free;\r\n  FLocation := nil;\r\n  FRoutes.Free;\r\n  FOptions.Free;\r\n  {$IFDEF SENSORSUPPORT}\r\n  FLocationSensor.Free;\r\n  FLocationSensor := nil;\r\n  {$ENDIF}\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCCustomRouteCalculator.DirectionsReady: Boolean;\r\nbegin\r\n  if Assigned(FDirections) then\r\n    FDirections.APIKey := APIKey;\r\n  Result := Assigned(FDirections) and (FDirections.APIKey <> '');\r\nend;\r\n\r\n{ TTMSFNCRouteCalculatorSegment }\r\n\r\nprocedure TTMSFNCRouteCalculatorSegment.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCRouteCalculatorSegment then\r\n  begin\r\n    FCoordinates.Assign(TTMSFNCRouteCalculatorSegment(Source).Coordinates);\r\n    FDistance := TTMSFNCRouteCalculatorSegment(Source).Distance;\r\n    FDuration := TTMSFNCRouteCalculatorSegment(Source).Duration;\r\n    FID := (Source as TTMSFNCRouteCalculatorSegment).ID;\r\n    FStartAddress := (Source as TTMSFNCRouteCalculatorSegment).StartAddress;\r\n    FEndAddress := (Source as TTMSFNCRouteCalculatorSegment).EndAddress;\r\n    FStartCoordinate.Assign((Source as TTMSFNCRouteCalculatorSegment).StartCoordinate);\r\n    FEndCoordinate.Assign((Source as TTMSFNCRouteCalculatorSegment).EndCoordinate);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCRouteCalculatorSegment.SetAlternativeSegments(\r\n  const Value: TTMSFNCRouteCalculatorAlternativeSegments);\r\nbegin\r\n  FAlternativeSegments.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCRouteCalculatorSegment.SetCoordinates(\r\n  const Value: TTMSFNCMapsCoordinates);\r\nbegin\r\n  FCoordinates.Assign(Value);\r\nend;\r\n\r\nconstructor TTMSFNCRouteCalculatorSegment.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(ACollection) and (Collection is TTMSFNCRouteCalculatorSegments) then\r\n    FOwner := (Collection as TTMSFNCRouteCalculatorSegments);\r\n\r\n  FID := '';\r\n  FStartAddress := '';\r\n  FEndAddress := '';\r\n  FStartCoordinate := TTMSFNCMapsCoordinate.Create;\r\n  FEndCoordinate := TTMSFNCMapsCoordinate.Create;\r\n\r\n  FCoordinates := TTMSFNCMapsCoordinates.Create(Self);\r\n  FDistance := 0;\r\n  FDuration := 0;\r\n\r\n  FAlternativeSegments := TTMSFNCRouteCalculatorAlternativeSegments.Create(Self);\r\nend;\r\n\r\ndestructor TTMSFNCRouteCalculatorSegment.Destroy;\r\nbegin\r\n  FAlternativeSegments.Free;\r\n  FCoordinates.Free;\r\n  FStartCoordinate.Free;\r\n  FEndCoordinate.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorSegment.GetPolyline: TTMSFNCMapsCoordinateRecArray;\r\nvar\r\n  I: Integer;\r\n  r: TTMSFNCMapsCoordinateRec;\r\nbegin\r\n  SetLength(Result, 0);\r\n  SetLength(Result, Coordinates.Count);\r\n  for I := 0 to Coordinates.Count - 1 do\r\n  begin\r\n    r := EmptyCoordinate;\r\n    r.Latitude := Coordinates[I].Latitude;\r\n    r.Longitude := Coordinates[I].Longitude;\r\n    Result[I] := r;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorSegment.GetRoute: TTMSFNCRouteCalculatorRoute;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(Segments) then\r\n    Result := Segments.Route;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorSegment.GetSegments: TTMSFNCRouteCalculatorSegments;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorSegment.GetNextSegment: TTMSFNCRouteCalculatorSegment;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  Result := nil;\r\n\r\n  if not Assigned(FOwner) then\r\n    Exit;\r\n\r\n  i := Self.Index;\r\n  if (i + 1) < FOwner.Count then\r\n    Result := FOwner[i + 1];\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorSegment.GetPreviousSegment: TTMSFNCRouteCalculatorSegment;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  Result := nil;\r\n\r\n  if not Assigned(FOwner) then\r\n    Exit;\r\n\r\n  i := Self.Index;\r\n  if (i > 0) and (i < FOwner.Count) then\r\n    Result := FOwner[i - 1];\r\nend;\r\n\r\n{ TTMSFNCRouteCalculatorSegments }\r\n\r\nfunction TTMSFNCRouteCalculatorSegments.Add: TTMSFNCRouteCalculatorSegment;\r\nbegin\r\n  Result := TTMSFNCRouteCalculatorSegment(inherited Add);\r\nend;\r\n\r\nconstructor TTMSFNCRouteCalculatorSegments.Create(AOwner: TTMSFNCRouteCalculatorRoute);\r\nbegin\r\n  inherited Create(AOwner, CreateItemClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorSegments.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCRouteCalculatorSegment;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorSegments.GetItem(\r\n  Index: Integer): TTMSFNCRouteCalculatorSegment;\r\nbegin\r\n  Result := TTMSFNCRouteCalculatorSegment(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorSegments.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorSegments.GetRoute: TTMSFNCRouteCalculatorRoute;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorSegments.Insert(\r\n  Index: Integer): TTMSFNCRouteCalculatorSegment;\r\nbegin\r\n  Result := TTMSFNCRouteCalculatorSegment(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCRouteCalculatorSegments.SetItem(Index: Integer;\r\n  const Value: TTMSFNCRouteCalculatorSegment);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCRouteCalculatorAlternativeSegment }\r\n\r\nprocedure TTMSFNCRouteCalculatorAlternativeSegment.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCRouteCalculatorAlternativeSegment then\r\n  begin\r\n    FCoordinates.Assign(TTMSFNCRouteCalculatorAlternativeSegment(Source).Coordinates);\r\n    FDistance := TTMSFNCRouteCalculatorAlternativeSegment(Source).Distance;\r\n    FDuration := TTMSFNCRouteCalculatorAlternativeSegment(Source).Duration;\r\n    FStartCoordinate.Assign((Source as TTMSFNCRouteCalculatorAlternativeSegment).StartCoordinate);\r\n    FEndCoordinate.Assign((Source as TTMSFNCRouteCalculatorAlternativeSegment).EndCoordinate);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCRouteCalculatorAlternativeSegment.SetCoordinates(\r\n  const Value: TTMSFNCMapsCoordinates);\r\nbegin\r\n  FCoordinates.Assign(Value);\r\nend;\r\n\r\nconstructor TTMSFNCRouteCalculatorAlternativeSegment.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(ACollection) and (Collection is TTMSFNCRouteCalculatorAlternativeSegments) then\r\n    FOwner := (Collection as TTMSFNCRouteCalculatorAlternativeSegments);\r\n\r\n  FStartCoordinate := TTMSFNCMapsCoordinate.Create;\r\n  FEndCoordinate := TTMSFNCMapsCoordinate.Create;\r\n\r\n  FCoordinates := TTMSFNCMapsCoordinates.Create(Self);\r\n  FDistance := 0;\r\n  FDuration := 0;\r\nend;\r\n\r\ndestructor TTMSFNCRouteCalculatorAlternativeSegment.Destroy;\r\nbegin\r\n  FCoordinates.Free;\r\n  FStartCoordinate.Free;\r\n  FEndCoordinate.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorAlternativeSegment.GetPolyline: TTMSFNCMapsCoordinateRecArray;\r\nvar\r\n  I: Integer;\r\n  r: TTMSFNCMapsCoordinateRec;\r\nbegin\r\n  SetLength(Result, 0);\r\n  SetLength(Result, Coordinates.Count);\r\n  for I := 0 to Coordinates.Count - 1 do\r\n  begin\r\n    r := EmptyCoordinate;\r\n    r.Latitude := Coordinates[I].Latitude;\r\n    r.Longitude := Coordinates[I].Longitude;\r\n    Result[I] := r;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorAlternativeSegment.GetSegment: TTMSFNCRouteCalculatorSegment;\r\nbegin\r\n  Result := nil;\r\n  if Assigned(FOwner) then\r\n    Result := FOwner.Segment;\r\nend;\r\n\r\n{ TTMSFNCRouteCalculatorAlternativeSegments }\r\n\r\nfunction TTMSFNCRouteCalculatorAlternativeSegments.Add: TTMSFNCRouteCalculatorAlternativeSegment;\r\nbegin\r\n  Result := TTMSFNCRouteCalculatorAlternativeSegment(inherited Add);\r\nend;\r\n\r\nconstructor TTMSFNCRouteCalculatorAlternativeSegments.Create(AOwner: TTMSFNCRouteCalculatorSegment);\r\nbegin\r\n  inherited Create(AOwner, CreateItemClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorAlternativeSegments.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCRouteCalculatorAlternativeSegment;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorAlternativeSegments.GetItem(\r\n  Index: Integer): TTMSFNCRouteCalculatorAlternativeSegment;\r\nbegin\r\n  Result := TTMSFNCRouteCalculatorAlternativeSegment(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorAlternativeSegments.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorAlternativeSegments.GetSegment: TTMSFNCRouteCalculatorSegment;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorAlternativeSegments.Insert(\r\n  Index: Integer): TTMSFNCRouteCalculatorAlternativeSegment;\r\nbegin\r\n  Result := TTMSFNCRouteCalculatorAlternativeSegment(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCRouteCalculatorAlternativeSegments.SetItem(Index: Integer;\r\n  const Value: TTMSFNCRouteCalculatorAlternativeSegment);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n\r\n{ TTMSFNCRouteCalculatorRoute }\r\n\r\nprocedure TTMSFNCRouteCalculatorRoute.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCRouteCalculatorRoute then\r\n  begin\r\n    FSegments.Assign((Source as TTMSFNCRouteCalculatorRoute).Segments);\r\n    FID := (Source as TTMSFNCRouteCalculatorRoute).ID;\r\n    FRouteName := (Source as TTMSFNCRouteCalculatorRoute).RouteName;\r\n    FActive := (Source as TTMSFNCRouteCalculatorRoute).Active;\r\n    FSteps.Assign((Source as TTMSFNCRouteCalculatorRoute).Steps);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCRouteCalculatorRoute.SetSteps(const Value: TTMSFNCDirectionsSteps);\r\nbegin\r\n  FSteps.Assign(Value);\r\nend;\r\n\r\nconstructor TTMSFNCRouteCalculatorRoute.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(ACollection) and (Collection is TTMSFNCRouteCalculatorRoutes) then\r\n    FOwner := (Collection as TTMSFNCRouteCalculatorRoutes).RouteCalculator;\r\n\r\n  FSegments := TTMSFNCRouteCalculatorSegments.Create(Self);\r\n  FID := '';\r\n  FStartAddress := '';\r\n  FEndAddress := '';\r\n  FRouteName := '';\r\n  FActive := True;\r\n  FStartCoordinate := TTMSFNCMapsCoordinate.Create;\r\n  FEndCoordinate := TTMSFNCMapsCoordinate.Create;\r\n  FSteps := TTMSFNCDirectionsSteps.Create(Self);\r\nend;\r\n\r\ndestructor TTMSFNCRouteCalculatorRoute.Destroy;\r\nbegin\r\n  FSteps.Free;\r\n  FStartCoordinate.Free;\r\n  FEndCoordinate.Free;\r\n  FSegments.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorRoute.FirstSegment: TTMSFNCRouteCalculatorSegment;\r\nbegin\r\n  if Segments.Count > 0 then\r\n    Result := Segments[0]\r\n  else\r\n    Result := nil;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorRoute.GetDistance: Double;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := 0;\r\n  for I := 0 to Segments.Count - 1 do\r\n    Result := Result + Segments[I].Distance;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorRoute.GetDuration: Double;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := 0;\r\n  for I := 0 to Segments.Count - 1 do\r\n    Result := Result + Segments[I].Duration;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorRoute.GetPolyline: TTMSFNCMapsCoordinateRecArray;\r\nvar\r\n  I, J, K: Integer;\r\n  r: TTMSFNCMapsCoordinateRec;\r\nbegin\r\n  SetLength(Result, 0);\r\n  K := 0;\r\n  for I := 0 to Segments.Count - 1 do\r\n  begin\r\n    for J := 0 to Segments[I].Coordinates.Count - 1 do\r\n    begin\r\n      SetLength(Result, K + 1);\r\n      r := EmptyCoordinate;\r\n      r.Latitude := Segments[I].Coordinates[J].Latitude;\r\n      r.Longitude := Segments[I].Coordinates[J].Longitude;\r\n      Result[K] := r;\r\n      K := K + 1;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorRoute.GetRouteCalculator: TTMSFNCCustomRouteCalculator;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorRoute.GetWayPoints: TTMSFNCMapsCoordinateRecArray;\r\nvar\r\n  I, J: Integer;\r\n  r: TTMSFNCMapsCoordinateRec;\r\nbegin\r\n  Result := nil;\r\n  if Segments.Count = 0 then\r\n    Exit;\r\n    \r\n  J := Segments.Count;\r\n  SetLength(Result, J + 1);\r\n  for I := 0 to Segments.Count - 1 do\r\n  begin\r\n    r := EmptyCoordinate;\r\n    r.Latitude := Segments[I].StartCoordinate.Latitude;\r\n    r.Longitude := Segments[I].StartCoordinate.Longitude;\r\n    r.Description := Segments[I].StartAddress;\r\n    Result[I] := r;\r\n  end;\r\n\r\n  r := EmptyCoordinate;\r\n  r.Latitude := Segments[J - 1].EndCoordinate.Latitude;\r\n  r.Longitude := Segments[J - 1].EndCoordinate.Longitude;\r\n  r.Description := Segments[J - 1].EndAddress;\r\n  Result[J] := r;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorRoute.LastSegment: TTMSFNCRouteCalculatorSegment;\r\nbegin\r\n  if Segments.Count > 0 then\r\n    Result := Segments[Segments.Count - 1]\r\n  else\r\n    Result := nil;\r\nend;\r\n\r\n{ TTMSFNCRouteCalculatorRoutes }\r\n\r\nfunction TTMSFNCRouteCalculatorRoutes.Add: TTMSFNCRouteCalculatorRoute;\r\nbegin\r\n  Result := TTMSFNCRouteCalculatorRoute(inherited Add);\r\nend;\r\n\r\nconstructor TTMSFNCRouteCalculatorRoutes.Create(AOwner: TTMSFNCCustomRouteCalculator);\r\nbegin\r\n  inherited Create(AOwner, CreateItemClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorRoutes.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCRouteCalculatorRoute;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorRoutes.GetItem(\r\n  Index: Integer): TTMSFNCRouteCalculatorRoute;\r\nbegin\r\n  Result := TTMSFNCRouteCalculatorRoute(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorRoutes.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorRoutes.GetRouteCalculator: TTMSFNCCustomRouteCalculator;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorRoutes.Insert(\r\n  Index: Integer): TTMSFNCRouteCalculatorRoute;\r\nbegin\r\n  Result := TTMSFNCRouteCalculatorRoute(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCRouteCalculatorRoutes.SetItem(Index: Integer;\r\n  const Value: TTMSFNCRouteCalculatorRoute);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCRouteCalculatorDirectionsItems }\r\n\r\nfunction TTMSFNCRouteCalculatorDirectionsItems.Add: TTMSFNCDirectionsItem;\r\nbegin\r\n  Result := TTMSFNCDirectionsItem(inherited Add);\r\nend;\r\n\r\nconstructor TTMSFNCRouteCalculatorDirectionsItems.Create(AOwner: TTMSFNCRouteCalculatorSegment);\r\nbegin\r\n  inherited Create(AOwner, CreateItemClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorDirectionsItems.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCDirectionsItem;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorDirectionsItems.GetItem(\r\n  Index: Integer): TTMSFNCDirectionsItem;\r\nbegin\r\n  Result := TTMSFNCDirectionsItem(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorDirectionsItems.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorDirectionsItems.Insert(\r\n  Index: Integer): TTMSFNCDirectionsItem;\r\nbegin\r\n  Result := TTMSFNCDirectionsItem(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCRouteCalculatorDirectionsItems.SetItem(Index: Integer;\r\n  const Value: TTMSFNCDirectionsItem);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n\r\n{ TTMSFNCRouteCalculator }\r\n\r\nprocedure TTMSFNCRouteCalculator.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClasses([TTMSFNCRouteCalculator, TTMSFNCRouteCalculatorRoute, TTMSFNCRouteCalculatorSegment,\r\n    TTMSFNCMapsCoordinateItem, TTMSFNCMapsCoordinate, TTMSFNCDirectionsStep, TTMSFNCDirectionsItem, TTMSFNCRouteCalculatorAlternativeSegment]);\r\nend;\r\n\r\n{ TTMSFNCRouteCalculatorRouteCallBackWrapper }\r\n\r\nconstructor TTMSFNCRouteCalculatorRouteCallBackWrapper.Create(\r\n  ACallback: TTMSFNCRouteCalculatorCalculateRouteCallback);\r\nbegin\r\n  FCallback := ACallback;\r\nend;\r\n\r\n{ TTMSFNCRouteCalculatorOptions }\r\n\r\nprocedure TTMSFNCRouteCalculatorOptions.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCRouteCalculatorOptions then\r\n  begin\r\n    FAvoidTolls := (Source as TTMSFNCRouteCalculatorOptions).AvoidTolls;\r\n    FIncludeAlternativeRoutes := (Source as TTMSFNCRouteCalculatorOptions).IncludeAlternativeRoutes;\r\n    FTravelMode := (Source as TTMSFNCRouteCalculatorOptions).TravelMode;\r\n    FPolyline.Assign((Source as TTMSFNCRouteCalculatorOptions).Polyline);\r\n    FHistoryEnabled := (Source as TTMSFNCRouteCalculatorOptions).HistoryEnabled;\r\n    FLocale := (Source as TTMSFNCRouteCalculatorOptions).Locale;\r\n    FLocaleMode := (Source as TTMSFNCRouteCalculatorOptions).LocaleMode;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCRouteCalculatorOptions.Create;\r\nbegin\r\n  inherited;\r\n  FHistoryEnabled := False;\r\n  FAvoidTolls := False;\r\n  FIncludeAlternativeRoutes := False;\r\n  FTravelMode := tmDriving;\r\n  FPolyline := TTMSFNCRouteCalculatorPolylineOptions.Create;\r\n  FLocale := '';\r\n  FLocaleMode := mlmDefault;\r\nend;\r\n\r\ndestructor TTMSFNCRouteCalculatorOptions.Destroy;\r\nbegin\r\n  FPolyline.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCRouteCalculatorOptions.SetPolyline(\r\n  const Value: TTMSFNCRouteCalculatorPolylineOptions);\r\nbegin\r\n  FPolyline.Assign(Value);\r\nend;\r\n\r\n{ TTMSFNCRouteCalculatorPolylineOptions }\r\n\r\nprocedure TTMSFNCRouteCalculatorPolylineOptions.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCRouteCalculatorPolylineOptions then\r\n  begin\r\n    FStartMarker := (Source as TTMSFNCRouteCalculatorPolylineOptions).FStartMarker;\r\n    FEndMarker := (Source as TTMSFNCRouteCalculatorPolylineOptions).FEndMarker;\r\n    FWayPointMarker := (Source as TTMSFNCRouteCalculatorPolylineOptions).FWayPointMarker;\r\n    FAddWayPointMarker := (Source as TTMSFNCRouteCalculatorPolylineOptions).FAddWayPointMarker;\r\n    FSelectedWayPointMarker := (Source as TTMSFNCRouteCalculatorPolylineOptions).FSelectedWayPointMarker;\r\n    FStrokeColor := (Source as TTMSFNCRouteCalculatorPolylineOptions).FStrokeColor;\r\n    FStrokeWidth := (Source as TTMSFNCRouteCalculatorPolylineOptions).FStrokeWidth;\r\n    FStrokeOpacity := (Source as TTMSFNCRouteCalculatorPolylineOptions).FStrokeOpacity;\r\n    FSelectedStrokeColor := (Source as TTMSFNCRouteCalculatorPolylineOptions).FSelectedStrokeColor;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCRouteCalculatorPolylineOptions.Create;\r\nbegin\r\n  inherited;\r\n  StartMarker := '';\r\n  EndMarker := '';\r\n  WayPointMarker := '';\r\n  AddWayPointMarker := '';\r\n  SelectedWayPointMarker := '';\r\n  StrokeColor := gcBlue;\r\n  StrokeWidth := 5;\r\n  StrokeOpacity := 1.0;\r\n  SelectedStrokeColor := gcRed;\r\nend;\r\n\r\ndestructor TTMSFNCRouteCalculatorPolylineOptions.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCRouteCalculatorPolylineOptions.IsStrokeOpacityStored: Boolean;\r\nbegin\r\n  Result := StrokeOpacity <> 1;\r\nend;\r\n\r\nprocedure TTMSFNCRouteCalculatorPolylineOptions.SetStrokeOpacity(\r\n  const Value: Single);\r\nbegin\r\n  FStrokeOpacity := Value;\r\nend;\r\n\r\n{ TTMSFNCRouteCalculatorInfo }\r\n\r\nconstructor TTMSFNCRouteCalculatorInfo.Create;\r\nbegin\r\n  FStartCoordinate := EmptyCoordinate;\r\n  FEndCoordinate := EmptyCoordinate;\r\n  FStartFound := False;\r\n  FStartGeocoded := False;\r\n  FEndFound := False;\r\n  FEndGeocoded := False;\r\n  FMode := cimDefault;\r\n  SetLength(FUpdateSegments, 0);\r\nend;\r\n\r\ndestructor TTMSFNCRouteCalculatorInfo.Destroy;\r\nbegin\r\n  FCallBack := nil;\r\n  inherited;\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCMaps.GoogleMaps;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nconst\r\n  GOOGLEMAPSAPIURL = 'https://maps.googleapis.com/maps/api/';\r\n  MAPSERVICEVAR = 'window.google.maps';\r\n  MAPCALCLAYER = 'calclayer';\r\n\r\nprocedure RegisterGoogleMapsService;\r\nprocedure UnRegisterGoogleMapsService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCMaps, WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCGraphics, WEBLib.TMSFNCMapsCommonTypes\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCMapsGoogleMapsService = class;\r\n\r\n  TTMSFNCMapsGoogleMapsFactoryService = class(TTMSFNCMapsFactoryService, ITMSFNCMapsServiceGoogleMaps);\r\n\r\n  TTMSFNCMapsGoogleMapsService = class(TTMSFNCMapsGoogleMapsFactoryService)\r\n  protected\r\n    function DoCreateMaps: ITMSFNCCustomMaps; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCMapsGoogleMaps = class;\r\n\r\n  TTMSFNCMapsGoogleMaps = class(TTMSFNCCustomMapsInterfacedObject, ITMSFNCCustomMaps)\r\n  protected\r\n    procedure GetHeadLinks(const AList: TTMSFNCMapsLinksList);\r\n    procedure RemoveScripts;\r\n    function GetResetMap: string;\r\n    function GetShowPopup: string;\r\n    function GetClosePopup: string;\r\n    function GetHeadStyle: string;\r\n    function GetDelayLoadEvent: string;\r\n    function GetMapsServiceCheck: string;\r\n    function GetIdentifier: string;\r\n    function GetInitializeMap: string;\r\n    function GetInitializeEvents: string;\r\n    function GetAddOrUpdateMarker: string;\r\n    function GetDeleteMarker: string;\r\n    function GetAddOrUpdatePolyElement: string;\r\n    function GetDeletePolyElement: string;\r\n    function GetZoomToBounds: string;\r\n    function GetGetCenterCoordinate: string;\r\n    function GetGetBounds: string;\r\n    function GetGetZoomLevel: string;\r\n    function GetLatLonToXY: string;\r\n    function GetXYToLatLon: string;\r\n    function GetSetCenterCoordinate: string;\r\n    function GetSetZoomLevel: string;\r\n    function GetUpdateOptions: string;\r\n    function GetGlobalVariables: string;\r\n    function GetAddCoordinateToArray: string;\r\n    function GetAddHoleToArray: string;\r\n    function GetInitializeCoordinateArray: string;\r\n    function GetInitializeHolesArray: string;\r\n    function IsValid: Boolean;\r\n    function GetService: TTMSFNCMapsService;\r\n    procedure DestroyMaps;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  MapsService: ITMSFNCMapsServiceGoogleMaps;\r\n\r\nprocedure RegisterGoogleMapsService;\r\nbegin\r\n  if not TTMSFNCMapsPlatformServices.Current.SupportsPlatformService(ITMSFNCMapsServiceGoogleMaps, IInterface(MapsService)) then\r\n  begin\r\n    MapsService := TTMSFNCMapsGoogleMapsService.Create;\r\n    TTMSFNCMapsPlatformServices.Current.AddPlatformService(ITMSFNCMapsServiceGoogleMaps, MapsService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterGoogleMapsService;\r\nbegin\r\n  TTMSFNCMapsPlatformServices.Current.RemovePlatformService(ITMSFNCMapsServiceGoogleMaps);\r\nend;\r\n\r\n{ TTMSFNCMapsGoogleMapsService }\r\n\r\nfunction TTMSFNCMapsGoogleMapsService.DoCreateMaps: ITMSFNCCustomMaps;\r\nbegin\r\n  Result := TTMSFNCMapsGoogleMaps.Create;\r\nend;\r\n\r\nconstructor TTMSFNCMapsGoogleMaps.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCMapsGoogleMaps.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetMapsServiceCheck: string;\r\nbegin\r\n  Result := '!window.google || !' + MAPSERVICEVAR;\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetResetMap: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetService: TTMSFNCMapsService;\r\nbegin\r\n  Result := msGoogleMaps;\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetSetCenterCoordinate: string;\r\nbegin\r\n  Result :=\r\n    '  var lat = new ' + MAPSERVICEVAR + '.LatLng(' + PARAMSNAME + '[\"Latitude\"], ' + PARAMSNAME + '[\"Longitude\"]);' + LB +\r\n    '  ' + MAPVAR + '.panTo(lat);';\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetSetZoomLevel: string;\r\nbegin\r\n  Result :=\r\n    '  ' + MAPVAR + '.setZoom(' + PARAMSNAME + ');';\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetShowPopup: string;\r\nbegin\r\n  Result :=\r\n  '  var lat = new ' + MAPSERVICEVAR + '.LatLng(' + PARAMSNAME + '[\"Latitude\"], ' + PARAMSNAME + '[\"Longitude\"]);' + LB +\r\n  '  ' + POPUPVAR + ' = new ' + MAPSERVICEVAR + '.InfoWindow({' + LB +\r\n  '    position: lat,' + LB +\r\n  '    pixelOffset: new ' + MAPSERVICEVAR + '.Size(' + PARAMSNAME + '[\"OffsetX\"], ' + PARAMSNAME + '[\"OffsetY\"]),' + LB +\r\n  '    content: ' + PARAMSNAME + '[\"Text\"],' + LB +\r\n  '    disableAutoPan: !' + PARAMSNAME + '[\"PanMap\"],' + LB +\r\n  '  });' + LB +\r\n  '  ' + POPUPVAR + '.open(' + MAPVAR + ');';\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetUpdateOptions: string;\r\nbegin\r\n  Result :=\r\n    '  var opt = {' + LB +\r\n    '    draggable: ' + PARAMSNAME + '[\"Panning\"],' + LB +\r\n    '    scrollwheel: ' + PARAMSNAME + '[\"ZoomOnWheelScroll\"],' + LB +\r\n    '    disableDoubleClickZoom: !' + PARAMSNAME + '[\"ZoomOnDblClick\"],' + LB +\r\n    '    mapTypeControl: ' + PARAMSNAME + '[\"ShowMapTypeControl\"],' + LB +\r\n    '    zoomControl: ' + PARAMSNAME + '[\"ShowZoomControl\"],' + LB +\r\n    '    tilt: ' + PARAMSNAME + '[\"Tilt\"],' + LB +\r\n    '    heading: ' + PARAMSNAME + '[\"Heading\"],' + LB +\r\n    '  }' + LB +\r\n    '  ' + MAPVAR + '.setOptions(opt);';\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetZoomToBounds: string;\r\nbegin\r\n  Result :=\r\n    '  var sw = new ' + MAPSERVICEVAR + '.LatLng(' + PARAMSNAME + '[\"SouthWest\"][\"Latitude\"], ' + PARAMSNAME + '[\"SouthWest\"][\"Longitude\"]);' + LB +\r\n    '  var ne = new ' + MAPSERVICEVAR + '.LatLng(' + PARAMSNAME + '[\"NorthEast\"][\"Latitude\"], ' + PARAMSNAME + '[\"NorthEast\"][\"Longitude\"]);' + LB +\r\n    '  ' + MAPVAR + '.fitBounds(new ' + MAPSERVICEVAR + '.LatLngBounds(sw, ne));';\r\nend;\r\n\r\nprocedure TTMSFNCMapsGoogleMaps.DestroyMaps;\r\nbegin\r\n  MapsService.DestroyMaps(Self);\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetAddCoordinateToArray: string;\r\nbegin\r\n  Result := '  ' + COORDINATEARRAYVAR + '.push({lat: ' + PARAMSNAME + '[\"Latitude\"], lng: ' + PARAMSNAME + '[\"Longitude\"]});';\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetAddHoleToArray: string;\r\nbegin\r\n  Result := 'var o = ' + HOLEARRAYVAR + '[' + PARAMSNAME + '[0]];' + LB +\r\n            'if (o){' + LB +\r\n            '  ' + HOLEARRAYVAR + '[' + PARAMSNAME + '[0]].push({lat: ' + PARAMSNAME + '[1][\"Latitude\"], lng: ' + PARAMSNAME + '[1][\"Longitude\"]});' + LB +\r\n            '}else{' + LB +\r\n            '  ' + HOLEARRAYVAR + '[' + PARAMSNAME + '[0]] = [{lat: ' + PARAMSNAME + '[1][\"Latitude\"], lng: ' + PARAMSNAME + '[1][\"Longitude\"]}];' + LB +\r\n            '}';\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetAddOrUpdateMarker: string;\r\nbegin\r\n  Result :=\r\n    '  var markericon = ' + CUSTOMDEFAULTMARKERICON + '(' +\r\n      PARAMSNAME + '[\"DefaultIcon\"],' + LB +\r\n      PARAMSNAME + '[\"IconURL\"]);' + LB +\r\n\r\n    '  var animation; ' + LB +\r\n    '  if (' + PARAMSNAME + '[\"Animation\"]){ animation = ' + MAPSERVICEVAR + '.Animation.BOUNCE } else { animation = null }' + LB +\r\n    '  var ic;' + LB +\r\n    '  var sz = null;' + LB +\r\n    '  if (!(typeof ' + PARAMSNAME + '[\"DefaultIconSize\"] == \"undefined\")) {' + LB +\r\n    '    if (!' + PARAMSNAME + '[\"DefaultIconSize\"]) {' + LB +\r\n    '      sz = new ' + MAPSERVICEVAR + '.Size(' + PARAMSNAME + '[\"IconWidth\"], ' + PARAMSNAME + '[\"IconHeight\"])' + LB +\r\n    '    }' + LB +\r\n    '  }' + LB +\r\n    '  if (' + PARAMSNAME + '[\"IconURL\"] != \"\" && ' + PARAMSNAME + '[\"Anchor\"] && !' + PARAMSNAME + '[\"DefaultAnchor\"]){' + LB +\r\n    '    ic = {' + LB +\r\n    '      url: ' + PARAMSNAME + '[\"IconURL\"],' + LB +\r\n    '      anchor: new ' + MAPSERVICEVAR + '.Point(' + PARAMSNAME + '[\"Anchor\"][\"X\"], ' + PARAMSNAME + '[\"Anchor\"][\"Y\"]),' + LB +\r\n    '      scaledSize: sz' + LB +\r\n    '    }' + LB +\r\n    '  }' + LB +\r\n    '  else if (markericon != \"\"){' + LB +\r\n    '    ic = {' + LB +\r\n    '      url: markericon,' + LB +\r\n    '      scaledSize: sz' + LB +\r\n    '    }' + LB +\r\n    '  }' + LB +\r\n    '  else{' + LB +\r\n    '    ic = null;' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  var options;' + LB +\r\n    '  if (ic != null) {' + LB +\r\n    '    options = {' + LB +\r\n    '      position: new ' + MAPSERVICEVAR + '.LatLng(' + PARAMSNAME + '[\"Latitude\"], ' + PARAMSNAME + '[\"Longitude\"]),' + LB +\r\n    '      title: ' + PARAMSNAME + '[\"Title\"],' + LB +\r\n    '      icon: ic,' + LB +\r\n    '      visible: ' + PARAMSNAME + '[\"Visible\"],' + LB +\r\n    '      clickable: ' + PARAMSNAME + '[\"Clickable\"],' + LB +\r\n    '      zIndex: ' + PARAMSNAME + '[\"ZIndex\"],' + LB +\r\n    '      draggable: ' + PARAMSNAME + '[\"Draggable\"],' + LB +\r\n    '      animation: animation,' + LB +\r\n    '      map: ' + MAPVAR + LB +\r\n    '    }' + LB +\r\n    '  }else{' + LB +\r\n    '    options = {' + LB +\r\n    '      position: new ' + MAPSERVICEVAR + '.LatLng(' + PARAMSNAME + '[\"Latitude\"], ' + PARAMSNAME + '[\"Longitude\"]),' + LB +\r\n    '      title: ' + PARAMSNAME + '[\"Title\"],' + LB +\r\n    '      visible: ' + PARAMSNAME + '[\"Visible\"],' + LB +\r\n    '      clickable: ' + PARAMSNAME + '[\"Clickable\"],' + LB +\r\n    '      zIndex: ' + PARAMSNAME + '[\"ZIndex\"],' + LB +\r\n    '      draggable: ' + PARAMSNAME + '[\"Draggable\"],' + LB +\r\n    '      animation: animation,' + LB +\r\n    '      map: ' + MAPVAR + LB +\r\n    '    }' + LB +\r\n    '  }' + LB + LB +\r\n\r\n//    '  var pinOptions;' + LB +\r\n//    '  if (' + PARAMSNAME + '[\"IconURL\"] != \"\"){' + LB +\r\n//    '    pinOptions = document.createElement(\"img\");' + LB +\r\n//    '    pinOptions.src = ' + PARAMSNAME + '[\"IconURL\"];' + LB +\r\n//    '  } else { ' + LB +\r\n//    '    pinOptionsElement = new ' + MAPSERVICEVAR + '.marker.PinElement({background: \"#0000FF\", borderColor: \"#000099\", glyphColor: \"#000099\"});' + LB +\r\n//    '    pinOptions = pinOptionsElement.element;' + LB +\r\n//    '  } ' + LB +\r\n//\r\n//    '  var advancedoptions;' + LB +\r\n//    '  advancedoptions = {' + LB +\r\n//    '    ' + MAPVAR + ',' + LB +\r\n//    '    position: {lat: ' + PARAMSNAME + '[\"Latitude\"], lng:' + PARAMSNAME + '[\"Longitude\"]},' + LB +\r\n//    '    content: pinOptions,' + LB +\r\n//    '    gmpDraggable: ' + PARAMSNAME + '[\"Draggable\"],' + LB +\r\n//    '    gmpClickable: ' + PARAMSNAME + '[\"Clickable\"],' + LB +\r\n//    '    title: ' + PARAMSNAME + '[\"Title\"],' + LB +\r\n//    '    zIndex: ' + PARAMSNAME + '[\"ZIndex\"],' + LB +\r\n//    '  }' + LB +\r\n\r\n    '  if (!' + MARKERVAR + '){' + LB +\r\n\r\n    '    ' + MARKERVAR + ' = new ' + MAPSERVICEVAR + '.Marker(options);' + LB +\r\n//    '    ' + MARKERVAR + ' = new ' + MAPSERVICEVAR + '.marker.AdvancedMarkerElement(advancedoptions);' + LB +\r\n\r\n    '    ' + MARKERVAR + '.addListener(''click'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n\r\n    '    ' + MARKERVAR + '.addListener(''rightclick'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerRightClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MARKERVAR + '.addListener(''dblclick'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerDblClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MARKERVAR + '.addListener(''mouseup'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseUp\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MARKERVAR + '.addListener(''mousedown'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseDown\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MARKERVAR + '.addListener(''mouseout'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseLeave\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MARKERVAR + '.addListener(''mouseleave'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseLeave\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MARKERVAR + '.addListener(''mouseover'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseEnter\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n\r\n//    '    ' + MARKERVAR + '.content.addEventListener(''rightclick'', function(event){' + LB +\r\n//    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerRightClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n//    '    })' + LB + LB +\r\n//    '    ' + MARKERVAR + '.content.addEventListener(''dblclick'', function(event){' + LB +\r\n//    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerDblClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n//    '    })' + LB + LB +\r\n//    '    ' + MARKERVAR + '.content.addEventListener(''mouseup'', function(event){' + LB +\r\n//    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseUp\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n//    '    })' + LB + LB +\r\n//    '    ' + MARKERVAR + '.content.addEventListener(''mousedown'', function(event){' + LB +\r\n//    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseDown\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n//    '    })' + LB + LB +\r\n//    '    ' + MARKERVAR + '.content.addEventListener(''mouseout'', function(event){' + LB +\r\n//    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseLeave\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n//    '    })' + LB + LB +\r\n//    '    ' + MARKERVAR + '.content.addEventListener(''mouseleave'', function(event){' + LB +\r\n//    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseLeave\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n//    '    })' + LB + LB +\r\n//    '    ' + MARKERVAR + '.content.addEventListener(''mouseover'', function(event){' + LB +\r\n//    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseEnter\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n//    '    })' + LB + LB +\r\n\r\n    '    ' + MARKERVAR + '.addListener(''dragend'', function(event){' + LB +\r\n    '      var ptmarker = this.getPosition()' + LB +\r\n    '      var lat = parseFloat(ptmarker.lat());' + LB +\r\n    '      var lng = parseFloat(ptmarker.lng());' + LB +\r\n    '      var jsonObj = getDefaultCoordinateObject();' + LB +\r\n    '      jsonObj[\"Latitude\"] = lat;' + LB +\r\n    '      jsonObj[\"Longitude\"] = lng;' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerDragEnd\", ' + PARAMSNAME + '[\"ID\"]), jsonObj);' + LB +\r\n    '    })' + LB + LB +\r\n\r\n    '  }else{' + LB +\r\n    '    ' + MARKERVAR + '.setOptions(options);' + LB +\r\n//    '    ' + MARKERVAR + '.setOptions(advancedoptions);' + LB +\r\n    '  }';\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetAddOrUpdatePolyElement: string;\r\nbegin\r\n  Result :=\r\n    '  var c = ' + PARAMSNAME + '[\"$type\"];' + LB +\r\n    '  var options;'+ LB +\r\n    '  var symbols = null;'+ LB +\r\n\r\n    '  if (!(typeof ' + PARAMSNAME + '[\"Symbols\"] == \"undefined\")) {' + LB +\r\n    '    symbols = [];' + LB +\r\n    '    for (I = 0; I < ' + PARAMSNAME + '[\"Symbols\"].length; I++){' + LB +\r\n    '      sstrokecolor = ' + PARAMSNAME + '[\"Symbols\"][I][\"StrokeColor\"];' + LB +\r\n    '      if (sstrokecolor == \"gcNull\")' + LB +\r\n    '        sstrokecolor = null;' + LB +\r\n    '      sstrokeopacity = ' + PARAMSNAME + '[\"Symbols\"][I][\"StrokeOpacity\"];' + LB +\r\n    '      if (sstrokeopacity == 0)' + LB +\r\n    '        sstrokeopacity = null;' + LB +\r\n    '      sstrokewidth = ' + PARAMSNAME + '[\"Symbols\"][I][\"StrokeWidth\"];' + LB +\r\n    '      if (sstrokewidth == 0)' + LB +\r\n    '        sstrokewidth = null;' + LB +\r\n    '      sfillcolor = ' + PARAMSNAME + '[\"Symbols\"][I][\"FillColor\"];' + LB +\r\n    '      if (sfillcolor == \"gcNull\")' + LB +\r\n    '        sfillcolor = null;' + LB +\r\n    '      sfillopacity = ' + PARAMSNAME + '[\"Symbols\"][I][\"FillOpacity\"];' + LB +\r\n    '      if (sfillopacity == 0)' + LB +\r\n    '        sfillopacity = null;' + LB +\r\n    '      sscale = ' + PARAMSNAME + '[\"Symbols\"][I][\"Scale\"];' + LB +\r\n    '      if (sscale == 0)' + LB +\r\n    '        sscale = null;' + LB +\r\n    '      srotation = ' + PARAMSNAME + '[\"Symbols\"][I][\"Rotation\"];' + LB +\r\n    '      if (srotation == 0)' + LB +\r\n    '        srotation = null;' + LB +\r\n    '      srepeat = ' + PARAMSNAME + '[\"Symbols\"][I][\"RepeatSymbol\"];' + LB +\r\n    '      if (' + PARAMSNAME + '[\"Symbols\"][I][\"RepeatSymbolUnits\"] == 0)' + LB +\r\n    '        srepeat += \"%\";' + LB +\r\n    '      else if ((' + PARAMSNAME + '[\"Symbols\"][I][\"RepeatSymbolUnits\"] == 1) && (srepeat != 0))' + LB +\r\n    '        srepeat += \"px\";' + LB +\r\n    '      soffset = ' + PARAMSNAME + '[\"Symbols\"][I][\"Offset\"];' + LB +\r\n    '      if (' + PARAMSNAME + '[\"Symbols\"][I][\"OffsetUnits\"] == 0)' + LB +\r\n    '        soffset += \"%\";' + LB +\r\n    '      else if ((' + PARAMSNAME + '[\"Symbols\"][I][\"OffsetUnits\"] == 1) && (soffset != 0))' + LB +\r\n    '        soffset += \"px\";' + LB +\r\n    '      spath = google.maps.SymbolPath.FORWARD_OPEN_ARROW;' + LB +\r\n    '      switch (' + PARAMSNAME + '[\"Symbols\"][I][\"Path\"]) {' + LB +\r\n    '        case 0:' + LB +\r\n    '          spath = google.maps.SymbolPath.BACKWARD_CLOSED_ARROW;' + LB +\r\n    '          break;' + LB +\r\n    '        case 1:' + LB +\r\n    '          spath = google.maps.SymbolPath.BACKWARD_OPEN_ARROW;' + LB +\r\n    '          break;' + LB +\r\n    '        case 2:' + LB +\r\n    '          spath = google.maps.SymbolPath.CIRCLE;' + LB +\r\n    '          break;' + LB +\r\n    '        case 3:' + LB +\r\n    '          spath = google.maps.SymbolPath.FORWARD_CLOSED_ARROW;' + LB +\r\n    '          break;' + LB +\r\n    '        case 5:' + LB +\r\n    '          spath = ' + PARAMSNAME + '[\"Symbols\"][I][\"CustomPath\"];' + LB +\r\n    '          break;' + LB +\r\n    '      }' + LB + LB +\r\n    '      symbols.push({ icon: { path: spath,' + LB +\r\n    '          scale: sscale, ' + LB +\r\n    '          strokeColor: sstrokecolor, ' + LB +\r\n    '          strokeOpacity: sstrokeopacity, ' + LB +\r\n    '          strokeWeight: sstrokewidth,' + LB +\r\n    '          fillColor: sfillcolor,' + LB +\r\n    '          fillOpacity: sfillopacity,' + LB +\r\n    '          rotation: srotation,' + LB +\r\n    '        }, ' + LB +\r\n    '        repeat: srepeat, offset: soffset, fixedRotation: false' + LB +\r\n    '      });' + LB +\r\n    '    }' + LB + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  function getJsonArray(path){' + LB +\r\n    '    var jsonArray = [];' + LB +\r\n    '    for (var i = 0; i < path.getLength(); i++) {' + LB +\r\n    '      var jsonObj = getDefaultCoordinateObject();' + LB +\r\n    '      jsonObj[\"Latitude\"] = parseFloat(path.getAt(i).lat());' + LB +\r\n    '      jsonObj[\"Longitude\"] = parseFloat(path.getAt(i).lng());' + LB +\r\n    '      jsonArray.push(jsonObj);' + LB +\r\n    '    }' + LB +\r\n    '    return jsonArray;' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  function getJsonBounds(ctrl){' + LB +\r\n    '    var bounds = ctrl.getBounds();' + LB +\r\n    '    var jsonBounds = getDefaultBoundsObject();' + LB +\r\n    '    jsonBounds[\"NorthEast\"][\"Latitude\"] = bounds.getNorthEast().lat();' + LB +\r\n    '    jsonBounds[\"NorthEast\"][\"Longitude\"] = bounds.getNorthEast().lng();' + LB +\r\n    '    jsonBounds[\"SouthWest\"][\"Latitude\"] = bounds.getSouthWest().lat();' + LB +\r\n    '    jsonBounds[\"SouthWest\"][\"Longitude\"] = bounds.getSouthWest().lng();' + LB +\r\n    '    return jsonBounds;' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  function getJsonCircle(ctrl){' + LB +\r\n    '    var center = ctrl.getCenter();' + LB +\r\n    '    var jsonCircle = getDefaultCircleObject();' + LB +\r\n    '    jsonCircle[\"Radius\"] = ctrl.getRadius();' + LB +\r\n    '    jsonCircle[\"Center\"][\"Latitude\"] = center.lat();' + LB +\r\n    '    jsonCircle[\"Center\"][\"Longitude\"] = center.lng();' + LB +\r\n    '    return jsonCircle;' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  switch(c){' + LB +\r\n    '    case \"TTMSFNCMapsCircle\":' + LB +\r\n    '    case \"TTMSFNCGoogleMapsCircle\":' + LB +\r\n    '      options = {' + LB +\r\n    '        center: {lat: ' + PARAMSNAME + '[\"Center\"][\"Latitude\"], lng: ' + PARAMSNAME + '[\"Center\"][\"Longitude\"]},' + LB +\r\n    '        fillColor: ' + PARAMSNAME + '[\"FillColor\"],' + LB +\r\n    '        fillOpacity: ' + PARAMSNAME + '[\"FillOpacity\"],' + LB +\r\n    '        strokeColor: ' + PARAMSNAME + '[\"StrokeColor\"],' + LB +\r\n    '        strokeOpacity: ' + PARAMSNAME + '[\"StrokeOpacity\"],' + LB +\r\n    '        strokeWeight: ' + PARAMSNAME + '[\"StrokeWidth\"],' + LB +\r\n    '        radius: ' + PARAMSNAME + '[\"Radius\"],' + LB +\r\n    '        visible: ' + PARAMSNAME + '[\"Visible\"],' + LB +\r\n    '        draggable: ' + PARAMSNAME + '[\"Draggable\"],' + LB +\r\n    '        clickable: ' + PARAMSNAME + '[\"Clickable\"],' + LB +\r\n    '        zIndex: ' + PARAMSNAME + '[\"ZIndex\"],' + LB +\r\n    '        editable: ' + PARAMSNAME + '[\"Editable\"],' + LB +\r\n    '        map: ' + MAPVAR + LB +\r\n    '      };' + LB + LB +\r\n    '    break;' + LB +\r\n    '    case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '    case \"TTMSFNCGoogleMapsRectangle\":' + LB +\r\n    '      options = {' + LB +\r\n    '        fillColor: ' + PARAMSNAME + '[\"FillColor\"],' + LB +\r\n    '        fillOpacity: ' + PARAMSNAME + '[\"FillOpacity\"],' + LB +\r\n    '        strokeColor: ' + PARAMSNAME + '[\"StrokeColor\"],' + LB +\r\n    '        strokeOpacity: ' + PARAMSNAME + '[\"StrokeOpacity\"],' + LB +\r\n    '        strokeWeight: ' + PARAMSNAME + '[\"StrokeWidth\"],' + LB +\r\n    '        draggable: ' + PARAMSNAME + '[\"Draggable\"],' + LB +\r\n    '        visible: ' + PARAMSNAME + '[\"Visible\"],' + LB +\r\n    '        clickable: ' + PARAMSNAME + '[\"Clickable\"],' + LB +\r\n    '        zIndex: ' + PARAMSNAME + '[\"ZIndex\"],' + LB +\r\n    '        editable: ' + PARAMSNAME + '[\"Editable\"],' + LB +\r\n    '        bounds: {' + LB +\r\n    '          north: ' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Latitude\"],' + LB +\r\n    '          south: ' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Latitude\"],' + LB +\r\n    '          east: ' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Longitude\"],' + LB +\r\n    '          west: ' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Longitude\"],' + LB +\r\n    '        },' + LB +\r\n    '        map: ' + MAPVAR + LB +\r\n    '      };' + LB + LB +\r\n    '    break;' + LB +\r\n    '    case \"TTMSFNCMapsPolygon\":' + LB +\r\n    '    case \"TTMSFNCGoogleMapsPolygon\":' + LB +\r\n\r\n    '      var pthArr = [];' + LB +\r\n    '      pthArr.push(' + COORDINATEARRAYVAR + ');' + LB +\r\n    '      for (var key in ' + HOLEARRAYVAR + '){' + LB +\r\n    '        pthArr.push(' + HOLEARRAYVAR + '[key]);' + LB +\r\n    '      }' + LB +\r\n\r\n    '      options = {' + LB +\r\n    '        icons: symbols,' + LB +\r\n    '        paths: pthArr,' + LB +\r\n    '        fillColor: ' + PARAMSNAME + '[\"FillColor\"],' + LB +\r\n    '        fillOpacity: ' + PARAMSNAME + '[\"FillOpacity\"],' + LB +\r\n    '        strokeColor: ' + PARAMSNAME + '[\"StrokeColor\"],' + LB +\r\n    '        strokeOpacity: ' + PARAMSNAME + '[\"StrokeOpacity\"],' + LB +\r\n    '        strokeWeight: ' + PARAMSNAME + '[\"StrokeWidth\"],' + LB +\r\n    '        draggable: ' + PARAMSNAME + '[\"Draggable\"],' + LB +\r\n    '        visible: ' + PARAMSNAME + '[\"Visible\"],' + LB +\r\n    '        clickable: ' + PARAMSNAME + '[\"Clickable\"],' + LB +\r\n    '        zIndex: ' + PARAMSNAME + '[\"ZIndex\"],' + LB +\r\n    '        editable: ' + PARAMSNAME + '[\"Editable\"],' + LB +\r\n    '        geodesic: ' + PARAMSNAME + '[\"Geodesic\"],' + LB +\r\n    '        map: ' + MAPVAR + LB +\r\n    '      };' + LB + LB +\r\n    '    break;' + LB +\r\n    '    case \"TTMSFNCMapsPolyline\":' + LB +\r\n    '    case \"TTMSFNCGoogleMapsPolyline\":' + LB +\r\n\r\n    '      options = {' + LB +\r\n    '        icons: symbols,' + LB +\r\n    '        path: ' + COORDINATEARRAYVAR + ',' + LB +\r\n    '        fillColor: ' + PARAMSNAME + '[\"FillColor\"],' + LB +\r\n    '        fillOpacity: ' + PARAMSNAME + '[\"FillOpacity\"],' + LB +\r\n    '        strokeColor: ' + PARAMSNAME + '[\"StrokeColor\"],' + LB +\r\n    '        strokeOpacity: ' + PARAMSNAME + '[\"StrokeOpacity\"],' + LB +\r\n    '        strokeWeight: ' + PARAMSNAME + '[\"StrokeWidth\"],' + LB +\r\n    '        draggable: ' + PARAMSNAME + '[\"Draggable\"],' + LB +\r\n    '        visible: ' + PARAMSNAME + '[\"Visible\"],' + LB +\r\n    '        clickable: ' + PARAMSNAME + '[\"Clickable\"],' + LB +\r\n    '        zIndex: ' + PARAMSNAME + '[\"ZIndex\"],' + LB +\r\n    '        editable: ' + PARAMSNAME + '[\"Editable\"],' + LB +\r\n    '        geodesic: ' + PARAMSNAME + '[\"Geodesic\"],' + LB +\r\n    '        map: ' + MAPVAR + LB +\r\n    '      };' + LB + LB +\r\n    '    break;' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  if (!' + POLYELEMENTVAR + '){' + LB +\r\n    '    switch(c){' + LB +\r\n    '      case \"TTMSFNCMapsCircle\":' + LB +\r\n    '      case \"TTMSFNCGoogleMapsCircle\":' + LB +\r\n    '        ' + POLYELEMENTVAR + ' = new ' + MAPSERVICEVAR + '.Circle(options);' + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '      case \"TTMSFNCGoogleMapsRectangle\":' + LB +\r\n    '        ' + POLYELEMENTVAR + ' = new ' + MAPSERVICEVAR + '.Rectangle(options);' + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCMapsPolyline\":' + LB +\r\n    '      case \"TTMSFNCGoogleMapsPolyline\":' + LB +\r\n    '        ' + POLYELEMENTVAR + ' = new ' + MAPSERVICEVAR + '.Polyline(options);' + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCMapsPolygon\":' + LB +\r\n    '      case \"TTMSFNCGoogleMapsPolygon\":' + LB +\r\n    '        ' + POLYELEMENTVAR + ' = new ' + MAPSERVICEVAR + '.Polygon(options);' + LB +\r\n    '      break;' + LB +\r\n    '    }' + LB +\r\n\r\n    '    ' + POLYELEMENTVAR + '.addListener(''click'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + POLYELEMENTVAR + '.addListener(''rightclick'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementRightClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + POLYELEMENTVAR + '.addListener(''dblclick'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementDblClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + POLYELEMENTVAR + '.addListener(''mouseup'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseUp\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + POLYELEMENTVAR + '.addListener(''mousedown'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseDown\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + POLYELEMENTVAR + '.addListener(''mouseout'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseLeave\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + POLYELEMENTVAR + '.addListener(''mouseover'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseEnter\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n\r\n    '    ' + POLYELEMENTVAR + '.addListener(''dragend'', function(event){' + LB +\r\n    '    switch(c){' + LB +\r\n    '      case \"TTMSFNCGoogleMapsPolyline\":' + LB +\r\n    '      case \"TTMSFNCGoogleMapsPolygon\":' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementDragEnd\", ' + PARAMSNAME + '[\"ID\"]), getJsonArray(this.getPath()));' + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCGoogleMapsRectangle\":' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementDragEnd\", ' + PARAMSNAME + '[\"ID\"]), getJsonBounds(this));' + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCGoogleMapsCircle\":' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementDragEnd\", ' + PARAMSNAME + '[\"ID\"]), getJsonCircle(this));' + LB +\r\n    '      break;' + LB +\r\n    '    }' + LB + LB +\r\n    '    });' + LB + LB +\r\n\r\n    '    switch(c){' + LB +\r\n    '      case \"TTMSFNCGoogleMapsRectangle\":' + LB +\r\n    '        ' + POLYELEMENTVAR + '.addListener(''bounds_changed'', function(event){' + LB +\r\n    '          ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementEditEnd\", ' + PARAMSNAME + '[\"ID\"]), getJsonBounds(this));' + LB +\r\n    '        });' + LB + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCGoogleMapsCircle\":' + LB +\r\n    '        ' + POLYELEMENTVAR + '.addListener(''radius_changed'', function(event){' + LB +\r\n    '          ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementEditEnd\", ' + PARAMSNAME + '[\"ID\"]), getJsonCircle(this));' + LB +\r\n    '        });' + LB + LB +\r\n    '        ' + POLYELEMENTVAR + '.addListener(''center_changed'', function(event){' + LB +\r\n    '          ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementEditEnd\", ' + PARAMSNAME + '[\"ID\"]), getJsonCircle(this));' + LB +\r\n    '        });' + LB + LB +\r\n    '      break;' + LB +\r\n    '      }' + LB + LB +\r\n\r\n    '  }else{' + LB +\r\n    '    ' + POLYELEMENTVAR + '.setOptions(options);' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  switch(c){' + LB +\r\n    '    case \"TTMSFNCGoogleMapsPolyline\":' + LB +\r\n    '    case \"TTMSFNCGoogleMapsPolygon\":' + LB +\r\n    '      ' + POLYELEMENTVAR + '.getPath().addListener(''set_at'', function(event){' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementEditEnd\", ' + PARAMSNAME + '[\"ID\"]), getJsonArray(this));' + LB +\r\n    '      });' + LB + LB +\r\n    '      ' + POLYELEMENTVAR + '.getPath().addListener(''insert_at'', function(event){' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementEditEnd\", ' + PARAMSNAME + '[\"ID\"]), getJsonArray(this));' + LB +\r\n    '      });' + LB + LB +\r\n    '      ' + POLYELEMENTVAR + '.getPath().addListener(''remove_at'', function(event){' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementEditEnd\", ' + PARAMSNAME + '[\"ID\"]), getJsonArray(this));' + LB +\r\n    '      });' + LB + LB +\r\n    '    break;' + LB +\r\n    '  }';\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetClosePopup: string;\r\nbegin\r\n  Result := '  ' + POPUPVAR + '.close();';\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetDelayLoadEvent: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetDeleteMarker: string;\r\nbegin\r\n  Result := '  ' + MARKERVAR + '.setMap(null)';\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetDeletePolyElement: string;\r\nbegin\r\n  Result := '  ' + POLYELEMENTVAR + '.setMap(null)';\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetGetCenterCoordinate: string;\r\nbegin\r\n  Result :=\r\n    '  var loc = ' + MAPVAR + '.getCenter();' + LB +\r\n    '  jsonObj[\"Latitude\"] = loc.lat();' + LB +\r\n    '  jsonObj[\"Longitude\"] = loc.lng();';\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetGetBounds: string;\r\nbegin\r\n  Result :=\r\n    '  var loc = ' + MAPVAR + '.getBounds();' + LB +\r\n    '  jsonObj[\"NorthEast\"][\"Latitude\"] = loc.getNorthEast().lat();' + LB +\r\n    '  jsonObj[\"NorthEast\"][\"Longitude\"] = loc.getNorthEast().lng();' + LB +\r\n    '  jsonObj[\"SouthWest\"][\"Latitude\"] = loc.getSouthWest().lat();' + LB +\r\n    '  jsonObj[\"SouthWest\"][\"Longitude\"] = loc.getSouthWest().lng();';\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetGetZoomLevel: string;\r\nbegin\r\n  Result := '  var z = ' + MAPVAR + '.getZoom();';\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetGlobalVariables: string;\r\nbegin\r\n   Result :=\r\n    'function gm_authFailure() { ' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"Error\", \"Google Maps API Key error\"));' + LB +\r\n    '}' + LB +\r\n    'function parseEvent(event, eventname, id = ''''){' + LB +\r\n    '  var loc = {''Latitude'': 0, ''Longitude'': 0};' + LB +\r\n    '  var x = 0.0;' + LB +\r\n    '  var y = 0.0;' + LB +\r\n    '  if ((eventname == \"MapMoveStart\") || (eventname == \"MapMoveEnd\")){ ' +\r\n    '    var ptcenter = ' + MAPVAR + '.getCenter();' + LB +\r\n    '    var lat = ptcenter.lat();' + LB +\r\n    '    var lng = ptcenter.lng();' + LB +\r\n    '    loc = {''Latitude'': lat, ''Longitude'': lng};' + LB +\r\n    '  } else if (event) {' + LB +\r\n    '    if (event.latLng){' + LB +\r\n    '      loc = {''Latitude'': event.latLng.lat(), ''Longitude'': event.latLng.lng()};' + LB +\r\n    '    }' + LB +\r\n    '    if (event.pixel){' + LB +\r\n    '      x = event.pixel.x;' + LB +\r\n    '      y = event.pixel.y;' + LB +\r\n    '    }' + LB +\r\n    '  }' + LB +\r\n\r\n    '  var r = {''Coordinate'': loc, ''X'': x, ''Y'': y, ''ID'': id, ''EventName'': eventname};' + LB +\r\n    '  return r;' + LB +\r\n    '}';\r\nend;\r\n\r\nprocedure TTMSFNCMapsGoogleMaps.GetHeadLinks(\r\n  const AList: TTMSFNCMapsLinksList);\r\nvar\r\n  APIVersion: string;\r\nbegin\r\n  if MapsProperties.GetAPIVersion = '' then\r\n    APIVersion := '&v=weekly'\r\n  else\r\n    APIVersion := '&v=' + MapsProperties.GetAPIVersion;\r\n\r\n  AList.Add(TTMSFNCMapsLink.CreateScript(GOOGLEMAPSAPIURL + 'js?'\r\n    + '&key=' + MapsProperties.GetAPIKey\r\n    + APIVersion\r\n    + '&language=' + MapsProperties.GetLocale\r\n//    + '&libraries=marker'\r\n    + '&libraries=visualization'\r\n    , 'text/javascript', 'utf-8', '', True, True));\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetHeadStyle: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetIdentifier: string;\r\nbegin\r\n  Result := 'Google Maps';\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetInitializeCoordinateArray: string;\r\nbegin\r\n  Result := '[]';\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetInitializeHolesArray: string;\r\nbegin\r\n  Result := '[]';\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetInitializeEvents: string;\r\nbegin\r\n  Result :=\r\n  '  ' + MAPVAR + '.addListener(''mapcapabilities_changed'', function(){' + LB +\r\n//  '    const mapCapabilities = ' + MAPVAR + '.getMapCapabilities();' + LB +\r\n//  '    if (!mapCapabilities.isAdvancedMarkersAvailable) {' + LB +\r\n//  '      console.log(\"advanced markers FALSE\");' + LB +\r\n//  '    } else {' + LB +\r\n//  '      console.log(\"advanced markers TRUE\");' + LB +\r\n//  '    }' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.addListener(''zoom_changed'', function(){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(null, \"ZoomChanged\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.addListener(''center_changed'', function(){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(null, \"MapCenterChanged\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.addListener(''maptypeid_changed'', function(){' + LB +\r\n  '    var mapType = JSON.stringify(' + MAPVAR + '.getMapTypeId()).replace(/\"/g, \"\");' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(null, \"MapTypeChanged\"), mapType);' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(null, \"UpdateMapType\"), mapType);' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.addListener(''dragstart'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMoveStart\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.addListener(''dragend'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMoveEnd\"));' + LB +\r\n  '  })' + LB + LB +\r\n//not implemented yet\r\n//  '  ' + MAPVAR + '.addListener(''drag'', function(event){' + LB +\r\n//  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMove\"));' + LB +\r\n//  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.addListener(''idle'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapIdle\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.addListener(''click'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapClick\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.addListener(''rightclick'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapRightClick\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.addListener(''dblclick'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapDblClick\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.addListener(''mouseup'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseUp\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.addListener(''mousedown'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseDown\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.addListener(''mouseout'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseLeave\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.addListener(''mouseover'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseEnter\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.addListener(''mousemove'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseMove\"));' + LB +\r\n  '  })';\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetInitializeMap: string;\r\nbegin\r\n  Result :=\r\n    '  ' + MAPOPTIONS + ' = {' + LB +\r\n    '    draggable: ' + BoolToStrEx(MapsProperties.GetPanning) + ',' + LB +\r\n    '    scrollwheel: ' + BoolToStrEx(MapsProperties.GetZoomOnWheelScroll) + ',' + LB +\r\n    '    disableDoubleClickZoom: ' + BoolToStrEx(not MapsProperties.GetZoomOnDblClick) + ',' + LB +\r\n    '    mapTypeControl: ' + BoolToStrEx(MapsProperties.GetShowMapTypeControl) + ',' + LB +\r\n    '    mapId: \"' + MapsProperties.GetMapID + '\",' + LB +\r\n    '    zoomControl: ' + BoolToStrEx(MapsProperties.GetShowZoomControl) + ',' + LB +\r\n{$IFNDEF WEBLIB}\r\n    '    fullscreenControl: false,' + LB +\r\n{$ENDIF}\r\n    '    center: {lat: ' + MapsProperties.GetDefaultLatitude + ', lng: ' + MapsProperties.GetDefaultLongitude + '},' + LB +\r\n    '    backgroundColor: \"' +  TTMSFNCGraphics.ColorToHTml(MapsProperties.GetBackgroundColor) + '\",' + LB +\r\n    '    zoom: ' + MapsProperties.GetDefaultZoomLevel + ',' + LB +\r\n    '    heading: ' + TTMSFNCUtils.FloatToStrDot(MapsProperties.GetHeading) + ',' + LB +\r\n    '    tilt: ' + TTMSFNCUtils.FloatToStrDot(MapsProperties.GetTilt) + ',' + LB +\r\n    '  }'+ LB + LB +\r\n\r\n    '  ' + MAPVAR + ' = new ' + MAPSERVICEVAR + '.Map(document.getElementById(\"' + MAPID + '\"), ' + MAPOPTIONS + ');' + LB + LB +\r\n\r\n    '  ' + MAPCALCLAYER + ' = new ' + MAPSERVICEVAR + '.OverlayView();' + LB +\r\n    '  ' + MAPCALCLAYER + '.draw = function() {};' + LB +\r\n    '  ' + MAPCALCLAYER + '.setMap(' + MAPVAR + ');';\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetLatLonToXY: string;\r\nbegin\r\n  Result :=\r\n    '  var projection = ' + MAPCALCLAYER + '.getProjection();' + LB +\r\n    '  if (projection) {' + LB +\r\n    '    myLatLng = new ' + MAPSERVICEVAR + '.LatLng(parseFloat(' + PARAMSNAME + '[\"Latitude\"]), parseFloat(' + PARAMSNAME + '[\"Longitude\"]));' + LB +\r\n    '    var position = projection.fromLatLngToContainerPixel(myLatLng);' + LB +\r\n    '    jsonObj[\"X\"] = parseFloat(position.x);' + LB +\r\n    '    jsonObj[\"Y\"] = parseFloat(position.y);' + LB +\r\n    '  }';\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.GetXYToLatLon: string;\r\nbegin\r\n  Result :=\r\n    '  var projection = ' + MAPCALCLAYER + '.getProjection();' + LB +\r\n    '  if (projection) {' + LB +\r\n    '    myPoint = new ' + MAPSERVICEVAR + '.Point(parseInt(' + PARAMSNAME + '[\"X\"]), parseInt(' + PARAMSNAME + '[\"Y\"]));' + #13 +\r\n    '    var position = projection.fromContainerPixelToLatLng(myPoint);' + LB +\r\n    '    jsonObj[\"Latitude\"] = position.lat();' + LB +\r\n    '    jsonObj[\"Longitude\"] = position.lng();' + LB +\r\n    '  }';\r\nend;\r\n\r\nfunction TTMSFNCMapsGoogleMaps.IsValid: Boolean;\r\nbegin\r\n  Result := MapsProperties.GetAPIKey <> '';\r\nend;\r\n\r\nprocedure TTMSFNCMapsGoogleMaps.RemoveScripts;\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  asm\r\n    let keywords = ['maps.googleapis'];\r\n\r\n    if (window.google){\r\n      window.google.maps = undefined;\r\n    }\r\n\r\n    let scripts = document.querySelectorAll('script,link');\r\n    for (let i = scripts.length - 1; i >= 0; i--) {\r\n        let scriptSource = scripts[i].getAttribute('src');\r\n        if (!scriptSource){\r\n          scriptSource = scripts[i].getAttribute('href');\r\n        }\r\n        if (scriptSource != null) {\r\n            if (keywords.filter(item => scriptSource.includes(item)).length) {\r\n                scripts[i].remove();\r\n                // scripts[i].parentNode.removeChild(scripts[i]);\r\n            }\r\n        }\r\n    }\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nend.\r\n\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCMaps;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\n{$IFNDEF LCLLIB}\r\n{$HINTS OFF}\r\n{$IF COMPILERVERSION > 23}\r\n{$DEFINE UNREGISTER}\r\n{$IFEND}\r\n{$HINTS ON}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE UNREGISTER}\r\n{$ENDIF}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE NEEDSSTRINGIFY}\r\n{$ENDIF}\r\n{$IFDEF MACOS}\r\n{$DEFINE NEEDSSTRINGIFY}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, Types, DateUtils, WEBLib.Forms, SysUtils\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, XmlIntf, XMLDom, XMLDoc, Variants\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl, XMLRead, XMLWrite, DOM\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,web, Contnrs, WEBLib.Controls\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF LCLLIB}\r\n  {$IF COMPILERVERSION > 26}\r\n  ,JSON\r\n  {$ELSE}\r\n  ,DBXJSON\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ELSE}\r\n  ,fpjson\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,WEBLIB.JSON\r\n  {$ENDIF}\r\n  ,WEBLib.TMSFNCRouteCalculator\r\n  ,WEBLib.TMSFNCMapsCommonTypes\r\n  ,WEBLib.TMSFNCTypes\r\n  ,WEBLib.TMSFNCJSONReader\r\n  ,WEBLib.TMSFNCGraphicsTypes\r\n  ,WEBLib.TMSFNCWebBrowser;\r\n\r\nconst\r\n  TTMSFNCMapsDocURL = TTMSFNCBaseDocURL + 'tmsfncmaps/';\r\n  TTMSFNCMapsTipsURL = 'https://www.tmssoftware.com/site/tmsfncmaps.asp?s=faq';\r\n  MAJ_VER = 2; // Major version nr.\r\n  MIN_VER = 8; // Minor version nr.\r\n  REL_VER = 0; // Release nr.\r\n  BLD_VER = 1; // Build nr.\r\n\r\n  //v1.0.0.0: First release\r\n  //v1.0.0.1: Improved : property LocalFileAccess to provide access to local files such as images for markers (HERE Maps not supported)\r\n  //v1.0.1.0: New : GetZoomLevel, GetCenterCoordinate with OnGetZoomLevel and OnGetCenterCoordinate asynchronous events\r\n  //        : New : Options.ZoomOnDblClick, Options.ZoomOnWheelScroll, Options.Panning\r\n  //v1.0.1.1: Fixed : Issue with Openlayers being slow when having multiple elements such as markers and polygons, polylines\r\n  //        : Fixed : Issue with Bing Maps ZoomOnDblClick also disabling ZoomOnWheelScroll\r\n  //v1.1.0.0: New : LoadGPXFromFile/LoadGPXFromStream/LoadGPXFromText now also supports elevation and timestamp data\r\n  //        : New : Events OnCreateGPXTrack, OnCreateGPXSegment\r\n  //v1.1.0.1: Fixed : Issue with updating high number of poly elements\r\n  //v1.2.0.0: New : Support for Apple MapKit JS\r\n  //        : New : GetBounds\r\n  //        : Improved : Event propagation across different services\r\n  //        : Fixed : Issue with updating high number of markers\r\n  //v1.2.1.0: New : SaveToGPXFile, SaveToGPXStream, SaveToGPXText support\r\n  //        : New : Support for Plus Codes encoding/decoding via TTMSFNCMapsPlusCode (available in *TMSFNCMapsCommonTypes unit)\r\n  //v1.2.2.0: New : OnCreateGeoJSONObject event\r\n  //v1.2.2.1: Fixed : Issue with creating and destroying maps instance\r\n  //v1.2.2.2: Fixed : Issue resizing OpenLayers in TMS WEB Core\r\n  //v1.2.2.3: Fixed : Issue with LoadGPX for Elevation & Timestamp\r\n  //        : Fixed : Issue with GetBounds not returning correct coordinates in OpenLayers\r\n  //v1.2.2.4: Fixed : Issue with OnRouteCalculatorWayPointUpdated event not being triggered correctly for the end segment\r\n  //v1.2.2.5: Improved : RouteCalculator custom Markers config\r\n  //v1.2.3.0: New : OnMapMoveStart, OnMapMoveEnd events\r\n  //        : Fixed : Issue with map events in Azure Maps\r\n  //v1.2.4.0: New : LatLonToXY & XYToLatLon functions for Google Maps, MapBox and Here\r\n  //v1.2.4.1: Fixed : Issue with displaying custom marker icons for Google Maps\r\n  //v2.0.0.0: New : ElementContainers collection\r\n  //        : New : HeadLinks collection\r\n  //v2.0.1.0: New : MeasureArea: Calculate PolyElement area in square metres\r\n  //        : Fixed : Issue in OpenLayers marker & poly element click detection\r\n  //v2.0.1.1: Fixed : Issue with title popup being shown more than once\r\n  //v2.0.2.0: New : IsPointInArea / PolyElement.ContainsPoint: Check if coordinate is inside Poly area\r\n  //v2.0.3.0: New : PolyLine Distance property\r\n  //v2.0.4.0: New : Route calculator extended with support for MapBox & TomTom\r\n  //v2.0.4.1: Fixed : OpenLayers API URLs updated\r\n  //v2.0.5.0: New : LoadGeoJSON complex polygon support added\r\n  //        : Fixed : Issue with displaying polylines in Google Maps\r\n  //v2.1.0.0: New : Labels\r\n  //        : New : ElementContainers: Coordinate positioning support\r\n  //        : New : LatLonToXY & XYToLatLon functions for MapKit, Azure, OpenLayers, Bing\r\n  //        : Fixed : Azure Maps: Fixed issue with Map events due to changes in the API\r\n  //v2.1.1.0: New : Bounds positioning for ElementContainers and Labels\r\n  //v2.5.0.0: New : Leaflet mapping service support\r\n  //v2.6.0.0: New : OpenLayers v8 API compatibilty\r\n  //        : Fixed : MapKit: Fixed issue with adding polylines\r\n  //v2.6.1.0: New : ShowPopup PanMap parameter added (Google, OpenLayers, Leaflet)\r\n  //v2.6.1.1: Fixed : Issue with unicode characters in ElementContainers and Labels\r\n  //v2.6.1.2: Fixed : Issue with closing Popups in OpenLayers\r\n  //v2.6.1.3: Improved : LoadGeoJSON compatibility for MultiPolygon type\r\n  //v2.7.0.0: New : FindNearestCoordinate: Find the nearest coordinate in an array for a given coordinate\r\n  //        : New : FindNearestPolylineCoordinate: Find the nearest coordinate in Polylines\r\n  //        : New : Markers DefaultIcon added\r\n  //        : New : Polyline.Split, Polyline.Merge, Polyline.Segment added\r\n  //v2.7.0.1: Improved : Polyline.Segment usage\r\n  //v2.7.1.0: New : Support for WayPoints (POI) in LoadGPX/SaveToGPX\r\n  //        : New : Event OnCreateGPXWayPoint\r\n  //v2.7.2.0: New : TTMSFNCMapsCoordinates.ToArray setter added\r\n  //v2.7.2.1: Fixed : Issue with OpenLayers ClearMarkers\r\n  //v2.7.2.2: Fixed : Issue with Azure map mouse events\r\n  //v2.7.3.0: Improved : Boolean to String conversion in JavaScript, JSON\r\n  //v2.8.0.0: New : OnError event added\r\n  //v2.8.0.1: Fixed : Error during destroy in TMS WEB Core\r\n\r\n  LB = #13;\r\n  STARTHTMLTAG = '<html>';\r\n  STARTHEADTAG = '<head>';\r\n  STARTBODYTAG = '<body>';\r\n  STARTTITLETAG = '<title>';\r\n  STARTSCRIPTTAG = '<script>';\r\n  STARTSTYLETAG = '<style>';\r\n  ENDHTMLTAG = '</html>';\r\n  ENDHEADTAG = '</head>';\r\n  ENDBODYTAG = '</body>';\r\n  ENDTITLETAG = '</title>';\r\n  ENDSCRIPTTAG = '</script>';\r\n  ENDSTYLETAG = '</style>';\r\n  MAPID = 'mapContainer';\r\n  MARKERVAR = 'marker';\r\n  ELEMENTCONTAINERVAR = 'elementContainer';\r\n  POPUPVAR = 'popup';\r\n  POLYELEMENTVAR = 'polyelement';\r\n  MAPVAR = 'map';\r\n  MAPOPTIONS = 'mapoptions';\r\n  MAPBOUNDS = 'mapbounds';\r\n  MAPCOMPONENT = 'mapcomponent';\r\n  PARAMSNAME = 'params';\r\n  MARKERARRAYVAR = 'markerarray';\r\n  HEATMAPVAR = 'heatmap';\r\n  HEATMAPARRAYVAR = 'heatmaparray';\r\n  GETHEATMAPARRAYVAR = 'get' + HEATMAPARRAYVAR + '()';\r\n  ADDORUPDATEHEATMAPFUNCTION = 'addOrUpdateHeatMap';\r\n  DELETEHEATMAPFUNCTION = 'deleteHeatMap';\r\n  ELEMENTCONTAINERARRAYVAR = 'elementContainerArray';\r\n  POPUPARRAYVAR = 'popuparray';\r\n  GETMARKERARRAYVAR = 'get' + MARKERARRAYVAR + '()';\r\n  GETELEMENTCONTAINERARRAYVAR = 'get' + ELEMENTCONTAINERARRAYVAR + '()';\r\n  GETSENDEVENT = 'sendEvent';\r\n  GETFOCUSMAP = 'focusMap';\r\n  POLYELEMENTARRAYVAR = 'polyelementarray';\r\n  COORDINATEARRAYVAR = 'coordinatearray';\r\n  HOLEARRAYVAR = 'holearray';\r\n  GETPOLYELEMENTARRAYVAR = 'get' + POLYELEMENTARRAYVAR + '()';\r\n  GETPOPUPARRAYVAR = 'get' + POPUPARRAYVAR + '()';\r\n  DEFAULT_ZOOMLEVEL = 12;\r\n  DEFAULT_MARKERTEXT = 'Sample Marker';\r\n  SHOWPOPUPFUNCTION = 'showPopup';\r\n  CLOSEPOPUPFUNCTION = 'closePopup';\r\n  ADDORUPDATEMARKERFUNCTION = 'addOrUpdateMarker';\r\n  DELETEMARKERFUNCTION = 'deleteMarker';\r\n  ADDORUPDATEELEMENTCONTAINERFUNCTION = 'addOrUpdateElementContainer';\r\n  DELETEELEMENTCONTAINERFUNCTION = 'deleteElementContainer';\r\n  ADDORUPDATEPOLYELEMENTFUNCTION = 'addOrUpdatePolyElement';\r\n  INITIALIZECOORDINATEARRAY = 'initializeCoordinateArray';\r\n  INITIALIZEHOLESARRAY = 'initializeHolesArray';\r\n  ADDCOORDINATETOARRAY = 'addCoordinateToArray';\r\n  ADDHOLETOARRAY = 'addHoleToArray';\r\n  ADDCOORDINATESTOARRAY = 'addCoordinatesToArray';\r\n  ADDHOLESTOARRAY = 'addHolesToArray';\r\n  DELETEPOLYELEMENTFUNCTION = 'deletePolyElement';\r\n  ZOOMTOBOUNDSFUNCTION = 'zoomToBounds';\r\n  SETCENTERCOORDINATEFUNCTION = 'setCenterCoordinate';\r\n  GETCENTERCOORDINATEFUNCTION = 'getCenterCoordinate';\r\n  GETLATLONTOXYFUNCTION = 'getLatLonToXY';\r\n  GETXYTOLATLONFUNCTION = 'getXYToLatLon';\r\n  GETBOUNDSFUNCTION = 'getBounds';\r\n  SETZOOMLEVELFUNCTION = 'setZoomLevel';\r\n  GETZOOMLEVELFUNCTION = 'getZoomLevel';\r\n  UPDATEOPTIONSFUNCTION = 'updateOptions';\r\n  DEBUGCONSOLELINK = 'https://download.tmssoftware.com/webgmaps/firebug/firebug-lite.js#startOpened';\r\n  ROUTECALCULATORROUTE = '#TTMSFNCMapsRouteCalculatorRoute';\r\n  ROUTECALCULATORSEGMENT = '#TTMSFNCMapsRouteCalculatorSegment';\r\n  ROUTECALCULATORMARKER = '#TTMSFNCRouteCalculatorMarker';\r\n  ROUTECALCULATORSTARTMARKER = '#TTMSFNCRouteCalculatorStartMarker';\r\n  ROUTECALCULATORENDMARKER = '#TTMSFNCRouteCalculatorEndMarker';\r\n  ROUTECALCULATORDRAGMARKER = '#TMSFNCRouteCalculatorDragMarker';\r\n  ACTIONCLICKEVENT = 'ActionClick';\r\n  ACTIONDBLCLICKEVENT = 'ActionDblClick';\r\n  ACTIONKEYPRESSEVENT = 'ActionKeyPress';\r\n  ACTIONKEYDOWNEVENT = 'ActionKeyDown';\r\n  ACTIONKEYUPEVENT = 'ActionKeyUp';\r\n  ACTIONMOUSEDOWNEVENT = 'ActionMouseDown';\r\n  ACTIONMOUSEMOVEEVENT = 'ActionMouseMove';\r\n  ACTIONMOUSEUPEVENT = 'ActionMouseUp';\r\n  ACTIONMOUSEENTEREVENT = 'ActionMouseEnter';\r\n  ACTIONMOUSELEAVEEVENT = 'ActionMouseLeave';\r\n  ACTIONBLUREVENT = 'ActionBlur';\r\n  ACTIONFOCUSEVENT = 'ActionFocus';\r\n  ACTIONCHANGEEVENT = 'ActionChange';\r\n  ACTIONSELECTEVENT = 'ActionSelect';\r\n  ACTIONCUSTOMEVENT = 'ActionCustomEvent';\r\n  CUSTOMDEFAULTMARKERICON = 'CustomDefaultMarkerIcon';\r\n\r\ntype\r\n  TTMSFNCCustomMaps = class;\r\n\r\n  TTMSFNCMapsJavaScriptError = class(TTMSFNCWebBrowserError)\r\n  protected\r\n    function GetDefaultType: string; override;\r\n  end;\r\n\r\n\r\n  ITMSFNCCustomMapsProperties = interface(IInterface)\r\n    ['{A081EF51-171D-4C04-9F2C-28A4EBE9E1DE}']\r\n    function GetDefaultLatitude: string;\r\n    function GetDefaultLongitude: string;\r\n    function GetDefaultZoomLevel: string;\r\n    function GetAPIKey: string;\r\n    function GetLocale(AMode: TTMSFNCMapsLocaleMode = mlmDefault): string;\r\n    function GetShowZoomControl: Boolean;\r\n    function GetZoomOnDblClick: Boolean;\r\n    function GetPanning: Boolean;\r\n    function GetMapID: string;\r\n    function GetAPIVersion: string;\r\n    function GetHeading: Double;\r\n    function GetTilt: Double;\r\n    function GetZoomOnWheelScroll: Boolean;\r\n    function GetShowMapTypeControl: Boolean;\r\n    function GetBackgroundColor: TTMSFNCGraphicsColor;\r\n  end;\r\n\r\n  ITMSFNCCustomMapsInstance = interface(IInterface)\r\n    ['{419FAD22-8164-47EB-8CFE-C60BBFF57751}']\r\n    procedure SetMapsProperties(const Value: ITMSFNCCustomMapsProperties);\r\n  end;\r\n\r\n  TTMSFNCMapsLinkKind = (mlkLink, mlkScript, mlkStyle);\r\n\r\n  TTMSFNCMapsLink = class\r\n  private\r\n    FCharSet: string;\r\n    FType: string;\r\n    FURL: string;\r\n    FContent: string;\r\n    FDefer: Boolean;\r\n    FAsync: Boolean;\r\n    FRel: string;\r\n    FKind: TTMSFNCMapsLinkKind;\r\n  public\r\n    constructor CreateScript(AURL: string; AType: string = ''; ACharSet: string = ''; AContent: string = ''; ADefer: Boolean = False; AAsync: Boolean = False); virtual;\r\n    constructor CreateLink(AURL: string; AType: string = ''; ARel: string = ''); virtual;\r\n    constructor Create(AKind: TTMSFNCMapsLinkKind; AURL: string; AType: string; ACharSet: string; ARel: string; AContent: string; ADefer: Boolean; AAsync: Boolean); virtual;\r\n    property URL: string read FURL write FURL;\r\n    property &Type: string read FType write FType;\r\n    property CharSet: string read FCharSet write FCharSet;\r\n    property Content: string read FContent write FContent;\r\n    property Rel: string read FRel write FRel;\r\n    property Defer: Boolean read FDefer write FDefer;\r\n    property Async: Boolean read FAsync write FAsync;\r\n    property Kind: TTMSFNCMapsLinkKind read FKind write FKind;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCMapsLinksList = class(TObjectList)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCMapsLink;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCMapsLink);\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCMapsLink read GetItem write SetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCMapsLinksList = class(TObjectList<TTMSFNCMapsLink>);\r\n  {$ENDIF}\r\n\r\n  TTMSFNCMapsLibraryLocation = (llOffline, llOnline);\r\n  TTMSFNCMapsService = (msGoogleMaps, msHere, msAzureMaps, msBingMaps, msTomTom, msMapBox, msOpenLayers, msMapKit, msLeaflet);\r\n\r\n  ITMSFNCCustomMaps = interface(IInterface)\r\n  ['{B305522A-852B-4A51-B9C0-C9D91B9A8C8B}']\r\n    procedure GetHeadLinks(const AList: TTMSFNCMapsLinksList);\r\n    procedure RemoveScripts;\r\n    function GetResetMap: string;\r\n    function GetHeadStyle: string;\r\n    function GetDelayLoadEvent: string;\r\n    function GetIdentifier: string;\r\n    function GetMapsServiceCheck: string;\r\n    function GetInitializeMap: string;\r\n    function GetInitializeEvents: string;\r\n    function GetAddOrUpdateMarker: string;\r\n    function GetShowPopup: string;\r\n    function GetClosePopup: string;\r\n    function GetDeleteMarker: string;\r\n    function GetAddOrUpdatePolyElement: string;\r\n    function GetDeletePolyElement: string;\r\n    function GetZoomToBounds: string;\r\n    function GetSetCenterCoordinate: string;\r\n    function GetGetCenterCoordinate: string;\r\n    function GetLatLonToXY: string;\r\n    function GetXYToLatLon: string;\r\n    function GetGetBounds: string;\r\n    function GetGetZoomLevel: string;\r\n    function GetSetZoomLevel: string;\r\n    function GetUpdateOptions: string;\r\n    function GetGlobalVariables: string;\r\n    function GetAddCoordinateToArray: string;\r\n    function GetAddHoleToArray: string;\r\n    function GetInitializeCoordinateArray: string;\r\n    function GetInitializeHolesArray: string;\r\n    function IsValid: Boolean;\r\n    procedure DestroyMaps;\r\n  end;\r\n\r\n  ITMSFNCMapsService = interface(IInterface)\r\n  ['{6E91727E-EFA6-4A74-B523-97DAF6605F09}']\r\n    function CreateMaps: ITMSFNCCustomMaps;\r\n    procedure DestroyMaps(AMaps: ITMSFNCCustomMaps);\r\n  end;\r\n\r\n  ITMSFNCMapsServiceGoogleMaps = interface(ITMSFNCMapsService)\r\n    ['{71E5D88A-366B-4573-B54D-DE0B3848CB15}']\r\n  end;\r\n\r\n  ITMSFNCMapsServiceHere = interface(ITMSFNCMapsService)\r\n    ['{646B2E30-657D-4D64-BDE7-13357E46255B}']\r\n  end;\r\n\r\n  ITMSFNCMapsServiceAzureMaps = interface(ITMSFNCMapsService)\r\n    ['{CB46E849-C6D7-4B6C-AE8E-39A404FDE4BE}']\r\n  end;\r\n\r\n  ITMSFNCMapsServiceBingMaps = interface(ITMSFNCMapsService)\r\n    ['{382BB281-E709-4028-9E10-3D3790C04C7B}']\r\n  end;\r\n\r\n  ITMSFNCMapsServiceTomTom = interface(ITMSFNCMapsService)\r\n    ['{AFDD0113-F2BB-44FE-8DD3-4EAEC70BA851}']\r\n  end;\r\n\r\n  ITMSFNCMapsServiceMapBox = interface(ITMSFNCMapsService)\r\n    ['{B141412A-AD1C-4C5F-9729-952BD04B9D6D}']\r\n  end;\r\n\r\n  ITMSFNCMapsServiceMapKit = interface(ITMSFNCMapsService)\r\n    ['{3EAC77BF-DBDA-4328-910F-B2C23C5E9229}']\r\n  end;\r\n\r\n  ITMSFNCMapsServiceOpenLayers = interface(ITMSFNCMapsService)\r\n    ['{424129BB-9C0E-44C5-BD30-E6399A5BC5CE}']\r\n  end;\r\n\r\n  ITMSFNCMapsServiceLeaflet = interface(ITMSFNCMapsService)\r\n    ['{CEB938F6-48D3-4173-BB7C-7D5C56BFAA51}']\r\n  end;\r\n\r\n  TTMSFNCMapsGPXColorRec = record\r\n    Color: TTMSFNCGraphicsColor;\r\n  end;\r\n\r\n  TTMSFNCMapsGPXColorRecArray = array of TTMSFNCMapsGPXColorRec;\r\n\r\n  TTMSFNCMapsPointRec = record\r\n    Coordinate: TTMSFNCMapsCoordinateRec;\r\n    Name: string;\r\n  end;\r\n\r\n  TTMSFNCMapsPolyElementRec = record\r\n    Coordinates: TTMSFNCMapsCoordinateRecArray;\r\n    Holes: TTMSFNCMapsCoordinateRecArrayArray;\r\n    Name: string;\r\n  end;\r\n\r\n  TTMSFNCMapsGeoJSONRec = record\r\n    Points: array of TTMSFNCMapsPointRec;\r\n    Polylines: array of TTMSFNCMapsPolyElementRec;\r\n    Polygons: array of TTMSFNCMapsPolyElementRec;\r\n  end;\r\n\r\n  TTMSFNCMapsHeatMap = class;\r\n\r\n  TTMSFNCMapsWeightedCoordinate = class(TCollectionItem)\r\n  private\r\n    FID: string;\r\n    FOwner: TTMSFNCMapsHeatMap;\r\n    FCoordinate: TTMSFNCMapsCoordinate;\r\n    FWeight: Double;\r\n    function GetID: string;\r\n    procedure SetCoordinate(const Value: TTMSFNCMapsCoordinate);\r\n    procedure SetWeight(const Value: Double);\r\n  protected\r\n    procedure UpdateHeatmap;\r\n    procedure DoBeginUpdate(Sender: TObject);\r\n    procedure DoEndUpdate(Sender: TObject);\r\n    procedure DoUpdateCoordinate(Sender: TObject);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n  published\r\n    property Coordinate: TTMSFNCMapsCoordinate read FCoordinate write SetCoordinate;\r\n    property Weight: Double read FWeight write SetWeight;\r\n    property ID: string read GetID;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCMapsWeightedCoordinates = class(TTMSFNCOwnedCollection)\r\n  {$ELSE}\r\n  TTMSFNCMapsWeightedCoordinates = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCMapsWeightedCoordinate>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TTMSFNCMapsHeatMap;\r\n    function GetItem(Index: Integer): TTMSFNCMapsWeightedCoordinate;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCMapsWeightedCoordinate);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; virtual;\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCMapsHeatMap); virtual;\r\n    property Items[Index: Integer]: TTMSFNCMapsWeightedCoordinate read GetItem write SetItem; default;\r\n    procedure Clear; virtual;\r\n    function Add: TTMSFNCMapsWeightedCoordinate;\r\n    function Insert(Index: Integer): TTMSFNCMapsWeightedCoordinate;\r\n  end;\r\n\r\n  TTMSFNCMapsHeatMap = class(TCollectionItem)\r\n  private\r\n    FID: string;\r\n    FOwner: TTMSFNCCustomMaps;\r\n    FDataBoolean: Boolean;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FDataPointer: Pointer;\r\n    FRecreate: Boolean;\r\n    FWeightedCoordinates: TTMSFNCMapsWeightedCoordinates;\r\n    FOpacity: Single;\r\n    FGradientStartColor: TTMSFNCGraphicsColor;\r\n    FGradientMidColor: TTMSFNCGraphicsColor;\r\n    FGradientEndColor: TTMSFNCGraphicsColor;\r\n    function GetID: string;\r\n    procedure SetCoordinates(const Value: TTMSFNCMapsWeightedCoordinates);\r\n    procedure SetOpacity(const Value: Single);\r\n    procedure SetGradientEndColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetGradientMidColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetGradientStartColor(const Value: TTMSFNCGraphicsColor);\r\n  protected\r\n    procedure UpdateHeatMap; virtual;\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n    property Recreate: Boolean read FRecreate write FRecreate;\r\n  published\r\n    property ID: string read GetID;\r\n    property Opacity: Single read FOpacity write SetOpacity;\r\n    property GradientStartColor: TTMSFNCGraphicsColor read FGradientStartColor write SetGradientStartColor default gcGreen;\r\n    property GradientMidColor: TTMSFNCGraphicsColor read FGradientMidColor write SetGradientMidColor default gcYellow;\r\n    property GradientEndColor: TTMSFNCGraphicsColor read FGradientEndColor write SetGradientEndColor default gcRed;\r\n    property WeightedCoordinates: TTMSFNCMapsWeightedCoordinates read FWeightedCoordinates write SetCoordinates;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCMapsHeatMaps = class(TTMSFNCOwnedCollection)\r\n  {$ELSE}\r\n  TTMSFNCMapsHeatMaps = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCMapsHeatMap>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TTMSFNCCustomMaps;\r\n    function GetItem(Index: Integer): TTMSFNCMapsHeatMap;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCMapsHeatMap);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; virtual;\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCCustomMaps); virtual;\r\n    property Items[Index: Integer]: TTMSFNCMapsHeatMap read GetItem write SetItem; default;\r\n    procedure Clear; virtual;\r\n    function Add: TTMSFNCMapsHeatMap;\r\n    function Insert(Index: Integer): TTMSFNCMapsHeatMap;\r\n  end;\r\n\r\n  TTMSFNCMapsPopup = class(TPersistent)\r\n  private\r\n    FID: string;\r\n    FText: string;\r\n    FOffsetX, FOffsetY: Double;\r\n    FCoordinate: TTMSFNCMapsCoordinate;\r\n    FPanMap: Boolean;\r\n    function GetID: string;\r\n    function GetLatitude: Double;\r\n    function GetLongitude: Double;\r\n    procedure SetLatitude(const Value: Double);\r\n    procedure SetLongitude(const Value: Double);\r\n  public\r\n    constructor Create; virtual;\r\n    destructor Destroy; override;\r\n  published\r\n    property ID: string read GetID;\r\n    property Text: string read FText write FText;\r\n    property Coordinate: TTMSFNCMapsCoordinate read FCoordinate;\r\n    property Longitude: Double read GetLongitude write SetLongitude;\r\n    property Latitude: Double read GetLatitude write SetLatitude;\r\n    property OffsetX: Double read FOffsetX write FOffsetX;\r\n    property OffsetY: Double read FOffsetY write FOffsetY;\r\n    property PanMap: Boolean read FPanMap write FPanMap;\r\n  end;\r\n\r\n  TTMSFNCMapsMarker = class;\r\n\r\n  TTMSFNCMapsMarkerIcon = class(TPersistent)\r\n  private\r\n    FEnabled: Boolean;\r\n    FFill: TTMSFNCGraphicsColor;\r\n    FSize: Integer;\r\n    FOwner: TTMSFNCMapsMarker;\r\n    procedure SetFill(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetEnabled(const Value: Boolean);\r\n    procedure SetSize(const Value: Integer);\r\n  public\r\n    constructor Create(AMarker: TTMSFNCMapsMarker); virtual;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n    procedure UpdateMarkerIcon;\r\n    property Owner: TTMSFNCMapsMarker read FOwner write FOwner;\r\n  published\r\n    property Enabled: Boolean read FEnabled write SetEnabled;\r\n    property Fill: TTMSFNCGraphicsColor read FFill write SetFill default gcRed;\r\n    property Size: Integer read FSize write SetSize default 32;\r\n  end;\r\n\r\n  TTMSFNCMapsMarker = class(TCollectionItem)\r\n  private\r\n    FReload: Boolean;\r\n    FID: string;\r\n    FDataBoolean: Boolean;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FDataPointer: Pointer;\r\n    FTitle: string;\r\n    FCoordinate: TTMSFNCMapsCoordinate;\r\n    FIconURL: string;\r\n    FRecreate: Boolean;\r\n    FVisible: Boolean;\r\n    FUseDefaultMarkerIcon: Boolean;\r\n    FDefaultMarkerIconColor: TTMSFNCGraphicsColor;\r\n    FDefaultMarkerIconSize: Integer;\r\n    FDefaultIcon: TTMSFNCMapsMarkerIcon;\r\n    procedure SetTitle(const Value: string);\r\n    function GetID: string;\r\n    function IsTitleStored: Boolean;\r\n    procedure SetCoordinate(const Value: TTMSFNCMapsCoordinate);\r\n    function GetLatitude: Double;\r\n    function GetLongitude: Double;\r\n    procedure SetLatitude(const Value: Double);\r\n    procedure SetLongitude(const Value: Double);\r\n    function IsLatitudeStored: Boolean;\r\n    function IsLongitudeStored: Boolean;\r\n    function IsIconURLStored: Boolean;\r\n    procedure SetIconURL(const Value: string);\r\n    procedure SetVisible(const Value: Boolean);\r\n    procedure SetDefaultIcon(const Value: TTMSFNCMapsMarkerIcon);\r\n  protected\r\n    FOwner: TTMSFNCCustomMaps;\r\n    procedure UpdateMarker; virtual;\r\n    procedure CoordinateChanged(Sender: TObject);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n    property Coordinate: TTMSFNCMapsCoordinate read FCoordinate write SetCoordinate;\r\n    property Recreate: Boolean read FRecreate write FRecreate default False;\r\n  published\r\n    property ID: string read GetID;\r\n    property Longitude: Double read GetLongitude write SetLongitude stored IsLongitudeStored nodefault;\r\n    property Latitude: Double read GetLatitude write SetLatitude stored IsLatitudeStored nodefault;\r\n    property Title: string read FTitle write SetTitle stored IsTitleStored nodefault;\r\n    property IconURL: string read FIconURL write SetIconURL stored IsIconURLStored nodefault;\r\n    property Visible: Boolean read FVisible write SetVisible default True;\r\n    property DefaultIcon: TTMSFNCMapsMarkerIcon read FDefaultIcon write SetDefaultIcon;\r\n\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCMapsMarkers = class(TTMSFNCOwnedCollection)\r\n  {$ELSE}\r\n  TTMSFNCMapsMarkers = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCMapsMarker>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TTMSFNCCustomMaps;\r\n    function GetItem(Index: Integer): TTMSFNCMapsMarker;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCMapsMarker);\r\n    function GetItemByID(ID: string): TTMSFNCMapsMarker;\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; virtual;\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCCustomMaps); virtual;\r\n    property Items[Index: Integer]: TTMSFNCMapsMarker read GetItem write SetItem; default;\r\n    procedure Clear; virtual;\r\n    procedure Recreate; virtual;\r\n    function Add: TTMSFNCMapsMarker;\r\n    function Insert(Index: Integer): TTMSFNCMapsMarker;\r\n    function ToCoordinateArray: TTMSFNCMapsCoordinateRecArrayArray; virtual;\r\n    property ItemByID[ID: string]: TTMSFNCMapsMarker read GetItemByID;\r\n  end;\r\n\r\n  TTMSFNCMapsPolyElement = class;\r\n\r\n  TTMSFNCMapsPolyElementHole = class(TCollectionItem)\r\n  private\r\n    FID: string;\r\n    FOwner: TTMSFNCMapsPolyElement;\r\n    FCoordinates: TTMSFNCMapsCoordinates;\r\n    function GetID: string;\r\n    procedure SetCoordinates(const Value: TTMSFNCMapsCoordinates);\r\n  protected\r\n    procedure UpdatePolyElement;\r\n    procedure DoBeginUpdate(Sender: TObject);\r\n    procedure DoEndUpdate(Sender: TObject);\r\n    procedure DoUpdateCoordinates(Sender: TObject);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n  published\r\n    property Coordinates: TTMSFNCMapsCoordinates read FCoordinates write SetCoordinates;\r\n    property ID: string read GetID;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCMapsPolyElementHoles = class(TTMSFNCOwnedCollection)\r\n  {$ELSE}\r\n  TTMSFNCMapsPolyElementHoles = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCMapsPolyElementHole>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TTMSFNCMapsPolyElement;\r\n    function GetItem(Index: Integer): TTMSFNCMapsPolyElementHole;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCMapsPolyElementHole);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; virtual;\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCMapsPolyElement); virtual;\r\n    property Items[Index: Integer]: TTMSFNCMapsPolyElementHole read GetItem write SetItem; default;\r\n    procedure Clear; virtual;\r\n    function Add: TTMSFNCMapsPolyElementHole;\r\n    function Insert(Index: Integer): TTMSFNCMapsPolyElementHole;\r\n  end;\r\n\r\n  TTMSFNCMapsPolyElement = class(TCollectionItem)\r\n  private\r\n    FReload: Boolean;\r\n    FID: string;\r\n    FOwner: TTMSFNCCustomMaps;\r\n    FDataBoolean: Boolean;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FDataPointer: Pointer;\r\n    FStrokeColor: TTMSFNCGraphicsColor;\r\n    FCoordinates: TTMSFNCMapsCoordinates;\r\n    FStrokeOpacity: Single;\r\n    FStrokeWidth: Integer;\r\n    FRecreate: Boolean;\r\n    FVisible: Boolean;\r\n    FHoles: TTMSFNCMapsPolyElementHoles;\r\n    function GetID: string;\r\n    procedure SetStrokeColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetCoordinates(const Value: TTMSFNCMapsCoordinates);\r\n    procedure SetHoles(const Value: TTMSFNCMapsPolyElementHoles);\r\n    function IsStrokeOpacityStored: Boolean;\r\n    procedure SetStrokeOpacity(const Value: Single);\r\n    procedure SetStrokeWidth(const Value: Integer);\r\n    procedure SetVisible(const Value: Boolean);\r\n  protected\r\n    procedure BeginUpdate;\r\n    procedure EndUpdate;\r\n    procedure UpdatePolyElement; virtual;\r\n    procedure DoUpdateCoordinates(Sender: TObject); virtual;\r\n    procedure DoBeginUpdate(Sender: TObject); virtual;\r\n    procedure DoEndUpdate(Sender: TObject); virtual;\r\n    property Coordinates: TTMSFNCMapsCoordinates read FCoordinates write SetCoordinates;\r\n    property Holes: TTMSFNCMapsPolyElementHoles read FHoles write SetHoles;\r\n    function AddHole(ACoordinates: TTMSFNCMapsCoordinateRecArray): TTMSFNCMapsPolyElementHole; reintroduce; virtual;\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n    function Area: Double; virtual;\r\n    function ContainsPoint(ACoordinate: TTMSFNCMapsCoordinateRec): Boolean; virtual;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n    property Recreate: Boolean read FRecreate write FRecreate default False;\r\n  published\r\n    property ID: string read GetID;\r\n    property StrokeColor: TTMSFNCGraphicsColor read FStrokeColor write SetStrokeColor default gcBlack;\r\n    property StrokeOpacity: Single read FStrokeOpacity write SetStrokeOpacity stored IsStrokeOpacityStored nodefault;\r\n    property StrokeWidth: Integer read FStrokeWidth write SetStrokeWidth default 2;\r\n    property Visible: Boolean read FVisible write SetVisible default True;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCMapsPolyElements = class(TTMSFNCOwnedCollection)\r\n  {$ELSE}\r\n  TTMSFNCMapsPolyElements = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCMapsPolyElement>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TTMSFNCCustomMaps;\r\n    function GetItem(Index: Integer): TTMSFNCMapsPolyElement;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCMapsPolyElement);\r\n    function GetItemByID(ID: string): TTMSFNCMapsPolyElement;\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; virtual;\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCCustomMaps); virtual;\r\n    property Items[Index: Integer]: TTMSFNCMapsPolyElement read GetItem write SetItem; default;\r\n    procedure Clear; virtual;\r\n    procedure Recreate; virtual;\r\n    function Add: TTMSFNCMapsPolyElement;\r\n    function Insert(Index: Integer): TTMSFNCMapsPolyElement;\r\n    function ToCoordinateArray: TTMSFNCMapsCoordinateRecArrayArray; virtual;\r\n    property ItemByID[ID: string]: TTMSFNCMapsPolyElement read GetItemByID;\r\n  end;\r\n\r\n  TTMSFNCMapsPolyline = class(TTMSFNCMapsPolyElement)\r\n  public\r\n    function Distance: Double; virtual;\r\n    function Split(ACoordinate: TTMSFNCMapsCoordinateRec): TTMSFNCMapsPolyline; overload;\r\n    function Split(AIndex: Integer): TTMSFNCMapsPolyline; overload;\r\n    function Segment(AStartCoordinate, AEndCoordinate: TTMSFNCMapsCoordinateRec): TTMSFNCMapsPolyline; overload;\r\n    function Segment(AStartIndex, AEndIndex: Integer): TTMSFNCMapsPolyline; overload;\r\n    procedure Merge(APolyline: TTMSFNCMapsPolyline); overload;\r\n    procedure Merge(ACoordinates: TTMSFNCMapsCoordinateRecArray); overload;\r\n  published\r\n    property Coordinates;\r\n  end;\r\n\r\n  TTMSFNCMapsPolylines = class(TTMSFNCMapsPolyElements)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCMapsPolyline;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCMapsPolyline);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; override;\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCMapsPolyline read GetItem write SetItem; default;\r\n    function Add: TTMSFNCMapsPolyline;\r\n    function Insert(Index: Integer): TTMSFNCMapsPolyline;\r\n  end;\r\n\r\n  TTMSFNCMapsCustomPolygon = class(TTMSFNCMapsPolyElement)\r\n  private\r\n    FFillColor: TTMSFNCGraphicsColor;\r\n    FFillOpacity: Single;\r\n    procedure SetFillColor(const Value: TTMSFNCGraphicsColor);\r\n    function IsFillOpacityStored: Boolean;\r\n    procedure SetFillOpacity(const Value: Single);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n  published\r\n    property FillColor: TTMSFNCGraphicsColor read FFillColor write SetFillColor default gcWhite;\r\n    property FillOpacity: Single read FFillOpacity write SetFillOpacity stored IsFillOpacityStored nodefault;\r\n  end;\r\n\r\n  TTMSFNCMapsCustomPolygons = class(TTMSFNCMapsPolyElements)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCMapsCustomPolygon;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCMapsCustomPolygon);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; override;\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCMapsCustomPolygon read GetItem write SetItem; default;\r\n    function Add: TTMSFNCMapsCustomPolygon;\r\n    function Insert(Index: Integer): TTMSFNCMapsCustomPolygon;\r\n  end;\r\n\r\n  TTMSFNCMapsPolygon = class(TTMSFNCMapsCustomPolygon)\r\n  protected\r\n    function AddHole(ACoordinates: TTMSFNCMapsCoordinateRecArray): TTMSFNCMapsPolyElementHole; override;\r\n    property Holes;\r\n  published\r\n    property Coordinates;\r\n  end;\r\n\r\n  TTMSFNCMapsPolygons = class(TTMSFNCMapsPolyElements)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCMapsPolygon;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCMapsPolygon);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; override;\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCMapsPolygon read GetItem write SetItem; default;\r\n    function Add: TTMSFNCMapsPolygon;\r\n    function Insert(Index: Integer): TTMSFNCMapsPolygon;\r\n  end;\r\n\r\n  TTMSFNCMapsRectangle = class(TTMSFNCMapsCustomPolygon)\r\n  private\r\n    FBounds: TTMSFNCMapsBounds;\r\n    procedure SetBounds(const Value: TTMSFNCMapsBounds);\r\n  protected\r\n    procedure DoBoundsChanged(Sender: TObject);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    function Area: Double; override;\r\n    function ContainsPoint(ACoordinate: TTMSFNCMapsCoordinateRec): Boolean; override;\r\n  published\r\n    property Bounds: TTMSFNCMapsBounds read FBounds write SetBounds;\r\n  end;\r\n\r\n  TTMSFNCMapsRectangles = class(TTMSFNCMapsCustomPolygons)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCMapsRectangle;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCMapsRectangle);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; override;\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCMapsRectangle read GetItem write SetItem; default;\r\n    function Add: TTMSFNCMapsRectangle;\r\n    function Insert(Index: Integer): TTMSFNCMapsRectangle;\r\n    function ToCoordinateArray: TTMSFNCMapsCoordinateRecArrayArray; override;\r\n  end;\r\n\r\n  TTMSFNCMapsCircle = class(TTMSFNCMapsCustomPolygon)\r\n  private\r\n    FRadius: Double;\r\n    FCenter: TTMSFNCMapsCoordinate;\r\n    procedure SetRadius(const Value: Double);\r\n    procedure SetCenter(const Value: TTMSFNCMapsCoordinate);\r\n    function IsRadiusStored: Boolean;\r\n  protected\r\n    procedure DoCenterChanged(Sender: TObject);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    function Area: Double; override;\r\n    function ContainsPoint(ACoordinate: TTMSFNCMapsCoordinateRec): Boolean; override;\r\n  published\r\n    property Center: TTMSFNCMapsCoordinate read FCenter write SetCenter;\r\n    property Radius: Double read FRadius write SetRadius stored IsRadiusStored nodefault;\r\n  end;\r\n\r\n  TTMSFNCMapsCircles = class(TTMSFNCMapsCustomPolygons)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCMapsCircle;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCMapsCircle);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; override;\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCMapsCircle read GetItem write SetItem; default;\r\n    function Add: TTMSFNCMapsCircle;\r\n    function Insert(Index: Integer): TTMSFNCMapsCircle;\r\n    function ToCoordinateArray: TTMSFNCMapsCoordinateRecArrayArray; override;\r\n  end;\r\n\r\n  TTMSFNCMapsHeadLink = class(TCollectionItem)\r\n  private\r\n    FOwner: TTMSFNCCustomMaps;\r\n    FURL: string;\r\n    FEnabled: Boolean;\r\n    FRel: string;\r\n    FDefer: Boolean;\r\n    FCharSet: string;\r\n    FKind: TTMSFNCMapsLinkKind;\r\n    FType: string;\r\n    FContent: TStringList;\r\n    FAsync: Boolean;\r\n    procedure SetURL(const Value: string);\r\n    function IsURLStored: Boolean;\r\n    procedure SetEnabled(const Value: Boolean);\r\n    procedure SetContent(const Value: TStringList);\r\n    procedure SetAsync(const Value: Boolean);\r\n    procedure SetCharSet(const Value: string);\r\n    procedure SetDefer(const Value: Boolean);\r\n    procedure SetRel(const Value: string);\r\n    procedure SetType(const Value: string);\r\n    procedure SetKind(const Value: TTMSFNCMapsLinkKind);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n    procedure HeadLinkChanged(Sender: TObject);\r\n    procedure UpdateHeadLink; virtual;\r\n  published\r\n    property URL: string read FURL write SetURL stored IsURLStored nodefault;\r\n    property Enabled: Boolean read FEnabled write SetEnabled default True;\r\n    property &Type: string read FType write SetType;\r\n    property CharSet: string read FCharSet write SetCharSet;\r\n    property Content: TStringList read FContent write SetContent;\r\n    property Rel: string read FRel write SetRel;\r\n    property Defer: Boolean read FDefer write SetDefer;\r\n    property Async: Boolean read FAsync write SetAsync;\r\n    property Kind: TTMSFNCMapsLinkKind read FKind write SetKind;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCMapsHeadLinks = class(TTMSFNCOwnedCollection)\r\n  {$ELSE}\r\n  TTMSFNCMapsHeadLinks = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCMapsHeadLink>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TTMSFNCCustomMaps;\r\n    function GetItem(Index: Integer): TTMSFNCMapsHeadLink;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCMapsHeadLink);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; virtual;\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCCustomMaps); virtual;\r\n    property Items[Index: Integer]: TTMSFNCMapsHeadLink read GetItem write SetItem; default;\r\n    procedure Clear; virtual;\r\n    function Add: TTMSFNCMapsHeadLink;\r\n    function AddScript(AURL: string): TTMSFNCMapsHeadLink;\r\n    function AddLink(AURL: string): TTMSFNCMapsHeadLink;\r\n    function AddStyleSheetLink(AURL: string): TTMSFNCMapsHeadLink;\r\n    function AddStyle(AStyle: TStrings): TTMSFNCMapsHeadLink;\r\n    function Insert(Index: Integer): TTMSFNCMapsHeadLink;\r\n  end;\r\n\r\n  TTMSFNCMapsOptions = class(TPersistent)\r\n  private\r\n    FDefaultLongitude: Double;\r\n    FDefaultLatitude: Double;\r\n    FOnChange: TNotifyEvent;\r\n    FConsole: Boolean;\r\n    FDefaultZoomLevel: Double;\r\n    FShowZoomControl: Boolean;\r\n    FShowMapTypeControl: Boolean;\r\n    FLocale: string;\r\n    FZoomOnDblClick: Boolean;\r\n    FZoomOnWheelScroll: Boolean;\r\n    FPanning: Boolean;\r\n    FBackgroundColor: TTMSFNCGraphicsColor;\r\n    function IsDefaultLatitudeStored: Boolean;\r\n    function IsDefaultLongitudeStored: Boolean;\r\n    procedure SetDefaultLatitude(const Value: Double);\r\n    procedure SetDefaultLongitude(const Value: Double);\r\n    procedure SetConsole(const Value: Boolean);\r\n    procedure SetDefaultZoomLevel(const Value: Double);\r\n    procedure SetShowMapTypeControl(const Value: Boolean);\r\n    procedure SetShowZoomControl(const Value: Boolean);\r\n    function IsLocaleStored: Boolean;\r\n    procedure SetLocale(const Value: string);\r\n    procedure SetZoomOnDblClick(const Value: Boolean);\r\n    procedure SetPanning(const Value: Boolean);\r\n    procedure SetZoomOnWheelScroll(const Value: Boolean);\r\n    procedure SetBackgroundColor(const Value: TTMSFNCGraphicsColor);\r\n  protected\r\n    procedure Changed;\r\n    property BackgroundColor: TTMSFNCGraphicsColor read FBackgroundColor write SetBackgroundColor default gcSilver;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create; virtual;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  published\r\n    property Console: Boolean read FConsole write SetConsole default False;\r\n    property Locale: string read FLocale write SetLocale stored IsLocaleStored nodefault;\r\n    property DefaultLatitude: Double read FDefaultLatitude write SetDefaultLatitude stored IsDefaultLatitudeStored nodefault;\r\n    property DefaultLongitude: Double read FDefaultLongitude write SetDefaultLongitude stored IsDefaultLongitudeStored nodefault;\r\n    property DefaultZoomLevel: Double read FDefaultZoomLevel write SetDefaultZoomLevel;\r\n    property ShowZoomControl: Boolean read FShowZoomControl write SetShowZoomControl default True;\r\n    property ShowMapTypeControl: Boolean read FShowMapTypeControl write SetShowMapTypeControl default True;\r\n    property ZoomOnDblClick: Boolean read FZoomOnDblClick write SetZoomOnDblClick default True;\r\n    property ZoomOnWheelScroll: Boolean read FZoomOnWheelScroll write SetZoomOnWheelScroll default True;\r\n    property Panning: Boolean read FPanning write SetPanning default True;\r\n  end;\r\n\r\n  TTMSFNCMapsGetDefaultHTMLMessageEvent = procedure(Sender: TObject; var ADefaultHTMLMessage: string) of object;\r\n  TTMSFNCMapsCustomizePolyElementEvent = procedure(Sender: TObject; var ACustomizePolyElement: string) of object;\r\n  TTMSFNCMapsCustomizeMarkerEvent = procedure(Sender: TObject; var ACustomizeMarker: string) of object;\r\n  TTMSFNCMapsCustomizePopupEvent = procedure(Sender: TObject; var ACustomizePopup: string) of object;\r\n  TTMSFNCMapsCustomizeOptionsEvent = procedure(Sender: TObject; var ACustomizeOptions: string) of object;\r\n  TTMSFNCMapsCustomizeMapEvent = procedure(Sender: TObject; var ACustomizeMap: string) of object;\r\n  TTMSFNCMapsCustomizeGlobalVariablesEvent = procedure(Sender: TObject; var ACustomizeGlobalVariables: string) of object;\r\n  TTMSFNCMapsCustomizeJavaScriptEvent = procedure(Sender: TObject; var ACustomizeJavaScript: string) of object;\r\n  TTMSFNCMapsCustomizeCSSEvent = procedure(Sender: TObject; var ACustomizeCSS: string) of object;\r\n  TTMSFNCMapsCustomizeHeadLinksEvent = procedure(Sender: TObject; AList: TTMSFNCMapsLinksList) of object;\r\n  TTMSFNCMapsCustomizeLocalAccessFileNameEvent = procedure(Sender: TObject; var AFileName: string) of object;\r\n\r\n  TTMSFNCMapsMarkersArray = array of TTMSFNCMapsMarker;\r\n\r\n  TTMSFNCMapsEventData = class(TPersistent)\r\n  private\r\n    FEvent: string;\r\n    FCoordinate: TTMSFNCMapsCoordinate;\r\n    FEventName: string;\r\n    FX: Double;\r\n    FY: Double;\r\n    FID: string;\r\n    FPolyElement: TTMSFNCMapsPolyElement;\r\n    FMarker: TTMSFNCMapsMarker;\r\n    FCustomData: string;\r\n  public\r\n    constructor Create; virtual;\r\n    destructor Destroy; override;\r\n    property Marker: TTMSFNCMapsMarker read FMarker;\r\n    property PolyElement: TTMSFNCMapsPolyElement read FPolyElement;\r\n    property CustomData: string read FCustomData write FCustomData;\r\n  published\r\n    property ID: string read FID write FID;\r\n    property EventName: string read FEventName write FEventName;\r\n    property Coordinate: TTMSFNCMapsCoordinate read FCoordinate;\r\n    property X: Double read FX write FX;\r\n    property Y: Double read FY write FY;\r\n  end;\r\n\r\n  TTMSFNCMapsGeoJSONEventData = class(TPersistent)\r\n  private\r\n    FJSONValue: TJSONValue;\r\n    FPolygon: TTMSFNCMapsCoordinateRecArray;\r\n    FPolyline: TTMSFNCMapsCoordinateRecArray;\r\n    FPoint: TTMSFNCMapsCoordinateRec;\r\n  public\r\n    constructor Create; virtual;\r\n    destructor Destroy; override;\r\n    property Polygon: TTMSFNCMapsCoordinateRecArray read FPolygon write FPolygon;\r\n    property Polyline: TTMSFNCMapsCoordinateRecArray read FPolyline write FPolyline;\r\n    property Point: TTMSFNCMapsCoordinateRec read FPoint write FPoint;\r\n    property JSONValue: TJSONValue read FJSONValue write FJSONValue;\r\n  end;\r\n\r\n  TTMSFNCMapsGeoJSONObjectEvent = procedure(Sender: TObject; AEventData: TTMSFNCMapsGeoJSONEventData) of object;\r\n  TTMSFNCMapsBaseEvent = procedure(Sender: TObject; AEventData: TTMSFNCMapsEventData) of object;\r\n  TTMSFNCMapsGetCenterCoordinateEvent = procedure(Sender: TObject; ACoordinate: TTMSFNCMapsCoordinateRec) of object;\r\n  TTMSFNCMapsGetBoundsEvent = procedure(Sender: TObject; ABounds: TTMSFNCMapsBoundsRec) of object;\r\n  TTMSFNCMapsGetZoomLevelEvent = procedure(Sender: TObject; AZoomLevel: Double) of object;\r\n  TTMSFNCMapsRouteCalculatorWayPointEvent = procedure(Sender: TObject; AMarker: TTMSFNCMapsMarker; ASegment: TTMSFNCRouteCalculatorSegment) of object;\r\n  TTMSFNCMapsRouteCalculatorPolylineEvent = procedure(Sender: TObject; APolyline: TTMSFNCMapsPolyline; ASegment: TTMSFNCRouteCalculatorSegment) of object;\r\n  TTMSFNCMapsRouteCalculatorDeletePolylineEvent = procedure(Sender: TObject; var ACanDelete: Boolean; APolyline: TTMSFNCMapsPolyline; ASegment: TTMSFNCRouteCalculatorSegment) of object;\r\n  TTMSFNCMapsRouteCalculatorDeleteMarkerEvent = procedure(Sender: TObject; var ACanDelete: Boolean; AMarker: TTMSFNCMapsMarker; ASegment: TTMSFNCRouteCalculatorSegment) of object;\r\n\r\n  TTMSFNCMapsOptionsClass = class of TTMSFNCMapsOptions;\r\n  TTMSFNCMapsMarkersClass = class of TTMSFNCMapsMarkers;\r\n  TTMSFNCMapsHeatMapsClass = class of TTMSFNCMapsHeatMaps;\r\n  TTMSFNCMapsElementContainersClass = class of TTMSFNCMapsElementContainers;\r\n  TTMSFNCMapsLabelsClass = class of TTMSFNCMapsLabels;\r\n  TTMSFNCMapsHeadLinksClass = class of TTMSFNCMapsHeadLinks;\r\n  TTMSFNCMapsRectanglesClass = class of TTMSFNCMapsRectangles;\r\n  TTMSFNCMapsCirclesClass = class of TTMSFNCMapsCircles;\r\n  TTMSFNCMapsPolylinesClass = class of TTMSFNCMapsPolylines;\r\n  TTMSFNCMapsPolygonsClass = class of TTMSFNCMapsPolygons;\r\n\r\n  TTMSFNCMapsElementActions = class;\r\n  TTMSFNCMapsElementContainer = class;\r\n\r\n  TTMSFNCMapsHTMLEvent = (heClick, heDblClick, heKeyPress, heKeyDown, heKeyUp, heMouseDown, heMouseMove, heMouseUp, heMouseEnter, heMouseLeave, heBlur, heFocus, heChange, heSelect, heCustom, heNone);\r\n  TTMSFNCMapsPosition = (poCustom, poTopLeft, poTopCenter, poTopRight, poCenterLeft, poCenterCenter, poBottomLeft, poBottomCenter, poBottomRight, poCoordinate, poBounds, poCenterRight);\r\n  TTMSFNCMapsPositionType = (ptCoordinate, ptBounds);\r\n  TTMSFNCMapsReturnValue = (rvNone, rvValue, rvChecked, rvInnerHTML, rvInnerText, rvSelectedIndex);\r\n  TTMSFNCMapsLabelType = (ltLabel, ltBalloon);\r\n\r\n  TTMSFNCMapsElementAction = class(TCollectionItem)\r\n  private\r\n    FHTMLElementID: string;\r\n    FElementEvent: TTMSFNCMapsHTMLEvent;\r\n    FTag: integer;\r\n    FEnabled: boolean;\r\n    FName: string;\r\n    FOnExecute: TTMSFNCMapsBaseEvent;\r\n    FCustomEvent: string;\r\n    FEventReturnValue: TTMSFNCMapsReturnValue;\r\n    procedure SetHTMLElementID(const Value: string);\r\n    procedure SetName(const Value: string);\r\n    procedure SetElementEvent(const Value: TTMSFNCMapsHTMLEvent);\r\n    procedure SetEnabled(const Value: boolean);\r\n    procedure SetCustomEvent(const Value: string);\r\n    procedure SetEventReturnValue(const Value: TTMSFNCMapsReturnValue);\r\n  protected\r\n    FOwner: TTMSFNCMapsElementContainer;\r\n    procedure UpdateAction; virtual;\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    destructor Destroy; override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    property ElementContainer: TTMSFNCMapsElementContainer read FOwner;\r\n  published\r\n    property Enabled: Boolean read FEnabled write SetEnabled default True;\r\n    property Event: TTMSFNCMapsHTMLEvent read FElementEvent write SetElementEvent default heClick;\r\n    property CustomEvent: string read FCustomEvent write SetCustomEvent;\r\n    property EventReturnValue: TTMSFNCMapsReturnValue read FEventReturnValue write SetEventReturnValue default rvNone;\r\n    property HTMLElementID: string read FHTMLElementID write SetHTMLElementID;\r\n    property Name: string read FName write SetName;\r\n    property Tag: integer read FTag write FTag default 0;\r\n    property OnExecute: TTMSFNCMapsBaseEvent read FOnExecute write FOnExecute;\r\n  end;\r\n\r\n  TTMSFNCMapsElementActions = class(TOwnedCollection)\r\n  private\r\n    FOwner: TTMSFNCMapsElementContainer;\r\n    function GetItems(AIndex: Integer): TTMSFNCMapsElementAction;\r\n    procedure SetItems(AIndex: Integer; const Value: TTMSFNCMapsElementAction);\r\n    function GetAction(AName: string): TTMSFNCMapsElementAction;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCMapsElementContainer); reintroduce;\r\n    function Add: TTMSFNCMapsElementAction; reintroduce;\r\n    function Insert(AIndex: Integer): TTMSFNCMapsElementAction; reintroduce;\r\n    property Items[AIndex: Integer]: TTMSFNCMapsElementAction read GetItems write SetItems; default;\r\n    property Action[AName: string]: TTMSFNCMapsElementAction Read GetAction;\r\n    function GetActionByName(AName: string): TTMSFNCMapsElementAction;\r\n    function GetByName(AName: string): TTMSFNCMapsElementAction;\r\n    function FindByName(AName: string): TTMSFNCMapsElementAction;\r\n  end;\r\n\r\n  TTMSFNCMapsLabel = class(TCollectionItem)\r\n  private\r\n    FOwner: TTMSFNCCustomMaps;\r\n    FReload: Boolean;\r\n    FID: string;\r\n    FText: string;\r\n    FDataPointer: Pointer;\r\n    FDataBoolean: Boolean;\r\n    FDataObject: TObject;\r\n    FDataString: string;\r\n    FDataInteger: NativeInt;\r\n    FRecreate: Boolean;\r\n    FCoordinate: TTMSFNCMapsCoordinate;\r\n    FVisible: Boolean;\r\n    FBorderColor: TTMSFNCGraphicsColor;\r\n    FFont: TTMSFNCGraphicsFont;\r\n    FBackgroundColor: TTMSFNCGraphicsColor;\r\n    FBorderWidth: Integer;\r\n    FBounds: TTMSFNCMapsBounds;\r\n    FPosition: TTMSFNCMapsPositionType;\r\n    FLabelType: TTMSFNCMapsLabelType;\r\n    function GetID: string;\r\n    procedure SetText(const Value: string);\r\n    procedure SetCoordinate(const Value: TTMSFNCMapsCoordinate);\r\n    procedure SetVisible(const Value: Boolean);\r\n    procedure SetBackgroundColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetBorderColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetBorderWidth(const Value: Integer);\r\n    procedure SetFont(const Value: TTMSFNCGraphicsFont);\r\n    procedure SetBounds(const Value: TTMSFNCMapsBounds);\r\n    procedure SetPosition(const Value: TTMSFNCMapsPositionType);\r\n    procedure SetLabelType(const Value: TTMSFNCMapsLabelType);\r\n  protected\r\n    procedure UpdateLabel; virtual;\r\n    procedure LabelChanged(Sender: TObject);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n    property Maps: TTMSFNCCustomMaps read FOwner;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: string read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n    property Recreate: Boolean read FRecreate write FRecreate default False;\r\n  published\r\n    property ID: string read GetID;\r\n    property Text: string read FText write SetText nodefault;\r\n    property Coordinate: TTMSFNCMapsCoordinate read FCoordinate write SetCoordinate;\r\n    property Bounds: TTMSFNCMapsBounds read FBounds write SetBounds;\r\n    property Visible: Boolean read FVisible write SetVisible;\r\n    property BackgroundColor: TTMSFNCGraphicsColor read FBackgroundColor write SetBackgroundColor default gcNull;\r\n    property BorderColor: TTMSFNCGraphicsColor read FBorderColor write SetBorderColor default gcNull;\r\n    property BorderWidth: Integer read FBorderWidth write SetBorderWidth default 2;\r\n    property Font: TTMSFNCGraphicsFont read FFont write SetFont;\r\n    property Position: TTMSFNCMapsPositionType read FPosition write SetPosition default ptCoordinate;\r\n    property LabelType: TTMSFNCMapsLabelType read FLabelType write SetLabelType default ltLabel;\r\n\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCMapsLabels = class(TTMSFNCOwnedCollection)\r\n  {$ELSE}\r\n  TTMSFNCMapsLabels = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCMapsLabel>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TTMSFNCCustomMaps;\r\n    function GetItem(Index: Integer): TTMSFNCMapsLabel;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCMapsLabel);\r\n    function GetItemByID(ID: string): TTMSFNCMapsLabel;\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; virtual;\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCCustomMaps); virtual;\r\n    property Items[Index: Integer]: TTMSFNCMapsLabel read GetItem write SetItem; default;\r\n    procedure Clear; virtual;\r\n    procedure Recreate; virtual;\r\n    function Add: TTMSFNCMapsLabel;\r\n    function Insert(Index: Integer): TTMSFNCMapsLabel;\r\n    property ItemByID[ID: string]: TTMSFNCMapsLabel read GetItemByID;\r\n  end;\r\n\r\n  TTMSFNCMapsElementContainer = class(TCollectionItem)\r\n  private\r\n    FReload: Boolean;\r\n    FID: string;\r\n    FDataBoolean: Boolean;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FDataPointer: Pointer;\r\n    FHTML: TStringList;\r\n    FRecreate: Boolean;\r\n    FVisible: Boolean;\r\n    FActions: TTMSFNCMapsElementActions;\r\n    FPosition: TTMSFNCMapsPosition;\r\n    FHTMLElementID: string;\r\n    FHTMLElementClassName: string;\r\n    FUseDefaultStyle: Boolean;\r\n    FScript: TStringList;\r\n    FStyle: TStringList;\r\n    FMargins: TTMSFNCMargins;\r\n    FCoordinate: TTMSFNCMapsCoordinate;\r\n    FBounds: TTMSFNCMapsBounds;\r\n    FLabelType: TTMSFNCMapsLabelType;\r\n    procedure SetHTML(const Value: TStringList);\r\n    function GetID: string;\r\n    procedure SetVisible(const Value: Boolean);\r\n    procedure SetActions(const Value: TTMSFNCMapsElementActions);\r\n    procedure SetPosition(const Value: TTMSFNCMapsPosition);\r\n    procedure SetHTMLElementClassName(const Value: string);\r\n    procedure SetHTMLElementID(const Value: string);\r\n    procedure SetUseDefaultStyle(const Value: Boolean);\r\n    function GetHTMLAsBase64: string;\r\n    procedure SetStyle(const Value: TStringList);\r\n    procedure SetScript(const Value: TStringList);\r\n    function GetScriptAsBase64: string;\r\n    function GetStyleAsBase64: string;\r\n    procedure SetMargins(const Value: TTMSFNCMargins);\r\n    procedure SetCoordinate(const Value: TTMSFNCMapsCoordinate);\r\n    procedure SetBounds(const Value: TTMSFNCMapsBounds);\r\n    procedure SetLabelType(const Value: TTMSFNCMapsLabelType);\r\n  protected\r\n    FOwner: TTMSFNCCustomMaps;\r\n    procedure UpdateElementContainer; virtual;\r\n    procedure ElementContainerChanged(Sender: TObject);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n    function AddAction(AHTMLElementID: string; AEvent: TTMSFNCMapsHTMLEvent = heClick): TTMSFNCMapsElementAction; virtual;\r\n    property Maps: TTMSFNCCustomMaps read FOwner;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n    property Recreate: Boolean read FRecreate write FRecreate default False;\r\n  published\r\n    property ID: string read GetID;\r\n    property HTML: TStringList read FHTML write SetHTML nodefault;\r\n    property HTMLAsBase64: string read GetHTMLAsBase64;\r\n    property Visible: Boolean read FVisible write SetVisible default True;\r\n    property Actions: TTMSFNCMapsElementActions read FActions write SetActions;\r\n    property Coordinate: TTMSFNCMapsCoordinate read FCoordinate write SetCoordinate;\r\n    property Bounds: TTMSFNCMapsBounds read FBounds write SetBounds;\r\n    property Position: TTMSFNCMapsPosition read FPosition write SetPosition default poTopLeft;\r\n    property HTMLElementID: string read FHTMLElementID write SetHTMLElementID;\r\n    property HTMLElementClassName: string read FHTMLElementClassName write SetHTMLElementClassName;\r\n    property UseDefaultStyle: Boolean read FUseDefaultStyle write SetUseDefaultStyle default True;\r\n    property Style: TStringList read FStyle write SetStyle;\r\n    property StyleAsBase64: string read GetStyleAsBase64;\r\n    property Script: TStringList read FScript write SetScript;\r\n    property ScriptAsBase64: string read GetScriptAsBase64;\r\n    property Margins: TTMSFNCMargins read FMargins write SetMargins;\r\n    property LabelType: TTMSFNCMapsLabelType read FLabelType write SetLabelType default ltLabel;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCMapsElementContainers = class(TTMSFNCOwnedCollection)\r\n  {$ELSE}\r\n  TTMSFNCMapsElementContainers = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCMapsElementContainer>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TTMSFNCCustomMaps;\r\n    function GetItem(Index: Integer): TTMSFNCMapsElementContainer;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCMapsElementContainer);\r\n    function GetItemByID(ID: string): TTMSFNCMapsElementContainer;\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; virtual;\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCCustomMaps); virtual;\r\n    property Items[Index: Integer]: TTMSFNCMapsElementContainer read GetItem write SetItem; default;\r\n    procedure Clear; virtual;\r\n    procedure Recreate; virtual;\r\n    function Add: TTMSFNCMapsElementContainer;\r\n    function Insert(Index: Integer): TTMSFNCMapsElementContainer;\r\n    property ItemByID[ID: string]: TTMSFNCMapsElementContainer read GetItemByID;\r\n  end;\r\n\r\n  TTMSFNCCustomMaps = class(TTMSFNCCustomWebBrowser, ITMSFNCCustomMapsProperties)\r\n  private\r\n    {$IFDEF WEBLIB}\r\n    FMapEventData: Pointer;\r\n    {$ENDIF}\r\n    FRouteCalculator: TTMSFNCRouteCalculator;\r\n    FRouteCalculatorMarker: TTMSFNCMapsMarker;\r\n    FRouteCalculatorDragMarker: TTMSFNCMapsMarker;\r\n    FRouteCalculatorDragStarted: Boolean;\r\n    FRouteCalculatorPolyline: TTMSFNCMapsPolyElement;\r\n    FRouteCalculatorSelectedPolyline: TTMSFNCMapsPolyline;\r\n    FRouteCalculatorDragX, FRouteCalculatorDragY, FRouteCalculatorDragLat, FRouteCalculatorDragLon: Double;\r\n    FMapInitialized: Boolean;\r\n    FUpdateCount: Integer;\r\n    FMaps: ITMSFNCCustomMaps;\r\n    FMapsInstance: ITMSFNCCustomMapsInstance;\r\n    FMapsProperties: ITMSFNCCustomMapsProperties;\r\n    FService: TTMSFNCMapsService;\r\n    FAPIKey: string;\r\n    FOptions: TTMSFNCMapsOptions;\r\n    FOnCustomizeJavaScript: TTMSFNCMapsCustomizeJavaScriptEvent;\r\n    FOnCustomizeMap: TTMSFNCMapsCustomizeMapEvent;\r\n    FOnCustomizeGlobalVariables: TTMSFNCMapsCustomizeGlobalVariablesEvent;\r\n    FOnCustomizeMarker: TTMSFNCMapsCustomizeMarkerEvent;\r\n    FOnCustomizePopup: TTMSFNCMapsCustomizePopupEvent;\r\n    FOnCustomizeOptions: TTMSFNCMapsCustomizeOptionsEvent;\r\n    FOnCustomizePolyElement: TTMSFNCMapsCustomizePolyElementEvent;\r\n    FOnMapTypeChanged: TTMSFNCMapsBaseEvent;\r\n    FOnZoomChanged: TTMSFNCMapsBaseEvent;\r\n    FOnMapClick: TTMSFNCMapsBaseEvent;\r\n    FOnMapDblClick: TTMSFNCMapsBaseEvent;\r\n    FOnMapMouseUp: TTMSFNCMapsBaseEvent;\r\n    FOnMapMouseDown: TTMSFNCMapsBaseEvent;\r\n    FOnMapMouseMove: TTMSFNCMapsBaseEvent;\r\n    FOnMapMouseEnter: TTMSFNCMapsBaseEvent;\r\n    FOnMapMouseLeave: TTMSFNCMapsBaseEvent;\r\n    FOnMapCenterChanged: TTMSFNCMapsBaseEvent;\r\n    FOnMarkerClick: TTMSFNCMapsBaseEvent;\r\n    FOnMarkerRightClick: TTMSFNCMapsBaseEvent;\r\n    FOnMarkerDblClick: TTMSFNCMapsBaseEvent;\r\n    FOnMarkerMouseUp: TTMSFNCMapsBaseEvent;\r\n    FOnMarkerMouseDown: TTMSFNCMapsBaseEvent;\r\n    FOnMarkerMouseEnter: TTMSFNCMapsBaseEvent;\r\n    FOnMarkerMouseLeave: TTMSFNCMapsBaseEvent;\r\n    FOnPolyElementClick: TTMSFNCMapsBaseEvent;\r\n    FOnPolyElementRightClick: TTMSFNCMapsBaseEvent;\r\n    FOnPolyElementDblClick: TTMSFNCMapsBaseEvent;\r\n    FOnPolyElementMouseUp: TTMSFNCMapsBaseEvent;\r\n    FOnPolyElementMouseDown: TTMSFNCMapsBaseEvent;\r\n    FOnPolyElementMouseEnter: TTMSFNCMapsBaseEvent;\r\n    FOnPolyElementMouseLeave: TTMSFNCMapsBaseEvent;\r\n    FOnCustomEvent: TTMSFNCMapsBaseEvent;\r\n    FOnMapInitialized: TNotifyEvent;\r\n    FMarkers: TTMSFNCMapsMarkers;\r\n    FPolygons: TTMSFNCMapsPolygons;\r\n    FPolylines: TTMSFNCMapsPolylines;\r\n    FCircles: TTMSFNCMapsCircles;\r\n    FRectangles: TTMSFNCMapsRectangles;\r\n    FOnCustomizeCSS: TTMSFNCMapsCustomizeCSSEvent;\r\n    FOnGetDefaultHTMLMessage: TTMSFNCMapsGetDefaultHTMLMessageEvent;\r\n    FLocalFileAccess: Boolean;\r\n    FOnGetCenterCoordinate: TTMSFNCMapsGetCenterCoordinateEvent;\r\n    FOnGetBoundsCoordinate: TTMSFNCMapsGetBoundsEvent;\r\n    FOnGetZoomLevel: TTMSFNCMapsGetZoomLevelEvent;\r\n    FOnCreateGPXTrack: TTMSFNCMapsGPXTrackEvent;\r\n    FOnCreateGPXSegment: TTMSFNCMapsGPXSegmentEvent;\r\n    FOnCreateGPXWayPoint: TTMSFNCMapsGPXWayPointEvent;\r\n    FOnCreateGeoJSONObject: TTMSFNCMapsGeoJSONObjectEvent;\r\n    FOnRouteCalculatorWayPointAdded: TTMSFNCMapsRouteCalculatorWayPointEvent;\r\n    FOnRouteCalculatorWayPointUpdated: TTMSFNCMapsRouteCalculatorWayPointEvent;\r\n    FOnRouteCalculatorPolylineAdded: TTMSFNCMapsRouteCalculatorPolylineEvent;\r\n    FOnRouteCalculatorPolylineUpdated: TTMSFNCMapsRouteCalculatorPolylineEvent;\r\n    FRouteCalculatorSelectedMarker: TTMSFNCMapsMarker;\r\n    FOnRouteCalculatorDeletePolylineEvent: TTMSFNCMapsRouteCalculatorDeletePolylineEvent;\r\n    FOnRouteCalculatorAfterDeletePolylineEvent: TNotifyEvent;\r\n    FOnRouteCalculatorAfterDeleteMarkerEvent: TNotifyEvent;\r\n    FOnRouteCalculatorDeleteMarkerEvent: TTMSFNCMapsRouteCalculatorDeleteMarkerEvent;\r\n    FOnMapMoveEnd: TTMSFNCMapsBaseEvent;\r\n    FOnMapMoveStart: TTMSFNCMapsBaseEvent;\r\n    FOnCustomizeHeadLinks: TTMSFNCMapsCustomizeHeadLinksEvent;\r\n    FOnMapRightClick: TTMSFNCMapsBaseEvent;\r\n    FElementContainers: TTMSFNCMapsElementContainers;\r\n    FHeadLinks: TTMSFNCMapsHeadLinks;\r\n    FOnCustomizeLocalAccessFileName: TTMSFNCMapsCustomizeLocalAccessFileNameEvent;\r\n    FLibraryLocation: TTMSFNCMapsLibraryLocation;\r\n    FLabels: TTMSFNCMapsLabels;\r\n    FHeatMaps: TTMSFNCMapsHeatMaps;\r\n//    FOnMapMove: TTMSFNCMapsBaseEvent;\r\n//    FOnMapIdle: TTMSFNCMapsBaseEvent;\r\n    procedure SetService(const Value: TTMSFNCMapsService);\r\n    procedure SetAPIKey(const Value: string);\r\n    procedure SetOptions(const Value: TTMSFNCMapsOptions);\r\n    procedure SetMarkers(const Value: TTMSFNCMapsMarkers);\r\n    procedure SetPolylines(const Value: TTMSFNCMapsPolylines);\r\n    procedure SetPolygons(const Value: TTMSFNCMapsPolygons);\r\n    procedure SetRectangles(const Value: TTMSFNCMapsRectangles);\r\n    procedure SetCircles(const Value: TTMSFNCMapsCircles);\r\n    procedure SetMapInitialized(const Value: Boolean);\r\n    procedure SetLocalFileAccess(const Value: Boolean);\r\n    procedure SetRouteCalculator(const Value: TTMSFNCRouteCalculator);\r\n    procedure SetElementContainers(const Value: TTMSFNCMapsElementContainers);\r\n    procedure SetHeadLinks(const Value: TTMSFNCMapsHeadLinks);\r\n    procedure SetLibraryLocation(const Value: TTMSFNCMapsLibraryLocation);\r\n    procedure SetLabels(const Value: TTMSFNCMapsLabels);\r\n    procedure SetHeatMaps(const Value: TTMSFNCMapsHeatMaps);\r\n  protected\r\n    function GetMarkersClass: TTMSFNCMapsMarkersClass; virtual;\r\n    function GetHeatMapsClass: TTMSFNCMapsHeatMapsClass; virtual;\r\n    function GetElementContainersClass: TTMSFNCMapsElementContainersClass; virtual;\r\n    function GetLabelsClass: TTMSFNCMapsLabelsClass; virtual;\r\n    function GetHeadLinksClass: TTMSFNCMapsHeadLinksClass; virtual;\r\n    function GetRectanglesClass: TTMSFNCMapsRectanglesClass; virtual;\r\n    function GetCirclesClass: TTMSFNCMapsCirclesClass; virtual;\r\n    function GetPolygonsClass: TTMSFNCMapsPolygonsClass; virtual;\r\n    function GetPolylinesClass: TTMSFNCMapsPolylinesClass; virtual;\r\n    function GetOptionsClass: TTMSFNCMapsOptionsClass; virtual;\r\n    function ParseEvent(AValue: string): Boolean;\r\n    function ParseScript(AValue: string): string;\r\n    function InternalLoadGPX(AText: string; AAutoDisplay: Boolean = True; AZoomToBounds: Boolean = True;\r\n      AStrokeWidth: Integer = 3; AStrokeColor: TTMSFNCGraphicsColor = gcBlack; ADisplayElevation: Boolean = False;\r\n      ADisplayTimeStamps: Boolean = False; AMinSecondsBetweenTimeStamps: Integer = 600): TTMSFNCMapsGPXRec; overload; virtual;\r\n    function InternalLoadGPX(AText: string; AAutoDisplay: Boolean = True; AZoomToBounds: Boolean = True;\r\n      AStrokeWidth: Integer = 3; AElevationColors: TTMSFNCMapsGPXColorRecArray = nil; ADisplayElevation: Boolean = False;\r\n      ADisplayTimeStamps: Boolean = False; AMinSecondsBetweenTimeStamps: Integer = 600): TTMSFNCMapsGPXRec; overload; virtual;\r\n    function InternalLoadGeoJSON(AText: string; AAutoDisplay: Boolean = True; AZoomToBounds: Boolean = True): TTMSFNCMapsGeoJSONRec; virtual;\r\n    function GetCustomGlobalVariables: string; virtual;\r\n    function GetLocalAccessFileName: string; virtual;\r\n    function GetCustomFunctions: string; virtual;\r\n    function GetCustomOptions: string; virtual;\r\n    function GetCustomMap: string; virtual;\r\n    function GetAddCustomObjects: string; virtual;\r\n    function RouteCalculatorCheck: Boolean;\r\n    function GetRouteCalculatorStartMarker: string;\r\n    function GetRouteCalculatorEndMarker: string;\r\n    function GetRouteCalculatorWayPointMarker: string;\r\n    function GetRouteCalculatorAddWayPointMarker: string;\r\n    function GetRouteCalculatorSelectedWayPointMarker: string;\r\n    procedure RouteCalculatorClearSelected;\r\n    {$IFDEF WEBLIB}\r\n    procedure SetName(const NewName: TComponentName); override;\r\n    {$ENDIF}\r\n    procedure Notification(AComponent: TComponent; Operation: TOperation); override;\r\n    procedure Loaded; override;\r\n    procedure DestroyMap;\r\n    procedure DoMapInitialized; virtual;\r\n    procedure DoCustomizeLocalAccessFileName(var AFileName: string); virtual;\r\n    procedure DoGetZoomLevel(const AValue: string); virtual;\r\n    procedure DoGetCenterCoordinate(const AValue: string); virtual;\r\n    procedure DoGetBounds(const AValue: string); virtual;\r\n    procedure DoZoomChanged(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoMapTypeChanged(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoMapMoveStart(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoMapMoveEnd(AEventData: TTMSFNCMapsEventData); virtual;\r\n//    procedure DoMapMove(AEventData: TTMSFNCMapsEventData); virtual;\r\n//    procedure DoMapIdle(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoMapClick(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoMapRightClick(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoMapKeyDown(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoMapDblClick(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoMapMouseUp(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoMapMouseDown(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoMapMouseMove(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoMapMouseEnter(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoMapMouseLeave(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoMapCenterChanged(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoMarkerClick(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoMarkerRightClick(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoMarkerDblClick(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoMarkerMouseUp(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoMarkerMouseDown(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoMarkerMouseEnter(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoMarkerMouseLeave(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoPolyElementClick(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoPolyElementRightClick(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoPolyElementDblClick(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoPolyElementMouseUp(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoPolyElementMouseDown(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoPolyElementMouseEnter(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoPolyElementMouseLeave(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoCreateGPXTrack(AEventData: TTMSFNCMapsGPXTrackEventData); virtual;\r\n    procedure DoCreateGPXSegment(AEventData: TTMSFNCMapsGPXSegmentEventData); virtual;\r\n    procedure DoCreateGPXWayPoint(AEventData: TTMSFNCMapsGPXWayPointEventData); virtual;\r\n    procedure DoCreateGeoJSONObject(AEventData: TTMSFNCMapsGeoJSONEventData); virtual;\r\n    procedure DoCustomEvent(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoCustomizeMap(var ACustomizeMap: string); virtual;\r\n    procedure DoCustomizeGlobalVariables(var ACustomizeGlobalVariables: string); virtual;\r\n    procedure DoCustomizeMarker(var ACustomizeMarker: string); virtual;\r\n    procedure DoCustomizePopup(var ACustomizePopup: string); virtual;\r\n    procedure DoCustomizeOptions(var ACustomizeOptions: string); virtual;\r\n    procedure DoCustomizePolyElement(var ACustomizePolyElement: string); virtual;\r\n    procedure DoCustomizeJavaScript(var ACustomizeJavaScript: string); virtual;\r\n    procedure DoCustomizeHeadLinks(AList: TTMSFNCMapsLinksList); virtual;\r\n    procedure DoCustomizeCSS(var ACustomizeCSS: string); virtual;\r\n    procedure DoGetDefaultHTMLMessage(var AMessage: string); virtual;\r\n    procedure DoRouteCalculatorWayPointAdded(AMarker: TTMSFNCMapsMarker; ASegment: TTMSFNCRouteCalculatorSegment);\r\n    procedure DoRouteCalculatorWayPointUpdated(AMarker: TTMSFNCMapsMarker; ASegment: TTMSFNCRouteCalculatorSegment);\r\n    procedure DoRouteCalculatorPolylineAdded(APolyline: TTMSFNCMapsPolyline; ASegment: TTMSFNCRouteCalculatorSegment);\r\n    procedure DoRouteCalculatorPolylineUpdated(APolyline: TTMSFNCMapsPolyline; ASegment: TTMSFNCRouteCalculatorSegment);\r\n    procedure DoRouteCalculatorBeforeDeletePolyline(var ACanDelete: Boolean; APolyline: TTMSFNCMapsPolyline; ASegment: TTMSFNCRouteCalculatorSegment);\r\n    procedure DoRouteCalculatorAfterDeletePolyline;\r\n    procedure DoRouteCalculatorBeforeDeleteMarker(var ACanDelete: Boolean; AMarker: TTMSFNCMapsMarker; ASegment: TTMSFNCRouteCalculatorSegment);\r\n    procedure DoRouteCalculatorAfterDeleteMarker;\r\n    procedure CallCustomEvent(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure BeforeNavigate(var Params: TTMSFNCCustomWebBrowserBeforeNavigateParams); override;\r\n    procedure OptionsChanged(Sender: TObject);\r\n    procedure Initialized; override;\r\n    procedure InitializeMap; virtual;\r\n    procedure InitializeHTML; virtual;\r\n    {$IFDEF WEBLIB}\r\n    procedure LoadScripts(AHead: Boolean); virtual;\r\n    procedure RemoveScripts; virtual;\r\n    procedure LoadStyles; virtual;\r\n    procedure RemoveStyles; virtual;\r\n    {$ENDIF}\r\n    procedure CreateClasses; override;\r\n    procedure GetLinks(AList: TTMSFNCMapsLinksList; AIncludeContent: Boolean = True; ACheckReady: Boolean = True); virtual;\r\n    procedure GetBodyLinks(AList: TTMSFNCMapsLinksList; AIncludeContent: Boolean = True; ACheckReady: Boolean = True); virtual;\r\n    procedure GetHeadLinks(AList: TTMSFNCMapsLinksList; ACheckReady: Boolean = True); virtual;\r\n\r\n    procedure UpdateElementContainers; virtual;\r\n    procedure DoUpdateElementContainers(const AValue: string); virtual;\r\n    procedure UpdateMarkers; virtual;\r\n    procedure DoUpdateMarkers(const AValue: string); virtual;\r\n    procedure UpdateHeatMaps; virtual;\r\n    procedure DoUpdateHeatMaps(const AValue: string); virtual;\r\n    procedure UpdatePolyElements; virtual;\r\n    procedure DoUpdatePolyElements(const AValue: string); virtual;\r\n    procedure DoCloseAllPopups(const AValue: string); virtual;\r\n    procedure SyncLabels(ACollection: TTMSFNCMapsElementContainers);\r\n\r\n    procedure UpdateOptions; virtual;\r\n\r\n    procedure DoKeyPressed(var Key: Word); override;\r\n    procedure RouteCalculatorMarkerMoved(ACoordinate: TTMSFNCMapsCoordinateRec); virtual;\r\n    procedure RouteCalculatorPolylineMoved(ACoordinate: TTMSFNCMapsCoordinateRec); virtual;\r\n    procedure RouteCalculatorDoCalculateRoute(Sender: TObject; const ARoute: TTMSFNCRouteCalculatorRoute); virtual;\r\n\r\n    {$IFDEF WEBLIB}\r\n    function HandleDoMapEventData(Event: TJSEvent): Boolean; virtual;\r\n    procedure BindEvents; override;\r\n    procedure UnbindEvents; override;\r\n    procedure ClearMethodPointers; override;\r\n    procedure GetMethodPointers; override;\r\n    {$ENDIF}\r\n\r\n    procedure CheckInstances;\r\n\r\n    function CanLoadDefaultHTML: Boolean; override;\r\n    function GetDefaultLatitude: string;\r\n    function GetDefaultLongitude: string;\r\n    function GetDefaultZoomLevel: string;\r\n    function GetAPIKey: string;\r\n    function GetBackgroundColor: TTMSFNCGraphicsColor;\r\n    function GetLocale(AMode: TTMSFNCMapsLocaleMode = mlmDefault): string;\r\n    function GetShowZoomControl: Boolean;\r\n    function GetShowMapTypeControl: Boolean;\r\n    function GetZoomOnDblClick: Boolean;\r\n    function GetPanning: Boolean;\r\n    function GetMapID: string; virtual;\r\n    function GetTilt: Double; virtual;\r\n    function GetHeading: Double; virtual;\r\n    function GetZoomOnWheelScroll: Boolean;\r\n\r\n    function GetPolyElementByID(AID: string): TTMSFNCMapsPolyElement; virtual;\r\n    function GetMarkerByID(AID: string): TTMSFNCMapsMarker; virtual;\r\n    function GetElementContainerByID(AID: string): TTMSFNCMapsElementContainer; virtual;\r\n    function GetCommunicationLayer: string; virtual;\r\n    function GetZoomToBoundsFunction: string; virtual;\r\n    function GetSetCenterCoordinateFunction: string; virtual;\r\n    function GetGetCenterCoordinateFunction: string; virtual;\r\n    function GetGetLatLonToXYFunction: string; virtual;\r\n    function GetGetXYToLatLonFunction: string; virtual;\r\n    function GetGetBoundsFunction: string; virtual;\r\n    function GetSetZoomLevelFunction: string; virtual;\r\n    function GetGetZoomLevelFunction: string; virtual;\r\n    function GetUpdateOptions: string; virtual;\r\n    function GetAddOrUpdateMarkerFunction: string; virtual;\r\n    function GetAddOrUpdateElementContainerFunction: string; virtual;\r\n    function GetShowPopupFunction: string; virtual;\r\n    function GetClosePopupFunction: string; virtual;\r\n    function GetDeleteMarkerFunction: string; virtual;\r\n    function GetAddMarkers: string; virtual;\r\n    function GetDeleteElementContainerFunction: string; virtual;\r\n    function GetAddElementContainers: string; virtual;\r\n    function GetAddOrUpdatePolyElementFunction: string; virtual;\r\n    function GetDeletePolyElementFunction: string; virtual;\r\n    function InternalGetAddPolyElements(AElements: TTMSFNCMapsPolyElements): string; virtual;\r\n    function GetAddPolyElements: string; virtual;\r\n    function GetGlobalVariables: string; virtual;\r\n    function GetCallInitialize: string; virtual;\r\n    function GetWaitForMapInitialized: string; virtual;\r\n    function GetDefaultHTML: string; virtual;\r\n    function MapReady: Boolean;\r\n    function GetVersionNr: Integer; virtual;\r\n    function GetDocURL: string; override;\r\n    function GetTipsURL: string; override;\r\n    function Maps: ITMSFNCCustomMaps;\r\n    function ParseLinks(AList: TTMSFNCMapsLinksList): string; virtual;\r\n    function GetVersion: string; override;\r\n    function GetAPIVersion: string; virtual;\r\n    function GetHeadStyle: string; virtual;\r\n    function GetBody: string; virtual;\r\n    function AddHeatMap(ACoordinates: TTMSFNCMapsCoordinateRecArray): TTMSFNCMapsHeatMap; virtual;\r\n\r\n    property MapInitialized: Boolean read FMapInitialized write SetMapInitialized;\r\n    property UpdateCount: Integer read FUpdateCount;\r\n    property Service: TTMSFNCMapsService read FService write SetService default msGoogleMaps;\r\n    property APIKey: string read FAPIKey write SetAPIKey;\r\n    property LocalFileAccess: Boolean read FLocalFileAccess write SetLocalFileAccess default False;\r\n    property LibraryLocation: TTMSFNCMapsLibraryLocation read FLibraryLocation write SetLibraryLocation default llOnline;\r\n    property Options: TTMSFNCMapsOptions read FOptions write SetOptions;\r\n    property HeatMaps: TTMSFNCMapsHeatMaps read FHeatMaps write SetHeatMaps;\r\n    property Markers: TTMSFNCMapsMarkers read FMarkers write SetMarkers;\r\n    property ElementContainers: TTMSFNCMapsElementContainers read FElementContainers write SetElementContainers;\r\n    property Labels: TTMSFNCMapsLabels read FLabels write SetLabels;\r\n    property HeadLinks: TTMSFNCMapsHeadLinks read FHeadLinks write SetHeadLinks;\r\n    property Polylines: TTMSFNCMapsPolylines read FPolylines write SetPolylines;\r\n    property Polygons: TTMSFNCMapsPolygons read FPolygons write SetPolygons;\r\n    property Circles: TTMSFNCMapsCircles read FCircles write SetCircles;\r\n    property Rectangles: TTMSFNCMapsRectangles read FRectangles write SetRectangles;\r\n\r\n    property OnCustomizeLocalAccessFileName: TTMSFNCMapsCustomizeLocalAccessFileNameEvent read FOnCustomizeLocalAccessFileName write FOnCustomizeLocalAccessFileName;\r\n    property OnCustomizeCSS: TTMSFNCMapsCustomizeCSSEvent read FOnCustomizeCSS write FOnCustomizeCSS;\r\n    property OnCustomizeJavaScript: TTMSFNCMapsCustomizeJavaScriptEvent read FOnCustomizeJavaScript write FOnCustomizeJavaScript;\r\n    property OnCustomizeHeadLinks: TTMSFNCMapsCustomizeHeadLinksEvent read FOnCustomizeHeadLinks write FOnCustomizeHeadLinks;\r\n    property OnCustomizeMap: TTMSFNCMapsCustomizeMapEvent read FOnCustomizeMap write FOnCustomizeMap;\r\n    property OnCustomizeGlobalVariables: TTMSFNCMapsCustomizeGlobalVariablesEvent read FOnCustomizeGlobalVariables write FOnCustomizeGlobalVariables;\r\n    property OnCustomizeMarker: TTMSFNCMapsCustomizeMarkerEvent read FOnCustomizeMarker write FOnCustomizeMarker;\r\n    property OnCustomizePopup: TTMSFNCMapsCustomizePopupEvent read FOnCustomizePopup write FOnCustomizePopup;\r\n    property OnGetDefaultHTMLMessage: TTMSFNCMapsGetDefaultHTMLMessageEvent read FOnGetDefaultHTMLMessage write FOnGetDefaultHTMLMessage;\r\n    property OnCustomizeOptions: TTMSFNCMapsCustomizeOptionsEvent read FOnCustomizeOptions write FOnCustomizeOptions;\r\n    property OnCustomizePolyElement: TTMSFNCMapsCustomizePolyElementEvent read FOnCustomizePolyElement write FOnCustomizePolyElement;\r\n    property OnZoomChanged: TTMSFNCMapsBaseEvent read FOnZoomChanged write FOnZoomChanged;\r\n    property OnMapTypeChanged: TTMSFNCMapsBaseEvent read FOnMapTypeChanged write FOnMapTypeChanged;\r\n    property OnMapMoveStart: TTMSFNCMapsBaseEvent read FOnMapMoveStart write FOnMapMoveStart;\r\n    property OnMapMoveEnd: TTMSFNCMapsBaseEvent read FOnMapMoveEnd write FOnMapMoveEnd;\r\n//    property OnMapMove: TTMSFNCMapsBaseEvent read FOnMapMove write FOnMapMove;\r\n//    property OnMapIdle: TTMSFNCMapsBaseEvent read FOnMapIdle write FOnMapIdle;\r\n    property OnMapClick: TTMSFNCMapsBaseEvent read FOnMapClick write FOnMapClick;\r\n    property OnMapRightClick: TTMSFNCMapsBaseEvent read FOnMapRightClick write FOnMapRightClick;\r\n    property OnMapDblClick: TTMSFNCMapsBaseEvent read FOnMapDblClick write FOnMapDblClick;\r\n    property OnMapMouseUp: TTMSFNCMapsBaseEvent read FOnMapMouseUp write FOnMapMouseUp;\r\n    property OnMapMouseDown: TTMSFNCMapsBaseEvent read FOnMapMouseDown write FOnMapMouseDown;\r\n    property OnMapMouseMove: TTMSFNCMapsBaseEvent read FOnMapMouseMove write FOnMapMouseMove;\r\n    property OnMapMouseEnter: TTMSFNCMapsBaseEvent read FOnMapMouseEnter write FOnMapMouseEnter;\r\n    property OnMapMouseLeave: TTMSFNCMapsBaseEvent read FOnMapMouseLeave write FOnMapMouseLeave;\r\n    property OnMapCenterChanged: TTMSFNCMapsBaseEvent read FOnMapCenterChanged write FOnMapCenterChanged;\r\n    property OnMarkerClick: TTMSFNCMapsBaseEvent read FOnMarkerClick write FOnMarkerClick;\r\n    property OnMarkerRightClick: TTMSFNCMapsBaseEvent read FOnMarkerRightClick write FOnMarkerRightClick;\r\n    property OnMarkerDblClick: TTMSFNCMapsBaseEvent read FOnMarkerDblClick write FOnMarkerDblClick;\r\n    property OnMarkerMouseUp: TTMSFNCMapsBaseEvent read FOnMarkerMouseUp write FOnMarkerMouseUp;\r\n    property OnMarkerMouseDown: TTMSFNCMapsBaseEvent read FOnMarkerMouseDown write FOnMarkerMouseDown;\r\n    property OnMarkerMouseEnter: TTMSFNCMapsBaseEvent read FOnMarkerMouseEnter write FOnMarkerMouseEnter;\r\n    property OnMarkerMouseLeave: TTMSFNCMapsBaseEvent read FOnMarkerMouseLeave write FOnMarkerMouseLeave;\r\n    property OnPolyElementClick: TTMSFNCMapsBaseEvent read FOnPolyElementClick write FOnPolyElementClick;\r\n    property OnPolyElementRightClick: TTMSFNCMapsBaseEvent read FOnPolyElementRightClick write FOnPolyElementRightClick;\r\n    property OnPolyElementDblClick: TTMSFNCMapsBaseEvent read FOnPolyElementDblClick write FOnPolyElementDblClick;\r\n    property OnPolyElementMouseUp: TTMSFNCMapsBaseEvent read FOnPolyElementMouseUp write FOnPolyElementMouseUp;\r\n    property OnPolyElementMouseDown: TTMSFNCMapsBaseEvent read FOnPolyElementMouseDown write FOnPolyElementMouseDown;\r\n    property OnPolyElementMouseEnter: TTMSFNCMapsBaseEvent read FOnPolyElementMouseEnter write FOnPolyElementMouseEnter;\r\n    property OnPolyElementMouseLeave: TTMSFNCMapsBaseEvent read FOnPolyElementMouseLeave write FOnPolyElementMouseLeave;\r\n    property OnGetCenterCoordinate: TTMSFNCMapsGetCenterCoordinateEvent read FOnGetCenterCoordinate write FOnGetCenterCoordinate;\r\n    property OnGetBounds: TTMSFNCMapsGetBoundsEvent read FOnGetBoundsCoordinate write FOnGetBoundsCoordinate;\r\n    property OnGetZoomLevel: TTMSFNCMapsGetZoomLevelEvent read FOnGetZoomLevel write FOnGetZoomLevel;\r\n    property OnCreateGPXTrack: TTMSFNCMapsGPXTrackEvent read FOnCreateGPXTrack write FOnCreateGPXTrack;\r\n    property OnCreateGPXSegment: TTMSFNCMapsGPXSegmentEvent read FOnCreateGPXSegment write FOnCreateGPXSegment;\r\n    property OnCreateGPXWayPoint: TTMSFNCMapsGPXWayPointEvent read FOnCreateGPXWayPoint write FOnCreateGPXWayPoint;\r\n    property OnCreateGeoJSONObject: TTMSFNCMapsGeoJSONObjectEvent read FOnCreateGeoJSONObject write FOnCreateGeoJSONObject;\r\n    property OnCustomEvent: TTMSFNCMapsBaseEvent read FOnCustomEvent write FOnCustomEvent;\r\n    property OnMapInitialized: TNotifyEvent read FOnMapInitialized write FOnMapInitialized;\r\n    property OnRouteCalculatorWayPointAdded: TTMSFNCMapsRouteCalculatorWayPointEvent read FOnRouteCalculatorWayPointAdded write FOnRouteCalculatorWayPointAdded;\r\n    property OnRouteCalculatorWayPointUpdated: TTMSFNCMapsRouteCalculatorWayPointEvent read FOnRouteCalculatorWayPointUpdated write FOnRouteCalculatorWayPointUpdated;\r\n    property OnRouteCalculatorPolylineAdded: TTMSFNCMapsRouteCalculatorPolylineEvent read FOnRouteCalculatorPolylineAdded write FOnRouteCalculatorPolylineAdded;\r\n    property OnRouteCalculatorPolylineUpdated: TTMSFNCMapsRouteCalculatorPolylineEvent read FOnRouteCalculatorPolylineUpdated write FOnRouteCalculatorPolylineUpdated;\r\n    property OnRouteCalculatorBeforeDeletePolyline: TTMSFNCMapsRouteCalculatorDeletePolylineEvent read FOnRouteCalculatorDeletePolylineEvent write FOnRouteCalculatorDeletePolylineEvent;\r\n    property OnRouteCalculatorAfterDeletePolyline: TNotifyEvent read FOnRouteCalculatorAfterDeletePolylineEvent write FOnRouteCalculatorAfterDeletePolylineEvent;\r\n    property OnRouteCalculatorBeforeDeleteMarker: TTMSFNCMapsRouteCalculatorDeleteMarkerEvent read FOnRouteCalculatorDeleteMarkerEvent write FOnRouteCalculatorDeleteMarkerEvent;\r\n    property OnRouteCalculatorAfterDeleteMarker: TNotifyEvent read FOnRouteCalculatorAfterDeleteMarkerEvent write FOnRouteCalculatorAfterDeleteMarkerEvent;\r\n\r\n    property MapsInstance: ITMSFNCCustomMaps read FMaps;\r\n    property MapsProperties: ITMSFNCCustomMapsProperties read FMapsProperties;\r\n\r\n    property RouteCalculator: TTMSFNCRouteCalculator read FRouteCalculator write SetRouteCalculator;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure BeginUpdate; override;\r\n    procedure EndUpdate; override;\r\n    procedure ReInitialize; virtual;\r\n    procedure ConnectMarkers(AMarkersArray: TTMSFNCMapsMarkersArray);\r\n    procedure ClearMarkers; virtual;\r\n    procedure ClearElementContainers; virtual;\r\n    procedure ClearLabels; virtual;\r\n    procedure ClearHeadLinks; virtual;\r\n    procedure Clear; virtual;\r\n    procedure ClearPolylines; virtual;\r\n    procedure ClearPolygons; virtual;\r\n    procedure ClearCircles; virtual;\r\n    procedure ClearRectangles; virtual;\r\n    procedure UpdateControlAfterResize; override;\r\n    procedure ZoomToBounds(ACoordinates: TTMSFNCMapsCoordinateRecArray); overload; virtual;\r\n    procedure ZoomToBounds(ACoordinates: TTMSFNCMapsCoordinateRecArrayArray); overload; virtual;\r\n    procedure ZoomToBounds(ACoordinates: TTMSFNCMapsCoordinateRecArrayArrayArray); overload; virtual;\r\n    procedure ZoomToBounds(ABounds: TTMSFNCMapsBoundsRec); overload; virtual;\r\n    procedure ZoomToBounds(ANorthEast: TTMSFNCMapsCoordinateRec; ASouthWest: TTMSFNCMapsCoordinateRec); overload; virtual;\r\n\r\n    procedure GetZoomLevel; virtual;\r\n    procedure GetCenterCoordinate; virtual;\r\n    procedure GetBounds; virtual;\r\n    procedure SetCenterCoordinate(ACoordinate: TTMSFNCMapsCoordinateRec); overload; virtual;\r\n    procedure SetCenterCoordinate(ALatitude: Double; ALongitude: Double); overload; virtual;\r\n    procedure SetZoomLevel(AZoomLevel: Double); virtual;\r\n    function LatLonToXY(ACoordinate: TTMSFNCMapsCoordinateRec): TTMSFNCMapsAnchorPointRec; overload; virtual;\r\n    function LatLonToXY(ALatitude: Double; ALongitude: Double): TTMSFNCMapsAnchorPointRec; overload; virtual;\r\n    function CoordinateToXY(ACoordinate: TTMSFNCMapsCoordinateRec): TTMSFNCMapsAnchorPointRec; virtual;\r\n    function XYToLatLon(AX: Single; AY: Single): TTMSFNCMapsCoordinateRec; virtual;\r\n    function XYToCoordinate(AX: Single; AY: Single): TTMSFNCMapsCoordinateRec; virtual;\r\n    function GetHTML: string; virtual;\r\n    function FindNearestPolylineCoordinate(ACoordinate: TTMSFNCMapsCoordinateRec; AMaxDistance: Double;\r\n      var APolylineIndex: Integer; var ACoordinateIndex: Integer; var ACoordinateRec: TTMSFNCMapsCoordinateRec): Boolean;\r\n\r\n    function LoadGPXFromStream(const AStream: TStream; AAutoDisplay: Boolean = True;\r\n      AZoomToBounds: Boolean = True; AStrokeWidth: Integer = 3; AStrokeColor: TTMSFNCGraphicsColor = gcBlack; ADisplayElevation: Boolean = False;\r\n      ADisplayTimeStamps: Boolean = False; AMinSecondsBetweenTimeStamps: Integer = 600): TTMSFNCMapsGPXRec; overload; virtual;\r\n\r\n    function LoadGPXFromStream(const AStream: TStream; AAutoDisplay: Boolean;\r\n      AZoomToBounds: Boolean; AStrokeWidth: Integer; AElevationColors: TTMSFNCMapsGPXColorRecArray; ADisplayElevation: Boolean;\r\n      ADisplayTimeStamps: Boolean = False; AMinSecondsBetweenTimeStamps: Integer = 600): TTMSFNCMapsGPXRec; overload; virtual;\r\n\r\n    {$IFNDEF LCLLIB}\r\n    function LoadGPXFromStream(const AStream: TStream; AEncoding: TEncoding; AAutoDisplay: Boolean = True;\r\n      AZoomToBounds: Boolean = True; AStrokeWidth: Integer = 3; AStrokeColor: TTMSFNCGraphicsColor = gcBlack; ADisplayElevation: Boolean = False;\r\n      ADisplayTimeStamps: Boolean = False; AMinSecondsBetweenTimeStamps: Integer = 600): TTMSFNCMapsGPXRec; overload; virtual;\r\n\r\n    function LoadGPXFromStream(const AStream: TStream; AEncoding: TEncoding; AAutoDisplay: Boolean;\r\n      AZoomToBounds: Boolean; AStrokeWidth: Integer; AElevationColors: TTMSFNCMapsGPXColorRecArray; ADisplayElevation: Boolean;\r\n      ADisplayTimeStamps: Boolean = False; AMinSecondsBetweenTimeStamps: Integer = 600): TTMSFNCMapsGPXRec; overload; virtual;\r\n    {$ENDIF}\r\n\r\n    {$IFNDEF WEBLIB}\r\n    function LoadGPXFromFile(AFileName: string; AAutoDisplay: Boolean = True;\r\n      AZoomToBounds: Boolean = True; AStrokeWidth: Integer = 3; AStrokeColor: TTMSFNCGraphicsColor = gcBlack; ADisplayElevation: Boolean = False;\r\n      ADisplayTimeStamps: Boolean = False; AMinSecondsBetweenTimeStamps: Integer = 600): TTMSFNCMapsGPXRec; overload; virtual;\r\n\r\n    function LoadGPXFromFile(AFileName: string; AAutoDisplay: Boolean;\r\n      AZoomToBounds: Boolean; AStrokeWidth: Integer; AElevationColors: TTMSFNCMapsGPXColorRecArray; ADisplayElevation: Boolean;\r\n      ADisplayTimeStamps: Boolean = False; AMinSecondsBetweenTimeStamps: Integer = 600): TTMSFNCMapsGPXRec; overload; virtual;\r\n\r\n    {$IFNDEF LCLLIB}\r\n    function LoadGPXFromFile(AFileName: string; AEncoding: TEncoding; AAutoDisplay: Boolean = True;\r\n      AZoomToBounds: Boolean = True; AStrokeWidth: Integer = 3; AStrokeColor: TTMSFNCGraphicsColor = gcBlack; ADisplayElevation: Boolean = False;\r\n      ADisplayTimeStamps: Boolean = False; AMinSecondsBetweenTimeStamps: Integer = 600): TTMSFNCMapsGPXRec; overload; virtual;\r\n\r\n    function LoadGPXFromFile(AFileName: string; AEncoding: TEncoding; AAutoDisplay: Boolean;\r\n      AZoomToBounds: Boolean; AStrokeWidth: Integer; AElevationColors: TTMSFNCMapsGPXColorRecArray; ADisplayElevation: Boolean;\r\n      ADisplayTimeStamps: Boolean = False; AMinSecondsBetweenTimeStamps: Integer = 600): TTMSFNCMapsGPXRec; overload; virtual;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n\r\n    function LoadGPXFromText(AText: string; AAutoDisplay: Boolean = True;\r\n      AZoomToBounds: Boolean = True; AStrokeWidth: Integer = 3; AStrokeColor: TTMSFNCGraphicsColor = gcBlack; ADisplayElevation: Boolean = False;\r\n      ADisplayTimeStamps: Boolean = False; AMinSecondsBetweenTimeStamps: Integer = 600): TTMSFNCMapsGPXRec; overload; virtual;\r\n\r\n    function LoadGPXFromText(AText: string; AAutoDisplay: Boolean;\r\n      AZoomToBounds: Boolean; AStrokeWidth: Integer; AElevationColors: TTMSFNCMapsGPXColorRecArray; ADisplayElevation: Boolean;\r\n      ADisplayTimeStamps: Boolean = False; AMinSecondsBetweenTimeStamps: Integer = 600): TTMSFNCMapsGPXRec; overload; virtual;\r\n\r\n    procedure SaveToGPXStream(ACoordinates: TTMSFNCMapsCoordinateRecArray; AStream: TStream); overload; virtual;\r\n    procedure SaveToGPXStream(ACoordinates: TTMSFNCMapsCoordinateRecArray; AStream: TStream; AMetaData: TTMSFNCMapsGPXMetaData; AWayPoints: TTMSFNCMapsGPXWayPointRecArray = nil); overload; virtual;\r\n\r\n    {$IFNDEF LCLLIB}\r\n    procedure SaveToGPXStream(ACoordinates: TTMSFNCMapsCoordinateRecArray; AStream: TStream; AEncoding: TEncoding); overload; virtual;\r\n    procedure SaveToGPXStream(ACoordinates: TTMSFNCMapsCoordinateRecArray; AStream: TStream; AEncoding: TEncoding; AMetaData: TTMSFNCMapsGPXMetaData; AWayPoints: TTMSFNCMapsGPXWayPointRecArray = nil); overload; virtual;\r\n    {$ENDIF}\r\n\r\n    procedure SaveToGPXFile(ACoordinates: TTMSFNCMapsCoordinateRecArray; AFileName: string); overload; virtual;\r\n    procedure SaveToGPXFile(ACoordinates: TTMSFNCMapsCoordinateRecArray; AFileName: string; AMetaData: TTMSFNCMapsGPXMetaData; AWayPoints: TTMSFNCMapsGPXWayPointRecArray = nil); overload; virtual;\r\n\r\n    {$IFNDEF LCLLIB}\r\n    procedure SaveToGPXFile(ACoordinates: TTMSFNCMapsCoordinateRecArray; AFileName: string; AEncoding: TEncoding); overload; virtual;\r\n    procedure SaveToGPXFile(ACoordinates: TTMSFNCMapsCoordinateRecArray; AFileName: string; AEncoding: TEncoding; AMetaData: TTMSFNCMapsGPXMetaData; AWayPoints: TTMSFNCMapsGPXWayPointRecArray = nil); overload; virtual;\r\n    {$ENDIF}\r\n\r\n    function SaveToGPXText(ACoordinates: TTMSFNCMapsCoordinateRecArray): string; overload; virtual;\r\n    function SaveToGPXText(ACoordinates: TTMSFNCMapsCoordinateRecArray; AMetaData: TTMSFNCMapsGPXMetaData; AWayPoints: TTMSFNCMapsGPXWayPointRecArray = nil): string; overload; virtual;\r\n\r\n    function LoadGeoJSONFromStream(const AStream: TStream; AAutoDisplay: Boolean = True; AZoomToBounds: Boolean = True): TTMSFNCMapsGeoJSONRec; overload; virtual;\r\n\r\n    {$IFNDEF LCLLIB}\r\n    function LoadGeoJSONFromStream(const AStream: TStream; AEncoding: TEncoding; AAutoDisplay: Boolean = True; AZoomToBounds: Boolean = True): TTMSFNCMapsGeoJSONRec; overload; virtual;\r\n    {$ENDIF}\r\n\r\n    {$IFNDEF WEBLIB}\r\n    function LoadGeoJSONFromFile(AFileName: string; AAutoDisplay: Boolean = True; AZoomToBounds: Boolean = True): TTMSFNCMapsGeoJSONRec; overload; virtual;\r\n    {$IFNDEF LCLLIB}\r\n    function LoadGeoJSONFromFile(AFileName: string; AEncoding: TEncoding; AAutoDisplay: Boolean = True; AZoomToBounds: Boolean = True): TTMSFNCMapsGeoJSONRec; overload; virtual;\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n\r\n    function LoadGeoJSONFromText(AText: string; AAutoDisplay: Boolean = True; AZoomToBounds: Boolean = True): TTMSFNCMapsGeoJSONRec; virtual;\r\n\r\n    function AddMarker(ACoordinate: TTMSFNCMapsCoordinateRec; ATitle: string = ''; AIconURL: string = ''): TTMSFNCMapsMarker; overload; virtual;\r\n    function AddMarker(ALatitude: Double; ALongitude: Double; ATitle: string = ''; AIconURL: string = ''): TTMSFNCMapsMarker; overload; virtual;\r\n    function AddPolyline(ACoordinates: TTMSFNCMapsCoordinateRecArray; AClose: Boolean = False): TTMSFNCMapsPolyline; virtual;\r\n    function AddPolygon(ACoordinates: TTMSFNCMapsCoordinateRecArray; AClose: Boolean = False): TTMSFNCMapsPolygon; virtual;\r\n    function AddCircle(ACenter: TTMSFNCMapsCoordinateRec; ARadius: Double = 10000): TTMSFNCMapsCircle; virtual;\r\n    function AddRectangle(ABounds: TTMSFNCMapsBoundsRec): TTMSFNCMapsRectangle; virtual;\r\n    function ShowPopup(ACoordinate: TTMSFNCMapsCoordinateRec; AText: string; AOffsetX: Double = 0; AOffsetY: Double = 0; APanMap: Boolean = True): string; overload; virtual;\r\n    function ShowPopup(ALatitude: Double; ALongitude: Double; AText: string; AOffsetX: Double = 0; AOffsetY: Double = 0; APanMap: Boolean = True): string; overload; virtual;\r\n    function AddElementContainer(AHTML: TStrings; AStyle: TStrings = nil; AScript: TStrings = nil; APosition: TTMSFNCMapsPosition = poTopLeft; AHTMLElementID: string = ''): TTMSFNCMapsElementContainer; virtual;\r\n    function AddHeadLink(AURL: string; AKind: TTMSFNCMapsLinkKind = mlkScript; ARel: string = ''): TTMSFNCMapsHeadLink; virtual;\r\n    function AddLabel(ACoordinate: TTMSFNCMapsCoordinateRec; AText: string; AFontColor: TTMSFNCGraphicsColor = gcNull; ABackgroundColor: TTMSFNCGraphicsColor = gcNull): TTMSFNCMapsLabel; overload; virtual;\r\n    function AddLabel(ABounds: TTMSFNCMapsBoundsRec; AText: string; AFontColor: TTMSFNCGraphicsColor = gcNull; ABackgroundColor: TTMSFNCGraphicsColor = gcNull): TTMSFNCMapsLabel; overload; virtual;\r\n    function AddLabel(ANorthEastLatitude: Double; ANorthEastLongitude: Double; ASouthWestLatitude: Double; ASouthWestLongitude: Double; AText: string; AFontColor: TTMSFNCGraphicsColor = gcNull; ABackgroundColor: TTMSFNCGraphicsColor = gcNull): TTMSFNCMapsLabel; overload; virtual;\r\n    function AddLabel(ALatitude: Double; ALongitude: Double; AText: string; AFontColor: TTMSFNCGraphicsColor = gcNull; ABackgroundColor: TTMSFNCGraphicsColor = gcNull): TTMSFNCMapsLabel; overload; virtual;\r\n    procedure ClosePopup(AID: string); virtual;\r\n    procedure CloseAllPopups; virtual;\r\n    procedure RouteCalculatorPlotRoute(ARoute: TTMSFNCRouteCalculatorRoute); virtual;\r\n    procedure RouteCalculatorPlotRoutes; virtual;\r\n    procedure RouteCalculatorClearRoutes; virtual;\r\n    procedure RouteCalculatorDeletePolyline(APolyline: TTMSFNCMapsPolyline; AUpdateRoute: Boolean = True);\r\n    procedure RouteCalculatorDeleteMarker(AMarker: TTMSFNCMapsMarker; AUpdateRoute: Boolean = True);\r\n    procedure RouteCalculatorDeleteSelectedPolyline(AUpdateRoute: Boolean = True);\r\n    procedure RouteCalculatorDeleteSelectedMarker(AUpdateRoute: Boolean = True);\r\n    property RouteCalculatorSelectedPolyline: TTMSFNCMapsPolyline read FRouteCalculatorSelectedPolyline write FRouteCalculatorSelectedPolyline;\r\n    property RouteCalculatorSelectedMarker: TTMSFNCMapsMarker read FRouteCalculatorSelectedMarker write FRouteCalculatorSelectedMarker;\r\n  end;\r\n\r\n  TTMSFNCCustomMapsInterfacedObject = class(TInterfacedObject, ITMSFNCCustomMapsInstance)\r\n  private\r\n    FMapsProperties: ITMSFNCCustomMapsProperties;\r\n    function GetMapsProperties: ITMSFNCCustomMapsProperties;\r\n  protected\r\n    procedure SetMapsProperties(const Value: ITMSFNCCustomMapsProperties);\r\n  public\r\n    property MapsProperties: ITMSFNCCustomMapsProperties read GetMapsProperties;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCMapsList = class(TList)\r\n  private\r\n    function GetItem(Index: Integer): ITMSFNCCustomMaps;\r\n    procedure SetItem(Index: Integer; const Value: ITMSFNCCustomMaps);\r\n  public\r\n    property Items[Index: Integer]: ITMSFNCCustomMaps read GetItem write SetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCMapsList = class(TList<ITMSFNCCustomMaps>);\r\n  {$ENDIF}\r\n\r\n  TTMSFNCMapsFactoryService = class(TInterfacedObject, ITMSFNCMapsService)\r\n  private\r\n    FMaps: TTMSFNCMapsList;\r\n  protected\r\n    function DoCreateMaps: ITMSFNCCustomMaps; virtual; abstract;\r\n    function CreateMaps: ITMSFNCCustomMaps;\r\n    procedure DestroyMaps(AMaps: ITMSFNCCustomMaps);\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  TTMSFNCMaps = class(TTMSFNCCustomMaps)\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n  public\r\n    procedure Navigate; overload; override;\r\n    procedure Navigate(const AURL: string); overload; override;\r\n    procedure ExecuteJavaScript(AScript: String; ACompleteEvent: TTMSFNCWebBrowserJavaScriptCompleteEvent = nil; AImmediate: Boolean = False); override;\r\n    function ExecuteJavaScriptSync(AScript: String): string; override;\r\n    procedure LoadHTML(AHTML: String); override;\r\n    procedure LoadFile(AFile: String); override;\r\n    procedure Initialize; override;\r\n    procedure DeInitialize; override;\r\n    procedure GoForward; override;\r\n    procedure GoBack; override;\r\n    procedure Reload; override;\r\n    procedure StopLoading; override;\r\n    procedure AddBridge(ABridgeName: string; ABridgeObject: TObject); override;\r\n    procedure RemoveBridge(ABridgeName: string); override;\r\n    procedure CaptureScreenShot(ACompleteEvent: TTMSFNCWebBrowserCaptureScreenShotCompleteEvent = nil); override;\r\n    function GetBridgeCommunicationLayer(ABridgeName: string): string; override;\r\n    function NativeEnvironment: Pointer; override;\r\n    function NativeBrowser: Pointer; override;\r\n    function IsFMXBrowser: Boolean; override;\r\n    function CanGoBack: Boolean; override;\r\n    function CanGoForward: Boolean; override;\r\n    {$IFDEF ANDROID}\r\n    function NativeDialog: Pointer; override;\r\n    {$ENDIF}\r\n    {$IFDEF MSWINDOWS}\r\n    function GetWebBrowserInstance: IInterface; override;\r\n    {$ENDIF}\r\n    property OnCloseForm;\r\n    property EnableContextMenu;\r\n    property EnableShowDebugConsole;\r\n    property EnableAcceleratorKeys;\r\n    property CacheFolder;\r\n    property CacheFolderName;\r\n    property AutoClearCache;\r\n    procedure ClearCache; override;\r\n    procedure ShowDebugConsole; override;\r\n\r\n    property MapsInstance;\r\n    property MapsProperties;\r\n  published\r\n    property OnCustomizeLocalAccessFileName;\r\n    property RouteCalculator;\r\n    property OnCaptureScreenShot;\r\n    property OnCustomizeCSS;\r\n    property OnCustomizeJavaScript;\r\n    property OnCustomizeMap;\r\n    property OnCustomizeGlobalVariables;\r\n    property OnCustomizeMarker;\r\n    property OnCustomizePopup;\r\n    property OnCustomizeHeadLinks;\r\n    property OnCustomizeOptions;\r\n    property OnCustomizePolyElement;\r\n    property OnGetDefaultHTMLMessage;\r\n    property OnZoomChanged;\r\n    property OnMapTypeChanged;\r\n    property OnMapMoveStart;\r\n    property OnMapMoveEnd;\r\n//    property OnMapMove;\r\n//    property OnMapIdle;\r\n    property OnMapClick;\r\n    property OnMapDblClick;\r\n    property OnMapMouseUp;\r\n    property OnMapMouseDown;\r\n    property OnMapMouseMove;\r\n    property OnMapMouseEnter;\r\n    property OnMapMouseLeave;\r\n    property OnMarkerClick;\r\n    property OnMarkerRightClick;\r\n    property OnMarkerDblClick;\r\n    property OnMarkerMouseUp;\r\n    property OnMarkerMouseDown;\r\n    property OnMarkerMouseEnter;\r\n    property OnMarkerMouseLeave;\r\n    property OnPolyElementClick;\r\n    property OnPolyElementDblClick;\r\n    property OnPolyElementMouseUp;\r\n    property OnPolyElementMouseDown;\r\n    property OnPolyElementMouseEnter;\r\n    property OnPolyElementMouseLeave;\r\n    property OnCustomEvent;\r\n    property OnMapInitialized;\r\n    property OnGetCenterCoordinate;\r\n    property OnGetBounds;\r\n    property OnGetZoomLevel;\r\n    property OnCreateGPXTrack;\r\n    property OnCreateGPXSegment;\r\n    property OnCreateGPXWayPoint;\r\n    property OnCreateGeoJSONObject;\r\n    property OnRouteCalculatorWayPointAdded;\r\n    property OnRouteCalculatorWayPointUpdated;\r\n    property OnRouteCalculatorPolylineAdded;\r\n    property OnRouteCalculatorPolylineUpdated;\r\n    property OnRouteCalculatorBeforeDeletePolyline;\r\n    property OnRouteCalculatorAfterDeletePolyline;\r\n    property OnRouteCalculatorBeforeDeleteMarker;\r\n    property OnRouteCalculatorAfterDeleteMarker;\r\n    property OnError;\r\n\r\n    property APIKey;\r\n    property Polylines;\r\n    property Polygons;\r\n    property Circles;\r\n    property Rectangles;\r\n    property Markers;\r\n    property ElementContainers;\r\n    property Labels;\r\n    property HeadLinks;\r\n    property Options;\r\n    property Service;\r\n    property Version;\r\n    property LocalFileAccess;\r\n    property DesigntimeEnabled;\r\n  end;\r\n\r\n  TTMSFNCMapsPlatformServicesService = class\r\n  private\r\n    FInterface: IInterface;\r\n    FGUID: string;\r\n  public\r\n    constructor Create(AGUID: string; AInterface: IInterface);\r\n    property GUID: string read FGUID;\r\n    property &Interface: IInterface read FInterface;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCMapsPlatformServicesList = class(TObjectList)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCMapsPlatformServicesService;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCMapsPlatformServicesService);\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCMapsPlatformServicesService read GetItem write SetItem; default;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCMapsPlatformServicesList = class(TObjectList<TTMSFNCMapsPlatformServicesService>)\r\n  {$ENDIF}\r\n  private\r\n    function GetValue(AGUID: string): IInterface;\r\n  public\r\n    function ContainsKey(AGUID: string): Boolean;\r\n    procedure RemoveByGUID(AGUID: string);\r\n    property Interfaces[AGUID: string]: IInterface read GetValue;\r\n  end;\r\n\r\n  TTMSFNCMapsPlatformServices = class\r\n  private\r\n    FServicesList: TTMSFNCMapsPlatformServicesList;\r\n    class var FCurrent: TTMSFNCMapsPlatformServices;\r\n    class var FCurrentReleased: Boolean;\r\n{$IFNDEF AUTOREFCOUNT}\r\n    class procedure ReleaseCurrent;\r\n{$ENDIF}\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n    procedure AddPlatformService(const AServiceGUID: TGUID; const AService: IInterface);\r\n    procedure RemovePlatformService(const AServiceGUID: TGUID);\r\n    function GetPlatformService(const AServiceGUID: TGUID): IInterface;\r\n    function SupportsPlatformService(const AServiceGUID: TGUID): Boolean; overload;\r\n    function SupportsPlatformService(const AServiceGUID: TGUID; var AService: IInterface): Boolean; overload;\r\n    class function Current: TTMSFNCMapsPlatformServices;\r\n  end;\r\n\r\nimplementation\r\n\r\nuses\r\n  {%H-}Math,\r\n  WEBLib.TMSFNCPersistence,\r\n  WEBLib.TMSFNCUtils,\r\n  WEBLib.TMSFNCGraphics,\r\n  WEBLib.TMSFNCMaps.GoogleMaps,\r\n  WEBLib.TMSFNCMaps.Here,\r\n  WEBLib.TMSFNCMaps.BingMaps,\r\n  WEBLib.TMSFNCMaps.TomTom,\r\n  WEBLib.TMSFNCMaps.AzureMaps,\r\n  WEBLib.TMSFNCMaps.OpenLayers,\r\n  WEBLib.TMSFNCMaps.Leaflet,\r\n  WEBLib.TMSFNCMaps.MapBox,\r\n  WEBLib.TMSFNCMaps.MapKit\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,UITypes\r\n  {$ENDIF}\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Types\r\n  {$ENDIF}\r\n  ;\r\n\r\nconst\r\n  EVENTDATAPREFIX = 'jsevent://';\r\n  CUSTOMDATAPREFIX = 'customdata://';\r\n  LOADMAPFUNC = 'loadMap';\r\n  WAITFORMAPINITIALIZEDFUNC = 'waitForMapInitialized';\r\n  MAPEVENTDATA = 'JSEVENT';\r\n\r\ntype\r\n  TTMSFNCMapsRouteCalculatorOpen = class(TTMSFNCRouteCalculator);\r\n\r\n{ TTMSFNCMapsEventData }\r\n\r\nconstructor TTMSFNCMapsEventData.Create;\r\nbegin\r\n  FEvent := '';\r\n  FCoordinate := TTMSFNCMapsCoordinate.Create;\r\nend;\r\n\r\ndestructor TTMSFNCMapsEventData.Destroy;\r\nbegin\r\n  FCoordinate.Free;\r\n  inherited;\r\nend;\r\n\r\n{ TTMSFNCMapsGeoJSONEventData }\r\n\r\nconstructor TTMSFNCMapsGeoJSONEventData.Create;\r\nbegin\r\n  FJSONValue := nil;\r\nend;\r\n\r\ndestructor TTMSFNCMapsGeoJSONEventData.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\n{ TTMSFNCCustomMaps }\r\n\r\nfunction TTMSFNCCustomMaps.GetShowZoomControl: Boolean;\r\nbegin\r\n  Result := Options.ShowZoomControl;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetTilt: Double;\r\nbegin\r\n  Result := 0;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetTipsURL: string;\r\nbegin\r\n  Result := TTMSFNCMapsTipsURL;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetShowMapTypeControl: Boolean;\r\nbegin\r\n  Result := Options.ShowMapTypeControl;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetLocalAccessFileName: string;\r\nbegin\r\n  Result := TTMSFNCUtils.AddBackslash(TTMSFNCUtils.GetTempPath) + CreateNewGUID + '.html';\r\n  DoCustomizeLocalAccessFileName(Result);\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetLocale(AMode: TTMSFNCMapsLocaleMode = mlmDefault): string;\r\nbegin\r\n  Result := ParseLocale(Options.Locale, AMode);\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetAPIKey: string;\r\nbegin\r\n  Result := APIKey;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetAPIVersion: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetBackgroundColor: TTMSFNCGraphicsColor;\r\nbegin\r\n  Result := Options.BackgroundColor;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetBody: string;\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  Result := '<div id=\"' + MAPID + '\" style=\"height:100%; width:100%\" tabindex=\"0\"></div>';\r\n  {$ELSE}\r\n  Result := '<div id=\"' + MAPID + '\"></div>';\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetHeadStyle: string;\r\nvar\r\n  m: string;\r\n  hs: string;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(FMaps) then\r\n    Exit;\r\n\r\n  hs := '';\r\n  DoCustomizeCSS(hs);\r\n\r\n  {$IFDEF WEBLIB}\r\n  Result := '#' + MAPID + ' {' + LB +\r\n  {$ELSE}\r\n  Result := '#' + MAPID + ', html, body {' + LB +\r\n  {$ENDIF}\r\n    '  height: 100%;' + LB +\r\n    '  margin: 0;' + LB +\r\n    '  padding: 0;' + LB +\r\n    '  overflow: hidden;' + LB +\r\n    '}';\r\n\r\n    Result := Result +\r\n    '  .tmsfncmaps_sb:after {' + LB +\r\n    '   content: \"\";' + LB +\r\n    '  \tposition: absolute;' + LB +\r\n    '   left: 50%;' + lB +\r\n    '  \twidth: 10px;' + LB +\r\n    '  \theight: 10px;' + LB +\r\n    '   margin-left: -5px;' +\r\n    '  \tborder-left: inherit;' + LB +\r\n    '  \tborder-top: inherit;' + LB +\r\n    '  \tbackground-color: inherit;' + LB +\r\n    '  \tdisplay: block;' + LB +\r\n    '  \ttransform: rotate(-135deg);' + LB +\r\n    '  }';\r\n\r\n  if hs <> '' then\r\n    Result := Result + LB + hs;\r\n\r\n  m := FMaps.GetHeadStyle;\r\n  if m <> '' then\r\n    Result := Result + LB + m;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetDefaultHTML: string;\r\nvar\r\n  m: string;\r\nbegin\r\n  Result :=\r\n  {$IFNDEF WEBLIB}\r\n  '<!DOCTYPE html>'+\r\n  '<html lang=\"en\">'+\r\n\r\n  '<head>'+\r\n  '  <meta charset=\"utf-8\">' + LB +\r\n  '  <meta http-equiv=\"X-UA-Compatible\" content=\"IE=edge\">' + LB +\r\n  '  <meta name=\"viewport\" content=\"width=device-width, initial-scale=1\">' + LB +\r\n  '  <title>404 HTML Template by Colorlib</title>' + LB +\r\n  '  <link href=\"https://fonts.googleapis.com/css?family=Montserrat:200,400,700\" rel=\"stylesheet\">' + LB +\r\n  '  <link type=\"text/css\" rel=\"stylesheet\" href=\"css/style.css\" />' + LB +\r\n  {$ENDIF}\r\n  '  <style>' + LB +\r\n//  {$IFNDEF WEBLIB}\r\n//  '  * {'+ LB +\r\n//  {$ELSE}\r\n//  '  * {' + LB +\r\n//  {$ENDIF}\r\n//  '    -webkit-box-sizing: border-box;'+ LB +\r\n//  '            box-sizing: border-box;'+ LB +\r\n//  '  }'+ LB +\r\n\r\n  {$IFDEF WEBLIB}\r\n  '  #notfound {'+ LB +\r\n  {$ELSE}\r\n  '  html, body {'+ LB +\r\n  {$ENDIF}\r\n  '    background: #d7ebf6;' + LB +\r\n  '    padding: 0;'+ LB +\r\n  '    border: #000000;' + LB +\r\n  '    width: 100%;' + LB +\r\n  '    height: 100%;' + LB +\r\n  '    margin: 0;' + LB +\r\n  '    padding: 0;' + LB +\r\n  '    border: solid #211b19;' + LB +\r\n  '    border-width: thin;' + LB +\r\n  '    overflow:hidden;' + LB +\r\n  '    display:block;' + LB +\r\n  '    -webkit-box-sizing: border-box;'+ LB +\r\n  '            box-sizing: border-box;'+ LB +\r\n  {$IFNDEF WEBLIB}\r\n  '  }'+ LB +\r\n\r\n  '  #notfound {'+ LB +\r\n  {$ENDIF}\r\n  '    position: relative;'+ LB +\r\n  {$IFNDEF WEBLIB}\r\n  '    height: 100vh;'+ LB +\r\n  {$ENDIF}\r\n  '  }'+ LB +\r\n\r\n  '  #notfound .notfound {'+ LB +\r\n  '    position: absolute;'+ LB +\r\n  '    left: 50%;'+ LB +\r\n  '    top: 50%;'+ LB +\r\n  '    -webkit-transform: translate(-50%, -50%);'+ LB +\r\n  '        -ms-transform: translate(-50%, -50%);'+ LB +\r\n  '            transform: translate(-50%, -50%);'+ LB +\r\n  '  }'+ LB +\r\n\r\n  '  .notfound {'+ LB +\r\n  '    max-width: 520px;'+ LB +\r\n  '    width: 100%;'+ LB +\r\n  '    line-height: 1.4;'+ LB +\r\n  '    text-align: center;'+ LB +\r\n  '  }'+ LB +\r\n\r\n  '  .notfound .notfound-404 {'+ LB +\r\n  '    position: relative;'+ LB +\r\n  '    height: 200px;'+ LB +\r\n  '    margin: 0px auto 20px;'+ LB +\r\n  '    z-index: -1;'+ LB +\r\n  '  }' + LB +\r\n\r\n  '  .notfound .notfound-404 h2 {'+ LB +\r\n  '    font-family: ''Montserrat'', sans-serif;'+ LB +\r\n  '    font-size: 28px;'+ LB +\r\n  '    font-weight: 400;'+ LB +\r\n  '    text-transform: uppercase;'+ LB +\r\n  '    color: #211b19;'+ LB +\r\n  '    background: #d7ebf6;'+ LB +\r\n  '    padding: 10px 5px;'+ LB +\r\n  '    margin: auto;'+ LB +\r\n  '    display: inline-block;'+ LB +\r\n  '    position: absolute;'+ LB +\r\n  '    bottom: 0px;'+ LB +\r\n  '    left: 0;'+ LB +\r\n  '    right: 0;'+ LB +\r\n  '  }'+ LB +\r\n\r\n  '  @media only screen and (max-width: 767px) {'+ LB +\r\n  '    .notfound .notfound-404 h1 {'+ LB +\r\n  '      font-size: 148px;'+ LB +\r\n  '    }'+ LB +\r\n  '  }'+ LB +\r\n\r\n  '  @media only screen and (max-width: 480px) {'+ LB +\r\n  '    .notfound .notfound-404 {'+ LB +\r\n  '      height: 148px;'+ LB +\r\n  '      margin: 0px auto 10px;'+ LB +\r\n  '    }'+ LB +\r\n  '    .notfound .notfound-404 h1 {'+ LB +\r\n  '      font-size: 86px;'+ LB +\r\n  '    }'+ LB +\r\n  '    .notfound .notfound-404 h2 {'+ LB +\r\n  '      font-size: 16px;'+ LB +\r\n  '    }'+ LB +\r\n  '    .notfound a {'+ LB +\r\n  '      padding: 7px 15px;'+ LB +\r\n  '      font-size: 14px;'+ LB +\r\n  '    }'+ LB +\r\n  '  }'+ LB +\r\n\r\n  ' </style>' + LB +\r\n  {$IFNDEF WEBLIB}\r\n  '</head>' + LB +\r\n  {$ENDIF}\r\n\r\n  {$IFNDEF WEBLIB}\r\n  '<body>' + LB +\r\n  {$ENDIF}\r\n  '  <div id=\"notfound\">' + LB +\r\n  '    <div class=\"notfound\">' + LB +\r\n  '      <div class=\"notfound-404\">' + LB;\r\n\r\n\r\n  m := '';\r\n  if not MapReady then\r\n  begin\r\n    if Assigned(FMaps) then\r\n      m := FMaps.GetIdentifier + ' can''t be displayed - please verify if API key is set!'\r\n    else\r\n      m := 'Map can''t be initialized - please verify if correct Service is set!';\r\n  end;\r\n\r\n  DoGetDefaultHTMLMessage(m);\r\n\r\n  Result := Result + '        <h2>' + m + '</h2>' + LB;\r\n\r\n  Result := Result +\r\n  '      </div>' + LB +\r\n  '    </div>' + LB +\r\n  '  </div>' + LB\r\n  {$IFNDEF WEBLIB}\r\n  +'</body>' + LB +\r\n  '</html>'\r\n  {$ENDIF}\r\n  ;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetDocURL: string;\r\nbegin\r\n  Result := TTMSFNCMapsDocURL;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetElementContainerByID(\r\n  AID: string): TTMSFNCMapsElementContainer;\r\nbegin\r\n  Result := ElementContainers.ItemByID[AID];\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetElementContainersClass: TTMSFNCMapsElementContainersClass;\r\nbegin\r\n  Result := TTMSFNCMapsElementContainers;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetHeadLinksClass: TTMSFNCMapsHeadLinksClass;\r\nbegin\r\n  Result := TTMSFNCMapsHeadLinks;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetHTML: string;\r\nvar\r\n  hs, bs: string;\r\n  l: TTMSFNCMapsLinksList;\r\nbegin\r\n  Result := '';\r\n  if not MapReady then\r\n  begin\r\n    Result :=\r\n    {$IFNDEF WEBLIB}\r\n    StartHTMLTag + LB +\r\n    StartBODYTag + LB +\r\n    {$ENDIF}\r\n    GetDefaultHTML\r\n    {$IFNDEF WEBLIB}\r\n     + LB + EndBODYTag + LB +\r\n    EndHTMLTag\r\n    {$ENDIF}\r\n    ;\r\n    Exit;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  Result := GetBody;\r\n  {$ELSE}\r\n  Result :=\r\n    StartHTMLTag + LB +\r\n    StartHEADTag + LB +\r\n    '<meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0, user-scalable=no\"/>'  + LB +\r\n    '<meta http-equiv=\"content-type\" content=\"text/html; charset=UTF-8\"/>'  + LB +\r\n    '<meta http-equiv=\"X-UA-Compatible\" content=\"IE=11\"/>'  + LB;\r\n\r\n  if Options.Console then\r\n    Result := Result + '<script type=\"text/javascript\" src=\"' + DEBUGCONSOLELINK +'\"></script>' + LB;\r\n\r\n  l := TTMSFNCMapsLinksList.Create;\r\n  try\r\n    GetHeadLinks(l);\r\n    hs := ParseLinks(l);\r\n    l.Clear;\r\n    GetBodyLinks(l);\r\n    bs := ParseLinks(l);\r\n  finally\r\n    l.Free;\r\n  end;\r\n\r\n  Result := Result +\r\n    hs + LB +\r\n    StartSTYLETag + LB +\r\n    GetHeadStyle + LB +\r\n    EndStyleTag + LB +\r\n    StartTITLETag + LB +\r\n    FMaps.GetIdentifier + LB +\r\n    EndTITLETag + LB +\r\n    EndHEADTag + LB +\r\n    StartBODYTag + LB +\r\n    GetBody + LB +\r\n    bs + LB +\r\n    EndBODYTag + LB +\r\n    EndHTMLTag + LB;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetVersion: string;\r\nvar\r\n  vn: Integer;\r\nbegin\r\n  vn := GetVersionNr;\r\n  Result := IntToStr(Hi(Hiword(vn)))+'.'+IntToStr(Lo(Hiword(vn)))+'.'+IntToStr(Hi(Loword(vn)))+'.'+IntToStr(Lo(Loword(vn)));\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetVersionNr: Integer;\r\nbegin\r\n  Result := MakeLong(MakeWord(BLD_VER,REL_VER),MakeWord(MIN_VER,MAJ_VER));\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if (Source is TTMSFNCCustomMaps) then\r\n  begin\r\n    FService := (Source as TTMSFNCCustomMaps).Service;\r\n    FOptions.Assign((Source as TTMSFNCCustomMaps).Options);\r\n    FAPIKey := (Source as TTMSFNCCustomMaps).APIKey;\r\n    FMarkers.Assign((Source as TTMSFNCCustomMaps).Markers);\r\n    FElementContainers.Assign((Source as TTMSFNCCustomMaps).ElementContainers);\r\n    FLabels.Assign((Source as TTMSFNCCustomMaps).Labels);\r\n    FPolylines.Assign((Source as TTMSFNCCustomMaps).Polylines);\r\n    FPolygons.Assign((Source as TTMSFNCCustomMaps).Polygons);\r\n    FCircles.Assign((Source as TTMSFNCCustomMaps).Circles);\r\n    FRectangles.Assign((Source as TTMSFNCCustomMaps).Rectangles);\r\n    FHeadLinks.Assign((Source as TTMSFNCCustomMaps).HeadLinks);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.BeginUpdate;\r\nbegin\r\n  inherited;\r\n  Inc(FUpdateCount);\r\nend;\r\n\r\nconstructor TTMSFNCCustomMaps.Create(AOwner: TComponent);\r\nbegin\r\n  inherited;\r\n  {$IFDEF WEBLIB}\r\n  if (ElementID = '') and IsDesigning then\r\n    ElementID := GetNewName;\r\n  {$ENDIF}\r\n\r\n  FMarkers := GetMarkersClass.Create(Self);\r\n  FHeatMaps := GetHeatMapsClass.Create(Self);\r\n  FElementContainers := GetElementContainersClass.Create(Self);\r\n  FLabels := GetLabelsClass.Create(Self);\r\n  FPolygons := GetPolygonsClass.Create(Self);\r\n  FRectangles := GetRectanglesClass.Create(Self);\r\n  FCircles := GetCirclesClass.Create(Self);\r\n  FPolylines := GetPolylinesClass.Create(Self);\r\n  FHeadLinks := GetHeadLinksClass.Create(Self);\r\n\r\n  CheckInstances;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.CreateClasses;\r\nbegin\r\n  inherited;\r\n\r\n  Supports(Self, ITMSFNCCustomMapsProperties, FMapsProperties);\r\n\r\n  FOptions := GetOptionsClass.Create;\r\n  FOptions.OnChange := @OptionsChanged;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.Initialized;\r\nbegin\r\n  inherited;\r\n  FMapInitialized := False;\r\n  InitializeMap;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.InitializeHTML;\r\n{$IFNDEF WEBLIB}\r\n{$IFNDEF ANDROID}\r\nvar\r\n  s: TStringList;\r\n  fn: string;\r\n{$ENDIF}\r\n{$ENDIF}\r\n{$IFDEF WEBLIB}\r\nvar\r\n  v: Boolean;\r\n{$ENDIF}\r\nbegin\r\n  if (FUpdateCount > 0) or IsDestroying or MapInitialized then\r\n    Exit;\r\n\r\n  {$IFDEF WEBLIB}\r\n  LoadStyles;\r\n  v := False;\r\n  LoadScripts(True);\r\n  LoadScripts(False);\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  {$IFNDEF ANDROID}\r\n  if (Service = msHere) or LocalFileAccess then\r\n  begin\r\n    s := TStringList.Create;\r\n    try\r\n      s.Text := GetHTML;\r\n      fn := GetLocalAccessFileName;\r\n      s.SaveToFile(fn{$IFNDEF LCLWEBLIB}, TEncoding.UTF8{$ENDIF});\r\n      LoadFile(fn);\r\n    finally\r\n      s.Free;\r\n    end;\r\n  end\r\n  else\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n  begin\r\n    LoadHTML(GetHTML);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.InitializeMap;\r\nvar\r\n  MapsServiceGoogleMaps: ITMSFNCMapsServiceGoogleMaps;\r\n  MapsServiceHere: ITMSFNCMapsServiceHere;\r\n  MapsServiceTomTom: ITMSFNCMapsServiceTomTom;\r\n  MapsServiceAzureMaps: ITMSFNCMapsServiceAzureMaps;\r\n  MapsServiceBingMaps: ITMSFNCMapsServiceBingMaps;\r\n  MapsServiceOpenLayers: ITMSFNCMapsServiceOpenLayers;\r\n  MapsServiceLeaflet: ITMSFNCMapsServiceLeaflet;\r\n  MapsServiceMapBox: ITMSFNCMapsServiceMapBox;\r\n  MapsServiceMapKit: ITMSFNCMapsServiceMapKit;\r\nbegin\r\n  if (FUpdateCount > 0) or IsDestroying or MapInitialized then\r\n    Exit;\r\n\r\n  {$IFNDEF WEBLIB}\r\n  if Assigned(FMaps) then\r\n    FMaps.DestroyMaps;\r\n  {$ENDIF}\r\n\r\n  FMaps := nil;\r\n  FMapsInstance := nil;\r\n\r\n  case Service of\r\n    msGoogleMaps:\r\n    begin\r\n      if TTMSFNCMapsPlatformServices.Current.SupportsPlatformService(ITMSFNCMapsServiceGoogleMaps, IInterface(MapsServiceGoogleMaps)) then\r\n        FMaps := MapsServiceGoogleMaps.CreateMaps;\r\n    end;\r\n    msHere:\r\n    begin\r\n      if TTMSFNCMapsPlatformServices.Current.SupportsPlatformService(ITMSFNCMapsServiceHere, IInterface(MapsServiceHere)) then\r\n        FMaps := MapsServiceHere.CreateMaps;\r\n    end;\r\n    msTomTom:\r\n    begin\r\n      if TTMSFNCMapsPlatformServices.Current.SupportsPlatformService(ITMSFNCMapsServiceTomTom, IInterface(MapsServiceTomTom)) then\r\n        FMaps := MapsServiceTomTom.CreateMaps;\r\n        TTMSFNCUtils.Log('The TomTom Maps service is deprecated. It is recommend to use a different service.');\r\n    end;\r\n    msAzureMaps:\r\n    begin\r\n      if TTMSFNCMapsPlatformServices.Current.SupportsPlatformService(ITMSFNCMapsServiceAzureMaps, IInterface(MapsServiceAzureMaps)) then\r\n        FMaps := MapsServiceAzureMaps.CreateMaps;\r\n    end;\r\n    msBingMaps:\r\n    begin\r\n      if TTMSFNCMapsPlatformServices.Current.SupportsPlatformService(ITMSFNCMapsServiceBingMaps, IInterface(MapsServiceBingMaps)) then\r\n        FMaps := MapsServiceBingMaps.CreateMaps;\r\n        TTMSFNCUtils.Log('The Bing Maps service is deprecated. It is recommend to use a different service.');\r\n    end;\r\n    msOpenLayers:\r\n    begin\r\n      if TTMSFNCMapsPlatformServices.Current.SupportsPlatformService(ITMSFNCMapsServiceOpenLayers, IInterface(MapsServiceOpenLayers)) then\r\n        FMaps := MapsServiceOpenLayers.CreateMaps;\r\n    end;\r\n    msLeaflet:\r\n    begin\r\n      if TTMSFNCMapsPlatformServices.Current.SupportsPlatformService(ITMSFNCMapsServiceLeaflet, IInterface(MapsServiceLeaflet)) then\r\n        FMaps := MapsServiceLeaflet.CreateMaps;\r\n    end;\r\n    msMapBox:\r\n    begin\r\n      if TTMSFNCMapsPlatformServices.Current.SupportsPlatformService(ITMSFNCMapsServiceMapBox, IInterface(MapsServiceMapBox)) then\r\n        FMaps := MapsServiceMapBox.CreateMaps;\r\n    end;\r\n    msMapKit:\r\n    begin\r\n      if TTMSFNCMapsPlatformServices.Current.SupportsPlatformService(ITMSFNCMapsServiceMapKit, IInterface(MapsServiceMapKit)) then\r\n        FMaps := MapsServiceMapKit.CreateMaps;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(FMaps) and Supports(FMaps, ITMSFNCCustomMapsInstance, FMapsInstance) then\r\n    FMapsInstance.SetMapsProperties(FMapsProperties);\r\n\r\n  InitializeHTML;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.GetBodyLinks(AList: TTMSFNCMapsLinksList; AIncludeContent: Boolean = True; ACheckReady: Boolean = True);\r\nbegin\r\n  if ACheckReady and not MapReady then\r\n    Exit;\r\n\r\n  GetLinks(AList, AIncludeContent, ACheckReady);\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetHeading: Double;\r\nbegin\r\n  Result := 0;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.GetHeadLinks(AList: TTMSFNCMapsLinksList; ACheckReady: Boolean = True);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  if ACheckReady and not MapReady then\r\n    Exit;\r\n\r\n  for I := 0 to HeadLinks.Count - 1 do\r\n  begin\r\n    if HeadLinks[I].Enabled then\r\n    begin\r\n      case HeadLinks[I].Kind of\r\n        mlkLink: AList.Add(TTMSFNCMapsLink.CreateLink(HeadLinks[I].URL, HeadLinks[I].&Type, HeadLinks[I].Rel));\r\n        mlkScript: AList.Add(TTMSFNCMapsLink.CreateScript(HeadLinks[I].URL, HeadLinks[I].&Type, HeadLinks[I].CharSet, HeadLinks[I].Content.Text, HeadLinks[I].Defer, HeadLinks[I].Async));\r\n        mlkStyle: AList.Add(TTMSFNCMapsLink.Create(HeadLinks[I].Kind, HeadLinks[I].URL, '', '', '', HeadLinks[I].Content.Text, False, False));\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  FMaps.GetHeadLinks(AList);\r\n  DoCustomizeHeadLinks(AList);\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetWaitForMapInitialized: string;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(FMaps) then\r\n    Exit;\r\n\r\n  Result :=\r\n    'function ' + WAITFORMAPINITIALIZEDFUNC + '(){' + LB +\r\n    '  if (' + FMaps.GetMapsServiceCheck + ') {' + LB +\r\n    '    setTimeout(' + WAITFORMAPINITIALIZEDFUNC + ', 200);' + LB +\r\n    '  } else if (!' + MAPVAR + ') {' + LB +\r\n    '    ' + LOADMAPFUNC + '();' + LB +\r\n    '  }' + LB +\r\n    '};' + LB +\r\n    WAITFORMAPINITIALIZEDFUNC + '();';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetDeleteMarkerFunction: string;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(FMaps) then\r\n    Exit;\r\n\r\n  Result :=\r\n    'function ' + DELETEMARKERFUNCTION + '(' + PARAMSNAME + '){' + LB +\r\n    TryCatchStart +\r\n    '  var ' + MARKERVAR + ' = ' + MARKERARRAYVAR + '[' + PARAMSNAME + '[\"ID\"]];' + LB +\r\n    FMaps.GetDeleteMarker + LB + LB +\r\n    '  if (' + MARKERVAR + '){' + LB +\r\n    '    delete ' + MARKERARRAYVAR + '[' + PARAMSNAME + '[\"ID\"]];' + LB +\r\n    '    ' + MARKERVAR + ' = null;' + LB +\r\n    '  }' + LB +\r\n    TryCatchEnd('TMS FNC Maps Marker error') +\r\n    '}';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetAddOrUpdateElementContainerFunction: string;\r\nbegin\r\n  Result :=\r\n    'function updateElementPositions(){' + LB +\r\n    '  for (var key in ' + ELEMENTCONTAINERARRAYVAR + '){' + LB +\r\n    '    var v = key;' + LB +\r\n    '    var it = ' + ELEMENTCONTAINERARRAYVAR + '[v];' + LB +\r\n    '    var obj = it[0];' + LB +\r\n    '    var posType = obj.getAttribute(\"data-position\");' + LB +\r\n\r\n    //Label positioned at coordinate\r\n    '    if (posType == 9){ ' + LB +\r\n\r\n    //LabelType\r\n    //0 = Label (default)\r\n    //1 = Balloon\r\n\r\n    '      var lat = parseFloat(obj.getAttribute(\"data-latitude\"));' + LB +\r\n    '      var lon = parseFloat(obj.getAttribute(\"data-longitude\"));' + LB +\r\n    '      var xy = ' + GETLATLONTOXYFUNCTION + '({\"Latitude\": lat, \"Longitude\": lon})' + LB +\r\n    '      var labeltype = obj.getAttribute(\"data-labeltype\");' + LB +\r\n    '      var tadapt = 0;' + LB +\r\n    '      var tailheight = 0;' + LB +\r\n\r\n    '      if (labeltype == 1) {' + LB +\r\n    '        tailheight = 10;' + LB +\r\n    '        tadapt = (obj.offsetHeight + tailheight);' + LB +\r\n    '        obj.classList.add(\"tmsfncmaps_sb\");' + LB +\r\n    '      } else { ' + LB +\r\n    '        obj.classList.remove(\"tmsfncmaps_sb\");' + LB +\r\n    '      }' + LB +\r\n\r\n    '      var xyObj;' + LB +\r\n    '      if (typeof xy == \"string\")' + LB +\r\n    '        xyObj = JSON.parse(xy);' + LB +\r\n    '      else' + LB +\r\n    '        xyObj = xy;' + LB +\r\n\r\n//    '      obj.style.margin = xyObj.Y + \"px 0px 0px \" + xyObj.X + \"px\";' + LB +\r\n    '      obj.style.margin = (xyObj.Y - tadapt) + \"px 0px 0px \" + (xyObj.X - (obj.offsetWidth / 2)) + \"px\";' + LB +\r\n    '      obj.style.cursor = \"default\";' + LB +\r\n\r\n    '    }' + LB +\r\n\r\n    //Label positioned at bounds\r\n    '    if (posType == 10){ ' + LB +\r\n\r\n    '      var nelat = parseFloat(obj.getAttribute(\"data-ne-latitude\"));' + LB +\r\n    '      var nelon = parseFloat(obj.getAttribute(\"data-ne-longitude\"));' + LB +\r\n\r\n    '      var swlat = parseFloat(obj.getAttribute(\"data-sw-latitude\"));' + LB +\r\n    '      var swlon = parseFloat(obj.getAttribute(\"data-sw-longitude\"));' + LB +\r\n\r\n    '      var xyne = ' + GETLATLONTOXYFUNCTION + '({\"Latitude\": nelat, \"Longitude\": nelon})' + LB +\r\n    '      var xysw = ' + GETLATLONTOXYFUNCTION + '({\"Latitude\": swlat, \"Longitude\": swlon})' + LB +\r\n\r\n    '      var xyneObj;' + LB +\r\n    '      if (typeof xyne == \"string\")' + LB +\r\n    '        xyneObj = JSON.parse(xyne);' + LB +\r\n    '      else' + LB +\r\n    '        xyneObj = xyne;' + LB +\r\n\r\n    '      var xyswObj;' + LB +\r\n    '      if (typeof xysw == \"string\")' + LB +\r\n    '        xyswObj = JSON.parse(xysw);' + LB +\r\n    '      else' + LB +\r\n    '        xyswObj = xysw;' + LB +\r\n\r\n    '      obj.style.margin = xyneObj.Y + \"px 0px 0px \" + xyswObj.X + \"px\";' + LB +\r\n\r\n    '      var top = xyneObj.Y;' + LB +\r\n    '      var right = xyneObj.X;' + LB +\r\n    '      var bottom = xyswObj.Y;' + LB +\r\n    '      var left = xyswObj.X;' + LB +\r\n\r\n    '      var width = right - left;' + LB +\r\n    '      var height = bottom - top;' + LB +\r\n    '      if (left > right) {' + LB +\r\n    '        width = right - left;' + LB +\r\n    '      }' + LB +\r\n    '      if (top > bottom) {' + LB +\r\n    '        height = bottom - top;' + LB +\r\n    '      }' + LB +\r\n\r\n    '      obj.style.width = width;' + LB +\r\n    '      obj.style.height = height;' + LB +\r\n\r\n    '      obj.style.overflow = \"hidden\";' + LB +\r\n    '      obj.style.cursor = \"default\";' + LB +\r\n\r\n    '    }' + LB +\r\n\r\n    '  }' + LB +\r\n    '}' + LB +\r\n\r\n    'setInterval(updateElementPositions, 1);' + LB +\r\n\r\n    'function ' + ADDORUPDATEELEMENTCONTAINERFUNCTION + '(' + PARAMSNAME + '){' + LB +\r\n    TryCatchStart +\r\n\r\n    '  var ' + ELEMENTCONTAINERVAR + ' = ' + ELEMENTCONTAINERARRAYVAR + '[' + PARAMSNAME + '[\"ID\"]];' + LB +\r\n\r\n    '  if (!' + ELEMENTCONTAINERVAR + '){' + LB +\r\n    '    ' + ELEMENTCONTAINERVAR + ' = [];' + LB +\r\n    '    ' + ELEMENTCONTAINERVAR + '.push(document.createElement(\"div\"));' + LB +\r\n    '    ' + ELEMENTCONTAINERVAR + '[0].id = ' + PARAMSNAME + '[\"HTMLElementID\"];' + LB +\r\n    '    ' + ELEMENTCONTAINERVAR + '[0].className = ' + PARAMSNAME + '[\"HTMLElementClassName\"];' + LB +\r\n\r\n    '    ' + ELEMENTCONTAINERVAR + '.push(document.createElement(\"style\"));' + LB +\r\n    '    ' + ELEMENTCONTAINERVAR + '[1].id = ' + PARAMSNAME + '[\"HTMLElementID\"] + \"Style\";' + LB +\r\n    '    var elementStyle = TMSFNCMaps_base64Decode(' + PARAMSNAME + '[\"StyleAsBase64\"]);' + LB +\r\n    '    ' + ELEMENTCONTAINERVAR + '[1].innerHTML = elementStyle;' + LB +\r\n\r\n    '    ' + ELEMENTCONTAINERVAR + '.push(document.createElement(\"script\"));' + LB +\r\n    '    ' + ELEMENTCONTAINERVAR + '[2].id = ' + PARAMSNAME + '[\"HTMLElementID\"] + \"Script\";' + LB +\r\n    '    var elementScript = TMSFNCMaps_base64Decode(' + PARAMSNAME + '[\"ScriptAsBase64\"]);' + LB +\r\n    '    ' + ELEMENTCONTAINERVAR + '[2].innerHTML = elementScript;' + LB +\r\n\r\n    '    document.head.appendChild(' + ELEMENTCONTAINERVAR + '[2]);' + LB +\r\n    '    document.head.appendChild(' + ELEMENTCONTAINERVAR + '[1]);' + LB +\r\n    {$IFDEF WEBLIB}\r\n    '    ' + ElementID + '.appendChild(' + ELEMENTCONTAINERVAR + '[0]);' + LB +\r\n    {$ELSE}\r\n    '    document.body.appendChild(' + ELEMENTCONTAINERVAR + '[0]);' + LB +\r\n    {$ENDIF}\r\n\r\n\r\n    '  }' + LB +\r\n\r\n//  TTMSFNCMapsPosition = (poCustom, poTopLeft, poTopCenter, poTopRight, poCenterLeft, poCenterCenter, poBottomLeft, poBottomCenter, poBottomRight, poCoordinate, poBounds, poCenterRight);\r\n\r\n    '    var  elementPosition = \"\";' + LB +\r\n\r\n    '    switch (' + PARAMSNAME + '[\"Position\"]){' + LB +\r\n    '      case 1:' + LB +\r\n    '        elementPosition = \"top: 0; left: 0;\";' + LB +\r\n    '        break;' + LB +\r\n    '      case 2:' + LB +\r\n    '        elementPosition = \"top: 0; left: 50%; transform: translate(-50%, 0);\";' + LB +\r\n    '        break;' + LB +\r\n    '      case 3:' + LB +\r\n    '        elementPosition = \"top: 0; right: 0;\";' + LB +\r\n    '        break;' + LB +\r\n    '      case 4:' + LB +\r\n    '        elementPosition = \"top: 50%; left: 0;\";' + LB +\r\n    '        break;' + LB +\r\n    '      case 5:' + LB +\r\n    '        elementPosition = \"position: fixed; top: 50%; left: 50%; transform: translate(-50%,-50%);\";' + LB +\r\n    '        break;' + LB +\r\n    '      case 6:' + LB +\r\n    '        elementPosition = \"bottom: 0; left: 0;\";' + LB +\r\n    '        break;' + LB +\r\n    '      case 7:' + LB +\r\n    '        elementPosition = \"bottom: 0; left: 50%; transform: translate(-50%, 0);\"' + LB +\r\n    '        break;' + LB +\r\n    '      case 8:' + LB +\r\n    '        elementPosition = \"bottom: 0; right: 0;\";' + LB +\r\n    '        break;' + LB +\r\n    '      case 9:' + LB +\r\n    '        elementPosition = \"top: 0; left: 0;\";' + LB +\r\n    '        break;' + LB +\r\n    '      case 10:' + LB +\r\n    '        elementPosition = \"top: 0; left: 0;\";' + LB +\r\n    '        break;' + LB +\r\n    '      case 11:' + LB +\r\n    '        elementPosition = \"top: 50%; right: 0;\";' + LB +\r\n    '        break;' + LB +\r\n\r\n    '    }' + LB +\r\n\r\n    '    ' + ELEMENTCONTAINERVAR + '[0].setAttribute(\"data-latitude\", ' + PARAMSNAME + '[\"Coordinate\"][\"Latitude\"]);' + LB +\r\n    '    ' + ELEMENTCONTAINERVAR + '[0].setAttribute(\"data-longitude\", ' + PARAMSNAME + '[\"Coordinate\"][\"Longitude\"]);' + LB +\r\n    '    ' + ELEMENTCONTAINERVAR + '[0].setAttribute(\"data-position\", ' + PARAMSNAME + '[\"Position\"]);' + LB +\r\n    '    ' + ELEMENTCONTAINERVAR + '[0].setAttribute(\"data-labeltype\", ' + PARAMSNAME + '[\"LabelType\"]);' + LB +\r\n    '    ' + ELEMENTCONTAINERVAR + '[0].setAttribute(\"data-alignment\", ' + PARAMSNAME + '[\"Alignment\"]);' + LB +\r\n\r\n    '    ' + ELEMENTCONTAINERVAR + '[0].setAttribute(\"data-ne-latitude\", ' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Latitude\"]);' + LB +\r\n    '    ' + ELEMENTCONTAINERVAR + '[0].setAttribute(\"data-ne-longitude\", ' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Longitude\"]);' + LB +\r\n    '    ' + ELEMENTCONTAINERVAR + '[0].setAttribute(\"data-sw-latitude\", ' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Latitude\"]);' + LB +\r\n    '    ' + ELEMENTCONTAINERVAR + '[0].setAttribute(\"data-sw-longitude\", ' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Longitude\"]);' + LB +\r\n\r\n    '    elementPosition += \"margin-top: \" + ' + PARAMSNAME + '[\"Margins\"][\"Top\"] + \"px;\";' + LB +\r\n    '    elementPosition += \"margin-left: \" + ' + PARAMSNAME + '[\"Margins\"][\"Left\"] + \"px;\";' + LB +\r\n    '    elementPosition += \"margin-bottom: \" + ' + PARAMSNAME + '[\"Margins\"][\"Bottom\"] + \"px;\";' + LB +\r\n    '    elementPosition += \"margin-right: \" + ' + PARAMSNAME + '[\"Margins\"][\"Right\"] + \"px;\";' + LB +\r\n\r\n    '    var cssText = \"z-index: 9999;\";' + LB +\r\n    '    if (' + PARAMSNAME + '[\"UseDefaultStyle\"]){' + LB +\r\n    '      cssText += \"border-radius: 5px; padding: 5px; min-height: 50px; min-width: 50px;\" + '+\r\n\t\t'        \"background-color: white; font-size: 14px; font-family: Roboto;\" +'+\r\n\t\t'        \"text-align: center; color: grey;line-height: 18px; overflow: hidden;\" + elementPosition;' + LB +\r\n    '    }' + LB +\r\n    '    cssText += \"position: absolute;\" + elementPosition;' + LB +\r\n  \t'    ' + ELEMENTCONTAINERVAR + '[0].style.cssText = cssText;' + LB +\r\n\r\n    '    if (! ' + PARAMSNAME + '[\"Visible\"])' + LB +\r\n    '      ' + ELEMENTCONTAINERVAR + '[0].style.display = \"none\";' + LB +\r\n    '    else' + LB +\r\n    '      ' + ELEMENTCONTAINERVAR + '[0].style.display = \"\";' + LB +\r\n\r\n    '    var elementHTML = TMSFNCMaps_base64Decode(' + PARAMSNAME + '[\"HTMLAsBase64\"]);' + LB +\r\n    '    ' + ELEMENTCONTAINERVAR + '[0].innerHTML = elementHTML;' + LB +\r\n\r\n    '    var elementStyle = TMSFNCMaps_base64Decode(' + PARAMSNAME + '[\"StyleAsBase64\"]);' + LB +\r\n    '    ' + ELEMENTCONTAINERVAR + '[1].innerHTML = elementStyle;' + LB +\r\n\r\n    '    var elementScript = TMSFNCMaps_base64Decode(' + PARAMSNAME + '[\"ScriptAsBase64\"]);' + LB +\r\n    '    ' + ELEMENTCONTAINERVAR + '[2].innerHTML = elementScript;' + LB;\r\n\r\n  Result := Result +\r\n    '    var customControl = null;' + LB +\r\n    '    for (i = 0; i < ' + PARAMSNAME + '[\"Actions\"].length; i++){' + LB +\r\n    '      if (' + PARAMSNAME + '[\"Actions\"][i][\"Enabled\"]){' + LB +\r\n    '        customControl = document.getElementById(' + PARAMSNAME + '[\"Actions\"][i][\"HTMLElementID\"]);' + LB +\r\n    '        if (customControl){' + LB +\r\n    '          switch (' + PARAMSNAME + '[\"Actions\"][i][\"Event\"]){' + LB +\r\n    '            case 0:' + LB +\r\n    '              switch (' + PARAMSNAME + '[\"Actions\"][i][\"EventReturnValue\"]){' + LB +\r\n    '                case 0:' + LB +\r\n    '                  customControl.addEventListener(\"click\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONCLICKEVENT + '\", this.id), null);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 1:' + LB +\r\n    '                  customControl.addEventListener(\"click\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONCLICKEVENT + '\", this.id), this.value);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 2:' + LB +\r\n    '                  customControl.addEventListener(\"click\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONCLICKEVENT + '\", this.id), this.checked);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 3:' + LB +\r\n    '                  customControl.addEventListener(\"click\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONCLICKEVENT + '\", this.id), this.innerHTML);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 4:' + LB +\r\n    '                  customControl.addEventListener(\"click\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONCLICKEVENT + '\", this.id), this.innerText);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 5:' + LB +\r\n    '                  customControl.addEventListener(\"click\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONCLICKEVENT + '\", this.id), this.selectedIndex);});' + LB +\r\n    '                  break;' + LB +\r\n    '              }' + LB +\r\n    '              break;' + LB +\r\n    '            case 1:' + LB +\r\n    '              switch (' + PARAMSNAME + '[\"Actions\"][i][\"EventReturnValue\"]){' + LB +\r\n    '                case 0:' + LB +\r\n    '                  customControl.addEventListener(\"dblclick\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONDBLCLICKEVENT + '\", this.id), null);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 1:' + LB +\r\n    '                  customControl.addEventListener(\"dblclick\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONDBLCLICKEVENT + '\", this.id), this.value);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 2:' + LB +\r\n    '                  customControl.addEventListener(\"dblclick\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONDBLCLICKEVENT + '\", this.id), this.checked);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 3:' + LB +\r\n    '                  customControl.addEventListener(\"dblclick\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONDBLCLICKEVENT + '\", this.id), this.innerHTML);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 4:' + LB +\r\n    '                  customControl.addEventListener(\"dblclick\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONDBLCLICKEVENT + '\", this.id), this.innerText);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 5:' + LB +\r\n    '                  customControl.addEventListener(\"dblclick\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONDBLCLICKEVENT + '\", this.id), this.selectedIndex);});' + LB +\r\n    '                  break;' + LB +\r\n    '              }' + LB +\r\n    '              break;' + LB +\r\n    '            case 2:' + LB +\r\n    '              switch (' + PARAMSNAME + '[\"Actions\"][i][\"EventReturnValue\"]){' + LB +\r\n    '                case 0:' + LB +\r\n    '                  customControl.addEventListener(\"keypress\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONKEYPRESSEVENT + '\", this.id), null);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 1:' + LB +\r\n    '                  customControl.addEventListener(\"keypress\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONKEYPRESSEVENT + '\", this.id), this.value);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 2:' + LB +\r\n    '                  customControl.addEventListener(\"keypress\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONKEYPRESSEVENT + '\", this.id), this.checked);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 3:' + LB +\r\n    '                  customControl.addEventListener(\"keypress\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONKEYPRESSEVENT + '\", this.id), this.innerHTML);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 4:' + LB +\r\n    '                  customControl.addEventListener(\"keypress\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONKEYPRESSEVENT + '\", this.id), this.innerText);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 5:' + LB +\r\n    '                  customControl.addEventListener(\"keypress\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONKEYPRESSEVENT + '\", this.id), this.selectedIndex);});' + LB +\r\n    '                  break;' + LB +\r\n    '              }' + LB +\r\n    '              break;' + LB +\r\n    '            case 3:' + LB +\r\n    '              switch (' + PARAMSNAME + '[\"Actions\"][i][\"EventReturnValue\"]){' + LB +\r\n    '                case 0:' + LB +\r\n    '                  customControl.addEventListener(\"keydown\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONKEYDOWNEVENT + '\", this.id), null);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 1:' + LB +\r\n    '                  customControl.addEventListener(\"keydown\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONKEYDOWNEVENT + '\", this.id), this.value);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 2:' + LB +\r\n    '                  customControl.addEventListener(\"keydown\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONKEYDOWNEVENT + '\", this.id), this.checked);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 3:' + LB +\r\n    '                  customControl.addEventListener(\"keydown\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONKEYDOWNEVENT + '\", this.id), this.innerHTML);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 4:' + LB +\r\n    '                  customControl.addEventListener(\"keydown\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONKEYDOWNEVENT + '\", this.id), this.innerText);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 5:' + LB +\r\n    '                  customControl.addEventListener(\"keydown\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONKEYDOWNEVENT + '\", this.id), this.selectedIndex);});' + LB +\r\n    '                  break;' + LB +\r\n    '              }' + LB +\r\n    '              break;' + LB +\r\n    '            case 4:' + LB +\r\n    '              switch (' + PARAMSNAME + '[\"Actions\"][i][\"EventReturnValue\"]){' + LB +\r\n    '                case 0:' + LB +\r\n    '                  customControl.addEventListener(\"keyup\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONKEYUPEVENT + '\", this.id), null);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 1:' + LB +\r\n    '                  customControl.addEventListener(\"keyup\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONKEYUPEVENT + '\", this.id), this.value);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 2:' + LB +\r\n    '                  customControl.addEventListener(\"keyup\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONKEYUPEVENT + '\", this.id), this.checked);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 3:' + LB +\r\n    '                  customControl.addEventListener(\"keyup\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONKEYUPEVENT + '\", this.id), this.innerHTML);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 4:' + LB +\r\n    '                  customControl.addEventListener(\"keyup\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONKEYUPEVENT + '\", this.id), this.innerText);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 5:' + LB +\r\n    '                  customControl.addEventListener(\"keyup\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONKEYUPEVENT + '\", this.id), this.selectedIndex);});' + LB +\r\n    '                  break;' + LB +\r\n    '              }' + LB +\r\n    '              break;' + LB +\r\n    '            case 5:' + LB +\r\n    '              switch (' + PARAMSNAME + '[\"Actions\"][i][\"EventReturnValue\"]){' + LB +\r\n    '                case 0:' + LB +\r\n    '                  customControl.addEventListener(\"mousedown\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSEDOWNEVENT + '\", this.id), null);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 1:' + LB +\r\n    '                  customControl.addEventListener(\"mousedown\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSEDOWNEVENT + '\", this.id), this.value);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 2:' + LB +\r\n    '                  customControl.addEventListener(\"mousedown\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSEDOWNEVENT + '\", this.id), this.checked);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 3:' + LB +\r\n    '                  customControl.addEventListener(\"mousedown\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSEDOWNEVENT + '\", this.id), this.innerHTML);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 4:' + LB +\r\n    '                  customControl.addEventListener(\"mousedown\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSEDOWNEVENT + '\", this.id), this.innerText);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 5:' + LB +\r\n    '                  customControl.addEventListener(\"mousedown\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSEDOWNEVENT + '\", this.id), this.selectedIndex);});' + LB +\r\n    '                  break;' + LB +\r\n    '              }' + LB +\r\n    '              break;' + LB +\r\n    '            case 6:' + LB +\r\n    '              switch (' + PARAMSNAME + '[\"Actions\"][i][\"EventReturnValue\"]){' + LB +\r\n    '                case 0:' + LB +\r\n    '                  customControl.addEventListener(\"mousemove\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSEMOVEEVENT + '\", this.id), null);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 1:' + LB +\r\n    '                  customControl.addEventListener(\"mousemove\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSEMOVEEVENT + '\", this.id), this.value);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 2:' + LB +\r\n    '                  customControl.addEventListener(\"mousemove\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSEMOVEEVENT + '\", this.id), this.checked);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 3:' + LB +\r\n    '                  customControl.addEventListener(\"mousemove\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSEMOVEEVENT + '\", this.id), this.innerHTML);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 4:' + LB +\r\n    '                  customControl.addEventListener(\"mousemove\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSEMOVEEVENT + '\", this.id), this.innerText);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 5:' + LB +\r\n    '                  customControl.addEventListener(\"mousemove\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSEMOVEEVENT + '\", this.id), this.selectedIndex);});' + LB +\r\n    '                  break;' + LB +\r\n    '              }' + LB +\r\n    '              break;' + LB +\r\n    '            case 7:' + LB +\r\n    '              switch (' + PARAMSNAME + '[\"Actions\"][i][\"EventReturnValue\"]){' + LB +\r\n    '                case 0:' + LB +\r\n    '                  customControl.addEventListener(\"mouseup\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSEUPEVENT + '\", this.id), null);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 1:' + LB +\r\n    '                  customControl.addEventListener(\"mouseup\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSEUPEVENT + '\", this.id), this.value);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 2:' + LB +\r\n    '                  customControl.addEventListener(\"mouseup\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSEUPEVENT + '\", this.id), this.checked);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 3:' + LB +\r\n    '                  customControl.addEventListener(\"mouseup\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSEUPEVENT + '\", this.id), this.innerHTML);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 4:' + LB +\r\n    '                  customControl.addEventListener(\"mouseup\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSEUPEVENT + '\", this.id), this.innerText);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 5:' + LB +\r\n    '                  customControl.addEventListener(\"mouseup\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSEUPEVENT + '\", this.id), this.selectedIndex);});' + LB +\r\n    '                  break;' + LB +\r\n    '              }' + LB +\r\n    '              break;' + LB +\r\n    '            case 8:' + LB +\r\n    '              switch (' + PARAMSNAME + '[\"Actions\"][i][\"EventReturnValue\"]){' + LB +\r\n    '                case 0:' + LB +\r\n    '                  customControl.addEventListener(\"mouseenter\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSEENTEREVENT + '\", this.id), null);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 1:' + LB +\r\n    '                  customControl.addEventListener(\"mouseenter\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSEENTEREVENT + '\", this.id), this.value);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 2:' + LB +\r\n    '                  customControl.addEventListener(\"mouseenter\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSEENTEREVENT + '\", this.id), this.checked);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 3:' + LB +\r\n    '                  customControl.addEventListener(\"mouseenter\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSEENTEREVENT + '\", this.id), this.innerHTML);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 4:' + LB +\r\n    '                  customControl.addEventListener(\"mouseenter\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSEENTEREVENT + '\", this.id), this.innerText);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 5:' + LB +\r\n    '                  customControl.addEventListener(\"mouseenter\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSEENTEREVENT + '\", this.id), this.selectedIndex);});' + LB +\r\n    '                  break;' + LB +\r\n    '              }' + LB +\r\n    '              break;' + LB +\r\n    '            case 9:' + LB +\r\n    '              switch (' + PARAMSNAME + '[\"Actions\"][i][\"EventReturnValue\"]){' + LB +\r\n    '                case 0:' + LB +\r\n    '                  customControl.addEventListener(\"mouseleave\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSELEAVEEVENT + '\", this.id), null);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 1:' + LB +\r\n    '                  customControl.addEventListener(\"mouseleave\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSELEAVEEVENT + '\", this.id), this.value);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 2:' + LB +\r\n    '                  customControl.addEventListener(\"mouseleave\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSELEAVEEVENT + '\", this.id), this.checked);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 3:' + LB +\r\n    '                  customControl.addEventListener(\"mouseleave\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSELEAVEEVENT + '\", this.id), this.innerHTML);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 4:' + LB +\r\n    '                  customControl.addEventListener(\"mouseleave\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSELEAVEEVENT + '\", this.id), this.innerText);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 5:' + LB +\r\n    '                  customControl.addEventListener(\"mouseleave\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONMOUSELEAVEEVENT + '\", this.id), this.selectedIndex);});' + LB +\r\n    '                  break;' + LB +\r\n    '              }' + LB +\r\n    '              break;' + LB +\r\n    '            case 10:' + LB +\r\n    '              switch (' + PARAMSNAME + '[\"Actions\"][i][\"EventReturnValue\"]){' + LB +\r\n    '                case 0:' + LB +\r\n    '                  customControl.addEventListener(\"blur\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONBLUREVENT + '\", this.id), null);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 1:' + LB +\r\n    '                  customControl.addEventListener(\"blur\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONBLUREVENT + '\", this.id), this.value);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 2:' + LB +\r\n    '                  customControl.addEventListener(\"blur\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONBLUREVENT + '\", this.id), this.checked);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 3:' + LB +\r\n    '                  customControl.addEventListener(\"blur\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONBLUREVENT + '\", this.id), this.innerHTML);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 4:' + LB +\r\n    '                  customControl.addEventListener(\"blur\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONBLUREVENT + '\", this.id), this.innerText);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 5:' + LB +\r\n    '                  customControl.addEventListener(\"blur\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONBLUREVENT + '\", this.id), this.selectedIndex);});' + LB +\r\n    '                  break;' + LB +\r\n    '              }' + LB +\r\n    '              break;' + LB +\r\n    '            case 11:' + LB +\r\n    '              switch (' + PARAMSNAME + '[\"Actions\"][i][\"EventReturnValue\"]){' + LB +\r\n    '                case 0:' + LB +\r\n    '                  customControl.addEventListener(\"focus\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONFOCUSEVENT + '\", this.id), null);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 1:' + LB +\r\n    '                  customControl.addEventListener(\"focus\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONFOCUSEVENT + '\", this.id), this.value);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 2:' + LB +\r\n    '                  customControl.addEventListener(\"focus\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONFOCUSEVENT + '\", this.id), this.checked);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 3:' + LB +\r\n    '                  customControl.addEventListener(\"focus\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONFOCUSEVENT + '\", this.id), this.innerHTML);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 4:' + LB +\r\n    '                  customControl.addEventListener(\"focus\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONFOCUSEVENT + '\", this.id), this.innerText);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 5:' + LB +\r\n    '                  customControl.addEventListener(\"focus\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONFOCUSEVENT + '\", this.id), this.selectedIndex);});' + LB +\r\n    '                  break;' + LB +\r\n    '              }' + LB +\r\n    '              break;' + LB +\r\n    '            case 12:' + LB +\r\n    '              switch (' + PARAMSNAME + '[\"Actions\"][i][\"EventReturnValue\"]){' + LB +\r\n    '                case 0:' + LB +\r\n    '                  customControl.addEventListener(\"change\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONCHANGEEVENT + '\", this.id), null);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 1:' + LB +\r\n    '                  customControl.addEventListener(\"change\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONCHANGEEVENT + '\", this.id), this.value);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 2:' + LB +\r\n    '                  customControl.addEventListener(\"change\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONCHANGEEVENT + '\", this.id), this.checked);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 3:' + LB +\r\n    '                  customControl.addEventListener(\"change\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONCHANGEEVENT + '\", this.id), this.innerHTML);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 4:' + LB +\r\n    '                  customControl.addEventListener(\"change\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONCHANGEEVENT + '\", this.id), this.innerText);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 5:' + LB +\r\n    '                  customControl.addEventListener(\"change\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONCHANGEEVENT + '\", this.id), this.selectedIndex);});' + LB +\r\n    '                  break;' + LB +\r\n    '              }' + LB +\r\n    '              break;' + LB +\r\n    '            case 13:' + LB +\r\n    '              switch (' + PARAMSNAME + '[\"Actions\"][i][\"EventReturnValue\"]){' + LB +\r\n    '                case 0:' + LB +\r\n    '                  customControl.addEventListener(\"select\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONSELECTEVENT + '\", this.id), null);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 1:' + LB +\r\n    '                  customControl.addEventListener(\"select\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONSELECTEVENT + '\", this.id), this.value);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 2:' + LB +\r\n    '                  customControl.addEventListener(\"select\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONSELECTEVENT + '\", this.id), this.checked);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 3:' + LB +\r\n    '                  customControl.addEventListener(\"select\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONSELECTEVENT + '\", this.id), this.innerHTML);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 4:' + LB +\r\n    '                  customControl.addEventListener(\"select\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONSELECTEVENT + '\", this.id), this.innerText);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 5:' + LB +\r\n    '                  customControl.addEventListener(\"select\", function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONSELECTEVENT + '\", this.id), this.selectedIndex);});' + LB +\r\n    '                  break;' + LB +\r\n    '              }' + LB +\r\n    '              break;' + LB +\r\n    '            case 14:' + LB +\r\n    '              switch (' + PARAMSNAME + '[\"Actions\"][i][\"EventReturnValue\"]){' + LB +\r\n    '                case 0:' + LB +\r\n    '                  customControl.addEventListener(' + PARAMSNAME + '[\"Actions\"][i][\"CustomEvent\"], function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONCUSTOMEVENT + '\", this.id), null);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 1:' + LB +\r\n    '                  customControl.addEventListener(' + PARAMSNAME + '[\"Actions\"][i][\"CustomEvent\"], function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONCUSTOMEVENT + '\", this.id), this.value);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 2:' + LB +\r\n    '                  customControl.addEventListener(' + PARAMSNAME + '[\"Actions\"][i][\"CustomEvent\"], function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONCUSTOMEVENT + '\", this.id), this.checked);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 3:' + LB +\r\n    '                  customControl.addEventListener(' + PARAMSNAME + '[\"Actions\"][i][\"CustomEvent\"], function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONCUSTOMEVENT + '\", this.id), this.innerHTML);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 4:' + LB +\r\n    '                  customControl.addEventListener(' + PARAMSNAME + '[\"Actions\"][i][\"CustomEvent\"], function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONCUSTOMEVENT + '\", this.id), this.innerText);});' + LB +\r\n    '                  break;' + LB +\r\n    '                case 5:' + LB +\r\n    '                  customControl.addEventListener(' + PARAMSNAME + '[\"Actions\"][i][\"CustomEvent\"], function(event){' + GETSENDEVENT + '(parseEvent(event, \"' + ACTIONCUSTOMEVENT + '\", this.id), this.selectedIndex);});' + LB +\r\n    '                  break;' + LB +\r\n    '              }' + LB +\r\n    '              break;' + LB +\r\n    '          }' + LB +\r\n    '        }' + LB +\r\n    '      }' + LB +\r\n    '    }' + LB;\r\n\r\n  Result := Result +\r\n    '  if (' + ELEMENTCONTAINERVAR + '){' + LB +\r\n    '    ' + ELEMENTCONTAINERARRAYVAR + '[' + PARAMSNAME + '[\"ID\"]] = ' + ELEMENTCONTAINERVAR + ';' + LB +\r\n    '  }' + LB +\r\n\r\n    TryCatchEnd('TMS FNC Maps ElementContainer error') +\r\n    '}';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetDeleteElementContainerFunction: string;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(FMaps) then\r\n    Exit;\r\n\r\n  Result :=\r\n    'function ' + DELETEELEMENTCONTAINERFUNCTION + '(' + PARAMSNAME + '){' + LB +\r\n    TryCatchStart +\r\n    '  var ' + ELEMENTCONTAINERVAR + ' = ' + ELEMENTCONTAINERARRAYVAR + '[' + PARAMSNAME + '[\"ID\"]];' + LB +\r\n    '  if (' + ELEMENTCONTAINERVAR + '){' + LB +\r\n    {$IFDEF WEBLIB}\r\n    '    ' + ElementID + '.removeChild(' + ELEMENTCONTAINERVAR + '[0]);' + LB +\r\n    {$ELSE}\r\n    '    document.body.removeChild(' + ELEMENTCONTAINERVAR + '[0]);' + LB +\r\n    {$ENDIF}\r\n    '    document.head.removeChild(' + ELEMENTCONTAINERVAR + '[1]);' + LB +\r\n    '    document.head.removeChild(' + ELEMENTCONTAINERVAR + '[2]);' + LB +\r\n    '    delete ' + ELEMENTCONTAINERARRAYVAR + '[' + PARAMSNAME + '[\"ID\"]];' + LB +\r\n    '    ' + ELEMENTCONTAINERVAR + ' = null;' + LB +\r\n    '  }' + LB +\r\n    TryCatchEnd('TMS FNC Maps ElementContainer error') +\r\n    '}';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetAddOrUpdateMarkerFunction: string;\r\nvar\r\n  m: string;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(FMaps) then\r\n    Exit;\r\n\r\n  m := '';\r\n  DoCustomizeMarker(m);\r\n\r\n  Result :=\r\n    'function ' + ADDORUPDATEMARKERFUNCTION + '(' + PARAMSNAME + '){' + LB +\r\n    TryCatchStart +\r\n    '  var ' + MARKERVAR + ' = ' + MARKERARRAYVAR + '[' + PARAMSNAME + '[\"ID\"]];' + LB +\r\n    '  if (' + MARKERVAR + '){' + LB +\r\n    '   }' +\r\n    FMaps.GetAddOrUpdateMarker + LB + LB;\r\n\r\n  if m <> '' then\r\n    Result := Result + m + LB + LB;\r\n\r\n  Result := Result +\r\n    '  if (' + MARKERVAR + '){' + LB +\r\n    '    ' + MARKERARRAYVAR + '[' + PARAMSNAME + '[\"ID\"]] = ' + MARKERVAR + ';' + LB +\r\n    '  }' + LB +\r\n    TryCatchEnd('TMS FNC Maps Marker error') +\r\n    '}';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetClosePopupFunction: string;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(FMaps) then\r\n    Exit;\r\n\r\n  Result :=\r\n    'function ' + CLOSEPOPUPFUNCTION + '(' + PARAMSNAME + '){' + LB +\r\n    TryCatchStart +\r\n    '  var ' + POPUPVAR + ' = ' + POPUPARRAYVAR + '[' + PARAMSNAME + '[\"ID\"]];' + LB +\r\n    FMaps.GetClosePopup + LB + LB +\r\n    '  if (' + POPUPVAR + '){' + LB +\r\n    '    delete ' + POPUPARRAYVAR + '[' + PARAMSNAME + '[\"ID\"]];' + LB +\r\n    '    ' + POPUPVAR + ' = null;' + LB +\r\n    '  }' + LB +\r\n    TryCatchEnd('TMS FNC Maps close Popup error') +\r\n    '}';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetShowPopupFunction: string;\r\nvar\r\n  m: string;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(FMaps) then\r\n    Exit;\r\n\r\n  m := '';\r\n  DoCustomizePopup(m);\r\n\r\n  Result :=\r\n    'function ' + SHOWPOPUPFUNCTION + '(' + PARAMSNAME + '){' + LB +\r\n    TryCatchStart +\r\n    '  var ' + POPUPVAR + ' = ' + POPUPARRAYVAR + '[' + PARAMSNAME + '[\"ID\"]];' + LB +\r\n    FMaps.GetShowPopup + LB + LB;\r\n\r\n  if m <> '' then\r\n    Result := Result + m + LB + LB;\r\n\r\n  Result := Result +\r\n    '  if (' + POPUPVAR + '){' + LB +\r\n    '    ' + POPUPARRAYVAR + '[' + PARAMSNAME + '[\"ID\"]] = ' + POPUPVAR + ';' + LB +\r\n    '  }' + LB +\r\n    TryCatchEnd('TMS FNC Maps show Popup error') +\r\n    '}';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetUpdateOptions: string;\r\nvar\r\n  m, cm: string;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(FMaps) then\r\n    Exit;\r\n\r\n  m := '';\r\n  DoCustomizeOptions(m);\r\n\r\n  Result :=\r\n    'function ' + UPDATEOPTIONSFUNCTION + '(' + PARAMSNAME + '){' + LB +\r\n       TryCatchStart;\r\n\r\n  if m <> '' then\r\n    Result := Result + m + LB + LB;\r\n\r\n  cm := GetCustomOptions;\r\n  if cm <> '' then\r\n    Result := Result + cm + LB + LB;\r\n\r\n  Result := Result +\r\n      FMaps.GetUpdateOptions + LB +\r\n      TryCatchEnd('TMS FNC Maps update Options error') +\r\n    '}';\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.GetZoomLevel;\r\nbegin\r\n  if MapInitialized and MapReady then\r\n    ExecuteJavaScript(GETZOOMLEVELFUNCTION + '()', {$IFDEF LCLWEBLIB}@{$ENDIF}DoGetZoomLevel);\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetZoomOnDblClick: Boolean;\r\nbegin\r\n  Result := Options.ZoomOnDblClick;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetZoomOnWheelScroll: Boolean;\r\nbegin\r\n  Result := Options.ZoomOnWheelScroll;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetZoomToBoundsFunction: string;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(FMaps) then\r\n    Exit;\r\n\r\n  Result :=\r\n    'function ' + ZOOMTOBOUNDSFUNCTION + '(' + PARAMSNAME + '){' + LB +\r\n      TryCatchStart +\r\n      FMaps.GetZoomToBounds + LB +\r\n      TryCatchEnd('TMS FNC Maps ZoomToBounds error') +\r\n    '}';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetSetCenterCoordinateFunction: string;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(FMaps) then\r\n    Exit;\r\n\r\n  Result :=\r\n    'function ' + SETCENTERCOORDINATEFUNCTION + '(' + PARAMSNAME + '){' + LB +\r\n      TryCatchStart +\r\n      FMaps.GetSetCenterCoordinate + LB +\r\n      TryCatchEnd('TMS FNC Maps SetCenterCoordinate error') +\r\n    '}';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetSetZoomLevelFunction: string;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(FMaps) then\r\n    Exit;\r\n\r\n  Result :=\r\n    'function ' + SETZOOMLEVELFUNCTION + '(' + PARAMSNAME + '){' + LB +\r\n      TryCatchStart +\r\n      FMaps.GetSetZoomLevel + LB +\r\n      TryCatchEnd('TMS FNC Maps SetZoomLevel error') +\r\n    '}';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetAddMarkers: string;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := '';\r\n  for I := 0 to Markers.Count - 1 do\r\n    Result := Result + '  ' + ADDORUPDATEMARKERFUNCTION + '(' + Markers[I].ToJSON + ');' + LB;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetDeletePolyElementFunction: string;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(FMaps) then\r\n    Exit;\r\n\r\n  Result :=\r\n    'function ' + DELETEPOLYELEMENTFUNCTION + '(' + PARAMSNAME + '){' + LB +\r\n    TryCatchStart +\r\n    '  var ' + POLYELEMENTVAR + ' = ' + POLYELEMENTARRAYVAR + '[' + PARAMSNAME + '[\"ID\"]];' + LB +\r\n    FMaps.GetDeletePolyElement + LB + LB +\r\n    '  if (' + POLYELEMENTVAR + '){' + LB +\r\n    '    delete ' + POLYELEMENTARRAYVAR + '[' + PARAMSNAME + '[\"ID\"]];' + LB +\r\n    '    ' + POLYELEMENTVAR + ' = null;' + LB +\r\n    '  }' + LB +\r\n    TryCatchEnd('TMS FNC Maps delete PolyElement error') +\r\n    '}';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetAddOrUpdatePolyElementFunction: string;\r\nvar\r\n  p: string;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(FMaps) then\r\n    Exit;\r\n\r\n  p  := '';\r\n  DoCustomizePolyElement(p);\r\n\r\n  Result :=\r\n    'function ' + ADDORUPDATEPOLYELEMENTFUNCTION + '(' + PARAMSNAME + '){' + LB +\r\n    TryCatchStart +\r\n    '  var ' + POLYELEMENTVAR + ' = ' + POLYELEMENTARRAYVAR + '[' + PARAMSNAME + '[\"ID\"]];' + LB +\r\n    FMaps.GetAddOrUpdatePolyElement + LB + LB;\r\n\r\n    if p <> '' then\r\n      Result := Result + p + LB + LB;\r\n\r\n  Result := Result +\r\n    '  if (' + POLYELEMENTVAR + '){' + LB +\r\n    '    ' + POLYELEMENTARRAYVAR + '[' + PARAMSNAME + '[\"ID\"]] = ' + POLYELEMENTVAR + ';' + LB +\r\n    '  }' + LB +\r\n    TryCatchEnd('TMS FNC Maps PolyElement error') +\r\n    '}';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.InternalGetAddPolyElements(AElements: TTMSFNCMapsPolyElements): string;\r\nvar\r\n  I, K, C: Integer;\r\n  arr: TTMSFNCObjectExcludePropertyListArray;\r\nbegin\r\n  Result := '';\r\n  SetLength(arr, 1);\r\n  arr[0] := 'Coordinates';\r\n\r\n  for I := 0 to AElements.Count - 1 do\r\n  begin\r\n    Result := Result + INITIALIZECOORDINATEARRAY + '();' + LB;\r\n    for C := 0 to AElements[I].Coordinates.Count - 1 do\r\n      Result := Result + ADDCOORDINATETOARRAY + '(' + AElements[I].Coordinates[C].ToJSON + ');' + LB;\r\n\r\n    Result := Result + INITIALIZEHOLESARRAY + '();' + LB;\r\n    for C := 0 to AElements[I].Holes.Count - 1 do\r\n    begin\r\n      for K := AElements[I].Holes[C].Coordinates.Count - 1 downto 0 do\r\n        Result := Result + ADDHOLETOARRAY + '([\"' + AElements[I].Holes[C].ID + '\",' + AElements[I].Holes[C].Coordinates[K].ToJSON + ']);' + LB;\r\n    end;\r\n\r\n    Result := Result + '  ' + ADDORUPDATEPOLYELEMENTFUNCTION + '(' + AElements[I].ToJSON(arr) + ');' + LB;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetAddPolyElements: string;\r\nvar\r\n  apl, apg, apc, apr: string;\r\nbegin\r\n  Result := '';\r\n  apl := InternalGetAddPolyElements(Polygons);\r\n  if apl <> '' then\r\n    Result := Result + apl + LB;\r\n\r\n  apr := InternalGetAddPolyElements(Rectangles);\r\n  if apr <> '' then\r\n    Result := Result + apr + LB;\r\n\r\n  apc := InternalGetAddPolyElements(Circles);\r\n  if apc <> '' then\r\n    Result := Result + apc + LB;\r\n\r\n  apg := InternalGetAddPolyElements(Polylines);\r\n  if apg <> '' then\r\n    Result := Result + apg + LB;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetCallInitialize: string;\r\nbegin\r\n  Result :=\r\n  '  var jsonObj = getDefaultEventDataObject();' + LB +\r\n  '  jsonObj[\"EventName\"] = \"Initialized\";' + LB +\r\n  '  sendObjectMessage(JSON.stringify(jsonObj));';\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.GetCenterCoordinate;\r\nbegin\r\n  if MapInitialized and MapReady then\r\n    ExecuteJavaScript(GETCENTERCOORDINATEFUNCTION + '()', {$IFDEF LCLWEBLIB}@{$ENDIF}DoGetCenterCoordinate);\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetGetCenterCoordinateFunction: string;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(FMaps) then\r\n    Exit;\r\n\r\n  Result :=\r\n    'function ' + GETCENTERCOORDINATEFUNCTION + '(){' + LB +\r\n    '  var jsonObj = getDefaultCoordinateObject();' + LB +\r\n      FMaps.GetGetCenterCoordinate + LB +\r\n      {$IFDEF NEEDSSTRINGIFY}\r\n    '  return JSON.stringify(jsonObj);' + LB +\r\n      {$ELSE}\r\n    '  return jsonObj;' + LB +\r\n      {$ENDIF}\r\n    '}';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.LatLonToXY(ALatitude: Double; ALongitude: Double): TTMSFNCMapsAnchorPointRec;\r\nbegin\r\n  Result := LatLonToXY(CreateCoordinate(ALatitude, ALongitude));\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.LatLonToXY(\r\n  ACoordinate: TTMSFNCMapsCoordinateRec): TTMSFNCMapsAnchorPointRec;\r\nvar\r\n  b: TTMSFNCMapsCoordinate;\r\n  p: TTMSFNCMapsAnchorPoint;\r\n  s: String;\r\nbegin\r\n  Result.X := 0;\r\n  Result.Y := 0;\r\n  if MapInitialized and MapReady then\r\n  begin\r\n    b := TTMSFNCMapsCoordinate.Create(ACoordinate.Latitude, ACoordinate.Longitude);\r\n    p := TTMSFNCMapsAnchorPoint.Create;\r\n    p.X := 0;\r\n    p.Y := 0;\r\n    try\r\n      s := ExecuteJavaScriptSync(GETLATLONTOXYFUNCTION + '(' + b.ToJSON + ')');\r\n      if (s <> '') and (s <> 'null') then\r\n      begin\r\n        p.json := s;\r\n        Result.X := p.X;\r\n        Result.Y := p.Y;\r\n      end;\r\n    finally\r\n      b.Free;\r\n      p.Free;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetGetLatLonToXYFunction: string;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(FMaps) then\r\n    Exit;\r\n\r\n  Result :=\r\n    'function ' + GETLATLONTOXYFUNCTION + '(' + PARAMSNAME + '){' + LB +\r\n    '  var jsonObj = getDefaultPointObject();' + LB +\r\n    FMaps.GetLatLonToXY + LB +\r\n      {$IFDEF NEEDSSTRINGIFY}\r\n    '  return JSON.stringify(jsonObj);' + LB +\r\n      {$ELSE}\r\n    '  return jsonObj;' + LB +\r\n      {$ENDIF}\r\n    '}';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.XYToCoordinate(AX,\r\n  AY: Single): TTMSFNCMapsCoordinateRec;\r\nbegin\r\n  Result := XYToLatLon(AX, AY);\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.XYToLatLon(AX: Single; AY: Single): TTMSFNCMapsCoordinateRec;\r\nvar\r\n  b: TTMSFNCMapsAnchorPoint;\r\n  c: TTMSFNCMapsCoordinate;\r\n  s: String;\r\nbegin\r\n  Result := DefaultCoordinate;\r\n  if MapInitialized and MapReady then\r\n  begin\r\n    c := TTMSFNCMapsCoordinate.Create;\r\n    b := TTMSFNCMapsAnchorPoint.Create;\r\n    b.X := AX;\r\n    b.Y := AY;\r\n    try\r\n      s := ExecuteJavaScriptSync(GETXYTOLATLONFUNCTION + '(' + b.ToJSON + ')');\r\n      if (s <> '') and (s <> 'null') then\r\n      begin\r\n        c.JSON := s;\r\n        Result.Latitude := c.Latitude;\r\n        Result.Longitude := c.Longitude;\r\n      end;\r\n    finally\r\n      b.Free;\r\n      c.Free;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetGetXYToLatLonFunction: string;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(FMaps) then\r\n    Exit;\r\n\r\n  Result :=\r\n    'function ' + GETXYTOLATLONFUNCTION + '(' + PARAMSNAME + '){' + LB +\r\n    '  var jsonObj = getDefaultCoordinateObject();' + LB +\r\n    FMaps.GetXYToLatLon + LB +\r\n      {$IFDEF NEEDSSTRINGIFY}\r\n    '  return JSON.stringify(jsonObj);' + LB +\r\n      {$ELSE}\r\n    '  return jsonObj;' + LB +\r\n      {$ENDIF}\r\n    '}';\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.GetBounds;\r\nbegin\r\n  if MapInitialized and MapReady then\r\n    ExecuteJavaScript(GETBOUNDSFUNCTION + '()', {$IFDEF LCLWEBLIB}@{$ENDIF}DoGetBounds);\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetGetBoundsFunction: string;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(FMaps) then\r\n    Exit;\r\n\r\n  Result :=\r\n    'function ' + GETBOUNDSFUNCTION + '(){' + LB +\r\n    '  var jsonObj = getDefaultBoundsObject();' + LB +\r\n      FMaps.GetGetBounds + LB +\r\n      {$IFDEF NEEDSSTRINGIFY}\r\n    '  return JSON.stringify(jsonObj);' + LB +\r\n      {$ELSE}\r\n    '  return jsonObj;' + LB +\r\n      {$ENDIF}\r\n    '}';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetGetZoomLevelFunction: string;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(FMaps) then\r\n    Exit;\r\n\r\n  Result :=\r\n    'function ' + GETZOOMLEVELFUNCTION + '(){' + LB +\r\n    '  var z;' + LB +\r\n       FMaps.GetGetZoomLevel + LB +\r\n    '  return z;' + LB +\r\n    '}';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetGlobalVariables: string;\r\nvar\r\n  m: string;\r\n  o: string;\r\n  c: string;\r\n  b: string;\r\n  ci: string;\r\n  p: string;\r\n  co: TTMSFNCMapsCoordinate;\r\n  obj: TTMSFNCMapsEventData;\r\n  bo: TTMSFNCMapsBounds;\r\n  cir: TTMSFNCMapsCircle;\r\n  po: TTMSFNCMapsBasePoint;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(FMaps) then\r\n    Exit;\r\n\r\n  co := TTMSFNCMapsCoordinate.Create(0, 0);\r\n  try\r\n    c := co.JSON;\r\n  finally\r\n    co.Free;\r\n  end;\r\n\r\n  po := TTMSFNCMapsBasePoint.Create;\r\n  try\r\n    p := po.JSON;\r\n  finally\r\n    po.Free;\r\n  end;\r\n\r\n  obj := TTMSFNCMapsEventData.Create;\r\n  try\r\n    o := obj.JSON;\r\n  finally\r\n    obj.Free;\r\n  end;\r\n\r\n  bo := TTMSFNCMapsBounds.Create(CreateCoordinate(0 , 0), CreateCoordinate(0 , 0));\r\n  try\r\n    b := bo.JSON;\r\n  finally\r\n    bo.Free;\r\n  end;\r\n\r\n  cir := TTMSFNCMapsCircle.Create(nil);\r\n  try\r\n    ci := cir.JSON;\r\n  finally\r\n    cir.Free;\r\n  end;\r\n\r\n  m := '';\r\n  DoCustomizeGlobalVariables(m);\r\n  if m <> '' then\r\n    Result := Result + m + LB;\r\n\r\n  Result := Result + FMaps.GetGlobalVariables + LB;\r\n\r\n  Result := Result +\r\n\r\n    {$IFDEF WEBLIB}\r\n    'var ' + MAPCOMPONENT + ' = null;' + LB +\r\n    {$ENDIF}\r\n    'var ' + MAPBOUNDS + ';' + LB +\r\n    'var ' + MAPOPTIONS + ';' + LB +\r\n    'var ' + MAPVAR + ' = null;' + LB +\r\n    'var ' + MARKERARRAYVAR + ' = {};' + LB +\r\n    'var ' + ELEMENTCONTAINERARRAYVAR + ' = {};' + LB +\r\n    'var ' + POPUPARRAYVAR + ' = {};' + LB +\r\n    'var ' + POLYELEMENTARRAYVAR + ' = {};' + LB +\r\n    'var ' + COORDINATEARRAYVAR + ';' + LB +\r\n    'var ' + HOLEARRAYVAR + ' = {};' + LB +\r\n    'var MapCallBackFlag = false;' + LB + LB +\r\n\r\n    'function ' + CUSTOMDEFAULTMARKERICON + '(AOptions, AUrl){' + LB +\r\n    '  if (AOptions[\"Enabled\"]) {' + LB +\r\n    '    return \"data:image/svg+xml;charset=utf-8,' +\r\n    '<svg width=''\" + AOptions[\"Size\"] + \"'' height=''\" + AOptions[\"Size\"] + \"'' viewBox=''0 0 64 64'' xmlns=''http://www.w3.org/2000/svg''>' +\r\n    '<path fill=''\" + toRGBA(AOptions[\"Fill\"], 1) + \"'' d=''M32,5A21,21,0,0,0,11,26c0,17,21,33,21,33S53,43,53,26A21,21,0,0,0,32,5Zm0,31A10,10,0,1,1,42,26,10,10,0,0,1,32,36Z'' />' +\r\n    '</svg>\";' + LB +\r\n    '  } else {' + LB +\r\n    '    return AUrl;' + LB +\r\n    '  }' + LB +\r\n    '}' + LB + LB +\r\n    'function ' + INITIALIZECOORDINATEARRAY + '(){' + LB +\r\n    '  ' + COORDINATEARRAYVAR + ' = ' + FMaps.GetInitializeCoordinateArray + LB +\r\n    '}' + LB + LB +\r\n    'function ' + INITIALIZEHOLESARRAY + '(){' + LB +\r\n    '  ' + HOLEARRAYVAR + ' = ' + FMaps.GetInitializeHolesArray + LB +\r\n    '}' + LB + LB +\r\n    'function ' + ADDCOORDINATETOARRAY + '(' + PARAMSNAME + '){' + LB +\r\n    '  ' + FMaps.GetAddCoordinateToArray + LB +\r\n    '}' + LB + LB +\r\n    'function ' + ADDHOLETOARRAY + '(' + PARAMSNAME + '){' + LB +\r\n    '  ' + FMaps.GetAddHoleToArray + LB +\r\n    '}' + LB + LB +\r\n    'function ' + ADDCOORDINATESTOARRAY + '(' + PARAMSNAME + '){' + LB +\r\n    '  for (var i=0; i < ' + PARAMSNAME + '.length; i++){' + LB +\r\n    '    ' + ADDCOORDINATETOARRAY + '({\"Latitude\": ' + PARAMSNAME + '[i][\"Latitude\"], \"Longitude\": ' + PARAMSNAME + '[i][\"Longitude\"]});' + LB +\r\n    '  }' + LB +\r\n    '}' + LB + LB +\r\n    'function ' + ADDHOLESTOARRAY + '(' + PARAMSNAME + '){' + LB +\r\n    '  for (var i=' + PARAMSNAME + '[1].length - 1; i >= 0; i--){' + LB +\r\n    '    ' + ADDHOLETOARRAY + '([' + PARAMSNAME + '[0]' + ', {\"Latitude\": ' + PARAMSNAME + '[1][i][\"Latitude\"], \"Longitude\": ' + PARAMSNAME + '[1][i][\"Longitude\"]}]);' + LB +\r\n    '  }' + LB +\r\n    '}' + LB + LB +\r\n\r\n    {$IFDEF WEBLIB}\r\n    'function MapKeyDown(event){' + LB +\r\n    '  var r = {''EventName'': ''MapKeyDown''};' + LB +\r\n    '  ' + GETSENDEVENT + '(r, event.keyCode);' + LB +\r\n    '}' + LB +\r\n    {$ENDIF}\r\n    'function ResetMap(){' + LB +\r\n    {$IFDEF WEBLIB}\r\n    'if (typeof ' + MAPID + ' !== \"undefined\") {' + LB +\r\n    MAPID + '.removeEventListener(''keydown'', MapKeyDown)' + LB +\r\n    '  }' + LB +\r\n    {$ENDIF}\r\n    FMaps.GetResetMap + LB +\r\n    '  ' + MAPVAR + ' = null;' + LB +\r\n    '}' + LB +\r\n    'function MapCallBack(){' + LB +\r\n    '  MapCallBackFlag = true;' + LB +\r\n    '}' + LB + LB +\r\n    'function ' + GETMARKERARRAYVAR + '{' + LB +\r\n    '  var arr = [];' + LB +\r\n    '  for (var key in ' + MARKERARRAYVAR + '){' + LB +\r\n    '    var v = key;' + LB +\r\n    '    arr.push(v);' + LB +\r\n    '  }' + LB +\r\n    '  return arr.toString();' + LB +\r\n    '}' + LB + LB +\r\n    'function ' + GETELEMENTCONTAINERARRAYVAR + '{' + LB +\r\n    '  var arr = [];' + LB +\r\n    '  for (var key in ' + ELEMENTCONTAINERARRAYVAR + '){' + LB +\r\n    '    var v = key;' + LB +\r\n    '    arr.push(v);' + LB +\r\n    '  }' + LB +\r\n    '  return arr.toString();' + LB +\r\n    '}' + LB + LB +\r\n    'function ' + GETPOPUPARRAYVAR + '{' + LB +\r\n    '  var arr = [];' + LB +\r\n    '  for (var key in ' + POPUPARRAYVAR + '){' + LB +\r\n    '    var v = key;' + LB +\r\n    '    arr.push(v);' + LB +\r\n    '  }' + LB +\r\n    '  return arr.toString();' + LB +\r\n    '}' + LB + LB +\r\n    'function ' + GETPOLYELEMENTARRAYVAR + '{' + LB +\r\n    '  var arr = [];' + LB +\r\n    '  for (var key in ' + POLYELEMENTARRAYVAR + '){' + LB +\r\n    '    var v = key;' + LB +\r\n    '    arr.push(v);' + LB +\r\n    '  }' + LB +\r\n    '  return arr.toString();' + LB +\r\n    '}' + LB + LB +\r\n    'function ' + GETFOCUSMAP + '(){' + LB +\r\n    '  if (document.activeElement != ' + MAPID + '){' + LB +\r\n    '    ' + MAPID + '.focus();' + LB +\r\n    '  }' + LB +\r\n    '}' + LB + LB +\r\n    'function ' + GETSENDEVENT + '(' + PARAMSNAME + ', customdata = undefined){' + LB +\r\n    '  var jsonObj = getDefaultEventDataObject();' + LB +\r\n    '  if (' + PARAMSNAME + '[\"ID\"]){' + LB +\r\n    '    jsonObj[\"ID\"] = ' + PARAMSNAME + '[\"ID\"];' + LB +\r\n    '  }' + LB +\r\n    '  if (' + PARAMSNAME + '[\"X\"]){' + LB +\r\n    '    jsonObj[\"X\"] = ' + PARAMSNAME + '[\"X\"];' + LB +\r\n    '  }' + LB +\r\n    '  if (' + PARAMSNAME + '[\"Y\"]){' + LB +\r\n    '    jsonObj[\"Y\"] = ' + PARAMSNAME + '[\"Y\"];' + LB +\r\n    '  }' + LB +\r\n    '  if (' + PARAMSNAME + '[\"EventName\"]){' + LB +\r\n    '    jsonObj[\"EventName\"] = ' + PARAMSNAME + '[\"EventName\"];' + LB +\r\n    '  }' + LB +\r\n    '  if (' + PARAMSNAME + '[\"Coordinate\"]){' + LB +\r\n    '    jsonObj[\"Coordinate\"][\"Latitude\"] = ' + PARAMSNAME + '[\"Coordinate\"][\"Latitude\"];' + LB +\r\n    '    jsonObj[\"Coordinate\"][\"Longitude\"] = ' + PARAMSNAME + '[\"Coordinate\"][\"Longitude\"];' + LB +\r\n    '  }' + LB +\r\n    '  var cd = undefined;' + LB +\r\n    '  if (customdata) {' + LB +\r\n    '    cd = encodeURIComponent(JSON.stringify(customdata));' + LB +\r\n    '  }' + LB +\r\n    '  sendObjectMessage(JSON.stringify(jsonObj), cd); ' + LB +\r\n    '}' + LB + LB +\r\n    'function toRGBA(c, o){' + LB +\r\n    '  c = c.replace(''#'','''');' + LB +\r\n    '  r = parseInt(c.substring(0,2), 16);' + LB +\r\n    '  g = parseInt(c.substring(2,4), 16);' + LB +\r\n    '  b = parseInt(c.substring(4,6), 16);' + LB +\r\n\r\n    '  result = ''rgba(''+r+'',''+g+'',''+b+'',''+o+'')'';' + LB +\r\n    '  return result;' + LB +\r\n    '}' + LB + LB +\r\n    'function getDefaultEventDataObject(){' + LB +\r\n    '  return ' + o + LB +\r\n    '}' + LB + LB +\r\n    'function getDefaultCoordinateObject(){' + LB +\r\n    '  return ' + c + LB +\r\n    '}' + LB + LB +\r\n    'function getDefaultPointObject(){' + LB +\r\n    '  return ' + p + LB +\r\n    '}' + LB + LB +\r\n    'function getDefaultBoundsObject(){' + LB +\r\n    '  return ' + b + LB +\r\n    '}' + LB + LB +\r\n    'function getDefaultCircleObject(){' + LB +\r\n    '  return ' + ci + LB +\r\n    '}' + LB + LB +\r\n    'function calculateCoordinate(ACoordinate, ABearing, ADistance, AReverse) {' + LB +\r\n    '  var a = 0.0;' + LB +\r\n    '  var ad = 0.0;' + LB +\r\n    '  var r = 0.0;' + LB +\r\n    '  var a1 = 0.0;' + LB +\r\n    '  var sina2 = 0.0;' + LB +\r\n    '  var a2 = 0.0;' + LB +\r\n    '  var y = 0.0;' + LB +\r\n    '  var x = 0.0;' + LB +\r\n    '  var d1 = 0.0;' + LB +\r\n    '  var d2 = 0.0;' + LB +\r\n    '  r = 6371000;' + LB +\r\n    '  a = ADistance / r;' + LB +\r\n    '  ad = ABearing * (Math.PI / 180);' + LB +\r\n    '  var lat1 = ACoordinate[\"Latitude\"];' + LB +\r\n    '  var lng1 = ACoordinate[\"Longitude\"];' + LB +\r\n    '  a1 = lat1 * (Math.PI / 180);' + LB +\r\n    '  d1 = lng1 * (Math.PI / 180);' + LB +\r\n    '  sina2 = (Math.sin(a1) * Math.cos(a)) + (Math.cos(a1) * Math.sin(a) * Math.cos(ad));' + LB +\r\n    '  a2 = Math.asin(sina2);' + LB +\r\n    '  y = Math.sin(ad) * Math.sin(a) * Math.cos(a1);' + LB +\r\n    '  x = Math.cos(a) - (Math.sin(a1) * sina2);' + LB +\r\n    '  d2 = d1 + Math.atan2(y,x);' + LB +\r\n    '  var lat = a2 * (180 / Math.PI);' + LB +\r\n    '  var lon = d2 * (180 / Math.PI);' + LB +\r\n    '  if (AReverse == true) {' + LB +\r\n    '    return [lon, lat];' + LB +\r\n    '  }else{' + LB +\r\n    '    return [lat, lon];' + LB +\r\n    '  }' + LB +\r\n    '};' + LB + LB +\r\n    'function createCircle(ACenter, ARadius, AReverse) {' + LB +\r\n    '  var Result = [];' + LB +\r\n    '  for (var I = 0; I <= 100; I++) {' + LB +\r\n    '    Result.push(calculateCoordinate(ACenter, (I * -360) / 100, ARadius, AReverse));' + LB +\r\n    '  };' + LB +\r\n    '  return Result;' + LB +\r\n    '};' + LB +\r\n    'function TMSFNCMaps_base64Decode(base64EncodedString) {' + LB +\r\n    '  return new TextDecoder().decode(Uint8Array.from(atob(base64EncodedString), m => m.codePointAt(0)));' + LB +\r\n    '}' + LB;\r\nend;\r\n\r\n{$IFDEF WEBLIB}\r\nprocedure TTMSFNCCustomMaps.ClearMethodPointers;\r\nbegin\r\n  inherited;\r\n  FMapEventData := nil;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.GetMethodPointers;\r\nbegin\r\n  inherited;\r\n  if FMapEventData = nil then\r\n    FMapEventData := @HandleDoMapEventData;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.HandleDoMapEventData(Event: TJSEvent): Boolean;\r\nvar\r\n  s: string;\r\nbegin\r\n  asm\r\n    s = Event.detail;\r\n  end;\r\n  ParseEvent(s);\r\n  Result := True;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.BindEvents;\r\nvar\r\n  eh: TJSEventTarget;\r\nbegin\r\n  if Assigned(ElementBindHandle) then\r\n  begin\r\n    GetMethodPointers;\r\n    eh := ElementBindHandle;\r\n    eh.addEventListener(MAPEVENTDATA, FMapEventData);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.UnbindEvents;\r\nvar\r\n  eh: TJSEventTarget;\r\nbegin\r\n  if Assigned(ElementBindHandle) then\r\n  begin\r\n    eh := ElementBindHandle;\r\n    eh.removeEventListener(MAPEVENTDATA, FMapEventData);\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TTMSFNCCustomMaps.GetCommunicationLayer: string;\r\n  function GetWindowsComm: string;\r\n  begin\r\n    if IsDesignTime then\r\n    begin\r\n      Result := 'window.location = v;';\r\n    end\r\n    else\r\n    begin\r\n      Result :=\r\n      '  if (!window.chrome || !window.chrome.webview || !window.chrome.webview.hostObjects || !window.chrome.webview.hostObjects.sync) {' + LB +\r\n      '    return;' + LB +\r\n      '  }' + LB +\r\n      '  var obj = window.chrome.webview.hostObjects.sync.bridge;' + LB +\r\n      '  if (obj) {' + LB +\r\n      '    obj.ObjectMessage = v;' + LB +\r\n      '  }else{' + #13 +\r\n      '    window.location = v;' + LB +\r\n      '  }';\r\n    end;\r\n  end;\r\nbegin\r\n  Result :=\r\n    'var sendObjectMessage = function(parameters, customdata = undefined) {' + LB +\r\n    '  var v = \"' + EVENTDATAPREFIX + '\" + parameters;' + LB +\r\n    '  if (customdata) {' + LB +\r\n    '    v = v + \"' + CUSTOMDATAPREFIX + '\" + customdata;' + LB +\r\n    '  }' + LB +\r\n    {$IFDEF ANDROID}\r\n    '  if (!injectedObject) {' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  injectedObject.Setjsvalue(v); ' + LB +\r\n    '  injectedObject.performClick();' + LB +\r\n    {$ENDIF}\r\n    {$IFDEF LINUX}\r\n    '  if (!window.webkit || !window.webkit.messageHandlers || !window.webkit.messageHandlers.bridge) {' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  window.webkit.messageHandlers.bridge.postMessage(v);' + LB +\r\n    {$ENDIF}\r\n    {$IFDEF MACOS}\r\n    '  if (!window.webkit || !window.webkit.messageHandlers || !window.webkit.messageHandlers.bridge) {' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  window.webkit.messageHandlers.bridge.postMessage(v);' + LB +\r\n    {$ENDIF}\r\n    {$IFDEF MSWINDOWS}\r\n    GetWindowsComm + LB +\r\n    {$ENDIF}\r\n    {$IFNDEF LINUX}\r\n    {$IFNDEF MSWINDOWS}\r\n    {$IFNDEF MACOS}\r\n    {$IFNDEF ANDROID}\r\n    {$IFDEF WEBLIB}\r\n    '  var event = new CustomEvent(\"' + MAPEVENTDATA +'\", {detail: v});' + LB +\r\n    '  if (!' + MAPCOMPONENT + '){' + LB +\r\n    '  ' + MAPCOMPONENT + ' = document.getElementById(\"' + ElementID + '\");' + LB +\r\n    '  }' + LB +\r\n    '  ' + MAPCOMPONENT + '.dispatchEvent(event);' + LB +\r\n    {$ELSE}\r\n    '  window.location = v;' + LB +\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    {$ENDIF}\r\n    '};';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.CoordinateToXY(\r\n  ACoordinate: TTMSFNCMapsCoordinateRec): TTMSFNCMapsAnchorPointRec;\r\nbegin\r\n  Result := LatLonToXY(ACoordinate);\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetLabelsClass: TTMSFNCMapsLabelsClass;\r\nbegin\r\n  Result := TTMSFNCMapsLabels;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.GetLinks(AList: TTMSFNCMapsLinksList; AIncludeContent: Boolean = True; ACheckReady: Boolean = True);\r\nvar\r\n  acf, cf, s, a, m, cm, cmm, gv, am, em, apl,\r\n  dl, c: string;\r\nbegin\r\n  if ACheckReady and not MapReady then\r\n    Exit;\r\n\r\n  if AIncludeContent then\r\n  begin\r\n    s := s + GetGlobalVariables + LB + LB;\r\n\r\n    gv := GetCustomGlobalVariables;\r\n    if gv <> '' then\r\n      s := s + gv + LB + LB;\r\n\r\n    s := s + GetCommunicationLayer + LB + LB;\r\n\r\n    cf := GetCustomFunctions;\r\n    if cf <> '' then\r\n      s := s + cf + LB + LB;\r\n\r\n    s := s + GetShowPopupFunction + LB + LB;\r\n    s := s + GetClosePopupFunction + LB + LB;\r\n\r\n    s := s + GetAddOrUpdateMarkerFunction + LB + LB;\r\n    s := s + GetDeleteMarkerFunction + LB + LB;\r\n\r\n    s := s + GetAddOrUpdateElementContainerFunction + LB + LB;\r\n    s := s + GetDeleteElementContainerFunction + LB + LB;\r\n\r\n    s := s + GetAddOrUpdatePolyElementFunction + LB + LB;\r\n    s := s + GetDeletePolyElementFunction + LB + LB;\r\n\r\n    s := s + GetZoomToBoundsFunction + LB + LB;\r\n    s := s + GetSetCenterCoordinateFunction + LB + LB;\r\n    s := s + GetSetZoomLevelFunction + LB + LB;\r\n    s := s + GetGetCenterCoordinateFunction + LB + LB;\r\n    s := s + GetGetLatLonToXYFunction + LB + LB;\r\n    s := s + GetGetXYToLatLonFunction + LB + LB;\r\n    s := s + GetGetBoundsFunction + LB + LB;\r\n    s := s + GetGetZoomLevelFunction + LB + LB;\r\n\r\n    s := s + GetUpdateOptions + LB + LB;\r\n\r\n    s := s + GetWaitForMapInitialized + LB + LB;\r\n\r\n    //begin mapload\r\n    s := s + 'async function ' + LOADMAPFUNC + '(){' + LB;\r\n\r\n    s := s + TryCatchStart;\r\n\r\n    m := FMaps.GetInitializeMap;\r\n\r\n    if m <> '' then\r\n      s := s + m + LB + LB;\r\n\r\n    a := FMaps.GetInitializeEvents;\r\n    {$IFDEF WEBLIB}\r\n    a := a + LB + LB + MAPID + '.addEventListener(''keydown'', MapKeyDown);' + LB;\r\n    {$ENDIF}\r\n\r\n    if a <> ''  then\r\n      s := s + a + LB + LB;\r\n\r\n    dl := FMaps.GetDelayLoadEvent;\r\n    if dl <> '' then\r\n      s := s + dl + LB + LB;\r\n\r\n    cm := '';\r\n    DoCustomizeMap(cm);\r\n    if cm <> '' then\r\n      s := s + cm + LB + LB;\r\n\r\n    cmm := GetCustomMap;\r\n    if cmm <> '' then\r\n      s := s + cmm + LB + LB;\r\n\r\n    am := GetAddMarkers;\r\n    if am <> '' then\r\n      s := s + am + LB;\r\n\r\n    em := GetAddElementContainers;\r\n    if em <> '' then\r\n      s := s + em + LB;\r\n\r\n    apl := GetAddPolyElements;\r\n    if apl <> '' then\r\n      s := s + apl + LB;\r\n\r\n    acf := GetAddCustomObjects;\r\n    if acf <> '' then\r\n      s := s + acf + LB;\r\n\r\n    s := s + GetCallInitialize + LB;\r\n\r\n    if dl <> '' then\r\n      s := s + '})' + LB;\r\n\r\n    s:= s + TryCatchEnd('TMS FNC Maps initialization error');\r\n\r\n    //end map load\r\n    s := s + '}' + LB + LB;\r\n\r\n    c := '';\r\n    DoCustomizeJavaScript(c);\r\n\r\n    if c <> '' then\r\n      s := s + c + LB;\r\n  end\r\n  else\r\n    s := 'Include';\r\n\r\n  if s <> '' then\r\n  begin\r\n    AList.Add(TTMSFNCMapsLink.CreateScript('', 'text/javascript', '', s));\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.RouteCalculatorCheck: Boolean;\r\nbegin\r\n  if (Assigned(RouteCalculator) and (RouteCalculator.Active)\r\n    and (Service in [msGoogleMaps, msOpenLayers, msHere, msMapBox, msTomTom, msBingMaps])) then\r\n      Result := True\r\n  else\r\n    Result := False;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoCustomizeOptions(var ACustomizeOptions: string);\r\nbegin\r\n  if Assigned(OnCustomizeOptions) then\r\n    OnCustomizeOptions(Self, ACustomizeOptions);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoCustomizeMarker(var ACustomizeMarker: string);\r\nbegin\r\n  if Assigned(OnCustomizeMarker) then\r\n    OnCustomizeMarker(Self, ACustomizeMarker);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoCustomizePopup(var ACustomizePopup: string);\r\nbegin\r\n  if Assigned(OnCustomizePopup) then\r\n    OnCustomizePopup(Self, ACustomizePopup);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoGetCenterCoordinate(const AValue: string);\r\nvar\r\n  c: TTMSFNCMapsCoordinate;\r\n  v: string;\r\nbegin\r\n  if AValue = 'null' then\r\n    Exit;\r\n\r\n  v := TTMSFNCUtils.URLDecode(AValue);\r\n  c := TTMSFNCMapsCoordinate.Create;\r\n  try\r\n    c.JSON := v;\r\n    if Assigned(OnGetCenterCoordinate) then\r\n      OnGetCenterCoordinate(Self, c.ToRec);\r\n  finally\r\n    c.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoGetBounds(const AValue: string);\r\nvar\r\n  c: TTMSFNCMapsBounds;\r\n  v: string;\r\nbegin\r\n  if AValue = 'null' then\r\n    Exit;\r\n\r\n  v := TTMSFNCUtils.URLDecode(AValue);\r\n  c := TTMSFNCMapsBounds.Create;\r\n  try\r\n    c.JSON := v;\r\n    if Assigned(OnGetBounds) then\r\n      OnGetBounds(Self, c.ToRec);\r\n  finally\r\n    c.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoGetDefaultHTMLMessage(var AMessage: string);\r\nbegin\r\n  if Assigned(OnGetDefaultHTMLMessage) then\r\n    OnGetDefaultHTMLMessage(Self, AMessage);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoGetZoomLevel(const AValue: string);\r\nvar\r\n  z: Double;\r\nbegin\r\n  if AValue = 'null' then\r\n    Exit;\r\n\r\n  if TTMSFNCUtils.TryStrToFloatDot(AValue, z) then\r\n  begin\r\n    if Assigned(OnGetZoomLevel) then\r\n      OnGetZoomLevel(Self, z);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoKeyPressed(var Key: Word);\r\nvar\r\n  ASegment: TTMSFNCRouteCalculatorSegment;\r\n  CanDelete: Boolean;\r\nbegin\r\n  if Key = KEY_DELETE then\r\n  begin\r\n   if RouteCalculatorCheck then\r\n    begin\r\n      CanDelete := True;\r\n\r\n      if Assigned(RouteCalculatorSelectedMarker) then\r\n      begin\r\n        if Assigned(RouteCalculatorSelectedMarker.DataPointer) and (TObject(RouteCalculatorSelectedMarker.DataPointer) is TTMSFNCRouteCalculatorSegment) then\r\n        begin\r\n          ASegment := (TObject(RouteCalculatorSelectedMarker.DataPointer) as TTMSFNCRouteCalculatorSegment);\r\n          if Assigned(ASegment) then\r\n          begin\r\n            DoRouteCalculatorBeforeDeleteMarker(CanDelete, RouteCalculatorSelectedMarker, ASegment);\r\n            if CanDelete then\r\n            begin\r\n              RouteCalculatorDeleteMarker(RouteCalculatorSelectedMarker);\r\n              DoRouteCalculatorAfterDeleteMarker;\r\n            end;\r\n          end;\r\n          RouteCalculatorClearSelected;\r\n        end;\r\n      end\r\n      else if Assigned(RouteCalculatorSelectedPolyline) then\r\n      begin\r\n        if Assigned(RouteCalculatorSelectedPolyline.DataPointer) and (TObject(RouteCalculatorSelectedPolyline.DataPointer) is TTMSFNCRouteCalculatorSegment) then\r\n        begin\r\n          ASegment := (TObject(RouteCalculatorSelectedPolyline.DataPointer) as TTMSFNCRouteCalculatorSegment);\r\n          if Assigned(ASegment) then\r\n          begin\r\n            DoRouteCalculatorBeforeDeletePolyline(CanDelete, RouteCalculatorSelectedPolyline, ASegment);\r\n            if CanDelete then\r\n            begin\r\n              RouteCalculatorDeletePolyline(RouteCalculatorSelectedPolyline);\r\n              DoRouteCalculatorAfterDeletePolyline;\r\n            end;\r\n          end;\r\n          RouteCalculatorClearSelected;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetAddCustomObjects: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetAddElementContainers: string;\r\nvar\r\n  I: Integer;\r\n  arr: TTMSFNCObjectExcludePropertyListArray;\r\n  c: TTMSFNCMapsElementContainers;\r\nbegin\r\n  Result := '';\r\n  SetLength(arr, 3);\r\n  arr[0] := 'HTML';\r\n  arr[1] := 'Script';\r\n  arr[2] := 'Style';\r\n\r\n  c := TTMSFNCMapsElementContainers.Create(nil);\r\n  try\r\n    c.Assign(ElementContainers);\r\n\r\n    SyncLabels(c);\r\n\r\n    for I := 0 to c.Count - 1 do\r\n    begin\r\n      Result := Result + '  ' + ADDORUPDATEELEMENTCONTAINERFUNCTION + '(' + c[I].ToJSON(arr) + ');' + LB;\r\n    end;\r\n  finally\r\n    c.Free;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetCustomOptions: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetCustomMap: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetCustomGlobalVariables: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetCustomFunctions: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetOptionsClass: TTMSFNCMapsOptionsClass;\r\nbegin\r\n  Result := TTMSFNCMapsOptions;\r\nend;\r\n\r\n//procedure TTMSFNCCustomMaps.DoMapIdle(AEventData: TTMSFNCMapsEventData);\r\n//begin\r\n//  if Assigned(OnMapIdle) then\r\n//    OnMapIdle(Self, AEventData);\r\n//end;\r\n\r\nprocedure TTMSFNCCustomMaps.DoMapInitialized;\r\nbegin\r\n  if Assigned(OnMapInitialized) then\r\n    OnMapInitialized(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoMapKeyDown(AEventData: TTMSFNCMapsEventData);\r\nvar\r\n  key: Integer;\r\n  k: Word;\r\nbegin\r\n  key := 0;\r\n  if TryStrToInt(AEventData.CustomData, key) then\r\n  begin\r\n    k := key;\r\n    DoKeyPressed(k);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoZoomChanged(AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if Assigned(OnZoomChanged) then\r\n    OnZoomChanged(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoMapTypeChanged(AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if Assigned(OnMapTypeChanged) then\r\n    OnMapTypeChanged(Self, AEventData);\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetRouteCalculatorSelectedWayPointMarker: string;\r\nbegin\r\n  if RouteCalculatorCheck then\r\n  begin\r\n    if RouteCalculator.Options.Polyline.AddWayPointMarker = '' then\r\n      Result := DEFAULTSELECTEDWAYPOINTMARKER\r\n    else\r\n      Result := RouteCalculator.Options.Polyline.SelectedWayPointMarker;\r\n  end\r\n  else\r\n    Result := '';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetRouteCalculatorStartMarker: string;\r\nbegin\r\n  if RouteCalculatorCheck then\r\n  begin\r\n    if RouteCalculator.Options.Polyline.StartMarker = '' then\r\n      Result := DEFAULTSTARTMARKER\r\n    else\r\n      Result := RouteCalculator.Options.Polyline.StartMarker;\r\n  end\r\n  else\r\n    Result := '';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetRouteCalculatorEndMarker: string;\r\nbegin\r\n  if RouteCalculatorCheck then\r\n  begin\r\n    if RouteCalculator.Options.Polyline.EndMarker = '' then\r\n      Result := DEFAULTENDMARKER\r\n    else\r\n      Result := RouteCalculator.Options.Polyline.EndMarker;\r\n  end\r\n  else\r\n    Result := '';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetRouteCalculatorWayPointMarker: string;\r\nbegin\r\n  if RouteCalculatorCheck then\r\n  begin\r\n    if RouteCalculator.Options.Polyline.WayPointMarker = '' then\r\n      Result := DEFAULTWAYPOINTMARKER\r\n    else\r\n      Result := RouteCalculator.Options.Polyline.WayPointMarker;\r\n  end\r\n  else\r\n    Result := '';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetRouteCalculatorAddWayPointMarker: string;\r\nbegin\r\n  if RouteCalculatorCheck then\r\n  begin\r\n    if RouteCalculator.Options.Polyline.AddWayPointMarker = '' then\r\n      Result := DEFAULTADDWAYPOINTMARKER\r\n    else\r\n      Result := RouteCalculator.Options.Polyline.AddWayPointMarker;\r\n  end\r\n  else\r\n    Result := '';\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoMapCenterChanged(\r\n  AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if Assigned(OnMapCenterChanged) then\r\n    OnMapCenterChanged(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoMapClick(AEventData: TTMSFNCMapsEventData);\r\n\r\n  function GetRouteStartMarker: TTMSFNCMapsMarker;\r\n  var\r\n    I: Integer;\r\n  begin\r\n    Result := nil;\r\n    for I := 0 to Markers.Count - 1 do\r\n    begin\r\n      if Markers[I].DataString = ROUTECALCULATORSTARTMARKER then\r\n      begin\r\n        Result := Markers[I];\r\n        Exit;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  function GetRouteMarkerCount: Integer;\r\n  var\r\n    I: Integer;\r\n  begin\r\n    Result := 0;\r\n    for I := 0 to Markers.Count - 1 do\r\n    begin\r\n      if ((Markers[I].DataString = ROUTECALCULATORMARKER)\r\n        or (Markers[I].DataString = ROUTECALCULATORSTARTMARKER)\r\n        or (Markers[I].DataString = ROUTECALCULATORENDMARKER)) then\r\n        Result := Result + 1;\r\n    end;\r\n  end;\r\n\r\n  function GetRoute: TTMSFNCRouteCalculatorRoute;\r\n  var\r\n    I: Integer;\r\n  begin\r\n    Result := nil;\r\n    for I := 0 to RouteCalculator.Routes.Count - 1 do\r\n    begin\r\n      if RouteCalculator.Routes[I].DataString = ROUTECALCULATORROUTE then\r\n      begin\r\n        Result := RouteCalculator.Routes[I];\r\n        Exit;\r\n      end;\r\n    end;\r\n  end;\r\n\r\nvar\r\n  m: TTMSFNCMapsMarker;\r\n  r: TTMSFNCRouteCalculatorRoute;\r\nbegin\r\n  if RouteCalculatorCheck then\r\n  begin\r\n    RouteCalculatorClearSelected;\r\n\r\n    m := GetRouteStartMarker;\r\n    if not Assigned(m) then\r\n    begin\r\n      m := AddMarker(AEventData.Coordinate.ToRec);\r\n      m.IconURL := GetRouteCalculatorStartMarker;\r\n      m.DataString := ROUTECALCULATORSTARTMARKER;\r\n    end\r\n    else if GetRouteMarkerCount = 1 then\r\n    begin\r\n      RouteCalculator.CalculateRoute(m.Coordinate.ToRec, AEventData.Coordinate.ToRec);\r\n    end\r\n    else\r\n    begin\r\n      r := GetRoute;\r\n      if Assigned(r) then\r\n        RouteCalculator.AddRouteSegment(r, AEventData.Coordinate.ToRec);\r\n    end;\r\n  end;\r\n\r\n  if Assigned(OnMapClick) then\r\n    OnMapClick(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoMapDblClick(AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if Assigned(OnMapDblClick) then\r\n    OnMapDblClick(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoMapMouseUp(AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if RouteCalculatorCheck then\r\n  begin\r\n    RouteCalculatorMarkerMoved(AEventData.Coordinate.ToRec);\r\n    RouteCalculatorPolylineMoved(AEventData.Coordinate.ToRec);\r\n  end;\r\n\r\n  if Assigned(OnMapMouseUp) then\r\n    OnMapMouseUp(Self, AEventData);\r\nend;\r\n\r\n//procedure TTMSFNCCustomMaps.DoMapMove(AEventData: TTMSFNCMapsEventData);\r\n//begin\r\n//  if Assigned(OnMapMove) then\r\n//    OnMapMove(Self, AEventData);\r\n//end;\r\n\r\nprocedure TTMSFNCCustomMaps.DoMapMoveEnd(AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if Assigned(OnMapMoveEnd) then\r\n    OnMapMoveEnd(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoMapMoveStart(AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if Assigned(OnMapMoveStart) then\r\n    OnMapMoveStart(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoMapRightClick(AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if Assigned(OnMapRightClick) then\r\n    OnMapRightClick(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoMapMouseDown(AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  ExecuteJavaScript(GETFOCUSMAP + '()');\r\n\r\n  if RouteCalculatorCheck then\r\n    RouteCalculatorClearSelected;\r\n\r\n  if Assigned(OnMapMouseDown) then\r\n    OnMapMouseDown(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoMapMouseMove(AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if RouteCalculatorCheck then\r\n  begin\r\n    if (AEventData.X <> FRouteCalculatorDragX) or (AEventData.Y <> FRouteCalculatorDragY) or\r\n      (AEventData.Coordinate.Latitude <> FRouteCalculatorDragLat) or (AEventData.Coordinate.Longitude <> FRouteCalculatorDragLon) then\r\n    begin\r\n      FRouteCalculatorDragX := AEventData.X;\r\n      FRouteCalculatorDragY := AEventData.Y;\r\n      FRouteCalculatorDragLat := AEventData.Coordinate.Latitude;\r\n      FRouteCalculatorDragLon := AEventData.Coordinate.Longitude;\r\n\r\n      if Assigned(FRouteCalculatorPolyline) then\r\n      begin\r\n        Options.Panning := False;\r\n        FRouteCalculatorDragStarted := True;\r\n        if Assigned(FRouteCalculatorDragMarker) then\r\n        begin\r\n          BeginUpdate;\r\n          FRouteCalculatorDragMarker.Coordinate.Latitude := AEventData.Coordinate.Latitude;\r\n          FRouteCalculatorDragMarker.Coordinate.Longitude := AEventData.Coordinate.Longitude;\r\n          EndUpdate;\r\n        end\r\n        else\r\n        begin\r\n          BeginUpdate;\r\n          FRouteCalculatorDragMarker := AddMarker(AEventData.Coordinate.ToRec);\r\n          FRouteCalculatorDragMarker.IconURL := GetRouteCalculatorAddWayPointMarker;\r\n          FRouteCalculatorDragMarker.DataString := ROUTECALCULATORDRAGMARKER;\r\n          EndUpdate;\r\n        end;\r\n      end;\r\n\r\n      if Assigned(FRouteCalculatorMarker) then\r\n      begin\r\n        Options.Panning := False;\r\n        FRouteCalculatorDragStarted := True;\r\n        BeginUpdate;\r\n        FRouteCalculatorMarker.Coordinate.Latitude := AEventData.Coordinate.Latitude;\r\n        FRouteCalculatorMarker.Coordinate.Longitude := AEventData.Coordinate.Longitude;\r\n        EndUpdate;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(OnMapMouseMove) then\r\n    OnMapMouseMove(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoMapMouseEnter(AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if Assigned(OnMapMouseEnter) then\r\n    OnMapMouseEnter(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoMapMouseLeave(AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if Assigned(OnMapMouseLeave) then\r\n    OnMapMouseLeave(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoMarkerRightClick(AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if Assigned(OnMarkerRightClick) then\r\n    OnMarkerRightClick(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoMarkerClick(AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if RouteCalculatorCheck then\r\n  begin\r\n    RouteCalculatorClearSelected;\r\n    if Assigned(AEventData.Marker) then\r\n    begin\r\n      if (AEventData.Marker.DataString = ROUTECALCULATORMARKER)\r\n        or (AEventData.Marker.DataString = ROUTECALCULATORSTARTMARKER)\r\n        or (AEventData.Marker.DataString = ROUTECALCULATORENDMARKER) then\r\n      begin\r\n        FRouteCalculatorSelectedMarker := AEventData.Marker;\r\n        FRouteCalculatorSelectedMarker.IconURL := GetRouteCalculatorSelectedWayPointMarker;\r\n        FRouteCalculatorSelectedMarker.Recreate := True;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(OnMarkerClick) then\r\n    OnMarkerClick(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoMarkerDblClick(AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if Assigned(OnMarkerDblClick) then\r\n    OnMarkerDblClick(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoMarkerMouseUp(AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if RouteCalculatorCheck then\r\n  begin\r\n    RouteCalculatorMarkerMoved(AEventData.Coordinate.ToRec);\r\n    RouteCalculatorPolylineMoved(AEventData.Coordinate.ToRec);\r\n  end;\r\n\r\n  if Assigned(OnMarkerMouseUp) then\r\n    OnMarkerMouseUp(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoMarkerMouseDown(AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if RouteCalculatorCheck then\r\n  begin\r\n    RouteCalculatorClearSelected;\r\n    if Assigned(AEventData.Marker) then\r\n    begin\r\n      Options.Panning := False;\r\n      FRouteCalculatorMarker := AEventData.Marker;\r\n      FRouteCalculatorPolyline := nil;\r\n      FRouteCalculatorDragStarted := False;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(OnMarkerMouseDown) then\r\n    OnMarkerMouseDown(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoMarkerMouseEnter(AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if Assigned(OnMarkerMouseEnter) then\r\n    OnMarkerMouseEnter(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoMarkerMouseLeave(AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if Assigned(OnMarkerMouseLeave) then\r\n    OnMarkerMouseLeave(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoPolyElementRightClick(AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if Assigned(OnPolyElementRightClick) then\r\n    OnPolyElementRightClick(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoPolyElementClick(AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if RouteCalculatorCheck then\r\n  begin\r\n    if AEventData.PolyElement.DataString = ROUTECALCULATORSEGMENT  then\r\n    begin\r\n      RouteCalculatorClearSelected;\r\n      if Assigned(AEventData.PolyElement) then\r\n      begin\r\n        FRouteCalculatorSelectedPolyline := TTMSFNCMapsPolyline(AEventData.PolyElement);\r\n        FRouteCalculatorSelectedPolyline.StrokeColor := FRouteCalculator.Options.Polyline.SelectedStrokeColor;\r\n        FRouteCalculatorSelectedPolyline.Recreate := True;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(OnPolyElementClick) then\r\n    OnPolyElementClick(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoPolyElementDblClick(AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if Assigned(OnPolyElementDblClick) then\r\n    OnPolyElementDblClick(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoPolyElementMouseUp(AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if RouteCalculatorCheck then\r\n  begin\r\n    RouteCalculatorMarkerMoved(AEventData.Coordinate.ToRec);\r\n    RouteCalculatorPolylineMoved(AEventData.Coordinate.ToRec);\r\n  end;\r\n\r\n  if Assigned(OnPolyElementMouseUp) then\r\n    OnPolyElementMouseUp(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoRouteCalculatorAfterDeleteMarker;\r\nbegin\r\n  if Assigned(OnRouteCalculatorAfterDeleteMarker) then\r\n    OnRouteCalculatorAfterDeleteMarker(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoRouteCalculatorAfterDeletePolyline;\r\nbegin\r\n  if Assigned(OnRouteCalculatorAfterDeletePolyline) then\r\n    OnRouteCalculatorAfterDeletePolyline(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoRouteCalculatorBeforeDeleteMarker(\r\n  var ACanDelete: Boolean; AMarker: TTMSFNCMapsMarker;\r\n  ASegment: TTMSFNCRouteCalculatorSegment);\r\nbegin\r\n  if Assigned(OnRouteCalculatorBeforeDeleteMarker) then\r\n    OnRouteCalculatorBeforeDeleteMarker(Self, ACanDelete, AMarker, ASegment);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoRouteCalculatorBeforeDeletePolyline(\r\n  var ACanDelete: Boolean; APolyline: TTMSFNCMapsPolyline; ASegment: TTMSFNCRouteCalculatorSegment);\r\nbegin\r\n  if Assigned(OnRouteCalculatorBeforeDeletePolyline) then\r\n    OnRouteCalculatorBeforeDeletePolyline(Self, ACanDelete, APolyline, ASegment);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoRouteCalculatorPolylineAdded(\r\n  APolyline: TTMSFNCMapsPolyline; ASegment: TTMSFNCRouteCalculatorSegment);\r\nbegin\r\n  if Assigned(OnRouteCalculatorPolylineAdded) then\r\n    OnRouteCalculatorPolylineAdded(Self, APolyline, ASegment);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoRouteCalculatorPolylineUpdated(\r\n  APolyline: TTMSFNCMapsPolyline; ASegment: TTMSFNCRouteCalculatorSegment);\r\nbegin\r\n  if Assigned(OnRouteCalculatorPolylineUpdated) then\r\n    OnRouteCalculatorPolylineUpdated(Self, APolyline, ASegment);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoRouteCalculatorWayPointAdded(\r\n  AMarker: TTMSFNCMapsMarker; ASegment: TTMSFNCRouteCalculatorSegment);\r\nbegin\r\n  if Assigned(OnRouteCalculatorWayPointAdded) then\r\n    OnRouteCalculatorWayPointAdded(Self, AMarker, ASegment);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoRouteCalculatorWayPointUpdated(\r\n  AMarker: TTMSFNCMapsMarker; ASegment: TTMSFNCRouteCalculatorSegment);\r\nbegin\r\n  if Assigned(OnRouteCalculatorWayPointUpdated) then\r\n    OnRouteCalculatorWayPointUpdated(Self, AMarker, ASegment);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoPolyElementMouseDown(AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if RouteCalculatorCheck then\r\n  begin\r\n    RouteCalculatorClearSelected;\r\n    if Assigned(AEventData.PolyElement) then\r\n    begin\r\n      Options.Panning := False;\r\n      FRouteCalculatorPolyline := AEventData.PolyElement;\r\n      FRouteCalculatorMarker := nil;\r\n      FRouteCalculatorDragStarted := False;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(OnPolyElementMouseDown) then\r\n    OnPolyElementMouseDown(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoPolyElementMouseEnter(AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if Assigned(OnPolyElementMouseEnter) then\r\n    OnPolyElementMouseEnter(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoPolyElementMouseLeave(AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if Assigned(OnPolyElementMouseLeave) then\r\n    OnPolyElementMouseLeave(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.CallCustomEvent(AEventData: TTMSFNCMapsEventData);\r\nvar\r\n  I, J: Integer;\r\n  ActionEventFound: Boolean;\r\nbegin\r\n  ActionEventFound := False;\r\n\r\n  for I := 0 to ElementContainers.Count - 1 do\r\n  begin\r\n    for J := 0 to ElementContainers[I].Actions.Count - 1 do\r\n    begin\r\n      if Assigned(ElementContainers[I].Actions[J].OnExecute) then\r\n      begin\r\n        if ElementContainers[I].Actions[J].HTMLElementID = AEventData.ID then\r\n        begin\r\n          if ((ElementContainers[I].Actions[J].Event = heClick) and (AEventData.EventName = ACTIONCLICKEVENT))\r\n              or ((ElementContainers[I].Actions[J].Event = heDblClick) and (AEventData.EventName = ACTIONDBLCLICKEVENT))\r\n              or ((ElementContainers[I].Actions[J].Event = heKeyPress) and (AEventData.EventName = ACTIONKEYPRESSEVENT))\r\n              or ((ElementContainers[I].Actions[J].Event = heKeyDown) and (AEventData.EventName = ACTIONKEYDOWNEVENT))\r\n              or ((ElementContainers[I].Actions[J].Event = heKeyUp) and (AEventData.EventName = ACTIONKEYUPEVENT))\r\n              or ((ElementContainers[I].Actions[J].Event = heMouseDown) and (AEventData.EventName = ACTIONMOUSEDOWNEVENT))\r\n              or ((ElementContainers[I].Actions[J].Event = heMouseMove) and (AEventData.EventName = ACTIONMOUSEMOVEEVENT))\r\n              or ((ElementContainers[I].Actions[J].Event = heMouseUp) and (AEventData.EventName = ACTIONMOUSEUPEVENT))\r\n              or ((ElementContainers[I].Actions[J].Event = heMouseEnter) and (AEventData.EventName = ACTIONMOUSEENTEREVENT))\r\n              or ((ElementContainers[I].Actions[J].Event = heMouseLeave) and (AEventData.EventName = ACTIONMOUSELEAVEEVENT))\r\n              or ((ElementContainers[I].Actions[J].Event = heBlur) and (AEventData.EventName = ACTIONBLUREVENT))\r\n              or ((ElementContainers[I].Actions[J].Event = heFocus) and (AEventData.EventName = ACTIONFOCUSEVENT))\r\n              or ((ElementContainers[I].Actions[J].Event = heChange) and (AEventData.EventName = ACTIONCHANGEEVENT))\r\n              or ((ElementContainers[I].Actions[J].Event = heSelect) and (AEventData.EventName = ACTIONSELECTEVENT))\r\n              or ((ElementContainers[I].Actions[J].Event = heCustom) and (AEventData.EventName = ACTIONCUSTOMEVENT))\r\n          then\r\n          begin\r\n            ActionEventFound := True;\r\n            ElementContainers[I].Actions[J].OnExecute(Self, AEventData);\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  if not ActionEventFound then\r\n    DoCustomEvent(AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.CheckInstances;\r\n{$IFDEF WEBLIB}\r\nvar\r\n  I, Instances: Integer;\r\n{$ENDIF}\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  Instances := 0;\r\n  for I := 0 to Owner.ComponentCount - 1 do\r\n  begin\r\n    if (Owner.Components[I] is TTMSFNCCustomMaps) then\r\n    begin\r\n      if (Owner.Components[I] as TTMSFNCCustomMaps).Service = Service then\r\n        Inc(Instances);\r\n    end;\r\n  end;\r\n\r\n  if (Instances > 1) then\r\n    raise Exception.Create('Only one instance of ' + ClassName + ' with service ' + TTMSFNCPersistence.GetEnumName(TypeInfo(TTMSFNCMapsService), Integer(Service)) +' allowed!');\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoCloseAllPopups(const AValue: string);\r\nvar\r\n  I: Integer;\r\n  sl: TStringList;\r\n  ma: string;\r\nbegin\r\n  ma := ParseScript(AValue);\r\n  sl := TStringList.Create;\r\n  try\r\n    TTMSFNCUtils.Split(',', ma, sl);\r\n    if sl.Count = 0 then\r\n    begin\r\n      //Make sure marker title popups (OpenLayers) are closed as well\r\n      ClosePopup('');\r\n    end\r\n    else\r\n    begin\r\n      for I := 0 to sl.Count - 1 do\r\n        ClosePopup(sl[I]);\r\n    end;\r\n  finally\r\n    sl.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoCreateGeoJSONObject(\r\n  AEventData: TTMSFNCMapsGeoJSONEventData);\r\nbegin\r\n  if Assigned(OnCreateGeoJSONObject) then\r\n    OnCreateGeoJSONObject(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoCreateGPXSegment(\r\n  AEventData: TTMSFNCMapsGPXSegmentEventData);\r\nbegin\r\n  if Assigned(OnCreateGPXSegment) then\r\n    OnCreateGPXSegment(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoCreateGPXTrack(\r\n  AEventData: TTMSFNCMapsGPXTrackEventData);\r\nbegin\r\n  if Assigned(OnCreateGPXTrack) then\r\n    OnCreateGPXTrack(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoCreateGPXWayPoint(\r\n  AEventData: TTMSFNCMapsGPXWayPointEventData);\r\nbegin\r\n  if Assigned(OnCreateGPXWayPoint) then\r\n    OnCreateGPXWayPoint(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoCustomEvent(AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if Assigned(OnCustomEvent) then\r\n    OnCustomEvent(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoCustomizeMap(var ACustomizeMap: string);\r\nbegin\r\n  if Assigned(OnCustomizeMap) then\r\n    OnCustomizeMap(Self, ACustomizeMap);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoCustomizeCSS(var ACustomizeCSS: string);\r\nbegin\r\n  if Assigned(OnCustomizeCSS) then\r\n    OnCustomizeCSS(Self, ACustomizeCSS);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoCustomizeGlobalVariables(var ACustomizeGlobalVariables: string);\r\nbegin\r\n  if Assigned(OnCustomizeGlobalVariables) then\r\n    OnCustomizeGlobalVariables(Self, ACustomizeGlobalVariables);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoCustomizeHeadLinks(AList: TTMSFNCMapsLinksList);\r\nbegin\r\n  if Assigned(OnCustomizeHeadLinks) then\r\n    OnCustomizeHeadLinks(Self, AList);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoCustomizePolyElement(var ACustomizePolyElement: string);\r\nbegin\r\n  if Assigned(OnCustomizePolyElement) then\r\n    OnCustomizePolyElement(Self, ACustomizePolyElement);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoCustomizeJavaScript(var ACustomizeJavaScript: string);\r\nbegin\r\n  if Assigned(OnCustomizeJavaScript) then\r\n    OnCustomizeJavaScript(Self, ACustomizeJavaScript);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoCustomizeLocalAccessFileName(\r\n  var AFileName: string);\r\nbegin\r\n  if Assigned(OnCustomizeLocalAccessFileName) then\r\n    OnCustomizeLocalAccessFileName(Self, AFileName);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.BeforeNavigate(var Params: TTMSFNCCustomWebBrowserBeforeNavigateParams);\r\nbegin\r\n  Params.Cancel := ParseEvent(Params.URL);\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoUpdatePolyElements(const AValue: string);\r\nvar\r\n  I, J, K: Integer;\r\n  sl: TStringList;\r\n  ma: string;\r\n  arr: TTMSFNCObjectExcludePropertyListArray;\r\n  s: string;\r\nbegin\r\n  if not MapInitialized or IsDestroying or (FUpdateCount > 0) then\r\n    Exit;\r\n\r\n  SetLength(arr, 1);\r\n  arr[0] := 'Coordinates';\r\n\r\n  ma := ParseScript(AValue);\r\n\r\n  sl := TStringList.Create;\r\n  try\r\n    TTMSFNCUtils.Split(',', ma, sl);\r\n\r\n    s := 'function updateAllPolygons(){' + LB;\r\n    for I := 0 to Polygons.Count - 1 do\r\n    begin\r\n      j := sl.IndexOf(Polygons[I].ID);\r\n      if (j = -1) or (Polygons[I].FReload) then\r\n      begin\r\n        Polygons[I].FReload := False;\r\n        s := s + INITIALIZECOORDINATEARRAY + '();' + LB;\r\n        s := s + ADDCOORDINATESTOARRAY + '(' + Polygons[I].Coordinates.ToJSON + ');' + LB;\r\n        s := s + INITIALIZEHOLESARRAY + '();' + LB;\r\n        for K := 0 to Polygons[I].Holes.Count - 1 do\r\n          s := s + ADDHOLESTOARRAY + '([\"' + Polygons[I].Holes[K].ID + '\",' + Polygons[I].Holes[K].Coordinates.ToJSON + ']);' + LB;\r\n        s := s + ADDORUPDATEPOLYELEMENTFUNCTION + '(' + Polygons[I].ToJSON(arr) + ');' + LB;\r\n        s := s + INITIALIZECOORDINATEARRAY + '();' + LB;\r\n      end;\r\n\r\n      if j <> -1 then\r\n        sl.Delete(j)\r\n    end;\r\n\r\n    s := s + '}updateAllPolygons();';\r\n    ExecuteJavaScript(s, nil, True);\r\n\r\n    s := 'function updateAllRectangles(){' + LB;\r\n\r\n    for I := 0 to Rectangles.Count - 1 do\r\n    begin\r\n      j := sl.IndexOf(Rectangles[I].ID);\r\n      if (j = -1) or (Rectangles[I].FReload) then\r\n      begin\r\n        Rectangles[I].FReload := False;\r\n        s := s + INITIALIZECOORDINATEARRAY + '();' + LB;\r\n        s := s + ADDCOORDINATESTOARRAY + '(' + Rectangles[I].Coordinates.ToJSON + ');' + LB;\r\n        s := s + ADDORUPDATEPOLYELEMENTFUNCTION + '(' + Rectangles[I].ToJSON(arr) + ');' + LB;\r\n        s := s + INITIALIZECOORDINATEARRAY + '();' + LB;\r\n      end;\r\n\r\n      if j <> -1 then\r\n        sl.Delete(j)\r\n    end;\r\n\r\n    s := s + '}updateAllRectangles();';\r\n    ExecuteJavaScript(s, nil, True);\r\n\r\n    s := 'function updateAllCircles(){' + LB;\r\n\r\n    for I := 0 to Circles.Count - 1 do\r\n    begin\r\n      j := sl.IndexOf(Circles[I].ID);\r\n      if (j = -1) or (Circles[I].FReload) then\r\n      begin\r\n        Circles[I].FReload := False;\r\n        s := s + INITIALIZECOORDINATEARRAY + '();' + LB;\r\n        s := s + ADDCOORDINATESTOARRAY + '(' + Circles[I].Coordinates.ToJSON + ');' + LB;\r\n        s := s + ADDORUPDATEPOLYELEMENTFUNCTION + '(' + Circles[I].ToJSON(arr) + ');' + LB;\r\n        s := s + INITIALIZECOORDINATEARRAY + '();' + LB;\r\n      end;\r\n\r\n      if j <> -1 then\r\n        sl.Delete(j)\r\n    end;\r\n\r\n    s := s + '}updateAllCircles();';\r\n    ExecuteJavaScript(s, nil, True);\r\n\r\n    s := 'function updateAllPolylines(){' + LB;\r\n\r\n    for I := 0 to Polylines.Count - 1 do\r\n    begin\r\n      j := sl.IndexOf(Polylines[I].ID);\r\n      if (j = -1) or (Polylines[I].FReload) then\r\n      begin\r\n        PolyLines[I].FReload := False;\r\n        s := s + INITIALIZECOORDINATEARRAY + '();' + LB;\r\n        s := s + ADDCOORDINATESTOARRAY + '(' + Polylines[I].Coordinates.ToJSON + ');' + LB;\r\n        s := s + ADDORUPDATEPOLYELEMENTFUNCTION + '(' + Polylines[I].ToJSON(arr) + ');' + LB;\r\n        s := s + INITIALIZECOORDINATEARRAY + '();' + LB;\r\n      end;\r\n\r\n      if j <> -1 then\r\n        sl.Delete(j)\r\n    end;\r\n\r\n    s := s + '}updateAllPolylines();';\r\n    ExecuteJavaScript(s, nil, True);\r\n\r\n    s := 'function deleteAllPolyElements(){' + LB;\r\n    for I := 0 to sl.Count - 1 do\r\n      s := s + DELETEPOLYELEMENTFUNCTION + '({\"ID\": \"' + sl[I] + '\"});' + LB;\r\n\r\n    s := s + '}deleteAllPolyElements();';\r\n    ExecuteJavaScript(s, nil, True);\r\n\r\n  finally\r\n    sl.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.UpdatePolyElements;\r\nbegin\r\n  if not MapInitialized or IsDestroying or (FUpdateCount > 0) then\r\n    Exit;\r\n\r\n  ExecuteJavaScript(GETPOLYELEMENTARRAYVAR, {$IFDEF LCLWEBLIB}@{$ENDIF}DoUpdatePolyElements, True);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.UpdateControlAfterResize;\r\nbegin\r\n  inherited;\r\n  {$IFDEF WEBLIB}\r\n  if not MapInitialized or IsDestroying or (FUpdateCount > 0) then\r\n    Exit;\r\n\r\n  if Service = msOpenLayers then\r\n    ExecuteJavaScript(MAPVAR + '.updateSize()', {$IFDEF LCLWEBLIB}@{$ENDIF}DoUpdateMarkers);\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.UpdateElementContainers;\r\nbegin\r\n  if not MapInitialized or IsDestroying or (FUpdateCount > 0) then\r\n    Exit;\r\n\r\n  ExecuteJavaScript(GETELEMENTCONTAINERARRAYVAR, {$IFDEF LCLWEBLIB}@{$ENDIF}DoUpdateElementContainers, True);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.UpdateHeatMaps;\r\nbegin\r\n  if not MapInitialized or IsDestroying or (UpdateCount > 0) then\r\n    Exit;\r\n\r\n  ExecuteJavaScript(GETHEATMAPARRAYVAR, {$IFDEF LCLWEBLIB}@{$ENDIF}DoUpdateHeatMaps);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.UpdateMarkers;\r\nbegin\r\n  if not MapInitialized or IsDestroying or (FUpdateCount > 0) then\r\n    Exit;\r\n\r\n  ExecuteJavaScript(GETMARKERARRAYVAR, {$IFDEF LCLWEBLIB}@{$ENDIF}DoUpdateMarkers, True);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoUpdateElementContainers(const AValue: string);\r\nvar\r\n  I, j: Integer;\r\n  ma: string;\r\n  sl: TStringList;\r\n  s: string;\r\n  c: TTMSFNCMapsElementContainers;\r\nbegin\r\n  if not MapInitialized or IsDestroying or (FUpdateCount > 0) then\r\n    Exit;\r\n\r\n  ma := ParseScript(AValue);\r\n\r\n  sl := TStringList.Create;\r\n  c := TTMSFNCMapsElementContainers.Create(nil);\r\n  c.Assign(ElementContainers);\r\n  SyncLabels(c);\r\n\r\n  try\r\n    TTMSFNCUtils.Split(',', ma, sl);\r\n\r\n    s := 'function updateAllElementContainers(){' + LB;\r\n\r\n    for I := 0 to c.Count - 1 do\r\n    begin\r\n      j := sl.IndexOf(c[I].ID);\r\n      if (j = -1) or (c[I].FReload) then\r\n      begin\r\n        c[I].FReload := False;\r\n        s := s + ADDORUPDATEELEMENTCONTAINERFUNCTION + '(' + c[I].ToJSON + ');' + LB;\r\n      end;\r\n\r\n      if j <> -1 then\r\n        sl.Delete(j);\r\n    end;\r\n\r\n    s := s + '}updateAllElementContainers();';\r\n    ExecuteJavaScript(s, nil, True);\r\n\r\n    s := 'function deleteAllElementContainers(){' + LB;\r\n\r\n    for I := 0 to sl.Count - 1 do\r\n      s := s + DELETEELEMENTCONTAINERFUNCTION + '({\"ID\": \"' + sl[I] + '\"});' + LB;\r\n\r\n    s := s + '}deleteAllElementContainers();';\r\n    ExecuteJavaScript(s, nil, True);\r\n\r\n  finally\r\n    c.Free;\r\n    sl.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoUpdateHeatMaps(const AValue: string);\r\nvar\r\n  I, j: Integer;\r\n  ma: string;\r\n  sl: TStringList;\r\n  s: string;\r\nbegin\r\n  if not MapInitialized or IsDestroying or (UpdateCount > 0) then\r\n    Exit;\r\n\r\n  ma := ParseScript(AValue);\r\n\r\n  sl := TStringList.Create;\r\n  try\r\n    TTMSFNCUtils.Split(',', ma, sl);\r\n\r\n    s := 'function updateAllHeatMaps(){' + LB;\r\n\r\n    for I := 0 to HeatMaps.Count - 1 do\r\n    begin\r\n      j := sl.IndexOf(HeatMaps[I].ID);\r\n      s := s + ADDORUPDATEHEATMAPFUNCTION + '(' + HeatMaps[I].ToJSON + ');' + LB;\r\n      if j <> -1 then\r\n        sl.Delete(j);\r\n    end;\r\n\r\n    s := s + '}updateAllHeatMaps();';\r\n    ExecuteJavaScript(s);\r\n\r\n    s := 'function deleteAllHeatMaps(){' + LB;\r\n    for I := 0 to sl.Count - 1 do\r\n      s := s + DELETEHEATMAPFUNCTION + '({\"ID\": \"' + sl[I] + '\"});' + LB;\r\n\r\n    s := s + '}deleteAllHeatMaps();';\r\n    ExecuteJavaScript(s);\r\n\r\n  finally\r\n    sl.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DoUpdateMarkers(const AValue: string);\r\nvar\r\n  I, j: Integer;\r\n  ma: string;\r\n  sl: TStringList;\r\n  s: string;\r\nbegin\r\n  if not MapInitialized or IsDestroying or (FUpdateCount > 0) then\r\n    Exit;\r\n\r\n  ma := ParseScript(AValue);\r\n\r\n  sl := TStringList.Create;\r\n  try\r\n    TTMSFNCUtils.Split(',', ma, sl);\r\n\r\n    s := 'function updateAllMarkers(){' + LB;\r\n\r\n    for I := 0 to Markers.Count - 1 do\r\n    begin\r\n      j := sl.IndexOf(Markers[I].ID);\r\n      if (j = -1) or (Markers[I].FReload) then\r\n      begin\r\n        Markers[I].FReload := False;\r\n        s := s + ADDORUPDATEMARKERFUNCTION + '(' + Markers[I].ToJSON + ');' + LB;\r\n      end;\r\n\r\n      if j <> -1 then\r\n        sl.Delete(j);\r\n    end;\r\n\r\n    s := s + '}updateAllMarkers();';\r\n    ExecuteJavaScript(s, nil, True);\r\n\r\n    s := 'function deleteAllMarkers(){' + LB;\r\n\r\n    for I := 0 to sl.Count - 1 do\r\n      s := s + DELETEMARKERFUNCTION + '({\"ID\": \"' + sl[I] + '\"});' + LB;\r\n\r\n    s := s + '}deleteAllMarkers();';\r\n    ExecuteJavaScript(s, nil, True);\r\n\r\n  finally\r\n    sl.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.UpdateOptions;\r\nbegin\r\n  if not MapInitialized or IsDestroying or (FUpdateCount > 0) then\r\n    Exit;\r\n\r\n  ExecuteJavaScript(UPDATEOPTIONSFUNCTION + '(' + Options.ToJSON + ')');\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.MapReady: Boolean;\r\nbegin\r\n  Result := Assigned(FMaps) and Assigned(FMapsInstance) and Assigned(FMapsProperties) and FMaps.IsValid;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.Maps: ITMSFNCCustomMaps;\r\nbegin\r\n  Result := FMaps;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.Notification(AComponent: TComponent;\r\n  Operation: TOperation);\r\nbegin\r\n  inherited;\r\n  if (Operation = opRemove) and (AComponent = FRouteCalculator) then\r\n    FRouteCalculator := nil;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.OptionsChanged(Sender: TObject);\r\nbegin\r\n  InitializeHTML;\r\n  UpdateOptions;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.ParseLinks(AList: TTMSFNCMapsLinksList): string;\r\nvar\r\n  I: Integer;\r\n  lk: TTMSFNCMapsLink;\r\nbegin\r\n  Result := '';\r\n  for I := 0 to AList.Count - 1 do\r\n  begin\r\n    lk := AList[I];\r\n    case lk.Kind of\r\n      mlkLink: Result := Result + '<link';\r\n      mlkScript: Result := Result + '<script';\r\n      mlkStyle: Result := Result + '<style';\r\n    end;\r\n\r\n    if lk.URL <> '' then\r\n    begin\r\n      case lk.Kind of\r\n        mlkLink: Result := Result + ' href=\"';\r\n        mlkScript: Result := Result + ' src=\"';\r\n      end;\r\n\r\n      Result := Result + lk.URL + '\"';\r\n    end;\r\n\r\n    if lk.&Type <> '' then\r\n      Result := Result + ' type=\"' + lk.&Type + '\"';\r\n\r\n    if lk.CharSet <> '' then\r\n      Result := Result + ' charset=\"' + lk.CharSet + '\"';\r\n\r\n    if lk.Rel <> '' then\r\n      Result := Result + ' rel=\"' + lk.Rel +'\"';\r\n\r\n    if lk.Async then\r\n      Result := Result + ' async';\r\n\r\n    if lk.Defer then\r\n      Result := Result + ' defer';\r\n\r\n    Result := Result + '>';\r\n\r\n    if lk.Content <> '' then\r\n      Result := Result + LB + lk.Content;\r\n\r\n    case lk.Kind of\r\n      mlkLink: Result := Result + LB + '</link>';\r\n      mlkScript: Result := Result + LB + '</script>';\r\n      mlkStyle: Result := Result + LB + '</style>';\r\n    end;\r\n\r\n    if (I < AList.Count - 1) then\r\n      Result := Result + LB;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.SaveToGPXFile(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray; AFileName: string);\r\nbegin\r\n  SaveToGPXFile(ACoordinates, AFileName, DefaultGPXMetaData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.SaveToGPXFile(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray; AFileName: string;\r\n  AMetaData: TTMSFNCMapsGPXMetaData; AWayPoints: TTMSFNCMapsGPXWayPointRecArray);\r\nbegin\r\n  SaveToGPXFile(ACoordinates, AFileName{$IFNDEF LCLLIB}, TEncoding.Default{$ENDIF}, AMetaData, AWayPoints);\r\nend;\r\n\r\n{$IFNDEF LCLLIB}\r\nprocedure TTMSFNCCustomMaps.SaveToGPXFile(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray; AFileName: string\r\n  ;AEncoding: TEncoding);\r\nbegin\r\n  SaveToGPXFile(ACoordinates, AFileName, AEncoding, DefaultGPXMetaData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.SaveToGPXFile(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray; AFileName: string\r\n  ;AEncoding: TEncoding; AMetaData: TTMSFNCMapsGPXMetaData;\r\n  AWayPoints: TTMSFNCMapsGPXWayPointRecArray);\r\nvar\r\n  sl: TStringList;\r\nbegin\r\n  sl := TStringList.Create;\r\n  try\r\n    sl.Text := SaveToGPXText(ACoordinates, AMetaData, AWayPoints);\r\n    sl.SaveToFile(AFileName{$IFNDEF LCLWEBLIB}, AEncoding{$ENDIF});\r\n  finally\r\n    sl.Free;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomMaps.SaveToGPXStream(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray; AStream: TStream);\r\nbegin\r\n  SaveToGPXStream(ACoordinates, AStream{$IFNDEF LCLLIB}, TEncoding.Default{$ENDIF}, DefaultGPXMetaData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.SaveToGPXStream(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray; AStream: TStream;\r\n  AMetaData: TTMSFNCMapsGPXMetaData; AWayPoints: TTMSFNCMapsGPXWayPointRecArray);\r\nbegin\r\n  SaveToGPXStream(ACoordinates, AStream{$IFNDEF LCLLIB}, TEncoding.Default{$ENDIF}, AMetaData, AWayPoints);\r\nend;\r\n\r\n{$IFNDEF LCLLIB}\r\nprocedure TTMSFNCCustomMaps.SaveToGPXStream(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray; AStream: TStream;\r\n  AEncoding: TEncoding);\r\nbegin\r\n  SaveToGPXStream(ACoordinates, AStream, AEncoding, DefaultGPXMetaData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.SaveToGPXStream(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray; AStream: TStream;\r\n  AEncoding: TEncoding; AMetaData: TTMSFNCMapsGPXMetaData;\r\n  AWayPoints: TTMSFNCMapsGPXWayPointRecArray);\r\nvar\r\n  ss: TStringStream;\r\nbegin\r\n  ss := TStringStream.Create(SaveToGPXText(ACoordinates, AMetaData, AWayPoints), AEncoding);\r\n  try\r\n    AStream.CopyFrom(ss, ss.Size);\r\n  finally\r\n    ss.Free;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TTMSFNCCustomMaps.SaveToGPXText(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray): string;\r\nbegin\r\n  Result := SaveToGPX(ACoordinates, DefaultGPXMetaData);\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.SaveToGPXText(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray;\r\n  AMetaData: TTMSFNCMapsGPXMetaData; AWayPoints: TTMSFNCMapsGPXWayPointRecArray): string;\r\nbegin\r\n  Result := SaveToGPX(ACoordinates, AMetaData, True, True, '', AWayPoints);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.SetAPIKey(const Value: string);\r\nbegin\r\n  if FAPIKey <> Value then\r\n  begin\r\n    FAPIKey := Value;\r\n    MapInitialized := False;\r\n    InitializeHTML;\r\n  end;\r\nend;\r\n\r\n{$IFDEF WEBLIB}\r\nprocedure TTMSFNCCustomMaps.SetName(const NewName: TComponentName);\r\nbegin\r\n  DestroyMap;\r\n  FMapInitialized := False;\r\n  inherited;\r\n\r\n  if FUpdateCount > 0 then\r\n    Exit;\r\n\r\n  InitializeMap;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCCustomMaps.SetHeadLinks(const Value: TTMSFNCMapsHeadLinks);\r\nbegin\r\n  FHeadLinks.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.SetHeatMaps(const Value: TTMSFNCMapsHeatMaps);\r\nbegin\r\n  FHeatMaps.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.SetService(const Value: TTMSFNCMapsService);\r\nbegin\r\n  if FService <> Value then\r\n  begin\r\n    DestroyMap;\r\n    FService := Value;\r\n    if (Assigned(RouteCalculator) and (not (Service in [msGoogleMaps, msOpenLayers, msHere, msMapBox, msTomTom, msBingMaps]))) then\r\n      raise Exception.Create('The TTMSFNCRouteCalculator is not compatible with the selected mapping service.');\r\n    MapInitialized := False;\r\n    InitializeMap;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.SetOptions(const Value: TTMSFNCMapsOptions);\r\nbegin\r\n  FOptions.Assign(Value);\r\nend;\r\n\r\ndestructor TTMSFNCCustomMaps.Destroy;\r\nbegin\r\n  DestroyMap;\r\n  MapInitialized := False;\r\n  FOptions.Free;\r\n  FMarkers.Free;\r\n  FHeatMaps.Free;\r\n  FElementContainers.Free;\r\n  FLabels.Free;\r\n  FPolygons.Free;\r\n  FCircles.Free;\r\n  FRectangles.Free;\r\n  FPolylines.Free;\r\n  FHeadLinks.Free;\r\n\r\n  {$IFNDEF WEBLIB}\r\n  if Assigned(FMaps) then\r\n    FMaps.DestroyMaps;\r\n  {$ENDIF}\r\n\r\n  FMaps := nil;\r\n  FMapsInstance := nil;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.DestroyMap;\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  RemoveStyles;\r\n  RemoveScripts;\r\n  {$ENDIF}\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.EndUpdate;\r\nbegin\r\n  inherited;\r\n  Dec(FUpdateCount);\r\n  if FUpdateCount = 0 then\r\n  begin\r\n    if not MapInitialized then\r\n      InitializeMap;\r\n    UpdatePolyElements;\r\n    UpdateMarkers;\r\n    UpdateElementContainers;\r\n    UpdateOptions;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.FindNearestPolylineCoordinate(\r\n  ACoordinate: TTMSFNCMapsCoordinateRec; AMaxDistance: Double;\r\n  var APolylineIndex, ACoordinateIndex: Integer; var ACoordinateRec: TTMSFNCMapsCoordinateRec): Boolean;\r\nvar\r\n  I, nc: Integer;\r\n  c: TTMSFNCMapsCoordinateRec;\r\n  MinDistance, md: Double;\r\nbegin\r\n  Result := False;\r\n  MinDistance := -1;\r\n  for I := 0 to FPolylines.Count - 1 do\r\n  begin\r\n    nc := FindNearestCoordinate(ACoordinate, FPolylines[I].Coordinates.ToArray);\r\n    c := FPolylines[I].Coordinates[nc].Coordinate.ToRec;\r\n    md := MeasureDistance(ACoordinate, c);\r\n    if ((AMaxDistance >= md) or (AMaxDistance < 0)) and ((md < MinDistance) or (MinDistance < 0)) then\r\n    begin\r\n      MinDistance := md;\r\n      APolylineIndex := I;\r\n      ACoordinateIndex := nc;\r\n      ACoordinateRec := c;\r\n      Result := True;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.SetPolylines(const Value: TTMSFNCMapsPolylines);\r\nbegin\r\n  FPolylines.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.SetPolygons(const Value: TTMSFNCMapsPolygons);\r\nbegin\r\n  FPolygons.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.SetRectangles(const Value: TTMSFNCMapsRectangles);\r\nbegin\r\n  FRectangles.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.SetRouteCalculator(\r\n  const Value: TTMSFNCRouteCalculator);\r\nbegin\r\n  FRouteCalculator := Value;\r\n  if Assigned(FRouteCalculator) and not Assigned(TTMSFNCMapsRouteCalculatorOpen(RouteCalculator).OnCalculateRouteInternal) then\r\n    TTMSFNCMapsRouteCalculatorOpen(RouteCalculator).OnCalculateRouteInternal := {$IFDEF LCLLIB}@{$ENDIF}RouteCalculatorDoCalculateRoute;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.SetCircles(const Value: TTMSFNCMapsCircles);\r\nbegin\r\n  FCircles.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.SetElementContainers(\r\n  const Value: TTMSFNCMapsElementContainers);\r\nbegin\r\n  FElementContainers.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.SetLabels(const Value: TTMSFNCMapsLabels);\r\nbegin\r\n  FLabels.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.SetLibraryLocation(\r\n  const Value: TTMSFNCMapsLibraryLocation);\r\nbegin\r\n  if FLibraryLocation <> Value then\r\n  begin\r\n    FLibraryLocation := Value;\r\n    FMapInitialized := False;\r\n    InitializeHTML;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.SetLocalFileAccess(const Value: Boolean);\r\nbegin\r\n  if FLocalFileAccess <> Value then\r\n  begin\r\n    FLocalFileAccess := Value;\r\n    FMapInitialized := False;\r\n    InitializeHTML;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.SetMapInitialized(const Value: Boolean);\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  if MapInitialized and not Value then\r\n    ExecuteJavaScript('ResetMap();');\r\n  {$ENDIF}\r\n\r\n  FMapInitialized := Value;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.SetMarkers(const Value: TTMSFNCMapsMarkers);\r\nbegin\r\n  FMarkers.Assign(Value);\r\nend;\r\n\r\n{ TTMSFNCMapsFactoryService }\r\n\r\nconstructor TTMSFNCMapsFactoryService.Create;\r\nbegin\r\n  inherited Create;\r\n  FMaps := TTMSFNCMapsList.Create;\r\nend;\r\n\r\nfunction TTMSFNCMapsFactoryService.CreateMaps: ITMSFNCCustomMaps;\r\nbegin\r\n  Result := DoCreateMaps;\r\n  FMaps.Add(Result);\r\nend;\r\n\r\ndestructor TTMSFNCMapsFactoryService.Destroy;\r\nbegin\r\n  FreeAndNil(FMaps);\r\n  inherited Destroy;\r\nend;\r\n\r\nprocedure TTMSFNCMapsFactoryService.DestroyMaps(AMaps: ITMSFNCCustomMaps);\r\nbegin\r\n  FMaps.Remove(AMaps);\r\nend;\r\n\r\n{ TTMSFNCMapsPlatformServices }\r\n\r\nprocedure TTMSFNCMapsPlatformServices.AddPlatformService(const AServiceGUID: TGUID; const AService: IInterface);\r\nvar\r\n  LService: IInterface;\r\nbegin\r\n  if not FServicesList.ContainsKey(GUIDToString(AServiceGUID)) then\r\n  begin\r\n    if Supports(AService, AServiceGUID, LService) then\r\n      FServicesList.Add(TTMSFNCMapsPlatformServicesService.Create(GUIDToString(AServiceGUID), AService));\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCMapsPlatformServices.Create;\r\nbegin\r\n  inherited;\r\n  FServicesList := TTMSFNCMapsPlatformServicesList.Create;\r\nend;\r\n\r\ndestructor TTMSFNCMapsPlatformServices.Destroy;\r\nbegin\r\n  FreeAndNil(FServicesList);\r\n  inherited;\r\nend;\r\n\r\n{$IFNDEF AUTOREFCOUNT}\r\nclass procedure TTMSFNCMapsPlatformServices.ReleaseCurrent;\r\nbegin\r\n  FreeAndNil(FCurrent);\r\n  FCurrentReleased := True;\r\nend;\r\n{$ENDIF}\r\n\r\nclass function TTMSFNCMapsPlatformServices.Current: TTMSFNCMapsPlatformServices;\r\nbegin\r\n  if (FCurrent = nil) and not FCurrentReleased then\r\n    FCurrent := TTMSFNCMapsPlatformServices.Create;\r\n  Result := FCurrent;\r\nend;\r\n\r\nfunction TTMSFNCMapsPlatformServices.GetPlatformService(const AServiceGUID: TGUID): IInterface;\r\nvar\r\n  k: IInterface;\r\nbegin\r\n  k := FServicesList.Interfaces[GUIDToString(AServiceGUID)];\r\n  Supports(k, AServiceGUID, Result);\r\nend;\r\n\r\nprocedure TTMSFNCMapsPlatformServices.RemovePlatformService(const AServiceGUID: TGUID);\r\nbegin\r\n  FServicesList.RemoveByGUID(GUIDToString(AServiceGUID));\r\nend;\r\n\r\nfunction TTMSFNCMapsPlatformServices.SupportsPlatformService(const AServiceGUID: TGUID;\r\n  var AService: IInterface): Boolean;\r\nbegin\r\n  if FServicesList.ContainsKey(GUIDToString(AServiceGUID)) then\r\n    Result := Supports(FServicesList.Interfaces[GUIDToString(AServiceGUID)], AServiceGUID, AService)\r\n  else\r\n  begin\r\n    AService := nil;\r\n    Result := False;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCMapsPlatformServices.SupportsPlatformService(const AServiceGUID: TGUID): Boolean;\r\nbegin\r\n  Result := FServicesList.ContainsKey(GUIDToString(AServiceGUID));\r\nend;\r\n\r\n{ TTMSFNCMapsPlatformServicesService }\r\n\r\nconstructor TTMSFNCMapsPlatformServicesService.Create(AGUID: string;\r\n  AInterface: IInterface);\r\nbegin\r\n  FGUID := AGUID;\r\n  FInterface := AInterface;\r\nend;\r\n\r\n{ TTMSFNCMapsPlatformServicesList }\r\n\r\nfunction TTMSFNCMapsPlatformServicesList.ContainsKey(AGUID: string): Boolean;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := False;\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    if Items[I].GUID = AGUID then\r\n    begin\r\n      Result := True;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCMapsPlatformServicesList.GetValue(AGUID: string): IInterface;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := nil;\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    if Items[I].GUID = AGUID then\r\n    begin\r\n      Result := Items[I].&Interface;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsPlatformServicesList.RemoveByGUID(AGUID: string);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := Count - 1 downto 0 do\r\n  begin\r\n    if Items[I].GUID = AGUID then\r\n    begin\r\n      Remove(Items[I]);\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{$IFDEF WEBLIB}\r\nfunction TTMSFNCMapsPlatformServicesList.GetItem(Index: Integer): TTMSFNCMapsPlatformServicesService;\r\nbegin\r\n  Result := TTMSFNCMapsPlatformServicesService(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCMapsPlatformServicesList.SetItem(Index: Integer; const Value: TTMSFNCMapsPlatformServicesService);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nfunction TTMSFNCMapsList.GetItem(Index: Integer): ITMSFNCCustomMaps;\r\nbegin\r\n  Result := ITMSFNCCustomMaps(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCMapsList.SetItem(Index: Integer; const Value: ITMSFNCCustomMaps);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nfunction TTMSFNCMapsLinksList.GetItem(Index: Integer): TTMSFNCMapsLink;\r\nbegin\r\n  Result := TTMSFNCMapsLink(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCMapsLinksList.SetItem(Index: Integer; const Value: TTMSFNCMapsLink);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n{$ENDIF}\r\n\r\n{ TTMSFNCMapsOptions }\r\n\r\nprocedure TTMSFNCMapsOptions.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTMSFNCMapsOptions) then\r\n  begin\r\n    FDefaultLongitude := (Source as TTMSFNCMapsOptions).DefaultLongitude;\r\n    FDefaultLatitude := (Source as TTMSFNCMapsOptions).DefaultLatitude;\r\n    FConsole := (Source as TTMSFNCMapsOptions).Console;\r\n    FShowZoomControl := (Source as TTMSFNCMapsOptions).ShowZoomControl;\r\n    FShowMapTypeControl := (Source as TTMSFNCMapsOptions).ShowMapTypeControl;\r\n    FZoomOnDblClick := (Source as TTMSFNCMapsOptions).ZoomOnDblClick;\r\n    FZoomOnWheelScroll := (Source as TTMSFNCMapsOptions).ZoomOnWheelScroll;\r\n    FPanning := (Source as TTMSFNCMapsOptions).Panning;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TTMSFNCMapsOptions.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nconstructor TTMSFNCMapsOptions.Create;\r\nbegin\r\n  FZoomOnDblClick := True;\r\n  FDefaultLatitude := DEFAULT_LATITUDE;\r\n  FDefaultLongitude := DEFAULT_LONGITUDE;\r\n  FDefaultZoomLevel := DEFAULT_ZOOMLEVEL;\r\n  FShowZoomControl := True;\r\n  FShowMapTypeControl := True;\r\n  FLocale := DEFAULT_LOCALE;\r\n  FZoomOnWheelScroll := True;\r\n  FPanning := True;\r\nend;\r\n\r\nfunction TTMSFNCMapsOptions.IsDefaultLatitudeStored: Boolean;\r\nbegin\r\n  Result := DefaultLatitude <> DEFAULT_LATITUDE;\r\nend;\r\n\r\nfunction TTMSFNCMapsOptions.IsDefaultLongitudeStored: Boolean;\r\nbegin\r\n  Result := DefaultLongitude <> DEFAULT_LONGITUDE;\r\nend;\r\n\r\nfunction TTMSFNCMapsOptions.IsLocaleStored: Boolean;\r\nbegin\r\n  Result := Locale <> DEFAULT_LOCALE;\r\nend;\r\n\r\nprocedure TTMSFNCMapsOptions.SetBackgroundColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FBackGroundColor <> Value then\r\n  begin\r\n    FBackgroundColor := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsOptions.SetConsole(const Value: Boolean);\r\nbegin\r\n  if FConsole <> Value then\r\n  begin\r\n    FConsole := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsOptions.SetDefaultLatitude(const Value: Double);\r\nbegin\r\n  if FDefaultLatitude <> Value then\r\n  begin\r\n    FDefaultLatitude := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsOptions.SetDefaultLongitude(const Value: Double);\r\nbegin\r\n  if FDefaultLongitude <> Value then\r\n  begin\r\n    FDefaultLongitude := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsOptions.SetDefaultZoomLevel(const Value: Double);\r\nbegin\r\n  if FDefaultZoomLevel <> Value then\r\n  begin\r\n    FDefaultZoomLevel := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsOptions.SetLocale(const Value: string);\r\nbegin\r\n  if FLocale <> Value then\r\n  begin\r\n    FLocale := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsOptions.SetPanning(const Value: Boolean);\r\nbegin\r\n  if FPanning <> Value then\r\n  begin\r\n    FPanning := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsOptions.SetShowMapTypeControl(const Value: Boolean);\r\nbegin\r\n  if FShowMapTypeControl <> Value then\r\n  begin\r\n    FShowMapTypeControl := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsOptions.SetShowZoomControl(const Value: Boolean);\r\nbegin\r\n  if FShowZoomControl <> Value then\r\n  begin\r\n    FShowZoomControl := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsOptions.SetZoomOnDblClick(const Value: Boolean);\r\nbegin\r\n  if FZoomOnDblClick <> Value then\r\n  begin\r\n    FZoomOnDblClick := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsOptions.SetZoomOnWheelScroll(const Value: Boolean);\r\nbegin\r\n  if FZoomOnWheelScroll <> Value then\r\n  begin\r\n    FZoomOnWheelScroll := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCCustomMapsInterfacedObject }\r\n\r\ndestructor TTMSFNCCustomMapsInterfacedObject.Destroy;\r\nbegin\r\n  FMapsProperties := nil;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCCustomMapsInterfacedObject.GetMapsProperties: ITMSFNCCustomMapsProperties;\r\nbegin\r\n  Result := FMapsProperties;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMapsInterfacedObject.SetMapsProperties(\r\n  const Value: ITMSFNCCustomMapsProperties);\r\nbegin\r\n  FMapsProperties := Value;\r\nend;\r\n\r\n{ TTMSFNCCustomMaps }\r\n\r\nfunction TTMSFNCCustomMaps.CanLoadDefaultHTML: Boolean;\r\nbegin\r\n  Result := False;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetDefaultLatitude: string;\r\nbegin\r\n  Result := TTMSFNCUtils.FloatToStrDot(Options.DefaultLatitude);\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetDefaultLongitude: string;\r\nbegin\r\n  Result := TTMSFNCUtils.FloatToStrDot(Options.DefaultLongitude);\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetDefaultZoomLevel: string;\r\nbegin\r\n  Result := FloatToStr(Options.DefaultZoomLevel);\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.AddPolyline(ACoordinates: TTMSFNCMapsCoordinateRecArray; AClose: Boolean = False): TTMSFNCMapsPolyline;\r\nvar\r\n  I: Integer;\r\n  co: TTMSFNCMapsCoordinateItem;\r\nbegin\r\n  Result := nil;\r\n  if Length(ACoordinates) = 0 then\r\n    Exit;\r\n\r\n  BeginUpdate;\r\n  Result := Polylines.Add;\r\n  for I := 0 to Length(ACoordinates) - 1 do\r\n  begin\r\n    co := Result.Coordinates.Add;\r\n    co.Coordinate.Longitude := ACoordinates[I].Longitude;\r\n    co.Coordinate.Latitude := ACoordinates[I].Latitude;\r\n  end;\r\n\r\n  if AClose then\r\n  begin\r\n    co := Result.Coordinates.Add;\r\n    co.Assign(Result.Coordinates[0]);\r\n  end;\r\n  EndUpdate;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.AddPolygon(ACoordinates: TTMSFNCMapsCoordinateRecArray; AClose: Boolean = False): TTMSFNCMapsPolygon;\r\nvar\r\n  I: Integer;\r\n  co: TTMSFNCMapsCoordinateItem;\r\nbegin\r\n  Result := nil;\r\n  if Length(ACoordinates) = 0 then\r\n    Exit;\r\n\r\n  BeginUpdate;\r\n  Result := Polygons.Add;\r\n  for I := 0 to Length(ACoordinates) - 1 do\r\n  begin\r\n    co := Result.Coordinates.Add;\r\n    co.Coordinate.Longitude := ACoordinates[I].Longitude;\r\n    co.Coordinate.Latitude := ACoordinates[I].Latitude;\r\n  end;\r\n\r\n  if AClose then\r\n  begin\r\n    co := Result.Coordinates.Add;\r\n    co.Assign(Result.Coordinates[0]);\r\n  end;\r\n  EndUpdate;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.AddCircle(ACenter: TTMSFNCMapsCoordinateRec; ARadius: Double = 10000): TTMSFNCMapsCircle;\r\nbegin\r\n  BeginUpdate;\r\n  Result := Circles.Add;\r\n  Result.Center.ToRec := ACenter;\r\n  Result.Radius := ARadius;\r\n  EndUpdate;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.ShowPopup(ACoordinate: TTMSFNCMapsCoordinateRec; AText: string; AOffsetX: Double = 0; AOffsetY: Double = 0; APanMap: Boolean = True): string;\r\nvar\r\n  p: TTMSFNCMapsPopup;\r\nbegin\r\n  p := TTMSFNCMapsPopup.Create;\r\n  try\r\n    Result := p.ID;\r\n    p.Text := AText;\r\n    p.OffsetX := AOffsetX;\r\n    p.OffsetY := AOffsetY;\r\n    p.Coordinate.ToRec := ACoordinate;\r\n    p.PanMap := APanMap;\r\n    ExecuteJavaScript(SHOWPOPUPFUNCTION + '(' + p.JSON + ')');\r\n  finally\r\n    p.Free;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.ShowPopup(ALatitude: Double; ALongitude: Double; AText: string; AOffsetX: Double = 0; AOffsetY: Double = 0; APanMap: Boolean = True): string;\r\nbegin\r\n  Result := ShowPopup(CreateCoordinate(ALatitude, ALongitude), AText, AOffsetX, AOffsetY, APanMap);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.SyncLabels(\r\n  ACollection: TTMSFNCMapsElementContainers);\r\nvar\r\n  l: TTMSFNCMapsLabel;\r\n  el: TTMSFNCMapsElementContainer;\r\n  I: Integer;\r\n  style: string;\r\nbegin\r\n  for I := 0 to Labels.Count - 1 do\r\n  begin\r\n    l := Labels[I];\r\n    el := ACollection.Add;\r\n    el.HTMLElementID := 'ElementContainerLabel' + IntToStr(I);\r\n    el.Visible := l.Visible;\r\n    el.HTML.Text := l.Text;\r\n    el.LabelType := l.LabelType;\r\n\r\n    el.Coordinate.Assign(l.Coordinate);\r\n    el.Bounds.Assign(l.Bounds);\r\n\r\n    if l.Position = ptCoordinate then\r\n      el.Position := poCoordinate\r\n    else if l.Position = ptBounds then\r\n      el.Position := poBounds;\r\n\r\n    style := '';\r\n\r\n    if l.BackgroundColor <> gcNull then\r\n    begin\r\n      style := style + 'background-color:' + TTMSFNCGraphics.ColorToHTML(l.BackgroundColor) + ';';\r\n      style := style + 'padding:5px;border-radius:5px;';\r\n    end\r\n    else\r\n    begin\r\n      style := style + 'text-shadow:-1px -1px 0 rgba(255,255,255, 0.5),1px -1px 0 rgba(255,255,255, 0.5),-1px 1px 0 rgba(255,255,255, 0.5),1px 1px 0 rgba(255,255,255, 0.5);';\r\n    end;\r\n\r\n    if l.BorderColor <> gcNull then\r\n    begin\r\n      style := style + 'border-color: ' + TTMSFNCGraphics.ColorToHTML(l.BorderColor) + ';';\r\n      if l.BorderWidth > 0 then\r\n      begin\r\n        style := style + 'border-style:solid;';\r\n        style := style + 'border-width:' + IntToStr(l.BorderWidth) + 'px;';\r\n      end;\r\n    end;\r\n\r\n    if l.Font.Color <> gcNull then\r\n    begin\r\n      style := style + 'color:' + TTMSFNCGraphics.ColorToHTML(l.Font.Color) + ';';\r\n    end;\r\n\r\n    if l.Font.Name <> '' then\r\n    begin\r\n      style := style + 'font-family:\"' + l.Font.Name + '\";';\r\n    end\r\n    else\r\n    begin\r\n      style := style + 'font-family:\"Roboto\";';\r\n    end;\r\n\r\n    {$IFNDEF LCLWEBLIB}\r\n    if TFontStyle.fsBold in l.Font.Style then\r\n    begin\r\n      style := style + 'font-weight:bold;'\r\n    end;\r\n\r\n    if TFontStyle.fsItalic in l.Font.Style then\r\n    begin\r\n      style := style + 'font-style:italic;'\r\n    end;\r\n\r\n    if TFontStyle.fsUnderline in l.Font.Style then\r\n    begin\r\n      style := style + 'text-decoration:underline;'\r\n    end;\r\n\r\n    if TFontStyle.fsStrikeOut in l.Font.Style then\r\n    begin\r\n      style := style + 'text-decoration-line:line-through;'\r\n    end;\r\n    {$ENDIF}\r\n\r\n    style := style + 'font-size:' + TTMSFNCUtils.FloatToStrDot(l.Font.Size) + 'px;';\r\n\r\n    el.Style.Text := '.' + el.HTMLElementID + '{' + style + '}';\r\n    el.HTMLElementClassName := el.HTMLElementID;\r\n    el.UseDefaultStyle := False;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.CloseAllPopups;\r\nbegin\r\n  ExecuteJavaScript(GETPOPUPARRAYVAR, {$IFDEF LCLWEBLIB}@{$ENDIF}DoCloseAllPopups);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.ClosePopup(AID: string);\r\nbegin\r\n  ExecuteJavaScript(CLOSEPOPUPFUNCTION + '({\"ID\": \"' + AID + '\"})');\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.AddRectangle(ABounds: TTMSFNCMapsBoundsRec): TTMSFNCMapsRectangle;\r\nbegin\r\n  BeginUpdate;\r\n  Result := Rectangles.Add;\r\n  Result.Bounds.ToRec := ABounds;\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.ConnectMarkers(AMarkersArray: TTMSFNCMapsMarkersArray);\r\nvar\r\n  I: Integer;\r\n  arr: TTMSFNCMapsCoordinateRecArray;\r\nbegin\r\n  BeginUpdate;\r\n  if Length(AMarkersArray) <= 1 then\r\n    Exit;\r\n\r\n  for I := 0 to Length(AMarkersArray) - 2 do\r\n  begin\r\n    SetLength(arr, Length(arr) + 1);\r\n    arr[Length(arr) - 1] := AMarkersArray[I].Coordinate.ToRec;\r\n    SetLength(arr, Length(arr) + 1);\r\n    arr[Length(arr) - 1] := AMarkersArray[I + 1].Coordinate.ToRec;\r\n  end;\r\n\r\n  SetLength(arr, Length(arr) + 1);\r\n  arr[Length(arr) - 1] := AMarkersArray[Length(AMarkersArray) - 1].Coordinate.ToRec;\r\n  SetLength(arr, Length(arr) + 1);\r\n  arr[Length(arr) - 1] := AMarkersArray[0].Coordinate.ToRec;\r\n\r\n  AddPolyline(arr);\r\n\r\n  EndUpdate;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.AddElementContainer(AHTML, AStyle, AScript: TStrings;\r\n  APosition: TTMSFNCMapsPosition; AHTMLElementID: string): TTMSFNCMapsElementContainer;\r\nbegin\r\n  BeginUpdate;\r\n  Result := ElementContainers.Add;\r\n  if Assigned(AHTML) then\r\n    Result.HTML.Assign(AHTML);\r\n  if Assigned(AStyle) then\r\n    Result.Style.Assign(AStyle);\r\n  if Assigned(AScript) then\r\n    Result.Script.Assign(AScript);\r\n  Result.Position := APosition;\r\n  if AHTMLElementID <> '' then\r\n    Result.HTMLElementID := AHTMLElementID;\r\n  EndUpdate;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.AddHeadLink(AURL: string; AKind: TTMSFNCMapsLinkKind;\r\n  ARel: string): TTMSFNCMapsHeadLink;\r\nbegin\r\n  BeginUpdate;\r\n  Result := HeadLinks.Add;\r\n  Result.URL := AURL;\r\n  Result.Kind := AKind;\r\n  Result.Rel := ARel;\r\n  EndUpdate;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.AddHeatMap(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray): TTMSFNCMapsHeatMap;\r\nvar\r\n  I: Integer;\r\n  wc: TTMSFNCMapsWeightedCoordinate;\r\nbegin\r\n  BeginUpdate;\r\n  Result := HeatMaps.Add;\r\n  for I := 0 to Length(ACoordinates) - 1 do\r\n  begin\r\n    wc := Result.WeightedCoordinates.Add;\r\n    wc.Coordinate.Latitude := ACoordinates[I].Latitude;\r\n    wc.Coordinate.Longitude := ACoordinates[I].Longitude;\r\n    wc.Weight := ACoordinates[I].Weight;\r\n  end;\r\n  EndUpdate;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.AddLabel(ALatitude, ALongitude: Double;\r\n  AText: string; AFontColor: TTMSFNCGraphicsColor = gcNull; ABackgroundColor: TTMSFNCGraphicsColor = gcNull): TTMSFNCMapsLabel;\r\nbegin\r\n  BeginUpdate;\r\n  Result := Labels.Add;\r\n  Result.Text := AText;\r\n  Result.Coordinate.Longitude := ALongitude;\r\n  Result.Coordinate.Latitude := ALatitude;\r\n  Result.BackgroundColor := ABackgroundColor;\r\n  Result.Font.Color := AFontColor;\r\n  Result.Position := ptCoordinate;\r\n  EndUpdate;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.AddLabel(ANorthEastLatitude, ANorthEastLongitude,\r\n  ASouthWestLatitude, ASouthWestLongitude: Double; AText: string; AFontColor,\r\n  ABackgroundColor: TTMSFNCGraphicsColor): TTMSFNCMapsLabel;\r\nbegin\r\n  BeginUpdate;\r\n  Result := Labels.Add;\r\n  Result.Text := AText;\r\n  Result.Bounds.NorthEast.Longitude := ANorthEastLongitude;\r\n  Result.Bounds.NorthEast.Latitude := ANorthEastLatitude;\r\n  Result.Bounds.SouthWest.Longitude := ASouthWestLongitude;\r\n  Result.Bounds.SouthWest.Latitude := ASouthWestLatitude;\r\n  Result.BackgroundColor := ABackgroundColor;\r\n  Result.Font.Color := AFontColor;\r\n  Result.Position := ptBounds;\r\n  EndUpdate;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.AddLabel(ABounds: TTMSFNCMapsBoundsRec; AText: string;\r\n  AFontColor, ABackgroundColor: TTMSFNCGraphicsColor): TTMSFNCMapsLabel;\r\nbegin\r\n  Result := AddLabel(ABounds.NorthEast.Latitude, ABounds.NorthEast.Longitude, ABounds.SouthWest.Latitude, ABounds.SouthWest.Longitude, AText, AFontColor, ABackgroundColor);\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.AddLabel(ACoordinate: TTMSFNCMapsCoordinateRec;\r\n  AText: string; AFontColor: TTMSFNCGraphicsColor = gcNull; ABackgroundColor: TTMSFNCGraphicsColor = gcNull): TTMSFNCMapsLabel;\r\nbegin\r\n  Result := AddLabel(ACoordinate.Latitude, ACoordinate.Longitude, AText, AFontColor, ABackgroundColor);\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.AddMarker(ALatitude: Double; ALongitude: Double; ATitle: string = ''; AIconURL: string = ''): TTMSFNCMapsMarker;\r\nbegin\r\n  BeginUpdate;\r\n  Result := Markers.Add;\r\n  Result.Title := ATitle;\r\n  Result.Coordinate.Longitude := ALongitude;\r\n  Result.Coordinate.Latitude := ALatitude;\r\n  Result.IconURL := AIconURL;\r\n  EndUpdate;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.AddMarker(ACoordinate: TTMSFNCMapsCoordinateRec; ATitle: string = ''; AIconURL: string = ''): TTMSFNCMapsMarker;\r\nbegin\r\n  Result := AddMarker(ACoordinate.Latitude, ACoordinate.Longitude, ATitle, AIconURL);\r\nend;\r\n\r\n{ TTMSFNCMapsMarker }\r\n\r\nprocedure TTMSFNCMapsMarker.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCMapsMarker then\r\n  begin\r\n    FCoordinate.Assign((Source as TTMSFNCMapsMarker).Coordinate);\r\n    FTitle := (Source as TTMSFNCMapsMarker).Title;\r\n    FIconURL := (Source as TTMSFNCMapsMarker).IconURL;\r\n    FVisible := (Source as TTMSFNCMapsMarker).Visible;\r\n    FDefaultIcon.Assign((Source as TTMSFNCMapsMarker).DefaultIcon);\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCMapsMarker.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(ACollection) then\r\n    FOwner := (Collection as TTMSFNCMapsMarkers).FOwner;\r\n\r\n  FTitle := DEFAULT_MARKERTEXT;\r\n  FCoordinate := TTMSFNCMapsCoordinate.Create;\r\n  FCoordinate.OnChange := @CoordinateChanged;\r\n  FVisible := True;\r\n  FUseDefaultMarkerIcon := False;\r\n  FDefaultMarkerIconColor := gcRed;\r\n  FDefaultMarkerIconSize := 32;\r\n  FDefaultIcon := TTMSFNCMapsMarkerIcon.Create(Self);\r\n\r\n  UpdateMarker;\r\nend;\r\n\r\ndestructor TTMSFNCMapsMarker.Destroy;\r\nbegin\r\n  FCoordinate.Free;\r\n  FDefaultIcon.Free;\r\n  inherited;\r\n  UpdateMarker;\r\nend;\r\n\r\nfunction TTMSFNCMapsMarker.GetID: string;\r\nbegin\r\n  if (FID = '') or FRecreate then\r\n    FID := CreateNewGUID;\r\n\r\n  FRecreate := False;\r\n  Result := FID;\r\nend;\r\n\r\nfunction TTMSFNCMapsMarker.GetLatitude: Double;\r\nbegin\r\n  Result := Coordinate.Latitude;\r\nend;\r\n\r\nfunction TTMSFNCMapsMarker.GetLongitude: Double;\r\nbegin\r\n  Result := Coordinate.Longitude;\r\nend;\r\n\r\nfunction TTMSFNCMapsMarker.IsIconURLStored: Boolean;\r\nbegin\r\n  Result := IconURL <> '';\r\nend;\r\n\r\nfunction TTMSFNCMapsMarker.IsLatitudeStored: Boolean;\r\nbegin\r\n  Result := Latitude <> DEFAULT_LATITUDE;\r\nend;\r\n\r\nfunction TTMSFNCMapsMarker.IsLongitudeStored: Boolean;\r\nbegin\r\n  Result := Longitude <> DEFAULT_LONGITUDE;\r\nend;\r\n\r\nfunction TTMSFNCMapsMarker.IsTitleStored: Boolean;\r\nbegin\r\n  Result := Title <> DEFAULT_MARKERTEXT;\r\nend;\r\n\r\nprocedure TTMSFNCMapsMarker.CoordinateChanged(Sender: TObject);\r\nbegin\r\n  UpdateMarker;\r\nend;\r\n\r\nprocedure TTMSFNCMapsMarker.SetCoordinate(const Value: TTMSFNCMapsCoordinate);\r\nbegin\r\n  if FCoordinate <> Value then\r\n  begin\r\n    FCoordinate.Assign(Value);\r\n    UpdateMarker;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsMarker.SetDefaultIcon(const Value: TTMSFNCMapsMarkerIcon);\r\nbegin\r\n  if FDefaultIcon <> Value then\r\n  begin\r\n    FDefaultIcon.Assign(Value);\r\n    UpdateMarker\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsMarker.SetIconURL(const Value: string);\r\nbegin\r\n  if FIconURL <> Value then\r\n  begin\r\n    FIconURL := Value;\r\n    UpdateMarker;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsMarker.SetLatitude(const Value: Double);\r\nbegin\r\n  Coordinate.Latitude := Value;\r\nend;\r\n\r\nprocedure TTMSFNCMapsMarker.SetLongitude(const Value: Double);\r\nbegin\r\n  Coordinate.Longitude := Value;\r\nend;\r\n\r\nprocedure TTMSFNCMapsMarker.SetTitle(const Value: string);\r\nbegin\r\n  if FTitle <> Value then\r\n  begin\r\n    FTitle := Value;\r\n    UpdateMarker;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsMarker.SetVisible(const Value: Boolean);\r\nbegin\r\n  if FVisible <> Value then\r\n  begin\r\n    FVisible := Value;\r\n    UpdateMarker;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsMarker.UpdateMarker;\r\nbegin\r\n  FReload := True;\r\n  if Assigned(FOwner) then\r\n    FOwner.UpdateMarkers;\r\nend;\r\n\r\n{ TTMSFNCMapsMarkers }\r\n\r\nfunction TTMSFNCMapsMarkers.Add: TTMSFNCMapsMarker;\r\nbegin\r\n  Result := TTMSFNCMapsMarker(inherited Add);\r\nend;\r\n\r\nprocedure TTMSFNCMapsMarkers.Clear;\r\nvar\r\n  l: TTMSFNCCustomMaps;\r\n  ci: TCollectionItem;\r\nbegin\r\n  l := FOwner;\r\n  if Assigned(l) then\r\n    l.BeginUpdate;\r\n\r\n  if Count > 0 then\r\n  begin\r\n    while Count > 0 do\r\n    begin\r\n      ci := TCollectionItem(Items[Count - 1]);\r\n      ci.Free;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(l) then\r\n    l.EndUpdate;\r\nend;\r\n\r\nconstructor TTMSFNCMapsMarkers.Create(AOwner: TTMSFNCCustomMaps);\r\nbegin\r\n  inherited Create(AOwner, CreateItemClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCMapsMarkers.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCMapsMarker;\r\nend;\r\n\r\nfunction TTMSFNCMapsMarkers.GetItem(\r\n  Index: Integer): TTMSFNCMapsMarker;\r\nbegin\r\n  Result := TTMSFNCMapsMarker(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCMapsMarkers.GetItemByID(ID: string): TTMSFNCMapsMarker;\r\nvar\r\n  I: Integer;\r\n  m: TTMSFNCMapsMarker;\r\nbegin\r\n  Result := nil;\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    m := Items[I];\r\n    if m.ID = ID then\r\n    begin\r\n      Result := m;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCMapsMarkers.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCMapsMarkers.Insert(\r\n  Index: Integer): TTMSFNCMapsMarker;\r\nbegin\r\n  Result := TTMSFNCMapsMarker(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCMapsMarkers.Recreate;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to Count - 1 do\r\n    Items[I].Recreate := True;\r\nend;\r\n\r\nprocedure TTMSFNCMapsMarkers.SetItem(Index: Integer;\r\n  const Value: TTMSFNCMapsMarker);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nfunction TTMSFNCMapsMarkers.ToCoordinateArray: TTMSFNCMapsCoordinateRecArrayArray;\r\nvar\r\n  I: Integer;\r\n  arr: TTMSFNCMapsCoordinateRecArray;\r\nbegin\r\n  SetLength(Result, Count);\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    SetLength(arr, 1);\r\n    arr[0] := Items[I].Coordinate.ToRec;\r\n    Result[I] := arr;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCMapsPolyline }\r\n\r\nfunction TTMSFNCMapsPolyline.Distance: Double;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := 0;\r\n  for I := 0 to Coordinates.Count - 2 do\r\n  begin\r\n    Result := Result + MeasureDistance(Coordinates[I].Coordinate.ToRec, Coordinates[I + 1].Coordinate.ToRec);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolyline.Merge(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray);\r\nvar\r\n  I: Integer;\r\n  c: TTMSFNCMapsCoordinateItem;\r\nbegin\r\n  for I := 0 to Length(ACoordinates) - 1 do\r\n  begin\r\n    c:= Coordinates.Add;\r\n    c.Latitude := ACoordinates[I].Latitude;\r\n    c.Longitude := ACoordinates[I].Longitude;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolyline.Merge(APolyline: TTMSFNCMapsPolyline);\r\nbegin\r\n  if not Assigned(APolyline) then\r\n    Exit;\r\n\r\n  Merge(APolyline.Coordinates.ToArray);\r\nend;\r\n\r\nfunction TTMSFNCMapsPolyline.Segment(AStartIndex,\r\n  AEndIndex: Integer): TTMSFNCMapsPolyline;\r\nvar\r\n  c, cr: TTMSFNCMapsCoordinateRecArray;\r\n  I, J: Integer;\r\nbegin\r\n  Result := nil;\r\n\r\n  if (AStartIndex >= 0) and (AStartIndex < Coordinates.Count) and (AEndIndex >= 0) and (AEndIndex < Coordinates.Count) then\r\n  begin\r\n    if (AStartIndex <= AEndIndex) then\r\n    begin\r\n      c := Copy(Coordinates.ToArray, AStartIndex, AEndIndex - AStartIndex + 1);\r\n      Result := FOwner.AddPolyline(c);\r\n    end\r\n    else\r\n    begin\r\n      c := Copy(Coordinates.ToArray, AEndIndex, AStartIndex - AEndIndex + 1);\r\n\r\n      SetLength(cr, Length(c));\r\n      J := 0;\r\n      for I := Length(c) - 1 downto 0 do\r\n      begin\r\n        cr[J] := c[I];\r\n        J := J + 1;\r\n      end;\r\n      Result := FOwner.AddPolyline(cr);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCMapsPolyline.Segment(AStartCoordinate,\r\n  AEndCoordinate: TTMSFNCMapsCoordinateRec): TTMSFNCMapsPolyline;\r\nvar\r\n  I: Integer;\r\n  StartIndex, EndIndex: Integer;\r\nbegin\r\n  StartIndex := -1;\r\n  EndIndex := -1;\r\n\r\n  for I := 0 to Coordinates.Count - 1 do\r\n  begin\r\n    if SameValue(AStartCoordinate.Latitude, Coordinates[I].Latitude) and SameValue(AStartCoordinate.Longitude, Coordinates[I].Longitude) then\r\n    begin\r\n      StartIndex := I;\r\n    end;\r\n    if SameValue(AEndCoordinate.Latitude, Coordinates[I].Latitude) and SameValue(AEndCoordinate.Longitude, Coordinates[I].Longitude) then\r\n    begin\r\n      EndIndex := I;\r\n    end;\r\n  end;\r\n\r\n  Result := Segment(StartIndex, EndIndex);\r\nend;\r\n\r\nfunction TTMSFNCMapsPolyline.Split(\r\n  AIndex: Integer): TTMSFNCMapsPolyline;\r\nvar\r\n  J: Integer;\r\n  c1, c2: TTMSFNCMapsCoordinateRecArray;\r\n  c: TTMSFNCMapsCoordinateItem;\r\nbegin\r\n  Result := nil;\r\n\r\n  if (AIndex >= 0) and (AIndex < Coordinates.Count) then\r\n  begin\r\n    c2 := Copy(Coordinates.ToArray, AIndex, Length(Coordinates.ToArray));\r\n    Result := FOwner.AddPolyline(c2);\r\n\r\n    c1 := Copy(Coordinates.ToArray, 0, AIndex);\r\n    Coordinates.Clear;\r\n    for J := 0 to Length(c1) - 1 do\r\n    begin\r\n      c := Coordinates.Add;\r\n      c.Latitude := c1[J].Latitude;\r\n      c.Longitude := c1[J].Longitude;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCMapsPolyline.Split(\r\n  ACoordinate: TTMSFNCMapsCoordinateRec): TTMSFNCMapsPolyline;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := nil;\r\n\r\n  for I := 0 to Coordinates.Count - 1 do\r\n  begin\r\n    if SameValue(ACoordinate.Latitude, Coordinates[I].Latitude) and SameValue(ACoordinate.Longitude, Coordinates[I].Longitude) then\r\n    begin\r\n      Result := Split(I);\r\n      Exit;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCMapsPolyElement }\r\n\r\nfunction TTMSFNCMapsPolyElement.AddHole(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray): TTMSFNCMapsPolyElementHole;\r\nvar\r\n  I: Integer;\r\n  co: TTMSFNCMapsCoordinateItem;\r\nbegin\r\n  Result := nil;\r\n  if Length(ACoordinates) = 0 then\r\n    Exit;\r\n\r\n  BeginUpdate;\r\n  Result := Holes.Add;\r\n  for I := 0 to Length(ACoordinates) - 1 do\r\n  begin\r\n    co := Result.Coordinates.Add;\r\n    co.Coordinate.Longitude := ACoordinates[I].Longitude;\r\n    co.Coordinate.Latitude := ACoordinates[I].Latitude;\r\n  end;\r\n  EndUpdate;\r\nend;\r\n\r\nfunction TTMSFNCMapsPolyElement.Area: Double;\r\nbegin\r\n  Result := MeasureArea(FCoordinates.ToArray);\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolyElement.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCMapsPolyElement then\r\n  begin\r\n    FCoordinates.Assign((Source as TTMSFNCMapsPolyElement).Coordinates);\r\n    FStrokeColor := (Source as TTMSFNCMapsPolyElement).StrokeColor;\r\n    FStrokeOpacity := (Source as TTMSFNCMapsPolyElement).StrokeOpacity;\r\n    FStrokeWidth := (Source as TTMSFNCMapsPolyElement).StrokeWidth;\r\n    FVisible := (Source as TTMSFNCMapsPolyElement).Visible;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolyElement.BeginUpdate;\r\nbegin\r\n  if Assigned(FOwner) then\r\n    FOwner.BeginUpdate;\r\nend;\r\n\r\nfunction TTMSFNCMapsPolyElement.ContainsPoint(\r\n  ACoordinate: TTMSFNCMapsCoordinateRec): Boolean;\r\nbegin\r\n  Result := IsPointInArea(ACoordinate.Latitude, ACoordinate.Longitude, FCoordinates.ToArray);\r\nend;\r\n\r\nconstructor TTMSFNCMapsPolyElement.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(ACollection) then\r\n    FOwner := (Collection as TTMSFNCMapsPolyElements).FOwner;\r\n\r\n  FCoordinates := TTMSFNCMapsCoordinates.Create(Self);\r\n  FCoordinates.OnBeginUpdate := DoBeginUpdate;\r\n  FCoordinates.OnEndUpdate := DoEndUpdate;\r\n  FCoordinates.OnUpdateCoordinates := DoUpdateCoordinates;\r\n\r\n  FStrokeColor := gcBlack;\r\n  FStrokeOpacity := 1.0;\r\n  FStrokeWidth := 2;\r\n  FVisible := True;\r\n\r\n  FHoles := TTMSFNCMapsPolyElementHoles.Create(Self);\r\n\r\n  UpdatePolyElement;\r\nend;\r\n\r\ndestructor TTMSFNCMapsPolyElement.Destroy;\r\nbegin\r\n  FCoordinates.Free;\r\n  FHoles.Free;\r\n  inherited;\r\n  UpdatePolyElement;\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolyElement.DoBeginUpdate(Sender: TObject);\r\nbegin\r\n  if Assigned(FOwner) then\r\n    FOwner.BeginUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolyElement.DoEndUpdate(Sender: TObject);\r\nbegin\r\n  if Assigned(FOwner) then\r\n    FOwner.EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolyElement.DoUpdateCoordinates(Sender: TObject);\r\nbegin\r\n  if Assigned(FOwner) then\r\n    FOwner.UpdatePolyElements;\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolyElement.EndUpdate;\r\nbegin\r\n  if Assigned(FOwner) then\r\n    FOwner.EndUpdate;\r\nend;\r\n\r\nfunction TTMSFNCMapsPolyElement.GetID: string;\r\nbegin\r\n  if (FID = '') or FRecreate then\r\n    FID := CreateNewGUID;\r\n  FRecreate := False;\r\n  Result := FID;\r\nend;\r\n\r\nfunction TTMSFNCMapsPolyElement.IsStrokeOpacityStored: Boolean;\r\nbegin\r\n  Result := StrokeOpacity <> 1;\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolyElement.SetStrokeColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FStrokeColor <> Value then\r\n  begin\r\n    FStrokeColor := Value;\r\n    UpdatePolyElement;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolyElement.SetStrokeOpacity(const Value: Single);\r\nbegin\r\n  if FStrokeOpacity <> Value then\r\n  begin\r\n    FStrokeOpacity := Value;\r\n    UpdatePolyElement;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolyElement.SetStrokeWidth(const Value: Integer);\r\nbegin\r\n  if FStrokeWidth <> Value then\r\n  begin\r\n    FStrokeWidth := Value;\r\n    UpdatePolyElement;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolyElement.SetVisible(const Value: Boolean);\r\nbegin\r\n  if FVisible <> Value then\r\n  begin\r\n    FVisible := Value;\r\n    UpdatePolyElement;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolyElement.UpdatePolyElement;\r\nbegin\r\n  if Assigned(FOwner) then\r\n  begin\r\n    FReload := True;\r\n    FOwner.UpdatePolyElements;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolyElement.SetCoordinates(\r\n  const Value: TTMSFNCMapsCoordinates);\r\nbegin\r\n  if FCoordinates <> Value then\r\n  begin\r\n    FCoordinates.Assign(Value);\r\n    UpdatePolyElement;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolyElement.SetHoles(\r\n  const Value: TTMSFNCMapsPolyElementHoles);\r\nbegin\r\n  if FHoles <> Value then\r\n  begin\r\n    FHoles.Assign(Value);\r\n    UpdatePolyElement;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCMapsPolyElementHoles }\r\n\r\nfunction TTMSFNCMapsPolyElementHoles.Add: TTMSFNCMapsPolyElementHole;\r\nbegin\r\n  Result := TTMSFNCMapsPolyElementHole(inherited Add);\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolyElementHoles.Clear;\r\nbegin\r\n//\r\nend;\r\n\r\nconstructor TTMSFNCMapsPolyElementHoles.Create(AOwner: TTMSFNCMapsPolyElement);\r\nbegin\r\n  inherited Create(AOwner, CreateItemClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCMapsPolyElementHoles.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCMapsPolyElementHole;\r\nend;\r\n\r\nfunction TTMSFNCMapsPolyElementHoles.GetItem(\r\n  Index: Integer): TTMSFNCMapsPolyElementHole;\r\nbegin\r\n  Result := TTMSFNCMapsPolyElementHole(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCMapsPolyElementHoles.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCMapsPolyElementHoles.Insert(Index: Integer): TTMSFNCMapsPolyElementHole;\r\nbegin\r\n  Result := TTMSFNCMapsPolyElementHole(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolyElementHoles.SetItem(Index: Integer;\r\n  const Value: TTMSFNCMapsPolyElementHole);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCMapsPolyElementHole }\r\n\r\nprocedure TTMSFNCMapsPolyElementHole.Assign(Source: TPersistent);\r\nbegin\r\n  FID := (Source as TTMSFNCMapsPolyElementHole).ID;\r\n  FCoordinates.Assign((Source as TTMSFNCMapsPolyElementHole).Coordinates);\r\nend;\r\n\r\nconstructor TTMSFNCMapsPolyElementHole.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(ACollection) then\r\n    FOwner := (Collection as TTMSFNCMapsPolyElementHoles).FOwner;\r\n\r\n  FCoordinates := TTMSFNCMapsCoordinates.Create(Self);\r\n  FCoordinates.OnBeginUpdate := DoBeginUpdate;\r\n  FCoordinates.OnEndUpdate := DoEndUpdate;\r\n  FCoordinates.OnUpdateCoordinates := DoUpdateCoordinates;\r\nend;\r\n\r\ndestructor TTMSFNCMapsPolyElementHole.Destroy;\r\nbegin\r\n  FCoordinates.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCMapsPolyElementHole.GetID: string;\r\nbegin\r\n  if (FID = '') or FOwner.Recreate then\r\n    FID := CreateNewGUID;\r\n\r\n  Result := FID;\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolyElementHole.DoBeginUpdate(Sender: TObject);\r\nbegin\r\n  if Assigned(FOwner) then\r\n    FOwner.BeginUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolyElementHole.DoEndUpdate(Sender: TObject);\r\nbegin\r\n  if Assigned(FOwner) then\r\n    FOwner.EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolyElementHole.DoUpdateCoordinates(Sender: TObject);\r\nbegin\r\n  if Assigned(FOwner) then\r\n    FOwner.UpdatePolyElement;\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolyElementHole.UpdatePolyElement;\r\nbegin\r\n  if Assigned(FOwner) then\r\n    FOwner.UpdatePolyElement;\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolyElementHole.SetCoordinates(\r\n  const Value: TTMSFNCMapsCoordinates);\r\nbegin\r\n  if FCoordinates <> Value then\r\n  begin\r\n    FCoordinates.Assign(Value);\r\n    UpdatePolyElement;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCMapsRectangle }\r\n\r\nfunction TTMSFNCMapsRectangle.Area: Double;\r\nbegin\r\n  Result := MeasureArea(BoundsRectangle(Bounds.ToRec));\r\nend;\r\n\r\nprocedure TTMSFNCMapsRectangle.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if Source is TTMSFNCMapsRectangle then\r\n  begin\r\n    FBounds.Assign((Source as TTMSFNCMapsRectangle).Bounds);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCMapsRectangle.ContainsPoint(\r\n  ACoordinate: TTMSFNCMapsCoordinateRec): Boolean;\r\nbegin\r\n  Result := IsPointInArea(ACoordinate.Latitude, ACoordinate.Longitude, BoundsRectangle(Bounds.ToRec));\r\nend;\r\n\r\nconstructor TTMSFNCMapsRectangle.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  FBounds := TTMSFNCMapsBounds.Create;\r\n  FBounds.OnChange := @DoBoundsChanged;\r\nend;\r\n\r\ndestructor TTMSFNCMapsRectangle.Destroy;\r\nbegin\r\n  FBounds.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCMapsRectangle.DoBoundsChanged(Sender: TObject);\r\nbegin\r\n  UpdatePolyElement;\r\nend;\r\n\r\nprocedure TTMSFNCMapsRectangle.SetBounds(const Value: TTMSFNCMapsBounds);\r\nbegin\r\n  if FBounds <> Value then\r\n  begin\r\n    FBounds.Assign(Value);\r\n    UpdatePolyElement;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCMapsCircle }\r\n\r\nfunction TTMSFNCMapsCircle.Area: Double;\r\nbegin\r\n  Result := MeasureArea(CreateCircle(Center.ToRec, Radius));\r\nend;\r\n\r\nprocedure TTMSFNCMapsCircle.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if Source is TTMSFNCMapsCircle then\r\n  begin\r\n    FRadius := (Source as TTMSFNCMapsCircle).Radius;\r\n    FCenter.Assign((Source as TTMSFNCMapsCircle).Center);\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCMapsCircle.ContainsPoint(\r\n  ACoordinate: TTMSFNCMapsCoordinateRec): Boolean;\r\nbegin\r\n  Result := IsPointInArea(ACoordinate.Latitude, ACoordinate.Longitude, CreateCircle(Center.ToRec, Radius));\r\nend;\r\n\r\nconstructor TTMSFNCMapsCircle.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  FRadius := 10000;\r\n  FCenter := TTMSFNCMapsCoordinate.Create;\r\n  FCenter.OnChange := @DoCenterChanged;\r\nend;\r\n\r\ndestructor TTMSFNCMapsCircle.Destroy;\r\nbegin\r\n  FCenter.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCMapsCircle.DoCenterChanged(Sender: TObject);\r\nbegin\r\n  UpdatePolyElement;\r\nend;\r\n\r\nfunction TTMSFNCMapsCircle.IsRadiusStored: Boolean;\r\nbegin\r\n  Result := Radius <> 10000;\r\nend;\r\n\r\nprocedure TTMSFNCMapsCircle.SetCenter(const Value: TTMSFNCMapsCoordinate);\r\nbegin\r\n  if FCenter <> Value then\r\n  begin\r\n    FCenter.Assign(Value);\r\n    UpdatePolyElement;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsCircle.SetRadius(const Value: Double);\r\nbegin\r\n  if FRadius <> Value then\r\n  begin\r\n    FRadius := Value;\r\n    UpdatePolyElement;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCMapsCustomPolygon }\r\n\r\nprocedure TTMSFNCMapsCustomPolygon.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if Source is TTMSFNCMapsPolygon then\r\n  begin\r\n    FFillColor := (Source as TTMSFNCMapsPolygon).FillColor;\r\n    FFillOpacity := (Source as TTMSFNCMapsPolygon).FillOpacity;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCMapsCustomPolygon.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  FFillColor := gcWhite;\r\n  FFillOpacity := 1.0;\r\nend;\r\n\r\nfunction TTMSFNCMapsCustomPolygon.IsFillOpacityStored: Boolean;\r\nbegin\r\n  Result := FillOpacity <> 1.0;\r\nend;\r\n\r\nprocedure TTMSFNCMapsCustomPolygon.SetFillColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FFillColor <> Value then\r\n  begin\r\n    FFillColor := Value;\r\n    UpdatePolyElement;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsCustomPolygon.SetFillOpacity(const Value: Single);\r\nbegin\r\n  if FFillOpacity <> Value then\r\n  begin\r\n    FFillOpacity := Value;\r\n    UpdatePolyElement;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCMapsPolyElements }\r\n\r\nfunction TTMSFNCMapsPolyElements.Add: TTMSFNCMapsPolyElement;\r\nbegin\r\n  Result := TTMSFNCMapsPolyElement(inherited Add);\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolyElements.Clear;\r\nvar\r\n  l: TTMSFNCCustomMaps;\r\n  ci: TCollectionItem;\r\nbegin\r\n  l := FOwner;\r\n  if Assigned(l) then\r\n    l.BeginUpdate;\r\n\r\n  if Count > 0 then\r\n  begin\r\n    while Count > 0 do\r\n    begin\r\n      ci := TCollectionItem(Items[Count - 1]);\r\n      ci.Free;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(l) then\r\n    l.EndUpdate;\r\nend;\r\n\r\nconstructor TTMSFNCMapsPolyElements.Create(AOwner: TTMSFNCCustomMaps);\r\nbegin\r\n  inherited Create(AOwner, CreateItemClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCMapsPolyElements.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCMapsPolyElement;\r\nend;\r\n\r\nfunction TTMSFNCMapsPolyElements.GetItem(\r\n  Index: Integer): TTMSFNCMapsPolyElement;\r\nbegin\r\n  Result := TTMSFNCMapsPolyElement(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCMapsPolyElements.GetItemByID(\r\n  ID: string): TTMSFNCMapsPolyElement;\r\nvar\r\n  I: Integer;\r\n  m: TTMSFNCMapsPolyElement;\r\nbegin\r\n  Result := nil;\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    m := Items[I];\r\n    if m.ID = ID then\r\n    begin\r\n      Result := m;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCMapsPolyElements.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCMapsPolyElements.Insert(\r\n  Index: Integer): TTMSFNCMapsPolyElement;\r\nbegin\r\n  Result := TTMSFNCMapsPolyElement(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolyElements.Recreate;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to Count - 1 do\r\n    Items[I].Recreate := True;\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolyElements.SetItem(Index: Integer;\r\n  const Value: TTMSFNCMapsPolyElement);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nfunction TTMSFNCMapsPolyElements.ToCoordinateArray: TTMSFNCMapsCoordinateRecArrayArray;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  SetLength(Result, Count);\r\n  for I := 0 to Count - 1 do\r\n    Result[I] := Items[I].Coordinates.ToArray;\r\nend;\r\n\r\n{ TTMSFNCMapsPolylines }\r\n\r\nfunction TTMSFNCMapsPolylines.Add: TTMSFNCMapsPolyline;\r\nbegin\r\n  Result := TTMSFNCMapsPolyline(inherited Add);\r\nend;\r\n\r\nfunction TTMSFNCMapsPolylines.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCMapsPolyline;\r\nend;\r\n\r\nfunction TTMSFNCMapsPolylines.GetItem(Index: Integer): TTMSFNCMapsPolyline;\r\nbegin\r\n  Result := TTMSFNCMapsPolyline(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCMapsPolylines.Insert(Index: Integer): TTMSFNCMapsPolyline;\r\nbegin\r\n  Result := TTMSFNCMapsPolyline(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolylines.SetItem(Index: Integer;\r\n  const Value: TTMSFNCMapsPolyline);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCMapsPolygons }\r\n\r\nfunction TTMSFNCMapsPolygons.Add: TTMSFNCMapsPolygon;\r\nbegin\r\n  Result := TTMSFNCMapsPolygon(inherited Add);\r\nend;\r\n\r\nfunction TTMSFNCMapsPolygons.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCMapsPolygon;\r\nend;\r\n\r\nfunction TTMSFNCMapsPolygons.GetItem(Index: Integer): TTMSFNCMapsPolygon;\r\nbegin\r\n  Result := TTMSFNCMapsPolygon(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCMapsPolygons.Insert(Index: Integer): TTMSFNCMapsPolygon;\r\nbegin\r\n  Result := TTMSFNCMapsPolygon(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCMapsPolygons.SetItem(Index: Integer;\r\n  const Value: TTMSFNCMapsPolygon);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCMapsPolygons }\r\n\r\nfunction TTMSFNCMapsCustomPolygons.Add: TTMSFNCMapsCustomPolygon;\r\nbegin\r\n  Result := TTMSFNCMapsCustomPolygon(inherited Add);\r\nend;\r\n\r\nfunction TTMSFNCMapsCustomPolygons.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCMapsCustomPolygon;\r\nend;\r\n\r\nfunction TTMSFNCMapsCustomPolygons.GetItem(Index: Integer): TTMSFNCMapsCustomPolygon;\r\nbegin\r\n  Result := TTMSFNCMapsCustomPolygon(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCMapsCustomPolygons.Insert(Index: Integer): TTMSFNCMapsCustomPolygon;\r\nbegin\r\n  Result := TTMSFNCMapsCustomPolygon(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCMapsCustomPolygons.SetItem(Index: Integer;\r\n  const Value: TTMSFNCMapsCustomPolygon);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCMapsRectangles }\r\n\r\nfunction TTMSFNCMapsRectangles.Add: TTMSFNCMapsRectangle;\r\nbegin\r\n  Result := TTMSFNCMapsRectangle(inherited Add);\r\nend;\r\n\r\nfunction TTMSFNCMapsRectangles.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCMapsRectangle;\r\nend;\r\n\r\nfunction TTMSFNCMapsRectangles.GetItem(Index: Integer): TTMSFNCMapsRectangle;\r\nbegin\r\n  Result := TTMSFNCMapsRectangle(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCMapsRectangles.Insert(Index: Integer): TTMSFNCMapsRectangle;\r\nbegin\r\n  Result := TTMSFNCMapsRectangle(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCMapsRectangles.SetItem(Index: Integer;\r\n  const Value: TTMSFNCMapsRectangle);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nfunction TTMSFNCMapsRectangles.ToCoordinateArray: TTMSFNCMapsCoordinateRecArrayArray;\r\nvar\r\n  I: Integer;\r\n  arr: TTMSFNCMapsCoordinateRecArray;\r\nbegin\r\n  SetLength(Result, Count);\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    SetLength(arr, 2);\r\n    arr[0] := Items[I].Bounds.NorthEast.ToRec;\r\n    arr[1] := Items[I].Bounds.SouthWest.ToRec;\r\n    Result[I] := arr;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCMapsCircles }\r\n\r\nfunction TTMSFNCMapsCircles.Add: TTMSFNCMapsCircle;\r\nbegin\r\n  Result := TTMSFNCMapsCircle(inherited Add);\r\nend;\r\n\r\nfunction TTMSFNCMapsCircles.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCMapsCircle;\r\nend;\r\n\r\nfunction TTMSFNCMapsCircles.GetItem(Index: Integer): TTMSFNCMapsCircle;\r\nbegin\r\n  Result := TTMSFNCMapsCircle(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCMapsCircles.Insert(Index: Integer): TTMSFNCMapsCircle;\r\nbegin\r\n  Result := TTMSFNCMapsCircle(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCMapsCircles.SetItem(Index: Integer;\r\n  const Value: TTMSFNCMapsCircle);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\nfunction TTMSFNCMapsCircles.ToCoordinateArray: TTMSFNCMapsCoordinateRecArrayArray;\r\nvar\r\n  I: Integer;\r\n  arr: TTMSFNCMapsCoordinateRecArray;\r\nbegin\r\n  SetLength(Result, Count);\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    SetLength(arr, 1);\r\n    arr[0] := Items[I].Center.ToRec;\r\n    Result[I] := arr;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCMapsLink }\r\n\r\nconstructor TTMSFNCMapsLink.CreateScript(AURL: string; AType: string = ''; ACharSet: string = ''; AContent: string = ''; ADefer: Boolean = False; AAsync: Boolean = False);\r\nbegin\r\n  Create(mlkScript, AURL, AType, ACharSet, '', AContent, ADefer, AASync);\r\nend;\r\n\r\nconstructor TTMSFNCMapsLink.CreateLink(AURL: string; AType: string = ''; ARel: string = '');\r\nbegin\r\n  Create(mlkLink, AURL, AType, '', ARel, '', False, False);\r\nend;\r\n\r\nconstructor TTMSFNCMapsLink.Create(AKind: TTMSFNCMapsLinkKind; AURL: string; AType: string; ACharSet: string; ARel: string; AContent: string; ADefer: Boolean; AAsync: Boolean);\r\nbegin\r\n  FKind := AKind;\r\n  FURL := AURL;\r\n  FType := AType;\r\n  FCharSet := ACharSet;\r\n  FDefer := ADefer;\r\n  FRel := ARel;\r\n  FAsync := AAsync;\r\n  FContent := AContent;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.ReInitialize;\r\nbegin\r\n  MapInitialized := False;\r\n  InitializeHTML;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.RouteCalculatorDeleteMarker(\r\n  AMarker: TTMSFNCMapsMarker; AUpdateRoute: Boolean);\r\nvar\r\n  Segment, ps: TTMSFNCRouteCalculatorSegment;\r\n  ec: TTMSFNCMapsCoordinateRec;\r\nbegin\r\n  if not RouteCalculatorCheck then\r\n    Exit;\r\n\r\n  if not Assigned(AMarker) then\r\n    Exit;\r\n\r\n  if Assigned(AMarker.DataPointer) and (TObject(AMarker.DataPointer) is TTMSFNCRouteCalculatorSegment) then\r\n  begin\r\n    Segment := (TObject(AMarker.DataPointer) as TTMSFNCRouteCalculatorSegment);\r\n    if Assigned(Segment) then\r\n    begin\r\n      if (AMarker.DataString <> ROUTECALCULATORMARKER) and (AMarker.DataString <> '') then\r\n        RouteCalculator.DeleteRouteSegment(Segment)\r\n      else\r\n      begin\r\n        ps := Segment.PreviousSegment;\r\n        if Assigned(ps) then\r\n        begin\r\n          ec := Segment.EndCoordinate.ToRec;\r\n          Segment.Free;\r\n          RouteCalculator.UpdateRouteSegment(ps, ps.StartCoordinate.ToRec, ec);\r\n        end;\r\n      end;\r\n      if AUpdateRoute then\r\n      begin\r\n        RouteCalculatorClearRoutes;\r\n        RouteCalculatorPlotRoutes;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.RouteCalculatorDeletePolyline(\r\n  APolyline: TTMSFNCMapsPolyline; AUpdateRoute: Boolean);\r\nvar\r\n  Segment: TTMSFNCRouteCalculatorSegment;\r\nbegin\r\n  if not RouteCalculatorCheck then\r\n    Exit;\r\n\r\n  if not Assigned(APolyline) then\r\n    Exit;\r\n\r\n  if Assigned(APolyline.DataPointer) and (TObject(APolyline.DataPointer) is TTMSFNCRouteCalculatorSegment) then\r\n  begin\r\n    Segment := (TObject(APolyline.DataPointer) as TTMSFNCRouteCalculatorSegment);\r\n    if Assigned(Segment) then\r\n    begin\r\n      RouteCalculator.DeleteRouteSegment(Segment);\r\n      if AUpdateRoute then\r\n      begin\r\n        RouteCalculatorClearRoutes;\r\n        RouteCalculatorPlotRoutes;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.RouteCalculatorDeleteSelectedMarker(\r\n  AUpdateRoute: Boolean);\r\nbegin\r\n  if Assigned(RouteCalculatorSelectedMarker) then\r\n  begin\r\n    RouteCalculatorDeleteMarker(RouteCalculatorSelectedMarker, AUpdateRoute);\r\n    RouteCalculatorSelectedMarker := nil;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.RouteCalculatorDeleteSelectedPolyline(\r\n  AUpdateRoute: Boolean);\r\nbegin\r\n  if Assigned(RouteCalculatorSelectedPolyline) then\r\n  begin\r\n    RouteCalculatorDeletePolyline(RouteCalculatorSelectedPolyline, AUpdateRoute);\r\n    RouteCalculatorSelectedPolyline := nil;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.RouteCalculatorDoCalculateRoute(Sender: TObject;\r\n  const ARoute: TTMSFNCRouteCalculatorRoute);\r\nbegin\r\n  RouteCalculatorPlotRoute(ARoute);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.RouteCalculatorMarkerMoved(\r\n  ACoordinate: TTMSFNCMapsCoordinateRec);\r\nvar\r\n  ASegment, ps: TTMSFNCRouteCalculatorSegment;\r\nbegin\r\n  if RouteCalculatorCheck then\r\n  begin\r\n    Options.Panning := True;\r\n    if FRouteCalculatorDragStarted and Assigned(FRouteCalculatorMarker) then\r\n    begin\r\n      FRouteCalculatorDragStarted := False;\r\n      Options.Panning := True;\r\n      FRouteCalculatorMarker.Coordinate.Latitude := ACoordinate.Latitude;\r\n      FRouteCalculatorMarker.Coordinate.Longitude := ACoordinate.Longitude;\r\n      if Assigned(FRouteCalculatorMarker.DataPointer) and (TObject(FRouteCalculatorMarker.DataPointer) is TTMSFNCRouteCalculatorSegment) then\r\n      begin\r\n        ASegment := (TObject(FRouteCalculatorMarker.DataPointer) as TTMSFNCRouteCalculatorSegment);\r\n        if Assigned(ASegment) then\r\n        begin\r\n          if not FRouteCalculatorMarker.DataBoolean then\r\n            RouteCalculator.UpdateRouteSegment(ASegment, ASegment.StartCoordinate.ToRec, FRouteCalculatorMarker.Coordinate.ToRec)\r\n          else\r\n          begin\r\n            RouteCalculator.UpdateRouteSegment(ASegment, FRouteCalculatorMarker.Coordinate.ToRec, ASegment.EndCoordinate.ToRec);\r\n            ps := ASegment.PreviousSegment;\r\n            if Assigned(ps) then\r\n              RouteCalculator.UpdateRouteSegment(ps, ps.StartCoordinate.ToRec, FRouteCalculatorMarker.Coordinate.ToRec);\r\n          end;\r\n        end;\r\n      end;\r\n    end;\r\n    FRouteCalculatorMarker := nil;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.RouteCalculatorPlotRoute(\r\n  ARoute: TTMSFNCRouteCalculatorRoute);\r\n  function SegmentExists(ASegment: TTMSFNCRouteCalculatorSegment): TTMSFNCMapsPolyline;\r\n  var\r\n    I: Integer;\r\n  begin\r\n    Result := nil;\r\n    for I := 0 to Polylines.Count - 1 do\r\n    begin\r\n      if TTMSFNCRouteCalculatorSegment(Polylines[I].DataPointer) = ASegment then\r\n      begin\r\n        Result := Polylines[I];\r\n        Break;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  function WayPointExists(ASegment: TTMSFNCRouteCalculatorSegment): TTMSFNCMapsMarker;\r\n  var\r\n    I: Integer;\r\n  begin\r\n    Result := nil;\r\n    for I := 0 to Markers.Count - 1 do\r\n    begin\r\n      if ((TTMSFNCRouteCalculatorSegment(Markers[I].DataPointer) = ASegment)\r\n        and (Markers[I].DataString <> ROUTECALCULATORENDMARKER)) then\r\n      begin\r\n        Result := Markers[I];\r\n        Break;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  function GetStartMarker: TTMSFNCMapsMarker;\r\n  var\r\n    I: Integer;\r\n  begin\r\n    Result := nil;\r\n    for I := 0 to Markers.Count - 1 do\r\n    begin\r\n      if Markers[I].DataString = ROUTECALCULATORSTARTMARKER then\r\n      begin\r\n        Result := Markers[I];\r\n        Break;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  function GetEndMarker: TTMSFNCMapsMarker;\r\n  var\r\n    I: Integer;\r\n  begin\r\n    Result := nil;\r\n    for I := 0 to Markers.Count - 1 do\r\n    begin\r\n      if Markers[I].DataString = ROUTECALCULATORENDMARKER then\r\n      begin\r\n        Result := Markers[I];\r\n        Break;\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  procedure ConfigMarker(AMarker: TTMSFNCMapsMarker; ARoute: TTMSFNCRouteCalculatorRoute; AIndex: Integer);\r\n  begin\r\n    if AIndex = 0 then\r\n    begin\r\n      AMarker.IconURL := GetRouteCalculatorStartMarker;\r\n      AMarker.DataString := ROUTECALCULATORSTARTMARKER;\r\n      AMarker.DataBoolean := True;\r\n      AMarker.DataPointer := ARoute.Segments[AIndex];\r\n    end\r\n    else if AIndex = ARoute.Segments.Count then\r\n    begin\r\n      AMarker.IconURL := GetRouteCalculatorEndMarker;\r\n      AMarker.DataString := ROUTECALCULATORENDMARKER;\r\n      AMarker.DataBoolean := False;\r\n      AMarker.DataPointer := ARoute.Segments[AIndex - 1];\r\n    end\r\n    else\r\n    begin\r\n      AMarker.IconURL := GetRouteCalculatorWayPointMarker;\r\n      AMarker.DataString := ROUTECALCULATORMARKER;\r\n      AMarker.DataBoolean := True;\r\n      AMarker.DataPointer := ARoute.Segments[AIndex];\r\n    end;\r\n  end;\r\n\r\nvar\r\n  p: TTMSFNCMapsPolyline;\r\n  ci: TTMSFNCMapsCoordinateItem;\r\n  pl: TTMSFNCMapsCoordinateRecArray;\r\n  wp: TTMSFNCMapsCoordinateRecArray;\r\n  m: TTMSFNCMapsMarker;\r\n  I, K: Integer;\r\n  pRecreate: Boolean;\r\nbegin\r\n  BeginUpdate;\r\n\r\n  ARoute.DataString := ROUTECALCULATORROUTE;\r\n  wp := ARoute.WayPoints;\r\n\r\n  for I := 0 to ARoute.Segments.Count - 1 do\r\n  begin\r\n    p := SegmentExists(ARoute.Segments[I]);\r\n    pl := ARoute.Segments[I].Polyline;\r\n\r\n    if Assigned(p) then\r\n    begin\r\n      pRecreate := False;\r\n      if (p.Coordinates.Count <> Length(pl)) then\r\n        pRecreate := True\r\n      else\r\n        for K := 0 to Length(pl) - 1 do\r\n        begin\r\n          if ((p.Coordinates[K].Latitude <> pl[K].Latitude)\r\n            or (p.Coordinates[K].Longitude <> pl[K].Longitude)) then\r\n          begin\r\n            pRecreate := True;\r\n            break;\r\n        end;\r\n      end;\r\n\r\n      if pRecreate then\r\n      begin\r\n        p.Coordinates.Clear;\r\n        for K := 0 to Length(pl) - 1 do\r\n        begin\r\n          ci := p.Coordinates.Add;\r\n          ci.Latitude := pl[K].Latitude;\r\n          ci.Longitude := pl[K].Longitude;\r\n        end;\r\n        p.Recreate := True;\r\n        DoRouteCalculatorPolylineUpdated(p, ARoute.Segments[I]);\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      p := AddPolyline(pl);\r\n      p.DataString := ROUTECALCULATORSEGMENT;\r\n      p.StrokeWidth := RouteCalculator.Options.Polyline.StrokeWidth;\r\n      p.StrokeColor := RouteCalculator.Options.Polyline.StrokeColor;\r\n      DoRouteCalculatorPolylineAdded(p, ARoute.Segments[I]);\r\n    end;\r\n    p.DataPointer := ARoute.Segments[I];\r\n\r\n    if I = 0 then\r\n      m := GetStartMarker\r\n    else\r\n      m := WayPointExists(ARoute.Segments[I]);\r\n\r\n    if Assigned(m) then\r\n    begin\r\n      if ((m.Latitude <> wp[I].Latitude) or (m.Longitude <> wp[I].Longitude)) then\r\n      begin\r\n        m.Latitude := wp[I].Latitude;\r\n        m.Longitude := wp[I].Longitude;\r\n        m.Recreate := True;\r\n        ConfigMarker(m, ARoute, I);\r\n        DoRouteCalculatorWayPointUpdated(m, ARoute.Segments[I]);\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      m := AddMarker(ARoute.Segments[I].StartCoordinate.ToRec);\r\n      ConfigMarker(m, ARoute, I);\r\n      DoRouteCalculatorWayPointAdded(m, ARoute.Segments[I]);\r\n    end;\r\n  end;\r\n\r\n  if ARoute.Segments.Count > 0 then\r\n  begin\r\n    //add end marker\r\n    m := GetEndMarker;\r\n    I := Length(wp) - 1;\r\n\r\n    if Assigned(m) then\r\n    begin\r\n      if ((m.Latitude <> wp[I].Latitude) or (m.Longitude <> wp[I].Longitude)) then\r\n      begin\r\n        m.Latitude := wp[I].Latitude;\r\n        m.Longitude := wp[I].Longitude;\r\n        m.Recreate := True;\r\n        ConfigMarker(m, ARoute, ARoute.Segments.Count);\r\n        DoRouteCalculatorWayPointUpdated(m, ARoute.Segments[ARoute.Segments.Count - 1]);\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      m := AddMarker(ARoute.Segments[ARoute.Segments.Count - 1].EndCoordinate.ToRec);\r\n      ConfigMarker(m, ARoute, ARoute.Segments.Count);\r\n      DoRouteCalculatorWayPointAdded(m, ARoute.Segments[ARoute.Segments.Count - 1]);\r\n    end;\r\n  end;\r\n\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.RouteCalculatorPlotRoutes;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  if RouteCalculatorCheck then\r\n  begin\r\n    BeginUpdate;\r\n    for I := 0 to RouteCalculator.Routes.Count - 1 do\r\n      RouteCalculatorPlotRoute(RouteCalculator.Routes[I]);\r\n    EndUpdate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.RouteCalculatorClearRoutes;\r\nvar\r\n  I: Integer;\r\n  p: TTMSFNCMapsPolyline;\r\n  m: TTMSFNCMapsMarker;\r\nbegin\r\n  if RouteCalculatorCheck then\r\n  begin\r\n    BeginUpdate;\r\n    for I := Polylines.Count - 1 downto 0 do\r\n    begin\r\n      p := Polylines[I];\r\n      if p.DataString = ROUTECALCULATORSEGMENT then\r\n        p.Free;\r\n    end;\r\n\r\n    for I := Markers.Count - 1 downto 0 do\r\n    begin\r\n      m := Markers[I];\r\n      if (m.DataString = ROUTECALCULATORMARKER)\r\n        or (m.DataString = ROUTECALCULATORSTARTMARKER)\r\n        or (m.DataString = ROUTECALCULATORENDMARKER) then\r\n        m.Free;\r\n    end;\r\n    EndUpdate;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.RouteCalculatorClearSelected;\r\nbegin\r\n  if Assigned(RouteCalculatorSelectedPolyline) then\r\n  begin\r\n    RouteCalculatorSelectedPolyline.StrokeColor := RouteCalculator.Options.Polyline.StrokeColor;\r\n    RouteCalculatorSelectedPolyline := nil;\r\n  end;\r\n\r\n  if Assigned(RouteCalculatorSelectedMarker) then\r\n  begin\r\n    if (RouteCalculatorSelectedMarker.DataString = ROUTECALCULATORMARKER) then\r\n      RouteCalculatorSelectedMarker.IconURL := GetRouteCalculatorWayPointMarker\r\n    else if (RouteCalculatorSelectedMarker.DataString = ROUTECALCULATORSTARTMARKER) then\r\n      RouteCalculatorSelectedMarker.IconURL := GetRouteCalculatorStartMarker\r\n    else if (RouteCalculatorSelectedMarker.DataString = ROUTECALCULATORENDMARKER) then\r\n      RouteCalculatorSelectedMarker.IconURL := GetRouteCalculatorEndMarker;\r\n    RouteCalculatorSelectedMarker := nil;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.RouteCalculatorPolylineMoved(\r\n  ACoordinate: TTMSFNCMapsCoordinateRec);\r\nvar\r\n  ASegment: TTMSFNCRouteCalculatorSegment;\r\n  ar: TTMSFNCMapsCoordinateRecArray;\r\nbegin\r\n  if RouteCalculatorCheck then\r\n  begin\r\n    Options.Panning := True;\r\n    if FRouteCalculatorDragStarted and Assigned(FRouteCalculatorPolyline) then\r\n    begin\r\n      FRouteCalculatorDragStarted := False;\r\n      Options.Panning := True;\r\n      if Assigned(FRouteCalculatorPolyline.DataPointer) and (TObject(FRouteCalculatorPolyline.DataPointer) is TTMSFNCRouteCalculatorSegment) then\r\n      begin\r\n        ASegment := (TObject(FRouteCalculatorPolyline.DataPointer) as TTMSFNCRouteCalculatorSegment);\r\n        if Assigned(ASegment) then\r\n        begin\r\n          SetLength(ar, 1);\r\n          ar[0] := ACoordinate;\r\n          RouteCalculator.AddWayPointsToSegment(ASegment, ar);\r\n        end;\r\n      end;\r\n    end;\r\n\r\n    FRouteCalculatorPolyline := nil;\r\n    if Assigned(FRouteCalculatorDragMarker) then\r\n    begin\r\n      FRouteCalculatorDragMarker.Free;\r\n      FRouteCalculatorDragMarker := nil\r\n    end;\r\n\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.ParseScript(AValue: string): string;\r\nbegin\r\n  Result := AValue;\r\n  if Result = 'null' then\r\n  begin\r\n    Result := '';\r\n    Exit;\r\n  end;\r\n\r\n  Result := StringReplace(Result, '[', '', [rfReplaceAll]);\r\n  Result := StringReplace(Result, ']', '', [rfReplaceAll]);\r\n  Result := StringReplace(Result, '\"', '', [rfReplaceAll]);\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.ParseEvent(AValue: string): Boolean;\r\nvar\r\n  s, cd: string;\r\n  b: Boolean;\r\n  ed: TTMSFNCMapsEventData;\r\n  p, pcd: Integer;\r\n  e: TTMSFNCMapsJavaScriptError;\r\nbegin\r\n  s := AValue;\r\n  b := (Pos(EVENTDATAPREFIX, s) = 1);\r\n  Result := b;\r\n  if b then\r\n  begin\r\n    p := Pos(EVENTDATAPREFIX, s);\r\n    pcd := Pos(CUSTOMDATAPREFIX, s);\r\n    if pcd > 0 then\r\n    begin\r\n      cd := Copy(s, pcd + Length(CUSTOMDATAPREFIX), Length(s) - pcd - 1);\r\n      s := Copy(s, p + Length(EVENTDATAPREFIX), pcd - Length(EVENTDATAPREFIX) - 1);\r\n    end\r\n    else\r\n    begin\r\n      s := Copy(s, p + Length(EVENTDATAPREFIX), Length(s) - 1);\r\n      cd := '';\r\n    end;\r\n\r\n    if cd <> '' then\r\n      cd := TTMSFNCUtils.URLDecode(cd);\r\n\r\n    s := TTMSFNCUtils.URLDecode(s);\r\n\r\n    ed := TTMSFNCMapsEventData.Create;\r\n    try\r\n      ed.JSON := s;\r\n      ed.CustomData := cd;\r\n\r\n      if ed.ID <> '' then\r\n      begin\r\n        if Pos('Marker', ed.EventName) > 0 then\r\n          ed.FMarker := GetMarkerByID(ed.ID);\r\n\r\n        if Pos('PolyElement', ed.EventName) > 0 then\r\n          ed.FPolyElement := GetPolyElementByID(ed.ID);\r\n      end;\r\n\r\n      if ed.EventName = 'Initialized' then\r\n      begin\r\n        MapInitialized := True;\r\n        DoMapInitialized;\r\n      end\r\n      else if ed.EventName = 'MapTypeChanged' then\r\n        DoMapTypeChanged(ed)\r\n      else if ed.EventName = 'ZoomChanged' then\r\n        DoZoomChanged(ed)\r\n      else if ed.EventName = 'MapMoveStart' then\r\n        DoMapMoveStart(ed)\r\n      else if ed.EventName = 'MapMoveEnd' then\r\n        DoMapMoveEnd(ed)\r\n//      else if ed.EventName = 'MapMove' then\r\n//        DoMapMove(ed)\r\n      else if ed.EventName = 'MapClick' then\r\n        DoMapClick(ed)\r\n      else if ed.EventName = 'MapRightClick' then\r\n        DoMapRightClick(ed)\r\n      else if ed.EventName = 'MapKeyDown' then\r\n        DoMapKeyDown(ed)\r\n      else if ed.EventName = 'MapDblClick' then\r\n        DoMapDblClick(ed)\r\n      else if ed.EventName = 'MapMouseMove' then\r\n        DoMapMouseMove(ed)\r\n      else if ed.EventName = 'MapMouseDown' then\r\n        DoMapMouseDown(ed)\r\n      else if ed.EventName = 'MapMouseUp' then\r\n        DoMapMouseUp(ed)\r\n      else if ed.EventName = 'MapMouseEnter' then\r\n        DoMapMouseEnter(ed)\r\n      else if ed.EventName = 'MapMouseLeave' then\r\n        DoMapMouseLeave(ed)\r\n      else if ed.EventName = 'MapCenterChanged' then\r\n        DoMapCenterChanged(ed)\r\n      else if ed.EventName = 'MarkerClick' then\r\n        DoMarkerClick(ed)\r\n      else if ed.EventName = 'MarkerRightClick' then\r\n        DoMarkerRightClick(ed)\r\n      else if ed.EventName = 'MarkerDblClick' then\r\n        DoMarkerDblClick(ed)\r\n      else if ed.EventName = 'MarkerMouseDown' then\r\n        DoMarkerMouseDown(ed)\r\n      else if ed.EventName = 'MarkerMouseUp' then\r\n        DoMarkerMouseUp(ed)\r\n      else if ed.EventName = 'MarkerMouseEnter' then\r\n        DoMarkerMouseEnter(ed)\r\n      else if ed.EventName = 'MarkerMouseLeave' then\r\n        DoMarkerMouseLeave(ed)\r\n      else if ed.EventName = 'PolyElementClick' then\r\n        DoPolyElementClick(ed)\r\n      else if ed.EventName = 'PolyElementRightClick' then\r\n        DoPolyElementRightClick(ed)\r\n      else if ed.EventName = 'PolyElementDblClick' then\r\n        DoPolyElementDblClick(ed)\r\n      else if ed.EventName = 'PolyElementMouseDown' then\r\n        DoPolyElementMouseDown(ed)\r\n      else if ed.EventName = 'PolyElementMouseUp' then\r\n        DoPolyElementMouseUp(ed)\r\n      else if ed.EventName = 'PolyElementMouseEnter' then\r\n        DoPolyElementMouseEnter(ed)\r\n      else if ed.EventName = 'PolyElementMouseLeave' then\r\n        DoPolyElementMouseLeave(ed)\r\n      else if ed.EventName = 'Error' then\r\n      begin\r\n        e := TTMSFNCMapsJavaScriptError.Create(ed.ID);\r\n        try\r\n          DoError(e);\r\n        finally\r\n          e.Free;\r\n        end;\r\n      end\r\n      else\r\n      begin\r\n        CallCustomEvent(ed);\r\n      end;\r\n    finally\r\n      ed.Free;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.Clear;\r\nbegin\r\n  BeginUpdate;\r\n  ClearMarkers;\r\n  ClearPolygons;\r\n  ClearCircles;\r\n  ClearLabels;\r\n  ClearElementContainers;\r\n  ClearRectangles;\r\n  ClearPolylines;\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.ClearMarkers;\r\nbegin\r\n  BeginUpdate;\r\n  Markers.Clear;\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.ClearPolylines;\r\nbegin\r\n  BeginUpdate;\r\n  Polylines.Clear;\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.ClearPolygons;\r\nbegin\r\n  BeginUpdate;\r\n  Polygons.Clear;\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.ClearRectangles;\r\nbegin\r\n  BeginUpdate;\r\n  Rectangles.Clear;\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.ClearCircles;\r\nbegin\r\n  BeginUpdate;\r\n  Circles.Clear;\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.ClearElementContainers;\r\nbegin\r\n  BeginUpdate;\r\n  ElementContainers.Clear;\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.ClearHeadLinks;\r\nbegin\r\n  BeginUpdate;\r\n  HeadLinks.Clear;\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.ClearLabels;\r\nbegin\r\n  BeginUpdate;\r\n  Labels.Clear;\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.SetCenterCoordinate(ALatitude: Double; ALongitude: Double);\r\nbegin\r\n  SetCenterCoordinate(CreateCoordinate(ALatitude, ALongitude));\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.SetCenterCoordinate(ACoordinate: TTMSFNCMapsCoordinateRec);\r\nvar\r\n  b: TTMSFNCMapsCoordinate;\r\nbegin\r\n  if MapInitialized and MapReady then\r\n  begin\r\n    b := TTMSFNCMapsCoordinate.Create(ACoordinate);\r\n    try\r\n      ExecuteJavaScript(SETCENTERCOORDINATEFUNCTION + '(' + b.ToJSON + ')');\r\n    finally\r\n      b.Free;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.ZoomToBounds(ANorthEast: TTMSFNCMapsCoordinateRec; ASouthWest: TTMSFNCMapsCoordinateRec);\r\nvar\r\n  b: TTMSFNCMapsBounds;\r\nbegin\r\n  if MapInitialized and MapReady then\r\n  begin\r\n    b := TTMSFNCMapsBounds.Create(ANorthEast, ASouthWest);\r\n    try\r\n      ExecuteJavaScript(ZOOMTOBOUNDSFUNCTION + '(' + b.ToJSON + ')');\r\n    finally\r\n      b.Free;\r\n    end;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCMaps }\r\n\r\nprocedure TTMSFNCMaps.RegisterRuntimeClasses;\r\nbegin\r\n  RegisterClass(TTMSFNCMaps);\r\n  RegisterClass(TTMSFNCMapsMarker);\r\n  RegisterClass(TTMSFNCMapsPolyElement);\r\n  RegisterClass(TTMSFNCMapsPolyline);\r\n  RegisterClass(TTMSFNCMapsPolygon);\r\nend;\r\n\r\nfunction GetFirstChildNode(const ANode: TTMSFNCMapsXMLNode): TTMSFNCMapsXMLDomNode;\r\nbegin\r\n  {$IFNDEF LCLWEBLIB}\r\n  Result := ANode.DOMNode.firstChild;\r\n  {$ELSE}\r\n  Result := ANode.firstChild;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction FindNodeAttribute(const ANode: TTMSFNCMapsXMLDOMNode; const ANodeName: string): TTMSFNCMapsXMLDomNode;\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  asm\r\n    if (ANode.attributes){\r\n      return ANode.attributes.getNamedItem(ANodeName);\r\n    }else{\r\n      return undefined;\r\n    }\r\n  end;\r\n  {$ELSE}\r\n  Result := ANode.Attributes.GetNamedItem(ANodeName);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction FindNode(const ANode: TTMSFNCMapsXMLNode; const ANodeName: string): TTMSFNCMapsXMLNode;\r\nbegin\r\n  {$IFNDEF LCLLIB}\r\n  Result := ANode.ChildNodes.FindNode(ANodeName);\r\n  {$ELSE}\r\n  Result := ANode.FindNode(ANodeName);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction FindDOMNode(const ANode: TTMSFNCMapsXMLDOMNode; const ANodeName: string): TTMSFNCMapsXMLDOMNode;\r\nvar\r\n  I: Integer;\r\n  rNode: TTMSFNCMapsXMLDOMNode;\r\nbegin\r\n  {$IFNDEF LCLLIB}\r\n  Result := nil;\r\n  for I := 0 to ANode.childNodes.length - 1 do\r\n  begin\r\n    rNode := ANode.childNodes[I];\r\n    if rNode.NodeName = ANodeName then\r\n      Result := rNode;\r\n  end;\r\n  {$ELSE}\r\n  Result := ANode.FindNode(ANodeName);\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction NodeToString(ANode: TTMSFNCMapsXMLDOMNode): string;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(ANode) then\r\n    Exit;\r\n\r\n  Result := ANode.firstChild.nodeValue;\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\nfunction TTMSFNCCustomMaps.LoadGPXFromFile(AFileName: string; AAutoDisplay: Boolean = True;\r\n  AZoomToBounds: Boolean = True; AStrokeWidth: Integer = 3; AStrokeColor: TTMSFNCGraphicsColor = gcBlack; ADisplayElevation: Boolean = False;\r\n  ADisplayTimeStamps: Boolean = False; AMinSecondsBetweenTimeStamps: Integer = 600): TTMSFNCMapsGPXRec;\r\nvar\r\n  ms: TMemoryStream;\r\nbegin\r\n  ms := TMemoryStream.Create;\r\n  try\r\n    ms.LoadFromFile(AFileName);\r\n    Result := LoadGPXFromStream(ms, AAutoDisplay, AZoomToBounds, AStrokeWidth, AStrokeColor, ADisplayElevation, ADisplayTimeStamps, AMinSecondsBetweenTimeStamps);\r\n  finally\r\n    ms.Free;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.LoadGPXFromFile(AFileName: string; AAutoDisplay: Boolean;\r\n  AZoomToBounds: Boolean; AStrokeWidth: Integer; AElevationColors: TTMSFNCMapsGPXColorRecArray; ADisplayElevation: Boolean;\r\n  ADisplayTimeStamps: Boolean = False; AMinSecondsBetweenTimeStamps: Integer = 600): TTMSFNCMapsGPXRec;\r\nvar\r\n  ms: TMemoryStream;\r\nbegin\r\n  ms := TMemoryStream.Create;\r\n  try\r\n    ms.LoadFromFile(AFileName);\r\n    Result := LoadGPXFromStream(ms, AAutoDisplay, AZoomToBounds, AStrokeWidth, AElevationColors, ADisplayElevation, ADisplayTimeStamps, AMinSecondsBetweenTimeStamps);\r\n  finally\r\n    ms.Free;\r\n  end;\r\nend;\r\n\r\n{$IFNDEF LCLLIB}\r\nfunction TTMSFNCCustomMaps.LoadGPXFromFile(AFileName: string;\r\n  AEncoding: TEncoding; AAutoDisplay, AZoomToBounds: Boolean;\r\n  AStrokeWidth: Integer; AElevationColors: TTMSFNCMapsGPXColorRecArray;\r\n  ADisplayElevation, ADisplayTimeStamps: Boolean;\r\n  AMinSecondsBetweenTimeStamps: Integer): TTMSFNCMapsGPXRec;\r\nvar\r\n  ms: TMemoryStream;\r\nbegin\r\n  ms := TMemoryStream.Create;\r\n  try\r\n    ms.LoadFromFile(AFileName);\r\n    Result := LoadGPXFromStream(ms, AEncoding, AAutoDisplay, AZoomToBounds, AStrokeWidth, AElevationColors, ADisplayElevation, ADisplayTimeStamps, AMinSecondsBetweenTimeStamps);\r\n  finally\r\n    ms.Free;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.LoadGPXFromFile(AFileName: string;\r\n  AEncoding: TEncoding; AAutoDisplay, AZoomToBounds: Boolean;\r\n  AStrokeWidth: Integer; AStrokeColor: TTMSFNCGraphicsColor; ADisplayElevation,\r\n  ADisplayTimeStamps: Boolean;\r\n  AMinSecondsBetweenTimeStamps: Integer): TTMSFNCMapsGPXRec;\r\nvar\r\n  ms: TMemoryStream;\r\nbegin\r\n  ms := TMemoryStream.Create;\r\n  try\r\n    ms.LoadFromFile(AFileName);\r\n    Result := LoadGPXFromStream(ms, AEncoding, AAutoDisplay, AZoomToBounds, AStrokeWidth, AStrokeColor, ADisplayElevation, ADisplayTimeStamps, AMinSecondsBetweenTimeStamps);\r\n  finally\r\n    ms.Free;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\n{$ENDIF}\r\n\r\nfunction TTMSFNCCustomMaps.LoadGPXFromStream(const AStream: TStream; AAutoDisplay: Boolean = True;\r\n  AZoomToBounds: Boolean = True; AStrokeWidth: Integer = 3; AStrokeColor: TTMSFNCGraphicsColor = gcBlack; ADisplayElevation: Boolean = False;\r\n  ADisplayTimeStamps: Boolean = False; AMinSecondsBetweenTimeStamps: Integer = 600): TTMSFNCMapsGPXRec;\r\nvar\r\n  s: TStringStream;\r\nbegin\r\n  s := TStringStream.Create('');\r\n  try\r\n    AStream.Position := 0;\r\n    s.CopyFrom(AStream, AStream.Size);\r\n    Result := LoadGPXFromText(s.DataString, AAutoDisplay, AZoomToBounds, AStrokeWidth, AStrokeColor, ADisplayElevation, ADisplayTimeStamps, AMinSecondsBetweenTimeStamps);\r\n  finally\r\n    s.Free;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.LoadGPXFromStream(const AStream: TStream; AAutoDisplay: Boolean;\r\n  AZoomToBounds: Boolean; AStrokeWidth: Integer; AElevationColors: TTMSFNCMapsGPXColorRecArray; ADisplayElevation: Boolean;\r\n  ADisplayTimeStamps: Boolean = False; AMinSecondsBetweenTimeStamps: Integer = 600): TTMSFNCMapsGPXRec;\r\nvar\r\n  s: TStringStream;\r\nbegin\r\n  s := TStringStream.Create('');\r\n  try\r\n    AStream.Position := 0;\r\n    s.CopyFrom(AStream, AStream.Size);\r\n    Result := LoadGPXFromText(s.DataString, AAutoDisplay, AZoomToBounds, AStrokeWidth, AElevationColors, ADisplayElevation, ADisplayTimeStamps, AMinSecondsBetweenTimeStamps);\r\n  finally\r\n    s.Free;\r\n  end;\r\nend;\r\n\r\n{$IFNDEF LCLLIB}\r\nfunction TTMSFNCCustomMaps.LoadGPXFromStream(const AStream: TStream;\r\n  AEncoding: TEncoding; AAutoDisplay, AZoomToBounds: Boolean;\r\n  AStrokeWidth: Integer; AElevationColors: TTMSFNCMapsGPXColorRecArray;\r\n  ADisplayElevation, ADisplayTimeStamps: Boolean;\r\n  AMinSecondsBetweenTimeStamps: Integer): TTMSFNCMapsGPXRec;\r\nvar\r\n  s: TStringStream;\r\nbegin\r\n  s := TStringStream.Create('', AEncoding);\r\n  try\r\n    AStream.Position := 0;\r\n    s.CopyFrom(AStream, AStream.Size);\r\n    Result := LoadGPXFromText(s.DataString, AAutoDisplay, AZoomToBounds, AStrokeWidth, AElevationColors, ADisplayElevation, ADisplayTimeStamps, AMinSecondsBetweenTimeStamps);\r\n  finally\r\n    s.Free;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.LoadGPXFromStream(const AStream: TStream;\r\n  AEncoding: TEncoding; AAutoDisplay, AZoomToBounds: Boolean;\r\n  AStrokeWidth: Integer; AStrokeColor: TTMSFNCGraphicsColor; ADisplayElevation,\r\n  ADisplayTimeStamps: Boolean;\r\n  AMinSecondsBetweenTimeStamps: Integer): TTMSFNCMapsGPXRec;\r\nvar\r\n  s: TStringStream;\r\nbegin\r\n  s := TStringStream.Create('', AEncoding);\r\n  try\r\n    AStream.Position := 0;\r\n    s.CopyFrom(AStream, AStream.Size);\r\n    Result := LoadGPXFromText(s.DataString, AAutoDisplay, AZoomToBounds, AStrokeWidth, AStrokeColor, ADisplayElevation, ADisplayTimeStamps, AMinSecondsBetweenTimeStamps);\r\n  finally\r\n    s.Free;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TTMSFNCCustomMaps.LoadGPXFromText(AText: string; AAutoDisplay: Boolean = True;\r\n  AZoomToBounds: Boolean = True; AStrokeWidth: Integer = 3; AStrokeColor: TTMSFNCGraphicsColor = gcBlack; ADisplayElevation: Boolean = False;\r\n  ADisplayTimeStamps: Boolean = False; AMinSecondsBetweenTimeStamps: Integer = 600): TTMSFNCMapsGPXRec;\r\nbegin\r\n  Result := InternalLoadGPX(AText, AAutoDisplay, AZoomToBounds, AStrokeWidth, AStrokeColor, ADisplayElevation, ADisplayTimeStamps, AMinSecondsBetweenTimeStamps);\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.LoadGPXFromText(AText: string; AAutoDisplay: Boolean;\r\n  AZoomToBounds: Boolean; AStrokeWidth: Integer; AElevationColors: TTMSFNCMapsGPXColorRecArray; ADisplayElevation: Boolean;\r\n  ADisplayTimeStamps: Boolean = False; AMinSecondsBetweenTimeStamps: Integer = 600): TTMSFNCMapsGPXRec;\r\nbegin\r\n  Result := InternalLoadGPX(AText, AAutoDisplay, AZoomToBounds, AStrokeWidth, AElevationColors, ADisplayElevation, ADisplayTimeStamps, AMinSecondsBetweenTimeStamps);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.Loaded;\r\nbegin\r\n  inherited;\r\n  BeginUpdate;\r\n  EndUpdate;\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\nfunction TTMSFNCCustomMaps.LoadGeoJSONFromFile(\r\n  AFileName: string; AAutoDisplay: Boolean = True; AZoomToBounds: Boolean = True): TTMSFNCMapsGeoJSONRec;\r\nvar\r\n  ms: TMemoryStream;\r\nbegin\r\n  ms := TMemoryStream.Create;\r\n  try\r\n    ms.LoadFromFile(AFileName);\r\n    Result := LoadGeoJSONFromStream(ms, AAutoDisplay, AZoomToBounds);\r\n  finally\r\n    ms.Free;\r\n  end;\r\nend;\r\n\r\n{$IFNDEF LCLLIB}\r\nfunction TTMSFNCCustomMaps.LoadGeoJSONFromFile(AFileName: string;\r\n  AEncoding: TEncoding; AAutoDisplay,\r\n  AZoomToBounds: Boolean): TTMSFNCMapsGeoJSONRec;\r\nvar\r\n  ms: TMemoryStream;\r\nbegin\r\n  ms := TMemoryStream.Create;\r\n  try\r\n    ms.LoadFromFile(AFileName);\r\n    Result := LoadGeoJSONFromStream(ms, AEncoding, AAutoDisplay, AZoomToBounds);\r\n  finally\r\n    ms.Free;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n{$ENDIF}\r\n\r\n{$IFNDEF LCLLIB}\r\nfunction TTMSFNCCustomMaps.LoadGeoJSONFromStream(const AStream: TStream;\r\n  AEncoding: TEncoding; AAutoDisplay,\r\n  AZoomToBounds: Boolean): TTMSFNCMapsGeoJSONRec;\r\nvar\r\n  s: TStringStream;\r\nbegin\r\n  s := TStringStream.Create('', AEncoding);\r\n  try\r\n    AStream.Position := 0;\r\n    s.CopyFrom(AStream, AStream.Size);\r\n    Result := LoadGeoJSONFromText(s.DataString, AAutoDisplay, AZoomToBounds);\r\n  finally\r\n    s.Free;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\nfunction TTMSFNCCustomMaps.LoadGeoJSONFromStream(\r\n  const AStream: TStream; AAutoDisplay: Boolean = True; AZoomToBounds: Boolean = True): TTMSFNCMapsGeoJSONRec;\r\nbegin\r\n  Result := LoadGeoJSONFromStream(AStream{$IFNDEF LCLLIB}, TEncoding.Default{$ENDIF}, AAutoDisplay, AZoomToBounds);\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.LoadGeoJSONFromText(\r\n  AText: string; AAutoDisplay: Boolean = True; AZoomToBounds: Boolean = True): TTMSFNCMapsGeoJSONRec;\r\nbegin\r\n  Result := InternalLoadGeoJSON(AText, AAutoDisplay, AZoomToBounds);\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.InternalLoadGeoJSON(\r\n  AText: string; AAutoDisplay: Boolean = True; AZoomToBounds: Boolean = True): TTMSFNCMapsGeoJSONRec;\r\nvar\r\n  jv, jvv: TJSONValue;\r\n  ja: TJSONArray;\r\n  f, I, J: Integer;\r\n  coords: TTMSFNCMapsCoordinateRecArrayArray;\r\n  minlon, maxlon, minlat, maxlat, lon, lat: double;\r\n  typeid: string;\r\n  featname: string;\r\n  path, allpath: TTMSFNCMapsCoordinateRecArray;\r\n  p: TTMSFNCMapsPolygon;\r\n\r\n  procedure AddCoords(arr: TJSONArray);\r\n  begin\r\n    SetLength(coords[Length(coords) - 1], Length(coords[Length(coords) - 1]) + 1);\r\n\r\n    if TTMSFNCUtils.GetJSONArraySize(arr) in [2,3] then\r\n    begin\r\n      lon := TTMSFNCUtils.GetJSONValueAsDouble(TTMSFNCUtils.GetJSONArrayItem(arr, 0));\r\n      lat := TTMSFNCUtils.GetJSONValueAsDouble(TTMSFNCUtils.GetJSONArrayItem(arr, 1));\r\n      coords[Length(coords) - 1][Length(coords[Length(coords) - 1]) - 1].Longitude := lon;\r\n      coords[Length(coords) - 1][Length(coords[Length(coords) - 1]) - 1].Latitude := lat;\r\n\r\n      if lon > maxlon then\r\n        maxlon := lon;\r\n      if lon < minlon then\r\n        minlon := lon;\r\n      if lat > maxlat then\r\n        maxlat := lat;\r\n      if lat < minlat then\r\n        minlat := lat;\r\n    end;\r\n  end;\r\n\r\n  procedure AddCoordArray;\r\n  begin\r\n    SetLength(coords, Length(coords) + 1);\r\n  end;\r\n\r\n  procedure ParseFeature(AValue: TJSONValue);\r\n  var\r\n    l, j, k, m, n: integer;\r\n    jp, geojsondata: TJSONValue;\r\n    jaf, jac, jacc, jaccc: TJSONArray;\r\n    geoJSONEventData: TTMSFNCMapsGeoJSONEventData;\r\n  begin\r\n    SetLength(coords, 0);\r\n\r\n    jp := TTMSFNCUtils.GetJSONValue(AValue, 'name');\r\n    if not Assigned(jp) then\r\n      jp := TTMSFNCUtils.GetJSONValue(AValue, 'properties');\r\n\r\n    if Assigned(jp) then\r\n      featname := TTMSFNCUtils.GetJSONProp(jp, 'name');\r\n\r\n    // get geometry of each feature\r\n    jp := TTMSFNCUtils.GetJSONValue(AValue, 'geometry');\r\n    if Assigned(jp) then\r\n    begin\r\n      geojsondata := jp;\r\n      typeid := Uppercase(TTMSFNCUtils.GetJSONProp(jp, 'type'));\r\n\r\n      if (typeid = 'POLYGON') or (typeid = 'MULTIPOLYGON') or (typeid = 'LINESTRING') or (typeid = 'MULTILINESTRING') or (typeid = 'POINT') then\r\n      begin\r\n        jp := TTMSFNCUtils.GetJSONValue(jp, 'coordinates');\r\n\r\n        if Assigned(jp) and (jp is TJSONArray) then\r\n        begin\r\n          jaf := jp as TJSONArray;\r\n\r\n          if (TTMSFNCUtils.GetJSONArraySize(jaf) in [2,3]) and not (TTMSFNCUtils.GetJSONArrayItem(jaf, 0) is TJSONArray) then\r\n          begin\r\n            AddCoords(jaf)\r\n          end\r\n          else\r\n          begin\r\n            for l := 0 to TTMSFNCUtils.GetJSONArraySize(jaf) - 1 do\r\n            begin\r\n              jac := TTMSFNCUtils.GetJSONArrayItem(jaf, l) as TJSONArray;\r\n              AddCoordArray;\r\n\r\n              if (TTMSFNCUtils.GetJSONArraySize(jac) in [2,3]) and not (TTMSFNCUtils.GetJSONArrayItem(jac, 0) is TJSONArray) then\r\n              begin\r\n                AddCoords(jac);\r\n              end\r\n              else\r\n              begin\r\n                for j := 0 to TTMSFNCUtils.GetJSONArraySize(jac) - 1 do\r\n                begin\r\n                  if TTMSFNCUtils.GetJSONArrayItem(jac, j) is TJSONArray then\r\n                  begin\r\n                    jacc := TTMSFNCUtils.GetJSONArrayItem(jac, j) as TJSONArray;\r\n\r\n                    if (TTMSFNCUtils.GetJSONArraySize(jacc) in [2,3]) and not (TTMSFNCUtils.GetJSONArrayItem(jacc, 0) is TJSONArray) then\r\n                    begin\r\n                      AddCoords(jacc);\r\n                    end\r\n                    else\r\n                    begin\r\n                      for k := 0 to TTMSFNCUtils.GetJSONArraySize(jacc) - 1 do\r\n                      begin\r\n                        if TTMSFNCUtils.GetJSONArrayItem(jacc, k) is TJSONArray then\r\n                        begin\r\n                          jaccc := TTMSFNCUtils.GetJSONArrayItem(jacc, k) as TJSONArray;\r\n                          AddCoords(jaccc);\r\n                        end;\r\n                      end;\r\n                    end;\r\n                  end;\r\n                end;\r\n              end;\r\n            end;\r\n          end;\r\n        end;\r\n\r\n        SetLength(path, 0);\r\n\r\n        for n := 0 to Length(coords) - 1 do\r\n        begin\r\n          for k := 0 to Length(coords[n]) - 1 do\r\n          begin\r\n            if n = 0 then\r\n            begin\r\n              SetLength(path, Length(path) + 1);\r\n              path[Length(path) - 1] := CreateCoordinate(coords[n][k].Latitude, coords[n][k].Longitude);\r\n            end;\r\n\r\n            SetLength(allpath, Length(allpath) + 1);\r\n            allpath[Length(allpath) - 1] := CreateCoordinate(coords[n][k].Latitude, coords[n][k].Longitude);\r\n          end;\r\n        end;\r\n\r\n        geoJSONEventData := TTMSFNCMapsGeoJSONEventData.Create;\r\n        geoJSONEventData.JSONValue := geojsondata;\r\n\r\n        if typeid = 'POINT' then\r\n        begin\r\n          SetLength(Result.Points, Length(Result.Points) + 1);\r\n          Result.Points[Length(Result.Points) - 1].Coordinate := path[0];\r\n          Result.Points[Length(Result.Points) - 1].Name := featname;\r\n          geoJSONEventData.Point := Result.Points[Length(Result.Points) - 1].Coordinate;\r\n        end\r\n        else if (typeid = 'LINESTRING') or (typeid = 'MULTILINESTRING') then\r\n        begin\r\n          SetLength(Result.Polylines, Length(Result.Polylines) + 1);\r\n          Result.Polylines[Length(Result.Polylines) - 1].Coordinates := path;\r\n          Result.Polylines[Length(Result.Polylines) - 1].Name := featname;\r\n          geoJSONEventData.Polyline := Result.Polylines[Length(Result.Polylines) - 1].Coordinates;\r\n        end\r\n        else\r\n        begin\r\n          SetLength(Result.Polygons, Length(Result.Polygons) + 1);\r\n          Result.Polygons[Length(Result.Polygons) - 1].Coordinates := path;\r\n          Result.Polygons[Length(Result.Polygons) - 1].Name := featname;\r\n          for m := 1 to Length(coords) - 1 do\r\n          begin\r\n            SetLength(Result.Polygons[Length(Result.Polygons) - 1].Holes, Length(Result.Polygons[Length(Result.Polygons) - 1].Holes) + 1);\r\n            Result.Polygons[Length(Result.Polygons) - 1].Holes[m - 1] := coords[m];\r\n          end;\r\n          geoJSONEventData.Polygon := Result.Polygons[Length(Result.Polygons) - 1].Coordinates;\r\n        end;\r\n\r\n        try\r\n          DoCreateGeoJSONObject(geoJSONEventData);\r\n        finally\r\n          geoJSONEventData.Free;\r\n        end;\r\n\r\n      end;\r\n    end;\r\n  end;\r\n\r\nbegin\r\n  jv := TTMSFNCUtils.ParseJSON(AText);\r\n\r\n  if Assigned(jv) then\r\n  begin\r\n    try\r\n      jvv := TTMSFNCUtils.GetJSONValue(jv, 'features');\r\n\r\n      minlon := +1000;\r\n      maxlon := -1000;\r\n      minlat := +1000;\r\n      maxlat := -1000;\r\n\r\n      if Assigned(jvv) and (jvv is TJSONArray) then\r\n      begin\r\n        ja := jvv as TJSONArray;\r\n        for f := 0 to TTMSFNCUtils.GetJSONArraySize(ja) - 1 do\r\n          ParseFeature(TTMSFNCUtils.GetJSONArrayItem(ja, f));\r\n      end\r\n      else\r\n        ParseFeature(jv);\r\n    finally\r\n      jv.Free;\r\n    end;\r\n\r\n    if AAutoDisplay then\r\n    begin\r\n      for I := 0 to Length(Result.Points) - 1 do\r\n        AddMarker(Result.Points[I].Coordinate);\r\n      for I := 0 to Length(Result.Polylines) - 1 do\r\n        AddPolyline(Result.Polylines[I].Coordinates);\r\n      for I := 0 to Length(Result.Polygons) - 1 do\r\n      begin\r\n        p := AddPolygon(Result.Polygons[I].Coordinates);\r\n        for J := 0 to Length(Result.Polygons[I].Holes) - 1 do\r\n        begin\r\n          p.AddHole(Result.Polygons[I].Holes[J]);\r\n        end;\r\n      end;\r\n      if AZoomToBounds then\r\n        ZoomToBounds(allpath);\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.InternalLoadGPX(AText: string; AAutoDisplay: Boolean = True;\r\n  AZoomToBounds: Boolean = True; AStrokeWidth: Integer = 3; AStrokeColor: TTMSFNCGraphicsColor = gcBlack; ADisplayElevation: Boolean = False;\r\n  ADisplayTimeStamps: Boolean = False; AMinSecondsBetweenTimeStamps: Integer = 600): TTMSFNCMapsGPXRec;\r\nvar\r\n  AElevationColors: TTMSFNCMapsGPXColorRecArray;\r\nbegin\r\n  SetLength(AElevationColors, 1);\r\n  AElevationColors[0].Color := AStrokeColor;\r\n\r\n  Result := InternalLoadGPX(AText, AAutoDisplay, AZoomToBounds, AStrokeWidth, AElevationColors, ADisplayElevation, ADisplayTimeStamps, AMinSecondsBetweenTimeStamps);\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.InternalLoadGPX(AText: string; AAutoDisplay: Boolean = True;\r\n  AZoomToBounds: Boolean = True; AStrokeWidth: Integer = 3; AElevationColors: TTMSFNCMapsGPXColorRecArray = nil; ADisplayElevation: Boolean = False;\r\n  ADisplayTimeStamps: Boolean = False; AMinSecondsBetweenTimeStamps: Integer = 600): TTMSFNCMapsGPXRec;\r\n\r\n    function GetNodeString(ANode: TTMSFNCMapsXMLNode): string;\r\n    begin\r\n      Result := '';\r\n      if Assigned(ANode) {$IFNDEF LCLWEBLIB} and Assigned(ANode.DOMNode){$ENDIF} then\r\n      begin\r\n        Result := ANode{$IFNDEF LCLWEBLIB}.DOMNode{$ENDIF}.firstChild.nodeValue;\r\n      end;\r\n    end;\r\n\r\nvar\r\n  xmldoc: TTMSFNCMapsXMLDocument;\r\n  I, J, K, L: Integer;\r\n  iNode, nNode, sNode: TTMSFNCMapsXMLNode;\r\n  snlat, snlng, cNode, pNode, eNode, lNode: TTMSFNCMapsXMLDomNode;\r\n  v: Double;\r\n  parentNode: TTMSFNCMapsXMLNode;\r\n  gpx11: Boolean;\r\n  cnt, cntTr, cntSeg, cntWpt: Integer;\r\n  {$IFDEF LCLLIB}\r\n  ss: TStringStream;\r\n  {$ENDIF}\r\n  allpath, arr: TTMSFNCMapsCoordinateRecArray;\r\n  nodeName, timeStamp: string;\r\n  ele, maxHeight, minHeight, divHeight: Double;\r\n  heightFound: Boolean;\r\n  p: TTMSFNCMapsPolyline;\r\n  prevColor: TTMSFNCGraphicsColor;\r\n  clr: TTMSFNCMapsGPXColorRec;\r\n  clrs: TTMSFNCMapsGPXColorRecArray;\r\n  startTime, endTime: TDateTime;\r\n  grade, prevGrade, gradeCount: Integer;\r\n  trackEventData: TTMSFNCMapsGPXTrackEventData;\r\n  segmentEventData: TTMSFNCMapsGPXSegmentEventData;\r\n  waypointEventData: TTMSFNCMapsGPXWayPointEventData;\r\n  m: TTMSFNCMapsMarker;\r\nbegin\r\n  {$IFDEF LCLLIB}\r\n  ss := TStringStream.Create(AText);\r\n  try\r\n    ReadXMLFile(xmldoc, ss);\r\n  finally\r\n    ss.Free;\r\n  end;\r\n  {$ELSE}\r\n  {$IFDEF WEBLIB}\r\n  asm\r\n    var parser = new DOMParser();\r\n    xmldoc = parser.parseFromString(AText, 'text/xml');\r\n  end;\r\n  {$ELSE}\r\n  xmldoc := TXmlDocument.Create(nil);\r\n  xmldoc.LoadFromXML(AText);\r\n  {$ENDIF}\r\n  {$ENDIF}\r\n\r\n  parentNode := xmldoc.DocumentElement;\r\n\r\n  gpx11 := false;\r\n  cntTr := -1;\r\n  minHeight := 0;\r\n  maxHeight := 0;\r\n  endTime := 0;\r\n  cntWpt := -1;\r\n  v := 0;\r\n\r\n  if Assigned(parentNode) then\r\n  begin\r\n\r\n    iNode := FindNode(parentNode, 'wpt');\r\n\r\n    repeat\r\n      if Assigned(iNode) then\r\n      begin\r\n        snlat := FindNodeAttribute(iNode{$IFNDEF LCLWEBLIB}.DOMNode{$ENDIF}, 'lat');\r\n        snlng := FindNodeAttribute(iNode{$IFNDEF LCLWEBLIB}.DOMNode{$ENDIF}, 'lon');\r\n\r\n        if Assigned(snlat) and Assigned(snlng) then\r\n        begin\r\n          inc(cntWpt);\r\n          SetLength(Result.WayPoints, cntWpt + 1);\r\n\r\n          if TTMSFNCUtils.TryStrToFloatDot(snlat.nodeValue, v) then\r\n          begin\r\n            Result.WayPoints[cntWpt].WayPoint.Latitude := v;\r\n          end;\r\n\r\n          if TTMSFNCUtils.TryStrToFloatDot(snlng.nodeValue, v) then\r\n          begin\r\n            Result.WayPoints[cntWpt].WayPoint.Longitude := v;\r\n          end;\r\n\r\n          nNode := FindNode(iNode, 'name');\r\n          Result.WayPoints[cntWpt].Name := GetNodeString(nNode);\r\n\r\n          nNode := FindNode(iNode, 'cmt');\r\n          Result.WayPoints[cntWpt].Comment := GetNodeString(nNode);\r\n\r\n          nNode := FindNode(iNode, 'desc');\r\n          Result.WayPoints[cntWpt].Description := GetNodeString(nNode);\r\n\r\n          nNode := FindNode(iNode, 'sym');\r\n          Result.WayPoints[cntWpt].Symbol := GetNodeString(nNode);\r\n\r\n          nNode := FindNode(iNode, 'type');\r\n          Result.WayPoints[cntWpt].WayPointType := GetNodeString(nNode);\r\n\r\n          Result.WayPoints[cntWpt].HasTimeStamp := False;\r\n          nNode := FindNode(iNode, 'time');\r\n          timeStamp := GetNodeString(nNode);\r\n          if timeStamp <> '' then\r\n          begin\r\n            Result.WayPoints[cntWpt].TimeStamp := TTMSFNCUtils.ISOToDateTime(timestamp, True);\r\n            Result.WayPoints[cntWpt].HasTimeStamp := True;\r\n          end;\r\n\r\n          Result.WayPoints[cntWpt].HasElevation := False;\r\n          nNode := FindNode(iNode, 'ele');\r\n          if TTMSFNCUtils.TryStrToFloatDot(GetNodeString(nNode), v) then\r\n          begin\r\n            Result.WayPoints[cntWpt].Elevation := v;\r\n            Result.WayPoints[cntWpt].HasElevation := True;\r\n          end;\r\n\r\n          nNode := FindNode(iNode, 'link');\r\n          if Assigned(nNode) {$IFNDEF LCLWEBLIB} and Assigned(nNode.DOMNode){$ENDIF} then\r\n          begin\r\n            lNode := FindNodeAttribute(nNode{$IFNDEF LCLWEBLIB}.DOMNode{$ENDIF}, 'href');\r\n\r\n            if Assigned(lNode) then\r\n            begin\r\n              Result.WayPoints[cntWpt].Link := lNode.nodeValue;\r\n            end;\r\n          end;\r\n\r\n          waypointEventData := TTMSFNCMapsGPXWayPointEventData.Create;\r\n          waypointEventData.Node := iNode{$IFNDEF LCLWEBLIB}.DOMNode{$ENDIF};\r\n          waypointEventData.Data := Result.WayPoints[cntWpt];\r\n          try\r\n            DoCreateGPXWayPoint(waypointEventData);\r\n          finally\r\n            waypointEventData.Free;\r\n          end;\r\n\r\n        end;\r\n      end;\r\n      if Assigned(iNode) then\r\n        iNode := iNode.NextSibling;\r\n    until (not Assigned(iNode));\r\n\r\n    iNode := FindNode(parentNode, 'trk');\r\n\r\n    if not Assigned(iNode) then\r\n    begin\r\n      iNode := FindNode(parentNode, 'rte');\r\n      gpx11 := true;\r\n    end;\r\n\r\n    repeat\r\n      if Assigned(iNode) then\r\n      begin\r\n        cntSeg := -1;\r\n        inc(cntTr);\r\n\r\n        SetLength(Result.Tracks, cntTr + 1);\r\n\r\n        nNode := FindNode(iNode, 'name');\r\n        if Assigned(nNode) {$IFNDEF LCLWEBLIB} and Assigned(nNode.DOMNode){$ENDIF} then\r\n          Result.Tracks[cntTr].Name := nNode{$IFNDEF LCLWEBLIB}.DOMNode{$ENDIF}.nodeName;\r\n\r\n        trackEventData := TTMSFNCMapsGPXTrackEventData.Create;\r\n        trackEventData.Node := iNode{$IFNDEF LCLWEBLIB}.DOMNode{$ENDIF};\r\n        trackEventData.Data := Result.Tracks[cntTr];\r\n        try\r\n          DoCreateGPXTrack(trackEventData);\r\n        finally\r\n          trackEventData.Free;\r\n        end;\r\n\r\n        if not gpx11 then\r\n          sNode := FindNode(iNode, 'trkseg')\r\n        else\r\n          sNode := iNode;\r\n\r\n        repeat\r\n          if Assigned(sNode) and sNode.HasChildNodes then\r\n          begin\r\n            cnt := -1;\r\n            inc(cntSeg);\r\n            SetLength(Result.Tracks[cntTr].Segments, cntSeg + 1);\r\n            heightFound := false;\r\n\r\n            cNode := GetFirstChildNode(sNode);\r\n\r\n            while Assigned(cNode) do\r\n            begin\r\n              pNode := cNode;\r\n              nodeName := pNode.NodeName;\r\n\r\n              if not gpx11 or (gpx11 and (pNode.NodeName = 'rtept')) then\r\n              begin\r\n                snlat := FindNodeAttribute(pNode, 'lat');\r\n                snlng := FindNodeAttribute(pNode, 'lon');\r\n\r\n                if Assigned(snlat) and Assigned(snlng) then\r\n                begin\r\n                  inc(cnt);\r\n                  SetLength(Result.Tracks[cntTr].Segments[cntSeg], cnt + 1);\r\n\r\n                  if nodeName = 'trkpt' then\r\n                  begin\r\n                    eNode := FindDomNode(pNode, 'ele');\r\n                    if Assigned(eNode) then\r\n                    begin\r\n                      ele := 0;\r\n                      if TTMSFNCUtils.TryStrToFloatDot(eNode.firstChild.nodeValue, ele) then\r\n                      begin\r\n                        if heightFound then\r\n                        begin\r\n                          if ele > maxHeight then\r\n                            maxHeight := ele;\r\n                          if ele < minHeight then\r\n                            minHeight := ele;\r\n                        end\r\n                        else\r\n                        begin\r\n                          heightFound := true;\r\n                          maxHeight := ele;\r\n                          minHeight := ele;\r\n                        end;\r\n\r\n                        Result.Tracks[cntTr].Segments[cntSeg][cnt].Elevation := ele;\r\n                        Result.Tracks[cntTr].Segments[cntSeg][cnt].HasElevation := True;\r\n                      end;\r\n                    end;\r\n\r\n                    eNode := FindDOMNode(pNode, 'time');\r\n                    if Assigned(eNode) then\r\n                    begin\r\n                      timestamp := eNode.firstChild.nodeValue;\r\n                      if timestamp <> '' then\r\n                      begin\r\n                        Result.Tracks[cntTr].Segments[cntSeg][cnt].TimeStamp := TTMSFNCUtils.ISOToDateTime(timestamp, True);\r\n                        Result.Tracks[cntTr].Segments[cntSeg][cnt].HasTimeStamp := True;\r\n                      end;\r\n                    end;\r\n                  end;\r\n\r\n                  v := 0;\r\n                  if TTMSFNCUtils.TryStrToFloatDot(snlat.nodeValue, v) then\r\n                    Result.Tracks[cntTr].Segments[cntSeg][cnt].Latitude := v;\r\n\r\n                  v := 0;\r\n                  if TTMSFNCUtils.TryStrToFloatDot(snlng.nodeValue, v) then\r\n                    Result.Tracks[cntTr].Segments[cntSeg][cnt].Longitude := v;\r\n\r\n                  SetLength(allpath, Length(allpath) + 1);\r\n                  allpath[Length(allpath) - 1] := CreateCoordinate(Result.Tracks[cntTr].Segments[cntSeg][cnt].Latitude, Result.Tracks[cntTr].Segments[cntSeg][cnt].Longitude);\r\n\r\n                  segmentEventData := TTMSFNCMapsGPXSegmentEventData.Create;\r\n                  segmentEventData.Node := pNode;\r\n                  segmentEventData.Data := Result.Tracks[cntTr].Segments[cntSeg][cnt];\r\n                  try\r\n                    DoCreateGPXSegment(segmentEventData);\r\n                  finally\r\n                    segmentEventData.Free;\r\n                  end;\r\n                end;\r\n              end;\r\n\r\n              cNode := cNode.nextSibling;\r\n            end;\r\n          end;\r\n\r\n        if Assigned(sNode) then\r\n          sNode := sNode.NextSibling;\r\n\r\n        until (not Assigned(sNode));\r\n      end;\r\n\r\n      if Assigned(iNode) then\r\n        iNode := iNode.NextSibling;\r\n    until (not Assigned(iNode));\r\n  end;\r\n\r\n  if AAutoDisplay then\r\n  begin\r\n    if Assigned(AElevationColors) then\r\n    begin\r\n      SetLength(clrs, Length(AElevationColors));\r\n      clrs := AElevationColors;\r\n    end\r\n    else\r\n    begin\r\n      SetLength(clrs, 5);\r\n      clr.Color := gcBlack;\r\n      clrs[0] := clr;\r\n      clr.Color := gcGreen;\r\n      clrs[1] := clr;\r\n      clr.Color := gcYellow;\r\n      clrs[2] := clr;\r\n      clr.Color := gcOrange;\r\n      clrs[3] := clr;\r\n      clr.Color := gcRed;\r\n      clrs[4] := clr;\r\n    end;\r\n    color := clrs[0].Color;\r\n    prevColor := color;\r\n    grade := 0;\r\n    prevGrade := grade;\r\n\r\n    BeginUpdate;\r\n    for I := 0 to Length(Result.WayPoints) - 1 do\r\n    begin\r\n      m := AddMarker(Result.WayPoints[I].WayPoint);\r\n      m.DefaultIcon.Enabled := True;\r\n//      if Result.WayPoints[I].Name <> '' then\r\n//      begin\r\n//        //AddLabel(Result.WayPoints[I].WayPoint, Result.WayPoints[I].Name, gcBlack, gcWhite);\r\n//      end;\r\n//        + '<br>' + Result.WayPoints[I].Description\r\n//        + '<br>' + Result.WayPoints[I].Comment\r\n//        + '<br><a href=\"' + Result.WayPoints[I].Link + '\" target=\"_blank\">' + Result.WayPoints[I].Link + '</a>'\r\n//        + '<br>' + FloatToStr(Result.WayPoints[I].Elevation)\r\n//        + '<br>' + DateTimeToStr(Result.WayPoints[I].TimeStamp)\r\n//        + '<br>' + Result.WayPoints[I].Symbol\r\n    end;\r\n\r\n    for I := 0 to Length(Result.Tracks) - 1 do\r\n    begin\r\n      for J := 0 to Length(Result.Tracks[I].Segments) - 1 do\r\n      begin\r\n\r\n        if ADisplayElevation or ADisplayTimeStamps then\r\n        begin\r\n          for K := 0 to Length(Result.Tracks[I].Segments[J]) - 1 do\r\n          begin\r\n\r\n            if ADisplayTimeStamps and (AMinSecondsBetweenTimeStamps > 0) then\r\n            begin\r\n              startTime := Result.Tracks[I].Segments[J][K].TimeStamp;\r\n              if (startTime <> endTime) and (starttime <> 0) and (SecondsBetween(startTime, endTime) > AMinSecondsBetweenTimeStamps) then\r\n              begin\r\n                endTime := startTime;\r\n                AddMarker(Result.Tracks[I].Segments[J][K + 1], DateTimeToStr(endTime));\r\n              end;\r\n            end;\r\n\r\n            if ADisplayElevation then\r\n            begin\r\n              gradeCount := 5;\r\n              if Length(clrs) > 1 then\r\n                gradeCount := Length(clrs);\r\n\r\n              divHeight := (maxHeight - minHeight) / gradeCount;\r\n\r\n              grade := 0;\r\n              for L := 0 to gradeCount - 1 do\r\n              begin\r\n                if Result.Tracks[I].Segments[J][K].Elevation > (minHeight + (divHeight * L)) then\r\n                  grade := L;\r\n              end;\r\n\r\n              SetLength(arr, Length(arr) + 1);\r\n              arr[Length(arr) - 1] := Result.Tracks[I].Segments[J][K];\r\n\r\n              if Length(clrs) > 1 then\r\n                color := clrs[grade].Color\r\n              else\r\n                color := Lighter(clrs[0].Color, (grade * Round(100 / gradeCount)));\r\n\r\n              if (grade <> prevGrade) or (K = Length(Result.Tracks[I].Segments[J]) - 2) then\r\n              begin\r\n                prevGrade := grade;\r\n\r\n                SetLength(arr, Length(arr) + 1);\r\n                arr[Length(arr) - 1] := Result.Tracks[I].Segments[J][K + 1];\r\n\r\n                p := AddPolyline(arr);\r\n                p.StrokeColor := color;\r\n                p.StrokeWidth := AStrokeWidth;\r\n                SetLength(arr, 0);\r\n                //WEB workaround\r\n                arr := nil;\r\n              end;\r\n\r\n            end;\r\n          end;\r\n        end\r\n        else\r\n        begin\r\n          p := AddPolyline(Result.Tracks[I].Segments[J]);\r\n          p.StrokeColor := color;\r\n          p.StrokeWidth := AStrokeWidth;\r\n        end;\r\n      end;\r\n    end;\r\n    EndUpdate;\r\n\r\n    if AZoomToBounds then\r\n      ZoomToBounds(allpath);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.ZoomToBounds(ACoordinates: TTMSFNCMapsCoordinateRecArray);\r\nbegin\r\n  ZoomToBounds(CreateBounds(ACoordinates));\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.ZoomToBounds(ACoordinates: TTMSFNCMapsCoordinateRecArrayArrayArray);\r\nbegin\r\n  ZoomToBounds(CreateBounds(ACoordinates));\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.ZoomToBounds(ACoordinates: TTMSFNCMapsCoordinateRecArrayArray);\r\nbegin\r\n  ZoomToBounds(CreateBounds(ACoordinates));\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.ZoomToBounds(ABounds: TTMSFNCMapsBoundsRec);\r\nbegin\r\n  ZoomToBounds(ABounds.NorthEast, ABounds.SouthWest);\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.SetZoomLevel(AZoomLevel: Double);\r\nbegin\r\n  if MapInitialized and MapReady then\r\n    ExecuteJavaScript(SETZOOMLEVELFUNCTION + '(' + TTMSFNCUtils.FloatToStrDot(AZoomLevel) + ')');\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetPolylinesClass: TTMSFNCMapsPolylinesClass;\r\nbegin\r\n  Result := TTMSFNCMapsPolylines;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetPolygonsClass: TTMSFNCMapsPolygonsClass;\r\nbegin\r\n  Result := TTMSFNCMapsPolygons;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetCirclesClass: TTMSFNCMapsCirclesClass;\r\nbegin\r\n  Result := TTMSFNCMapsCircles;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetRectanglesClass: TTMSFNCMapsRectanglesClass;\r\nbegin\r\n  Result := TTMSFNCMapsRectangles;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetMarkerByID(AID: string): TTMSFNCMapsMarker;\r\nbegin\r\n  Result := Markers.ItemByID[AID];\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetMapID: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetPanning: Boolean;\r\nbegin\r\n  Result := Options.Panning;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetPolyElementByID(AID: string): TTMSFNCMapsPolyElement;\r\nvar\r\n  pl, pg, r, c: TTMSFNCMapsPolyElement;\r\nbegin\r\n  Result := nil;\r\n  pl := Polylines.ItemByID[AID];\r\n  pg := Polygons.ItemByID[AID];\r\n  r := Rectangles.ItemByID[AID];\r\n  c := Circles.ItemByID[AID];\r\n\r\n  if Assigned(pl) then\r\n    Result := pl;\r\n  if Assigned(pg) then\r\n    Result := pg;\r\n  if Assigned(r) then\r\n    Result := r;\r\n  if Assigned(c) then\r\n    Result := c;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetMarkersClass: TTMSFNCMapsMarkersClass;\r\nbegin\r\n  Result := TTMSFNCMapsMarkers;\r\nend;\r\n\r\nfunction TTMSFNCCustomMaps.GetHeatMapsClass: TTMSFNCMapsHeatMapsClass;\r\nbegin\r\n  Result := TTMSFNCMapsHeatMaps;\r\nend;\r\n\r\n{ TTMSFNCMaps }\r\n\r\nprocedure TTMSFNCMaps.AddBridge(ABridgeName: string; ABridgeObject: TObject);\r\nbegin\r\n  inherited AddBridge(ABridgeName, ABridgeObject);\r\nend;\r\n\r\nfunction TTMSFNCMaps.CanGoBack: Boolean;\r\nbegin\r\n  Result := inherited CanGoBack;\r\nend;\r\n\r\nfunction TTMSFNCMaps.CanGoForward: Boolean;\r\nbegin\r\n  Result := inherited CanGoForward;\r\nend;\r\n\r\nprocedure TTMSFNCMaps.CaptureScreenShot(ACompleteEvent: TTMSFNCWebBrowserCaptureScreenShotCompleteEvent = nil);\r\nbegin\r\n  inherited CaptureScreenShot(ACompleteEvent);\r\nend;\r\n\r\nprocedure TTMSFNCMaps.ClearCache;\r\nbegin\r\n  inherited ClearCache;\r\nend;\r\n\r\nprocedure TTMSFNCMaps.DeInitialize;\r\nbegin\r\n  inherited DeInitialize;\r\nend;\r\n\r\nprocedure TTMSFNCMaps.ExecuteJavaScript(AScript: String;\r\n  ACompleteEvent: TTMSFNCWebBrowserJavaScriptCompleteEvent = nil; AImmediate: Boolean = False);\r\nbegin\r\n  inherited ExecuteJavaScript(AScript, ACompleteEvent, AImmediate);\r\nend;\r\n\r\nfunction TTMSFNCMaps.ExecuteJavaScriptSync(AScript: String): string;\r\nbegin\r\n  Result := inherited ExecuteJavaScriptSync(AScript);\r\nend;\r\n\r\nfunction TTMSFNCMaps.GetBridgeCommunicationLayer(ABridgeName: string): string;\r\nbegin\r\n  Result := inherited GetBridgeCommunicationLayer(ABridgeName);\r\nend;\r\n\r\n{$IFDEF ANDROID}\r\nfunction TTMSFNCMaps.NativeDialog: Pointer;\r\nbegin\r\n  Result := inherited NativeDialog;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF MSWINDOWS}\r\nfunction TTMSFNCMaps.GetWebBrowserInstance: IInterface;\r\nbegin\r\n  Result := inherited GetWebBrowserInstance;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCMaps.GoBack;\r\nbegin\r\n  inherited GoBack;\r\nend;\r\n\r\nprocedure TTMSFNCMaps.GoForward;\r\nbegin\r\n  inherited GoForward;\r\nend;\r\n\r\nprocedure TTMSFNCMaps.Initialize;\r\nbegin\r\n  inherited Initialize;\r\nend;\r\n\r\nfunction TTMSFNCMaps.IsFMXBrowser: Boolean;\r\nbegin\r\n  Result := inherited IsFMXBrowser;\r\nend;\r\n\r\nprocedure TTMSFNCMaps.LoadFile(AFile: String);\r\nbegin\r\n  inherited LoadFile(AFile);\r\nend;\r\n\r\nprocedure TTMSFNCMaps.LoadHTML(AHTML: String);\r\nbegin\r\n  inherited LoadHTML(AHTML);\r\nend;\r\n\r\nfunction TTMSFNCMaps.NativeBrowser: Pointer;\r\nbegin\r\n  Result := inherited NativeBrowser;\r\nend;\r\n\r\nfunction TTMSFNCMaps.NativeEnvironment: Pointer;\r\nbegin\r\n  Result := inherited NativeEnvironment;\r\nend;\r\n\r\nprocedure TTMSFNCMaps.Navigate;\r\nbegin\r\n  inherited Navigate;\r\nend;\r\n\r\nprocedure TTMSFNCMaps.Navigate(const AURL: string);\r\nbegin\r\n  inherited Navigate(AURL);\r\nend;\r\n\r\nprocedure TTMSFNCMaps.Reload;\r\nbegin\r\n  inherited Reload;\r\nend;\r\n\r\nprocedure TTMSFNCMaps.RemoveBridge(ABridgeName: string);\r\nbegin\r\n  inherited RemoveBridge(ABridgeName);\r\nend;\r\n\r\nprocedure TTMSFNCMaps.ShowDebugConsole;\r\nbegin\r\n  inherited ShowDebugConsole;\r\nend;\r\n\r\nprocedure TTMSFNCMaps.StopLoading;\r\nbegin\r\n  inherited StopLoading;\r\nend;\r\n\r\n{ TTMSFNCMapsElementAction }\r\n\r\nprocedure TTMSFNCMapsElementAction.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTMSFNCMapsElementAction) then\r\n  begin\r\n    FEnabled := (Source as TTMSFNCMapsElementAction).Enabled;\r\n    FElementEvent := (Source as TTMSFNCMapsElementAction).Event;\r\n    FHTMLElementID := (Source as TTMSFNCMapsElementAction).HTMLElementID;\r\n    FTag := (Source as TTMSFNCMapsElementAction).Tag;\r\n    FCustomEvent := (Source as TTMSFNCMapsElementAction).CustomEvent;\r\n    FEventReturnValue := (Source as TTMSFNCMapsElementAction).EventReturnValue;\r\n    FName := (Source as TTMSFNCMapsElementAction).Name;\r\n    FTag := (Source as TTMSFNCMapsElementAction).Tag;\r\n    FOnExecute := (Source as TTMSFNCMapsElementAction).OnExecute;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCMapsElementAction.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(ACollection) then\r\n    FOwner := (Collection as TTMSFNCMapsElementActions).FOwner;\r\n\r\n  FTag := 0;\r\n  FName := 'Action' + IntToStr(Index);\r\n  FEnabled := true;\r\n  FElementEvent := heClick;\r\n  FHTMLElementID := '';\r\n  FCustomEvent := '';\r\n  FEventReturnValue := rvNone;\r\nend;\r\n\r\ndestructor TTMSFNCMapsElementAction.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementAction.SetCustomEvent(const Value: string);\r\nbegin\r\n  if FCustomEvent <> Value then\r\n  begin\r\n    FCustomEvent := Value;\r\n    UpdateAction;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementAction.SetElementEvent(const Value: TTMSFNCMapsHTMLEvent);\r\nbegin\r\n  if FElementEvent <> Value then\r\n  begin\r\n    FElementEvent := Value;\r\n    UpdateAction;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementAction.SetHTMLElementID(const Value: string);\r\nbegin\r\n  if FHTMLElementID <> Value then\r\n  begin\r\n    FHTMLElementID := Value;\r\n    UpdateAction;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementAction.SetEnabled(const Value: boolean);\r\nbegin\r\n  if FEnabled <> Value then\r\n  begin\r\n    FEnabled := Value;\r\n    UpdateAction;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementAction.SetEventReturnValue(\r\n  const Value: TTMSFNCMapsReturnValue);\r\nbegin\r\n  if FEventReturnValue <> Value then\r\n  begin\r\n    FEventReturnValue := Value;\r\n    UpdateAction;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementAction.SetName(const Value: string);\r\nbegin\r\n  FName := Value;\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementAction.UpdateAction;\r\nbegin\r\n  if Assigned(FOwner) then\r\n    FOwner.UpdateElementContainer;\r\nend;\r\n\r\n{ TTMSFNCMapsElementActions }\r\n\r\nfunction TTMSFNCMapsElementActions.Add: TTMSFNCMapsElementAction;\r\nbegin\r\n  Result := TTMSFNCMapsElementAction(inherited Add);\r\nend;\r\n\r\nconstructor TTMSFNCMapsElementActions.Create(AOwner: TTMSFNCMapsElementContainer);\r\nbegin\r\n  inherited Create(AOwner, TTMSFNCMapsElementAction);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCMapsElementActions.FindByName(AName: string): TTMSFNCMapsElementAction;\r\nbegin\r\n  Result := GetActionByName(AName);\r\nend;\r\n\r\nfunction TTMSFNCMapsElementActions.GetAction(AName: string): TTMSFNCMapsElementAction;\r\nbegin\r\n  Result := GetActionByName(AName);\r\nend;\r\n\r\nfunction TTMSFNCMapsElementActions.GetActionByName(AName: string): TTMSFNCMapsElementAction;\r\nvar\r\n  i: integer;\r\nbegin\r\n  Result := nil;\r\n\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    if CompareText(AName, Items[i].Name) = 0 then\r\n    begin\r\n      Result := Items[i];\r\n      break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCMapsElementActions.GetByName(AName: string): TTMSFNCMapsElementAction;\r\nbegin\r\n  Result := GetActionByName(AName);\r\n  if not Assigned(Result) then\r\n    raise Exception.Create('Action ' + AName + ' not found');\r\nend;\r\n\r\nfunction TTMSFNCMapsElementActions.GetItems(AIndex: integer): TTMSFNCMapsElementAction;\r\nbegin\r\n  Result := TTMSFNCMapsElementAction(inherited Items[AIndex]);\r\nend;\r\n\r\nfunction TTMSFNCMapsElementActions.Insert(AIndex: integer): TTMSFNCMapsElementAction;\r\nbegin\r\n  Result := TTMSFNCMapsElementAction(inherited Insert(AIndex));\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementActions.SetItems(AIndex: integer;\r\n  const Value: TTMSFNCMapsElementAction);\r\nbegin\r\n  inherited Items[AIndex] := Value;\r\nend;\r\n\r\n{ TTMSFNCMapsElementContainers }\r\n\r\nfunction TTMSFNCMapsElementContainers.Add: TTMSFNCMapsElementContainer;\r\nbegin\r\n  Result := TTMSFNCMapsElementContainer(inherited Add);\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementContainers.Clear;\r\nvar\r\n  l: TTMSFNCCustomMaps;\r\n  ci: TCollectionItem;\r\nbegin\r\n  l := FOwner;\r\n  if Assigned(l) then\r\n    l.BeginUpdate;\r\n\r\n  if Count > 0 then\r\n  begin\r\n    while Count > 0 do\r\n    begin\r\n      ci := TCollectionItem(Items[Count - 1]);\r\n      ci.Free;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(l) then\r\n    l.EndUpdate;\r\nend;\r\n\r\nconstructor TTMSFNCMapsElementContainers.Create(AOwner: TTMSFNCCustomMaps);\r\nbegin\r\n  inherited Create(AOwner, CreateItemClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCMapsElementContainers.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCMapsElementContainer;\r\nend;\r\n\r\nfunction TTMSFNCMapsElementContainers.GetItem(\r\n  Index: Integer): TTMSFNCMapsElementContainer;\r\nbegin\r\n  Result := TTMSFNCMapsElementContainer(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCMapsElementContainers.GetItemByID(\r\n  ID: string): TTMSFNCMapsElementContainer;\r\nvar\r\n  I: Integer;\r\n  c: TTMSFNCMapsElementContainer;\r\nbegin\r\n  Result := nil;\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    c := Items[I];\r\n    if c.ID = ID then\r\n    begin\r\n      Result := c;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCMapsElementContainers.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCMapsElementContainers.Insert(\r\n  Index: Integer): TTMSFNCMapsElementContainer;\r\nbegin\r\n  Result := TTMSFNCMapsElementContainer(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementContainers.Recreate;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to Count - 1 do\r\n    Items[I].Recreate := True;\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementContainers.SetItem(Index: Integer;\r\n  const Value: TTMSFNCMapsElementContainer);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCMapsElementContainer }\r\n\r\nfunction TTMSFNCMapsElementContainer.AddAction(AHTMLElementID: string;\r\n  AEvent: TTMSFNCMapsHTMLEvent): TTMSFNCMapsElementAction;\r\nbegin\r\n  FOwner.BeginUpdate;\r\n  Result := Actions.Add;\r\n  Result.HTMLElementID := AHTMLElementID;\r\n  Result.Event := AEvent;\r\n  FOwner.EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementContainer.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCMapsElementContainer then\r\n  begin\r\n    FID := (Source as TTMSFNCMapsElementContainer).ID;\r\n    FHTML.Assign((Source as TTMSFNCMapsElementContainer).HTML);\r\n    FVisible := (Source as TTMSFNCMapsElementContainer).Visible;\r\n    FPosition := (Source as TTMSFNCMapsElementContainer).Position;\r\n    FActions.Assign((Source as TTMSFNCMapsElementContainer).Actions);\r\n    FHTMLElementID := (Source as TTMSFNCMapsElementContainer).HTMLElementID;\r\n    FHTMLElementClassName := (Source as TTMSFNCMapsElementContainer).HTMLElementClassName;\r\n    FUseDefaultStyle := (Source as TTMSFNCMapsElementContainer).UseDefaultStyle;\r\n    FStyle.Assign((Source as TTMSFNCMapsElementContainer).Style);\r\n    FScript.Assign((Source as TTMSFNCMapsElementContainer).Script);\r\n    FMargins.Assign((Source as TTMSFNCMapsElementContainer).Margins);\r\n    FCoordinate.Assign((Source as TTMSFNCMapsElementContainer).Coordinate);\r\n    FBounds.Assign((Source as TTMSFNCMapsElementContainer).Bounds);\r\n    FLabelType := (Source as TTMSFNCMapsElementContainer).LabelType;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCMapsElementContainer.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(ACollection) then\r\n    FOwner := (Collection as TTMSFNCMapsElementContainers).FOwner;\r\n\r\n  FCoordinate := TTMSFNCMapsCoordinate.Create;\r\n  FCoordinate.OnChange := @ElementContainerChanged;\r\n  FBounds := TTMSFNCMapsBounds.Create;\r\n  FBounds.OnChange := @ElementContainerChanged;\r\n  FHTML := TStringList.Create;\r\n  FHTML.OnChange := @ElementContainerChanged;\r\n  FVisible := True;\r\n  FActions := TTMSFNCMapsElementActions.Create(Self);\r\n  FPosition := poTopLeft;\r\n  FHTMLElementID := 'ElementContainer' + IntToStr(Index);\r\n  FHTMLElementClassName := '';\r\n  FUseDefaultStyle := True;\r\n  FStyle := TStringList.Create;\r\n  FStyle.OnChange := @ElementContainerChanged;\r\n  FScript := TStringList.Create;\r\n  FScript.OnChange := @ElementContainerChanged;\r\n  FMargins := TTMSFNCMargins.Create;\r\n  FMargins.Top := 10;\r\n  FMargins.Left := 10;\r\n  FMargins.Right := 10;\r\n  FMargins.Bottom := 10;\r\n  FMargins.OnChange := @ElementContainerChanged;\r\n  FLabelType := ltLabel;\r\n\r\n  UpdateElementContainer;\r\nend;\r\n\r\ndestructor TTMSFNCMapsElementContainer.Destroy;\r\nbegin\r\n  FHTML.Free;\r\n  FActions.Free;\r\n  FStyle.Free;\r\n  FScript.Free;\r\n  FMargins.Free;\r\n  FCoordinate.Free;\r\n  FBounds.Free;\r\n  UpdateElementContainer;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementContainer.ElementContainerChanged(Sender: TObject);\r\nbegin\r\n  UpdateElementContainer;\r\nend;\r\n\r\nfunction TTMSFNCMapsElementContainer.GetHTMLAsBase64: string;\r\nbegin\r\n  Result := TTMSFNCUtils.Encode64(FHTML.Text);\r\nend;\r\n\r\nfunction TTMSFNCMapsElementContainer.GetID: string;\r\nbegin\r\n  if (FID = '') or FRecreate then\r\n    FID := CreateNewGUID;\r\n\r\n  FRecreate := False;\r\n  Result := FID;\r\nend;\r\n\r\nfunction TTMSFNCMapsElementContainer.GetScriptAsBase64: string;\r\nbegin\r\n  Result := TTMSFNCUtils.Encode64(FScript.Text);\r\nend;\r\n\r\nfunction TTMSFNCMapsElementContainer.GetStyleAsBase64: string;\r\nbegin\r\n  Result := TTMSFNCUtils.Encode64(FStyle.Text);\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementContainer.SetActions(\r\n  const Value: TTMSFNCMapsElementActions);\r\nbegin\r\n  if FActions <> Value then\r\n  begin\r\n    FActions.Assign(Value);\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementContainer.SetBounds(const Value: TTMSFNCMapsBounds);\r\nbegin\r\n  if FBounds <> Value then\r\n  begin\r\n    FBounds := Value;\r\n    UpdateElementContainer;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementContainer.SetCoordinate(\r\n  const Value: TTMSFNCMapsCoordinate);\r\nbegin\r\n  if FCoordinate <> Value then\r\n  begin\r\n    FCoordinate.Assign(Value);\r\n    UpdateElementContainer;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementContainer.SetStyle(const Value: TStringList);\r\nbegin\r\n  if FStyle <> Value then\r\n  begin\r\n    FStyle.Assign(Value);\r\n    UpdateElementContainer;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementContainer.SetHTMLElementClassName(const Value: string);\r\nbegin\r\n  if FHTMLElementClassName <> Value then\r\n  begin\r\n    FHTMLElementClassName := Value;\r\n    UpdateElementContainer;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementContainer.SetHTMLElementID(const Value: string);\r\nbegin\r\n  if FHTMLElementID <> Value then\r\n  begin\r\n    FHTMLElementID := Value;\r\n    UpdateElementContainer;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementContainer.SetLabelType(\r\n  const Value: TTMSFNCMapsLabelType);\r\nbegin\r\n  if FLabelType <> Value then\r\n  begin\r\n    FLabelType := Value;\r\n    UpdateElementContainer;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementContainer.SetHTML(const Value: TStringList);\r\nbegin\r\n  if FHTML <> Value then\r\n  begin\r\n    FHTML.Assign(Value);\r\n    UpdateElementContainer;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementContainer.SetMargins(const Value: TTMSFNCMargins);\r\nbegin\r\n  if FMargins <> Value then\r\n  begin\r\n    FMargins.Assign(Value);\r\n    UpdateElementContainer;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementContainer.SetPosition(\r\n  const Value: TTMSFNCMapsPosition);\r\nbegin\r\n  if FPosition <> Value then\r\n  begin\r\n    FPosition := Value;\r\n    UpdateElementContainer;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementContainer.SetScript(const Value: TStringList);\r\nbegin\r\n  if FScript <> Value then\r\n  begin\r\n    FScript.Assign(Value);\r\n    UpdateElementContainer;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementContainer.SetUseDefaultStyle(const Value: Boolean);\r\nbegin\r\n  if FUseDefaultStyle <> Value then\r\n  begin\r\n    FUseDefaultStyle := Value;\r\n    UpdateElementContainer;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementContainer.SetVisible(const Value: Boolean);\r\nbegin\r\n  if FVisible <> Value then\r\n  begin\r\n    FVisible := Value;\r\n    UpdateElementContainer;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsElementContainer.UpdateElementContainer;\r\nbegin\r\n  FReload := True;\r\n  if Assigned(FOwner) then\r\n    FOwner.UpdateElementContainers;\r\nend;\r\n\r\n\r\n{ TTMSFNCMapsHeadLink }\r\n\r\nprocedure TTMSFNCMapsHeadLink.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCMapsHeadLink then\r\n  begin\r\n    FURL := (Source as TTMSFNCMapsHeadLink).URL;\r\n    FEnabled := (Source as TTMSFNCMapsHeadLink).Enabled;\r\n    FType := (Source as TTMSFNCMapsHeadLink).&Type;\r\n    FCharSet := (Source as TTMSFNCMapsHeadLink).CharSet;\r\n    FContent.Assign((Source as TTMSFNCMapsHeadLink).Content);\r\n    FRel := (Source as TTMSFNCMapsHeadLink).Rel;\r\n    FDefer := (Source as TTMSFNCMapsHeadLink).Defer;\r\n    FAsync := (Source as TTMSFNCMapsHeadLink).Async;\r\n    FKind := (Source as TTMSFNCMapsHeadLink).Kind;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCMapsHeadLink.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(ACollection) then\r\n    FOwner := (Collection as TTMSFNCMapsHeadLinks).FOwner;\r\n\r\n  FURL := '';\r\n  FEnabled := True;\r\n  FType := '';\r\n  FCharSet := '';\r\n  FContent := TStringList.Create;\r\n  FContent.OnChange := @HeadLinkChanged;\r\n  FRel := '';\r\n  FDefer := False;\r\n  FAsync := False;\r\n  FKind := mlkScript;\r\n\r\n  UpdateHeadLink;\r\nend;\r\n\r\ndestructor TTMSFNCMapsHeadLink.Destroy;\r\nbegin\r\n  FContent.Free;\r\n  inherited;\r\n\r\n  UpdateHeadLink;\r\nend;\r\n\r\nprocedure TTMSFNCMapsHeadLink.HeadLinkChanged(Sender: TObject);\r\nbegin\r\n  UpdateHeadLink;\r\nend;\r\n\r\nfunction TTMSFNCMapsHeadLink.IsURLStored: Boolean;\r\nbegin\r\n  Result := FURL <> '';\r\nend;\r\n\r\nprocedure TTMSFNCMapsHeadLink.SetAsync(const Value: Boolean);\r\nbegin\r\n  if FAsync <> Value then\r\n  begin\r\n    FAsync := Value;\r\n    UpdateHeadLink;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsHeadLink.SetCharSet(const Value: string);\r\nbegin\r\n  if FCharSet <> Value then\r\n  begin\r\n    FCharSet := Value;\r\n    UpdateHeadLink;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsHeadLink.SetContent(const Value: TStringList);\r\nbegin\r\n  if FContent <> Value then\r\n  begin\r\n    FContent.Assign(Value);\r\n    UpdateHeadLink;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsHeadLink.SetDefer(const Value: Boolean);\r\nbegin\r\n  if FDefer <> Value then\r\n  begin\r\n    FDefer := Value;\r\n    UpdateHeadLink;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsHeadLink.SetEnabled(const Value: Boolean);\r\nbegin\r\n  if FEnabled <> Value then\r\n  begin\r\n    FEnabled := Value;\r\n    UpdateHeadLink;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsHeadLink.SetKind(const Value: TTMSFNCMapsLinkKind);\r\nbegin\r\n  if FKind <> Value then\r\n  begin\r\n    FKind := Value;\r\n    UpdateHeadLink;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsHeadLink.SetRel(const Value: string);\r\nbegin\r\n  if FRel <> Value then\r\n  begin\r\n    FRel := Value;\r\n    UpdateHeadLink;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsHeadLink.SetType(const Value: string);\r\nbegin\r\n  if FType <> Value then\r\n  begin\r\n    FType := Value;\r\n    UpdateHeadLink;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsHeadLink.SetURL(const Value: string);\r\nbegin\r\n  if FURL <> Value then\r\n  begin\r\n    FURL := Value;\r\n    UpdateHeadLink;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsHeadLink.UpdateHeadLink;\r\nbegin\r\n  if FOwner.IsDesignTime then\r\n    FOwner.ReInitialize;\r\nend;\r\n\r\n{ TTMSFNCMapsScriptLinks }\r\n\r\nfunction TTMSFNCMapsHeadLinks.Add: TTMSFNCMapsHeadLink;\r\nbegin\r\n  Result := TTMSFNCMapsHeadLink(inherited Add);\r\nend;\r\n\r\nfunction TTMSFNCMapsHeadLinks.AddLink(AURL: string): TTMSFNCMapsHeadLink;\r\nbegin\r\n  Result := TTMSFNCMapsHeadLink(inherited Add);\r\n  Result.Kind := mlkLink;\r\n  Result.URL := AURL;\r\nend;\r\n\r\nfunction TTMSFNCMapsHeadLinks.AddScript(AURL: string): TTMSFNCMapsHeadLink;\r\nbegin\r\n  Result := TTMSFNCMapsHeadLink(inherited Add);\r\n  Result.Kind := mlkScript;\r\n  Result.URL := AURL;\r\nend;\r\n\r\nfunction TTMSFNCMapsHeadLinks.AddStyle(AStyle: TStrings): TTMSFNCMapsHeadLink;\r\nbegin\r\n  Result := TTMSFNCMapsHeadLink(inherited Add);\r\n  Result.Kind := mlkStyle;\r\n  Result.Content.Assign(AStyle);\r\nend;\r\n\r\nfunction TTMSFNCMapsHeadLinks.AddStyleSheetLink(\r\n  AURL: string): TTMSFNCMapsHeadLink;\r\nbegin\r\n  Result := TTMSFNCMapsHeadLink(inherited Add);\r\n  Result.Kind := mlkLink;\r\n  Result.URL := AURL;\r\n  Result.Rel := 'stylesheet';\r\nend;\r\n\r\nprocedure TTMSFNCMapsHeadLinks.Clear;\r\nvar\r\n  l: TTMSFNCCustomMaps;\r\n  ci: TCollectionItem;\r\nbegin\r\n  l := FOwner;\r\n  if Assigned(l) then\r\n    l.BeginUpdate;\r\n\r\n  if Count > 0 then\r\n  begin\r\n    while Count > 0 do\r\n    begin\r\n      ci := TCollectionItem(Items[Count - 1]);\r\n      ci.Free;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(l) then\r\n    l.EndUpdate;\r\nend;\r\n\r\nconstructor TTMSFNCMapsHeadLinks.Create(AOwner: TTMSFNCCustomMaps);\r\nbegin\r\n  inherited Create(AOwner, TTMSFNCMapsHeadLink);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCMapsHeadLinks.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCMapsHeadLink;\r\nend;\r\n\r\nfunction TTMSFNCMapsHeadLinks.GetItem(Index: Integer): TTMSFNCMapsHeadLink;\r\nbegin\r\n  Result := TTMSFNCMapsHeadLink(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCMapsHeadLinks.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCMapsHeadLinks.Insert(Index: Integer): TTMSFNCMapsHeadLink;\r\nbegin\r\n  Result := TTMSFNCMapsHeadLink(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCMapsHeadLinks.SetItem(Index: Integer;\r\n  const Value: TTMSFNCMapsHeadLink);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n\r\n{ TTMSFNCMapsPopup }\r\n\r\nfunction TTMSFNCMapsPopup.GetLatitude: Double;\r\nbegin\r\n  Result := Coordinate.Latitude;\r\nend;\r\n\r\nfunction TTMSFNCMapsPopup.GetLongitude: Double;\r\nbegin\r\n  Result := Coordinate.Longitude;\r\nend;\r\n\r\nprocedure TTMSFNCMapsPopup.SetLatitude(const Value: Double);\r\nbegin\r\n  Coordinate.Latitude := Value;\r\nend;\r\n\r\nprocedure TTMSFNCMapsPopup.SetLongitude(const Value: Double);\r\nbegin\r\n  Coordinate.Longitude := Value;\r\nend;\r\n\r\nconstructor TTMSFNCMapsPopup.Create;\r\nbegin\r\n  FCoordinate := TTMSFNCMapsCoordinate.Create;\r\nend;\r\n\r\ndestructor TTMSFNCMapsPopup.Destroy;\r\nbegin\r\n  FCoordinate.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCMapsPopup.GetID: string;\r\nbegin\r\n  if FID = '' then\r\n    FID := CreateNewGUID;\r\n\r\n  Result := FID;\r\nend;\r\n\r\n{$IFDEF WEBLIB}\r\nprocedure TTMSFNCCustomMaps.RemoveScripts;\r\nvar\r\n  I: Integer;\r\n  t, id: string;\r\n  l: TTMSFNCMapsLinksList;\r\n  lk: TTMSFNCMapsLink;\r\nbegin\r\n  if Assigned(FMaps) then\r\n  begin\r\n    l := TTMSFNCMapsLinksList.Create;\r\n\r\n    GetHeadLinks(l, False);\r\n\r\n    try\r\n      for I := 0 to l.Count - 1 do\r\n      begin\r\n        lk := l[I];\r\n        id := 'WEBLib.TMSFNCMaps.' + StringReplace(FMaps.GetIdentifier, ' ', '', [rfReplaceAll]) + '.';\r\n\r\n        case lk.Kind of\r\n          mlkLink: t := 'LINK';\r\n          mlkScript: t := 'SCRIPT';\r\n        end;\r\n\r\n        id := id + t + 'HEAD' + IntToStr(I);\r\n\r\n        asm\r\n          var exScript = document.getElementById(id);\r\n          if (exScript){\r\n            exScript.parentNode.removeChild(exScript);\r\n          }\r\n        end;\r\n      end;\r\n\r\n      l.Clear;\r\n\r\n      GetBodyLinks(l, False, False);\r\n\r\n      for I := 0 to l.Count - 1 do\r\n      begin\r\n        lk := l[I];\r\n        id := 'WEBLib.TMSFNCMaps.' + StringReplace(FMaps.GetIdentifier, ' ', '', [rfReplaceAll]) + '.';\r\n\r\n        case lk.Kind of\r\n          mlkLink: t := 'LINK';\r\n          mlkScript: t := 'SCRIPT';\r\n        end;\r\n\r\n        id := id + t + 'BODY' + IntToStr(I);\r\n\r\n        asm\r\n          var exScript = document.getElementById(id);\r\n          if (exScript){\r\n            exScript.parentNode.removeChild(exScript);\r\n          }\r\n        end;\r\n      end;\r\n\r\n      FMaps.RemoveScripts;\r\n\r\n    finally\r\n      l.Free;\r\n    end;\r\n  end;\r\n\r\n  asm\r\n    var exScript = document.getElementById(\"WEBLib.TMSFNCMaps.Console\");\r\n    if (exScript){\r\n      exScript.parentNode.removeChild(exScript);\r\n    }\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.RemoveStyles;\r\nbegin\r\n  if Assigned(FMaps) then\r\n  begin\r\n    asm\r\n      var exScript = document.getElementById(\"WEBLib.TMSFNCMaps.Styles\");\r\n      if (exScript){\r\n         exScript.parentNode.removeChild(exScript);\r\n      }\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.LoadScripts(AHead: Boolean);\r\nvar\r\n  l: TTMSFNCMapsLinksList;\r\n  I: Integer;\r\n  lk: TTMSFNCMapsLink;\r\n  dcl, id, src, tp, t, cs, rl, ct: string;\r\n  asc, def: Boolean;\r\n  h: Boolean;\r\n  e: TJSHTMLElement;\r\nbegin\r\n  if MapReady then\r\n  begin\r\n    dcl := DEBUGCONSOLELINK;\r\n    h := AHead;\r\n\r\n    e := ElementHandle;\r\n\r\n    l := TTMSFNCMapsLinksList.Create;\r\n    try\r\n      if h then\r\n        GetHeadLinks(l)\r\n      else\r\n        GetBodyLinks(l);\r\n\r\n      for I := 0 to l.Count - 1 do\r\n      begin\r\n        lk := l[I];\r\n        id := 'WEBLib.TMSFNCMaps.' + StringReplace(FMaps.GetIdentifier, ' ', '', [rfReplaceAll]) + '.';\r\n        src := lk.URL;\r\n        tp := lk.&Type;\r\n        cs := lk.CharSet;\r\n        def := lk.Defer;\r\n        asc := lk.Async;\r\n        rl := lk.Rel;\r\n        ct := lk.Content;\r\n\r\n        case lk.Kind of\r\n          mlkLink: t := 'LINK';\r\n          mlkScript: t := 'SCRIPT';\r\n        end;\r\n\r\n        if h then\r\n          id := id + t + 'HEAD' + IntToStr(I)\r\n        else\r\n          id := id + t + 'BODY' + IntToStr(I);\r\n\r\n        asm\r\n          var exScript = document.getElementById(id) || document.querySelector('script[src=\"' + src + '\"]') || document.querySelector('link[href=\"' + src + '\"]');\r\n        end;\r\n\r\n        asm\r\n          if (!exScript){\r\n            var s = document.createElement(t);\r\n            s.id = id;\r\n\r\n            if (tp != ''){\r\n              s.type = tp;\r\n            }\r\n\r\n            if (t == 'LINK'){\r\n              if (rl != ''){\r\n                s.rel = rl;\r\n              }\r\n              if (src != ''){\r\n                s.href = src;\r\n              }\r\n            }\r\n            else{\r\n              s.defer = def;\r\n              s.async = asc;\r\n              if (src != ''){\r\n                s.src = src;\r\n              }\r\n            }\r\n\r\n            s.innerHTML = ct;\r\n\r\n            if (e && e.ownerDocument) {\r\n              if (h){\r\n                e.ownerDocument.head.appendChild(s);\r\n              }\r\n              else{\r\n                e.ownerDocument.body.appendChild(s);\r\n              }\r\n            }else{\r\n              if (h){\r\n                document.head.appendChild(s);\r\n              }\r\n              else{\r\n                document.body.appendChild(s);\r\n              }\r\n            }\r\n          }\r\n        end;\r\n      end;\r\n    finally\r\n      l.Free;\r\n    end;\r\n\r\n    if Options.Console and h then\r\n    begin\r\n      asm\r\n        var exScript = document.getElementById(\"WEBLib.TMSFNCMaps.Console\");\r\n        if (exScript){\r\n          return;\r\n        }\r\n\r\n        var s = document.createElement(\"script\");\r\n        s.id = \"WEBLib.TMSFNCMaps.Console\";\r\n        s.src = dcl;\r\n        document.head.appendChild(s);\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomMaps.LoadStyles;\r\nvar\r\n  sc: string;\r\n  e: TJSHTMLElement;\r\nbegin\r\n  if MapReady then\r\n  begin\r\n    e := ElementHandle;\r\n\r\n    sc := GetHeadStyle;\r\n    asm\r\n      var exScript = document.getElementById(\"WEBLib.TMSFNCMaps.Styles\");\r\n      if (exScript){\r\n        return;\r\n      }\r\n\r\n      var s = document.createElement(\"style\");\r\n      s.id = \"WEBLib.TMSFNCMaps.Styles\";\r\n      s.innerHTML = sc;\r\n\r\n      if (e && e.ownerDocument){\r\n        e.ownerDocument.head.appendChild(s);\r\n      }else{\r\n        document.head.appendChild(s);\r\n      }\r\n    end;\r\n  end;\r\nend;\r\n{$ENDIF}\r\n\r\n{ TTMSFNCMapsMarkerIcon }\r\n\r\nconstructor TTMSFNCMapsMarkerIcon.Create(AMarker: TTMSFNCMapsMarker);\r\nbegin\r\n  if Assigned(AMarker) then\r\n    FOwner := AMarker;\r\n\r\n  FEnabled := False;\r\n  FFill := gcRed;\r\n  FSize := 32;\r\nend;\r\n\r\nprocedure TTMSFNCMapsMarkerIcon.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCMapsMarkerIcon then\r\n  begin\r\n    FEnabled := (Source as TTMSFNCMapsMarkerIcon).Enabled;\r\n    FFill := (Source as TTMSFNCMapsMarkerIcon).Fill;\r\n    FSize := (Source as TTMSFNCMapsMarkerIcon).Size;\r\n  end;\r\nend;\r\n\r\ndestructor TTMSFNCMapsMarkerIcon.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCMapsMarkerIcon.SetFill(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FFill <> Value then\r\n  begin\r\n    FFill := Value;\r\n    UpdateMarkerIcon;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsMarkerIcon.SetEnabled(const Value: Boolean);\r\nbegin\r\n  if FEnabled <> Value then\r\n  begin\r\n    FEnabled := Value;\r\n    UpdateMarkerIcon;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsMarkerIcon.SetSize(const Value: Integer);\r\nbegin\r\n  if FSize <> Value then\r\n  begin\r\n    FSize := Value;\r\n    UpdateMarkerIcon;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsMarkerIcon.UpdateMarkerIcon;\r\nbegin\r\n  if Assigned(FOwner) then\r\n    FOwner.UpdateMarker;\r\nend;\r\n\r\n{ TTMSFNCMapsLabel }\r\n\r\nprocedure TTMSFNCMapsLabel.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if Source is TTMSFNCMapsLabel then\r\n  begin\r\n    FText := (Source as TTMSFNCMapsLabel).Text;\r\n    FCoordinate.Assign((Source as TTMSFNCMapsLabel).Coordinate);\r\n    FBounds.Assign((Source as TTMSFNCMapsLabel).Bounds);\r\n    FVisible := (Source as TTMSFNCMapsLabel).Visible;\r\n    FBackgroundColor := (Source as TTMSFNCMapsLabel).BackgroundColor;\r\n    FBorderColor := (Source as TTMSFNCMapsLabel).BorderColor;\r\n    FBorderWidth := (Source as TTMSFNCMapsLabel).BorderWidth;\r\n    FFont.Assign((Source as TTMSFNCMapsLabel).Font);\r\n    FPosition := (Source as TTMSFNCMapsLabel).Position;\r\n    FLabelType := (Source as TTMSFNCMapsLabel).LabelType;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCMapsLabel.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(ACollection) then\r\n    FOwner := (Collection as TTMSFNCMapsLabels).FOwner;\r\n\r\n  FText := '';\r\n  FCoordinate := TTMSFNCMapsCoordinate.Create;\r\n  FCoordinate.OnChange := @LabelChanged;\r\n  FBounds := TTMSFNCMapsBounds.Create;\r\n  FBounds.OnChange := @LabelChanged;\r\n  FVisible := True;\r\n  FBackgroundColor := gcNull;\r\n  FBorderColor := gcNull;\r\n  FBorderWidth := 2;\r\n  FFont := TTMSFNCGraphicsFont.Create;\r\n  FFont.Size := 14;\r\n  FFont.Name := 'Roboto';\r\n  FFont.OnChanged := @LabelChanged;\r\n  FPosition := ptCoordinate;\r\n  FLabelType := ltLabel;\r\n\r\n  UpdateLabel;\r\nend;\r\n\r\ndestructor TTMSFNCMapsLabel.Destroy;\r\nbegin\r\n  FCoordinate.Free;\r\n  FBounds.Free;\r\n  FFont.Free;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCMapsLabel.GetID: string;\r\nbegin\r\n  if (FID = '') or FRecreate then\r\n    FID := CreateNewGUID;\r\n\r\n  FRecreate := False;\r\n  Result := FID;\r\nend;\r\n\r\nprocedure TTMSFNCMapsLabel.LabelChanged(Sender: TObject);\r\nbegin\r\n  UpdateLabel;\r\nend;\r\n\r\nprocedure TTMSFNCMapsLabel.SetBackgroundColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FBackgroundColor <> Value then\r\n  begin\r\n    FBackgroundColor := Value;\r\n    UpdateLabel;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsLabel.SetBorderColor(const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FBorderColor <> Value then\r\n  begin\r\n    FBorderColor := Value;\r\n    UpdateLabel;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsLabel.SetBorderWidth(const Value: Integer);\r\nbegin\r\n  if FBorderWidth <> Value then\r\n  begin\r\n    FBorderWidth := Value;\r\n    UpdateLabel;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsLabel.SetBounds(const Value: TTMSFNCMapsBounds);\r\nbegin\r\n  if FBounds <> Value then\r\n  begin\r\n    FBounds.Assign(Value);\r\n    UpdateLabel;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsLabel.SetCoordinate(const Value: TTMSFNCMapsCoordinate);\r\nbegin\r\n  if FCoordinate <> Value then\r\n  begin\r\n    FCoordinate.Assign(Value);\r\n    UpdateLabel;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsLabel.SetFont(const Value: TTMSFNCGraphicsFont);\r\nbegin\r\n  FFont.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCMapsLabel.SetLabelType(const Value: TTMSFNCMapsLabelType);\r\nbegin\r\n  if FLabelType <> Value then\r\n  begin\r\n    FLabelType := Value;\r\n    UpdateLabel;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsLabel.SetPosition(const Value: TTMSFNCMapsPositionType);\r\nbegin\r\n  if FPosition <> Value then\r\n  begin\r\n    FPosition := Value;\r\n    UpdateLabel;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsLabel.SetText(const Value: string);\r\nbegin\r\n  if FText <> Value then\r\n  begin\r\n    FText := Value;\r\n    UpdateLabel;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsLabel.SetVisible(const Value: Boolean);\r\nbegin\r\n  if FVisible <> Value then\r\n  begin\r\n    FVisible := Value;\r\n    UpdateLabel;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsLabel.UpdateLabel;\r\nbegin\r\n  FReload := True;\r\n  if Assigned(FOwner) then\r\n    FOwner.UpdateElementContainers;\r\nend;\r\n\r\n{ TTMSFNCMapsLabels }\r\n\r\nfunction TTMSFNCMapsLabels.Add: TTMSFNCMapsLabel;\r\nbegin\r\n  Result := TTMSFNCMapsLabel(inherited Add);\r\nend;\r\n\r\nprocedure TTMSFNCMapsLabels.Clear;\r\nvar\r\n  l: TTMSFNCCustomMaps;\r\n  ci: TCollectionItem;\r\nbegin\r\n  l := FOwner;\r\n  if Assigned(l) then\r\n    l.BeginUpdate;\r\n\r\n  if Count > 0 then\r\n  begin\r\n    while Count > 0 do\r\n    begin\r\n      ci := TCollectionItem(Items[Count - 1]);\r\n      ci.Free;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(l) then\r\n    l.EndUpdate;\r\nend;\r\n\r\nconstructor TTMSFNCMapsLabels.Create(AOwner: TTMSFNCCustomMaps);\r\nbegin\r\n  inherited Create(AOwner, CreateItemClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCMapsLabels.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCMapsLabel;\r\nend;\r\n\r\nfunction TTMSFNCMapsLabels.GetItem(Index: Integer): TTMSFNCMapsLabel;\r\nbegin\r\n  Result := TTMSFNCMapsLabel(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCMapsLabels.GetItemByID(ID: string): TTMSFNCMapsLabel;\r\nvar\r\n  I: Integer;\r\n  c: TTMSFNCMapsLabel;\r\nbegin\r\n  Result := nil;\r\n  for I := 0 to Count - 1 do\r\n  begin\r\n    c := Items[I];\r\n    if c.ID = ID then\r\n    begin\r\n      Result := c;\r\n      Break;\r\n    end;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCMapsLabels.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCMapsLabels.Insert(Index: Integer): TTMSFNCMapsLabel;\r\nbegin\r\n  Result := TTMSFNCMapsLabel(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCMapsLabels.Recreate;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to Count - 1 do\r\n    Items[I].Recreate := True;\r\nend;\r\n\r\nprocedure TTMSFNCMapsLabels.SetItem(Index: Integer;\r\n  const Value: TTMSFNCMapsLabel);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n\r\n{ TTMSFNCMapsWeightedCoordinate }\r\n\r\nprocedure TTMSFNCMapsWeightedCoordinate.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if (Source is TTMSFNCMapsWeightedCoordinate) then\r\n  begin\r\n    FCoordinate.Assign((Source as TTMSFNCMapsWeightedCoordinate).Coordinate);\r\n    FWeight := (Source as TTMSFNCMapsWeightedCoordinate).Weight;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCMapsWeightedCoordinate.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(ACollection) then\r\n    FOwner := (Collection as TTMSFNCMapsWeightedCoordinates).FOwner;\r\n\r\n  FCoordinate := TTMSFNCMapsCoordinate.Create;\r\n  FWeight := 0;\r\nend;\r\n\r\ndestructor TTMSFNCMapsWeightedCoordinate.Destroy;\r\nbegin\r\n  FCoordinate.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCMapsWeightedCoordinate.DoBeginUpdate(Sender: TObject);\r\nbegin\r\n  if Assigned(FOwner) then\r\n    FOwner.FOwner.BeginUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCMapsWeightedCoordinate.DoEndUpdate(Sender: TObject);\r\nbegin\r\n  if Assigned(FOwner) then\r\n    FOwner.FOwner.EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCMapsWeightedCoordinate.DoUpdateCoordinate(Sender: TObject);\r\nbegin\r\n  if Assigned(FOwner) then\r\n    FOwner.UpdateHeatMap;\r\nend;\r\n\r\nfunction TTMSFNCMapsWeightedCoordinate.GetID: string;\r\nbegin\r\n  if (FID = '') then\r\n    FID := CreateNewGUID;\r\n\r\n  Result := FID;\r\nend;\r\n\r\nprocedure TTMSFNCMapsWeightedCoordinate.SetCoordinate(\r\n  const Value: TTMSFNCMapsCoordinate);\r\nbegin\r\n  FCoordinate.Assign(Value);\r\n  UpdateHeatMap;\r\nend;\r\n\r\nprocedure TTMSFNCMapsWeightedCoordinate.SetWeight(const Value: Double);\r\nbegin\r\n  FWeight := Value;\r\nend;\r\n\r\nprocedure TTMSFNCMapsWeightedCoordinate.UpdateHeatmap;\r\nbegin\r\n  if Assigned(FOWner) then\r\n    FOwner.UpdateHeatMap;\r\nend;\r\n\r\n{ TTMSFNCMapsWeightedCoordinates }\r\n\r\nfunction TTMSFNCMapsWeightedCoordinates.Add: TTMSFNCMapsWeightedCoordinate;\r\nbegin\r\n  Result := TTMSFNCMapsWeightedCoordinate(inherited Add);\r\nend;\r\n\r\nprocedure TTMSFNCMapsWeightedCoordinates.Clear;\r\nvar\r\n  l: TTMSFNCCustomMaps;\r\n  ci: TCollectionItem;\r\nbegin\r\n  l := FOwner.FOwner;\r\n  if Assigned(l) then\r\n    l.BeginUpdate;\r\n\r\n  if Count > 0 then\r\n  begin\r\n    while Count > 0 do\r\n    begin\r\n      ci := TCollectionItem(Items[Count - 1]);\r\n      ci.Free;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(l) then\r\n    l.EndUpdate;\r\nend;\r\n\r\nconstructor TTMSFNCMapsWeightedCoordinates.Create(\r\n  AOwner: TTMSFNCMapsHeatMap);\r\nbegin\r\n  inherited Create(AOwner, CreateItemClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCMapsWeightedCoordinates.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCMapsWeightedCoordinate;\r\nend;\r\n\r\nfunction TTMSFNCMapsWeightedCoordinates.GetItem(\r\n  Index: Integer): TTMSFNCMapsWeightedCoordinate;\r\nbegin\r\n  Result := TTMSFNCMapsWeightedCoordinate(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCMapsWeightedCoordinates.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCMapsWeightedCoordinates.Insert(\r\n  Index: Integer): TTMSFNCMapsWeightedCoordinate;\r\nbegin\r\n  Result := TTMSFNCMapsWeightedCoordinate(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCMapsWeightedCoordinates.SetItem(Index: Integer;\r\n  const Value: TTMSFNCMapsWeightedCoordinate);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n\r\n{ TTMSFNCMapsHeatMap }\r\n\r\nprocedure TTMSFNCMapsHeatMap.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCMapsHeatMap then\r\n  begin\r\n    FID := (Source as TTMSFNCMapsHeatMap).ID;\r\n    FOpacity := (Source as TTMSFNCMapsHeatMap).Opacity;\r\n    FGradientStartColor := (Source as TTMSFNCMapsHeatMap).GradientStartColor;\r\n    FGradientMidColor := (Source as TTMSFNCMapsHeatMap).GradientMidColor;\r\n    FGradientEndColor := (Source as TTMSFNCMapsHeatMap).GradientEndColor;\r\n    FWeightedCoordinates.Assign((Source as TTMSFNCMapsHeatMap));\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCMapsHeatMap.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  if Assigned(ACollection) then\r\n    FOwner := (Collection as TTMSFNCMapsHeatMaps).FOwner;\r\n\r\n  FID := '';\r\n  FOpacity := 1.0;\r\n  FGradientStartColor := gcGreen;\r\n  FGradientMidColor := gcYellow;\r\n  FGradientEndColor := gcRed;\r\n  FWeightedCoordinates := TTMSFNCMapsWeightedCoordinates.Create(Self);\r\n\r\n  UpdateHeatMap;\r\nend;\r\n\r\ndestructor TTMSFNCMapsHeatMap.Destroy;\r\nbegin\r\n  FWeightedCoordinates.Free;\r\n  UpdateHeatMap;\r\n  inherited;\r\nend;\r\n\r\nfunction TTMSFNCMapsHeatMap.GetID: string;\r\nbegin\r\n  if (FID = '') or FRecreate then\r\n    FID := CreateNewGUID;\r\n\r\n  FRecreate := False;\r\n  Result := FID;\r\nend;\r\n\r\nprocedure TTMSFNCMapsHeatMap.SetCoordinates(\r\n  const Value: TTMSFNCMapsWeightedCoordinates);\r\nbegin\r\n  FWeightedCoordinates.Assign(Value);\r\n  UpdateHeatMap;\r\nend;\r\n\r\nprocedure TTMSFNCMapsHeatMap.SetGradientEndColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FGradientEndColor <> Value then\r\n  begin\r\n    FGradientEndColor := Value;\r\n    UpdateHeatMap;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsHeatMap.SetGradientMidColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FGradientMidColor <> Value then\r\n  begin\r\n    FGradientMidColor := Value;\r\n    UpdateHeatMap;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsHeatMap.SetGradientStartColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FGradientStartColor <> Value then\r\n  begin\r\n    FGradientStartColor := Value;\r\n    UpdateHeatMap;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsHeatMap.SetOpacity(const Value: Single);\r\nbegin\r\n  if FOpacity <> Value then\r\n  begin\r\n    FOpacity := Value;\r\n    UpdateHeatMap;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCMapsHeatMap.UpdateHeatMap;\r\nbegin\r\n  if Assigned(FOwner) then\r\n    (FOwner as TTMSFNCCustomMaps).UpdateHeatMaps;\r\nend;\r\n\r\n{ TTMSFNCMapsHeatMaps }\r\n\r\nfunction TTMSFNCMapsHeatMaps.Add: TTMSFNCMapsHeatMap;\r\nbegin\r\n  Result := TTMSFNCMapsHeatMap(inherited Add);\r\nend;\r\n\r\nprocedure TTMSFNCMapsHeatMaps.Clear;\r\nvar\r\n  l: TTMSFNCCustomMaps;\r\n  ci: TCollectionItem;\r\nbegin\r\n  l := FOwner;\r\n  if Assigned(l) then\r\n    l.BeginUpdate;\r\n\r\n  TTMSFNCUtils.Log('clear ' + IntToStr(Count) + ' heatmaps');\r\n\r\n  if Count > 0 then\r\n  begin\r\n    while Count > 0 do\r\n    begin\r\n\r\n      TTMSFNCUtils.Log('clear 1 heatmap');\r\n\r\n      ci := TCollectionItem(Items[Count - 1]);\r\n      ci.Free;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(l) then\r\n    l.EndUpdate;\r\nend;\r\n\r\nconstructor TTMSFNCMapsHeatMaps.Create(AOwner: TTMSFNCCustomMaps);\r\nbegin\r\n  inherited Create(AOwner, CreateItemClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCMapsHeatMaps.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCMapsHeatMap;\r\nend;\r\n\r\nfunction TTMSFNCMapsHeatMaps.GetItem(\r\n  Index: Integer): TTMSFNCMapsHeatMap;\r\nbegin\r\n  Result := TTMSFNCMapsHeatmap(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCMapsHeatMaps.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCMapsHeatMaps.Insert(\r\n  Index: Integer): TTMSFNCMapsHeatMap;\r\nbegin\r\n  Result := TTMSFNCMapsHeatMap(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCMapsHeatMaps.SetItem(Index: Integer;\r\n  const Value: TTMSFNCMapsHeatMap);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n\r\n{ TTMSFNCMapsPolygon }\r\n\r\nfunction TTMSFNCMapsPolygon.AddHole(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray): TTMSFNCMapsPolyElementHole;\r\nbegin\r\n  Result := inherited AddHole(ACoordinates);\r\nend;\r\n\r\n{ TTMSFNCMapsJavaScriptError }\r\n\r\nfunction TTMSFNCMapsJavaScriptError.GetDefaultType: string;\r\nbegin\r\n  Result := 'JAVASCRIPT_ERROR';\r\nend;\r\n\r\n\r\ninitialization\r\nbegin\r\n  TTMSFNCMapsPlatformServices.FCurrentReleased := False;\r\n  RegisterGoogleMapsService;\r\n  RegisterHereService;\r\n  RegisterBingMapsService;\r\n  RegisterAzureMapsService;\r\n  RegisterTomTomService;\r\n  RegisterOpenLayersService;\r\n  RegisterLeafletService;\r\n  RegisterMapBoxService;\r\n  RegisterMapKitService;\r\nend;\r\n\r\n{$IFNDEF WEBLIB}\r\nfinalization\r\nbegin\r\n  {$IFDEF UNREGISTER}\r\n  UnRegisterMapKitService;\r\n  UnRegisterMapBoxService;\r\n  UnRegisterOpenLayersService;\r\n  UnRegisterLeafletService;\r\n  UnRegisterTomTomService;\r\n  UnRegisterAzureMapsService;\r\n  UnRegisterBingMapsService;\r\n  UnRegisterHereService;\r\n  UnRegisterGoogleMapsService;\r\n  {$ENDIF}\r\n  {$IFNDEF AUTOREFCOUNT}\r\n  TTMSFNCMapsPlatformServices.ReleaseCurrent;\r\n  {$ENDIF}\r\nend;\r\n{$ENDIF}\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCMaps.Here;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nconst\r\n  MAJ_VER = 2; // Major version nr.\r\n  MIN_VER = 0; // Minor version nr.\r\n  REL_VER = 0; // Release nr.\r\n  BLD_VER = 0; // Build nr.\r\n\r\n  //v1.0.0.0: First release\r\n  //v1.0.1.0: Improved : Support for base64 encoded marker icons\r\n  //        : Improved : OnMapMouseMove event handling\r\n  //v1.0.2.0: New : API version updated\r\n  //v2.0.0.0: New : API version updated from v3.1.42.2 to v3.1.54.0\r\n  //        : New : Migrated to HARP map engine\r\n  //        : New : 3D Maps\r\n\r\n\r\n  MAPSERVICEVAR = 'window.H';\r\n\r\nprocedure RegisterHereService;\r\nprocedure UnRegisterHereService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCMaps, WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  ,UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCMapsHereService = class;\r\n\r\n  TTMSFNCMapsHereFactoryService = class(TTMSFNCMapsFactoryService, ITMSFNCMapsServiceHere);\r\n\r\n  TTMSFNCMapsHereService = class(TTMSFNCMapsHereFactoryService)\r\n  protected\r\n    function DoCreateMaps: ITMSFNCCustomMaps; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCMapsHere = class;\r\n\r\n  TTMSFNCMapsHere = class(TTMSFNCCustomMapsInterfacedObject, ITMSFNCCustomMaps)\r\n  protected\r\n    procedure GetHeadLinks(const AList: TTMSFNCMapsLinksList);\r\n    procedure RemoveScripts;\r\n    function GetResetMap: string;\r\n    function GetShowPopup: string;\r\n    function GetClosePopup: string;\r\n    function GetHeadStyle: string;\r\n    function GetDelayLoadEvent: string;\r\n    function GetMapsServiceCheck: string;\r\n    function GetIdentifier: string;\r\n    function GetInitializeMap: string;\r\n    function GetInitializeEvents: string;\r\n    function GetAddOrUpdateMarker: string;\r\n    function GetDeleteMarker: string;\r\n    function GetAddOrUpdatePolyElement: string;\r\n    function GetDeletePolyElement: string;\r\n    function GetZoomToBounds: string;\r\n    function GetGetBounds: string;\r\n    function GetGetCenterCoordinate: string;\r\n    function GetGetZoomLevel: string;\r\n    function GetLatLonToXY: string;\r\n    function GetXYToLatLon: string;\r\n    function GetSetCenterCoordinate: string;\r\n    function GetSetZoomLevel: string;\r\n    function GetUpdateOptions: string;\r\n    function GetGlobalVariables: string;\r\n    function GetAddCoordinateToArray: string;\r\n    function GetAddHoleToArray: string;\r\n    function GetInitializeCoordinateArray: string;\r\n    function GetInitializeHolesArray: string;\r\n    function IsValid: Boolean;\r\n    procedure DestroyMaps;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  MapsService: ITMSFNCMapsServiceHere;\r\n\r\nconst\r\n  HEREAPIVERSION = 'v3/3.1.54.0';\r\n  HEREAPIURL = 'https://js.api.here.com/';\r\n  MAPUI = 'mapUI';\r\n  MAPBEHAVIOR = 'mapBehavior';\r\n\r\nprocedure RegisterHereService;\r\nbegin\r\n  if not TTMSFNCMapsPlatformServices.Current.SupportsPlatformService(ITMSFNCMapsServiceHere, IInterface(MapsService)) then\r\n  begin\r\n    MapsService := TTMSFNCMapsHereService.Create;\r\n    TTMSFNCMapsPlatformServices.Current.AddPlatformService(ITMSFNCMapsServiceHere, MapsService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterHereService;\r\nbegin\r\n  TTMSFNCMapsPlatformServices.Current.RemovePlatformService(ITMSFNCMapsServiceHere);\r\nend;\r\n\r\n{ TTMSFNCMapsHereService }\r\n\r\nfunction TTMSFNCMapsHereService.DoCreateMaps: ITMSFNCCustomMaps;\r\nbegin\r\n  Result := TTMSFNCMapsHere.Create;\r\nend;\r\n\r\nconstructor TTMSFNCMapsHere.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCMapsHere.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCMapsHere.DestroyMaps;\r\nbegin\r\n  MapsService.DestroyMaps(Self);\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetDelayLoadEvent: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetDeleteMarker: string;\r\nbegin\r\n  Result := '  ' + MAPVAR + '.removeObject(' + MARKERVAR + ')';\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetDeletePolyElement: string;\r\nbegin\r\n  Result := '  ' + MAPVAR + '.removeObject(' + POLYELEMENTVAR + ')';\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetGetBounds: string;\r\nbegin\r\n  Result :=\r\n    '  var loc = ' + MAPVAR + '.getViewModel().getLookAtData().bounds.toGeoJSON();' + LB +\r\n    '  jsonObj[\"NorthEast\"][\"Latitude\"] = loc.coordinates[0][0][1];' + LB +\r\n    '  jsonObj[\"NorthEast\"][\"Longitude\"] = loc.coordinates[0][0][0];' + LB +\r\n    '  jsonObj[\"SouthWest\"][\"Latitude\"] = loc.coordinates[0][2][1];' + LB +\r\n    '  jsonObj[\"SouthWest\"][\"Longitude\"] = loc.coordinates[0][2][0];';\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetGetCenterCoordinate: string;\r\nbegin\r\n  Result :=\r\n    '  var loc = ' + MAPVAR + '.getCenter();' + LB +\r\n    '  jsonObj[\"Latitude\"] = loc.lat;' + LB +\r\n    '  jsonObj[\"Longitude\"] = loc.lng;';\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetGetZoomLevel: string;\r\nbegin\r\n  Result := '  z = ' + MAPVAR + '.getZoom();';\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetGlobalVariables: string;\r\nbegin\r\n  Result :=\r\n    'var ' + MAPUI + ';' + LB +\r\n    'var ' + MAPBEHAVIOR + ';' + LB +\r\n    'var engineType;' + LB +\r\n    'var platform;' + LB +\r\n    'var defaultLayers;' + LB +\r\n    'var mapLayer;' + LB +\r\n    'function parseEvent(event, eventname, id = ''''){' + LB +\r\n    '  var loc = {''Latitude'': 0, ''Longitude'': 0};' + LB +\r\n    '  var x = 0.0;' + LB +\r\n    '  var y = 0.0;' + LB +\r\n    '  if (event) {' + LB +\r\n    '    event.stopPropagation();' + LB +\r\n    '    if (event.currentPointer){' + LB +\r\n    '      x = event.currentPointer.viewportX;' + LB +\r\n    '      y = event.currentPointer.viewportY;' + LB +\r\n    '      var l = ' + MAPVAR + '.screenToGeo(x, y);' + LB +\r\n    '      var loc = {''Latitude'': l.lat, ''Longitude'': l.lng};' + LB +\r\n    '    }' + LB +\r\n    '  }' + LB +\r\n\r\n    '  var r = {''Coordinate'': loc, ''X'': x, ''Y'': y, ''ID'': id, ''EventName'': eventname};' + LB +\r\n    '  return r;' + LB +\r\n    '}';\r\nend;\r\n\r\nprocedure TTMSFNCMapsHere.GetHeadLinks(const AList: TTMSFNCMapsLinksList);\r\nbegin\r\n  AList.Add(TTMSFNCMapsLink.CreateLink(HEREAPIURL + HEREAPIVERSION + '/mapsjs-ui.css', 'text/css', 'stylesheet'));\r\n  AList.Add(TTMSFNCMapsLink.CreateScript(HEREAPIURL + HEREAPIVERSION + '/mapsjs-core.js', 'text/javascript', 'utf-8'));\r\n  AList.Add(TTMSFNCMapsLink.CreateScript(HEREAPIURL + HEREAPIVERSION + '/mapsjs-service.js', 'text/javascript', 'utf-8'));\r\n  AList.Add(TTMSFNCMapsLink.CreateScript(HEREAPIURL + HEREAPIVERSION + '/mapsjs-ui.js', 'text/javascript', 'utf-8'));\r\n  AList.Add(TTMSFNCMapsLink.CreateScript(HEREAPIURL + HEREAPIVERSION + '/mapsjs-mapevents.js', 'text/javascript', 'utf-8'));\r\n  AList.Add(TTMSFNCMapsLink.CreateScript(HEREAPIURL + HEREAPIVERSION + '/mapsjs-harp.js', 'text/javascript', 'utf-8'));\r\n  AList.Add(TTMSFNCMapsLink.CreateScript(HEREAPIURL + HEREAPIVERSION + '/mapsjs-data.js', 'text/javascript', 'utf-8'));\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetHeadStyle: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetIdentifier: string;\r\nbegin\r\n  Result := 'Here';\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetInitializeCoordinateArray: string;\r\nbegin\r\n  Result := 'new ' + MAPSERVICEVAR + '.geo.LineString();';\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetInitializeHolesArray: string;\r\nbegin\r\n  Result := '[]';\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetInitializeEvents: string;\r\nbegin\r\n  Result :=\r\n  '  var oldZoom = ' + MAPVAR + '.getZoom();' + LB +\r\n  '  ' + MAPVAR + '.addEventListener(''mapviewchangeend'', function(){' + LB +\r\n  '    var newZoom = ' + MAPVAR + '.getZoom();' + LB +\r\n  '    if(newZoom != oldZoom){' + LB +\r\n  '      ' + GETSENDEVENT + '(parseEvent(null, \"ZoomChanged\"));' + LB +\r\n  '    }' + LB +\r\n  '    oldZoom = newZoom;' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.addEventListener(''baselayerchange'', function(){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(null, \"MapTypeChanged\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.addEventListener(''dragstart'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMoveStart\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.addEventListener(''dragend'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMoveEnd\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.addEventListener(''tap'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapClick\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.addEventListener(''dbltap'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapDblClick\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.addEventListener(''contextmenu'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapRightClick\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.addEventListener(''pointerup'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseUp\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.addEventListener(''pointerdown'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseDown\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.addEventListener(''pointerleave'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseLeave\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.addEventListener(''pointerenter'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseEnter\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.addEventListener(''pointermove'', function(event){' + LB +\r\n//  '   console.log(\"pointer move\");' +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseMove\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.addEventListener(''drag'', function(event){' + LB +\r\n//  '   console.log(\"pointer drag\");' +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseMove\"));' + LB +\r\n  '  })';\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetInitializeMap: string;\r\nvar\r\n  v: string;\r\nbegin\r\n  v := MAPSERVICEVAR;\r\n  Result :=\r\n    '  engineType = ' + v + '.Map.EngineType[\"HARP\"];' + LB +\r\n\r\n    '  ' + MAPOPTIONS + ' = {' + LB +\r\n    '    engineType,' + LB +\r\n    '    zoom: ' + MapsProperties.GetDefaultZoomLevel + ',' + LB +\r\n//    '    pois: false,' + LB +\r\n    '    center: { lng: ' + MapsProperties.GetDefaultLongitude + ', lat: ' + MapsProperties.GetDefaultLatitude + ' },' + LB +\r\n    '    pixelRatio: window.devicePixelRatio || 1' + LB +\r\n    '  };' + LB + LB +\r\n\r\n    '  platform = new ' + v + '.service.Platform({' + LB +\r\n    '    \"apikey\": \"' + MapsProperties.GetAPIKey + '\", ' + LB +\r\n    '  });' + LB + LB +\r\n\r\n    '  defaultLayers = platform.createDefaultLayers({' + LB +\r\n    '    engineType,' + LB +\r\n    '    lg: ''' + MapsProperties.GetLocale(mlmCountry) + '''' + LB +\r\n    '  });' + LB +\r\n\r\n    {$IFDEF ANDROID}\r\n    '  mapLayer = defaultLayers.raster.normal.map;' + LB +\r\n    {$ELSE}\r\n    '  mapLayer = defaultLayers.vector.normal.map;' + LB +\r\n    {$ENDIF}\r\n\r\n    '  ' + MAPVAR + ' = new ' + v + '.Map(document.getElementById(\"' + MAPID + '\"), mapLayer, ' + MAPOPTIONS + ');' + LB + LB;\r\n\r\n    Result := Result +\r\n    '  window.addEventListener(\"resize\", () => ' + MAPVAR + '.getViewPort().resize());' + LB + LB +\r\n    '  ' + MAPBEHAVIOR + ' = new ' + v + '.mapevents.Behavior(new ' + v + '.mapevents.MapEvents(' + MAPVAR + '));' + LB;\r\n\r\n    if not MapsProperties.GetZoomOnDblClick then\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPBEHAVIOR + '.disable(' + MAPSERVICEVAR + '.mapevents.Behavior.DBLTAPZOOM)' + LB;\r\n    end;\r\n\r\n    if not MapsProperties.GetPanning then\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPBEHAVIOR + '.disable(' + MAPSERVICEVAR + '.mapevents.Behavior.DRAGGING)' + LB;\r\n    end;\r\n\r\n    if not MapsProperties.GetZoomOnWheelScroll then\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPBEHAVIOR + '.disable(' + MAPSERVICEVAR + '.mapevents.Behavior.WHEELZOOM)' + LB;\r\n    end;\r\n\r\n    Result := Result +\r\n    '  ' + MAPUI + ' = ' + v + '.ui.UI.createDefault(' + MAPVAR + ', defaultLayers, ''' + MapsProperties.GetLocale + ''');' + LB +\r\n    '  ' + MAPUI + '.getControl(''zoom'').setVisibility(' + BoolToStrEx(MapsProperties.GetShowZoomControl) + ');' + LB +\r\n    '  ' + MAPUI + '.getControl(''mapsettings'').setVisibility(' + BoolToStrEx(MapsProperties.GetShowMapTypeControl) + ');';\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetLatLonToXY: string;\r\nbegin\r\n  Result :=\r\n    '  var geopos = {' + LB +\r\n    '    lat: ' + PARAMSNAME + '[\"Latitude\"],' + LB +\r\n    '    lng: ' + PARAMSNAME + '[\"Longitude\"]' + LB +\r\n    '  }' + LB +\r\n    '  var point = ' + MAPVAR + '.geoToScreen(geopos);' + LB +\r\n    '  jsonObj[\"X\"] = parseFloat(point.x);' + LB +\r\n    '  jsonObj[\"Y\"] = parseFloat(point.y);';\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetXYToLatLon: string;\r\nbegin\r\n  Result :=\r\n    '  var point = ' + MAPVAR + '.screenToGeo(' + PARAMSNAME + '[\"X\"], ' + PARAMSNAME + '[\"Y\"]);' + LB +\r\n    '  jsonObj[\"Latitude\"] = parseFloat(point.lat);' + LB +\r\n    '  jsonObj[\"Longitude\"] = parseFloat(point.lng);';\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetMapsServiceCheck: string;\r\nbegin\r\n  Result := '!' + MAPSERVICEVAR;\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetResetMap: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetSetCenterCoordinate: string;\r\nbegin\r\n  Result := '  ' + MAPVAR + '.setCenter({lat:' + PARAMSNAME + '[\"Latitude\"], lng:' + PARAMSNAME + '[\"Longitude\"]});';\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetSetZoomLevel: string;\r\nbegin\r\n  Result :=\r\n    '  ' + MAPVAR + '.setZoom(' + PARAMSNAME + ');';\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetShowPopup: string;\r\nbegin\r\n  Result :=\r\n    '  var pos = {' + LB +\r\n    '    lat: ' + PARAMSNAME + '[\"Latitude\"],' + LB +\r\n    '    lng: ' + PARAMSNAME + '[\"Longitude\"]' + LB +\r\n    '  }' + LB +\r\n    '  var xy = ' + MAPVAR + '.geoToScreen(pos);' + LB +\r\n    '  var newpos = ' + MAPVAR + '.screenToGeo(xy.x + ' + PARAMSNAME + '[\"OffsetX\"], xy.y + ' + PARAMSNAME + '[\"OffsetY\"]);' + LB +\r\n    '  ' + POPUPVAR + ' = new ' + MAPSERVICEVAR + '.ui.InfoBubble(newpos, {' + LB +\r\n    '    content: ' + PARAMSNAME + '[\"Text\"]' + LB +\r\n    '  });' + LB +\r\n    '  ' + POPUPVAR + '.close = function(){' + LB +\r\n    '    ' + MAPUI + '.removeBubble(' + POPUPVAR + ');' + LB +\r\n    '    ' + POPUPVAR + ' = null;' + LB +\r\n    '  }' + LB +\r\n    '  ' + MAPUI + '.addBubble(' + POPUPVAR + ');';\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetUpdateOptions: string;\r\nbegin\r\n  Result :=\r\n    '  if (' + PARAMSNAME + '[\"ZoomOnDblClick\"]){' + LB +\r\n    '    ' + MAPBEHAVIOR + '.enable(' + MAPSERVICEVAR + '.mapevents.Behavior.DBLTAPZOOM)' + LB +\r\n    '  }' + LB +\r\n    '  else{' + LB +\r\n    '    ' + MAPBEHAVIOR + '.disable(' + MAPSERVICEVAR + '.mapevents.Behavior.DBLTAPZOOM)' + LB +\r\n    '  }' + LB +\r\n    '  if (' + PARAMSNAME + '[\"Panning\"]){' + LB +\r\n    '    ' + MAPBEHAVIOR + '.enable(' + MAPSERVICEVAR + '.mapevents.Behavior.DRAGGING)' + LB +\r\n    '  }' + LB +\r\n    '  else{' + LB +\r\n    '    ' + MAPBEHAVIOR + '.disable(' + MAPSERVICEVAR + '.mapevents.Behavior.DRAGGING)' + LB +\r\n    '  }' + LB +\r\n    '  if (' + PARAMSNAME + '[\"ZoomOnWheelScroll\"]){' + LB +\r\n    '    ' + MAPBEHAVIOR + '.enable(' + MAPSERVICEVAR + '.mapevents.Behavior.WHEELZOOM)' + LB +\r\n    '  }' + LB +\r\n    '  else{' + LB +\r\n    '    ' + MAPBEHAVIOR + '.disable(' + MAPSERVICEVAR + '.mapevents.Behavior.WHEELZOOM)' + LB +\r\n    '  }' + LB +\r\n    '  ' + MAPUI + '.getControl(''zoom'').setVisibility('  + PARAMSNAME + '[\"ShowZoomControl\"]);' + LB +\r\n    '  ' + MAPUI + '.getControl(''mapsettings'').setVisibility(' + PARAMSNAME + '[\"ShowMapTypeControl\"]);';\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetZoomToBounds: string;\r\nbegin\r\n  Result := '  ' + MAPVAR + '.getViewModel().setLookAtData({' + LB +\r\n    '      bounds: new ' + MAPSERVICEVAR + '.geo.Rect(' + PARAMSNAME + '[\"NorthEast\"][\"Latitude\"], ' + PARAMSNAME + '[\"SouthWest\"][\"Longitude\"], ' +\r\n      PARAMSNAME + '[\"SouthWest\"][\"Latitude\"], ' + PARAMSNAME + '[\"NorthEast\"][\"Longitude\"])' + LB +\r\n    '  });';\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetAddCoordinateToArray: string;\r\nbegin\r\n  Result := '  ' + COORDINATEARRAYVAR + '.pushLatLngAlt(' + PARAMSNAME + '[\"Latitude\"],' + PARAMSNAME + '[\"Longitude\"]);';\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetAddHoleToArray: string;\r\nbegin\r\n  Result := 'var o = ' + HOLEARRAYVAR + '[' + PARAMSNAME + '[0]];' + LB +\r\n            'if (o){' + LB +\r\n            '  ' + HOLEARRAYVAR + '[' + PARAMSNAME + '[0]].pushLatLngAlt(' + PARAMSNAME + '[1][\"Latitude\"], ' + PARAMSNAME + '[1][\"Longitude\"]);' + LB +\r\n            '}else{' + LB +\r\n            '  ' + HOLEARRAYVAR + '[' + PARAMSNAME + '[0]] = new ' + MAPSERVICEVAR + '.geo.LineString();' +\r\n            '  ' + HOLEARRAYVAR + '[' + PARAMSNAME + '[0]].pushLatLngAlt(' + PARAMSNAME + '[1][\"Latitude\"], ' + PARAMSNAME + '[1][\"Longitude\"]);' + LB +\r\n            '}';\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetAddOrUpdateMarker: string;\r\nbegin\r\n  Result :=\r\n    '  var pos = {' + LB +\r\n    '    lat: ' + PARAMSNAME + '[\"Latitude\"],' + LB +\r\n    '    lng: ' + PARAMSNAME + '[\"Longitude\"]' + LB +\r\n    '  }' + LB +\r\n\r\n    '  var markericon = ' + CUSTOMDEFAULTMARKERICON + '(' +\r\n      PARAMSNAME + '[\"DefaultIcon\"],' + LB +\r\n      PARAMSNAME + '[\"IconURL\"]);' + LB +\r\n\r\n    '  var opt;' + LB +\r\n    '  if ((markericon != \"\") && ' +\r\n    '   ((markericon.toLowerCase().startsWith(\"http\")) || (markericon.toLowerCase().startsWith(\"data:image/\")))){' + LB +\r\n    '    opt = {' + LB +\r\n    '      icon: new ' + MAPSERVICEVAR + '.map.Icon(markericon),' + LB +\r\n    '      visibility: ' + PARAMSNAME + '[\"Visible\"]' + LB +\r\n    '      , volatility: true' + LB +\r\n    '    }' + LB +\r\n    '  }else{' + LB +\r\n    '    opt = {' + LB +\r\n    '      visibility: ' + PARAMSNAME + '[\"Visible\"]' + LB +\r\n    '      , volatility: true' + LB +\r\n    '    }' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  if (!' + MARKERVAR + '){' + LB +\r\n    '    ' + MARKERVAR + ' = new ' + MAPSERVICEVAR + '.map.Marker(pos, opt);' + LB +\r\n    '    ' + MARKERVAR + '.addEventListener(''tap'', function(event){' + LB +\r\n    '      if (' + PARAMSNAME + '[\"Title\"]){' + LB +\r\n    '        var xy = ' + MAPVAR + '.geoToScreen(event.target.getGeometry());' + LB +\r\n    '        var newpos = ' + MAPVAR + '.screenToGeo(xy.x, xy.y - 50);' + LB +\r\n    '        var bubble =  new ' + MAPSERVICEVAR + '.ui.InfoBubble(newpos, {' + LB +\r\n    '          content: event.target.getData()' + LB +\r\n    '        });' + LB +\r\n    '        ' + MAPUI + '.addBubble(bubble);' + LB +\r\n    '      }' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MARKERVAR + '.addEventListener(''dbltap'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerDblClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MARKERVAR + '.addEventListener(''contextmenu'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerRightClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MARKERVAR + '.addEventListener(''pointerup'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseUp\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MARKERVAR + '.addEventListener(''pointerdown'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseDown\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MARKERVAR + '.addEventListener(''pointerleave'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseLeave\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MARKERVAR + '.addEventListener(''pointerenter'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseEnter\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MARKERVAR + '.setData(' + PARAMSNAME + '[\"Title\"]);' + LB +\r\n\r\n    '    ' + MAPVAR + '.addObject(' + MARKERVAR + ');' + LB +\r\n\r\n    '  }else{' + LB +\r\n    '    ' + MARKERVAR + '.setGeometry(pos);' + LB +\r\n    '    ' + MARKERVAR + '.setData(' + PARAMSNAME + '[\"Title\"]);' + LB +\r\n    '    ' + MARKERVAR + '.setVisibility(' + PARAMSNAME + '[\"Visible\"]);' + LB +\r\n    '  }';\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetAddOrUpdatePolyElement: string;\r\nbegin\r\n  Result :=\r\n    '  var c = ' + PARAMSNAME + '[\"$type\"];' + LB +\r\n    '  var options;' + LB +\r\n\r\n    '  switch(c){' + LB +\r\n    '    case \"TTMSFNCMapsPolyline\":' + LB +\r\n    '    options = {' + LB +\r\n    '      visibility: ' + PARAMSNAME + '[\"Visible\"],' + LB +\r\n    '      style: {' + LB +\r\n    '        strokeColor: toRGBA(' + PARAMSNAME + '[\"StrokeColor\"], ' + PARAMSNAME + '[\"StrokeOpacity\"]),' + LB +\r\n    '        lineWidth: ' + PARAMSNAME + '[\"StrokeWidth\"]' + LB +\r\n    '      },' + LB +\r\n    '    };' + LB +\r\n    '    break;' + LB +\r\n    '    case \"TTMSFNCMapsCircle\":' + LB +\r\n    '    case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '    case \"TTMSFNCMapsPolygon\":' + LB +\r\n    '    case \"TTMSFNCHerePolygon\":' + LB +\r\n    '    options = {' + LB +\r\n    '      visibility: ' + PARAMSNAME + '[\"Visible\"],' + LB +\r\n    '      style: {' + LB +\r\n    '        fillColor: toRGBA(' + PARAMSNAME + '[\"FillColor\"], ' + PARAMSNAME + '[\"FillOpacity\"]),' + LB +\r\n    '        strokeColor: toRGBA(' + PARAMSNAME + '[\"StrokeColor\"], ' + PARAMSNAME + '[\"StrokeOpacity\"]),' + LB +\r\n    '        lineWidth: ' + PARAMSNAME + '[\"StrokeWidth\"]' + LB +\r\n    '      }' + LB +\r\n    '    };' + LB +\r\n    '    break;' + LB +\r\n    '   }'+ LB + LB +\r\n\r\n    '  if (!' + POLYELEMENTVAR + '){' + LB +\r\n    '    switch(c){' + LB +\r\n    '      case \"TTMSFNCMapsCircle\":' + LB +\r\n    '      ' + POLYELEMENTVAR + ' = new ' + MAPSERVICEVAR + '.map.Circle({lat: ' + PARAMSNAME + '[\"Center\"][\"Latitude\"], lng: ' + PARAMSNAME + '[\"Center\"][\"Longitude\"]}, ' + PARAMSNAME + '[\"Radius\"], options);' + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '      ' + POLYELEMENTVAR + ' = new ' + MAPSERVICEVAR + '.map.Rect(new ' + MAPSERVICEVAR + '.geo.Rect(' +\r\n             PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Latitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Longitude\"], ' +\r\n             PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Latitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Longitude\"]), options);' + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCMapsPolyline\":' + LB +\r\n    '      ' + POLYELEMENTVAR + ' = new ' + MAPSERVICEVAR + '.map.Polyline(' + COORDINATEARRAYVAR + ', options);' + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCMapsPolygon\":' + LB +\r\n    '      case \"TTMSFNCHerePolygon\":' + LB +\r\n    '        co = ' + COORDINATEARRAYVAR + ';' + LB +\r\n    '        var pthArr = [];' + LB +\r\n    '        for (var key in ' + HOLEARRAYVAR + '){' + LB +\r\n    '          pthArr.push(' + HOLEARRAYVAR + '[key]);' + LB +\r\n    '        }' + LB +\r\n    '        co = new ' + MAPSERVICEVAR + '.geo.Polygon(co, pthArr);' +\r\n    '        ' + POLYELEMENTVAR + ' = new ' + MAPSERVICEVAR + '.map.Polygon(co, options);' + LB +\r\n    '      break;' + LB +\r\n    '    }' + LB +\r\n    '    ' + POLYELEMENTVAR + '.addEventListener(''tap'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + POLYELEMENTVAR + '.addEventListener(''dbltap'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementDblClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + POLYELEMENTVAR + '.addEventListener(''contextmenu'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementRightClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + POLYELEMENTVAR + '.addEventListener(''pointerup'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseUp\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + POLYELEMENTVAR + '.addEventListener(''pointerdown'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseDown\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + POLYELEMENTVAR + '.addEventListener(''pointerleave'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseLeave\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + POLYELEMENTVAR + '.addEventListener(''pointerenter'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseEnter\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MAPVAR + '.addObject(' + POLYELEMENTVAR + ');' + LB +\r\n    '  }else{' + LB +\r\n    '    ' + POLYELEMENTVAR + '.setStyle(options.style);' + LB +\r\n    '    ' + POLYELEMENTVAR + '.setVisibility(options.visibility);' + LB +\r\n    '    switch(c){' + LB +\r\n    '      case \"TTMSFNCMapsCircle\":' + LB +\r\n    '      ' + POLYELEMENTVAR + '.setCenter({lat: ' + PARAMSNAME + '[\"Center\"][\"Latitude\"], lng: ' + PARAMSNAME + '[\"Center\"][\"Longitude\"]});' + LB +\r\n    '      ' + POLYELEMENTVAR + '.setRadius(' + PARAMSNAME + '[\"Radius\"]);' + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '      ' + POLYELEMENTVAR + '.setBoundingBox(new ' + MAPSERVICEVAR + '.geo.Rect(' +\r\n             PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Latitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Longitude\"], ' +\r\n             PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Latitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Longitude\"]));' + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCMapsPolyline\":' + LB +\r\n    '      ' + POLYELEMENTVAR + '.setGeometry(' + COORDINATEARRAYVAR + ');' + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCMapsPolygon\":' + LB +\r\n    '      case \"TTMSFNCHerePolygon\":' + LB +\r\n    '        co = ' + COORDINATEARRAYVAR + ';' + LB +\r\n    '        var pthArr = [];' + LB +\r\n    '        for (var key in ' + HOLEARRAYVAR + '){' + LB +\r\n    '          pthArr.push(' + HOLEARRAYVAR + '[key]);' + LB +\r\n    '        }' + LB +\r\n    '        ' + POLYELEMENTVAR + '.setGeometry(new ' + MAPSERVICEVAR + '.geo.Polygon(co, pthArr));' + LB +\r\n    '      break;' + LB +\r\n    '    }' + LB +\r\n    '  }';\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.GetClosePopup: string;\r\nbegin\r\n  Result := '  ' + POPUPVAR + '.close();' + LB +\r\n            '  ' + MAPUI + '.removeBubble(' + POPUPVAR + ');' + LB +\r\n            '  ' + POPUPVAR + ' = null;';\r\nend;\r\n\r\nfunction TTMSFNCMapsHere.IsValid: Boolean;\r\nbegin\r\n  Result := (MapsProperties.GetAPIKey <> '');\r\nend;\r\n\r\nprocedure TTMSFNCMapsHere.RemoveScripts;\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  asm\r\n    if (window.H){\r\n      window.H = undefined;\r\n    }\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2023                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCMaps.BingMaps;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nprocedure RegisterBingMapsService;\r\nprocedure UnRegisterBingMapsService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCMaps, WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCMapsBingMapsService = class;\r\n\r\n  TTMSFNCMapsBingMapsFactoryService = class(TTMSFNCMapsFactoryService, ITMSFNCMapsServiceBingMaps);\r\n\r\n  TTMSFNCMapsBingMapsService = class(TTMSFNCMapsBingMapsFactoryService)\r\n  protected\r\n    function DoCreateMaps: ITMSFNCCustomMaps; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCMapsBingMaps = class;\r\n\r\n  TTMSFNCMapsBingMaps = class(TTMSFNCCustomMapsInterfacedObject, ITMSFNCCustomMaps)\r\n  protected\r\n    procedure GetHeadLinks(const AList: TTMSFNCMapsLinksList);\r\n    procedure RemoveScripts;\r\n    function GetResetMap: string;\r\n    function GetShowPopup: string;\r\n    function GetClosePopup: string;\r\n    function GetHeadStyle: string;\r\n    function GetDelayLoadEvent: string;\r\n    function GetMapsServiceCheck: string;\r\n    function GetIdentifier: string;\r\n    function GetInitializeMap: string;\r\n    function GetInitializeEvents: string;\r\n    function GetAddOrUpdateMarker: string;\r\n    function GetDeleteMarker: string;\r\n    function GetAddOrUpdatePolyElement: string;\r\n    function GetDeletePolyElement: string;\r\n    function GetZoomToBounds: string;\r\n    function GetGetBounds: string;\r\n    function GetGetCenterCoordinate: string;\r\n    function GetGetZoomLevel: string;\r\n    function GetLatLonToXY: string;\r\n    function GetXYToLatLon: string;\r\n    function GetSetCenterCoordinate: string;\r\n    function GetSetZoomLevel: string;\r\n    function GetUpdateOptions: string;\r\n    function GetGlobalVariables: string;\r\n    function GetAddCoordinateToArray: string;\r\n    function GetAddHoleToArray: string;\r\n    function GetInitializeCoordinateArray: string;\r\n    function GetInitializeHolesArray: string;\r\n    function IsValid: Boolean;\r\n    procedure DestroyMaps;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  MapsService: ITMSFNCMapsServiceBingMaps;\r\n\r\nconst\r\n  BINGMAPSAPIURL = 'https://www.bing.com/api/maps/';\r\n  MAPSERVICEVAR = 'window.Microsoft.Maps';\r\n  DOUBLECLICKZOOM = 'dblclickZoom';\r\n  SCROLLZOOM = 'scrollZoom';\r\n\r\nprocedure RegisterBingMapsService;\r\nbegin\r\n  if not TTMSFNCMapsPlatformServices.Current.SupportsPlatformService(ITMSFNCMapsServiceBingMaps, IInterface(MapsService)) then\r\n  begin\r\n    MapsService := TTMSFNCMapsBingMapsService.Create;\r\n    TTMSFNCMapsPlatformServices.Current.AddPlatformService(ITMSFNCMapsServiceBingMaps, MapsService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterBingMapsService;\r\nbegin\r\n  TTMSFNCMapsPlatformServices.Current.RemovePlatformService(ITMSFNCMapsServiceBingMaps);\r\nend;\r\n\r\n{ TTMSFNCMapsBingMapsService }\r\n\r\nfunction TTMSFNCMapsBingMapsService.DoCreateMaps: ITMSFNCCustomMaps;\r\nbegin\r\n  Result := TTMSFNCMapsBingMaps.Create;\r\nend;\r\n\r\nconstructor TTMSFNCMapsBingMaps.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCMapsBingMaps.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCMapsBingMaps.DestroyMaps;\r\nbegin\r\n  MapsService.DestroyMaps(Self);\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetAddCoordinateToArray: string;\r\nbegin\r\n  Result := '  ' + COORDINATEARRAYVAR + '.push(new ' + MAPSERVICEVAR + '.Location(' + PARAMSNAME + '[\"Latitude\"],' + PARAMSNAME + '[\"Longitude\"]));';\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetAddHoleToArray: string;\r\nbegin\r\n  Result := 'var o = ' + HOLEARRAYVAR + '[' + PARAMSNAME + '[0]];' + LB +\r\n    'if (o){' + LB +\r\n    '  ' + HOLEARRAYVAR + '[' + PARAMSNAME + '[0]].push(new ' + MAPSERVICEVAR + '.Location(' + PARAMSNAME + '[1][\"Latitude\"], ' + PARAMSNAME + '[1][\"Longitude\"]));' + LB +\r\n    '}else{' + LB +\r\n    '  ' + HOLEARRAYVAR + '[' + PARAMSNAME + '[0]] = [new ' + MAPSERVICEVAR + '.Location(' + PARAMSNAME + '[1][\"Latitude\"], ' + PARAMSNAME + '[1][\"Longitude\"])];' + LB +\r\n    '}';\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetAddOrUpdateMarker: string;\r\nbegin\r\n  Result :=\r\n    '  var options = {' + LB +\r\n    '    title: ' + PARAMSNAME + '[\"Title\"],' + LB +\r\n    '    icon: ' + PARAMSNAME + '[\"IconURL\"],' + LB +\r\n    '    visible: ' + PARAMSNAME + '[\"Visible\"]' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  var loc = new ' + MAPSERVICEVAR + '.Location(' + PARAMSNAME + '[\"Latitude\"], ' + PARAMSNAME + '[\"Longitude\"])' + LB + LB +\r\n\r\n    '  if (!' + MARKERVAR + '){' + LB +\r\n    '    ' + MARKERVAR + ' = new ' + MAPSERVICEVAR + '.Pushpin(loc, options);' + LB +\r\n    '    ' + MAPVAR + '.entities.push(' + MARKERVAR + ');' + LB +\r\n    '    ' + MAPSERVICEVAR + '.Events.addHandler(' + MARKERVAR + ', ''click'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MAPSERVICEVAR + '.Events.addHandler(' + MARKERVAR + ', ''dblclick'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerDblClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MAPSERVICEVAR + '.Events.addHandler(' + MARKERVAR + ', ''mouseup'', function(event){' + LB +\r\n    '      activeElement = ' + MARKERVAR + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseUp\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MAPSERVICEVAR + '.Events.addHandler(' + MARKERVAR + ', ''mousedown'', function(event){' + LB +\r\n    '      activeElement = ' + MARKERVAR + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseDown\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MAPSERVICEVAR + '.Events.addHandler(' + MARKERVAR + ', ''mouseout'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseLeave\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MAPSERVICEVAR + '.Events.addHandler(' + MARKERVAR + ', ''mouseover'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseEnter\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n\r\n    '    if (mouseUpId != -1) {' + LB +\r\n    '      ' + MAPSERVICEVAR + '.Events.removeHandler(mouseUpId);' + LB +\r\n    '    }' + LB +\r\n    '    if (mouseDownId != -1) {' + LB +\r\n    '      ' + MAPSERVICEVAR + '.Events.removeHandler(mouseDownId);' + LB +\r\n    '    }' + LB +\r\n    '    mouseUpId = ' + MAPSERVICEVAR + '.Events.addHandler(' + MAPVAR + ', ''mouseup'', function(event){' + LB +\r\n    '      if (activeElement){' + LB +\r\n    '        activeElement = null; ' + LB +\r\n    '        return;' + LB +\r\n    '      }' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseUp\"));' + LB +\r\n    '    })' + LB + LB +\r\n    '    mouseDownId = ' + MAPSERVICEVAR + '.Events.addHandler(' + MAPVAR + ', ''mousedown'', function(event){' + LB +\r\n    '      if (activeElement){' + LB +\r\n    '        activeElement = null; ' + LB +\r\n    '        return;' + LB +\r\n    '      }' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseDown\"));' + LB +\r\n    '    })' + LB + LB +\r\n\r\n    '  }else{' + LB +\r\n    '    ' + MARKERVAR + '.setOptions(options);' + LB +\r\n    '    ' + MARKERVAR + '.setLocation(loc);' + LB +\r\n    '  }';\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetAddOrUpdatePolyElement: string;\r\nbegin\r\n  Result :=\r\n    '  var c = ' + PARAMSNAME + '[\"$type\"];' + LB +\r\n    '  var options;' + LB +\r\n    '  var co = [];' + LB +\r\n\r\n    '  switch(c){' + LB +\r\n    '    case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '      co.push(new ' + MAPSERVICEVAR + '.Location(' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Latitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Longitude\"]));' + LB +\r\n    '      co.push(new ' + MAPSERVICEVAR + '.Location(' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Latitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Longitude\"]));' + LB +\r\n    '      co.push(new ' + MAPSERVICEVAR + '.Location(' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Latitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Longitude\"]));' + LB +\r\n    '      co.push(new ' + MAPSERVICEVAR + '.Location(' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Latitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Longitude\"]));' + LB +\r\n    '      co.push(new ' + MAPSERVICEVAR + '.Location(' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Latitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Longitude\"]));' + LB +\r\n    '    break;' + LB +\r\n    '    case \"TTMSFNCMapsCircle\":' + LB +\r\n    '      if (' + MAPSERVICEVAR + '.SpatialMath){' + LB +\r\n    '        co = ' + MAPSERVICEVAR + '.SpatialMath.getRegularPolygon(new ' + MAPSERVICEVAR + '.Location(' + PARAMSNAME + '[\"Center\"][\"Latitude\"], ' + PARAMSNAME + '[\"Center\"][\"Longitude\"]), ' + PARAMSNAME + '[\"Radius\"], 100);' + LB +\r\n    '      }else{' + LB +\r\n    '        co.push(new ' + MAPSERVICEVAR + '.Location(' + PARAMSNAME + '[\"Center\"][\"Latitude\"], ' + PARAMSNAME + '[\"Center\"][\"Latitude\"]));' + LB +\r\n    '      }' + LB +\r\n    '    break;' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  switch(c){' + LB +\r\n    '    case \"TTMSFNCMapsPolyline\":' + LB +\r\n    '    options = {' + LB +\r\n    '      visible: ' + PARAMSNAME + '[\"Visible\"],' + LB +\r\n    '      strokeColor: toRGBA(' + PARAMSNAME + '[\"StrokeColor\"], ' + PARAMSNAME + '[\"StrokeOpacity\"]),' + LB +\r\n    '      strokeThickness: ' + PARAMSNAME + '[\"StrokeWidth\"]' + LB +\r\n    '    }' + LB + LB +\r\n    '    break;' + LB +\r\n    '    case \"TTMSFNCMapsPolygon\":' + LB +\r\n    '    case \"TTMSFNCBingMapsPolygon\":' + LB +\r\n    '    case \"TTMSFNCMapsCircle\":' + LB +\r\n    '    case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '    options = {' + LB +\r\n    '      visible: ' + PARAMSNAME + '[\"Visible\"],' + LB +\r\n    '      fillColor: toRGBA(' + PARAMSNAME + '[\"FillColor\"], ' + PARAMSNAME + '[\"FillOpacity\"]),' + LB +\r\n    '      strokeColor: toRGBA(' + PARAMSNAME + '[\"StrokeColor\"], ' + PARAMSNAME + '[\"StrokeOpacity\"]),' + LB +\r\n    '      strokeThickness: ' + PARAMSNAME + '[\"StrokeWidth\"]' + LB +\r\n    '    }' + LB +\r\n    '    break;' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  if (!' + POLYELEMENTVAR + '){' + LB +\r\n    '    switch(c){' + LB +\r\n    '      case \"TTMSFNCMapsPolyline\":' + LB +\r\n    '      ' + POLYELEMENTVAR + ' = new ' + MAPSERVICEVAR + '.Polyline(' + COORDINATEARRAYVAR + ', options);' + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCMapsCircle\":' + LB +\r\n    '      case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '      ' + POLYELEMENTVAR + ' = new ' + MAPSERVICEVAR + '.Polygon(co, options);' + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCMapsPolygon\":' + LB +\r\n    '      case \"TTMSFNCBingMapsPolygon\":' + LB +\r\n\r\n    '      var pthArr = [];' + LB +\r\n    '      pthArr.push(' + COORDINATEARRAYVAR + ');' + LB +\r\n    '      for (var key in ' + HOLEARRAYVAR + '){' + LB +\r\n    '        pthArr.push(' + HOLEARRAYVAR + '[key]);' + LB +\r\n    '      }' + LB +\r\n\r\n    '      ' + POLYELEMENTVAR + ' = new ' + MAPSERVICEVAR + '.Polygon(pthArr, options);' + LB +\r\n    '      break;' + LB +\r\n    '    }' + LB +\r\n    '    ' + MAPVAR + '.entities.push(' + POLYELEMENTVAR + ');' + LB +\r\n    '    ' + MAPSERVICEVAR + '.Events.addHandler(' + POLYELEMENTVAR + ', ''click'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MAPSERVICEVAR + '.Events.addHandler(' + POLYELEMENTVAR + ', ''dblclick'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementDblClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MAPSERVICEVAR + '.Events.addHandler(' + POLYELEMENTVAR + ', ''mouseup'', function(event){' + LB +\r\n    '      activeElement = ' + POLYELEMENTVAR + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseUp\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MAPSERVICEVAR + '.Events.addHandler(' + POLYELEMENTVAR + ', ''mousedown'', function(event){' + LB +\r\n    '      activeElement = ' + POLYELEMENTVAR + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseDown\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MAPSERVICEVAR + '.Events.addHandler(' + POLYELEMENTVAR + ', ''mouseout'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseLeave\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MAPSERVICEVAR + '.Events.addHandler(' + POLYELEMENTVAR + ', ''mouseover'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseEnter\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n\r\n    '    if (mouseUpId != -1) {' + LB +\r\n    '      ' + MAPSERVICEVAR + '.Events.removeHandler(mouseUpId);' + LB +\r\n    '    }' + LB +\r\n    '    if (mouseDownId != -1) {' + LB +\r\n    '      ' + MAPSERVICEVAR + '.Events.removeHandler(mouseDownId);' + LB +\r\n    '    }' + LB +\r\n    '    mouseUpId = ' + MAPSERVICEVAR + '.Events.addHandler(' + MAPVAR + ', ''mouseup'', function(event){' + LB +\r\n    '      if (activeElement){' + LB +\r\n    '        activeElement = null; ' + LB +\r\n    '        return;' + LB +\r\n    '      }' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseUp\"));' + LB +\r\n    '    })' + LB + LB +\r\n    '    mouseDownId = ' + MAPSERVICEVAR + '.Events.addHandler(' + MAPVAR + ', ''mousedown'', function(event){' + LB +\r\n    '      if (activeElement){' + LB +\r\n    '        activeElement = null; ' + LB +\r\n    '        return;' + LB +\r\n    '      }' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseDown\"));' + LB +\r\n    '    })' + LB + LB +\r\n\r\n    '  }else{' + LB +\r\n    '    switch(c){' + LB +\r\n    '      case \"TTMSFNCMapsPolyline\":' + LB +\r\n    '      case \"TTMSFNCMapsPolygon\":' + LB +\r\n    '      ' + POLYELEMENTVAR + '.setLocations(' + COORDINATEARRAYVAR + ');' + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '      case \"TTMSFNCMapsCircle\":' + LB +\r\n    '      ' + POLYELEMENTVAR + '.setLocations(co);' + LB +\r\n    '      break;' + LB +\r\n    '    }' + LB +\r\n    '    ' + POLYELEMENTVAR + '.setOptions(options);' + LB +\r\n    '  }';\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetClosePopup: string;\r\nbegin\r\n  Result := '  ' + POPUPVAR + '.setMap(null);';\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetDelayLoadEvent: string;\r\nbegin\r\n  Result := '  ' + MAPSERVICEVAR + '.loadModule(''Microsoft.Maps.SpatialMath'', function () {';\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetDeleteMarker: string;\r\nbegin\r\n  Result := '  ' + MAPVAR + '.entities.remove(' + MARKERVAR + ')';\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetDeletePolyElement: string;\r\nbegin\r\n  Result := '  ' + MAPVAR + '.entities.remove(' + POLYELEMENTVAR + ')';\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetGetBounds: string;\r\nbegin\r\n  Result :=\r\n    '  var loc = ' + MAPVAR + '.getBounds();' + LB +\r\n    '  jsonObj[\"NorthEast\"][\"Latitude\"] = loc.getNorth();' + LB +\r\n    '  jsonObj[\"NorthEast\"][\"Longitude\"] = loc.getEast();' + LB +\r\n    '  jsonObj[\"SouthWest\"][\"Latitude\"] = loc.getSouth();' + LB +\r\n    '  jsonObj[\"SouthWest\"][\"Longitude\"] = loc.getWest();';\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetGetCenterCoordinate: string;\r\nbegin\r\n  Result :=\r\n    '  var loc = ' + MAPVAR + '.getCenter();' + LB +\r\n    '  jsonObj[\"Latitude\"] = loc.latitude;' + LB +\r\n    '  jsonObj[\"Longitude\"] = loc.longitude;';\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetLatLonToXY: string;\r\nbegin\r\n  Result :=\r\n    '  var loc = new ' + MAPSERVICEVAR + '.Location(' + PARAMSNAME + '[\"Latitude\"], ' + PARAMSNAME + '[\"Longitude\"]);' + LB +\r\n    '  point = ' + MAPVAR + '.tryLocationToPixel(loc, ' + MAPSERVICEVAR + '.PixelReference.control);' + LB +\r\n    '  jsonObj[\"X\"] = parseFloat(point.x);' + LB +\r\n    '  jsonObj[\"Y\"] = parseFloat(point.y);';\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetXYToLatLon: string;\r\nbegin\r\n  Result :=\r\n    '  var point = new ' + MAPSERVICEVAR + '.Point(' + PARAMSNAME + '[\"X\"], ' + PARAMSNAME + '[\"Y\"]);' + LB +\r\n    '  var loc = map.tryPixelToLocation(point, ' + MAPSERVICEVAR + '.PixelReference.control);' + LB +\r\n    '  jsonObj[\"Latitude\"] = parseFloat(loc.lat);' + LB +\r\n    '  jsonObj[\"Longitude\"] = parseFloat(loc.lng);';\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetGetZoomLevel: string;\r\nbegin\r\n  Result := '  var z = ' + MAPVAR + '.getZoom();';\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetGlobalVariables: string;\r\nbegin\r\n   Result :=\r\n    'var activeElement = null;' + LB +\r\n    'var mouseDownId = -1;' + LB +\r\n    'var mouseUpId = -1;' + LB +\r\n    'var ' + DOUBLECLICKZOOM + ';' + LB +\r\n    'var ' + SCROLLZOOM + ';' + LB + LB +\r\n    'function parseEvent(event, eventname, id = ''''){' + LB +\r\n    '  var loc = {''Latitude'': 0, ''Longitude'': 0};' + LB +\r\n    '  var x = 0.0;' + LB +\r\n    '  var y = 0.0;' + LB +\r\n    '  if (event) {' + LB +\r\n    '    if (event.location){' + LB +\r\n    '      loc = {''Latitude'': event.location.latitude, ''Longitude'': event.location.longitude};' + LB +\r\n    '    }' + LB +\r\n    '    if (event.pageX && event.pageY){' + LB +\r\n    '      x = event.pageX;' + LB +\r\n    '      y = event.pageY;' + LB +\r\n    '    }' + LB +\r\n    '  }' + LB +\r\n\r\n    '  var r = {''Coordinate'': loc, ''X'': x, ''Y'': y, ''ID'': id, ''EventName'': eventname};' + LB +\r\n    '  return r;' + LB +\r\n    '}';\r\nend;\r\n\r\nprocedure TTMSFNCMapsBingMaps.GetHeadLinks(\r\n  const AList: TTMSFNCMapsLinksList);\r\nbegin\r\n  AList.Add(TTMSFNCMapsLink.CreateScript(BINGMAPSAPIURL + 'mapcontrol?callback=MapCallBack&setMkt=' + MapsProperties.GetLocale + '&setLang=' +\r\n    MapsProperties.GetLocale(mlmCountry) + '&key=' + MapsProperties.GetAPIKey, 'text/javascript'));\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetHeadStyle: string;\r\nbegin\r\n  Result :=\r\n    '.customInfobox {' + LB +\r\n    '  background:white;' + LB +\r\n    '  white-space:normal;' + LB +\r\n    '  padding: 10px;' + LB +\r\n    '}';\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetIdentifier: string;\r\nbegin\r\n  Result := 'Bing Maps';\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetInitializeCoordinateArray: string;\r\nbegin\r\n  Result := '[]';\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetInitializeHolesArray: string;\r\nbegin\r\n  Result := '[]';\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetInitializeEvents: string;\r\nbegin\r\n  Result :=\r\n  '  var oldZoom = ' + MAPVAR + '.getZoom();' + LB +\r\n  '  ' + MAPSERVICEVAR + '.Events.addHandler(' + MAPVAR + ',''viewchangeend'', function(){' + LB +\r\n  '    var newZoom = ' + MAPVAR + '.getZoom();' + LB +\r\n  '    if(newZoom != oldZoom){' + LB +\r\n  '      ' + GETSENDEVENT + '(parseEvent(null, \"ZoomChanged\"));' + LB +\r\n  '    }' + LB +\r\n  '    oldZoom = newZoom;' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPSERVICEVAR + '.Events.addHandler(' + MAPVAR + ', ''maptypechanged'', function(){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(null, \"MapTypeChanged\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPSERVICEVAR + '.Events.addHandler(' + MAPVAR + ', ''viewchangestart'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMoveStart\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPSERVICEVAR + '.Events.addHandler(' + MAPVAR + ', ''viewchangeend'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMoveEnd\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPSERVICEVAR + '.Events.addHandler(' + MAPVAR + ', ''click'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapClick\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPSERVICEVAR + '.Events.addHandler(' + MAPVAR + ', ''dblclick'', function(event){' + LB +\r\n  '    if (!' + DOUBLECLICKZOOM + '){' + LB +\r\n  '      ' + MAPVAR + '.setOptions({ disableZooming: true });' + LB +\r\n  '      setTimeout(function () { return ' + MAPVAR + '.setOptions({ disableZooming: false}); });' + LB +\r\n  '    }' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapDblClick\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  mouseUpId = ' + MAPSERVICEVAR + '.Events.addHandler(' + MAPVAR + ', ''mouseup'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseUp\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  mouseDownId = ' + MAPSERVICEVAR + '.Events.addHandler(' + MAPVAR + ', ''mousedown'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseDown\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPSERVICEVAR + '.Events.addHandler(' + MAPVAR + ', ''mouseout'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseLeave\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPSERVICEVAR + '.Events.addHandler(' + MAPVAR + ', ''mouseover'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseEnter\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPSERVICEVAR + '.Events.addHandler(' + MAPVAR + ', ''mousemove'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseMove\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPSERVICEVAR + '.Events.addHandler(' + MAPVAR + ', ''mousewheel'', function(event){' + LB +\r\n  '    if (' + SCROLLZOOM + '){' + LB +\r\n  '      var zoom = ' + MAPVAR + '.getZoom();' + LB +\r\n\r\n  '      if (event.wheelDelta > 0 || event.detail < 0) {' + LB +\r\n  '        zoom++;' + LB +\r\n  '      } else {' + LB +\r\n  '        zoom--;' + LB +\r\n  '      }' + LB +\r\n\r\n  '      if (zoom <= 0) {' + LB +\r\n  '        zoom = 1;' + LB +\r\n  '      } else if (zoom >= 21) {' + LB +\r\n  '        zoom = 21;' + LB +\r\n  '      }' + LB +\r\n\r\n  '      ' + MAPVAR + '.setView({ zoom: zoom });' + LB +\r\n  '    }' + LB +\r\n  '  })';\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetInitializeMap: string;\r\nbegin\r\n  Result :=\r\n    '  ' + DOUBLECLICKZOOM + ' = ' + BoolToStrEx(MapsProperties.GetZoomOnDblClick) + ';' + LB +\r\n    '  ' + SCROLLZOOM + ' = ' + BoolToStrEx(MapsProperties.GetZoomOnWheelScroll) + ';' + LB + LB +\r\n\r\n    '  ' + MAPVAR + ' = new ' + MAPSERVICEVAR + '.Map(\"#' + MAPID + '\", {' + LB +\r\n    '    disableScrollWheelZoom: true,' + LB +\r\n    '    disablePanning: ' + BoolToStrEx(not MapsProperties.GetPanning) + ',' + LB +\r\n    '    showZoomButtons: ' + BoolToStrEx(MapsProperties.GetShowZoomControl) + ',' + LB +\r\n    '    showMapTypeSelector: ' + BoolToStrEx(MapsProperties.GetShowMapTypeControl) + LB +\r\n    '  });' + LB + LB +\r\n\r\n    '  ' + MAPVAR + '.setView({' + LB +\r\n    '    zoom: ' + MapsProperties.GetDefaultZoomLevel +',' + LB +\r\n    '    center: new ' + MAPSERVICEVAR + '.Location(' + MapsProperties.GetDefaultLatitude +', ' + MapsProperties.GetDefaultLongitude + ')' + LB +\r\n    '  });';\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetMapsServiceCheck: string;\r\nbegin\r\n  Result := '!(MapCallBackFlag == true) || !window.Microsoft || !' + MAPSERVICEVAR + ' || !' + MAPSERVICEVAR + '.Map';\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetResetMap: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetSetCenterCoordinate: string;\r\nbegin\r\n  Result :=\r\n    '  var lat = new ' + MAPSERVICEVAR + '.Location(' + PARAMSNAME + '[\"Latitude\"], ' + PARAMSNAME + '[\"Longitude\"])' + LB +\r\n    '  ' + MAPVAR + '.setView({ center: lat});';\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetSetZoomLevel: string;\r\nbegin\r\n  Result :=\r\n    '  ' + MAPVAR + '.setView({ zoom: ' + PARAMSNAME + '});';\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetShowPopup: string;\r\nbegin\r\n  Result :=\r\n  '  var popupTemplate = ''<div class=\"customInfobox\">{text}</div>'';' + LB +\r\n  '  var loc = new ' + MAPSERVICEVAR + '.Location(' + PARAMSNAME + '[\"Latitude\"], ' + PARAMSNAME + '[\"Longitude\"]);' + LB +\r\n  '  ' + POPUPVAR + ' = new ' + MAPSERVICEVAR + '.Infobox(loc, {' + LB +\r\n  '    showCloseButton: true,' + LB +\r\n  '    offset: new ' + MAPSERVICEVAR + '.Point(-' + PARAMSNAME + '[\"OffsetX\"], -' + PARAMSNAME + '[\"OffsetY\"]),' + LB +\r\n  '    maxHeight: 10000,' + LB +\r\n  '    maxWidth: 10000,' + LB +\r\n  '    description: popupTemplate.replace(/{text}/g, ' + PARAMSNAME + '[\"Text\"])' + LB +\r\n  '  });' + LB +\r\n  '  ' + POPUPVAR + '.setMap(' + MAPVAR + ');' + LB +\r\n  '  ' + MAPSERVICEVAR + '.Events.addHandler(' + POPUPVAR + ', ''click'', handleClickInfoBox);' + LB +\r\n  '  function handleClickInfoBox(e){' + LB +\r\n  '      var isCloseAction = e.originalEvent.target.className == \"infobox-close-img\";' + LB +\r\n  '      if(isCloseAction){' + LB +\r\n  '        ' + POPUPVAR + '.setMap(null);' + LB +\r\n  '      }' + LB +\r\n  '    }';\r\n\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetUpdateOptions: string;\r\nbegin\r\n  Result :=\r\n    '  ' + DOUBLECLICKZOOM + ' = ' + PARAMSNAME + '[\"ZoomOnDblClick\"];' + LB +\r\n    '  ' + SCROLLZOOM + ' = ' + PARAMSNAME + '[\"ZoomOnWheelScroll\"];' + LB + LB +\r\n\r\n    '  var opt = {' + LB +\r\n    '    disablePanning: !' + PARAMSNAME + '[\"Panning\"],' + LB +\r\n    '    showZoomButtons: ' + PARAMSNAME + '[\"ShowZoomControl\"],' + LB +\r\n    '    showMapTypeSelector: '  + PARAMSNAME + '[\"ShowMapTypeControl\"]' + LB +\r\n    '  };' + LB + LB +\r\n\r\n    '  ' + MAPVAR + '.setOptions(opt);';\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.GetZoomToBounds: string;\r\nbegin\r\n  Result :=\r\n    '  var sw = new ' + MAPSERVICEVAR + '.Location(' + PARAMSNAME + '[\"SouthWest\"][\"Latitude\"], ' + PARAMSNAME + '[\"SouthWest\"][\"Longitude\"])' + LB +\r\n    '  var ne = new ' + MAPSERVICEVAR + '.Location(' + PARAMSNAME + '[\"NorthEast\"][\"Latitude\"], ' + PARAMSNAME + '[\"NorthEast\"][\"Longitude\"])' + LB +\r\n    '  var locs = [sw, ne];' + LB +\r\n    '  var rect = ' + MAPSERVICEVAR + '.LocationRect.fromLocations(locs);' + LB +\r\n    '  ' + MAPVAR + '.setView({ bounds: rect, padding: 0 });';\r\nend;\r\n\r\nfunction TTMSFNCMapsBingMaps.IsValid: Boolean;\r\nbegin\r\n  Result := (MapsProperties.GetAPIKey <> '');\r\nend;\r\n\r\nprocedure TTMSFNCMapsBingMaps.RemoveScripts;\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  asm\r\n    let keywords = ['www.bing.com/rb/3A', 'www.bing.com/rp'];\r\n\r\n    if (window.Microsoft){\r\n      window.Microsoft.Maps = undefined;\r\n    }\r\n\r\n    let scripts = document.querySelectorAll('script,link');\r\n    for (let i = scripts.length - 1; i >= 0; i--) {\r\n        let scriptSource = scripts[i].getAttribute('src');\r\n        if (!scriptSource){\r\n          scriptSource = scripts[i].getAttribute('href');\r\n        }\r\n        if (scriptSource != null) {\r\n            if (keywords.filter(item => scriptSource.includes(item)).length) {\r\n                scripts[i].remove();\r\n                // scripts[i].parentNode.removeChild(scripts[i]);\r\n            }\r\n        }\r\n    }\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCMaps.TomTom;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nprocedure RegisterTomTomService;\r\nprocedure UnRegisterTomTomService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCMaps,\r\n  WEBLib.TMSFNCMapsCommonTypes, WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\nconst\r\n  MAJ_VER = 1; // Major version nr.\r\n  MIN_VER = 0; // Minor version nr.\r\n  REL_VER = 3; // Release nr.\r\n  BLD_VER = 1; // Build nr.\r\n\r\n  //v1.0.0.0: First release\r\n  //v1.0.1.0: New : API version updated\r\n  //v1.0.2.0: New : API version updated\r\n  //v1.0.3.0: Improved : Default Marker anchoring\r\n  //v1.0.3.1: Fixed : Issue OnZoomChanged triggered multiple times\r\n\r\ntype\r\n  TTMSFNCMapsTomTomService = class;\r\n\r\n  TTMSFNCMapsTomTomFactoryService = class(TTMSFNCMapsFactoryService, ITMSFNCMapsServiceTomTom);\r\n\r\n  TTMSFNCMapsTomTomService = class(TTMSFNCMapsTomTomFactoryService)\r\n  protected\r\n    function DoCreateMaps: ITMSFNCCustomMaps; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCMapsTomTom = class;\r\n\r\n  TTMSFNCMapsTomTom = class(TTMSFNCCustomMapsInterfacedObject, ITMSFNCCustomMaps)\r\n  protected\r\n    procedure GetHeadLinks(const AList: TTMSFNCMapsLinksList);\r\n    procedure RemoveScripts;\r\n    function GetResetMap: string;\r\n    function GetShowPopup: string;\r\n    function GetClosePopup: string;\r\n    function GetHeadStyle: string;\r\n    function GetDelayLoadEvent: string;\r\n    function GetMapsServiceCheck: string;\r\n    function GetIdentifier: string;\r\n    function GetInitializeMap: string;\r\n    function GetInitializeEvents: string;\r\n    function GetAddOrUpdateMarker: string;\r\n    function GetDeleteMarker: string;\r\n    function GetAddOrUpdatePolyElement: string;\r\n    function GetDeletePolyElement: string;\r\n    function GetZoomToBounds: string;\r\n    function GetGetBounds: string;\r\n    function GetSetCenterCoordinate: string;\r\n    function GetGetCenterCoordinate: string;\r\n    function GetGetZoomLevel: string;\r\n    function GetSetZoomLevel: string;\r\n    function GetLatLonToXY: string;\r\n    function GetXYToLatLon: string;\r\n    function GetUpdateOptions: string;\r\n    function GetGlobalVariables: string;\r\n    function GetAddCoordinateToArray: string;\r\n    function GetAddHoleToArray: string;\r\n    function GetInitializeCoordinateArray: string;\r\n    function GetInitializeHolesArray: string;\r\n    function IsValid: Boolean;\r\n    procedure DestroyMaps;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  MapsService: ITMSFNCMapsServiceTomTom;\r\n\r\nconst\r\n  TOMTOMAPIVERSION = '6.x/6.25.0';\r\n  TOMTOMAPIURL = 'https://api.tomtom.com/maps-sdk-for-web/cdn/';\r\n  TOMTOMMAPSTYLE = 'https://api.tomtom.com/style/1/style/21.1.0-*?map=basic_main&poi=poi_main';\r\n  MAPSERVICEVAR = 'window.tt';\r\n  MAPZOOMCONTROLVAR = 'mapZoomControl';\r\n  MAPCONTROLARRAYVAR = 'mapControls';\r\n\r\nprocedure RegisterTomTomService;\r\nbegin\r\n  if not TTMSFNCMapsPlatformServices.Current.SupportsPlatformService(ITMSFNCMapsServiceTomTom, IInterface(MapsService)) then\r\n  begin\r\n    MapsService := TTMSFNCMapsTomTomService.Create;\r\n    TTMSFNCMapsPlatformServices.Current.AddPlatformService(ITMSFNCMapsServiceTomTom, MapsService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterTomTomService;\r\nbegin\r\n  TTMSFNCMapsPlatformServices.Current.RemovePlatformService(ITMSFNCMapsServiceTomTom);\r\nend;\r\n\r\n{ TTMSFNCMapsTomTomService }\r\n\r\nfunction TTMSFNCMapsTomTomService.DoCreateMaps: ITMSFNCCustomMaps;\r\nbegin\r\n  Result := TTMSFNCMapsTomTom.Create;\r\nend;\r\n\r\nconstructor TTMSFNCMapsTomTom.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCMapsTomTom.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCMapsTomTom.DestroyMaps;\r\nbegin\r\n  MapsService.DestroyMaps(Self);\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetAddCoordinateToArray: string;\r\nbegin\r\n  Result := '  ' + COORDINATEARRAYVAR + '.push([' + PARAMSNAME + '[\"Longitude\"], ' + PARAMSNAME + '[\"Latitude\"]]);';\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetAddHoleToArray: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetAddOrUpdateMarker: string;\r\nbegin\r\n  Result :=\r\n  '  var loc = [' + PARAMSNAME + '[\"Longitude\"], ' + PARAMSNAME + '[\"Latitude\"]]' + LB + LB +\r\n\r\n  '  if (!' + MARKERVAR + '){' + LB +\r\n  '    var el = document.createElement(''div'');' + LB +\r\n  '    el.style.width = ''48px'';' + LB +\r\n  '    el.style.height = ''48px'';' + LB +\r\n  '    el.innerHTML = ''<img src=\"' + DEFAULT_ICONURL + '\"></img>'';' + LB +\r\n  '    ' + MARKERVAR + ' = new ' + MAPSERVICEVAR + '.Marker({anchor: \"bottom\", element: el, draggable:' + PARAMSNAME + '[\"Draggable\"]});' + LB +\r\n  '    ' + MARKERVAR + '.setLngLat(loc).addTo(' + MAPVAR + ');' + LB +\r\n  '    el.addEventListener(''click'', function(event){' + LB +\r\n  '      event.stopPropagation();' + LB +\r\n  '      if (' + PARAMSNAME + '[\"Title\"] != \"\"){' + LB +\r\n  '        var popup = new ' + MAPSERVICEVAR + '.Popup({ closeOnClick: true, maxWidth: \"none\", offset: [0, -30]}).setLngLat(loc).setHTML(' + PARAMSNAME + '[\"Title\"]).addTo(' + MAPVAR + ');' + LB +\r\n  '      }' + LB +\r\n  '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n  '    })' + LB + LB +\r\n  '    el.addEventListener(''dblclick'', function(event){' + LB +\r\n  '      event.stopPropagation();' + LB +\r\n  '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerDblClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n  '    })' + LB + LB +\r\n  '    el.addEventListener(''mouseup'', function(event){' + LB +\r\n  '      if (!' + PARAMSNAME + '[\"Draggable\"]){' + LB +\r\n  '        event.stopPropagation();' + LB +\r\n  '      }' + LB +\r\n  '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseUp\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n  '    } )' + LB + LB +\r\n  '    el.addEventListener(''mousedown'', function(event){' + LB +\r\n  '      if (!' + PARAMSNAME + '[\"Draggable\"]){' + LB +\r\n  '        event.stopPropagation();' + LB +\r\n  '      }' + LB +\r\n  '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseDown\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n  '    })' + LB + LB +\r\n  '    el.addEventListener(''mouseout'', function(event){' + LB +\r\n  '      event.stopPropagation();' + LB +\r\n  '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseLeave\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n  '    })' + LB + LB +\r\n  '    el.addEventListener(''mouseover'', function(event){' + LB +\r\n  '      event.stopPropagation();' + LB +\r\n  '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseEnter\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n  '    })' + LB + LB +\r\n  '  }else{' + LB +\r\n  '    ' + MARKERVAR + '.setLngLat(loc);' + LB +\r\n  '  }' + LB + LB +\r\n\r\n  MARKERVAR + '.setDraggable(' + PARAMSNAME + '[\"Draggable\"]);' + LB +\r\n\r\n  'function onDragEnd() {' + LB +\r\n  '  const lngLat = ' + MARKERVAR + '.getLngLat();' + LB +\r\n  '  var jsonObj = getDefaultCoordinateObject();' + LB +\r\n  '  jsonObj[\"Latitude\"] = lngLat.latitude;' + LB +\r\n  '  jsonObj[\"Longitude\"] = lngLat.longitude;' + LB +\r\n  '  ' + GETSENDEVENT + '(parseEvent(event, \"MarkerDragEnd\", ' + PARAMSNAME + '[\"ID\"]), jsonObj);' + LB +\r\n  '}' + LB +\r\n\r\n  MARKERVAR + '.on(''dragend'', onDragEnd)' + LB +\r\n\r\n  '  var elx = ' + MARKERVAR + '.getElement();' + LB +\r\n  '  if (elx){' + LB +\r\n\r\n  '  var markericon = ' + CUSTOMDEFAULTMARKERICON + '(' +\r\n    PARAMSNAME + '[\"DefaultIcon\"],' + LB +\r\n    PARAMSNAME + '[\"IconURL\"]);' + LB +\r\n\r\n  '    if (markericon != \"\"){' + LB +\r\n  '      var mimg = document.createElement(''img'');' +\r\n  '      mimg.src = markericon;' +\r\n  '      elx.innerHTML = mimg.outerHTML;' + LB +\r\n  '      if (' + PARAMSNAME + '[\"DefaultIcon\"][\"Enabled\"]) {' + LB +\r\n  '        elx.style.width = ' + PARAMSNAME + '[\"DefaultIcon\"][\"Size\"] + \"px\";' + LB +\r\n  '        elx.style.height = ' + PARAMSNAME + '[\"DefaultIcon\"][\"Size\"] + \"px\";' + LB +\r\n  '      }' + LB +\r\n  '    }' + LB +\r\n  '    if (' + PARAMSNAME + '[\"Visible\"]){' + LB +\r\n  '      elx.style.visibility = \"visible\";' + LB +\r\n  '    }else{' + LB +\r\n  '      elx.style.visibility = \"hidden\";' + LB +\r\n  '    }' + LB +\r\n  '  }';\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetAddOrUpdatePolyElement: string;\r\nbegin\r\n  Result :=\r\n    '  var c = ' + PARAMSNAME + '[\"$type\"];' + LB +\r\n    '  var pg, dpg, pl, dpl, spg, spl;' + LB +\r\n    '  var co = [];' + LB +\r\n\r\n    '  switch(c){' + LB +\r\n    '    case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '      co.push([' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Longitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Latitude\"]]);' + LB +\r\n    '      co.push([' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Longitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Latitude\"]]);' + LB +\r\n    '      co.push([' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Longitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Latitude\"]]);' + LB +\r\n    '      co.push([' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Longitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Latitude\"]]);' + LB +\r\n    '      co.push([' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Longitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Latitude\"]]);' + LB +\r\n    '    break;' + LB +\r\n    '    case \"TTMSFNCMapsCircle\":' + LB +\r\n    '      co = createCircle(' + PARAMSNAME + '[\"Center\"], ' + PARAMSNAME + '[\"Radius\"], true);' + LB +\r\n    '    break;' + LB +\r\n    '    default:' + LB +\r\n    '      co = ' + COORDINATEARRAYVAR + ';' + LB +\r\n    '    break;' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  switch(c){' + LB +\r\n    '    case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '    case \"TTMSFNCMapsCircle\":' + LB +\r\n    '    case \"TTMSFNCMapsPolygon\":' + LB +\r\n    '      dpg = {' + LB +\r\n    '      ''type'': ''Feature'',' + LB +\r\n    '        ''geometry'': {' + LB +\r\n    '          ''type'': ''Polygon'',' + LB +\r\n    '          ''coordinates'': [co]' + LB +\r\n    '        }' + LB +\r\n    '      }' + LB + LB +\r\n\r\n    '      spg = {' + LB +\r\n    '        ''type'': ''geojson'',' + LB +\r\n    '        ''data'': dpg' + LB +\r\n    '      };' + LB +\r\n\r\n    '      pg = {' + LB +\r\n    '        ''id'': ' + PARAMSNAME + '[\"ID\"] + \"_polygon\",' + LB +\r\n    '        ''type'': ''fill'',' + LB +\r\n    '        ''source'': spg, ' + LB +\r\n    '        ''layout'': {' + LB +\r\n    '          ''visibility'': (' + PARAMSNAME + '[\"Visible\"] ? ''visible'' : ''none'')' + LB +\r\n    '        },' + LB +\r\n    '        ''paint'': {' + LB +\r\n    '          ''fill-color'': ' + PARAMSNAME + '[\"FillColor\"],' + LB +\r\n    '          ''fill-opacity'': ' + PARAMSNAME + '[\"FillOpacity\"],' + LB +\r\n    '        }' + LB +\r\n    '      };' + LB + LB +\r\n\r\n    '      co.push(co[0]);' + LB +\r\n    '    break;' + LB +\r\n    '  }' + LB +\r\n\r\n    '  dpl = {' + LB +\r\n    '    ''type'': ''Feature'',' + LB +\r\n    '    ''geometry'': {' + LB +\r\n    '      ''type'': ''LineString'',' + LB +\r\n    '      ''coordinates'': co' + LB +\r\n    '    }' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  spl = {' + LB +\r\n    '    ''type'': ''geojson'',' + LB +\r\n    '    ''data'': dpl' + LB +\r\n    '  };' + LB +\r\n\r\n    '  pl = {' + LB +\r\n    '    ''id'': ' + PARAMSNAME + '[\"ID\"] + \"_polyline\",' + LB +\r\n    '    ''type'': ''line'',' + LB +\r\n    '    ''source'': spl, ' + LB +\r\n    '    ''layout'': {' + LB +\r\n    '      ''visibility'': (' + PARAMSNAME + '[\"Visible\"] ? ''visible'' : ''none'')' + LB +\r\n    '    },' + LB +\r\n    '    ''paint'': {' + LB +\r\n    '      ''line-color'': ' + PARAMSNAME + '[\"StrokeColor\"],' + LB +\r\n    '        ''line-opacity'': ' + PARAMSNAME + '[\"StrokeOpacity\"],' + LB +\r\n    '        ''line-width'': ' + PARAMSNAME + '[\"StrokeWidth\"],' + LB +\r\n    '    }' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  if (!' + POLYELEMENTVAR + '){' + LB +\r\n    '    switch(c){' + LB +\r\n    '      case \"TTMSFNCMapsPolyline\":' + LB +\r\n    '    ' + MAPVAR + '.addLayer(pl);' + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCMapsCircle\":' + LB +\r\n    '      case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '      case \"TTMSFNCMapsPolygon\":' + LB +\r\n    '    ' + MAPVAR + '.addLayer(pg);' + LB +\r\n    '    ' + MAPVAR + '.addLayer(pl);' + LB +\r\n    '      break;' + LB +\r\n    '    }' + LB +\r\n\r\n    '    if (pg) {' + LB +\r\n    '      ' + MAPVAR + '.on(''click'', pg.id, function(event){' + LB +\r\n    '        activeElement = pl;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.on(''dblclick'', pg.id, function(event){' + LB +\r\n    '        activeElement = pl;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementDblClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.on(''mouseup'', pg.id, function(event){' + LB +\r\n    '        activeElement = pl;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseUp\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.on(''mousedown'', pg.id, function(event){' + LB +\r\n    '        activeElement = pl;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseDown\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '     ' + MAPVAR + '.on(''mouseout'', pg.id, function(event){' + LB +\r\n    '        activeElement = pl;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseLeave\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.on(''mouseover'', pg.id, function(event){' + LB +\r\n    '        activeElement = pl;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseEnter\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB +\r\n    '    }' + LB + LB +\r\n\r\n    '    if (pl && !pg) {' + LB +\r\n    '      ' + MAPVAR + '.on(''click'', pl.id, function(event){' + LB +\r\n    '        activeElement = pl;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.on(''dblclick'', pl.id, function(event){' + LB +\r\n    '        activeElement = pl;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementDblClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.on(''mouseup'', pl.id, function(event){' + LB +\r\n    '        activeElement = pl;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseUp\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.on(''mousedown'', pl.id, function(event){' + LB +\r\n    '        activeElement = pl;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseDown\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '     ' + MAPVAR + '.on(''mouseout'', pl.id, function(event){' + LB +\r\n    '        activeElement = pl;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseLeave\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.on(''mouseover'', pl.id, function(event){' + LB +\r\n    '        activeElement = pl;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseEnter\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB +\r\n    '    }' + LB + LB +\r\n\r\n    GetInitializeEvents + LB + LB +\r\n\r\n    '  }else{' + LB +\r\n    '    if (pg) {' + LB +\r\n    '      var pgu = ' + MAPVAR + '.getLayer(pg.id);' + LB +\r\n    '      if (pgu){' + LB +\r\n    '        ' + MAPVAR + '.setLayoutProperty(pgu.id, ''visibility'', (' + PARAMSNAME + '[\"Visible\"] ? ''visible'' : ''none''));' + LB +\r\n    '        ' + MAPVAR + '.setPaintProperty(pgu.id, ''fill-color'', ' + PARAMSNAME + '[\"FillColor\"]);' + LB +\r\n    '        ' + MAPVAR + '.setPaintProperty(pgu.id, ''fill-opacity'', ' + PARAMSNAME + '[\"FillOpacity\"]);' + LB +\r\n    '        ' + MAPVAR + '.getSource(pgu.id).setData(dpg);' + LB +\r\n    '      }' + LB +\r\n    '    }' + LB +\r\n\r\n    '    if (pl) {' + LB +\r\n    '      var plu = ' + MAPVAR + '.getLayer(pl.id);' + LB +\r\n    '      if (plu){' + LB +\r\n    '        ' + MAPVAR + '.setLayoutProperty(plu.id, ''visibility'', (' + PARAMSNAME + '[\"Visible\"] ? ''visible'' : ''none''));' + LB +\r\n    '        ' + MAPVAR + '.setPaintProperty(plu.id, ''line-color'', ' + PARAMSNAME + '[\"StrokeColor\"]);' + LB +\r\n    '        ' + MAPVAR + '.setPaintProperty(plu.id, ''line-opacity'', ' + PARAMSNAME + '[\"StrokeOpacity\"]);' + LB +\r\n    '        ' + MAPVAR + '.setPaintProperty(plu.id, ''line-width'', ' + PARAMSNAME + '[\"StrokeWidth\"]);' + LB +\r\n    '        ' + MAPVAR + '.getSource(plu.id).setData(dpl);' + LB +\r\n    '      }' + LB +\r\n    '    }' + LB +\r\n    '  }' + LB +\r\n\r\n    '  ' + POLYELEMENTVAR + ' = ' + PARAMSNAME + '[\"ID\"]';\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetClosePopup: string;\r\nbegin\r\n  Result := '  ' + POPUPVAR + '.remove();';\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetDelayLoadEvent: string;\r\nbegin\r\n  Result := '  ' + MAPVAR + '.on(''load'', function () {';\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetDeleteMarker: string;\r\nbegin\r\n  Result := '  ' + MARKERVAR + '.remove();';\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetDeletePolyElement: string;\r\nbegin\r\n  Result :=\r\n    '  var pgu = ' + MAPVAR + '.getLayer(' + POLYELEMENTVAR + ' + \"_polygon\");' + LB +\r\n    '  if (pgu){' + LB +\r\n    '    ' + MAPVAR + '.removeLayer(' + POLYELEMENTVAR + ' + \"_polygon\");' + LB +\r\n    '  }' + LB +\r\n\r\n    '  var plu = ' + MAPVAR + '.getLayer(' + POLYELEMENTVAR + ' + \"_polyline\");' + LB +\r\n    '  if (plu){' + LB +\r\n    '    ' + MAPVAR + '.removeLayer(' + POLYELEMENTVAR + ' + \"_polyline\");' + LB +\r\n    '  }';\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetGetBounds: string;\r\nbegin\r\n  Result :=\r\n    '  var loc = ' + MAPVAR + '.getBounds();' + LB +\r\n    '  jsonObj[\"NorthEast\"][\"Latitude\"] = loc.getNorthEast().lat;' + LB +\r\n    '  jsonObj[\"NorthEast\"][\"Longitude\"] = loc.getNorthEast().lng;' + LB +\r\n    '  jsonObj[\"SouthWest\"][\"Latitude\"] = loc.getSouthWest().lat;' + LB +\r\n    '  jsonObj[\"SouthWest\"][\"Longitude\"] = loc.getSouthWest().lng;';\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetGetCenterCoordinate: string;\r\nbegin\r\n  Result :=\r\n    '  var loc = ' + MAPVAR + '.getCenter();' + LB +\r\n    '  jsonObj[\"Latitude\"] = loc.lat;' + LB +\r\n    '  jsonObj[\"Longitude\"] = loc.lng;';\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetLatLonToXY: string;\r\nbegin\r\n  Result :=\r\n    '  var coordinate = [' + PARAMSNAME + '[\"Longitude\"], ' + PARAMSNAME + '[\"Latitude\"]];' + LB +\r\n    '  var point = ' + MAPVAR +'.project(coordinate);' + LB +\r\n    '  jsonObj[\"X\"] = parseFloat(point.x);' + LB +\r\n    '  jsonObj[\"Y\"] = parseFloat(point.y);';\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetXYToLatLon: string;\r\nbegin\r\n  Result :=\r\n    '  var point = [' + PARAMSNAME + '[\"X\"], ' + PARAMSNAME + '[\"Y\"]];' + LB +\r\n    '  var coordinate = ' + MAPVAR +'.unproject(point);' + LB +\r\n    '  jsonObj[\"Latitude\"] = parseFloat(coordinate.lat);' + LB +\r\n    '  jsonObj[\"Longitude\"] = parseFloat(coordinate.lng);';\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetGetZoomLevel: string;\r\nbegin\r\n  Result := '  var z = ' + MAPVAR + '.getZoom();';\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetGlobalVariables: string;\r\nbegin\r\n  Result :=\r\n    'var activeElement = null;' + LB +\r\n    'var ' + MAPZOOMCONTROLVAR + ';' + LB +\r\n    'var ' + MAPCONTROLARRAYVAR + ' = [];' + LB +\r\n    'var mouseLatLng = {''Latitude'': 0, ''Longitude'': 0};' + LB +\r\n    'function parseEvent(event, eventname, id = ''''){' + LB +\r\n    '  var loc = {''Latitude'': 0, ''Longitude'': 0};' + LB +\r\n    '  var x = 0.0;' + LB +\r\n    '  var y = 0.0;' + LB +\r\n    '  if ((eventname == \"MapMoveStart\") || (eventname == \"MapMoveEnd\")){ ' +\r\n    '    var ptcenter = ' + MAPVAR + '.getCenter();' + LB +\r\n    '    var lat = ptcenter.lat;' + LB +\r\n    '    var lng = ptcenter.lng;' + LB +\r\n    '  loc = {''Latitude'': lat, ''Longitude'': lng};' + LB +\r\n    '  } else if (event) {' + LB +\r\n    '    if (event.clientX && event.clientY){' + LB +\r\n    '      x = event.clientX;' + LB +\r\n    '      y = event.clientY;' + LB +\r\n    '      loc = mouseLatLng;' + LB +\r\n    '    }' + LB +\r\n    '    else{' + LB +\r\n    '      if (event.lngLat){' + LB +\r\n    '        loc = {''Latitude'': event.lngLat.lat, ''Longitude'': event.lngLat.lng};' + LB +\r\n    '        mouseLatLng = loc;' + LB +\r\n    '      }' + LB +\r\n    '      if (event.point){' + LB +\r\n    '        x = event.point.x;' + LB +\r\n    '        y = event.point.y;' + LB +\r\n    '      }' + LB +\r\n    '    }' + LB +\r\n    '  }' + LB +\r\n\r\n    '  var r = {''Coordinate'': loc, ''X'': x, ''Y'': y, ''ID'': id, ''EventName'': eventname};' + LB +\r\n    '  return r;' + LB +\r\n    '}' + LB + LB +\r\n\r\n    'function MapMoveStart(event){' + LB +\r\n    '  if (activeElement){' + LB +\r\n    '    activeElement = null;' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMoveStart\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapMoveEnd(event){' + LB +\r\n    '  if (activeElement){' + LB +\r\n    '    activeElement = null;' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMoveEnd\"));' + LB +\r\n    '}' + LB + LB +\r\n\r\n    'function MapClick(event){' + LB +\r\n    '  if (activeElement){' + LB +\r\n    '    activeElement = null;' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapClick\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapDblClick(event){' + LB +\r\n    '  if (activeElement){' + LB +\r\n    '    activeElement = null;' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapDblClick\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapMouseDown(event){' + LB +\r\n    '  if (activeElement){' + LB +\r\n    '    activeElement = null;' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseDown\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapMouseUp(event){' + LB +\r\n    '  if (activeElement){' + LB +\r\n    '    activeElement = null;' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseUp\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapMouseLeave(event){' + LB +\r\n    '  if (activeElement){' + LB +\r\n    '    activeElement = null;' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseLeave\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapMouseEnter(event){' + LB +\r\n    '  if (activeElement){' + LB +\r\n    '    activeElement = null;' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMousEnter\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapMouseMove(event){' + LB +\r\n    '  if (activeElement){' + LB +\r\n    '    activeElement = null;' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseMove\"));' + LB +\r\n    '}';\r\nend;\r\n\r\nprocedure TTMSFNCMapsTomTom.GetHeadLinks(const AList: TTMSFNCMapsLinksList);\r\nbegin\r\n  AList.Add(TTMSFNCMapsLink.CreateLink(TOMTOMAPIURL + TOMTOMAPIVERSION +'/maps/maps.css', 'text/css', 'stylesheet'));\r\n  AList.Add(TTMSFNCMapsLink.CreateScript(TOMTOMAPIURL + TOMTOMAPIVERSION + '/maps/maps-web.min.js'));\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetHeadStyle: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetIdentifier: string;\r\nbegin\r\n  Result := 'TomTom';\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetInitializeCoordinateArray: string;\r\nbegin\r\n  Result := '[]';\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetInitializeHolesArray: string;\r\nbegin\r\n  Result := '[]';\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetInitializeEvents: string;\r\nbegin\r\n  Result :=\r\n  '  ' + MAPVAR + '.on(''zoomend'', function(){' + LB +\r\n  '    console.log(\"zoom changed\");'+\r\n  '    ' + GETSENDEVENT + '(parseEvent(null, \"ZoomChanged\"));' + LB +\r\n  '  })' + LB + LB +\r\n//  '  ' + MAPVAR + '.on(''maptypeid_changed'', function(){' + LB +\r\n//  '    ' + GETSENDEVENT + '(parseEvent(null, \"MapTypeChanged\"));' + LB +\r\n//  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.off(''movestart'', MapMoveStart);' + LB +\r\n  '  ' + MAPVAR + '.on(''movestart'', MapMoveStart);' + LB +\r\n  '  ' + MAPVAR + '.off(''moveend'', MapMoveEnd);' + LB +\r\n  '  ' + MAPVAR + '.on(''moveend'', MapMoveEnd);' + LB +\r\n  '  ' + MAPVAR + '.off(''click'', MapClick);' + LB +\r\n  '  ' + MAPVAR + '.on(''click'', MapClick);' + LB +\r\n  '  ' + MAPVAR + '.off(''dblclick'', MapDblClick);' + LB +\r\n  '  ' + MAPVAR + '.on(''dblclick'', MapDblClick);' + LB +\r\n  '  ' + MAPVAR + '.off(''mouseup'', MapMouseUp);' + LB +\r\n  '  ' + MAPVAR + '.on(''mouseup'', MapMouseUp);' + LB +\r\n  '  ' + MAPVAR + '.off(''mousedown'', MapMouseDown);' + LB +\r\n  '  ' + MAPVAR + '.on(''mousedown'', MapMouseDown);' + LB +\r\n  '  ' + MAPVAR + '.off(''mouseout'', MapMouseLeave);' + LB +\r\n  '  ' + MAPVAR + '.on(''mouseout'', MapMouseLeave);' + LB +\r\n  '  ' + MAPVAR + '.off(''mouseover'', MapMouseEnter);' + LB +\r\n  '  ' + MAPVAR + '.on(''mouseover'', MapMouseEnter);' + LB +\r\n  '  ' + MAPVAR + '.off(''mousemove'', MapMouseMove);' + LB +\r\n  '  ' + MAPVAR + '.on(''mousemove'', MapMouseMove);';\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetInitializeMap: string;\r\nvar\r\n  v: string;\r\nbegin\r\n  v := MAPSERVICEVAR;\r\n  Result :=\r\n    '  ' + MAPVAR + ' = ' + v + '.map({' + LB +\r\n    '    key: \"' + MapsProperties.GetAPIKey + '\",' + LB +\r\n    '    container: \"' + MAPID + '\",' + LB +\r\n    '    style: \"' + TOMTOMMAPSTYLE + '\",' + LB +\r\n    '    center: [' + MapsProperties.GetDefaultLongitude + ', ' + MapsProperties.GetDefaultLatitude +'],' + LB +\r\n    '    zoom: ' + MapsProperties.GetDefaultZoomLevel  + LB +\r\n    '  });' + LB + LB;\r\n\r\n    Result := Result + '  ' + MAPZOOMCONTROLVAR + ' = new ' + MAPSERVICEVAR + '.NavigationControl();' + LB;\r\n\r\n    if MapsProperties.GetShowZoomControl then\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPVAR + '.addControl(' + MAPZOOMCONTROLVAR + ');' + LB +\r\n      '  ' + MAPCONTROLARRAYVAR + '.push(' + MAPZOOMCONTROLVAR + ');' + LB + LB;\r\n    end;\r\n\r\n    if MapsProperties.GetZoomOnDblClick then\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPVAR + '.doubleClickZoom.enable();' + LB + LB;\r\n    end\r\n    else\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPVAR + '.doubleClickZoom.disable();' + LB + LB;\r\n    end;\r\n\r\n    if MapsProperties.GetZoomOnWheelScroll then\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPVAR + '.scrollZoom.enable();' + LB + LB;\r\n    end\r\n    else\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPVAR + '.scrollZoom.disable();' + LB + LB;\r\n    end;\r\n\r\n    if MapsProperties.GetPanning then\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPVAR + '.dragPan.enable();' + LB + LB;\r\n    end\r\n    else\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPVAR + '.dragPan.disable();' + LB + LB;\r\n    end;\r\n\r\n  Result := Result + '  ' + MAPVAR + '.setLanguage(''' + MapsProperties.GetLocale + ''');';\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetMapsServiceCheck: string;\r\nbegin\r\n  Result := '!' + MAPSERVICEVAR;\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetResetMap: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetSetCenterCoordinate: string;\r\nbegin\r\n  Result := '  ' + MAPVAR + '.flyTo({duration: 0, center: [' + PARAMSNAME + '[\"Longitude\"],' + PARAMSNAME + '[\"Latitude\"]]});';\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetSetZoomLevel: string;\r\nbegin\r\n  Result := '  ' + MAPVAR + '.setZoom(' + PARAMSNAME + ');';\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetShowPopup: string;\r\nbegin\r\n  Result :=\r\n    '  var loc = [' + PARAMSNAME + '[\"Longitude\"], ' + PARAMSNAME + '[\"Latitude\"]]' + LB +\r\n    POPUPVAR + ' = new ' + MAPSERVICEVAR + '.Popup({ closeOnClick: true, maxWidth: \"none\", offset: [' + PARAMSNAME + '[\"OffsetX\"], ' + PARAMSNAME + '[\"OffsetY\"]]}).setLngLat(loc).setHTML(' + PARAMSNAME + '[\"Text\"]).addTo(' + MAPVAR + ');';\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetUpdateOptions: string;\r\nbegin\r\n  Result := Result +\r\n    '  ' + MAPCONTROLARRAYVAR + '.forEach(removeElement);' + LB +\r\n    '  function removeElement(value){' + LB +\r\n    '    ' + MAPVAR + '.removeControl(value);' + LB +\r\n    '  }' + LB +\r\n    '  ' + MAPCONTROLARRAYVAR + ' = [];' + LB + LB;\r\n\r\n  Result := Result +\r\n    '  if (' + PARAMSNAME + '[\"ShowZoomControl\"]){' + LB +\r\n    '    ' + MAPVAR + '.addControl(' + MAPZOOMCONTROLVAR + ');' + LB +\r\n    '    ' + MAPCONTROLARRAYVAR + '.push(' + MAPZOOMCONTROLVAR + ');' + LB +\r\n    '  }' + LB + LB;\r\n\r\n  Result := Result +\r\n    '  if (' + PARAMSNAME + '[\"ZoomOnDblClick\"]){' + LB +\r\n    '    ' + MAPVAR + '.doubleClickZoom.enable();' + LB +\r\n    '  }' + LB +\r\n    '  else{' + LB +\r\n    '    ' + MAPVAR + '.doubleClickZoom.disable();' + LB +\r\n    '  }' + LB + LB;\r\n\r\n  Result := Result +\r\n    '  if (' + PARAMSNAME + '[\"ZoomOnWheelScroll\"]){' + LB +\r\n    '    ' + MAPVAR + '.scrollZoom.enable();' + LB +\r\n    '  }' + LB +\r\n    '  else{' + LB +\r\n    '    ' + MAPVAR + '.scrollZoom.disable();' + LB +\r\n    '  }' + LB + LB;\r\n\r\n  Result := Result +\r\n    '  if (' + PARAMSNAME + '[\"Panning\"]){' + LB +\r\n    '    ' + MAPVAR + '.dragPan.enable();' + LB +\r\n    '  }' + LB +\r\n    '  else{' + LB +\r\n    '    ' + MAPVAR + '.dragPan.disable();' + LB +\r\n    '  }' + LB + LB;\r\n\r\n  Result := Result + '  ' + MAPVAR + '.setLanguage('''' + ' + PARAMSNAME + '[\"Locale\"] + '''');';\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.GetZoomToBounds: string;\r\nbegin\r\n  Result :=\r\n    '  var sw = [' + PARAMSNAME + '[\"SouthWest\"][\"Longitude\"], ' + PARAMSNAME + '[\"SouthWest\"][\"Latitude\"]];' + LB +\r\n    '  var ne = [' + PARAMSNAME + '[\"NorthEast\"][\"Longitude\"], ' + PARAMSNAME + '[\"NorthEast\"][\"Latitude\"]];' + LB +\r\n    '  ' + MAPVAR + '.fitBounds([sw, ne], {duration: 0});';\r\nend;\r\n\r\nfunction TTMSFNCMapsTomTom.IsValid: Boolean;\r\nbegin\r\n  Result := (MapsProperties.GetAPIKey <> '');\r\nend;\r\n\r\nprocedure TTMSFNCMapsTomTom.RemoveScripts;\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  asm\r\n    if (window.tt){\r\n      window.tt = undefined;\r\n    }\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCMaps.AzureMaps;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nprocedure RegisterAzureMapsService;\r\nprocedure UnRegisterAzureMapsService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCMaps, WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCMapsAzureMapsService = class;\r\n\r\n  TTMSFNCMapsAzureMapsFactoryService = class(TTMSFNCMapsFactoryService, ITMSFNCMapsServiceAzureMaps);\r\n\r\n  TTMSFNCMapsAzureMapsService = class(TTMSFNCMapsAzureMapsFactoryService)\r\n  protected\r\n    function DoCreateMaps: ITMSFNCCustomMaps; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCMapsAzureMaps = class;\r\n\r\n  TTMSFNCMapsAzureMaps = class(TTMSFNCCustomMapsInterfacedObject, ITMSFNCCustomMaps)\r\n  protected\r\n    procedure GetHeadLinks(const AList: TTMSFNCMapsLinksList);\r\n    procedure RemoveScripts;\r\n    function GetResetMap: string;\r\n    function GetShowPopup: string;\r\n    function GetClosePopup: string;\r\n    function GetHeadStyle: string;\r\n    function GetDelayLoadEvent: string;\r\n    function GetMapsServiceCheck: string;\r\n    function GetIdentifier: string;\r\n    function GetInitializeMap: string;\r\n    function GetInitializeEvents: string;\r\n    function GetAddOrUpdateMarker: string;\r\n    function GetDeleteMarker: string;\r\n    function GetAddOrUpdatePolyElement: string;\r\n    function GetDeletePolyElement: string;\r\n    function GetZoomToBounds: string;\r\n    function GetGetBounds: string;\r\n    function GetSetCenterCoordinate: string;\r\n    function GetSetZoomLevel: string;\r\n    function GetLatLonToXY: string;\r\n    function GetXYToLatLon: string;\r\n    function GetGetCenterCoordinate: string;\r\n    function GetGetZoomLevel: string;\r\n    function GetUpdateOptions: string;\r\n    function GetGlobalVariables: string;\r\n    function GetAddCoordinateToArray: string;\r\n    function GetAddHoleToArray: string;\r\n    function GetInitializeCoordinateArray: string;\r\n    function GetInitializeHolesArray: string;\r\n    function IsValid: Boolean;\r\n    procedure DestroyMaps;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  MapsService: ITMSFNCMapsServiceAzureMaps;\r\n\r\nconst\r\n  AZUREMAPSAPIVERSION = '3';\r\n  AZUREMAPSAPIURL = 'https://atlas.microsoft.com/sdk/javascript/mapcontrol/';\r\n  MAPSERVICEVAR = 'window.atlas';\r\n  MAPZOOMCONTROLVAR = 'mapZoomControl';\r\n  MAPMAPTYPECONTROLVAR = 'mapMapTypeControl';\r\n  MAPCONTROLARRAYVAR = 'mapControls';\r\n\r\nprocedure RegisterAzureMapsService;\r\nbegin\r\n  if not TTMSFNCMapsPlatformServices.Current.SupportsPlatformService(ITMSFNCMapsServiceAzureMaps, IInterface(MapsService)) then\r\n  begin\r\n    MapsService := TTMSFNCMapsAzureMapsService.Create;\r\n    TTMSFNCMapsPlatformServices.Current.AddPlatformService(ITMSFNCMapsServiceAzureMaps, MapsService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterAzureMapsService;\r\nbegin\r\n  TTMSFNCMapsPlatformServices.Current.RemovePlatformService(ITMSFNCMapsServiceAzureMaps);\r\nend;\r\n\r\n{ TTMSFNCMapsAzureMapsService }\r\n\r\nfunction TTMSFNCMapsAzureMapsService.DoCreateMaps: ITMSFNCCustomMaps;\r\nbegin\r\n  Result := TTMSFNCMapsAzureMaps.Create;\r\nend;\r\n\r\nconstructor TTMSFNCMapsAzureMaps.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCMapsAzureMaps.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCMapsAzureMaps.DestroyMaps;\r\nbegin\r\n  MapsService.DestroyMaps(Self);\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetAddCoordinateToArray: string;\r\nbegin\r\n  Result := '  ' + COORDINATEARRAYVAR + '.push([' + PARAMSNAME + '[\"Longitude\"],' + PARAMSNAME + '[\"Latitude\"]]);';\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetAddHoleToArray: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetAddOrUpdateMarker: string;\r\nbegin\r\n  Result :=\r\n    '  var popupTemplate = ''<div style=\"padding:10px\">{title}</div>'';' + LB +\r\n    '  var options = {' + LB +\r\n    '    visible: ' + PARAMSNAME + '[\"Visible\"],' + LB +\r\n    '    position: new ' + MAPSERVICEVAR + '.data.Position(' + PARAMSNAME + '[\"Longitude\"], ' + PARAMSNAME + '[\"Latitude\"]),' + LB +\r\n    '    popup: new ' + MAPSERVICEVAR + '.Popup({' + LB +\r\n    '      content: popupTemplate.replace(/{title}/g, ' + PARAMSNAME + '[\"Title\"]),' + LB +\r\n    '      pixelOffset: [0, -30]' + LB +\r\n    '    }),' + LB +\r\n    '  }' + LB +\r\n\r\n    '  var markericon = ' + CUSTOMDEFAULTMARKERICON + '(' +\r\n      PARAMSNAME + '[\"DefaultIcon\"],' + LB +\r\n      PARAMSNAME + '[\"IconURL\"]);' + LB +\r\n\r\n    '  if (markericon != \"\"){' + LB +\r\n    '    mimg = document.createElement(''img'');' +\r\n    '    mimg.src = markericon;' +\r\n    '    options.htmlContent = mimg;' + LB +\r\n//    '    options.htmlContent = ''<img src='' + ' + PARAMSNAME + '[\"IconURL\"] + ''></img>''' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  if (!' + MARKERVAR + '){' + LB +\r\n    '    ' + MARKERVAR + ' = new ' + MAPSERVICEVAR + '.HtmlMarker(options);' + LB +\r\n    '    ' + MAPVAR + '.events.add(''click'',' + MARKERVAR + ', function(event){' + LB +\r\n    '      if (' + PARAMSNAME + '[\"Title\"]){' + LB +\r\n    '        ' + MARKERVAR + '.togglePopup();' + LB +\r\n    '      }' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MAPVAR + '.events.add(''dblclick'',' + MARKERVAR + ', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerDblClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MAPVAR + '.events.add(''mouseup'',' + MARKERVAR + ', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseUp\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MAPVAR + '.events.add(''mousedown'',' + MARKERVAR + ', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseDown\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MAPVAR + '.events.add(''mouseleave'',' + MARKERVAR + ', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseLeave\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MAPVAR + '.events.add(''mouseover'',' + MARKERVAR + ', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseEnter\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MAPVAR + '.markers.add(' + MARKERVAR + ');' + LB +\r\n    '  }else{' + LB +\r\n    '    ' +  MARKERVAR + '.setOptions(options);' + LB +\r\n    '  }';\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetAddOrUpdatePolyElement: string;\r\nbegin\r\n  Result :=\r\n    '  var c = ' + PARAMSNAME + '[\"$type\"];' + LB +\r\n    '  var co = [];' + LB +\r\n    '  var pgo, plo;' + LB + LB +\r\n\r\n    '  switch(c){' + LB +\r\n    '    case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '      co.push([' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Longitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Latitude\"]]);' + LB +\r\n    '      co.push([' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Longitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Latitude\"]]);' + LB +\r\n    '      co.push([' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Longitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Latitude\"]]);' + LB +\r\n    '      co.push([' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Longitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Latitude\"]]);' + LB +\r\n    '      co.push([' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Longitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Latitude\"]]);' + LB +\r\n    '    break;' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  switch(c){' + LB +\r\n    '    case \"TTMSFNCMapsPolygon\":' + LB +\r\n    '    case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '    case \"TTMSFNCMapsCircle\":' + LB +\r\n    '      pgo = {' + LB +\r\n    '        visible: ' + PARAMSNAME + '[\"Visible\"],' + LB +\r\n    '        fillColor: toRGBA(' + PARAMSNAME + '[\"FillColor\"], ' + PARAMSNAME + '[\"FillOpacity\"])' + LB +\r\n    '      }' + LB +\r\n    '    case \"TTMSFNCMapsPolyline\":' + LB +\r\n    '      plo = {' + LB +\r\n    '        visible: ' + PARAMSNAME + '[\"Visible\"],' + LB +\r\n    '        strokeColor: toRGBA(' + PARAMSNAME + '[\"StrokeColor\"], ' + PARAMSNAME + '[\"StrokeOpacity\"]),' + LB +\r\n    '        strokeWidth: ' + PARAMSNAME + '[\"StrokeWidth\"]' + LB +\r\n    '      }' + LB +\r\n    '    break;' + LB +\r\n    '    }' + LB + LB +\r\n\r\n    '  if (!' + POLYELEMENTVAR + '){' + LB +\r\n    '    ' + POLYELEMENTVAR + ' = new ' + MAPSERVICEVAR + '.source.DataSource();' + LB +\r\n    '    ' + MAPVAR + '.sources.add(' + POLYELEMENTVAR + ');' + LB +\r\n\r\n    '    switch(c){' + LB +\r\n    '      case \"TTMSFNCMapsPolyline\":' + LB +\r\n    '      ' + POLYELEMENTVAR + '.add(new ' + MAPSERVICEVAR + '.data.LineString(' + COORDINATEARRAYVAR + '));' + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCMapsCircle\":' + LB +\r\n    '      ' + POLYELEMENTVAR + '.add(new ' + MAPSERVICEVAR + '.data.Feature(new ' + MAPSERVICEVAR + '.data.Point([' + PARAMSNAME + '[\"Center\"][\"Longitude\"], ' + PARAMSNAME + '[\"Center\"][\"Latitude\"]]), {subType: \"Circle\", radius: ' + PARAMSNAME + '[\"Radius\"]}));' + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCMapsPolygon\":' + LB +\r\n    '      ' + POLYELEMENTVAR + '.add(new ' + MAPSERVICEVAR + '.data.Polygon([' + COORDINATEARRAYVAR + ']));' + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '      ' + POLYELEMENTVAR + '.add(new ' + MAPSERVICEVAR + '.data.Polygon([co]));' + LB +\r\n    '      break;' + LB +\r\n    '    }' + LB +\r\n\r\n    '    switch(c){' + LB +\r\n    '      case \"TTMSFNCMapsCircle\":' + LB +\r\n    '      case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '      case \"TTMSFNCMapsPolygon\":' + LB +\r\n    '      var pg = new ' + MAPSERVICEVAR + '.layer.PolygonLayer(' + POLYELEMENTVAR + ', ' + PARAMSNAME + '[\"ID\"] + \"_polygon\", pgo);' + LB +\r\n    '      var pl = new ' + MAPSERVICEVAR + '.layer.LineLayer(' + POLYELEMENTVAR + ', ' + PARAMSNAME + '[\"ID\"] + \"_polyline\", plo);' + LB +\r\n    '      ' + MAPVAR + '.layers.add(pg);' + LB +\r\n    '      case \"TTMSFNCMapsPolyline\":' + LB +\r\n    '      var pl = new ' + MAPSERVICEVAR + '.layer.LineLayer(' + POLYELEMENTVAR + ', ' + PARAMSNAME + '[\"ID\"] + \"_polyline\", plo);' + LB +\r\n    '      ' + MAPVAR + '.layers.add(pl);' + LB +\r\n    '      break;' + LB +\r\n    '    }' + LB +\r\n\r\n    '    if (pg) {' + LB +\r\n    '      ' + MAPVAR + '.events.add(''click'', pg, function(event){' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.events.add(''dblclick'', pg, function(event){' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementDblClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.events.add(''mouseup'', pg, function(event){' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseUp\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.events.add(''mousedown'', pg, function(event){' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseDown\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.events.add(''mouseleave'', pg, function(event){' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseLeave\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.events.add(''mouseover'', pg, function(event){' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseEnter\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB +\r\n    '    }' + LB + LB +\r\n\r\n    '    if (pl && !pg) {' + LB +\r\n    '      ' + MAPVAR + '.events.add(''click'', pl, function(event){' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.events.add(''dblclick'', pl, function(event){' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementDblClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.events.add(''mouseup'', pl, function(event){' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseUp\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.events.add(''mousedown'', pl, function(event){' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseDown\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.events.add(''mouseleave'', pl, function(event){' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseLeave\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.events.add(''mouseover'', pl, function(event){' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseEnter\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB +\r\n    '    }' + LB + LB +\r\n\r\n    '  }else{' + LB +\r\n    '    ' + POLYELEMENTVAR + '.clear();' + LB +\r\n    '    switch(c){' + LB +\r\n    '      case \"TTMSFNCMapsPolyline\":' + LB +\r\n    '      ' + POLYELEMENTVAR + '.add(new ' + MAPSERVICEVAR + '.data.LineString(' + COORDINATEARRAYVAR + '));' + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCMapsCircle\":' + LB +\r\n    '      ' + POLYELEMENTVAR + '.add(new ' + MAPSERVICEVAR + '.data.Feature(new ' + MAPSERVICEVAR + '.data.Point([' + PARAMSNAME + '[\"Center\"][\"Longitude\"], ' + PARAMSNAME + '[\"Center\"][\"Latitude\"]]), {subType: \"Circle\", radius: ' + PARAMSNAME + '[\"Radius\"]}));' + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCMapsPolygon\":' + LB +\r\n    '      ' + POLYELEMENTVAR + '.add(new ' + MAPSERVICEVAR + '.data.Polygon([' + COORDINATEARRAYVAR + ']));' + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '      ' + POLYELEMENTVAR + '.add(new ' + MAPSERVICEVAR + '.data.Polygon([co]));' + LB +\r\n    '      break;' + LB +\r\n    '    }' + LB +\r\n    '    var pl = ' + MAPVAR + '.layers.getLayerById(' + PARAMSNAME + '[\"ID\"] + \"_polyline\");' + LB +\r\n    '    var pg = ' + MAPVAR + '.layers.getLayerById(' + PARAMSNAME + '[\"ID\"] + \"_polygon\");' + LB +\r\n    '    if (pl) {' + LB +\r\n    '      pl.setOptions(plo);' + LB +\r\n    '    }' + LB +\r\n    '    if (pg) {' + LB +\r\n    '      pg.setOptions(pgo);' + LB +\r\n    '    }' + LB +\r\n    '  }';\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetClosePopup: string;\r\nbegin\r\n  Result := '  ' + POPUPVAR + '.remove();' + LB +\r\n            '  ' + POPUPVAR + ' = null;';\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetDelayLoadEvent: string;\r\nbegin\r\n  Result := '  ' + MAPVAR + '.events.add(''ready'', function () {';\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetDeleteMarker: string;\r\nbegin\r\n  Result := '  ' + MAPVAR + '.markers.remove(' + MARKERVAR + ');';\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetDeletePolyElement: string;\r\nbegin\r\n  Result :=\r\n    '  var pl = ' + MAPVAR + '.layers.getLayerById(' + PARAMSNAME + '[\"ID\"] + \"_polyline\");' + LB +\r\n    '  var pg = ' + MAPVAR + '.layers.getLayerById(' + PARAMSNAME + '[\"ID\"] + \"_polygon\");' + LB +\r\n    '  var s = ' + MAPVAR + '.sources.getById(' + PARAMSNAME + '[\"ID\"]);' + LB +\r\n    '  if (pl) {' + LB +\r\n    '    ' + MAPVAR + '.layers.remove(' + PARAMSNAME + '[\"ID\"] + \"_polyline\");' + LB +\r\n    '  }' + LB +\r\n    '  if (pg) {' + LB +\r\n    '    ' + MAPVAR + '.layers.remove(' + PARAMSNAME + '[\"ID\"] + \"_polygon\");' + LB +\r\n    '  }' + LB +\r\n    '  if (s) {' + LB +\r\n    '    ' + MAPVAR + '.sources.remove(' + PARAMSNAME + '[\"ID\"]);' + LB +\r\n    '  }';\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetGetBounds: string;\r\nbegin\r\n  Result :=\r\n    '  var loc = ' + MAPVAR + '.getCamera().bounds;' + LB +\r\n    '  jsonObj[\"NorthEast\"][\"Latitude\"] = loc[1];' + LB +\r\n    '  jsonObj[\"NorthEast\"][\"Longitude\"] = loc[0];' + LB +\r\n    '  jsonObj[\"SouthWest\"][\"Latitude\"] = loc[3];' + LB +\r\n    '  jsonObj[\"SouthWest\"][\"Longitude\"] = loc[2];';\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetGetCenterCoordinate: string;\r\nbegin\r\n  Result :=\r\n    '  var loc = ' + MAPVAR + '.getCamera().center;' + LB +\r\n    '  jsonObj[\"Latitude\"] = loc[1];' + LB +\r\n    '  jsonObj[\"Longitude\"] = loc[0];';\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetLatLonToXY: string;\r\nbegin\r\n  Result :=\r\n    '  var pos = [parseFloat(' + PARAMSNAME + '[\"Longitude\"]), parseFloat(' + PARAMSNAME + '[\"Latitude\"])];' + LB +\r\n\r\n    '  var ts = 512;' + LB +\r\n    '  var zo = ' + MAPVAR + '.getCamera().zoom;' + LB +\r\n    '  var MinLatitude = -85.05112878;' + LB +\r\n    '  var MaxLatitude = 85.05112878;' + LB +\r\n    '  var MinLongitude = -180;' + LB +\r\n    '  var MaxLongitude = 180;' + LB +\r\n\r\n    '  function Clip(n, minValue, maxValue) {' + LB +\r\n    '    return Math.min(Math.max(n, minValue), maxValue);' + LB +\r\n    '  }' + LB +\r\n\r\n    '  function MapSize(zoom, tileSize) {' + LB +\r\n    '    return Math.ceil(tileSize * Math.pow(2, zoom));' + LB +\r\n    '  }' + LB +\r\n\r\n    '  function PositionToGlobalPixel(position, zoom, tileSize) {' + LB +\r\n\r\n    '    var latitude = Clip(position[1], MinLatitude, MaxLatitude);' + LB +\r\n    '    var longitude = Clip(position[0], MinLongitude, MaxLongitude);' + LB +\r\n\r\n    '    var x = (longitude + 180) / 360;' + LB +\r\n    '    var sinLatitude = Math.sin(latitude * Math.PI / 180);' + LB +\r\n    '    var y = 0.5 - Math.log((1 + sinLatitude) / (1 - sinLatitude)) / (4 * Math.PI);' + LB +\r\n\r\n    '    var ms = MapSize(zoom, tileSize);' + LB +\r\n\r\n    '    return [' + LB +\r\n    '       Clip(x * ms + 0.5, 0, ms - 1),' + LB +\r\n    '       Clip(y * ms + 0.5, 0, ms - 1)' + LB +\r\n    '    ];' + LB +\r\n    '  }' + LB +\r\n\r\n    '  var centerPixel = PositionToGlobalPixel(' + MAPVAR + '.getCamera().center, zo, ts);' + LB +\r\n\r\n    '  var w = ' + MAPVAR + '.getCanvas().offsetWidth;' + LB +\r\n    '  var h = ' + MAPVAR + '.getCanvas().offsetHeight;' + LB +\r\n\r\n    '  var topLeftPixel = [' + LB +\r\n    '     centerPixel[0] - w / 2,' + LB +\r\n    '     centerPixel[1] - h / 2' + LB +\r\n    '  ];' + LB +\r\n\r\n    '  var transform = (position) => {' + LB +\r\n    '      var pixel = PositionToGlobalPixel(position, zo, ts);' + LB +\r\n\r\n    '      pixel[0] -= topLeftPixel[0];' + LB +\r\n    '      pixel[1] -= topLeftPixel[1];' + LB +\r\n\r\n    '      return pixel;' + LB +\r\n    '  };' + LB +\r\n\r\n    '  var pixel = transform(pos);' + LB +\r\n\r\n    '  jsonObj[\"X\"] = parseFloat(pixel[0]);' + LB +\r\n    '  jsonObj[\"Y\"] = parseFloat(pixel[1]);';\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetXYToLatLon: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetGetZoomLevel: string;\r\nbegin\r\n  Result := '  var z = ' + MAPVAR + '.getCamera().zoom;';\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetGlobalVariables: string;\r\nbegin\r\n  Result :=\r\n    'var ' + MAPZOOMCONTROLVAR + ';' + LB +\r\n    'var ' + MAPMAPTYPECONTROLVAR + ';' + LB +\r\n    'var ' + MAPCONTROLARRAYVAR + ' = [];' + LB +\r\n    'function parseEvent(event, eventname, id = ''''){' + LB +\r\n    '  var loc = {''Latitude'': 0, ''Longitude'': 0};' + LB +\r\n    '  var x = 0.0;' + LB +\r\n    '  var y = 0.0;' + LB +\r\n    '  if ((eventname == \"MapMoveStart\") || (eventname == \"MapMoveEnd\")){ ' +\r\n    '    var centerpt = ' + MAPVAR + '.getCamera().center;' + LB +\r\n    '    loc = {''Latitude'': centerpt[1], ''Longitude'': centerpt[0]};' + LB +\r\n    '  } else if (event) {' + LB +\r\n    '    if (event.position){' + LB +\r\n    '      loc = {''Latitude'': event.position[1], ''Longitude'': event.position[0]};' + LB +\r\n    '    }' + LB +\r\n    '    if (event.pixel){' + LB +\r\n    '      x = event.pixel[0];' + LB +\r\n    '      y = event.pixel[1];' + LB +\r\n    '    }' + LB +\r\n    '  }' + LB +\r\n\r\n    '  var r = {''Coordinate'': loc, ''X'': x, ''Y'': y, ''ID'': id, ''EventName'': eventname};' + LB +\r\n    '  return r;' + LB +\r\n    '}';\r\nend;\r\n\r\nprocedure TTMSFNCMapsAzureMaps.GetHeadLinks(\r\n  const AList: TTMSFNCMapsLinksList);\r\nbegin\r\n  AList.Add(TTMSFNCMapsLink.CreateLink(AZUREMAPSAPIURL + AZUREMAPSAPIVERSION +'/atlas.min.css', 'text/css', 'stylesheet'));\r\n  AList.Add(TTMSFNCMapsLink.CreateScript(AZUREMAPSAPIURL + AZUREMAPSAPIVERSION + '/atlas.min.js'));\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetHeadStyle: string;\r\nbegin\r\n  Result :=\r\n    '.customInfobox {' + LB +\r\n    '  white-space:normal;' + LB +\r\n    '  padding: 10px;' + LB +\r\n    '}';\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetIdentifier: string;\r\nbegin\r\n  Result := 'Azure Maps';\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetInitializeCoordinateArray: string;\r\nbegin\r\n  Result := '[]';\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetInitializeHolesArray: string;\r\nbegin\r\n  Result := '[]';\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetInitializeEvents: string;\r\nbegin\r\n  Result :=\r\n  '  ' + MAPVAR + '.events.add(''error'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"Error\", event.error.message));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.events.add(''zoom'', function(){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(null, \"ZoomChanged\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.events.add(''styledata'', function(){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(null, \"MapTypeChanged\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.events.add(''dragstart'', function(event){' + LB +\r\n  '    if (event.originalEvent.target.tagName == \"CANVAS\")' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMoveStart\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.events.add(''dragend'', function(event){' + LB +\r\n  '    if (event.originalEvent.target.tagName == \"CANVAS\")' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMoveEnd\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.events.add(''click'', function(event){' + LB +\r\n  '    if (event.originalEvent.target.tagName == \"CANVAS\" && ((event.shapes.length > 0 && event.shapes[0].constructor.name == \"gc\") || event.shapes.length == 0))' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapClick\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.events.add(''dblclick'', function(event){' + LB +\r\n  '    if (event.originalEvent.target.tagName == \"CANVAS\" && ((event.shapes.length > 0 && event.shapes[0].constructor.name == \"gc\") || event.shapes.length == 0))' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapDblClick\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.events.add(''mouseup'', function(event){' + LB +\r\n  '    if (event.originalEvent.target.tagName == \"CANVAS\" && ((event.shapes.length > 0 && event.shapes[0].constructor.name == \"gc\") || event.shapes.length == 0))' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseUp\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.events.add(''mousedown'', function(event){' + LB +\r\n  '    if (event.originalEvent.target.tagName == \"CANVAS\" && ((event.shapes.length > 0 && event.shapes[0].constructor.name == \"gc\") || event.shapes.length == 0))' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseDown\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.events.add(''mouseleave'', function(event){' + LB +\r\n  '    if (event.originalEvent.target.tagName == \"CANVAS\" && ((event.shapes.length > 0 && event.shapes[0].constructor.name == \"gc\") || event.shapes.length == 0))' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseLeave\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.events.add(''mouseover'', function(event){' + LB +\r\n  '    if (event.originalEvent.target.tagName == \"CANVAS\")' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseEnter\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.events.add(''mousemove'', function(event){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseMove\"));' + LB +\r\n  '  })';\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetInitializeMap: string;\r\nvar\r\n  v: string;\r\nbegin\r\n  v := MAPSERVICEVAR;\r\n  Result :=\r\n    '  ' + MAPVAR + ' = new ' + v + '.Map(\"' + MAPID + '\", {' + LB +\r\n    '    language: ''' + MapsProperties.GetLocale(mlmCountry) + ''',' + LB +\r\n    '    center: [' + MapsProperties.GetDefaultLongitude + ', ' + MapsProperties.GetDefaultLatitude +'],' + LB +\r\n    '    zoom: ' + MapsProperties.GetDefaultZoomLevel + ',' + LB +\r\n    '    authOptions: {' + LB +\r\n    '      authType: \"subscriptionKey\",' + LB +\r\n    '      subscriptionKey: \"' + MapsProperties.GetAPIKey + '\"' + LB +\r\n    '    }' + LB +\r\n    '  });' + LB + LB;\r\n\r\n    Result := Result + '  ' + MAPZOOMCONTROLVAR + ' = new ' + MAPSERVICEVAR + '.control.ZoomControl();' + LB;\r\n    Result := Result + '  ' + MAPMAPTYPECONTROLVAR + ' = new ' + MAPSERVICEVAR + '.control.StyleControl({mapStyles: ''all''});' + LB;\r\n\r\n    if MapsProperties.GetShowZoomControl then\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPVAR + '.controls.add(' + MAPZOOMCONTROLVAR + ', {' + LB +\r\n      '     position: ''bottom-right''' + LB +\r\n      '  });' + LB +\r\n\r\n      '  ' + MAPCONTROLARRAYVAR + '.push(' + MAPZOOMCONTROLVAR + ');' + LB + LB;\r\n    end;\r\n\r\n    if not MapsProperties.GetZoomOnDblClick then\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPVAR + '.setUserInteraction({dblClickZoomInteraction: false})' + LB + LB;\r\n    end;\r\n\r\n    if not MapsProperties.GetPanning then\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPVAR + '.setUserInteraction({dragPanInteraction: false})' + LB + LB;\r\n    end;\r\n\r\n    if not MapsProperties.GetZoomOnWheelScroll then\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPVAR + '.setUserInteraction({scrollZoomInteraction: false})' + LB + LB;\r\n    end;\r\n\r\n    if MapsProperties.GetShowMapTypeControl then\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPVAR + '.controls.add(' + MAPMAPTYPECONTROLVAR + ', {' + LB +\r\n      '     position: ''bottom-right''' + LB +\r\n      '  });' + LB +\r\n\r\n      '  ' + MAPCONTROLARRAYVAR + '.push(' + MAPMAPTYPECONTROLVAR + ');' + LB + LB;\r\n    end;\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetMapsServiceCheck: string;\r\nbegin\r\n  Result := '!' + MAPSERVICEVAR;\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetResetMap: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetSetCenterCoordinate: string;\r\nbegin\r\n  Result :=\r\n  '  ' + MAPVAR + '.setCamera({' + LB +\r\n  '    center: [' + PARAMSNAME + '[\"Longitude\"], ' + PARAMSNAME + '[\"Latitude\"]] ' + LB +\r\n  '  });';\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetSetZoomLevel: string;\r\nbegin\r\n  Result :=\r\n  '  ' + MAPVAR + '.setCamera({' + LB +\r\n  '    zoom: ' + PARAMSNAME + LB +\r\n  '  });';\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetShowPopup: string;\r\nbegin\r\n  Result :=\r\n  '  var popupTemplate = ''<div class=\"customInfobox\">{text}</div>'';' + LB +\r\n  '  ' + POPUPVAR + ' = new ' + MAPSERVICEVAR + '.Popup({' + LB +\r\n  '    pixelOffset: [' + PARAMSNAME + '[\"OffsetX\"], ' + PARAMSNAME + '[\"OffsetY\"]],' + LB +\r\n  '    content: popupTemplate.replace(/{text}/g, ' + PARAMSNAME + '[\"Text\"]),' + LB +\r\n  '    position: new ' + MAPSERVICEVAR + '.data.Position(' + PARAMSNAME + '[\"Longitude\"], ' + PARAMSNAME + '[\"Latitude\"]),' + LB +\r\n  '  });' + LB +\r\n  '  ' + MAPVAR + '.events.add(''close'',' + POPUPVAR + ', function(event){' + LB +\r\n  '    ' + POPUPVAR + '.remove();' + LB +\r\n  '    ' + POPUPVAR + ' = null' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + POPUPVAR + '.open(' + MAPVAR + ');';\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetUpdateOptions: string;\r\nbegin\r\n  Result := Result +\r\n    '  ' + MAPCONTROLARRAYVAR + '.forEach(removeElement);' + LB +\r\n    '  function removeElement(value){' + LB +\r\n    '    ' + MAPVAR + '.controls.remove([value]);' + LB +\r\n    '  }' + LB +\r\n    '  ' + MAPCONTROLARRAYVAR + ' = [];' + LB + LB;\r\n\r\n  Result := Result +\r\n    '  ' + MAPVAR + '.setUserInteraction({dblClickZoomInteraction: ' + PARAMSNAME + '[\"ZoomOnDblClick\"]})' + LB + LB;\r\n\r\n  Result := Result +\r\n    '  ' + MAPVAR + '.setUserInteraction({dragPanInteraction: ' + PARAMSNAME + '[\"Panning\"]})' + LB + LB;\r\n\r\n  Result := Result +\r\n    '  ' + MAPVAR + '.setUserInteraction({scrollZoomInteraction: ' + PARAMSNAME + '[\"ZoomOnWheelScroll\"]})' + LB + LB;\r\n\r\n  Result := Result +\r\n    '  if (' + PARAMSNAME + '[\"ShowZoomControl\"]){' + LB +\r\n    '    ' + MAPVAR + '.controls.add(' + MAPZOOMCONTROLVAR + ', {' + LB +\r\n    '       position: ''bottom-right''' + LB +\r\n    '    });' + LB +\r\n    '    ' + MAPCONTROLARRAYVAR + '.push(' + MAPZOOMCONTROLVAR + ');' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  if (' + PARAMSNAME + '[\"ShowMapTypeControl\"]){' + LB +\r\n    '    ' + MAPVAR + '.controls.add(' + MAPMAPTYPECONTROLVAR + ', {' + LB +\r\n    '       position: ''bottom-right''' + LB +\r\n    '    });' + LB +\r\n    '    ' + MAPCONTROLARRAYVAR + '.push(' + MAPMAPTYPECONTROLVAR + ');' + LB +\r\n    '  }';\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.GetZoomToBounds: string;\r\nbegin\r\n  Result :=\r\n  '  ' + MAPVAR + '.setCamera({' + LB +\r\n  '    bounds: [' + PARAMSNAME + '[\"SouthWest\"][\"Longitude\"], ' + PARAMSNAME + '[\"SouthWest\"][\"Latitude\"] , ' + PARAMSNAME + '[\"NorthEast\"][\"Longitude\"], ' + PARAMSNAME + '[\"NorthEast\"][\"Latitude\"]], ' + LB +\r\n  '    padding: 10' + LB +\r\n  '  });';\r\nend;\r\n\r\nfunction TTMSFNCMapsAzureMaps.IsValid: Boolean;\r\nbegin\r\n  Result := (MapsProperties.GetAPIKey <> '');\r\nend;\r\n\r\nprocedure TTMSFNCMapsAzureMaps.RemoveScripts;\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  asm\r\n    if (window.atlas){\r\n      window.atlas = undefined;\r\n    }\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2024                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCMaps.OpenLayers;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nconst\r\n  OPENLAYERSAPIURL = 'https://cdn.jsdelivr.net/npm/ol@';\r\n\r\n  MAPSERVICEVAR = 'window.ol';\r\n  MAPSOURCEVAR = '.source.OSM()';\r\n\r\n  CLUSTERVAR = 'cluster';\r\n  CLUSTERARRAYVAR = 'clusterarray';\r\n  GETCLUSTERARRAYVAR = 'get' + CLUSTERARRAYVAR + '()';\r\n  ADDORUPDATECLUSTERFUNCTION = 'addOrUpdateCluster';\r\n  DELETECLUSTERFUNCTION = 'deleteCluster';\r\n\r\nprocedure RegisterOpenLayersService;\r\nprocedure UnRegisterOpenLayersService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCMaps, WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCMapsOpenLayersService = class;\r\n\r\n  TTMSFNCMapsOpenLayersFactoryService = class(TTMSFNCMapsFactoryService, ITMSFNCMapsServiceOpenLayers);\r\n\r\n  TTMSFNCMapsOpenLayersService = class(TTMSFNCMapsOpenLayersFactoryService)\r\n  protected\r\n    function DoCreateMaps: ITMSFNCCustomMaps; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCMapsOpenLayers = class;\r\n\r\n  TTMSFNCMapsOpenLayers = class(TTMSFNCCustomMapsInterfacedObject, ITMSFNCCustomMaps)\r\n  protected\r\n    procedure GetHeadLinks(const AList: TTMSFNCMapsLinksList);\r\n    procedure RemoveScripts;\r\n    function GetResetMap: string;\r\n    function GetShowPopup: string;\r\n    function GetClosePopup: string;\r\n    function GetHeadStyle: string;\r\n    function GetDelayLoadEvent: string;\r\n    function GetMapsServiceCheck: string;\r\n    function GetIdentifier: string;\r\n    function GetInitializeMap: string;\r\n    function GetInitializeEvents: string;\r\n    function GetAddOrUpdateMarker: string;\r\n    function GetDeleteMarker: string;\r\n    function GetAddOrUpdatePolyElement: string;\r\n    function GetDeletePolyElement: string;\r\n    function GetZoomToBounds: string;\r\n    function GetGetBounds: string;\r\n    function GetGetCenterCoordinate: string;\r\n    function GetGetZoomLevel: string;\r\n    function GetLatLonToXY: string;\r\n    function GetXYToLatLon: string;\r\n    function GetSetCenterCoordinate: string;\r\n    function GetSetZoomLevel: string;\r\n    function GetUpdateOptions: string;\r\n    function GetGlobalVariables: string;\r\n    function GetAddCoordinateToArray: string;\r\n    function GetAddHoleToArray: string;\r\n    function GetInitializeCoordinateArray: string;\r\n    function GetInitializeHolesArray: string;\r\n    function IsValid: Boolean;\r\n    procedure DestroyMaps;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  MapsService: ITMSFNCMapsServiceOpenLayers;\r\n\r\nconst\r\n  MAPZOOMCONTROLVAR = 'mapZoomControl';\r\n  MAPCONTROLARRAYVAR = 'mapControls';\r\n  MAPDOUBLECLICK = 'mapDoubleClick';\r\n  MAPWHEELZOOM = 'mapWheelZoom';\r\n  MAPPANNING = 'mapPanning';\r\n\r\nprocedure RegisterOpenLayersService;\r\nbegin\r\n  if not TTMSFNCMapsPlatformServices.Current.SupportsPlatformService(ITMSFNCMapsServiceOpenLayers, IInterface(MapsService)) then\r\n  begin\r\n    MapsService := TTMSFNCMapsOpenLayersService.Create;\r\n    TTMSFNCMapsPlatformServices.Current.AddPlatformService(ITMSFNCMapsServiceOpenLayers, MapsService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterOpenLayersService;\r\nbegin\r\n  TTMSFNCMapsPlatformServices.Current.RemovePlatformService(ITMSFNCMapsServiceOpenLayers);\r\nend;\r\n\r\n{ TTMSFNCMapsOpenLayersService }\r\n\r\nfunction TTMSFNCMapsOpenLayersService.DoCreateMaps: ITMSFNCCustomMaps;\r\nbegin\r\n  Result := TTMSFNCMapsOpenLayers.Create;\r\nend;\r\n\r\nconstructor TTMSFNCMapsOpenLayers.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCMapsOpenLayers.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCMapsOpenLayers.DestroyMaps;\r\nbegin\r\n  MapsService.DestroyMaps(Self);\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetAddCoordinateToArray: string;\r\nbegin\r\n  Result := '  ' + COORDINATEARRAYVAR + '.push([' + PARAMSNAME + '[\"Longitude\"],' + PARAMSNAME + '[\"Latitude\"]]);';\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetAddHoleToArray: string;\r\nbegin\r\n  Result := 'var o = ' + HOLEARRAYVAR + '[' + PARAMSNAME + '[0]];' + LB +\r\n            'if (o){' + LB +\r\n            '  ' + HOLEARRAYVAR + '[' + PARAMSNAME + '[0]].push([' + PARAMSNAME + '[1][\"Longitude\"], ' + PARAMSNAME + '[1][\"Latitude\"]]);' + LB +\r\n            '}else{' + LB +\r\n            '  ' + HOLEARRAYVAR + '[' + PARAMSNAME + '[0]] = [[' + PARAMSNAME + '[1][\"Longitude\"], ' + PARAMSNAME + '[1][\"Latitude\"]]];' + LB +\r\n            '}';\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetAddOrUpdateMarker: string;\r\nbegin\r\n  Result :=\r\n    '  var lnlt = ' + MAPSERVICEVAR + '.proj.fromLonLat([' + PARAMSNAME + '[\"Longitude\"], ' + PARAMSNAME + '[\"Latitude\"]]);' + LB +\r\n    '  var loc = new ' + MAPSERVICEVAR + '.geom.Point(lnlt);' + LB +\r\n\r\n    '  var markericon = ' + CUSTOMDEFAULTMARKERICON + '(' +\r\n      PARAMSNAME + '[\"DefaultIcon\"],' + LB +\r\n      PARAMSNAME + '[\"IconURL\"]);' + LB +\r\n    '  var iconStyle;' + LB +\r\n\r\n    '  if (markericon != \"\"){' + LB +\r\n    '    iconStyle = new ' + MAPSERVICEVAR + '.style.Style({' + LB +\r\n    '      image: new ' + MAPSERVICEVAR + '.style.Icon(({' + LB +\r\n    '          anchor: [0.5, 1],' + LB +\r\n    '          src: markericon' + LB +\r\n    '      }))' + LB +\r\n\r\n    '    });' + LB + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  if (!' + MARKERVAR + '){' + LB +\r\n    '    var f = new ' + MAPSERVICEVAR + '.Feature({' + LB +\r\n    '      geometry: loc,' + LB +\r\n    '    })' + LB + LB +\r\n\r\n    '    f.setId(' + PARAMSNAME + '[\"ID\"].toString());' + LB +\r\n\r\n    '    function getFeature(event){' + LB +\r\n    '      var feature = ' + MAPVAR + '.forEachFeatureAtPixel(event.pixel,' + LB +\r\n    '      function(ft) {' + LB +\r\n    '        return ft;' + LB +\r\n    '      }, {' + LB +\r\n    '      layerFilter: function(layer) {' + LB +\r\n    '        var foundlayer = false;' + LB +\r\n    '        foundlayer = layer === ' + MARKERVAR + ';' + LB +\r\n\r\n    '        if (' + CLUSTERARRAYVAR + ') {' + LB +\r\n    '        for (var key in ' + CLUSTERARRAYVAR + ') {' + LB +\r\n    '          if (' + CLUSTERARRAYVAR + '.hasOwnProperty(key)) {' + LB +\r\n    '            if (layer === ' + CLUSTERARRAYVAR + '[key])' + LB +\r\n    '              foundlayer = true;' + LB +\r\n    '          }' + LB +\r\n    '        }' + LB +\r\n    '        }' + LB +\r\n\r\n    '        return foundlayer;' + LB +\r\n    '      }});' + LB +\r\n\r\n    '      if (feature) {' +\r\n    '        clusterfeatures = feature.get(\"features\"); ' + LB +\r\n    '        if (clusterfeatures) {' + LB +\r\n    '          if (clusterfeatures.length == 1){' + LB +\r\n    '            if (clusterfeatures[0] === f)' + LB +\r\n    '            feature = clusterfeatures[0];' + LB +\r\n    '          }' + LB +\r\n    '        }' + LB +\r\n    '      }' +\r\n\r\n    '      return feature;' + LB +\r\n    '    }' + LB + LB +\r\n\r\n    '    var MarkerPopup = null;' + LB + LB +\r\n\r\n    '    var MarkerClick = function(event){' + LB +\r\n    '      var ft = getFeature(event);' + LB +\r\n    '      if (ft === f && !activeMarker) {' + LB +\r\n    '        activeMarker = f;' + LB +\r\n    '        if (' + PARAMSNAME + '[\"Title\"] != \"\" && !MarkerPopup){' + LB +\r\n    '          var el = document.createElement(''div'');' + LB +\r\n    '          var t = ' + PARAMSNAME + '[\"Title\"];' + LB +\r\n    '          el.className = \"ol-popup\"' + LB +\r\n    '          el.innerHTML = ''<a href=\"#\" id=\"popup-closer-marker\" class=\"ol-popup-closer\"></a><div>'' + t + ''</div>''' + LB +\r\n    '          MarkerPopup = new ' + MAPSERVICEVAR + '.Overlay({element: el, offset: [0, -50]});' + LB +\r\n    '          MarkerPopup.setPosition(activeMarker.getGeometry().getCoordinates());' + LB +\r\n    '          ' + MAPVAR + '.addOverlay(MarkerPopup);' + LB +\r\n    '          var closer = document.getElementById(''popup-closer-marker'');' + LB +\r\n    '          closer.onclick = function() {' + LB +\r\n    '            MarkerPopup.setPosition(undefined);' + LB +\r\n    '            MarkerPopup = null;' + LB +\r\n    '            closer.blur();' + LB +\r\n    '            return false;' + LB +\r\n    '          };' + LB +\r\n    '        }' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"MarkerClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      }' + LB +\r\n    '    }' + LB + LB +\r\n    '    ' + MAPVAR + '.on(''click'', MarkerClick);' + LB +\r\n    '    var MarkerRightClick = function(event){' + LB +\r\n    '      var ft = getFeature(event);' + LB +\r\n    '      if (ft === f && !activeMarker) {' + LB +\r\n    '        activeMarker = f;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"MarkerRightClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      }' + LB +\r\n    '    }' + LB + LB +\r\n    '    ' + MAPVAR + '.on(''contextmenu'', MarkerRightClick);' + LB +\r\n    '    var MarkerDblClick = function(event){' + LB +\r\n    '      var ft = getFeature(event);' + LB +\r\n    '      if (ft === f && !activeMarker) {' + LB +\r\n    '        activeMarker = f;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"MarkerDblClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      }' + LB +\r\n    '    }' + LB + LB +\r\n    '    ' + MAPVAR + '.on(''dblclick'', MarkerDblClick);' + LB +\r\n    '    var MarkerMouseUp = function(event){' + LB +\r\n    '      var ft = getFeature(event);' + LB +\r\n    '      if (ft === f && !activeMarker) {' + LB +\r\n    '        activeMarker = f;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseUp\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      }' + LB +\r\n    '    }' + LB + LB +\r\n    '    ' + MAPVAR + '.on(''pointerup'', MarkerMouseUp);' + LB +\r\n    '    var MarkerMouseDown = function(event){' + LB +\r\n    '      var ft = getFeature(event);' + LB +\r\n    '      if (ft === f && !activeMarker) {' + LB +\r\n    '        activeMarker = f;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseDown\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      }' + LB +\r\n    '    }' + LB + LB +\r\n    '    ' + MAPVAR + '.on(''pointerdown'', MarkerMouseDown);' + LB +\r\n    '    var MarkerMouseMove = function(event){' + LB +\r\n    '      var ft = getFeature(event);' + LB +\r\n    '      if (ft && ft === f && ft != hoverFeature) {' + LB +\r\n    '        hoverFeature = ft;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseEnter\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      }' + LB +\r\n    '      else if (ft != hoverFeature && hoverFeature === f){' + LB +\r\n    '        hoverFeature = null;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseLeave\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      }' + LB +\r\n    '    }' + LB + LB +\r\n    '    ' + MAPVAR + '.on(''pointermove'', MarkerMouseMove);' + LB +\r\n\r\n    '    f.setStyle(iconStyle);' + LB +\r\n\r\n    '    var vectorSource = new ' + MAPSERVICEVAR + '.source.Vector({' + LB +\r\n    '      features: [f]' + LB +\r\n    '    });' + LB + LB +\r\n\r\n    '    ' + MARKERVAR + ' = new ' + MAPSERVICEVAR + '.layer.Vector({' + LB +\r\n    '      source: vectorSource, ' + LB +\r\n    '      visible: ' + PARAMSNAME + '[\"Visible\"],' + LB +\r\n    '      zIndex: 999' + LB +\r\n    '    });' + LB + LB +\r\n\r\n    '    if (' + PARAMSNAME + '[\"Draggable\"]) {' + LB +\r\n    '      const t = new ' + MAPSERVICEVAR + '.interaction.Translate({' + LB +\r\n    '         features: new ' + MAPSERVICEVAR + '.Collection([f]),' + LB +\r\n    '      })' + LB +\r\n\r\n    '      t.on(''translatestart'', e => {' + LB +\r\n    '        if (MarkerPopup){' + LB +\r\n    '          MarkerPopup.setPosition(undefined);' + LB +\r\n    '          MarkerPopup = null;' + LB +\r\n    '        }' + LB +\r\n    '      })' + LB +\r\n\r\n    '      t.on(''translateend'', e => {' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(e, \"MarkerDragEnd\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB +\r\n\r\n    '    ' + MAPVAR + '.addInteraction(t);' + LB +\r\n    '    }' + LB + LB +\r\n\r\n    '    ' + MARKERVAR + '.MarkerClick = MarkerClick;' + LB +\r\n    '    ' + MARKERVAR + '.MarkerDblClick = MarkerDblClick;' + LB +\r\n    '    ' + MARKERVAR + '.MarkerMouseUp = MarkerMouseUp;' + LB +\r\n    '    ' + MARKERVAR + '.MarkerMouseDown = MarkerMouseDown;' + LB +\r\n    '    ' + MARKERVAR + '.MarkerMouseMove = MarkerMouseMove;' + LB +\r\n\r\n    '    ' + MAPVAR + '.addLayer(' + MARKERVAR + ');' + LB +\r\n\r\n    '    ' + GetInitializeEvents + LB +\r\n    '  }else{' + LB +\r\n    '    ' + MARKERVAR + '.setVisible(' + PARAMSNAME + '[\"Visible\"]);' + LB +\r\n    '    ' + MARKERVAR + '.getSource().getFeatures()[0].setGeometry(loc);' + LB +\r\n    '    ' + MARKERVAR + '.getSource().getFeatures()[0].setStyle(iconStyle);' + LB +\r\n    '  }';\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetAddOrUpdatePolyElement: string;\r\nbegin\r\n  Result :=\r\n    '  var c = ' + PARAMSNAME + '[\"$type\"];' + LB +\r\n    '  var vectorStyle;' + LB +\r\n    '  var labelstyle = null;' + LB +\r\n    '  var d;' + LB +\r\n    '  var co = [];' + LB +\r\n    '  var spot;' +\r\n\r\n    '  switch(c){' + LB +\r\n    '    case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '    case \"TTMSFNCMapsOpenLayersRectangle\":' + LB +\r\n    '      co.push([' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Longitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Latitude\"]]);' + LB +\r\n    '      co.push([' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Longitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Latitude\"]]);' + LB +\r\n    '      co.push([' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Longitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Latitude\"]]);' + LB +\r\n    '      co.push([' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Longitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Latitude\"]]);' + LB +\r\n    '      co.push([' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Longitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Latitude\"]]);' + LB +\r\n    '    break;' + LB +\r\n    '    case \"TTMSFNCMapsCircle\":' + LB +\r\n    '    case \"TTMSFNCOpenLayersCircle\":' + LB +\r\n    '      co = createCircle(' + PARAMSNAME + '[\"Center\"], ' + PARAMSNAME + '[\"Radius\"], true);' + LB +\r\n    '    break;' + LB +\r\n    '    default:' + LB +\r\n    '      co = ' + COORDINATEARRAYVAR + ';' + LB +\r\n    '    break;' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  switch(c){' + LB +\r\n    '    case \"TTMSFNCMapsPolyline\":' + LB +\r\n    '    case \"TTMSFNCOpenLayersPolyline\":' + LB +\r\n    '    d = new ' + MAPSERVICEVAR + '.geom.LineString(co)' + LB +\r\n    '    break;' + LB +\r\n    '    case \"TTMSFNCMapsCircle\":' + LB +\r\n    '    case \"TTMSFNCOpenLayersCircle\":' + LB +\r\n    '    case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '    case \"TTMSFNCOpenLayersRectangle\":' + LB +\r\n    '    case \"TTMSFNCMapsPolygon\":' + LB +\r\n    '    case \"TTMSFNCOpenLayersPolygon\":' + LB +\r\n    '    d = new ' + MAPSERVICEVAR + '.geom.Polygon([co])' + LB +\r\n    '    for (var key in ' + HOLEARRAYVAR + '){' + LB +\r\n    '      let linear_ring = new ' + MAPSERVICEVAR + '.geom.LinearRing(' + HOLEARRAYVAR + '[key]);' + LB +\r\n    '      d.appendLinearRing(linear_ring);' + LB +\r\n    '    }' + LB +\r\n    '    break;' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  if ((' + PARAMSNAME + '.hasOwnProperty(\"Label\"))){ ' + LB +\r\n\r\n    '    bgFill = new ' + MAPSERVICEVAR + '.style.Fill({color: toRGBA(' + PARAMSNAME + '[\"Label\"][\"BackgroundColor\"], 1)});' + LB +\r\n    '    if (' + PARAMSNAME + '[\"Label\"][\"BackgroundColor\"] == \"gcNull\")' +\r\n    '      bgFill = null;' + LB +\r\n\r\n    '    bgStroke = new ' + MAPSERVICEVAR + '.style.Stroke({color: toRGBA(' + PARAMSNAME + '[\"Label\"][\"BorderColor\"], 1)});' + LB +\r\n    '    if (' + PARAMSNAME + '[\"Label\"][\"BorderColor\"] == \"gcNull\")' +\r\n    '      bgStroke = null;' + LB +\r\n\r\n    '    labelstyle = '+ LB +\r\n    '    new ' + MAPSERVICEVAR + '.style.Text({ ' + LB +\r\n    '      fill: new ' + MAPSERVICEVAR + '.style.Fill({color: toRGBA(' + PARAMSNAME + '[\"Label\"][\"FontColor\"], 1)}),' + LB +\r\n    '      backgroundFill: bgFill,' + LB +\r\n    '      backgroundStroke: bgStroke,' + LB +\r\n    '      padding: [' + PARAMSNAME + '[\"Label\"][\"Padding\"] + 2, ' + PARAMSNAME + '[\"Label\"][\"Padding\"], ' + PARAMSNAME + '[\"Label\"][\"Padding\"], ' + PARAMSNAME + '[\"Label\"][\"Padding\"]], ' + LB +\r\n    '      placement: \"point\", ' + LB +\r\n    '      overflow: true, ' + LB +\r\n    '      offsetX: ' + PARAMSNAME + '[\"Label\"][\"OffsetX\"], ' + LB +\r\n    '      offsetY: ' + PARAMSNAME + '[\"Label\"][\"OffsetY\"], ' + LB +\r\n    '      font: ' + PARAMSNAME + '[\"Label\"][\"FontSize\"] + \"px sans-serif\", ' +\r\n    '      text: ' + PARAMSNAME + '[\"Label\"][\"Text\"]' + LB +\r\n    '    });' + LB +\r\n    '  }' + LB +\r\n\r\n    '  switch(c){' + LB +\r\n    '    case \"TTMSFNCMapsPolyline\":' + LB +\r\n    '    case \"TTMSFNCOpenLayersPolyline\":' + LB +\r\n    '    vectorStyle = new ' + MAPSERVICEVAR + '.style.Style({' + LB +\r\n    '      text: labelstyle, '+ LB +\r\n    '      stroke: new ' + MAPSERVICEVAR + '.style.Stroke({' + LB +\r\n    '        color: toRGBA(' + PARAMSNAME + '[\"StrokeColor\"], ' + PARAMSNAME + '[\"StrokeOpacity\"]),' + LB +\r\n    '        width: ' + PARAMSNAME + '[\"StrokeWidth\"]' + LB +\r\n    '      }),' + LB +\r\n    '    });' + LB +\r\n    '    break;' + LB +\r\n    '    case \"TTMSFNCMapsCircle\":' + LB +\r\n    '    case \"TTMSFNCOpenLayersCircle\":' + LB +\r\n    '    case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '    case \"TTMSFNCOpenLayersRectangle\":' + LB +\r\n    '    case \"TTMSFNCMapsPolygon\":' + LB +\r\n    '    case \"TTMSFNCOpenLayersPolygon\":' + LB +\r\n    '    vectorStyle = new ' + MAPSERVICEVAR + '.style.Style({' + LB +\r\n    '      text: labelstyle, '+ LB +\r\n    '      stroke: new ' + MAPSERVICEVAR + '.style.Stroke({' + LB +\r\n    '        color: toRGBA(' + PARAMSNAME + '[\"StrokeColor\"], ' + PARAMSNAME + '[\"StrokeOpacity\"]),' + LB +\r\n    '        width: ' + PARAMSNAME + '[\"StrokeWidth\"]' + LB +\r\n    '      }),' + LB +\r\n    '      fill: new ' + MAPSERVICEVAR + '.style.Fill({' + LB +\r\n    '        color: toRGBA(' + PARAMSNAME + '[\"FillColor\"], ' + PARAMSNAME + '[\"FillOpacity\"])' + LB +\r\n    '      })' + LB +\r\n    '    });' + LB +\r\n    '    break;' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  if (d) {' + LB +\r\n    '    d.transform(''EPSG:4326'', ' + MAPVAR + '.getView().getProjection());' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  if (!' + POLYELEMENTVAR + '){' + LB +\r\n    '    var f = new ' + MAPSERVICEVAR + '.Feature({' + LB +\r\n    '      geometry: d' + LB +\r\n    '    })' + LB + LB +\r\n\r\n    '    function getFeature(event){' + LB +\r\n    '      var feature = ' + MAPVAR + '.forEachFeatureAtPixel(event.pixel,' + LB +\r\n    '      function(ft) {' + LB +\r\n    '        return ft;' + LB +\r\n    '      }, {' + LB +\r\n    '      layerFilter: function(layer) {' + LB +\r\n    '        return layer === ' + POLYELEMENTVAR + ';' + LB +\r\n    '      }});' + LB +\r\n    '      return feature;' + LB +\r\n    '    }' + LB + LB +\r\n\r\n    '    var PolyElementClick = function(event){' + LB +\r\n    '      var ft = getFeature(event);' + LB +\r\n    '      if (ft === f && !activePolyElement) {' + LB +\r\n    '        activePolyElement = f;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      }' + LB +\r\n    '    }' + LB + LB +\r\n    '    ' + MAPVAR + '.on(''click'', PolyElementClick);' + LB +\r\n    '    var PolyElementDblClick = function(event){' + LB +\r\n    '      var ft = getFeature(event);' + LB +\r\n    '      if (ft === f && !activePolyElement) {' + LB +\r\n    '        activePolyElement = f;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementDblClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      }' + LB +\r\n    '    }' + LB + LB +\r\n    '    ' + MAPVAR + '.on(''dblclick'', PolyElementDblClick);' + LB +\r\n    '    var PolyElementMouseUp = function(event){' + LB +\r\n    '      var ft = getFeature(event);' + LB +\r\n    '      if (ft === f && !activePolyElement) {' + LB +\r\n    '        activePolyElement = f;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseUp\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      }' + LB +\r\n    '    }' + LB + LB +\r\n    '    ' + MAPVAR + '.on(''pointerup'', PolyElementMouseUp);' + LB +\r\n    '    var PolyElementMouseDown = function(event){' + LB +\r\n    '      var ft = getFeature(event);' + LB +\r\n    '      if (ft === f && !activePolyElement) {' + LB +\r\n    '        activePolyElement = f;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseDown\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      }' + LB +\r\n    '    }' + LB + LB +\r\n    '    ' + MAPVAR + '.on(''pointerdown'', PolyElementMouseDown);' + LB +\r\n    '    var PolyElementMouseMove = function(event){' + LB +\r\n    '      var ft = getFeature(event);' + LB +\r\n    '      if (ft && ft === f && ft != hoverFeature) {' + LB +\r\n    '        hoverFeature = ft;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseEnter\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      }' + LB +\r\n    '      else if (ft != hoverFeature && hoverFeature === f){' + LB +\r\n    '        hoverFeature = null;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseLeave\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      }' + LB +\r\n    '    }' + LB + LB +\r\n    '    ' + MAPVAR + '.on(''pointermove'', PolyElementMouseMove);' + LB +\r\n\r\n    '  var vectorSource = new ' + MAPSERVICEVAR + '.source.Vector({' + LB +\r\n    '    features: [f]' + LB +\r\n    '  });' + LB + LB +\r\n\r\n    '  ' + POLYELEMENTVAR + ' = new ' + MAPSERVICEVAR + '.layer.Vector({' + LB +\r\n    '    source: vectorSource,' + LB +\r\n    '    style: vectorStyle,' + LB +\r\n    '    visible: ' + PARAMSNAME + '[\"Visible\"]' + LB +\r\n    '  });' + LB + LB +\r\n\r\n    '    if (' + PARAMSNAME + '[\"Draggable\"]) {' + LB +\r\n    '      const t = new ' + MAPSERVICEVAR + '.interaction.Translate({' + LB +\r\n    '         features: new ' + MAPSERVICEVAR + '.Collection([f]),' + LB +\r\n    '      })' + LB +\r\n\r\n    '      t.on(''translateend'', e => {' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(e, \"PolyElementDragEnd\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB +\r\n\r\n    '    ' + MAPVAR + '.addInteraction(t);' + LB +\r\n    '    }' + LB + LB +\r\n\r\n    '  ' + POLYELEMENTVAR + '.PolyElementClick = PolyElementClick;' + LB +\r\n    '  ' + POLYELEMENTVAR + '.PolyElementDblClick = PolyElementDblClick;' + LB +\r\n    '  ' + POLYELEMENTVAR + '.PolyElementMouseUp = PolyElementMouseUp;' + LB +\r\n    '  ' + POLYELEMENTVAR + '.PolyElementMouseDown = PolyElementMouseDown;' + LB +\r\n    '  ' + POLYELEMENTVAR + '.PolyElementMouseMove = PolyElementMouseMove;' + LB +\r\n\r\n    '  ' + MAPVAR + '.addLayer(' + POLYELEMENTVAR + ');' + LB +\r\n\r\n    '    ' + GetInitializeEvents + LB +\r\n    '  }else{' + LB +\r\n    '    ' + POLYELEMENTVAR + '.setVisible(' + PARAMSNAME + '[\"Visible\"]);' + LB +\r\n    '    ' + POLYELEMENTVAR + '.getSource().getFeatures()[0].setGeometry(d);' + LB +\r\n    '    ' + POLYELEMENTVAR + '.setStyle(vectorStyle);' + LB +\r\n    '  }';\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetClosePopup: string;\r\nbegin\r\n  Result := 'if (' + POPUPVAR + '){' + LB +\r\n            '  ' + POPUPVAR + '.setPosition(undefined);' + LB +\r\n            '  ' + MAPVAR + '.removeOverlay(' + POPUPVAR + ');' + LB +\r\n            '  ' + POPUPVAR + ' = null;' + LB +\r\n            '}';\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetDelayLoadEvent: string;\r\nbegin\r\n  Result :=  '';\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetDeleteMarker: string;\r\nbegin\r\n  Result := 'if (' + MARKERVAR + '){' + LB;\r\n  Result := Result + '  ' + MARKERVAR + '.setSource(null);' + LB;\r\n  Result := Result + '  ' + MAPVAR + '.un(''click'', ' + MARKERVAR + '.MarkerClick);' + LB;\r\n//  Result := Result + '  ' + MAPVAR + '.un(''contextmenu'', ' + MARKERVAR + '.MarkerRightClick);' + LB;\r\n  Result := Result + '  ' + MAPVAR + '.un(''dblclick'', ' + MARKERVAR + '.MarkerDblClick);' + LB;\r\n  Result := Result + '  ' + MAPVAR + '.un(''pointerup'', ' + MARKERVAR + '.MarkerMouseUp);' + LB;\r\n  Result := Result + '  ' + MAPVAR + '.un(''pointerdown'', ' + MARKERVAR + '.MarkerMouseDown);' + LB;\r\n  Result := Result + '  ' + MAPVAR + '.un(''pointermove'', ' + MARKERVAR + '.MarkerMouseMove);';\r\n   Result := Result + '  ' + MAPVAR + '.removeLayer(' + MARKERVAR + ');' + LB;\r\n  Result := Result + '}'\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetDeletePolyElement: string;\r\nbegin\r\n  Result := 'if (' + POLYELEMENTVAR + '){' + LB;\r\n  Result := Result + '  ' + POLYELEMENTVAR + '.setSource(null);' + LB;\r\n  Result := Result + '  ' + MAPVAR + '.un(''click'', ' + POLYELEMENTVAR + '.PolyElementClick);' + LB;\r\n//  Result := Result + '  ' + MAPVAR + '.un(''contextmenu'', ' + POLYELEMENTVAR + '.PolyElementRightClick);' + LB;\r\n  Result := Result + '  ' + MAPVAR + '.un(''dblclick'', ' + POLYELEMENTVAR + '.PolyElementDblClick);' + LB;\r\n  Result := Result + '  ' + MAPVAR + '.un(''pointerup'', ' + POLYELEMENTVAR + '.PolyElementMouseUp);' + LB;\r\n  Result := Result + '  ' + MAPVAR + '.un(''pointerdown'', ' + POLYELEMENTVAR + '.PolyElementMouseDown);' + LB;\r\n  Result := Result + '  ' + MAPVAR + '.un(''pointermove'', ' + POLYELEMENTVAR + '.PolyElementMouseMove);';\r\n  Result := Result + '  ' + MAPVAR + '.removeLayer(' + POLYELEMENTVAR + ');' + LB;\r\n  Result := Result + '}'\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetGetBounds: string;\r\nbegin\r\n  Result :=\r\n    '  var loc = ' + MAPVAR + '.getView().calculateExtent();' + LB +\r\n    '  var l = ' + MAPSERVICEVAR + '.proj.transformExtent(loc, ' + MAPVAR + '.getView().getProjection(), ''EPSG:4326'');' + LB +\r\n    '  jsonObj[\"NorthEast\"][\"Latitude\"] = l[3];' + LB +\r\n    '  jsonObj[\"NorthEast\"][\"Longitude\"] = l[2];' + LB +\r\n    '  jsonObj[\"SouthWest\"][\"Latitude\"] = l[1];' + LB +\r\n    '  jsonObj[\"SouthWest\"][\"Longitude\"] = l[0];';\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetGetCenterCoordinate: string;\r\nbegin\r\n  Result :=\r\n    '  var loc = ' + MAPVAR + '.getView().getCenter();' + LB +\r\n    '  var l = ' + MAPSERVICEVAR + '.proj.transform(loc, ' + MAPVAR + '.getView().getProjection(), ''EPSG:4326'');' + LB +\r\n    '  jsonObj[\"Latitude\"] = l[1];' + LB +\r\n    '  jsonObj[\"Longitude\"] = l[0];';\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetLatLonToXY: string;\r\nbegin\r\n  Result :=\r\n    '  var coordinate = ' + MAPSERVICEVAR + '.proj.fromLonLat([parseFloat(' + PARAMSNAME + '[\"Longitude\"]), parseFloat(' + PARAMSNAME + '[\"Latitude\"])]);' + LB +\r\n    '  var pixel = ' + MAPVAR + '.getPixelFromCoordinate(coordinate);' + LB +\r\n    '  jsonObj[\"X\"] = parseFloat(pixel[0]);' + LB +\r\n    '  jsonObj[\"Y\"] = parseFloat(pixel[1]);';\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetXYToLatLon: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetGetZoomLevel: string;\r\nbegin\r\n  Result := '  var z = ' + MAPVAR + '.getView().getZoom();';\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetGlobalVariables: string;\r\nbegin\r\n  Result :=\r\n    'var activePolyElement = null;' + LB +\r\n    'var activeMarker = null;' + LB +\r\n    'var ' + MAPZOOMCONTROLVAR + ';' + LB +\r\n    'var ' + MAPCONTROLARRAYVAR + ' = [];' +\r\n    'var oldZoom;' + LB +\r\n    'var hoverFeature;' + LB +\r\n    'var mouseLatLng = {''Latitude'': 0, ''Longitude'': 0};' + LB +\r\n    'function parseEvent(event, eventname, id = ''''){' + LB +\r\n    '  var loc = {''Latitude'': 0, ''Longitude'': 0};' + LB +\r\n    '  var x = 0.0;' + LB +\r\n    '  var y = 0.0;' + LB +\r\n    '  if ((eventname == \"MapMoveStart\") || (eventname == \"MapMoveEnd\")){ ' +\r\n    '    centerpt = ' + MAPVAR + '.getView().getCenter();' + LB +\r\n    '    var l = ' + MAPSERVICEVAR + '.proj.transform(centerpt, ' + MAPVAR + '.getView().getProjection(), ''EPSG:4326'');' + LB +\r\n    '    loc = {''Latitude'': l[1], ''Longitude'': l[0]};' + LB +\r\n    '  } else if (event) {' + LB +\r\n    '    if (event.coordinate){' + LB +\r\n    '      var l = ' + MAPSERVICEVAR + '.proj.transform(event.coordinate, ' + MAPVAR + '.getView().getProjection(), ''EPSG:4326'');' + LB +\r\n    '      loc = {''Latitude'': l[1], ''Longitude'': l[0]};' + LB +\r\n    '      mouseLatLng = loc;' + LB +\r\n    '    }' + LB +\r\n    '    if (event.pixel){' + LB +\r\n    '      x = event.pixel[0];' + LB +\r\n    '      y = event.pixel[1];' + LB +\r\n    '    }' + LB +\r\n    '  }' + LB +\r\n\r\n    '  var r = {''Coordinate'': loc, ''X'': x, ''Y'': y, ''ID'': id, ''EventName'': eventname};' + LB +\r\n    '  return r;' + LB +\r\n    '}' + LB + LB +\r\n\r\n\r\n    'function ResetActive(){' + LB +\r\n    '  if (activeMarker){' + LB +\r\n    '    activeMarker = null;' + LB +\r\n    '    return true;' + LB +\r\n    '  }' + LB +\r\n    '  if (activePolyElement){' + LB +\r\n    '    activePolyElement = null;' + LB +\r\n    '    return true;' + LB +\r\n    '  }' + LB +\r\n    '  return false;' + LB +\r\n    '}' + LB + LB +\r\n\r\n    'function MapMoveStart(event){' + LB +\r\n    '  if (ResetActive()){' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMoveStart\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapMoveEnd(event){' + LB +\r\n    '  if (ResetActive()){' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMoveEnd\"));' + LB +\r\n\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapCenterChanged\"));' + LB +\r\n    '    if (' + MAPVAR + '){' + LB +\r\n    '      if (!oldZoom){' + LB +\r\n    '        oldZoom = ' + MAPVAR + '.getView().getZoom();' + LB +\r\n    '      }' + LB +\r\n    '      var newZoom = ' + MAPVAR + '.getView().getZoom();' + LB +\r\n    '      if(newZoom != oldZoom){' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(null, \"ZoomChanged\"));' + LB +\r\n    '      }' + LB +\r\n    '      oldZoom = newZoom;' + LB +\r\n    '    }' + LB +\r\n\r\n    '}' + LB + LB +\r\n    'function MapClick(event){' + LB +\r\n    '  if (ResetActive()){' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapClick\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapRightClick(event){' + LB +\r\n    '  if (ResetActive()){' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapRightClick\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapDblClick(event){' + LB +\r\n    '  if (ResetActive()){' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapDblClick\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapMouseDown(event){' + LB +\r\n    '  if (ResetActive()){' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseDown\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapMouseUp(event){' + LB +\r\n    '  if (ResetActive()){' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseUp\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapMouseLeave(event){' + LB +\r\n    '  if (ResetActive()){' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseLeave\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapMouseEnter(event){' + LB +\r\n    '  if (ResetActive()){' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMousEnter\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapMouseMove(event){' + LB +\r\n    '  if (ResetActive()){' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseMove\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapRenderComplete(event){' + LB +\r\n    '  if (ResetActive()){' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapRenderComplete\"));' + LB +\r\n    '}' + LB;\r\n\r\n  Result := Result +\r\n    'var ' + CLUSTERVAR + ';' + LB +\r\n    'var ' + CLUSTERARRAYVAR + ' = {};' + LB +\r\n    'function ' + GETCLUSTERARRAYVAR + '{' + LB +\r\n    '  var arr = [];' + LB +\r\n    '  for (var key in ' + CLUSTERARRAYVAR + '){' + LB +\r\n    '    var v = key;' + LB +\r\n    '    arr.push(v);' + LB +\r\n    '  }' + LB +\r\n    '  return arr.toString();' + LB +\r\n    '}';\r\nend;\r\n\r\nprocedure TTMSFNCMapsOpenLayers.GetHeadLinks(\r\n  const AList: TTMSFNCMapsLinksList);\r\nvar\r\n  APIVersion: string;\r\nbegin\r\n//  OPENLAYERSAPIVERSION = 'v7.5.2';\r\n//  OPENLAYERSAPIVERSION = 'v8.1.0';\r\n//  OPENLAYERSAPIVERSION = 'v10.2.1';\r\n\r\n  if MapsProperties.GetAPIVersion = '' then\r\n    APIVersion := 'v10.2.1'\r\n  else\r\n    APIVersion := MapsProperties.GetAPIVersion;\r\n\r\n//  AList.Add(TTMSFNCMapsLink.CreateLink(OPENLAYERSAPIURL + APIVersion + '/css/ol.css', 'text/css', 'stylesheet'));\r\n//  AList.Add(TTMSFNCMapsLink.CreateScript(OPENLAYERSAPIURL + APIVersion + '/build/ol.js', 'text/javascript'));\r\n\r\n  //v8\r\n  AList.Add(TTMSFNCMapsLink.CreateLink(OPENLAYERSAPIURL + APIVersion + '/ol.css', 'text/css', 'stylesheet'));\r\n  AList.Add(TTMSFNCMapsLink.CreateScript(OPENLAYERSAPIURL + APIVersion + '/dist/ol.js', 'text/javascript'));\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetHeadStyle: string;\r\nbegin\r\n  Result := '.ol-popup {' + LB +\r\n      '  position: absolute;' + LB +\r\n      '  background-color: white;' + LB +\r\n      '  box-shadow: 0 1px 4px rgba(0,0,0,0.2);' + LB +\r\n      '  padding: 15px;' + LB +\r\n      '  border-radius: 10px;' + LB +\r\n      '  border: 1px solid #cccccc;' + LB +\r\n      '  bottom: 12px;' + LB +\r\n      '  left: -50px;' + LB +\r\n      '  min-width: 100px;' + LB +\r\n      '}' + LB +\r\n      '.ol-popup:after, .ol-popup:before {' + LB +\r\n      '  top: 100%;' + LB +\r\n      '  border: solid transparent;' + LB +\r\n      '  content: \" \";' + LB +\r\n      '  height: 0;' + LB +\r\n      '  width: 0;' + LB +\r\n      '  position: absolute;' + LB +\r\n      '  pointer-events: none;' + LB +\r\n      '}' + LB +\r\n      '.ol-popup:after {' + LB +\r\n      '  border-top-color: white;' + LB +\r\n      '  border-width: 10px;' + LB +\r\n      '  left: 48px;' + LB +\r\n      '  margin-left: -10px;' + LB +\r\n      '}' + LB +\r\n      '.ol-popup:before {' + LB +\r\n      '  border-top-color: #cccccc;' + LB +\r\n      '  border-width: 11px;' + LB +\r\n      '  left: 48px;' + LB +\r\n      '  margin-left: -11px;' + LB +\r\n      '}' + LB +\r\n      '.ol-popup-closer {' + LB +\r\n      '  text-decoration: none;' + LB +\r\n      '  position: absolute;' + LB +\r\n      '  top: 2px;' + LB +\r\n      '  right: 8px;' + LB +\r\n      '}' + LB +\r\n      '.ol-popup-closer:after {' + LB +\r\n      '  content: \"✖\";' + LB +\r\n      '}';\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetIdentifier: string;\r\nbegin\r\n  Result := 'OpenLayers';\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetInitializeCoordinateArray: string;\r\nbegin\r\n  Result := '[]';\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetInitializeHolesArray: string;\r\nbegin\r\n  Result := '[]';\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetInitializeEvents: string;\r\nbegin\r\n  Result :=\r\n  '  ' + MAPVAR + '.addEventListener(''rendercomplete'', MapRenderComplete);' + LB +\r\n  '  ' + MAPVAR + '.addEventListener(''error'', function(){' + LB +\r\n  '   console.log(\"openlayers map error\");' + LB +\r\n  '  })' + LB + LB +\r\n//  '  ' + MAPVAR + '.on(''maptypeid_changed'', function(){' + LB +\r\n//  '    ' + GETSENDEVENT + '(parseEvent(null, \"MapTypeChanged\"));' + LB +\r\n//  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.un(''movestart'', MapMoveStart);' + LB +\r\n  '  ' + MAPVAR + '.on(''movestart'', MapMoveStart);' + LB +\r\n  '  ' + MAPVAR + '.un(''moveend'', MapMoveEnd);' + LB +\r\n  '  ' + MAPVAR + '.on(''moveend'', MapMoveEnd);' + LB +\r\n  '  ' + MAPVAR + '.un(''click'', MapClick);' + LB +\r\n  '  ' + MAPVAR + '.on(''click'', MapClick);' + LB +\r\n  '  ' + MAPVAR + '.un(''contextmenu'', MapRightClick);' + LB +\r\n  '  ' + MAPVAR + '.on(''contextmenu'', MapRightClick);' + LB +\r\n  '  ' + MAPVAR + '.un(''dblclick'', MapDblClick);' + LB +\r\n  '  ' + MAPVAR + '.on(''dblclick'', MapDblClick);' + LB +\r\n  '  ' + MAPVAR + '.un(''pointerup'', MapMouseUp);' + LB +\r\n  '  ' + MAPVAR + '.on(''pointerup'', MapMouseUp);' + LB +\r\n  '  ' + MAPVAR + '.un(''pointerdown'', MapMouseDown);' + LB +\r\n  '  ' + MAPVAR + '.on(''pointerdown'', MapMouseDown);' + LB +\r\n  '  ' + MAPVAR + '.un(''pointermove'', MapMouseMove);' + LB +\r\n  '  ' + MAPVAR + '.on(''pointermove'', MapMouseMove);';\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetInitializeMap: string;\r\nbegin\r\n  Result :=\r\n    '  var int;' + LB +\r\n    '  ' + MAPDOUBLECLICK + ' = new ' + MAPSERVICEVAR + '.interaction.DoubleClickZoom();' + LB +\r\n    '  ' + MAPPANNING + ' = new ' + MAPSERVICEVAR + '.interaction.DragPan();' + LB +\r\n    '  ' + MAPWHEELZOOM + ' = new ' + MAPSERVICEVAR + '.interaction.MouseWheelZoom();' + LB;\r\n\r\n//  Result := Result + '  int = ' + MAPSERVICEVAR + '.interaction.defaults({doubleClickZoom: false, dragPan: false, mouseWheelZoom: false}).extend([' + MAPDOUBLECLICK + ', ' + MAPPANNING + ', ' + MAPWHEELZOOM + '])' + LB;\r\n\r\n  //v8\r\n  Result := Result + '  int = ' + MAPSERVICEVAR + '.interaction.defaults.defaults({doubleClickZoom: false, dragPan: false, mouseWheelZoom: false}).extend([' + MAPDOUBLECLICK + ', ' + MAPPANNING + ', ' + MAPWHEELZOOM + '])' + LB;\r\n\r\n  Result := Result +\r\n    '  ' + MAPVAR + ' = new ' + MAPSERVICEVAR + '.Map({' + LB +\r\n    '    interactions: int,' + LB +\r\n    '    target: \"' + MAPID +'\",' + LB +\r\n    '    layers: [' + LB +\r\n    '      new ' + MAPSERVICEVAR + '.layer.Tile({' + LB +\r\n    '        source: new ' + MAPSERVICEVAR + MAPSOURCEVAR + LB +\r\n    '      })' + LB +\r\n    '    ],' + LB +\r\n    '    view: new ' + MAPSERVICEVAR + '.View({' + LB +\r\n    '      center: ' + MAPSERVICEVAR + '.proj.fromLonLat([' + MapsProperties.GetDefaultLongitude + ', ' + MapsProperties.GetDefaultLatitude + ']),' + LB +\r\n    '      zoom: ' + MapsProperties.GetDefaultZoomLevel  + LB +\r\n    '    }),' + LB +\r\n    '    controls:[]' + LB +\r\n    '  });' + LB + LB;\r\n\r\n    Result := Result + '  ' + MAPZOOMCONTROLVAR + ' = new ' + MAPSERVICEVAR + '.control.Zoom();' + LB;\r\n\r\n    if MapsProperties.GetShowZoomControl then\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPVAR + '.addControl(' + MAPZOOMCONTROLVAR + ');' + LB +\r\n      '  ' + MAPCONTROLARRAYVAR + '.push(' + MAPZOOMCONTROLVAR + ');' + LB + LB;\r\n    end;\r\n\r\n    if not MapsProperties.GetZoomOnDblClick then\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPDOUBLECLICK + '.setActive(false);' + LB + LB;\r\n    end\r\n    else\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPDOUBLECLICK + '.setActive(true);' + LB + LB\r\n    end;\r\n\r\n    if not MapsProperties.GetZoomOnWheelScroll then\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPWHEELZOOM + '.setActive(false);' + LB + LB;\r\n    end\r\n    else\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPWHEELZOOM + '.setActive(true);' + LB + LB\r\n    end;\r\n\r\n    if not MapsProperties.GetPanning then\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPPANNING + '.setActive(false);' + LB + LB;\r\n    end\r\n    else\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPPANNING + '.setActive(true);' + LB + LB\r\n    end;\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetMapsServiceCheck: string;\r\nbegin\r\n  Result := '!' + MAPSERVICEVAR;\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetResetMap: string;\r\nbegin\r\n\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetSetCenterCoordinate: string;\r\nbegin\r\n  Result := '  ' + MAPVAR + '.getView().setCenter(' + MAPSERVICEVAR + '.proj.fromLonLat([' + PARAMSNAME + '[\"Longitude\"], '  + PARAMSNAME + '[\"Latitude\"]]));';\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetSetZoomLevel: string;\r\nbegin\r\n  Result := '  ' + MAPVAR + '.getView().setZoom(' + PARAMSNAME + ');';\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetShowPopup: string;\r\nbegin\r\n  Result :=\r\n    '  var lnlt = ' + MAPSERVICEVAR + '.proj.fromLonLat([' + PARAMSNAME + '[\"Longitude\"], ' + PARAMSNAME + '[\"Latitude\"]]);' + LB +\r\n    '  var el = document.createElement(''div'');' + LB +\r\n    '  var t = ' + PARAMSNAME + '[\"Text\"];' + LB +\r\n    '  el.className = \"ol-popup\"' + LB +\r\n    '  el.innerHTML = ''<a href=\"#\" id=\"popup-closer-popup\" class=\"ol-popup-closer\"></a><div>'' + t + ''</div>''' + LB +\r\n    '  ' + POPUPVAR + ' = new ' + MAPSERVICEVAR + '.Overlay({element: el, autoPan: ' + PARAMSNAME + '[\"PanMap\"], offset: [' + PARAMSNAME + '[\"OffsetX\"], ' + PARAMSNAME + '[\"OffsetY\"]]});' + LB +\r\n    '  ' + POPUPVAR  + '.setPosition(lnlt);' + LB +\r\n    '  ' + MAPVAR + '.addOverlay(' + POPUPVAR + ');' + LB +\r\n    '          var closer = document.getElementById(''popup-closer-popup'');' + LB +\r\n    '          closer.onclick = function() {' + LB +\r\n    '            ' + POPUPVAR + '.setPosition(undefined);' + LB +\r\n    '            ' + MAPVAR + '.removeOverlay(' + POPUPVAR + ');' + LB +\r\n    '            ' + POPUPVAR + ' = null;' + LB +\r\n    '            closer.blur();' + LB +\r\n    '            return false;' + LB +\r\n    '          };';\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetUpdateOptions: string;\r\nbegin\r\n  Result := Result +\r\n    '  ' + MAPCONTROLARRAYVAR + '.forEach(removeElement);' + LB +\r\n    '  function removeElement(value){' + LB +\r\n    '    ' + MAPVAR + '.removeControl(value);' + LB +\r\n    '  }' + LB +\r\n    '  ' + MAPCONTROLARRAYVAR + ' = [];' + LB + LB;\r\n\r\n  Result := Result + '  ' + MAPDOUBLECLICK + '.setActive(' + PARAMSNAME + '[\"ZoomOnDblClick\"]);' + LB + LB;\r\n  Result := Result + '  ' + MAPPANNING + '.setActive(' + PARAMSNAME + '[\"Panning\"]);' + LB + LB;\r\n  Result := Result + '  ' + MAPWHEELZOOM + '.setActive(' + PARAMSNAME + '[\"ZoomOnWheelScroll\"]);' + LB + LB;\r\n\r\n  Result := Result +\r\n    '  if (' + PARAMSNAME + '[\"ShowZoomControl\"]){' + LB +\r\n    '    ' + MAPVAR + '.addControl(' + MAPZOOMCONTROLVAR + ');' + LB +\r\n    '    ' + MAPCONTROLARRAYVAR + '.push(' + MAPZOOMCONTROLVAR + ');' + LB +\r\n    '  }';\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.GetZoomToBounds: string;\r\nbegin\r\n  Result := '  ' + MAPVAR + '.getView().fit(' + MAPSERVICEVAR + '.proj.transformExtent([' + PARAMSNAME + '[\"SouthWest\"][\"Longitude\"],' +\r\n    PARAMSNAME + '[\"SouthWest\"][\"Latitude\"],' + PARAMSNAME + '[\"NorthEast\"][\"Longitude\"],' + PARAMSNAME + '[\"NorthEast\"][\"Latitude\"]], ''EPSG:4326'', '\r\n      + MAPVAR + '.getView().getProjection()), { size: ' + MAPVAR + '.getSize() })';\r\nend;\r\n\r\nfunction TTMSFNCMapsOpenLayers.IsValid: Boolean;\r\nbegin\r\n  Result := True;\r\nend;\r\n\r\nprocedure TTMSFNCMapsOpenLayers.RemoveScripts;\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  asm\r\n    if (window.ol){\r\n      window.ol = undefined;\r\n    }\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2023 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCMaps.Leaflet;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nconst\r\n  LeafletAPIVERSION = '1.9.4';\r\n  LeafletAPIURL = 'https://unpkg.com/leaflet@';\r\n  MAPSERVICEVAR = 'window.L';\r\n  MAPSOURCEVAR = 'https://tile.openstreetmap.org/{z}/{x}/{y}.png';\r\n  MAPBASELAYERVAR = 'baseLayer';\r\n  MAPATTRIBUTIONPREFIX = '<a href=''https://www.leafletjs.com'' target=''_blank''>Leaflet</a>';\r\n  MAPATTRIBUTIONTEXT = '&copy; <a href=''https://www.openstreetmap.org/copyright'' target=''_blank''>OpenStreetMap</a>';\r\n\r\n  CLUSTERVAR = 'cluster';\r\n  CLUSTERARRAYVAR = 'clusterarray';\r\n  GETCLUSTERARRAYVAR = 'get' + CLUSTERARRAYVAR + '()';\r\n  ADDORUPDATECLUSTERFUNCTION = 'addOrUpdateCluster';\r\n  DELETECLUSTERFUNCTION = 'deleteCluster';\r\n\r\nprocedure RegisterLeafletService;\r\nprocedure UnRegisterLeafletService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCMaps, WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCMapsLeafletService = class;\r\n\r\n  TTMSFNCMapsLeafletFactoryService = class(TTMSFNCMapsFactoryService, ITMSFNCMapsServiceLeaflet);\r\n\r\n  TTMSFNCMapsLeafletService = class(TTMSFNCMapsLeafletFactoryService)\r\n  protected\r\n    function DoCreateMaps: ITMSFNCCustomMaps; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCMapsLeaflet = class;\r\n\r\n  TTMSFNCMapsLeaflet = class(TTMSFNCCustomMapsInterfacedObject, ITMSFNCCustomMaps)\r\n  protected\r\n    procedure GetHeadLinks(const AList: TTMSFNCMapsLinksList);\r\n    procedure RemoveScripts;\r\n    function GetResetMap: string;\r\n    function GetShowPopup: string;\r\n    function GetClosePopup: string;\r\n    function GetHeadStyle: string;\r\n    function GetDelayLoadEvent: string;\r\n    function GetMapsServiceCheck: string;\r\n    function GetIdentifier: string;\r\n    function GetInitializeMap: string;\r\n    function GetInitializeEvents: string;\r\n    function GetAddOrUpdateMarker: string;\r\n    function GetDeleteMarker: string;\r\n    function GetAddOrUpdatePolyElement: string;\r\n    function GetDeletePolyElement: string;\r\n    function GetZoomToBounds: string;\r\n    function GetGetBounds: string;\r\n    function GetGetCenterCoordinate: string;\r\n    function GetGetZoomLevel: string;\r\n    function GetLatLonToXY: string;\r\n    function GetXYToLatLon: string;\r\n    function GetSetCenterCoordinate: string;\r\n    function GetSetZoomLevel: string;\r\n    function GetUpdateOptions: string;\r\n    function GetGlobalVariables: string;\r\n    function GetAddCoordinateToArray: string;\r\n    function GetAddHoleToArray: string;\r\n    function GetInitializeCoordinateArray: string;\r\n    function GetInitializeHolesArray: string;\r\n    function IsValid: Boolean;\r\n    procedure DestroyMaps;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  MapsService: ITMSFNCMapsServiceLeaflet;\r\n\r\nconst\r\n  MAPZOOMCONTROLVAR = 'mapZoomControl';\r\n  MAPCONTROLARRAYVAR = 'mapControls';\r\n  MAPDOUBLECLICK = 'mapDoubleClick';\r\n  MAPWHEELZOOM = 'mapWheelZoom';\r\n  MAPPANNING = 'mapPanning';\r\n\r\nprocedure RegisterLeafletService;\r\nbegin\r\n  if not TTMSFNCMapsPlatformServices.Current.SupportsPlatformService(ITMSFNCMapsServiceLeaflet, IInterface(MapsService)) then\r\n  begin\r\n    MapsService := TTMSFNCMapsLeafletService.Create;\r\n    TTMSFNCMapsPlatformServices.Current.AddPlatformService(ITMSFNCMapsServiceLeaflet, MapsService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterLeafletService;\r\nbegin\r\n  TTMSFNCMapsPlatformServices.Current.RemovePlatformService(ITMSFNCMapsServiceLeaflet);\r\nend;\r\n\r\n{ TTMSFNCMapsLeafletService }\r\n\r\nfunction TTMSFNCMapsLeafletService.DoCreateMaps: ITMSFNCCustomMaps;\r\nbegin\r\n  Result := TTMSFNCMapsLeaflet.Create;\r\nend;\r\n\r\nconstructor TTMSFNCMapsLeaflet.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCMapsLeaflet.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCMapsLeaflet.DestroyMaps;\r\nbegin\r\n  MapsService.DestroyMaps(Self);\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetAddCoordinateToArray: string;\r\nbegin\r\n  Result := '  ' + COORDINATEARRAYVAR + '.push([' + PARAMSNAME + '[\"Latitude\"],' + PARAMSNAME + '[\"Longitude\"]]);';\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetAddHoleToArray: string;\r\nbegin\r\n  Result := 'var o = ' + HOLEARRAYVAR + '[' + PARAMSNAME + '[0]];' + LB +\r\n            'if (o){' + LB +\r\n            '  ' + HOLEARRAYVAR + '[' + PARAMSNAME + '[0]].push([' + PARAMSNAME + '[1][\"Latitude\"], ' + PARAMSNAME + '[1][\"Longitude\"]]);' + LB +\r\n            '}else{' + LB +\r\n            '  ' + HOLEARRAYVAR + '[' + PARAMSNAME + '[0]] = [[' + PARAMSNAME + '[1][\"Latitude\"], ' + PARAMSNAME + '[1][\"Longitude\"]]];' + LB +\r\n            '}';\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetAddOrUpdateMarker: string;\r\nbegin\r\n\r\n  Result :=\r\n    '  var pos = ' + MAPSERVICEVAR + '.latLng([' + PARAMSNAME + '[\"Latitude\"], ' + PARAMSNAME + '[\"Longitude\"]]);' + LB +\r\n    '  var ic = null;' + LB +\r\n\r\n    '  var markericon = ' + CUSTOMDEFAULTMARKERICON + '(' +\r\n      PARAMSNAME + '[\"DefaultIcon\"],' + LB +\r\n      PARAMSNAME + '[\"IconURL\"]);' + LB +\r\n\r\n    '  if (markericon != \"\"){' + LB +\r\n\r\n    '    ic = ' + MAPSERVICEVAR + '.icon({' + LB +\r\n    '      iconUrl: markericon,' + LB +\r\n    '      className: \"tms_leaflet_iconImage\",' + LB +\r\n//    '      iconSize: sz' + LB +\r\n//    '      iconAnchor: ac' + LB +\r\n    '    });' + LB +\r\n\r\n    '    var options = {' + LB +\r\n    '        icon: ic,' + LB +\r\n    '        title: ' + PARAMSNAME + '[\"Title\"],' + LB +\r\n    '        alt: ' + PARAMSNAME + '[\"Title\"],' + LB +\r\n//    '        interactive: ' + PARAMSNAME + '[\"Clickable\"],' + LB +\r\n//    '        zIndexOffset: ' + PARAMSNAME + '[\"ZIndex\"],' + LB +\r\n    '        draggable: ' + PARAMSNAME + '[\"Draggable\"],' + LB +\r\n    '        bubblingMouseEvents: false' + LB +\r\n    '    }' + LB +\r\n\r\n    '  } else {' + LB +\r\n\r\n    '    var options = {' + LB +\r\n    '        title: ' + PARAMSNAME + '[\"Title\"],' + LB +\r\n    '        alt: ' + PARAMSNAME + '[\"Title\"],' + LB +\r\n//    '        interactive: ' + PARAMSNAME + '[\"Clickable\"],' + LB +\r\n//    '        zIndexOffset: ' + PARAMSNAME + '[\"ZIndex\"],' + LB +\r\n    '        draggable: ' + PARAMSNAME + '[\"Draggable\"],' + LB +\r\n    '        bubblingMouseEvents: false' + LB +\r\n    '    }' + LB +\r\n\r\n    '  }' + LB + LB +\r\n\r\n    '  if (' + MARKERVAR + ')' + LB +\r\n    '    ' + MARKERVAR + '.remove();' + LB +\r\n\r\n//    '  if (!' + MARKERVAR + '){' + LB +\r\n    '    ' + MARKERVAR + ' = ' + MAPSERVICEVAR + '.marker(pos, options);' + LB +\r\n\r\n    '    ' + MARKERVAR + '.on(''click'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MARKERVAR + '.on(''contextmenu'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerRightClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MARKERVAR + '.on(''dblclick'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerDblClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MARKERVAR + '.on(''mouseup'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseUp\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MARKERVAR + '.on(''mousedown'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseDown\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MARKERVAR + '.on(''mouseout'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseLeave\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MARKERVAR + '.on(''mouseover'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseEnter\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MARKERVAR + '.on(''dragend'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerDragEnd\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n\r\n//    ' } else {' + LB +\r\n//    '    ' + MARKERVAR + '.setLatLng(pos);' + LB +\r\n//    ' }' + LB +\r\n\r\n    '  if (' + PARAMSNAME + '[\"Visible\"]) {' + LB +\r\n    '    ' + MARKERVAR + '.addTo(' + MAPVAR + ');' + LB +\r\n    '  } else { ' + LB +\r\n    '    ' + MARKERVAR + '.remove();' + LB +\r\n    '  }';\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetAddOrUpdatePolyElement: string;\r\nbegin\r\n\r\n  Result :=\r\n    '  var c = ' + PARAMSNAME + '[\"$type\"];' + LB +\r\n    '  var co = [];' + LB +\r\n\r\n    '  switch(c){' + LB +\r\n    '    case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '    case \"TTMSFNCMapsLeafletRectangle\":' + LB +\r\n    '    case \"TTMSFNCMapsCircle\":' + LB +\r\n    '    case \"TTMSFNCLeafletCircle\":' + LB +\r\n    '    case \"TTMSFNCMapsPolygon\":' + LB +\r\n    '    case \"TTMSFNCLeafletPolygon\":' + LB +\r\n    '      var options = {' + LB +\r\n    '        color: ' + PARAMSNAME + '[\"StrokeColor\"],' + LB +\r\n    '        weight: ' + PARAMSNAME + '[\"StrokeWidth\"],' + LB +\r\n    '        opacity: ' + PARAMSNAME + '[\"StrokeOpacity\"],' + LB +\r\n    '        fill: true,' + LB +\r\n    '        fillColor: ' + PARAMSNAME + '[\"FillColor\"],' + LB +\r\n    '        fillOpacity: ' + PARAMSNAME + '[\"FillOpacity\"],' + LB +\r\n//    '        interactive: ' + PARAMSNAME + '[\"Clickable\"],' + LB +\r\n//    '        zIndex: ' + PARAMSNAME + '[\"ZIndex\"],' + LB +\r\n    '        radius: ' + PARAMSNAME + '[\"Radius\"],' + LB +\r\n    '        bubblingMouseEvents: false' + LB +\r\n    '      }' + LB +\r\n    '    break;' + LB +\r\n    '    default:' + LB +\r\n    '      var options = {' + LB +\r\n    '        color: ' + PARAMSNAME + '[\"StrokeColor\"],' + LB +\r\n    '        weight: ' + PARAMSNAME + '[\"StrokeWidth\"],' + LB +\r\n    '        opacity: ' + PARAMSNAME + '[\"StrokeOpacity\"],' + LB +\r\n//    '        interactive: ' + PARAMSNAME + '[\"Clickable\"],' + LB +\r\n    '        bubblingMouseEvents: false' + LB +\r\n    '      }' + LB +\r\n    '    break;' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  switch(c){' + LB +\r\n    '    case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '    case \"TTMSFNCMapsLeafletRectangle\":' + LB +\r\n    '      co.push([' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Latitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Longitude\"]]);' + LB +\r\n    '      co.push([' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Latitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Longitude\"]]);' + LB +\r\n    '      co.push([' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Latitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Longitude\"]]);' + LB +\r\n    '      co.push([' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Latitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Longitude\"]]);' + LB +\r\n    '      co.push([' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Latitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Longitude\"]]);' + LB +\r\n    '    break;' + LB +\r\n    '    case \"TTMSFNCMapsCircle\":' + LB +\r\n    '    case \"TTMSFNCLeafletCircle\":' + LB +\r\n    '      co = [' + PARAMSNAME + '[\"Center\"][\"Latitude\"], ' + PARAMSNAME + '[\"Center\"][\"Longitude\"]];' + LB +\r\n    '    break;' + LB +\r\n    '    default:' + LB +\r\n\r\n    '      var pthArr = [];' + LB +\r\n    '      pthArr.push(' + COORDINATEARRAYVAR + ');' + LB +\r\n    '      for (var key in ' + HOLEARRAYVAR + '){' + LB +\r\n    '        pthArr.push(' + HOLEARRAYVAR + '[key]);' + LB +\r\n    '      }' + LB +\r\n\r\n    '      co = pthArr;' + LB +\r\n    '    break;' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  if (' + POLYELEMENTVAR + ')' + LB +\r\n    '    ' + POLYELEMENTVAR + '.remove();' + LB +\r\n\r\n//    '  if (!' + POLYELEMENTVAR + '){' + LB +\r\n\r\n    '    switch(c){' + LB +\r\n    '      case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '      case \"TTMSFNCMapsLeafletRectangle\":' + LB +\r\n    '        ' + POLYELEMENTVAR + ' = ' + MAPSERVICEVAR + '.rectangle(co, options).addTo(' + MAPVAR + ');' + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCMapsCircle\":' + LB +\r\n    '      case \"TTMSFNCLeafletCircle\":' + LB +\r\n    '        ' + POLYELEMENTVAR + ' = ' + MAPSERVICEVAR + '.circle(co, options).addTo(' + MAPVAR + ');' + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCMapsPolygon\":' + LB +\r\n    '      case \"TTMSFNCLeafletPolygon\":' + LB +\r\n    '        ' + POLYELEMENTVAR + ' = ' + MAPSERVICEVAR + '.polygon(co, options).addTo(' + MAPVAR + ');' + LB +\r\n    '      break;' + LB +\r\n    '      default:' + LB +\r\n    '        ' + POLYELEMENTVAR + ' = ' + MAPSERVICEVAR + '.polyline(co, options).addTo(' + MAPVAR + ');' + LB +\r\n    '      break;' + LB +\r\n    '    }' + LB + LB +\r\n\r\n    '    ' + POLYELEMENTVAR + '.on(''click'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + POLYELEMENTVAR + '.on(''contextmenu'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementRightClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + POLYELEMENTVAR + '.on(''dblclick'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementDblClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + POLYELEMENTVAR + '.on(''mouseup'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseUp\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + POLYELEMENTVAR + '.on(''mousedown'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseDown\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + POLYELEMENTVAR + '.on(''mouseout'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseLeave\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + POLYELEMENTVAR + '.on(''mouseover'', function(event){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseEnter\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n\r\n//    ' } else {' + LB +\r\n//\r\n//    '    switch(c){' + LB +\r\n//    '      case \"TTMSFNCMapsRectangle\":' + LB +\r\n//    '      case \"TTMSFNCMapsLeafletRectangle\":' + LB +\r\n//    '        ' + POLYELEMENTVAR + ' = ' + MAPSERVICEVAR + '.setBounds(co);' + LB +\r\n//    '      break;' + LB +\r\n//    '      case \"TTMSFNCMapsCircle\":' + LB +\r\n//    '      case \"TTMSFNCLeafletCircle\":' + LB +\r\n//    '        ' + POLYELEMENTVAR + '.setCenter(co);' + LB +\r\n//    '      break;' + LB +\r\n//    '      default:' + LB +\r\n//    '        ' + POLYELEMENTVAR + '.setLatLng(co);' + LB +\r\n//    '      break;' + LB +\r\n//    '    }' + LB + LB +\r\n//\r\n//    ' }' + LB +\r\n\r\n    '  if (' + PARAMSNAME + '[\"Visible\"]) {' + LB +\r\n    '    ' + POLYELEMENTVAR + '.addTo(' + MAPVAR + ');' + LB +\r\n    '  } else { ' + LB +\r\n    '    ' + POLYELEMENTVAR + '.remove();' + LB +\r\n    '  }';\r\n\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetDelayLoadEvent: string;\r\nbegin\r\n  Result :=  '';\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetDeleteMarker: string;\r\nbegin\r\n  Result := '  ' + MAPVAR + '.removeLayer(' + MARKERVAR + ');' + LB;\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetDeletePolyElement: string;\r\nbegin\r\n  Result := '  ' + MAPVAR + '.removeLayer(' + POLYELEMENTVAR + ');' + LB;\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetGetBounds: string;\r\nbegin\r\n  Result :=\r\n    '  var loc = ' + MAPVAR + '.getBounds();' + LB +\r\n    '  jsonObj[\"NorthEast\"][\"Latitude\"] = loc._northEast.lat;' + LB +\r\n    '  jsonObj[\"NorthEast\"][\"Longitude\"] = loc._northEast.lng;' + LB +\r\n    '  jsonObj[\"SouthWest\"][\"Latitude\"] = loc._southWest.lat;' + LB +\r\n    '  jsonObj[\"SouthWest\"][\"Longitude\"] = loc._southWest.lng;';\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetGetCenterCoordinate: string;\r\nbegin\r\n  Result :=\r\n    '  var loc = ' + MAPVAR + '.getCenter();' + LB +\r\n    '  jsonObj[\"Latitude\"] = loc.lat;' + LB +\r\n    '  jsonObj[\"Longitude\"] = loc.lng;';\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetLatLonToXY: string;\r\nbegin\r\n  Result :=\r\n    '  var pixel = ' + MAPVAR + '.latLngToContainerPoint([parseFloat(' + PARAMSNAME + '[\"Latitude\"]), parseFloat(' + PARAMSNAME + '[\"Longitude\"])]);' + LB +\r\n    '  jsonObj[\"X\"] = parseFloat(pixel.x);' + LB +\r\n    '  jsonObj[\"Y\"] = parseFloat(pixel.y);' + LB +\r\n   '';\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetXYToLatLon: string;\r\nbegin\r\n  Result :=\r\n    '  var co = ' + MAPVAR + '.containerPointToLatLng([parseInt(' + PARAMSNAME + '[\"X\"]), parseInt(' + PARAMSNAME + '[\"Y\"])]);' + LB +\r\n    '  jsonObj[\"Latitude\"] = parseFloat(co.lat);' + LB +\r\n    '  jsonObj[\"Longitude\"] = parseFloat(co.lng);' + LB +\r\n   '';\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetGetZoomLevel: string;\r\nbegin\r\n  Result := '  var z = ' + MAPVAR + '.getZoom();';\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetGlobalVariables: string;\r\nbegin\r\n  Result :=\r\n    'var activePolyElement = null;' + LB +\r\n    'var activeMarker = null;' + LB +\r\n    'var ' + MAPBASELAYERVAR + ';' + LB +\r\n    'var ' + MAPZOOMCONTROLVAR + ';' + LB +\r\n    'var ' + MAPCONTROLARRAYVAR + ' = [];' +\r\n    'var oldZoom;' + LB +\r\n    'var hoverFeature;' + LB +\r\n    'var mouseLatLng = {''Latitude'': 0, ''Longitude'': 0};' + LB +\r\n    'function parseEvent(event, eventname, id = ''''){' + LB +\r\n    '  var loc = {''Latitude'': 0, ''Longitude'': 0};' + LB +\r\n    '  var x = 0.0;' + LB +\r\n    '  var y = 0.0;' + LB +\r\n    '  if ((eventname == \"MapMoveStart\") || (eventname == \"MapMoveEnd\")){ ' +\r\n    '    centerpt = ' + MAPVAR + '.getCenter();' + LB +\r\n    '    loc = {''Latitude'': centerpt.lat, ''Longitude'': centerpt.lng};' + LB +\r\n    '  } if (eventname == \"MarkerDragEnd\"){ ' +\r\n    '    centerpt = event.target.getLatLng();' + LB +\r\n    '    loc = {''Latitude'': centerpt.lat, ''Longitude'': centerpt.lng};' + LB +\r\n    '  } else if (event) {' + LB +\r\n    '    if (event.latlng) {' + LB +\r\n    '      loc = {''Latitude'': event.latlng.lat, ''Longitude'': event.latlng.lng};' + LB +\r\n    '      mouseLatLng = loc;' + LB +\r\n    '    }' + LB +\r\n    '    if (event.layerPoint) {' + LB +\r\n    '      x = event.layerPoint.x;' + LB +\r\n    '      y = event.layerPoint.y;' + LB +\r\n    '    }' + LB +\r\n    '  }' + LB +\r\n\r\n    '  var r = {''Coordinate'': loc, ''X'': x, ''Y'': y, ''ID'': id, ''EventName'': eventname};' + LB +\r\n    '  return r;' + LB +\r\n    '}' + LB + LB +\r\n\r\n    'function MapMoveStart(event){' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMoveStart\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapMoveEnd(event){' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMoveEnd\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapClick(event){' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapClick\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapRightClick(event){' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapRightClick\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapDblClick(event){' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapDblClick\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapMouseDown(event){' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseDown\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapMouseUp(event){' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseUp\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapMouseLeave(event){' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseLeave\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapMouseEnter(event){' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMousEnter\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapMouseMove(event){' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseMove\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapZoomChanged(event){' + LB +\r\n    '    if (' + MAPVAR + '){' + LB +\r\n    '      if (!oldZoom){' + LB +\r\n    '        oldZoom = ' + MAPVAR + '.getZoom();' + LB +\r\n    '      }' + LB +\r\n    '      var newZoom = ' + MAPVAR + '.getZoom();' + LB +\r\n    '      if(newZoom != oldZoom){' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(null, \"ZoomChanged\"));' + LB +\r\n    '      }' + LB +\r\n    '      oldZoom = newZoom;' + LB +\r\n    '    }' + LB +\r\n    '}' + LB + LB;\r\nend;\r\n\r\nprocedure TTMSFNCMapsLeaflet.GetHeadLinks(\r\n  const AList: TTMSFNCMapsLinksList);\r\nbegin\r\n  AList.Add(TTMSFNCMapsLink.CreateLink(LeafletAPIURL + LeafletAPIVERSION + '/dist/leaflet.css', 'text/css', 'stylesheet'));\r\n  AList.Add(TTMSFNCMapsLink.CreateScript(LeafletAPIURL + LeafletAPIVERSION + '/dist/leaflet.js', 'text/javascript'));\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetHeadStyle: string;\r\nbegin\r\n  Result := '.tms_leaflet_iconImage{' + LB +\r\n      '  position: relative!important;' + LB +\r\n      '  margin-top: -100%;' + LB +\r\n      '  margin-left: -50%;' + LB +\r\n      '}' + LB;\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetIdentifier: string;\r\nbegin\r\n  Result := 'Leaflet';\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetInitializeCoordinateArray: string;\r\nbegin\r\n  Result := '[]';\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetInitializeHolesArray: string;\r\nbegin\r\n  Result := '[]';\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetInitializeEvents: string;\r\nbegin\r\n  Result :=\r\n  '  ' + MAPVAR + '.on(''movestart'', MapMoveStart);' + LB +\r\n  '  ' + MAPVAR + '.on(''moveend'', MapMoveEnd);' + LB +\r\n  '  ' + MAPVAR + '.on(''zoomend'', MapZoomChanged);' + LB +\r\n  '  ' + MAPVAR + '.on(''click'', MapClick);' + LB +\r\n  '  ' + MAPVAR + '.on(''contextmenu'', MapRightClick);' + LB +\r\n  '  ' + MAPVAR + '.on(''dblclick'', MapDblClick);' + LB +\r\n  '  ' + MAPVAR + '.on(''mouseup'', MapMouseUp);' + LB +\r\n  '  ' + MAPVAR + '.on(''mousedown'', MapMouseDown);' + LB +\r\n  '  ' + MAPVAR + '.on(''mousemove'', MapMouseMove);' + LB;\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetInitializeMap: string;\r\nbegin\r\n  Result := Result +\r\n    '  ' + MAPBASELAYERVAR + ' = ' + MAPSERVICEVAR + '.tileLayer(\"' + MAPSOURCEVAR + '\", {' + LB +\r\n    '    maxZoom: 19,' + LB +\r\n    '  })' + LB +\r\n    '';\r\n\r\n  Result := Result +\r\n    '  ' + MAPBASELAYERVAR + '.on(''tileerror'', function(event){' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"Error\", \"Leaflet Tile error\"));' + LB +\r\n    '});';\r\n\r\n  Result := Result +\r\n    ' ' + MAPVAR + ' = ' + MAPSERVICEVAR + '.map(\"' + MAPID + '\", {' + LB +\r\n    '    center: [' + MapsProperties.GetDefaultLatitude + ', ' + MapsProperties.GetDefaultLongitude + '],' + LB +\r\n    '    zoom: ' + MapsProperties.GetDefaultZoomLevel + ',' + LB +\r\n\r\n    '    dragging: ' + BoolToStrEx(MapsProperties.GetPanning) + ',' + LB +\r\n    '    scrollWheelZoom: ' + BoolToStrEx(MapsProperties.GetZoomOnWheelScroll) + ',' + LB +\r\n    '    doubleClickZoom: ' + BoolToStrEx(MapsProperties.GetZoomOnDblClick) + ',' + LB +\r\n    '    zoomControl: ' + BoolToStrEx(MapsProperties.GetShowZoomControl) + ',' + LB +\r\n    '    layers: [' + MAPBASELAYERVAR + '],' + LB +\r\n    '  })' + LB + LB;\r\n\r\n  Result := Result +\r\n    '  ' + MAPVAR + '.removeControl(' + MAPVAR + '.attributionControl);' + LB +\r\n    '    var attr = ' + MAPSERVICEVAR + '.control.attribution();' + LB +\r\n    '    if (\"' + MAPATTRIBUTIONPREFIX + '\" != \"\") {' + LB +\r\n    '      attr.setPrefix(\"' + MAPATTRIBUTIONPREFIX + '\");' + LB +\r\n    '    }' + LB +\r\n    '    if (\"' + MAPATTRIBUTIONTEXT + '\" != \"\") {' + LB +\r\n    '      attr.addAttribution(\"' + MAPATTRIBUTIONTEXT + '\");' + LB +\r\n    '    }' + LB +\r\n    '    attr.addTo(' + MAPVAR + ');';\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetMapsServiceCheck: string;\r\nbegin\r\n  Result := '!' + MAPSERVICEVAR;\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetResetMap: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetSetCenterCoordinate: string;\r\nbegin\r\n  Result := '  ' + MAPVAR + '.setView([' + PARAMSNAME + '[\"Latitude\"], '  + PARAMSNAME + '[\"Longitude\"]]);';\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetSetZoomLevel: string;\r\nbegin\r\n  Result := '  ' + MAPVAR + '.setZoom(' + PARAMSNAME + ');';\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetClosePopup: string;\r\nbegin\r\n  Result := '  ' + MAPVAR + '.closePopup();' + LB;\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetShowPopup: string;\r\nbegin\r\n  Result :=\r\n  '  var lat = [' + PARAMSNAME + '[\"Latitude\"], ' + PARAMSNAME + '[\"Longitude\"]];' + LB +\r\n  '  ' + POPUPVAR + ' = ' + MAPSERVICEVAR + '.popup(lat, {' + LB +\r\n  '    offset: ' + MAPSERVICEVAR + '.point(' + PARAMSNAME + '[\"OffsetX\"], ' + PARAMSNAME + '[\"OffsetY\"]),' + LB +\r\n  '    content: ' + PARAMSNAME + '[\"Text\"],' + LB +\r\n  '    autoPan: ' + PARAMSNAME + '[\"PanMap\"],' + LB +\r\n  '  });' + LB +\r\n  '  ' + POPUPVAR + '.openOn(' + MAPVAR + ');';\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetUpdateOptions: string;\r\nbegin\r\n  Result := Result +\r\n    '  if (' + PARAMSNAME + '[\"ShowZoomControl\"]){' + LB +\r\n    '    ' + MAPVAR + '.addControl(' + MAPVAR + '.zoomControl);' + LB +\r\n    '  } else { ' + LB +\r\n    '    ' + MAPVAR + '.removeControl(' + MAPVAR + '.zoomControl);' + LB +\r\n    '  }';\r\n\r\n  Result := Result +\r\n    '  if (' + PARAMSNAME + '[\"ZoomOnWheelScroll\"]){' + LB +\r\n    '    ' + MAPVAR + '.scrollWheelZoom.enable();' + LB +\r\n    '  } else { ' + LB +\r\n    '    ' + MAPVAR + '.scrollWheelZoom.disable();' + LB +\r\n    '  }';\r\n\r\n  Result := Result +\r\n    '  if (' + PARAMSNAME + '[\"ZoomOnDblClick\"]){' + LB +\r\n    '    ' + MAPVAR + '.doubleClickZoom.enable();' + LB +\r\n    '  } else { ' + LB +\r\n    '    ' + MAPVAR + '.doubleClickZoom.disable();' + LB +\r\n    '  }';\r\n\r\n  Result := Result +\r\n    '  if (' + PARAMSNAME + '[\"Panning\"]){' + LB +\r\n    '    ' + MAPVAR + '.dragging.enable();' + LB +\r\n    '  } else { ' + LB +\r\n    '    ' + MAPVAR + '.dragging.disable();' + LB +\r\n    '  }';\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.GetZoomToBounds: string;\r\nbegin\r\n  Result := MAPVAR + '.fitBounds([[' + PARAMSNAME + '[\"SouthWest\"][\"Latitude\"],' + PARAMSNAME + '[\"SouthWest\"][\"Longitude\"]], ' +\r\n   '[' + PARAMSNAME + '[\"NorthEast\"][\"Latitude\"], ' + PARAMSNAME + '[\"NorthEast\"][\"Longitude\"]]])';\r\nend;\r\n\r\nfunction TTMSFNCMapsLeaflet.IsValid: Boolean;\r\nbegin\r\n  Result := True;\r\nend;\r\n\r\nprocedure TTMSFNCMapsLeaflet.RemoveScripts;\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  asm\r\n    if (window.L){\r\n      window.L = undefined;\r\n    }\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCMaps.MapBox;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nprocedure RegisterMapBoxService;\r\nprocedure UnRegisterMapBoxService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCMaps, WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\nconst\r\n  MAJ_VER = 2; // Major version nr.\r\n  MIN_VER = 1; // Minor version nr.\r\n  REL_VER = 0; // Release nr.\r\n  BLD_VER = 0; // Build nr.\r\n\r\n  //v1.0.0.0: First release\r\n  //v1.0.1.0: New : API version updated\r\n  //v2.0.0.0: New : API version updated from v2.15 to v3.5.1\r\n  //v2.0.0.0: New : Support for 3D Maps\r\n  //v2.1.0.0: New : OnError event added\r\n\r\ntype\r\n  TTMSFNCMapsMapBoxService = class;\r\n\r\n  TTMSFNCMapsMapBoxFactoryService = class(TTMSFNCMapsFactoryService, ITMSFNCMapsServiceMapBox);\r\n\r\n  TTMSFNCMapsMapBoxService = class(TTMSFNCMapsMapBoxFactoryService)\r\n  protected\r\n    function DoCreateMaps: ITMSFNCCustomMaps; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCMapsMapBox = class;\r\n\r\n  TTMSFNCMapsMapBox = class(TTMSFNCCustomMapsInterfacedObject, ITMSFNCCustomMaps)\r\n  protected\r\n    procedure GetHeadLinks(const AList: TTMSFNCMapsLinksList);\r\n    procedure RemoveScripts;\r\n    function GetResetMap: string;\r\n    function GetShowPopup: string;\r\n    function GetClosePopup: string;\r\n    function GetHeadStyle: string;\r\n    function GetDelayLoadEvent: string;\r\n    function GetMapsServiceCheck: string;\r\n    function GetIdentifier: string;\r\n    function GetInitializeMap: string;\r\n    function GetInitializeEvents: string;\r\n    function GetAddOrUpdateMarker: string;\r\n    function GetDeleteMarker: string;\r\n    function GetAddOrUpdatePolyElement: string;\r\n    function GetDeletePolyElement: string;\r\n    function GetZoomToBounds: string;\r\n    function GetGetBounds: string;\r\n    function GetSetCenterCoordinate: string;\r\n    function GetGetCenterCoordinate: string;\r\n    function GetGetZoomLevel: string;\r\n    function GetSetZoomLevel: string;\r\n    function GetLatLonToXY: string;\r\n    function GetXYToLatLon: string;\r\n    function GetUpdateOptions: string;\r\n    function GetGlobalVariables: string;\r\n    function GetAddCoordinateToArray: string;\r\n    function GetAddHoleToArray: string;\r\n    function GetInitializeCoordinateArray: string;\r\n    function GetInitializeHolesArray: string;\r\n    function IsValid: Boolean;\r\n    procedure DestroyMaps;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  MapsService: ITMSFNCMapsServiceMapBox;\r\n\r\nconst\r\n  MAPBOXAPIURL = 'https://api.tiles.mapbox.com/mapbox-gl-js/';\r\n  MAPSERVICEVAR = 'window.mapboxgl';\r\n  MAPZOOMCONTROLVAR = 'mapZoomControl';\r\n  MAPCONTROLARRAYVAR = 'mapControls';\r\n\r\nprocedure RegisterMapBoxService;\r\nbegin\r\n  if not TTMSFNCMapsPlatformServices.Current.SupportsPlatformService(ITMSFNCMapsServiceMapBox, IInterface(MapsService)) then\r\n  begin\r\n    MapsService := TTMSFNCMapsMapBoxService.Create;\r\n    TTMSFNCMapsPlatformServices.Current.AddPlatformService(ITMSFNCMapsServiceMapBox, MapsService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterMapBoxService;\r\nbegin\r\n  TTMSFNCMapsPlatformServices.Current.RemovePlatformService(ITMSFNCMapsServiceMapBox);\r\nend;\r\n\r\n{ TTMSFNCMapsMapBoxService }\r\n\r\nfunction TTMSFNCMapsMapBoxService.DoCreateMaps: ITMSFNCCustomMaps;\r\nbegin\r\n  Result := TTMSFNCMapsMapBox.Create;\r\nend;\r\n\r\nconstructor TTMSFNCMapsMapBox.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCMapsMapBox.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCMapsMapBox.DestroyMaps;\r\nbegin\r\n  MapsService.DestroyMaps(Self);\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetAddCoordinateToArray: string;\r\nbegin\r\n  Result := '  ' + COORDINATEARRAYVAR + '.push([' + PARAMSNAME + '[\"Longitude\"], ' + PARAMSNAME + '[\"Latitude\"]]);';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetAddHoleToArray: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetAddOrUpdateMarker: string;\r\nbegin\r\n  Result :=\r\n  '  var loc = [' + PARAMSNAME + '[\"Longitude\"], ' + PARAMSNAME + '[\"Latitude\"]]' + LB + LB +\r\n\r\n  '  if (!' + MARKERVAR + '){' + LB +\r\n  '    var el = document.createElement(''div'');' + LB +\r\n  '    el.style.width = ''48px'';' + LB +\r\n  '    el.style.height = ''48px'';' + LB +\r\n  '    el.style.zIndex = ' + PARAMSNAME + '[\"ZIndex\"];' + LB +\r\n  '    el.innerHTML = ''<img src=\"' + DEFAULT_ICONURL + '\"></img>'';' + LB +\r\n\r\n  '    ' + MARKERVAR + ' = new ' + MAPSERVICEVAR + '.Marker({anchor: \"bottom\", element: el, draggable:' + PARAMSNAME + '[\"Draggable\"]});' + LB +\r\n\r\n  '    ' + MARKERVAR + '.setLngLat(loc).addTo(' + MAPVAR + ');' + LB +\r\n  '    el.addEventListener(''click'', function(event){' + LB +\r\n  '      event.stopPropagation();' + LB +\r\n  '      if (' + PARAMSNAME + '[\"Title\"] != \"\"){' + LB +\r\n  '        var popup = new ' + MAPSERVICEVAR + '.Popup({ closeOnClick: true, maxWidth: \"none\", offset: [0, -30]}).setLngLat(loc).setHTML(' + PARAMSNAME + '[\"Title\"]).addTo(' + MAPVAR + ');' + LB +\r\n  '      }' + LB +\r\n  '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n  '    })' + LB + LB +\r\n  '    el.addEventListener(''contextmenu'', function(event){' + LB +\r\n  '      event.stopPropagation();' + LB +\r\n  '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerRightClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n  '    })' + LB + LB +\r\n  '    el.addEventListener(''dblclick'', function(event){' + LB +\r\n  '      event.stopPropagation();' + LB +\r\n  '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerDblClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n  '    })' + LB + LB +\r\n  '    el.addEventListener(''mouseup'', function(event){' + LB +\r\n  '      if (!' + PARAMSNAME + '[\"Draggable\"]){' + LB +\r\n  '        event.stopPropagation();' + LB +\r\n  '      }' + LB +\r\n  '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseUp\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n  '    } )' + LB + LB +\r\n  '    el.addEventListener(''mousedown'', function(event){' + LB +\r\n  '      if (!' + PARAMSNAME + '[\"Draggable\"]){' + LB +\r\n  '        event.stopPropagation();' + LB +\r\n  '      }' + LB +\r\n  '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseDown\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n  '    })' + LB + LB +\r\n  '    el.addEventListener(''mouseout'', function(event){' + LB +\r\n  '      event.stopPropagation();' + LB +\r\n  '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseLeave\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n  '    })' + LB + LB +\r\n  '    el.addEventListener(''mouseover'', function(event){' + LB +\r\n  '      event.stopPropagation();' + LB +\r\n  '      ' + GETSENDEVENT + '(parseEvent(event, \"MarkerMouseEnter\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n  '    })' + LB + LB +\r\n  '  }else{' + LB +\r\n  '    ' + MARKERVAR + '.setLngLat(loc);' + LB +\r\n  '  }' + LB + LB +\r\n\r\n  MARKERVAR + '.setDraggable(' + PARAMSNAME + '[\"Draggable\"]);' + LB +\r\n\r\n  'function onDragEnd() {' + LB +\r\n  '  const lngLat = ' + MARKERVAR + '.getLngLat();' + LB +\r\n  '  var jsonObj = getDefaultCoordinateObject();' + LB +\r\n  '  jsonObj[\"Latitude\"] = lngLat.latitude;' + LB +\r\n  '  jsonObj[\"Longitude\"] = lngLat.longitude;' + LB +\r\n  '  ' + GETSENDEVENT + '(parseEvent(event, \"MarkerDragEnd\", ' + PARAMSNAME + '[\"ID\"]), jsonObj);' + LB +\r\n  '}' + LB +\r\n\r\n  MARKERVAR + '.on(''dragend'', onDragEnd)' + LB +\r\n\r\n  '  var elx = ' + MARKERVAR + '.getElement();' + LB +\r\n  '  if (elx){' + LB +\r\n\r\n  '  var markericon = ' + CUSTOMDEFAULTMARKERICON + '(' +\r\n    PARAMSNAME + '[\"DefaultIcon\"],' + LB +\r\n    PARAMSNAME + '[\"IconURL\"]);' + LB +\r\n\r\n  '    if (markericon != \"\"){' + LB +\r\n  '      var mimg = document.createElement(''img'');' +\r\n  '      mimg.src = markericon;' +\r\n  '      elx.innerHTML = mimg.outerHTML;' + LB +\r\n  '      if (' + PARAMSNAME + '[\"DefaultIcon\"][\"Enabled\"]) {' + LB +\r\n  '        elx.style.width = ' + PARAMSNAME + '[\"DefaultIcon\"][\"Size\"] + \"px\";' + LB +\r\n  '        elx.style.height = ' + PARAMSNAME + '[\"DefaultIcon\"][\"Size\"] + \"px\";' + LB +\r\n  '      }' + LB +\r\n  '    }' + LB +\r\n  '    if (' + PARAMSNAME + '[\"Visible\"]){' + LB +\r\n  '      elx.style.visibility = \"visible\";' + LB +\r\n  '    }else{' + LB +\r\n  '      elx.style.visibility = \"hidden\";' + LB +\r\n  '    }' + LB +\r\n  '  }';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetAddOrUpdatePolyElement: string;\r\nbegin\r\n  Result :=\r\n    '  var c = ' + PARAMSNAME + '[\"$type\"];' + LB +\r\n    '  var pg, dpg, pl, dpl, spg, spl;' + LB +\r\n    '  var co = [];' + LB +\r\n\r\n    '  switch(c){' + LB +\r\n    '    case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '      co.push([' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Longitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Latitude\"]]);' + LB +\r\n    '      co.push([' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Longitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Latitude\"]]);' + LB +\r\n    '      co.push([' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Longitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Latitude\"]]);' + LB +\r\n    '      co.push([' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Longitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Latitude\"]]);' + LB +\r\n    '      co.push([' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Longitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Latitude\"]]);' + LB +\r\n    '    break;' + LB +\r\n    '    case \"TTMSFNCMapsCircle\":' + LB +\r\n    '      co = createCircle(' + PARAMSNAME + '[\"Center\"], ' + PARAMSNAME + '[\"Radius\"], true);' + LB +\r\n    '    break;' + LB +\r\n    '    default:' + LB +\r\n    '      co = ' + COORDINATEARRAYVAR + ';' + LB +\r\n    '    break;' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  switch(c){' + LB +\r\n    '    case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '    case \"TTMSFNCMapsCircle\":' + LB +\r\n    '    case \"TTMSFNCMapsPolygon\":' + LB +\r\n    '      dpg = {' + LB +\r\n    '      ''type'': ''Feature'',' + LB +\r\n    '        ''geometry'': {' + LB +\r\n    '          ''type'': ''Polygon'',' + LB +\r\n    '          ''coordinates'': [co]' + LB +\r\n    '        }' + LB +\r\n    '      }' + LB + LB +\r\n\r\n    '      spg = {' + LB +\r\n    '        ''type'': ''geojson'',' + LB +\r\n    '        ''data'': dpg' + LB +\r\n    '      };' + LB +\r\n\r\n    '      pg = {' + LB +\r\n    '        ''id'': ' + PARAMSNAME + '[\"ID\"] + \"_polygon\",' + LB +\r\n    '        ''type'': ''fill'',' + LB +\r\n    '        ''source'': spg, ' + LB +\r\n    '        ''layout'': {' + LB +\r\n    '          ''visibility'': (' + PARAMSNAME + '[\"Visible\"] ? ''visible'' : ''none'')' + LB +\r\n    '        },' + LB +\r\n    '        ''paint'': {' + LB +\r\n    '          ''fill-color'': ' + PARAMSNAME + '[\"FillColor\"],' + LB +\r\n    '          ''fill-opacity'': ' + PARAMSNAME + '[\"FillOpacity\"],' + LB +\r\n    '        }' + LB +\r\n    '      };' + LB + LB +\r\n\r\n    '      co.push(co[0]);' + LB +\r\n    '    break;' + LB +\r\n    '  }' + LB +\r\n\r\n    '  dpl = {' + LB +\r\n    '    ''type'': ''Feature'',' + LB +\r\n    '    ''geometry'': {' + LB +\r\n    '      ''type'': ''LineString'',' + LB +\r\n    '      ''coordinates'': co' + LB +\r\n    '    }' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  spl = {' + LB +\r\n    '    ''type'': ''geojson'',' + LB +\r\n    '    ''data'': dpl' + LB +\r\n    '  };' + LB +\r\n\r\n    '  pl = {' + LB +\r\n    '    ''id'': ' + PARAMSNAME + '[\"ID\"] + \"_polyline\",' + LB +\r\n    '    ''type'': ''line'',' + LB +\r\n    '    ''source'': spl, ' + LB +\r\n    '    ''layout'': {' + LB +\r\n    '      ''visibility'': (' + PARAMSNAME + '[\"Visible\"] ? ''visible'' : ''none'')' + LB +\r\n    '    },' + LB +\r\n    '    ''paint'': {' + LB +\r\n    '      ''line-color'': ' + PARAMSNAME + '[\"StrokeColor\"],' + LB +\r\n    '        ''line-opacity'': ' + PARAMSNAME + '[\"StrokeOpacity\"],' + LB +\r\n    '        ''line-width'': ' + PARAMSNAME + '[\"StrokeWidth\"],' + LB +\r\n    '    }' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  if (!' + POLYELEMENTVAR + '){' + LB +\r\n    '    switch(c){' + LB +\r\n    '      case \"TTMSFNCMapsPolyline\":' + LB +\r\n    '    ' + MAPVAR + '.addLayer(pl);' + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCMapsCircle\":' + LB +\r\n    '      case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '      case \"TTMSFNCMapsPolygon\":' + LB +\r\n    '    ' + MAPVAR + '.addLayer(pg);' + LB +\r\n    '    ' + MAPVAR + '.addLayer(pl);' + LB +\r\n    '      break;' + LB +\r\n    '    }' + LB +\r\n\r\n    '    if (pg) {' + LB +\r\n    '      ' + MAPVAR + '.on(''click'', pg.id, function(event){' + LB +\r\n    '        activeElement = pl;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.on(''dblclick'', pg.id, function(event){' + LB +\r\n    '        activeElement = pl;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementDblClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.on(''contextmenu'', pg.id, function(event){' + LB +\r\n    '        activeElement = pl;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementRightClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.on(''mouseup'', pg.id, function(event){' + LB +\r\n    '        activeElement = pl;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseUp\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.on(''mousedown'', pg.id, function(event){' + LB +\r\n    '        activeElement = pl;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseDown\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '     ' + MAPVAR + '.on(''mouseout'', pg.id, function(event){' + LB +\r\n    '        activeElement = pl;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseLeave\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.on(''mouseover'', pg.id, function(event){' + LB +\r\n    '        activeElement = pl;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseEnter\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB +\r\n    '    }' + LB + LB +\r\n\r\n    '    if (pl && !pg) {' + LB +\r\n    '      ' + MAPVAR + '.on(''click'', pl.id, function(event){' + LB +\r\n    '        activeElement = pl;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.on(''contextmenu'', pl.id, function(event){' + LB +\r\n    '        activeElement = pl;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementRightClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.on(''dblclick'', pl.id, function(event){' + LB +\r\n    '        activeElement = pl;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementDblClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.on(''mouseup'', pl.id, function(event){' + LB +\r\n    '        activeElement = pl;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseUp\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.on(''mousedown'', pl.id, function(event){' + LB +\r\n    '        activeElement = pl;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseDown\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '     ' + MAPVAR + '.on(''mouseout'', pl.id, function(event){' + LB +\r\n    '        activeElement = pl;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseLeave\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB + LB +\r\n    '      ' + MAPVAR + '.on(''mouseover'', pl.id, function(event){' + LB +\r\n    '        activeElement = pl;' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementMouseEnter\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '      })' + LB +\r\n    '    }' + LB + LB +\r\n\r\n    GetInitializeEvents + LB + LB +\r\n\r\n    '  }else{' + LB +\r\n    '    if (pg) {' + LB +\r\n    '      var pgu = ' + MAPVAR + '.getLayer(pg.id);' + LB +\r\n    '      if (pgu){' + LB +\r\n    '        ' + MAPVAR + '.setLayoutProperty(pgu.id, ''visibility'', (' + PARAMSNAME + '[\"Visible\"] ? ''visible'' : ''none''));' + LB +\r\n    '        ' + MAPVAR + '.setPaintProperty(pgu.id, ''fill-color'', ' + PARAMSNAME + '[\"FillColor\"]);' + LB +\r\n    '        ' + MAPVAR + '.setPaintProperty(pgu.id, ''fill-opacity'', ' + PARAMSNAME + '[\"FillOpacity\"]);' + LB +\r\n    '        ' + MAPVAR + '.getSource(pgu.id).setData(dpg);' + LB +\r\n    '      }' + LB +\r\n    '    }' + LB +\r\n\r\n    '    if (pl) {' + LB +\r\n    '      var plu = ' + MAPVAR + '.getLayer(pl.id);' + LB +\r\n    '      if (plu){' + LB +\r\n    '        ' + MAPVAR + '.setLayoutProperty(plu.id, ''visibility'', (' + PARAMSNAME + '[\"Visible\"] ? ''visible'' : ''none''));' + LB +\r\n    '        ' + MAPVAR + '.setPaintProperty(plu.id, ''line-color'', ' + PARAMSNAME + '[\"StrokeColor\"]);' + LB +\r\n    '        ' + MAPVAR + '.setPaintProperty(plu.id, ''line-opacity'', ' + PARAMSNAME + '[\"StrokeOpacity\"]);' + LB +\r\n    '        ' + MAPVAR + '.setPaintProperty(plu.id, ''line-width'', ' + PARAMSNAME + '[\"StrokeWidth\"]);' + LB +\r\n    '        ' + MAPVAR + '.getSource(plu.id).setData(dpl);' + LB +\r\n    '      }' + LB +\r\n    '    }' + LB +\r\n    '  }' + LB +\r\n\r\n    '  ' + POLYELEMENTVAR + ' = ' + PARAMSNAME + '[\"ID\"]';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetClosePopup: string;\r\nbegin\r\n  Result := '  ' + POPUPVAR + '.remove();';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetDelayLoadEvent: string;\r\nbegin\r\n  Result := '  ' + MAPVAR + '.on(''load'', function () {';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetDeleteMarker: string;\r\nbegin\r\n  Result := '  ' + MARKERVAR + '.remove();';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetDeletePolyElement: string;\r\nbegin\r\n  Result :=\r\n    '  var pgu = ' + MAPVAR + '.getLayer(' + POLYELEMENTVAR + ' + \"_polygon\");' + LB +\r\n    '  if (pgu){' + LB +\r\n    '    ' + MAPVAR + '.removeLayer(' + POLYELEMENTVAR + ' + \"_polygon\");' + LB +\r\n    '  }' + LB +\r\n\r\n    '  var plu = ' + MAPVAR + '.getLayer(' + POLYELEMENTVAR + ' + \"_polyline\");' + LB +\r\n    '  if (plu){' + LB +\r\n    '    ' + MAPVAR + '.removeLayer(' + POLYELEMENTVAR + ' + \"_polyline\");' + LB +\r\n    '  }';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetGetBounds: string;\r\nbegin\r\n  Result :=\r\n    '  var loc = ' + MAPVAR + '.getBounds();' + LB +\r\n    '  jsonObj[\"NorthEast\"][\"Latitude\"] = loc.getNorthEast().lat;' + LB +\r\n    '  jsonObj[\"NorthEast\"][\"Longitude\"] = loc.getNorthEast().lng;' + LB +\r\n    '  jsonObj[\"SouthWest\"][\"Latitude\"] = loc.getSouthWest().lat;' + LB +\r\n    '  jsonObj[\"SouthWest\"][\"Longitude\"] = loc.getSouthWest().lng;';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetGetCenterCoordinate: string;\r\nbegin\r\n  Result :=\r\n    '  var loc = ' + MAPVAR + '.getCenter();' + LB +\r\n    '  jsonObj[\"Latitude\"] = loc.lat;' + LB +\r\n    '  jsonObj[\"Longitude\"] = loc.lng;';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetLatLonToXY: string;\r\nbegin\r\n  Result :=\r\n    '  var coordinate = [' + PARAMSNAME + '[\"Longitude\"], ' + PARAMSNAME + '[\"Latitude\"]];' + LB +\r\n    '  var point = ' + MAPVAR +'.project(coordinate);' + LB +\r\n    '  jsonObj[\"X\"] = parseFloat(point.x);' + LB +\r\n    '  jsonObj[\"Y\"] = parseFloat(point.y);';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetXYToLatLon: string;\r\nbegin\r\n  Result :=\r\n    '  var point = [' + PARAMSNAME + '[\"X\"], ' + PARAMSNAME + '[\"Y\"]];' + LB +\r\n    '  var coordinate = ' + MAPVAR +'.unproject(point);' + LB +\r\n    '  jsonObj[\"Latitude\"] = parseFloat(coordinate.lat);' + LB +\r\n    '  jsonObj[\"Longitude\"] = parseFloat(coordinate.lng);';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetGetZoomLevel: string;\r\nbegin\r\n  Result := '  var z = ' + MAPVAR + '.getZoom();';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetGlobalVariables: string;\r\nbegin\r\n  Result :=\r\n    'var activeElement = null;' + LB +\r\n    'var ' + MAPZOOMCONTROLVAR + ';' + LB +\r\n    'var ' + MAPCONTROLARRAYVAR + ' = [];' + LB +\r\n    'var mouseLatLng = {''Latitude'': 0, ''Longitude'': 0};' + LB +\r\n    'function parseEvent(event, eventname, id = ''''){' + LB +\r\n    '  var loc = {''Latitude'': 0, ''Longitude'': 0};' + LB +\r\n    '  var x = 0.0;' + LB +\r\n    '  var y = 0.0;' + LB +\r\n    '  if ((eventname == \"MapMoveStart\") || (eventname == \"MapMoveEnd\")){ ' +\r\n    '    var ptcenter = ' + MAPVAR + '.getCenter();' + LB +\r\n    '    var lat = ptcenter.lat;' + LB +\r\n    '    var lng = ptcenter.lng;' + LB +\r\n    '  loc = {''Latitude'': lat, ''Longitude'': lng};' + LB +\r\n    '  } else if (event) {' + LB +\r\n    '    if (event.clientX && event.clientY){' + LB +\r\n    '      x = event.clientX;' + LB +\r\n    '      y = event.clientY;' + LB +\r\n    '      loc = mouseLatLng;' + LB +\r\n    '    }' + LB +\r\n    '    else{' + LB +\r\n    '      if (event.lngLat){' + LB +\r\n    '        loc = {''Latitude'': event.lngLat.lat, ''Longitude'': event.lngLat.lng};' + LB +\r\n    '        mouseLatLng = loc;' + LB +\r\n    '      }' + LB +\r\n    '      if (event.point){' + LB +\r\n    '        x = event.point.x;' + LB +\r\n    '        y = event.point.y;' + LB +\r\n    '      }' + LB +\r\n    '    }' + LB +\r\n    '  }' + LB +\r\n\r\n    '  var r = {''Coordinate'': loc, ''X'': x, ''Y'': y, ''ID'': id, ''EventName'': eventname};' + LB +\r\n    '  return r;' + LB +\r\n    '}' + LB + LB +\r\n\r\n    'function MapMoveStart(event){' + LB +\r\n    '  if (activeElement){' + LB +\r\n    '    activeElement = null;' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMoveStart\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapMoveEnd(event){' + LB +\r\n    '  if (activeElement){' + LB +\r\n    '    activeElement = null;' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMoveEnd\"));' + LB +\r\n    '}' + LB + LB +\r\n\r\n    'function MapClick(event){' + LB +\r\n    '  if (activeElement){' + LB +\r\n    '    activeElement = null;' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapClick\"));' + LB +\r\n    '}' + LB + LB +\r\n\r\n    'function MapRightClick(event){' + LB +\r\n    '  if (activeElement){' + LB +\r\n    '    activeElement = null;' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapRightClick\"));' + LB +\r\n    '}' + LB + LB +\r\n\r\n    'function MapDblClick(event){' + LB +\r\n    '  if (activeElement){' + LB +\r\n    '    activeElement = null;' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapDblClick\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapMouseDown(event){' + LB +\r\n    '  if (activeElement){' + LB +\r\n    '    activeElement = null;' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseDown\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapMouseUp(event){' + LB +\r\n    '  if (activeElement){' + LB +\r\n    '    activeElement = null;' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseUp\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapMouseLeave(event){' + LB +\r\n    '  if (activeElement){' + LB +\r\n    '    activeElement = null;' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseLeave\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapMouseEnter(event){' + LB +\r\n    '  if (activeElement){' + LB +\r\n    '    activeElement = null;' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMousEnter\"));' + LB +\r\n    '}' + LB + LB +\r\n    'function MapMouseMove(event){' + LB +\r\n    '  if (activeElement){' + LB +\r\n    '    activeElement = null;' + LB +\r\n    '    return;' + LB +\r\n    '  }' + LB +\r\n    '  ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseMove\"));' + LB +\r\n    '}';\r\nend;\r\n\r\nprocedure TTMSFNCMapsMapBox.GetHeadLinks(const AList: TTMSFNCMapsLinksList);\r\nvar\r\n  APIVersion: string;\r\nbegin\r\n  if MapsProperties.GetAPIVersion = '' then\r\n    APIVersion := 'v3.5.1'\r\n  else\r\n    APIVersion := 'v' + MapsProperties.GetAPIVersion;\r\n\r\n  AList.Add(TTMSFNCMapsLink.CreateLink(MAPBOXAPIURL + APIVersion + '/mapbox-gl.css', 'text/css', 'stylesheet'));\r\n  AList.Add(TTMSFNCMapsLink.CreateScript(MAPBOXAPIURL + APIVersion + '/mapbox-gl.js', 'text/javascript'));\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetHeadStyle: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetIdentifier: string;\r\nbegin\r\n  Result := 'MapBox';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetInitializeCoordinateArray: string;\r\nbegin\r\n  Result := '[]';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetInitializeHolesArray: string;\r\nbegin\r\n  Result := '[]';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetInitializeEvents: string;\r\nbegin\r\n  Result :=\r\n  '  ' + MAPVAR + '.on(''error'', function(e){' + LB +\r\n    '      ' + GETSENDEVENT + '(parseEvent(event, \"Error\", e.error.message));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.on(''zoomend'', function(){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(null, \"ZoomChanged\"));' + LB +\r\n  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.on(''moveend'', function(){' + LB +\r\n  '    ' + GETSENDEVENT + '(parseEvent(null, \"MapCenterChanged\"));' + LB +\r\n  '  })' + LB + LB +\r\n//  '  ' + MAPVAR + '.on(''maptypeid_changed'', function(){' + LB +\r\n//  '    ' + GETSENDEVENT + '(parseEvent(null, \"MapTypeChanged\"));' + LB +\r\n//  '  })' + LB + LB +\r\n  '  ' + MAPVAR + '.off(''dragstart'', MapMoveStart);' + LB +\r\n  '  ' + MAPVAR + '.on(''dragstart'', MapMoveStart);' + LB +\r\n  '  ' + MAPVAR + '.off(''dragend'', MapMoveEnd);' + LB +\r\n  '  ' + MAPVAR + '.on(''dragend'', MapMoveEnd);' + LB +\r\n  '  ' + MAPVAR + '.off(''click'', MapClick);' + LB +\r\n  '  ' + MAPVAR + '.on(''click'', MapClick);' + LB +\r\n  '  ' + MAPVAR + '.off(''contextmenu'', MapRightClick);' + LB +\r\n  '  ' + MAPVAR + '.on(''contextmenu'', MapRightClick);' + LB +\r\n  '  ' + MAPVAR + '.off(''dblclick'', MapDblClick);' + LB +\r\n  '  ' + MAPVAR + '.on(''dblclick'', MapDblClick);' + LB +\r\n  '  ' + MAPVAR + '.off(''mouseup'', MapMouseUp);' + LB +\r\n  '  ' + MAPVAR + '.on(''mouseup'', MapMouseUp);' + LB +\r\n  '  ' + MAPVAR + '.off(''mousedown'', MapMouseDown);' + LB +\r\n  '  ' + MAPVAR + '.on(''mousedown'', MapMouseDown);' + LB +\r\n  '  ' + MAPVAR + '.off(''mouseout'', MapMouseLeave);' + LB +\r\n  '  ' + MAPVAR + '.on(''mouseout'', MapMouseLeave);' + LB +\r\n  '  ' + MAPVAR + '.off(''mouseover'', MapMouseEnter);' + LB +\r\n  '  ' + MAPVAR + '.on(''mouseover'', MapMouseEnter);' + LB +\r\n  '  ' + MAPVAR + '.off(''mousemove'', MapMouseMove);' + LB +\r\n  '  ' + MAPVAR + '.on(''mousemove'', MapMouseMove);';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetInitializeMap: string;\r\nvar\r\n  v: string;\r\nbegin\r\n  v := MAPSERVICEVAR;\r\n  Result :=\r\n    '  ' + v + '.accessToken = \"' + MapsProperties.GetAPIKey + '\";' + LB +\r\n    '  ' + MAPVAR + ' = new ' + v + '.Map({' + LB +\r\n    '    container: \"' + MAPID +'\", ' + LB +\r\n//    '    style: \"mapbox://styles/mapbox/standard\",' + LB +\r\n    '    style: \"mapbox://styles/mapbox/streets-v12\",' + LB +\r\n    '    center: [' + MapsProperties.GetDefaultLongitude + ', ' + MapsProperties.GetDefaultLatitude +'], ' + LB +\r\n    '    zoom: ' + MapsProperties.GetDefaultZoomLevel + LB +\r\n    '  });' + LB + LB;\r\n\r\n    Result := Result + '  ' + MAPZOOMCONTROLVAR + ' = new ' + MAPSERVICEVAR + '.NavigationControl();' + LB;\r\n\r\n    if MapsProperties.GetShowZoomControl then\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPVAR + '.addControl(' + MAPZOOMCONTROLVAR + ');' + LB +\r\n      '  ' + MAPCONTROLARRAYVAR + '.push(' + MAPZOOMCONTROLVAR + ');' + LB + LB;\r\n    end;\r\n\r\n    if MapsProperties.GetZoomOnDblClick then\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPVAR + '.doubleClickZoom.enable();' + LB + LB;\r\n    end\r\n    else\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPVAR + '.doubleClickZoom.disable();' + LB + LB;\r\n    end;\r\n\r\n    if MapsProperties.GetZoomOnWheelScroll then\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPVAR + '.scrollZoom.enable();' + LB + LB;\r\n    end\r\n    else\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPVAR + '.scrollZoom.disable();' + LB + LB;\r\n    end;\r\n\r\n    if MapsProperties.GetPanning then\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPVAR + '.dragPan.enable();' + LB + LB;\r\n    end\r\n    else\r\n    begin\r\n      Result := Result +\r\n      '  ' + MAPVAR + '.dragPan.disable();' + LB + LB;\r\n    end;\r\n\r\n    Result := Result + '  ' + MAPVAR + '.on(''load'', function(){' +\r\n\r\n//    '  '  + MAPVAR + '.setLayoutProperty(''country-label'', ''text-field'', [''get'',''name_' + MapsProperties.GetLocale(mlmCountry) + ''']);' + LB +\r\n\r\n    '});'+\r\n\r\n    '' + MAPVAR + '.on(\"sourcedata\", function (e) {' + LB +\r\n    '    console.log(\"sourcedata loaded \" + e.sourceId);' +\r\n    '    if (e.sourceId === \"earthquakes\" && e.isSourceLoaded) {' + LB +\r\n    '        console.log(\"Earthquake data loaded:\", e.source.data);' + LB +\r\n    '    }' + LB +\r\n    '});' + LB +\r\n\r\n    '';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetMapsServiceCheck: string;\r\nbegin\r\n  Result := '!' + MAPSERVICEVAR;\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetResetMap: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetSetCenterCoordinate: string;\r\nbegin\r\n  Result := '  ' + MAPVAR + '.flyTo({duration: 0, center: [' + PARAMSNAME + '[\"Longitude\"],' + PARAMSNAME + '[\"Latitude\"]]});';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetSetZoomLevel: string;\r\nbegin\r\n  Result := '  ' + MAPVAR + '.setZoom(' + PARAMSNAME + ');';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetShowPopup: string;\r\nbegin\r\n  Result :=\r\n    '  var loc = [' + PARAMSNAME + '[\"Longitude\"], ' + PARAMSNAME + '[\"Latitude\"]]' + LB +\r\n    POPUPVAR + ' = new ' + MAPSERVICEVAR + '.Popup({ closeOnClick: true, maxWidth: \"none\", offset: [' + PARAMSNAME + '[\"OffsetX\"], ' + PARAMSNAME + '[\"OffsetY\"]]}).setLngLat(loc).setHTML(' + PARAMSNAME + '[\"Text\"]).addTo(' + MAPVAR + ');';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetUpdateOptions: string;\r\nbegin\r\n  Result := Result +\r\n    '  ' + MAPCONTROLARRAYVAR + '.forEach(removeElement);' + LB +\r\n    '  function removeElement(value){' + LB +\r\n    '    ' + MAPVAR + '.removeControl(value);' + LB +\r\n    '  }' + LB +\r\n    '  ' + MAPCONTROLARRAYVAR + ' = [];' + LB + LB;\r\n\r\n  Result := Result +\r\n    '  if (' + PARAMSNAME + '[\"ShowZoomControl\"]){' + LB +\r\n    '    ' + MAPVAR + '.addControl(' + MAPZOOMCONTROLVAR + ');' + LB +\r\n    '    ' + MAPCONTROLARRAYVAR + '.push(' + MAPZOOMCONTROLVAR + ');' + LB +\r\n    '  }' + LB + LB;\r\n\r\n  Result := Result +\r\n    '  if (' + PARAMSNAME + '[\"ZoomOnDblClick\"]){' + LB +\r\n    '    ' + MAPVAR + '.doubleClickZoom.enable();' + LB +\r\n    '  }' + LB +\r\n    '  else{' + LB +\r\n    '    ' + MAPVAR + '.doubleClickZoom.disable();' + LB +\r\n    '  }' + LB + LB;\r\n\r\n  Result := Result +\r\n    '  if (' + PARAMSNAME + '[\"ZoomOnWheelScroll\"]){' + LB +\r\n    '    ' + MAPVAR + '.scrollZoom.enable();' + LB +\r\n    '  }' + LB +\r\n    '  else{' + LB +\r\n    '    ' + MAPVAR + '.scrollZoom.disable();' + LB +\r\n    '  }' + LB + LB;\r\n\r\n  Result := Result +\r\n    '  if (' + PARAMSNAME + '[\"Panning\"]){' + LB +\r\n    '    ' + MAPVAR + '.dragPan.enable();' + LB +\r\n    '  }' + LB +\r\n    '  else{' + LB +\r\n    '    ' + MAPVAR + '.dragPan.disable();' + LB +\r\n    '  }' + LB + LB;\r\n\r\n  Result := Result + '  ' + MAPVAR + '.setLayoutProperty(''country-label'', ''text-field'', [''get'',''name_'' + ' + PARAMSNAME + '[\"Locale\"] + '''']);';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.GetZoomToBounds: string;\r\nbegin\r\n  Result :=\r\n    '  var sw = [' + PARAMSNAME + '[\"SouthWest\"][\"Longitude\"], ' + PARAMSNAME + '[\"SouthWest\"][\"Latitude\"]];' + LB +\r\n    '  var ne = [' + PARAMSNAME + '[\"NorthEast\"][\"Longitude\"], ' + PARAMSNAME + '[\"NorthEast\"][\"Latitude\"]];' + LB +\r\n    '  ' + MAPVAR + '.fitBounds([sw, ne], {duration: 0});';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapBox.IsValid: Boolean;\r\nbegin\r\n  Result := (MapsProperties.GetAPIKey <> '');\r\nend;\r\n\r\nprocedure TTMSFNCMapsMapBox.RemoveScripts;\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  asm\r\n    if (window.mapboxgl){\r\n      window.mapboxgl = undefined;\r\n    }\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nend.\r\n\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2023                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCMaps.MapKit;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nconst\r\n  MAPSERVICEVAR = 'window.mapkit';\r\n\r\nprocedure RegisterMapKitService;\r\nprocedure UnRegisterMapKitService;\r\n\r\nimplementation\r\n\r\nuses\r\n  Classes, Math, DateUtils, Types, SysUtils, WEBLib.TMSFNCMaps, WEBLib.TMSFNCUtils, WEBLib.TMSFNCTypes, WEBLib.TMSFNCMapsCommonTypes\r\n  {$IFDEF WEBLIB}\r\n  ,Contnrs, Web\r\n  {$ENDIF}\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections, Generics.Defaults\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  , UITypes\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  ;\r\n\r\ntype\r\n  TTMSFNCMapsMapKitService = class;\r\n\r\n  TTMSFNCMapsMapKitFactoryService = class(TTMSFNCMapsFactoryService, ITMSFNCMapsServiceMapKit);\r\n\r\n  TTMSFNCMapsMapKitService = class(TTMSFNCMapsMapKitFactoryService)\r\n  protected\r\n    function DoCreateMaps: ITMSFNCCustomMaps; override;\r\n  end;\r\n\r\ntype\r\n  TTMSFNCMapsMapKit = class;\r\n\r\n  TTMSFNCMapsMapKit = class(TTMSFNCCustomMapsInterfacedObject, ITMSFNCCustomMaps)\r\n  protected\r\n    procedure GetHeadLinks(const AList: TTMSFNCMapsLinksList);\r\n    procedure RemoveScripts;\r\n    function GetResetMap: string;\r\n    function GetShowPopup: string;\r\n    function GetClosePopup: string;\r\n    function GetHeadStyle: string;\r\n    function GetDelayLoadEvent: string;\r\n    function GetMapsServiceCheck: string;\r\n    function GetIdentifier: string;\r\n    function GetInitializeMap: string;\r\n    function GetInitializeEvents: string;\r\n    function GetAddOrUpdateMarker: string;\r\n    function GetDeleteMarker: string;\r\n    function GetAddOrUpdatePolyElement: string;\r\n    function GetDeletePolyElement: string;\r\n    function GetZoomToBounds: string;\r\n    function GetGetBounds: string;\r\n    function GetSetCenterCoordinate: string;\r\n    function GetGetCenterCoordinate: string;\r\n    function GetGetZoomLevel: string;\r\n    function GetSetZoomLevel: string;\r\n    function GetLatLonToXY: string;\r\n    function GetXYToLatLon: string;\r\n    function GetUpdateOptions: string;\r\n    function GetGlobalVariables: string;\r\n    function GetAddCoordinateToArray: string;\r\n    function GetAddHoleToArray: string;\r\n    function GetInitializeCoordinateArray: string;\r\n    function GetInitializeHolesArray: string;\r\n    function IsValid: Boolean;\r\n    procedure DestroyMaps;\r\n  public\r\n    constructor Create;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\nvar\r\n  MapsService: ITMSFNCMapsServiceMapKit;\r\n\r\nconst\r\n  MAPKITAPIVERSION = '5.x.x';\r\n  MAPKITAPIURL = 'https://cdn.apple-mapkit.com/mk/';\r\n  MAPMAXZOOMLEVEL = 51200000;\r\n\r\nprocedure RegisterMapKitService;\r\nbegin\r\n  if not TTMSFNCMapsPlatformServices.Current.SupportsPlatformService(ITMSFNCMapsServiceMapKit, IInterface(MapsService)) then\r\n  begin\r\n    MapsService := TTMSFNCMapsMapKitService.Create;\r\n    TTMSFNCMapsPlatformServices.Current.AddPlatformService(ITMSFNCMapsServiceMapKit, MapsService);\r\n  end;\r\nend;\r\n\r\nprocedure UnregisterMapKitService;\r\nbegin\r\n  TTMSFNCMapsPlatformServices.Current.RemovePlatformService(ITMSFNCMapsServiceMapKit);\r\nend;\r\n\r\n{ TTMSFNCMapsMapKitService }\r\n\r\nfunction TTMSFNCMapsMapKitService.DoCreateMaps: ITMSFNCCustomMaps;\r\nbegin\r\n  Result := TTMSFNCMapsMapKit.Create;\r\nend;\r\n\r\nconstructor TTMSFNCMapsMapKit.Create;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCMapsMapKit.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCMapsMapKit.DestroyMaps;\r\nbegin\r\n  MapsService.DestroyMaps(Self);\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetMapsServiceCheck: string;\r\nbegin\r\n  Result := '!' + MAPSERVICEVAR;\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetResetMap: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetSetCenterCoordinate: string;\r\nbegin\r\n  Result :=\r\n    '  var co = new ' + MAPSERVICEVAR + '.Coordinate(' + PARAMSNAME + '[\"Latitude\"], ' + PARAMSNAME + '[\"Longitude\"]);' + LB +\r\n    '  ' + MAPVAR + '.setCenterAnimated(co, true);';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetSetZoomLevel: string;\r\nbegin\r\n  Result :=\r\n  'var zoomlevel = ' + IntToStr(MAPMAXZOOMLEVEL) + ' / (Math.pow(2, ' + PARAMSNAME + '));' + LB +\r\n  '  ' + MAPVAR + '.setCameraDistanceAnimated(zoomlevel);';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetShowPopup: string;\r\nbegin\r\n  Result :=\r\n    '  var pid = ' + PARAMSNAME + '[\"ID\"];' + LB +\r\n    '  var co = new ' + MAPSERVICEVAR + '.Coordinate(' + PARAMSNAME + '[\"Latitude\"], ' + PARAMSNAME + '[\"Longitude\"]);' + LB +\r\n    '  var custompopup = function(coordinate, options) {' + LB +\r\n\r\n    '    var div = document.createElement(\"div\");' + LB +\r\n    '    div.className = ''bubble'';' + LB +\r\n    '    var t = ' + PARAMSNAME + '[\"Text\"];' + LB +\r\n    '    div.innerHTML = ''<a href=\"#\" id=\"popup-closer-popup'' + pid + ''\" class=\"ol-popup-closer\"></a><div>'' + t + ''</div>''' + LB +\r\n    '    return div;' + LB +\r\n    '    };' + LB +\r\n    '    ' + POPUPVAR + ' = new ' + MAPSERVICEVAR + '.Annotation(co, custompopup);' + LB +\r\n    '    ' + MAPVAR + '.addAnnotation(' + POPUPVAR + ');' + LB +\r\n\r\n    '    var closer = document.getElementById(''popup-closer-popup'' + pid);' + LB +\r\n    '    closer.onclick = function() {' + LB +\r\n    '      ' + MAPVAR + '.removeAnnotation(' + POPUPVAR + ');' + LB +\r\n    '      closer.blur();' + LB +\r\n    '      return false;' + LB +\r\n    '    };'\r\n    ;\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetUpdateOptions: string;\r\nbegin\r\n  Result :=\r\n   '  ' + MAPVAR + '.isScrollEnabled = ' + PARAMSNAME + '[\"Panning\"];' + LB +\r\n   '  ' + MAPVAR + '.showsMapTypeControl = ' + PARAMSNAME + '[\"ShowMapTypeControl\"];' + LB +\r\n   '  ' + MAPVAR + '.showsZoomControl = ' + PARAMSNAME + '[\"ShowZoomControl\"];' + LB +\r\n   '  ' + MAPVAR + '.isZoomEnabled = ((' + PARAMSNAME + '[\"ZoomOnDblClick\"]) && (' + PARAMSNAME + '[\"ZoomOnWheelScroll\"]));';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetZoomToBounds: string;\r\nbegin\r\n  Result :=\r\n    '  var def = new ' + MAPSERVICEVAR + '.BoundingRegion(' + PARAMSNAME + '[\"NorthEast\"][\"Latitude\"],' + PARAMSNAME + '[\"NorthEast\"][\"Longitude\"],' + PARAMSNAME + '[\"SouthWest\"][\"Latitude\"],' + PARAMSNAME + '[\"SouthWest\"][\"Longitude\"]);' + LB + LB +\r\n    '  ' + MAPVAR + '.region = def.toCoordinateRegion();';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetAddCoordinateToArray: string;\r\nbegin\r\n  Result := '  ' + COORDINATEARRAYVAR + '.push([' + PARAMSNAME + '[\"Latitude\"], ' + PARAMSNAME + '[\"Longitude\"]]);';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetAddHoleToArray: string;\r\nbegin\r\n  Result := 'var o = ' + HOLEARRAYVAR + '[' + PARAMSNAME + '[0]];' + LB +\r\n            'if (o){' + LB +\r\n            '  ' + HOLEARRAYVAR + '[' + PARAMSNAME + '[0]].push([' + PARAMSNAME + '[1][\"Latitude\"], ' + PARAMSNAME + '[1][\"Longitude\"]]);' + LB +\r\n            '}else{' + LB +\r\n            '  ' + HOLEARRAYVAR + '[' + PARAMSNAME + '[0]] = [[' + PARAMSNAME + '[1][\"Latitude\"], ' + PARAMSNAME + '[1][\"Longitude\"]]];' + LB +\r\n            '}';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetAddOrUpdateMarker: string;\r\nbegin\r\n  Result :=\r\n    '  var co = new ' + MAPSERVICEVAR + '.Coordinate(' + PARAMSNAME + '[\"Latitude\"], ' + PARAMSNAME + '[\"Longitude\"]);' + LB +\r\n\r\n    '  var markericon = ' + CUSTOMDEFAULTMARKERICON + '(' +\r\n      PARAMSNAME + '[\"DefaultIcon\"],' + LB +\r\n      PARAMSNAME + '[\"IconURL\"]);' + LB +\r\n\r\n    '  if (!' + MARKERVAR + '){' + LB +\r\n    '    if(markericon == \"\") {' + LB +\r\n    '    ' + MARKERVAR + ' = new ' + MAPSERVICEVAR + '.MarkerAnnotation(co, { title: ' + PARAMSNAME + '[\"Title\"], visible: ' + PARAMSNAME + '[\"Visible\"], data: { id: ' + PARAMSNAME + '[\"ID\"] } } );' + LB +\r\n    '    } else { ' + LB +\r\n    '    ' + MARKERVAR + ' = new ' + MAPSERVICEVAR + '.ImageAnnotation(co, { title: ' + PARAMSNAME + '[\"Title\"], visible: ' + PARAMSNAME + '[\"Visible\"], data: { id: ' + PARAMSNAME + '[\"ID\"] }, url: { 1: markericon}});' + LB +\r\n    '    }' + LB +\r\n    '    ' + MARKERVAR + '.addEventListener(''select'', function(event){' + LB +\r\n    '    ' + GETSENDEVENT + '(parseEvent(event, \"MarkerClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MAPVAR + '.addAnnotation(' + MARKERVAR + ');' + LB +\r\n    '  } else {' + LB +\r\n    '    ' + MARKERVAR + '.coordinate = co;' + LB +\r\n    '    ' + MARKERVAR + '.title = ' + PARAMSNAME + '[\"Title\"];' + LB +\r\n    '    ' + MARKERVAR + '.visible = ' + PARAMSNAME + '[\"Visible\"];' + LB +\r\n    '    if(' + PARAMSNAME + '[\"IconURL\"] != \"\")' + LB +\r\n    '      ' + MARKERVAR + '.url = { 1: ' + PARAMSNAME + '[\"IconURL\"] };' + LB +\r\n    '  }';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetAddOrUpdatePolyElement: string;\r\nbegin\r\n  Result :=\r\n    '  var c = ' + PARAMSNAME + '[\"$type\"];' + LB +\r\n    '  var options;'+ LB +\r\n\r\n    '  switch(c){' + LB +\r\n    '    case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '    case \"TTMSFNCMapsPolygon\":' + LB +\r\n    '    case \"TTMSFNCMapsCircle\":' + LB +\r\n    '      options = new ' + MAPSERVICEVAR  + '.Style({' + LB +\r\n    '        strokeColor: ' + PARAMSNAME + '[\"StrokeColor\"],' + LB +\r\n    '        strokeOpacity: ' + PARAMSNAME + '[\"StrokeOpacity\"],' + LB +\r\n    '        lineWidth: ' + PARAMSNAME + '[\"StrokeWidth\"],' + LB +\r\n    '        fillColor: ' + PARAMSNAME + '[\"FillColor\"],' + LB +\r\n    '        fillOpacity: ' + PARAMSNAME + '[\"FillOpacity\"],' + LB +\r\n    '        fillRule: \"evenodd\",' + LB +\r\n    '      });' + LB + LB +\r\n    '    break;' + LB +\r\n    '    case \"TTMSFNCMapsPolyline\":' + LB +\r\n    '      options = new ' + MAPSERVICEVAR  + '.Style({' + LB +\r\n    '        strokeColor: ' + PARAMSNAME + '[\"StrokeColor\"],' + LB +\r\n    '        strokeOpacity: ' + PARAMSNAME + '[\"StrokeOpacity\"],' + LB +\r\n    '        lineWidth: ' + PARAMSNAME + '[\"StrokeWidth\"],' + LB +\r\n    '      });' + LB + LB +\r\n    '    break;' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  function toCoordinates(array) {' + LB +\r\n    '    return array.map(function(element) {' + LB +\r\n    '        return new ' + MAPSERVICEVAR  + '.Coordinate(element[0], element[1]);' + LB +\r\n    '    });' + LB +\r\n    '  }' + LB +\r\n\r\n    '  switch(c){' + LB +\r\n    '    case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '      var points = ' + COORDINATEARRAYVAR + ';' + lB +\r\n    '      points.push([' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Latitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Longitude\"]]);' + LB +\r\n    '      points.push([' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Latitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Longitude\"]]);' + LB +\r\n    '      points.push([' + PARAMSNAME + '[\"Bounds\"][\"NorthEast\"][\"Latitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Longitude\"]]);' + LB +\r\n    '      points.push([' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Latitude\"], ' + PARAMSNAME + '[\"Bounds\"][\"SouthWest\"][\"Longitude\"]]);' + LB +\r\n    '      var coords = points.map(function(point) {' + lB +\r\n    '        return new ' + MAPSERVICEVAR  + '.Coordinate(point[0], point[1]);' + lB +\r\n    '      });' + lB +\r\n    '    break;' + LB +\r\n    '    case \"TTMSFNCMapsPolyline\":' + LB +\r\n    '      var coords = toCoordinates(' + COORDINATEARRAYVAR + ');' + LB +\r\n    '    break;' + LB +\r\n    '    case \"TTMSFNCMapsPolygon\":' + LB +\r\n    '      var coords = [];' + LB +\r\n    '      coords.push(toCoordinates(' + COORDINATEARRAYVAR + '));' + LB +\r\n    '      for (var key in ' + HOLEARRAYVAR + '){' + LB +\r\n    '        coords.push(toCoordinates(' + HOLEARRAYVAR + '[key]));' + LB +\r\n    '      }' + LB +\r\n    '    break;' + LB +\r\n    '    case \"TTMSFNCMapsCircle\":' + LB +\r\n    '      var coord = new ' + MAPSERVICEVAR  + '.Coordinate(' + PARAMSNAME + '[\"Center\"][\"Latitude\"], ' + PARAMSNAME + '[\"Center\"][\"Longitude\"]);' +\r\n    '    break;' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  if (!' + POLYELEMENTVAR + '){' + LB +\r\n    '    switch(c){' + LB +\r\n    '      case \"TTMSFNCMapsPolyline\":' + LB +\r\n    '        ' + POLYELEMENTVAR + ' = new ' + MAPSERVICEVAR + '.PolylineOverlay(coords, { style: options });' + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCMapsPolygon\":' + LB +\r\n    '      case \"TTMSFNCMapsRectangle\":' + LB +\r\n    '        ' + POLYELEMENTVAR + ' = new ' + MAPSERVICEVAR + '.PolygonOverlay(coords, { style: options });' + LB +\r\n    '      break;' + LB +\r\n    '      case \"TTMSFNCMapsCircle\":' + LB +\r\n    '        ' + POLYELEMENTVAR + ' = new ' + MAPSERVICEVAR + '.CircleOverlay(coord, ' + PARAMSNAME + '[\"Radius\"], { style: options });' + LB +\r\n    '      break;' + LB +\r\n    '    }' + LB +\r\n    '    ' + POLYELEMENTVAR + '.data = { id: ' + PARAMSNAME + '[\"ID\"] };' + LB +\r\n    '    ' + POLYELEMENTVAR + '.addEventListener(''select'', function(event){' + LB +\r\n    '    ' + GETSENDEVENT + '(parseEvent(event, \"PolyElementClick\", ' + PARAMSNAME + '[\"ID\"]));' + LB +\r\n    '    })' + LB + LB +\r\n    '    ' + MAPVAR + '.addOverlay(' + POLYELEMENTVAR + ');' + LB +\r\n\r\n    '  }else{' + LB +\r\n    '    ' + POLYELEMENTVAR + '.style = options;' + LB +\r\n    '  }' + LB + LB +\r\n\r\n    '  ' + POLYELEMENTVAR + '.visible = ' + PARAMSNAME + '[\"Visible\"];' + LB + LB;\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetClosePopup: string;\r\nbegin\r\n  Result := '  ' + MAPVAR + '.removeAnnotation(' + POPUPVAR + ');';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetDelayLoadEvent: string;\r\nbegin\r\n  Result := '';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetDeleteMarker: string;\r\nbegin\r\n  Result := '  ' + MAPVAR + '.removeAnnotation(' + MARKERVAR + ');';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetDeletePolyElement: string;\r\nbegin\r\n  Result := '  ' + MAPVAR + '.removeOverlay(' + POLYELEMENTVAR + ');';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetGetBounds: string;\r\nbegin\r\n  Result :=\r\n    '  var loc = ' + MAPVAR + '.region;' +\r\n    '  var bounds = loc.toBoundingRegion(loc);' +\r\n    '  jsonObj[\"NorthEast\"][\"Latitude\"] = bounds.northLatitude;' + LB +\r\n    '  jsonObj[\"NorthEast\"][\"Longitude\"] = bounds.eastLongitude;' + LB +\r\n    '  jsonObj[\"SouthWest\"][\"Latitude\"] = bounds.southLatitude;' + LB +\r\n    '  jsonObj[\"SouthWest\"][\"Longitude\"] = bounds.westLongitude;';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetGetCenterCoordinate: string;\r\nbegin\r\n  Result :=\r\n    '  var loc = ' + MAPVAR + '.center;' + LB +\r\n    '  jsonObj[\"Latitude\"] = loc.latitude;' + LB +\r\n    '  jsonObj[\"Longitude\"] = loc.longitude;';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetLatLonToXY: string;\r\nbegin\r\n  Result :=\r\n    '  var loc = ' + MAPVAR + '.region;' +\r\n    '  var bounds = loc.toBoundingRegion(loc);' +\r\n\r\n    '  var coordinate = new ' + MAPSERVICEVAR + '.Coordinate(' + PARAMSNAME + '[\"Latitude\"], ' + PARAMSNAME + '[\"Longitude\"]);' + LB +\r\n    '  var point = coordinate.toMapPoint();' + LB +\r\n\r\n    '  var coordinateNE = new ' + MAPSERVICEVAR + '.Coordinate(bounds.northLatitude, bounds.westLongitude);' + LB +\r\n    '  var pointNE = coordinateNE.toMapPoint();' + LB +\r\n\r\n    '  var coordinateSW = new ' + MAPSERVICEVAR + '.Coordinate(bounds.southLatitude, bounds.eastLongitude);' + LB +\r\n    '  var pointSW = coordinateSW.toMapPoint();' + LB +\r\n\r\n    '  var heightMap = pointSW.y - pointNE.y;' + LB +\r\n    '  var widthMap = pointSW.x - pointNE.x;' + LB +\r\n\r\n    '  var heightPoint = point.y - pointNE.y;' + LB +\r\n    '  var widthPoint = point.x - pointNE.x;' + LB +\r\n\r\n    '  var heightResult = heightMap / heightPoint;' + LB +\r\n    '  var widthResult = widthMap / widthPoint;' + LB +\r\n\r\n    '  var heightDIV = document.getElementById(\"' + MAPID + '\").offsetHeight;' + LB +\r\n    '  var widthDIV = document.getElementById(\"' + MAPID + '\").offsetWidth;' + LB +\r\n\r\n    '  jsonObj[\"Y\"] = Math.ceil(parseFloat(heightDIV / heightResult));' + LB +\r\n    '  jsonObj[\"X\"] = Math.ceil(parseFloat(widthDIV / widthResult));';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetXYToLatLon: string;\r\nbegin\r\n  Result :=\r\n    '  var loc = ' + MAPVAR + '.region;' +\r\n    '  var bounds = loc.toBoundingRegion(loc);' +\r\n\r\n    '  var pointX = ' + PARAMSNAME + '[\"X\"];' + LB +\r\n    '  var pointY = ' + PARAMSNAME + '[\"Y\"];' + LB +\r\n\r\n    '  var heightDIV = document.getElementById(\"' + MAPID + '\").offsetHeight;' + LB +\r\n    '  var widthDIV = document.getElementById(\"' + MAPID + '\").offsetWidth;' + LB +\r\n\r\n    '  var coordinateNE = new ' + MAPSERVICEVAR + '.Coordinate(bounds.northLatitude, bounds.westLongitude);' + LB +\r\n    '  var pointNE = coordinateNE.toMapPoint();' + LB +\r\n\r\n    '  var coordinateSW = new ' + MAPSERVICEVAR + '.Coordinate(bounds.southLatitude, bounds.eastLongitude);' + LB +\r\n    '  var pointSW = coordinateSW.toMapPoint();' + LB +\r\n\r\n    '  var heightMap = pointSW.y - pointNE.y;' + LB +\r\n    '  var widthMap = pointSW.x - pointNE.x;' + LB +\r\n\r\n    '  var resultY = (heightMap / heightDIV) * pointY;' + LB +\r\n    '  var resultX = (widthMap / widthDIV) * pointX;' + LB +\r\n\r\n    '  var point = new ' + MAPSERVICEVAR + '.MapPoint(pointNE.x + resultX, pointNE.y + resultY);' + LB +\r\n    '  var coordinate = point.toCoordinate();' + LB +\r\n\r\n    '  jsonObj[\"Latitude\"] = parseFloat(coordinate.latitude);' + LB +\r\n    '  jsonObj[\"Longitude\"] = parseFloat(coordinate.longitude);';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetGetZoomLevel: string;\r\nbegin\r\n  Result :=\r\n    '  var maxzoomlevel = ' + IntToStr(MAPMAXZOOMLEVEL) + ';' + LB +\r\n    '  var z = -1;' + LB +\r\n    '  while (maxzoomlevel >= ' + MAPVAR + '.cameraDistance){' + LB +\r\n    '    maxzoomlevel = maxzoomlevel / 2;' + LB +\r\n    '    z++;' + LB +\r\n    ' }';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetGlobalVariables: string;\r\nbegin\r\n   Result :=\r\n    'function parseEvent(event, eventname, id = ''''){' + LB +\r\n    '  var loc = {''Latitude'': 0, ''Longitude'': 0};' + LB +\r\n    '  var x = 0.0;' + LB +\r\n    '  var y = 0.0;' + LB +\r\n    '  if ((eventname == \"MapMoveStart\") || (eventname == \"MapMoveEnd\")){ ' +\r\n    '    var centerpt = ' + MAPVAR + '.center;' + LB +\r\n    '    loc = {''Latitude'': centerpt.latitude, ''Longitude'': centerpt.longitude};' + LB +\r\n    '  } else if (event) {' + LB +\r\n    '    if (event.pointOnPage){' + LB +\r\n    '      x = event.pointOnPage.x;' + LB +\r\n    '      y = event.pointOnPage.y;' + LB +\r\n    '      var dp = new DOMPoint(x, y);' + LB +\r\n    '      var l = ' + MAPVAR + '.convertPointOnPageToCoordinate(dp);' + LB +\r\n    '      loc = {''Latitude'': l.latitude, ''Longitude'': l.longitude};' + LB +\r\n    '    }else if ((event.x) && (event.y)){' + LB +\r\n    '      x = event.x;' + LB +\r\n    '      y = event.y;' + LB +\r\n    '      var dp = new DOMPoint(x, y);' + LB +\r\n    '      var l = ' + MAPVAR + '.convertPointOnPageToCoordinate(dp);' + LB +\r\n    '      loc = {''Latitude'': l.latitude, ''Longitude'': l.longitude};' + LB +\r\n    '    }else{' + LB +\r\n    '      if (event.target){' +\r\n    '        if (event.target.coordinate){' + LB +\r\n    '          loc = {''Latitude'': event.target.coordinate.latitude, ''Longitude'': event.target.coordinate.longitude};' + LB +\r\n    '        }' +\r\n    '        else if (event.target.points){' + LB +\r\n    '          if (event.target.points.length > 0){' + LB +\r\n    '            var p = event.target.points[0];' + LB +\r\n    '            if (Array.isArray(p) && (p.length > 0)){' + LB +\r\n    '              p = p[0]' + LB +\r\n    '            }' + LB +\r\n    '            loc = {''Latitude'': p.latitude, ''Longitude'': p.longitude};' + LB +\r\n    '          }' + LB +\r\n    '        }' + LB +\r\n    '      }' + LB +\r\n    '    }' + LB +\r\n    '  }' + LB +\r\n\r\n    '  var r = {''Coordinate'': loc, ''X'': x, ''Y'': y, ''ID'': id, ''EventName'': eventname};' + LB +\r\n    '  return r;' + LB +\r\n    '}';\r\nend;\r\n\r\nprocedure TTMSFNCMapsMapKit.GetHeadLinks(\r\n  const AList: TTMSFNCMapsLinksList);\r\nbegin\r\n  AList.Add(TTMSFNCMapsLink.CreateScript(MAPKITAPIURL + MAPKITAPIVERSION + '/mapkit.js', 'text/javascript', 'utf-8'));\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetHeadStyle: string;\r\nbegin\r\n  Result :=\r\n\r\n    '.bubble {' + LB +\r\n    '  background-color: #FAFAFA;' + LB +\r\n\t\t'  border-radius: 5px;' + LB +\r\n\t\t'  box-shadow: 0 0 6px #B2B2B2;' + LB +\r\n\t\t'  display: inline-block;' + LB +\r\n\t\t'  padding: 10px 28px 10px 18px;' + LB +\r\n\t\t'  position: relative;' + LB +\r\n\t\t'  vertical-align: top;' + LB +\r\n\t\t'  margin: 20px 10px;' + LB +\r\n    '  font-family: sans-serif;' + LB +\r\n    '}' + LB +\r\n    '.bubble::before {' + LB +\r\n    '  background-color: #FAFAFA; ' + LB +\r\n    '  content: \"\";' + LB +\r\n    '  display: block;' + LB +\r\n    '  height: 16px;' + LB +\r\n    '  width: 16px;' + LB +\r\n    '  position: absolute;' + LB +\r\n    '  bottom: -7.5px;' + LB +\r\n    '  left: 50%;' + LB +\r\n    '  right: 50%;' + LB +\r\n    '  transform: rotate(47deg) skew(5deg);' + LB +\r\n    '\t -moz-transform: rotate(47deg) skew(5deg);' + LB +\r\n    '  -ms-transform: rotate(47deg) skew(5deg);' + LB +\r\n    '  -o-transform: rotate(47deg) skew(5deg);' + LB +\r\n    '  -webkit-transform: rotate(47deg) skew(5deg);' + LB +\r\n    '  box-shadow: 2px 2px 2px 0 rgba( 178, 178, 178, .4 );' + LB +\r\n    '}' + LB +\r\n    '.ol-popup:before {' + LB +\r\n    '  border-top-color: #cccccc;' + LB +\r\n    '  border-width: 11px;' + LB +\r\n    '  left: 48px;' + LB +\r\n    '  margin-left: -11px;' + LB +\r\n    '}' + LB +\r\n    '.ol-popup-closer {' + LB +\r\n    '  text-decoration: none;' + LB +\r\n    '  position: absolute;' + LB +\r\n    '  top: 2px;' + LB +\r\n    '  right: 8px;' + LB +\r\n    '}' + LB +\r\n    '.ol-popup-closer:after {' + LB +\r\n    '  content: \"✖\";' + LB +\r\n    '}';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetIdentifier: string;\r\nbegin\r\n  Result := 'Apple MapKit';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetInitializeCoordinateArray: string;\r\nbegin\r\n  Result := '[]';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetInitializeHolesArray: string;\r\nbegin\r\n  Result := '[]';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetInitializeEvents: string;\r\nbegin\r\n  Result :=\r\n    '  ' + MAPVAR + '.addEventListener(''zoom-end'', function(){' + LB +\r\n    '    ' + GETSENDEVENT + '(parseEvent(null, \"ZoomChanged\"));' + LB +\r\n    '  })' + LB + LB +\r\n    '  ' + MAPVAR + '.addEventListener(''map-type-change'', function(){' + LB +\r\n    '    ' + GETSENDEVENT + '(parseEvent(null, \"MapTypeChanged\"));' + LB +\r\n    '  })' + LB + LB +\r\n    '  ' + MAPVAR + '.addEventListener(''rotation-end'', function(event){' + LB +\r\n    '    ' + GETSENDEVENT + '(parseEvent(null, \"MapRotationChanged\"), ' + MAPVAR +'.rotation);' + LB +\r\n    '  })' + LB + LB +\r\n    '  ' + MAPVAR + '.addEventListener(''scroll-start'', function(event){' + LB +\r\n    '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMoveStart\"));' + LB +\r\n    '  })' + LB + LB +\r\n    '  ' + MAPVAR + '.addEventListener(''scroll-end'', function(event){' + LB +\r\n    '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMoveEnd\"));' + LB +\r\n    '  })' + LB + LB +\r\n    '  ' + MAPVAR + '.addEventListener(''single-tap'', function(event){' + LB +\r\n    '    ' + GETSENDEVENT + '(parseEvent(event, \"MapClick\"));' + LB +\r\n    '  })' + LB + LB +\r\n    '  ' + MAPVAR + '.element.addEventListener(''click'', function(event){' + LB +\r\n    '  ' + MAPVAR + '.selectedAnnotation = null;' + LB +\r\n    '  ' + MAPVAR + '.selectedOverlay = null;' + LB +\r\n    '  })' + LB + LB +\r\n    '  ' + MAPVAR + '.addEventListener(''double-tap'', function(event){' + LB +\r\n    '    ' + GETSENDEVENT + '(parseEvent(event, \"MapDblClick\"));' + LB +\r\n    '  })' + LB + LB +\r\n    '  ' + MAPVAR + '.element.addEventListener(''mousemove'', function(event){' + LB +\r\n    '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseMove\"));' + LB +\r\n    '  })' + LB + LB +\r\n    '  ' + MAPVAR + '.element.addEventListener(''mouseover'', function(event){' + LB +\r\n    '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseEnter\"));' + LB +\r\n    '  })' + LB + LB +\r\n    '  ' + MAPVAR + '.element.addEventListener(''mouseout'', function(event){' + LB +\r\n    '    ' + GETSENDEVENT + '(parseEvent(event, \"MapMouseLeave\"));' + LB +\r\n    '  })';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.GetInitializeMap: string;\r\nvar\r\n  v: string;\r\nbegin\r\n  v := MAPSERVICEVAR;\r\n  Result :=\r\n    '  ' + v + '.init({' + LB +\r\n    '    language: ''' + MapsProperties.GetLocale + ''',' + LB +\r\n    '    authorizationCallback: function(done) {' + LB +\r\n    '      done(\"' + MapsProperties.GetAPIKey + '\");' + LB +\r\n    '    },' + LB +\r\n    '  });' + LB + LB +\r\n\r\n    '  ' + MAPVAR + ' = new ' + MAPSERVICEVAR + '.Map(\"' + MAPID + '\");' + LB +\r\n    '  var co = new ' + MAPSERVICEVAR + '.Coordinate(' + MapsProperties.GetDefaultLatitude + ', ' + MapsProperties.GetDefaultLongitude + ');' + LB +\r\n    '  ' + MAPVAR + '.center = co;' + LB +\r\n    '  var zoomlevel = ' + IntToStr(MAPMAXZOOMLEVEL) + ' / (Math.pow(2, ' + MapsProperties.GetDefaultZoomLevel + '));' + LB +\r\n    '  ' + MAPVAR + '.cameraDistance = zoomlevel;' + LB +\r\n    '  ' + MAPVAR + '.isScrollEnabled = ' + BoolToStrEx(MapsProperties.GetPanning) + ';' + LB +\r\n    '  ' + MAPVAR + '.showsMapTypeControl = ' + BoolToStrEx(MapsProperties.GetShowMapTypeControl) + ';' + LB +\r\n    '  ' + MAPVAR + '.showsZoomControl = ' + BoolToStrEx(MapsProperties.GetShowZoomControl) + ';' + LB +\r\n    '  ' + MAPVAR + '.isZoomEnabled = ((' + BoolToStrEx(MapsProperties.GetZoomOnDblClick) + ') && (' + BoolToStrEx(MapsProperties.GetZoomOnWheelScroll) + '));';\r\nend;\r\n\r\nfunction TTMSFNCMapsMapKit.IsValid: Boolean;\r\nbegin\r\n  Result := MapsProperties.GetAPIKey <> '';\r\nend;\r\n\r\nprocedure TTMSFNCMapsMapKit.RemoveScripts;\r\nbegin\r\n  {$IFDEF WEBLIB}\r\n  asm\r\n    let keywords = ['cdn.apple-mapkit'];\r\n\r\n    if (window.mapkit){\r\n      window.mapkit = undefined;\r\n    }\r\n\r\n    let scripts = document.querySelectorAll('script,link');\r\n    for (let i = scripts.length - 1; i >= 0; i--) {\r\n        let scriptSource = scripts[i].getAttribute('src');\r\n        if (!scriptSource){\r\n          scriptSource = scripts[i].getAttribute('href');\r\n        }\r\n        if (scriptSource != null) {\r\n            if (keywords.filter(item => scriptSource.includes(item)).length) {\r\n                scripts[i].remove();\r\n                // scripts[i].parentNode.removeChild(scripts[i]);\r\n            }\r\n        }\r\n    }\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nend.\r\n\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2020 - 2025                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.TMSFNCOpenLayers;\r\n\r\n{$I WEBLib.TMSFNCDefines.inc}\r\n\r\n{$IFDEF WEBLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n{$IFDEF LCLLIB}\r\n{$DEFINE LCLWEBLIB}\r\n{$ENDIF}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, Types, WEBLib.Forms\r\n  {$IFNDEF LCLWEBLIB}\r\n  ,Generics.Collections\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  ,fgl\r\n  {$ENDIF}\r\n  {$IFDEF WEBLIB}\r\n  ,web, Contnrs\r\n  {$ENDIF}\r\n  ,WEBLib.TMSFNCWebBrowser\r\n  ,WEBLib.TMSFNCMapsCommonTypes\r\n  ,WEBLib.TMSFNCTypes\r\n  ,WEBLib.TMSFNCGraphicsTypes\r\n  ,WEBLib.TMSFNCMaps;\r\n\r\nconst\r\n  MAJ_VER = 4; // Major version nr.\r\n  MIN_VER = 1; // Minor version nr.\r\n  REL_VER = 0; // Release nr.\r\n  BLD_VER = 0; // Build nr.\r\n\r\n  //v1.0.0.0: First release\r\n  //        : New : Options.TileServer property\r\n  //v1.0.1.0: New : Support for TileLayers\r\n  //v1.0.2.0: New : Support to update TileLayers\r\n  //v1.1.0.0: New : Support for Polyline/Polygon Labels\r\n  //        : New : Improved TileServer updating\r\n  //        : Fixed : Issue with flickering when updating maps\r\n  //v1.1.1.0: New : Added Polyline.Label.BackgroundColor/BorderColor/Padding properties\r\n  //v1.1.1.1: Improved : Polyline.Label.BackgroundColor/BorderColor rendering\r\n  //v1.2.0.0: New : Draggable Markers and Poly elements\r\n  //v1.2.0.1: Fixed : Issue with popup visible when dragging markers\r\n  //v1.3.0.0: New : OnMapRenderComplete event added\r\n  //v1.3.0.1: Fixed : Issue with popup position after marker changed position\r\n  //v1.3.0.2: Fixed : API URLs updated\r\n  //v1.4.0.0: New : Complex Polygons support added\r\n  //v1.5.0.0: New : Marker Clusters support added\r\n  //v1.6.0.0: New : Support for WMS and GeoJSON type tilelayers\r\n  //        : New : LibraryLocation property for offline support\r\n  //        : New : Options.ShowBaseLayer property\r\n  //v1.6.0.1: Fixed : Issue with MarkerMouseEnter/MarkerMouseLeave events\r\n  //v2.0.0.0: New : OpenLayers v8 API compatibilty\r\n  //v3.0.0.0: New : OpenLayers v9 API compatibilty\r\n  //        : Fixed : Issue with CloseAllPopups in TMS WEB Core\r\n  //v3.0.0.1: Fixed : Issue with Runtime Packages\r\n  //v4.0.0.0: New : OpenLayers v10 API compatibilty\r\n  //        : New : HeatMaps added\r\n  //        : New : Options.Version property added to select the OpenLayers API version\r\n  //        : New : OnMapRightClick, OnMarkerRightClick, OnPolyElementRightClick events\r\n  //v4.1.0.0: New : Layers CSSClassName property added\r\n  //        : New : Clusters: ImagePath, FillColor, FontColor, StrokeColor added\r\n\r\ntype\r\n  TTMSFNCCustomOpenLayers = class;\r\n  TTMSFNCOpenLayersCluster = class;\r\n  TTMSFNCOpenLayersLabelClass = class of TTMSFNCOpenLayersLabel;\r\n\r\n  TTMSFNCOpenLayersLabel = class(TPersistent)\r\n  private\r\n    FOnChange: TNotifyEvent;\r\n    FText: string;\r\n    FOffsetX: Double;\r\n    FOffsetY: Double;\r\n    FFontSize: Integer;\r\n    FFontColor: TTMSFNCGraphicsColor;\r\n    FBorderColor: TTMSFNCGraphicsColor;\r\n    FPadding: Integer;\r\n    FBackgroundColor: TTMSFNCGraphicsColor;\r\n    procedure SetBackgroundColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetBorderColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetFontColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetFontSize(const Value: Integer);\r\n    procedure SetOffsetX(const Value: Double);\r\n    procedure SetOffsetY(const Value: Double);\r\n    procedure SetPadding(const Value: Integer);\r\n    procedure SetText(const Value: string);\r\n  protected\r\n    procedure Changed;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create; virtual;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  published\r\n    property Text: string read FText write SetText;\r\n    property OffsetX: Double read FOffsetX write SetOffsetX;\r\n    property OffsetY: Double read FOffsetY write SetOffsetY;\r\n    property FontColor: TTMSFNCGraphicsColor read FFontColor write SetFontColor default gcBlack;\r\n    property FontSize: Integer read FFontSize write SetFontSize default 12;\r\n    property BackgroundColor: TTMSFNCGraphicsColor read FBackgroundColor write SetBackgroundColor default gcWhite;\r\n    property BorderColor: TTMSFNCGraphicsColor read FBorderColor write SetBorderColor default gcBlack;\r\n    property Padding: Integer read FPadding write SetPadding default 3;\r\n  end;\r\n\r\n  TTMSFNCOpenLayersPolygon = class(TTMSFNCMapsPolygon)\r\n  private\r\n    FLabel: TTMSFNCOpenLayersLabel;\r\n    FDraggable: Boolean;\r\n    procedure SetLabel(const Value: TTMSFNCOpenLayersLabel);\r\n    procedure SetDraggable(const Value: Boolean);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n    procedure LabelChanged(Sender: TObject);\r\n    function AddHole(ACoordinates: TTMSFNCMapsCoordinateRecArray): TTMSFNCMapsPolyElementHole; override;\r\n  published\r\n    property Draggable: Boolean read FDraggable write SetDraggable default false;\r\n    property &Label: TTMSFNCOpenLayersLabel read FLabel write SetLabel;\r\n    property Holes;\r\n  end;\r\n\r\n  TTMSFNCOpenLayersPolygons = class(TTMSFNCMapsPolygons)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCOpenLayersPolygon;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCOpenLayersPolygon);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; override;\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCOpenLayersPolygon read GetItem write SetItem; default;\r\n    function Add: TTMSFNCOpenLayersPolygon;\r\n    function Insert(Index: Integer): TTMSFNCOpenLayersPolygon;\r\n  end;\r\n\r\n  TTMSFNCOpenLayersPolyline = class(TTMSFNCMapsPolyline)\r\n  private\r\n    FLabel: TTMSFNCOpenLayersLabel;\r\n    FDraggable: Boolean;\r\n    procedure SetLabel(const Value: TTMSFNCOpenLayersLabel);\r\n    procedure SetDraggable(const Value: Boolean);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n    procedure LabelChanged(Sender: TObject);\r\n  published\r\n    property &Label: TTMSFNCOpenLayersLabel read FLabel write SetLabel;\r\n    property Draggable: Boolean read FDraggable write SetDraggable default False;\r\n  end;\r\n\r\n  TTMSFNCOpenLayersPolylines = class(TTMSFNCMapsPolylines)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCOpenLayersPolyline;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCOpenLayersPolyline);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; override;\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCOpenLayersPolyline read GetItem write SetItem; default;\r\n    function Add: TTMSFNCOpenLayersPolyline;\r\n    function Insert(Index: Integer): TTMSFNCOpenLayersPolyline;\r\n  end;\r\n\r\n  TTMSFNCOpenLayersCircle = class(TTMSFNCMapsCircle)\r\n  private\r\n    FDraggable: Boolean;\r\n    procedure SetDraggable(const Value: Boolean);\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create(ACollection: TCollection); override;\r\n    destructor Destroy; override;\r\n  published\r\n    property Draggable: Boolean read FDraggable write SetDraggable default False;\r\n  end;\r\n\r\n  TTMSFNCOpenLayersCircles = class(TTMSFNCMapsCircles)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCOpenLayersCircle;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCOpenLayersCircle);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; override;\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCOpenLayersCircle read GetItem write SetItem; default;\r\n    function Add: TTMSFNCOpenLayersCircle;\r\n    function Insert(Index: Integer): TTMSFNCOpenLayersCircle;\r\n  end;\r\n\r\n  TTMSFNCOpenLayersRectangle = class(TTMSFNCMapsRectangle)\r\n  private\r\n    FDraggable: Boolean;\r\n    procedure SetDraggable(const Value: Boolean);\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create(ACollection: TCollection); override;\r\n    destructor Destroy; override;\r\n  published\r\n    property Draggable: Boolean read FDraggable write SetDraggable default False;\r\n  end;\r\n\r\n  TTMSFNCOpenLayersRectangles = class(TTMSFNCMapsRectangles)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCOpenLayersRectangle;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCOpenLayersRectangle);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; override;\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCOpenLayersRectangle read GetItem write SetItem; default;\r\n    function Add: TTMSFNCOpenLayersRectangle;\r\n    function Insert(Index: Integer): TTMSFNCOpenLayersRectangle;\r\n  end;\r\n\r\n  TTMSFNCOpenLayersMarker = class(TTMSFNCMapsMarker)\r\n  private\r\n    FDraggable: Boolean;\r\n    FCluster: TTMSFNCOpenLayersCluster;\r\n    procedure SetDraggable(const Value: Boolean);\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    destructor Destroy; override;\r\n    property Cluster: TTMSFNCOpenLayersCluster read FCluster write FCluster;\r\n  published\r\n    property Draggable: Boolean read FDraggable write SetDraggable default False;\r\n  end;\r\n\r\n  TTMSFNCOpenLayersMarkers = class(TTMSFNCMapsMarkers)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCOpenLayersMarker;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCOpenLayersMarker);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; override;\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCOpenLayersMarker read GetItem write SetItem; default;\r\n    function Add: TTMSFNCOpenLayersMarker;\r\n    function Insert(Index: Integer): TTMSFNCOpenLayersMarker;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCOpenLayersMarkersList = class(TList)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCOpenLayersMarker;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCOpenLayersMarker);\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCOpenLayersMarker read GetItem write SetItem; default;\r\n  end;\r\n  {$ENDIF}\r\n  {$IFNDEF WEBLIB}\r\n  TTMSFNCOpenLayersMarkersList = class(TList<TTMSFNCOpenLayersMarker>);\r\n  {$ENDIF}\r\n\r\n  TTMSFNCOpenLayersCluster = class(TCollectionItem)\r\n  private\r\n    FReload: Boolean;\r\n    FMarkers: TTMSFNCOpenLayersMarkersList;\r\n    FID: string;\r\n    FOwner: TTMSFNCCustomMaps;\r\n    FDataBoolean: Boolean;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FDataPointer: Pointer;\r\n    FRecreate: Boolean;\r\n    FImagePath: string;\r\n    FFontColor: TTMSFNCGraphicsColor;\r\n    FFillColor: TTMSFNCGraphicsColor;\r\n    FStrokeColor: TTMSFNCGraphicsColor;\r\n    function GetID: string;\r\n    function GetMarkers: TTMSFNCOpenLayersMarkersList;\r\n    procedure SetFontColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetImagePath(const Value: string);\r\n    function IsImagePathStored: Boolean;\r\n    procedure SetFillColor(const Value: TTMSFNCGraphicsColor);\r\n    procedure SetStrokeColor(const Value: TTMSFNCGraphicsColor);\r\n  protected\r\n    procedure UpdateCluster; virtual;\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n    property Markers: TTMSFNCOpenLayersMarkersList read GetMarkers;\r\n    property Recreate: Boolean read FRecreate write FRecreate;\r\n  published\r\n    property ID: string read GetID;\r\n    property ImagePath: string read FImagePath write SetImagePath stored IsImagePathStored nodefault;\r\n    property StrokeColor: TTMSFNCGraphicsColor read FStrokeColor write SetStrokeColor default gcWhite;\r\n    property FillColor: TTMSFNCGraphicsColor read FFillColor write SetFillColor default gcLightskyblue;\r\n    property FontColor: TTMSFNCGraphicsColor read FFontColor write SetFontColor default gcWhite;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCOpenLayersClusters = class(TTMSFNCOwnedCollection)\r\n  {$ELSE}\r\n  TTMSFNCOpenLayersClusters = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCOpenLayersCluster>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TTMSFNCCustomMaps;\r\n    function GetItem(Index: Integer): TTMSFNCOpenLayersCluster;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCOpenLayersCluster);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; virtual;\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCCustomMaps); virtual;\r\n    property Items[Index: Integer]: TTMSFNCOpenLayersCluster read GetItem write SetItem; default;\r\n    procedure Clear; virtual;\r\n    procedure Recreate; virtual;\r\n    function Add: TTMSFNCOpenLayersCluster;\r\n    function Insert(Index: Integer): TTMSFNCOpenLayersCluster;\r\n  end;\r\n\r\n  TTMSFNCOpenLayersHeatMap = class(TTMSFNCMapsHeatMap)\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n  end;\r\n\r\n  TTMSFNCOpenLayersHeatMaps = class(TTMSFNCMapsHeatMaps)\r\n  private\r\n    function GetItem(Index: Integer): TTMSFNCOpenLayersHeatMap;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCOpenLayersHeatMap);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; override;\r\n  public\r\n    property Items[Index: Integer]: TTMSFNCOpenLayersHeatMap read GetItem write SetItem; default;\r\n    function Add: TTMSFNCOpenLayersHeatMap;\r\n    function Insert(Index: Integer): TTMSFNCOpenLayersHeatMap;\r\n  end;\r\n\r\n  TTMSFNCOpenLayersTileLayerSource = (tlsXYZ, tlsWMS, tlsJSON);\r\n\r\n  TTMSFNCOpenLayersTileLayerParams = class(TPersistent)\r\n  private\r\n    FOnChange: TNotifyEvent;\r\n    FLayers: string;\r\n    procedure SetLayers(const Value: string);\r\n  protected\r\n    procedure Changed;\r\n  public\r\n    procedure Assign(Source: TPersistent); override;\r\n    constructor Create; virtual;\r\n    property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n  published\r\n    property Layers: string read FLayers write SetLayers;\r\n  end;\r\n\r\n  TTMSFNCOpenLayersTileLayer = class(TCollectionItem)\r\n  private\r\n    FReload: Boolean;\r\n    FID: string;\r\n    FOwner: TTMSFNCCustomMaps;\r\n    FDataBoolean: Boolean;\r\n    FDataString: String;\r\n    FDataObject: TObject;\r\n    FDataInteger: NativeInt;\r\n    FDataPointer: Pointer;\r\n    FRecreate: Boolean;\r\n    FURL: string;\r\n    FOpacity: Single;\r\n    FSource: TTMSFNCOpenLayersTileLayerSource;\r\n    FParams: TTMSFNCOpenLayersTileLayerParams;\r\n    FCSSClassName: string;\r\n    function GetID: string;\r\n    function IsURLStored: Boolean;\r\n    function IsOpacityStored: Boolean;\r\n    procedure SetOpacity(const Value: Single);\r\n    procedure SetURL(const Value: string);\r\n    procedure SetSource(const Value: TTMSFNCOpenLayersTileLayerSource);\r\n    procedure SetParams(const Value: TTMSFNCOpenLayersTileLayerParams);\r\n    procedure SetCSSClassName(const Value: string);\r\n  protected\r\n    procedure DoParamsChanged(Sender: TObject);\r\n    procedure UpdateTileLayer; virtual;\r\n  public\r\n    constructor Create(ACollection: TCollection); override;\r\n    procedure Assign(Source: TPersistent); override;\r\n    destructor Destroy; override;\r\n    property DataPointer: Pointer read FDataPointer write FDataPointer;\r\n    property DataBoolean: Boolean read FDataBoolean write FDataBoolean;\r\n    property DataObject: TObject read FDataObject write FDataObject;\r\n    property DataString: String read FDataString write FDataString;\r\n    property DataInteger: NativeInt read FDataInteger write FDataInteger;\r\n    property Recreate: Boolean read FRecreate write FRecreate;\r\n  published\r\n    property ID: string read GetID;\r\n    property URL: string read FURL write SetURL stored IsURLStored nodefault;\r\n    property Opacity: Single read FOpacity write SetOpacity stored IsOpacityStored nodefault;\r\n    property Source: TTMSFNCOpenLayersTileLayerSource read FSource write SetSource default tlsXYZ;\r\n    property Params: TTMSFNCOpenLayersTileLayerParams read FParams write SetParams;\r\n    property CSSClassName: string read FCSSClassName write SetCSSClassName;\r\n  end;\r\n\r\n  {$IFDEF WEBLIB}\r\n  TTMSFNCOpenLayersTileLayers = class(TTMSFNCOwnedCollection)\r\n  {$ELSE}\r\n  TTMSFNCOpenLayersTileLayers = class({$IFDEF LCLLIB}specialize {$ENDIF}TTMSFNCOwnedCollection<TTMSFNCOpenLayersTileLayer>)\r\n  {$ENDIF}\r\n  private\r\n    FOwner: TTMSFNCCustomMaps;\r\n    function GetItem(Index: Integer): TTMSFNCOpenLayersTileLayer;\r\n    procedure SetItem(Index: Integer; const Value: TTMSFNCOpenLayersTileLayer);\r\n  protected\r\n    function CreateItemClass: TCollectionItemClass; virtual;\r\n    function GetOwner: TPersistent; override;\r\n  public\r\n    constructor Create(AOwner: TTMSFNCCustomMaps); virtual;\r\n    property Items[Index: Integer]: TTMSFNCOpenLayersTileLayer read GetItem write SetItem; default;\r\n    procedure Clear; virtual;\r\n    procedure Recreate; virtual;\r\n    function Add: TTMSFNCOpenLayersTileLayer;\r\n    function Insert(Index: Integer): TTMSFNCOpenLayersTileLayer;\r\n  end;\r\n\r\n  TTMSFNCOpenLayersOptions = class(TTMSFNCMapsOptions)\r\n  private\r\n    FTileServer: string;\r\n    FShowBaseLayer: Boolean;\r\n    FVersion: string;\r\n    procedure SetTileServer(const Value: string);\r\n    procedure SetShowBaseLayer(const Value: Boolean);\r\n    procedure SetVersion(const Value: string);\r\n  public\r\n    constructor Create; override;\r\n  published\r\n    property TileServer: string read FTileServer write SetTileServer;\r\n    property ShowBaseLayer: Boolean read FShowBaseLayer write SetShowBaseLayer default True;\r\n    property Version: string read FVersion write SetVersion;\r\n  end;\r\n\r\n  TTMSFNCCustomOpenLayers = class(TTMSFNCCustomMaps)\r\n  private\r\n    FTileLayers: TTMSFNCOpenLayersTileLayers;\r\n    FOnPolyElementDragEnd: TTMSFNCMapsBaseEvent;\r\n    FOnMarkerDragEnd: TTMSFNCMapsBaseEvent;\r\n    FOnMapRenderComplete: TNotifyEvent;\r\n    FClusters: TTMSFNCOpenLayersClusters;\r\n    FOnClusterClick: TTMSFNCMapsBaseEvent;\r\n    function GetOptions: TTMSFNCOpenLayersOptions;\r\n    procedure SetOptions(const Value: TTMSFNCOpenLayersOptions);\r\n    procedure SetTileLayers(const Value: TTMSFNCOpenLayersTileLayers);\r\n    procedure SetPolygons(const Value: TTMSFNCOpenLayersPolygons);\r\n    function GetPolygons: TTMSFNCOpenLayersPolygons;\r\n    function GetPolylines: TTMSFNCOpenLayersPolylines;\r\n    procedure SetPolylines(const Value: TTMSFNCOpenLayersPolylines);\r\n    function GetMarkers: TTMSFNCOpenLayersMarkers;\r\n    procedure SetMarkers(const Value: TTMSFNCOpenLayersMarkers);\r\n    procedure SetClusters(const Value: TTMSFNCOpenLayersClusters);\r\n    function GetHeatMaps: TTMSFNCOpenLayersHeatMaps;\r\n    procedure SetHeatMaps(const Value: TTMSFNCOpenLayersHeatMaps);\r\n  protected\r\n    function GetAPIVersion: string; override;\r\n    function GetDocURL: string; override;\r\n    function GetVersionNr: Integer; override;\r\n    function GetAddOrUpdateTileLayerFunction: string; virtual;\r\n    function GetDeleteTileLayerFunction: string; virtual;\r\n    function GetAddOrUpdateHeatMapFunction: string; virtual;\r\n    function GetDeleteHeatMapFunction: string; virtual;\r\n    function GetOptionsClass: TTMSFNCMapsOptionsClass; override;\r\n    function GetCustomFunctions: string; override;\r\n    function GetCustomGlobalVariables: string; override;\r\n    function GetCustomOptions: string; override;\r\n    function GetAddCustomObjects: string; override;\r\n    function GetCustomMap: string; override;\r\n    function GetMarkersClass: TTMSFNCMapsMarkersClass; override;\r\n    function GetHeatMapsClass: TTMSFNCMapsHeatMapsClass; override;\r\n    function GetPolylinesClass: TTMSFNCMapsPolylinesClass; override;\r\n    function GetPolygonsClass: TTMSFNCMapsPolygonsClass; override;\r\n    function GetRectanglesClass: TTMSFNCMapsRectanglesClass; override;\r\n    function GetCirclesClass: TTMSFNCMapsCirclesClass; override;\r\n    function GetAddOrUpdateClusterFunction: string; virtual;\r\n    function GetDeleteClusterFunction: string; virtual;\r\n    procedure DoPolyElementDragEnd(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoMarkerDragEnd(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure DoMapRenderComplete; virtual;\r\n    procedure DoClusterClick(AEventData: TTMSFNCMapsEventData); virtual;\r\n    procedure CallCustomEvent(AEventData: TTMSFNCMapsEventData); override;\r\n    procedure UpdateTileLayers; virtual;\r\n    procedure DoUpdateTileLayers(const AValue: string); virtual;\r\n    procedure UpdateClusters; virtual;\r\n    procedure DoUpdateClusters(const AValue: string); virtual;\r\n    property Options: TTMSFNCOpenLayersOptions read GetOptions write SetOptions;\r\n    property Clusters: TTMSFNCOpenLayersClusters read FClusters write SetClusters;\r\n    property TileLayers: TTMSFNCOpenLayersTileLayers read FTileLayers write SetTileLayers;\r\n    property Markers: TTMSFNCOpenLayersMarkers read GetMarkers write SetMarkers;\r\n    property HeatMaps: TTMSFNCOpenLayersHeatMaps read GetHeatMaps write SetHeatMaps;\r\n    property Polylines: TTMSFNCOpenLayersPolylines read GetPolylines write SetPolylines;\r\n    property Polygons: TTMSFNCOpenLayersPolygons read GetPolygons write SetPolygons;\r\n    property OnPolyElementDragEnd: TTMSFNCMapsBaseEvent read FOnPolyElementDragEnd write FOnPolyElementDragEnd;\r\n    property OnMarkerDragEnd: TTMSFNCMapsBaseEvent read FOnMarkerDragEnd write FOnMarkerDragEnd;\r\n    property OnMapRenderComplete: TNotifyEvent read FOnMapRenderComplete write FOnMapRenderComplete;\r\n    property OnClusterClick: TTMSFNCMapsBaseEvent read FOnClusterClick write FOnClusterClick;\r\n  public\r\n    constructor Create(AOwner: TComponent); override;\r\n    destructor Destroy; override;\r\n    procedure EndUpdate; override;\r\n\r\n    function AddMarker(ACoordinate: TTMSFNCMapsCoordinateRec; ATitle: string = ''; AIconURL: string = ''): TTMSFNCOpenLayersMarker; reintroduce; overload; virtual;\r\n    function AddMarker(ALatitude: Double; ALongitude: Double; ATitle: string = ''; AIconURL: string = ''): TTMSFNCOpenLayersMarker; reintroduce; overload; virtual;\r\n\r\n    function AddPolyline(ACoordinates: TTMSFNCMapsCoordinateRecArray; AClose: Boolean = False): TTMSFNCOpenLayersPolyline; reintroduce; virtual;\r\n    function AddPolygon(ACoordinates: TTMSFNCMapsCoordinateRecArray; AClose: Boolean = False): TTMSFNCOpenLayersPolygon; reintroduce; virtual;\r\n    function AddCircle(ACenter: TTMSFNCMapsCoordinateRec; ARadius: Double = 10000): TTMSFNCOpenLayersCircle; reintroduce; virtual;\r\n    function AddRectangle(ABounds: TTMSFNCMapsBoundsRec): TTMSFNCOpenLayersRectangle; reintroduce; virtual;\r\n    function AddHeatMap(ACoordinates: TTMSFNCMapsCoordinateRecArray): TTMSFNCOpenLayersHeatMap; reintroduce; virtual;\r\n\r\n    function AddTileLayer(AURL: string; AOpacity: Single = 1): TTMSFNCOpenLayersTileLayer;\r\n    procedure Clear; override;\r\n    procedure ClearTileLayers;\r\n    procedure ClearClusters;\r\n    procedure ClearHeatMaps;\r\n  end;\r\n\r\n  {$IFNDEF LCLLIB}\r\n  {$HINTS OFF}\r\n  {$IF COMPILERVERSION > 22}\r\n  {$IFNDEF LCLLIB}\r\n  [ComponentPlatformsAttribute(TMSPlatformsWeb)]\r\n  {$ENDIF}\r\n  {$IFEND}\r\n  {$HINTS ON}\r\n  {$ENDIF}\r\n  TTMSFNCOpenLayers = class(TTMSFNCCustomOpenLayers)\r\n  protected\r\n    procedure RegisterRuntimeClasses; override;\r\n    procedure GetHeadLinks(AList: TTMSFNCMapsLinksList; ACheckReady: Boolean = True); override;\r\n  public\r\n    procedure Navigate; overload; override;\r\n    procedure Navigate(const AURL: string); overload; override;\r\n    procedure ExecuteJavaScript(AScript: String; ACompleteEvent: TTMSFNCWebBrowserJavaScriptCompleteEvent = nil; AImmediate: Boolean = False); override;\r\n    function ExecuteJavaScriptSync(AScript: String): string; override;\r\n    procedure LoadHTML(AHTML: String); override;\r\n    procedure LoadFile(AFile: String); override;\r\n    procedure Initialize; override;\r\n    procedure DeInitialize; override;\r\n    procedure GoForward; override;\r\n    procedure GoBack; override;\r\n    procedure Reload; override;\r\n    procedure StopLoading; override;\r\n    procedure AddBridge(ABridgeName: string; ABridgeObject: TObject); override;\r\n    procedure RemoveBridge(ABridgeName: string); override;\r\n    procedure CaptureScreenShot(ACompleteEvent: TTMSFNCWebBrowserCaptureScreenShotCompleteEvent = nil); override;\r\n    function GetBridgeCommunicationLayer(ABridgeName: string): string; override;\r\n    function NativeEnvironment: Pointer; override;\r\n    function NativeBrowser: Pointer; override;\r\n    function IsFMXBrowser: Boolean; override;\r\n    function CanGoBack: Boolean; override;\r\n    function CanGoForward: Boolean; override;\r\n    {$IFDEF ANDROID}\r\n    function NativeDialog: Pointer; override;\r\n    {$ENDIF}\r\n    {$IFDEF MSWINDOWS}\r\n    function GetWebBrowserInstance: IInterface; override;\r\n    {$ENDIF}\r\n    property OnCloseForm;\r\n    property EnableContextMenu;\r\n    property EnableShowDebugConsole;\r\n    property EnableAcceleratorKeys;\r\n    property CacheFolder;\r\n    property CacheFolderName;\r\n    property AutoClearCache;\r\n    procedure ClearCache; override;\r\n    procedure ShowDebugConsole; override;\r\n\r\n    property MapsInstance;\r\n    property MapsProperties;\r\n  published\r\n    property OnCustomizeLocalAccessFileName;\r\n    property OnCaptureScreenShot;\r\n    property OnCustomizeCSS;\r\n    property OnCustomizeHeadLinks;\r\n    property OnCustomizeJavaScript;\r\n    property OnCustomizeMap;\r\n    property OnCustomizeGlobalVariables;\r\n    property OnCustomizeMarker;\r\n    property OnCustomizePopup;\r\n    property OnCustomizeOptions;\r\n    property OnCustomizePolyElement;\r\n    property OnGetDefaultHTMLMessage;\r\n    property OnZoomChanged;\r\n    property OnMapCenterChanged;\r\n    property OnMapTypeChanged;\r\n    property OnMapMoveStart;\r\n    property OnMapMoveEnd;\r\n    property OnMapClick;\r\n    property OnMapRightClick;\r\n    property OnMapDblClick;\r\n    property OnMapMouseUp;\r\n    property OnMapMouseDown;\r\n    property OnMapMouseMove;\r\n    property OnMapMouseEnter;\r\n    property OnMapMouseLeave;\r\n    property OnMapRenderComplete;\r\n    property OnMarkerDragEnd;\r\n    property OnMarkerClick;\r\n    property OnMarkerRightClick;\r\n    property OnMarkerDblClick;\r\n    property OnMarkerMouseUp;\r\n    property OnMarkerMouseDown;\r\n    property OnMarkerMouseEnter;\r\n    property OnMarkerMouseLeave;\r\n    property OnPolyElementDragEnd;\r\n    property OnPolyElementClick;\r\n    property OnPolyElementRightClick;\r\n    property OnPolyElementDblClick;\r\n    property OnPolyElementMouseUp;\r\n    property OnPolyElementMouseDown;\r\n    property OnPolyElementMouseEnter;\r\n    property OnPolyElementMouseLeave;\r\n    property OnCustomEvent;\r\n    property OnMapInitialized;\r\n    property OnGetCenterCoordinate;\r\n    property OnGetZoomLevel;\r\n    property OnGetBounds;\r\n    property OnCreateGPXTrack;\r\n    property OnCreateGPXSegment;\r\n    property OnCreateGeoJSONObject;\r\n    property OnClusterClick;\r\n\r\n    property Polylines;\r\n    property Polygons;\r\n    property Circles;\r\n    property Rectangles;\r\n    property Markers;\r\n    property Options;\r\n    property Version;\r\n    property LocalFileAccess;\r\n    property LibraryLocation;\r\n    property TileLayers;\r\n    property RouteCalculator;\r\n    property ElementContainers;\r\n    property HeadLinks;\r\n    property DesigntimeEnabled;\r\n    property Clusters;\r\n    property HeatMaps;\r\n  end;\r\n\r\nimplementation\r\n\r\n{$R TMSFNCMapsOpenLayers.res}\r\n\r\nuses\r\n  {%H-}Math,\r\n  WEBLib.TMSFNCPersistence,\r\n  WEBLib.TMSFNCUtils,\r\n  WEBLib.TMSFNCMaps.OpenLayers,\r\n  SysUtils\r\n  {$IFDEF FMXLIB}\r\n  ,FMX.Types, IOUtils\r\n  {$ENDIF}\r\n  {$IFDEF VCLLIB}\r\n  ,IOUtils\r\n  {$ENDIF}\r\n  ;\r\n\r\nconst\r\n  TILELAYERVAR = 'tileLayer';\r\n  TILELAYERARRAYVAR = 'tileLayerArray';\r\n  TILESERVERVAR = 'tileServer';\r\n  GETTILELAYERARRAYVAR = 'get' + TILELAYERARRAYVAR + '()';\r\n  ADDORUPDATETILELAYERFUNCTION = 'addOrUpdateTileLayer';\r\n  DELETETILELAYERFUNCTION = 'deleteTileLayer';\r\n\r\n\r\n{ TTMSFNCCustomOpenLayers }\r\n\r\nconstructor TTMSFNCCustomOpenLayers.Create(AOwner: TComponent);\r\n{$IFNDEF WEBLIB}\r\nvar\r\n  f: string;\r\n  r: TResourceStream;\r\n{$ENDIF}\r\nbegin\r\n  inherited;\r\n  FTileLayers := TTMSFNCOpenLayersTileLayers.Create(Self);\r\n  FClusters := TTMSFNCOpenLayersClusters.Create(Self);\r\n  LibraryLocation := llOnline;\r\n  Service := msOpenLayers;\r\n\r\n  LocalFileAccess := true;\r\n\r\n  if csDesigning in ComponentState then\r\n    Exit;\r\n\r\n  {$IFNDEF LCLWEBLIB}\r\n  TDirectory.CreateDirectory(TTMSFNCUtils.AddBackslash(TTMSFNCUtils.GetTempPath) + 'ttmsfncopenlayers');\r\n  {$ENDIF}\r\n  {$IFDEF LCLLIB}\r\n  CreateDir(TTMSFNCUtils.AddBackslash(TTMSFNCUtils.GetTempPath) + 'ttmsfncopenlayers');\r\n  {$ENDIF}\r\n\r\n  {$IFNDEF WEBLIB}\r\n  f := TTMSFNCUtils.AddBackslash(TTMSFNCUtils.GetTempPath) + 'ttmsfncopenlayers\\ol.js';\r\n  r := TTMSFNCUtils.GetResourceStream('OL_JS', HInstance);\r\n\r\n  try\r\n    r.SaveToFile(f);\r\n  finally\r\n    r.Free;\r\n  end;\r\n\r\n  f := TTMSFNCUtils.AddBackslash(TTMSFNCUtils.GetTempPath) + 'ttmsfncopenlayers\\ol.css';\r\n  r := TTMSFNCUtils.GetResourceStream('OL_CSS', HInstance);\r\n\r\n  try\r\n    r.SaveToFile(f);\r\n  finally\r\n    r.Free;\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.GetOptionsClass: TTMSFNCMapsOptionsClass;\r\nbegin\r\n  Result := TTMSFNCOpenLayersOptions;\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.GetPolygons: TTMSFNCOpenLayersPolygons;\r\nbegin\r\n  Result := TTMSFNCOpenLayersPolygons(inherited Polygons);\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.GetPolygonsClass: TTMSFNCMapsPolygonsClass;\r\nbegin\r\n  Result := TTMSFNCOpenLayersPolygons;\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.GetPolylines: TTMSFNCOpenLayersPolylines;\r\nbegin\r\n  Result := TTMSFNCOpenLayersPolylines(inherited Polylines);\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.GetPolylinesClass: TTMSFNCMapsPolylinesClass;\r\nbegin\r\n  Result := TTMSFNCOpenLayersPolylines;\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.GetRectanglesClass: TTMSFNCMapsRectanglesClass;\r\nbegin\r\n  Result := TTMSFNCOpenLayersRectangles;\r\nend;\r\n\r\ndestructor TTMSFNCCustomOpenLayers.Destroy;\r\nbegin\r\n  FTileLayers.Free;\r\n  FClusters.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCCustomOpenLayers.DoUpdateClusters(const AValue: string);\r\nvar\r\n  I, j: Integer;\r\n  ma: string;\r\n  sl: TStringList;\r\n  m: TTMSFNCOpenLayersMarkersList;\r\nbegin\r\n  if not MapInitialized or IsDestroying or (UpdateCount > 0) then\r\n    Exit;\r\n\r\n  ma := ParseScript(AValue);\r\n\r\n  sl := TStringList.Create;\r\n  try\r\n    TTMSFNCUtils.Split(',', ma, sl);\r\n    for I := 0 to Clusters.Count - 1 do\r\n    begin\r\n      j := sl.IndexOf(Clusters[I].ID);\r\n      if (j = -1) or (Clusters[I].FReload) then\r\n      begin\r\n        Clusters[I].FReload := False;\r\n        m := Clusters[I].Markers;\r\n        ExecuteJavaScript(ADDORUPDATECLUSTERFUNCTION + '([' + Clusters[I].ToJSON + ', ' + m.ToJSON + ']);');\r\n      end;\r\n      if j <> -1 then\r\n        sl.Delete(j);\r\n    end;\r\n\r\n    for I := 0 to sl.Count - 1 do\r\n      ExecuteJavaScript(DELETECLUSTERFUNCTION + '({\"ID\": \"' + sl[I] + '\"})');\r\n\r\n  finally\r\n    sl.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomOpenLayers.DoUpdateTileLayers(const AValue: string);\r\nvar\r\n  I, j: Integer;\r\n  ma: string;\r\n  sl: TStringList;\r\nbegin\r\n  if not MapInitialized or IsDestroying or (UpdateCount > 0) then\r\n    Exit;\r\n\r\n  ma := ParseScript(AValue);\r\n\r\n  sl := TStringList.Create;\r\n  try\r\n    TTMSFNCUtils.Split(',', ma, sl);\r\n    for I := 0 to TileLayers.Count - 1 do\r\n    begin\r\n      j := sl.IndexOf(TileLayers[I].ID);\r\n      ExecuteJavaScript(ADDORUPDATETILELAYERFUNCTION + '(' + TileLayers[I].ToJSON + ');');\r\n      if j <> -1 then\r\n        sl.Delete(j);\r\n    end;\r\n\r\n    for I := 0 to sl.Count - 1 do\r\n      ExecuteJavaScript(DELETETILELAYERFUNCTION + '({\"ID\": \"' + sl[I] + '\"})');\r\n\r\n  finally\r\n    sl.Free;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCCustomOpenLayers.EndUpdate;\r\nbegin\r\n  inherited;\r\n  if UpdateCount = 0 then\r\n  begin\r\n    UpdateTileLayers;\r\n    UpdateClusters;\r\n    UpdateHeatMaps;\r\n  end;\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.GetCustomMap: string;\r\nvar\r\n  TileServer: string;\r\nbegin\r\n  if not Options.ShowBaseLayer then\r\n    TileServer := ''\r\n  else\r\n    TileServer := Options.TileServer;\r\n\r\n  if (Options.TileServer <> '') then\r\n    Result :=\r\n      '  ' + MAPVAR + '.getLayers().getArray()[0].setSource(new ' + MAPSERVICEVAR + '.source.XYZ({url: \"' + TileServer + '\"}));' + LB\r\n  else\r\n    Result :=\r\n      '  ' + MAPVAR + '.getLayers().getArray()[0].setSource(new ' + MAPSERVICEVAR + MAPSOURCEVAR + ');' + LB;\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.GetCustomOptions: string;\r\nbegin\r\n  Result :=\r\n    'var TileServer = ' + PARAMSNAME + '[\"TileServer\"];' + LB +\r\n    'if (!' + PARAMSNAME + '[\"ShowBaseLayer\"]) {' + LB +\r\n    '  TileServer = \" \";' + LB +\r\n    '}' + LB +\r\n    'if (TileServer != \"\" && TileServer != ' + TILESERVERVAR + '){' + LB +\r\n    '  ' + MAPVAR + '.getLayers().getArray()[0].setSource(new ' + MAPSERVICEVAR + '.source.XYZ({url: TileServer}));' + LB +\r\n    '} else if (TileServer == \"\" && TileServer != ' + TILESERVERVAR + '){' + LB +\r\n    '  ' + MAPVAR + '.getLayers().getArray()[0].setSource(new ' + MAPSERVICEVAR + MAPSOURCEVAR + ');' + LB +\r\n    '}' + LB +\r\n\r\n    TILESERVERVAR + ' = TileServer;' + LB;\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.GetAddOrUpdateClusterFunction: string;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(MapsInstance) then\r\n    Exit;\r\n\r\n  Result :=\r\n    'function ' + ADDORUPDATECLUSTERFUNCTION + '(' + PARAMSNAME + '){' + LB +\r\n\r\n    TryCatchStart +\r\n\r\n    '  var ' + CLUSTERVAR + ' = ' + CLUSTERARRAYVAR + '[' + PARAMSNAME + '[0][\"ID\"]];' + LB +\r\n\r\n    '  var m = [];' + LB +\r\n    '  for (var k in ' + PARAMSNAME + '[1]){' + LB +\r\n    '    var mi = ' + PARAMSNAME + '[1][k];' + LB +\r\n    '    layer = ' + MARKERARRAYVAR + '[mi[\"ID\"]];' + LB +\r\n    '    layer.setVisible(false);' + LB +\r\n    '    var feature = layer.getSource().getFeatures()[0];' + LB +\r\n    '    m.push(feature);' + LB +\r\n    '  }' + LB +\r\n\r\n    '  if (!' + CLUSTERVAR + '){' + LB +\r\n\r\n    '    var source = new ' + MAPSERVICEVAR + '.source.Vector({' + LB +\r\n    '      features: m' + LB +\r\n    '    });' + LB +\r\n\r\n    '    var clusterSource = new ' + MAPSERVICEVAR + '.source.Cluster({' + LB +\r\n    '      distance: 40,' + LB +\r\n    '      source: source' + LB +\r\n    '    });' + LB +\r\n\r\n    '    var styleCache = {};' + LB +\r\n    '    var cimage = {};' + LB +\r\n\r\n    '    if (' + PARAMSNAME + '[0][\"ImagePath\"] != \"\"){' + LB +\r\n    '      cimage = new ' + MAPSERVICEVAR + '.style.Icon({' + LB +\r\n    '        src: ' + PARAMSNAME + '[0][\"ImagePath\"]' + LB +\r\n    '      });' + LB +\r\n    '    } else {' + LB +\r\n    '      cimage = new ' + MAPSERVICEVAR + '.style.Circle({' + LB +\r\n    '        radius: 15,' + LB +\r\n    '        stroke: new ' + MAPSERVICEVAR + '.style.Stroke({' + LB +\r\n    '          color: ' + PARAMSNAME + '[0][\"StrokeColor\"]' + LB +\r\n    '        }),' + LB +\r\n    '        fill: new ' + MAPSERVICEVAR + '.style.Fill({' + LB +\r\n    '          color: ' + PARAMSNAME + '[0][\"FillColor\"]' + LB +\r\n    '        })' + LB +\r\n    '      });' + LB +\r\n    '    }' + LB +\r\n\r\n    '    var ' + CLUSTERVAR + ' = new ' + MAPSERVICEVAR + '.layer.Vector({' + LB +\r\n    '      zIndex: 1,' + LB +\r\n    '      source: clusterSource,' + LB +\r\n    '      style: function(feature, resolution) {' + LB +\r\n    '        var size = feature.get(''features'').length;' + LB +\r\n    '        var style = styleCache[size];' + LB +\r\n    '        if (!style) {' + LB +\r\n    '          style = [new ' + MAPSERVICEVAR + '.style.Style({' + LB +\r\n    '            image: cimage,' + LB +\r\n    '            text: new ' + MAPSERVICEVAR + '.style.Text({' + LB +\r\n    '              text: size.toString(),' + LB +\r\n    '              fill: new ' + MAPSERVICEVAR + '.style.Fill({' + LB +\r\n    '                color: ' + PARAMSNAME + '[0][\"FontColor\"]' + LB +\r\n    '              })' + LB +\r\n    '            })' + LB +\r\n\r\n    '          })];' + LB +\r\n    '          styleCache[size] = style;' + LB +\r\n    '        }' + LB +\r\n    '        return style;' + LB +\r\n    '      }' + LB +\r\n    '    });' + LB +\r\n\r\n    '    ' + MAPVAR + '.addLayer('+ CLUSTERVAR +');' + LB +\r\n\r\n    '  };';\r\n\r\n\r\n  Result := Result +\r\n    '  if (' + CLUSTERVAR + '){' + LB +\r\n    '    ' + CLUSTERARRAYVAR + '[' + PARAMSNAME + '[0][\"ID\"]] = ' + CLUSTERVAR + ';' + LB +\r\n\r\n    '    ' + CLUSTERVAR + '.ClusterClick = ClusterClick;' + LB +\r\n    '    var ClusterClick = function(event){' + LB +\r\n    '        ' + GETSENDEVENT + '(parseEvent(event, \"ClusterClick\", ' + PARAMSNAME + '[0][\"ID\"]));' + LB +\r\n    '    }' + LB + LB +\r\n    '    ' + MAPVAR + '.on(''click'', ClusterClick);' + LB +\r\n\r\n    '  }' + LB +\r\n\r\n    TryCatchEnd('TMS FNC OpenLayers Marker Cluster error') +\r\n    '}';\r\n\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.GetAddOrUpdateHeatMapFunction: string;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(MapsInstance) then\r\n    Exit;\r\n\r\n  Result :=\r\n    'function ' + ADDORUPDATEHEATMAPFUNCTION + '(' + PARAMSNAME + '){' + LB +\r\n\r\n    TryCatchStart +\r\n\r\n    '  var heatmapData = new ol.source.Vector();' + LB +\r\n    '  var coord;' + LB +\r\n    '  var lonLat;' + LB +\r\n    '  var pointFeature;' + LB +\r\n\r\n    '  if (!(typeof ' + PARAMSNAME + '[\"WeightedCoordinates\"] == \"undefined\")) {' + LB +\r\n    '    for (I = 0; I < ' + PARAMSNAME + '[\"WeightedCoordinates\"].length; I++){' + LB +\r\n    '      var lat = ' + PARAMSNAME + '[\"WeightedCoordinates\"][I][\"Coordinate\"][\"Latitude\"];' + LB +\r\n    '      var lng = ' + PARAMSNAME + '[\"WeightedCoordinates\"][I][\"Coordinate\"][\"Longitude\"];' + LB +\r\n    '      var cw = ' + PARAMSNAME + '[\"WeightedCoordinates\"][I][\"Weight\"];' + LB +\r\n    '      if (cw < 1) { cw = 1; }' + LB +\r\n    '      coord = ol.proj.fromLonLat([lng, lat]);' + LB +\r\n    '      lonLat = new ol.geom.Point(coord);' + LB +\r\n    '      pointFeature = new ol.Feature({' + LB +\r\n    '        geometry: lonLat,' + LB +\r\n    '        weight: cw' + LB +\r\n    '      });' + LB +\r\n    '      heatmapData.addFeature(pointFeature);' + LB +\r\n    '    }'+ LB +\r\n    '  }'+ LB +\r\n\r\n    '  var ' + HEATMAPVAR + ' = ' + HEATMAPARRAYVAR + '[' + PARAMSNAME + '[\"ID\"]];' + LB +\r\n    '  ' + HEATMAPVAR + ' = new ' + MAPSERVICEVAR + '.layer.Heatmap({' + LB +\r\n    '    source: heatmapData,' + LB +\r\n    '    opacity: ' + PARAMSNAME + '[\"Opacity\"],' + LB +\r\n    '    gradient: [toRGBA(' + PARAMSNAME + '[\"GradientStartColor\"], 1), toRGBA(' + PARAMSNAME + '[\"GradientMidColor\"], 1), toRGBA(' + PARAMSNAME + '[\"GradientEndColor\"], 1)]' + LB +\r\n    '  });' + LB +\r\n    '  map.addLayer(' + HEATMAPVAR + ');' + LB +\r\n\r\n    '  if (' + HEATMAPVAR + '){' + LB +\r\n    '    ' + HEATMAPARRAYVAR + '[' + PARAMSNAME + '[\"ID\"]] = ' + HEATMAPVAR + ';' + LB +\r\n    '  }' + LB +\r\n\r\n    TryCatchEnd('TMS FNC OpenLayers HeatMap error') +\r\n    '}';\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.GetDeleteHeatMapFunction: string;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(MapsInstance) then\r\n    Exit;\r\n\r\n  Result :=\r\n    'function ' + DELETEHEATMAPFUNCTION + '(' + PARAMSNAME + '){' + LB +\r\n    TryCatchStart +\r\n    '  var ' + HEATMAPVAR + ' = ' + HEATMAPARRAYVAR + '[' + PARAMSNAME + '[\"ID\"]];' + LB +\r\n    '  if (' + HEATMAPVAR + '){' + LB +\r\n    '    map.removeLayer(' + HEATMAPVAR + ');' + LB +\r\n    '    delete ' + HEATMAPARRAYVAR + '[' + PARAMSNAME + '[\"ID\"]];' + LB +\r\n    '    ' + HEATMAPVAR + ' = null;' + LB +\r\n    '  }' + LB +\r\n    TryCatchEnd('TMS FNC OpenLayers delete HeatMap error') +\r\n    '}';\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.GetAddOrUpdateTileLayerFunction: string;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(MapsInstance) then\r\n    Exit;\r\n\r\n  Result :=\r\n    'function ' + ADDORUPDATETILELAYERFUNCTION + '(' + PARAMSNAME + '){' + LB +\r\n    TryCatchStart +\r\n    '  var ' + TILELAYERVAR + ' = ' + TILELAYERARRAYVAR + '[' + PARAMSNAME + '[\"ID\"]];' + LB +\r\n    '  var l;' + LB +\r\n    '  var s;' + LB +\r\n\r\n    '  switch(' + PARAMSNAME + '[\"Source\"]){' + LB +\r\n\r\n    //XYZ\r\n    '    case 0:' + LB +\r\n    '    s = new ' + MAPSERVICEVAR + '.source.XYZ({' + LB +\r\n    '        url: ' + PARAMSNAME + '[\"URL\"]' + LB +\r\n    '      });' + LB +\r\n\r\n    '    l = new ' + MAPSERVICEVAR + '.layer.Tile({' + LB +\r\n    '      name: ' + PARAMSNAME + '[\"ID\"],' + LB +\r\n    '      className: ' + PARAMSNAME + '[\"CSSClassName\"],' + LB +\r\n    '      opacity: ' + PARAMSNAME + '[\"Opacity\"]' + ',' + LB +\r\n    '      source: s' + LB +\r\n    '    });' + LB +\r\n\r\n    '     break;' + LB +\r\n\r\n    //WMS\r\n    '    case 1:' + LB +\r\n    '    s = new ' + MAPSERVICEVAR + '.source.TileWMS({' + LB +\r\n    '        url: ' + PARAMSNAME + '[\"URL\"],' + LB +\r\n    '        params: {\"LAYERS\":' + PARAMSNAME + '[\"Params\"][\"Layers\"]},' + LB +\r\n    '      });' + LB +\r\n\r\n    '    l = new ' + MAPSERVICEVAR + '.layer.Tile({' + LB +\r\n    '      name: ' + PARAMSNAME + '[\"ID\"],' + LB +\r\n    '      className: ' + PARAMSNAME + '[\"CSSClassName\"],' + LB +\r\n    '      opacity: ' + PARAMSNAME + '[\"Opacity\"]' + ',' + LB +\r\n    '      source: s' + LB +\r\n    '    });' + LB +\r\n\r\n    '     break;' + LB +\r\n\r\n    //JSON\r\n    '    case 2:' + LB +\r\n\r\n    '    const style = new ' + MAPSERVICEVAR + '.style.Style({' + LB +\r\n    '      fill: new ' + MAPSERVICEVAR + '.style.Fill({' + LB +\r\n    '        color: \"#eeeeee\",' + LB +\r\n    '      }),' + LB +\r\n    '    });' + LB +\r\n\r\n    '    s = new ' + MAPSERVICEVAR + '.source.Vector({' + LB +\r\n    '      url: ' + PARAMSNAME + '[\"URL\"],' + LB +\r\n    '      format: new ' + MAPSERVICEVAR + '.format.GeoJSON(),' + LB +\r\n    '    })' + LB +\r\n\r\n    '    l = new ' + MAPSERVICEVAR + '.layer.Vector({' + LB +\r\n    '      background: \"#1a2b39\",' + LB +\r\n    '      name: ' + PARAMSNAME + '[\"ID\"],' + LB +\r\n    '      className: ' + PARAMSNAME + '[\"CSSClassName\"],' + LB +\r\n    '      source: s,' + LB +\r\n    '      opacity: ' + PARAMSNAME + '[\"Opacity\"]' + ',' + LB +\r\n    '      style: function (feature) {' + LB +\r\n    '        style.getFill().setColor(feature.get(\"COLOR\"));' + LB +\r\n    '        return style;' + LB +\r\n    '      },' + LB +\r\n    '    });' + LB +\r\n\r\n    '     break;' + LB +\r\n    '  }' + LB +\r\n\r\n    '  if (!' + TILELAYERVAR + ') ' + LB +\r\n    '  ' + MAPVAR + '.addLayer(l);' + LB +\r\n    '  ' + TILELAYERVAR + ' = true;' + LB +\r\n    '  if (' + TILELAYERVAR + '){' + LB +\r\n    '    ' + TILELAYERARRAYVAR + '[' + PARAMSNAME + '[\"ID\"]] = ' + TILELAYERVAR + ';' + LB +\r\n    '    ' + MAPVAR + '.getLayers().forEach(layer => {' + LB +\r\n    '      if (layer && layer.get(\"name\") === ' + PARAMSNAME + '[\"ID\"]) {' + LB +\r\n    '        layer.setOpacity(' + PARAMSNAME + '[\"Opacity\"]);' + LB +\r\n    '        layer.setSource(s);' + LB +\r\n    '      }' + LB +\r\n    '    });' + LB +\r\n    '  }' + LB +\r\n\r\n    TryCatchEnd('TMS FNC OpenLayers TileLayer error') +\r\n    '}';\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.GetAPIVersion: string;\r\nbegin\r\n  Result := Options.Version;\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.GetDeleteClusterFunction: string;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(MapsInstance) then\r\n    Exit;\r\n\r\n  Result :=\r\n    'function ' + DELETECLUSTERFUNCTION + '(' + PARAMSNAME + '){' + LB +\r\n    TryCatchStart +\r\n    '  var ' + CLUSTERVAR + ' = ' + CLUSTERARRAYVAR + '[' + PARAMSNAME + '[\"ID\"]];' + LB +\r\n    '  if (' + CLUSTERVAR + '){' + LB +\r\n    '    ' + MAPVAR + '.removeLayer(' + CLUSTERVAR + ');' + LB +\r\n    '    delete ' + CLUSTERARRAYVAR + '[' + PARAMSNAME + '[\"ID\"]];' + LB +\r\n    '    ' + CLUSTERVAR + ' = null;' + LB +\r\n    '  }' + LB +\r\n    TryCatchEnd('TMS FNC OpenLayers delete Marker Cluster error') +\r\n    '}';\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.GetDeleteTileLayerFunction: string;\r\nbegin\r\n  Result := '';\r\n  if not Assigned(MapsInstance) then\r\n    Exit;\r\n\r\n  Result :=\r\n    'function ' + DELETETILELAYERFUNCTION + '(' + PARAMSNAME + '){' + LB +\r\n    TryCatchStart +\r\n    '  var ' + TILELAYERVAR + ' = ' + TILELAYERARRAYVAR + '[' + PARAMSNAME + '[\"ID\"]];' + LB +\r\n    '  if (' + TILELAYERVAR + '){' + LB +\r\n    '    ' + MAPVAR + '.getLayers().forEach(layer => {' + LB +\r\n    '      if (layer && layer.get(\"name\") === ' + PARAMSNAME + '[\"ID\"]) {' + LB +\r\n    '        ' + MAPVAR + '.removeLayer(layer);' + LB +\r\n    '      }' + LB +\r\n    '    });' + LB +\r\n\r\n    '    delete ' + TILELAYERARRAYVAR + '[' + PARAMSNAME + '[\"ID\"]];' + LB +\r\n    '    ' + TILELAYERVAR + ' = null;' + LB +\r\n    '  }' + LB +\r\n    TryCatchEnd('TMS FNC OpenLayers delete TileLayer error') +\r\n    '}';\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.GetDocURL: string;\r\nbegin\r\n  Result := TTMSFNCBaseDocURL + 'tmsfncmaps/components/ttmsfncmaps/#ttmsfncopenlayers';\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.GetHeatMaps: TTMSFNCOpenLayersHeatMaps;\r\nbegin\r\n  Result := TTMSFNCOpenLayersHeatMaps(inherited HeatMaps);\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.GetHeatMapsClass: TTMSFNCMapsHeatMapsClass;\r\nbegin\r\n  Result := TTMSFNCOpenLayersHeatMaps;\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.GetMarkers: TTMSFNCOpenLayersMarkers;\r\nbegin\r\n  Result := TTMSFNCOpenLayersMarkers(inherited Markers);\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.GetMarkersClass: TTMSFNCMapsMarkersClass;\r\nbegin\r\n  Result := TTMSFNCOpenLayersMarkers;\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.GetAddCustomObjects: string;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Result := '';\r\n  for I := 0 to TileLayers.Count - 1 do\r\n    Result := Result + '  ' + ADDORUPDATETILELAYERFUNCTION + '(' + TileLayers[I].ToJSON + ');' + LB;\r\n\r\n  for I := 0 to HeatMaps.Count - 1 do\r\n    Result := Result + '  ' + ADDORUPDATEHEATMAPFUNCTION + '(' + HeatMaps[I].ToJSON + ');' + LB;\r\n\r\n  for I := 0 to Clusters.Count - 1 do\r\n    Result := Result + '  ' + ADDORUPDATECLUSTERFUNCTION + '([' + Clusters[I].ToJSON + ', []]);' + LB;\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.GetCustomGlobalVariables: string;\r\nbegin\r\n  Result :=\r\n    'var ' + TILELAYERVAR + ';' + LB +\r\n    'var ' + TILELAYERARRAYVAR + ' = {};' + LB +\r\n    'var ' + TILESERVERVAR + ' = \"\";' + LB +\r\n    'function ' + GETTILELAYERARRAYVAR + '{' + LB +\r\n    '  var arr = [];' + LB +\r\n    '  for (var key in ' + TILELAYERARRAYVAR + '){' + LB +\r\n    '    var v = key;' + LB +\r\n    '    arr.push(v);' + LB +\r\n    '  }' + LB +\r\n    '  return arr.toString();' + LB +\r\n    '}' + LB +\r\n    'var ' + HEATMAPVAR + ';' + LB +\r\n    'var ' + HEATMAPARRAYVAR + ' = {};' + LB +\r\n    'function ' + GETHEATMAPARRAYVAR + '{' + LB +\r\n    '  var arr = [];' + LB +\r\n    '  for (var key in ' + HEATMAPARRAYVAR + '){' + LB +\r\n    '    var v = key;' + LB +\r\n    '    arr.push(v);' + LB +\r\n    '  }' + LB +\r\n    '  return arr.toString();' + LB +\r\n    '}';\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.GetCirclesClass: TTMSFNCMapsCirclesClass;\r\nbegin\r\n  Result := TTMSFNCOpenLayersCircles;\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.GetCustomFunctions: string;\r\nbegin\r\n  Result := GetAddOrUpdateTileLayerFunction + LB + LB +\r\n  GetDeleteTileLayerFunction + LB + LB +\r\n  GetAddOrUpdateHeatMapFunction + LB + LB +\r\n  GetDeleteHeatMapFunction + LB + LB +\r\n  GetAddOrUpdateClusterFunction + LB + LB +\r\n  GetDeleteClusterFunction;\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.GetOptions: TTMSFNCOpenLayersOptions;\r\nbegin\r\n  Result := inherited Options as TTMSFNCOpenLayersOptions;\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.GetVersionNr: Integer;\r\nbegin\r\n  Result := MakeLong(MakeWord(BLD_VER,REL_VER),MakeWord(MIN_VER,MAJ_VER));\r\nend;\r\n\r\nprocedure TTMSFNCCustomOpenLayers.SetClusters(\r\n  const Value: TTMSFNCOpenLayersClusters);\r\nbegin\r\n  FClusters.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomOpenLayers.SetHeatMaps(\r\n  const Value: TTMSFNCOpenLayersHeatMaps);\r\nbegin\r\n  HeatMaps.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomOpenLayers.SetMarkers(\r\n  const Value: TTMSFNCOpenLayersMarkers);\r\nbegin\r\n  Markers.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomOpenLayers.SetOptions(\r\n  const Value: TTMSFNCOpenLayersOptions);\r\nbegin\r\n  Options.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomOpenLayers.SetPolygons(\r\n  const Value: TTMSFNCOpenLayersPolygons);\r\nbegin\r\n  Polygons.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomOpenLayers.SetPolylines(\r\n  const Value: TTMSFNCOpenLayersPolylines);\r\nbegin\r\n  Polylines.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomOpenLayers.SetTileLayers(\r\n  const Value: TTMSFNCOpenLayersTileLayers);\r\nbegin\r\n  FTileLayers.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCCustomOpenLayers.UpdateClusters;\r\nbegin\r\n  if not MapInitialized or IsDestroying or (UpdateCount > 0) then\r\n    Exit;\r\n\r\n  ExecuteJavaScript(GETCLUSTERARRAYVAR, {$IFDEF LCLWEBLIB}@{$ENDIF}DoUpdateClusters);\r\nend;\r\n\r\nprocedure TTMSFNCCustomOpenLayers.UpdateTileLayers;\r\nbegin\r\n  if not MapInitialized or IsDestroying or (UpdateCount > 0) then\r\n    Exit;\r\n\r\n  ExecuteJavaScript(GETTILELAYERARRAYVAR, {$IFDEF LCLWEBLIB}@{$ENDIF}DoUpdateTileLayers);\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.AddMarker(\r\n  ACoordinate: TTMSFNCMapsCoordinateRec; ATitle,\r\n  AIconURL: string): TTMSFNCOpenLayersMarker;\r\nbegin\r\n  Result := TTMSFNCOpenLayersMarker(inherited AddMarker(ACoordinate, ATitle, AIconURL));\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.AddCircle(ACenter: TTMSFNCMapsCoordinateRec;\r\n  ARadius: Double): TTMSFNCOpenLayersCircle;\r\nbegin\r\n  Result := TTMSFNCOpenLayersCircle(inherited AddCircle(ACenter, ARadius));\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.AddHeatMap(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray): TTMSFNCOpenLayersHeatMap;\r\nbegin\r\n  Result := TTMSFNCOpenLayersHeatMap(inherited AddHeatMap(ACoordinates));\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.AddMarker(ALatitude, ALongitude: Double;\r\n  ATitle, AIconURL: string): TTMSFNCOpenLayersMarker;\r\nbegin\r\n  Result := TTMSFNCOpenLayersMarker(inherited AddMarker(ALatitude, ALongitude, ATitle, AIconURL));\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.AddPolygon(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray;\r\n  AClose: Boolean): TTMSFNCOpenLayersPolygon;\r\nbegin\r\n  Result := TTMSFNCOpenLayersPolygon(inherited AddPolygon(ACoordinates, AClose));\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.AddPolyline(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray;\r\n  AClose: Boolean): TTMSFNCOpenLayersPolyline;\r\nbegin\r\n  Result := TTMSFNCOpenLayersPolyline(inherited AddPolyline(ACoordinates, AClose));\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.AddRectangle(\r\n  ABounds: TTMSFNCMapsBoundsRec): TTMSFNCOpenLayersRectangle;\r\nbegin\r\n  Result := TTMSFNCOpenLayersRectangle(inherited AddRectangle(ABounds));\r\nend;\r\n\r\nfunction TTMSFNCCustomOpenLayers.AddTileLayer(\r\n  AURL: string; AOpacity: Single = 1): TTMSFNCOpenLayersTileLayer;\r\nbegin\r\n  BeginUpdate;\r\n  Result := TileLayers.Add;\r\n  Result.FURL := AURL;\r\n  Result.FOpacity := AOpacity;\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomOpenLayers.DoClusterClick(\r\n  AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if Assigned(OnClusterClick) then\r\n    OnClusterClick(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomOpenLayers.DoMapRenderComplete;\r\nbegin\r\n  if Assigned(OnMapRenderComplete) then\r\n    OnMapRenderComplete(Self);\r\nend;\r\n\r\nprocedure TTMSFNCCustomOpenLayers.DoMarkerDragEnd(\r\n  AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if Assigned(OnMarkerDragEnd) then\r\n    OnMarkerDragEnd(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomOpenLayers.DoPolyElementDragEnd(\r\n  AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  if Assigned(OnPolyElementDragEnd) then\r\n    OnPolyElementDragEnd(Self, AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomOpenLayers.CallCustomEvent(\r\n  AEventData: TTMSFNCMapsEventData);\r\nbegin\r\n  inherited;\r\n  if AEventData.EventName = 'MarkerDragEnd' then\r\n    DoMarkerDragEnd(AEventData);\r\n\r\n  if AEventData.EventName = 'PolyElementDragEnd' then\r\n    DoPolyElementDragEnd(AEventData);\r\n\r\n  if AEventData.EventName = 'MapRenderComplete' then\r\n    DoMapRenderComplete;\r\n\r\n  if AEventData.EventName = 'ClusterClick' then\r\n    DoClusterClick(AEventData);\r\nend;\r\n\r\nprocedure TTMSFNCCustomOpenLayers.Clear;\r\nbegin\r\n  inherited;\r\n  BeginUpdate;\r\n  ClearTileLayers;\r\n  ClearClusters;\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomOpenLayers.ClearClusters;\r\nbegin\r\n  BeginUpdate;\r\n  Clusters.Clear;\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomOpenLayers.ClearHeatMaps;\r\nbegin\r\n  BeginUpdate;\r\n  HeatMaps.Clear;\r\n  EndUpdate;\r\nend;\r\n\r\nprocedure TTMSFNCCustomOpenLayers.ClearTileLayers;\r\nbegin\r\n  BeginUpdate;\r\n  TileLayers.Clear;\r\n  EndUpdate;\r\nend;\r\n\r\nconstructor TTMSFNCOpenLayersOptions.Create;\r\nbegin\r\n  inherited;\r\n  TileServer := '';\r\n  ShowBaseLayer := True;\r\n  Version := 'v10.2.1'\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersOptions.SetShowBaseLayer(const Value: Boolean);\r\nbegin\r\n  if FShowBaseLayer <> Value then\r\n  begin\r\n    FShowBaseLayer := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersOptions.SetTileServer(const Value: string);\r\nbegin\r\n  if FTileServer <> Value then\r\n  begin\r\n    FTileServer := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersOptions.SetVersion(const Value: string);\r\nbegin\r\n  if FVersion <> Value then\r\n  begin\r\n    FVersion := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCOpenLayersTileLayer }\r\n\r\nprocedure TTMSFNCOpenLayersTileLayer.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCOpenLayersTileLayer then\r\n  begin\r\n    FURL := (Source as TTMSFNCOpenLayersTileLayer).URL;\r\n    FOpacity := (Source as TTMSFNCOpenLayersTileLayer).Opacity;\r\n    FParams.Assign((Source as TTMSFNCOpenLayersTileLayer).Params);\r\n    FSource := (Source as TTMSFNCOpenLayersTileLayer).Source;\r\n//    FType := (Source as TTMSFNCOpenLayersTileLayer).&Type;\r\n    FCSSClassName := (Source as TTMSFNCOpenLayersTileLayer).CSSClassName;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCOpenLayersTileLayer.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n\r\n  FParams := TTMSFNCOpenLayersTileLayerParams.Create;\r\n  FParams.OnChange := @DoParamsChanged;\r\n//  FType := tltTile;\r\n\r\n  FURL := '';\r\n  FOpacity := 1;\r\n  FSource := tlsXYZ;\r\n  FCSSClassName := '';\r\n\r\n  if Assigned(ACollection) then\r\n    FOwner := (Collection as TTMSFNCOpenLayersTileLayers).FOwner;\r\n\r\n  UpdateTileLayer;\r\nend;\r\n\r\ndestructor TTMSFNCOpenLayersTileLayer.Destroy;\r\nbegin\r\n  FParams.Free;\r\n  inherited;\r\n  UpdateTileLayer;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersTileLayer.DoParamsChanged(Sender: TObject);\r\nbegin\r\n  UpdateTileLayer;\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersTileLayer.GetID: string;\r\nbegin\r\n  if (FID = '') or FRecreate then\r\n    FID := CreateNewGUID;\r\n\r\n  FRecreate := False;\r\n  Result := FID;\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersTileLayer.IsOpacityStored: Boolean;\r\nbegin\r\n  Result := Opacity <> 0;\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersTileLayer.IsURLStored: Boolean;\r\nbegin\r\n  Result := URL <> '';\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersTileLayer.SetSource(\r\n  const Value: TTMSFNCOpenLayersTileLayerSource);\r\nbegin\r\n  if FSource <> Value then\r\n  begin\r\n    FSource := Value;\r\n    UpdateTileLayer;\r\n  end;\r\nend;\r\n\r\n//procedure TTMSFNCOpenLayersTileLayer.SetType(\r\n//  const Value: TTMSFNCOpenLayersTileLayerType);\r\n//begin\r\n//  if FType <> Value then\r\n//  begin\r\n//    FType := Value;\r\n//    UpdateTileLayer;\r\n//  end;\r\n//end;\r\n\r\nprocedure TTMSFNCOpenLayersTileLayer.SetCSSClassName(const Value: string);\r\nbegin\r\n  if FCSSClassName <> Value then\r\n  begin\r\n    FCSSClassName := Value;\r\n    UpdateTileLayer;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersTileLayer.SetOpacity(const Value: Single);\r\nbegin\r\n  if FOpacity <> Value then\r\n  begin\r\n    FOpacity := Value;\r\n    UpdateTileLayer;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersTileLayer.SetParams(\r\n  const Value: TTMSFNCOpenLayersTileLayerParams);\r\nbegin\r\n  FParams.Assign(Value);\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersTileLayer.SetURL(const Value: string);\r\nbegin\r\n  if FURL <> Value then\r\n  begin\r\n    FURL := Value;\r\n    UpdateTileLayer;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersTileLayer.UpdateTileLayer;\r\nbegin\r\n  FReload := True;\r\n  if Assigned(FOwner) then\r\n    (FOwner as TTMSFNCCustomOpenLayers).UpdateTileLayers;\r\nend;\r\n\r\n{ TTMSFNCOpenLayersTileLayers }\r\n\r\nfunction TTMSFNCOpenLayersTileLayers.Add: TTMSFNCOpenLayersTileLayer;\r\nbegin\r\n  Result := TTMSFNCOpenLayersTileLayer(inherited Add);\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersTileLayers.Clear;\r\nvar\r\n  l: TTMSFNCCustomMaps;\r\n  ci: TCollectionItem;\r\nbegin\r\n  l := FOwner;\r\n  if Assigned(l) then\r\n    l.BeginUpdate;\r\n\r\n  if Count > 0 then\r\n  begin\r\n    while Count > 0 do\r\n    begin\r\n      ci := TCollectionItem(Items[Count - 1]);\r\n      ci.Free;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(l) then\r\n    l.EndUpdate;\r\nend;\r\n\r\nconstructor TTMSFNCOpenLayersTileLayers.Create(AOwner: TTMSFNCCustomMaps);\r\nbegin\r\n  inherited Create(AOwner, CreateItemClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersTileLayers.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCOpenLayersTileLayer;\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersTileLayers.GetItem(\r\n  Index: Integer): TTMSFNCOpenLayersTileLayer;\r\nbegin\r\n  Result := TTMSFNCOpenLayersTileLayer(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersTileLayers.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersTileLayers.Insert(\r\n  Index: Integer): TTMSFNCOpenLayersTileLayer;\r\nbegin\r\n  Result := TTMSFNCOpenLayersTileLayer(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersTileLayers.Recreate;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to Count - 1 do\r\n    Items[I].Recreate := True;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersTileLayers.SetItem(Index: Integer;\r\n  const Value: TTMSFNCOpenLayersTileLayer);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCOpenLayers }\r\n\r\nprocedure TTMSFNCOpenLayers.RegisterRuntimeClasses;\r\nbegin\r\n  inherited;\r\n  RegisterClass(TTMSFNCOpenLayers);\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayers.AddBridge(ABridgeName: string; ABridgeObject: TObject);\r\nbegin\r\n  inherited AddBridge(ABridgeName, ABridgeObject);\r\nend;\r\n\r\nfunction TTMSFNCOpenLayers.CanGoBack: Boolean;\r\nbegin\r\n  Result := inherited CanGoBack;\r\nend;\r\n\r\nfunction TTMSFNCOpenLayers.CanGoForward: Boolean;\r\nbegin\r\n  Result := inherited CanGoForward;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayers.CaptureScreenShot(ACompleteEvent: TTMSFNCWebBrowserCaptureScreenShotCompleteEvent = nil);\r\nbegin\r\n  inherited CaptureScreenShot(ACompleteEvent);\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayers.ClearCache;\r\nbegin\r\n  inherited ClearCache;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayers.DeInitialize;\r\nbegin\r\n  inherited DeInitialize;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayers.ExecuteJavaScript(AScript: String;\r\n  ACompleteEvent: TTMSFNCWebBrowserJavaScriptCompleteEvent = nil; AImmediate: Boolean = False);\r\nbegin\r\n  inherited ExecuteJavaScript(AScript, ACompleteEvent, AImmediate);\r\nend;\r\n\r\nfunction TTMSFNCOpenLayers.ExecuteJavaScriptSync(AScript: String): string;\r\nbegin\r\n  Result := inherited ExecuteJavaScriptSync(AScript);\r\nend;\r\n\r\nfunction TTMSFNCOpenLayers.GetBridgeCommunicationLayer(ABridgeName: string): string;\r\nbegin\r\n  Result := inherited GetBridgeCommunicationLayer(ABridgeName);\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayers.GetHeadLinks(AList: TTMSFNCMapsLinksList;\r\n  ACheckReady: Boolean);\r\n{$IFNDEF WEBLIB}\r\nvar\r\n  I: Integer;\r\n  l: TTMSFNCMapsLink;\r\n{$ENDIF}\r\nbegin\r\n  inherited;\r\n\r\n  {$IFNDEF WEBLIB}\r\n  if not IsDesigning and (LibraryLocation = llOffline) then\r\n  begin\r\n    for I := AList.Count - 1 downto 0 do\r\n    begin\r\n      l := AList[I];\r\n      if (l.URL = OPENLAYERSAPIURL + GetAPIVersion + '/ol.css') or (l.URL = OPENLAYERSAPIURL + GetAPIVersion + '/dist/ol.js') then\r\n        AList.Delete(I);\r\n    end;\r\n\r\n    AList.Add(TTMSFNCMapsLink.CreateLink(TTMSFNCUtils.AddBackslash(TTMSFNCUtils.GetTempPath) + 'ttmsfncopenlayers/ol.css', 'text/css', 'stylesheet'));\r\n    AList.Add(TTMSFNCMapsLink.CreateScript(TTMSFNCUtils.AddBackslash(TTMSFNCUtils.GetTempPath) + 'ttmsfncopenlayers/ol.js', 'text/javascript'));\r\n  end;\r\n  {$ENDIF}\r\nend;\r\n\r\n{$IFDEF ANDROID}\r\nfunction TTMSFNCOpenLayers.NativeDialog: Pointer;\r\nbegin\r\n  Result := inherited NativeDialog;\r\nend;\r\n{$ENDIF}\r\n\r\n{$IFDEF MSWINDOWS}\r\nfunction TTMSFNCOpenLayers.GetWebBrowserInstance: IInterface;\r\nbegin\r\n  Result := inherited GetWebBrowserInstance;\r\nend;\r\n{$ENDIF}\r\n\r\nprocedure TTMSFNCOpenLayers.GoBack;\r\nbegin\r\n  inherited GoBack;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayers.GoForward;\r\nbegin\r\n  inherited GoForward;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayers.Initialize;\r\nbegin\r\n  inherited Initialize;\r\nend;\r\n\r\nfunction TTMSFNCOpenLayers.IsFMXBrowser: Boolean;\r\nbegin\r\n  Result := inherited IsFMXBrowser;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayers.LoadFile(AFile: String);\r\nbegin\r\n  inherited LoadFile(AFile);\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayers.LoadHTML(AHTML: String);\r\nbegin\r\n  inherited LoadHTML(AHTML);\r\nend;\r\n\r\nfunction TTMSFNCOpenLayers.NativeBrowser: Pointer;\r\nbegin\r\n  Result := inherited NativeBrowser;\r\nend;\r\n\r\nfunction TTMSFNCOpenLayers.NativeEnvironment: Pointer;\r\nbegin\r\n  Result := inherited NativeEnvironment;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayers.Navigate;\r\nbegin\r\n  inherited Navigate;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayers.Navigate(const AURL: string);\r\nbegin\r\n  inherited Navigate(AURL);\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayers.Reload;\r\nbegin\r\n  inherited Reload;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayers.RemoveBridge(ABridgeName: string);\r\nbegin\r\n  inherited RemoveBridge(ABridgeName);\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayers.ShowDebugConsole;\r\nbegin\r\n  inherited ShowDebugConsole;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayers.StopLoading;\r\nbegin\r\n  inherited StopLoading;\r\nend;\r\n\r\n{ TTMSFNCOpenLayersPolyline }\r\n\r\nprocedure TTMSFNCOpenLayersPolyline.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCOpenLayersPolyline then\r\n  begin\r\n    FLabel.Assign((Source as TTMSFNCOpenLayersPolyline).FLabel);\r\n    FDraggable := (Source as TTMSFNCOpenLayersPolyline).Draggable;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCOpenLayersPolyline.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  FLabel := TTMSFNCOpenLayersLabel.Create;\r\n  FLabel.OnChange := @LabelChanged;\r\n  FDraggable := False;\r\nend;\r\n\r\ndestructor TTMSFNCOpenLayersPolyline.Destroy;\r\nbegin\r\n  FLabel.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersPolyline.LabelChanged(Sender: TObject);\r\nbegin\r\n  UpdatePolyElement;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersPolyline.SetDraggable(const Value: Boolean);\r\nbegin\r\n  FDraggable := Value;\r\n  UpdatePolyElement;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersPolyline.SetLabel(\r\n  const Value: TTMSFNCOpenLayersLabel);\r\nbegin\r\n  FLabel.Assign(Value);\r\n  UpdatePolyElement;\r\nend;\r\n\r\n{ TTMSFNCOpenLayersPolylines }\r\n\r\nfunction TTMSFNCOpenLayersPolylines.Add: TTMSFNCOpenLayersPolyline;\r\nbegin\r\n  Result := TTMSFNCOpenLayersPolyline(inherited Add);\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersPolylines.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCOpenLayersPolyline;\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersPolylines.GetItem(\r\n  Index: Integer): TTMSFNCOpenLayersPolyline;\r\nbegin\r\n  Result := TTMSFNCOpenLayersPolyline(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersPolylines.Insert(\r\n  Index: Integer): TTMSFNCOpenLayersPolyline;\r\nbegin\r\n  Result := TTMSFNCOpenLayersPolyline(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersPolylines.SetItem(Index: Integer;\r\n  const Value: TTMSFNCOpenLayersPolyline);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n\r\n{ TTMSFNCOpenLayersPolygon }\r\n\r\nfunction TTMSFNCOpenLayersPolygon.AddHole(\r\n  ACoordinates: TTMSFNCMapsCoordinateRecArray): TTMSFNCMapsPolyElementHole;\r\nbegin\r\n  Result := inherited AddHole(ACoordinates);\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersPolygon.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCOpenLayersPolygon then\r\n  begin\r\n    FLabel.Assign((Source as TTMSFNCOpenLayersPolygon).FLabel);\r\n    FDraggable := (Source as TTMSFNCOpenLayersPolygon).Draggable;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCOpenLayersPolygon.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  FLabel := TTMSFNCOpenLayersLabel.Create;\r\n  FLabel.OnChange := @LabelChanged;\r\n  FDraggable := False;\r\nend;\r\n\r\ndestructor TTMSFNCOpenLayersPolygon.Destroy;\r\nbegin\r\n  FLabel.Free;\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersPolygon.LabelChanged(Sender: TObject);\r\nbegin\r\n  UpdatePolyElement;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersPolygon.SetDraggable(const Value: Boolean);\r\nbegin\r\n  FDraggable := Value;\r\n  UpdatePolyElement;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersPolygon.SetLabel(\r\n  const Value: TTMSFNCOpenLayersLabel);\r\nbegin\r\n  FLabel.Assign(Value);\r\n  UpdatePolyElement;\r\nend;\r\n\r\n{ TTMSFNCOpenLayersPolygons }\r\n\r\nfunction TTMSFNCOpenLayersPolygons.Add: TTMSFNCOpenLayersPolygon;\r\nbegin\r\n  Result := TTMSFNCOpenLayersPolygon(inherited Add);\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersPolygons.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCOpenLayersPolygon;\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersPolygons.GetItem(\r\n  Index: Integer): TTMSFNCOpenLayersPolygon;\r\nbegin\r\n  Result := TTMSFNCOpenLayersPolygon(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersPolygons.Insert(\r\n  Index: Integer): TTMSFNCOpenLayersPolygon;\r\nbegin\r\n  Result := TTMSFNCOpenLayersPolygon(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersPolygons.SetItem(Index: Integer;\r\n  const Value: TTMSFNCOpenLayersPolygon);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCOpenLayersLabel }\r\n\r\nprocedure TTMSFNCOpenLayersLabel.Assign(Source: TPersistent);\r\nbegin\r\n  if (Source is TTMSFNCOpenLayersLabel) then\r\n  begin\r\n    FText := (Source as TTMSFNCOpenLayersLabel).Text;\r\n    FOffsetX := (Source as TTMSFNCOpenLayersLabel).OffsetX;\r\n    FOffsetY := (Source as TTMSFNCOpenLayersLabel).OffsetY;\r\n    FFontColor := (Source as TTMSFNCOpenLayersLabel).FontColor;\r\n    FFontSize := (Source as TTMSFNCOpenLayersLabel).FontSize;\r\n    FBackgroundColor := (Source as TTMSFNCOpenLayersLabel).BackgroundColor;\r\n    FBorderColor := (Source as TTMSFNCOpenLayersLabel).BorderColor;\r\n    FPadding := (Source as TTMSFNCOpenLayersLabel).Padding;\r\n  end\r\n  else\r\n    inherited;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersLabel.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nconstructor TTMSFNCOpenLayersLabel.Create;\r\nbegin\r\n  FText := '';\r\n  FOffsetX := 0;\r\n  FOffsetY := 0;\r\n  FFontColor := gcBlack;\r\n  FFontSize := 12;\r\n  FBackgroundColor := gcWhite;\r\n  FBorderColor := gcBlack;\r\n  FPadding := 3;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersLabel.SetBackgroundColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FBackgroundColor <> Value then\r\n  begin\r\n    FBackgroundColor := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersLabel.SetBorderColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FBorderColor <> Value then\r\n  begin\r\n    FBorderColor := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersLabel.SetFontColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FFontColor <> Value then\r\n  begin\r\n    FFontColor := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersLabel.SetFontSize(const Value: Integer);\r\nbegin\r\n  if FFontSize <> Value then\r\n  begin\r\n    FFontSize := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersLabel.SetOffsetX(const Value: Double);\r\nbegin\r\n  if FOffsetX <> Value then\r\n  begin\r\n    FOffsetX := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersLabel.SetOffsetY(const Value: Double);\r\nbegin\r\n  if FOffsetY <> Value then\r\n  begin\r\n    FOffsetY := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersLabel.SetPadding(const Value: Integer);\r\nbegin\r\n  if FPadding <> Value then\r\n  begin\r\n    FPadding := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersLabel.SetText(const Value: string);\r\nbegin\r\n  if FText <> Value then\r\n  begin\r\n    FText := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCOpenLayersMarker }\r\n\r\nconstructor TTMSFNCOpenLayersMarker.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  FDraggable := False;\r\nend;\r\n\r\ndestructor TTMSFNCOpenLayersMarker.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersMarker.SetDraggable(const Value: Boolean);\r\nbegin\r\n  if (Draggable <> Value) then\r\n  begin\r\n    FDraggable := Value;\r\n    UpdateMarker;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCOpenLayersMarkers }\r\n\r\nfunction TTMSFNCOpenLayersMarkers.Add: TTMSFNCOpenLayersMarker;\r\nbegin\r\n  Result := TTMSFNCOpenLayersMarker(inherited Add);\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersMarkers.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCOpenLayersMarker;\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersMarkers.GetItem(Index: Integer): TTMSFNCOpenLayersMarker;\r\nbegin\r\n  Result := TTMSFNCOpenLayersMarker(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersMarkers.Insert(Index: Integer): TTMSFNCOpenLayersMarker;\r\nbegin\r\n  Result := TTMSFNCOpenLayersMarker(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersMarkers.SetItem(Index: Integer;\r\n  const Value: TTMSFNCOpenLayersMarker);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCOpenLayersCircle }\r\n\r\nprocedure TTMSFNCOpenLayersCircle.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if Source is TTMSFNCOpenLayersCircle then\r\n  begin\r\n    FDraggable := (Source as TTMSFNCOpenLayersCircle).Draggable;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCOpenLayersCircle.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  FDraggable := False;\r\nend;\r\n\r\ndestructor TTMSFNCOpenLayersCircle.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersCircle.SetDraggable(const Value: Boolean);\r\nbegin\r\n  if (FDraggable <> Value) then\r\n  begin\r\n    FDraggable := Value;\r\n    UpdatePolyElement;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCOpenLayersCircles }\r\n\r\nfunction TTMSFNCOpenLayersCircles.Add: TTMSFNCOpenLayersCircle;\r\nbegin\r\n  Result := TTMSFNCOpenLayersCircle(inherited Add);\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersCircles.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCOpenLayersCircle;\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersCircles.GetItem(\r\n  Index: Integer): TTMSFNCOpenLayersCircle;\r\nbegin\r\n  Result := TTMSFNCOpenLayersCircle(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersCircles.Insert(\r\n  Index: Integer): TTMSFNCOpenLayersCircle;\r\nbegin\r\n  Result := TTMSFNCOpenLayersCircle(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersCircles.SetItem(Index: Integer;\r\n  const Value: TTMSFNCOpenLayersCircle);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCOpenLayersRectangle }\r\n\r\nprocedure TTMSFNCOpenLayersRectangle.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\n  if Source is TTMSFNCOpenLayersRectangle then\r\n  begin\r\n    FDraggable := (Source as TTMSFNCOpenLayersRectangle).Draggable;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCOpenLayersRectangle.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  FDraggable := False;\r\nend;\r\n\r\ndestructor TTMSFNCOpenLayersRectangle.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersRectangle.SetDraggable(const Value: Boolean);\r\nbegin\r\n  if (FDraggable <> Value) then\r\n  begin\r\n    FDraggable := Value;\r\n    UpdatePolyElement;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCOpenLayersRectangles }\r\n\r\nfunction TTMSFNCOpenLayersRectangles.Add: TTMSFNCOpenLayersRectangle;\r\nbegin\r\n  Result := TTMSFNCOpenLayersRectangle(inherited Add);\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersRectangles.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCOpenLayersRectangle;\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersRectangles.GetItem(\r\n  Index: Integer): TTMSFNCOpenLayersRectangle;\r\nbegin\r\n  Result := TTMSFNCOpenLayersRectangle(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersRectangles.Insert(\r\n  Index: Integer): TTMSFNCOpenLayersRectangle;\r\nbegin\r\n  Result := TTMSFNCOpenLayersRectangle(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersRectangles.SetItem(Index: Integer;\r\n  const Value: TTMSFNCOpenLayersRectangle);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCOpenLayersTileLayerParams }\r\n\r\nprocedure TTMSFNCOpenLayersTileLayerParams.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCOpenLayersTileLayerParams then\r\n  begin\r\n    FLayers := (Source as TTMSFNCOpenLayersTileLayerParams).Layers;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersTileLayerParams.Changed;\r\nbegin\r\n  if Assigned(OnChange) then\r\n    OnChange(Self);\r\nend;\r\n\r\nconstructor TTMSFNCOpenLayersTileLayerParams.Create;\r\nbegin\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersTileLayerParams.SetLayers(const Value: string);\r\nbegin\r\n  if FLayers <> Value then\r\n  begin\r\n    FLayers := Value;\r\n    Changed;\r\n  end;\r\nend;\r\n\r\n{ TTMSFNCOpenLayersClusters }\r\n\r\nfunction TTMSFNCOpenLayersClusters.Add: TTMSFNCOpenLayersCluster;\r\nbegin\r\n  Result := TTMSFNCOpenLayersCluster(inherited Add);\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersClusters.Clear;\r\nvar\r\n  l: TTMSFNCCustomMaps;\r\n  ci: TCollectionItem;\r\nbegin\r\n  l := FOwner;\r\n  if Assigned(l) then\r\n    l.BeginUpdate;\r\n\r\n  if Count > 0 then\r\n  begin\r\n    while Count > 0 do\r\n    begin\r\n      ci := TCollectionItem(Items[Count - 1]);\r\n      ci.Free;\r\n    end;\r\n  end;\r\n\r\n  if Assigned(l) then\r\n    l.EndUpdate;\r\nend;\r\n\r\nconstructor TTMSFNCOpenLayersClusters.Create(AOwner: TTMSFNCCustomMaps);\r\nbegin\r\n  inherited Create(AOwner, CreateItemClass);\r\n  FOwner := AOwner;\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersClusters.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCOpenLayersCluster;\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersClusters.GetItem(\r\n  Index: Integer): TTMSFNCOpenLayersCluster;\r\nbegin\r\n  Result := TTMSFNCOpenLayersCluster(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersClusters.GetOwner: TPersistent;\r\nbegin\r\n  Result := FOwner;\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersClusters.Insert(\r\n  Index: Integer): TTMSFNCOpenLayersCluster;\r\nbegin\r\n  Result := TTMSFNCOpenLayersCluster(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersClusters.Recreate;\r\nvar\r\n  I: Integer;\r\nbegin\r\n  for I := 0 to Count - 1 do\r\n    Items[I].Recreate := True;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersClusters.SetItem(Index: Integer;\r\n  const Value: TTMSFNCOpenLayersCluster);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n{ TTMSFNCOpenLayersCluster }\r\n\r\nprocedure TTMSFNCOpenLayersCluster.Assign(Source: TPersistent);\r\nbegin\r\n  if Source is TTMSFNCOpenLayersCluster then\r\n  begin\r\n    FImagePath := (Source as TTMSFNCOpenLayersCluster).ImagePath;\r\n    FFontColor := (Source as TTMSFNCOpenLayersCluster).FontColor;\r\n    FFillColor := (Source as TTMSFNCOpenLayersCluster).FillColor;\r\n    FStrokeColor := (Source as TTMSFNCOpenLayersCluster).StrokeColor;\r\n  end;\r\nend;\r\n\r\nconstructor TTMSFNCOpenLayersCluster.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\n  FImagePath := '';\r\n  FFontColor := gcWhite;\r\n  FillColor := gcLightskyblue;\r\n  StrokeColor := gcWhite;\r\n\r\n  if Assigned(ACollection) then\r\n    FOwner := (Collection as TTMSFNCOpenLayersClusters).FOwner;\r\n\r\n  UpdateCluster;\r\nend;\r\n\r\ndestructor TTMSFNCOpenLayersCluster.Destroy;\r\nbegin\r\n  inherited;\r\n  if Assigned(FMarkers) then\r\n    FMarkers.Free;\r\n  UpdateCluster;\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersCluster.GetID: string;\r\nbegin\r\n  if (FID = '') or FRecreate then\r\n    FID := CreateNewGUID;\r\n\r\n  FRecreate := False;\r\n  Result := FID;\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersCluster.GetMarkers: TTMSFNCOpenLayersMarkersList;\r\nvar\r\n  I: Integer;\r\n  m: TTMSFNCOpenLayersMarker;\r\nbegin\r\n  if not Assigned(FMarkers) then\r\n    FMarkers := TTMSFNCOpenLayersMarkersList.Create;\r\n\r\n  FMarkers.Clear;\r\n\r\n  if Assigned(FOwner) then\r\n  begin\r\n    for I := 0 to TTMSFNCCustomOpenLayers(FOwner).Markers.Count - 1 do\r\n    begin\r\n      m := TTMSFNCCustomOpenLayers(FOwner).Markers[I];\r\n      if m.Cluster = Self then\r\n        FMarkers.Add(m);\r\n    end;\r\n  end;\r\n\r\n  Result := FMarkers;\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersCluster.IsImagePathStored: Boolean;\r\nbegin\r\n  Result := ImagePath <> '';\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersCluster.SetFillColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FFillColor <> Value then\r\n  begin\r\n    FFillColor := Value;\r\n    UpdateCluster;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersCluster.SetFontColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FFontColor <> Value then\r\n  begin\r\n    FFontColor := Value;\r\n    UpdateCluster;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersCluster.SetImagePath(const Value: string);\r\nbegin\r\n  if FImagePath <> Value then\r\n  begin\r\n    FImagePath := Value;\r\n    UpdateCluster;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersCluster.SetStrokeColor(\r\n  const Value: TTMSFNCGraphicsColor);\r\nbegin\r\n  if FStrokeColor <> Value then\r\n  begin\r\n    FStrokeColor := Value;\r\n    UpdateCluster;\r\n  end;\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersCluster.UpdateCluster;\r\nbegin\r\n  FReload := True;\r\n  if Assigned(FOwner) then\r\n    (FOwner as TTMSFNCCustomOpenLayers).UpdateClusters;\r\nend;\r\n\r\n{$IFDEF WEBLIB}\r\nfunction TTMSFNCOpenLayersMarkersList.GetItem(Index: Integer): TTMSFNCOpenLayersMarker;\r\nbegin\r\n  Result := TTMSFNCOpenLayersMarker(inherited Items[Index]);\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersMarkersList.SetItem(Index: Integer; const Value: TTMSFNCOpenLayersMarker);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n{$ENDIF}\r\n\r\n\r\n{ TTMSFNCOpenLayersHeatMap }\r\n\r\nprocedure TTMSFNCOpenLayersHeatMap.Assign(Source: TPersistent);\r\nbegin\r\n  inherited;\r\nend;\r\n\r\nconstructor TTMSFNCOpenLayersHeatMap.Create(ACollection: TCollection);\r\nbegin\r\n  inherited;\r\nend;\r\n\r\ndestructor TTMSFNCOpenLayersHeatMap.Destroy;\r\nbegin\r\n  inherited;\r\nend;\r\n\r\n{ TTMSFNCOpenLayersHeatMaps }\r\n\r\nfunction TTMSFNCOpenLayersHeatMaps.Add: TTMSFNCOpenLayersHeatMap;\r\nbegin\r\n  Result := TTMSFNCOpenLayersHeatMap(inherited Add);\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersHeatMaps.CreateItemClass: TCollectionItemClass;\r\nbegin\r\n  Result := TTMSFNCOpenLayersHeatMap;\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersHeatMaps.GetItem(\r\n  Index: Integer): TTMSFNCOpenLayersHeatMap;\r\nbegin\r\n  Result := TTMSFNCOpenLayersHeatMap(inherited Items[Index]);\r\nend;\r\n\r\nfunction TTMSFNCOpenLayersHeatMaps.Insert(\r\n  Index: Integer): TTMSFNCOpenLayersHeatMap;\r\nbegin\r\n  Result := TTMSFNCOpenLayersHeatMap(inherited Insert(Index));\r\nend;\r\n\r\nprocedure TTMSFNCOpenLayersHeatMaps.SetItem(Index: Integer;\r\n  const Value: TTMSFNCOpenLayersHeatMap);\r\nbegin\r\n  inherited Items[Index] := Value;\r\nend;\r\n\r\n\r\nend.\r\n","unit unit_Karte;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, WEBLib.ExtCtrls, WEBLib.Buttons, Vcl.Controls,\r\n  Vcl.StdCtrls, WEBLib.StdCtrls, WEBLib.WebCtrls, VCL.TMSFNCTypes,\r\n  VCL.TMSFNCUtils, VCL.TMSFNCGraphics, VCL.TMSFNCGraphicsTypes,\r\n  VCL.TMSFNCCustomControl, VCL.TMSFNCWebBrowser, VCL.TMSFNCMaps,\r\n  VCL.TMSFNCOpenLayers, VCL.TMSFNCCustomComponent, VCL.TMSFNCCloudBase,\r\n  VCL.TMSFNCGeocoding, VCL.TMSFNCRouteCalculator;\r\n\r\ntype\r\n  TKarte = class(TForm)\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    btnzurueck: TButton;\r\n    WebLabel2: TLabel;\r\n    edtFromAddress: TEdit;\r\n    btnroute: TButton;\r\n    WebLabel1: TLabel;\r\n    edtToAddress: TEdit;\r\n    btnAnzeigen: TButton;\r\n    Container3: THTMLContainer;\r\n    container4: THTMLContainer;\r\n    MGC: TTMSFNCGeocoding;\r\n    Container5: THTMLContainer;\r\n    FNCMAP: TTMSFNCOpenLayers;\r\n    RouteCalculator1: TTMSFNCRouteCalculator;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure btnAnzeigenClick(Sender: TObject);\r\n    procedure btnrouteClick(Sender: TObject);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n    procedure FNCMAPMapInitialized(Sender: TObject);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    mykundehint:string;\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  Karte: TKarte;\r\n  mylongitude:double;\r\n  mylatitude:double;\r\n\r\nimplementation\r\n  uses unit1, unit2;\r\n{$R *.dfm}\r\n\r\nprocedure TKarte.btnrouteClick(Sender: TObject);\r\nvar\r\n  mapsurl:string;\r\nbegin\r\n\r\n\r\n\r\n if (edtFromAddress.Text <> '') and (edtToAddress.Text <> '')  then\r\n  begin\r\n    //RouteCalculator1.CalculateRoute(edtFromAddress.Text, edtToAddress.Text);\r\n    mapsurl:='https://www.google.com/maps/dir/'+edtfromaddress.Text+'/'+edtToAddress.Text;\r\n    application.Navigate(mapsurl, ntblank);\r\n  end\r\n  else\r\n    MessageDlg('Sie müssen Start- und Zieladresse eingeben',mtWarning, [MBOK]);\r\nend;\r\n\r\nprocedure TKarte.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  self.Close;\r\nend;\r\n\r\nprocedure TKarte.FNCMAPMapInitialized(Sender: TObject);\r\nbegin\r\n  btnAnzeigenClick(Sender);\r\nend;\r\n\r\nprocedure TKarte.btnAnzeigenClick(Sender: TObject);\r\nbegin\r\n  if edtToAddress.text<>'' then\r\n  begin\r\n    mgc.GetGeocoding(edtToAddress.text,\r\n      procedure(const ARequest: TTMSFNCGeocodingRequest; const ARequestResult:TTMSFNCCloudBaseRequestResult)\r\n      begin\r\n        if (ARequestresult.Success) AND (ARequest.Items.Count > 0) then\r\n        begin\r\n          FNCMap.Options.DefaultZoomLevel:=15;\r\n          FNCMap.SetCenterCoordinate(arequest.Items[0].Coordinate.Latitude,arequest.Items[0].Coordinate.Longitude);\r\n          fncmap.Markers[0].Longitude:=arequest.Items[0].Coordinate.Longitude;\r\n          fncmap.Markers[0].Latitude:=arequest.Items[0].Coordinate.Latitude;\r\n          fncmap.markers[0].Title:='ZIEL';\r\n        end;\r\n      end\r\n      );\r\n  end;\r\nend;\r\n\r\nprocedure TKarte.WebFormShow(Sender: TObject);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Karte / Route</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  Container2.HTML.Text:='';\r\n  container2.ParentElement:=myelement;\r\n  myelement:=container2.ElementHandle;\r\n  container3.parentelement:=myelement;\r\n  container4.parentelement:=myelement;\r\n  container5.parentelement:=myelement;\r\n  myelement:=container5.ElementHandle;\r\n  fncmap.parentelement:=myelement;\r\n\r\n\r\n\r\n\r\n\r\n\r\n  myelement:=container3.ElementHandle;\r\n  weblabel2.ParentElement:=myelement;\r\n  edtFromAddress.ParentElement:=myelement;\r\n  btnroute.ParentElement:=myelement;\r\n\r\n  myelement:=container4.ElementHandle;\r\n  weblabel1.ParentElement:=myelement;\r\n  edtToAddress.ParentElement:=myelement;\r\n  btnAnzeigen.ParentElement:=myelement;\r\n\r\n  edtFromAddress.Text:=dm2.tableSYSDATPostleitzahl.AsString+' '+dm2.tableSYSDATOrt.AsString+', '+dm2.tableSYSDATStrasse.AsString;\r\n\r\nend;\r\n\r\nprocedure TKarte.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  WebLabel2 := TLabel.Create(Self);\r\n  WebLabel1 := TLabel.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  edtFromAddress := TEdit.Create(Self);\r\n  btnroute := TButton.Create(Self);\r\n  edtToAddress := TEdit.Create(Self);\r\n  btnAnzeigen := TButton.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  container4 := THTMLContainer.Create(Self);\r\n  MGC := TTMSFNCGeocoding.Create(Self);\r\n  Container5 := THTMLContainer.Create(Self);\r\n  FNCMAP := TTMSFNCOpenLayers.Create(Self);\r\n  RouteCalculator1 := TTMSFNCRouteCalculator.Create(Self);\r\n\r\n  WebLabel2.BeforeLoadDFMValues;\r\n  WebLabel1.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  edtFromAddress.BeforeLoadDFMValues;\r\n  btnroute.BeforeLoadDFMValues;\r\n  edtToAddress.BeforeLoadDFMValues;\r\n  btnAnzeigen.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  container4.BeforeLoadDFMValues;\r\n  MGC.BeforeLoadDFMValues;\r\n  Container5.BeforeLoadDFMValues;\r\n  FNCMAP.BeforeLoadDFMValues;\r\n  RouteCalculator1.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'Karte';\r\n    Width := 437;\r\n    Height := 529;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    ElementPosition := epIgnore;\r\n    Font.Charset := DEFAULT_CHARSET;\r\n    Font.Color := clWindowText;\r\n    Font.Height := -11;\r\n    Font.Name := 'Tahoma';\r\n    Font.Style := [];\r\n    ParentFont := False;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    WebLabel2.SetParentComponent(Self);\r\n    WebLabel2.Name := 'WebLabel2';\r\n    WebLabel2.Left := 15;\r\n    WebLabel2.Top := 131;\r\n    WebLabel2.Width := 24;\r\n    WebLabel2.Height := 13;\r\n    WebLabel2.AutoSize := False;\r\n    WebLabel2.Caption := 'Start';\r\n    WebLabel2.ElementClassName := 'h5 text-primary m-1';\r\n    WebLabel2.ElementFont := efCSS;\r\n    WebLabel2.ElementPosition := epIgnore;\r\n    WebLabel2.HeightStyle := ssAuto;\r\n    WebLabel2.HeightPercent := 100.000000000000000000;\r\n    WebLabel2.WidthStyle := ssAuto;\r\n    WebLabel2.WidthPercent := 100.000000000000000000;\r\n    WebLabel1.SetParentComponent(Self);\r\n    WebLabel1.Name := 'WebLabel1';\r\n    WebLabel1.Left := 15;\r\n    WebLabel1.Top := 188;\r\n    WebLabel1.Width := 20;\r\n    WebLabel1.Height := 13;\r\n    WebLabel1.AutoSize := False;\r\n    WebLabel1.Caption := 'Ziel';\r\n    WebLabel1.ElementClassName := 'h5 text-primary m-1';\r\n    WebLabel1.ElementFont := efCSS;\r\n    WebLabel1.ElementPosition := epIgnore;\r\n    WebLabel1.HeightStyle := ssAuto;\r\n    WebLabel1.HeightPercent := 100.000000000000000000;\r\n    WebLabel1.WidthStyle := ssAuto;\r\n    WebLabel1.WidthPercent := 100.000000000000000000;\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 437;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.Align := alTop;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 41;\r\n    Container2.Width := 437;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-column m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.Align := alTop;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 0;\r\n    btnzurueck.Top := 94;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    edtFromAddress.SetParentComponent(Self);\r\n    edtFromAddress.Name := 'edtFromAddress';\r\n    edtFromAddress.Left := 16;\r\n    edtFromAddress.Top := 157;\r\n    edtFromAddress.Width := 329;\r\n    edtFromAddress.Height := 19;\r\n    edtFromAddress.ChildOrder := 6;\r\n    edtFromAddress.ElementClassName := 'form-control  input-sm';\r\n    edtFromAddress.ElementFont := efCSS;\r\n    edtFromAddress.ElementPosition := epIgnore;\r\n    edtFromAddress.HeightStyle := ssAuto;\r\n    edtFromAddress.HeightPercent := 100.000000000000000000;\r\n    edtFromAddress.Text := 'edtFromAddress';\r\n    edtFromAddress.WidthPercent := 100.000000000000000000;\r\n    btnroute.SetParentComponent(Self);\r\n    btnroute.Name := 'btnroute';\r\n    btnroute.Left := 16;\r\n    btnroute.Top := 207;\r\n    btnroute.Width := 96;\r\n    btnroute.Height := 25;\r\n    btnroute.Caption := 'Route';\r\n    btnroute.ChildOrder := 8;\r\n    btnroute.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnroute.ElementFont := efCSS;\r\n    btnroute.ElementPosition := epIgnore;\r\n    btnroute.HeightStyle := ssAuto;\r\n    btnroute.HeightPercent := 100.000000000000000000;\r\n    btnroute.WidthStyle := ssAuto;\r\n    btnroute.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnroute, Self, 'OnClick', 'btnrouteClick');\r\n    edtToAddress.SetParentComponent(Self);\r\n    edtToAddress.Name := 'edtToAddress';\r\n    edtToAddress.Left := 16;\r\n    edtToAddress.Top := 182;\r\n    edtToAddress.Width := 329;\r\n    edtToAddress.Height := 19;\r\n    edtToAddress.ChildOrder := 1;\r\n    edtToAddress.ElementClassName := 'form-control  input-sm';\r\n    edtToAddress.ElementFont := efCSS;\r\n    edtToAddress.ElementPosition := epIgnore;\r\n    edtToAddress.HeightStyle := ssAuto;\r\n    edtToAddress.HeightPercent := 100.000000000000000000;\r\n    edtToAddress.Text := 'edtToAddress';\r\n    edtToAddress.WidthPercent := 100.000000000000000000;\r\n    btnAnzeigen.SetParentComponent(Self);\r\n    btnAnzeigen.Name := 'btnAnzeigen';\r\n    btnAnzeigen.Left := 16;\r\n    btnAnzeigen.Top := 238;\r\n    btnAnzeigen.Width := 96;\r\n    btnAnzeigen.Height := 25;\r\n    btnAnzeigen.Caption := 'anzeigen';\r\n    btnAnzeigen.ChildOrder := 2;\r\n    btnAnzeigen.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnAnzeigen.ElementFont := efCSS;\r\n    btnAnzeigen.ElementPosition := epIgnore;\r\n    btnAnzeigen.HeightStyle := ssAuto;\r\n    btnAnzeigen.HeightPercent := 100.000000000000000000;\r\n    btnAnzeigen.WidthStyle := ssAuto;\r\n    btnAnzeigen.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnAnzeigen, Self, 'OnClick', 'btnAnzeigenClick');\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 102;\r\n    Container3.Top := 103;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 2;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    container4.SetParentComponent(Self);\r\n    container4.Name := 'container4';\r\n    container4.Left := 200;\r\n    container4.Top := 110;\r\n    container4.Width := 169;\r\n    container4.Height := 41;\r\n    container4.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    container4.HeightStyle := ssAuto;\r\n    container4.WidthStyle := ssAuto;\r\n    container4.ChildOrder := 2;\r\n    container4.ElementFont := efCSS;\r\n    container4.ElementPosition := epIgnore;\r\n    MGC.SetParentComponent(Self);\r\n    MGC.Name := 'MGC';\r\n    MGC.Left := 56;\r\n    MGC.Top := 496;\r\n    MGC.Width := 26;\r\n    MGC.Height := 26;\r\n    MGC.Visible := True;\r\n    MGC.Service := gsOpenStreetMap;\r\n    Container5.SetParentComponent(Self);\r\n    Container5.Name := 'Container5';\r\n    Container5.Left := 200;\r\n    Container5.Top := 222;\r\n    Container5.Width := 169;\r\n    Container5.Height := 41;\r\n    Container5.ElementClassName := 'd-flex m-1 border border-info';\r\n    Container5.HeightStyle := ssAuto;\r\n    Container5.WidthStyle := ssAuto;\r\n    Container5.ChildOrder := 2;\r\n    Container5.ElementFont := efCSS;\r\n    Container5.ElementPosition := epIgnore;\r\n    FNCMAP.SetParentComponent(Self);\r\n    FNCMAP.Name := 'FNCMAP';\r\n    FNCMAP.AlignWithMargins := True;\r\n    FNCMAP.Left := 3;\r\n    FNCMAP.Top := 332;\r\n    FNCMAP.Width := 431;\r\n    FNCMAP.Height := 194;\r\n    FNCMAP.Margins.Top := 250;\r\n    FNCMAP.Align := alClient;\r\n    FNCMAP.ParentDoubleBuffered := False;\r\n    FNCMAP.DoubleBuffered := True;\r\n    FNCMAP.TabOrder := 11;\r\n    SetEvent(FNCMAP, Self, 'OnMapInitialized', 'FNCMAPMapInitialized');\r\n    FNCMAP.Markers.Clear;\r\n    with FNCMAP.Markers.Add do\r\n    begin\r\n      Longitude := -74.044501999999990000;\r\n      Latitude := 40.689247000000000000;\r\n    end;\r\n    FNCMAP.Options.Locale := 'de-DE';\r\n    FNCMAP.Options.DefaultLatitude := 40.689247000000000000;\r\n    FNCMAP.Options.DefaultLongitude := -74.044501999999990000;\r\n    FNCMAP.Options.DefaultZoomLevel := 14.000000000000000000;\r\n    FNCMAP.LocalFileAccess := True;\r\n    FNCMAP.RouteCalculator := RouteCalculator1;\r\n    RouteCalculator1.SetParentComponent(Self);\r\n    RouteCalculator1.Name := 'RouteCalculator1';\r\n    RouteCalculator1.Left := 136;\r\n    RouteCalculator1.Top := 296;\r\n    RouteCalculator1.Width := 26;\r\n    RouteCalculator1.Height := 26;\r\n    RouteCalculator1.Visible := True;\r\n    RouteCalculator1.Service := csOpenRouteService;\r\n    RouteCalculator1.Routes.Clear;\r\n    with RouteCalculator1.Routes.Add do\r\n    begin\r\n      ID := '';\r\n      Active := True;\r\n    end;\r\n    RouteCalculator1.Options.IncludeAlternativeRoutes := True;\r\n  finally\r\n    WebLabel2.AfterLoadDFMValues;\r\n    WebLabel1.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    edtFromAddress.AfterLoadDFMValues;\r\n    btnroute.AfterLoadDFMValues;\r\n    edtToAddress.AfterLoadDFMValues;\r\n    btnAnzeigen.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    container4.AfterLoadDFMValues;\r\n    MGC.AfterLoadDFMValues;\r\n    Container5.AfterLoadDFMValues;\r\n    FNCMAP.AfterLoadDFMValues;\r\n    RouteCalculator1.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit unit_EinzelBeleg;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, WEBLib.Buttons, Vcl.Controls, Vcl.StdCtrls,\r\n  WEBLib.StdCtrls, WEBLib.ExtCtrls, Data.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, WEBLib.Grids, strutils, XData.Web.Client, DB;\r\n\r\ntype\r\n  TEinzelBeleg = class(TForm)\r\n    xdsBeleg: TXDataWebDataSet;\r\n    TC: TTableControl;\r\n    PTC: TTableControl;\r\n    xdsPositionen: TXDataWebDataSet;\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    btnzurueck: TButton;\r\n    btnPDF: TButton;\r\n    WClient: TXDataWebClient;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure xdsBelegAfterOpen(DataSet: TDataSet);\r\n    procedure xdsPositionenAfterOpen(DataSet: TDataSet);\r\n    procedure btnPDFClick(Sender: TObject);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    Belegnummer:string;\r\n    Belegart:string;\r\n\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  EinzelBeleg: TEinzelBeleg;\r\n  Einkauf:boolean;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_BelegeUndPositionen;\r\n{$R *.dfm}\r\n\r\nprocedure TEinzelBeleg.btnPDFClick(Sender: TObject);\r\n  procedure OnResponse(Response:TXDataClientResponse);\r\n  var\r\n    mydownload:string;\r\n  begin\r\n    mydownload:=string(TJSObject(response.Result)['value']);\r\n    if mydownload='WRONG' then\r\n    begin\r\n      showmessage('Download kann nicht bereitgestellt werden');\r\n    end\r\n    else\r\n    begin\r\n      application.Navigate(downloadconnection+mydownload,ntblank);\r\n    end;\r\n  end;\r\nbegin\r\n  if LizenzOK then\r\n  begin\r\n    WClient.RawInvoke('IServerService.BelegPDF',[Belegnummer],@OnResponse);\r\n  end\r\n  else\r\n  begin\r\n    showmessage('Für das Abrufen von Dateien sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TEinzelBeleg.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  xdsbeleg.Close;\r\n\r\n  self.Close;\r\nend;\r\n\r\nprocedure TEinzelBeleg.WebFormShow(Sender: TObject);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Einzelbeleg</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  btnPDF.ParentElement:=myelement;\r\n  container2.ParentElement:=myelement;\r\n  myelement:=container2.ElementHandle;\r\n  tc.ParentElement:=myelement;\r\n  ptc.ParentElement:=myelement;\r\n  if Belegart='Angebote' then xdsbeleg.EntitySetName:='Angebote';\r\n  if Belegart='Aufträge' then xdsbeleg.EntitySetName:='Auftrag';\r\n  if Belegart='Lieferscheine' then xdsbeleg.EntitySetName:='Lieferschein';\r\n  if Belegart='Rechnungen' then xdsbeleg.EntitySetName:='Rechnung';\r\n  if Belegart='Anfragen' then xdsbeleg.EntitySetName:='Anfrage';\r\n  if Belegart='Bestellungen' then xdsbeleg.EntitySetName:='Bestellung';\r\n  if Belegart='Wareneingänge' then xdsbeleg.EntitySetName:='Wareneingang';\r\n  if Belegart='EingangsRechnungen' then xdsbeleg.EntitySetName:='EingangsRE';\r\n\r\n  if Belegart='Angebote' then Einkauf:=false;\r\n  if Belegart='Aufträge' then Einkauf:=false;\r\n  if Belegart='Lieferscheine' then Einkauf:=false;\r\n  if Belegart='Rechnungen' then Einkauf:=false;\r\n  if Belegart='Anfragen' then Einkauf:=true;\r\n  if Belegart='Bestellungen' then Einkauf:=true;\r\n  if Belegart='Wareneingänge' then Einkauf:=true;\r\n  if Belegart='EingangsRechnungen' then Einkauf:=true;\r\n\r\n  xdsBeleg.QueryString:='$expand=Kundennummer&$filter=Nummerkomplett eq '+QuotedStr(Belegnummer);\r\n  xdsBeleg.Load;\r\nend;\r\n\r\nprocedure TEinzelBeleg.xdsBelegAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  TC.RowCount:=8;\r\n  TC.Cells[0,0]:='Bezeichnung';\r\n  TC.Cells[1,0]:='Wert';\r\n  if Belegart='Angebote' then TC.Cells[0,1]:='Angebot | Datum';\r\n  if Belegart='Aufträge' then TC.Cells[0,1]:='Auftrrag | Datum';\r\n  if Belegart='Lieferscheine' then TC.Cells[0,1]:='Lieferschein | Datum';\r\n  if Belegart='Rechnungen' then TC.Cells[0,1]:='Rechnung | Datum';\r\n  if Belegart='Anfragen' then TC.Cells[0,1]:='Anfrage | Datum';\r\n  if Belegart='Bestellungen' then TC.Cells[0,1]:='Bestellung | Datum';\r\n  if Belegart='Wareneingänge' then TC.Cells[0,1]:='Wareneingang | Datum';\r\n  if Belegart='EingangsRechnungen' then TC.Cells[0,1]:='Eingangsrechnung | Datum';\r\n  TC.Cells[1,1]:='<h5>'+xdsbeleg.FieldByName('Nummerkomplett').asstring +' | '+formatdatetime('DD.MM.YYYY',xdsbeleg.FieldByName('Datum').asdatetime);\r\n\r\n  TC.Cells[0,2]:='Kontaktnummer';\r\n  TC.Cells[1,2]:='<h6>'+xdsBeleg.FieldByName('Kundennummer.Kundennummer').asstring;\r\n\r\n  TC.Cells[0,3]:='Anschrift';\r\n  TC.Cells[1,3]:='<h6>'+ReplaceStr(xdsbeleg.FieldByName('Adressebild').asstring,#13+#10,'<BR>');\r\n\r\n  TC.Cells[0,4]:='Auftragsbezeichnung';\r\n  TC.Cells[1,4]:='<h6>'+xdsBeleg.FieldByName('Auftragsbezeichnung').asstring;\r\n\r\n  TC.Cells[0,5]:='Objektnummer';\r\n  TC.Cells[1,5]:='<h6>'+xdsBeleg.FieldByName('Objektnummer').asstring;\r\n\r\n  TC.Cells[0,6]:='Lieferanschrift';\r\n  try\r\n  TC.Cells[1,6]:='<h6>'+ReplaceStr(xdsbeleg.FieldByName('Lieferanschriftbild').asstring,#13+#10,'<BR>');\r\n  except\r\n  end;\r\n  TC.Cells[0,7]:='Nettosumme';\r\n  if form1.rcw.Verkaufspreise=true then TC.Cells[1,7]:=formatfloat('#,##0.00',xdsbeleg.fieldbyname('Nettosumme').asfloat);\r\n  if form1.rcw.Verkaufspreise=false then TC.Cells[1,7]:='XXX';\r\n\r\n  xdspositionen.Close;\r\n  if Belegart='Angebote' then xdsPositionen.EntitySetName:='PositionenAngebote';\r\n  if Belegart='Aufträge' then xdsPositionen.EntitySetName:='PositionenAuftrag';\r\n  if Belegart='Lieferscheine' then xdsPositionen.EntitySetName:='PositionenLieferschein';\r\n  if Belegart='Rechnungen' then xdsPositionen.EntitySetName:='PositionenRechnung';\r\n  if Belegart='Anfragen' then xdsPositionen.EntitySetName:='PositionenAnfrage';\r\n  if Belegart='Bestellungen' then xdsPositionen.EntitySetName:='PositionenBestellung';\r\n  if Belegart='Wareneingänge' then xdsPositionen.EntitySetName:='PositionenWareneingang';\r\n  if Belegart='EingangsRechnungen' then xdsPositionen.EntitySetName:='PositionenEingangsRE';\r\n  xdsPositionen.QueryString:='$expand=Artikelnummer&$filter=Nummerkomplett eq '+QuotedStr(Belegnummer)+'&$orderby=PosNr';\r\n  xdsPositionen.Load;\r\nend;\r\n\r\nprocedure TEinzelBeleg.xdsPositionenAfterOpen(DataSet: TDataSet);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  PTC.RowCount:=xdsPositionen.RecordCount+1;\r\n  PTC.ColCount:=8;\r\n  PTC.Cells[0,0]:='PosNr';\r\n  PTC.Cells[1,0]:='PosUNr';\r\n  PTC.Cells[2,0]:='Artikelnummer';\r\n  PTC.Cells[3,0]:='Artikelüberschrift';\r\n  PTC.Cells[4,0]:='Beschreibung';\r\n  PTC.Cells[5,0]:='Menge';\r\n  PTC.Cells[6,0]:='Einzel-VKP';\r\n  if Einkauf then PTC.Cells[6,0]:='Einzel-EKP';\r\n  PTC.Cells[7,0]:='Endpreis';\r\n\r\n  xdspositionen.First;\r\n  btnpdf.Enabled:=true;\r\n  for I := 1 to xdspositionen.RecordCount do\r\n  begin\r\n    PTC.Cells[0,i]:=xdspositionen.FieldByName('PosNr').AsString;\r\n    PTC.Cells[1,i]:=xdspositionen.FieldByName('PosUNr').AsString;\r\n    PTC.Cells[2,i]:=xdspositionen.FieldByName('Artikelnummer.Artikelnummer').AsString;\r\n    PTC.Cells[3,i]:=xdspositionen.FieldByName('Artikelueberschrift').AsString;\r\n    PTC.Cells[4,i]:=xdspositionen.FieldByName('Artikelbeschreibung').AsString;\r\n    PTC.Cells[5,i]:='<p class=\"text-right\">'+xdspositionen.FieldByName('Menge').AsString;\r\n\r\n    if not einkauf then\r\n    begin\r\n      if form1.RCW.Verkaufspreise=true then\r\n      begin\r\n        PTC.Cells[6,i]:='<p class=\"text-right\">'+formatfloat('#,##0.00',xdsPositionen.fieldbyname('Verkaufspreis').asfloat);\r\n        PTC.Cells[7,i]:='<p class=\"text-right\">'+formatfloat('#,##0.00',xdsPositionen.fieldbyname('Endpreis').asfloat);\r\n      end\r\n      else\r\n      begin\r\n        PTC.Cells[6,i]:='XXX';\r\n        PTC.Cells[7,i]:='XXX';\r\n        btnPDF.Enabled:=false;\r\n      end;\r\n    end;\r\n    if einkauf then\r\n    begin\r\n      if form1.RCW.Einkaufspreise=true then\r\n      begin\r\n        PTC.Cells[6,i]:='<p class=\"text-right\">'+formatfloat('#,##0.00',xdsPositionen.fieldbyname('Einkaufspreis').asfloat);\r\n        PTC.Cells[7,i]:='<p class=\"text-right\">'+formatfloat('#,##0.00',xdsPositionen.fieldbyname('Endpreis').asfloat);\r\n      end\r\n      else\r\n      begin\r\n        PTC.Cells[6,i]:='XXX';\r\n        PTC.Cells[7,i]:='XXX';\r\n        btnPDF.Enabled:=false;\r\n      end;\r\n    end;\r\n\r\n\r\n\r\n    xdspositionen.Next;\r\n  end;\r\nend;\r\n\r\nprocedure TEinzelBeleg.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  TC := TTableControl.Create(Self);\r\n  PTC := TTableControl.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  btnPDF := TButton.Create(Self);\r\n  xdsBeleg := TXDataWebDataSet.Create(Self);\r\n  xdsPositionen := TXDataWebDataSet.Create(Self);\r\n  WClient := TXDataWebClient.Create(Self);\r\n\r\n  TC.BeforeLoadDFMValues;\r\n  PTC.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  btnPDF.BeforeLoadDFMValues;\r\n  xdsBeleg.BeforeLoadDFMValues;\r\n  xdsPositionen.BeforeLoadDFMValues;\r\n  WClient.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'EinzelBeleg';\r\n    Width := 213;\r\n    Height := 417;\r\n    Caption := 'EinzelBeleg';\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.Left := 0;\r\n    TC.Top := 189;\r\n    TC.Width := 169;\r\n    TC.Height := 143;\r\n    TC.ElementClassName := 'table table-hover table-bordered table-striped';\r\n    TC.HeightStyle := ssAuto;\r\n    TC.WidthStyle := ssPercent;\r\n    TC.BorderColor := clSilver;\r\n    TC.ChildOrder := 2;\r\n    TC.ColHeader := False;\r\n    TC.ElementFont := efCSS;\r\n    TC.ElementHeaderClassName := 'table-info';\r\n    TC.ElementPosition := epIgnore;\r\n    TC.ElementTableClassName := 'table table-hover table-bordered table-striped';\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 2;\r\n    PTC.SetParentComponent(Self);\r\n    PTC.Name := 'PTC';\r\n    PTC.Left := 0;\r\n    PTC.Top := 338;\r\n    PTC.Width := 169;\r\n    PTC.Height := 48;\r\n    PTC.ElementClassName := 'table table-hover table-bordered table-striped';\r\n    PTC.HeightStyle := ssAuto;\r\n    PTC.WidthStyle := ssPercent;\r\n    PTC.BorderColor := clSilver;\r\n    PTC.ChildOrder := 2;\r\n    PTC.ColHeader := False;\r\n    PTC.ElementFont := efCSS;\r\n    PTC.ElementHeaderClassName := 'table-info';\r\n    PTC.ElementPosition := epIgnore;\r\n    PTC.ElementTableClassName := 'table table-hover table-bordered table-striped';\r\n    PTC.WordWrap := True;\r\n    PTC.ColCount := 2;\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ChildOrder := 4;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 0;\r\n    btnzurueck.Top := 158;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    btnPDF.SetParentComponent(Self);\r\n    btnPDF.Name := 'btnPDF';\r\n    btnPDF.Left := 102;\r\n    btnPDF.Top := 158;\r\n    btnPDF.Width := 96;\r\n    btnPDF.Height := 25;\r\n    btnPDF.Caption := 'PDF';\r\n    btnPDF.ChildOrder := 4;\r\n    btnPDF.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnPDF.ElementFont := efCSS;\r\n    btnPDF.ElementPosition := epIgnore;\r\n    btnPDF.HeightStyle := ssAuto;\r\n    btnPDF.HeightPercent := 100.000000000000000000;\r\n    btnPDF.WidthStyle := ssAuto;\r\n    btnPDF.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnPDF, Self, 'OnClick', 'btnPDFClick');\r\n    xdsBeleg.SetParentComponent(Self);\r\n    xdsBeleg.Name := 'xdsBeleg';\r\n    xdsBeleg.AfterOpen := xdsBelegAfterOpen;\r\n    xdsBeleg.EntitySetName := 'Angebote';\r\n    xdsBeleg.Connection := DM2.XDataWebConnection1;\r\n    xdsBeleg.SubpropsDepth := 1;\r\n    xdsBeleg.QueryString := '$expand=Kundennummer';\r\n    xdsBeleg.Left := 476;\r\n    xdsBeleg.Top := 72;\r\n    xdsPositionen.SetParentComponent(Self);\r\n    xdsPositionen.Name := 'xdsPositionen';\r\n    xdsPositionen.AfterOpen := xdsPositionenAfterOpen;\r\n    xdsPositionen.EntitySetName := 'PositionenAnfrage';\r\n    xdsPositionen.Connection := DM2.XDataWebConnection1;\r\n    xdsPositionen.SubpropsDepth := 1;\r\n    xdsPositionen.QueryString := '$expand=Artikelnummer';\r\n    xdsPositionen.Left := 476;\r\n    xdsPositionen.Top := 128;\r\n    WClient.SetParentComponent(Self);\r\n    WClient.Name := 'WClient';\r\n    WClient.Connection := DM2.XDataWebConnection1;\r\n    WClient.Left := 72;\r\n    WClient.Top := 98;\r\n  finally\r\n    TC.AfterLoadDFMValues;\r\n    PTC.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    btnPDF.AfterLoadDFMValues;\r\n    xdsBeleg.AfterLoadDFMValues;\r\n    xdsPositionen.AfterLoadDFMValues;\r\n    WClient.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.","unit unit_BelegeUndPositionen;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, WEBLib.Buttons, Vcl.Controls, Vcl.StdCtrls,\r\n  WEBLib.StdCtrls, WEBLib.ExtCtrls, Data.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, Vcl.Grids, WEBLib.DBCtrls, WEBLib.DB, WEBLib.Grids, DB;\r\n\r\ntype\r\n  TBelegePositionen = class(TForm)\r\n    xdsBelege: TXDataWebDataSet;\r\n    xdsPositionen: TXDataWebDataSet;\r\n    sourceBelege: TDataSource;\r\n    TC: TTableControl;\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    btnzurueck: TButton;\r\n    comboBelegart: TComboBox;\r\n    btnAnzeigen: TButton;\r\n    edtsuchbegriff: TEdit;\r\n    btnSuchePos: TButton;\r\n    lblKunde: TLabel;\r\n    Container3: THTMLContainer;\r\n    container4: THTMLContainer;\r\n    Container5: THTMLContainer;\r\n    lbKunde: TLabel;\r\n    ResultLabel: TLabel;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure btnAnzeigenClick(Sender: TObject);\r\n    procedure xdsBelegeAfterOpen(DataSet: TDataSet);\r\n    procedure btnSuchePosClick(Sender: TObject);\r\n    procedure xdsPositionenAfterOpen(DataSet: TDataSet);\r\n    procedure TCClickCell(Sender: TObject; ACol, ARow: Integer);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    BPKundennummer:string;\r\n    BPName:string;\r\n    BP:boolean;\r\n    CurrentAnzeige:integer;\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  BelegePositionen: TBelegePositionen;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_EinzelBeleg;\r\n{$R *.dfm}\r\n\r\nprocedure TBelegePositionen.btnAnzeigenClick(Sender: TObject);\r\nbegin\r\n  currentanzeige:=0;\r\n  decodedate(date,ajahr,amonat,atag);\r\n  ajahr:=ajahr-2;\r\n  xdspositionen.Close;\r\n  xdsbelege.Close;\r\n  if comboBelegart.Text='Angebote' then xdsbelege.EntitySetName:='Angebote';\r\n  if comboBelegart.Text='Aufträge' then xdsbelege.EntitySetName:='Auftrag';\r\n  if comboBelegart.Text='Lieferscheine' then xdsbelege.EntitySetName:='Lieferschein';\r\n  if comboBelegart.Text='Rechnungen' then xdsbelege.EntitySetName:='Rechnung';\r\n  if comboBelegart.Text='Anfragen' then xdsbelege.EntitySetName:='Anfrage';\r\n  if comboBelegart.Text='Bestellungen' then xdsbelege.EntitySetName:='Bestellung';\r\n  if comboBelegart.Text='Wareneingänge' then xdsbelege.EntitySetName:='Wareneingang';\r\n  if comboBelegart.Text='EingangsRechnungen' then xdsbelege.EntitySetName:='EingangsRE';\r\n  if bp then\r\n  begin\r\n    xdsbelege.QueryTop:=500;\r\n    xdsbelege.QueryString:='$filter=Kundennummer eq '+QuotedStr(BPKundennummer)+'&$orderby=Nummerkomplett DESC';\r\n  end\r\n  else\r\n  begin\r\n    xdsbelege.QueryTop:=500;\r\n    xdsbelege.QueryString:='$expand=Kundennummer&$filter=Jahr gt '+inttostr(ajahr)+'&$orderby=Nummerkomplett DESC';\r\n  end;\r\n  xdsbelege.Load;\r\nend;\r\n\r\nprocedure TBelegePositionen.btnSuchePosClick(Sender: TObject);\r\nvar\r\n  mysuchbegriff:string;\r\nbegin\r\n  currentanzeige:=1;\r\n  mysuchbegriff:=trim(edtsuchbegriff.Text);\r\n  xdspositionen.Close;\r\n  xdsbelege.Close;\r\n  if comboBelegart.Text='Angebote' then xdsPositionen.EntitySetName:='PositionenAngebote';\r\n  if comboBelegart.Text='Aufträge' then xdsPositionen.EntitySetName:='PositionenAuftrag';\r\n  if comboBelegart.Text='Lieferscheine' then xdsPositionen.EntitySetName:='PositionenLieferschein';\r\n  if comboBelegart.Text='Rechnungen' then xdsPositionen.EntitySetName:='PositionenRechnung';\r\n  if comboBelegart.Text='Anfragen' then xdsPositionen.EntitySetName:='PositionenAnfrage';\r\n  if comboBelegart.Text='Bestellungen' then xdsPositionen.EntitySetName:='PositionenBestellung';\r\n  if comboBelegart.Text='Wareneingänge' then xdsPositionen.EntitySetName:='PositionenWareneingang';\r\n  if comboBelegart.Text='EingangsRechnungen' then xdsPositionen.EntitySetName:='PositionenEingangsRE';\r\n\r\n  if bp then\r\n  begin\r\n    xdsPositionen.QueryTop:=500;\r\n    if mysuchbegriff='' then\r\n    begin\r\n      xdsPositionen.QueryString:='$expand=Nummerkomplett,Artikelnummer&$filter=Nummerkomplett/Kundennummer eq '+QuotedStr(BPKundennummer)+'&$orderby=Nummerkomplett/Nummerkomplett DESC';\r\n    end\r\n    else\r\n    begin\r\n      xdsPositionen.QueryString:='$expand=Nummerkomplett,Artikelnummer&$filter=((Nummerkomplett/Kundennummer eq '+QuotedStr(BPKundennummer)+')';\r\n      xdsPositionen.QueryString:=xdsPositionen.QueryString+' AND ((contains(Artikelbeschreibung,'+quotedstr(mysuchbegriff)+'))';\r\n      xdsPositionen.QueryString:=xdsPositionen.QueryString+' OR (contains(Artikelueberschrift,'+quotedstr(mysuchbegriff)+'))))';\r\n      xdsPositionen.QueryString:=xdsPositionen.QueryString+'&$orderby=Nummerkomplett/Nummerkomplett DESC';\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    xdsPositionen.QueryTop:=500;\r\n    if mysuchbegriff='' then\r\n    begin\r\n      xdsPositionen.QueryString:='$expand=Nummerkomplett,Artikelnummer&$orderby=Nummerkomplett/Nummerkomplett DESC';\r\n    end\r\n    else\r\n    begin\r\n      xdsPositionen.QueryString:='$expand=Nummerkomplett,Artikelnummer&$filter=(';\r\n      xdsPositionen.QueryString:=xdsPositionen.QueryString+' ((contains(Artikelbeschreibung,'+quotedstr(mysuchbegriff)+'))';\r\n      xdsPositionen.QueryString:=xdsPositionen.QueryString+' OR (contains(Artikelueberschrift,'+quotedstr(mysuchbegriff)+'))))';\r\n      xdsPositionen.QueryString:=xdsPositionen.QueryString+'&$orderby=Nummerkomplett/Nummerkomplett DESC';\r\n    end;\r\n  end;\r\n  xdspositionen.Load;\r\nend;\r\n\r\nprocedure TBelegePositionen.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  xdspositionen.Close;\r\n  xdsbelege.Close;\r\n  self.Close;\r\nend;\r\n\r\nprocedure TBelegePositionen.TCClickCell(Sender: TObject; ACol, ARow: Integer);\r\nvar\r\n  EinzelBeleg:TEinzelBeleg;\r\n    procedure AfterCreate(AForm:TObject);\r\n    begin\r\n      (AForm as TEinzelBeleg).Belegnummer:=tc.Cells[0,arow];\r\n      (AForm as TEinzelBeleg).Belegart:=comboBelegart.text;\r\n      tc.Visible:=false;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      //nothing to do\r\n      if currentanzeige=0 then btnAnzeigenClick(nil);\r\n      if currentanzeige=1 then btnSuchePosClick(nil);\r\n\r\n\r\n    end;\r\n\r\n  begin\r\n  EinzelBeleg:=TEinzelBeleg.CreateNew(@AfterCreate);\r\n  EinzelBeleg.ShowModal(@AfterShowmodal);\r\nend;\r\n\r\nprocedure TBelegePositionen.WebFormShow(Sender: TObject);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Belege/Positionen</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  resultlabel.ParentElement:=myelement;\r\n  Container2.HTML.Text:='';\r\n  container2.ParentElement:=myelement;\r\n\r\n\r\n  myelement:=container2.ElementHandle;\r\n\r\n  container3.parentelement:=myelement;\r\n  container4.parentelement:=myelement;\r\n  container5.parentelement:=myelement;\r\n  tc.ParentElement:=myelement;\r\n\r\n  myelement:=container3.ElementHandle;\r\n  combobelegart.ParentElement:=myelement;\r\n  btnanzeigen.ParentElement:=myelement;\r\n\r\n  myelement:=container4.ElementHandle;\r\n  edtsuchbegriff.ParentElement:=myelement;\r\n  btnSuchePos.ParentElement:=myelement;\r\n\r\n  myelement:=container5.ElementHandle;\r\n  lbKunde.ParentElement:=myelement;\r\n  lblkunde.ParentElement:=myelement;\r\n  if bpKundennummer<>'' then\r\n  begin\r\n    bp:=true;\r\n    lblkunde.Caption:=BPKundennummer+' '+BPName;\r\n  end\r\n  else\r\n  begin\r\n    bp:=false;\r\n    lblkunde.Caption:='ALLE';\r\n  end;\r\n  btnAnzeigenClick(sender);\r\nend;\r\n\r\nprocedure TBelegePositionen.xdsBelegeAfterOpen(DataSet: TDataSet);\r\nvar\r\n  i:integer;\r\n  o:integer;\r\nbegin\r\n  if bp then o:=0 else o:=2;\r\n  tc.Visible:=true;\r\n  if comboBelegart.Text='Angebote' then\r\n  begin\r\n    xdsBelege.First;\r\n    tc.RowCount:=xdsbelege.RecordCount+1;\r\n    tc.ColCount:=5+o;\r\n    tc.Cells[0,0]:='Belegnummer';\r\n    tc.Cells[1,0]:='Datum';\r\n    if not bp then\r\n    begin\r\n      tc.Cells[2,0]:='K-Nr';\r\n      tc.Cells[3,0]:='Nachname';\r\n    end;\r\n    tc.Cells[2+o,0]:='Auftragsbezeichnung';\r\n    tc.Cells[3+o,0]:='Nettosumme';\r\n    tc.Cells[4+o,0]:='Auftrag erhalten';\r\n    resultlabel.Caption:=inttostr(xdsbelege.RecordCount)+' Angebote gefunden';\r\n    while not xdsbelege.eof do\r\n    begin\r\n      i:=xdsbelege.RecNo;\r\n      TC.Cells[0,i]:=xdsbelege.fieldbyname('Nummerkomplett').asstring;\r\n      TC.Cells[1,i]:=formatdatetime('DD.MM.YYYY',xdsbelege.fieldbyname('Datum').asdatetime);\r\n      if not bp then\r\n      begin\r\n        tc.Cells[2,i]:=xdsbelege.fieldbyname('Kundennummer.Kundennummer').asstring;\r\n        tc.Cells[3,i]:=xdsbelege.fieldbyname('Nachname').asstring;\r\n      end;\r\n      TC.Cells[2+o,i]:=xdsbelege.fieldbyname('Auftragsbezeichnung').asstring;\r\n      if form1.rcw.Verkaufspreise=true then\r\n      begin\r\n        TC.Cells[3+o,i]:='<p class=\"text-right\">'+formatfloat('#,##0.00',xdsbelege.fieldbyname('Nettosumme').asfloat);\r\n      end\r\n      else\r\n      begin\r\n        TC.Cells[3+o,i]:='<p class=\"text-right\">XXX';\r\n      end;\r\n      if xdsbelege.FieldByName('Auftragerhaltenam').AsFloat>0 then\r\n      begin\r\n        TC.Cells[4+o,i]:=formatdatetime('DD.MM.YYYY',xdsbelege.fieldbyname('Auftragerhaltenam').asdatetime);\r\n      end\r\n      else\r\n      begin\r\n        if xdsbelege.FieldByName('Auftragnichterhalten').asboolean then\r\n        begin\r\n          TC.Cells[4+o,i]:='nicht erhalten';\r\n        end\r\n        else\r\n        begin\r\n          TC.Cells[4+o,i]:='noch nicht entschieden';\r\n        end;\r\n      end;\r\n      xdsbelege.Next;\r\n    end;\r\n  end;\r\n\r\n  if comboBelegart.Text='Aufträge' then\r\n  begin\r\n    xdsBelege.First;\r\n    tc.RowCount:=xdsbelege.RecordCount+1;\r\n    tc.ColCount:=6+o;\r\n    tc.Cells[0,0]:='Belegnummer';\r\n    tc.Cells[1,0]:='Datum';\r\n    if not bp then\r\n    begin\r\n      tc.Cells[2,0]:='K-Nr';\r\n      tc.Cells[3,0]:='Nachname';\r\n    end;\r\n    tc.Cells[2+o,0]:='Auftragsbezeichnung';\r\n    tc.Cells[3+o,0]:='Nettosumme';\r\n    tc.Cells[4+o,0]:='Status';\r\n    tc.Cells[5+o,0]:='Lieferschein';\r\n    resultlabel.Caption:=inttostr(xdsbelege.RecordCount)+' Aufträge gefunden';\r\n    while not xdsbelege.eof do\r\n    begin\r\n      i:=xdsbelege.RecNo;\r\n      TC.Cells[0,i]:=xdsbelege.fieldbyname('Nummerkomplett').asstring;\r\n      TC.Cells[1,i]:=formatdatetime('DD.MM.YYYY',xdsbelege.fieldbyname('Datum').asdatetime);\r\n      if not bp then\r\n      begin\r\n        tc.Cells[2,i]:=xdsbelege.fieldbyname('Kundennummer.Kundennummer').asstring;\r\n        tc.Cells[3,i]:=xdsbelege.fieldbyname('Nachname').asstring;\r\n      end;\r\n      TC.Cells[2+o,i]:=xdsbelege.fieldbyname('Auftragsbezeichnung').asstring;\r\n      if form1.rcw.Verkaufspreise=true then\r\n      begin\r\n        TC.Cells[3+o,i]:='<p class=\"text-right\">'+formatfloat('#,##0.00',xdsbelege.fieldbyname('Nettosumme').asfloat);\r\n      end\r\n      else\r\n      begin\r\n        TC.Cells[3+o,i]:='<p class=\"text-right\">XXX';\r\n      end;\r\n\r\n      TC.Cells[4+o,i]:=xdsbelege.fieldbyname('AuftragStatus').asstring;\r\n      TC.Cells[5+o,i]:=xdsbelege.fieldbyname('ReferenzLieferschein').asstring;\r\n      xdsbelege.Next;\r\n    end;\r\n  end;\r\n\r\n  if comboBelegart.Text='Lieferscheine' then\r\n  begin\r\n    xdsBelege.First;\r\n    tc.RowCount:=xdsbelege.RecordCount+1;\r\n    tc.ColCount:=6+o;\r\n    tc.Cells[0,0]:='Belegnummer';\r\n    tc.Cells[1,0]:='Datum';\r\n    if not bp then\r\n    begin\r\n      tc.Cells[2,0]:='K-Nr';\r\n      tc.Cells[3,0]:='Nachname';\r\n    end;\r\n    tc.Cells[2+o,0]:='Auftragsbezeichnung';\r\n    tc.Cells[3+o,0]:='Nettosumme';\r\n    tc.Cells[4+o,0]:='Fakturiert';\r\n    tc.Cells[5+o,0]:='Rechnung';\r\n    resultlabel.Caption:=inttostr(xdsbelege.RecordCount)+' Lieferscheine gefunden';\r\n    while not xdsbelege.eof do\r\n    begin\r\n      i:=xdsbelege.RecNo;\r\n      TC.Cells[0,i]:=xdsbelege.fieldbyname('Nummerkomplett').asstring;\r\n      TC.Cells[1,i]:=formatdatetime('DD.MM.YYYY',xdsbelege.fieldbyname('Datum').asdatetime);\r\n      if not bp then\r\n      begin\r\n        tc.Cells[2,i]:=xdsbelege.fieldbyname('Kundennummer.Kundennummer').asstring;\r\n        tc.Cells[3,i]:=xdsbelege.fieldbyname('Nachname').asstring;\r\n      end;\r\n      TC.Cells[2+o,i]:=xdsbelege.fieldbyname('Auftragsbezeichnung').asstring;\r\n      if form1.rcw.Verkaufspreise=true then\r\n      begin\r\n        TC.Cells[3+o,i]:='<p class=\"text-right\">'+formatfloat('#,##0.00',xdsbelege.fieldbyname('Nettosumme').asfloat);\r\n      end\r\n      else\r\n      begin\r\n        TC.Cells[3+o,i]:='<p class=\"text-right\">XXX';\r\n      end;\r\n      TC.Cells[4+o,i]:=xdsbelege.fieldbyname('VollstaendigFakturiert').asstring;\r\n      TC.Cells[5+o,i]:=xdsbelege.fieldbyname('ReferenzRechnung').asstring;\r\n      xdsbelege.Next;\r\n    end;\r\n  end;\r\n\r\n  if comboBelegart.Text='Rechnungen' then\r\n  begin\r\n    xdsBelege.First;\r\n    tc.RowCount:=xdsbelege.RecordCount+1;\r\n    tc.ColCount:=6+o;\r\n    tc.Cells[0,0]:='Belegnummer';\r\n    tc.Cells[1,0]:='Datum';\r\n    if not bp then\r\n    begin\r\n      tc.Cells[2,0]:='K-Nr';\r\n      tc.Cells[3,0]:='Nachname';\r\n    end;\r\n    tc.Cells[2+o,0]:='Auftragsbezeichnung';\r\n    tc.Cells[3+o,0]:='Nettosumme';\r\n    tc.Cells[4+o,0]:='Restbetrag(brutto)';\r\n    tc.Cells[5+o,0]:='Belegvariante';\r\n    resultlabel.Caption:=inttostr(xdsbelege.RecordCount)+' Rechnungen gefunden';\r\n    while not xdsbelege.eof do\r\n    begin\r\n      i:=xdsbelege.RecNo;\r\n      TC.Cells[0,i]:=xdsbelege.fieldbyname('Nummerkomplett').asstring;\r\n      TC.Cells[1,i]:=formatdatetime('DD.MM.YYYY',xdsbelege.fieldbyname('Datum').asdatetime);\r\n      if not bp then\r\n      begin\r\n        tc.Cells[2,i]:=xdsbelege.fieldbyname('Kundennummer.Kundennummer').asstring;\r\n        tc.Cells[3,i]:=xdsbelege.fieldbyname('Nachname').asstring;\r\n      end;\r\n      TC.Cells[2+o,i]:=xdsbelege.fieldbyname('Auftragsbezeichnung').asstring;\r\n\r\n\r\n      if form1.rcw.Verkaufspreise=true then\r\n      begin\r\n        TC.Cells[3+o,i]:='<p class=\"text-right\">'+formatfloat('#,##0.00',xdsbelege.fieldbyname('Nettosumme').asfloat);\r\n        TC.Cells[4+o,i]:='<p class=\"text-right\">'+formatfloat('#,##0.00',xdsbelege.fieldbyname('Restbetrag').asfloat);\r\n      end\r\n      else\r\n      begin\r\n        TC.Cells[3+o,i]:='<p class=\"text-right\">XXX';\r\n        TC.Cells[4+o,i]:='<p class=\"text-right\">XXX';\r\n      end;\r\n\r\n      TC.Cells[5+o,i]:=xdsbelege.fieldbyname('Belegvariante').asstring;\r\n      xdsbelege.Next;\r\n    end;\r\n  end;\r\n\r\n  if comboBelegart.Text='Anfragen' then\r\n  begin\r\n    xdsBelege.First;\r\n    tc.RowCount:=xdsbelege.RecordCount+1;\r\n    tc.ColCount:=5+o;\r\n    tc.Cells[0,0]:='Belegnummer';\r\n    tc.Cells[1,0]:='Datum';\r\n    if not bp then\r\n    begin\r\n      tc.Cells[2,0]:='K-Nr';\r\n      tc.Cells[3,0]:='Nachname';\r\n    end;\r\n    tc.Cells[2+o,0]:='Auftragsbezeichnung';\r\n    tc.Cells[3+o,0]:='Nettosumme';\r\n    tc.Cells[4+o,0]:='Angebot erhalten';\r\n    resultlabel.Caption:=inttostr(xdsbelege.RecordCount)+' Anfragen gefunden';\r\n    while not xdsbelege.eof do\r\n    begin\r\n      i:=xdsbelege.RecNo;\r\n      TC.Cells[0,i]:=xdsbelege.fieldbyname('Nummerkomplett').asstring;\r\n      TC.Cells[1,i]:=formatdatetime('DD.MM.YYYY',xdsbelege.fieldbyname('Datum').asdatetime);\r\n      if not bp then\r\n      begin\r\n        tc.Cells[2,i]:=xdsbelege.fieldbyname('Kundennummer.Kundennummer').asstring;\r\n        tc.Cells[3,i]:=xdsbelege.fieldbyname('Nachname').asstring;\r\n      end;\r\n      TC.Cells[2+o,i]:=xdsbelege.fieldbyname('Auftragsbezeichnung').asstring;\r\n      if form1.rcw.Einkaufspreise=true then\r\n      begin\r\n        TC.Cells[3+o,i]:='<p class=\"text-right\">'+formatfloat('#,##0.00',xdsbelege.fieldbyname('Nettosumme').asfloat);\r\n      end\r\n      else\r\n      begin\r\n        TC.Cells[3+o,i]:='<p class=\"text-right\">XXX';\r\n      end;\r\n      if xdsbelege.fieldbyname('Angeboterhaltenam').asfloat>0 then TC.Cells[4+o,i]:=xdsbelege.fieldbyname('Angeboterhaltenam').asstring;\r\n      xdsbelege.Next;\r\n    end;\r\n  end;\r\n\r\n  if comboBelegart.Text='Bestellungen' then\r\n  begin\r\n    xdsBelege.First;\r\n    tc.RowCount:=xdsbelege.RecordCount+1;\r\n    tc.ColCount:=5+o;\r\n    tc.Cells[0,0]:='Belegnummer';\r\n    tc.Cells[1,0]:='Datum';\r\n    if not bp then\r\n    begin\r\n      tc.Cells[2,0]:='K-Nr';\r\n      tc.Cells[3,0]:='Nachname';\r\n    end;\r\n    tc.Cells[2+o,0]:='Auftragsbezeichnung';\r\n    tc.Cells[3+o,0]:='Nettosumme';\r\n    tc.Cells[4+o,0]:='geliefert';\r\n    resultlabel.Caption:=inttostr(xdsbelege.RecordCount)+' Bestellungen gefunden';\r\n    while not xdsbelege.eof do\r\n    begin\r\n      i:=xdsbelege.RecNo;\r\n      TC.Cells[0,i]:=xdsbelege.fieldbyname('Nummerkomplett').asstring;\r\n      TC.Cells[1,i]:=formatdatetime('DD.MM.YYYY',xdsbelege.fieldbyname('Datum').asdatetime);\r\n      if not bp then\r\n      begin\r\n        tc.Cells[2,i]:=xdsbelege.fieldbyname('Kundennummer.Kundennummer').asstring;\r\n        tc.Cells[3,i]:=xdsbelege.fieldbyname('Nachname').asstring;\r\n      end;\r\n      TC.Cells[2+o,i]:=xdsbelege.fieldbyname('Auftragsbezeichnung').asstring;\r\n      if form1.rcw.Einkaufspreise=true then\r\n      begin\r\n        TC.Cells[3+o,i]:='<p class=\"text-right\">'+formatfloat('#,##0.00',xdsbelege.fieldbyname('Nettosumme').asfloat);\r\n      end\r\n      else\r\n      begin\r\n        TC.Cells[3+o,i]:='<p class=\"text-right\">XXX';\r\n      end;\r\n\r\n      if xdsbelege.fieldbyname('vollstaendiggeliefert').asboolean=true then TC.Cells[4+o,i]:='JA' else TC.Cells[4+o,i]:='NEIN';\r\n      xdsbelege.Next;\r\n    end;\r\n  end;\r\n\r\n  if comboBelegart.Text='Wareneingänge' then\r\n  begin\r\n    xdsBelege.First;\r\n    tc.RowCount:=xdsbelege.RecordCount+1;\r\n    tc.ColCount:=5+o;\r\n    tc.Cells[0,0]:='Belegnummer';\r\n    tc.Cells[1,0]:='Datum';\r\n    if not bp then\r\n    begin\r\n      tc.Cells[2,0]:='K-Nr';\r\n      tc.Cells[3,0]:='Nachname';\r\n    end;\r\n    tc.Cells[2+o,0]:='Auftragsbezeichnung';\r\n    tc.Cells[3+o,0]:='Nettosumme';\r\n    tc.Cells[4+o,0]:='abgerechnet';\r\n    resultlabel.Caption:=inttostr(xdsbelege.RecordCount)+' Wareneingänge gefunden';\r\n    while not xdsbelege.eof do\r\n    begin\r\n      i:=xdsbelege.RecNo;\r\n      TC.Cells[0,i]:=xdsbelege.fieldbyname('Nummerkomplett').asstring;\r\n      TC.Cells[1,i]:=formatdatetime('DD.MM.YYYY',xdsbelege.fieldbyname('Datum').asdatetime);\r\n      if not bp then\r\n      begin\r\n        tc.Cells[2,i]:=xdsbelege.fieldbyname('Kundennummer.Kundennummer').asstring;\r\n        tc.Cells[3,i]:=xdsbelege.fieldbyname('Nachname').asstring;\r\n      end;\r\n      TC.Cells[2+o,i]:=xdsbelege.fieldbyname('Auftragsbezeichnung').asstring;\r\n      if form1.rcw.Einkaufspreise=true then\r\n      begin\r\n        TC.Cells[3+o,i]:='<p class=\"text-right\">'+formatfloat('#,##0.00',xdsbelege.fieldbyname('Nettosumme').asfloat);\r\n      end\r\n      else\r\n      begin\r\n        TC.Cells[3+o,i]:='<p class=\"text-right\">XXX';\r\n      end;\r\n      TC.Cells[4+o,i]:=xdsbelege.fieldbyname('vollstaendigabgerechnet').asstring;\r\n      xdsbelege.Next;\r\n    end;\r\n  end;\r\n\r\n  if comboBelegart.Text='EingangsRechnungen' then\r\n  begin\r\n    xdsBelege.First;\r\n    tc.RowCount:=xdsbelege.RecordCount+1;\r\n    tc.ColCount:=6+o;\r\n    tc.Cells[0,0]:='Belegnummer';\r\n    tc.Cells[1,0]:='Datum';\r\n    if not bp then\r\n    begin\r\n      tc.Cells[2,0]:='K-Nr';\r\n      tc.Cells[3,0]:='Nachname';\r\n    end;\r\n    tc.Cells[2+o,0]:='Auftragsbezeichnung';\r\n    tc.Cells[3+o,0]:='Nettosumme';\r\n    tc.Cells[4+o,0]:='Restbetrag(brutto)';\r\n    tc.Cells[5+o,0]:='Belegvariante';\r\n    resultlabel.Caption:=inttostr(xdsbelege.RecordCount)+' Eingangsrechnungen gefunden';\r\n    while not xdsbelege.eof do\r\n    begin\r\n      i:=xdsbelege.RecNo;\r\n      TC.Cells[0,i]:=xdsbelege.fieldbyname('Nummerkomplett').asstring;\r\n      TC.Cells[1,i]:=formatdatetime('DD.MM.YYYY',xdsbelege.fieldbyname('Datum').asdatetime);\r\n      if not bp then\r\n      begin\r\n        tc.Cells[2,i]:=xdsbelege.fieldbyname('Kundennummer.Kundennummer').asstring;\r\n        tc.Cells[3,i]:=xdsbelege.fieldbyname('Nachname').asstring;\r\n      end;\r\n      TC.Cells[2+o,i]:=xdsbelege.fieldbyname('Auftragsbezeichnung').asstring;\r\n\r\n\r\n      if form1.rcw.Einkaufspreise=true then\r\n      begin\r\n        TC.Cells[3+o,i]:='<p class=\"text-right\">'+formatfloat('#,##0.00',xdsbelege.fieldbyname('Nettosumme').asfloat);\r\n        TC.Cells[4+o,i]:='<p class=\"text-right\">'+formatfloat('#,##0.00',xdsbelege.fieldbyname('Restbetrag').asfloat);\r\n      end\r\n      else\r\n      begin\r\n        TC.Cells[3+o,i]:='<p class=\"text-right\">XXX';\r\n        TC.Cells[4+o,i]:='<p class=\"text-right\">XXX';\r\n      end;\r\n      TC.Cells[5+o,i]:=xdsbelege.fieldbyname('Belegvariante').asstring;\r\n      xdsbelege.Next;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TBelegePositionen.xdsPositionenAfterOpen(DataSet: TDataSet);\r\nvar\r\n  i:integer;\r\n  einkauf:boolean;\r\n  o:integer;\r\nbegin\r\n  tc.Visible:=true;\r\n    if bp then o:=0 else o:=1;\r\n    xdsPositionen.First;\r\n    tc.RowCount:=xdsPositionen.RecordCount+1;\r\n    tc.ColCount:=7+o;\r\n    einkauf:=false;\r\n    if comboBelegart.Text='Angebote' then tc.Cells[0,0]:='Angebot';\r\n    if comboBelegart.Text='Aufträge' then tc.Cells[0,0]:='Auftrag';\r\n    if comboBelegart.Text='Lieferscheine' then tc.Cells[0,0]:='Lieferschein';\r\n    if comboBelegart.Text='Rechnungen' then tc.Cells[0,0]:='Rechnung';\r\n    if comboBelegart.Text='Anfragen' then tc.Cells[0,0]:='Anfrage';\r\n    if comboBelegart.Text='Bestellungen' then tc.Cells[0,0]:='Bestellung';\r\n    if comboBelegart.Text='Wareneingänge' then tc.Cells[0,0]:='Wareneingang';\r\n    if comboBelegart.Text='EingangsRechnungen' then tc.Cells[0,0]:='EingangsRechnung';\r\n    if comboBelegart.Text='Anfragen' then einkauf:=true;\r\n    if comboBelegart.Text='Bestellungen' then einkauf:=true;\r\n    if comboBelegart.Text='Wareneingänge' then einkauf:=true;\r\n    if comboBelegart.Text='EingangsRechnungen' then einkauf:=true;\r\n    tc.Cells[1,0]:='Datum';\r\n    if not bp then\r\n    begin\r\n      tc.Cells[2,0]:='Nachname';\r\n    end;\r\n    tc.Cells[2+o,0]:='Artikelnr.';\r\n    tc.Cells[3+o,0]:='Artikelüberschrift';\r\n    tc.Cells[4+o,0]:='Beschreibung';\r\n    tc.Cells[5+o,0]:='Menge';\r\n    tc.Cells[6+o,0]:='Einzel-VKP';\r\n    if einkauf then tc.Cells[6+o,0]:='Einzel-EKP';\r\n    resultlabel.Caption:=inttostr(xdspositionen.RecordCount)+' Positionen gefunden';\r\n    while not xdsPositionen.eof do\r\n    begin\r\n      i:=xdsPositionen.RecNo;\r\n      TC.Cells[0,i]:=xdsPositionen.fieldbyname('Nummerkomplett.Nummerkomplett').asstring;\r\n      TC.Cells[1,i]:=formatdatetime('DD.MM.YYYY',xdsPositionen.fieldbyname('Nummerkomplett.Datum').asdatetime);\r\n      if not bp then\r\n      begin\r\n        tc.Cells[2,i]:=xdspositionen.fieldbyname('Nummerkomplett.Nachname').asstring;\r\n      end;\r\n      TC.Cells[2+o,i]:=xdsPositionen.fieldbyname('Artikelnummer.Artikelnummer').asstring;\r\n      TC.Cells[3+o,i]:=xdsPositionen.fieldbyname('Artikelueberschrift').asstring;\r\n      TC.Cells[4+o,i]:=xdsPositionen.fieldbyname('Artikelbeschreibung').asstring;\r\n      TC.Cells[5+o,i]:='<p class=\"text-right\">'+xdsPositionen.fieldbyname('Menge').asstring;\r\n      if not einkauf then\r\n      begin\r\n        if form1.rcw.Verkaufspreise=true then\r\n        begin\r\n          TC.Cells[6+o,i]:='<p class=\"text-right\">'+formatfloat('#,##0.00',xdsPositionen.fieldbyname('Verkaufspreis').asfloat);\r\n        end\r\n        else\r\n        begin\r\n          TC.Cells[6+o,i]:='XXX';\r\n        end;\r\n      end;\r\n      if einkauf then\r\n      begin\r\n        if form1.rcw.Einkaufspreise=true then\r\n        begin\r\n          TC.Cells[6+o,i]:='<p class=\"text-right\">'+formatfloat('#,##0.00',xdsPositionen.fieldbyname('Einkaufspreis').asfloat);\r\n        end\r\n        else\r\n        begin\r\n          TC.Cells[6+o,i]:='XXX';\r\n        end;\r\n      end;\r\n      xdsPositionen.Next;\r\n    end;\r\n\r\nend;\r\n\r\nprocedure TBelegePositionen.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  lblKunde := TLabel.Create(Self);\r\n  lbKunde := TLabel.Create(Self);\r\n  ResultLabel := TLabel.Create(Self);\r\n  TC := TTableControl.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  comboBelegart := TComboBox.Create(Self);\r\n  btnAnzeigen := TButton.Create(Self);\r\n  edtsuchbegriff := TEdit.Create(Self);\r\n  btnSuchePos := TButton.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  container4 := THTMLContainer.Create(Self);\r\n  Container5 := THTMLContainer.Create(Self);\r\n  xdsBelege := TXDataWebDataSet.Create(Self);\r\n  xdsPositionen := TXDataWebDataSet.Create(Self);\r\n  sourceBelege := TDataSource.Create(Self);\r\n\r\n  lblKunde.BeforeLoadDFMValues;\r\n  lbKunde.BeforeLoadDFMValues;\r\n  ResultLabel.BeforeLoadDFMValues;\r\n  TC.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  comboBelegart.BeforeLoadDFMValues;\r\n  btnAnzeigen.BeforeLoadDFMValues;\r\n  edtsuchbegriff.BeforeLoadDFMValues;\r\n  btnSuchePos.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  container4.BeforeLoadDFMValues;\r\n  Container5.BeforeLoadDFMValues;\r\n  xdsBelege.BeforeLoadDFMValues;\r\n  xdsPositionen.BeforeLoadDFMValues;\r\n  sourceBelege.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'BelegePositionen';\r\n    Width := 255;\r\n    Height := 442;\r\n    Caption := 'Belege und Positionen';\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    ElementPosition := epIgnore;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    lblKunde.SetParentComponent(Self);\r\n    lblKunde.Name := 'lblKunde';\r\n    lblKunde.Left := 181;\r\n    lblKunde.Top := 187;\r\n    lblKunde.Width := 47;\r\n    lblKunde.Height := 15;\r\n    lblKunde.Caption := 'lblKunde';\r\n    lblKunde.ChildOrder := 9;\r\n    lblKunde.ElementClassName := 'h5 text-info m-2';\r\n    lblKunde.ElementFont := efCSS;\r\n    lblKunde.ElementPosition := epIgnore;\r\n    lblKunde.HeightStyle := ssAuto;\r\n    lblKunde.HeightPercent := 100.000000000000000000;\r\n    lblKunde.WidthStyle := ssAuto;\r\n    lblKunde.WidthPercent := 100.000000000000000000;\r\n    lbKunde.SetParentComponent(Self);\r\n    lbKunde.Name := 'lbKunde';\r\n    lbKunde.Left := 189;\r\n    lbKunde.Top := 195;\r\n    lbKunde.Width := 61;\r\n    lbKunde.Height := 15;\r\n    lbKunde.Caption := 'Kontakt(e): ';\r\n    lbKunde.ChildOrder := 9;\r\n    lbKunde.ElementClassName := 'h5 text-info m-2';\r\n    lbKunde.ElementFont := efCSS;\r\n    lbKunde.ElementPosition := epIgnore;\r\n    lbKunde.HeightStyle := ssAuto;\r\n    lbKunde.HeightPercent := 100.000000000000000000;\r\n    lbKunde.WidthStyle := ssAuto;\r\n    lbKunde.WidthPercent := 100.000000000000000000;\r\n    ResultLabel.SetParentComponent(Self);\r\n    ResultLabel.Name := 'ResultLabel';\r\n    ResultLabel.Left := 184;\r\n    ResultLabel.Top := 72;\r\n    ResultLabel.Width := 60;\r\n    ResultLabel.Height := 15;\r\n    ResultLabel.Caption := 'ResultLabel';\r\n    ResultLabel.ElementClassName := 'h6 m-1';\r\n    ResultLabel.ElementFont := efCSS;\r\n    ResultLabel.ElementPosition := epIgnore;\r\n    ResultLabel.HeightStyle := ssAuto;\r\n    ResultLabel.HeightPercent := 100.000000000000000000;\r\n    ResultLabel.WidthStyle := ssPercent;\r\n    ResultLabel.WidthPercent := 100.000000000000000000;\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.Left := 0;\r\n    TC.Top := 256;\r\n    TC.Width := 247;\r\n    TC.Height := 186;\r\n    TC.ElementClassName := 'table table-sm table-hover table-bordered table-striped m-1';\r\n    TC.HeightStyle := ssAuto;\r\n    TC.WidthStyle := ssPercent;\r\n    TC.BorderColor := clSilver;\r\n    TC.ChildOrder := 3;\r\n    TC.ColHeader := False;\r\n    TC.ElementFont := efCSS;\r\n    TC.ElementHeaderClassName := 'table-info';\r\n    TC.ElementPosition := epIgnore;\r\n    TC.ElementTableClassName := 'table table-sm table-hover table-bordered table-striped';\r\n    TC.WordWrap := True;\r\n    SetEvent(TC, Self, 'OnClickCell', 'TCClickCell');\r\n    TC.ColCount := 2;\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 0;\r\n    btnzurueck.Top := 156;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    comboBelegart.SetParentComponent(Self);\r\n    comboBelegart.Name := 'comboBelegart';\r\n    comboBelegart.Left := 0;\r\n    comboBelegart.Top := 187;\r\n    comboBelegart.Width := 175;\r\n    comboBelegart.Height := 23;\r\n    comboBelegart.ChildOrder := 5;\r\n    comboBelegart.ElementClassName := 'form-control';\r\n    comboBelegart.ElementFont := efCSS;\r\n    comboBelegart.ElementPosition := epIgnore;\r\n    comboBelegart.HeightStyle := ssAuto;\r\n    comboBelegart.HeightPercent := 100.000000000000000000;\r\n    comboBelegart.Text := 'Angebote';\r\n    comboBelegart.WidthPercent := 100.000000000000000000;\r\n    comboBelegart.ItemIndex := 0;\r\n    comboBelegart.Items.BeginUpdate;\r\n    try\r\n      comboBelegart.Items.Clear;\r\n      comboBelegart.Items.Add('Angebote');\r\n      comboBelegart.Items.Add('Auftr'#228'ge');\r\n      comboBelegart.Items.Add('Lieferscheine');\r\n      comboBelegart.Items.Add('Rechnungen');\r\n      comboBelegart.Items.Add('Anfragen');\r\n      comboBelegart.Items.Add('Bestellungen');\r\n      comboBelegart.Items.Add('Wareneing'#228'nge');\r\n      comboBelegart.Items.Add('EingangsRechnungen');\r\n    finally\r\n      comboBelegart.Items.EndUpdate;\r\n    end;\r\n    btnAnzeigen.SetParentComponent(Self);\r\n    btnAnzeigen.Name := 'btnAnzeigen';\r\n    btnAnzeigen.Left := 0;\r\n    btnAnzeigen.Top := 214;\r\n    btnAnzeigen.Width := 96;\r\n    btnAnzeigen.Height := 25;\r\n    btnAnzeigen.Caption := 'Anzeigen';\r\n    btnAnzeigen.ChildOrder := 6;\r\n    btnAnzeigen.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnAnzeigen.ElementFont := efCSS;\r\n    btnAnzeigen.ElementPosition := epIgnore;\r\n    btnAnzeigen.HeightStyle := ssAuto;\r\n    btnAnzeigen.HeightPercent := 100.000000000000000000;\r\n    btnAnzeigen.WidthStyle := ssAuto;\r\n    btnAnzeigen.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnAnzeigen, Self, 'OnClick', 'btnAnzeigenClick');\r\n    edtsuchbegriff.SetParentComponent(Self);\r\n    edtsuchbegriff.Name := 'edtsuchbegriff';\r\n    edtsuchbegriff.Left := 102;\r\n    edtsuchbegriff.Top := 162;\r\n    edtsuchbegriff.Width := 121;\r\n    edtsuchbegriff.Height := 19;\r\n    edtsuchbegriff.ChildOrder := 7;\r\n    edtsuchbegriff.ElementClassName := 'form-control input-sm';\r\n    edtsuchbegriff.ElementFont := efCSS;\r\n    edtsuchbegriff.ElementPosition := epIgnore;\r\n    edtsuchbegriff.HeightStyle := ssAuto;\r\n    edtsuchbegriff.HeightPercent := 100.000000000000000000;\r\n    edtsuchbegriff.TextHint := 'Suchbegriff';\r\n    edtsuchbegriff.WidthPercent := 100.000000000000000000;\r\n    btnSuchePos.SetParentComponent(Self);\r\n    btnSuchePos.Name := 'btnSuchePos';\r\n    btnSuchePos.Left := 102;\r\n    btnSuchePos.Top := 214;\r\n    btnSuchePos.Width := 170;\r\n    btnSuchePos.Height := 25;\r\n    btnSuchePos.Caption := 'in Positionen suchen';\r\n    btnSuchePos.ChildOrder := 8;\r\n    btnSuchePos.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnSuchePos.ElementFont := efCSS;\r\n    btnSuchePos.ElementPosition := epIgnore;\r\n    btnSuchePos.HeightStyle := ssAuto;\r\n    btnSuchePos.HeightPercent := 100.000000000000000000;\r\n    btnSuchePos.WidthStyle := ssAuto;\r\n    btnSuchePos.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnSuchePos, Self, 'OnClick', 'btnSuchePosClick');\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 2;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    container4.SetParentComponent(Self);\r\n    container4.Name := 'container4';\r\n    container4.Left := 8;\r\n    container4.Top := 102;\r\n    container4.Width := 169;\r\n    container4.Height := 41;\r\n    container4.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    container4.HeightStyle := ssAuto;\r\n    container4.WidthStyle := ssAuto;\r\n    container4.ChildOrder := 2;\r\n    container4.ElementFont := efCSS;\r\n    container4.ElementPosition := epIgnore;\r\n    Container5.SetParentComponent(Self);\r\n    Container5.Name := 'Container5';\r\n    Container5.Left := 16;\r\n    Container5.Top := 110;\r\n    Container5.Width := 169;\r\n    Container5.Height := 41;\r\n    Container5.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    Container5.HeightStyle := ssAuto;\r\n    Container5.WidthStyle := ssAuto;\r\n    Container5.ChildOrder := 2;\r\n    Container5.ElementFont := efCSS;\r\n    Container5.ElementPosition := epIgnore;\r\n    xdsBelege.SetParentComponent(Self);\r\n    xdsBelege.Name := 'xdsBelege';\r\n    xdsBelege.AfterOpen := xdsBelegeAfterOpen;\r\n    xdsBelege.Connection := DM2.XDataWebConnection1;\r\n    xdsBelege.SubpropsDepth := 1;\r\n    xdsBelege.Left := 72;\r\n    xdsBelege.Top := 8;\r\n    xdsPositionen.SetParentComponent(Self);\r\n    xdsPositionen.Name := 'xdsPositionen';\r\n    xdsPositionen.AfterOpen := xdsPositionenAfterOpen;\r\n    xdsPositionen.Connection := DM2.XDataWebConnection1;\r\n    xdsPositionen.SubpropsDepth := 1;\r\n    xdsPositionen.Left := 24;\r\n    xdsPositionen.Top := 64;\r\n    sourceBelege.SetParentComponent(Self);\r\n    sourceBelege.Name := 'sourceBelege';\r\n    sourceBelege.DataSet := xdsBelege;\r\n    sourceBelege.Left := 24;\r\n    sourceBelege.Top := 8;\r\n  finally\r\n    lblKunde.AfterLoadDFMValues;\r\n    lbKunde.AfterLoadDFMValues;\r\n    ResultLabel.AfterLoadDFMValues;\r\n    TC.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    comboBelegart.AfterLoadDFMValues;\r\n    btnAnzeigen.AfterLoadDFMValues;\r\n    edtsuchbegriff.AfterLoadDFMValues;\r\n    btnSuchePos.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    container4.AfterLoadDFMValues;\r\n    Container5.AfterLoadDFMValues;\r\n    xdsBelege.AfterLoadDFMValues;\r\n    xdsPositionen.AfterLoadDFMValues;\r\n    sourceBelege.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.","unit unit_Preise;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Vcl.Controls, WEBLib.Grids, Data.DB,\r\n  XData.Web.JsonDataset, XData.Web.Dataset, Vcl.StdCtrls, WEBLib.StdCtrls, DB,\r\n  WEBLib.ExtCtrls;\r\n\r\ntype\r\n  TPreise = class(TForm)\r\n    TC: TTableControl;\r\n    xdsKundenpreise: TXDataWebDataSet;\r\n    xdsKundenpreiseArtikelnummer: TXDataWebEntityField;\r\n    xdsKundenpreiseKundennummer: TXDataWebEntityField;\r\n    xdsKundenpreiseVerkaufspreis: TFloatField;\r\n    xdsKundenpreiseNachname: TStringField;\r\n    xdsKundenpreiseRabattsatz: TFloatField;\r\n    xdsKundenpreiseVerleihpreis: TFloatField;\r\n    xdsKundenpreiseZusatzPreis: TFloatField;\r\n    xdsKundenpreiseArtikelnummerKunde: TStringField;\r\n    xdsKundenpreiseDatumGeaendert: TDateTimeField;\r\n    xdsKundenpreiseArtikelueberschrift: TStringField;\r\n    xdsKundenpreiseArtikelnummerArtikelnummer: TStringField;\r\n    xdsKundenpreiseArtikelnummerArtikelueberschrift: TStringField;\r\n    xdsKundenpreiseArtikelnummerArtikelbeschreibung: TStringField;\r\n    xdsLieferantenpreise: TXDataWebDataSet;\r\n    xdsLieferantenpreiseArtikelnummer: TXDataWebEntityField;\r\n    xdsLieferantenpreiseEinkaufspreis: TFloatField;\r\n    xdsLieferantenpreiseNachname: TStringField;\r\n    xdsLieferantenpreiseDatumGeaendert: TDateTimeField;\r\n    xdsLieferantenpreiseArtikelnummerLieferant: TStringField;\r\n    xdsLieferantenpreiseERabattsatz: TFloatField;\r\n    xdsLieferantenpreiseMindestbestellmenge: TFloatField;\r\n    xdsLieferantenpreiseKundennummer: TXDataWebEntityField;\r\n    xdsLieferantenpreiseArtikelnummerArtikelnummer: TStringField;\r\n    xdsLieferantenpreiseArtikelnummerArtikelueberschrift: TStringField;\r\n    xdsLieferantenpreiseArtikelnummerArtikelbeschreibung: TStringField;\r\n    Container1: THTMLContainer;\r\n    btnzurueck: TButton;\r\n    Container2: THTMLContainer;\r\n    TCEinkauf: TTableControl;\r\n    Container3: THTMLContainer;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure xdsKundenpreiseAfterOpen(DataSet: TDataSet);\r\n    procedure xdsLieferantenpreiseAfterOpen(DataSet: TDataSet);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    mykontaktnummer:string;\r\n    mykontaktname:string;\r\n\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  Preise: TPreise;\r\n\r\nimplementation\r\n  uses unit1, unit2;\r\n{$R *.dfm}\r\n\r\nprocedure TPreise.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  xdsKundenpreise.Close;\r\n  xdsLieferantenpreise.Close;\r\n  self.Close;\r\nend;\r\n\r\n\r\n\r\nprocedure TPreise.WebFormShow(Sender: TObject);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Preise für '+mykontaktname+' | '+mykontaktnummer +'</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  container2.ParentElement:=myelement;\r\n  container3.ParentElement:=myelement;\r\n  myelement:=container2.ElementHandle;\r\n  tc.ParentElement:=myelement;\r\n  myelement:=container3.ElementHandle;\r\n  TCEinkauf.ParentElement:=myelement;\r\n  xdsKundenpreise.Close;\r\n  xdskundenpreise.QueryString:='$expand=Artikelnummer&$filter=Kundennummer eq '+QuotedStr(mykontaktnummer);\r\n  xdsKundenpreise.Load;\r\nend;\r\n\r\nprocedure TPreise.xdsKundenpreiseAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  xdsLieferantenpreise.Close;\r\n  xdsLieferantenpreise.QueryString:='$expand=Artikelnummer&$filter=Kundennummer eq '+QuotedStr(mykontaktnummer);\r\n  xdsLieferantenpreise.Load;\r\nend;\r\n\r\nprocedure TPreise.xdsLieferantenpreiseAfterOpen(DataSet: TDataSet);\r\nvar\r\n  i:integer;\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  i:=0;\r\n  TC.ColCount:=3;\r\n  TC.Rowcount:=xdsKundenpreise.RecordCount+2;\r\n  TC.Cells[0,i]:='<h6><b>Kundenpreise';\r\n  TC.Cells[1,i]:='<h6><b>Verkaufspreis';\r\n  TC.Cells[2,i]:='<h6><b>Rabattsatz';\r\n\r\n  if xdsKundenpreise.RecordCount>0 then\r\n  begin\r\n\r\n    xdsKundenpreise.First;\r\n    while not xdskundenpreise.eof do\r\n    begin\r\n      inc(i);\r\n      TC.Cells[0,i]:=xdsKundenpreiseArtikelnummerArtikelnummer.AsString+'<br>'+xdsKundenpreiseArtikelnummerArtikelueberschrift.asstring;\r\n      TC.Cells[1,i]:=formatfloat('#,##0.00',xdsKundenpreiseVerkaufspreis.Asfloat);\r\n      TC.Cells[2,i]:=formatfloat('#,##0.00 %',xdsKundenpreiseRabattsatz.Asfloat);\r\n      xdskundenpreise.Next;\r\n    end;\r\n  end;\r\n  I:=0;\r\n  TCEinkauf.ColCount:=3;\r\n  TCEinkauf.Rowcount:=xdsLieferantenpreise.RecordCount+2;\r\n  TCEinkauf.Cells[0,i]:='<h6><b>Lieferantenpreise';\r\n  TCEinkauf.Cells[1,i]:='<h6><b>Einkaufspreis';\r\n  TCEinkauf.Cells[2,i]:='<h6><b>Rabattsatz';\r\n  if xdsLieferantenpreise.RecordCount>0 then\r\n  begin\r\n\r\n    xdsLieferantenpreise.First;\r\n    while not xdsLieferantenpreise.eof do\r\n    begin\r\n      inc(i);\r\n      TCEinkauf.Cells[0,i]:=xdsLieferantenpreiseArtikelnummerArtikelnummer.AsString+'<br>'+xdsLieferantenpreiseArtikelnummerArtikelnummer.asstring;\r\n      if xdsLieferantenpreiseArtikelnummerLieferant.AsString<>'' then\r\n      begin\r\n        TCEinkauf.Cells[0,i]:=TCEinkauf.Cells[0,i]+'<br>AN-Lieferant: '+xdsLieferantenpreiseArtikelnummerLieferant.AsString;\r\n      end;\r\n      if xdsLieferantenpreiseMindestbestellmenge.Asfloat>0 then\r\n      begin\r\n        TCEinkauf.Cells[0,i]:=TCEinkauf.Cells[0,i]+'<br>Mindestbestellmenge: '+xdsLieferantenpreiseMindestbestellmenge.AsString;\r\n      end;\r\n      TCEinkauf.Cells[1,i]:=formatfloat('#,##0.00',xdsLieferantenpreiseEinkaufspreis.Asfloat);\r\n      TCEinkauf.Cells[2,i]:=formatfloat('#,##0.00 %',xdsLieferantenpreiseERabattsatz.Asfloat);\r\n      xdsLieferantenpreise.Next;\r\n    end;\r\n  end;\r\n\r\n\r\nend;\r\n\r\nprocedure TPreise.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  TC := TTableControl.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  TCEinkauf := TTableControl.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  xdsKundenpreise := TXDataWebDataSet.Create(Self);\r\n  xdsKundenpreiseArtikelnummer := TXDataWebEntityField.Create(Self);\r\n  xdsKundenpreiseKundennummer := TXDataWebEntityField.Create(Self);\r\n  xdsKundenpreiseVerkaufspreis := TFloatField.Create(Self);\r\n  xdsKundenpreiseNachname := TStringField.Create(Self);\r\n  xdsKundenpreiseRabattsatz := TFloatField.Create(Self);\r\n  xdsKundenpreiseVerleihpreis := TFloatField.Create(Self);\r\n  xdsKundenpreiseZusatzPreis := TFloatField.Create(Self);\r\n  xdsKundenpreiseArtikelnummerKunde := TStringField.Create(Self);\r\n  xdsKundenpreiseDatumGeaendert := TDateTimeField.Create(Self);\r\n  xdsKundenpreiseArtikelueberschrift := TStringField.Create(Self);\r\n  xdsKundenpreiseArtikelnummerArtikelnummer := TStringField.Create(Self);\r\n  xdsKundenpreiseArtikelnummerArtikelueberschrift := TStringField.Create(Self);\r\n  xdsKundenpreiseArtikelnummerArtikelbeschreibung := TStringField.Create(Self);\r\n  xdsLieferantenpreise := TXDataWebDataSet.Create(Self);\r\n  xdsLieferantenpreiseArtikelnummer := TXDataWebEntityField.Create(Self);\r\n  xdsLieferantenpreiseKundennummer := TXDataWebEntityField.Create(Self);\r\n  xdsLieferantenpreiseEinkaufspreis := TFloatField.Create(Self);\r\n  xdsLieferantenpreiseNachname := TStringField.Create(Self);\r\n  xdsLieferantenpreiseDatumGeaendert := TDateTimeField.Create(Self);\r\n  xdsLieferantenpreiseArtikelnummerLieferant := TStringField.Create(Self);\r\n  xdsLieferantenpreiseERabattsatz := TFloatField.Create(Self);\r\n  xdsLieferantenpreiseMindestbestellmenge := TFloatField.Create(Self);\r\n  xdsLieferantenpreiseArtikelnummerArtikelnummer := TStringField.Create(Self);\r\n  xdsLieferantenpreiseArtikelnummerArtikelueberschrift := TStringField.Create(Self);\r\n  xdsLieferantenpreiseArtikelnummerArtikelbeschreibung := TStringField.Create(Self);\r\n\r\n  TC.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  TCEinkauf.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  xdsKundenpreise.BeforeLoadDFMValues;\r\n  xdsKundenpreiseArtikelnummer.BeforeLoadDFMValues;\r\n  xdsKundenpreiseKundennummer.BeforeLoadDFMValues;\r\n  xdsKundenpreiseVerkaufspreis.BeforeLoadDFMValues;\r\n  xdsKundenpreiseNachname.BeforeLoadDFMValues;\r\n  xdsKundenpreiseRabattsatz.BeforeLoadDFMValues;\r\n  xdsKundenpreiseVerleihpreis.BeforeLoadDFMValues;\r\n  xdsKundenpreiseZusatzPreis.BeforeLoadDFMValues;\r\n  xdsKundenpreiseArtikelnummerKunde.BeforeLoadDFMValues;\r\n  xdsKundenpreiseDatumGeaendert.BeforeLoadDFMValues;\r\n  xdsKundenpreiseArtikelueberschrift.BeforeLoadDFMValues;\r\n  xdsKundenpreiseArtikelnummerArtikelnummer.BeforeLoadDFMValues;\r\n  xdsKundenpreiseArtikelnummerArtikelueberschrift.BeforeLoadDFMValues;\r\n  xdsKundenpreiseArtikelnummerArtikelbeschreibung.BeforeLoadDFMValues;\r\n  xdsLieferantenpreise.BeforeLoadDFMValues;\r\n  xdsLieferantenpreiseArtikelnummer.BeforeLoadDFMValues;\r\n  xdsLieferantenpreiseKundennummer.BeforeLoadDFMValues;\r\n  xdsLieferantenpreiseEinkaufspreis.BeforeLoadDFMValues;\r\n  xdsLieferantenpreiseNachname.BeforeLoadDFMValues;\r\n  xdsLieferantenpreiseDatumGeaendert.BeforeLoadDFMValues;\r\n  xdsLieferantenpreiseArtikelnummerLieferant.BeforeLoadDFMValues;\r\n  xdsLieferantenpreiseERabattsatz.BeforeLoadDFMValues;\r\n  xdsLieferantenpreiseMindestbestellmenge.BeforeLoadDFMValues;\r\n  xdsLieferantenpreiseArtikelnummerArtikelnummer.BeforeLoadDFMValues;\r\n  xdsLieferantenpreiseArtikelnummerArtikelueberschrift.BeforeLoadDFMValues;\r\n  xdsLieferantenpreiseArtikelnummerArtikelbeschreibung.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'Preise';\r\n    Width := 205;\r\n    Height := 436;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.Left := 0;\r\n    TC.Top := 176;\r\n    TC.Width := 121;\r\n    TC.Height := 73;\r\n    TC.ElementClassName := 'table table-hover table-bordered table-striped';\r\n    TC.HeightStyle := ssAuto;\r\n    TC.WidthStyle := ssPercent;\r\n    TC.BorderColor := clSilver;\r\n    TC.ColHeader := False;\r\n    TC.ElementFont := efCSS;\r\n    TC.ElementHeaderClassName := 'table-info';\r\n    TC.ElementPosition := epIgnore;\r\n    TC.ElementTableClassName := 'table table-hover table-bordered table-striped';\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 2;\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ChildOrder := 4;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 0;\r\n    btnzurueck.Top := 145;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    TCEinkauf.SetParentComponent(Self);\r\n    TCEinkauf.Name := 'TCEinkauf';\r\n    TCEinkauf.Left := 0;\r\n    TCEinkauf.Top := 272;\r\n    TCEinkauf.Width := 121;\r\n    TCEinkauf.Height := 73;\r\n    TCEinkauf.ElementClassName := 'table table-hover table-bordered table-striped';\r\n    TCEinkauf.HeightStyle := ssAuto;\r\n    TCEinkauf.WidthStyle := ssPercent;\r\n    TCEinkauf.BorderColor := clSilver;\r\n    TCEinkauf.ChildOrder := 4;\r\n    TCEinkauf.ColHeader := False;\r\n    TCEinkauf.ElementFont := efCSS;\r\n    TCEinkauf.ElementHeaderClassName := 'table-info';\r\n    TCEinkauf.ElementPosition := epIgnore;\r\n    TCEinkauf.ElementTableClassName := 'table table-hover table-bordered table-striped';\r\n    TCEinkauf.WordWrap := True;\r\n    TCEinkauf.ColCount := 2;\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 1;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    xdsKundenpreise.SetParentComponent(Self);\r\n    xdsKundenpreise.Name := 'xdsKundenpreise';\r\n    xdsKundenpreise.AfterOpen := xdsKundenpreiseAfterOpen;\r\n    xdsKundenpreise.EntitySetName := 'ArtikelKundenpreise';\r\n    xdsKundenpreise.Connection := DM2.XDataWebConnection1;\r\n    xdsKundenpreise.SubpropsDepth := 1;\r\n    xdsKundenpreise.QueryString := '$expand=Artikelnummer';\r\n    xdsKundenpreise.Left := 71;\r\n    xdsKundenpreise.Top := 22;\r\n    xdsKundenpreiseArtikelnummer.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseArtikelnummer.Name := 'xdsKundenpreiseArtikelnummer';\r\n    xdsKundenpreiseArtikelnummer.FieldName := 'Artikelnummer';\r\n    xdsKundenpreiseArtikelnummer.Required := True;\r\n    xdsKundenpreiseKundennummer.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseKundennummer.Name := 'xdsKundenpreiseKundennummer';\r\n    xdsKundenpreiseKundennummer.FieldName := 'Kundennummer';\r\n    xdsKundenpreiseKundennummer.Required := True;\r\n    xdsKundenpreiseVerkaufspreis.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseVerkaufspreis.Name := 'xdsKundenpreiseVerkaufspreis';\r\n    xdsKundenpreiseVerkaufspreis.FieldName := 'Verkaufspreis';\r\n    xdsKundenpreiseNachname.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseNachname.Name := 'xdsKundenpreiseNachname';\r\n    xdsKundenpreiseNachname.FieldName := 'Nachname';\r\n    xdsKundenpreiseNachname.Size := 40;\r\n    xdsKundenpreiseRabattsatz.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseRabattsatz.Name := 'xdsKundenpreiseRabattsatz';\r\n    xdsKundenpreiseRabattsatz.FieldName := 'Rabattsatz';\r\n    xdsKundenpreiseVerleihpreis.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseVerleihpreis.Name := 'xdsKundenpreiseVerleihpreis';\r\n    xdsKundenpreiseVerleihpreis.FieldName := 'Verleihpreis';\r\n    xdsKundenpreiseZusatzPreis.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseZusatzPreis.Name := 'xdsKundenpreiseZusatzPreis';\r\n    xdsKundenpreiseZusatzPreis.FieldName := 'ZusatzPreis';\r\n    xdsKundenpreiseArtikelnummerKunde.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseArtikelnummerKunde.Name := 'xdsKundenpreiseArtikelnummerKunde';\r\n    xdsKundenpreiseArtikelnummerKunde.FieldName := 'ArtikelnummerKunde';\r\n    xdsKundenpreiseArtikelnummerKunde.Size := 25;\r\n    xdsKundenpreiseDatumGeaendert.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseDatumGeaendert.Name := 'xdsKundenpreiseDatumGeaendert';\r\n    xdsKundenpreiseDatumGeaendert.FieldName := 'DatumGeaendert';\r\n    xdsKundenpreiseArtikelueberschrift.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseArtikelueberschrift.Name := 'xdsKundenpreiseArtikelueberschrift';\r\n    xdsKundenpreiseArtikelueberschrift.FieldName := 'Artikelueberschrift';\r\n    xdsKundenpreiseArtikelueberschrift.Size := 50;\r\n    xdsKundenpreiseArtikelnummerArtikelnummer.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseArtikelnummerArtikelnummer.Name := 'xdsKundenpreiseArtikelnummerArtikelnummer';\r\n    xdsKundenpreiseArtikelnummerArtikelnummer.FieldName := 'Artikelnummer.Artikelnummer';\r\n    xdsKundenpreiseArtikelnummerArtikelnummer.Size := 25;\r\n    xdsKundenpreiseArtikelnummerArtikelueberschrift.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseArtikelnummerArtikelueberschrift.Name := 'xdsKundenpreiseArtikelnummerArtikelueberschrift';\r\n    xdsKundenpreiseArtikelnummerArtikelueberschrift.FieldName := 'Artikelnummer.Artikelueberschrift';\r\n    xdsKundenpreiseArtikelnummerArtikelueberschrift.Size := 50;\r\n    xdsKundenpreiseArtikelnummerArtikelbeschreibung.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseArtikelnummerArtikelbeschreibung.Name := 'xdsKundenpreiseArtikelnummerArtikelbeschreibung';\r\n    xdsKundenpreiseArtikelnummerArtikelbeschreibung.FieldName := 'Artikelnummer.Artikelbeschreibung';\r\n    xdsKundenpreiseArtikelnummerArtikelbeschreibung.Size := 255;\r\n    xdsLieferantenpreise.SetParentComponent(Self);\r\n    xdsLieferantenpreise.Name := 'xdsLieferantenpreise';\r\n    xdsLieferantenpreise.AfterOpen := xdsLieferantenpreiseAfterOpen;\r\n    xdsLieferantenpreise.EntitySetName := 'ArtikelLieferantenpreise';\r\n    xdsLieferantenpreise.Connection := DM2.XDataWebConnection1;\r\n    xdsLieferantenpreise.SubpropsDepth := 1;\r\n    xdsLieferantenpreise.QueryString := '$expand=Artikelnummer';\r\n    xdsLieferantenpreise.Left := 71;\r\n    xdsLieferantenpreise.Top := 134;\r\n    xdsLieferantenpreiseArtikelnummer.SetParentComponent(xdsLieferantenpreise);\r\n    xdsLieferantenpreiseArtikelnummer.Name := 'xdsLieferantenpreiseArtikelnummer';\r\n    xdsLieferantenpreiseArtikelnummer.FieldName := 'Artikelnummer';\r\n    xdsLieferantenpreiseArtikelnummer.Required := True;\r\n    xdsLieferantenpreiseKundennummer.SetParentComponent(xdsLieferantenpreise);\r\n    xdsLieferantenpreiseKundennummer.Name := 'xdsLieferantenpreiseKundennummer';\r\n    xdsLieferantenpreiseKundennummer.FieldName := 'Kundennummer';\r\n    xdsLieferantenpreiseKundennummer.Required := True;\r\n    xdsLieferantenpreiseEinkaufspreis.SetParentComponent(xdsLieferantenpreise);\r\n    xdsLieferantenpreiseEinkaufspreis.Name := 'xdsLieferantenpreiseEinkaufspreis';\r\n    xdsLieferantenpreiseEinkaufspreis.FieldName := 'Einkaufspreis';\r\n    xdsLieferantenpreiseNachname.SetParentComponent(xdsLieferantenpreise);\r\n    xdsLieferantenpreiseNachname.Name := 'xdsLieferantenpreiseNachname';\r\n    xdsLieferantenpreiseNachname.FieldName := 'Nachname';\r\n    xdsLieferantenpreiseNachname.Size := 40;\r\n    xdsLieferantenpreiseDatumGeaendert.SetParentComponent(xdsLieferantenpreise);\r\n    xdsLieferantenpreiseDatumGeaendert.Name := 'xdsLieferantenpreiseDatumGeaendert';\r\n    xdsLieferantenpreiseDatumGeaendert.FieldName := 'DatumGeaendert';\r\n    xdsLieferantenpreiseArtikelnummerLieferant.SetParentComponent(xdsLieferantenpreise);\r\n    xdsLieferantenpreiseArtikelnummerLieferant.Name := 'xdsLieferantenpreiseArtikelnummerLieferant';\r\n    xdsLieferantenpreiseArtikelnummerLieferant.FieldName := 'ArtikelnummerLieferant';\r\n    xdsLieferantenpreiseArtikelnummerLieferant.Size := 25;\r\n    xdsLieferantenpreiseERabattsatz.SetParentComponent(xdsLieferantenpreise);\r\n    xdsLieferantenpreiseERabattsatz.Name := 'xdsLieferantenpreiseERabattsatz';\r\n    xdsLieferantenpreiseERabattsatz.FieldName := 'ERabattsatz';\r\n    xdsLieferantenpreiseMindestbestellmenge.SetParentComponent(xdsLieferantenpreise);\r\n    xdsLieferantenpreiseMindestbestellmenge.Name := 'xdsLieferantenpreiseMindestbestellmenge';\r\n    xdsLieferantenpreiseMindestbestellmenge.FieldName := 'Mindestbestellmenge';\r\n    xdsLieferantenpreiseArtikelnummerArtikelnummer.SetParentComponent(xdsLieferantenpreise);\r\n    xdsLieferantenpreiseArtikelnummerArtikelnummer.Name := 'xdsLieferantenpreiseArtikelnummerArtikelnummer';\r\n    xdsLieferantenpreiseArtikelnummerArtikelnummer.FieldName := 'Artikelnummer.Artikelnummer';\r\n    xdsLieferantenpreiseArtikelnummerArtikelnummer.Size := 25;\r\n    xdsLieferantenpreiseArtikelnummerArtikelueberschrift.SetParentComponent(xdsLieferantenpreise);\r\n    xdsLieferantenpreiseArtikelnummerArtikelueberschrift.Name := 'xdsLieferantenpreiseArtikelnummerArtikelueberschrift';\r\n    xdsLieferantenpreiseArtikelnummerArtikelueberschrift.FieldName := 'Artikelnummer.Artikelueberschrift';\r\n    xdsLieferantenpreiseArtikelnummerArtikelueberschrift.Size := 50;\r\n    xdsLieferantenpreiseArtikelnummerArtikelbeschreibung.SetParentComponent(xdsLieferantenpreise);\r\n    xdsLieferantenpreiseArtikelnummerArtikelbeschreibung.Name := 'xdsLieferantenpreiseArtikelnummerArtikelbeschreibung';\r\n    xdsLieferantenpreiseArtikelnummerArtikelbeschreibung.FieldName := 'Artikelnummer.Artikelbeschreibung';\r\n    xdsLieferantenpreiseArtikelnummerArtikelbeschreibung.Size := 255;\r\n  finally\r\n    TC.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    TCEinkauf.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    xdsKundenpreise.AfterLoadDFMValues;\r\n    xdsKundenpreiseArtikelnummer.AfterLoadDFMValues;\r\n    xdsKundenpreiseKundennummer.AfterLoadDFMValues;\r\n    xdsKundenpreiseVerkaufspreis.AfterLoadDFMValues;\r\n    xdsKundenpreiseNachname.AfterLoadDFMValues;\r\n    xdsKundenpreiseRabattsatz.AfterLoadDFMValues;\r\n    xdsKundenpreiseVerleihpreis.AfterLoadDFMValues;\r\n    xdsKundenpreiseZusatzPreis.AfterLoadDFMValues;\r\n    xdsKundenpreiseArtikelnummerKunde.AfterLoadDFMValues;\r\n    xdsKundenpreiseDatumGeaendert.AfterLoadDFMValues;\r\n    xdsKundenpreiseArtikelueberschrift.AfterLoadDFMValues;\r\n    xdsKundenpreiseArtikelnummerArtikelnummer.AfterLoadDFMValues;\r\n    xdsKundenpreiseArtikelnummerArtikelueberschrift.AfterLoadDFMValues;\r\n    xdsKundenpreiseArtikelnummerArtikelbeschreibung.AfterLoadDFMValues;\r\n    xdsLieferantenpreise.AfterLoadDFMValues;\r\n    xdsLieferantenpreiseArtikelnummer.AfterLoadDFMValues;\r\n    xdsLieferantenpreiseKundennummer.AfterLoadDFMValues;\r\n    xdsLieferantenpreiseEinkaufspreis.AfterLoadDFMValues;\r\n    xdsLieferantenpreiseNachname.AfterLoadDFMValues;\r\n    xdsLieferantenpreiseDatumGeaendert.AfterLoadDFMValues;\r\n    xdsLieferantenpreiseArtikelnummerLieferant.AfterLoadDFMValues;\r\n    xdsLieferantenpreiseERabattsatz.AfterLoadDFMValues;\r\n    xdsLieferantenpreiseMindestbestellmenge.AfterLoadDFMValues;\r\n    xdsLieferantenpreiseArtikelnummerArtikelnummer.AfterLoadDFMValues;\r\n    xdsLieferantenpreiseArtikelnummerArtikelueberschrift.AfterLoadDFMValues;\r\n    xdsLieferantenpreiseArtikelnummerArtikelbeschreibung.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.","unit unit_EinzelAnsprechpartner;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, WEBLib.StdCtrls, WEBLib.Buttons, Vcl.StdCtrls,\r\n  WEBLib.DBCtrls, Vcl.Controls, WEBLib.ExtCtrls, Data.DB, WEBLib.DB,\r\n  XData.Web.JsonDataset, XData.Web.Dataset, WEBLib.Grids, strutils,\r\n  WEBLib.ComCtrls, XData.Web.Client, DB;\r\n\r\ntype\r\n  TEinzelAnsprechpartner = class(TForm)\r\n    xdsEinzelAP: TXDataWebDataSet;\r\n    TC: TTableControl;\r\n    WClient: TXDataWebClient;\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    btnzurueck: TButton;\r\n    Container3: THTMLContainer;\r\n    xdsEinzelAPKundennummerKundennummer: TStringField;\r\n    xdsEinzelAPKundennummerNachname: TStringField;\r\n    xdsEinzelAPAnsprechpartner: TStringField;\r\n    xdsEinzelAPAbteilung: TStringField;\r\n    xdsEinzelAPNachname: TStringField;\r\n    xdsEinzelAPVorname: TStringField;\r\n    xdsEinzelAPTelefonNummer: TStringField;\r\n    xdsEinzelAPTelefonDurchwahl: TStringField;\r\n    xdsEinzelAPTelefaxNummer: TStringField;\r\n    xdsEinzelAPMobilTelefon: TStringField;\r\n    xdsEinzelAPEMail: TStringField;\r\n    xdsEinzelAPInternet: TStringField;\r\n    xdsEinzelAPGeburtstag: TDateTimeField;\r\n    xdsEinzelAPBemerkung: TStringField;\r\n    xdsEinzelAPKeinNewsletter: TBooleanField;\r\n    xdsEinzelAPAdresseBild: TStringField;\r\n    xdsEinzelAPBriefanrede1: TStringField;\r\n    xdsEinzelAPTitel: TStringField;\r\n    xdsEinzelAPAPID: TStringField;\r\n    xdsEinzelAPAnrede: TStringField;\r\n    procedure xdsEinzelAPAfterOpen(DataSet: TDataSet);\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    APID:string;\r\n    BemerkungenText:string;\r\n    procedure fensteraufbauen;\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  EinzelAnsprechpartner: TEinzelAnsprechpartner;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_ListeAnsprechpartner;\r\n{$R *.dfm}\r\n\r\n\r\n\r\nprocedure TEinzelAnsprechpartner.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  xdsEinzelAP.Close;\r\n  self.Close;\r\nend;\r\n\r\n\r\n\r\nprocedure TEinzelAnsprechpartner.WebFormShow(Sender: TObject);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Einzel-Ansprechpartner</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  container2.ParentElement:=myelement;\r\n  container3.ParentElement:=myelement;\r\n  myelement:=container2.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n\r\n  myelement:=container2.ElementHandle;\r\n  tc.ParentElement:=myElement;\r\n  xdsEinzelAP.Close;\r\n  xdseinzelAP.QueryString:='$expand=Kundennummer&$filter=APID eq '+quotedstr(APID);\r\n  xdseinzelAP.Load;\r\nend;\r\n\r\nprocedure TEinzelAnsprechpartner.xdsEinzelAPAfterOpen(DataSet: TDataSet);\r\n\r\n  procedure OnResponse(Response:TXDataClientResponse);\r\n  var\r\n    mydownload:string;\r\n  begin\r\n    mydownload:=string(TJSObject(response.Result)['value']);\r\n    BemerkungenText:=ReplaceStr(mydownload,#13+#10,'<BR>');\r\n    fensteraufbauen;\r\n\r\n\r\n  end;\r\nbegin\r\n  WClient.RawInvoke('IServerService.RTFTOTEXT',[xdsEinzelAPBemerkung.AsString],@OnResponse);\r\nend;\r\n\r\nprocedure TEinzelAnsprechpartner.fensteraufbauen;\r\nvar\r\n  i:integer;\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  TC.Visible:=true;\r\n  TC.RowCount:=19;\r\n  TC.ColCount:=2;\r\n  i:=0;\r\n\r\n  TC.Cells[0,i]:='Kontakt-/Kundennummer';\r\n  TC.Cells[1,i]:='<h5>'+xdsEinzelAPKundennummerKundennummer.asstring+' '+xdsEinzelAPKundennummerNachname.asstring;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Ansprechpartner';\r\n  TC.Cells[1,i]:='<h5>'+xdsEinzelAPAnsprechpartner.asstring;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Nachname';\r\n  TC.Cells[1,i]:='<h5>'+xdsEinzelAPNachname.asstring;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Vorname';\r\n  TC.Cells[1,i]:='<h5>'+xdsEinzelAPVorname.asstring;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Anrede';\r\n  TC.Cells[1,i]:=xdsEinzelAPAnrede.Asstring;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Titel';\r\n  TC.Cells[1,i]:=xdsEinzelAPTitel.Asstring;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Abteilung';\r\n  TC.Cells[1,i]:=xdsEinzelAPAbteilung.Asstring;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Anschrift';\r\n  TC.Cells[1,i]:='<h5>'+ReplaceStr(xdsEinzelAPAdresseBild.asstring,#13+#10,'<BR>');\r\n  inc(i);\r\n  TC.Cells[0,i]:='Telefon';\r\n  TC.Cells[1,i]:='<a href=\"tel:'+xdsEinzelAPTelefonnummer.Asstring+'\">'+xdsEinzelAPTelefonnummer.Asstring+'</a>';\r\n  inc(i);\r\n  TC.Cells[0,i]:='T-Durchwahl';\r\n  TC.Cells[1,i]:='<a href=\"tel:'+xdsEinzelAPTelefonDurchwahl.Asstring+'\">'+xdsEinzelAPTelefonDurchwahl.Asstring+'</a>';\r\n  inc(i);\r\n  TC.Cells[0,i]:='Mobil';\r\n  TC.Cells[1,i]:='<a href=\"tel:'+xdsEinzelAPMobilTelefon.Asstring+'\">'+xdsEinzelAPMobilTelefon.Asstring+'</a>';\r\n  inc(i);\r\n  TC.Cells[0,i]:='Telefax';\r\n  TC.Cells[1,i]:=xdsEinzelAPTelefaxNummer.Asstring;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Email';\r\n  TC.Cells[1,i]:='<a href=\"mailto:'+xdsEinzelAPEMail.Asstring+'\">'+xdsEinzelAPEMail.AsString+'</a>';\r\n  inc(i);\r\n  TC.Cells[0,i]:='Webseite';\r\n  TC.Cells[1,i]:='<a href=\"http://'+xdsEinzelapInternet.Asstring+'\" target=\"_blank\">'+xdsEinzelAPInternet.AsString+'</a>';\r\n  inc(i);\r\n  TC.Cells[0,i]:='Briefanrede';\r\n  TC.Cells[1,i]:=xdsEinzelAPBriefanrede1.Asstring;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Geburtstag';\r\n  if xdsEinzelAPGeburtstag.AsString<>'' then TC.Cells[1,i]:=formatdatetime('DD.MM.YYYY',xdsEinzelAPGeburtstag.asdatetime);\r\n  inc(i);\r\n  TC.Cells[0,i]:='Newsletter';\r\n  if xdsEinzelAPKeinNewsletter.AsBoolean=true then TC.Cells[1,i]:='kein Newsletter' else TC.Cells[1,i]:='Ja';\r\n  inc(i);\r\n  TC.Cells[0,i]:='Bemerkung';\r\n  TC.Cells[1,i]:=BemerkungenText;\r\n\r\n  end;\r\n\r\n\r\nprocedure TEinzelAnsprechpartner.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  TC := TTableControl.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  xdsEinzelAP := TXDataWebDataSet.Create(Self);\r\n  xdsEinzelAPKundennummerKundennummer := TStringField.Create(Self);\r\n  xdsEinzelAPKundennummerNachname := TStringField.Create(Self);\r\n  xdsEinzelAPAnsprechpartner := TStringField.Create(Self);\r\n  xdsEinzelAPAbteilung := TStringField.Create(Self);\r\n  xdsEinzelAPNachname := TStringField.Create(Self);\r\n  xdsEinzelAPVorname := TStringField.Create(Self);\r\n  xdsEinzelAPTelefonNummer := TStringField.Create(Self);\r\n  xdsEinzelAPTelefonDurchwahl := TStringField.Create(Self);\r\n  xdsEinzelAPTelefaxNummer := TStringField.Create(Self);\r\n  xdsEinzelAPMobilTelefon := TStringField.Create(Self);\r\n  xdsEinzelAPEMail := TStringField.Create(Self);\r\n  xdsEinzelAPInternet := TStringField.Create(Self);\r\n  xdsEinzelAPGeburtstag := TDateTimeField.Create(Self);\r\n  xdsEinzelAPBemerkung := TStringField.Create(Self);\r\n  xdsEinzelAPKeinNewsletter := TBooleanField.Create(Self);\r\n  xdsEinzelAPAdresseBild := TStringField.Create(Self);\r\n  xdsEinzelAPBriefanrede1 := TStringField.Create(Self);\r\n  xdsEinzelAPTitel := TStringField.Create(Self);\r\n  xdsEinzelAPAPID := TStringField.Create(Self);\r\n  xdsEinzelAPAnrede := TStringField.Create(Self);\r\n  WClient := TXDataWebClient.Create(Self);\r\n\r\n  TC.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  xdsEinzelAP.BeforeLoadDFMValues;\r\n  xdsEinzelAPKundennummerKundennummer.BeforeLoadDFMValues;\r\n  xdsEinzelAPKundennummerNachname.BeforeLoadDFMValues;\r\n  xdsEinzelAPAnsprechpartner.BeforeLoadDFMValues;\r\n  xdsEinzelAPAbteilung.BeforeLoadDFMValues;\r\n  xdsEinzelAPNachname.BeforeLoadDFMValues;\r\n  xdsEinzelAPVorname.BeforeLoadDFMValues;\r\n  xdsEinzelAPTelefonNummer.BeforeLoadDFMValues;\r\n  xdsEinzelAPTelefonDurchwahl.BeforeLoadDFMValues;\r\n  xdsEinzelAPTelefaxNummer.BeforeLoadDFMValues;\r\n  xdsEinzelAPMobilTelefon.BeforeLoadDFMValues;\r\n  xdsEinzelAPEMail.BeforeLoadDFMValues;\r\n  xdsEinzelAPInternet.BeforeLoadDFMValues;\r\n  xdsEinzelAPGeburtstag.BeforeLoadDFMValues;\r\n  xdsEinzelAPBemerkung.BeforeLoadDFMValues;\r\n  xdsEinzelAPKeinNewsletter.BeforeLoadDFMValues;\r\n  xdsEinzelAPAdresseBild.BeforeLoadDFMValues;\r\n  xdsEinzelAPBriefanrede1.BeforeLoadDFMValues;\r\n  xdsEinzelAPTitel.BeforeLoadDFMValues;\r\n  xdsEinzelAPAPID.BeforeLoadDFMValues;\r\n  xdsEinzelAPAnrede.BeforeLoadDFMValues;\r\n  WClient.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'EinzelAnsprechpartner';\r\n    Width := 223;\r\n    Height := 393;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.Left := 32;\r\n    TC.Top := 251;\r\n    TC.Width := 152;\r\n    TC.Height := 110;\r\n    TC.ElementClassName := 'table table-hover table-bordered table-striped';\r\n    TC.HeightStyle := ssAuto;\r\n    TC.WidthStyle := ssPercent;\r\n    TC.BorderColor := clSilver;\r\n    TC.ColHeader := False;\r\n    TC.ElementFont := efCSS;\r\n    TC.ElementHeaderClassName := 'table-info';\r\n    TC.ElementPosition := epIgnore;\r\n    TC.ElementTableClassName := 'table table-hover table-bordered table-striped';\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 2;\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ChildOrder := 4;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 0;\r\n    btnzurueck.Top := 158;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 1;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    xdsEinzelAP.SetParentComponent(Self);\r\n    xdsEinzelAP.Name := 'xdsEinzelAP';\r\n    xdsEinzelAP.AfterOpen := xdsEinzelAPAfterOpen;\r\n    xdsEinzelAP.EntitySetName := 'Ansprechpartner';\r\n    xdsEinzelAP.Connection := DM2.XDataWebConnection1;\r\n    xdsEinzelAP.SubpropsDepth := 1;\r\n    xdsEinzelAP.QueryTop := 1;\r\n    xdsEinzelAP.Left := 20;\r\n    xdsEinzelAP.Top := 125;\r\n    xdsEinzelAPKundennummerKundennummer.SetParentComponent(xdsEinzelAP);\r\n    xdsEinzelAPKundennummerKundennummer.Name := 'xdsEinzelAPKundennummerKundennummer';\r\n    xdsEinzelAPKundennummerKundennummer.FieldName := 'Kundennummer.Kundennummer';\r\n    xdsEinzelAPKundennummerKundennummer.Size := 13;\r\n    xdsEinzelAPKundennummerNachname.SetParentComponent(xdsEinzelAP);\r\n    xdsEinzelAPKundennummerNachname.Name := 'xdsEinzelAPKundennummerNachname';\r\n    xdsEinzelAPKundennummerNachname.FieldName := 'Kundennummer.Nachname';\r\n    xdsEinzelAPKundennummerNachname.Size := 40;\r\n    xdsEinzelAPAnsprechpartner.SetParentComponent(xdsEinzelAP);\r\n    xdsEinzelAPAnsprechpartner.Name := 'xdsEinzelAPAnsprechpartner';\r\n    xdsEinzelAPAnsprechpartner.FieldName := 'Ansprechpartner';\r\n    xdsEinzelAPAnsprechpartner.Size := 50;\r\n    xdsEinzelAPAbteilung.SetParentComponent(xdsEinzelAP);\r\n    xdsEinzelAPAbteilung.Name := 'xdsEinzelAPAbteilung';\r\n    xdsEinzelAPAbteilung.FieldName := 'Abteilung';\r\n    xdsEinzelAPAbteilung.Size := 50;\r\n    xdsEinzelAPNachname.SetParentComponent(xdsEinzelAP);\r\n    xdsEinzelAPNachname.Name := 'xdsEinzelAPNachname';\r\n    xdsEinzelAPNachname.FieldName := 'Nachname';\r\n    xdsEinzelAPNachname.Size := 40;\r\n    xdsEinzelAPVorname.SetParentComponent(xdsEinzelAP);\r\n    xdsEinzelAPVorname.Name := 'xdsEinzelAPVorname';\r\n    xdsEinzelAPVorname.FieldName := 'Vorname';\r\n    xdsEinzelAPVorname.Size := 40;\r\n    xdsEinzelAPTelefonNummer.SetParentComponent(xdsEinzelAP);\r\n    xdsEinzelAPTelefonNummer.Name := 'xdsEinzelAPTelefonNummer';\r\n    xdsEinzelAPTelefonNummer.FieldName := 'TelefonNummer';\r\n    xdsEinzelAPTelefonNummer.Size := 25;\r\n    xdsEinzelAPTelefonDurchwahl.SetParentComponent(xdsEinzelAP);\r\n    xdsEinzelAPTelefonDurchwahl.Name := 'xdsEinzelAPTelefonDurchwahl';\r\n    xdsEinzelAPTelefonDurchwahl.FieldName := 'TelefonDurchwahl';\r\n    xdsEinzelAPTelefonDurchwahl.Size := 10;\r\n    xdsEinzelAPTelefaxNummer.SetParentComponent(xdsEinzelAP);\r\n    xdsEinzelAPTelefaxNummer.Name := 'xdsEinzelAPTelefaxNummer';\r\n    xdsEinzelAPTelefaxNummer.FieldName := 'TelefaxNummer';\r\n    xdsEinzelAPTelefaxNummer.Size := 25;\r\n    xdsEinzelAPMobilTelefon.SetParentComponent(xdsEinzelAP);\r\n    xdsEinzelAPMobilTelefon.Name := 'xdsEinzelAPMobilTelefon';\r\n    xdsEinzelAPMobilTelefon.FieldName := 'MobilTelefon';\r\n    xdsEinzelAPMobilTelefon.Size := 25;\r\n    xdsEinzelAPEMail.SetParentComponent(xdsEinzelAP);\r\n    xdsEinzelAPEMail.Name := 'xdsEinzelAPEMail';\r\n    xdsEinzelAPEMail.FieldName := 'EMail';\r\n    xdsEinzelAPEMail.Size := 50;\r\n    xdsEinzelAPInternet.SetParentComponent(xdsEinzelAP);\r\n    xdsEinzelAPInternet.Name := 'xdsEinzelAPInternet';\r\n    xdsEinzelAPInternet.FieldName := 'Internet';\r\n    xdsEinzelAPInternet.Size := 50;\r\n    xdsEinzelAPGeburtstag.SetParentComponent(xdsEinzelAP);\r\n    xdsEinzelAPGeburtstag.Name := 'xdsEinzelAPGeburtstag';\r\n    xdsEinzelAPGeburtstag.FieldName := 'Geburtstag';\r\n    xdsEinzelAPBemerkung.SetParentComponent(xdsEinzelAP);\r\n    xdsEinzelAPBemerkung.Name := 'xdsEinzelAPBemerkung';\r\n    xdsEinzelAPBemerkung.FieldName := 'Bemerkung';\r\n    xdsEinzelAPBemerkung.Size := 255;\r\n    xdsEinzelAPKeinNewsletter.SetParentComponent(xdsEinzelAP);\r\n    xdsEinzelAPKeinNewsletter.Name := 'xdsEinzelAPKeinNewsletter';\r\n    xdsEinzelAPKeinNewsletter.FieldName := 'KeinNewsletter';\r\n    xdsEinzelAPAdresseBild.SetParentComponent(xdsEinzelAP);\r\n    xdsEinzelAPAdresseBild.Name := 'xdsEinzelAPAdresseBild';\r\n    xdsEinzelAPAdresseBild.FieldName := 'AdresseBild';\r\n    xdsEinzelAPAdresseBild.Size := 255;\r\n    xdsEinzelAPBriefanrede1.SetParentComponent(xdsEinzelAP);\r\n    xdsEinzelAPBriefanrede1.Name := 'xdsEinzelAPBriefanrede1';\r\n    xdsEinzelAPBriefanrede1.FieldName := 'Briefanrede1';\r\n    xdsEinzelAPBriefanrede1.Size := 255;\r\n    xdsEinzelAPTitel.SetParentComponent(xdsEinzelAP);\r\n    xdsEinzelAPTitel.Name := 'xdsEinzelAPTitel';\r\n    xdsEinzelAPTitel.FieldName := 'Titel';\r\n    xdsEinzelAPAPID.SetParentComponent(xdsEinzelAP);\r\n    xdsEinzelAPAPID.Name := 'xdsEinzelAPAPID';\r\n    xdsEinzelAPAPID.FieldName := 'APID';\r\n    xdsEinzelAPAPID.Required := True;\r\n    xdsEinzelAPAPID.Size := 38;\r\n    xdsEinzelAPAnrede.SetParentComponent(xdsEinzelAP);\r\n    xdsEinzelAPAnrede.Name := 'xdsEinzelAPAnrede';\r\n    xdsEinzelAPAnrede.FieldName := 'Anrede';\r\n    xdsEinzelAPAnrede.Size := 15;\r\n    WClient.SetParentComponent(Self);\r\n    WClient.Name := 'WClient';\r\n    WClient.Connection := DM2.XDataWebConnection1;\r\n    WClient.Left := 24;\r\n    WClient.Top := 8;\r\n  finally\r\n    TC.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    xdsEinzelAP.AfterLoadDFMValues;\r\n    xdsEinzelAPKundennummerKundennummer.AfterLoadDFMValues;\r\n    xdsEinzelAPKundennummerNachname.AfterLoadDFMValues;\r\n    xdsEinzelAPAnsprechpartner.AfterLoadDFMValues;\r\n    xdsEinzelAPAbteilung.AfterLoadDFMValues;\r\n    xdsEinzelAPNachname.AfterLoadDFMValues;\r\n    xdsEinzelAPVorname.AfterLoadDFMValues;\r\n    xdsEinzelAPTelefonNummer.AfterLoadDFMValues;\r\n    xdsEinzelAPTelefonDurchwahl.AfterLoadDFMValues;\r\n    xdsEinzelAPTelefaxNummer.AfterLoadDFMValues;\r\n    xdsEinzelAPMobilTelefon.AfterLoadDFMValues;\r\n    xdsEinzelAPEMail.AfterLoadDFMValues;\r\n    xdsEinzelAPInternet.AfterLoadDFMValues;\r\n    xdsEinzelAPGeburtstag.AfterLoadDFMValues;\r\n    xdsEinzelAPBemerkung.AfterLoadDFMValues;\r\n    xdsEinzelAPKeinNewsletter.AfterLoadDFMValues;\r\n    xdsEinzelAPAdresseBild.AfterLoadDFMValues;\r\n    xdsEinzelAPBriefanrede1.AfterLoadDFMValues;\r\n    xdsEinzelAPTitel.AfterLoadDFMValues;\r\n    xdsEinzelAPAPID.AfterLoadDFMValues;\r\n    xdsEinzelAPAnrede.AfterLoadDFMValues;\r\n    WClient.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit unit_ListeAnsprechpartner;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Vcl.Controls, WEBLib.ExtCtrls, WEBLib.Buttons,\r\n  WEBLib.Grids, WEBLib.DBCtrls, Data.DB, WEBLib.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, Vcl.StdCtrls, WEBLib.StdCtrls, XData.Web.Client,\r\n  WEBLib.WebCtrls, strutils;\r\n\r\ntype\r\n  TListeAnsprechpartner = class(TForm)\r\n    xdsListe: TXDataWebDataSet;\r\n    Container3: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    Container1: THTMLContainer;\r\n    xdsListeAnsprechpartner: TStringField;\r\n    xdsListeAbteilung: TStringField;\r\n    xdsListeNachname: TStringField;\r\n    xdsListeVorname: TStringField;\r\n    xdsListeTelefonNummer: TStringField;\r\n    xdsListeTelefonDurchwahl: TStringField;\r\n    xdsListeTelefaxNummer: TStringField;\r\n    xdsListeMobilTelefon: TStringField;\r\n    xdsListeEMail: TStringField;\r\n    xdsListeInternet: TStringField;\r\n    xdsListeGeburtstag: TDateTimeField;\r\n    xdsListeBemerkung: TStringField;\r\n    xdsListeKeinNewsletter: TBooleanField;\r\n    xdsListeAdresseBild: TStringField;\r\n    xdsListeBriefanrede1: TStringField;\r\n    xdsListeTitel: TStringField;\r\n    xdsListeAPID: TStringField;\r\n    xdsListeAnrede: TStringField;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure xdsListeAfterOpen(DataSet: TDataSet);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    KundennummerID:string;\r\n    NachnameID:string;\r\n    buttonzurueck:TButton;\r\n    EinzelCard:THTMLDiv;\r\n    procedure buttonzurueckclick(Sender:TObject);\r\n    procedure EinzelCardclick(Sender:TObject);\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  ListeAnsprechpartner: TListeAnsprechpartner;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_Kontaktsuche, unit_EinzelAnsprechpartner;\r\n{$R *.dfm}\r\n\r\nprocedure TListeAnsprechpartner.buttonzurueckclick(Sender:TObject);\r\nbegin\r\n  xdsListe.Close;\r\n  self.close;\r\nend;\r\n\r\nprocedure TListeAnsprechpartner.EinzelCardclick(Sender:TObject);\r\nvar\r\n  EinzelEinzelAnsprechpartner:TEinzelAnsprechpartner;\r\n  MyMerkerAP:string;\r\nbegin\r\n  myMerkerAP:=(sender as THTMLDiv).ElementID;\r\n  Container3.HTML.text:='';\r\n  EinzelAnsprechpartner := TEinzelAnsprechpartner.CreateNew(procedure(AForm: TObject)\r\n    begin\r\n      (AForm as TEinzelAnsprechpartner).APID:=myMerkerAP;\r\n    end\r\n    );\r\n\r\n  EinzelAnsprechpartner.ShowModal(procedure(AValue: TModalResult)\r\n    begin\r\n      xdsListe.close;\r\n      xdsListe.Load;\r\n    end\r\n    );\r\nend;\r\n\r\nprocedure TListeAnsprechpartner.WebFormShow(Sender: TObject);\r\nbegin\r\n  xdsListe.QueryString:='$filter=Kundennummer eq '+quotedstr(KundennummerID)+'&$orderby=Ansprechpartner';\r\n  xdsListe.Load;\r\nend;\r\n\r\nprocedure TListeAnsprechpartner.xdsListeAfterOpen(DataSet: TDataSet);\r\nvar\r\n  myelement:TJSHTMLElement;\r\n  EinzelKarte:string;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Ansprechpartner ('+ KundennummerID+ ') '+NachnameID+'</h5></nav>';\r\n  Container2.HTML.Text:='';\r\n  myelement:=container2.ElementHandle;\r\n  buttonzurueck:=TButton.Create(self);\r\n  buttonzurueck.ElementClassName:='btn btn-info m-1 text-left';\r\n  buttonzurueck.HeightStyle:=ssauto;\r\n  buttonzurueck.WidthStyle:=ssauto;\r\n  buttonzurueck.tag:=0;\r\n  buttonzurueck.Caption:='<< zurück';\r\n  buttonzurueck.OnClick:=@buttonzurueckClick;\r\n  buttonzurueck.ParentElement:=myelement;\r\n\r\n  while not xdsListe.eof do\r\n  begin\r\n    Einzelkarte:='<div class=\"card-header\"><h5>'+xdsListeAnsprechpartner.asstring+'</h5></div>';\r\n    Einzelkarte:=Einzelkarte+'<div class=\"card-body \">'+xdsListeNachname.AsString+' ,'+xdsListeVorname.AsString;\r\n    Einzelkarte:=Einzelkarte+'<br>'+xdsListeAbteilung.Asstring+'<br>';\r\n    Einzelkarte:=Einzelkarte+'<br>'+xdsListeTelefonNummer.Asstring+'<br>';\r\n    Einzelkarte:=Einzelkarte+'<br>'+xdsListeMobilTelefon.Asstring+'<br>';\r\n    Einzelkarte:=Einzelkarte+'<br>'+xdsListeEMail.Asstring+'<br>';\r\n    Einzelkarte:=Einzelkarte+'<br>'+xdsListeInternet.Asstring+'<br>';\r\n    if xdsListeBemerkung.AsString<>'' then Einzelkarte:=Einzelkarte+'Bemerkung: '+xdsListeBemerkung.asstring+'<br>';\r\n    Einzelkarte:=Einzelkarte+'</div>';\r\n    myelement:=Container3.ElementHandle;\r\n    EinzelCard:=THTMLDiv.Create(self);\r\n    EinzelCard.ElementID:=xdsListeAPID.asstring;\r\n    EinzelCard.HeightStyle:=ssauto;\r\n    EinzelCard.Width:=350;\r\n    EinzelCard.HTML.Text:=Einzelkarte;\r\n    EinzelCard.ElementClassName:='card m-1 border-info';\r\n    EinzelCard.OnClick:=@EinzelCardClick;\r\n    EinzelCard.ParentElement:=myelement;\r\n    xdsListe.Next;\r\n  end;\r\nend;\r\n\r\nprocedure TListeAnsprechpartner.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  Container3 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  xdsListe := TXDataWebDataSet.Create(Self);\r\n  xdsListeAnsprechpartner := TStringField.Create(Self);\r\n  xdsListeAbteilung := TStringField.Create(Self);\r\n  xdsListeNachname := TStringField.Create(Self);\r\n  xdsListeVorname := TStringField.Create(Self);\r\n  xdsListeTelefonNummer := TStringField.Create(Self);\r\n  xdsListeTelefonDurchwahl := TStringField.Create(Self);\r\n  xdsListeTelefaxNummer := TStringField.Create(Self);\r\n  xdsListeMobilTelefon := TStringField.Create(Self);\r\n  xdsListeEMail := TStringField.Create(Self);\r\n  xdsListeInternet := TStringField.Create(Self);\r\n  xdsListeGeburtstag := TDateTimeField.Create(Self);\r\n  xdsListeBemerkung := TStringField.Create(Self);\r\n  xdsListeKeinNewsletter := TBooleanField.Create(Self);\r\n  xdsListeAdresseBild := TStringField.Create(Self);\r\n  xdsListeBriefanrede1 := TStringField.Create(Self);\r\n  xdsListeTitel := TStringField.Create(Self);\r\n  xdsListeAPID := TStringField.Create(Self);\r\n  xdsListeAnrede := TStringField.Create(Self);\r\n\r\n  Container3.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  xdsListe.BeforeLoadDFMValues;\r\n  xdsListeAnsprechpartner.BeforeLoadDFMValues;\r\n  xdsListeAbteilung.BeforeLoadDFMValues;\r\n  xdsListeNachname.BeforeLoadDFMValues;\r\n  xdsListeVorname.BeforeLoadDFMValues;\r\n  xdsListeTelefonNummer.BeforeLoadDFMValues;\r\n  xdsListeTelefonDurchwahl.BeforeLoadDFMValues;\r\n  xdsListeTelefaxNummer.BeforeLoadDFMValues;\r\n  xdsListeMobilTelefon.BeforeLoadDFMValues;\r\n  xdsListeEMail.BeforeLoadDFMValues;\r\n  xdsListeInternet.BeforeLoadDFMValues;\r\n  xdsListeGeburtstag.BeforeLoadDFMValues;\r\n  xdsListeBemerkung.BeforeLoadDFMValues;\r\n  xdsListeKeinNewsletter.BeforeLoadDFMValues;\r\n  xdsListeAdresseBild.BeforeLoadDFMValues;\r\n  xdsListeBriefanrede1.BeforeLoadDFMValues;\r\n  xdsListeTitel.BeforeLoadDFMValues;\r\n  xdsListeAPID.BeforeLoadDFMValues;\r\n  xdsListeAnrede.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'ListeAnsprechpartner';\r\n    Width := 180;\r\n    Height := 319;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    Font.Charset := DEFAULT_CHARSET;\r\n    Font.Color := clWindowText;\r\n    Font.Height := -11;\r\n    Font.Name := 'Tahoma';\r\n    Font.Style := [];\r\n    ParentFont := False;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.HeightPercent := 100.000000000000000000;\r\n    Container3.WidthPercent := 100.000000000000000000;\r\n    Container3.ChildOrder := 5;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.HeightPercent := 100.000000000000000000;\r\n    Container2.WidthPercent := 100.000000000000000000;\r\n    Container2.ChildOrder := 5;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.HeightPercent := 100.000000000000000000;\r\n    Container1.WidthPercent := 100.000000000000000000;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    xdsListe.SetParentComponent(Self);\r\n    xdsListe.Name := 'xdsListe';\r\n    xdsListe.AfterOpen := xdsListeAfterOpen;\r\n    xdsListe.EntitySetName := 'Ansprechpartner';\r\n    xdsListe.Connection := DM2.XDataWebConnection1;\r\n    xdsListe.SubpropsDepth := 1;\r\n    xdsListe.QueryTop := 100;\r\n    xdsListe.Left := 20;\r\n    xdsListe.Top := 142;\r\n    xdsListeAnsprechpartner.SetParentComponent(xdsListe);\r\n    xdsListeAnsprechpartner.Name := 'xdsListeAnsprechpartner';\r\n    xdsListeAnsprechpartner.FieldName := 'Ansprechpartner';\r\n    xdsListeAnsprechpartner.Size := 50;\r\n    xdsListeAbteilung.SetParentComponent(xdsListe);\r\n    xdsListeAbteilung.Name := 'xdsListeAbteilung';\r\n    xdsListeAbteilung.FieldName := 'Abteilung';\r\n    xdsListeAbteilung.Size := 50;\r\n    xdsListeNachname.SetParentComponent(xdsListe);\r\n    xdsListeNachname.Name := 'xdsListeNachname';\r\n    xdsListeNachname.FieldName := 'Nachname';\r\n    xdsListeNachname.Size := 40;\r\n    xdsListeVorname.SetParentComponent(xdsListe);\r\n    xdsListeVorname.Name := 'xdsListeVorname';\r\n    xdsListeVorname.FieldName := 'Vorname';\r\n    xdsListeVorname.Size := 40;\r\n    xdsListeTelefonNummer.SetParentComponent(xdsListe);\r\n    xdsListeTelefonNummer.Name := 'xdsListeTelefonNummer';\r\n    xdsListeTelefonNummer.FieldName := 'TelefonNummer';\r\n    xdsListeTelefonNummer.Size := 25;\r\n    xdsListeTelefonDurchwahl.SetParentComponent(xdsListe);\r\n    xdsListeTelefonDurchwahl.Name := 'xdsListeTelefonDurchwahl';\r\n    xdsListeTelefonDurchwahl.FieldName := 'TelefonDurchwahl';\r\n    xdsListeTelefonDurchwahl.Size := 10;\r\n    xdsListeTelefaxNummer.SetParentComponent(xdsListe);\r\n    xdsListeTelefaxNummer.Name := 'xdsListeTelefaxNummer';\r\n    xdsListeTelefaxNummer.FieldName := 'TelefaxNummer';\r\n    xdsListeTelefaxNummer.Size := 25;\r\n    xdsListeMobilTelefon.SetParentComponent(xdsListe);\r\n    xdsListeMobilTelefon.Name := 'xdsListeMobilTelefon';\r\n    xdsListeMobilTelefon.FieldName := 'MobilTelefon';\r\n    xdsListeMobilTelefon.Size := 25;\r\n    xdsListeEMail.SetParentComponent(xdsListe);\r\n    xdsListeEMail.Name := 'xdsListeEMail';\r\n    xdsListeEMail.FieldName := 'EMail';\r\n    xdsListeEMail.Size := 50;\r\n    xdsListeInternet.SetParentComponent(xdsListe);\r\n    xdsListeInternet.Name := 'xdsListeInternet';\r\n    xdsListeInternet.FieldName := 'Internet';\r\n    xdsListeInternet.Size := 50;\r\n    xdsListeGeburtstag.SetParentComponent(xdsListe);\r\n    xdsListeGeburtstag.Name := 'xdsListeGeburtstag';\r\n    xdsListeGeburtstag.FieldName := 'Geburtstag';\r\n    xdsListeBemerkung.SetParentComponent(xdsListe);\r\n    xdsListeBemerkung.Name := 'xdsListeBemerkung';\r\n    xdsListeBemerkung.FieldName := 'Bemerkung';\r\n    xdsListeBemerkung.Size := 255;\r\n    xdsListeKeinNewsletter.SetParentComponent(xdsListe);\r\n    xdsListeKeinNewsletter.Name := 'xdsListeKeinNewsletter';\r\n    xdsListeKeinNewsletter.FieldName := 'KeinNewsletter';\r\n    xdsListeAdresseBild.SetParentComponent(xdsListe);\r\n    xdsListeAdresseBild.Name := 'xdsListeAdresseBild';\r\n    xdsListeAdresseBild.FieldName := 'AdresseBild';\r\n    xdsListeAdresseBild.Size := 255;\r\n    xdsListeBriefanrede1.SetParentComponent(xdsListe);\r\n    xdsListeBriefanrede1.Name := 'xdsListeBriefanrede1';\r\n    xdsListeBriefanrede1.FieldName := 'Briefanrede1';\r\n    xdsListeBriefanrede1.Size := 255;\r\n    xdsListeTitel.SetParentComponent(xdsListe);\r\n    xdsListeTitel.Name := 'xdsListeTitel';\r\n    xdsListeTitel.FieldName := 'Titel';\r\n    xdsListeAPID.SetParentComponent(xdsListe);\r\n    xdsListeAPID.Name := 'xdsListeAPID';\r\n    xdsListeAPID.FieldName := 'APID';\r\n    xdsListeAPID.Required := True;\r\n    xdsListeAPID.Size := 38;\r\n    xdsListeAnrede.SetParentComponent(xdsListe);\r\n    xdsListeAnrede.Name := 'xdsListeAnrede';\r\n    xdsListeAnrede.FieldName := 'Anrede';\r\n    xdsListeAnrede.Size := 15;\r\n  finally\r\n    Container3.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    xdsListe.AfterLoadDFMValues;\r\n    xdsListeAnsprechpartner.AfterLoadDFMValues;\r\n    xdsListeAbteilung.AfterLoadDFMValues;\r\n    xdsListeNachname.AfterLoadDFMValues;\r\n    xdsListeVorname.AfterLoadDFMValues;\r\n    xdsListeTelefonNummer.AfterLoadDFMValues;\r\n    xdsListeTelefonDurchwahl.AfterLoadDFMValues;\r\n    xdsListeTelefaxNummer.AfterLoadDFMValues;\r\n    xdsListeMobilTelefon.AfterLoadDFMValues;\r\n    xdsListeEMail.AfterLoadDFMValues;\r\n    xdsListeInternet.AfterLoadDFMValues;\r\n    xdsListeGeburtstag.AfterLoadDFMValues;\r\n    xdsListeBemerkung.AfterLoadDFMValues;\r\n    xdsListeKeinNewsletter.AfterLoadDFMValues;\r\n    xdsListeAdresseBild.AfterLoadDFMValues;\r\n    xdsListeBriefanrede1.AfterLoadDFMValues;\r\n    xdsListeTitel.AfterLoadDFMValues;\r\n    xdsListeAPID.AfterLoadDFMValues;\r\n    xdsListeAnrede.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.","unit unit_GetPhoto;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, WEBLib.Devices, Vcl.StdCtrls, WEBLib.StdCtrls,\r\n  Vcl.Controls, WEBLib.ExtCtrls, Data.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, WEBLib.WebCtrls, strutils;\r\n\r\ntype\r\n  TGetPhoto = class(TForm)\r\n    WebCamera1: TCamera;\r\n    Container2: THTMLContainer;\r\n    Container1: THTMLContainer;\r\n    btnCameraAus: TButton;\r\n    btnCameraStart: TButton;\r\n    Container3: THTMLContainer;\r\n    MyImage: TImageControl;\r\n    dsDateien: TXDataWebDataSet;\r\n    edtBetreff: TEdit;\r\n    WebFilePicker1: TFilePicker;\r\n    btnzurueck: TButton;\r\n    dsDateienID: TIntegerField;\r\n    dsDateienDatumUhrzeit: TDateTimeField;\r\n    dsDateienDateiMime: TStringField;\r\n    dsDateienDateiName: TStringField;\r\n    dsDateienDateiGroesse: TIntegerField;\r\n    dsDateienDateiInhaltText: TStringField;\r\n    dsDateienDateiInhaltThumb: TStringField;\r\n    dsDateienProtokoll: TStringField;\r\n    dsDateienDateiBetreff: TStringField;\r\n    dsDateienKundennummer: TStringField;\r\n    dsDateienNummerkomplett: TStringField;\r\n    dsDateienObjektReferenz: TStringField;\r\n    dsDateienFahrzeugID: TIntegerField;\r\n    lblBetreff: TLabel;\r\n    btnSpeichern: TButton;\r\n    lblCamera: TLabel;\r\n    Container4: THTMLContainer;\r\n    procedure WebCamera1CameraDevicesInitialized(Sender: TObject);\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure btnCameraAusClick(Sender: TObject);\r\n    procedure btnCameraStartClick(Sender: TObject);\r\n    procedure WebCamera1Click(Sender: TObject);\r\n    procedure dsDateienAfterOpen(DataSet: TDataSet);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n    procedure WebFormCloseQuery(Sender: TObject; var CanClose: Boolean);\r\n    procedure WebFilePicker1Change(Sender: TObject);\r\n    procedure WebFilePicker1GetFileAsBase64(Sender: TObject;\r\n      AFileIndex: Integer; ABase64: string);\r\n    procedure btnSpeichernClick(Sender: TObject);\r\n    procedure dsDateienAfterPost(DataSet: TDataSet);\r\n    procedure dsDateienAfterApplyUpdates(Sender: TDataSet;\r\n      Info: TResolveResults);\r\n    procedure WebFormClose(Sender: TObject; var Action: TCloseAction);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    PhotoMerkerArt:string;\r\n    PhotoMerkerNummerkomplett:string;\r\n    PhotoMerkerObjektreferenz:string;\r\n    PhotoMerkerFahrzeugID:string;\r\n    PhotoMerkerKundennummer:string;\r\n    PhotoMerkerName:string;\r\n    PhotoHeadlineText:string;\r\n    PhotoEinzelDateiID:string;\r\n    PhotoFunktion:string;\r\n    PhotoPNG:string;\r\n    file1base64str1:string;\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  GetPhoto: TGetPhoto;\r\n\r\nimplementation\r\n  uses unit1,unit2;\r\n{$R *.dfm}\r\n\r\n\r\nprocedure TGetPhoto.btnSpeichernClick(Sender: TObject);\r\nvar\r\n  myfileextension:string;\r\n  myfilewithoutext:string;\r\nbegin\r\n  if edtBetreff.Text='' then\r\n  begin\r\n    showmessage('Bitte Betreff eintragen');\r\n    exit;\r\n  end;\r\n  if file1base64str1='' then\r\n  begin\r\n    showmessage('Es gibt nichts zu speichern');\r\n    exit;\r\n  end;\r\n\r\n  dsDateien.Append;\r\n  dsDateienDatumUhrzeit.AsDateTime:=date+time;\r\n  dsDateienDateiBetreff.AsString:=edtBetreff.Text;\r\n  if PhotoFunktion='Foto' then\r\n  begin\r\n    dsDateienDateiMime.AsString:='image/png';\r\n    dsDateienDateiGroesse.AsInteger:=length(file1base64str1);\r\n    dsDateienDateiName.AsString:=form1.stripsonderzeichen(leftstr(edtbetreff.Text,50))+'.png';\r\n  end\r\n  else\r\n  begin\r\n    dsDateienDateiMime.AsString:=WebFilePicker1.Files.Items[0].MimeType;\r\n    dsDateienDateiGroesse.AsInteger:=WebFilePicker1.Files.Items[0].Size;\r\n    myfilewithoutext:=WebFilePicker1.Files.Items[0].Name;\r\n    myfileextension:=ExtractFileExt(WebFilePicker1.Files.Items[0].Name);\r\n    myfilewithoutext:=replacestr(myfilewithoutext,myfileextension,'');\r\n    myfilewithoutext:=form1.StripSonderzeichen(myfilewithoutext);\r\n    dsDateienDateiName.AsString:=myfilewithoutext+myfileextension;\r\n  end;\r\n  dsDateienDateiInhaltText.AsString:=file1base64str1;\r\n  dsDateienKundennummer.AsString:=PhotoMerkerKundennummer;\r\n  dsDateienNummerkomplett.AsString:=PhotoMerkerNummerkomplett;\r\n  dsDateienObjektReferenz.AsString:=PhotoMerkerObjektreferenz;\r\n  dsDateienFahrzeugID.AsString:=PhotoMerkerFahrzeugID;\r\n  dsdateien.Post;\r\nend;\r\n\r\nprocedure TGetPhoto.btnCameraStartClick(Sender: TObject);\r\nbegin\r\n  if WebCamera1.CameraDevices.Count<1 then\r\n  begin\r\n    lblCamera.Caption:='Keine Camera vorhanden';\r\n    btnSpeichern.Enabled:=false;\r\n    exit;\r\n  end\r\n  else\r\n  begin\r\n    lblCamera.Caption:='';\r\n  end;\r\n  WebCamera1.Visible:=true;\r\n  WebCamera1.Start;\r\n\r\nend;\r\n\r\nprocedure TGetPhoto.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  self.Close;\r\nend;\r\n\r\nprocedure TGetPhoto.dsDateienAfterApplyUpdates(Sender: TDataSet;\r\n  Info: TResolveResults);\r\n  var\r\n  i:integer;\r\nbegin\r\n  for i := 0 to High(info.Records) do\r\n  begin\r\n    if info.Records[i].Error<>'' then showmessage(info.Records[i].Error);\r\n  end;\r\n  if info.Records[0].Error='' then\r\n  begin\r\n    close;\r\n  end;\r\nend;\r\n\r\nprocedure TGetPhoto.dsDateienAfterOpen(DataSet: TDataSet);\r\nvar\r\n  myelement:TJSHTMLElement;\r\n  myheadline:string;\r\nbegin\r\n  if PhotoFunktion='Foto' then myheadline:='Foto hinzufügen' else myheadline:='Datei hinzufügen';\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>'+myheadline+'</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  btnzurueck.parentelement:=myelement;\r\n  btnspeichern.parentelement:=myelement;\r\n  btncameraStart.ParentElement:=myelement;\r\n  btncameraAus.ParentElement:=myelement;\r\n  myimage.ParentElement:=myelement;\r\n  myelement:=container2.ElementHandle;\r\n  Container2.HTML.Text:='';\r\n  WebFilePicker1.ParentElement:=myelement;\r\n  lblBetreff.parentelement:=myelement;\r\n  edtbetreff.ParentElement:=myelement;\r\n\r\n  Container3.html.text:='';\r\n  myelement:=container3.elementhandle;\r\n  lblcamera.parentelement:=myelement;\r\n\r\n  Container4.html.text:='';\r\n  myelement:=container4.elementhandle;\r\n  webcamera1.ParentElement:=myelement;\r\n\r\n\r\n  if PhotoFunktion='Foto' then\r\n  begin\r\n    WebFilePicker1.visible:=false;\r\n    btnCameraStart.visible:=true;\r\n    btnCameraAus.visible:=true;\r\n    lblcamera.visible:=true;\r\n    btncamerastartClick(nil);\r\n  end\r\n  else\r\n  begin\r\n    WebFilePicker1.visible:=true;\r\n    webcamera1.visible:=false;\r\n    btnCameraStart.visible:=false;\r\n    btnCameraAus.visible:=false;\r\n    lblcamera.visible:=false;\r\n  end;\r\nend;\r\n\r\nprocedure TGetPhoto.dsDateienAfterPost(DataSet: TDataSet);\r\nbegin\r\n  dsdateien.applyupdates;\r\nend;\r\n\r\nprocedure TGetPhoto.btnCameraAusClick(Sender: TObject);\r\nbegin\r\n  webcamera1.Stop;\r\n  webcamera1.Visible:=false;\r\n  btnCamerastart.enabled:=true;\r\n  btnCameraAus.Enabled:=false;\r\nend;\r\n\r\nprocedure TGetPhoto.WebCamera1CameraDevicesInitialized(Sender: TObject);\r\nbegin\r\n  btnCamerastart.enabled:=false;\r\n  btnCameraAus.Enabled:=true;\r\n  btnSpeichern.Enabled:=true;\r\nend;\r\n\r\nprocedure TGetPhoto.WebCamera1Click(Sender: TObject);\r\nbegin\r\n  file1base64str1:=WebCamera1.SnapShotAsBase64;\r\n  MyImage.URL := WebCamera1.SnapShotAsBase64;\r\n  btnCameraAusClick(sender);\r\n  edtbetreff.SetFocus;\r\nend;\r\n\r\nprocedure TGetPhoto.WebFilePicker1Change(Sender: TObject);\r\nbegin\r\n  file1base64str1:='';\r\n  if WebFilePicker1.Files.Count>0 then\r\n  begin\r\n    if WebFilePicker1.Files.Items[0].Size<2097153 then\r\n    begin\r\n      webfilepicker1.Files.Items[0].GetFileAsBase64;\r\n    end\r\n    else\r\n    begin\r\n      showmessage('Datei ist zu groß, bitte andere Datei wählen');\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TGetPhoto.WebFilePicker1GetFileAsBase64(Sender: TObject;\r\n  AFileIndex: Integer; ABase64: string);\r\nbegin\r\n  file1base64str1:= 'data:' + WebFilePicker1.Files.Items[0].MimeType + ';base64,' + ABase64;\r\n  if Webfilepicker1.Files.Items[0].MimeType='image/png' then myimage.URL := file1base64str1;\r\n  if Webfilepicker1.Files.Items[0].MimeType='image/jpeg' then myimage.URL := file1base64str1;\r\n  if Webfilepicker1.Files.Items[0].MimeType='image/bmp' then myimage.URL := file1base64str1;\r\nend;\r\n\r\nprocedure TGetPhoto.WebFormClose(Sender: TObject; var Action: TCloseAction);\r\nbegin\r\n  action:=cafree;\r\nend;\r\n\r\nprocedure TGetPhoto.WebFormCloseQuery(Sender: TObject; var CanClose: Boolean);\r\nbegin\r\n  dsDateien.Close;\r\nend;\r\n\r\nprocedure TGetPhoto.WebFormShow(Sender: TObject);\r\nbegin\r\n  dsdateien.Load;\r\nend;\r\nprocedure TGetPhoto.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  MyImage := TImageControl.Create(Self);\r\n  lblBetreff := TLabel.Create(Self);\r\n  lblCamera := TLabel.Create(Self);\r\n  WebCamera1 := TCamera.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  btnCameraAus := TButton.Create(Self);\r\n  btnCameraStart := TButton.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  edtBetreff := TEdit.Create(Self);\r\n  WebFilePicker1 := TFilePicker.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  btnSpeichern := TButton.Create(Self);\r\n  Container4 := THTMLContainer.Create(Self);\r\n  dsDateien := TXDataWebDataSet.Create(Self);\r\n  dsDateienID := TIntegerField.Create(Self);\r\n  dsDateienDatumUhrzeit := TDateTimeField.Create(Self);\r\n  dsDateienDateiMime := TStringField.Create(Self);\r\n  dsDateienDateiName := TStringField.Create(Self);\r\n  dsDateienDateiGroesse := TIntegerField.Create(Self);\r\n  dsDateienDateiInhaltText := TStringField.Create(Self);\r\n  dsDateienDateiInhaltThumb := TStringField.Create(Self);\r\n  dsDateienProtokoll := TStringField.Create(Self);\r\n  dsDateienDateiBetreff := TStringField.Create(Self);\r\n  dsDateienKundennummer := TStringField.Create(Self);\r\n  dsDateienNummerkomplett := TStringField.Create(Self);\r\n  dsDateienObjektReferenz := TStringField.Create(Self);\r\n  dsDateienFahrzeugID := TIntegerField.Create(Self);\r\n\r\n  MyImage.BeforeLoadDFMValues;\r\n  lblBetreff.BeforeLoadDFMValues;\r\n  lblCamera.BeforeLoadDFMValues;\r\n  WebCamera1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  btnCameraAus.BeforeLoadDFMValues;\r\n  btnCameraStart.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  edtBetreff.BeforeLoadDFMValues;\r\n  WebFilePicker1.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  btnSpeichern.BeforeLoadDFMValues;\r\n  Container4.BeforeLoadDFMValues;\r\n  dsDateien.BeforeLoadDFMValues;\r\n  dsDateienID.BeforeLoadDFMValues;\r\n  dsDateienDatumUhrzeit.BeforeLoadDFMValues;\r\n  dsDateienDateiMime.BeforeLoadDFMValues;\r\n  dsDateienDateiName.BeforeLoadDFMValues;\r\n  dsDateienDateiGroesse.BeforeLoadDFMValues;\r\n  dsDateienDateiInhaltText.BeforeLoadDFMValues;\r\n  dsDateienDateiInhaltThumb.BeforeLoadDFMValues;\r\n  dsDateienProtokoll.BeforeLoadDFMValues;\r\n  dsDateienDateiBetreff.BeforeLoadDFMValues;\r\n  dsDateienKundennummer.BeforeLoadDFMValues;\r\n  dsDateienNummerkomplett.BeforeLoadDFMValues;\r\n  dsDateienObjektReferenz.BeforeLoadDFMValues;\r\n  dsDateienFahrzeugID.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'GetPhoto';\r\n    Top := 1;\r\n    Width := 175;\r\n    Height := 614;\r\n    Caption := 'GetPhoto';\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    Font.Charset := DEFAULT_CHARSET;\r\n    Font.Color := clWindowText;\r\n    Font.Height := -11;\r\n    Font.Name := 'Arial';\r\n    Font.Style := [];\r\n    ParentFont := False;\r\n    SetEvent(Self, 'OnClose', 'WebFormClose');\r\n    SetEvent(Self, 'OnCloseQuery', 'WebFormCloseQuery');\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    MyImage.SetParentComponent(Self);\r\n    MyImage.Name := 'MyImage';\r\n    MyImage.Left := 8;\r\n    MyImage.Top := 360;\r\n    MyImage.Width := 145;\r\n    MyImage.Height := 94;\r\n    MyImage.WidthStyle := ssAuto;\r\n    MyImage.HeightPercent := 100.000000000000000000;\r\n    MyImage.WidthPercent := 100.000000000000000000;\r\n    MyImage.ChildOrder := 8;\r\n    MyImage.ElementFont := efCSS;\r\n    lblBetreff.SetParentComponent(Self);\r\n    lblBetreff.Name := 'lblBetreff';\r\n    lblBetreff.Left := 20;\r\n    lblBetreff.Top := 472;\r\n    lblBetreff.Width := 147;\r\n    lblBetreff.Height := 14;\r\n    lblBetreff.Caption := 'Bitte geben Sie den Betreff ein';\r\n    lblBetreff.ChildOrder := 5;\r\n    lblBetreff.ElementClassName := 'h6 m-2';\r\n    lblBetreff.ElementFont := efCSS;\r\n    lblBetreff.ElementPosition := epIgnore;\r\n    lblBetreff.HeightStyle := ssAuto;\r\n    lblBetreff.HeightPercent := 100.000000000000000000;\r\n    lblBetreff.WidthStyle := ssPercent;\r\n    lblBetreff.WidthPercent := 80.000000000000000000;\r\n    lblCamera.SetParentComponent(Self);\r\n    lblCamera.Name := 'lblCamera';\r\n    lblCamera.Left := 24;\r\n    lblCamera.Top := 456;\r\n    lblCamera.Width := 47;\r\n    lblCamera.Height := 14;\r\n    lblCamera.Caption := 'lblCamera';\r\n    lblCamera.ElementClassName := 'h5 m-2';\r\n    lblCamera.ElementFont := efCSS;\r\n    lblCamera.ElementPosition := epIgnore;\r\n    lblCamera.HeightStyle := ssAuto;\r\n    lblCamera.HeightPercent := 100.000000000000000000;\r\n    lblCamera.WidthStyle := ssAuto;\r\n    lblCamera.WidthPercent := 100.000000000000000000;\r\n    WebCamera1.SetParentComponent(Self);\r\n    WebCamera1.Name := 'WebCamera1';\r\n    WebCamera1.AlignWithMargins := True;\r\n    WebCamera1.Left := 0;\r\n    WebCamera1.Top := 222;\r\n    WebCamera1.Width := 169;\r\n    WebCamera1.Height := 118;\r\n    WebCamera1.HeightStyle := ssAuto;\r\n    WebCamera1.WidthStyle := ssPercent;\r\n    WebCamera1.WidthPercent := 95.000000000000000000;\r\n    WebCamera1.BaseFormat := cbfPNG;\r\n    WebCamera1.CameraType := ctRear;\r\n    SetEvent(WebCamera1, Self, 'OnCameraDevicesInitialized', 'WebCamera1CameraDevicesInitialized');\r\n    SetEvent(WebCamera1, Self, 'OnClick', 'WebCamera1Click');\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-column m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    btnCameraAus.SetParentComponent(Self);\r\n    btnCameraAus.Name := 'btnCameraAus';\r\n    btnCameraAus.Left := 0;\r\n    btnCameraAus.Top := 160;\r\n    btnCameraAus.Width := 96;\r\n    btnCameraAus.Height := 25;\r\n    btnCameraAus.Caption := 'CAM aus';\r\n    btnCameraAus.ChildOrder := 3;\r\n    btnCameraAus.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnCameraAus.ElementFont := efCSS;\r\n    btnCameraAus.ElementPosition := epIgnore;\r\n    btnCameraAus.HeightStyle := ssAuto;\r\n    btnCameraAus.HeightPercent := 100.000000000000000000;\r\n    btnCameraAus.WidthStyle := ssAuto;\r\n    btnCameraAus.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnCameraAus, Self, 'OnClick', 'btnCameraAusClick');\r\n    btnCameraStart.SetParentComponent(Self);\r\n    btnCameraStart.Name := 'btnCameraStart';\r\n    btnCameraStart.Left := 0;\r\n    btnCameraStart.Top := 191;\r\n    btnCameraStart.Width := 96;\r\n    btnCameraStart.Height := 25;\r\n    btnCameraStart.Caption := 'CAM an';\r\n    btnCameraStart.ChildOrder := 3;\r\n    btnCameraStart.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnCameraStart.ElementFont := efCSS;\r\n    btnCameraStart.ElementPosition := epIgnore;\r\n    btnCameraStart.HeightStyle := ssAuto;\r\n    btnCameraStart.HeightPercent := 100.000000000000000000;\r\n    btnCameraStart.WidthStyle := ssAuto;\r\n    btnCameraStart.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnCameraStart, Self, 'OnClick', 'btnCameraStartClick');\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 3;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    edtBetreff.SetParentComponent(Self);\r\n    edtBetreff.Name := 'edtBetreff';\r\n    edtBetreff.Left := 16;\r\n    edtBetreff.Top := 536;\r\n    edtBetreff.Width := 121;\r\n    edtBetreff.Height := 22;\r\n    edtBetreff.ChildOrder := 6;\r\n    edtBetreff.ElementClassName := 'form-control m-1';\r\n    edtBetreff.ElementFont := efCSS;\r\n    edtBetreff.ElementPosition := epIgnore;\r\n    edtBetreff.HeightStyle := ssAuto;\r\n    edtBetreff.HeightPercent := 100.000000000000000000;\r\n    edtBetreff.TextHint := 'Geben Sie hier einen Betreff f'#252'r die Datei/das Foto ein';\r\n    edtBetreff.WidthStyle := ssPercent;\r\n    edtBetreff.WidthPercent := 80.000000000000000000;\r\n    WebFilePicker1.SetParentComponent(Self);\r\n    WebFilePicker1.Name := 'WebFilePicker1';\r\n    WebFilePicker1.Left := 8;\r\n    WebFilePicker1.Top := 564;\r\n    WebFilePicker1.Width := 121;\r\n    WebFilePicker1.Height := 19;\r\n    WebFilePicker1.ElementClassName := 'form-control m-1';\r\n    WebFilePicker1.HeightStyle := ssAuto;\r\n    WebFilePicker1.WidthStyle := ssPercent;\r\n    WebFilePicker1.WidthPercent := 80.000000000000000000;\r\n    WebFilePicker1.Accept := '.jpg,.jpeg,.png,.txt,.pdf,.zip';\r\n    WebFilePicker1.ChildOrder := 7;\r\n    WebFilePicker1.ElementFont := efCSS;\r\n    WebFilePicker1.ElementPosition := epIgnore;\r\n    SetEvent(WebFilePicker1, Self, 'OnChange', 'WebFilePicker1Change');\r\n    SetEvent(WebFilePicker1, Self, 'OnGetFileAsBase64', 'WebFilePicker1GetFileAsBase64');\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 8;\r\n    btnzurueck.Top := 141;\r\n    btnzurueck.Width := 110;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    btnSpeichern.SetParentComponent(Self);\r\n    btnSpeichern.Name := 'btnSpeichern';\r\n    btnSpeichern.Left := 27;\r\n    btnSpeichern.Top := 581;\r\n    btnSpeichern.Width := 110;\r\n    btnSpeichern.Height := 25;\r\n    btnSpeichern.Caption := 'speichern';\r\n    btnSpeichern.ChildOrder := 4;\r\n    btnSpeichern.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnSpeichern.ElementFont := efCSS;\r\n    btnSpeichern.ElementPosition := epIgnore;\r\n    btnSpeichern.HeightStyle := ssAuto;\r\n    btnSpeichern.HeightPercent := 100.000000000000000000;\r\n    btnSpeichern.WidthStyle := ssAuto;\r\n    btnSpeichern.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnSpeichern, Self, 'OnClick', 'btnSpeichernClick');\r\n    Container4.SetParentComponent(Self);\r\n    Container4.Name := 'Container4';\r\n    Container4.Left := -2;\r\n    Container4.Top := 141;\r\n    Container4.Width := 169;\r\n    Container4.Height := 41;\r\n    Container4.ElementClassName := 'd-flex m-1';\r\n    Container4.HeightStyle := ssAuto;\r\n    Container4.WidthStyle := ssAuto;\r\n    Container4.ChildOrder := 4;\r\n    Container4.ElementFont := efCSS;\r\n    Container4.ElementPosition := epIgnore;\r\n    dsDateien.SetParentComponent(Self);\r\n    dsDateien.Name := 'dsDateien';\r\n    dsDateien.AfterApplyUpdates := dsDateienAfterApplyUpdates;\r\n    dsDateien.AfterOpen := dsDateienAfterOpen;\r\n    dsDateien.AfterPost := dsDateienAfterPost;\r\n    dsDateien.EntitySetName := 'DokumenteDateien';\r\n    dsDateien.Connection := DM2.XDataWebConnection1;\r\n    dsDateien.QueryTop := 1;\r\n    dsDateien.Left := 60;\r\n    dsDateien.Top := 480;\r\n    dsDateienID.SetParentComponent(dsDateien);\r\n    dsDateienID.Name := 'dsDateienID';\r\n    dsDateienID.FieldName := 'ID';\r\n    dsDateienDatumUhrzeit.SetParentComponent(dsDateien);\r\n    dsDateienDatumUhrzeit.Name := 'dsDateienDatumUhrzeit';\r\n    dsDateienDatumUhrzeit.FieldName := 'DatumUhrzeit';\r\n    dsDateienDatumUhrzeit.Required := True;\r\n    dsDateienDateiMime.SetParentComponent(dsDateien);\r\n    dsDateienDateiMime.Name := 'dsDateienDateiMime';\r\n    dsDateienDateiMime.FieldName := 'DateiMime';\r\n    dsDateienDateiMime.Size := 50;\r\n    dsDateienDateiName.SetParentComponent(dsDateien);\r\n    dsDateienDateiName.Name := 'dsDateienDateiName';\r\n    dsDateienDateiName.FieldName := 'DateiName';\r\n    dsDateienDateiName.Size := 255;\r\n    dsDateienDateiGroesse.SetParentComponent(dsDateien);\r\n    dsDateienDateiGroesse.Name := 'dsDateienDateiGroesse';\r\n    dsDateienDateiGroesse.FieldName := 'DateiGroesse';\r\n    dsDateienDateiInhaltText.SetParentComponent(dsDateien);\r\n    dsDateienDateiInhaltText.Name := 'dsDateienDateiInhaltText';\r\n    dsDateienDateiInhaltText.FieldName := 'DateiInhaltText';\r\n    dsDateienDateiInhaltText.Size := 255;\r\n    dsDateienDateiInhaltThumb.SetParentComponent(dsDateien);\r\n    dsDateienDateiInhaltThumb.Name := 'dsDateienDateiInhaltThumb';\r\n    dsDateienDateiInhaltThumb.FieldName := 'DateiInhaltThumb';\r\n    dsDateienDateiInhaltThumb.Size := 255;\r\n    dsDateienProtokoll.SetParentComponent(dsDateien);\r\n    dsDateienProtokoll.Name := 'dsDateienProtokoll';\r\n    dsDateienProtokoll.FieldName := 'Protokoll';\r\n    dsDateienProtokoll.Size := 255;\r\n    dsDateienDateiBetreff.SetParentComponent(dsDateien);\r\n    dsDateienDateiBetreff.Name := 'dsDateienDateiBetreff';\r\n    dsDateienDateiBetreff.FieldName := 'DateiBetreff';\r\n    dsDateienDateiBetreff.Size := 50;\r\n    dsDateienKundennummer.SetParentComponent(dsDateien);\r\n    dsDateienKundennummer.Name := 'dsDateienKundennummer';\r\n    dsDateienKundennummer.FieldName := 'Kundennummer';\r\n    dsDateienKundennummer.Size := 13;\r\n    dsDateienNummerkomplett.SetParentComponent(dsDateien);\r\n    dsDateienNummerkomplett.Name := 'dsDateienNummerkomplett';\r\n    dsDateienNummerkomplett.FieldName := 'Nummerkomplett';\r\n    dsDateienNummerkomplett.Size := 10;\r\n    dsDateienObjektReferenz.SetParentComponent(dsDateien);\r\n    dsDateienObjektReferenz.Name := 'dsDateienObjektReferenz';\r\n    dsDateienObjektReferenz.FieldName := 'ObjektReferenz';\r\n    dsDateienObjektReferenz.Size := 13;\r\n    dsDateienFahrzeugID.SetParentComponent(dsDateien);\r\n    dsDateienFahrzeugID.Name := 'dsDateienFahrzeugID';\r\n    dsDateienFahrzeugID.FieldName := 'FahrzeugID';\r\n  finally\r\n    MyImage.AfterLoadDFMValues;\r\n    lblBetreff.AfterLoadDFMValues;\r\n    lblCamera.AfterLoadDFMValues;\r\n    WebCamera1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    btnCameraAus.AfterLoadDFMValues;\r\n    btnCameraStart.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    edtBetreff.AfterLoadDFMValues;\r\n    WebFilePicker1.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    btnSpeichern.AfterLoadDFMValues;\r\n    Container4.AfterLoadDFMValues;\r\n    dsDateien.AfterLoadDFMValues;\r\n    dsDateienID.AfterLoadDFMValues;\r\n    dsDateienDatumUhrzeit.AfterLoadDFMValues;\r\n    dsDateienDateiMime.AfterLoadDFMValues;\r\n    dsDateienDateiName.AfterLoadDFMValues;\r\n    dsDateienDateiGroesse.AfterLoadDFMValues;\r\n    dsDateienDateiInhaltText.AfterLoadDFMValues;\r\n    dsDateienDateiInhaltThumb.AfterLoadDFMValues;\r\n    dsDateienProtokoll.AfterLoadDFMValues;\r\n    dsDateienDateiBetreff.AfterLoadDFMValues;\r\n    dsDateienKundennummer.AfterLoadDFMValues;\r\n    dsDateienNummerkomplett.AfterLoadDFMValues;\r\n    dsDateienObjektReferenz.AfterLoadDFMValues;\r\n    dsDateienFahrzeugID.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit unit_EinzelDatei;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Vcl.Controls, WEBLib.ExtCtrls, Vcl.StdCtrls,\r\n  WEBLib.StdCtrls, Data.DB, XData.Web.JsonDataset, XData.Web.Dataset, DB,\r\n  WEBLib.Grids, XData.Web.Client, strutils, WEBLib.DBCtrls, VCL.TMSFNCTypes,\r\n  VCL.TMSFNCUtils, VCL.TMSFNCGraphics, VCL.TMSFNCGraphicsTypes,\r\n  VCL.TMSFNCCustomControl;\r\n\r\ntype\r\n  TEinzelDatei = class(TForm)\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    Container3: THTMLContainer;\r\n    btnzurueck: TButton;\r\n    TC: TTableControl;\r\n    dsEinzelDatei: TXDataWebDataSet;\r\n    dsEinzelDateiID: TIntegerField;\r\n    dsEinzelDateiDatumUhrzeit: TDateTimeField;\r\n    dsEinzelDateiDateiMime: TStringField;\r\n    dsEinzelDateiDateiName: TStringField;\r\n    dsEinzelDateiDateiGroesse: TIntegerField;\r\n    dsEinzelDateiDateiInhaltText: TStringField;\r\n    dsEinzelDateiDateiInhaltThumb: TStringField;\r\n    dsEinzelDateiProtokoll: TStringField;\r\n    dsEinzelDateiDateiBetreff: TStringField;\r\n    dsEinzelDateiKundennummer: TStringField;\r\n    dsEinzelDateiNummerkomplett: TStringField;\r\n    dsEinzelDateiObjektReferenz: TStringField;\r\n    dsEinzelDateiFahrzeugID: TIntegerField;\r\n    WebImageControl1: TImageControl;\r\n    btnDateiLoeschen: TButton;\r\n    MSGLOESCHEN: TMessageDlg;\r\n    xdsProtokolleLoeschungen: TXDataWebDataSet;\r\n    xdsProtokolleLoeschungenID: TStringField;\r\n    xdsProtokolleLoeschungenDatum: TDateTimeField;\r\n    xdsProtokolleLoeschungenBenutzer: TStringField;\r\n    xdsProtokolleLoeschungenBelegart: TStringField;\r\n    xdsProtokolleLoeschungenBelegnummer: TStringField;\r\n    xdsProtokolleLoeschungenProtokoll: TStringField;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure WebFormClose(Sender: TObject; var Action: TCloseAction);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n    procedure dsEinzelDateiAfterOpen(DataSet: TDataSet);\r\n    procedure WebImageControl1Click(Sender: TObject);\r\n    [async]procedure btnDateiLoeschenClick(Sender: TObject); async;\r\n    procedure dsEinzelDateiAfterDelete(DataSet: TDataSet);\r\n    procedure dsEinzelDateiAfterApplyUpdates(Sender: TDataSet;\r\n      Info: TResolveResults);\r\n    procedure dsEinzelDateiBeforeDelete(DataSet: TDataSet);\r\n    procedure xdsProtokolleLoeschungenAfterPost(DataSet: TDataSet);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    EinzeldateiID:string;\r\n    Funktion:string;\r\n    SL:TStringList;\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  EinzelDatei: TEinzelDatei;\r\n\r\nimplementation\r\n  uses unit1, unit2;\r\n{$R *.dfm}\r\n\r\n\r\n\r\nprocedure TEinzelDatei.btnDateiLoeschenClick(Sender: TObject);\r\nvar\r\n  mr: TModalResult;\r\nbegin\r\n  mr := await(TModalResult, Msgloeschen.ShowDialog('Das Löschen einer Datei kann nicht rückgängig gemacht werden.Wollen Sie die Datei wirklich löschen?', WEBLib.Dialogs.mtConfirmation,[mbYes, mbNo]));\r\n  if mr = mrYes then dsEinzelDatei.Delete;\r\nend;\r\n\r\nprocedure TEinzelDatei.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  self.close;\r\nend;\r\n\r\nprocedure TEinzelDatei.dsEinzelDateiAfterApplyUpdates(Sender: TDataSet;\r\n  Info: TResolveResults);\r\nbegin\r\n  self.close;\r\nend;\r\n\r\nprocedure TEinzelDatei.dsEinzelDateiAfterDelete(DataSet: TDataSet);\r\nbegin\r\n  dsEinzelDatei.ApplyUpdates;\r\nend;\r\n\r\nprocedure TEinzelDatei.dsEinzelDateiAfterOpen(DataSet: TDataSet);\r\nvar\r\n  myelement:TJSHTMLElement;\r\n  mytext:string;\r\n  myencoded:string;\r\n  mydecoded:string;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>EinzelDatei</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  btnDateiLoeschen.ParentElement:=myelement;\r\n  container2.ParentElement:=myelement;\r\n  myelement:=container2.ElementHandle;\r\n  tc.ParentElement:=myelement;\r\n\r\n  container3.parentelement:=myelement;\r\n  myelement:=container3.ElementHandle;\r\n  WebImageControl1.parentelement:=myelement;\r\n  webimagecontrol1.autosize:=false;\r\n  webimagecontrol1.visible:=false;\r\n\r\n  TC.RowHeader:=false;\r\n  TC.Visible:=true;\r\n  TC.RowCount:=3;\r\n  TC.colcount:=1;\r\n  mytext:='';\r\n  mytext:=mytext+'<small><i>ID: </i></small>'+dseinzeldateiid.asstring;\r\n  mytext:=mytext+'<br><small><i>Datei: </i></small><b>'+dseinzeldateiDateiName.asstring+'</b>';\r\n  mytext:=mytext+'<br><small><i>vom: </i></small><b>'+formatdatetime('DD.MM.YYYY hh:mm:ss',dseinzeldateiDatumUhrzeit.asdatetime)+'</b>';\r\n  mytext:=mytext+'<br><small><i>Betreff: </i></small><b>'+dseinzeldateiDateiBetreff.asstring+'</b>';\r\n  //mytext:=mytext+'<br><small><i>DateiMime: </i></small>'+dseinzeldateiDateiMime.asstring;\r\n  mytext:=mytext+'<br><small><i>DateiGroesse: </i></small>'+dseinzeldateiDateiGroesse.asstring;\r\n  if dseinzeldateiKundennummer.asstring<>'' then mytext:=mytext+'<br><small><i>Kundennummer: </i></small><b>'+dseinzeldateiKundennummer.asstring+'</b>';\r\n  if dseinzeldateiNummerkomplett.asstring<>'' then mytext:=mytext+'<br><small><i>Belegnummer: </i></small><b>'+dseinzeldateiNummerkomplett.asstring+'</b>';\r\n  if dseinzeldateiObjektreferenz.asstring<>'' then mytext:=mytext+'<br><small><i>Objekt: </i></small><b>'+dseinzeldateiObjektreferenz.asstring+'</b>';\r\n  if (dseinzeldateiFahrzeugID.asstring<>'') AND (dseinzeldateiFahrzeugID.asstring<>'0') then mytext:=mytext+'<br><small><i>Fahrzeug: </i></small><b>'+dseinzeldateiFahrzeugID.asstring+'</b>';\r\n\r\n  TC.Cells[0,0]:= mytext;\r\n  if (lowercase(dseinzeldateidateimime.asstring)='.png') OR (lowercase(dseinzeldateidateimime.asstring)='image/png') then\r\n  begin\r\n    webimagecontrol1.visible:=true;\r\n    WebImageControl1.URL := dsEinzelDateiDateiInhaltText.asstring;\r\n  end;\r\n  if (lowercase(dseinzeldateidateimime.asstring)='.jpg') OR (lowercase(dseinzeldateidateimime.asstring)='image/jpeg') then\r\n  begin\r\n    webimagecontrol1.visible:=true;\r\n    WebImageControl1.URL := dsEinzelDateiDateiInhaltText.asstring;\r\n  end;\r\n    if (lowercase(dseinzeldateidateimime.asstring)='.bmp') OR (lowercase(dseinzeldateidateimime.asstring)='image/jpeg') then\r\n  begin\r\n    webimagecontrol1.visible:=true;\r\n    WebImageControl1.URL := dsEinzelDateiDateiInhaltText.asstring;\r\n  end;\r\n\r\n  if lowercase(dseinzeldateidateimime.asstring)='.txt' then\r\n  begin\r\n    SL:=TStringList.Create;\r\n    SL.delimiter:=',';\r\n    SL.StrictDelimiter:=true;\r\n    SL.delimitedtext:=dsEinzelDateiDateiInhaltText.asstring;\r\n    myencoded:=sl[1];\r\n    sl.free;\r\n    mydecoded:=web.window.atob(myencoded);\r\n    mydecoded:=ReplaceStr(mydecoded,#13+#10,'<BR>');\r\n    TC.Cells[0,1]:= mydecoded;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TEinzelDatei.dsEinzelDateiBeforeDelete(DataSet: TDataSet);\r\nbegin\r\n  xdsProtokolleLoeschungen.Append;\r\n  xdsProtokolleLoeschungenDatum.AsDateTime:=date+time;\r\n  xdsProtokolleLoeschungenBenutzer.AsString:=BenutzerSchreibzeichen;\r\n  xdsProtokolleLoeschungenBelegart.AsString:='Datei via CadiaWeb';\r\n  xdsProtokolleLoeschungenBelegnummer.AsString:=dsEinzelDateiID.AsString;\r\n  xdsProtokolleLoeschungenProtokoll.AsString:=dsEinzelDateiDateiName.AsString;\r\n  xdsProtokolleLoeschungen.Post;\r\nend;\r\n\r\nprocedure TEinzelDatei.WebFormClose(Sender: TObject; var Action: TCloseAction);\r\nbegin\r\n  action:=cafree;\r\nend;\r\n\r\nprocedure TEinzelDatei.WebFormShow(Sender: TObject);\r\nbegin\r\n  xdsProtokolleLoeschungen.Load;\r\n  dsEinzelDatei.Close;\r\n  dsEinzeldatei.QueryString:='$filter=ID eq '+EinzeldateiID;\r\n  dsEinzeldatei.Load;\r\nend;\r\n\r\nprocedure TEinzelDatei.WebImageControl1Click(Sender: TObject);\r\nbegin\r\n  webimagecontrol1.AutoSize:=true;\r\nend;\r\n\r\nprocedure TEinzelDatei.xdsProtokolleLoeschungenAfterPost(DataSet: TDataSet);\r\nbegin\r\n  xdsprotokolleloeschungen.ApplyUpdates;\r\nend;\r\n\r\nprocedure TEinzelDatei.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  WebImageControl1 := TImageControl.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  TC := TTableControl.Create(Self);\r\n  btnDateiLoeschen := TButton.Create(Self);\r\n  MSGLOESCHEN := TMessageDlg.Create(Self);\r\n  dsEinzelDatei := TXDataWebDataSet.Create(Self);\r\n  dsEinzelDateiID := TIntegerField.Create(Self);\r\n  dsEinzelDateiDatumUhrzeit := TDateTimeField.Create(Self);\r\n  dsEinzelDateiDateiMime := TStringField.Create(Self);\r\n  dsEinzelDateiDateiName := TStringField.Create(Self);\r\n  dsEinzelDateiDateiGroesse := TIntegerField.Create(Self);\r\n  dsEinzelDateiDateiInhaltText := TStringField.Create(Self);\r\n  dsEinzelDateiDateiInhaltThumb := TStringField.Create(Self);\r\n  dsEinzelDateiProtokoll := TStringField.Create(Self);\r\n  dsEinzelDateiDateiBetreff := TStringField.Create(Self);\r\n  dsEinzelDateiKundennummer := TStringField.Create(Self);\r\n  dsEinzelDateiNummerkomplett := TStringField.Create(Self);\r\n  dsEinzelDateiObjektReferenz := TStringField.Create(Self);\r\n  dsEinzelDateiFahrzeugID := TIntegerField.Create(Self);\r\n  xdsProtokolleLoeschungen := TXDataWebDataSet.Create(Self);\r\n  xdsProtokolleLoeschungenID := TStringField.Create(Self);\r\n  xdsProtokolleLoeschungenDatum := TDateTimeField.Create(Self);\r\n  xdsProtokolleLoeschungenBenutzer := TStringField.Create(Self);\r\n  xdsProtokolleLoeschungenBelegart := TStringField.Create(Self);\r\n  xdsProtokolleLoeschungenBelegnummer := TStringField.Create(Self);\r\n  xdsProtokolleLoeschungenProtokoll := TStringField.Create(Self);\r\n\r\n  WebImageControl1.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  TC.BeforeLoadDFMValues;\r\n  btnDateiLoeschen.BeforeLoadDFMValues;\r\n  MSGLOESCHEN.BeforeLoadDFMValues;\r\n  dsEinzelDatei.BeforeLoadDFMValues;\r\n  dsEinzelDateiID.BeforeLoadDFMValues;\r\n  dsEinzelDateiDatumUhrzeit.BeforeLoadDFMValues;\r\n  dsEinzelDateiDateiMime.BeforeLoadDFMValues;\r\n  dsEinzelDateiDateiName.BeforeLoadDFMValues;\r\n  dsEinzelDateiDateiGroesse.BeforeLoadDFMValues;\r\n  dsEinzelDateiDateiInhaltText.BeforeLoadDFMValues;\r\n  dsEinzelDateiDateiInhaltThumb.BeforeLoadDFMValues;\r\n  dsEinzelDateiProtokoll.BeforeLoadDFMValues;\r\n  dsEinzelDateiDateiBetreff.BeforeLoadDFMValues;\r\n  dsEinzelDateiKundennummer.BeforeLoadDFMValues;\r\n  dsEinzelDateiNummerkomplett.BeforeLoadDFMValues;\r\n  dsEinzelDateiObjektReferenz.BeforeLoadDFMValues;\r\n  dsEinzelDateiFahrzeugID.BeforeLoadDFMValues;\r\n  xdsProtokolleLoeschungen.BeforeLoadDFMValues;\r\n  xdsProtokolleLoeschungenID.BeforeLoadDFMValues;\r\n  xdsProtokolleLoeschungenDatum.BeforeLoadDFMValues;\r\n  xdsProtokolleLoeschungenBenutzer.BeforeLoadDFMValues;\r\n  xdsProtokolleLoeschungenBelegart.BeforeLoadDFMValues;\r\n  xdsProtokolleLoeschungenBelegnummer.BeforeLoadDFMValues;\r\n  xdsProtokolleLoeschungenProtokoll.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'EinzelDatei';\r\n    Width := 260;\r\n    Height := 617;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnClose', 'WebFormClose');\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    WebImageControl1.SetParentComponent(Self);\r\n    WebImageControl1.Name := 'WebImageControl1';\r\n    WebImageControl1.Left := 32;\r\n    WebImageControl1.Top := 296;\r\n    WebImageControl1.Width := 100;\r\n    WebImageControl1.Height := 41;\r\n    WebImageControl1.HeightStyle := ssAuto;\r\n    WebImageControl1.WidthStyle := ssAuto;\r\n    WebImageControl1.HeightPercent := 100.000000000000000000;\r\n    WebImageControl1.WidthPercent := 100.000000000000000000;\r\n    WebImageControl1.ChildOrder := 6;\r\n    WebImageControl1.ElementPosition := epIgnore;\r\n    SetEvent(WebImageControl1, Self, 'OnClick', 'WebImageControl1Click');\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ChildOrder := 1;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 2;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 3;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 0;\r\n    btnzurueck.Top := 156;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.Left := -1;\r\n    TC.Top := 191;\r\n    TC.Width := 247;\r\n    TC.Height := 91;\r\n    TC.ElementClassName := 'table table-bordered border-primary';\r\n    TC.HeightStyle := ssAuto;\r\n    TC.WidthStyle := ssPercent;\r\n    TC.BorderColor := clSilver;\r\n    TC.ChildOrder := 3;\r\n    TC.ColHeader := False;\r\n    TC.ElementFont := efCSS;\r\n    TC.ElementHeaderClassName := 'thead-light';\r\n    TC.ElementPosition := epIgnore;\r\n    TC.ElementTableClassName := 'table table-striped table-bordered  table-hover';\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 1;\r\n    btnDateiLoeschen.SetParentComponent(Self);\r\n    btnDateiLoeschen.Name := 'btnDateiLoeschen';\r\n    btnDateiLoeschen.Left := 8;\r\n    btnDateiLoeschen.Top := 380;\r\n    btnDateiLoeschen.Width := 96;\r\n    btnDateiLoeschen.Height := 25;\r\n    btnDateiLoeschen.Caption := 'Datei l'#246'schen';\r\n    btnDateiLoeschen.ChildOrder := 4;\r\n    btnDateiLoeschen.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnDateiLoeschen.ElementFont := efCSS;\r\n    btnDateiLoeschen.ElementPosition := epIgnore;\r\n    btnDateiLoeschen.HeightStyle := ssAuto;\r\n    btnDateiLoeschen.HeightPercent := 100.000000000000000000;\r\n    btnDateiLoeschen.WidthStyle := ssAuto;\r\n    btnDateiLoeschen.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnDateiLoeschen, Self, 'OnClick', 'btnDateiLoeschenClick');\r\n    MSGLOESCHEN.SetParentComponent(Self);\r\n    MSGLOESCHEN.Name := 'MSGLOESCHEN';\r\n    MSGLOESCHEN.Left := 136;\r\n    MSGLOESCHEN.Top := 416;\r\n    MSGLOESCHEN.Width := 24;\r\n    MSGLOESCHEN.Height := 24;\r\n    MSGLOESCHEN.HeightStyle := ssAuto;\r\n    MSGLOESCHEN.WidthStyle := ssAuto;\r\n    MSGLOESCHEN.Buttons := [mbYes,mbNo];\r\n    MSGLOESCHEN.DialogType := mtConfirmation;\r\n    MSGLOESCHEN.Message := 'Das L'#246'schen einer Datei kann nicht r'#252'ckg'#228'ngig gemacht werden.Wollen Sie die Datei wirklich l'#246'schen?';\r\n    MSGLOESCHEN.Opacity := 0.200000000000000000;\r\n    MSGLOESCHEN.ElementButtonClassName := 'btn';\r\n    MSGLOESCHEN.ElementDialogClassName := 'shadow-lg p-3 mb-5 bg-white rounded';\r\n    MSGLOESCHEN.ElementTitleClassName := 'text-body';\r\n    MSGLOESCHEN.ElementContentClassName := 'text-body';\r\n    dsEinzelDatei.SetParentComponent(Self);\r\n    dsEinzelDatei.Name := 'dsEinzelDatei';\r\n    dsEinzelDatei.AfterApplyUpdates := dsEinzelDateiAfterApplyUpdates;\r\n    dsEinzelDatei.AfterOpen := dsEinzelDateiAfterOpen;\r\n    dsEinzelDatei.BeforeDelete := dsEinzelDateiBeforeDelete;\r\n    dsEinzelDatei.AfterDelete := dsEinzelDateiAfterDelete;\r\n    dsEinzelDatei.EntitySetName := 'DokumenteDateien';\r\n    dsEinzelDatei.Connection := DM2.XDataWebConnection1;\r\n    dsEinzelDatei.QueryTop := 1;\r\n    dsEinzelDatei.Left := 112;\r\n    dsEinzelDatei.Top := 312;\r\n    dsEinzelDateiID.SetParentComponent(dsEinzelDatei);\r\n    dsEinzelDateiID.Name := 'dsEinzelDateiID';\r\n    dsEinzelDateiID.FieldName := 'ID';\r\n    dsEinzelDateiID.Required := True;\r\n    dsEinzelDateiDatumUhrzeit.SetParentComponent(dsEinzelDatei);\r\n    dsEinzelDateiDatumUhrzeit.Name := 'dsEinzelDateiDatumUhrzeit';\r\n    dsEinzelDateiDatumUhrzeit.FieldName := 'DatumUhrzeit';\r\n    dsEinzelDateiDatumUhrzeit.Required := True;\r\n    dsEinzelDateiDateiMime.SetParentComponent(dsEinzelDatei);\r\n    dsEinzelDateiDateiMime.Name := 'dsEinzelDateiDateiMime';\r\n    dsEinzelDateiDateiMime.FieldName := 'DateiMime';\r\n    dsEinzelDateiDateiMime.Size := 50;\r\n    dsEinzelDateiDateiName.SetParentComponent(dsEinzelDatei);\r\n    dsEinzelDateiDateiName.Name := 'dsEinzelDateiDateiName';\r\n    dsEinzelDateiDateiName.FieldName := 'DateiName';\r\n    dsEinzelDateiDateiName.Size := 255;\r\n    dsEinzelDateiDateiGroesse.SetParentComponent(dsEinzelDatei);\r\n    dsEinzelDateiDateiGroesse.Name := 'dsEinzelDateiDateiGroesse';\r\n    dsEinzelDateiDateiGroesse.FieldName := 'DateiGroesse';\r\n    dsEinzelDateiDateiInhaltText.SetParentComponent(dsEinzelDatei);\r\n    dsEinzelDateiDateiInhaltText.Name := 'dsEinzelDateiDateiInhaltText';\r\n    dsEinzelDateiDateiInhaltText.FieldName := 'DateiInhaltText';\r\n    dsEinzelDateiDateiInhaltText.Size := 255;\r\n    dsEinzelDateiDateiInhaltThumb.SetParentComponent(dsEinzelDatei);\r\n    dsEinzelDateiDateiInhaltThumb.Name := 'dsEinzelDateiDateiInhaltThumb';\r\n    dsEinzelDateiDateiInhaltThumb.FieldName := 'DateiInhaltThumb';\r\n    dsEinzelDateiDateiInhaltThumb.Size := 255;\r\n    dsEinzelDateiProtokoll.SetParentComponent(dsEinzelDatei);\r\n    dsEinzelDateiProtokoll.Name := 'dsEinzelDateiProtokoll';\r\n    dsEinzelDateiProtokoll.FieldName := 'Protokoll';\r\n    dsEinzelDateiProtokoll.Size := 255;\r\n    dsEinzelDateiDateiBetreff.SetParentComponent(dsEinzelDatei);\r\n    dsEinzelDateiDateiBetreff.Name := 'dsEinzelDateiDateiBetreff';\r\n    dsEinzelDateiDateiBetreff.FieldName := 'DateiBetreff';\r\n    dsEinzelDateiDateiBetreff.Size := 50;\r\n    dsEinzelDateiKundennummer.SetParentComponent(dsEinzelDatei);\r\n    dsEinzelDateiKundennummer.Name := 'dsEinzelDateiKundennummer';\r\n    dsEinzelDateiKundennummer.FieldName := 'Kundennummer';\r\n    dsEinzelDateiKundennummer.Size := 13;\r\n    dsEinzelDateiNummerkomplett.SetParentComponent(dsEinzelDatei);\r\n    dsEinzelDateiNummerkomplett.Name := 'dsEinzelDateiNummerkomplett';\r\n    dsEinzelDateiNummerkomplett.FieldName := 'Nummerkomplett';\r\n    dsEinzelDateiNummerkomplett.Size := 10;\r\n    dsEinzelDateiObjektReferenz.SetParentComponent(dsEinzelDatei);\r\n    dsEinzelDateiObjektReferenz.Name := 'dsEinzelDateiObjektReferenz';\r\n    dsEinzelDateiObjektReferenz.FieldName := 'ObjektReferenz';\r\n    dsEinzelDateiObjektReferenz.Size := 13;\r\n    dsEinzelDateiFahrzeugID.SetParentComponent(dsEinzelDatei);\r\n    dsEinzelDateiFahrzeugID.Name := 'dsEinzelDateiFahrzeugID';\r\n    dsEinzelDateiFahrzeugID.FieldName := 'FahrzeugID';\r\n    xdsProtokolleLoeschungen.SetParentComponent(Self);\r\n    xdsProtokolleLoeschungen.Name := 'xdsProtokolleLoeschungen';\r\n    xdsProtokolleLoeschungen.AfterPost := xdsProtokolleLoeschungenAfterPost;\r\n    xdsProtokolleLoeschungen.EntitySetName := 'ProtokolleLoeschungen';\r\n    xdsProtokolleLoeschungen.Connection := DM2.XDataWebConnection1;\r\n    xdsProtokolleLoeschungen.QueryTop := 1;\r\n    xdsProtokolleLoeschungen.Left := 104;\r\n    xdsProtokolleLoeschungen.Top := 472;\r\n    xdsProtokolleLoeschungenID.SetParentComponent(xdsProtokolleLoeschungen);\r\n    xdsProtokolleLoeschungenID.Name := 'xdsProtokolleLoeschungenID';\r\n    xdsProtokolleLoeschungenID.FieldName := 'ID';\r\n    xdsProtokolleLoeschungenID.Required := True;\r\n    xdsProtokolleLoeschungenID.Size := 38;\r\n    xdsProtokolleLoeschungenDatum.SetParentComponent(xdsProtokolleLoeschungen);\r\n    xdsProtokolleLoeschungenDatum.Name := 'xdsProtokolleLoeschungenDatum';\r\n    xdsProtokolleLoeschungenDatum.FieldName := 'Datum';\r\n    xdsProtokolleLoeschungenBenutzer.SetParentComponent(xdsProtokolleLoeschungen);\r\n    xdsProtokolleLoeschungenBenutzer.Name := 'xdsProtokolleLoeschungenBenutzer';\r\n    xdsProtokolleLoeschungenBenutzer.FieldName := 'Benutzer';\r\n    xdsProtokolleLoeschungenBenutzer.Size := 50;\r\n    xdsProtokolleLoeschungenBelegart.SetParentComponent(xdsProtokolleLoeschungen);\r\n    xdsProtokolleLoeschungenBelegart.Name := 'xdsProtokolleLoeschungenBelegart';\r\n    xdsProtokolleLoeschungenBelegart.FieldName := 'Belegart';\r\n    xdsProtokolleLoeschungenBelegart.Size := 50;\r\n    xdsProtokolleLoeschungenBelegnummer.SetParentComponent(xdsProtokolleLoeschungen);\r\n    xdsProtokolleLoeschungenBelegnummer.Name := 'xdsProtokolleLoeschungenBelegnummer';\r\n    xdsProtokolleLoeschungenBelegnummer.FieldName := 'Belegnummer';\r\n    xdsProtokolleLoeschungenBelegnummer.Size := 25;\r\n    xdsProtokolleLoeschungenProtokoll.SetParentComponent(xdsProtokolleLoeschungen);\r\n    xdsProtokolleLoeschungenProtokoll.Name := 'xdsProtokolleLoeschungenProtokoll';\r\n    xdsProtokolleLoeschungenProtokoll.FieldName := 'Protokoll';\r\n    xdsProtokolleLoeschungenProtokoll.Size := 255;\r\n  finally\r\n    WebImageControl1.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    TC.AfterLoadDFMValues;\r\n    btnDateiLoeschen.AfterLoadDFMValues;\r\n    MSGLOESCHEN.AfterLoadDFMValues;\r\n    dsEinzelDatei.AfterLoadDFMValues;\r\n    dsEinzelDateiID.AfterLoadDFMValues;\r\n    dsEinzelDateiDatumUhrzeit.AfterLoadDFMValues;\r\n    dsEinzelDateiDateiMime.AfterLoadDFMValues;\r\n    dsEinzelDateiDateiName.AfterLoadDFMValues;\r\n    dsEinzelDateiDateiGroesse.AfterLoadDFMValues;\r\n    dsEinzelDateiDateiInhaltText.AfterLoadDFMValues;\r\n    dsEinzelDateiDateiInhaltThumb.AfterLoadDFMValues;\r\n    dsEinzelDateiProtokoll.AfterLoadDFMValues;\r\n    dsEinzelDateiDateiBetreff.AfterLoadDFMValues;\r\n    dsEinzelDateiKundennummer.AfterLoadDFMValues;\r\n    dsEinzelDateiNummerkomplett.AfterLoadDFMValues;\r\n    dsEinzelDateiObjektReferenz.AfterLoadDFMValues;\r\n    dsEinzelDateiFahrzeugID.AfterLoadDFMValues;\r\n    xdsProtokolleLoeschungen.AfterLoadDFMValues;\r\n    xdsProtokolleLoeschungenID.AfterLoadDFMValues;\r\n    xdsProtokolleLoeschungenDatum.AfterLoadDFMValues;\r\n    xdsProtokolleLoeschungenBenutzer.AfterLoadDFMValues;\r\n    xdsProtokolleLoeschungenBelegart.AfterLoadDFMValues;\r\n    xdsProtokolleLoeschungenBelegnummer.AfterLoadDFMValues;\r\n    xdsProtokolleLoeschungenProtokoll.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit unit_Dateien;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, WEBLib.Buttons, Vcl.Controls, Vcl.StdCtrls,\r\n  WEBLib.StdCtrls, WEBLib.ExtCtrls, Data.DB, XData.Web.JsonDataset, strutils,\r\n  XData.Web.Dataset, WEBLib.Grids, WEBLib.DBCtrls, WEBLib.DB, WEBLib.WebCtrls,\r\n  XData.Web.Client;\r\n\r\ntype\r\n  TfrmDateien = class(TForm)\r\n    dsDateien: TXDataWebDataSet;\r\n    sourceDateien: TDataSource;\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    Container3: THTMLContainer;\r\n    btnzurueck: TButton;\r\n    dsDateienID: TIntegerField;\r\n    dsDateienDatumUhrzeit: TDateTimeField;\r\n    dsDateienDateiMime: TStringField;\r\n    dsDateienDateiName: TStringField;\r\n    dsDateienDateiGroesse: TIntegerField;\r\n    dsDateienDateiInhaltThumb: TStringField;\r\n    dsDateienProtokoll: TStringField;\r\n    dsDateienDateiBetreff: TStringField;\r\n    dsDateienKundennummer: TStringField;\r\n    dsDateienNummerkomplett: TStringField;\r\n    dsDateienObjektReferenz: TStringField;\r\n    dsDateienFahrzeugID: TIntegerField;\r\n    btnNeu: TButton;\r\n    btnFoto: TButton;\r\n    WClient: TXDataWebClient;\r\n    MSGLOESCHEN: TMessageDlg;\r\n    xdsProtokolleLoeschungen: TXDataWebDataSet;\r\n    xdsProtokolleLoeschungenID: TStringField;\r\n    xdsProtokolleLoeschungenDatum: TDateTimeField;\r\n    xdsProtokolleLoeschungenBenutzer: TStringField;\r\n    xdsProtokolleLoeschungenBelegart: TStringField;\r\n    xdsProtokolleLoeschungenBelegnummer: TStringField;\r\n    xdsProtokolleLoeschungenProtokoll: TStringField;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure dsDateienAfterOpen(DataSet: TDataSet);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n    procedure btnNeuClick(Sender: TObject);\r\n    procedure btnFotoClick(Sender: TObject);\r\n    procedure dsDateienAfterDelete(DataSet: TDataSet);\r\n    procedure dsDateienAfterApplyUpdates(Sender: TDataSet;\r\n      Info: TResolveResults);\r\n    procedure dsDateienBeforeDelete(DataSet: TDataSet);\r\n    procedure xdsProtokolleLoeschungenAfterPost(DataSet: TDataSet);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    MerkerArt:string;\r\n    MerkerNummerkomplett:string;\r\n    MerkerObjektreferenz:string;\r\n    MerkerFahrzeugID:string;\r\n    MerkerKundennummer:string;\r\n    MerkerName:string;\r\n    HeadlineText:string;\r\n    EinzelCard:THTMLDiv;\r\n    btnDateiLoeschen:TButton;\r\n    procedure EinzelCardclick(Sender:TObject);\r\n    procedure openeinzeldateiform(id:string);\r\n    [async] procedure btnDateiLoeschenClick(Sender:TObject); async;\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  frmDateien: TfrmDateien;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_GetPhoto, unit_Einzeldatei;\r\n{$R *.dfm}\r\n\r\nprocedure TfrmDateien.btnDateiLoeschenClick(Sender: TObject);\r\n\r\n  //myPositionsID:=inttostr((sender as TWebButton).tag);\r\n  //myArtikelnummer:=(sender as TWebButton).Hint;\r\nvar\r\n  mr: TModalResult;\r\n  myEinzeldateiID:string;\r\n  myEinzeldateiName:string;\r\nbegin\r\n  myEinzeldateiID:=inttostr((sender as TButton).Tag);\r\n  myEinzeldateiName:=(sender as TButton).Hint;\r\n  if dsdateien.Locate('Id',myeinzeldateiid,[])=true then\r\n  begin\r\n    mr := await(TModalResult, Msgloeschen.ShowDialog('Das Löschen einer Datei kann nicht rückgängig gemacht werden. Wollen Sie die Datei \"'+myEinzeldateiName+'\" wirklich löschen?', WEBLib.Dialogs.mtConfirmation,[mbYes, mbNo]));\r\n    if mr = mrYes then dsdateien.Delete;\r\n  end;\r\nend;\r\n\r\nprocedure TfrmDateien.btnFotoClick(Sender: TObject);\r\nvar\r\n  LFrm:TGetPhoto;\r\n  myEinzeldateiID:string;\r\nbegin\r\n  myEinzeldateiID:='';\r\n  Container3.HTML.text:='';\r\n  GetPhoto := TGetPhoto.CreateNew(procedure(AForm: TObject)\r\n    begin\r\n      (AForm as TGetPhoto).PhotoFunktion:='Foto';\r\n      (AForm as TGetPhoto).PhotoMerkerNummerkomplett:=MerkerNummerkomplett;\r\n      (AForm as TGetPhoto).PhotoMerkerObjektreferenz:=MerkerObjektreferenz;\r\n      (AForm as TGetPhoto).PhotoMerkerFahrzeugID:=MerkerFahrzeugID;\r\n      (AForm as TGetPhoto).PhotoMerkerKundennummer:=MerkerKundennummer;\r\n    end\r\n    );\r\n\r\n  GetPhoto.ShowModal(procedure(AValue: TModalResult)\r\n    begin\r\n      dsDateien.close;\r\n      dsDateien.Load;\r\n    end\r\n    );\r\nend;\r\n\r\nprocedure TfrmDateien.btnNeuClick(Sender: TObject);\r\nvar\r\n  LFrm:TGetPhoto;\r\n  myEinzeldateiID:string;\r\nbegin\r\n  myEinzeldateiID:='';\r\n  Container3.HTML.text:='';\r\n  GetPhoto := TGetPhoto.CreateNew(procedure(AForm: TObject)\r\n    begin\r\n      (AForm as TGetPhoto).PhotoFunktion:='Datei';\r\n      (AForm as TGetPhoto).PhotoMerkerNummerkomplett:=MerkerNummerkomplett;\r\n      (AForm as TGetPhoto).PhotoMerkerObjektreferenz:=MerkerObjektreferenz;\r\n      (AForm as TGetPhoto).PhotoMerkerFahrzeugID:=MerkerFahrzeugID;\r\n      (AForm as TGetPhoto).PhotoMerkerKundennummer:=MerkerKundennummer;\r\n    end\r\n    );\r\n\r\n  GetPhoto.ShowModal(procedure(AValue: TModalResult)\r\n    begin\r\n      dsDateien.close;\r\n      dsDateien.Load;\r\n    end\r\n    );\r\n\r\nend;\r\n\r\nprocedure TfrmDateien.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  dsDateien.Close;\r\n  self.close;\r\nend;\r\n\r\n\r\nprocedure TfrmDateien.EinzelCardclick(Sender:TObject);\r\n  procedure OnResponse(Response:TXDataClientResponse);\r\n  var\r\n    mydownload:string;\r\n  begin\r\n    mydownload:=string(TJSObject(response.Result)['value']);\r\n    if mydownload='WRONG' then\r\n    begin\r\n      showmessage('Download kann nicht bereitgestellt werden');\r\n    end\r\n    else\r\n    begin\r\n      application.Navigate(downloadconnection+mydownload,ntblank);\r\n    end;\r\n  end;\r\nvar\r\n  myEinzeldateiID:string;\r\nbegin\r\n  myEinzeldateiID:=(sender as THTMLDiv).ElementID;\r\n  dsdateien.Locate('Id',myeinzeldateiid,[]);\r\n  if lowercase(extractfileext(dsDateienDateiName.AsString))='.pdf' then\r\n  begin\r\n    WClient.RawInvoke('IServerService.GetDateiFromDokument',[myEinzeldateiID],@OnResponse);\r\n  end\r\n  else\r\n  begin\r\n    if lowercase(extractfileext(dsDateienDateiName.AsString))='.zip' then\r\n    begin\r\n      WClient.RawInvoke('IServerService.GetDateiFromDokument',[myEinzeldateiID],@OnResponse);\r\n    end\r\n    else\r\n    begin\r\n      openeinzeldateiform(myEinzeldateiID);\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TfrmDateien.openeinzeldateiform(id:string);\r\nvar\r\n  LFrm:TEinzelDatei;\r\n  myEinzeldateiID:string;\r\nbegin\r\n  myEinzeldateiID:=id;\r\n  Container3.HTML.text:='';\r\n  EinzelDatei := TEinzelDatei.CreateNew(procedure(AForm: TObject)\r\n    begin\r\n      (AForm as TEinzelDatei).EinzelDateiID:=myEinzeldateiID;\r\n      (AForm as TEinzelDatei).Funktion:='Anzeige';\r\n    end\r\n    );\r\n\r\n  Einzeldatei.ShowModal(procedure(AValue: TModalResult)\r\n    begin\r\n      dsDateien.close;\r\n      dsDateien.Load;\r\n    end\r\n    );\r\n\r\nend;\r\n\r\nprocedure TfrmDateien.dsDateienAfterApplyUpdates(Sender: TDataSet;\r\n  Info: TResolveResults);\r\nbegin\r\n  self.close;\r\nend;\r\n\r\nprocedure TfrmDateien.dsDateienAfterDelete(DataSet: TDataSet);\r\nbegin\r\n  dsDateien.ApplyUpdates;\r\nend;\r\n\r\nprocedure TfrmDateien.dsDateienAfterOpen(DataSet: TDataSet);\r\nvar\r\n  myelement:TJSHTMLElement;\r\n  EinzelKarte:string;\r\n  MyFileExt:string;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>'+HeadlineText+'</h5></nav>';\r\n  myelement:=Container1.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  btnneu.ParentElement:=myelement;\r\n  btnFoto.ParentElement:=myelement;\r\n  Container2.HTML.Text:='';\r\n  myelement:=container2.ElementHandle;\r\n\r\n  while not dsDateien.eof do\r\n  begin\r\n\r\n    Einzelkarte:='<div class=\"card-header\"><h5>'+dsDateienDateiBetreff.AsString+'</h5></div>';\r\n    Einzelkarte:=Einzelkarte+'<div class=\"card-body \"><i>Datei: </i><b>'+trim(dsDateienDateiname.AsString)+'</b>';\r\n    Einzelkarte:=Einzelkarte+'<br><i>vom: </i><b>'+formatdatetime('DD.MM.YY hh:mm',dsdateienDatumUhrzeit.Asdatetime)+'</b>';\r\n    Einzelkarte:=Einzelkarte+'<br><i>Kunde: </i><b>'+dsDateienKundennummer.AsString+' '+merkername+'</b>';\r\n    Einzelkarte:=Einzelkarte+'<br><i>Objekt: </i><b>'+dsDateienObjektReferenz.AsString+'</b>';\r\n    Einzelkarte:=Einzelkarte+'<br><i>'+Merkerart+': </i><b>'+dsDateienNummerkomplett.AsString+'</b>';\r\n    Einzelkarte:=Einzelkarte+'</div>';\r\n\r\n    myelement:=Container3.ElementHandle;\r\n    EinzelCard:=THTMLDiv.Create(self);\r\n    EinzelCard.ElementID:=dsDateienID.asstring;\r\n    EinzelCard.HeightStyle:=ssauto;\r\n    EinzelCard.Width:=400;\r\n    EinzelCard.HTML.Text:=Einzelkarte;\r\n    EinzelCard.ElementClassName:='card m-1 border-info';\r\n    EinzelCard.OnClick:=@EinzelCardClick;\r\n    EinzelCard.ParentElement:=myelement;\r\n    MyFileExt:=lowercase(extractfileext(dsDateienDateiName.AsString));\r\n    if (MyFileExt='.pdf') OR (MyFileExt='.zip') then\r\n    begin\r\n      myelement:=Einzelcard.ElementHandle;\r\n      btnDateiLoeschen:=TButton.Create(self);\r\n      btnDateiLoeschen.ElementClassName:='btn btn-info m-1 btn-sm text-left';\r\n      btnDateiLoeschen.HeightStyle:=ssauto;\r\n      btnDateiLoeschen.WidthStyle:=ssauto;\r\n      btnDateiLoeschen.TabStop:=false;\r\n      btnDateiLoeschen.tag:=dsDateienID.asinteger;\r\n      btnDateiLoeschen.Hint:=trim(dsDateienDateiname.AsString);\r\n      btnDateiLoeschen.Caption:='Datei löschen';\r\n      btnDateiLoeschen.ElementPosition:=epIgnore;\r\n      btnDateiLoeschen.OnClick:=@btnDateiLoeschenClick;\r\n      btnDateiLoeschen.ParentElement:=myelement;\r\n    end;\r\n    dsDateien.Next;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TfrmDateien.dsDateienBeforeDelete(DataSet: TDataSet);\r\nvar\r\n  guid:TGUID;\r\n  guidstring:string;\r\nbegin\r\n  createguid(guid);\r\n  guidstring:=guidtostring(guid);\r\n  guidstring:=ReplaceStr(guidstring,'{','');\r\n  guidstring:=ReplaceStr(guidstring,'}','');\r\n  xdsProtokolleLoeschungen.Append;\r\n  xdsProtokolleLoeschungenID.asstring:=guidstring;\r\n  xdsProtokolleLoeschungenDatum.AsDateTime:=date+time;\r\n  xdsProtokolleLoeschungenBenutzer.AsString:=BenutzerSchreibzeichen;\r\n  xdsProtokolleLoeschungenBelegart.AsString:='Datei via CadiaWeb';\r\n  xdsProtokolleLoeschungenBelegnummer.AsString:=dsDateienID.AsString;\r\n  xdsProtokolleLoeschungenProtokoll.AsString:=dsDateienDateiName.AsString;\r\n  xdsProtokolleLoeschungen.Post;\r\nend;\r\n\r\nprocedure TfrmDateien.WebFormShow(Sender: TObject);\r\nvar\r\n  myselect:string;\r\nbegin\r\n  xdsProtokolleLoeschungen.Load;\r\n  myselect:='$select=ID,DatumUhrzeit,DateiMime,DateiName,DateiGroesse,DateiInhaltThumb,DateiBetreff,Kundennummer,Nummerkomplett,ObjektReferenz,FahrzeugID';\r\n  dsDateien.Close;\r\n  if MerkerArt='Auftrag' then dsDateien.QueryString:=myselect+'&$filter=contains(Nummerkomplett, '+QuotedStr(MerkerNummerkomplett)+')';\r\n  if MerkerArt='Angebot' then dsDateien.QueryString:=myselect+'&$filter=contains(Nummerkomplett, '+QuotedStr(MerkerNummerkomplett)+')';\r\n  if MerkerArt='Kontakt' then dsDateien.QueryString:=myselect+'&$filter=contains(Kundennummer, '+QuotedStr(MerkerKundennummer)+')';\r\n  if MerkerArt='Objekt' then dsDateien.QueryString:=myselect+'&$filter=contains(Objektreferenz, '+QuotedStr(MerkerObjektreferenz)+')';\r\n  dsDateien.Load;\r\nend;\r\n\r\nprocedure TfrmDateien.xdsProtokolleLoeschungenAfterPost(DataSet: TDataSet);\r\nbegin\r\n  xdsProtokolleLoeschungen.ApplyUpdates;\r\nend;\r\n\r\nprocedure TfrmDateien.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  btnNeu := TButton.Create(Self);\r\n  btnFoto := TButton.Create(Self);\r\n  MSGLOESCHEN := TMessageDlg.Create(Self);\r\n  dsDateien := TXDataWebDataSet.Create(Self);\r\n  dsDateienID := TIntegerField.Create(Self);\r\n  dsDateienDatumUhrzeit := TDateTimeField.Create(Self);\r\n  dsDateienDateiMime := TStringField.Create(Self);\r\n  dsDateienDateiName := TStringField.Create(Self);\r\n  dsDateienDateiGroesse := TIntegerField.Create(Self);\r\n  dsDateienDateiInhaltThumb := TStringField.Create(Self);\r\n  dsDateienProtokoll := TStringField.Create(Self);\r\n  dsDateienDateiBetreff := TStringField.Create(Self);\r\n  dsDateienKundennummer := TStringField.Create(Self);\r\n  dsDateienNummerkomplett := TStringField.Create(Self);\r\n  dsDateienObjektReferenz := TStringField.Create(Self);\r\n  dsDateienFahrzeugID := TIntegerField.Create(Self);\r\n  sourceDateien := TDataSource.Create(Self);\r\n  WClient := TXDataWebClient.Create(Self);\r\n  xdsProtokolleLoeschungen := TXDataWebDataSet.Create(Self);\r\n  xdsProtokolleLoeschungenID := TStringField.Create(Self);\r\n  xdsProtokolleLoeschungenDatum := TDateTimeField.Create(Self);\r\n  xdsProtokolleLoeschungenBenutzer := TStringField.Create(Self);\r\n  xdsProtokolleLoeschungenBelegart := TStringField.Create(Self);\r\n  xdsProtokolleLoeschungenBelegnummer := TStringField.Create(Self);\r\n  xdsProtokolleLoeschungenProtokoll := TStringField.Create(Self);\r\n\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  btnNeu.BeforeLoadDFMValues;\r\n  btnFoto.BeforeLoadDFMValues;\r\n  MSGLOESCHEN.BeforeLoadDFMValues;\r\n  dsDateien.BeforeLoadDFMValues;\r\n  dsDateienID.BeforeLoadDFMValues;\r\n  dsDateienDatumUhrzeit.BeforeLoadDFMValues;\r\n  dsDateienDateiMime.BeforeLoadDFMValues;\r\n  dsDateienDateiName.BeforeLoadDFMValues;\r\n  dsDateienDateiGroesse.BeforeLoadDFMValues;\r\n  dsDateienDateiInhaltThumb.BeforeLoadDFMValues;\r\n  dsDateienProtokoll.BeforeLoadDFMValues;\r\n  dsDateienDateiBetreff.BeforeLoadDFMValues;\r\n  dsDateienKundennummer.BeforeLoadDFMValues;\r\n  dsDateienNummerkomplett.BeforeLoadDFMValues;\r\n  dsDateienObjektReferenz.BeforeLoadDFMValues;\r\n  dsDateienFahrzeugID.BeforeLoadDFMValues;\r\n  sourceDateien.BeforeLoadDFMValues;\r\n  WClient.BeforeLoadDFMValues;\r\n  xdsProtokolleLoeschungen.BeforeLoadDFMValues;\r\n  xdsProtokolleLoeschungenID.BeforeLoadDFMValues;\r\n  xdsProtokolleLoeschungenDatum.BeforeLoadDFMValues;\r\n  xdsProtokolleLoeschungenBenutzer.BeforeLoadDFMValues;\r\n  xdsProtokolleLoeschungenBelegart.BeforeLoadDFMValues;\r\n  xdsProtokolleLoeschungenBelegnummer.BeforeLoadDFMValues;\r\n  xdsProtokolleLoeschungenProtokoll.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'frmDateien';\r\n    Width := 222;\r\n    Height := 310;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    Font.Charset := DEFAULT_CHARSET;\r\n    Font.Color := clWindowText;\r\n    Font.Height := -11;\r\n    Font.Name := 'Tahoma';\r\n    Font.Style := [];\r\n    ParentFont := False;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 2;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 64;\r\n    btnzurueck.Top := 141;\r\n    btnzurueck.Width := 110;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    btnNeu.SetParentComponent(Self);\r\n    btnNeu.Name := 'btnNeu';\r\n    btnNeu.Left := 64;\r\n    btnNeu.Top := 168;\r\n    btnNeu.Width := 110;\r\n    btnNeu.Height := 25;\r\n    btnNeu.Caption := '+ Datei';\r\n    btnNeu.ChildOrder := 4;\r\n    btnNeu.ElementClassName := 'btn btn-info m-1 text-left';\r\n    btnNeu.ElementFont := efCSS;\r\n    btnNeu.ElementPosition := epIgnore;\r\n    btnNeu.HeightStyle := ssAuto;\r\n    btnNeu.HeightPercent := 100.000000000000000000;\r\n    btnNeu.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnNeu, Self, 'OnClick', 'btnNeuClick');\r\n    btnFoto.SetParentComponent(Self);\r\n    btnFoto.Name := 'btnFoto';\r\n    btnFoto.Left := 64;\r\n    btnFoto.Top := 196;\r\n    btnFoto.Width := 110;\r\n    btnFoto.Height := 25;\r\n    btnFoto.Caption := '+ Foto';\r\n    btnFoto.ChildOrder := 4;\r\n    btnFoto.ElementClassName := 'btn btn-info m-1 text-left';\r\n    btnFoto.ElementFont := efCSS;\r\n    btnFoto.ElementPosition := epIgnore;\r\n    btnFoto.HeightStyle := ssAuto;\r\n    btnFoto.HeightPercent := 100.000000000000000000;\r\n    btnFoto.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnFoto, Self, 'OnClick', 'btnFotoClick');\r\n    MSGLOESCHEN.SetParentComponent(Self);\r\n    MSGLOESCHEN.Name := 'MSGLOESCHEN';\r\n    MSGLOESCHEN.Left := 136;\r\n    MSGLOESCHEN.Top := 286;\r\n    MSGLOESCHEN.Width := 24;\r\n    MSGLOESCHEN.Height := 24;\r\n    MSGLOESCHEN.HeightStyle := ssAuto;\r\n    MSGLOESCHEN.WidthStyle := ssAuto;\r\n    MSGLOESCHEN.Buttons := [mbYes,mbNo];\r\n    MSGLOESCHEN.DialogType := mtConfirmation;\r\n    MSGLOESCHEN.Message := 'Das L'#246'schen einer Datei kann nicht r'#252'ckg'#228'ngig gemacht werden.Wollen Sie die Datei wirklich l'#246'schen?';\r\n    MSGLOESCHEN.Opacity := 0.200000000000000000;\r\n    MSGLOESCHEN.ElementButtonClassName := 'btn';\r\n    MSGLOESCHEN.ElementDialogClassName := 'shadow-lg p-3 mb-5 bg-white rounded';\r\n    MSGLOESCHEN.ElementTitleClassName := 'text-body';\r\n    MSGLOESCHEN.ElementContentClassName := 'text-body';\r\n    dsDateien.SetParentComponent(Self);\r\n    dsDateien.Name := 'dsDateien';\r\n    dsDateien.AfterApplyUpdates := dsDateienAfterApplyUpdates;\r\n    dsDateien.AfterOpen := dsDateienAfterOpen;\r\n    dsDateien.BeforeDelete := dsDateienBeforeDelete;\r\n    dsDateien.AfterDelete := dsDateienAfterDelete;\r\n    dsDateien.EntitySetName := 'DokumenteDateien';\r\n    dsDateien.Connection := DM2.XDataWebConnection1;\r\n    dsDateien.Left := 116;\r\n    dsDateien.Top := 72;\r\n    dsDateienID.SetParentComponent(dsDateien);\r\n    dsDateienID.Name := 'dsDateienID';\r\n    dsDateienID.FieldName := 'ID';\r\n    dsDateienDatumUhrzeit.SetParentComponent(dsDateien);\r\n    dsDateienDatumUhrzeit.Name := 'dsDateienDatumUhrzeit';\r\n    dsDateienDatumUhrzeit.FieldName := 'DatumUhrzeit';\r\n    dsDateienDatumUhrzeit.Required := True;\r\n    dsDateienDateiMime.SetParentComponent(dsDateien);\r\n    dsDateienDateiMime.Name := 'dsDateienDateiMime';\r\n    dsDateienDateiMime.FieldName := 'DateiMime';\r\n    dsDateienDateiMime.Size := 50;\r\n    dsDateienDateiName.SetParentComponent(dsDateien);\r\n    dsDateienDateiName.Name := 'dsDateienDateiName';\r\n    dsDateienDateiName.FieldName := 'DateiName';\r\n    dsDateienDateiName.Size := 255;\r\n    dsDateienDateiGroesse.SetParentComponent(dsDateien);\r\n    dsDateienDateiGroesse.Name := 'dsDateienDateiGroesse';\r\n    dsDateienDateiGroesse.FieldName := 'DateiGroesse';\r\n    dsDateienDateiInhaltThumb.SetParentComponent(dsDateien);\r\n    dsDateienDateiInhaltThumb.Name := 'dsDateienDateiInhaltThumb';\r\n    dsDateienDateiInhaltThumb.FieldName := 'DateiInhaltThumb';\r\n    dsDateienDateiInhaltThumb.Size := 255;\r\n    dsDateienProtokoll.SetParentComponent(dsDateien);\r\n    dsDateienProtokoll.Name := 'dsDateienProtokoll';\r\n    dsDateienProtokoll.FieldName := 'Protokoll';\r\n    dsDateienProtokoll.Size := 255;\r\n    dsDateienDateiBetreff.SetParentComponent(dsDateien);\r\n    dsDateienDateiBetreff.Name := 'dsDateienDateiBetreff';\r\n    dsDateienDateiBetreff.FieldName := 'DateiBetreff';\r\n    dsDateienDateiBetreff.Size := 50;\r\n    dsDateienKundennummer.SetParentComponent(dsDateien);\r\n    dsDateienKundennummer.Name := 'dsDateienKundennummer';\r\n    dsDateienKundennummer.FieldName := 'Kundennummer';\r\n    dsDateienKundennummer.Size := 13;\r\n    dsDateienNummerkomplett.SetParentComponent(dsDateien);\r\n    dsDateienNummerkomplett.Name := 'dsDateienNummerkomplett';\r\n    dsDateienNummerkomplett.FieldName := 'Nummerkomplett';\r\n    dsDateienNummerkomplett.Size := 10;\r\n    dsDateienObjektReferenz.SetParentComponent(dsDateien);\r\n    dsDateienObjektReferenz.Name := 'dsDateienObjektReferenz';\r\n    dsDateienObjektReferenz.FieldName := 'ObjektReferenz';\r\n    dsDateienObjektReferenz.Size := 13;\r\n    dsDateienFahrzeugID.SetParentComponent(dsDateien);\r\n    dsDateienFahrzeugID.Name := 'dsDateienFahrzeugID';\r\n    dsDateienFahrzeugID.FieldName := 'FahrzeugID';\r\n    sourceDateien.SetParentComponent(Self);\r\n    sourceDateien.Name := 'sourceDateien';\r\n    sourceDateien.DataSet := dsDateien;\r\n    sourceDateien.Left := 32;\r\n    sourceDateien.Top := 72;\r\n    WClient.SetParentComponent(Self);\r\n    WClient.Name := 'WClient';\r\n    WClient.Connection := DM2.XDataWebConnection1;\r\n    WClient.Left := 24;\r\n    WClient.Top := 154;\r\n    xdsProtokolleLoeschungen.SetParentComponent(Self);\r\n    xdsProtokolleLoeschungen.Name := 'xdsProtokolleLoeschungen';\r\n    xdsProtokolleLoeschungen.AfterPost := xdsProtokolleLoeschungenAfterPost;\r\n    xdsProtokolleLoeschungen.EntitySetName := 'ProtokolleLoeschungen';\r\n    xdsProtokolleLoeschungen.Connection := DM2.XDataWebConnection1;\r\n    xdsProtokolleLoeschungen.QueryTop := 1;\r\n    xdsProtokolleLoeschungen.Left := 80;\r\n    xdsProtokolleLoeschungen.Top := 248;\r\n    xdsProtokolleLoeschungenID.SetParentComponent(xdsProtokolleLoeschungen);\r\n    xdsProtokolleLoeschungenID.Name := 'xdsProtokolleLoeschungenID';\r\n    xdsProtokolleLoeschungenID.FieldName := 'ID';\r\n    xdsProtokolleLoeschungenID.Required := True;\r\n    xdsProtokolleLoeschungenID.Size := 38;\r\n    xdsProtokolleLoeschungenDatum.SetParentComponent(xdsProtokolleLoeschungen);\r\n    xdsProtokolleLoeschungenDatum.Name := 'xdsProtokolleLoeschungenDatum';\r\n    xdsProtokolleLoeschungenDatum.FieldName := 'Datum';\r\n    xdsProtokolleLoeschungenBenutzer.SetParentComponent(xdsProtokolleLoeschungen);\r\n    xdsProtokolleLoeschungenBenutzer.Name := 'xdsProtokolleLoeschungenBenutzer';\r\n    xdsProtokolleLoeschungenBenutzer.FieldName := 'Benutzer';\r\n    xdsProtokolleLoeschungenBenutzer.Size := 50;\r\n    xdsProtokolleLoeschungenBelegart.SetParentComponent(xdsProtokolleLoeschungen);\r\n    xdsProtokolleLoeschungenBelegart.Name := 'xdsProtokolleLoeschungenBelegart';\r\n    xdsProtokolleLoeschungenBelegart.FieldName := 'Belegart';\r\n    xdsProtokolleLoeschungenBelegart.Size := 50;\r\n    xdsProtokolleLoeschungenBelegnummer.SetParentComponent(xdsProtokolleLoeschungen);\r\n    xdsProtokolleLoeschungenBelegnummer.Name := 'xdsProtokolleLoeschungenBelegnummer';\r\n    xdsProtokolleLoeschungenBelegnummer.FieldName := 'Belegnummer';\r\n    xdsProtokolleLoeschungenBelegnummer.Size := 25;\r\n    xdsProtokolleLoeschungenProtokoll.SetParentComponent(xdsProtokolleLoeschungen);\r\n    xdsProtokolleLoeschungenProtokoll.Name := 'xdsProtokolleLoeschungenProtokoll';\r\n    xdsProtokolleLoeschungenProtokoll.FieldName := 'Protokoll';\r\n    xdsProtokolleLoeschungenProtokoll.Size := 255;\r\n  finally\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    btnNeu.AfterLoadDFMValues;\r\n    btnFoto.AfterLoadDFMValues;\r\n    MSGLOESCHEN.AfterLoadDFMValues;\r\n    dsDateien.AfterLoadDFMValues;\r\n    dsDateienID.AfterLoadDFMValues;\r\n    dsDateienDatumUhrzeit.AfterLoadDFMValues;\r\n    dsDateienDateiMime.AfterLoadDFMValues;\r\n    dsDateienDateiName.AfterLoadDFMValues;\r\n    dsDateienDateiGroesse.AfterLoadDFMValues;\r\n    dsDateienDateiInhaltThumb.AfterLoadDFMValues;\r\n    dsDateienProtokoll.AfterLoadDFMValues;\r\n    dsDateienDateiBetreff.AfterLoadDFMValues;\r\n    dsDateienKundennummer.AfterLoadDFMValues;\r\n    dsDateienNummerkomplett.AfterLoadDFMValues;\r\n    dsDateienObjektReferenz.AfterLoadDFMValues;\r\n    dsDateienFahrzeugID.AfterLoadDFMValues;\r\n    sourceDateien.AfterLoadDFMValues;\r\n    WClient.AfterLoadDFMValues;\r\n    xdsProtokolleLoeschungen.AfterLoadDFMValues;\r\n    xdsProtokolleLoeschungenID.AfterLoadDFMValues;\r\n    xdsProtokolleLoeschungenDatum.AfterLoadDFMValues;\r\n    xdsProtokolleLoeschungenBenutzer.AfterLoadDFMValues;\r\n    xdsProtokolleLoeschungenBelegart.AfterLoadDFMValues;\r\n    xdsProtokolleLoeschungenBelegnummer.AfterLoadDFMValues;\r\n    xdsProtokolleLoeschungenProtokoll.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit unit_TicketNeu;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, WEBLib.Grids, Data.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, Vcl.Controls, Vcl.StdCtrls, WEBLib.StdCtrls,\r\n  WEBLib.ExtCtrls, DB, WEBLib.WebCtrls;\r\n\r\ntype\r\n  TTicketNeu = class(TForm)\r\n    xdsKontosaldo: TXDataWebDataSet;\r\n    TC: TTableControl;\r\n    xdsTicket: TXDataWebDataSet;\r\n    xdsKontosaldoKundennummer: TStringField;\r\n    xdsKontosaldoZeitaufwand: TIntegerField;\r\n    xdsKontosaldoAbzurechnen: TIntegerField;\r\n    xdsKontosaldoGutschrift: TIntegerField;\r\n    xdsKontosaldoAbzug: TIntegerField;\r\n    xdsKontosaldoSaldo: TIntegerField;\r\n    xdsKontosaldoBetrag: TFloatField;\r\n    xdsKontosaldoMinutenpreis: TFloatField;\r\n    xdsKontosaldoSRestguthaben: TIntegerField;\r\n    xdsTicketKundennummer: TXDataWebEntityField;\r\n    xdsTicketProdukt: TXDataWebEntityField;\r\n    xdsTicketKategorie: TXDataWebEntityField;\r\n    xdsTicketPrioritaet: TXDataWebEntityField;\r\n    xdsTicketStatus: TXDataWebEntityField;\r\n    xdsTicketID: TIntegerField;\r\n    xdsTicketErstelltAm: TDateTimeField;\r\n    xdsTicketBetreff: TStringField;\r\n    xdsTicketBeschreibung: TStringField;\r\n    xdsTicketAbrechnungsbetrag: TFloatField;\r\n    xdsTicketAbrechnungRechnungsnummer: TStringField;\r\n    xdsTicketAberechnetAm: TDateTimeField;\r\n    xdsTicketErledigtAm: TDateTimeField;\r\n    xdsTicketNachname: TStringField;\r\n    xdsTicketVorname: TStringField;\r\n    xdsTicketEmail: TStringField;\r\n    xdsTicketSystemInfo: TStringField;\r\n    xdsTicketLoesung: TStringField;\r\n    xdsTicketProtokoll: TStringField;\r\n    xdsTicketZeitaufwandMinuten: TIntegerField;\r\n    xdsTicketAbzurechnendeMinuten: TIntegerField;\r\n    xdsTicketAbgerechneteMinuten: TIntegerField;\r\n    xdsTicketBenachrichtigungNEU: TDateTimeField;\r\n    xdsTicketBenachrichtigungLoesung: TDateTimeField;\r\n    xdsTicketInterneBemerkung: TStringField;\r\n    xdsTicketLoesungInfoSenden: TIntegerField;\r\n    xdsTicketKontaktperson: TStringField;\r\n    xdsTicketErreichbarkeitTelefon: TStringField;\r\n    xdsTicketErreichbarkeitWann: TStringField;\r\n    xdsProdukte: TXDataWebDataSet;\r\n    xdsProdukteProdukt: TStringField;\r\n    xdsKundendaten: TXDataWebDataSet;\r\n    xdsKundendatenKundennummer: TStringField;\r\n    xdsKundendatenGruppeKunden: TBooleanField;\r\n    xdsKundendatenGruppeLieferanten: TBooleanField;\r\n    xdsKundendatenGruppeSonstige: TBooleanField;\r\n    xdsKundendatenGruppeNichtkunden: TBooleanField;\r\n    xdsKundendatenKontaktgruppe: TStringField;\r\n    xdsKundendatenNachname: TStringField;\r\n    xdsKundendatenVorname: TStringField;\r\n    xdsKundendatenAdresszeile2: TStringField;\r\n    xdsKundendatenAdresszeile3: TStringField;\r\n    xdsKundendatenStrasse: TStringField;\r\n    xdsKundendatenPostleitzahl: TStringField;\r\n    xdsKundendatenOrt: TStringField;\r\n    xdsKundendatenLaenderkuerzel: TStringField;\r\n    xdsKundendatenLand: TStringField;\r\n    xdsKundendatenLaenderkennzeichen: TBooleanField;\r\n    xdsKundendatenAdressanrede: TStringField;\r\n    xdsKundendatenBriefanrede1: TStringField;\r\n    xdsKundendatenAdresseBild: TStringField;\r\n    xdsKundendatenLieferanschrift: TStringField;\r\n    xdsKundendatenTelefonNummer: TStringField;\r\n    xdsKundendatenTelefaxNummer: TStringField;\r\n    xdsKundendatenMobilTelefon: TStringField;\r\n    xdsKundendatenEMail: TStringField;\r\n    xdsKundendatenInternet: TStringField;\r\n    xdsKundendatenUmsatzsteuerID: TStringField;\r\n    xdsKundendatenUmsatzsteuerausweis: TBooleanField;\r\n    xdsKundendatenZahlungsbedingung: TIntegerField;\r\n    xdsKundendatenTransportbedingung: TStringField;\r\n    xdsKundendatenKeinNewsletter: TBooleanField;\r\n    xdsKundendatenTelefonAlternativ: TStringField;\r\n    xdsKundendatenTitel: TStringField;\r\n    xdsKundendatenKundenklasseFarbe: TIntegerField;\r\n    xdsKundendatenRechnungEmail: TStringField;\r\n    xdsKundendatenLoginPW: TStringField;\r\n    xdsKundendatenBesteuerungKey: TIntegerField;\r\n    xdsKundendatenAuftraegeJahr: TFloatField;\r\n    xdsKundendatenAuftraegeVorjahr: TFloatField;\r\n    xdsKundendatenLieferadresseID: TIntegerField;\r\n    xdsKundendatenUSTIDgeprueft: TDateTimeField;\r\n    xdsKundendatenKontaktverbund: TStringField;\r\n    xdsKundendatenHinweis: TStringField;\r\n    xdsKundendatenLatitude: TFloatField;\r\n    xdsKundendatenLongitude: TFloatField;\r\n    xdsKundendatenkmLuftlinie: TFloatField;\r\n    xdsKundendatenGoogleID: TStringField;\r\n    xdsKundendatenGoogleUpdatedUTC: TDateTimeField;\r\n    xdsKundendatenBundesland: TStringField;\r\n    xdsKundendatenRegion: TStringField;\r\n    xdsKundendatenMandatsreferenz: TStringField;\r\n    xdsKundendatenMandatsreferenzVom: TDateTimeField;\r\n    xdsKundendatenLastschriftArt: TStringField;\r\n    xdsKundendatenMahnsperre: TBooleanField;\r\n    xdsKundendatenSuchbegriff: TStringField;\r\n    xdsKundendatenLieferanschriftDaten: TStringField;\r\n    xdsKundendatenExportKasse: TBooleanField;\r\n    xdsKundendatenLoeschvormerkungDatum: TDateTimeField;\r\n    xdsKundendatenLoeschvormerkungGrund: TStringField;\r\n    xdsKundendatenPseudonymisiert: TStringField;\r\n    xdsKundendatenLoginAktiv: TIntegerField;\r\n    xdsKundendatenSonstigeDaten: TStringField;\r\n    xdsStatus: TXDataWebDataSet;\r\n    xdsStatusStatus: TStringField;\r\n    xdsKategorie: TXDataWebDataSet;\r\n    xdsKategorieKategorie: TStringField;\r\n    xdsprioritaet: TXDataWebDataSet;\r\n    xdsprioritaetPrioritaet: TIntegerField;\r\n    xdsprioritaetPrioText: TStringField;\r\n    xdsprioritaetPrioFarbe: TIntegerField;\r\n    xdsTicketDateien: TXDataWebDataSet;\r\n    xdsTicketDateienTicketID: TXDataWebEntityField;\r\n    xdsTicketDateienID: TIntegerField;\r\n    xdsTicketDateienDatumUhrzeit: TDateTimeField;\r\n    xdsTicketDateienFuerLoesung: TIntegerField;\r\n    xdsTicketDateienDateiMime: TStringField;\r\n    xdsTicketDateienDateiName: TStringField;\r\n    xdsTicketDateienDateiGroesse: TIntegerField;\r\n    xdsTicketDateienDateiInhaltText: TStringField;\r\n    WebFilePicker1: TFilePicker;\r\n    WebFilePicker2: TFilePicker;\r\n    WebFilePicker3: TFilePicker;\r\n    xdsticket2: TXDataWebDataSet;\r\n    xdsTicketKontaktpersonEmail: TStringField;\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    PanelTop: TPanel;\r\n    lblSeite: TLabel;\r\n    panelfunctions: TPanel;\r\n    btnzurueck: TButton;\r\n    xdsticket2Kundennummer: TXDataWebEntityField;\r\n    xdsticket2Produkt: TXDataWebEntityField;\r\n    xdsticket2Kategorie: TXDataWebEntityField;\r\n    xdsticket2Prioritaet: TXDataWebEntityField;\r\n    xdsticket2Status: TXDataWebEntityField;\r\n    xdsticket2ID: TIntegerField;\r\n    xdsticket2ErstelltAm: TDateTimeField;\r\n    xdsticket2Betreff: TStringField;\r\n    xdsticket2Beschreibung: TStringField;\r\n    xdsticket2Abrechnungsbetrag: TFloatField;\r\n    xdsticket2AbrechnungRechnungsnummer: TStringField;\r\n    xdsticket2AberechnetAm: TDateTimeField;\r\n    xdsticket2ErledigtAm: TDateTimeField;\r\n    xdsticket2Nachname: TStringField;\r\n    xdsticket2Vorname: TStringField;\r\n    xdsticket2Email: TStringField;\r\n    xdsticket2SystemInfo: TStringField;\r\n    xdsticket2Loesung: TStringField;\r\n    xdsticket2Protokoll: TStringField;\r\n    xdsticket2ZeitaufwandMinuten: TIntegerField;\r\n    xdsticket2AbzurechnendeMinuten: TIntegerField;\r\n    xdsticket2AbgerechneteMinuten: TIntegerField;\r\n    xdsticket2BenachrichtigungNEU: TDateTimeField;\r\n    xdsticket2BenachrichtigungLoesung: TDateTimeField;\r\n    xdsticket2InterneBemerkung: TStringField;\r\n    xdsticket2LoesungInfoSenden: TIntegerField;\r\n    xdsticket2Kontaktperson: TStringField;\r\n    xdsticket2KontaktpersonEmail: TStringField;\r\n    xdsticket2ErreichbarkeitTelefon: TStringField;\r\n    xdsticket2ErreichbarkeitWann: TStringField;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure xdsKontosaldoAfterOpen(DataSet: TDataSet);\r\n    procedure xdsProdukteAfterOpen(DataSet: TDataSet);\r\n    procedure xdsTicketAfterOpen(DataSet: TDataSet);\r\n    procedure xdsKundendatenAfterOpen(DataSet: TDataSet);\r\n    procedure xdsTicketAfterPost(DataSet: TDataSet);\r\n    procedure xdsTicketAfterApplyUpdates(Sender: TDataSet;\r\n      Info: TResolveResults);\r\n    procedure xdsStatusAfterOpen(DataSet: TDataSet);\r\n    procedure xdsKategorieAfterOpen(DataSet: TDataSet);\r\n    procedure xdsprioritaetAfterOpen(DataSet: TDataSet);\r\n    procedure xdsTicketDateienNewRecord(DataSet: TDataSet);\r\n    procedure WebFilePicker1Change(Sender: TObject);\r\n    procedure xdsticket2AfterOpen(DataSet: TDataSet);\r\n    procedure WebFilePicker1GetFileAsBase64(Sender: TObject;\r\n      AFileIndex: Integer; ABase64: string);\r\n    procedure WebFilePicker2Change(Sender: TObject);\r\n    procedure WebFilePicker3Change(Sender: TObject);\r\n    procedure WebFilePicker2GetFileAsBase64(Sender: TObject;\r\n      AFileIndex: Integer; ABase64: string);\r\n    procedure WebFilePicker3GetFileAsBase64(Sender: TObject;\r\n      AFileIndex: Integer; ABase64: string);\r\n    procedure xdsTicketDateienAfterApplyUpdates(Sender: TDataSet;\r\n      Info: TResolveResults);\r\n    procedure xdsTicketDateienAfterOpen(DataSet: TDataSet);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    TicketNeuFuerKundennummer:string;\r\n    TicketNeuBetreff:string;\r\n    TicketNeuText:string;\r\n    NewTicketNumber:string;\r\n    btnAbsenden:TButton;\r\n    procedure btnAbsendenclick(Sender:TObject);\r\n    procedure Formularaktualisieren;\r\n    procedure uploadfilepickers;\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  TicketNeu: TTicketNeu;\r\n  edtTicketGrund:TComboBox;\r\n  edtBetreff:TEdit;\r\n  edtBeschreibung:TMemo;\r\n  edtKontaktperson:TEdit;\r\n  edtKontaktpersonEmail:TEdit;\r\n  edtTelefon:TEdit;\r\n  edtWann:TEdit;\r\n  edtSystemInfo:TMemo;\r\n  file1base64str1:string;\r\n  file1base64str2:string;\r\n  file1base64str3:string;\r\n\r\nimplementation\r\n  uses unit1, unit2;\r\n{$R *.dfm}\r\n\r\nprocedure TTicketNeu.uploadfilepickers;\r\nvar\r\n  hasnewrecord:boolean;\r\nbegin\r\n  hasnewrecord:=false;\r\n  if file1base64str1<>'' then\r\n  begin\r\n    xdsTicketDateien.Append();\r\n    xdsTicketDateienTicketID.Value:=xdsticket2.CurrentData;\r\n    xdsTicketDateienDatumUhrzeit.AsDateTime:=Date+time;\r\n    xdsTicketDateienFuerLoesung.AsInteger:=0;\r\n    xdsTicketDateienDateiMime.AsString:=WebFilePicker1.Files.Items[0].MimeType;\r\n    xdsTicketDateienDateiGroesse.AsInteger:=WebFilePicker1.Files.Items[0].Size;\r\n    xdsTicketDateienDateiName.AsString:=WebFilePicker1.Files.Items[0].Name;\r\n    xdsTicketDateienDateiInhaltText.AsString:=file1base64str1;\r\n    xdsTicketDateien.Post();\r\n    hasnewrecord:=true;\r\n  end;\r\n  if file1base64str2<>'' then\r\n  begin\r\n    xdsTicketDateien.Append();\r\n    xdsTicketDateienTicketID.Value:=xdsticket2.CurrentData;\r\n    xdsTicketDateienDatumUhrzeit.AsDateTime:=Date+time;\r\n    xdsTicketDateienFuerLoesung.AsInteger:=0;\r\n    xdsTicketDateienDateiMime.AsString:=WebFilePicker2.Files.Items[0].MimeType;\r\n    xdsTicketDateienDateiGroesse.AsInteger:=WebFilePicker2.Files.Items[0].Size;\r\n    xdsTicketDateienDateiName.AsString:=WebFilePicker2.Files.Items[0].Name;\r\n    xdsTicketDateienDateiInhaltText.AsString:=file1base64str2;\r\n    xdsTicketDateien.Post();\r\n    hasnewrecord:=true;\r\n  end;\r\n  if file1base64str3<>'' then\r\n  begin\r\n    xdsTicketDateien.Append();\r\n    xdsTicketDateienTicketID.Value:=xdsticket2.CurrentData;\r\n    xdsTicketDateienDatumUhrzeit.AsDateTime:=Date+time;\r\n    xdsTicketDateienFuerLoesung.AsInteger:=0;\r\n    xdsTicketDateienDateiMime.AsString:=WebFilePicker3.Files.Items[0].MimeType;\r\n    xdsTicketDateienDateiGroesse.AsInteger:=WebFilePicker3.Files.Items[0].Size;\r\n    xdsTicketDateienDateiName.AsString:=WebFilePicker3.Files.Items[0].Name;\r\n    xdsTicketDateienDateiInhaltText.AsString:=file1base64str3;\r\n    xdsTicketDateien.Post();\r\n    hasnewrecord:=true;\r\n  end;\r\n  if hasnewrecord=true then\r\n  begin\r\n    xdsticketdateien.ApplyUpdates;\r\n  end\r\n  else\r\n  begin\r\n    showmessage('Das Ticket wurde erfolgreich erstellt.');\r\n    close;\r\n  end;\r\nend;\r\n\r\nprocedure TTicketNeu.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  close;\r\nend;\r\n\r\nprocedure TTicketNeu.btnAbsendenClick(Sender: TObject);\r\nbegin\r\n  if edtBetreff.Text='' then\r\n  begin\r\n    showmessage('Sie müssen einen Betreff eingeben');\r\n    exit;\r\n  end;\r\n  if edtBeschreibung.Text='' then\r\n  begin\r\n    showmessage('Sie müssen eine Beschreibung eingeben');\r\n    exit;\r\n  end;\r\n  if edtKontaktperson.Text='' then\r\n  begin\r\n    showmessage('Sie müssen eine Kontaktperson eingeben');\r\n    exit;\r\n  end;\r\n  if edtTelefon.Text='' then\r\n  begin\r\n    showmessage('Sie müssen eine Telefonnummer eingeben');\r\n    exit;\r\n  end;\r\n  if edtWann.Text='' then\r\n  begin\r\n    showmessage('Sie müssen die Erreichbarkeit eingeben');\r\n    exit;\r\n  end;\r\n  if edtTicketGrund.Text='' then\r\n  begin\r\n    showmessage('Sie müssen einen Grund/Produkt auswählen');\r\n    exit;\r\n  end;\r\n\r\n  if edtKontaktpersonEmail.Text<>'' then\r\n  begin\r\n    if Not form1.ValidateEmail(edtKontaktpersonEmail.text) then\r\n    begin\r\n      edtKontaktpersonEmail.SetFocus;\r\n      showmessage('Kontaktperson Email ist nicht gültig');\r\n      exit;\r\n    end;\r\n   end;\r\n  xdsProdukte.Locate('Produkt',edtTicketGrund.Text,[]);\r\n\r\n  xdsTicket.Append;\r\n  xdsTicketKundennummer.Value:=xdsKundendaten.CurrentData;\r\n  xdsTicketProdukt.Value:=xdsProdukte.CurrentData;\r\n  xdsTicketStatus.Value:=xdsStatus.CurrentData;\r\n  xdsTicketKategorie.Value:=xdsKategorie.CurrentData;\r\n  xdsTicketPrioritaet.Value:=xdsprioritaet.CurrentData;\r\n  xdsTicketErstelltAm.AsDateTime:=date+time;\r\n  xdsTicketBetreff.AsString:=edtBetreff.Text;\r\n  xdsTicketBeschreibung.AsString:=edtBeschreibung.Text;\r\n  xdsTicketAbrechnungsbetrag.AsFloat:=0;\r\n  xdsTicketSystemInfo.AsString:=edtSystemInfo.Text;\r\n  xdsTicketZeitaufwandMinuten.AsInteger:=0;\r\n  xdsTicketAbzurechnendeMinuten.AsInteger:=0;\r\n  xdsTicketKontaktperson.AsString:=edtKontaktperson.Text;\r\n  xdsTicketKontaktpersonEmail.AsString:=edtKontaktpersonEmail.Text;\r\n  xdsTicketErreichbarkeitTelefon.AsString:=edtTelefon.Text;\r\n  xdsTicketErreichbarkeitWann.AsString:=edtWann.Text;\r\n  xdsTicketNachname.AsString:=xdsKundendatenNachname.AsString;\r\n  xdsTicketVorname.AsString:=xdsKundendatenVorname.AsString;\r\n  xdsTicketEmail.AsString:=xdsKundendatenEMail.AsString;\r\n  xdsTicketProtokoll.AsString:=datetimetostr(date+time)+' NEU Kundenportal';\r\n  xdsticket.Post;\r\nend;\r\n\r\nprocedure TTicketNeu.Formularaktualisieren;\r\nvar\r\n  i:integer;\r\n  myelement:TJSHTMLElement;\r\n  myhtmlstring:string;\r\nbegin\r\n  myelement:=container1.ElementHandle;\r\n  paneltop.parentelement:=myelement;\r\n  panelfunctions.ParentElement:=myelement;\r\n  container2.ParentElement:=myelement;\r\n\r\n  myelement:=paneltop.ElementHandle;\r\n  lblseite.ParentElement:=myelement;\r\n\r\n  myelement:=panelfunctions.ElementHandle;\r\n  btnZurueck.ParentElement:=myelement;\r\n\r\n  myelement:=container2.ElementHandle;\r\n  tc.ParentElement:=myelement;\r\n\r\n  TC.ColCount:=1;\r\n  tc.RowCount:=19;\r\n\r\n  i:=0;\r\n\r\n  tc.Cells[0,i]:='<h5>Daten für das neue Ticket';\r\n  inc(i);\r\n  TC.Cells[0,i]:='Produkt auswählen*<br>';\r\n  myelement:=TC.CellElements[0,i];\r\n  edtTicketGrund:=TComboBox.Create(self);\r\n  edtTicketGrund.ElementClassName:='form-control';\r\n  edtTicketGrund.Width:=400;\r\n  edtTicketGrund.HeightStyle:=ssAuto;\r\n  edtTicketGrund.ItemIndex:=-1;\r\n  edtTicketGrund.ParentElement:=myelement;\r\n  edtTicketGrund.Items.Clear;\r\n  xdsProdukte.First;\r\n  while not xdsProdukte.eof do\r\n  begin\r\n    edtTicketGrund.Items.Add(xdsProdukteProdukt.AsString);\r\n    xdsProdukte.Next;\r\n  end;\r\n\r\n\r\n  inc(i);\r\n  TC.Cells[0,i]:='Betreff*<br>';\r\n  myelement:=TC.CellElements[0,i];\r\n  edtBetreff:=TEdit.Create(self);\r\n  edtBetreff.ElementClassName:='form-control';\r\n  edtBetreff.Width:=400;\r\n  edtBetreff.HeightStyle:=ssAuto;\r\n  edtBetreff.TextHint:='Betreff';\r\n  edtBetreff.MaxLength:=100;\r\n  edtBetreff.ParentElement:=myelement;\r\n\r\n  if TicketNeuBetreff<>'' then\r\n  begin\r\n    edtbetreff.Text:=TicketNeuBetreff;\r\n    ticketneubetreff:='';\r\n  end;\r\n\r\n  inc(i);\r\n  TC.Cells[0,i]:='Beschreibung*<br>';\r\n  myelement:=TC.CellElements[0,i];\r\n  edtBeschreibung:=TMemo.Create(self);\r\n  edtBeschreibung.ElementClassName:='form-control';\r\n  edtBeschreibung.WidthStyle:=ssAuto;\r\n  edtBeschreibung.Height:=200;\r\n  edtBeschreibung.HeightStyle:=ssAbsolute;\r\n  edtBeschreibung.TextHint:='Beschreibung';\r\n  edtBeschreibung.ParentElement:=myelement;\r\n  if TicketNeuText<>'' then\r\n  begin\r\n    edtbeschreibung.Text:=TicketNeuText;\r\n    TicketNeuText:='';\r\n  end;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Kontaktperson*<br>';\r\n  myelement:=TC.CellElements[0,i];\r\n  edtKontaktperson:=TEdit.Create(self);\r\n  edtKontaktperson.ElementClassName:='form-control';\r\n  edtKontaktperson.Width:=400;\r\n  edtKontaktperson.HeightStyle:=ssAuto;\r\n  edtKontaktperson.TextHint:='Ansprechpartner für diese Ticket';\r\n  edtKontaktperson.MaxLength:=100;\r\n  edtKontaktperson.ParentElement:=myelement;\r\n\r\n  inc(i);\r\n  TC.Cells[0,i]:='Kontaktperson Email für Ticket-Benachrichtigungen (optional)<br>';\r\n  myelement:=TC.CellElements[0,i];\r\n  edtKontaktpersonEmail:=TEdit.Create(self);\r\n  edtKontaktpersonEmail.ElementClassName:='form-control email';\r\n  edtKontaktpersonEmail.Width:=400;\r\n  edtKontaktpersonEmail.HeightStyle:=ssAuto;\r\n  edtKontaktpersonEmail.TextHint:='Benachrichtigungen zusätzlich an diese Emailadresse senden';\r\n  edtKontaktpersonEmail.MaxLength:=100;\r\n  edtKontaktpersonEmail.ParentElement:=myelement;\r\n\r\n  inc(i);\r\n  TC.Cells[0,i]:='Ihre Telefonnummer*<br>';\r\n  myelement:=TC.CellElements[0,i];\r\n  edtTelefon:=TEdit.Create(self);\r\n  edtTelefon.ElementClassName:='form-control';\r\n  edtTelefon.Width:=400;\r\n  edtTelefon.HeightStyle:=ssAuto;\r\n  edtTelefon.TextHint:='Ansprechpartner Telefonnummer';\r\n  edtTelefon.MaxLength:=100;\r\n  edtTelefon.ParentElement:=myelement;\r\n\r\n  inc(i);\r\n  TC.Cells[0,i]:='Wann sind Sie erreichbar?*<br>';\r\n  myelement:=TC.CellElements[0,i];\r\n  edtWann:=TEdit.Create(self);\r\n  edtWann.ElementClassName:='form-control';\r\n  edtWann.Width:=400;\r\n  edtWann.HeightStyle:=ssAuto;\r\n  edtWann.TextHint:='Uhrzeit für Erreichbarkeit';\r\n  edtWann.MaxLength:=100;\r\n  edtWann.ParentElement:=myelement;\r\n\r\n  inc(i);\r\n  TC.Cells[0,i]:='Informationen zum Betriebssystem, Programmversions-Nr. und -Datum, andere hilfreiche Infos<br>';\r\n  myelement:=TC.CellElements[0,i];\r\n  edtSystemInfo:=TMemo.Create(self);\r\n  edtSystemInfo.ElementClassName:='form-control';\r\n  edtSystemInfo.WidthStyle:=ssAuto;\r\n  edtSystemInfo.Height:=200;\r\n  edtSystemInfo.HeightStyle:=ssAbsolute;\r\n  edtSystemInfo.TextHint:='weitere Infos';\r\n  edtSystemInfo.ParentElement:=myelement;\r\n\r\n  inc(i);\r\n  TC.Cells[0,i]:='Anlagen (max. 3 Dateien) JPG, JPEG, PNG, PDF, ZIP, TXT (max. 2 MB pro Datei) hinzufügen:';\r\n\r\n  inc(i);\r\n  myelement:=TC.cellelements[0,i];\r\n  WebFilePicker1.ParentElement:=myelement;\r\n\r\n  inc(i);\r\n  myelement:=TC.cellelements[0,i];\r\n  WebFilePicker2.ParentElement:=myelement;\r\n\r\n  inc(i);\r\n  myelement:=TC.cellelements[0,i];\r\n  WebFilePicker3.ParentElement:=myelement;\r\n\r\n  inc(i);\r\n  myelement:=TC.cellelements[0,i];\r\n  btnAbsenden:=TButton.Create(self);\r\n  btnAbsenden.ElementClassName:='btn btn-sm bg-info m-1';\r\n  btnAbsenden.HeightStyle:=ssauto;\r\n  btnAbsenden.WidthStyle:=ssauto;\r\n  btnAbsenden.tag:=0;\r\n  btnAbsenden.Caption:='Absenden';\r\n  btnAbsenden.OnClick:=@btnAbsendenClick;\r\n  btnAbsenden.ParentElement:=myelement;\r\n\r\n\r\n\r\n\r\nend;\r\n\r\nprocedure TTicketNeu.WebFilePicker1Change(Sender: TObject);\r\nbegin\r\n  file1base64str1:='';\r\n  if WebFilePicker1.Files.Count>0 then\r\n  begin\r\n    if WebFilePicker1.Files.Items[0].Size<2097153 then\r\n    begin\r\n      webfilepicker1.Files.Items[0].GetFileAsBase64;\r\n    end\r\n    else\r\n    begin\r\n      showmessage('Datei ist zu groß, bitte andere Datei wählen');\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTicketNeu.WebFilePicker1GetFileAsBase64(Sender: TObject;\r\n  AFileIndex: Integer; ABase64: string);\r\nbegin\r\n  file1base64str1:= 'data:' + WebFilePicker1.Files.Items[0].MimeType + ';base64,' + ABase64;\r\nend;\r\n\r\nprocedure TTicketNeu.WebFilePicker2Change(Sender: TObject);\r\nbegin\r\n  file1base64str2:='';\r\n  if WebFilePicker2.Files.Count>0 then\r\n  begin\r\n    if WebFilePicker2.Files.Items[0].Size<2097153 then\r\n    begin\r\n      webfilepicker2.Files.Items[0].GetFileAsBase64;\r\n    end\r\n    else\r\n    begin\r\n      showmessage('Datei ist zu groß, bitte andere Datei wählen');\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTicketNeu.WebFilePicker2GetFileAsBase64(Sender: TObject;\r\n  AFileIndex: Integer; ABase64: string);\r\nbegin\r\nfile1base64str2:= 'data:' + WebFilePicker2.Files.Items[0].MimeType + ';base64,' + ABase64;\r\nend;\r\n\r\nprocedure TTicketNeu.WebFilePicker3Change(Sender: TObject);\r\nbegin\r\n  file1base64str3:='';\r\n  if WebFilePicker3.Files.Count>0 then\r\n  begin\r\n    if WebFilePicker3.Files.Items[0].Size<2097153 then\r\n    begin\r\n      webfilepicker3.Files.Items[0].GetFileAsBase64;\r\n    end\r\n    else\r\n    begin\r\n      showmessage('Datei ist zu groß, bitte andere Datei wählen');\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TTicketNeu.WebFilePicker3GetFileAsBase64(Sender: TObject;\r\n  AFileIndex: Integer; ABase64: string);\r\nbegin\r\n  file1base64str3:= 'data:' + WebFilePicker3.Files.Items[0].MimeType + ';base64,' + ABase64;\r\nend;\r\n\r\nprocedure TTicketNeu.WebFormShow(Sender: TObject);\r\nbegin\r\n  xdsKontosaldo.Close;\r\n  xdsKontosaldo.QueryString:='$filter=Kundennummer eq '+QuotedStr(TicketNeuFuerKundennummer);\r\n  xdsKontosaldo.Load;\r\nend;\r\n\r\nprocedure TTicketNeu.xdsKategorieAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  xdsKategorie.Locate('Kategorie','[-]',[]);\r\n  xdsprioritaet.Load;\r\n\r\nend;\r\n\r\nprocedure TTicketNeu.xdsKontosaldoAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  xdsProdukte.Load;\r\n\r\nend;\r\n\r\nprocedure TTicketNeu.xdsKundendatenAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  xdsStatus.Load;\r\n\r\nend;\r\n\r\nprocedure TTicketNeu.xdsprioritaetAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  xdsprioritaet.Locate('Prioritaet','3',[]);\r\n  Formularaktualisieren;\r\nend;\r\n\r\nprocedure TTicketNeu.xdsProdukteAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  xdsTicket.Load;\r\nend;\r\n\r\nprocedure TTicketNeu.xdsStatusAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  xdsStatus.Locate('Status','ungelesen',[]);\r\n  xdsKategorie.Load;\r\n\r\nend;\r\n\r\nprocedure TTicketNeu.xdsticket2AfterOpen(DataSet: TDataSet);\r\nbegin\r\n  NewTicketNumber:=xdsticket2id.asstring;\r\n  uploadfilepickers;\r\nend;\r\n\r\nprocedure TTicketNeu.xdsTicketAfterApplyUpdates(Sender: TDataSet;\r\n  Info: TResolveResults);\r\n  var\r\n  i:integer;\r\nbegin\r\n  for i := 0 to High(info.Records) do\r\n  begin\r\n    if info.Records[i].Error<>'' then showmessage(info.Records[i].Error);\r\n  end;\r\n  if info.Records[0].Error='' then\r\n  begin\r\n    xdsticket2.Load;\r\n\r\n  end;\r\nend;\r\n\r\nprocedure TTicketNeu.xdsTicketAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  xdsTicketDateien.Load;\r\nend;\r\n\r\nprocedure TTicketNeu.xdsTicketAfterPost(DataSet: TDataSet);\r\nbegin\r\n  xdsTicket.ApplyUpdates;\r\nend;\r\n\r\nprocedure TTicketNeu.xdsTicketDateienAfterApplyUpdates(Sender: TDataSet;\r\n  Info: TResolveResults);\r\n  var\r\n  i:integer;\r\nbegin\r\n  for i := 0 to High(info.Records) do\r\n  begin\r\n    if info.Records[i].Error<>'' then showmessage(info.Records[i].Error);\r\n  end;\r\n  if info.Records[0].Error='' then\r\n  begin\r\n    showmessage('Das Ticket wurde erfolgreich erstellt.');\r\n    close;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TTicketNeu.xdsTicketDateienAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  xdsKundendaten.Close;\r\n  xdsKundendaten.QueryString:='$filter=Kundennummer eq '+QuotedStr(TicketNeuFuerKundennummer);\r\n  xdsKundendaten.Load;\r\nend;\r\n\r\nprocedure TTicketNeu.xdsTicketDateienNewRecord(DataSet: TDataSet);\r\nbegin\r\n  xdsTicketDateienDatumUhrzeit.AsDateTime:=date+time;\r\n  xdsTicketDateienFuerLoesung.AsInteger:=0;\r\n  xdsTicketDateienTicketID.Value:=xdsTicket.CurrentData;\r\nend;\r\n\r\nprocedure TTicketNeu.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  TC := TTableControl.Create(Self);\r\n  WebFilePicker1 := TFilePicker.Create(Self);\r\n  WebFilePicker2 := TFilePicker.Create(Self);\r\n  WebFilePicker3 := TFilePicker.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  PanelTop := TPanel.Create(Self);\r\n  lblSeite := TLabel.Create(Self);\r\n  panelfunctions := TPanel.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  xdsKontosaldo := TXDataWebDataSet.Create(Self);\r\n  xdsKontosaldoKundennummer := TStringField.Create(Self);\r\n  xdsKontosaldoZeitaufwand := TIntegerField.Create(Self);\r\n  xdsKontosaldoAbzurechnen := TIntegerField.Create(Self);\r\n  xdsKontosaldoGutschrift := TIntegerField.Create(Self);\r\n  xdsKontosaldoAbzug := TIntegerField.Create(Self);\r\n  xdsKontosaldoSaldo := TIntegerField.Create(Self);\r\n  xdsKontosaldoBetrag := TFloatField.Create(Self);\r\n  xdsKontosaldoMinutenpreis := TFloatField.Create(Self);\r\n  xdsKontosaldoSRestguthaben := TIntegerField.Create(Self);\r\n  xdsTicket := TXDataWebDataSet.Create(Self);\r\n  xdsTicketKundennummer := TXDataWebEntityField.Create(Self);\r\n  xdsTicketProdukt := TXDataWebEntityField.Create(Self);\r\n  xdsTicketKategorie := TXDataWebEntityField.Create(Self);\r\n  xdsTicketPrioritaet := TXDataWebEntityField.Create(Self);\r\n  xdsTicketStatus := TXDataWebEntityField.Create(Self);\r\n  xdsTicketID := TIntegerField.Create(Self);\r\n  xdsTicketErstelltAm := TDateTimeField.Create(Self);\r\n  xdsTicketBetreff := TStringField.Create(Self);\r\n  xdsTicketBeschreibung := TStringField.Create(Self);\r\n  xdsTicketAbrechnungsbetrag := TFloatField.Create(Self);\r\n  xdsTicketAbrechnungRechnungsnummer := TStringField.Create(Self);\r\n  xdsTicketAberechnetAm := TDateTimeField.Create(Self);\r\n  xdsTicketErledigtAm := TDateTimeField.Create(Self);\r\n  xdsTicketNachname := TStringField.Create(Self);\r\n  xdsTicketVorname := TStringField.Create(Self);\r\n  xdsTicketEmail := TStringField.Create(Self);\r\n  xdsTicketSystemInfo := TStringField.Create(Self);\r\n  xdsTicketLoesung := TStringField.Create(Self);\r\n  xdsTicketProtokoll := TStringField.Create(Self);\r\n  xdsTicketZeitaufwandMinuten := TIntegerField.Create(Self);\r\n  xdsTicketAbzurechnendeMinuten := TIntegerField.Create(Self);\r\n  xdsTicketAbgerechneteMinuten := TIntegerField.Create(Self);\r\n  xdsTicketBenachrichtigungNEU := TDateTimeField.Create(Self);\r\n  xdsTicketBenachrichtigungLoesung := TDateTimeField.Create(Self);\r\n  xdsTicketInterneBemerkung := TStringField.Create(Self);\r\n  xdsTicketLoesungInfoSenden := TIntegerField.Create(Self);\r\n  xdsTicketKontaktperson := TStringField.Create(Self);\r\n  xdsTicketErreichbarkeitTelefon := TStringField.Create(Self);\r\n  xdsTicketErreichbarkeitWann := TStringField.Create(Self);\r\n  xdsTicketKontaktpersonEmail := TStringField.Create(Self);\r\n  xdsProdukte := TXDataWebDataSet.Create(Self);\r\n  xdsProdukteProdukt := TStringField.Create(Self);\r\n  xdsKundendaten := TXDataWebDataSet.Create(Self);\r\n  xdsKundendatenKundennummer := TStringField.Create(Self);\r\n  xdsKundendatenGruppeKunden := TBooleanField.Create(Self);\r\n  xdsKundendatenGruppeLieferanten := TBooleanField.Create(Self);\r\n  xdsKundendatenGruppeSonstige := TBooleanField.Create(Self);\r\n  xdsKundendatenGruppeNichtkunden := TBooleanField.Create(Self);\r\n  xdsKundendatenKontaktgruppe := TStringField.Create(Self);\r\n  xdsKundendatenNachname := TStringField.Create(Self);\r\n  xdsKundendatenVorname := TStringField.Create(Self);\r\n  xdsKundendatenAdresszeile2 := TStringField.Create(Self);\r\n  xdsKundendatenAdresszeile3 := TStringField.Create(Self);\r\n  xdsKundendatenStrasse := TStringField.Create(Self);\r\n  xdsKundendatenPostleitzahl := TStringField.Create(Self);\r\n  xdsKundendatenOrt := TStringField.Create(Self);\r\n  xdsKundendatenLaenderkuerzel := TStringField.Create(Self);\r\n  xdsKundendatenLand := TStringField.Create(Self);\r\n  xdsKundendatenLaenderkennzeichen := TBooleanField.Create(Self);\r\n  xdsKundendatenAdressanrede := TStringField.Create(Self);\r\n  xdsKundendatenBriefanrede1 := TStringField.Create(Self);\r\n  xdsKundendatenAdresseBild := TStringField.Create(Self);\r\n  xdsKundendatenLieferanschrift := TStringField.Create(Self);\r\n  xdsKundendatenTelefonNummer := TStringField.Create(Self);\r\n  xdsKundendatenTelefaxNummer := TStringField.Create(Self);\r\n  xdsKundendatenMobilTelefon := TStringField.Create(Self);\r\n  xdsKundendatenEMail := TStringField.Create(Self);\r\n  xdsKundendatenInternet := TStringField.Create(Self);\r\n  xdsKundendatenUmsatzsteuerID := TStringField.Create(Self);\r\n  xdsKundendatenUmsatzsteuerausweis := TBooleanField.Create(Self);\r\n  xdsKundendatenZahlungsbedingung := TIntegerField.Create(Self);\r\n  xdsKundendatenTransportbedingung := TStringField.Create(Self);\r\n  xdsKundendatenKeinNewsletter := TBooleanField.Create(Self);\r\n  xdsKundendatenTelefonAlternativ := TStringField.Create(Self);\r\n  xdsKundendatenTitel := TStringField.Create(Self);\r\n  xdsKundendatenKundenklasseFarbe := TIntegerField.Create(Self);\r\n  xdsKundendatenRechnungEmail := TStringField.Create(Self);\r\n  xdsKundendatenLoginPW := TStringField.Create(Self);\r\n  xdsKundendatenBesteuerungKey := TIntegerField.Create(Self);\r\n  xdsKundendatenAuftraegeJahr := TFloatField.Create(Self);\r\n  xdsKundendatenAuftraegeVorjahr := TFloatField.Create(Self);\r\n  xdsKundendatenLieferadresseID := TIntegerField.Create(Self);\r\n  xdsKundendatenUSTIDgeprueft := TDateTimeField.Create(Self);\r\n  xdsKundendatenKontaktverbund := TStringField.Create(Self);\r\n  xdsKundendatenHinweis := TStringField.Create(Self);\r\n  xdsKundendatenLatitude := TFloatField.Create(Self);\r\n  xdsKundendatenLongitude := TFloatField.Create(Self);\r\n  xdsKundendatenkmLuftlinie := TFloatField.Create(Self);\r\n  xdsKundendatenGoogleID := TStringField.Create(Self);\r\n  xdsKundendatenGoogleUpdatedUTC := TDateTimeField.Create(Self);\r\n  xdsKundendatenBundesland := TStringField.Create(Self);\r\n  xdsKundendatenRegion := TStringField.Create(Self);\r\n  xdsKundendatenMandatsreferenz := TStringField.Create(Self);\r\n  xdsKundendatenMandatsreferenzVom := TDateTimeField.Create(Self);\r\n  xdsKundendatenLastschriftArt := TStringField.Create(Self);\r\n  xdsKundendatenMahnsperre := TBooleanField.Create(Self);\r\n  xdsKundendatenSuchbegriff := TStringField.Create(Self);\r\n  xdsKundendatenLieferanschriftDaten := TStringField.Create(Self);\r\n  xdsKundendatenExportKasse := TBooleanField.Create(Self);\r\n  xdsKundendatenLoeschvormerkungDatum := TDateTimeField.Create(Self);\r\n  xdsKundendatenLoeschvormerkungGrund := TStringField.Create(Self);\r\n  xdsKundendatenPseudonymisiert := TStringField.Create(Self);\r\n  xdsKundendatenLoginAktiv := TIntegerField.Create(Self);\r\n  xdsKundendatenSonstigeDaten := TStringField.Create(Self);\r\n  xdsStatus := TXDataWebDataSet.Create(Self);\r\n  xdsStatusStatus := TStringField.Create(Self);\r\n  xdsKategorie := TXDataWebDataSet.Create(Self);\r\n  xdsKategorieKategorie := TStringField.Create(Self);\r\n  xdsprioritaet := TXDataWebDataSet.Create(Self);\r\n  xdsprioritaetPrioritaet := TIntegerField.Create(Self);\r\n  xdsprioritaetPrioText := TStringField.Create(Self);\r\n  xdsprioritaetPrioFarbe := TIntegerField.Create(Self);\r\n  xdsTicketDateien := TXDataWebDataSet.Create(Self);\r\n  xdsTicketDateienTicketID := TXDataWebEntityField.Create(Self);\r\n  xdsTicketDateienID := TIntegerField.Create(Self);\r\n  xdsTicketDateienDatumUhrzeit := TDateTimeField.Create(Self);\r\n  xdsTicketDateienFuerLoesung := TIntegerField.Create(Self);\r\n  xdsTicketDateienDateiMime := TStringField.Create(Self);\r\n  xdsTicketDateienDateiName := TStringField.Create(Self);\r\n  xdsTicketDateienDateiGroesse := TIntegerField.Create(Self);\r\n  xdsTicketDateienDateiInhaltText := TStringField.Create(Self);\r\n  xdsticket2 := TXDataWebDataSet.Create(Self);\r\n  xdsticket2Kundennummer := TXDataWebEntityField.Create(Self);\r\n  xdsticket2Produkt := TXDataWebEntityField.Create(Self);\r\n  xdsticket2Kategorie := TXDataWebEntityField.Create(Self);\r\n  xdsticket2Prioritaet := TXDataWebEntityField.Create(Self);\r\n  xdsticket2Status := TXDataWebEntityField.Create(Self);\r\n  xdsticket2ID := TIntegerField.Create(Self);\r\n  xdsticket2ErstelltAm := TDateTimeField.Create(Self);\r\n  xdsticket2Betreff := TStringField.Create(Self);\r\n  xdsticket2Beschreibung := TStringField.Create(Self);\r\n  xdsticket2Abrechnungsbetrag := TFloatField.Create(Self);\r\n  xdsticket2AbrechnungRechnungsnummer := TStringField.Create(Self);\r\n  xdsticket2AberechnetAm := TDateTimeField.Create(Self);\r\n  xdsticket2ErledigtAm := TDateTimeField.Create(Self);\r\n  xdsticket2Nachname := TStringField.Create(Self);\r\n  xdsticket2Vorname := TStringField.Create(Self);\r\n  xdsticket2Email := TStringField.Create(Self);\r\n  xdsticket2SystemInfo := TStringField.Create(Self);\r\n  xdsticket2Loesung := TStringField.Create(Self);\r\n  xdsticket2Protokoll := TStringField.Create(Self);\r\n  xdsticket2ZeitaufwandMinuten := TIntegerField.Create(Self);\r\n  xdsticket2AbzurechnendeMinuten := TIntegerField.Create(Self);\r\n  xdsticket2AbgerechneteMinuten := TIntegerField.Create(Self);\r\n  xdsticket2BenachrichtigungNEU := TDateTimeField.Create(Self);\r\n  xdsticket2BenachrichtigungLoesung := TDateTimeField.Create(Self);\r\n  xdsticket2InterneBemerkung := TStringField.Create(Self);\r\n  xdsticket2LoesungInfoSenden := TIntegerField.Create(Self);\r\n  xdsticket2Kontaktperson := TStringField.Create(Self);\r\n  xdsticket2KontaktpersonEmail := TStringField.Create(Self);\r\n  xdsticket2ErreichbarkeitTelefon := TStringField.Create(Self);\r\n  xdsticket2ErreichbarkeitWann := TStringField.Create(Self);\r\n\r\n  TC.BeforeLoadDFMValues;\r\n  WebFilePicker1.BeforeLoadDFMValues;\r\n  WebFilePicker2.BeforeLoadDFMValues;\r\n  WebFilePicker3.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  PanelTop.BeforeLoadDFMValues;\r\n  lblSeite.BeforeLoadDFMValues;\r\n  panelfunctions.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  xdsKontosaldo.BeforeLoadDFMValues;\r\n  xdsKontosaldoKundennummer.BeforeLoadDFMValues;\r\n  xdsKontosaldoZeitaufwand.BeforeLoadDFMValues;\r\n  xdsKontosaldoAbzurechnen.BeforeLoadDFMValues;\r\n  xdsKontosaldoGutschrift.BeforeLoadDFMValues;\r\n  xdsKontosaldoAbzug.BeforeLoadDFMValues;\r\n  xdsKontosaldoSaldo.BeforeLoadDFMValues;\r\n  xdsKontosaldoBetrag.BeforeLoadDFMValues;\r\n  xdsKontosaldoMinutenpreis.BeforeLoadDFMValues;\r\n  xdsKontosaldoSRestguthaben.BeforeLoadDFMValues;\r\n  xdsTicket.BeforeLoadDFMValues;\r\n  xdsTicketKundennummer.BeforeLoadDFMValues;\r\n  xdsTicketProdukt.BeforeLoadDFMValues;\r\n  xdsTicketKategorie.BeforeLoadDFMValues;\r\n  xdsTicketPrioritaet.BeforeLoadDFMValues;\r\n  xdsTicketStatus.BeforeLoadDFMValues;\r\n  xdsTicketID.BeforeLoadDFMValues;\r\n  xdsTicketErstelltAm.BeforeLoadDFMValues;\r\n  xdsTicketBetreff.BeforeLoadDFMValues;\r\n  xdsTicketBeschreibung.BeforeLoadDFMValues;\r\n  xdsTicketAbrechnungsbetrag.BeforeLoadDFMValues;\r\n  xdsTicketAbrechnungRechnungsnummer.BeforeLoadDFMValues;\r\n  xdsTicketAberechnetAm.BeforeLoadDFMValues;\r\n  xdsTicketErledigtAm.BeforeLoadDFMValues;\r\n  xdsTicketNachname.BeforeLoadDFMValues;\r\n  xdsTicketVorname.BeforeLoadDFMValues;\r\n  xdsTicketEmail.BeforeLoadDFMValues;\r\n  xdsTicketSystemInfo.BeforeLoadDFMValues;\r\n  xdsTicketLoesung.BeforeLoadDFMValues;\r\n  xdsTicketProtokoll.BeforeLoadDFMValues;\r\n  xdsTicketZeitaufwandMinuten.BeforeLoadDFMValues;\r\n  xdsTicketAbzurechnendeMinuten.BeforeLoadDFMValues;\r\n  xdsTicketAbgerechneteMinuten.BeforeLoadDFMValues;\r\n  xdsTicketBenachrichtigungNEU.BeforeLoadDFMValues;\r\n  xdsTicketBenachrichtigungLoesung.BeforeLoadDFMValues;\r\n  xdsTicketInterneBemerkung.BeforeLoadDFMValues;\r\n  xdsTicketLoesungInfoSenden.BeforeLoadDFMValues;\r\n  xdsTicketKontaktperson.BeforeLoadDFMValues;\r\n  xdsTicketErreichbarkeitTelefon.BeforeLoadDFMValues;\r\n  xdsTicketErreichbarkeitWann.BeforeLoadDFMValues;\r\n  xdsTicketKontaktpersonEmail.BeforeLoadDFMValues;\r\n  xdsProdukte.BeforeLoadDFMValues;\r\n  xdsProdukteProdukt.BeforeLoadDFMValues;\r\n  xdsKundendaten.BeforeLoadDFMValues;\r\n  xdsKundendatenKundennummer.BeforeLoadDFMValues;\r\n  xdsKundendatenGruppeKunden.BeforeLoadDFMValues;\r\n  xdsKundendatenGruppeLieferanten.BeforeLoadDFMValues;\r\n  xdsKundendatenGruppeSonstige.BeforeLoadDFMValues;\r\n  xdsKundendatenGruppeNichtkunden.BeforeLoadDFMValues;\r\n  xdsKundendatenKontaktgruppe.BeforeLoadDFMValues;\r\n  xdsKundendatenNachname.BeforeLoadDFMValues;\r\n  xdsKundendatenVorname.BeforeLoadDFMValues;\r\n  xdsKundendatenAdresszeile2.BeforeLoadDFMValues;\r\n  xdsKundendatenAdresszeile3.BeforeLoadDFMValues;\r\n  xdsKundendatenStrasse.BeforeLoadDFMValues;\r\n  xdsKundendatenPostleitzahl.BeforeLoadDFMValues;\r\n  xdsKundendatenOrt.BeforeLoadDFMValues;\r\n  xdsKundendatenLaenderkuerzel.BeforeLoadDFMValues;\r\n  xdsKundendatenLand.BeforeLoadDFMValues;\r\n  xdsKundendatenLaenderkennzeichen.BeforeLoadDFMValues;\r\n  xdsKundendatenAdressanrede.BeforeLoadDFMValues;\r\n  xdsKundendatenBriefanrede1.BeforeLoadDFMValues;\r\n  xdsKundendatenAdresseBild.BeforeLoadDFMValues;\r\n  xdsKundendatenLieferanschrift.BeforeLoadDFMValues;\r\n  xdsKundendatenTelefonNummer.BeforeLoadDFMValues;\r\n  xdsKundendatenTelefaxNummer.BeforeLoadDFMValues;\r\n  xdsKundendatenMobilTelefon.BeforeLoadDFMValues;\r\n  xdsKundendatenEMail.BeforeLoadDFMValues;\r\n  xdsKundendatenInternet.BeforeLoadDFMValues;\r\n  xdsKundendatenUmsatzsteuerID.BeforeLoadDFMValues;\r\n  xdsKundendatenUmsatzsteuerausweis.BeforeLoadDFMValues;\r\n  xdsKundendatenZahlungsbedingung.BeforeLoadDFMValues;\r\n  xdsKundendatenTransportbedingung.BeforeLoadDFMValues;\r\n  xdsKundendatenKeinNewsletter.BeforeLoadDFMValues;\r\n  xdsKundendatenTelefonAlternativ.BeforeLoadDFMValues;\r\n  xdsKundendatenTitel.BeforeLoadDFMValues;\r\n  xdsKundendatenKundenklasseFarbe.BeforeLoadDFMValues;\r\n  xdsKundendatenRechnungEmail.BeforeLoadDFMValues;\r\n  xdsKundendatenLoginPW.BeforeLoadDFMValues;\r\n  xdsKundendatenBesteuerungKey.BeforeLoadDFMValues;\r\n  xdsKundendatenAuftraegeJahr.BeforeLoadDFMValues;\r\n  xdsKundendatenAuftraegeVorjahr.BeforeLoadDFMValues;\r\n  xdsKundendatenLieferadresseID.BeforeLoadDFMValues;\r\n  xdsKundendatenUSTIDgeprueft.BeforeLoadDFMValues;\r\n  xdsKundendatenKontaktverbund.BeforeLoadDFMValues;\r\n  xdsKundendatenHinweis.BeforeLoadDFMValues;\r\n  xdsKundendatenLatitude.BeforeLoadDFMValues;\r\n  xdsKundendatenLongitude.BeforeLoadDFMValues;\r\n  xdsKundendatenkmLuftlinie.BeforeLoadDFMValues;\r\n  xdsKundendatenGoogleID.BeforeLoadDFMValues;\r\n  xdsKundendatenGoogleUpdatedUTC.BeforeLoadDFMValues;\r\n  xdsKundendatenBundesland.BeforeLoadDFMValues;\r\n  xdsKundendatenRegion.BeforeLoadDFMValues;\r\n  xdsKundendatenMandatsreferenz.BeforeLoadDFMValues;\r\n  xdsKundendatenMandatsreferenzVom.BeforeLoadDFMValues;\r\n  xdsKundendatenLastschriftArt.BeforeLoadDFMValues;\r\n  xdsKundendatenMahnsperre.BeforeLoadDFMValues;\r\n  xdsKundendatenSuchbegriff.BeforeLoadDFMValues;\r\n  xdsKundendatenLieferanschriftDaten.BeforeLoadDFMValues;\r\n  xdsKundendatenExportKasse.BeforeLoadDFMValues;\r\n  xdsKundendatenLoeschvormerkungDatum.BeforeLoadDFMValues;\r\n  xdsKundendatenLoeschvormerkungGrund.BeforeLoadDFMValues;\r\n  xdsKundendatenPseudonymisiert.BeforeLoadDFMValues;\r\n  xdsKundendatenLoginAktiv.BeforeLoadDFMValues;\r\n  xdsKundendatenSonstigeDaten.BeforeLoadDFMValues;\r\n  xdsStatus.BeforeLoadDFMValues;\r\n  xdsStatusStatus.BeforeLoadDFMValues;\r\n  xdsKategorie.BeforeLoadDFMValues;\r\n  xdsKategorieKategorie.BeforeLoadDFMValues;\r\n  xdsprioritaet.BeforeLoadDFMValues;\r\n  xdsprioritaetPrioritaet.BeforeLoadDFMValues;\r\n  xdsprioritaetPrioText.BeforeLoadDFMValues;\r\n  xdsprioritaetPrioFarbe.BeforeLoadDFMValues;\r\n  xdsTicketDateien.BeforeLoadDFMValues;\r\n  xdsTicketDateienTicketID.BeforeLoadDFMValues;\r\n  xdsTicketDateienID.BeforeLoadDFMValues;\r\n  xdsTicketDateienDatumUhrzeit.BeforeLoadDFMValues;\r\n  xdsTicketDateienFuerLoesung.BeforeLoadDFMValues;\r\n  xdsTicketDateienDateiMime.BeforeLoadDFMValues;\r\n  xdsTicketDateienDateiName.BeforeLoadDFMValues;\r\n  xdsTicketDateienDateiGroesse.BeforeLoadDFMValues;\r\n  xdsTicketDateienDateiInhaltText.BeforeLoadDFMValues;\r\n  xdsticket2.BeforeLoadDFMValues;\r\n  xdsticket2Kundennummer.BeforeLoadDFMValues;\r\n  xdsticket2Produkt.BeforeLoadDFMValues;\r\n  xdsticket2Kategorie.BeforeLoadDFMValues;\r\n  xdsticket2Prioritaet.BeforeLoadDFMValues;\r\n  xdsticket2Status.BeforeLoadDFMValues;\r\n  xdsticket2ID.BeforeLoadDFMValues;\r\n  xdsticket2ErstelltAm.BeforeLoadDFMValues;\r\n  xdsticket2Betreff.BeforeLoadDFMValues;\r\n  xdsticket2Beschreibung.BeforeLoadDFMValues;\r\n  xdsticket2Abrechnungsbetrag.BeforeLoadDFMValues;\r\n  xdsticket2AbrechnungRechnungsnummer.BeforeLoadDFMValues;\r\n  xdsticket2AberechnetAm.BeforeLoadDFMValues;\r\n  xdsticket2ErledigtAm.BeforeLoadDFMValues;\r\n  xdsticket2Nachname.BeforeLoadDFMValues;\r\n  xdsticket2Vorname.BeforeLoadDFMValues;\r\n  xdsticket2Email.BeforeLoadDFMValues;\r\n  xdsticket2SystemInfo.BeforeLoadDFMValues;\r\n  xdsticket2Loesung.BeforeLoadDFMValues;\r\n  xdsticket2Protokoll.BeforeLoadDFMValues;\r\n  xdsticket2ZeitaufwandMinuten.BeforeLoadDFMValues;\r\n  xdsticket2AbzurechnendeMinuten.BeforeLoadDFMValues;\r\n  xdsticket2AbgerechneteMinuten.BeforeLoadDFMValues;\r\n  xdsticket2BenachrichtigungNEU.BeforeLoadDFMValues;\r\n  xdsticket2BenachrichtigungLoesung.BeforeLoadDFMValues;\r\n  xdsticket2InterneBemerkung.BeforeLoadDFMValues;\r\n  xdsticket2LoesungInfoSenden.BeforeLoadDFMValues;\r\n  xdsticket2Kontaktperson.BeforeLoadDFMValues;\r\n  xdsticket2KontaktpersonEmail.BeforeLoadDFMValues;\r\n  xdsticket2ErreichbarkeitTelefon.BeforeLoadDFMValues;\r\n  xdsticket2ErreichbarkeitWann.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'TicketNeu';\r\n    Width := 617;\r\n    Height := 480;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.Left := 0;\r\n    TC.Top := 344;\r\n    TC.Width := 190;\r\n    TC.Height := 136;\r\n    TC.ElementClassName := 'table table-hover table-bordered table-striped';\r\n    TC.HeightStyle := ssAuto;\r\n    TC.WidthStyle := ssPercent;\r\n    TC.BorderColor := clSilver;\r\n    TC.ChildOrder := 2;\r\n    TC.ColHeader := False;\r\n    TC.ElementFont := efCSS;\r\n    TC.ElementHeaderClassName := 'table-primary';\r\n    TC.ElementPosition := epIgnore;\r\n    TC.ElementTableClassName := 'table table-hover table-bordered table-striped';\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 2;\r\n    WebFilePicker1.SetParentComponent(Self);\r\n    WebFilePicker1.Name := 'WebFilePicker1';\r\n    WebFilePicker1.Left := 32;\r\n    WebFilePicker1.Top := 216;\r\n    WebFilePicker1.Width := 129;\r\n    WebFilePicker1.Height := 19;\r\n    WebFilePicker1.ElementClassName := 'form-control';\r\n    WebFilePicker1.HeightStyle := ssAuto;\r\n    WebFilePicker1.WidthStyle := ssAuto;\r\n    WebFilePicker1.Accept := '.jpg,.jpeg,.png,.txt,.pdf,.zip';\r\n    WebFilePicker1.ChildOrder := 1;\r\n    WebFilePicker1.ElementFont := efCSS;\r\n    WebFilePicker1.ElementPosition := epIgnore;\r\n    SetEvent(WebFilePicker1, Self, 'OnChange', 'WebFilePicker1Change');\r\n    SetEvent(WebFilePicker1, Self, 'OnGetFileAsBase64', 'WebFilePicker1GetFileAsBase64');\r\n    WebFilePicker2.SetParentComponent(Self);\r\n    WebFilePicker2.Name := 'WebFilePicker2';\r\n    WebFilePicker2.Left := 32;\r\n    WebFilePicker2.Top := 241;\r\n    WebFilePicker2.Width := 129;\r\n    WebFilePicker2.Height := 19;\r\n    WebFilePicker2.ElementClassName := 'form-control';\r\n    WebFilePicker2.HeightStyle := ssAuto;\r\n    WebFilePicker2.WidthStyle := ssAuto;\r\n    WebFilePicker2.Accept := '.jpg,.jpeg,.png,.pdf,.txt';\r\n    WebFilePicker2.ChildOrder := 1;\r\n    WebFilePicker2.ElementFont := efCSS;\r\n    WebFilePicker2.ElementPosition := epIgnore;\r\n    SetEvent(WebFilePicker2, Self, 'OnChange', 'WebFilePicker2Change');\r\n    SetEvent(WebFilePicker2, Self, 'OnGetFileAsBase64', 'WebFilePicker2GetFileAsBase64');\r\n    WebFilePicker3.SetParentComponent(Self);\r\n    WebFilePicker3.Name := 'WebFilePicker3';\r\n    WebFilePicker3.Left := 32;\r\n    WebFilePicker3.Top := 266;\r\n    WebFilePicker3.Width := 129;\r\n    WebFilePicker3.Height := 19;\r\n    WebFilePicker3.ElementClassName := 'form-control';\r\n    WebFilePicker3.HeightStyle := ssAuto;\r\n    WebFilePicker3.WidthStyle := ssAuto;\r\n    WebFilePicker3.Accept := '.jpg,.jpeg,.png,.pdf,.txt';\r\n    WebFilePicker3.ChildOrder := 1;\r\n    WebFilePicker3.ElementFont := efCSS;\r\n    WebFilePicker3.ElementPosition := epIgnore;\r\n    SetEvent(WebFilePicker3, Self, 'OnChange', 'WebFilePicker3Change');\r\n    SetEvent(WebFilePicker3, Self, 'OnGetFileAsBase64', 'WebFilePicker3GetFileAsBase64');\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.ElementClassName := 'container-fluid rounded';\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ChildOrder := 2;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 5;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    Container2.ScrollStyle := ssNone;\r\n    PanelTop.SetParentComponent(Self);\r\n    PanelTop.Name := 'PanelTop';\r\n    PanelTop.Left := 0;\r\n    PanelTop.Top := 94;\r\n    PanelTop.Width := 463;\r\n    PanelTop.Height := 76;\r\n    PanelTop.ElementClassName := 'd-flex flex-wrap bg-info rounded';\r\n    PanelTop.HeightStyle := ssAuto;\r\n    PanelTop.WidthStyle := ssPercent;\r\n    PanelTop.BorderStyle := bsNone;\r\n    PanelTop.Caption := 'WebPanel1';\r\n    PanelTop.ChildOrder := 2;\r\n    PanelTop.Color := 8340248;\r\n    PanelTop.ElementFont := efCSS;\r\n    PanelTop.ElementPosition := epIgnore;\r\n    PanelTop.ShowCaption := False;\r\n    lblSeite.SetParentComponent(PanelTop);\r\n    lblSeite.Name := 'lblSeite';\r\n    lblSeite.Left := 1;\r\n    lblSeite.Top := 1;\r\n    lblSeite.Width := 163;\r\n    lblSeite.Height := 25;\r\n    lblSeite.AutoSize := False;\r\n    lblSeite.Caption := 'Neues Ticket';\r\n    lblSeite.ElementClassName := 'h2 text-light m-1';\r\n    lblSeite.ElementLabelClassName := 'align-self-start';\r\n    lblSeite.ElementFont := efCSS;\r\n    lblSeite.ElementPosition := epIgnore;\r\n    lblSeite.Font.Charset := DEFAULT_CHARSET;\r\n    lblSeite.Font.Color := clWindowText;\r\n    lblSeite.Font.Height := -19;\r\n    lblSeite.Font.Name := 'Segoe UI';\r\n    lblSeite.Font.Style := [];\r\n    lblSeite.HeightStyle := ssAuto;\r\n    lblSeite.HeightPercent := 100.000000000000000000;\r\n    lblSeite.ParentFont := False;\r\n    lblSeite.WidthStyle := ssPercent;\r\n    lblSeite.WidthPercent := 100.000000000000000000;\r\n    panelfunctions.SetParentComponent(Self);\r\n    panelfunctions.Name := 'panelfunctions';\r\n    panelfunctions.Left := 8;\r\n    panelfunctions.Top := 212;\r\n    panelfunctions.Width := 257;\r\n    panelfunctions.Height := 37;\r\n    panelfunctions.ElementClassName := 'd-flex flex-wrap';\r\n    panelfunctions.HeightStyle := ssAuto;\r\n    panelfunctions.WidthStyle := ssPercent;\r\n    panelfunctions.BorderColor := 13892310;\r\n    panelfunctions.BorderStyle := bsNone;\r\n    panelfunctions.ChildOrder := 1;\r\n    panelfunctions.Color := clWhite;\r\n    panelfunctions.ElementFont := efCSS;\r\n    panelfunctions.ElementPosition := epIgnore;\r\n    panelfunctions.ShowCaption := False;\r\n    btnzurueck.SetParentComponent(panelfunctions);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 0;\r\n    btnzurueck.Top := 3;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-sm bg-info m-1';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    xdsKontosaldo.SetParentComponent(Self);\r\n    xdsKontosaldo.Name := 'xdsKontosaldo';\r\n    xdsKontosaldo.AfterOpen := xdsKontosaldoAfterOpen;\r\n    xdsKontosaldo.EntitySetName := 'ITS_Kontosalden';\r\n    xdsKontosaldo.Connection := DM2.XDataWebConnection1;\r\n    xdsKontosaldo.Left := 32;\r\n    xdsKontosaldo.Top := 288;\r\n    xdsKontosaldoKundennummer.SetParentComponent(xdsKontosaldo);\r\n    xdsKontosaldoKundennummer.Name := 'xdsKontosaldoKundennummer';\r\n    xdsKontosaldoKundennummer.FieldName := 'Kundennummer';\r\n    xdsKontosaldoKundennummer.Required := True;\r\n    xdsKontosaldoKundennummer.Size := 13;\r\n    xdsKontosaldoZeitaufwand.SetParentComponent(xdsKontosaldo);\r\n    xdsKontosaldoZeitaufwand.Name := 'xdsKontosaldoZeitaufwand';\r\n    xdsKontosaldoZeitaufwand.FieldName := 'Zeitaufwand';\r\n    xdsKontosaldoAbzurechnen.SetParentComponent(xdsKontosaldo);\r\n    xdsKontosaldoAbzurechnen.Name := 'xdsKontosaldoAbzurechnen';\r\n    xdsKontosaldoAbzurechnen.FieldName := 'Abzurechnen';\r\n    xdsKontosaldoGutschrift.SetParentComponent(xdsKontosaldo);\r\n    xdsKontosaldoGutschrift.Name := 'xdsKontosaldoGutschrift';\r\n    xdsKontosaldoGutschrift.FieldName := 'Gutschrift';\r\n    xdsKontosaldoAbzug.SetParentComponent(xdsKontosaldo);\r\n    xdsKontosaldoAbzug.Name := 'xdsKontosaldoAbzug';\r\n    xdsKontosaldoAbzug.FieldName := 'Abzug';\r\n    xdsKontosaldoSaldo.SetParentComponent(xdsKontosaldo);\r\n    xdsKontosaldoSaldo.Name := 'xdsKontosaldoSaldo';\r\n    xdsKontosaldoSaldo.FieldName := 'Saldo';\r\n    xdsKontosaldoBetrag.SetParentComponent(xdsKontosaldo);\r\n    xdsKontosaldoBetrag.Name := 'xdsKontosaldoBetrag';\r\n    xdsKontosaldoBetrag.FieldName := 'Betrag';\r\n    xdsKontosaldoMinutenpreis.SetParentComponent(xdsKontosaldo);\r\n    xdsKontosaldoMinutenpreis.Name := 'xdsKontosaldoMinutenpreis';\r\n    xdsKontosaldoMinutenpreis.FieldName := 'Minutenpreis';\r\n    xdsKontosaldoSRestguthaben.SetParentComponent(xdsKontosaldo);\r\n    xdsKontosaldoSRestguthaben.Name := 'xdsKontosaldoSRestguthaben';\r\n    xdsKontosaldoSRestguthaben.FieldName := 'SRestguthaben';\r\n    xdsTicket.SetParentComponent(Self);\r\n    xdsTicket.Name := 'xdsTicket';\r\n    xdsTicket.AfterApplyUpdates := xdsTicketAfterApplyUpdates;\r\n    xdsTicket.AfterOpen := xdsTicketAfterOpen;\r\n    xdsTicket.AfterPost := xdsTicketAfterPost;\r\n    xdsTicket.EntitySetName := 'ITS_TicketMain';\r\n    xdsTicket.Connection := DM2.XDataWebConnection1;\r\n    xdsTicket.QueryTop := 1;\r\n    xdsTicket.Left := 32;\r\n    xdsTicket.Top := 360;\r\n    xdsTicketKundennummer.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummer.Name := 'xdsTicketKundennummer';\r\n    xdsTicketKundennummer.FieldName := 'Kundennummer';\r\n    xdsTicketProdukt.SetParentComponent(xdsTicket);\r\n    xdsTicketProdukt.Name := 'xdsTicketProdukt';\r\n    xdsTicketProdukt.FieldName := 'Produkt';\r\n    xdsTicketKategorie.SetParentComponent(xdsTicket);\r\n    xdsTicketKategorie.Name := 'xdsTicketKategorie';\r\n    xdsTicketKategorie.FieldName := 'Kategorie';\r\n    xdsTicketPrioritaet.SetParentComponent(xdsTicket);\r\n    xdsTicketPrioritaet.Name := 'xdsTicketPrioritaet';\r\n    xdsTicketPrioritaet.FieldName := 'Prioritaet';\r\n    xdsTicketStatus.SetParentComponent(xdsTicket);\r\n    xdsTicketStatus.Name := 'xdsTicketStatus';\r\n    xdsTicketStatus.FieldName := 'Status';\r\n    xdsTicketID.SetParentComponent(xdsTicket);\r\n    xdsTicketID.Name := 'xdsTicketID';\r\n    xdsTicketID.FieldName := 'ID';\r\n    xdsTicketID.Required := True;\r\n    xdsTicketErstelltAm.SetParentComponent(xdsTicket);\r\n    xdsTicketErstelltAm.Name := 'xdsTicketErstelltAm';\r\n    xdsTicketErstelltAm.FieldName := 'ErstelltAm';\r\n    xdsTicketBetreff.SetParentComponent(xdsTicket);\r\n    xdsTicketBetreff.Name := 'xdsTicketBetreff';\r\n    xdsTicketBetreff.FieldName := 'Betreff';\r\n    xdsTicketBetreff.Size := 100;\r\n    xdsTicketBeschreibung.SetParentComponent(xdsTicket);\r\n    xdsTicketBeschreibung.Name := 'xdsTicketBeschreibung';\r\n    xdsTicketBeschreibung.FieldName := 'Beschreibung';\r\n    xdsTicketBeschreibung.Size := 255;\r\n    xdsTicketAbrechnungsbetrag.SetParentComponent(xdsTicket);\r\n    xdsTicketAbrechnungsbetrag.Name := 'xdsTicketAbrechnungsbetrag';\r\n    xdsTicketAbrechnungsbetrag.FieldName := 'Abrechnungsbetrag';\r\n    xdsTicketAbrechnungRechnungsnummer.SetParentComponent(xdsTicket);\r\n    xdsTicketAbrechnungRechnungsnummer.Name := 'xdsTicketAbrechnungRechnungsnummer';\r\n    xdsTicketAbrechnungRechnungsnummer.FieldName := 'AbrechnungRechnungsnummer';\r\n    xdsTicketAbrechnungRechnungsnummer.Size := 10;\r\n    xdsTicketAberechnetAm.SetParentComponent(xdsTicket);\r\n    xdsTicketAberechnetAm.Name := 'xdsTicketAberechnetAm';\r\n    xdsTicketAberechnetAm.FieldName := 'AberechnetAm';\r\n    xdsTicketErledigtAm.SetParentComponent(xdsTicket);\r\n    xdsTicketErledigtAm.Name := 'xdsTicketErledigtAm';\r\n    xdsTicketErledigtAm.FieldName := 'ErledigtAm';\r\n    xdsTicketNachname.SetParentComponent(xdsTicket);\r\n    xdsTicketNachname.Name := 'xdsTicketNachname';\r\n    xdsTicketNachname.FieldName := 'Nachname';\r\n    xdsTicketNachname.Size := 40;\r\n    xdsTicketVorname.SetParentComponent(xdsTicket);\r\n    xdsTicketVorname.Name := 'xdsTicketVorname';\r\n    xdsTicketVorname.FieldName := 'Vorname';\r\n    xdsTicketVorname.Size := 40;\r\n    xdsTicketEmail.SetParentComponent(xdsTicket);\r\n    xdsTicketEmail.Name := 'xdsTicketEmail';\r\n    xdsTicketEmail.FieldName := 'Email';\r\n    xdsTicketEmail.Size := 50;\r\n    xdsTicketSystemInfo.SetParentComponent(xdsTicket);\r\n    xdsTicketSystemInfo.Name := 'xdsTicketSystemInfo';\r\n    xdsTicketSystemInfo.FieldName := 'SystemInfo';\r\n    xdsTicketSystemInfo.Size := 255;\r\n    xdsTicketLoesung.SetParentComponent(xdsTicket);\r\n    xdsTicketLoesung.Name := 'xdsTicketLoesung';\r\n    xdsTicketLoesung.FieldName := 'Loesung';\r\n    xdsTicketLoesung.Size := 255;\r\n    xdsTicketProtokoll.SetParentComponent(xdsTicket);\r\n    xdsTicketProtokoll.Name := 'xdsTicketProtokoll';\r\n    xdsTicketProtokoll.FieldName := 'Protokoll';\r\n    xdsTicketProtokoll.Size := 255;\r\n    xdsTicketZeitaufwandMinuten.SetParentComponent(xdsTicket);\r\n    xdsTicketZeitaufwandMinuten.Name := 'xdsTicketZeitaufwandMinuten';\r\n    xdsTicketZeitaufwandMinuten.FieldName := 'ZeitaufwandMinuten';\r\n    xdsTicketAbzurechnendeMinuten.SetParentComponent(xdsTicket);\r\n    xdsTicketAbzurechnendeMinuten.Name := 'xdsTicketAbzurechnendeMinuten';\r\n    xdsTicketAbzurechnendeMinuten.FieldName := 'AbzurechnendeMinuten';\r\n    xdsTicketAbgerechneteMinuten.SetParentComponent(xdsTicket);\r\n    xdsTicketAbgerechneteMinuten.Name := 'xdsTicketAbgerechneteMinuten';\r\n    xdsTicketAbgerechneteMinuten.FieldName := 'AbgerechneteMinuten';\r\n    xdsTicketBenachrichtigungNEU.SetParentComponent(xdsTicket);\r\n    xdsTicketBenachrichtigungNEU.Name := 'xdsTicketBenachrichtigungNEU';\r\n    xdsTicketBenachrichtigungNEU.FieldName := 'BenachrichtigungNEU';\r\n    xdsTicketBenachrichtigungLoesung.SetParentComponent(xdsTicket);\r\n    xdsTicketBenachrichtigungLoesung.Name := 'xdsTicketBenachrichtigungLoesung';\r\n    xdsTicketBenachrichtigungLoesung.FieldName := 'BenachrichtigungLoesung';\r\n    xdsTicketInterneBemerkung.SetParentComponent(xdsTicket);\r\n    xdsTicketInterneBemerkung.Name := 'xdsTicketInterneBemerkung';\r\n    xdsTicketInterneBemerkung.FieldName := 'InterneBemerkung';\r\n    xdsTicketInterneBemerkung.Size := 255;\r\n    xdsTicketLoesungInfoSenden.SetParentComponent(xdsTicket);\r\n    xdsTicketLoesungInfoSenden.Name := 'xdsTicketLoesungInfoSenden';\r\n    xdsTicketLoesungInfoSenden.FieldName := 'LoesungInfoSenden';\r\n    xdsTicketKontaktperson.SetParentComponent(xdsTicket);\r\n    xdsTicketKontaktperson.Name := 'xdsTicketKontaktperson';\r\n    xdsTicketKontaktperson.FieldName := 'Kontaktperson';\r\n    xdsTicketKontaktperson.Size := 100;\r\n    xdsTicketErreichbarkeitTelefon.SetParentComponent(xdsTicket);\r\n    xdsTicketErreichbarkeitTelefon.Name := 'xdsTicketErreichbarkeitTelefon';\r\n    xdsTicketErreichbarkeitTelefon.FieldName := 'ErreichbarkeitTelefon';\r\n    xdsTicketErreichbarkeitTelefon.Size := 100;\r\n    xdsTicketErreichbarkeitWann.SetParentComponent(xdsTicket);\r\n    xdsTicketErreichbarkeitWann.Name := 'xdsTicketErreichbarkeitWann';\r\n    xdsTicketErreichbarkeitWann.FieldName := 'ErreichbarkeitWann';\r\n    xdsTicketErreichbarkeitWann.Size := 100;\r\n    xdsTicketKontaktpersonEmail.SetParentComponent(xdsTicket);\r\n    xdsTicketKontaktpersonEmail.Name := 'xdsTicketKontaktpersonEmail';\r\n    xdsTicketKontaktpersonEmail.FieldName := 'KontaktpersonEmail';\r\n    xdsTicketKontaktpersonEmail.Size := 100;\r\n    xdsProdukte.SetParentComponent(Self);\r\n    xdsProdukte.Name := 'xdsProdukte';\r\n    xdsProdukte.AfterOpen := xdsProdukteAfterOpen;\r\n    xdsProdukte.EntitySetName := 'ITS_Produkte';\r\n    xdsProdukte.Connection := DM2.XDataWebConnection1;\r\n    xdsProdukte.Left := 32;\r\n    xdsProdukte.Top := 416;\r\n    xdsProdukteProdukt.SetParentComponent(xdsProdukte);\r\n    xdsProdukteProdukt.Name := 'xdsProdukteProdukt';\r\n    xdsProdukteProdukt.FieldName := 'Produkt';\r\n    xdsProdukteProdukt.Required := True;\r\n    xdsProdukteProdukt.Size := 50;\r\n    xdsKundendaten.SetParentComponent(Self);\r\n    xdsKundendaten.Name := 'xdsKundendaten';\r\n    xdsKundendaten.AfterOpen := xdsKundendatenAfterOpen;\r\n    xdsKundendaten.EntitySetName := 'Adressen';\r\n    xdsKundendaten.Connection := DM2.XDataWebConnection1;\r\n    xdsKundendaten.Left := 32;\r\n    xdsKundendaten.Top := 232;\r\n    xdsKundendatenKundennummer.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenKundennummer.Name := 'xdsKundendatenKundennummer';\r\n    xdsKundendatenKundennummer.FieldName := 'Kundennummer';\r\n    xdsKundendatenKundennummer.Required := True;\r\n    xdsKundendatenKundennummer.Size := 13;\r\n    xdsKundendatenGruppeKunden.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenGruppeKunden.Name := 'xdsKundendatenGruppeKunden';\r\n    xdsKundendatenGruppeKunden.FieldName := 'GruppeKunden';\r\n    xdsKundendatenGruppeLieferanten.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenGruppeLieferanten.Name := 'xdsKundendatenGruppeLieferanten';\r\n    xdsKundendatenGruppeLieferanten.FieldName := 'GruppeLieferanten';\r\n    xdsKundendatenGruppeSonstige.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenGruppeSonstige.Name := 'xdsKundendatenGruppeSonstige';\r\n    xdsKundendatenGruppeSonstige.FieldName := 'GruppeSonstige';\r\n    xdsKundendatenGruppeNichtkunden.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenGruppeNichtkunden.Name := 'xdsKundendatenGruppeNichtkunden';\r\n    xdsKundendatenGruppeNichtkunden.FieldName := 'GruppeNichtkunden';\r\n    xdsKundendatenKontaktgruppe.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenKontaktgruppe.Name := 'xdsKundendatenKontaktgruppe';\r\n    xdsKundendatenKontaktgruppe.FieldName := 'Kontaktgruppe';\r\n    xdsKundendatenKontaktgruppe.Size := 50;\r\n    xdsKundendatenNachname.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenNachname.Name := 'xdsKundendatenNachname';\r\n    xdsKundendatenNachname.FieldName := 'Nachname';\r\n    xdsKundendatenNachname.Size := 40;\r\n    xdsKundendatenVorname.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenVorname.Name := 'xdsKundendatenVorname';\r\n    xdsKundendatenVorname.FieldName := 'Vorname';\r\n    xdsKundendatenVorname.Size := 40;\r\n    xdsKundendatenAdresszeile2.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenAdresszeile2.Name := 'xdsKundendatenAdresszeile2';\r\n    xdsKundendatenAdresszeile2.FieldName := 'Adresszeile2';\r\n    xdsKundendatenAdresszeile2.Size := 40;\r\n    xdsKundendatenAdresszeile3.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenAdresszeile3.Name := 'xdsKundendatenAdresszeile3';\r\n    xdsKundendatenAdresszeile3.FieldName := 'Adresszeile3';\r\n    xdsKundendatenAdresszeile3.Size := 40;\r\n    xdsKundendatenStrasse.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenStrasse.Name := 'xdsKundendatenStrasse';\r\n    xdsKundendatenStrasse.FieldName := 'Strasse';\r\n    xdsKundendatenStrasse.Size := 40;\r\n    xdsKundendatenPostleitzahl.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenPostleitzahl.Name := 'xdsKundendatenPostleitzahl';\r\n    xdsKundendatenPostleitzahl.FieldName := 'Postleitzahl';\r\n    xdsKundendatenPostleitzahl.Size := 6;\r\n    xdsKundendatenOrt.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenOrt.Name := 'xdsKundendatenOrt';\r\n    xdsKundendatenOrt.FieldName := 'Ort';\r\n    xdsKundendatenOrt.Size := 40;\r\n    xdsKundendatenLaenderkuerzel.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenLaenderkuerzel.Name := 'xdsKundendatenLaenderkuerzel';\r\n    xdsKundendatenLaenderkuerzel.FieldName := 'Laenderkuerzel';\r\n    xdsKundendatenLaenderkuerzel.Size := 5;\r\n    xdsKundendatenLand.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenLand.Name := 'xdsKundendatenLand';\r\n    xdsKundendatenLand.FieldName := 'Land';\r\n    xdsKundendatenLand.Size := 40;\r\n    xdsKundendatenLaenderkennzeichen.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenLaenderkennzeichen.Name := 'xdsKundendatenLaenderkennzeichen';\r\n    xdsKundendatenLaenderkennzeichen.FieldName := 'Laenderkennzeichen';\r\n    xdsKundendatenAdressanrede.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenAdressanrede.Name := 'xdsKundendatenAdressanrede';\r\n    xdsKundendatenAdressanrede.FieldName := 'Adressanrede';\r\n    xdsKundendatenAdressanrede.Size := 15;\r\n    xdsKundendatenBriefanrede1.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenBriefanrede1.Name := 'xdsKundendatenBriefanrede1';\r\n    xdsKundendatenBriefanrede1.FieldName := 'Briefanrede1';\r\n    xdsKundendatenBriefanrede1.Size := 255;\r\n    xdsKundendatenAdresseBild.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenAdresseBild.Name := 'xdsKundendatenAdresseBild';\r\n    xdsKundendatenAdresseBild.FieldName := 'AdresseBild';\r\n    xdsKundendatenAdresseBild.Size := 255;\r\n    xdsKundendatenLieferanschrift.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenLieferanschrift.Name := 'xdsKundendatenLieferanschrift';\r\n    xdsKundendatenLieferanschrift.FieldName := 'Lieferanschrift';\r\n    xdsKundendatenLieferanschrift.Size := 255;\r\n    xdsKundendatenTelefonNummer.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenTelefonNummer.Name := 'xdsKundendatenTelefonNummer';\r\n    xdsKundendatenTelefonNummer.FieldName := 'TelefonNummer';\r\n    xdsKundendatenTelefonNummer.Size := 25;\r\n    xdsKundendatenTelefaxNummer.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenTelefaxNummer.Name := 'xdsKundendatenTelefaxNummer';\r\n    xdsKundendatenTelefaxNummer.FieldName := 'TelefaxNummer';\r\n    xdsKundendatenTelefaxNummer.Size := 25;\r\n    xdsKundendatenMobilTelefon.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenMobilTelefon.Name := 'xdsKundendatenMobilTelefon';\r\n    xdsKundendatenMobilTelefon.FieldName := 'MobilTelefon';\r\n    xdsKundendatenMobilTelefon.Size := 25;\r\n    xdsKundendatenEMail.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenEMail.Name := 'xdsKundendatenEMail';\r\n    xdsKundendatenEMail.FieldName := 'EMail';\r\n    xdsKundendatenEMail.Size := 50;\r\n    xdsKundendatenInternet.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenInternet.Name := 'xdsKundendatenInternet';\r\n    xdsKundendatenInternet.FieldName := 'Internet';\r\n    xdsKundendatenInternet.Size := 50;\r\n    xdsKundendatenUmsatzsteuerID.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenUmsatzsteuerID.Name := 'xdsKundendatenUmsatzsteuerID';\r\n    xdsKundendatenUmsatzsteuerID.FieldName := 'UmsatzsteuerID';\r\n    xdsKundendatenUmsatzsteuerausweis.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenUmsatzsteuerausweis.Name := 'xdsKundendatenUmsatzsteuerausweis';\r\n    xdsKundendatenUmsatzsteuerausweis.FieldName := 'Umsatzsteuerausweis';\r\n    xdsKundendatenZahlungsbedingung.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenZahlungsbedingung.Name := 'xdsKundendatenZahlungsbedingung';\r\n    xdsKundendatenZahlungsbedingung.FieldName := 'Zahlungsbedingung';\r\n    xdsKundendatenTransportbedingung.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenTransportbedingung.Name := 'xdsKundendatenTransportbedingung';\r\n    xdsKundendatenTransportbedingung.FieldName := 'Transportbedingung';\r\n    xdsKundendatenTransportbedingung.Size := 100;\r\n    xdsKundendatenKeinNewsletter.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenKeinNewsletter.Name := 'xdsKundendatenKeinNewsletter';\r\n    xdsKundendatenKeinNewsletter.FieldName := 'KeinNewsletter';\r\n    xdsKundendatenTelefonAlternativ.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenTelefonAlternativ.Name := 'xdsKundendatenTelefonAlternativ';\r\n    xdsKundendatenTelefonAlternativ.FieldName := 'TelefonAlternativ';\r\n    xdsKundendatenTelefonAlternativ.Size := 50;\r\n    xdsKundendatenTitel.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenTitel.Name := 'xdsKundendatenTitel';\r\n    xdsKundendatenTitel.FieldName := 'Titel';\r\n    xdsKundendatenKundenklasseFarbe.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenKundenklasseFarbe.Name := 'xdsKundendatenKundenklasseFarbe';\r\n    xdsKundendatenKundenklasseFarbe.FieldName := 'KundenklasseFarbe';\r\n    xdsKundendatenRechnungEmail.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenRechnungEmail.Name := 'xdsKundendatenRechnungEmail';\r\n    xdsKundendatenRechnungEmail.FieldName := 'RechnungEmail';\r\n    xdsKundendatenRechnungEmail.Size := 50;\r\n    xdsKundendatenLoginPW.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenLoginPW.Name := 'xdsKundendatenLoginPW';\r\n    xdsKundendatenLoginPW.FieldName := 'LoginPW';\r\n    xdsKundendatenBesteuerungKey.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenBesteuerungKey.Name := 'xdsKundendatenBesteuerungKey';\r\n    xdsKundendatenBesteuerungKey.FieldName := 'BesteuerungKey';\r\n    xdsKundendatenAuftraegeJahr.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenAuftraegeJahr.Name := 'xdsKundendatenAuftraegeJahr';\r\n    xdsKundendatenAuftraegeJahr.FieldName := 'AuftraegeJahr';\r\n    xdsKundendatenAuftraegeVorjahr.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenAuftraegeVorjahr.Name := 'xdsKundendatenAuftraegeVorjahr';\r\n    xdsKundendatenAuftraegeVorjahr.FieldName := 'AuftraegeVorjahr';\r\n    xdsKundendatenLieferadresseID.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenLieferadresseID.Name := 'xdsKundendatenLieferadresseID';\r\n    xdsKundendatenLieferadresseID.FieldName := 'LieferadresseID';\r\n    xdsKundendatenUSTIDgeprueft.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenUSTIDgeprueft.Name := 'xdsKundendatenUSTIDgeprueft';\r\n    xdsKundendatenUSTIDgeprueft.FieldName := 'USTIDgeprueft';\r\n    xdsKundendatenKontaktverbund.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenKontaktverbund.Name := 'xdsKundendatenKontaktverbund';\r\n    xdsKundendatenKontaktverbund.FieldName := 'Kontaktverbund';\r\n    xdsKundendatenKontaktverbund.Size := 25;\r\n    xdsKundendatenHinweis.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenHinweis.Name := 'xdsKundendatenHinweis';\r\n    xdsKundendatenHinweis.FieldName := 'Hinweis';\r\n    xdsKundendatenHinweis.Size := 255;\r\n    xdsKundendatenLatitude.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenLatitude.Name := 'xdsKundendatenLatitude';\r\n    xdsKundendatenLatitude.FieldName := 'Latitude';\r\n    xdsKundendatenLongitude.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenLongitude.Name := 'xdsKundendatenLongitude';\r\n    xdsKundendatenLongitude.FieldName := 'Longitude';\r\n    xdsKundendatenkmLuftlinie.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenkmLuftlinie.Name := 'xdsKundendatenkmLuftlinie';\r\n    xdsKundendatenkmLuftlinie.FieldName := 'kmLuftlinie';\r\n    xdsKundendatenGoogleID.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenGoogleID.Name := 'xdsKundendatenGoogleID';\r\n    xdsKundendatenGoogleID.FieldName := 'GoogleID';\r\n    xdsKundendatenGoogleID.Size := 50;\r\n    xdsKundendatenGoogleUpdatedUTC.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenGoogleUpdatedUTC.Name := 'xdsKundendatenGoogleUpdatedUTC';\r\n    xdsKundendatenGoogleUpdatedUTC.FieldName := 'GoogleUpdatedUTC';\r\n    xdsKundendatenBundesland.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenBundesland.Name := 'xdsKundendatenBundesland';\r\n    xdsKundendatenBundesland.FieldName := 'Bundesland';\r\n    xdsKundendatenBundesland.Size := 50;\r\n    xdsKundendatenRegion.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenRegion.Name := 'xdsKundendatenRegion';\r\n    xdsKundendatenRegion.FieldName := 'Region';\r\n    xdsKundendatenRegion.Size := 50;\r\n    xdsKundendatenMandatsreferenz.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenMandatsreferenz.Name := 'xdsKundendatenMandatsreferenz';\r\n    xdsKundendatenMandatsreferenz.FieldName := 'Mandatsreferenz';\r\n    xdsKundendatenMandatsreferenz.Size := 34;\r\n    xdsKundendatenMandatsreferenzVom.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenMandatsreferenzVom.Name := 'xdsKundendatenMandatsreferenzVom';\r\n    xdsKundendatenMandatsreferenzVom.FieldName := 'MandatsreferenzVom';\r\n    xdsKundendatenLastschriftArt.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenLastschriftArt.Name := 'xdsKundendatenLastschriftArt';\r\n    xdsKundendatenLastschriftArt.FieldName := 'LastschriftArt';\r\n    xdsKundendatenLastschriftArt.Size := 2;\r\n    xdsKundendatenMahnsperre.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenMahnsperre.Name := 'xdsKundendatenMahnsperre';\r\n    xdsKundendatenMahnsperre.FieldName := 'Mahnsperre';\r\n    xdsKundendatenSuchbegriff.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenSuchbegriff.Name := 'xdsKundendatenSuchbegriff';\r\n    xdsKundendatenSuchbegriff.FieldName := 'Suchbegriff';\r\n    xdsKundendatenSuchbegriff.Size := 25;\r\n    xdsKundendatenLieferanschriftDaten.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenLieferanschriftDaten.Name := 'xdsKundendatenLieferanschriftDaten';\r\n    xdsKundendatenLieferanschriftDaten.FieldName := 'LieferanschriftDaten';\r\n    xdsKundendatenLieferanschriftDaten.Size := 255;\r\n    xdsKundendatenExportKasse.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenExportKasse.Name := 'xdsKundendatenExportKasse';\r\n    xdsKundendatenExportKasse.FieldName := 'ExportKasse';\r\n    xdsKundendatenLoeschvormerkungDatum.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenLoeschvormerkungDatum.Name := 'xdsKundendatenLoeschvormerkungDatum';\r\n    xdsKundendatenLoeschvormerkungDatum.FieldName := 'LoeschvormerkungDatum';\r\n    xdsKundendatenLoeschvormerkungGrund.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenLoeschvormerkungGrund.Name := 'xdsKundendatenLoeschvormerkungGrund';\r\n    xdsKundendatenLoeschvormerkungGrund.FieldName := 'LoeschvormerkungGrund';\r\n    xdsKundendatenLoeschvormerkungGrund.Size := 250;\r\n    xdsKundendatenPseudonymisiert.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenPseudonymisiert.Name := 'xdsKundendatenPseudonymisiert';\r\n    xdsKundendatenPseudonymisiert.FieldName := 'Pseudonymisiert';\r\n    xdsKundendatenPseudonymisiert.Size := 255;\r\n    xdsKundendatenLoginAktiv.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenLoginAktiv.Name := 'xdsKundendatenLoginAktiv';\r\n    xdsKundendatenLoginAktiv.FieldName := 'LoginAktiv';\r\n    xdsKundendatenSonstigeDaten.SetParentComponent(xdsKundendaten);\r\n    xdsKundendatenSonstigeDaten.Name := 'xdsKundendatenSonstigeDaten';\r\n    xdsKundendatenSonstigeDaten.FieldName := 'SonstigeDaten';\r\n    xdsKundendatenSonstigeDaten.Size := 255;\r\n    xdsStatus.SetParentComponent(Self);\r\n    xdsStatus.Name := 'xdsStatus';\r\n    xdsStatus.AfterOpen := xdsStatusAfterOpen;\r\n    xdsStatus.EntitySetName := 'ITS_TicketStatus';\r\n    xdsStatus.Connection := DM2.XDataWebConnection1;\r\n    xdsStatus.Left := 32;\r\n    xdsStatus.Top := 168;\r\n    xdsStatusStatus.SetParentComponent(xdsStatus);\r\n    xdsStatusStatus.Name := 'xdsStatusStatus';\r\n    xdsStatusStatus.FieldName := 'Status';\r\n    xdsStatusStatus.Required := True;\r\n    xdsStatusStatus.Size := 25;\r\n    xdsKategorie.SetParentComponent(Self);\r\n    xdsKategorie.Name := 'xdsKategorie';\r\n    xdsKategorie.AfterOpen := xdsKategorieAfterOpen;\r\n    xdsKategorie.EntitySetName := 'ITS_TicketKategorie';\r\n    xdsKategorie.Connection := DM2.XDataWebConnection1;\r\n    xdsKategorie.Left := 32;\r\n    xdsKategorie.Top := 112;\r\n    xdsKategorieKategorie.SetParentComponent(xdsKategorie);\r\n    xdsKategorieKategorie.Name := 'xdsKategorieKategorie';\r\n    xdsKategorieKategorie.FieldName := 'Kategorie';\r\n    xdsKategorieKategorie.Required := True;\r\n    xdsKategorieKategorie.Size := 25;\r\n    xdsprioritaet.SetParentComponent(Self);\r\n    xdsprioritaet.Name := 'xdsprioritaet';\r\n    xdsprioritaet.AfterOpen := xdsprioritaetAfterOpen;\r\n    xdsprioritaet.EntitySetName := 'ITS_TicketPrioritaet';\r\n    xdsprioritaet.Connection := DM2.XDataWebConnection1;\r\n    xdsprioritaet.QueryString := '$filter=Prioritaet gt 0';\r\n    xdsprioritaet.Left := 32;\r\n    xdsprioritaet.Top := 56;\r\n    xdsprioritaetPrioritaet.SetParentComponent(xdsprioritaet);\r\n    xdsprioritaetPrioritaet.Name := 'xdsprioritaetPrioritaet';\r\n    xdsprioritaetPrioritaet.FieldName := 'Prioritaet';\r\n    xdsprioritaetPrioritaet.Required := True;\r\n    xdsprioritaetPrioText.SetParentComponent(xdsprioritaet);\r\n    xdsprioritaetPrioText.Name := 'xdsprioritaetPrioText';\r\n    xdsprioritaetPrioText.FieldName := 'PrioText';\r\n    xdsprioritaetPrioFarbe.SetParentComponent(xdsprioritaet);\r\n    xdsprioritaetPrioFarbe.Name := 'xdsprioritaetPrioFarbe';\r\n    xdsprioritaetPrioFarbe.FieldName := 'PrioFarbe';\r\n    xdsTicketDateien.SetParentComponent(Self);\r\n    xdsTicketDateien.Name := 'xdsTicketDateien';\r\n    xdsTicketDateien.AfterApplyUpdates := xdsTicketDateienAfterApplyUpdates;\r\n    xdsTicketDateien.AfterOpen := xdsTicketDateienAfterOpen;\r\n    SetEvent(xdsTicketDateien, Self, 'OnNewRecord', 'xdsTicketDateienNewRecord');\r\n    xdsTicketDateien.EntitySetName := 'ITS_TicketDateien';\r\n    xdsTicketDateien.Connection := DM2.XDataWebConnection1;\r\n    xdsTicketDateien.QueryTop := 1;\r\n    xdsTicketDateien.Left := 128;\r\n    xdsTicketDateien.Top := 56;\r\n    xdsTicketDateienTicketID.SetParentComponent(xdsTicketDateien);\r\n    xdsTicketDateienTicketID.Name := 'xdsTicketDateienTicketID';\r\n    xdsTicketDateienTicketID.FieldName := 'TicketID';\r\n    xdsTicketDateienTicketID.Required := True;\r\n    xdsTicketDateienID.SetParentComponent(xdsTicketDateien);\r\n    xdsTicketDateienID.Name := 'xdsTicketDateienID';\r\n    xdsTicketDateienID.FieldName := 'ID';\r\n    xdsTicketDateienID.Required := True;\r\n    xdsTicketDateienDatumUhrzeit.SetParentComponent(xdsTicketDateien);\r\n    xdsTicketDateienDatumUhrzeit.Name := 'xdsTicketDateienDatumUhrzeit';\r\n    xdsTicketDateienDatumUhrzeit.FieldName := 'DatumUhrzeit';\r\n    xdsTicketDateienDatumUhrzeit.Required := True;\r\n    xdsTicketDateienFuerLoesung.SetParentComponent(xdsTicketDateien);\r\n    xdsTicketDateienFuerLoesung.Name := 'xdsTicketDateienFuerLoesung';\r\n    xdsTicketDateienFuerLoesung.FieldName := 'FuerLoesung';\r\n    xdsTicketDateienDateiMime.SetParentComponent(xdsTicketDateien);\r\n    xdsTicketDateienDateiMime.Name := 'xdsTicketDateienDateiMime';\r\n    xdsTicketDateienDateiMime.FieldName := 'DateiMime';\r\n    xdsTicketDateienDateiMime.Size := 50;\r\n    xdsTicketDateienDateiName.SetParentComponent(xdsTicketDateien);\r\n    xdsTicketDateienDateiName.Name := 'xdsTicketDateienDateiName';\r\n    xdsTicketDateienDateiName.FieldName := 'DateiName';\r\n    xdsTicketDateienDateiName.Size := 255;\r\n    xdsTicketDateienDateiGroesse.SetParentComponent(xdsTicketDateien);\r\n    xdsTicketDateienDateiGroesse.Name := 'xdsTicketDateienDateiGroesse';\r\n    xdsTicketDateienDateiGroesse.FieldName := 'DateiGroesse';\r\n    xdsTicketDateienDateiInhaltText.SetParentComponent(xdsTicketDateien);\r\n    xdsTicketDateienDateiInhaltText.Name := 'xdsTicketDateienDateiInhaltText';\r\n    xdsTicketDateienDateiInhaltText.FieldName := 'DateiInhaltText';\r\n    xdsTicketDateienDateiInhaltText.Size := 255;\r\n    xdsticket2.SetParentComponent(Self);\r\n    xdsticket2.Name := 'xdsticket2';\r\n    xdsticket2.AfterOpen := xdsticket2AfterOpen;\r\n    xdsticket2.EntitySetName := 'ITS_TicketMain';\r\n    xdsticket2.Connection := DM2.XDataWebConnection1;\r\n    xdsticket2.QueryString := '$orderby=ID DESC';\r\n    xdsticket2.QueryTop := 1;\r\n    xdsticket2.Left := 136;\r\n    xdsticket2.Top := 360;\r\n    xdsticket2Kundennummer.SetParentComponent(xdsticket2);\r\n    xdsticket2Kundennummer.Name := 'xdsticket2Kundennummer';\r\n    xdsticket2Kundennummer.FieldName := 'Kundennummer';\r\n    xdsticket2Produkt.SetParentComponent(xdsticket2);\r\n    xdsticket2Produkt.Name := 'xdsticket2Produkt';\r\n    xdsticket2Produkt.FieldName := 'Produkt';\r\n    xdsticket2Kategorie.SetParentComponent(xdsticket2);\r\n    xdsticket2Kategorie.Name := 'xdsticket2Kategorie';\r\n    xdsticket2Kategorie.FieldName := 'Kategorie';\r\n    xdsticket2Prioritaet.SetParentComponent(xdsticket2);\r\n    xdsticket2Prioritaet.Name := 'xdsticket2Prioritaet';\r\n    xdsticket2Prioritaet.FieldName := 'Prioritaet';\r\n    xdsticket2Status.SetParentComponent(xdsticket2);\r\n    xdsticket2Status.Name := 'xdsticket2Status';\r\n    xdsticket2Status.FieldName := 'Status';\r\n    xdsticket2ID.SetParentComponent(xdsticket2);\r\n    xdsticket2ID.Name := 'xdsticket2ID';\r\n    xdsticket2ID.FieldName := 'ID';\r\n    xdsticket2ID.Required := True;\r\n    xdsticket2ErstelltAm.SetParentComponent(xdsticket2);\r\n    xdsticket2ErstelltAm.Name := 'xdsticket2ErstelltAm';\r\n    xdsticket2ErstelltAm.FieldName := 'ErstelltAm';\r\n    xdsticket2Betreff.SetParentComponent(xdsticket2);\r\n    xdsticket2Betreff.Name := 'xdsticket2Betreff';\r\n    xdsticket2Betreff.FieldName := 'Betreff';\r\n    xdsticket2Betreff.Size := 100;\r\n    xdsticket2Beschreibung.SetParentComponent(xdsticket2);\r\n    xdsticket2Beschreibung.Name := 'xdsticket2Beschreibung';\r\n    xdsticket2Beschreibung.FieldName := 'Beschreibung';\r\n    xdsticket2Beschreibung.Size := 255;\r\n    xdsticket2Abrechnungsbetrag.SetParentComponent(xdsticket2);\r\n    xdsticket2Abrechnungsbetrag.Name := 'xdsticket2Abrechnungsbetrag';\r\n    xdsticket2Abrechnungsbetrag.FieldName := 'Abrechnungsbetrag';\r\n    xdsticket2AbrechnungRechnungsnummer.SetParentComponent(xdsticket2);\r\n    xdsticket2AbrechnungRechnungsnummer.Name := 'xdsticket2AbrechnungRechnungsnummer';\r\n    xdsticket2AbrechnungRechnungsnummer.FieldName := 'AbrechnungRechnungsnummer';\r\n    xdsticket2AbrechnungRechnungsnummer.Size := 10;\r\n    xdsticket2AberechnetAm.SetParentComponent(xdsticket2);\r\n    xdsticket2AberechnetAm.Name := 'xdsticket2AberechnetAm';\r\n    xdsticket2AberechnetAm.FieldName := 'AberechnetAm';\r\n    xdsticket2ErledigtAm.SetParentComponent(xdsticket2);\r\n    xdsticket2ErledigtAm.Name := 'xdsticket2ErledigtAm';\r\n    xdsticket2ErledigtAm.FieldName := 'ErledigtAm';\r\n    xdsticket2Nachname.SetParentComponent(xdsticket2);\r\n    xdsticket2Nachname.Name := 'xdsticket2Nachname';\r\n    xdsticket2Nachname.FieldName := 'Nachname';\r\n    xdsticket2Nachname.Size := 40;\r\n    xdsticket2Vorname.SetParentComponent(xdsticket2);\r\n    xdsticket2Vorname.Name := 'xdsticket2Vorname';\r\n    xdsticket2Vorname.FieldName := 'Vorname';\r\n    xdsticket2Vorname.Size := 40;\r\n    xdsticket2Email.SetParentComponent(xdsticket2);\r\n    xdsticket2Email.Name := 'xdsticket2Email';\r\n    xdsticket2Email.FieldName := 'Email';\r\n    xdsticket2Email.Size := 50;\r\n    xdsticket2SystemInfo.SetParentComponent(xdsticket2);\r\n    xdsticket2SystemInfo.Name := 'xdsticket2SystemInfo';\r\n    xdsticket2SystemInfo.FieldName := 'SystemInfo';\r\n    xdsticket2SystemInfo.Size := 255;\r\n    xdsticket2Loesung.SetParentComponent(xdsticket2);\r\n    xdsticket2Loesung.Name := 'xdsticket2Loesung';\r\n    xdsticket2Loesung.FieldName := 'Loesung';\r\n    xdsticket2Loesung.Size := 255;\r\n    xdsticket2Protokoll.SetParentComponent(xdsticket2);\r\n    xdsticket2Protokoll.Name := 'xdsticket2Protokoll';\r\n    xdsticket2Protokoll.FieldName := 'Protokoll';\r\n    xdsticket2Protokoll.Size := 255;\r\n    xdsticket2ZeitaufwandMinuten.SetParentComponent(xdsticket2);\r\n    xdsticket2ZeitaufwandMinuten.Name := 'xdsticket2ZeitaufwandMinuten';\r\n    xdsticket2ZeitaufwandMinuten.FieldName := 'ZeitaufwandMinuten';\r\n    xdsticket2AbzurechnendeMinuten.SetParentComponent(xdsticket2);\r\n    xdsticket2AbzurechnendeMinuten.Name := 'xdsticket2AbzurechnendeMinuten';\r\n    xdsticket2AbzurechnendeMinuten.FieldName := 'AbzurechnendeMinuten';\r\n    xdsticket2AbgerechneteMinuten.SetParentComponent(xdsticket2);\r\n    xdsticket2AbgerechneteMinuten.Name := 'xdsticket2AbgerechneteMinuten';\r\n    xdsticket2AbgerechneteMinuten.FieldName := 'AbgerechneteMinuten';\r\n    xdsticket2BenachrichtigungNEU.SetParentComponent(xdsticket2);\r\n    xdsticket2BenachrichtigungNEU.Name := 'xdsticket2BenachrichtigungNEU';\r\n    xdsticket2BenachrichtigungNEU.FieldName := 'BenachrichtigungNEU';\r\n    xdsticket2BenachrichtigungLoesung.SetParentComponent(xdsticket2);\r\n    xdsticket2BenachrichtigungLoesung.Name := 'xdsticket2BenachrichtigungLoesung';\r\n    xdsticket2BenachrichtigungLoesung.FieldName := 'BenachrichtigungLoesung';\r\n    xdsticket2InterneBemerkung.SetParentComponent(xdsticket2);\r\n    xdsticket2InterneBemerkung.Name := 'xdsticket2InterneBemerkung';\r\n    xdsticket2InterneBemerkung.FieldName := 'InterneBemerkung';\r\n    xdsticket2InterneBemerkung.Size := 255;\r\n    xdsticket2LoesungInfoSenden.SetParentComponent(xdsticket2);\r\n    xdsticket2LoesungInfoSenden.Name := 'xdsticket2LoesungInfoSenden';\r\n    xdsticket2LoesungInfoSenden.FieldName := 'LoesungInfoSenden';\r\n    xdsticket2Kontaktperson.SetParentComponent(xdsticket2);\r\n    xdsticket2Kontaktperson.Name := 'xdsticket2Kontaktperson';\r\n    xdsticket2Kontaktperson.FieldName := 'Kontaktperson';\r\n    xdsticket2Kontaktperson.Size := 100;\r\n    xdsticket2KontaktpersonEmail.SetParentComponent(xdsticket2);\r\n    xdsticket2KontaktpersonEmail.Name := 'xdsticket2KontaktpersonEmail';\r\n    xdsticket2KontaktpersonEmail.FieldName := 'KontaktpersonEmail';\r\n    xdsticket2KontaktpersonEmail.Size := 100;\r\n    xdsticket2ErreichbarkeitTelefon.SetParentComponent(xdsticket2);\r\n    xdsticket2ErreichbarkeitTelefon.Name := 'xdsticket2ErreichbarkeitTelefon';\r\n    xdsticket2ErreichbarkeitTelefon.FieldName := 'ErreichbarkeitTelefon';\r\n    xdsticket2ErreichbarkeitTelefon.Size := 100;\r\n    xdsticket2ErreichbarkeitWann.SetParentComponent(xdsticket2);\r\n    xdsticket2ErreichbarkeitWann.Name := 'xdsticket2ErreichbarkeitWann';\r\n    xdsticket2ErreichbarkeitWann.FieldName := 'ErreichbarkeitWann';\r\n    xdsticket2ErreichbarkeitWann.Size := 100;\r\n  finally\r\n    TC.AfterLoadDFMValues;\r\n    WebFilePicker1.AfterLoadDFMValues;\r\n    WebFilePicker2.AfterLoadDFMValues;\r\n    WebFilePicker3.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    PanelTop.AfterLoadDFMValues;\r\n    lblSeite.AfterLoadDFMValues;\r\n    panelfunctions.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    xdsKontosaldo.AfterLoadDFMValues;\r\n    xdsKontosaldoKundennummer.AfterLoadDFMValues;\r\n    xdsKontosaldoZeitaufwand.AfterLoadDFMValues;\r\n    xdsKontosaldoAbzurechnen.AfterLoadDFMValues;\r\n    xdsKontosaldoGutschrift.AfterLoadDFMValues;\r\n    xdsKontosaldoAbzug.AfterLoadDFMValues;\r\n    xdsKontosaldoSaldo.AfterLoadDFMValues;\r\n    xdsKontosaldoBetrag.AfterLoadDFMValues;\r\n    xdsKontosaldoMinutenpreis.AfterLoadDFMValues;\r\n    xdsKontosaldoSRestguthaben.AfterLoadDFMValues;\r\n    xdsTicket.AfterLoadDFMValues;\r\n    xdsTicketKundennummer.AfterLoadDFMValues;\r\n    xdsTicketProdukt.AfterLoadDFMValues;\r\n    xdsTicketKategorie.AfterLoadDFMValues;\r\n    xdsTicketPrioritaet.AfterLoadDFMValues;\r\n    xdsTicketStatus.AfterLoadDFMValues;\r\n    xdsTicketID.AfterLoadDFMValues;\r\n    xdsTicketErstelltAm.AfterLoadDFMValues;\r\n    xdsTicketBetreff.AfterLoadDFMValues;\r\n    xdsTicketBeschreibung.AfterLoadDFMValues;\r\n    xdsTicketAbrechnungsbetrag.AfterLoadDFMValues;\r\n    xdsTicketAbrechnungRechnungsnummer.AfterLoadDFMValues;\r\n    xdsTicketAberechnetAm.AfterLoadDFMValues;\r\n    xdsTicketErledigtAm.AfterLoadDFMValues;\r\n    xdsTicketNachname.AfterLoadDFMValues;\r\n    xdsTicketVorname.AfterLoadDFMValues;\r\n    xdsTicketEmail.AfterLoadDFMValues;\r\n    xdsTicketSystemInfo.AfterLoadDFMValues;\r\n    xdsTicketLoesung.AfterLoadDFMValues;\r\n    xdsTicketProtokoll.AfterLoadDFMValues;\r\n    xdsTicketZeitaufwandMinuten.AfterLoadDFMValues;\r\n    xdsTicketAbzurechnendeMinuten.AfterLoadDFMValues;\r\n    xdsTicketAbgerechneteMinuten.AfterLoadDFMValues;\r\n    xdsTicketBenachrichtigungNEU.AfterLoadDFMValues;\r\n    xdsTicketBenachrichtigungLoesung.AfterLoadDFMValues;\r\n    xdsTicketInterneBemerkung.AfterLoadDFMValues;\r\n    xdsTicketLoesungInfoSenden.AfterLoadDFMValues;\r\n    xdsTicketKontaktperson.AfterLoadDFMValues;\r\n    xdsTicketErreichbarkeitTelefon.AfterLoadDFMValues;\r\n    xdsTicketErreichbarkeitWann.AfterLoadDFMValues;\r\n    xdsTicketKontaktpersonEmail.AfterLoadDFMValues;\r\n    xdsProdukte.AfterLoadDFMValues;\r\n    xdsProdukteProdukt.AfterLoadDFMValues;\r\n    xdsKundendaten.AfterLoadDFMValues;\r\n    xdsKundendatenKundennummer.AfterLoadDFMValues;\r\n    xdsKundendatenGruppeKunden.AfterLoadDFMValues;\r\n    xdsKundendatenGruppeLieferanten.AfterLoadDFMValues;\r\n    xdsKundendatenGruppeSonstige.AfterLoadDFMValues;\r\n    xdsKundendatenGruppeNichtkunden.AfterLoadDFMValues;\r\n    xdsKundendatenKontaktgruppe.AfterLoadDFMValues;\r\n    xdsKundendatenNachname.AfterLoadDFMValues;\r\n    xdsKundendatenVorname.AfterLoadDFMValues;\r\n    xdsKundendatenAdresszeile2.AfterLoadDFMValues;\r\n    xdsKundendatenAdresszeile3.AfterLoadDFMValues;\r\n    xdsKundendatenStrasse.AfterLoadDFMValues;\r\n    xdsKundendatenPostleitzahl.AfterLoadDFMValues;\r\n    xdsKundendatenOrt.AfterLoadDFMValues;\r\n    xdsKundendatenLaenderkuerzel.AfterLoadDFMValues;\r\n    xdsKundendatenLand.AfterLoadDFMValues;\r\n    xdsKundendatenLaenderkennzeichen.AfterLoadDFMValues;\r\n    xdsKundendatenAdressanrede.AfterLoadDFMValues;\r\n    xdsKundendatenBriefanrede1.AfterLoadDFMValues;\r\n    xdsKundendatenAdresseBild.AfterLoadDFMValues;\r\n    xdsKundendatenLieferanschrift.AfterLoadDFMValues;\r\n    xdsKundendatenTelefonNummer.AfterLoadDFMValues;\r\n    xdsKundendatenTelefaxNummer.AfterLoadDFMValues;\r\n    xdsKundendatenMobilTelefon.AfterLoadDFMValues;\r\n    xdsKundendatenEMail.AfterLoadDFMValues;\r\n    xdsKundendatenInternet.AfterLoadDFMValues;\r\n    xdsKundendatenUmsatzsteuerID.AfterLoadDFMValues;\r\n    xdsKundendatenUmsatzsteuerausweis.AfterLoadDFMValues;\r\n    xdsKundendatenZahlungsbedingung.AfterLoadDFMValues;\r\n    xdsKundendatenTransportbedingung.AfterLoadDFMValues;\r\n    xdsKundendatenKeinNewsletter.AfterLoadDFMValues;\r\n    xdsKundendatenTelefonAlternativ.AfterLoadDFMValues;\r\n    xdsKundendatenTitel.AfterLoadDFMValues;\r\n    xdsKundendatenKundenklasseFarbe.AfterLoadDFMValues;\r\n    xdsKundendatenRechnungEmail.AfterLoadDFMValues;\r\n    xdsKundendatenLoginPW.AfterLoadDFMValues;\r\n    xdsKundendatenBesteuerungKey.AfterLoadDFMValues;\r\n    xdsKundendatenAuftraegeJahr.AfterLoadDFMValues;\r\n    xdsKundendatenAuftraegeVorjahr.AfterLoadDFMValues;\r\n    xdsKundendatenLieferadresseID.AfterLoadDFMValues;\r\n    xdsKundendatenUSTIDgeprueft.AfterLoadDFMValues;\r\n    xdsKundendatenKontaktverbund.AfterLoadDFMValues;\r\n    xdsKundendatenHinweis.AfterLoadDFMValues;\r\n    xdsKundendatenLatitude.AfterLoadDFMValues;\r\n    xdsKundendatenLongitude.AfterLoadDFMValues;\r\n    xdsKundendatenkmLuftlinie.AfterLoadDFMValues;\r\n    xdsKundendatenGoogleID.AfterLoadDFMValues;\r\n    xdsKundendatenGoogleUpdatedUTC.AfterLoadDFMValues;\r\n    xdsKundendatenBundesland.AfterLoadDFMValues;\r\n    xdsKundendatenRegion.AfterLoadDFMValues;\r\n    xdsKundendatenMandatsreferenz.AfterLoadDFMValues;\r\n    xdsKundendatenMandatsreferenzVom.AfterLoadDFMValues;\r\n    xdsKundendatenLastschriftArt.AfterLoadDFMValues;\r\n    xdsKundendatenMahnsperre.AfterLoadDFMValues;\r\n    xdsKundendatenSuchbegriff.AfterLoadDFMValues;\r\n    xdsKundendatenLieferanschriftDaten.AfterLoadDFMValues;\r\n    xdsKundendatenExportKasse.AfterLoadDFMValues;\r\n    xdsKundendatenLoeschvormerkungDatum.AfterLoadDFMValues;\r\n    xdsKundendatenLoeschvormerkungGrund.AfterLoadDFMValues;\r\n    xdsKundendatenPseudonymisiert.AfterLoadDFMValues;\r\n    xdsKundendatenLoginAktiv.AfterLoadDFMValues;\r\n    xdsKundendatenSonstigeDaten.AfterLoadDFMValues;\r\n    xdsStatus.AfterLoadDFMValues;\r\n    xdsStatusStatus.AfterLoadDFMValues;\r\n    xdsKategorie.AfterLoadDFMValues;\r\n    xdsKategorieKategorie.AfterLoadDFMValues;\r\n    xdsprioritaet.AfterLoadDFMValues;\r\n    xdsprioritaetPrioritaet.AfterLoadDFMValues;\r\n    xdsprioritaetPrioText.AfterLoadDFMValues;\r\n    xdsprioritaetPrioFarbe.AfterLoadDFMValues;\r\n    xdsTicketDateien.AfterLoadDFMValues;\r\n    xdsTicketDateienTicketID.AfterLoadDFMValues;\r\n    xdsTicketDateienID.AfterLoadDFMValues;\r\n    xdsTicketDateienDatumUhrzeit.AfterLoadDFMValues;\r\n    xdsTicketDateienFuerLoesung.AfterLoadDFMValues;\r\n    xdsTicketDateienDateiMime.AfterLoadDFMValues;\r\n    xdsTicketDateienDateiName.AfterLoadDFMValues;\r\n    xdsTicketDateienDateiGroesse.AfterLoadDFMValues;\r\n    xdsTicketDateienDateiInhaltText.AfterLoadDFMValues;\r\n    xdsticket2.AfterLoadDFMValues;\r\n    xdsticket2Kundennummer.AfterLoadDFMValues;\r\n    xdsticket2Produkt.AfterLoadDFMValues;\r\n    xdsticket2Kategorie.AfterLoadDFMValues;\r\n    xdsticket2Prioritaet.AfterLoadDFMValues;\r\n    xdsticket2Status.AfterLoadDFMValues;\r\n    xdsticket2ID.AfterLoadDFMValues;\r\n    xdsticket2ErstelltAm.AfterLoadDFMValues;\r\n    xdsticket2Betreff.AfterLoadDFMValues;\r\n    xdsticket2Beschreibung.AfterLoadDFMValues;\r\n    xdsticket2Abrechnungsbetrag.AfterLoadDFMValues;\r\n    xdsticket2AbrechnungRechnungsnummer.AfterLoadDFMValues;\r\n    xdsticket2AberechnetAm.AfterLoadDFMValues;\r\n    xdsticket2ErledigtAm.AfterLoadDFMValues;\r\n    xdsticket2Nachname.AfterLoadDFMValues;\r\n    xdsticket2Vorname.AfterLoadDFMValues;\r\n    xdsticket2Email.AfterLoadDFMValues;\r\n    xdsticket2SystemInfo.AfterLoadDFMValues;\r\n    xdsticket2Loesung.AfterLoadDFMValues;\r\n    xdsticket2Protokoll.AfterLoadDFMValues;\r\n    xdsticket2ZeitaufwandMinuten.AfterLoadDFMValues;\r\n    xdsticket2AbzurechnendeMinuten.AfterLoadDFMValues;\r\n    xdsticket2AbgerechneteMinuten.AfterLoadDFMValues;\r\n    xdsticket2BenachrichtigungNEU.AfterLoadDFMValues;\r\n    xdsticket2BenachrichtigungLoesung.AfterLoadDFMValues;\r\n    xdsticket2InterneBemerkung.AfterLoadDFMValues;\r\n    xdsticket2LoesungInfoSenden.AfterLoadDFMValues;\r\n    xdsticket2Kontaktperson.AfterLoadDFMValues;\r\n    xdsticket2KontaktpersonEmail.AfterLoadDFMValues;\r\n    xdsticket2ErreichbarkeitTelefon.AfterLoadDFMValues;\r\n    xdsticket2ErreichbarkeitWann.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.","unit unit_KontaktAenderung;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Vcl.Controls, WEBLib.ExtCtrls, Data.DB,\r\n  XData.Web.JsonDataset, XData.Web.Dataset, WEBLib.DB, DB, Vcl.StdCtrls,\r\n  WEBLib.StdCtrls, WEBLib.DBCtrls, WEBLib.Grids;\r\n\r\ntype\r\n  TKontaktAenderung = class(TForm)\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    Container3: THTMLContainer;\r\n    sourceEinzelkontakt: TDataSource;\r\n    xdsEinzelkontakt: TXDataWebDataSet;\r\n    xdsEinzelkontaktKundennummer: TStringField;\r\n    xdsEinzelkontaktGruppeKunden: TBooleanField;\r\n    xdsEinzelkontaktGruppeLieferanten: TBooleanField;\r\n    xdsEinzelkontaktGruppeSonstige: TBooleanField;\r\n    xdsEinzelkontaktGruppeNichtkunden: TBooleanField;\r\n    xdsEinzelkontaktKontaktgruppe: TStringField;\r\n    xdsEinzelkontaktNachname: TStringField;\r\n    xdsEinzelkontaktVorname: TStringField;\r\n    xdsEinzelkontaktAdresszeile2: TStringField;\r\n    xdsEinzelkontaktAdresszeile3: TStringField;\r\n    xdsEinzelkontaktStrasse: TStringField;\r\n    xdsEinzelkontaktPostleitzahl: TStringField;\r\n    xdsEinzelkontaktOrt: TStringField;\r\n    xdsEinzelkontaktLaenderkuerzel: TStringField;\r\n    xdsEinzelkontaktLand: TStringField;\r\n    xdsEinzelkontaktLaenderkennzeichen: TBooleanField;\r\n    xdsEinzelkontaktAdressanrede: TStringField;\r\n    xdsEinzelkontaktBriefanrede1: TStringField;\r\n    xdsEinzelkontaktBriefanrede2: TStringField;\r\n    xdsEinzelkontaktAdresseBild: TStringField;\r\n    xdsEinzelkontaktLieferanschrift: TStringField;\r\n    xdsEinzelkontaktGeburtsdatum: TDateTimeField;\r\n    xdsEinzelkontaktTelefonNummer: TStringField;\r\n    xdsEinzelkontaktTelefaxNummer: TStringField;\r\n    xdsEinzelkontaktMobilTelefon: TStringField;\r\n    xdsEinzelkontaktEMail: TStringField;\r\n    xdsEinzelkontaktInternet: TStringField;\r\n    xdsEinzelkontaktUmsatzsteuerID: TStringField;\r\n    xdsEinzelkontaktUmsatzsteuerausweis: TBooleanField;\r\n    xdsEinzelkontaktBemerkungen: TStringField;\r\n    xdsEinzelkontaktBranche: TStringField;\r\n    xdsEinzelkontaktSelektiert1: TBooleanField;\r\n    xdsEinzelkontaktSelektiert2: TBooleanField;\r\n    xdsEinzelkontaktSelektiert3: TBooleanField;\r\n    xdsEinzelkontaktZahlungsbedingung: TIntegerField;\r\n    xdsEinzelkontaktTransportbedingung: TStringField;\r\n    xdsEinzelkontaktKilometer: TIntegerField;\r\n    xdsEinzelkontaktRabattsatz: TFloatField;\r\n    xdsEinzelkontaktStundensatz: TFloatField;\r\n    xdsEinzelkontaktKontonummer: TStringField;\r\n    xdsEinzelkontaktBank: TStringField;\r\n    xdsEinzelkontaktBankleitzahl: TFloatField;\r\n    xdsEinzelkontaktKontoinhaber: TStringField;\r\n    xdsEinzelkontaktBetreuer: TStringField;\r\n    xdsEinzelkontaktQuelle: TStringField;\r\n    xdsEinzelkontaktSuchmerkmal: TStringField;\r\n    xdsEinzelkontaktWarenkreditlimit: TFloatField;\r\n    xdsEinzelkontaktWarenkreditgesperrt: TBooleanField;\r\n    xdsEinzelkontaktKundennummerFremd: TStringField;\r\n    xdsEinzelkontaktKeinNewsletter: TBooleanField;\r\n    xdsEinzelkontaktDebitorennummer: TStringField;\r\n    xdsEinzelkontaktKreditorennummer: TStringField;\r\n    xdsEinzelkontaktTelefonAlternativ: TStringField;\r\n    xdsEinzelkontaktKostentraeger: TStringField;\r\n    xdsEinzelkontaktIBAN: TStringField;\r\n    xdsEinzelkontaktBIC: TStringField;\r\n    xdsEinzelkontaktEmailkonto: TStringField;\r\n    xdsEinzelkontaktBenutzername: TStringField;\r\n    xdsEinzelkontaktPasswort: TStringField;\r\n    xdsEinzelkontaktExportOutlook: TBooleanField;\r\n    xdsEinzelkontaktNichtInListeAnzeigen: TBooleanField;\r\n    xdsEinzelkontaktKreditkarteArt: TStringField;\r\n    xdsEinzelkontaktKreditkarteInhaber: TStringField;\r\n    xdsEinzelkontaktKreditkarteNummer: TStringField;\r\n    xdsEinzelkontaktKreditkarteGueltigMonat: TStringField;\r\n    xdsEinzelkontaktKreditkarteGueltigJahr: TIntegerField;\r\n    xdsEinzelkontaktKreditkartePruefziffer: TStringField;\r\n    xdsEinzelkontaktDatumNeu: TDateTimeField;\r\n    xdsEinzelkontaktDatumgeaendert: TDateTimeField;\r\n    xdsEinzelkontaktTitel: TStringField;\r\n    xdsEinzelkontaktStundensatzMontage: TFloatField;\r\n    xdsEinzelkontaktStdMontageU25: TFloatField;\r\n    xdsEinzelkontaktStdMontageU50: TFloatField;\r\n    xdsEinzelkontaktStdMontageU70: TFloatField;\r\n    xdsEinzelkontaktStdMontageU100: TFloatField;\r\n    xdsEinzelkontaktStdMontageU150: TFloatField;\r\n    xdsEinzelkontaktStundensatzWerkstatt: TFloatField;\r\n    xdsEinzelkontaktStdWerkstattU25: TFloatField;\r\n    xdsEinzelkontaktStdWerkstattU50: TFloatField;\r\n    xdsEinzelkontaktStdWerkstattU70: TFloatField;\r\n    xdsEinzelkontaktStdWerkstattU100: TFloatField;\r\n    xdsEinzelkontaktStdWerkstattU150: TFloatField;\r\n    xdsEinzelkontaktArchivReferenz: TStringField;\r\n    xdsEinzelkontaktErloesKontoUST1: TStringField;\r\n    xdsEinzelkontaktErloesKontoUST2: TStringField;\r\n    xdsEinzelkontaktErloesKontoUST3: TStringField;\r\n    xdsEinzelkontaktGebKal: TBooleanField;\r\n    xdsEinzelkontaktEmailversand: TBooleanField;\r\n    xdsEinzelkontaktMahnspesen: TBooleanField;\r\n    xdsEinzelkontaktRechnungSchluss: TStringField;\r\n    xdsEinzelkontaktBenutzerNeu: TStringField;\r\n    xdsEinzelkontaktBenutzerGeaendert: TStringField;\r\n    xdsEinzelkontaktBelegsprache: TStringField;\r\n    xdsEinzelkontaktkmSatz: TFloatField;\r\n    xdsEinzelkontaktKundenklassetext: TStringField;\r\n    xdsEinzelkontaktKundenklasseFarbe: TIntegerField;\r\n    xdsEinzelkontaktAbweichenderRechnungsEmpfaenger: TStringField;\r\n    xdsEinzelkontaktProtokoll: TStringField;\r\n    xdsEinzelkontaktILNTyp1: TStringField;\r\n    xdsEinzelkontaktILNTyp2: TStringField;\r\n    xdsEinzelkontaktKontaktGUID: TStringField;\r\n    xdsEinzelkontaktPLZGUID: TStringField;\r\n    xdsEinzelkontaktPreislistenVariantePakete: TStringField;\r\n    xdsEinzelkontaktSchluesselRechnungslauf: TStringField;\r\n    xdsEinzelkontaktRechnungEmail: TStringField;\r\n    xdsEinzelkontaktZahlungsbedingungEK: TIntegerField;\r\n    xdsEinzelkontaktTransportbedingungEK: TStringField;\r\n    xdsEinzelkontaktRabattsatzEK: TFloatField;\r\n    xdsEinzelkontaktVertreterMatchcode: TStringField;\r\n    xdsEinzelkontaktVertreterProvisionssatz: TFloatField;\r\n    xdsEinzelkontaktUmsatzVKJahr: TFloatField;\r\n    xdsEinzelkontaktUmsatzVKVorjahr: TFloatField;\r\n    xdsEinzelkontaktUmsatzEKJahr: TFloatField;\r\n    xdsEinzelkontaktUmsatzEKVorjahr: TFloatField;\r\n    xdsEinzelkontaktSteuernummer: TStringField;\r\n    xdsEinzelkontaktLoginPW: TStringField;\r\n    xdsEinzelkontaktREperFax: TBooleanField;\r\n    xdsEinzelkontaktErreichbarkeit: TStringField;\r\n    xdsEinzelkontaktErloesKontoUST4: TStringField;\r\n    xdsEinzelkontaktErloesKontoUST5: TStringField;\r\n    xdsEinzelkontaktErloesKontoUST6: TStringField;\r\n    xdsEinzelkontaktBesteuerungKey: TIntegerField;\r\n    xdsEinzelkontaktAuftraegeJahr: TFloatField;\r\n    xdsEinzelkontaktAuftraegeVorjahr: TFloatField;\r\n    xdsEinzelkontaktLieferadresseID: TIntegerField;\r\n    xdsEinzelkontaktUSTIDgeprueft: TDateTimeField;\r\n    xdsEinzelkontaktKontaktverbund: TStringField;\r\n    xdsEinzelkontaktHinweis: TStringField;\r\n    xdsEinzelkontaktLatitude: TFloatField;\r\n    xdsEinzelkontaktLongitude: TFloatField;\r\n    xdsEinzelkontaktkmLuftlinie: TFloatField;\r\n    xdsEinzelkontaktGoogleID: TStringField;\r\n    xdsEinzelkontaktGoogleUpdatedUTC: TDateTimeField;\r\n    xdsEinzelkontaktBundesland: TStringField;\r\n    xdsEinzelkontaktRegion: TStringField;\r\n    xdsEinzelkontaktMandatsreferenz: TStringField;\r\n    xdsEinzelkontaktMandatsreferenzVom: TDateTimeField;\r\n    xdsEinzelkontaktLastschriftArt: TStringField;\r\n    xdsEinzelkontaktMahnsperre: TBooleanField;\r\n    xdsEinzelkontaktSuchbegriff: TStringField;\r\n    xdsEinzelkontaktLieferanschriftDaten: TStringField;\r\n    xdsEinzelkontaktExportKasse: TBooleanField;\r\n    xdsEinzelkontaktLoeschvormerkungDatum: TDateTimeField;\r\n    xdsEinzelkontaktLoeschvormerkungGrund: TStringField;\r\n    xdsEinzelkontaktPseudonymisiert: TStringField;\r\n    xdsEinzelkontaktLoginAktiv: TIntegerField;\r\n    xdsEinzelkontaktSonstigeDaten: TStringField;\r\n    xdsEinzelkontaktB2C: TBooleanField;\r\n    xdsEinzelkontaktTIN: TStringField;\r\n    xdsEinzelkontaktMindestbestellwert: TFloatField;\r\n    TC: TTableControl;\r\n    edtStrasse: TDBEdit;\r\n    edtPostleitzahl: TDBEdit;\r\n    btnzurueck: TButton;\r\n    btnSpeichern: TButton;\r\n    edtVorname: TDBEdit;\r\n    edtAdresszeile2: TDBEdit;\r\n    edtAdresszeile3: TDBEdit;\r\n    edtOrt: TDBEdit;\r\n    xdsLaender: TXDataWebDataSet;\r\n    sourceLaender: TDataSource;\r\n    xdsLaenderLaenderkuerzel: TStringField;\r\n    xdsLaenderLand: TStringField;\r\n    edtLand: TDBLookupComboBox;\r\n    edtTelefon: TDBEdit;\r\n    edtTelefonAlternativ: TDBEdit;\r\n    edtTelefonMobil: TDBEdit;\r\n    edtInternet: TDBEdit;\r\n    edtEmail: TDBEdit;\r\n    xdsBestKey: TXDataWebDataSet;\r\n    sourceBestKey: TDataSource;\r\n    xdsBestKeyBesteuerungKey: TIntegerField;\r\n    xdsBestKeyBesteuerungKurzText: TStringField;\r\n    xdsBestKeyBesteuerungLangText: TStringField;\r\n    xdsBestKeyUmsatzsteuerausweis: TBooleanField;\r\n    xdsBestKeyKtoVorsteuerSatz1: TIntegerField;\r\n    xdsBestKeyKtoVorsteuerSatz2: TIntegerField;\r\n    xdsBestKeyKtoVorsteuerSatz3: TIntegerField;\r\n    xdsBestKeyKtoVorsteuerSatz4: TIntegerField;\r\n    xdsBestKeyKtoVorsteuerSatz5: TIntegerField;\r\n    xdsBestKeyKtoVorsteuerSatz6: TIntegerField;\r\n    xdsBestKeyKtoErloeseSatz1: TIntegerField;\r\n    xdsBestKeyKtoErloeseSatz2: TIntegerField;\r\n    xdsBestKeyKtoErloeseSatz3: TIntegerField;\r\n    xdsBestKeyKtoErloeseSatz4: TIntegerField;\r\n    xdsBestKeyKtoErloeseSatz5: TIntegerField;\r\n    xdsBestKeyKtoErloeseSatz6: TIntegerField;\r\n    xdsBestKeyKtoSkontoaufwandSatz1: TIntegerField;\r\n    xdsBestKeyKtoSkontoaufwandSatz2: TIntegerField;\r\n    xdsBestKeyKtoSkontoaufwandSatz3: TIntegerField;\r\n    xdsBestKeyKtoSkontoaufwandSatz4: TIntegerField;\r\n    xdsBestKeyKtoSkontoaufwandSatz5: TIntegerField;\r\n    xdsBestKeyKtoSkontoaufwandSatz6: TIntegerField;\r\n    xdsBestKeyKtoSkontoertragSatz1: TIntegerField;\r\n    xdsBestKeyKtoSkontoertragSatz2: TIntegerField;\r\n    xdsBestKeyKtoSkontoertragSatz3: TIntegerField;\r\n    xdsBestKeyKtoSkontoertragSatz4: TIntegerField;\r\n    xdsBestKeyKtoSkontoertragSatz5: TIntegerField;\r\n    xdsBestKeyKtoSkontoertragSatz6: TIntegerField;\r\n    xdsBestKeyKtoErloesschmaelerungenSatz1: TIntegerField;\r\n    xdsBestKeyKtoErloesschmaelerungenSatz2: TIntegerField;\r\n    xdsBestKeyKtoErloesschmaelerungenSatz3: TIntegerField;\r\n    xdsBestKeyKtoErloesschmaelerungenSatz4: TIntegerField;\r\n    xdsBestKeyKtoErloesschmaelerungenSatz5: TIntegerField;\r\n    xdsBestKeyKtoErloesschmaelerungenSatz6: TIntegerField;\r\n    xdsBestKeyNatura: TStringField;\r\n    xdsBestKeyBSchl_UST_Satz1: TIntegerField;\r\n    xdsBestKeyBSchl_UST_Satz2: TIntegerField;\r\n    xdsBestKeyBSchl_UST_Satz3: TIntegerField;\r\n    xdsBestKeyBSchl_UST_Satz4: TIntegerField;\r\n    xdsBestKeyBSchl_UST_Satz5: TIntegerField;\r\n    xdsBestKeyBSchl_UST_Satz6: TIntegerField;\r\n    xdsBestKeyBSchl_Vorsteuer_Satz1: TIntegerField;\r\n    xdsBestKeyBSchl_Vorsteuer_Satz2: TIntegerField;\r\n    xdsBestKeyBSchl_Vorsteuer_Satz3: TIntegerField;\r\n    xdsBestKeyBSchl_Vorsteuer_Satz4: TIntegerField;\r\n    xdsBestKeyBSchl_Vorsteuer_Satz5: TIntegerField;\r\n    xdsBestKeyBSchl_Vorsteuer_Satz6: TIntegerField;\r\n    xdsBestKeyDokTyp: TStringField;\r\n    edtAdressanrede: TDBEdit;\r\n    edtTitel: TDBEdit;\r\n    edtNachname: TDBEdit;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n    procedure xdsLaenderAfterOpen(DataSet: TDataSet);\r\n    procedure xdsEinzelkontaktAfterOpen(DataSet: TDataSet);\r\n    procedure sourceEinzelkontaktStateChange(Sender: TObject);\r\n    procedure btnSpeichernClick(Sender: TObject);\r\n    procedure xdsBestKeyAfterOpen(DataSet: TDataSet);\r\n    procedure xdsEinzelkontaktBeforePost(DataSet: TDataSet);\r\n    procedure xdsEinzelkontaktAfterPost(DataSet: TDataSet);\r\n    procedure xdsEinzelkontaktAfterApplyUpdates(Sender: TDataSet;\r\n      Info: TResolveResults);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    AEKundennummer:string;\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  KontaktAenderung: TKontaktAenderung;\r\n\r\nimplementation\r\n  uses unit1, unit2;\r\n{$R *.dfm}\r\n\r\nprocedure TKontaktAenderung.btnSpeichernClick(Sender: TObject);\r\nbegin\r\n  if xdslaender.Locate('Land', xdsEinzelkontaktLand.asstring,[])=true then\r\n  begin\r\n    xdsEinzelkontaktLaenderkuerzel.asstring:=xdsLaenderLaenderkuerzel.asstring;\r\n    if xdsEinzelkontaktLaenderkuerzel.asstring<>dm2.tableSYSDATLaenderkuerzel.asstring then xdsEinzelkontaktLaenderkennzeichen.asboolean:=true else xdsEinzelkontaktLaenderkennzeichen.asboolean:=false;\r\n    xdsEinzelkontakt.post;\r\n  end\r\n  else\r\n  begin\r\n    showmessage('Sie haben noch kein Land ausgewählt, Vorgang wird abgebrochen');\r\n    exit;\r\n  end;\r\nend;\r\n\r\nprocedure TKontaktAenderung.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  xdsEinzelkontakt.Close;\r\n  self.Close;\r\nend;\r\n\r\nprocedure TKontaktAenderung.sourceEinzelkontaktStateChange(Sender: TObject);\r\nbegin\r\n  if sourceEinzelkontakt.state<>dsBrowse then btnSpeichern.enabled:=true else btnspeichern.Enabled:=false;\r\n\r\nend;\r\n\r\nprocedure TKontaktAenderung.WebFormShow(Sender: TObject);\r\nvar\r\n  myelement:TJSHTMLElement;\r\n  i:integer;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Kontakt bearbeiten '+AEKundennummer+'</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  container2.ParentElement:=myelement;\r\n  container3.ParentElement:=myelement;\r\n  myelement:=container2.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n\r\n\r\n  myelement:=container2.ElementHandle;\r\n  tc.ParentElement:=myElement;\r\n  TC.Visible:=true;\r\n  TC.RowCount:=17;\r\n  TC.ColCount:=2;\r\n  i:=0;\r\n  TC.Cells[0,i]:='Nachname';\r\n  myelement:=TC.CellElements[1,i];\r\n  edtNachname.ParentElement:=myelement;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Adressanrede';\r\n  myelement:=TC.CellElements[1,i];\r\n  edtAdressanrede.ParentElement:=myelement;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Titel';\r\n  myelement:=TC.CellElements[1,i];\r\n  edttitel.ParentElement:=myelement;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Vorname';\r\n  myelement:=TC.CellElements[1,i];\r\n  edtVorname.ParentElement:=myelement;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Adresszeile2';\r\n  myelement:=TC.CellElements[1,i];\r\n  edtAdresszeile2.ParentElement:=myelement;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Adresszeile3';\r\n  myelement:=TC.CellElements[1,i];\r\n  edtAdresszeile3.ParentElement:=myelement;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Strasse';\r\n  myelement:=TC.CellElements[1,i];\r\n  edtStrasse.ParentElement:=myelement;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Postleizahl';\r\n  myelement:=TC.CellElements[1,i];\r\n  edtPostleitzahl.ParentElement:=myelement;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Ort';\r\n  myelement:=TC.CellElements[1,i];\r\n  edtOrt.ParentElement:=myelement;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Land';\r\n  myelement:=TC.CellElements[1,i];\r\n  edtLand.ParentElement:=myelement;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Telefon';\r\n  myelement:=TC.CellElements[1,i];\r\n  edtTelefon.ParentElement:=myelement;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Telefon Alternativ';\r\n  myelement:=TC.CellElements[1,i];\r\n  edtTelefonAlternativ.ParentElement:=myelement;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Mobiltelefon';\r\n  myelement:=TC.CellElements[1,i];\r\n  edtTelefonMobil.ParentElement:=myelement;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Internet';\r\n  myelement:=TC.CellElements[1,i];\r\n  edtInternet.ParentElement:=myelement;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Email';\r\n  myelement:=TC.CellElements[1,i];\r\n  edtEmail.ParentElement:=myelement;\r\n  inc(i);\r\n  TC.Cells[0,i]:='';\r\n  myelement:=TC.CellElements[1,i];\r\n  btnSpeichern.ParentElement:=myelement;\r\n  dm2.tableSYSDAT.load;\r\n  xdsBestKey.load;\r\n\r\nend;\r\n\r\nprocedure TKontaktAenderung.xdsBestKeyAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  xdsLaender.load;\r\n\r\nend;\r\n\r\nprocedure TKontaktAenderung.xdsEinzelkontaktAfterApplyUpdates(Sender: TDataSet;\r\n  Info: TResolveResults);\r\n  var\r\n  i:integer;\r\nbegin\r\n  for i := 0 to High(info.Records) do\r\n  begin\r\n    if info.Records[i].Error<>'' then showmessage(info.Records[i].Error);\r\n  end;\r\n  if info.Records[0].Error='' then\r\n  begin\r\n    xdsBestKey.Close;\r\n    xdsLaender.close;;\r\n    xdsEinzelkontakt.close;\r\n    close;\r\n  end;\r\nend;\r\n\r\nprocedure TKontaktAenderung.xdsEinzelkontaktAfterOpen(DataSet: TDataSet);\r\nvar\r\n  myelement:TJSHTMLElement;\r\n\r\nbegin\r\n\r\nend;\r\n\r\nprocedure TKontaktAenderung.xdsEinzelkontaktAfterPost(DataSet: TDataSet);\r\nbegin\r\n  xdsEinzelkontakt.ApplyUpdates;\r\nend;\r\n\r\nprocedure TKontaktAenderung.xdsEinzelkontaktBeforePost(DataSet: TDataSet);\r\nvar\r\n  adrbild:string;\r\nbegin\r\n  adrbild:='';\r\n  if length(xdsEinzelkontaktadressanrede.asstring)>1 then\r\n  begin\r\n    adrbild:=adrbild + xdsEinzelkontaktadressanrede.asstring+chr(13)+chr(10);\r\n  end;\r\n  if (length(xdsEinzelkontakttitel.asstring)>1) then\r\n  begin\r\n    adrbild:=adrbild + xdsEinzelkontakttitel.asstring+' ';\r\n  end;\r\n  if length(xdsEinzelkontaktvorname.asstring)>1 then\r\n  begin\r\n    adrbild:=adrbild + xdsEinzelkontaktvorname.asstring+' ';\r\n  end;\r\n  adrbild:=adrbild + xdsEinzelkontaktnachname.asstring+chr(13)+chr(10);\r\n  if length(xdsEinzelkontaktAdresszeile2.asstring)>0 then\r\n  begin\r\n    adrbild:=adrbild + xdsEinzelkontaktadresszeile2.asstring+chr(13)+chr(10);\r\n  end;\r\n  if length(xdsEinzelkontaktAdresszeile3.asstring)>0 then\r\n  begin\r\n    adrbild:=adrbild + xdsEinzelkontaktadresszeile3.asstring+chr(13)+chr(10);\r\n  end;\r\n  adrbild:=adrbild + xdsEinzelkontaktStrasse.asstring+chr(13)+chr(10);\r\n  if xdsEinzelkontaktLaenderkennzeichen.asboolean=true then\r\n  begin\r\n    adrbild:=adrbild + xdsEinzelkontaktpostleitzahl.asstring+ ' ';\r\n    adrbild:=adrbild + uppercase(xdsEinzelkontaktort.asstring)+chr(13)+chr(10);\r\n    adrbild:=adrbild + uppercase(xdsEinzelkontaktland.asstring);\r\n  end\r\n  else\r\n  begin\r\n    adrbild:=adrbild +xdsEinzelkontaktpostleitzahl.asstring+ ' ';\r\n    adrbild:=adrbild + xdsEinzelkontaktort.asstring+chr(13)+chr(10);\r\n  end;\r\n  xdsEinzelkontaktAdresseBild.asstring:=adrbild;\r\n\r\n  if xdsbestkey.Locate('BesteuerungKey',xdsEinzelkontaktBesteuerungKey.AsString,[])=true then\r\n  begin\r\n    xdsEinzelkontaktumsatzsteuerausweis.AsBoolean:=xdsbestkeyUmsatzsteuerausweis.AsBoolean;\r\n    xdsEinzelkontaktErloesKontoUST1.AsString:=xdsBestKeyKtoErloeseSatz1.asstring;\r\n    xdsEinzelkontaktErloesKontoUST2.AsString:=xdsBestKeyKtoErloeseSatz2.asstring;\r\n    xdsEinzelkontaktErloesKontoUST3.AsString:=xdsBestKeyKtoErloeseSatz3.asstring;\r\n    xdsEinzelkontaktErloesKontoUST4.AsString:=xdsBestKeyKtoErloeseSatz4.asstring;\r\n    xdsEinzelkontaktErloesKontoUST5.AsString:=xdsBestKeyKtoErloeseSatz5.asstring;\r\n    xdsEinzelkontaktErloesKontoUST6.AsString:=xdsBestKeyKtoErloeseSatz6.asstring;\r\n  end;\r\n  xdsEinzelkontaktprotokoll.asstring:=xdsEinzelkontaktprotokoll.asstring+datetimetostr(date+time)+' CADIAWEB '+ BenutzerLoginName+#13+#10;\r\n  xdsEinzelkontaktDatumgeaendert.asdatetime:=date+time;\r\nend;\r\n\r\nprocedure TKontaktAenderung.xdsLaenderAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  xdsEinzelkontakt.Close;\r\n  xdseinzelkontakt.QueryString:='$filter=Kundennummer eq '+quotedstr(AEKundennummer);\r\n  xdseinzelkontakt.Load;\r\nend;\r\n\r\nprocedure TKontaktAenderung.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  TC := TTableControl.Create(Self);\r\n  edtStrasse := TDBEdit.Create(Self);\r\n  edtPostleitzahl := TDBEdit.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  btnSpeichern := TButton.Create(Self);\r\n  edtVorname := TDBEdit.Create(Self);\r\n  edtAdresszeile2 := TDBEdit.Create(Self);\r\n  edtAdresszeile3 := TDBEdit.Create(Self);\r\n  edtOrt := TDBEdit.Create(Self);\r\n  edtLand := TDBLookupComboBox.Create(Self);\r\n  edtTelefon := TDBEdit.Create(Self);\r\n  edtTelefonAlternativ := TDBEdit.Create(Self);\r\n  edtTelefonMobil := TDBEdit.Create(Self);\r\n  edtInternet := TDBEdit.Create(Self);\r\n  edtEmail := TDBEdit.Create(Self);\r\n  edtAdressanrede := TDBEdit.Create(Self);\r\n  edtTitel := TDBEdit.Create(Self);\r\n  edtNachname := TDBEdit.Create(Self);\r\n  sourceEinzelkontakt := TDataSource.Create(Self);\r\n  xdsEinzelkontakt := TXDataWebDataSet.Create(Self);\r\n  xdsEinzelkontaktKundennummer := TStringField.Create(Self);\r\n  xdsEinzelkontaktGruppeKunden := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktGruppeLieferanten := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktGruppeSonstige := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktGruppeNichtkunden := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktKontaktgruppe := TStringField.Create(Self);\r\n  xdsEinzelkontaktNachname := TStringField.Create(Self);\r\n  xdsEinzelkontaktVorname := TStringField.Create(Self);\r\n  xdsEinzelkontaktAdresszeile2 := TStringField.Create(Self);\r\n  xdsEinzelkontaktAdresszeile3 := TStringField.Create(Self);\r\n  xdsEinzelkontaktStrasse := TStringField.Create(Self);\r\n  xdsEinzelkontaktPostleitzahl := TStringField.Create(Self);\r\n  xdsEinzelkontaktOrt := TStringField.Create(Self);\r\n  xdsEinzelkontaktLaenderkuerzel := TStringField.Create(Self);\r\n  xdsEinzelkontaktLand := TStringField.Create(Self);\r\n  xdsEinzelkontaktLaenderkennzeichen := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktAdressanrede := TStringField.Create(Self);\r\n  xdsEinzelkontaktBriefanrede1 := TStringField.Create(Self);\r\n  xdsEinzelkontaktBriefanrede2 := TStringField.Create(Self);\r\n  xdsEinzelkontaktAdresseBild := TStringField.Create(Self);\r\n  xdsEinzelkontaktLieferanschrift := TStringField.Create(Self);\r\n  xdsEinzelkontaktGeburtsdatum := TDateTimeField.Create(Self);\r\n  xdsEinzelkontaktTelefonNummer := TStringField.Create(Self);\r\n  xdsEinzelkontaktTelefaxNummer := TStringField.Create(Self);\r\n  xdsEinzelkontaktMobilTelefon := TStringField.Create(Self);\r\n  xdsEinzelkontaktEMail := TStringField.Create(Self);\r\n  xdsEinzelkontaktInternet := TStringField.Create(Self);\r\n  xdsEinzelkontaktUmsatzsteuerID := TStringField.Create(Self);\r\n  xdsEinzelkontaktUmsatzsteuerausweis := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktBemerkungen := TStringField.Create(Self);\r\n  xdsEinzelkontaktBranche := TStringField.Create(Self);\r\n  xdsEinzelkontaktSelektiert1 := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktSelektiert2 := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktSelektiert3 := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktZahlungsbedingung := TIntegerField.Create(Self);\r\n  xdsEinzelkontaktTransportbedingung := TStringField.Create(Self);\r\n  xdsEinzelkontaktKilometer := TIntegerField.Create(Self);\r\n  xdsEinzelkontaktRabattsatz := TFloatField.Create(Self);\r\n  xdsEinzelkontaktStundensatz := TFloatField.Create(Self);\r\n  xdsEinzelkontaktKontonummer := TStringField.Create(Self);\r\n  xdsEinzelkontaktBank := TStringField.Create(Self);\r\n  xdsEinzelkontaktBankleitzahl := TFloatField.Create(Self);\r\n  xdsEinzelkontaktKontoinhaber := TStringField.Create(Self);\r\n  xdsEinzelkontaktBetreuer := TStringField.Create(Self);\r\n  xdsEinzelkontaktQuelle := TStringField.Create(Self);\r\n  xdsEinzelkontaktSuchmerkmal := TStringField.Create(Self);\r\n  xdsEinzelkontaktWarenkreditlimit := TFloatField.Create(Self);\r\n  xdsEinzelkontaktWarenkreditgesperrt := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktKundennummerFremd := TStringField.Create(Self);\r\n  xdsEinzelkontaktKeinNewsletter := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktDebitorennummer := TStringField.Create(Self);\r\n  xdsEinzelkontaktKreditorennummer := TStringField.Create(Self);\r\n  xdsEinzelkontaktTelefonAlternativ := TStringField.Create(Self);\r\n  xdsEinzelkontaktKostentraeger := TStringField.Create(Self);\r\n  xdsEinzelkontaktIBAN := TStringField.Create(Self);\r\n  xdsEinzelkontaktBIC := TStringField.Create(Self);\r\n  xdsEinzelkontaktEmailkonto := TStringField.Create(Self);\r\n  xdsEinzelkontaktBenutzername := TStringField.Create(Self);\r\n  xdsEinzelkontaktPasswort := TStringField.Create(Self);\r\n  xdsEinzelkontaktExportOutlook := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktNichtInListeAnzeigen := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktKreditkarteArt := TStringField.Create(Self);\r\n  xdsEinzelkontaktKreditkarteInhaber := TStringField.Create(Self);\r\n  xdsEinzelkontaktKreditkarteNummer := TStringField.Create(Self);\r\n  xdsEinzelkontaktKreditkarteGueltigMonat := TStringField.Create(Self);\r\n  xdsEinzelkontaktKreditkarteGueltigJahr := TIntegerField.Create(Self);\r\n  xdsEinzelkontaktKreditkartePruefziffer := TStringField.Create(Self);\r\n  xdsEinzelkontaktDatumNeu := TDateTimeField.Create(Self);\r\n  xdsEinzelkontaktDatumgeaendert := TDateTimeField.Create(Self);\r\n  xdsEinzelkontaktTitel := TStringField.Create(Self);\r\n  xdsEinzelkontaktStundensatzMontage := TFloatField.Create(Self);\r\n  xdsEinzelkontaktStdMontageU25 := TFloatField.Create(Self);\r\n  xdsEinzelkontaktStdMontageU50 := TFloatField.Create(Self);\r\n  xdsEinzelkontaktStdMontageU70 := TFloatField.Create(Self);\r\n  xdsEinzelkontaktStdMontageU100 := TFloatField.Create(Self);\r\n  xdsEinzelkontaktStdMontageU150 := TFloatField.Create(Self);\r\n  xdsEinzelkontaktStundensatzWerkstatt := TFloatField.Create(Self);\r\n  xdsEinzelkontaktStdWerkstattU25 := TFloatField.Create(Self);\r\n  xdsEinzelkontaktStdWerkstattU50 := TFloatField.Create(Self);\r\n  xdsEinzelkontaktStdWerkstattU70 := TFloatField.Create(Self);\r\n  xdsEinzelkontaktStdWerkstattU100 := TFloatField.Create(Self);\r\n  xdsEinzelkontaktStdWerkstattU150 := TFloatField.Create(Self);\r\n  xdsEinzelkontaktArchivReferenz := TStringField.Create(Self);\r\n  xdsEinzelkontaktErloesKontoUST1 := TStringField.Create(Self);\r\n  xdsEinzelkontaktErloesKontoUST2 := TStringField.Create(Self);\r\n  xdsEinzelkontaktErloesKontoUST3 := TStringField.Create(Self);\r\n  xdsEinzelkontaktGebKal := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktEmailversand := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktMahnspesen := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktRechnungSchluss := TStringField.Create(Self);\r\n  xdsEinzelkontaktBenutzerNeu := TStringField.Create(Self);\r\n  xdsEinzelkontaktBenutzerGeaendert := TStringField.Create(Self);\r\n  xdsEinzelkontaktBelegsprache := TStringField.Create(Self);\r\n  xdsEinzelkontaktkmSatz := TFloatField.Create(Self);\r\n  xdsEinzelkontaktKundenklassetext := TStringField.Create(Self);\r\n  xdsEinzelkontaktKundenklasseFarbe := TIntegerField.Create(Self);\r\n  xdsEinzelkontaktAbweichenderRechnungsEmpfaenger := TStringField.Create(Self);\r\n  xdsEinzelkontaktProtokoll := TStringField.Create(Self);\r\n  xdsEinzelkontaktILNTyp1 := TStringField.Create(Self);\r\n  xdsEinzelkontaktILNTyp2 := TStringField.Create(Self);\r\n  xdsEinzelkontaktKontaktGUID := TStringField.Create(Self);\r\n  xdsEinzelkontaktPLZGUID := TStringField.Create(Self);\r\n  xdsEinzelkontaktPreislistenVariantePakete := TStringField.Create(Self);\r\n  xdsEinzelkontaktSchluesselRechnungslauf := TStringField.Create(Self);\r\n  xdsEinzelkontaktRechnungEmail := TStringField.Create(Self);\r\n  xdsEinzelkontaktZahlungsbedingungEK := TIntegerField.Create(Self);\r\n  xdsEinzelkontaktTransportbedingungEK := TStringField.Create(Self);\r\n  xdsEinzelkontaktRabattsatzEK := TFloatField.Create(Self);\r\n  xdsEinzelkontaktVertreterMatchcode := TStringField.Create(Self);\r\n  xdsEinzelkontaktVertreterProvisionssatz := TFloatField.Create(Self);\r\n  xdsEinzelkontaktUmsatzVKJahr := TFloatField.Create(Self);\r\n  xdsEinzelkontaktUmsatzVKVorjahr := TFloatField.Create(Self);\r\n  xdsEinzelkontaktUmsatzEKJahr := TFloatField.Create(Self);\r\n  xdsEinzelkontaktUmsatzEKVorjahr := TFloatField.Create(Self);\r\n  xdsEinzelkontaktSteuernummer := TStringField.Create(Self);\r\n  xdsEinzelkontaktLoginPW := TStringField.Create(Self);\r\n  xdsEinzelkontaktREperFax := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktErreichbarkeit := TStringField.Create(Self);\r\n  xdsEinzelkontaktErloesKontoUST4 := TStringField.Create(Self);\r\n  xdsEinzelkontaktErloesKontoUST5 := TStringField.Create(Self);\r\n  xdsEinzelkontaktErloesKontoUST6 := TStringField.Create(Self);\r\n  xdsEinzelkontaktBesteuerungKey := TIntegerField.Create(Self);\r\n  xdsEinzelkontaktAuftraegeJahr := TFloatField.Create(Self);\r\n  xdsEinzelkontaktAuftraegeVorjahr := TFloatField.Create(Self);\r\n  xdsEinzelkontaktLieferadresseID := TIntegerField.Create(Self);\r\n  xdsEinzelkontaktUSTIDgeprueft := TDateTimeField.Create(Self);\r\n  xdsEinzelkontaktKontaktverbund := TStringField.Create(Self);\r\n  xdsEinzelkontaktHinweis := TStringField.Create(Self);\r\n  xdsEinzelkontaktLatitude := TFloatField.Create(Self);\r\n  xdsEinzelkontaktLongitude := TFloatField.Create(Self);\r\n  xdsEinzelkontaktkmLuftlinie := TFloatField.Create(Self);\r\n  xdsEinzelkontaktGoogleID := TStringField.Create(Self);\r\n  xdsEinzelkontaktGoogleUpdatedUTC := TDateTimeField.Create(Self);\r\n  xdsEinzelkontaktBundesland := TStringField.Create(Self);\r\n  xdsEinzelkontaktRegion := TStringField.Create(Self);\r\n  xdsEinzelkontaktMandatsreferenz := TStringField.Create(Self);\r\n  xdsEinzelkontaktMandatsreferenzVom := TDateTimeField.Create(Self);\r\n  xdsEinzelkontaktLastschriftArt := TStringField.Create(Self);\r\n  xdsEinzelkontaktMahnsperre := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktSuchbegriff := TStringField.Create(Self);\r\n  xdsEinzelkontaktLieferanschriftDaten := TStringField.Create(Self);\r\n  xdsEinzelkontaktExportKasse := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktLoeschvormerkungDatum := TDateTimeField.Create(Self);\r\n  xdsEinzelkontaktLoeschvormerkungGrund := TStringField.Create(Self);\r\n  xdsEinzelkontaktPseudonymisiert := TStringField.Create(Self);\r\n  xdsEinzelkontaktLoginAktiv := TIntegerField.Create(Self);\r\n  xdsEinzelkontaktSonstigeDaten := TStringField.Create(Self);\r\n  xdsEinzelkontaktB2C := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktTIN := TStringField.Create(Self);\r\n  xdsEinzelkontaktMindestbestellwert := TFloatField.Create(Self);\r\n  xdsLaender := TXDataWebDataSet.Create(Self);\r\n  xdsLaenderLaenderkuerzel := TStringField.Create(Self);\r\n  xdsLaenderLand := TStringField.Create(Self);\r\n  sourceLaender := TDataSource.Create(Self);\r\n  xdsBestKey := TXDataWebDataSet.Create(Self);\r\n  xdsBestKeyBesteuerungKey := TIntegerField.Create(Self);\r\n  xdsBestKeyBesteuerungKurzText := TStringField.Create(Self);\r\n  xdsBestKeyBesteuerungLangText := TStringField.Create(Self);\r\n  xdsBestKeyUmsatzsteuerausweis := TBooleanField.Create(Self);\r\n  xdsBestKeyKtoVorsteuerSatz1 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoVorsteuerSatz2 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoVorsteuerSatz3 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoVorsteuerSatz4 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoVorsteuerSatz5 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoVorsteuerSatz6 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoErloeseSatz1 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoErloeseSatz2 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoErloeseSatz3 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoErloeseSatz4 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoErloeseSatz5 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoErloeseSatz6 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoSkontoaufwandSatz1 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoSkontoaufwandSatz2 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoSkontoaufwandSatz3 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoSkontoaufwandSatz4 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoSkontoaufwandSatz5 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoSkontoaufwandSatz6 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoSkontoertragSatz1 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoSkontoertragSatz2 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoSkontoertragSatz3 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoSkontoertragSatz4 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoSkontoertragSatz5 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoSkontoertragSatz6 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoErloesschmaelerungenSatz1 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoErloesschmaelerungenSatz2 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoErloesschmaelerungenSatz3 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoErloesschmaelerungenSatz4 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoErloesschmaelerungenSatz5 := TIntegerField.Create(Self);\r\n  xdsBestKeyKtoErloesschmaelerungenSatz6 := TIntegerField.Create(Self);\r\n  xdsBestKeyNatura := TStringField.Create(Self);\r\n  xdsBestKeyBSchl_UST_Satz1 := TIntegerField.Create(Self);\r\n  xdsBestKeyBSchl_UST_Satz2 := TIntegerField.Create(Self);\r\n  xdsBestKeyBSchl_UST_Satz3 := TIntegerField.Create(Self);\r\n  xdsBestKeyBSchl_UST_Satz4 := TIntegerField.Create(Self);\r\n  xdsBestKeyBSchl_UST_Satz5 := TIntegerField.Create(Self);\r\n  xdsBestKeyBSchl_UST_Satz6 := TIntegerField.Create(Self);\r\n  xdsBestKeyBSchl_Vorsteuer_Satz1 := TIntegerField.Create(Self);\r\n  xdsBestKeyBSchl_Vorsteuer_Satz2 := TIntegerField.Create(Self);\r\n  xdsBestKeyBSchl_Vorsteuer_Satz3 := TIntegerField.Create(Self);\r\n  xdsBestKeyBSchl_Vorsteuer_Satz4 := TIntegerField.Create(Self);\r\n  xdsBestKeyBSchl_Vorsteuer_Satz5 := TIntegerField.Create(Self);\r\n  xdsBestKeyBSchl_Vorsteuer_Satz6 := TIntegerField.Create(Self);\r\n  xdsBestKeyDokTyp := TStringField.Create(Self);\r\n  sourceBestKey := TDataSource.Create(Self);\r\n\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  TC.BeforeLoadDFMValues;\r\n  edtStrasse.BeforeLoadDFMValues;\r\n  edtPostleitzahl.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  btnSpeichern.BeforeLoadDFMValues;\r\n  edtVorname.BeforeLoadDFMValues;\r\n  edtAdresszeile2.BeforeLoadDFMValues;\r\n  edtAdresszeile3.BeforeLoadDFMValues;\r\n  edtOrt.BeforeLoadDFMValues;\r\n  edtLand.BeforeLoadDFMValues;\r\n  edtTelefon.BeforeLoadDFMValues;\r\n  edtTelefonAlternativ.BeforeLoadDFMValues;\r\n  edtTelefonMobil.BeforeLoadDFMValues;\r\n  edtInternet.BeforeLoadDFMValues;\r\n  edtEmail.BeforeLoadDFMValues;\r\n  edtAdressanrede.BeforeLoadDFMValues;\r\n  edtTitel.BeforeLoadDFMValues;\r\n  edtNachname.BeforeLoadDFMValues;\r\n  sourceEinzelkontakt.BeforeLoadDFMValues;\r\n  xdsEinzelkontakt.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKundennummer.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktGruppeKunden.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktGruppeLieferanten.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktGruppeSonstige.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktGruppeNichtkunden.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKontaktgruppe.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktNachname.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktVorname.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktAdresszeile2.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktAdresszeile3.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStrasse.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktPostleitzahl.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktOrt.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktLaenderkuerzel.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktLand.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktLaenderkennzeichen.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktAdressanrede.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBriefanrede1.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBriefanrede2.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktAdresseBild.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktLieferanschrift.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktGeburtsdatum.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktTelefonNummer.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktTelefaxNummer.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktMobilTelefon.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktEMail.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktInternet.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktUmsatzsteuerID.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktUmsatzsteuerausweis.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBemerkungen.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBranche.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktSelektiert1.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktSelektiert2.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktSelektiert3.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktZahlungsbedingung.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktTransportbedingung.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKilometer.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktRabattsatz.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStundensatz.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKontonummer.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBank.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBankleitzahl.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKontoinhaber.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBetreuer.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktQuelle.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktSuchmerkmal.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktWarenkreditlimit.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktWarenkreditgesperrt.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKundennummerFremd.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKeinNewsletter.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktDebitorennummer.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKreditorennummer.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktTelefonAlternativ.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKostentraeger.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktIBAN.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBIC.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktEmailkonto.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBenutzername.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktPasswort.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktExportOutlook.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktNichtInListeAnzeigen.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKreditkarteArt.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKreditkarteInhaber.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKreditkarteNummer.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKreditkarteGueltigMonat.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKreditkarteGueltigJahr.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKreditkartePruefziffer.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktDatumNeu.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktDatumgeaendert.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktTitel.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStundensatzMontage.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStdMontageU25.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStdMontageU50.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStdMontageU70.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStdMontageU100.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStdMontageU150.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStundensatzWerkstatt.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStdWerkstattU25.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStdWerkstattU50.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStdWerkstattU70.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStdWerkstattU100.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStdWerkstattU150.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktArchivReferenz.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktErloesKontoUST1.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktErloesKontoUST2.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktErloesKontoUST3.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktGebKal.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktEmailversand.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktMahnspesen.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktRechnungSchluss.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBenutzerNeu.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBenutzerGeaendert.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBelegsprache.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktkmSatz.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKundenklassetext.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKundenklasseFarbe.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktAbweichenderRechnungsEmpfaenger.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktProtokoll.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktILNTyp1.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktILNTyp2.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKontaktGUID.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktPLZGUID.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktPreislistenVariantePakete.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktSchluesselRechnungslauf.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktRechnungEmail.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktZahlungsbedingungEK.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktTransportbedingungEK.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktRabattsatzEK.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktVertreterMatchcode.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktVertreterProvisionssatz.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktUmsatzVKJahr.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktUmsatzVKVorjahr.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktUmsatzEKJahr.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktUmsatzEKVorjahr.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktSteuernummer.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktLoginPW.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktREperFax.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktErreichbarkeit.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktErloesKontoUST4.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktErloesKontoUST5.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktErloesKontoUST6.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBesteuerungKey.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktAuftraegeJahr.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktAuftraegeVorjahr.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktLieferadresseID.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktUSTIDgeprueft.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKontaktverbund.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktHinweis.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktLatitude.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktLongitude.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktkmLuftlinie.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktGoogleID.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktGoogleUpdatedUTC.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBundesland.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktRegion.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktMandatsreferenz.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktMandatsreferenzVom.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktLastschriftArt.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktMahnsperre.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktSuchbegriff.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktLieferanschriftDaten.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktExportKasse.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktLoeschvormerkungDatum.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktLoeschvormerkungGrund.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktPseudonymisiert.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktLoginAktiv.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktSonstigeDaten.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktB2C.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktTIN.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktMindestbestellwert.BeforeLoadDFMValues;\r\n  xdsLaender.BeforeLoadDFMValues;\r\n  xdsLaenderLaenderkuerzel.BeforeLoadDFMValues;\r\n  xdsLaenderLand.BeforeLoadDFMValues;\r\n  sourceLaender.BeforeLoadDFMValues;\r\n  xdsBestKey.BeforeLoadDFMValues;\r\n  xdsBestKeyBesteuerungKey.BeforeLoadDFMValues;\r\n  xdsBestKeyBesteuerungKurzText.BeforeLoadDFMValues;\r\n  xdsBestKeyBesteuerungLangText.BeforeLoadDFMValues;\r\n  xdsBestKeyUmsatzsteuerausweis.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoVorsteuerSatz1.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoVorsteuerSatz2.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoVorsteuerSatz3.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoVorsteuerSatz4.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoVorsteuerSatz5.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoVorsteuerSatz6.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoErloeseSatz1.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoErloeseSatz2.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoErloeseSatz3.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoErloeseSatz4.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoErloeseSatz5.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoErloeseSatz6.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoSkontoaufwandSatz1.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoSkontoaufwandSatz2.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoSkontoaufwandSatz3.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoSkontoaufwandSatz4.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoSkontoaufwandSatz5.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoSkontoaufwandSatz6.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoSkontoertragSatz1.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoSkontoertragSatz2.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoSkontoertragSatz3.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoSkontoertragSatz4.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoSkontoertragSatz5.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoSkontoertragSatz6.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoErloesschmaelerungenSatz1.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoErloesschmaelerungenSatz2.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoErloesschmaelerungenSatz3.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoErloesschmaelerungenSatz4.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoErloesschmaelerungenSatz5.BeforeLoadDFMValues;\r\n  xdsBestKeyKtoErloesschmaelerungenSatz6.BeforeLoadDFMValues;\r\n  xdsBestKeyNatura.BeforeLoadDFMValues;\r\n  xdsBestKeyBSchl_UST_Satz1.BeforeLoadDFMValues;\r\n  xdsBestKeyBSchl_UST_Satz2.BeforeLoadDFMValues;\r\n  xdsBestKeyBSchl_UST_Satz3.BeforeLoadDFMValues;\r\n  xdsBestKeyBSchl_UST_Satz4.BeforeLoadDFMValues;\r\n  xdsBestKeyBSchl_UST_Satz5.BeforeLoadDFMValues;\r\n  xdsBestKeyBSchl_UST_Satz6.BeforeLoadDFMValues;\r\n  xdsBestKeyBSchl_Vorsteuer_Satz1.BeforeLoadDFMValues;\r\n  xdsBestKeyBSchl_Vorsteuer_Satz2.BeforeLoadDFMValues;\r\n  xdsBestKeyBSchl_Vorsteuer_Satz3.BeforeLoadDFMValues;\r\n  xdsBestKeyBSchl_Vorsteuer_Satz4.BeforeLoadDFMValues;\r\n  xdsBestKeyBSchl_Vorsteuer_Satz5.BeforeLoadDFMValues;\r\n  xdsBestKeyBSchl_Vorsteuer_Satz6.BeforeLoadDFMValues;\r\n  xdsBestKeyDokTyp.BeforeLoadDFMValues;\r\n  sourceBestKey.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'KontaktAenderung';\r\n    Width := 640;\r\n    Height := 480;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 2;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.Left := 32;\r\n    TC.Top := 251;\r\n    TC.Width := 152;\r\n    TC.Height := 110;\r\n    TC.ElementClassName := 'table table-hover table-bordered table-striped';\r\n    TC.HeightStyle := ssAuto;\r\n    TC.WidthStyle := ssPercent;\r\n    TC.BorderColor := clSilver;\r\n    TC.ChildOrder := 3;\r\n    TC.ColHeader := False;\r\n    TC.ElementFont := efCSS;\r\n    TC.ElementHeaderClassName := 'table-info';\r\n    TC.ElementPosition := epIgnore;\r\n    TC.ElementTableClassName := 'table table-hover table-bordered table-striped';\r\n    TC.Footer.ButtonActiveElementClassName := 'btn btn-primary';\r\n    TC.Footer.ButtonElementClassName := 'btn btn-light';\r\n    TC.Footer.DropDownElementClassName := 'form-control';\r\n    TC.Footer.InputElementClassName := 'form-control';\r\n    TC.Footer.LinkActiveElementClassName := 'link-primary';\r\n    TC.Footer.LinkElementClassName := 'link-secondary';\r\n    TC.Footer.ListElementClassName := 'pagination';\r\n    TC.Footer.ListItemElementClassName := 'page-item';\r\n    TC.Footer.ListLinkElementClassName := 'page-link';\r\n    TC.Header.ButtonActiveElementClassName := 'btn btn-primary';\r\n    TC.Header.ButtonElementClassName := 'btn btn-light';\r\n    TC.Header.DropDownElementClassName := 'form-control';\r\n    TC.Header.InputElementClassName := 'form-control';\r\n    TC.Header.LinkActiveElementClassName := 'link-primary';\r\n    TC.Header.LinkElementClassName := 'link-secondary';\r\n    TC.Header.ListElementClassName := 'pagination';\r\n    TC.Header.ListItemElementClassName := 'page-item';\r\n    TC.Header.ListLinkElementClassName := 'page-link';\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 2;\r\n    edtStrasse.SetParentComponent(Self);\r\n    edtStrasse.Name := 'edtStrasse';\r\n    edtStrasse.Left := 352;\r\n    edtStrasse.Top := 200;\r\n    edtStrasse.Width := 220;\r\n    edtStrasse.Height := 22;\r\n    edtStrasse.ChildOrder := 4;\r\n    edtStrasse.ElementClassName := 'form-control';\r\n    edtStrasse.ElementFont := efCSS;\r\n    edtStrasse.HeightStyle := ssAuto;\r\n    edtStrasse.HeightPercent := 100.000000000000000000;\r\n    edtStrasse.Text := 'edtStrasse';\r\n    edtStrasse.WidthPercent := 100.000000000000000000;\r\n    edtStrasse.DataField := 'Strasse';\r\n    edtStrasse.DataSource := sourceEinzelkontakt;\r\n    edtPostleitzahl.SetParentComponent(Self);\r\n    edtPostleitzahl.Name := 'edtPostleitzahl';\r\n    edtPostleitzahl.Left := 352;\r\n    edtPostleitzahl.Top := 228;\r\n    edtPostleitzahl.Width := 220;\r\n    edtPostleitzahl.Height := 22;\r\n    edtPostleitzahl.ChildOrder := 4;\r\n    edtPostleitzahl.ElementClassName := 'form-control';\r\n    edtPostleitzahl.ElementFont := efCSS;\r\n    edtPostleitzahl.HeightStyle := ssAuto;\r\n    edtPostleitzahl.HeightPercent := 100.000000000000000000;\r\n    edtPostleitzahl.Text := 'WebDBEdit1';\r\n    edtPostleitzahl.WidthPercent := 100.000000000000000000;\r\n    edtPostleitzahl.DataField := 'Postleitzahl';\r\n    edtPostleitzahl.DataSource := sourceEinzelkontakt;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 0;\r\n    btnzurueck.Top := 158;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    btnSpeichern.SetParentComponent(Self);\r\n    btnSpeichern.Name := 'btnSpeichern';\r\n    btnSpeichern.Left := 102;\r\n    btnSpeichern.Top := 158;\r\n    btnSpeichern.Width := 96;\r\n    btnSpeichern.Height := 25;\r\n    btnSpeichern.Caption := 'speichern';\r\n    btnSpeichern.ChildOrder := 4;\r\n    btnSpeichern.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnSpeichern.ElementFont := efCSS;\r\n    btnSpeichern.ElementPosition := epIgnore;\r\n    btnSpeichern.HeightStyle := ssAuto;\r\n    btnSpeichern.HeightPercent := 100.000000000000000000;\r\n    btnSpeichern.WidthStyle := ssAuto;\r\n    btnSpeichern.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnSpeichern, Self, 'OnClick', 'btnSpeichernClick');\r\n    edtVorname.SetParentComponent(Self);\r\n    edtVorname.Name := 'edtVorname';\r\n    edtVorname.Left := 352;\r\n    edtVorname.Top := 80;\r\n    edtVorname.Width := 220;\r\n    edtVorname.Height := 22;\r\n    edtVorname.ChildOrder := 4;\r\n    edtVorname.ElementClassName := 'form-control';\r\n    edtVorname.ElementFont := efCSS;\r\n    edtVorname.HeightStyle := ssAuto;\r\n    edtVorname.HeightPercent := 100.000000000000000000;\r\n    edtVorname.Text := 'edtStrasse';\r\n    edtVorname.WidthPercent := 100.000000000000000000;\r\n    edtVorname.DataField := 'Vorname';\r\n    edtVorname.DataSource := sourceEinzelkontakt;\r\n    edtAdresszeile2.SetParentComponent(Self);\r\n    edtAdresszeile2.Name := 'edtAdresszeile2';\r\n    edtAdresszeile2.Left := 352;\r\n    edtAdresszeile2.Top := 108;\r\n    edtAdresszeile2.Width := 220;\r\n    edtAdresszeile2.Height := 22;\r\n    edtAdresszeile2.ChildOrder := 4;\r\n    edtAdresszeile2.ElementClassName := 'form-control';\r\n    edtAdresszeile2.ElementFont := efCSS;\r\n    edtAdresszeile2.HeightStyle := ssAuto;\r\n    edtAdresszeile2.HeightPercent := 100.000000000000000000;\r\n    edtAdresszeile2.Text := 'edtStrasse';\r\n    edtAdresszeile2.WidthPercent := 100.000000000000000000;\r\n    edtAdresszeile2.DataField := 'Adresszeile2';\r\n    edtAdresszeile2.DataSource := sourceEinzelkontakt;\r\n    edtAdresszeile3.SetParentComponent(Self);\r\n    edtAdresszeile3.Name := 'edtAdresszeile3';\r\n    edtAdresszeile3.Left := 352;\r\n    edtAdresszeile3.Top := 136;\r\n    edtAdresszeile3.Width := 220;\r\n    edtAdresszeile3.Height := 22;\r\n    edtAdresszeile3.ChildOrder := 4;\r\n    edtAdresszeile3.ElementClassName := 'form-control';\r\n    edtAdresszeile3.ElementFont := efCSS;\r\n    edtAdresszeile3.HeightStyle := ssAuto;\r\n    edtAdresszeile3.HeightPercent := 100.000000000000000000;\r\n    edtAdresszeile3.Text := 'edtStrasse';\r\n    edtAdresszeile3.WidthPercent := 100.000000000000000000;\r\n    edtAdresszeile3.DataField := 'Adresszeile3';\r\n    edtAdresszeile3.DataSource := sourceEinzelkontakt;\r\n    edtOrt.SetParentComponent(Self);\r\n    edtOrt.Name := 'edtOrt';\r\n    edtOrt.Left := 352;\r\n    edtOrt.Top := 256;\r\n    edtOrt.Width := 220;\r\n    edtOrt.Height := 22;\r\n    edtOrt.ChildOrder := 4;\r\n    edtOrt.ElementClassName := 'form-control';\r\n    edtOrt.ElementFont := efCSS;\r\n    edtOrt.HeightStyle := ssAuto;\r\n    edtOrt.HeightPercent := 100.000000000000000000;\r\n    edtOrt.Text := 'edtOrt';\r\n    edtOrt.WidthPercent := 100.000000000000000000;\r\n    edtOrt.DataField := 'Ort';\r\n    edtOrt.DataSource := sourceEinzelkontakt;\r\n    edtLand.SetParentComponent(Self);\r\n    edtLand.Name := 'edtLand';\r\n    edtLand.Left := 352;\r\n    edtLand.Top := 296;\r\n    edtLand.Width := 220;\r\n    edtLand.Height := 22;\r\n    edtLand.ElementClassName := 'form-control';\r\n    edtLand.ElementFont := efCSS;\r\n    edtLand.HeightStyle := ssAuto;\r\n    edtLand.HeightPercent := 100.000000000000000000;\r\n    edtLand.WidthPercent := 100.000000000000000000;\r\n    edtLand.DataField := 'Land';\r\n    edtLand.DataSource := sourceEinzelkontakt;\r\n    edtLand.KeyField := 'Land';\r\n    edtLand.ListField := 'Land';\r\n    edtLand.ListSource := sourceLaender;\r\n    edtTelefon.SetParentComponent(Self);\r\n    edtTelefon.Name := 'edtTelefon';\r\n    edtTelefon.Left := 352;\r\n    edtTelefon.Top := 324;\r\n    edtTelefon.Width := 220;\r\n    edtTelefon.Height := 22;\r\n    edtTelefon.ChildOrder := 4;\r\n    edtTelefon.ElementClassName := 'form-control';\r\n    edtTelefon.ElementFont := efCSS;\r\n    edtTelefon.HeightStyle := ssAuto;\r\n    edtTelefon.HeightPercent := 100.000000000000000000;\r\n    edtTelefon.Text := 'edtTelefon';\r\n    edtTelefon.WidthPercent := 100.000000000000000000;\r\n    edtTelefon.DataField := 'TelefonNummer';\r\n    edtTelefon.DataSource := sourceEinzelkontakt;\r\n    edtTelefonAlternativ.SetParentComponent(Self);\r\n    edtTelefonAlternativ.Name := 'edtTelefonAlternativ';\r\n    edtTelefonAlternativ.Left := 352;\r\n    edtTelefonAlternativ.Top := 352;\r\n    edtTelefonAlternativ.Width := 220;\r\n    edtTelefonAlternativ.Height := 22;\r\n    edtTelefonAlternativ.ChildOrder := 4;\r\n    edtTelefonAlternativ.ElementClassName := 'form-control';\r\n    edtTelefonAlternativ.ElementFont := efCSS;\r\n    edtTelefonAlternativ.HeightStyle := ssAuto;\r\n    edtTelefonAlternativ.HeightPercent := 100.000000000000000000;\r\n    edtTelefonAlternativ.Text := 'edtTelefon';\r\n    edtTelefonAlternativ.WidthPercent := 100.000000000000000000;\r\n    edtTelefonAlternativ.DataField := 'TelefonAlternativ';\r\n    edtTelefonAlternativ.DataSource := sourceEinzelkontakt;\r\n    edtTelefonMobil.SetParentComponent(Self);\r\n    edtTelefonMobil.Name := 'edtTelefonMobil';\r\n    edtTelefonMobil.Left := 352;\r\n    edtTelefonMobil.Top := 380;\r\n    edtTelefonMobil.Width := 220;\r\n    edtTelefonMobil.Height := 22;\r\n    edtTelefonMobil.ChildOrder := 4;\r\n    edtTelefonMobil.ElementClassName := 'form-control';\r\n    edtTelefonMobil.ElementFont := efCSS;\r\n    edtTelefonMobil.HeightStyle := ssAuto;\r\n    edtTelefonMobil.HeightPercent := 100.000000000000000000;\r\n    edtTelefonMobil.Text := 'edtTelefon';\r\n    edtTelefonMobil.WidthPercent := 100.000000000000000000;\r\n    edtTelefonMobil.DataField := 'MobilTelefon';\r\n    edtTelefonMobil.DataSource := sourceEinzelkontakt;\r\n    edtInternet.SetParentComponent(Self);\r\n    edtInternet.Name := 'edtInternet';\r\n    edtInternet.Left := 352;\r\n    edtInternet.Top := 408;\r\n    edtInternet.Width := 220;\r\n    edtInternet.Height := 22;\r\n    edtInternet.ChildOrder := 4;\r\n    edtInternet.ElementClassName := 'form-control';\r\n    edtInternet.ElementFont := efCSS;\r\n    edtInternet.HeightStyle := ssAuto;\r\n    edtInternet.HeightPercent := 100.000000000000000000;\r\n    edtInternet.Text := 'edtTelefon';\r\n    edtInternet.WidthPercent := 100.000000000000000000;\r\n    edtInternet.DataField := 'Internet';\r\n    edtInternet.DataSource := sourceEinzelkontakt;\r\n    edtEmail.SetParentComponent(Self);\r\n    edtEmail.Name := 'edtEmail';\r\n    edtEmail.Left := 352;\r\n    edtEmail.Top := 436;\r\n    edtEmail.Width := 220;\r\n    edtEmail.Height := 22;\r\n    edtEmail.ChildOrder := 4;\r\n    edtEmail.ElementClassName := 'form-control';\r\n    edtEmail.ElementFont := efCSS;\r\n    edtEmail.HeightStyle := ssAuto;\r\n    edtEmail.HeightPercent := 100.000000000000000000;\r\n    edtEmail.Text := 'edtTelefon';\r\n    edtEmail.WidthPercent := 100.000000000000000000;\r\n    edtEmail.DataField := 'EMail';\r\n    edtEmail.DataSource := sourceEinzelkontakt;\r\n    edtAdressanrede.SetParentComponent(Self);\r\n    edtAdressanrede.Name := 'edtAdressanrede';\r\n    edtAdressanrede.Left := 352;\r\n    edtAdressanrede.Top := 52;\r\n    edtAdressanrede.Width := 220;\r\n    edtAdressanrede.Height := 22;\r\n    edtAdressanrede.ChildOrder := 4;\r\n    edtAdressanrede.ElementClassName := 'form-control';\r\n    edtAdressanrede.ElementFont := efCSS;\r\n    edtAdressanrede.HeightStyle := ssAuto;\r\n    edtAdressanrede.HeightPercent := 100.000000000000000000;\r\n    edtAdressanrede.Text := 'edtStrasse';\r\n    edtAdressanrede.WidthPercent := 100.000000000000000000;\r\n    edtAdressanrede.DataField := 'Adressanrede';\r\n    edtAdressanrede.DataSource := sourceEinzelkontakt;\r\n    edtTitel.SetParentComponent(Self);\r\n    edtTitel.Name := 'edtTitel';\r\n    edtTitel.Left := 352;\r\n    edtTitel.Top := 24;\r\n    edtTitel.Width := 220;\r\n    edtTitel.Height := 22;\r\n    edtTitel.ChildOrder := 4;\r\n    edtTitel.ElementClassName := 'form-control';\r\n    edtTitel.ElementFont := efCSS;\r\n    edtTitel.HeightStyle := ssAuto;\r\n    edtTitel.HeightPercent := 100.000000000000000000;\r\n    edtTitel.Text := 'edtStrasse';\r\n    edtTitel.WidthPercent := 100.000000000000000000;\r\n    edtTitel.DataField := 'Titel';\r\n    edtTitel.DataSource := sourceEinzelkontakt;\r\n    edtNachname.SetParentComponent(Self);\r\n    edtNachname.Name := 'edtNachname';\r\n    edtNachname.Left := 352;\r\n    edtNachname.Top := -4;\r\n    edtNachname.Width := 220;\r\n    edtNachname.Height := 22;\r\n    edtNachname.ChildOrder := 4;\r\n    edtNachname.ElementClassName := 'form-control';\r\n    edtNachname.ElementFont := efCSS;\r\n    edtNachname.HeightStyle := ssAuto;\r\n    edtNachname.HeightPercent := 100.000000000000000000;\r\n    edtNachname.ReadOnly := True;\r\n    edtNachname.Text := 'edtStrasse';\r\n    edtNachname.WidthPercent := 100.000000000000000000;\r\n    edtNachname.DataField := 'Nachname';\r\n    edtNachname.DataSource := sourceEinzelkontakt;\r\n    sourceEinzelkontakt.SetParentComponent(Self);\r\n    sourceEinzelkontakt.Name := 'sourceEinzelkontakt';\r\n    sourceEinzelkontakt.DataSet := xdsEinzelkontakt;\r\n    SetEvent(sourceEinzelkontakt, Self, 'OnStateChange', 'sourceEinzelkontaktStateChange');\r\n    sourceEinzelkontakt.Left := 52;\r\n    sourceEinzelkontakt.Top := 165;\r\n    xdsEinzelkontakt.SetParentComponent(Self);\r\n    xdsEinzelkontakt.Name := 'xdsEinzelkontakt';\r\n    xdsEinzelkontakt.AfterApplyUpdates := xdsEinzelkontaktAfterApplyUpdates;\r\n    xdsEinzelkontakt.AfterOpen := xdsEinzelkontaktAfterOpen;\r\n    xdsEinzelkontakt.BeforePost := xdsEinzelkontaktBeforePost;\r\n    xdsEinzelkontakt.AfterPost := xdsEinzelkontaktAfterPost;\r\n    xdsEinzelkontakt.EntitySetName := 'Adressen';\r\n    xdsEinzelkontakt.Connection := DM2.XDataWebConnection1;\r\n    xdsEinzelkontakt.QueryTop := 1;\r\n    xdsEinzelkontakt.Left := 52;\r\n    xdsEinzelkontakt.Top := 221;\r\n    xdsEinzelkontaktKundennummer.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKundennummer.Name := 'xdsEinzelkontaktKundennummer';\r\n    xdsEinzelkontaktKundennummer.FieldName := 'Kundennummer';\r\n    xdsEinzelkontaktKundennummer.Required := True;\r\n    xdsEinzelkontaktKundennummer.Size := 13;\r\n    xdsEinzelkontaktGruppeKunden.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktGruppeKunden.Name := 'xdsEinzelkontaktGruppeKunden';\r\n    xdsEinzelkontaktGruppeKunden.FieldName := 'GruppeKunden';\r\n    xdsEinzelkontaktGruppeLieferanten.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktGruppeLieferanten.Name := 'xdsEinzelkontaktGruppeLieferanten';\r\n    xdsEinzelkontaktGruppeLieferanten.FieldName := 'GruppeLieferanten';\r\n    xdsEinzelkontaktGruppeSonstige.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktGruppeSonstige.Name := 'xdsEinzelkontaktGruppeSonstige';\r\n    xdsEinzelkontaktGruppeSonstige.FieldName := 'GruppeSonstige';\r\n    xdsEinzelkontaktGruppeNichtkunden.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktGruppeNichtkunden.Name := 'xdsEinzelkontaktGruppeNichtkunden';\r\n    xdsEinzelkontaktGruppeNichtkunden.FieldName := 'GruppeNichtkunden';\r\n    xdsEinzelkontaktKontaktgruppe.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKontaktgruppe.Name := 'xdsEinzelkontaktKontaktgruppe';\r\n    xdsEinzelkontaktKontaktgruppe.FieldName := 'Kontaktgruppe';\r\n    xdsEinzelkontaktKontaktgruppe.Size := 50;\r\n    xdsEinzelkontaktNachname.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktNachname.Name := 'xdsEinzelkontaktNachname';\r\n    xdsEinzelkontaktNachname.FieldName := 'Nachname';\r\n    xdsEinzelkontaktNachname.Size := 40;\r\n    xdsEinzelkontaktVorname.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktVorname.Name := 'xdsEinzelkontaktVorname';\r\n    xdsEinzelkontaktVorname.FieldName := 'Vorname';\r\n    xdsEinzelkontaktVorname.Size := 40;\r\n    xdsEinzelkontaktAdresszeile2.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktAdresszeile2.Name := 'xdsEinzelkontaktAdresszeile2';\r\n    xdsEinzelkontaktAdresszeile2.FieldName := 'Adresszeile2';\r\n    xdsEinzelkontaktAdresszeile2.Size := 40;\r\n    xdsEinzelkontaktAdresszeile3.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktAdresszeile3.Name := 'xdsEinzelkontaktAdresszeile3';\r\n    xdsEinzelkontaktAdresszeile3.FieldName := 'Adresszeile3';\r\n    xdsEinzelkontaktAdresszeile3.Size := 40;\r\n    xdsEinzelkontaktStrasse.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStrasse.Name := 'xdsEinzelkontaktStrasse';\r\n    xdsEinzelkontaktStrasse.FieldName := 'Strasse';\r\n    xdsEinzelkontaktStrasse.Size := 40;\r\n    xdsEinzelkontaktPostleitzahl.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktPostleitzahl.Name := 'xdsEinzelkontaktPostleitzahl';\r\n    xdsEinzelkontaktPostleitzahl.FieldName := 'Postleitzahl';\r\n    xdsEinzelkontaktPostleitzahl.Size := 6;\r\n    xdsEinzelkontaktOrt.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktOrt.Name := 'xdsEinzelkontaktOrt';\r\n    xdsEinzelkontaktOrt.FieldName := 'Ort';\r\n    xdsEinzelkontaktOrt.Size := 40;\r\n    xdsEinzelkontaktLaenderkuerzel.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktLaenderkuerzel.Name := 'xdsEinzelkontaktLaenderkuerzel';\r\n    xdsEinzelkontaktLaenderkuerzel.FieldName := 'Laenderkuerzel';\r\n    xdsEinzelkontaktLaenderkuerzel.Size := 5;\r\n    xdsEinzelkontaktLand.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktLand.Name := 'xdsEinzelkontaktLand';\r\n    xdsEinzelkontaktLand.FieldName := 'Land';\r\n    xdsEinzelkontaktLand.Size := 40;\r\n    xdsEinzelkontaktLaenderkennzeichen.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktLaenderkennzeichen.Name := 'xdsEinzelkontaktLaenderkennzeichen';\r\n    xdsEinzelkontaktLaenderkennzeichen.FieldName := 'Laenderkennzeichen';\r\n    xdsEinzelkontaktAdressanrede.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktAdressanrede.Name := 'xdsEinzelkontaktAdressanrede';\r\n    xdsEinzelkontaktAdressanrede.FieldName := 'Adressanrede';\r\n    xdsEinzelkontaktAdressanrede.Size := 15;\r\n    xdsEinzelkontaktBriefanrede1.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBriefanrede1.Name := 'xdsEinzelkontaktBriefanrede1';\r\n    xdsEinzelkontaktBriefanrede1.FieldName := 'Briefanrede1';\r\n    xdsEinzelkontaktBriefanrede1.Size := 255;\r\n    xdsEinzelkontaktBriefanrede2.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBriefanrede2.Name := 'xdsEinzelkontaktBriefanrede2';\r\n    xdsEinzelkontaktBriefanrede2.FieldName := 'Briefanrede2';\r\n    xdsEinzelkontaktBriefanrede2.Size := 40;\r\n    xdsEinzelkontaktAdresseBild.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktAdresseBild.Name := 'xdsEinzelkontaktAdresseBild';\r\n    xdsEinzelkontaktAdresseBild.FieldName := 'AdresseBild';\r\n    xdsEinzelkontaktAdresseBild.Size := 255;\r\n    xdsEinzelkontaktLieferanschrift.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktLieferanschrift.Name := 'xdsEinzelkontaktLieferanschrift';\r\n    xdsEinzelkontaktLieferanschrift.FieldName := 'Lieferanschrift';\r\n    xdsEinzelkontaktLieferanschrift.Size := 255;\r\n    xdsEinzelkontaktGeburtsdatum.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktGeburtsdatum.Name := 'xdsEinzelkontaktGeburtsdatum';\r\n    xdsEinzelkontaktGeburtsdatum.FieldName := 'Geburtsdatum';\r\n    xdsEinzelkontaktTelefonNummer.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktTelefonNummer.Name := 'xdsEinzelkontaktTelefonNummer';\r\n    xdsEinzelkontaktTelefonNummer.FieldName := 'TelefonNummer';\r\n    xdsEinzelkontaktTelefonNummer.Size := 25;\r\n    xdsEinzelkontaktTelefaxNummer.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktTelefaxNummer.Name := 'xdsEinzelkontaktTelefaxNummer';\r\n    xdsEinzelkontaktTelefaxNummer.FieldName := 'TelefaxNummer';\r\n    xdsEinzelkontaktTelefaxNummer.Size := 25;\r\n    xdsEinzelkontaktMobilTelefon.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktMobilTelefon.Name := 'xdsEinzelkontaktMobilTelefon';\r\n    xdsEinzelkontaktMobilTelefon.FieldName := 'MobilTelefon';\r\n    xdsEinzelkontaktMobilTelefon.Size := 25;\r\n    xdsEinzelkontaktEMail.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktEMail.Name := 'xdsEinzelkontaktEMail';\r\n    xdsEinzelkontaktEMail.FieldName := 'EMail';\r\n    xdsEinzelkontaktEMail.Size := 50;\r\n    xdsEinzelkontaktInternet.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktInternet.Name := 'xdsEinzelkontaktInternet';\r\n    xdsEinzelkontaktInternet.FieldName := 'Internet';\r\n    xdsEinzelkontaktInternet.Size := 50;\r\n    xdsEinzelkontaktUmsatzsteuerID.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktUmsatzsteuerID.Name := 'xdsEinzelkontaktUmsatzsteuerID';\r\n    xdsEinzelkontaktUmsatzsteuerID.FieldName := 'UmsatzsteuerID';\r\n    xdsEinzelkontaktUmsatzsteuerausweis.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktUmsatzsteuerausweis.Name := 'xdsEinzelkontaktUmsatzsteuerausweis';\r\n    xdsEinzelkontaktUmsatzsteuerausweis.FieldName := 'Umsatzsteuerausweis';\r\n    xdsEinzelkontaktBemerkungen.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBemerkungen.Name := 'xdsEinzelkontaktBemerkungen';\r\n    xdsEinzelkontaktBemerkungen.FieldName := 'Bemerkungen';\r\n    xdsEinzelkontaktBemerkungen.Size := 255;\r\n    xdsEinzelkontaktBranche.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBranche.Name := 'xdsEinzelkontaktBranche';\r\n    xdsEinzelkontaktBranche.FieldName := 'Branche';\r\n    xdsEinzelkontaktBranche.Size := 50;\r\n    xdsEinzelkontaktSelektiert1.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktSelektiert1.Name := 'xdsEinzelkontaktSelektiert1';\r\n    xdsEinzelkontaktSelektiert1.FieldName := 'Selektiert1';\r\n    xdsEinzelkontaktSelektiert2.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktSelektiert2.Name := 'xdsEinzelkontaktSelektiert2';\r\n    xdsEinzelkontaktSelektiert2.FieldName := 'Selektiert2';\r\n    xdsEinzelkontaktSelektiert3.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktSelektiert3.Name := 'xdsEinzelkontaktSelektiert3';\r\n    xdsEinzelkontaktSelektiert3.FieldName := 'Selektiert3';\r\n    xdsEinzelkontaktZahlungsbedingung.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktZahlungsbedingung.Name := 'xdsEinzelkontaktZahlungsbedingung';\r\n    xdsEinzelkontaktZahlungsbedingung.FieldName := 'Zahlungsbedingung';\r\n    xdsEinzelkontaktTransportbedingung.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktTransportbedingung.Name := 'xdsEinzelkontaktTransportbedingung';\r\n    xdsEinzelkontaktTransportbedingung.FieldName := 'Transportbedingung';\r\n    xdsEinzelkontaktTransportbedingung.Size := 100;\r\n    xdsEinzelkontaktKilometer.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKilometer.Name := 'xdsEinzelkontaktKilometer';\r\n    xdsEinzelkontaktKilometer.FieldName := 'Kilometer';\r\n    xdsEinzelkontaktRabattsatz.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktRabattsatz.Name := 'xdsEinzelkontaktRabattsatz';\r\n    xdsEinzelkontaktRabattsatz.FieldName := 'Rabattsatz';\r\n    xdsEinzelkontaktStundensatz.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStundensatz.Name := 'xdsEinzelkontaktStundensatz';\r\n    xdsEinzelkontaktStundensatz.FieldName := 'Stundensatz';\r\n    xdsEinzelkontaktKontonummer.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKontonummer.Name := 'xdsEinzelkontaktKontonummer';\r\n    xdsEinzelkontaktKontonummer.FieldName := 'Kontonummer';\r\n    xdsEinzelkontaktKontonummer.Size := 50;\r\n    xdsEinzelkontaktBank.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBank.Name := 'xdsEinzelkontaktBank';\r\n    xdsEinzelkontaktBank.FieldName := 'Bank';\r\n    xdsEinzelkontaktBank.Size := 50;\r\n    xdsEinzelkontaktBankleitzahl.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBankleitzahl.Name := 'xdsEinzelkontaktBankleitzahl';\r\n    xdsEinzelkontaktBankleitzahl.FieldName := 'Bankleitzahl';\r\n    xdsEinzelkontaktKontoinhaber.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKontoinhaber.Name := 'xdsEinzelkontaktKontoinhaber';\r\n    xdsEinzelkontaktKontoinhaber.FieldName := 'Kontoinhaber';\r\n    xdsEinzelkontaktKontoinhaber.Size := 50;\r\n    xdsEinzelkontaktBetreuer.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBetreuer.Name := 'xdsEinzelkontaktBetreuer';\r\n    xdsEinzelkontaktBetreuer.FieldName := 'Betreuer';\r\n    xdsEinzelkontaktBetreuer.Size := 50;\r\n    xdsEinzelkontaktQuelle.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktQuelle.Name := 'xdsEinzelkontaktQuelle';\r\n    xdsEinzelkontaktQuelle.FieldName := 'Quelle';\r\n    xdsEinzelkontaktQuelle.Size := 100;\r\n    xdsEinzelkontaktSuchmerkmal.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktSuchmerkmal.Name := 'xdsEinzelkontaktSuchmerkmal';\r\n    xdsEinzelkontaktSuchmerkmal.FieldName := 'Suchmerkmal';\r\n    xdsEinzelkontaktSuchmerkmal.Size := 250;\r\n    xdsEinzelkontaktWarenkreditlimit.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktWarenkreditlimit.Name := 'xdsEinzelkontaktWarenkreditlimit';\r\n    xdsEinzelkontaktWarenkreditlimit.FieldName := 'Warenkreditlimit';\r\n    xdsEinzelkontaktWarenkreditgesperrt.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktWarenkreditgesperrt.Name := 'xdsEinzelkontaktWarenkreditgesperrt';\r\n    xdsEinzelkontaktWarenkreditgesperrt.FieldName := 'Warenkreditgesperrt';\r\n    xdsEinzelkontaktKundennummerFremd.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKundennummerFremd.Name := 'xdsEinzelkontaktKundennummerFremd';\r\n    xdsEinzelkontaktKundennummerFremd.FieldName := 'KundennummerFremd';\r\n    xdsEinzelkontaktKeinNewsletter.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKeinNewsletter.Name := 'xdsEinzelkontaktKeinNewsletter';\r\n    xdsEinzelkontaktKeinNewsletter.FieldName := 'KeinNewsletter';\r\n    xdsEinzelkontaktDebitorennummer.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktDebitorennummer.Name := 'xdsEinzelkontaktDebitorennummer';\r\n    xdsEinzelkontaktDebitorennummer.FieldName := 'Debitorennummer';\r\n    xdsEinzelkontaktDebitorennummer.Size := 13;\r\n    xdsEinzelkontaktKreditorennummer.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKreditorennummer.Name := 'xdsEinzelkontaktKreditorennummer';\r\n    xdsEinzelkontaktKreditorennummer.FieldName := 'Kreditorennummer';\r\n    xdsEinzelkontaktKreditorennummer.Size := 13;\r\n    xdsEinzelkontaktTelefonAlternativ.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktTelefonAlternativ.Name := 'xdsEinzelkontaktTelefonAlternativ';\r\n    xdsEinzelkontaktTelefonAlternativ.FieldName := 'TelefonAlternativ';\r\n    xdsEinzelkontaktTelefonAlternativ.Size := 50;\r\n    xdsEinzelkontaktKostentraeger.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKostentraeger.Name := 'xdsEinzelkontaktKostentraeger';\r\n    xdsEinzelkontaktKostentraeger.FieldName := 'Kostentraeger';\r\n    xdsEinzelkontaktKostentraeger.Size := 13;\r\n    xdsEinzelkontaktIBAN.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktIBAN.Name := 'xdsEinzelkontaktIBAN';\r\n    xdsEinzelkontaktIBAN.FieldName := 'IBAN';\r\n    xdsEinzelkontaktIBAN.Size := 50;\r\n    xdsEinzelkontaktBIC.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBIC.Name := 'xdsEinzelkontaktBIC';\r\n    xdsEinzelkontaktBIC.FieldName := 'BIC';\r\n    xdsEinzelkontaktEmailkonto.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktEmailkonto.Name := 'xdsEinzelkontaktEmailkonto';\r\n    xdsEinzelkontaktEmailkonto.FieldName := 'Emailkonto';\r\n    xdsEinzelkontaktEmailkonto.Size := 50;\r\n    xdsEinzelkontaktBenutzername.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBenutzername.Name := 'xdsEinzelkontaktBenutzername';\r\n    xdsEinzelkontaktBenutzername.FieldName := 'Benutzername';\r\n    xdsEinzelkontaktBenutzername.Size := 50;\r\n    xdsEinzelkontaktPasswort.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktPasswort.Name := 'xdsEinzelkontaktPasswort';\r\n    xdsEinzelkontaktPasswort.FieldName := 'Passwort';\r\n    xdsEinzelkontaktPasswort.Size := 25;\r\n    xdsEinzelkontaktExportOutlook.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktExportOutlook.Name := 'xdsEinzelkontaktExportOutlook';\r\n    xdsEinzelkontaktExportOutlook.FieldName := 'ExportOutlook';\r\n    xdsEinzelkontaktNichtInListeAnzeigen.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktNichtInListeAnzeigen.Name := 'xdsEinzelkontaktNichtInListeAnzeigen';\r\n    xdsEinzelkontaktNichtInListeAnzeigen.FieldName := 'NichtInListeAnzeigen';\r\n    xdsEinzelkontaktKreditkarteArt.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKreditkarteArt.Name := 'xdsEinzelkontaktKreditkarteArt';\r\n    xdsEinzelkontaktKreditkarteArt.FieldName := 'KreditkarteArt';\r\n    xdsEinzelkontaktKreditkarteArt.Size := 30;\r\n    xdsEinzelkontaktKreditkarteInhaber.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKreditkarteInhaber.Name := 'xdsEinzelkontaktKreditkarteInhaber';\r\n    xdsEinzelkontaktKreditkarteInhaber.FieldName := 'KreditkarteInhaber';\r\n    xdsEinzelkontaktKreditkarteInhaber.Size := 50;\r\n    xdsEinzelkontaktKreditkarteNummer.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKreditkarteNummer.Name := 'xdsEinzelkontaktKreditkarteNummer';\r\n    xdsEinzelkontaktKreditkarteNummer.FieldName := 'KreditkarteNummer';\r\n    xdsEinzelkontaktKreditkarteGueltigMonat.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKreditkarteGueltigMonat.Name := 'xdsEinzelkontaktKreditkarteGueltigMonat';\r\n    xdsEinzelkontaktKreditkarteGueltigMonat.FieldName := 'KreditkarteGueltigMonat';\r\n    xdsEinzelkontaktKreditkarteGueltigMonat.Size := 2;\r\n    xdsEinzelkontaktKreditkarteGueltigJahr.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKreditkarteGueltigJahr.Name := 'xdsEinzelkontaktKreditkarteGueltigJahr';\r\n    xdsEinzelkontaktKreditkarteGueltigJahr.FieldName := 'KreditkarteGueltigJahr';\r\n    xdsEinzelkontaktKreditkartePruefziffer.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKreditkartePruefziffer.Name := 'xdsEinzelkontaktKreditkartePruefziffer';\r\n    xdsEinzelkontaktKreditkartePruefziffer.FieldName := 'KreditkartePruefziffer';\r\n    xdsEinzelkontaktKreditkartePruefziffer.Size := 10;\r\n    xdsEinzelkontaktDatumNeu.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktDatumNeu.Name := 'xdsEinzelkontaktDatumNeu';\r\n    xdsEinzelkontaktDatumNeu.FieldName := 'DatumNeu';\r\n    xdsEinzelkontaktDatumgeaendert.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktDatumgeaendert.Name := 'xdsEinzelkontaktDatumgeaendert';\r\n    xdsEinzelkontaktDatumgeaendert.FieldName := 'Datumgeaendert';\r\n    xdsEinzelkontaktTitel.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktTitel.Name := 'xdsEinzelkontaktTitel';\r\n    xdsEinzelkontaktTitel.FieldName := 'Titel';\r\n    xdsEinzelkontaktStundensatzMontage.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStundensatzMontage.Name := 'xdsEinzelkontaktStundensatzMontage';\r\n    xdsEinzelkontaktStundensatzMontage.FieldName := 'StundensatzMontage';\r\n    xdsEinzelkontaktStdMontageU25.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStdMontageU25.Name := 'xdsEinzelkontaktStdMontageU25';\r\n    xdsEinzelkontaktStdMontageU25.FieldName := 'StdMontageU25';\r\n    xdsEinzelkontaktStdMontageU50.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStdMontageU50.Name := 'xdsEinzelkontaktStdMontageU50';\r\n    xdsEinzelkontaktStdMontageU50.FieldName := 'StdMontageU50';\r\n    xdsEinzelkontaktStdMontageU70.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStdMontageU70.Name := 'xdsEinzelkontaktStdMontageU70';\r\n    xdsEinzelkontaktStdMontageU70.FieldName := 'StdMontageU70';\r\n    xdsEinzelkontaktStdMontageU100.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStdMontageU100.Name := 'xdsEinzelkontaktStdMontageU100';\r\n    xdsEinzelkontaktStdMontageU100.FieldName := 'StdMontageU100';\r\n    xdsEinzelkontaktStdMontageU150.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStdMontageU150.Name := 'xdsEinzelkontaktStdMontageU150';\r\n    xdsEinzelkontaktStdMontageU150.FieldName := 'StdMontageU150';\r\n    xdsEinzelkontaktStundensatzWerkstatt.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStundensatzWerkstatt.Name := 'xdsEinzelkontaktStundensatzWerkstatt';\r\n    xdsEinzelkontaktStundensatzWerkstatt.FieldName := 'StundensatzWerkstatt';\r\n    xdsEinzelkontaktStdWerkstattU25.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStdWerkstattU25.Name := 'xdsEinzelkontaktStdWerkstattU25';\r\n    xdsEinzelkontaktStdWerkstattU25.FieldName := 'StdWerkstattU25';\r\n    xdsEinzelkontaktStdWerkstattU50.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStdWerkstattU50.Name := 'xdsEinzelkontaktStdWerkstattU50';\r\n    xdsEinzelkontaktStdWerkstattU50.FieldName := 'StdWerkstattU50';\r\n    xdsEinzelkontaktStdWerkstattU70.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStdWerkstattU70.Name := 'xdsEinzelkontaktStdWerkstattU70';\r\n    xdsEinzelkontaktStdWerkstattU70.FieldName := 'StdWerkstattU70';\r\n    xdsEinzelkontaktStdWerkstattU100.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStdWerkstattU100.Name := 'xdsEinzelkontaktStdWerkstattU100';\r\n    xdsEinzelkontaktStdWerkstattU100.FieldName := 'StdWerkstattU100';\r\n    xdsEinzelkontaktStdWerkstattU150.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStdWerkstattU150.Name := 'xdsEinzelkontaktStdWerkstattU150';\r\n    xdsEinzelkontaktStdWerkstattU150.FieldName := 'StdWerkstattU150';\r\n    xdsEinzelkontaktArchivReferenz.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktArchivReferenz.Name := 'xdsEinzelkontaktArchivReferenz';\r\n    xdsEinzelkontaktArchivReferenz.FieldName := 'ArchivReferenz';\r\n    xdsEinzelkontaktArchivReferenz.Size := 55;\r\n    xdsEinzelkontaktErloesKontoUST1.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktErloesKontoUST1.Name := 'xdsEinzelkontaktErloesKontoUST1';\r\n    xdsEinzelkontaktErloesKontoUST1.FieldName := 'ErloesKontoUST1';\r\n    xdsEinzelkontaktErloesKontoUST1.Size := 10;\r\n    xdsEinzelkontaktErloesKontoUST2.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktErloesKontoUST2.Name := 'xdsEinzelkontaktErloesKontoUST2';\r\n    xdsEinzelkontaktErloesKontoUST2.FieldName := 'ErloesKontoUST2';\r\n    xdsEinzelkontaktErloesKontoUST2.Size := 10;\r\n    xdsEinzelkontaktErloesKontoUST3.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktErloesKontoUST3.Name := 'xdsEinzelkontaktErloesKontoUST3';\r\n    xdsEinzelkontaktErloesKontoUST3.FieldName := 'ErloesKontoUST3';\r\n    xdsEinzelkontaktErloesKontoUST3.Size := 10;\r\n    xdsEinzelkontaktGebKal.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktGebKal.Name := 'xdsEinzelkontaktGebKal';\r\n    xdsEinzelkontaktGebKal.FieldName := 'GebKal';\r\n    xdsEinzelkontaktEmailversand.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktEmailversand.Name := 'xdsEinzelkontaktEmailversand';\r\n    xdsEinzelkontaktEmailversand.FieldName := 'Emailversand';\r\n    xdsEinzelkontaktMahnspesen.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktMahnspesen.Name := 'xdsEinzelkontaktMahnspesen';\r\n    xdsEinzelkontaktMahnspesen.FieldName := 'Mahnspesen';\r\n    xdsEinzelkontaktRechnungSchluss.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktRechnungSchluss.Name := 'xdsEinzelkontaktRechnungSchluss';\r\n    xdsEinzelkontaktRechnungSchluss.FieldName := 'RechnungSchluss';\r\n    xdsEinzelkontaktRechnungSchluss.Size := 255;\r\n    xdsEinzelkontaktBenutzerNeu.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBenutzerNeu.Name := 'xdsEinzelkontaktBenutzerNeu';\r\n    xdsEinzelkontaktBenutzerNeu.FieldName := 'BenutzerNeu';\r\n    xdsEinzelkontaktBenutzerNeu.Size := 50;\r\n    xdsEinzelkontaktBenutzerGeaendert.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBenutzerGeaendert.Name := 'xdsEinzelkontaktBenutzerGeaendert';\r\n    xdsEinzelkontaktBenutzerGeaendert.FieldName := 'BenutzerGeaendert';\r\n    xdsEinzelkontaktBenutzerGeaendert.Size := 50;\r\n    xdsEinzelkontaktBelegsprache.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBelegsprache.Name := 'xdsEinzelkontaktBelegsprache';\r\n    xdsEinzelkontaktBelegsprache.FieldName := 'Belegsprache';\r\n    xdsEinzelkontaktBelegsprache.Size := 10;\r\n    xdsEinzelkontaktkmSatz.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktkmSatz.Name := 'xdsEinzelkontaktkmSatz';\r\n    xdsEinzelkontaktkmSatz.FieldName := 'kmSatz';\r\n    xdsEinzelkontaktKundenklassetext.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKundenklassetext.Name := 'xdsEinzelkontaktKundenklassetext';\r\n    xdsEinzelkontaktKundenklassetext.FieldName := 'Kundenklassetext';\r\n    xdsEinzelkontaktKundenklassetext.Size := 50;\r\n    xdsEinzelkontaktKundenklasseFarbe.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKundenklasseFarbe.Name := 'xdsEinzelkontaktKundenklasseFarbe';\r\n    xdsEinzelkontaktKundenklasseFarbe.FieldName := 'KundenklasseFarbe';\r\n    xdsEinzelkontaktAbweichenderRechnungsEmpfaenger.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktAbweichenderRechnungsEmpfaenger.Name := 'xdsEinzelkontaktAbweichenderRechnungsEmpfaenger';\r\n    xdsEinzelkontaktAbweichenderRechnungsEmpfaenger.FieldName := 'AbweichenderRechnungsEmpfaenger';\r\n    xdsEinzelkontaktAbweichenderRechnungsEmpfaenger.Size := 13;\r\n    xdsEinzelkontaktProtokoll.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktProtokoll.Name := 'xdsEinzelkontaktProtokoll';\r\n    xdsEinzelkontaktProtokoll.FieldName := 'Protokoll';\r\n    xdsEinzelkontaktProtokoll.Size := 255;\r\n    xdsEinzelkontaktILNTyp1.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktILNTyp1.Name := 'xdsEinzelkontaktILNTyp1';\r\n    xdsEinzelkontaktILNTyp1.FieldName := 'ILNTyp1';\r\n    xdsEinzelkontaktILNTyp1.Size := 13;\r\n    xdsEinzelkontaktILNTyp2.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktILNTyp2.Name := 'xdsEinzelkontaktILNTyp2';\r\n    xdsEinzelkontaktILNTyp2.FieldName := 'ILNTyp2';\r\n    xdsEinzelkontaktILNTyp2.Size := 13;\r\n    xdsEinzelkontaktKontaktGUID.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKontaktGUID.Name := 'xdsEinzelkontaktKontaktGUID';\r\n    xdsEinzelkontaktKontaktGUID.FieldName := 'KontaktGUID';\r\n    xdsEinzelkontaktKontaktGUID.Size := 38;\r\n    xdsEinzelkontaktPLZGUID.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktPLZGUID.Name := 'xdsEinzelkontaktPLZGUID';\r\n    xdsEinzelkontaktPLZGUID.FieldName := 'PLZGUID';\r\n    xdsEinzelkontaktPLZGUID.Size := 38;\r\n    xdsEinzelkontaktPreislistenVariantePakete.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktPreislistenVariantePakete.Name := 'xdsEinzelkontaktPreislistenVariantePakete';\r\n    xdsEinzelkontaktPreislistenVariantePakete.FieldName := 'PreislistenVariantePakete';\r\n    xdsEinzelkontaktPreislistenVariantePakete.Size := 50;\r\n    xdsEinzelkontaktSchluesselRechnungslauf.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktSchluesselRechnungslauf.Name := 'xdsEinzelkontaktSchluesselRechnungslauf';\r\n    xdsEinzelkontaktSchluesselRechnungslauf.FieldName := 'SchluesselRechnungslauf';\r\n    xdsEinzelkontaktSchluesselRechnungslauf.Size := 50;\r\n    xdsEinzelkontaktRechnungEmail.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktRechnungEmail.Name := 'xdsEinzelkontaktRechnungEmail';\r\n    xdsEinzelkontaktRechnungEmail.FieldName := 'RechnungEmail';\r\n    xdsEinzelkontaktRechnungEmail.Size := 50;\r\n    xdsEinzelkontaktZahlungsbedingungEK.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktZahlungsbedingungEK.Name := 'xdsEinzelkontaktZahlungsbedingungEK';\r\n    xdsEinzelkontaktZahlungsbedingungEK.FieldName := 'ZahlungsbedingungEK';\r\n    xdsEinzelkontaktTransportbedingungEK.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktTransportbedingungEK.Name := 'xdsEinzelkontaktTransportbedingungEK';\r\n    xdsEinzelkontaktTransportbedingungEK.FieldName := 'TransportbedingungEK';\r\n    xdsEinzelkontaktTransportbedingungEK.Size := 100;\r\n    xdsEinzelkontaktRabattsatzEK.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktRabattsatzEK.Name := 'xdsEinzelkontaktRabattsatzEK';\r\n    xdsEinzelkontaktRabattsatzEK.FieldName := 'RabattsatzEK';\r\n    xdsEinzelkontaktVertreterMatchcode.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktVertreterMatchcode.Name := 'xdsEinzelkontaktVertreterMatchcode';\r\n    xdsEinzelkontaktVertreterMatchcode.FieldName := 'VertreterMatchcode';\r\n    xdsEinzelkontaktVertreterMatchcode.Size := 50;\r\n    xdsEinzelkontaktVertreterProvisionssatz.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktVertreterProvisionssatz.Name := 'xdsEinzelkontaktVertreterProvisionssatz';\r\n    xdsEinzelkontaktVertreterProvisionssatz.FieldName := 'VertreterProvisionssatz';\r\n    xdsEinzelkontaktUmsatzVKJahr.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktUmsatzVKJahr.Name := 'xdsEinzelkontaktUmsatzVKJahr';\r\n    xdsEinzelkontaktUmsatzVKJahr.FieldName := 'UmsatzVKJahr';\r\n    xdsEinzelkontaktUmsatzVKVorjahr.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktUmsatzVKVorjahr.Name := 'xdsEinzelkontaktUmsatzVKVorjahr';\r\n    xdsEinzelkontaktUmsatzVKVorjahr.FieldName := 'UmsatzVKVorjahr';\r\n    xdsEinzelkontaktUmsatzEKJahr.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktUmsatzEKJahr.Name := 'xdsEinzelkontaktUmsatzEKJahr';\r\n    xdsEinzelkontaktUmsatzEKJahr.FieldName := 'UmsatzEKJahr';\r\n    xdsEinzelkontaktUmsatzEKVorjahr.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktUmsatzEKVorjahr.Name := 'xdsEinzelkontaktUmsatzEKVorjahr';\r\n    xdsEinzelkontaktUmsatzEKVorjahr.FieldName := 'UmsatzEKVorjahr';\r\n    xdsEinzelkontaktSteuernummer.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktSteuernummer.Name := 'xdsEinzelkontaktSteuernummer';\r\n    xdsEinzelkontaktSteuernummer.FieldName := 'Steuernummer';\r\n    xdsEinzelkontaktSteuernummer.Size := 25;\r\n    xdsEinzelkontaktLoginPW.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktLoginPW.Name := 'xdsEinzelkontaktLoginPW';\r\n    xdsEinzelkontaktLoginPW.FieldName := 'LoginPW';\r\n    xdsEinzelkontaktREperFax.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktREperFax.Name := 'xdsEinzelkontaktREperFax';\r\n    xdsEinzelkontaktREperFax.FieldName := 'REperFax';\r\n    xdsEinzelkontaktErreichbarkeit.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktErreichbarkeit.Name := 'xdsEinzelkontaktErreichbarkeit';\r\n    xdsEinzelkontaktErreichbarkeit.FieldName := 'Erreichbarkeit';\r\n    xdsEinzelkontaktErreichbarkeit.Size := 250;\r\n    xdsEinzelkontaktErloesKontoUST4.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktErloesKontoUST4.Name := 'xdsEinzelkontaktErloesKontoUST4';\r\n    xdsEinzelkontaktErloesKontoUST4.FieldName := 'ErloesKontoUST4';\r\n    xdsEinzelkontaktErloesKontoUST4.Size := 10;\r\n    xdsEinzelkontaktErloesKontoUST5.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktErloesKontoUST5.Name := 'xdsEinzelkontaktErloesKontoUST5';\r\n    xdsEinzelkontaktErloesKontoUST5.FieldName := 'ErloesKontoUST5';\r\n    xdsEinzelkontaktErloesKontoUST5.Size := 10;\r\n    xdsEinzelkontaktErloesKontoUST6.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktErloesKontoUST6.Name := 'xdsEinzelkontaktErloesKontoUST6';\r\n    xdsEinzelkontaktErloesKontoUST6.FieldName := 'ErloesKontoUST6';\r\n    xdsEinzelkontaktErloesKontoUST6.Size := 10;\r\n    xdsEinzelkontaktBesteuerungKey.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBesteuerungKey.Name := 'xdsEinzelkontaktBesteuerungKey';\r\n    xdsEinzelkontaktBesteuerungKey.FieldName := 'BesteuerungKey';\r\n    xdsEinzelkontaktAuftraegeJahr.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktAuftraegeJahr.Name := 'xdsEinzelkontaktAuftraegeJahr';\r\n    xdsEinzelkontaktAuftraegeJahr.FieldName := 'AuftraegeJahr';\r\n    xdsEinzelkontaktAuftraegeVorjahr.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktAuftraegeVorjahr.Name := 'xdsEinzelkontaktAuftraegeVorjahr';\r\n    xdsEinzelkontaktAuftraegeVorjahr.FieldName := 'AuftraegeVorjahr';\r\n    xdsEinzelkontaktLieferadresseID.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktLieferadresseID.Name := 'xdsEinzelkontaktLieferadresseID';\r\n    xdsEinzelkontaktLieferadresseID.FieldName := 'LieferadresseID';\r\n    xdsEinzelkontaktUSTIDgeprueft.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktUSTIDgeprueft.Name := 'xdsEinzelkontaktUSTIDgeprueft';\r\n    xdsEinzelkontaktUSTIDgeprueft.FieldName := 'USTIDgeprueft';\r\n    xdsEinzelkontaktKontaktverbund.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKontaktverbund.Name := 'xdsEinzelkontaktKontaktverbund';\r\n    xdsEinzelkontaktKontaktverbund.FieldName := 'Kontaktverbund';\r\n    xdsEinzelkontaktKontaktverbund.Size := 25;\r\n    xdsEinzelkontaktHinweis.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktHinweis.Name := 'xdsEinzelkontaktHinweis';\r\n    xdsEinzelkontaktHinweis.FieldName := 'Hinweis';\r\n    xdsEinzelkontaktHinweis.Size := 255;\r\n    xdsEinzelkontaktLatitude.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktLatitude.Name := 'xdsEinzelkontaktLatitude';\r\n    xdsEinzelkontaktLatitude.FieldName := 'Latitude';\r\n    xdsEinzelkontaktLongitude.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktLongitude.Name := 'xdsEinzelkontaktLongitude';\r\n    xdsEinzelkontaktLongitude.FieldName := 'Longitude';\r\n    xdsEinzelkontaktkmLuftlinie.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktkmLuftlinie.Name := 'xdsEinzelkontaktkmLuftlinie';\r\n    xdsEinzelkontaktkmLuftlinie.FieldName := 'kmLuftlinie';\r\n    xdsEinzelkontaktGoogleID.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktGoogleID.Name := 'xdsEinzelkontaktGoogleID';\r\n    xdsEinzelkontaktGoogleID.FieldName := 'GoogleID';\r\n    xdsEinzelkontaktGoogleID.Size := 50;\r\n    xdsEinzelkontaktGoogleUpdatedUTC.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktGoogleUpdatedUTC.Name := 'xdsEinzelkontaktGoogleUpdatedUTC';\r\n    xdsEinzelkontaktGoogleUpdatedUTC.FieldName := 'GoogleUpdatedUTC';\r\n    xdsEinzelkontaktBundesland.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBundesland.Name := 'xdsEinzelkontaktBundesland';\r\n    xdsEinzelkontaktBundesland.FieldName := 'Bundesland';\r\n    xdsEinzelkontaktBundesland.Size := 50;\r\n    xdsEinzelkontaktRegion.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktRegion.Name := 'xdsEinzelkontaktRegion';\r\n    xdsEinzelkontaktRegion.FieldName := 'Region';\r\n    xdsEinzelkontaktRegion.Size := 50;\r\n    xdsEinzelkontaktMandatsreferenz.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktMandatsreferenz.Name := 'xdsEinzelkontaktMandatsreferenz';\r\n    xdsEinzelkontaktMandatsreferenz.FieldName := 'Mandatsreferenz';\r\n    xdsEinzelkontaktMandatsreferenz.Size := 34;\r\n    xdsEinzelkontaktMandatsreferenzVom.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktMandatsreferenzVom.Name := 'xdsEinzelkontaktMandatsreferenzVom';\r\n    xdsEinzelkontaktMandatsreferenzVom.FieldName := 'MandatsreferenzVom';\r\n    xdsEinzelkontaktLastschriftArt.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktLastschriftArt.Name := 'xdsEinzelkontaktLastschriftArt';\r\n    xdsEinzelkontaktLastschriftArt.FieldName := 'LastschriftArt';\r\n    xdsEinzelkontaktLastschriftArt.Size := 2;\r\n    xdsEinzelkontaktMahnsperre.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktMahnsperre.Name := 'xdsEinzelkontaktMahnsperre';\r\n    xdsEinzelkontaktMahnsperre.FieldName := 'Mahnsperre';\r\n    xdsEinzelkontaktSuchbegriff.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktSuchbegriff.Name := 'xdsEinzelkontaktSuchbegriff';\r\n    xdsEinzelkontaktSuchbegriff.FieldName := 'Suchbegriff';\r\n    xdsEinzelkontaktSuchbegriff.Size := 25;\r\n    xdsEinzelkontaktLieferanschriftDaten.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktLieferanschriftDaten.Name := 'xdsEinzelkontaktLieferanschriftDaten';\r\n    xdsEinzelkontaktLieferanschriftDaten.FieldName := 'LieferanschriftDaten';\r\n    xdsEinzelkontaktLieferanschriftDaten.Size := 255;\r\n    xdsEinzelkontaktExportKasse.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktExportKasse.Name := 'xdsEinzelkontaktExportKasse';\r\n    xdsEinzelkontaktExportKasse.FieldName := 'ExportKasse';\r\n    xdsEinzelkontaktLoeschvormerkungDatum.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktLoeschvormerkungDatum.Name := 'xdsEinzelkontaktLoeschvormerkungDatum';\r\n    xdsEinzelkontaktLoeschvormerkungDatum.FieldName := 'LoeschvormerkungDatum';\r\n    xdsEinzelkontaktLoeschvormerkungGrund.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktLoeschvormerkungGrund.Name := 'xdsEinzelkontaktLoeschvormerkungGrund';\r\n    xdsEinzelkontaktLoeschvormerkungGrund.FieldName := 'LoeschvormerkungGrund';\r\n    xdsEinzelkontaktLoeschvormerkungGrund.Size := 250;\r\n    xdsEinzelkontaktPseudonymisiert.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktPseudonymisiert.Name := 'xdsEinzelkontaktPseudonymisiert';\r\n    xdsEinzelkontaktPseudonymisiert.FieldName := 'Pseudonymisiert';\r\n    xdsEinzelkontaktPseudonymisiert.Size := 255;\r\n    xdsEinzelkontaktLoginAktiv.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktLoginAktiv.Name := 'xdsEinzelkontaktLoginAktiv';\r\n    xdsEinzelkontaktLoginAktiv.FieldName := 'LoginAktiv';\r\n    xdsEinzelkontaktSonstigeDaten.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktSonstigeDaten.Name := 'xdsEinzelkontaktSonstigeDaten';\r\n    xdsEinzelkontaktSonstigeDaten.FieldName := 'SonstigeDaten';\r\n    xdsEinzelkontaktSonstigeDaten.Size := 255;\r\n    xdsEinzelkontaktB2C.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktB2C.Name := 'xdsEinzelkontaktB2C';\r\n    xdsEinzelkontaktB2C.FieldName := 'B2C';\r\n    xdsEinzelkontaktTIN.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktTIN.Name := 'xdsEinzelkontaktTIN';\r\n    xdsEinzelkontaktTIN.FieldName := 'TIN';\r\n    xdsEinzelkontaktTIN.Size := 25;\r\n    xdsEinzelkontaktMindestbestellwert.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktMindestbestellwert.Name := 'xdsEinzelkontaktMindestbestellwert';\r\n    xdsEinzelkontaktMindestbestellwert.FieldName := 'Mindestbestellwert';\r\n    xdsLaender.SetParentComponent(Self);\r\n    xdsLaender.Name := 'xdsLaender';\r\n    xdsLaender.AfterOpen := xdsLaenderAfterOpen;\r\n    xdsLaender.EntitySetName := 'Laender';\r\n    xdsLaender.Connection := DM2.XDataWebConnection1;\r\n    xdsLaender.QueryString := '$OrderBy=Land';\r\n    xdsLaender.Left := 260;\r\n    xdsLaender.Top := 349;\r\n    xdsLaenderLaenderkuerzel.SetParentComponent(xdsLaender);\r\n    xdsLaenderLaenderkuerzel.Name := 'xdsLaenderLaenderkuerzel';\r\n    xdsLaenderLaenderkuerzel.FieldName := 'Laenderkuerzel';\r\n    xdsLaenderLaenderkuerzel.Required := True;\r\n    xdsLaenderLaenderkuerzel.Size := 5;\r\n    xdsLaenderLand.SetParentComponent(xdsLaender);\r\n    xdsLaenderLand.Name := 'xdsLaenderLand';\r\n    xdsLaenderLand.FieldName := 'Land';\r\n    sourceLaender.SetParentComponent(Self);\r\n    sourceLaender.Name := 'sourceLaender';\r\n    sourceLaender.DataSet := xdsLaender;\r\n    sourceLaender.Left := 260;\r\n    sourceLaender.Top := 293;\r\n    xdsBestKey.SetParentComponent(Self);\r\n    xdsBestKey.Name := 'xdsBestKey';\r\n    xdsBestKey.AfterOpen := xdsBestKeyAfterOpen;\r\n    xdsBestKey.EntitySetName := 'MWStBesteuerung';\r\n    xdsBestKey.Connection := DM2.XDataWebConnection1;\r\n    xdsBestKey.Left := 260;\r\n    xdsBestKey.Top := 77;\r\n    xdsBestKeyBesteuerungKey.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyBesteuerungKey.Name := 'xdsBestKeyBesteuerungKey';\r\n    xdsBestKeyBesteuerungKey.FieldName := 'BesteuerungKey';\r\n    xdsBestKeyBesteuerungKey.Required := True;\r\n    xdsBestKeyBesteuerungKurzText.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyBesteuerungKurzText.Name := 'xdsBestKeyBesteuerungKurzText';\r\n    xdsBestKeyBesteuerungKurzText.FieldName := 'BesteuerungKurzText';\r\n    xdsBestKeyBesteuerungKurzText.Size := 50;\r\n    xdsBestKeyBesteuerungLangText.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyBesteuerungLangText.Name := 'xdsBestKeyBesteuerungLangText';\r\n    xdsBestKeyBesteuerungLangText.FieldName := 'BesteuerungLangText';\r\n    xdsBestKeyBesteuerungLangText.Size := 255;\r\n    xdsBestKeyUmsatzsteuerausweis.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyUmsatzsteuerausweis.Name := 'xdsBestKeyUmsatzsteuerausweis';\r\n    xdsBestKeyUmsatzsteuerausweis.FieldName := 'Umsatzsteuerausweis';\r\n    xdsBestKeyKtoVorsteuerSatz1.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoVorsteuerSatz1.Name := 'xdsBestKeyKtoVorsteuerSatz1';\r\n    xdsBestKeyKtoVorsteuerSatz1.FieldName := 'KtoVorsteuerSatz1';\r\n    xdsBestKeyKtoVorsteuerSatz2.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoVorsteuerSatz2.Name := 'xdsBestKeyKtoVorsteuerSatz2';\r\n    xdsBestKeyKtoVorsteuerSatz2.FieldName := 'KtoVorsteuerSatz2';\r\n    xdsBestKeyKtoVorsteuerSatz3.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoVorsteuerSatz3.Name := 'xdsBestKeyKtoVorsteuerSatz3';\r\n    xdsBestKeyKtoVorsteuerSatz3.FieldName := 'KtoVorsteuerSatz3';\r\n    xdsBestKeyKtoVorsteuerSatz4.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoVorsteuerSatz4.Name := 'xdsBestKeyKtoVorsteuerSatz4';\r\n    xdsBestKeyKtoVorsteuerSatz4.FieldName := 'KtoVorsteuerSatz4';\r\n    xdsBestKeyKtoVorsteuerSatz5.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoVorsteuerSatz5.Name := 'xdsBestKeyKtoVorsteuerSatz5';\r\n    xdsBestKeyKtoVorsteuerSatz5.FieldName := 'KtoVorsteuerSatz5';\r\n    xdsBestKeyKtoVorsteuerSatz6.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoVorsteuerSatz6.Name := 'xdsBestKeyKtoVorsteuerSatz6';\r\n    xdsBestKeyKtoVorsteuerSatz6.FieldName := 'KtoVorsteuerSatz6';\r\n    xdsBestKeyKtoErloeseSatz1.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoErloeseSatz1.Name := 'xdsBestKeyKtoErloeseSatz1';\r\n    xdsBestKeyKtoErloeseSatz1.FieldName := 'KtoErloeseSatz1';\r\n    xdsBestKeyKtoErloeseSatz2.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoErloeseSatz2.Name := 'xdsBestKeyKtoErloeseSatz2';\r\n    xdsBestKeyKtoErloeseSatz2.FieldName := 'KtoErloeseSatz2';\r\n    xdsBestKeyKtoErloeseSatz3.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoErloeseSatz3.Name := 'xdsBestKeyKtoErloeseSatz3';\r\n    xdsBestKeyKtoErloeseSatz3.FieldName := 'KtoErloeseSatz3';\r\n    xdsBestKeyKtoErloeseSatz4.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoErloeseSatz4.Name := 'xdsBestKeyKtoErloeseSatz4';\r\n    xdsBestKeyKtoErloeseSatz4.FieldName := 'KtoErloeseSatz4';\r\n    xdsBestKeyKtoErloeseSatz5.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoErloeseSatz5.Name := 'xdsBestKeyKtoErloeseSatz5';\r\n    xdsBestKeyKtoErloeseSatz5.FieldName := 'KtoErloeseSatz5';\r\n    xdsBestKeyKtoErloeseSatz6.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoErloeseSatz6.Name := 'xdsBestKeyKtoErloeseSatz6';\r\n    xdsBestKeyKtoErloeseSatz6.FieldName := 'KtoErloeseSatz6';\r\n    xdsBestKeyKtoSkontoaufwandSatz1.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoSkontoaufwandSatz1.Name := 'xdsBestKeyKtoSkontoaufwandSatz1';\r\n    xdsBestKeyKtoSkontoaufwandSatz1.FieldName := 'KtoSkontoaufwandSatz1';\r\n    xdsBestKeyKtoSkontoaufwandSatz2.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoSkontoaufwandSatz2.Name := 'xdsBestKeyKtoSkontoaufwandSatz2';\r\n    xdsBestKeyKtoSkontoaufwandSatz2.FieldName := 'KtoSkontoaufwandSatz2';\r\n    xdsBestKeyKtoSkontoaufwandSatz3.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoSkontoaufwandSatz3.Name := 'xdsBestKeyKtoSkontoaufwandSatz3';\r\n    xdsBestKeyKtoSkontoaufwandSatz3.FieldName := 'KtoSkontoaufwandSatz3';\r\n    xdsBestKeyKtoSkontoaufwandSatz4.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoSkontoaufwandSatz4.Name := 'xdsBestKeyKtoSkontoaufwandSatz4';\r\n    xdsBestKeyKtoSkontoaufwandSatz4.FieldName := 'KtoSkontoaufwandSatz4';\r\n    xdsBestKeyKtoSkontoaufwandSatz5.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoSkontoaufwandSatz5.Name := 'xdsBestKeyKtoSkontoaufwandSatz5';\r\n    xdsBestKeyKtoSkontoaufwandSatz5.FieldName := 'KtoSkontoaufwandSatz5';\r\n    xdsBestKeyKtoSkontoaufwandSatz6.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoSkontoaufwandSatz6.Name := 'xdsBestKeyKtoSkontoaufwandSatz6';\r\n    xdsBestKeyKtoSkontoaufwandSatz6.FieldName := 'KtoSkontoaufwandSatz6';\r\n    xdsBestKeyKtoSkontoertragSatz1.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoSkontoertragSatz1.Name := 'xdsBestKeyKtoSkontoertragSatz1';\r\n    xdsBestKeyKtoSkontoertragSatz1.FieldName := 'KtoSkontoertragSatz1';\r\n    xdsBestKeyKtoSkontoertragSatz2.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoSkontoertragSatz2.Name := 'xdsBestKeyKtoSkontoertragSatz2';\r\n    xdsBestKeyKtoSkontoertragSatz2.FieldName := 'KtoSkontoertragSatz2';\r\n    xdsBestKeyKtoSkontoertragSatz3.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoSkontoertragSatz3.Name := 'xdsBestKeyKtoSkontoertragSatz3';\r\n    xdsBestKeyKtoSkontoertragSatz3.FieldName := 'KtoSkontoertragSatz3';\r\n    xdsBestKeyKtoSkontoertragSatz4.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoSkontoertragSatz4.Name := 'xdsBestKeyKtoSkontoertragSatz4';\r\n    xdsBestKeyKtoSkontoertragSatz4.FieldName := 'KtoSkontoertragSatz4';\r\n    xdsBestKeyKtoSkontoertragSatz5.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoSkontoertragSatz5.Name := 'xdsBestKeyKtoSkontoertragSatz5';\r\n    xdsBestKeyKtoSkontoertragSatz5.FieldName := 'KtoSkontoertragSatz5';\r\n    xdsBestKeyKtoSkontoertragSatz6.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoSkontoertragSatz6.Name := 'xdsBestKeyKtoSkontoertragSatz6';\r\n    xdsBestKeyKtoSkontoertragSatz6.FieldName := 'KtoSkontoertragSatz6';\r\n    xdsBestKeyKtoErloesschmaelerungenSatz1.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoErloesschmaelerungenSatz1.Name := 'xdsBestKeyKtoErloesschmaelerungenSatz1';\r\n    xdsBestKeyKtoErloesschmaelerungenSatz1.FieldName := 'KtoErloesschmaelerungenSatz1';\r\n    xdsBestKeyKtoErloesschmaelerungenSatz2.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoErloesschmaelerungenSatz2.Name := 'xdsBestKeyKtoErloesschmaelerungenSatz2';\r\n    xdsBestKeyKtoErloesschmaelerungenSatz2.FieldName := 'KtoErloesschmaelerungenSatz2';\r\n    xdsBestKeyKtoErloesschmaelerungenSatz3.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoErloesschmaelerungenSatz3.Name := 'xdsBestKeyKtoErloesschmaelerungenSatz3';\r\n    xdsBestKeyKtoErloesschmaelerungenSatz3.FieldName := 'KtoErloesschmaelerungenSatz3';\r\n    xdsBestKeyKtoErloesschmaelerungenSatz4.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoErloesschmaelerungenSatz4.Name := 'xdsBestKeyKtoErloesschmaelerungenSatz4';\r\n    xdsBestKeyKtoErloesschmaelerungenSatz4.FieldName := 'KtoErloesschmaelerungenSatz4';\r\n    xdsBestKeyKtoErloesschmaelerungenSatz5.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoErloesschmaelerungenSatz5.Name := 'xdsBestKeyKtoErloesschmaelerungenSatz5';\r\n    xdsBestKeyKtoErloesschmaelerungenSatz5.FieldName := 'KtoErloesschmaelerungenSatz5';\r\n    xdsBestKeyKtoErloesschmaelerungenSatz6.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyKtoErloesschmaelerungenSatz6.Name := 'xdsBestKeyKtoErloesschmaelerungenSatz6';\r\n    xdsBestKeyKtoErloesschmaelerungenSatz6.FieldName := 'KtoErloesschmaelerungenSatz6';\r\n    xdsBestKeyNatura.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyNatura.Name := 'xdsBestKeyNatura';\r\n    xdsBestKeyNatura.FieldName := 'Natura';\r\n    xdsBestKeyNatura.Size := 5;\r\n    xdsBestKeyBSchl_UST_Satz1.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyBSchl_UST_Satz1.Name := 'xdsBestKeyBSchl_UST_Satz1';\r\n    xdsBestKeyBSchl_UST_Satz1.FieldName := 'BSchl_UST_Satz1';\r\n    xdsBestKeyBSchl_UST_Satz2.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyBSchl_UST_Satz2.Name := 'xdsBestKeyBSchl_UST_Satz2';\r\n    xdsBestKeyBSchl_UST_Satz2.FieldName := 'BSchl_UST_Satz2';\r\n    xdsBestKeyBSchl_UST_Satz3.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyBSchl_UST_Satz3.Name := 'xdsBestKeyBSchl_UST_Satz3';\r\n    xdsBestKeyBSchl_UST_Satz3.FieldName := 'BSchl_UST_Satz3';\r\n    xdsBestKeyBSchl_UST_Satz4.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyBSchl_UST_Satz4.Name := 'xdsBestKeyBSchl_UST_Satz4';\r\n    xdsBestKeyBSchl_UST_Satz4.FieldName := 'BSchl_UST_Satz4';\r\n    xdsBestKeyBSchl_UST_Satz5.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyBSchl_UST_Satz5.Name := 'xdsBestKeyBSchl_UST_Satz5';\r\n    xdsBestKeyBSchl_UST_Satz5.FieldName := 'BSchl_UST_Satz5';\r\n    xdsBestKeyBSchl_UST_Satz6.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyBSchl_UST_Satz6.Name := 'xdsBestKeyBSchl_UST_Satz6';\r\n    xdsBestKeyBSchl_UST_Satz6.FieldName := 'BSchl_UST_Satz6';\r\n    xdsBestKeyBSchl_Vorsteuer_Satz1.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyBSchl_Vorsteuer_Satz1.Name := 'xdsBestKeyBSchl_Vorsteuer_Satz1';\r\n    xdsBestKeyBSchl_Vorsteuer_Satz1.FieldName := 'BSchl_Vorsteuer_Satz1';\r\n    xdsBestKeyBSchl_Vorsteuer_Satz2.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyBSchl_Vorsteuer_Satz2.Name := 'xdsBestKeyBSchl_Vorsteuer_Satz2';\r\n    xdsBestKeyBSchl_Vorsteuer_Satz2.FieldName := 'BSchl_Vorsteuer_Satz2';\r\n    xdsBestKeyBSchl_Vorsteuer_Satz3.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyBSchl_Vorsteuer_Satz3.Name := 'xdsBestKeyBSchl_Vorsteuer_Satz3';\r\n    xdsBestKeyBSchl_Vorsteuer_Satz3.FieldName := 'BSchl_Vorsteuer_Satz3';\r\n    xdsBestKeyBSchl_Vorsteuer_Satz4.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyBSchl_Vorsteuer_Satz4.Name := 'xdsBestKeyBSchl_Vorsteuer_Satz4';\r\n    xdsBestKeyBSchl_Vorsteuer_Satz4.FieldName := 'BSchl_Vorsteuer_Satz4';\r\n    xdsBestKeyBSchl_Vorsteuer_Satz5.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyBSchl_Vorsteuer_Satz5.Name := 'xdsBestKeyBSchl_Vorsteuer_Satz5';\r\n    xdsBestKeyBSchl_Vorsteuer_Satz5.FieldName := 'BSchl_Vorsteuer_Satz5';\r\n    xdsBestKeyBSchl_Vorsteuer_Satz6.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyBSchl_Vorsteuer_Satz6.Name := 'xdsBestKeyBSchl_Vorsteuer_Satz6';\r\n    xdsBestKeyBSchl_Vorsteuer_Satz6.FieldName := 'BSchl_Vorsteuer_Satz6';\r\n    xdsBestKeyDokTyp.SetParentComponent(xdsBestKey);\r\n    xdsBestKeyDokTyp.Name := 'xdsBestKeyDokTyp';\r\n    xdsBestKeyDokTyp.FieldName := 'DokTyp';\r\n    xdsBestKeyDokTyp.Size := 5;\r\n    sourceBestKey.SetParentComponent(Self);\r\n    sourceBestKey.Name := 'sourceBestKey';\r\n    sourceBestKey.DataSet := xdsBestKey;\r\n    sourceBestKey.Left := 260;\r\n    sourceBestKey.Top := 21;\r\n  finally\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    TC.AfterLoadDFMValues;\r\n    edtStrasse.AfterLoadDFMValues;\r\n    edtPostleitzahl.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    btnSpeichern.AfterLoadDFMValues;\r\n    edtVorname.AfterLoadDFMValues;\r\n    edtAdresszeile2.AfterLoadDFMValues;\r\n    edtAdresszeile3.AfterLoadDFMValues;\r\n    edtOrt.AfterLoadDFMValues;\r\n    edtLand.AfterLoadDFMValues;\r\n    edtTelefon.AfterLoadDFMValues;\r\n    edtTelefonAlternativ.AfterLoadDFMValues;\r\n    edtTelefonMobil.AfterLoadDFMValues;\r\n    edtInternet.AfterLoadDFMValues;\r\n    edtEmail.AfterLoadDFMValues;\r\n    edtAdressanrede.AfterLoadDFMValues;\r\n    edtTitel.AfterLoadDFMValues;\r\n    edtNachname.AfterLoadDFMValues;\r\n    sourceEinzelkontakt.AfterLoadDFMValues;\r\n    xdsEinzelkontakt.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKundennummer.AfterLoadDFMValues;\r\n    xdsEinzelkontaktGruppeKunden.AfterLoadDFMValues;\r\n    xdsEinzelkontaktGruppeLieferanten.AfterLoadDFMValues;\r\n    xdsEinzelkontaktGruppeSonstige.AfterLoadDFMValues;\r\n    xdsEinzelkontaktGruppeNichtkunden.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKontaktgruppe.AfterLoadDFMValues;\r\n    xdsEinzelkontaktNachname.AfterLoadDFMValues;\r\n    xdsEinzelkontaktVorname.AfterLoadDFMValues;\r\n    xdsEinzelkontaktAdresszeile2.AfterLoadDFMValues;\r\n    xdsEinzelkontaktAdresszeile3.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStrasse.AfterLoadDFMValues;\r\n    xdsEinzelkontaktPostleitzahl.AfterLoadDFMValues;\r\n    xdsEinzelkontaktOrt.AfterLoadDFMValues;\r\n    xdsEinzelkontaktLaenderkuerzel.AfterLoadDFMValues;\r\n    xdsEinzelkontaktLand.AfterLoadDFMValues;\r\n    xdsEinzelkontaktLaenderkennzeichen.AfterLoadDFMValues;\r\n    xdsEinzelkontaktAdressanrede.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBriefanrede1.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBriefanrede2.AfterLoadDFMValues;\r\n    xdsEinzelkontaktAdresseBild.AfterLoadDFMValues;\r\n    xdsEinzelkontaktLieferanschrift.AfterLoadDFMValues;\r\n    xdsEinzelkontaktGeburtsdatum.AfterLoadDFMValues;\r\n    xdsEinzelkontaktTelefonNummer.AfterLoadDFMValues;\r\n    xdsEinzelkontaktTelefaxNummer.AfterLoadDFMValues;\r\n    xdsEinzelkontaktMobilTelefon.AfterLoadDFMValues;\r\n    xdsEinzelkontaktEMail.AfterLoadDFMValues;\r\n    xdsEinzelkontaktInternet.AfterLoadDFMValues;\r\n    xdsEinzelkontaktUmsatzsteuerID.AfterLoadDFMValues;\r\n    xdsEinzelkontaktUmsatzsteuerausweis.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBemerkungen.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBranche.AfterLoadDFMValues;\r\n    xdsEinzelkontaktSelektiert1.AfterLoadDFMValues;\r\n    xdsEinzelkontaktSelektiert2.AfterLoadDFMValues;\r\n    xdsEinzelkontaktSelektiert3.AfterLoadDFMValues;\r\n    xdsEinzelkontaktZahlungsbedingung.AfterLoadDFMValues;\r\n    xdsEinzelkontaktTransportbedingung.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKilometer.AfterLoadDFMValues;\r\n    xdsEinzelkontaktRabattsatz.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStundensatz.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKontonummer.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBank.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBankleitzahl.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKontoinhaber.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBetreuer.AfterLoadDFMValues;\r\n    xdsEinzelkontaktQuelle.AfterLoadDFMValues;\r\n    xdsEinzelkontaktSuchmerkmal.AfterLoadDFMValues;\r\n    xdsEinzelkontaktWarenkreditlimit.AfterLoadDFMValues;\r\n    xdsEinzelkontaktWarenkreditgesperrt.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKundennummerFremd.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKeinNewsletter.AfterLoadDFMValues;\r\n    xdsEinzelkontaktDebitorennummer.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKreditorennummer.AfterLoadDFMValues;\r\n    xdsEinzelkontaktTelefonAlternativ.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKostentraeger.AfterLoadDFMValues;\r\n    xdsEinzelkontaktIBAN.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBIC.AfterLoadDFMValues;\r\n    xdsEinzelkontaktEmailkonto.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBenutzername.AfterLoadDFMValues;\r\n    xdsEinzelkontaktPasswort.AfterLoadDFMValues;\r\n    xdsEinzelkontaktExportOutlook.AfterLoadDFMValues;\r\n    xdsEinzelkontaktNichtInListeAnzeigen.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKreditkarteArt.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKreditkarteInhaber.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKreditkarteNummer.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKreditkarteGueltigMonat.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKreditkarteGueltigJahr.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKreditkartePruefziffer.AfterLoadDFMValues;\r\n    xdsEinzelkontaktDatumNeu.AfterLoadDFMValues;\r\n    xdsEinzelkontaktDatumgeaendert.AfterLoadDFMValues;\r\n    xdsEinzelkontaktTitel.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStundensatzMontage.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStdMontageU25.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStdMontageU50.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStdMontageU70.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStdMontageU100.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStdMontageU150.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStundensatzWerkstatt.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStdWerkstattU25.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStdWerkstattU50.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStdWerkstattU70.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStdWerkstattU100.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStdWerkstattU150.AfterLoadDFMValues;\r\n    xdsEinzelkontaktArchivReferenz.AfterLoadDFMValues;\r\n    xdsEinzelkontaktErloesKontoUST1.AfterLoadDFMValues;\r\n    xdsEinzelkontaktErloesKontoUST2.AfterLoadDFMValues;\r\n    xdsEinzelkontaktErloesKontoUST3.AfterLoadDFMValues;\r\n    xdsEinzelkontaktGebKal.AfterLoadDFMValues;\r\n    xdsEinzelkontaktEmailversand.AfterLoadDFMValues;\r\n    xdsEinzelkontaktMahnspesen.AfterLoadDFMValues;\r\n    xdsEinzelkontaktRechnungSchluss.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBenutzerNeu.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBenutzerGeaendert.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBelegsprache.AfterLoadDFMValues;\r\n    xdsEinzelkontaktkmSatz.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKundenklassetext.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKundenklasseFarbe.AfterLoadDFMValues;\r\n    xdsEinzelkontaktAbweichenderRechnungsEmpfaenger.AfterLoadDFMValues;\r\n    xdsEinzelkontaktProtokoll.AfterLoadDFMValues;\r\n    xdsEinzelkontaktILNTyp1.AfterLoadDFMValues;\r\n    xdsEinzelkontaktILNTyp2.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKontaktGUID.AfterLoadDFMValues;\r\n    xdsEinzelkontaktPLZGUID.AfterLoadDFMValues;\r\n    xdsEinzelkontaktPreislistenVariantePakete.AfterLoadDFMValues;\r\n    xdsEinzelkontaktSchluesselRechnungslauf.AfterLoadDFMValues;\r\n    xdsEinzelkontaktRechnungEmail.AfterLoadDFMValues;\r\n    xdsEinzelkontaktZahlungsbedingungEK.AfterLoadDFMValues;\r\n    xdsEinzelkontaktTransportbedingungEK.AfterLoadDFMValues;\r\n    xdsEinzelkontaktRabattsatzEK.AfterLoadDFMValues;\r\n    xdsEinzelkontaktVertreterMatchcode.AfterLoadDFMValues;\r\n    xdsEinzelkontaktVertreterProvisionssatz.AfterLoadDFMValues;\r\n    xdsEinzelkontaktUmsatzVKJahr.AfterLoadDFMValues;\r\n    xdsEinzelkontaktUmsatzVKVorjahr.AfterLoadDFMValues;\r\n    xdsEinzelkontaktUmsatzEKJahr.AfterLoadDFMValues;\r\n    xdsEinzelkontaktUmsatzEKVorjahr.AfterLoadDFMValues;\r\n    xdsEinzelkontaktSteuernummer.AfterLoadDFMValues;\r\n    xdsEinzelkontaktLoginPW.AfterLoadDFMValues;\r\n    xdsEinzelkontaktREperFax.AfterLoadDFMValues;\r\n    xdsEinzelkontaktErreichbarkeit.AfterLoadDFMValues;\r\n    xdsEinzelkontaktErloesKontoUST4.AfterLoadDFMValues;\r\n    xdsEinzelkontaktErloesKontoUST5.AfterLoadDFMValues;\r\n    xdsEinzelkontaktErloesKontoUST6.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBesteuerungKey.AfterLoadDFMValues;\r\n    xdsEinzelkontaktAuftraegeJahr.AfterLoadDFMValues;\r\n    xdsEinzelkontaktAuftraegeVorjahr.AfterLoadDFMValues;\r\n    xdsEinzelkontaktLieferadresseID.AfterLoadDFMValues;\r\n    xdsEinzelkontaktUSTIDgeprueft.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKontaktverbund.AfterLoadDFMValues;\r\n    xdsEinzelkontaktHinweis.AfterLoadDFMValues;\r\n    xdsEinzelkontaktLatitude.AfterLoadDFMValues;\r\n    xdsEinzelkontaktLongitude.AfterLoadDFMValues;\r\n    xdsEinzelkontaktkmLuftlinie.AfterLoadDFMValues;\r\n    xdsEinzelkontaktGoogleID.AfterLoadDFMValues;\r\n    xdsEinzelkontaktGoogleUpdatedUTC.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBundesland.AfterLoadDFMValues;\r\n    xdsEinzelkontaktRegion.AfterLoadDFMValues;\r\n    xdsEinzelkontaktMandatsreferenz.AfterLoadDFMValues;\r\n    xdsEinzelkontaktMandatsreferenzVom.AfterLoadDFMValues;\r\n    xdsEinzelkontaktLastschriftArt.AfterLoadDFMValues;\r\n    xdsEinzelkontaktMahnsperre.AfterLoadDFMValues;\r\n    xdsEinzelkontaktSuchbegriff.AfterLoadDFMValues;\r\n    xdsEinzelkontaktLieferanschriftDaten.AfterLoadDFMValues;\r\n    xdsEinzelkontaktExportKasse.AfterLoadDFMValues;\r\n    xdsEinzelkontaktLoeschvormerkungDatum.AfterLoadDFMValues;\r\n    xdsEinzelkontaktLoeschvormerkungGrund.AfterLoadDFMValues;\r\n    xdsEinzelkontaktPseudonymisiert.AfterLoadDFMValues;\r\n    xdsEinzelkontaktLoginAktiv.AfterLoadDFMValues;\r\n    xdsEinzelkontaktSonstigeDaten.AfterLoadDFMValues;\r\n    xdsEinzelkontaktB2C.AfterLoadDFMValues;\r\n    xdsEinzelkontaktTIN.AfterLoadDFMValues;\r\n    xdsEinzelkontaktMindestbestellwert.AfterLoadDFMValues;\r\n    xdsLaender.AfterLoadDFMValues;\r\n    xdsLaenderLaenderkuerzel.AfterLoadDFMValues;\r\n    xdsLaenderLand.AfterLoadDFMValues;\r\n    sourceLaender.AfterLoadDFMValues;\r\n    xdsBestKey.AfterLoadDFMValues;\r\n    xdsBestKeyBesteuerungKey.AfterLoadDFMValues;\r\n    xdsBestKeyBesteuerungKurzText.AfterLoadDFMValues;\r\n    xdsBestKeyBesteuerungLangText.AfterLoadDFMValues;\r\n    xdsBestKeyUmsatzsteuerausweis.AfterLoadDFMValues;\r\n    xdsBestKeyKtoVorsteuerSatz1.AfterLoadDFMValues;\r\n    xdsBestKeyKtoVorsteuerSatz2.AfterLoadDFMValues;\r\n    xdsBestKeyKtoVorsteuerSatz3.AfterLoadDFMValues;\r\n    xdsBestKeyKtoVorsteuerSatz4.AfterLoadDFMValues;\r\n    xdsBestKeyKtoVorsteuerSatz5.AfterLoadDFMValues;\r\n    xdsBestKeyKtoVorsteuerSatz6.AfterLoadDFMValues;\r\n    xdsBestKeyKtoErloeseSatz1.AfterLoadDFMValues;\r\n    xdsBestKeyKtoErloeseSatz2.AfterLoadDFMValues;\r\n    xdsBestKeyKtoErloeseSatz3.AfterLoadDFMValues;\r\n    xdsBestKeyKtoErloeseSatz4.AfterLoadDFMValues;\r\n    xdsBestKeyKtoErloeseSatz5.AfterLoadDFMValues;\r\n    xdsBestKeyKtoErloeseSatz6.AfterLoadDFMValues;\r\n    xdsBestKeyKtoSkontoaufwandSatz1.AfterLoadDFMValues;\r\n    xdsBestKeyKtoSkontoaufwandSatz2.AfterLoadDFMValues;\r\n    xdsBestKeyKtoSkontoaufwandSatz3.AfterLoadDFMValues;\r\n    xdsBestKeyKtoSkontoaufwandSatz4.AfterLoadDFMValues;\r\n    xdsBestKeyKtoSkontoaufwandSatz5.AfterLoadDFMValues;\r\n    xdsBestKeyKtoSkontoaufwandSatz6.AfterLoadDFMValues;\r\n    xdsBestKeyKtoSkontoertragSatz1.AfterLoadDFMValues;\r\n    xdsBestKeyKtoSkontoertragSatz2.AfterLoadDFMValues;\r\n    xdsBestKeyKtoSkontoertragSatz3.AfterLoadDFMValues;\r\n    xdsBestKeyKtoSkontoertragSatz4.AfterLoadDFMValues;\r\n    xdsBestKeyKtoSkontoertragSatz5.AfterLoadDFMValues;\r\n    xdsBestKeyKtoSkontoertragSatz6.AfterLoadDFMValues;\r\n    xdsBestKeyKtoErloesschmaelerungenSatz1.AfterLoadDFMValues;\r\n    xdsBestKeyKtoErloesschmaelerungenSatz2.AfterLoadDFMValues;\r\n    xdsBestKeyKtoErloesschmaelerungenSatz3.AfterLoadDFMValues;\r\n    xdsBestKeyKtoErloesschmaelerungenSatz4.AfterLoadDFMValues;\r\n    xdsBestKeyKtoErloesschmaelerungenSatz5.AfterLoadDFMValues;\r\n    xdsBestKeyKtoErloesschmaelerungenSatz6.AfterLoadDFMValues;\r\n    xdsBestKeyNatura.AfterLoadDFMValues;\r\n    xdsBestKeyBSchl_UST_Satz1.AfterLoadDFMValues;\r\n    xdsBestKeyBSchl_UST_Satz2.AfterLoadDFMValues;\r\n    xdsBestKeyBSchl_UST_Satz3.AfterLoadDFMValues;\r\n    xdsBestKeyBSchl_UST_Satz4.AfterLoadDFMValues;\r\n    xdsBestKeyBSchl_UST_Satz5.AfterLoadDFMValues;\r\n    xdsBestKeyBSchl_UST_Satz6.AfterLoadDFMValues;\r\n    xdsBestKeyBSchl_Vorsteuer_Satz1.AfterLoadDFMValues;\r\n    xdsBestKeyBSchl_Vorsteuer_Satz2.AfterLoadDFMValues;\r\n    xdsBestKeyBSchl_Vorsteuer_Satz3.AfterLoadDFMValues;\r\n    xdsBestKeyBSchl_Vorsteuer_Satz4.AfterLoadDFMValues;\r\n    xdsBestKeyBSchl_Vorsteuer_Satz5.AfterLoadDFMValues;\r\n    xdsBestKeyBSchl_Vorsteuer_Satz6.AfterLoadDFMValues;\r\n    xdsBestKeyDokTyp.AfterLoadDFMValues;\r\n    sourceBestKey.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.","unit unit_EinzelKontakt;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, WEBLib.StdCtrls, WEBLib.Buttons, Vcl.StdCtrls,\r\n  WEBLib.DBCtrls, Vcl.Controls, WEBLib.ExtCtrls, Data.DB, WEBLib.DB,\r\n  XData.Web.JsonDataset, XData.Web.Dataset, WEBLib.Grids, strutils,\r\n  WEBLib.ComCtrls, XData.Web.Client, DB;\r\n\r\ntype\r\n  TEinzelKontakt = class(TForm)\r\n    xdsEinzelkontakt: TXDataWebDataSet;\r\n    xdsEinzelkontaktKundennummer: TStringField;\r\n    xdsEinzelkontaktGruppeKunden: TBooleanField;\r\n    xdsEinzelkontaktGruppeLieferanten: TBooleanField;\r\n    xdsEinzelkontaktGruppeSonstige: TBooleanField;\r\n    xdsEinzelkontaktGruppeNichtkunden: TBooleanField;\r\n    xdsEinzelkontaktKontaktgruppe: TStringField;\r\n    xdsEinzelkontaktNachname: TStringField;\r\n    xdsEinzelkontaktVorname: TStringField;\r\n    xdsEinzelkontaktAdresszeile2: TStringField;\r\n    xdsEinzelkontaktAdresszeile3: TStringField;\r\n    xdsEinzelkontaktStrasse: TStringField;\r\n    xdsEinzelkontaktPostleitzahl: TStringField;\r\n    xdsEinzelkontaktOrt: TStringField;\r\n    xdsEinzelkontaktLaenderkuerzel: TStringField;\r\n    xdsEinzelkontaktLand: TStringField;\r\n    xdsEinzelkontaktLaenderkennzeichen: TBooleanField;\r\n    xdsEinzelkontaktAdressanrede: TStringField;\r\n    xdsEinzelkontaktBriefanrede1: TStringField;\r\n    xdsEinzelkontaktBriefanrede2: TStringField;\r\n    xdsEinzelkontaktAdresseBild: TStringField;\r\n    xdsEinzelkontaktLieferanschrift: TStringField;\r\n    xdsEinzelkontaktGeburtsdatum: TDateTimeField;\r\n    xdsEinzelkontaktTelefonNummer: TStringField;\r\n    xdsEinzelkontaktTelefaxNummer: TStringField;\r\n    xdsEinzelkontaktMobilTelefon: TStringField;\r\n    xdsEinzelkontaktEMail: TStringField;\r\n    xdsEinzelkontaktInternet: TStringField;\r\n    xdsEinzelkontaktUmsatzsteuerID: TStringField;\r\n    xdsEinzelkontaktUmsatzsteuerausweis: TBooleanField;\r\n    xdsEinzelkontaktBemerkungen: TStringField;\r\n    xdsEinzelkontaktBranche: TStringField;\r\n    xdsEinzelkontaktSelektiert1: TBooleanField;\r\n    xdsEinzelkontaktSelektiert2: TBooleanField;\r\n    xdsEinzelkontaktSelektiert3: TBooleanField;\r\n    xdsEinzelkontaktZahlungsbedingung: TIntegerField;\r\n    xdsEinzelkontaktTransportbedingung: TStringField;\r\n    xdsEinzelkontaktKilometer: TIntegerField;\r\n    xdsEinzelkontaktRabattsatz: TFloatField;\r\n    xdsEinzelkontaktStundensatz: TFloatField;\r\n    xdsEinzelkontaktKontonummer: TStringField;\r\n    xdsEinzelkontaktBank: TStringField;\r\n    xdsEinzelkontaktBankleitzahl: TFloatField;\r\n    xdsEinzelkontaktKontoinhaber: TStringField;\r\n    xdsEinzelkontaktBetreuer: TStringField;\r\n    xdsEinzelkontaktQuelle: TStringField;\r\n    xdsEinzelkontaktSuchmerkmal: TStringField;\r\n    xdsEinzelkontaktWarenkreditlimit: TFloatField;\r\n    xdsEinzelkontaktWarenkreditgesperrt: TBooleanField;\r\n    xdsEinzelkontaktKundennummerFremd: TStringField;\r\n    xdsEinzelkontaktKeinNewsletter: TBooleanField;\r\n    xdsEinzelkontaktDebitorennummer: TStringField;\r\n    xdsEinzelkontaktKreditorennummer: TStringField;\r\n    xdsEinzelkontaktTelefonAlternativ: TStringField;\r\n    xdsEinzelkontaktKostentraeger: TStringField;\r\n    xdsEinzelkontaktIBAN: TStringField;\r\n    xdsEinzelkontaktBIC: TStringField;\r\n    xdsEinzelkontaktEmailkonto: TStringField;\r\n    xdsEinzelkontaktBenutzername: TStringField;\r\n    xdsEinzelkontaktPasswort: TStringField;\r\n    xdsEinzelkontaktExportOutlook: TBooleanField;\r\n    xdsEinzelkontaktNichtInListeAnzeigen: TBooleanField;\r\n    xdsEinzelkontaktKreditkarteArt: TStringField;\r\n    xdsEinzelkontaktKreditkarteInhaber: TStringField;\r\n    xdsEinzelkontaktKreditkarteNummer: TStringField;\r\n    xdsEinzelkontaktKreditkarteGueltigMonat: TStringField;\r\n    xdsEinzelkontaktKreditkarteGueltigJahr: TIntegerField;\r\n    xdsEinzelkontaktKreditkartePruefziffer: TStringField;\r\n    xdsEinzelkontaktDatumNeu: TDateTimeField;\r\n    xdsEinzelkontaktDatumgeaendert: TDateTimeField;\r\n    xdsEinzelkontaktTitel: TStringField;\r\n    xdsEinzelkontaktStundensatzMontage: TFloatField;\r\n    xdsEinzelkontaktStdMontageU25: TFloatField;\r\n    xdsEinzelkontaktStdMontageU50: TFloatField;\r\n    xdsEinzelkontaktStdMontageU70: TFloatField;\r\n    xdsEinzelkontaktStdMontageU100: TFloatField;\r\n    xdsEinzelkontaktStdMontageU150: TFloatField;\r\n    xdsEinzelkontaktStundensatzWerkstatt: TFloatField;\r\n    xdsEinzelkontaktStdWerkstattU25: TFloatField;\r\n    xdsEinzelkontaktStdWerkstattU50: TFloatField;\r\n    xdsEinzelkontaktStdWerkstattU70: TFloatField;\r\n    xdsEinzelkontaktStdWerkstattU100: TFloatField;\r\n    xdsEinzelkontaktStdWerkstattU150: TFloatField;\r\n    xdsEinzelkontaktArchivReferenz: TStringField;\r\n    xdsEinzelkontaktErloesKontoUST1: TStringField;\r\n    xdsEinzelkontaktErloesKontoUST2: TStringField;\r\n    xdsEinzelkontaktErloesKontoUST3: TStringField;\r\n    xdsEinzelkontaktGebKal: TBooleanField;\r\n    xdsEinzelkontaktEmailversand: TBooleanField;\r\n    xdsEinzelkontaktMahnspesen: TBooleanField;\r\n    xdsEinzelkontaktRechnungSchluss: TStringField;\r\n    xdsEinzelkontaktBenutzerNeu: TStringField;\r\n    xdsEinzelkontaktBenutzerGeaendert: TStringField;\r\n    xdsEinzelkontaktBelegsprache: TStringField;\r\n    xdsEinzelkontaktkmSatz: TFloatField;\r\n    xdsEinzelkontaktKundenklassetext: TStringField;\r\n    xdsEinzelkontaktKundenklasseFarbe: TIntegerField;\r\n    xdsEinzelkontaktAbweichenderRechnungsEmpfaenger: TStringField;\r\n    xdsEinzelkontaktProtokoll: TStringField;\r\n    xdsEinzelkontaktILNTyp1: TStringField;\r\n    xdsEinzelkontaktILNTyp2: TStringField;\r\n    xdsEinzelkontaktKontaktGUID: TStringField;\r\n    xdsEinzelkontaktPLZGUID: TStringField;\r\n    xdsEinzelkontaktPreislistenVariantePakete: TStringField;\r\n    xdsEinzelkontaktSchluesselRechnungslauf: TStringField;\r\n    xdsEinzelkontaktRechnungEmail: TStringField;\r\n    xdsEinzelkontaktZahlungsbedingungEK: TIntegerField;\r\n    xdsEinzelkontaktTransportbedingungEK: TStringField;\r\n    xdsEinzelkontaktRabattsatzEK: TFloatField;\r\n    xdsEinzelkontaktVertreterMatchcode: TStringField;\r\n    xdsEinzelkontaktVertreterProvisionssatz: TFloatField;\r\n    xdsEinzelkontaktUmsatzVKJahr: TFloatField;\r\n    xdsEinzelkontaktUmsatzVKVorjahr: TFloatField;\r\n    xdsEinzelkontaktUmsatzEKJahr: TFloatField;\r\n    xdsEinzelkontaktUmsatzEKVorjahr: TFloatField;\r\n    xdsEinzelkontaktSteuernummer: TStringField;\r\n    xdsEinzelkontaktLoginPW: TStringField;\r\n    xdsEinzelkontaktREperFax: TBooleanField;\r\n    xdsEinzelkontaktErreichbarkeit: TStringField;\r\n    xdsEinzelkontaktErloesKontoUST4: TStringField;\r\n    xdsEinzelkontaktErloesKontoUST5: TStringField;\r\n    xdsEinzelkontaktErloesKontoUST6: TStringField;\r\n    xdsEinzelkontaktBesteuerungKey: TIntegerField;\r\n    xdsEinzelkontaktAuftraegeJahr: TFloatField;\r\n    xdsEinzelkontaktAuftraegeVorjahr: TFloatField;\r\n    xdsEinzelkontaktLieferadresseID: TIntegerField;\r\n    xdsEinzelkontaktUSTIDgeprueft: TDateTimeField;\r\n    xdsEinzelkontaktKontaktverbund: TStringField;\r\n    xdsEinzelkontaktHinweis: TStringField;\r\n    xdsEinzelkontaktLatitude: TFloatField;\r\n    xdsEinzelkontaktLongitude: TFloatField;\r\n    xdsEinzelkontaktkmLuftlinie: TFloatField;\r\n    xdsEinzelkontaktGoogleID: TStringField;\r\n    xdsEinzelkontaktGoogleUpdatedUTC: TDateTimeField;\r\n    xdsEinzelkontaktBundesland: TStringField;\r\n    xdsEinzelkontaktRegion: TStringField;\r\n    xdsEinzelkontaktMandatsreferenz: TStringField;\r\n    xdsEinzelkontaktMandatsreferenzVom: TDateTimeField;\r\n    xdsEinzelkontaktLastschriftArt: TStringField;\r\n    xdsEinzelkontaktMahnsperre: TBooleanField;\r\n    xdsEinzelkontaktSuchbegriff: TStringField;\r\n    xdsEinzelkontaktLieferanschriftDaten: TStringField;\r\n    xdsEinzelkontaktExportKasse: TBooleanField;\r\n    xdsEinzelkontaktLoeschvormerkungDatum: TDateTimeField;\r\n    xdsEinzelkontaktLoeschvormerkungGrund: TStringField;\r\n    xdsEinzelkontaktPseudonymisiert: TStringField;\r\n    xdsEinzelkontaktLoginAktiv: TIntegerField;\r\n    xdsEinzelkontaktSonstigeDaten: TStringField;\r\n    xdsEinzelkontaktB2C: TBooleanField;\r\n    xdsEinzelkontaktTIN: TStringField;\r\n    xdsEinzelkontaktMindestbestellwert: TFloatField;\r\n    sourceEinzelkontakt: TDataSource;\r\n    TC: TTableControl;\r\n    WClient: TXDataWebClient;\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    btnzurueck: TButton;\r\n    btnBelege: TButton;\r\n    btnKarte: TButton;\r\n    btnPreise: TButton;\r\n    Container3: THTMLContainer;\r\n    btnAnsprechpartner: TButton;\r\n    btnDateien: TButton;\r\n    xdskontosaldo: TXDataWebDataSet;\r\n    xdskontosaldoKundennummer: TStringField;\r\n    xdskontosaldoZeitaufwand: TIntegerField;\r\n    xdskontosaldoAbzurechnen: TIntegerField;\r\n    xdskontosaldoGutschrift: TIntegerField;\r\n    xdskontosaldoAbzug: TIntegerField;\r\n    xdskontosaldoSaldo: TIntegerField;\r\n    xdskontosaldoBetrag: TFloatField;\r\n    xdskontosaldoMinutenpreis: TFloatField;\r\n    xdskontosaldoSRestguthaben: TIntegerField;\r\n    btnTicketNeu: TButton;\r\n    btnKontaktAendern: TButton;\r\n    procedure xdsEinzelkontaktAfterOpen(DataSet: TDataSet);\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n    procedure btnBelegeClick(Sender: TObject);\r\n    procedure btnKarteClick(Sender: TObject);\r\n    procedure btnPreiseClick(Sender: TObject);\r\n    procedure btnAnsprechpartnerClick(Sender: TObject);\r\n    procedure btnDateienClick(Sender: TObject);\r\n    procedure xdskontosaldoAfterOpen(DataSet: TDataSet);\r\n    procedure btnTicketNeuClick(Sender: TObject);\r\n    procedure btnKontaktAendernClick(Sender: TObject);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    KundennummerID:string;\r\n    procedure fensteraufbauen;\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  EinzelKontakt: TEinzelKontakt;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_Kontaktsuche, unit_karte, unit_BelegeUndPositionen, unit_Preise, unit_ListeAnsprechpartner, unit_Dateien, unit_TicketNeu,\r\n  unit_KontaktAenderung;\r\n{$R *.dfm}\r\n\r\n\r\n\r\nprocedure TEinzelKontakt.btnAnsprechpartnerClick(Sender: TObject);\r\nvar\r\n  LFrm:TListeAnsprechpartner;\r\n  procedure AfterCreate(AForm:TObject);\r\n  var\r\n    LForm:TListeAnsprechpartner;\r\n    begin\r\n      TC.Visible:=false;\r\n      LForm:=(AForm as TListeAnsprechpartner);\r\n      lform.KundennummerID:=xdsEinzelkontaktKundennummer.AsString;\r\n      lform.NachnameID:=xdsEinzelkontaktNachname.AsString;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      //MerkerKontaktnummer:=lfrm.Kontaktnummer;\r\n      fensteraufbauen;\r\n    end;\r\n  begin\r\n    LFrm:=TListeAnsprechpartner.CreateNew(@AfterCreate);\r\n    LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TEinzelKontakt.btnBelegeClick(Sender: TObject);\r\nvar\r\n  LFrm:TBelegePositionen;\r\n  procedure AfterCreate(AForm:TObject);\r\n  var\r\n    LForm:TBelegePositionen;\r\n    begin\r\n      TC.Visible:=false;\r\n      LForm:=(AForm as TBelegePositionen);\r\n      lform.BPKundennummer:=xdsEinzelkontaktKundennummer.AsString;\r\n      lForm.BPName:=xdsEinzelkontaktNachname.asstring;\r\n\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      //MerkerKontaktnummer:=lfrm.Kontaktnummer;\r\n      fensteraufbauen;\r\n    end;\r\n  begin\r\n\r\n      LFrm:=TBelegePositionen.CreateNew(@AfterCreate);\r\n      LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TEinzelKontakt.btnDateienClick(Sender: TObject);\r\nvar\r\n  LFrm:TfrmDateien;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmDateien;\r\n    begin\r\n      LForm:=(AForm as TfrmDateien);\r\n      lform.MerkerObjektreferenz:='';\r\n      lform.MerkerNummerkomplett:='';\r\n      lform.MerkerKundennummer:=xdsEinzelkontaktKundennummer.AsString;\r\n      lform.MerkerFahrzeugID:='';\r\n      lform.MerkerName:=trim(xdsEinzelkontaktVorname.asstring+' '+ xdsEinzelkontaktNachname.asstring);\r\n      lform.MerkerArt:='Kontakt';\r\n      lform.HeadlineText:='Dateien zu Kontakt '+xdsEinzelkontaktKundennummer.AsString+' | '+trim(xdsEinzelkontaktVorname.asstring+' '+ xdsEinzelkontaktNachname.asstring);\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      fensteraufbauen;\r\n    end;\r\n\r\n  begin\r\n  //Container4.HTML.text:='';\r\n  Container3.HTML.Text:='';\r\n  LFrm:=TfrmDateien.CreateNew(@AfterCreate);\r\n  LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TEinzelKontakt.btnKarteClick(Sender: TObject);\r\nvar\r\n  LFrm:TKarte;\r\n  procedure AfterCreate(AForm:TObject);\r\n  var\r\n    LForm:TKarte;\r\n    begin\r\n      TC.Visible:=false;\r\n      LForm:=(AForm as TKarte);\r\n      lform.mykundehint:=xdsEinzelkontaktKundennummer.AsString+' '+xdsEinzelkontaktNachname.AsString+', '+xdsEinzelkontaktVorname.asstring;\r\n      lForm.edttoaddress.Text:= xdsEinzelkontaktPostleitzahl.AsString+' '+xdsEinzelkontaktort.AsString+', '+xdsEinzelkontaktStrasse.AsString;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      //MerkerKontaktnummer:=lfrm.Kontaktnummer;\r\n      fensteraufbauen;\r\n    end;\r\n  begin\r\n      LFrm:=TKarte.CreateNew(@AfterCreate);\r\n      LFrm.ShowModal(@AfterShowmodal);\r\nend;\r\n\r\nprocedure TEinzelKontakt.btnKontaktAendernClick(Sender: TObject);\r\nvar\r\n  LFrm:TKontaktAenderung;\r\n  procedure AfterCreate(AForm:TObject);\r\n  var\r\n    LForm:TKontaktAenderung;\r\n    begin\r\n      tc.RowCount:=1;\r\n      TC.Visible:=false;\r\n      LForm:=(AForm as TKontaktAenderung);\r\n      lform.AEKundennummer:=xdsEinzelkontaktKundennummer.AsString;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      xdseinzelkontakt.close;\r\n      xdseinzelkontakt.Load;\r\n    end;\r\n  begin\r\n\r\n      LFrm:=TKontaktAenderung.CreateNew(@AfterCreate);\r\n      LFrm.ShowModal(@AfterShowmodal);\r\nend;\r\n\r\nprocedure TEinzelKontakt.btnPreiseClick(Sender: TObject);\r\nvar\r\n  LFrm:TPreise;\r\n  procedure AfterCreate(AForm:TObject);\r\n  var\r\n    LForm:TPreise;\r\n    begin\r\n      TC.Visible:=false;\r\n      LForm:=(AForm as TPreise);\r\n      lform.mykontaktnummer:=xdsEinzelkontaktKundennummer.AsString;\r\n      lform.mykontaktname:=xdsEinzelkontaktNachname.AsString;\r\n      if xdseinzelkontaktvorname.AsString<>'' then lform.mykontaktname:=lform.mykontaktname+', '+xdsEinzelkontaktVorname.asstring;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      //MerkerKontaktnummer:=lfrm.Kontaktnummer;\r\n      fensteraufbauen;\r\n    end;\r\n  begin\r\n    if LizenzOK then\r\n    begin\r\n      LFrm:=TPreise.CreateNew(@AfterCreate);\r\n      LFrm.ShowModal(@AfterShowmodal);\r\n    end\r\n    else\r\n    begin\r\n      showmessage('Für diese Funktion sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n    end;\r\n\r\nend;\r\n\r\nprocedure TEinzelKontakt.btnTicketNeuClick(Sender: TObject);\r\nvar\r\n  LFrm:TTicketNeu;\r\n  procedure AfterCreate(AForm:TObject);\r\n  var\r\n    LForm:TTicketNeu;\r\n    begin\r\n      TC.Visible:=false;\r\n      LForm:=(AForm as TTicketNeu);\r\n      lform.TicketNeuFuerKundennummer:=xdsEinzelkontaktKundennummer.AsString;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      //MerkerKontaktnummer:=lfrm.Kontaktnummer;\r\n      fensteraufbauen;\r\n    end;\r\n  begin\r\n      LFrm:=TTicketNeu.CreateNew(@AfterCreate);\r\n      LFrm.ShowModal(@AfterShowmodal);\r\nend;\r\n\r\nprocedure TEinzelKontakt.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  xdsEinzelkontakt.Close;\r\n  self.Close;\r\nend;\r\n\r\nprocedure TEinzelKontakt.WebFormShow(Sender: TObject);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Einzel-Kontakt '+kundennummerid+'</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  container2.ParentElement:=myelement;\r\n  container3.ParentElement:=myelement;\r\n  myelement:=container2.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  btnKontaktAendern.ParentElement:=myelement;\r\n  btnBelege.ParentElement:=myelement;\r\n  btnAnsprechpartner.ParentElement:=myelement;\r\n  btnPreise.ParentElement:=myelement;\r\n  if (form1.RCW.Einkaufspreise=true) AND (form1.RCW.Verkaufspreise=true) then btnpreise.Enabled:=true else btnpreise.Enabled:=false;\r\n\r\n  btnKarte.ParentElement:=myelement;\r\n  btnDateien.ParentElement:=myelement;\r\n  btnTicketNeu.ParentElement:=myelement;\r\n  myelement:=container2.ElementHandle;\r\n  tc.ParentElement:=myElement;\r\n  xdsEinzelkontakt.Close;\r\n  xdseinzelkontakt.QueryString:='$filter=Kundennummer eq '+quotedstr(KundennummerID);\r\n  xdseinzelkontakt.Load;\r\nend;\r\n\r\nprocedure TEinzelKontakt.xdsEinzelkontaktAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  xdskontosaldo.close;\r\n  xdskontosaldo.querystring:='$filter=Kundennummer eq '+xdsEinzelkontaktKundennummer.asstring;\r\n  xdskontosaldo.load;\r\n\r\nend;\r\n\r\nprocedure TEinzelKontakt.xdskontosaldoAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  fensteraufbauen;\r\nend;\r\n\r\nprocedure TEinzelkontakt.fensteraufbauen;\r\nvar\r\n  i:integer;\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  TC.Visible:=true;\r\n  TC.RowCount:=22;\r\n  TC.ColCount:=2;\r\n  i:=0;\r\n\r\n  TC.Cells[0,i]:='Kontakt-/Kundennummer';\r\n  TC.Cells[1,i]:='<h5>'+xdsEinzelkontaktKundennummer.asstring;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Nachname/Firma';\r\n  TC.Cells[1,i]:='<h5>'+xdsEinzelkontaktNachname.asstring;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Anschrift';\r\n  TC.Cells[1,i]:='<h5>'+ReplaceStr(xdsEinzelkontaktAdresseBild.asstring,#13+#10,'<BR>');\r\n\r\n  inc(i);\r\n  TC.Cells[0,i]:='Support';\r\n  If xdskontosaldo.RecordCount>0 then\r\n  begin\r\n    TC.Cells[1,i]:='Guthaben in Minuten: <B>'+xdskontosaldoSRestguthaben.asstring+'</B> | Gesamtbetrag erworben: '+FormatFloat('#,##0.00',xdskontosaldoBetrag.asfloat);\r\n  end;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Telefon';\r\n  TC.Cells[1,i]:='<a href=\"tel:'+xdsEinzelkontaktTelefonnummer.Asstring+'\">'+xdsEinzelkontaktTelefonnummer.Asstring+'</a>';\r\n  inc(i);\r\n  TC.Cells[0,i]:='T-Alternativ';\r\n  TC.Cells[1,i]:='<a href=\"tel:'+xdsEinzelkontaktTelefonAlternativ.Asstring+'\">'+xdsEinzelkontaktTelefonAlternativ.Asstring+'</a>';\r\n\r\n  inc(i);\r\n  TC.Cells[0,i]:='Mobil';\r\n  TC.Cells[1,i]:='<a href=\"tel:'+xdsEinzelkontaktMobiltelefon.Asstring+'\">'+xdsEinzelkontaktMobiltelefon.Asstring+'</a>';\r\n\r\n  inc(i);\r\n  TC.Cells[0,i]:='Email';\r\n  TC.Cells[1,i]:='<a href=\"mailto:'+xdsEinzelkontaktEmail.Asstring+'\">'+xdsEinzelkontaktEmail.AsString+'</a>';\r\n  inc(i);\r\n  TC.Cells[0,i]:='Webseite';\r\n  TC.Cells[1,i]:='<a href=\"http://'+xdsEinzelkontaktInternet.Asstring+'\" target=\"_blank\">'+xdsEinzelkontaktInternet.AsString+'</a>';\r\n  inc(i);\r\n  TC.Cells[0,i]:='Kontaktgruppe';\r\n  TC.Cells[1,i]:=xdsEinzelkontaktKontaktgruppe.Asstring;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Kundenklasse';\r\n  TC.Cells[1,i]:=xdsEinzelkontaktKundenklassetext.Asstring;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Betreuer/MA';\r\n  TC.Cells[1,i]:=xdsEinzelkontaktBetreuer.Asstring;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Vertreter';\r\n  TC.Cells[1,i]:=xdsEinzelkontaktVertreterMatchcode.Asstring;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Erreichbarkeit';\r\n  TC.Cells[1,i]:=xdsEinzelkontaktErreichbarkeit.Asstring;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Entfernung/km';\r\n  TC.Cells[1,i]:=xdsEinzelkontaktKilometer.AsString;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Lieferanschrift';\r\n  TC.Cells[1,i]:=ReplaceStr(xdsEinzelkontaktLieferanschrift.AsString,#13+#10,'<BR>');\r\n  inc(i);\r\n  TC.Cells[0,i]:='USt-ID';\r\n  TC.Cells[1,i]:=xdsEinzelkontaktUmsatzsteuerID.AsString;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Erreichbarkeit';\r\n  TC.Cells[1,i]:=xdsEinzelkontaktErreichbarkeit.AsString;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Bemerkungen';\r\n  TC.Cells[1,i]:=ReplaceStr(xdsEinzelkontaktBemerkungen.AsString,#13+#10,'<BR>');\r\n  end;\r\n\r\n\r\nprocedure TEinzelKontakt.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  TC := TTableControl.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  btnBelege := TButton.Create(Self);\r\n  btnKarte := TButton.Create(Self);\r\n  btnPreise := TButton.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  btnAnsprechpartner := TButton.Create(Self);\r\n  btnDateien := TButton.Create(Self);\r\n  btnTicketNeu := TButton.Create(Self);\r\n  btnKontaktAendern := TButton.Create(Self);\r\n  xdsEinzelkontakt := TXDataWebDataSet.Create(Self);\r\n  xdsEinzelkontaktKundennummer := TStringField.Create(Self);\r\n  xdsEinzelkontaktGruppeKunden := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktGruppeLieferanten := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktGruppeSonstige := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktGruppeNichtkunden := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktKontaktgruppe := TStringField.Create(Self);\r\n  xdsEinzelkontaktNachname := TStringField.Create(Self);\r\n  xdsEinzelkontaktVorname := TStringField.Create(Self);\r\n  xdsEinzelkontaktAdresszeile2 := TStringField.Create(Self);\r\n  xdsEinzelkontaktAdresszeile3 := TStringField.Create(Self);\r\n  xdsEinzelkontaktStrasse := TStringField.Create(Self);\r\n  xdsEinzelkontaktPostleitzahl := TStringField.Create(Self);\r\n  xdsEinzelkontaktOrt := TStringField.Create(Self);\r\n  xdsEinzelkontaktLaenderkuerzel := TStringField.Create(Self);\r\n  xdsEinzelkontaktLand := TStringField.Create(Self);\r\n  xdsEinzelkontaktLaenderkennzeichen := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktAdressanrede := TStringField.Create(Self);\r\n  xdsEinzelkontaktBriefanrede1 := TStringField.Create(Self);\r\n  xdsEinzelkontaktBriefanrede2 := TStringField.Create(Self);\r\n  xdsEinzelkontaktAdresseBild := TStringField.Create(Self);\r\n  xdsEinzelkontaktLieferanschrift := TStringField.Create(Self);\r\n  xdsEinzelkontaktGeburtsdatum := TDateTimeField.Create(Self);\r\n  xdsEinzelkontaktTelefonNummer := TStringField.Create(Self);\r\n  xdsEinzelkontaktTelefaxNummer := TStringField.Create(Self);\r\n  xdsEinzelkontaktMobilTelefon := TStringField.Create(Self);\r\n  xdsEinzelkontaktEMail := TStringField.Create(Self);\r\n  xdsEinzelkontaktInternet := TStringField.Create(Self);\r\n  xdsEinzelkontaktUmsatzsteuerID := TStringField.Create(Self);\r\n  xdsEinzelkontaktUmsatzsteuerausweis := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktBemerkungen := TStringField.Create(Self);\r\n  xdsEinzelkontaktBranche := TStringField.Create(Self);\r\n  xdsEinzelkontaktSelektiert1 := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktSelektiert2 := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktSelektiert3 := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktZahlungsbedingung := TIntegerField.Create(Self);\r\n  xdsEinzelkontaktTransportbedingung := TStringField.Create(Self);\r\n  xdsEinzelkontaktKilometer := TIntegerField.Create(Self);\r\n  xdsEinzelkontaktRabattsatz := TFloatField.Create(Self);\r\n  xdsEinzelkontaktStundensatz := TFloatField.Create(Self);\r\n  xdsEinzelkontaktKontonummer := TStringField.Create(Self);\r\n  xdsEinzelkontaktBank := TStringField.Create(Self);\r\n  xdsEinzelkontaktBankleitzahl := TFloatField.Create(Self);\r\n  xdsEinzelkontaktKontoinhaber := TStringField.Create(Self);\r\n  xdsEinzelkontaktBetreuer := TStringField.Create(Self);\r\n  xdsEinzelkontaktQuelle := TStringField.Create(Self);\r\n  xdsEinzelkontaktSuchmerkmal := TStringField.Create(Self);\r\n  xdsEinzelkontaktWarenkreditlimit := TFloatField.Create(Self);\r\n  xdsEinzelkontaktWarenkreditgesperrt := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktKundennummerFremd := TStringField.Create(Self);\r\n  xdsEinzelkontaktKeinNewsletter := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktDebitorennummer := TStringField.Create(Self);\r\n  xdsEinzelkontaktKreditorennummer := TStringField.Create(Self);\r\n  xdsEinzelkontaktTelefonAlternativ := TStringField.Create(Self);\r\n  xdsEinzelkontaktKostentraeger := TStringField.Create(Self);\r\n  xdsEinzelkontaktIBAN := TStringField.Create(Self);\r\n  xdsEinzelkontaktBIC := TStringField.Create(Self);\r\n  xdsEinzelkontaktEmailkonto := TStringField.Create(Self);\r\n  xdsEinzelkontaktBenutzername := TStringField.Create(Self);\r\n  xdsEinzelkontaktPasswort := TStringField.Create(Self);\r\n  xdsEinzelkontaktExportOutlook := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktNichtInListeAnzeigen := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktKreditkarteArt := TStringField.Create(Self);\r\n  xdsEinzelkontaktKreditkarteInhaber := TStringField.Create(Self);\r\n  xdsEinzelkontaktKreditkarteNummer := TStringField.Create(Self);\r\n  xdsEinzelkontaktKreditkarteGueltigMonat := TStringField.Create(Self);\r\n  xdsEinzelkontaktKreditkarteGueltigJahr := TIntegerField.Create(Self);\r\n  xdsEinzelkontaktKreditkartePruefziffer := TStringField.Create(Self);\r\n  xdsEinzelkontaktDatumNeu := TDateTimeField.Create(Self);\r\n  xdsEinzelkontaktDatumgeaendert := TDateTimeField.Create(Self);\r\n  xdsEinzelkontaktTitel := TStringField.Create(Self);\r\n  xdsEinzelkontaktStundensatzMontage := TFloatField.Create(Self);\r\n  xdsEinzelkontaktStdMontageU25 := TFloatField.Create(Self);\r\n  xdsEinzelkontaktStdMontageU50 := TFloatField.Create(Self);\r\n  xdsEinzelkontaktStdMontageU70 := TFloatField.Create(Self);\r\n  xdsEinzelkontaktStdMontageU100 := TFloatField.Create(Self);\r\n  xdsEinzelkontaktStdMontageU150 := TFloatField.Create(Self);\r\n  xdsEinzelkontaktStundensatzWerkstatt := TFloatField.Create(Self);\r\n  xdsEinzelkontaktStdWerkstattU25 := TFloatField.Create(Self);\r\n  xdsEinzelkontaktStdWerkstattU50 := TFloatField.Create(Self);\r\n  xdsEinzelkontaktStdWerkstattU70 := TFloatField.Create(Self);\r\n  xdsEinzelkontaktStdWerkstattU100 := TFloatField.Create(Self);\r\n  xdsEinzelkontaktStdWerkstattU150 := TFloatField.Create(Self);\r\n  xdsEinzelkontaktArchivReferenz := TStringField.Create(Self);\r\n  xdsEinzelkontaktErloesKontoUST1 := TStringField.Create(Self);\r\n  xdsEinzelkontaktErloesKontoUST2 := TStringField.Create(Self);\r\n  xdsEinzelkontaktErloesKontoUST3 := TStringField.Create(Self);\r\n  xdsEinzelkontaktGebKal := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktEmailversand := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktMahnspesen := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktRechnungSchluss := TStringField.Create(Self);\r\n  xdsEinzelkontaktBenutzerNeu := TStringField.Create(Self);\r\n  xdsEinzelkontaktBenutzerGeaendert := TStringField.Create(Self);\r\n  xdsEinzelkontaktBelegsprache := TStringField.Create(Self);\r\n  xdsEinzelkontaktkmSatz := TFloatField.Create(Self);\r\n  xdsEinzelkontaktKundenklassetext := TStringField.Create(Self);\r\n  xdsEinzelkontaktKundenklasseFarbe := TIntegerField.Create(Self);\r\n  xdsEinzelkontaktAbweichenderRechnungsEmpfaenger := TStringField.Create(Self);\r\n  xdsEinzelkontaktProtokoll := TStringField.Create(Self);\r\n  xdsEinzelkontaktILNTyp1 := TStringField.Create(Self);\r\n  xdsEinzelkontaktILNTyp2 := TStringField.Create(Self);\r\n  xdsEinzelkontaktKontaktGUID := TStringField.Create(Self);\r\n  xdsEinzelkontaktPLZGUID := TStringField.Create(Self);\r\n  xdsEinzelkontaktPreislistenVariantePakete := TStringField.Create(Self);\r\n  xdsEinzelkontaktSchluesselRechnungslauf := TStringField.Create(Self);\r\n  xdsEinzelkontaktRechnungEmail := TStringField.Create(Self);\r\n  xdsEinzelkontaktZahlungsbedingungEK := TIntegerField.Create(Self);\r\n  xdsEinzelkontaktTransportbedingungEK := TStringField.Create(Self);\r\n  xdsEinzelkontaktRabattsatzEK := TFloatField.Create(Self);\r\n  xdsEinzelkontaktVertreterMatchcode := TStringField.Create(Self);\r\n  xdsEinzelkontaktVertreterProvisionssatz := TFloatField.Create(Self);\r\n  xdsEinzelkontaktUmsatzVKJahr := TFloatField.Create(Self);\r\n  xdsEinzelkontaktUmsatzVKVorjahr := TFloatField.Create(Self);\r\n  xdsEinzelkontaktUmsatzEKJahr := TFloatField.Create(Self);\r\n  xdsEinzelkontaktUmsatzEKVorjahr := TFloatField.Create(Self);\r\n  xdsEinzelkontaktSteuernummer := TStringField.Create(Self);\r\n  xdsEinzelkontaktLoginPW := TStringField.Create(Self);\r\n  xdsEinzelkontaktREperFax := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktErreichbarkeit := TStringField.Create(Self);\r\n  xdsEinzelkontaktErloesKontoUST4 := TStringField.Create(Self);\r\n  xdsEinzelkontaktErloesKontoUST5 := TStringField.Create(Self);\r\n  xdsEinzelkontaktErloesKontoUST6 := TStringField.Create(Self);\r\n  xdsEinzelkontaktBesteuerungKey := TIntegerField.Create(Self);\r\n  xdsEinzelkontaktAuftraegeJahr := TFloatField.Create(Self);\r\n  xdsEinzelkontaktAuftraegeVorjahr := TFloatField.Create(Self);\r\n  xdsEinzelkontaktLieferadresseID := TIntegerField.Create(Self);\r\n  xdsEinzelkontaktUSTIDgeprueft := TDateTimeField.Create(Self);\r\n  xdsEinzelkontaktKontaktverbund := TStringField.Create(Self);\r\n  xdsEinzelkontaktHinweis := TStringField.Create(Self);\r\n  xdsEinzelkontaktLatitude := TFloatField.Create(Self);\r\n  xdsEinzelkontaktLongitude := TFloatField.Create(Self);\r\n  xdsEinzelkontaktkmLuftlinie := TFloatField.Create(Self);\r\n  xdsEinzelkontaktGoogleID := TStringField.Create(Self);\r\n  xdsEinzelkontaktGoogleUpdatedUTC := TDateTimeField.Create(Self);\r\n  xdsEinzelkontaktBundesland := TStringField.Create(Self);\r\n  xdsEinzelkontaktRegion := TStringField.Create(Self);\r\n  xdsEinzelkontaktMandatsreferenz := TStringField.Create(Self);\r\n  xdsEinzelkontaktMandatsreferenzVom := TDateTimeField.Create(Self);\r\n  xdsEinzelkontaktLastschriftArt := TStringField.Create(Self);\r\n  xdsEinzelkontaktMahnsperre := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktSuchbegriff := TStringField.Create(Self);\r\n  xdsEinzelkontaktLieferanschriftDaten := TStringField.Create(Self);\r\n  xdsEinzelkontaktExportKasse := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktLoeschvormerkungDatum := TDateTimeField.Create(Self);\r\n  xdsEinzelkontaktLoeschvormerkungGrund := TStringField.Create(Self);\r\n  xdsEinzelkontaktPseudonymisiert := TStringField.Create(Self);\r\n  xdsEinzelkontaktLoginAktiv := TIntegerField.Create(Self);\r\n  xdsEinzelkontaktSonstigeDaten := TStringField.Create(Self);\r\n  xdsEinzelkontaktB2C := TBooleanField.Create(Self);\r\n  xdsEinzelkontaktTIN := TStringField.Create(Self);\r\n  xdsEinzelkontaktMindestbestellwert := TFloatField.Create(Self);\r\n  sourceEinzelkontakt := TDataSource.Create(Self);\r\n  WClient := TXDataWebClient.Create(Self);\r\n  xdskontosaldo := TXDataWebDataSet.Create(Self);\r\n  xdskontosaldoKundennummer := TStringField.Create(Self);\r\n  xdskontosaldoZeitaufwand := TIntegerField.Create(Self);\r\n  xdskontosaldoAbzurechnen := TIntegerField.Create(Self);\r\n  xdskontosaldoGutschrift := TIntegerField.Create(Self);\r\n  xdskontosaldoAbzug := TIntegerField.Create(Self);\r\n  xdskontosaldoSaldo := TIntegerField.Create(Self);\r\n  xdskontosaldoBetrag := TFloatField.Create(Self);\r\n  xdskontosaldoMinutenpreis := TFloatField.Create(Self);\r\n  xdskontosaldoSRestguthaben := TIntegerField.Create(Self);\r\n\r\n  TC.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  btnBelege.BeforeLoadDFMValues;\r\n  btnKarte.BeforeLoadDFMValues;\r\n  btnPreise.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  btnAnsprechpartner.BeforeLoadDFMValues;\r\n  btnDateien.BeforeLoadDFMValues;\r\n  btnTicketNeu.BeforeLoadDFMValues;\r\n  btnKontaktAendern.BeforeLoadDFMValues;\r\n  xdsEinzelkontakt.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKundennummer.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktGruppeKunden.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktGruppeLieferanten.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktGruppeSonstige.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktGruppeNichtkunden.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKontaktgruppe.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktNachname.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktVorname.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktAdresszeile2.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktAdresszeile3.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStrasse.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktPostleitzahl.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktOrt.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktLaenderkuerzel.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktLand.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktLaenderkennzeichen.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktAdressanrede.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBriefanrede1.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBriefanrede2.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktAdresseBild.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktLieferanschrift.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktGeburtsdatum.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktTelefonNummer.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktTelefaxNummer.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktMobilTelefon.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktEMail.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktInternet.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktUmsatzsteuerID.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktUmsatzsteuerausweis.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBemerkungen.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBranche.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktSelektiert1.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktSelektiert2.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktSelektiert3.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktZahlungsbedingung.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktTransportbedingung.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKilometer.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktRabattsatz.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStundensatz.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKontonummer.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBank.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBankleitzahl.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKontoinhaber.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBetreuer.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktQuelle.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktSuchmerkmal.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktWarenkreditlimit.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktWarenkreditgesperrt.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKundennummerFremd.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKeinNewsletter.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktDebitorennummer.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKreditorennummer.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktTelefonAlternativ.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKostentraeger.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktIBAN.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBIC.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktEmailkonto.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBenutzername.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktPasswort.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktExportOutlook.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktNichtInListeAnzeigen.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKreditkarteArt.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKreditkarteInhaber.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKreditkarteNummer.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKreditkarteGueltigMonat.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKreditkarteGueltigJahr.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKreditkartePruefziffer.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktDatumNeu.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktDatumgeaendert.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktTitel.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStundensatzMontage.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStdMontageU25.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStdMontageU50.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStdMontageU70.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStdMontageU100.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStdMontageU150.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStundensatzWerkstatt.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStdWerkstattU25.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStdWerkstattU50.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStdWerkstattU70.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStdWerkstattU100.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktStdWerkstattU150.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktArchivReferenz.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktErloesKontoUST1.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktErloesKontoUST2.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktErloesKontoUST3.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktGebKal.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktEmailversand.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktMahnspesen.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktRechnungSchluss.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBenutzerNeu.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBenutzerGeaendert.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBelegsprache.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktkmSatz.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKundenklassetext.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKundenklasseFarbe.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktAbweichenderRechnungsEmpfaenger.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktProtokoll.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktILNTyp1.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktILNTyp2.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKontaktGUID.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktPLZGUID.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktPreislistenVariantePakete.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktSchluesselRechnungslauf.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktRechnungEmail.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktZahlungsbedingungEK.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktTransportbedingungEK.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktRabattsatzEK.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktVertreterMatchcode.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktVertreterProvisionssatz.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktUmsatzVKJahr.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktUmsatzVKVorjahr.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktUmsatzEKJahr.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktUmsatzEKVorjahr.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktSteuernummer.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktLoginPW.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktREperFax.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktErreichbarkeit.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktErloesKontoUST4.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktErloesKontoUST5.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktErloesKontoUST6.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBesteuerungKey.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktAuftraegeJahr.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktAuftraegeVorjahr.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktLieferadresseID.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktUSTIDgeprueft.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktKontaktverbund.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktHinweis.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktLatitude.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktLongitude.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktkmLuftlinie.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktGoogleID.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktGoogleUpdatedUTC.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktBundesland.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktRegion.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktMandatsreferenz.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktMandatsreferenzVom.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktLastschriftArt.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktMahnsperre.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktSuchbegriff.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktLieferanschriftDaten.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktExportKasse.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktLoeschvormerkungDatum.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktLoeschvormerkungGrund.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktPseudonymisiert.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktLoginAktiv.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktSonstigeDaten.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktB2C.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktTIN.BeforeLoadDFMValues;\r\n  xdsEinzelkontaktMindestbestellwert.BeforeLoadDFMValues;\r\n  sourceEinzelkontakt.BeforeLoadDFMValues;\r\n  WClient.BeforeLoadDFMValues;\r\n  xdskontosaldo.BeforeLoadDFMValues;\r\n  xdskontosaldoKundennummer.BeforeLoadDFMValues;\r\n  xdskontosaldoZeitaufwand.BeforeLoadDFMValues;\r\n  xdskontosaldoAbzurechnen.BeforeLoadDFMValues;\r\n  xdskontosaldoGutschrift.BeforeLoadDFMValues;\r\n  xdskontosaldoAbzug.BeforeLoadDFMValues;\r\n  xdskontosaldoSaldo.BeforeLoadDFMValues;\r\n  xdskontosaldoBetrag.BeforeLoadDFMValues;\r\n  xdskontosaldoMinutenpreis.BeforeLoadDFMValues;\r\n  xdskontosaldoSRestguthaben.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'EinzelKontakt';\r\n    Width := 255;\r\n    Height := 416;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.Left := 32;\r\n    TC.Top := 251;\r\n    TC.Width := 152;\r\n    TC.Height := 110;\r\n    TC.ElementClassName := 'table table-hover table-bordered table-striped';\r\n    TC.HeightStyle := ssAuto;\r\n    TC.WidthStyle := ssPercent;\r\n    TC.BorderColor := clSilver;\r\n    TC.ColHeader := False;\r\n    TC.ElementFont := efCSS;\r\n    TC.ElementHeaderClassName := 'table-info';\r\n    TC.ElementPosition := epIgnore;\r\n    TC.ElementTableClassName := 'table table-hover table-bordered table-striped';\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 2;\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ChildOrder := 4;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 0;\r\n    btnzurueck.Top := 158;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    btnBelege.SetParentComponent(Self);\r\n    btnBelege.Name := 'btnBelege';\r\n    btnBelege.Left := 0;\r\n    btnBelege.Top := 189;\r\n    btnBelege.Width := 96;\r\n    btnBelege.Height := 25;\r\n    btnBelege.Caption := 'Belege';\r\n    btnBelege.ChildOrder := 4;\r\n    btnBelege.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnBelege.ElementFont := efCSS;\r\n    btnBelege.ElementPosition := epIgnore;\r\n    btnBelege.HeightStyle := ssAuto;\r\n    btnBelege.HeightPercent := 100.000000000000000000;\r\n    btnBelege.WidthStyle := ssAuto;\r\n    btnBelege.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnBelege, Self, 'OnClick', 'btnBelegeClick');\r\n    btnKarte.SetParentComponent(Self);\r\n    btnKarte.Name := 'btnKarte';\r\n    btnKarte.Left := 102;\r\n    btnKarte.Top := 189;\r\n    btnKarte.Width := 96;\r\n    btnKarte.Height := 25;\r\n    btnKarte.Caption := 'Karte';\r\n    btnKarte.ChildOrder := 4;\r\n    btnKarte.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnKarte.ElementFont := efCSS;\r\n    btnKarte.ElementPosition := epIgnore;\r\n    btnKarte.HeightStyle := ssAuto;\r\n    btnKarte.HeightPercent := 100.000000000000000000;\r\n    btnKarte.WidthStyle := ssAuto;\r\n    btnKarte.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnKarte, Self, 'OnClick', 'btnKarteClick');\r\n    btnPreise.SetParentComponent(Self);\r\n    btnPreise.Name := 'btnPreise';\r\n    btnPreise.Left := 0;\r\n    btnPreise.Top := 220;\r\n    btnPreise.Width := 96;\r\n    btnPreise.Height := 25;\r\n    btnPreise.Caption := 'Preise';\r\n    btnPreise.ChildOrder := 4;\r\n    btnPreise.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnPreise.ElementFont := efCSS;\r\n    btnPreise.ElementPosition := epIgnore;\r\n    btnPreise.HeightStyle := ssAuto;\r\n    btnPreise.HeightPercent := 100.000000000000000000;\r\n    btnPreise.WidthStyle := ssAuto;\r\n    btnPreise.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnPreise, Self, 'OnClick', 'btnPreiseClick');\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 1;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    btnAnsprechpartner.SetParentComponent(Self);\r\n    btnAnsprechpartner.Name := 'btnAnsprechpartner';\r\n    btnAnsprechpartner.Left := 102;\r\n    btnAnsprechpartner.Top := 220;\r\n    btnAnsprechpartner.Width := 96;\r\n    btnAnsprechpartner.Height := 25;\r\n    btnAnsprechpartner.Caption := 'Ansprechpartner';\r\n    btnAnsprechpartner.ChildOrder := 4;\r\n    btnAnsprechpartner.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnAnsprechpartner.ElementFont := efCSS;\r\n    btnAnsprechpartner.ElementPosition := epIgnore;\r\n    btnAnsprechpartner.HeightStyle := ssAuto;\r\n    btnAnsprechpartner.HeightPercent := 100.000000000000000000;\r\n    btnAnsprechpartner.WidthStyle := ssAuto;\r\n    btnAnsprechpartner.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnAnsprechpartner, Self, 'OnClick', 'btnAnsprechpartnerClick');\r\n    btnDateien.SetParentComponent(Self);\r\n    btnDateien.Name := 'btnDateien';\r\n    btnDateien.Left := 173;\r\n    btnDateien.Top := 368;\r\n    btnDateien.Width := 50;\r\n    btnDateien.Height := 25;\r\n    btnDateien.Caption := 'Dateien';\r\n    btnDateien.ChildOrder := 4;\r\n    btnDateien.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnDateien.ElementFont := efCSS;\r\n    btnDateien.ElementPosition := epIgnore;\r\n    btnDateien.HeightStyle := ssAuto;\r\n    btnDateien.HeightPercent := 100.000000000000000000;\r\n    btnDateien.WidthStyle := ssAuto;\r\n    btnDateien.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnDateien, Self, 'OnClick', 'btnDateienClick');\r\n    btnTicketNeu.SetParentComponent(Self);\r\n    btnTicketNeu.Name := 'btnTicketNeu';\r\n    btnTicketNeu.Left := 127;\r\n    btnTicketNeu.Top := 383;\r\n    btnTicketNeu.Width := 96;\r\n    btnTicketNeu.Height := 25;\r\n    btnTicketNeu.Caption := 'Neues Ticket';\r\n    btnTicketNeu.ChildOrder := 4;\r\n    btnTicketNeu.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnTicketNeu.ElementFont := efCSS;\r\n    btnTicketNeu.ElementPosition := epIgnore;\r\n    btnTicketNeu.HeightStyle := ssAuto;\r\n    btnTicketNeu.HeightPercent := 100.000000000000000000;\r\n    btnTicketNeu.WidthStyle := ssAuto;\r\n    btnTicketNeu.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnTicketNeu, Self, 'OnClick', 'btnTicketNeuClick');\r\n    btnKontaktAendern.SetParentComponent(Self);\r\n    btnKontaktAendern.Name := 'btnKontaktAendern';\r\n    btnKontaktAendern.Left := 102;\r\n    btnKontaktAendern.Top := 158;\r\n    btnKontaktAendern.Width := 96;\r\n    btnKontaktAendern.Height := 25;\r\n    btnKontaktAendern.Caption := #228'ndern';\r\n    btnKontaktAendern.ChildOrder := 4;\r\n    btnKontaktAendern.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnKontaktAendern.ElementFont := efCSS;\r\n    btnKontaktAendern.ElementPosition := epIgnore;\r\n    btnKontaktAendern.HeightStyle := ssAuto;\r\n    btnKontaktAendern.HeightPercent := 100.000000000000000000;\r\n    btnKontaktAendern.WidthStyle := ssAuto;\r\n    btnKontaktAendern.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnKontaktAendern, Self, 'OnClick', 'btnKontaktAendernClick');\r\n    xdsEinzelkontakt.SetParentComponent(Self);\r\n    xdsEinzelkontakt.Name := 'xdsEinzelkontakt';\r\n    xdsEinzelkontakt.AfterOpen := xdsEinzelkontaktAfterOpen;\r\n    xdsEinzelkontakt.EntitySetName := 'Adressen';\r\n    xdsEinzelkontakt.Connection := DM2.XDataWebConnection1;\r\n    xdsEinzelkontakt.QueryTop := 1;\r\n    xdsEinzelkontakt.Left := 116;\r\n    xdsEinzelkontakt.Top := 109;\r\n    xdsEinzelkontaktKundennummer.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKundennummer.Name := 'xdsEinzelkontaktKundennummer';\r\n    xdsEinzelkontaktKundennummer.FieldName := 'Kundennummer';\r\n    xdsEinzelkontaktKundennummer.Required := True;\r\n    xdsEinzelkontaktKundennummer.Size := 13;\r\n    xdsEinzelkontaktGruppeKunden.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktGruppeKunden.Name := 'xdsEinzelkontaktGruppeKunden';\r\n    xdsEinzelkontaktGruppeKunden.FieldName := 'GruppeKunden';\r\n    xdsEinzelkontaktGruppeLieferanten.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktGruppeLieferanten.Name := 'xdsEinzelkontaktGruppeLieferanten';\r\n    xdsEinzelkontaktGruppeLieferanten.FieldName := 'GruppeLieferanten';\r\n    xdsEinzelkontaktGruppeSonstige.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktGruppeSonstige.Name := 'xdsEinzelkontaktGruppeSonstige';\r\n    xdsEinzelkontaktGruppeSonstige.FieldName := 'GruppeSonstige';\r\n    xdsEinzelkontaktGruppeNichtkunden.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktGruppeNichtkunden.Name := 'xdsEinzelkontaktGruppeNichtkunden';\r\n    xdsEinzelkontaktGruppeNichtkunden.FieldName := 'GruppeNichtkunden';\r\n    xdsEinzelkontaktKontaktgruppe.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKontaktgruppe.Name := 'xdsEinzelkontaktKontaktgruppe';\r\n    xdsEinzelkontaktKontaktgruppe.FieldName := 'Kontaktgruppe';\r\n    xdsEinzelkontaktKontaktgruppe.Size := 50;\r\n    xdsEinzelkontaktNachname.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktNachname.Name := 'xdsEinzelkontaktNachname';\r\n    xdsEinzelkontaktNachname.FieldName := 'Nachname';\r\n    xdsEinzelkontaktNachname.Size := 40;\r\n    xdsEinzelkontaktVorname.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktVorname.Name := 'xdsEinzelkontaktVorname';\r\n    xdsEinzelkontaktVorname.FieldName := 'Vorname';\r\n    xdsEinzelkontaktVorname.Size := 40;\r\n    xdsEinzelkontaktAdresszeile2.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktAdresszeile2.Name := 'xdsEinzelkontaktAdresszeile2';\r\n    xdsEinzelkontaktAdresszeile2.FieldName := 'Adresszeile2';\r\n    xdsEinzelkontaktAdresszeile2.Size := 40;\r\n    xdsEinzelkontaktAdresszeile3.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktAdresszeile3.Name := 'xdsEinzelkontaktAdresszeile3';\r\n    xdsEinzelkontaktAdresszeile3.FieldName := 'Adresszeile3';\r\n    xdsEinzelkontaktAdresszeile3.Size := 40;\r\n    xdsEinzelkontaktStrasse.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStrasse.Name := 'xdsEinzelkontaktStrasse';\r\n    xdsEinzelkontaktStrasse.FieldName := 'Strasse';\r\n    xdsEinzelkontaktStrasse.Size := 40;\r\n    xdsEinzelkontaktPostleitzahl.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktPostleitzahl.Name := 'xdsEinzelkontaktPostleitzahl';\r\n    xdsEinzelkontaktPostleitzahl.FieldName := 'Postleitzahl';\r\n    xdsEinzelkontaktPostleitzahl.Size := 6;\r\n    xdsEinzelkontaktOrt.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktOrt.Name := 'xdsEinzelkontaktOrt';\r\n    xdsEinzelkontaktOrt.FieldName := 'Ort';\r\n    xdsEinzelkontaktOrt.Size := 40;\r\n    xdsEinzelkontaktLaenderkuerzel.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktLaenderkuerzel.Name := 'xdsEinzelkontaktLaenderkuerzel';\r\n    xdsEinzelkontaktLaenderkuerzel.FieldName := 'Laenderkuerzel';\r\n    xdsEinzelkontaktLaenderkuerzel.Size := 5;\r\n    xdsEinzelkontaktLand.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktLand.Name := 'xdsEinzelkontaktLand';\r\n    xdsEinzelkontaktLand.FieldName := 'Land';\r\n    xdsEinzelkontaktLand.Size := 40;\r\n    xdsEinzelkontaktLaenderkennzeichen.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktLaenderkennzeichen.Name := 'xdsEinzelkontaktLaenderkennzeichen';\r\n    xdsEinzelkontaktLaenderkennzeichen.FieldName := 'Laenderkennzeichen';\r\n    xdsEinzelkontaktAdressanrede.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktAdressanrede.Name := 'xdsEinzelkontaktAdressanrede';\r\n    xdsEinzelkontaktAdressanrede.FieldName := 'Adressanrede';\r\n    xdsEinzelkontaktAdressanrede.Size := 15;\r\n    xdsEinzelkontaktBriefanrede1.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBriefanrede1.Name := 'xdsEinzelkontaktBriefanrede1';\r\n    xdsEinzelkontaktBriefanrede1.FieldName := 'Briefanrede1';\r\n    xdsEinzelkontaktBriefanrede1.Size := 255;\r\n    xdsEinzelkontaktBriefanrede2.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBriefanrede2.Name := 'xdsEinzelkontaktBriefanrede2';\r\n    xdsEinzelkontaktBriefanrede2.FieldName := 'Briefanrede2';\r\n    xdsEinzelkontaktBriefanrede2.Size := 40;\r\n    xdsEinzelkontaktAdresseBild.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktAdresseBild.Name := 'xdsEinzelkontaktAdresseBild';\r\n    xdsEinzelkontaktAdresseBild.FieldName := 'AdresseBild';\r\n    xdsEinzelkontaktAdresseBild.Size := 255;\r\n    xdsEinzelkontaktLieferanschrift.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktLieferanschrift.Name := 'xdsEinzelkontaktLieferanschrift';\r\n    xdsEinzelkontaktLieferanschrift.FieldName := 'Lieferanschrift';\r\n    xdsEinzelkontaktLieferanschrift.Size := 255;\r\n    xdsEinzelkontaktGeburtsdatum.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktGeburtsdatum.Name := 'xdsEinzelkontaktGeburtsdatum';\r\n    xdsEinzelkontaktGeburtsdatum.FieldName := 'Geburtsdatum';\r\n    xdsEinzelkontaktTelefonNummer.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktTelefonNummer.Name := 'xdsEinzelkontaktTelefonNummer';\r\n    xdsEinzelkontaktTelefonNummer.FieldName := 'TelefonNummer';\r\n    xdsEinzelkontaktTelefonNummer.Size := 25;\r\n    xdsEinzelkontaktTelefaxNummer.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktTelefaxNummer.Name := 'xdsEinzelkontaktTelefaxNummer';\r\n    xdsEinzelkontaktTelefaxNummer.FieldName := 'TelefaxNummer';\r\n    xdsEinzelkontaktTelefaxNummer.Size := 25;\r\n    xdsEinzelkontaktMobilTelefon.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktMobilTelefon.Name := 'xdsEinzelkontaktMobilTelefon';\r\n    xdsEinzelkontaktMobilTelefon.FieldName := 'MobilTelefon';\r\n    xdsEinzelkontaktMobilTelefon.Size := 25;\r\n    xdsEinzelkontaktEMail.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktEMail.Name := 'xdsEinzelkontaktEMail';\r\n    xdsEinzelkontaktEMail.FieldName := 'EMail';\r\n    xdsEinzelkontaktEMail.Size := 50;\r\n    xdsEinzelkontaktInternet.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktInternet.Name := 'xdsEinzelkontaktInternet';\r\n    xdsEinzelkontaktInternet.FieldName := 'Internet';\r\n    xdsEinzelkontaktInternet.Size := 50;\r\n    xdsEinzelkontaktUmsatzsteuerID.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktUmsatzsteuerID.Name := 'xdsEinzelkontaktUmsatzsteuerID';\r\n    xdsEinzelkontaktUmsatzsteuerID.FieldName := 'UmsatzsteuerID';\r\n    xdsEinzelkontaktUmsatzsteuerausweis.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktUmsatzsteuerausweis.Name := 'xdsEinzelkontaktUmsatzsteuerausweis';\r\n    xdsEinzelkontaktUmsatzsteuerausweis.FieldName := 'Umsatzsteuerausweis';\r\n    xdsEinzelkontaktBemerkungen.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBemerkungen.Name := 'xdsEinzelkontaktBemerkungen';\r\n    xdsEinzelkontaktBemerkungen.FieldName := 'Bemerkungen';\r\n    xdsEinzelkontaktBemerkungen.Size := 255;\r\n    xdsEinzelkontaktBranche.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBranche.Name := 'xdsEinzelkontaktBranche';\r\n    xdsEinzelkontaktBranche.FieldName := 'Branche';\r\n    xdsEinzelkontaktBranche.Size := 50;\r\n    xdsEinzelkontaktSelektiert1.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktSelektiert1.Name := 'xdsEinzelkontaktSelektiert1';\r\n    xdsEinzelkontaktSelektiert1.FieldName := 'Selektiert1';\r\n    xdsEinzelkontaktSelektiert2.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktSelektiert2.Name := 'xdsEinzelkontaktSelektiert2';\r\n    xdsEinzelkontaktSelektiert2.FieldName := 'Selektiert2';\r\n    xdsEinzelkontaktSelektiert3.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktSelektiert3.Name := 'xdsEinzelkontaktSelektiert3';\r\n    xdsEinzelkontaktSelektiert3.FieldName := 'Selektiert3';\r\n    xdsEinzelkontaktZahlungsbedingung.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktZahlungsbedingung.Name := 'xdsEinzelkontaktZahlungsbedingung';\r\n    xdsEinzelkontaktZahlungsbedingung.FieldName := 'Zahlungsbedingung';\r\n    xdsEinzelkontaktTransportbedingung.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktTransportbedingung.Name := 'xdsEinzelkontaktTransportbedingung';\r\n    xdsEinzelkontaktTransportbedingung.FieldName := 'Transportbedingung';\r\n    xdsEinzelkontaktTransportbedingung.Size := 100;\r\n    xdsEinzelkontaktKilometer.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKilometer.Name := 'xdsEinzelkontaktKilometer';\r\n    xdsEinzelkontaktKilometer.FieldName := 'Kilometer';\r\n    xdsEinzelkontaktRabattsatz.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktRabattsatz.Name := 'xdsEinzelkontaktRabattsatz';\r\n    xdsEinzelkontaktRabattsatz.FieldName := 'Rabattsatz';\r\n    xdsEinzelkontaktStundensatz.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStundensatz.Name := 'xdsEinzelkontaktStundensatz';\r\n    xdsEinzelkontaktStundensatz.FieldName := 'Stundensatz';\r\n    xdsEinzelkontaktKontonummer.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKontonummer.Name := 'xdsEinzelkontaktKontonummer';\r\n    xdsEinzelkontaktKontonummer.FieldName := 'Kontonummer';\r\n    xdsEinzelkontaktKontonummer.Size := 50;\r\n    xdsEinzelkontaktBank.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBank.Name := 'xdsEinzelkontaktBank';\r\n    xdsEinzelkontaktBank.FieldName := 'Bank';\r\n    xdsEinzelkontaktBank.Size := 50;\r\n    xdsEinzelkontaktBankleitzahl.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBankleitzahl.Name := 'xdsEinzelkontaktBankleitzahl';\r\n    xdsEinzelkontaktBankleitzahl.FieldName := 'Bankleitzahl';\r\n    xdsEinzelkontaktKontoinhaber.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKontoinhaber.Name := 'xdsEinzelkontaktKontoinhaber';\r\n    xdsEinzelkontaktKontoinhaber.FieldName := 'Kontoinhaber';\r\n    xdsEinzelkontaktKontoinhaber.Size := 50;\r\n    xdsEinzelkontaktBetreuer.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBetreuer.Name := 'xdsEinzelkontaktBetreuer';\r\n    xdsEinzelkontaktBetreuer.FieldName := 'Betreuer';\r\n    xdsEinzelkontaktBetreuer.Size := 50;\r\n    xdsEinzelkontaktQuelle.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktQuelle.Name := 'xdsEinzelkontaktQuelle';\r\n    xdsEinzelkontaktQuelle.FieldName := 'Quelle';\r\n    xdsEinzelkontaktQuelle.Size := 100;\r\n    xdsEinzelkontaktSuchmerkmal.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktSuchmerkmal.Name := 'xdsEinzelkontaktSuchmerkmal';\r\n    xdsEinzelkontaktSuchmerkmal.FieldName := 'Suchmerkmal';\r\n    xdsEinzelkontaktSuchmerkmal.Size := 250;\r\n    xdsEinzelkontaktWarenkreditlimit.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktWarenkreditlimit.Name := 'xdsEinzelkontaktWarenkreditlimit';\r\n    xdsEinzelkontaktWarenkreditlimit.FieldName := 'Warenkreditlimit';\r\n    xdsEinzelkontaktWarenkreditgesperrt.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktWarenkreditgesperrt.Name := 'xdsEinzelkontaktWarenkreditgesperrt';\r\n    xdsEinzelkontaktWarenkreditgesperrt.FieldName := 'Warenkreditgesperrt';\r\n    xdsEinzelkontaktKundennummerFremd.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKundennummerFremd.Name := 'xdsEinzelkontaktKundennummerFremd';\r\n    xdsEinzelkontaktKundennummerFremd.FieldName := 'KundennummerFremd';\r\n    xdsEinzelkontaktKeinNewsletter.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKeinNewsletter.Name := 'xdsEinzelkontaktKeinNewsletter';\r\n    xdsEinzelkontaktKeinNewsletter.FieldName := 'KeinNewsletter';\r\n    xdsEinzelkontaktDebitorennummer.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktDebitorennummer.Name := 'xdsEinzelkontaktDebitorennummer';\r\n    xdsEinzelkontaktDebitorennummer.FieldName := 'Debitorennummer';\r\n    xdsEinzelkontaktDebitorennummer.Size := 13;\r\n    xdsEinzelkontaktKreditorennummer.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKreditorennummer.Name := 'xdsEinzelkontaktKreditorennummer';\r\n    xdsEinzelkontaktKreditorennummer.FieldName := 'Kreditorennummer';\r\n    xdsEinzelkontaktKreditorennummer.Size := 13;\r\n    xdsEinzelkontaktTelefonAlternativ.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktTelefonAlternativ.Name := 'xdsEinzelkontaktTelefonAlternativ';\r\n    xdsEinzelkontaktTelefonAlternativ.FieldName := 'TelefonAlternativ';\r\n    xdsEinzelkontaktTelefonAlternativ.Size := 50;\r\n    xdsEinzelkontaktKostentraeger.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKostentraeger.Name := 'xdsEinzelkontaktKostentraeger';\r\n    xdsEinzelkontaktKostentraeger.FieldName := 'Kostentraeger';\r\n    xdsEinzelkontaktKostentraeger.Size := 13;\r\n    xdsEinzelkontaktIBAN.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktIBAN.Name := 'xdsEinzelkontaktIBAN';\r\n    xdsEinzelkontaktIBAN.FieldName := 'IBAN';\r\n    xdsEinzelkontaktIBAN.Size := 50;\r\n    xdsEinzelkontaktBIC.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBIC.Name := 'xdsEinzelkontaktBIC';\r\n    xdsEinzelkontaktBIC.FieldName := 'BIC';\r\n    xdsEinzelkontaktEmailkonto.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktEmailkonto.Name := 'xdsEinzelkontaktEmailkonto';\r\n    xdsEinzelkontaktEmailkonto.FieldName := 'Emailkonto';\r\n    xdsEinzelkontaktEmailkonto.Size := 50;\r\n    xdsEinzelkontaktBenutzername.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBenutzername.Name := 'xdsEinzelkontaktBenutzername';\r\n    xdsEinzelkontaktBenutzername.FieldName := 'Benutzername';\r\n    xdsEinzelkontaktBenutzername.Size := 50;\r\n    xdsEinzelkontaktPasswort.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktPasswort.Name := 'xdsEinzelkontaktPasswort';\r\n    xdsEinzelkontaktPasswort.FieldName := 'Passwort';\r\n    xdsEinzelkontaktPasswort.Size := 25;\r\n    xdsEinzelkontaktExportOutlook.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktExportOutlook.Name := 'xdsEinzelkontaktExportOutlook';\r\n    xdsEinzelkontaktExportOutlook.FieldName := 'ExportOutlook';\r\n    xdsEinzelkontaktNichtInListeAnzeigen.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktNichtInListeAnzeigen.Name := 'xdsEinzelkontaktNichtInListeAnzeigen';\r\n    xdsEinzelkontaktNichtInListeAnzeigen.FieldName := 'NichtInListeAnzeigen';\r\n    xdsEinzelkontaktKreditkarteArt.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKreditkarteArt.Name := 'xdsEinzelkontaktKreditkarteArt';\r\n    xdsEinzelkontaktKreditkarteArt.FieldName := 'KreditkarteArt';\r\n    xdsEinzelkontaktKreditkarteArt.Size := 30;\r\n    xdsEinzelkontaktKreditkarteInhaber.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKreditkarteInhaber.Name := 'xdsEinzelkontaktKreditkarteInhaber';\r\n    xdsEinzelkontaktKreditkarteInhaber.FieldName := 'KreditkarteInhaber';\r\n    xdsEinzelkontaktKreditkarteInhaber.Size := 50;\r\n    xdsEinzelkontaktKreditkarteNummer.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKreditkarteNummer.Name := 'xdsEinzelkontaktKreditkarteNummer';\r\n    xdsEinzelkontaktKreditkarteNummer.FieldName := 'KreditkarteNummer';\r\n    xdsEinzelkontaktKreditkarteGueltigMonat.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKreditkarteGueltigMonat.Name := 'xdsEinzelkontaktKreditkarteGueltigMonat';\r\n    xdsEinzelkontaktKreditkarteGueltigMonat.FieldName := 'KreditkarteGueltigMonat';\r\n    xdsEinzelkontaktKreditkarteGueltigMonat.Size := 2;\r\n    xdsEinzelkontaktKreditkarteGueltigJahr.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKreditkarteGueltigJahr.Name := 'xdsEinzelkontaktKreditkarteGueltigJahr';\r\n    xdsEinzelkontaktKreditkarteGueltigJahr.FieldName := 'KreditkarteGueltigJahr';\r\n    xdsEinzelkontaktKreditkartePruefziffer.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKreditkartePruefziffer.Name := 'xdsEinzelkontaktKreditkartePruefziffer';\r\n    xdsEinzelkontaktKreditkartePruefziffer.FieldName := 'KreditkartePruefziffer';\r\n    xdsEinzelkontaktKreditkartePruefziffer.Size := 10;\r\n    xdsEinzelkontaktDatumNeu.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktDatumNeu.Name := 'xdsEinzelkontaktDatumNeu';\r\n    xdsEinzelkontaktDatumNeu.FieldName := 'DatumNeu';\r\n    xdsEinzelkontaktDatumgeaendert.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktDatumgeaendert.Name := 'xdsEinzelkontaktDatumgeaendert';\r\n    xdsEinzelkontaktDatumgeaendert.FieldName := 'Datumgeaendert';\r\n    xdsEinzelkontaktTitel.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktTitel.Name := 'xdsEinzelkontaktTitel';\r\n    xdsEinzelkontaktTitel.FieldName := 'Titel';\r\n    xdsEinzelkontaktStundensatzMontage.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStundensatzMontage.Name := 'xdsEinzelkontaktStundensatzMontage';\r\n    xdsEinzelkontaktStundensatzMontage.FieldName := 'StundensatzMontage';\r\n    xdsEinzelkontaktStdMontageU25.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStdMontageU25.Name := 'xdsEinzelkontaktStdMontageU25';\r\n    xdsEinzelkontaktStdMontageU25.FieldName := 'StdMontageU25';\r\n    xdsEinzelkontaktStdMontageU50.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStdMontageU50.Name := 'xdsEinzelkontaktStdMontageU50';\r\n    xdsEinzelkontaktStdMontageU50.FieldName := 'StdMontageU50';\r\n    xdsEinzelkontaktStdMontageU70.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStdMontageU70.Name := 'xdsEinzelkontaktStdMontageU70';\r\n    xdsEinzelkontaktStdMontageU70.FieldName := 'StdMontageU70';\r\n    xdsEinzelkontaktStdMontageU100.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStdMontageU100.Name := 'xdsEinzelkontaktStdMontageU100';\r\n    xdsEinzelkontaktStdMontageU100.FieldName := 'StdMontageU100';\r\n    xdsEinzelkontaktStdMontageU150.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStdMontageU150.Name := 'xdsEinzelkontaktStdMontageU150';\r\n    xdsEinzelkontaktStdMontageU150.FieldName := 'StdMontageU150';\r\n    xdsEinzelkontaktStundensatzWerkstatt.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStundensatzWerkstatt.Name := 'xdsEinzelkontaktStundensatzWerkstatt';\r\n    xdsEinzelkontaktStundensatzWerkstatt.FieldName := 'StundensatzWerkstatt';\r\n    xdsEinzelkontaktStdWerkstattU25.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStdWerkstattU25.Name := 'xdsEinzelkontaktStdWerkstattU25';\r\n    xdsEinzelkontaktStdWerkstattU25.FieldName := 'StdWerkstattU25';\r\n    xdsEinzelkontaktStdWerkstattU50.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStdWerkstattU50.Name := 'xdsEinzelkontaktStdWerkstattU50';\r\n    xdsEinzelkontaktStdWerkstattU50.FieldName := 'StdWerkstattU50';\r\n    xdsEinzelkontaktStdWerkstattU70.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStdWerkstattU70.Name := 'xdsEinzelkontaktStdWerkstattU70';\r\n    xdsEinzelkontaktStdWerkstattU70.FieldName := 'StdWerkstattU70';\r\n    xdsEinzelkontaktStdWerkstattU100.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStdWerkstattU100.Name := 'xdsEinzelkontaktStdWerkstattU100';\r\n    xdsEinzelkontaktStdWerkstattU100.FieldName := 'StdWerkstattU100';\r\n    xdsEinzelkontaktStdWerkstattU150.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktStdWerkstattU150.Name := 'xdsEinzelkontaktStdWerkstattU150';\r\n    xdsEinzelkontaktStdWerkstattU150.FieldName := 'StdWerkstattU150';\r\n    xdsEinzelkontaktArchivReferenz.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktArchivReferenz.Name := 'xdsEinzelkontaktArchivReferenz';\r\n    xdsEinzelkontaktArchivReferenz.FieldName := 'ArchivReferenz';\r\n    xdsEinzelkontaktArchivReferenz.Size := 55;\r\n    xdsEinzelkontaktErloesKontoUST1.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktErloesKontoUST1.Name := 'xdsEinzelkontaktErloesKontoUST1';\r\n    xdsEinzelkontaktErloesKontoUST1.FieldName := 'ErloesKontoUST1';\r\n    xdsEinzelkontaktErloesKontoUST1.Size := 10;\r\n    xdsEinzelkontaktErloesKontoUST2.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktErloesKontoUST2.Name := 'xdsEinzelkontaktErloesKontoUST2';\r\n    xdsEinzelkontaktErloesKontoUST2.FieldName := 'ErloesKontoUST2';\r\n    xdsEinzelkontaktErloesKontoUST2.Size := 10;\r\n    xdsEinzelkontaktErloesKontoUST3.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktErloesKontoUST3.Name := 'xdsEinzelkontaktErloesKontoUST3';\r\n    xdsEinzelkontaktErloesKontoUST3.FieldName := 'ErloesKontoUST3';\r\n    xdsEinzelkontaktErloesKontoUST3.Size := 10;\r\n    xdsEinzelkontaktGebKal.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktGebKal.Name := 'xdsEinzelkontaktGebKal';\r\n    xdsEinzelkontaktGebKal.FieldName := 'GebKal';\r\n    xdsEinzelkontaktEmailversand.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktEmailversand.Name := 'xdsEinzelkontaktEmailversand';\r\n    xdsEinzelkontaktEmailversand.FieldName := 'Emailversand';\r\n    xdsEinzelkontaktMahnspesen.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktMahnspesen.Name := 'xdsEinzelkontaktMahnspesen';\r\n    xdsEinzelkontaktMahnspesen.FieldName := 'Mahnspesen';\r\n    xdsEinzelkontaktRechnungSchluss.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktRechnungSchluss.Name := 'xdsEinzelkontaktRechnungSchluss';\r\n    xdsEinzelkontaktRechnungSchluss.FieldName := 'RechnungSchluss';\r\n    xdsEinzelkontaktRechnungSchluss.Size := 255;\r\n    xdsEinzelkontaktBenutzerNeu.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBenutzerNeu.Name := 'xdsEinzelkontaktBenutzerNeu';\r\n    xdsEinzelkontaktBenutzerNeu.FieldName := 'BenutzerNeu';\r\n    xdsEinzelkontaktBenutzerNeu.Size := 50;\r\n    xdsEinzelkontaktBenutzerGeaendert.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBenutzerGeaendert.Name := 'xdsEinzelkontaktBenutzerGeaendert';\r\n    xdsEinzelkontaktBenutzerGeaendert.FieldName := 'BenutzerGeaendert';\r\n    xdsEinzelkontaktBenutzerGeaendert.Size := 50;\r\n    xdsEinzelkontaktBelegsprache.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBelegsprache.Name := 'xdsEinzelkontaktBelegsprache';\r\n    xdsEinzelkontaktBelegsprache.FieldName := 'Belegsprache';\r\n    xdsEinzelkontaktBelegsprache.Size := 10;\r\n    xdsEinzelkontaktkmSatz.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktkmSatz.Name := 'xdsEinzelkontaktkmSatz';\r\n    xdsEinzelkontaktkmSatz.FieldName := 'kmSatz';\r\n    xdsEinzelkontaktKundenklassetext.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKundenklassetext.Name := 'xdsEinzelkontaktKundenklassetext';\r\n    xdsEinzelkontaktKundenklassetext.FieldName := 'Kundenklassetext';\r\n    xdsEinzelkontaktKundenklassetext.Size := 50;\r\n    xdsEinzelkontaktKundenklasseFarbe.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKundenklasseFarbe.Name := 'xdsEinzelkontaktKundenklasseFarbe';\r\n    xdsEinzelkontaktKundenklasseFarbe.FieldName := 'KundenklasseFarbe';\r\n    xdsEinzelkontaktAbweichenderRechnungsEmpfaenger.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktAbweichenderRechnungsEmpfaenger.Name := 'xdsEinzelkontaktAbweichenderRechnungsEmpfaenger';\r\n    xdsEinzelkontaktAbweichenderRechnungsEmpfaenger.FieldName := 'AbweichenderRechnungsEmpfaenger';\r\n    xdsEinzelkontaktAbweichenderRechnungsEmpfaenger.Size := 13;\r\n    xdsEinzelkontaktProtokoll.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktProtokoll.Name := 'xdsEinzelkontaktProtokoll';\r\n    xdsEinzelkontaktProtokoll.FieldName := 'Protokoll';\r\n    xdsEinzelkontaktProtokoll.Size := 255;\r\n    xdsEinzelkontaktILNTyp1.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktILNTyp1.Name := 'xdsEinzelkontaktILNTyp1';\r\n    xdsEinzelkontaktILNTyp1.FieldName := 'ILNTyp1';\r\n    xdsEinzelkontaktILNTyp1.Size := 13;\r\n    xdsEinzelkontaktILNTyp2.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktILNTyp2.Name := 'xdsEinzelkontaktILNTyp2';\r\n    xdsEinzelkontaktILNTyp2.FieldName := 'ILNTyp2';\r\n    xdsEinzelkontaktILNTyp2.Size := 13;\r\n    xdsEinzelkontaktKontaktGUID.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKontaktGUID.Name := 'xdsEinzelkontaktKontaktGUID';\r\n    xdsEinzelkontaktKontaktGUID.FieldName := 'KontaktGUID';\r\n    xdsEinzelkontaktKontaktGUID.Size := 38;\r\n    xdsEinzelkontaktPLZGUID.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktPLZGUID.Name := 'xdsEinzelkontaktPLZGUID';\r\n    xdsEinzelkontaktPLZGUID.FieldName := 'PLZGUID';\r\n    xdsEinzelkontaktPLZGUID.Size := 38;\r\n    xdsEinzelkontaktPreislistenVariantePakete.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktPreislistenVariantePakete.Name := 'xdsEinzelkontaktPreislistenVariantePakete';\r\n    xdsEinzelkontaktPreislistenVariantePakete.FieldName := 'PreislistenVariantePakete';\r\n    xdsEinzelkontaktPreislistenVariantePakete.Size := 50;\r\n    xdsEinzelkontaktSchluesselRechnungslauf.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktSchluesselRechnungslauf.Name := 'xdsEinzelkontaktSchluesselRechnungslauf';\r\n    xdsEinzelkontaktSchluesselRechnungslauf.FieldName := 'SchluesselRechnungslauf';\r\n    xdsEinzelkontaktSchluesselRechnungslauf.Size := 50;\r\n    xdsEinzelkontaktRechnungEmail.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktRechnungEmail.Name := 'xdsEinzelkontaktRechnungEmail';\r\n    xdsEinzelkontaktRechnungEmail.FieldName := 'RechnungEmail';\r\n    xdsEinzelkontaktRechnungEmail.Size := 50;\r\n    xdsEinzelkontaktZahlungsbedingungEK.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktZahlungsbedingungEK.Name := 'xdsEinzelkontaktZahlungsbedingungEK';\r\n    xdsEinzelkontaktZahlungsbedingungEK.FieldName := 'ZahlungsbedingungEK';\r\n    xdsEinzelkontaktTransportbedingungEK.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktTransportbedingungEK.Name := 'xdsEinzelkontaktTransportbedingungEK';\r\n    xdsEinzelkontaktTransportbedingungEK.FieldName := 'TransportbedingungEK';\r\n    xdsEinzelkontaktTransportbedingungEK.Size := 100;\r\n    xdsEinzelkontaktRabattsatzEK.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktRabattsatzEK.Name := 'xdsEinzelkontaktRabattsatzEK';\r\n    xdsEinzelkontaktRabattsatzEK.FieldName := 'RabattsatzEK';\r\n    xdsEinzelkontaktVertreterMatchcode.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktVertreterMatchcode.Name := 'xdsEinzelkontaktVertreterMatchcode';\r\n    xdsEinzelkontaktVertreterMatchcode.FieldName := 'VertreterMatchcode';\r\n    xdsEinzelkontaktVertreterMatchcode.Size := 50;\r\n    xdsEinzelkontaktVertreterProvisionssatz.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktVertreterProvisionssatz.Name := 'xdsEinzelkontaktVertreterProvisionssatz';\r\n    xdsEinzelkontaktVertreterProvisionssatz.FieldName := 'VertreterProvisionssatz';\r\n    xdsEinzelkontaktUmsatzVKJahr.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktUmsatzVKJahr.Name := 'xdsEinzelkontaktUmsatzVKJahr';\r\n    xdsEinzelkontaktUmsatzVKJahr.FieldName := 'UmsatzVKJahr';\r\n    xdsEinzelkontaktUmsatzVKVorjahr.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktUmsatzVKVorjahr.Name := 'xdsEinzelkontaktUmsatzVKVorjahr';\r\n    xdsEinzelkontaktUmsatzVKVorjahr.FieldName := 'UmsatzVKVorjahr';\r\n    xdsEinzelkontaktUmsatzEKJahr.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktUmsatzEKJahr.Name := 'xdsEinzelkontaktUmsatzEKJahr';\r\n    xdsEinzelkontaktUmsatzEKJahr.FieldName := 'UmsatzEKJahr';\r\n    xdsEinzelkontaktUmsatzEKVorjahr.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktUmsatzEKVorjahr.Name := 'xdsEinzelkontaktUmsatzEKVorjahr';\r\n    xdsEinzelkontaktUmsatzEKVorjahr.FieldName := 'UmsatzEKVorjahr';\r\n    xdsEinzelkontaktSteuernummer.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktSteuernummer.Name := 'xdsEinzelkontaktSteuernummer';\r\n    xdsEinzelkontaktSteuernummer.FieldName := 'Steuernummer';\r\n    xdsEinzelkontaktSteuernummer.Size := 25;\r\n    xdsEinzelkontaktLoginPW.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktLoginPW.Name := 'xdsEinzelkontaktLoginPW';\r\n    xdsEinzelkontaktLoginPW.FieldName := 'LoginPW';\r\n    xdsEinzelkontaktREperFax.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktREperFax.Name := 'xdsEinzelkontaktREperFax';\r\n    xdsEinzelkontaktREperFax.FieldName := 'REperFax';\r\n    xdsEinzelkontaktErreichbarkeit.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktErreichbarkeit.Name := 'xdsEinzelkontaktErreichbarkeit';\r\n    xdsEinzelkontaktErreichbarkeit.FieldName := 'Erreichbarkeit';\r\n    xdsEinzelkontaktErreichbarkeit.Size := 250;\r\n    xdsEinzelkontaktErloesKontoUST4.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktErloesKontoUST4.Name := 'xdsEinzelkontaktErloesKontoUST4';\r\n    xdsEinzelkontaktErloesKontoUST4.FieldName := 'ErloesKontoUST4';\r\n    xdsEinzelkontaktErloesKontoUST4.Size := 10;\r\n    xdsEinzelkontaktErloesKontoUST5.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktErloesKontoUST5.Name := 'xdsEinzelkontaktErloesKontoUST5';\r\n    xdsEinzelkontaktErloesKontoUST5.FieldName := 'ErloesKontoUST5';\r\n    xdsEinzelkontaktErloesKontoUST5.Size := 10;\r\n    xdsEinzelkontaktErloesKontoUST6.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktErloesKontoUST6.Name := 'xdsEinzelkontaktErloesKontoUST6';\r\n    xdsEinzelkontaktErloesKontoUST6.FieldName := 'ErloesKontoUST6';\r\n    xdsEinzelkontaktErloesKontoUST6.Size := 10;\r\n    xdsEinzelkontaktBesteuerungKey.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBesteuerungKey.Name := 'xdsEinzelkontaktBesteuerungKey';\r\n    xdsEinzelkontaktBesteuerungKey.FieldName := 'BesteuerungKey';\r\n    xdsEinzelkontaktAuftraegeJahr.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktAuftraegeJahr.Name := 'xdsEinzelkontaktAuftraegeJahr';\r\n    xdsEinzelkontaktAuftraegeJahr.FieldName := 'AuftraegeJahr';\r\n    xdsEinzelkontaktAuftraegeVorjahr.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktAuftraegeVorjahr.Name := 'xdsEinzelkontaktAuftraegeVorjahr';\r\n    xdsEinzelkontaktAuftraegeVorjahr.FieldName := 'AuftraegeVorjahr';\r\n    xdsEinzelkontaktLieferadresseID.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktLieferadresseID.Name := 'xdsEinzelkontaktLieferadresseID';\r\n    xdsEinzelkontaktLieferadresseID.FieldName := 'LieferadresseID';\r\n    xdsEinzelkontaktUSTIDgeprueft.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktUSTIDgeprueft.Name := 'xdsEinzelkontaktUSTIDgeprueft';\r\n    xdsEinzelkontaktUSTIDgeprueft.FieldName := 'USTIDgeprueft';\r\n    xdsEinzelkontaktKontaktverbund.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktKontaktverbund.Name := 'xdsEinzelkontaktKontaktverbund';\r\n    xdsEinzelkontaktKontaktverbund.FieldName := 'Kontaktverbund';\r\n    xdsEinzelkontaktKontaktverbund.Size := 25;\r\n    xdsEinzelkontaktHinweis.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktHinweis.Name := 'xdsEinzelkontaktHinweis';\r\n    xdsEinzelkontaktHinweis.FieldName := 'Hinweis';\r\n    xdsEinzelkontaktHinweis.Size := 255;\r\n    xdsEinzelkontaktLatitude.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktLatitude.Name := 'xdsEinzelkontaktLatitude';\r\n    xdsEinzelkontaktLatitude.FieldName := 'Latitude';\r\n    xdsEinzelkontaktLongitude.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktLongitude.Name := 'xdsEinzelkontaktLongitude';\r\n    xdsEinzelkontaktLongitude.FieldName := 'Longitude';\r\n    xdsEinzelkontaktkmLuftlinie.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktkmLuftlinie.Name := 'xdsEinzelkontaktkmLuftlinie';\r\n    xdsEinzelkontaktkmLuftlinie.FieldName := 'kmLuftlinie';\r\n    xdsEinzelkontaktGoogleID.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktGoogleID.Name := 'xdsEinzelkontaktGoogleID';\r\n    xdsEinzelkontaktGoogleID.FieldName := 'GoogleID';\r\n    xdsEinzelkontaktGoogleID.Size := 50;\r\n    xdsEinzelkontaktGoogleUpdatedUTC.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktGoogleUpdatedUTC.Name := 'xdsEinzelkontaktGoogleUpdatedUTC';\r\n    xdsEinzelkontaktGoogleUpdatedUTC.FieldName := 'GoogleUpdatedUTC';\r\n    xdsEinzelkontaktBundesland.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktBundesland.Name := 'xdsEinzelkontaktBundesland';\r\n    xdsEinzelkontaktBundesland.FieldName := 'Bundesland';\r\n    xdsEinzelkontaktBundesland.Size := 50;\r\n    xdsEinzelkontaktRegion.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktRegion.Name := 'xdsEinzelkontaktRegion';\r\n    xdsEinzelkontaktRegion.FieldName := 'Region';\r\n    xdsEinzelkontaktRegion.Size := 50;\r\n    xdsEinzelkontaktMandatsreferenz.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktMandatsreferenz.Name := 'xdsEinzelkontaktMandatsreferenz';\r\n    xdsEinzelkontaktMandatsreferenz.FieldName := 'Mandatsreferenz';\r\n    xdsEinzelkontaktMandatsreferenz.Size := 34;\r\n    xdsEinzelkontaktMandatsreferenzVom.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktMandatsreferenzVom.Name := 'xdsEinzelkontaktMandatsreferenzVom';\r\n    xdsEinzelkontaktMandatsreferenzVom.FieldName := 'MandatsreferenzVom';\r\n    xdsEinzelkontaktLastschriftArt.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktLastschriftArt.Name := 'xdsEinzelkontaktLastschriftArt';\r\n    xdsEinzelkontaktLastschriftArt.FieldName := 'LastschriftArt';\r\n    xdsEinzelkontaktLastschriftArt.Size := 2;\r\n    xdsEinzelkontaktMahnsperre.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktMahnsperre.Name := 'xdsEinzelkontaktMahnsperre';\r\n    xdsEinzelkontaktMahnsperre.FieldName := 'Mahnsperre';\r\n    xdsEinzelkontaktSuchbegriff.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktSuchbegriff.Name := 'xdsEinzelkontaktSuchbegriff';\r\n    xdsEinzelkontaktSuchbegriff.FieldName := 'Suchbegriff';\r\n    xdsEinzelkontaktSuchbegriff.Size := 25;\r\n    xdsEinzelkontaktLieferanschriftDaten.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktLieferanschriftDaten.Name := 'xdsEinzelkontaktLieferanschriftDaten';\r\n    xdsEinzelkontaktLieferanschriftDaten.FieldName := 'LieferanschriftDaten';\r\n    xdsEinzelkontaktLieferanschriftDaten.Size := 255;\r\n    xdsEinzelkontaktExportKasse.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktExportKasse.Name := 'xdsEinzelkontaktExportKasse';\r\n    xdsEinzelkontaktExportKasse.FieldName := 'ExportKasse';\r\n    xdsEinzelkontaktLoeschvormerkungDatum.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktLoeschvormerkungDatum.Name := 'xdsEinzelkontaktLoeschvormerkungDatum';\r\n    xdsEinzelkontaktLoeschvormerkungDatum.FieldName := 'LoeschvormerkungDatum';\r\n    xdsEinzelkontaktLoeschvormerkungGrund.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktLoeschvormerkungGrund.Name := 'xdsEinzelkontaktLoeschvormerkungGrund';\r\n    xdsEinzelkontaktLoeschvormerkungGrund.FieldName := 'LoeschvormerkungGrund';\r\n    xdsEinzelkontaktLoeschvormerkungGrund.Size := 250;\r\n    xdsEinzelkontaktPseudonymisiert.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktPseudonymisiert.Name := 'xdsEinzelkontaktPseudonymisiert';\r\n    xdsEinzelkontaktPseudonymisiert.FieldName := 'Pseudonymisiert';\r\n    xdsEinzelkontaktPseudonymisiert.Size := 255;\r\n    xdsEinzelkontaktLoginAktiv.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktLoginAktiv.Name := 'xdsEinzelkontaktLoginAktiv';\r\n    xdsEinzelkontaktLoginAktiv.FieldName := 'LoginAktiv';\r\n    xdsEinzelkontaktSonstigeDaten.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktSonstigeDaten.Name := 'xdsEinzelkontaktSonstigeDaten';\r\n    xdsEinzelkontaktSonstigeDaten.FieldName := 'SonstigeDaten';\r\n    xdsEinzelkontaktSonstigeDaten.Size := 255;\r\n    xdsEinzelkontaktB2C.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktB2C.Name := 'xdsEinzelkontaktB2C';\r\n    xdsEinzelkontaktB2C.FieldName := 'B2C';\r\n    xdsEinzelkontaktTIN.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktTIN.Name := 'xdsEinzelkontaktTIN';\r\n    xdsEinzelkontaktTIN.FieldName := 'TIN';\r\n    xdsEinzelkontaktTIN.Size := 25;\r\n    xdsEinzelkontaktMindestbestellwert.SetParentComponent(xdsEinzelkontakt);\r\n    xdsEinzelkontaktMindestbestellwert.Name := 'xdsEinzelkontaktMindestbestellwert';\r\n    xdsEinzelkontaktMindestbestellwert.FieldName := 'Mindestbestellwert';\r\n    sourceEinzelkontakt.SetParentComponent(Self);\r\n    sourceEinzelkontakt.Name := 'sourceEinzelkontakt';\r\n    sourceEinzelkontakt.DataSet := xdsEinzelkontakt;\r\n    sourceEinzelkontakt.Left := 20;\r\n    sourceEinzelkontakt.Top := 69;\r\n    WClient.SetParentComponent(Self);\r\n    WClient.Name := 'WClient';\r\n    WClient.Connection := DM2.XDataWebConnection1;\r\n    WClient.Left := 24;\r\n    WClient.Top := 8;\r\n    xdskontosaldo.SetParentComponent(Self);\r\n    xdskontosaldo.Name := 'xdskontosaldo';\r\n    xdskontosaldo.AfterOpen := xdskontosaldoAfterOpen;\r\n    xdskontosaldo.EntitySetName := 'ITS_Kontosalden';\r\n    xdskontosaldo.Connection := DM2.XDataWebConnection1;\r\n    xdskontosaldo.Left := 56;\r\n    xdskontosaldo.Top := 348;\r\n    xdskontosaldoKundennummer.SetParentComponent(xdskontosaldo);\r\n    xdskontosaldoKundennummer.Name := 'xdskontosaldoKundennummer';\r\n    xdskontosaldoKundennummer.FieldName := 'Kundennummer';\r\n    xdskontosaldoKundennummer.Required := True;\r\n    xdskontosaldoKundennummer.Size := 13;\r\n    xdskontosaldoZeitaufwand.SetParentComponent(xdskontosaldo);\r\n    xdskontosaldoZeitaufwand.Name := 'xdskontosaldoZeitaufwand';\r\n    xdskontosaldoZeitaufwand.FieldName := 'Zeitaufwand';\r\n    xdskontosaldoAbzurechnen.SetParentComponent(xdskontosaldo);\r\n    xdskontosaldoAbzurechnen.Name := 'xdskontosaldoAbzurechnen';\r\n    xdskontosaldoAbzurechnen.FieldName := 'Abzurechnen';\r\n    xdskontosaldoGutschrift.SetParentComponent(xdskontosaldo);\r\n    xdskontosaldoGutschrift.Name := 'xdskontosaldoGutschrift';\r\n    xdskontosaldoGutschrift.FieldName := 'Gutschrift';\r\n    xdskontosaldoAbzug.SetParentComponent(xdskontosaldo);\r\n    xdskontosaldoAbzug.Name := 'xdskontosaldoAbzug';\r\n    xdskontosaldoAbzug.FieldName := 'Abzug';\r\n    xdskontosaldoSaldo.SetParentComponent(xdskontosaldo);\r\n    xdskontosaldoSaldo.Name := 'xdskontosaldoSaldo';\r\n    xdskontosaldoSaldo.FieldName := 'Saldo';\r\n    xdskontosaldoBetrag.SetParentComponent(xdskontosaldo);\r\n    xdskontosaldoBetrag.Name := 'xdskontosaldoBetrag';\r\n    xdskontosaldoBetrag.FieldName := 'Betrag';\r\n    xdskontosaldoMinutenpreis.SetParentComponent(xdskontosaldo);\r\n    xdskontosaldoMinutenpreis.Name := 'xdskontosaldoMinutenpreis';\r\n    xdskontosaldoMinutenpreis.FieldName := 'Minutenpreis';\r\n    xdskontosaldoSRestguthaben.SetParentComponent(xdskontosaldo);\r\n    xdskontosaldoSRestguthaben.Name := 'xdskontosaldoSRestguthaben';\r\n    xdskontosaldoSRestguthaben.FieldName := 'SRestguthaben';\r\n  finally\r\n    TC.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    btnBelege.AfterLoadDFMValues;\r\n    btnKarte.AfterLoadDFMValues;\r\n    btnPreise.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    btnAnsprechpartner.AfterLoadDFMValues;\r\n    btnDateien.AfterLoadDFMValues;\r\n    btnTicketNeu.AfterLoadDFMValues;\r\n    btnKontaktAendern.AfterLoadDFMValues;\r\n    xdsEinzelkontakt.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKundennummer.AfterLoadDFMValues;\r\n    xdsEinzelkontaktGruppeKunden.AfterLoadDFMValues;\r\n    xdsEinzelkontaktGruppeLieferanten.AfterLoadDFMValues;\r\n    xdsEinzelkontaktGruppeSonstige.AfterLoadDFMValues;\r\n    xdsEinzelkontaktGruppeNichtkunden.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKontaktgruppe.AfterLoadDFMValues;\r\n    xdsEinzelkontaktNachname.AfterLoadDFMValues;\r\n    xdsEinzelkontaktVorname.AfterLoadDFMValues;\r\n    xdsEinzelkontaktAdresszeile2.AfterLoadDFMValues;\r\n    xdsEinzelkontaktAdresszeile3.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStrasse.AfterLoadDFMValues;\r\n    xdsEinzelkontaktPostleitzahl.AfterLoadDFMValues;\r\n    xdsEinzelkontaktOrt.AfterLoadDFMValues;\r\n    xdsEinzelkontaktLaenderkuerzel.AfterLoadDFMValues;\r\n    xdsEinzelkontaktLand.AfterLoadDFMValues;\r\n    xdsEinzelkontaktLaenderkennzeichen.AfterLoadDFMValues;\r\n    xdsEinzelkontaktAdressanrede.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBriefanrede1.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBriefanrede2.AfterLoadDFMValues;\r\n    xdsEinzelkontaktAdresseBild.AfterLoadDFMValues;\r\n    xdsEinzelkontaktLieferanschrift.AfterLoadDFMValues;\r\n    xdsEinzelkontaktGeburtsdatum.AfterLoadDFMValues;\r\n    xdsEinzelkontaktTelefonNummer.AfterLoadDFMValues;\r\n    xdsEinzelkontaktTelefaxNummer.AfterLoadDFMValues;\r\n    xdsEinzelkontaktMobilTelefon.AfterLoadDFMValues;\r\n    xdsEinzelkontaktEMail.AfterLoadDFMValues;\r\n    xdsEinzelkontaktInternet.AfterLoadDFMValues;\r\n    xdsEinzelkontaktUmsatzsteuerID.AfterLoadDFMValues;\r\n    xdsEinzelkontaktUmsatzsteuerausweis.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBemerkungen.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBranche.AfterLoadDFMValues;\r\n    xdsEinzelkontaktSelektiert1.AfterLoadDFMValues;\r\n    xdsEinzelkontaktSelektiert2.AfterLoadDFMValues;\r\n    xdsEinzelkontaktSelektiert3.AfterLoadDFMValues;\r\n    xdsEinzelkontaktZahlungsbedingung.AfterLoadDFMValues;\r\n    xdsEinzelkontaktTransportbedingung.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKilometer.AfterLoadDFMValues;\r\n    xdsEinzelkontaktRabattsatz.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStundensatz.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKontonummer.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBank.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBankleitzahl.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKontoinhaber.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBetreuer.AfterLoadDFMValues;\r\n    xdsEinzelkontaktQuelle.AfterLoadDFMValues;\r\n    xdsEinzelkontaktSuchmerkmal.AfterLoadDFMValues;\r\n    xdsEinzelkontaktWarenkreditlimit.AfterLoadDFMValues;\r\n    xdsEinzelkontaktWarenkreditgesperrt.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKundennummerFremd.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKeinNewsletter.AfterLoadDFMValues;\r\n    xdsEinzelkontaktDebitorennummer.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKreditorennummer.AfterLoadDFMValues;\r\n    xdsEinzelkontaktTelefonAlternativ.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKostentraeger.AfterLoadDFMValues;\r\n    xdsEinzelkontaktIBAN.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBIC.AfterLoadDFMValues;\r\n    xdsEinzelkontaktEmailkonto.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBenutzername.AfterLoadDFMValues;\r\n    xdsEinzelkontaktPasswort.AfterLoadDFMValues;\r\n    xdsEinzelkontaktExportOutlook.AfterLoadDFMValues;\r\n    xdsEinzelkontaktNichtInListeAnzeigen.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKreditkarteArt.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKreditkarteInhaber.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKreditkarteNummer.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKreditkarteGueltigMonat.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKreditkarteGueltigJahr.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKreditkartePruefziffer.AfterLoadDFMValues;\r\n    xdsEinzelkontaktDatumNeu.AfterLoadDFMValues;\r\n    xdsEinzelkontaktDatumgeaendert.AfterLoadDFMValues;\r\n    xdsEinzelkontaktTitel.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStundensatzMontage.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStdMontageU25.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStdMontageU50.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStdMontageU70.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStdMontageU100.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStdMontageU150.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStundensatzWerkstatt.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStdWerkstattU25.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStdWerkstattU50.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStdWerkstattU70.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStdWerkstattU100.AfterLoadDFMValues;\r\n    xdsEinzelkontaktStdWerkstattU150.AfterLoadDFMValues;\r\n    xdsEinzelkontaktArchivReferenz.AfterLoadDFMValues;\r\n    xdsEinzelkontaktErloesKontoUST1.AfterLoadDFMValues;\r\n    xdsEinzelkontaktErloesKontoUST2.AfterLoadDFMValues;\r\n    xdsEinzelkontaktErloesKontoUST3.AfterLoadDFMValues;\r\n    xdsEinzelkontaktGebKal.AfterLoadDFMValues;\r\n    xdsEinzelkontaktEmailversand.AfterLoadDFMValues;\r\n    xdsEinzelkontaktMahnspesen.AfterLoadDFMValues;\r\n    xdsEinzelkontaktRechnungSchluss.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBenutzerNeu.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBenutzerGeaendert.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBelegsprache.AfterLoadDFMValues;\r\n    xdsEinzelkontaktkmSatz.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKundenklassetext.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKundenklasseFarbe.AfterLoadDFMValues;\r\n    xdsEinzelkontaktAbweichenderRechnungsEmpfaenger.AfterLoadDFMValues;\r\n    xdsEinzelkontaktProtokoll.AfterLoadDFMValues;\r\n    xdsEinzelkontaktILNTyp1.AfterLoadDFMValues;\r\n    xdsEinzelkontaktILNTyp2.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKontaktGUID.AfterLoadDFMValues;\r\n    xdsEinzelkontaktPLZGUID.AfterLoadDFMValues;\r\n    xdsEinzelkontaktPreislistenVariantePakete.AfterLoadDFMValues;\r\n    xdsEinzelkontaktSchluesselRechnungslauf.AfterLoadDFMValues;\r\n    xdsEinzelkontaktRechnungEmail.AfterLoadDFMValues;\r\n    xdsEinzelkontaktZahlungsbedingungEK.AfterLoadDFMValues;\r\n    xdsEinzelkontaktTransportbedingungEK.AfterLoadDFMValues;\r\n    xdsEinzelkontaktRabattsatzEK.AfterLoadDFMValues;\r\n    xdsEinzelkontaktVertreterMatchcode.AfterLoadDFMValues;\r\n    xdsEinzelkontaktVertreterProvisionssatz.AfterLoadDFMValues;\r\n    xdsEinzelkontaktUmsatzVKJahr.AfterLoadDFMValues;\r\n    xdsEinzelkontaktUmsatzVKVorjahr.AfterLoadDFMValues;\r\n    xdsEinzelkontaktUmsatzEKJahr.AfterLoadDFMValues;\r\n    xdsEinzelkontaktUmsatzEKVorjahr.AfterLoadDFMValues;\r\n    xdsEinzelkontaktSteuernummer.AfterLoadDFMValues;\r\n    xdsEinzelkontaktLoginPW.AfterLoadDFMValues;\r\n    xdsEinzelkontaktREperFax.AfterLoadDFMValues;\r\n    xdsEinzelkontaktErreichbarkeit.AfterLoadDFMValues;\r\n    xdsEinzelkontaktErloesKontoUST4.AfterLoadDFMValues;\r\n    xdsEinzelkontaktErloesKontoUST5.AfterLoadDFMValues;\r\n    xdsEinzelkontaktErloesKontoUST6.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBesteuerungKey.AfterLoadDFMValues;\r\n    xdsEinzelkontaktAuftraegeJahr.AfterLoadDFMValues;\r\n    xdsEinzelkontaktAuftraegeVorjahr.AfterLoadDFMValues;\r\n    xdsEinzelkontaktLieferadresseID.AfterLoadDFMValues;\r\n    xdsEinzelkontaktUSTIDgeprueft.AfterLoadDFMValues;\r\n    xdsEinzelkontaktKontaktverbund.AfterLoadDFMValues;\r\n    xdsEinzelkontaktHinweis.AfterLoadDFMValues;\r\n    xdsEinzelkontaktLatitude.AfterLoadDFMValues;\r\n    xdsEinzelkontaktLongitude.AfterLoadDFMValues;\r\n    xdsEinzelkontaktkmLuftlinie.AfterLoadDFMValues;\r\n    xdsEinzelkontaktGoogleID.AfterLoadDFMValues;\r\n    xdsEinzelkontaktGoogleUpdatedUTC.AfterLoadDFMValues;\r\n    xdsEinzelkontaktBundesland.AfterLoadDFMValues;\r\n    xdsEinzelkontaktRegion.AfterLoadDFMValues;\r\n    xdsEinzelkontaktMandatsreferenz.AfterLoadDFMValues;\r\n    xdsEinzelkontaktMandatsreferenzVom.AfterLoadDFMValues;\r\n    xdsEinzelkontaktLastschriftArt.AfterLoadDFMValues;\r\n    xdsEinzelkontaktMahnsperre.AfterLoadDFMValues;\r\n    xdsEinzelkontaktSuchbegriff.AfterLoadDFMValues;\r\n    xdsEinzelkontaktLieferanschriftDaten.AfterLoadDFMValues;\r\n    xdsEinzelkontaktExportKasse.AfterLoadDFMValues;\r\n    xdsEinzelkontaktLoeschvormerkungDatum.AfterLoadDFMValues;\r\n    xdsEinzelkontaktLoeschvormerkungGrund.AfterLoadDFMValues;\r\n    xdsEinzelkontaktPseudonymisiert.AfterLoadDFMValues;\r\n    xdsEinzelkontaktLoginAktiv.AfterLoadDFMValues;\r\n    xdsEinzelkontaktSonstigeDaten.AfterLoadDFMValues;\r\n    xdsEinzelkontaktB2C.AfterLoadDFMValues;\r\n    xdsEinzelkontaktTIN.AfterLoadDFMValues;\r\n    xdsEinzelkontaktMindestbestellwert.AfterLoadDFMValues;\r\n    sourceEinzelkontakt.AfterLoadDFMValues;\r\n    WClient.AfterLoadDFMValues;\r\n    xdskontosaldo.AfterLoadDFMValues;\r\n    xdskontosaldoKundennummer.AfterLoadDFMValues;\r\n    xdskontosaldoZeitaufwand.AfterLoadDFMValues;\r\n    xdskontosaldoAbzurechnen.AfterLoadDFMValues;\r\n    xdskontosaldoGutschrift.AfterLoadDFMValues;\r\n    xdskontosaldoAbzug.AfterLoadDFMValues;\r\n    xdskontosaldoSaldo.AfterLoadDFMValues;\r\n    xdskontosaldoBetrag.AfterLoadDFMValues;\r\n    xdskontosaldoMinutenpreis.AfterLoadDFMValues;\r\n    xdskontosaldoSRestguthaben.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit unit_Kontaktsuche;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Data.DB, WEBLib.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, XData.Web.Connection, Vcl.Controls, Vcl.StdCtrls,\r\n  WEBLib.StdCtrls, WEBLib.ExtCtrls, Vcl.Grids, WEBLib.DBCtrls, VCL.TMSFNCTypes,\r\n  VCL.TMSFNCUtils, VCL.TMSFNCGraphics, VCL.TMSFNCGraphicsTypes, strutils,\r\n  VCL.TMSFNCCustomControl, VCL.TMSFNCTableView, WEBLib.Grids, WEBLib.Buttons, DB,\r\n  XData.Web.Client;\r\n\r\ntype\r\n  TfrmKontaktSuche = class(TForm)\r\n    DataSet: TXDataWebDataSet;\r\n    Source: TDataSource;\r\n    DataSetKundennummer: TStringField;\r\n    DataSetNachname: TStringField;\r\n    DataSetVorname: TStringField;\r\n    DataSetAdresseBild: TStringField;\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    Container3: THTMLContainer;\r\n    TC: TTableControl;\r\n    btnzurueck: TButton;\r\n    btnScan: TButton;\r\n    edtSuchbegriff: TEdit;\r\n    ResultLabel: TLabel;\r\n    btnNeuerKontakt: TButton;\r\n    InputNachname: TInputMessageDlg;\r\n    WClient: TXDataWebClient;\r\n    btnKontaktAendern: TButton;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure DataSetAfterOpen(DataSet: TDataSet);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n    procedure btnScanClick(Sender: TObject);\r\n    procedure edtSuchbegriffChange(Sender: TObject);\r\n    [async]\r\n    procedure btnNeuerKontaktClick(Sender: TObject); async;\r\n    procedure btnKontaktAendernClick(Sender: TObject);\r\n\r\n    public\r\n    Kontaktnummer:string;\r\n    NeueKontaktnummer:string;\r\n    LUNachname:string;\r\n    LUVorname:string;\r\n    LUAdressebild:string;\r\n    weiterzuEinzelkontakt:boolean;\r\n    buttonkundennummer:TButton;\r\n    procedure buttonkundennummerclick(Sender:TObject);\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  frmKontaktSuche: TfrmKontaktSuche;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_EinzelKontakt, unit_BarcodeScan, unit_KontaktAenderung;\r\n{$R *.dfm}\r\n\r\n\r\nprocedure TfrmKontaktSuche.btnNeuerKontaktClick(Sender: TObject);\r\n  procedure OnResponse(Response:TXDataClientResponse);\r\n  var\r\n  ergebnis:string;\r\n  begin\r\n    ergebnis:=string(TJSObject(response.Result)['value']);\r\n    if ergebnis='WRONG' then\r\n    begin\r\n      NeueKontaktnummer:='';\r\n      showmessage('Es konnte kein neuer Kontakt hinzugefügt werden.');\r\n    end\r\n    else\r\n    begin\r\n      NeueKontaktnummer:=ergebnis;\r\n      if NeueKontaktnummer<>'' then\r\n      begin\r\n        edtsuchbegriff.text:=NeueKontaktnummer;\r\n        edtSuchbegriffChange(nil);\r\n        btnKontaktAendernClick(nil);\r\n      end;\r\n    end;\r\n  end;\r\n\r\n  var\r\n  res: TModalResult;\r\n  mynachname:string;\r\nbegin\r\n  InputNachname.DialogType := mtConfirmation;\r\n  InputNachname.InputValue := '';\r\n  InputNachname.InputType := ittext;\r\n  InputNachname.Message := 'Bitte geben Sie den Nachname des neuen Kontakts ein';\r\n  InputNachname.Buttons := [mbOK, mbCancel];\r\n  res := await(TModalResult, InputNachname.ShowAsync);\r\n  If res=mrOK then\r\n  begin\r\n    WClient.RawInvoke('IServerService.NeuerKontakt',[InputNachname.InputValue],@OnResponse);\r\n  end;\r\nend;\r\n\r\nprocedure TfrmKontaktSuche.btnScanClick(Sender: TObject);\r\nvar\r\n  LFrm:TBarcodeScan;\r\n  procedure AfterCreate(AForm:TObject);\r\n  var\r\n    LForm:TBarcodeScan;\r\n    begin\r\n      LForm:=(AForm as TBarcodeScan);\r\n      //lform.mykundehint:=xdsEinzelkontaktKundennummer.AsString+' '+xdsEinzelkontaktNachname.AsString+', '+xdsEinzelkontaktVorname.asstring;\r\n      //lForm.edttoaddress.Text:= xdsEinzelkontaktPostleitzahl.AsString+' '+xdsEinzelkontaktort.AsString+', '+xdsEinzelkontaktStrasse.AsString;\r\n\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      edtsuchbegriff.text:=lfrm.ScanErgebnis;\r\n      edtsuchbegriffChange(self);\r\n    end;\r\n  begin\r\n      LFrm:=TBarcodeScan.CreateNew(@AfterCreate);\r\n      LFrm.ShowModal(@AfterShowmodal);\r\nend;\r\n\r\nprocedure TfrmKontaktSuche.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  self.Close;\r\nend;\r\n\r\nprocedure TfrmKontaktSuche.buttonkundennummerclick(Sender:TObject);\r\nvar\r\n  MFrm:TEinzelkontakt;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      MForm:TEinzelkontakt;\r\n    begin\r\n      MForm:=(AForm as TEinzelkontakt);\r\n      MForm.KundennummerID:=Kontaktnummer;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      edtsuchbegriffChange(nil);\r\n    end;\r\n\r\n  begin\r\n\r\n  Kontaktnummer:=(sender as TButton).Caption;\r\n  dataset.Locate('Kundennummer',kontaktnummer,[]);\r\n  LUNachname:=DataSetNachname.AsString;\r\n  LUVorname:=DataSetVorname.AsString;\r\n  LUAdressebild:=DataSetAdresseBild.AsString;\r\n  if weiterzueinzelkontakt then\r\n  begin\r\n    Container3.HTML.Text:='';\r\n    MFrm:=TEinzelkontakt.CreateNew(@AfterCreate);\r\n    MFrm.ShowModal(@AfterShowmodal);\r\n  end\r\n  else\r\n  begin\r\n    self.Close;\r\n  end;\r\nend;\r\n\r\n\r\n\r\nprocedure TfrmKontaktSuche.DataSetAfterOpen(DataSet: TDataSet);\r\nvar\r\n  i:integer;\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  myelement:=container3.ElementHandle;\r\n  tc.ParentElement:=myelement;\r\n  i:=0;\r\n  TC.visible:=true;\r\n  TC.ColCount:=4;\r\n  tc.RowCount:=dataset.RecordCount+1;\r\n  tc.Cells[0,i]:='<b>Kundennummer';\r\n  tc.Cells[1,i]:='<b>Nachname';\r\n  tc.Cells[2,i]:='<b>Vorname';\r\n  tc.Cells[3,i]:='<b>Anschrift';\r\n  dataset.First;\r\n  if dataset.RecordCount=0 then resultlabel.Caption:='nichts gefunden';\r\n  if dataset.RecordCount>0 then resultlabel.Caption:='Übereinstimmungen: '+inttostr(dataset.RecordCount);\r\n  if dataset.RecordCount>20 then resultlabel.Caption:='mehr als 20 Übereinstimmungen';\r\n\r\n  while not dataset.eof do\r\n  begin\r\n    inc(i);\r\n    myelement:=TC.cellelements[0,i];\r\n    myelement.innerHTML:='';\r\n    buttonkundennummer:=TButton.Create(self);\r\n    buttonkundennummer.ElementClassName:='btn btn-sm btn-info';\r\n    buttonkundennummer.HeightStyle:=ssauto;\r\n    buttonkundennummer.Width:=150;\r\n    buttonkundennummer.tag:=0;\r\n    buttonkundennummer.Caption:=DataSetKundennummer.AsString;\r\n    buttonkundennummer.OnClick:=@buttonkundennummerClick;\r\n    buttonkundennummer.ParentElement:=myelement;\r\n    TC.Cells[1,i]:=DataSetNachname.AsString;\r\n    TC.Cells[2,i]:=DataSetVorname.AsString;\r\n    TC.Cells[3,i]:='<h6>'+ReplaceStr(DataSetAdresseBild.AsString,#13+#10,'<BR>');;\r\n    dataset.Next;\r\n  end;\r\n\r\n\r\nend;\r\n\r\n\r\n\r\nprocedure TfrmKontaktSuche.edtSuchbegriffChange(Sender: TObject);\r\nvar\r\n  suchtextkontakt:string;\r\nbegin\r\n  suchtextkontakt:=replacestr(edtsuchbegriff.Text,'&','%');\r\n\r\n  if length(suchtextkontakt)>0 then\r\n  begin\r\n\r\n  dataset.Close;\r\n  dataset.QueryString:='$filter=contains(Nachname, '''+suchtextkontakt+''') OR contains(Kundennummer, '''+suchtextkontakt+''') OR contains(AdresseBild, '''+suchtextkontakt+''')';\r\n  dataset.Load;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TfrmKontaktSuche.btnKontaktAendernClick(Sender: TObject);\r\nvar\r\n  LFrm:TKontaktAenderung;\r\n  procedure AfterCreate(AForm:TObject);\r\n  var\r\n    LForm:TKontaktAenderung;\r\n    begin\r\n      TC.Visible:=false;\r\n      LForm:=(AForm as TKontaktAenderung);\r\n      lform.AEKundennummer:=NeueKontaktnummer;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      TC.Visible:=false;\r\n      edtsuchbegriff.text:=NeueKontaktnummer;\r\n      edtSuchbegriffChange(nil);\r\n    end;\r\n  begin\r\n\r\n      LFrm:=TKontaktAenderung.CreateNew(@AfterCreate);\r\n      LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TfrmKontaktSuche.WebFormShow(Sender: TObject);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Kontaktsuche</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  btnscan.ParentElement:=myelement;\r\n  btnNeuerKontakt.ParentElement:=myelement;\r\n  container2.ParentElement:=myelement;\r\n  Container3.ParentElement:=myelement;\r\n  myelement:=container2.ElementHandle;\r\n  resultlabel.Caption:='Suchbegriff';\r\n  resultlabel.ParentElement:=myelement;\r\n  edtsuchbegriff.ParentElement:=myelement;\r\n  TC.Visible:=false;\r\n  Kontaktnummer:='';\r\n  edtsuchbegriff.SetFocus;\r\nend;\r\n\r\nprocedure TfrmKontaktSuche.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  ResultLabel := TLabel.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  TC := TTableControl.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  btnScan := TButton.Create(Self);\r\n  edtSuchbegriff := TEdit.Create(Self);\r\n  btnNeuerKontakt := TButton.Create(Self);\r\n  InputNachname := TInputMessageDlg.Create(Self);\r\n  btnKontaktAendern := TButton.Create(Self);\r\n  DataSet := TXDataWebDataSet.Create(Self);\r\n  DataSetKundennummer := TStringField.Create(Self);\r\n  DataSetNachname := TStringField.Create(Self);\r\n  DataSetVorname := TStringField.Create(Self);\r\n  DataSetAdresseBild := TStringField.Create(Self);\r\n  Source := TDataSource.Create(Self);\r\n  WClient := TXDataWebClient.Create(Self);\r\n\r\n  ResultLabel.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  TC.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  btnScan.BeforeLoadDFMValues;\r\n  edtSuchbegriff.BeforeLoadDFMValues;\r\n  btnNeuerKontakt.BeforeLoadDFMValues;\r\n  InputNachname.BeforeLoadDFMValues;\r\n  btnKontaktAendern.BeforeLoadDFMValues;\r\n  DataSet.BeforeLoadDFMValues;\r\n  DataSetKundennummer.BeforeLoadDFMValues;\r\n  DataSetNachname.BeforeLoadDFMValues;\r\n  DataSetVorname.BeforeLoadDFMValues;\r\n  DataSetAdresseBild.BeforeLoadDFMValues;\r\n  Source.BeforeLoadDFMValues;\r\n  WClient.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'frmKontaktSuche';\r\n    Width := 223;\r\n    Height := 376;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    ResultLabel.SetParentComponent(Self);\r\n    ResultLabel.Name := 'ResultLabel';\r\n    ResultLabel.Left := 114;\r\n    ResultLabel.Top := 231;\r\n    ResultLabel.Width := 60;\r\n    ResultLabel.Height := 15;\r\n    ResultLabel.Caption := 'ResultLabel';\r\n    ResultLabel.ElementClassName := 'h6 m-2';\r\n    ResultLabel.ElementFont := efCSS;\r\n    ResultLabel.ElementPosition := epIgnore;\r\n    ResultLabel.HeightStyle := ssAuto;\r\n    ResultLabel.HeightPercent := 100.000000000000000000;\r\n    ResultLabel.WidthStyle := ssPercent;\r\n    ResultLabel.WidthPercent := 100.000000000000000000;\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 2;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.Left := 0;\r\n    TC.Top := 141;\r\n    TC.Width := 169;\r\n    TC.Height := 79;\r\n    TC.ElementClassName := 'table table-hover table-bordered table-striped';\r\n    TC.HeightStyle := ssAuto;\r\n    TC.WidthStyle := ssPercent;\r\n    TC.BorderColor := clSilver;\r\n    TC.ChildOrder := 3;\r\n    TC.ColHeader := False;\r\n    TC.ElementFont := efCSS;\r\n    TC.ElementHeaderClassName := 'table-info';\r\n    TC.ElementPosition := epIgnore;\r\n    TC.ElementTableClassName := 'table table-hover table-bordered table-striped';\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 1;\r\n    TC.RowCount := 5;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 0;\r\n    btnzurueck.Top := 226;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    btnScan.SetParentComponent(Self);\r\n    btnScan.Name := 'btnScan';\r\n    btnScan.Left := 0;\r\n    btnScan.Top := 257;\r\n    btnScan.Width := 96;\r\n    btnScan.Height := 25;\r\n    btnScan.Caption := 'Bar-/QR-Code scannen';\r\n    btnScan.ChildOrder := 4;\r\n    btnScan.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnScan.ElementFont := efCSS;\r\n    btnScan.ElementPosition := epIgnore;\r\n    btnScan.HeightStyle := ssAuto;\r\n    btnScan.HeightPercent := 100.000000000000000000;\r\n    btnScan.WidthStyle := ssAuto;\r\n    btnScan.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnScan, Self, 'OnClick', 'btnScanClick');\r\n    edtSuchbegriff.SetParentComponent(Self);\r\n    edtSuchbegriff.Name := 'edtSuchbegriff';\r\n    edtSuchbegriff.Left := 8;\r\n    edtSuchbegriff.Top := 296;\r\n    edtSuchbegriff.Width := 150;\r\n    edtSuchbegriff.Height := 22;\r\n    edtSuchbegriff.ChildOrder := 6;\r\n    edtSuchbegriff.ElementClassName := 'form-control input-sm m-1';\r\n    edtSuchbegriff.ElementFont := efCSS;\r\n    edtSuchbegriff.ElementPosition := epIgnore;\r\n    edtSuchbegriff.HeightStyle := ssAuto;\r\n    edtSuchbegriff.HeightPercent := 100.000000000000000000;\r\n    edtSuchbegriff.ShowHint := True;\r\n    edtSuchbegriff.TextHint := 'Suchbegriff eingeben';\r\n    edtSuchbegriff.WidthPercent := 60.000000000000000000;\r\n    SetEvent(edtSuchbegriff, Self, 'OnChange', 'edtSuchbegriffChange');\r\n    btnNeuerKontakt.SetParentComponent(Self);\r\n    btnNeuerKontakt.Name := 'btnNeuerKontakt';\r\n    btnNeuerKontakt.Left := 32;\r\n    btnNeuerKontakt.Top := 324;\r\n    btnNeuerKontakt.Width := 96;\r\n    btnNeuerKontakt.Height := 25;\r\n    btnNeuerKontakt.Caption := '+ Neuer Kontakt';\r\n    btnNeuerKontakt.ChildOrder := 4;\r\n    btnNeuerKontakt.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnNeuerKontakt.ElementFont := efCSS;\r\n    btnNeuerKontakt.ElementPosition := epIgnore;\r\n    btnNeuerKontakt.HeightStyle := ssAuto;\r\n    btnNeuerKontakt.HeightPercent := 100.000000000000000000;\r\n    btnNeuerKontakt.WidthStyle := ssAuto;\r\n    btnNeuerKontakt.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnNeuerKontakt, Self, 'OnClick', 'btnNeuerKontaktClick');\r\n    InputNachname.SetParentComponent(Self);\r\n    InputNachname.Name := 'InputNachname';\r\n    InputNachname.Left := 99;\r\n    InputNachname.Top := 176;\r\n    InputNachname.Width := 24;\r\n    InputNachname.Height := 24;\r\n    InputNachname.Center.Horizontal := True;\r\n    InputNachname.Center.Vertical := True;\r\n    InputNachname.Buttons := [mbOK,mbCancel];\r\n    InputNachname.Opacity := 0.200000000000000000;\r\n    InputNachname.Title := 'Nachname';\r\n    InputNachname.ElementButtonClassName := 'btn';\r\n    InputNachname.ElementDialogClassName := 'shadow-lg p-3 mb-5 bg-white rounded';\r\n    InputNachname.ElementTitleClassName := 'text-body';\r\n    InputNachname.ElementContentClassName := 'text-body';\r\n    btnKontaktAendern.SetParentComponent(Self);\r\n    btnKontaktAendern.Name := 'btnKontaktAendern';\r\n    btnKontaktAendern.Left := 114;\r\n    btnKontaktAendern.Top := 119;\r\n    btnKontaktAendern.Width := 96;\r\n    btnKontaktAendern.Height := 25;\r\n    btnKontaktAendern.Caption := 'btnKontaktAendern';\r\n    btnKontaktAendern.ChildOrder := 10;\r\n    btnKontaktAendern.ElementClassName := 'btn btn-light';\r\n    btnKontaktAendern.ElementFont := efCSS;\r\n    btnKontaktAendern.HeightStyle := ssAuto;\r\n    btnKontaktAendern.HeightPercent := 100.000000000000000000;\r\n    btnKontaktAendern.Visible := False;\r\n    btnKontaktAendern.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnKontaktAendern, Self, 'OnClick', 'btnKontaktAendernClick');\r\n    DataSet.SetParentComponent(Self);\r\n    DataSet.Name := 'DataSet';\r\n    DataSet.AfterOpen := DataSetAfterOpen;\r\n    DataSet.EntitySetName := 'Adressen';\r\n    DataSet.Connection := DM2.XDataWebConnection1;\r\n    DataSet.QueryTop := 21;\r\n    DataSet.Left := 8;\r\n    DataSet.Top := 56;\r\n    DataSetKundennummer.SetParentComponent(DataSet);\r\n    DataSetKundennummer.Name := 'DataSetKundennummer';\r\n    DataSetKundennummer.FieldName := 'Kundennummer';\r\n    DataSetKundennummer.Required := True;\r\n    DataSetKundennummer.Size := 13;\r\n    DataSetNachname.SetParentComponent(DataSet);\r\n    DataSetNachname.Name := 'DataSetNachname';\r\n    DataSetNachname.FieldName := 'Nachname';\r\n    DataSetNachname.Required := True;\r\n    DataSetNachname.Size := 40;\r\n    DataSetVorname.SetParentComponent(DataSet);\r\n    DataSetVorname.Name := 'DataSetVorname';\r\n    DataSetVorname.FieldName := 'Vorname';\r\n    DataSetVorname.Size := 40;\r\n    DataSetAdresseBild.SetParentComponent(DataSet);\r\n    DataSetAdresseBild.Name := 'DataSetAdresseBild';\r\n    DataSetAdresseBild.FieldName := 'AdresseBild';\r\n    DataSetAdresseBild.Size := 255;\r\n    Source.SetParentComponent(Self);\r\n    Source.Name := 'Source';\r\n    Source.DataSet := DataSet;\r\n    Source.Left := 56;\r\n    Source.Top := 56;\r\n    WClient.SetParentComponent(Self);\r\n    WClient.Name := 'WClient';\r\n    WClient.Connection := DM2.XDataWebConnection1;\r\n    WClient.Left := 152;\r\n    WClient.Top := 56;\r\n  finally\r\n    ResultLabel.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    TC.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    btnScan.AfterLoadDFMValues;\r\n    edtSuchbegriff.AfterLoadDFMValues;\r\n    btnNeuerKontakt.AfterLoadDFMValues;\r\n    InputNachname.AfterLoadDFMValues;\r\n    btnKontaktAendern.AfterLoadDFMValues;\r\n    DataSet.AfterLoadDFMValues;\r\n    DataSetKundennummer.AfterLoadDFMValues;\r\n    DataSetNachname.AfterLoadDFMValues;\r\n    DataSetVorname.AfterLoadDFMValues;\r\n    DataSetAdresseBild.AfterLoadDFMValues;\r\n    Source.AfterLoadDFMValues;\r\n    WClient.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit unit_Objektsuche;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Data.DB, WEBLib.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, XData.Web.Connection, Vcl.Controls, Vcl.StdCtrls,\r\n  WEBLib.StdCtrls, WEBLib.ExtCtrls, Vcl.Grids, WEBLib.DBCtrls, VCL.TMSFNCTypes,\r\n  VCL.TMSFNCUtils, VCL.TMSFNCGraphics, VCL.TMSFNCGraphicsTypes,\r\n  VCL.TMSFNCCustomControl, VCL.TMSFNCTableView, WEBLib.Buttons, WEBLib.Grids, DB;\r\n\r\ntype\r\n  TfrmObjektsuche = class(TForm)\r\n    DataSet: TXDataWebDataSet;\r\n    Source: TDataSource;\r\n    DataSetObjektReferenz: TStringField;\r\n    DataSetKurzbezeichnung: TStringField;\r\n    DataSetBezeichnung: TStringField;\r\n    DataSetNachname: TStringField;\r\n    DataSetObjektnummer: TStringField;\r\n    DataSetKundennummer: TStringField;\r\n    TC: TTableControl;\r\n    procedure WebFormCreate(Sender: TObject);\r\n    procedure DataSetAfterOpen(DataSet: TDataSet);\r\n    procedure WebFormShow(Sender: TObject);\r\n\r\n    public\r\n    Objektreferenz:string;\r\n    luObjektnummer:string;\r\n    luObjektkurzbezeichnung:string;\r\n    edtsuchbegriff:TEdit;\r\n    infolabel:TLabel;\r\n    buttonzurueck:TButton;\r\n    buttonscan:TButton;\r\n    buttonobjektreferenz:TButton;\r\n    procedure buttonzurueckclick(Sender:TObject);\r\n    procedure edtsuchbegriffChange(Sender: TObject);\r\n    procedure buttonscanclick(Sender:TObject);\r\n    procedure buttonobjektreferenzclick(Sender:TObject);\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  frmObjektsuche: TfrmObjektsuche;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_BarcodeScan;\r\n{$R *.dfm}\r\n\r\nprocedure TfrmObjektsuche.buttonzurueckclick(Sender:TObject);\r\nbegin\r\n  self.close;\r\nend;\r\n\r\nprocedure TfrmObjektsuche.buttonscanclick(Sender:TObject);\r\nvar\r\n  LFrm:TBarcodeScan;\r\n  procedure AfterCreate(AForm:TObject);\r\n  var\r\n    LForm:TBarcodeScan;\r\n    begin\r\n      LForm:=(AForm as TBarcodeScan);\r\n      //lform.mykundehint:=xdsEinzelkontaktKundennummer.AsString+' '+xdsEinzelkontaktNachname.AsString+', '+xdsEinzelkontaktVorname.asstring;\r\n      //lForm.edttoaddress.Text:= xdsEinzelkontaktPostleitzahl.AsString+' '+xdsEinzelkontaktort.AsString+', '+xdsEinzelkontaktStrasse.AsString;\r\n\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      edtsuchbegriff.text:=lfrm.ScanErgebnis;\r\n      edtsuchbegriffChange(self);\r\n    end;\r\n  begin\r\n    if LizenzOK then\r\n    begin\r\n      LFrm:=TBarcodeScan.CreateNew(@AfterCreate);\r\n      LFrm.ShowModal(@AfterShowmodal);\r\n    end\r\n    else\r\n    begin\r\n      showmessage('Für diese Funktion sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n    end;\r\nend;\r\n\r\nprocedure TfrmObjektsuche.DataSetAfterOpen(DataSet: TDataSet);\r\nvar\r\n  i:integer;\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  i:=3;\r\n\r\n  tc.RowCount:=dataset.RecordCount+4;\r\n  dataset.First;\r\n  if dataset.RecordCount=0 then infolabel.Caption:='nichts gefunden';\r\n  if dataset.RecordCount>0 then infolabel.Caption:='Übereinstimmungen: '+inttostr(dataset.RecordCount);\r\n  if dataset.RecordCount>20 then infolabel.Caption:='mehr als 20 Übereinstimmungen';\r\n\r\n  while not dataset.eof do\r\n  begin\r\n    inc(i);\r\n    myelement:=TC.cellelements[0,i];\r\n    myelement.innerHTML:='';\r\n    buttonobjektreferenz:=TButton.Create(self);\r\n    buttonobjektreferenz.ElementClassName:='btn btn-sm btn-outline-info';\r\n    buttonobjektreferenz.HeightStyle:=ssauto;\r\n    buttonobjektreferenz.Width:=150;\r\n    buttonobjektreferenz.tag:=0;\r\n    buttonobjektreferenz.Caption:=DataSetObjektReferenz.AsString;\r\n    buttonobjektreferenz.OnClick:=@buttonobjektreferenzClick;\r\n    buttonobjektreferenz.ParentElement:=myelement;\r\n    TC.Cells[1,i]:=DataSetObjektReferenz.AsString;\r\n    TC.Cells[2,i]:=DataSetObjektnummer.AsString;\r\n    TC.Cells[3,i]:=DataSetKurzbezeichnung.AsString;\r\n    TC.Cells[4,i]:=DataSetKundennummer.AsString;\r\n    TC.Cells[5,i]:=DataSetNachname.AsString;\r\n    TC.Cells[65,i]:=DataSetBezeichnung.AsString;\r\n    dataset.Next;\r\n  end;\r\n\r\n\r\nend;\r\n\r\nprocedure TfrmObjektsuche.buttonobjektreferenzclick(Sender:TObject);\r\nbegin\r\n  Objektreferenz:=(sender AS Tbutton).Caption;\r\n  dataset.Locate('ObjektReferenz',objektreferenz,[]);\r\n  luObjektnummer:=DataSetObjektnummer.AsString;\r\n  luObjektkurzbezeichnung:=DataSetKurzbezeichnung.AsString;\r\n  self.close;\r\nend;\r\n\r\nprocedure TfrmObjektsuche.edtsuchbegriffChange(Sender: TObject);\r\nvar\r\n  suchtext:string;\r\nbegin\r\n  suchtext:=edtsuchbegriff.Text;\r\n  if length(suchtext)>0 then\r\n  begin\r\n  dataset.Close;\r\n  dataset.QueryString:='$filter=contains(Kurzbezeichnung, '+QuotedStr(suchtext)+') OR contains(Objektnummer, '+QuotedStr(suchtext)+')';\r\n  dataset.Load;\r\n  end;\r\nend;\r\n\r\nprocedure TfrmObjektsuche.WebFormCreate(Sender: TObject);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  TC.ColCount:=6;\r\n  TC.RowCount:=5;\r\n  TC.Cells[0,0]:='<h4>Objektsuche';\r\n\r\n  myelement:=TC.cellelements[0,1];\r\n  myelement.innerHTML:='';\r\n  buttonzurueck:=TButton.Create(self);\r\n  buttonzurueck.ElementClassName:='btn btn-info text-left';\r\n  buttonzurueck.HeightStyle:=ssauto;\r\n  buttonzurueck.WidthStyle:=ssauto;\r\n  buttonzurueck.tag:=0;\r\n  buttonzurueck.Caption:='<< zurück';\r\n  buttonzurueck.OnClick:=@buttonzurueckClick;\r\n  buttonzurueck.ParentElement:=myelement;\r\n  myelement:=TC.cellelements[0,2];\r\n  myelement.innerHTML:='';\r\n  infolabel:=TLabel.Create(self);\r\n  infolabel.Caption:='Suchbegriff eingeben oder Code scannen->';\r\n  infolabel.ElementFont:=efCSS;\r\n  infolabel.ParentElement:=myelement;\r\n  edtsuchbegriff:=TEdit.Create(self);\r\n  edtsuchbegriff.ElementClassName:='form-control';\r\n  edtsuchbegriff.ElementFont:=efCSS;\r\n  edtsuchbegriff.HeightStyle:=ssauto;\r\n  edtsuchbegriff.Width:=150;\r\n  edtsuchbegriff.OnChange:=@edtsuchbegriffChange;\r\n  edtsuchbegriff.ParentElement:=myelement;\r\n  myelement:=TC.cellelements[1,2];\r\n  myelement.innerHTML:='';\r\n  buttonscan:=TButton.Create(self);\r\n  buttonscan.ElementClassName:='btn btn-info text-left';\r\n  buttonscan.HeightStyle:=ssauto;\r\n  buttonscan.WidthStyle:=ssauto;\r\n  buttonscan.tag:=0;\r\n  buttonscan.Caption:='Scan';\r\n  buttonscan.OnClick:=@buttonscanClick;\r\n  buttonscan.ParentElement:=myelement;\r\n\r\n  tc.Cells[0,3]:='<b>Objektreferenz';\r\n  tc.Cells[1,3]:='<b>Objektnummer';\r\n  tc.Cells[2,3]:='<b>Kurzbezeichnung';\r\n  tc.Cells[3,3]:='<b>Kundennummer';\r\n  tc.Cells[4,3]:='<b>Nachname';\r\n  tc.Cells[5,3]:='<b>Bezeichnung';\r\nend;\r\n\r\n\r\nprocedure TfrmObjektsuche.WebFormShow(Sender: TObject);\r\nbegin\r\n  edtsuchbegriff.SetFocus;\r\n  edtsuchbegriff.Text:='';\r\n  if PZE_AutoObjektnummer<>'' then\r\n  begin\r\n    edtsuchbegriff.Text:=PZE_AutoObjektnummer;\r\n    edtsuchbegriffChange(sender);\r\n    PZE_AutoObjektnummer:='';\r\n  end;\r\nend;\r\n\r\nprocedure TfrmObjektsuche.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  TC := TTableControl.Create(Self);\r\n  DataSet := TXDataWebDataSet.Create(Self);\r\n  DataSetObjektnummer := TStringField.Create(Self);\r\n  DataSetKurzbezeichnung := TStringField.Create(Self);\r\n  DataSetBezeichnung := TStringField.Create(Self);\r\n  DataSetNachname := TStringField.Create(Self);\r\n  DataSetObjektReferenz := TStringField.Create(Self);\r\n  DataSetKundennummer := TStringField.Create(Self);\r\n  Source := TDataSource.Create(Self);\r\n\r\n  TC.BeforeLoadDFMValues;\r\n  DataSet.BeforeLoadDFMValues;\r\n  DataSetObjektnummer.BeforeLoadDFMValues;\r\n  DataSetKurzbezeichnung.BeforeLoadDFMValues;\r\n  DataSetBezeichnung.BeforeLoadDFMValues;\r\n  DataSetNachname.BeforeLoadDFMValues;\r\n  DataSetObjektReferenz.BeforeLoadDFMValues;\r\n  DataSetKundennummer.BeforeLoadDFMValues;\r\n  Source.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'frmObjektsuche';\r\n    Width := 243;\r\n    Height := 318;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    FormStyle := fsStayOnTop;\r\n    SetEvent(Self, 'OnCreate', 'WebFormCreate');\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.Left := 0;\r\n    TC.Top := 0;\r\n    TC.Width := 243;\r\n    TC.Height := 318;\r\n    TC.ElementClassName := 'table table-hover table-bordered table-striped';\r\n    TC.Align := alClient;\r\n    TC.BorderColor := clSilver;\r\n    TC.ChildOrder := 3;\r\n    TC.ColHeader := False;\r\n    TC.ElementHeaderClassName := 'table-info';\r\n    TC.ElementTableClassName := 'table table-hover table-bordered table-striped';\r\n    TC.Options.ScrollVertical := True;\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 1;\r\n    TC.RowCount := 5;\r\n    DataSet.SetParentComponent(Self);\r\n    DataSet.Name := 'DataSet';\r\n    DataSet.AfterOpen := DataSetAfterOpen;\r\n    DataSet.EntitySetName := 'Objekte';\r\n    DataSet.Connection := DM2.XDataWebConnection1;\r\n    DataSet.Left := 56;\r\n    DataSet.Top := 168;\r\n    DataSetObjektnummer.SetParentComponent(DataSet);\r\n    DataSetObjektnummer.Name := 'DataSetObjektnummer';\r\n    DataSetObjektnummer.FieldName := 'Objektnummer';\r\n    DataSetObjektnummer.Size := 25;\r\n    DataSetKurzbezeichnung.SetParentComponent(DataSet);\r\n    DataSetKurzbezeichnung.Name := 'DataSetKurzbezeichnung';\r\n    DataSetKurzbezeichnung.FieldName := 'Kurzbezeichnung';\r\n    DataSetKurzbezeichnung.Size := 25;\r\n    DataSetBezeichnung.SetParentComponent(DataSet);\r\n    DataSetBezeichnung.Name := 'DataSetBezeichnung';\r\n    DataSetBezeichnung.FieldName := 'Bezeichnung';\r\n    DataSetBezeichnung.Size := 255;\r\n    DataSetNachname.SetParentComponent(DataSet);\r\n    DataSetNachname.Name := 'DataSetNachname';\r\n    DataSetNachname.FieldName := 'Nachname';\r\n    DataSetNachname.Size := 40;\r\n    DataSetObjektReferenz.SetParentComponent(DataSet);\r\n    DataSetObjektReferenz.Name := 'DataSetObjektReferenz';\r\n    DataSetObjektReferenz.FieldName := 'ObjektReferenz';\r\n    DataSetObjektReferenz.Required := True;\r\n    DataSetObjektReferenz.Size := 13;\r\n    DataSetKundennummer.SetParentComponent(DataSet);\r\n    DataSetKundennummer.Name := 'DataSetKundennummer';\r\n    DataSetKundennummer.FieldName := 'Kundennummer';\r\n    DataSetKundennummer.Size := 13;\r\n    Source.SetParentComponent(Self);\r\n    Source.Name := 'Source';\r\n    Source.DataSet := DataSet;\r\n    Source.Left := 56;\r\n    Source.Top := 224;\r\n  finally\r\n    TC.AfterLoadDFMValues;\r\n    DataSet.AfterLoadDFMValues;\r\n    DataSetObjektnummer.AfterLoadDFMValues;\r\n    DataSetKurzbezeichnung.AfterLoadDFMValues;\r\n    DataSetBezeichnung.AfterLoadDFMValues;\r\n    DataSetNachname.AfterLoadDFMValues;\r\n    DataSetObjektReferenz.AfterLoadDFMValues;\r\n    DataSetKundennummer.AfterLoadDFMValues;\r\n    Source.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit unit_Einzeltermin;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Data.DB, WEBLib.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, XData.Web.Connection, Vcl.Controls, Vcl.StdCtrls,\r\n  WEBLib.StdCtrls, WEBLib.ExtCtrls, Vcl.Grids, WEBLib.DBCtrls, VCL.TMSFNCTypes,\r\n  VCL.TMSFNCUtils, VCL.TMSFNCGraphics, VCL.TMSFNCGraphicsTypes,\r\n  VCL.TMSFNCCustomControl, VCL.TMSFNCTableView, strutils, WEBLib.Buttons,\r\n  VCL.TMSFNCDateTimePicker, WEBLib.Grids, WEBLib.WebCtrls;\r\n\r\ntype\r\n  TfrmEinzeltermin = class(TForm)\r\n    myDataSet: TXDataWebDataSet;\r\n    Source: TDataSource;\r\n    myDataSetArtikelnummer: TXDataWebEntityField;\r\n    myDataSetUID: TStringField;\r\n    myDataSetBeginn: TDateTimeField;\r\n    myDataSetEnde: TDateTimeField;\r\n    myDataSetBetreff: TStringField;\r\n    myDataSetTerminNotiz: TStringField;\r\n    myDataSetQuelle: TStringField;\r\n    myDataSetGUIDOutlook: TStringField;\r\n    myDataSetShape: TIntegerField;\r\n    myDataSetColor: TIntegerField;\r\n    myDataSetAlarm: TBooleanField;\r\n    myDataSetResource: TIntegerField;\r\n    myDataSetLastModificationTime: TDateTimeField;\r\n    myDataSetGeburtstag: TBooleanField;\r\n    myDataSetAlarmBefore: TIntegerField;\r\n    myDataSetPersonalnummer: TIntegerField;\r\n    myDataSetKundennummer: TStringField;\r\n    myDataSetAllDayEventOutlook: TBooleanField;\r\n    myDataSetTMSCaption: TBooleanField;\r\n    myDataSetRECURRENCY: TStringField;\r\n    myDataSetMINTIME: TDateTimeField;\r\n    myDataSetMAXTIME: TDateTimeField;\r\n    myDataSetNachname: TStringField;\r\n    myDataSetObjektReferenz: TStringField;\r\n    myDataSetObjektnummer: TStringField;\r\n    myDataSetTerminArt: TIntegerField;\r\n    myDataSetBeginnDatum: TDateTimeField;\r\n    myDataSetBeginnUhrzeit: TDateTimeField;\r\n    myDataSetEndeDatum: TDateTimeField;\r\n    myDataSetEndeUhrzeit: TDateTimeField;\r\n    myDataSetKalenderAnzeige: TBooleanField;\r\n    myDataSetStundensatz: TFloatField;\r\n    myDataSetDauerStunden: TFloatField;\r\n    myDataSetgefahrenekm: TFloatField;\r\n    myDataSetAufwand: TFloatField;\r\n    myDataSetabgerechnet: TBooleanField;\r\n    myDataSetverteilt: TDateTimeField;\r\n    myDataSetTerminErledigt: TDateTimeField;\r\n    myDataSetAnsprechpartner: TStringField;\r\n    myDataSetLocation: TStringField;\r\n    myDataSetGoogleID: TStringField;\r\n    myDataSetGoogleCreatedUTC: TDateTimeField;\r\n    myDataSetGoogleUpdatedUTC: TDateTimeField;\r\n    myDataSetGoogleStatus: TStringField;\r\n    myDataSetVorname: TStringField;\r\n    myDataSetPNachname: TStringField;\r\n    myDataSetPVorname: TStringField;\r\n    myDataSetArtikelueberschrift: TStringField;\r\n    myDataSetPFarbe: TIntegerField;\r\n    myDataSetKontaktart: TStringField;\r\n    dsArtikel: TXDataWebDataSet;\r\n    dsArtikelArtikelnummer: TStringField;\r\n    dskontakt: TXDataWebDataSet;\r\n    dskontaktKundennummer: TStringField;\r\n    dskontaktNachname: TStringField;\r\n    dskontaktVorname: TStringField;\r\n    dskontaktAdresszeile2: TStringField;\r\n    dskontaktAdresszeile3: TStringField;\r\n    dskontaktStrasse: TStringField;\r\n    dskontaktPostleitzahl: TStringField;\r\n    dskontaktOrt: TStringField;\r\n    dskontaktLaenderkuerzel: TStringField;\r\n    dskontaktLand: TStringField;\r\n    dskontaktKilometer: TIntegerField;\r\n    dskontaktStundensatz: TFloatField;\r\n    dsKArten: TXDataWebDataSet;\r\n    dsKArtenKontaktart: TStringField;\r\n    dsKArtenArtikelnummer: TStringField;\r\n    dsObjekt: TXDataWebDataSet;\r\n    dsObjektObjektReferenz: TStringField;\r\n    dsObjektKurzbezeichnung: TStringField;\r\n    dsObjektObjektnummer: TStringField;\r\n    dsAP: TXDataWebDataSet;\r\n    dsAPKundennummer: TXDataWebEntityField;\r\n    dsAPAnsprechpartner: TStringField;\r\n    dsAPNachname: TStringField;\r\n    dsAPVorname: TStringField;\r\n    Container1: THTMLContainer;\r\n    btnObjektwahl: TButton;\r\n    btnzurueck: TButton;\r\n    btnSpeichern: TButton;\r\n    Container2: THTMLContainer;\r\n    btnWV: TButton;\r\n    btnAktivitaet: TButton;\r\n    comboKontaktart: TDBComboBox;\r\n    lblTerminart: TLabel;\r\n    Container3: THTMLContainer;\r\n    lblBeginn: TLabel;\r\n    lblEnde: TLabel;\r\n    lblBetreff: TLabel;\r\n    lblNotiz: TLabel;\r\n    PickDateBeginn: TDBDateTimePicker;\r\n    pickDateEnde: TDBDateTimePicker;\r\n    PickTimeBeginn: TDBDateTimePicker;\r\n    picktimeEnde: TDBDateTimePicker;\r\n    edtBetreff: TDBEdit;\r\n    edtNotiz: TMemo;\r\n    ContainerBeginn: THTMLContainer;\r\n    ContainerEnde: THTMLContainer;\r\n    Container4: THTMLContainer;\r\n    Container5: THTMLContainer;\r\n    Container6: THTMLContainer;\r\n    btnKontaktZuordnen: TButton;\r\n    Container7: THTMLContainer;\r\n    Container8: THTMLContainer;\r\n    comboap: TDBComboBox;\r\n    lblAnsprechpartner: TLabel;\r\n    lblort: TLabel;\r\n    edtOrt: TDBEdit;\r\n    lblkm: TLabel;\r\n    edtkm: TDBEdit;\r\n    Container9: THTMLContainer;\r\n    Container10: THTMLContainer;\r\n    lblMitarbeiter: TLabel;\r\n    Container11: THTMLContainer;\r\n    btnTerminerledigt: TButton;\r\n    edtTerminerledigt: TDBEdit;\r\n    edtAlarmBefore: TDBSpinEdit;\r\n    edtErinnerung: TDBCheckBox;\r\n    WebLabel2: TLabel;\r\n    Container12: THTMLContainer;\r\n    lblKontakt: TLabel;\r\n    XDSlookupObjekt: TXDataWebDataSet;\r\n    XDSlookupObjektObjektReferenz: TStringField;\r\n    XDSlookupObjektKurzbezeichnung: TStringField;\r\n    XDSlookupObjektObjektnummer: TStringField;\r\n    DivTextIntern: THTMLDiv;\r\n    DivTextObjekt: THTMLDiv;\r\n    DivTextAP: THTMLDiv;\r\n    btnroute: TButton;\r\n\r\n    procedure btncloseClick(Sender: TObject);\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure myDataSetAfterApplyUpdates(Sender: TDataSet;\r\n      Info: TResolveResults);\r\n    procedure myDataSetBeforePost(DataSet: TDataSet);\r\n    procedure btnKontaktZuordnenClick(Sender: TObject);\r\n    procedure myDataSetAfterOpen(DataSet: TDataSet);\r\n    procedure myDataSetNewRecord(DataSet: TDataSet);\r\n    procedure myDataSetAfterPost(DataSet: TDataSet);\r\n    procedure dskontaktAfterOpen(DataSet: TDataSet);\r\n    procedure edtNotizEnter(Sender: TObject);\r\n    procedure btnObjektwahlClick(Sender: TObject);\r\n    procedure comboAPEnter(Sender: TObject);\r\n    procedure dsAPAfterOpen(DataSet: TDataSet);\r\n    procedure dsKArtenAfterOpen(DataSet: TDataSet);\r\n    procedure myDataSetBeforeEdit(DataSet: TDataSet);\r\n    procedure btnWVClick(Sender: TObject);\r\n    procedure btnaktivitaetClick(Sender: TObject);\r\n    procedure dsArtikelAfterOpen(DataSet: TDataSet);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n    procedure SourceStateChange(Sender: TObject);\r\n    procedure btnSpeichernClick(Sender: TObject);\r\n    procedure btnTerminerledigtClick(Sender: TObject);\r\n    procedure XDSlookupObjektAfterOpen(DataSet: TDataSet);\r\n    procedure dsObjektAfterOpen(DataSet: TDataSet);\r\n    procedure btnrouteClick(Sender: TObject);\r\n\r\n    public\r\n    TerminUID:string;\r\n    NeuStartDateTime:TDateTime;\r\n    NeuEndDateTime:TDateTime;\r\n    procedure setcontrols;\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  frmEinzeltermin: TfrmEinzeltermin;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_Kontaktsuche, unit_Artikelsuche, unit_Objektsuche, unit_Karte;\r\n{$R *.dfm}\r\n\r\n\r\nprocedure TfrmEinzeltermin.setcontrols;\r\nbegin\r\n  lblMitarbeiter.HTML:='Mitarbeiter <b>'+trim(myDataSetPVorname.AsString+' '+myDataSetPNachname.AsString)+' ('+myDataSetPersonalnummer.asstring+')';\r\n  divtextintern.HTML.text:='<small><i>geändert: '+formatdatetime('DD.MM.YYYY hh:mm:ss',myDataSetLastModificationTime.AsDateTime)+'<br>ID: '+myDataSetUID.AsString+'<br>Google-ID: '+myDataSetGoogleID.AsString;\r\n  lblkontakt.Caption:=myDataSetKundennummer.AsString+' '+trim(myDataSetVorname.AsString+' '+myDataSetNachname.asstring);\r\n  if myDataSetAnsprechpartner.AsString<>'' then\r\n  begin\r\n    DivTextAP.HTML.text:=myDataSetAnsprechpartner.AsString;\r\n  end\r\n  else\r\n  begin\r\n    DivTextAP.HTML.text:='<small><i>kein Ansprechpartner zugeordnet';\r\n  end;\r\n\r\n  if myDataSetObjektReferenz.AsString<>'' then\r\n  begin\r\n    xdslookupobjekt.Close;\r\n    xdslookupobjekt.QueryString:='$filter=Objektreferenz eq '+QuotedStr(myDataSetObjektReferenz.asstring);\r\n    xdslookupobjekt.Load;\r\n\r\n  end\r\n  else\r\n  begin\r\n    divtextobjekt.HTML.text:='<small><i>kein Objekt zugeordnet';\r\n  end;\r\nend;\r\n\r\nprocedure TfrmEinzeltermin.btncloseClick(Sender: TObject);\r\nbegin\r\n  self.Close;\r\nend;\r\n\r\nprocedure TfrmEinzeltermin.btnKontaktZuordnenClick(Sender: TObject);\r\nvar\r\n  LFrm:TfrmKontaktsuche;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmKontaktsuche;\r\n    begin\r\n      LForm:=(AForm as TfrmKontaktsuche);\r\n      lform.Kontaktnummer:='';\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      if lfrm.Kontaktnummer<>'' then\r\n      begin\r\n        dskontakt.Close;\r\n        dskontakt.QueryString:='$filter=Kundennummer eq '+QuotedStr(lfrm.kontaktnummer);\r\n        dskontakt.Load;\r\n      end;\r\n\r\n\r\n    end;\r\n\r\n  begin\r\n  LFrm:=TfrmKontaktsuche.CreateNew(@AfterCreate);\r\n  //LFrm.Popup:=true;\r\n  LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TfrmEinzeltermin.btnObjektwahlClick(Sender: TObject);\r\nvar\r\n  LFrm:TfrmObjektsuche;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmObjektsuche;\r\n    begin\r\n      LForm:=(AForm as TfrmObjektsuche);\r\n      LForm.Objektreferenz:='';\r\n\r\n\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      if lfrm.Objektreferenz<>'' then\r\n      begin\r\n        dsobjekt.Close;\r\n        dsobjekt.QueryString:='$filter=Objektreferenz eq '+QuotedStr(lfrm.Objektreferenz);\r\n        dsobjekt.Load;\r\n      end;\r\n\r\n\r\n    end;\r\n\r\n  begin\r\n  LFrm:=TfrmObjektsuche.CreateNew(@AfterCreate);\r\n // LFrm.Popup:=true;\r\n  LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TfrmEinzeltermin.btnrouteClick(Sender: TObject);\r\nvar\r\n  mapsurl:string;\r\nbegin\r\n if (edtOrt.Text <> '') then\r\n  begin\r\n    mapsurl:='https://www.google.com/maps/dir/'+edtort.Text;\r\n    application.Navigate(mapsurl, ntblank);\r\n  end\r\n  else\r\n  begin\r\n    MessageDlg('Es ist kein Ort eingegeben',mtWarning, [MBOK]);\r\n  end;\r\nend;\r\n\r\nprocedure TfrmEinzeltermin.btnSpeichernClick(Sender: TObject);\r\nbegin\r\n  mydataset.Post;\r\nend;\r\n\r\nprocedure TfrmEinzeltermin.btnTerminerledigtClick(Sender: TObject);\r\nbegin\r\n  mydataset.Edit;\r\n  myDataSetTerminErledigt.AsDateTime:=Date;\r\nend;\r\n\r\nprocedure TfrmEinzeltermin.btnWVClick(Sender: TObject);\r\nbegin\r\n  if myDataSetKundennummer.AsString='' then\r\n  begin\r\n    showmessage('Es ist kein Kontakt zugeordnet');\r\n    exit;\r\n  end;\r\n  mydataset.Edit;\r\n  myDataSetTerminArt.AsInteger:=1;\r\n  mydataset.Post;\r\n  lblTerminart.Caption:='Wiedervorlage';\r\n  comboKontaktart.enabled:=false;\r\n  btnWV.enabled:=false;\r\nend;\r\n\r\nprocedure TfrmEinzeltermin.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  self.Close;\r\nend;\r\n\r\nprocedure TfrmEinzeltermin.comboAPEnter(Sender: TObject);\r\nbegin\r\n  dsap.Close;\r\n  comboAP.Items.Clear;\r\n  if mydatasetkundennummer.AsString='' then\r\n  begin\r\n    showmessage('Es ist kein Kontakt zugeordnet');\r\n  end\r\n  else\r\n  begin\r\n    dsap.QueryString:='$filter=Kundennummer eq '+quotedstr(myDataSetKundennummer.AsString);\r\n    dsap.Load;\r\n  end;\r\nend;\r\n\r\nprocedure TfrmEinzeltermin.dsAPAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  dsap.First;\r\n  while not dsap.eof do\r\n  begin\r\n    comboAP.Items.Add(dsAPAnsprechpartner.asstring);\r\n    dsap.Next;\r\n  end;\r\nend;\r\n\r\nprocedure TfrmEinzeltermin.dsArtikelAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  dsKArten.load;\r\nend;\r\n\r\nprocedure TfrmEinzeltermin.dsKArtenAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  combokontaktart.Items.Clear;\r\n  dskarten.First;\r\n  while not dskarten.eof do\r\n  begin\r\n    combokontaktart.Items.Add(dsKArtenKontaktart.asstring);\r\n    dskarten.Next;\r\n  end;\r\n  if TerminUID='' then\r\n  begin\r\n    myDataSet.Close;\r\n    myDataSet.QueryString:='$expand=Artikelnummer&$orderby=LastModificationTime DESC';\r\n    myDataset.QueryTop:=1;\r\n    myDataSet.Load;\r\n  end\r\n  else\r\n  begin\r\n    myDataSet.Close;\r\n    myDataSet.QueryString:='$expand=Artikelnummer&$filter=UID eq '+quotedstr(TerminUID);\r\n    myDataSet.Load;\r\n  end;\r\nend;\r\n\r\nprocedure TfrmEinzeltermin.dskontaktAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  mydataset.Edit;\r\n  myDataSetKundennummer.AsString:=dskontaktKundennummer.asstring;\r\n  myDataSetNachname.AsString:=dskontaktNachname.AsString;\r\n  myDataSetVorname.AsString:=dskontaktVorname.AsString;\r\n  if mydatasetlocation.AsString='' then mydatasetLocation.AsString:=dskontaktLaenderkuerzel.AsString+'-'+dskontaktPostleitzahl.AsString+' '+dskontaktOrt.AsString+', '+dskontaktStrasse.AsString;\r\n  myDataSetgefahrenekm.AsFloat:=dskontaktKilometer.AsFloat*2;\r\n  myDataSetStundensatz.AsFloat:=dskontaktStundensatz.AsFloat;\r\n  dskontakt.Close;\r\n  setcontrols;\r\nend;\r\n\r\nprocedure TfrmEinzeltermin.dsObjektAfterOpen(DataSet: TDataSet);\r\nbegin\r\n   myDataSet.Edit;\r\n   myDataSetObjektReferenz.AsString:=dsObjektObjektReferenz.AsString;\r\n   myDataSetObjektnummer.AsString:=dsObjektObjektnummer.AsString;\r\n   setcontrols;\r\nend;\r\n\r\nprocedure TfrmEinzeltermin.myDataSetAfterApplyUpdates(Sender: TDataSet;\r\n  Info: TResolveResults);\r\nbegin\r\n  if info.Records[0].Error='' then weblabel2.caption:='gespeichert' else weblabel2.caption:=info.Records[0].Error;\r\n  setcontrols;\r\nend;\r\n\r\nprocedure TfrmEinzeltermin.myDataSetAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  if TerminUID='' then\r\n  begin\r\n    mydataset.insert;\r\n  end;\r\n  if TerminUID<>'' then\r\n  begin\r\n    edtNotiz.Text:=myDataSetTerminNotiz.AsString;\r\n  end;\r\n  if myDataSetTerminArt.AsInteger=0 then\r\n  begin\r\n    lblTerminart.HTML:='<B>Termin';\r\n    comboKontaktart.enabled:=false;\r\n    btnWV.enabled:=true;\r\n    btnaktivitaet.enabled:=true;\r\n  end;\r\n  if myDataSetTerminArt.AsInteger=1 then\r\n  begin\r\n    lblTerminart.HTML:='<b>Wiedervorlage';\r\n    comboKontaktart.enabled:=false;\r\n    btnWV.enabled:=false;\r\n    btnaktivitaet.enabled:=true;\r\n  end;\r\n  if myDataSetTerminArt.AsInteger=2 then\r\n  begin\r\n    lblTerminart.HTML:='<b>Geburtstag';\r\n    comboKontaktart.enabled:=false;\r\n    btnWV.enabled:=false;\r\n    btnaktivitaet.enabled:=false;\r\n    btnObjektwahl.Enabled:=false;\r\n  end;\r\n  if myDataSetTerminArt.AsInteger=3 then\r\n  begin\r\n    lblTerminart.HTML:='<b>Aktivität';\r\n    comboKontaktart.enabled:=true;\r\n    btnWV.enabled:=false;\r\n    btnaktivitaet.enabled:=false;\r\n  end;\r\n  if myDataSetTerminArt.AsInteger=4 then\r\n  begin\r\n    lblTerminart.HTML:='<b>unklar';\r\n    comboKontaktart.enabled:=false;\r\n    btnWV.enabled:=false;\r\n    btnaktivitaet.enabled:=false;\r\n    btnobjektwahl.Enabled:=false;\r\n  end;\r\n  if myDataSetTerminArt.AsInteger=5 then\r\n  begin\r\n    lblTerminart.HTML:='<b>Feiertag';\r\n    comboKontaktart.enabled:=false;\r\n    btnWV.enabled:=false;\r\n    btnaktivitaet.enabled:=false;\r\n    btnobjektwahl.Enabled:=false;\r\n  end;\r\n  setcontrols;\r\n  //edtBetreff.SetFocus;\r\nend;\r\n\r\nprocedure TfrmEinzeltermin.myDataSetAfterPost(DataSet: TDataSet);\r\nbegin\r\n  setcontrols;\r\n  weblabel2.caption:='wird gespeichert';\r\n  if LizenzOK then\r\n  begin\r\n   mydataset.ApplyUpdates;\r\n  end\r\n  else\r\n  begin\r\n    showmessage('Für das Speichern von Daten sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n  end;\r\nend;\r\n\r\nprocedure TfrmEinzeltermin.myDataSetBeforeEdit(DataSet: TDataSet);\r\nbegin\r\n  if myDataSetTerminArt.AsInteger=2 then dataset.Cancel;\r\n  if myDataSetTerminArt.AsInteger=4 then dataset.Cancel;\r\n  if myDataSetTerminArt.AsInteger=5 then dataset.Cancel;\r\nend;\r\n\r\nprocedure TfrmEinzeltermin.myDataSetBeforePost(DataSet: TDataSet);\r\nbegin\r\n  myDataSetTerminNotiz.AsString:=edtnotiz.Text;\r\n  if myDataSetAllDayEventOutlook.AsBoolean then\r\n  begin\r\n    if myDataSetendedatum.asdatetime<myDataSetbeginndatum.asdatetime then myDataSetendedatum.asdatetime:=myDataSetbeginndatum.asdatetime;\r\n    myDataSetbeginnuhrzeit.asdatetime:=encodetime(0,0,0,0);\r\n    myDataSetendeuhrzeit.asdatetime:=encodetime(0,0,0,0);\r\n  end;\r\n  myDataSetbeginn.AsDateTime:=trunc(myDataSetBeginnDatum.Asfloat)+frac(myDataSetbeginnuhrzeit.Asfloat);\r\n  myDataSetende.AsDateTime:=trunc(myDataSetEndeDatum.Asfloat)+frac(myDataSetEndeUhrzeit.asfloat);\r\n  if myDataSetende.asdatetime<myDataSetbeginn.asdatetime then\r\n  begin\r\n    myDataSetende.asdatetime:=myDataSetbeginn.asdatetime+(1/24);\r\n    myDataSetEndeDatum.asfloat:=trunc(myDataSetende.asfloat);\r\n    myDataSetEndeUhrzeit.asfloat:=frac(myDataSetende.asfloat);\r\n  end;\r\n  myDataSetdauerstunden.AsFloat:=(myDataSetEnde.asfloat-myDataSetBeginn.asfloat)*24;\r\n  if myDataSetTerminNotiz.AsString='' then myDataSetTerminNotiz.asstring:=' ';\r\n  myDataSetaufwand.asfloat:=myDataSetstundensatz.asfloat*myDataSetdauerstunden.asfloat;\r\n  if myDataSetterminerledigt.asstring<>'' then myDataSetAlarm.asboolean:=False;\r\n  myDataSetlastmodificationtime.asdatetime:=date+time;\r\nend;\r\n\r\nprocedure TfrmEinzeltermin.myDataSetNewRecord(DataSet: TDataSet);\r\nbegin\r\n  myDataSetgeburtstag.asboolean:=FALSE;\r\n  myDataSetterminart.asinteger:=0;\r\n  myDataSetAlarm.AsBoolean:=True;\r\n  myDataSetTerminNotiz.AsString:='';\r\n  myDataSetShape.AsInteger:=0;\r\n  myDataSetColor.AsInteger:=16777215;\r\n  myDataSetabgerechnet.AsBoolean:=false;\r\n  myDataSetgefahrenekm.AsFloat:=0;\r\n  myDataSetStundensatz.AsFloat:=0;\r\n  myDataSetAllDayEventOutlook.AsBoolean:=false;\r\n  myDataSetKalenderAnzeige.AsBoolean:=true;\r\n  myDataSetDauerStunden.AsFloat:=0;\r\n  myDataSetAufwand.AsFloat:=0;\r\n  myDataSetPersonalnummer.AsString:=BenutzerPersonalnummer;\r\n  myDataSetPNachname.AsString:=BenutzerNachname;\r\n  myDataSetPVorname.AsString:=BenutzerVorname;\r\n  myDataSetPFarbe.AsInteger:=BenutzerFarbe;\r\n\r\n  myDataSetAlarmBefore.AsInteger:=15;\r\n  myDataSetBeginnDatum.AsDateTime:=trunc(NeuStartDateTime);\r\n  myDataSetEndeDatum.AsDateTime:=trunc(NeuEndDateTime);\r\n  myDataSetBeginnUhrzeit.AsDateTime:=frac(NeuStartDateTime);\r\n  mydatasetendeUhrzeit.AsDateTime:=frac(NeuEndDateTime);\r\n  mydatasetartikelnummer.Value:=dsArtikel.CurrentData;\r\n  edtnotiz.Lines.Clear;\r\nend;\r\n\r\nprocedure TfrmEinzeltermin.SourceStateChange(Sender: TObject);\r\nbegin\r\n  if myDataSet.State in dseditmodes then btnspeichern.Enabled:=true else btnspeichern.Enabled:=false;\r\nend;\r\n\r\nprocedure TfrmEinzeltermin.btnaktivitaetClick(Sender: TObject);\r\nbegin\r\n   if myDataSetKundennummer.AsString='' then\r\n  begin\r\n    showmessage('Es ist kein Kontakt zugeordnet');\r\n    exit;\r\n  end;\r\n  mydataset.Edit;\r\n  myDataSetTerminArt.AsInteger:=3;\r\n  myDataSetColor.AsInteger:=16776960;\r\n  mydataset.Post;\r\n  lblTerminart.Caption:='Aktivität';\r\n  comboKontaktart.enabled:=true;\r\n  btnWV.enabled:=false;\r\n  btnaktivitaet.enabled:=false;\r\nend;\r\n\r\nprocedure TfrmEinzeltermin.WebFormShow(Sender: TObject);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Einzel-Termin</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  WebLabel2.ParentElement:=myelement;\r\n  lblterminart.ParentElement:=myelement;\r\n  container2.ParentElement:=myelement;\r\n  container3.ParentElement:=myelement;\r\n  container4.ParentElement:=myelement;\r\n  container5.ParentElement:=myelement;\r\n  container6.ParentElement:=myelement;\r\n  container7.ParentElement:=myelement;\r\n  container8.ParentElement:=myelement;\r\n  container9.ParentElement:=myelement;\r\n  container10.ParentElement:=myelement;\r\n  container11.ParentElement:=myelement;\r\n  container12.ParentElement:=myelement;\r\n\r\n  myelement:=container2.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  btnspeichern.ParentElement:=myelement;\r\n\r\n  btnwv.ParentElement:=myelement;\r\n  btnAktivitaet.ParentElement:=myelement;\r\n  comboKontaktart.ParentElement:=myelement;\r\n\r\n  myelement:=container3.ElementHandle;\r\n  containerbeginn.ParentElement:=myelement;\r\n  containerende.ParentElement:=myelement;\r\n\r\n  myelement:=ContainerBeginn.ElementHandle;\r\n  lblBeginn.ParentElement:=myelement;\r\n  PickDateBeginn.ParentElement:=myelement;\r\n  PickTimeBeginn.ParentElement:=myelement;\r\n\r\n  myelement:=ContainerEnde.ElementHandle;\r\n  lblEnde.ParentElement:=myelement;\r\n  PickDateEnde.ParentElement:=myelement;\r\n  PickTimeEnde.ParentElement:=myelement;\r\n\r\n  myelement:=container4.ElementHandle;\r\n  lblBetreff.ParentElement:=myelement;\r\n  edtBetreff.ParentElement:=myelement;\r\n\r\n  myelement:=container5.ElementHandle;\r\n  lblNotiz.ParentElement:=myelement;\r\n  edtNotiz.ParentElement:=myelement;\r\n\r\n  myelement:=container6.ElementHandle;\r\n  btnKontaktZuordnen.ParentElement:=myelement;\r\n  lblkontakt.ParentElement:=myelement;\r\n\r\n  myelement:=container7.ElementHandle;\r\n  lblAnsprechpartner.ParentElement:=myelement;\r\n  comboap.ParentElement:=myelement;\r\n  DivTextAP.ParentElement:=myelement;\r\n\r\n  myelement:=container8.ElementHandle;\r\n  lblort.ParentElement:=myelement;\r\n  edtort.ParentElement:=myelement;\r\n  btnroute.ParentElement:=myelement;\r\n  lblkm.ParentElement:=myelement;\r\n  edtkm.ParentElement:=myelement;\r\n\r\n  myelement:=container9.ElementHandle;\r\n  btnObjektwahl.parentelement:=myelement;\r\n  divtextobjekt.ParentElement:=myelement;\r\n\r\n  myelement:=container10.ElementHandle;\r\n  lblMitarbeiter.ParentElement:=myelement;\r\n\r\n  myelement:=container11.ElementHandle;\r\n  edtErinnerung.ParentElement:=myelement;\r\n  edtAlarmBefore.ParentElement:=myelement;\r\n  btnTerminerledigt.ParentElement:=myelement;\r\n  edtTerminerledigt.ParentElement:=myelement;\r\n\r\n  myelement:=container12.ElementHandle;\r\n  divtextintern.ParentElement:=myelement;\r\n\r\n  btnKontaktZuordnen.Enabled:=form1.RCW.Kontakte;\r\n  dsKArten.Close;\r\n  dsartikel.Close;\r\n  dsartikel.querystring:='$filter=Artikelnummer eq '+QuotedStr('0');\r\n  dsartikel.Load;\r\nend;\r\n\r\nprocedure TfrmEinzeltermin.XDSlookupObjektAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  if XDSlookupObjekt.RecordCount>0 then\r\n  begin\r\n    divtextobjekt.HTML.text:='<small><i>Ref.: </i></small>'+XDSlookupObjektObjektReferenz.asstring+'<small><i> Nr.: </i></small>'+XDSlookupObjektObjektnummer.asstring+' '+XDSlookupObjektKurzbezeichnung.asstring;\r\n  end\r\n  else\r\n  begin\r\n    divtextobjekt.HTML.text:='nicht gefunden';\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TfrmEinzeltermin.edtNotizEnter(Sender: TObject);\r\nbegin\r\n  if mydataset.active then myDataSet.Edit;\r\nend;\r\n\r\nprocedure TfrmEinzeltermin.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  lblTerminart := TLabel.Create(Self);\r\n  lblBeginn := TLabel.Create(Self);\r\n  lblEnde := TLabel.Create(Self);\r\n  lblBetreff := TLabel.Create(Self);\r\n  lblNotiz := TLabel.Create(Self);\r\n  lblAnsprechpartner := TLabel.Create(Self);\r\n  lblort := TLabel.Create(Self);\r\n  lblkm := TLabel.Create(Self);\r\n  lblMitarbeiter := TLabel.Create(Self);\r\n  WebLabel2 := TLabel.Create(Self);\r\n  lblKontakt := TLabel.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  btnObjektwahl := TButton.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  btnSpeichern := TButton.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  btnWV := TButton.Create(Self);\r\n  btnAktivitaet := TButton.Create(Self);\r\n  comboKontaktart := TDBComboBox.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  PickDateBeginn := TDBDateTimePicker.Create(Self);\r\n  pickDateEnde := TDBDateTimePicker.Create(Self);\r\n  PickTimeBeginn := TDBDateTimePicker.Create(Self);\r\n  picktimeEnde := TDBDateTimePicker.Create(Self);\r\n  edtBetreff := TDBEdit.Create(Self);\r\n  edtNotiz := TMemo.Create(Self);\r\n  ContainerBeginn := THTMLContainer.Create(Self);\r\n  ContainerEnde := THTMLContainer.Create(Self);\r\n  Container4 := THTMLContainer.Create(Self);\r\n  Container5 := THTMLContainer.Create(Self);\r\n  Container6 := THTMLContainer.Create(Self);\r\n  btnKontaktZuordnen := TButton.Create(Self);\r\n  Container7 := THTMLContainer.Create(Self);\r\n  Container8 := THTMLContainer.Create(Self);\r\n  comboap := TDBComboBox.Create(Self);\r\n  edtOrt := TDBEdit.Create(Self);\r\n  edtkm := TDBEdit.Create(Self);\r\n  Container9 := THTMLContainer.Create(Self);\r\n  Container10 := THTMLContainer.Create(Self);\r\n  Container11 := THTMLContainer.Create(Self);\r\n  btnTerminerledigt := TButton.Create(Self);\r\n  edtTerminerledigt := TDBEdit.Create(Self);\r\n  edtAlarmBefore := TDBSpinEdit.Create(Self);\r\n  edtErinnerung := TDBCheckBox.Create(Self);\r\n  Container12 := THTMLContainer.Create(Self);\r\n  DivTextIntern := THTMLDiv.Create(Self);\r\n  DivTextObjekt := THTMLDiv.Create(Self);\r\n  DivTextAP := THTMLDiv.Create(Self);\r\n  btnroute := TButton.Create(Self);\r\n  myDataSet := TXDataWebDataSet.Create(Self);\r\n  myDataSetArtikelnummer := TXDataWebEntityField.Create(Self);\r\n  myDataSetUID := TStringField.Create(Self);\r\n  myDataSetBeginn := TDateTimeField.Create(Self);\r\n  myDataSetEnde := TDateTimeField.Create(Self);\r\n  myDataSetBetreff := TStringField.Create(Self);\r\n  myDataSetTerminNotiz := TStringField.Create(Self);\r\n  myDataSetQuelle := TStringField.Create(Self);\r\n  myDataSetGUIDOutlook := TStringField.Create(Self);\r\n  myDataSetShape := TIntegerField.Create(Self);\r\n  myDataSetColor := TIntegerField.Create(Self);\r\n  myDataSetAlarm := TBooleanField.Create(Self);\r\n  myDataSetResource := TIntegerField.Create(Self);\r\n  myDataSetLastModificationTime := TDateTimeField.Create(Self);\r\n  myDataSetGeburtstag := TBooleanField.Create(Self);\r\n  myDataSetAlarmBefore := TIntegerField.Create(Self);\r\n  myDataSetPersonalnummer := TIntegerField.Create(Self);\r\n  myDataSetKundennummer := TStringField.Create(Self);\r\n  myDataSetAllDayEventOutlook := TBooleanField.Create(Self);\r\n  myDataSetTMSCaption := TBooleanField.Create(Self);\r\n  myDataSetRECURRENCY := TStringField.Create(Self);\r\n  myDataSetMINTIME := TDateTimeField.Create(Self);\r\n  myDataSetMAXTIME := TDateTimeField.Create(Self);\r\n  myDataSetNachname := TStringField.Create(Self);\r\n  myDataSetObjektReferenz := TStringField.Create(Self);\r\n  myDataSetObjektnummer := TStringField.Create(Self);\r\n  myDataSetTerminArt := TIntegerField.Create(Self);\r\n  myDataSetBeginnDatum := TDateTimeField.Create(Self);\r\n  myDataSetBeginnUhrzeit := TDateTimeField.Create(Self);\r\n  myDataSetEndeDatum := TDateTimeField.Create(Self);\r\n  myDataSetEndeUhrzeit := TDateTimeField.Create(Self);\r\n  myDataSetKalenderAnzeige := TBooleanField.Create(Self);\r\n  myDataSetStundensatz := TFloatField.Create(Self);\r\n  myDataSetDauerStunden := TFloatField.Create(Self);\r\n  myDataSetgefahrenekm := TFloatField.Create(Self);\r\n  myDataSetAufwand := TFloatField.Create(Self);\r\n  myDataSetabgerechnet := TBooleanField.Create(Self);\r\n  myDataSetverteilt := TDateTimeField.Create(Self);\r\n  myDataSetTerminErledigt := TDateTimeField.Create(Self);\r\n  myDataSetAnsprechpartner := TStringField.Create(Self);\r\n  myDataSetLocation := TStringField.Create(Self);\r\n  myDataSetGoogleID := TStringField.Create(Self);\r\n  myDataSetGoogleCreatedUTC := TDateTimeField.Create(Self);\r\n  myDataSetGoogleUpdatedUTC := TDateTimeField.Create(Self);\r\n  myDataSetGoogleStatus := TStringField.Create(Self);\r\n  myDataSetVorname := TStringField.Create(Self);\r\n  myDataSetPNachname := TStringField.Create(Self);\r\n  myDataSetPVorname := TStringField.Create(Self);\r\n  myDataSetArtikelueberschrift := TStringField.Create(Self);\r\n  myDataSetPFarbe := TIntegerField.Create(Self);\r\n  myDataSetKontaktart := TStringField.Create(Self);\r\n  Source := TDataSource.Create(Self);\r\n  dsArtikel := TXDataWebDataSet.Create(Self);\r\n  dsArtikelArtikelnummer := TStringField.Create(Self);\r\n  dskontakt := TXDataWebDataSet.Create(Self);\r\n  dskontaktKundennummer := TStringField.Create(Self);\r\n  dskontaktNachname := TStringField.Create(Self);\r\n  dskontaktVorname := TStringField.Create(Self);\r\n  dskontaktAdresszeile2 := TStringField.Create(Self);\r\n  dskontaktAdresszeile3 := TStringField.Create(Self);\r\n  dskontaktStrasse := TStringField.Create(Self);\r\n  dskontaktPostleitzahl := TStringField.Create(Self);\r\n  dskontaktOrt := TStringField.Create(Self);\r\n  dskontaktLaenderkuerzel := TStringField.Create(Self);\r\n  dskontaktLand := TStringField.Create(Self);\r\n  dskontaktKilometer := TIntegerField.Create(Self);\r\n  dskontaktStundensatz := TFloatField.Create(Self);\r\n  dsKArten := TXDataWebDataSet.Create(Self);\r\n  dsKArtenKontaktart := TStringField.Create(Self);\r\n  dsKArtenArtikelnummer := TStringField.Create(Self);\r\n  dsObjekt := TXDataWebDataSet.Create(Self);\r\n  dsObjektObjektReferenz := TStringField.Create(Self);\r\n  dsObjektKurzbezeichnung := TStringField.Create(Self);\r\n  dsObjektObjektnummer := TStringField.Create(Self);\r\n  dsAP := TXDataWebDataSet.Create(Self);\r\n  dsAPKundennummer := TXDataWebEntityField.Create(Self);\r\n  dsAPAnsprechpartner := TStringField.Create(Self);\r\n  dsAPNachname := TStringField.Create(Self);\r\n  dsAPVorname := TStringField.Create(Self);\r\n  XDSlookupObjekt := TXDataWebDataSet.Create(Self);\r\n  XDSlookupObjektObjektReferenz := TStringField.Create(Self);\r\n  XDSlookupObjektKurzbezeichnung := TStringField.Create(Self);\r\n  XDSlookupObjektObjektnummer := TStringField.Create(Self);\r\n\r\n  lblTerminart.BeforeLoadDFMValues;\r\n  lblBeginn.BeforeLoadDFMValues;\r\n  lblEnde.BeforeLoadDFMValues;\r\n  lblBetreff.BeforeLoadDFMValues;\r\n  lblNotiz.BeforeLoadDFMValues;\r\n  lblAnsprechpartner.BeforeLoadDFMValues;\r\n  lblort.BeforeLoadDFMValues;\r\n  lblkm.BeforeLoadDFMValues;\r\n  lblMitarbeiter.BeforeLoadDFMValues;\r\n  WebLabel2.BeforeLoadDFMValues;\r\n  lblKontakt.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  btnObjektwahl.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  btnSpeichern.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  btnWV.BeforeLoadDFMValues;\r\n  btnAktivitaet.BeforeLoadDFMValues;\r\n  comboKontaktart.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  PickDateBeginn.BeforeLoadDFMValues;\r\n  pickDateEnde.BeforeLoadDFMValues;\r\n  PickTimeBeginn.BeforeLoadDFMValues;\r\n  picktimeEnde.BeforeLoadDFMValues;\r\n  edtBetreff.BeforeLoadDFMValues;\r\n  edtNotiz.BeforeLoadDFMValues;\r\n  ContainerBeginn.BeforeLoadDFMValues;\r\n  ContainerEnde.BeforeLoadDFMValues;\r\n  Container4.BeforeLoadDFMValues;\r\n  Container5.BeforeLoadDFMValues;\r\n  Container6.BeforeLoadDFMValues;\r\n  btnKontaktZuordnen.BeforeLoadDFMValues;\r\n  Container7.BeforeLoadDFMValues;\r\n  Container8.BeforeLoadDFMValues;\r\n  comboap.BeforeLoadDFMValues;\r\n  edtOrt.BeforeLoadDFMValues;\r\n  edtkm.BeforeLoadDFMValues;\r\n  Container9.BeforeLoadDFMValues;\r\n  Container10.BeforeLoadDFMValues;\r\n  Container11.BeforeLoadDFMValues;\r\n  btnTerminerledigt.BeforeLoadDFMValues;\r\n  edtTerminerledigt.BeforeLoadDFMValues;\r\n  edtAlarmBefore.BeforeLoadDFMValues;\r\n  edtErinnerung.BeforeLoadDFMValues;\r\n  Container12.BeforeLoadDFMValues;\r\n  DivTextIntern.BeforeLoadDFMValues;\r\n  DivTextObjekt.BeforeLoadDFMValues;\r\n  DivTextAP.BeforeLoadDFMValues;\r\n  btnroute.BeforeLoadDFMValues;\r\n  myDataSet.BeforeLoadDFMValues;\r\n  myDataSetArtikelnummer.BeforeLoadDFMValues;\r\n  myDataSetUID.BeforeLoadDFMValues;\r\n  myDataSetBeginn.BeforeLoadDFMValues;\r\n  myDataSetEnde.BeforeLoadDFMValues;\r\n  myDataSetBetreff.BeforeLoadDFMValues;\r\n  myDataSetTerminNotiz.BeforeLoadDFMValues;\r\n  myDataSetQuelle.BeforeLoadDFMValues;\r\n  myDataSetGUIDOutlook.BeforeLoadDFMValues;\r\n  myDataSetShape.BeforeLoadDFMValues;\r\n  myDataSetColor.BeforeLoadDFMValues;\r\n  myDataSetAlarm.BeforeLoadDFMValues;\r\n  myDataSetResource.BeforeLoadDFMValues;\r\n  myDataSetLastModificationTime.BeforeLoadDFMValues;\r\n  myDataSetGeburtstag.BeforeLoadDFMValues;\r\n  myDataSetAlarmBefore.BeforeLoadDFMValues;\r\n  myDataSetPersonalnummer.BeforeLoadDFMValues;\r\n  myDataSetKundennummer.BeforeLoadDFMValues;\r\n  myDataSetAllDayEventOutlook.BeforeLoadDFMValues;\r\n  myDataSetTMSCaption.BeforeLoadDFMValues;\r\n  myDataSetRECURRENCY.BeforeLoadDFMValues;\r\n  myDataSetMINTIME.BeforeLoadDFMValues;\r\n  myDataSetMAXTIME.BeforeLoadDFMValues;\r\n  myDataSetNachname.BeforeLoadDFMValues;\r\n  myDataSetObjektReferenz.BeforeLoadDFMValues;\r\n  myDataSetObjektnummer.BeforeLoadDFMValues;\r\n  myDataSetTerminArt.BeforeLoadDFMValues;\r\n  myDataSetBeginnDatum.BeforeLoadDFMValues;\r\n  myDataSetBeginnUhrzeit.BeforeLoadDFMValues;\r\n  myDataSetEndeDatum.BeforeLoadDFMValues;\r\n  myDataSetEndeUhrzeit.BeforeLoadDFMValues;\r\n  myDataSetKalenderAnzeige.BeforeLoadDFMValues;\r\n  myDataSetStundensatz.BeforeLoadDFMValues;\r\n  myDataSetDauerStunden.BeforeLoadDFMValues;\r\n  myDataSetgefahrenekm.BeforeLoadDFMValues;\r\n  myDataSetAufwand.BeforeLoadDFMValues;\r\n  myDataSetabgerechnet.BeforeLoadDFMValues;\r\n  myDataSetverteilt.BeforeLoadDFMValues;\r\n  myDataSetTerminErledigt.BeforeLoadDFMValues;\r\n  myDataSetAnsprechpartner.BeforeLoadDFMValues;\r\n  myDataSetLocation.BeforeLoadDFMValues;\r\n  myDataSetGoogleID.BeforeLoadDFMValues;\r\n  myDataSetGoogleCreatedUTC.BeforeLoadDFMValues;\r\n  myDataSetGoogleUpdatedUTC.BeforeLoadDFMValues;\r\n  myDataSetGoogleStatus.BeforeLoadDFMValues;\r\n  myDataSetVorname.BeforeLoadDFMValues;\r\n  myDataSetPNachname.BeforeLoadDFMValues;\r\n  myDataSetPVorname.BeforeLoadDFMValues;\r\n  myDataSetArtikelueberschrift.BeforeLoadDFMValues;\r\n  myDataSetPFarbe.BeforeLoadDFMValues;\r\n  myDataSetKontaktart.BeforeLoadDFMValues;\r\n  Source.BeforeLoadDFMValues;\r\n  dsArtikel.BeforeLoadDFMValues;\r\n  dsArtikelArtikelnummer.BeforeLoadDFMValues;\r\n  dskontakt.BeforeLoadDFMValues;\r\n  dskontaktKundennummer.BeforeLoadDFMValues;\r\n  dskontaktNachname.BeforeLoadDFMValues;\r\n  dskontaktVorname.BeforeLoadDFMValues;\r\n  dskontaktAdresszeile2.BeforeLoadDFMValues;\r\n  dskontaktAdresszeile3.BeforeLoadDFMValues;\r\n  dskontaktStrasse.BeforeLoadDFMValues;\r\n  dskontaktPostleitzahl.BeforeLoadDFMValues;\r\n  dskontaktOrt.BeforeLoadDFMValues;\r\n  dskontaktLaenderkuerzel.BeforeLoadDFMValues;\r\n  dskontaktLand.BeforeLoadDFMValues;\r\n  dskontaktKilometer.BeforeLoadDFMValues;\r\n  dskontaktStundensatz.BeforeLoadDFMValues;\r\n  dsKArten.BeforeLoadDFMValues;\r\n  dsKArtenKontaktart.BeforeLoadDFMValues;\r\n  dsKArtenArtikelnummer.BeforeLoadDFMValues;\r\n  dsObjekt.BeforeLoadDFMValues;\r\n  dsObjektObjektReferenz.BeforeLoadDFMValues;\r\n  dsObjektKurzbezeichnung.BeforeLoadDFMValues;\r\n  dsObjektObjektnummer.BeforeLoadDFMValues;\r\n  dsAP.BeforeLoadDFMValues;\r\n  dsAPKundennummer.BeforeLoadDFMValues;\r\n  dsAPAnsprechpartner.BeforeLoadDFMValues;\r\n  dsAPNachname.BeforeLoadDFMValues;\r\n  dsAPVorname.BeforeLoadDFMValues;\r\n  XDSlookupObjekt.BeforeLoadDFMValues;\r\n  XDSlookupObjektObjektReferenz.BeforeLoadDFMValues;\r\n  XDSlookupObjektKurzbezeichnung.BeforeLoadDFMValues;\r\n  XDSlookupObjektObjektnummer.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'frmEinzeltermin';\r\n    Width := 781;\r\n    Height := 709;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    Font.Charset := DEFAULT_CHARSET;\r\n    Font.Color := clWindowText;\r\n    Font.Height := -11;\r\n    Font.Name := 'Tahoma';\r\n    Font.Style := [];\r\n    ParentFont := False;\r\n    ShowHint := True;\r\n    TabStop := True;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    lblTerminart.SetParentComponent(Self);\r\n    lblTerminart.Name := 'lblTerminart';\r\n    lblTerminart.Left := 8;\r\n    lblTerminart.Top := 585;\r\n    lblTerminart.Width := 41;\r\n    lblTerminart.Height := 16;\r\n    lblTerminart.Caption := 'Termin';\r\n    lblTerminart.ElementClassName := 'text-lg ml-2';\r\n    lblTerminart.ElementFont := efCSS;\r\n    lblTerminart.ElementPosition := epIgnore;\r\n    lblTerminart.Font.Charset := DEFAULT_CHARSET;\r\n    lblTerminart.Font.Color := clWindowText;\r\n    lblTerminart.Font.Height := -13;\r\n    lblTerminart.Font.Name := 'Tahoma';\r\n    lblTerminart.Font.Style := [];\r\n    lblTerminart.HeightStyle := ssAuto;\r\n    lblTerminart.HeightPercent := 100.000000000000000000;\r\n    lblTerminart.ParentFont := False;\r\n    lblTerminart.Transparent := False;\r\n    lblTerminart.WidthStyle := ssAuto;\r\n    lblTerminart.WidthPercent := 100.000000000000000000;\r\n    lblBeginn.SetParentComponent(Self);\r\n    lblBeginn.Name := 'lblBeginn';\r\n    lblBeginn.Left := 8;\r\n    lblBeginn.Top := 173;\r\n    lblBeginn.Width := 40;\r\n    lblBeginn.Height := 13;\r\n    lblBeginn.AutoSize := False;\r\n    lblBeginn.Caption := 'Beginn';\r\n    lblBeginn.ElementClassName := 'text-small m-2';\r\n    lblBeginn.ElementFont := efCSS;\r\n    lblBeginn.ElementPosition := epIgnore;\r\n    lblBeginn.HeightStyle := ssAuto;\r\n    lblBeginn.HeightPercent := 100.000000000000000000;\r\n    lblBeginn.Transparent := False;\r\n    lblBeginn.WidthStyle := ssAuto;\r\n    lblBeginn.WidthPercent := 100.000000000000000000;\r\n    lblEnde.SetParentComponent(Self);\r\n    lblEnde.Name := 'lblEnde';\r\n    lblEnde.Left := 49;\r\n    lblEnde.Top := 192;\r\n    lblEnde.Width := 40;\r\n    lblEnde.Height := 13;\r\n    lblEnde.AutoSize := False;\r\n    lblEnde.Caption := 'Ende';\r\n    lblEnde.ElementClassName := 'text-small m-2';\r\n    lblEnde.ElementFont := efCSS;\r\n    lblEnde.ElementPosition := epIgnore;\r\n    lblEnde.HeightStyle := ssAuto;\r\n    lblEnde.HeightPercent := 100.000000000000000000;\r\n    lblEnde.Transparent := False;\r\n    lblEnde.WidthPercent := 100.000000000000000000;\r\n    lblBetreff.SetParentComponent(Self);\r\n    lblBetreff.Name := 'lblBetreff';\r\n    lblBetreff.AlignWithMargins := True;\r\n    lblBetreff.Left := 29;\r\n    lblBetreff.Top := 231;\r\n    lblBetreff.Width := 50;\r\n    lblBetreff.Height := 13;\r\n    lblBetreff.AutoSize := False;\r\n    lblBetreff.Caption := 'Betreff:';\r\n    lblBetreff.ElementClassName := 'text-small m-2';\r\n    lblBetreff.ElementFont := efCSS;\r\n    lblBetreff.ElementPosition := epIgnore;\r\n    lblBetreff.Font.Charset := DEFAULT_CHARSET;\r\n    lblBetreff.Font.Color := clWindowText;\r\n    lblBetreff.Font.Height := -11;\r\n    lblBetreff.Font.Name := 'Tahoma';\r\n    lblBetreff.Font.Style := [];\r\n    lblBetreff.HeightStyle := ssAuto;\r\n    lblBetreff.HeightPercent := 100.000000000000000000;\r\n    lblBetreff.ParentFont := False;\r\n    lblBetreff.Transparent := False;\r\n    lblBetreff.WidthPercent := 100.000000000000000000;\r\n    lblNotiz.SetParentComponent(Self);\r\n    lblNotiz.Name := 'lblNotiz';\r\n    lblNotiz.AlignWithMargins := True;\r\n    lblNotiz.Left := 40;\r\n    lblNotiz.Top := 266;\r\n    lblNotiz.Width := 50;\r\n    lblNotiz.Height := 13;\r\n    lblNotiz.AutoSize := False;\r\n    lblNotiz.Caption := 'Notiz:';\r\n    lblNotiz.ElementClassName := 'text-small m-2';\r\n    lblNotiz.ElementFont := efCSS;\r\n    lblNotiz.ElementPosition := epIgnore;\r\n    lblNotiz.Font.Charset := DEFAULT_CHARSET;\r\n    lblNotiz.Font.Color := clWindowText;\r\n    lblNotiz.Font.Height := -11;\r\n    lblNotiz.Font.Name := 'Tahoma';\r\n    lblNotiz.Font.Style := [];\r\n    lblNotiz.HeightStyle := ssAuto;\r\n    lblNotiz.HeightPercent := 100.000000000000000000;\r\n    lblNotiz.ParentFont := False;\r\n    lblNotiz.Transparent := False;\r\n    lblNotiz.WidthPercent := 100.000000000000000000;\r\n    lblAnsprechpartner.SetParentComponent(Self);\r\n    lblAnsprechpartner.Name := 'lblAnsprechpartner';\r\n    lblAnsprechpartner.AlignWithMargins := True;\r\n    lblAnsprechpartner.Left := 209;\r\n    lblAnsprechpartner.Top := 376;\r\n    lblAnsprechpartner.Width := 50;\r\n    lblAnsprechpartner.Height := 17;\r\n    lblAnsprechpartner.AutoSize := False;\r\n    lblAnsprechpartner.Caption := 'AP:';\r\n    lblAnsprechpartner.ElementClassName := 'text-small m-2';\r\n    lblAnsprechpartner.ElementFont := efCSS;\r\n    lblAnsprechpartner.ElementPosition := epIgnore;\r\n    lblAnsprechpartner.Font.Charset := DEFAULT_CHARSET;\r\n    lblAnsprechpartner.Font.Color := clWindowText;\r\n    lblAnsprechpartner.Font.Height := -11;\r\n    lblAnsprechpartner.Font.Name := 'Tahoma';\r\n    lblAnsprechpartner.Font.Style := [];\r\n    lblAnsprechpartner.HeightStyle := ssAuto;\r\n    lblAnsprechpartner.HeightPercent := 100.000000000000000000;\r\n    lblAnsprechpartner.ParentFont := False;\r\n    lblAnsprechpartner.Transparent := False;\r\n    lblAnsprechpartner.WidthPercent := 100.000000000000000000;\r\n    lblort.SetParentComponent(Self);\r\n    lblort.Name := 'lblort';\r\n    lblort.AlignWithMargins := True;\r\n    lblort.Left := 8;\r\n    lblort.Top := 435;\r\n    lblort.Width := 50;\r\n    lblort.Height := 13;\r\n    lblort.AutoSize := False;\r\n    lblort.Caption := 'Ort:';\r\n    lblort.ElementClassName := 'text-small m-2';\r\n    lblort.ElementFont := efCSS;\r\n    lblort.ElementPosition := epIgnore;\r\n    lblort.Font.Charset := DEFAULT_CHARSET;\r\n    lblort.Font.Color := clWindowText;\r\n    lblort.Font.Height := -11;\r\n    lblort.Font.Name := 'Tahoma';\r\n    lblort.Font.Style := [];\r\n    lblort.HeightStyle := ssAuto;\r\n    lblort.HeightPercent := 100.000000000000000000;\r\n    lblort.ParentFont := False;\r\n    lblort.Transparent := False;\r\n    lblort.WidthPercent := 100.000000000000000000;\r\n    lblkm.SetParentComponent(Self);\r\n    lblkm.Name := 'lblkm';\r\n    lblkm.Left := 329;\r\n    lblkm.Top := 435;\r\n    lblkm.Width := 13;\r\n    lblkm.Height := 13;\r\n    lblkm.AutoSize := False;\r\n    lblkm.Caption := 'km';\r\n    lblkm.ElementClassName := 'text-small m-2';\r\n    lblkm.ElementFont := efCSS;\r\n    lblkm.ElementPosition := epIgnore;\r\n    lblkm.HeightStyle := ssAuto;\r\n    lblkm.HeightPercent := 100.000000000000000000;\r\n    lblkm.WidthStyle := ssAuto;\r\n    lblkm.WidthPercent := 100.000000000000000000;\r\n    lblMitarbeiter.SetParentComponent(Self);\r\n    lblMitarbeiter.Name := 'lblMitarbeiter';\r\n    lblMitarbeiter.AlignWithMargins := True;\r\n    lblMitarbeiter.Left := 3;\r\n    lblMitarbeiter.Top := 470;\r\n    lblMitarbeiter.Width := 99;\r\n    lblMitarbeiter.Height := 11;\r\n    lblMitarbeiter.AutoSize := False;\r\n    lblMitarbeiter.Caption := 'Mitarbeiter:';\r\n    lblMitarbeiter.ElementClassName := 'text-small m-2';\r\n    lblMitarbeiter.ElementFont := efCSS;\r\n    lblMitarbeiter.ElementPosition := epIgnore;\r\n    lblMitarbeiter.Font.Charset := DEFAULT_CHARSET;\r\n    lblMitarbeiter.Font.Color := clWindowText;\r\n    lblMitarbeiter.Font.Height := -11;\r\n    lblMitarbeiter.Font.Name := 'Tahoma';\r\n    lblMitarbeiter.Font.Style := [];\r\n    lblMitarbeiter.HeightStyle := ssAuto;\r\n    lblMitarbeiter.HeightPercent := 100.000000000000000000;\r\n    lblMitarbeiter.ParentFont := False;\r\n    lblMitarbeiter.WidthStyle := ssAuto;\r\n    lblMitarbeiter.WidthPercent := 100.000000000000000000;\r\n    WebLabel2.SetParentComponent(Self);\r\n    WebLabel2.Name := 'WebLabel2';\r\n    WebLabel2.Left := 576;\r\n    WebLabel2.Top := 560;\r\n    WebLabel2.Width := 3;\r\n    WebLabel2.Height := 13;\r\n    WebLabel2.ElementClassName := 'text-small text-danger ml-2';\r\n    WebLabel2.ElementFont := efCSS;\r\n    WebLabel2.ElementPosition := epIgnore;\r\n    WebLabel2.HeightStyle := ssAuto;\r\n    WebLabel2.HeightPercent := 100.000000000000000000;\r\n    WebLabel2.WidthStyle := ssAuto;\r\n    WebLabel2.WidthPercent := 100.000000000000000000;\r\n    lblKontakt.SetParentComponent(Self);\r\n    lblKontakt.Name := 'lblKontakt';\r\n    lblKontakt.Left := 32;\r\n    lblKontakt.Top := 120;\r\n    lblKontakt.Width := 47;\r\n    lblKontakt.Height := 13;\r\n    lblKontakt.Caption := 'lblKontakt';\r\n    lblKontakt.ElementClassName := 'h6 m-2';\r\n    lblKontakt.ElementFont := efCSS;\r\n    lblKontakt.ElementPosition := epIgnore;\r\n    lblKontakt.HeightPercent := 100.000000000000000000;\r\n    lblKontakt.WidthPercent := 100.000000000000000000;\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 781;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.Align := alTop;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    btnObjektwahl.SetParentComponent(Self);\r\n    btnObjektwahl.Name := 'btnObjektwahl';\r\n    btnObjektwahl.Left := 48;\r\n    btnObjektwahl.Top := 536;\r\n    btnObjektwahl.Width := 96;\r\n    btnObjektwahl.Height := 25;\r\n    btnObjektwahl.Caption := 'Objekt';\r\n    btnObjektwahl.ChildOrder := 12;\r\n    btnObjektwahl.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnObjektwahl.ElementFont := efCSS;\r\n    btnObjektwahl.ElementPosition := epIgnore;\r\n    btnObjektwahl.HeightStyle := ssAuto;\r\n    btnObjektwahl.HeightPercent := 100.000000000000000000;\r\n    btnObjektwahl.WidthStyle := ssAuto;\r\n    btnObjektwahl.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnObjektwahl, Self, 'OnClick', 'btnObjektwahlClick');\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 157;\r\n    btnzurueck.Top := 536;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 12;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    btnSpeichern.SetParentComponent(Self);\r\n    btnSpeichern.Name := 'btnSpeichern';\r\n    btnSpeichern.Left := 259;\r\n    btnSpeichern.Top := 536;\r\n    btnSpeichern.Width := 96;\r\n    btnSpeichern.Height := 25;\r\n    btnSpeichern.Caption := 'speichern';\r\n    btnSpeichern.ChildOrder := 4;\r\n    btnSpeichern.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnSpeichern.ElementFont := efCSS;\r\n    btnSpeichern.ElementPosition := epIgnore;\r\n    btnSpeichern.HeightStyle := ssAuto;\r\n    btnSpeichern.HeightPercent := 100.000000000000000000;\r\n    btnSpeichern.WidthStyle := ssAuto;\r\n    btnSpeichern.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnSpeichern, Self, 'OnClick', 'btnSpeichernClick');\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 472;\r\n    Container2.Top := 41;\r\n    Container2.Width := 174;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    btnWV.SetParentComponent(Self);\r\n    btnWV.Name := 'btnWV';\r\n    btnWV.Left := 157;\r\n    btnWV.Top := 576;\r\n    btnWV.Width := 96;\r\n    btnWV.Height := 25;\r\n    btnWV.Caption := 'WV';\r\n    btnWV.ChildOrder := 12;\r\n    btnWV.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnWV.ElementFont := efCSS;\r\n    btnWV.ElementPosition := epIgnore;\r\n    btnWV.HeightStyle := ssAuto;\r\n    btnWV.HeightPercent := 100.000000000000000000;\r\n    btnWV.WidthStyle := ssAuto;\r\n    btnWV.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnWV, Self, 'OnClick', 'btnWVClick');\r\n    btnAktivitaet.SetParentComponent(Self);\r\n    btnAktivitaet.Name := 'btnAktivitaet';\r\n    btnAktivitaet.Left := 157;\r\n    btnAktivitaet.Top := 607;\r\n    btnAktivitaet.Width := 96;\r\n    btnAktivitaet.Height := 25;\r\n    btnAktivitaet.Caption := 'Aktivit'#228't';\r\n    btnAktivitaet.ChildOrder := 12;\r\n    btnAktivitaet.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnAktivitaet.ElementFont := efCSS;\r\n    btnAktivitaet.ElementPosition := epIgnore;\r\n    btnAktivitaet.HeightStyle := ssAuto;\r\n    btnAktivitaet.HeightPercent := 100.000000000000000000;\r\n    btnAktivitaet.WidthStyle := ssAuto;\r\n    btnAktivitaet.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnAktivitaet, Self, 'OnClick', 'btnaktivitaetClick');\r\n    comboKontaktart.SetParentComponent(Self);\r\n    comboKontaktart.Name := 'comboKontaktart';\r\n    comboKontaktart.AlignWithMargins := True;\r\n    comboKontaktart.Left := 157;\r\n    comboKontaktart.Top := 638;\r\n    comboKontaktart.Width := 200;\r\n    comboKontaktart.Height := 21;\r\n    comboKontaktart.ElementClassName := 'form-control form-control-sm m-1';\r\n    comboKontaktart.ElementFont := efCSS;\r\n    comboKontaktart.ElementPosition := epIgnore;\r\n    comboKontaktart.HeightStyle := ssAuto;\r\n    comboKontaktart.HeightPercent := 100.000000000000000000;\r\n    comboKontaktart.WidthPercent := 100.000000000000000000;\r\n    comboKontaktart.ItemIndex := -1;\r\n    comboKontaktart.DataField := 'Kontaktart';\r\n    comboKontaktart.DataSource := Source;\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 472;\r\n    Container3.Top := 82;\r\n    Container3.Width := 174;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 2;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    PickDateBeginn.SetParentComponent(Self);\r\n    PickDateBeginn.Name := 'PickDateBeginn';\r\n    PickDateBeginn.Left := 74;\r\n    PickDateBeginn.Top := 156;\r\n    PickDateBeginn.Width := 164;\r\n    PickDateBeginn.Height := 30;\r\n    PickDateBeginn.ElementClassName := 'form-control form-control-sm m-1';\r\n    PickDateBeginn.HeightStyle := ssAuto;\r\n    PickDateBeginn.BorderStyle := bsSingle;\r\n    PickDateBeginn.ChildOrder := 24;\r\n    PickDateBeginn.Color := clWhite;\r\n    PickDateBeginn.Date := 43625.314923055560000000;\r\n    PickDateBeginn.ElementFont := efCSS;\r\n    PickDateBeginn.ElementPosition := epIgnore;\r\n    PickDateBeginn.Role := '';\r\n    PickDateBeginn.Text := '';\r\n    PickDateBeginn.DataField := 'BeginnDatum';\r\n    PickDateBeginn.DataSource := Source;\r\n    pickDateEnde.SetParentComponent(Self);\r\n    pickDateEnde.Name := 'pickDateEnde';\r\n    pickDateEnde.Left := 73;\r\n    pickDateEnde.Top := 191;\r\n    pickDateEnde.Width := 164;\r\n    pickDateEnde.Height := 30;\r\n    pickDateEnde.ElementClassName := 'form-control form-control-sm m-1';\r\n    pickDateEnde.HeightStyle := ssAuto;\r\n    pickDateEnde.BorderStyle := bsSingle;\r\n    pickDateEnde.ChildOrder := 26;\r\n    pickDateEnde.Color := clWhite;\r\n    pickDateEnde.Date := 43625.314923055560000000;\r\n    pickDateEnde.ElementFont := efCSS;\r\n    pickDateEnde.ElementPosition := epIgnore;\r\n    pickDateEnde.Role := '';\r\n    pickDateEnde.TabOrder := 2;\r\n    pickDateEnde.Text := '';\r\n    pickDateEnde.DataField := 'EndeDatum';\r\n    pickDateEnde.DataSource := Source;\r\n    PickTimeBeginn.SetParentComponent(Self);\r\n    PickTimeBeginn.Name := 'PickTimeBeginn';\r\n    PickTimeBeginn.Left := 263;\r\n    PickTimeBeginn.Top := 156;\r\n    PickTimeBeginn.Width := 140;\r\n    PickTimeBeginn.Height := 30;\r\n    PickTimeBeginn.ElementClassName := 'form-control form-control-sm m-1';\r\n    PickTimeBeginn.HeightStyle := ssAuto;\r\n    PickTimeBeginn.BorderStyle := bsSingle;\r\n    PickTimeBeginn.ChildOrder := 25;\r\n    PickTimeBeginn.Color := clWhite;\r\n    PickTimeBeginn.Date := 43625.314923055560000000;\r\n    PickTimeBeginn.ElementFont := efCSS;\r\n    PickTimeBeginn.ElementPosition := epIgnore;\r\n    PickTimeBeginn.Kind := dtkTime;\r\n    PickTimeBeginn.Role := '';\r\n    PickTimeBeginn.ShowSeconds := False;\r\n    PickTimeBeginn.TabOrder := 1;\r\n    PickTimeBeginn.Text := '';\r\n    PickTimeBeginn.DataField := 'BeginnUhrzeit';\r\n    PickTimeBeginn.DataSource := Source;\r\n    picktimeEnde.SetParentComponent(Self);\r\n    picktimeEnde.Name := 'picktimeEnde';\r\n    picktimeEnde.Left := 263;\r\n    picktimeEnde.Top := 191;\r\n    picktimeEnde.Width := 140;\r\n    picktimeEnde.Height := 30;\r\n    picktimeEnde.ElementClassName := 'form-control form-control-sm m-1';\r\n    picktimeEnde.HeightStyle := ssAuto;\r\n    picktimeEnde.BorderStyle := bsSingle;\r\n    picktimeEnde.ChildOrder := 27;\r\n    picktimeEnde.Color := clWhite;\r\n    picktimeEnde.Date := 43625.314923055560000000;\r\n    picktimeEnde.ElementFont := efCSS;\r\n    picktimeEnde.ElementPosition := epIgnore;\r\n    picktimeEnde.Kind := dtkTime;\r\n    picktimeEnde.Role := '';\r\n    picktimeEnde.ShowSeconds := False;\r\n    picktimeEnde.TabOrder := 3;\r\n    picktimeEnde.Text := '';\r\n    picktimeEnde.DataField := 'EndeUhrzeit';\r\n    picktimeEnde.DataSource := Source;\r\n    edtBetreff.SetParentComponent(Self);\r\n    edtBetreff.Name := 'edtBetreff';\r\n    edtBetreff.Left := 73;\r\n    edtBetreff.Top := 227;\r\n    edtBetreff.Width := 353;\r\n    edtBetreff.Height := 21;\r\n    edtBetreff.AutoSize := True;\r\n    edtBetreff.ChildOrder := 28;\r\n    edtBetreff.ElementClassName := 'form-control form-control-sm m-1';\r\n    edtBetreff.ElementFont := efCSS;\r\n    edtBetreff.ElementPosition := epIgnore;\r\n    edtBetreff.HeightStyle := ssAuto;\r\n    edtBetreff.HeightPercent := 100.000000000000000000;\r\n    edtBetreff.TabOrder := 4;\r\n    edtBetreff.Text := 'edtBetreff';\r\n    edtBetreff.WidthStyle := ssPercent;\r\n    edtBetreff.WidthPercent := 80.000000000000000000;\r\n    edtBetreff.DataField := 'Betreff';\r\n    edtBetreff.DataSource := Source;\r\n    edtNotiz.SetParentComponent(Self);\r\n    edtNotiz.Name := 'edtNotiz';\r\n    edtNotiz.Left := 74;\r\n    edtNotiz.Top := 266;\r\n    edtNotiz.Width := 352;\r\n    edtNotiz.Height := 91;\r\n    edtNotiz.ChildOrder := 29;\r\n    edtNotiz.ElementClassName := 'form-control form-control-sm m-1';\r\n    edtNotiz.ElementFont := efCSS;\r\n    edtNotiz.ElementPosition := epIgnore;\r\n    edtNotiz.HeightPercent := 100.000000000000000000;\r\n    edtNotiz.Lines.BeginUpdate;\r\n    try\r\n      edtNotiz.Lines.Clear;\r\n      edtNotiz.Lines.Add('WebMemo1');\r\n    finally\r\n      edtNotiz.Lines.EndUpdate;\r\n    end;\r\n    edtNotiz.SelLength := 0;\r\n    edtNotiz.SelStart := 0;\r\n    edtNotiz.TabOrder := 5;\r\n    edtNotiz.WidthStyle := ssPercent;\r\n    edtNotiz.WidthPercent := 80.000000000000000000;\r\n    SetEvent(edtNotiz, Self, 'OnEnter', 'edtNotizEnter');\r\n    ContainerBeginn.SetParentComponent(Self);\r\n    ContainerBeginn.Name := 'ContainerBeginn';\r\n    ContainerBeginn.Left := 284;\r\n    ContainerBeginn.Top := 576;\r\n    ContainerBeginn.Width := 152;\r\n    ContainerBeginn.Height := 41;\r\n    ContainerBeginn.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    ContainerBeginn.HeightStyle := ssAuto;\r\n    ContainerBeginn.WidthStyle := ssAuto;\r\n    ContainerBeginn.ChildOrder := 4;\r\n    ContainerBeginn.ElementFont := efCSS;\r\n    ContainerBeginn.ElementPosition := epIgnore;\r\n    ContainerEnde.SetParentComponent(Self);\r\n    ContainerEnde.Name := 'ContainerEnde';\r\n    ContainerEnde.Left := 284;\r\n    ContainerEnde.Top := 623;\r\n    ContainerEnde.Width := 152;\r\n    ContainerEnde.Height := 41;\r\n    ContainerEnde.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    ContainerEnde.HeightStyle := ssAuto;\r\n    ContainerEnde.WidthStyle := ssAuto;\r\n    ContainerEnde.ChildOrder := 4;\r\n    ContainerEnde.ElementFont := efCSS;\r\n    ContainerEnde.ElementPosition := epIgnore;\r\n    Container4.SetParentComponent(Self);\r\n    Container4.Name := 'Container4';\r\n    Container4.Left := 472;\r\n    Container4.Top := 124;\r\n    Container4.Width := 174;\r\n    Container4.Height := 41;\r\n    Container4.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container4.HeightStyle := ssAuto;\r\n    Container4.WidthStyle := ssAuto;\r\n    Container4.ChildOrder := 3;\r\n    Container4.ElementFont := efCSS;\r\n    Container4.ElementPosition := epIgnore;\r\n    Container5.SetParentComponent(Self);\r\n    Container5.Name := 'Container5';\r\n    Container5.Left := 472;\r\n    Container5.Top := 167;\r\n    Container5.Width := 174;\r\n    Container5.Height := 41;\r\n    Container5.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container5.HeightStyle := ssAuto;\r\n    Container5.WidthStyle := ssAuto;\r\n    Container5.ChildOrder := 4;\r\n    Container5.ElementFont := efCSS;\r\n    Container5.ElementPosition := epIgnore;\r\n    Container6.SetParentComponent(Self);\r\n    Container6.Name := 'Container6';\r\n    Container6.Left := 472;\r\n    Container6.Top := 210;\r\n    Container6.Width := 174;\r\n    Container6.Height := 41;\r\n    Container6.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    Container6.HeightStyle := ssAuto;\r\n    Container6.WidthStyle := ssPercent;\r\n    Container6.WidthPercent := 85.000000000000000000;\r\n    Container6.ChildOrder := 5;\r\n    Container6.ElementFont := efCSS;\r\n    Container6.ElementPosition := epIgnore;\r\n    btnKontaktZuordnen.SetParentComponent(Self);\r\n    btnKontaktZuordnen.Name := 'btnKontaktZuordnen';\r\n    btnKontaktZuordnen.Left := 361;\r\n    btnKontaktZuordnen.Top := 536;\r\n    btnKontaktZuordnen.Width := 96;\r\n    btnKontaktZuordnen.Height := 25;\r\n    btnKontaktZuordnen.Caption := 'Kontakt';\r\n    btnKontaktZuordnen.ChildOrder := 12;\r\n    btnKontaktZuordnen.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnKontaktZuordnen.ElementFont := efCSS;\r\n    btnKontaktZuordnen.ElementPosition := epIgnore;\r\n    btnKontaktZuordnen.HeightStyle := ssAuto;\r\n    btnKontaktZuordnen.HeightPercent := 100.000000000000000000;\r\n    btnKontaktZuordnen.WidthStyle := ssAuto;\r\n    btnKontaktZuordnen.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnKontaktZuordnen, Self, 'OnClick', 'btnKontaktZuordnenClick');\r\n    Container7.SetParentComponent(Self);\r\n    Container7.Name := 'Container7';\r\n    Container7.Left := 472;\r\n    Container7.Top := 257;\r\n    Container7.Width := 174;\r\n    Container7.Height := 41;\r\n    Container7.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    Container7.HeightStyle := ssAuto;\r\n    Container7.WidthStyle := ssPercent;\r\n    Container7.WidthPercent := 85.000000000000000000;\r\n    Container7.ChildOrder := 6;\r\n    Container7.ElementFont := efCSS;\r\n    Container7.ElementPosition := epIgnore;\r\n    Container8.SetParentComponent(Self);\r\n    Container8.Name := 'Container8';\r\n    Container8.Left := 472;\r\n    Container8.Top := 304;\r\n    Container8.Width := 174;\r\n    Container8.Height := 41;\r\n    Container8.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    Container8.HeightStyle := ssAuto;\r\n    Container8.WidthStyle := ssPercent;\r\n    Container8.WidthPercent := 85.000000000000000000;\r\n    Container8.ChildOrder := 7;\r\n    Container8.ElementFont := efCSS;\r\n    Container8.ElementPosition := epIgnore;\r\n    comboap.SetParentComponent(Self);\r\n    comboap.Name := 'comboap';\r\n    comboap.Left := 11;\r\n    comboap.Top := 388;\r\n    comboap.Width := 145;\r\n    comboap.Height := 21;\r\n    comboap.ChildOrder := 30;\r\n    comboap.ElementClassName := 'form-control form-control-sm m-1';\r\n    comboap.ElementFont := efCSS;\r\n    comboap.ElementPosition := epIgnore;\r\n    comboap.HeightStyle := ssAuto;\r\n    comboap.HeightPercent := 100.000000000000000000;\r\n    comboap.WidthPercent := 100.000000000000000000;\r\n    SetEvent(comboap, Self, 'OnEnter', 'comboAPEnter');\r\n    comboap.ItemIndex := -1;\r\n    comboap.DataField := 'Ansprechpartner';\r\n    comboap.DataSource := Source;\r\n    edtOrt.SetParentComponent(Self);\r\n    edtOrt.Name := 'edtOrt';\r\n    edtOrt.Left := 54;\r\n    edtOrt.Top := 432;\r\n    edtOrt.Width := 269;\r\n    edtOrt.Height := 21;\r\n    edtOrt.ChildOrder := 41;\r\n    edtOrt.ElementClassName := 'form-control form-control-sm m-1';\r\n    edtOrt.ElementFont := efCSS;\r\n    edtOrt.ElementPosition := epIgnore;\r\n    edtOrt.HeightStyle := ssAuto;\r\n    edtOrt.HeightPercent := 100.000000000000000000;\r\n    edtOrt.Text := 'edtOrt';\r\n    edtOrt.WidthStyle := ssPercent;\r\n    edtOrt.WidthPercent := 60.000000000000000000;\r\n    edtOrt.DataField := 'Location';\r\n    edtOrt.DataSource := Source;\r\n    edtkm.SetParentComponent(Self);\r\n    edtkm.Name := 'edtkm';\r\n    edtkm.Left := 348;\r\n    edtkm.Top := 432;\r\n    edtkm.Width := 60;\r\n    edtkm.Height := 21;\r\n    edtkm.ChildOrder := 43;\r\n    edtkm.ElementClassName := 'form-control form-control-sm m-1';\r\n    edtkm.ElementFont := efCSS;\r\n    edtkm.ElementPosition := epIgnore;\r\n    edtkm.HeightStyle := ssAuto;\r\n    edtkm.HeightPercent := 100.000000000000000000;\r\n    edtkm.Text := 'edtkm';\r\n    edtkm.WidthPercent := 100.000000000000000000;\r\n    edtkm.DataField := 'gefahrenekm';\r\n    edtkm.DataSource := Source;\r\n    Container9.SetParentComponent(Self);\r\n    Container9.Name := 'Container9';\r\n    Container9.Left := 472;\r\n    Container9.Top := 351;\r\n    Container9.Width := 174;\r\n    Container9.Height := 41;\r\n    Container9.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    Container9.HeightStyle := ssAuto;\r\n    Container9.WidthStyle := ssPercent;\r\n    Container9.WidthPercent := 85.000000000000000000;\r\n    Container9.ChildOrder := 8;\r\n    Container9.ElementFont := efCSS;\r\n    Container9.ElementPosition := epIgnore;\r\n    Container10.SetParentComponent(Self);\r\n    Container10.Name := 'Container10';\r\n    Container10.Left := 472;\r\n    Container10.Top := 398;\r\n    Container10.Width := 174;\r\n    Container10.Height := 41;\r\n    Container10.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    Container10.HeightStyle := ssAuto;\r\n    Container10.WidthStyle := ssPercent;\r\n    Container10.WidthPercent := 85.000000000000000000;\r\n    Container10.ChildOrder := 9;\r\n    Container10.ElementFont := efCSS;\r\n    Container10.ElementPosition := epIgnore;\r\n    Container11.SetParentComponent(Self);\r\n    Container11.Name := 'Container11';\r\n    Container11.Left := 472;\r\n    Container11.Top := 445;\r\n    Container11.Width := 174;\r\n    Container11.Height := 41;\r\n    Container11.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    Container11.HeightStyle := ssAuto;\r\n    Container11.WidthStyle := ssPercent;\r\n    Container11.WidthPercent := 85.000000000000000000;\r\n    Container11.ChildOrder := 10;\r\n    Container11.ElementFont := efCSS;\r\n    Container11.ElementPosition := epIgnore;\r\n    btnTerminerledigt.SetParentComponent(Self);\r\n    btnTerminerledigt.Name := 'btnTerminerledigt';\r\n    btnTerminerledigt.Left := 361;\r\n    btnTerminerledigt.Top := 505;\r\n    btnTerminerledigt.Width := 96;\r\n    btnTerminerledigt.Height := 25;\r\n    btnTerminerledigt.Caption := 'Termin erledigt';\r\n    btnTerminerledigt.ChildOrder := 12;\r\n    btnTerminerledigt.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnTerminerledigt.ElementFont := efCSS;\r\n    btnTerminerledigt.ElementPosition := epIgnore;\r\n    btnTerminerledigt.HeightStyle := ssAuto;\r\n    btnTerminerledigt.HeightPercent := 100.000000000000000000;\r\n    btnTerminerledigt.WidthStyle := ssAuto;\r\n    btnTerminerledigt.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnTerminerledigt, Self, 'OnClick', 'btnTerminerledigtClick');\r\n    edtTerminerledigt.SetParentComponent(Self);\r\n    edtTerminerledigt.Name := 'edtTerminerledigt';\r\n    edtTerminerledigt.Left := 214;\r\n    edtTerminerledigt.Top := 500;\r\n    edtTerminerledigt.Width := 109;\r\n    edtTerminerledigt.Height := 24;\r\n    edtTerminerledigt.Margins.Left := 25;\r\n    edtTerminerledigt.ChildOrder := 47;\r\n    edtTerminerledigt.ElementClassName := 'form-control form-control-sm m-1';\r\n    edtTerminerledigt.ElementFont := efCSS;\r\n    edtTerminerledigt.ElementPosition := epIgnore;\r\n    edtTerminerledigt.HeightStyle := ssAuto;\r\n    edtTerminerledigt.HeightPercent := 100.000000000000000000;\r\n    edtTerminerledigt.Text := 'edtTerminerledigt';\r\n    edtTerminerledigt.WidthPercent := 100.000000000000000000;\r\n    edtTerminerledigt.DataField := 'TerminErledigt';\r\n    edtTerminerledigt.DataSource := Source;\r\n    edtAlarmBefore.SetParentComponent(Self);\r\n    edtAlarmBefore.Name := 'edtAlarmBefore';\r\n    edtAlarmBefore.AlignWithMargins := True;\r\n    edtAlarmBefore.Left := 157;\r\n    edtAlarmBefore.Top := 470;\r\n    edtAlarmBefore.Width := 65;\r\n    edtAlarmBefore.Height := 24;\r\n    edtAlarmBefore.ElementClassName := 'form-control form-control-sm m-1';\r\n    edtAlarmBefore.HeightStyle := ssAuto;\r\n    edtAlarmBefore.AutoSize := False;\r\n    edtAlarmBefore.BorderStyle := bsSingle;\r\n    edtAlarmBefore.ChildOrder := 48;\r\n    edtAlarmBefore.Color := clWhite;\r\n    edtAlarmBefore.ElementFont := efCSS;\r\n    edtAlarmBefore.ElementPosition := epIgnore;\r\n    edtAlarmBefore.Increment := 1;\r\n    edtAlarmBefore.MaxValue := 60;\r\n    edtAlarmBefore.MinValue := 1;\r\n    edtAlarmBefore.Role := '';\r\n    edtAlarmBefore.Value := 0;\r\n    edtAlarmBefore.DataField := 'AlarmBefore';\r\n    edtAlarmBefore.DataSource := Source;\r\n    edtErinnerung.SetParentComponent(Self);\r\n    edtErinnerung.Name := 'edtErinnerung';\r\n    edtErinnerung.AlignWithMargins := True;\r\n    edtErinnerung.Left := 8;\r\n    edtErinnerung.Top := 358;\r\n    edtErinnerung.Width := 148;\r\n    edtErinnerung.Height := 24;\r\n    edtErinnerung.Caption := 'Erinnerung / Min.';\r\n    edtErinnerung.ChildOrder := 49;\r\n    edtErinnerung.ElementClassName := 'custom-control custom-checkbox m-1';\r\n    edtErinnerung.ElementButtonClassName := 'custom-control-input';\r\n    edtErinnerung.ElementLabelClassName := 'custom-control-label';\r\n    edtErinnerung.ElementFont := efCSS;\r\n    edtErinnerung.ElementPosition := epIgnore;\r\n    edtErinnerung.HeightStyle := ssAuto;\r\n    edtErinnerung.HeightPercent := 100.000000000000000000;\r\n    edtErinnerung.WidthPercent := 100.000000000000000000;\r\n    edtErinnerung.DataField := 'Alarm';\r\n    edtErinnerung.DataSource := Source;\r\n    Container12.SetParentComponent(Self);\r\n    Container12.Name := 'Container12';\r\n    Container12.Left := 472;\r\n    Container12.Top := 492;\r\n    Container12.Width := 174;\r\n    Container12.Height := 41;\r\n    Container12.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container12.HeightStyle := ssAuto;\r\n    Container12.WidthStyle := ssPercent;\r\n    Container12.WidthPercent := 85.000000000000000000;\r\n    Container12.ChildOrder := 11;\r\n    Container12.ElementFont := efCSS;\r\n    Container12.ElementPosition := epIgnore;\r\n    DivTextIntern.SetParentComponent(Self);\r\n    DivTextIntern.Name := 'DivTextIntern';\r\n    DivTextIntern.Left := 546;\r\n    DivTextIntern.Top := 539;\r\n    DivTextIntern.Width := 100;\r\n    DivTextIntern.Height := 41;\r\n    DivTextIntern.ElementClassName := 'h6 ml-1';\r\n    DivTextIntern.HeightStyle := ssAuto;\r\n    DivTextIntern.WidthStyle := ssAuto;\r\n    DivTextIntern.ChildOrder := 48;\r\n    DivTextIntern.ElementPosition := epIgnore;\r\n    DivTextIntern.ElementFont := efCSS;\r\n    DivTextIntern.Role := '';\r\n    DivTextObjekt.SetParentComponent(Self);\r\n    DivTextObjekt.Name := 'DivTextObjekt';\r\n    DivTextObjekt.Left := 576;\r\n    DivTextObjekt.Top := 586;\r\n    DivTextObjekt.Width := 100;\r\n    DivTextObjekt.Height := 41;\r\n    DivTextObjekt.ElementClassName := 'h6 m-2';\r\n    DivTextObjekt.HeightStyle := ssAuto;\r\n    DivTextObjekt.WidthStyle := ssAuto;\r\n    DivTextObjekt.ChildOrder := 48;\r\n    DivTextObjekt.ElementPosition := epIgnore;\r\n    DivTextObjekt.ElementFont := efCSS;\r\n    DivTextObjekt.Role := '';\r\n    DivTextAP.SetParentComponent(Self);\r\n    DivTextAP.Name := 'DivTextAP';\r\n    DivTextAP.Left := 576;\r\n    DivTextAP.Top := 633;\r\n    DivTextAP.Width := 100;\r\n    DivTextAP.Height := 41;\r\n    DivTextAP.ElementClassName := 'h6 m-2';\r\n    DivTextAP.HeightStyle := ssAuto;\r\n    DivTextAP.WidthStyle := ssAuto;\r\n    DivTextAP.ChildOrder := 48;\r\n    DivTextAP.ElementPosition := epIgnore;\r\n    DivTextAP.ElementFont := efCSS;\r\n    DivTextAP.Role := '';\r\n    btnroute.SetParentComponent(Self);\r\n    btnroute.Name := 'btnroute';\r\n    btnroute.Left := 16;\r\n    btnroute.Top := 207;\r\n    btnroute.Width := 96;\r\n    btnroute.Height := 25;\r\n    btnroute.Caption := 'Route';\r\n    btnroute.ChildOrder := 8;\r\n    btnroute.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnroute.ElementFont := efCSS;\r\n    btnroute.ElementPosition := epIgnore;\r\n    btnroute.HeightStyle := ssAuto;\r\n    btnroute.HeightPercent := 100.000000000000000000;\r\n    btnroute.WidthStyle := ssAuto;\r\n    btnroute.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnroute, Self, 'OnClick', 'btnrouteClick');\r\n    myDataSet.SetParentComponent(Self);\r\n    myDataSet.Name := 'myDataSet';\r\n    myDataSet.AfterApplyUpdates := myDataSetAfterApplyUpdates;\r\n    myDataSet.AfterOpen := myDataSetAfterOpen;\r\n    myDataSet.BeforeEdit := myDataSetBeforeEdit;\r\n    myDataSet.BeforePost := myDataSetBeforePost;\r\n    myDataSet.AfterPost := myDataSetAfterPost;\r\n    SetEvent(myDataSet, Self, 'OnNewRecord', 'myDataSetNewRecord');\r\n    myDataSet.EntitySetName := 'TermineNeu';\r\n    myDataSet.Connection := DM2.XDataWebConnection1;\r\n    myDataSet.SubpropsDepth := 1;\r\n    myDataSet.QueryTop := 1;\r\n    myDataSet.Left := 392;\r\n    myDataSet.Top := 15;\r\n    myDataSetArtikelnummer.SetParentComponent(myDataSet);\r\n    myDataSetArtikelnummer.Name := 'myDataSetArtikelnummer';\r\n    myDataSetArtikelnummer.FieldName := 'Artikelnummer';\r\n    myDataSetUID.SetParentComponent(myDataSet);\r\n    myDataSetUID.Name := 'myDataSetUID';\r\n    myDataSetUID.FieldName := 'UID';\r\n    myDataSetUID.Size := 38;\r\n    myDataSetBeginn.SetParentComponent(myDataSet);\r\n    myDataSetBeginn.Name := 'myDataSetBeginn';\r\n    myDataSetBeginn.FieldName := 'Beginn';\r\n    myDataSetEnde.SetParentComponent(myDataSet);\r\n    myDataSetEnde.Name := 'myDataSetEnde';\r\n    myDataSetEnde.FieldName := 'Ende';\r\n    myDataSetBetreff.SetParentComponent(myDataSet);\r\n    myDataSetBetreff.Name := 'myDataSetBetreff';\r\n    myDataSetBetreff.FieldName := 'Betreff';\r\n    myDataSetBetreff.Size := 255;\r\n    myDataSetTerminNotiz.SetParentComponent(myDataSet);\r\n    myDataSetTerminNotiz.Name := 'myDataSetTerminNotiz';\r\n    myDataSetTerminNotiz.FieldName := 'TerminNotiz';\r\n    myDataSetTerminNotiz.Size := 255;\r\n    myDataSetQuelle.SetParentComponent(myDataSet);\r\n    myDataSetQuelle.Name := 'myDataSetQuelle';\r\n    myDataSetQuelle.FieldName := 'Quelle';\r\n    myDataSetQuelle.Size := 10;\r\n    myDataSetGUIDOutlook.SetParentComponent(myDataSet);\r\n    myDataSetGUIDOutlook.Name := 'myDataSetGUIDOutlook';\r\n    myDataSetGUIDOutlook.FieldName := 'GUIDOutlook';\r\n    myDataSetGUIDOutlook.Size := 250;\r\n    myDataSetShape.SetParentComponent(myDataSet);\r\n    myDataSetShape.Name := 'myDataSetShape';\r\n    myDataSetShape.FieldName := 'Shape';\r\n    myDataSetColor.SetParentComponent(myDataSet);\r\n    myDataSetColor.Name := 'myDataSetColor';\r\n    myDataSetColor.FieldName := 'Color';\r\n    myDataSetAlarm.SetParentComponent(myDataSet);\r\n    myDataSetAlarm.Name := 'myDataSetAlarm';\r\n    myDataSetAlarm.FieldName := 'Alarm';\r\n    myDataSetResource.SetParentComponent(myDataSet);\r\n    myDataSetResource.Name := 'myDataSetResource';\r\n    myDataSetResource.FieldName := 'Resource';\r\n    myDataSetLastModificationTime.SetParentComponent(myDataSet);\r\n    myDataSetLastModificationTime.Name := 'myDataSetLastModificationTime';\r\n    myDataSetLastModificationTime.FieldName := 'LastModificationTime';\r\n    myDataSetGeburtstag.SetParentComponent(myDataSet);\r\n    myDataSetGeburtstag.Name := 'myDataSetGeburtstag';\r\n    myDataSetGeburtstag.FieldName := 'Geburtstag';\r\n    myDataSetAlarmBefore.SetParentComponent(myDataSet);\r\n    myDataSetAlarmBefore.Name := 'myDataSetAlarmBefore';\r\n    myDataSetAlarmBefore.FieldName := 'AlarmBefore';\r\n    myDataSetPersonalnummer.SetParentComponent(myDataSet);\r\n    myDataSetPersonalnummer.Name := 'myDataSetPersonalnummer';\r\n    myDataSetPersonalnummer.FieldName := 'Personalnummer';\r\n    myDataSetKundennummer.SetParentComponent(myDataSet);\r\n    myDataSetKundennummer.Name := 'myDataSetKundennummer';\r\n    myDataSetKundennummer.FieldName := 'Kundennummer';\r\n    myDataSetKundennummer.Size := 13;\r\n    myDataSetAllDayEventOutlook.SetParentComponent(myDataSet);\r\n    myDataSetAllDayEventOutlook.Name := 'myDataSetAllDayEventOutlook';\r\n    myDataSetAllDayEventOutlook.FieldName := 'AllDayEventOutlook';\r\n    myDataSetTMSCaption.SetParentComponent(myDataSet);\r\n    myDataSetTMSCaption.Name := 'myDataSetTMSCaption';\r\n    myDataSetTMSCaption.FieldName := 'TMSCaption';\r\n    myDataSetRECURRENCY.SetParentComponent(myDataSet);\r\n    myDataSetRECURRENCY.Name := 'myDataSetRECURRENCY';\r\n    myDataSetRECURRENCY.FieldName := 'RECURRENCY';\r\n    myDataSetRECURRENCY.Size := 255;\r\n    myDataSetMINTIME.SetParentComponent(myDataSet);\r\n    myDataSetMINTIME.Name := 'myDataSetMINTIME';\r\n    myDataSetMINTIME.FieldName := 'MINTIME';\r\n    myDataSetMAXTIME.SetParentComponent(myDataSet);\r\n    myDataSetMAXTIME.Name := 'myDataSetMAXTIME';\r\n    myDataSetMAXTIME.FieldName := 'MAXTIME';\r\n    myDataSetNachname.SetParentComponent(myDataSet);\r\n    myDataSetNachname.Name := 'myDataSetNachname';\r\n    myDataSetNachname.FieldName := 'Nachname';\r\n    myDataSetNachname.Size := 40;\r\n    myDataSetObjektReferenz.SetParentComponent(myDataSet);\r\n    myDataSetObjektReferenz.Name := 'myDataSetObjektReferenz';\r\n    myDataSetObjektReferenz.FieldName := 'ObjektReferenz';\r\n    myDataSetObjektReferenz.Size := 13;\r\n    myDataSetObjektnummer.SetParentComponent(myDataSet);\r\n    myDataSetObjektnummer.Name := 'myDataSetObjektnummer';\r\n    myDataSetObjektnummer.FieldName := 'Objektnummer';\r\n    myDataSetObjektnummer.Size := 25;\r\n    myDataSetTerminArt.SetParentComponent(myDataSet);\r\n    myDataSetTerminArt.Name := 'myDataSetTerminArt';\r\n    myDataSetTerminArt.FieldName := 'TerminArt';\r\n    myDataSetBeginnDatum.SetParentComponent(myDataSet);\r\n    myDataSetBeginnDatum.Name := 'myDataSetBeginnDatum';\r\n    myDataSetBeginnDatum.FieldName := 'BeginnDatum';\r\n    myDataSetBeginnUhrzeit.SetParentComponent(myDataSet);\r\n    myDataSetBeginnUhrzeit.Name := 'myDataSetBeginnUhrzeit';\r\n    myDataSetBeginnUhrzeit.FieldName := 'BeginnUhrzeit';\r\n    myDataSetEndeDatum.SetParentComponent(myDataSet);\r\n    myDataSetEndeDatum.Name := 'myDataSetEndeDatum';\r\n    myDataSetEndeDatum.FieldName := 'EndeDatum';\r\n    myDataSetEndeUhrzeit.SetParentComponent(myDataSet);\r\n    myDataSetEndeUhrzeit.Name := 'myDataSetEndeUhrzeit';\r\n    myDataSetEndeUhrzeit.FieldName := 'EndeUhrzeit';\r\n    myDataSetKalenderAnzeige.SetParentComponent(myDataSet);\r\n    myDataSetKalenderAnzeige.Name := 'myDataSetKalenderAnzeige';\r\n    myDataSetKalenderAnzeige.FieldName := 'KalenderAnzeige';\r\n    myDataSetStundensatz.SetParentComponent(myDataSet);\r\n    myDataSetStundensatz.Name := 'myDataSetStundensatz';\r\n    myDataSetStundensatz.FieldName := 'Stundensatz';\r\n    myDataSetStundensatz.DisplayFormat := '0.00';\r\n    myDataSetDauerStunden.SetParentComponent(myDataSet);\r\n    myDataSetDauerStunden.Name := 'myDataSetDauerStunden';\r\n    myDataSetDauerStunden.FieldName := 'DauerStunden';\r\n    myDataSetDauerStunden.DisplayFormat := '0.00 h';\r\n    myDataSetgefahrenekm.SetParentComponent(myDataSet);\r\n    myDataSetgefahrenekm.Name := 'myDataSetgefahrenekm';\r\n    myDataSetgefahrenekm.FieldName := 'gefahrenekm';\r\n    myDataSetAufwand.SetParentComponent(myDataSet);\r\n    myDataSetAufwand.Name := 'myDataSetAufwand';\r\n    myDataSetAufwand.FieldName := 'Aufwand';\r\n    myDataSetAufwand.DisplayFormat := '#,##0.00';\r\n    myDataSetabgerechnet.SetParentComponent(myDataSet);\r\n    myDataSetabgerechnet.Name := 'myDataSetabgerechnet';\r\n    myDataSetabgerechnet.FieldName := 'abgerechnet';\r\n    myDataSetverteilt.SetParentComponent(myDataSet);\r\n    myDataSetverteilt.Name := 'myDataSetverteilt';\r\n    myDataSetverteilt.FieldName := 'verteilt';\r\n    myDataSetTerminErledigt.SetParentComponent(myDataSet);\r\n    myDataSetTerminErledigt.Name := 'myDataSetTerminErledigt';\r\n    myDataSetTerminErledigt.FieldName := 'TerminErledigt';\r\n    myDataSetTerminErledigt.DisplayFormat := 'DD.MM.YYYY';\r\n    myDataSetAnsprechpartner.SetParentComponent(myDataSet);\r\n    myDataSetAnsprechpartner.Name := 'myDataSetAnsprechpartner';\r\n    myDataSetAnsprechpartner.FieldName := 'Ansprechpartner';\r\n    myDataSetAnsprechpartner.Size := 50;\r\n    myDataSetLocation.SetParentComponent(myDataSet);\r\n    myDataSetLocation.Name := 'myDataSetLocation';\r\n    myDataSetLocation.FieldName := 'Location';\r\n    myDataSetLocation.Size := 100;\r\n    myDataSetGoogleID.SetParentComponent(myDataSet);\r\n    myDataSetGoogleID.Name := 'myDataSetGoogleID';\r\n    myDataSetGoogleID.FieldName := 'GoogleID';\r\n    myDataSetGoogleID.Size := 50;\r\n    myDataSetGoogleCreatedUTC.SetParentComponent(myDataSet);\r\n    myDataSetGoogleCreatedUTC.Name := 'myDataSetGoogleCreatedUTC';\r\n    myDataSetGoogleCreatedUTC.FieldName := 'GoogleCreatedUTC';\r\n    myDataSetGoogleUpdatedUTC.SetParentComponent(myDataSet);\r\n    myDataSetGoogleUpdatedUTC.Name := 'myDataSetGoogleUpdatedUTC';\r\n    myDataSetGoogleUpdatedUTC.FieldName := 'GoogleUpdatedUTC';\r\n    myDataSetGoogleStatus.SetParentComponent(myDataSet);\r\n    myDataSetGoogleStatus.Name := 'myDataSetGoogleStatus';\r\n    myDataSetGoogleStatus.FieldName := 'GoogleStatus';\r\n    myDataSetGoogleStatus.Size := 50;\r\n    myDataSetVorname.SetParentComponent(myDataSet);\r\n    myDataSetVorname.Name := 'myDataSetVorname';\r\n    myDataSetVorname.FieldName := 'Vorname';\r\n    myDataSetVorname.Size := 40;\r\n    myDataSetPNachname.SetParentComponent(myDataSet);\r\n    myDataSetPNachname.Name := 'myDataSetPNachname';\r\n    myDataSetPNachname.FieldName := 'PNachname';\r\n    myDataSetPNachname.Size := 40;\r\n    myDataSetPVorname.SetParentComponent(myDataSet);\r\n    myDataSetPVorname.Name := 'myDataSetPVorname';\r\n    myDataSetPVorname.FieldName := 'PVorname';\r\n    myDataSetPVorname.Size := 40;\r\n    myDataSetArtikelueberschrift.SetParentComponent(myDataSet);\r\n    myDataSetArtikelueberschrift.Name := 'myDataSetArtikelueberschrift';\r\n    myDataSetArtikelueberschrift.FieldName := 'Artikelueberschrift';\r\n    myDataSetArtikelueberschrift.Size := 50;\r\n    myDataSetPFarbe.SetParentComponent(myDataSet);\r\n    myDataSetPFarbe.Name := 'myDataSetPFarbe';\r\n    myDataSetPFarbe.FieldName := 'PFarbe';\r\n    myDataSetKontaktart.SetParentComponent(myDataSet);\r\n    myDataSetKontaktart.Name := 'myDataSetKontaktart';\r\n    myDataSetKontaktart.FieldName := 'Kontaktart';\r\n    myDataSetKontaktart.Size := 25;\r\n    Source.SetParentComponent(Self);\r\n    Source.Name := 'Source';\r\n    Source.DataSet := myDataSet;\r\n    SetEvent(Source, Self, 'OnStateChange', 'SourceStateChange');\r\n    Source.Left := 392;\r\n    Source.Top := 63;\r\n    dsArtikel.SetParentComponent(Self);\r\n    dsArtikel.Name := 'dsArtikel';\r\n    dsArtikel.AfterOpen := dsArtikelAfterOpen;\r\n    dsArtikel.EntitySetName := 'Artikel';\r\n    dsArtikel.Connection := DM2.XDataWebConnection1;\r\n    dsArtikel.Left := 440;\r\n    dsArtikel.Top := 87;\r\n    dsArtikelArtikelnummer.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelnummer.Name := 'dsArtikelArtikelnummer';\r\n    dsArtikelArtikelnummer.FieldName := 'Artikelnummer';\r\n    dsArtikelArtikelnummer.Required := True;\r\n    dsArtikelArtikelnummer.Size := 25;\r\n    dskontakt.SetParentComponent(Self);\r\n    dskontakt.Name := 'dskontakt';\r\n    dskontakt.AfterOpen := dskontaktAfterOpen;\r\n    dskontakt.EntitySetName := 'Adressen';\r\n    dskontakt.Connection := DM2.XDataWebConnection1;\r\n    dskontakt.Left := 400;\r\n    dskontakt.Top := 159;\r\n    dskontaktKundennummer.SetParentComponent(dskontakt);\r\n    dskontaktKundennummer.Name := 'dskontaktKundennummer';\r\n    dskontaktKundennummer.FieldName := 'Kundennummer';\r\n    dskontaktKundennummer.Required := True;\r\n    dskontaktKundennummer.Size := 13;\r\n    dskontaktNachname.SetParentComponent(dskontakt);\r\n    dskontaktNachname.Name := 'dskontaktNachname';\r\n    dskontaktNachname.FieldName := 'Nachname';\r\n    dskontaktNachname.Size := 40;\r\n    dskontaktVorname.SetParentComponent(dskontakt);\r\n    dskontaktVorname.Name := 'dskontaktVorname';\r\n    dskontaktVorname.FieldName := 'Vorname';\r\n    dskontaktVorname.Size := 40;\r\n    dskontaktAdresszeile2.SetParentComponent(dskontakt);\r\n    dskontaktAdresszeile2.Name := 'dskontaktAdresszeile2';\r\n    dskontaktAdresszeile2.FieldName := 'Adresszeile2';\r\n    dskontaktAdresszeile2.Size := 40;\r\n    dskontaktAdresszeile3.SetParentComponent(dskontakt);\r\n    dskontaktAdresszeile3.Name := 'dskontaktAdresszeile3';\r\n    dskontaktAdresszeile3.FieldName := 'Adresszeile3';\r\n    dskontaktAdresszeile3.Size := 40;\r\n    dskontaktStrasse.SetParentComponent(dskontakt);\r\n    dskontaktStrasse.Name := 'dskontaktStrasse';\r\n    dskontaktStrasse.FieldName := 'Strasse';\r\n    dskontaktStrasse.Size := 40;\r\n    dskontaktPostleitzahl.SetParentComponent(dskontakt);\r\n    dskontaktPostleitzahl.Name := 'dskontaktPostleitzahl';\r\n    dskontaktPostleitzahl.FieldName := 'Postleitzahl';\r\n    dskontaktPostleitzahl.Size := 6;\r\n    dskontaktOrt.SetParentComponent(dskontakt);\r\n    dskontaktOrt.Name := 'dskontaktOrt';\r\n    dskontaktOrt.FieldName := 'Ort';\r\n    dskontaktOrt.Size := 40;\r\n    dskontaktLaenderkuerzel.SetParentComponent(dskontakt);\r\n    dskontaktLaenderkuerzel.Name := 'dskontaktLaenderkuerzel';\r\n    dskontaktLaenderkuerzel.FieldName := 'Laenderkuerzel';\r\n    dskontaktLaenderkuerzel.Size := 5;\r\n    dskontaktLand.SetParentComponent(dskontakt);\r\n    dskontaktLand.Name := 'dskontaktLand';\r\n    dskontaktLand.FieldName := 'Land';\r\n    dskontaktLand.Size := 40;\r\n    dskontaktKilometer.SetParentComponent(dskontakt);\r\n    dskontaktKilometer.Name := 'dskontaktKilometer';\r\n    dskontaktKilometer.FieldName := 'Kilometer';\r\n    dskontaktStundensatz.SetParentComponent(dskontakt);\r\n    dskontaktStundensatz.Name := 'dskontaktStundensatz';\r\n    dskontaktStundensatz.FieldName := 'Stundensatz';\r\n    dsKArten.SetParentComponent(Self);\r\n    dsKArten.Name := 'dsKArten';\r\n    dsKArten.AfterOpen := dsKArtenAfterOpen;\r\n    dsKArten.EntitySetName := 'kontaktart';\r\n    dsKArten.Connection := DM2.XDataWebConnection1;\r\n    dsKArten.Left := 400;\r\n    dsKArten.Top := 215;\r\n    dsKArtenKontaktart.SetParentComponent(dsKArten);\r\n    dsKArtenKontaktart.Name := 'dsKArtenKontaktart';\r\n    dsKArtenKontaktart.FieldName := 'Kontaktart';\r\n    dsKArtenKontaktart.Required := True;\r\n    dsKArtenKontaktart.Size := 25;\r\n    dsKArtenArtikelnummer.SetParentComponent(dsKArten);\r\n    dsKArtenArtikelnummer.Name := 'dsKArtenArtikelnummer';\r\n    dsKArtenArtikelnummer.FieldName := 'Artikelnummer';\r\n    dsKArtenArtikelnummer.Size := 25;\r\n    dsObjekt.SetParentComponent(Self);\r\n    dsObjekt.Name := 'dsObjekt';\r\n    dsObjekt.AfterOpen := dsObjektAfterOpen;\r\n    dsObjekt.EntitySetName := 'Objekte';\r\n    dsObjekt.Connection := DM2.XDataWebConnection1;\r\n    dsObjekt.Left := 400;\r\n    dsObjekt.Top := 271;\r\n    dsObjektObjektReferenz.SetParentComponent(dsObjekt);\r\n    dsObjektObjektReferenz.Name := 'dsObjektObjektReferenz';\r\n    dsObjektObjektReferenz.FieldName := 'ObjektReferenz';\r\n    dsObjektObjektReferenz.Required := True;\r\n    dsObjektObjektReferenz.Size := 13;\r\n    dsObjektKurzbezeichnung.SetParentComponent(dsObjekt);\r\n    dsObjektKurzbezeichnung.Name := 'dsObjektKurzbezeichnung';\r\n    dsObjektKurzbezeichnung.FieldName := 'Kurzbezeichnung';\r\n    dsObjektKurzbezeichnung.Size := 25;\r\n    dsObjektObjektnummer.SetParentComponent(dsObjekt);\r\n    dsObjektObjektnummer.Name := 'dsObjektObjektnummer';\r\n    dsObjektObjektnummer.FieldName := 'Objektnummer';\r\n    dsObjektObjektnummer.Size := 25;\r\n    dsAP.SetParentComponent(Self);\r\n    dsAP.Name := 'dsAP';\r\n    dsAP.AfterOpen := dsAPAfterOpen;\r\n    dsAP.EntitySetName := 'Ansprechpartner';\r\n    dsAP.Connection := DM2.XDataWebConnection1;\r\n    dsAP.Left := 400;\r\n    dsAP.Top := 327;\r\n    dsAPKundennummer.SetParentComponent(dsAP);\r\n    dsAPKundennummer.Name := 'dsAPKundennummer';\r\n    dsAPKundennummer.FieldName := 'Kundennummer';\r\n    dsAPKundennummer.Required := True;\r\n    dsAPAnsprechpartner.SetParentComponent(dsAP);\r\n    dsAPAnsprechpartner.Name := 'dsAPAnsprechpartner';\r\n    dsAPAnsprechpartner.FieldName := 'Ansprechpartner';\r\n    dsAPAnsprechpartner.Size := 50;\r\n    dsAPNachname.SetParentComponent(dsAP);\r\n    dsAPNachname.Name := 'dsAPNachname';\r\n    dsAPNachname.FieldName := 'Nachname';\r\n    dsAPNachname.Size := 40;\r\n    dsAPVorname.SetParentComponent(dsAP);\r\n    dsAPVorname.Name := 'dsAPVorname';\r\n    dsAPVorname.FieldName := 'Vorname';\r\n    dsAPVorname.Size := 40;\r\n    XDSlookupObjekt.SetParentComponent(Self);\r\n    XDSlookupObjekt.Name := 'XDSlookupObjekt';\r\n    XDSlookupObjekt.AfterOpen := XDSlookupObjektAfterOpen;\r\n    XDSlookupObjekt.EntitySetName := 'Objekte';\r\n    XDSlookupObjekt.Connection := DM2.XDataWebConnection1;\r\n    XDSlookupObjekt.QueryTop := 1;\r\n    XDSlookupObjekt.Left := 304;\r\n    XDSlookupObjekt.Top := 64;\r\n    XDSlookupObjektObjektReferenz.SetParentComponent(XDSlookupObjekt);\r\n    XDSlookupObjektObjektReferenz.Name := 'XDSlookupObjektObjektReferenz';\r\n    XDSlookupObjektObjektReferenz.FieldName := 'ObjektReferenz';\r\n    XDSlookupObjektObjektReferenz.Required := True;\r\n    XDSlookupObjektObjektReferenz.Size := 13;\r\n    XDSlookupObjektKurzbezeichnung.SetParentComponent(XDSlookupObjekt);\r\n    XDSlookupObjektKurzbezeichnung.Name := 'XDSlookupObjektKurzbezeichnung';\r\n    XDSlookupObjektKurzbezeichnung.FieldName := 'Kurzbezeichnung';\r\n    XDSlookupObjektKurzbezeichnung.Size := 25;\r\n    XDSlookupObjektObjektnummer.SetParentComponent(XDSlookupObjekt);\r\n    XDSlookupObjektObjektnummer.Name := 'XDSlookupObjektObjektnummer';\r\n    XDSlookupObjektObjektnummer.FieldName := 'Objektnummer';\r\n    XDSlookupObjektObjektnummer.Size := 25;\r\n  finally\r\n    lblTerminart.AfterLoadDFMValues;\r\n    lblBeginn.AfterLoadDFMValues;\r\n    lblEnde.AfterLoadDFMValues;\r\n    lblBetreff.AfterLoadDFMValues;\r\n    lblNotiz.AfterLoadDFMValues;\r\n    lblAnsprechpartner.AfterLoadDFMValues;\r\n    lblort.AfterLoadDFMValues;\r\n    lblkm.AfterLoadDFMValues;\r\n    lblMitarbeiter.AfterLoadDFMValues;\r\n    WebLabel2.AfterLoadDFMValues;\r\n    lblKontakt.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    btnObjektwahl.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    btnSpeichern.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    btnWV.AfterLoadDFMValues;\r\n    btnAktivitaet.AfterLoadDFMValues;\r\n    comboKontaktart.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    PickDateBeginn.AfterLoadDFMValues;\r\n    pickDateEnde.AfterLoadDFMValues;\r\n    PickTimeBeginn.AfterLoadDFMValues;\r\n    picktimeEnde.AfterLoadDFMValues;\r\n    edtBetreff.AfterLoadDFMValues;\r\n    edtNotiz.AfterLoadDFMValues;\r\n    ContainerBeginn.AfterLoadDFMValues;\r\n    ContainerEnde.AfterLoadDFMValues;\r\n    Container4.AfterLoadDFMValues;\r\n    Container5.AfterLoadDFMValues;\r\n    Container6.AfterLoadDFMValues;\r\n    btnKontaktZuordnen.AfterLoadDFMValues;\r\n    Container7.AfterLoadDFMValues;\r\n    Container8.AfterLoadDFMValues;\r\n    comboap.AfterLoadDFMValues;\r\n    edtOrt.AfterLoadDFMValues;\r\n    edtkm.AfterLoadDFMValues;\r\n    Container9.AfterLoadDFMValues;\r\n    Container10.AfterLoadDFMValues;\r\n    Container11.AfterLoadDFMValues;\r\n    btnTerminerledigt.AfterLoadDFMValues;\r\n    edtTerminerledigt.AfterLoadDFMValues;\r\n    edtAlarmBefore.AfterLoadDFMValues;\r\n    edtErinnerung.AfterLoadDFMValues;\r\n    Container12.AfterLoadDFMValues;\r\n    DivTextIntern.AfterLoadDFMValues;\r\n    DivTextObjekt.AfterLoadDFMValues;\r\n    DivTextAP.AfterLoadDFMValues;\r\n    btnroute.AfterLoadDFMValues;\r\n    myDataSet.AfterLoadDFMValues;\r\n    myDataSetArtikelnummer.AfterLoadDFMValues;\r\n    myDataSetUID.AfterLoadDFMValues;\r\n    myDataSetBeginn.AfterLoadDFMValues;\r\n    myDataSetEnde.AfterLoadDFMValues;\r\n    myDataSetBetreff.AfterLoadDFMValues;\r\n    myDataSetTerminNotiz.AfterLoadDFMValues;\r\n    myDataSetQuelle.AfterLoadDFMValues;\r\n    myDataSetGUIDOutlook.AfterLoadDFMValues;\r\n    myDataSetShape.AfterLoadDFMValues;\r\n    myDataSetColor.AfterLoadDFMValues;\r\n    myDataSetAlarm.AfterLoadDFMValues;\r\n    myDataSetResource.AfterLoadDFMValues;\r\n    myDataSetLastModificationTime.AfterLoadDFMValues;\r\n    myDataSetGeburtstag.AfterLoadDFMValues;\r\n    myDataSetAlarmBefore.AfterLoadDFMValues;\r\n    myDataSetPersonalnummer.AfterLoadDFMValues;\r\n    myDataSetKundennummer.AfterLoadDFMValues;\r\n    myDataSetAllDayEventOutlook.AfterLoadDFMValues;\r\n    myDataSetTMSCaption.AfterLoadDFMValues;\r\n    myDataSetRECURRENCY.AfterLoadDFMValues;\r\n    myDataSetMINTIME.AfterLoadDFMValues;\r\n    myDataSetMAXTIME.AfterLoadDFMValues;\r\n    myDataSetNachname.AfterLoadDFMValues;\r\n    myDataSetObjektReferenz.AfterLoadDFMValues;\r\n    myDataSetObjektnummer.AfterLoadDFMValues;\r\n    myDataSetTerminArt.AfterLoadDFMValues;\r\n    myDataSetBeginnDatum.AfterLoadDFMValues;\r\n    myDataSetBeginnUhrzeit.AfterLoadDFMValues;\r\n    myDataSetEndeDatum.AfterLoadDFMValues;\r\n    myDataSetEndeUhrzeit.AfterLoadDFMValues;\r\n    myDataSetKalenderAnzeige.AfterLoadDFMValues;\r\n    myDataSetStundensatz.AfterLoadDFMValues;\r\n    myDataSetDauerStunden.AfterLoadDFMValues;\r\n    myDataSetgefahrenekm.AfterLoadDFMValues;\r\n    myDataSetAufwand.AfterLoadDFMValues;\r\n    myDataSetabgerechnet.AfterLoadDFMValues;\r\n    myDataSetverteilt.AfterLoadDFMValues;\r\n    myDataSetTerminErledigt.AfterLoadDFMValues;\r\n    myDataSetAnsprechpartner.AfterLoadDFMValues;\r\n    myDataSetLocation.AfterLoadDFMValues;\r\n    myDataSetGoogleID.AfterLoadDFMValues;\r\n    myDataSetGoogleCreatedUTC.AfterLoadDFMValues;\r\n    myDataSetGoogleUpdatedUTC.AfterLoadDFMValues;\r\n    myDataSetGoogleStatus.AfterLoadDFMValues;\r\n    myDataSetVorname.AfterLoadDFMValues;\r\n    myDataSetPNachname.AfterLoadDFMValues;\r\n    myDataSetPVorname.AfterLoadDFMValues;\r\n    myDataSetArtikelueberschrift.AfterLoadDFMValues;\r\n    myDataSetPFarbe.AfterLoadDFMValues;\r\n    myDataSetKontaktart.AfterLoadDFMValues;\r\n    Source.AfterLoadDFMValues;\r\n    dsArtikel.AfterLoadDFMValues;\r\n    dsArtikelArtikelnummer.AfterLoadDFMValues;\r\n    dskontakt.AfterLoadDFMValues;\r\n    dskontaktKundennummer.AfterLoadDFMValues;\r\n    dskontaktNachname.AfterLoadDFMValues;\r\n    dskontaktVorname.AfterLoadDFMValues;\r\n    dskontaktAdresszeile2.AfterLoadDFMValues;\r\n    dskontaktAdresszeile3.AfterLoadDFMValues;\r\n    dskontaktStrasse.AfterLoadDFMValues;\r\n    dskontaktPostleitzahl.AfterLoadDFMValues;\r\n    dskontaktOrt.AfterLoadDFMValues;\r\n    dskontaktLaenderkuerzel.AfterLoadDFMValues;\r\n    dskontaktLand.AfterLoadDFMValues;\r\n    dskontaktKilometer.AfterLoadDFMValues;\r\n    dskontaktStundensatz.AfterLoadDFMValues;\r\n    dsKArten.AfterLoadDFMValues;\r\n    dsKArtenKontaktart.AfterLoadDFMValues;\r\n    dsKArtenArtikelnummer.AfterLoadDFMValues;\r\n    dsObjekt.AfterLoadDFMValues;\r\n    dsObjektObjektReferenz.AfterLoadDFMValues;\r\n    dsObjektKurzbezeichnung.AfterLoadDFMValues;\r\n    dsObjektObjektnummer.AfterLoadDFMValues;\r\n    dsAP.AfterLoadDFMValues;\r\n    dsAPKundennummer.AfterLoadDFMValues;\r\n    dsAPAnsprechpartner.AfterLoadDFMValues;\r\n    dsAPNachname.AfterLoadDFMValues;\r\n    dsAPVorname.AfterLoadDFMValues;\r\n    XDSlookupObjekt.AfterLoadDFMValues;\r\n    XDSlookupObjektObjektReferenz.AfterLoadDFMValues;\r\n    XDSlookupObjektKurzbezeichnung.AfterLoadDFMValues;\r\n    XDSlookupObjektObjektnummer.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit unit_AuftragTermine;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, WEBLib.Buttons, Vcl.Controls, Vcl.StdCtrls,\r\n  WEBLib.StdCtrls, WEBLib.ExtCtrls, Data.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, WEBLib.Grids, WEBLib.DBCtrls, WEBLib.DB, WEBLib.WebCtrls;\r\n\r\ntype\r\n  TAuftragTermine = class(TForm)\r\n    dsTermine: TXDataWebDataSet;\r\n    dsTermineArtikelnummer: TXDataWebEntityField;\r\n    dsTermineUID: TStringField;\r\n    dsTermineBeginn: TDateTimeField;\r\n    dsTermineEnde: TDateTimeField;\r\n    dsTermineBetreff: TStringField;\r\n    dsTermineTerminNotiz: TStringField;\r\n    dsTermineQuelle: TStringField;\r\n    dsTermineGUIDOutlook: TStringField;\r\n    dsTermineShape: TIntegerField;\r\n    dsTermineColor: TIntegerField;\r\n    dsTermineAlarm: TBooleanField;\r\n    dsTermineResource: TIntegerField;\r\n    dsTermineLastModificationTime: TDateTimeField;\r\n    dsTermineGeburtstag: TBooleanField;\r\n    dsTermineAlarmBefore: TIntegerField;\r\n    dsTerminePersonalnummer: TIntegerField;\r\n    dsTermineKundennummer: TStringField;\r\n    dsTermineAllDayEventOutlook: TBooleanField;\r\n    dsTermineTMSCaption: TBooleanField;\r\n    dsTermineRECURRENCY: TStringField;\r\n    dsTermineMINTIME: TDateTimeField;\r\n    dsTermineMAXTIME: TDateTimeField;\r\n    dsTermineNachname: TStringField;\r\n    dsTermineObjektReferenz: TStringField;\r\n    dsTermineObjektnummer: TStringField;\r\n    dsTermineTerminArt: TIntegerField;\r\n    dsTermineBeginnDatum: TDateTimeField;\r\n    dsTermineBeginnUhrzeit: TDateTimeField;\r\n    dsTermineEndeDatum: TDateTimeField;\r\n    dsTermineEndeUhrzeit: TDateTimeField;\r\n    dsTermineKalenderAnzeige: TBooleanField;\r\n    dsTermineStundensatz: TFloatField;\r\n    dsTermineDauerStunden: TFloatField;\r\n    dsTerminegefahrenekm: TFloatField;\r\n    dsTermineAufwand: TFloatField;\r\n    dsTermineabgerechnet: TBooleanField;\r\n    dsTermineverteilt: TDateTimeField;\r\n    dsTermineTerminErledigt: TDateTimeField;\r\n    dsTermineAnsprechpartner: TStringField;\r\n    dsTermineLocation: TStringField;\r\n    dsTermineGoogleID: TStringField;\r\n    dsTermineGoogleCreatedUTC: TDateTimeField;\r\n    dsTermineGoogleUpdatedUTC: TDateTimeField;\r\n    dsTermineGoogleStatus: TStringField;\r\n    dsTermineVorname: TStringField;\r\n    dsTerminePNachname: TStringField;\r\n    dsTerminePVorname: TStringField;\r\n    dsTermineArtikelueberschrift: TStringField;\r\n    dsTerminePFarbe: TIntegerField;\r\n    dsTermineKontaktart: TStringField;\r\n    dsTermineAuftrag: TStringField;\r\n    sourceTermine: TDataSource;\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    Container3: THTMLContainer;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure dsTermineAfterOpen(DataSet: TDataSet);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    MerkerAuftragTermine:string;\r\n    buttonzurueck:TButton;\r\n    EinzelCard:THTMLDiv;\r\n    procedure buttonzurueckclick(Sender:TObject);\r\n    procedure EinzelCardclick(Sender:TObject);\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  AuftragTermine: TAuftragTermine;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_Einzeltermin;\r\n{$R *.dfm}\r\n\r\nprocedure TAuftragTermine.buttonzurueckclick(Sender:TObject);\r\nbegin\r\n  dsTermine.Close;\r\n  self.close;\r\nend;\r\n\r\nprocedure TAuftragTermine.EinzelCardclick(Sender:TObject);\r\nvar\r\n  LFrm:TfrmEinzeltermin;\r\n  myTerminUID:string;\r\nbegin\r\n  myTerminUID:=(sender as THTMLDiv).ElementID;\r\n  Container3.HTML.text:='';\r\n  frmEinzeltermin := TfrmEinzeltermin.CreateNew(procedure(AForm: TObject)\r\n    begin\r\n      (AForm as TfrmEinzeltermin).TerminUID:=myTerminUID;\r\n    end\r\n    );\r\n\r\n  frmEinzeltermin.ShowModal(procedure(AValue: TModalResult)\r\n    begin\r\n      dsTermine.close;\r\n      dsTermine.Load;\r\n    end\r\n    );\r\nend;\r\n\r\n\r\nprocedure TAuftragTermine.dsTermineAfterOpen(DataSet: TDataSet);\r\nvar\r\n  myelement:TJSHTMLElement;\r\n  EinzelKarte:string;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Auftragstermine</h5></nav>';\r\n\r\n  Container2.HTML.Text:='';\r\n  myelement:=container2.ElementHandle;\r\n  buttonzurueck:=TButton.Create(self);\r\n  buttonzurueck.ElementClassName:='btn btn-info m-1 text-left';\r\n  buttonzurueck.HeightStyle:=ssauto;\r\n  buttonzurueck.WidthStyle:=ssauto;\r\n  buttonzurueck.tag:=0;\r\n  buttonzurueck.Caption:='<< zurück';\r\n  buttonzurueck.OnClick:=@buttonzurueckClick;\r\n  buttonzurueck.ParentElement:=myelement;\r\n  while not dsTermine.eof do\r\n  begin\r\n\r\n    Einzelkarte:='<div class=\"card-header\"><h5>'+formatdatetime('DD.MM.YY hh:mm',dsTermineBeginn.Asdatetime)+' - '+formatdatetime('DD.MM.YY hh:mm',dsTermineEnde.Asdatetime)+'</h5><h6>'+dsTermineBetreff.AsString+'</h6></div>';\r\n    Einzelkarte:=Einzelkarte+'<div class=\"card-body \">'+trim(dsTerminePVorname.AsString+' '+dsTerminePNachname.AsString);\r\n    Einzelkarte:=Einzelkarte+'<br><b>'+dsTermineTerminNotiz.AsString+'</b><br>';\r\n    Einzelkarte:=Einzelkarte+dsTermineKundennummer.AsString+' '+dsTermineNachname.AsString+'<br>';\r\n    Einzelkarte:=Einzelkarte+'</div>';\r\n\r\n\r\n    myelement:=Container3.ElementHandle;\r\n    EinzelCard:=THTMLDiv.Create(self);\r\n    EinzelCard.ElementID:=dsTermineUID.asstring;\r\n    EinzelCard.HeightStyle:=ssauto;\r\n    EinzelCard.Width:=350;\r\n    EinzelCard.HTML.Text:=Einzelkarte;\r\n    EinzelCard.ElementClassName:='card m-1 border-info';\r\n    EinzelCard.OnClick:=@EinzelCardClick;\r\n    EinzelCard.ParentElement:=myelement;\r\n\r\n    dsTermine.Next;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TAuftragTermine.WebFormShow(Sender: TObject);\r\nbegin\r\n  dsTermine.Close;\r\n  dsTermine.QueryString:='$filter=Auftrag eq '+QuotedStr(MerkerAuftragTermine);\r\n  dsTermine.Load;\r\nend;\r\n\r\nprocedure TAuftragTermine.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  dsTermine := TXDataWebDataSet.Create(Self);\r\n  dsTermineArtikelnummer := TXDataWebEntityField.Create(Self);\r\n  dsTermineUID := TStringField.Create(Self);\r\n  dsTermineBeginn := TDateTimeField.Create(Self);\r\n  dsTermineEnde := TDateTimeField.Create(Self);\r\n  dsTermineBetreff := TStringField.Create(Self);\r\n  dsTermineTerminNotiz := TStringField.Create(Self);\r\n  dsTermineQuelle := TStringField.Create(Self);\r\n  dsTermineGUIDOutlook := TStringField.Create(Self);\r\n  dsTermineShape := TIntegerField.Create(Self);\r\n  dsTermineColor := TIntegerField.Create(Self);\r\n  dsTermineAlarm := TBooleanField.Create(Self);\r\n  dsTermineResource := TIntegerField.Create(Self);\r\n  dsTermineLastModificationTime := TDateTimeField.Create(Self);\r\n  dsTermineGeburtstag := TBooleanField.Create(Self);\r\n  dsTermineAlarmBefore := TIntegerField.Create(Self);\r\n  dsTerminePersonalnummer := TIntegerField.Create(Self);\r\n  dsTermineKundennummer := TStringField.Create(Self);\r\n  dsTermineAllDayEventOutlook := TBooleanField.Create(Self);\r\n  dsTermineTMSCaption := TBooleanField.Create(Self);\r\n  dsTermineRECURRENCY := TStringField.Create(Self);\r\n  dsTermineMINTIME := TDateTimeField.Create(Self);\r\n  dsTermineMAXTIME := TDateTimeField.Create(Self);\r\n  dsTermineNachname := TStringField.Create(Self);\r\n  dsTermineObjektReferenz := TStringField.Create(Self);\r\n  dsTermineObjektnummer := TStringField.Create(Self);\r\n  dsTermineTerminArt := TIntegerField.Create(Self);\r\n  dsTermineBeginnDatum := TDateTimeField.Create(Self);\r\n  dsTermineBeginnUhrzeit := TDateTimeField.Create(Self);\r\n  dsTermineEndeDatum := TDateTimeField.Create(Self);\r\n  dsTermineEndeUhrzeit := TDateTimeField.Create(Self);\r\n  dsTermineKalenderAnzeige := TBooleanField.Create(Self);\r\n  dsTermineStundensatz := TFloatField.Create(Self);\r\n  dsTermineDauerStunden := TFloatField.Create(Self);\r\n  dsTerminegefahrenekm := TFloatField.Create(Self);\r\n  dsTermineAufwand := TFloatField.Create(Self);\r\n  dsTermineabgerechnet := TBooleanField.Create(Self);\r\n  dsTermineverteilt := TDateTimeField.Create(Self);\r\n  dsTermineTerminErledigt := TDateTimeField.Create(Self);\r\n  dsTermineAnsprechpartner := TStringField.Create(Self);\r\n  dsTermineLocation := TStringField.Create(Self);\r\n  dsTermineGoogleID := TStringField.Create(Self);\r\n  dsTermineGoogleCreatedUTC := TDateTimeField.Create(Self);\r\n  dsTermineGoogleUpdatedUTC := TDateTimeField.Create(Self);\r\n  dsTermineGoogleStatus := TStringField.Create(Self);\r\n  dsTermineVorname := TStringField.Create(Self);\r\n  dsTerminePNachname := TStringField.Create(Self);\r\n  dsTerminePVorname := TStringField.Create(Self);\r\n  dsTermineArtikelueberschrift := TStringField.Create(Self);\r\n  dsTerminePFarbe := TIntegerField.Create(Self);\r\n  dsTermineKontaktart := TStringField.Create(Self);\r\n  dsTermineAuftrag := TStringField.Create(Self);\r\n  sourceTermine := TDataSource.Create(Self);\r\n\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  dsTermine.BeforeLoadDFMValues;\r\n  dsTermineArtikelnummer.BeforeLoadDFMValues;\r\n  dsTermineUID.BeforeLoadDFMValues;\r\n  dsTermineBeginn.BeforeLoadDFMValues;\r\n  dsTermineEnde.BeforeLoadDFMValues;\r\n  dsTermineBetreff.BeforeLoadDFMValues;\r\n  dsTermineTerminNotiz.BeforeLoadDFMValues;\r\n  dsTermineQuelle.BeforeLoadDFMValues;\r\n  dsTermineGUIDOutlook.BeforeLoadDFMValues;\r\n  dsTermineShape.BeforeLoadDFMValues;\r\n  dsTermineColor.BeforeLoadDFMValues;\r\n  dsTermineAlarm.BeforeLoadDFMValues;\r\n  dsTermineResource.BeforeLoadDFMValues;\r\n  dsTermineLastModificationTime.BeforeLoadDFMValues;\r\n  dsTermineGeburtstag.BeforeLoadDFMValues;\r\n  dsTermineAlarmBefore.BeforeLoadDFMValues;\r\n  dsTerminePersonalnummer.BeforeLoadDFMValues;\r\n  dsTermineKundennummer.BeforeLoadDFMValues;\r\n  dsTermineAllDayEventOutlook.BeforeLoadDFMValues;\r\n  dsTermineTMSCaption.BeforeLoadDFMValues;\r\n  dsTermineRECURRENCY.BeforeLoadDFMValues;\r\n  dsTermineMINTIME.BeforeLoadDFMValues;\r\n  dsTermineMAXTIME.BeforeLoadDFMValues;\r\n  dsTermineNachname.BeforeLoadDFMValues;\r\n  dsTermineObjektReferenz.BeforeLoadDFMValues;\r\n  dsTermineObjektnummer.BeforeLoadDFMValues;\r\n  dsTermineTerminArt.BeforeLoadDFMValues;\r\n  dsTermineBeginnDatum.BeforeLoadDFMValues;\r\n  dsTermineBeginnUhrzeit.BeforeLoadDFMValues;\r\n  dsTermineEndeDatum.BeforeLoadDFMValues;\r\n  dsTermineEndeUhrzeit.BeforeLoadDFMValues;\r\n  dsTermineKalenderAnzeige.BeforeLoadDFMValues;\r\n  dsTermineStundensatz.BeforeLoadDFMValues;\r\n  dsTermineDauerStunden.BeforeLoadDFMValues;\r\n  dsTerminegefahrenekm.BeforeLoadDFMValues;\r\n  dsTermineAufwand.BeforeLoadDFMValues;\r\n  dsTermineabgerechnet.BeforeLoadDFMValues;\r\n  dsTermineverteilt.BeforeLoadDFMValues;\r\n  dsTermineTerminErledigt.BeforeLoadDFMValues;\r\n  dsTermineAnsprechpartner.BeforeLoadDFMValues;\r\n  dsTermineLocation.BeforeLoadDFMValues;\r\n  dsTermineGoogleID.BeforeLoadDFMValues;\r\n  dsTermineGoogleCreatedUTC.BeforeLoadDFMValues;\r\n  dsTermineGoogleUpdatedUTC.BeforeLoadDFMValues;\r\n  dsTermineGoogleStatus.BeforeLoadDFMValues;\r\n  dsTermineVorname.BeforeLoadDFMValues;\r\n  dsTerminePNachname.BeforeLoadDFMValues;\r\n  dsTerminePVorname.BeforeLoadDFMValues;\r\n  dsTermineArtikelueberschrift.BeforeLoadDFMValues;\r\n  dsTerminePFarbe.BeforeLoadDFMValues;\r\n  dsTermineKontaktart.BeforeLoadDFMValues;\r\n  dsTermineAuftrag.BeforeLoadDFMValues;\r\n  sourceTermine.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'AuftragTermine';\r\n    Width := 174;\r\n    Height := 201;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    Font.Charset := DEFAULT_CHARSET;\r\n    Font.Color := clWindowText;\r\n    Font.Height := -11;\r\n    Font.Name := 'Tahoma';\r\n    Font.Style := [];\r\n    ParentFont := False;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.HeightPercent := 100.000000000000000000;\r\n    Container1.WidthPercent := 100.000000000000000000;\r\n    Container1.ChildOrder := 1;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.HeightPercent := 100.000000000000000000;\r\n    Container2.WidthPercent := 100.000000000000000000;\r\n    Container2.ChildOrder := 5;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.HeightPercent := 100.000000000000000000;\r\n    Container3.WidthPercent := 100.000000000000000000;\r\n    Container3.ChildOrder := 5;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    dsTermine.SetParentComponent(Self);\r\n    dsTermine.Name := 'dsTermine';\r\n    dsTermine.AfterOpen := dsTermineAfterOpen;\r\n    dsTermine.EntitySetName := 'TermineNeu';\r\n    dsTermine.Connection := DM2.XDataWebConnection1;\r\n    dsTermine.Left := 116;\r\n    dsTermine.Top := 72;\r\n    dsTermineArtikelnummer.SetParentComponent(dsTermine);\r\n    dsTermineArtikelnummer.Name := 'dsTermineArtikelnummer';\r\n    dsTermineArtikelnummer.FieldName := 'Artikelnummer';\r\n    dsTermineUID.SetParentComponent(dsTermine);\r\n    dsTermineUID.Name := 'dsTermineUID';\r\n    dsTermineUID.FieldName := 'UID';\r\n    dsTermineUID.Required := True;\r\n    dsTermineUID.Size := 38;\r\n    dsTermineBeginn.SetParentComponent(dsTermine);\r\n    dsTermineBeginn.Name := 'dsTermineBeginn';\r\n    dsTermineBeginn.FieldName := 'Beginn';\r\n    dsTermineEnde.SetParentComponent(dsTermine);\r\n    dsTermineEnde.Name := 'dsTermineEnde';\r\n    dsTermineEnde.FieldName := 'Ende';\r\n    dsTermineBetreff.SetParentComponent(dsTermine);\r\n    dsTermineBetreff.Name := 'dsTermineBetreff';\r\n    dsTermineBetreff.FieldName := 'Betreff';\r\n    dsTermineBetreff.Size := 255;\r\n    dsTermineTerminNotiz.SetParentComponent(dsTermine);\r\n    dsTermineTerminNotiz.Name := 'dsTermineTerminNotiz';\r\n    dsTermineTerminNotiz.FieldName := 'TerminNotiz';\r\n    dsTermineTerminNotiz.Size := 255;\r\n    dsTermineQuelle.SetParentComponent(dsTermine);\r\n    dsTermineQuelle.Name := 'dsTermineQuelle';\r\n    dsTermineQuelle.FieldName := 'Quelle';\r\n    dsTermineQuelle.Size := 10;\r\n    dsTermineGUIDOutlook.SetParentComponent(dsTermine);\r\n    dsTermineGUIDOutlook.Name := 'dsTermineGUIDOutlook';\r\n    dsTermineGUIDOutlook.FieldName := 'GUIDOutlook';\r\n    dsTermineGUIDOutlook.Size := 250;\r\n    dsTermineShape.SetParentComponent(dsTermine);\r\n    dsTermineShape.Name := 'dsTermineShape';\r\n    dsTermineShape.FieldName := 'Shape';\r\n    dsTermineColor.SetParentComponent(dsTermine);\r\n    dsTermineColor.Name := 'dsTermineColor';\r\n    dsTermineColor.FieldName := 'Color';\r\n    dsTermineAlarm.SetParentComponent(dsTermine);\r\n    dsTermineAlarm.Name := 'dsTermineAlarm';\r\n    dsTermineAlarm.FieldName := 'Alarm';\r\n    dsTermineResource.SetParentComponent(dsTermine);\r\n    dsTermineResource.Name := 'dsTermineResource';\r\n    dsTermineResource.FieldName := 'Resource';\r\n    dsTermineLastModificationTime.SetParentComponent(dsTermine);\r\n    dsTermineLastModificationTime.Name := 'dsTermineLastModificationTime';\r\n    dsTermineLastModificationTime.FieldName := 'LastModificationTime';\r\n    dsTermineGeburtstag.SetParentComponent(dsTermine);\r\n    dsTermineGeburtstag.Name := 'dsTermineGeburtstag';\r\n    dsTermineGeburtstag.FieldName := 'Geburtstag';\r\n    dsTermineAlarmBefore.SetParentComponent(dsTermine);\r\n    dsTermineAlarmBefore.Name := 'dsTermineAlarmBefore';\r\n    dsTermineAlarmBefore.FieldName := 'AlarmBefore';\r\n    dsTerminePersonalnummer.SetParentComponent(dsTermine);\r\n    dsTerminePersonalnummer.Name := 'dsTerminePersonalnummer';\r\n    dsTerminePersonalnummer.FieldName := 'Personalnummer';\r\n    dsTermineKundennummer.SetParentComponent(dsTermine);\r\n    dsTermineKundennummer.Name := 'dsTermineKundennummer';\r\n    dsTermineKundennummer.FieldName := 'Kundennummer';\r\n    dsTermineKundennummer.Size := 13;\r\n    dsTermineAllDayEventOutlook.SetParentComponent(dsTermine);\r\n    dsTermineAllDayEventOutlook.Name := 'dsTermineAllDayEventOutlook';\r\n    dsTermineAllDayEventOutlook.FieldName := 'AllDayEventOutlook';\r\n    dsTermineTMSCaption.SetParentComponent(dsTermine);\r\n    dsTermineTMSCaption.Name := 'dsTermineTMSCaption';\r\n    dsTermineTMSCaption.FieldName := 'TMSCaption';\r\n    dsTermineRECURRENCY.SetParentComponent(dsTermine);\r\n    dsTermineRECURRENCY.Name := 'dsTermineRECURRENCY';\r\n    dsTermineRECURRENCY.FieldName := 'RECURRENCY';\r\n    dsTermineRECURRENCY.Size := 255;\r\n    dsTermineMINTIME.SetParentComponent(dsTermine);\r\n    dsTermineMINTIME.Name := 'dsTermineMINTIME';\r\n    dsTermineMINTIME.FieldName := 'MINTIME';\r\n    dsTermineMAXTIME.SetParentComponent(dsTermine);\r\n    dsTermineMAXTIME.Name := 'dsTermineMAXTIME';\r\n    dsTermineMAXTIME.FieldName := 'MAXTIME';\r\n    dsTermineNachname.SetParentComponent(dsTermine);\r\n    dsTermineNachname.Name := 'dsTermineNachname';\r\n    dsTermineNachname.FieldName := 'Nachname';\r\n    dsTermineNachname.Size := 40;\r\n    dsTermineObjektReferenz.SetParentComponent(dsTermine);\r\n    dsTermineObjektReferenz.Name := 'dsTermineObjektReferenz';\r\n    dsTermineObjektReferenz.FieldName := 'ObjektReferenz';\r\n    dsTermineObjektReferenz.Size := 13;\r\n    dsTermineObjektnummer.SetParentComponent(dsTermine);\r\n    dsTermineObjektnummer.Name := 'dsTermineObjektnummer';\r\n    dsTermineObjektnummer.FieldName := 'Objektnummer';\r\n    dsTermineObjektnummer.Size := 25;\r\n    dsTermineTerminArt.SetParentComponent(dsTermine);\r\n    dsTermineTerminArt.Name := 'dsTermineTerminArt';\r\n    dsTermineTerminArt.FieldName := 'TerminArt';\r\n    dsTermineBeginnDatum.SetParentComponent(dsTermine);\r\n    dsTermineBeginnDatum.Name := 'dsTermineBeginnDatum';\r\n    dsTermineBeginnDatum.FieldName := 'BeginnDatum';\r\n    dsTermineBeginnUhrzeit.SetParentComponent(dsTermine);\r\n    dsTermineBeginnUhrzeit.Name := 'dsTermineBeginnUhrzeit';\r\n    dsTermineBeginnUhrzeit.FieldName := 'BeginnUhrzeit';\r\n    dsTermineEndeDatum.SetParentComponent(dsTermine);\r\n    dsTermineEndeDatum.Name := 'dsTermineEndeDatum';\r\n    dsTermineEndeDatum.FieldName := 'EndeDatum';\r\n    dsTermineEndeUhrzeit.SetParentComponent(dsTermine);\r\n    dsTermineEndeUhrzeit.Name := 'dsTermineEndeUhrzeit';\r\n    dsTermineEndeUhrzeit.FieldName := 'EndeUhrzeit';\r\n    dsTermineKalenderAnzeige.SetParentComponent(dsTermine);\r\n    dsTermineKalenderAnzeige.Name := 'dsTermineKalenderAnzeige';\r\n    dsTermineKalenderAnzeige.FieldName := 'KalenderAnzeige';\r\n    dsTermineStundensatz.SetParentComponent(dsTermine);\r\n    dsTermineStundensatz.Name := 'dsTermineStundensatz';\r\n    dsTermineStundensatz.FieldName := 'Stundensatz';\r\n    dsTermineDauerStunden.SetParentComponent(dsTermine);\r\n    dsTermineDauerStunden.Name := 'dsTermineDauerStunden';\r\n    dsTermineDauerStunden.FieldName := 'DauerStunden';\r\n    dsTerminegefahrenekm.SetParentComponent(dsTermine);\r\n    dsTerminegefahrenekm.Name := 'dsTerminegefahrenekm';\r\n    dsTerminegefahrenekm.FieldName := 'gefahrenekm';\r\n    dsTermineAufwand.SetParentComponent(dsTermine);\r\n    dsTermineAufwand.Name := 'dsTermineAufwand';\r\n    dsTermineAufwand.FieldName := 'Aufwand';\r\n    dsTermineabgerechnet.SetParentComponent(dsTermine);\r\n    dsTermineabgerechnet.Name := 'dsTermineabgerechnet';\r\n    dsTermineabgerechnet.FieldName := 'abgerechnet';\r\n    dsTermineverteilt.SetParentComponent(dsTermine);\r\n    dsTermineverteilt.Name := 'dsTermineverteilt';\r\n    dsTermineverteilt.FieldName := 'verteilt';\r\n    dsTermineTerminErledigt.SetParentComponent(dsTermine);\r\n    dsTermineTerminErledigt.Name := 'dsTermineTerminErledigt';\r\n    dsTermineTerminErledigt.FieldName := 'TerminErledigt';\r\n    dsTermineAnsprechpartner.SetParentComponent(dsTermine);\r\n    dsTermineAnsprechpartner.Name := 'dsTermineAnsprechpartner';\r\n    dsTermineAnsprechpartner.FieldName := 'Ansprechpartner';\r\n    dsTermineAnsprechpartner.Size := 50;\r\n    dsTermineLocation.SetParentComponent(dsTermine);\r\n    dsTermineLocation.Name := 'dsTermineLocation';\r\n    dsTermineLocation.FieldName := 'Location';\r\n    dsTermineLocation.Size := 100;\r\n    dsTermineGoogleID.SetParentComponent(dsTermine);\r\n    dsTermineGoogleID.Name := 'dsTermineGoogleID';\r\n    dsTermineGoogleID.FieldName := 'GoogleID';\r\n    dsTermineGoogleID.Size := 50;\r\n    dsTermineGoogleCreatedUTC.SetParentComponent(dsTermine);\r\n    dsTermineGoogleCreatedUTC.Name := 'dsTermineGoogleCreatedUTC';\r\n    dsTermineGoogleCreatedUTC.FieldName := 'GoogleCreatedUTC';\r\n    dsTermineGoogleUpdatedUTC.SetParentComponent(dsTermine);\r\n    dsTermineGoogleUpdatedUTC.Name := 'dsTermineGoogleUpdatedUTC';\r\n    dsTermineGoogleUpdatedUTC.FieldName := 'GoogleUpdatedUTC';\r\n    dsTermineGoogleStatus.SetParentComponent(dsTermine);\r\n    dsTermineGoogleStatus.Name := 'dsTermineGoogleStatus';\r\n    dsTermineGoogleStatus.FieldName := 'GoogleStatus';\r\n    dsTermineGoogleStatus.Size := 50;\r\n    dsTermineVorname.SetParentComponent(dsTermine);\r\n    dsTermineVorname.Name := 'dsTermineVorname';\r\n    dsTermineVorname.FieldName := 'Vorname';\r\n    dsTermineVorname.Size := 40;\r\n    dsTerminePNachname.SetParentComponent(dsTermine);\r\n    dsTerminePNachname.Name := 'dsTerminePNachname';\r\n    dsTerminePNachname.FieldName := 'PNachname';\r\n    dsTerminePNachname.Size := 40;\r\n    dsTerminePVorname.SetParentComponent(dsTermine);\r\n    dsTerminePVorname.Name := 'dsTerminePVorname';\r\n    dsTerminePVorname.FieldName := 'PVorname';\r\n    dsTerminePVorname.Size := 40;\r\n    dsTermineArtikelueberschrift.SetParentComponent(dsTermine);\r\n    dsTermineArtikelueberschrift.Name := 'dsTermineArtikelueberschrift';\r\n    dsTermineArtikelueberschrift.FieldName := 'Artikelueberschrift';\r\n    dsTermineArtikelueberschrift.Size := 50;\r\n    dsTerminePFarbe.SetParentComponent(dsTermine);\r\n    dsTerminePFarbe.Name := 'dsTerminePFarbe';\r\n    dsTerminePFarbe.FieldName := 'PFarbe';\r\n    dsTermineKontaktart.SetParentComponent(dsTermine);\r\n    dsTermineKontaktart.Name := 'dsTermineKontaktart';\r\n    dsTermineKontaktart.FieldName := 'Kontaktart';\r\n    dsTermineKontaktart.Size := 25;\r\n    dsTermineAuftrag.SetParentComponent(dsTermine);\r\n    dsTermineAuftrag.Name := 'dsTermineAuftrag';\r\n    dsTermineAuftrag.FieldName := 'Auftrag';\r\n    dsTermineAuftrag.Size := 10;\r\n    sourceTermine.SetParentComponent(Self);\r\n    sourceTermine.Name := 'sourceTermine';\r\n    sourceTermine.DataSet := dsTermine;\r\n    sourceTermine.Left := 32;\r\n    sourceTermine.Top := 72;\r\n  finally\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    dsTermine.AfterLoadDFMValues;\r\n    dsTermineArtikelnummer.AfterLoadDFMValues;\r\n    dsTermineUID.AfterLoadDFMValues;\r\n    dsTermineBeginn.AfterLoadDFMValues;\r\n    dsTermineEnde.AfterLoadDFMValues;\r\n    dsTermineBetreff.AfterLoadDFMValues;\r\n    dsTermineTerminNotiz.AfterLoadDFMValues;\r\n    dsTermineQuelle.AfterLoadDFMValues;\r\n    dsTermineGUIDOutlook.AfterLoadDFMValues;\r\n    dsTermineShape.AfterLoadDFMValues;\r\n    dsTermineColor.AfterLoadDFMValues;\r\n    dsTermineAlarm.AfterLoadDFMValues;\r\n    dsTermineResource.AfterLoadDFMValues;\r\n    dsTermineLastModificationTime.AfterLoadDFMValues;\r\n    dsTermineGeburtstag.AfterLoadDFMValues;\r\n    dsTermineAlarmBefore.AfterLoadDFMValues;\r\n    dsTerminePersonalnummer.AfterLoadDFMValues;\r\n    dsTermineKundennummer.AfterLoadDFMValues;\r\n    dsTermineAllDayEventOutlook.AfterLoadDFMValues;\r\n    dsTermineTMSCaption.AfterLoadDFMValues;\r\n    dsTermineRECURRENCY.AfterLoadDFMValues;\r\n    dsTermineMINTIME.AfterLoadDFMValues;\r\n    dsTermineMAXTIME.AfterLoadDFMValues;\r\n    dsTermineNachname.AfterLoadDFMValues;\r\n    dsTermineObjektReferenz.AfterLoadDFMValues;\r\n    dsTermineObjektnummer.AfterLoadDFMValues;\r\n    dsTermineTerminArt.AfterLoadDFMValues;\r\n    dsTermineBeginnDatum.AfterLoadDFMValues;\r\n    dsTermineBeginnUhrzeit.AfterLoadDFMValues;\r\n    dsTermineEndeDatum.AfterLoadDFMValues;\r\n    dsTermineEndeUhrzeit.AfterLoadDFMValues;\r\n    dsTermineKalenderAnzeige.AfterLoadDFMValues;\r\n    dsTermineStundensatz.AfterLoadDFMValues;\r\n    dsTermineDauerStunden.AfterLoadDFMValues;\r\n    dsTerminegefahrenekm.AfterLoadDFMValues;\r\n    dsTermineAufwand.AfterLoadDFMValues;\r\n    dsTermineabgerechnet.AfterLoadDFMValues;\r\n    dsTermineverteilt.AfterLoadDFMValues;\r\n    dsTermineTerminErledigt.AfterLoadDFMValues;\r\n    dsTermineAnsprechpartner.AfterLoadDFMValues;\r\n    dsTermineLocation.AfterLoadDFMValues;\r\n    dsTermineGoogleID.AfterLoadDFMValues;\r\n    dsTermineGoogleCreatedUTC.AfterLoadDFMValues;\r\n    dsTermineGoogleUpdatedUTC.AfterLoadDFMValues;\r\n    dsTermineGoogleStatus.AfterLoadDFMValues;\r\n    dsTermineVorname.AfterLoadDFMValues;\r\n    dsTerminePNachname.AfterLoadDFMValues;\r\n    dsTerminePVorname.AfterLoadDFMValues;\r\n    dsTermineArtikelueberschrift.AfterLoadDFMValues;\r\n    dsTerminePFarbe.AfterLoadDFMValues;\r\n    dsTermineKontaktart.AfterLoadDFMValues;\r\n    dsTermineAuftrag.AfterLoadDFMValues;\r\n    sourceTermine.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit unit_AuftragPosEinzel;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, DB, XData.Web.JsonDataset, XData.Web.Dataset,\r\n  Vcl.StdCtrls, WEBLib.StdCtrls, WEBLib.Grids, Vcl.Controls, WEBLib.ExtCtrls, dateutils, strutils,\r\n  WEBLib.DBCtrls;\r\n\r\ntype\r\n  TAuftragPosEinzel = class(TForm)\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    btnPosAbbrechen: TButton;\r\n    btnPosSpeichern: TButton;\r\n    btnPositionLoeschen: TButton;\r\n    xdsPosition: TXDataWebDataSet;\r\n    xdsPositionID: TIntegerField;\r\n    xdsPositionPosNr: TFloatField;\r\n    xdsPositionPosUNr: TFloatField;\r\n    xdsPositionArtikelueberschrift: TStringField;\r\n    xdsPositionArtikelbeschreibung: TStringField;\r\n    xdsPositionMenge: TFloatField;\r\n    xdsPositionArtderMenge: TStringField;\r\n    xdsPositionVerkaufspreis: TFloatField;\r\n    xdsPositionEinkaufspreis: TFloatField;\r\n    xdsPositionArtikelnummer: TXDataWebEntityField;\r\n    xdsPositionMonteurP: TIntegerField;\r\n    xdsPositionArbeitszeitDatum: TDateTimeField;\r\n    xdsPositionArbeitszeitVON: TDateTimeField;\r\n    xdsPositionArbeitszeitBIS: TDateTimeField;\r\n    xdsPositionSumme: TBooleanField;\r\n    xdsPositionSeriennummer: TStringField;\r\n    xdsPositionWarengruppe: TStringField;\r\n    xdsPositionWarenuntergruppe: TStringField;\r\n    xdsPositionArtikelnummerKunde: TStringField;\r\n    xdsPositionLieferant: TStringField;\r\n    xdsPositionGewicht: TFloatField;\r\n    xdsPositionLaenge: TFloatField;\r\n    xdsPositionBreite: TFloatField;\r\n    xdsPositionHoehe: TFloatField;\r\n    xdsPositionMehrwertsteuersatz: TFloatField;\r\n    xdsPositionEndpreis: TFloatField;\r\n    xdsPositionPosMWST: TFloatField;\r\n    xdsPositionBruttoEndpreis: TFloatField;\r\n    xdsPositionEndpreis_EK: TFloatField;\r\n    xdsPositionRabattsatz: TFloatField;\r\n    xdsPositionPreisvorRabatt: TFloatField;\r\n    xdsPositionPKZ: TFloatField;\r\n    xdsPositionTextfrei10: TStringField;\r\n    xdsPositionTextfrei20: TStringField;\r\n    xdsPositionProduktionAbgeschlossen: TDateTimeField;\r\n    xdsPositionEinzelpreisBrutto: TFloatField;\r\n    xdsPositionPosMarge: TFloatField;\r\n    xdsPositionPosMargeProzent: TFloatField;\r\n    xdsPositionBereitsGeliefert: TFloatField;\r\n    xdsPositionausliefern: TFloatField;\r\n    xdsPositionBestellungErledigt: TBooleanField;\r\n    xdsPositionLager: TStringField;\r\n    xdsPositionbestellen: TBooleanField;\r\n    xdsPositionWarenbestand: TBooleanField;\r\n    xdsPositionArtikelbeschreibungRTF: TStringField;\r\n    xdsPositionQuellartikel: TStringField;\r\n    xdsPositionArtikelnummerWB: TStringField;\r\n    xdsPositionPreisanteilNetto: TFloatField;\r\n    xdsPositionSetHPos: TStringField;\r\n    xdsPositionSetUPos: TStringField;\r\n    xdsPositionProvisionssatz: TFloatField;\r\n    xdsPositionProvisionsbetrag: TFloatField;\r\n    xdsPositionArtikelsprache: TStringField;\r\n    xdsPositionEKvom: TDateTimeField;\r\n    xdsPositionMengenberechnungID: TStringField;\r\n    xdsPositionTaraID: TStringField;\r\n    xdsPositionTara: TFloatField;\r\n    xdsPositionBruttoGewicht: TFloatField;\r\n    xdsPositionAussenflaeche: TFloatField;\r\n    xdsPositionLadeort: TStringField;\r\n    xdsPositionSeitenumbruch: TBooleanField;\r\n    xdsPositionPlanerFarbe: TIntegerField;\r\n    xdsPositionMWStKey: TIntegerField;\r\n    xdsPositionZSnachPos: TBooleanField;\r\n    xdsPositionLieferzeit: TStringField;\r\n    xdsPositionPreisVorRabattWHG: TFloatField;\r\n    xdsPositionReferenzKalkulation: TStringField;\r\n    xdsPositionPKey: TIntegerField;\r\n    xdsPositionAuftragsnummer: TStringField;\r\n    xdsPositionlwbID: TStringField;\r\n    xdsPositionBelegdatum: TDateTimeField;\r\n    xdsPositionWarenkontrollnummern: TStringField;\r\n    xdsPositionVolumen: TFloatField;\r\n    xdsPositionPosVolumen: TFloatField;\r\n    xdsPositionArtikelAttribute: TStringField;\r\n    xdsPositionNummerkomplett: TXDataWebEntityField;\r\n    sourcePosition: TDataSource;\r\n    dsArtikel: TXDataWebDataSet;\r\n    dsArtikelHersteller: TXDataWebEntityField;\r\n    dsArtikelArtderMenge: TXDataWebEntityField;\r\n    dsArtikelPfandArt: TXDataWebEntityField;\r\n    dsArtikelWarengruppe: TXDataWebEntityField;\r\n    dsArtikelWarenuntergruppe: TXDataWebEntityField;\r\n    dsArtikelArtikelnummer: TStringField;\r\n    dsArtikelArtikelueberschrift: TStringField;\r\n    dsArtikelArtikelbeschreibung: TStringField;\r\n    dsArtikelVerkaufspreis: TFloatField;\r\n    dsArtikelMindestbestand: TFloatField;\r\n    dsArtikelPreisliste: TStringField;\r\n    dsArtikelGewicht: TFloatField;\r\n    dsArtikelLaenge: TFloatField;\r\n    dsArtikelBreite: TFloatField;\r\n    dsArtikelHoehe: TFloatField;\r\n    dsArtikelArtikelZusatz: TStringField;\r\n    dsArtikelLagerort: TStringField;\r\n    dsArtikelBuchungskonto: TIntegerField;\r\n    dsArtikelEingangMenge: TFloatField;\r\n    dsArtikelEingangEndpreis: TFloatField;\r\n    dsArtikelAusgangMenge: TFloatField;\r\n    dsArtikelAusgangEndpreisEK: TFloatField;\r\n    dsArtikelAusgangEndpreisVK: TFloatField;\r\n    dsArtikelBestand: TFloatField;\r\n    dsArtikelBestandswert: TFloatField;\r\n    dsArtikelMarge: TFloatField;\r\n    dsArtikelMargeProzent: TFloatField;\r\n    dsArtikelArtikelnummer2: TStringField;\r\n    dsArtikelArtikelmatchcode: TStringField;\r\n    dsArtikelRabattpreis1: TFloatField;\r\n    dsArtikelRabattpreis2: TFloatField;\r\n    dsArtikelRabattpreis3: TFloatField;\r\n    dsArtikelRabattpreis4: TFloatField;\r\n    dsArtikelRabattpreis5: TFloatField;\r\n    dsArtikelArtikelnichtmehrgueltig: TBooleanField;\r\n    dsArtikelEinkaufspreis: TFloatField;\r\n    dsArtikelAufschlag: TFloatField;\r\n    dsArtikelWarenbestand: TBooleanField;\r\n    dsArtikelTextfrei10: TStringField;\r\n    dsArtikelTextfrei20: TStringField;\r\n    dsArtikelArtikelbeschreibungRTF: TStringField;\r\n    dsArtikelArtikeldatei1: TStringField;\r\n    dsArtikelArtikeldatei2: TStringField;\r\n    dsArtikelArtikeldatei3: TStringField;\r\n    dsArtikelArtikeldatei4: TStringField;\r\n    dsArtikelArtikeldatei5: TStringField;\r\n    dsArtikelEinkaufspreisVom: TDateTimeField;\r\n    dsArtikelEAN: TStringField;\r\n    dsArtikelVGPFaktor: TFloatField;\r\n    dsArtikelVGPMengenart: TStringField;\r\n    dsArtikelVerleihpreis: TFloatField;\r\n    dsArtikelZusatzPreis: TFloatField;\r\n    dsArtikelVerpackungsart: TStringField;\r\n    dsArtikelVerpackungsMenge: TFloatField;\r\n    dsArtikelQuellartikel: TStringField;\r\n    dsArtikelrabattierfaehig: TBooleanField;\r\n    dsArtikelAngebotAlternativeAN: TStringField;\r\n    dsArtikelPreisanteilNetto: TFloatField;\r\n    dsArtikelFarbe: TIntegerField;\r\n    dsArtikelAEinkauf: TBooleanField;\r\n    dsArtikelAVerkauf: TBooleanField;\r\n    dsArtikelArtikelnummerLieferant: TStringField;\r\n    dsArtikelLieferantnummer: TStringField;\r\n    dsArtikelVerkaufspreisBrutto: TFloatField;\r\n    dsArtikelArtikelSet: TBooleanField;\r\n    dsArtikelProvisionssatz: TFloatField;\r\n    dsArtikelWarentarifnummer: TStringField;\r\n    dsArtikelHandelsartikel: TBooleanField;\r\n    dsArtikelUrsprungsland: TStringField;\r\n    dsArtikelKategorie: TStringField;\r\n    dsArtikelStandardRabattsatzEK: TFloatField;\r\n    dsArtikelStandardRabattsatzVK: TFloatField;\r\n    dsArtikelRabattpreiseManuell: TBooleanField;\r\n    dsArtikelMengeBestellt: TFloatField;\r\n    dsArtikelMengeBeauftragt: TFloatField;\r\n    dsArtikelBestandDisponiert: TFloatField;\r\n    dsArtikelMengeAngeboten: TFloatField;\r\n    dsArtikelBestandDispInclAngebot: TFloatField;\r\n    dsArtikelMWStKey: TIntegerField;\r\n    dsArtikelShopAmazon: TBooleanField;\r\n    dsArtikelShopQuelle: TBooleanField;\r\n    dsArtikelGeraet: TBooleanField;\r\n    dsArtikelArtgewicht: TFloatField;\r\n    dsArtikelVolumen: TFloatField;\r\n    dsArtikelPacklisteNichtAnzeigen: TBooleanField;\r\n    dsArtikelKeineAufschlagskalkulation: TBooleanField;\r\n    dsArtikelKorrekturMenge: TFloatField;\r\n    dsArtikelKorrekturWert: TFloatField;\r\n    dsArtikelNachfolgeartikel: TStringField;\r\n    dsArtikelMindestbestellmenge: TFloatField;\r\n    dsArtikelSchnittEK: TFloatField;\r\n    dsArtikelVerkaufspreisVom: TDateTimeField;\r\n    dsArtikelPruefungChargeSNR: TIntegerField;\r\n    dsArtikelArtikelbeschreibungHTML: TStringField;\r\n    dsArtikelProduktKurzbeschreibungHTML: TStringField;\r\n    dsArtikelStatusFuerShop: TStringField;\r\n    dsArtikelAmpelFuerShop: TStringField;\r\n    dsArtikelEXP_Anzahl: TFloatField;\r\n    dsArtikelEXP_Inhalt: TFloatField;\r\n    dsArtikelEXP_Faktor: TFloatField;\r\n    dsArtikelFach: TStringField;\r\n    dsArtikelExportKasse: TIntegerField;\r\n    dsArtikelWKNR: TIntegerField;\r\n    dsArtikelArtikelAttribute: TStringField;\r\n    dsArtikelErstelltAm: TDateTimeField;\r\n    dsArtikelVarianteVonAN: TStringField;\r\n    dsArtikelGurtmassWerte: TStringField;\r\n    dsArtikelGurtmass: TFloatField;\r\n    dsArtikelAltersgrenze: TIntegerField;\r\n    dsArtikelMWStKeyImHaus: TIntegerField;\r\n    dsArtikelKasseBewegung: TFloatField;\r\n    dsArtikelKasseBewegungEK: TFloatField;\r\n    dsArtikelKasseBewegungVK: TFloatField;\r\n    dsArtikelProduktionBewegung: TFloatField;\r\n    dsArtikelProduktionBewegungEK: TFloatField;\r\n    dsArtikelProduktionBewegungVK: TFloatField;\r\n    dsArtikelWaWiAB: TIntegerField;\r\n    dsArtikelGeaendertAm: TDateTimeField;\r\n    dsArtikelGefahrgutKennzeichen: TStringField;\r\n    dsArtikelVerpackG: TBooleanField;\r\n    dsArtikelUPE: TFloatField;\r\n    dsArtikelArtikelbeschreibungEinkauf: TStringField;\r\n    dsArtikelHerstellerArtikelnummer: TStringField;\r\n    dsArtikelNatura: TStringField;\r\n    dsArtikelArbeitszeit: TBooleanField;\r\n    dsArtikelArtderMengeArtderMenge: TStringField;\r\n    xdsKundenpreise: TXDataWebDataSet;\r\n    xdsKundenpreiseArtikelnummer: TXDataWebEntityField;\r\n    xdsKundenpreiseKundennummer: TXDataWebEntityField;\r\n    xdsKundenpreiseVerkaufspreis: TFloatField;\r\n    xdsKundenpreiseNachname: TStringField;\r\n    xdsKundenpreiseRabattsatz: TFloatField;\r\n    xdsKundenpreiseVerleihpreis: TFloatField;\r\n    xdsKundenpreiseZusatzPreis: TFloatField;\r\n    xdsKundenpreiseArtikelnummerKunde: TStringField;\r\n    xdsKundenpreiseDatumGeaendert: TDateTimeField;\r\n    xdsKundenpreiseArtikelueberschrift: TStringField;\r\n    xdsKundenpreiseArtikelnummerArtikelnummer: TStringField;\r\n    xdsKundenpreiseArtikelnummerArtikelueberschrift: TStringField;\r\n    xdsKundenpreiseArtikelnummerArtikelbeschreibung: TStringField;\r\n    dsBeleg2: TXDataWebDataSet;\r\n    dsBeleg2Kundennummer: TXDataWebEntityField;\r\n    dsBeleg2Nummerkomplett: TStringField;\r\n    dsBeleg2ReferenzAngebot: TStringField;\r\n    dsBeleg2ReferenzLieferschein: TStringField;\r\n    dsBeleg2ReferenzRechnung: TStringField;\r\n    dsBeleg2Datum: TDateTimeField;\r\n    dsBeleg2Jahr: TFloatField;\r\n    dsBeleg2Kalenderwoche: TIntegerField;\r\n    dsBeleg2Nachname: TStringField;\r\n    dsBeleg2Vorname: TStringField;\r\n    dsBeleg2Postleitzahl: TStringField;\r\n    dsBeleg2Ort: TStringField;\r\n    dsBeleg2Laenderkuerzel: TStringField;\r\n    dsBeleg2Land: TStringField;\r\n    dsBeleg2Briefanrede1: TStringField;\r\n    dsBeleg2Briefanrede2: TStringField;\r\n    dsBeleg2EMail: TStringField;\r\n    dsBeleg2AdresseBild: TStringField;\r\n    dsBeleg2LieferanschriftBild: TStringField;\r\n    dsBeleg2Zahlungsbedingung: TIntegerField;\r\n    dsBeleg2ZahlungsbedingungText: TStringField;\r\n    dsBeleg2Auftragsbezeichnung: TStringField;\r\n    dsBeleg2AuftragnummerKunde: TStringField;\r\n    dsBeleg2BestelldatumKunde: TDateTimeField;\r\n    dsBeleg2ILN: TStringField;\r\n    dsBeleg2Kopftext: TStringField;\r\n    dsBeleg2Schlussbemerkung: TStringField;\r\n    dsBeleg2Gruss: TStringField;\r\n    dsBeleg2Mehrwertsteuersatz1: TFloatField;\r\n    dsBeleg2Mehrwertsteuersatz2: TFloatField;\r\n    dsBeleg2Nettosumme01: TFloatField;\r\n    dsBeleg2Nettosumme02: TFloatField;\r\n    dsBeleg2Nettosumme: TFloatField;\r\n    dsBeleg2Mehrwertsteuer01: TFloatField;\r\n    dsBeleg2Mehrwertsteuer02: TFloatField;\r\n    dsBeleg2Mehrwertsteuer: TFloatField;\r\n    dsBeleg2Bruttosumme: TFloatField;\r\n    dsBeleg2Versanddatum: TDateTimeField;\r\n    dsBeleg2Skontosatz: TFloatField;\r\n    dsBeleg2NettosummeEK: TFloatField;\r\n    dsBeleg2NettoMarge: TFloatField;\r\n    dsBeleg2Schreibzeichen: TStringField;\r\n    dsBeleg2Unterzeichner: TStringField;\r\n    dsBeleg2TelefonMA: TStringField;\r\n    dsBeleg2EmailMA: TStringField;\r\n    dsBeleg2USTID: TStringField;\r\n    dsBeleg2Umsatzsteuerausweis: TBooleanField;\r\n    dsBeleg2gebucht: TBooleanField;\r\n    dsBeleg2Lieferdatum: TDateTimeField;\r\n    dsBeleg2Transportbedingung: TStringField;\r\n    dsBeleg2Mehrwertsteuersatz3: TFloatField;\r\n    dsBeleg2Mehrwertsteuer03: TFloatField;\r\n    dsBeleg2Nettosumme03: TFloatField;\r\n    dsBeleg2RundungsDifferenz: TFloatField;\r\n    dsBeleg2EmailText: TStringField;\r\n    dsBeleg2Auftragerledigt: TBooleanField;\r\n    dsBeleg2Rabattstufe: TStringField;\r\n    dsBeleg2KFZKennzeichen: TStringField;\r\n    dsBeleg2Fahrgestellnummer: TStringField;\r\n    dsBeleg2KFZHersteller: TStringField;\r\n    dsBeleg2Erstzulassungsdatum: TDateTimeField;\r\n    dsBeleg2KMStand: TStringField;\r\n    dsBeleg2KFZType: TStringField;\r\n    dsBeleg2Inspektionsdatum: TDateTimeField;\r\n    dsBeleg2Debitorennummer: TStringField;\r\n    dsBeleg2Kostentraeger: TStringField;\r\n    dsBeleg2Rabattsatz: TFloatField;\r\n    dsBeleg2ObjektReferenz: TStringField;\r\n    dsBeleg2Bank: TStringField;\r\n    dsBeleg2Bankleitzahl: TFloatField;\r\n    dsBeleg2Kontonummer: TStringField;\r\n    dsBeleg2Kontoinhaber: TStringField;\r\n    dsBeleg2Telefaxnummer: TStringField;\r\n    dsBeleg2DatumNeu: TDateTimeField;\r\n    dsBeleg2Datumgeaendert: TDateTimeField;\r\n    dsBeleg2Objektnummer: TStringField;\r\n    dsBeleg2Liefertermin: TStringField;\r\n    dsBeleg2Emailversand: TBooleanField;\r\n    dsBeleg2Telefonnummer: TStringField;\r\n    dsBeleg2MobilTelefon: TStringField;\r\n    dsBeleg2AuftragFax: TBooleanField;\r\n    dsBeleg2REDatum: TDateTimeField;\r\n    dsBeleg2BenutzerNeu: TStringField;\r\n    dsBeleg2BenutzerGeaendert: TStringField;\r\n    dsBeleg2BerechnungBrutto: TBooleanField;\r\n    dsBeleg2Bruttosumme01: TFloatField;\r\n    dsBeleg2Bruttosumme02: TFloatField;\r\n    dsBeleg2Bruttosumme03: TFloatField;\r\n    dsBeleg2Notiz: TStringField;\r\n    dsBeleg2MargeProzent: TFloatField;\r\n    dsBeleg2Warenkreditgesperrt: TBooleanField;\r\n    dsBeleg2Belegsprache: TStringField;\r\n    dsBeleg2Duplicate: TStringField;\r\n    dsBeleg2perEmail: TBooleanField;\r\n    dsBeleg2Ansprechpartner: TStringField;\r\n    dsBeleg2KundennummerFremd: TStringField;\r\n    dsBeleg2Protokoll: TStringField;\r\n    dsBeleg2Verleihauftrag: TBooleanField;\r\n    dsBeleg2VerleihVon: TDateTimeField;\r\n    dsBeleg2VerleihBis: TDateTimeField;\r\n    dsBeleg2AuftragGenehmigt: TBooleanField;\r\n    dsBeleg2gesperrt: TBooleanField;\r\n    dsBeleg2VerleihvonText: TStringField;\r\n    dsBeleg2VerleihbisText: TStringField;\r\n    dsBeleg2DruckWHG: TStringField;\r\n    dsBeleg2DruckWHGKurs: TFloatField;\r\n    dsBeleg2ProzentsatzZusatzposition: TFloatField;\r\n    dsBeleg2TextZusatzposition: TStringField;\r\n    dsBeleg2TextzusatzBeschreibung: TStringField;\r\n    dsBeleg2Layoutname: TStringField;\r\n    dsBeleg2Gesamtgewicht: TFloatField;\r\n    dsBeleg2BetragZusatzposition: TFloatField;\r\n    dsBeleg2ReferenzBestellung: TStringField;\r\n    dsBeleg2Termin1: TDateTimeField;\r\n    dsBeleg2Termin2: TDateTimeField;\r\n    dsBeleg2Zielkontaktnummer: TStringField;\r\n    dsBeleg2Zielkontaktname: TStringField;\r\n    dsBeleg2Bilddatei1: TStringField;\r\n    dsBeleg2Bilddatei2: TStringField;\r\n    dsBeleg2Zielkontaktnummer2: TStringField;\r\n    dsBeleg2Zielkontaktname2: TStringField;\r\n    dsBeleg2bestaetigt: TDateTimeField;\r\n    dsBeleg2Zielkontaktnummer3: TStringField;\r\n    dsBeleg2Zielkontaktname3: TStringField;\r\n    dsBeleg2Termin3: TDateTimeField;\r\n    dsBeleg2Termin4: TDateTimeField;\r\n    dsBeleg2Muster: TBooleanField;\r\n    dsBeleg2KW: TIntegerField;\r\n    dsBeleg2Datenlink: TStringField;\r\n    dsBeleg2Mehrwertsteuersatz4: TFloatField;\r\n    dsBeleg2Mehrwertsteuersatz5: TFloatField;\r\n    dsBeleg2Mehrwertsteuersatz6: TFloatField;\r\n    dsBeleg2BesteuerungKey: TIntegerField;\r\n    dsBeleg2VertreterMatchcode: TStringField;\r\n    dsBeleg2Verfasser: TStringField;\r\n    dsBeleg2LieferadresseID: TIntegerField;\r\n    dsBeleg2AuftragStatus: TStringField;\r\n    dsBeleg2MonatJahr: TDateTimeField;\r\n    dsBeleg2Belegvariante: TStringField;\r\n    dsBeleg2Produktionsfreigabe: TBooleanField;\r\n    dsBeleg2ReferenzRahmenAuftrag: TStringField;\r\n    dsBeleg2DatumRahmenAuftrag: TDateTimeField;\r\n    dsBeleg2FahrzeugID: TIntegerField;\r\n    dsBeleg2AuslieferungKW: TStringField;\r\n    dsBeleg2BereitstellungDatum: TDateTimeField;\r\n    dsBeleg2VTUID: TStringField;\r\n    dsBeleg2LieferanschriftDaten: TStringField;\r\n    dsBeleg2GesamtVolumen: TFloatField;\r\n    dsBeleg2BelegPKey: TIntegerField;\r\n    dsBeleg2DruckParameter: TStringField;\r\n    dsBeleg2ReferenzService: TStringField;\r\n    dsBeleg2ZusatzDaten: TStringField;\r\n    dsBeleg2StandPDF: TStringField;\r\n    dsBeleg2Paketdienst: TStringField;\r\n    dsBeleg2Monteur: TIntegerField;\r\n    dsBeleg2KundennummerKundennummer: TStringField;\r\n    dsBeleg2ServiceBemerkung: TStringField;\r\n    edtPosNr: TDBEdit;\r\n    edtPosUNr: TDBEdit;\r\n    edtArtikelueberschrift: TDBEdit;\r\n    edtMenge: TDBEdit;\r\n    btnArtikelnummer: TButton;\r\n    edtArbeitszeitDatum: TDBDateTimePicker;\r\n    edtArbeitszeitVON: TDBDateTimePicker;\r\n    edtArbeitszeitBIS: TDBDateTimePicker;\r\n    edtArtikelbeschreibung: TDBMemo;\r\n    PosComboMonteur: TComboBox;\r\n    edtMengenart: TDBLookupComboBox;\r\n    btnNeuePosition: TButton;\r\n    WTCPosition: TTableControl;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure btnPosAbbrechenClick(Sender: TObject);\r\n    procedure xdsPositionAfterOpen(DataSet: TDataSet);\r\n    procedure xdsPositionAfterDelete(DataSet: TDataSet);\r\n    procedure xdsPositionAfterPost(DataSet: TDataSet);\r\n    procedure xdsPositionBeforePost(DataSet: TDataSet);\r\n    procedure xdsPositionNewRecord(DataSet: TDataSet);\r\n    procedure WebFormCreate(Sender: TObject);\r\n    procedure WebFormCloseQuery(Sender: TObject; var CanClose: Boolean);\r\n    procedure xdsPositionAfterApplyUpdates(Sender: TDataSet;\r\n      Info: TResolveResults);\r\n    procedure btnPositionLoeschenClick(Sender: TObject);\r\n    procedure btnPosSpeichernClick(Sender: TObject);\r\n    procedure xdsKundenpreiseAfterOpen(DataSet: TDataSet);\r\n    procedure dsArtikelAfterOpen(DataSet: TDataSet);\r\n    procedure dsBeleg2AfterOpen(DataSet: TDataSet);\r\n    procedure sourcePositionStateChange(Sender: TObject);\r\n    procedure edtArbeitszeitDatumEnter(Sender: TObject);\r\n    procedure PosComboMonteurEnter(Sender: TObject);\r\n    procedure btnArtikelnummerClick(Sender: TObject);\r\n    procedure btnNeuePositionClick(Sender: TObject);\r\n    procedure WebFormClose(Sender: TObject; var Action: TCloseAction);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    PositionsID:string;\r\n    tmpArtikelnummer:string;\r\n    tmpKundennummer:string;\r\n    tmpMerkerAuftrag:string;\r\n    tmpLetztePosNr:double;\r\n    NeuePosition:boolean;\r\n    Arbeitszeitstringlist:TStringList;\r\n    Monteurstringlist:TStringList;\r\n    AltePosition:boolean;\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  AuftragPosEinzel: TAuftragPosEinzel;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_EinzelAuftrag, unit_Artikelsuche;\r\n{$R *.dfm}\r\n\r\n\r\nprocedure TAuftragPosEinzel.edtArbeitszeitDatumEnter(Sender: TObject);\r\nbegin\r\n  xdsPosition.Edit;\r\n  if xdsPositionArbeitszeitDatum.AsDateTime<date-30000 then xdsPositionArbeitszeitDatum.AsDateTime:=date;\r\nend;\r\n\r\n\r\n\r\nprocedure TAuftragPosEinzel.PosComboMonteurEnter(Sender: TObject);\r\nbegin\r\n  if xdsposition.active then xdsposition.Edit;\r\nend;\r\n\r\n\r\n\r\nprocedure TAuftragPosEinzel.sourcePositionStateChange(Sender: TObject);\r\nbegin\r\n  if xdsPosition.State in dseditmodes then btnPosspeichern.Enabled:=true else btnPosspeichern.Enabled:=false;\r\nend;\r\n\r\nprocedure TAuftragPosEinzel.btnArtikelnummerClick(Sender: TObject);\r\nvar\r\n  LFrm:TfrmArtikelsuche;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmArtikelsuche;\r\n    begin\r\n      LForm:=(AForm as TfrmArtikelsuche);\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      if LFrm.Artikelnummer<>'' then\r\n      begin\r\n        tmpArtikelnummer:=lfrm.Artikelnummer;\r\n        if tmpArtikelnummer<>'' then\r\n        begin\r\n          dsArtikel.Close;\r\n          dsArtikel.QueryString:='$filter=Artikelnummer eq '+QuotedStr(tmpArtikelnummer)+'&$expand=ArtderMenge,Hersteller';\r\n          dsArtikel.Load;\r\n        end\r\n        else\r\n        begin\r\n          if NeuePosition then btnPosAbbrechenClick(nil);\r\n\r\n        end;\r\n      end;\r\n    end;\r\n\r\n  begin\r\n  AltePosition:=true;\r\n  LFrm:=TfrmArtikelsuche.CreateNew(@AfterCreate);\r\n  LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TAuftragPosEinzel.btnNeuePositionClick(Sender: TObject);\r\nvar\r\n  LFrm:TfrmArtikelsuche;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmArtikelsuche;\r\n    begin\r\n      LForm:=(AForm as TfrmArtikelsuche);\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      if LFrm.Artikelnummer<>'' then\r\n      begin\r\n        tmpArtikelnummer:=lfrm.Artikelnummer;\r\n        if tmpArtikelnummer<>'' then\r\n        begin\r\n          dsArtikel.Close;\r\n          dsArtikel.QueryString:='$filter=Artikelnummer eq '+QuotedStr(tmpArtikelnummer)+'&$expand=ArtderMenge,Hersteller';\r\n          dsArtikel.Load;\r\n        end\r\n        else\r\n        begin\r\n          if NeuePosition then btnPosAbbrechenClick(nil);\r\n\r\n        end;\r\n      end;\r\n    end;\r\n\r\n  begin\r\n  AltePosition:=false;\r\n  LFrm:=TfrmArtikelsuche.CreateNew(@AfterCreate);\r\n  LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TAuftragPosEinzel.btnPosAbbrechenClick(Sender: TObject);\r\nbegin\r\n  dsartikel.Close;\r\n  xdsposition.close;\r\n  self.Close;\r\nend;\r\n\r\nprocedure TAuftragPosEinzel.btnPositionLoeschenClick(Sender: TObject);\r\nbegin\r\n  xdsposition.Delete;\r\nend;\r\n\r\nprocedure TAuftragPosEinzel.btnPosSpeichernClick(Sender: TObject);\r\nbegin\r\n  if xdsPosition.State=dsbrowse then xdsposition.Edit;\r\n\r\n  if xdsPosition.State in dseditmodes then\r\n  begin\r\n    xdsPosition.Post;\r\n  end\r\n  else\r\n  begin\r\n    xdsPosition.Close;\r\n  end;\r\nend;\r\n\r\nprocedure TAuftragPosEinzel.dsArtikelAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  xdsKundenpreise.Close;\r\n  xdskundenpreise.QueryString:='$expand=Artikelnummer&$filter=Kundennummer eq '+QuotedStr(tmpKundennummer)+ ' AND Artikelnummer eq '+QuotedStr(dsArtikelArtikelnummer.asstring);\r\n  xdsKundenpreise.Load;\r\nend;\r\n\r\nprocedure TAuftragPosEinzel.dsBeleg2AfterOpen(DataSet: TDataSet);\r\nbegin\r\n  if NeuePosition then btnNeuePositionClick(nil);\r\n\r\n  if tmpArtikelnummer<>'' then\r\n  begin\r\n    dsArtikel.Close;\r\n    dsArtikel.QueryString:='$filter=Artikelnummer eq '+QuotedStr(tmpArtikelnummer)+'&$expand=ArtderMenge,Hersteller';\r\n    dsArtikel.Load;\r\n  end;\r\nend;\r\n\r\nprocedure TAuftragPosEinzel.WebFormClose(Sender: TObject;\r\n  var Action: TCloseAction);\r\nbegin\r\n  action:=cafree;\r\nend;\r\n\r\nprocedure TAuftragPosEinzel.WebFormCloseQuery(Sender: TObject;\r\n  var CanClose: Boolean);\r\nbegin\r\nArbeitszeitstringlist.Free;\r\nend;\r\n\r\nprocedure TAuftragPosEinzel.WebFormCreate(Sender: TObject);\r\nbegin\r\n  Arbeitszeitstringlist:=TStringList.Create;\r\n  Arbeitszeitstringlist.Delimiter:='|';\r\n  Arbeitszeitstringlist.StrictDelimiter:=true;\r\n  Monteurstringlist:=TStringList.Create;\r\n  Monteurstringlist.Delimiter:='|';\r\n  Monteurstringlist.StrictDelimiter:=true;\r\nend;\r\n\r\nprocedure TAuftragPosEinzel.WebFormShow(Sender: TObject);\r\n var\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Position-Auftrag</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  container2.ParentElement:=myelement;\r\n  myelement:=container2.ElementHandle;\r\n  btnPosAbbrechen.ParentElement:=myelement;\r\n  btnPosSpeichern.ParentElement:=myelement;\r\n  btnPositionLoeschen.ParentElement:=myelement;\r\n  WTCPosition.ParentElement:=myelement;\r\n  WTCPosition.ColCount:=2;\r\n  WTCPosition.RowCount:=13;\r\n  WTCPosition.Cells[0,0]:='<small><i>Beleg';\r\n\r\n  WTCPosition.Cells[0,1]:='<small><i>Pos-Nr';\r\n  myelement:=WTCPosition.CellElements[1,1];\r\n  edtPosNr.ParentElement:=myelement;\r\n\r\n  WTCPosition.Cells[0,2]:='<small><i>Pos.UNr';\r\n  myelement:=WTCPosition.CellElements[1,2];\r\n  edtPosUNr.ParentElement:=myelement;\r\n\r\n  myelement:=WTCPosition.CellElements[0,3];\r\n  btnArtikelnummer.ParentElement:=myelement;\r\n\r\n  WTCPosition.Cells[0,4]:='<small><i>Artikelüberschrift';\r\n  myelement:=WTCPosition.CellElements[1,4];\r\n  edtArtikelueberschrift.ParentElement:=myelement;\r\n\r\n  WTCPosition.Cells[0,5]:='<small><i>Artikelbeschreibung';\r\n\r\n  WTCPosition.Cells[0,6]:='<small><i>Menge';\r\n  myelement:=WTCPosition.CellElements[1,6];\r\n  edtMenge.ParentElement:=myelement;\r\n\r\n  WTCPosition.Cells[0,7]:='<small><i>Mengenart';\r\n  WTCPosition.Cells[0,8]:='<small><i>Arbeitszeit Datum';\r\n  WTCPosition.Cells[0,9]:='<small><i>AZ Beginn';\r\n  WTCPosition.Cells[0,10]:='<small><i>AZ Ende';\r\n  WTCPosition.Cells[0,11]:='<small><i>Monteur';\r\n\r\n  dsBeleg2.Close;\r\n  dsBeleg2.QueryString:='$expand=Kundennummer&$filter=Nummerkomplett eq '+QuotedStr(tmpMerkerAuftrag);\r\n  dsBeleg2.Load;\r\n\r\nend;\r\n\r\nprocedure TAuftragPosEinzel.xdsKundenpreiseAfterOpen(DataSet: TDataSet);\r\nbegin\r\n    xdsPosition.Close;\r\n    if PositionsID<>'' then xdsPosition.QueryString:='$filter=ID eq '+QuotedStr(PositionsID);\r\n    if PositionsID='' then xdsPosition.QueryString:='';\r\n    xdsPosition.Load;\r\nend;\r\n\r\nprocedure TAuftragPosEinzel.xdsPositionAfterApplyUpdates(Sender: TDataSet;\r\n  Info: TResolveResults);\r\nbegin\r\n  xdsposition.Close;\r\n  self.Close;\r\nend;\r\n\r\nprocedure TAuftragPosEinzel.xdsPositionAfterDelete(DataSet: TDataSet);\r\nbegin\r\n  if LizenzOK then\r\n  begin\r\n    xdsposition.ApplyUpdates;\r\n  end\r\n  else\r\n  begin\r\n    showmessage('Für das Speichern von Daten sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n  end;\r\nend;\r\n\r\nprocedure TAuftragPosEinzel.xdsPositionAfterOpen(DataSet: TDataSet);\r\n var\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n\r\n  myelement:=WTCPosition.CellElements[1,5];\r\n  edtArtikelbeschreibung.ParentElement:=myelement;\r\n\r\n  myelement:=WTCPosition.CellElements[1,7];\r\n  edtMengenart.ParentElement:=myelement;\r\n\r\n  myelement:=WTCPosition.CellElements[1,8];\r\n  edtArbeitszeitDatum.ParentElement:=myelement;\r\n\r\n  myelement:=WTCPosition.CellElements[1,9];\r\n  edtArbeitszeitVON.ParentElement:=myelement;\r\n\r\n  myelement:=WTCPosition.CellElements[1,10];\r\n  edtArbeitszeitBIS.ParentElement:=myelement;\r\n\r\n  myelement:=WTCPosition.CellElements[1,11];\r\n  PosComboMonteur.ParentElement:=myelement;\r\n  PosComboMonteur.Items.clear;\r\n\r\n  dm2.queryMonteur.First;\r\n  while not dm2.queryMonteur.eof do\r\n  begin\r\n    PosComboMonteur.Items.Add(dm2.queryMonteurPersonalnummer.asstring+'| '+dm2.queryMonteurNachname.asstring+', '+dm2.queryMonteurVorname.asstring);\r\n    dm2.queryMonteur.Next;\r\n  end;\r\n  PosComboMonteur.Items.Add('');\r\n\r\n  WTCPosition.Cells[1,0]:=dsBeleg2Nummerkomplett.asstring+' | '+xdsPositionID.asstring;\r\n\r\n  WTCPosition.Cells[1,3]:=tmpArtikelnummer;\r\n  WTCPosition.Cells[1,7]:=xdsPositionArtderMenge.AsString;\r\n  if xdsPositionMonteurP.AsString<>'' then\r\n  begin\r\n    dm2.queryMonteur.Locate('Personalnummer',xdsPositionMonteurP.AsString,[]);\r\n    Poscombomonteur.Text:=dm2.queryMonteurPersonalnummer.asstring+'| '+dm2.queryMonteurNachname.asstring+', '+dm2.queryMonteurVorname.asstring;\r\n  end\r\n  else\r\n  begin\r\n    PosComboMonteur.Text:='';\r\n  end;\r\n  if neueposition=true then xdsposition.append;\r\n  if AltePosition=true then\r\n  begin\r\n    xdsPosition.Edit;\r\n    xdsPositionArtikelnummer.value:=dsArtikel.CurrentData;\r\n    xdsPositionMenge.AsInteger:=1;\r\n    xdsPositionArtderMenge.asstring:=dsArtikelArtderMengeArtderMenge.AsString;\r\n    xdsPositionVerkaufspreis.AsFloat:=dsArtikelVerkaufspreis.asfloat;\r\n    if dsBeleg2rabattsatz.asfloat=0 then xdsPositionRabattsatz.asfloat:=dsArtikelstandardRabattsatzVK.asfloat;\r\n    if dsBeleg2rabattstufe.asstring='Rabattpreis1' then xdsPositionverkaufspreis.asstring:=dsArtikelRabattpreis1.asstring;\r\n    if dsBeleg2rabattstufe.asstring='Rabattpreis2' then xdsPositionverkaufspreis.asstring:=dsArtikelRabattpreis2.asstring;\r\n    if dsBeleg2rabattstufe.asstring='Rabattpreis3' then xdsPositionverkaufspreis.asstring:=dsArtikelRabattpreis3.asstring;\r\n    if dsBeleg2rabattstufe.asstring='Rabattpreis4' then xdsPositionverkaufspreis.asstring:=dsArtikelRabattpreis4.asstring;\r\n    if dsBeleg2rabattstufe.asstring='Rabattpreis5' then xdsPositionverkaufspreis.asstring:=dsArtikelRabattpreis5.asstring;\r\n    xdsPositionPreisvorRabatt.asfloat:=xdsPositionVerkaufspreis.AsFloat;\r\n    xdsPositionPreisanteilNetto.asfloat:=dsArtikelpreisanteilnetto.asfloat;\r\n    xdsPositionEinkaufspreis.asfloat:=dsArtikelEinkaufspreis.asfloat;\r\n    xdsPositionRabattsatz.AsFloat:=dsBeleg2Rabattsatz.asfloat;\r\n    if xdsKundenpreise.RecordCount>0 then\r\n    begin\r\n      xdsPositionPreisvorrabatt.asfloat:=xdsKundenpreiseVerkaufspreis.asfloat;\r\n      if xdsKundenpreiseRabattsatz.AsFloat<>0 then xdsPositionRabattsatz.AsFloat:=xdsKundenpreiseRabattsatz.AsFloat;\r\n    end;\r\n    xdsPositionPKZ.asfloat:=0;\r\n    if dsBeleg2verleihauftrag.AsBoolean=true then xdsPositionpkz.asfloat:=2;\r\n    xdsPositionposmwst.asfloat:=0;\r\n    xdsPositionMWStKey.asinteger:=1;\r\n    xdsPositionEndpreis.asfloat:=0;\r\n    xdsPositionEndpreis_EK.asfloat:=0;\r\n    xdsPositionBruttoEndpreis.asfloat:=0;\r\n    xdsPositionEinzelpreisBrutto.asfloat:=0;\r\n    xdsPositionbereitsGeliefert.asfloat:=0;\r\n    xdsPositionBestellungErledigt.asboolean:=false;\r\n    xdsPositionausliefern.asfloat:=0;\r\n    xdsPositionbestellen.asboolean:=false;\r\n    xdsPositionlager.asstring:='[-]';\r\n    xdsPositionwarenbestand.asboolean:=dsArtikelWarenbestand.asboolean;\r\n    xdsPositionPosMargeProzent.asfloat:=0;\r\n    xdsPositionPosMarge.asfloat:=0;\r\n    xdsPositionPreisanteilnetto.asfloat:=0;\r\n    xdsPositionprovisionssatz.asfloat:=0;\r\n    xdsPositionprovisionsbetrag.asfloat:=0;\r\n    xdsPositionaussenflaeche.asfloat:=0;\r\n    xdsPositionBruttogewicht.asfloat:=0;\r\n    xdsPositionTara.asfloat:=0;\r\n    xdsPositionPlanerFarbe.asinteger:=0;\r\n    xdsPositionSeitenumbruch.asboolean:=FALSE;\r\n    xdsPositionZSnachPos.asboolean:=False;\r\n    xdsPositionPreisanteilnetto.asfloat:=0;\r\n    xdsPositionPreisVorRabattWHG.asfloat:=0;\r\n    xdsPositionpkey.asinteger:=0;\r\n    xdsPositionVolumen.AsFloat:=0;\r\n    xdsPositionPosVolumen.AsFloat:=0;\r\n    xdsPositionArtikelueberschrift.asstring:=dsArtikelArtikelueberschrift.asstring;\r\n    xdsPositionArtikelbeschreibung.asstring:=dsArtikelArtikelbeschreibung.asstring;\r\n    xdsPositionArtikelbeschreibungRTF.value:=dsArtikelArtikelbeschreibungRTF.value;\r\n    xdsPositionArtikelsprache.value:='';\r\n    xdsPositiongewicht.asstring:=dsArtikelGewicht.AsString;\r\n    xdsPositionLaenge.asstring:=dsArtikelLaenge.AsString;\r\n    xdsPositionBreite.asstring:=dsArtikelBreite.AsString;\r\n    xdsPositionHoehe.asstring:=dsArtikelHoehe.AsString;\r\n    xdsPositionMWStKey.asInteger:=dsArtikelMWStKey.asInteger;\r\n    xdsPositionWarenbestand.asboolean:=dsArtikelWarenbestand.asboolean;\r\n    xdsPositionLieferant.asstring:=dsArtikellieferantnummer.asstring;\r\n    xdsPositionEinkaufspreis.AsString:=dsArtikeleinkaufspreis.asstring;\r\n    xdsPositionEKvom.asstring:=dsArtikeleinkaufspreisvom.asstring;\r\n    xdsPositionLager.asstring:=dsArtikelLagerort.asstring;\r\n    xdsPositionVolumen.AsFloat:=dsArtikelVolumen.AsFloat;\r\n    xdsPositionArtikelAttribute.AsString:=dsArtikelArtikelAttribute.AsString;\r\n    xdsPositionTextfrei10.asstring:=dsArtikeltextfrei10.asstring;\r\n    xdsPositionTextfrei20.asstring:=dsArtikeltextfrei20.asstring;\r\n\r\n    // Preis nach PKZ holen\r\n    if xdsPositionpkz.asfloat=2 then xdsPositionpreisvorrabatt.asfloat:=dsArtikelverleihpreis.asfloat;\r\n    if xdsPositionpkz.asfloat=3 then xdsPositionpreisvorrabatt.asfloat:=dsArtikelZusatzpreis.asfloat;\r\n    if xdsPositionpkz.asfloat=4 then xdsPositionpreisvorrabatt.asfloat:=dsArtikelverleihpreis.asfloat + dsArtikelZusatzpreis.asfloat;\r\n\r\n  end;\r\n\r\n  if dsartikel.active then\r\n  begin\r\n    if dsartikelarbeitszeit.asboolean=true then\r\n    begin\r\n      edtArbeitszeitDatum.visible:=true;\r\n      edtArbeitszeitVON.visible:=true;\r\n      edtArbeitszeitBIS.visible:=true;\r\n    end\r\n    else\r\n    begin\r\n      edtArbeitszeitDatum.visible:=false;\r\n      edtArbeitszeitVON.visible:=false;\r\n      edtArbeitszeitBIS.visible:=false;\r\n    end;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TAuftragPosEinzel.xdsPositionAfterPost(DataSet: TDataSet);\r\nbegin\r\n  if LizenzOK then\r\n  begin\r\n    xdsPosition.ApplyUpdates;\r\n  end\r\n  else\r\n  begin\r\n    showmessage('Für das Speichern von Daten sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n  end;\r\nend;\r\n\r\nprocedure TAuftragPosEinzel.xdsPositionBeforePost(DataSet: TDataSet);\r\nbegin\r\n  if dsArtikelArbeitszeit.AsBoolean=true then\r\n  begin\r\n    arbeitszeitstringlist.DelimitedText:=xdsPositionArtikelueberschrift.AsString;\r\n    arbeitszeitstringlist[0]:=leftstr(arbeitszeitstringlist[0],21);\r\n    xdspositionArtikelueberschrift.AsString:=arbeitszeitstringlist[0]+' | '+Formatdatetime('DD.MM.YYYY',xdsPositionArbeitszeitDatum.AsDateTime)+' | ' +formatdatetime('hh:mm',xdsPositionArbeitszeitVON.AsDateTime)+' - '+formatdatetime('hh:mm',xdspositionArbeitszeitBIS.AsDateTime);\r\n    xdsPositionArbeitszeitVON.AsDateTime:=trunc(xdsPositionArbeitszeitDatum.AsDateTime)+frac(xdsPositionArbeitszeitVon.AsDateTime);\r\n    xdsPositionArbeitszeitBIS.AsDateTime:=trunc(xdsPositionArbeitszeitDatum.AsDateTime)+frac(xdsPositionArbeitszeitBIS.AsDateTime);\r\n    xdsPositionMenge.AsFloat:=dm2.roundkfm(MinutesBetween(xdspositionArbeitszeitVON.AsDateTime,xdspositionArbeitszeitBIS.asdatetime)/60,-2);\r\n  end;\r\n\r\n\r\n  if PosComboMonteur.Text='' then\r\n  begin\r\n    xdsPositionMonteurP.AsString:='';\r\n  end\r\n  else\r\n  begin\r\n    Monteurstringlist.DelimitedText:=PosComboMonteur.Text;\r\n    xdsPositionMonteurP.AsString:=Monteurstringlist[0];\r\n  end;\r\n\r\n  xdsPositionBelegdatum.AsDateTime:=dsBeleg2Datum.AsDateTime;\r\n  if xdsPositionMWStKey.asinteger=1 then xdsPositionMehrwertsteuersatz.AsFloat:=dsBeleg2Mehrwertsteuersatz1.asfloat;\r\n  if xdsPositionMWStKey.asinteger=2 then xdsPositionMehrwertsteuersatz.AsFloat:=dsBeleg2Mehrwertsteuersatz2.asfloat;\r\n  if xdsPositionMWStKey.asinteger=3 then xdsPositionMehrwertsteuersatz.AsFloat:=dsBeleg2Mehrwertsteuersatz3.asfloat;\r\n  if xdsPositionMWStKey.asinteger=4 then xdsPositionMehrwertsteuersatz.AsFloat:=dsBeleg2Mehrwertsteuersatz4.asfloat;\r\n  if xdsPositionMWStKey.asinteger=5 then xdsPositionMehrwertsteuersatz.AsFloat:=dsBeleg2Mehrwertsteuersatz5.asfloat;\r\n  if xdsPositionMWStKey.asinteger=6 then xdsPositionMehrwertsteuersatz.AsFloat:=dsBeleg2Mehrwertsteuersatz6.asfloat;\r\n  if dsBeleg2Umsatzsteuerausweis.asboolean=false then xdsPositionMehrwertsteuersatz.AsFloat:=0;\r\n\r\n  // Artikelnummer für den Warenbestand setzen\r\n  if xdsPositionquellartikel.asstring='' then\r\n  begin\r\n    xdsPositionartikelnummerwb.asstring:=xdsPositionartikelnummer.asstring;\r\n  end\r\n  else\r\n  begin\r\n    xdsPositionartikelnummerwb.asstring:=xdsPositionquellartikel.asstring;\r\n  end;\r\n  if xdsPositionpreisvorrabatt.asstring='' then xdsPositionpreisvorrabatt.asfloat:=0;\r\n  if xdsPositionpkz.asfloat=3 then xdsPositionrabattsatz.asfloat:=0;\r\n  if xdsPositioneinkaufspreis.asstring='' then xdsPositioneinkaufspreis.asstring:='0';\r\n\r\n  // Prüfung auf Textpositionen\r\n  if leftstr(xdsPositionArtikelnummer.asstring,4)='Text' then xdsPositionpreisvorrabatt.asfloat:=0;\r\n\r\n  {\r\n  // Pruefung wegen Staffelpreis\r\n  if dm2.tablesysdatStaffelpreise.asboolean then\r\n  begin\r\n    tempstp:=GF.checkstaffelpreis(EinzelAuftrag.dsBelegKundennummer.asstring,xdsPositionArtikelnummer.asstring,EinzelAuftrag.dsBelegDatum.asdatetime,xdsPositionMenge.asfloat,xdsPositionPreisVorRabatt.asfloat);\r\n    if tempstp<>0 then\r\n    begin\r\n      messagetext:=MSGStaffelpreisuebernehmen+' '+formatfloat(fstr,tempstp);\r\n      if MessageDlg(MSGStaffelpreisuebernehmen, mtConfirmation, [mbYes, mbNo], 0) = mrYes then\r\n      begin\r\n        xdsPositionpreisvorrabatt.asfloat:=tempstp;\r\n        xdsPositionEinkaufspreis.asfloat:=tempeinkaufspreis;\r\n      end;\r\n    end;\r\n  end;\r\n  }\r\n  // Pruefung wegen Rabattfaehig\r\n  if xdsPositionrabattsatz.AsFloat<>0 then\r\n  begin\r\n    if (dm2.checkrabattierung(xdsPositionArtikelnummer.asstring)=false) then xdsPositionrabattsatz.asfloat:=0;\r\n  end;\r\n\r\n  // check der SET-Positionen\r\n  if (xdsPositionSetHPos.AsString<>'') AND (xdsPositionSetHPos.AsString<>'00000000-0000-0000-0000-000000000000')  then xdsPositioneinkaufspreis.asfloat:=0;\r\n  if (xdsPositionSetUPos.AsString<>'') AND (xdsPositionSetUPos.AsString<>'00000000-0000-0000-0000-000000000000') then\r\n  begin\r\n    xdsPositionPreisVorRabatt.asfloat:=0;\r\n    xdsPositioneinzelpreisbrutto.asfloat:=0;\r\n  end;\r\n\r\n  {\r\n  // wenn währungserfassung\r\n  if (EinzelAuftrag.dsBelegDruckWHG.AsString<>'') AND (dm2.tablesysdatMultipleWHG.AsBoolean=TRUE) then\r\n  begin\r\n    if EinzelAuftrag.dsBelegDruckWHG.AsString<>dm2.tablesysdatBWHG.asstring then\r\n    begin\r\n      xdsPositionPreisvorRabatt.AsFloat:=xdsPositionPreisVorRabattWHG.AsFloat/EinzelAuftrag.dsBelegDruckWHGKurs.AsFloat;\r\n    end;\r\n  end;\r\n  }\r\n\r\n\r\n    xdsPositionVerkaufspreis.asfloat:=xdsPositionPreisvorRabatt.asfloat-((xdsPositionPreisvorRabatt.asfloat-xdsPositionpreisanteilnetto.asfloat)*xdsPositionRabattsatz.AsFloat/100);\r\n    xdsPositioneinzelpreisbrutto.asfloat:=xdsPositionverkaufspreis.asfloat+(xdsPositionVerkaufspreis.asfloat*xdsPositionmehrwertsteuersatz.asfloat/100);\r\n\r\n\r\n  if dm2.tablesysdatrundungIT.asboolean=true then xdsPositionVerkaufspreis.asfloat:=dm2.roundkfm(xdsPositionVerkaufspreis.asfloat,-2);\r\n\r\n  tempvgpdivisor:=DM2.holevkpdivisor(xdsPositionArtderMenge.asstring);\r\n  xdsPositionEndpreis.asfloat:=xdsPositionMenge.AsFloat*xdsPositionVerkaufspreis.AsFloat/tempvgpdivisor;\r\n  xdsPositionEndpreis_EK.asfloat:=dm2.roundkfm(xdsPositionMenge.AsFloat*xdsPositionEinkaufspreis.AsFloat/tempvgpdivisor,frund);\r\n\r\n  xdsPositionPosMWST.asfloat:=xdsPositionEndpreis.asfloat*xdsPositionMehrwertsteuersatz.asfloat/100;\r\n  xdsPositionBruttoEndpreis.asfloat:=xdsPositionposMWST.asfloat+xdsPositionEndpreis.asfloat;\r\n  xdsPositionProvisionsbetrag.asfloat:=dm2.roundkfm((xdsPositionEndpreis.asfloat*xdsPositionProvisionssatz.asfloat/100),-2);\r\n\r\n  xdsPositionPosMarge.asfloat:=xdsPositionEndpreis.asfloat-xdsPositionEndpreis_EK.AsFloat;\r\n  if xdsPositionEndpreis_EK.AsFloat<>0 then\r\n  begin\r\n    xdsPositionPosMargeProzent.asfloat:=xdsPositionPosMarge.asfloat/xdsPositionEndpreis_EK.asfloat*100;\r\n  end\r\n  else\r\n  begin\r\n    xdsPositionPosMargeProzent.AsFloat:=0;\r\n  end;\r\n\r\n  {\r\n  // Pruefung auf die Artikelverfügbarkeit\r\n  if xdsPositionBereitsGeliefert.AsFloat<>xdsPositionMenge.asfloat then\r\n  begin\r\n    if xdsPositionWarenbestand.asboolean=false then xdsPositionbestellen.AsBoolean:=false;\r\n    if xdsPositionWarenbestand.asboolean=true then\r\n    begin\r\n      dm2.queryeinzelartikelbestand.close;\r\n      dm2.queryEinzelartikelbestand.SQL.Clear;\r\n      dm2.queryeinzelartikelbestand.SQL.append('select Bestand+Mindestbestand AS Bestand from Artikel where Artikelnummer = '''+xdsPositionartikelnummerwb.asstring+'''');\r\n      dm2.queryEinzelartikelbestand.open;\r\n      if dm2.queryEinzelartikelbestandBestand.asfloat>=xdsPositionMenge.asfloat then\r\n      begin\r\n        xdsPositionbestellen.asboolean:=false;\r\n      end\r\n      else\r\n      begin\r\n        xdsPositionbestellen.asboolean:=true;\r\n      end;\r\n      dm2.queryEinzelartikelbestand.close;\r\n    end;\r\n  end;\r\n  }\r\n\r\n  //RTF-Austausch Beginn\r\n  //xdsPositionArtikelbeschreibung.value:=Auftrag.richartikel.Text;\r\n  xdsPositionArtikelbeschreibungRTF.asstring:=xdsPositionArtikelbeschreibung.AsString;\r\n  //RTF-Austausch fertig\r\n  if xdsPositionArtikelbeschreibung.asstring='' then xdsPositionArtikelbeschreibung.asstring:=' ';\r\n  xdsPositionPosVolumen.AsFloat:=xdsPositionVolumen.AsFloat*xdsPositionMenge.AsFloat;\r\n\r\nend;\r\n\r\nprocedure TAuftragPosEinzel.xdsPositionNewRecord(DataSet: TDataSet);\r\nvar\r\n  guid:TGUID;\r\n  guidstring:string;\r\nbegin\r\n  createguid(guid);\r\n  guidstring:=guidtostring(guid);\r\n  guidstring:=ReplaceStr(guidstring,'{','');\r\n  guidstring:=ReplaceStr(guidstring,'}','');\r\n  xdsPositionlwbID.Asstring:=guidstring;\r\n  xdsPositionNummerkomplett.value:=dsBeleg2.CurrentData;\r\n  xdsPositionArtikelnummer.value:=dsArtikel.CurrentData;\r\n  xdsPositionBelegdatum.AsDateTime:=dsBeleg2Datum.AsDateTime;\r\n  xdsPositionposnr.AsFloat:=tmpLetztePosNr+1;\r\n  xdsPositionPosUNr.AsFloat:=0;\r\n  xdsPositionSumme.asboolean:=false;\r\n  xdsPositionMenge.AsInteger:=1;\r\n  xdsPositionArtderMenge.asstring:=dsArtikelArtderMengeArtderMenge.AsString;\r\n  xdsPositionMehrwertsteuersatz.AsFloat:=dsBeleg2mehrwertsteuersatz1.AsFloat;\r\n  xdsPositionVerkaufspreis.AsFloat:=dsArtikelVerkaufspreis.asfloat;\r\n  if dsBeleg2rabattsatz.asfloat=0 then xdsPositionRabattsatz.asfloat:=dsArtikelstandardRabattsatzVK.asfloat;\r\n  if dsBeleg2rabattstufe.asstring='Rabattpreis1' then xdsPositionverkaufspreis.asstring:=dsArtikelRabattpreis1.asstring;\r\n  if dsBeleg2rabattstufe.asstring='Rabattpreis2' then xdsPositionverkaufspreis.asstring:=dsArtikelRabattpreis2.asstring;\r\n  if dsBeleg2rabattstufe.asstring='Rabattpreis3' then xdsPositionverkaufspreis.asstring:=dsArtikelRabattpreis3.asstring;\r\n  if dsBeleg2rabattstufe.asstring='Rabattpreis4' then xdsPositionverkaufspreis.asstring:=dsArtikelRabattpreis4.asstring;\r\n  if dsBeleg2rabattstufe.asstring='Rabattpreis5' then xdsPositionverkaufspreis.asstring:=dsArtikelRabattpreis5.asstring;\r\n  xdsPositionPreisvorRabatt.asfloat:=xdsPositionVerkaufspreis.AsFloat;\r\n  xdsPositionPreisanteilNetto.asfloat:=dsArtikelpreisanteilnetto.asfloat;\r\n  xdsPositionEinkaufspreis.asfloat:=dsArtikelEinkaufspreis.asfloat;\r\n  xdsPositionRabattsatz.AsFloat:=dsBeleg2Rabattsatz.asfloat;\r\n  if xdsKundenpreise.RecordCount>0 then\r\n  begin\r\n    xdsPositionPreisvorrabatt.asfloat:=xdsKundenpreiseVerkaufspreis.asfloat;\r\n    if xdsKundenpreiseRabattsatz.AsFloat<>0 then xdsPositionRabattsatz.AsFloat:=xdsKundenpreiseRabattsatz.AsFloat;\r\n\r\n  end;\r\n  xdsPositionPKZ.asfloat:=0;\r\n  if dsBeleg2verleihauftrag.AsBoolean=true then xdsPositionpkz.asfloat:=2;\r\n  xdsPositionposmwst.asfloat:=0;\r\n  xdsPositionMWStKey.asinteger:=1;\r\n  xdsPositionEndpreis.asfloat:=0;\r\n  xdsPositionEndpreis_EK.asfloat:=0;\r\n  xdsPositionBruttoEndpreis.asfloat:=0;\r\n  xdsPositionEinzelpreisBrutto.asfloat:=0;\r\n  xdsPositionbereitsGeliefert.asfloat:=0;\r\n  xdsPositionBestellungErledigt.asboolean:=false;\r\n  xdsPositionausliefern.asfloat:=0;\r\n  xdsPositionbestellen.asboolean:=false;\r\n  xdsPositionlager.asstring:='[-]';\r\n  xdsPositionwarenbestand.asboolean:=dsArtikelWarenbestand.asboolean;\r\n  xdsPositionPosMargeProzent.asfloat:=0;\r\n  xdsPositionPosMarge.asfloat:=0;\r\n  xdsPositionPreisanteilnetto.asfloat:=0;\r\n  xdsPositionprovisionssatz.asfloat:=0;\r\n  xdsPositionprovisionsbetrag.asfloat:=0;\r\n  xdsPositionaussenflaeche.asfloat:=0;\r\n  xdsPositionBruttogewicht.asfloat:=0;\r\n  xdsPositionTara.asfloat:=0;\r\n  xdsPositionPlanerFarbe.asinteger:=0;\r\n  xdsPositionSeitenumbruch.asboolean:=FALSE;\r\n  xdsPositionZSnachPos.asboolean:=False;\r\n  xdsPositionPreisanteilnetto.asfloat:=0;\r\n  xdsPositionPreisVorRabattWHG.asfloat:=0;\r\n  xdsPositionpkey.asinteger:=0;\r\n  xdsPositionVolumen.AsFloat:=0;\r\n  xdsPositionPosVolumen.AsFloat:=0;\r\n  xdsPositionArtikelueberschrift.asstring:=dsArtikelArtikelueberschrift.asstring;\r\n  xdsPositionArtikelbeschreibung.asstring:=dsArtikelArtikelbeschreibung.asstring;\r\n  xdsPositionArtikelbeschreibungRTF.value:=dsArtikelArtikelbeschreibungRTF.value;\r\n  xdsPositionArtikelsprache.value:='';\r\n  {\r\n  if xdsPositionPKZ.asfloat=3 then\r\n  begin\r\n    xdsPositionArtikelbeschreibung.asstring:=dm2.tablesysdatZusatzpreisText.asstring+' '+dsArtikelArtikelbeschreibung.asstring;\r\n    xdsPositionArtikelbeschreibungRTF.value:=dm2.tablesysdatZusatzpreisText.asstring+' '+dsArtikelArtikelbeschreibungRTF.value;\r\n  end;\r\n\r\n  if xdsPositionPKZ.asfloat=4 then\r\n  begin\r\n    xdsPositionArtikelbeschreibung.asstring:=dsArtikelArtikelbeschreibung.asstring+#13+#10+dm2.tablesysdatZusatzpreisText.asstring;\r\n    xdsPositionArtikelbeschreibungRTF.value:=dsArtikelArtikelbeschreibungRTF.value+#13+#10+dm2.tablesysdatZusatzpreisText.asstring;\r\n  end;\r\n   }\r\n\r\n  xdsPositiongewicht.asstring:=dsArtikelGewicht.AsString;\r\n  xdsPositionLaenge.asstring:=dsArtikelLaenge.AsString;\r\n  xdsPositionBreite.asstring:=dsArtikelBreite.AsString;\r\n  xdsPositionHoehe.asstring:=dsArtikelHoehe.AsString;\r\n  xdsPositionMWStKey.asInteger:=dsArtikelMWStKey.asInteger;\r\n  xdsPositionWarenbestand.asboolean:=dsArtikelWarenbestand.asboolean;\r\n  xdsPositionLieferant.asstring:=dsArtikellieferantnummer.asstring;\r\n  xdsPositionEinkaufspreis.AsString:=dsArtikeleinkaufspreis.asstring;\r\n  xdsPositionEKvom.asstring:=dsArtikeleinkaufspreisvom.asstring;\r\n  xdsPositionLager.asstring:=dsArtikelLagerort.asstring;\r\n  xdsPositionVolumen.AsFloat:=dsArtikelVolumen.AsFloat;\r\n  xdsPositionArtikelAttribute.AsString:=dsArtikelArtikelAttribute.AsString;\r\n  {\r\n  xdsPositionProvisionssatz.Asfloat:=GF.GetProvisionssatz(dsBelegVertreterMatchcode.AsString,dsBelegKundennummer.AsString,xdsPositionartikelnummer.AsString);\r\n\r\n\r\n  xdsPositionquellartikel.asstring:=dsArtikelquellartikel.asstring;\r\n  xdsPositionEinkaufspreis.Asfloat:=GF.ekpreisquellartikel(xdsPositionquellartikel.asstring,xdsPositionEinkaufspreis.Asfloat);\r\n  }\r\n  xdsPositionTextfrei10.asstring:=dsArtikeltextfrei10.asstring;\r\n  xdsPositionTextfrei20.asstring:=dsArtikeltextfrei20.asstring;\r\n\r\n  // Preis nach PKZ holen\r\n  if xdsPositionpkz.asfloat=2 then xdsPositionpreisvorrabatt.asfloat:=dsArtikelverleihpreis.asfloat;\r\n  if xdsPositionpkz.asfloat=3 then xdsPositionpreisvorrabatt.asfloat:=dsArtikelZusatzpreis.asfloat;\r\n  if xdsPositionpkz.asfloat=4 then xdsPositionpreisvorrabatt.asfloat:=dsArtikelverleihpreis.asfloat + dsArtikelZusatzpreis.asfloat;\r\n\r\n  {\r\n\r\n  //Zusatz\r\n  if xdsPositionPKZ.asfloat=3 then\r\n  begin\r\n    if dm2.queryKundenpreisZusatzpreis.AsFloat<>0 then\r\n    begin\r\n      xdsPositionPreisvorRabatt.AsFloat:=dm2.queryKundenpreisZusatzpreis.AsFloat;\r\n      xdsPositionRabattsatz.asfloat:=0;\r\n      xdsPositionVerkaufspreis.asfloat:=xdsPositionPreisvorRabatt.asfloat;\r\n    end;\r\n  end;\r\n\r\n  //Verleih+Zusatzpreis kundenbezogen\r\n  if xdsPositionPKZ.asfloat=4 then\r\n  begin\r\n    if dm2.queryKundenpreisVerleihpreis.AsFloat<>0 then\r\n    begin\r\n      xdsPositionPreisvorRabatt.AsFloat:=dm2.queryKundenpreisVerleihpreis.AsFloat+dm2.querykundenpreiszusatzpreis.asfloat;\r\n      xdsPositionRabattsatz.asfloat:=0;\r\n      xdsPositionVerkaufspreis.asfloat:=xdsPositionPreisvorRabatt.asfloat;\r\n    end;\r\n  end;\r\n\r\n  dm2.queryKundenpreis.close;\r\n\r\n\r\n\r\n\r\n  //Preiszuschlag für Artikel Beginn\r\n  if gf.checkpreiszuschlag(AN) then\r\n  begin\r\n    Application.CreateForm(TArtikelAuswahlPreiszuschlag, ArtikelAuswahlPreiszuschlag);\r\n    ArtikelAuswahlPreiszuschlag.zuschlagartikelnummer:=AN;\r\n    ArtikelAuswahlPreiszuschlag.showmodal;\r\n    if artikelauswahlpreiszuschlag.resultzuschlagpreisgruppe<>'' then\r\n    begin\r\n      xdsPositiontextfrei10.asstring:=artikelauswahlpreiszuschlag.resultzuschlagtextfrei10;\r\n      xdsPositiontextfrei20.asstring:=artikelauswahlpreiszuschlag.resultzuschlagtextfrei20;\r\n      if artikelauswahlpreiszuschlag.resultzuschlagvk>0 then\r\n      begin\r\n        xdsPositionpreisvorrabatt.asfloat:=xdsPositionpreisvorrabatt.asfloat+artikelauswahlpreiszuschlag.resultzuschlagvk;\r\n      end\r\n      else\r\n      begin\r\n        if artikelauswahlpreiszuschlag.resultzuschlagvkprozent<>0 then\r\n        begin\r\n          xdsPositionpreisvorrabatt.asfloat:=xdsPositionpreisvorrabatt.asfloat+(xdsPositionpreisvorrabatt.asfloat*artikelauswahlpreiszuschlag.resultzuschlagvkprozent/100);\r\n        end;\r\n      end;\r\n    end;\r\n    ArtikelauswahlPreiszuschlag.free;\r\n  end;\r\n  // Preiszuschlag für Artikel ENDE\r\n\r\n  // Sonderpreis holen\r\n   xdsPositionpreisvorrabatt.AsFloat:=gf.artikelsonderpreisholenVK(AN,dsBelegDatum.AsDateTime,xdsPositionPreisvorRabatt.asfloat);\r\n  // Fremdwährungspreis holen\r\n  if dm2.tablesysdatMultipleWHG.asboolean then\r\n  begin\r\n    if dsBelegDruckWHG.AsString<>dm2.tablesysdatBWHG.asstring then\r\n    begin\r\n      xdsPositionpreisvorrabattwhg.asfloat:=gf.artikelpreisWHGholenVK(AN, dsBelegdruckwhg.asstring,dsBelegdruckwhgkurs.asfloat,xdsPositionpreisvorrabatt.asfloat);\r\n    end;\r\n  end;\r\n  // Artikeltranslation gemäß Belegsprache\r\n  if (dsBelegbelegsprache.asstring<>'German') AND (dsBelegbelegsprache.asstring<>'')  then\r\n  begin\r\n    dm2.tablesprachen.locate('Belegsprache',dsBelegbelegsprache.asstring,[LOCASEINSENSITIVE]);\r\n    dm2.adoquery1.close;\r\n    dm2.adoquery1.sql.clear;\r\n    dm2.adoquery1.sql.append('select Artikelsprache from ArtikelTranslation WHERE Artikelnummer='''+AN+''' AND ISO6392Code='''+dm2.tablespracheniso6392Code.asstring+'''');\r\n    dm2.adoquery1.open;\r\n    if dm2.adoquery1.fieldbyname('Artikelsprache').asstring<>'' then xdsPositionArtikelsprache.value:=dm2.adoquery1.fieldbyname('Artikelsprache').value;\r\n    dm2.adoquery1.close;\r\n  end;\r\n  }\r\n\r\n\r\n\r\n\r\n\r\nend;\r\n\r\nprocedure TAuftragPosEinzel.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  btnPosAbbrechen := TButton.Create(Self);\r\n  btnPosSpeichern := TButton.Create(Self);\r\n  btnPositionLoeschen := TButton.Create(Self);\r\n  edtPosNr := TDBEdit.Create(Self);\r\n  edtPosUNr := TDBEdit.Create(Self);\r\n  edtArtikelueberschrift := TDBEdit.Create(Self);\r\n  edtMenge := TDBEdit.Create(Self);\r\n  btnArtikelnummer := TButton.Create(Self);\r\n  edtArbeitszeitDatum := TDBDateTimePicker.Create(Self);\r\n  edtArbeitszeitVON := TDBDateTimePicker.Create(Self);\r\n  edtArbeitszeitBIS := TDBDateTimePicker.Create(Self);\r\n  edtArtikelbeschreibung := TDBMemo.Create(Self);\r\n  PosComboMonteur := TComboBox.Create(Self);\r\n  edtMengenart := TDBLookupComboBox.Create(Self);\r\n  btnNeuePosition := TButton.Create(Self);\r\n  WTCPosition := TTableControl.Create(Self);\r\n  xdsPosition := TXDataWebDataSet.Create(Self);\r\n  xdsPositionID := TIntegerField.Create(Self);\r\n  xdsPositionPosNr := TFloatField.Create(Self);\r\n  xdsPositionPosUNr := TFloatField.Create(Self);\r\n  xdsPositionArtikelueberschrift := TStringField.Create(Self);\r\n  xdsPositionArtikelbeschreibung := TStringField.Create(Self);\r\n  xdsPositionMenge := TFloatField.Create(Self);\r\n  xdsPositionArtderMenge := TStringField.Create(Self);\r\n  xdsPositionVerkaufspreis := TFloatField.Create(Self);\r\n  xdsPositionEinkaufspreis := TFloatField.Create(Self);\r\n  xdsPositionArtikelnummer := TXDataWebEntityField.Create(Self);\r\n  xdsPositionMonteurP := TIntegerField.Create(Self);\r\n  xdsPositionArbeitszeitDatum := TDateTimeField.Create(Self);\r\n  xdsPositionArbeitszeitVON := TDateTimeField.Create(Self);\r\n  xdsPositionArbeitszeitBIS := TDateTimeField.Create(Self);\r\n  xdsPositionSumme := TBooleanField.Create(Self);\r\n  xdsPositionSeriennummer := TStringField.Create(Self);\r\n  xdsPositionWarengruppe := TStringField.Create(Self);\r\n  xdsPositionWarenuntergruppe := TStringField.Create(Self);\r\n  xdsPositionArtikelnummerKunde := TStringField.Create(Self);\r\n  xdsPositionLieferant := TStringField.Create(Self);\r\n  xdsPositionGewicht := TFloatField.Create(Self);\r\n  xdsPositionLaenge := TFloatField.Create(Self);\r\n  xdsPositionBreite := TFloatField.Create(Self);\r\n  xdsPositionHoehe := TFloatField.Create(Self);\r\n  xdsPositionMehrwertsteuersatz := TFloatField.Create(Self);\r\n  xdsPositionEndpreis := TFloatField.Create(Self);\r\n  xdsPositionPosMWST := TFloatField.Create(Self);\r\n  xdsPositionBruttoEndpreis := TFloatField.Create(Self);\r\n  xdsPositionEndpreis_EK := TFloatField.Create(Self);\r\n  xdsPositionRabattsatz := TFloatField.Create(Self);\r\n  xdsPositionPreisvorRabatt := TFloatField.Create(Self);\r\n  xdsPositionPKZ := TFloatField.Create(Self);\r\n  xdsPositionTextfrei10 := TStringField.Create(Self);\r\n  xdsPositionTextfrei20 := TStringField.Create(Self);\r\n  xdsPositionProduktionAbgeschlossen := TDateTimeField.Create(Self);\r\n  xdsPositionEinzelpreisBrutto := TFloatField.Create(Self);\r\n  xdsPositionPosMarge := TFloatField.Create(Self);\r\n  xdsPositionPosMargeProzent := TFloatField.Create(Self);\r\n  xdsPositionBereitsGeliefert := TFloatField.Create(Self);\r\n  xdsPositionausliefern := TFloatField.Create(Self);\r\n  xdsPositionBestellungErledigt := TBooleanField.Create(Self);\r\n  xdsPositionLager := TStringField.Create(Self);\r\n  xdsPositionbestellen := TBooleanField.Create(Self);\r\n  xdsPositionWarenbestand := TBooleanField.Create(Self);\r\n  xdsPositionArtikelbeschreibungRTF := TStringField.Create(Self);\r\n  xdsPositionQuellartikel := TStringField.Create(Self);\r\n  xdsPositionArtikelnummerWB := TStringField.Create(Self);\r\n  xdsPositionPreisanteilNetto := TFloatField.Create(Self);\r\n  xdsPositionSetHPos := TStringField.Create(Self);\r\n  xdsPositionSetUPos := TStringField.Create(Self);\r\n  xdsPositionProvisionssatz := TFloatField.Create(Self);\r\n  xdsPositionProvisionsbetrag := TFloatField.Create(Self);\r\n  xdsPositionArtikelsprache := TStringField.Create(Self);\r\n  xdsPositionEKvom := TDateTimeField.Create(Self);\r\n  xdsPositionMengenberechnungID := TStringField.Create(Self);\r\n  xdsPositionTaraID := TStringField.Create(Self);\r\n  xdsPositionTara := TFloatField.Create(Self);\r\n  xdsPositionBruttoGewicht := TFloatField.Create(Self);\r\n  xdsPositionAussenflaeche := TFloatField.Create(Self);\r\n  xdsPositionLadeort := TStringField.Create(Self);\r\n  xdsPositionSeitenumbruch := TBooleanField.Create(Self);\r\n  xdsPositionPlanerFarbe := TIntegerField.Create(Self);\r\n  xdsPositionMWStKey := TIntegerField.Create(Self);\r\n  xdsPositionZSnachPos := TBooleanField.Create(Self);\r\n  xdsPositionLieferzeit := TStringField.Create(Self);\r\n  xdsPositionPreisVorRabattWHG := TFloatField.Create(Self);\r\n  xdsPositionReferenzKalkulation := TStringField.Create(Self);\r\n  xdsPositionPKey := TIntegerField.Create(Self);\r\n  xdsPositionAuftragsnummer := TStringField.Create(Self);\r\n  xdsPositionlwbID := TStringField.Create(Self);\r\n  xdsPositionBelegdatum := TDateTimeField.Create(Self);\r\n  xdsPositionWarenkontrollnummern := TStringField.Create(Self);\r\n  xdsPositionVolumen := TFloatField.Create(Self);\r\n  xdsPositionPosVolumen := TFloatField.Create(Self);\r\n  xdsPositionArtikelAttribute := TStringField.Create(Self);\r\n  xdsPositionNummerkomplett := TXDataWebEntityField.Create(Self);\r\n  sourcePosition := TDataSource.Create(Self);\r\n  dsArtikel := TXDataWebDataSet.Create(Self);\r\n  dsArtikelHersteller := TXDataWebEntityField.Create(Self);\r\n  dsArtikelArtderMenge := TXDataWebEntityField.Create(Self);\r\n  dsArtikelPfandArt := TXDataWebEntityField.Create(Self);\r\n  dsArtikelWarengruppe := TXDataWebEntityField.Create(Self);\r\n  dsArtikelWarenuntergruppe := TXDataWebEntityField.Create(Self);\r\n  dsArtikelArtikelnummer := TStringField.Create(Self);\r\n  dsArtikelArtikelueberschrift := TStringField.Create(Self);\r\n  dsArtikelArtikelbeschreibung := TStringField.Create(Self);\r\n  dsArtikelVerkaufspreis := TFloatField.Create(Self);\r\n  dsArtikelMindestbestand := TFloatField.Create(Self);\r\n  dsArtikelPreisliste := TStringField.Create(Self);\r\n  dsArtikelGewicht := TFloatField.Create(Self);\r\n  dsArtikelLaenge := TFloatField.Create(Self);\r\n  dsArtikelBreite := TFloatField.Create(Self);\r\n  dsArtikelHoehe := TFloatField.Create(Self);\r\n  dsArtikelArtikelZusatz := TStringField.Create(Self);\r\n  dsArtikelLagerort := TStringField.Create(Self);\r\n  dsArtikelBuchungskonto := TIntegerField.Create(Self);\r\n  dsArtikelEingangMenge := TFloatField.Create(Self);\r\n  dsArtikelEingangEndpreis := TFloatField.Create(Self);\r\n  dsArtikelAusgangMenge := TFloatField.Create(Self);\r\n  dsArtikelAusgangEndpreisEK := TFloatField.Create(Self);\r\n  dsArtikelAusgangEndpreisVK := TFloatField.Create(Self);\r\n  dsArtikelBestand := TFloatField.Create(Self);\r\n  dsArtikelBestandswert := TFloatField.Create(Self);\r\n  dsArtikelMarge := TFloatField.Create(Self);\r\n  dsArtikelMargeProzent := TFloatField.Create(Self);\r\n  dsArtikelArtikelnummer2 := TStringField.Create(Self);\r\n  dsArtikelArtikelmatchcode := TStringField.Create(Self);\r\n  dsArtikelRabattpreis1 := TFloatField.Create(Self);\r\n  dsArtikelRabattpreis2 := TFloatField.Create(Self);\r\n  dsArtikelRabattpreis3 := TFloatField.Create(Self);\r\n  dsArtikelRabattpreis4 := TFloatField.Create(Self);\r\n  dsArtikelRabattpreis5 := TFloatField.Create(Self);\r\n  dsArtikelArtikelnichtmehrgueltig := TBooleanField.Create(Self);\r\n  dsArtikelEinkaufspreis := TFloatField.Create(Self);\r\n  dsArtikelAufschlag := TFloatField.Create(Self);\r\n  dsArtikelWarenbestand := TBooleanField.Create(Self);\r\n  dsArtikelTextfrei10 := TStringField.Create(Self);\r\n  dsArtikelTextfrei20 := TStringField.Create(Self);\r\n  dsArtikelArtikelbeschreibungRTF := TStringField.Create(Self);\r\n  dsArtikelArtikeldatei1 := TStringField.Create(Self);\r\n  dsArtikelArtikeldatei2 := TStringField.Create(Self);\r\n  dsArtikelArtikeldatei3 := TStringField.Create(Self);\r\n  dsArtikelArtikeldatei4 := TStringField.Create(Self);\r\n  dsArtikelArtikeldatei5 := TStringField.Create(Self);\r\n  dsArtikelEinkaufspreisVom := TDateTimeField.Create(Self);\r\n  dsArtikelEAN := TStringField.Create(Self);\r\n  dsArtikelVGPFaktor := TFloatField.Create(Self);\r\n  dsArtikelVGPMengenart := TStringField.Create(Self);\r\n  dsArtikelVerleihpreis := TFloatField.Create(Self);\r\n  dsArtikelZusatzPreis := TFloatField.Create(Self);\r\n  dsArtikelVerpackungsart := TStringField.Create(Self);\r\n  dsArtikelVerpackungsMenge := TFloatField.Create(Self);\r\n  dsArtikelQuellartikel := TStringField.Create(Self);\r\n  dsArtikelrabattierfaehig := TBooleanField.Create(Self);\r\n  dsArtikelAngebotAlternativeAN := TStringField.Create(Self);\r\n  dsArtikelPreisanteilNetto := TFloatField.Create(Self);\r\n  dsArtikelFarbe := TIntegerField.Create(Self);\r\n  dsArtikelAEinkauf := TBooleanField.Create(Self);\r\n  dsArtikelAVerkauf := TBooleanField.Create(Self);\r\n  dsArtikelArtikelnummerLieferant := TStringField.Create(Self);\r\n  dsArtikelLieferantnummer := TStringField.Create(Self);\r\n  dsArtikelVerkaufspreisBrutto := TFloatField.Create(Self);\r\n  dsArtikelArtikelSet := TBooleanField.Create(Self);\r\n  dsArtikelProvisionssatz := TFloatField.Create(Self);\r\n  dsArtikelWarentarifnummer := TStringField.Create(Self);\r\n  dsArtikelHandelsartikel := TBooleanField.Create(Self);\r\n  dsArtikelUrsprungsland := TStringField.Create(Self);\r\n  dsArtikelKategorie := TStringField.Create(Self);\r\n  dsArtikelStandardRabattsatzEK := TFloatField.Create(Self);\r\n  dsArtikelStandardRabattsatzVK := TFloatField.Create(Self);\r\n  dsArtikelRabattpreiseManuell := TBooleanField.Create(Self);\r\n  dsArtikelMengeBestellt := TFloatField.Create(Self);\r\n  dsArtikelMengeBeauftragt := TFloatField.Create(Self);\r\n  dsArtikelBestandDisponiert := TFloatField.Create(Self);\r\n  dsArtikelMengeAngeboten := TFloatField.Create(Self);\r\n  dsArtikelBestandDispInclAngebot := TFloatField.Create(Self);\r\n  dsArtikelMWStKey := TIntegerField.Create(Self);\r\n  dsArtikelShopAmazon := TBooleanField.Create(Self);\r\n  dsArtikelShopQuelle := TBooleanField.Create(Self);\r\n  dsArtikelGeraet := TBooleanField.Create(Self);\r\n  dsArtikelArtgewicht := TFloatField.Create(Self);\r\n  dsArtikelVolumen := TFloatField.Create(Self);\r\n  dsArtikelPacklisteNichtAnzeigen := TBooleanField.Create(Self);\r\n  dsArtikelKeineAufschlagskalkulation := TBooleanField.Create(Self);\r\n  dsArtikelKorrekturMenge := TFloatField.Create(Self);\r\n  dsArtikelKorrekturWert := TFloatField.Create(Self);\r\n  dsArtikelNachfolgeartikel := TStringField.Create(Self);\r\n  dsArtikelMindestbestellmenge := TFloatField.Create(Self);\r\n  dsArtikelSchnittEK := TFloatField.Create(Self);\r\n  dsArtikelVerkaufspreisVom := TDateTimeField.Create(Self);\r\n  dsArtikelPruefungChargeSNR := TIntegerField.Create(Self);\r\n  dsArtikelArtikelbeschreibungHTML := TStringField.Create(Self);\r\n  dsArtikelProduktKurzbeschreibungHTML := TStringField.Create(Self);\r\n  dsArtikelStatusFuerShop := TStringField.Create(Self);\r\n  dsArtikelAmpelFuerShop := TStringField.Create(Self);\r\n  dsArtikelEXP_Anzahl := TFloatField.Create(Self);\r\n  dsArtikelEXP_Inhalt := TFloatField.Create(Self);\r\n  dsArtikelEXP_Faktor := TFloatField.Create(Self);\r\n  dsArtikelFach := TStringField.Create(Self);\r\n  dsArtikelExportKasse := TIntegerField.Create(Self);\r\n  dsArtikelWKNR := TIntegerField.Create(Self);\r\n  dsArtikelArtikelAttribute := TStringField.Create(Self);\r\n  dsArtikelErstelltAm := TDateTimeField.Create(Self);\r\n  dsArtikelVarianteVonAN := TStringField.Create(Self);\r\n  dsArtikelGurtmassWerte := TStringField.Create(Self);\r\n  dsArtikelGurtmass := TFloatField.Create(Self);\r\n  dsArtikelAltersgrenze := TIntegerField.Create(Self);\r\n  dsArtikelMWStKeyImHaus := TIntegerField.Create(Self);\r\n  dsArtikelKasseBewegung := TFloatField.Create(Self);\r\n  dsArtikelKasseBewegungEK := TFloatField.Create(Self);\r\n  dsArtikelKasseBewegungVK := TFloatField.Create(Self);\r\n  dsArtikelProduktionBewegung := TFloatField.Create(Self);\r\n  dsArtikelProduktionBewegungEK := TFloatField.Create(Self);\r\n  dsArtikelProduktionBewegungVK := TFloatField.Create(Self);\r\n  dsArtikelWaWiAB := TIntegerField.Create(Self);\r\n  dsArtikelGeaendertAm := TDateTimeField.Create(Self);\r\n  dsArtikelGefahrgutKennzeichen := TStringField.Create(Self);\r\n  dsArtikelVerpackG := TBooleanField.Create(Self);\r\n  dsArtikelUPE := TFloatField.Create(Self);\r\n  dsArtikelArtikelbeschreibungEinkauf := TStringField.Create(Self);\r\n  dsArtikelHerstellerArtikelnummer := TStringField.Create(Self);\r\n  dsArtikelNatura := TStringField.Create(Self);\r\n  dsArtikelArbeitszeit := TBooleanField.Create(Self);\r\n  dsArtikelArtderMengeArtderMenge := TStringField.Create(Self);\r\n  xdsKundenpreise := TXDataWebDataSet.Create(Self);\r\n  xdsKundenpreiseArtikelnummer := TXDataWebEntityField.Create(Self);\r\n  xdsKundenpreiseKundennummer := TXDataWebEntityField.Create(Self);\r\n  xdsKundenpreiseVerkaufspreis := TFloatField.Create(Self);\r\n  xdsKundenpreiseNachname := TStringField.Create(Self);\r\n  xdsKundenpreiseRabattsatz := TFloatField.Create(Self);\r\n  xdsKundenpreiseVerleihpreis := TFloatField.Create(Self);\r\n  xdsKundenpreiseZusatzPreis := TFloatField.Create(Self);\r\n  xdsKundenpreiseArtikelnummerKunde := TStringField.Create(Self);\r\n  xdsKundenpreiseDatumGeaendert := TDateTimeField.Create(Self);\r\n  xdsKundenpreiseArtikelueberschrift := TStringField.Create(Self);\r\n  xdsKundenpreiseArtikelnummerArtikelnummer := TStringField.Create(Self);\r\n  xdsKundenpreiseArtikelnummerArtikelueberschrift := TStringField.Create(Self);\r\n  xdsKundenpreiseArtikelnummerArtikelbeschreibung := TStringField.Create(Self);\r\n  dsBeleg2 := TXDataWebDataSet.Create(Self);\r\n  dsBeleg2Kundennummer := TXDataWebEntityField.Create(Self);\r\n  dsBeleg2Nummerkomplett := TStringField.Create(Self);\r\n  dsBeleg2ReferenzAngebot := TStringField.Create(Self);\r\n  dsBeleg2ReferenzLieferschein := TStringField.Create(Self);\r\n  dsBeleg2ReferenzRechnung := TStringField.Create(Self);\r\n  dsBeleg2Datum := TDateTimeField.Create(Self);\r\n  dsBeleg2Jahr := TFloatField.Create(Self);\r\n  dsBeleg2Kalenderwoche := TIntegerField.Create(Self);\r\n  dsBeleg2Nachname := TStringField.Create(Self);\r\n  dsBeleg2Vorname := TStringField.Create(Self);\r\n  dsBeleg2Postleitzahl := TStringField.Create(Self);\r\n  dsBeleg2Ort := TStringField.Create(Self);\r\n  dsBeleg2Laenderkuerzel := TStringField.Create(Self);\r\n  dsBeleg2Land := TStringField.Create(Self);\r\n  dsBeleg2Briefanrede1 := TStringField.Create(Self);\r\n  dsBeleg2Briefanrede2 := TStringField.Create(Self);\r\n  dsBeleg2EMail := TStringField.Create(Self);\r\n  dsBeleg2AdresseBild := TStringField.Create(Self);\r\n  dsBeleg2LieferanschriftBild := TStringField.Create(Self);\r\n  dsBeleg2Zahlungsbedingung := TIntegerField.Create(Self);\r\n  dsBeleg2ZahlungsbedingungText := TStringField.Create(Self);\r\n  dsBeleg2Auftragsbezeichnung := TStringField.Create(Self);\r\n  dsBeleg2AuftragnummerKunde := TStringField.Create(Self);\r\n  dsBeleg2BestelldatumKunde := TDateTimeField.Create(Self);\r\n  dsBeleg2ILN := TStringField.Create(Self);\r\n  dsBeleg2Kopftext := TStringField.Create(Self);\r\n  dsBeleg2Schlussbemerkung := TStringField.Create(Self);\r\n  dsBeleg2Gruss := TStringField.Create(Self);\r\n  dsBeleg2Mehrwertsteuersatz1 := TFloatField.Create(Self);\r\n  dsBeleg2Mehrwertsteuersatz2 := TFloatField.Create(Self);\r\n  dsBeleg2Nettosumme01 := TFloatField.Create(Self);\r\n  dsBeleg2Nettosumme02 := TFloatField.Create(Self);\r\n  dsBeleg2Nettosumme := TFloatField.Create(Self);\r\n  dsBeleg2Mehrwertsteuer01 := TFloatField.Create(Self);\r\n  dsBeleg2Mehrwertsteuer02 := TFloatField.Create(Self);\r\n  dsBeleg2Mehrwertsteuer := TFloatField.Create(Self);\r\n  dsBeleg2Bruttosumme := TFloatField.Create(Self);\r\n  dsBeleg2Versanddatum := TDateTimeField.Create(Self);\r\n  dsBeleg2Skontosatz := TFloatField.Create(Self);\r\n  dsBeleg2NettosummeEK := TFloatField.Create(Self);\r\n  dsBeleg2NettoMarge := TFloatField.Create(Self);\r\n  dsBeleg2Schreibzeichen := TStringField.Create(Self);\r\n  dsBeleg2Unterzeichner := TStringField.Create(Self);\r\n  dsBeleg2TelefonMA := TStringField.Create(Self);\r\n  dsBeleg2EmailMA := TStringField.Create(Self);\r\n  dsBeleg2USTID := TStringField.Create(Self);\r\n  dsBeleg2Umsatzsteuerausweis := TBooleanField.Create(Self);\r\n  dsBeleg2gebucht := TBooleanField.Create(Self);\r\n  dsBeleg2Lieferdatum := TDateTimeField.Create(Self);\r\n  dsBeleg2Transportbedingung := TStringField.Create(Self);\r\n  dsBeleg2Mehrwertsteuersatz3 := TFloatField.Create(Self);\r\n  dsBeleg2Mehrwertsteuer03 := TFloatField.Create(Self);\r\n  dsBeleg2Nettosumme03 := TFloatField.Create(Self);\r\n  dsBeleg2RundungsDifferenz := TFloatField.Create(Self);\r\n  dsBeleg2EmailText := TStringField.Create(Self);\r\n  dsBeleg2Auftragerledigt := TBooleanField.Create(Self);\r\n  dsBeleg2Rabattstufe := TStringField.Create(Self);\r\n  dsBeleg2KFZKennzeichen := TStringField.Create(Self);\r\n  dsBeleg2Fahrgestellnummer := TStringField.Create(Self);\r\n  dsBeleg2KFZHersteller := TStringField.Create(Self);\r\n  dsBeleg2Erstzulassungsdatum := TDateTimeField.Create(Self);\r\n  dsBeleg2KMStand := TStringField.Create(Self);\r\n  dsBeleg2KFZType := TStringField.Create(Self);\r\n  dsBeleg2Inspektionsdatum := TDateTimeField.Create(Self);\r\n  dsBeleg2Debitorennummer := TStringField.Create(Self);\r\n  dsBeleg2Kostentraeger := TStringField.Create(Self);\r\n  dsBeleg2Rabattsatz := TFloatField.Create(Self);\r\n  dsBeleg2ObjektReferenz := TStringField.Create(Self);\r\n  dsBeleg2Bank := TStringField.Create(Self);\r\n  dsBeleg2Bankleitzahl := TFloatField.Create(Self);\r\n  dsBeleg2Kontonummer := TStringField.Create(Self);\r\n  dsBeleg2Kontoinhaber := TStringField.Create(Self);\r\n  dsBeleg2Telefaxnummer := TStringField.Create(Self);\r\n  dsBeleg2DatumNeu := TDateTimeField.Create(Self);\r\n  dsBeleg2Datumgeaendert := TDateTimeField.Create(Self);\r\n  dsBeleg2Objektnummer := TStringField.Create(Self);\r\n  dsBeleg2Liefertermin := TStringField.Create(Self);\r\n  dsBeleg2Emailversand := TBooleanField.Create(Self);\r\n  dsBeleg2Telefonnummer := TStringField.Create(Self);\r\n  dsBeleg2MobilTelefon := TStringField.Create(Self);\r\n  dsBeleg2AuftragFax := TBooleanField.Create(Self);\r\n  dsBeleg2REDatum := TDateTimeField.Create(Self);\r\n  dsBeleg2BenutzerNeu := TStringField.Create(Self);\r\n  dsBeleg2BenutzerGeaendert := TStringField.Create(Self);\r\n  dsBeleg2BerechnungBrutto := TBooleanField.Create(Self);\r\n  dsBeleg2Bruttosumme01 := TFloatField.Create(Self);\r\n  dsBeleg2Bruttosumme02 := TFloatField.Create(Self);\r\n  dsBeleg2Bruttosumme03 := TFloatField.Create(Self);\r\n  dsBeleg2Notiz := TStringField.Create(Self);\r\n  dsBeleg2MargeProzent := TFloatField.Create(Self);\r\n  dsBeleg2Warenkreditgesperrt := TBooleanField.Create(Self);\r\n  dsBeleg2Belegsprache := TStringField.Create(Self);\r\n  dsBeleg2Duplicate := TStringField.Create(Self);\r\n  dsBeleg2perEmail := TBooleanField.Create(Self);\r\n  dsBeleg2Ansprechpartner := TStringField.Create(Self);\r\n  dsBeleg2KundennummerFremd := TStringField.Create(Self);\r\n  dsBeleg2Protokoll := TStringField.Create(Self);\r\n  dsBeleg2Verleihauftrag := TBooleanField.Create(Self);\r\n  dsBeleg2VerleihVon := TDateTimeField.Create(Self);\r\n  dsBeleg2VerleihBis := TDateTimeField.Create(Self);\r\n  dsBeleg2AuftragGenehmigt := TBooleanField.Create(Self);\r\n  dsBeleg2gesperrt := TBooleanField.Create(Self);\r\n  dsBeleg2VerleihvonText := TStringField.Create(Self);\r\n  dsBeleg2VerleihbisText := TStringField.Create(Self);\r\n  dsBeleg2DruckWHG := TStringField.Create(Self);\r\n  dsBeleg2DruckWHGKurs := TFloatField.Create(Self);\r\n  dsBeleg2ProzentsatzZusatzposition := TFloatField.Create(Self);\r\n  dsBeleg2TextZusatzposition := TStringField.Create(Self);\r\n  dsBeleg2TextzusatzBeschreibung := TStringField.Create(Self);\r\n  dsBeleg2Layoutname := TStringField.Create(Self);\r\n  dsBeleg2Gesamtgewicht := TFloatField.Create(Self);\r\n  dsBeleg2BetragZusatzposition := TFloatField.Create(Self);\r\n  dsBeleg2ReferenzBestellung := TStringField.Create(Self);\r\n  dsBeleg2Termin1 := TDateTimeField.Create(Self);\r\n  dsBeleg2Termin2 := TDateTimeField.Create(Self);\r\n  dsBeleg2Zielkontaktnummer := TStringField.Create(Self);\r\n  dsBeleg2Zielkontaktname := TStringField.Create(Self);\r\n  dsBeleg2Bilddatei1 := TStringField.Create(Self);\r\n  dsBeleg2Bilddatei2 := TStringField.Create(Self);\r\n  dsBeleg2Zielkontaktnummer2 := TStringField.Create(Self);\r\n  dsBeleg2Zielkontaktname2 := TStringField.Create(Self);\r\n  dsBeleg2bestaetigt := TDateTimeField.Create(Self);\r\n  dsBeleg2Zielkontaktnummer3 := TStringField.Create(Self);\r\n  dsBeleg2Zielkontaktname3 := TStringField.Create(Self);\r\n  dsBeleg2Termin3 := TDateTimeField.Create(Self);\r\n  dsBeleg2Termin4 := TDateTimeField.Create(Self);\r\n  dsBeleg2Muster := TBooleanField.Create(Self);\r\n  dsBeleg2KW := TIntegerField.Create(Self);\r\n  dsBeleg2Datenlink := TStringField.Create(Self);\r\n  dsBeleg2Mehrwertsteuersatz4 := TFloatField.Create(Self);\r\n  dsBeleg2Mehrwertsteuersatz5 := TFloatField.Create(Self);\r\n  dsBeleg2Mehrwertsteuersatz6 := TFloatField.Create(Self);\r\n  dsBeleg2BesteuerungKey := TIntegerField.Create(Self);\r\n  dsBeleg2VertreterMatchcode := TStringField.Create(Self);\r\n  dsBeleg2Verfasser := TStringField.Create(Self);\r\n  dsBeleg2LieferadresseID := TIntegerField.Create(Self);\r\n  dsBeleg2AuftragStatus := TStringField.Create(Self);\r\n  dsBeleg2MonatJahr := TDateTimeField.Create(Self);\r\n  dsBeleg2Belegvariante := TStringField.Create(Self);\r\n  dsBeleg2Produktionsfreigabe := TBooleanField.Create(Self);\r\n  dsBeleg2ReferenzRahmenAuftrag := TStringField.Create(Self);\r\n  dsBeleg2DatumRahmenAuftrag := TDateTimeField.Create(Self);\r\n  dsBeleg2FahrzeugID := TIntegerField.Create(Self);\r\n  dsBeleg2AuslieferungKW := TStringField.Create(Self);\r\n  dsBeleg2BereitstellungDatum := TDateTimeField.Create(Self);\r\n  dsBeleg2VTUID := TStringField.Create(Self);\r\n  dsBeleg2LieferanschriftDaten := TStringField.Create(Self);\r\n  dsBeleg2GesamtVolumen := TFloatField.Create(Self);\r\n  dsBeleg2BelegPKey := TIntegerField.Create(Self);\r\n  dsBeleg2DruckParameter := TStringField.Create(Self);\r\n  dsBeleg2ReferenzService := TStringField.Create(Self);\r\n  dsBeleg2ZusatzDaten := TStringField.Create(Self);\r\n  dsBeleg2StandPDF := TStringField.Create(Self);\r\n  dsBeleg2Paketdienst := TStringField.Create(Self);\r\n  dsBeleg2Monteur := TIntegerField.Create(Self);\r\n  dsBeleg2KundennummerKundennummer := TStringField.Create(Self);\r\n  dsBeleg2ServiceBemerkung := TStringField.Create(Self);\r\n\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  btnPosAbbrechen.BeforeLoadDFMValues;\r\n  btnPosSpeichern.BeforeLoadDFMValues;\r\n  btnPositionLoeschen.BeforeLoadDFMValues;\r\n  edtPosNr.BeforeLoadDFMValues;\r\n  edtPosUNr.BeforeLoadDFMValues;\r\n  edtArtikelueberschrift.BeforeLoadDFMValues;\r\n  edtMenge.BeforeLoadDFMValues;\r\n  btnArtikelnummer.BeforeLoadDFMValues;\r\n  edtArbeitszeitDatum.BeforeLoadDFMValues;\r\n  edtArbeitszeitVON.BeforeLoadDFMValues;\r\n  edtArbeitszeitBIS.BeforeLoadDFMValues;\r\n  edtArtikelbeschreibung.BeforeLoadDFMValues;\r\n  PosComboMonteur.BeforeLoadDFMValues;\r\n  edtMengenart.BeforeLoadDFMValues;\r\n  btnNeuePosition.BeforeLoadDFMValues;\r\n  WTCPosition.BeforeLoadDFMValues;\r\n  xdsPosition.BeforeLoadDFMValues;\r\n  xdsPositionID.BeforeLoadDFMValues;\r\n  xdsPositionPosNr.BeforeLoadDFMValues;\r\n  xdsPositionPosUNr.BeforeLoadDFMValues;\r\n  xdsPositionArtikelueberschrift.BeforeLoadDFMValues;\r\n  xdsPositionArtikelbeschreibung.BeforeLoadDFMValues;\r\n  xdsPositionMenge.BeforeLoadDFMValues;\r\n  xdsPositionArtderMenge.BeforeLoadDFMValues;\r\n  xdsPositionVerkaufspreis.BeforeLoadDFMValues;\r\n  xdsPositionEinkaufspreis.BeforeLoadDFMValues;\r\n  xdsPositionArtikelnummer.BeforeLoadDFMValues;\r\n  xdsPositionMonteurP.BeforeLoadDFMValues;\r\n  xdsPositionArbeitszeitDatum.BeforeLoadDFMValues;\r\n  xdsPositionArbeitszeitVON.BeforeLoadDFMValues;\r\n  xdsPositionArbeitszeitBIS.BeforeLoadDFMValues;\r\n  xdsPositionSumme.BeforeLoadDFMValues;\r\n  xdsPositionSeriennummer.BeforeLoadDFMValues;\r\n  xdsPositionWarengruppe.BeforeLoadDFMValues;\r\n  xdsPositionWarenuntergruppe.BeforeLoadDFMValues;\r\n  xdsPositionArtikelnummerKunde.BeforeLoadDFMValues;\r\n  xdsPositionLieferant.BeforeLoadDFMValues;\r\n  xdsPositionGewicht.BeforeLoadDFMValues;\r\n  xdsPositionLaenge.BeforeLoadDFMValues;\r\n  xdsPositionBreite.BeforeLoadDFMValues;\r\n  xdsPositionHoehe.BeforeLoadDFMValues;\r\n  xdsPositionMehrwertsteuersatz.BeforeLoadDFMValues;\r\n  xdsPositionEndpreis.BeforeLoadDFMValues;\r\n  xdsPositionPosMWST.BeforeLoadDFMValues;\r\n  xdsPositionBruttoEndpreis.BeforeLoadDFMValues;\r\n  xdsPositionEndpreis_EK.BeforeLoadDFMValues;\r\n  xdsPositionRabattsatz.BeforeLoadDFMValues;\r\n  xdsPositionPreisvorRabatt.BeforeLoadDFMValues;\r\n  xdsPositionPKZ.BeforeLoadDFMValues;\r\n  xdsPositionTextfrei10.BeforeLoadDFMValues;\r\n  xdsPositionTextfrei20.BeforeLoadDFMValues;\r\n  xdsPositionProduktionAbgeschlossen.BeforeLoadDFMValues;\r\n  xdsPositionEinzelpreisBrutto.BeforeLoadDFMValues;\r\n  xdsPositionPosMarge.BeforeLoadDFMValues;\r\n  xdsPositionPosMargeProzent.BeforeLoadDFMValues;\r\n  xdsPositionBereitsGeliefert.BeforeLoadDFMValues;\r\n  xdsPositionausliefern.BeforeLoadDFMValues;\r\n  xdsPositionBestellungErledigt.BeforeLoadDFMValues;\r\n  xdsPositionLager.BeforeLoadDFMValues;\r\n  xdsPositionbestellen.BeforeLoadDFMValues;\r\n  xdsPositionWarenbestand.BeforeLoadDFMValues;\r\n  xdsPositionArtikelbeschreibungRTF.BeforeLoadDFMValues;\r\n  xdsPositionQuellartikel.BeforeLoadDFMValues;\r\n  xdsPositionArtikelnummerWB.BeforeLoadDFMValues;\r\n  xdsPositionPreisanteilNetto.BeforeLoadDFMValues;\r\n  xdsPositionSetHPos.BeforeLoadDFMValues;\r\n  xdsPositionSetUPos.BeforeLoadDFMValues;\r\n  xdsPositionProvisionssatz.BeforeLoadDFMValues;\r\n  xdsPositionProvisionsbetrag.BeforeLoadDFMValues;\r\n  xdsPositionArtikelsprache.BeforeLoadDFMValues;\r\n  xdsPositionEKvom.BeforeLoadDFMValues;\r\n  xdsPositionMengenberechnungID.BeforeLoadDFMValues;\r\n  xdsPositionTaraID.BeforeLoadDFMValues;\r\n  xdsPositionTara.BeforeLoadDFMValues;\r\n  xdsPositionBruttoGewicht.BeforeLoadDFMValues;\r\n  xdsPositionAussenflaeche.BeforeLoadDFMValues;\r\n  xdsPositionLadeort.BeforeLoadDFMValues;\r\n  xdsPositionSeitenumbruch.BeforeLoadDFMValues;\r\n  xdsPositionPlanerFarbe.BeforeLoadDFMValues;\r\n  xdsPositionMWStKey.BeforeLoadDFMValues;\r\n  xdsPositionZSnachPos.BeforeLoadDFMValues;\r\n  xdsPositionLieferzeit.BeforeLoadDFMValues;\r\n  xdsPositionPreisVorRabattWHG.BeforeLoadDFMValues;\r\n  xdsPositionReferenzKalkulation.BeforeLoadDFMValues;\r\n  xdsPositionPKey.BeforeLoadDFMValues;\r\n  xdsPositionAuftragsnummer.BeforeLoadDFMValues;\r\n  xdsPositionlwbID.BeforeLoadDFMValues;\r\n  xdsPositionBelegdatum.BeforeLoadDFMValues;\r\n  xdsPositionWarenkontrollnummern.BeforeLoadDFMValues;\r\n  xdsPositionVolumen.BeforeLoadDFMValues;\r\n  xdsPositionPosVolumen.BeforeLoadDFMValues;\r\n  xdsPositionArtikelAttribute.BeforeLoadDFMValues;\r\n  xdsPositionNummerkomplett.BeforeLoadDFMValues;\r\n  sourcePosition.BeforeLoadDFMValues;\r\n  dsArtikel.BeforeLoadDFMValues;\r\n  dsArtikelHersteller.BeforeLoadDFMValues;\r\n  dsArtikelArtderMenge.BeforeLoadDFMValues;\r\n  dsArtikelPfandArt.BeforeLoadDFMValues;\r\n  dsArtikelWarengruppe.BeforeLoadDFMValues;\r\n  dsArtikelWarenuntergruppe.BeforeLoadDFMValues;\r\n  dsArtikelArtikelnummer.BeforeLoadDFMValues;\r\n  dsArtikelArtikelueberschrift.BeforeLoadDFMValues;\r\n  dsArtikelArtikelbeschreibung.BeforeLoadDFMValues;\r\n  dsArtikelVerkaufspreis.BeforeLoadDFMValues;\r\n  dsArtikelMindestbestand.BeforeLoadDFMValues;\r\n  dsArtikelPreisliste.BeforeLoadDFMValues;\r\n  dsArtikelGewicht.BeforeLoadDFMValues;\r\n  dsArtikelLaenge.BeforeLoadDFMValues;\r\n  dsArtikelBreite.BeforeLoadDFMValues;\r\n  dsArtikelHoehe.BeforeLoadDFMValues;\r\n  dsArtikelArtikelZusatz.BeforeLoadDFMValues;\r\n  dsArtikelLagerort.BeforeLoadDFMValues;\r\n  dsArtikelBuchungskonto.BeforeLoadDFMValues;\r\n  dsArtikelEingangMenge.BeforeLoadDFMValues;\r\n  dsArtikelEingangEndpreis.BeforeLoadDFMValues;\r\n  dsArtikelAusgangMenge.BeforeLoadDFMValues;\r\n  dsArtikelAusgangEndpreisEK.BeforeLoadDFMValues;\r\n  dsArtikelAusgangEndpreisVK.BeforeLoadDFMValues;\r\n  dsArtikelBestand.BeforeLoadDFMValues;\r\n  dsArtikelBestandswert.BeforeLoadDFMValues;\r\n  dsArtikelMarge.BeforeLoadDFMValues;\r\n  dsArtikelMargeProzent.BeforeLoadDFMValues;\r\n  dsArtikelArtikelnummer2.BeforeLoadDFMValues;\r\n  dsArtikelArtikelmatchcode.BeforeLoadDFMValues;\r\n  dsArtikelRabattpreis1.BeforeLoadDFMValues;\r\n  dsArtikelRabattpreis2.BeforeLoadDFMValues;\r\n  dsArtikelRabattpreis3.BeforeLoadDFMValues;\r\n  dsArtikelRabattpreis4.BeforeLoadDFMValues;\r\n  dsArtikelRabattpreis5.BeforeLoadDFMValues;\r\n  dsArtikelArtikelnichtmehrgueltig.BeforeLoadDFMValues;\r\n  dsArtikelEinkaufspreis.BeforeLoadDFMValues;\r\n  dsArtikelAufschlag.BeforeLoadDFMValues;\r\n  dsArtikelWarenbestand.BeforeLoadDFMValues;\r\n  dsArtikelTextfrei10.BeforeLoadDFMValues;\r\n  dsArtikelTextfrei20.BeforeLoadDFMValues;\r\n  dsArtikelArtikelbeschreibungRTF.BeforeLoadDFMValues;\r\n  dsArtikelArtikeldatei1.BeforeLoadDFMValues;\r\n  dsArtikelArtikeldatei2.BeforeLoadDFMValues;\r\n  dsArtikelArtikeldatei3.BeforeLoadDFMValues;\r\n  dsArtikelArtikeldatei4.BeforeLoadDFMValues;\r\n  dsArtikelArtikeldatei5.BeforeLoadDFMValues;\r\n  dsArtikelEinkaufspreisVom.BeforeLoadDFMValues;\r\n  dsArtikelEAN.BeforeLoadDFMValues;\r\n  dsArtikelVGPFaktor.BeforeLoadDFMValues;\r\n  dsArtikelVGPMengenart.BeforeLoadDFMValues;\r\n  dsArtikelVerleihpreis.BeforeLoadDFMValues;\r\n  dsArtikelZusatzPreis.BeforeLoadDFMValues;\r\n  dsArtikelVerpackungsart.BeforeLoadDFMValues;\r\n  dsArtikelVerpackungsMenge.BeforeLoadDFMValues;\r\n  dsArtikelQuellartikel.BeforeLoadDFMValues;\r\n  dsArtikelrabattierfaehig.BeforeLoadDFMValues;\r\n  dsArtikelAngebotAlternativeAN.BeforeLoadDFMValues;\r\n  dsArtikelPreisanteilNetto.BeforeLoadDFMValues;\r\n  dsArtikelFarbe.BeforeLoadDFMValues;\r\n  dsArtikelAEinkauf.BeforeLoadDFMValues;\r\n  dsArtikelAVerkauf.BeforeLoadDFMValues;\r\n  dsArtikelArtikelnummerLieferant.BeforeLoadDFMValues;\r\n  dsArtikelLieferantnummer.BeforeLoadDFMValues;\r\n  dsArtikelVerkaufspreisBrutto.BeforeLoadDFMValues;\r\n  dsArtikelArtikelSet.BeforeLoadDFMValues;\r\n  dsArtikelProvisionssatz.BeforeLoadDFMValues;\r\n  dsArtikelWarentarifnummer.BeforeLoadDFMValues;\r\n  dsArtikelHandelsartikel.BeforeLoadDFMValues;\r\n  dsArtikelUrsprungsland.BeforeLoadDFMValues;\r\n  dsArtikelKategorie.BeforeLoadDFMValues;\r\n  dsArtikelStandardRabattsatzEK.BeforeLoadDFMValues;\r\n  dsArtikelStandardRabattsatzVK.BeforeLoadDFMValues;\r\n  dsArtikelRabattpreiseManuell.BeforeLoadDFMValues;\r\n  dsArtikelMengeBestellt.BeforeLoadDFMValues;\r\n  dsArtikelMengeBeauftragt.BeforeLoadDFMValues;\r\n  dsArtikelBestandDisponiert.BeforeLoadDFMValues;\r\n  dsArtikelMengeAngeboten.BeforeLoadDFMValues;\r\n  dsArtikelBestandDispInclAngebot.BeforeLoadDFMValues;\r\n  dsArtikelMWStKey.BeforeLoadDFMValues;\r\n  dsArtikelShopAmazon.BeforeLoadDFMValues;\r\n  dsArtikelShopQuelle.BeforeLoadDFMValues;\r\n  dsArtikelGeraet.BeforeLoadDFMValues;\r\n  dsArtikelArtgewicht.BeforeLoadDFMValues;\r\n  dsArtikelVolumen.BeforeLoadDFMValues;\r\n  dsArtikelPacklisteNichtAnzeigen.BeforeLoadDFMValues;\r\n  dsArtikelKeineAufschlagskalkulation.BeforeLoadDFMValues;\r\n  dsArtikelKorrekturMenge.BeforeLoadDFMValues;\r\n  dsArtikelKorrekturWert.BeforeLoadDFMValues;\r\n  dsArtikelNachfolgeartikel.BeforeLoadDFMValues;\r\n  dsArtikelMindestbestellmenge.BeforeLoadDFMValues;\r\n  dsArtikelSchnittEK.BeforeLoadDFMValues;\r\n  dsArtikelVerkaufspreisVom.BeforeLoadDFMValues;\r\n  dsArtikelPruefungChargeSNR.BeforeLoadDFMValues;\r\n  dsArtikelArtikelbeschreibungHTML.BeforeLoadDFMValues;\r\n  dsArtikelProduktKurzbeschreibungHTML.BeforeLoadDFMValues;\r\n  dsArtikelStatusFuerShop.BeforeLoadDFMValues;\r\n  dsArtikelAmpelFuerShop.BeforeLoadDFMValues;\r\n  dsArtikelEXP_Anzahl.BeforeLoadDFMValues;\r\n  dsArtikelEXP_Inhalt.BeforeLoadDFMValues;\r\n  dsArtikelEXP_Faktor.BeforeLoadDFMValues;\r\n  dsArtikelFach.BeforeLoadDFMValues;\r\n  dsArtikelExportKasse.BeforeLoadDFMValues;\r\n  dsArtikelWKNR.BeforeLoadDFMValues;\r\n  dsArtikelArtikelAttribute.BeforeLoadDFMValues;\r\n  dsArtikelErstelltAm.BeforeLoadDFMValues;\r\n  dsArtikelVarianteVonAN.BeforeLoadDFMValues;\r\n  dsArtikelGurtmassWerte.BeforeLoadDFMValues;\r\n  dsArtikelGurtmass.BeforeLoadDFMValues;\r\n  dsArtikelAltersgrenze.BeforeLoadDFMValues;\r\n  dsArtikelMWStKeyImHaus.BeforeLoadDFMValues;\r\n  dsArtikelKasseBewegung.BeforeLoadDFMValues;\r\n  dsArtikelKasseBewegungEK.BeforeLoadDFMValues;\r\n  dsArtikelKasseBewegungVK.BeforeLoadDFMValues;\r\n  dsArtikelProduktionBewegung.BeforeLoadDFMValues;\r\n  dsArtikelProduktionBewegungEK.BeforeLoadDFMValues;\r\n  dsArtikelProduktionBewegungVK.BeforeLoadDFMValues;\r\n  dsArtikelWaWiAB.BeforeLoadDFMValues;\r\n  dsArtikelGeaendertAm.BeforeLoadDFMValues;\r\n  dsArtikelGefahrgutKennzeichen.BeforeLoadDFMValues;\r\n  dsArtikelVerpackG.BeforeLoadDFMValues;\r\n  dsArtikelUPE.BeforeLoadDFMValues;\r\n  dsArtikelArtikelbeschreibungEinkauf.BeforeLoadDFMValues;\r\n  dsArtikelHerstellerArtikelnummer.BeforeLoadDFMValues;\r\n  dsArtikelNatura.BeforeLoadDFMValues;\r\n  dsArtikelArbeitszeit.BeforeLoadDFMValues;\r\n  dsArtikelArtderMengeArtderMenge.BeforeLoadDFMValues;\r\n  xdsKundenpreise.BeforeLoadDFMValues;\r\n  xdsKundenpreiseArtikelnummer.BeforeLoadDFMValues;\r\n  xdsKundenpreiseKundennummer.BeforeLoadDFMValues;\r\n  xdsKundenpreiseVerkaufspreis.BeforeLoadDFMValues;\r\n  xdsKundenpreiseNachname.BeforeLoadDFMValues;\r\n  xdsKundenpreiseRabattsatz.BeforeLoadDFMValues;\r\n  xdsKundenpreiseVerleihpreis.BeforeLoadDFMValues;\r\n  xdsKundenpreiseZusatzPreis.BeforeLoadDFMValues;\r\n  xdsKundenpreiseArtikelnummerKunde.BeforeLoadDFMValues;\r\n  xdsKundenpreiseDatumGeaendert.BeforeLoadDFMValues;\r\n  xdsKundenpreiseArtikelueberschrift.BeforeLoadDFMValues;\r\n  xdsKundenpreiseArtikelnummerArtikelnummer.BeforeLoadDFMValues;\r\n  xdsKundenpreiseArtikelnummerArtikelueberschrift.BeforeLoadDFMValues;\r\n  xdsKundenpreiseArtikelnummerArtikelbeschreibung.BeforeLoadDFMValues;\r\n  dsBeleg2.BeforeLoadDFMValues;\r\n  dsBeleg2Kundennummer.BeforeLoadDFMValues;\r\n  dsBeleg2Nummerkomplett.BeforeLoadDFMValues;\r\n  dsBeleg2ReferenzAngebot.BeforeLoadDFMValues;\r\n  dsBeleg2ReferenzLieferschein.BeforeLoadDFMValues;\r\n  dsBeleg2ReferenzRechnung.BeforeLoadDFMValues;\r\n  dsBeleg2Datum.BeforeLoadDFMValues;\r\n  dsBeleg2Jahr.BeforeLoadDFMValues;\r\n  dsBeleg2Kalenderwoche.BeforeLoadDFMValues;\r\n  dsBeleg2Nachname.BeforeLoadDFMValues;\r\n  dsBeleg2Vorname.BeforeLoadDFMValues;\r\n  dsBeleg2Postleitzahl.BeforeLoadDFMValues;\r\n  dsBeleg2Ort.BeforeLoadDFMValues;\r\n  dsBeleg2Laenderkuerzel.BeforeLoadDFMValues;\r\n  dsBeleg2Land.BeforeLoadDFMValues;\r\n  dsBeleg2Briefanrede1.BeforeLoadDFMValues;\r\n  dsBeleg2Briefanrede2.BeforeLoadDFMValues;\r\n  dsBeleg2EMail.BeforeLoadDFMValues;\r\n  dsBeleg2AdresseBild.BeforeLoadDFMValues;\r\n  dsBeleg2LieferanschriftBild.BeforeLoadDFMValues;\r\n  dsBeleg2Zahlungsbedingung.BeforeLoadDFMValues;\r\n  dsBeleg2ZahlungsbedingungText.BeforeLoadDFMValues;\r\n  dsBeleg2Auftragsbezeichnung.BeforeLoadDFMValues;\r\n  dsBeleg2AuftragnummerKunde.BeforeLoadDFMValues;\r\n  dsBeleg2BestelldatumKunde.BeforeLoadDFMValues;\r\n  dsBeleg2ILN.BeforeLoadDFMValues;\r\n  dsBeleg2Kopftext.BeforeLoadDFMValues;\r\n  dsBeleg2Schlussbemerkung.BeforeLoadDFMValues;\r\n  dsBeleg2Gruss.BeforeLoadDFMValues;\r\n  dsBeleg2Mehrwertsteuersatz1.BeforeLoadDFMValues;\r\n  dsBeleg2Mehrwertsteuersatz2.BeforeLoadDFMValues;\r\n  dsBeleg2Nettosumme01.BeforeLoadDFMValues;\r\n  dsBeleg2Nettosumme02.BeforeLoadDFMValues;\r\n  dsBeleg2Nettosumme.BeforeLoadDFMValues;\r\n  dsBeleg2Mehrwertsteuer01.BeforeLoadDFMValues;\r\n  dsBeleg2Mehrwertsteuer02.BeforeLoadDFMValues;\r\n  dsBeleg2Mehrwertsteuer.BeforeLoadDFMValues;\r\n  dsBeleg2Bruttosumme.BeforeLoadDFMValues;\r\n  dsBeleg2Versanddatum.BeforeLoadDFMValues;\r\n  dsBeleg2Skontosatz.BeforeLoadDFMValues;\r\n  dsBeleg2NettosummeEK.BeforeLoadDFMValues;\r\n  dsBeleg2NettoMarge.BeforeLoadDFMValues;\r\n  dsBeleg2Schreibzeichen.BeforeLoadDFMValues;\r\n  dsBeleg2Unterzeichner.BeforeLoadDFMValues;\r\n  dsBeleg2TelefonMA.BeforeLoadDFMValues;\r\n  dsBeleg2EmailMA.BeforeLoadDFMValues;\r\n  dsBeleg2USTID.BeforeLoadDFMValues;\r\n  dsBeleg2Umsatzsteuerausweis.BeforeLoadDFMValues;\r\n  dsBeleg2gebucht.BeforeLoadDFMValues;\r\n  dsBeleg2Lieferdatum.BeforeLoadDFMValues;\r\n  dsBeleg2Transportbedingung.BeforeLoadDFMValues;\r\n  dsBeleg2Mehrwertsteuersatz3.BeforeLoadDFMValues;\r\n  dsBeleg2Mehrwertsteuer03.BeforeLoadDFMValues;\r\n  dsBeleg2Nettosumme03.BeforeLoadDFMValues;\r\n  dsBeleg2RundungsDifferenz.BeforeLoadDFMValues;\r\n  dsBeleg2EmailText.BeforeLoadDFMValues;\r\n  dsBeleg2Auftragerledigt.BeforeLoadDFMValues;\r\n  dsBeleg2Rabattstufe.BeforeLoadDFMValues;\r\n  dsBeleg2KFZKennzeichen.BeforeLoadDFMValues;\r\n  dsBeleg2Fahrgestellnummer.BeforeLoadDFMValues;\r\n  dsBeleg2KFZHersteller.BeforeLoadDFMValues;\r\n  dsBeleg2Erstzulassungsdatum.BeforeLoadDFMValues;\r\n  dsBeleg2KMStand.BeforeLoadDFMValues;\r\n  dsBeleg2KFZType.BeforeLoadDFMValues;\r\n  dsBeleg2Inspektionsdatum.BeforeLoadDFMValues;\r\n  dsBeleg2Debitorennummer.BeforeLoadDFMValues;\r\n  dsBeleg2Kostentraeger.BeforeLoadDFMValues;\r\n  dsBeleg2Rabattsatz.BeforeLoadDFMValues;\r\n  dsBeleg2ObjektReferenz.BeforeLoadDFMValues;\r\n  dsBeleg2Bank.BeforeLoadDFMValues;\r\n  dsBeleg2Bankleitzahl.BeforeLoadDFMValues;\r\n  dsBeleg2Kontonummer.BeforeLoadDFMValues;\r\n  dsBeleg2Kontoinhaber.BeforeLoadDFMValues;\r\n  dsBeleg2Telefaxnummer.BeforeLoadDFMValues;\r\n  dsBeleg2DatumNeu.BeforeLoadDFMValues;\r\n  dsBeleg2Datumgeaendert.BeforeLoadDFMValues;\r\n  dsBeleg2Objektnummer.BeforeLoadDFMValues;\r\n  dsBeleg2Liefertermin.BeforeLoadDFMValues;\r\n  dsBeleg2Emailversand.BeforeLoadDFMValues;\r\n  dsBeleg2Telefonnummer.BeforeLoadDFMValues;\r\n  dsBeleg2MobilTelefon.BeforeLoadDFMValues;\r\n  dsBeleg2AuftragFax.BeforeLoadDFMValues;\r\n  dsBeleg2REDatum.BeforeLoadDFMValues;\r\n  dsBeleg2BenutzerNeu.BeforeLoadDFMValues;\r\n  dsBeleg2BenutzerGeaendert.BeforeLoadDFMValues;\r\n  dsBeleg2BerechnungBrutto.BeforeLoadDFMValues;\r\n  dsBeleg2Bruttosumme01.BeforeLoadDFMValues;\r\n  dsBeleg2Bruttosumme02.BeforeLoadDFMValues;\r\n  dsBeleg2Bruttosumme03.BeforeLoadDFMValues;\r\n  dsBeleg2Notiz.BeforeLoadDFMValues;\r\n  dsBeleg2MargeProzent.BeforeLoadDFMValues;\r\n  dsBeleg2Warenkreditgesperrt.BeforeLoadDFMValues;\r\n  dsBeleg2Belegsprache.BeforeLoadDFMValues;\r\n  dsBeleg2Duplicate.BeforeLoadDFMValues;\r\n  dsBeleg2perEmail.BeforeLoadDFMValues;\r\n  dsBeleg2Ansprechpartner.BeforeLoadDFMValues;\r\n  dsBeleg2KundennummerFremd.BeforeLoadDFMValues;\r\n  dsBeleg2Protokoll.BeforeLoadDFMValues;\r\n  dsBeleg2Verleihauftrag.BeforeLoadDFMValues;\r\n  dsBeleg2VerleihVon.BeforeLoadDFMValues;\r\n  dsBeleg2VerleihBis.BeforeLoadDFMValues;\r\n  dsBeleg2AuftragGenehmigt.BeforeLoadDFMValues;\r\n  dsBeleg2gesperrt.BeforeLoadDFMValues;\r\n  dsBeleg2VerleihvonText.BeforeLoadDFMValues;\r\n  dsBeleg2VerleihbisText.BeforeLoadDFMValues;\r\n  dsBeleg2DruckWHG.BeforeLoadDFMValues;\r\n  dsBeleg2DruckWHGKurs.BeforeLoadDFMValues;\r\n  dsBeleg2ProzentsatzZusatzposition.BeforeLoadDFMValues;\r\n  dsBeleg2TextZusatzposition.BeforeLoadDFMValues;\r\n  dsBeleg2TextzusatzBeschreibung.BeforeLoadDFMValues;\r\n  dsBeleg2Layoutname.BeforeLoadDFMValues;\r\n  dsBeleg2Gesamtgewicht.BeforeLoadDFMValues;\r\n  dsBeleg2BetragZusatzposition.BeforeLoadDFMValues;\r\n  dsBeleg2ReferenzBestellung.BeforeLoadDFMValues;\r\n  dsBeleg2Termin1.BeforeLoadDFMValues;\r\n  dsBeleg2Termin2.BeforeLoadDFMValues;\r\n  dsBeleg2Zielkontaktnummer.BeforeLoadDFMValues;\r\n  dsBeleg2Zielkontaktname.BeforeLoadDFMValues;\r\n  dsBeleg2Bilddatei1.BeforeLoadDFMValues;\r\n  dsBeleg2Bilddatei2.BeforeLoadDFMValues;\r\n  dsBeleg2Zielkontaktnummer2.BeforeLoadDFMValues;\r\n  dsBeleg2Zielkontaktname2.BeforeLoadDFMValues;\r\n  dsBeleg2bestaetigt.BeforeLoadDFMValues;\r\n  dsBeleg2Zielkontaktnummer3.BeforeLoadDFMValues;\r\n  dsBeleg2Zielkontaktname3.BeforeLoadDFMValues;\r\n  dsBeleg2Termin3.BeforeLoadDFMValues;\r\n  dsBeleg2Termin4.BeforeLoadDFMValues;\r\n  dsBeleg2Muster.BeforeLoadDFMValues;\r\n  dsBeleg2KW.BeforeLoadDFMValues;\r\n  dsBeleg2Datenlink.BeforeLoadDFMValues;\r\n  dsBeleg2Mehrwertsteuersatz4.BeforeLoadDFMValues;\r\n  dsBeleg2Mehrwertsteuersatz5.BeforeLoadDFMValues;\r\n  dsBeleg2Mehrwertsteuersatz6.BeforeLoadDFMValues;\r\n  dsBeleg2BesteuerungKey.BeforeLoadDFMValues;\r\n  dsBeleg2VertreterMatchcode.BeforeLoadDFMValues;\r\n  dsBeleg2Verfasser.BeforeLoadDFMValues;\r\n  dsBeleg2LieferadresseID.BeforeLoadDFMValues;\r\n  dsBeleg2AuftragStatus.BeforeLoadDFMValues;\r\n  dsBeleg2MonatJahr.BeforeLoadDFMValues;\r\n  dsBeleg2Belegvariante.BeforeLoadDFMValues;\r\n  dsBeleg2Produktionsfreigabe.BeforeLoadDFMValues;\r\n  dsBeleg2ReferenzRahmenAuftrag.BeforeLoadDFMValues;\r\n  dsBeleg2DatumRahmenAuftrag.BeforeLoadDFMValues;\r\n  dsBeleg2FahrzeugID.BeforeLoadDFMValues;\r\n  dsBeleg2AuslieferungKW.BeforeLoadDFMValues;\r\n  dsBeleg2BereitstellungDatum.BeforeLoadDFMValues;\r\n  dsBeleg2VTUID.BeforeLoadDFMValues;\r\n  dsBeleg2LieferanschriftDaten.BeforeLoadDFMValues;\r\n  dsBeleg2GesamtVolumen.BeforeLoadDFMValues;\r\n  dsBeleg2BelegPKey.BeforeLoadDFMValues;\r\n  dsBeleg2DruckParameter.BeforeLoadDFMValues;\r\n  dsBeleg2ReferenzService.BeforeLoadDFMValues;\r\n  dsBeleg2ZusatzDaten.BeforeLoadDFMValues;\r\n  dsBeleg2StandPDF.BeforeLoadDFMValues;\r\n  dsBeleg2Paketdienst.BeforeLoadDFMValues;\r\n  dsBeleg2Monteur.BeforeLoadDFMValues;\r\n  dsBeleg2KundennummerKundennummer.BeforeLoadDFMValues;\r\n  dsBeleg2ServiceBemerkung.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'AuftragPosEinzel';\r\n    Width := 235;\r\n    Height := 511;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnClose', 'WebFormClose');\r\n    SetEvent(Self, 'OnCloseQuery', 'WebFormCloseQuery');\r\n    SetEvent(Self, 'OnCreate', 'WebFormCreate');\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 235;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.Align := alTop;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 41;\r\n    Container2.Width := 235;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.Align := alTop;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    btnPosAbbrechen.SetParentComponent(Self);\r\n    btnPosAbbrechen.Name := 'btnPosAbbrechen';\r\n    btnPosAbbrechen.Left := 0;\r\n    btnPosAbbrechen.Top := 206;\r\n    btnPosAbbrechen.Width := 96;\r\n    btnPosAbbrechen.Height := 25;\r\n    btnPosAbbrechen.Caption := 'Abbrechen';\r\n    btnPosAbbrechen.ChildOrder := 4;\r\n    btnPosAbbrechen.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnPosAbbrechen.ElementFont := efCSS;\r\n    btnPosAbbrechen.ElementPosition := epIgnore;\r\n    btnPosAbbrechen.HeightStyle := ssAuto;\r\n    btnPosAbbrechen.HeightPercent := 100.000000000000000000;\r\n    btnPosAbbrechen.WidthStyle := ssAuto;\r\n    btnPosAbbrechen.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnPosAbbrechen, Self, 'OnClick', 'btnPosAbbrechenClick');\r\n    btnPosSpeichern.SetParentComponent(Self);\r\n    btnPosSpeichern.Name := 'btnPosSpeichern';\r\n    btnPosSpeichern.Left := 0;\r\n    btnPosSpeichern.Top := 237;\r\n    btnPosSpeichern.Width := 96;\r\n    btnPosSpeichern.Height := 25;\r\n    btnPosSpeichern.Caption := 'Speichern';\r\n    btnPosSpeichern.ChildOrder := 4;\r\n    btnPosSpeichern.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnPosSpeichern.ElementFont := efCSS;\r\n    btnPosSpeichern.ElementPosition := epIgnore;\r\n    btnPosSpeichern.HeightStyle := ssAuto;\r\n    btnPosSpeichern.HeightPercent := 100.000000000000000000;\r\n    btnPosSpeichern.WidthStyle := ssAuto;\r\n    btnPosSpeichern.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnPosSpeichern, Self, 'OnClick', 'btnPosSpeichernClick');\r\n    btnPositionLoeschen.SetParentComponent(Self);\r\n    btnPositionLoeschen.Name := 'btnPositionLoeschen';\r\n    btnPositionLoeschen.Left := 0;\r\n    btnPositionLoeschen.Top := 268;\r\n    btnPositionLoeschen.Width := 96;\r\n    btnPositionLoeschen.Height := 25;\r\n    btnPositionLoeschen.Caption := 'Position l'#246'schen';\r\n    btnPositionLoeschen.ChildOrder := 4;\r\n    btnPositionLoeschen.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnPositionLoeschen.ElementFont := efCSS;\r\n    btnPositionLoeschen.ElementPosition := epIgnore;\r\n    btnPositionLoeschen.HeightStyle := ssAuto;\r\n    btnPositionLoeschen.HeightPercent := 100.000000000000000000;\r\n    btnPositionLoeschen.WidthStyle := ssAuto;\r\n    btnPositionLoeschen.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnPositionLoeschen, Self, 'OnClick', 'btnPositionLoeschenClick');\r\n    edtPosNr.SetParentComponent(Self);\r\n    edtPosNr.Name := 'edtPosNr';\r\n    edtPosNr.Left := 8;\r\n    edtPosNr.Top := 299;\r\n    edtPosNr.Width := 121;\r\n    edtPosNr.Height := 22;\r\n    edtPosNr.ChildOrder := 12;\r\n    edtPosNr.EditType := weNumeric;\r\n    edtPosNr.ElementClassName := 'form-control form-control-sm';\r\n    edtPosNr.ElementFont := efCSS;\r\n    edtPosNr.ElementPosition := epIgnore;\r\n    edtPosNr.HeightStyle := ssAuto;\r\n    edtPosNr.HeightPercent := 100.000000000000000000;\r\n    edtPosNr.WidthStyle := ssPercent;\r\n    edtPosNr.WidthPercent := 95.000000000000000000;\r\n    edtPosNr.DataField := 'PosNr';\r\n    edtPosNr.DataSource := sourcePosition;\r\n    edtPosUNr.SetParentComponent(Self);\r\n    edtPosUNr.Name := 'edtPosUNr';\r\n    edtPosUNr.Left := 8;\r\n    edtPosUNr.Top := 327;\r\n    edtPosUNr.Width := 121;\r\n    edtPosUNr.Height := 22;\r\n    edtPosUNr.ChildOrder := 12;\r\n    edtPosUNr.EditType := weNumeric;\r\n    edtPosUNr.ElementClassName := 'form-control form-control-sm';\r\n    edtPosUNr.ElementFont := efCSS;\r\n    edtPosUNr.ElementPosition := epIgnore;\r\n    edtPosUNr.HeightStyle := ssAuto;\r\n    edtPosUNr.HeightPercent := 100.000000000000000000;\r\n    edtPosUNr.WidthStyle := ssPercent;\r\n    edtPosUNr.WidthPercent := 95.000000000000000000;\r\n    edtPosUNr.DataField := 'PosUNr';\r\n    edtPosUNr.DataSource := sourcePosition;\r\n    edtArtikelueberschrift.SetParentComponent(Self);\r\n    edtArtikelueberschrift.Name := 'edtArtikelueberschrift';\r\n    edtArtikelueberschrift.Left := 8;\r\n    edtArtikelueberschrift.Top := 355;\r\n    edtArtikelueberschrift.Width := 121;\r\n    edtArtikelueberschrift.Height := 22;\r\n    edtArtikelueberschrift.ChildOrder := 12;\r\n    edtArtikelueberschrift.ElementClassName := 'form-control form-control-sm';\r\n    edtArtikelueberschrift.ElementFont := efCSS;\r\n    edtArtikelueberschrift.ElementPosition := epIgnore;\r\n    edtArtikelueberschrift.HeightStyle := ssAuto;\r\n    edtArtikelueberschrift.HeightPercent := 100.000000000000000000;\r\n    edtArtikelueberschrift.WidthStyle := ssPercent;\r\n    edtArtikelueberschrift.WidthPercent := 95.000000000000000000;\r\n    edtArtikelueberschrift.DataField := 'Artikelueberschrift';\r\n    edtArtikelueberschrift.DataSource := sourcePosition;\r\n    edtMenge.SetParentComponent(Self);\r\n    edtMenge.Name := 'edtMenge';\r\n    edtMenge.Left := 8;\r\n    edtMenge.Top := 383;\r\n    edtMenge.Width := 121;\r\n    edtMenge.Height := 22;\r\n    edtMenge.ChildOrder := 12;\r\n    edtMenge.EditType := weSignedFloat;\r\n    edtMenge.ElementClassName := 'form-control form-control-sm';\r\n    edtMenge.ElementFont := efCSS;\r\n    edtMenge.ElementPosition := epIgnore;\r\n    edtMenge.HeightStyle := ssAuto;\r\n    edtMenge.HeightPercent := 100.000000000000000000;\r\n    edtMenge.WidthStyle := ssPercent;\r\n    edtMenge.WidthPercent := 95.000000000000000000;\r\n    edtMenge.DataField := 'Menge';\r\n    edtMenge.DataSource := sourcePosition;\r\n    btnArtikelnummer.SetParentComponent(Self);\r\n    btnArtikelnummer.Name := 'btnArtikelnummer';\r\n    btnArtikelnummer.Left := 8;\r\n    btnArtikelnummer.Top := 411;\r\n    btnArtikelnummer.Width := 96;\r\n    btnArtikelnummer.Height := 25;\r\n    btnArtikelnummer.Caption := 'Artikel w'#228'hlen';\r\n    btnArtikelnummer.ChildOrder := 4;\r\n    btnArtikelnummer.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnArtikelnummer.ElementFont := efCSS;\r\n    btnArtikelnummer.ElementPosition := epIgnore;\r\n    btnArtikelnummer.HeightStyle := ssAuto;\r\n    btnArtikelnummer.HeightPercent := 100.000000000000000000;\r\n    btnArtikelnummer.WidthStyle := ssAuto;\r\n    btnArtikelnummer.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnArtikelnummer, Self, 'OnClick', 'btnArtikelnummerClick');\r\n    edtArbeitszeitDatum.SetParentComponent(Self);\r\n    edtArbeitszeitDatum.Name := 'edtArbeitszeitDatum';\r\n    edtArbeitszeitDatum.Left := 139;\r\n    edtArbeitszeitDatum.Top := 299;\r\n    edtArbeitszeitDatum.Width := 88;\r\n    edtArbeitszeitDatum.Height := 22;\r\n    edtArbeitszeitDatum.ElementClassName := 'form-control form-control-sm';\r\n    edtArbeitszeitDatum.HeightStyle := ssAuto;\r\n    edtArbeitszeitDatum.WidthStyle := ssPercent;\r\n    edtArbeitszeitDatum.WidthPercent := 95.000000000000000000;\r\n    edtArbeitszeitDatum.BorderStyle := bsSingle;\r\n    edtArbeitszeitDatum.ChildOrder := 11;\r\n    edtArbeitszeitDatum.Color := clWhite;\r\n    edtArbeitszeitDatum.Date := 44129.377583032410000000;\r\n    edtArbeitszeitDatum.ElementFont := efCSS;\r\n    edtArbeitszeitDatum.ElementPosition := epIgnore;\r\n    edtArbeitszeitDatum.Role := '';\r\n    edtArbeitszeitDatum.Text := '';\r\n    SetEvent(edtArbeitszeitDatum, Self, 'OnEnter', 'edtArbeitszeitDatumEnter');\r\n    edtArbeitszeitDatum.DataField := 'ArbeitszeitDatum';\r\n    edtArbeitszeitDatum.DataSource := sourcePosition;\r\n    edtArbeitszeitVON.SetParentComponent(Self);\r\n    edtArbeitszeitVON.Name := 'edtArbeitszeitVON';\r\n    edtArbeitszeitVON.Left := 139;\r\n    edtArbeitszeitVON.Top := 327;\r\n    edtArbeitszeitVON.Width := 88;\r\n    edtArbeitszeitVON.Height := 22;\r\n    edtArbeitszeitVON.ElementClassName := 'form-control form-control-sm';\r\n    edtArbeitszeitVON.HeightStyle := ssAuto;\r\n    edtArbeitszeitVON.WidthStyle := ssPercent;\r\n    edtArbeitszeitVON.WidthPercent := 95.000000000000000000;\r\n    edtArbeitszeitVON.BorderStyle := bsSingle;\r\n    edtArbeitszeitVON.ChildOrder := 11;\r\n    edtArbeitszeitVON.Color := clWhite;\r\n    edtArbeitszeitVON.Date := 44129.377583032410000000;\r\n    edtArbeitszeitVON.ElementFont := efCSS;\r\n    edtArbeitszeitVON.ElementPosition := epIgnore;\r\n    edtArbeitszeitVON.Kind := dtkTime;\r\n    edtArbeitszeitVON.Role := '';\r\n    edtArbeitszeitVON.Text := '';\r\n    edtArbeitszeitVON.DataField := 'ArbeitszeitVON';\r\n    edtArbeitszeitVON.DataSource := sourcePosition;\r\n    edtArbeitszeitBIS.SetParentComponent(Self);\r\n    edtArbeitszeitBIS.Name := 'edtArbeitszeitBIS';\r\n    edtArbeitszeitBIS.Left := 139;\r\n    edtArbeitszeitBIS.Top := 355;\r\n    edtArbeitszeitBIS.Width := 88;\r\n    edtArbeitszeitBIS.Height := 22;\r\n    edtArbeitszeitBIS.ElementClassName := 'form-control form-control-sm';\r\n    edtArbeitszeitBIS.HeightStyle := ssAuto;\r\n    edtArbeitszeitBIS.WidthStyle := ssPercent;\r\n    edtArbeitszeitBIS.WidthPercent := 95.000000000000000000;\r\n    edtArbeitszeitBIS.BorderStyle := bsSingle;\r\n    edtArbeitszeitBIS.ChildOrder := 11;\r\n    edtArbeitszeitBIS.Color := clWhite;\r\n    edtArbeitszeitBIS.Date := 44129.377583032410000000;\r\n    edtArbeitszeitBIS.ElementFont := efCSS;\r\n    edtArbeitszeitBIS.ElementPosition := epIgnore;\r\n    edtArbeitszeitBIS.Kind := dtkTime;\r\n    edtArbeitszeitBIS.Role := '';\r\n    edtArbeitszeitBIS.Text := '';\r\n    edtArbeitszeitBIS.DataField := 'ArbeitszeitBIS';\r\n    edtArbeitszeitBIS.DataSource := sourcePosition;\r\n    edtArtikelbeschreibung.SetParentComponent(Self);\r\n    edtArtikelbeschreibung.Name := 'edtArtikelbeschreibung';\r\n    edtArtikelbeschreibung.Left := 144;\r\n    edtArtikelbeschreibung.Top := 384;\r\n    edtArtikelbeschreibung.Width := 185;\r\n    edtArtikelbeschreibung.Height := 200;\r\n    edtArtikelbeschreibung.BorderStyle := bsNone;\r\n    edtArtikelbeschreibung.ElementClassName := 'form-control form-control-sm';\r\n    edtArtikelbeschreibung.ElementFont := efCSS;\r\n    edtArtikelbeschreibung.ElementPosition := epIgnore;\r\n    edtArtikelbeschreibung.HeightPercent := 100.000000000000000000;\r\n    edtArtikelbeschreibung.Lines.BeginUpdate;\r\n    try\r\n      edtArtikelbeschreibung.Lines.Clear;\r\n      edtArtikelbeschreibung.Lines.Add('edtArtikelbeschreibung');\r\n    finally\r\n      edtArtikelbeschreibung.Lines.EndUpdate;\r\n    end;\r\n    edtArtikelbeschreibung.SelLength := 0;\r\n    edtArtikelbeschreibung.SelStart := 0;\r\n    edtArtikelbeschreibung.WidthStyle := ssPercent;\r\n    edtArtikelbeschreibung.WidthPercent := 95.000000000000000000;\r\n    edtArtikelbeschreibung.DataField := 'Artikelbeschreibung';\r\n    edtArtikelbeschreibung.DataSource := sourcePosition;\r\n    PosComboMonteur.SetParentComponent(Self);\r\n    PosComboMonteur.Name := 'PosComboMonteur';\r\n    PosComboMonteur.Left := 8;\r\n    PosComboMonteur.Top := 442;\r\n    PosComboMonteur.Width := 145;\r\n    PosComboMonteur.Height := 23;\r\n    PosComboMonteur.ElementClassName := 'form-control form-control-sm';\r\n    PosComboMonteur.ElementFont := efCSS;\r\n    PosComboMonteur.ElementPosition := epIgnore;\r\n    PosComboMonteur.HeightStyle := ssAuto;\r\n    PosComboMonteur.HeightPercent := 100.000000000000000000;\r\n    PosComboMonteur.Text := 'PosComboMonteur';\r\n    PosComboMonteur.WidthStyle := ssPercent;\r\n    PosComboMonteur.WidthPercent := 95.000000000000000000;\r\n    SetEvent(PosComboMonteur, Self, 'OnEnter', 'PosComboMonteurEnter');\r\n    PosComboMonteur.ItemIndex := -1;\r\n    edtMengenart.SetParentComponent(Self);\r\n    edtMengenart.Name := 'edtMengenart';\r\n    edtMengenart.Left := 8;\r\n    edtMengenart.Top := 472;\r\n    edtMengenart.Width := 145;\r\n    edtMengenart.Height := 22;\r\n    edtMengenart.ElementClassName := 'form-control form-control-sm';\r\n    edtMengenart.ElementFont := efCSS;\r\n    edtMengenart.ElementPosition := epIgnore;\r\n    edtMengenart.HeightStyle := ssAuto;\r\n    edtMengenart.HeightPercent := 100.000000000000000000;\r\n    edtMengenart.WidthStyle := ssPercent;\r\n    edtMengenart.WidthPercent := 95.000000000000000000;\r\n    edtMengenart.DataField := 'ArtderMenge';\r\n    edtMengenart.DataSource := sourcePosition;\r\n    edtMengenart.KeyField := 'ArtderMenge';\r\n    edtMengenart.ListField := 'ArtderMenge';\r\n    edtMengenart.ListSource := DM2.sourceMengenarten;\r\n    btnNeuePosition.SetParentComponent(Self);\r\n    btnNeuePosition.Name := 'btnNeuePosition';\r\n    btnNeuePosition.Left := 0;\r\n    btnNeuePosition.Top := 175;\r\n    btnNeuePosition.Width := 96;\r\n    btnNeuePosition.Height := 25;\r\n    btnNeuePosition.Caption := '+ NEU';\r\n    btnNeuePosition.ChildOrder := 4;\r\n    btnNeuePosition.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnNeuePosition.ElementFont := efCSS;\r\n    btnNeuePosition.ElementPosition := epIgnore;\r\n    btnNeuePosition.HeightStyle := ssAuto;\r\n    btnNeuePosition.HeightPercent := 100.000000000000000000;\r\n    btnNeuePosition.Visible := False;\r\n    btnNeuePosition.WidthStyle := ssAuto;\r\n    btnNeuePosition.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnNeuePosition, Self, 'OnClick', 'btnNeuePositionClick');\r\n    WTCPosition.SetParentComponent(Self);\r\n    WTCPosition.Name := 'WTCPosition';\r\n    WTCPosition.Left := 0;\r\n    WTCPosition.Top := 82;\r\n    WTCPosition.Width := 235;\r\n    WTCPosition.Height := 75;\r\n    WTCPosition.ElementClassName := 'table';\r\n    WTCPosition.HeightStyle := ssAuto;\r\n    WTCPosition.WidthStyle := ssPercent;\r\n    WTCPosition.BorderColor := clSilver;\r\n    WTCPosition.ChildOrder := 2;\r\n    WTCPosition.ColHeader := False;\r\n    WTCPosition.ElementFont := efCSS;\r\n    WTCPosition.ElementHeaderClassName := 'table-info';\r\n    WTCPosition.ElementPosition := epIgnore;\r\n    WTCPosition.ElementTableClassName := 'table table-bordered';\r\n    WTCPosition.Footer.ButtonActiveElementClassName := 'btn btn-primary';\r\n    WTCPosition.Footer.ButtonElementClassName := 'btn btn-light';\r\n    WTCPosition.Footer.DropDownElementClassName := 'form-control';\r\n    WTCPosition.Footer.InputElementClassName := 'form-control';\r\n    WTCPosition.Footer.LinkActiveElementClassName := 'link-primary';\r\n    WTCPosition.Footer.LinkElementClassName := 'link-secondary';\r\n    WTCPosition.Footer.ListElementClassName := 'pagination';\r\n    WTCPosition.Footer.ListItemElementClassName := 'page-item';\r\n    WTCPosition.Footer.ListLinkElementClassName := 'page-link';\r\n    WTCPosition.Header.ButtonActiveElementClassName := 'btn btn-primary';\r\n    WTCPosition.Header.ButtonElementClassName := 'btn btn-light';\r\n    WTCPosition.Header.DropDownElementClassName := 'form-control';\r\n    WTCPosition.Header.InputElementClassName := 'form-control';\r\n    WTCPosition.Header.LinkActiveElementClassName := 'link-primary';\r\n    WTCPosition.Header.LinkElementClassName := 'link-secondary';\r\n    WTCPosition.Header.ListElementClassName := 'pagination';\r\n    WTCPosition.Header.ListItemElementClassName := 'page-item';\r\n    WTCPosition.Header.ListLinkElementClassName := 'page-link';\r\n    WTCPosition.WordWrap := True;\r\n    WTCPosition.ColCount := 2;\r\n    WTCPosition.RowCount := 13;\r\n    xdsPosition.SetParentComponent(Self);\r\n    xdsPosition.Name := 'xdsPosition';\r\n    xdsPosition.AfterApplyUpdates := xdsPositionAfterApplyUpdates;\r\n    xdsPosition.AfterOpen := xdsPositionAfterOpen;\r\n    xdsPosition.BeforePost := xdsPositionBeforePost;\r\n    xdsPosition.AfterPost := xdsPositionAfterPost;\r\n    xdsPosition.AfterDelete := xdsPositionAfterDelete;\r\n    SetEvent(xdsPosition, Self, 'OnNewRecord', 'xdsPositionNewRecord');\r\n    xdsPosition.EntitySetName := 'PositionenAuftrag';\r\n    xdsPosition.Connection := DM2.XDataWebConnection1;\r\n    xdsPosition.QueryTop := 1;\r\n    xdsPosition.Left := 92;\r\n    xdsPosition.Top := 101;\r\n    xdsPositionID.SetParentComponent(xdsPosition);\r\n    xdsPositionID.Name := 'xdsPositionID';\r\n    xdsPositionID.FieldName := 'ID';\r\n    xdsPositionPosNr.SetParentComponent(xdsPosition);\r\n    xdsPositionPosNr.Name := 'xdsPositionPosNr';\r\n    xdsPositionPosNr.FieldName := 'PosNr';\r\n    xdsPositionPosNr.Required := True;\r\n    xdsPositionPosUNr.SetParentComponent(xdsPosition);\r\n    xdsPositionPosUNr.Name := 'xdsPositionPosUNr';\r\n    xdsPositionPosUNr.FieldName := 'PosUNr';\r\n    xdsPositionArtikelueberschrift.SetParentComponent(xdsPosition);\r\n    xdsPositionArtikelueberschrift.Name := 'xdsPositionArtikelueberschrift';\r\n    xdsPositionArtikelueberschrift.FieldName := 'Artikelueberschrift';\r\n    xdsPositionArtikelueberschrift.Size := 50;\r\n    xdsPositionArtikelbeschreibung.SetParentComponent(xdsPosition);\r\n    xdsPositionArtikelbeschreibung.Name := 'xdsPositionArtikelbeschreibung';\r\n    xdsPositionArtikelbeschreibung.FieldName := 'Artikelbeschreibung';\r\n    xdsPositionArtikelbeschreibung.Size := 255;\r\n    xdsPositionMenge.SetParentComponent(xdsPosition);\r\n    xdsPositionMenge.Name := 'xdsPositionMenge';\r\n    xdsPositionMenge.FieldName := 'Menge';\r\n    xdsPositionArtderMenge.SetParentComponent(xdsPosition);\r\n    xdsPositionArtderMenge.Name := 'xdsPositionArtderMenge';\r\n    xdsPositionArtderMenge.FieldName := 'ArtderMenge';\r\n    xdsPositionArtderMenge.Size := 50;\r\n    xdsPositionVerkaufspreis.SetParentComponent(xdsPosition);\r\n    xdsPositionVerkaufspreis.Name := 'xdsPositionVerkaufspreis';\r\n    xdsPositionVerkaufspreis.FieldName := 'Verkaufspreis';\r\n    xdsPositionEinkaufspreis.SetParentComponent(xdsPosition);\r\n    xdsPositionEinkaufspreis.Name := 'xdsPositionEinkaufspreis';\r\n    xdsPositionEinkaufspreis.FieldName := 'Einkaufspreis';\r\n    xdsPositionArtikelnummer.SetParentComponent(xdsPosition);\r\n    xdsPositionArtikelnummer.Name := 'xdsPositionArtikelnummer';\r\n    xdsPositionArtikelnummer.FieldName := 'Artikelnummer';\r\n    xdsPositionMonteurP.SetParentComponent(xdsPosition);\r\n    xdsPositionMonteurP.Name := 'xdsPositionMonteurP';\r\n    xdsPositionMonteurP.FieldName := 'MonteurP';\r\n    xdsPositionArbeitszeitDatum.SetParentComponent(xdsPosition);\r\n    xdsPositionArbeitszeitDatum.Name := 'xdsPositionArbeitszeitDatum';\r\n    xdsPositionArbeitszeitDatum.FieldName := 'ArbeitszeitDatum';\r\n    xdsPositionArbeitszeitVON.SetParentComponent(xdsPosition);\r\n    xdsPositionArbeitszeitVON.Name := 'xdsPositionArbeitszeitVON';\r\n    xdsPositionArbeitszeitVON.FieldName := 'ArbeitszeitVON';\r\n    xdsPositionArbeitszeitVON.DisplayFormat := 'hh:mm';\r\n    xdsPositionArbeitszeitBIS.SetParentComponent(xdsPosition);\r\n    xdsPositionArbeitszeitBIS.Name := 'xdsPositionArbeitszeitBIS';\r\n    xdsPositionArbeitszeitBIS.FieldName := 'ArbeitszeitBIS';\r\n    xdsPositionArbeitszeitBIS.DisplayFormat := 'hh:mm';\r\n    xdsPositionSumme.SetParentComponent(xdsPosition);\r\n    xdsPositionSumme.Name := 'xdsPositionSumme';\r\n    xdsPositionSumme.FieldName := 'Summe';\r\n    xdsPositionSeriennummer.SetParentComponent(xdsPosition);\r\n    xdsPositionSeriennummer.Name := 'xdsPositionSeriennummer';\r\n    xdsPositionSeriennummer.FieldName := 'Seriennummer';\r\n    xdsPositionSeriennummer.Size := 30;\r\n    xdsPositionWarengruppe.SetParentComponent(xdsPosition);\r\n    xdsPositionWarengruppe.Name := 'xdsPositionWarengruppe';\r\n    xdsPositionWarengruppe.FieldName := 'Warengruppe';\r\n    xdsPositionWarengruppe.Size := 50;\r\n    xdsPositionWarenuntergruppe.SetParentComponent(xdsPosition);\r\n    xdsPositionWarenuntergruppe.Name := 'xdsPositionWarenuntergruppe';\r\n    xdsPositionWarenuntergruppe.FieldName := 'Warenuntergruppe';\r\n    xdsPositionWarenuntergruppe.Size := 50;\r\n    xdsPositionArtikelnummerKunde.SetParentComponent(xdsPosition);\r\n    xdsPositionArtikelnummerKunde.Name := 'xdsPositionArtikelnummerKunde';\r\n    xdsPositionArtikelnummerKunde.FieldName := 'ArtikelnummerKunde';\r\n    xdsPositionLieferant.SetParentComponent(xdsPosition);\r\n    xdsPositionLieferant.Name := 'xdsPositionLieferant';\r\n    xdsPositionLieferant.FieldName := 'Lieferant';\r\n    xdsPositionLieferant.Size := 13;\r\n    xdsPositionGewicht.SetParentComponent(xdsPosition);\r\n    xdsPositionGewicht.Name := 'xdsPositionGewicht';\r\n    xdsPositionGewicht.FieldName := 'Gewicht';\r\n    xdsPositionLaenge.SetParentComponent(xdsPosition);\r\n    xdsPositionLaenge.Name := 'xdsPositionLaenge';\r\n    xdsPositionLaenge.FieldName := 'Laenge';\r\n    xdsPositionBreite.SetParentComponent(xdsPosition);\r\n    xdsPositionBreite.Name := 'xdsPositionBreite';\r\n    xdsPositionBreite.FieldName := 'Breite';\r\n    xdsPositionHoehe.SetParentComponent(xdsPosition);\r\n    xdsPositionHoehe.Name := 'xdsPositionHoehe';\r\n    xdsPositionHoehe.FieldName := 'Hoehe';\r\n    xdsPositionMehrwertsteuersatz.SetParentComponent(xdsPosition);\r\n    xdsPositionMehrwertsteuersatz.Name := 'xdsPositionMehrwertsteuersatz';\r\n    xdsPositionMehrwertsteuersatz.FieldName := 'Mehrwertsteuersatz';\r\n    xdsPositionEndpreis.SetParentComponent(xdsPosition);\r\n    xdsPositionEndpreis.Name := 'xdsPositionEndpreis';\r\n    xdsPositionEndpreis.FieldName := 'Endpreis';\r\n    xdsPositionPosMWST.SetParentComponent(xdsPosition);\r\n    xdsPositionPosMWST.Name := 'xdsPositionPosMWST';\r\n    xdsPositionPosMWST.FieldName := 'PosMWST';\r\n    xdsPositionBruttoEndpreis.SetParentComponent(xdsPosition);\r\n    xdsPositionBruttoEndpreis.Name := 'xdsPositionBruttoEndpreis';\r\n    xdsPositionBruttoEndpreis.FieldName := 'BruttoEndpreis';\r\n    xdsPositionEndpreis_EK.SetParentComponent(xdsPosition);\r\n    xdsPositionEndpreis_EK.Name := 'xdsPositionEndpreis_EK';\r\n    xdsPositionEndpreis_EK.FieldName := 'Endpreis_EK';\r\n    xdsPositionRabattsatz.SetParentComponent(xdsPosition);\r\n    xdsPositionRabattsatz.Name := 'xdsPositionRabattsatz';\r\n    xdsPositionRabattsatz.FieldName := 'Rabattsatz';\r\n    xdsPositionPreisvorRabatt.SetParentComponent(xdsPosition);\r\n    xdsPositionPreisvorRabatt.Name := 'xdsPositionPreisvorRabatt';\r\n    xdsPositionPreisvorRabatt.FieldName := 'PreisvorRabatt';\r\n    xdsPositionPKZ.SetParentComponent(xdsPosition);\r\n    xdsPositionPKZ.Name := 'xdsPositionPKZ';\r\n    xdsPositionPKZ.FieldName := 'PKZ';\r\n    xdsPositionTextfrei10.SetParentComponent(xdsPosition);\r\n    xdsPositionTextfrei10.Name := 'xdsPositionTextfrei10';\r\n    xdsPositionTextfrei10.FieldName := 'Textfrei10';\r\n    xdsPositionTextfrei10.Size := 50;\r\n    xdsPositionTextfrei20.SetParentComponent(xdsPosition);\r\n    xdsPositionTextfrei20.Name := 'xdsPositionTextfrei20';\r\n    xdsPositionTextfrei20.FieldName := 'Textfrei20';\r\n    xdsPositionTextfrei20.Size := 50;\r\n    xdsPositionProduktionAbgeschlossen.SetParentComponent(xdsPosition);\r\n    xdsPositionProduktionAbgeschlossen.Name := 'xdsPositionProduktionAbgeschlossen';\r\n    xdsPositionProduktionAbgeschlossen.FieldName := 'ProduktionAbgeschlossen';\r\n    xdsPositionEinzelpreisBrutto.SetParentComponent(xdsPosition);\r\n    xdsPositionEinzelpreisBrutto.Name := 'xdsPositionEinzelpreisBrutto';\r\n    xdsPositionEinzelpreisBrutto.FieldName := 'EinzelpreisBrutto';\r\n    xdsPositionPosMarge.SetParentComponent(xdsPosition);\r\n    xdsPositionPosMarge.Name := 'xdsPositionPosMarge';\r\n    xdsPositionPosMarge.FieldName := 'PosMarge';\r\n    xdsPositionPosMargeProzent.SetParentComponent(xdsPosition);\r\n    xdsPositionPosMargeProzent.Name := 'xdsPositionPosMargeProzent';\r\n    xdsPositionPosMargeProzent.FieldName := 'PosMargeProzent';\r\n    xdsPositionBereitsGeliefert.SetParentComponent(xdsPosition);\r\n    xdsPositionBereitsGeliefert.Name := 'xdsPositionBereitsGeliefert';\r\n    xdsPositionBereitsGeliefert.FieldName := 'BereitsGeliefert';\r\n    xdsPositionausliefern.SetParentComponent(xdsPosition);\r\n    xdsPositionausliefern.Name := 'xdsPositionausliefern';\r\n    xdsPositionausliefern.FieldName := 'ausliefern';\r\n    xdsPositionBestellungErledigt.SetParentComponent(xdsPosition);\r\n    xdsPositionBestellungErledigt.Name := 'xdsPositionBestellungErledigt';\r\n    xdsPositionBestellungErledigt.FieldName := 'BestellungErledigt';\r\n    xdsPositionLager.SetParentComponent(xdsPosition);\r\n    xdsPositionLager.Name := 'xdsPositionLager';\r\n    xdsPositionLager.FieldName := 'Lager';\r\n    xdsPositionLager.Size := 50;\r\n    xdsPositionbestellen.SetParentComponent(xdsPosition);\r\n    xdsPositionbestellen.Name := 'xdsPositionbestellen';\r\n    xdsPositionbestellen.FieldName := 'bestellen';\r\n    xdsPositionWarenbestand.SetParentComponent(xdsPosition);\r\n    xdsPositionWarenbestand.Name := 'xdsPositionWarenbestand';\r\n    xdsPositionWarenbestand.FieldName := 'Warenbestand';\r\n    xdsPositionArtikelbeschreibungRTF.SetParentComponent(xdsPosition);\r\n    xdsPositionArtikelbeschreibungRTF.Name := 'xdsPositionArtikelbeschreibungRTF';\r\n    xdsPositionArtikelbeschreibungRTF.FieldName := 'ArtikelbeschreibungRTF';\r\n    xdsPositionArtikelbeschreibungRTF.Size := 255;\r\n    xdsPositionQuellartikel.SetParentComponent(xdsPosition);\r\n    xdsPositionQuellartikel.Name := 'xdsPositionQuellartikel';\r\n    xdsPositionQuellartikel.FieldName := 'Quellartikel';\r\n    xdsPositionQuellartikel.Size := 25;\r\n    xdsPositionArtikelnummerWB.SetParentComponent(xdsPosition);\r\n    xdsPositionArtikelnummerWB.Name := 'xdsPositionArtikelnummerWB';\r\n    xdsPositionArtikelnummerWB.FieldName := 'ArtikelnummerWB';\r\n    xdsPositionArtikelnummerWB.Size := 25;\r\n    xdsPositionPreisanteilNetto.SetParentComponent(xdsPosition);\r\n    xdsPositionPreisanteilNetto.Name := 'xdsPositionPreisanteilNetto';\r\n    xdsPositionPreisanteilNetto.FieldName := 'PreisanteilNetto';\r\n    xdsPositionSetHPos.SetParentComponent(xdsPosition);\r\n    xdsPositionSetHPos.Name := 'xdsPositionSetHPos';\r\n    xdsPositionSetHPos.FieldName := 'SetHPos';\r\n    xdsPositionSetHPos.Size := 38;\r\n    xdsPositionSetUPos.SetParentComponent(xdsPosition);\r\n    xdsPositionSetUPos.Name := 'xdsPositionSetUPos';\r\n    xdsPositionSetUPos.FieldName := 'SetUPos';\r\n    xdsPositionSetUPos.Size := 38;\r\n    xdsPositionProvisionssatz.SetParentComponent(xdsPosition);\r\n    xdsPositionProvisionssatz.Name := 'xdsPositionProvisionssatz';\r\n    xdsPositionProvisionssatz.FieldName := 'Provisionssatz';\r\n    xdsPositionProvisionsbetrag.SetParentComponent(xdsPosition);\r\n    xdsPositionProvisionsbetrag.Name := 'xdsPositionProvisionsbetrag';\r\n    xdsPositionProvisionsbetrag.FieldName := 'Provisionsbetrag';\r\n    xdsPositionArtikelsprache.SetParentComponent(xdsPosition);\r\n    xdsPositionArtikelsprache.Name := 'xdsPositionArtikelsprache';\r\n    xdsPositionArtikelsprache.FieldName := 'Artikelsprache';\r\n    xdsPositionArtikelsprache.Size := 255;\r\n    xdsPositionEKvom.SetParentComponent(xdsPosition);\r\n    xdsPositionEKvom.Name := 'xdsPositionEKvom';\r\n    xdsPositionEKvom.FieldName := 'EKvom';\r\n    xdsPositionMengenberechnungID.SetParentComponent(xdsPosition);\r\n    xdsPositionMengenberechnungID.Name := 'xdsPositionMengenberechnungID';\r\n    xdsPositionMengenberechnungID.FieldName := 'MengenberechnungID';\r\n    xdsPositionMengenberechnungID.Size := 38;\r\n    xdsPositionTaraID.SetParentComponent(xdsPosition);\r\n    xdsPositionTaraID.Name := 'xdsPositionTaraID';\r\n    xdsPositionTaraID.FieldName := 'TaraID';\r\n    xdsPositionTaraID.Size := 38;\r\n    xdsPositionTara.SetParentComponent(xdsPosition);\r\n    xdsPositionTara.Name := 'xdsPositionTara';\r\n    xdsPositionTara.FieldName := 'Tara';\r\n    xdsPositionBruttoGewicht.SetParentComponent(xdsPosition);\r\n    xdsPositionBruttoGewicht.Name := 'xdsPositionBruttoGewicht';\r\n    xdsPositionBruttoGewicht.FieldName := 'BruttoGewicht';\r\n    xdsPositionAussenflaeche.SetParentComponent(xdsPosition);\r\n    xdsPositionAussenflaeche.Name := 'xdsPositionAussenflaeche';\r\n    xdsPositionAussenflaeche.FieldName := 'Aussenflaeche';\r\n    xdsPositionLadeort.SetParentComponent(xdsPosition);\r\n    xdsPositionLadeort.Name := 'xdsPositionLadeort';\r\n    xdsPositionLadeort.FieldName := 'Ladeort';\r\n    xdsPositionLadeort.Size := 50;\r\n    xdsPositionSeitenumbruch.SetParentComponent(xdsPosition);\r\n    xdsPositionSeitenumbruch.Name := 'xdsPositionSeitenumbruch';\r\n    xdsPositionSeitenumbruch.FieldName := 'Seitenumbruch';\r\n    xdsPositionPlanerFarbe.SetParentComponent(xdsPosition);\r\n    xdsPositionPlanerFarbe.Name := 'xdsPositionPlanerFarbe';\r\n    xdsPositionPlanerFarbe.FieldName := 'PlanerFarbe';\r\n    xdsPositionMWStKey.SetParentComponent(xdsPosition);\r\n    xdsPositionMWStKey.Name := 'xdsPositionMWStKey';\r\n    xdsPositionMWStKey.FieldName := 'MWStKey';\r\n    xdsPositionZSnachPos.SetParentComponent(xdsPosition);\r\n    xdsPositionZSnachPos.Name := 'xdsPositionZSnachPos';\r\n    xdsPositionZSnachPos.FieldName := 'ZSnachPos';\r\n    xdsPositionLieferzeit.SetParentComponent(xdsPosition);\r\n    xdsPositionLieferzeit.Name := 'xdsPositionLieferzeit';\r\n    xdsPositionLieferzeit.FieldName := 'Lieferzeit';\r\n    xdsPositionLieferzeit.Size := 50;\r\n    xdsPositionPreisVorRabattWHG.SetParentComponent(xdsPosition);\r\n    xdsPositionPreisVorRabattWHG.Name := 'xdsPositionPreisVorRabattWHG';\r\n    xdsPositionPreisVorRabattWHG.FieldName := 'PreisVorRabattWHG';\r\n    xdsPositionReferenzKalkulation.SetParentComponent(xdsPosition);\r\n    xdsPositionReferenzKalkulation.Name := 'xdsPositionReferenzKalkulation';\r\n    xdsPositionReferenzKalkulation.FieldName := 'ReferenzKalkulation';\r\n    xdsPositionReferenzKalkulation.Size := 10;\r\n    xdsPositionPKey.SetParentComponent(xdsPosition);\r\n    xdsPositionPKey.Name := 'xdsPositionPKey';\r\n    xdsPositionPKey.FieldName := 'PKey';\r\n    xdsPositionAuftragsnummer.SetParentComponent(xdsPosition);\r\n    xdsPositionAuftragsnummer.Name := 'xdsPositionAuftragsnummer';\r\n    xdsPositionAuftragsnummer.FieldName := 'Auftragsnummer';\r\n    xdsPositionlwbID.SetParentComponent(xdsPosition);\r\n    xdsPositionlwbID.Name := 'xdsPositionlwbID';\r\n    xdsPositionlwbID.FieldName := 'lwbID';\r\n    xdsPositionlwbID.Size := 38;\r\n    xdsPositionBelegdatum.SetParentComponent(xdsPosition);\r\n    xdsPositionBelegdatum.Name := 'xdsPositionBelegdatum';\r\n    xdsPositionBelegdatum.FieldName := 'Belegdatum';\r\n    xdsPositionWarenkontrollnummern.SetParentComponent(xdsPosition);\r\n    xdsPositionWarenkontrollnummern.Name := 'xdsPositionWarenkontrollnummern';\r\n    xdsPositionWarenkontrollnummern.FieldName := 'Warenkontrollnummern';\r\n    xdsPositionWarenkontrollnummern.Size := 255;\r\n    xdsPositionVolumen.SetParentComponent(xdsPosition);\r\n    xdsPositionVolumen.Name := 'xdsPositionVolumen';\r\n    xdsPositionVolumen.FieldName := 'Volumen';\r\n    xdsPositionPosVolumen.SetParentComponent(xdsPosition);\r\n    xdsPositionPosVolumen.Name := 'xdsPositionPosVolumen';\r\n    xdsPositionPosVolumen.FieldName := 'PosVolumen';\r\n    xdsPositionArtikelAttribute.SetParentComponent(xdsPosition);\r\n    xdsPositionArtikelAttribute.Name := 'xdsPositionArtikelAttribute';\r\n    xdsPositionArtikelAttribute.FieldName := 'ArtikelAttribute';\r\n    xdsPositionArtikelAttribute.Size := 255;\r\n    xdsPositionNummerkomplett.SetParentComponent(xdsPosition);\r\n    xdsPositionNummerkomplett.Name := 'xdsPositionNummerkomplett';\r\n    xdsPositionNummerkomplett.FieldName := 'Nummerkomplett';\r\n    sourcePosition.SetParentComponent(Self);\r\n    sourcePosition.Name := 'sourcePosition';\r\n    sourcePosition.DataSet := xdsPosition;\r\n    SetEvent(sourcePosition, Self, 'OnStateChange', 'sourcePositionStateChange');\r\n    sourcePosition.Left := 29;\r\n    sourcePosition.Top := 101;\r\n    dsArtikel.SetParentComponent(Self);\r\n    dsArtikel.Name := 'dsArtikel';\r\n    dsArtikel.AfterOpen := dsArtikelAfterOpen;\r\n    dsArtikel.EntitySetName := 'Artikel';\r\n    dsArtikel.Connection := DM2.XDataWebConnection1;\r\n    dsArtikel.SubpropsDepth := 1;\r\n    dsArtikel.QueryTop := 1;\r\n    dsArtikel.Left := 156;\r\n    dsArtikel.Top := 104;\r\n    dsArtikelHersteller.SetParentComponent(dsArtikel);\r\n    dsArtikelHersteller.Name := 'dsArtikelHersteller';\r\n    dsArtikelHersteller.FieldName := 'Hersteller';\r\n    dsArtikelHersteller.Required := True;\r\n    dsArtikelArtderMenge.SetParentComponent(dsArtikel);\r\n    dsArtikelArtderMenge.Name := 'dsArtikelArtderMenge';\r\n    dsArtikelArtderMenge.FieldName := 'ArtderMenge';\r\n    dsArtikelArtderMenge.Required := True;\r\n    dsArtikelPfandArt.SetParentComponent(dsArtikel);\r\n    dsArtikelPfandArt.Name := 'dsArtikelPfandArt';\r\n    dsArtikelPfandArt.FieldName := 'PfandArt';\r\n    dsArtikelWarengruppe.SetParentComponent(dsArtikel);\r\n    dsArtikelWarengruppe.Name := 'dsArtikelWarengruppe';\r\n    dsArtikelWarengruppe.FieldName := 'Warengruppe';\r\n    dsArtikelWarenuntergruppe.SetParentComponent(dsArtikel);\r\n    dsArtikelWarenuntergruppe.Name := 'dsArtikelWarenuntergruppe';\r\n    dsArtikelWarenuntergruppe.FieldName := 'Warenuntergruppe';\r\n    dsArtikelArtikelnummer.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelnummer.Name := 'dsArtikelArtikelnummer';\r\n    dsArtikelArtikelnummer.FieldName := 'Artikelnummer';\r\n    dsArtikelArtikelnummer.Required := True;\r\n    dsArtikelArtikelnummer.Size := 25;\r\n    dsArtikelArtikelueberschrift.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelueberschrift.Name := 'dsArtikelArtikelueberschrift';\r\n    dsArtikelArtikelueberschrift.FieldName := 'Artikelueberschrift';\r\n    dsArtikelArtikelueberschrift.Size := 50;\r\n    dsArtikelArtikelbeschreibung.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelbeschreibung.Name := 'dsArtikelArtikelbeschreibung';\r\n    dsArtikelArtikelbeschreibung.FieldName := 'Artikelbeschreibung';\r\n    dsArtikelArtikelbeschreibung.Size := 255;\r\n    dsArtikelVerkaufspreis.SetParentComponent(dsArtikel);\r\n    dsArtikelVerkaufspreis.Name := 'dsArtikelVerkaufspreis';\r\n    dsArtikelVerkaufspreis.FieldName := 'Verkaufspreis';\r\n    dsArtikelMindestbestand.SetParentComponent(dsArtikel);\r\n    dsArtikelMindestbestand.Name := 'dsArtikelMindestbestand';\r\n    dsArtikelMindestbestand.FieldName := 'Mindestbestand';\r\n    dsArtikelPreisliste.SetParentComponent(dsArtikel);\r\n    dsArtikelPreisliste.Name := 'dsArtikelPreisliste';\r\n    dsArtikelPreisliste.FieldName := 'Preisliste';\r\n    dsArtikelPreisliste.Size := 150;\r\n    dsArtikelGewicht.SetParentComponent(dsArtikel);\r\n    dsArtikelGewicht.Name := 'dsArtikelGewicht';\r\n    dsArtikelGewicht.FieldName := 'Gewicht';\r\n    dsArtikelLaenge.SetParentComponent(dsArtikel);\r\n    dsArtikelLaenge.Name := 'dsArtikelLaenge';\r\n    dsArtikelLaenge.FieldName := 'Laenge';\r\n    dsArtikelBreite.SetParentComponent(dsArtikel);\r\n    dsArtikelBreite.Name := 'dsArtikelBreite';\r\n    dsArtikelBreite.FieldName := 'Breite';\r\n    dsArtikelHoehe.SetParentComponent(dsArtikel);\r\n    dsArtikelHoehe.Name := 'dsArtikelHoehe';\r\n    dsArtikelHoehe.FieldName := 'Hoehe';\r\n    dsArtikelArtikelZusatz.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelZusatz.Name := 'dsArtikelArtikelZusatz';\r\n    dsArtikelArtikelZusatz.FieldName := 'ArtikelZusatz';\r\n    dsArtikelArtikelZusatz.Size := 255;\r\n    dsArtikelLagerort.SetParentComponent(dsArtikel);\r\n    dsArtikelLagerort.Name := 'dsArtikelLagerort';\r\n    dsArtikelLagerort.FieldName := 'Lagerort';\r\n    dsArtikelLagerort.Size := 50;\r\n    dsArtikelBuchungskonto.SetParentComponent(dsArtikel);\r\n    dsArtikelBuchungskonto.Name := 'dsArtikelBuchungskonto';\r\n    dsArtikelBuchungskonto.FieldName := 'Buchungskonto';\r\n    dsArtikelEingangMenge.SetParentComponent(dsArtikel);\r\n    dsArtikelEingangMenge.Name := 'dsArtikelEingangMenge';\r\n    dsArtikelEingangMenge.FieldName := 'EingangMenge';\r\n    dsArtikelEingangEndpreis.SetParentComponent(dsArtikel);\r\n    dsArtikelEingangEndpreis.Name := 'dsArtikelEingangEndpreis';\r\n    dsArtikelEingangEndpreis.FieldName := 'EingangEndpreis';\r\n    dsArtikelAusgangMenge.SetParentComponent(dsArtikel);\r\n    dsArtikelAusgangMenge.Name := 'dsArtikelAusgangMenge';\r\n    dsArtikelAusgangMenge.FieldName := 'AusgangMenge';\r\n    dsArtikelAusgangEndpreisEK.SetParentComponent(dsArtikel);\r\n    dsArtikelAusgangEndpreisEK.Name := 'dsArtikelAusgangEndpreisEK';\r\n    dsArtikelAusgangEndpreisEK.FieldName := 'AusgangEndpreisEK';\r\n    dsArtikelAusgangEndpreisVK.SetParentComponent(dsArtikel);\r\n    dsArtikelAusgangEndpreisVK.Name := 'dsArtikelAusgangEndpreisVK';\r\n    dsArtikelAusgangEndpreisVK.FieldName := 'AusgangEndpreisVK';\r\n    dsArtikelBestand.SetParentComponent(dsArtikel);\r\n    dsArtikelBestand.Name := 'dsArtikelBestand';\r\n    dsArtikelBestand.FieldName := 'Bestand';\r\n    dsArtikelBestandswert.SetParentComponent(dsArtikel);\r\n    dsArtikelBestandswert.Name := 'dsArtikelBestandswert';\r\n    dsArtikelBestandswert.FieldName := 'Bestandswert';\r\n    dsArtikelMarge.SetParentComponent(dsArtikel);\r\n    dsArtikelMarge.Name := 'dsArtikelMarge';\r\n    dsArtikelMarge.FieldName := 'Marge';\r\n    dsArtikelMargeProzent.SetParentComponent(dsArtikel);\r\n    dsArtikelMargeProzent.Name := 'dsArtikelMargeProzent';\r\n    dsArtikelMargeProzent.FieldName := 'MargeProzent';\r\n    dsArtikelArtikelnummer2.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelnummer2.Name := 'dsArtikelArtikelnummer2';\r\n    dsArtikelArtikelnummer2.FieldName := 'Artikelnummer2';\r\n    dsArtikelArtikelnummer2.Size := 25;\r\n    dsArtikelArtikelmatchcode.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelmatchcode.Name := 'dsArtikelArtikelmatchcode';\r\n    dsArtikelArtikelmatchcode.FieldName := 'Artikelmatchcode';\r\n    dsArtikelArtikelmatchcode.Size := 30;\r\n    dsArtikelRabattpreis1.SetParentComponent(dsArtikel);\r\n    dsArtikelRabattpreis1.Name := 'dsArtikelRabattpreis1';\r\n    dsArtikelRabattpreis1.FieldName := 'Rabattpreis1';\r\n    dsArtikelRabattpreis2.SetParentComponent(dsArtikel);\r\n    dsArtikelRabattpreis2.Name := 'dsArtikelRabattpreis2';\r\n    dsArtikelRabattpreis2.FieldName := 'Rabattpreis2';\r\n    dsArtikelRabattpreis3.SetParentComponent(dsArtikel);\r\n    dsArtikelRabattpreis3.Name := 'dsArtikelRabattpreis3';\r\n    dsArtikelRabattpreis3.FieldName := 'Rabattpreis3';\r\n    dsArtikelRabattpreis4.SetParentComponent(dsArtikel);\r\n    dsArtikelRabattpreis4.Name := 'dsArtikelRabattpreis4';\r\n    dsArtikelRabattpreis4.FieldName := 'Rabattpreis4';\r\n    dsArtikelRabattpreis5.SetParentComponent(dsArtikel);\r\n    dsArtikelRabattpreis5.Name := 'dsArtikelRabattpreis5';\r\n    dsArtikelRabattpreis5.FieldName := 'Rabattpreis5';\r\n    dsArtikelArtikelnichtmehrgueltig.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelnichtmehrgueltig.Name := 'dsArtikelArtikelnichtmehrgueltig';\r\n    dsArtikelArtikelnichtmehrgueltig.FieldName := 'Artikelnichtmehrgueltig';\r\n    dsArtikelEinkaufspreis.SetParentComponent(dsArtikel);\r\n    dsArtikelEinkaufspreis.Name := 'dsArtikelEinkaufspreis';\r\n    dsArtikelEinkaufspreis.FieldName := 'Einkaufspreis';\r\n    dsArtikelAufschlag.SetParentComponent(dsArtikel);\r\n    dsArtikelAufschlag.Name := 'dsArtikelAufschlag';\r\n    dsArtikelAufschlag.FieldName := 'Aufschlag';\r\n    dsArtikelWarenbestand.SetParentComponent(dsArtikel);\r\n    dsArtikelWarenbestand.Name := 'dsArtikelWarenbestand';\r\n    dsArtikelWarenbestand.FieldName := 'Warenbestand';\r\n    dsArtikelTextfrei10.SetParentComponent(dsArtikel);\r\n    dsArtikelTextfrei10.Name := 'dsArtikelTextfrei10';\r\n    dsArtikelTextfrei10.FieldName := 'Textfrei10';\r\n    dsArtikelTextfrei10.Size := 50;\r\n    dsArtikelTextfrei20.SetParentComponent(dsArtikel);\r\n    dsArtikelTextfrei20.Name := 'dsArtikelTextfrei20';\r\n    dsArtikelTextfrei20.FieldName := 'Textfrei20';\r\n    dsArtikelTextfrei20.Size := 50;\r\n    dsArtikelArtikelbeschreibungRTF.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelbeschreibungRTF.Name := 'dsArtikelArtikelbeschreibungRTF';\r\n    dsArtikelArtikelbeschreibungRTF.FieldName := 'ArtikelbeschreibungRTF';\r\n    dsArtikelArtikelbeschreibungRTF.Size := 255;\r\n    dsArtikelArtikeldatei1.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikeldatei1.Name := 'dsArtikelArtikeldatei1';\r\n    dsArtikelArtikeldatei1.FieldName := 'Artikeldatei1';\r\n    dsArtikelArtikeldatei1.Size := 255;\r\n    dsArtikelArtikeldatei2.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikeldatei2.Name := 'dsArtikelArtikeldatei2';\r\n    dsArtikelArtikeldatei2.FieldName := 'Artikeldatei2';\r\n    dsArtikelArtikeldatei2.Size := 255;\r\n    dsArtikelArtikeldatei3.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikeldatei3.Name := 'dsArtikelArtikeldatei3';\r\n    dsArtikelArtikeldatei3.FieldName := 'Artikeldatei3';\r\n    dsArtikelArtikeldatei3.Size := 255;\r\n    dsArtikelArtikeldatei4.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikeldatei4.Name := 'dsArtikelArtikeldatei4';\r\n    dsArtikelArtikeldatei4.FieldName := 'Artikeldatei4';\r\n    dsArtikelArtikeldatei4.Size := 255;\r\n    dsArtikelArtikeldatei5.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikeldatei5.Name := 'dsArtikelArtikeldatei5';\r\n    dsArtikelArtikeldatei5.FieldName := 'Artikeldatei5';\r\n    dsArtikelArtikeldatei5.Size := 255;\r\n    dsArtikelEinkaufspreisVom.SetParentComponent(dsArtikel);\r\n    dsArtikelEinkaufspreisVom.Name := 'dsArtikelEinkaufspreisVom';\r\n    dsArtikelEinkaufspreisVom.FieldName := 'EinkaufspreisVom';\r\n    dsArtikelEAN.SetParentComponent(dsArtikel);\r\n    dsArtikelEAN.Name := 'dsArtikelEAN';\r\n    dsArtikelEAN.FieldName := 'EAN';\r\n    dsArtikelEAN.Size := 15;\r\n    dsArtikelVGPFaktor.SetParentComponent(dsArtikel);\r\n    dsArtikelVGPFaktor.Name := 'dsArtikelVGPFaktor';\r\n    dsArtikelVGPFaktor.FieldName := 'VGPFaktor';\r\n    dsArtikelVGPMengenart.SetParentComponent(dsArtikel);\r\n    dsArtikelVGPMengenart.Name := 'dsArtikelVGPMengenart';\r\n    dsArtikelVGPMengenart.FieldName := 'VGPMengenart';\r\n    dsArtikelVGPMengenart.Size := 50;\r\n    dsArtikelVerleihpreis.SetParentComponent(dsArtikel);\r\n    dsArtikelVerleihpreis.Name := 'dsArtikelVerleihpreis';\r\n    dsArtikelVerleihpreis.FieldName := 'Verleihpreis';\r\n    dsArtikelZusatzPreis.SetParentComponent(dsArtikel);\r\n    dsArtikelZusatzPreis.Name := 'dsArtikelZusatzPreis';\r\n    dsArtikelZusatzPreis.FieldName := 'ZusatzPreis';\r\n    dsArtikelVerpackungsart.SetParentComponent(dsArtikel);\r\n    dsArtikelVerpackungsart.Name := 'dsArtikelVerpackungsart';\r\n    dsArtikelVerpackungsart.FieldName := 'Verpackungsart';\r\n    dsArtikelVerpackungsart.Size := 50;\r\n    dsArtikelVerpackungsMenge.SetParentComponent(dsArtikel);\r\n    dsArtikelVerpackungsMenge.Name := 'dsArtikelVerpackungsMenge';\r\n    dsArtikelVerpackungsMenge.FieldName := 'VerpackungsMenge';\r\n    dsArtikelQuellartikel.SetParentComponent(dsArtikel);\r\n    dsArtikelQuellartikel.Name := 'dsArtikelQuellartikel';\r\n    dsArtikelQuellartikel.FieldName := 'Quellartikel';\r\n    dsArtikelQuellartikel.Size := 25;\r\n    dsArtikelrabattierfaehig.SetParentComponent(dsArtikel);\r\n    dsArtikelrabattierfaehig.Name := 'dsArtikelrabattierfaehig';\r\n    dsArtikelrabattierfaehig.FieldName := 'rabattierfaehig';\r\n    dsArtikelAngebotAlternativeAN.SetParentComponent(dsArtikel);\r\n    dsArtikelAngebotAlternativeAN.Name := 'dsArtikelAngebotAlternativeAN';\r\n    dsArtikelAngebotAlternativeAN.FieldName := 'AngebotAlternativeAN';\r\n    dsArtikelAngebotAlternativeAN.Size := 25;\r\n    dsArtikelPreisanteilNetto.SetParentComponent(dsArtikel);\r\n    dsArtikelPreisanteilNetto.Name := 'dsArtikelPreisanteilNetto';\r\n    dsArtikelPreisanteilNetto.FieldName := 'PreisanteilNetto';\r\n    dsArtikelFarbe.SetParentComponent(dsArtikel);\r\n    dsArtikelFarbe.Name := 'dsArtikelFarbe';\r\n    dsArtikelFarbe.FieldName := 'Farbe';\r\n    dsArtikelAEinkauf.SetParentComponent(dsArtikel);\r\n    dsArtikelAEinkauf.Name := 'dsArtikelAEinkauf';\r\n    dsArtikelAEinkauf.FieldName := 'AEinkauf';\r\n    dsArtikelAVerkauf.SetParentComponent(dsArtikel);\r\n    dsArtikelAVerkauf.Name := 'dsArtikelAVerkauf';\r\n    dsArtikelAVerkauf.FieldName := 'AVerkauf';\r\n    dsArtikelArtikelnummerLieferant.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelnummerLieferant.Name := 'dsArtikelArtikelnummerLieferant';\r\n    dsArtikelArtikelnummerLieferant.FieldName := 'ArtikelnummerLieferant';\r\n    dsArtikelLieferantnummer.SetParentComponent(dsArtikel);\r\n    dsArtikelLieferantnummer.Name := 'dsArtikelLieferantnummer';\r\n    dsArtikelLieferantnummer.FieldName := 'Lieferantnummer';\r\n    dsArtikelLieferantnummer.Size := 13;\r\n    dsArtikelVerkaufspreisBrutto.SetParentComponent(dsArtikel);\r\n    dsArtikelVerkaufspreisBrutto.Name := 'dsArtikelVerkaufspreisBrutto';\r\n    dsArtikelVerkaufspreisBrutto.FieldName := 'VerkaufspreisBrutto';\r\n    dsArtikelArtikelSet.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelSet.Name := 'dsArtikelArtikelSet';\r\n    dsArtikelArtikelSet.FieldName := 'ArtikelSet';\r\n    dsArtikelProvisionssatz.SetParentComponent(dsArtikel);\r\n    dsArtikelProvisionssatz.Name := 'dsArtikelProvisionssatz';\r\n    dsArtikelProvisionssatz.FieldName := 'Provisionssatz';\r\n    dsArtikelWarentarifnummer.SetParentComponent(dsArtikel);\r\n    dsArtikelWarentarifnummer.Name := 'dsArtikelWarentarifnummer';\r\n    dsArtikelWarentarifnummer.FieldName := 'Warentarifnummer';\r\n    dsArtikelHandelsartikel.SetParentComponent(dsArtikel);\r\n    dsArtikelHandelsartikel.Name := 'dsArtikelHandelsartikel';\r\n    dsArtikelHandelsartikel.FieldName := 'Handelsartikel';\r\n    dsArtikelUrsprungsland.SetParentComponent(dsArtikel);\r\n    dsArtikelUrsprungsland.Name := 'dsArtikelUrsprungsland';\r\n    dsArtikelUrsprungsland.FieldName := 'Ursprungsland';\r\n    dsArtikelUrsprungsland.Size := 5;\r\n    dsArtikelKategorie.SetParentComponent(dsArtikel);\r\n    dsArtikelKategorie.Name := 'dsArtikelKategorie';\r\n    dsArtikelKategorie.FieldName := 'Kategorie';\r\n    dsArtikelKategorie.Size := 25;\r\n    dsArtikelStandardRabattsatzEK.SetParentComponent(dsArtikel);\r\n    dsArtikelStandardRabattsatzEK.Name := 'dsArtikelStandardRabattsatzEK';\r\n    dsArtikelStandardRabattsatzEK.FieldName := 'StandardRabattsatzEK';\r\n    dsArtikelStandardRabattsatzVK.SetParentComponent(dsArtikel);\r\n    dsArtikelStandardRabattsatzVK.Name := 'dsArtikelStandardRabattsatzVK';\r\n    dsArtikelStandardRabattsatzVK.FieldName := 'StandardRabattsatzVK';\r\n    dsArtikelRabattpreiseManuell.SetParentComponent(dsArtikel);\r\n    dsArtikelRabattpreiseManuell.Name := 'dsArtikelRabattpreiseManuell';\r\n    dsArtikelRabattpreiseManuell.FieldName := 'RabattpreiseManuell';\r\n    dsArtikelMengeBestellt.SetParentComponent(dsArtikel);\r\n    dsArtikelMengeBestellt.Name := 'dsArtikelMengeBestellt';\r\n    dsArtikelMengeBestellt.FieldName := 'MengeBestellt';\r\n    dsArtikelMengeBeauftragt.SetParentComponent(dsArtikel);\r\n    dsArtikelMengeBeauftragt.Name := 'dsArtikelMengeBeauftragt';\r\n    dsArtikelMengeBeauftragt.FieldName := 'MengeBeauftragt';\r\n    dsArtikelBestandDisponiert.SetParentComponent(dsArtikel);\r\n    dsArtikelBestandDisponiert.Name := 'dsArtikelBestandDisponiert';\r\n    dsArtikelBestandDisponiert.FieldName := 'BestandDisponiert';\r\n    dsArtikelMengeAngeboten.SetParentComponent(dsArtikel);\r\n    dsArtikelMengeAngeboten.Name := 'dsArtikelMengeAngeboten';\r\n    dsArtikelMengeAngeboten.FieldName := 'MengeAngeboten';\r\n    dsArtikelBestandDispInclAngebot.SetParentComponent(dsArtikel);\r\n    dsArtikelBestandDispInclAngebot.Name := 'dsArtikelBestandDispInclAngebot';\r\n    dsArtikelBestandDispInclAngebot.FieldName := 'BestandDispInclAngebot';\r\n    dsArtikelMWStKey.SetParentComponent(dsArtikel);\r\n    dsArtikelMWStKey.Name := 'dsArtikelMWStKey';\r\n    dsArtikelMWStKey.FieldName := 'MWStKey';\r\n    dsArtikelShopAmazon.SetParentComponent(dsArtikel);\r\n    dsArtikelShopAmazon.Name := 'dsArtikelShopAmazon';\r\n    dsArtikelShopAmazon.FieldName := 'ShopAmazon';\r\n    dsArtikelShopQuelle.SetParentComponent(dsArtikel);\r\n    dsArtikelShopQuelle.Name := 'dsArtikelShopQuelle';\r\n    dsArtikelShopQuelle.FieldName := 'ShopQuelle';\r\n    dsArtikelGeraet.SetParentComponent(dsArtikel);\r\n    dsArtikelGeraet.Name := 'dsArtikelGeraet';\r\n    dsArtikelGeraet.FieldName := 'Geraet';\r\n    dsArtikelArtgewicht.SetParentComponent(dsArtikel);\r\n    dsArtikelArtgewicht.Name := 'dsArtikelArtgewicht';\r\n    dsArtikelArtgewicht.FieldName := 'Artgewicht';\r\n    dsArtikelVolumen.SetParentComponent(dsArtikel);\r\n    dsArtikelVolumen.Name := 'dsArtikelVolumen';\r\n    dsArtikelVolumen.FieldName := 'Volumen';\r\n    dsArtikelPacklisteNichtAnzeigen.SetParentComponent(dsArtikel);\r\n    dsArtikelPacklisteNichtAnzeigen.Name := 'dsArtikelPacklisteNichtAnzeigen';\r\n    dsArtikelPacklisteNichtAnzeigen.FieldName := 'PacklisteNichtAnzeigen';\r\n    dsArtikelKeineAufschlagskalkulation.SetParentComponent(dsArtikel);\r\n    dsArtikelKeineAufschlagskalkulation.Name := 'dsArtikelKeineAufschlagskalkulation';\r\n    dsArtikelKeineAufschlagskalkulation.FieldName := 'KeineAufschlagskalkulation';\r\n    dsArtikelKorrekturMenge.SetParentComponent(dsArtikel);\r\n    dsArtikelKorrekturMenge.Name := 'dsArtikelKorrekturMenge';\r\n    dsArtikelKorrekturMenge.FieldName := 'KorrekturMenge';\r\n    dsArtikelKorrekturWert.SetParentComponent(dsArtikel);\r\n    dsArtikelKorrekturWert.Name := 'dsArtikelKorrekturWert';\r\n    dsArtikelKorrekturWert.FieldName := 'KorrekturWert';\r\n    dsArtikelNachfolgeartikel.SetParentComponent(dsArtikel);\r\n    dsArtikelNachfolgeartikel.Name := 'dsArtikelNachfolgeartikel';\r\n    dsArtikelNachfolgeartikel.FieldName := 'Nachfolgeartikel';\r\n    dsArtikelNachfolgeartikel.Size := 25;\r\n    dsArtikelMindestbestellmenge.SetParentComponent(dsArtikel);\r\n    dsArtikelMindestbestellmenge.Name := 'dsArtikelMindestbestellmenge';\r\n    dsArtikelMindestbestellmenge.FieldName := 'Mindestbestellmenge';\r\n    dsArtikelSchnittEK.SetParentComponent(dsArtikel);\r\n    dsArtikelSchnittEK.Name := 'dsArtikelSchnittEK';\r\n    dsArtikelSchnittEK.FieldName := 'SchnittEK';\r\n    dsArtikelVerkaufspreisVom.SetParentComponent(dsArtikel);\r\n    dsArtikelVerkaufspreisVom.Name := 'dsArtikelVerkaufspreisVom';\r\n    dsArtikelVerkaufspreisVom.FieldName := 'VerkaufspreisVom';\r\n    dsArtikelPruefungChargeSNR.SetParentComponent(dsArtikel);\r\n    dsArtikelPruefungChargeSNR.Name := 'dsArtikelPruefungChargeSNR';\r\n    dsArtikelPruefungChargeSNR.FieldName := 'PruefungChargeSNR';\r\n    dsArtikelArtikelbeschreibungHTML.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelbeschreibungHTML.Name := 'dsArtikelArtikelbeschreibungHTML';\r\n    dsArtikelArtikelbeschreibungHTML.FieldName := 'ArtikelbeschreibungHTML';\r\n    dsArtikelArtikelbeschreibungHTML.Size := 255;\r\n    dsArtikelProduktKurzbeschreibungHTML.SetParentComponent(dsArtikel);\r\n    dsArtikelProduktKurzbeschreibungHTML.Name := 'dsArtikelProduktKurzbeschreibungHTML';\r\n    dsArtikelProduktKurzbeschreibungHTML.FieldName := 'ProduktKurzbeschreibungHTML';\r\n    dsArtikelProduktKurzbeschreibungHTML.Size := 255;\r\n    dsArtikelStatusFuerShop.SetParentComponent(dsArtikel);\r\n    dsArtikelStatusFuerShop.Name := 'dsArtikelStatusFuerShop';\r\n    dsArtikelStatusFuerShop.FieldName := 'StatusFuerShop';\r\n    dsArtikelStatusFuerShop.Size := 25;\r\n    dsArtikelAmpelFuerShop.SetParentComponent(dsArtikel);\r\n    dsArtikelAmpelFuerShop.Name := 'dsArtikelAmpelFuerShop';\r\n    dsArtikelAmpelFuerShop.FieldName := 'AmpelFuerShop';\r\n    dsArtikelAmpelFuerShop.Size := 25;\r\n    dsArtikelEXP_Anzahl.SetParentComponent(dsArtikel);\r\n    dsArtikelEXP_Anzahl.Name := 'dsArtikelEXP_Anzahl';\r\n    dsArtikelEXP_Anzahl.FieldName := 'EXP_Anzahl';\r\n    dsArtikelEXP_Inhalt.SetParentComponent(dsArtikel);\r\n    dsArtikelEXP_Inhalt.Name := 'dsArtikelEXP_Inhalt';\r\n    dsArtikelEXP_Inhalt.FieldName := 'EXP_Inhalt';\r\n    dsArtikelEXP_Faktor.SetParentComponent(dsArtikel);\r\n    dsArtikelEXP_Faktor.Name := 'dsArtikelEXP_Faktor';\r\n    dsArtikelEXP_Faktor.FieldName := 'EXP_Faktor';\r\n    dsArtikelFach.SetParentComponent(dsArtikel);\r\n    dsArtikelFach.Name := 'dsArtikelFach';\r\n    dsArtikelFach.FieldName := 'Fach';\r\n    dsArtikelExportKasse.SetParentComponent(dsArtikel);\r\n    dsArtikelExportKasse.Name := 'dsArtikelExportKasse';\r\n    dsArtikelExportKasse.FieldName := 'ExportKasse';\r\n    dsArtikelWKNR.SetParentComponent(dsArtikel);\r\n    dsArtikelWKNR.Name := 'dsArtikelWKNR';\r\n    dsArtikelWKNR.FieldName := 'WKNR';\r\n    dsArtikelArtikelAttribute.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelAttribute.Name := 'dsArtikelArtikelAttribute';\r\n    dsArtikelArtikelAttribute.FieldName := 'ArtikelAttribute';\r\n    dsArtikelArtikelAttribute.Size := 255;\r\n    dsArtikelErstelltAm.SetParentComponent(dsArtikel);\r\n    dsArtikelErstelltAm.Name := 'dsArtikelErstelltAm';\r\n    dsArtikelErstelltAm.FieldName := 'ErstelltAm';\r\n    dsArtikelVarianteVonAN.SetParentComponent(dsArtikel);\r\n    dsArtikelVarianteVonAN.Name := 'dsArtikelVarianteVonAN';\r\n    dsArtikelVarianteVonAN.FieldName := 'VarianteVonAN';\r\n    dsArtikelVarianteVonAN.Size := 25;\r\n    dsArtikelGurtmassWerte.SetParentComponent(dsArtikel);\r\n    dsArtikelGurtmassWerte.Name := 'dsArtikelGurtmassWerte';\r\n    dsArtikelGurtmassWerte.FieldName := 'GurtmassWerte';\r\n    dsArtikelGurtmassWerte.Size := 250;\r\n    dsArtikelGurtmass.SetParentComponent(dsArtikel);\r\n    dsArtikelGurtmass.Name := 'dsArtikelGurtmass';\r\n    dsArtikelGurtmass.FieldName := 'Gurtmass';\r\n    dsArtikelAltersgrenze.SetParentComponent(dsArtikel);\r\n    dsArtikelAltersgrenze.Name := 'dsArtikelAltersgrenze';\r\n    dsArtikelAltersgrenze.FieldName := 'Altersgrenze';\r\n    dsArtikelMWStKeyImHaus.SetParentComponent(dsArtikel);\r\n    dsArtikelMWStKeyImHaus.Name := 'dsArtikelMWStKeyImHaus';\r\n    dsArtikelMWStKeyImHaus.FieldName := 'MWStKeyImHaus';\r\n    dsArtikelKasseBewegung.SetParentComponent(dsArtikel);\r\n    dsArtikelKasseBewegung.Name := 'dsArtikelKasseBewegung';\r\n    dsArtikelKasseBewegung.FieldName := 'KasseBewegung';\r\n    dsArtikelKasseBewegungEK.SetParentComponent(dsArtikel);\r\n    dsArtikelKasseBewegungEK.Name := 'dsArtikelKasseBewegungEK';\r\n    dsArtikelKasseBewegungEK.FieldName := 'KasseBewegungEK';\r\n    dsArtikelKasseBewegungVK.SetParentComponent(dsArtikel);\r\n    dsArtikelKasseBewegungVK.Name := 'dsArtikelKasseBewegungVK';\r\n    dsArtikelKasseBewegungVK.FieldName := 'KasseBewegungVK';\r\n    dsArtikelProduktionBewegung.SetParentComponent(dsArtikel);\r\n    dsArtikelProduktionBewegung.Name := 'dsArtikelProduktionBewegung';\r\n    dsArtikelProduktionBewegung.FieldName := 'ProduktionBewegung';\r\n    dsArtikelProduktionBewegungEK.SetParentComponent(dsArtikel);\r\n    dsArtikelProduktionBewegungEK.Name := 'dsArtikelProduktionBewegungEK';\r\n    dsArtikelProduktionBewegungEK.FieldName := 'ProduktionBewegungEK';\r\n    dsArtikelProduktionBewegungVK.SetParentComponent(dsArtikel);\r\n    dsArtikelProduktionBewegungVK.Name := 'dsArtikelProduktionBewegungVK';\r\n    dsArtikelProduktionBewegungVK.FieldName := 'ProduktionBewegungVK';\r\n    dsArtikelWaWiAB.SetParentComponent(dsArtikel);\r\n    dsArtikelWaWiAB.Name := 'dsArtikelWaWiAB';\r\n    dsArtikelWaWiAB.FieldName := 'WaWiAB';\r\n    dsArtikelGeaendertAm.SetParentComponent(dsArtikel);\r\n    dsArtikelGeaendertAm.Name := 'dsArtikelGeaendertAm';\r\n    dsArtikelGeaendertAm.FieldName := 'GeaendertAm';\r\n    dsArtikelGefahrgutKennzeichen.SetParentComponent(dsArtikel);\r\n    dsArtikelGefahrgutKennzeichen.Name := 'dsArtikelGefahrgutKennzeichen';\r\n    dsArtikelGefahrgutKennzeichen.FieldName := 'GefahrgutKennzeichen';\r\n    dsArtikelGefahrgutKennzeichen.Size := 50;\r\n    dsArtikelVerpackG.SetParentComponent(dsArtikel);\r\n    dsArtikelVerpackG.Name := 'dsArtikelVerpackG';\r\n    dsArtikelVerpackG.FieldName := 'VerpackG';\r\n    dsArtikelUPE.SetParentComponent(dsArtikel);\r\n    dsArtikelUPE.Name := 'dsArtikelUPE';\r\n    dsArtikelUPE.FieldName := 'UPE';\r\n    dsArtikelArtikelbeschreibungEinkauf.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelbeschreibungEinkauf.Name := 'dsArtikelArtikelbeschreibungEinkauf';\r\n    dsArtikelArtikelbeschreibungEinkauf.FieldName := 'ArtikelbeschreibungEinkauf';\r\n    dsArtikelArtikelbeschreibungEinkauf.Size := 255;\r\n    dsArtikelHerstellerArtikelnummer.SetParentComponent(dsArtikel);\r\n    dsArtikelHerstellerArtikelnummer.Name := 'dsArtikelHerstellerArtikelnummer';\r\n    dsArtikelHerstellerArtikelnummer.FieldName := 'HerstellerArtikelnummer';\r\n    dsArtikelHerstellerArtikelnummer.Size := 25;\r\n    dsArtikelNatura.SetParentComponent(dsArtikel);\r\n    dsArtikelNatura.Name := 'dsArtikelNatura';\r\n    dsArtikelNatura.FieldName := 'Natura';\r\n    dsArtikelNatura.Size := 2;\r\n    dsArtikelArbeitszeit.SetParentComponent(dsArtikel);\r\n    dsArtikelArbeitszeit.Name := 'dsArtikelArbeitszeit';\r\n    dsArtikelArbeitszeit.FieldName := 'Arbeitszeit';\r\n    dsArtikelArtderMengeArtderMenge.SetParentComponent(dsArtikel);\r\n    dsArtikelArtderMengeArtderMenge.Name := 'dsArtikelArtderMengeArtderMenge';\r\n    dsArtikelArtderMengeArtderMenge.FieldName := 'ArtderMenge.ArtderMenge';\r\n    dsArtikelArtderMengeArtderMenge.Size := 50;\r\n    xdsKundenpreise.SetParentComponent(Self);\r\n    xdsKundenpreise.Name := 'xdsKundenpreise';\r\n    xdsKundenpreise.AfterOpen := xdsKundenpreiseAfterOpen;\r\n    xdsKundenpreise.EntitySetName := 'ArtikelKundenpreise';\r\n    xdsKundenpreise.Connection := DM2.XDataWebConnection1;\r\n    xdsKundenpreise.SubpropsDepth := 1;\r\n    xdsKundenpreise.QueryString := '$expand=Artikelnummer';\r\n    xdsKundenpreise.ServerRecordCountMode := smInlineCount;\r\n    xdsKundenpreise.Left := 151;\r\n    xdsKundenpreise.Top := 174;\r\n    xdsKundenpreiseArtikelnummer.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseArtikelnummer.Name := 'xdsKundenpreiseArtikelnummer';\r\n    xdsKundenpreiseArtikelnummer.FieldName := 'Artikelnummer';\r\n    xdsKundenpreiseArtikelnummer.Required := True;\r\n    xdsKundenpreiseKundennummer.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseKundennummer.Name := 'xdsKundenpreiseKundennummer';\r\n    xdsKundenpreiseKundennummer.FieldName := 'Kundennummer';\r\n    xdsKundenpreiseKundennummer.Required := True;\r\n    xdsKundenpreiseVerkaufspreis.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseVerkaufspreis.Name := 'xdsKundenpreiseVerkaufspreis';\r\n    xdsKundenpreiseVerkaufspreis.FieldName := 'Verkaufspreis';\r\n    xdsKundenpreiseNachname.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseNachname.Name := 'xdsKundenpreiseNachname';\r\n    xdsKundenpreiseNachname.FieldName := 'Nachname';\r\n    xdsKundenpreiseNachname.Size := 40;\r\n    xdsKundenpreiseRabattsatz.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseRabattsatz.Name := 'xdsKundenpreiseRabattsatz';\r\n    xdsKundenpreiseRabattsatz.FieldName := 'Rabattsatz';\r\n    xdsKundenpreiseVerleihpreis.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseVerleihpreis.Name := 'xdsKundenpreiseVerleihpreis';\r\n    xdsKundenpreiseVerleihpreis.FieldName := 'Verleihpreis';\r\n    xdsKundenpreiseZusatzPreis.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseZusatzPreis.Name := 'xdsKundenpreiseZusatzPreis';\r\n    xdsKundenpreiseZusatzPreis.FieldName := 'ZusatzPreis';\r\n    xdsKundenpreiseArtikelnummerKunde.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseArtikelnummerKunde.Name := 'xdsKundenpreiseArtikelnummerKunde';\r\n    xdsKundenpreiseArtikelnummerKunde.FieldName := 'ArtikelnummerKunde';\r\n    xdsKundenpreiseArtikelnummerKunde.Size := 25;\r\n    xdsKundenpreiseDatumGeaendert.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseDatumGeaendert.Name := 'xdsKundenpreiseDatumGeaendert';\r\n    xdsKundenpreiseDatumGeaendert.FieldName := 'DatumGeaendert';\r\n    xdsKundenpreiseArtikelueberschrift.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseArtikelueberschrift.Name := 'xdsKundenpreiseArtikelueberschrift';\r\n    xdsKundenpreiseArtikelueberschrift.FieldName := 'Artikelueberschrift';\r\n    xdsKundenpreiseArtikelueberschrift.Size := 50;\r\n    xdsKundenpreiseArtikelnummerArtikelnummer.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseArtikelnummerArtikelnummer.Name := 'xdsKundenpreiseArtikelnummerArtikelnummer';\r\n    xdsKundenpreiseArtikelnummerArtikelnummer.FieldName := 'Artikelnummer.Artikelnummer';\r\n    xdsKundenpreiseArtikelnummerArtikelnummer.Size := 25;\r\n    xdsKundenpreiseArtikelnummerArtikelueberschrift.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseArtikelnummerArtikelueberschrift.Name := 'xdsKundenpreiseArtikelnummerArtikelueberschrift';\r\n    xdsKundenpreiseArtikelnummerArtikelueberschrift.FieldName := 'Artikelnummer.Artikelueberschrift';\r\n    xdsKundenpreiseArtikelnummerArtikelueberschrift.Size := 50;\r\n    xdsKundenpreiseArtikelnummerArtikelbeschreibung.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseArtikelnummerArtikelbeschreibung.Name := 'xdsKundenpreiseArtikelnummerArtikelbeschreibung';\r\n    xdsKundenpreiseArtikelnummerArtikelbeschreibung.FieldName := 'Artikelnummer.Artikelbeschreibung';\r\n    xdsKundenpreiseArtikelnummerArtikelbeschreibung.Size := 255;\r\n    dsBeleg2.SetParentComponent(Self);\r\n    dsBeleg2.Name := 'dsBeleg2';\r\n    dsBeleg2.AfterOpen := dsBeleg2AfterOpen;\r\n    dsBeleg2.EntitySetName := 'Auftrag';\r\n    dsBeleg2.Connection := DM2.XDataWebConnection1;\r\n    dsBeleg2.SubpropsDepth := 1;\r\n    dsBeleg2.QueryString := '$expand=Kundennummer';\r\n    dsBeleg2.Left := 152;\r\n    dsBeleg2.Top := 240;\r\n    dsBeleg2Kundennummer.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Kundennummer.Name := 'dsBeleg2Kundennummer';\r\n    dsBeleg2Kundennummer.FieldName := 'Kundennummer';\r\n    dsBeleg2Kundennummer.Required := True;\r\n    dsBeleg2Nummerkomplett.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Nummerkomplett.Name := 'dsBeleg2Nummerkomplett';\r\n    dsBeleg2Nummerkomplett.FieldName := 'Nummerkomplett';\r\n    dsBeleg2Nummerkomplett.Required := True;\r\n    dsBeleg2Nummerkomplett.Size := 10;\r\n    dsBeleg2ReferenzAngebot.SetParentComponent(dsBeleg2);\r\n    dsBeleg2ReferenzAngebot.Name := 'dsBeleg2ReferenzAngebot';\r\n    dsBeleg2ReferenzAngebot.FieldName := 'ReferenzAngebot';\r\n    dsBeleg2ReferenzAngebot.Size := 10;\r\n    dsBeleg2ReferenzLieferschein.SetParentComponent(dsBeleg2);\r\n    dsBeleg2ReferenzLieferschein.Name := 'dsBeleg2ReferenzLieferschein';\r\n    dsBeleg2ReferenzLieferschein.FieldName := 'ReferenzLieferschein';\r\n    dsBeleg2ReferenzLieferschein.Size := 10;\r\n    dsBeleg2ReferenzRechnung.SetParentComponent(dsBeleg2);\r\n    dsBeleg2ReferenzRechnung.Name := 'dsBeleg2ReferenzRechnung';\r\n    dsBeleg2ReferenzRechnung.FieldName := 'ReferenzRechnung';\r\n    dsBeleg2ReferenzRechnung.Size := 10;\r\n    dsBeleg2Datum.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Datum.Name := 'dsBeleg2Datum';\r\n    dsBeleg2Datum.FieldName := 'Datum';\r\n    dsBeleg2Datum.Required := True;\r\n    dsBeleg2Jahr.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Jahr.Name := 'dsBeleg2Jahr';\r\n    dsBeleg2Jahr.FieldName := 'Jahr';\r\n    dsBeleg2Kalenderwoche.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Kalenderwoche.Name := 'dsBeleg2Kalenderwoche';\r\n    dsBeleg2Kalenderwoche.FieldName := 'Kalenderwoche';\r\n    dsBeleg2Nachname.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Nachname.Name := 'dsBeleg2Nachname';\r\n    dsBeleg2Nachname.FieldName := 'Nachname';\r\n    dsBeleg2Nachname.Size := 50;\r\n    dsBeleg2Vorname.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Vorname.Name := 'dsBeleg2Vorname';\r\n    dsBeleg2Vorname.FieldName := 'Vorname';\r\n    dsBeleg2Vorname.Size := 50;\r\n    dsBeleg2Postleitzahl.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Postleitzahl.Name := 'dsBeleg2Postleitzahl';\r\n    dsBeleg2Postleitzahl.FieldName := 'Postleitzahl';\r\n    dsBeleg2Postleitzahl.Size := 10;\r\n    dsBeleg2Ort.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Ort.Name := 'dsBeleg2Ort';\r\n    dsBeleg2Ort.FieldName := 'Ort';\r\n    dsBeleg2Ort.Size := 50;\r\n    dsBeleg2Laenderkuerzel.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Laenderkuerzel.Name := 'dsBeleg2Laenderkuerzel';\r\n    dsBeleg2Laenderkuerzel.FieldName := 'Laenderkuerzel';\r\n    dsBeleg2Laenderkuerzel.Size := 5;\r\n    dsBeleg2Land.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Land.Name := 'dsBeleg2Land';\r\n    dsBeleg2Land.FieldName := 'Land';\r\n    dsBeleg2Land.Size := 50;\r\n    dsBeleg2Briefanrede1.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Briefanrede1.Name := 'dsBeleg2Briefanrede1';\r\n    dsBeleg2Briefanrede1.FieldName := 'Briefanrede1';\r\n    dsBeleg2Briefanrede1.Size := 255;\r\n    dsBeleg2Briefanrede2.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Briefanrede2.Name := 'dsBeleg2Briefanrede2';\r\n    dsBeleg2Briefanrede2.FieldName := 'Briefanrede2';\r\n    dsBeleg2Briefanrede2.Size := 40;\r\n    dsBeleg2EMail.SetParentComponent(dsBeleg2);\r\n    dsBeleg2EMail.Name := 'dsBeleg2EMail';\r\n    dsBeleg2EMail.FieldName := 'EMail';\r\n    dsBeleg2EMail.Size := 50;\r\n    dsBeleg2AdresseBild.SetParentComponent(dsBeleg2);\r\n    dsBeleg2AdresseBild.Name := 'dsBeleg2AdresseBild';\r\n    dsBeleg2AdresseBild.FieldName := 'AdresseBild';\r\n    dsBeleg2AdresseBild.Size := 255;\r\n    dsBeleg2LieferanschriftBild.SetParentComponent(dsBeleg2);\r\n    dsBeleg2LieferanschriftBild.Name := 'dsBeleg2LieferanschriftBild';\r\n    dsBeleg2LieferanschriftBild.FieldName := 'LieferanschriftBild';\r\n    dsBeleg2LieferanschriftBild.Size := 255;\r\n    dsBeleg2Zahlungsbedingung.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Zahlungsbedingung.Name := 'dsBeleg2Zahlungsbedingung';\r\n    dsBeleg2Zahlungsbedingung.FieldName := 'Zahlungsbedingung';\r\n    dsBeleg2ZahlungsbedingungText.SetParentComponent(dsBeleg2);\r\n    dsBeleg2ZahlungsbedingungText.Name := 'dsBeleg2ZahlungsbedingungText';\r\n    dsBeleg2ZahlungsbedingungText.FieldName := 'ZahlungsbedingungText';\r\n    dsBeleg2ZahlungsbedingungText.Size := 250;\r\n    dsBeleg2Auftragsbezeichnung.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Auftragsbezeichnung.Name := 'dsBeleg2Auftragsbezeichnung';\r\n    dsBeleg2Auftragsbezeichnung.FieldName := 'Auftragsbezeichnung';\r\n    dsBeleg2Auftragsbezeichnung.Size := 255;\r\n    dsBeleg2AuftragnummerKunde.SetParentComponent(dsBeleg2);\r\n    dsBeleg2AuftragnummerKunde.Name := 'dsBeleg2AuftragnummerKunde';\r\n    dsBeleg2AuftragnummerKunde.FieldName := 'AuftragnummerKunde';\r\n    dsBeleg2AuftragnummerKunde.Size := 50;\r\n    dsBeleg2BestelldatumKunde.SetParentComponent(dsBeleg2);\r\n    dsBeleg2BestelldatumKunde.Name := 'dsBeleg2BestelldatumKunde';\r\n    dsBeleg2BestelldatumKunde.FieldName := 'BestelldatumKunde';\r\n    dsBeleg2ILN.SetParentComponent(dsBeleg2);\r\n    dsBeleg2ILN.Name := 'dsBeleg2ILN';\r\n    dsBeleg2ILN.FieldName := 'ILN';\r\n    dsBeleg2ILN.Size := 50;\r\n    dsBeleg2Kopftext.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Kopftext.Name := 'dsBeleg2Kopftext';\r\n    dsBeleg2Kopftext.FieldName := 'Kopftext';\r\n    dsBeleg2Kopftext.Size := 255;\r\n    dsBeleg2Schlussbemerkung.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Schlussbemerkung.Name := 'dsBeleg2Schlussbemerkung';\r\n    dsBeleg2Schlussbemerkung.FieldName := 'Schlussbemerkung';\r\n    dsBeleg2Schlussbemerkung.Size := 255;\r\n    dsBeleg2Gruss.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Gruss.Name := 'dsBeleg2Gruss';\r\n    dsBeleg2Gruss.FieldName := 'Gruss';\r\n    dsBeleg2Gruss.Size := 255;\r\n    dsBeleg2Mehrwertsteuersatz1.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Mehrwertsteuersatz1.Name := 'dsBeleg2Mehrwertsteuersatz1';\r\n    dsBeleg2Mehrwertsteuersatz1.FieldName := 'Mehrwertsteuersatz1';\r\n    dsBeleg2Mehrwertsteuersatz2.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Mehrwertsteuersatz2.Name := 'dsBeleg2Mehrwertsteuersatz2';\r\n    dsBeleg2Mehrwertsteuersatz2.FieldName := 'Mehrwertsteuersatz2';\r\n    dsBeleg2Nettosumme01.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Nettosumme01.Name := 'dsBeleg2Nettosumme01';\r\n    dsBeleg2Nettosumme01.FieldName := 'Nettosumme01';\r\n    dsBeleg2Nettosumme02.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Nettosumme02.Name := 'dsBeleg2Nettosumme02';\r\n    dsBeleg2Nettosumme02.FieldName := 'Nettosumme02';\r\n    dsBeleg2Nettosumme.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Nettosumme.Name := 'dsBeleg2Nettosumme';\r\n    dsBeleg2Nettosumme.FieldName := 'Nettosumme';\r\n    dsBeleg2Mehrwertsteuer01.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Mehrwertsteuer01.Name := 'dsBeleg2Mehrwertsteuer01';\r\n    dsBeleg2Mehrwertsteuer01.FieldName := 'Mehrwertsteuer01';\r\n    dsBeleg2Mehrwertsteuer02.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Mehrwertsteuer02.Name := 'dsBeleg2Mehrwertsteuer02';\r\n    dsBeleg2Mehrwertsteuer02.FieldName := 'Mehrwertsteuer02';\r\n    dsBeleg2Mehrwertsteuer.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Mehrwertsteuer.Name := 'dsBeleg2Mehrwertsteuer';\r\n    dsBeleg2Mehrwertsteuer.FieldName := 'Mehrwertsteuer';\r\n    dsBeleg2Bruttosumme.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Bruttosumme.Name := 'dsBeleg2Bruttosumme';\r\n    dsBeleg2Bruttosumme.FieldName := 'Bruttosumme';\r\n    dsBeleg2Versanddatum.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Versanddatum.Name := 'dsBeleg2Versanddatum';\r\n    dsBeleg2Versanddatum.FieldName := 'Versanddatum';\r\n    dsBeleg2Skontosatz.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Skontosatz.Name := 'dsBeleg2Skontosatz';\r\n    dsBeleg2Skontosatz.FieldName := 'Skontosatz';\r\n    dsBeleg2NettosummeEK.SetParentComponent(dsBeleg2);\r\n    dsBeleg2NettosummeEK.Name := 'dsBeleg2NettosummeEK';\r\n    dsBeleg2NettosummeEK.FieldName := 'NettosummeEK';\r\n    dsBeleg2NettoMarge.SetParentComponent(dsBeleg2);\r\n    dsBeleg2NettoMarge.Name := 'dsBeleg2NettoMarge';\r\n    dsBeleg2NettoMarge.FieldName := 'NettoMarge';\r\n    dsBeleg2Schreibzeichen.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Schreibzeichen.Name := 'dsBeleg2Schreibzeichen';\r\n    dsBeleg2Schreibzeichen.FieldName := 'Schreibzeichen';\r\n    dsBeleg2Schreibzeichen.Size := 10;\r\n    dsBeleg2Unterzeichner.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Unterzeichner.Name := 'dsBeleg2Unterzeichner';\r\n    dsBeleg2Unterzeichner.FieldName := 'Unterzeichner';\r\n    dsBeleg2Unterzeichner.Size := 50;\r\n    dsBeleg2TelefonMA.SetParentComponent(dsBeleg2);\r\n    dsBeleg2TelefonMA.Name := 'dsBeleg2TelefonMA';\r\n    dsBeleg2TelefonMA.FieldName := 'TelefonMA';\r\n    dsBeleg2TelefonMA.Size := 30;\r\n    dsBeleg2EmailMA.SetParentComponent(dsBeleg2);\r\n    dsBeleg2EmailMA.Name := 'dsBeleg2EmailMA';\r\n    dsBeleg2EmailMA.FieldName := 'EmailMA';\r\n    dsBeleg2EmailMA.Size := 50;\r\n    dsBeleg2USTID.SetParentComponent(dsBeleg2);\r\n    dsBeleg2USTID.Name := 'dsBeleg2USTID';\r\n    dsBeleg2USTID.FieldName := 'USTID';\r\n    dsBeleg2Umsatzsteuerausweis.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Umsatzsteuerausweis.Name := 'dsBeleg2Umsatzsteuerausweis';\r\n    dsBeleg2Umsatzsteuerausweis.FieldName := 'Umsatzsteuerausweis';\r\n    dsBeleg2gebucht.SetParentComponent(dsBeleg2);\r\n    dsBeleg2gebucht.Name := 'dsBeleg2gebucht';\r\n    dsBeleg2gebucht.FieldName := 'gebucht';\r\n    dsBeleg2Lieferdatum.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Lieferdatum.Name := 'dsBeleg2Lieferdatum';\r\n    dsBeleg2Lieferdatum.FieldName := 'Lieferdatum';\r\n    dsBeleg2Transportbedingung.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Transportbedingung.Name := 'dsBeleg2Transportbedingung';\r\n    dsBeleg2Transportbedingung.FieldName := 'Transportbedingung';\r\n    dsBeleg2Transportbedingung.Size := 100;\r\n    dsBeleg2Mehrwertsteuersatz3.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Mehrwertsteuersatz3.Name := 'dsBeleg2Mehrwertsteuersatz3';\r\n    dsBeleg2Mehrwertsteuersatz3.FieldName := 'Mehrwertsteuersatz3';\r\n    dsBeleg2Mehrwertsteuer03.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Mehrwertsteuer03.Name := 'dsBeleg2Mehrwertsteuer03';\r\n    dsBeleg2Mehrwertsteuer03.FieldName := 'Mehrwertsteuer03';\r\n    dsBeleg2Nettosumme03.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Nettosumme03.Name := 'dsBeleg2Nettosumme03';\r\n    dsBeleg2Nettosumme03.FieldName := 'Nettosumme03';\r\n    dsBeleg2RundungsDifferenz.SetParentComponent(dsBeleg2);\r\n    dsBeleg2RundungsDifferenz.Name := 'dsBeleg2RundungsDifferenz';\r\n    dsBeleg2RundungsDifferenz.FieldName := 'RundungsDifferenz';\r\n    dsBeleg2EmailText.SetParentComponent(dsBeleg2);\r\n    dsBeleg2EmailText.Name := 'dsBeleg2EmailText';\r\n    dsBeleg2EmailText.FieldName := 'EmailText';\r\n    dsBeleg2EmailText.Size := 255;\r\n    dsBeleg2Auftragerledigt.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Auftragerledigt.Name := 'dsBeleg2Auftragerledigt';\r\n    dsBeleg2Auftragerledigt.FieldName := 'Auftragerledigt';\r\n    dsBeleg2Rabattstufe.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Rabattstufe.Name := 'dsBeleg2Rabattstufe';\r\n    dsBeleg2Rabattstufe.FieldName := 'Rabattstufe';\r\n    dsBeleg2Rabattstufe.Size := 15;\r\n    dsBeleg2KFZKennzeichen.SetParentComponent(dsBeleg2);\r\n    dsBeleg2KFZKennzeichen.Name := 'dsBeleg2KFZKennzeichen';\r\n    dsBeleg2KFZKennzeichen.FieldName := 'KFZKennzeichen';\r\n    dsBeleg2KFZKennzeichen.Size := 13;\r\n    dsBeleg2Fahrgestellnummer.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Fahrgestellnummer.Name := 'dsBeleg2Fahrgestellnummer';\r\n    dsBeleg2Fahrgestellnummer.FieldName := 'Fahrgestellnummer';\r\n    dsBeleg2KFZHersteller.SetParentComponent(dsBeleg2);\r\n    dsBeleg2KFZHersteller.Name := 'dsBeleg2KFZHersteller';\r\n    dsBeleg2KFZHersteller.FieldName := 'KFZHersteller';\r\n    dsBeleg2Erstzulassungsdatum.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Erstzulassungsdatum.Name := 'dsBeleg2Erstzulassungsdatum';\r\n    dsBeleg2Erstzulassungsdatum.FieldName := 'Erstzulassungsdatum';\r\n    dsBeleg2KMStand.SetParentComponent(dsBeleg2);\r\n    dsBeleg2KMStand.Name := 'dsBeleg2KMStand';\r\n    dsBeleg2KMStand.FieldName := 'KMStand';\r\n    dsBeleg2KMStand.Size := 6;\r\n    dsBeleg2KFZType.SetParentComponent(dsBeleg2);\r\n    dsBeleg2KFZType.Name := 'dsBeleg2KFZType';\r\n    dsBeleg2KFZType.FieldName := 'KFZType';\r\n    dsBeleg2KFZType.Size := 25;\r\n    dsBeleg2Inspektionsdatum.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Inspektionsdatum.Name := 'dsBeleg2Inspektionsdatum';\r\n    dsBeleg2Inspektionsdatum.FieldName := 'Inspektionsdatum';\r\n    dsBeleg2Debitorennummer.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Debitorennummer.Name := 'dsBeleg2Debitorennummer';\r\n    dsBeleg2Debitorennummer.FieldName := 'Debitorennummer';\r\n    dsBeleg2Debitorennummer.Size := 13;\r\n    dsBeleg2Kostentraeger.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Kostentraeger.Name := 'dsBeleg2Kostentraeger';\r\n    dsBeleg2Kostentraeger.FieldName := 'Kostentraeger';\r\n    dsBeleg2Kostentraeger.Size := 13;\r\n    dsBeleg2Rabattsatz.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Rabattsatz.Name := 'dsBeleg2Rabattsatz';\r\n    dsBeleg2Rabattsatz.FieldName := 'Rabattsatz';\r\n    dsBeleg2ObjektReferenz.SetParentComponent(dsBeleg2);\r\n    dsBeleg2ObjektReferenz.Name := 'dsBeleg2ObjektReferenz';\r\n    dsBeleg2ObjektReferenz.FieldName := 'ObjektReferenz';\r\n    dsBeleg2ObjektReferenz.Size := 13;\r\n    dsBeleg2Bank.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Bank.Name := 'dsBeleg2Bank';\r\n    dsBeleg2Bank.FieldName := 'Bank';\r\n    dsBeleg2Bank.Size := 50;\r\n    dsBeleg2Bankleitzahl.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Bankleitzahl.Name := 'dsBeleg2Bankleitzahl';\r\n    dsBeleg2Bankleitzahl.FieldName := 'Bankleitzahl';\r\n    dsBeleg2Kontonummer.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Kontonummer.Name := 'dsBeleg2Kontonummer';\r\n    dsBeleg2Kontonummer.FieldName := 'Kontonummer';\r\n    dsBeleg2Kontonummer.Size := 50;\r\n    dsBeleg2Kontoinhaber.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Kontoinhaber.Name := 'dsBeleg2Kontoinhaber';\r\n    dsBeleg2Kontoinhaber.FieldName := 'Kontoinhaber';\r\n    dsBeleg2Kontoinhaber.Size := 50;\r\n    dsBeleg2Telefaxnummer.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Telefaxnummer.Name := 'dsBeleg2Telefaxnummer';\r\n    dsBeleg2Telefaxnummer.FieldName := 'Telefaxnummer';\r\n    dsBeleg2Telefaxnummer.Size := 25;\r\n    dsBeleg2DatumNeu.SetParentComponent(dsBeleg2);\r\n    dsBeleg2DatumNeu.Name := 'dsBeleg2DatumNeu';\r\n    dsBeleg2DatumNeu.FieldName := 'DatumNeu';\r\n    dsBeleg2Datumgeaendert.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Datumgeaendert.Name := 'dsBeleg2Datumgeaendert';\r\n    dsBeleg2Datumgeaendert.FieldName := 'Datumgeaendert';\r\n    dsBeleg2Objektnummer.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Objektnummer.Name := 'dsBeleg2Objektnummer';\r\n    dsBeleg2Objektnummer.FieldName := 'Objektnummer';\r\n    dsBeleg2Objektnummer.Size := 25;\r\n    dsBeleg2Liefertermin.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Liefertermin.Name := 'dsBeleg2Liefertermin';\r\n    dsBeleg2Liefertermin.FieldName := 'Liefertermin';\r\n    dsBeleg2Liefertermin.Size := 50;\r\n    dsBeleg2Emailversand.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Emailversand.Name := 'dsBeleg2Emailversand';\r\n    dsBeleg2Emailversand.FieldName := 'Emailversand';\r\n    dsBeleg2Telefonnummer.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Telefonnummer.Name := 'dsBeleg2Telefonnummer';\r\n    dsBeleg2Telefonnummer.FieldName := 'Telefonnummer';\r\n    dsBeleg2Telefonnummer.Size := 35;\r\n    dsBeleg2MobilTelefon.SetParentComponent(dsBeleg2);\r\n    dsBeleg2MobilTelefon.Name := 'dsBeleg2MobilTelefon';\r\n    dsBeleg2MobilTelefon.FieldName := 'MobilTelefon';\r\n    dsBeleg2MobilTelefon.Size := 25;\r\n    dsBeleg2AuftragFax.SetParentComponent(dsBeleg2);\r\n    dsBeleg2AuftragFax.Name := 'dsBeleg2AuftragFax';\r\n    dsBeleg2AuftragFax.FieldName := 'AuftragFax';\r\n    dsBeleg2REDatum.SetParentComponent(dsBeleg2);\r\n    dsBeleg2REDatum.Name := 'dsBeleg2REDatum';\r\n    dsBeleg2REDatum.FieldName := 'REDatum';\r\n    dsBeleg2BenutzerNeu.SetParentComponent(dsBeleg2);\r\n    dsBeleg2BenutzerNeu.Name := 'dsBeleg2BenutzerNeu';\r\n    dsBeleg2BenutzerNeu.FieldName := 'BenutzerNeu';\r\n    dsBeleg2BenutzerNeu.Size := 50;\r\n    dsBeleg2BenutzerGeaendert.SetParentComponent(dsBeleg2);\r\n    dsBeleg2BenutzerGeaendert.Name := 'dsBeleg2BenutzerGeaendert';\r\n    dsBeleg2BenutzerGeaendert.FieldName := 'BenutzerGeaendert';\r\n    dsBeleg2BenutzerGeaendert.Size := 50;\r\n    dsBeleg2BerechnungBrutto.SetParentComponent(dsBeleg2);\r\n    dsBeleg2BerechnungBrutto.Name := 'dsBeleg2BerechnungBrutto';\r\n    dsBeleg2BerechnungBrutto.FieldName := 'BerechnungBrutto';\r\n    dsBeleg2Bruttosumme01.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Bruttosumme01.Name := 'dsBeleg2Bruttosumme01';\r\n    dsBeleg2Bruttosumme01.FieldName := 'Bruttosumme01';\r\n    dsBeleg2Bruttosumme02.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Bruttosumme02.Name := 'dsBeleg2Bruttosumme02';\r\n    dsBeleg2Bruttosumme02.FieldName := 'Bruttosumme02';\r\n    dsBeleg2Bruttosumme03.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Bruttosumme03.Name := 'dsBeleg2Bruttosumme03';\r\n    dsBeleg2Bruttosumme03.FieldName := 'Bruttosumme03';\r\n    dsBeleg2Notiz.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Notiz.Name := 'dsBeleg2Notiz';\r\n    dsBeleg2Notiz.FieldName := 'Notiz';\r\n    dsBeleg2Notiz.Size := 255;\r\n    dsBeleg2MargeProzent.SetParentComponent(dsBeleg2);\r\n    dsBeleg2MargeProzent.Name := 'dsBeleg2MargeProzent';\r\n    dsBeleg2MargeProzent.FieldName := 'MargeProzent';\r\n    dsBeleg2Warenkreditgesperrt.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Warenkreditgesperrt.Name := 'dsBeleg2Warenkreditgesperrt';\r\n    dsBeleg2Warenkreditgesperrt.FieldName := 'Warenkreditgesperrt';\r\n    dsBeleg2Belegsprache.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Belegsprache.Name := 'dsBeleg2Belegsprache';\r\n    dsBeleg2Belegsprache.FieldName := 'Belegsprache';\r\n    dsBeleg2Belegsprache.Size := 10;\r\n    dsBeleg2Duplicate.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Duplicate.Name := 'dsBeleg2Duplicate';\r\n    dsBeleg2Duplicate.FieldName := 'Duplicate';\r\n    dsBeleg2perEmail.SetParentComponent(dsBeleg2);\r\n    dsBeleg2perEmail.Name := 'dsBeleg2perEmail';\r\n    dsBeleg2perEmail.FieldName := 'perEmail';\r\n    dsBeleg2Ansprechpartner.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Ansprechpartner.Name := 'dsBeleg2Ansprechpartner';\r\n    dsBeleg2Ansprechpartner.FieldName := 'Ansprechpartner';\r\n    dsBeleg2Ansprechpartner.Size := 105;\r\n    dsBeleg2KundennummerFremd.SetParentComponent(dsBeleg2);\r\n    dsBeleg2KundennummerFremd.Name := 'dsBeleg2KundennummerFremd';\r\n    dsBeleg2KundennummerFremd.FieldName := 'KundennummerFremd';\r\n    dsBeleg2Protokoll.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Protokoll.Name := 'dsBeleg2Protokoll';\r\n    dsBeleg2Protokoll.FieldName := 'Protokoll';\r\n    dsBeleg2Protokoll.Size := 255;\r\n    dsBeleg2Verleihauftrag.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Verleihauftrag.Name := 'dsBeleg2Verleihauftrag';\r\n    dsBeleg2Verleihauftrag.FieldName := 'Verleihauftrag';\r\n    dsBeleg2VerleihVon.SetParentComponent(dsBeleg2);\r\n    dsBeleg2VerleihVon.Name := 'dsBeleg2VerleihVon';\r\n    dsBeleg2VerleihVon.FieldName := 'VerleihVon';\r\n    dsBeleg2VerleihBis.SetParentComponent(dsBeleg2);\r\n    dsBeleg2VerleihBis.Name := 'dsBeleg2VerleihBis';\r\n    dsBeleg2VerleihBis.FieldName := 'VerleihBis';\r\n    dsBeleg2AuftragGenehmigt.SetParentComponent(dsBeleg2);\r\n    dsBeleg2AuftragGenehmigt.Name := 'dsBeleg2AuftragGenehmigt';\r\n    dsBeleg2AuftragGenehmigt.FieldName := 'AuftragGenehmigt';\r\n    dsBeleg2gesperrt.SetParentComponent(dsBeleg2);\r\n    dsBeleg2gesperrt.Name := 'dsBeleg2gesperrt';\r\n    dsBeleg2gesperrt.FieldName := 'gesperrt';\r\n    dsBeleg2VerleihvonText.SetParentComponent(dsBeleg2);\r\n    dsBeleg2VerleihvonText.Name := 'dsBeleg2VerleihvonText';\r\n    dsBeleg2VerleihvonText.FieldName := 'VerleihvonText';\r\n    dsBeleg2VerleihvonText.Size := 50;\r\n    dsBeleg2VerleihbisText.SetParentComponent(dsBeleg2);\r\n    dsBeleg2VerleihbisText.Name := 'dsBeleg2VerleihbisText';\r\n    dsBeleg2VerleihbisText.FieldName := 'VerleihbisText';\r\n    dsBeleg2VerleihbisText.Size := 50;\r\n    dsBeleg2DruckWHG.SetParentComponent(dsBeleg2);\r\n    dsBeleg2DruckWHG.Name := 'dsBeleg2DruckWHG';\r\n    dsBeleg2DruckWHG.FieldName := 'DruckWHG';\r\n    dsBeleg2DruckWHG.Size := 3;\r\n    dsBeleg2DruckWHGKurs.SetParentComponent(dsBeleg2);\r\n    dsBeleg2DruckWHGKurs.Name := 'dsBeleg2DruckWHGKurs';\r\n    dsBeleg2DruckWHGKurs.FieldName := 'DruckWHGKurs';\r\n    dsBeleg2ProzentsatzZusatzposition.SetParentComponent(dsBeleg2);\r\n    dsBeleg2ProzentsatzZusatzposition.Name := 'dsBeleg2ProzentsatzZusatzposition';\r\n    dsBeleg2ProzentsatzZusatzposition.FieldName := 'ProzentsatzZusatzposition';\r\n    dsBeleg2TextZusatzposition.SetParentComponent(dsBeleg2);\r\n    dsBeleg2TextZusatzposition.Name := 'dsBeleg2TextZusatzposition';\r\n    dsBeleg2TextZusatzposition.FieldName := 'TextZusatzposition';\r\n    dsBeleg2TextZusatzposition.Size := 255;\r\n    dsBeleg2TextzusatzBeschreibung.SetParentComponent(dsBeleg2);\r\n    dsBeleg2TextzusatzBeschreibung.Name := 'dsBeleg2TextzusatzBeschreibung';\r\n    dsBeleg2TextzusatzBeschreibung.FieldName := 'TextzusatzBeschreibung';\r\n    dsBeleg2TextzusatzBeschreibung.Size := 50;\r\n    dsBeleg2Layoutname.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Layoutname.Name := 'dsBeleg2Layoutname';\r\n    dsBeleg2Layoutname.FieldName := 'Layoutname';\r\n    dsBeleg2Layoutname.Size := 50;\r\n    dsBeleg2Gesamtgewicht.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Gesamtgewicht.Name := 'dsBeleg2Gesamtgewicht';\r\n    dsBeleg2Gesamtgewicht.FieldName := 'Gesamtgewicht';\r\n    dsBeleg2BetragZusatzposition.SetParentComponent(dsBeleg2);\r\n    dsBeleg2BetragZusatzposition.Name := 'dsBeleg2BetragZusatzposition';\r\n    dsBeleg2BetragZusatzposition.FieldName := 'BetragZusatzposition';\r\n    dsBeleg2ReferenzBestellung.SetParentComponent(dsBeleg2);\r\n    dsBeleg2ReferenzBestellung.Name := 'dsBeleg2ReferenzBestellung';\r\n    dsBeleg2ReferenzBestellung.FieldName := 'ReferenzBestellung';\r\n    dsBeleg2ReferenzBestellung.Size := 10;\r\n    dsBeleg2Termin1.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Termin1.Name := 'dsBeleg2Termin1';\r\n    dsBeleg2Termin1.FieldName := 'Termin1';\r\n    dsBeleg2Termin2.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Termin2.Name := 'dsBeleg2Termin2';\r\n    dsBeleg2Termin2.FieldName := 'Termin2';\r\n    dsBeleg2Zielkontaktnummer.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Zielkontaktnummer.Name := 'dsBeleg2Zielkontaktnummer';\r\n    dsBeleg2Zielkontaktnummer.FieldName := 'Zielkontaktnummer';\r\n    dsBeleg2Zielkontaktnummer.Size := 13;\r\n    dsBeleg2Zielkontaktname.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Zielkontaktname.Name := 'dsBeleg2Zielkontaktname';\r\n    dsBeleg2Zielkontaktname.FieldName := 'Zielkontaktname';\r\n    dsBeleg2Zielkontaktname.Size := 40;\r\n    dsBeleg2Bilddatei1.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Bilddatei1.Name := 'dsBeleg2Bilddatei1';\r\n    dsBeleg2Bilddatei1.FieldName := 'Bilddatei1';\r\n    dsBeleg2Bilddatei1.Size := 255;\r\n    dsBeleg2Bilddatei2.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Bilddatei2.Name := 'dsBeleg2Bilddatei2';\r\n    dsBeleg2Bilddatei2.FieldName := 'Bilddatei2';\r\n    dsBeleg2Bilddatei2.Size := 255;\r\n    dsBeleg2Zielkontaktnummer2.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Zielkontaktnummer2.Name := 'dsBeleg2Zielkontaktnummer2';\r\n    dsBeleg2Zielkontaktnummer2.FieldName := 'Zielkontaktnummer2';\r\n    dsBeleg2Zielkontaktnummer2.Size := 13;\r\n    dsBeleg2Zielkontaktname2.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Zielkontaktname2.Name := 'dsBeleg2Zielkontaktname2';\r\n    dsBeleg2Zielkontaktname2.FieldName := 'Zielkontaktname2';\r\n    dsBeleg2Zielkontaktname2.Size := 40;\r\n    dsBeleg2bestaetigt.SetParentComponent(dsBeleg2);\r\n    dsBeleg2bestaetigt.Name := 'dsBeleg2bestaetigt';\r\n    dsBeleg2bestaetigt.FieldName := 'bestaetigt';\r\n    dsBeleg2Zielkontaktnummer3.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Zielkontaktnummer3.Name := 'dsBeleg2Zielkontaktnummer3';\r\n    dsBeleg2Zielkontaktnummer3.FieldName := 'Zielkontaktnummer3';\r\n    dsBeleg2Zielkontaktnummer3.Size := 13;\r\n    dsBeleg2Zielkontaktname3.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Zielkontaktname3.Name := 'dsBeleg2Zielkontaktname3';\r\n    dsBeleg2Zielkontaktname3.FieldName := 'Zielkontaktname3';\r\n    dsBeleg2Zielkontaktname3.Size := 40;\r\n    dsBeleg2Termin3.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Termin3.Name := 'dsBeleg2Termin3';\r\n    dsBeleg2Termin3.FieldName := 'Termin3';\r\n    dsBeleg2Termin4.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Termin4.Name := 'dsBeleg2Termin4';\r\n    dsBeleg2Termin4.FieldName := 'Termin4';\r\n    dsBeleg2Muster.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Muster.Name := 'dsBeleg2Muster';\r\n    dsBeleg2Muster.FieldName := 'Muster';\r\n    dsBeleg2KW.SetParentComponent(dsBeleg2);\r\n    dsBeleg2KW.Name := 'dsBeleg2KW';\r\n    dsBeleg2KW.FieldName := 'KW';\r\n    dsBeleg2Datenlink.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Datenlink.Name := 'dsBeleg2Datenlink';\r\n    dsBeleg2Datenlink.FieldName := 'Datenlink';\r\n    dsBeleg2Datenlink.Size := 255;\r\n    dsBeleg2Mehrwertsteuersatz4.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Mehrwertsteuersatz4.Name := 'dsBeleg2Mehrwertsteuersatz4';\r\n    dsBeleg2Mehrwertsteuersatz4.FieldName := 'Mehrwertsteuersatz4';\r\n    dsBeleg2Mehrwertsteuersatz5.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Mehrwertsteuersatz5.Name := 'dsBeleg2Mehrwertsteuersatz5';\r\n    dsBeleg2Mehrwertsteuersatz5.FieldName := 'Mehrwertsteuersatz5';\r\n    dsBeleg2Mehrwertsteuersatz6.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Mehrwertsteuersatz6.Name := 'dsBeleg2Mehrwertsteuersatz6';\r\n    dsBeleg2Mehrwertsteuersatz6.FieldName := 'Mehrwertsteuersatz6';\r\n    dsBeleg2BesteuerungKey.SetParentComponent(dsBeleg2);\r\n    dsBeleg2BesteuerungKey.Name := 'dsBeleg2BesteuerungKey';\r\n    dsBeleg2BesteuerungKey.FieldName := 'BesteuerungKey';\r\n    dsBeleg2VertreterMatchcode.SetParentComponent(dsBeleg2);\r\n    dsBeleg2VertreterMatchcode.Name := 'dsBeleg2VertreterMatchcode';\r\n    dsBeleg2VertreterMatchcode.FieldName := 'VertreterMatchcode';\r\n    dsBeleg2VertreterMatchcode.Size := 50;\r\n    dsBeleg2Verfasser.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Verfasser.Name := 'dsBeleg2Verfasser';\r\n    dsBeleg2Verfasser.FieldName := 'Verfasser';\r\n    dsBeleg2Verfasser.Size := 10;\r\n    dsBeleg2LieferadresseID.SetParentComponent(dsBeleg2);\r\n    dsBeleg2LieferadresseID.Name := 'dsBeleg2LieferadresseID';\r\n    dsBeleg2LieferadresseID.FieldName := 'LieferadresseID';\r\n    dsBeleg2AuftragStatus.SetParentComponent(dsBeleg2);\r\n    dsBeleg2AuftragStatus.Name := 'dsBeleg2AuftragStatus';\r\n    dsBeleg2AuftragStatus.FieldName := 'AuftragStatus';\r\n    dsBeleg2AuftragStatus.Size := 30;\r\n    dsBeleg2MonatJahr.SetParentComponent(dsBeleg2);\r\n    dsBeleg2MonatJahr.Name := 'dsBeleg2MonatJahr';\r\n    dsBeleg2MonatJahr.FieldName := 'MonatJahr';\r\n    dsBeleg2Belegvariante.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Belegvariante.Name := 'dsBeleg2Belegvariante';\r\n    dsBeleg2Belegvariante.FieldName := 'Belegvariante';\r\n    dsBeleg2Belegvariante.Size := 25;\r\n    dsBeleg2Produktionsfreigabe.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Produktionsfreigabe.Name := 'dsBeleg2Produktionsfreigabe';\r\n    dsBeleg2Produktionsfreigabe.FieldName := 'Produktionsfreigabe';\r\n    dsBeleg2ReferenzRahmenAuftrag.SetParentComponent(dsBeleg2);\r\n    dsBeleg2ReferenzRahmenAuftrag.Name := 'dsBeleg2ReferenzRahmenAuftrag';\r\n    dsBeleg2ReferenzRahmenAuftrag.FieldName := 'ReferenzRahmenAuftrag';\r\n    dsBeleg2ReferenzRahmenAuftrag.Size := 10;\r\n    dsBeleg2DatumRahmenAuftrag.SetParentComponent(dsBeleg2);\r\n    dsBeleg2DatumRahmenAuftrag.Name := 'dsBeleg2DatumRahmenAuftrag';\r\n    dsBeleg2DatumRahmenAuftrag.FieldName := 'DatumRahmenAuftrag';\r\n    dsBeleg2FahrzeugID.SetParentComponent(dsBeleg2);\r\n    dsBeleg2FahrzeugID.Name := 'dsBeleg2FahrzeugID';\r\n    dsBeleg2FahrzeugID.FieldName := 'FahrzeugID';\r\n    dsBeleg2AuslieferungKW.SetParentComponent(dsBeleg2);\r\n    dsBeleg2AuslieferungKW.Name := 'dsBeleg2AuslieferungKW';\r\n    dsBeleg2AuslieferungKW.FieldName := 'AuslieferungKW';\r\n    dsBeleg2AuslieferungKW.Size := 25;\r\n    dsBeleg2BereitstellungDatum.SetParentComponent(dsBeleg2);\r\n    dsBeleg2BereitstellungDatum.Name := 'dsBeleg2BereitstellungDatum';\r\n    dsBeleg2BereitstellungDatum.FieldName := 'BereitstellungDatum';\r\n    dsBeleg2VTUID.SetParentComponent(dsBeleg2);\r\n    dsBeleg2VTUID.Name := 'dsBeleg2VTUID';\r\n    dsBeleg2VTUID.FieldName := 'VTUID';\r\n    dsBeleg2VTUID.Size := 38;\r\n    dsBeleg2LieferanschriftDaten.SetParentComponent(dsBeleg2);\r\n    dsBeleg2LieferanschriftDaten.Name := 'dsBeleg2LieferanschriftDaten';\r\n    dsBeleg2LieferanschriftDaten.FieldName := 'LieferanschriftDaten';\r\n    dsBeleg2LieferanschriftDaten.Size := 255;\r\n    dsBeleg2GesamtVolumen.SetParentComponent(dsBeleg2);\r\n    dsBeleg2GesamtVolumen.Name := 'dsBeleg2GesamtVolumen';\r\n    dsBeleg2GesamtVolumen.FieldName := 'GesamtVolumen';\r\n    dsBeleg2BelegPKey.SetParentComponent(dsBeleg2);\r\n    dsBeleg2BelegPKey.Name := 'dsBeleg2BelegPKey';\r\n    dsBeleg2BelegPKey.FieldName := 'BelegPKey';\r\n    dsBeleg2DruckParameter.SetParentComponent(dsBeleg2);\r\n    dsBeleg2DruckParameter.Name := 'dsBeleg2DruckParameter';\r\n    dsBeleg2DruckParameter.FieldName := 'DruckParameter';\r\n    dsBeleg2DruckParameter.Size := 255;\r\n    dsBeleg2ReferenzService.SetParentComponent(dsBeleg2);\r\n    dsBeleg2ReferenzService.Name := 'dsBeleg2ReferenzService';\r\n    dsBeleg2ReferenzService.FieldName := 'ReferenzService';\r\n    dsBeleg2ReferenzService.Size := 10;\r\n    dsBeleg2ZusatzDaten.SetParentComponent(dsBeleg2);\r\n    dsBeleg2ZusatzDaten.Name := 'dsBeleg2ZusatzDaten';\r\n    dsBeleg2ZusatzDaten.FieldName := 'ZusatzDaten';\r\n    dsBeleg2ZusatzDaten.Size := 255;\r\n    dsBeleg2StandPDF.SetParentComponent(dsBeleg2);\r\n    dsBeleg2StandPDF.Name := 'dsBeleg2StandPDF';\r\n    dsBeleg2StandPDF.FieldName := 'StandPDF';\r\n    dsBeleg2StandPDF.Size := 255;\r\n    dsBeleg2Paketdienst.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Paketdienst.Name := 'dsBeleg2Paketdienst';\r\n    dsBeleg2Paketdienst.FieldName := 'Paketdienst';\r\n    dsBeleg2Paketdienst.Size := 30;\r\n    dsBeleg2Monteur.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Monteur.Name := 'dsBeleg2Monteur';\r\n    dsBeleg2Monteur.FieldName := 'Monteur';\r\n    dsBeleg2KundennummerKundennummer.SetParentComponent(dsBeleg2);\r\n    dsBeleg2KundennummerKundennummer.Name := 'dsBeleg2KundennummerKundennummer';\r\n    dsBeleg2KundennummerKundennummer.FieldName := 'Kundennummer.Kundennummer';\r\n    dsBeleg2KundennummerKundennummer.Size := 13;\r\n    dsBeleg2ServiceBemerkung.SetParentComponent(dsBeleg2);\r\n    dsBeleg2ServiceBemerkung.Name := 'dsBeleg2ServiceBemerkung';\r\n    dsBeleg2ServiceBemerkung.FieldName := 'ServiceBemerkung';\r\n    dsBeleg2ServiceBemerkung.Size := 255;\r\n  finally\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    btnPosAbbrechen.AfterLoadDFMValues;\r\n    btnPosSpeichern.AfterLoadDFMValues;\r\n    btnPositionLoeschen.AfterLoadDFMValues;\r\n    edtPosNr.AfterLoadDFMValues;\r\n    edtPosUNr.AfterLoadDFMValues;\r\n    edtArtikelueberschrift.AfterLoadDFMValues;\r\n    edtMenge.AfterLoadDFMValues;\r\n    btnArtikelnummer.AfterLoadDFMValues;\r\n    edtArbeitszeitDatum.AfterLoadDFMValues;\r\n    edtArbeitszeitVON.AfterLoadDFMValues;\r\n    edtArbeitszeitBIS.AfterLoadDFMValues;\r\n    edtArtikelbeschreibung.AfterLoadDFMValues;\r\n    PosComboMonteur.AfterLoadDFMValues;\r\n    edtMengenart.AfterLoadDFMValues;\r\n    btnNeuePosition.AfterLoadDFMValues;\r\n    WTCPosition.AfterLoadDFMValues;\r\n    xdsPosition.AfterLoadDFMValues;\r\n    xdsPositionID.AfterLoadDFMValues;\r\n    xdsPositionPosNr.AfterLoadDFMValues;\r\n    xdsPositionPosUNr.AfterLoadDFMValues;\r\n    xdsPositionArtikelueberschrift.AfterLoadDFMValues;\r\n    xdsPositionArtikelbeschreibung.AfterLoadDFMValues;\r\n    xdsPositionMenge.AfterLoadDFMValues;\r\n    xdsPositionArtderMenge.AfterLoadDFMValues;\r\n    xdsPositionVerkaufspreis.AfterLoadDFMValues;\r\n    xdsPositionEinkaufspreis.AfterLoadDFMValues;\r\n    xdsPositionArtikelnummer.AfterLoadDFMValues;\r\n    xdsPositionMonteurP.AfterLoadDFMValues;\r\n    xdsPositionArbeitszeitDatum.AfterLoadDFMValues;\r\n    xdsPositionArbeitszeitVON.AfterLoadDFMValues;\r\n    xdsPositionArbeitszeitBIS.AfterLoadDFMValues;\r\n    xdsPositionSumme.AfterLoadDFMValues;\r\n    xdsPositionSeriennummer.AfterLoadDFMValues;\r\n    xdsPositionWarengruppe.AfterLoadDFMValues;\r\n    xdsPositionWarenuntergruppe.AfterLoadDFMValues;\r\n    xdsPositionArtikelnummerKunde.AfterLoadDFMValues;\r\n    xdsPositionLieferant.AfterLoadDFMValues;\r\n    xdsPositionGewicht.AfterLoadDFMValues;\r\n    xdsPositionLaenge.AfterLoadDFMValues;\r\n    xdsPositionBreite.AfterLoadDFMValues;\r\n    xdsPositionHoehe.AfterLoadDFMValues;\r\n    xdsPositionMehrwertsteuersatz.AfterLoadDFMValues;\r\n    xdsPositionEndpreis.AfterLoadDFMValues;\r\n    xdsPositionPosMWST.AfterLoadDFMValues;\r\n    xdsPositionBruttoEndpreis.AfterLoadDFMValues;\r\n    xdsPositionEndpreis_EK.AfterLoadDFMValues;\r\n    xdsPositionRabattsatz.AfterLoadDFMValues;\r\n    xdsPositionPreisvorRabatt.AfterLoadDFMValues;\r\n    xdsPositionPKZ.AfterLoadDFMValues;\r\n    xdsPositionTextfrei10.AfterLoadDFMValues;\r\n    xdsPositionTextfrei20.AfterLoadDFMValues;\r\n    xdsPositionProduktionAbgeschlossen.AfterLoadDFMValues;\r\n    xdsPositionEinzelpreisBrutto.AfterLoadDFMValues;\r\n    xdsPositionPosMarge.AfterLoadDFMValues;\r\n    xdsPositionPosMargeProzent.AfterLoadDFMValues;\r\n    xdsPositionBereitsGeliefert.AfterLoadDFMValues;\r\n    xdsPositionausliefern.AfterLoadDFMValues;\r\n    xdsPositionBestellungErledigt.AfterLoadDFMValues;\r\n    xdsPositionLager.AfterLoadDFMValues;\r\n    xdsPositionbestellen.AfterLoadDFMValues;\r\n    xdsPositionWarenbestand.AfterLoadDFMValues;\r\n    xdsPositionArtikelbeschreibungRTF.AfterLoadDFMValues;\r\n    xdsPositionQuellartikel.AfterLoadDFMValues;\r\n    xdsPositionArtikelnummerWB.AfterLoadDFMValues;\r\n    xdsPositionPreisanteilNetto.AfterLoadDFMValues;\r\n    xdsPositionSetHPos.AfterLoadDFMValues;\r\n    xdsPositionSetUPos.AfterLoadDFMValues;\r\n    xdsPositionProvisionssatz.AfterLoadDFMValues;\r\n    xdsPositionProvisionsbetrag.AfterLoadDFMValues;\r\n    xdsPositionArtikelsprache.AfterLoadDFMValues;\r\n    xdsPositionEKvom.AfterLoadDFMValues;\r\n    xdsPositionMengenberechnungID.AfterLoadDFMValues;\r\n    xdsPositionTaraID.AfterLoadDFMValues;\r\n    xdsPositionTara.AfterLoadDFMValues;\r\n    xdsPositionBruttoGewicht.AfterLoadDFMValues;\r\n    xdsPositionAussenflaeche.AfterLoadDFMValues;\r\n    xdsPositionLadeort.AfterLoadDFMValues;\r\n    xdsPositionSeitenumbruch.AfterLoadDFMValues;\r\n    xdsPositionPlanerFarbe.AfterLoadDFMValues;\r\n    xdsPositionMWStKey.AfterLoadDFMValues;\r\n    xdsPositionZSnachPos.AfterLoadDFMValues;\r\n    xdsPositionLieferzeit.AfterLoadDFMValues;\r\n    xdsPositionPreisVorRabattWHG.AfterLoadDFMValues;\r\n    xdsPositionReferenzKalkulation.AfterLoadDFMValues;\r\n    xdsPositionPKey.AfterLoadDFMValues;\r\n    xdsPositionAuftragsnummer.AfterLoadDFMValues;\r\n    xdsPositionlwbID.AfterLoadDFMValues;\r\n    xdsPositionBelegdatum.AfterLoadDFMValues;\r\n    xdsPositionWarenkontrollnummern.AfterLoadDFMValues;\r\n    xdsPositionVolumen.AfterLoadDFMValues;\r\n    xdsPositionPosVolumen.AfterLoadDFMValues;\r\n    xdsPositionArtikelAttribute.AfterLoadDFMValues;\r\n    xdsPositionNummerkomplett.AfterLoadDFMValues;\r\n    sourcePosition.AfterLoadDFMValues;\r\n    dsArtikel.AfterLoadDFMValues;\r\n    dsArtikelHersteller.AfterLoadDFMValues;\r\n    dsArtikelArtderMenge.AfterLoadDFMValues;\r\n    dsArtikelPfandArt.AfterLoadDFMValues;\r\n    dsArtikelWarengruppe.AfterLoadDFMValues;\r\n    dsArtikelWarenuntergruppe.AfterLoadDFMValues;\r\n    dsArtikelArtikelnummer.AfterLoadDFMValues;\r\n    dsArtikelArtikelueberschrift.AfterLoadDFMValues;\r\n    dsArtikelArtikelbeschreibung.AfterLoadDFMValues;\r\n    dsArtikelVerkaufspreis.AfterLoadDFMValues;\r\n    dsArtikelMindestbestand.AfterLoadDFMValues;\r\n    dsArtikelPreisliste.AfterLoadDFMValues;\r\n    dsArtikelGewicht.AfterLoadDFMValues;\r\n    dsArtikelLaenge.AfterLoadDFMValues;\r\n    dsArtikelBreite.AfterLoadDFMValues;\r\n    dsArtikelHoehe.AfterLoadDFMValues;\r\n    dsArtikelArtikelZusatz.AfterLoadDFMValues;\r\n    dsArtikelLagerort.AfterLoadDFMValues;\r\n    dsArtikelBuchungskonto.AfterLoadDFMValues;\r\n    dsArtikelEingangMenge.AfterLoadDFMValues;\r\n    dsArtikelEingangEndpreis.AfterLoadDFMValues;\r\n    dsArtikelAusgangMenge.AfterLoadDFMValues;\r\n    dsArtikelAusgangEndpreisEK.AfterLoadDFMValues;\r\n    dsArtikelAusgangEndpreisVK.AfterLoadDFMValues;\r\n    dsArtikelBestand.AfterLoadDFMValues;\r\n    dsArtikelBestandswert.AfterLoadDFMValues;\r\n    dsArtikelMarge.AfterLoadDFMValues;\r\n    dsArtikelMargeProzent.AfterLoadDFMValues;\r\n    dsArtikelArtikelnummer2.AfterLoadDFMValues;\r\n    dsArtikelArtikelmatchcode.AfterLoadDFMValues;\r\n    dsArtikelRabattpreis1.AfterLoadDFMValues;\r\n    dsArtikelRabattpreis2.AfterLoadDFMValues;\r\n    dsArtikelRabattpreis3.AfterLoadDFMValues;\r\n    dsArtikelRabattpreis4.AfterLoadDFMValues;\r\n    dsArtikelRabattpreis5.AfterLoadDFMValues;\r\n    dsArtikelArtikelnichtmehrgueltig.AfterLoadDFMValues;\r\n    dsArtikelEinkaufspreis.AfterLoadDFMValues;\r\n    dsArtikelAufschlag.AfterLoadDFMValues;\r\n    dsArtikelWarenbestand.AfterLoadDFMValues;\r\n    dsArtikelTextfrei10.AfterLoadDFMValues;\r\n    dsArtikelTextfrei20.AfterLoadDFMValues;\r\n    dsArtikelArtikelbeschreibungRTF.AfterLoadDFMValues;\r\n    dsArtikelArtikeldatei1.AfterLoadDFMValues;\r\n    dsArtikelArtikeldatei2.AfterLoadDFMValues;\r\n    dsArtikelArtikeldatei3.AfterLoadDFMValues;\r\n    dsArtikelArtikeldatei4.AfterLoadDFMValues;\r\n    dsArtikelArtikeldatei5.AfterLoadDFMValues;\r\n    dsArtikelEinkaufspreisVom.AfterLoadDFMValues;\r\n    dsArtikelEAN.AfterLoadDFMValues;\r\n    dsArtikelVGPFaktor.AfterLoadDFMValues;\r\n    dsArtikelVGPMengenart.AfterLoadDFMValues;\r\n    dsArtikelVerleihpreis.AfterLoadDFMValues;\r\n    dsArtikelZusatzPreis.AfterLoadDFMValues;\r\n    dsArtikelVerpackungsart.AfterLoadDFMValues;\r\n    dsArtikelVerpackungsMenge.AfterLoadDFMValues;\r\n    dsArtikelQuellartikel.AfterLoadDFMValues;\r\n    dsArtikelrabattierfaehig.AfterLoadDFMValues;\r\n    dsArtikelAngebotAlternativeAN.AfterLoadDFMValues;\r\n    dsArtikelPreisanteilNetto.AfterLoadDFMValues;\r\n    dsArtikelFarbe.AfterLoadDFMValues;\r\n    dsArtikelAEinkauf.AfterLoadDFMValues;\r\n    dsArtikelAVerkauf.AfterLoadDFMValues;\r\n    dsArtikelArtikelnummerLieferant.AfterLoadDFMValues;\r\n    dsArtikelLieferantnummer.AfterLoadDFMValues;\r\n    dsArtikelVerkaufspreisBrutto.AfterLoadDFMValues;\r\n    dsArtikelArtikelSet.AfterLoadDFMValues;\r\n    dsArtikelProvisionssatz.AfterLoadDFMValues;\r\n    dsArtikelWarentarifnummer.AfterLoadDFMValues;\r\n    dsArtikelHandelsartikel.AfterLoadDFMValues;\r\n    dsArtikelUrsprungsland.AfterLoadDFMValues;\r\n    dsArtikelKategorie.AfterLoadDFMValues;\r\n    dsArtikelStandardRabattsatzEK.AfterLoadDFMValues;\r\n    dsArtikelStandardRabattsatzVK.AfterLoadDFMValues;\r\n    dsArtikelRabattpreiseManuell.AfterLoadDFMValues;\r\n    dsArtikelMengeBestellt.AfterLoadDFMValues;\r\n    dsArtikelMengeBeauftragt.AfterLoadDFMValues;\r\n    dsArtikelBestandDisponiert.AfterLoadDFMValues;\r\n    dsArtikelMengeAngeboten.AfterLoadDFMValues;\r\n    dsArtikelBestandDispInclAngebot.AfterLoadDFMValues;\r\n    dsArtikelMWStKey.AfterLoadDFMValues;\r\n    dsArtikelShopAmazon.AfterLoadDFMValues;\r\n    dsArtikelShopQuelle.AfterLoadDFMValues;\r\n    dsArtikelGeraet.AfterLoadDFMValues;\r\n    dsArtikelArtgewicht.AfterLoadDFMValues;\r\n    dsArtikelVolumen.AfterLoadDFMValues;\r\n    dsArtikelPacklisteNichtAnzeigen.AfterLoadDFMValues;\r\n    dsArtikelKeineAufschlagskalkulation.AfterLoadDFMValues;\r\n    dsArtikelKorrekturMenge.AfterLoadDFMValues;\r\n    dsArtikelKorrekturWert.AfterLoadDFMValues;\r\n    dsArtikelNachfolgeartikel.AfterLoadDFMValues;\r\n    dsArtikelMindestbestellmenge.AfterLoadDFMValues;\r\n    dsArtikelSchnittEK.AfterLoadDFMValues;\r\n    dsArtikelVerkaufspreisVom.AfterLoadDFMValues;\r\n    dsArtikelPruefungChargeSNR.AfterLoadDFMValues;\r\n    dsArtikelArtikelbeschreibungHTML.AfterLoadDFMValues;\r\n    dsArtikelProduktKurzbeschreibungHTML.AfterLoadDFMValues;\r\n    dsArtikelStatusFuerShop.AfterLoadDFMValues;\r\n    dsArtikelAmpelFuerShop.AfterLoadDFMValues;\r\n    dsArtikelEXP_Anzahl.AfterLoadDFMValues;\r\n    dsArtikelEXP_Inhalt.AfterLoadDFMValues;\r\n    dsArtikelEXP_Faktor.AfterLoadDFMValues;\r\n    dsArtikelFach.AfterLoadDFMValues;\r\n    dsArtikelExportKasse.AfterLoadDFMValues;\r\n    dsArtikelWKNR.AfterLoadDFMValues;\r\n    dsArtikelArtikelAttribute.AfterLoadDFMValues;\r\n    dsArtikelErstelltAm.AfterLoadDFMValues;\r\n    dsArtikelVarianteVonAN.AfterLoadDFMValues;\r\n    dsArtikelGurtmassWerte.AfterLoadDFMValues;\r\n    dsArtikelGurtmass.AfterLoadDFMValues;\r\n    dsArtikelAltersgrenze.AfterLoadDFMValues;\r\n    dsArtikelMWStKeyImHaus.AfterLoadDFMValues;\r\n    dsArtikelKasseBewegung.AfterLoadDFMValues;\r\n    dsArtikelKasseBewegungEK.AfterLoadDFMValues;\r\n    dsArtikelKasseBewegungVK.AfterLoadDFMValues;\r\n    dsArtikelProduktionBewegung.AfterLoadDFMValues;\r\n    dsArtikelProduktionBewegungEK.AfterLoadDFMValues;\r\n    dsArtikelProduktionBewegungVK.AfterLoadDFMValues;\r\n    dsArtikelWaWiAB.AfterLoadDFMValues;\r\n    dsArtikelGeaendertAm.AfterLoadDFMValues;\r\n    dsArtikelGefahrgutKennzeichen.AfterLoadDFMValues;\r\n    dsArtikelVerpackG.AfterLoadDFMValues;\r\n    dsArtikelUPE.AfterLoadDFMValues;\r\n    dsArtikelArtikelbeschreibungEinkauf.AfterLoadDFMValues;\r\n    dsArtikelHerstellerArtikelnummer.AfterLoadDFMValues;\r\n    dsArtikelNatura.AfterLoadDFMValues;\r\n    dsArtikelArbeitszeit.AfterLoadDFMValues;\r\n    dsArtikelArtderMengeArtderMenge.AfterLoadDFMValues;\r\n    xdsKundenpreise.AfterLoadDFMValues;\r\n    xdsKundenpreiseArtikelnummer.AfterLoadDFMValues;\r\n    xdsKundenpreiseKundennummer.AfterLoadDFMValues;\r\n    xdsKundenpreiseVerkaufspreis.AfterLoadDFMValues;\r\n    xdsKundenpreiseNachname.AfterLoadDFMValues;\r\n    xdsKundenpreiseRabattsatz.AfterLoadDFMValues;\r\n    xdsKundenpreiseVerleihpreis.AfterLoadDFMValues;\r\n    xdsKundenpreiseZusatzPreis.AfterLoadDFMValues;\r\n    xdsKundenpreiseArtikelnummerKunde.AfterLoadDFMValues;\r\n    xdsKundenpreiseDatumGeaendert.AfterLoadDFMValues;\r\n    xdsKundenpreiseArtikelueberschrift.AfterLoadDFMValues;\r\n    xdsKundenpreiseArtikelnummerArtikelnummer.AfterLoadDFMValues;\r\n    xdsKundenpreiseArtikelnummerArtikelueberschrift.AfterLoadDFMValues;\r\n    xdsKundenpreiseArtikelnummerArtikelbeschreibung.AfterLoadDFMValues;\r\n    dsBeleg2.AfterLoadDFMValues;\r\n    dsBeleg2Kundennummer.AfterLoadDFMValues;\r\n    dsBeleg2Nummerkomplett.AfterLoadDFMValues;\r\n    dsBeleg2ReferenzAngebot.AfterLoadDFMValues;\r\n    dsBeleg2ReferenzLieferschein.AfterLoadDFMValues;\r\n    dsBeleg2ReferenzRechnung.AfterLoadDFMValues;\r\n    dsBeleg2Datum.AfterLoadDFMValues;\r\n    dsBeleg2Jahr.AfterLoadDFMValues;\r\n    dsBeleg2Kalenderwoche.AfterLoadDFMValues;\r\n    dsBeleg2Nachname.AfterLoadDFMValues;\r\n    dsBeleg2Vorname.AfterLoadDFMValues;\r\n    dsBeleg2Postleitzahl.AfterLoadDFMValues;\r\n    dsBeleg2Ort.AfterLoadDFMValues;\r\n    dsBeleg2Laenderkuerzel.AfterLoadDFMValues;\r\n    dsBeleg2Land.AfterLoadDFMValues;\r\n    dsBeleg2Briefanrede1.AfterLoadDFMValues;\r\n    dsBeleg2Briefanrede2.AfterLoadDFMValues;\r\n    dsBeleg2EMail.AfterLoadDFMValues;\r\n    dsBeleg2AdresseBild.AfterLoadDFMValues;\r\n    dsBeleg2LieferanschriftBild.AfterLoadDFMValues;\r\n    dsBeleg2Zahlungsbedingung.AfterLoadDFMValues;\r\n    dsBeleg2ZahlungsbedingungText.AfterLoadDFMValues;\r\n    dsBeleg2Auftragsbezeichnung.AfterLoadDFMValues;\r\n    dsBeleg2AuftragnummerKunde.AfterLoadDFMValues;\r\n    dsBeleg2BestelldatumKunde.AfterLoadDFMValues;\r\n    dsBeleg2ILN.AfterLoadDFMValues;\r\n    dsBeleg2Kopftext.AfterLoadDFMValues;\r\n    dsBeleg2Schlussbemerkung.AfterLoadDFMValues;\r\n    dsBeleg2Gruss.AfterLoadDFMValues;\r\n    dsBeleg2Mehrwertsteuersatz1.AfterLoadDFMValues;\r\n    dsBeleg2Mehrwertsteuersatz2.AfterLoadDFMValues;\r\n    dsBeleg2Nettosumme01.AfterLoadDFMValues;\r\n    dsBeleg2Nettosumme02.AfterLoadDFMValues;\r\n    dsBeleg2Nettosumme.AfterLoadDFMValues;\r\n    dsBeleg2Mehrwertsteuer01.AfterLoadDFMValues;\r\n    dsBeleg2Mehrwertsteuer02.AfterLoadDFMValues;\r\n    dsBeleg2Mehrwertsteuer.AfterLoadDFMValues;\r\n    dsBeleg2Bruttosumme.AfterLoadDFMValues;\r\n    dsBeleg2Versanddatum.AfterLoadDFMValues;\r\n    dsBeleg2Skontosatz.AfterLoadDFMValues;\r\n    dsBeleg2NettosummeEK.AfterLoadDFMValues;\r\n    dsBeleg2NettoMarge.AfterLoadDFMValues;\r\n    dsBeleg2Schreibzeichen.AfterLoadDFMValues;\r\n    dsBeleg2Unterzeichner.AfterLoadDFMValues;\r\n    dsBeleg2TelefonMA.AfterLoadDFMValues;\r\n    dsBeleg2EmailMA.AfterLoadDFMValues;\r\n    dsBeleg2USTID.AfterLoadDFMValues;\r\n    dsBeleg2Umsatzsteuerausweis.AfterLoadDFMValues;\r\n    dsBeleg2gebucht.AfterLoadDFMValues;\r\n    dsBeleg2Lieferdatum.AfterLoadDFMValues;\r\n    dsBeleg2Transportbedingung.AfterLoadDFMValues;\r\n    dsBeleg2Mehrwertsteuersatz3.AfterLoadDFMValues;\r\n    dsBeleg2Mehrwertsteuer03.AfterLoadDFMValues;\r\n    dsBeleg2Nettosumme03.AfterLoadDFMValues;\r\n    dsBeleg2RundungsDifferenz.AfterLoadDFMValues;\r\n    dsBeleg2EmailText.AfterLoadDFMValues;\r\n    dsBeleg2Auftragerledigt.AfterLoadDFMValues;\r\n    dsBeleg2Rabattstufe.AfterLoadDFMValues;\r\n    dsBeleg2KFZKennzeichen.AfterLoadDFMValues;\r\n    dsBeleg2Fahrgestellnummer.AfterLoadDFMValues;\r\n    dsBeleg2KFZHersteller.AfterLoadDFMValues;\r\n    dsBeleg2Erstzulassungsdatum.AfterLoadDFMValues;\r\n    dsBeleg2KMStand.AfterLoadDFMValues;\r\n    dsBeleg2KFZType.AfterLoadDFMValues;\r\n    dsBeleg2Inspektionsdatum.AfterLoadDFMValues;\r\n    dsBeleg2Debitorennummer.AfterLoadDFMValues;\r\n    dsBeleg2Kostentraeger.AfterLoadDFMValues;\r\n    dsBeleg2Rabattsatz.AfterLoadDFMValues;\r\n    dsBeleg2ObjektReferenz.AfterLoadDFMValues;\r\n    dsBeleg2Bank.AfterLoadDFMValues;\r\n    dsBeleg2Bankleitzahl.AfterLoadDFMValues;\r\n    dsBeleg2Kontonummer.AfterLoadDFMValues;\r\n    dsBeleg2Kontoinhaber.AfterLoadDFMValues;\r\n    dsBeleg2Telefaxnummer.AfterLoadDFMValues;\r\n    dsBeleg2DatumNeu.AfterLoadDFMValues;\r\n    dsBeleg2Datumgeaendert.AfterLoadDFMValues;\r\n    dsBeleg2Objektnummer.AfterLoadDFMValues;\r\n    dsBeleg2Liefertermin.AfterLoadDFMValues;\r\n    dsBeleg2Emailversand.AfterLoadDFMValues;\r\n    dsBeleg2Telefonnummer.AfterLoadDFMValues;\r\n    dsBeleg2MobilTelefon.AfterLoadDFMValues;\r\n    dsBeleg2AuftragFax.AfterLoadDFMValues;\r\n    dsBeleg2REDatum.AfterLoadDFMValues;\r\n    dsBeleg2BenutzerNeu.AfterLoadDFMValues;\r\n    dsBeleg2BenutzerGeaendert.AfterLoadDFMValues;\r\n    dsBeleg2BerechnungBrutto.AfterLoadDFMValues;\r\n    dsBeleg2Bruttosumme01.AfterLoadDFMValues;\r\n    dsBeleg2Bruttosumme02.AfterLoadDFMValues;\r\n    dsBeleg2Bruttosumme03.AfterLoadDFMValues;\r\n    dsBeleg2Notiz.AfterLoadDFMValues;\r\n    dsBeleg2MargeProzent.AfterLoadDFMValues;\r\n    dsBeleg2Warenkreditgesperrt.AfterLoadDFMValues;\r\n    dsBeleg2Belegsprache.AfterLoadDFMValues;\r\n    dsBeleg2Duplicate.AfterLoadDFMValues;\r\n    dsBeleg2perEmail.AfterLoadDFMValues;\r\n    dsBeleg2Ansprechpartner.AfterLoadDFMValues;\r\n    dsBeleg2KundennummerFremd.AfterLoadDFMValues;\r\n    dsBeleg2Protokoll.AfterLoadDFMValues;\r\n    dsBeleg2Verleihauftrag.AfterLoadDFMValues;\r\n    dsBeleg2VerleihVon.AfterLoadDFMValues;\r\n    dsBeleg2VerleihBis.AfterLoadDFMValues;\r\n    dsBeleg2AuftragGenehmigt.AfterLoadDFMValues;\r\n    dsBeleg2gesperrt.AfterLoadDFMValues;\r\n    dsBeleg2VerleihvonText.AfterLoadDFMValues;\r\n    dsBeleg2VerleihbisText.AfterLoadDFMValues;\r\n    dsBeleg2DruckWHG.AfterLoadDFMValues;\r\n    dsBeleg2DruckWHGKurs.AfterLoadDFMValues;\r\n    dsBeleg2ProzentsatzZusatzposition.AfterLoadDFMValues;\r\n    dsBeleg2TextZusatzposition.AfterLoadDFMValues;\r\n    dsBeleg2TextzusatzBeschreibung.AfterLoadDFMValues;\r\n    dsBeleg2Layoutname.AfterLoadDFMValues;\r\n    dsBeleg2Gesamtgewicht.AfterLoadDFMValues;\r\n    dsBeleg2BetragZusatzposition.AfterLoadDFMValues;\r\n    dsBeleg2ReferenzBestellung.AfterLoadDFMValues;\r\n    dsBeleg2Termin1.AfterLoadDFMValues;\r\n    dsBeleg2Termin2.AfterLoadDFMValues;\r\n    dsBeleg2Zielkontaktnummer.AfterLoadDFMValues;\r\n    dsBeleg2Zielkontaktname.AfterLoadDFMValues;\r\n    dsBeleg2Bilddatei1.AfterLoadDFMValues;\r\n    dsBeleg2Bilddatei2.AfterLoadDFMValues;\r\n    dsBeleg2Zielkontaktnummer2.AfterLoadDFMValues;\r\n    dsBeleg2Zielkontaktname2.AfterLoadDFMValues;\r\n    dsBeleg2bestaetigt.AfterLoadDFMValues;\r\n    dsBeleg2Zielkontaktnummer3.AfterLoadDFMValues;\r\n    dsBeleg2Zielkontaktname3.AfterLoadDFMValues;\r\n    dsBeleg2Termin3.AfterLoadDFMValues;\r\n    dsBeleg2Termin4.AfterLoadDFMValues;\r\n    dsBeleg2Muster.AfterLoadDFMValues;\r\n    dsBeleg2KW.AfterLoadDFMValues;\r\n    dsBeleg2Datenlink.AfterLoadDFMValues;\r\n    dsBeleg2Mehrwertsteuersatz4.AfterLoadDFMValues;\r\n    dsBeleg2Mehrwertsteuersatz5.AfterLoadDFMValues;\r\n    dsBeleg2Mehrwertsteuersatz6.AfterLoadDFMValues;\r\n    dsBeleg2BesteuerungKey.AfterLoadDFMValues;\r\n    dsBeleg2VertreterMatchcode.AfterLoadDFMValues;\r\n    dsBeleg2Verfasser.AfterLoadDFMValues;\r\n    dsBeleg2LieferadresseID.AfterLoadDFMValues;\r\n    dsBeleg2AuftragStatus.AfterLoadDFMValues;\r\n    dsBeleg2MonatJahr.AfterLoadDFMValues;\r\n    dsBeleg2Belegvariante.AfterLoadDFMValues;\r\n    dsBeleg2Produktionsfreigabe.AfterLoadDFMValues;\r\n    dsBeleg2ReferenzRahmenAuftrag.AfterLoadDFMValues;\r\n    dsBeleg2DatumRahmenAuftrag.AfterLoadDFMValues;\r\n    dsBeleg2FahrzeugID.AfterLoadDFMValues;\r\n    dsBeleg2AuslieferungKW.AfterLoadDFMValues;\r\n    dsBeleg2BereitstellungDatum.AfterLoadDFMValues;\r\n    dsBeleg2VTUID.AfterLoadDFMValues;\r\n    dsBeleg2LieferanschriftDaten.AfterLoadDFMValues;\r\n    dsBeleg2GesamtVolumen.AfterLoadDFMValues;\r\n    dsBeleg2BelegPKey.AfterLoadDFMValues;\r\n    dsBeleg2DruckParameter.AfterLoadDFMValues;\r\n    dsBeleg2ReferenzService.AfterLoadDFMValues;\r\n    dsBeleg2ZusatzDaten.AfterLoadDFMValues;\r\n    dsBeleg2StandPDF.AfterLoadDFMValues;\r\n    dsBeleg2Paketdienst.AfterLoadDFMValues;\r\n    dsBeleg2Monteur.AfterLoadDFMValues;\r\n    dsBeleg2KundennummerKundennummer.AfterLoadDFMValues;\r\n    dsBeleg2ServiceBemerkung.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.","unit unit_AuftragSuche;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Data.DB, WEBLib.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, XData.Web.Connection, Vcl.Controls, Vcl.StdCtrls,\r\n  WEBLib.StdCtrls, WEBLib.ExtCtrls, Vcl.Grids, WEBLib.DBCtrls, VCL.TMSFNCTypes,\r\n  VCL.TMSFNCUtils, VCL.TMSFNCGraphics, VCL.TMSFNCGraphicsTypes, strutils,\r\n  VCL.TMSFNCCustomControl, VCL.TMSFNCTableView, WEBLib.Grids, WEBLib.Buttons, DB;\r\n\r\ntype\r\n  TfrmAuftragSuche = class(TForm)\r\n    DataSet: TXDataWebDataSet;\r\n    Source: TDataSource;\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    Container3: THTMLContainer;\r\n    TC: TTableControl;\r\n    btnzurueck: TButton;\r\n    edtSuchbegriff: TEdit;\r\n    ResultLabel: TLabel;\r\n    DataSetNummerkomplett: TStringField;\r\n    DataSetKundennummerKundennummer: TStringField;\r\n    DataSetDatum: TDateTimeField;\r\n    DataSetAuftragsbezeichnung: TStringField;\r\n    DataSetNachname: TStringField;\r\n    DataSetVorname: TStringField;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure DataSetAfterOpen(DataSet: TDataSet);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n    procedure edtSuchbegriffChange(Sender: TObject);\r\n\r\n    public\r\n    Auftragnummer:string;\r\n    LUNachname:string;\r\n    LUVorname:string;\r\n    LUAuftragsbezeichnung:string;\r\n    buttonAuftragnummer:TButton;\r\n    procedure buttonAuftragnummerclick(Sender:TObject);\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  frmAuftragSuche: TfrmAuftragSuche;\r\n\r\nimplementation\r\n  uses unit1, unit2;\r\n{$R *.dfm}\r\n\r\n\r\nprocedure TfrmAuftragSuche.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  self.Close;\r\nend;\r\n\r\nprocedure TfrmAuftragSuche.buttonauftragnummerclick(Sender:TObject);\r\nbegin\r\n  Auftragnummer:=(sender as TButton).Caption;\r\n  dataset.Locate('Nummerkomplett',Auftragnummer,[]);\r\n  LUNachname:=DataSetNachname.AsString;\r\n  LUVorname:=DataSetVorname.AsString;\r\n  LUAuftragsbezeichnung:=DataSetAuftragsbezeichnung.AsString;\r\n  self.Close;\r\nend;\r\n\r\nprocedure TfrmAuftragSuche.DataSetAfterOpen(DataSet: TDataSet);\r\nvar\r\n  i:integer;\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  myelement:=container3.ElementHandle;\r\n  tc.ParentElement:=myelement;\r\n  i:=0;\r\n  TC.visible:=true;\r\n  TC.ColCount:=4;\r\n  tc.RowCount:=dataset.RecordCount+1;\r\n  tc.Cells[0,i]:='<b>Nummerkomplett';\r\n  tc.Cells[1,i]:='<b>Datum';\r\n  tc.Cells[2,i]:='<b>Auftragsbezeichnung';\r\n  tc.Cells[3,i]:='<b>Kunde';\r\n  dataset.First;\r\n  if dataset.RecordCount=0 then resultlabel.Caption:='nichts gefunden';\r\n  if dataset.RecordCount>0 then resultlabel.Caption:='Übereinstimmungen: '+inttostr(dataset.RecordCount);\r\n  if dataset.RecordCount>20 then resultlabel.Caption:='mehr als 20 Übereinstimmungen';\r\n\r\n  while not dataset.eof do\r\n  begin\r\n    inc(i);\r\n    myelement:=TC.cellelements[0,i];\r\n    myelement.innerHTML:='';\r\n    buttonauftragnummer:=TButton.Create(self);\r\n    buttonauftragnummer.ElementClassName:='btn btn-sm btn-info';\r\n    buttonauftragnummer.HeightStyle:=ssauto;\r\n    buttonauftragnummer.Width:=150;\r\n    buttonauftragnummer.tag:=0;\r\n    buttonauftragnummer.Caption:=DataSetNummerkomplett.AsString;\r\n    buttonauftragnummer.OnClick:=@buttonauftragnummerClick;\r\n    buttonauftragnummer.ParentElement:=myelement;\r\n    TC.Cells[1,i]:=formatdatetime('DD.MM.YYYY',DataSetDatum.Asdatetime);\r\n    TC.Cells[2,i]:=DataSetAuftragsbezeichnung.AsString;\r\n    TC.Cells[3,i]:=trim(DataSetVorname.AsString+' '+DataSetNachname.AsString)+' ('+DataSetKundennummerKundennummer.AsString+')';\r\n    dataset.Next;\r\n  end;\r\n\r\nend;\r\n\r\n\r\n\r\nprocedure TfrmAuftragSuche.edtSuchbegriffChange(Sender: TObject);\r\nvar\r\n  suchtextkontakt:string;\r\nbegin\r\n  suchtextkontakt:=edtsuchbegriff.Text;\r\n  if length(suchtextkontakt)>0 then\r\n  begin\r\n    dataset.Close;\r\n    dataset.QueryString:='$expand=Kundennummer&$filter=(Auftragerledigt eq 0) AND (contains(Nummerkomplett, '''+edtsuchbegriff.Text+''') OR contains(Kundennummer, '''+edtsuchbegriff.Text+''') OR contains(Auftragsbezeichnung, '''+edtsuchbegriff.Text+'''))&$orderby=Nummerkomplett DESC';\r\n    dataset.Load;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TfrmAuftragSuche.WebFormShow(Sender: TObject);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Auftrag-Suche</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  container2.ParentElement:=myelement;\r\n  Container3.ParentElement:=myelement;\r\n  myelement:=container2.ElementHandle;\r\n  resultlabel.Caption:='Suchbegriff';\r\n  resultlabel.ParentElement:=myelement;\r\n  edtsuchbegriff.ParentElement:=myelement;\r\n  TC.Visible:=false;\r\n  Auftragnummer:='';\r\n  edtsuchbegriff.SetFocus;\r\n  if PZE_AutoAuftragnummer<>'' then\r\n  begin\r\n    edtsuchbegriff.Text:=PZE_AutoAuftragnummer;\r\n    edtsuchbegriffChange(sender);\r\n    PZE_AutoAuftragnummer:='';\r\n  end;\r\nend;\r\n\r\nprocedure TfrmAuftragSuche.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  ResultLabel := TLabel.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  TC := TTableControl.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  edtSuchbegriff := TEdit.Create(Self);\r\n  DataSet := TXDataWebDataSet.Create(Self);\r\n  DataSetNummerkomplett := TStringField.Create(Self);\r\n  DataSetDatum := TDateTimeField.Create(Self);\r\n  DataSetAuftragsbezeichnung := TStringField.Create(Self);\r\n  DataSetKundennummerKundennummer := TStringField.Create(Self);\r\n  DataSetNachname := TStringField.Create(Self);\r\n  DataSetVorname := TStringField.Create(Self);\r\n  Source := TDataSource.Create(Self);\r\n\r\n  ResultLabel.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  TC.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  edtSuchbegriff.BeforeLoadDFMValues;\r\n  DataSet.BeforeLoadDFMValues;\r\n  DataSetNummerkomplett.BeforeLoadDFMValues;\r\n  DataSetDatum.BeforeLoadDFMValues;\r\n  DataSetAuftragsbezeichnung.BeforeLoadDFMValues;\r\n  DataSetKundennummerKundennummer.BeforeLoadDFMValues;\r\n  DataSetNachname.BeforeLoadDFMValues;\r\n  DataSetVorname.BeforeLoadDFMValues;\r\n  Source.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'frmAuftragSuche';\r\n    Width := 223;\r\n    Height := 376;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    ResultLabel.SetParentComponent(Self);\r\n    ResultLabel.Name := 'ResultLabel';\r\n    ResultLabel.Left := 114;\r\n    ResultLabel.Top := 231;\r\n    ResultLabel.Width := 60;\r\n    ResultLabel.Height := 15;\r\n    ResultLabel.Caption := 'ResultLabel';\r\n    ResultLabel.ElementClassName := 'h6 m-2';\r\n    ResultLabel.ElementFont := efCSS;\r\n    ResultLabel.ElementPosition := epIgnore;\r\n    ResultLabel.HeightStyle := ssAuto;\r\n    ResultLabel.HeightPercent := 100.000000000000000000;\r\n    ResultLabel.WidthStyle := ssPercent;\r\n    ResultLabel.WidthPercent := 100.000000000000000000;\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 2;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.Left := 0;\r\n    TC.Top := 141;\r\n    TC.Width := 169;\r\n    TC.Height := 79;\r\n    TC.ElementClassName := 'table table-hover table-bordered table-striped';\r\n    TC.HeightStyle := ssAuto;\r\n    TC.WidthStyle := ssPercent;\r\n    TC.BorderColor := clSilver;\r\n    TC.ChildOrder := 3;\r\n    TC.ColHeader := False;\r\n    TC.ElementFont := efCSS;\r\n    TC.ElementHeaderClassName := 'table-info';\r\n    TC.ElementPosition := epIgnore;\r\n    TC.ElementTableClassName := 'table table-hover table-bordered table-striped';\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 1;\r\n    TC.RowCount := 5;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 0;\r\n    btnzurueck.Top := 226;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    edtSuchbegriff.SetParentComponent(Self);\r\n    edtSuchbegriff.Name := 'edtSuchbegriff';\r\n    edtSuchbegriff.Left := 8;\r\n    edtSuchbegriff.Top := 296;\r\n    edtSuchbegriff.Width := 150;\r\n    edtSuchbegriff.Height := 22;\r\n    edtSuchbegriff.AutoSelect := False;\r\n    edtSuchbegriff.ChildOrder := 6;\r\n    edtSuchbegriff.ElementClassName := 'form-control input-sm m-1';\r\n    edtSuchbegriff.ElementFont := efCSS;\r\n    edtSuchbegriff.ElementPosition := epIgnore;\r\n    edtSuchbegriff.HeightStyle := ssAuto;\r\n    edtSuchbegriff.HeightPercent := 100.000000000000000000;\r\n    edtSuchbegriff.ShowHint := True;\r\n    edtSuchbegriff.TextHint := 'Suchbegriff eingeben';\r\n    edtSuchbegriff.WidthPercent := 60.000000000000000000;\r\n    SetEvent(edtSuchbegriff, Self, 'OnChange', 'edtSuchbegriffChange');\r\n    DataSet.SetParentComponent(Self);\r\n    DataSet.Name := 'DataSet';\r\n    DataSet.AfterOpen := DataSetAfterOpen;\r\n    DataSet.EntitySetName := 'Auftrag';\r\n    DataSet.Connection := DM2.XDataWebConnection1;\r\n    DataSet.SubpropsDepth := 1;\r\n    DataSet.QueryString := '$expand=Kundennummer&$filter=(Auftragerledigt eq 0)&$orderby=Nummerkomplett DESC';\r\n    DataSet.QueryTop := 20;\r\n    DataSet.Left := 8;\r\n    DataSet.Top := 56;\r\n    DataSetNummerkomplett.SetParentComponent(DataSet);\r\n    DataSetNummerkomplett.Name := 'DataSetNummerkomplett';\r\n    DataSetNummerkomplett.FieldName := 'Nummerkomplett';\r\n    DataSetNummerkomplett.Required := True;\r\n    DataSetNummerkomplett.Size := 10;\r\n    DataSetDatum.SetParentComponent(DataSet);\r\n    DataSetDatum.Name := 'DataSetDatum';\r\n    DataSetDatum.FieldName := 'Datum';\r\n    DataSetDatum.Required := True;\r\n    DataSetAuftragsbezeichnung.SetParentComponent(DataSet);\r\n    DataSetAuftragsbezeichnung.Name := 'DataSetAuftragsbezeichnung';\r\n    DataSetAuftragsbezeichnung.FieldName := 'Auftragsbezeichnung';\r\n    DataSetAuftragsbezeichnung.Size := 255;\r\n    DataSetKundennummerKundennummer.SetParentComponent(DataSet);\r\n    DataSetKundennummerKundennummer.Name := 'DataSetKundennummerKundennummer';\r\n    DataSetKundennummerKundennummer.FieldName := 'Kundennummer.Kundennummer';\r\n    DataSetKundennummerKundennummer.Size := 13;\r\n    DataSetNachname.SetParentComponent(DataSet);\r\n    DataSetNachname.Name := 'DataSetNachname';\r\n    DataSetNachname.FieldName := 'Nachname';\r\n    DataSetNachname.Size := 50;\r\n    DataSetVorname.SetParentComponent(DataSet);\r\n    DataSetVorname.Name := 'DataSetVorname';\r\n    DataSetVorname.FieldName := 'Vorname';\r\n    DataSetVorname.Size := 50;\r\n    Source.SetParentComponent(Self);\r\n    Source.Name := 'Source';\r\n    Source.DataSet := DataSet;\r\n    Source.Left := 56;\r\n    Source.Top := 56;\r\n  finally\r\n    ResultLabel.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    TC.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    edtSuchbegriff.AfterLoadDFMValues;\r\n    DataSet.AfterLoadDFMValues;\r\n    DataSetNummerkomplett.AfterLoadDFMValues;\r\n    DataSetDatum.AfterLoadDFMValues;\r\n    DataSetAuftragsbezeichnung.AfterLoadDFMValues;\r\n    DataSetKundennummerKundennummer.AfterLoadDFMValues;\r\n    DataSetNachname.AfterLoadDFMValues;\r\n    DataSetVorname.AfterLoadDFMValues;\r\n    Source.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit unit_ProduktionSuche;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Data.DB, WEBLib.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, XData.Web.Connection, Vcl.Controls, Vcl.StdCtrls,\r\n  WEBLib.StdCtrls, WEBLib.ExtCtrls, Vcl.Grids, WEBLib.DBCtrls, VCL.TMSFNCTypes,\r\n  VCL.TMSFNCUtils, VCL.TMSFNCGraphics, VCL.TMSFNCGraphicsTypes, strutils,\r\n  VCL.TMSFNCCustomControl, VCL.TMSFNCTableView, WEBLib.Grids, WEBLib.Buttons, DB;\r\n\r\ntype\r\n  TfrmProduktionSuche = class(TForm)\r\n    DataSet: TXDataWebDataSet;\r\n    Source: TDataSource;\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    Container3: THTMLContainer;\r\n    TC: TTableControl;\r\n    btnzurueck: TButton;\r\n    edtSuchbegriff: TEdit;\r\n    ResultLabel: TLabel;\r\n    DataSetNummerkomplett: TStringField;\r\n    DataSetDatum: TDateTimeField;\r\n    DataSetAuftragsbezeichnung: TStringField;\r\n    DataSetInterneReferenz: TStringField;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure DataSetAfterOpen(DataSet: TDataSet);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n    procedure edtSuchbegriffChange(Sender: TObject);\r\n\r\n    public\r\n    Produktionnummer:string;\r\n    LUAuftragsbezeichnung:string;\r\n    buttonAuftragnummer:TButton;\r\n    procedure buttonAuftragnummerclick(Sender:TObject);\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  frmProduktionSuche: TfrmProduktionSuche;\r\n\r\nimplementation\r\n  uses unit1, unit2;\r\n{$R *.dfm}\r\n\r\n\r\nprocedure TfrmProduktionSuche.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  self.Close;\r\nend;\r\n\r\nprocedure TfrmProduktionSuche.buttonauftragnummerclick(Sender:TObject);\r\nbegin\r\n  Produktionnummer:=(sender as TButton).Caption;\r\n  dataset.Locate('Nummerkomplett',Produktionnummer,[]);\r\n  LUAuftragsbezeichnung:=DataSetAuftragsbezeichnung.AsString;\r\n  self.Close;\r\nend;\r\n\r\nprocedure TfrmProduktionSuche.DataSetAfterOpen(DataSet: TDataSet);\r\nvar\r\n  i:integer;\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  myelement:=container3.ElementHandle;\r\n  tc.ParentElement:=myelement;\r\n  i:=0;\r\n  TC.visible:=true;\r\n  TC.ColCount:=4;\r\n  tc.RowCount:=dataset.RecordCount+1;\r\n  tc.Cells[0,i]:='<b>Nummerkomplett';\r\n  tc.Cells[1,i]:='<b>Datum';\r\n  tc.Cells[2,i]:='<b>Auftragsbezeichnung';\r\n  tc.Cells[3,i]:='<b>InterneReferenz';\r\n  dataset.First;\r\n  if dataset.RecordCount=0 then resultlabel.Caption:='nichts gefunden';\r\n  if dataset.RecordCount>0 then resultlabel.Caption:='Übereinstimmungen: '+inttostr(dataset.RecordCount);\r\n  if dataset.RecordCount>20 then resultlabel.Caption:='mehr als 20 Übereinstimmungen';\r\n\r\n  while not dataset.eof do\r\n  begin\r\n    inc(i);\r\n    myelement:=TC.cellelements[0,i];\r\n    myelement.innerHTML:='';\r\n    buttonauftragnummer:=TButton.Create(self);\r\n    buttonauftragnummer.ElementClassName:='btn btn-sm btn-info';\r\n    buttonauftragnummer.HeightStyle:=ssauto;\r\n    buttonauftragnummer.Width:=150;\r\n    buttonauftragnummer.tag:=0;\r\n    buttonauftragnummer.Caption:=DataSetNummerkomplett.AsString;\r\n    buttonauftragnummer.OnClick:=@buttonauftragnummerClick;\r\n    buttonauftragnummer.ParentElement:=myelement;\r\n    TC.Cells[1,i]:=formatdatetime('DD.MM.YYYY',DataSetDatum.Asdatetime);\r\n    TC.Cells[2,i]:=DataSetAuftragsbezeichnung.AsString;\r\n    TC.Cells[3,i]:=DataSetInterneReferenz.AsString;\r\n    dataset.Next;\r\n  end;\r\n\r\nend;\r\n\r\n\r\n\r\nprocedure TfrmProduktionSuche.edtSuchbegriffChange(Sender: TObject);\r\nvar\r\n  suchtextkontakt:string;\r\nbegin\r\n  suchtextkontakt:=edtsuchbegriff.Text;\r\n  if length(suchtextkontakt)>0 then\r\n  begin\r\n    dataset.Close;\r\n    dataset.QueryString:='$filter=(PStatus lt 9) AND (contains(Nummerkomplett, '''+edtsuchbegriff.Text+''') OR contains(InterneReferenz, '''+edtsuchbegriff.Text+''') OR contains(Auftragsbezeichnung, '''+edtsuchbegriff.Text+'''))&$orderby=Nummerkomplett DESC';\r\n    dataset.Load;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TfrmProduktionSuche.WebFormShow(Sender: TObject);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Produktion-Suche</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  container2.ParentElement:=myelement;\r\n  Container3.ParentElement:=myelement;\r\n  myelement:=container2.ElementHandle;\r\n  resultlabel.Caption:='Suchbegriff';\r\n  resultlabel.ParentElement:=myelement;\r\n  edtsuchbegriff.ParentElement:=myelement;\r\n  TC.Visible:=false;\r\n  Produktionnummer:='';\r\n  edtsuchbegriff.SetFocus;\r\nend;\r\n\r\nprocedure TfrmProduktionSuche.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  ResultLabel := TLabel.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  TC := TTableControl.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  edtSuchbegriff := TEdit.Create(Self);\r\n  DataSet := TXDataWebDataSet.Create(Self);\r\n  DataSetNummerkomplett := TStringField.Create(Self);\r\n  DataSetDatum := TDateTimeField.Create(Self);\r\n  DataSetAuftragsbezeichnung := TStringField.Create(Self);\r\n  DataSetInterneReferenz := TStringField.Create(Self);\r\n  Source := TDataSource.Create(Self);\r\n\r\n  ResultLabel.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  TC.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  edtSuchbegriff.BeforeLoadDFMValues;\r\n  DataSet.BeforeLoadDFMValues;\r\n  DataSetNummerkomplett.BeforeLoadDFMValues;\r\n  DataSetDatum.BeforeLoadDFMValues;\r\n  DataSetAuftragsbezeichnung.BeforeLoadDFMValues;\r\n  DataSetInterneReferenz.BeforeLoadDFMValues;\r\n  Source.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'frmProduktionSuche';\r\n    Width := 223;\r\n    Height := 376;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    ResultLabel.SetParentComponent(Self);\r\n    ResultLabel.Name := 'ResultLabel';\r\n    ResultLabel.Left := 114;\r\n    ResultLabel.Top := 231;\r\n    ResultLabel.Width := 60;\r\n    ResultLabel.Height := 15;\r\n    ResultLabel.Caption := 'ResultLabel';\r\n    ResultLabel.ElementClassName := 'h6 m-2';\r\n    ResultLabel.ElementFont := efCSS;\r\n    ResultLabel.ElementPosition := epIgnore;\r\n    ResultLabel.HeightStyle := ssAuto;\r\n    ResultLabel.HeightPercent := 100.000000000000000000;\r\n    ResultLabel.WidthStyle := ssPercent;\r\n    ResultLabel.WidthPercent := 100.000000000000000000;\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 2;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.Left := 0;\r\n    TC.Top := 141;\r\n    TC.Width := 169;\r\n    TC.Height := 79;\r\n    TC.ElementClassName := 'table table-hover table-bordered table-striped';\r\n    TC.HeightStyle := ssAuto;\r\n    TC.WidthStyle := ssPercent;\r\n    TC.BorderColor := clSilver;\r\n    TC.ChildOrder := 3;\r\n    TC.ColHeader := False;\r\n    TC.ElementFont := efCSS;\r\n    TC.ElementHeaderClassName := 'table-info';\r\n    TC.ElementPosition := epIgnore;\r\n    TC.ElementTableClassName := 'table table-hover table-bordered table-striped';\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 1;\r\n    TC.RowCount := 5;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 0;\r\n    btnzurueck.Top := 226;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    edtSuchbegriff.SetParentComponent(Self);\r\n    edtSuchbegriff.Name := 'edtSuchbegriff';\r\n    edtSuchbegriff.Left := 8;\r\n    edtSuchbegriff.Top := 296;\r\n    edtSuchbegriff.Width := 150;\r\n    edtSuchbegriff.Height := 22;\r\n    edtSuchbegriff.AutoSelect := False;\r\n    edtSuchbegriff.ChildOrder := 6;\r\n    edtSuchbegriff.ElementClassName := 'form-control input-sm m-1';\r\n    edtSuchbegriff.ElementFont := efCSS;\r\n    edtSuchbegriff.ElementPosition := epIgnore;\r\n    edtSuchbegriff.HeightStyle := ssAuto;\r\n    edtSuchbegriff.HeightPercent := 100.000000000000000000;\r\n    edtSuchbegriff.ShowHint := True;\r\n    edtSuchbegriff.TextHint := 'Suchbegriff eingeben';\r\n    edtSuchbegriff.WidthPercent := 60.000000000000000000;\r\n    SetEvent(edtSuchbegriff, Self, 'OnChange', 'edtSuchbegriffChange');\r\n    DataSet.SetParentComponent(Self);\r\n    DataSet.Name := 'DataSet';\r\n    DataSet.AfterOpen := DataSetAfterOpen;\r\n    DataSet.EntitySetName := 'Produktion';\r\n    DataSet.Connection := DM2.XDataWebConnection1;\r\n    DataSet.QueryString := '$filter=(PStatus lt 9)&$orderby=Nummerkomplett DESC';\r\n    DataSet.QueryTop := 20;\r\n    DataSet.Left := 8;\r\n    DataSet.Top := 56;\r\n    DataSetNummerkomplett.SetParentComponent(DataSet);\r\n    DataSetNummerkomplett.Name := 'DataSetNummerkomplett';\r\n    DataSetNummerkomplett.FieldName := 'Nummerkomplett';\r\n    DataSetNummerkomplett.Required := True;\r\n    DataSetNummerkomplett.Size := 10;\r\n    DataSetDatum.SetParentComponent(DataSet);\r\n    DataSetDatum.Name := 'DataSetDatum';\r\n    DataSetDatum.FieldName := 'Datum';\r\n    DataSetDatum.Required := True;\r\n    DataSetAuftragsbezeichnung.SetParentComponent(DataSet);\r\n    DataSetAuftragsbezeichnung.Name := 'DataSetAuftragsbezeichnung';\r\n    DataSetAuftragsbezeichnung.FieldName := 'Auftragsbezeichnung';\r\n    DataSetAuftragsbezeichnung.Size := 255;\r\n    DataSetInterneReferenz.SetParentComponent(DataSet);\r\n    DataSetInterneReferenz.Name := 'DataSetInterneReferenz';\r\n    DataSetInterneReferenz.FieldName := 'InterneReferenz';\r\n    DataSetInterneReferenz.Size := 50;\r\n    Source.SetParentComponent(Self);\r\n    Source.Name := 'Source';\r\n    Source.DataSet := DataSet;\r\n    Source.Left := 56;\r\n    Source.Top := 56;\r\n  finally\r\n    ResultLabel.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    TC.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    edtSuchbegriff.AfterLoadDFMValues;\r\n    DataSet.AfterLoadDFMValues;\r\n    DataSetNummerkomplett.AfterLoadDFMValues;\r\n    DataSetDatum.AfterLoadDFMValues;\r\n    DataSetAuftragsbezeichnung.AfterLoadDFMValues;\r\n    DataSetInterneReferenz.AfterLoadDFMValues;\r\n    Source.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit unit_Kontaktnummersuche;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Data.DB, WEBLib.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, XData.Web.Connection, Vcl.Controls, Vcl.StdCtrls,\r\n  WEBLib.StdCtrls, WEBLib.ExtCtrls, Vcl.Grids, WEBLib.DBCtrls, VCL.TMSFNCTypes,\r\n  VCL.TMSFNCUtils, VCL.TMSFNCGraphics, VCL.TMSFNCGraphicsTypes, strutils,\r\n  VCL.TMSFNCCustomControl, VCL.TMSFNCTableView, WEBLib.Grids, WEBLib.Buttons, DB;\r\n\r\ntype\r\n  TfrmKontaktNummerSuche = class(TForm)\r\n    DataSet: TXDataWebDataSet;\r\n    Source: TDataSource;\r\n    DataSetKundennummer: TStringField;\r\n    DataSetNachname: TStringField;\r\n    DataSetVorname: TStringField;\r\n    DataSetAdresseBild: TStringField;\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    Container3: THTMLContainer;\r\n    TC: TTableControl;\r\n    btnzurueck: TButton;\r\n    btnScan: TButton;\r\n    edtSuchbegriff: TEdit;\r\n    ResultLabel: TLabel;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure DataSetAfterOpen(DataSet: TDataSet);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n    procedure btnScanClick(Sender: TObject);\r\n    procedure edtSuchbegriffChange(Sender: TObject);\r\n\r\n    public\r\n    Kontaktnummer:string;\r\n    LUNachname:string;\r\n    LUVorname:string;\r\n    LUAdressebild:string;\r\n    weiterzuEinzelkontakt:boolean;\r\n    buttonkundennummer:TButton;\r\n    procedure buttonkundennummerclick(Sender:TObject);\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  frmKontaktNummerSuche: TfrmKontaktNummerSuche;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_EinzelKontakt, unit_BarcodeScan;\r\n{$R *.dfm}\r\n\r\n\r\nprocedure TfrmKontaktNummerSuche.btnScanClick(Sender: TObject);\r\nvar\r\n  LFrm:TBarcodeScan;\r\n  procedure AfterCreate(AForm:TObject);\r\n  var\r\n    LForm:TBarcodeScan;\r\n    begin\r\n      LForm:=(AForm as TBarcodeScan);\r\n      //lform.mykundehint:=xdsEinzelkontaktKundennummer.AsString+' '+xdsEinzelkontaktNachname.AsString+', '+xdsEinzelkontaktVorname.asstring;\r\n      //lForm.edttoaddress.Text:= xdsEinzelkontaktPostleitzahl.AsString+' '+xdsEinzelkontaktort.AsString+', '+xdsEinzelkontaktStrasse.AsString;\r\n\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      edtsuchbegriff.text:=lfrm.ScanErgebnis;\r\n      edtsuchbegriffChange(self);\r\n    end;\r\n  begin\r\n    if LizenzOK then\r\n    begin\r\n      LFrm:=TBarcodeScan.CreateNew(@AfterCreate);\r\n      LFrm.ShowModal(@AfterShowmodal);\r\n    end\r\n    else\r\n    begin\r\n      showmessage('Für diese Funktion sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n    end;\r\n\r\nend;\r\n\r\nprocedure TfrmKontaktNummerSuche.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  self.Close;\r\nend;\r\n\r\nprocedure TfrmKontaktNummerSuche.buttonkundennummerclick(Sender:TObject);\r\nvar\r\n  MFrm:TEinzelkontakt;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      MForm:TEinzelkontakt;\r\n    begin\r\n      MForm:=(AForm as TEinzelkontakt);\r\n      MForm.KundennummerID:=Kontaktnummer;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      edtsuchbegriffChange(nil);\r\n    end;\r\n\r\n  begin\r\n\r\n  Kontaktnummer:=(sender as TButton).Caption;\r\n  dataset.Locate('Kundennummer',kontaktnummer,[]);\r\n  LUNachname:=DataSetNachname.AsString;\r\n  LUVorname:=DataSetVorname.AsString;\r\n  LUAdressebild:=DataSetAdresseBild.AsString;\r\n  if weiterzueinzelkontakt then\r\n  begin\r\n    Container3.HTML.Text:='';\r\n    MFrm:=TEinzelkontakt.CreateNew(@AfterCreate);\r\n    MFrm.ShowModal(@AfterShowmodal);\r\n  end\r\n  else\r\n  begin\r\n    self.Close;\r\n  end;\r\nend;\r\n\r\n\r\n\r\nprocedure TfrmKontaktNummerSuche.DataSetAfterOpen(DataSet: TDataSet);\r\nvar\r\n  i:integer;\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  myelement:=container3.ElementHandle;\r\n  tc.ParentElement:=myelement;\r\n  i:=0;\r\n  TC.visible:=true;\r\n  TC.ColCount:=4;\r\n  tc.RowCount:=dataset.RecordCount+1;\r\n  tc.Cells[0,i]:='<b>Kundennummer';\r\n  tc.Cells[1,i]:='<b>Nachname';\r\n  tc.Cells[2,i]:='<b>Vorname';\r\n  tc.Cells[3,i]:='<b>Anschrift';\r\n  dataset.First;\r\n  if dataset.RecordCount=0 then resultlabel.Caption:='nichts gefunden';\r\n  if dataset.RecordCount>0 then resultlabel.Caption:='Übereinstimmungen: '+inttostr(dataset.RecordCount);\r\n  if dataset.RecordCount>20 then resultlabel.Caption:='mehr als 20 Übereinstimmungen';\r\n\r\n  while not dataset.eof do\r\n  begin\r\n    inc(i);\r\n    myelement:=TC.cellelements[0,i];\r\n    myelement.innerHTML:='';\r\n    buttonkundennummer:=TButton.Create(self);\r\n    buttonkundennummer.ElementClassName:='btn btn-sm btn-info';\r\n    buttonkundennummer.HeightStyle:=ssauto;\r\n    buttonkundennummer.Width:=150;\r\n    buttonkundennummer.tag:=0;\r\n    buttonkundennummer.Caption:=DataSetKundennummer.AsString;\r\n    buttonkundennummer.OnClick:=@buttonkundennummerClick;\r\n    buttonkundennummer.ParentElement:=myelement;\r\n    TC.Cells[1,i]:=DataSetNachname.AsString;\r\n    TC.Cells[2,i]:=DataSetVorname.AsString;\r\n    TC.Cells[3,i]:='<h6>'+ReplaceStr(DataSetAdresseBild.AsString,#13+#10,'<BR>');;\r\n    dataset.Next;\r\n  end;\r\n\r\nend;\r\n\r\n\r\n\r\nprocedure TfrmKontaktNummerSuche.edtSuchbegriffChange(Sender: TObject);\r\nvar\r\n  suchtextkontakt:string;\r\nbegin\r\n  suchtextkontakt:=edtsuchbegriff.Text;\r\n  if length(suchtextkontakt)>0 then\r\n  begin\r\n  dataset.Close;\r\n  dataset.QueryString:='$filter= Kundennummer eq '+quotedstr(edtsuchbegriff.Text);\r\n  dataset.Load;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TfrmKontaktNummerSuche.WebFormShow(Sender: TObject);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Kontaktsuche</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  btnscan.ParentElement:=myelement;\r\n  container2.ParentElement:=myelement;\r\n  Container3.ParentElement:=myelement;\r\n  myelement:=container2.ElementHandle;\r\n  resultlabel.Caption:='Kundennummer';\r\n  resultlabel.ParentElement:=myelement;\r\n  edtsuchbegriff.ParentElement:=myelement;\r\n  TC.Visible:=false;\r\n  Kontaktnummer:='';\r\n  edtsuchbegriff.SetFocus;\r\nend;\r\n\r\nprocedure TfrmKontaktNummerSuche.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  ResultLabel := TLabel.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  TC := TTableControl.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  btnScan := TButton.Create(Self);\r\n  edtSuchbegriff := TEdit.Create(Self);\r\n  DataSet := TXDataWebDataSet.Create(Self);\r\n  DataSetKundennummer := TStringField.Create(Self);\r\n  DataSetNachname := TStringField.Create(Self);\r\n  DataSetVorname := TStringField.Create(Self);\r\n  DataSetAdresseBild := TStringField.Create(Self);\r\n  Source := TDataSource.Create(Self);\r\n\r\n  ResultLabel.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  TC.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  btnScan.BeforeLoadDFMValues;\r\n  edtSuchbegriff.BeforeLoadDFMValues;\r\n  DataSet.BeforeLoadDFMValues;\r\n  DataSetKundennummer.BeforeLoadDFMValues;\r\n  DataSetNachname.BeforeLoadDFMValues;\r\n  DataSetVorname.BeforeLoadDFMValues;\r\n  DataSetAdresseBild.BeforeLoadDFMValues;\r\n  Source.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'frmKontaktNummerSuche';\r\n    Width := 223;\r\n    Height := 376;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    ResultLabel.SetParentComponent(Self);\r\n    ResultLabel.Name := 'ResultLabel';\r\n    ResultLabel.Left := 114;\r\n    ResultLabel.Top := 231;\r\n    ResultLabel.Width := 60;\r\n    ResultLabel.Height := 15;\r\n    ResultLabel.Caption := 'ResultLabel';\r\n    ResultLabel.ElementClassName := 'h6 m-2';\r\n    ResultLabel.ElementFont := efCSS;\r\n    ResultLabel.ElementPosition := epIgnore;\r\n    ResultLabel.HeightStyle := ssAuto;\r\n    ResultLabel.HeightPercent := 100.000000000000000000;\r\n    ResultLabel.WidthStyle := ssPercent;\r\n    ResultLabel.WidthPercent := 100.000000000000000000;\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 2;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.Left := 0;\r\n    TC.Top := 141;\r\n    TC.Width := 169;\r\n    TC.Height := 79;\r\n    TC.ElementClassName := 'table table-hover table-bordered table-striped';\r\n    TC.HeightStyle := ssAuto;\r\n    TC.WidthStyle := ssPercent;\r\n    TC.BorderColor := clSilver;\r\n    TC.ChildOrder := 3;\r\n    TC.ColHeader := False;\r\n    TC.ElementFont := efCSS;\r\n    TC.ElementHeaderClassName := 'table-info';\r\n    TC.ElementPosition := epIgnore;\r\n    TC.ElementTableClassName := 'table table-hover table-bordered table-striped';\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 1;\r\n    TC.RowCount := 5;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 0;\r\n    btnzurueck.Top := 226;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    btnScan.SetParentComponent(Self);\r\n    btnScan.Name := 'btnScan';\r\n    btnScan.Left := 0;\r\n    btnScan.Top := 257;\r\n    btnScan.Width := 96;\r\n    btnScan.Height := 25;\r\n    btnScan.Caption := 'Bar-/QR-Code scannen';\r\n    btnScan.ChildOrder := 4;\r\n    btnScan.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnScan.ElementFont := efCSS;\r\n    btnScan.ElementPosition := epIgnore;\r\n    btnScan.HeightStyle := ssAuto;\r\n    btnScan.HeightPercent := 100.000000000000000000;\r\n    btnScan.WidthStyle := ssAuto;\r\n    btnScan.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnScan, Self, 'OnClick', 'btnScanClick');\r\n    edtSuchbegriff.SetParentComponent(Self);\r\n    edtSuchbegriff.Name := 'edtSuchbegriff';\r\n    edtSuchbegriff.Left := 8;\r\n    edtSuchbegriff.Top := 296;\r\n    edtSuchbegriff.Width := 150;\r\n    edtSuchbegriff.Height := 22;\r\n    edtSuchbegriff.ChildOrder := 6;\r\n    edtSuchbegriff.ElementClassName := 'form-control input-sm m-1';\r\n    edtSuchbegriff.ElementFont := efCSS;\r\n    edtSuchbegriff.ElementPosition := epIgnore;\r\n    edtSuchbegriff.HeightStyle := ssAuto;\r\n    edtSuchbegriff.HeightPercent := 100.000000000000000000;\r\n    edtSuchbegriff.ShowHint := True;\r\n    edtSuchbegriff.TextHint := 'Suchbegriff eingeben';\r\n    edtSuchbegriff.WidthPercent := 60.000000000000000000;\r\n    SetEvent(edtSuchbegriff, Self, 'OnChange', 'edtSuchbegriffChange');\r\n    DataSet.SetParentComponent(Self);\r\n    DataSet.Name := 'DataSet';\r\n    DataSet.AfterOpen := DataSetAfterOpen;\r\n    DataSet.EntitySetName := 'Adressen';\r\n    DataSet.Connection := DM2.XDataWebConnection1;\r\n    DataSet.QueryTop := 20;\r\n    DataSet.Left := 8;\r\n    DataSet.Top := 56;\r\n    DataSetKundennummer.SetParentComponent(DataSet);\r\n    DataSetKundennummer.Name := 'DataSetKundennummer';\r\n    DataSetKundennummer.FieldName := 'Kundennummer';\r\n    DataSetKundennummer.Required := True;\r\n    DataSetKundennummer.Size := 13;\r\n    DataSetNachname.SetParentComponent(DataSet);\r\n    DataSetNachname.Name := 'DataSetNachname';\r\n    DataSetNachname.FieldName := 'Nachname';\r\n    DataSetNachname.Required := True;\r\n    DataSetNachname.Size := 40;\r\n    DataSetVorname.SetParentComponent(DataSet);\r\n    DataSetVorname.Name := 'DataSetVorname';\r\n    DataSetVorname.FieldName := 'Vorname';\r\n    DataSetVorname.Size := 40;\r\n    DataSetAdresseBild.SetParentComponent(DataSet);\r\n    DataSetAdresseBild.Name := 'DataSetAdresseBild';\r\n    DataSetAdresseBild.FieldName := 'AdresseBild';\r\n    DataSetAdresseBild.Size := 255;\r\n    Source.SetParentComponent(Self);\r\n    Source.Name := 'Source';\r\n    Source.DataSet := DataSet;\r\n    Source.Left := 56;\r\n    Source.Top := 56;\r\n  finally\r\n    ResultLabel.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    TC.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    btnScan.AfterLoadDFMValues;\r\n    edtSuchbegriff.AfterLoadDFMValues;\r\n    DataSet.AfterLoadDFMValues;\r\n    DataSetKundennummer.AfterLoadDFMValues;\r\n    DataSetNachname.AfterLoadDFMValues;\r\n    DataSetVorname.AfterLoadDFMValues;\r\n    DataSetAdresseBild.AfterLoadDFMValues;\r\n    Source.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit unit_PZE;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, WEBLib.DBCtrls, WEBLib.Buttons, Vcl.Controls,\r\n  Vcl.StdCtrls, WEBLib.StdCtrls, WEBLib.ExtCtrls, Data.DB, strutils,\r\n  XData.Web.JsonDataset, XData.Web.Dataset, WEBLib.DB, WEBLib.Grids, dateutils,\r\n  Vcl.Grids, DB;\r\n\r\ntype\r\n  TPZE = class(TForm)\r\n    xdsSingleArbeitszeit: TXDataWebDataSet;\r\n    xdsSingleArbeitszeitID: TStringField;\r\n    sourceSingleArbeitszeit: TDataSource;\r\n    xdsSingleArbeitszeitPersonalnummer: TIntegerField;\r\n    xdsSingleArbeitszeitDatum: TDateTimeField;\r\n    xdsSingleArbeitszeitEintragsArt: TIntegerField;\r\n    xdsScan: TXDataWebDataSet;\r\n    sourceScan: TDataSource;\r\n    xdsScanPersonalnummer: TIntegerField;\r\n    xdsScanScanDatumZeit: TDateTimeField;\r\n    xdsScanDatum: TDateTimeField;\r\n    xdsScanScanArt: TIntegerField;\r\n    xdsScanObjektreferenz: TStringField;\r\n    xdsScanScanBegin: TDateTimeField;\r\n    xdsScanScanEnde: TDateTimeField;\r\n    xdsScanausgewertet: TBooleanField;\r\n    xdsScanAMS: TFloatField;\r\n    xdsScanStundenArt: TStringField;\r\n    xdsScanFAID: TXDataWebEntityField;\r\n    xdsScanID: TStringField;\r\n    panelfunktionen: TPanel;\r\n    btnAnmelden: TButton;\r\n    btnPauseBeginn: TButton;\r\n    btnPauseEnde: TButton;\r\n    btnAbmelden: TButton;\r\n    btnObjektBeginn: TButton;\r\n    btnObjektEnde: TButton;\r\n    btnErneutAnmelden: TButton;\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    btnzurueck: TButton;\r\n    lblstatus: TLabel;\r\n    lblPInfo: TLabel;\r\n    WebDBLabel2: TDBLabel;\r\n    TC: TTableControl;\r\n    xdsScanKundennummer: TStringField;\r\n    xdsScanAuftrag: TStringField;\r\n    xdsScanPAuftrag: TStringField;\r\n    xdsScanArbeitArt: TStringField;\r\n    xdsScanInfos: TStringField;\r\n    xdsScanDauerMinuten: TFloatField;\r\n    btnKontaktBeginn: TButton;\r\n    btnKontaktEnde: TButton;\r\n    xdsPZEEinstellungen: TXDataWebDataSet;\r\n    sourcePZEEinstellungen: TDataSource;\r\n    xdsPZEEinstellungenZuordnungObjekt: TIntegerField;\r\n    xdsPZEEinstellungenZuordnungKontakt: TIntegerField;\r\n    xdsPZEEinstellungenZuordnungAuftrag: TIntegerField;\r\n    xdsPZEEinstellungenZuordnungProduktion: TIntegerField;\r\n    btnAuftragBeginn: TButton;\r\n    btnAuftragEnde: TButton;\r\n    btnProduktionBeginn: TButton;\r\n    btnProduktionEnde: TButton;\r\n    panelArbeitsart: TPanel;\r\n    radioarbeitsart: TRadioGroup;\r\n    btnOK: TButton;\r\n    btnAbbrechen: TButton;\r\n    lblauswahlinfo: TLabel;\r\n    panelstundenart: TPanel;\r\n    lblauswahlobjekt: TLabel;\r\n    btnObjektOK: TButton;\r\n    btnObjektAbbrechen: TButton;\r\n    xdsStundenart: TXDataWebDataSet;\r\n    sourceStundenart: TDataSource;\r\n    xdsStundenartStundenArt: TStringField;\r\n    lookupstundenart: TComboBox;\r\n    xdsPZEEinstellungenAuswahlNurKontaktnummer: TIntegerField;\r\n    xdsScanKalkStundensatz: TFloatField;\r\n    xdsScanKalkKosten: TFloatField;\r\n    btnPauseVorgabe: TButton;\r\n    xdsSingleArbeitszeitSollPause: TDateTimeField;\r\n    xdsPZEEinstellungenPauseVorgabe: TIntegerField;\r\n    xdsPauseFix: TXDataWebDataSet;\r\n    xdsPauseFixFAID: TXDataWebEntityField;\r\n    xdsPauseFixID: TStringField;\r\n    xdsPauseFixPersonalnummer: TIntegerField;\r\n    xdsPauseFixScanDatumZeit: TDateTimeField;\r\n    xdsPauseFixDatum: TDateTimeField;\r\n    xdsPauseFixScanArt: TIntegerField;\r\n    xdsPauseFixObjektreferenz: TStringField;\r\n    xdsPauseFixScanBegin: TDateTimeField;\r\n    xdsPauseFixScanEnde: TDateTimeField;\r\n    xdsPauseFixausgewertet: TBooleanField;\r\n    xdsPauseFixAMS: TFloatField;\r\n    xdsPauseFixStundenArt: TStringField;\r\n    xdsPauseFixKundennummer: TStringField;\r\n    xdsPauseFixAuftrag: TStringField;\r\n    xdsPauseFixPAuftrag: TStringField;\r\n    xdsPauseFixArbeitArt: TStringField;\r\n    xdsPauseFixInfos: TStringField;\r\n    xdsPauseFixDauerMinuten: TFloatField;\r\n    xdsPauseFixKalkStundensatz: TFloatField;\r\n    xdsPauseFixKalkKosten: TFloatField;\r\n    lblAutoObjekt: TLabel;\r\n    lblAutoAuftrag: TLabel;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure xdsSingleArbeitszeitAfterOpen(DataSet: TDataSet);\r\n    procedure btnAnmeldenClick(Sender: TObject);\r\n    procedure xdsScanNewRecord(DataSet: TDataSet);\r\n    procedure btnPauseBeginnClick(Sender: TObject);\r\n    procedure btnPauseEndeClick(Sender: TObject);\r\n    procedure xdsScanAfterPost(DataSet: TDataSet);\r\n    procedure xdsScanAfterApplyUpdates(Sender: TDataSet; Info: TResolveResults);\r\n    procedure xdsScanAfterOpen(DataSet: TDataSet);\r\n    procedure btnAbmeldenClick(Sender: TObject);\r\n    procedure btnErneutAnmeldenClick(Sender: TObject);\r\n    procedure btnObjektEndeClick(Sender: TObject);\r\n    procedure btnObjektBeginnClick(Sender: TObject);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n    procedure xdsPZEEinstellungenAfterOpen(DataSet: TDataSet);\r\n    procedure btnKontaktEndeClick(Sender: TObject);\r\n    procedure btnKontaktBeginnClick(Sender: TObject);\r\n    procedure btnOKClick(Sender: TObject);\r\n    procedure btnAbbrechenClick(Sender: TObject);\r\n    procedure btnAuftragBeginnClick(Sender: TObject);\r\n    procedure btnAuftragEndeClick(Sender: TObject);\r\n    procedure btnProduktionEndeClick(Sender: TObject);\r\n    procedure btnProduktionBeginnClick(Sender: TObject);\r\n    procedure btnObjektAbbrechenClick(Sender: TObject);\r\n    procedure btnObjektOKClick(Sender: TObject);\r\n    procedure xdsStundenartAfterOpen(DataSet: TDataSet);\r\n    procedure btnPauseVorgabeClick(Sender: TObject);\r\n    procedure xdsPauseFixAfterApplyUpdates(Sender: TDataSet;\r\n      Info: TResolveResults);\r\n    procedure xdsPauseFixAfterOpen(DataSet: TDataSet);\r\n    procedure xdsPauseFixAfterPost(DataSet: TDataSet);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    procedure showstatus;\r\n    procedure kontaktsuche1;\r\n    procedure kontaktsuche2;\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  PZE: TPZE;\r\n  ftjahr,ftmonat,fttag,ftstunde,ftminute,ftsekunde,ftms:word;\r\n  fjjahr,fjmonat,fjtag,fjstunde,fjminute,fjsekunde,fjms:word;\r\n  datumohnezeit:string;\r\n  mytempdatumzeit:TDateTime;\r\n  myScanArt:integer;\r\n  myDoApply:integer;\r\n  myObjektReferenz:string;\r\n  myKontaktReferenz:string;\r\n  myAuftragReferenz:string;\r\n  myProduktionReferenz:string;\r\n  myInfos:string;\r\n  myArbeitArt:string;\r\n  myStundenart:string;\r\n  myPauseSoll:TDateTime;\r\n  myPauseVorgabe:integer;\r\n\r\n  //ScanArten\r\n  // 1=Anmelden\r\n  // 2=Pause\r\n  // 3=Pause Ende\r\n  // 4=Objekt\r\n  // 5=Objekt Ende\r\n  // 9=Abmelden\r\n  // 14=Kontakt\r\n  // 15=Kontak Ende\r\n  // 24=Auftrag\r\n  // 25=AuftragEnde\r\n  // 34=Produktion\r\n  // 35=ProduktionEnde\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_objektsuche, unit_Kontaktsuche, unit_AuftragSuche, unit_produktionSuche, unit_Kontaktnummersuche;\r\n{$R *.dfm}\r\n\r\nprocedure TPZE.btnAbbrechenClick(Sender: TObject);\r\nbegin\r\n  panelArbeitsart.Visible:=false;\r\n  showstatus;\r\nend;\r\n\r\nprocedure TPZE.btnAbmeldenClick(Sender: TObject);\r\nbegin\r\n  myDoApply:=0;\r\n  mytempdatumzeit:=date+time;\r\n  decodedatetime(mytempdatumzeit,ftjahr,ftmonat,fttag,ftstunde,ftminute,ftsekunde,ftms);\r\n  myScanArt:=9;\r\n  xdsscan.Last;\r\n  xdsscan.Edit;\r\n  xdsScanScanEnde.AsDateTime:=encodetime(ftstunde,ftminute,0,0);\r\n  xdsscan.Post;\r\n  myDoApply:=1;\r\n  xdsscan.Append;\r\nend;\r\n\r\nprocedure TPZE.btnAnmeldenClick(Sender: TObject);\r\nbegin\r\n  mytempdatumzeit:=date+time;\r\n  decodedatetime(mytempdatumzeit,ftjahr,ftmonat,fttag,ftstunde,ftminute,ftsekunde,ftms);\r\n  mydoapply:=1;\r\n  myscanart:=1;\r\n  xdsSCAN.Append;\r\nend;\r\n\r\nprocedure TPZE.btnAuftragBeginnClick(Sender: TObject);\r\nvar\r\n  LFrm:TfrmAuftragSuche;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmAuftragSuche;\r\n    begin\r\n      LForm:=(AForm as TfrmAuftragSuche);\r\n      lform.Auftragnummer:='';\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      if lfrm.Auftragnummer<>'' then\r\n      begin\r\n        myAuftragReferenz:=lfrm.Auftragnummer;\r\n        myInfos:=trim(lfrm.LUAuftragsbezeichnung);\r\n        myDoApply:=0;\r\n        myScanArt:=24;\r\n        panelfunktionen.Visible:=false;\r\n        panelArbeitsart.Visible:=true;\r\n        lblauswahlinfo.Caption:=myAuftragReferenz+' '+myinfos;\r\n\r\n      end;\r\n      if lfrm.Auftragnummer='' then\r\n      begin\r\n        showmessage('Der Vorgang wird abgebrochen, da Sie keinen Auftrag ausgewählt haben');\r\n      end;\r\n\r\n    end;\r\n\r\n  begin\r\n  LFrm:=TfrmAuftragSuche.CreateNew(@AfterCreate);\r\n // LFrm.Popup:=true;\r\n  LFrm.ShowModal(@AfterShowmodal);\r\nend;\r\n\r\nprocedure TPZE.btnAuftragEndeClick(Sender: TObject);\r\nbegin\r\n  myDoApply:=0;\r\n  mytempdatumzeit:=date+time;\r\n  decodedatetime(mytempdatumzeit,ftjahr,ftmonat,fttag,ftstunde,ftminute,ftsekunde,ftms);\r\n  myScanArt:=25;\r\n  xdsscan.Last;\r\n  xdsscan.Edit;\r\n  xdsScanScanEnde.AsDateTime:=encodetime(ftstunde,ftminute,0,0);\r\n  xdsScanDauerMinuten.AsFloat:=Minutesbetween(xdsScanScanBegin.AsDateTime,xdsScanScanEnde.AsDateTime);\r\n  xdsScanKalkStundensatz.AsFloat:=BenutzerStundensatzIntern;\r\n\r\n  try\r\n    xdsScanKalkKosten.AsFloat:=xdsScanKalkStundensatz.AsFloat/60*xdsScanDauerMinuten.AsFloat;\r\n  except\r\n\r\n  end;\r\n\r\n  xdsscan.Post;\r\n  myDoApply:=1;\r\n  xdsscan.Append;\r\nend;\r\n\r\nprocedure TPZE.btnErneutAnmeldenClick(Sender: TObject);\r\nbegin\r\n  myDoApply:=0;\r\n  mytempdatumzeit:=date+time;\r\n  decodedatetime(mytempdatumzeit,ftjahr,ftmonat,fttag,ftstunde,ftminute,ftsekunde,ftms);\r\n  myScanArt:=3;\r\n  xdsscan.Last;\r\n  xdsscan.Edit;\r\n  xdsScanScanEnde.AsDateTime:=encodetime(ftstunde,ftminute,0,0);\r\n  xdsScanScanArt.AsInteger:=2;\r\n  xdsscan.Post;\r\n  myDoApply:=1;\r\n  xdsscan.Append;\r\nend;\r\n\r\nprocedure TPZE.btnKontaktBeginnClick(Sender: TObject);\r\nbegin\r\n  if xdsPZEEinstellungenAuswahlNurKontaktnummer.AsInteger=0 then kontaktsuche1;\r\n  if xdsPZEEinstellungenAuswahlNurKontaktnummer.AsInteger=1 then kontaktsuche2;\r\nend;\r\n\r\nprocedure TPZE.btnKontaktEndeClick(Sender: TObject);\r\nbegin\r\n  myDoApply:=0;\r\n  mytempdatumzeit:=date+time;\r\n  decodedatetime(mytempdatumzeit,ftjahr,ftmonat,fttag,ftstunde,ftminute,ftsekunde,ftms);\r\n  myScanArt:=15;\r\n  xdsscan.Last;\r\n  xdsscan.Edit;\r\n  xdsScanScanEnde.AsDateTime:=encodetime(ftstunde,ftminute,0,0);\r\n  xdsScanDauerMinuten.AsFloat:=Minutesbetween(xdsScanScanBegin.AsDateTime,xdsScanScanEnde.AsDateTime);\r\n  xdsScanKalkStundensatz.AsFloat:=BenutzerStundensatzIntern;\r\n\r\n  try\r\n    xdsScanKalkKosten.AsFloat:=xdsScanKalkStundensatz.AsFloat/60*xdsScanDauerMinuten.AsFloat;\r\n  except\r\n\r\n  end;\r\n\r\n  xdsscan.Post;\r\n  myDoApply:=1;\r\n  xdsscan.Append;\r\nend;\r\n\r\nprocedure TPZE.btnObjektAbbrechenClick(Sender: TObject);\r\nbegin\r\n  panelstundenart.Visible:=false;\r\n  showstatus;\r\nend;\r\n\r\nprocedure TPZE.btnObjektBeginnClick(Sender: TObject);\r\nvar\r\n  LFrm:TfrmObjektsuche;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmObjektsuche;\r\n    begin\r\n      LForm:=(AForm as TfrmObjektsuche);\r\n      lform.Objektreferenz:='';\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      if lfrm.Objektreferenz<>'' then\r\n      begin\r\n        myobjektreferenz:=lfrm.Objektreferenz;\r\n        myinfos:=trim(lfrm.luObjektnummer+' '+lfrm.luObjektkurzbezeichnung);\r\n        myDoApply:=0;\r\n        mytempdatumzeit:=date+time;\r\n        decodedatetime(mytempdatumzeit,ftjahr,ftmonat,fttag,ftstunde,ftminute,ftsekunde,ftms);\r\n        myScanArt:=4;\r\n        panelfunktionen.Visible:=false;\r\n        panelstundenart.Visible:=true;\r\n        lookupstundenart.text:='[-]';\r\n        lblauswahlobjekt.Caption:=myobjektreferenz+' '+myinfos;\r\n\r\n      end;\r\n      if lfrm.Objektreferenz='' then\r\n      begin\r\n        showmessage('Der Vorgang wird abgebrochen, da Sie kein Objekt ausgewählt haben');\r\n      end;\r\n\r\n    end;\r\n\r\n  begin\r\n  LFrm:=TfrmObjektsuche.CreateNew(@AfterCreate);\r\n // LFrm.Popup:=true;\r\n  LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TPZE.btnObjektEndeClick(Sender: TObject);\r\nbegin\r\n  myDoApply:=0;\r\n  mytempdatumzeit:=date+time;\r\n  decodedatetime(mytempdatumzeit,ftjahr,ftmonat,fttag,ftstunde,ftminute,ftsekunde,ftms);\r\n  myScanArt:=5;\r\n  xdsscan.Last;\r\n  xdsscan.Edit;\r\n  xdsScanScanEnde.AsDateTime:=encodetime(ftstunde,ftminute,0,0);\r\n  xdsScanDauerMinuten.AsFloat:=Minutesbetween(xdsScanScanBegin.AsDateTime,xdsScanScanEnde.AsDateTime);\r\n  xdsscan.Post;\r\n  myDoApply:=1;\r\n  xdsscan.Append;\r\nend;\r\n\r\nprocedure TPZE.btnObjektOKClick(Sender: TObject);\r\nbegin\r\n  panelstundenart.Visible:=false;\r\n  mytempdatumzeit:=date+time;\r\n  myArbeitArt:='[-]';\r\n  mystundenart:=lookupstundenart.text;\r\n  decodedatetime(mytempdatumzeit,ftjahr,ftmonat,fttag,ftstunde,ftminute,ftsekunde,ftms);\r\n  xdsscan.Last;\r\n  xdsscan.Edit;\r\n  xdsScanScanEnde.AsDateTime:=encodetime(ftstunde,ftminute,0,0);\r\n  xdsscan.Post;\r\n  myDoApply:=1;\r\n  xdsscan.Append;\r\nend;\r\n\r\nprocedure TPZE.btnOKClick(Sender: TObject);\r\nbegin\r\n        panelArbeitsart.Visible:=false;\r\n        mytempdatumzeit:=date+time;\r\n        myArbeitArt:='[-]';\r\n        if radioarbeitsart.ItemIndex=1 then myArbeitArt:='Arbeitszeit';\r\n        if radioarbeitsart.ItemIndex=2 then myArbeitArt:='Fahrzeit';\r\n\r\n\r\n        decodedatetime(mytempdatumzeit,ftjahr,ftmonat,fttag,ftstunde,ftminute,ftsekunde,ftms);\r\n\r\n        xdsscan.Last;\r\n        xdsscan.Edit;\r\n        xdsScanScanEnde.AsDateTime:=encodetime(ftstunde,ftminute,0,0);\r\n        xdsscan.Post;\r\n        myDoApply:=1;\r\n        xdsscan.Append;\r\nend;\r\n\r\nprocedure TPZE.btnPauseBeginnClick(Sender: TObject);\r\nbegin\r\n  myDoApply:=0;\r\n  mytempdatumzeit:=date+time;\r\n  decodedatetime(mytempdatumzeit,ftjahr,ftmonat,fttag,ftstunde,ftminute,ftsekunde,ftms);\r\n  myScanArt:=2;\r\n  xdsscan.Last;\r\n  xdsscan.Edit;\r\n  xdsScanScanEnde.AsDateTime:=encodetime(ftstunde,ftminute,0,0);\r\n  xdsscan.Post;\r\n  myDoApply:=1;\r\n  myInfos:='Pause';\r\n  myPauseVorgabe:=0;\r\n  xdsscan.Append;\r\nend;\r\n\r\nprocedure TPZE.btnPauseEndeClick(Sender: TObject);\r\nbegin\r\n  myDoApply:=0;\r\n  mytempdatumzeit:=date+time;\r\n  decodedatetime(mytempdatumzeit,ftjahr,ftmonat,fttag,ftstunde,ftminute,ftsekunde,ftms);\r\n  myScanArt:=3;\r\n  xdsscan.Last;\r\n  xdsscan.Edit;\r\n  xdsScanScanEnde.AsDateTime:=encodetime(ftstunde,ftminute,0,0);\r\n  xdsScanDauerMinuten.AsFloat:=Minutesbetween(xdsScanScanBegin.AsDateTime,xdsScanScanEnde.AsDateTime);\r\n  xdsscan.Post;\r\n  myDoApply:=1;\r\n  xdsscan.Append;\r\nend;\r\n\r\nprocedure TPZE.btnPauseVorgabeClick(Sender: TObject);\r\nbegin\r\n  xdsPauseFix.Load;\r\nend;\r\n\r\nprocedure TPZE.btnProduktionBeginnClick(Sender: TObject);\r\nvar\r\n  LFrm:TfrmProduktionSuche;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmProduktionSuche;\r\n    begin\r\n      LForm:=(AForm as TfrmProduktionSuche);\r\n      lform.Produktionnummer:='';\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      if lfrm.Produktionnummer<>'' then\r\n      begin\r\n        myProduktionReferenz:=lfrm.Produktionnummer;\r\n        myInfos:=trim(lfrm.LUAuftragsbezeichnung);\r\n        myDoApply:=0;\r\n        myScanArt:=34;\r\n        mytempdatumzeit:=date+time;\r\n        myArbeitArt:='[-]';\r\n        decodedatetime(mytempdatumzeit,ftjahr,ftmonat,fttag,ftstunde,ftminute,ftsekunde,ftms);\r\n        xdsscan.Last;\r\n        xdsscan.Edit;\r\n        xdsScanScanEnde.AsDateTime:=encodetime(ftstunde,ftminute,0,0);\r\n        xdsscan.Post;\r\n        myDoApply:=1;\r\n        xdsscan.Append;\r\n\r\n      end;\r\n      if lfrm.Produktionnummer='' then\r\n      begin\r\n        showmessage('Der Vorgang wird abgebrochen, da Sie keinen Produktions-Auftrag ausgewählt haben');\r\n      end;\r\n\r\n    end;\r\n\r\n  begin\r\n  LFrm:=TfrmProduktionSuche.CreateNew(@AfterCreate);\r\n // LFrm.Popup:=true;\r\n  LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TPZE.btnProduktionEndeClick(Sender: TObject);\r\nbegin\r\n  myDoApply:=0;\r\n  mytempdatumzeit:=date+time;\r\n  decodedatetime(mytempdatumzeit,ftjahr,ftmonat,fttag,ftstunde,ftminute,ftsekunde,ftms);\r\n  myScanArt:=35;\r\n  xdsscan.Last;\r\n  xdsscan.Edit;\r\n  xdsScanScanEnde.AsDateTime:=encodetime(ftstunde,ftminute,0,0);\r\n  xdsScanDauerMinuten.AsFloat:=Minutesbetween(xdsScanScanBegin.AsDateTime,xdsScanScanEnde.AsDateTime);\r\n  xdsScanKalkStundensatz.AsFloat:=BenutzerStundensatzIntern;\r\n\r\n  try\r\n    xdsScanKalkKosten.AsFloat:=xdsScanKalkStundensatz.AsFloat/60*xdsScanDauerMinuten.AsFloat;\r\n  except\r\n\r\n  end;\r\n\r\n  xdsscan.Post;\r\n  myDoApply:=1;\r\n  xdsscan.Append;\r\nend;\r\n\r\nprocedure TPZE.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  self.Close;\r\nend;\r\n\r\nprocedure TPZE.showstatus;\r\nbegin\r\n  xdsscan.Close;\r\n  xdsPZEEinstellungen.Close;\r\n  xdsPZEEinstellungen.Load;\r\nend;\r\n\r\nprocedure TPZE.WebFormShow(Sender: TObject);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>PZE-Zeiterfassung</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  lblpinfo.ParentElement:=myelement;\r\n  webdblabel2.ParentElement:=myelement;\r\n  lblstatus.ParentElement:=myelement;\r\n  lblAutoObjekt.ParentElement:=myelement;\r\n  lblAutoAuftrag.ParentElement:=myelement;\r\n  myelement:=container2.ElementHandle;\r\n  panelfunktionen.ParentElement:=myelement;\r\n  panelarbeitsart.ParentElement:=myelement;\r\n  panelstundenart.ParentElement:=myelement;\r\n  lblpinfo.Caption:=BenutzerPersonalnummer+' '+BenutzerVorname+' '+BenutzerNachname;\r\n  panelarbeitsart.Visible:=false;\r\n  panelstundenart.Visible:=false;\r\n  myDoApply:=0;\r\n  showstatus;\r\n\r\nend;\r\n\r\nprocedure TPZE.xdsPauseFixAfterApplyUpdates(Sender: TDataSet;\r\n  Info: TResolveResults);\r\n  var\r\n  i:integer;\r\nbegin\r\n  for i := 0 to High(info.Records) do\r\n  begin\r\n    if info.Records[i].Error<>'' then showmessage(info.Records[i].Error);\r\n  end;\r\n  showstatus;\r\nend;\r\n\r\nprocedure TPZE.xdsPauseFixAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  myDoApply:=0;\r\n  mytempdatumzeit:=date+time;\r\n  decodedatetime(mytempdatumzeit,ftjahr,ftmonat,fttag,ftstunde,ftminute,ftsekunde,ftms);\r\n  xdsPauseFix.Last;\r\n  xdsPauseFix.Edit;\r\n  xdsPauseFixScanEnde.AsDateTime:=encodetime(ftstunde,ftminute,0,0);\r\n  xdsPauseFix.Post;\r\n  xdsPauseFix.Append;\r\n\r\n  xdsPauseFixFAID.Value:=xdsSingleArbeitszeit.CurrentData;\r\n  xdsPauseFixPersonalnummer.AsString:=Benutzerpersonalnummer;\r\n  xdsPauseFixScanDatumZeit.AsDateTime:=mytempdatumzeit;\r\n  xdsPauseFixDatum.AsDateTime:=encodedate(ftjahr,ftmonat,fttag);\r\n  xdsPauseFixScanArt.AsInteger:=2;\r\n  xdsPauseFixScanBegin.AsDateTime:=encodetime(ftstunde,ftminute,0,0);\r\n  xdsPauseFixausgewertet.AsBoolean:=false;\r\n  xdsPauseFixAMS.AsFloat:=ftms;\r\n  xdsPauseFixObjektreferenz.AsString:='';\r\n  xdsPauseFixKundennummer.AsString:='';\r\n  xdsPauseFixAuftrag.AsString:='';\r\n  xdsPauseFixPAuftrag.AsString:='';\r\n  xdsPauseFixStundenArt.AsString:='[-]';\r\n  xdsPauseFixArbeitArt.AsString:='[-]';\r\n  xdsPauseFixDauerMinuten.AsFloat:=0;\r\n  xdsPauseFixInfos.AsString:='Pause';\r\n  xdsPauseFixKalkStundensatz.AsFloat:=0;\r\n  xdsPauseFixKalkKosten.AsFloat:=0;\r\n  xdsPauseFixScanEnde.AsDateTime:=encodetime(ftstunde,ftminute,0,0)+myPauseSoll;\r\n  xdsPauseFixDauerMinuten.AsFloat:=Minutesbetween(xdsPauseFixScanBegin.AsDateTime,xdsPauseFixScanEnde.AsDateTime);\r\n  myDoApply:=0;\r\n  xdsPauseFix.Post;\r\n  xdsPauseFix.Append;\r\n  xdsPauseFixFAID.Value:=xdsSingleArbeitszeit.CurrentData;\r\n  xdsPauseFixPersonalnummer.AsString:=Benutzerpersonalnummer;\r\n  xdsPauseFixScanDatumZeit.AsDateTime:=mytempdatumzeit+myPauseSoll;\r\n  xdsPauseFixDatum.AsDateTime:=encodedate(ftjahr,ftmonat,fttag);\r\n  xdsPauseFixScanArt.AsInteger:=3;\r\n  xdsPauseFixScanBegin.AsDateTime:=encodetime(ftstunde,ftminute,0,0)+myPauseSoll;\r\n  xdsPauseFixausgewertet.AsBoolean:=false;\r\n  xdsPauseFixAMS.AsFloat:=ftms+1;\r\n  xdsPauseFixObjektreferenz.AsString:='';\r\n  xdsPauseFixKundennummer.AsString:='';\r\n  xdsPauseFixAuftrag.AsString:='';\r\n  xdsPauseFixPAuftrag.AsString:='';\r\n  xdsPauseFixStundenArt.AsString:='[-]';\r\n  xdsPauseFixArbeitArt.AsString:='[-]';\r\n  xdsPauseFixDauerMinuten.AsFloat:=0;\r\n  xdsPauseFixInfos.AsString:='';\r\n  xdsPauseFixKalkStundensatz.AsFloat:=0;\r\n  xdsPauseFixKalkKosten.AsFloat:=0;\r\n  xdsPauseFixDauerMinuten.AsFloat:=0;\r\n  myDoApply:=1;\r\n  xdsPauseFix.Post;\r\n\r\nend;\r\n\r\nprocedure TPZE.xdsPauseFixAfterPost(DataSet: TDataSet);\r\nbegin\r\n  if myDoApply=1 then xdsPauseFix.ApplyUpdates;\r\nend;\r\n\r\nprocedure TPZE.xdsPZEEinstellungenAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  xdsstundenart.Close;\r\n  xdsstundenart.load;\r\nend;\r\n\r\nprocedure TPZE.xdsScanAfterApplyUpdates(Sender: TDataSet;\r\n  Info: TResolveResults);\r\n  var\r\n  i:integer;\r\nbegin\r\n  for i := 0 to High(info.Records) do\r\n  begin\r\n    if info.Records[i].Error<>'' then showmessage(info.Records[i].Error);\r\n  end;\r\n  showstatus;\r\nend;\r\n\r\nprocedure TPZE.xdsScanAfterOpen(DataSet: TDataSet);\r\nvar\r\n  i:integer;\r\n  infostext:string;\r\nbegin\r\n  xdsscan.First;\r\n  tc.RowCount:=xdsscan.RecordCount+1;\r\n  tc.ColCount:=6;\r\n  i:=0;\r\n  tc.Cells[0,i]:='DatumZeit';\r\n  tc.Cells[1,i]:='Beginn';\r\n  tc.Cells[2,i]:='Ende';\r\n  tc.Cells[3,i]:='Minuten';\r\n  tc.Cells[4,i]:='Infos';\r\n\r\n  while not xdsscan.eof do\r\n  begin\r\n    inc(i);\r\n    tc.Cells[0,i]:=formatdatetime('DD.MM.YYYY hh:mm:ss', xdsScanScanDatumZeit.asdatetime);\r\n    tc.Cells[1,i]:=formatdatetime('hh:mm:ss', xdsScanScanBegin.asdatetime);\r\n    tc.Cells[2,i]:=formatdatetime('hh:mm:ss', xdsScanScanEnde.asdatetime);\r\n    tc.Cells[3,i]:=xdsScanDauerMinuten.asstring;\r\n    infostext:='';\r\n    if xdsScanScanArt.AsInteger=2 then\r\n    begin\r\n      infostext:='Pause';\r\n    end;\r\n    if xdsScanScanArt.AsInteger=4 then\r\n    begin\r\n      infostext:='Objekt: '+xdsScanObjektreferenz.AsString+' '+xdsScanInfos.AsString+ ' ('+xdsScanStundenArt.asstring+')';\r\n    end;\r\n    if xdsScanScanArt.AsInteger=5 then\r\n    begin\r\n      infostext:='';\r\n    end;\r\n    if xdsScanScanArt.AsInteger=9 then\r\n    begin\r\n      infostext:='abgemeldet';\r\n    end;\r\n    if xdsScanScanArt.AsInteger=14 then\r\n    begin\r\n      infostext:='Kontakt: '+xdsScanKundennummer.AsString+' '+xdsScanInfos.AsString+ ' ('+xdsScanArbeitArt.asstring+')';\r\n    end;\r\n    if xdsScanScanArt.AsInteger=15 then\r\n    begin\r\n      infostext:='';\r\n    end;\r\n    if xdsScanScanArt.AsInteger=24 then\r\n    begin\r\n      infostext:='Auftrag: '+xdsScanAuftrag.AsString+' '+xdsScanInfos.AsString+ ' ('+xdsScanArbeitArt.asstring+')';\r\n    end;\r\n    if xdsScanScanArt.AsInteger=25 then\r\n    begin\r\n      infostext:='';\r\n    end;\r\n    if xdsScanScanArt.AsInteger=34 then\r\n    begin\r\n      infostext:='Produktion: '+xdsScanPAuftrag.AsString+' '+xdsScanInfos.AsString+ ' ('+xdsScanArbeitArt.asstring+')';\r\n    end;\r\n    if xdsScanScanArt.AsInteger=35 then\r\n    begin\r\n      infostext:='';\r\n    end;\r\n\r\n    tc.Cells[4,i]:=infostext;\r\n\r\n    xdsscan.Next;\r\n  end;\r\n\r\n  decodedatetime(date+time,fjjahr,fjmonat,fjtag,fjstunde,fjminute,fjsekunde,fjms);\r\n  xdsscan.last;\r\n  panelArbeitsart.Visible:=false;\r\n  panelstundenart.Visible:=false;\r\n  panelfunktionen.Visible:=true;\r\n  btnanmelden.Visible:=false;\r\n  btnabmelden.Visible:=false;\r\n  btnPauseBeginn.Visible:=false;\r\n  btnpauseende.Visible:=false;\r\n  btnPauseVorgabe.Visible:=false;\r\n  btnobjektbeginn.Visible:=false;\r\n  btnobjektende.Visible:=false;\r\n  btnErneutAnmelden.Visible:=false;\r\n  btnKontaktBeginn.Visible:=false;\r\n  btnKontaktEnde.Visible:=false;\r\n  btnAuftragBeginn.Visible:=false;\r\n  btnAuftragEnde.visible:=false;\r\n  btnProduktionBeginn.Visible:=false;\r\n  btnProduktionEnde.Visible:=false;\r\n  if xdsScanScanArt.AsString='' then\r\n  begin\r\n    btnAnmelden.Visible:=true;\r\n    lblstatus.Caption:='Sie haben sich heute noch nicht angemeldet';\r\n  end;\r\n  if xdsScanScanArt.AsInteger=1 then\r\n  begin\r\n    btnabmelden.visible:=true;\r\n    btnPauseBeginn.visible:=true;\r\n    btnObjektBeginn.visible:=true;\r\n    btnKontaktBeginn.Visible:=true;\r\n    btnAuftragBeginn.Visible:=true;\r\n    btnProduktionBeginn.Visible:=true;\r\n    lblstatus.Caption:='Sie sind in der Zeiterfassung angemeldet';\r\n  end;\r\n\r\n  if xdsScanScanArt.AsInteger=2 then\r\n  begin\r\n    btnPauseEnde.Visible:=true;\r\n    lblstatus.Caption:='Sie sind momentan in einer Pause';\r\n  end;\r\n\r\n  if xdsScanScanArt.AsInteger=3 then\r\n  begin\r\n    btnabmelden.visible:=true;\r\n    btnPauseBeginn.visible:=true;\r\n    btnObjektBeginn.visible:=true;\r\n    btnKontaktBeginn.Visible:=true;\r\n    btnAuftragBeginn.Visible:=true;\r\n    btnProduktionBeginn.Visible:=true;\r\n    lblstatus.Caption:='Pause beendet';\r\n  end;\r\n\r\n  if xdsScanScanArt.AsInteger=4 then\r\n  begin\r\n    btnObjektEnde.visible:=true;\r\n    lblstatus.Caption:='Objekt: '+xdsSCANObjektreferenz.AsString+' '+xdsSCANInfos.asstring+ ' ('+xdsScanStundenArt.asstring+')';\r\n  end;\r\n\r\n  if xdsScanScanArt.AsInteger=5 then\r\n  begin\r\n    btnabmelden.visible:=true;\r\n    btnPauseBeginn.visible:=true;\r\n    btnObjektBeginn.visible:=true;\r\n    btnKontaktBeginn.Visible:=true;\r\n    btnAuftragBeginn.Visible:=true;\r\n    btnProduktionBeginn.Visible:=true;\r\n    lblstatus.Caption:='Objekt beendet';\r\n  end;\r\n\r\n  if xdsScanScanArt.AsInteger=14 then\r\n  begin\r\n    lblstatus.Caption:='Kontakt: '+xdsSCANKundennummer.AsString+' ('+xdsSCANArbeitArt.asstring+') '+xdsSCANInfos.asstring;\r\n    btnKontaktEnde.Visible:=true;\r\n  end;\r\n\r\n  if xdsScanScanArt.AsInteger=15 then\r\n  begin\r\n    lblstatus.Caption:='Kontakt beendet';\r\n    btnabmelden.visible:=true;\r\n    btnPauseBeginn.visible:=true;\r\n    btnObjektBeginn.visible:=true;\r\n    btnKontaktBeginn.Visible:=true;\r\n    btnAuftragBeginn.Visible:=true;\r\n    btnProduktionBeginn.Visible:=true;\r\n  end;\r\n\r\n  if xdsScanScanArt.AsInteger=24 then\r\n  begin\r\n    lblstatus.Caption:='Auftrag: '+xdsScanAuftrag.AsString+' ('+xdsSCANArbeitArt.asstring+') '+xdsSCANInfos.asstring;\r\n    btnAuftragEnde.Visible:=true;\r\n  end;\r\n\r\n  if xdsScanScanArt.AsInteger=25 then\r\n  begin\r\n    lblstatus.Caption:='Auftrag beendet';\r\n    btnabmelden.visible:=true;\r\n    btnPauseBeginn.visible:=true;\r\n    btnObjektBeginn.visible:=true;\r\n    btnKontaktBeginn.Visible:=true;\r\n    btnAuftragBeginn.Visible:=true;\r\n    btnProduktionBeginn.Visible:=true;\r\n  end;\r\n\r\n  if xdsScanScanArt.AsInteger=34 then\r\n  begin\r\n    lblstatus.Caption:='Produktion: '+xdsScanPAuftrag.AsString+' '+xdsSCANInfos.asstring;\r\n    btnProduktionEnde.Visible:=true;\r\n  end;\r\n\r\n  if xdsScanScanArt.AsInteger=35 then\r\n  begin\r\n    lblstatus.Caption:='Produktion beendet';\r\n    btnabmelden.visible:=true;\r\n    btnPauseBeginn.visible:=true;\r\n    btnObjektBeginn.visible:=true;\r\n    btnKontaktBeginn.Visible:=true;\r\n    btnAuftragBeginn.Visible:=true;\r\n    btnProduktionBeginn.Visible:=true;\r\n  end;\r\n\r\n  if xdsScanScanArt.AsInteger=9 then\r\n  begin\r\n    lblstatus.Caption:='Sie haben sich für heute bereits abgemeldet';\r\n    btnErneutAnmelden.Visible:=true;\r\n  end;\r\n  if xdsPZEEinstellungenZuordnungObjekt.AsInteger<>1 then btnObjektBeginn.Visible:=false;\r\n  if xdsPZEEinstellungenZuordnungKontakt.AsInteger<>1 then btnKontaktBeginn.Visible:=false;\r\n  if xdsPZEEinstellungenZuordnungAuftrag.AsInteger<>1 then btnAuftragBeginn.Visible:=false;\r\n  if xdsPZEEinstellungenZuordnungProduktion.AsInteger<>1 then btnProduktionBeginn.Visible:=false;\r\n  if xdsPZEEinstellungenPauseVorgabe.AsInteger=1 then btnPauseVorgabe.Visible:=btnPauseBeginn.Visible;\r\n\r\n  if xdsScanScanBegin.Asdatetime>encodetime(fjstunde,fjminute,0,0) then\r\n  begin\r\n    btnanmelden.visible:=false;\r\n    btnPauseBeginn.visible:=false;\r\n    btnPauseEnde.visible:=false;\r\n    btnObjektBeginn.visible:=false;\r\n    btnObjektEnde.visible:=false;\r\n    btnabmelden.visible:=false;\r\n    btnErneutAnmelden.Visible:=false;\r\n    btnKontaktBeginn.Visible:=false;\r\n    btnKontaktEnde.Visible:=false;\r\n    btnProduktionBeginn.Visible:=false;\r\n    btnProduktionEnde.Visible:=false;\r\n    btnAuftragBeginn.Visible:=false;\r\n    btnAuftragEnde.Visible:=false;\r\n    btnPauseVorgabe.Visible:=false;\r\n    lblstatus.Caption:='Sie sind noch in einer Pause';\r\n  end;\r\n  //automatisch von bisheriger Tätigkeit abmelden w/Herkunft aus Auftrag\r\n\r\n  if (PZE_AutoObjektnummer<>'') OR (PZE_AutoAuftragnummer<>'') then\r\n  begin\r\n     if xdsScanScanArt.AsInteger=24 then btnAuftragEndeClick(nil);\r\n     if xdsscanscanart.AsInteger=14 then btnKontaktEndeClick(nil);\r\n     if xdsscanscanart.AsInteger=2 then btnPauseEndeClick(nil);\r\n     if xdsscanscanart.AsInteger=4 then btnObjektEndeClick(nil);\r\n     if xdsScanScanArt.AsInteger=34 then btnProduktionEndeClick(nil);\r\n  end;\r\n  lblAutoObjekt.Caption:=PZE_AutoObjektnummer;\r\n  lblAutoAuftrag.Caption:=PZE_AutoAuftragnummer;\r\n\r\nend;\r\n\r\nprocedure TPZE.xdsScanAfterPost(DataSet: TDataSet);\r\nbegin\r\n  if myDoApply=1 then xdsScan.ApplyUpdates;\r\n\r\nend;\r\n\r\nprocedure TPZE.xdsScanNewRecord(DataSet: TDataSet);\r\nbegin\r\n  xdsScanFAID.Value:=xdsSingleArbeitszeit.CurrentData;\r\n  xdsSCANPersonalnummer.AsString:=Benutzerpersonalnummer;\r\n  xdsScanScanDatumZeit.AsDateTime:=date+time;\r\n  xdsSCANDatum.AsDateTime:=encodedate(ftjahr,ftmonat,fttag);\r\n  xdsSCANScanArt.AsInteger:=myScanArt;\r\n  xdsSCANScanBegin.AsDateTime:=encodetime(ftstunde,ftminute,0,0);\r\n  xdsScanausgewertet.AsBoolean:=false;\r\n  xdsScanAMS.AsFloat:=ftms;\r\n  xdsScanObjektreferenz.AsString:=myObjektReferenz;\r\n  xdsScanKundennummer.AsString:=myKontaktReferenz;\r\n  xdsScanAuftrag.AsString:=myAuftragReferenz;\r\n  xdsScanPAuftrag.AsString:=myProduktionReferenz;\r\n  xdsScanStundenArt.AsString:=mystundenart;\r\n  xdsScanArbeitArt.AsString:=myArbeitArt;\r\n  xdsScanDauerMinuten.AsFloat:=0;\r\n  xdsScanInfos.AsString:=myInfos;\r\n  xdsScanKalkStundensatz.AsFloat:=0;\r\n  xdsScanKalkKosten.AsFloat:=0;\r\n  myObjektReferenz:='';\r\n  myKontaktReferenz:='';\r\n  myArbeitArt:='[-]';\r\n  myProduktionReferenz:='';\r\n  myAuftragReferenz:='';\r\n  mystundenart:='[-]';\r\n  myInfos:='';\r\n\r\n  xdsscan.Post;\r\nend;\r\n\r\nprocedure TPZE.xdsSingleArbeitszeitAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  if xdsSingleArbeitszeit.RecordCount<1 then\r\n  begin\r\n    showmessage('CadiaPZE scheint für Sie nicht eingerichtet zu sein, sprechen Sie bitte Ihren Administrator an');\r\n  end\r\n  else\r\n  begin\r\n    myPauseSoll:=xdsSingleArbeitszeitSollPause.AsDateTime;\r\n    btnPauseVorgabe.Caption:='Pause FIX '+formatdatetime('hh:mm',myPauseSoll);\r\n    xdsPauseFix.Close;\r\n    xdsPauseFix.QueryString:='$filter=FAID eq '+ xdsSingleArbeitszeitID.AsString+' &$orderby=ScanDatumZeit,ams';\r\n    xdsScan.Close;\r\n    xdsscan.QueryString:='$filter=FAID eq '+ xdsSingleArbeitszeitID.AsString+' &$orderby=ScanDatumZeit,ams';\r\n    xdsscan.load;\r\n  end;\r\nend;\r\n\r\nprocedure TPZE.xdsStundenartAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  lookupstundenart.Items.Clear;\r\n  xdsStundenart.First;\r\n  while not xdsstundenart.eof do\r\n  begin\r\n    lookupstundenart.Items.Add(xdsStundenartStundenArt.asstring);\r\n    xdsstundenart.Next;\r\n  end;\r\n\r\n  xdsSingleArbeitszeit.Close;\r\n  xdssingleArbeitszeit.QueryString:='$filter=(EintragsArt eq 0) AND (Personalnummer eq '+Benutzerpersonalnummer+') AND (Datum eq '+formatdatetime('yyyy-mm-dd',date)+')';\r\n  xdsSingleArbeitszeit.load;\r\nend;\r\n\r\n\r\nprocedure TPZE.kontaktsuche1;\r\nvar\r\n  LFrm:TfrmKontaktsuche;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmKontaktsuche;\r\n    begin\r\n      LForm:=(AForm as TfrmKontaktsuche);\r\n      lform.Kontaktnummer:='';\r\n      lform.weiterzuEinzelkontakt:=false;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      if lfrm.Kontaktnummer<>'' then\r\n      begin\r\n        myKontaktReferenz:=lfrm.kontaktnummer;\r\n        myInfos:=trim(lfrm.LUVorname+' '+lfrm.LUNachname);\r\n        myDoApply:=0;\r\n        myScanArt:=14;\r\n        panelfunktionen.Visible:=false;\r\n        panelArbeitsart.Visible:=true;\r\n        lblauswahlinfo.Caption:=mykontaktreferenz+' '+myinfos;\r\n\r\n      end;\r\n      if lfrm.kontaktnummer='' then\r\n      begin\r\n        showmessage('Der Vorgang wird abgebrochen, da Sie keinen Kontakt ausgewählt haben');\r\n      end;\r\n\r\n    end;\r\n\r\n  begin\r\n  LFrm:=TfrmKontaktsuche.CreateNew(@AfterCreate);\r\n // LFrm.Popup:=true;\r\n  LFrm.ShowModal(@AfterShowmodal);\r\n\r\n  end;\r\n\r\nprocedure TPZE.kontaktsuche2;\r\nvar\r\n  LFrm:TfrmKontaktNummerSuche;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmKontaktNummerSuche;\r\n    begin\r\n      LForm:=(AForm as TfrmKontaktNummerSuche);\r\n      lform.Kontaktnummer:='';\r\n      lform.weiterzuEinzelkontakt:=false;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      if lfrm.Kontaktnummer<>'' then\r\n      begin\r\n        myKontaktReferenz:=lfrm.kontaktnummer;\r\n        myInfos:=trim(lfrm.LUVorname+' '+lfrm.LUNachname);\r\n        myDoApply:=0;\r\n        myScanArt:=14;\r\n        panelfunktionen.Visible:=false;\r\n        panelArbeitsart.Visible:=true;\r\n        lblauswahlinfo.Caption:=mykontaktreferenz+' '+myinfos;\r\n\r\n      end;\r\n      if lfrm.kontaktnummer='' then\r\n      begin\r\n        showmessage('Der Vorgang wird abgebrochen, da Sie keinen Kontakt ausgewählt haben');\r\n      end;\r\n\r\n    end;\r\n\r\n  begin\r\n  LFrm:=TfrmKontaktNummerSuche.CreateNew(@AfterCreate);\r\n // LFrm.Popup:=true;\r\n  LFrm.ShowModal(@AfterShowmodal);\r\n\r\n  end;\r\n\r\nprocedure TPZE.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  lblstatus := TLabel.Create(Self);\r\n  lblPInfo := TLabel.Create(Self);\r\n  WebDBLabel2 := TDBLabel.Create(Self);\r\n  lblAutoObjekt := TLabel.Create(Self);\r\n  lblAutoAuftrag := TLabel.Create(Self);\r\n  panelfunktionen := TPanel.Create(Self);\r\n  btnAnmelden := TButton.Create(Self);\r\n  btnPauseBeginn := TButton.Create(Self);\r\n  btnPauseEnde := TButton.Create(Self);\r\n  btnAbmelden := TButton.Create(Self);\r\n  btnObjektBeginn := TButton.Create(Self);\r\n  btnObjektEnde := TButton.Create(Self);\r\n  btnErneutAnmelden := TButton.Create(Self);\r\n  btnKontaktBeginn := TButton.Create(Self);\r\n  btnKontaktEnde := TButton.Create(Self);\r\n  btnAuftragBeginn := TButton.Create(Self);\r\n  btnAuftragEnde := TButton.Create(Self);\r\n  btnProduktionBeginn := TButton.Create(Self);\r\n  btnProduktionEnde := TButton.Create(Self);\r\n  btnPauseVorgabe := TButton.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  TC := TTableControl.Create(Self);\r\n  panelArbeitsart := TPanel.Create(Self);\r\n  lblauswahlinfo := TLabel.Create(Self);\r\n  radioarbeitsart := TRadioGroup.Create(Self);\r\n  btnOK := TButton.Create(Self);\r\n  btnAbbrechen := TButton.Create(Self);\r\n  panelstundenart := TPanel.Create(Self);\r\n  lblauswahlobjekt := TLabel.Create(Self);\r\n  btnObjektOK := TButton.Create(Self);\r\n  btnObjektAbbrechen := TButton.Create(Self);\r\n  lookupstundenart := TComboBox.Create(Self);\r\n  xdsSingleArbeitszeit := TXDataWebDataSet.Create(Self);\r\n  xdsSingleArbeitszeitID := TStringField.Create(Self);\r\n  xdsSingleArbeitszeitPersonalnummer := TIntegerField.Create(Self);\r\n  xdsSingleArbeitszeitDatum := TDateTimeField.Create(Self);\r\n  xdsSingleArbeitszeitEintragsArt := TIntegerField.Create(Self);\r\n  xdsSingleArbeitszeitSollPause := TDateTimeField.Create(Self);\r\n  sourceSingleArbeitszeit := TDataSource.Create(Self);\r\n  xdsScan := TXDataWebDataSet.Create(Self);\r\n  xdsScanPersonalnummer := TIntegerField.Create(Self);\r\n  xdsScanScanDatumZeit := TDateTimeField.Create(Self);\r\n  xdsScanDatum := TDateTimeField.Create(Self);\r\n  xdsScanScanArt := TIntegerField.Create(Self);\r\n  xdsScanObjektreferenz := TStringField.Create(Self);\r\n  xdsScanScanBegin := TDateTimeField.Create(Self);\r\n  xdsScanScanEnde := TDateTimeField.Create(Self);\r\n  xdsScanausgewertet := TBooleanField.Create(Self);\r\n  xdsScanAMS := TFloatField.Create(Self);\r\n  xdsScanStundenArt := TStringField.Create(Self);\r\n  xdsScanFAID := TXDataWebEntityField.Create(Self);\r\n  xdsScanID := TStringField.Create(Self);\r\n  xdsScanKundennummer := TStringField.Create(Self);\r\n  xdsScanAuftrag := TStringField.Create(Self);\r\n  xdsScanPAuftrag := TStringField.Create(Self);\r\n  xdsScanArbeitArt := TStringField.Create(Self);\r\n  xdsScanInfos := TStringField.Create(Self);\r\n  xdsScanDauerMinuten := TFloatField.Create(Self);\r\n  xdsScanKalkStundensatz := TFloatField.Create(Self);\r\n  xdsScanKalkKosten := TFloatField.Create(Self);\r\n  sourceScan := TDataSource.Create(Self);\r\n  xdsPZEEinstellungen := TXDataWebDataSet.Create(Self);\r\n  xdsPZEEinstellungenZuordnungObjekt := TIntegerField.Create(Self);\r\n  xdsPZEEinstellungenZuordnungKontakt := TIntegerField.Create(Self);\r\n  xdsPZEEinstellungenZuordnungAuftrag := TIntegerField.Create(Self);\r\n  xdsPZEEinstellungenZuordnungProduktion := TIntegerField.Create(Self);\r\n  xdsPZEEinstellungenAuswahlNurKontaktnummer := TIntegerField.Create(Self);\r\n  xdsPZEEinstellungenPauseVorgabe := TIntegerField.Create(Self);\r\n  sourcePZEEinstellungen := TDataSource.Create(Self);\r\n  xdsStundenart := TXDataWebDataSet.Create(Self);\r\n  xdsStundenartStundenArt := TStringField.Create(Self);\r\n  sourceStundenart := TDataSource.Create(Self);\r\n  xdsPauseFix := TXDataWebDataSet.Create(Self);\r\n  xdsPauseFixFAID := TXDataWebEntityField.Create(Self);\r\n  xdsPauseFixID := TStringField.Create(Self);\r\n  xdsPauseFixPersonalnummer := TIntegerField.Create(Self);\r\n  xdsPauseFixScanDatumZeit := TDateTimeField.Create(Self);\r\n  xdsPauseFixDatum := TDateTimeField.Create(Self);\r\n  xdsPauseFixScanArt := TIntegerField.Create(Self);\r\n  xdsPauseFixObjektreferenz := TStringField.Create(Self);\r\n  xdsPauseFixScanBegin := TDateTimeField.Create(Self);\r\n  xdsPauseFixScanEnde := TDateTimeField.Create(Self);\r\n  xdsPauseFixausgewertet := TBooleanField.Create(Self);\r\n  xdsPauseFixAMS := TFloatField.Create(Self);\r\n  xdsPauseFixStundenArt := TStringField.Create(Self);\r\n  xdsPauseFixKundennummer := TStringField.Create(Self);\r\n  xdsPauseFixAuftrag := TStringField.Create(Self);\r\n  xdsPauseFixPAuftrag := TStringField.Create(Self);\r\n  xdsPauseFixArbeitArt := TStringField.Create(Self);\r\n  xdsPauseFixInfos := TStringField.Create(Self);\r\n  xdsPauseFixDauerMinuten := TFloatField.Create(Self);\r\n  xdsPauseFixKalkStundensatz := TFloatField.Create(Self);\r\n  xdsPauseFixKalkKosten := TFloatField.Create(Self);\r\n\r\n  lblstatus.BeforeLoadDFMValues;\r\n  lblPInfo.BeforeLoadDFMValues;\r\n  WebDBLabel2.BeforeLoadDFMValues;\r\n  lblAutoObjekt.BeforeLoadDFMValues;\r\n  lblAutoAuftrag.BeforeLoadDFMValues;\r\n  panelfunktionen.BeforeLoadDFMValues;\r\n  btnAnmelden.BeforeLoadDFMValues;\r\n  btnPauseBeginn.BeforeLoadDFMValues;\r\n  btnPauseEnde.BeforeLoadDFMValues;\r\n  btnAbmelden.BeforeLoadDFMValues;\r\n  btnObjektBeginn.BeforeLoadDFMValues;\r\n  btnObjektEnde.BeforeLoadDFMValues;\r\n  btnErneutAnmelden.BeforeLoadDFMValues;\r\n  btnKontaktBeginn.BeforeLoadDFMValues;\r\n  btnKontaktEnde.BeforeLoadDFMValues;\r\n  btnAuftragBeginn.BeforeLoadDFMValues;\r\n  btnAuftragEnde.BeforeLoadDFMValues;\r\n  btnProduktionBeginn.BeforeLoadDFMValues;\r\n  btnProduktionEnde.BeforeLoadDFMValues;\r\n  btnPauseVorgabe.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  TC.BeforeLoadDFMValues;\r\n  panelArbeitsart.BeforeLoadDFMValues;\r\n  lblauswahlinfo.BeforeLoadDFMValues;\r\n  radioarbeitsart.BeforeLoadDFMValues;\r\n  btnOK.BeforeLoadDFMValues;\r\n  btnAbbrechen.BeforeLoadDFMValues;\r\n  panelstundenart.BeforeLoadDFMValues;\r\n  lblauswahlobjekt.BeforeLoadDFMValues;\r\n  btnObjektOK.BeforeLoadDFMValues;\r\n  btnObjektAbbrechen.BeforeLoadDFMValues;\r\n  lookupstundenart.BeforeLoadDFMValues;\r\n  xdsSingleArbeitszeit.BeforeLoadDFMValues;\r\n  xdsSingleArbeitszeitID.BeforeLoadDFMValues;\r\n  xdsSingleArbeitszeitPersonalnummer.BeforeLoadDFMValues;\r\n  xdsSingleArbeitszeitDatum.BeforeLoadDFMValues;\r\n  xdsSingleArbeitszeitEintragsArt.BeforeLoadDFMValues;\r\n  xdsSingleArbeitszeitSollPause.BeforeLoadDFMValues;\r\n  sourceSingleArbeitszeit.BeforeLoadDFMValues;\r\n  xdsScan.BeforeLoadDFMValues;\r\n  xdsScanPersonalnummer.BeforeLoadDFMValues;\r\n  xdsScanScanDatumZeit.BeforeLoadDFMValues;\r\n  xdsScanDatum.BeforeLoadDFMValues;\r\n  xdsScanScanArt.BeforeLoadDFMValues;\r\n  xdsScanObjektreferenz.BeforeLoadDFMValues;\r\n  xdsScanScanBegin.BeforeLoadDFMValues;\r\n  xdsScanScanEnde.BeforeLoadDFMValues;\r\n  xdsScanausgewertet.BeforeLoadDFMValues;\r\n  xdsScanAMS.BeforeLoadDFMValues;\r\n  xdsScanStundenArt.BeforeLoadDFMValues;\r\n  xdsScanFAID.BeforeLoadDFMValues;\r\n  xdsScanID.BeforeLoadDFMValues;\r\n  xdsScanKundennummer.BeforeLoadDFMValues;\r\n  xdsScanAuftrag.BeforeLoadDFMValues;\r\n  xdsScanPAuftrag.BeforeLoadDFMValues;\r\n  xdsScanArbeitArt.BeforeLoadDFMValues;\r\n  xdsScanInfos.BeforeLoadDFMValues;\r\n  xdsScanDauerMinuten.BeforeLoadDFMValues;\r\n  xdsScanKalkStundensatz.BeforeLoadDFMValues;\r\n  xdsScanKalkKosten.BeforeLoadDFMValues;\r\n  sourceScan.BeforeLoadDFMValues;\r\n  xdsPZEEinstellungen.BeforeLoadDFMValues;\r\n  xdsPZEEinstellungenZuordnungObjekt.BeforeLoadDFMValues;\r\n  xdsPZEEinstellungenZuordnungKontakt.BeforeLoadDFMValues;\r\n  xdsPZEEinstellungenZuordnungAuftrag.BeforeLoadDFMValues;\r\n  xdsPZEEinstellungenZuordnungProduktion.BeforeLoadDFMValues;\r\n  xdsPZEEinstellungenAuswahlNurKontaktnummer.BeforeLoadDFMValues;\r\n  xdsPZEEinstellungenPauseVorgabe.BeforeLoadDFMValues;\r\n  sourcePZEEinstellungen.BeforeLoadDFMValues;\r\n  xdsStundenart.BeforeLoadDFMValues;\r\n  xdsStundenartStundenArt.BeforeLoadDFMValues;\r\n  sourceStundenart.BeforeLoadDFMValues;\r\n  xdsPauseFix.BeforeLoadDFMValues;\r\n  xdsPauseFixFAID.BeforeLoadDFMValues;\r\n  xdsPauseFixID.BeforeLoadDFMValues;\r\n  xdsPauseFixPersonalnummer.BeforeLoadDFMValues;\r\n  xdsPauseFixScanDatumZeit.BeforeLoadDFMValues;\r\n  xdsPauseFixDatum.BeforeLoadDFMValues;\r\n  xdsPauseFixScanArt.BeforeLoadDFMValues;\r\n  xdsPauseFixObjektreferenz.BeforeLoadDFMValues;\r\n  xdsPauseFixScanBegin.BeforeLoadDFMValues;\r\n  xdsPauseFixScanEnde.BeforeLoadDFMValues;\r\n  xdsPauseFixausgewertet.BeforeLoadDFMValues;\r\n  xdsPauseFixAMS.BeforeLoadDFMValues;\r\n  xdsPauseFixStundenArt.BeforeLoadDFMValues;\r\n  xdsPauseFixKundennummer.BeforeLoadDFMValues;\r\n  xdsPauseFixAuftrag.BeforeLoadDFMValues;\r\n  xdsPauseFixPAuftrag.BeforeLoadDFMValues;\r\n  xdsPauseFixArbeitArt.BeforeLoadDFMValues;\r\n  xdsPauseFixInfos.BeforeLoadDFMValues;\r\n  xdsPauseFixDauerMinuten.BeforeLoadDFMValues;\r\n  xdsPauseFixKalkStundensatz.BeforeLoadDFMValues;\r\n  xdsPauseFixKalkKosten.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'PZE';\r\n    Width := 400;\r\n    Height := 574;\r\n    Caption := 'PZE';\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    lblstatus.SetParentComponent(Self);\r\n    lblstatus.Name := 'lblstatus';\r\n    lblstatus.Left := 8;\r\n    lblstatus.Top := 125;\r\n    lblstatus.Width := 44;\r\n    lblstatus.Height := 15;\r\n    lblstatus.Caption := 'lblstatus';\r\n    lblstatus.ElementClassName := 'h6 text-primary m-1';\r\n    lblstatus.ElementFont := efCSS;\r\n    lblstatus.ElementPosition := epIgnore;\r\n    lblstatus.HeightStyle := ssAuto;\r\n    lblstatus.HeightPercent := 100.000000000000000000;\r\n    lblstatus.WidthStyle := ssAuto;\r\n    lblstatus.WidthPercent := 100.000000000000000000;\r\n    lblPInfo.SetParentComponent(Self);\r\n    lblPInfo.Name := 'lblPInfo';\r\n    lblPInfo.AlignWithMargins := True;\r\n    lblPInfo.Left := -2;\r\n    lblPInfo.Top := 144;\r\n    lblPInfo.Width := 41;\r\n    lblPInfo.Height := 15;\r\n    lblPInfo.Alignment := taCenter;\r\n    lblPInfo.Caption := 'lblPInfo';\r\n    lblPInfo.ElementClassName := 'h6 text-primary m-1';\r\n    lblPInfo.ElementFont := efCSS;\r\n    lblPInfo.ElementPosition := epIgnore;\r\n    lblPInfo.HeightStyle := ssAuto;\r\n    lblPInfo.HeightPercent := 100.000000000000000000;\r\n    lblPInfo.WidthStyle := ssAuto;\r\n    lblPInfo.WidthPercent := 100.000000000000000000;\r\n    WebDBLabel2.SetParentComponent(Self);\r\n    WebDBLabel2.Name := 'WebDBLabel2';\r\n    WebDBLabel2.AlignWithMargins := True;\r\n    WebDBLabel2.Left := 11;\r\n    WebDBLabel2.Top := 160;\r\n    WebDBLabel2.Width := 73;\r\n    WebDBLabel2.Height := 15;\r\n    WebDBLabel2.Caption := 'WebDBLabel2';\r\n    WebDBLabel2.ElementClassName := 'h6 text-primary m-1';\r\n    WebDBLabel2.ElementFont := efCSS;\r\n    WebDBLabel2.ElementPosition := epIgnore;\r\n    WebDBLabel2.HeightPercent := 100.000000000000000000;\r\n    WebDBLabel2.HTMLType := tP;\r\n    WebDBLabel2.WidthStyle := ssAuto;\r\n    WebDBLabel2.WidthPercent := 100.000000000000000000;\r\n    WebDBLabel2.DataField := 'Datum';\r\n    WebDBLabel2.DataSource := sourceSingleArbeitszeit;\r\n    lblAutoObjekt.SetParentComponent(Self);\r\n    lblAutoObjekt.Name := 'lblAutoObjekt';\r\n    lblAutoObjekt.Left := 288;\r\n    lblAutoObjekt.Top := 485;\r\n    lblAutoObjekt.Width := 44;\r\n    lblAutoObjekt.Height := 15;\r\n    lblAutoObjekt.Caption := 'lblstatus';\r\n    lblAutoObjekt.ElementClassName := 'h6 text-primary m-1';\r\n    lblAutoObjekt.ElementFont := efCSS;\r\n    lblAutoObjekt.ElementPosition := epIgnore;\r\n    lblAutoObjekt.HeightStyle := ssAuto;\r\n    lblAutoObjekt.HeightPercent := 100.000000000000000000;\r\n    lblAutoObjekt.WidthStyle := ssAuto;\r\n    lblAutoObjekt.WidthPercent := 100.000000000000000000;\r\n    lblAutoAuftrag.SetParentComponent(Self);\r\n    lblAutoAuftrag.Name := 'lblAutoAuftrag';\r\n    lblAutoAuftrag.Left := 288;\r\n    lblAutoAuftrag.Top := 504;\r\n    lblAutoAuftrag.Width := 44;\r\n    lblAutoAuftrag.Height := 15;\r\n    lblAutoAuftrag.Caption := 'lblstatus';\r\n    lblAutoAuftrag.ElementClassName := 'h6 text-primary m-1';\r\n    lblAutoAuftrag.ElementFont := efCSS;\r\n    lblAutoAuftrag.ElementPosition := epIgnore;\r\n    lblAutoAuftrag.HeightStyle := ssAuto;\r\n    lblAutoAuftrag.HeightPercent := 100.000000000000000000;\r\n    lblAutoAuftrag.WidthStyle := ssAuto;\r\n    lblAutoAuftrag.WidthPercent := 100.000000000000000000;\r\n    panelfunktionen.SetParentComponent(Self);\r\n    panelfunktionen.Name := 'panelfunktionen';\r\n    panelfunktionen.Left := 0;\r\n    panelfunktionen.Top := 179;\r\n    panelfunktionen.Width := 257;\r\n    panelfunktionen.Height := 300;\r\n    panelfunktionen.ElementClassName := 'card m-1 border-info';\r\n    panelfunktionen.Caption := 'panelfunktionen';\r\n    panelfunktionen.ChildOrder := 9;\r\n    panelfunktionen.Color := 8340248;\r\n    panelfunktionen.ElementFont := efCSS;\r\n    panelfunktionen.ElementPosition := epIgnore;\r\n    panelfunktionen.ShowCaption := False;\r\n    btnAnmelden.SetParentComponent(panelfunktionen);\r\n    btnAnmelden.Name := 'btnAnmelden';\r\n    btnAnmelden.AlignWithMargins := True;\r\n    btnAnmelden.Left := 3;\r\n    btnAnmelden.Top := 3;\r\n    btnAnmelden.Width := 251;\r\n    btnAnmelden.Height := 40;\r\n    btnAnmelden.Align := alTop;\r\n    btnAnmelden.Caption := 'Anmelden';\r\n    btnAnmelden.ChildOrder := 7;\r\n    btnAnmelden.ElementClassName := 'btn btn-info btn-sm text-center';\r\n    btnAnmelden.ElementFont := efCSS;\r\n    btnAnmelden.HeightStyle := ssAuto;\r\n    btnAnmelden.HeightPercent := 100.000000000000000000;\r\n    btnAnmelden.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnAnmelden, Self, 'OnClick', 'btnAnmeldenClick');\r\n    btnPauseBeginn.SetParentComponent(panelfunktionen);\r\n    btnPauseBeginn.Name := 'btnPauseBeginn';\r\n    btnPauseBeginn.AlignWithMargins := True;\r\n    btnPauseBeginn.Left := 3;\r\n    btnPauseBeginn.Top := 95;\r\n    btnPauseBeginn.Width := 251;\r\n    btnPauseBeginn.Height := 40;\r\n    btnPauseBeginn.Align := alTop;\r\n    btnPauseBeginn.Caption := 'Pause';\r\n    btnPauseBeginn.ChildOrder := 9;\r\n    btnPauseBeginn.ElementClassName := 'btn btn-info btn-sm text-center';\r\n    btnPauseBeginn.ElementFont := efCSS;\r\n    btnPauseBeginn.HeightStyle := ssAuto;\r\n    btnPauseBeginn.HeightPercent := 100.000000000000000000;\r\n    btnPauseBeginn.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnPauseBeginn, Self, 'OnClick', 'btnPauseBeginnClick');\r\n    btnPauseEnde.SetParentComponent(panelfunktionen);\r\n    btnPauseEnde.Name := 'btnPauseEnde';\r\n    btnPauseEnde.AlignWithMargins := True;\r\n    btnPauseEnde.Left := 3;\r\n    btnPauseEnde.Top := 141;\r\n    btnPauseEnde.Width := 251;\r\n    btnPauseEnde.Height := 40;\r\n    btnPauseEnde.Align := alTop;\r\n    btnPauseEnde.Caption := 'Pause Ende';\r\n    btnPauseEnde.ChildOrder := 10;\r\n    btnPauseEnde.ElementClassName := 'btn btn-info btn-sm text-center';\r\n    btnPauseEnde.ElementFont := efCSS;\r\n    btnPauseEnde.HeightStyle := ssAuto;\r\n    btnPauseEnde.HeightPercent := 100.000000000000000000;\r\n    btnPauseEnde.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnPauseEnde, Self, 'OnClick', 'btnPauseEndeClick');\r\n    btnAbmelden.SetParentComponent(panelfunktionen);\r\n    btnAbmelden.Name := 'btnAbmelden';\r\n    btnAbmelden.AlignWithMargins := True;\r\n    btnAbmelden.Left := 3;\r\n    btnAbmelden.Top := 555;\r\n    btnAbmelden.Width := 251;\r\n    btnAbmelden.Height := 40;\r\n    btnAbmelden.Align := alTop;\r\n    btnAbmelden.Caption := 'Abmelden';\r\n    btnAbmelden.ChildOrder := 11;\r\n    btnAbmelden.ElementClassName := 'btn btn-info btn-sm text-center';\r\n    btnAbmelden.ElementFont := efCSS;\r\n    btnAbmelden.HeightStyle := ssAuto;\r\n    btnAbmelden.HeightPercent := 100.000000000000000000;\r\n    btnAbmelden.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnAbmelden, Self, 'OnClick', 'btnAbmeldenClick');\r\n    btnObjektBeginn.SetParentComponent(panelfunktionen);\r\n    btnObjektBeginn.Name := 'btnObjektBeginn';\r\n    btnObjektBeginn.AlignWithMargins := True;\r\n    btnObjektBeginn.Left := 3;\r\n    btnObjektBeginn.Top := 187;\r\n    btnObjektBeginn.Width := 251;\r\n    btnObjektBeginn.Height := 40;\r\n    btnObjektBeginn.Align := alTop;\r\n    btnObjektBeginn.Caption := 'Objekt';\r\n    btnObjektBeginn.ChildOrder := 13;\r\n    btnObjektBeginn.ElementClassName := 'btn btn-info btn-sm text-center';\r\n    btnObjektBeginn.ElementFont := efCSS;\r\n    btnObjektBeginn.HeightStyle := ssAuto;\r\n    btnObjektBeginn.HeightPercent := 100.000000000000000000;\r\n    btnObjektBeginn.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnObjektBeginn, Self, 'OnClick', 'btnObjektBeginnClick');\r\n    btnObjektEnde.SetParentComponent(panelfunktionen);\r\n    btnObjektEnde.Name := 'btnObjektEnde';\r\n    btnObjektEnde.AlignWithMargins := True;\r\n    btnObjektEnde.Left := 3;\r\n    btnObjektEnde.Top := 509;\r\n    btnObjektEnde.Width := 251;\r\n    btnObjektEnde.Height := 40;\r\n    btnObjektEnde.Align := alTop;\r\n    btnObjektEnde.Caption := 'Objekt Ende';\r\n    btnObjektEnde.ChildOrder := 14;\r\n    btnObjektEnde.ElementClassName := 'btn btn-info btn-sm text-center';\r\n    btnObjektEnde.ElementFont := efCSS;\r\n    btnObjektEnde.HeightStyle := ssAuto;\r\n    btnObjektEnde.HeightPercent := 100.000000000000000000;\r\n    btnObjektEnde.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnObjektEnde, Self, 'OnClick', 'btnObjektEndeClick');\r\n    btnErneutAnmelden.SetParentComponent(panelfunktionen);\r\n    btnErneutAnmelden.Name := 'btnErneutAnmelden';\r\n    btnErneutAnmelden.AlignWithMargins := True;\r\n    btnErneutAnmelden.Left := 3;\r\n    btnErneutAnmelden.Top := 601;\r\n    btnErneutAnmelden.Width := 251;\r\n    btnErneutAnmelden.Height := 40;\r\n    btnErneutAnmelden.Align := alTop;\r\n    btnErneutAnmelden.Caption := 'erneut anmelden';\r\n    btnErneutAnmelden.ChildOrder := 12;\r\n    btnErneutAnmelden.ElementClassName := 'btn btn-info btn-sm text-center';\r\n    btnErneutAnmelden.ElementFont := efCSS;\r\n    btnErneutAnmelden.HeightStyle := ssAuto;\r\n    btnErneutAnmelden.HeightPercent := 100.000000000000000000;\r\n    btnErneutAnmelden.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnErneutAnmelden, Self, 'OnClick', 'btnErneutAnmeldenClick');\r\n    btnKontaktBeginn.SetParentComponent(panelfunktionen);\r\n    btnKontaktBeginn.Name := 'btnKontaktBeginn';\r\n    btnKontaktBeginn.AlignWithMargins := True;\r\n    btnKontaktBeginn.Left := 3;\r\n    btnKontaktBeginn.Top := 233;\r\n    btnKontaktBeginn.Width := 251;\r\n    btnKontaktBeginn.Height := 40;\r\n    btnKontaktBeginn.Align := alTop;\r\n    btnKontaktBeginn.Caption := 'Kontakt';\r\n    btnKontaktBeginn.ChildOrder := 13;\r\n    btnKontaktBeginn.ElementClassName := 'btn btn-info btn-sm text-center';\r\n    btnKontaktBeginn.ElementFont := efCSS;\r\n    btnKontaktBeginn.HeightStyle := ssAuto;\r\n    btnKontaktBeginn.HeightPercent := 100.000000000000000000;\r\n    btnKontaktBeginn.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnKontaktBeginn, Self, 'OnClick', 'btnKontaktBeginnClick');\r\n    btnKontaktEnde.SetParentComponent(panelfunktionen);\r\n    btnKontaktEnde.Name := 'btnKontaktEnde';\r\n    btnKontaktEnde.AlignWithMargins := True;\r\n    btnKontaktEnde.Left := 3;\r\n    btnKontaktEnde.Top := 463;\r\n    btnKontaktEnde.Width := 251;\r\n    btnKontaktEnde.Height := 40;\r\n    btnKontaktEnde.Align := alTop;\r\n    btnKontaktEnde.Caption := 'Kontakt Ende';\r\n    btnKontaktEnde.ChildOrder := 14;\r\n    btnKontaktEnde.ElementClassName := 'btn btn-info btn-sm text-center';\r\n    btnKontaktEnde.ElementFont := efCSS;\r\n    btnKontaktEnde.HeightStyle := ssAuto;\r\n    btnKontaktEnde.HeightPercent := 100.000000000000000000;\r\n    btnKontaktEnde.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnKontaktEnde, Self, 'OnClick', 'btnKontaktEndeClick');\r\n    btnAuftragBeginn.SetParentComponent(panelfunktionen);\r\n    btnAuftragBeginn.Name := 'btnAuftragBeginn';\r\n    btnAuftragBeginn.AlignWithMargins := True;\r\n    btnAuftragBeginn.Left := 3;\r\n    btnAuftragBeginn.Top := 279;\r\n    btnAuftragBeginn.Width := 251;\r\n    btnAuftragBeginn.Height := 40;\r\n    btnAuftragBeginn.Align := alTop;\r\n    btnAuftragBeginn.Caption := 'Auftrag';\r\n    btnAuftragBeginn.ChildOrder := 13;\r\n    btnAuftragBeginn.ElementClassName := 'btn btn-info btn-sm text-center';\r\n    btnAuftragBeginn.ElementFont := efCSS;\r\n    btnAuftragBeginn.HeightStyle := ssAuto;\r\n    btnAuftragBeginn.HeightPercent := 100.000000000000000000;\r\n    btnAuftragBeginn.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnAuftragBeginn, Self, 'OnClick', 'btnAuftragBeginnClick');\r\n    btnAuftragEnde.SetParentComponent(panelfunktionen);\r\n    btnAuftragEnde.Name := 'btnAuftragEnde';\r\n    btnAuftragEnde.AlignWithMargins := True;\r\n    btnAuftragEnde.Left := 3;\r\n    btnAuftragEnde.Top := 417;\r\n    btnAuftragEnde.Width := 251;\r\n    btnAuftragEnde.Height := 40;\r\n    btnAuftragEnde.Align := alTop;\r\n    btnAuftragEnde.Caption := 'Auftrag Ende';\r\n    btnAuftragEnde.ChildOrder := 14;\r\n    btnAuftragEnde.ElementClassName := 'btn btn-info btn-sm text-center';\r\n    btnAuftragEnde.ElementFont := efCSS;\r\n    btnAuftragEnde.HeightStyle := ssAuto;\r\n    btnAuftragEnde.HeightPercent := 100.000000000000000000;\r\n    btnAuftragEnde.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnAuftragEnde, Self, 'OnClick', 'btnAuftragEndeClick');\r\n    btnProduktionBeginn.SetParentComponent(panelfunktionen);\r\n    btnProduktionBeginn.Name := 'btnProduktionBeginn';\r\n    btnProduktionBeginn.AlignWithMargins := True;\r\n    btnProduktionBeginn.Left := 3;\r\n    btnProduktionBeginn.Top := 325;\r\n    btnProduktionBeginn.Width := 251;\r\n    btnProduktionBeginn.Height := 40;\r\n    btnProduktionBeginn.Align := alTop;\r\n    btnProduktionBeginn.Caption := 'Produktion';\r\n    btnProduktionBeginn.ChildOrder := 13;\r\n    btnProduktionBeginn.ElementClassName := 'btn btn-info btn-sm text-center';\r\n    btnProduktionBeginn.ElementFont := efCSS;\r\n    btnProduktionBeginn.HeightStyle := ssAuto;\r\n    btnProduktionBeginn.HeightPercent := 100.000000000000000000;\r\n    btnProduktionBeginn.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnProduktionBeginn, Self, 'OnClick', 'btnProduktionBeginnClick');\r\n    btnProduktionEnde.SetParentComponent(panelfunktionen);\r\n    btnProduktionEnde.Name := 'btnProduktionEnde';\r\n    btnProduktionEnde.AlignWithMargins := True;\r\n    btnProduktionEnde.Left := 3;\r\n    btnProduktionEnde.Top := 371;\r\n    btnProduktionEnde.Width := 251;\r\n    btnProduktionEnde.Height := 40;\r\n    btnProduktionEnde.Align := alTop;\r\n    btnProduktionEnde.Caption := 'Produktion Ende';\r\n    btnProduktionEnde.ChildOrder := 14;\r\n    btnProduktionEnde.ElementClassName := 'btn btn-info btn-sm text-center';\r\n    btnProduktionEnde.ElementFont := efCSS;\r\n    btnProduktionEnde.HeightStyle := ssAuto;\r\n    btnProduktionEnde.HeightPercent := 100.000000000000000000;\r\n    btnProduktionEnde.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnProduktionEnde, Self, 'OnClick', 'btnProduktionEndeClick');\r\n    btnPauseVorgabe.SetParentComponent(panelfunktionen);\r\n    btnPauseVorgabe.Name := 'btnPauseVorgabe';\r\n    btnPauseVorgabe.AlignWithMargins := True;\r\n    btnPauseVorgabe.Left := 3;\r\n    btnPauseVorgabe.Top := 49;\r\n    btnPauseVorgabe.Width := 251;\r\n    btnPauseVorgabe.Height := 40;\r\n    btnPauseVorgabe.Align := alTop;\r\n    btnPauseVorgabe.Caption := 'Pause';\r\n    btnPauseVorgabe.ChildOrder := 9;\r\n    btnPauseVorgabe.ElementClassName := 'btn btn-info btn-sm text-center';\r\n    btnPauseVorgabe.ElementFont := efCSS;\r\n    btnPauseVorgabe.HeightStyle := ssAuto;\r\n    btnPauseVorgabe.HeightPercent := 100.000000000000000000;\r\n    btnPauseVorgabe.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnPauseVorgabe, Self, 'OnClick', 'btnPauseVorgabeClick');\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'col d-flex justify-content-center';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 0;\r\n    btnzurueck.Top := 94;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.Left := 0;\r\n    TC.Top := 480;\r\n    TC.Width := 247;\r\n    TC.Height := 81;\r\n    TC.ElementClassName := 'table table-sm table-hover table-bordered table-striped';\r\n    TC.HeightStyle := ssAuto;\r\n    TC.WidthStyle := ssPercent;\r\n    TC.BorderColor := clSilver;\r\n    TC.ChildOrder := 2;\r\n    TC.ColHeader := False;\r\n    TC.ElementHeaderClassName := 'table-info';\r\n    TC.ElementPosition := epIgnore;\r\n    TC.ElementTableClassName := 'table table-sm table-hover table-bordered table-striped';\r\n    TC.Options.ScrollVertical := True;\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 2;\r\n    panelArbeitsart.SetParentComponent(Self);\r\n    panelArbeitsart.Name := 'panelArbeitsart';\r\n    panelArbeitsart.Left := 128;\r\n    panelArbeitsart.Top := 182;\r\n    panelArbeitsart.Width := 241;\r\n    panelArbeitsart.Height := 195;\r\n    panelArbeitsart.ElementClassName := 'card m-1 border-info';\r\n    panelArbeitsart.HeightStyle := ssAuto;\r\n    panelArbeitsart.Caption := 'panelArbeitsart';\r\n    panelArbeitsart.ChildOrder := 8;\r\n    panelArbeitsart.ElementBodyClassName := 'card-body';\r\n    panelArbeitsart.ElementFont := efCSS;\r\n    panelArbeitsart.ElementPosition := epIgnore;\r\n    panelArbeitsart.ShowCaption := False;\r\n    lblauswahlinfo.SetParentComponent(panelArbeitsart);\r\n    lblauswahlinfo.Name := 'lblauswahlinfo';\r\n    lblauswahlinfo.Left := 16;\r\n    lblauswahlinfo.Top := 8;\r\n    lblauswahlinfo.Width := 77;\r\n    lblauswahlinfo.Height := 15;\r\n    lblauswahlinfo.Caption := 'lblauswahlinfo';\r\n    lblauswahlinfo.ElementLabelClassName := 'h6';\r\n    lblauswahlinfo.ElementFont := efCSS;\r\n    lblauswahlinfo.ElementPosition := epIgnore;\r\n    lblauswahlinfo.HeightStyle := ssAuto;\r\n    lblauswahlinfo.HeightPercent := 100.000000000000000000;\r\n    lblauswahlinfo.WordWrap := True;\r\n    lblauswahlinfo.WidthStyle := ssAuto;\r\n    lblauswahlinfo.WidthPercent := 100.000000000000000000;\r\n    radioarbeitsart.SetParentComponent(panelArbeitsart);\r\n    radioarbeitsart.Name := 'radioarbeitsart';\r\n    radioarbeitsart.Left := 40;\r\n    radioarbeitsart.Top := 32;\r\n    radioarbeitsart.Width := 160;\r\n    radioarbeitsart.Height := 122;\r\n    radioarbeitsart.ElementClassName := 'form-check';\r\n    radioarbeitsart.HeightStyle := ssAuto;\r\n    radioarbeitsart.WidthStyle := ssAuto;\r\n    radioarbeitsart.Caption := 'Arbeitsart';\r\n    radioarbeitsart.ChildOrder := 1;\r\n    radioarbeitsart.Columns := 1;\r\n    radioarbeitsart.ControlPosition := epIgnore;\r\n    radioarbeitsart.ElementButtonClassName := 'form-check-input type=radio';\r\n    radioarbeitsart.ElementGroupClassName := 'form-check type=radio';\r\n    radioarbeitsart.ElementLabelClassName := 'form-check-label';\r\n    radioarbeitsart.ElementFont := efCSS;\r\n    radioarbeitsart.ElementPosition := epIgnore;\r\n    radioarbeitsart.ItemIndex := 0;\r\n    radioarbeitsart.Items.BeginUpdate;\r\n    try\r\n      radioarbeitsart.Items.Clear;\r\n      radioarbeitsart.Items.Add('[-]');\r\n      radioarbeitsart.Items.Add('Arbeitszeit');\r\n      radioarbeitsart.Items.Add('Fahrzeit');\r\n    finally\r\n      radioarbeitsart.Items.EndUpdate;\r\n    end;\r\n    radioarbeitsart.Role := '';\r\n    btnOK.SetParentComponent(panelArbeitsart);\r\n    btnOK.Name := 'btnOK';\r\n    btnOK.Left := 136;\r\n    btnOK.Top := 160;\r\n    btnOK.Width := 96;\r\n    btnOK.Height := 25;\r\n    btnOK.Caption := 'OK';\r\n    btnOK.ChildOrder := 3;\r\n    btnOK.ElementClassName := 'btn btn-info btn-sm m-2 text-center';\r\n    btnOK.ElementFont := efCSS;\r\n    btnOK.ElementPosition := epIgnore;\r\n    btnOK.HeightStyle := ssAuto;\r\n    btnOK.HeightPercent := 100.000000000000000000;\r\n    btnOK.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnOK, Self, 'OnClick', 'btnOKClick');\r\n    btnAbbrechen.SetParentComponent(panelArbeitsart);\r\n    btnAbbrechen.Name := 'btnAbbrechen';\r\n    btnAbbrechen.Left := 16;\r\n    btnAbbrechen.Top := 160;\r\n    btnAbbrechen.Width := 96;\r\n    btnAbbrechen.Height := 25;\r\n    btnAbbrechen.Caption := 'Abbrechen';\r\n    btnAbbrechen.ChildOrder := 2;\r\n    btnAbbrechen.ElementClassName := 'btn btn-info btn-sm m-2 text-center';\r\n    btnAbbrechen.ElementFont := efCSS;\r\n    btnAbbrechen.ElementPosition := epIgnore;\r\n    btnAbbrechen.HeightStyle := ssAuto;\r\n    btnAbbrechen.HeightPercent := 100.000000000000000000;\r\n    btnAbbrechen.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnAbbrechen, Self, 'OnClick', 'btnAbbrechenClick');\r\n    panelstundenart.SetParentComponent(Self);\r\n    panelstundenart.Name := 'panelstundenart';\r\n    panelstundenart.Left := 128;\r\n    panelstundenart.Top := 27;\r\n    panelstundenart.Width := 241;\r\n    panelstundenart.Height := 195;\r\n    panelstundenart.ElementClassName := 'card m-1 border-info';\r\n    panelstundenart.HeightStyle := ssAuto;\r\n    panelstundenart.Caption := 'panelArbeitsart';\r\n    panelstundenart.ChildOrder := 8;\r\n    panelstundenart.ElementBodyClassName := 'card-body';\r\n    panelstundenart.ElementFont := efCSS;\r\n    panelstundenart.ElementPosition := epIgnore;\r\n    panelstundenart.ShowCaption := False;\r\n    lblauswahlobjekt.SetParentComponent(panelstundenart);\r\n    lblauswahlobjekt.Name := 'lblauswahlobjekt';\r\n    lblauswahlobjekt.Left := 16;\r\n    lblauswahlobjekt.Top := 8;\r\n    lblauswahlobjekt.Width := 77;\r\n    lblauswahlobjekt.Height := 15;\r\n    lblauswahlobjekt.Caption := 'lblauswahlinfo';\r\n    lblauswahlobjekt.ElementLabelClassName := 'h6';\r\n    lblauswahlobjekt.ElementFont := efCSS;\r\n    lblauswahlobjekt.ElementPosition := epIgnore;\r\n    lblauswahlobjekt.HeightStyle := ssAuto;\r\n    lblauswahlobjekt.HeightPercent := 100.000000000000000000;\r\n    lblauswahlobjekt.WordWrap := True;\r\n    lblauswahlobjekt.WidthStyle := ssAuto;\r\n    lblauswahlobjekt.WidthPercent := 100.000000000000000000;\r\n    btnObjektOK.SetParentComponent(panelstundenart);\r\n    btnObjektOK.Name := 'btnObjektOK';\r\n    btnObjektOK.Left := 136;\r\n    btnObjektOK.Top := 160;\r\n    btnObjektOK.Width := 96;\r\n    btnObjektOK.Height := 25;\r\n    btnObjektOK.Caption := 'OK';\r\n    btnObjektOK.ChildOrder := 3;\r\n    btnObjektOK.ElementClassName := 'btn btn-info btn-sm m-2 text-center';\r\n    btnObjektOK.ElementFont := efCSS;\r\n    btnObjektOK.ElementPosition := epIgnore;\r\n    btnObjektOK.HeightStyle := ssAuto;\r\n    btnObjektOK.HeightPercent := 100.000000000000000000;\r\n    btnObjektOK.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnObjektOK, Self, 'OnClick', 'btnObjektOKClick');\r\n    btnObjektAbbrechen.SetParentComponent(panelstundenart);\r\n    btnObjektAbbrechen.Name := 'btnObjektAbbrechen';\r\n    btnObjektAbbrechen.Left := 16;\r\n    btnObjektAbbrechen.Top := 160;\r\n    btnObjektAbbrechen.Width := 96;\r\n    btnObjektAbbrechen.Height := 25;\r\n    btnObjektAbbrechen.Caption := 'Abbrechen';\r\n    btnObjektAbbrechen.ChildOrder := 2;\r\n    btnObjektAbbrechen.ElementClassName := 'btn btn-info btn-sm m-2 text-center';\r\n    btnObjektAbbrechen.ElementFont := efCSS;\r\n    btnObjektAbbrechen.ElementPosition := epIgnore;\r\n    btnObjektAbbrechen.HeightStyle := ssAuto;\r\n    btnObjektAbbrechen.HeightPercent := 100.000000000000000000;\r\n    btnObjektAbbrechen.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnObjektAbbrechen, Self, 'OnClick', 'btnObjektAbbrechenClick');\r\n    lookupstundenart.SetParentComponent(panelstundenart);\r\n    lookupstundenart.Name := 'lookupstundenart';\r\n    lookupstundenart.Left := 40;\r\n    lookupstundenart.Top := 56;\r\n    lookupstundenart.Width := 177;\r\n    lookupstundenart.Height := 23;\r\n    lookupstundenart.ChildOrder := 1;\r\n    lookupstundenart.ElementClassName := 'form-control w-75 m-1';\r\n    lookupstundenart.ElementFont := efCSS;\r\n    lookupstundenart.ElementPosition := epIgnore;\r\n    lookupstundenart.HeightStyle := ssAuto;\r\n    lookupstundenart.HeightPercent := 100.000000000000000000;\r\n    lookupstundenart.Text := 'lookupstundenart';\r\n    lookupstundenart.WidthPercent := 100.000000000000000000;\r\n    lookupstundenart.ItemIndex := -1;\r\n    xdsSingleArbeitszeit.SetParentComponent(Self);\r\n    xdsSingleArbeitszeit.Name := 'xdsSingleArbeitszeit';\r\n    xdsSingleArbeitszeit.AfterOpen := xdsSingleArbeitszeitAfterOpen;\r\n    xdsSingleArbeitszeit.EntitySetName := 'PZE_Arbeitszeiten';\r\n    xdsSingleArbeitszeit.Connection := DM2.XDataWebConnection1;\r\n    xdsSingleArbeitszeit.Left := 112;\r\n    xdsSingleArbeitszeit.Top := 16;\r\n    xdsSingleArbeitszeitID.SetParentComponent(xdsSingleArbeitszeit);\r\n    xdsSingleArbeitszeitID.Name := 'xdsSingleArbeitszeitID';\r\n    xdsSingleArbeitszeitID.FieldName := 'ID';\r\n    xdsSingleArbeitszeitID.Required := True;\r\n    xdsSingleArbeitszeitID.Size := 38;\r\n    xdsSingleArbeitszeitPersonalnummer.SetParentComponent(xdsSingleArbeitszeit);\r\n    xdsSingleArbeitszeitPersonalnummer.Name := 'xdsSingleArbeitszeitPersonalnummer';\r\n    xdsSingleArbeitszeitPersonalnummer.FieldName := 'Personalnummer';\r\n    xdsSingleArbeitszeitPersonalnummer.Required := True;\r\n    xdsSingleArbeitszeitDatum.SetParentComponent(xdsSingleArbeitszeit);\r\n    xdsSingleArbeitszeitDatum.Name := 'xdsSingleArbeitszeitDatum';\r\n    xdsSingleArbeitszeitDatum.FieldName := 'Datum';\r\n    xdsSingleArbeitszeitDatum.Required := True;\r\n    xdsSingleArbeitszeitDatum.DisplayFormat := 'DDD DD.MM.YYYY';\r\n    xdsSingleArbeitszeitEintragsArt.SetParentComponent(xdsSingleArbeitszeit);\r\n    xdsSingleArbeitszeitEintragsArt.Name := 'xdsSingleArbeitszeitEintragsArt';\r\n    xdsSingleArbeitszeitEintragsArt.FieldName := 'EintragsArt';\r\n    xdsSingleArbeitszeitEintragsArt.Required := True;\r\n    xdsSingleArbeitszeitSollPause.SetParentComponent(xdsSingleArbeitszeit);\r\n    xdsSingleArbeitszeitSollPause.Name := 'xdsSingleArbeitszeitSollPause';\r\n    xdsSingleArbeitszeitSollPause.FieldName := 'SollPause';\r\n    sourceSingleArbeitszeit.SetParentComponent(Self);\r\n    sourceSingleArbeitszeit.Name := 'sourceSingleArbeitszeit';\r\n    sourceSingleArbeitszeit.DataSet := xdsSingleArbeitszeit;\r\n    sourceSingleArbeitszeit.Left := 32;\r\n    sourceSingleArbeitszeit.Top := 16;\r\n    xdsScan.SetParentComponent(Self);\r\n    xdsScan.Name := 'xdsScan';\r\n    xdsScan.AfterApplyUpdates := xdsScanAfterApplyUpdates;\r\n    xdsScan.AfterOpen := xdsScanAfterOpen;\r\n    xdsScan.AfterPost := xdsScanAfterPost;\r\n    SetEvent(xdsScan, Self, 'OnNewRecord', 'xdsScanNewRecord');\r\n    xdsScan.EntitySetName := 'PZE_ArbeitszeitenScan';\r\n    xdsScan.Connection := DM2.XDataWebConnection1;\r\n    xdsScan.Left := 112;\r\n    xdsScan.Top := 64;\r\n    xdsScanPersonalnummer.SetParentComponent(xdsScan);\r\n    xdsScanPersonalnummer.Name := 'xdsScanPersonalnummer';\r\n    xdsScanPersonalnummer.FieldName := 'Personalnummer';\r\n    xdsScanPersonalnummer.Required := True;\r\n    xdsScanScanDatumZeit.SetParentComponent(xdsScan);\r\n    xdsScanScanDatumZeit.Name := 'xdsScanScanDatumZeit';\r\n    xdsScanScanDatumZeit.FieldName := 'ScanDatumZeit';\r\n    xdsScanScanDatumZeit.DisplayFormat := 'DD.MM.YYYY hh.mm.ss';\r\n    xdsScanDatum.SetParentComponent(xdsScan);\r\n    xdsScanDatum.Name := 'xdsScanDatum';\r\n    xdsScanDatum.FieldName := 'Datum';\r\n    xdsScanDatum.Required := True;\r\n    xdsScanScanArt.SetParentComponent(xdsScan);\r\n    xdsScanScanArt.Name := 'xdsScanScanArt';\r\n    xdsScanScanArt.FieldName := 'ScanArt';\r\n    xdsScanObjektreferenz.SetParentComponent(xdsScan);\r\n    xdsScanObjektreferenz.Name := 'xdsScanObjektreferenz';\r\n    xdsScanObjektreferenz.FieldName := 'Objektreferenz';\r\n    xdsScanObjektreferenz.Size := 13;\r\n    xdsScanScanBegin.SetParentComponent(xdsScan);\r\n    xdsScanScanBegin.Name := 'xdsScanScanBegin';\r\n    xdsScanScanBegin.FieldName := 'ScanBegin';\r\n    xdsScanScanBegin.DisplayFormat := 'hh:mm';\r\n    xdsScanScanEnde.SetParentComponent(xdsScan);\r\n    xdsScanScanEnde.Name := 'xdsScanScanEnde';\r\n    xdsScanScanEnde.FieldName := 'ScanEnde';\r\n    xdsScanScanEnde.DisplayFormat := 'hh:mm';\r\n    xdsScanausgewertet.SetParentComponent(xdsScan);\r\n    xdsScanausgewertet.Name := 'xdsScanausgewertet';\r\n    xdsScanausgewertet.FieldName := 'ausgewertet';\r\n    xdsScanAMS.SetParentComponent(xdsScan);\r\n    xdsScanAMS.Name := 'xdsScanAMS';\r\n    xdsScanAMS.FieldName := 'AMS';\r\n    xdsScanStundenArt.SetParentComponent(xdsScan);\r\n    xdsScanStundenArt.Name := 'xdsScanStundenArt';\r\n    xdsScanStundenArt.FieldName := 'StundenArt';\r\n    xdsScanStundenArt.Size := 50;\r\n    xdsScanFAID.SetParentComponent(xdsScan);\r\n    xdsScanFAID.Name := 'xdsScanFAID';\r\n    xdsScanFAID.FieldName := 'FAID';\r\n    xdsScanFAID.Required := True;\r\n    xdsScanID.SetParentComponent(xdsScan);\r\n    xdsScanID.Name := 'xdsScanID';\r\n    xdsScanID.FieldName := 'ID';\r\n    xdsScanID.Required := True;\r\n    xdsScanID.Size := 38;\r\n    xdsScanKundennummer.SetParentComponent(xdsScan);\r\n    xdsScanKundennummer.Name := 'xdsScanKundennummer';\r\n    xdsScanKundennummer.FieldName := 'Kundennummer';\r\n    xdsScanKundennummer.Size := 13;\r\n    xdsScanAuftrag.SetParentComponent(xdsScan);\r\n    xdsScanAuftrag.Name := 'xdsScanAuftrag';\r\n    xdsScanAuftrag.FieldName := 'Auftrag';\r\n    xdsScanAuftrag.Size := 10;\r\n    xdsScanPAuftrag.SetParentComponent(xdsScan);\r\n    xdsScanPAuftrag.Name := 'xdsScanPAuftrag';\r\n    xdsScanPAuftrag.FieldName := 'PAuftrag';\r\n    xdsScanPAuftrag.Size := 10;\r\n    xdsScanArbeitArt.SetParentComponent(xdsScan);\r\n    xdsScanArbeitArt.Name := 'xdsScanArbeitArt';\r\n    xdsScanArbeitArt.FieldName := 'ArbeitArt';\r\n    xdsScanInfos.SetParentComponent(xdsScan);\r\n    xdsScanInfos.Name := 'xdsScanInfos';\r\n    xdsScanInfos.FieldName := 'Infos';\r\n    xdsScanInfos.Size := 255;\r\n    xdsScanDauerMinuten.SetParentComponent(xdsScan);\r\n    xdsScanDauerMinuten.Name := 'xdsScanDauerMinuten';\r\n    xdsScanDauerMinuten.FieldName := 'DauerMinuten';\r\n    xdsScanKalkStundensatz.SetParentComponent(xdsScan);\r\n    xdsScanKalkStundensatz.Name := 'xdsScanKalkStundensatz';\r\n    xdsScanKalkStundensatz.FieldName := 'KalkStundensatz';\r\n    xdsScanKalkKosten.SetParentComponent(xdsScan);\r\n    xdsScanKalkKosten.Name := 'xdsScanKalkKosten';\r\n    xdsScanKalkKosten.FieldName := 'KalkKosten';\r\n    sourceScan.SetParentComponent(Self);\r\n    sourceScan.Name := 'sourceScan';\r\n    sourceScan.DataSet := xdsScan;\r\n    sourceScan.Left := 32;\r\n    sourceScan.Top := 56;\r\n    xdsPZEEinstellungen.SetParentComponent(Self);\r\n    xdsPZEEinstellungen.Name := 'xdsPZEEinstellungen';\r\n    xdsPZEEinstellungen.AfterOpen := xdsPZEEinstellungenAfterOpen;\r\n    xdsPZEEinstellungen.EntitySetName := 'PZE_Einstellungen';\r\n    xdsPZEEinstellungen.Connection := DM2.XDataWebConnection1;\r\n    xdsPZEEinstellungen.Left := 184;\r\n    xdsPZEEinstellungen.Top := 128;\r\n    xdsPZEEinstellungenZuordnungObjekt.SetParentComponent(xdsPZEEinstellungen);\r\n    xdsPZEEinstellungenZuordnungObjekt.Name := 'xdsPZEEinstellungenZuordnungObjekt';\r\n    xdsPZEEinstellungenZuordnungObjekt.FieldName := 'ZuordnungObjekt';\r\n    xdsPZEEinstellungenZuordnungKontakt.SetParentComponent(xdsPZEEinstellungen);\r\n    xdsPZEEinstellungenZuordnungKontakt.Name := 'xdsPZEEinstellungenZuordnungKontakt';\r\n    xdsPZEEinstellungenZuordnungKontakt.FieldName := 'ZuordnungKontakt';\r\n    xdsPZEEinstellungenZuordnungAuftrag.SetParentComponent(xdsPZEEinstellungen);\r\n    xdsPZEEinstellungenZuordnungAuftrag.Name := 'xdsPZEEinstellungenZuordnungAuftrag';\r\n    xdsPZEEinstellungenZuordnungAuftrag.FieldName := 'ZuordnungAuftrag';\r\n    xdsPZEEinstellungenZuordnungProduktion.SetParentComponent(xdsPZEEinstellungen);\r\n    xdsPZEEinstellungenZuordnungProduktion.Name := 'xdsPZEEinstellungenZuordnungProduktion';\r\n    xdsPZEEinstellungenZuordnungProduktion.FieldName := 'ZuordnungProduktion';\r\n    xdsPZEEinstellungenAuswahlNurKontaktnummer.SetParentComponent(xdsPZEEinstellungen);\r\n    xdsPZEEinstellungenAuswahlNurKontaktnummer.Name := 'xdsPZEEinstellungenAuswahlNurKontaktnummer';\r\n    xdsPZEEinstellungenAuswahlNurKontaktnummer.FieldName := 'AuswahlNurKontaktnummer';\r\n    xdsPZEEinstellungenPauseVorgabe.SetParentComponent(xdsPZEEinstellungen);\r\n    xdsPZEEinstellungenPauseVorgabe.Name := 'xdsPZEEinstellungenPauseVorgabe';\r\n    xdsPZEEinstellungenPauseVorgabe.FieldName := 'PauseVorgabe';\r\n    sourcePZEEinstellungen.SetParentComponent(Self);\r\n    sourcePZEEinstellungen.Name := 'sourcePZEEinstellungen';\r\n    sourcePZEEinstellungen.DataSet := xdsPZEEinstellungen;\r\n    sourcePZEEinstellungen.Left := 104;\r\n    sourcePZEEinstellungen.Top := 128;\r\n    xdsStundenart.SetParentComponent(Self);\r\n    xdsStundenart.Name := 'xdsStundenart';\r\n    xdsStundenart.AfterOpen := xdsStundenartAfterOpen;\r\n    xdsStundenart.EntitySetName := 'ObjekteStundenarten';\r\n    xdsStundenart.Connection := DM2.XDataWebConnection1;\r\n    xdsStundenart.Left := 152;\r\n    xdsStundenart.Top := 440;\r\n    xdsStundenartStundenArt.SetParentComponent(xdsStundenart);\r\n    xdsStundenartStundenArt.Name := 'xdsStundenartStundenArt';\r\n    xdsStundenartStundenArt.FieldName := 'StundenArt';\r\n    xdsStundenartStundenArt.Required := True;\r\n    xdsStundenartStundenArt.Size := 50;\r\n    sourceStundenart.SetParentComponent(Self);\r\n    sourceStundenart.Name := 'sourceStundenart';\r\n    sourceStundenart.DataSet := xdsStundenart;\r\n    sourceStundenart.Left := 72;\r\n    sourceStundenart.Top := 440;\r\n    xdsPauseFix.SetParentComponent(Self);\r\n    xdsPauseFix.Name := 'xdsPauseFix';\r\n    xdsPauseFix.AfterApplyUpdates := xdsPauseFixAfterApplyUpdates;\r\n    xdsPauseFix.AfterOpen := xdsPauseFixAfterOpen;\r\n    xdsPauseFix.AfterPost := xdsPauseFixAfterPost;\r\n    xdsPauseFix.EntitySetName := 'PZE_ArbeitszeitenScan';\r\n    xdsPauseFix.Connection := DM2.XDataWebConnection1;\r\n    xdsPauseFix.Left := 296;\r\n    xdsPauseFix.Top := 400;\r\n    xdsPauseFixFAID.SetParentComponent(xdsPauseFix);\r\n    xdsPauseFixFAID.Name := 'xdsPauseFixFAID';\r\n    xdsPauseFixFAID.FieldName := 'FAID';\r\n    xdsPauseFixFAID.Required := True;\r\n    xdsPauseFixID.SetParentComponent(xdsPauseFix);\r\n    xdsPauseFixID.Name := 'xdsPauseFixID';\r\n    xdsPauseFixID.FieldName := 'ID';\r\n    xdsPauseFixID.Required := True;\r\n    xdsPauseFixID.Size := 38;\r\n    xdsPauseFixPersonalnummer.SetParentComponent(xdsPauseFix);\r\n    xdsPauseFixPersonalnummer.Name := 'xdsPauseFixPersonalnummer';\r\n    xdsPauseFixPersonalnummer.FieldName := 'Personalnummer';\r\n    xdsPauseFixPersonalnummer.Required := True;\r\n    xdsPauseFixScanDatumZeit.SetParentComponent(xdsPauseFix);\r\n    xdsPauseFixScanDatumZeit.Name := 'xdsPauseFixScanDatumZeit';\r\n    xdsPauseFixScanDatumZeit.FieldName := 'ScanDatumZeit';\r\n    xdsPauseFixDatum.SetParentComponent(xdsPauseFix);\r\n    xdsPauseFixDatum.Name := 'xdsPauseFixDatum';\r\n    xdsPauseFixDatum.FieldName := 'Datum';\r\n    xdsPauseFixDatum.Required := True;\r\n    xdsPauseFixScanArt.SetParentComponent(xdsPauseFix);\r\n    xdsPauseFixScanArt.Name := 'xdsPauseFixScanArt';\r\n    xdsPauseFixScanArt.FieldName := 'ScanArt';\r\n    xdsPauseFixObjektreferenz.SetParentComponent(xdsPauseFix);\r\n    xdsPauseFixObjektreferenz.Name := 'xdsPauseFixObjektreferenz';\r\n    xdsPauseFixObjektreferenz.FieldName := 'Objektreferenz';\r\n    xdsPauseFixObjektreferenz.Size := 13;\r\n    xdsPauseFixScanBegin.SetParentComponent(xdsPauseFix);\r\n    xdsPauseFixScanBegin.Name := 'xdsPauseFixScanBegin';\r\n    xdsPauseFixScanBegin.FieldName := 'ScanBegin';\r\n    xdsPauseFixScanEnde.SetParentComponent(xdsPauseFix);\r\n    xdsPauseFixScanEnde.Name := 'xdsPauseFixScanEnde';\r\n    xdsPauseFixScanEnde.FieldName := 'ScanEnde';\r\n    xdsPauseFixausgewertet.SetParentComponent(xdsPauseFix);\r\n    xdsPauseFixausgewertet.Name := 'xdsPauseFixausgewertet';\r\n    xdsPauseFixausgewertet.FieldName := 'ausgewertet';\r\n    xdsPauseFixAMS.SetParentComponent(xdsPauseFix);\r\n    xdsPauseFixAMS.Name := 'xdsPauseFixAMS';\r\n    xdsPauseFixAMS.FieldName := 'AMS';\r\n    xdsPauseFixStundenArt.SetParentComponent(xdsPauseFix);\r\n    xdsPauseFixStundenArt.Name := 'xdsPauseFixStundenArt';\r\n    xdsPauseFixStundenArt.FieldName := 'StundenArt';\r\n    xdsPauseFixStundenArt.Size := 50;\r\n    xdsPauseFixKundennummer.SetParentComponent(xdsPauseFix);\r\n    xdsPauseFixKundennummer.Name := 'xdsPauseFixKundennummer';\r\n    xdsPauseFixKundennummer.FieldName := 'Kundennummer';\r\n    xdsPauseFixKundennummer.Size := 13;\r\n    xdsPauseFixAuftrag.SetParentComponent(xdsPauseFix);\r\n    xdsPauseFixAuftrag.Name := 'xdsPauseFixAuftrag';\r\n    xdsPauseFixAuftrag.FieldName := 'Auftrag';\r\n    xdsPauseFixAuftrag.Size := 10;\r\n    xdsPauseFixPAuftrag.SetParentComponent(xdsPauseFix);\r\n    xdsPauseFixPAuftrag.Name := 'xdsPauseFixPAuftrag';\r\n    xdsPauseFixPAuftrag.FieldName := 'PAuftrag';\r\n    xdsPauseFixPAuftrag.Size := 10;\r\n    xdsPauseFixArbeitArt.SetParentComponent(xdsPauseFix);\r\n    xdsPauseFixArbeitArt.Name := 'xdsPauseFixArbeitArt';\r\n    xdsPauseFixArbeitArt.FieldName := 'ArbeitArt';\r\n    xdsPauseFixInfos.SetParentComponent(xdsPauseFix);\r\n    xdsPauseFixInfos.Name := 'xdsPauseFixInfos';\r\n    xdsPauseFixInfos.FieldName := 'Infos';\r\n    xdsPauseFixInfos.Size := 255;\r\n    xdsPauseFixDauerMinuten.SetParentComponent(xdsPauseFix);\r\n    xdsPauseFixDauerMinuten.Name := 'xdsPauseFixDauerMinuten';\r\n    xdsPauseFixDauerMinuten.FieldName := 'DauerMinuten';\r\n    xdsPauseFixKalkStundensatz.SetParentComponent(xdsPauseFix);\r\n    xdsPauseFixKalkStundensatz.Name := 'xdsPauseFixKalkStundensatz';\r\n    xdsPauseFixKalkStundensatz.FieldName := 'KalkStundensatz';\r\n    xdsPauseFixKalkKosten.SetParentComponent(xdsPauseFix);\r\n    xdsPauseFixKalkKosten.Name := 'xdsPauseFixKalkKosten';\r\n    xdsPauseFixKalkKosten.FieldName := 'KalkKosten';\r\n  finally\r\n    lblstatus.AfterLoadDFMValues;\r\n    lblPInfo.AfterLoadDFMValues;\r\n    WebDBLabel2.AfterLoadDFMValues;\r\n    lblAutoObjekt.AfterLoadDFMValues;\r\n    lblAutoAuftrag.AfterLoadDFMValues;\r\n    panelfunktionen.AfterLoadDFMValues;\r\n    btnAnmelden.AfterLoadDFMValues;\r\n    btnPauseBeginn.AfterLoadDFMValues;\r\n    btnPauseEnde.AfterLoadDFMValues;\r\n    btnAbmelden.AfterLoadDFMValues;\r\n    btnObjektBeginn.AfterLoadDFMValues;\r\n    btnObjektEnde.AfterLoadDFMValues;\r\n    btnErneutAnmelden.AfterLoadDFMValues;\r\n    btnKontaktBeginn.AfterLoadDFMValues;\r\n    btnKontaktEnde.AfterLoadDFMValues;\r\n    btnAuftragBeginn.AfterLoadDFMValues;\r\n    btnAuftragEnde.AfterLoadDFMValues;\r\n    btnProduktionBeginn.AfterLoadDFMValues;\r\n    btnProduktionEnde.AfterLoadDFMValues;\r\n    btnPauseVorgabe.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    TC.AfterLoadDFMValues;\r\n    panelArbeitsart.AfterLoadDFMValues;\r\n    lblauswahlinfo.AfterLoadDFMValues;\r\n    radioarbeitsart.AfterLoadDFMValues;\r\n    btnOK.AfterLoadDFMValues;\r\n    btnAbbrechen.AfterLoadDFMValues;\r\n    panelstundenart.AfterLoadDFMValues;\r\n    lblauswahlobjekt.AfterLoadDFMValues;\r\n    btnObjektOK.AfterLoadDFMValues;\r\n    btnObjektAbbrechen.AfterLoadDFMValues;\r\n    lookupstundenart.AfterLoadDFMValues;\r\n    xdsSingleArbeitszeit.AfterLoadDFMValues;\r\n    xdsSingleArbeitszeitID.AfterLoadDFMValues;\r\n    xdsSingleArbeitszeitPersonalnummer.AfterLoadDFMValues;\r\n    xdsSingleArbeitszeitDatum.AfterLoadDFMValues;\r\n    xdsSingleArbeitszeitEintragsArt.AfterLoadDFMValues;\r\n    xdsSingleArbeitszeitSollPause.AfterLoadDFMValues;\r\n    sourceSingleArbeitszeit.AfterLoadDFMValues;\r\n    xdsScan.AfterLoadDFMValues;\r\n    xdsScanPersonalnummer.AfterLoadDFMValues;\r\n    xdsScanScanDatumZeit.AfterLoadDFMValues;\r\n    xdsScanDatum.AfterLoadDFMValues;\r\n    xdsScanScanArt.AfterLoadDFMValues;\r\n    xdsScanObjektreferenz.AfterLoadDFMValues;\r\n    xdsScanScanBegin.AfterLoadDFMValues;\r\n    xdsScanScanEnde.AfterLoadDFMValues;\r\n    xdsScanausgewertet.AfterLoadDFMValues;\r\n    xdsScanAMS.AfterLoadDFMValues;\r\n    xdsScanStundenArt.AfterLoadDFMValues;\r\n    xdsScanFAID.AfterLoadDFMValues;\r\n    xdsScanID.AfterLoadDFMValues;\r\n    xdsScanKundennummer.AfterLoadDFMValues;\r\n    xdsScanAuftrag.AfterLoadDFMValues;\r\n    xdsScanPAuftrag.AfterLoadDFMValues;\r\n    xdsScanArbeitArt.AfterLoadDFMValues;\r\n    xdsScanInfos.AfterLoadDFMValues;\r\n    xdsScanDauerMinuten.AfterLoadDFMValues;\r\n    xdsScanKalkStundensatz.AfterLoadDFMValues;\r\n    xdsScanKalkKosten.AfterLoadDFMValues;\r\n    sourceScan.AfterLoadDFMValues;\r\n    xdsPZEEinstellungen.AfterLoadDFMValues;\r\n    xdsPZEEinstellungenZuordnungObjekt.AfterLoadDFMValues;\r\n    xdsPZEEinstellungenZuordnungKontakt.AfterLoadDFMValues;\r\n    xdsPZEEinstellungenZuordnungAuftrag.AfterLoadDFMValues;\r\n    xdsPZEEinstellungenZuordnungProduktion.AfterLoadDFMValues;\r\n    xdsPZEEinstellungenAuswahlNurKontaktnummer.AfterLoadDFMValues;\r\n    xdsPZEEinstellungenPauseVorgabe.AfterLoadDFMValues;\r\n    sourcePZEEinstellungen.AfterLoadDFMValues;\r\n    xdsStundenart.AfterLoadDFMValues;\r\n    xdsStundenartStundenArt.AfterLoadDFMValues;\r\n    sourceStundenart.AfterLoadDFMValues;\r\n    xdsPauseFix.AfterLoadDFMValues;\r\n    xdsPauseFixFAID.AfterLoadDFMValues;\r\n    xdsPauseFixID.AfterLoadDFMValues;\r\n    xdsPauseFixPersonalnummer.AfterLoadDFMValues;\r\n    xdsPauseFixScanDatumZeit.AfterLoadDFMValues;\r\n    xdsPauseFixDatum.AfterLoadDFMValues;\r\n    xdsPauseFixScanArt.AfterLoadDFMValues;\r\n    xdsPauseFixObjektreferenz.AfterLoadDFMValues;\r\n    xdsPauseFixScanBegin.AfterLoadDFMValues;\r\n    xdsPauseFixScanEnde.AfterLoadDFMValues;\r\n    xdsPauseFixausgewertet.AfterLoadDFMValues;\r\n    xdsPauseFixAMS.AfterLoadDFMValues;\r\n    xdsPauseFixStundenArt.AfterLoadDFMValues;\r\n    xdsPauseFixKundennummer.AfterLoadDFMValues;\r\n    xdsPauseFixAuftrag.AfterLoadDFMValues;\r\n    xdsPauseFixPAuftrag.AfterLoadDFMValues;\r\n    xdsPauseFixArbeitArt.AfterLoadDFMValues;\r\n    xdsPauseFixInfos.AfterLoadDFMValues;\r\n    xdsPauseFixDauerMinuten.AfterLoadDFMValues;\r\n    xdsPauseFixKalkStundensatz.AfterLoadDFMValues;\r\n    xdsPauseFixKalkKosten.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit unit_EinzelAuftrag;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Data.DB, WEBLib.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, XData.Web.Connection, Vcl.Controls, Vcl.StdCtrls,\r\n  WEBLib.StdCtrls, WEBLib.ExtCtrls, Vcl.Grids, WEBLib.DBCtrls, VCL.TMSFNCTypes,\r\n  VCL.TMSFNCUtils, VCL.TMSFNCGraphics, VCL.TMSFNCGraphicsTypes, strutils,weblib.json,\r\n  VCL.TMSFNCCustomControl, VCL.TMSFNCTableView, WEBLib.Buttons, WEBLib.Grids,\r\n  VCL.TMSFNCSignatureCapture, WEBLib.Mask, dateutils,\r\n  VCL.TMSFNCCustomPicker, VCL.TMSFNCDatePicker, XData.Web.Client, WEBLib.REST,\r\n  DB, Vcl.Mask;\r\n\r\ntype\r\n  TEinzelAuftrag = class(TForm)\r\n    dsBeleg: TXDataWebDataSet;\r\n    SourceBeleg: TDataSource;\r\n    dsBelegKundennummer: TXDataWebEntityField;\r\n    dsBelegNummerkomplett: TStringField;\r\n    dsBelegReferenzAngebot: TStringField;\r\n    dsBelegReferenzLieferschein: TStringField;\r\n    dsBelegReferenzRechnung: TStringField;\r\n    dsBelegDatum: TDateTimeField;\r\n    dsBelegJahr: TFloatField;\r\n    dsBelegKalenderwoche: TIntegerField;\r\n    dsBelegNachname: TStringField;\r\n    dsBelegVorname: TStringField;\r\n    dsBelegPostleitzahl: TStringField;\r\n    dsBelegOrt: TStringField;\r\n    dsBelegLaenderkuerzel: TStringField;\r\n    dsBelegLand: TStringField;\r\n    dsBelegBriefanrede1: TStringField;\r\n    dsBelegBriefanrede2: TStringField;\r\n    dsBelegEMail: TStringField;\r\n    dsBelegAdresseBild: TStringField;\r\n    dsBelegLieferanschriftBild: TStringField;\r\n    dsBelegZahlungsbedingung: TIntegerField;\r\n    dsBelegZahlungsbedingungText: TStringField;\r\n    dsBelegAuftragsbezeichnung: TStringField;\r\n    dsBelegAuftragnummerKunde: TStringField;\r\n    dsBelegBestelldatumKunde: TDateTimeField;\r\n    dsBelegILN: TStringField;\r\n    dsBelegKopftext: TStringField;\r\n    dsBelegSchlussbemerkung: TStringField;\r\n    dsBelegGruss: TStringField;\r\n    dsBelegMehrwertsteuersatz1: TFloatField;\r\n    dsBelegMehrwertsteuersatz2: TFloatField;\r\n    dsBelegNettosumme01: TFloatField;\r\n    dsBelegNettosumme02: TFloatField;\r\n    dsBelegNettosumme: TFloatField;\r\n    dsBelegMehrwertsteuer01: TFloatField;\r\n    dsBelegMehrwertsteuer02: TFloatField;\r\n    dsBelegMehrwertsteuer: TFloatField;\r\n    dsBelegBruttosumme: TFloatField;\r\n    dsBelegVersanddatum: TDateTimeField;\r\n    dsBelegSkontosatz: TFloatField;\r\n    dsBelegNettosummeEK: TFloatField;\r\n    dsBelegNettoMarge: TFloatField;\r\n    dsBelegSchreibzeichen: TStringField;\r\n    dsBelegUnterzeichner: TStringField;\r\n    dsBelegTelefonMA: TStringField;\r\n    dsBelegEmailMA: TStringField;\r\n    dsBelegUSTID: TStringField;\r\n    dsBelegUmsatzsteuerausweis: TBooleanField;\r\n    dsBeleggebucht: TBooleanField;\r\n    dsBelegLieferdatum: TDateTimeField;\r\n    dsBelegTransportbedingung: TStringField;\r\n    dsBelegMehrwertsteuersatz3: TFloatField;\r\n    dsBelegMehrwertsteuer03: TFloatField;\r\n    dsBelegNettosumme03: TFloatField;\r\n    dsBelegRundungsDifferenz: TFloatField;\r\n    dsBelegEmailText: TStringField;\r\n    dsBelegAuftragerledigt: TBooleanField;\r\n    dsBelegRabattstufe: TStringField;\r\n    dsBelegKFZKennzeichen: TStringField;\r\n    dsBelegFahrgestellnummer: TStringField;\r\n    dsBelegKFZHersteller: TStringField;\r\n    dsBelegErstzulassungsdatum: TDateTimeField;\r\n    dsBelegKMStand: TStringField;\r\n    dsBelegKFZType: TStringField;\r\n    dsBelegInspektionsdatum: TDateTimeField;\r\n    dsBelegDebitorennummer: TStringField;\r\n    dsBelegKostentraeger: TStringField;\r\n    dsBelegRabattsatz: TFloatField;\r\n    dsBelegObjektReferenz: TStringField;\r\n    dsBelegBank: TStringField;\r\n    dsBelegBankleitzahl: TFloatField;\r\n    dsBelegKontonummer: TStringField;\r\n    dsBelegKontoinhaber: TStringField;\r\n    dsBelegTelefaxnummer: TStringField;\r\n    dsBelegDatumNeu: TDateTimeField;\r\n    dsBelegDatumgeaendert: TDateTimeField;\r\n    dsBelegObjektnummer: TStringField;\r\n    dsBelegLiefertermin: TStringField;\r\n    dsBelegEmailversand: TBooleanField;\r\n    dsBelegTelefonnummer: TStringField;\r\n    dsBelegMobilTelefon: TStringField;\r\n    dsBelegAuftragFax: TBooleanField;\r\n    dsBelegREDatum: TDateTimeField;\r\n    dsBelegBenutzerNeu: TStringField;\r\n    dsBelegBenutzerGeaendert: TStringField;\r\n    dsBelegBerechnungBrutto: TBooleanField;\r\n    dsBelegBruttosumme01: TFloatField;\r\n    dsBelegBruttosumme02: TFloatField;\r\n    dsBelegBruttosumme03: TFloatField;\r\n    dsBelegNotiz: TStringField;\r\n    dsBelegMargeProzent: TFloatField;\r\n    dsBelegWarenkreditgesperrt: TBooleanField;\r\n    dsBelegBelegsprache: TStringField;\r\n    dsBelegDuplicate: TStringField;\r\n    dsBelegperEmail: TBooleanField;\r\n    dsBelegAnsprechpartner: TStringField;\r\n    dsBelegKundennummerFremd: TStringField;\r\n    dsBelegProtokoll: TStringField;\r\n    dsBelegVerleihauftrag: TBooleanField;\r\n    dsBelegVerleihVon: TDateTimeField;\r\n    dsBelegVerleihBis: TDateTimeField;\r\n    dsBelegAuftragGenehmigt: TBooleanField;\r\n    dsBeleggesperrt: TBooleanField;\r\n    dsBelegVerleihvonText: TStringField;\r\n    dsBelegVerleihbisText: TStringField;\r\n    dsBelegDruckWHG: TStringField;\r\n    dsBelegDruckWHGKurs: TFloatField;\r\n    dsBelegProzentsatzZusatzposition: TFloatField;\r\n    dsBelegTextZusatzposition: TStringField;\r\n    dsBelegTextzusatzBeschreibung: TStringField;\r\n    dsBelegLayoutname: TStringField;\r\n    dsBelegGesamtgewicht: TFloatField;\r\n    dsBelegBetragZusatzposition: TFloatField;\r\n    dsBelegReferenzBestellung: TStringField;\r\n    dsBelegTermin1: TDateTimeField;\r\n    dsBelegTermin2: TDateTimeField;\r\n    dsBelegZielkontaktnummer: TStringField;\r\n    dsBelegZielkontaktname: TStringField;\r\n    dsBelegBilddatei1: TStringField;\r\n    dsBelegBilddatei2: TStringField;\r\n    dsBelegZielkontaktnummer2: TStringField;\r\n    dsBelegZielkontaktname2: TStringField;\r\n    dsBelegbestaetigt: TDateTimeField;\r\n    dsBelegZielkontaktnummer3: TStringField;\r\n    dsBelegZielkontaktname3: TStringField;\r\n    dsBelegTermin3: TDateTimeField;\r\n    dsBelegTermin4: TDateTimeField;\r\n    dsBelegMuster: TBooleanField;\r\n    dsBelegKW: TIntegerField;\r\n    dsBelegDatenlink: TStringField;\r\n    dsBelegMehrwertsteuersatz4: TFloatField;\r\n    dsBelegMehrwertsteuersatz5: TFloatField;\r\n    dsBelegMehrwertsteuersatz6: TFloatField;\r\n    dsBelegBesteuerungKey: TIntegerField;\r\n    dsBelegVertreterMatchcode: TStringField;\r\n    dsBelegVerfasser: TStringField;\r\n    dsBelegLieferadresseID: TIntegerField;\r\n    dsBelegAuftragStatus: TStringField;\r\n    dsBelegMonatJahr: TDateTimeField;\r\n    dsBelegBelegvariante: TStringField;\r\n    dsBelegProduktionsfreigabe: TBooleanField;\r\n    dsBelegReferenzRahmenAuftrag: TStringField;\r\n    dsBelegDatumRahmenAuftrag: TDateTimeField;\r\n    dsBelegFahrzeugID: TIntegerField;\r\n    dsBelegAuslieferungKW: TStringField;\r\n    dsBelegBereitstellungDatum: TDateTimeField;\r\n    dsBelegVTUID: TStringField;\r\n    dsBelegLieferanschriftDaten: TStringField;\r\n    dsBelegGesamtVolumen: TFloatField;\r\n    dsBelegBelegPKey: TIntegerField;\r\n    dsBelegDruckParameter: TStringField;\r\n    dsBelegReferenzService: TStringField;\r\n    dsBelegZusatzDaten: TStringField;\r\n    dsBelegStandPDF: TStringField;\r\n    dsBelegPaketdienst: TStringField;\r\n    dsBelegMonteur: TIntegerField;\r\n    dsPositionen: TXDataWebDataSet;\r\n    sourcePositionen: TDataSource;\r\n    dsPositionenArtikelnummer: TXDataWebEntityField;\r\n    dsPositionenNummerkomplett: TXDataWebEntityField;\r\n    dsPositionenID: TIntegerField;\r\n    dsPositionenPosNr: TFloatField;\r\n    dsPositionenPosUNr: TFloatField;\r\n    dsPositionenSumme: TBooleanField;\r\n    dsPositionenArtikelueberschrift: TStringField;\r\n    dsPositionenArtikelbeschreibung: TStringField;\r\n    dsPositionenMenge: TFloatField;\r\n    dsPositionenArtderMenge: TStringField;\r\n    dsPositionenVerkaufspreis: TFloatField;\r\n    dsPositionenEinkaufspreis: TFloatField;\r\n    dsPositionenSeriennummer: TStringField;\r\n    dsPositionenWarengruppe: TStringField;\r\n    dsPositionenWarenuntergruppe: TStringField;\r\n    dsPositionenArtikelnummerKunde: TStringField;\r\n    dsPositionenLieferant: TStringField;\r\n    dsPositionenGewicht: TFloatField;\r\n    dsPositionenLaenge: TFloatField;\r\n    dsPositionenBreite: TFloatField;\r\n    dsPositionenHoehe: TFloatField;\r\n    dsPositionenMehrwertsteuersatz: TFloatField;\r\n    dsPositionenEndpreis: TFloatField;\r\n    dsPositionenPosMWST: TFloatField;\r\n    dsPositionenBruttoEndpreis: TFloatField;\r\n    dsPositionenEndpreis_EK: TFloatField;\r\n    dsPositionenRabattsatz: TFloatField;\r\n    dsPositionenPreisvorRabatt: TFloatField;\r\n    dsPositionenPKZ: TFloatField;\r\n    dsPositionenTextfrei10: TStringField;\r\n    dsPositionenTextfrei20: TStringField;\r\n    dsPositionenProduktionAbgeschlossen: TDateTimeField;\r\n    dsPositionenEinzelpreisBrutto: TFloatField;\r\n    dsPositionenPosMarge: TFloatField;\r\n    dsPositionenPosMargeProzent: TFloatField;\r\n    dsPositionenBereitsGeliefert: TFloatField;\r\n    dsPositionenausliefern: TFloatField;\r\n    dsPositionenBestellungErledigt: TBooleanField;\r\n    dsPositionenLager: TStringField;\r\n    dsPositionenbestellen: TBooleanField;\r\n    dsPositionenWarenbestand: TBooleanField;\r\n    dsPositionenArtikelbeschreibungRTF: TStringField;\r\n    dsPositionenQuellartikel: TStringField;\r\n    dsPositionenArtikelnummerWB: TStringField;\r\n    dsPositionenPreisanteilNetto: TFloatField;\r\n    dsPositionenSetHPos: TStringField;\r\n    dsPositionenSetUPos: TStringField;\r\n    dsPositionenProvisionssatz: TFloatField;\r\n    dsPositionenProvisionsbetrag: TFloatField;\r\n    dsPositionenArtikelsprache: TStringField;\r\n    dsPositionenEKvom: TDateTimeField;\r\n    dsPositionenMengenberechnungID: TStringField;\r\n    dsPositionenTaraID: TStringField;\r\n    dsPositionenTara: TFloatField;\r\n    dsPositionenBruttoGewicht: TFloatField;\r\n    dsPositionenAussenflaeche: TFloatField;\r\n    dsPositionenLadeort: TStringField;\r\n    dsPositionenSeitenumbruch: TBooleanField;\r\n    dsPositionenPlanerFarbe: TIntegerField;\r\n    dsPositionenMWStKey: TIntegerField;\r\n    dsPositionenZSnachPos: TBooleanField;\r\n    dsPositionenLieferzeit: TStringField;\r\n    dsPositionenPreisVorRabattWHG: TFloatField;\r\n    dsPositionenReferenzKalkulation: TStringField;\r\n    dsPositionenPKey: TIntegerField;\r\n    dsPositionenAuftragsnummer: TStringField;\r\n    dsPositionenlwbID: TStringField;\r\n    dsPositionenBelegdatum: TDateTimeField;\r\n    dsPositionenWarenkontrollnummern: TStringField;\r\n    dsPositionenVolumen: TFloatField;\r\n    dsPositionenPosVolumen: TFloatField;\r\n    dsPositionenArtikelAttribute: TStringField;\r\n    dsPositionenMonteurP: TIntegerField;\r\n    dsPositionenArbeitszeitDatum: TDateTimeField;\r\n    dsPositionenArbeitszeitVON: TDateTimeField;\r\n    dsPositionenArbeitszeitBIS: TDateTimeField;\r\n    TC: TTableControl;\r\n    dsBelegKundennummerKundennummer: TStringField;\r\n    dsUnterschriften: TXDataWebDataSet;\r\n    dsUnterschriftenNummerkomplett: TStringField;\r\n    dsUnterschriftenDatum: TDateTimeField;\r\n    dsUnterschriftenUnterschriftMonteur: TBlobField;\r\n    dsUnterschriftenUnterschriftKunde: TBlobField;\r\n    sourceUnterschriften: TDataSource;\r\n    dsPositionenArtikelnummerArtikelnummer: TStringField;\r\n    dsPositionenArtikelnummerArbeitszeit: TBooleanField;\r\n    dsUnterschriftenUnterschriftMonteurText: TStringField;\r\n    dsUnterschriftenUnterschriftKundeText: TStringField;\r\n    dsSumBeleg: TXDataWebDataSet;\r\n    dsSumBelegPosVolumen: TFloatField;\r\n    dsSumBelegBruttoGewicht: TFloatField;\r\n    dsSumBelegMehrwertsteuersatz: TFloatField;\r\n    dsSumBelegEndpreis: TFloatField;\r\n    dsSumBelegPosMWST: TFloatField;\r\n    dsSumBelegBruttoEndpreis: TFloatField;\r\n    dsSumBelegEndpreis_EK: TFloatField;\r\n    dsSumBelegPKZ: TFloatField;\r\n    dsBelegServiceBemerkung: TStringField;\r\n    WClient: TXDataWebClient;\r\n    WebHttpRequest1: THttpRequest;\r\n    dsObjekt: TXDataWebDataSet;\r\n    dsObjektObjektReferenz: TStringField;\r\n    dsObjektKurzbezeichnung: TStringField;\r\n    dsObjektObjektnummer: TStringField;\r\n    Container1: THTMLContainer;\r\n    btnzurueck: TButton;\r\n    btnUnterschreiben: TButton;\r\n    btnPDF: TButton;\r\n    btnTermine: TButton;\r\n    Container3: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    PTC: TTableControl;\r\n    btnSpeichern: TButton;\r\n    pickLieferdatum: TDBDateTimePicker;\r\n    edtAuftragsbezeichnung: TDBEdit;\r\n    edtLiefertermin: TDBEdit;\r\n    btnNeuePosition: TButton;\r\n    Container4: THTMLContainer;\r\n    webDBComboAuftragStatus: TDBComboBox;\r\n    belegComboMonteur: TComboBox;\r\n    belegMemoServiceBemerkung: TDBMemo;\r\n    btnPDFSenden: TButton;\r\n    edtEmail: TDBEdit;\r\n    btnPZE_A: TButton;\r\n    btnPZE_O: TButton;\r\n    dsDateien: TXDataWebDataSet;\r\n    dsDateienID: TIntegerField;\r\n    dsDateienDatumUhrzeit: TDateTimeField;\r\n    dsDateienDateiBetreff: TStringField;\r\n    dsDateienNummerkomplett: TStringField;\r\n    btnDateien: TButton;\r\n    btnDateienObjekt: TButton;\r\n    btnDateienKontakt: TButton;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure dsBelegAfterOpen(DataSet: TDataSet);\r\n    procedure WebFormCreate(Sender: TObject);\r\n    procedure dsBelegAfterPost(DataSet: TDataSet);\r\n    procedure dsBelegAfterApplyUpdates(Sender: TDataSet; Info: TResolveResults);\r\n    procedure btnNeuePositionClick(Sender: TObject);\r\n    procedure dsUnterschriftenAfterOpen(DataSet: TDataSet);\r\n    procedure btnUnterschreibenClick(Sender: TObject);\r\n    procedure dsUnterschriftenAfterPost(DataSet: TDataSet);\r\n    procedure dsUnterschriftenAfterApplyUpdates(Sender: TDataSet;\r\n      Info: TResolveResults);\r\n    procedure WebFormCloseQuery(Sender: TObject; var CanClose: Boolean);\r\n    procedure dsBelegBeforePost(DataSet: TDataSet);\r\n    procedure dsSumBelegAfterOpen(DataSet: TDataSet);\r\n    procedure btnPDFClick(Sender: TObject);\r\n    procedure btnTermineClick(Sender: TObject);\r\n    procedure dsObjektAfterOpen(DataSet: TDataSet);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n    procedure dsPositionenAfterOpen(DataSet: TDataSet);\r\n    procedure SourceBelegStateChange(Sender: TObject);\r\n    procedure btnSpeichernClick(Sender: TObject);\r\n    procedure belegComboMonteurEnter(Sender: TObject);\r\n    procedure pickLieferdatumClick(Sender: TObject);\r\n    procedure WebFormHashChange(Sender: TObject; oldURL, newURL: string);\r\n    procedure WebFormClose(Sender: TObject; var Action: TCloseAction);\r\n    procedure btnPDFSendenClick(Sender: TObject);\r\n    procedure btnPZE_AClick(Sender: TObject);\r\n    procedure btnPZE_OClick(Sender: TObject);\r\n    procedure btnDateienClick(Sender: TObject);\r\n    procedure dsDateienAfterOpen(DataSet: TDataSet);\r\n    procedure btnDateienObjektClick(Sender: TObject);\r\n    procedure btnDateienKontaktClick(Sender: TObject);\r\n\r\n    public\r\n\r\n    imgUnterschriftMonteur:TImageControl;\r\n    imgUnterschriftKunde:TImageControl;\r\n    MerkerAuftrag:string;\r\n    NeuePosition:boolean;\r\n    LetztePosNr:double;\r\n    PositionsID:string;\r\n    Belegart:string;\r\n    Belegvariante:string;\r\n    Belegnummer:string;\r\n    Artikelnummer:string;\r\n\r\n    Monteurstringlist:TStringList;\r\n    btnObjektWahl:TButton;\r\n    buttonBearbeiten:TButton;\r\n\r\n\r\n    procedure btnObjektWahlClick(Sender:TObject);\r\n    procedure buttonBearbeitenclick(Sender:TObject);\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  EinzelAuftrag: TEinzelAuftrag;\r\n\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_ArtikelSuche, unit_AuftragUnterschriften, unit_AuftragTermine, unit_Objektsuche, unit_AuftragPosEinzel, unit_PZE, unit_Dateien;\r\n{$R *.dfm}\r\n\r\n\r\n\r\nprocedure TEinzelAuftrag.buttonBearbeitenclick(sender:TObject);\r\nvar\r\n  AuftragPosEinzel:TAuftragPosEinzel;\r\n  MyPositionsID:string;\r\n  myArtikelnummer:string;\r\nbegin\r\n  myPositionsID:=inttostr((sender as TButton).tag);\r\n  myArtikelnummer:=(sender as TButton).Hint;\r\n  Container4.HTML.text:='';\r\n  Container3.HTML.Text:='';\r\n  AuftragPosEinzel:=TAuftragPosEinzel.CreateNew(procedure(AForm: TObject)\r\n    begin\r\n      (AForm as TAuftragPosEinzel).PositionsID:=myPositionsID;\r\n      (AForm as TAuftragPosEinzel).tmpArtikelnummer:=myArtikelnummer;\r\n      (AForm as TAuftragPosEinzel).tmpKundennummer:=dsBelegKundennummerKundennummer.AsString;\r\n      (AForm as TAuftragPosEinzel).tmpMerkerAuftrag:=MerkerAuftrag;\r\n      (AForm as TAuftragPosEinzel).NeuePosition:=False;\r\n    end\r\n    );\r\n      AuftragPosEinzel.ShowModal(procedure(AValue: TModalResult)\r\n    begin\r\n      dsSumBeleg.Close;\r\n      dsSumBeleg.QueryString:='$filter=Nummerkomplett eq '+QuotedStr(MerkerAuftrag);\r\n      dsSumBeleg.Load;\r\n    end\r\n    );\r\nend;\r\n\r\n\r\n\r\n\r\nprocedure TEinzelAuftrag.btnObjektWahlClick(Sender:TObject);\r\nvar\r\n  LFrm:TfrmObjektsuche;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmObjektsuche;\r\n    begin\r\n      LForm:=(AForm as TfrmObjektsuche);\r\n      lform.Objektreferenz:='';\r\n\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      if lfrm.Objektreferenz<>'' then\r\n      begin\r\n        dsobjekt.Close;\r\n        dsobjekt.QueryString:='$filter=Objektreferenz eq '+QuotedStr(lfrm.Objektreferenz);\r\n        dsobjekt.Load;\r\n      end;\r\n\r\n\r\n    end;\r\n\r\n  begin\r\n  LFrm:=TfrmObjektsuche.CreateNew(@AfterCreate);\r\n // LFrm.Popup:=true;\r\n  LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TEinzelAuftrag.dsBelegAfterApplyUpdates(Sender: TDataSet;\r\n  Info: TResolveResults);\r\nbegin\r\n    dsPositionen.Close;\r\n    dsunterschriften.Close;\r\n    dsBeleg.Close;\r\n    dsBeleg.QueryString:='$expand=Kundennummer&$filter=Nummerkomplett eq '+QuotedStr(MerkerAuftrag);\r\n    dsBeleg.Load;\r\nend;\r\n\r\nprocedure TEinzelAuftrag.dsBelegAfterOpen(DataSet: TDataSet);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  btnPZE_A.visible:=false;\r\n  btnPZE_O.visible:=false;\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Einzel-Auftrag</h5></nav>';\r\n  //Container2.HTML.Text:='';\r\n  myelement:=container1.ElementHandle;\r\n\r\n  container2.ParentElement:=myelement;\r\n  container3.ParentElement:=myelement;\r\n\r\n\r\n  myelement:=container2.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  btnspeichern.ParentElement:=myelement;\r\n  btnUnterschreiben.ParentElement:=myelement;\r\n  btnpdf.ParentElement:=myelement;\r\n  btnpdf.Enabled:=form1.rcw.Verkaufspreise;\r\n  btnPDFSenden.ParentElement:=myelement;\r\n  btntermine.ParentElement:=myelement;\r\n\r\n  myelement:=container3.elementhandle;\r\n  TC.ParentElement:=myelement;\r\n  container4.ParentElement:=myelement;\r\n  myelement:=container4.elementhandle;\r\n  PTC.ParentElement:=myelement;\r\n\r\n\r\n  TC.Visible:=true;\r\n  TC.RowCount:=21;\r\n  TC.Cells[0,0]:='<small><i>Auftragsnummer | Datum';\r\n  TC.Cells[0,1]:='<small><i>Kundennummer';\r\n  myelement:=TC.cellelements[0,1];\r\n  btnDateienKontakt.ParentElement:=myelement;\r\n  TC.Cells[0,2]:='<small><i>Anschrift';\r\n  TC.Cells[0,3]:='<small><i>Email';\r\n  TC.Cells[0,4]:='<small><i>Auftragsdatum | -Nr.';\r\n  TC.Cells[0,5]:='<small><i>Objektnr.';\r\n  TC.Cells[0,6]:='<small><i>Auftragsbezeichnung';\r\n  TC.Cells[0,7]:='<small><i>Lieferdatum';\r\n  TC.Cells[0,8]:='<small><i>Liefertermin';\r\n  TC.Cells[0,9]:='<small><i>MonteurIn';\r\n  TC.Cells[0,10]:='<small><i>Status';\r\n  TC.Cells[0,11]:='<small><i>Netto';\r\n  TC.Cells[0,12]:='<small><i>Lieferanschrift';\r\n  TC.Cells[0,13]:='<small><i>Versanddatum';\r\n  TC.Cells[0,14]:='<small><i>Rechnung Nr. | -Datum';\r\n  TC.Cells[0,15]:='<small><i>Unterzeichner';\r\n  TC.Cells[0,16]:='<small><i>Bemerkung';\r\n  TC.Cells[0,17]:='<small><i>Unterschrift Monteur';\r\n  TC.Cells[0,18]:='<small><i>Unterschrift Kunde';\r\n  TC.Cells[0,19]:='<small><i>Unterschriften vom';\r\n  TC.Cells[0,20]:='<small><i>Dateien';\r\n\r\n  myelement:=TC.cellelements[0,0];\r\n  btnPZE_A.ParentElement:=myelement;\r\n\r\n  myelement:=TC.cellelements[0,5];\r\n  btnPZE_O.ParentElement:=myelement;\r\n\r\n  myelement:=TC.cellelements[0,20];\r\n  btnDateien.ParentElement:=myelement;\r\n\r\n  myelement:=tc.CellElements[1,3];\r\n  edtEmail.ParentElement:=myelement;\r\n\r\n  myelement:=tc.CellElements[1,6];\r\n  edtAuftragsbezeichnung.ParentElement:=myelement;\r\n\r\n  myelement:=tc.CellElements[1,7];\r\n  picklieferdatum.ParentElement:=myelement;\r\n\r\n  myelement:=tc.CellElements[1,8];\r\n  edtLiefertermin.ParentElement:=myelement;\r\n\r\n  myelement:=tc.CellElements[1,10];\r\n\r\n  webDBComboAuftragStatus.ParentElement:=myelement;\r\n\r\n  myelement:=tc.CellElements[1,9];\r\n  belegComboMonteur.ParentElement:=myelement;\r\n\r\n  myelement:=tc.CellElements[1,16];\r\n  belegMemoServiceBemerkung.ParentElement:=myelement;\r\n  if dsBeleggesperrt.AsBoolean=true then\r\n  begin\r\n    TC.Cells[1,0]:='<h5>'+dsbelegNummerkomplett.asstring +' | '+formatdatetime('DD.MM.YYYY',dsbelegDatum.asdatetime)+' | GESPERRT';\r\n  end\r\n  else\r\n  begin\r\n    TC.Cells[1,0]:='<h5>'+dsbelegNummerkomplett.asstring +' | '+formatdatetime('DD.MM.YYYY',dsbelegDatum.asdatetime)+' | Bearbeitung möglich';\r\n  end;\r\n\r\n  TC.Cells[1,1]:='<h6>'+dsBelegKundennummerKundennummer.asstring;\r\n  TC.Cells[1,2]:='<h6>'+ReplaceStr(dsbelegAdresseBild.asstring,#13+#10,'<BR>');\r\n\r\n\r\n  TC.Cells[1,4]:=formatdatetime('DD.MM.YYYY',dsbelegBestelldatumKunde.Asdatetime)+' | '+dsbelegAuftragnummerKunde.Asstring;\r\n  TC.Cells[1,5]:=dsbelegObjektnummer.Asstring;\r\n  myelement:=TC.cellelements[0,5];\r\n  btnDateienObjekt.ParentElement:=myelement;\r\n  if dsbeleggesperrt.asboolean=false then\r\n  begin\r\n    myelement:=TC.cellelements[1,5];\r\n    btnObjektWahl:=TButton.Create(self);\r\n    btnObjektWahl.ElementClassName:='btn btn-info btn-sm text-left';\r\n    btnObjektWahl.HeightStyle:=ssauto;\r\n    btnObjektWahl.WidthStyle:=ssauto;\r\n    btnObjektWahl.tag:=0;\r\n    btnObjektWahl.Caption:='ändern';\r\n    btnObjektWahl.OnClick:=@btnObjektWahlClick;\r\n    btnObjektWahl.ParentElement:=myelement;\r\n  end;\r\n\r\n  belegComboMonteur.ItemIndex:=2;\r\n\r\n  if dsBeleggesperrt.AsBoolean=true then TC.Cells[1,10]:=dsbelegauftragstatus.asstring;\r\n  if form1.rcw.Verkaufspreise=TRUE then TC.Cells[1,11]:=formatfloat('#,##0.00',dsbelegNettosumme.Asfloat);\r\n  if form1.rcw.Verkaufspreise=FALSE then TC.Cells[1,11]:='XXX';\r\n  TC.Cells[1,12]:=ReplaceStr(dsBelegLieferanschriftBild.Asstring,#13+#10,'<BR>');\r\n  if dsbelegversanddatum.AsString<>'' then TC.Cells[1,13]:=formatdatetime('DD.MM.YYYY',dsbelegVersanddatum.Asdatetime);\r\n  TC.Cells[1,14]:=dsbelegreferenzrechnung.AsString+' | '+dsbelegREDatum.AsString;\r\n  TC.Cells[1,15]:=dsbelegUnterzeichner.AsString;\r\n  if dsBelegMonteur.AsString<>'' then\r\n  begin\r\n    dm2.queryMonteur.Locate('Personalnummer',dsBelegMonteur.AsString,[]);\r\n    belegcombomonteur.Text:=dm2.queryMonteurPersonalnummer.asstring+'| '+dm2.queryMonteurNachname.asstring+', '+dm2.queryMonteurVorname.asstring;\r\n  end\r\n  else\r\n  begin\r\n    belegComboMonteur.Text:='';\r\n  end;\r\n\r\n  //PZE einblenden wenn zugelassen\r\n  if form1.rcw.Zeiterfassung=true then\r\n  begin\r\n    if (PZE_Auftrag_erlaubt=1) AND (dsbelegnummerkomplett.asstring<>'') then btnPZE_A.visible:=true;\r\n    if (PZE_Objekt_erlaubt=1) AND (dsbelegObjektReferenz.Asstring<>'') then btnPZE_O.visible:=true;\r\n  end;\r\n\r\n\r\n  edtAuftragsbezeichnung.SetFocus;\r\n  dsUnterschriften.QueryString:='$filter=Nummerkomplett eq '+QuotedStr(MerkerAuftrag);\r\n  dsUnterschriften.Load;\r\nend;\r\n\r\nprocedure TEinzelAuftrag.dsBelegAfterPost(DataSet: TDataSet);\r\nbegin\r\n  if LizenzOK then\r\n  begin\r\n    dsBeleg.ApplyUpdates;\r\n  end\r\n  else\r\n  begin\r\n    showmessage('Für das Speichern von Daten sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n  end;\r\nend;\r\n\r\nprocedure TEinzelAuftrag.dsBelegBeforePost(DataSet: TDataSet);\r\nvar\r\n  tempnettosumme:double;\r\n  tempnettosumme01:double;\r\n  tempnettosumme02:double;\r\n  tempnettosumme03:double;\r\n  tempnettosummeEK:double;\r\nbegin\r\n  if belegcombomonteur.Text='' then\r\n  begin\r\n    dsBelegMonteur.AsString:='';\r\n  end\r\n  else\r\n  begin\r\n    Monteurstringlist.DelimitedText:=belegComboMonteur.Text;\r\n    dsBelegMonteur.AsString:=Monteurstringlist[0];\r\n  end;\r\n\r\n  if dssumBeleg.Active then\r\n  begin\r\n  if dsSumBeleg.RecordCount>0 then\r\n  begin\r\n    tempnettosumme:=0;\r\n    tempnettosumme01:=0;\r\n    tempnettosumme02:=0;\r\n    tempnettosumme03:=0;\r\n    tempnettosummeEK:=0;\r\n    dsSumBeleg.First;\r\n\r\n    while not dsSumBeleg.eof do\r\n    begin\r\n      tempnettosumme:=tempnettosumme+dsSumBelegEndpreis.AsFloat;\r\n      if dsSumBelegPKZ.AsFloat=0 then tempnettosummeEK:=tempnettosummeEK+dsSumBelegEndpreis_EK.AsFloat;\r\n      if dsBelegMehrwertsteuersatz1.AsFloat=dsSumBelegMehrwertsteuersatz.asfloat then\r\n      begin\r\n        tempnettosumme01:=tempnettosumme01+dsSumBelegEndpreis.AsFloat;\r\n      end;\r\n      if dsBelegMehrwertsteuersatz2.AsFloat=dsSumBelegMehrwertsteuersatz.asfloat then\r\n      begin\r\n        tempnettosumme02:=tempnettosumme02+dsSumBelegEndpreis.AsFloat;\r\n      end;\r\n      if dsBelegMehrwertsteuersatz3.AsFloat=dsSumBelegMehrwertsteuersatz.asfloat then\r\n      begin\r\n        tempnettosumme03:=tempnettosumme03+dsSumBelegEndpreis.AsFloat;\r\n      end;\r\n      dsSumBeleg.Next;\r\n    end;\r\n\r\n    dsBelegNettosumme.AsFloat:=tempnettosumme;\r\n    dsBelegNettosumme01.AsFloat:=tempnettosumme01;\r\n    dsBelegNettosumme02.AsFloat:=tempnettosumme02;\r\n    dsBelegNettosumme03.AsFloat:=tempnettosumme03;\r\n    dsBelegNettosummeEK.AsFloat:=tempnettosummeEK;\r\n\r\n\r\n  end;\r\n  end;\r\n  dsSumBeleg.Close;\r\n  dsbelegprotokoll.asstring:=dsbelegprotokoll.asstring+datetimetostr(date+time)+' CadiaWEB '+ BenutzerSchreibzeichen+#13+#10;\r\n\r\nend;\r\n\r\nprocedure TEinzelAuftrag.dsDateienAfterOpen(DataSet: TDataSet);\r\nvar\r\n  tempstringdateien:string;\r\nbegin\r\n  dsdateien.first;\r\n  while not dsdateien.eof do\r\n  begin\r\n    tempstringdateien:=tempstringdateien+formatdatetime('DD.MM.YYYY hh:mm:ss',dsdateiendatumuhrzeit.asdatetime)+' | '+dsdateiendateibetreff.asstring+'<br>';\r\n    dsdateien.next;\r\n  end;\r\n  TC.cells[1,20]:=tempstringdateien;\r\n  dsPositionen.QueryString:='$expand=Artikelnummer&$filter=Nummerkomplett eq '+QuotedStr(MerkerAuftrag)+'&$orderby=PosNr';\r\n  dsPositionen.Load;\r\nend;\r\n\r\nprocedure TEinzelAuftrag.dsObjektAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  dsbeleg.Edit;\r\n  dsbelegObjektReferenz.AsString:=dsObjektObjektReferenz.AsString;\r\n  dsbelegObjektnummer.AsString:=dsObjektObjektnummer.AsString;\r\n  dsobjekt.Close;\r\n  dsbeleg.post;\r\nend;\r\n\r\nprocedure TEinzelAuftrag.dsPositionenAfterOpen(DataSet: TDataSet);\r\nvar\r\n  I: Integer;\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  PTC.Visible:=true;\r\n  PTC.RowCount:=dsPositionen.RecordCount+1;\r\n  PTC.ColCount:=4;\r\n  myelement:=PTC.CellElements[0,0];\r\n  btnNeuePosition.ParentElement:=myelement;\r\n  PTC.Cells[1,0]:='Positionen/Artikel';\r\n  PTC.Cells[2,0]:='Menge';\r\n  PTC.Cells[3,0]:='Preise';\r\n  //PTC.Cells[7,0]:='Endpreis';\r\n\r\n  dspositionen.First;\r\n  for I := 1 to dspositionen.RecordCount do\r\n  begin\r\n    PTC.Cells[0,i]:=dspositionen.FieldByName('PosNr').AsString+'.'+dspositionen.FieldByName('PosUNr').AsString+'<br>';\r\n\r\n    myelement:=PTC.cellelements[0,i];\r\n    buttonBearbeiten:=TButton.Create(self);\r\n    buttonBearbeiten.ElementClassName:='btn btn-info btn-sm text-left';\r\n    buttonBearbeiten.HeightStyle:=ssauto;\r\n    buttonBearbeiten.WidthStyle:=ssauto;\r\n    buttonBearbeiten.tag:=dsPositionenID.asinteger;\r\n    buttonBearbeiten.Hint:=dsPositionenArtikelnummerArtikelnummer.AsString;\r\n    buttonBearbeiten.Caption:='bearbeiten';\r\n    buttonBearbeiten.OnClick:=@buttonBearbeitenClick;\r\n    buttonBearbeiten.ParentElement:=myelement;\r\n\r\n    PTC.Cells[1,i]:=dspositionen.FieldByName('Artikelnummer.Artikelnummer').AsString+'<br><b>'+dspositionen.FieldByName('Artikelueberschrift').AsString+'</b><br>'+leftstr(dspositionenArtikelbeschreibung.AsString,250)+'<br>'+dsPositionenMonteurP.AsString;;\r\n    PTC.Cells[2,i]:='<p class=\"text-right\">'+dspositionen.FieldByName('Menge').AsString + '<br>'+dsPositionenArtderMenge.asstring;\r\n    if form1.rcw.Verkaufspreise=true then PTC.Cells[3,i]:='<p class=\"text-right\">'+formatfloat('#,##0.00',dsPositionenVerkaufspreis.Asfloat)+'<br><b>'+formatfloat('#,##0.00',dsPositionenEndpreis.Asfloat);\r\n    if form1.rcw.Verkaufspreise=false then PTC.Cells[3,i]:='<p class=\"text-right\">XXX';\r\n    //if not einkauf then PTC.Cells[6,i]:='<p class=\"text-right\">'+formatfloat('#,##0.00',xdsPositionen.fieldbyname('Verkaufspreis').asfloat);\r\n    //if not einkauf then PTC.Cells[7,i]:='<p class=\"text-right\">'+formatfloat('#,##0.00',xdsPositionen.fieldbyname('Endpreis').asfloat);\r\n    dspositionen.Next;\r\n  end;\r\nend;\r\n\r\nprocedure TEinzelAuftrag.dsSumBelegAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  dsbeleg.Edit;\r\n  dsbeleg.Post;\r\nend;\r\n\r\nprocedure TEinzelAuftrag.dsUnterschriftenAfterApplyUpdates(Sender: TDataSet;\r\n  Info: TResolveResults);\r\nbegin\r\n    dsPositionen.Close;\r\n    dsbeleg.Edit;\r\n    dsbeleg.Post;\r\nend;\r\n\r\nprocedure TEinzelAuftrag.dsUnterschriftenAfterOpen(DataSet: TDataSet);\r\n var\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  if dsunterschriften.RecordCount=1 then\r\n  begin\r\n    try\r\n      //TC.Cells[1,15]:='<img id=\"imageMonteur\" src=\"'+xdataconnectionstring+'/AuftragUnterschriften('+quotedstr(dsbelegnummerkomplett.asstring)+')/UnterschriftMonteurText'+'\">';\r\n      //TC.Cells[1,16]:='<img id=\"imageKunde\" src=\"'+xdataconnectionstring+'/AuftragUnterschriften('+quotedstr(dsbelegnummerkomplett.asstring)+')/UnterschriftKunde'+'\">';\r\n\r\n\r\n      myelement:=tc.CellElements[1,16];\r\n      imgUnterschriftMonteur:=TImageControl.Create(self);\r\n      imgUnterschriftMonteur.height:=100;\r\n      imgUnterschriftMonteur.width:=200;\r\n      imgunterschriftmonteur.url:=dsUnterschriftenUnterschriftMonteurText.asstring;\r\n      myelement.innerHTML:='';\r\n      imgUnterschriftMonteur.ParentElement:=myelement;\r\n\r\n      myelement:=tc.CellElements[1,17];\r\n      imgUnterschriftKunde:=TImageControl.Create(self);\r\n      imgUnterschriftKunde.height:=100;\r\n      imgUnterschriftKunde.Width:=200;\r\n      imgunterschriftKunde.url:=dsUnterschriftenUnterschriftKundeText.asstring;\r\n      myelement.innerHTML:='';\r\n      imgUnterschriftKunde.ParentElement:=myelement;\r\n      TC.Cells[1,18]:=formatdatetime('DD.MM.YYYY hh:mm:ss',dsUnterschriftenDatum.Asdatetime);\r\n\r\n      btnUnterschreiben.enabled:=false;\r\n    except\r\n    end;\r\n  end;\r\n  dsdateien.close;\r\n  dsdateien.querystring:='$select=ID,DatumUhrzeit, DateiBetreff&$filter=Nummerkomplett eq '+ QuotedStr(MerkerAuftrag)+'&$orderby=ID';\r\n  Dsdateien.load;\r\nend;\r\n\r\nprocedure TEinzelAuftrag.dsUnterschriftenAfterPost(DataSet: TDataSet);\r\nbegin\r\n  if LizenzOK then\r\n  begin\r\n    dsUnterschriften.ApplyUpdates;\r\n  end\r\n  else\r\n  begin\r\n    showmessage('Für das Speichern von Daten sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n  end;\r\nend;\r\n\r\nprocedure TEinzelAuftrag.pickLieferdatumClick(Sender: TObject);\r\nbegin\r\n  if dsBelegLieferdatum.AsString='' then\r\n  begin\r\n    try\r\n      dsbeleg.Edit;\r\n      dsbeleglieferdatum.AsDateTime:=date;\r\n    except\r\n\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TEinzelAuftrag.SourceBelegStateChange(Sender: TObject);\r\nbegin\r\n  if dsBeleg.State in dseditmodes then btnspeichern.Enabled:=true else btnspeichern.Enabled:=false;\r\nend;\r\n\r\nprocedure TEinzelAuftrag.belegComboMonteurEnter(Sender: TObject);\r\nbegin\r\n  if dsbeleg.active then dsbeleg.Edit;\r\nend;\r\n\r\nprocedure TEinzelAuftrag.btnDateienClick(Sender: TObject);\r\nvar\r\n  LFrm:TfrmDateien;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmDateien;\r\n    begin\r\n      LForm:=(AForm as TfrmDateien);\r\n      lform.MerkerObjektreferenz:=dsBelegObjektReferenz.asstring;\r\n      lform.MerkerNummerkomplett:=MerkerAuftrag;\r\n      lform.MerkerKundennummer:=dsBelegKundennummerKundennummer.AsString;\r\n      lform.MerkerFahrzeugID:='';\r\n      lform.MerkerName:=trim(dsbelegvorname.asstring+' '+ dsBelegNachname.AsString);\r\n      lform.MerkerArt:='Auftrag';\r\n      lform.HeadlineText:='Dateien zu Auftrag '+dsBelegNummerkomplett.AsString+' | '+dsBelegAuftragsbezeichnung.AsString;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      dsSumBeleg.Close;\r\n      dsSumBeleg.QueryString:='$filter=Nummerkomplett eq '+QuotedStr(MerkerAuftrag);\r\n      dsSumBeleg.Load;\r\n    end;\r\n\r\n  begin\r\n  Container4.HTML.text:='';\r\n  Container3.HTML.Text:='';\r\n  LFrm:=TfrmDateien.CreateNew(@AfterCreate);\r\n  LFrm.ShowModal(@AfterShowmodal);\r\nend;\r\n\r\nprocedure TEinzelAuftrag.btnDateienKontaktClick(Sender: TObject);\r\nvar\r\n  LFrm:TfrmDateien;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmDateien;\r\n    begin\r\n      LForm:=(AForm as TfrmDateien);\r\n      lform.MerkerObjektreferenz:=dsBelegObjektReferenz.asstring;\r\n      lform.MerkerNummerkomplett:=MerkerAuftrag;\r\n      lform.MerkerKundennummer:=dsBelegKundennummerKundennummer.AsString;\r\n      lform.MerkerFahrzeugID:='';\r\n      lform.MerkerName:=trim(dsbelegvorname.asstring+' '+ dsBelegNachname.AsString);\r\n      lform.MerkerArt:='Kontakt';\r\n      lform.HeadlineText:='Dateien zu Kontakt '+dsBelegKundennummerKundennummer.AsString+' | '+dsBelegNachname.AsString;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      dsdateien.Close;\r\n      dsPositionen.Close;\r\n      dsBeleg.Close;\r\n      dsBeleg.QueryString:='$expand=Kundennummer&$filter=Nummerkomplett eq '+QuotedStr(MerkerAuftrag);\r\n      dsBeleg.Load;\r\n    end;\r\n\r\n  begin\r\n  If dsBelegKundennummerKundennummer.AsString<>'' then\r\n  begin\r\n    Container4.HTML.text:='';\r\n    Container3.HTML.Text:='';\r\n    LFrm:=TfrmDateien.CreateNew(@AfterCreate);\r\n    LFrm.ShowModal(@AfterShowmodal);\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TEinzelAuftrag.btnDateienObjektClick(Sender: TObject);\r\nvar\r\n  LFrm:TfrmDateien;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmDateien;\r\n    begin\r\n      LForm:=(AForm as TfrmDateien);\r\n      lform.MerkerObjektreferenz:=dsBelegObjektReferenz.asstring;\r\n      lform.MerkerNummerkomplett:=MerkerAuftrag;\r\n      lform.MerkerKundennummer:=dsBelegKundennummerKundennummer.AsString;\r\n      lform.MerkerFahrzeugID:='';\r\n      lform.MerkerName:=trim(dsbelegvorname.asstring+' '+ dsBelegNachname.AsString);\r\n      lform.MerkerArt:='Objekt';\r\n      lform.HeadlineText:='Dateien zu Objekt '+dsBelegObjektnummer.AsString;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      dsdateien.Close;\r\n      dsPositionen.Close;\r\n      dsBeleg.Close;\r\n      dsBeleg.QueryString:='$expand=Kundennummer&$filter=Nummerkomplett eq '+QuotedStr(MerkerAuftrag);\r\n      dsBeleg.Load;\r\n    end;\r\n\r\n  begin\r\n  if dsBelegObjektReferenz.asstring<>'' then\r\n  begin\r\n    Container4.HTML.text:='';\r\n    Container3.HTML.Text:='';\r\n    LFrm:=TfrmDateien.CreateNew(@AfterCreate);\r\n    LFrm.ShowModal(@AfterShowmodal);\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TEinzelAuftrag.btnNeuePositionClick(Sender: TObject);\r\nvar\r\n  AuftragPosEinzel:TAuftragPosEinzel;\r\nbegin\r\n  if dspositionen.RecordCount>0 then\r\n  begin\r\n    dsPositionen.Last;\r\n    positionsid:=dsPositionenID.AsString;\r\n    LetztePosNr:=dsPositionenPosNr.AsFloat;\r\n  end\r\n  else\r\n  begin\r\n    LetztePosNr:=0;\r\n    positionsid:='';\r\n  end;\r\n  Container4.HTML.text:='';\r\n  Container3.HTML.Text:='';\r\n\r\n  AuftragPosEinzel:=TAuftragPosEinzel.CreateNew(procedure(BForm: TObject)\r\n    begin\r\n      (BForm as TAuftragPosEinzel).PositionsID:='';\r\n      (BForm as TAuftragPosEinzel).tmpArtikelnummer:='';\r\n      (BForm as TAuftragPosEinzel).tmpKundennummer:=dsBelegKundennummerKundennummer.AsString;\r\n      (BForm as TAuftragPosEinzel).tmpMerkerAuftrag:=MerkerAuftrag;\r\n      (BForm as TAuftragPosEinzel).NeuePosition:=True;\r\n      (BForm as TAuftragPosEinzel).tmpletztePosNr:=LetztePosNr;\r\n    end\r\n    );\r\n      AuftragPosEinzel.ShowModal(procedure(AValue: TModalResult)\r\n    begin\r\n      dsSumBeleg.Close;\r\n      dsSumBeleg.QueryString:='$filter=Nummerkomplett eq '+QuotedStr(MerkerAuftrag);\r\n      dsSumBeleg.Load;\r\n    end\r\n    );\r\n\r\nend;\r\n\r\nprocedure TEinzelAuftrag.btnPDFClick(Sender: TObject);\r\n  procedure OnResponse(Response:TXDataClientResponse);\r\n  var\r\n    mydownload:string;\r\n  begin\r\n    mydownload:=string(TJSObject(response.Result)['value']);\r\n    if mydownload='WRONG' then\r\n    begin\r\n      showmessage('Download kann nicht bereitgestellt werden');\r\n    end\r\n    else\r\n    begin\r\n      application.Navigate(downloadconnection+mydownload,ntblank);\r\n    end;\r\n  end;\r\nbegin\r\n  if LizenzOK then\r\n  begin\r\n    WClient.RawInvoke('IServerService.ServiceBerichtPDF',[MerkerAuftrag],@OnResponse);\r\n  end\r\n  else\r\n  begin\r\n    showmessage('Für das Abrufen von Dateien sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n  end;\r\nend;\r\n\r\nprocedure TEinzelAuftrag.btnPDFSendenClick(Sender: TObject);\r\n  procedure OnResponse(Response:TXDataClientResponse);\r\n  var\r\n    mydownload:string;\r\n  begin\r\n    mydownload:=string(TJSObject(response.Result)['value']);\r\n    if mydownload='WRONG' then\r\n    begin\r\n      showmessage('Postausgang konnte nicht erstellt werden.');\r\n    end\r\n    else\r\n    begin\r\n      showmessage('Emailversand wurde vorgemerkt.');\r\n    end;\r\n  end;\r\nbegin\r\n  if LizenzOK then\r\n  begin\r\n    if dsBelegEMail.AsString<>'' then\r\n    begin\r\n      WClient.RawInvoke('IServerService.ServiceBerichtPDFSENDEN',[MerkerAuftrag],@OnResponse);\r\n    end\r\n    else\r\n    begin\r\n       showmessage('Emailadresse fehlt');\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    showmessage('Für diese Funktion sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TEinzelAuftrag.btnPZE_AClick(Sender: TObject);\r\nvar\r\n  newform:TPZE;\r\nbegin\r\n  PZE_AutoAuftragnummer:=dsBelegNummerkomplett.asstring;\r\n  newform := TPZE.CreateNew;\r\nend;\r\n\r\nprocedure TEinzelAuftrag.btnPZE_OClick(Sender: TObject);\r\nvar\r\n  newform:TPZE;\r\nbegin\r\n  PZE_AutoObjektnummer:=dsBelegObjektReferenz.asstring;\r\n  newform := TPZE.CreateNew;\r\nend;\r\n\r\nprocedure TEinzelAuftrag.btnSpeichernClick(Sender: TObject);\r\nbegin\r\n  dsbeleg.Post;\r\nend;\r\n\r\nprocedure TEinzelAuftrag.btnTermineClick(Sender: TObject);\r\nvar\r\n  LFrm:TAuftragTermine;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TAuftragTermine;\r\n    begin\r\n      LForm:=(AForm as TAuftragTermine);\r\n      lform.MerkerAuftragTermine:=MerkerAuftrag;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n\r\n    end;\r\n\r\n  begin\r\n\r\n  LFrm:=TAuftragTermine.CreateNew(@AfterCreate);\r\n  //LFrm.Popup:=true;\r\n  LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TEinzelAuftrag.btnUnterschreibenClick(Sender: TObject);\r\nvar\r\n  LFrm:TAuftragUnterschriften;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TAuftragUnterschriften;\r\n    begin\r\n      LForm:=(AForm as TAuftragUnterschriften);\r\n      lform.UMerkerAuftrag:=MerkerAuftrag;\r\n      ptc.Visible:=false;\r\n      tc.Visible:=false;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      dsUnterschriften.Close;\r\n      dsPositionen.Close;\r\n      dsBeleg.Close;\r\n      dsBeleg.QueryString:='$expand=Kundennummer&$filter=Nummerkomplett eq '+QuotedStr(MerkerAuftrag);\r\n      dsBeleg.Load;\r\n    end;\r\n\r\n  begin\r\n\r\n  LFrm:=TAuftragUnterschriften.CreateNew(@AfterCreate);\r\n  //LFrm.Popup:=true;\r\n  LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TEinzelAuftrag.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  dspositionen.Close;\r\n  dsbeleg.Close;\r\n  self.Close;\r\nend;\r\n\r\nprocedure TEinzelAuftrag.WebFormClose(Sender: TObject;\r\n  var Action: TCloseAction);\r\nbegin\r\n  action:=cafree;\r\nend;\r\n\r\nprocedure TEinzelAuftrag.WebFormCloseQuery(Sender: TObject;\r\n  var CanClose: Boolean);\r\nbegin\r\n  monteurstringlist.Free;\r\n\r\nend;\r\n\r\nprocedure TEinzelAuftrag.WebFormCreate(Sender: TObject);\r\nbegin\r\n  Monteurstringlist:=TStringList.Create;\r\n  Monteurstringlist.Delimiter:='|';\r\n  Monteurstringlist.StrictDelimiter:=true;\r\n  webDBComboAuftragStatus.Items.clear;\r\n  dm2.tableAuftragStatus.First;\r\n  while not dm2.tableAuftragStatus.eof do\r\n  begin\r\n    webDBComboAuftragStatus.Items.Add(dm2.tableAuftragStatusAuftragStatus.asstring);\r\n    dm2.tableAuftragStatus.Next;\r\n  end;\r\n  belegComboMonteur.Items.clear;\r\n\r\n  dm2.queryMonteur.First;\r\n  while not dm2.queryMonteur.eof do\r\n  begin\r\n    belegComboMonteur.Items.Add(dm2.queryMonteurPersonalnummer.asstring+'| '+dm2.queryMonteurNachname.asstring+', '+dm2.queryMonteurVorname.asstring);\r\n    dm2.queryMonteur.Next;\r\n  end;\r\n\r\n  belegComboMonteur.Items.Add('');\r\n\r\nend;\r\n\r\nprocedure TEinzelAuftrag.WebFormHashChange(Sender: TObject; oldURL,\r\n  newURL: string);\r\nbegin\r\n  if window.location.hash = '' then\r\n    Close;\r\nend;\r\n\r\nprocedure TEinzelAuftrag.WebFormShow(Sender: TObject);\r\nbegin\r\n\r\n  if MerkerAuftrag<>'' then\r\n  begin\r\n    dsUnterschriften.Close;\r\n    dsPositionen.Close;\r\n    dsBeleg.Close;\r\n    dsBeleg.QueryString:='$expand=Kundennummer&$filter=Nummerkomplett eq '+QuotedStr(MerkerAuftrag);\r\n    dsBeleg.Load;\r\n  end;\r\nend;\r\n\r\nprocedure TEinzelAuftrag.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  TC := TTableControl.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  btnUnterschreiben := TButton.Create(Self);\r\n  btnPDF := TButton.Create(Self);\r\n  btnTermine := TButton.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  PTC := TTableControl.Create(Self);\r\n  btnSpeichern := TButton.Create(Self);\r\n  pickLieferdatum := TDBDateTimePicker.Create(Self);\r\n  edtAuftragsbezeichnung := TDBEdit.Create(Self);\r\n  edtLiefertermin := TDBEdit.Create(Self);\r\n  btnNeuePosition := TButton.Create(Self);\r\n  Container4 := THTMLContainer.Create(Self);\r\n  webDBComboAuftragStatus := TDBComboBox.Create(Self);\r\n  belegComboMonteur := TComboBox.Create(Self);\r\n  belegMemoServiceBemerkung := TDBMemo.Create(Self);\r\n  btnPDFSenden := TButton.Create(Self);\r\n  edtEmail := TDBEdit.Create(Self);\r\n  btnPZE_A := TButton.Create(Self);\r\n  btnPZE_O := TButton.Create(Self);\r\n  btnDateien := TButton.Create(Self);\r\n  btnDateienObjekt := TButton.Create(Self);\r\n  btnDateienKontakt := TButton.Create(Self);\r\n  dsBeleg := TXDataWebDataSet.Create(Self);\r\n  dsBelegKundennummer := TXDataWebEntityField.Create(Self);\r\n  dsBelegNummerkomplett := TStringField.Create(Self);\r\n  dsBelegReferenzAngebot := TStringField.Create(Self);\r\n  dsBelegReferenzLieferschein := TStringField.Create(Self);\r\n  dsBelegReferenzRechnung := TStringField.Create(Self);\r\n  dsBelegDatum := TDateTimeField.Create(Self);\r\n  dsBelegJahr := TFloatField.Create(Self);\r\n  dsBelegKalenderwoche := TIntegerField.Create(Self);\r\n  dsBelegNachname := TStringField.Create(Self);\r\n  dsBelegVorname := TStringField.Create(Self);\r\n  dsBelegPostleitzahl := TStringField.Create(Self);\r\n  dsBelegOrt := TStringField.Create(Self);\r\n  dsBelegLaenderkuerzel := TStringField.Create(Self);\r\n  dsBelegLand := TStringField.Create(Self);\r\n  dsBelegBriefanrede1 := TStringField.Create(Self);\r\n  dsBelegBriefanrede2 := TStringField.Create(Self);\r\n  dsBelegEMail := TStringField.Create(Self);\r\n  dsBelegAdresseBild := TStringField.Create(Self);\r\n  dsBelegLieferanschriftBild := TStringField.Create(Self);\r\n  dsBelegZahlungsbedingung := TIntegerField.Create(Self);\r\n  dsBelegZahlungsbedingungText := TStringField.Create(Self);\r\n  dsBelegAuftragsbezeichnung := TStringField.Create(Self);\r\n  dsBelegAuftragnummerKunde := TStringField.Create(Self);\r\n  dsBelegBestelldatumKunde := TDateTimeField.Create(Self);\r\n  dsBelegILN := TStringField.Create(Self);\r\n  dsBelegKopftext := TStringField.Create(Self);\r\n  dsBelegSchlussbemerkung := TStringField.Create(Self);\r\n  dsBelegGruss := TStringField.Create(Self);\r\n  dsBelegMehrwertsteuersatz1 := TFloatField.Create(Self);\r\n  dsBelegMehrwertsteuersatz2 := TFloatField.Create(Self);\r\n  dsBelegNettosumme01 := TFloatField.Create(Self);\r\n  dsBelegNettosumme02 := TFloatField.Create(Self);\r\n  dsBelegNettosumme := TFloatField.Create(Self);\r\n  dsBelegMehrwertsteuer01 := TFloatField.Create(Self);\r\n  dsBelegMehrwertsteuer02 := TFloatField.Create(Self);\r\n  dsBelegMehrwertsteuer := TFloatField.Create(Self);\r\n  dsBelegBruttosumme := TFloatField.Create(Self);\r\n  dsBelegVersanddatum := TDateTimeField.Create(Self);\r\n  dsBelegSkontosatz := TFloatField.Create(Self);\r\n  dsBelegNettosummeEK := TFloatField.Create(Self);\r\n  dsBelegNettoMarge := TFloatField.Create(Self);\r\n  dsBelegSchreibzeichen := TStringField.Create(Self);\r\n  dsBelegUnterzeichner := TStringField.Create(Self);\r\n  dsBelegTelefonMA := TStringField.Create(Self);\r\n  dsBelegEmailMA := TStringField.Create(Self);\r\n  dsBelegUSTID := TStringField.Create(Self);\r\n  dsBelegUmsatzsteuerausweis := TBooleanField.Create(Self);\r\n  dsBeleggebucht := TBooleanField.Create(Self);\r\n  dsBelegLieferdatum := TDateTimeField.Create(Self);\r\n  dsBelegTransportbedingung := TStringField.Create(Self);\r\n  dsBelegMehrwertsteuersatz3 := TFloatField.Create(Self);\r\n  dsBelegMehrwertsteuer03 := TFloatField.Create(Self);\r\n  dsBelegNettosumme03 := TFloatField.Create(Self);\r\n  dsBelegRundungsDifferenz := TFloatField.Create(Self);\r\n  dsBelegEmailText := TStringField.Create(Self);\r\n  dsBelegAuftragerledigt := TBooleanField.Create(Self);\r\n  dsBelegRabattstufe := TStringField.Create(Self);\r\n  dsBelegKFZKennzeichen := TStringField.Create(Self);\r\n  dsBelegFahrgestellnummer := TStringField.Create(Self);\r\n  dsBelegKFZHersteller := TStringField.Create(Self);\r\n  dsBelegErstzulassungsdatum := TDateTimeField.Create(Self);\r\n  dsBelegKMStand := TStringField.Create(Self);\r\n  dsBelegKFZType := TStringField.Create(Self);\r\n  dsBelegInspektionsdatum := TDateTimeField.Create(Self);\r\n  dsBelegDebitorennummer := TStringField.Create(Self);\r\n  dsBelegKostentraeger := TStringField.Create(Self);\r\n  dsBelegRabattsatz := TFloatField.Create(Self);\r\n  dsBelegObjektReferenz := TStringField.Create(Self);\r\n  dsBelegBank := TStringField.Create(Self);\r\n  dsBelegBankleitzahl := TFloatField.Create(Self);\r\n  dsBelegKontonummer := TStringField.Create(Self);\r\n  dsBelegKontoinhaber := TStringField.Create(Self);\r\n  dsBelegTelefaxnummer := TStringField.Create(Self);\r\n  dsBelegDatumNeu := TDateTimeField.Create(Self);\r\n  dsBelegDatumgeaendert := TDateTimeField.Create(Self);\r\n  dsBelegObjektnummer := TStringField.Create(Self);\r\n  dsBelegLiefertermin := TStringField.Create(Self);\r\n  dsBelegEmailversand := TBooleanField.Create(Self);\r\n  dsBelegTelefonnummer := TStringField.Create(Self);\r\n  dsBelegMobilTelefon := TStringField.Create(Self);\r\n  dsBelegAuftragFax := TBooleanField.Create(Self);\r\n  dsBelegREDatum := TDateTimeField.Create(Self);\r\n  dsBelegBenutzerNeu := TStringField.Create(Self);\r\n  dsBelegBenutzerGeaendert := TStringField.Create(Self);\r\n  dsBelegBerechnungBrutto := TBooleanField.Create(Self);\r\n  dsBelegBruttosumme01 := TFloatField.Create(Self);\r\n  dsBelegBruttosumme02 := TFloatField.Create(Self);\r\n  dsBelegBruttosumme03 := TFloatField.Create(Self);\r\n  dsBelegNotiz := TStringField.Create(Self);\r\n  dsBelegMargeProzent := TFloatField.Create(Self);\r\n  dsBelegWarenkreditgesperrt := TBooleanField.Create(Self);\r\n  dsBelegBelegsprache := TStringField.Create(Self);\r\n  dsBelegDuplicate := TStringField.Create(Self);\r\n  dsBelegperEmail := TBooleanField.Create(Self);\r\n  dsBelegAnsprechpartner := TStringField.Create(Self);\r\n  dsBelegKundennummerFremd := TStringField.Create(Self);\r\n  dsBelegProtokoll := TStringField.Create(Self);\r\n  dsBelegVerleihauftrag := TBooleanField.Create(Self);\r\n  dsBelegVerleihVon := TDateTimeField.Create(Self);\r\n  dsBelegVerleihBis := TDateTimeField.Create(Self);\r\n  dsBelegAuftragGenehmigt := TBooleanField.Create(Self);\r\n  dsBeleggesperrt := TBooleanField.Create(Self);\r\n  dsBelegVerleihvonText := TStringField.Create(Self);\r\n  dsBelegVerleihbisText := TStringField.Create(Self);\r\n  dsBelegDruckWHG := TStringField.Create(Self);\r\n  dsBelegDruckWHGKurs := TFloatField.Create(Self);\r\n  dsBelegProzentsatzZusatzposition := TFloatField.Create(Self);\r\n  dsBelegTextZusatzposition := TStringField.Create(Self);\r\n  dsBelegTextzusatzBeschreibung := TStringField.Create(Self);\r\n  dsBelegLayoutname := TStringField.Create(Self);\r\n  dsBelegGesamtgewicht := TFloatField.Create(Self);\r\n  dsBelegBetragZusatzposition := TFloatField.Create(Self);\r\n  dsBelegReferenzBestellung := TStringField.Create(Self);\r\n  dsBelegTermin1 := TDateTimeField.Create(Self);\r\n  dsBelegTermin2 := TDateTimeField.Create(Self);\r\n  dsBelegZielkontaktnummer := TStringField.Create(Self);\r\n  dsBelegZielkontaktname := TStringField.Create(Self);\r\n  dsBelegBilddatei1 := TStringField.Create(Self);\r\n  dsBelegBilddatei2 := TStringField.Create(Self);\r\n  dsBelegZielkontaktnummer2 := TStringField.Create(Self);\r\n  dsBelegZielkontaktname2 := TStringField.Create(Self);\r\n  dsBelegbestaetigt := TDateTimeField.Create(Self);\r\n  dsBelegZielkontaktnummer3 := TStringField.Create(Self);\r\n  dsBelegZielkontaktname3 := TStringField.Create(Self);\r\n  dsBelegTermin3 := TDateTimeField.Create(Self);\r\n  dsBelegTermin4 := TDateTimeField.Create(Self);\r\n  dsBelegMuster := TBooleanField.Create(Self);\r\n  dsBelegKW := TIntegerField.Create(Self);\r\n  dsBelegDatenlink := TStringField.Create(Self);\r\n  dsBelegMehrwertsteuersatz4 := TFloatField.Create(Self);\r\n  dsBelegMehrwertsteuersatz5 := TFloatField.Create(Self);\r\n  dsBelegMehrwertsteuersatz6 := TFloatField.Create(Self);\r\n  dsBelegBesteuerungKey := TIntegerField.Create(Self);\r\n  dsBelegVertreterMatchcode := TStringField.Create(Self);\r\n  dsBelegVerfasser := TStringField.Create(Self);\r\n  dsBelegLieferadresseID := TIntegerField.Create(Self);\r\n  dsBelegAuftragStatus := TStringField.Create(Self);\r\n  dsBelegMonatJahr := TDateTimeField.Create(Self);\r\n  dsBelegBelegvariante := TStringField.Create(Self);\r\n  dsBelegProduktionsfreigabe := TBooleanField.Create(Self);\r\n  dsBelegReferenzRahmenAuftrag := TStringField.Create(Self);\r\n  dsBelegDatumRahmenAuftrag := TDateTimeField.Create(Self);\r\n  dsBelegFahrzeugID := TIntegerField.Create(Self);\r\n  dsBelegAuslieferungKW := TStringField.Create(Self);\r\n  dsBelegBereitstellungDatum := TDateTimeField.Create(Self);\r\n  dsBelegVTUID := TStringField.Create(Self);\r\n  dsBelegLieferanschriftDaten := TStringField.Create(Self);\r\n  dsBelegGesamtVolumen := TFloatField.Create(Self);\r\n  dsBelegBelegPKey := TIntegerField.Create(Self);\r\n  dsBelegDruckParameter := TStringField.Create(Self);\r\n  dsBelegReferenzService := TStringField.Create(Self);\r\n  dsBelegZusatzDaten := TStringField.Create(Self);\r\n  dsBelegStandPDF := TStringField.Create(Self);\r\n  dsBelegPaketdienst := TStringField.Create(Self);\r\n  dsBelegMonteur := TIntegerField.Create(Self);\r\n  dsBelegKundennummerKundennummer := TStringField.Create(Self);\r\n  dsBelegServiceBemerkung := TStringField.Create(Self);\r\n  SourceBeleg := TDataSource.Create(Self);\r\n  dsPositionen := TXDataWebDataSet.Create(Self);\r\n  dsPositionenArtikelnummer := TXDataWebEntityField.Create(Self);\r\n  dsPositionenNummerkomplett := TXDataWebEntityField.Create(Self);\r\n  dsPositionenID := TIntegerField.Create(Self);\r\n  dsPositionenPosNr := TFloatField.Create(Self);\r\n  dsPositionenPosUNr := TFloatField.Create(Self);\r\n  dsPositionenSumme := TBooleanField.Create(Self);\r\n  dsPositionenArtikelueberschrift := TStringField.Create(Self);\r\n  dsPositionenArtikelbeschreibung := TStringField.Create(Self);\r\n  dsPositionenMenge := TFloatField.Create(Self);\r\n  dsPositionenArtderMenge := TStringField.Create(Self);\r\n  dsPositionenVerkaufspreis := TFloatField.Create(Self);\r\n  dsPositionenEinkaufspreis := TFloatField.Create(Self);\r\n  dsPositionenSeriennummer := TStringField.Create(Self);\r\n  dsPositionenWarengruppe := TStringField.Create(Self);\r\n  dsPositionenWarenuntergruppe := TStringField.Create(Self);\r\n  dsPositionenArtikelnummerKunde := TStringField.Create(Self);\r\n  dsPositionenLieferant := TStringField.Create(Self);\r\n  dsPositionenGewicht := TFloatField.Create(Self);\r\n  dsPositionenLaenge := TFloatField.Create(Self);\r\n  dsPositionenBreite := TFloatField.Create(Self);\r\n  dsPositionenHoehe := TFloatField.Create(Self);\r\n  dsPositionenMehrwertsteuersatz := TFloatField.Create(Self);\r\n  dsPositionenEndpreis := TFloatField.Create(Self);\r\n  dsPositionenPosMWST := TFloatField.Create(Self);\r\n  dsPositionenBruttoEndpreis := TFloatField.Create(Self);\r\n  dsPositionenEndpreis_EK := TFloatField.Create(Self);\r\n  dsPositionenRabattsatz := TFloatField.Create(Self);\r\n  dsPositionenPreisvorRabatt := TFloatField.Create(Self);\r\n  dsPositionenPKZ := TFloatField.Create(Self);\r\n  dsPositionenTextfrei10 := TStringField.Create(Self);\r\n  dsPositionenTextfrei20 := TStringField.Create(Self);\r\n  dsPositionenProduktionAbgeschlossen := TDateTimeField.Create(Self);\r\n  dsPositionenEinzelpreisBrutto := TFloatField.Create(Self);\r\n  dsPositionenPosMarge := TFloatField.Create(Self);\r\n  dsPositionenPosMargeProzent := TFloatField.Create(Self);\r\n  dsPositionenBereitsGeliefert := TFloatField.Create(Self);\r\n  dsPositionenausliefern := TFloatField.Create(Self);\r\n  dsPositionenBestellungErledigt := TBooleanField.Create(Self);\r\n  dsPositionenLager := TStringField.Create(Self);\r\n  dsPositionenbestellen := TBooleanField.Create(Self);\r\n  dsPositionenWarenbestand := TBooleanField.Create(Self);\r\n  dsPositionenArtikelbeschreibungRTF := TStringField.Create(Self);\r\n  dsPositionenQuellartikel := TStringField.Create(Self);\r\n  dsPositionenArtikelnummerWB := TStringField.Create(Self);\r\n  dsPositionenPreisanteilNetto := TFloatField.Create(Self);\r\n  dsPositionenSetHPos := TStringField.Create(Self);\r\n  dsPositionenSetUPos := TStringField.Create(Self);\r\n  dsPositionenProvisionssatz := TFloatField.Create(Self);\r\n  dsPositionenProvisionsbetrag := TFloatField.Create(Self);\r\n  dsPositionenArtikelsprache := TStringField.Create(Self);\r\n  dsPositionenEKvom := TDateTimeField.Create(Self);\r\n  dsPositionenMengenberechnungID := TStringField.Create(Self);\r\n  dsPositionenTaraID := TStringField.Create(Self);\r\n  dsPositionenTara := TFloatField.Create(Self);\r\n  dsPositionenBruttoGewicht := TFloatField.Create(Self);\r\n  dsPositionenAussenflaeche := TFloatField.Create(Self);\r\n  dsPositionenLadeort := TStringField.Create(Self);\r\n  dsPositionenSeitenumbruch := TBooleanField.Create(Self);\r\n  dsPositionenPlanerFarbe := TIntegerField.Create(Self);\r\n  dsPositionenMWStKey := TIntegerField.Create(Self);\r\n  dsPositionenZSnachPos := TBooleanField.Create(Self);\r\n  dsPositionenLieferzeit := TStringField.Create(Self);\r\n  dsPositionenPreisVorRabattWHG := TFloatField.Create(Self);\r\n  dsPositionenReferenzKalkulation := TStringField.Create(Self);\r\n  dsPositionenPKey := TIntegerField.Create(Self);\r\n  dsPositionenAuftragsnummer := TStringField.Create(Self);\r\n  dsPositionenlwbID := TStringField.Create(Self);\r\n  dsPositionenBelegdatum := TDateTimeField.Create(Self);\r\n  dsPositionenWarenkontrollnummern := TStringField.Create(Self);\r\n  dsPositionenVolumen := TFloatField.Create(Self);\r\n  dsPositionenPosVolumen := TFloatField.Create(Self);\r\n  dsPositionenArtikelAttribute := TStringField.Create(Self);\r\n  dsPositionenMonteurP := TIntegerField.Create(Self);\r\n  dsPositionenArbeitszeitDatum := TDateTimeField.Create(Self);\r\n  dsPositionenArbeitszeitVON := TDateTimeField.Create(Self);\r\n  dsPositionenArbeitszeitBIS := TDateTimeField.Create(Self);\r\n  dsPositionenArtikelnummerArtikelnummer := TStringField.Create(Self);\r\n  dsPositionenArtikelnummerArbeitszeit := TBooleanField.Create(Self);\r\n  sourcePositionen := TDataSource.Create(Self);\r\n  dsUnterschriften := TXDataWebDataSet.Create(Self);\r\n  dsUnterschriftenNummerkomplett := TStringField.Create(Self);\r\n  dsUnterschriftenDatum := TDateTimeField.Create(Self);\r\n  dsUnterschriftenUnterschriftMonteur := TBlobField.Create(Self);\r\n  dsUnterschriftenUnterschriftKunde := TBlobField.Create(Self);\r\n  dsUnterschriftenUnterschriftMonteurText := TStringField.Create(Self);\r\n  dsUnterschriftenUnterschriftKundeText := TStringField.Create(Self);\r\n  sourceUnterschriften := TDataSource.Create(Self);\r\n  dsSumBeleg := TXDataWebDataSet.Create(Self);\r\n  dsSumBelegPosVolumen := TFloatField.Create(Self);\r\n  dsSumBelegBruttoGewicht := TFloatField.Create(Self);\r\n  dsSumBelegMehrwertsteuersatz := TFloatField.Create(Self);\r\n  dsSumBelegEndpreis := TFloatField.Create(Self);\r\n  dsSumBelegPosMWST := TFloatField.Create(Self);\r\n  dsSumBelegBruttoEndpreis := TFloatField.Create(Self);\r\n  dsSumBelegEndpreis_EK := TFloatField.Create(Self);\r\n  dsSumBelegPKZ := TFloatField.Create(Self);\r\n  WClient := TXDataWebClient.Create(Self);\r\n  WebHttpRequest1 := THttpRequest.Create(Self);\r\n  dsObjekt := TXDataWebDataSet.Create(Self);\r\n  dsObjektObjektReferenz := TStringField.Create(Self);\r\n  dsObjektKurzbezeichnung := TStringField.Create(Self);\r\n  dsObjektObjektnummer := TStringField.Create(Self);\r\n  dsDateien := TXDataWebDataSet.Create(Self);\r\n  dsDateienID := TIntegerField.Create(Self);\r\n  dsDateienDatumUhrzeit := TDateTimeField.Create(Self);\r\n  dsDateienDateiBetreff := TStringField.Create(Self);\r\n  dsDateienNummerkomplett := TStringField.Create(Self);\r\n\r\n  TC.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  btnUnterschreiben.BeforeLoadDFMValues;\r\n  btnPDF.BeforeLoadDFMValues;\r\n  btnTermine.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  PTC.BeforeLoadDFMValues;\r\n  btnSpeichern.BeforeLoadDFMValues;\r\n  pickLieferdatum.BeforeLoadDFMValues;\r\n  edtAuftragsbezeichnung.BeforeLoadDFMValues;\r\n  edtLiefertermin.BeforeLoadDFMValues;\r\n  btnNeuePosition.BeforeLoadDFMValues;\r\n  Container4.BeforeLoadDFMValues;\r\n  webDBComboAuftragStatus.BeforeLoadDFMValues;\r\n  belegComboMonteur.BeforeLoadDFMValues;\r\n  belegMemoServiceBemerkung.BeforeLoadDFMValues;\r\n  btnPDFSenden.BeforeLoadDFMValues;\r\n  edtEmail.BeforeLoadDFMValues;\r\n  btnPZE_A.BeforeLoadDFMValues;\r\n  btnPZE_O.BeforeLoadDFMValues;\r\n  btnDateien.BeforeLoadDFMValues;\r\n  btnDateienObjekt.BeforeLoadDFMValues;\r\n  btnDateienKontakt.BeforeLoadDFMValues;\r\n  dsBeleg.BeforeLoadDFMValues;\r\n  dsBelegKundennummer.BeforeLoadDFMValues;\r\n  dsBelegNummerkomplett.BeforeLoadDFMValues;\r\n  dsBelegReferenzAngebot.BeforeLoadDFMValues;\r\n  dsBelegReferenzLieferschein.BeforeLoadDFMValues;\r\n  dsBelegReferenzRechnung.BeforeLoadDFMValues;\r\n  dsBelegDatum.BeforeLoadDFMValues;\r\n  dsBelegJahr.BeforeLoadDFMValues;\r\n  dsBelegKalenderwoche.BeforeLoadDFMValues;\r\n  dsBelegNachname.BeforeLoadDFMValues;\r\n  dsBelegVorname.BeforeLoadDFMValues;\r\n  dsBelegPostleitzahl.BeforeLoadDFMValues;\r\n  dsBelegOrt.BeforeLoadDFMValues;\r\n  dsBelegLaenderkuerzel.BeforeLoadDFMValues;\r\n  dsBelegLand.BeforeLoadDFMValues;\r\n  dsBelegBriefanrede1.BeforeLoadDFMValues;\r\n  dsBelegBriefanrede2.BeforeLoadDFMValues;\r\n  dsBelegEMail.BeforeLoadDFMValues;\r\n  dsBelegAdresseBild.BeforeLoadDFMValues;\r\n  dsBelegLieferanschriftBild.BeforeLoadDFMValues;\r\n  dsBelegZahlungsbedingung.BeforeLoadDFMValues;\r\n  dsBelegZahlungsbedingungText.BeforeLoadDFMValues;\r\n  dsBelegAuftragsbezeichnung.BeforeLoadDFMValues;\r\n  dsBelegAuftragnummerKunde.BeforeLoadDFMValues;\r\n  dsBelegBestelldatumKunde.BeforeLoadDFMValues;\r\n  dsBelegILN.BeforeLoadDFMValues;\r\n  dsBelegKopftext.BeforeLoadDFMValues;\r\n  dsBelegSchlussbemerkung.BeforeLoadDFMValues;\r\n  dsBelegGruss.BeforeLoadDFMValues;\r\n  dsBelegMehrwertsteuersatz1.BeforeLoadDFMValues;\r\n  dsBelegMehrwertsteuersatz2.BeforeLoadDFMValues;\r\n  dsBelegNettosumme01.BeforeLoadDFMValues;\r\n  dsBelegNettosumme02.BeforeLoadDFMValues;\r\n  dsBelegNettosumme.BeforeLoadDFMValues;\r\n  dsBelegMehrwertsteuer01.BeforeLoadDFMValues;\r\n  dsBelegMehrwertsteuer02.BeforeLoadDFMValues;\r\n  dsBelegMehrwertsteuer.BeforeLoadDFMValues;\r\n  dsBelegBruttosumme.BeforeLoadDFMValues;\r\n  dsBelegVersanddatum.BeforeLoadDFMValues;\r\n  dsBelegSkontosatz.BeforeLoadDFMValues;\r\n  dsBelegNettosummeEK.BeforeLoadDFMValues;\r\n  dsBelegNettoMarge.BeforeLoadDFMValues;\r\n  dsBelegSchreibzeichen.BeforeLoadDFMValues;\r\n  dsBelegUnterzeichner.BeforeLoadDFMValues;\r\n  dsBelegTelefonMA.BeforeLoadDFMValues;\r\n  dsBelegEmailMA.BeforeLoadDFMValues;\r\n  dsBelegUSTID.BeforeLoadDFMValues;\r\n  dsBelegUmsatzsteuerausweis.BeforeLoadDFMValues;\r\n  dsBeleggebucht.BeforeLoadDFMValues;\r\n  dsBelegLieferdatum.BeforeLoadDFMValues;\r\n  dsBelegTransportbedingung.BeforeLoadDFMValues;\r\n  dsBelegMehrwertsteuersatz3.BeforeLoadDFMValues;\r\n  dsBelegMehrwertsteuer03.BeforeLoadDFMValues;\r\n  dsBelegNettosumme03.BeforeLoadDFMValues;\r\n  dsBelegRundungsDifferenz.BeforeLoadDFMValues;\r\n  dsBelegEmailText.BeforeLoadDFMValues;\r\n  dsBelegAuftragerledigt.BeforeLoadDFMValues;\r\n  dsBelegRabattstufe.BeforeLoadDFMValues;\r\n  dsBelegKFZKennzeichen.BeforeLoadDFMValues;\r\n  dsBelegFahrgestellnummer.BeforeLoadDFMValues;\r\n  dsBelegKFZHersteller.BeforeLoadDFMValues;\r\n  dsBelegErstzulassungsdatum.BeforeLoadDFMValues;\r\n  dsBelegKMStand.BeforeLoadDFMValues;\r\n  dsBelegKFZType.BeforeLoadDFMValues;\r\n  dsBelegInspektionsdatum.BeforeLoadDFMValues;\r\n  dsBelegDebitorennummer.BeforeLoadDFMValues;\r\n  dsBelegKostentraeger.BeforeLoadDFMValues;\r\n  dsBelegRabattsatz.BeforeLoadDFMValues;\r\n  dsBelegObjektReferenz.BeforeLoadDFMValues;\r\n  dsBelegBank.BeforeLoadDFMValues;\r\n  dsBelegBankleitzahl.BeforeLoadDFMValues;\r\n  dsBelegKontonummer.BeforeLoadDFMValues;\r\n  dsBelegKontoinhaber.BeforeLoadDFMValues;\r\n  dsBelegTelefaxnummer.BeforeLoadDFMValues;\r\n  dsBelegDatumNeu.BeforeLoadDFMValues;\r\n  dsBelegDatumgeaendert.BeforeLoadDFMValues;\r\n  dsBelegObjektnummer.BeforeLoadDFMValues;\r\n  dsBelegLiefertermin.BeforeLoadDFMValues;\r\n  dsBelegEmailversand.BeforeLoadDFMValues;\r\n  dsBelegTelefonnummer.BeforeLoadDFMValues;\r\n  dsBelegMobilTelefon.BeforeLoadDFMValues;\r\n  dsBelegAuftragFax.BeforeLoadDFMValues;\r\n  dsBelegREDatum.BeforeLoadDFMValues;\r\n  dsBelegBenutzerNeu.BeforeLoadDFMValues;\r\n  dsBelegBenutzerGeaendert.BeforeLoadDFMValues;\r\n  dsBelegBerechnungBrutto.BeforeLoadDFMValues;\r\n  dsBelegBruttosumme01.BeforeLoadDFMValues;\r\n  dsBelegBruttosumme02.BeforeLoadDFMValues;\r\n  dsBelegBruttosumme03.BeforeLoadDFMValues;\r\n  dsBelegNotiz.BeforeLoadDFMValues;\r\n  dsBelegMargeProzent.BeforeLoadDFMValues;\r\n  dsBelegWarenkreditgesperrt.BeforeLoadDFMValues;\r\n  dsBelegBelegsprache.BeforeLoadDFMValues;\r\n  dsBelegDuplicate.BeforeLoadDFMValues;\r\n  dsBelegperEmail.BeforeLoadDFMValues;\r\n  dsBelegAnsprechpartner.BeforeLoadDFMValues;\r\n  dsBelegKundennummerFremd.BeforeLoadDFMValues;\r\n  dsBelegProtokoll.BeforeLoadDFMValues;\r\n  dsBelegVerleihauftrag.BeforeLoadDFMValues;\r\n  dsBelegVerleihVon.BeforeLoadDFMValues;\r\n  dsBelegVerleihBis.BeforeLoadDFMValues;\r\n  dsBelegAuftragGenehmigt.BeforeLoadDFMValues;\r\n  dsBeleggesperrt.BeforeLoadDFMValues;\r\n  dsBelegVerleihvonText.BeforeLoadDFMValues;\r\n  dsBelegVerleihbisText.BeforeLoadDFMValues;\r\n  dsBelegDruckWHG.BeforeLoadDFMValues;\r\n  dsBelegDruckWHGKurs.BeforeLoadDFMValues;\r\n  dsBelegProzentsatzZusatzposition.BeforeLoadDFMValues;\r\n  dsBelegTextZusatzposition.BeforeLoadDFMValues;\r\n  dsBelegTextzusatzBeschreibung.BeforeLoadDFMValues;\r\n  dsBelegLayoutname.BeforeLoadDFMValues;\r\n  dsBelegGesamtgewicht.BeforeLoadDFMValues;\r\n  dsBelegBetragZusatzposition.BeforeLoadDFMValues;\r\n  dsBelegReferenzBestellung.BeforeLoadDFMValues;\r\n  dsBelegTermin1.BeforeLoadDFMValues;\r\n  dsBelegTermin2.BeforeLoadDFMValues;\r\n  dsBelegZielkontaktnummer.BeforeLoadDFMValues;\r\n  dsBelegZielkontaktname.BeforeLoadDFMValues;\r\n  dsBelegBilddatei1.BeforeLoadDFMValues;\r\n  dsBelegBilddatei2.BeforeLoadDFMValues;\r\n  dsBelegZielkontaktnummer2.BeforeLoadDFMValues;\r\n  dsBelegZielkontaktname2.BeforeLoadDFMValues;\r\n  dsBelegbestaetigt.BeforeLoadDFMValues;\r\n  dsBelegZielkontaktnummer3.BeforeLoadDFMValues;\r\n  dsBelegZielkontaktname3.BeforeLoadDFMValues;\r\n  dsBelegTermin3.BeforeLoadDFMValues;\r\n  dsBelegTermin4.BeforeLoadDFMValues;\r\n  dsBelegMuster.BeforeLoadDFMValues;\r\n  dsBelegKW.BeforeLoadDFMValues;\r\n  dsBelegDatenlink.BeforeLoadDFMValues;\r\n  dsBelegMehrwertsteuersatz4.BeforeLoadDFMValues;\r\n  dsBelegMehrwertsteuersatz5.BeforeLoadDFMValues;\r\n  dsBelegMehrwertsteuersatz6.BeforeLoadDFMValues;\r\n  dsBelegBesteuerungKey.BeforeLoadDFMValues;\r\n  dsBelegVertreterMatchcode.BeforeLoadDFMValues;\r\n  dsBelegVerfasser.BeforeLoadDFMValues;\r\n  dsBelegLieferadresseID.BeforeLoadDFMValues;\r\n  dsBelegAuftragStatus.BeforeLoadDFMValues;\r\n  dsBelegMonatJahr.BeforeLoadDFMValues;\r\n  dsBelegBelegvariante.BeforeLoadDFMValues;\r\n  dsBelegProduktionsfreigabe.BeforeLoadDFMValues;\r\n  dsBelegReferenzRahmenAuftrag.BeforeLoadDFMValues;\r\n  dsBelegDatumRahmenAuftrag.BeforeLoadDFMValues;\r\n  dsBelegFahrzeugID.BeforeLoadDFMValues;\r\n  dsBelegAuslieferungKW.BeforeLoadDFMValues;\r\n  dsBelegBereitstellungDatum.BeforeLoadDFMValues;\r\n  dsBelegVTUID.BeforeLoadDFMValues;\r\n  dsBelegLieferanschriftDaten.BeforeLoadDFMValues;\r\n  dsBelegGesamtVolumen.BeforeLoadDFMValues;\r\n  dsBelegBelegPKey.BeforeLoadDFMValues;\r\n  dsBelegDruckParameter.BeforeLoadDFMValues;\r\n  dsBelegReferenzService.BeforeLoadDFMValues;\r\n  dsBelegZusatzDaten.BeforeLoadDFMValues;\r\n  dsBelegStandPDF.BeforeLoadDFMValues;\r\n  dsBelegPaketdienst.BeforeLoadDFMValues;\r\n  dsBelegMonteur.BeforeLoadDFMValues;\r\n  dsBelegKundennummerKundennummer.BeforeLoadDFMValues;\r\n  dsBelegServiceBemerkung.BeforeLoadDFMValues;\r\n  SourceBeleg.BeforeLoadDFMValues;\r\n  dsPositionen.BeforeLoadDFMValues;\r\n  dsPositionenArtikelnummer.BeforeLoadDFMValues;\r\n  dsPositionenNummerkomplett.BeforeLoadDFMValues;\r\n  dsPositionenID.BeforeLoadDFMValues;\r\n  dsPositionenPosNr.BeforeLoadDFMValues;\r\n  dsPositionenPosUNr.BeforeLoadDFMValues;\r\n  dsPositionenSumme.BeforeLoadDFMValues;\r\n  dsPositionenArtikelueberschrift.BeforeLoadDFMValues;\r\n  dsPositionenArtikelbeschreibung.BeforeLoadDFMValues;\r\n  dsPositionenMenge.BeforeLoadDFMValues;\r\n  dsPositionenArtderMenge.BeforeLoadDFMValues;\r\n  dsPositionenVerkaufspreis.BeforeLoadDFMValues;\r\n  dsPositionenEinkaufspreis.BeforeLoadDFMValues;\r\n  dsPositionenSeriennummer.BeforeLoadDFMValues;\r\n  dsPositionenWarengruppe.BeforeLoadDFMValues;\r\n  dsPositionenWarenuntergruppe.BeforeLoadDFMValues;\r\n  dsPositionenArtikelnummerKunde.BeforeLoadDFMValues;\r\n  dsPositionenLieferant.BeforeLoadDFMValues;\r\n  dsPositionenGewicht.BeforeLoadDFMValues;\r\n  dsPositionenLaenge.BeforeLoadDFMValues;\r\n  dsPositionenBreite.BeforeLoadDFMValues;\r\n  dsPositionenHoehe.BeforeLoadDFMValues;\r\n  dsPositionenMehrwertsteuersatz.BeforeLoadDFMValues;\r\n  dsPositionenEndpreis.BeforeLoadDFMValues;\r\n  dsPositionenPosMWST.BeforeLoadDFMValues;\r\n  dsPositionenBruttoEndpreis.BeforeLoadDFMValues;\r\n  dsPositionenEndpreis_EK.BeforeLoadDFMValues;\r\n  dsPositionenRabattsatz.BeforeLoadDFMValues;\r\n  dsPositionenPreisvorRabatt.BeforeLoadDFMValues;\r\n  dsPositionenPKZ.BeforeLoadDFMValues;\r\n  dsPositionenTextfrei10.BeforeLoadDFMValues;\r\n  dsPositionenTextfrei20.BeforeLoadDFMValues;\r\n  dsPositionenProduktionAbgeschlossen.BeforeLoadDFMValues;\r\n  dsPositionenEinzelpreisBrutto.BeforeLoadDFMValues;\r\n  dsPositionenPosMarge.BeforeLoadDFMValues;\r\n  dsPositionenPosMargeProzent.BeforeLoadDFMValues;\r\n  dsPositionenBereitsGeliefert.BeforeLoadDFMValues;\r\n  dsPositionenausliefern.BeforeLoadDFMValues;\r\n  dsPositionenBestellungErledigt.BeforeLoadDFMValues;\r\n  dsPositionenLager.BeforeLoadDFMValues;\r\n  dsPositionenbestellen.BeforeLoadDFMValues;\r\n  dsPositionenWarenbestand.BeforeLoadDFMValues;\r\n  dsPositionenArtikelbeschreibungRTF.BeforeLoadDFMValues;\r\n  dsPositionenQuellartikel.BeforeLoadDFMValues;\r\n  dsPositionenArtikelnummerWB.BeforeLoadDFMValues;\r\n  dsPositionenPreisanteilNetto.BeforeLoadDFMValues;\r\n  dsPositionenSetHPos.BeforeLoadDFMValues;\r\n  dsPositionenSetUPos.BeforeLoadDFMValues;\r\n  dsPositionenProvisionssatz.BeforeLoadDFMValues;\r\n  dsPositionenProvisionsbetrag.BeforeLoadDFMValues;\r\n  dsPositionenArtikelsprache.BeforeLoadDFMValues;\r\n  dsPositionenEKvom.BeforeLoadDFMValues;\r\n  dsPositionenMengenberechnungID.BeforeLoadDFMValues;\r\n  dsPositionenTaraID.BeforeLoadDFMValues;\r\n  dsPositionenTara.BeforeLoadDFMValues;\r\n  dsPositionenBruttoGewicht.BeforeLoadDFMValues;\r\n  dsPositionenAussenflaeche.BeforeLoadDFMValues;\r\n  dsPositionenLadeort.BeforeLoadDFMValues;\r\n  dsPositionenSeitenumbruch.BeforeLoadDFMValues;\r\n  dsPositionenPlanerFarbe.BeforeLoadDFMValues;\r\n  dsPositionenMWStKey.BeforeLoadDFMValues;\r\n  dsPositionenZSnachPos.BeforeLoadDFMValues;\r\n  dsPositionenLieferzeit.BeforeLoadDFMValues;\r\n  dsPositionenPreisVorRabattWHG.BeforeLoadDFMValues;\r\n  dsPositionenReferenzKalkulation.BeforeLoadDFMValues;\r\n  dsPositionenPKey.BeforeLoadDFMValues;\r\n  dsPositionenAuftragsnummer.BeforeLoadDFMValues;\r\n  dsPositionenlwbID.BeforeLoadDFMValues;\r\n  dsPositionenBelegdatum.BeforeLoadDFMValues;\r\n  dsPositionenWarenkontrollnummern.BeforeLoadDFMValues;\r\n  dsPositionenVolumen.BeforeLoadDFMValues;\r\n  dsPositionenPosVolumen.BeforeLoadDFMValues;\r\n  dsPositionenArtikelAttribute.BeforeLoadDFMValues;\r\n  dsPositionenMonteurP.BeforeLoadDFMValues;\r\n  dsPositionenArbeitszeitDatum.BeforeLoadDFMValues;\r\n  dsPositionenArbeitszeitVON.BeforeLoadDFMValues;\r\n  dsPositionenArbeitszeitBIS.BeforeLoadDFMValues;\r\n  dsPositionenArtikelnummerArtikelnummer.BeforeLoadDFMValues;\r\n  dsPositionenArtikelnummerArbeitszeit.BeforeLoadDFMValues;\r\n  sourcePositionen.BeforeLoadDFMValues;\r\n  dsUnterschriften.BeforeLoadDFMValues;\r\n  dsUnterschriftenNummerkomplett.BeforeLoadDFMValues;\r\n  dsUnterschriftenDatum.BeforeLoadDFMValues;\r\n  dsUnterschriftenUnterschriftMonteur.BeforeLoadDFMValues;\r\n  dsUnterschriftenUnterschriftKunde.BeforeLoadDFMValues;\r\n  dsUnterschriftenUnterschriftMonteurText.BeforeLoadDFMValues;\r\n  dsUnterschriftenUnterschriftKundeText.BeforeLoadDFMValues;\r\n  sourceUnterschriften.BeforeLoadDFMValues;\r\n  dsSumBeleg.BeforeLoadDFMValues;\r\n  dsSumBelegPosVolumen.BeforeLoadDFMValues;\r\n  dsSumBelegBruttoGewicht.BeforeLoadDFMValues;\r\n  dsSumBelegMehrwertsteuersatz.BeforeLoadDFMValues;\r\n  dsSumBelegEndpreis.BeforeLoadDFMValues;\r\n  dsSumBelegPosMWST.BeforeLoadDFMValues;\r\n  dsSumBelegBruttoEndpreis.BeforeLoadDFMValues;\r\n  dsSumBelegEndpreis_EK.BeforeLoadDFMValues;\r\n  dsSumBelegPKZ.BeforeLoadDFMValues;\r\n  WClient.BeforeLoadDFMValues;\r\n  WebHttpRequest1.BeforeLoadDFMValues;\r\n  dsObjekt.BeforeLoadDFMValues;\r\n  dsObjektObjektReferenz.BeforeLoadDFMValues;\r\n  dsObjektKurzbezeichnung.BeforeLoadDFMValues;\r\n  dsObjektObjektnummer.BeforeLoadDFMValues;\r\n  dsDateien.BeforeLoadDFMValues;\r\n  dsDateienID.BeforeLoadDFMValues;\r\n  dsDateienDatumUhrzeit.BeforeLoadDFMValues;\r\n  dsDateienDateiBetreff.BeforeLoadDFMValues;\r\n  dsDateienNummerkomplett.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'EinzelAuftrag';\r\n    Width := 264;\r\n    Height := 484;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    ElementPosition := epIgnore;\r\n    SetEvent(Self, 'OnClose', 'WebFormClose');\r\n    SetEvent(Self, 'OnCloseQuery', 'WebFormCloseQuery');\r\n    SetEvent(Self, 'OnCreate', 'WebFormCreate');\r\n    SetEvent(Self, 'OnHashChange', 'WebFormHashChange');\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.Left := 0;\r\n    TC.Top := 173;\r\n    TC.Width := 236;\r\n    TC.Height := 62;\r\n    TC.ElementClassName := 'table table-sm table-hover table-bordered table-striped';\r\n    TC.HeightStyle := ssAuto;\r\n    TC.WidthStyle := ssAuto;\r\n    TC.BorderColor := clSilver;\r\n    TC.ChildOrder := 5;\r\n    TC.ColHeader := False;\r\n    TC.ElementHeaderClassName := 'table-info';\r\n    TC.ElementPosition := epIgnore;\r\n    TC.ElementTableClassName := 'table table-sm table-hover table-bordered table-striped';\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 2;\r\n    TC.RowCount := 17;\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 264;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.Align := alTop;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 0;\r\n    btnzurueck.Top := 88;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    btnUnterschreiben.SetParentComponent(Self);\r\n    btnUnterschreiben.Name := 'btnUnterschreiben';\r\n    btnUnterschreiben.Left := 239;\r\n    btnUnterschreiben.Top := 88;\r\n    btnUnterschreiben.Width := 96;\r\n    btnUnterschreiben.Height := 25;\r\n    btnUnterschreiben.Caption := 'unterschreiben';\r\n    btnUnterschreiben.ChildOrder := 4;\r\n    btnUnterschreiben.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnUnterschreiben.ElementFont := efCSS;\r\n    btnUnterschreiben.ElementPosition := epIgnore;\r\n    btnUnterschreiben.HeightStyle := ssAuto;\r\n    btnUnterschreiben.HeightPercent := 100.000000000000000000;\r\n    btnUnterschreiben.WidthStyle := ssAuto;\r\n    btnUnterschreiben.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnUnterschreiben, Self, 'OnClick', 'btnUnterschreibenClick');\r\n    btnPDF.SetParentComponent(Self);\r\n    btnPDF.Name := 'btnPDF';\r\n    btnPDF.Left := 341;\r\n    btnPDF.Top := 88;\r\n    btnPDF.Width := 96;\r\n    btnPDF.Height := 25;\r\n    btnPDF.Caption := 'PDF';\r\n    btnPDF.ChildOrder := 4;\r\n    btnPDF.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnPDF.ElementFont := efCSS;\r\n    btnPDF.ElementPosition := epIgnore;\r\n    btnPDF.HeightStyle := ssAuto;\r\n    btnPDF.HeightPercent := 100.000000000000000000;\r\n    btnPDF.WidthStyle := ssAuto;\r\n    btnPDF.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnPDF, Self, 'OnClick', 'btnPDFClick');\r\n    btnTermine.SetParentComponent(Self);\r\n    btnTermine.Name := 'btnTermine';\r\n    btnTermine.Left := 443;\r\n    btnTermine.Top := 88;\r\n    btnTermine.Width := 96;\r\n    btnTermine.Height := 25;\r\n    btnTermine.Caption := 'Termine';\r\n    btnTermine.ChildOrder := 4;\r\n    btnTermine.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnTermine.ElementFont := efCSS;\r\n    btnTermine.ElementPosition := epIgnore;\r\n    btnTermine.HeightStyle := ssAuto;\r\n    btnTermine.HeightPercent := 100.000000000000000000;\r\n    btnTermine.WidthStyle := ssAuto;\r\n    btnTermine.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnTermine, Self, 'OnClick', 'btnTermineClick');\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 82;\r\n    Container3.Width := 264;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-column m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.Align := alTop;\r\n    Container3.ChildOrder := 2;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 41;\r\n    Container2.Width := 264;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.Align := alTop;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    PTC.SetParentComponent(Self);\r\n    PTC.Name := 'PTC';\r\n    PTC.Left := 0;\r\n    PTC.Top := 241;\r\n    PTC.Width := 236;\r\n    PTC.Height := 80;\r\n    PTC.ElementClassName := 'table table-hover table-bordered table-striped';\r\n    PTC.HeightStyle := ssAuto;\r\n    PTC.WidthStyle := ssAuto;\r\n    PTC.BorderColor := clSilver;\r\n    PTC.ChildOrder := 6;\r\n    PTC.ElementHeaderClassName := 'table-info';\r\n    PTC.ElementPosition := epIgnore;\r\n    PTC.ElementTableClassName := 'table table-hover table-bordered table-striped';\r\n    PTC.WordWrap := True;\r\n    PTC.ColCount := 2;\r\n    btnSpeichern.SetParentComponent(Self);\r\n    btnSpeichern.Name := 'btnSpeichern';\r\n    btnSpeichern.Left := 8;\r\n    btnSpeichern.Top := 280;\r\n    btnSpeichern.Width := 96;\r\n    btnSpeichern.Height := 25;\r\n    btnSpeichern.Caption := 'speichern';\r\n    btnSpeichern.ChildOrder := 4;\r\n    btnSpeichern.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnSpeichern.ElementFont := efCSS;\r\n    btnSpeichern.ElementPosition := epIgnore;\r\n    btnSpeichern.HeightStyle := ssAuto;\r\n    btnSpeichern.HeightPercent := 100.000000000000000000;\r\n    btnSpeichern.WidthStyle := ssAuto;\r\n    btnSpeichern.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnSpeichern, Self, 'OnClick', 'btnSpeichernClick');\r\n    pickLieferdatum.SetParentComponent(Self);\r\n    pickLieferdatum.Name := 'pickLieferdatum';\r\n    pickLieferdatum.Left := 8;\r\n    pickLieferdatum.Top := 342;\r\n    pickLieferdatum.Width := 170;\r\n    pickLieferdatum.Height := 22;\r\n    pickLieferdatum.ElementClassName := 'form-control';\r\n    pickLieferdatum.HeightStyle := ssAuto;\r\n    pickLieferdatum.WidthStyle := ssPercent;\r\n    pickLieferdatum.WidthPercent := 75.000000000000000000;\r\n    pickLieferdatum.BorderStyle := bsSingle;\r\n    pickLieferdatum.ChildOrder := 1;\r\n    pickLieferdatum.Color := clWhite;\r\n    pickLieferdatum.Date := 44128.305122870370000000;\r\n    pickLieferdatum.ElementFont := efCSS;\r\n    pickLieferdatum.ElementPosition := epIgnore;\r\n    pickLieferdatum.Role := '';\r\n    pickLieferdatum.Text := '';\r\n    SetEvent(pickLieferdatum, Self, 'OnClick', 'pickLieferdatumClick');\r\n    pickLieferdatum.DataField := 'Lieferdatum';\r\n    pickLieferdatum.DataSource := SourceBeleg;\r\n    edtAuftragsbezeichnung.SetParentComponent(Self);\r\n    edtAuftragsbezeichnung.Name := 'edtAuftragsbezeichnung';\r\n    edtAuftragsbezeichnung.Left := 8;\r\n    edtAuftragsbezeichnung.Top := 370;\r\n    edtAuftragsbezeichnung.Width := 121;\r\n    edtAuftragsbezeichnung.Height := 22;\r\n    edtAuftragsbezeichnung.AutoCompletion := acNone;\r\n    edtAuftragsbezeichnung.ElementClassName := 'form-control form-control-sm';\r\n    edtAuftragsbezeichnung.ElementFont := efCSS;\r\n    edtAuftragsbezeichnung.ElementPosition := epIgnore;\r\n    edtAuftragsbezeichnung.HeightStyle := ssAuto;\r\n    edtAuftragsbezeichnung.HeightPercent := 100.000000000000000000;\r\n    edtAuftragsbezeichnung.HideSelection := False;\r\n    edtAuftragsbezeichnung.ShowFocus := False;\r\n    edtAuftragsbezeichnung.TextHint := 'Auftragsbezeichnung';\r\n    edtAuftragsbezeichnung.WidthStyle := ssPercent;\r\n    edtAuftragsbezeichnung.WidthPercent := 75.000000000000000000;\r\n    edtAuftragsbezeichnung.DataField := 'Auftragsbezeichnung';\r\n    edtAuftragsbezeichnung.DataSource := SourceBeleg;\r\n    edtLiefertermin.SetParentComponent(Self);\r\n    edtLiefertermin.Name := 'edtLiefertermin';\r\n    edtLiefertermin.Left := 8;\r\n    edtLiefertermin.Top := 398;\r\n    edtLiefertermin.Width := 121;\r\n    edtLiefertermin.Height := 22;\r\n    edtLiefertermin.AutoSelect := False;\r\n    edtLiefertermin.ChildOrder := 2;\r\n    edtLiefertermin.ElementClassName := 'form-control';\r\n    edtLiefertermin.ElementFont := efCSS;\r\n    edtLiefertermin.ElementPosition := epIgnore;\r\n    edtLiefertermin.HeightStyle := ssAuto;\r\n    edtLiefertermin.HeightPercent := 100.000000000000000000;\r\n    edtLiefertermin.TextHint := 'Lieferzeitraum';\r\n    edtLiefertermin.WidthStyle := ssPercent;\r\n    edtLiefertermin.WidthPercent := 75.000000000000000000;\r\n    edtLiefertermin.DataField := 'Liefertermin';\r\n    edtLiefertermin.DataSource := SourceBeleg;\r\n    btnNeuePosition.SetParentComponent(Self);\r\n    btnNeuePosition.Name := 'btnNeuePosition';\r\n    btnNeuePosition.Left := 8;\r\n    btnNeuePosition.Top := 311;\r\n    btnNeuePosition.Width := 96;\r\n    btnNeuePosition.Height := 25;\r\n    btnNeuePosition.Caption := '+ NEU';\r\n    btnNeuePosition.ChildOrder := 4;\r\n    btnNeuePosition.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnNeuePosition.ElementFont := efCSS;\r\n    btnNeuePosition.ElementPosition := epIgnore;\r\n    btnNeuePosition.HeightStyle := ssAuto;\r\n    btnNeuePosition.HeightPercent := 100.000000000000000000;\r\n    btnNeuePosition.WidthStyle := ssAuto;\r\n    btnNeuePosition.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnNeuePosition, Self, 'OnClick', 'btnNeuePositionClick');\r\n    Container4.SetParentComponent(Self);\r\n    Container4.Name := 'Container4';\r\n    Container4.Left := 0;\r\n    Container4.Top := 123;\r\n    Container4.Width := 264;\r\n    Container4.Height := 41;\r\n    Container4.ElementClassName := 'd-flex flex-column m-1';\r\n    Container4.HeightStyle := ssAuto;\r\n    Container4.WidthStyle := ssAuto;\r\n    Container4.Align := alTop;\r\n    Container4.ChildOrder := 3;\r\n    Container4.ElementFont := efCSS;\r\n    Container4.ElementPosition := epIgnore;\r\n    webDBComboAuftragStatus.SetParentComponent(Self);\r\n    webDBComboAuftragStatus.Name := 'webDBComboAuftragStatus';\r\n    webDBComboAuftragStatus.Left := 8;\r\n    webDBComboAuftragStatus.Top := 424;\r\n    webDBComboAuftragStatus.Width := 145;\r\n    webDBComboAuftragStatus.Height := 23;\r\n    webDBComboAuftragStatus.ChildOrder := 9;\r\n    webDBComboAuftragStatus.ElementClassName := 'form-control w-75';\r\n    webDBComboAuftragStatus.ElementFont := efCSS;\r\n    webDBComboAuftragStatus.ElementPosition := epIgnore;\r\n    webDBComboAuftragStatus.HeightStyle := ssAuto;\r\n    webDBComboAuftragStatus.HeightPercent := 100.000000000000000000;\r\n    webDBComboAuftragStatus.Text := 'webDBComboAuftragStatus';\r\n    webDBComboAuftragStatus.WidthStyle := ssPercent;\r\n    webDBComboAuftragStatus.WidthPercent := 75.000000000000000000;\r\n    webDBComboAuftragStatus.ItemIndex := -1;\r\n    webDBComboAuftragStatus.DataField := 'AuftragStatus';\r\n    webDBComboAuftragStatus.DataSource := SourceBeleg;\r\n    belegComboMonteur.SetParentComponent(Self);\r\n    belegComboMonteur.Name := 'belegComboMonteur';\r\n    belegComboMonteur.Left := 8;\r\n    belegComboMonteur.Top := 448;\r\n    belegComboMonteur.Width := 145;\r\n    belegComboMonteur.Height := 23;\r\n    belegComboMonteur.ChildOrder := 8;\r\n    belegComboMonteur.ElementClassName := 'form-control w-75';\r\n    belegComboMonteur.ElementFont := efCSS;\r\n    belegComboMonteur.ElementPosition := epIgnore;\r\n    belegComboMonteur.HeightStyle := ssAuto;\r\n    belegComboMonteur.HeightPercent := 100.000000000000000000;\r\n    belegComboMonteur.Text := 'belegComboMonteur';\r\n    belegComboMonteur.WidthStyle := ssPercent;\r\n    belegComboMonteur.WidthPercent := 75.000000000000000000;\r\n    SetEvent(belegComboMonteur, Self, 'OnEnter', 'belegComboMonteurEnter');\r\n    belegComboMonteur.ItemIndex := -1;\r\n    belegMemoServiceBemerkung.SetParentComponent(Self);\r\n    belegMemoServiceBemerkung.Name := 'belegMemoServiceBemerkung';\r\n    belegMemoServiceBemerkung.Left := 175;\r\n    belegMemoServiceBemerkung.Top := 342;\r\n    belegMemoServiceBemerkung.Width := 18;\r\n    belegMemoServiceBemerkung.Height := 80;\r\n    belegMemoServiceBemerkung.BorderStyle := bsNone;\r\n    belegMemoServiceBemerkung.ChildOrder := 10;\r\n    belegMemoServiceBemerkung.ElementClassName := 'form-control form-control-sm';\r\n    belegMemoServiceBemerkung.ElementFont := efCSS;\r\n    belegMemoServiceBemerkung.ElementPosition := epIgnore;\r\n    belegMemoServiceBemerkung.HeightPercent := 100.000000000000000000;\r\n    belegMemoServiceBemerkung.SelLength := 0;\r\n    belegMemoServiceBemerkung.SelStart := 0;\r\n    belegMemoServiceBemerkung.WidthStyle := ssPercent;\r\n    belegMemoServiceBemerkung.WidthPercent := 75.000000000000000000;\r\n    belegMemoServiceBemerkung.DataField := 'ServiceBemerkung';\r\n    belegMemoServiceBemerkung.DataSource := SourceBeleg;\r\n    btnPDFSenden.SetParentComponent(Self);\r\n    btnPDFSenden.Name := 'btnPDFSenden';\r\n    btnPDFSenden.Left := 120;\r\n    btnPDFSenden.Top := 311;\r\n    btnPDFSenden.Width := 49;\r\n    btnPDFSenden.Height := 25;\r\n    btnPDFSenden.Caption := '@';\r\n    btnPDFSenden.ChildOrder := 4;\r\n    btnPDFSenden.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnPDFSenden.ElementFont := efCSS;\r\n    btnPDFSenden.ElementPosition := epIgnore;\r\n    btnPDFSenden.HeightStyle := ssAuto;\r\n    btnPDFSenden.HeightPercent := 100.000000000000000000;\r\n    btnPDFSenden.WidthStyle := ssAuto;\r\n    btnPDFSenden.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnPDFSenden, Self, 'OnClick', 'btnPDFSendenClick');\r\n    edtEmail.SetParentComponent(Self);\r\n    edtEmail.Name := 'edtEmail';\r\n    edtEmail.Left := 135;\r\n    edtEmail.Top := 428;\r\n    edtEmail.Width := 121;\r\n    edtEmail.Height := 22;\r\n    edtEmail.AutoCompletion := acNone;\r\n    edtEmail.ChildOrder := 19;\r\n    edtEmail.ElementClassName := 'form-control form-control-sm';\r\n    edtEmail.ElementFont := efCSS;\r\n    edtEmail.ElementPosition := epIgnore;\r\n    edtEmail.HeightStyle := ssAuto;\r\n    edtEmail.HeightPercent := 100.000000000000000000;\r\n    edtEmail.HideSelection := False;\r\n    edtEmail.ShowFocus := False;\r\n    edtEmail.TextHint := 'Email';\r\n    edtEmail.WidthStyle := ssPercent;\r\n    edtEmail.WidthPercent := 75.000000000000000000;\r\n    edtEmail.DataField := 'EMail';\r\n    edtEmail.DataSource := SourceBeleg;\r\n    btnPZE_A.SetParentComponent(Self);\r\n    btnPZE_A.Name := 'btnPZE_A';\r\n    btnPZE_A.Left := 175;\r\n    btnPZE_A.Top := 311;\r\n    btnPZE_A.Width := 50;\r\n    btnPZE_A.Height := 25;\r\n    btnPZE_A.Caption := 'PZE';\r\n    btnPZE_A.ChildOrder := 4;\r\n    btnPZE_A.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnPZE_A.ElementFont := efCSS;\r\n    btnPZE_A.ElementPosition := epIgnore;\r\n    btnPZE_A.HeightStyle := ssAuto;\r\n    btnPZE_A.HeightPercent := 100.000000000000000000;\r\n    btnPZE_A.WidthStyle := ssAuto;\r\n    btnPZE_A.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnPZE_A, Self, 'OnClick', 'btnPZE_AClick');\r\n    btnPZE_O.SetParentComponent(Self);\r\n    btnPZE_O.Name := 'btnPZE_O';\r\n    btnPZE_O.Left := 175;\r\n    btnPZE_O.Top := 342;\r\n    btnPZE_O.Width := 50;\r\n    btnPZE_O.Height := 25;\r\n    btnPZE_O.Caption := 'PZE';\r\n    btnPZE_O.ChildOrder := 4;\r\n    btnPZE_O.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnPZE_O.ElementFont := efCSS;\r\n    btnPZE_O.ElementPosition := epIgnore;\r\n    btnPZE_O.HeightStyle := ssAuto;\r\n    btnPZE_O.HeightPercent := 100.000000000000000000;\r\n    btnPZE_O.WidthStyle := ssAuto;\r\n    btnPZE_O.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnPZE_O, Self, 'OnClick', 'btnPZE_OClick');\r\n    btnDateien.SetParentComponent(Self);\r\n    btnDateien.Name := 'btnDateien';\r\n    btnDateien.Left := 186;\r\n    btnDateien.Top := 373;\r\n    btnDateien.Width := 50;\r\n    btnDateien.Height := 25;\r\n    btnDateien.Caption := 'Dateien';\r\n    btnDateien.ChildOrder := 4;\r\n    btnDateien.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnDateien.ElementFont := efCSS;\r\n    btnDateien.ElementPosition := epIgnore;\r\n    btnDateien.HeightStyle := ssAuto;\r\n    btnDateien.HeightPercent := 100.000000000000000000;\r\n    btnDateien.WidthStyle := ssAuto;\r\n    btnDateien.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnDateien, Self, 'OnClick', 'btnDateienClick');\r\n    btnDateienObjekt.SetParentComponent(Self);\r\n    btnDateienObjekt.Name := 'btnDateienObjekt';\r\n    btnDateienObjekt.Left := 187;\r\n    btnDateienObjekt.Top := 404;\r\n    btnDateienObjekt.Width := 50;\r\n    btnDateienObjekt.Height := 25;\r\n    btnDateienObjekt.Caption := 'Dateien zu Objekt';\r\n    btnDateienObjekt.ChildOrder := 4;\r\n    btnDateienObjekt.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnDateienObjekt.ElementFont := efCSS;\r\n    btnDateienObjekt.ElementPosition := epIgnore;\r\n    btnDateienObjekt.HeightStyle := ssAuto;\r\n    btnDateienObjekt.HeightPercent := 100.000000000000000000;\r\n    btnDateienObjekt.WidthStyle := ssAuto;\r\n    btnDateienObjekt.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnDateienObjekt, Self, 'OnClick', 'btnDateienObjektClick');\r\n    btnDateienKontakt.SetParentComponent(Self);\r\n    btnDateienKontakt.Name := 'btnDateienKontakt';\r\n    btnDateienKontakt.Left := 187;\r\n    btnDateienKontakt.Top := 435;\r\n    btnDateienKontakt.Width := 50;\r\n    btnDateienKontakt.Height := 25;\r\n    btnDateienKontakt.Caption := 'Dateien zu Kontakt';\r\n    btnDateienKontakt.ChildOrder := 4;\r\n    btnDateienKontakt.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnDateienKontakt.ElementFont := efCSS;\r\n    btnDateienKontakt.ElementPosition := epIgnore;\r\n    btnDateienKontakt.HeightStyle := ssAuto;\r\n    btnDateienKontakt.HeightPercent := 100.000000000000000000;\r\n    btnDateienKontakt.WidthStyle := ssAuto;\r\n    btnDateienKontakt.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnDateienKontakt, Self, 'OnClick', 'btnDateienKontaktClick');\r\n    dsBeleg.SetParentComponent(Self);\r\n    dsBeleg.Name := 'dsBeleg';\r\n    dsBeleg.AfterApplyUpdates := dsBelegAfterApplyUpdates;\r\n    dsBeleg.AfterOpen := dsBelegAfterOpen;\r\n    dsBeleg.BeforePost := dsBelegBeforePost;\r\n    dsBeleg.AfterPost := dsBelegAfterPost;\r\n    dsBeleg.EntitySetName := 'Auftrag';\r\n    dsBeleg.Connection := DM2.XDataWebConnection1;\r\n    dsBeleg.SubpropsDepth := 1;\r\n    dsBeleg.QueryString := '$expand=Kundennummer';\r\n    dsBeleg.Left := 80;\r\n    dsBeleg.Top := 128;\r\n    dsBelegKundennummer.SetParentComponent(dsBeleg);\r\n    dsBelegKundennummer.Name := 'dsBelegKundennummer';\r\n    dsBelegKundennummer.FieldName := 'Kundennummer';\r\n    dsBelegKundennummer.Required := True;\r\n    dsBelegNummerkomplett.SetParentComponent(dsBeleg);\r\n    dsBelegNummerkomplett.Name := 'dsBelegNummerkomplett';\r\n    dsBelegNummerkomplett.FieldName := 'Nummerkomplett';\r\n    dsBelegNummerkomplett.Required := True;\r\n    dsBelegNummerkomplett.Size := 10;\r\n    dsBelegReferenzAngebot.SetParentComponent(dsBeleg);\r\n    dsBelegReferenzAngebot.Name := 'dsBelegReferenzAngebot';\r\n    dsBelegReferenzAngebot.FieldName := 'ReferenzAngebot';\r\n    dsBelegReferenzAngebot.Size := 10;\r\n    dsBelegReferenzLieferschein.SetParentComponent(dsBeleg);\r\n    dsBelegReferenzLieferschein.Name := 'dsBelegReferenzLieferschein';\r\n    dsBelegReferenzLieferschein.FieldName := 'ReferenzLieferschein';\r\n    dsBelegReferenzLieferschein.Size := 10;\r\n    dsBelegReferenzRechnung.SetParentComponent(dsBeleg);\r\n    dsBelegReferenzRechnung.Name := 'dsBelegReferenzRechnung';\r\n    dsBelegReferenzRechnung.FieldName := 'ReferenzRechnung';\r\n    dsBelegReferenzRechnung.Size := 10;\r\n    dsBelegDatum.SetParentComponent(dsBeleg);\r\n    dsBelegDatum.Name := 'dsBelegDatum';\r\n    dsBelegDatum.FieldName := 'Datum';\r\n    dsBelegDatum.Required := True;\r\n    dsBelegJahr.SetParentComponent(dsBeleg);\r\n    dsBelegJahr.Name := 'dsBelegJahr';\r\n    dsBelegJahr.FieldName := 'Jahr';\r\n    dsBelegKalenderwoche.SetParentComponent(dsBeleg);\r\n    dsBelegKalenderwoche.Name := 'dsBelegKalenderwoche';\r\n    dsBelegKalenderwoche.FieldName := 'Kalenderwoche';\r\n    dsBelegNachname.SetParentComponent(dsBeleg);\r\n    dsBelegNachname.Name := 'dsBelegNachname';\r\n    dsBelegNachname.FieldName := 'Nachname';\r\n    dsBelegNachname.Size := 50;\r\n    dsBelegVorname.SetParentComponent(dsBeleg);\r\n    dsBelegVorname.Name := 'dsBelegVorname';\r\n    dsBelegVorname.FieldName := 'Vorname';\r\n    dsBelegVorname.Size := 50;\r\n    dsBelegPostleitzahl.SetParentComponent(dsBeleg);\r\n    dsBelegPostleitzahl.Name := 'dsBelegPostleitzahl';\r\n    dsBelegPostleitzahl.FieldName := 'Postleitzahl';\r\n    dsBelegPostleitzahl.Size := 10;\r\n    dsBelegOrt.SetParentComponent(dsBeleg);\r\n    dsBelegOrt.Name := 'dsBelegOrt';\r\n    dsBelegOrt.FieldName := 'Ort';\r\n    dsBelegOrt.Size := 50;\r\n    dsBelegLaenderkuerzel.SetParentComponent(dsBeleg);\r\n    dsBelegLaenderkuerzel.Name := 'dsBelegLaenderkuerzel';\r\n    dsBelegLaenderkuerzel.FieldName := 'Laenderkuerzel';\r\n    dsBelegLaenderkuerzel.Size := 5;\r\n    dsBelegLand.SetParentComponent(dsBeleg);\r\n    dsBelegLand.Name := 'dsBelegLand';\r\n    dsBelegLand.FieldName := 'Land';\r\n    dsBelegLand.Size := 50;\r\n    dsBelegBriefanrede1.SetParentComponent(dsBeleg);\r\n    dsBelegBriefanrede1.Name := 'dsBelegBriefanrede1';\r\n    dsBelegBriefanrede1.FieldName := 'Briefanrede1';\r\n    dsBelegBriefanrede1.Size := 255;\r\n    dsBelegBriefanrede2.SetParentComponent(dsBeleg);\r\n    dsBelegBriefanrede2.Name := 'dsBelegBriefanrede2';\r\n    dsBelegBriefanrede2.FieldName := 'Briefanrede2';\r\n    dsBelegBriefanrede2.Size := 40;\r\n    dsBelegEMail.SetParentComponent(dsBeleg);\r\n    dsBelegEMail.Name := 'dsBelegEMail';\r\n    dsBelegEMail.FieldName := 'EMail';\r\n    dsBelegEMail.Size := 50;\r\n    dsBelegAdresseBild.SetParentComponent(dsBeleg);\r\n    dsBelegAdresseBild.Name := 'dsBelegAdresseBild';\r\n    dsBelegAdresseBild.FieldName := 'AdresseBild';\r\n    dsBelegAdresseBild.Size := 255;\r\n    dsBelegLieferanschriftBild.SetParentComponent(dsBeleg);\r\n    dsBelegLieferanschriftBild.Name := 'dsBelegLieferanschriftBild';\r\n    dsBelegLieferanschriftBild.FieldName := 'LieferanschriftBild';\r\n    dsBelegLieferanschriftBild.Size := 255;\r\n    dsBelegZahlungsbedingung.SetParentComponent(dsBeleg);\r\n    dsBelegZahlungsbedingung.Name := 'dsBelegZahlungsbedingung';\r\n    dsBelegZahlungsbedingung.FieldName := 'Zahlungsbedingung';\r\n    dsBelegZahlungsbedingungText.SetParentComponent(dsBeleg);\r\n    dsBelegZahlungsbedingungText.Name := 'dsBelegZahlungsbedingungText';\r\n    dsBelegZahlungsbedingungText.FieldName := 'ZahlungsbedingungText';\r\n    dsBelegZahlungsbedingungText.Size := 250;\r\n    dsBelegAuftragsbezeichnung.SetParentComponent(dsBeleg);\r\n    dsBelegAuftragsbezeichnung.Name := 'dsBelegAuftragsbezeichnung';\r\n    dsBelegAuftragsbezeichnung.FieldName := 'Auftragsbezeichnung';\r\n    dsBelegAuftragsbezeichnung.Size := 255;\r\n    dsBelegAuftragnummerKunde.SetParentComponent(dsBeleg);\r\n    dsBelegAuftragnummerKunde.Name := 'dsBelegAuftragnummerKunde';\r\n    dsBelegAuftragnummerKunde.FieldName := 'AuftragnummerKunde';\r\n    dsBelegAuftragnummerKunde.Size := 50;\r\n    dsBelegBestelldatumKunde.SetParentComponent(dsBeleg);\r\n    dsBelegBestelldatumKunde.Name := 'dsBelegBestelldatumKunde';\r\n    dsBelegBestelldatumKunde.FieldName := 'BestelldatumKunde';\r\n    dsBelegILN.SetParentComponent(dsBeleg);\r\n    dsBelegILN.Name := 'dsBelegILN';\r\n    dsBelegILN.FieldName := 'ILN';\r\n    dsBelegILN.Size := 50;\r\n    dsBelegKopftext.SetParentComponent(dsBeleg);\r\n    dsBelegKopftext.Name := 'dsBelegKopftext';\r\n    dsBelegKopftext.FieldName := 'Kopftext';\r\n    dsBelegKopftext.Size := 255;\r\n    dsBelegSchlussbemerkung.SetParentComponent(dsBeleg);\r\n    dsBelegSchlussbemerkung.Name := 'dsBelegSchlussbemerkung';\r\n    dsBelegSchlussbemerkung.FieldName := 'Schlussbemerkung';\r\n    dsBelegSchlussbemerkung.Size := 255;\r\n    dsBelegGruss.SetParentComponent(dsBeleg);\r\n    dsBelegGruss.Name := 'dsBelegGruss';\r\n    dsBelegGruss.FieldName := 'Gruss';\r\n    dsBelegGruss.Size := 255;\r\n    dsBelegMehrwertsteuersatz1.SetParentComponent(dsBeleg);\r\n    dsBelegMehrwertsteuersatz1.Name := 'dsBelegMehrwertsteuersatz1';\r\n    dsBelegMehrwertsteuersatz1.FieldName := 'Mehrwertsteuersatz1';\r\n    dsBelegMehrwertsteuersatz2.SetParentComponent(dsBeleg);\r\n    dsBelegMehrwertsteuersatz2.Name := 'dsBelegMehrwertsteuersatz2';\r\n    dsBelegMehrwertsteuersatz2.FieldName := 'Mehrwertsteuersatz2';\r\n    dsBelegNettosumme01.SetParentComponent(dsBeleg);\r\n    dsBelegNettosumme01.Name := 'dsBelegNettosumme01';\r\n    dsBelegNettosumme01.FieldName := 'Nettosumme01';\r\n    dsBelegNettosumme02.SetParentComponent(dsBeleg);\r\n    dsBelegNettosumme02.Name := 'dsBelegNettosumme02';\r\n    dsBelegNettosumme02.FieldName := 'Nettosumme02';\r\n    dsBelegNettosumme.SetParentComponent(dsBeleg);\r\n    dsBelegNettosumme.Name := 'dsBelegNettosumme';\r\n    dsBelegNettosumme.FieldName := 'Nettosumme';\r\n    dsBelegMehrwertsteuer01.SetParentComponent(dsBeleg);\r\n    dsBelegMehrwertsteuer01.Name := 'dsBelegMehrwertsteuer01';\r\n    dsBelegMehrwertsteuer01.FieldName := 'Mehrwertsteuer01';\r\n    dsBelegMehrwertsteuer02.SetParentComponent(dsBeleg);\r\n    dsBelegMehrwertsteuer02.Name := 'dsBelegMehrwertsteuer02';\r\n    dsBelegMehrwertsteuer02.FieldName := 'Mehrwertsteuer02';\r\n    dsBelegMehrwertsteuer.SetParentComponent(dsBeleg);\r\n    dsBelegMehrwertsteuer.Name := 'dsBelegMehrwertsteuer';\r\n    dsBelegMehrwertsteuer.FieldName := 'Mehrwertsteuer';\r\n    dsBelegBruttosumme.SetParentComponent(dsBeleg);\r\n    dsBelegBruttosumme.Name := 'dsBelegBruttosumme';\r\n    dsBelegBruttosumme.FieldName := 'Bruttosumme';\r\n    dsBelegVersanddatum.SetParentComponent(dsBeleg);\r\n    dsBelegVersanddatum.Name := 'dsBelegVersanddatum';\r\n    dsBelegVersanddatum.FieldName := 'Versanddatum';\r\n    dsBelegSkontosatz.SetParentComponent(dsBeleg);\r\n    dsBelegSkontosatz.Name := 'dsBelegSkontosatz';\r\n    dsBelegSkontosatz.FieldName := 'Skontosatz';\r\n    dsBelegNettosummeEK.SetParentComponent(dsBeleg);\r\n    dsBelegNettosummeEK.Name := 'dsBelegNettosummeEK';\r\n    dsBelegNettosummeEK.FieldName := 'NettosummeEK';\r\n    dsBelegNettoMarge.SetParentComponent(dsBeleg);\r\n    dsBelegNettoMarge.Name := 'dsBelegNettoMarge';\r\n    dsBelegNettoMarge.FieldName := 'NettoMarge';\r\n    dsBelegSchreibzeichen.SetParentComponent(dsBeleg);\r\n    dsBelegSchreibzeichen.Name := 'dsBelegSchreibzeichen';\r\n    dsBelegSchreibzeichen.FieldName := 'Schreibzeichen';\r\n    dsBelegSchreibzeichen.Size := 10;\r\n    dsBelegUnterzeichner.SetParentComponent(dsBeleg);\r\n    dsBelegUnterzeichner.Name := 'dsBelegUnterzeichner';\r\n    dsBelegUnterzeichner.FieldName := 'Unterzeichner';\r\n    dsBelegUnterzeichner.Size := 50;\r\n    dsBelegTelefonMA.SetParentComponent(dsBeleg);\r\n    dsBelegTelefonMA.Name := 'dsBelegTelefonMA';\r\n    dsBelegTelefonMA.FieldName := 'TelefonMA';\r\n    dsBelegTelefonMA.Size := 30;\r\n    dsBelegEmailMA.SetParentComponent(dsBeleg);\r\n    dsBelegEmailMA.Name := 'dsBelegEmailMA';\r\n    dsBelegEmailMA.FieldName := 'EmailMA';\r\n    dsBelegEmailMA.Size := 50;\r\n    dsBelegUSTID.SetParentComponent(dsBeleg);\r\n    dsBelegUSTID.Name := 'dsBelegUSTID';\r\n    dsBelegUSTID.FieldName := 'USTID';\r\n    dsBelegUmsatzsteuerausweis.SetParentComponent(dsBeleg);\r\n    dsBelegUmsatzsteuerausweis.Name := 'dsBelegUmsatzsteuerausweis';\r\n    dsBelegUmsatzsteuerausweis.FieldName := 'Umsatzsteuerausweis';\r\n    dsBeleggebucht.SetParentComponent(dsBeleg);\r\n    dsBeleggebucht.Name := 'dsBeleggebucht';\r\n    dsBeleggebucht.FieldName := 'gebucht';\r\n    dsBelegLieferdatum.SetParentComponent(dsBeleg);\r\n    dsBelegLieferdatum.Name := 'dsBelegLieferdatum';\r\n    dsBelegLieferdatum.FieldName := 'Lieferdatum';\r\n    dsBelegTransportbedingung.SetParentComponent(dsBeleg);\r\n    dsBelegTransportbedingung.Name := 'dsBelegTransportbedingung';\r\n    dsBelegTransportbedingung.FieldName := 'Transportbedingung';\r\n    dsBelegTransportbedingung.Size := 100;\r\n    dsBelegMehrwertsteuersatz3.SetParentComponent(dsBeleg);\r\n    dsBelegMehrwertsteuersatz3.Name := 'dsBelegMehrwertsteuersatz3';\r\n    dsBelegMehrwertsteuersatz3.FieldName := 'Mehrwertsteuersatz3';\r\n    dsBelegMehrwertsteuer03.SetParentComponent(dsBeleg);\r\n    dsBelegMehrwertsteuer03.Name := 'dsBelegMehrwertsteuer03';\r\n    dsBelegMehrwertsteuer03.FieldName := 'Mehrwertsteuer03';\r\n    dsBelegNettosumme03.SetParentComponent(dsBeleg);\r\n    dsBelegNettosumme03.Name := 'dsBelegNettosumme03';\r\n    dsBelegNettosumme03.FieldName := 'Nettosumme03';\r\n    dsBelegRundungsDifferenz.SetParentComponent(dsBeleg);\r\n    dsBelegRundungsDifferenz.Name := 'dsBelegRundungsDifferenz';\r\n    dsBelegRundungsDifferenz.FieldName := 'RundungsDifferenz';\r\n    dsBelegEmailText.SetParentComponent(dsBeleg);\r\n    dsBelegEmailText.Name := 'dsBelegEmailText';\r\n    dsBelegEmailText.FieldName := 'EmailText';\r\n    dsBelegEmailText.Size := 255;\r\n    dsBelegAuftragerledigt.SetParentComponent(dsBeleg);\r\n    dsBelegAuftragerledigt.Name := 'dsBelegAuftragerledigt';\r\n    dsBelegAuftragerledigt.FieldName := 'Auftragerledigt';\r\n    dsBelegRabattstufe.SetParentComponent(dsBeleg);\r\n    dsBelegRabattstufe.Name := 'dsBelegRabattstufe';\r\n    dsBelegRabattstufe.FieldName := 'Rabattstufe';\r\n    dsBelegRabattstufe.Size := 15;\r\n    dsBelegKFZKennzeichen.SetParentComponent(dsBeleg);\r\n    dsBelegKFZKennzeichen.Name := 'dsBelegKFZKennzeichen';\r\n    dsBelegKFZKennzeichen.FieldName := 'KFZKennzeichen';\r\n    dsBelegKFZKennzeichen.Size := 13;\r\n    dsBelegFahrgestellnummer.SetParentComponent(dsBeleg);\r\n    dsBelegFahrgestellnummer.Name := 'dsBelegFahrgestellnummer';\r\n    dsBelegFahrgestellnummer.FieldName := 'Fahrgestellnummer';\r\n    dsBelegKFZHersteller.SetParentComponent(dsBeleg);\r\n    dsBelegKFZHersteller.Name := 'dsBelegKFZHersteller';\r\n    dsBelegKFZHersteller.FieldName := 'KFZHersteller';\r\n    dsBelegErstzulassungsdatum.SetParentComponent(dsBeleg);\r\n    dsBelegErstzulassungsdatum.Name := 'dsBelegErstzulassungsdatum';\r\n    dsBelegErstzulassungsdatum.FieldName := 'Erstzulassungsdatum';\r\n    dsBelegKMStand.SetParentComponent(dsBeleg);\r\n    dsBelegKMStand.Name := 'dsBelegKMStand';\r\n    dsBelegKMStand.FieldName := 'KMStand';\r\n    dsBelegKMStand.Size := 6;\r\n    dsBelegKFZType.SetParentComponent(dsBeleg);\r\n    dsBelegKFZType.Name := 'dsBelegKFZType';\r\n    dsBelegKFZType.FieldName := 'KFZType';\r\n    dsBelegKFZType.Size := 25;\r\n    dsBelegInspektionsdatum.SetParentComponent(dsBeleg);\r\n    dsBelegInspektionsdatum.Name := 'dsBelegInspektionsdatum';\r\n    dsBelegInspektionsdatum.FieldName := 'Inspektionsdatum';\r\n    dsBelegDebitorennummer.SetParentComponent(dsBeleg);\r\n    dsBelegDebitorennummer.Name := 'dsBelegDebitorennummer';\r\n    dsBelegDebitorennummer.FieldName := 'Debitorennummer';\r\n    dsBelegDebitorennummer.Size := 13;\r\n    dsBelegKostentraeger.SetParentComponent(dsBeleg);\r\n    dsBelegKostentraeger.Name := 'dsBelegKostentraeger';\r\n    dsBelegKostentraeger.FieldName := 'Kostentraeger';\r\n    dsBelegKostentraeger.Size := 13;\r\n    dsBelegRabattsatz.SetParentComponent(dsBeleg);\r\n    dsBelegRabattsatz.Name := 'dsBelegRabattsatz';\r\n    dsBelegRabattsatz.FieldName := 'Rabattsatz';\r\n    dsBelegObjektReferenz.SetParentComponent(dsBeleg);\r\n    dsBelegObjektReferenz.Name := 'dsBelegObjektReferenz';\r\n    dsBelegObjektReferenz.FieldName := 'ObjektReferenz';\r\n    dsBelegObjektReferenz.Size := 13;\r\n    dsBelegBank.SetParentComponent(dsBeleg);\r\n    dsBelegBank.Name := 'dsBelegBank';\r\n    dsBelegBank.FieldName := 'Bank';\r\n    dsBelegBank.Size := 50;\r\n    dsBelegBankleitzahl.SetParentComponent(dsBeleg);\r\n    dsBelegBankleitzahl.Name := 'dsBelegBankleitzahl';\r\n    dsBelegBankleitzahl.FieldName := 'Bankleitzahl';\r\n    dsBelegKontonummer.SetParentComponent(dsBeleg);\r\n    dsBelegKontonummer.Name := 'dsBelegKontonummer';\r\n    dsBelegKontonummer.FieldName := 'Kontonummer';\r\n    dsBelegKontonummer.Size := 50;\r\n    dsBelegKontoinhaber.SetParentComponent(dsBeleg);\r\n    dsBelegKontoinhaber.Name := 'dsBelegKontoinhaber';\r\n    dsBelegKontoinhaber.FieldName := 'Kontoinhaber';\r\n    dsBelegKontoinhaber.Size := 50;\r\n    dsBelegTelefaxnummer.SetParentComponent(dsBeleg);\r\n    dsBelegTelefaxnummer.Name := 'dsBelegTelefaxnummer';\r\n    dsBelegTelefaxnummer.FieldName := 'Telefaxnummer';\r\n    dsBelegTelefaxnummer.Size := 25;\r\n    dsBelegDatumNeu.SetParentComponent(dsBeleg);\r\n    dsBelegDatumNeu.Name := 'dsBelegDatumNeu';\r\n    dsBelegDatumNeu.FieldName := 'DatumNeu';\r\n    dsBelegDatumgeaendert.SetParentComponent(dsBeleg);\r\n    dsBelegDatumgeaendert.Name := 'dsBelegDatumgeaendert';\r\n    dsBelegDatumgeaendert.FieldName := 'Datumgeaendert';\r\n    dsBelegObjektnummer.SetParentComponent(dsBeleg);\r\n    dsBelegObjektnummer.Name := 'dsBelegObjektnummer';\r\n    dsBelegObjektnummer.FieldName := 'Objektnummer';\r\n    dsBelegObjektnummer.Size := 25;\r\n    dsBelegLiefertermin.SetParentComponent(dsBeleg);\r\n    dsBelegLiefertermin.Name := 'dsBelegLiefertermin';\r\n    dsBelegLiefertermin.FieldName := 'Liefertermin';\r\n    dsBelegLiefertermin.Size := 50;\r\n    dsBelegEmailversand.SetParentComponent(dsBeleg);\r\n    dsBelegEmailversand.Name := 'dsBelegEmailversand';\r\n    dsBelegEmailversand.FieldName := 'Emailversand';\r\n    dsBelegTelefonnummer.SetParentComponent(dsBeleg);\r\n    dsBelegTelefonnummer.Name := 'dsBelegTelefonnummer';\r\n    dsBelegTelefonnummer.FieldName := 'Telefonnummer';\r\n    dsBelegTelefonnummer.Size := 35;\r\n    dsBelegMobilTelefon.SetParentComponent(dsBeleg);\r\n    dsBelegMobilTelefon.Name := 'dsBelegMobilTelefon';\r\n    dsBelegMobilTelefon.FieldName := 'MobilTelefon';\r\n    dsBelegMobilTelefon.Size := 25;\r\n    dsBelegAuftragFax.SetParentComponent(dsBeleg);\r\n    dsBelegAuftragFax.Name := 'dsBelegAuftragFax';\r\n    dsBelegAuftragFax.FieldName := 'AuftragFax';\r\n    dsBelegREDatum.SetParentComponent(dsBeleg);\r\n    dsBelegREDatum.Name := 'dsBelegREDatum';\r\n    dsBelegREDatum.FieldName := 'REDatum';\r\n    dsBelegBenutzerNeu.SetParentComponent(dsBeleg);\r\n    dsBelegBenutzerNeu.Name := 'dsBelegBenutzerNeu';\r\n    dsBelegBenutzerNeu.FieldName := 'BenutzerNeu';\r\n    dsBelegBenutzerNeu.Size := 50;\r\n    dsBelegBenutzerGeaendert.SetParentComponent(dsBeleg);\r\n    dsBelegBenutzerGeaendert.Name := 'dsBelegBenutzerGeaendert';\r\n    dsBelegBenutzerGeaendert.FieldName := 'BenutzerGeaendert';\r\n    dsBelegBenutzerGeaendert.Size := 50;\r\n    dsBelegBerechnungBrutto.SetParentComponent(dsBeleg);\r\n    dsBelegBerechnungBrutto.Name := 'dsBelegBerechnungBrutto';\r\n    dsBelegBerechnungBrutto.FieldName := 'BerechnungBrutto';\r\n    dsBelegBruttosumme01.SetParentComponent(dsBeleg);\r\n    dsBelegBruttosumme01.Name := 'dsBelegBruttosumme01';\r\n    dsBelegBruttosumme01.FieldName := 'Bruttosumme01';\r\n    dsBelegBruttosumme02.SetParentComponent(dsBeleg);\r\n    dsBelegBruttosumme02.Name := 'dsBelegBruttosumme02';\r\n    dsBelegBruttosumme02.FieldName := 'Bruttosumme02';\r\n    dsBelegBruttosumme03.SetParentComponent(dsBeleg);\r\n    dsBelegBruttosumme03.Name := 'dsBelegBruttosumme03';\r\n    dsBelegBruttosumme03.FieldName := 'Bruttosumme03';\r\n    dsBelegNotiz.SetParentComponent(dsBeleg);\r\n    dsBelegNotiz.Name := 'dsBelegNotiz';\r\n    dsBelegNotiz.FieldName := 'Notiz';\r\n    dsBelegNotiz.Size := 255;\r\n    dsBelegMargeProzent.SetParentComponent(dsBeleg);\r\n    dsBelegMargeProzent.Name := 'dsBelegMargeProzent';\r\n    dsBelegMargeProzent.FieldName := 'MargeProzent';\r\n    dsBelegWarenkreditgesperrt.SetParentComponent(dsBeleg);\r\n    dsBelegWarenkreditgesperrt.Name := 'dsBelegWarenkreditgesperrt';\r\n    dsBelegWarenkreditgesperrt.FieldName := 'Warenkreditgesperrt';\r\n    dsBelegBelegsprache.SetParentComponent(dsBeleg);\r\n    dsBelegBelegsprache.Name := 'dsBelegBelegsprache';\r\n    dsBelegBelegsprache.FieldName := 'Belegsprache';\r\n    dsBelegBelegsprache.Size := 10;\r\n    dsBelegDuplicate.SetParentComponent(dsBeleg);\r\n    dsBelegDuplicate.Name := 'dsBelegDuplicate';\r\n    dsBelegDuplicate.FieldName := 'Duplicate';\r\n    dsBelegperEmail.SetParentComponent(dsBeleg);\r\n    dsBelegperEmail.Name := 'dsBelegperEmail';\r\n    dsBelegperEmail.FieldName := 'perEmail';\r\n    dsBelegAnsprechpartner.SetParentComponent(dsBeleg);\r\n    dsBelegAnsprechpartner.Name := 'dsBelegAnsprechpartner';\r\n    dsBelegAnsprechpartner.FieldName := 'Ansprechpartner';\r\n    dsBelegAnsprechpartner.Size := 105;\r\n    dsBelegKundennummerFremd.SetParentComponent(dsBeleg);\r\n    dsBelegKundennummerFremd.Name := 'dsBelegKundennummerFremd';\r\n    dsBelegKundennummerFremd.FieldName := 'KundennummerFremd';\r\n    dsBelegProtokoll.SetParentComponent(dsBeleg);\r\n    dsBelegProtokoll.Name := 'dsBelegProtokoll';\r\n    dsBelegProtokoll.FieldName := 'Protokoll';\r\n    dsBelegProtokoll.Size := 255;\r\n    dsBelegVerleihauftrag.SetParentComponent(dsBeleg);\r\n    dsBelegVerleihauftrag.Name := 'dsBelegVerleihauftrag';\r\n    dsBelegVerleihauftrag.FieldName := 'Verleihauftrag';\r\n    dsBelegVerleihVon.SetParentComponent(dsBeleg);\r\n    dsBelegVerleihVon.Name := 'dsBelegVerleihVon';\r\n    dsBelegVerleihVon.FieldName := 'VerleihVon';\r\n    dsBelegVerleihBis.SetParentComponent(dsBeleg);\r\n    dsBelegVerleihBis.Name := 'dsBelegVerleihBis';\r\n    dsBelegVerleihBis.FieldName := 'VerleihBis';\r\n    dsBelegAuftragGenehmigt.SetParentComponent(dsBeleg);\r\n    dsBelegAuftragGenehmigt.Name := 'dsBelegAuftragGenehmigt';\r\n    dsBelegAuftragGenehmigt.FieldName := 'AuftragGenehmigt';\r\n    dsBeleggesperrt.SetParentComponent(dsBeleg);\r\n    dsBeleggesperrt.Name := 'dsBeleggesperrt';\r\n    dsBeleggesperrt.FieldName := 'gesperrt';\r\n    dsBelegVerleihvonText.SetParentComponent(dsBeleg);\r\n    dsBelegVerleihvonText.Name := 'dsBelegVerleihvonText';\r\n    dsBelegVerleihvonText.FieldName := 'VerleihvonText';\r\n    dsBelegVerleihvonText.Size := 50;\r\n    dsBelegVerleihbisText.SetParentComponent(dsBeleg);\r\n    dsBelegVerleihbisText.Name := 'dsBelegVerleihbisText';\r\n    dsBelegVerleihbisText.FieldName := 'VerleihbisText';\r\n    dsBelegVerleihbisText.Size := 50;\r\n    dsBelegDruckWHG.SetParentComponent(dsBeleg);\r\n    dsBelegDruckWHG.Name := 'dsBelegDruckWHG';\r\n    dsBelegDruckWHG.FieldName := 'DruckWHG';\r\n    dsBelegDruckWHG.Size := 3;\r\n    dsBelegDruckWHGKurs.SetParentComponent(dsBeleg);\r\n    dsBelegDruckWHGKurs.Name := 'dsBelegDruckWHGKurs';\r\n    dsBelegDruckWHGKurs.FieldName := 'DruckWHGKurs';\r\n    dsBelegProzentsatzZusatzposition.SetParentComponent(dsBeleg);\r\n    dsBelegProzentsatzZusatzposition.Name := 'dsBelegProzentsatzZusatzposition';\r\n    dsBelegProzentsatzZusatzposition.FieldName := 'ProzentsatzZusatzposition';\r\n    dsBelegTextZusatzposition.SetParentComponent(dsBeleg);\r\n    dsBelegTextZusatzposition.Name := 'dsBelegTextZusatzposition';\r\n    dsBelegTextZusatzposition.FieldName := 'TextZusatzposition';\r\n    dsBelegTextZusatzposition.Size := 255;\r\n    dsBelegTextzusatzBeschreibung.SetParentComponent(dsBeleg);\r\n    dsBelegTextzusatzBeschreibung.Name := 'dsBelegTextzusatzBeschreibung';\r\n    dsBelegTextzusatzBeschreibung.FieldName := 'TextzusatzBeschreibung';\r\n    dsBelegTextzusatzBeschreibung.Size := 50;\r\n    dsBelegLayoutname.SetParentComponent(dsBeleg);\r\n    dsBelegLayoutname.Name := 'dsBelegLayoutname';\r\n    dsBelegLayoutname.FieldName := 'Layoutname';\r\n    dsBelegLayoutname.Size := 50;\r\n    dsBelegGesamtgewicht.SetParentComponent(dsBeleg);\r\n    dsBelegGesamtgewicht.Name := 'dsBelegGesamtgewicht';\r\n    dsBelegGesamtgewicht.FieldName := 'Gesamtgewicht';\r\n    dsBelegBetragZusatzposition.SetParentComponent(dsBeleg);\r\n    dsBelegBetragZusatzposition.Name := 'dsBelegBetragZusatzposition';\r\n    dsBelegBetragZusatzposition.FieldName := 'BetragZusatzposition';\r\n    dsBelegReferenzBestellung.SetParentComponent(dsBeleg);\r\n    dsBelegReferenzBestellung.Name := 'dsBelegReferenzBestellung';\r\n    dsBelegReferenzBestellung.FieldName := 'ReferenzBestellung';\r\n    dsBelegReferenzBestellung.Size := 10;\r\n    dsBelegTermin1.SetParentComponent(dsBeleg);\r\n    dsBelegTermin1.Name := 'dsBelegTermin1';\r\n    dsBelegTermin1.FieldName := 'Termin1';\r\n    dsBelegTermin2.SetParentComponent(dsBeleg);\r\n    dsBelegTermin2.Name := 'dsBelegTermin2';\r\n    dsBelegTermin2.FieldName := 'Termin2';\r\n    dsBelegZielkontaktnummer.SetParentComponent(dsBeleg);\r\n    dsBelegZielkontaktnummer.Name := 'dsBelegZielkontaktnummer';\r\n    dsBelegZielkontaktnummer.FieldName := 'Zielkontaktnummer';\r\n    dsBelegZielkontaktnummer.Size := 13;\r\n    dsBelegZielkontaktname.SetParentComponent(dsBeleg);\r\n    dsBelegZielkontaktname.Name := 'dsBelegZielkontaktname';\r\n    dsBelegZielkontaktname.FieldName := 'Zielkontaktname';\r\n    dsBelegZielkontaktname.Size := 40;\r\n    dsBelegBilddatei1.SetParentComponent(dsBeleg);\r\n    dsBelegBilddatei1.Name := 'dsBelegBilddatei1';\r\n    dsBelegBilddatei1.FieldName := 'Bilddatei1';\r\n    dsBelegBilddatei1.Size := 255;\r\n    dsBelegBilddatei2.SetParentComponent(dsBeleg);\r\n    dsBelegBilddatei2.Name := 'dsBelegBilddatei2';\r\n    dsBelegBilddatei2.FieldName := 'Bilddatei2';\r\n    dsBelegBilddatei2.Size := 255;\r\n    dsBelegZielkontaktnummer2.SetParentComponent(dsBeleg);\r\n    dsBelegZielkontaktnummer2.Name := 'dsBelegZielkontaktnummer2';\r\n    dsBelegZielkontaktnummer2.FieldName := 'Zielkontaktnummer2';\r\n    dsBelegZielkontaktnummer2.Size := 13;\r\n    dsBelegZielkontaktname2.SetParentComponent(dsBeleg);\r\n    dsBelegZielkontaktname2.Name := 'dsBelegZielkontaktname2';\r\n    dsBelegZielkontaktname2.FieldName := 'Zielkontaktname2';\r\n    dsBelegZielkontaktname2.Size := 40;\r\n    dsBelegbestaetigt.SetParentComponent(dsBeleg);\r\n    dsBelegbestaetigt.Name := 'dsBelegbestaetigt';\r\n    dsBelegbestaetigt.FieldName := 'bestaetigt';\r\n    dsBelegZielkontaktnummer3.SetParentComponent(dsBeleg);\r\n    dsBelegZielkontaktnummer3.Name := 'dsBelegZielkontaktnummer3';\r\n    dsBelegZielkontaktnummer3.FieldName := 'Zielkontaktnummer3';\r\n    dsBelegZielkontaktnummer3.Size := 13;\r\n    dsBelegZielkontaktname3.SetParentComponent(dsBeleg);\r\n    dsBelegZielkontaktname3.Name := 'dsBelegZielkontaktname3';\r\n    dsBelegZielkontaktname3.FieldName := 'Zielkontaktname3';\r\n    dsBelegZielkontaktname3.Size := 40;\r\n    dsBelegTermin3.SetParentComponent(dsBeleg);\r\n    dsBelegTermin3.Name := 'dsBelegTermin3';\r\n    dsBelegTermin3.FieldName := 'Termin3';\r\n    dsBelegTermin4.SetParentComponent(dsBeleg);\r\n    dsBelegTermin4.Name := 'dsBelegTermin4';\r\n    dsBelegTermin4.FieldName := 'Termin4';\r\n    dsBelegMuster.SetParentComponent(dsBeleg);\r\n    dsBelegMuster.Name := 'dsBelegMuster';\r\n    dsBelegMuster.FieldName := 'Muster';\r\n    dsBelegKW.SetParentComponent(dsBeleg);\r\n    dsBelegKW.Name := 'dsBelegKW';\r\n    dsBelegKW.FieldName := 'KW';\r\n    dsBelegDatenlink.SetParentComponent(dsBeleg);\r\n    dsBelegDatenlink.Name := 'dsBelegDatenlink';\r\n    dsBelegDatenlink.FieldName := 'Datenlink';\r\n    dsBelegDatenlink.Size := 255;\r\n    dsBelegMehrwertsteuersatz4.SetParentComponent(dsBeleg);\r\n    dsBelegMehrwertsteuersatz4.Name := 'dsBelegMehrwertsteuersatz4';\r\n    dsBelegMehrwertsteuersatz4.FieldName := 'Mehrwertsteuersatz4';\r\n    dsBelegMehrwertsteuersatz5.SetParentComponent(dsBeleg);\r\n    dsBelegMehrwertsteuersatz5.Name := 'dsBelegMehrwertsteuersatz5';\r\n    dsBelegMehrwertsteuersatz5.FieldName := 'Mehrwertsteuersatz5';\r\n    dsBelegMehrwertsteuersatz6.SetParentComponent(dsBeleg);\r\n    dsBelegMehrwertsteuersatz6.Name := 'dsBelegMehrwertsteuersatz6';\r\n    dsBelegMehrwertsteuersatz6.FieldName := 'Mehrwertsteuersatz6';\r\n    dsBelegBesteuerungKey.SetParentComponent(dsBeleg);\r\n    dsBelegBesteuerungKey.Name := 'dsBelegBesteuerungKey';\r\n    dsBelegBesteuerungKey.FieldName := 'BesteuerungKey';\r\n    dsBelegVertreterMatchcode.SetParentComponent(dsBeleg);\r\n    dsBelegVertreterMatchcode.Name := 'dsBelegVertreterMatchcode';\r\n    dsBelegVertreterMatchcode.FieldName := 'VertreterMatchcode';\r\n    dsBelegVertreterMatchcode.Size := 50;\r\n    dsBelegVerfasser.SetParentComponent(dsBeleg);\r\n    dsBelegVerfasser.Name := 'dsBelegVerfasser';\r\n    dsBelegVerfasser.FieldName := 'Verfasser';\r\n    dsBelegVerfasser.Size := 10;\r\n    dsBelegLieferadresseID.SetParentComponent(dsBeleg);\r\n    dsBelegLieferadresseID.Name := 'dsBelegLieferadresseID';\r\n    dsBelegLieferadresseID.FieldName := 'LieferadresseID';\r\n    dsBelegAuftragStatus.SetParentComponent(dsBeleg);\r\n    dsBelegAuftragStatus.Name := 'dsBelegAuftragStatus';\r\n    dsBelegAuftragStatus.FieldName := 'AuftragStatus';\r\n    dsBelegAuftragStatus.Size := 30;\r\n    dsBelegMonatJahr.SetParentComponent(dsBeleg);\r\n    dsBelegMonatJahr.Name := 'dsBelegMonatJahr';\r\n    dsBelegMonatJahr.FieldName := 'MonatJahr';\r\n    dsBelegBelegvariante.SetParentComponent(dsBeleg);\r\n    dsBelegBelegvariante.Name := 'dsBelegBelegvariante';\r\n    dsBelegBelegvariante.FieldName := 'Belegvariante';\r\n    dsBelegBelegvariante.Size := 25;\r\n    dsBelegProduktionsfreigabe.SetParentComponent(dsBeleg);\r\n    dsBelegProduktionsfreigabe.Name := 'dsBelegProduktionsfreigabe';\r\n    dsBelegProduktionsfreigabe.FieldName := 'Produktionsfreigabe';\r\n    dsBelegReferenzRahmenAuftrag.SetParentComponent(dsBeleg);\r\n    dsBelegReferenzRahmenAuftrag.Name := 'dsBelegReferenzRahmenAuftrag';\r\n    dsBelegReferenzRahmenAuftrag.FieldName := 'ReferenzRahmenAuftrag';\r\n    dsBelegReferenzRahmenAuftrag.Size := 10;\r\n    dsBelegDatumRahmenAuftrag.SetParentComponent(dsBeleg);\r\n    dsBelegDatumRahmenAuftrag.Name := 'dsBelegDatumRahmenAuftrag';\r\n    dsBelegDatumRahmenAuftrag.FieldName := 'DatumRahmenAuftrag';\r\n    dsBelegFahrzeugID.SetParentComponent(dsBeleg);\r\n    dsBelegFahrzeugID.Name := 'dsBelegFahrzeugID';\r\n    dsBelegFahrzeugID.FieldName := 'FahrzeugID';\r\n    dsBelegAuslieferungKW.SetParentComponent(dsBeleg);\r\n    dsBelegAuslieferungKW.Name := 'dsBelegAuslieferungKW';\r\n    dsBelegAuslieferungKW.FieldName := 'AuslieferungKW';\r\n    dsBelegAuslieferungKW.Size := 25;\r\n    dsBelegBereitstellungDatum.SetParentComponent(dsBeleg);\r\n    dsBelegBereitstellungDatum.Name := 'dsBelegBereitstellungDatum';\r\n    dsBelegBereitstellungDatum.FieldName := 'BereitstellungDatum';\r\n    dsBelegVTUID.SetParentComponent(dsBeleg);\r\n    dsBelegVTUID.Name := 'dsBelegVTUID';\r\n    dsBelegVTUID.FieldName := 'VTUID';\r\n    dsBelegVTUID.Size := 38;\r\n    dsBelegLieferanschriftDaten.SetParentComponent(dsBeleg);\r\n    dsBelegLieferanschriftDaten.Name := 'dsBelegLieferanschriftDaten';\r\n    dsBelegLieferanschriftDaten.FieldName := 'LieferanschriftDaten';\r\n    dsBelegLieferanschriftDaten.Size := 255;\r\n    dsBelegGesamtVolumen.SetParentComponent(dsBeleg);\r\n    dsBelegGesamtVolumen.Name := 'dsBelegGesamtVolumen';\r\n    dsBelegGesamtVolumen.FieldName := 'GesamtVolumen';\r\n    dsBelegBelegPKey.SetParentComponent(dsBeleg);\r\n    dsBelegBelegPKey.Name := 'dsBelegBelegPKey';\r\n    dsBelegBelegPKey.FieldName := 'BelegPKey';\r\n    dsBelegDruckParameter.SetParentComponent(dsBeleg);\r\n    dsBelegDruckParameter.Name := 'dsBelegDruckParameter';\r\n    dsBelegDruckParameter.FieldName := 'DruckParameter';\r\n    dsBelegDruckParameter.Size := 255;\r\n    dsBelegReferenzService.SetParentComponent(dsBeleg);\r\n    dsBelegReferenzService.Name := 'dsBelegReferenzService';\r\n    dsBelegReferenzService.FieldName := 'ReferenzService';\r\n    dsBelegReferenzService.Size := 10;\r\n    dsBelegZusatzDaten.SetParentComponent(dsBeleg);\r\n    dsBelegZusatzDaten.Name := 'dsBelegZusatzDaten';\r\n    dsBelegZusatzDaten.FieldName := 'ZusatzDaten';\r\n    dsBelegZusatzDaten.Size := 255;\r\n    dsBelegStandPDF.SetParentComponent(dsBeleg);\r\n    dsBelegStandPDF.Name := 'dsBelegStandPDF';\r\n    dsBelegStandPDF.FieldName := 'StandPDF';\r\n    dsBelegStandPDF.Size := 255;\r\n    dsBelegPaketdienst.SetParentComponent(dsBeleg);\r\n    dsBelegPaketdienst.Name := 'dsBelegPaketdienst';\r\n    dsBelegPaketdienst.FieldName := 'Paketdienst';\r\n    dsBelegPaketdienst.Size := 30;\r\n    dsBelegMonteur.SetParentComponent(dsBeleg);\r\n    dsBelegMonteur.Name := 'dsBelegMonteur';\r\n    dsBelegMonteur.FieldName := 'Monteur';\r\n    dsBelegKundennummerKundennummer.SetParentComponent(dsBeleg);\r\n    dsBelegKundennummerKundennummer.Name := 'dsBelegKundennummerKundennummer';\r\n    dsBelegKundennummerKundennummer.FieldName := 'Kundennummer.Kundennummer';\r\n    dsBelegKundennummerKundennummer.Size := 13;\r\n    dsBelegServiceBemerkung.SetParentComponent(dsBeleg);\r\n    dsBelegServiceBemerkung.Name := 'dsBelegServiceBemerkung';\r\n    dsBelegServiceBemerkung.FieldName := 'ServiceBemerkung';\r\n    dsBelegServiceBemerkung.Size := 255;\r\n    SourceBeleg.SetParentComponent(Self);\r\n    SourceBeleg.Name := 'SourceBeleg';\r\n    SourceBeleg.DataSet := dsBeleg;\r\n    SetEvent(SourceBeleg, Self, 'OnStateChange', 'SourceBelegStateChange');\r\n    SourceBeleg.Left := 16;\r\n    SourceBeleg.Top := 128;\r\n    dsPositionen.SetParentComponent(Self);\r\n    dsPositionen.Name := 'dsPositionen';\r\n    dsPositionen.AfterOpen := dsPositionenAfterOpen;\r\n    dsPositionen.EntitySetName := 'PositionenAuftrag';\r\n    dsPositionen.Connection := DM2.XDataWebConnection1;\r\n    dsPositionen.SubpropsDepth := 1;\r\n    dsPositionen.QueryString := '$expand=Artikelnummer';\r\n    dsPositionen.Left := 216;\r\n    dsPositionen.Top := 128;\r\n    dsPositionenArtikelnummer.SetParentComponent(dsPositionen);\r\n    dsPositionenArtikelnummer.Name := 'dsPositionenArtikelnummer';\r\n    dsPositionenArtikelnummer.FieldName := 'Artikelnummer';\r\n    dsPositionenNummerkomplett.SetParentComponent(dsPositionen);\r\n    dsPositionenNummerkomplett.Name := 'dsPositionenNummerkomplett';\r\n    dsPositionenNummerkomplett.FieldName := 'Nummerkomplett';\r\n    dsPositionenID.SetParentComponent(dsPositionen);\r\n    dsPositionenID.Name := 'dsPositionenID';\r\n    dsPositionenID.FieldName := 'ID';\r\n    dsPositionenID.Required := True;\r\n    dsPositionenPosNr.SetParentComponent(dsPositionen);\r\n    dsPositionenPosNr.Name := 'dsPositionenPosNr';\r\n    dsPositionenPosNr.FieldName := 'PosNr';\r\n    dsPositionenPosNr.Required := True;\r\n    dsPositionenPosUNr.SetParentComponent(dsPositionen);\r\n    dsPositionenPosUNr.Name := 'dsPositionenPosUNr';\r\n    dsPositionenPosUNr.FieldName := 'PosUNr';\r\n    dsPositionenSumme.SetParentComponent(dsPositionen);\r\n    dsPositionenSumme.Name := 'dsPositionenSumme';\r\n    dsPositionenSumme.FieldName := 'Summe';\r\n    dsPositionenArtikelueberschrift.SetParentComponent(dsPositionen);\r\n    dsPositionenArtikelueberschrift.Name := 'dsPositionenArtikelueberschrift';\r\n    dsPositionenArtikelueberschrift.FieldName := 'Artikelueberschrift';\r\n    dsPositionenArtikelueberschrift.Size := 50;\r\n    dsPositionenArtikelbeschreibung.SetParentComponent(dsPositionen);\r\n    dsPositionenArtikelbeschreibung.Name := 'dsPositionenArtikelbeschreibung';\r\n    dsPositionenArtikelbeschreibung.FieldName := 'Artikelbeschreibung';\r\n    dsPositionenArtikelbeschreibung.Size := 255;\r\n    dsPositionenMenge.SetParentComponent(dsPositionen);\r\n    dsPositionenMenge.Name := 'dsPositionenMenge';\r\n    dsPositionenMenge.FieldName := 'Menge';\r\n    dsPositionenArtderMenge.SetParentComponent(dsPositionen);\r\n    dsPositionenArtderMenge.Name := 'dsPositionenArtderMenge';\r\n    dsPositionenArtderMenge.FieldName := 'ArtderMenge';\r\n    dsPositionenArtderMenge.Size := 50;\r\n    dsPositionenVerkaufspreis.SetParentComponent(dsPositionen);\r\n    dsPositionenVerkaufspreis.Name := 'dsPositionenVerkaufspreis';\r\n    dsPositionenVerkaufspreis.FieldName := 'Verkaufspreis';\r\n    dsPositionenEinkaufspreis.SetParentComponent(dsPositionen);\r\n    dsPositionenEinkaufspreis.Name := 'dsPositionenEinkaufspreis';\r\n    dsPositionenEinkaufspreis.FieldName := 'Einkaufspreis';\r\n    dsPositionenSeriennummer.SetParentComponent(dsPositionen);\r\n    dsPositionenSeriennummer.Name := 'dsPositionenSeriennummer';\r\n    dsPositionenSeriennummer.FieldName := 'Seriennummer';\r\n    dsPositionenSeriennummer.Size := 30;\r\n    dsPositionenWarengruppe.SetParentComponent(dsPositionen);\r\n    dsPositionenWarengruppe.Name := 'dsPositionenWarengruppe';\r\n    dsPositionenWarengruppe.FieldName := 'Warengruppe';\r\n    dsPositionenWarengruppe.Size := 50;\r\n    dsPositionenWarenuntergruppe.SetParentComponent(dsPositionen);\r\n    dsPositionenWarenuntergruppe.Name := 'dsPositionenWarenuntergruppe';\r\n    dsPositionenWarenuntergruppe.FieldName := 'Warenuntergruppe';\r\n    dsPositionenWarenuntergruppe.Size := 50;\r\n    dsPositionenArtikelnummerKunde.SetParentComponent(dsPositionen);\r\n    dsPositionenArtikelnummerKunde.Name := 'dsPositionenArtikelnummerKunde';\r\n    dsPositionenArtikelnummerKunde.FieldName := 'ArtikelnummerKunde';\r\n    dsPositionenLieferant.SetParentComponent(dsPositionen);\r\n    dsPositionenLieferant.Name := 'dsPositionenLieferant';\r\n    dsPositionenLieferant.FieldName := 'Lieferant';\r\n    dsPositionenLieferant.Size := 13;\r\n    dsPositionenGewicht.SetParentComponent(dsPositionen);\r\n    dsPositionenGewicht.Name := 'dsPositionenGewicht';\r\n    dsPositionenGewicht.FieldName := 'Gewicht';\r\n    dsPositionenLaenge.SetParentComponent(dsPositionen);\r\n    dsPositionenLaenge.Name := 'dsPositionenLaenge';\r\n    dsPositionenLaenge.FieldName := 'Laenge';\r\n    dsPositionenBreite.SetParentComponent(dsPositionen);\r\n    dsPositionenBreite.Name := 'dsPositionenBreite';\r\n    dsPositionenBreite.FieldName := 'Breite';\r\n    dsPositionenHoehe.SetParentComponent(dsPositionen);\r\n    dsPositionenHoehe.Name := 'dsPositionenHoehe';\r\n    dsPositionenHoehe.FieldName := 'Hoehe';\r\n    dsPositionenMehrwertsteuersatz.SetParentComponent(dsPositionen);\r\n    dsPositionenMehrwertsteuersatz.Name := 'dsPositionenMehrwertsteuersatz';\r\n    dsPositionenMehrwertsteuersatz.FieldName := 'Mehrwertsteuersatz';\r\n    dsPositionenEndpreis.SetParentComponent(dsPositionen);\r\n    dsPositionenEndpreis.Name := 'dsPositionenEndpreis';\r\n    dsPositionenEndpreis.FieldName := 'Endpreis';\r\n    dsPositionenPosMWST.SetParentComponent(dsPositionen);\r\n    dsPositionenPosMWST.Name := 'dsPositionenPosMWST';\r\n    dsPositionenPosMWST.FieldName := 'PosMWST';\r\n    dsPositionenBruttoEndpreis.SetParentComponent(dsPositionen);\r\n    dsPositionenBruttoEndpreis.Name := 'dsPositionenBruttoEndpreis';\r\n    dsPositionenBruttoEndpreis.FieldName := 'BruttoEndpreis';\r\n    dsPositionenEndpreis_EK.SetParentComponent(dsPositionen);\r\n    dsPositionenEndpreis_EK.Name := 'dsPositionenEndpreis_EK';\r\n    dsPositionenEndpreis_EK.FieldName := 'Endpreis_EK';\r\n    dsPositionenRabattsatz.SetParentComponent(dsPositionen);\r\n    dsPositionenRabattsatz.Name := 'dsPositionenRabattsatz';\r\n    dsPositionenRabattsatz.FieldName := 'Rabattsatz';\r\n    dsPositionenPreisvorRabatt.SetParentComponent(dsPositionen);\r\n    dsPositionenPreisvorRabatt.Name := 'dsPositionenPreisvorRabatt';\r\n    dsPositionenPreisvorRabatt.FieldName := 'PreisvorRabatt';\r\n    dsPositionenPKZ.SetParentComponent(dsPositionen);\r\n    dsPositionenPKZ.Name := 'dsPositionenPKZ';\r\n    dsPositionenPKZ.FieldName := 'PKZ';\r\n    dsPositionenTextfrei10.SetParentComponent(dsPositionen);\r\n    dsPositionenTextfrei10.Name := 'dsPositionenTextfrei10';\r\n    dsPositionenTextfrei10.FieldName := 'Textfrei10';\r\n    dsPositionenTextfrei10.Size := 50;\r\n    dsPositionenTextfrei20.SetParentComponent(dsPositionen);\r\n    dsPositionenTextfrei20.Name := 'dsPositionenTextfrei20';\r\n    dsPositionenTextfrei20.FieldName := 'Textfrei20';\r\n    dsPositionenTextfrei20.Size := 50;\r\n    dsPositionenProduktionAbgeschlossen.SetParentComponent(dsPositionen);\r\n    dsPositionenProduktionAbgeschlossen.Name := 'dsPositionenProduktionAbgeschlossen';\r\n    dsPositionenProduktionAbgeschlossen.FieldName := 'ProduktionAbgeschlossen';\r\n    dsPositionenEinzelpreisBrutto.SetParentComponent(dsPositionen);\r\n    dsPositionenEinzelpreisBrutto.Name := 'dsPositionenEinzelpreisBrutto';\r\n    dsPositionenEinzelpreisBrutto.FieldName := 'EinzelpreisBrutto';\r\n    dsPositionenPosMarge.SetParentComponent(dsPositionen);\r\n    dsPositionenPosMarge.Name := 'dsPositionenPosMarge';\r\n    dsPositionenPosMarge.FieldName := 'PosMarge';\r\n    dsPositionenPosMargeProzent.SetParentComponent(dsPositionen);\r\n    dsPositionenPosMargeProzent.Name := 'dsPositionenPosMargeProzent';\r\n    dsPositionenPosMargeProzent.FieldName := 'PosMargeProzent';\r\n    dsPositionenBereitsGeliefert.SetParentComponent(dsPositionen);\r\n    dsPositionenBereitsGeliefert.Name := 'dsPositionenBereitsGeliefert';\r\n    dsPositionenBereitsGeliefert.FieldName := 'BereitsGeliefert';\r\n    dsPositionenausliefern.SetParentComponent(dsPositionen);\r\n    dsPositionenausliefern.Name := 'dsPositionenausliefern';\r\n    dsPositionenausliefern.FieldName := 'ausliefern';\r\n    dsPositionenBestellungErledigt.SetParentComponent(dsPositionen);\r\n    dsPositionenBestellungErledigt.Name := 'dsPositionenBestellungErledigt';\r\n    dsPositionenBestellungErledigt.FieldName := 'BestellungErledigt';\r\n    dsPositionenLager.SetParentComponent(dsPositionen);\r\n    dsPositionenLager.Name := 'dsPositionenLager';\r\n    dsPositionenLager.FieldName := 'Lager';\r\n    dsPositionenLager.Size := 50;\r\n    dsPositionenbestellen.SetParentComponent(dsPositionen);\r\n    dsPositionenbestellen.Name := 'dsPositionenbestellen';\r\n    dsPositionenbestellen.FieldName := 'bestellen';\r\n    dsPositionenWarenbestand.SetParentComponent(dsPositionen);\r\n    dsPositionenWarenbestand.Name := 'dsPositionenWarenbestand';\r\n    dsPositionenWarenbestand.FieldName := 'Warenbestand';\r\n    dsPositionenArtikelbeschreibungRTF.SetParentComponent(dsPositionen);\r\n    dsPositionenArtikelbeschreibungRTF.Name := 'dsPositionenArtikelbeschreibungRTF';\r\n    dsPositionenArtikelbeschreibungRTF.FieldName := 'ArtikelbeschreibungRTF';\r\n    dsPositionenArtikelbeschreibungRTF.Size := 255;\r\n    dsPositionenQuellartikel.SetParentComponent(dsPositionen);\r\n    dsPositionenQuellartikel.Name := 'dsPositionenQuellartikel';\r\n    dsPositionenQuellartikel.FieldName := 'Quellartikel';\r\n    dsPositionenQuellartikel.Size := 25;\r\n    dsPositionenArtikelnummerWB.SetParentComponent(dsPositionen);\r\n    dsPositionenArtikelnummerWB.Name := 'dsPositionenArtikelnummerWB';\r\n    dsPositionenArtikelnummerWB.FieldName := 'ArtikelnummerWB';\r\n    dsPositionenArtikelnummerWB.Size := 25;\r\n    dsPositionenPreisanteilNetto.SetParentComponent(dsPositionen);\r\n    dsPositionenPreisanteilNetto.Name := 'dsPositionenPreisanteilNetto';\r\n    dsPositionenPreisanteilNetto.FieldName := 'PreisanteilNetto';\r\n    dsPositionenSetHPos.SetParentComponent(dsPositionen);\r\n    dsPositionenSetHPos.Name := 'dsPositionenSetHPos';\r\n    dsPositionenSetHPos.FieldName := 'SetHPos';\r\n    dsPositionenSetHPos.Size := 38;\r\n    dsPositionenSetUPos.SetParentComponent(dsPositionen);\r\n    dsPositionenSetUPos.Name := 'dsPositionenSetUPos';\r\n    dsPositionenSetUPos.FieldName := 'SetUPos';\r\n    dsPositionenSetUPos.Size := 38;\r\n    dsPositionenProvisionssatz.SetParentComponent(dsPositionen);\r\n    dsPositionenProvisionssatz.Name := 'dsPositionenProvisionssatz';\r\n    dsPositionenProvisionssatz.FieldName := 'Provisionssatz';\r\n    dsPositionenProvisionsbetrag.SetParentComponent(dsPositionen);\r\n    dsPositionenProvisionsbetrag.Name := 'dsPositionenProvisionsbetrag';\r\n    dsPositionenProvisionsbetrag.FieldName := 'Provisionsbetrag';\r\n    dsPositionenArtikelsprache.SetParentComponent(dsPositionen);\r\n    dsPositionenArtikelsprache.Name := 'dsPositionenArtikelsprache';\r\n    dsPositionenArtikelsprache.FieldName := 'Artikelsprache';\r\n    dsPositionenArtikelsprache.Size := 255;\r\n    dsPositionenEKvom.SetParentComponent(dsPositionen);\r\n    dsPositionenEKvom.Name := 'dsPositionenEKvom';\r\n    dsPositionenEKvom.FieldName := 'EKvom';\r\n    dsPositionenMengenberechnungID.SetParentComponent(dsPositionen);\r\n    dsPositionenMengenberechnungID.Name := 'dsPositionenMengenberechnungID';\r\n    dsPositionenMengenberechnungID.FieldName := 'MengenberechnungID';\r\n    dsPositionenMengenberechnungID.Size := 38;\r\n    dsPositionenTaraID.SetParentComponent(dsPositionen);\r\n    dsPositionenTaraID.Name := 'dsPositionenTaraID';\r\n    dsPositionenTaraID.FieldName := 'TaraID';\r\n    dsPositionenTaraID.Size := 38;\r\n    dsPositionenTara.SetParentComponent(dsPositionen);\r\n    dsPositionenTara.Name := 'dsPositionenTara';\r\n    dsPositionenTara.FieldName := 'Tara';\r\n    dsPositionenBruttoGewicht.SetParentComponent(dsPositionen);\r\n    dsPositionenBruttoGewicht.Name := 'dsPositionenBruttoGewicht';\r\n    dsPositionenBruttoGewicht.FieldName := 'BruttoGewicht';\r\n    dsPositionenAussenflaeche.SetParentComponent(dsPositionen);\r\n    dsPositionenAussenflaeche.Name := 'dsPositionenAussenflaeche';\r\n    dsPositionenAussenflaeche.FieldName := 'Aussenflaeche';\r\n    dsPositionenLadeort.SetParentComponent(dsPositionen);\r\n    dsPositionenLadeort.Name := 'dsPositionenLadeort';\r\n    dsPositionenLadeort.FieldName := 'Ladeort';\r\n    dsPositionenLadeort.Size := 50;\r\n    dsPositionenSeitenumbruch.SetParentComponent(dsPositionen);\r\n    dsPositionenSeitenumbruch.Name := 'dsPositionenSeitenumbruch';\r\n    dsPositionenSeitenumbruch.FieldName := 'Seitenumbruch';\r\n    dsPositionenPlanerFarbe.SetParentComponent(dsPositionen);\r\n    dsPositionenPlanerFarbe.Name := 'dsPositionenPlanerFarbe';\r\n    dsPositionenPlanerFarbe.FieldName := 'PlanerFarbe';\r\n    dsPositionenMWStKey.SetParentComponent(dsPositionen);\r\n    dsPositionenMWStKey.Name := 'dsPositionenMWStKey';\r\n    dsPositionenMWStKey.FieldName := 'MWStKey';\r\n    dsPositionenZSnachPos.SetParentComponent(dsPositionen);\r\n    dsPositionenZSnachPos.Name := 'dsPositionenZSnachPos';\r\n    dsPositionenZSnachPos.FieldName := 'ZSnachPos';\r\n    dsPositionenLieferzeit.SetParentComponent(dsPositionen);\r\n    dsPositionenLieferzeit.Name := 'dsPositionenLieferzeit';\r\n    dsPositionenLieferzeit.FieldName := 'Lieferzeit';\r\n    dsPositionenLieferzeit.Size := 50;\r\n    dsPositionenPreisVorRabattWHG.SetParentComponent(dsPositionen);\r\n    dsPositionenPreisVorRabattWHG.Name := 'dsPositionenPreisVorRabattWHG';\r\n    dsPositionenPreisVorRabattWHG.FieldName := 'PreisVorRabattWHG';\r\n    dsPositionenReferenzKalkulation.SetParentComponent(dsPositionen);\r\n    dsPositionenReferenzKalkulation.Name := 'dsPositionenReferenzKalkulation';\r\n    dsPositionenReferenzKalkulation.FieldName := 'ReferenzKalkulation';\r\n    dsPositionenReferenzKalkulation.Size := 10;\r\n    dsPositionenPKey.SetParentComponent(dsPositionen);\r\n    dsPositionenPKey.Name := 'dsPositionenPKey';\r\n    dsPositionenPKey.FieldName := 'PKey';\r\n    dsPositionenAuftragsnummer.SetParentComponent(dsPositionen);\r\n    dsPositionenAuftragsnummer.Name := 'dsPositionenAuftragsnummer';\r\n    dsPositionenAuftragsnummer.FieldName := 'Auftragsnummer';\r\n    dsPositionenlwbID.SetParentComponent(dsPositionen);\r\n    dsPositionenlwbID.Name := 'dsPositionenlwbID';\r\n    dsPositionenlwbID.FieldName := 'lwbID';\r\n    dsPositionenlwbID.Size := 38;\r\n    dsPositionenBelegdatum.SetParentComponent(dsPositionen);\r\n    dsPositionenBelegdatum.Name := 'dsPositionenBelegdatum';\r\n    dsPositionenBelegdatum.FieldName := 'Belegdatum';\r\n    dsPositionenWarenkontrollnummern.SetParentComponent(dsPositionen);\r\n    dsPositionenWarenkontrollnummern.Name := 'dsPositionenWarenkontrollnummern';\r\n    dsPositionenWarenkontrollnummern.FieldName := 'Warenkontrollnummern';\r\n    dsPositionenWarenkontrollnummern.Size := 255;\r\n    dsPositionenVolumen.SetParentComponent(dsPositionen);\r\n    dsPositionenVolumen.Name := 'dsPositionenVolumen';\r\n    dsPositionenVolumen.FieldName := 'Volumen';\r\n    dsPositionenPosVolumen.SetParentComponent(dsPositionen);\r\n    dsPositionenPosVolumen.Name := 'dsPositionenPosVolumen';\r\n    dsPositionenPosVolumen.FieldName := 'PosVolumen';\r\n    dsPositionenArtikelAttribute.SetParentComponent(dsPositionen);\r\n    dsPositionenArtikelAttribute.Name := 'dsPositionenArtikelAttribute';\r\n    dsPositionenArtikelAttribute.FieldName := 'ArtikelAttribute';\r\n    dsPositionenArtikelAttribute.Size := 255;\r\n    dsPositionenMonteurP.SetParentComponent(dsPositionen);\r\n    dsPositionenMonteurP.Name := 'dsPositionenMonteurP';\r\n    dsPositionenMonteurP.FieldName := 'MonteurP';\r\n    dsPositionenArbeitszeitDatum.SetParentComponent(dsPositionen);\r\n    dsPositionenArbeitszeitDatum.Name := 'dsPositionenArbeitszeitDatum';\r\n    dsPositionenArbeitszeitDatum.FieldName := 'ArbeitszeitDatum';\r\n    dsPositionenArbeitszeitVON.SetParentComponent(dsPositionen);\r\n    dsPositionenArbeitszeitVON.Name := 'dsPositionenArbeitszeitVON';\r\n    dsPositionenArbeitszeitVON.FieldName := 'ArbeitszeitVON';\r\n    dsPositionenArbeitszeitVON.DisplayFormat := 'hh:mm';\r\n    dsPositionenArbeitszeitBIS.SetParentComponent(dsPositionen);\r\n    dsPositionenArbeitszeitBIS.Name := 'dsPositionenArbeitszeitBIS';\r\n    dsPositionenArbeitszeitBIS.FieldName := 'ArbeitszeitBIS';\r\n    dsPositionenArbeitszeitBIS.DisplayFormat := 'hh:mm';\r\n    dsPositionenArtikelnummerArtikelnummer.SetParentComponent(dsPositionen);\r\n    dsPositionenArtikelnummerArtikelnummer.Name := 'dsPositionenArtikelnummerArtikelnummer';\r\n    dsPositionenArtikelnummerArtikelnummer.FieldName := 'Artikelnummer.Artikelnummer';\r\n    dsPositionenArtikelnummerArtikelnummer.Size := 25;\r\n    dsPositionenArtikelnummerArbeitszeit.SetParentComponent(dsPositionen);\r\n    dsPositionenArtikelnummerArbeitszeit.Name := 'dsPositionenArtikelnummerArbeitszeit';\r\n    dsPositionenArtikelnummerArbeitszeit.FieldName := 'Artikelnummer.Arbeitszeit';\r\n    sourcePositionen.SetParentComponent(Self);\r\n    sourcePositionen.Name := 'sourcePositionen';\r\n    sourcePositionen.DataSet := dsPositionen;\r\n    sourcePositionen.Left := 136;\r\n    sourcePositionen.Top := 128;\r\n    dsUnterschriften.SetParentComponent(Self);\r\n    dsUnterschriften.Name := 'dsUnterschriften';\r\n    dsUnterschriften.AfterApplyUpdates := dsUnterschriftenAfterApplyUpdates;\r\n    dsUnterschriften.AfterOpen := dsUnterschriftenAfterOpen;\r\n    dsUnterschriften.AfterPost := dsUnterschriftenAfterPost;\r\n    dsUnterschriften.EntitySetName := 'AuftragUnterschriften';\r\n    dsUnterschriften.Connection := DM2.XDataWebConnection1;\r\n    dsUnterschriften.Left := 80;\r\n    dsUnterschriften.Top := 176;\r\n    dsUnterschriftenNummerkomplett.SetParentComponent(dsUnterschriften);\r\n    dsUnterschriftenNummerkomplett.Name := 'dsUnterschriftenNummerkomplett';\r\n    dsUnterschriftenNummerkomplett.FieldName := 'Nummerkomplett';\r\n    dsUnterschriftenNummerkomplett.Required := True;\r\n    dsUnterschriftenNummerkomplett.Size := 10;\r\n    dsUnterschriftenDatum.SetParentComponent(dsUnterschriften);\r\n    dsUnterschriftenDatum.Name := 'dsUnterschriftenDatum';\r\n    dsUnterschriftenDatum.FieldName := 'Datum';\r\n    dsUnterschriftenUnterschriftMonteur.SetParentComponent(dsUnterschriften);\r\n    dsUnterschriftenUnterschriftMonteur.Name := 'dsUnterschriftenUnterschriftMonteur';\r\n    dsUnterschriftenUnterschriftMonteur.FieldName := 'UnterschriftMonteur';\r\n    dsUnterschriftenUnterschriftKunde.SetParentComponent(dsUnterschriften);\r\n    dsUnterschriftenUnterschriftKunde.Name := 'dsUnterschriftenUnterschriftKunde';\r\n    dsUnterschriftenUnterschriftKunde.FieldName := 'UnterschriftKunde';\r\n    dsUnterschriftenUnterschriftMonteurText.SetParentComponent(dsUnterschriften);\r\n    dsUnterschriftenUnterschriftMonteurText.Name := 'dsUnterschriftenUnterschriftMonteurText';\r\n    dsUnterschriftenUnterschriftMonteurText.FieldName := 'UnterschriftMonteurText';\r\n    dsUnterschriftenUnterschriftMonteurText.Size := 255;\r\n    dsUnterschriftenUnterschriftKundeText.SetParentComponent(dsUnterschriften);\r\n    dsUnterschriftenUnterschriftKundeText.Name := 'dsUnterschriftenUnterschriftKundeText';\r\n    dsUnterschriftenUnterschriftKundeText.FieldName := 'UnterschriftKundeText';\r\n    dsUnterschriftenUnterschriftKundeText.Size := 255;\r\n    sourceUnterschriften.SetParentComponent(Self);\r\n    sourceUnterschriften.Name := 'sourceUnterschriften';\r\n    sourceUnterschriften.DataSet := dsUnterschriften;\r\n    sourceUnterschriften.Left := 16;\r\n    sourceUnterschriften.Top := 180;\r\n    dsSumBeleg.SetParentComponent(Self);\r\n    dsSumBeleg.Name := 'dsSumBeleg';\r\n    dsSumBeleg.AfterOpen := dsSumBelegAfterOpen;\r\n    dsSumBeleg.EntitySetName := 'PositionenAuftrag';\r\n    dsSumBeleg.Connection := DM2.XDataWebConnection1;\r\n    dsSumBeleg.Left := 136;\r\n    dsSumBeleg.Top := 176;\r\n    dsSumBelegPosVolumen.SetParentComponent(dsSumBeleg);\r\n    dsSumBelegPosVolumen.Name := 'dsSumBelegPosVolumen';\r\n    dsSumBelegPosVolumen.FieldName := 'PosVolumen';\r\n    dsSumBelegBruttoGewicht.SetParentComponent(dsSumBeleg);\r\n    dsSumBelegBruttoGewicht.Name := 'dsSumBelegBruttoGewicht';\r\n    dsSumBelegBruttoGewicht.FieldName := 'BruttoGewicht';\r\n    dsSumBelegMehrwertsteuersatz.SetParentComponent(dsSumBeleg);\r\n    dsSumBelegMehrwertsteuersatz.Name := 'dsSumBelegMehrwertsteuersatz';\r\n    dsSumBelegMehrwertsteuersatz.FieldName := 'Mehrwertsteuersatz';\r\n    dsSumBelegEndpreis.SetParentComponent(dsSumBeleg);\r\n    dsSumBelegEndpreis.Name := 'dsSumBelegEndpreis';\r\n    dsSumBelegEndpreis.FieldName := 'Endpreis';\r\n    dsSumBelegPosMWST.SetParentComponent(dsSumBeleg);\r\n    dsSumBelegPosMWST.Name := 'dsSumBelegPosMWST';\r\n    dsSumBelegPosMWST.FieldName := 'PosMWST';\r\n    dsSumBelegBruttoEndpreis.SetParentComponent(dsSumBeleg);\r\n    dsSumBelegBruttoEndpreis.Name := 'dsSumBelegBruttoEndpreis';\r\n    dsSumBelegBruttoEndpreis.FieldName := 'BruttoEndpreis';\r\n    dsSumBelegEndpreis_EK.SetParentComponent(dsSumBeleg);\r\n    dsSumBelegEndpreis_EK.Name := 'dsSumBelegEndpreis_EK';\r\n    dsSumBelegEndpreis_EK.FieldName := 'Endpreis_EK';\r\n    dsSumBelegPKZ.SetParentComponent(dsSumBeleg);\r\n    dsSumBelegPKZ.Name := 'dsSumBelegPKZ';\r\n    dsSumBelegPKZ.FieldName := 'PKZ';\r\n    WClient.SetParentComponent(Self);\r\n    WClient.Name := 'WClient';\r\n    WClient.Connection := DM2.XDataWebConnection1;\r\n    WClient.Left := 80;\r\n    WClient.Top := 8;\r\n    WebHttpRequest1.SetParentComponent(Self);\r\n    WebHttpRequest1.Name := 'WebHttpRequest1';\r\n    WebHttpRequest1.Headers.BeginUpdate;\r\n    try\r\n      WebHttpRequest1.Headers.Clear;\r\n      WebHttpRequest1.Headers.Add('Cache-Control=no-cache, no-store, must-revalidate');\r\n    finally\r\n      WebHttpRequest1.Headers.EndUpdate;\r\n    end;\r\n    WebHttpRequest1.Left := 16;\r\n    WebHttpRequest1.Top := 65;\r\n    dsObjekt.SetParentComponent(Self);\r\n    dsObjekt.Name := 'dsObjekt';\r\n    dsObjekt.AfterOpen := dsObjektAfterOpen;\r\n    dsObjekt.EntitySetName := 'Objekte';\r\n    dsObjekt.Connection := DM2.XDataWebConnection1;\r\n    dsObjekt.Left := 16;\r\n    dsObjekt.Top := 7;\r\n    dsObjektObjektReferenz.SetParentComponent(dsObjekt);\r\n    dsObjektObjektReferenz.Name := 'dsObjektObjektReferenz';\r\n    dsObjektObjektReferenz.FieldName := 'ObjektReferenz';\r\n    dsObjektObjektReferenz.Required := True;\r\n    dsObjektObjektReferenz.Size := 13;\r\n    dsObjektKurzbezeichnung.SetParentComponent(dsObjekt);\r\n    dsObjektKurzbezeichnung.Name := 'dsObjektKurzbezeichnung';\r\n    dsObjektKurzbezeichnung.FieldName := 'Kurzbezeichnung';\r\n    dsObjektKurzbezeichnung.Size := 25;\r\n    dsObjektObjektnummer.SetParentComponent(dsObjekt);\r\n    dsObjektObjektnummer.Name := 'dsObjektObjektnummer';\r\n    dsObjektObjektnummer.FieldName := 'Objektnummer';\r\n    dsObjektObjektnummer.Size := 25;\r\n    dsDateien.SetParentComponent(Self);\r\n    dsDateien.Name := 'dsDateien';\r\n    dsDateien.AfterOpen := dsDateienAfterOpen;\r\n    dsDateien.EntitySetName := 'DokumenteDateien';\r\n    dsDateien.Connection := DM2.XDataWebConnection1;\r\n    dsDateien.Left := 136;\r\n    dsDateien.Top := 360;\r\n    dsDateienID.SetParentComponent(dsDateien);\r\n    dsDateienID.Name := 'dsDateienID';\r\n    dsDateienID.FieldName := 'ID';\r\n    dsDateienID.Required := True;\r\n    dsDateienDatumUhrzeit.SetParentComponent(dsDateien);\r\n    dsDateienDatumUhrzeit.Name := 'dsDateienDatumUhrzeit';\r\n    dsDateienDatumUhrzeit.FieldName := 'DatumUhrzeit';\r\n    dsDateienDatumUhrzeit.Required := True;\r\n    dsDateienDateiBetreff.SetParentComponent(dsDateien);\r\n    dsDateienDateiBetreff.Name := 'dsDateienDateiBetreff';\r\n    dsDateienDateiBetreff.FieldName := 'DateiBetreff';\r\n    dsDateienDateiBetreff.Size := 50;\r\n    dsDateienNummerkomplett.SetParentComponent(dsDateien);\r\n    dsDateienNummerkomplett.Name := 'dsDateienNummerkomplett';\r\n    dsDateienNummerkomplett.FieldName := 'Nummerkomplett';\r\n    dsDateienNummerkomplett.Size := 10;\r\n  finally\r\n    TC.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    btnUnterschreiben.AfterLoadDFMValues;\r\n    btnPDF.AfterLoadDFMValues;\r\n    btnTermine.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    PTC.AfterLoadDFMValues;\r\n    btnSpeichern.AfterLoadDFMValues;\r\n    pickLieferdatum.AfterLoadDFMValues;\r\n    edtAuftragsbezeichnung.AfterLoadDFMValues;\r\n    edtLiefertermin.AfterLoadDFMValues;\r\n    btnNeuePosition.AfterLoadDFMValues;\r\n    Container4.AfterLoadDFMValues;\r\n    webDBComboAuftragStatus.AfterLoadDFMValues;\r\n    belegComboMonteur.AfterLoadDFMValues;\r\n    belegMemoServiceBemerkung.AfterLoadDFMValues;\r\n    btnPDFSenden.AfterLoadDFMValues;\r\n    edtEmail.AfterLoadDFMValues;\r\n    btnPZE_A.AfterLoadDFMValues;\r\n    btnPZE_O.AfterLoadDFMValues;\r\n    btnDateien.AfterLoadDFMValues;\r\n    btnDateienObjekt.AfterLoadDFMValues;\r\n    btnDateienKontakt.AfterLoadDFMValues;\r\n    dsBeleg.AfterLoadDFMValues;\r\n    dsBelegKundennummer.AfterLoadDFMValues;\r\n    dsBelegNummerkomplett.AfterLoadDFMValues;\r\n    dsBelegReferenzAngebot.AfterLoadDFMValues;\r\n    dsBelegReferenzLieferschein.AfterLoadDFMValues;\r\n    dsBelegReferenzRechnung.AfterLoadDFMValues;\r\n    dsBelegDatum.AfterLoadDFMValues;\r\n    dsBelegJahr.AfterLoadDFMValues;\r\n    dsBelegKalenderwoche.AfterLoadDFMValues;\r\n    dsBelegNachname.AfterLoadDFMValues;\r\n    dsBelegVorname.AfterLoadDFMValues;\r\n    dsBelegPostleitzahl.AfterLoadDFMValues;\r\n    dsBelegOrt.AfterLoadDFMValues;\r\n    dsBelegLaenderkuerzel.AfterLoadDFMValues;\r\n    dsBelegLand.AfterLoadDFMValues;\r\n    dsBelegBriefanrede1.AfterLoadDFMValues;\r\n    dsBelegBriefanrede2.AfterLoadDFMValues;\r\n    dsBelegEMail.AfterLoadDFMValues;\r\n    dsBelegAdresseBild.AfterLoadDFMValues;\r\n    dsBelegLieferanschriftBild.AfterLoadDFMValues;\r\n    dsBelegZahlungsbedingung.AfterLoadDFMValues;\r\n    dsBelegZahlungsbedingungText.AfterLoadDFMValues;\r\n    dsBelegAuftragsbezeichnung.AfterLoadDFMValues;\r\n    dsBelegAuftragnummerKunde.AfterLoadDFMValues;\r\n    dsBelegBestelldatumKunde.AfterLoadDFMValues;\r\n    dsBelegILN.AfterLoadDFMValues;\r\n    dsBelegKopftext.AfterLoadDFMValues;\r\n    dsBelegSchlussbemerkung.AfterLoadDFMValues;\r\n    dsBelegGruss.AfterLoadDFMValues;\r\n    dsBelegMehrwertsteuersatz1.AfterLoadDFMValues;\r\n    dsBelegMehrwertsteuersatz2.AfterLoadDFMValues;\r\n    dsBelegNettosumme01.AfterLoadDFMValues;\r\n    dsBelegNettosumme02.AfterLoadDFMValues;\r\n    dsBelegNettosumme.AfterLoadDFMValues;\r\n    dsBelegMehrwertsteuer01.AfterLoadDFMValues;\r\n    dsBelegMehrwertsteuer02.AfterLoadDFMValues;\r\n    dsBelegMehrwertsteuer.AfterLoadDFMValues;\r\n    dsBelegBruttosumme.AfterLoadDFMValues;\r\n    dsBelegVersanddatum.AfterLoadDFMValues;\r\n    dsBelegSkontosatz.AfterLoadDFMValues;\r\n    dsBelegNettosummeEK.AfterLoadDFMValues;\r\n    dsBelegNettoMarge.AfterLoadDFMValues;\r\n    dsBelegSchreibzeichen.AfterLoadDFMValues;\r\n    dsBelegUnterzeichner.AfterLoadDFMValues;\r\n    dsBelegTelefonMA.AfterLoadDFMValues;\r\n    dsBelegEmailMA.AfterLoadDFMValues;\r\n    dsBelegUSTID.AfterLoadDFMValues;\r\n    dsBelegUmsatzsteuerausweis.AfterLoadDFMValues;\r\n    dsBeleggebucht.AfterLoadDFMValues;\r\n    dsBelegLieferdatum.AfterLoadDFMValues;\r\n    dsBelegTransportbedingung.AfterLoadDFMValues;\r\n    dsBelegMehrwertsteuersatz3.AfterLoadDFMValues;\r\n    dsBelegMehrwertsteuer03.AfterLoadDFMValues;\r\n    dsBelegNettosumme03.AfterLoadDFMValues;\r\n    dsBelegRundungsDifferenz.AfterLoadDFMValues;\r\n    dsBelegEmailText.AfterLoadDFMValues;\r\n    dsBelegAuftragerledigt.AfterLoadDFMValues;\r\n    dsBelegRabattstufe.AfterLoadDFMValues;\r\n    dsBelegKFZKennzeichen.AfterLoadDFMValues;\r\n    dsBelegFahrgestellnummer.AfterLoadDFMValues;\r\n    dsBelegKFZHersteller.AfterLoadDFMValues;\r\n    dsBelegErstzulassungsdatum.AfterLoadDFMValues;\r\n    dsBelegKMStand.AfterLoadDFMValues;\r\n    dsBelegKFZType.AfterLoadDFMValues;\r\n    dsBelegInspektionsdatum.AfterLoadDFMValues;\r\n    dsBelegDebitorennummer.AfterLoadDFMValues;\r\n    dsBelegKostentraeger.AfterLoadDFMValues;\r\n    dsBelegRabattsatz.AfterLoadDFMValues;\r\n    dsBelegObjektReferenz.AfterLoadDFMValues;\r\n    dsBelegBank.AfterLoadDFMValues;\r\n    dsBelegBankleitzahl.AfterLoadDFMValues;\r\n    dsBelegKontonummer.AfterLoadDFMValues;\r\n    dsBelegKontoinhaber.AfterLoadDFMValues;\r\n    dsBelegTelefaxnummer.AfterLoadDFMValues;\r\n    dsBelegDatumNeu.AfterLoadDFMValues;\r\n    dsBelegDatumgeaendert.AfterLoadDFMValues;\r\n    dsBelegObjektnummer.AfterLoadDFMValues;\r\n    dsBelegLiefertermin.AfterLoadDFMValues;\r\n    dsBelegEmailversand.AfterLoadDFMValues;\r\n    dsBelegTelefonnummer.AfterLoadDFMValues;\r\n    dsBelegMobilTelefon.AfterLoadDFMValues;\r\n    dsBelegAuftragFax.AfterLoadDFMValues;\r\n    dsBelegREDatum.AfterLoadDFMValues;\r\n    dsBelegBenutzerNeu.AfterLoadDFMValues;\r\n    dsBelegBenutzerGeaendert.AfterLoadDFMValues;\r\n    dsBelegBerechnungBrutto.AfterLoadDFMValues;\r\n    dsBelegBruttosumme01.AfterLoadDFMValues;\r\n    dsBelegBruttosumme02.AfterLoadDFMValues;\r\n    dsBelegBruttosumme03.AfterLoadDFMValues;\r\n    dsBelegNotiz.AfterLoadDFMValues;\r\n    dsBelegMargeProzent.AfterLoadDFMValues;\r\n    dsBelegWarenkreditgesperrt.AfterLoadDFMValues;\r\n    dsBelegBelegsprache.AfterLoadDFMValues;\r\n    dsBelegDuplicate.AfterLoadDFMValues;\r\n    dsBelegperEmail.AfterLoadDFMValues;\r\n    dsBelegAnsprechpartner.AfterLoadDFMValues;\r\n    dsBelegKundennummerFremd.AfterLoadDFMValues;\r\n    dsBelegProtokoll.AfterLoadDFMValues;\r\n    dsBelegVerleihauftrag.AfterLoadDFMValues;\r\n    dsBelegVerleihVon.AfterLoadDFMValues;\r\n    dsBelegVerleihBis.AfterLoadDFMValues;\r\n    dsBelegAuftragGenehmigt.AfterLoadDFMValues;\r\n    dsBeleggesperrt.AfterLoadDFMValues;\r\n    dsBelegVerleihvonText.AfterLoadDFMValues;\r\n    dsBelegVerleihbisText.AfterLoadDFMValues;\r\n    dsBelegDruckWHG.AfterLoadDFMValues;\r\n    dsBelegDruckWHGKurs.AfterLoadDFMValues;\r\n    dsBelegProzentsatzZusatzposition.AfterLoadDFMValues;\r\n    dsBelegTextZusatzposition.AfterLoadDFMValues;\r\n    dsBelegTextzusatzBeschreibung.AfterLoadDFMValues;\r\n    dsBelegLayoutname.AfterLoadDFMValues;\r\n    dsBelegGesamtgewicht.AfterLoadDFMValues;\r\n    dsBelegBetragZusatzposition.AfterLoadDFMValues;\r\n    dsBelegReferenzBestellung.AfterLoadDFMValues;\r\n    dsBelegTermin1.AfterLoadDFMValues;\r\n    dsBelegTermin2.AfterLoadDFMValues;\r\n    dsBelegZielkontaktnummer.AfterLoadDFMValues;\r\n    dsBelegZielkontaktname.AfterLoadDFMValues;\r\n    dsBelegBilddatei1.AfterLoadDFMValues;\r\n    dsBelegBilddatei2.AfterLoadDFMValues;\r\n    dsBelegZielkontaktnummer2.AfterLoadDFMValues;\r\n    dsBelegZielkontaktname2.AfterLoadDFMValues;\r\n    dsBelegbestaetigt.AfterLoadDFMValues;\r\n    dsBelegZielkontaktnummer3.AfterLoadDFMValues;\r\n    dsBelegZielkontaktname3.AfterLoadDFMValues;\r\n    dsBelegTermin3.AfterLoadDFMValues;\r\n    dsBelegTermin4.AfterLoadDFMValues;\r\n    dsBelegMuster.AfterLoadDFMValues;\r\n    dsBelegKW.AfterLoadDFMValues;\r\n    dsBelegDatenlink.AfterLoadDFMValues;\r\n    dsBelegMehrwertsteuersatz4.AfterLoadDFMValues;\r\n    dsBelegMehrwertsteuersatz5.AfterLoadDFMValues;\r\n    dsBelegMehrwertsteuersatz6.AfterLoadDFMValues;\r\n    dsBelegBesteuerungKey.AfterLoadDFMValues;\r\n    dsBelegVertreterMatchcode.AfterLoadDFMValues;\r\n    dsBelegVerfasser.AfterLoadDFMValues;\r\n    dsBelegLieferadresseID.AfterLoadDFMValues;\r\n    dsBelegAuftragStatus.AfterLoadDFMValues;\r\n    dsBelegMonatJahr.AfterLoadDFMValues;\r\n    dsBelegBelegvariante.AfterLoadDFMValues;\r\n    dsBelegProduktionsfreigabe.AfterLoadDFMValues;\r\n    dsBelegReferenzRahmenAuftrag.AfterLoadDFMValues;\r\n    dsBelegDatumRahmenAuftrag.AfterLoadDFMValues;\r\n    dsBelegFahrzeugID.AfterLoadDFMValues;\r\n    dsBelegAuslieferungKW.AfterLoadDFMValues;\r\n    dsBelegBereitstellungDatum.AfterLoadDFMValues;\r\n    dsBelegVTUID.AfterLoadDFMValues;\r\n    dsBelegLieferanschriftDaten.AfterLoadDFMValues;\r\n    dsBelegGesamtVolumen.AfterLoadDFMValues;\r\n    dsBelegBelegPKey.AfterLoadDFMValues;\r\n    dsBelegDruckParameter.AfterLoadDFMValues;\r\n    dsBelegReferenzService.AfterLoadDFMValues;\r\n    dsBelegZusatzDaten.AfterLoadDFMValues;\r\n    dsBelegStandPDF.AfterLoadDFMValues;\r\n    dsBelegPaketdienst.AfterLoadDFMValues;\r\n    dsBelegMonteur.AfterLoadDFMValues;\r\n    dsBelegKundennummerKundennummer.AfterLoadDFMValues;\r\n    dsBelegServiceBemerkung.AfterLoadDFMValues;\r\n    SourceBeleg.AfterLoadDFMValues;\r\n    dsPositionen.AfterLoadDFMValues;\r\n    dsPositionenArtikelnummer.AfterLoadDFMValues;\r\n    dsPositionenNummerkomplett.AfterLoadDFMValues;\r\n    dsPositionenID.AfterLoadDFMValues;\r\n    dsPositionenPosNr.AfterLoadDFMValues;\r\n    dsPositionenPosUNr.AfterLoadDFMValues;\r\n    dsPositionenSumme.AfterLoadDFMValues;\r\n    dsPositionenArtikelueberschrift.AfterLoadDFMValues;\r\n    dsPositionenArtikelbeschreibung.AfterLoadDFMValues;\r\n    dsPositionenMenge.AfterLoadDFMValues;\r\n    dsPositionenArtderMenge.AfterLoadDFMValues;\r\n    dsPositionenVerkaufspreis.AfterLoadDFMValues;\r\n    dsPositionenEinkaufspreis.AfterLoadDFMValues;\r\n    dsPositionenSeriennummer.AfterLoadDFMValues;\r\n    dsPositionenWarengruppe.AfterLoadDFMValues;\r\n    dsPositionenWarenuntergruppe.AfterLoadDFMValues;\r\n    dsPositionenArtikelnummerKunde.AfterLoadDFMValues;\r\n    dsPositionenLieferant.AfterLoadDFMValues;\r\n    dsPositionenGewicht.AfterLoadDFMValues;\r\n    dsPositionenLaenge.AfterLoadDFMValues;\r\n    dsPositionenBreite.AfterLoadDFMValues;\r\n    dsPositionenHoehe.AfterLoadDFMValues;\r\n    dsPositionenMehrwertsteuersatz.AfterLoadDFMValues;\r\n    dsPositionenEndpreis.AfterLoadDFMValues;\r\n    dsPositionenPosMWST.AfterLoadDFMValues;\r\n    dsPositionenBruttoEndpreis.AfterLoadDFMValues;\r\n    dsPositionenEndpreis_EK.AfterLoadDFMValues;\r\n    dsPositionenRabattsatz.AfterLoadDFMValues;\r\n    dsPositionenPreisvorRabatt.AfterLoadDFMValues;\r\n    dsPositionenPKZ.AfterLoadDFMValues;\r\n    dsPositionenTextfrei10.AfterLoadDFMValues;\r\n    dsPositionenTextfrei20.AfterLoadDFMValues;\r\n    dsPositionenProduktionAbgeschlossen.AfterLoadDFMValues;\r\n    dsPositionenEinzelpreisBrutto.AfterLoadDFMValues;\r\n    dsPositionenPosMarge.AfterLoadDFMValues;\r\n    dsPositionenPosMargeProzent.AfterLoadDFMValues;\r\n    dsPositionenBereitsGeliefert.AfterLoadDFMValues;\r\n    dsPositionenausliefern.AfterLoadDFMValues;\r\n    dsPositionenBestellungErledigt.AfterLoadDFMValues;\r\n    dsPositionenLager.AfterLoadDFMValues;\r\n    dsPositionenbestellen.AfterLoadDFMValues;\r\n    dsPositionenWarenbestand.AfterLoadDFMValues;\r\n    dsPositionenArtikelbeschreibungRTF.AfterLoadDFMValues;\r\n    dsPositionenQuellartikel.AfterLoadDFMValues;\r\n    dsPositionenArtikelnummerWB.AfterLoadDFMValues;\r\n    dsPositionenPreisanteilNetto.AfterLoadDFMValues;\r\n    dsPositionenSetHPos.AfterLoadDFMValues;\r\n    dsPositionenSetUPos.AfterLoadDFMValues;\r\n    dsPositionenProvisionssatz.AfterLoadDFMValues;\r\n    dsPositionenProvisionsbetrag.AfterLoadDFMValues;\r\n    dsPositionenArtikelsprache.AfterLoadDFMValues;\r\n    dsPositionenEKvom.AfterLoadDFMValues;\r\n    dsPositionenMengenberechnungID.AfterLoadDFMValues;\r\n    dsPositionenTaraID.AfterLoadDFMValues;\r\n    dsPositionenTara.AfterLoadDFMValues;\r\n    dsPositionenBruttoGewicht.AfterLoadDFMValues;\r\n    dsPositionenAussenflaeche.AfterLoadDFMValues;\r\n    dsPositionenLadeort.AfterLoadDFMValues;\r\n    dsPositionenSeitenumbruch.AfterLoadDFMValues;\r\n    dsPositionenPlanerFarbe.AfterLoadDFMValues;\r\n    dsPositionenMWStKey.AfterLoadDFMValues;\r\n    dsPositionenZSnachPos.AfterLoadDFMValues;\r\n    dsPositionenLieferzeit.AfterLoadDFMValues;\r\n    dsPositionenPreisVorRabattWHG.AfterLoadDFMValues;\r\n    dsPositionenReferenzKalkulation.AfterLoadDFMValues;\r\n    dsPositionenPKey.AfterLoadDFMValues;\r\n    dsPositionenAuftragsnummer.AfterLoadDFMValues;\r\n    dsPositionenlwbID.AfterLoadDFMValues;\r\n    dsPositionenBelegdatum.AfterLoadDFMValues;\r\n    dsPositionenWarenkontrollnummern.AfterLoadDFMValues;\r\n    dsPositionenVolumen.AfterLoadDFMValues;\r\n    dsPositionenPosVolumen.AfterLoadDFMValues;\r\n    dsPositionenArtikelAttribute.AfterLoadDFMValues;\r\n    dsPositionenMonteurP.AfterLoadDFMValues;\r\n    dsPositionenArbeitszeitDatum.AfterLoadDFMValues;\r\n    dsPositionenArbeitszeitVON.AfterLoadDFMValues;\r\n    dsPositionenArbeitszeitBIS.AfterLoadDFMValues;\r\n    dsPositionenArtikelnummerArtikelnummer.AfterLoadDFMValues;\r\n    dsPositionenArtikelnummerArbeitszeit.AfterLoadDFMValues;\r\n    sourcePositionen.AfterLoadDFMValues;\r\n    dsUnterschriften.AfterLoadDFMValues;\r\n    dsUnterschriftenNummerkomplett.AfterLoadDFMValues;\r\n    dsUnterschriftenDatum.AfterLoadDFMValues;\r\n    dsUnterschriftenUnterschriftMonteur.AfterLoadDFMValues;\r\n    dsUnterschriftenUnterschriftKunde.AfterLoadDFMValues;\r\n    dsUnterschriftenUnterschriftMonteurText.AfterLoadDFMValues;\r\n    dsUnterschriftenUnterschriftKundeText.AfterLoadDFMValues;\r\n    sourceUnterschriften.AfterLoadDFMValues;\r\n    dsSumBeleg.AfterLoadDFMValues;\r\n    dsSumBelegPosVolumen.AfterLoadDFMValues;\r\n    dsSumBelegBruttoGewicht.AfterLoadDFMValues;\r\n    dsSumBelegMehrwertsteuersatz.AfterLoadDFMValues;\r\n    dsSumBelegEndpreis.AfterLoadDFMValues;\r\n    dsSumBelegPosMWST.AfterLoadDFMValues;\r\n    dsSumBelegBruttoEndpreis.AfterLoadDFMValues;\r\n    dsSumBelegEndpreis_EK.AfterLoadDFMValues;\r\n    dsSumBelegPKZ.AfterLoadDFMValues;\r\n    WClient.AfterLoadDFMValues;\r\n    WebHttpRequest1.AfterLoadDFMValues;\r\n    dsObjekt.AfterLoadDFMValues;\r\n    dsObjektObjektReferenz.AfterLoadDFMValues;\r\n    dsObjektKurzbezeichnung.AfterLoadDFMValues;\r\n    dsObjektObjektnummer.AfterLoadDFMValues;\r\n    dsDateien.AfterLoadDFMValues;\r\n    dsDateienID.AfterLoadDFMValues;\r\n    dsDateienDatumUhrzeit.AfterLoadDFMValues;\r\n    dsDateienDateiBetreff.AfterLoadDFMValues;\r\n    dsDateienNummerkomplett.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit Unit2;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Modules, WEBLib.CDS, strutils,\r\n  XData.Web.Connection, WEBLib.REST, Data.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, WEBLib.DB, WEBLib.JSON, XData.Web.Client;\r\n\r\ntype\r\n  TDM2 = class(TDataModule)\r\n    XDataWebConnection1: TXDataWebConnection;\r\n    tableAuftragStatus: TXDataWebDataSet;\r\n    sourceAuftragStatus: TDataSource;\r\n    tableAuftragStatusAuftragStatus: TStringField;\r\n    tableSYSDAT: TXDataWebDataSet;\r\n    sourceSysdat: TDataSource;\r\n    tableSYSDATDBKEY: TStringField;\r\n    tableSYSDATNachname: TStringField;\r\n    tableSYSDATVorname: TStringField;\r\n    tableSYSDATNamenzeile2: TStringField;\r\n    tableSYSDATNamenzeile3: TStringField;\r\n    tableSYSDATStrasse: TStringField;\r\n    tableSYSDATPostleitzahl: TStringField;\r\n    tableSYSDATOrt: TStringField;\r\n    tableSYSDATLaenderkuerzel: TStringField;\r\n    tableSYSDATLand: TStringField;\r\n    tableSYSDATTelefonnummer: TStringField;\r\n    tableSYSDATTelefaxnummer: TStringField;\r\n    tableSYSDATMobiltelefon: TStringField;\r\n    tableSYSDATEmail: TStringField;\r\n    tableSYSDATCadiaKundennummer: TStringField;\r\n    queryMonteur: TXDataWebDataSet;\r\n    sourceMonteur: TDataSource;\r\n    queryMonteurPersonalnummer: TIntegerField;\r\n    queryMonteurNachname: TStringField;\r\n    queryMonteurVorname: TStringField;\r\n    queryMonteurSchreibzeichen: TStringField;\r\n    queryMonteurServicetechniker: TBooleanField;\r\n    tableMengenarten: TXDataWebDataSet;\r\n    sourceMengenarten: TDataSource;\r\n    tableMengenartenArtderMenge: TStringField;\r\n    tableMengenartenISO3: TStringField;\r\n    tableMengenartenMengenauswahl: TBooleanField;\r\n    tableMengenartenVGPauswahl: TBooleanField;\r\n    tableMengenartenUVPauswahl: TBooleanField;\r\n    tableMengenartenVKPDivisor: TFloatField;\r\n    tableSYSDATRundungIT: TBooleanField;\r\n    tableSYSDATNachkommastellen: TIntegerField;\r\n    queryMonteurPersonalGUID: TStringField;\r\n    WebHttpRequest2: THttpRequest;\r\n    WebHttpRequestLogbuch: THttpRequest;\r\n    WClientAbsenderzeile: TXDataWebClient;\r\n    tableSYSDATAbsenderzeile: TStringField;\r\n    queryMonteurFarbe: TIntegerField;\r\n    xdsPZEEinstellungen: TXDataWebDataSet;\r\n    xdsPZEEinstellungenZuordnungObjekt: TIntegerField;\r\n    xdsPZEEinstellungenZuordnungKontakt: TIntegerField;\r\n    xdsPZEEinstellungenZuordnungAuftrag: TIntegerField;\r\n    xdsPZEEinstellungenZuordnungProduktion: TIntegerField;\r\n    xdsPZEEinstellungenAuswahlNurKontaktnummer: TIntegerField;\r\n    xdsPZEEinstellungenPauseVorgabe: TIntegerField;\r\n    XDataWebDataSet1: TXDataWebDataSet;\r\n    procedure XDataWebConnection1Connect(Sender: TObject);\r\n    procedure tableAuftragStatusAfterOpen(DataSet: TDataSet);\r\n    procedure tableSYSDATAfterOpen(DataSet: TDataSet);\r\n    procedure queryMonteurAfterOpen(DataSet: TDataSet);\r\n    procedure tableMengenartenAfterOpen(DataSet: TDataSet);\r\n    procedure WebHttpRequest2Response(Sender: TObject; AResponse: string);\r\n    procedure XDataWebConnection1Request(Args: TXDataWebConnectionRequest);\r\n    procedure xdsPZEEinstellungenAfterOpen(DataSet: TDataSet);\r\n\r\n  public\r\n    function roundkfm(alterwert:double;kommastellen:integer):double;\r\n    function holevkpdivisor(Mengenart:string):double;\r\n    function checkrabattierung(Artikelnummer:string):boolean;\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  DM2: TDM2;\r\n  tempvgpdivisor:double;\r\n  frund:integer;\r\n\r\nimplementation\r\n  uses unit1,unit_Einzelauftrag;\r\n{%CLASSGROUP 'Vcl.Controls.TControl'}\r\n\r\n{$R *.dfm}\r\n\r\nprocedure TDM2.queryMonteurAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  xdspzeeinstellungen.load;\r\nend;\r\n\r\nfunction TDM2.roundkfm(alterwert:double;kommastellen:integer):double;\r\nvar\r\nfaktor:integer;\r\nneuerwert:double;\r\nbegin\r\n  result:=0;\r\n  neuerwert:=0;\r\n  if kommastellen=0 then faktor:=1;\r\n  if kommastellen=-1 then faktor:=10;\r\n  if kommastellen=-2 then faktor:=100;\r\n  if kommastellen=-3 then faktor:=1000;\r\n  if kommastellen=-4 then faktor:=10000;\r\n  if kommastellen=-5 then faktor:=100000;\r\n  if kommastellen=-6 then faktor:=1000000;\r\n  // wenn die zahl positiv ist\r\n  if alterwert>0 then neuerwert:=(alterwert*faktor + 0.5000001);\r\n  // wenn die zahl negativ ist\r\n  if alterwert<0 then neuerwert:=(alterwert*faktor - 0.5000001);\r\n  result:=int(neuerwert);\r\n  result:=result/faktor;\r\nend;\r\n\r\nfunction TDM2.holevkpdivisor(Mengenart:string):double;\r\nbegin\r\n  result:=1;\r\n  //dm2.tablemengenarten.Open;\r\n  if dm2.tablemengenarten.locate('ArtderMenge',Mengenart,[])=true then\r\n  begin\r\n     if dm2.tablemengenartenVKPDivisor.AsFloat<>0 then result:=dm2.tablemengenartenVKPDivisor.AsFloat;\r\n  end;\r\nend;\r\n\r\nfunction TDM2.checkrabattierung(Artikelnummer:string):boolean;\r\nbegin\r\n  result:=false;\r\n  {query.close;\r\n  query.sql.clear;\r\n  query.sql.append('select rabattierfaehig from artikel where artikelnummer='''+Artikelnummer+'''');\r\n  query.open;\r\n  if query.fieldbyname('rabattierfaehig').asboolean=true then result:=TRUE;\r\n  query.close;\r\n  }\r\nend;\r\n\r\nprocedure TDM2.tableAuftragStatusAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  tablesysdat.Load;\r\nend;\r\n\r\nprocedure TDM2.tableMengenartenAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  WebHttpRequest2.URL:='https://cadia-software.net/cadiaautoserver/xdata/InformationService/cwlizenzonly?Kundennummer='+tableSYSDATCadiaKundennummer.AsString+'&AppKey='+CadiaAppKeyServerLizenz;\r\n  WebHttpRequest2.Execute;\r\nend;\r\n\r\nprocedure TDM2.tableSYSDATAfterOpen(DataSet: TDataSet);\r\n  procedure OnResponse(Response:TXDataClientResponse);\r\n  var\r\n    mydownload:string;\r\n  begin\r\n    mydownload:=string(TJSObject(response.Result)['value']);\r\n    TextAbsenderzeile:=leftstr(mydownload,70);\r\n    queryMonteur.load;\r\n\r\n\r\n  end;\r\nbegin\r\n  CadiaKundennummer:=dm2.tableSYSDATCadiaKundennummer.AsString;\r\n  frund:=dm2.tablesysdatnachkommastellen.asinteger*-1;\r\n  WClientAbsenderzeile.RawInvoke('IServerService.RTFTOTEXT',[tableSYSDATAbsenderzeile.AsString],@OnResponse);\r\nend;\r\n\r\nprocedure TDM2.WebHttpRequest2Response(Sender: TObject; AResponse: string);\r\nvar\r\n  JS:TJSON;\r\n  JV:TJSONValue;\r\nbegin\r\n  JS:=TJSON.Create;\r\n  JV:=JS.Parse(AResponse);\r\n  if assigned(JV) and (JV IS TJSONObject) then\r\n  begin\r\n    if TJSONObject(JV).GetJSONValue('value')='OK' then LizenzOK:=true;\r\n    form1.labelonlinestatus.Caption:='Lizenz vorhanden: '+TJSONObject(JV).GetJSONValue('value');\r\n    form1.btnAnmelden.enabled:=LizenzOK;\r\n\r\n  end;\r\nend;\r\n\r\nprocedure TDM2.XDataWebConnection1Connect(Sender: TObject);\r\nbegin\r\n  tableAuftragStatus.Load;\r\nend;\r\n\r\nprocedure TDM2.XDataWebConnection1Request(Args: TXDataWebConnectionRequest);\r\nbegin\r\n  args.Request.Headers.SetValue('Authorization','Bearer ' + vToken);\r\nend;\r\n\r\nprocedure TDM2.xdsPZEEinstellungenAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  PZE_Objekt_erlaubt:=0;\r\n  PZE_Auftrag_erlaubt:=0;\r\n  if xdsPZEEinstellungenZuordnungObjekt.AsInteger=1 then PZE_Objekt_erlaubt:=1;\r\n  if xdsPZEEinstellungenZuordnungAuftrag.AsInteger=1 then PZE_Auftrag_erlaubt:=1;\r\n  tableMengenarten.Load;\r\nend;\r\n\r\nprocedure TDM2.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  XDataWebConnection1 := TXDataWebConnection.Create(Self);\r\n  tableAuftragStatus := TXDataWebDataSet.Create(Self);\r\n  tableAuftragStatusAuftragStatus := TStringField.Create(Self);\r\n  sourceAuftragStatus := TDataSource.Create(Self);\r\n  tableSYSDAT := TXDataWebDataSet.Create(Self);\r\n  tableSYSDATDBKEY := TStringField.Create(Self);\r\n  tableSYSDATNachname := TStringField.Create(Self);\r\n  tableSYSDATVorname := TStringField.Create(Self);\r\n  tableSYSDATNamenzeile2 := TStringField.Create(Self);\r\n  tableSYSDATNamenzeile3 := TStringField.Create(Self);\r\n  tableSYSDATStrasse := TStringField.Create(Self);\r\n  tableSYSDATPostleitzahl := TStringField.Create(Self);\r\n  tableSYSDATOrt := TStringField.Create(Self);\r\n  tableSYSDATLaenderkuerzel := TStringField.Create(Self);\r\n  tableSYSDATLand := TStringField.Create(Self);\r\n  tableSYSDATTelefonnummer := TStringField.Create(Self);\r\n  tableSYSDATTelefaxnummer := TStringField.Create(Self);\r\n  tableSYSDATMobiltelefon := TStringField.Create(Self);\r\n  tableSYSDATEmail := TStringField.Create(Self);\r\n  tableSYSDATCadiaKundennummer := TStringField.Create(Self);\r\n  tableSYSDATRundungIT := TBooleanField.Create(Self);\r\n  tableSYSDATNachkommastellen := TIntegerField.Create(Self);\r\n  tableSYSDATAbsenderzeile := TStringField.Create(Self);\r\n  sourceSysdat := TDataSource.Create(Self);\r\n  queryMonteur := TXDataWebDataSet.Create(Self);\r\n  queryMonteurPersonalnummer := TIntegerField.Create(Self);\r\n  queryMonteurNachname := TStringField.Create(Self);\r\n  queryMonteurVorname := TStringField.Create(Self);\r\n  queryMonteurSchreibzeichen := TStringField.Create(Self);\r\n  queryMonteurServicetechniker := TBooleanField.Create(Self);\r\n  queryMonteurPersonalGUID := TStringField.Create(Self);\r\n  queryMonteurFarbe := TIntegerField.Create(Self);\r\n  sourceMonteur := TDataSource.Create(Self);\r\n  tableMengenarten := TXDataWebDataSet.Create(Self);\r\n  tableMengenartenArtderMenge := TStringField.Create(Self);\r\n  tableMengenartenISO3 := TStringField.Create(Self);\r\n  tableMengenartenMengenauswahl := TBooleanField.Create(Self);\r\n  tableMengenartenVGPauswahl := TBooleanField.Create(Self);\r\n  tableMengenartenUVPauswahl := TBooleanField.Create(Self);\r\n  tableMengenartenVKPDivisor := TFloatField.Create(Self);\r\n  sourceMengenarten := TDataSource.Create(Self);\r\n  WebHttpRequest2 := THttpRequest.Create(Self);\r\n  WebHttpRequestLogbuch := THttpRequest.Create(Self);\r\n  WClientAbsenderzeile := TXDataWebClient.Create(Self);\r\n  xdsPZEEinstellungen := TXDataWebDataSet.Create(Self);\r\n  xdsPZEEinstellungenZuordnungObjekt := TIntegerField.Create(Self);\r\n  xdsPZEEinstellungenZuordnungKontakt := TIntegerField.Create(Self);\r\n  xdsPZEEinstellungenZuordnungAuftrag := TIntegerField.Create(Self);\r\n  xdsPZEEinstellungenZuordnungProduktion := TIntegerField.Create(Self);\r\n  xdsPZEEinstellungenAuswahlNurKontaktnummer := TIntegerField.Create(Self);\r\n  xdsPZEEinstellungenPauseVorgabe := TIntegerField.Create(Self);\r\n  XDataWebDataSet1 := TXDataWebDataSet.Create(Self);\r\n\r\n  XDataWebConnection1.BeforeLoadDFMValues;\r\n  tableAuftragStatus.BeforeLoadDFMValues;\r\n  tableAuftragStatusAuftragStatus.BeforeLoadDFMValues;\r\n  sourceAuftragStatus.BeforeLoadDFMValues;\r\n  tableSYSDAT.BeforeLoadDFMValues;\r\n  tableSYSDATDBKEY.BeforeLoadDFMValues;\r\n  tableSYSDATNachname.BeforeLoadDFMValues;\r\n  tableSYSDATVorname.BeforeLoadDFMValues;\r\n  tableSYSDATNamenzeile2.BeforeLoadDFMValues;\r\n  tableSYSDATNamenzeile3.BeforeLoadDFMValues;\r\n  tableSYSDATStrasse.BeforeLoadDFMValues;\r\n  tableSYSDATPostleitzahl.BeforeLoadDFMValues;\r\n  tableSYSDATOrt.BeforeLoadDFMValues;\r\n  tableSYSDATLaenderkuerzel.BeforeLoadDFMValues;\r\n  tableSYSDATLand.BeforeLoadDFMValues;\r\n  tableSYSDATTelefonnummer.BeforeLoadDFMValues;\r\n  tableSYSDATTelefaxnummer.BeforeLoadDFMValues;\r\n  tableSYSDATMobiltelefon.BeforeLoadDFMValues;\r\n  tableSYSDATEmail.BeforeLoadDFMValues;\r\n  tableSYSDATCadiaKundennummer.BeforeLoadDFMValues;\r\n  tableSYSDATRundungIT.BeforeLoadDFMValues;\r\n  tableSYSDATNachkommastellen.BeforeLoadDFMValues;\r\n  tableSYSDATAbsenderzeile.BeforeLoadDFMValues;\r\n  sourceSysdat.BeforeLoadDFMValues;\r\n  queryMonteur.BeforeLoadDFMValues;\r\n  queryMonteurPersonalnummer.BeforeLoadDFMValues;\r\n  queryMonteurNachname.BeforeLoadDFMValues;\r\n  queryMonteurVorname.BeforeLoadDFMValues;\r\n  queryMonteurSchreibzeichen.BeforeLoadDFMValues;\r\n  queryMonteurServicetechniker.BeforeLoadDFMValues;\r\n  queryMonteurPersonalGUID.BeforeLoadDFMValues;\r\n  queryMonteurFarbe.BeforeLoadDFMValues;\r\n  sourceMonteur.BeforeLoadDFMValues;\r\n  tableMengenarten.BeforeLoadDFMValues;\r\n  tableMengenartenArtderMenge.BeforeLoadDFMValues;\r\n  tableMengenartenISO3.BeforeLoadDFMValues;\r\n  tableMengenartenMengenauswahl.BeforeLoadDFMValues;\r\n  tableMengenartenVGPauswahl.BeforeLoadDFMValues;\r\n  tableMengenartenUVPauswahl.BeforeLoadDFMValues;\r\n  tableMengenartenVKPDivisor.BeforeLoadDFMValues;\r\n  sourceMengenarten.BeforeLoadDFMValues;\r\n  WebHttpRequest2.BeforeLoadDFMValues;\r\n  WebHttpRequestLogbuch.BeforeLoadDFMValues;\r\n  WClientAbsenderzeile.BeforeLoadDFMValues;\r\n  xdsPZEEinstellungen.BeforeLoadDFMValues;\r\n  xdsPZEEinstellungenZuordnungObjekt.BeforeLoadDFMValues;\r\n  xdsPZEEinstellungenZuordnungKontakt.BeforeLoadDFMValues;\r\n  xdsPZEEinstellungenZuordnungAuftrag.BeforeLoadDFMValues;\r\n  xdsPZEEinstellungenZuordnungProduktion.BeforeLoadDFMValues;\r\n  xdsPZEEinstellungenAuswahlNurKontaktnummer.BeforeLoadDFMValues;\r\n  xdsPZEEinstellungenPauseVorgabe.BeforeLoadDFMValues;\r\n  XDataWebDataSet1.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'DM2';\r\n    Height := 628;\r\n    Width := 652;\r\n    XDataWebConnection1.SetParentComponent(Self);\r\n    XDataWebConnection1.Name := 'XDataWebConnection1';\r\n    XDataWebConnection1.URL := 'https://langwald-edv.net:443/mandant01/cadiaserver/xdata';\r\n    SetEvent(XDataWebConnection1, Self, 'OnConnect', 'XDataWebConnection1Connect');\r\n    SetEvent(XDataWebConnection1, Self, 'OnRequest', 'XDataWebConnection1Request');\r\n    XDataWebConnection1.Left := 64;\r\n    XDataWebConnection1.Top := 32;\r\n    tableAuftragStatus.SetParentComponent(Self);\r\n    tableAuftragStatus.Name := 'tableAuftragStatus';\r\n    tableAuftragStatus.AfterOpen := tableAuftragStatusAfterOpen;\r\n    tableAuftragStatus.EntitySetName := 'AuftragStatus';\r\n    tableAuftragStatus.Connection := XDataWebConnection1;\r\n    tableAuftragStatus.Left := 168;\r\n    tableAuftragStatus.Top := 200;\r\n    tableAuftragStatusAuftragStatus.SetParentComponent(tableAuftragStatus);\r\n    tableAuftragStatusAuftragStatus.Name := 'tableAuftragStatusAuftragStatus';\r\n    tableAuftragStatusAuftragStatus.FieldName := 'AuftragStatus';\r\n    tableAuftragStatusAuftragStatus.Required := True;\r\n    tableAuftragStatusAuftragStatus.Size := 30;\r\n    sourceAuftragStatus.SetParentComponent(Self);\r\n    sourceAuftragStatus.Name := 'sourceAuftragStatus';\r\n    sourceAuftragStatus.DataSet := tableAuftragStatus;\r\n    sourceAuftragStatus.Left := 64;\r\n    sourceAuftragStatus.Top := 200;\r\n    tableSYSDAT.SetParentComponent(Self);\r\n    tableSYSDAT.Name := 'tableSYSDAT';\r\n    tableSYSDAT.AfterOpen := tableSYSDATAfterOpen;\r\n    tableSYSDAT.EntitySetName := 'sysdat';\r\n    tableSYSDAT.Connection := XDataWebConnection1;\r\n    tableSYSDAT.Left := 160;\r\n    tableSYSDAT.Top := 272;\r\n    tableSYSDATDBKEY.SetParentComponent(tableSYSDAT);\r\n    tableSYSDATDBKEY.Name := 'tableSYSDATDBKEY';\r\n    tableSYSDATDBKEY.FieldName := 'DBKEY';\r\n    tableSYSDATDBKEY.Size := 38;\r\n    tableSYSDATNachname.SetParentComponent(tableSYSDAT);\r\n    tableSYSDATNachname.Name := 'tableSYSDATNachname';\r\n    tableSYSDATNachname.FieldName := 'Nachname';\r\n    tableSYSDATNachname.Size := 40;\r\n    tableSYSDATVorname.SetParentComponent(tableSYSDAT);\r\n    tableSYSDATVorname.Name := 'tableSYSDATVorname';\r\n    tableSYSDATVorname.FieldName := 'Vorname';\r\n    tableSYSDATVorname.Size := 40;\r\n    tableSYSDATNamenzeile2.SetParentComponent(tableSYSDAT);\r\n    tableSYSDATNamenzeile2.Name := 'tableSYSDATNamenzeile2';\r\n    tableSYSDATNamenzeile2.FieldName := 'Namenzeile2';\r\n    tableSYSDATNamenzeile2.Size := 40;\r\n    tableSYSDATNamenzeile3.SetParentComponent(tableSYSDAT);\r\n    tableSYSDATNamenzeile3.Name := 'tableSYSDATNamenzeile3';\r\n    tableSYSDATNamenzeile3.FieldName := 'Namenzeile3';\r\n    tableSYSDATNamenzeile3.Size := 40;\r\n    tableSYSDATStrasse.SetParentComponent(tableSYSDAT);\r\n    tableSYSDATStrasse.Name := 'tableSYSDATStrasse';\r\n    tableSYSDATStrasse.FieldName := 'Strasse';\r\n    tableSYSDATStrasse.Size := 40;\r\n    tableSYSDATPostleitzahl.SetParentComponent(tableSYSDAT);\r\n    tableSYSDATPostleitzahl.Name := 'tableSYSDATPostleitzahl';\r\n    tableSYSDATPostleitzahl.FieldName := 'Postleitzahl';\r\n    tableSYSDATPostleitzahl.Size := 6;\r\n    tableSYSDATOrt.SetParentComponent(tableSYSDAT);\r\n    tableSYSDATOrt.Name := 'tableSYSDATOrt';\r\n    tableSYSDATOrt.FieldName := 'Ort';\r\n    tableSYSDATOrt.Size := 40;\r\n    tableSYSDATLaenderkuerzel.SetParentComponent(tableSYSDAT);\r\n    tableSYSDATLaenderkuerzel.Name := 'tableSYSDATLaenderkuerzel';\r\n    tableSYSDATLaenderkuerzel.FieldName := 'Laenderkuerzel';\r\n    tableSYSDATLaenderkuerzel.Size := 5;\r\n    tableSYSDATLand.SetParentComponent(tableSYSDAT);\r\n    tableSYSDATLand.Name := 'tableSYSDATLand';\r\n    tableSYSDATLand.FieldName := 'Land';\r\n    tableSYSDATLand.Size := 40;\r\n    tableSYSDATTelefonnummer.SetParentComponent(tableSYSDAT);\r\n    tableSYSDATTelefonnummer.Name := 'tableSYSDATTelefonnummer';\r\n    tableSYSDATTelefonnummer.FieldName := 'Telefonnummer';\r\n    tableSYSDATTelefonnummer.Size := 25;\r\n    tableSYSDATTelefaxnummer.SetParentComponent(tableSYSDAT);\r\n    tableSYSDATTelefaxnummer.Name := 'tableSYSDATTelefaxnummer';\r\n    tableSYSDATTelefaxnummer.FieldName := 'Telefaxnummer';\r\n    tableSYSDATTelefaxnummer.Size := 25;\r\n    tableSYSDATMobiltelefon.SetParentComponent(tableSYSDAT);\r\n    tableSYSDATMobiltelefon.Name := 'tableSYSDATMobiltelefon';\r\n    tableSYSDATMobiltelefon.FieldName := 'Mobiltelefon';\r\n    tableSYSDATMobiltelefon.Size := 25;\r\n    tableSYSDATEmail.SetParentComponent(tableSYSDAT);\r\n    tableSYSDATEmail.Name := 'tableSYSDATEmail';\r\n    tableSYSDATEmail.FieldName := 'Email';\r\n    tableSYSDATEmail.Size := 70;\r\n    tableSYSDATCadiaKundennummer.SetParentComponent(tableSYSDAT);\r\n    tableSYSDATCadiaKundennummer.Name := 'tableSYSDATCadiaKundennummer';\r\n    tableSYSDATCadiaKundennummer.FieldName := 'CadiaKundennummer';\r\n    tableSYSDATCadiaKundennummer.Size := 13;\r\n    tableSYSDATRundungIT.SetParentComponent(tableSYSDAT);\r\n    tableSYSDATRundungIT.Name := 'tableSYSDATRundungIT';\r\n    tableSYSDATRundungIT.FieldName := 'RundungIT';\r\n    tableSYSDATNachkommastellen.SetParentComponent(tableSYSDAT);\r\n    tableSYSDATNachkommastellen.Name := 'tableSYSDATNachkommastellen';\r\n    tableSYSDATNachkommastellen.FieldName := 'Nachkommastellen';\r\n    tableSYSDATAbsenderzeile.SetParentComponent(tableSYSDAT);\r\n    tableSYSDATAbsenderzeile.Name := 'tableSYSDATAbsenderzeile';\r\n    tableSYSDATAbsenderzeile.FieldName := 'Absenderzeile';\r\n    tableSYSDATAbsenderzeile.Size := 255;\r\n    sourceSysdat.SetParentComponent(Self);\r\n    sourceSysdat.Name := 'sourceSysdat';\r\n    sourceSysdat.DataSet := tableSYSDAT;\r\n    sourceSysdat.Left := 56;\r\n    sourceSysdat.Top := 272;\r\n    queryMonteur.SetParentComponent(Self);\r\n    queryMonteur.Name := 'queryMonteur';\r\n    queryMonteur.AfterOpen := queryMonteurAfterOpen;\r\n    queryMonteur.EntitySetName := 'Personal';\r\n    queryMonteur.Connection := XDataWebConnection1;\r\n    queryMonteur.QueryString := '$filter=Servicetechniker eq True';\r\n    queryMonteur.Left := 152;\r\n    queryMonteur.Top := 360;\r\n    queryMonteurPersonalnummer.SetParentComponent(queryMonteur);\r\n    queryMonteurPersonalnummer.Name := 'queryMonteurPersonalnummer';\r\n    queryMonteurPersonalnummer.FieldName := 'Personalnummer';\r\n    queryMonteurPersonalnummer.Required := True;\r\n    queryMonteurNachname.SetParentComponent(queryMonteur);\r\n    queryMonteurNachname.Name := 'queryMonteurNachname';\r\n    queryMonteurNachname.FieldName := 'Nachname';\r\n    queryMonteurNachname.Required := True;\r\n    queryMonteurNachname.Size := 40;\r\n    queryMonteurVorname.SetParentComponent(queryMonteur);\r\n    queryMonteurVorname.Name := 'queryMonteurVorname';\r\n    queryMonteurVorname.FieldName := 'Vorname';\r\n    queryMonteurVorname.Size := 40;\r\n    queryMonteurSchreibzeichen.SetParentComponent(queryMonteur);\r\n    queryMonteurSchreibzeichen.Name := 'queryMonteurSchreibzeichen';\r\n    queryMonteurSchreibzeichen.FieldName := 'Schreibzeichen';\r\n    queryMonteurSchreibzeichen.Size := 10;\r\n    queryMonteurServicetechniker.SetParentComponent(queryMonteur);\r\n    queryMonteurServicetechniker.Name := 'queryMonteurServicetechniker';\r\n    queryMonteurServicetechniker.FieldName := 'Servicetechniker';\r\n    queryMonteurPersonalGUID.SetParentComponent(queryMonteur);\r\n    queryMonteurPersonalGUID.Name := 'queryMonteurPersonalGUID';\r\n    queryMonteurPersonalGUID.FieldName := 'PersonalGUID';\r\n    queryMonteurPersonalGUID.Size := 38;\r\n    queryMonteurFarbe.SetParentComponent(queryMonteur);\r\n    queryMonteurFarbe.Name := 'queryMonteurFarbe';\r\n    queryMonteurFarbe.FieldName := 'Farbe';\r\n    sourceMonteur.SetParentComponent(Self);\r\n    sourceMonteur.Name := 'sourceMonteur';\r\n    sourceMonteur.DataSet := queryMonteur;\r\n    sourceMonteur.Left := 56;\r\n    sourceMonteur.Top := 360;\r\n    tableMengenarten.SetParentComponent(Self);\r\n    tableMengenarten.Name := 'tableMengenarten';\r\n    tableMengenarten.AfterOpen := tableMengenartenAfterOpen;\r\n    tableMengenarten.EntitySetName := 'Mengenarten';\r\n    tableMengenarten.Connection := XDataWebConnection1;\r\n    tableMengenarten.Left := 160;\r\n    tableMengenarten.Top := 432;\r\n    tableMengenartenArtderMenge.SetParentComponent(tableMengenarten);\r\n    tableMengenartenArtderMenge.Name := 'tableMengenartenArtderMenge';\r\n    tableMengenartenArtderMenge.FieldName := 'ArtderMenge';\r\n    tableMengenartenArtderMenge.Required := True;\r\n    tableMengenartenArtderMenge.Size := 50;\r\n    tableMengenartenISO3.SetParentComponent(tableMengenarten);\r\n    tableMengenartenISO3.Name := 'tableMengenartenISO3';\r\n    tableMengenartenISO3.FieldName := 'ISO3';\r\n    tableMengenartenISO3.Size := 3;\r\n    tableMengenartenMengenauswahl.SetParentComponent(tableMengenarten);\r\n    tableMengenartenMengenauswahl.Name := 'tableMengenartenMengenauswahl';\r\n    tableMengenartenMengenauswahl.FieldName := 'Mengenauswahl';\r\n    tableMengenartenVGPauswahl.SetParentComponent(tableMengenarten);\r\n    tableMengenartenVGPauswahl.Name := 'tableMengenartenVGPauswahl';\r\n    tableMengenartenVGPauswahl.FieldName := 'VGPauswahl';\r\n    tableMengenartenUVPauswahl.SetParentComponent(tableMengenarten);\r\n    tableMengenartenUVPauswahl.Name := 'tableMengenartenUVPauswahl';\r\n    tableMengenartenUVPauswahl.FieldName := 'UVPauswahl';\r\n    tableMengenartenVKPDivisor.SetParentComponent(tableMengenarten);\r\n    tableMengenartenVKPDivisor.Name := 'tableMengenartenVKPDivisor';\r\n    tableMengenartenVKPDivisor.FieldName := 'VKPDivisor';\r\n    sourceMengenarten.SetParentComponent(Self);\r\n    sourceMengenarten.Name := 'sourceMengenarten';\r\n    sourceMengenarten.DataSet := tableMengenarten;\r\n    sourceMengenarten.Left := 56;\r\n    sourceMengenarten.Top := 432;\r\n    WebHttpRequest2.SetParentComponent(Self);\r\n    WebHttpRequest2.Name := 'WebHttpRequest2';\r\n    WebHttpRequest2.Headers.BeginUpdate;\r\n    try\r\n      WebHttpRequest2.Headers.Clear;\r\n      WebHttpRequest2.Headers.Add('Cache-Control=no-cache, no-store, must-revalidate');\r\n    finally\r\n      WebHttpRequest2.Headers.EndUpdate;\r\n    end;\r\n    WebHttpRequest2.URL := 'https://cadia-software/cadiaserver/xdata/$model';\r\n    SetEvent(WebHttpRequest2, Self, 'OnResponse', 'WebHttpRequest2Response');\r\n    WebHttpRequest2.Left := 64;\r\n    WebHttpRequest2.Top := 104;\r\n    WebHttpRequestLogbuch.SetParentComponent(Self);\r\n    WebHttpRequestLogbuch.Name := 'WebHttpRequestLogbuch';\r\n    WebHttpRequestLogbuch.Headers.BeginUpdate;\r\n    try\r\n      WebHttpRequestLogbuch.Headers.Clear;\r\n      WebHttpRequestLogbuch.Headers.Add('Cache-Control=no-cache, no-store, must-revalidate');\r\n    finally\r\n      WebHttpRequestLogbuch.Headers.EndUpdate;\r\n    end;\r\n    WebHttpRequestLogbuch.Left := 208;\r\n    WebHttpRequestLogbuch.Top := 104;\r\n    WClientAbsenderzeile.SetParentComponent(Self);\r\n    WClientAbsenderzeile.Name := 'WClientAbsenderzeile';\r\n    WClientAbsenderzeile.Connection := XDataWebConnection1;\r\n    WClientAbsenderzeile.Left := 56;\r\n    WClientAbsenderzeile.Top := 512;\r\n    xdsPZEEinstellungen.SetParentComponent(Self);\r\n    xdsPZEEinstellungen.Name := 'xdsPZEEinstellungen';\r\n    xdsPZEEinstellungen.AfterOpen := xdsPZEEinstellungenAfterOpen;\r\n    xdsPZEEinstellungen.EntitySetName := 'PZE_Einstellungen';\r\n    xdsPZEEinstellungen.Connection := XDataWebConnection1;\r\n    xdsPZEEinstellungen.Left := 232;\r\n    xdsPZEEinstellungen.Top := 512;\r\n    xdsPZEEinstellungenZuordnungObjekt.SetParentComponent(xdsPZEEinstellungen);\r\n    xdsPZEEinstellungenZuordnungObjekt.Name := 'xdsPZEEinstellungenZuordnungObjekt';\r\n    xdsPZEEinstellungenZuordnungObjekt.FieldName := 'ZuordnungObjekt';\r\n    xdsPZEEinstellungenZuordnungKontakt.SetParentComponent(xdsPZEEinstellungen);\r\n    xdsPZEEinstellungenZuordnungKontakt.Name := 'xdsPZEEinstellungenZuordnungKontakt';\r\n    xdsPZEEinstellungenZuordnungKontakt.FieldName := 'ZuordnungKontakt';\r\n    xdsPZEEinstellungenZuordnungAuftrag.SetParentComponent(xdsPZEEinstellungen);\r\n    xdsPZEEinstellungenZuordnungAuftrag.Name := 'xdsPZEEinstellungenZuordnungAuftrag';\r\n    xdsPZEEinstellungenZuordnungAuftrag.FieldName := 'ZuordnungAuftrag';\r\n    xdsPZEEinstellungenZuordnungProduktion.SetParentComponent(xdsPZEEinstellungen);\r\n    xdsPZEEinstellungenZuordnungProduktion.Name := 'xdsPZEEinstellungenZuordnungProduktion';\r\n    xdsPZEEinstellungenZuordnungProduktion.FieldName := 'ZuordnungProduktion';\r\n    xdsPZEEinstellungenAuswahlNurKontaktnummer.SetParentComponent(xdsPZEEinstellungen);\r\n    xdsPZEEinstellungenAuswahlNurKontaktnummer.Name := 'xdsPZEEinstellungenAuswahlNurKontaktnummer';\r\n    xdsPZEEinstellungenAuswahlNurKontaktnummer.FieldName := 'AuswahlNurKontaktnummer';\r\n    xdsPZEEinstellungenPauseVorgabe.SetParentComponent(xdsPZEEinstellungen);\r\n    xdsPZEEinstellungenPauseVorgabe.Name := 'xdsPZEEinstellungenPauseVorgabe';\r\n    xdsPZEEinstellungenPauseVorgabe.FieldName := 'PauseVorgabe';\r\n    XDataWebDataSet1.SetParentComponent(Self);\r\n    XDataWebDataSet1.Name := 'XDataWebDataSet1';\r\n    XDataWebDataSet1.Connection := XDataWebConnection1;\r\n    XDataWebDataSet1.Left := 400;\r\n    XDataWebDataSet1.Top := 216;\r\n  finally\r\n    XDataWebConnection1.AfterLoadDFMValues;\r\n    tableAuftragStatus.AfterLoadDFMValues;\r\n    tableAuftragStatusAuftragStatus.AfterLoadDFMValues;\r\n    sourceAuftragStatus.AfterLoadDFMValues;\r\n    tableSYSDAT.AfterLoadDFMValues;\r\n    tableSYSDATDBKEY.AfterLoadDFMValues;\r\n    tableSYSDATNachname.AfterLoadDFMValues;\r\n    tableSYSDATVorname.AfterLoadDFMValues;\r\n    tableSYSDATNamenzeile2.AfterLoadDFMValues;\r\n    tableSYSDATNamenzeile3.AfterLoadDFMValues;\r\n    tableSYSDATStrasse.AfterLoadDFMValues;\r\n    tableSYSDATPostleitzahl.AfterLoadDFMValues;\r\n    tableSYSDATOrt.AfterLoadDFMValues;\r\n    tableSYSDATLaenderkuerzel.AfterLoadDFMValues;\r\n    tableSYSDATLand.AfterLoadDFMValues;\r\n    tableSYSDATTelefonnummer.AfterLoadDFMValues;\r\n    tableSYSDATTelefaxnummer.AfterLoadDFMValues;\r\n    tableSYSDATMobiltelefon.AfterLoadDFMValues;\r\n    tableSYSDATEmail.AfterLoadDFMValues;\r\n    tableSYSDATCadiaKundennummer.AfterLoadDFMValues;\r\n    tableSYSDATRundungIT.AfterLoadDFMValues;\r\n    tableSYSDATNachkommastellen.AfterLoadDFMValues;\r\n    tableSYSDATAbsenderzeile.AfterLoadDFMValues;\r\n    sourceSysdat.AfterLoadDFMValues;\r\n    queryMonteur.AfterLoadDFMValues;\r\n    queryMonteurPersonalnummer.AfterLoadDFMValues;\r\n    queryMonteurNachname.AfterLoadDFMValues;\r\n    queryMonteurVorname.AfterLoadDFMValues;\r\n    queryMonteurSchreibzeichen.AfterLoadDFMValues;\r\n    queryMonteurServicetechniker.AfterLoadDFMValues;\r\n    queryMonteurPersonalGUID.AfterLoadDFMValues;\r\n    queryMonteurFarbe.AfterLoadDFMValues;\r\n    sourceMonteur.AfterLoadDFMValues;\r\n    tableMengenarten.AfterLoadDFMValues;\r\n    tableMengenartenArtderMenge.AfterLoadDFMValues;\r\n    tableMengenartenISO3.AfterLoadDFMValues;\r\n    tableMengenartenMengenauswahl.AfterLoadDFMValues;\r\n    tableMengenartenVGPauswahl.AfterLoadDFMValues;\r\n    tableMengenartenUVPauswahl.AfterLoadDFMValues;\r\n    tableMengenartenVKPDivisor.AfterLoadDFMValues;\r\n    sourceMengenarten.AfterLoadDFMValues;\r\n    WebHttpRequest2.AfterLoadDFMValues;\r\n    WebHttpRequestLogbuch.AfterLoadDFMValues;\r\n    WClientAbsenderzeile.AfterLoadDFMValues;\r\n    xdsPZEEinstellungen.AfterLoadDFMValues;\r\n    xdsPZEEinstellungenZuordnungObjekt.AfterLoadDFMValues;\r\n    xdsPZEEinstellungenZuordnungKontakt.AfterLoadDFMValues;\r\n    xdsPZEEinstellungenZuordnungAuftrag.AfterLoadDFMValues;\r\n    xdsPZEEinstellungenZuordnungProduktion.AfterLoadDFMValues;\r\n    xdsPZEEinstellungenAuswahlNurKontaktnummer.AfterLoadDFMValues;\r\n    xdsPZEEinstellungenPauseVorgabe.AfterLoadDFMValues;\r\n    XDataWebDataSet1.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","{********************************************************************}\r\n{                                                                    }\r\n{ written by TMS Software                                            }\r\n{            copyright (c) 2018 - 2021                               }\r\n{            Email : info@tmssoftware.com                            }\r\n{            Web : http://www.tmssoftware.com                        }\r\n{                                                                    }\r\n{ The source code is given as is. The author is not responsible      }\r\n{ for any possible damage done due to the use of this code.          }\r\n{ The complete source code remains property of the author and may    }\r\n{ not be distributed, published, given or sold in any form as such.  }\r\n{ No parts of the source code can be included in any other component }\r\n{ or application without written authorization of the author.        }\r\n{********************************************************************}\r\n\r\nunit WEBLib.FlexControls;\r\n\r\n{$DEFINE NOPP}\r\n\r\ninterface\r\n\r\nuses\r\n  Classes, JS, WEBLib.Controls, WEBLib.StdCtrls, WEBLib.Graphics, Web, WEBLib.WebTools,\r\n  WEBLib.Dialogs;\r\n\r\ntype\r\n  TStretchPanel = class(TCustomControl)\r\n  private\r\n    FStretchContent: TJSElement;\r\n    FFixedContent: TJSElement;\r\n    FFixedHeight: integer;\r\n    procedure SetFixedHeight(const Value: integer);\r\n  protected\r\n    function CreateElement: TJSElement; override;\r\n    procedure UpdateElement; override;\r\n  public\r\n    procedure CreateInitialize; override;\r\n  published\r\n    property Align;\r\n    property AlignWithMargins;\r\n    property Anchors;\r\n    property BorderColor;\r\n    property BorderStyle;\r\n    property ChildOrder;\r\n    property Color;\r\n    property ElementClassName;\r\n    property ElementFont;\r\n    property ElementID;\r\n    property ElementPosition;\r\n    property FixedHeight: integer read FFixedHeight write SetFixedHeight;\r\n    property HeightPercent;\r\n    property HeightStyle;\r\n    property Margins;\r\n    property WidthPercent;\r\n    property WidthStyle;\r\n    property Visible;\r\n    property OnClick;\r\n    property OnDblClick;\r\n    property OnMouseDown;\r\n    property OnMouseMove;\r\n    property OnMouseUp;\r\n  end;\r\n\r\n  TWebStretchPanel = class(TStretchPanel);\r\n\r\nimplementation\r\n\r\nuses\r\n  SysUtils;\r\n\r\n{ TStretchPanel }\r\n\r\nfunction TStretchPanel.CreateElement: TJSElement;\r\nbegin\r\n  Result := document.createElement('DIV');\r\n\r\n  FStretchContent := document.createElement('DIV');\r\n  FFixedContent := document.createElement('DIV');\r\n\r\n  Result.appendChild(FStretchContent);\r\n  Result.appendChild(FFixedContent);\r\nend;\r\n\r\nprocedure TStretchPanel.CreateInitialize;\r\nbegin\r\n  inherited;\r\n  FFixedHeight := 100;\r\n  BorderStyle := bsSingle;\r\n  ControlStyle := ControlStyle + [csAcceptsControls];\r\n  Color := clWindow;\r\n  CustomBorder := true;\r\n  Width := 400;\r\n  Height := 300;\r\nend;\r\n\r\nprocedure TStretchPanel.SetFixedHeight(const Value: integer);\r\nbegin\r\n  FFixedHeight := Value;\r\nend;\r\n\r\nprocedure TStretchPanel.UpdateElement;\r\nvar\r\n  i: integer;\r\n  fragment: TJSDocumentFragment;\r\n  ctrlid: string;\r\n  deltay,newtop: integer;\r\n  el: TJSElement;\r\nbegin\r\n  inherited;\r\n\r\n  if Assigned(ElementHandle) and not IsUpdating and not (csLoading in ComponentState) then\r\n  begin\r\n    if not Assigned(FFixedContent) then\r\n    begin\r\n      FStretchContent := document.createElement('DIV');\r\n      FFixedContent := document.createElement('DIV');\r\n\r\n      ElementHandle.appendChild(FStretchContent);\r\n      ElementHandle.appendChild(FFixedContent);\r\n    end;\r\n\r\n    TJSHTMLElement(FFixedContent).style.setProperty('position','relative');\r\n\r\n    if not (csDesigning in ComponentState) then\r\n      TJSHTMLElement(FFixedContent).style.setProperty('height',IntToStr(FixedHeight)+'px')\r\n    else\r\n      TJSHTMLElement(FFixedContent).style.setProperty('height',IntToStr(Height)+'px');\r\n\r\n    ElementHandle.style.setProperty('height','');\r\n\r\n    // do not block selection in child controls\r\n    ElementHandle.style.setProperty('user-select', '');\r\n\r\n    // allow default caret on text\r\n    if Cursor = crDefault then\r\n      ElementHandle.style.setProperty('cursor', '');\r\n\r\n    if WidthStyle = ssAbsolute then\r\n      TJSHTMLElement(FStretchContent).style.setProperty('width',IntToStr(Width -8)+'px');\r\n\r\n    deltay := GetDesignHeight - FixedHeight;\r\n\r\n    for i := 0 to ControlCount - 1 do\r\n    begin\r\n      fragment := document.createDocumentFragment();\r\n      ctrlid := Controls[i].GetID;\r\n\r\n      if Controls[i].GetDesignTop < GetDesignHeight - FixedHeight then\r\n      begin\r\n        el := document.getElementById(ctrlid);\r\n        if Assigned(el) then\r\n        begin\r\n          fragment.appendChild(el);\r\n          FStretchContent.appendChild(fragment);\r\n          Controls[i].ElementHandle.style.setProperty('position','relative');\r\n        end;\r\n      end\r\n      else\r\n      begin\r\n        newtop := Controls[i].GetDesignTop - deltay;\r\n        Controls[i].Top := newtop;\r\n        Controls[i].ElementHandle.style.setProperty('top',IntToStr(newtop)+'px');\r\n        el := document.getElementById(ctrlid);\r\n        if Assigned(el) then\r\n        begin\r\n          fragment.appendChild(el);\r\n          FFixedContent.appendChild(fragment);\r\n        end;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit unit_EinzelAnruf;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Data.DB, WEBLib.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, WEBLib.Buttons, Vcl.Controls, Vcl.StdCtrls,\r\n  WEBLib.StdCtrls, WEBLib.ExtCtrls, WEBLib.DBCtrls, WEBLib.Grids, DB;\r\n\r\ntype\r\n  TEinzelAnruf = class(TForm)\r\n    xdsAnruf: TXDataWebDataSet;\r\n    xdsAnrufID: TStringField;\r\n    xdsAnrufAnrufTyp: TIntegerField;\r\n    xdsAnrufDatum: TDateTimeField;\r\n    xdsAnrufRufnummer: TStringField;\r\n    xdsAnrufNameFritzBox: TStringField;\r\n    xdsAnrufNebenstelle: TStringField;\r\n    xdsAnrufAnrufArt: TStringField;\r\n    xdsAnrufDauer: TDateTimeField;\r\n    xdsAnrufKundennummer: TStringField;\r\n    xdsAnrufTeilnehmer: TStringField;\r\n    xdsAnrufNotiz: TStringField;\r\n    xdsAnrufbis: TDateTimeField;\r\n    xdsAnrufDauerMinuten: TIntegerField;\r\n    xdsAnrufJahr: TIntegerField;\r\n    xdsAnrufMonat: TIntegerField;\r\n    xdsAnrufTag: TIntegerField;\r\n    xdsAnrufMonatJahr: TDateTimeField;\r\n    xdsAnrufDatumKurz: TDateTimeField;\r\n    xdsAnrufAPID: TStringField;\r\n    xdsAnrufFBox: TStringField;\r\n    xdsAnrufabrechnen: TBooleanField;\r\n    xdsAnrufAbgerechnetAm: TDateTimeField;\r\n    xdsAnrufStundensatz: TFloatField;\r\n    xdsAnrufKosten: TFloatField;\r\n    xdsAnruferstellt: TDateTimeField;\r\n    xdsAnrufgeaendert: TDateTimeField;\r\n    xdsAnrufAnrufArtText: TStringField;\r\n    sourceAnruf: TDataSource;\r\n    TC: TTableControl;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure xdsAnrufAfterPost(DataSet: TDataSet);\r\n    procedure xdsAnrufAfterApplyUpdates(Sender: TDataSet;\r\n      Info: TResolveResults);\r\n    procedure xdsAnrufAfterOpen(DataSet: TDataSet);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    MerkerAnruf:string;\r\n    buttonzurueck:TButton;\r\n    buttonSpeichern:TButton;\r\n    buttonAbbrechen:TButton;\r\n    procedure buttonzurueckclick(Sender:TObject);\r\n    procedure buttonspeichernclick(Sender:TObject);\r\n    procedure buttonAbbrechenclick(Sender:TObject);\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  EinzelAnruf: TEinzelAnruf;\r\n  edtTeilnehmer:TDBEdit;\r\n  edtNotiz:TDBMemo;\r\n\r\nimplementation\r\n  uses unit1, unit2;\r\n{$R *.dfm}\r\n\r\nprocedure TEinzelAnruf.buttonzurueckclick(Sender:TObject);\r\nbegin\r\n  self.close;\r\nend;\r\n\r\nprocedure TEinzelAnruf.buttonspeichernclick(Sender:TObject);\r\nbegin\r\n   if xdsanruf.State in dseditmodes then\r\n  begin\r\n    ModalResult:=mrOk;\r\n    xdsanruf.Post;\r\n  end\r\n  else\r\n  begin\r\n    ModalResult:=mrCancel;\r\n    xdsanruf.Close;\r\n    self.Close;\r\n  end;\r\nend;\r\n\r\nprocedure TEinzelAnruf.buttonAbbrechenclick(Sender:TObject);\r\nbegin\r\n  ModalResult:=mrCancel;\r\n  xdsanruf.Close;\r\n  self.Close;\r\nend;\r\n\r\nprocedure TEinzelAnruf.WebFormShow(Sender: TObject);\r\nbegin\r\n  if MerkerAnruf<>'' then\r\n  begin\r\n    xdsAnruf.Close;\r\n    xdsAnruf.QueryString:='$filter=ID eq '+QuotedStr(MerkerAnruf);\r\n    xdsAnruf.Load;\r\n\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TEinzelAnruf.xdsAnrufAfterApplyUpdates(Sender: TDataSet;\r\n  Info: TResolveResults);\r\nbegin\r\n  self.Close;\r\nend;\r\n\r\nprocedure TEinzelAnruf.xdsAnrufAfterOpen(DataSet: TDataSet);\r\nvar\r\n  i:integer;\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n\r\n  i:=0;\r\n  TC.ColCount:=2;\r\n  tc.rowcount:=10;\r\n  TC.Cells[0,i]:='<h4>Einzel-Anruf';\r\n  inc(i);\r\n  myelement:=TC.cellelements[0,i];\r\n  buttonzurueck:=TButton.Create(self);\r\n  buttonzurueck.ElementClassName:='btn btn-info text-left';\r\n  buttonzurueck.HeightStyle:=ssauto;\r\n  buttonzurueck.WidthStyle:=ssauto;\r\n  buttonzurueck.tag:=0;\r\n  buttonzurueck.Caption:='<< zurück';\r\n  buttonzurueck.OnClick:=@buttonzurueckClick;\r\n  buttonzurueck.ParentElement:=myelement;\r\n\r\n  inc(i);\r\n  TC.Cells[0,i]:='<small>Datum';\r\n  TC.Cells[1,i]:=formatdatetime('DD.MM.YYYY hh:mm:ss',xdsAnrufDatum.asdatetime);\r\n  inc(i);\r\n  TC.Cells[0,i]:='<small>Dauer (Min.)';\r\n  TC.Cells[1,i]:=xdsAnrufDauerMinuten.asstring;\r\n  inc(i);\r\n  TC.Cells[0,i]:='<small>Rufnummer';\r\n  TC.Cells[1,i]:=xdsAnrufRufnummer.asstring;\r\n  inc(i);\r\n  TC.Cells[0,i]:='<small>Kundennummer';\r\n  TC.Cells[1,i]:=xdsAnrufKundennummer.asstring;\r\n  inc(i);\r\n  TC.Cells[0,i]:='<small>Teilnehmer';\r\n  TC.Cells[1,i]:=xdsAnrufTeilnehmer.asstring;\r\n\r\n  if xdsanrufkundennummer.asstring='' then\r\n  begin\r\n    myelement:=TC.CellElements[1,i];\r\n    edtTeilnehmer:=TDBEdit.Create(self);\r\n    edtTeilnehmer.DataSource:=sourceAnruf;\r\n    edtTeilnehmer.DataField:='Teilnehmer';\r\n    edtTeilnehmer.ElementClassName:='form-control';\r\n    edtTeilnehmer.width:=450;\r\n    edtTeilnehmer.Height:=35;\r\n    myelement.innerHTML:='';\r\n    edtTeilnehmer.ParentElement:=myelement;\r\n  end;\r\n\r\n\r\n  inc(i);\r\n  TC.Cells[0,i]:='<small>Notiz';\r\n\r\n  myelement:=TC.CellElements[1,i];\r\n  edtNotiz:=TDBMemo.Create(self);\r\n  edtNotiz.DataSource:=sourceAnruf;\r\n  edtNotiz.DataField:='Notiz';\r\n  edtNotiz.ElementClassName:='form-control';\r\n  edtNotiz.width:=450;\r\n  edtNotiz.Height:=135;\r\n  myelement.innerHTML:='';\r\n  edtNotiz.ParentElement:=myelement;\r\n\r\n\r\n  inc(i);\r\n  myelement:=TC.cellelements[0,i];\r\n  buttonAbbrechen:=TButton.Create(self);\r\n  buttonAbbrechen.ElementClassName:='btn btn-info text-left';\r\n  buttonAbbrechen.HeightStyle:=ssauto;\r\n  buttonAbbrechen.WidthStyle:=ssauto;\r\n  buttonAbbrechen.tag:=0;\r\n  buttonAbbrechen.Caption:='abbrechen';\r\n  buttonAbbrechen.OnClick:=@buttonAbbrechenClick;\r\n  buttonAbbrechen.ParentElement:=myelement;\r\n\r\n  myelement:=TC.cellelements[1,i];\r\n  buttonSpeichern:=TButton.Create(self);\r\n  buttonSpeichern.ElementClassName:='btn btn-info text-left';\r\n  buttonSpeichern.HeightStyle:=ssauto;\r\n  buttonSpeichern.WidthStyle:=ssauto;\r\n  buttonSpeichern.tag:=0;\r\n  buttonSpeichern.Caption:='speichern';\r\n  buttonSpeichern.OnClick:=@buttonSpeichernClick;\r\n  buttonSpeichern.ParentElement:=myelement;\r\n  xdsAnruf.First;\r\nend;\r\n\r\nprocedure TEinzelAnruf.xdsAnrufAfterPost(DataSet: TDataSet);\r\nbegin\r\n  if LizenzOK then\r\n  begin\r\n    xdsanruf.ApplyUpdates;\r\n  end\r\n  else\r\n  begin\r\n    showmessage('Für das Speichern von Daten sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n  end;\r\nend;\r\n\r\nprocedure TEinzelAnruf.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  TC := TTableControl.Create(Self);\r\n  xdsAnruf := TXDataWebDataSet.Create(Self);\r\n  xdsAnrufID := TStringField.Create(Self);\r\n  xdsAnrufAnrufTyp := TIntegerField.Create(Self);\r\n  xdsAnrufDatum := TDateTimeField.Create(Self);\r\n  xdsAnrufRufnummer := TStringField.Create(Self);\r\n  xdsAnrufNameFritzBox := TStringField.Create(Self);\r\n  xdsAnrufNebenstelle := TStringField.Create(Self);\r\n  xdsAnrufAnrufArt := TStringField.Create(Self);\r\n  xdsAnrufDauer := TDateTimeField.Create(Self);\r\n  xdsAnrufKundennummer := TStringField.Create(Self);\r\n  xdsAnrufTeilnehmer := TStringField.Create(Self);\r\n  xdsAnrufNotiz := TStringField.Create(Self);\r\n  xdsAnrufbis := TDateTimeField.Create(Self);\r\n  xdsAnrufDauerMinuten := TIntegerField.Create(Self);\r\n  xdsAnrufJahr := TIntegerField.Create(Self);\r\n  xdsAnrufMonat := TIntegerField.Create(Self);\r\n  xdsAnrufTag := TIntegerField.Create(Self);\r\n  xdsAnrufMonatJahr := TDateTimeField.Create(Self);\r\n  xdsAnrufDatumKurz := TDateTimeField.Create(Self);\r\n  xdsAnrufAPID := TStringField.Create(Self);\r\n  xdsAnrufFBox := TStringField.Create(Self);\r\n  xdsAnrufabrechnen := TBooleanField.Create(Self);\r\n  xdsAnrufAbgerechnetAm := TDateTimeField.Create(Self);\r\n  xdsAnrufStundensatz := TFloatField.Create(Self);\r\n  xdsAnrufKosten := TFloatField.Create(Self);\r\n  xdsAnruferstellt := TDateTimeField.Create(Self);\r\n  xdsAnrufgeaendert := TDateTimeField.Create(Self);\r\n  xdsAnrufAnrufArtText := TStringField.Create(Self);\r\n  sourceAnruf := TDataSource.Create(Self);\r\n\r\n  TC.BeforeLoadDFMValues;\r\n  xdsAnruf.BeforeLoadDFMValues;\r\n  xdsAnrufID.BeforeLoadDFMValues;\r\n  xdsAnrufAnrufTyp.BeforeLoadDFMValues;\r\n  xdsAnrufDatum.BeforeLoadDFMValues;\r\n  xdsAnrufRufnummer.BeforeLoadDFMValues;\r\n  xdsAnrufNameFritzBox.BeforeLoadDFMValues;\r\n  xdsAnrufNebenstelle.BeforeLoadDFMValues;\r\n  xdsAnrufAnrufArt.BeforeLoadDFMValues;\r\n  xdsAnrufDauer.BeforeLoadDFMValues;\r\n  xdsAnrufKundennummer.BeforeLoadDFMValues;\r\n  xdsAnrufTeilnehmer.BeforeLoadDFMValues;\r\n  xdsAnrufNotiz.BeforeLoadDFMValues;\r\n  xdsAnrufbis.BeforeLoadDFMValues;\r\n  xdsAnrufDauerMinuten.BeforeLoadDFMValues;\r\n  xdsAnrufJahr.BeforeLoadDFMValues;\r\n  xdsAnrufMonat.BeforeLoadDFMValues;\r\n  xdsAnrufTag.BeforeLoadDFMValues;\r\n  xdsAnrufMonatJahr.BeforeLoadDFMValues;\r\n  xdsAnrufDatumKurz.BeforeLoadDFMValues;\r\n  xdsAnrufAPID.BeforeLoadDFMValues;\r\n  xdsAnrufFBox.BeforeLoadDFMValues;\r\n  xdsAnrufabrechnen.BeforeLoadDFMValues;\r\n  xdsAnrufAbgerechnetAm.BeforeLoadDFMValues;\r\n  xdsAnrufStundensatz.BeforeLoadDFMValues;\r\n  xdsAnrufKosten.BeforeLoadDFMValues;\r\n  xdsAnruferstellt.BeforeLoadDFMValues;\r\n  xdsAnrufgeaendert.BeforeLoadDFMValues;\r\n  xdsAnrufAnrufArtText.BeforeLoadDFMValues;\r\n  sourceAnruf.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'EinzelAnruf';\r\n    Width := 159;\r\n    Height := 226;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.Left := 0;\r\n    TC.Top := 0;\r\n    TC.Width := 159;\r\n    TC.Height := 226;\r\n    TC.ElementClassName := 'table table-hover table-bordered table-striped';\r\n    TC.HeightStyle := ssAuto;\r\n    TC.Align := alClient;\r\n    TC.BorderColor := clSilver;\r\n    TC.ChildOrder := 3;\r\n    TC.ColHeader := False;\r\n    TC.ElementFont := efCSS;\r\n    TC.ElementHeaderClassName := 'table-info';\r\n    TC.ElementTableClassName := 'table table-hover table-bordered table-striped';\r\n    TC.Options.ScrollVertical := True;\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 1;\r\n    TC.RowCount := 5;\r\n    xdsAnruf.SetParentComponent(Self);\r\n    xdsAnruf.Name := 'xdsAnruf';\r\n    xdsAnruf.AfterApplyUpdates := xdsAnrufAfterApplyUpdates;\r\n    xdsAnruf.AfterOpen := xdsAnrufAfterOpen;\r\n    xdsAnruf.AfterPost := xdsAnrufAfterPost;\r\n    xdsAnruf.EntitySetName := 'FritzBoxAnrufe';\r\n    xdsAnruf.Connection := DM2.XDataWebConnection1;\r\n    xdsAnruf.QueryTop := 1;\r\n    xdsAnruf.Left := 93;\r\n    xdsAnruf.Top := 101;\r\n    xdsAnrufID.SetParentComponent(xdsAnruf);\r\n    xdsAnrufID.Name := 'xdsAnrufID';\r\n    xdsAnrufID.FieldName := 'ID';\r\n    xdsAnrufID.Required := True;\r\n    xdsAnrufID.Size := 38;\r\n    xdsAnrufAnrufTyp.SetParentComponent(xdsAnruf);\r\n    xdsAnrufAnrufTyp.Name := 'xdsAnrufAnrufTyp';\r\n    xdsAnrufAnrufTyp.FieldName := 'AnrufTyp';\r\n    xdsAnrufDatum.SetParentComponent(xdsAnruf);\r\n    xdsAnrufDatum.Name := 'xdsAnrufDatum';\r\n    xdsAnrufDatum.FieldName := 'Datum';\r\n    xdsAnrufRufnummer.SetParentComponent(xdsAnruf);\r\n    xdsAnrufRufnummer.Name := 'xdsAnrufRufnummer';\r\n    xdsAnrufRufnummer.FieldName := 'Rufnummer';\r\n    xdsAnrufRufnummer.Size := 50;\r\n    xdsAnrufNameFritzBox.SetParentComponent(xdsAnruf);\r\n    xdsAnrufNameFritzBox.Name := 'xdsAnrufNameFritzBox';\r\n    xdsAnrufNameFritzBox.FieldName := 'NameFritzBox';\r\n    xdsAnrufNameFritzBox.Size := 50;\r\n    xdsAnrufNebenstelle.SetParentComponent(xdsAnruf);\r\n    xdsAnrufNebenstelle.Name := 'xdsAnrufNebenstelle';\r\n    xdsAnrufNebenstelle.FieldName := 'Nebenstelle';\r\n    xdsAnrufNebenstelle.Size := 50;\r\n    xdsAnrufAnrufArt.SetParentComponent(xdsAnruf);\r\n    xdsAnrufAnrufArt.Name := 'xdsAnrufAnrufArt';\r\n    xdsAnrufAnrufArt.FieldName := 'AnrufArt';\r\n    xdsAnrufAnrufArt.Size := 50;\r\n    xdsAnrufDauer.SetParentComponent(xdsAnruf);\r\n    xdsAnrufDauer.Name := 'xdsAnrufDauer';\r\n    xdsAnrufDauer.FieldName := 'Dauer';\r\n    xdsAnrufKundennummer.SetParentComponent(xdsAnruf);\r\n    xdsAnrufKundennummer.Name := 'xdsAnrufKundennummer';\r\n    xdsAnrufKundennummer.FieldName := 'Kundennummer';\r\n    xdsAnrufKundennummer.Size := 13;\r\n    xdsAnrufTeilnehmer.SetParentComponent(xdsAnruf);\r\n    xdsAnrufTeilnehmer.Name := 'xdsAnrufTeilnehmer';\r\n    xdsAnrufTeilnehmer.FieldName := 'Teilnehmer';\r\n    xdsAnrufTeilnehmer.Size := 150;\r\n    xdsAnrufNotiz.SetParentComponent(xdsAnruf);\r\n    xdsAnrufNotiz.Name := 'xdsAnrufNotiz';\r\n    xdsAnrufNotiz.FieldName := 'Notiz';\r\n    xdsAnrufNotiz.Size := 255;\r\n    xdsAnrufbis.SetParentComponent(xdsAnruf);\r\n    xdsAnrufbis.Name := 'xdsAnrufbis';\r\n    xdsAnrufbis.FieldName := 'bis';\r\n    xdsAnrufDauerMinuten.SetParentComponent(xdsAnruf);\r\n    xdsAnrufDauerMinuten.Name := 'xdsAnrufDauerMinuten';\r\n    xdsAnrufDauerMinuten.FieldName := 'DauerMinuten';\r\n    xdsAnrufJahr.SetParentComponent(xdsAnruf);\r\n    xdsAnrufJahr.Name := 'xdsAnrufJahr';\r\n    xdsAnrufJahr.FieldName := 'Jahr';\r\n    xdsAnrufMonat.SetParentComponent(xdsAnruf);\r\n    xdsAnrufMonat.Name := 'xdsAnrufMonat';\r\n    xdsAnrufMonat.FieldName := 'Monat';\r\n    xdsAnrufTag.SetParentComponent(xdsAnruf);\r\n    xdsAnrufTag.Name := 'xdsAnrufTag';\r\n    xdsAnrufTag.FieldName := 'Tag';\r\n    xdsAnrufMonatJahr.SetParentComponent(xdsAnruf);\r\n    xdsAnrufMonatJahr.Name := 'xdsAnrufMonatJahr';\r\n    xdsAnrufMonatJahr.FieldName := 'MonatJahr';\r\n    xdsAnrufDatumKurz.SetParentComponent(xdsAnruf);\r\n    xdsAnrufDatumKurz.Name := 'xdsAnrufDatumKurz';\r\n    xdsAnrufDatumKurz.FieldName := 'DatumKurz';\r\n    xdsAnrufAPID.SetParentComponent(xdsAnruf);\r\n    xdsAnrufAPID.Name := 'xdsAnrufAPID';\r\n    xdsAnrufAPID.FieldName := 'APID';\r\n    xdsAnrufAPID.Size := 38;\r\n    xdsAnrufFBox.SetParentComponent(xdsAnruf);\r\n    xdsAnrufFBox.Name := 'xdsAnrufFBox';\r\n    xdsAnrufFBox.FieldName := 'FBox';\r\n    xdsAnrufFBox.Size := 50;\r\n    xdsAnrufabrechnen.SetParentComponent(xdsAnruf);\r\n    xdsAnrufabrechnen.Name := 'xdsAnrufabrechnen';\r\n    xdsAnrufabrechnen.FieldName := 'abrechnen';\r\n    xdsAnrufAbgerechnetAm.SetParentComponent(xdsAnruf);\r\n    xdsAnrufAbgerechnetAm.Name := 'xdsAnrufAbgerechnetAm';\r\n    xdsAnrufAbgerechnetAm.FieldName := 'AbgerechnetAm';\r\n    xdsAnrufStundensatz.SetParentComponent(xdsAnruf);\r\n    xdsAnrufStundensatz.Name := 'xdsAnrufStundensatz';\r\n    xdsAnrufStundensatz.FieldName := 'Stundensatz';\r\n    xdsAnrufKosten.SetParentComponent(xdsAnruf);\r\n    xdsAnrufKosten.Name := 'xdsAnrufKosten';\r\n    xdsAnrufKosten.FieldName := 'Kosten';\r\n    xdsAnruferstellt.SetParentComponent(xdsAnruf);\r\n    xdsAnruferstellt.Name := 'xdsAnruferstellt';\r\n    xdsAnruferstellt.FieldName := 'erstellt';\r\n    xdsAnrufgeaendert.SetParentComponent(xdsAnruf);\r\n    xdsAnrufgeaendert.Name := 'xdsAnrufgeaendert';\r\n    xdsAnrufgeaendert.FieldName := 'geaendert';\r\n    xdsAnrufAnrufArtText.SetParentComponent(xdsAnruf);\r\n    xdsAnrufAnrufArtText.Name := 'xdsAnrufAnrufArtText';\r\n    xdsAnrufAnrufArtText.FieldKind := fkCalculated;\r\n    xdsAnrufAnrufArtText.FieldName := 'AnrufArtText';\r\n    xdsAnrufAnrufArtText.Calculated := True;\r\n    sourceAnruf.SetParentComponent(Self);\r\n    sourceAnruf.Name := 'sourceAnruf';\r\n    sourceAnruf.DataSet := xdsAnruf;\r\n    sourceAnruf.Left := 29;\r\n    sourceAnruf.Top := 101;\r\n  finally\r\n    TC.AfterLoadDFMValues;\r\n    xdsAnruf.AfterLoadDFMValues;\r\n    xdsAnrufID.AfterLoadDFMValues;\r\n    xdsAnrufAnrufTyp.AfterLoadDFMValues;\r\n    xdsAnrufDatum.AfterLoadDFMValues;\r\n    xdsAnrufRufnummer.AfterLoadDFMValues;\r\n    xdsAnrufNameFritzBox.AfterLoadDFMValues;\r\n    xdsAnrufNebenstelle.AfterLoadDFMValues;\r\n    xdsAnrufAnrufArt.AfterLoadDFMValues;\r\n    xdsAnrufDauer.AfterLoadDFMValues;\r\n    xdsAnrufKundennummer.AfterLoadDFMValues;\r\n    xdsAnrufTeilnehmer.AfterLoadDFMValues;\r\n    xdsAnrufNotiz.AfterLoadDFMValues;\r\n    xdsAnrufbis.AfterLoadDFMValues;\r\n    xdsAnrufDauerMinuten.AfterLoadDFMValues;\r\n    xdsAnrufJahr.AfterLoadDFMValues;\r\n    xdsAnrufMonat.AfterLoadDFMValues;\r\n    xdsAnrufTag.AfterLoadDFMValues;\r\n    xdsAnrufMonatJahr.AfterLoadDFMValues;\r\n    xdsAnrufDatumKurz.AfterLoadDFMValues;\r\n    xdsAnrufAPID.AfterLoadDFMValues;\r\n    xdsAnrufFBox.AfterLoadDFMValues;\r\n    xdsAnrufabrechnen.AfterLoadDFMValues;\r\n    xdsAnrufAbgerechnetAm.AfterLoadDFMValues;\r\n    xdsAnrufStundensatz.AfterLoadDFMValues;\r\n    xdsAnrufKosten.AfterLoadDFMValues;\r\n    xdsAnruferstellt.AfterLoadDFMValues;\r\n    xdsAnrufgeaendert.AfterLoadDFMValues;\r\n    xdsAnrufAnrufArtText.AfterLoadDFMValues;\r\n    sourceAnruf.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.","unit unit_Anrufe;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Data.DB, WEBLib.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, XData.Web.Connection, Vcl.Controls, Vcl.StdCtrls,\r\n  WEBLib.StdCtrls, WEBLib.ExtCtrls, Vcl.Grids, WEBLib.DBCtrls, VCL.TMSFNCTypes,\r\n  VCL.TMSFNCUtils, VCL.TMSFNCGraphics, VCL.TMSFNCGraphicsTypes,\r\n  VCL.TMSFNCCustomControl, VCL.TMSFNCTableView, WEBLib.Buttons, WEBLib.Grids,\r\n  WEBLib.FlexControls, WEBLib.WebCtrls;\r\n\r\ntype\r\n  TfrmAnrufe = class(TForm)\r\n    xdsAnrufe: TXDataWebDataSet;\r\n    xdsAnrufeID: TStringField;\r\n    xdsAnrufeAnrufTyp: TIntegerField;\r\n    xdsAnrufeDatum: TDateTimeField;\r\n    xdsAnrufeRufnummer: TStringField;\r\n    xdsAnrufeNameFritzBox: TStringField;\r\n    xdsAnrufeNebenstelle: TStringField;\r\n    xdsAnrufeAnrufArt: TStringField;\r\n    xdsAnrufeDauer: TDateTimeField;\r\n    xdsAnrufeKundennummer: TStringField;\r\n    xdsAnrufeTeilnehmer: TStringField;\r\n    xdsAnrufeNotiz: TStringField;\r\n    xdsAnrufebis: TDateTimeField;\r\n    xdsAnrufeDauerMinuten: TIntegerField;\r\n    xdsAnrufeJahr: TIntegerField;\r\n    xdsAnrufeMonat: TIntegerField;\r\n    xdsAnrufeTag: TIntegerField;\r\n    xdsAnrufeMonatJahr: TDateTimeField;\r\n    xdsAnrufeDatumKurz: TDateTimeField;\r\n    xdsAnrufeAPID: TStringField;\r\n    xdsAnrufeFBox: TStringField;\r\n    xdsAnrufeabrechnen: TBooleanField;\r\n    xdsAnrufeAbgerechnetAm: TDateTimeField;\r\n    xdsAnrufeStundensatz: TFloatField;\r\n    xdsAnrufeKosten: TFloatField;\r\n    xdsAnrufeerstellt: TDateTimeField;\r\n    xdsAnrufegeaendert: TDateTimeField;\r\n    xdsAnrufeAnrufArtText: TStringField;\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    Container3: THTMLContainer;\r\n    btnzurueck: TButton;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure xdsAnrufeCalcFields(DataSet: TDataSet);\r\n    procedure xdsAnrufeAfterOpen(DataSet: TDataSet);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n\r\n    public\r\n    EinzelCard:THTMLDiv;\r\n    procedure EinzelCardclick(Sender:TObject);\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  frmAnrufe: TfrmAnrufe;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_EinzelAnruf;\r\n{$R *.dfm}\r\n\r\nprocedure TfrmAnrufe.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  xdsAnrufe.Close;\r\n  self.close;\r\nend;\r\n\r\n\r\nprocedure TfrmAnrufe.EinzelCardclick(Sender:TObject);\r\nvar\r\n  EinzelAnruf:TEinzelAnruf;\r\n  MyMerkerAnruf:string;\r\nbegin\r\n  myMerkerAnruf:=(sender as THTMLDiv).hint;\r\n  Container3.HTML.text:='';\r\n  EinzelAnruf := TEinzelAnruf.CreateNew(procedure(AForm: TObject)\r\n    begin\r\n      (AForm as TEinzelAnruf).MerkerAnruf:=myMerkerAnruf;\r\n    end\r\n    );\r\n\r\n  EinzelAnruf.ShowModal(procedure(AValue: TModalResult)\r\n    begin\r\n      xdsAnrufe.close;\r\n      xdsAnrufe.Load;\r\n    end\r\n    );\r\nend;\r\n\r\n\r\n\r\nprocedure TfrmAnrufe.WebFormShow(Sender: TObject);\r\nbegin\r\n  xdsAnrufe.Load;\r\nend;\r\n\r\nprocedure TfrmAnrufe.xdsAnrufeAfterOpen(DataSet: TDataSet);\r\nvar\r\n  myelement:TJSHTMLElement;\r\n  EinzelKarte:string;\r\nbegin\r\n  xdsanrufe.First;\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Anrufe</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  container2.ParentElement:=myelement;\r\n  Container3.ParentElement:=myelement;\r\n  Container2.HTML.Text:='';\r\n\r\n  while not xdsanrufe.eof do\r\n  begin\r\n    Einzelkarte:='<div class=\"card-header\"><h5>'+formatdatetime('DD.MM.YYYY hh:mm:ss',xdsAnrufeDatum.asdatetime)+'<br>' +xdsAnrufeRufnummer.asstring+'</h5></div>';\r\n    Einzelkarte:=Einzelkarte+'<div class=\"card-body \"><h4>'+xdsAnrufeTeilnehmer.asstring+'</h4><br>';\r\n    Einzelkarte:=Einzelkarte+'<i>'+xdsAnrufeAnrufArtText.asstring+'</i><br>';\r\n    Einzelkarte:=Einzelkarte+'Dauer: '+xdsAnrufeDauerMinuten.asstring+' Minuten<br>';\r\n    Einzelkarte:=Einzelkarte+'Nebenstelle: '+xdsAnrufeNebenstelle.asstring+'<br>';\r\n    Einzelkarte:=Einzelkarte+'Kundennummer: '+xdsAnrufeKundennummer.asstring+'<br>';\r\n    Einzelkarte:=Einzelkarte+xdsAnrufeNotiz.asstring;\r\n    if xdsAnrufeRufnummer.Asstring<>'' then Einzelkarte:=Einzelkarte+'<a href=\"tel:'+xdsAnrufeRufnummer.Asstring+'\">anrufen</a>';\r\n    Einzelkarte:=Einzelkarte+'</div>';\r\n\r\n    myelement:=Container3.ElementHandle;\r\n    EinzelCard:=THTMLDiv.Create(self);\r\n    EinzelCard.ElementID:=xdsanrufeid.asstring;\r\n    EinzelCard.HeightStyle:=ssauto;\r\n    EinzelCard.WidthStyle:=ssPercent;\r\n    EinzelCard.hint:=xdsAnrufeID.asstring;\r\n    EinzelCard.HTML.Text:=Einzelkarte;\r\n    EinzelCard.ElementClassName:='card m-1 border-info';\r\n    EinzelCard.OnClick:=@EinzelCardClick;\r\n    EinzelCard.ParentElement:=myelement;\r\n\r\n    xdsanrufe.Next;\r\n  end;\r\nend;\r\n\r\nprocedure TfrmAnrufe.xdsAnrufeCalcFields(DataSet: TDataSet);\r\nbegin\r\n  try\r\n    if xdsAnrufeAnrufTyp.AsInteger=1 then xdsAnrufeAnrufArtText.AsString:='eingehend';\r\n    if xdsAnrufeAnrufTyp.AsInteger=2 then xdsAnrufeAnrufArtText.AsString:='verpasst';\r\n    if xdsAnrufeAnrufTyp.AsInteger=3 then xdsAnrufeAnrufArtText.AsString:='nicht erreicht';\r\n    if xdsAnrufeAnrufTyp.AsInteger=4 then xdsAnrufeAnrufArtText.AsString:='ausgehend';\r\n  except\r\n  end;\r\nend;\r\n\r\nprocedure TfrmAnrufe.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  xdsAnrufe := TXDataWebDataSet.Create(Self);\r\n  xdsAnrufeID := TStringField.Create(Self);\r\n  xdsAnrufeAnrufTyp := TIntegerField.Create(Self);\r\n  xdsAnrufeDatum := TDateTimeField.Create(Self);\r\n  xdsAnrufeRufnummer := TStringField.Create(Self);\r\n  xdsAnrufeNameFritzBox := TStringField.Create(Self);\r\n  xdsAnrufeNebenstelle := TStringField.Create(Self);\r\n  xdsAnrufeAnrufArt := TStringField.Create(Self);\r\n  xdsAnrufeDauer := TDateTimeField.Create(Self);\r\n  xdsAnrufeKundennummer := TStringField.Create(Self);\r\n  xdsAnrufeTeilnehmer := TStringField.Create(Self);\r\n  xdsAnrufeNotiz := TStringField.Create(Self);\r\n  xdsAnrufebis := TDateTimeField.Create(Self);\r\n  xdsAnrufeDauerMinuten := TIntegerField.Create(Self);\r\n  xdsAnrufeJahr := TIntegerField.Create(Self);\r\n  xdsAnrufeMonat := TIntegerField.Create(Self);\r\n  xdsAnrufeTag := TIntegerField.Create(Self);\r\n  xdsAnrufeMonatJahr := TDateTimeField.Create(Self);\r\n  xdsAnrufeDatumKurz := TDateTimeField.Create(Self);\r\n  xdsAnrufeAPID := TStringField.Create(Self);\r\n  xdsAnrufeFBox := TStringField.Create(Self);\r\n  xdsAnrufeabrechnen := TBooleanField.Create(Self);\r\n  xdsAnrufeAbgerechnetAm := TDateTimeField.Create(Self);\r\n  xdsAnrufeStundensatz := TFloatField.Create(Self);\r\n  xdsAnrufeKosten := TFloatField.Create(Self);\r\n  xdsAnrufeerstellt := TDateTimeField.Create(Self);\r\n  xdsAnrufegeaendert := TDateTimeField.Create(Self);\r\n  xdsAnrufeAnrufArtText := TStringField.Create(Self);\r\n\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  xdsAnrufe.BeforeLoadDFMValues;\r\n  xdsAnrufeID.BeforeLoadDFMValues;\r\n  xdsAnrufeAnrufTyp.BeforeLoadDFMValues;\r\n  xdsAnrufeDatum.BeforeLoadDFMValues;\r\n  xdsAnrufeRufnummer.BeforeLoadDFMValues;\r\n  xdsAnrufeNameFritzBox.BeforeLoadDFMValues;\r\n  xdsAnrufeNebenstelle.BeforeLoadDFMValues;\r\n  xdsAnrufeAnrufArt.BeforeLoadDFMValues;\r\n  xdsAnrufeDauer.BeforeLoadDFMValues;\r\n  xdsAnrufeKundennummer.BeforeLoadDFMValues;\r\n  xdsAnrufeTeilnehmer.BeforeLoadDFMValues;\r\n  xdsAnrufeNotiz.BeforeLoadDFMValues;\r\n  xdsAnrufebis.BeforeLoadDFMValues;\r\n  xdsAnrufeDauerMinuten.BeforeLoadDFMValues;\r\n  xdsAnrufeJahr.BeforeLoadDFMValues;\r\n  xdsAnrufeMonat.BeforeLoadDFMValues;\r\n  xdsAnrufeTag.BeforeLoadDFMValues;\r\n  xdsAnrufeMonatJahr.BeforeLoadDFMValues;\r\n  xdsAnrufeDatumKurz.BeforeLoadDFMValues;\r\n  xdsAnrufeAPID.BeforeLoadDFMValues;\r\n  xdsAnrufeFBox.BeforeLoadDFMValues;\r\n  xdsAnrufeabrechnen.BeforeLoadDFMValues;\r\n  xdsAnrufeAbgerechnetAm.BeforeLoadDFMValues;\r\n  xdsAnrufeStundensatz.BeforeLoadDFMValues;\r\n  xdsAnrufeKosten.BeforeLoadDFMValues;\r\n  xdsAnrufeerstellt.BeforeLoadDFMValues;\r\n  xdsAnrufegeaendert.BeforeLoadDFMValues;\r\n  xdsAnrufeAnrufArtText.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'frmAnrufe';\r\n    Width := 172;\r\n    Height := 223;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    FormStyle := fsStayOnTop;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ChildOrder := 2;\r\n    Container1.ElementFont := efCSS;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 5;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 5;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 8;\r\n    btnzurueck.Top := 148;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    xdsAnrufe.SetParentComponent(Self);\r\n    xdsAnrufe.Name := 'xdsAnrufe';\r\n    xdsAnrufe.AfterOpen := xdsAnrufeAfterOpen;\r\n    SetEvent(xdsAnrufe, Self, 'OnCalcFields', 'xdsAnrufeCalcFields');\r\n    xdsAnrufe.EntitySetName := 'FritzBoxAnrufe';\r\n    xdsAnrufe.Connection := DM2.XDataWebConnection1;\r\n    xdsAnrufe.QueryString := '$orderby=Datum DESC';\r\n    xdsAnrufe.QueryTop := 100;\r\n    xdsAnrufe.Left := 13;\r\n    xdsAnrufe.Top := 109;\r\n    xdsAnrufeID.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufeID.Name := 'xdsAnrufeID';\r\n    xdsAnrufeID.FieldName := 'ID';\r\n    xdsAnrufeID.Required := True;\r\n    xdsAnrufeID.Size := 38;\r\n    xdsAnrufeAnrufTyp.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufeAnrufTyp.Name := 'xdsAnrufeAnrufTyp';\r\n    xdsAnrufeAnrufTyp.FieldName := 'AnrufTyp';\r\n    xdsAnrufeDatum.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufeDatum.Name := 'xdsAnrufeDatum';\r\n    xdsAnrufeDatum.FieldName := 'Datum';\r\n    xdsAnrufeRufnummer.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufeRufnummer.Name := 'xdsAnrufeRufnummer';\r\n    xdsAnrufeRufnummer.FieldName := 'Rufnummer';\r\n    xdsAnrufeRufnummer.Size := 50;\r\n    xdsAnrufeNameFritzBox.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufeNameFritzBox.Name := 'xdsAnrufeNameFritzBox';\r\n    xdsAnrufeNameFritzBox.FieldName := 'NameFritzBox';\r\n    xdsAnrufeNameFritzBox.Size := 50;\r\n    xdsAnrufeNebenstelle.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufeNebenstelle.Name := 'xdsAnrufeNebenstelle';\r\n    xdsAnrufeNebenstelle.FieldName := 'Nebenstelle';\r\n    xdsAnrufeNebenstelle.Size := 50;\r\n    xdsAnrufeAnrufArt.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufeAnrufArt.Name := 'xdsAnrufeAnrufArt';\r\n    xdsAnrufeAnrufArt.FieldName := 'AnrufArt';\r\n    xdsAnrufeAnrufArt.Size := 50;\r\n    xdsAnrufeDauer.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufeDauer.Name := 'xdsAnrufeDauer';\r\n    xdsAnrufeDauer.FieldName := 'Dauer';\r\n    xdsAnrufeKundennummer.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufeKundennummer.Name := 'xdsAnrufeKundennummer';\r\n    xdsAnrufeKundennummer.FieldName := 'Kundennummer';\r\n    xdsAnrufeKundennummer.Size := 13;\r\n    xdsAnrufeTeilnehmer.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufeTeilnehmer.Name := 'xdsAnrufeTeilnehmer';\r\n    xdsAnrufeTeilnehmer.FieldName := 'Teilnehmer';\r\n    xdsAnrufeTeilnehmer.Size := 150;\r\n    xdsAnrufeNotiz.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufeNotiz.Name := 'xdsAnrufeNotiz';\r\n    xdsAnrufeNotiz.FieldName := 'Notiz';\r\n    xdsAnrufeNotiz.Size := 255;\r\n    xdsAnrufebis.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufebis.Name := 'xdsAnrufebis';\r\n    xdsAnrufebis.FieldName := 'bis';\r\n    xdsAnrufeDauerMinuten.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufeDauerMinuten.Name := 'xdsAnrufeDauerMinuten';\r\n    xdsAnrufeDauerMinuten.FieldName := 'DauerMinuten';\r\n    xdsAnrufeJahr.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufeJahr.Name := 'xdsAnrufeJahr';\r\n    xdsAnrufeJahr.FieldName := 'Jahr';\r\n    xdsAnrufeMonat.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufeMonat.Name := 'xdsAnrufeMonat';\r\n    xdsAnrufeMonat.FieldName := 'Monat';\r\n    xdsAnrufeTag.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufeTag.Name := 'xdsAnrufeTag';\r\n    xdsAnrufeTag.FieldName := 'Tag';\r\n    xdsAnrufeMonatJahr.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufeMonatJahr.Name := 'xdsAnrufeMonatJahr';\r\n    xdsAnrufeMonatJahr.FieldName := 'MonatJahr';\r\n    xdsAnrufeDatumKurz.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufeDatumKurz.Name := 'xdsAnrufeDatumKurz';\r\n    xdsAnrufeDatumKurz.FieldName := 'DatumKurz';\r\n    xdsAnrufeAPID.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufeAPID.Name := 'xdsAnrufeAPID';\r\n    xdsAnrufeAPID.FieldName := 'APID';\r\n    xdsAnrufeAPID.Size := 38;\r\n    xdsAnrufeFBox.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufeFBox.Name := 'xdsAnrufeFBox';\r\n    xdsAnrufeFBox.FieldName := 'FBox';\r\n    xdsAnrufeFBox.Size := 50;\r\n    xdsAnrufeabrechnen.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufeabrechnen.Name := 'xdsAnrufeabrechnen';\r\n    xdsAnrufeabrechnen.FieldName := 'abrechnen';\r\n    xdsAnrufeAbgerechnetAm.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufeAbgerechnetAm.Name := 'xdsAnrufeAbgerechnetAm';\r\n    xdsAnrufeAbgerechnetAm.FieldName := 'AbgerechnetAm';\r\n    xdsAnrufeStundensatz.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufeStundensatz.Name := 'xdsAnrufeStundensatz';\r\n    xdsAnrufeStundensatz.FieldName := 'Stundensatz';\r\n    xdsAnrufeKosten.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufeKosten.Name := 'xdsAnrufeKosten';\r\n    xdsAnrufeKosten.FieldName := 'Kosten';\r\n    xdsAnrufeerstellt.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufeerstellt.Name := 'xdsAnrufeerstellt';\r\n    xdsAnrufeerstellt.FieldName := 'erstellt';\r\n    xdsAnrufegeaendert.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufegeaendert.Name := 'xdsAnrufegeaendert';\r\n    xdsAnrufegeaendert.FieldName := 'geaendert';\r\n    xdsAnrufeAnrufArtText.SetParentComponent(xdsAnrufe);\r\n    xdsAnrufeAnrufArtText.Name := 'xdsAnrufeAnrufArtText';\r\n    xdsAnrufeAnrufArtText.FieldKind := fkCalculated;\r\n    xdsAnrufeAnrufArtText.FieldName := 'AnrufArtText';\r\n    xdsAnrufeAnrufArtText.Calculated := True;\r\n  finally\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    xdsAnrufe.AfterLoadDFMValues;\r\n    xdsAnrufeID.AfterLoadDFMValues;\r\n    xdsAnrufeAnrufTyp.AfterLoadDFMValues;\r\n    xdsAnrufeDatum.AfterLoadDFMValues;\r\n    xdsAnrufeRufnummer.AfterLoadDFMValues;\r\n    xdsAnrufeNameFritzBox.AfterLoadDFMValues;\r\n    xdsAnrufeNebenstelle.AfterLoadDFMValues;\r\n    xdsAnrufeAnrufArt.AfterLoadDFMValues;\r\n    xdsAnrufeDauer.AfterLoadDFMValues;\r\n    xdsAnrufeKundennummer.AfterLoadDFMValues;\r\n    xdsAnrufeTeilnehmer.AfterLoadDFMValues;\r\n    xdsAnrufeNotiz.AfterLoadDFMValues;\r\n    xdsAnrufebis.AfterLoadDFMValues;\r\n    xdsAnrufeDauerMinuten.AfterLoadDFMValues;\r\n    xdsAnrufeJahr.AfterLoadDFMValues;\r\n    xdsAnrufeMonat.AfterLoadDFMValues;\r\n    xdsAnrufeTag.AfterLoadDFMValues;\r\n    xdsAnrufeMonatJahr.AfterLoadDFMValues;\r\n    xdsAnrufeDatumKurz.AfterLoadDFMValues;\r\n    xdsAnrufeAPID.AfterLoadDFMValues;\r\n    xdsAnrufeFBox.AfterLoadDFMValues;\r\n    xdsAnrufeabrechnen.AfterLoadDFMValues;\r\n    xdsAnrufeAbgerechnetAm.AfterLoadDFMValues;\r\n    xdsAnrufeStundensatz.AfterLoadDFMValues;\r\n    xdsAnrufeKosten.AfterLoadDFMValues;\r\n    xdsAnrufeerstellt.AfterLoadDFMValues;\r\n    xdsAnrufegeaendert.AfterLoadDFMValues;\r\n    xdsAnrufeAnrufArtText.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit unit_Terminkalender;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, VCL.TMSFNCTypes, VCL.TMSFNCUtils,\r\n  VCL.TMSFNCGraphics, VCL.TMSFNCGraphicsTypes, Data.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, WEBLib.DB, Vcl.StdCtrls,\r\n  WEBLib.StdCtrls, Vcl.Controls, VCL.TMSFNCCustomControl,\r\n  WEBLib.ExtCtrls, dateutils, WEBLib.Buttons, WEBLib.Grids, WEBLib.DBCtrls, WEBLib.WebCtrls,\r\n  DB;\r\n\r\ntype\r\n  TTerminkalender = class(TForm)\r\n    sourceTermine: TDataSource;\r\n    XDTermine: TXDataWebDataSet;\r\n    XDTermineUID: TStringField;\r\n    XDTermineBeginn: TDateTimeField;\r\n    XDTermineEnde: TDateTimeField;\r\n    XDTermineBetreff: TStringField;\r\n    XDTermineColor: TIntegerField;\r\n    XDTermineAlarm: TBooleanField;\r\n    XDTerminePersonalnummer: TIntegerField;\r\n    XDTermineTerminArt: TIntegerField;\r\n    XDTermineBeginnDatum: TDateTimeField;\r\n    XDTermineBeginnUhrzeit: TDateTimeField;\r\n    XDTermineEndeDatum: TDateTimeField;\r\n    XDTermineEndeUhrzeit: TDateTimeField;\r\n    XDTerminePNachname: TStringField;\r\n    XDTerminePVorname: TStringField;\r\n    XDTerminePFarbe: TIntegerField;\r\n    TC: TTableControl;\r\n    comboMonat: TComboBox;\r\n    comboJahr: TComboBox;\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    btnzurueck: TButton;\r\n    Container3: THTMLContainer;\r\n    lblhinweis: TLabel;\r\n    XDTermineAuftrag: TStringField;\r\n    XDTermineTerminNotiz: TStringField;\r\n    XDTermineKundennummer: TStringField;\r\n    XDTermineNachname: TStringField;\r\n    XDTermineKontaktart: TStringField;\r\n    XDTermineVorname: TStringField;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure XDTermineAfterOpen(DataSet: TDataSet);\r\n    procedure comboMonatChange(Sender: TObject);\r\n    procedure comboJahrChange(Sender: TObject);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    NeuerTermin:THTMLDiv;\r\n    einzeltermin:THTMLDiv;\r\n    buttonauftragnummer:TButton;\r\n    procedure Termineladen;\r\n    procedure NeuerTerminclick(Sender:TObject);\r\n    procedure einzelterminclick(Sender:TObject);\r\n    procedure buttonauftragnummerclick(Sender:TObject);\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  Terminkalender: TTerminkalender;\r\n  Startdatum:TDateTime;\r\n  EndeDatum:TDateTime;\r\n  mymonat:integer;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_artikelsuche, unit_kontaktsuche, unit_einzeltermin, unit_Objektsuche, unit_Einzelauftrag;\r\n{$R *.dfm}\r\n\r\n\r\nprocedure TTerminkalender.buttonauftragnummerclick(Sender:TObject);\r\nvar\r\n  EinzelAuftrag:TEinzelAuftrag;\r\n  MyMerkerAuftrag:string;\r\nbegin\r\n  myMerkerAuftrag:=(sender as TButton).Caption;\r\n  EinzelAuftrag := TEinzelAuftrag.CreateNew(procedure(AForm: TObject)\r\n    begin\r\n      (AForm as TEinzelAuftrag).MerkerAuftrag:=myMerkerAuftrag;\r\n      tc.Visible:=false;\r\n    end\r\n    );\r\n\r\n  EinzelAuftrag.ShowModal(procedure(AValue: TModalResult)\r\n    begin\r\n     Termineladen;\r\n    end\r\n    );\r\nend;\r\n\r\nprocedure TTerminkalender.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  XDTermine.Close;\r\n  self.Close;\r\nend;\r\n\r\nprocedure TTerminkalender.comboJahrChange(Sender: TObject);\r\nbegin\r\n  Termineladen;\r\nend;\r\n\r\nprocedure TTerminkalender.comboMonatChange(Sender: TObject);\r\nbegin\r\n  Termineladen;\r\nend;\r\n\r\nprocedure TTerminkalender.einzelterminclick(Sender:TObject);\r\n  var\r\n  LFrm:TfrmEinzeltermin;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmEinzeltermin;\r\n    begin\r\n      LForm:=(AForm as TfrmEinzeltermin);\r\n      lform.TerminUID:=(sender as THTMLDiv).ElementID;;\r\n      tc.Visible:=false;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      Termineladen;\r\n    end;\r\n\r\n  begin\r\n  LFrm:=TfrmEinzeltermin.CreateNew(@AfterCreate);\r\n  LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TTerminkalender.NeuerTerminclick(Sender:TObject);\r\n    var\r\n  LFrm:TfrmEinzeltermin;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmEinzeltermin;\r\n    begin\r\n      LForm:=(AForm as TfrmEinzeltermin);\r\n      lform.TerminUID:='';\r\n      decodedatetime(date+time,ajahr,amonat,atag,astunde,aminute,asekunde,ams);\r\n      decodedate((sender as THTMLDiv).Tag,ajahr,amonat,atag);\r\n      lform.NeuStartDateTime:=encodedatetime(ajahr, amonat,atag,astunde,0,0,0);\r\n      lform.NeuEndDateTime:=encodedatetime(ajahr, amonat,atag,astunde+1,0,0,0);\r\n      tc.Visible:=false;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      Termineladen;\r\n    end;\r\n\r\n  begin\r\n  LFrm:=TfrmEinzeltermin.CreateNew(@AfterCreate);\r\n  LFrm.ShowModal(@AfterShowmodal);\r\nend;\r\n\r\nprocedure TTerminkalender.Termineladen;\r\nbegin\r\n  if combomonat.ItemIndex=0 then\r\n  begin\r\n    Startdatum:=date;\r\n    mymonat:=MonthOf(Startdatum);\r\n    EndeDatum:=EndOfTheMonth(Startdatum);\r\n  end\r\n  else\r\n  begin\r\n    mymonat:=combomonat.ItemIndex;\r\n    Startdatum:=encodedate(strtoint(combojahr.Text),mymonat,1);\r\n    EndeDatum:=EndOfTheMonth(Startdatum);\r\n  end;\r\n  xdtermine.Close;\r\n  if form1.RCW.NurPersTermine=true then\r\n  begin\r\n    xdtermine.QueryString:='$Filter=(Beginn ge '+formatdatetime('yyyy-mm-dd',Startdatum-1)+') AND (Beginn le '+formatdatetime('yyyy-mm-dd',endedatum+1)+') AND (Personalnummer eq '+BenutzerPersonalnummer+') &$orderby=Beginn';\r\n  end\r\n  else\r\n  begin\r\n    xdtermine.QueryString:='$Filter=(Beginn ge '+formatdatetime('yyyy-mm-dd',Startdatum-1)+') AND (Beginn le '+formatdatetime('yyyy-mm-dd',endedatum+1)+') &$orderby=Beginn';\r\n  end;\r\n\r\n  XDTermine.Load;\r\nend;\r\n\r\nprocedure TTerminkalender.WebFormShow(Sender: TObject);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Terminübersicht</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  container2.ParentElement:=myelement;\r\n  Container3.ParentElement:=myelement;\r\n  myelement:=container2.ElementHandle;\r\n  lblhinweis.ParentElement:=myelement;\r\n  comboJahr.ParentElement:=myelement;\r\n  comboMonat.ParentElement:=myelement;\r\n  comboJahr.Items.Clear;\r\n  decodedate(date,ajahr,amonat,atag);\r\n  mymonat:=amonat;\r\n  combojahr.Items.Add(inttostr(ajahr-5));\r\n  combojahr.Items.Add(inttostr(ajahr-4));\r\n  combojahr.Items.Add(inttostr(ajahr-3));\r\n  combojahr.Items.Add(inttostr(ajahr-2));\r\n  combojahr.Items.Add(inttostr(ajahr-1));\r\n  combojahr.Items.Add(inttostr(ajahr));\r\n  combojahr.Items.Add(inttostr(ajahr+1));\r\n  combojahr.Items.Add(inttostr(ajahr+2));\r\n  combojahr.Items.Add(inttostr(ajahr+3));\r\n  combojahr.Items.Add(inttostr(ajahr+4));\r\n  combojahr.Items.Add(inttostr(ajahr+5));\r\n  combojahr.ItemIndex:=5;\r\n  combomonat.ItemIndex:=0;\r\n  myelement:=container3.ElementHandle;\r\n  tc.ParentElement:=myelement;\r\n  Termineladen;\r\nend;\r\n\r\nprocedure TTerminkalender.XDTermineAfterOpen(DataSet: TDataSet);\r\nvar\r\n  i:integer;\r\n  terminstring:string;\r\n  myelement:TJSHTMLElement;\r\n  mybtnelement:TJSHTMLElement;\r\n  laufendesdatum:TDateTime;\r\n  myTag:integer;\r\n  farbstring:string;\r\n  mystarttag:integer;\r\nbegin\r\n  TC.Visible:=true;\r\n  TC.RowCount:=35;\r\n  TC.ColCount:=1;\r\n  i:=0;\r\n  TC.Cells[0,i]:='<i>Neuer Termin > Tagesdatum anklicken</i><br>';\r\n  inc(i);\r\n\r\n  laufendesdatum:=Startdatum;\r\n  while laufendesdatum<endedatum do\r\n  begin\r\n\r\n    myelement:=TC.cellelements[0,i];\r\n    myelement.innerHTML:='';\r\n    NeuerTermin:=THTMLDiv.Create(self);\r\n\r\n    NeuerTermin.HeightStyle:=ssauto;\r\n    NeuerTermin.WidthStyle:=ssauto;\r\n    NeuerTermin.tag:=trunc(laufendesdatum);\r\n    NeuerTermin.ElementID:=inttostr(trunc(laufendesdatum));\r\n    if DayOfTheWeek(laufendesdatum)>5 then\r\n    begin\r\n      NeuerTermin.ElementClassName:='text-danger';\r\n      NeuerTermin.HTML.Text:= '<b>'+formatdatetime('DDD DD.MM.YYYY',laufendesdatum)+'</b>';\r\n    end\r\n    else\r\n    begin\r\n      NeuerTermin.ElementClassName:='text-dark';\r\n      NeuerTermin.HTML.Text:= '<b>'+formatdatetime('DDD DD.MM.YYYY',laufendesdatum)+'</b>';\r\n    end;\r\n\r\n    NeuerTermin.OnClick:=@NeuerTerminClick;\r\n    NeuerTermin.ParentElement:=myelement;\r\n\r\n\r\n    laufendesdatum:=laufendesdatum+1;\r\n    inc(i);\r\n\r\n  end;\r\n  TC.RowCount:=i;\r\n  mystarttag:=DayOf(startdatum)-1;\r\n  xdtermine.First;\r\n  while not xdtermine.eof do\r\n  begin\r\n    DecodeDateTime(xdterminebeginn.asdatetime,ajahr,amonat,atag,astunde,aminute,asekunde,ams);\r\n    mytag:=atag-mystarttag;\r\n    if (amonat=mymonat) and (mytag>0) then\r\n    begin\r\n      // Termin (0)\r\n      if XDTermineTerminArt.AsInteger=0 then\r\n      begin\r\n        terminstring:='<div class=\"card-header\">';\r\n        If trunc(XDTermineBeginn.AsDateTime)=trunc(XDTermineEnde.AsDateTime) then\r\n        begin\r\n          terminstring:=terminstring+formatdatetime('DDD DD.MM.YYYY hh:mm',XDTermineBeginn.Asdatetime)+' - '+formatdatetime('hh:mm',XDTermineEndeUhrzeit.Asdatetime);\r\n\r\n        end\r\n        else\r\n        begin\r\n          terminstring:=terminstring+formatdatetime('DDD DD.MM.YYYY hh:mm',XDTermineBeginn.Asdatetime)+' - '+formatdatetime('DDD DD.MM.YYYY hh:mm',XDTermineEnde.Asdatetime);\r\n        end;\r\n        terminstring:=terminstring+'</div>';\r\n        terminstring:=terminstring+'<div class=\"card-body\">';\r\n        terminstring:=terminstring+'<h6>'+XDTermineBetreff.AsString+'</h6>';\r\n        if XDTermineTerminNotiz.AsString<>'' then\r\n        begin\r\n          terminstring:=terminstring+XDTermineTerminNotiz.AsString;\r\n        end;\r\n        if (XDTerminePersonalnummer.AsString<>'') AND (xdterminePersonalnummer.AsInteger>0) then\r\n        begin\r\n          farbstring:=inttohex(XDTerminePFarbe.asinteger,6);\r\n          farbstring := Copy(farbstring, 5, 2) + Copy(farbstring, 3, 2) + Copy(farbstring, 1, 2);\r\n          terminstring:=terminstring+'</div>';\r\n          terminstring:=terminstring+'<div class=\"card-footer\" style=\"background-color: #'+farbstring+';\">';\r\n          terminstring:=terminstring+XDTerminePersonalnummer.AsString+' | '+xdterminePVorname.asstring+' '+XDTerminePNachname.asstring;\r\n        end;\r\n\r\n\r\n\r\n        myelement:=TC.cellelements[0,mytag];\r\n        einzeltermin:=THTMLDiv.Create(self);\r\n        einzeltermin.ElementID:=xdtermineuid.asstring;\r\n        einzeltermin.HeightStyle:=ssauto;\r\n        einzeltermin.Width:=350;\r\n        einzeltermin.AlignWithMargins:=true;\r\n        einzeltermin.HTML.Text:=terminstring;\r\n        einzeltermin.ElementClassName:='card my-2 bg-info';\r\n        Einzeltermin.OnClick:=@EinzelterminClick;\r\n        einzeltermin.ParentElement:=myelement;\r\n        if XDTermineAuftrag.AsString<>'' then\r\n        begin\r\n          buttonauftragnummer:=TButton.Create(self);\r\n          buttonauftragnummer.ElementClassName:='btn btn-success btn-sm m-1 text-left';\r\n          buttonauftragnummer.HeightStyle:=ssauto;\r\n          buttonauftragnummer.Width:=120;\r\n          buttonauftragnummer.tag:=0;\r\n          buttonauftragnummer.Caption:=XDTermineAuftrag.asstring;\r\n          buttonauftragnummer.OnClick:=@buttonauftragnummerClick;\r\n          buttonauftragnummer.ParentElement:=einzeltermin.ElementHandle;\r\n        end;\r\n      end;\r\n      // Wiedervorlage (1)\r\n      if XDTermineTerminArt.AsInteger=1 then\r\n      begin\r\n        terminstring:='<I>Wiedervorlage</I>'+ XDTermineBetreff.AsString;\r\n        if XDTermineTerminNotiz.AsString<>'' then\r\n        begin\r\n          terminstring:=terminstring+'<br>'+XDTermineTerminNotiz.AsString;\r\n\r\n        end;\r\n        terminstring:=terminstring+'<br>'+XDTermineKundennummer.AsString+' '+XDTermineNachname.AsString;\r\n        myelement:=TC.cellelements[0,mytag];\r\n        einzeltermin:=THTMLDiv.Create(self);\r\n        einzeltermin.ElementID:=xdtermineuid.asstring;\r\n        einzeltermin.HeightStyle:=ssauto;\r\n        einzeltermin.Width:=350;\r\n        einzeltermin.AlignWithMargins:=true;\r\n        einzeltermin.HTML.Text:=terminstring;\r\n        einzeltermin.ElementClassName:='card my-2 bg-success';\r\n        Einzeltermin.OnClick:=@EinzelterminClick;\r\n        einzeltermin.ParentElement:=myelement;\r\n      end;\r\n      //Geburtstag(2)\r\n      if XDTermineTerminArt.AsInteger=2 then\r\n      begin\r\n        terminstring:='<I>Geburtstag</I>'+ XDTermineBetreff.AsString;\r\n        myelement:=TC.cellelements[0,mytag];\r\n        einzeltermin:=THTMLDiv.Create(self);\r\n        einzeltermin.ElementID:=xdtermineuid.asstring;\r\n        einzeltermin.HeightStyle:=ssauto;\r\n        einzeltermin.Width:=350;\r\n        einzeltermin.AlignWithMargins:=true;\r\n        einzeltermin.HTML.Text:=terminstring;\r\n        einzeltermin.ElementClassName:='card my-2 bg-danger';\r\n        Einzeltermin.OnClick:=@EinzelterminClick;\r\n        einzeltermin.ParentElement:=myelement;\r\n      end;\r\n      // Aktivität (3)\r\n      if XDTermineTerminArt.AsInteger=3 then\r\n      begin\r\n        terminstring:='<I>Aktivität</I>';\r\n        If trunc(XDTermineBeginn.AsDateTime)=trunc(XDTermineEnde.AsDateTime) then\r\n        begin\r\n        terminstring:=terminstring+formatdatetime('DDD DD.MM.YYYY hh:mm',XDTermineBeginn.Asdatetime)+' - '+formatdatetime('hh:mm',XDTermineEndeUhrzeit.Asdatetime);\r\n        terminstring:=terminstring+'<br>'+ XDTermineBetreff.AsString+'<br>';\r\n        end\r\n        else\r\n        begin\r\n        terminstring:=formatdatetime('DDD DD.MM.YYYY hh:mm',XDTermineBeginn.Asdatetime)+' - '+formatdatetime('DDD DD.MM.YYYY hh:mm',XDTermineEnde.Asdatetime);\r\n        terminstring:=terminstring+'<br>'+ XDTermineBetreff.AsString+'<br>';\r\n        end;\r\n        if XDTermineTerminNotiz.AsString<>'' then\r\n        begin\r\n          terminstring:=terminstring+XDTermineTerminNotiz.AsString+'<br>';\r\n        end;\r\n        terminstring:=terminstring+'<br>'+XDTermineKundennummer.AsString+' '+XDTermineNachname.AsString;\r\n        terminstring:=terminstring+'<br>'+XDTermineKontaktart.AsString;\r\n        myelement:=TC.cellelements[0,mytag];\r\n        einzeltermin:=THTMLDiv.Create(self);\r\n        einzeltermin.ElementID:=xdtermineuid.asstring;\r\n        einzeltermin.HeightStyle:=ssauto;\r\n        einzeltermin.Width:=350;\r\n        einzeltermin.AlignWithMargins:=true;\r\n        einzeltermin.HTML.Text:=terminstring;\r\n        einzeltermin.ElementClassName:='card my-2 bg-primary';\r\n        Einzeltermin.OnClick:=@EinzelterminClick;\r\n        einzeltermin.ParentElement:=myelement;\r\n      end;\r\n      // Feiertag (5)\r\n      if XDTermineTerminArt.AsInteger=5 then\r\n      begin\r\n        myelement:=TC.cellelements[0,mytag];\r\n        myelement.innerHTML:='';\r\n        NeuerTermin:=THTMLDiv.Create(self);\r\n        NeuerTermin.HeightStyle:=ssauto;\r\n        NeuerTermin.WidthStyle:=ssauto;\r\n        NeuerTermin.tag:=trunc(XDTermineBeginn.Asdatetime);\r\n        NeuerTermin.ElementID:=inttostr(trunc(XDTermineBeginn.Asdatetime));\r\n        NeuerTermin.ElementClassName:='text-danger';\r\n        NeuerTermin.HTML.Text:='<b>'+formatdatetime('DDD DD.MM.YYYY',XDTermineBeginn.Asdatetime)+' '+XDTermineBetreff.AsString+'</b>';\r\n        NeuerTermin.OnClick:=@NeuerTerminClick;\r\n        NeuerTermin.ParentElement:=myelement;\r\n      end;\r\n\r\n    end;\r\n      xdtermine.Next;\r\n  end;\r\nend;\r\n\r\nprocedure TTerminkalender.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  lblhinweis := TLabel.Create(Self);\r\n  TC := TTableControl.Create(Self);\r\n  comboMonat := TComboBox.Create(Self);\r\n  comboJahr := TComboBox.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  sourceTermine := TDataSource.Create(Self);\r\n  XDTermine := TXDataWebDataSet.Create(Self);\r\n  XDTermineUID := TStringField.Create(Self);\r\n  XDTermineBeginn := TDateTimeField.Create(Self);\r\n  XDTermineEnde := TDateTimeField.Create(Self);\r\n  XDTermineBetreff := TStringField.Create(Self);\r\n  XDTermineColor := TIntegerField.Create(Self);\r\n  XDTermineAlarm := TBooleanField.Create(Self);\r\n  XDTerminePersonalnummer := TIntegerField.Create(Self);\r\n  XDTermineTerminArt := TIntegerField.Create(Self);\r\n  XDTermineBeginnDatum := TDateTimeField.Create(Self);\r\n  XDTermineBeginnUhrzeit := TDateTimeField.Create(Self);\r\n  XDTermineEndeDatum := TDateTimeField.Create(Self);\r\n  XDTermineEndeUhrzeit := TDateTimeField.Create(Self);\r\n  XDTerminePNachname := TStringField.Create(Self);\r\n  XDTerminePVorname := TStringField.Create(Self);\r\n  XDTerminePFarbe := TIntegerField.Create(Self);\r\n  XDTermineAuftrag := TStringField.Create(Self);\r\n  XDTermineTerminNotiz := TStringField.Create(Self);\r\n  XDTermineKundennummer := TStringField.Create(Self);\r\n  XDTermineNachname := TStringField.Create(Self);\r\n  XDTermineKontaktart := TStringField.Create(Self);\r\n  XDTermineVorname := TStringField.Create(Self);\r\n\r\n  lblhinweis.BeforeLoadDFMValues;\r\n  TC.BeforeLoadDFMValues;\r\n  comboMonat.BeforeLoadDFMValues;\r\n  comboJahr.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  sourceTermine.BeforeLoadDFMValues;\r\n  XDTermine.BeforeLoadDFMValues;\r\n  XDTermineUID.BeforeLoadDFMValues;\r\n  XDTermineBeginn.BeforeLoadDFMValues;\r\n  XDTermineEnde.BeforeLoadDFMValues;\r\n  XDTermineBetreff.BeforeLoadDFMValues;\r\n  XDTermineColor.BeforeLoadDFMValues;\r\n  XDTermineAlarm.BeforeLoadDFMValues;\r\n  XDTerminePersonalnummer.BeforeLoadDFMValues;\r\n  XDTermineTerminArt.BeforeLoadDFMValues;\r\n  XDTermineBeginnDatum.BeforeLoadDFMValues;\r\n  XDTermineBeginnUhrzeit.BeforeLoadDFMValues;\r\n  XDTermineEndeDatum.BeforeLoadDFMValues;\r\n  XDTermineEndeUhrzeit.BeforeLoadDFMValues;\r\n  XDTerminePNachname.BeforeLoadDFMValues;\r\n  XDTerminePVorname.BeforeLoadDFMValues;\r\n  XDTerminePFarbe.BeforeLoadDFMValues;\r\n  XDTermineAuftrag.BeforeLoadDFMValues;\r\n  XDTermineTerminNotiz.BeforeLoadDFMValues;\r\n  XDTermineKundennummer.BeforeLoadDFMValues;\r\n  XDTermineNachname.BeforeLoadDFMValues;\r\n  XDTermineKontaktart.BeforeLoadDFMValues;\r\n  XDTermineVorname.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'Terminkalender';\r\n    Width := 239;\r\n    Height := 484;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    lblhinweis.SetParentComponent(Self);\r\n    lblhinweis.Name := 'lblhinweis';\r\n    lblhinweis.Left := 128;\r\n    lblhinweis.Top := 160;\r\n    lblhinweis.Width := 255;\r\n    lblhinweis.Height := 15;\r\n    lblhinweis.Caption := 'lblhinweis';\r\n    lblhinweis.ElementClassName := 'h6 m-2';\r\n    lblhinweis.ElementFont := efCSS;\r\n    lblhinweis.ElementPosition := epIgnore;\r\n    lblhinweis.HeightStyle := ssAuto;\r\n    lblhinweis.HeightPercent := 100.000000000000000000;\r\n    lblhinweis.HTML := '<i> Jahr und Monat f'#252'r die Anzeige w'#228'hlen </i>';\r\n    lblhinweis.WidthStyle := ssAuto;\r\n    lblhinweis.WidthPercent := 100.000000000000000000;\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.Left := 8;\r\n    TC.Top := 256;\r\n    TC.Width := 217;\r\n    TC.Height := 134;\r\n    TC.ElementClassName := 'table table-sm table-hover table-bordered table-striped';\r\n    TC.HeightStyle := ssAuto;\r\n    TC.WidthStyle := ssPercent;\r\n    TC.BorderStyle := bsNone;\r\n    TC.BorderColor := clSilver;\r\n    TC.ChildOrder := 5;\r\n    TC.ColHeader := False;\r\n    TC.ElementFont := efCSS;\r\n    TC.ElementHeaderClassName := 'table-info';\r\n    TC.ElementPosition := epIgnore;\r\n    TC.ElementTableClassName := 'table table-sm table-hover table-bordered table-striped';\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 2;\r\n    comboMonat.SetParentComponent(Self);\r\n    comboMonat.Name := 'comboMonat';\r\n    comboMonat.Left := 8;\r\n    comboMonat.Top := 184;\r\n    comboMonat.Width := 145;\r\n    comboMonat.Height := 23;\r\n    comboMonat.ElementClassName := 'form-select';\r\n    comboMonat.ElementFont := efCSS;\r\n    comboMonat.ElementPosition := epIgnore;\r\n    comboMonat.HeightStyle := ssAuto;\r\n    comboMonat.HeightPercent := 100.000000000000000000;\r\n    comboMonat.Text := 'Ganzes Jahr';\r\n    comboMonat.WidthPercent := 100.000000000000000000;\r\n    SetEvent(comboMonat, Self, 'OnChange', 'comboMonatChange');\r\n    comboMonat.ItemIndex := -1;\r\n    comboMonat.Items.BeginUpdate;\r\n    try\r\n      comboMonat.Items.Clear;\r\n      comboMonat.Items.Add('ab heute');\r\n      comboMonat.Items.Add('Januar');\r\n      comboMonat.Items.Add('Februar');\r\n      comboMonat.Items.Add('M'#228'rz');\r\n      comboMonat.Items.Add('April');\r\n      comboMonat.Items.Add('Mai');\r\n      comboMonat.Items.Add('Juni');\r\n      comboMonat.Items.Add('Juli');\r\n      comboMonat.Items.Add('August');\r\n      comboMonat.Items.Add('September');\r\n      comboMonat.Items.Add('Oktober');\r\n      comboMonat.Items.Add('November');\r\n      comboMonat.Items.Add('Dezember');\r\n    finally\r\n      comboMonat.Items.EndUpdate;\r\n    end;\r\n    comboJahr.SetParentComponent(Self);\r\n    comboJahr.Name := 'comboJahr';\r\n    comboJahr.Left := 8;\r\n    comboJahr.Top := 211;\r\n    comboJahr.Width := 145;\r\n    comboJahr.Height := 23;\r\n    comboJahr.ElementClassName := 'form-select';\r\n    comboJahr.ElementFont := efCSS;\r\n    comboJahr.ElementPosition := epIgnore;\r\n    comboJahr.HeightStyle := ssAuto;\r\n    comboJahr.HeightPercent := 100.000000000000000000;\r\n    comboJahr.Text := '2020';\r\n    comboJahr.WidthPercent := 100.000000000000000000;\r\n    SetEvent(comboJahr, Self, 'OnChange', 'comboJahrChange');\r\n    comboJahr.ItemIndex := 5;\r\n    comboJahr.Items.BeginUpdate;\r\n    try\r\n      comboJahr.Items.Clear;\r\n      comboJahr.Items.Add('2015');\r\n      comboJahr.Items.Add('2016');\r\n      comboJahr.Items.Add('2017');\r\n      comboJahr.Items.Add('2018');\r\n      comboJahr.Items.Add('2019');\r\n      comboJahr.Items.Add('2020');\r\n      comboJahr.Items.Add('2021');\r\n      comboJahr.Items.Add('2022');\r\n    finally\r\n      comboJahr.Items.EndUpdate;\r\n    end;\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 8;\r\n    btnzurueck.Top := 153;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 2;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    sourceTermine.SetParentComponent(Self);\r\n    sourceTermine.Name := 'sourceTermine';\r\n    sourceTermine.DataSet := XDTermine;\r\n    sourceTermine.Left := 52;\r\n    sourceTermine.Top := 16;\r\n    XDTermine.SetParentComponent(Self);\r\n    XDTermine.Name := 'XDTermine';\r\n    XDTermine.AfterOpen := XDTermineAfterOpen;\r\n    XDTermine.EntitySetName := 'TermineNeu';\r\n    XDTermine.Connection := DM2.XDataWebConnection1;\r\n    XDTermine.QueryString := '$Filter=(Year(Beginn) eq 2019) &$orderby=Beginn';\r\n    XDTermine.Left := 124;\r\n    XDTermine.Top := 14;\r\n    XDTermineUID.SetParentComponent(XDTermine);\r\n    XDTermineUID.Name := 'XDTermineUID';\r\n    XDTermineUID.FieldName := 'UID';\r\n    XDTermineUID.Required := True;\r\n    XDTermineUID.Size := 38;\r\n    XDTermineBeginn.SetParentComponent(XDTermine);\r\n    XDTermineBeginn.Name := 'XDTermineBeginn';\r\n    XDTermineBeginn.FieldName := 'Beginn';\r\n    XDTermineEnde.SetParentComponent(XDTermine);\r\n    XDTermineEnde.Name := 'XDTermineEnde';\r\n    XDTermineEnde.FieldName := 'Ende';\r\n    XDTermineBetreff.SetParentComponent(XDTermine);\r\n    XDTermineBetreff.Name := 'XDTermineBetreff';\r\n    XDTermineBetreff.FieldName := 'Betreff';\r\n    XDTermineBetreff.Size := 255;\r\n    XDTermineColor.SetParentComponent(XDTermine);\r\n    XDTermineColor.Name := 'XDTermineColor';\r\n    XDTermineColor.FieldName := 'Color';\r\n    XDTermineAlarm.SetParentComponent(XDTermine);\r\n    XDTermineAlarm.Name := 'XDTermineAlarm';\r\n    XDTermineAlarm.FieldName := 'Alarm';\r\n    XDTerminePersonalnummer.SetParentComponent(XDTermine);\r\n    XDTerminePersonalnummer.Name := 'XDTerminePersonalnummer';\r\n    XDTerminePersonalnummer.FieldName := 'Personalnummer';\r\n    XDTermineTerminArt.SetParentComponent(XDTermine);\r\n    XDTermineTerminArt.Name := 'XDTermineTerminArt';\r\n    XDTermineTerminArt.FieldName := 'TerminArt';\r\n    XDTermineBeginnDatum.SetParentComponent(XDTermine);\r\n    XDTermineBeginnDatum.Name := 'XDTermineBeginnDatum';\r\n    XDTermineBeginnDatum.FieldName := 'BeginnDatum';\r\n    XDTermineBeginnUhrzeit.SetParentComponent(XDTermine);\r\n    XDTermineBeginnUhrzeit.Name := 'XDTermineBeginnUhrzeit';\r\n    XDTermineBeginnUhrzeit.FieldName := 'BeginnUhrzeit';\r\n    XDTermineEndeDatum.SetParentComponent(XDTermine);\r\n    XDTermineEndeDatum.Name := 'XDTermineEndeDatum';\r\n    XDTermineEndeDatum.FieldName := 'EndeDatum';\r\n    XDTermineEndeUhrzeit.SetParentComponent(XDTermine);\r\n    XDTermineEndeUhrzeit.Name := 'XDTermineEndeUhrzeit';\r\n    XDTermineEndeUhrzeit.FieldName := 'EndeUhrzeit';\r\n    XDTerminePNachname.SetParentComponent(XDTermine);\r\n    XDTerminePNachname.Name := 'XDTerminePNachname';\r\n    XDTerminePNachname.FieldName := 'PNachname';\r\n    XDTerminePNachname.Size := 40;\r\n    XDTerminePVorname.SetParentComponent(XDTermine);\r\n    XDTerminePVorname.Name := 'XDTerminePVorname';\r\n    XDTerminePVorname.FieldName := 'PVorname';\r\n    XDTerminePVorname.Size := 40;\r\n    XDTerminePFarbe.SetParentComponent(XDTermine);\r\n    XDTerminePFarbe.Name := 'XDTerminePFarbe';\r\n    XDTerminePFarbe.FieldName := 'PFarbe';\r\n    XDTermineAuftrag.SetParentComponent(XDTermine);\r\n    XDTermineAuftrag.Name := 'XDTermineAuftrag';\r\n    XDTermineAuftrag.FieldName := 'Auftrag';\r\n    XDTermineAuftrag.Size := 10;\r\n    XDTermineTerminNotiz.SetParentComponent(XDTermine);\r\n    XDTermineTerminNotiz.Name := 'XDTermineTerminNotiz';\r\n    XDTermineTerminNotiz.FieldName := 'TerminNotiz';\r\n    XDTermineTerminNotiz.Size := 255;\r\n    XDTermineKundennummer.SetParentComponent(XDTermine);\r\n    XDTermineKundennummer.Name := 'XDTermineKundennummer';\r\n    XDTermineKundennummer.FieldName := 'Kundennummer';\r\n    XDTermineKundennummer.Size := 13;\r\n    XDTermineNachname.SetParentComponent(XDTermine);\r\n    XDTermineNachname.Name := 'XDTermineNachname';\r\n    XDTermineNachname.FieldName := 'Nachname';\r\n    XDTermineNachname.Size := 40;\r\n    XDTermineKontaktart.SetParentComponent(XDTermine);\r\n    XDTermineKontaktart.Name := 'XDTermineKontaktart';\r\n    XDTermineKontaktart.FieldName := 'Kontaktart';\r\n    XDTermineKontaktart.Size := 25;\r\n    XDTermineVorname.SetParentComponent(XDTermine);\r\n    XDTermineVorname.Name := 'XDTermineVorname';\r\n    XDTermineVorname.FieldName := 'Vorname';\r\n    XDTermineVorname.Size := 40;\r\n  finally\r\n    lblhinweis.AfterLoadDFMValues;\r\n    TC.AfterLoadDFMValues;\r\n    comboMonat.AfterLoadDFMValues;\r\n    comboJahr.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    sourceTermine.AfterLoadDFMValues;\r\n    XDTermine.AfterLoadDFMValues;\r\n    XDTermineUID.AfterLoadDFMValues;\r\n    XDTermineBeginn.AfterLoadDFMValues;\r\n    XDTermineEnde.AfterLoadDFMValues;\r\n    XDTermineBetreff.AfterLoadDFMValues;\r\n    XDTermineColor.AfterLoadDFMValues;\r\n    XDTermineAlarm.AfterLoadDFMValues;\r\n    XDTerminePersonalnummer.AfterLoadDFMValues;\r\n    XDTermineTerminArt.AfterLoadDFMValues;\r\n    XDTermineBeginnDatum.AfterLoadDFMValues;\r\n    XDTermineBeginnUhrzeit.AfterLoadDFMValues;\r\n    XDTermineEndeDatum.AfterLoadDFMValues;\r\n    XDTermineEndeUhrzeit.AfterLoadDFMValues;\r\n    XDTerminePNachname.AfterLoadDFMValues;\r\n    XDTerminePVorname.AfterLoadDFMValues;\r\n    XDTerminePFarbe.AfterLoadDFMValues;\r\n    XDTermineAuftrag.AfterLoadDFMValues;\r\n    XDTermineTerminNotiz.AfterLoadDFMValues;\r\n    XDTermineKundennummer.AfterLoadDFMValues;\r\n    XDTermineNachname.AfterLoadDFMValues;\r\n    XDTermineKontaktart.AfterLoadDFMValues;\r\n    XDTermineVorname.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit unit_ListeAuftrag;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Vcl.Controls, WEBLib.ExtCtrls, WEBLib.Buttons,\r\n  WEBLib.Grids, WEBLib.DBCtrls, Data.DB, WEBLib.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, Vcl.StdCtrls, WEBLib.StdCtrls, XData.Web.Client,\r\n  WEBLib.WebCtrls;\r\n\r\ntype\r\n  TListeAuftrag = class(TForm)\r\n    xdsAuftrag: TXDataWebDataSet;\r\n    xdsAuftragKundennummer: TXDataWebEntityField;\r\n    xdsAuftragNummerkomplett: TStringField;\r\n    xdsAuftragReferenzAngebot: TStringField;\r\n    xdsAuftragReferenzLieferschein: TStringField;\r\n    xdsAuftragReferenzRechnung: TStringField;\r\n    xdsAuftragDatum: TDateTimeField;\r\n    xdsAuftragJahr: TFloatField;\r\n    xdsAuftragKalenderwoche: TIntegerField;\r\n    xdsAuftragNachname: TStringField;\r\n    xdsAuftragVorname: TStringField;\r\n    xdsAuftragPostleitzahl: TStringField;\r\n    xdsAuftragOrt: TStringField;\r\n    xdsAuftragLaenderkuerzel: TStringField;\r\n    xdsAuftragLand: TStringField;\r\n    xdsAuftragBriefanrede1: TStringField;\r\n    xdsAuftragBriefanrede2: TStringField;\r\n    xdsAuftragEMail: TStringField;\r\n    xdsAuftragAdresseBild: TStringField;\r\n    xdsAuftragLieferanschriftBild: TStringField;\r\n    xdsAuftragZahlungsbedingung: TIntegerField;\r\n    xdsAuftragZahlungsbedingungText: TStringField;\r\n    xdsAuftragAuftragsbezeichnung: TStringField;\r\n    xdsAuftragAuftragnummerKunde: TStringField;\r\n    xdsAuftragBestelldatumKunde: TDateTimeField;\r\n    xdsAuftragILN: TStringField;\r\n    xdsAuftragKopftext: TStringField;\r\n    xdsAuftragSchlussbemerkung: TStringField;\r\n    xdsAuftragGruss: TStringField;\r\n    xdsAuftragMehrwertsteuersatz1: TFloatField;\r\n    xdsAuftragMehrwertsteuersatz2: TFloatField;\r\n    xdsAuftragNettosumme01: TFloatField;\r\n    xdsAuftragNettosumme02: TFloatField;\r\n    xdsAuftragNettosumme: TFloatField;\r\n    xdsAuftragMehrwertsteuer01: TFloatField;\r\n    xdsAuftragMehrwertsteuer02: TFloatField;\r\n    xdsAuftragMehrwertsteuer: TFloatField;\r\n    xdsAuftragBruttosumme: TFloatField;\r\n    xdsAuftragVersanddatum: TDateTimeField;\r\n    xdsAuftragSkontosatz: TFloatField;\r\n    xdsAuftragNettosummeEK: TFloatField;\r\n    xdsAuftragNettoMarge: TFloatField;\r\n    xdsAuftragSchreibzeichen: TStringField;\r\n    xdsAuftragUnterzeichner: TStringField;\r\n    xdsAuftragTelefonMA: TStringField;\r\n    xdsAuftragEmailMA: TStringField;\r\n    xdsAuftragUSTID: TStringField;\r\n    xdsAuftragUmsatzsteuerausweis: TBooleanField;\r\n    xdsAuftraggebucht: TBooleanField;\r\n    xdsAuftragLieferdatum: TDateTimeField;\r\n    xdsAuftragTransportbedingung: TStringField;\r\n    xdsAuftragMehrwertsteuersatz3: TFloatField;\r\n    xdsAuftragMehrwertsteuer03: TFloatField;\r\n    xdsAuftragNettosumme03: TFloatField;\r\n    xdsAuftragRundungsDifferenz: TFloatField;\r\n    xdsAuftragEmailText: TStringField;\r\n    xdsAuftragAuftragerledigt: TBooleanField;\r\n    xdsAuftragRabattstufe: TStringField;\r\n    xdsAuftragKFZKennzeichen: TStringField;\r\n    xdsAuftragFahrgestellnummer: TStringField;\r\n    xdsAuftragKFZHersteller: TStringField;\r\n    xdsAuftragErstzulassungsdatum: TDateTimeField;\r\n    xdsAuftragKMStand: TStringField;\r\n    xdsAuftragKFZType: TStringField;\r\n    xdsAuftragInspektionsdatum: TDateTimeField;\r\n    xdsAuftragDebitorennummer: TStringField;\r\n    xdsAuftragKostentraeger: TStringField;\r\n    xdsAuftragRabattsatz: TFloatField;\r\n    xdsAuftragObjektReferenz: TStringField;\r\n    xdsAuftragBank: TStringField;\r\n    xdsAuftragBankleitzahl: TFloatField;\r\n    xdsAuftragKontonummer: TStringField;\r\n    xdsAuftragKontoinhaber: TStringField;\r\n    xdsAuftragTelefaxnummer: TStringField;\r\n    xdsAuftragDatumNeu: TDateTimeField;\r\n    xdsAuftragDatumgeaendert: TDateTimeField;\r\n    xdsAuftragObjektnummer: TStringField;\r\n    xdsAuftragLiefertermin: TStringField;\r\n    xdsAuftragEmailversand: TBooleanField;\r\n    xdsAuftragTelefonnummer: TStringField;\r\n    xdsAuftragMobilTelefon: TStringField;\r\n    xdsAuftragAuftragFax: TBooleanField;\r\n    xdsAuftragREDatum: TDateTimeField;\r\n    xdsAuftragBenutzerNeu: TStringField;\r\n    xdsAuftragBenutzerGeaendert: TStringField;\r\n    xdsAuftragBerechnungBrutto: TBooleanField;\r\n    xdsAuftragBruttosumme01: TFloatField;\r\n    xdsAuftragBruttosumme02: TFloatField;\r\n    xdsAuftragBruttosumme03: TFloatField;\r\n    xdsAuftragNotiz: TStringField;\r\n    xdsAuftragMargeProzent: TFloatField;\r\n    xdsAuftragWarenkreditgesperrt: TBooleanField;\r\n    xdsAuftragBelegsprache: TStringField;\r\n    xdsAuftragDuplicate: TStringField;\r\n    xdsAuftragperEmail: TBooleanField;\r\n    xdsAuftragAnsprechpartner: TStringField;\r\n    xdsAuftragKundennummerFremd: TStringField;\r\n    xdsAuftragProtokoll: TStringField;\r\n    xdsAuftragVerleihauftrag: TBooleanField;\r\n    xdsAuftragVerleihVon: TDateTimeField;\r\n    xdsAuftragVerleihBis: TDateTimeField;\r\n    xdsAuftragAuftragGenehmigt: TBooleanField;\r\n    xdsAuftraggesperrt: TBooleanField;\r\n    xdsAuftragVerleihvonText: TStringField;\r\n    xdsAuftragVerleihbisText: TStringField;\r\n    xdsAuftragDruckWHG: TStringField;\r\n    xdsAuftragDruckWHGKurs: TFloatField;\r\n    xdsAuftragProzentsatzZusatzposition: TFloatField;\r\n    xdsAuftragTextZusatzposition: TStringField;\r\n    xdsAuftragTextzusatzBeschreibung: TStringField;\r\n    xdsAuftragLayoutname: TStringField;\r\n    xdsAuftragGesamtgewicht: TFloatField;\r\n    xdsAuftragBetragZusatzposition: TFloatField;\r\n    xdsAuftragReferenzBestellung: TStringField;\r\n    xdsAuftragTermin1: TDateTimeField;\r\n    xdsAuftragTermin2: TDateTimeField;\r\n    xdsAuftragZielkontaktnummer: TStringField;\r\n    xdsAuftragZielkontaktname: TStringField;\r\n    xdsAuftragBilddatei1: TStringField;\r\n    xdsAuftragBilddatei2: TStringField;\r\n    xdsAuftragZielkontaktnummer2: TStringField;\r\n    xdsAuftragZielkontaktname2: TStringField;\r\n    xdsAuftragbestaetigt: TDateTimeField;\r\n    xdsAuftragZielkontaktnummer3: TStringField;\r\n    xdsAuftragZielkontaktname3: TStringField;\r\n    xdsAuftragTermin3: TDateTimeField;\r\n    xdsAuftragTermin4: TDateTimeField;\r\n    xdsAuftragMuster: TBooleanField;\r\n    xdsAuftragKW: TIntegerField;\r\n    xdsAuftragDatenlink: TStringField;\r\n    xdsAuftragMehrwertsteuersatz4: TFloatField;\r\n    xdsAuftragMehrwertsteuersatz5: TFloatField;\r\n    xdsAuftragMehrwertsteuersatz6: TFloatField;\r\n    xdsAuftragBesteuerungKey: TIntegerField;\r\n    xdsAuftragVertreterMatchcode: TStringField;\r\n    xdsAuftragVerfasser: TStringField;\r\n    xdsAuftragLieferadresseID: TIntegerField;\r\n    xdsAuftragAuftragStatus: TStringField;\r\n    xdsAuftragMonatJahr: TDateTimeField;\r\n    xdsAuftragBelegvariante: TStringField;\r\n    xdsAuftragProduktionsfreigabe: TBooleanField;\r\n    xdsAuftragReferenzRahmenAuftrag: TStringField;\r\n    xdsAuftragDatumRahmenAuftrag: TDateTimeField;\r\n    xdsAuftragFahrzeugID: TIntegerField;\r\n    xdsAuftragAuslieferungKW: TStringField;\r\n    xdsAuftragBereitstellungDatum: TDateTimeField;\r\n    xdsAuftragVTUID: TStringField;\r\n    xdsAuftragLieferanschriftDaten: TStringField;\r\n    xdsAuftragGesamtVolumen: TFloatField;\r\n    xdsAuftragBelegPKey: TIntegerField;\r\n    xdsAuftragDruckParameter: TStringField;\r\n    xdsAuftragReferenzService: TStringField;\r\n    xdsAuftragZusatzDaten: TStringField;\r\n    xdsAuftragStandPDF: TStringField;\r\n    xdsAuftragPaketdienst: TStringField;\r\n    xdsAuftragMonteur: TIntegerField;\r\n    xdsAuftragKundennummerKundennummer: TStringField;\r\n    WClient: TXDataWebClient;\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    Container3: THTMLContainer;\r\n    btnNeuerServiceBericht: TButton;\r\n    btnNeuerAuftrag: TButton;\r\n    ResultLabel: TLabel;\r\n    btnzurueck: TButton;\r\n    edtSuchbegriff: TEdit;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure btnNeuerServiceBerichtClick(Sender: TObject);\r\n    procedure btnNeuerAuftragClick(Sender: TObject);\r\n    procedure xdsAuftragAfterOpen(DataSet: TDataSet);\r\n    procedure ResultLabelClick(Sender: TObject);\r\n    procedure WebFormClose(Sender: TObject; var Action: TCloseAction);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n    procedure edtSuchbegriffChange(Sender: TObject);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    EinzelCard:THTMLDiv;\r\n    procedure NeuerAuftrag(Kundennummer:string;Belegvariante:string);\r\n    procedure Auftragholen(Auftragsnummer:string);\r\n    procedure EinzelCardclick(Sender:TObject);\r\n\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  ListeAuftrag: TListeAuftrag;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_EinzelAuftrag,unit_Kontaktsuche;\r\n{$R *.dfm}\r\n\r\nprocedure TListeAuftrag.EinzelCardclick(Sender:TObject);\r\nvar\r\n  EinzelAuftrag:TEinzelAuftrag;\r\n  MyMerkerAuftrag:string;\r\nbegin\r\n  myMerkerAuftrag:=(sender as THTMLDiv).ElementID;\r\n  Container3.HTML.text:='';\r\n  EinzelAuftrag := TEinzelAuftrag.CreateNew(procedure(AForm: TObject)\r\n    begin\r\n      (AForm as TEinzelAuftrag).MerkerAuftrag:=myMerkerAuftrag;\r\n      Container3.HTML.Text:=''\r\n    end\r\n    );\r\n\r\n  EinzelAuftrag.ShowModal(procedure(AValue: TModalResult)\r\n    begin\r\n      xdsAuftrag.close;\r\n      xdsAuftrag.Load;\r\n    end\r\n    );\r\nend;\r\n\r\n\r\n\r\nprocedure TListeAuftrag.NeuerAuftrag(Kundennummer:string;Belegvariante:string);\r\n  procedure OnResponse(Response:TXDataClientResponse);\r\n  var\r\n  ergebnis:string;\r\n  begin\r\n    ergebnis:=string(TJSObject(response.Result)['value']);\r\n    if ergebnis='WRONG' then\r\n    begin\r\n      showmessage('Der Auftrag konnte leider nicht erstellt werden');\r\n    end\r\n    else\r\n    begin\r\n      Auftragholen(ergebnis);\r\n    end;\r\n  end;\r\nbegin\r\n  WClient.RawInvoke('IServerService.NeuerAuftrag',[Kundennummer,BenutzerPersonalnummer,Belegvariante],@OnResponse);\r\n\r\nend;\r\n\r\nprocedure TListeAuftrag.ResultLabelClick(Sender: TObject);\r\nbegin\r\n  if Pos('mehr anzeigen',resultlabel.html,0)>1 then\r\n  begin\r\n    xdsAuftrag.close;\r\n    xdsAuftrag.QueryTop:=501;\r\n    xdsAuftrag.Load;\r\n  end;\r\nend;\r\n\r\nprocedure TListeAuftrag.Auftragholen(Auftragsnummer: string);\r\n   var\r\n  EinzelAuftrag:TEinzelAuftrag;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      EinzelAuftrag:TEinzelAuftrag;\r\n    begin\r\n      EinzelAuftrag:=(AForm as TEinzelAuftrag);\r\n      //lform.Connection.URL:=dm2.XDataWebConnection1.URL;\r\n      EinzelAuftrag.MerkerAuftrag:=Auftragsnummer;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      xdsAuftrag.Close;\r\n      xdsAuftrag.Load;\r\n    end;\r\n\r\n  begin\r\n  if LizenzOK then\r\n  begin\r\n  EinzelAuftrag:=TEinzelAuftrag.CreateNew(@AfterCreate);\r\n  //LFrm.Popup:=true;\r\n\r\n  EinzelAuftrag.ShowModal(@AfterShowmodal);\r\n  end\r\n  else\r\n  begin\r\n    showmessage('Für das Speichern von Daten sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TListeAuftrag.btnNeuerAuftragClick(Sender: TObject);\r\nvar\r\n  LFrm:TfrmKontaktsuche;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmKontaktsuche;\r\n    begin\r\n      LForm:=(AForm as TfrmKontaktsuche);\r\n      Container3.HTML.Text:='';\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      if LFrm.Kontaktnummer<>'' then\r\n      begin\r\n        NeuerAuftrag(Lfrm.Kontaktnummer,'Auftrag');\r\n      end\r\n      else\r\n      begin\r\n        xdsauftrag.Close;\r\n        xdsauftrag.Load;\r\n      end;\r\n    end;\r\n\r\n  begin\r\n  LFrm:=TfrmKontaktsuche.CreateNew(@AfterCreate);\r\n  LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TListeAuftrag.btnNeuerServiceBerichtClick(Sender: TObject);\r\nvar\r\n  LFrm:TfrmKontaktsuche;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmKontaktsuche;\r\n    begin\r\n      LForm:=(AForm as TfrmKontaktsuche);\r\n      Container3.HTML.Text:='';\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      if LFrm.Kontaktnummer<>'' then\r\n      begin\r\n        NeuerAuftrag(Lfrm.Kontaktnummer,'Servicebericht');\r\n      end\r\n      else\r\n      begin\r\n        xdsauftrag.Close;\r\n        xdsauftrag.Load;\r\n      end;\r\n    end;\r\n\r\n  begin\r\n  LFrm:=TfrmKontaktsuche.CreateNew(@AfterCreate);\r\n  LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TListeAuftrag.btnzurueckClick(Sender: TObject);\r\nbegin\r\ntry\r\n  xdsAuftrag.Close;\r\nexcept\r\n\r\nend;\r\n  self.close;\r\nend;\r\n\r\nprocedure TListeAuftrag.edtSuchbegriffChange(Sender: TObject);\r\nvar\r\n  tempsuchtext:string;\r\nbegin\r\n  tempsuchtext:=edtsuchbegriff.Text;\r\n  Container3.HTML.text:='';\r\n  if length(tempsuchtext)>0 then\r\n  begin\r\n    xdsauftrag.Close;\r\n    xdsauftrag.querystring:='$expand=Kundennummer&$filter=(Auftragerledigt eq 0) AND (contains(Nachname,'+quotedstr(tempsuchtext)+') OR contains(Kundennummer,'+quotedstr(tempsuchtext)+') OR contains(Auftragsbezeichnung,'+quotedstr(tempsuchtext)+') OR contains(Monteur,'+quotedstr(tempsuchtext)+'))&$orderby=Nummerkomplett DESC';\r\n\r\n  end\r\n  else\r\n  begin\r\n    xdsauftrag.Close;\r\n    xdsauftrag.querystring:='$expand=Kundennummer&$filter=(Auftragerledigt eq 0)&$orderby=Nummerkomplett DESC';\r\n  end;\r\n  xdsauftrag.Load;\r\nend;\r\n\r\n\r\nprocedure TListeAuftrag.WebFormClose(Sender: TObject; var Action: TCloseAction);\r\nbegin\r\naction:=cafree;\r\nend;\r\n\r\nprocedure TListeAuftrag.WebFormShow(Sender: TObject);\r\nbegin\r\n  xdsAuftrag.QueryTop:=100;\r\n  xdsAuftrag.Load;\r\nend;\r\n\r\nprocedure TListeAuftrag.xdsAuftragAfterOpen(DataSet: TDataSet);\r\nvar\r\n  myelement:TJSHTMLElement;\r\n  EinzelKarte:string;\r\n  farbstring:string;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Aufträge offen</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  container2.ParentElement:=myelement;\r\n  Container2.HTML.Text:='';\r\n  myelement:=container2.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  btnNeuerServiceBericht.parentelement:=myelement;\r\n  btnNeuerAuftrag.parentelement:=myelement;\r\n  edtSuchbegriff.ParentElement:=myelement;\r\n  ResultLabel.ParentElement:=myelement;\r\n  xdsAuftrag.First;\r\n  if xdsAuftrag.RecordCount=0 then ResultLabel.HTML:='nichts gefunden';\r\n  if xdsAuftrag.RecordCount>0 then ResultLabel.HTML:='Aufträge: '+inttostr(xdsAuftrag.RecordCount);\r\n  if xdsAuftrag.RecordCount>99 then ResultLabel.HTML:='mehr als 100 Aufträge <I><U>mehr anzeigen</I></U>';\r\n  if xdsAuftrag.RecordCount>100 then ResultLabel.HTML:='Aufträge: '+inttostr(xdsAuftrag.RecordCount)+' (max. Anzeige: 500)';\r\n  while not xdsAuftrag.eof do\r\n  begin\r\n\r\n    Einzelkarte:='<div class=\"card-header\"><h5>'+xdsAuftragNummerkomplett.asstring+' | '+formatdatetime('DD.MM.YYYY',xdsAuftragDatum.AsDateTime)+'</h5><i>'+xdsAuftragBelegvariante.AsString+'</i></div>';\r\n    Einzelkarte:=Einzelkarte+'<div class=\"card-body \">'+xdsAuftragKundennummerKundennummer.AsString;\r\n    Einzelkarte:=Einzelkarte+' | '+xdsAuftragNachname.asstring+'<br>';\r\n    Einzelkarte:=Einzelkarte+'<b>'+xdsAuftragAuftragsbezeichnung.AsString+'</b><br>';\r\n    Einzelkarte:=Einzelkarte+'<i>'+xdsAuftragAuftragStatus.AsString+'</i><br>';\r\n    if form1.rcw.Verkaufspreise=TRUE then Einzelkarte:=Einzelkarte+Formatfloat('#,##0.00 €',xdsAuftragNettosumme.Asfloat)+'<br>';\r\n    Einzelkarte:=Einzelkarte+'</div>';\r\n    if xdsAuftragMonteur.AsString<>'' then\r\n    begin\r\n      if dm2.queryMonteur.Locate('Personalnummer',xdsAuftragMonteur.AsString,[])=true then\r\n      begin\r\n        farbstring:=inttohex(dm2.queryMonteurFarbe.asinteger,6);\r\n        farbstring := Copy(farbstring, 5, 2) + Copy(farbstring, 3, 2) + Copy(farbstring, 1, 2);\r\n        Einzelkarte:=Einzelkarte+'<div class=\"card-footer\" style=\"background-color: #'+farbstring+';\">';\r\n        Einzelkarte:=Einzelkarte+dm2.queryMonteurpersonalnummer.asstring+' | '+ dm2.queryMonteurVorname.AsString+' '+dm2.queryMonteurNachname.AsString+'<br>';\r\n      end\r\n      else\r\n      begin\r\n        Einzelkarte:=Einzelkarte+'<div class=\"card-footer\" >';\r\n        Einzelkarte:=Einzelkarte+xdsAuftragMonteur.AsString+' ';\r\n        Einzelkarte:=Einzelkarte+'<br>';\r\n      end;\r\n      Einzelkarte:=Einzelkarte+'</div>';\r\n    end;\r\n\r\n\r\n    myelement:=Container3.ElementHandle;\r\n    EinzelCard:=THTMLDiv.Create(self);\r\n    EinzelCard.ElementID:=xdsAuftragNummerkomplett.asstring;\r\n    EinzelCard.HeightStyle:=ssauto;\r\n    EinzelCard.Width:=350;\r\n    EinzelCard.HTML.Text:=Einzelkarte;\r\n    EinzelCard.ElementClassName:='card m-1 border-info';\r\n    EinzelCard.OnClick:=@EinzelCardClick;\r\n    EinzelCard.ParentElement:=myelement;\r\n\r\n    xdsAuftrag.Next;\r\n  end;\r\n\r\n  edtSuchbegriff.SetFocus;\r\nend;\r\n\r\nprocedure TListeAuftrag.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  ResultLabel := TLabel.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  btnNeuerServiceBericht := TButton.Create(Self);\r\n  btnNeuerAuftrag := TButton.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  edtSuchbegriff := TEdit.Create(Self);\r\n  xdsAuftrag := TXDataWebDataSet.Create(Self);\r\n  xdsAuftragKundennummer := TXDataWebEntityField.Create(Self);\r\n  xdsAuftragNummerkomplett := TStringField.Create(Self);\r\n  xdsAuftragReferenzAngebot := TStringField.Create(Self);\r\n  xdsAuftragReferenzLieferschein := TStringField.Create(Self);\r\n  xdsAuftragReferenzRechnung := TStringField.Create(Self);\r\n  xdsAuftragDatum := TDateTimeField.Create(Self);\r\n  xdsAuftragJahr := TFloatField.Create(Self);\r\n  xdsAuftragKalenderwoche := TIntegerField.Create(Self);\r\n  xdsAuftragNachname := TStringField.Create(Self);\r\n  xdsAuftragVorname := TStringField.Create(Self);\r\n  xdsAuftragPostleitzahl := TStringField.Create(Self);\r\n  xdsAuftragOrt := TStringField.Create(Self);\r\n  xdsAuftragLaenderkuerzel := TStringField.Create(Self);\r\n  xdsAuftragLand := TStringField.Create(Self);\r\n  xdsAuftragBriefanrede1 := TStringField.Create(Self);\r\n  xdsAuftragBriefanrede2 := TStringField.Create(Self);\r\n  xdsAuftragEMail := TStringField.Create(Self);\r\n  xdsAuftragAdresseBild := TStringField.Create(Self);\r\n  xdsAuftragLieferanschriftBild := TStringField.Create(Self);\r\n  xdsAuftragZahlungsbedingung := TIntegerField.Create(Self);\r\n  xdsAuftragZahlungsbedingungText := TStringField.Create(Self);\r\n  xdsAuftragAuftragsbezeichnung := TStringField.Create(Self);\r\n  xdsAuftragAuftragnummerKunde := TStringField.Create(Self);\r\n  xdsAuftragBestelldatumKunde := TDateTimeField.Create(Self);\r\n  xdsAuftragILN := TStringField.Create(Self);\r\n  xdsAuftragKopftext := TStringField.Create(Self);\r\n  xdsAuftragSchlussbemerkung := TStringField.Create(Self);\r\n  xdsAuftragGruss := TStringField.Create(Self);\r\n  xdsAuftragMehrwertsteuersatz1 := TFloatField.Create(Self);\r\n  xdsAuftragMehrwertsteuersatz2 := TFloatField.Create(Self);\r\n  xdsAuftragNettosumme01 := TFloatField.Create(Self);\r\n  xdsAuftragNettosumme02 := TFloatField.Create(Self);\r\n  xdsAuftragNettosumme := TFloatField.Create(Self);\r\n  xdsAuftragMehrwertsteuer01 := TFloatField.Create(Self);\r\n  xdsAuftragMehrwertsteuer02 := TFloatField.Create(Self);\r\n  xdsAuftragMehrwertsteuer := TFloatField.Create(Self);\r\n  xdsAuftragBruttosumme := TFloatField.Create(Self);\r\n  xdsAuftragVersanddatum := TDateTimeField.Create(Self);\r\n  xdsAuftragSkontosatz := TFloatField.Create(Self);\r\n  xdsAuftragNettosummeEK := TFloatField.Create(Self);\r\n  xdsAuftragNettoMarge := TFloatField.Create(Self);\r\n  xdsAuftragSchreibzeichen := TStringField.Create(Self);\r\n  xdsAuftragUnterzeichner := TStringField.Create(Self);\r\n  xdsAuftragTelefonMA := TStringField.Create(Self);\r\n  xdsAuftragEmailMA := TStringField.Create(Self);\r\n  xdsAuftragUSTID := TStringField.Create(Self);\r\n  xdsAuftragUmsatzsteuerausweis := TBooleanField.Create(Self);\r\n  xdsAuftraggebucht := TBooleanField.Create(Self);\r\n  xdsAuftragLieferdatum := TDateTimeField.Create(Self);\r\n  xdsAuftragTransportbedingung := TStringField.Create(Self);\r\n  xdsAuftragMehrwertsteuersatz3 := TFloatField.Create(Self);\r\n  xdsAuftragMehrwertsteuer03 := TFloatField.Create(Self);\r\n  xdsAuftragNettosumme03 := TFloatField.Create(Self);\r\n  xdsAuftragRundungsDifferenz := TFloatField.Create(Self);\r\n  xdsAuftragEmailText := TStringField.Create(Self);\r\n  xdsAuftragAuftragerledigt := TBooleanField.Create(Self);\r\n  xdsAuftragRabattstufe := TStringField.Create(Self);\r\n  xdsAuftragKFZKennzeichen := TStringField.Create(Self);\r\n  xdsAuftragFahrgestellnummer := TStringField.Create(Self);\r\n  xdsAuftragKFZHersteller := TStringField.Create(Self);\r\n  xdsAuftragErstzulassungsdatum := TDateTimeField.Create(Self);\r\n  xdsAuftragKMStand := TStringField.Create(Self);\r\n  xdsAuftragKFZType := TStringField.Create(Self);\r\n  xdsAuftragInspektionsdatum := TDateTimeField.Create(Self);\r\n  xdsAuftragDebitorennummer := TStringField.Create(Self);\r\n  xdsAuftragKostentraeger := TStringField.Create(Self);\r\n  xdsAuftragRabattsatz := TFloatField.Create(Self);\r\n  xdsAuftragObjektReferenz := TStringField.Create(Self);\r\n  xdsAuftragBank := TStringField.Create(Self);\r\n  xdsAuftragBankleitzahl := TFloatField.Create(Self);\r\n  xdsAuftragKontonummer := TStringField.Create(Self);\r\n  xdsAuftragKontoinhaber := TStringField.Create(Self);\r\n  xdsAuftragTelefaxnummer := TStringField.Create(Self);\r\n  xdsAuftragDatumNeu := TDateTimeField.Create(Self);\r\n  xdsAuftragDatumgeaendert := TDateTimeField.Create(Self);\r\n  xdsAuftragObjektnummer := TStringField.Create(Self);\r\n  xdsAuftragLiefertermin := TStringField.Create(Self);\r\n  xdsAuftragEmailversand := TBooleanField.Create(Self);\r\n  xdsAuftragTelefonnummer := TStringField.Create(Self);\r\n  xdsAuftragMobilTelefon := TStringField.Create(Self);\r\n  xdsAuftragAuftragFax := TBooleanField.Create(Self);\r\n  xdsAuftragREDatum := TDateTimeField.Create(Self);\r\n  xdsAuftragBenutzerNeu := TStringField.Create(Self);\r\n  xdsAuftragBenutzerGeaendert := TStringField.Create(Self);\r\n  xdsAuftragBerechnungBrutto := TBooleanField.Create(Self);\r\n  xdsAuftragBruttosumme01 := TFloatField.Create(Self);\r\n  xdsAuftragBruttosumme02 := TFloatField.Create(Self);\r\n  xdsAuftragBruttosumme03 := TFloatField.Create(Self);\r\n  xdsAuftragNotiz := TStringField.Create(Self);\r\n  xdsAuftragMargeProzent := TFloatField.Create(Self);\r\n  xdsAuftragWarenkreditgesperrt := TBooleanField.Create(Self);\r\n  xdsAuftragBelegsprache := TStringField.Create(Self);\r\n  xdsAuftragDuplicate := TStringField.Create(Self);\r\n  xdsAuftragperEmail := TBooleanField.Create(Self);\r\n  xdsAuftragAnsprechpartner := TStringField.Create(Self);\r\n  xdsAuftragKundennummerFremd := TStringField.Create(Self);\r\n  xdsAuftragProtokoll := TStringField.Create(Self);\r\n  xdsAuftragVerleihauftrag := TBooleanField.Create(Self);\r\n  xdsAuftragVerleihVon := TDateTimeField.Create(Self);\r\n  xdsAuftragVerleihBis := TDateTimeField.Create(Self);\r\n  xdsAuftragAuftragGenehmigt := TBooleanField.Create(Self);\r\n  xdsAuftraggesperrt := TBooleanField.Create(Self);\r\n  xdsAuftragVerleihvonText := TStringField.Create(Self);\r\n  xdsAuftragVerleihbisText := TStringField.Create(Self);\r\n  xdsAuftragDruckWHG := TStringField.Create(Self);\r\n  xdsAuftragDruckWHGKurs := TFloatField.Create(Self);\r\n  xdsAuftragProzentsatzZusatzposition := TFloatField.Create(Self);\r\n  xdsAuftragTextZusatzposition := TStringField.Create(Self);\r\n  xdsAuftragTextzusatzBeschreibung := TStringField.Create(Self);\r\n  xdsAuftragLayoutname := TStringField.Create(Self);\r\n  xdsAuftragGesamtgewicht := TFloatField.Create(Self);\r\n  xdsAuftragBetragZusatzposition := TFloatField.Create(Self);\r\n  xdsAuftragReferenzBestellung := TStringField.Create(Self);\r\n  xdsAuftragTermin1 := TDateTimeField.Create(Self);\r\n  xdsAuftragTermin2 := TDateTimeField.Create(Self);\r\n  xdsAuftragZielkontaktnummer := TStringField.Create(Self);\r\n  xdsAuftragZielkontaktname := TStringField.Create(Self);\r\n  xdsAuftragBilddatei1 := TStringField.Create(Self);\r\n  xdsAuftragBilddatei2 := TStringField.Create(Self);\r\n  xdsAuftragZielkontaktnummer2 := TStringField.Create(Self);\r\n  xdsAuftragZielkontaktname2 := TStringField.Create(Self);\r\n  xdsAuftragbestaetigt := TDateTimeField.Create(Self);\r\n  xdsAuftragZielkontaktnummer3 := TStringField.Create(Self);\r\n  xdsAuftragZielkontaktname3 := TStringField.Create(Self);\r\n  xdsAuftragTermin3 := TDateTimeField.Create(Self);\r\n  xdsAuftragTermin4 := TDateTimeField.Create(Self);\r\n  xdsAuftragMuster := TBooleanField.Create(Self);\r\n  xdsAuftragKW := TIntegerField.Create(Self);\r\n  xdsAuftragDatenlink := TStringField.Create(Self);\r\n  xdsAuftragMehrwertsteuersatz4 := TFloatField.Create(Self);\r\n  xdsAuftragMehrwertsteuersatz5 := TFloatField.Create(Self);\r\n  xdsAuftragMehrwertsteuersatz6 := TFloatField.Create(Self);\r\n  xdsAuftragBesteuerungKey := TIntegerField.Create(Self);\r\n  xdsAuftragVertreterMatchcode := TStringField.Create(Self);\r\n  xdsAuftragVerfasser := TStringField.Create(Self);\r\n  xdsAuftragLieferadresseID := TIntegerField.Create(Self);\r\n  xdsAuftragAuftragStatus := TStringField.Create(Self);\r\n  xdsAuftragMonatJahr := TDateTimeField.Create(Self);\r\n  xdsAuftragBelegvariante := TStringField.Create(Self);\r\n  xdsAuftragProduktionsfreigabe := TBooleanField.Create(Self);\r\n  xdsAuftragReferenzRahmenAuftrag := TStringField.Create(Self);\r\n  xdsAuftragDatumRahmenAuftrag := TDateTimeField.Create(Self);\r\n  xdsAuftragFahrzeugID := TIntegerField.Create(Self);\r\n  xdsAuftragAuslieferungKW := TStringField.Create(Self);\r\n  xdsAuftragBereitstellungDatum := TDateTimeField.Create(Self);\r\n  xdsAuftragVTUID := TStringField.Create(Self);\r\n  xdsAuftragLieferanschriftDaten := TStringField.Create(Self);\r\n  xdsAuftragGesamtVolumen := TFloatField.Create(Self);\r\n  xdsAuftragBelegPKey := TIntegerField.Create(Self);\r\n  xdsAuftragDruckParameter := TStringField.Create(Self);\r\n  xdsAuftragReferenzService := TStringField.Create(Self);\r\n  xdsAuftragZusatzDaten := TStringField.Create(Self);\r\n  xdsAuftragStandPDF := TStringField.Create(Self);\r\n  xdsAuftragPaketdienst := TStringField.Create(Self);\r\n  xdsAuftragMonteur := TIntegerField.Create(Self);\r\n  xdsAuftragKundennummerKundennummer := TStringField.Create(Self);\r\n  WClient := TXDataWebClient.Create(Self);\r\n\r\n  ResultLabel.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  btnNeuerServiceBericht.BeforeLoadDFMValues;\r\n  btnNeuerAuftrag.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  edtSuchbegriff.BeforeLoadDFMValues;\r\n  xdsAuftrag.BeforeLoadDFMValues;\r\n  xdsAuftragKundennummer.BeforeLoadDFMValues;\r\n  xdsAuftragNummerkomplett.BeforeLoadDFMValues;\r\n  xdsAuftragReferenzAngebot.BeforeLoadDFMValues;\r\n  xdsAuftragReferenzLieferschein.BeforeLoadDFMValues;\r\n  xdsAuftragReferenzRechnung.BeforeLoadDFMValues;\r\n  xdsAuftragDatum.BeforeLoadDFMValues;\r\n  xdsAuftragJahr.BeforeLoadDFMValues;\r\n  xdsAuftragKalenderwoche.BeforeLoadDFMValues;\r\n  xdsAuftragNachname.BeforeLoadDFMValues;\r\n  xdsAuftragVorname.BeforeLoadDFMValues;\r\n  xdsAuftragPostleitzahl.BeforeLoadDFMValues;\r\n  xdsAuftragOrt.BeforeLoadDFMValues;\r\n  xdsAuftragLaenderkuerzel.BeforeLoadDFMValues;\r\n  xdsAuftragLand.BeforeLoadDFMValues;\r\n  xdsAuftragBriefanrede1.BeforeLoadDFMValues;\r\n  xdsAuftragBriefanrede2.BeforeLoadDFMValues;\r\n  xdsAuftragEMail.BeforeLoadDFMValues;\r\n  xdsAuftragAdresseBild.BeforeLoadDFMValues;\r\n  xdsAuftragLieferanschriftBild.BeforeLoadDFMValues;\r\n  xdsAuftragZahlungsbedingung.BeforeLoadDFMValues;\r\n  xdsAuftragZahlungsbedingungText.BeforeLoadDFMValues;\r\n  xdsAuftragAuftragsbezeichnung.BeforeLoadDFMValues;\r\n  xdsAuftragAuftragnummerKunde.BeforeLoadDFMValues;\r\n  xdsAuftragBestelldatumKunde.BeforeLoadDFMValues;\r\n  xdsAuftragILN.BeforeLoadDFMValues;\r\n  xdsAuftragKopftext.BeforeLoadDFMValues;\r\n  xdsAuftragSchlussbemerkung.BeforeLoadDFMValues;\r\n  xdsAuftragGruss.BeforeLoadDFMValues;\r\n  xdsAuftragMehrwertsteuersatz1.BeforeLoadDFMValues;\r\n  xdsAuftragMehrwertsteuersatz2.BeforeLoadDFMValues;\r\n  xdsAuftragNettosumme01.BeforeLoadDFMValues;\r\n  xdsAuftragNettosumme02.BeforeLoadDFMValues;\r\n  xdsAuftragNettosumme.BeforeLoadDFMValues;\r\n  xdsAuftragMehrwertsteuer01.BeforeLoadDFMValues;\r\n  xdsAuftragMehrwertsteuer02.BeforeLoadDFMValues;\r\n  xdsAuftragMehrwertsteuer.BeforeLoadDFMValues;\r\n  xdsAuftragBruttosumme.BeforeLoadDFMValues;\r\n  xdsAuftragVersanddatum.BeforeLoadDFMValues;\r\n  xdsAuftragSkontosatz.BeforeLoadDFMValues;\r\n  xdsAuftragNettosummeEK.BeforeLoadDFMValues;\r\n  xdsAuftragNettoMarge.BeforeLoadDFMValues;\r\n  xdsAuftragSchreibzeichen.BeforeLoadDFMValues;\r\n  xdsAuftragUnterzeichner.BeforeLoadDFMValues;\r\n  xdsAuftragTelefonMA.BeforeLoadDFMValues;\r\n  xdsAuftragEmailMA.BeforeLoadDFMValues;\r\n  xdsAuftragUSTID.BeforeLoadDFMValues;\r\n  xdsAuftragUmsatzsteuerausweis.BeforeLoadDFMValues;\r\n  xdsAuftraggebucht.BeforeLoadDFMValues;\r\n  xdsAuftragLieferdatum.BeforeLoadDFMValues;\r\n  xdsAuftragTransportbedingung.BeforeLoadDFMValues;\r\n  xdsAuftragMehrwertsteuersatz3.BeforeLoadDFMValues;\r\n  xdsAuftragMehrwertsteuer03.BeforeLoadDFMValues;\r\n  xdsAuftragNettosumme03.BeforeLoadDFMValues;\r\n  xdsAuftragRundungsDifferenz.BeforeLoadDFMValues;\r\n  xdsAuftragEmailText.BeforeLoadDFMValues;\r\n  xdsAuftragAuftragerledigt.BeforeLoadDFMValues;\r\n  xdsAuftragRabattstufe.BeforeLoadDFMValues;\r\n  xdsAuftragKFZKennzeichen.BeforeLoadDFMValues;\r\n  xdsAuftragFahrgestellnummer.BeforeLoadDFMValues;\r\n  xdsAuftragKFZHersteller.BeforeLoadDFMValues;\r\n  xdsAuftragErstzulassungsdatum.BeforeLoadDFMValues;\r\n  xdsAuftragKMStand.BeforeLoadDFMValues;\r\n  xdsAuftragKFZType.BeforeLoadDFMValues;\r\n  xdsAuftragInspektionsdatum.BeforeLoadDFMValues;\r\n  xdsAuftragDebitorennummer.BeforeLoadDFMValues;\r\n  xdsAuftragKostentraeger.BeforeLoadDFMValues;\r\n  xdsAuftragRabattsatz.BeforeLoadDFMValues;\r\n  xdsAuftragObjektReferenz.BeforeLoadDFMValues;\r\n  xdsAuftragBank.BeforeLoadDFMValues;\r\n  xdsAuftragBankleitzahl.BeforeLoadDFMValues;\r\n  xdsAuftragKontonummer.BeforeLoadDFMValues;\r\n  xdsAuftragKontoinhaber.BeforeLoadDFMValues;\r\n  xdsAuftragTelefaxnummer.BeforeLoadDFMValues;\r\n  xdsAuftragDatumNeu.BeforeLoadDFMValues;\r\n  xdsAuftragDatumgeaendert.BeforeLoadDFMValues;\r\n  xdsAuftragObjektnummer.BeforeLoadDFMValues;\r\n  xdsAuftragLiefertermin.BeforeLoadDFMValues;\r\n  xdsAuftragEmailversand.BeforeLoadDFMValues;\r\n  xdsAuftragTelefonnummer.BeforeLoadDFMValues;\r\n  xdsAuftragMobilTelefon.BeforeLoadDFMValues;\r\n  xdsAuftragAuftragFax.BeforeLoadDFMValues;\r\n  xdsAuftragREDatum.BeforeLoadDFMValues;\r\n  xdsAuftragBenutzerNeu.BeforeLoadDFMValues;\r\n  xdsAuftragBenutzerGeaendert.BeforeLoadDFMValues;\r\n  xdsAuftragBerechnungBrutto.BeforeLoadDFMValues;\r\n  xdsAuftragBruttosumme01.BeforeLoadDFMValues;\r\n  xdsAuftragBruttosumme02.BeforeLoadDFMValues;\r\n  xdsAuftragBruttosumme03.BeforeLoadDFMValues;\r\n  xdsAuftragNotiz.BeforeLoadDFMValues;\r\n  xdsAuftragMargeProzent.BeforeLoadDFMValues;\r\n  xdsAuftragWarenkreditgesperrt.BeforeLoadDFMValues;\r\n  xdsAuftragBelegsprache.BeforeLoadDFMValues;\r\n  xdsAuftragDuplicate.BeforeLoadDFMValues;\r\n  xdsAuftragperEmail.BeforeLoadDFMValues;\r\n  xdsAuftragAnsprechpartner.BeforeLoadDFMValues;\r\n  xdsAuftragKundennummerFremd.BeforeLoadDFMValues;\r\n  xdsAuftragProtokoll.BeforeLoadDFMValues;\r\n  xdsAuftragVerleihauftrag.BeforeLoadDFMValues;\r\n  xdsAuftragVerleihVon.BeforeLoadDFMValues;\r\n  xdsAuftragVerleihBis.BeforeLoadDFMValues;\r\n  xdsAuftragAuftragGenehmigt.BeforeLoadDFMValues;\r\n  xdsAuftraggesperrt.BeforeLoadDFMValues;\r\n  xdsAuftragVerleihvonText.BeforeLoadDFMValues;\r\n  xdsAuftragVerleihbisText.BeforeLoadDFMValues;\r\n  xdsAuftragDruckWHG.BeforeLoadDFMValues;\r\n  xdsAuftragDruckWHGKurs.BeforeLoadDFMValues;\r\n  xdsAuftragProzentsatzZusatzposition.BeforeLoadDFMValues;\r\n  xdsAuftragTextZusatzposition.BeforeLoadDFMValues;\r\n  xdsAuftragTextzusatzBeschreibung.BeforeLoadDFMValues;\r\n  xdsAuftragLayoutname.BeforeLoadDFMValues;\r\n  xdsAuftragGesamtgewicht.BeforeLoadDFMValues;\r\n  xdsAuftragBetragZusatzposition.BeforeLoadDFMValues;\r\n  xdsAuftragReferenzBestellung.BeforeLoadDFMValues;\r\n  xdsAuftragTermin1.BeforeLoadDFMValues;\r\n  xdsAuftragTermin2.BeforeLoadDFMValues;\r\n  xdsAuftragZielkontaktnummer.BeforeLoadDFMValues;\r\n  xdsAuftragZielkontaktname.BeforeLoadDFMValues;\r\n  xdsAuftragBilddatei1.BeforeLoadDFMValues;\r\n  xdsAuftragBilddatei2.BeforeLoadDFMValues;\r\n  xdsAuftragZielkontaktnummer2.BeforeLoadDFMValues;\r\n  xdsAuftragZielkontaktname2.BeforeLoadDFMValues;\r\n  xdsAuftragbestaetigt.BeforeLoadDFMValues;\r\n  xdsAuftragZielkontaktnummer3.BeforeLoadDFMValues;\r\n  xdsAuftragZielkontaktname3.BeforeLoadDFMValues;\r\n  xdsAuftragTermin3.BeforeLoadDFMValues;\r\n  xdsAuftragTermin4.BeforeLoadDFMValues;\r\n  xdsAuftragMuster.BeforeLoadDFMValues;\r\n  xdsAuftragKW.BeforeLoadDFMValues;\r\n  xdsAuftragDatenlink.BeforeLoadDFMValues;\r\n  xdsAuftragMehrwertsteuersatz4.BeforeLoadDFMValues;\r\n  xdsAuftragMehrwertsteuersatz5.BeforeLoadDFMValues;\r\n  xdsAuftragMehrwertsteuersatz6.BeforeLoadDFMValues;\r\n  xdsAuftragBesteuerungKey.BeforeLoadDFMValues;\r\n  xdsAuftragVertreterMatchcode.BeforeLoadDFMValues;\r\n  xdsAuftragVerfasser.BeforeLoadDFMValues;\r\n  xdsAuftragLieferadresseID.BeforeLoadDFMValues;\r\n  xdsAuftragAuftragStatus.BeforeLoadDFMValues;\r\n  xdsAuftragMonatJahr.BeforeLoadDFMValues;\r\n  xdsAuftragBelegvariante.BeforeLoadDFMValues;\r\n  xdsAuftragProduktionsfreigabe.BeforeLoadDFMValues;\r\n  xdsAuftragReferenzRahmenAuftrag.BeforeLoadDFMValues;\r\n  xdsAuftragDatumRahmenAuftrag.BeforeLoadDFMValues;\r\n  xdsAuftragFahrzeugID.BeforeLoadDFMValues;\r\n  xdsAuftragAuslieferungKW.BeforeLoadDFMValues;\r\n  xdsAuftragBereitstellungDatum.BeforeLoadDFMValues;\r\n  xdsAuftragVTUID.BeforeLoadDFMValues;\r\n  xdsAuftragLieferanschriftDaten.BeforeLoadDFMValues;\r\n  xdsAuftragGesamtVolumen.BeforeLoadDFMValues;\r\n  xdsAuftragBelegPKey.BeforeLoadDFMValues;\r\n  xdsAuftragDruckParameter.BeforeLoadDFMValues;\r\n  xdsAuftragReferenzService.BeforeLoadDFMValues;\r\n  xdsAuftragZusatzDaten.BeforeLoadDFMValues;\r\n  xdsAuftragStandPDF.BeforeLoadDFMValues;\r\n  xdsAuftragPaketdienst.BeforeLoadDFMValues;\r\n  xdsAuftragMonteur.BeforeLoadDFMValues;\r\n  xdsAuftragKundennummerKundennummer.BeforeLoadDFMValues;\r\n  WClient.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'ListeAuftrag';\r\n    Width := 171;\r\n    Height := 350;\r\n    ElementFont := efCSS;\r\n    ElementPosition := epIgnore;\r\n    Font.Charset := DEFAULT_CHARSET;\r\n    Font.Color := clWindowText;\r\n    Font.Height := -11;\r\n    Font.Name := 'Tahoma';\r\n    Font.Style := [];\r\n    ParentFont := False;\r\n    SetEvent(Self, 'OnClose', 'WebFormClose');\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    ResultLabel.SetParentComponent(Self);\r\n    ResultLabel.Name := 'ResultLabel';\r\n    ResultLabel.Left := 8;\r\n    ResultLabel.Top := 204;\r\n    ResultLabel.Width := 55;\r\n    ResultLabel.Height := 13;\r\n    ResultLabel.Caption := 'ResultLabel';\r\n    ResultLabel.ElementClassName := 'h6 m-2';\r\n    ResultLabel.ElementFont := efCSS;\r\n    ResultLabel.ElementPosition := epIgnore;\r\n    ResultLabel.HeightStyle := ssAuto;\r\n    ResultLabel.HeightPercent := 100.000000000000000000;\r\n    ResultLabel.WidthStyle := ssAuto;\r\n    ResultLabel.WidthPercent := 100.000000000000000000;\r\n    SetEvent(ResultLabel, Self, 'OnClick', 'ResultLabelClick');\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ChildOrder := 2;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 5;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 5;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    btnNeuerServiceBericht.SetParentComponent(Self);\r\n    btnNeuerServiceBericht.Name := 'btnNeuerServiceBericht';\r\n    btnNeuerServiceBericht.Left := 73;\r\n    btnNeuerServiceBericht.Top := 16;\r\n    btnNeuerServiceBericht.Width := 96;\r\n    btnNeuerServiceBericht.Height := 25;\r\n    btnNeuerServiceBericht.Caption := '+ Servicebericht';\r\n    btnNeuerServiceBericht.ChildOrder := 7;\r\n    btnNeuerServiceBericht.ElementClassName := 'btn btn-info m-1 text-left';\r\n    btnNeuerServiceBericht.ElementFont := efCSS;\r\n    btnNeuerServiceBericht.ElementPosition := epIgnore;\r\n    btnNeuerServiceBericht.HeightStyle := ssAuto;\r\n    btnNeuerServiceBericht.HeightPercent := 100.000000000000000000;\r\n    btnNeuerServiceBericht.WidthStyle := ssAuto;\r\n    btnNeuerServiceBericht.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnNeuerServiceBericht, Self, 'OnClick', 'btnNeuerServiceBerichtClick');\r\n    btnNeuerAuftrag.SetParentComponent(Self);\r\n    btnNeuerAuftrag.Name := 'btnNeuerAuftrag';\r\n    btnNeuerAuftrag.Left := 73;\r\n    btnNeuerAuftrag.Top := 47;\r\n    btnNeuerAuftrag.Width := 96;\r\n    btnNeuerAuftrag.Height := 25;\r\n    btnNeuerAuftrag.Caption := '+ Auftrag';\r\n    btnNeuerAuftrag.ChildOrder := 8;\r\n    btnNeuerAuftrag.ElementClassName := 'btn btn-info m-1 text-left';\r\n    btnNeuerAuftrag.ElementFont := efCSS;\r\n    btnNeuerAuftrag.ElementPosition := epIgnore;\r\n    btnNeuerAuftrag.HeightStyle := ssAuto;\r\n    btnNeuerAuftrag.HeightPercent := 100.000000000000000000;\r\n    btnNeuerAuftrag.WidthStyle := ssAuto;\r\n    btnNeuerAuftrag.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnNeuerAuftrag, Self, 'OnClick', 'btnNeuerAuftragClick');\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 67;\r\n    btnzurueck.Top := 141;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    edtSuchbegriff.SetParentComponent(Self);\r\n    edtSuchbegriff.Name := 'edtSuchbegriff';\r\n    edtSuchbegriff.Left := 8;\r\n    edtSuchbegriff.Top := 296;\r\n    edtSuchbegriff.Width := 150;\r\n    edtSuchbegriff.Height := 22;\r\n    edtSuchbegriff.AutoSelect := False;\r\n    edtSuchbegriff.ChildOrder := 6;\r\n    edtSuchbegriff.ElementClassName := 'form-control input-sm m-1';\r\n    edtSuchbegriff.ElementFont := efCSS;\r\n    edtSuchbegriff.ElementPosition := epIgnore;\r\n    edtSuchbegriff.HeightStyle := ssAuto;\r\n    edtSuchbegriff.HeightPercent := 100.000000000000000000;\r\n    edtSuchbegriff.ShowHint := True;\r\n    edtSuchbegriff.TextHint := 'Suchbegriff eingeben';\r\n    edtSuchbegriff.WidthPercent := 60.000000000000000000;\r\n    SetEvent(edtSuchbegriff, Self, 'OnChange', 'edtSuchbegriffChange');\r\n    xdsAuftrag.SetParentComponent(Self);\r\n    xdsAuftrag.Name := 'xdsAuftrag';\r\n    xdsAuftrag.AfterOpen := xdsAuftragAfterOpen;\r\n    xdsAuftrag.EntitySetName := 'Auftrag';\r\n    xdsAuftrag.Connection := DM2.XDataWebConnection1;\r\n    xdsAuftrag.SubpropsDepth := 1;\r\n    xdsAuftrag.QueryString := '$expand=Kundennummer&$filter=(Auftragerledigt eq 0)&$orderby=Nummerkomplett DESC';\r\n    xdsAuftrag.QueryTop := 100;\r\n    xdsAuftrag.Left := 36;\r\n    xdsAuftrag.Top := 118;\r\n    xdsAuftragKundennummer.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragKundennummer.Name := 'xdsAuftragKundennummer';\r\n    xdsAuftragKundennummer.FieldName := 'Kundennummer';\r\n    xdsAuftragKundennummer.Required := True;\r\n    xdsAuftragNummerkomplett.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragNummerkomplett.Name := 'xdsAuftragNummerkomplett';\r\n    xdsAuftragNummerkomplett.FieldName := 'Nummerkomplett';\r\n    xdsAuftragNummerkomplett.Required := True;\r\n    xdsAuftragNummerkomplett.Size := 10;\r\n    xdsAuftragReferenzAngebot.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragReferenzAngebot.Name := 'xdsAuftragReferenzAngebot';\r\n    xdsAuftragReferenzAngebot.FieldName := 'ReferenzAngebot';\r\n    xdsAuftragReferenzAngebot.Size := 10;\r\n    xdsAuftragReferenzLieferschein.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragReferenzLieferschein.Name := 'xdsAuftragReferenzLieferschein';\r\n    xdsAuftragReferenzLieferschein.FieldName := 'ReferenzLieferschein';\r\n    xdsAuftragReferenzLieferschein.Size := 10;\r\n    xdsAuftragReferenzRechnung.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragReferenzRechnung.Name := 'xdsAuftragReferenzRechnung';\r\n    xdsAuftragReferenzRechnung.FieldName := 'ReferenzRechnung';\r\n    xdsAuftragReferenzRechnung.Size := 10;\r\n    xdsAuftragDatum.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragDatum.Name := 'xdsAuftragDatum';\r\n    xdsAuftragDatum.FieldName := 'Datum';\r\n    xdsAuftragDatum.Required := True;\r\n    xdsAuftragDatum.DisplayFormat := 'DD.MM.YYYY';\r\n    xdsAuftragJahr.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragJahr.Name := 'xdsAuftragJahr';\r\n    xdsAuftragJahr.FieldName := 'Jahr';\r\n    xdsAuftragKalenderwoche.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragKalenderwoche.Name := 'xdsAuftragKalenderwoche';\r\n    xdsAuftragKalenderwoche.FieldName := 'Kalenderwoche';\r\n    xdsAuftragNachname.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragNachname.Name := 'xdsAuftragNachname';\r\n    xdsAuftragNachname.FieldName := 'Nachname';\r\n    xdsAuftragNachname.Size := 50;\r\n    xdsAuftragVorname.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragVorname.Name := 'xdsAuftragVorname';\r\n    xdsAuftragVorname.FieldName := 'Vorname';\r\n    xdsAuftragVorname.Size := 50;\r\n    xdsAuftragPostleitzahl.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragPostleitzahl.Name := 'xdsAuftragPostleitzahl';\r\n    xdsAuftragPostleitzahl.FieldName := 'Postleitzahl';\r\n    xdsAuftragPostleitzahl.Size := 10;\r\n    xdsAuftragOrt.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragOrt.Name := 'xdsAuftragOrt';\r\n    xdsAuftragOrt.FieldName := 'Ort';\r\n    xdsAuftragOrt.Size := 50;\r\n    xdsAuftragLaenderkuerzel.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragLaenderkuerzel.Name := 'xdsAuftragLaenderkuerzel';\r\n    xdsAuftragLaenderkuerzel.FieldName := 'Laenderkuerzel';\r\n    xdsAuftragLaenderkuerzel.Size := 5;\r\n    xdsAuftragLand.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragLand.Name := 'xdsAuftragLand';\r\n    xdsAuftragLand.FieldName := 'Land';\r\n    xdsAuftragLand.Size := 50;\r\n    xdsAuftragBriefanrede1.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragBriefanrede1.Name := 'xdsAuftragBriefanrede1';\r\n    xdsAuftragBriefanrede1.FieldName := 'Briefanrede1';\r\n    xdsAuftragBriefanrede1.Size := 255;\r\n    xdsAuftragBriefanrede2.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragBriefanrede2.Name := 'xdsAuftragBriefanrede2';\r\n    xdsAuftragBriefanrede2.FieldName := 'Briefanrede2';\r\n    xdsAuftragBriefanrede2.Size := 40;\r\n    xdsAuftragEMail.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragEMail.Name := 'xdsAuftragEMail';\r\n    xdsAuftragEMail.FieldName := 'EMail';\r\n    xdsAuftragEMail.Size := 50;\r\n    xdsAuftragAdresseBild.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragAdresseBild.Name := 'xdsAuftragAdresseBild';\r\n    xdsAuftragAdresseBild.FieldName := 'AdresseBild';\r\n    xdsAuftragAdresseBild.Size := 255;\r\n    xdsAuftragLieferanschriftBild.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragLieferanschriftBild.Name := 'xdsAuftragLieferanschriftBild';\r\n    xdsAuftragLieferanschriftBild.FieldName := 'LieferanschriftBild';\r\n    xdsAuftragLieferanschriftBild.Size := 255;\r\n    xdsAuftragZahlungsbedingung.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragZahlungsbedingung.Name := 'xdsAuftragZahlungsbedingung';\r\n    xdsAuftragZahlungsbedingung.FieldName := 'Zahlungsbedingung';\r\n    xdsAuftragZahlungsbedingungText.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragZahlungsbedingungText.Name := 'xdsAuftragZahlungsbedingungText';\r\n    xdsAuftragZahlungsbedingungText.FieldName := 'ZahlungsbedingungText';\r\n    xdsAuftragZahlungsbedingungText.Size := 250;\r\n    xdsAuftragAuftragsbezeichnung.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragAuftragsbezeichnung.Name := 'xdsAuftragAuftragsbezeichnung';\r\n    xdsAuftragAuftragsbezeichnung.FieldName := 'Auftragsbezeichnung';\r\n    xdsAuftragAuftragsbezeichnung.Size := 255;\r\n    xdsAuftragAuftragnummerKunde.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragAuftragnummerKunde.Name := 'xdsAuftragAuftragnummerKunde';\r\n    xdsAuftragAuftragnummerKunde.FieldName := 'AuftragnummerKunde';\r\n    xdsAuftragAuftragnummerKunde.Size := 50;\r\n    xdsAuftragBestelldatumKunde.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragBestelldatumKunde.Name := 'xdsAuftragBestelldatumKunde';\r\n    xdsAuftragBestelldatumKunde.FieldName := 'BestelldatumKunde';\r\n    xdsAuftragILN.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragILN.Name := 'xdsAuftragILN';\r\n    xdsAuftragILN.FieldName := 'ILN';\r\n    xdsAuftragILN.Size := 50;\r\n    xdsAuftragKopftext.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragKopftext.Name := 'xdsAuftragKopftext';\r\n    xdsAuftragKopftext.FieldName := 'Kopftext';\r\n    xdsAuftragKopftext.Size := 255;\r\n    xdsAuftragSchlussbemerkung.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragSchlussbemerkung.Name := 'xdsAuftragSchlussbemerkung';\r\n    xdsAuftragSchlussbemerkung.FieldName := 'Schlussbemerkung';\r\n    xdsAuftragSchlussbemerkung.Size := 255;\r\n    xdsAuftragGruss.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragGruss.Name := 'xdsAuftragGruss';\r\n    xdsAuftragGruss.FieldName := 'Gruss';\r\n    xdsAuftragGruss.Size := 255;\r\n    xdsAuftragMehrwertsteuersatz1.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragMehrwertsteuersatz1.Name := 'xdsAuftragMehrwertsteuersatz1';\r\n    xdsAuftragMehrwertsteuersatz1.FieldName := 'Mehrwertsteuersatz1';\r\n    xdsAuftragMehrwertsteuersatz2.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragMehrwertsteuersatz2.Name := 'xdsAuftragMehrwertsteuersatz2';\r\n    xdsAuftragMehrwertsteuersatz2.FieldName := 'Mehrwertsteuersatz2';\r\n    xdsAuftragNettosumme01.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragNettosumme01.Name := 'xdsAuftragNettosumme01';\r\n    xdsAuftragNettosumme01.FieldName := 'Nettosumme01';\r\n    xdsAuftragNettosumme02.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragNettosumme02.Name := 'xdsAuftragNettosumme02';\r\n    xdsAuftragNettosumme02.FieldName := 'Nettosumme02';\r\n    xdsAuftragNettosumme.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragNettosumme.Name := 'xdsAuftragNettosumme';\r\n    xdsAuftragNettosumme.FieldName := 'Nettosumme';\r\n    xdsAuftragMehrwertsteuer01.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragMehrwertsteuer01.Name := 'xdsAuftragMehrwertsteuer01';\r\n    xdsAuftragMehrwertsteuer01.FieldName := 'Mehrwertsteuer01';\r\n    xdsAuftragMehrwertsteuer02.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragMehrwertsteuer02.Name := 'xdsAuftragMehrwertsteuer02';\r\n    xdsAuftragMehrwertsteuer02.FieldName := 'Mehrwertsteuer02';\r\n    xdsAuftragMehrwertsteuer.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragMehrwertsteuer.Name := 'xdsAuftragMehrwertsteuer';\r\n    xdsAuftragMehrwertsteuer.FieldName := 'Mehrwertsteuer';\r\n    xdsAuftragBruttosumme.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragBruttosumme.Name := 'xdsAuftragBruttosumme';\r\n    xdsAuftragBruttosumme.FieldName := 'Bruttosumme';\r\n    xdsAuftragVersanddatum.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragVersanddatum.Name := 'xdsAuftragVersanddatum';\r\n    xdsAuftragVersanddatum.FieldName := 'Versanddatum';\r\n    xdsAuftragSkontosatz.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragSkontosatz.Name := 'xdsAuftragSkontosatz';\r\n    xdsAuftragSkontosatz.FieldName := 'Skontosatz';\r\n    xdsAuftragNettosummeEK.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragNettosummeEK.Name := 'xdsAuftragNettosummeEK';\r\n    xdsAuftragNettosummeEK.FieldName := 'NettosummeEK';\r\n    xdsAuftragNettoMarge.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragNettoMarge.Name := 'xdsAuftragNettoMarge';\r\n    xdsAuftragNettoMarge.FieldName := 'NettoMarge';\r\n    xdsAuftragSchreibzeichen.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragSchreibzeichen.Name := 'xdsAuftragSchreibzeichen';\r\n    xdsAuftragSchreibzeichen.FieldName := 'Schreibzeichen';\r\n    xdsAuftragSchreibzeichen.Size := 10;\r\n    xdsAuftragUnterzeichner.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragUnterzeichner.Name := 'xdsAuftragUnterzeichner';\r\n    xdsAuftragUnterzeichner.FieldName := 'Unterzeichner';\r\n    xdsAuftragUnterzeichner.Size := 50;\r\n    xdsAuftragTelefonMA.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragTelefonMA.Name := 'xdsAuftragTelefonMA';\r\n    xdsAuftragTelefonMA.FieldName := 'TelefonMA';\r\n    xdsAuftragTelefonMA.Size := 30;\r\n    xdsAuftragEmailMA.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragEmailMA.Name := 'xdsAuftragEmailMA';\r\n    xdsAuftragEmailMA.FieldName := 'EmailMA';\r\n    xdsAuftragEmailMA.Size := 50;\r\n    xdsAuftragUSTID.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragUSTID.Name := 'xdsAuftragUSTID';\r\n    xdsAuftragUSTID.FieldName := 'USTID';\r\n    xdsAuftragUmsatzsteuerausweis.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragUmsatzsteuerausweis.Name := 'xdsAuftragUmsatzsteuerausweis';\r\n    xdsAuftragUmsatzsteuerausweis.FieldName := 'Umsatzsteuerausweis';\r\n    xdsAuftraggebucht.SetParentComponent(xdsAuftrag);\r\n    xdsAuftraggebucht.Name := 'xdsAuftraggebucht';\r\n    xdsAuftraggebucht.FieldName := 'gebucht';\r\n    xdsAuftragLieferdatum.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragLieferdatum.Name := 'xdsAuftragLieferdatum';\r\n    xdsAuftragLieferdatum.FieldName := 'Lieferdatum';\r\n    xdsAuftragTransportbedingung.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragTransportbedingung.Name := 'xdsAuftragTransportbedingung';\r\n    xdsAuftragTransportbedingung.FieldName := 'Transportbedingung';\r\n    xdsAuftragTransportbedingung.Size := 100;\r\n    xdsAuftragMehrwertsteuersatz3.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragMehrwertsteuersatz3.Name := 'xdsAuftragMehrwertsteuersatz3';\r\n    xdsAuftragMehrwertsteuersatz3.FieldName := 'Mehrwertsteuersatz3';\r\n    xdsAuftragMehrwertsteuer03.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragMehrwertsteuer03.Name := 'xdsAuftragMehrwertsteuer03';\r\n    xdsAuftragMehrwertsteuer03.FieldName := 'Mehrwertsteuer03';\r\n    xdsAuftragNettosumme03.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragNettosumme03.Name := 'xdsAuftragNettosumme03';\r\n    xdsAuftragNettosumme03.FieldName := 'Nettosumme03';\r\n    xdsAuftragRundungsDifferenz.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragRundungsDifferenz.Name := 'xdsAuftragRundungsDifferenz';\r\n    xdsAuftragRundungsDifferenz.FieldName := 'RundungsDifferenz';\r\n    xdsAuftragEmailText.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragEmailText.Name := 'xdsAuftragEmailText';\r\n    xdsAuftragEmailText.FieldName := 'EmailText';\r\n    xdsAuftragEmailText.Size := 255;\r\n    xdsAuftragAuftragerledigt.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragAuftragerledigt.Name := 'xdsAuftragAuftragerledigt';\r\n    xdsAuftragAuftragerledigt.FieldName := 'Auftragerledigt';\r\n    xdsAuftragRabattstufe.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragRabattstufe.Name := 'xdsAuftragRabattstufe';\r\n    xdsAuftragRabattstufe.FieldName := 'Rabattstufe';\r\n    xdsAuftragRabattstufe.Size := 15;\r\n    xdsAuftragKFZKennzeichen.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragKFZKennzeichen.Name := 'xdsAuftragKFZKennzeichen';\r\n    xdsAuftragKFZKennzeichen.FieldName := 'KFZKennzeichen';\r\n    xdsAuftragKFZKennzeichen.Size := 13;\r\n    xdsAuftragFahrgestellnummer.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragFahrgestellnummer.Name := 'xdsAuftragFahrgestellnummer';\r\n    xdsAuftragFahrgestellnummer.FieldName := 'Fahrgestellnummer';\r\n    xdsAuftragKFZHersteller.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragKFZHersteller.Name := 'xdsAuftragKFZHersteller';\r\n    xdsAuftragKFZHersteller.FieldName := 'KFZHersteller';\r\n    xdsAuftragErstzulassungsdatum.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragErstzulassungsdatum.Name := 'xdsAuftragErstzulassungsdatum';\r\n    xdsAuftragErstzulassungsdatum.FieldName := 'Erstzulassungsdatum';\r\n    xdsAuftragKMStand.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragKMStand.Name := 'xdsAuftragKMStand';\r\n    xdsAuftragKMStand.FieldName := 'KMStand';\r\n    xdsAuftragKMStand.Size := 6;\r\n    xdsAuftragKFZType.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragKFZType.Name := 'xdsAuftragKFZType';\r\n    xdsAuftragKFZType.FieldName := 'KFZType';\r\n    xdsAuftragKFZType.Size := 25;\r\n    xdsAuftragInspektionsdatum.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragInspektionsdatum.Name := 'xdsAuftragInspektionsdatum';\r\n    xdsAuftragInspektionsdatum.FieldName := 'Inspektionsdatum';\r\n    xdsAuftragDebitorennummer.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragDebitorennummer.Name := 'xdsAuftragDebitorennummer';\r\n    xdsAuftragDebitorennummer.FieldName := 'Debitorennummer';\r\n    xdsAuftragDebitorennummer.Size := 13;\r\n    xdsAuftragKostentraeger.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragKostentraeger.Name := 'xdsAuftragKostentraeger';\r\n    xdsAuftragKostentraeger.FieldName := 'Kostentraeger';\r\n    xdsAuftragKostentraeger.Size := 13;\r\n    xdsAuftragRabattsatz.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragRabattsatz.Name := 'xdsAuftragRabattsatz';\r\n    xdsAuftragRabattsatz.FieldName := 'Rabattsatz';\r\n    xdsAuftragObjektReferenz.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragObjektReferenz.Name := 'xdsAuftragObjektReferenz';\r\n    xdsAuftragObjektReferenz.FieldName := 'ObjektReferenz';\r\n    xdsAuftragObjektReferenz.Size := 13;\r\n    xdsAuftragBank.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragBank.Name := 'xdsAuftragBank';\r\n    xdsAuftragBank.FieldName := 'Bank';\r\n    xdsAuftragBank.Size := 50;\r\n    xdsAuftragBankleitzahl.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragBankleitzahl.Name := 'xdsAuftragBankleitzahl';\r\n    xdsAuftragBankleitzahl.FieldName := 'Bankleitzahl';\r\n    xdsAuftragKontonummer.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragKontonummer.Name := 'xdsAuftragKontonummer';\r\n    xdsAuftragKontonummer.FieldName := 'Kontonummer';\r\n    xdsAuftragKontonummer.Size := 50;\r\n    xdsAuftragKontoinhaber.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragKontoinhaber.Name := 'xdsAuftragKontoinhaber';\r\n    xdsAuftragKontoinhaber.FieldName := 'Kontoinhaber';\r\n    xdsAuftragKontoinhaber.Size := 50;\r\n    xdsAuftragTelefaxnummer.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragTelefaxnummer.Name := 'xdsAuftragTelefaxnummer';\r\n    xdsAuftragTelefaxnummer.FieldName := 'Telefaxnummer';\r\n    xdsAuftragTelefaxnummer.Size := 25;\r\n    xdsAuftragDatumNeu.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragDatumNeu.Name := 'xdsAuftragDatumNeu';\r\n    xdsAuftragDatumNeu.FieldName := 'DatumNeu';\r\n    xdsAuftragDatumgeaendert.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragDatumgeaendert.Name := 'xdsAuftragDatumgeaendert';\r\n    xdsAuftragDatumgeaendert.FieldName := 'Datumgeaendert';\r\n    xdsAuftragObjektnummer.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragObjektnummer.Name := 'xdsAuftragObjektnummer';\r\n    xdsAuftragObjektnummer.FieldName := 'Objektnummer';\r\n    xdsAuftragObjektnummer.Size := 25;\r\n    xdsAuftragLiefertermin.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragLiefertermin.Name := 'xdsAuftragLiefertermin';\r\n    xdsAuftragLiefertermin.FieldName := 'Liefertermin';\r\n    xdsAuftragLiefertermin.Size := 50;\r\n    xdsAuftragEmailversand.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragEmailversand.Name := 'xdsAuftragEmailversand';\r\n    xdsAuftragEmailversand.FieldName := 'Emailversand';\r\n    xdsAuftragTelefonnummer.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragTelefonnummer.Name := 'xdsAuftragTelefonnummer';\r\n    xdsAuftragTelefonnummer.FieldName := 'Telefonnummer';\r\n    xdsAuftragTelefonnummer.Size := 35;\r\n    xdsAuftragMobilTelefon.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragMobilTelefon.Name := 'xdsAuftragMobilTelefon';\r\n    xdsAuftragMobilTelefon.FieldName := 'MobilTelefon';\r\n    xdsAuftragMobilTelefon.Size := 25;\r\n    xdsAuftragAuftragFax.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragAuftragFax.Name := 'xdsAuftragAuftragFax';\r\n    xdsAuftragAuftragFax.FieldName := 'AuftragFax';\r\n    xdsAuftragREDatum.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragREDatum.Name := 'xdsAuftragREDatum';\r\n    xdsAuftragREDatum.FieldName := 'REDatum';\r\n    xdsAuftragBenutzerNeu.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragBenutzerNeu.Name := 'xdsAuftragBenutzerNeu';\r\n    xdsAuftragBenutzerNeu.FieldName := 'BenutzerNeu';\r\n    xdsAuftragBenutzerNeu.Size := 50;\r\n    xdsAuftragBenutzerGeaendert.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragBenutzerGeaendert.Name := 'xdsAuftragBenutzerGeaendert';\r\n    xdsAuftragBenutzerGeaendert.FieldName := 'BenutzerGeaendert';\r\n    xdsAuftragBenutzerGeaendert.Size := 50;\r\n    xdsAuftragBerechnungBrutto.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragBerechnungBrutto.Name := 'xdsAuftragBerechnungBrutto';\r\n    xdsAuftragBerechnungBrutto.FieldName := 'BerechnungBrutto';\r\n    xdsAuftragBruttosumme01.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragBruttosumme01.Name := 'xdsAuftragBruttosumme01';\r\n    xdsAuftragBruttosumme01.FieldName := 'Bruttosumme01';\r\n    xdsAuftragBruttosumme02.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragBruttosumme02.Name := 'xdsAuftragBruttosumme02';\r\n    xdsAuftragBruttosumme02.FieldName := 'Bruttosumme02';\r\n    xdsAuftragBruttosumme03.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragBruttosumme03.Name := 'xdsAuftragBruttosumme03';\r\n    xdsAuftragBruttosumme03.FieldName := 'Bruttosumme03';\r\n    xdsAuftragNotiz.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragNotiz.Name := 'xdsAuftragNotiz';\r\n    xdsAuftragNotiz.FieldName := 'Notiz';\r\n    xdsAuftragNotiz.Size := 255;\r\n    xdsAuftragMargeProzent.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragMargeProzent.Name := 'xdsAuftragMargeProzent';\r\n    xdsAuftragMargeProzent.FieldName := 'MargeProzent';\r\n    xdsAuftragWarenkreditgesperrt.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragWarenkreditgesperrt.Name := 'xdsAuftragWarenkreditgesperrt';\r\n    xdsAuftragWarenkreditgesperrt.FieldName := 'Warenkreditgesperrt';\r\n    xdsAuftragBelegsprache.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragBelegsprache.Name := 'xdsAuftragBelegsprache';\r\n    xdsAuftragBelegsprache.FieldName := 'Belegsprache';\r\n    xdsAuftragBelegsprache.Size := 10;\r\n    xdsAuftragDuplicate.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragDuplicate.Name := 'xdsAuftragDuplicate';\r\n    xdsAuftragDuplicate.FieldName := 'Duplicate';\r\n    xdsAuftragperEmail.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragperEmail.Name := 'xdsAuftragperEmail';\r\n    xdsAuftragperEmail.FieldName := 'perEmail';\r\n    xdsAuftragAnsprechpartner.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragAnsprechpartner.Name := 'xdsAuftragAnsprechpartner';\r\n    xdsAuftragAnsprechpartner.FieldName := 'Ansprechpartner';\r\n    xdsAuftragAnsprechpartner.Size := 105;\r\n    xdsAuftragKundennummerFremd.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragKundennummerFremd.Name := 'xdsAuftragKundennummerFremd';\r\n    xdsAuftragKundennummerFremd.FieldName := 'KundennummerFremd';\r\n    xdsAuftragProtokoll.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragProtokoll.Name := 'xdsAuftragProtokoll';\r\n    xdsAuftragProtokoll.FieldName := 'Protokoll';\r\n    xdsAuftragProtokoll.Size := 255;\r\n    xdsAuftragVerleihauftrag.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragVerleihauftrag.Name := 'xdsAuftragVerleihauftrag';\r\n    xdsAuftragVerleihauftrag.FieldName := 'Verleihauftrag';\r\n    xdsAuftragVerleihVon.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragVerleihVon.Name := 'xdsAuftragVerleihVon';\r\n    xdsAuftragVerleihVon.FieldName := 'VerleihVon';\r\n    xdsAuftragVerleihBis.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragVerleihBis.Name := 'xdsAuftragVerleihBis';\r\n    xdsAuftragVerleihBis.FieldName := 'VerleihBis';\r\n    xdsAuftragAuftragGenehmigt.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragAuftragGenehmigt.Name := 'xdsAuftragAuftragGenehmigt';\r\n    xdsAuftragAuftragGenehmigt.FieldName := 'AuftragGenehmigt';\r\n    xdsAuftraggesperrt.SetParentComponent(xdsAuftrag);\r\n    xdsAuftraggesperrt.Name := 'xdsAuftraggesperrt';\r\n    xdsAuftraggesperrt.FieldName := 'gesperrt';\r\n    xdsAuftragVerleihvonText.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragVerleihvonText.Name := 'xdsAuftragVerleihvonText';\r\n    xdsAuftragVerleihvonText.FieldName := 'VerleihvonText';\r\n    xdsAuftragVerleihvonText.Size := 50;\r\n    xdsAuftragVerleihbisText.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragVerleihbisText.Name := 'xdsAuftragVerleihbisText';\r\n    xdsAuftragVerleihbisText.FieldName := 'VerleihbisText';\r\n    xdsAuftragVerleihbisText.Size := 50;\r\n    xdsAuftragDruckWHG.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragDruckWHG.Name := 'xdsAuftragDruckWHG';\r\n    xdsAuftragDruckWHG.FieldName := 'DruckWHG';\r\n    xdsAuftragDruckWHG.Size := 3;\r\n    xdsAuftragDruckWHGKurs.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragDruckWHGKurs.Name := 'xdsAuftragDruckWHGKurs';\r\n    xdsAuftragDruckWHGKurs.FieldName := 'DruckWHGKurs';\r\n    xdsAuftragProzentsatzZusatzposition.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragProzentsatzZusatzposition.Name := 'xdsAuftragProzentsatzZusatzposition';\r\n    xdsAuftragProzentsatzZusatzposition.FieldName := 'ProzentsatzZusatzposition';\r\n    xdsAuftragTextZusatzposition.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragTextZusatzposition.Name := 'xdsAuftragTextZusatzposition';\r\n    xdsAuftragTextZusatzposition.FieldName := 'TextZusatzposition';\r\n    xdsAuftragTextZusatzposition.Size := 255;\r\n    xdsAuftragTextzusatzBeschreibung.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragTextzusatzBeschreibung.Name := 'xdsAuftragTextzusatzBeschreibung';\r\n    xdsAuftragTextzusatzBeschreibung.FieldName := 'TextzusatzBeschreibung';\r\n    xdsAuftragTextzusatzBeschreibung.Size := 50;\r\n    xdsAuftragLayoutname.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragLayoutname.Name := 'xdsAuftragLayoutname';\r\n    xdsAuftragLayoutname.FieldName := 'Layoutname';\r\n    xdsAuftragLayoutname.Size := 50;\r\n    xdsAuftragGesamtgewicht.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragGesamtgewicht.Name := 'xdsAuftragGesamtgewicht';\r\n    xdsAuftragGesamtgewicht.FieldName := 'Gesamtgewicht';\r\n    xdsAuftragBetragZusatzposition.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragBetragZusatzposition.Name := 'xdsAuftragBetragZusatzposition';\r\n    xdsAuftragBetragZusatzposition.FieldName := 'BetragZusatzposition';\r\n    xdsAuftragReferenzBestellung.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragReferenzBestellung.Name := 'xdsAuftragReferenzBestellung';\r\n    xdsAuftragReferenzBestellung.FieldName := 'ReferenzBestellung';\r\n    xdsAuftragReferenzBestellung.Size := 10;\r\n    xdsAuftragTermin1.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragTermin1.Name := 'xdsAuftragTermin1';\r\n    xdsAuftragTermin1.FieldName := 'Termin1';\r\n    xdsAuftragTermin2.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragTermin2.Name := 'xdsAuftragTermin2';\r\n    xdsAuftragTermin2.FieldName := 'Termin2';\r\n    xdsAuftragZielkontaktnummer.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragZielkontaktnummer.Name := 'xdsAuftragZielkontaktnummer';\r\n    xdsAuftragZielkontaktnummer.FieldName := 'Zielkontaktnummer';\r\n    xdsAuftragZielkontaktnummer.Size := 13;\r\n    xdsAuftragZielkontaktname.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragZielkontaktname.Name := 'xdsAuftragZielkontaktname';\r\n    xdsAuftragZielkontaktname.FieldName := 'Zielkontaktname';\r\n    xdsAuftragZielkontaktname.Size := 40;\r\n    xdsAuftragBilddatei1.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragBilddatei1.Name := 'xdsAuftragBilddatei1';\r\n    xdsAuftragBilddatei1.FieldName := 'Bilddatei1';\r\n    xdsAuftragBilddatei1.Size := 255;\r\n    xdsAuftragBilddatei2.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragBilddatei2.Name := 'xdsAuftragBilddatei2';\r\n    xdsAuftragBilddatei2.FieldName := 'Bilddatei2';\r\n    xdsAuftragBilddatei2.Size := 255;\r\n    xdsAuftragZielkontaktnummer2.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragZielkontaktnummer2.Name := 'xdsAuftragZielkontaktnummer2';\r\n    xdsAuftragZielkontaktnummer2.FieldName := 'Zielkontaktnummer2';\r\n    xdsAuftragZielkontaktnummer2.Size := 13;\r\n    xdsAuftragZielkontaktname2.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragZielkontaktname2.Name := 'xdsAuftragZielkontaktname2';\r\n    xdsAuftragZielkontaktname2.FieldName := 'Zielkontaktname2';\r\n    xdsAuftragZielkontaktname2.Size := 40;\r\n    xdsAuftragbestaetigt.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragbestaetigt.Name := 'xdsAuftragbestaetigt';\r\n    xdsAuftragbestaetigt.FieldName := 'bestaetigt';\r\n    xdsAuftragZielkontaktnummer3.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragZielkontaktnummer3.Name := 'xdsAuftragZielkontaktnummer3';\r\n    xdsAuftragZielkontaktnummer3.FieldName := 'Zielkontaktnummer3';\r\n    xdsAuftragZielkontaktnummer3.Size := 13;\r\n    xdsAuftragZielkontaktname3.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragZielkontaktname3.Name := 'xdsAuftragZielkontaktname3';\r\n    xdsAuftragZielkontaktname3.FieldName := 'Zielkontaktname3';\r\n    xdsAuftragZielkontaktname3.Size := 40;\r\n    xdsAuftragTermin3.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragTermin3.Name := 'xdsAuftragTermin3';\r\n    xdsAuftragTermin3.FieldName := 'Termin3';\r\n    xdsAuftragTermin4.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragTermin4.Name := 'xdsAuftragTermin4';\r\n    xdsAuftragTermin4.FieldName := 'Termin4';\r\n    xdsAuftragMuster.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragMuster.Name := 'xdsAuftragMuster';\r\n    xdsAuftragMuster.FieldName := 'Muster';\r\n    xdsAuftragKW.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragKW.Name := 'xdsAuftragKW';\r\n    xdsAuftragKW.FieldName := 'KW';\r\n    xdsAuftragDatenlink.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragDatenlink.Name := 'xdsAuftragDatenlink';\r\n    xdsAuftragDatenlink.FieldName := 'Datenlink';\r\n    xdsAuftragDatenlink.Size := 255;\r\n    xdsAuftragMehrwertsteuersatz4.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragMehrwertsteuersatz4.Name := 'xdsAuftragMehrwertsteuersatz4';\r\n    xdsAuftragMehrwertsteuersatz4.FieldName := 'Mehrwertsteuersatz4';\r\n    xdsAuftragMehrwertsteuersatz5.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragMehrwertsteuersatz5.Name := 'xdsAuftragMehrwertsteuersatz5';\r\n    xdsAuftragMehrwertsteuersatz5.FieldName := 'Mehrwertsteuersatz5';\r\n    xdsAuftragMehrwertsteuersatz6.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragMehrwertsteuersatz6.Name := 'xdsAuftragMehrwertsteuersatz6';\r\n    xdsAuftragMehrwertsteuersatz6.FieldName := 'Mehrwertsteuersatz6';\r\n    xdsAuftragBesteuerungKey.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragBesteuerungKey.Name := 'xdsAuftragBesteuerungKey';\r\n    xdsAuftragBesteuerungKey.FieldName := 'BesteuerungKey';\r\n    xdsAuftragVertreterMatchcode.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragVertreterMatchcode.Name := 'xdsAuftragVertreterMatchcode';\r\n    xdsAuftragVertreterMatchcode.FieldName := 'VertreterMatchcode';\r\n    xdsAuftragVertreterMatchcode.Size := 50;\r\n    xdsAuftragVerfasser.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragVerfasser.Name := 'xdsAuftragVerfasser';\r\n    xdsAuftragVerfasser.FieldName := 'Verfasser';\r\n    xdsAuftragVerfasser.Size := 10;\r\n    xdsAuftragLieferadresseID.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragLieferadresseID.Name := 'xdsAuftragLieferadresseID';\r\n    xdsAuftragLieferadresseID.FieldName := 'LieferadresseID';\r\n    xdsAuftragAuftragStatus.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragAuftragStatus.Name := 'xdsAuftragAuftragStatus';\r\n    xdsAuftragAuftragStatus.FieldName := 'AuftragStatus';\r\n    xdsAuftragAuftragStatus.Size := 30;\r\n    xdsAuftragMonatJahr.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragMonatJahr.Name := 'xdsAuftragMonatJahr';\r\n    xdsAuftragMonatJahr.FieldName := 'MonatJahr';\r\n    xdsAuftragBelegvariante.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragBelegvariante.Name := 'xdsAuftragBelegvariante';\r\n    xdsAuftragBelegvariante.FieldName := 'Belegvariante';\r\n    xdsAuftragBelegvariante.Size := 25;\r\n    xdsAuftragProduktionsfreigabe.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragProduktionsfreigabe.Name := 'xdsAuftragProduktionsfreigabe';\r\n    xdsAuftragProduktionsfreigabe.FieldName := 'Produktionsfreigabe';\r\n    xdsAuftragReferenzRahmenAuftrag.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragReferenzRahmenAuftrag.Name := 'xdsAuftragReferenzRahmenAuftrag';\r\n    xdsAuftragReferenzRahmenAuftrag.FieldName := 'ReferenzRahmenAuftrag';\r\n    xdsAuftragReferenzRahmenAuftrag.Size := 10;\r\n    xdsAuftragDatumRahmenAuftrag.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragDatumRahmenAuftrag.Name := 'xdsAuftragDatumRahmenAuftrag';\r\n    xdsAuftragDatumRahmenAuftrag.FieldName := 'DatumRahmenAuftrag';\r\n    xdsAuftragFahrzeugID.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragFahrzeugID.Name := 'xdsAuftragFahrzeugID';\r\n    xdsAuftragFahrzeugID.FieldName := 'FahrzeugID';\r\n    xdsAuftragAuslieferungKW.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragAuslieferungKW.Name := 'xdsAuftragAuslieferungKW';\r\n    xdsAuftragAuslieferungKW.FieldName := 'AuslieferungKW';\r\n    xdsAuftragAuslieferungKW.Size := 25;\r\n    xdsAuftragBereitstellungDatum.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragBereitstellungDatum.Name := 'xdsAuftragBereitstellungDatum';\r\n    xdsAuftragBereitstellungDatum.FieldName := 'BereitstellungDatum';\r\n    xdsAuftragVTUID.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragVTUID.Name := 'xdsAuftragVTUID';\r\n    xdsAuftragVTUID.FieldName := 'VTUID';\r\n    xdsAuftragVTUID.Size := 38;\r\n    xdsAuftragLieferanschriftDaten.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragLieferanschriftDaten.Name := 'xdsAuftragLieferanschriftDaten';\r\n    xdsAuftragLieferanschriftDaten.FieldName := 'LieferanschriftDaten';\r\n    xdsAuftragLieferanschriftDaten.Size := 255;\r\n    xdsAuftragGesamtVolumen.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragGesamtVolumen.Name := 'xdsAuftragGesamtVolumen';\r\n    xdsAuftragGesamtVolumen.FieldName := 'GesamtVolumen';\r\n    xdsAuftragBelegPKey.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragBelegPKey.Name := 'xdsAuftragBelegPKey';\r\n    xdsAuftragBelegPKey.FieldName := 'BelegPKey';\r\n    xdsAuftragDruckParameter.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragDruckParameter.Name := 'xdsAuftragDruckParameter';\r\n    xdsAuftragDruckParameter.FieldName := 'DruckParameter';\r\n    xdsAuftragDruckParameter.Size := 255;\r\n    xdsAuftragReferenzService.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragReferenzService.Name := 'xdsAuftragReferenzService';\r\n    xdsAuftragReferenzService.FieldName := 'ReferenzService';\r\n    xdsAuftragReferenzService.Size := 10;\r\n    xdsAuftragZusatzDaten.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragZusatzDaten.Name := 'xdsAuftragZusatzDaten';\r\n    xdsAuftragZusatzDaten.FieldName := 'ZusatzDaten';\r\n    xdsAuftragZusatzDaten.Size := 255;\r\n    xdsAuftragStandPDF.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragStandPDF.Name := 'xdsAuftragStandPDF';\r\n    xdsAuftragStandPDF.FieldName := 'StandPDF';\r\n    xdsAuftragStandPDF.Size := 255;\r\n    xdsAuftragPaketdienst.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragPaketdienst.Name := 'xdsAuftragPaketdienst';\r\n    xdsAuftragPaketdienst.FieldName := 'Paketdienst';\r\n    xdsAuftragPaketdienst.Size := 30;\r\n    xdsAuftragMonteur.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragMonteur.Name := 'xdsAuftragMonteur';\r\n    xdsAuftragMonteur.FieldName := 'Monteur';\r\n    xdsAuftragKundennummerKundennummer.SetParentComponent(xdsAuftrag);\r\n    xdsAuftragKundennummerKundennummer.Name := 'xdsAuftragKundennummerKundennummer';\r\n    xdsAuftragKundennummerKundennummer.FieldName := 'Kundennummer.Kundennummer';\r\n    xdsAuftragKundennummerKundennummer.Size := 13;\r\n    WClient.SetParentComponent(Self);\r\n    WClient.Name := 'WClient';\r\n    WClient.Connection := DM2.XDataWebConnection1;\r\n    WClient.Left := 40;\r\n    WClient.Top := 176;\r\n  finally\r\n    ResultLabel.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    btnNeuerServiceBericht.AfterLoadDFMValues;\r\n    btnNeuerAuftrag.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    edtSuchbegriff.AfterLoadDFMValues;\r\n    xdsAuftrag.AfterLoadDFMValues;\r\n    xdsAuftragKundennummer.AfterLoadDFMValues;\r\n    xdsAuftragNummerkomplett.AfterLoadDFMValues;\r\n    xdsAuftragReferenzAngebot.AfterLoadDFMValues;\r\n    xdsAuftragReferenzLieferschein.AfterLoadDFMValues;\r\n    xdsAuftragReferenzRechnung.AfterLoadDFMValues;\r\n    xdsAuftragDatum.AfterLoadDFMValues;\r\n    xdsAuftragJahr.AfterLoadDFMValues;\r\n    xdsAuftragKalenderwoche.AfterLoadDFMValues;\r\n    xdsAuftragNachname.AfterLoadDFMValues;\r\n    xdsAuftragVorname.AfterLoadDFMValues;\r\n    xdsAuftragPostleitzahl.AfterLoadDFMValues;\r\n    xdsAuftragOrt.AfterLoadDFMValues;\r\n    xdsAuftragLaenderkuerzel.AfterLoadDFMValues;\r\n    xdsAuftragLand.AfterLoadDFMValues;\r\n    xdsAuftragBriefanrede1.AfterLoadDFMValues;\r\n    xdsAuftragBriefanrede2.AfterLoadDFMValues;\r\n    xdsAuftragEMail.AfterLoadDFMValues;\r\n    xdsAuftragAdresseBild.AfterLoadDFMValues;\r\n    xdsAuftragLieferanschriftBild.AfterLoadDFMValues;\r\n    xdsAuftragZahlungsbedingung.AfterLoadDFMValues;\r\n    xdsAuftragZahlungsbedingungText.AfterLoadDFMValues;\r\n    xdsAuftragAuftragsbezeichnung.AfterLoadDFMValues;\r\n    xdsAuftragAuftragnummerKunde.AfterLoadDFMValues;\r\n    xdsAuftragBestelldatumKunde.AfterLoadDFMValues;\r\n    xdsAuftragILN.AfterLoadDFMValues;\r\n    xdsAuftragKopftext.AfterLoadDFMValues;\r\n    xdsAuftragSchlussbemerkung.AfterLoadDFMValues;\r\n    xdsAuftragGruss.AfterLoadDFMValues;\r\n    xdsAuftragMehrwertsteuersatz1.AfterLoadDFMValues;\r\n    xdsAuftragMehrwertsteuersatz2.AfterLoadDFMValues;\r\n    xdsAuftragNettosumme01.AfterLoadDFMValues;\r\n    xdsAuftragNettosumme02.AfterLoadDFMValues;\r\n    xdsAuftragNettosumme.AfterLoadDFMValues;\r\n    xdsAuftragMehrwertsteuer01.AfterLoadDFMValues;\r\n    xdsAuftragMehrwertsteuer02.AfterLoadDFMValues;\r\n    xdsAuftragMehrwertsteuer.AfterLoadDFMValues;\r\n    xdsAuftragBruttosumme.AfterLoadDFMValues;\r\n    xdsAuftragVersanddatum.AfterLoadDFMValues;\r\n    xdsAuftragSkontosatz.AfterLoadDFMValues;\r\n    xdsAuftragNettosummeEK.AfterLoadDFMValues;\r\n    xdsAuftragNettoMarge.AfterLoadDFMValues;\r\n    xdsAuftragSchreibzeichen.AfterLoadDFMValues;\r\n    xdsAuftragUnterzeichner.AfterLoadDFMValues;\r\n    xdsAuftragTelefonMA.AfterLoadDFMValues;\r\n    xdsAuftragEmailMA.AfterLoadDFMValues;\r\n    xdsAuftragUSTID.AfterLoadDFMValues;\r\n    xdsAuftragUmsatzsteuerausweis.AfterLoadDFMValues;\r\n    xdsAuftraggebucht.AfterLoadDFMValues;\r\n    xdsAuftragLieferdatum.AfterLoadDFMValues;\r\n    xdsAuftragTransportbedingung.AfterLoadDFMValues;\r\n    xdsAuftragMehrwertsteuersatz3.AfterLoadDFMValues;\r\n    xdsAuftragMehrwertsteuer03.AfterLoadDFMValues;\r\n    xdsAuftragNettosumme03.AfterLoadDFMValues;\r\n    xdsAuftragRundungsDifferenz.AfterLoadDFMValues;\r\n    xdsAuftragEmailText.AfterLoadDFMValues;\r\n    xdsAuftragAuftragerledigt.AfterLoadDFMValues;\r\n    xdsAuftragRabattstufe.AfterLoadDFMValues;\r\n    xdsAuftragKFZKennzeichen.AfterLoadDFMValues;\r\n    xdsAuftragFahrgestellnummer.AfterLoadDFMValues;\r\n    xdsAuftragKFZHersteller.AfterLoadDFMValues;\r\n    xdsAuftragErstzulassungsdatum.AfterLoadDFMValues;\r\n    xdsAuftragKMStand.AfterLoadDFMValues;\r\n    xdsAuftragKFZType.AfterLoadDFMValues;\r\n    xdsAuftragInspektionsdatum.AfterLoadDFMValues;\r\n    xdsAuftragDebitorennummer.AfterLoadDFMValues;\r\n    xdsAuftragKostentraeger.AfterLoadDFMValues;\r\n    xdsAuftragRabattsatz.AfterLoadDFMValues;\r\n    xdsAuftragObjektReferenz.AfterLoadDFMValues;\r\n    xdsAuftragBank.AfterLoadDFMValues;\r\n    xdsAuftragBankleitzahl.AfterLoadDFMValues;\r\n    xdsAuftragKontonummer.AfterLoadDFMValues;\r\n    xdsAuftragKontoinhaber.AfterLoadDFMValues;\r\n    xdsAuftragTelefaxnummer.AfterLoadDFMValues;\r\n    xdsAuftragDatumNeu.AfterLoadDFMValues;\r\n    xdsAuftragDatumgeaendert.AfterLoadDFMValues;\r\n    xdsAuftragObjektnummer.AfterLoadDFMValues;\r\n    xdsAuftragLiefertermin.AfterLoadDFMValues;\r\n    xdsAuftragEmailversand.AfterLoadDFMValues;\r\n    xdsAuftragTelefonnummer.AfterLoadDFMValues;\r\n    xdsAuftragMobilTelefon.AfterLoadDFMValues;\r\n    xdsAuftragAuftragFax.AfterLoadDFMValues;\r\n    xdsAuftragREDatum.AfterLoadDFMValues;\r\n    xdsAuftragBenutzerNeu.AfterLoadDFMValues;\r\n    xdsAuftragBenutzerGeaendert.AfterLoadDFMValues;\r\n    xdsAuftragBerechnungBrutto.AfterLoadDFMValues;\r\n    xdsAuftragBruttosumme01.AfterLoadDFMValues;\r\n    xdsAuftragBruttosumme02.AfterLoadDFMValues;\r\n    xdsAuftragBruttosumme03.AfterLoadDFMValues;\r\n    xdsAuftragNotiz.AfterLoadDFMValues;\r\n    xdsAuftragMargeProzent.AfterLoadDFMValues;\r\n    xdsAuftragWarenkreditgesperrt.AfterLoadDFMValues;\r\n    xdsAuftragBelegsprache.AfterLoadDFMValues;\r\n    xdsAuftragDuplicate.AfterLoadDFMValues;\r\n    xdsAuftragperEmail.AfterLoadDFMValues;\r\n    xdsAuftragAnsprechpartner.AfterLoadDFMValues;\r\n    xdsAuftragKundennummerFremd.AfterLoadDFMValues;\r\n    xdsAuftragProtokoll.AfterLoadDFMValues;\r\n    xdsAuftragVerleihauftrag.AfterLoadDFMValues;\r\n    xdsAuftragVerleihVon.AfterLoadDFMValues;\r\n    xdsAuftragVerleihBis.AfterLoadDFMValues;\r\n    xdsAuftragAuftragGenehmigt.AfterLoadDFMValues;\r\n    xdsAuftraggesperrt.AfterLoadDFMValues;\r\n    xdsAuftragVerleihvonText.AfterLoadDFMValues;\r\n    xdsAuftragVerleihbisText.AfterLoadDFMValues;\r\n    xdsAuftragDruckWHG.AfterLoadDFMValues;\r\n    xdsAuftragDruckWHGKurs.AfterLoadDFMValues;\r\n    xdsAuftragProzentsatzZusatzposition.AfterLoadDFMValues;\r\n    xdsAuftragTextZusatzposition.AfterLoadDFMValues;\r\n    xdsAuftragTextzusatzBeschreibung.AfterLoadDFMValues;\r\n    xdsAuftragLayoutname.AfterLoadDFMValues;\r\n    xdsAuftragGesamtgewicht.AfterLoadDFMValues;\r\n    xdsAuftragBetragZusatzposition.AfterLoadDFMValues;\r\n    xdsAuftragReferenzBestellung.AfterLoadDFMValues;\r\n    xdsAuftragTermin1.AfterLoadDFMValues;\r\n    xdsAuftragTermin2.AfterLoadDFMValues;\r\n    xdsAuftragZielkontaktnummer.AfterLoadDFMValues;\r\n    xdsAuftragZielkontaktname.AfterLoadDFMValues;\r\n    xdsAuftragBilddatei1.AfterLoadDFMValues;\r\n    xdsAuftragBilddatei2.AfterLoadDFMValues;\r\n    xdsAuftragZielkontaktnummer2.AfterLoadDFMValues;\r\n    xdsAuftragZielkontaktname2.AfterLoadDFMValues;\r\n    xdsAuftragbestaetigt.AfterLoadDFMValues;\r\n    xdsAuftragZielkontaktnummer3.AfterLoadDFMValues;\r\n    xdsAuftragZielkontaktname3.AfterLoadDFMValues;\r\n    xdsAuftragTermin3.AfterLoadDFMValues;\r\n    xdsAuftragTermin4.AfterLoadDFMValues;\r\n    xdsAuftragMuster.AfterLoadDFMValues;\r\n    xdsAuftragKW.AfterLoadDFMValues;\r\n    xdsAuftragDatenlink.AfterLoadDFMValues;\r\n    xdsAuftragMehrwertsteuersatz4.AfterLoadDFMValues;\r\n    xdsAuftragMehrwertsteuersatz5.AfterLoadDFMValues;\r\n    xdsAuftragMehrwertsteuersatz6.AfterLoadDFMValues;\r\n    xdsAuftragBesteuerungKey.AfterLoadDFMValues;\r\n    xdsAuftragVertreterMatchcode.AfterLoadDFMValues;\r\n    xdsAuftragVerfasser.AfterLoadDFMValues;\r\n    xdsAuftragLieferadresseID.AfterLoadDFMValues;\r\n    xdsAuftragAuftragStatus.AfterLoadDFMValues;\r\n    xdsAuftragMonatJahr.AfterLoadDFMValues;\r\n    xdsAuftragBelegvariante.AfterLoadDFMValues;\r\n    xdsAuftragProduktionsfreigabe.AfterLoadDFMValues;\r\n    xdsAuftragReferenzRahmenAuftrag.AfterLoadDFMValues;\r\n    xdsAuftragDatumRahmenAuftrag.AfterLoadDFMValues;\r\n    xdsAuftragFahrzeugID.AfterLoadDFMValues;\r\n    xdsAuftragAuslieferungKW.AfterLoadDFMValues;\r\n    xdsAuftragBereitstellungDatum.AfterLoadDFMValues;\r\n    xdsAuftragVTUID.AfterLoadDFMValues;\r\n    xdsAuftragLieferanschriftDaten.AfterLoadDFMValues;\r\n    xdsAuftragGesamtVolumen.AfterLoadDFMValues;\r\n    xdsAuftragBelegPKey.AfterLoadDFMValues;\r\n    xdsAuftragDruckParameter.AfterLoadDFMValues;\r\n    xdsAuftragReferenzService.AfterLoadDFMValues;\r\n    xdsAuftragZusatzDaten.AfterLoadDFMValues;\r\n    xdsAuftragStandPDF.AfterLoadDFMValues;\r\n    xdsAuftragPaketdienst.AfterLoadDFMValues;\r\n    xdsAuftragMonteur.AfterLoadDFMValues;\r\n    xdsAuftragKundennummerKundennummer.AfterLoadDFMValues;\r\n    WClient.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.","unit Unit_AngebotPosEinzel;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, DB, XData.Web.JsonDataset, XData.Web.Dataset,\r\n  Vcl.StdCtrls, WEBLib.StdCtrls, WEBLib.Grids, Vcl.Controls, WEBLib.ExtCtrls, dateutils, strutils,\r\n  WEBLib.DBCtrls;\r\n\r\ntype\r\n  TAngebotPosEinzel = class(TForm)\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    WTCPosition: TTableControl;\r\n    btnPosAbbrechen: TButton;\r\n    btnPosSpeichern: TButton;\r\n    btnPositionLoeschen: TButton;\r\n    xdsPosition: TXDataWebDataSet;\r\n    sourcePosition: TDataSource;\r\n    dsArtikel: TXDataWebDataSet;\r\n    dsArtikelHersteller: TXDataWebEntityField;\r\n    dsArtikelArtderMenge: TXDataWebEntityField;\r\n    dsArtikelPfandArt: TXDataWebEntityField;\r\n    dsArtikelWarengruppe: TXDataWebEntityField;\r\n    dsArtikelWarenuntergruppe: TXDataWebEntityField;\r\n    dsArtikelArtikelnummer: TStringField;\r\n    dsArtikelArtikelueberschrift: TStringField;\r\n    dsArtikelArtikelbeschreibung: TStringField;\r\n    dsArtikelVerkaufspreis: TFloatField;\r\n    dsArtikelMindestbestand: TFloatField;\r\n    dsArtikelPreisliste: TStringField;\r\n    dsArtikelGewicht: TFloatField;\r\n    dsArtikelLaenge: TFloatField;\r\n    dsArtikelBreite: TFloatField;\r\n    dsArtikelHoehe: TFloatField;\r\n    dsArtikelArtikelZusatz: TStringField;\r\n    dsArtikelLagerort: TStringField;\r\n    dsArtikelBuchungskonto: TIntegerField;\r\n    dsArtikelEingangMenge: TFloatField;\r\n    dsArtikelEingangEndpreis: TFloatField;\r\n    dsArtikelAusgangMenge: TFloatField;\r\n    dsArtikelAusgangEndpreisEK: TFloatField;\r\n    dsArtikelAusgangEndpreisVK: TFloatField;\r\n    dsArtikelBestand: TFloatField;\r\n    dsArtikelBestandswert: TFloatField;\r\n    dsArtikelMarge: TFloatField;\r\n    dsArtikelMargeProzent: TFloatField;\r\n    dsArtikelArtikelnummer2: TStringField;\r\n    dsArtikelArtikelmatchcode: TStringField;\r\n    dsArtikelRabattpreis1: TFloatField;\r\n    dsArtikelRabattpreis2: TFloatField;\r\n    dsArtikelRabattpreis3: TFloatField;\r\n    dsArtikelRabattpreis4: TFloatField;\r\n    dsArtikelRabattpreis5: TFloatField;\r\n    dsArtikelArtikelnichtmehrgueltig: TBooleanField;\r\n    dsArtikelEinkaufspreis: TFloatField;\r\n    dsArtikelAufschlag: TFloatField;\r\n    dsArtikelWarenbestand: TBooleanField;\r\n    dsArtikelTextfrei10: TStringField;\r\n    dsArtikelTextfrei20: TStringField;\r\n    dsArtikelArtikelbeschreibungRTF: TStringField;\r\n    dsArtikelArtikeldatei1: TStringField;\r\n    dsArtikelArtikeldatei2: TStringField;\r\n    dsArtikelArtikeldatei3: TStringField;\r\n    dsArtikelArtikeldatei4: TStringField;\r\n    dsArtikelArtikeldatei5: TStringField;\r\n    dsArtikelEinkaufspreisVom: TDateTimeField;\r\n    dsArtikelEAN: TStringField;\r\n    dsArtikelVGPFaktor: TFloatField;\r\n    dsArtikelVGPMengenart: TStringField;\r\n    dsArtikelVerleihpreis: TFloatField;\r\n    dsArtikelZusatzPreis: TFloatField;\r\n    dsArtikelVerpackungsart: TStringField;\r\n    dsArtikelVerpackungsMenge: TFloatField;\r\n    dsArtikelQuellartikel: TStringField;\r\n    dsArtikelrabattierfaehig: TBooleanField;\r\n    dsArtikelAngebotAlternativeAN: TStringField;\r\n    dsArtikelPreisanteilNetto: TFloatField;\r\n    dsArtikelFarbe: TIntegerField;\r\n    dsArtikelAEinkauf: TBooleanField;\r\n    dsArtikelAVerkauf: TBooleanField;\r\n    dsArtikelArtikelnummerLieferant: TStringField;\r\n    dsArtikelLieferantnummer: TStringField;\r\n    dsArtikelVerkaufspreisBrutto: TFloatField;\r\n    dsArtikelArtikelSet: TBooleanField;\r\n    dsArtikelProvisionssatz: TFloatField;\r\n    dsArtikelWarentarifnummer: TStringField;\r\n    dsArtikelHandelsartikel: TBooleanField;\r\n    dsArtikelUrsprungsland: TStringField;\r\n    dsArtikelKategorie: TStringField;\r\n    dsArtikelStandardRabattsatzEK: TFloatField;\r\n    dsArtikelStandardRabattsatzVK: TFloatField;\r\n    dsArtikelRabattpreiseManuell: TBooleanField;\r\n    dsArtikelMengeBestellt: TFloatField;\r\n    dsArtikelMengeBeauftragt: TFloatField;\r\n    dsArtikelBestandDisponiert: TFloatField;\r\n    dsArtikelMengeAngeboten: TFloatField;\r\n    dsArtikelBestandDispInclAngebot: TFloatField;\r\n    dsArtikelMWStKey: TIntegerField;\r\n    dsArtikelShopAmazon: TBooleanField;\r\n    dsArtikelShopQuelle: TBooleanField;\r\n    dsArtikelGeraet: TBooleanField;\r\n    dsArtikelArtgewicht: TFloatField;\r\n    dsArtikelVolumen: TFloatField;\r\n    dsArtikelPacklisteNichtAnzeigen: TBooleanField;\r\n    dsArtikelKeineAufschlagskalkulation: TBooleanField;\r\n    dsArtikelKorrekturMenge: TFloatField;\r\n    dsArtikelKorrekturWert: TFloatField;\r\n    dsArtikelNachfolgeartikel: TStringField;\r\n    dsArtikelMindestbestellmenge: TFloatField;\r\n    dsArtikelSchnittEK: TFloatField;\r\n    dsArtikelVerkaufspreisVom: TDateTimeField;\r\n    dsArtikelPruefungChargeSNR: TIntegerField;\r\n    dsArtikelArtikelbeschreibungHTML: TStringField;\r\n    dsArtikelProduktKurzbeschreibungHTML: TStringField;\r\n    dsArtikelStatusFuerShop: TStringField;\r\n    dsArtikelAmpelFuerShop: TStringField;\r\n    dsArtikelEXP_Anzahl: TFloatField;\r\n    dsArtikelEXP_Inhalt: TFloatField;\r\n    dsArtikelEXP_Faktor: TFloatField;\r\n    dsArtikelFach: TStringField;\r\n    dsArtikelExportKasse: TIntegerField;\r\n    dsArtikelWKNR: TIntegerField;\r\n    dsArtikelArtikelAttribute: TStringField;\r\n    dsArtikelErstelltAm: TDateTimeField;\r\n    dsArtikelVarianteVonAN: TStringField;\r\n    dsArtikelGurtmassWerte: TStringField;\r\n    dsArtikelGurtmass: TFloatField;\r\n    dsArtikelAltersgrenze: TIntegerField;\r\n    dsArtikelMWStKeyImHaus: TIntegerField;\r\n    dsArtikelKasseBewegung: TFloatField;\r\n    dsArtikelKasseBewegungEK: TFloatField;\r\n    dsArtikelKasseBewegungVK: TFloatField;\r\n    dsArtikelProduktionBewegung: TFloatField;\r\n    dsArtikelProduktionBewegungEK: TFloatField;\r\n    dsArtikelProduktionBewegungVK: TFloatField;\r\n    dsArtikelWaWiAB: TIntegerField;\r\n    dsArtikelGeaendertAm: TDateTimeField;\r\n    dsArtikelGefahrgutKennzeichen: TStringField;\r\n    dsArtikelVerpackG: TBooleanField;\r\n    dsArtikelUPE: TFloatField;\r\n    dsArtikelArtikelbeschreibungEinkauf: TStringField;\r\n    dsArtikelHerstellerArtikelnummer: TStringField;\r\n    dsArtikelNatura: TStringField;\r\n    dsArtikelArbeitszeit: TBooleanField;\r\n    dsArtikelArtderMengeArtderMenge: TStringField;\r\n    xdsKundenpreise: TXDataWebDataSet;\r\n    xdsKundenpreiseArtikelnummer: TXDataWebEntityField;\r\n    xdsKundenpreiseKundennummer: TXDataWebEntityField;\r\n    xdsKundenpreiseVerkaufspreis: TFloatField;\r\n    xdsKundenpreiseNachname: TStringField;\r\n    xdsKundenpreiseRabattsatz: TFloatField;\r\n    xdsKundenpreiseVerleihpreis: TFloatField;\r\n    xdsKundenpreiseZusatzPreis: TFloatField;\r\n    xdsKundenpreiseArtikelnummerKunde: TStringField;\r\n    xdsKundenpreiseDatumGeaendert: TDateTimeField;\r\n    xdsKundenpreiseArtikelueberschrift: TStringField;\r\n    xdsKundenpreiseArtikelnummerArtikelnummer: TStringField;\r\n    xdsKundenpreiseArtikelnummerArtikelueberschrift: TStringField;\r\n    xdsKundenpreiseArtikelnummerArtikelbeschreibung: TStringField;\r\n    dsBeleg2: TXDataWebDataSet;\r\n    dsBeleg2Kundennummer: TXDataWebEntityField;\r\n    dsBeleg2Nummerkomplett: TStringField;\r\n    dsBeleg2ReferenzAngebot: TStringField;\r\n    dsBeleg2ReferenzLieferschein: TStringField;\r\n    dsBeleg2ReferenzRechnung: TStringField;\r\n    dsBeleg2Datum: TDateTimeField;\r\n    dsBeleg2Jahr: TFloatField;\r\n    dsBeleg2Kalenderwoche: TIntegerField;\r\n    dsBeleg2Nachname: TStringField;\r\n    dsBeleg2Vorname: TStringField;\r\n    dsBeleg2Postleitzahl: TStringField;\r\n    dsBeleg2Ort: TStringField;\r\n    dsBeleg2Laenderkuerzel: TStringField;\r\n    dsBeleg2Land: TStringField;\r\n    dsBeleg2Briefanrede1: TStringField;\r\n    dsBeleg2Briefanrede2: TStringField;\r\n    dsBeleg2EMail: TStringField;\r\n    dsBeleg2AdresseBild: TStringField;\r\n    dsBeleg2LieferanschriftBild: TStringField;\r\n    dsBeleg2Zahlungsbedingung: TIntegerField;\r\n    dsBeleg2ZahlungsbedingungText: TStringField;\r\n    dsBeleg2Auftragsbezeichnung: TStringField;\r\n    dsBeleg2AuftragnummerKunde: TStringField;\r\n    dsBeleg2BestelldatumKunde: TDateTimeField;\r\n    dsBeleg2ILN: TStringField;\r\n    dsBeleg2Kopftext: TStringField;\r\n    dsBeleg2Schlussbemerkung: TStringField;\r\n    dsBeleg2Gruss: TStringField;\r\n    dsBeleg2Mehrwertsteuersatz1: TFloatField;\r\n    dsBeleg2Mehrwertsteuersatz2: TFloatField;\r\n    dsBeleg2Nettosumme01: TFloatField;\r\n    dsBeleg2Nettosumme02: TFloatField;\r\n    dsBeleg2Nettosumme: TFloatField;\r\n    dsBeleg2Mehrwertsteuer01: TFloatField;\r\n    dsBeleg2Mehrwertsteuer02: TFloatField;\r\n    dsBeleg2Mehrwertsteuer: TFloatField;\r\n    dsBeleg2Bruttosumme: TFloatField;\r\n    dsBeleg2Versanddatum: TDateTimeField;\r\n    dsBeleg2Skontosatz: TFloatField;\r\n    dsBeleg2NettosummeEK: TFloatField;\r\n    dsBeleg2NettoMarge: TFloatField;\r\n    dsBeleg2Schreibzeichen: TStringField;\r\n    dsBeleg2Unterzeichner: TStringField;\r\n    dsBeleg2TelefonMA: TStringField;\r\n    dsBeleg2EmailMA: TStringField;\r\n    dsBeleg2USTID: TStringField;\r\n    dsBeleg2Umsatzsteuerausweis: TBooleanField;\r\n    dsBeleg2gebucht: TBooleanField;\r\n    dsBeleg2Lieferdatum: TDateTimeField;\r\n    dsBeleg2Transportbedingung: TStringField;\r\n    dsBeleg2Mehrwertsteuersatz3: TFloatField;\r\n    dsBeleg2Mehrwertsteuer03: TFloatField;\r\n    dsBeleg2Nettosumme03: TFloatField;\r\n    dsBeleg2RundungsDifferenz: TFloatField;\r\n    dsBeleg2EmailText: TStringField;\r\n    dsBeleg2Auftragerledigt: TBooleanField;\r\n    dsBeleg2Rabattstufe: TStringField;\r\n    dsBeleg2KFZKennzeichen: TStringField;\r\n    dsBeleg2Fahrgestellnummer: TStringField;\r\n    dsBeleg2KFZHersteller: TStringField;\r\n    dsBeleg2Erstzulassungsdatum: TDateTimeField;\r\n    dsBeleg2KMStand: TStringField;\r\n    dsBeleg2KFZType: TStringField;\r\n    dsBeleg2Inspektionsdatum: TDateTimeField;\r\n    dsBeleg2Debitorennummer: TStringField;\r\n    dsBeleg2Kostentraeger: TStringField;\r\n    dsBeleg2Rabattsatz: TFloatField;\r\n    dsBeleg2ObjektReferenz: TStringField;\r\n    dsBeleg2Bank: TStringField;\r\n    dsBeleg2Bankleitzahl: TFloatField;\r\n    dsBeleg2Kontonummer: TStringField;\r\n    dsBeleg2Kontoinhaber: TStringField;\r\n    dsBeleg2Telefaxnummer: TStringField;\r\n    dsBeleg2DatumNeu: TDateTimeField;\r\n    dsBeleg2Datumgeaendert: TDateTimeField;\r\n    dsBeleg2Objektnummer: TStringField;\r\n    dsBeleg2Liefertermin: TStringField;\r\n    dsBeleg2Emailversand: TBooleanField;\r\n    dsBeleg2Telefonnummer: TStringField;\r\n    dsBeleg2MobilTelefon: TStringField;\r\n    dsBeleg2AuftragFax: TBooleanField;\r\n    dsBeleg2REDatum: TDateTimeField;\r\n    dsBeleg2BenutzerNeu: TStringField;\r\n    dsBeleg2BenutzerGeaendert: TStringField;\r\n    dsBeleg2BerechnungBrutto: TBooleanField;\r\n    dsBeleg2Bruttosumme01: TFloatField;\r\n    dsBeleg2Bruttosumme02: TFloatField;\r\n    dsBeleg2Bruttosumme03: TFloatField;\r\n    dsBeleg2Notiz: TStringField;\r\n    dsBeleg2MargeProzent: TFloatField;\r\n    dsBeleg2Warenkreditgesperrt: TBooleanField;\r\n    dsBeleg2Belegsprache: TStringField;\r\n    dsBeleg2Duplicate: TStringField;\r\n    dsBeleg2perEmail: TBooleanField;\r\n    dsBeleg2Ansprechpartner: TStringField;\r\n    dsBeleg2KundennummerFremd: TStringField;\r\n    dsBeleg2Protokoll: TStringField;\r\n    dsBeleg2Verleihauftrag: TBooleanField;\r\n    dsBeleg2VerleihVon: TDateTimeField;\r\n    dsBeleg2VerleihBis: TDateTimeField;\r\n    dsBeleg2AuftragGenehmigt: TBooleanField;\r\n    dsBeleg2gesperrt: TBooleanField;\r\n    dsBeleg2VerleihvonText: TStringField;\r\n    dsBeleg2VerleihbisText: TStringField;\r\n    dsBeleg2DruckWHG: TStringField;\r\n    dsBeleg2DruckWHGKurs: TFloatField;\r\n    dsBeleg2ProzentsatzZusatzposition: TFloatField;\r\n    dsBeleg2TextZusatzposition: TStringField;\r\n    dsBeleg2TextzusatzBeschreibung: TStringField;\r\n    dsBeleg2Layoutname: TStringField;\r\n    dsBeleg2Gesamtgewicht: TFloatField;\r\n    dsBeleg2BetragZusatzposition: TFloatField;\r\n    dsBeleg2ReferenzBestellung: TStringField;\r\n    dsBeleg2Termin1: TDateTimeField;\r\n    dsBeleg2Termin2: TDateTimeField;\r\n    dsBeleg2Zielkontaktnummer: TStringField;\r\n    dsBeleg2Zielkontaktname: TStringField;\r\n    dsBeleg2Bilddatei1: TStringField;\r\n    dsBeleg2Bilddatei2: TStringField;\r\n    dsBeleg2Zielkontaktnummer2: TStringField;\r\n    dsBeleg2Zielkontaktname2: TStringField;\r\n    dsBeleg2bestaetigt: TDateTimeField;\r\n    dsBeleg2Zielkontaktnummer3: TStringField;\r\n    dsBeleg2Zielkontaktname3: TStringField;\r\n    dsBeleg2Termin3: TDateTimeField;\r\n    dsBeleg2Termin4: TDateTimeField;\r\n    dsBeleg2Muster: TBooleanField;\r\n    dsBeleg2KW: TIntegerField;\r\n    dsBeleg2Datenlink: TStringField;\r\n    dsBeleg2Mehrwertsteuersatz4: TFloatField;\r\n    dsBeleg2Mehrwertsteuersatz5: TFloatField;\r\n    dsBeleg2Mehrwertsteuersatz6: TFloatField;\r\n    dsBeleg2BesteuerungKey: TIntegerField;\r\n    dsBeleg2VertreterMatchcode: TStringField;\r\n    dsBeleg2Verfasser: TStringField;\r\n    dsBeleg2LieferadresseID: TIntegerField;\r\n    dsBeleg2AuftragStatus: TStringField;\r\n    dsBeleg2MonatJahr: TDateTimeField;\r\n    dsBeleg2Belegvariante: TStringField;\r\n    dsBeleg2Produktionsfreigabe: TBooleanField;\r\n    dsBeleg2ReferenzRahmenAuftrag: TStringField;\r\n    dsBeleg2DatumRahmenAuftrag: TDateTimeField;\r\n    dsBeleg2FahrzeugID: TIntegerField;\r\n    dsBeleg2AuslieferungKW: TStringField;\r\n    dsBeleg2BereitstellungDatum: TDateTimeField;\r\n    dsBeleg2VTUID: TStringField;\r\n    dsBeleg2LieferanschriftDaten: TStringField;\r\n    dsBeleg2GesamtVolumen: TFloatField;\r\n    dsBeleg2BelegPKey: TIntegerField;\r\n    dsBeleg2DruckParameter: TStringField;\r\n    dsBeleg2ReferenzService: TStringField;\r\n    dsBeleg2ZusatzDaten: TStringField;\r\n    dsBeleg2StandPDF: TStringField;\r\n    dsBeleg2Paketdienst: TStringField;\r\n    dsBeleg2Monteur: TIntegerField;\r\n    dsBeleg2KundennummerKundennummer: TStringField;\r\n    dsBeleg2ServiceBemerkung: TStringField;\r\n    edtPosNr: TDBEdit;\r\n    edtPosUNr: TDBEdit;\r\n    edtArtikelueberschrift: TDBEdit;\r\n    edtMenge: TDBEdit;\r\n    btnArtikelnummer: TButton;\r\n    edtArtikelbeschreibung: TDBMemo;\r\n    edtMengenart: TDBLookupComboBox;\r\n    btnNeuePosition: TButton;\r\n    xdsPositionNummerkomplett: TXDataWebEntityField;\r\n    xdsPositionArtikelnummer: TXDataWebEntityField;\r\n    xdsPositionID: TIntegerField;\r\n    xdsPositionPosNr: TFloatField;\r\n    xdsPositionPosUNr: TFloatField;\r\n    xdsPositionSumme: TBooleanField;\r\n    xdsPositionArtikelueberschrift: TStringField;\r\n    xdsPositionArtikelbeschreibung: TStringField;\r\n    xdsPositionMenge: TFloatField;\r\n    xdsPositionArtderMenge: TStringField;\r\n    xdsPositionVerkaufspreis: TFloatField;\r\n    xdsPositionEinkaufspreis: TFloatField;\r\n    xdsPositionSeriennummer: TStringField;\r\n    xdsPositionWarengruppe: TStringField;\r\n    xdsPositionWarenuntergruppe: TStringField;\r\n    xdsPositionArtikelnummerKunde: TStringField;\r\n    xdsPositionLieferant: TStringField;\r\n    xdsPositionGewicht: TFloatField;\r\n    xdsPositionLaenge: TFloatField;\r\n    xdsPositionBreite: TFloatField;\r\n    xdsPositionHoehe: TFloatField;\r\n    xdsPositionMehrwertsteuersatz: TFloatField;\r\n    xdsPositionEndpreis: TFloatField;\r\n    xdsPositionPosMWST: TFloatField;\r\n    xdsPositionBruttoEndpreis: TFloatField;\r\n    xdsPositionEndpreis_EK: TFloatField;\r\n    xdsPositionRabattsatz: TFloatField;\r\n    xdsPositionPreisvorRabatt: TFloatField;\r\n    xdsPositionPKZ: TFloatField;\r\n    xdsPositionTextfrei10: TStringField;\r\n    xdsPositionTextfrei20: TStringField;\r\n    xdsPositionAlternativ: TBooleanField;\r\n    xdsPositionEinzelpreisBrutto: TFloatField;\r\n    xdsPositionPosMarge: TFloatField;\r\n    xdsPositionPosMargeProzent: TFloatField;\r\n    xdsPositionWarenbestand: TBooleanField;\r\n    xdsPositionArtikelbeschreibungRTF: TStringField;\r\n    xdsPositionQuellartikel: TStringField;\r\n    xdsPositionArtikelnummerWB: TStringField;\r\n    xdsPositionPreisanteilNetto: TFloatField;\r\n    xdsPositionSetHPos: TStringField;\r\n    xdsPositionSetUPos: TStringField;\r\n    xdsPositionProvisionssatz: TFloatField;\r\n    xdsPositionProvisionsbetrag: TFloatField;\r\n    xdsPositionReferenzKalkulation: TStringField;\r\n    xdsPositionArtikelsprache: TStringField;\r\n    xdsPositionEKvom: TDateTimeField;\r\n    xdsPositionMengenberechnungID: TStringField;\r\n    xdsPositionTaraID: TStringField;\r\n    xdsPositionTara: TFloatField;\r\n    xdsPositionBruttoGewicht: TFloatField;\r\n    xdsPositionAussenflaeche: TFloatField;\r\n    xdsPositionSeitenumbruch: TBooleanField;\r\n    xdsPositionMWStKey: TIntegerField;\r\n    xdsPositionZSnachPos: TBooleanField;\r\n    xdsPositionPreisVorRabattWHG: TFloatField;\r\n    xdsPositionPKey: TIntegerField;\r\n    xdsPositionLager: TStringField;\r\n    xdsPositionlwbID: TStringField;\r\n    xdsPositionBelegdatum: TDateTimeField;\r\n    xdsPositionVolumen: TFloatField;\r\n    xdsPositionPosVolumen: TFloatField;\r\n    xdsPositionArtikelAttribute: TStringField;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure btnPosAbbrechenClick(Sender: TObject);\r\n    procedure xdsPositionAfterOpen(DataSet: TDataSet);\r\n    procedure xdsPositionAfterDelete(DataSet: TDataSet);\r\n    procedure xdsPositionAfterPost(DataSet: TDataSet);\r\n    procedure xdsPositionBeforePost(DataSet: TDataSet);\r\n    procedure xdsPositionNewRecord(DataSet: TDataSet);\r\n    procedure xdsPositionAfterApplyUpdates(Sender: TDataSet;\r\n      Info: TResolveResults);\r\n    procedure btnPositionLoeschenClick(Sender: TObject);\r\n    procedure btnPosSpeichernClick(Sender: TObject);\r\n    procedure xdsKundenpreiseAfterOpen(DataSet: TDataSet);\r\n    procedure dsArtikelAfterOpen(DataSet: TDataSet);\r\n    procedure dsBeleg2AfterOpen(DataSet: TDataSet);\r\n    procedure sourcePositionStateChange(Sender: TObject);\r\n    procedure btnArtikelnummerClick(Sender: TObject);\r\n    procedure btnNeuePositionClick(Sender: TObject);\r\n    procedure WebFormClose(Sender: TObject; var Action: TCloseAction);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    PositionsID:string;\r\n    tmpArtikelnummer:string;\r\n    tmpKundennummer:string;\r\n    tmpMerkerAngebot:string;\r\n    tmpLetztePosNr:double;\r\n    NeuePosition:boolean;\r\n    AltePosition:boolean;\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  AngebotPosEinzel: TAngebotPosEinzel;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_EinzelAuftrag, unit_Artikelsuche;\r\n{$R *.dfm}\r\n\r\n\r\nprocedure TAngebotPosEinzel.sourcePositionStateChange(Sender: TObject);\r\nbegin\r\n  if xdsPosition.State in dseditmodes then btnPosspeichern.Enabled:=true else btnPosspeichern.Enabled:=false;\r\nend;\r\n\r\nprocedure TAngebotPosEinzel.btnArtikelnummerClick(Sender: TObject);\r\nvar\r\n  LFrm:TfrmArtikelsuche;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmArtikelsuche;\r\n    begin\r\n      LForm:=(AForm as TfrmArtikelsuche);\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      if LFrm.Artikelnummer<>'' then\r\n      begin\r\n        tmpArtikelnummer:=lfrm.Artikelnummer;\r\n        if tmpArtikelnummer<>'' then\r\n        begin\r\n          dsArtikel.Close;\r\n          dsArtikel.QueryString:='$filter=Artikelnummer eq '+QuotedStr(tmpArtikelnummer)+'&$expand=ArtderMenge,Hersteller';\r\n          dsArtikel.Load;\r\n        end\r\n        else\r\n        begin\r\n          if NeuePosition then btnPosAbbrechenClick(nil);\r\n\r\n        end;\r\n      end;\r\n    end;\r\n\r\n  begin\r\n  AltePosition:=true;\r\n  LFrm:=TfrmArtikelsuche.CreateNew(@AfterCreate);\r\n  LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TAngebotPosEinzel.btnNeuePositionClick(Sender: TObject);\r\nvar\r\n  LFrm:TfrmArtikelsuche;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmArtikelsuche;\r\n    begin\r\n      LForm:=(AForm as TfrmArtikelsuche);\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      if LFrm.Artikelnummer<>'' then\r\n      begin\r\n        tmpArtikelnummer:=lfrm.Artikelnummer;\r\n        if tmpArtikelnummer<>'' then\r\n        begin\r\n          dsArtikel.Close;\r\n          dsArtikel.QueryString:='$filter=Artikelnummer eq '+QuotedStr(tmpArtikelnummer)+'&$expand=ArtderMenge,Hersteller';\r\n          dsArtikel.Load;\r\n        end\r\n        else\r\n        begin\r\n          if NeuePosition then btnPosAbbrechenClick(nil);\r\n\r\n        end;\r\n      end;\r\n    end;\r\n\r\n  begin\r\n  AltePosition:=false;\r\n  LFrm:=TfrmArtikelsuche.CreateNew(@AfterCreate);\r\n  LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TAngebotPosEinzel.btnPosAbbrechenClick(Sender: TObject);\r\nbegin\r\n  dsartikel.Close;\r\n  xdsposition.close;\r\n  self.Close;\r\nend;\r\n\r\nprocedure TAngebotPosEinzel.btnPositionLoeschenClick(Sender: TObject);\r\nbegin\r\n  xdsposition.Delete;\r\nend;\r\n\r\nprocedure TAngebotPosEinzel.btnPosSpeichernClick(Sender: TObject);\r\nbegin\r\n  if xdsPosition.State=dsbrowse then xdsposition.Edit;\r\n  if xdsPosition.State in dseditmodes then\r\n  begin\r\n    xdsPosition.Post;\r\n  end\r\n  else\r\n  begin\r\n\r\n    xdsPosition.Close;\r\n\r\n  end;\r\nend;\r\n\r\nprocedure TAngebotPosEinzel.dsArtikelAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  xdsKundenpreise.Close;\r\n  xdskundenpreise.QueryString:='$expand=Artikelnummer&$filter=Kundennummer eq '+QuotedStr(tmpKundennummer)+ ' AND Artikelnummer eq '+QuotedStr(dsArtikelArtikelnummer.asstring);\r\n  xdsKundenpreise.Load;\r\nend;\r\n\r\nprocedure TAngebotPosEinzel.dsBeleg2AfterOpen(DataSet: TDataSet);\r\nbegin\r\n\r\n  if NeuePosition then btnNeuePositionClick(nil);\r\n\r\n  if tmpArtikelnummer<>'' then\r\n  begin\r\n    dsArtikel.Close;\r\n    dsArtikel.QueryString:='$filter=Artikelnummer eq '+QuotedStr(tmpArtikelnummer)+'&$expand=ArtderMenge,Hersteller';\r\n    dsArtikel.Load;\r\n  end;\r\nend;\r\n\r\nprocedure TAngebotPosEinzel.WebFormClose(Sender: TObject;\r\n  var Action: TCloseAction);\r\nbegin\r\n  Action:=TCloseAction.caFree;\r\nend;\r\n\r\nprocedure TAngebotPosEinzel.WebFormShow(Sender: TObject);\r\n var\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Position-Angebot</h5></nav>';\r\n  myelement:=container2.ElementHandle;\r\n  btnPosAbbrechen.ParentElement:=myelement;\r\n  btnPosSpeichern.ParentElement:=myelement;\r\n  btnPositionLoeschen.ParentElement:=myelement;\r\n  WTCPosition.ColCount:=2;\r\n  WTCPosition.RowCount:=9;\r\n  WTCPosition.Cells[0,0]:='<small><i>Beleg';\r\n\r\n  WTCPosition.Cells[0,1]:='<small><i>Pos-Nr';\r\n  myelement:=WTCPosition.CellElements[1,1];\r\n  edtPosNr.ParentElement:=myelement;\r\n\r\n  WTCPosition.Cells[0,2]:='<small><i>Pos.UNr';\r\n  myelement:=WTCPosition.CellElements[1,2];\r\n  edtPosUNr.ParentElement:=myelement;\r\n\r\n  myelement:=WTCPosition.CellElements[0,3];\r\n  btnArtikelnummer.ParentElement:=myelement;\r\n\r\n  WTCPosition.Cells[0,4]:='<small><i>Artikelüberschrift';\r\n  myelement:=WTCPosition.CellElements[1,4];\r\n  edtArtikelueberschrift.ParentElement:=myelement;\r\n\r\n  WTCPosition.Cells[0,5]:='<small><i>Artikelbeschreibung';\r\n\r\n  WTCPosition.Cells[0,6]:='<small><i>Menge';\r\n  myelement:=WTCPosition.CellElements[1,6];\r\n  edtMenge.ParentElement:=myelement;\r\n\r\n  WTCPosition.Cells[0,7]:='<small><i>Mengenart';\r\n\r\n\r\n  dsBeleg2.Close;\r\n  dsBeleg2.QueryString:='$expand=Kundennummer&$filter=Nummerkomplett eq '+QuotedStr(tmpMerkerAngebot);\r\n  dsBeleg2.Load;\r\nend;\r\n\r\nprocedure TAngebotPosEinzel.xdsKundenpreiseAfterOpen(DataSet: TDataSet);\r\nbegin\r\n    xdsPosition.Close;\r\n    if PositionsID<>'' then xdsPosition.QueryString:='$filter=ID eq '+QuotedStr(PositionsID);\r\n    if PositionsID='' then xdsPosition.QueryString:='';\r\n    xdsPosition.Load;\r\nend;\r\n\r\nprocedure TAngebotPosEinzel.xdsPositionAfterApplyUpdates(Sender: TDataSet;\r\n  Info: TResolveResults);\r\nbegin\r\n  if info.Records[0].Error<>'' then showmessage(info.Records[0].Error);\r\n  xdsposition.Close;\r\n  self.Close;\r\nend;\r\n\r\nprocedure TAngebotPosEinzel.xdsPositionAfterDelete(DataSet: TDataSet);\r\nbegin\r\n  if LizenzOK then\r\n  begin\r\n    xdsposition.ApplyUpdates;\r\n  end\r\n  else\r\n  begin\r\n    showmessage('Für das Speichern von Daten sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n  end;\r\nend;\r\n\r\nprocedure TAngebotPosEinzel.xdsPositionAfterOpen(DataSet: TDataSet);\r\n var\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  myelement:=WTCPosition.CellElements[1,5];\r\n  edtArtikelbeschreibung.ParentElement:=myelement;\r\n\r\n  myelement:=WTCPosition.CellElements[1,7];\r\n  edtMengenart.ParentElement:=myelement;\r\n\r\n\r\n\r\n\r\n\r\n\r\n  WTCPosition.Cells[1,0]:=dsBeleg2Nummerkomplett.asstring+' | '+xdsPositionID.asstring;\r\n\r\n  WTCPosition.Cells[1,3]:=tmpArtikelnummer;\r\n  WTCPosition.Cells[1,7]:=xdsPositionArtderMenge.AsString;\r\n\r\n  if neueposition=true then xdsposition.append;\r\n  if AltePosition=true then\r\n  begin\r\n    xdsPosition.Edit;\r\n    xdsPositionArtikelnummer.value:=dsArtikel.CurrentData;\r\n    xdsPositionMenge.AsInteger:=1;\r\n    xdsPositionArtderMenge.asstring:=dsArtikelArtderMengeArtderMenge.AsString;\r\n    xdsPositionVerkaufspreis.AsFloat:=dsArtikelVerkaufspreis.asfloat;\r\n    if dsBeleg2rabattsatz.asfloat=0 then xdsPositionRabattsatz.asfloat:=dsArtikelstandardRabattsatzVK.asfloat;\r\n    if dsBeleg2rabattstufe.asstring='Rabattpreis1' then xdsPositionverkaufspreis.asstring:=dsArtikelRabattpreis1.asstring;\r\n    if dsBeleg2rabattstufe.asstring='Rabattpreis2' then xdsPositionverkaufspreis.asstring:=dsArtikelRabattpreis2.asstring;\r\n    if dsBeleg2rabattstufe.asstring='Rabattpreis3' then xdsPositionverkaufspreis.asstring:=dsArtikelRabattpreis3.asstring;\r\n    if dsBeleg2rabattstufe.asstring='Rabattpreis4' then xdsPositionverkaufspreis.asstring:=dsArtikelRabattpreis4.asstring;\r\n    if dsBeleg2rabattstufe.asstring='Rabattpreis5' then xdsPositionverkaufspreis.asstring:=dsArtikelRabattpreis5.asstring;\r\n    xdsPositionPreisvorRabatt.asfloat:=xdsPositionVerkaufspreis.AsFloat;\r\n    xdsPositionPreisanteilNetto.asfloat:=dsArtikelpreisanteilnetto.asfloat;\r\n    xdsPositionEinkaufspreis.asfloat:=dsArtikelEinkaufspreis.asfloat;\r\n    xdsPositionRabattsatz.AsFloat:=dsBeleg2Rabattsatz.asfloat;\r\n    if xdsKundenpreise.RecordCount>0 then\r\n    begin\r\n      xdsPositionPreisvorrabatt.asfloat:=xdsKundenpreiseVerkaufspreis.asfloat;\r\n      if xdsKundenpreiseRabattsatz.AsFloat<>0 then xdsPositionRabattsatz.AsFloat:=xdsKundenpreiseRabattsatz.AsFloat;\r\n    end;\r\n    xdsPositionPKZ.asfloat:=0;\r\n    if dsBeleg2verleihauftrag.AsBoolean=true then xdsPositionpkz.asfloat:=2;\r\n    xdsPositionposmwst.asfloat:=0;\r\n    xdsPositionMWStKey.asinteger:=1;\r\n    xdsPositionEndpreis.asfloat:=0;\r\n    xdsPositionEndpreis_EK.asfloat:=0;\r\n    xdsPositionBruttoEndpreis.asfloat:=0;\r\n    xdsPositionEinzelpreisBrutto.asfloat:=0;\r\n    xdsPositionlager.asstring:='[-]';\r\n    xdsPositionwarenbestand.asboolean:=dsArtikelWarenbestand.asboolean;\r\n    xdsPositionPosMargeProzent.asfloat:=0;\r\n    xdsPositionPosMarge.asfloat:=0;\r\n    xdsPositionPreisanteilnetto.asfloat:=0;\r\n    xdsPositionprovisionssatz.asfloat:=0;\r\n    xdsPositionprovisionsbetrag.asfloat:=0;\r\n    xdsPositionaussenflaeche.asfloat:=0;\r\n    xdsPositionBruttogewicht.asfloat:=0;\r\n    xdsPositionTara.asfloat:=0;\r\n    xdsPositionSeitenumbruch.asboolean:=FALSE;\r\n    xdsPositionZSnachPos.asboolean:=False;\r\n    xdsPositionPreisanteilnetto.asfloat:=0;\r\n    xdsPositionPreisVorRabattWHG.asfloat:=0;\r\n    xdsPositionpkey.asinteger:=0;\r\n    xdsPositionVolumen.AsFloat:=0;\r\n    xdsPositionPosVolumen.AsFloat:=0;\r\n    xdsPositionArtikelueberschrift.asstring:=dsArtikelArtikelueberschrift.asstring;\r\n    xdsPositionArtikelbeschreibung.asstring:=dsArtikelArtikelbeschreibung.asstring;\r\n    xdsPositionArtikelbeschreibungRTF.value:=dsArtikelArtikelbeschreibungRTF.value;\r\n    xdsPositionArtikelsprache.value:='';\r\n    xdsPositiongewicht.asstring:=dsArtikelGewicht.AsString;\r\n    xdsPositionLaenge.asstring:=dsArtikelLaenge.AsString;\r\n    xdsPositionBreite.asstring:=dsArtikelBreite.AsString;\r\n    xdsPositionHoehe.asstring:=dsArtikelHoehe.AsString;\r\n    xdsPositionMWStKey.asInteger:=dsArtikelMWStKey.asInteger;\r\n    xdsPositionWarenbestand.asboolean:=dsArtikelWarenbestand.asboolean;\r\n    xdsPositionLieferant.asstring:=dsArtikellieferantnummer.asstring;\r\n    xdsPositionEinkaufspreis.AsString:=dsArtikeleinkaufspreis.asstring;\r\n    xdsPositionEKvom.asstring:=dsArtikeleinkaufspreisvom.asstring;\r\n    xdsPositionLager.asstring:=dsArtikelLagerort.asstring;\r\n    xdsPositionVolumen.AsFloat:=dsArtikelVolumen.AsFloat;\r\n    xdsPositionArtikelAttribute.AsString:=dsArtikelArtikelAttribute.AsString;\r\n    xdsPositionTextfrei10.asstring:=dsArtikeltextfrei10.asstring;\r\n    xdsPositionTextfrei20.asstring:=dsArtikeltextfrei20.asstring;\r\n\r\n    // Preis nach PKZ holen\r\n    if xdsPositionpkz.asfloat=2 then xdsPositionpreisvorrabatt.asfloat:=dsArtikelverleihpreis.asfloat;\r\n    if xdsPositionpkz.asfloat=3 then xdsPositionpreisvorrabatt.asfloat:=dsArtikelZusatzpreis.asfloat;\r\n    if xdsPositionpkz.asfloat=4 then xdsPositionpreisvorrabatt.asfloat:=dsArtikelverleihpreis.asfloat + dsArtikelZusatzpreis.asfloat;\r\n\r\n  end;\r\n\r\n\r\n\r\nend;\r\n\r\nprocedure TAngebotPosEinzel.xdsPositionAfterPost(DataSet: TDataSet);\r\nbegin\r\n  if LizenzOK then\r\n  begin\r\n\r\n    xdsPosition.ApplyUpdates;\r\n  end\r\n  else\r\n  begin\r\n    showmessage('Für das Speichern von Daten sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n  end;\r\nend;\r\n\r\nprocedure TAngebotPosEinzel.xdsPositionBeforePost(DataSet: TDataSet);\r\nbegin\r\n\r\n  xdsPositionBelegdatum.AsDateTime:=dsBeleg2Datum.AsDateTime;\r\n  if xdsPositionMWStKey.asinteger=1 then xdsPositionMehrwertsteuersatz.AsFloat:=dsBeleg2Mehrwertsteuersatz1.asfloat;\r\n  if xdsPositionMWStKey.asinteger=2 then xdsPositionMehrwertsteuersatz.AsFloat:=dsBeleg2Mehrwertsteuersatz2.asfloat;\r\n  if xdsPositionMWStKey.asinteger=3 then xdsPositionMehrwertsteuersatz.AsFloat:=dsBeleg2Mehrwertsteuersatz3.asfloat;\r\n  if xdsPositionMWStKey.asinteger=4 then xdsPositionMehrwertsteuersatz.AsFloat:=dsBeleg2Mehrwertsteuersatz4.asfloat;\r\n  if xdsPositionMWStKey.asinteger=5 then xdsPositionMehrwertsteuersatz.AsFloat:=dsBeleg2Mehrwertsteuersatz5.asfloat;\r\n  if xdsPositionMWStKey.asinteger=6 then xdsPositionMehrwertsteuersatz.AsFloat:=dsBeleg2Mehrwertsteuersatz6.asfloat;\r\n  if dsBeleg2Umsatzsteuerausweis.asboolean=false then xdsPositionMehrwertsteuersatz.AsFloat:=0;\r\n\r\n  // Artikelnummer für den Warenbestand setzen\r\n  if xdsPositionquellartikel.asstring='' then\r\n  begin\r\n    xdsPositionartikelnummerwb.asstring:=xdsPositionartikelnummer.asstring;\r\n  end\r\n  else\r\n  begin\r\n    xdsPositionartikelnummerwb.asstring:=xdsPositionquellartikel.asstring;\r\n  end;\r\n\r\n  if xdsPositionpreisvorrabatt.asstring='' then xdsPositionpreisvorrabatt.asfloat:=0;\r\n  if xdsPositionpkz.asfloat=3 then xdsPositionrabattsatz.asfloat:=0;\r\n  if xdsPositioneinkaufspreis.asstring='' then xdsPositioneinkaufspreis.asstring:='0';\r\n\r\n  // Prüfung auf Textpositionen\r\n  if leftstr(xdsPositionArtikelnummer.asstring,4)='Text' then xdsPositionpreisvorrabatt.asfloat:=0;\r\n\r\n  {\r\n  // Pruefung wegen Staffelpreis\r\n  if dm2.tablesysdatStaffelpreise.asboolean then\r\n  begin\r\n    tempstp:=GF.checkstaffelpreis(EinzelAuftrag.dsBelegKundennummer.asstring,xdsPositionArtikelnummer.asstring,EinzelAuftrag.dsBelegDatum.asdatetime,xdsPositionMenge.asfloat,xdsPositionPreisVorRabatt.asfloat);\r\n    if tempstp<>0 then\r\n    begin\r\n      messagetext:=MSGStaffelpreisuebernehmen+' '+formatfloat(fstr,tempstp);\r\n      if MessageDlg(MSGStaffelpreisuebernehmen, mtConfirmation, [mbYes, mbNo], 0) = mrYes then\r\n      begin\r\n        xdsPositionpreisvorrabatt.asfloat:=tempstp;\r\n        xdsPositionEinkaufspreis.asfloat:=tempeinkaufspreis;\r\n      end;\r\n    end;\r\n  end;\r\n  }\r\n  // Pruefung wegen Rabattfaehig\r\n  if xdsPositionrabattsatz.AsFloat<>0 then\r\n  begin\r\n    if (dm2.checkrabattierung(xdsPositionArtikelnummer.asstring)=false) then xdsPositionrabattsatz.asfloat:=0;\r\n  end;\r\n\r\n  // check der SET-Positionen\r\n  if (xdsPositionSetHPos.AsString<>'') AND (xdsPositionSetHPos.AsString<>'00000000-0000-0000-0000-000000000000')  then xdsPositioneinkaufspreis.asfloat:=0;\r\n  if (xdsPositionSetUPos.AsString<>'') AND (xdsPositionSetUPos.AsString<>'00000000-0000-0000-0000-000000000000') then\r\n  begin\r\n    xdsPositionPreisVorRabatt.asfloat:=0;\r\n    xdsPositioneinzelpreisbrutto.asfloat:=0;\r\n  end;\r\n\r\n  {\r\n  // wenn währungserfassung\r\n  if (EinzelAuftrag.dsBelegDruckWHG.AsString<>'') AND (dm2.tablesysdatMultipleWHG.AsBoolean=TRUE) then\r\n  begin\r\n    if EinzelAuftrag.dsBelegDruckWHG.AsString<>dm2.tablesysdatBWHG.asstring then\r\n    begin\r\n      xdsPositionPreisvorRabatt.AsFloat:=xdsPositionPreisVorRabattWHG.AsFloat/EinzelAuftrag.dsBelegDruckWHGKurs.AsFloat;\r\n    end;\r\n  end;\r\n  }\r\n\r\n\r\n    xdsPositionVerkaufspreis.asfloat:=xdsPositionPreisvorRabatt.asfloat-((xdsPositionPreisvorRabatt.asfloat-xdsPositionpreisanteilnetto.asfloat)*xdsPositionRabattsatz.AsFloat/100);\r\n    xdsPositioneinzelpreisbrutto.asfloat:=xdsPositionverkaufspreis.asfloat+(xdsPositionVerkaufspreis.asfloat*xdsPositionmehrwertsteuersatz.asfloat/100);\r\n\r\n\r\n  if dm2.tablesysdatrundungIT.asboolean=true then xdsPositionVerkaufspreis.asfloat:=dm2.roundkfm(xdsPositionVerkaufspreis.asfloat,-2);\r\n\r\n  tempvgpdivisor:=DM2.holevkpdivisor(xdsPositionArtderMenge.asstring);\r\n  xdsPositionEndpreis.asfloat:=xdsPositionMenge.AsFloat*xdsPositionVerkaufspreis.AsFloat/tempvgpdivisor;\r\n  xdsPositionEndpreis_EK.asfloat:=dm2.roundkfm(xdsPositionMenge.AsFloat*xdsPositionEinkaufspreis.AsFloat/tempvgpdivisor,frund);\r\n\r\n  xdsPositionPosMWST.asfloat:=xdsPositionEndpreis.asfloat*xdsPositionMehrwertsteuersatz.asfloat/100;\r\n  xdsPositionBruttoEndpreis.asfloat:=xdsPositionposMWST.asfloat+xdsPositionEndpreis.asfloat;\r\n  xdsPositionProvisionsbetrag.asfloat:=dm2.roundkfm((xdsPositionEndpreis.asfloat*xdsPositionProvisionssatz.asfloat/100),-2);\r\n\r\n  xdsPositionPosMarge.asfloat:=xdsPositionEndpreis.asfloat-xdsPositionEndpreis_EK.AsFloat;\r\n  if xdsPositionEndpreis_EK.AsFloat<>0 then\r\n  begin\r\n    xdsPositionPosMargeProzent.asfloat:=xdsPositionPosMarge.asfloat/xdsPositionEndpreis_EK.asfloat*100;\r\n  end\r\n  else\r\n  begin\r\n    xdsPositionPosMargeProzent.AsFloat:=0;\r\n  end;\r\n\r\n  {\r\n  // Pruefung auf die Artikelverfügbarkeit\r\n  if xdsPositionBereitsGeliefert.AsFloat<>xdsPositionMenge.asfloat then\r\n  begin\r\n    if xdsPositionWarenbestand.asboolean=false then xdsPositionbestellen.AsBoolean:=false;\r\n    if xdsPositionWarenbestand.asboolean=true then\r\n    begin\r\n      dm2.queryeinzelartikelbestand.close;\r\n      dm2.queryEinzelartikelbestand.SQL.Clear;\r\n      dm2.queryeinzelartikelbestand.SQL.append('select Bestand+Mindestbestand AS Bestand from Artikel where Artikelnummer = '''+xdsPositionartikelnummerwb.asstring+'''');\r\n      dm2.queryEinzelartikelbestand.open;\r\n      if dm2.queryEinzelartikelbestandBestand.asfloat>=xdsPositionMenge.asfloat then\r\n      begin\r\n        xdsPositionbestellen.asboolean:=false;\r\n      end\r\n      else\r\n      begin\r\n        xdsPositionbestellen.asboolean:=true;\r\n      end;\r\n      dm2.queryEinzelartikelbestand.close;\r\n    end;\r\n  end;\r\n  }\r\n\r\n  //RTF-Austausch Beginn\r\n  //xdsPositionArtikelbeschreibung.value:=Auftrag.richartikel.Text;\r\n  xdsPositionArtikelbeschreibungRTF.asstring:=xdsPositionArtikelbeschreibung.AsString;\r\n  //RTF-Austausch fertig\r\n  if xdsPositionArtikelbeschreibung.asstring='' then xdsPositionArtikelbeschreibung.asstring:=' ';\r\n  xdsPositionPosVolumen.AsFloat:=xdsPositionVolumen.AsFloat*xdsPositionMenge.AsFloat;\r\n\r\nend;\r\n\r\nprocedure TAngebotPosEinzel.xdsPositionNewRecord(DataSet: TDataSet);\r\nvar\r\n  guid:TGUID;\r\n  guidstring:string;\r\nbegin\r\n  createguid(guid);\r\n  guidstring:=guidtostring(guid);\r\n  guidstring:=ReplaceStr(guidstring,'{','');\r\n  guidstring:=ReplaceStr(guidstring,'}','');\r\n  xdsPositionlwbID.Asstring:=guidstring;\r\n  xdsPositionNummerkomplett.value:=dsBeleg2.CurrentData;\r\n  xdsPositionArtikelnummer.value:=dsArtikel.CurrentData;\r\n  xdsPositionBelegdatum.AsDateTime:=dsBeleg2Datum.AsDateTime;\r\n  xdsPositionposnr.AsFloat:=tmpLetztePosNr+1;\r\n  xdsPositionPosUNr.AsFloat:=0;\r\n  xdsPositionSumme.asboolean:=false;\r\n  xdsPositionMenge.AsInteger:=1;\r\n  xdsPositionArtderMenge.asstring:=dsArtikelArtderMengeArtderMenge.AsString;\r\n  xdsPositionMehrwertsteuersatz.AsFloat:=dsBeleg2mehrwertsteuersatz1.AsFloat;\r\n  xdsPositionVerkaufspreis.AsFloat:=dsArtikelVerkaufspreis.asfloat;\r\n  if dsBeleg2rabattsatz.asfloat=0 then xdsPositionRabattsatz.asfloat:=dsArtikelstandardRabattsatzVK.asfloat;\r\n  if dsBeleg2rabattstufe.asstring='Rabattpreis1' then xdsPositionverkaufspreis.asstring:=dsArtikelRabattpreis1.asstring;\r\n  if dsBeleg2rabattstufe.asstring='Rabattpreis2' then xdsPositionverkaufspreis.asstring:=dsArtikelRabattpreis2.asstring;\r\n  if dsBeleg2rabattstufe.asstring='Rabattpreis3' then xdsPositionverkaufspreis.asstring:=dsArtikelRabattpreis3.asstring;\r\n  if dsBeleg2rabattstufe.asstring='Rabattpreis4' then xdsPositionverkaufspreis.asstring:=dsArtikelRabattpreis4.asstring;\r\n  if dsBeleg2rabattstufe.asstring='Rabattpreis5' then xdsPositionverkaufspreis.asstring:=dsArtikelRabattpreis5.asstring;\r\n  xdsPositionPreisvorRabatt.asfloat:=xdsPositionVerkaufspreis.AsFloat;\r\n  xdsPositionPreisanteilNetto.asfloat:=dsArtikelpreisanteilnetto.asfloat;\r\n  xdsPositionEinkaufspreis.asfloat:=dsArtikelEinkaufspreis.asfloat;\r\n  xdsPositionRabattsatz.AsFloat:=dsBeleg2Rabattsatz.asfloat;\r\n  if xdsKundenpreise.RecordCount>0 then\r\n  begin\r\n    xdsPositionPreisvorrabatt.asfloat:=xdsKundenpreiseVerkaufspreis.asfloat;\r\n    if xdsKundenpreiseRabattsatz.AsFloat<>0 then xdsPositionRabattsatz.AsFloat:=xdsKundenpreiseRabattsatz.AsFloat;\r\n\r\n  end;\r\n  xdsPositionPKZ.asfloat:=0;\r\n  if dsBeleg2verleihauftrag.AsBoolean=true then xdsPositionpkz.asfloat:=2;\r\n  xdsPositionposmwst.asfloat:=0;\r\n  xdsPositionMWStKey.asinteger:=1;\r\n  xdsPositionEndpreis.asfloat:=0;\r\n  xdsPositionEndpreis_EK.asfloat:=0;\r\n  xdsPositionBruttoEndpreis.asfloat:=0;\r\n  xdsPositionEinzelpreisBrutto.asfloat:=0;\r\n  xdsPositionlager.asstring:='[-]';\r\n  xdsPositionwarenbestand.asboolean:=dsArtikelWarenbestand.asboolean;\r\n  xdsPositionPosMargeProzent.asfloat:=0;\r\n  xdsPositionPosMarge.asfloat:=0;\r\n  xdsPositionPreisanteilnetto.asfloat:=0;\r\n  xdsPositionprovisionssatz.asfloat:=0;\r\n  xdsPositionprovisionsbetrag.asfloat:=0;\r\n  xdsPositionaussenflaeche.asfloat:=0;\r\n  xdsPositionBruttogewicht.asfloat:=0;\r\n  xdsPositionTara.asfloat:=0;\r\n  xdsPositionSeitenumbruch.asboolean:=FALSE;\r\n  xdsPositionZSnachPos.asboolean:=False;\r\n  xdsPositionPreisanteilnetto.asfloat:=0;\r\n  xdsPositionPreisVorRabattWHG.asfloat:=0;\r\n  xdsPositionpkey.asinteger:=0;\r\n  xdsPositionVolumen.AsFloat:=0;\r\n  xdsPositionPosVolumen.AsFloat:=0;\r\n  xdsPositionArtikelueberschrift.asstring:=dsArtikelArtikelueberschrift.asstring;\r\n  xdsPositionArtikelbeschreibung.asstring:=dsArtikelArtikelbeschreibung.asstring;\r\n  xdsPositionArtikelbeschreibungRTF.value:=dsArtikelArtikelbeschreibungRTF.value;\r\n  xdsPositionArtikelsprache.value:='';\r\n  {\r\n  if xdsPositionPKZ.asfloat=3 then\r\n  begin\r\n    xdsPositionArtikelbeschreibung.asstring:=dm2.tablesysdatZusatzpreisText.asstring+' '+dsArtikelArtikelbeschreibung.asstring;\r\n    xdsPositionArtikelbeschreibungRTF.value:=dm2.tablesysdatZusatzpreisText.asstring+' '+dsArtikelArtikelbeschreibungRTF.value;\r\n  end;\r\n\r\n  if xdsPositionPKZ.asfloat=4 then\r\n  begin\r\n    xdsPositionArtikelbeschreibung.asstring:=dsArtikelArtikelbeschreibung.asstring+#13+#10+dm2.tablesysdatZusatzpreisText.asstring;\r\n    xdsPositionArtikelbeschreibungRTF.value:=dsArtikelArtikelbeschreibungRTF.value+#13+#10+dm2.tablesysdatZusatzpreisText.asstring;\r\n  end;\r\n   }\r\n\r\n  xdsPositiongewicht.asstring:=dsArtikelGewicht.AsString;\r\n  xdsPositionLaenge.asstring:=dsArtikelLaenge.AsString;\r\n  xdsPositionBreite.asstring:=dsArtikelBreite.AsString;\r\n  xdsPositionHoehe.asstring:=dsArtikelHoehe.AsString;\r\n  xdsPositionMWStKey.asInteger:=dsArtikelMWStKey.asInteger;\r\n  xdsPositionWarenbestand.asboolean:=dsArtikelWarenbestand.asboolean;\r\n  xdsPositionLieferant.asstring:=dsArtikellieferantnummer.asstring;\r\n  xdsPositionEinkaufspreis.AsString:=dsArtikeleinkaufspreis.asstring;\r\n  xdsPositionEKvom.asstring:=dsArtikeleinkaufspreisvom.asstring;\r\n  xdsPositionLager.asstring:=dsArtikelLagerort.asstring;\r\n  xdsPositionVolumen.AsFloat:=dsArtikelVolumen.AsFloat;\r\n  xdsPositionArtikelAttribute.AsString:=dsArtikelArtikelAttribute.AsString;\r\n  {\r\n  xdsPositionProvisionssatz.Asfloat:=GF.GetProvisionssatz(dsBelegVertreterMatchcode.AsString,dsBelegKundennummer.AsString,xdsPositionartikelnummer.AsString);\r\n\r\n\r\n  xdsPositionquellartikel.asstring:=dsArtikelquellartikel.asstring;\r\n  xdsPositionEinkaufspreis.Asfloat:=GF.ekpreisquellartikel(xdsPositionquellartikel.asstring,xdsPositionEinkaufspreis.Asfloat);\r\n  }\r\n  xdsPositionTextfrei10.asstring:=dsArtikeltextfrei10.asstring;\r\n  xdsPositionTextfrei20.asstring:=dsArtikeltextfrei20.asstring;\r\n\r\n  // Preis nach PKZ holen\r\n  if xdsPositionpkz.asfloat=2 then xdsPositionpreisvorrabatt.asfloat:=dsArtikelverleihpreis.asfloat;\r\n  if xdsPositionpkz.asfloat=3 then xdsPositionpreisvorrabatt.asfloat:=dsArtikelZusatzpreis.asfloat;\r\n  if xdsPositionpkz.asfloat=4 then xdsPositionpreisvorrabatt.asfloat:=dsArtikelverleihpreis.asfloat + dsArtikelZusatzpreis.asfloat;\r\n\r\n  {\r\n\r\n  //Zusatz\r\n  if xdsPositionPKZ.asfloat=3 then\r\n  begin\r\n    if dm2.queryKundenpreisZusatzpreis.AsFloat<>0 then\r\n    begin\r\n      xdsPositionPreisvorRabatt.AsFloat:=dm2.queryKundenpreisZusatzpreis.AsFloat;\r\n      xdsPositionRabattsatz.asfloat:=0;\r\n      xdsPositionVerkaufspreis.asfloat:=xdsPositionPreisvorRabatt.asfloat;\r\n    end;\r\n  end;\r\n\r\n  //Verleih+Zusatzpreis kundenbezogen\r\n  if xdsPositionPKZ.asfloat=4 then\r\n  begin\r\n    if dm2.queryKundenpreisVerleihpreis.AsFloat<>0 then\r\n    begin\r\n      xdsPositionPreisvorRabatt.AsFloat:=dm2.queryKundenpreisVerleihpreis.AsFloat+dm2.querykundenpreiszusatzpreis.asfloat;\r\n      xdsPositionRabattsatz.asfloat:=0;\r\n      xdsPositionVerkaufspreis.asfloat:=xdsPositionPreisvorRabatt.asfloat;\r\n    end;\r\n  end;\r\n\r\n  dm2.queryKundenpreis.close;\r\n\r\n\r\n\r\n\r\n  //Preiszuschlag für Artikel Beginn\r\n  if gf.checkpreiszuschlag(AN) then\r\n  begin\r\n    Application.CreateForm(TArtikelAuswahlPreiszuschlag, ArtikelAuswahlPreiszuschlag);\r\n    ArtikelAuswahlPreiszuschlag.zuschlagartikelnummer:=AN;\r\n    ArtikelAuswahlPreiszuschlag.showmodal;\r\n    if artikelauswahlpreiszuschlag.resultzuschlagpreisgruppe<>'' then\r\n    begin\r\n      xdsPositiontextfrei10.asstring:=artikelauswahlpreiszuschlag.resultzuschlagtextfrei10;\r\n      xdsPositiontextfrei20.asstring:=artikelauswahlpreiszuschlag.resultzuschlagtextfrei20;\r\n      if artikelauswahlpreiszuschlag.resultzuschlagvk>0 then\r\n      begin\r\n        xdsPositionpreisvorrabatt.asfloat:=xdsPositionpreisvorrabatt.asfloat+artikelauswahlpreiszuschlag.resultzuschlagvk;\r\n      end\r\n      else\r\n      begin\r\n        if artikelauswahlpreiszuschlag.resultzuschlagvkprozent<>0 then\r\n        begin\r\n          xdsPositionpreisvorrabatt.asfloat:=xdsPositionpreisvorrabatt.asfloat+(xdsPositionpreisvorrabatt.asfloat*artikelauswahlpreiszuschlag.resultzuschlagvkprozent/100);\r\n        end;\r\n      end;\r\n    end;\r\n    ArtikelauswahlPreiszuschlag.free;\r\n  end;\r\n  // Preiszuschlag für Artikel ENDE\r\n\r\n  // Sonderpreis holen\r\n   xdsPositionpreisvorrabatt.AsFloat:=gf.artikelsonderpreisholenVK(AN,dsBelegDatum.AsDateTime,xdsPositionPreisvorRabatt.asfloat);\r\n  // Fremdwährungspreis holen\r\n  if dm2.tablesysdatMultipleWHG.asboolean then\r\n  begin\r\n    if dsBelegDruckWHG.AsString<>dm2.tablesysdatBWHG.asstring then\r\n    begin\r\n      xdsPositionpreisvorrabattwhg.asfloat:=gf.artikelpreisWHGholenVK(AN, dsBelegdruckwhg.asstring,dsBelegdruckwhgkurs.asfloat,xdsPositionpreisvorrabatt.asfloat);\r\n    end;\r\n  end;\r\n  // Artikeltranslation gemäß Belegsprache\r\n  if (dsBelegbelegsprache.asstring<>'German') AND (dsBelegbelegsprache.asstring<>'')  then\r\n  begin\r\n    dm2.tablesprachen.locate('Belegsprache',dsBelegbelegsprache.asstring,[LOCASEINSENSITIVE]);\r\n    dm2.adoquery1.close;\r\n    dm2.adoquery1.sql.clear;\r\n    dm2.adoquery1.sql.append('select Artikelsprache from ArtikelTranslation WHERE Artikelnummer='''+AN+''' AND ISO6392Code='''+dm2.tablespracheniso6392Code.asstring+'''');\r\n    dm2.adoquery1.open;\r\n    if dm2.adoquery1.fieldbyname('Artikelsprache').asstring<>'' then xdsPositionArtikelsprache.value:=dm2.adoquery1.fieldbyname('Artikelsprache').value;\r\n    dm2.adoquery1.close;\r\n  end;\r\n  }\r\n\r\n\r\n\r\n\r\n\r\nend;\r\n\r\nprocedure TAngebotPosEinzel.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  WTCPosition := TTableControl.Create(Self);\r\n  btnPosAbbrechen := TButton.Create(Self);\r\n  btnPosSpeichern := TButton.Create(Self);\r\n  btnPositionLoeschen := TButton.Create(Self);\r\n  edtPosNr := TDBEdit.Create(Self);\r\n  edtPosUNr := TDBEdit.Create(Self);\r\n  edtArtikelueberschrift := TDBEdit.Create(Self);\r\n  edtMenge := TDBEdit.Create(Self);\r\n  btnArtikelnummer := TButton.Create(Self);\r\n  edtArtikelbeschreibung := TDBMemo.Create(Self);\r\n  edtMengenart := TDBLookupComboBox.Create(Self);\r\n  btnNeuePosition := TButton.Create(Self);\r\n  xdsPosition := TXDataWebDataSet.Create(Self);\r\n  xdsPositionNummerkomplett := TXDataWebEntityField.Create(Self);\r\n  xdsPositionArtikelnummer := TXDataWebEntityField.Create(Self);\r\n  xdsPositionID := TIntegerField.Create(Self);\r\n  xdsPositionPosNr := TFloatField.Create(Self);\r\n  xdsPositionPosUNr := TFloatField.Create(Self);\r\n  xdsPositionSumme := TBooleanField.Create(Self);\r\n  xdsPositionArtikelueberschrift := TStringField.Create(Self);\r\n  xdsPositionArtikelbeschreibung := TStringField.Create(Self);\r\n  xdsPositionMenge := TFloatField.Create(Self);\r\n  xdsPositionArtderMenge := TStringField.Create(Self);\r\n  xdsPositionVerkaufspreis := TFloatField.Create(Self);\r\n  xdsPositionEinkaufspreis := TFloatField.Create(Self);\r\n  xdsPositionSeriennummer := TStringField.Create(Self);\r\n  xdsPositionWarengruppe := TStringField.Create(Self);\r\n  xdsPositionWarenuntergruppe := TStringField.Create(Self);\r\n  xdsPositionArtikelnummerKunde := TStringField.Create(Self);\r\n  xdsPositionLieferant := TStringField.Create(Self);\r\n  xdsPositionGewicht := TFloatField.Create(Self);\r\n  xdsPositionLaenge := TFloatField.Create(Self);\r\n  xdsPositionBreite := TFloatField.Create(Self);\r\n  xdsPositionHoehe := TFloatField.Create(Self);\r\n  xdsPositionMehrwertsteuersatz := TFloatField.Create(Self);\r\n  xdsPositionEndpreis := TFloatField.Create(Self);\r\n  xdsPositionPosMWST := TFloatField.Create(Self);\r\n  xdsPositionBruttoEndpreis := TFloatField.Create(Self);\r\n  xdsPositionEndpreis_EK := TFloatField.Create(Self);\r\n  xdsPositionRabattsatz := TFloatField.Create(Self);\r\n  xdsPositionPreisvorRabatt := TFloatField.Create(Self);\r\n  xdsPositionPKZ := TFloatField.Create(Self);\r\n  xdsPositionTextfrei10 := TStringField.Create(Self);\r\n  xdsPositionTextfrei20 := TStringField.Create(Self);\r\n  xdsPositionAlternativ := TBooleanField.Create(Self);\r\n  xdsPositionEinzelpreisBrutto := TFloatField.Create(Self);\r\n  xdsPositionPosMarge := TFloatField.Create(Self);\r\n  xdsPositionPosMargeProzent := TFloatField.Create(Self);\r\n  xdsPositionWarenbestand := TBooleanField.Create(Self);\r\n  xdsPositionArtikelbeschreibungRTF := TStringField.Create(Self);\r\n  xdsPositionQuellartikel := TStringField.Create(Self);\r\n  xdsPositionArtikelnummerWB := TStringField.Create(Self);\r\n  xdsPositionPreisanteilNetto := TFloatField.Create(Self);\r\n  xdsPositionSetHPos := TStringField.Create(Self);\r\n  xdsPositionSetUPos := TStringField.Create(Self);\r\n  xdsPositionProvisionssatz := TFloatField.Create(Self);\r\n  xdsPositionProvisionsbetrag := TFloatField.Create(Self);\r\n  xdsPositionReferenzKalkulation := TStringField.Create(Self);\r\n  xdsPositionArtikelsprache := TStringField.Create(Self);\r\n  xdsPositionEKvom := TDateTimeField.Create(Self);\r\n  xdsPositionMengenberechnungID := TStringField.Create(Self);\r\n  xdsPositionTaraID := TStringField.Create(Self);\r\n  xdsPositionTara := TFloatField.Create(Self);\r\n  xdsPositionBruttoGewicht := TFloatField.Create(Self);\r\n  xdsPositionAussenflaeche := TFloatField.Create(Self);\r\n  xdsPositionSeitenumbruch := TBooleanField.Create(Self);\r\n  xdsPositionMWStKey := TIntegerField.Create(Self);\r\n  xdsPositionZSnachPos := TBooleanField.Create(Self);\r\n  xdsPositionPreisVorRabattWHG := TFloatField.Create(Self);\r\n  xdsPositionPKey := TIntegerField.Create(Self);\r\n  xdsPositionLager := TStringField.Create(Self);\r\n  xdsPositionlwbID := TStringField.Create(Self);\r\n  xdsPositionBelegdatum := TDateTimeField.Create(Self);\r\n  xdsPositionVolumen := TFloatField.Create(Self);\r\n  xdsPositionPosVolumen := TFloatField.Create(Self);\r\n  xdsPositionArtikelAttribute := TStringField.Create(Self);\r\n  sourcePosition := TDataSource.Create(Self);\r\n  dsArtikel := TXDataWebDataSet.Create(Self);\r\n  dsArtikelHersteller := TXDataWebEntityField.Create(Self);\r\n  dsArtikelArtderMenge := TXDataWebEntityField.Create(Self);\r\n  dsArtikelPfandArt := TXDataWebEntityField.Create(Self);\r\n  dsArtikelWarengruppe := TXDataWebEntityField.Create(Self);\r\n  dsArtikelWarenuntergruppe := TXDataWebEntityField.Create(Self);\r\n  dsArtikelArtikelnummer := TStringField.Create(Self);\r\n  dsArtikelArtikelueberschrift := TStringField.Create(Self);\r\n  dsArtikelArtikelbeschreibung := TStringField.Create(Self);\r\n  dsArtikelVerkaufspreis := TFloatField.Create(Self);\r\n  dsArtikelMindestbestand := TFloatField.Create(Self);\r\n  dsArtikelPreisliste := TStringField.Create(Self);\r\n  dsArtikelGewicht := TFloatField.Create(Self);\r\n  dsArtikelLaenge := TFloatField.Create(Self);\r\n  dsArtikelBreite := TFloatField.Create(Self);\r\n  dsArtikelHoehe := TFloatField.Create(Self);\r\n  dsArtikelArtikelZusatz := TStringField.Create(Self);\r\n  dsArtikelLagerort := TStringField.Create(Self);\r\n  dsArtikelBuchungskonto := TIntegerField.Create(Self);\r\n  dsArtikelEingangMenge := TFloatField.Create(Self);\r\n  dsArtikelEingangEndpreis := TFloatField.Create(Self);\r\n  dsArtikelAusgangMenge := TFloatField.Create(Self);\r\n  dsArtikelAusgangEndpreisEK := TFloatField.Create(Self);\r\n  dsArtikelAusgangEndpreisVK := TFloatField.Create(Self);\r\n  dsArtikelBestand := TFloatField.Create(Self);\r\n  dsArtikelBestandswert := TFloatField.Create(Self);\r\n  dsArtikelMarge := TFloatField.Create(Self);\r\n  dsArtikelMargeProzent := TFloatField.Create(Self);\r\n  dsArtikelArtikelnummer2 := TStringField.Create(Self);\r\n  dsArtikelArtikelmatchcode := TStringField.Create(Self);\r\n  dsArtikelRabattpreis1 := TFloatField.Create(Self);\r\n  dsArtikelRabattpreis2 := TFloatField.Create(Self);\r\n  dsArtikelRabattpreis3 := TFloatField.Create(Self);\r\n  dsArtikelRabattpreis4 := TFloatField.Create(Self);\r\n  dsArtikelRabattpreis5 := TFloatField.Create(Self);\r\n  dsArtikelArtikelnichtmehrgueltig := TBooleanField.Create(Self);\r\n  dsArtikelEinkaufspreis := TFloatField.Create(Self);\r\n  dsArtikelAufschlag := TFloatField.Create(Self);\r\n  dsArtikelWarenbestand := TBooleanField.Create(Self);\r\n  dsArtikelTextfrei10 := TStringField.Create(Self);\r\n  dsArtikelTextfrei20 := TStringField.Create(Self);\r\n  dsArtikelArtikelbeschreibungRTF := TStringField.Create(Self);\r\n  dsArtikelArtikeldatei1 := TStringField.Create(Self);\r\n  dsArtikelArtikeldatei2 := TStringField.Create(Self);\r\n  dsArtikelArtikeldatei3 := TStringField.Create(Self);\r\n  dsArtikelArtikeldatei4 := TStringField.Create(Self);\r\n  dsArtikelArtikeldatei5 := TStringField.Create(Self);\r\n  dsArtikelEinkaufspreisVom := TDateTimeField.Create(Self);\r\n  dsArtikelEAN := TStringField.Create(Self);\r\n  dsArtikelVGPFaktor := TFloatField.Create(Self);\r\n  dsArtikelVGPMengenart := TStringField.Create(Self);\r\n  dsArtikelVerleihpreis := TFloatField.Create(Self);\r\n  dsArtikelZusatzPreis := TFloatField.Create(Self);\r\n  dsArtikelVerpackungsart := TStringField.Create(Self);\r\n  dsArtikelVerpackungsMenge := TFloatField.Create(Self);\r\n  dsArtikelQuellartikel := TStringField.Create(Self);\r\n  dsArtikelrabattierfaehig := TBooleanField.Create(Self);\r\n  dsArtikelAngebotAlternativeAN := TStringField.Create(Self);\r\n  dsArtikelPreisanteilNetto := TFloatField.Create(Self);\r\n  dsArtikelFarbe := TIntegerField.Create(Self);\r\n  dsArtikelAEinkauf := TBooleanField.Create(Self);\r\n  dsArtikelAVerkauf := TBooleanField.Create(Self);\r\n  dsArtikelArtikelnummerLieferant := TStringField.Create(Self);\r\n  dsArtikelLieferantnummer := TStringField.Create(Self);\r\n  dsArtikelVerkaufspreisBrutto := TFloatField.Create(Self);\r\n  dsArtikelArtikelSet := TBooleanField.Create(Self);\r\n  dsArtikelProvisionssatz := TFloatField.Create(Self);\r\n  dsArtikelWarentarifnummer := TStringField.Create(Self);\r\n  dsArtikelHandelsartikel := TBooleanField.Create(Self);\r\n  dsArtikelUrsprungsland := TStringField.Create(Self);\r\n  dsArtikelKategorie := TStringField.Create(Self);\r\n  dsArtikelStandardRabattsatzEK := TFloatField.Create(Self);\r\n  dsArtikelStandardRabattsatzVK := TFloatField.Create(Self);\r\n  dsArtikelRabattpreiseManuell := TBooleanField.Create(Self);\r\n  dsArtikelMengeBestellt := TFloatField.Create(Self);\r\n  dsArtikelMengeBeauftragt := TFloatField.Create(Self);\r\n  dsArtikelBestandDisponiert := TFloatField.Create(Self);\r\n  dsArtikelMengeAngeboten := TFloatField.Create(Self);\r\n  dsArtikelBestandDispInclAngebot := TFloatField.Create(Self);\r\n  dsArtikelMWStKey := TIntegerField.Create(Self);\r\n  dsArtikelShopAmazon := TBooleanField.Create(Self);\r\n  dsArtikelShopQuelle := TBooleanField.Create(Self);\r\n  dsArtikelGeraet := TBooleanField.Create(Self);\r\n  dsArtikelArtgewicht := TFloatField.Create(Self);\r\n  dsArtikelVolumen := TFloatField.Create(Self);\r\n  dsArtikelPacklisteNichtAnzeigen := TBooleanField.Create(Self);\r\n  dsArtikelKeineAufschlagskalkulation := TBooleanField.Create(Self);\r\n  dsArtikelKorrekturMenge := TFloatField.Create(Self);\r\n  dsArtikelKorrekturWert := TFloatField.Create(Self);\r\n  dsArtikelNachfolgeartikel := TStringField.Create(Self);\r\n  dsArtikelMindestbestellmenge := TFloatField.Create(Self);\r\n  dsArtikelSchnittEK := TFloatField.Create(Self);\r\n  dsArtikelVerkaufspreisVom := TDateTimeField.Create(Self);\r\n  dsArtikelPruefungChargeSNR := TIntegerField.Create(Self);\r\n  dsArtikelArtikelbeschreibungHTML := TStringField.Create(Self);\r\n  dsArtikelProduktKurzbeschreibungHTML := TStringField.Create(Self);\r\n  dsArtikelStatusFuerShop := TStringField.Create(Self);\r\n  dsArtikelAmpelFuerShop := TStringField.Create(Self);\r\n  dsArtikelEXP_Anzahl := TFloatField.Create(Self);\r\n  dsArtikelEXP_Inhalt := TFloatField.Create(Self);\r\n  dsArtikelEXP_Faktor := TFloatField.Create(Self);\r\n  dsArtikelFach := TStringField.Create(Self);\r\n  dsArtikelExportKasse := TIntegerField.Create(Self);\r\n  dsArtikelWKNR := TIntegerField.Create(Self);\r\n  dsArtikelArtikelAttribute := TStringField.Create(Self);\r\n  dsArtikelErstelltAm := TDateTimeField.Create(Self);\r\n  dsArtikelVarianteVonAN := TStringField.Create(Self);\r\n  dsArtikelGurtmassWerte := TStringField.Create(Self);\r\n  dsArtikelGurtmass := TFloatField.Create(Self);\r\n  dsArtikelAltersgrenze := TIntegerField.Create(Self);\r\n  dsArtikelMWStKeyImHaus := TIntegerField.Create(Self);\r\n  dsArtikelKasseBewegung := TFloatField.Create(Self);\r\n  dsArtikelKasseBewegungEK := TFloatField.Create(Self);\r\n  dsArtikelKasseBewegungVK := TFloatField.Create(Self);\r\n  dsArtikelProduktionBewegung := TFloatField.Create(Self);\r\n  dsArtikelProduktionBewegungEK := TFloatField.Create(Self);\r\n  dsArtikelProduktionBewegungVK := TFloatField.Create(Self);\r\n  dsArtikelWaWiAB := TIntegerField.Create(Self);\r\n  dsArtikelGeaendertAm := TDateTimeField.Create(Self);\r\n  dsArtikelGefahrgutKennzeichen := TStringField.Create(Self);\r\n  dsArtikelVerpackG := TBooleanField.Create(Self);\r\n  dsArtikelUPE := TFloatField.Create(Self);\r\n  dsArtikelArtikelbeschreibungEinkauf := TStringField.Create(Self);\r\n  dsArtikelHerstellerArtikelnummer := TStringField.Create(Self);\r\n  dsArtikelNatura := TStringField.Create(Self);\r\n  dsArtikelArbeitszeit := TBooleanField.Create(Self);\r\n  dsArtikelArtderMengeArtderMenge := TStringField.Create(Self);\r\n  xdsKundenpreise := TXDataWebDataSet.Create(Self);\r\n  xdsKundenpreiseArtikelnummer := TXDataWebEntityField.Create(Self);\r\n  xdsKundenpreiseKundennummer := TXDataWebEntityField.Create(Self);\r\n  xdsKundenpreiseVerkaufspreis := TFloatField.Create(Self);\r\n  xdsKundenpreiseNachname := TStringField.Create(Self);\r\n  xdsKundenpreiseRabattsatz := TFloatField.Create(Self);\r\n  xdsKundenpreiseVerleihpreis := TFloatField.Create(Self);\r\n  xdsKundenpreiseZusatzPreis := TFloatField.Create(Self);\r\n  xdsKundenpreiseArtikelnummerKunde := TStringField.Create(Self);\r\n  xdsKundenpreiseDatumGeaendert := TDateTimeField.Create(Self);\r\n  xdsKundenpreiseArtikelueberschrift := TStringField.Create(Self);\r\n  xdsKundenpreiseArtikelnummerArtikelnummer := TStringField.Create(Self);\r\n  xdsKundenpreiseArtikelnummerArtikelueberschrift := TStringField.Create(Self);\r\n  xdsKundenpreiseArtikelnummerArtikelbeschreibung := TStringField.Create(Self);\r\n  dsBeleg2 := TXDataWebDataSet.Create(Self);\r\n  dsBeleg2Kundennummer := TXDataWebEntityField.Create(Self);\r\n  dsBeleg2Nummerkomplett := TStringField.Create(Self);\r\n  dsBeleg2ReferenzAngebot := TStringField.Create(Self);\r\n  dsBeleg2ReferenzLieferschein := TStringField.Create(Self);\r\n  dsBeleg2ReferenzRechnung := TStringField.Create(Self);\r\n  dsBeleg2Datum := TDateTimeField.Create(Self);\r\n  dsBeleg2Jahr := TFloatField.Create(Self);\r\n  dsBeleg2Kalenderwoche := TIntegerField.Create(Self);\r\n  dsBeleg2Nachname := TStringField.Create(Self);\r\n  dsBeleg2Vorname := TStringField.Create(Self);\r\n  dsBeleg2Postleitzahl := TStringField.Create(Self);\r\n  dsBeleg2Ort := TStringField.Create(Self);\r\n  dsBeleg2Laenderkuerzel := TStringField.Create(Self);\r\n  dsBeleg2Land := TStringField.Create(Self);\r\n  dsBeleg2Briefanrede1 := TStringField.Create(Self);\r\n  dsBeleg2Briefanrede2 := TStringField.Create(Self);\r\n  dsBeleg2EMail := TStringField.Create(Self);\r\n  dsBeleg2AdresseBild := TStringField.Create(Self);\r\n  dsBeleg2LieferanschriftBild := TStringField.Create(Self);\r\n  dsBeleg2Zahlungsbedingung := TIntegerField.Create(Self);\r\n  dsBeleg2ZahlungsbedingungText := TStringField.Create(Self);\r\n  dsBeleg2Auftragsbezeichnung := TStringField.Create(Self);\r\n  dsBeleg2AuftragnummerKunde := TStringField.Create(Self);\r\n  dsBeleg2BestelldatumKunde := TDateTimeField.Create(Self);\r\n  dsBeleg2ILN := TStringField.Create(Self);\r\n  dsBeleg2Kopftext := TStringField.Create(Self);\r\n  dsBeleg2Schlussbemerkung := TStringField.Create(Self);\r\n  dsBeleg2Gruss := TStringField.Create(Self);\r\n  dsBeleg2Mehrwertsteuersatz1 := TFloatField.Create(Self);\r\n  dsBeleg2Mehrwertsteuersatz2 := TFloatField.Create(Self);\r\n  dsBeleg2Nettosumme01 := TFloatField.Create(Self);\r\n  dsBeleg2Nettosumme02 := TFloatField.Create(Self);\r\n  dsBeleg2Nettosumme := TFloatField.Create(Self);\r\n  dsBeleg2Mehrwertsteuer01 := TFloatField.Create(Self);\r\n  dsBeleg2Mehrwertsteuer02 := TFloatField.Create(Self);\r\n  dsBeleg2Mehrwertsteuer := TFloatField.Create(Self);\r\n  dsBeleg2Bruttosumme := TFloatField.Create(Self);\r\n  dsBeleg2Versanddatum := TDateTimeField.Create(Self);\r\n  dsBeleg2Skontosatz := TFloatField.Create(Self);\r\n  dsBeleg2NettosummeEK := TFloatField.Create(Self);\r\n  dsBeleg2NettoMarge := TFloatField.Create(Self);\r\n  dsBeleg2Schreibzeichen := TStringField.Create(Self);\r\n  dsBeleg2Unterzeichner := TStringField.Create(Self);\r\n  dsBeleg2TelefonMA := TStringField.Create(Self);\r\n  dsBeleg2EmailMA := TStringField.Create(Self);\r\n  dsBeleg2USTID := TStringField.Create(Self);\r\n  dsBeleg2Umsatzsteuerausweis := TBooleanField.Create(Self);\r\n  dsBeleg2gebucht := TBooleanField.Create(Self);\r\n  dsBeleg2Lieferdatum := TDateTimeField.Create(Self);\r\n  dsBeleg2Transportbedingung := TStringField.Create(Self);\r\n  dsBeleg2Mehrwertsteuersatz3 := TFloatField.Create(Self);\r\n  dsBeleg2Mehrwertsteuer03 := TFloatField.Create(Self);\r\n  dsBeleg2Nettosumme03 := TFloatField.Create(Self);\r\n  dsBeleg2RundungsDifferenz := TFloatField.Create(Self);\r\n  dsBeleg2EmailText := TStringField.Create(Self);\r\n  dsBeleg2Auftragerledigt := TBooleanField.Create(Self);\r\n  dsBeleg2Rabattstufe := TStringField.Create(Self);\r\n  dsBeleg2KFZKennzeichen := TStringField.Create(Self);\r\n  dsBeleg2Fahrgestellnummer := TStringField.Create(Self);\r\n  dsBeleg2KFZHersteller := TStringField.Create(Self);\r\n  dsBeleg2Erstzulassungsdatum := TDateTimeField.Create(Self);\r\n  dsBeleg2KMStand := TStringField.Create(Self);\r\n  dsBeleg2KFZType := TStringField.Create(Self);\r\n  dsBeleg2Inspektionsdatum := TDateTimeField.Create(Self);\r\n  dsBeleg2Debitorennummer := TStringField.Create(Self);\r\n  dsBeleg2Kostentraeger := TStringField.Create(Self);\r\n  dsBeleg2Rabattsatz := TFloatField.Create(Self);\r\n  dsBeleg2ObjektReferenz := TStringField.Create(Self);\r\n  dsBeleg2Bank := TStringField.Create(Self);\r\n  dsBeleg2Bankleitzahl := TFloatField.Create(Self);\r\n  dsBeleg2Kontonummer := TStringField.Create(Self);\r\n  dsBeleg2Kontoinhaber := TStringField.Create(Self);\r\n  dsBeleg2Telefaxnummer := TStringField.Create(Self);\r\n  dsBeleg2DatumNeu := TDateTimeField.Create(Self);\r\n  dsBeleg2Datumgeaendert := TDateTimeField.Create(Self);\r\n  dsBeleg2Objektnummer := TStringField.Create(Self);\r\n  dsBeleg2Liefertermin := TStringField.Create(Self);\r\n  dsBeleg2Emailversand := TBooleanField.Create(Self);\r\n  dsBeleg2Telefonnummer := TStringField.Create(Self);\r\n  dsBeleg2MobilTelefon := TStringField.Create(Self);\r\n  dsBeleg2AuftragFax := TBooleanField.Create(Self);\r\n  dsBeleg2REDatum := TDateTimeField.Create(Self);\r\n  dsBeleg2BenutzerNeu := TStringField.Create(Self);\r\n  dsBeleg2BenutzerGeaendert := TStringField.Create(Self);\r\n  dsBeleg2BerechnungBrutto := TBooleanField.Create(Self);\r\n  dsBeleg2Bruttosumme01 := TFloatField.Create(Self);\r\n  dsBeleg2Bruttosumme02 := TFloatField.Create(Self);\r\n  dsBeleg2Bruttosumme03 := TFloatField.Create(Self);\r\n  dsBeleg2Notiz := TStringField.Create(Self);\r\n  dsBeleg2MargeProzent := TFloatField.Create(Self);\r\n  dsBeleg2Warenkreditgesperrt := TBooleanField.Create(Self);\r\n  dsBeleg2Belegsprache := TStringField.Create(Self);\r\n  dsBeleg2Duplicate := TStringField.Create(Self);\r\n  dsBeleg2perEmail := TBooleanField.Create(Self);\r\n  dsBeleg2Ansprechpartner := TStringField.Create(Self);\r\n  dsBeleg2KundennummerFremd := TStringField.Create(Self);\r\n  dsBeleg2Protokoll := TStringField.Create(Self);\r\n  dsBeleg2Verleihauftrag := TBooleanField.Create(Self);\r\n  dsBeleg2VerleihVon := TDateTimeField.Create(Self);\r\n  dsBeleg2VerleihBis := TDateTimeField.Create(Self);\r\n  dsBeleg2AuftragGenehmigt := TBooleanField.Create(Self);\r\n  dsBeleg2gesperrt := TBooleanField.Create(Self);\r\n  dsBeleg2VerleihvonText := TStringField.Create(Self);\r\n  dsBeleg2VerleihbisText := TStringField.Create(Self);\r\n  dsBeleg2DruckWHG := TStringField.Create(Self);\r\n  dsBeleg2DruckWHGKurs := TFloatField.Create(Self);\r\n  dsBeleg2ProzentsatzZusatzposition := TFloatField.Create(Self);\r\n  dsBeleg2TextZusatzposition := TStringField.Create(Self);\r\n  dsBeleg2TextzusatzBeschreibung := TStringField.Create(Self);\r\n  dsBeleg2Layoutname := TStringField.Create(Self);\r\n  dsBeleg2Gesamtgewicht := TFloatField.Create(Self);\r\n  dsBeleg2BetragZusatzposition := TFloatField.Create(Self);\r\n  dsBeleg2ReferenzBestellung := TStringField.Create(Self);\r\n  dsBeleg2Termin1 := TDateTimeField.Create(Self);\r\n  dsBeleg2Termin2 := TDateTimeField.Create(Self);\r\n  dsBeleg2Zielkontaktnummer := TStringField.Create(Self);\r\n  dsBeleg2Zielkontaktname := TStringField.Create(Self);\r\n  dsBeleg2Bilddatei1 := TStringField.Create(Self);\r\n  dsBeleg2Bilddatei2 := TStringField.Create(Self);\r\n  dsBeleg2Zielkontaktnummer2 := TStringField.Create(Self);\r\n  dsBeleg2Zielkontaktname2 := TStringField.Create(Self);\r\n  dsBeleg2bestaetigt := TDateTimeField.Create(Self);\r\n  dsBeleg2Zielkontaktnummer3 := TStringField.Create(Self);\r\n  dsBeleg2Zielkontaktname3 := TStringField.Create(Self);\r\n  dsBeleg2Termin3 := TDateTimeField.Create(Self);\r\n  dsBeleg2Termin4 := TDateTimeField.Create(Self);\r\n  dsBeleg2Muster := TBooleanField.Create(Self);\r\n  dsBeleg2KW := TIntegerField.Create(Self);\r\n  dsBeleg2Datenlink := TStringField.Create(Self);\r\n  dsBeleg2Mehrwertsteuersatz4 := TFloatField.Create(Self);\r\n  dsBeleg2Mehrwertsteuersatz5 := TFloatField.Create(Self);\r\n  dsBeleg2Mehrwertsteuersatz6 := TFloatField.Create(Self);\r\n  dsBeleg2BesteuerungKey := TIntegerField.Create(Self);\r\n  dsBeleg2VertreterMatchcode := TStringField.Create(Self);\r\n  dsBeleg2Verfasser := TStringField.Create(Self);\r\n  dsBeleg2LieferadresseID := TIntegerField.Create(Self);\r\n  dsBeleg2AuftragStatus := TStringField.Create(Self);\r\n  dsBeleg2MonatJahr := TDateTimeField.Create(Self);\r\n  dsBeleg2Belegvariante := TStringField.Create(Self);\r\n  dsBeleg2Produktionsfreigabe := TBooleanField.Create(Self);\r\n  dsBeleg2ReferenzRahmenAuftrag := TStringField.Create(Self);\r\n  dsBeleg2DatumRahmenAuftrag := TDateTimeField.Create(Self);\r\n  dsBeleg2FahrzeugID := TIntegerField.Create(Self);\r\n  dsBeleg2AuslieferungKW := TStringField.Create(Self);\r\n  dsBeleg2BereitstellungDatum := TDateTimeField.Create(Self);\r\n  dsBeleg2VTUID := TStringField.Create(Self);\r\n  dsBeleg2LieferanschriftDaten := TStringField.Create(Self);\r\n  dsBeleg2GesamtVolumen := TFloatField.Create(Self);\r\n  dsBeleg2BelegPKey := TIntegerField.Create(Self);\r\n  dsBeleg2DruckParameter := TStringField.Create(Self);\r\n  dsBeleg2ReferenzService := TStringField.Create(Self);\r\n  dsBeleg2ZusatzDaten := TStringField.Create(Self);\r\n  dsBeleg2StandPDF := TStringField.Create(Self);\r\n  dsBeleg2Paketdienst := TStringField.Create(Self);\r\n  dsBeleg2Monteur := TIntegerField.Create(Self);\r\n  dsBeleg2KundennummerKundennummer := TStringField.Create(Self);\r\n  dsBeleg2ServiceBemerkung := TStringField.Create(Self);\r\n\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  WTCPosition.BeforeLoadDFMValues;\r\n  btnPosAbbrechen.BeforeLoadDFMValues;\r\n  btnPosSpeichern.BeforeLoadDFMValues;\r\n  btnPositionLoeschen.BeforeLoadDFMValues;\r\n  edtPosNr.BeforeLoadDFMValues;\r\n  edtPosUNr.BeforeLoadDFMValues;\r\n  edtArtikelueberschrift.BeforeLoadDFMValues;\r\n  edtMenge.BeforeLoadDFMValues;\r\n  btnArtikelnummer.BeforeLoadDFMValues;\r\n  edtArtikelbeschreibung.BeforeLoadDFMValues;\r\n  edtMengenart.BeforeLoadDFMValues;\r\n  btnNeuePosition.BeforeLoadDFMValues;\r\n  xdsPosition.BeforeLoadDFMValues;\r\n  xdsPositionNummerkomplett.BeforeLoadDFMValues;\r\n  xdsPositionArtikelnummer.BeforeLoadDFMValues;\r\n  xdsPositionID.BeforeLoadDFMValues;\r\n  xdsPositionPosNr.BeforeLoadDFMValues;\r\n  xdsPositionPosUNr.BeforeLoadDFMValues;\r\n  xdsPositionSumme.BeforeLoadDFMValues;\r\n  xdsPositionArtikelueberschrift.BeforeLoadDFMValues;\r\n  xdsPositionArtikelbeschreibung.BeforeLoadDFMValues;\r\n  xdsPositionMenge.BeforeLoadDFMValues;\r\n  xdsPositionArtderMenge.BeforeLoadDFMValues;\r\n  xdsPositionVerkaufspreis.BeforeLoadDFMValues;\r\n  xdsPositionEinkaufspreis.BeforeLoadDFMValues;\r\n  xdsPositionSeriennummer.BeforeLoadDFMValues;\r\n  xdsPositionWarengruppe.BeforeLoadDFMValues;\r\n  xdsPositionWarenuntergruppe.BeforeLoadDFMValues;\r\n  xdsPositionArtikelnummerKunde.BeforeLoadDFMValues;\r\n  xdsPositionLieferant.BeforeLoadDFMValues;\r\n  xdsPositionGewicht.BeforeLoadDFMValues;\r\n  xdsPositionLaenge.BeforeLoadDFMValues;\r\n  xdsPositionBreite.BeforeLoadDFMValues;\r\n  xdsPositionHoehe.BeforeLoadDFMValues;\r\n  xdsPositionMehrwertsteuersatz.BeforeLoadDFMValues;\r\n  xdsPositionEndpreis.BeforeLoadDFMValues;\r\n  xdsPositionPosMWST.BeforeLoadDFMValues;\r\n  xdsPositionBruttoEndpreis.BeforeLoadDFMValues;\r\n  xdsPositionEndpreis_EK.BeforeLoadDFMValues;\r\n  xdsPositionRabattsatz.BeforeLoadDFMValues;\r\n  xdsPositionPreisvorRabatt.BeforeLoadDFMValues;\r\n  xdsPositionPKZ.BeforeLoadDFMValues;\r\n  xdsPositionTextfrei10.BeforeLoadDFMValues;\r\n  xdsPositionTextfrei20.BeforeLoadDFMValues;\r\n  xdsPositionAlternativ.BeforeLoadDFMValues;\r\n  xdsPositionEinzelpreisBrutto.BeforeLoadDFMValues;\r\n  xdsPositionPosMarge.BeforeLoadDFMValues;\r\n  xdsPositionPosMargeProzent.BeforeLoadDFMValues;\r\n  xdsPositionWarenbestand.BeforeLoadDFMValues;\r\n  xdsPositionArtikelbeschreibungRTF.BeforeLoadDFMValues;\r\n  xdsPositionQuellartikel.BeforeLoadDFMValues;\r\n  xdsPositionArtikelnummerWB.BeforeLoadDFMValues;\r\n  xdsPositionPreisanteilNetto.BeforeLoadDFMValues;\r\n  xdsPositionSetHPos.BeforeLoadDFMValues;\r\n  xdsPositionSetUPos.BeforeLoadDFMValues;\r\n  xdsPositionProvisionssatz.BeforeLoadDFMValues;\r\n  xdsPositionProvisionsbetrag.BeforeLoadDFMValues;\r\n  xdsPositionReferenzKalkulation.BeforeLoadDFMValues;\r\n  xdsPositionArtikelsprache.BeforeLoadDFMValues;\r\n  xdsPositionEKvom.BeforeLoadDFMValues;\r\n  xdsPositionMengenberechnungID.BeforeLoadDFMValues;\r\n  xdsPositionTaraID.BeforeLoadDFMValues;\r\n  xdsPositionTara.BeforeLoadDFMValues;\r\n  xdsPositionBruttoGewicht.BeforeLoadDFMValues;\r\n  xdsPositionAussenflaeche.BeforeLoadDFMValues;\r\n  xdsPositionSeitenumbruch.BeforeLoadDFMValues;\r\n  xdsPositionMWStKey.BeforeLoadDFMValues;\r\n  xdsPositionZSnachPos.BeforeLoadDFMValues;\r\n  xdsPositionPreisVorRabattWHG.BeforeLoadDFMValues;\r\n  xdsPositionPKey.BeforeLoadDFMValues;\r\n  xdsPositionLager.BeforeLoadDFMValues;\r\n  xdsPositionlwbID.BeforeLoadDFMValues;\r\n  xdsPositionBelegdatum.BeforeLoadDFMValues;\r\n  xdsPositionVolumen.BeforeLoadDFMValues;\r\n  xdsPositionPosVolumen.BeforeLoadDFMValues;\r\n  xdsPositionArtikelAttribute.BeforeLoadDFMValues;\r\n  sourcePosition.BeforeLoadDFMValues;\r\n  dsArtikel.BeforeLoadDFMValues;\r\n  dsArtikelHersteller.BeforeLoadDFMValues;\r\n  dsArtikelArtderMenge.BeforeLoadDFMValues;\r\n  dsArtikelPfandArt.BeforeLoadDFMValues;\r\n  dsArtikelWarengruppe.BeforeLoadDFMValues;\r\n  dsArtikelWarenuntergruppe.BeforeLoadDFMValues;\r\n  dsArtikelArtikelnummer.BeforeLoadDFMValues;\r\n  dsArtikelArtikelueberschrift.BeforeLoadDFMValues;\r\n  dsArtikelArtikelbeschreibung.BeforeLoadDFMValues;\r\n  dsArtikelVerkaufspreis.BeforeLoadDFMValues;\r\n  dsArtikelMindestbestand.BeforeLoadDFMValues;\r\n  dsArtikelPreisliste.BeforeLoadDFMValues;\r\n  dsArtikelGewicht.BeforeLoadDFMValues;\r\n  dsArtikelLaenge.BeforeLoadDFMValues;\r\n  dsArtikelBreite.BeforeLoadDFMValues;\r\n  dsArtikelHoehe.BeforeLoadDFMValues;\r\n  dsArtikelArtikelZusatz.BeforeLoadDFMValues;\r\n  dsArtikelLagerort.BeforeLoadDFMValues;\r\n  dsArtikelBuchungskonto.BeforeLoadDFMValues;\r\n  dsArtikelEingangMenge.BeforeLoadDFMValues;\r\n  dsArtikelEingangEndpreis.BeforeLoadDFMValues;\r\n  dsArtikelAusgangMenge.BeforeLoadDFMValues;\r\n  dsArtikelAusgangEndpreisEK.BeforeLoadDFMValues;\r\n  dsArtikelAusgangEndpreisVK.BeforeLoadDFMValues;\r\n  dsArtikelBestand.BeforeLoadDFMValues;\r\n  dsArtikelBestandswert.BeforeLoadDFMValues;\r\n  dsArtikelMarge.BeforeLoadDFMValues;\r\n  dsArtikelMargeProzent.BeforeLoadDFMValues;\r\n  dsArtikelArtikelnummer2.BeforeLoadDFMValues;\r\n  dsArtikelArtikelmatchcode.BeforeLoadDFMValues;\r\n  dsArtikelRabattpreis1.BeforeLoadDFMValues;\r\n  dsArtikelRabattpreis2.BeforeLoadDFMValues;\r\n  dsArtikelRabattpreis3.BeforeLoadDFMValues;\r\n  dsArtikelRabattpreis4.BeforeLoadDFMValues;\r\n  dsArtikelRabattpreis5.BeforeLoadDFMValues;\r\n  dsArtikelArtikelnichtmehrgueltig.BeforeLoadDFMValues;\r\n  dsArtikelEinkaufspreis.BeforeLoadDFMValues;\r\n  dsArtikelAufschlag.BeforeLoadDFMValues;\r\n  dsArtikelWarenbestand.BeforeLoadDFMValues;\r\n  dsArtikelTextfrei10.BeforeLoadDFMValues;\r\n  dsArtikelTextfrei20.BeforeLoadDFMValues;\r\n  dsArtikelArtikelbeschreibungRTF.BeforeLoadDFMValues;\r\n  dsArtikelArtikeldatei1.BeforeLoadDFMValues;\r\n  dsArtikelArtikeldatei2.BeforeLoadDFMValues;\r\n  dsArtikelArtikeldatei3.BeforeLoadDFMValues;\r\n  dsArtikelArtikeldatei4.BeforeLoadDFMValues;\r\n  dsArtikelArtikeldatei5.BeforeLoadDFMValues;\r\n  dsArtikelEinkaufspreisVom.BeforeLoadDFMValues;\r\n  dsArtikelEAN.BeforeLoadDFMValues;\r\n  dsArtikelVGPFaktor.BeforeLoadDFMValues;\r\n  dsArtikelVGPMengenart.BeforeLoadDFMValues;\r\n  dsArtikelVerleihpreis.BeforeLoadDFMValues;\r\n  dsArtikelZusatzPreis.BeforeLoadDFMValues;\r\n  dsArtikelVerpackungsart.BeforeLoadDFMValues;\r\n  dsArtikelVerpackungsMenge.BeforeLoadDFMValues;\r\n  dsArtikelQuellartikel.BeforeLoadDFMValues;\r\n  dsArtikelrabattierfaehig.BeforeLoadDFMValues;\r\n  dsArtikelAngebotAlternativeAN.BeforeLoadDFMValues;\r\n  dsArtikelPreisanteilNetto.BeforeLoadDFMValues;\r\n  dsArtikelFarbe.BeforeLoadDFMValues;\r\n  dsArtikelAEinkauf.BeforeLoadDFMValues;\r\n  dsArtikelAVerkauf.BeforeLoadDFMValues;\r\n  dsArtikelArtikelnummerLieferant.BeforeLoadDFMValues;\r\n  dsArtikelLieferantnummer.BeforeLoadDFMValues;\r\n  dsArtikelVerkaufspreisBrutto.BeforeLoadDFMValues;\r\n  dsArtikelArtikelSet.BeforeLoadDFMValues;\r\n  dsArtikelProvisionssatz.BeforeLoadDFMValues;\r\n  dsArtikelWarentarifnummer.BeforeLoadDFMValues;\r\n  dsArtikelHandelsartikel.BeforeLoadDFMValues;\r\n  dsArtikelUrsprungsland.BeforeLoadDFMValues;\r\n  dsArtikelKategorie.BeforeLoadDFMValues;\r\n  dsArtikelStandardRabattsatzEK.BeforeLoadDFMValues;\r\n  dsArtikelStandardRabattsatzVK.BeforeLoadDFMValues;\r\n  dsArtikelRabattpreiseManuell.BeforeLoadDFMValues;\r\n  dsArtikelMengeBestellt.BeforeLoadDFMValues;\r\n  dsArtikelMengeBeauftragt.BeforeLoadDFMValues;\r\n  dsArtikelBestandDisponiert.BeforeLoadDFMValues;\r\n  dsArtikelMengeAngeboten.BeforeLoadDFMValues;\r\n  dsArtikelBestandDispInclAngebot.BeforeLoadDFMValues;\r\n  dsArtikelMWStKey.BeforeLoadDFMValues;\r\n  dsArtikelShopAmazon.BeforeLoadDFMValues;\r\n  dsArtikelShopQuelle.BeforeLoadDFMValues;\r\n  dsArtikelGeraet.BeforeLoadDFMValues;\r\n  dsArtikelArtgewicht.BeforeLoadDFMValues;\r\n  dsArtikelVolumen.BeforeLoadDFMValues;\r\n  dsArtikelPacklisteNichtAnzeigen.BeforeLoadDFMValues;\r\n  dsArtikelKeineAufschlagskalkulation.BeforeLoadDFMValues;\r\n  dsArtikelKorrekturMenge.BeforeLoadDFMValues;\r\n  dsArtikelKorrekturWert.BeforeLoadDFMValues;\r\n  dsArtikelNachfolgeartikel.BeforeLoadDFMValues;\r\n  dsArtikelMindestbestellmenge.BeforeLoadDFMValues;\r\n  dsArtikelSchnittEK.BeforeLoadDFMValues;\r\n  dsArtikelVerkaufspreisVom.BeforeLoadDFMValues;\r\n  dsArtikelPruefungChargeSNR.BeforeLoadDFMValues;\r\n  dsArtikelArtikelbeschreibungHTML.BeforeLoadDFMValues;\r\n  dsArtikelProduktKurzbeschreibungHTML.BeforeLoadDFMValues;\r\n  dsArtikelStatusFuerShop.BeforeLoadDFMValues;\r\n  dsArtikelAmpelFuerShop.BeforeLoadDFMValues;\r\n  dsArtikelEXP_Anzahl.BeforeLoadDFMValues;\r\n  dsArtikelEXP_Inhalt.BeforeLoadDFMValues;\r\n  dsArtikelEXP_Faktor.BeforeLoadDFMValues;\r\n  dsArtikelFach.BeforeLoadDFMValues;\r\n  dsArtikelExportKasse.BeforeLoadDFMValues;\r\n  dsArtikelWKNR.BeforeLoadDFMValues;\r\n  dsArtikelArtikelAttribute.BeforeLoadDFMValues;\r\n  dsArtikelErstelltAm.BeforeLoadDFMValues;\r\n  dsArtikelVarianteVonAN.BeforeLoadDFMValues;\r\n  dsArtikelGurtmassWerte.BeforeLoadDFMValues;\r\n  dsArtikelGurtmass.BeforeLoadDFMValues;\r\n  dsArtikelAltersgrenze.BeforeLoadDFMValues;\r\n  dsArtikelMWStKeyImHaus.BeforeLoadDFMValues;\r\n  dsArtikelKasseBewegung.BeforeLoadDFMValues;\r\n  dsArtikelKasseBewegungEK.BeforeLoadDFMValues;\r\n  dsArtikelKasseBewegungVK.BeforeLoadDFMValues;\r\n  dsArtikelProduktionBewegung.BeforeLoadDFMValues;\r\n  dsArtikelProduktionBewegungEK.BeforeLoadDFMValues;\r\n  dsArtikelProduktionBewegungVK.BeforeLoadDFMValues;\r\n  dsArtikelWaWiAB.BeforeLoadDFMValues;\r\n  dsArtikelGeaendertAm.BeforeLoadDFMValues;\r\n  dsArtikelGefahrgutKennzeichen.BeforeLoadDFMValues;\r\n  dsArtikelVerpackG.BeforeLoadDFMValues;\r\n  dsArtikelUPE.BeforeLoadDFMValues;\r\n  dsArtikelArtikelbeschreibungEinkauf.BeforeLoadDFMValues;\r\n  dsArtikelHerstellerArtikelnummer.BeforeLoadDFMValues;\r\n  dsArtikelNatura.BeforeLoadDFMValues;\r\n  dsArtikelArbeitszeit.BeforeLoadDFMValues;\r\n  dsArtikelArtderMengeArtderMenge.BeforeLoadDFMValues;\r\n  xdsKundenpreise.BeforeLoadDFMValues;\r\n  xdsKundenpreiseArtikelnummer.BeforeLoadDFMValues;\r\n  xdsKundenpreiseKundennummer.BeforeLoadDFMValues;\r\n  xdsKundenpreiseVerkaufspreis.BeforeLoadDFMValues;\r\n  xdsKundenpreiseNachname.BeforeLoadDFMValues;\r\n  xdsKundenpreiseRabattsatz.BeforeLoadDFMValues;\r\n  xdsKundenpreiseVerleihpreis.BeforeLoadDFMValues;\r\n  xdsKundenpreiseZusatzPreis.BeforeLoadDFMValues;\r\n  xdsKundenpreiseArtikelnummerKunde.BeforeLoadDFMValues;\r\n  xdsKundenpreiseDatumGeaendert.BeforeLoadDFMValues;\r\n  xdsKundenpreiseArtikelueberschrift.BeforeLoadDFMValues;\r\n  xdsKundenpreiseArtikelnummerArtikelnummer.BeforeLoadDFMValues;\r\n  xdsKundenpreiseArtikelnummerArtikelueberschrift.BeforeLoadDFMValues;\r\n  xdsKundenpreiseArtikelnummerArtikelbeschreibung.BeforeLoadDFMValues;\r\n  dsBeleg2.BeforeLoadDFMValues;\r\n  dsBeleg2Kundennummer.BeforeLoadDFMValues;\r\n  dsBeleg2Nummerkomplett.BeforeLoadDFMValues;\r\n  dsBeleg2ReferenzAngebot.BeforeLoadDFMValues;\r\n  dsBeleg2ReferenzLieferschein.BeforeLoadDFMValues;\r\n  dsBeleg2ReferenzRechnung.BeforeLoadDFMValues;\r\n  dsBeleg2Datum.BeforeLoadDFMValues;\r\n  dsBeleg2Jahr.BeforeLoadDFMValues;\r\n  dsBeleg2Kalenderwoche.BeforeLoadDFMValues;\r\n  dsBeleg2Nachname.BeforeLoadDFMValues;\r\n  dsBeleg2Vorname.BeforeLoadDFMValues;\r\n  dsBeleg2Postleitzahl.BeforeLoadDFMValues;\r\n  dsBeleg2Ort.BeforeLoadDFMValues;\r\n  dsBeleg2Laenderkuerzel.BeforeLoadDFMValues;\r\n  dsBeleg2Land.BeforeLoadDFMValues;\r\n  dsBeleg2Briefanrede1.BeforeLoadDFMValues;\r\n  dsBeleg2Briefanrede2.BeforeLoadDFMValues;\r\n  dsBeleg2EMail.BeforeLoadDFMValues;\r\n  dsBeleg2AdresseBild.BeforeLoadDFMValues;\r\n  dsBeleg2LieferanschriftBild.BeforeLoadDFMValues;\r\n  dsBeleg2Zahlungsbedingung.BeforeLoadDFMValues;\r\n  dsBeleg2ZahlungsbedingungText.BeforeLoadDFMValues;\r\n  dsBeleg2Auftragsbezeichnung.BeforeLoadDFMValues;\r\n  dsBeleg2AuftragnummerKunde.BeforeLoadDFMValues;\r\n  dsBeleg2BestelldatumKunde.BeforeLoadDFMValues;\r\n  dsBeleg2ILN.BeforeLoadDFMValues;\r\n  dsBeleg2Kopftext.BeforeLoadDFMValues;\r\n  dsBeleg2Schlussbemerkung.BeforeLoadDFMValues;\r\n  dsBeleg2Gruss.BeforeLoadDFMValues;\r\n  dsBeleg2Mehrwertsteuersatz1.BeforeLoadDFMValues;\r\n  dsBeleg2Mehrwertsteuersatz2.BeforeLoadDFMValues;\r\n  dsBeleg2Nettosumme01.BeforeLoadDFMValues;\r\n  dsBeleg2Nettosumme02.BeforeLoadDFMValues;\r\n  dsBeleg2Nettosumme.BeforeLoadDFMValues;\r\n  dsBeleg2Mehrwertsteuer01.BeforeLoadDFMValues;\r\n  dsBeleg2Mehrwertsteuer02.BeforeLoadDFMValues;\r\n  dsBeleg2Mehrwertsteuer.BeforeLoadDFMValues;\r\n  dsBeleg2Bruttosumme.BeforeLoadDFMValues;\r\n  dsBeleg2Versanddatum.BeforeLoadDFMValues;\r\n  dsBeleg2Skontosatz.BeforeLoadDFMValues;\r\n  dsBeleg2NettosummeEK.BeforeLoadDFMValues;\r\n  dsBeleg2NettoMarge.BeforeLoadDFMValues;\r\n  dsBeleg2Schreibzeichen.BeforeLoadDFMValues;\r\n  dsBeleg2Unterzeichner.BeforeLoadDFMValues;\r\n  dsBeleg2TelefonMA.BeforeLoadDFMValues;\r\n  dsBeleg2EmailMA.BeforeLoadDFMValues;\r\n  dsBeleg2USTID.BeforeLoadDFMValues;\r\n  dsBeleg2Umsatzsteuerausweis.BeforeLoadDFMValues;\r\n  dsBeleg2gebucht.BeforeLoadDFMValues;\r\n  dsBeleg2Lieferdatum.BeforeLoadDFMValues;\r\n  dsBeleg2Transportbedingung.BeforeLoadDFMValues;\r\n  dsBeleg2Mehrwertsteuersatz3.BeforeLoadDFMValues;\r\n  dsBeleg2Mehrwertsteuer03.BeforeLoadDFMValues;\r\n  dsBeleg2Nettosumme03.BeforeLoadDFMValues;\r\n  dsBeleg2RundungsDifferenz.BeforeLoadDFMValues;\r\n  dsBeleg2EmailText.BeforeLoadDFMValues;\r\n  dsBeleg2Auftragerledigt.BeforeLoadDFMValues;\r\n  dsBeleg2Rabattstufe.BeforeLoadDFMValues;\r\n  dsBeleg2KFZKennzeichen.BeforeLoadDFMValues;\r\n  dsBeleg2Fahrgestellnummer.BeforeLoadDFMValues;\r\n  dsBeleg2KFZHersteller.BeforeLoadDFMValues;\r\n  dsBeleg2Erstzulassungsdatum.BeforeLoadDFMValues;\r\n  dsBeleg2KMStand.BeforeLoadDFMValues;\r\n  dsBeleg2KFZType.BeforeLoadDFMValues;\r\n  dsBeleg2Inspektionsdatum.BeforeLoadDFMValues;\r\n  dsBeleg2Debitorennummer.BeforeLoadDFMValues;\r\n  dsBeleg2Kostentraeger.BeforeLoadDFMValues;\r\n  dsBeleg2Rabattsatz.BeforeLoadDFMValues;\r\n  dsBeleg2ObjektReferenz.BeforeLoadDFMValues;\r\n  dsBeleg2Bank.BeforeLoadDFMValues;\r\n  dsBeleg2Bankleitzahl.BeforeLoadDFMValues;\r\n  dsBeleg2Kontonummer.BeforeLoadDFMValues;\r\n  dsBeleg2Kontoinhaber.BeforeLoadDFMValues;\r\n  dsBeleg2Telefaxnummer.BeforeLoadDFMValues;\r\n  dsBeleg2DatumNeu.BeforeLoadDFMValues;\r\n  dsBeleg2Datumgeaendert.BeforeLoadDFMValues;\r\n  dsBeleg2Objektnummer.BeforeLoadDFMValues;\r\n  dsBeleg2Liefertermin.BeforeLoadDFMValues;\r\n  dsBeleg2Emailversand.BeforeLoadDFMValues;\r\n  dsBeleg2Telefonnummer.BeforeLoadDFMValues;\r\n  dsBeleg2MobilTelefon.BeforeLoadDFMValues;\r\n  dsBeleg2AuftragFax.BeforeLoadDFMValues;\r\n  dsBeleg2REDatum.BeforeLoadDFMValues;\r\n  dsBeleg2BenutzerNeu.BeforeLoadDFMValues;\r\n  dsBeleg2BenutzerGeaendert.BeforeLoadDFMValues;\r\n  dsBeleg2BerechnungBrutto.BeforeLoadDFMValues;\r\n  dsBeleg2Bruttosumme01.BeforeLoadDFMValues;\r\n  dsBeleg2Bruttosumme02.BeforeLoadDFMValues;\r\n  dsBeleg2Bruttosumme03.BeforeLoadDFMValues;\r\n  dsBeleg2Notiz.BeforeLoadDFMValues;\r\n  dsBeleg2MargeProzent.BeforeLoadDFMValues;\r\n  dsBeleg2Warenkreditgesperrt.BeforeLoadDFMValues;\r\n  dsBeleg2Belegsprache.BeforeLoadDFMValues;\r\n  dsBeleg2Duplicate.BeforeLoadDFMValues;\r\n  dsBeleg2perEmail.BeforeLoadDFMValues;\r\n  dsBeleg2Ansprechpartner.BeforeLoadDFMValues;\r\n  dsBeleg2KundennummerFremd.BeforeLoadDFMValues;\r\n  dsBeleg2Protokoll.BeforeLoadDFMValues;\r\n  dsBeleg2Verleihauftrag.BeforeLoadDFMValues;\r\n  dsBeleg2VerleihVon.BeforeLoadDFMValues;\r\n  dsBeleg2VerleihBis.BeforeLoadDFMValues;\r\n  dsBeleg2AuftragGenehmigt.BeforeLoadDFMValues;\r\n  dsBeleg2gesperrt.BeforeLoadDFMValues;\r\n  dsBeleg2VerleihvonText.BeforeLoadDFMValues;\r\n  dsBeleg2VerleihbisText.BeforeLoadDFMValues;\r\n  dsBeleg2DruckWHG.BeforeLoadDFMValues;\r\n  dsBeleg2DruckWHGKurs.BeforeLoadDFMValues;\r\n  dsBeleg2ProzentsatzZusatzposition.BeforeLoadDFMValues;\r\n  dsBeleg2TextZusatzposition.BeforeLoadDFMValues;\r\n  dsBeleg2TextzusatzBeschreibung.BeforeLoadDFMValues;\r\n  dsBeleg2Layoutname.BeforeLoadDFMValues;\r\n  dsBeleg2Gesamtgewicht.BeforeLoadDFMValues;\r\n  dsBeleg2BetragZusatzposition.BeforeLoadDFMValues;\r\n  dsBeleg2ReferenzBestellung.BeforeLoadDFMValues;\r\n  dsBeleg2Termin1.BeforeLoadDFMValues;\r\n  dsBeleg2Termin2.BeforeLoadDFMValues;\r\n  dsBeleg2Zielkontaktnummer.BeforeLoadDFMValues;\r\n  dsBeleg2Zielkontaktname.BeforeLoadDFMValues;\r\n  dsBeleg2Bilddatei1.BeforeLoadDFMValues;\r\n  dsBeleg2Bilddatei2.BeforeLoadDFMValues;\r\n  dsBeleg2Zielkontaktnummer2.BeforeLoadDFMValues;\r\n  dsBeleg2Zielkontaktname2.BeforeLoadDFMValues;\r\n  dsBeleg2bestaetigt.BeforeLoadDFMValues;\r\n  dsBeleg2Zielkontaktnummer3.BeforeLoadDFMValues;\r\n  dsBeleg2Zielkontaktname3.BeforeLoadDFMValues;\r\n  dsBeleg2Termin3.BeforeLoadDFMValues;\r\n  dsBeleg2Termin4.BeforeLoadDFMValues;\r\n  dsBeleg2Muster.BeforeLoadDFMValues;\r\n  dsBeleg2KW.BeforeLoadDFMValues;\r\n  dsBeleg2Datenlink.BeforeLoadDFMValues;\r\n  dsBeleg2Mehrwertsteuersatz4.BeforeLoadDFMValues;\r\n  dsBeleg2Mehrwertsteuersatz5.BeforeLoadDFMValues;\r\n  dsBeleg2Mehrwertsteuersatz6.BeforeLoadDFMValues;\r\n  dsBeleg2BesteuerungKey.BeforeLoadDFMValues;\r\n  dsBeleg2VertreterMatchcode.BeforeLoadDFMValues;\r\n  dsBeleg2Verfasser.BeforeLoadDFMValues;\r\n  dsBeleg2LieferadresseID.BeforeLoadDFMValues;\r\n  dsBeleg2AuftragStatus.BeforeLoadDFMValues;\r\n  dsBeleg2MonatJahr.BeforeLoadDFMValues;\r\n  dsBeleg2Belegvariante.BeforeLoadDFMValues;\r\n  dsBeleg2Produktionsfreigabe.BeforeLoadDFMValues;\r\n  dsBeleg2ReferenzRahmenAuftrag.BeforeLoadDFMValues;\r\n  dsBeleg2DatumRahmenAuftrag.BeforeLoadDFMValues;\r\n  dsBeleg2FahrzeugID.BeforeLoadDFMValues;\r\n  dsBeleg2AuslieferungKW.BeforeLoadDFMValues;\r\n  dsBeleg2BereitstellungDatum.BeforeLoadDFMValues;\r\n  dsBeleg2VTUID.BeforeLoadDFMValues;\r\n  dsBeleg2LieferanschriftDaten.BeforeLoadDFMValues;\r\n  dsBeleg2GesamtVolumen.BeforeLoadDFMValues;\r\n  dsBeleg2BelegPKey.BeforeLoadDFMValues;\r\n  dsBeleg2DruckParameter.BeforeLoadDFMValues;\r\n  dsBeleg2ReferenzService.BeforeLoadDFMValues;\r\n  dsBeleg2ZusatzDaten.BeforeLoadDFMValues;\r\n  dsBeleg2StandPDF.BeforeLoadDFMValues;\r\n  dsBeleg2Paketdienst.BeforeLoadDFMValues;\r\n  dsBeleg2Monteur.BeforeLoadDFMValues;\r\n  dsBeleg2KundennummerKundennummer.BeforeLoadDFMValues;\r\n  dsBeleg2ServiceBemerkung.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'AngebotPosEinzel';\r\n    Width := 235;\r\n    Height := 511;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnClose', 'WebFormClose');\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 235;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.Align := alTop;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 41;\r\n    Container2.Width := 235;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.Align := alTop;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    WTCPosition.SetParentComponent(Self);\r\n    WTCPosition.Name := 'WTCPosition';\r\n    WTCPosition.Left := 0;\r\n    WTCPosition.Top := 82;\r\n    WTCPosition.Width := 235;\r\n    WTCPosition.Height := 75;\r\n    WTCPosition.ElementClassName := 'table';\r\n    WTCPosition.HeightStyle := ssAuto;\r\n    WTCPosition.WidthStyle := ssPercent;\r\n    WTCPosition.Align := alTop;\r\n    WTCPosition.BorderColor := clSilver;\r\n    WTCPosition.ChildOrder := 2;\r\n    WTCPosition.ColHeader := False;\r\n    WTCPosition.ElementHeaderClassName := 'table-info';\r\n    WTCPosition.ElementPosition := epIgnore;\r\n    WTCPosition.ElementTableClassName := 'table table-bordered';\r\n    WTCPosition.WordWrap := True;\r\n    WTCPosition.ColCount := 2;\r\n    WTCPosition.RowCount := 13;\r\n    btnPosAbbrechen.SetParentComponent(Self);\r\n    btnPosAbbrechen.Name := 'btnPosAbbrechen';\r\n    btnPosAbbrechen.Left := 0;\r\n    btnPosAbbrechen.Top := 206;\r\n    btnPosAbbrechen.Width := 96;\r\n    btnPosAbbrechen.Height := 25;\r\n    btnPosAbbrechen.Caption := 'Abbrechen';\r\n    btnPosAbbrechen.ChildOrder := 4;\r\n    btnPosAbbrechen.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnPosAbbrechen.ElementFont := efCSS;\r\n    btnPosAbbrechen.ElementPosition := epIgnore;\r\n    btnPosAbbrechen.HeightStyle := ssAuto;\r\n    btnPosAbbrechen.HeightPercent := 100.000000000000000000;\r\n    btnPosAbbrechen.WidthStyle := ssAuto;\r\n    btnPosAbbrechen.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnPosAbbrechen, Self, 'OnClick', 'btnPosAbbrechenClick');\r\n    btnPosSpeichern.SetParentComponent(Self);\r\n    btnPosSpeichern.Name := 'btnPosSpeichern';\r\n    btnPosSpeichern.Left := 0;\r\n    btnPosSpeichern.Top := 237;\r\n    btnPosSpeichern.Width := 96;\r\n    btnPosSpeichern.Height := 25;\r\n    btnPosSpeichern.Caption := 'Speichern';\r\n    btnPosSpeichern.ChildOrder := 4;\r\n    btnPosSpeichern.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnPosSpeichern.ElementFont := efCSS;\r\n    btnPosSpeichern.ElementPosition := epIgnore;\r\n    btnPosSpeichern.HeightStyle := ssAuto;\r\n    btnPosSpeichern.HeightPercent := 100.000000000000000000;\r\n    btnPosSpeichern.WidthStyle := ssAuto;\r\n    btnPosSpeichern.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnPosSpeichern, Self, 'OnClick', 'btnPosSpeichernClick');\r\n    btnPositionLoeschen.SetParentComponent(Self);\r\n    btnPositionLoeschen.Name := 'btnPositionLoeschen';\r\n    btnPositionLoeschen.Left := 0;\r\n    btnPositionLoeschen.Top := 268;\r\n    btnPositionLoeschen.Width := 96;\r\n    btnPositionLoeschen.Height := 25;\r\n    btnPositionLoeschen.Caption := 'Position l'#246'schen';\r\n    btnPositionLoeschen.ChildOrder := 4;\r\n    btnPositionLoeschen.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnPositionLoeschen.ElementFont := efCSS;\r\n    btnPositionLoeschen.ElementPosition := epIgnore;\r\n    btnPositionLoeschen.HeightStyle := ssAuto;\r\n    btnPositionLoeschen.HeightPercent := 100.000000000000000000;\r\n    btnPositionLoeschen.WidthStyle := ssAuto;\r\n    btnPositionLoeschen.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnPositionLoeschen, Self, 'OnClick', 'btnPositionLoeschenClick');\r\n    edtPosNr.SetParentComponent(Self);\r\n    edtPosNr.Name := 'edtPosNr';\r\n    edtPosNr.Left := 8;\r\n    edtPosNr.Top := 299;\r\n    edtPosNr.Width := 121;\r\n    edtPosNr.Height := 22;\r\n    edtPosNr.ChildOrder := 12;\r\n    edtPosNr.EditType := weNumeric;\r\n    edtPosNr.ElementClassName := 'form-control form-control-sm';\r\n    edtPosNr.ElementFont := efCSS;\r\n    edtPosNr.ElementPosition := epIgnore;\r\n    edtPosNr.HeightStyle := ssAuto;\r\n    edtPosNr.HeightPercent := 100.000000000000000000;\r\n    edtPosNr.WidthStyle := ssPercent;\r\n    edtPosNr.WidthPercent := 95.000000000000000000;\r\n    edtPosNr.DataField := 'PosNr';\r\n    edtPosNr.DataSource := sourcePosition;\r\n    edtPosUNr.SetParentComponent(Self);\r\n    edtPosUNr.Name := 'edtPosUNr';\r\n    edtPosUNr.Left := 8;\r\n    edtPosUNr.Top := 327;\r\n    edtPosUNr.Width := 121;\r\n    edtPosUNr.Height := 22;\r\n    edtPosUNr.ChildOrder := 12;\r\n    edtPosUNr.EditType := weNumeric;\r\n    edtPosUNr.ElementClassName := 'form-control form-control-sm';\r\n    edtPosUNr.ElementFont := efCSS;\r\n    edtPosUNr.ElementPosition := epIgnore;\r\n    edtPosUNr.HeightStyle := ssAuto;\r\n    edtPosUNr.HeightPercent := 100.000000000000000000;\r\n    edtPosUNr.WidthStyle := ssPercent;\r\n    edtPosUNr.WidthPercent := 95.000000000000000000;\r\n    edtPosUNr.DataField := 'PosUNr';\r\n    edtPosUNr.DataSource := sourcePosition;\r\n    edtArtikelueberschrift.SetParentComponent(Self);\r\n    edtArtikelueberschrift.Name := 'edtArtikelueberschrift';\r\n    edtArtikelueberschrift.Left := 8;\r\n    edtArtikelueberschrift.Top := 355;\r\n    edtArtikelueberschrift.Width := 121;\r\n    edtArtikelueberschrift.Height := 22;\r\n    edtArtikelueberschrift.ChildOrder := 12;\r\n    edtArtikelueberschrift.ElementClassName := 'form-control form-control-sm';\r\n    edtArtikelueberschrift.ElementFont := efCSS;\r\n    edtArtikelueberschrift.ElementPosition := epIgnore;\r\n    edtArtikelueberschrift.HeightStyle := ssAuto;\r\n    edtArtikelueberschrift.HeightPercent := 100.000000000000000000;\r\n    edtArtikelueberschrift.WidthStyle := ssPercent;\r\n    edtArtikelueberschrift.WidthPercent := 95.000000000000000000;\r\n    edtArtikelueberschrift.DataField := 'Artikelueberschrift';\r\n    edtArtikelueberschrift.DataSource := sourcePosition;\r\n    edtMenge.SetParentComponent(Self);\r\n    edtMenge.Name := 'edtMenge';\r\n    edtMenge.Left := 8;\r\n    edtMenge.Top := 383;\r\n    edtMenge.Width := 121;\r\n    edtMenge.Height := 22;\r\n    edtMenge.ChildOrder := 12;\r\n    edtMenge.EditType := weSignedFloat;\r\n    edtMenge.ElementClassName := 'form-control form-control-sm';\r\n    edtMenge.ElementFont := efCSS;\r\n    edtMenge.ElementPosition := epIgnore;\r\n    edtMenge.HeightStyle := ssAuto;\r\n    edtMenge.HeightPercent := 100.000000000000000000;\r\n    edtMenge.WidthStyle := ssPercent;\r\n    edtMenge.WidthPercent := 95.000000000000000000;\r\n    edtMenge.DataField := 'Menge';\r\n    edtMenge.DataSource := sourcePosition;\r\n    btnArtikelnummer.SetParentComponent(Self);\r\n    btnArtikelnummer.Name := 'btnArtikelnummer';\r\n    btnArtikelnummer.Left := 8;\r\n    btnArtikelnummer.Top := 411;\r\n    btnArtikelnummer.Width := 96;\r\n    btnArtikelnummer.Height := 25;\r\n    btnArtikelnummer.Caption := 'Artikel w'#228'hlen';\r\n    btnArtikelnummer.ChildOrder := 4;\r\n    btnArtikelnummer.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnArtikelnummer.ElementFont := efCSS;\r\n    btnArtikelnummer.ElementPosition := epIgnore;\r\n    btnArtikelnummer.HeightStyle := ssAuto;\r\n    btnArtikelnummer.HeightPercent := 100.000000000000000000;\r\n    btnArtikelnummer.WidthStyle := ssAuto;\r\n    btnArtikelnummer.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnArtikelnummer, Self, 'OnClick', 'btnArtikelnummerClick');\r\n    edtArtikelbeschreibung.SetParentComponent(Self);\r\n    edtArtikelbeschreibung.Name := 'edtArtikelbeschreibung';\r\n    edtArtikelbeschreibung.Left := 144;\r\n    edtArtikelbeschreibung.Top := 384;\r\n    edtArtikelbeschreibung.Width := 185;\r\n    edtArtikelbeschreibung.Height := 200;\r\n    edtArtikelbeschreibung.BorderStyle := bsNone;\r\n    edtArtikelbeschreibung.ElementClassName := 'form-control form-control-sm';\r\n    edtArtikelbeschreibung.ElementFont := efCSS;\r\n    edtArtikelbeschreibung.ElementPosition := epIgnore;\r\n    edtArtikelbeschreibung.HeightPercent := 100.000000000000000000;\r\n    edtArtikelbeschreibung.Lines.BeginUpdate;\r\n    try\r\n      edtArtikelbeschreibung.Lines.Clear;\r\n      edtArtikelbeschreibung.Lines.Add('edtArtikelbeschreibung');\r\n    finally\r\n      edtArtikelbeschreibung.Lines.EndUpdate;\r\n    end;\r\n    edtArtikelbeschreibung.SelLength := 0;\r\n    edtArtikelbeschreibung.SelStart := 0;\r\n    edtArtikelbeschreibung.WidthStyle := ssPercent;\r\n    edtArtikelbeschreibung.WidthPercent := 95.000000000000000000;\r\n    edtArtikelbeschreibung.DataField := 'Artikelbeschreibung';\r\n    edtArtikelbeschreibung.DataSource := sourcePosition;\r\n    edtMengenart.SetParentComponent(Self);\r\n    edtMengenart.Name := 'edtMengenart';\r\n    edtMengenart.Left := 8;\r\n    edtMengenart.Top := 472;\r\n    edtMengenart.Width := 145;\r\n    edtMengenart.Height := 22;\r\n    edtMengenart.ElementClassName := 'form-control form-control-sm';\r\n    edtMengenart.ElementFont := efCSS;\r\n    edtMengenart.ElementPosition := epIgnore;\r\n    edtMengenart.HeightStyle := ssAuto;\r\n    edtMengenart.HeightPercent := 100.000000000000000000;\r\n    edtMengenart.WidthStyle := ssPercent;\r\n    edtMengenart.WidthPercent := 95.000000000000000000;\r\n    edtMengenart.DataField := 'ArtderMenge';\r\n    edtMengenart.DataSource := sourcePosition;\r\n    edtMengenart.KeyField := 'ArtderMenge';\r\n    edtMengenart.ListField := 'ArtderMenge';\r\n    edtMengenart.ListSource := DM2.sourceMengenarten;\r\n    btnNeuePosition.SetParentComponent(Self);\r\n    btnNeuePosition.Name := 'btnNeuePosition';\r\n    btnNeuePosition.Left := 0;\r\n    btnNeuePosition.Top := 175;\r\n    btnNeuePosition.Width := 96;\r\n    btnNeuePosition.Height := 25;\r\n    btnNeuePosition.Caption := '+ NEU';\r\n    btnNeuePosition.ChildOrder := 4;\r\n    btnNeuePosition.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnNeuePosition.ElementFont := efCSS;\r\n    btnNeuePosition.ElementPosition := epIgnore;\r\n    btnNeuePosition.HeightStyle := ssAuto;\r\n    btnNeuePosition.HeightPercent := 100.000000000000000000;\r\n    btnNeuePosition.Visible := False;\r\n    btnNeuePosition.WidthStyle := ssAuto;\r\n    btnNeuePosition.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnNeuePosition, Self, 'OnClick', 'btnNeuePositionClick');\r\n    xdsPosition.SetParentComponent(Self);\r\n    xdsPosition.Name := 'xdsPosition';\r\n    xdsPosition.AfterApplyUpdates := xdsPositionAfterApplyUpdates;\r\n    xdsPosition.AfterOpen := xdsPositionAfterOpen;\r\n    xdsPosition.BeforePost := xdsPositionBeforePost;\r\n    xdsPosition.AfterPost := xdsPositionAfterPost;\r\n    xdsPosition.AfterDelete := xdsPositionAfterDelete;\r\n    SetEvent(xdsPosition, Self, 'OnNewRecord', 'xdsPositionNewRecord');\r\n    xdsPosition.EntitySetName := 'PositionenAngebote';\r\n    xdsPosition.Connection := DM2.XDataWebConnection1;\r\n    xdsPosition.QueryTop := 1;\r\n    xdsPosition.Left := 92;\r\n    xdsPosition.Top := 101;\r\n    xdsPositionNummerkomplett.SetParentComponent(xdsPosition);\r\n    xdsPositionNummerkomplett.Name := 'xdsPositionNummerkomplett';\r\n    xdsPositionNummerkomplett.FieldName := 'Nummerkomplett';\r\n    xdsPositionArtikelnummer.SetParentComponent(xdsPosition);\r\n    xdsPositionArtikelnummer.Name := 'xdsPositionArtikelnummer';\r\n    xdsPositionArtikelnummer.FieldName := 'Artikelnummer';\r\n    xdsPositionID.SetParentComponent(xdsPosition);\r\n    xdsPositionID.Name := 'xdsPositionID';\r\n    xdsPositionID.FieldName := 'ID';\r\n    xdsPositionPosNr.SetParentComponent(xdsPosition);\r\n    xdsPositionPosNr.Name := 'xdsPositionPosNr';\r\n    xdsPositionPosNr.FieldName := 'PosNr';\r\n    xdsPositionPosNr.Required := True;\r\n    xdsPositionPosUNr.SetParentComponent(xdsPosition);\r\n    xdsPositionPosUNr.Name := 'xdsPositionPosUNr';\r\n    xdsPositionPosUNr.FieldName := 'PosUNr';\r\n    xdsPositionSumme.SetParentComponent(xdsPosition);\r\n    xdsPositionSumme.Name := 'xdsPositionSumme';\r\n    xdsPositionSumme.FieldName := 'Summe';\r\n    xdsPositionArtikelueberschrift.SetParentComponent(xdsPosition);\r\n    xdsPositionArtikelueberschrift.Name := 'xdsPositionArtikelueberschrift';\r\n    xdsPositionArtikelueberschrift.FieldName := 'Artikelueberschrift';\r\n    xdsPositionArtikelueberschrift.Size := 50;\r\n    xdsPositionArtikelbeschreibung.SetParentComponent(xdsPosition);\r\n    xdsPositionArtikelbeschreibung.Name := 'xdsPositionArtikelbeschreibung';\r\n    xdsPositionArtikelbeschreibung.FieldName := 'Artikelbeschreibung';\r\n    xdsPositionArtikelbeschreibung.Size := 255;\r\n    xdsPositionMenge.SetParentComponent(xdsPosition);\r\n    xdsPositionMenge.Name := 'xdsPositionMenge';\r\n    xdsPositionMenge.FieldName := 'Menge';\r\n    xdsPositionArtderMenge.SetParentComponent(xdsPosition);\r\n    xdsPositionArtderMenge.Name := 'xdsPositionArtderMenge';\r\n    xdsPositionArtderMenge.FieldName := 'ArtderMenge';\r\n    xdsPositionArtderMenge.Size := 50;\r\n    xdsPositionVerkaufspreis.SetParentComponent(xdsPosition);\r\n    xdsPositionVerkaufspreis.Name := 'xdsPositionVerkaufspreis';\r\n    xdsPositionVerkaufspreis.FieldName := 'Verkaufspreis';\r\n    xdsPositionEinkaufspreis.SetParentComponent(xdsPosition);\r\n    xdsPositionEinkaufspreis.Name := 'xdsPositionEinkaufspreis';\r\n    xdsPositionEinkaufspreis.FieldName := 'Einkaufspreis';\r\n    xdsPositionSeriennummer.SetParentComponent(xdsPosition);\r\n    xdsPositionSeriennummer.Name := 'xdsPositionSeriennummer';\r\n    xdsPositionSeriennummer.FieldName := 'Seriennummer';\r\n    xdsPositionSeriennummer.Size := 30;\r\n    xdsPositionWarengruppe.SetParentComponent(xdsPosition);\r\n    xdsPositionWarengruppe.Name := 'xdsPositionWarengruppe';\r\n    xdsPositionWarengruppe.FieldName := 'Warengruppe';\r\n    xdsPositionWarengruppe.Size := 50;\r\n    xdsPositionWarenuntergruppe.SetParentComponent(xdsPosition);\r\n    xdsPositionWarenuntergruppe.Name := 'xdsPositionWarenuntergruppe';\r\n    xdsPositionWarenuntergruppe.FieldName := 'Warenuntergruppe';\r\n    xdsPositionWarenuntergruppe.Size := 50;\r\n    xdsPositionArtikelnummerKunde.SetParentComponent(xdsPosition);\r\n    xdsPositionArtikelnummerKunde.Name := 'xdsPositionArtikelnummerKunde';\r\n    xdsPositionArtikelnummerKunde.FieldName := 'ArtikelnummerKunde';\r\n    xdsPositionArtikelnummerKunde.Size := 25;\r\n    xdsPositionLieferant.SetParentComponent(xdsPosition);\r\n    xdsPositionLieferant.Name := 'xdsPositionLieferant';\r\n    xdsPositionLieferant.FieldName := 'Lieferant';\r\n    xdsPositionLieferant.Size := 13;\r\n    xdsPositionGewicht.SetParentComponent(xdsPosition);\r\n    xdsPositionGewicht.Name := 'xdsPositionGewicht';\r\n    xdsPositionGewicht.FieldName := 'Gewicht';\r\n    xdsPositionLaenge.SetParentComponent(xdsPosition);\r\n    xdsPositionLaenge.Name := 'xdsPositionLaenge';\r\n    xdsPositionLaenge.FieldName := 'Laenge';\r\n    xdsPositionBreite.SetParentComponent(xdsPosition);\r\n    xdsPositionBreite.Name := 'xdsPositionBreite';\r\n    xdsPositionBreite.FieldName := 'Breite';\r\n    xdsPositionHoehe.SetParentComponent(xdsPosition);\r\n    xdsPositionHoehe.Name := 'xdsPositionHoehe';\r\n    xdsPositionHoehe.FieldName := 'Hoehe';\r\n    xdsPositionMehrwertsteuersatz.SetParentComponent(xdsPosition);\r\n    xdsPositionMehrwertsteuersatz.Name := 'xdsPositionMehrwertsteuersatz';\r\n    xdsPositionMehrwertsteuersatz.FieldName := 'Mehrwertsteuersatz';\r\n    xdsPositionEndpreis.SetParentComponent(xdsPosition);\r\n    xdsPositionEndpreis.Name := 'xdsPositionEndpreis';\r\n    xdsPositionEndpreis.FieldName := 'Endpreis';\r\n    xdsPositionPosMWST.SetParentComponent(xdsPosition);\r\n    xdsPositionPosMWST.Name := 'xdsPositionPosMWST';\r\n    xdsPositionPosMWST.FieldName := 'PosMWST';\r\n    xdsPositionBruttoEndpreis.SetParentComponent(xdsPosition);\r\n    xdsPositionBruttoEndpreis.Name := 'xdsPositionBruttoEndpreis';\r\n    xdsPositionBruttoEndpreis.FieldName := 'BruttoEndpreis';\r\n    xdsPositionEndpreis_EK.SetParentComponent(xdsPosition);\r\n    xdsPositionEndpreis_EK.Name := 'xdsPositionEndpreis_EK';\r\n    xdsPositionEndpreis_EK.FieldName := 'Endpreis_EK';\r\n    xdsPositionRabattsatz.SetParentComponent(xdsPosition);\r\n    xdsPositionRabattsatz.Name := 'xdsPositionRabattsatz';\r\n    xdsPositionRabattsatz.FieldName := 'Rabattsatz';\r\n    xdsPositionPreisvorRabatt.SetParentComponent(xdsPosition);\r\n    xdsPositionPreisvorRabatt.Name := 'xdsPositionPreisvorRabatt';\r\n    xdsPositionPreisvorRabatt.FieldName := 'PreisvorRabatt';\r\n    xdsPositionPKZ.SetParentComponent(xdsPosition);\r\n    xdsPositionPKZ.Name := 'xdsPositionPKZ';\r\n    xdsPositionPKZ.FieldName := 'PKZ';\r\n    xdsPositionTextfrei10.SetParentComponent(xdsPosition);\r\n    xdsPositionTextfrei10.Name := 'xdsPositionTextfrei10';\r\n    xdsPositionTextfrei10.FieldName := 'Textfrei10';\r\n    xdsPositionTextfrei10.Size := 50;\r\n    xdsPositionTextfrei20.SetParentComponent(xdsPosition);\r\n    xdsPositionTextfrei20.Name := 'xdsPositionTextfrei20';\r\n    xdsPositionTextfrei20.FieldName := 'Textfrei20';\r\n    xdsPositionTextfrei20.Size := 50;\r\n    xdsPositionAlternativ.SetParentComponent(xdsPosition);\r\n    xdsPositionAlternativ.Name := 'xdsPositionAlternativ';\r\n    xdsPositionAlternativ.FieldName := 'Alternativ';\r\n    xdsPositionEinzelpreisBrutto.SetParentComponent(xdsPosition);\r\n    xdsPositionEinzelpreisBrutto.Name := 'xdsPositionEinzelpreisBrutto';\r\n    xdsPositionEinzelpreisBrutto.FieldName := 'EinzelpreisBrutto';\r\n    xdsPositionPosMarge.SetParentComponent(xdsPosition);\r\n    xdsPositionPosMarge.Name := 'xdsPositionPosMarge';\r\n    xdsPositionPosMarge.FieldName := 'PosMarge';\r\n    xdsPositionPosMargeProzent.SetParentComponent(xdsPosition);\r\n    xdsPositionPosMargeProzent.Name := 'xdsPositionPosMargeProzent';\r\n    xdsPositionPosMargeProzent.FieldName := 'PosMargeProzent';\r\n    xdsPositionWarenbestand.SetParentComponent(xdsPosition);\r\n    xdsPositionWarenbestand.Name := 'xdsPositionWarenbestand';\r\n    xdsPositionWarenbestand.FieldName := 'Warenbestand';\r\n    xdsPositionArtikelbeschreibungRTF.SetParentComponent(xdsPosition);\r\n    xdsPositionArtikelbeschreibungRTF.Name := 'xdsPositionArtikelbeschreibungRTF';\r\n    xdsPositionArtikelbeschreibungRTF.FieldName := 'ArtikelbeschreibungRTF';\r\n    xdsPositionArtikelbeschreibungRTF.Size := 255;\r\n    xdsPositionQuellartikel.SetParentComponent(xdsPosition);\r\n    xdsPositionQuellartikel.Name := 'xdsPositionQuellartikel';\r\n    xdsPositionQuellartikel.FieldName := 'Quellartikel';\r\n    xdsPositionQuellartikel.Size := 25;\r\n    xdsPositionArtikelnummerWB.SetParentComponent(xdsPosition);\r\n    xdsPositionArtikelnummerWB.Name := 'xdsPositionArtikelnummerWB';\r\n    xdsPositionArtikelnummerWB.FieldName := 'ArtikelnummerWB';\r\n    xdsPositionArtikelnummerWB.Size := 25;\r\n    xdsPositionPreisanteilNetto.SetParentComponent(xdsPosition);\r\n    xdsPositionPreisanteilNetto.Name := 'xdsPositionPreisanteilNetto';\r\n    xdsPositionPreisanteilNetto.FieldName := 'PreisanteilNetto';\r\n    xdsPositionSetHPos.SetParentComponent(xdsPosition);\r\n    xdsPositionSetHPos.Name := 'xdsPositionSetHPos';\r\n    xdsPositionSetHPos.FieldName := 'SetHPos';\r\n    xdsPositionSetHPos.Size := 38;\r\n    xdsPositionSetUPos.SetParentComponent(xdsPosition);\r\n    xdsPositionSetUPos.Name := 'xdsPositionSetUPos';\r\n    xdsPositionSetUPos.FieldName := 'SetUPos';\r\n    xdsPositionSetUPos.Size := 38;\r\n    xdsPositionProvisionssatz.SetParentComponent(xdsPosition);\r\n    xdsPositionProvisionssatz.Name := 'xdsPositionProvisionssatz';\r\n    xdsPositionProvisionssatz.FieldName := 'Provisionssatz';\r\n    xdsPositionProvisionsbetrag.SetParentComponent(xdsPosition);\r\n    xdsPositionProvisionsbetrag.Name := 'xdsPositionProvisionsbetrag';\r\n    xdsPositionProvisionsbetrag.FieldName := 'Provisionsbetrag';\r\n    xdsPositionReferenzKalkulation.SetParentComponent(xdsPosition);\r\n    xdsPositionReferenzKalkulation.Name := 'xdsPositionReferenzKalkulation';\r\n    xdsPositionReferenzKalkulation.FieldName := 'ReferenzKalkulation';\r\n    xdsPositionReferenzKalkulation.Size := 10;\r\n    xdsPositionArtikelsprache.SetParentComponent(xdsPosition);\r\n    xdsPositionArtikelsprache.Name := 'xdsPositionArtikelsprache';\r\n    xdsPositionArtikelsprache.FieldName := 'Artikelsprache';\r\n    xdsPositionArtikelsprache.Size := 255;\r\n    xdsPositionEKvom.SetParentComponent(xdsPosition);\r\n    xdsPositionEKvom.Name := 'xdsPositionEKvom';\r\n    xdsPositionEKvom.FieldName := 'EKvom';\r\n    xdsPositionMengenberechnungID.SetParentComponent(xdsPosition);\r\n    xdsPositionMengenberechnungID.Name := 'xdsPositionMengenberechnungID';\r\n    xdsPositionMengenberechnungID.FieldName := 'MengenberechnungID';\r\n    xdsPositionMengenberechnungID.Size := 38;\r\n    xdsPositionTaraID.SetParentComponent(xdsPosition);\r\n    xdsPositionTaraID.Name := 'xdsPositionTaraID';\r\n    xdsPositionTaraID.FieldName := 'TaraID';\r\n    xdsPositionTaraID.Size := 38;\r\n    xdsPositionTara.SetParentComponent(xdsPosition);\r\n    xdsPositionTara.Name := 'xdsPositionTara';\r\n    xdsPositionTara.FieldName := 'Tara';\r\n    xdsPositionBruttoGewicht.SetParentComponent(xdsPosition);\r\n    xdsPositionBruttoGewicht.Name := 'xdsPositionBruttoGewicht';\r\n    xdsPositionBruttoGewicht.FieldName := 'BruttoGewicht';\r\n    xdsPositionAussenflaeche.SetParentComponent(xdsPosition);\r\n    xdsPositionAussenflaeche.Name := 'xdsPositionAussenflaeche';\r\n    xdsPositionAussenflaeche.FieldName := 'Aussenflaeche';\r\n    xdsPositionSeitenumbruch.SetParentComponent(xdsPosition);\r\n    xdsPositionSeitenumbruch.Name := 'xdsPositionSeitenumbruch';\r\n    xdsPositionSeitenumbruch.FieldName := 'Seitenumbruch';\r\n    xdsPositionMWStKey.SetParentComponent(xdsPosition);\r\n    xdsPositionMWStKey.Name := 'xdsPositionMWStKey';\r\n    xdsPositionMWStKey.FieldName := 'MWStKey';\r\n    xdsPositionZSnachPos.SetParentComponent(xdsPosition);\r\n    xdsPositionZSnachPos.Name := 'xdsPositionZSnachPos';\r\n    xdsPositionZSnachPos.FieldName := 'ZSnachPos';\r\n    xdsPositionPreisVorRabattWHG.SetParentComponent(xdsPosition);\r\n    xdsPositionPreisVorRabattWHG.Name := 'xdsPositionPreisVorRabattWHG';\r\n    xdsPositionPreisVorRabattWHG.FieldName := 'PreisVorRabattWHG';\r\n    xdsPositionPKey.SetParentComponent(xdsPosition);\r\n    xdsPositionPKey.Name := 'xdsPositionPKey';\r\n    xdsPositionPKey.FieldName := 'PKey';\r\n    xdsPositionLager.SetParentComponent(xdsPosition);\r\n    xdsPositionLager.Name := 'xdsPositionLager';\r\n    xdsPositionLager.FieldName := 'Lager';\r\n    xdsPositionLager.Size := 50;\r\n    xdsPositionlwbID.SetParentComponent(xdsPosition);\r\n    xdsPositionlwbID.Name := 'xdsPositionlwbID';\r\n    xdsPositionlwbID.FieldName := 'lwbID';\r\n    xdsPositionlwbID.Size := 38;\r\n    xdsPositionBelegdatum.SetParentComponent(xdsPosition);\r\n    xdsPositionBelegdatum.Name := 'xdsPositionBelegdatum';\r\n    xdsPositionBelegdatum.FieldName := 'Belegdatum';\r\n    xdsPositionVolumen.SetParentComponent(xdsPosition);\r\n    xdsPositionVolumen.Name := 'xdsPositionVolumen';\r\n    xdsPositionVolumen.FieldName := 'Volumen';\r\n    xdsPositionPosVolumen.SetParentComponent(xdsPosition);\r\n    xdsPositionPosVolumen.Name := 'xdsPositionPosVolumen';\r\n    xdsPositionPosVolumen.FieldName := 'PosVolumen';\r\n    xdsPositionArtikelAttribute.SetParentComponent(xdsPosition);\r\n    xdsPositionArtikelAttribute.Name := 'xdsPositionArtikelAttribute';\r\n    xdsPositionArtikelAttribute.FieldName := 'ArtikelAttribute';\r\n    xdsPositionArtikelAttribute.Size := 255;\r\n    sourcePosition.SetParentComponent(Self);\r\n    sourcePosition.Name := 'sourcePosition';\r\n    sourcePosition.DataSet := xdsPosition;\r\n    SetEvent(sourcePosition, Self, 'OnStateChange', 'sourcePositionStateChange');\r\n    sourcePosition.Left := 29;\r\n    sourcePosition.Top := 101;\r\n    dsArtikel.SetParentComponent(Self);\r\n    dsArtikel.Name := 'dsArtikel';\r\n    dsArtikel.AfterOpen := dsArtikelAfterOpen;\r\n    dsArtikel.EntitySetName := 'Artikel';\r\n    dsArtikel.Connection := DM2.XDataWebConnection1;\r\n    dsArtikel.SubpropsDepth := 1;\r\n    dsArtikel.QueryTop := 1;\r\n    dsArtikel.Left := 156;\r\n    dsArtikel.Top := 104;\r\n    dsArtikelHersteller.SetParentComponent(dsArtikel);\r\n    dsArtikelHersteller.Name := 'dsArtikelHersteller';\r\n    dsArtikelHersteller.FieldName := 'Hersteller';\r\n    dsArtikelHersteller.Required := True;\r\n    dsArtikelArtderMenge.SetParentComponent(dsArtikel);\r\n    dsArtikelArtderMenge.Name := 'dsArtikelArtderMenge';\r\n    dsArtikelArtderMenge.FieldName := 'ArtderMenge';\r\n    dsArtikelArtderMenge.Required := True;\r\n    dsArtikelPfandArt.SetParentComponent(dsArtikel);\r\n    dsArtikelPfandArt.Name := 'dsArtikelPfandArt';\r\n    dsArtikelPfandArt.FieldName := 'PfandArt';\r\n    dsArtikelWarengruppe.SetParentComponent(dsArtikel);\r\n    dsArtikelWarengruppe.Name := 'dsArtikelWarengruppe';\r\n    dsArtikelWarengruppe.FieldName := 'Warengruppe';\r\n    dsArtikelWarenuntergruppe.SetParentComponent(dsArtikel);\r\n    dsArtikelWarenuntergruppe.Name := 'dsArtikelWarenuntergruppe';\r\n    dsArtikelWarenuntergruppe.FieldName := 'Warenuntergruppe';\r\n    dsArtikelArtikelnummer.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelnummer.Name := 'dsArtikelArtikelnummer';\r\n    dsArtikelArtikelnummer.FieldName := 'Artikelnummer';\r\n    dsArtikelArtikelnummer.Required := True;\r\n    dsArtikelArtikelnummer.Size := 25;\r\n    dsArtikelArtikelueberschrift.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelueberschrift.Name := 'dsArtikelArtikelueberschrift';\r\n    dsArtikelArtikelueberschrift.FieldName := 'Artikelueberschrift';\r\n    dsArtikelArtikelueberschrift.Size := 50;\r\n    dsArtikelArtikelbeschreibung.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelbeschreibung.Name := 'dsArtikelArtikelbeschreibung';\r\n    dsArtikelArtikelbeschreibung.FieldName := 'Artikelbeschreibung';\r\n    dsArtikelArtikelbeschreibung.Size := 255;\r\n    dsArtikelVerkaufspreis.SetParentComponent(dsArtikel);\r\n    dsArtikelVerkaufspreis.Name := 'dsArtikelVerkaufspreis';\r\n    dsArtikelVerkaufspreis.FieldName := 'Verkaufspreis';\r\n    dsArtikelMindestbestand.SetParentComponent(dsArtikel);\r\n    dsArtikelMindestbestand.Name := 'dsArtikelMindestbestand';\r\n    dsArtikelMindestbestand.FieldName := 'Mindestbestand';\r\n    dsArtikelPreisliste.SetParentComponent(dsArtikel);\r\n    dsArtikelPreisliste.Name := 'dsArtikelPreisliste';\r\n    dsArtikelPreisliste.FieldName := 'Preisliste';\r\n    dsArtikelPreisliste.Size := 150;\r\n    dsArtikelGewicht.SetParentComponent(dsArtikel);\r\n    dsArtikelGewicht.Name := 'dsArtikelGewicht';\r\n    dsArtikelGewicht.FieldName := 'Gewicht';\r\n    dsArtikelLaenge.SetParentComponent(dsArtikel);\r\n    dsArtikelLaenge.Name := 'dsArtikelLaenge';\r\n    dsArtikelLaenge.FieldName := 'Laenge';\r\n    dsArtikelBreite.SetParentComponent(dsArtikel);\r\n    dsArtikelBreite.Name := 'dsArtikelBreite';\r\n    dsArtikelBreite.FieldName := 'Breite';\r\n    dsArtikelHoehe.SetParentComponent(dsArtikel);\r\n    dsArtikelHoehe.Name := 'dsArtikelHoehe';\r\n    dsArtikelHoehe.FieldName := 'Hoehe';\r\n    dsArtikelArtikelZusatz.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelZusatz.Name := 'dsArtikelArtikelZusatz';\r\n    dsArtikelArtikelZusatz.FieldName := 'ArtikelZusatz';\r\n    dsArtikelArtikelZusatz.Size := 255;\r\n    dsArtikelLagerort.SetParentComponent(dsArtikel);\r\n    dsArtikelLagerort.Name := 'dsArtikelLagerort';\r\n    dsArtikelLagerort.FieldName := 'Lagerort';\r\n    dsArtikelLagerort.Size := 50;\r\n    dsArtikelBuchungskonto.SetParentComponent(dsArtikel);\r\n    dsArtikelBuchungskonto.Name := 'dsArtikelBuchungskonto';\r\n    dsArtikelBuchungskonto.FieldName := 'Buchungskonto';\r\n    dsArtikelEingangMenge.SetParentComponent(dsArtikel);\r\n    dsArtikelEingangMenge.Name := 'dsArtikelEingangMenge';\r\n    dsArtikelEingangMenge.FieldName := 'EingangMenge';\r\n    dsArtikelEingangEndpreis.SetParentComponent(dsArtikel);\r\n    dsArtikelEingangEndpreis.Name := 'dsArtikelEingangEndpreis';\r\n    dsArtikelEingangEndpreis.FieldName := 'EingangEndpreis';\r\n    dsArtikelAusgangMenge.SetParentComponent(dsArtikel);\r\n    dsArtikelAusgangMenge.Name := 'dsArtikelAusgangMenge';\r\n    dsArtikelAusgangMenge.FieldName := 'AusgangMenge';\r\n    dsArtikelAusgangEndpreisEK.SetParentComponent(dsArtikel);\r\n    dsArtikelAusgangEndpreisEK.Name := 'dsArtikelAusgangEndpreisEK';\r\n    dsArtikelAusgangEndpreisEK.FieldName := 'AusgangEndpreisEK';\r\n    dsArtikelAusgangEndpreisVK.SetParentComponent(dsArtikel);\r\n    dsArtikelAusgangEndpreisVK.Name := 'dsArtikelAusgangEndpreisVK';\r\n    dsArtikelAusgangEndpreisVK.FieldName := 'AusgangEndpreisVK';\r\n    dsArtikelBestand.SetParentComponent(dsArtikel);\r\n    dsArtikelBestand.Name := 'dsArtikelBestand';\r\n    dsArtikelBestand.FieldName := 'Bestand';\r\n    dsArtikelBestandswert.SetParentComponent(dsArtikel);\r\n    dsArtikelBestandswert.Name := 'dsArtikelBestandswert';\r\n    dsArtikelBestandswert.FieldName := 'Bestandswert';\r\n    dsArtikelMarge.SetParentComponent(dsArtikel);\r\n    dsArtikelMarge.Name := 'dsArtikelMarge';\r\n    dsArtikelMarge.FieldName := 'Marge';\r\n    dsArtikelMargeProzent.SetParentComponent(dsArtikel);\r\n    dsArtikelMargeProzent.Name := 'dsArtikelMargeProzent';\r\n    dsArtikelMargeProzent.FieldName := 'MargeProzent';\r\n    dsArtikelArtikelnummer2.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelnummer2.Name := 'dsArtikelArtikelnummer2';\r\n    dsArtikelArtikelnummer2.FieldName := 'Artikelnummer2';\r\n    dsArtikelArtikelnummer2.Size := 25;\r\n    dsArtikelArtikelmatchcode.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelmatchcode.Name := 'dsArtikelArtikelmatchcode';\r\n    dsArtikelArtikelmatchcode.FieldName := 'Artikelmatchcode';\r\n    dsArtikelArtikelmatchcode.Size := 30;\r\n    dsArtikelRabattpreis1.SetParentComponent(dsArtikel);\r\n    dsArtikelRabattpreis1.Name := 'dsArtikelRabattpreis1';\r\n    dsArtikelRabattpreis1.FieldName := 'Rabattpreis1';\r\n    dsArtikelRabattpreis2.SetParentComponent(dsArtikel);\r\n    dsArtikelRabattpreis2.Name := 'dsArtikelRabattpreis2';\r\n    dsArtikelRabattpreis2.FieldName := 'Rabattpreis2';\r\n    dsArtikelRabattpreis3.SetParentComponent(dsArtikel);\r\n    dsArtikelRabattpreis3.Name := 'dsArtikelRabattpreis3';\r\n    dsArtikelRabattpreis3.FieldName := 'Rabattpreis3';\r\n    dsArtikelRabattpreis4.SetParentComponent(dsArtikel);\r\n    dsArtikelRabattpreis4.Name := 'dsArtikelRabattpreis4';\r\n    dsArtikelRabattpreis4.FieldName := 'Rabattpreis4';\r\n    dsArtikelRabattpreis5.SetParentComponent(dsArtikel);\r\n    dsArtikelRabattpreis5.Name := 'dsArtikelRabattpreis5';\r\n    dsArtikelRabattpreis5.FieldName := 'Rabattpreis5';\r\n    dsArtikelArtikelnichtmehrgueltig.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelnichtmehrgueltig.Name := 'dsArtikelArtikelnichtmehrgueltig';\r\n    dsArtikelArtikelnichtmehrgueltig.FieldName := 'Artikelnichtmehrgueltig';\r\n    dsArtikelEinkaufspreis.SetParentComponent(dsArtikel);\r\n    dsArtikelEinkaufspreis.Name := 'dsArtikelEinkaufspreis';\r\n    dsArtikelEinkaufspreis.FieldName := 'Einkaufspreis';\r\n    dsArtikelAufschlag.SetParentComponent(dsArtikel);\r\n    dsArtikelAufschlag.Name := 'dsArtikelAufschlag';\r\n    dsArtikelAufschlag.FieldName := 'Aufschlag';\r\n    dsArtikelWarenbestand.SetParentComponent(dsArtikel);\r\n    dsArtikelWarenbestand.Name := 'dsArtikelWarenbestand';\r\n    dsArtikelWarenbestand.FieldName := 'Warenbestand';\r\n    dsArtikelTextfrei10.SetParentComponent(dsArtikel);\r\n    dsArtikelTextfrei10.Name := 'dsArtikelTextfrei10';\r\n    dsArtikelTextfrei10.FieldName := 'Textfrei10';\r\n    dsArtikelTextfrei10.Size := 50;\r\n    dsArtikelTextfrei20.SetParentComponent(dsArtikel);\r\n    dsArtikelTextfrei20.Name := 'dsArtikelTextfrei20';\r\n    dsArtikelTextfrei20.FieldName := 'Textfrei20';\r\n    dsArtikelTextfrei20.Size := 50;\r\n    dsArtikelArtikelbeschreibungRTF.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelbeschreibungRTF.Name := 'dsArtikelArtikelbeschreibungRTF';\r\n    dsArtikelArtikelbeschreibungRTF.FieldName := 'ArtikelbeschreibungRTF';\r\n    dsArtikelArtikelbeschreibungRTF.Size := 255;\r\n    dsArtikelArtikeldatei1.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikeldatei1.Name := 'dsArtikelArtikeldatei1';\r\n    dsArtikelArtikeldatei1.FieldName := 'Artikeldatei1';\r\n    dsArtikelArtikeldatei1.Size := 255;\r\n    dsArtikelArtikeldatei2.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikeldatei2.Name := 'dsArtikelArtikeldatei2';\r\n    dsArtikelArtikeldatei2.FieldName := 'Artikeldatei2';\r\n    dsArtikelArtikeldatei2.Size := 255;\r\n    dsArtikelArtikeldatei3.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikeldatei3.Name := 'dsArtikelArtikeldatei3';\r\n    dsArtikelArtikeldatei3.FieldName := 'Artikeldatei3';\r\n    dsArtikelArtikeldatei3.Size := 255;\r\n    dsArtikelArtikeldatei4.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikeldatei4.Name := 'dsArtikelArtikeldatei4';\r\n    dsArtikelArtikeldatei4.FieldName := 'Artikeldatei4';\r\n    dsArtikelArtikeldatei4.Size := 255;\r\n    dsArtikelArtikeldatei5.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikeldatei5.Name := 'dsArtikelArtikeldatei5';\r\n    dsArtikelArtikeldatei5.FieldName := 'Artikeldatei5';\r\n    dsArtikelArtikeldatei5.Size := 255;\r\n    dsArtikelEinkaufspreisVom.SetParentComponent(dsArtikel);\r\n    dsArtikelEinkaufspreisVom.Name := 'dsArtikelEinkaufspreisVom';\r\n    dsArtikelEinkaufspreisVom.FieldName := 'EinkaufspreisVom';\r\n    dsArtikelEAN.SetParentComponent(dsArtikel);\r\n    dsArtikelEAN.Name := 'dsArtikelEAN';\r\n    dsArtikelEAN.FieldName := 'EAN';\r\n    dsArtikelEAN.Size := 15;\r\n    dsArtikelVGPFaktor.SetParentComponent(dsArtikel);\r\n    dsArtikelVGPFaktor.Name := 'dsArtikelVGPFaktor';\r\n    dsArtikelVGPFaktor.FieldName := 'VGPFaktor';\r\n    dsArtikelVGPMengenart.SetParentComponent(dsArtikel);\r\n    dsArtikelVGPMengenart.Name := 'dsArtikelVGPMengenart';\r\n    dsArtikelVGPMengenart.FieldName := 'VGPMengenart';\r\n    dsArtikelVGPMengenart.Size := 50;\r\n    dsArtikelVerleihpreis.SetParentComponent(dsArtikel);\r\n    dsArtikelVerleihpreis.Name := 'dsArtikelVerleihpreis';\r\n    dsArtikelVerleihpreis.FieldName := 'Verleihpreis';\r\n    dsArtikelZusatzPreis.SetParentComponent(dsArtikel);\r\n    dsArtikelZusatzPreis.Name := 'dsArtikelZusatzPreis';\r\n    dsArtikelZusatzPreis.FieldName := 'ZusatzPreis';\r\n    dsArtikelVerpackungsart.SetParentComponent(dsArtikel);\r\n    dsArtikelVerpackungsart.Name := 'dsArtikelVerpackungsart';\r\n    dsArtikelVerpackungsart.FieldName := 'Verpackungsart';\r\n    dsArtikelVerpackungsart.Size := 50;\r\n    dsArtikelVerpackungsMenge.SetParentComponent(dsArtikel);\r\n    dsArtikelVerpackungsMenge.Name := 'dsArtikelVerpackungsMenge';\r\n    dsArtikelVerpackungsMenge.FieldName := 'VerpackungsMenge';\r\n    dsArtikelQuellartikel.SetParentComponent(dsArtikel);\r\n    dsArtikelQuellartikel.Name := 'dsArtikelQuellartikel';\r\n    dsArtikelQuellartikel.FieldName := 'Quellartikel';\r\n    dsArtikelQuellartikel.Size := 25;\r\n    dsArtikelrabattierfaehig.SetParentComponent(dsArtikel);\r\n    dsArtikelrabattierfaehig.Name := 'dsArtikelrabattierfaehig';\r\n    dsArtikelrabattierfaehig.FieldName := 'rabattierfaehig';\r\n    dsArtikelAngebotAlternativeAN.SetParentComponent(dsArtikel);\r\n    dsArtikelAngebotAlternativeAN.Name := 'dsArtikelAngebotAlternativeAN';\r\n    dsArtikelAngebotAlternativeAN.FieldName := 'AngebotAlternativeAN';\r\n    dsArtikelAngebotAlternativeAN.Size := 25;\r\n    dsArtikelPreisanteilNetto.SetParentComponent(dsArtikel);\r\n    dsArtikelPreisanteilNetto.Name := 'dsArtikelPreisanteilNetto';\r\n    dsArtikelPreisanteilNetto.FieldName := 'PreisanteilNetto';\r\n    dsArtikelFarbe.SetParentComponent(dsArtikel);\r\n    dsArtikelFarbe.Name := 'dsArtikelFarbe';\r\n    dsArtikelFarbe.FieldName := 'Farbe';\r\n    dsArtikelAEinkauf.SetParentComponent(dsArtikel);\r\n    dsArtikelAEinkauf.Name := 'dsArtikelAEinkauf';\r\n    dsArtikelAEinkauf.FieldName := 'AEinkauf';\r\n    dsArtikelAVerkauf.SetParentComponent(dsArtikel);\r\n    dsArtikelAVerkauf.Name := 'dsArtikelAVerkauf';\r\n    dsArtikelAVerkauf.FieldName := 'AVerkauf';\r\n    dsArtikelArtikelnummerLieferant.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelnummerLieferant.Name := 'dsArtikelArtikelnummerLieferant';\r\n    dsArtikelArtikelnummerLieferant.FieldName := 'ArtikelnummerLieferant';\r\n    dsArtikelLieferantnummer.SetParentComponent(dsArtikel);\r\n    dsArtikelLieferantnummer.Name := 'dsArtikelLieferantnummer';\r\n    dsArtikelLieferantnummer.FieldName := 'Lieferantnummer';\r\n    dsArtikelLieferantnummer.Size := 13;\r\n    dsArtikelVerkaufspreisBrutto.SetParentComponent(dsArtikel);\r\n    dsArtikelVerkaufspreisBrutto.Name := 'dsArtikelVerkaufspreisBrutto';\r\n    dsArtikelVerkaufspreisBrutto.FieldName := 'VerkaufspreisBrutto';\r\n    dsArtikelArtikelSet.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelSet.Name := 'dsArtikelArtikelSet';\r\n    dsArtikelArtikelSet.FieldName := 'ArtikelSet';\r\n    dsArtikelProvisionssatz.SetParentComponent(dsArtikel);\r\n    dsArtikelProvisionssatz.Name := 'dsArtikelProvisionssatz';\r\n    dsArtikelProvisionssatz.FieldName := 'Provisionssatz';\r\n    dsArtikelWarentarifnummer.SetParentComponent(dsArtikel);\r\n    dsArtikelWarentarifnummer.Name := 'dsArtikelWarentarifnummer';\r\n    dsArtikelWarentarifnummer.FieldName := 'Warentarifnummer';\r\n    dsArtikelHandelsartikel.SetParentComponent(dsArtikel);\r\n    dsArtikelHandelsartikel.Name := 'dsArtikelHandelsartikel';\r\n    dsArtikelHandelsartikel.FieldName := 'Handelsartikel';\r\n    dsArtikelUrsprungsland.SetParentComponent(dsArtikel);\r\n    dsArtikelUrsprungsland.Name := 'dsArtikelUrsprungsland';\r\n    dsArtikelUrsprungsland.FieldName := 'Ursprungsland';\r\n    dsArtikelUrsprungsland.Size := 5;\r\n    dsArtikelKategorie.SetParentComponent(dsArtikel);\r\n    dsArtikelKategorie.Name := 'dsArtikelKategorie';\r\n    dsArtikelKategorie.FieldName := 'Kategorie';\r\n    dsArtikelKategorie.Size := 25;\r\n    dsArtikelStandardRabattsatzEK.SetParentComponent(dsArtikel);\r\n    dsArtikelStandardRabattsatzEK.Name := 'dsArtikelStandardRabattsatzEK';\r\n    dsArtikelStandardRabattsatzEK.FieldName := 'StandardRabattsatzEK';\r\n    dsArtikelStandardRabattsatzVK.SetParentComponent(dsArtikel);\r\n    dsArtikelStandardRabattsatzVK.Name := 'dsArtikelStandardRabattsatzVK';\r\n    dsArtikelStandardRabattsatzVK.FieldName := 'StandardRabattsatzVK';\r\n    dsArtikelRabattpreiseManuell.SetParentComponent(dsArtikel);\r\n    dsArtikelRabattpreiseManuell.Name := 'dsArtikelRabattpreiseManuell';\r\n    dsArtikelRabattpreiseManuell.FieldName := 'RabattpreiseManuell';\r\n    dsArtikelMengeBestellt.SetParentComponent(dsArtikel);\r\n    dsArtikelMengeBestellt.Name := 'dsArtikelMengeBestellt';\r\n    dsArtikelMengeBestellt.FieldName := 'MengeBestellt';\r\n    dsArtikelMengeBeauftragt.SetParentComponent(dsArtikel);\r\n    dsArtikelMengeBeauftragt.Name := 'dsArtikelMengeBeauftragt';\r\n    dsArtikelMengeBeauftragt.FieldName := 'MengeBeauftragt';\r\n    dsArtikelBestandDisponiert.SetParentComponent(dsArtikel);\r\n    dsArtikelBestandDisponiert.Name := 'dsArtikelBestandDisponiert';\r\n    dsArtikelBestandDisponiert.FieldName := 'BestandDisponiert';\r\n    dsArtikelMengeAngeboten.SetParentComponent(dsArtikel);\r\n    dsArtikelMengeAngeboten.Name := 'dsArtikelMengeAngeboten';\r\n    dsArtikelMengeAngeboten.FieldName := 'MengeAngeboten';\r\n    dsArtikelBestandDispInclAngebot.SetParentComponent(dsArtikel);\r\n    dsArtikelBestandDispInclAngebot.Name := 'dsArtikelBestandDispInclAngebot';\r\n    dsArtikelBestandDispInclAngebot.FieldName := 'BestandDispInclAngebot';\r\n    dsArtikelMWStKey.SetParentComponent(dsArtikel);\r\n    dsArtikelMWStKey.Name := 'dsArtikelMWStKey';\r\n    dsArtikelMWStKey.FieldName := 'MWStKey';\r\n    dsArtikelShopAmazon.SetParentComponent(dsArtikel);\r\n    dsArtikelShopAmazon.Name := 'dsArtikelShopAmazon';\r\n    dsArtikelShopAmazon.FieldName := 'ShopAmazon';\r\n    dsArtikelShopQuelle.SetParentComponent(dsArtikel);\r\n    dsArtikelShopQuelle.Name := 'dsArtikelShopQuelle';\r\n    dsArtikelShopQuelle.FieldName := 'ShopQuelle';\r\n    dsArtikelGeraet.SetParentComponent(dsArtikel);\r\n    dsArtikelGeraet.Name := 'dsArtikelGeraet';\r\n    dsArtikelGeraet.FieldName := 'Geraet';\r\n    dsArtikelArtgewicht.SetParentComponent(dsArtikel);\r\n    dsArtikelArtgewicht.Name := 'dsArtikelArtgewicht';\r\n    dsArtikelArtgewicht.FieldName := 'Artgewicht';\r\n    dsArtikelVolumen.SetParentComponent(dsArtikel);\r\n    dsArtikelVolumen.Name := 'dsArtikelVolumen';\r\n    dsArtikelVolumen.FieldName := 'Volumen';\r\n    dsArtikelPacklisteNichtAnzeigen.SetParentComponent(dsArtikel);\r\n    dsArtikelPacklisteNichtAnzeigen.Name := 'dsArtikelPacklisteNichtAnzeigen';\r\n    dsArtikelPacklisteNichtAnzeigen.FieldName := 'PacklisteNichtAnzeigen';\r\n    dsArtikelKeineAufschlagskalkulation.SetParentComponent(dsArtikel);\r\n    dsArtikelKeineAufschlagskalkulation.Name := 'dsArtikelKeineAufschlagskalkulation';\r\n    dsArtikelKeineAufschlagskalkulation.FieldName := 'KeineAufschlagskalkulation';\r\n    dsArtikelKorrekturMenge.SetParentComponent(dsArtikel);\r\n    dsArtikelKorrekturMenge.Name := 'dsArtikelKorrekturMenge';\r\n    dsArtikelKorrekturMenge.FieldName := 'KorrekturMenge';\r\n    dsArtikelKorrekturWert.SetParentComponent(dsArtikel);\r\n    dsArtikelKorrekturWert.Name := 'dsArtikelKorrekturWert';\r\n    dsArtikelKorrekturWert.FieldName := 'KorrekturWert';\r\n    dsArtikelNachfolgeartikel.SetParentComponent(dsArtikel);\r\n    dsArtikelNachfolgeartikel.Name := 'dsArtikelNachfolgeartikel';\r\n    dsArtikelNachfolgeartikel.FieldName := 'Nachfolgeartikel';\r\n    dsArtikelNachfolgeartikel.Size := 25;\r\n    dsArtikelMindestbestellmenge.SetParentComponent(dsArtikel);\r\n    dsArtikelMindestbestellmenge.Name := 'dsArtikelMindestbestellmenge';\r\n    dsArtikelMindestbestellmenge.FieldName := 'Mindestbestellmenge';\r\n    dsArtikelSchnittEK.SetParentComponent(dsArtikel);\r\n    dsArtikelSchnittEK.Name := 'dsArtikelSchnittEK';\r\n    dsArtikelSchnittEK.FieldName := 'SchnittEK';\r\n    dsArtikelVerkaufspreisVom.SetParentComponent(dsArtikel);\r\n    dsArtikelVerkaufspreisVom.Name := 'dsArtikelVerkaufspreisVom';\r\n    dsArtikelVerkaufspreisVom.FieldName := 'VerkaufspreisVom';\r\n    dsArtikelPruefungChargeSNR.SetParentComponent(dsArtikel);\r\n    dsArtikelPruefungChargeSNR.Name := 'dsArtikelPruefungChargeSNR';\r\n    dsArtikelPruefungChargeSNR.FieldName := 'PruefungChargeSNR';\r\n    dsArtikelArtikelbeschreibungHTML.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelbeschreibungHTML.Name := 'dsArtikelArtikelbeschreibungHTML';\r\n    dsArtikelArtikelbeschreibungHTML.FieldName := 'ArtikelbeschreibungHTML';\r\n    dsArtikelArtikelbeschreibungHTML.Size := 255;\r\n    dsArtikelProduktKurzbeschreibungHTML.SetParentComponent(dsArtikel);\r\n    dsArtikelProduktKurzbeschreibungHTML.Name := 'dsArtikelProduktKurzbeschreibungHTML';\r\n    dsArtikelProduktKurzbeschreibungHTML.FieldName := 'ProduktKurzbeschreibungHTML';\r\n    dsArtikelProduktKurzbeschreibungHTML.Size := 255;\r\n    dsArtikelStatusFuerShop.SetParentComponent(dsArtikel);\r\n    dsArtikelStatusFuerShop.Name := 'dsArtikelStatusFuerShop';\r\n    dsArtikelStatusFuerShop.FieldName := 'StatusFuerShop';\r\n    dsArtikelStatusFuerShop.Size := 25;\r\n    dsArtikelAmpelFuerShop.SetParentComponent(dsArtikel);\r\n    dsArtikelAmpelFuerShop.Name := 'dsArtikelAmpelFuerShop';\r\n    dsArtikelAmpelFuerShop.FieldName := 'AmpelFuerShop';\r\n    dsArtikelAmpelFuerShop.Size := 25;\r\n    dsArtikelEXP_Anzahl.SetParentComponent(dsArtikel);\r\n    dsArtikelEXP_Anzahl.Name := 'dsArtikelEXP_Anzahl';\r\n    dsArtikelEXP_Anzahl.FieldName := 'EXP_Anzahl';\r\n    dsArtikelEXP_Inhalt.SetParentComponent(dsArtikel);\r\n    dsArtikelEXP_Inhalt.Name := 'dsArtikelEXP_Inhalt';\r\n    dsArtikelEXP_Inhalt.FieldName := 'EXP_Inhalt';\r\n    dsArtikelEXP_Faktor.SetParentComponent(dsArtikel);\r\n    dsArtikelEXP_Faktor.Name := 'dsArtikelEXP_Faktor';\r\n    dsArtikelEXP_Faktor.FieldName := 'EXP_Faktor';\r\n    dsArtikelFach.SetParentComponent(dsArtikel);\r\n    dsArtikelFach.Name := 'dsArtikelFach';\r\n    dsArtikelFach.FieldName := 'Fach';\r\n    dsArtikelExportKasse.SetParentComponent(dsArtikel);\r\n    dsArtikelExportKasse.Name := 'dsArtikelExportKasse';\r\n    dsArtikelExportKasse.FieldName := 'ExportKasse';\r\n    dsArtikelWKNR.SetParentComponent(dsArtikel);\r\n    dsArtikelWKNR.Name := 'dsArtikelWKNR';\r\n    dsArtikelWKNR.FieldName := 'WKNR';\r\n    dsArtikelArtikelAttribute.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelAttribute.Name := 'dsArtikelArtikelAttribute';\r\n    dsArtikelArtikelAttribute.FieldName := 'ArtikelAttribute';\r\n    dsArtikelArtikelAttribute.Size := 255;\r\n    dsArtikelErstelltAm.SetParentComponent(dsArtikel);\r\n    dsArtikelErstelltAm.Name := 'dsArtikelErstelltAm';\r\n    dsArtikelErstelltAm.FieldName := 'ErstelltAm';\r\n    dsArtikelVarianteVonAN.SetParentComponent(dsArtikel);\r\n    dsArtikelVarianteVonAN.Name := 'dsArtikelVarianteVonAN';\r\n    dsArtikelVarianteVonAN.FieldName := 'VarianteVonAN';\r\n    dsArtikelVarianteVonAN.Size := 25;\r\n    dsArtikelGurtmassWerte.SetParentComponent(dsArtikel);\r\n    dsArtikelGurtmassWerte.Name := 'dsArtikelGurtmassWerte';\r\n    dsArtikelGurtmassWerte.FieldName := 'GurtmassWerte';\r\n    dsArtikelGurtmassWerte.Size := 250;\r\n    dsArtikelGurtmass.SetParentComponent(dsArtikel);\r\n    dsArtikelGurtmass.Name := 'dsArtikelGurtmass';\r\n    dsArtikelGurtmass.FieldName := 'Gurtmass';\r\n    dsArtikelAltersgrenze.SetParentComponent(dsArtikel);\r\n    dsArtikelAltersgrenze.Name := 'dsArtikelAltersgrenze';\r\n    dsArtikelAltersgrenze.FieldName := 'Altersgrenze';\r\n    dsArtikelMWStKeyImHaus.SetParentComponent(dsArtikel);\r\n    dsArtikelMWStKeyImHaus.Name := 'dsArtikelMWStKeyImHaus';\r\n    dsArtikelMWStKeyImHaus.FieldName := 'MWStKeyImHaus';\r\n    dsArtikelKasseBewegung.SetParentComponent(dsArtikel);\r\n    dsArtikelKasseBewegung.Name := 'dsArtikelKasseBewegung';\r\n    dsArtikelKasseBewegung.FieldName := 'KasseBewegung';\r\n    dsArtikelKasseBewegungEK.SetParentComponent(dsArtikel);\r\n    dsArtikelKasseBewegungEK.Name := 'dsArtikelKasseBewegungEK';\r\n    dsArtikelKasseBewegungEK.FieldName := 'KasseBewegungEK';\r\n    dsArtikelKasseBewegungVK.SetParentComponent(dsArtikel);\r\n    dsArtikelKasseBewegungVK.Name := 'dsArtikelKasseBewegungVK';\r\n    dsArtikelKasseBewegungVK.FieldName := 'KasseBewegungVK';\r\n    dsArtikelProduktionBewegung.SetParentComponent(dsArtikel);\r\n    dsArtikelProduktionBewegung.Name := 'dsArtikelProduktionBewegung';\r\n    dsArtikelProduktionBewegung.FieldName := 'ProduktionBewegung';\r\n    dsArtikelProduktionBewegungEK.SetParentComponent(dsArtikel);\r\n    dsArtikelProduktionBewegungEK.Name := 'dsArtikelProduktionBewegungEK';\r\n    dsArtikelProduktionBewegungEK.FieldName := 'ProduktionBewegungEK';\r\n    dsArtikelProduktionBewegungVK.SetParentComponent(dsArtikel);\r\n    dsArtikelProduktionBewegungVK.Name := 'dsArtikelProduktionBewegungVK';\r\n    dsArtikelProduktionBewegungVK.FieldName := 'ProduktionBewegungVK';\r\n    dsArtikelWaWiAB.SetParentComponent(dsArtikel);\r\n    dsArtikelWaWiAB.Name := 'dsArtikelWaWiAB';\r\n    dsArtikelWaWiAB.FieldName := 'WaWiAB';\r\n    dsArtikelGeaendertAm.SetParentComponent(dsArtikel);\r\n    dsArtikelGeaendertAm.Name := 'dsArtikelGeaendertAm';\r\n    dsArtikelGeaendertAm.FieldName := 'GeaendertAm';\r\n    dsArtikelGefahrgutKennzeichen.SetParentComponent(dsArtikel);\r\n    dsArtikelGefahrgutKennzeichen.Name := 'dsArtikelGefahrgutKennzeichen';\r\n    dsArtikelGefahrgutKennzeichen.FieldName := 'GefahrgutKennzeichen';\r\n    dsArtikelGefahrgutKennzeichen.Size := 50;\r\n    dsArtikelVerpackG.SetParentComponent(dsArtikel);\r\n    dsArtikelVerpackG.Name := 'dsArtikelVerpackG';\r\n    dsArtikelVerpackG.FieldName := 'VerpackG';\r\n    dsArtikelUPE.SetParentComponent(dsArtikel);\r\n    dsArtikelUPE.Name := 'dsArtikelUPE';\r\n    dsArtikelUPE.FieldName := 'UPE';\r\n    dsArtikelArtikelbeschreibungEinkauf.SetParentComponent(dsArtikel);\r\n    dsArtikelArtikelbeschreibungEinkauf.Name := 'dsArtikelArtikelbeschreibungEinkauf';\r\n    dsArtikelArtikelbeschreibungEinkauf.FieldName := 'ArtikelbeschreibungEinkauf';\r\n    dsArtikelArtikelbeschreibungEinkauf.Size := 255;\r\n    dsArtikelHerstellerArtikelnummer.SetParentComponent(dsArtikel);\r\n    dsArtikelHerstellerArtikelnummer.Name := 'dsArtikelHerstellerArtikelnummer';\r\n    dsArtikelHerstellerArtikelnummer.FieldName := 'HerstellerArtikelnummer';\r\n    dsArtikelHerstellerArtikelnummer.Size := 25;\r\n    dsArtikelNatura.SetParentComponent(dsArtikel);\r\n    dsArtikelNatura.Name := 'dsArtikelNatura';\r\n    dsArtikelNatura.FieldName := 'Natura';\r\n    dsArtikelNatura.Size := 2;\r\n    dsArtikelArbeitszeit.SetParentComponent(dsArtikel);\r\n    dsArtikelArbeitszeit.Name := 'dsArtikelArbeitszeit';\r\n    dsArtikelArbeitszeit.FieldName := 'Arbeitszeit';\r\n    dsArtikelArtderMengeArtderMenge.SetParentComponent(dsArtikel);\r\n    dsArtikelArtderMengeArtderMenge.Name := 'dsArtikelArtderMengeArtderMenge';\r\n    dsArtikelArtderMengeArtderMenge.FieldName := 'ArtderMenge.ArtderMenge';\r\n    dsArtikelArtderMengeArtderMenge.Size := 50;\r\n    xdsKundenpreise.SetParentComponent(Self);\r\n    xdsKundenpreise.Name := 'xdsKundenpreise';\r\n    xdsKundenpreise.AfterOpen := xdsKundenpreiseAfterOpen;\r\n    xdsKundenpreise.EntitySetName := 'ArtikelKundenpreise';\r\n    xdsKundenpreise.Connection := DM2.XDataWebConnection1;\r\n    xdsKundenpreise.SubpropsDepth := 1;\r\n    xdsKundenpreise.QueryString := '$expand=Artikelnummer';\r\n    xdsKundenpreise.Left := 151;\r\n    xdsKundenpreise.Top := 174;\r\n    xdsKundenpreiseArtikelnummer.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseArtikelnummer.Name := 'xdsKundenpreiseArtikelnummer';\r\n    xdsKundenpreiseArtikelnummer.FieldName := 'Artikelnummer';\r\n    xdsKundenpreiseArtikelnummer.Required := True;\r\n    xdsKundenpreiseKundennummer.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseKundennummer.Name := 'xdsKundenpreiseKundennummer';\r\n    xdsKundenpreiseKundennummer.FieldName := 'Kundennummer';\r\n    xdsKundenpreiseKundennummer.Required := True;\r\n    xdsKundenpreiseVerkaufspreis.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseVerkaufspreis.Name := 'xdsKundenpreiseVerkaufspreis';\r\n    xdsKundenpreiseVerkaufspreis.FieldName := 'Verkaufspreis';\r\n    xdsKundenpreiseNachname.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseNachname.Name := 'xdsKundenpreiseNachname';\r\n    xdsKundenpreiseNachname.FieldName := 'Nachname';\r\n    xdsKundenpreiseNachname.Size := 40;\r\n    xdsKundenpreiseRabattsatz.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseRabattsatz.Name := 'xdsKundenpreiseRabattsatz';\r\n    xdsKundenpreiseRabattsatz.FieldName := 'Rabattsatz';\r\n    xdsKundenpreiseVerleihpreis.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseVerleihpreis.Name := 'xdsKundenpreiseVerleihpreis';\r\n    xdsKundenpreiseVerleihpreis.FieldName := 'Verleihpreis';\r\n    xdsKundenpreiseZusatzPreis.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseZusatzPreis.Name := 'xdsKundenpreiseZusatzPreis';\r\n    xdsKundenpreiseZusatzPreis.FieldName := 'ZusatzPreis';\r\n    xdsKundenpreiseArtikelnummerKunde.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseArtikelnummerKunde.Name := 'xdsKundenpreiseArtikelnummerKunde';\r\n    xdsKundenpreiseArtikelnummerKunde.FieldName := 'ArtikelnummerKunde';\r\n    xdsKundenpreiseArtikelnummerKunde.Size := 25;\r\n    xdsKundenpreiseDatumGeaendert.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseDatumGeaendert.Name := 'xdsKundenpreiseDatumGeaendert';\r\n    xdsKundenpreiseDatumGeaendert.FieldName := 'DatumGeaendert';\r\n    xdsKundenpreiseArtikelueberschrift.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseArtikelueberschrift.Name := 'xdsKundenpreiseArtikelueberschrift';\r\n    xdsKundenpreiseArtikelueberschrift.FieldName := 'Artikelueberschrift';\r\n    xdsKundenpreiseArtikelueberschrift.Size := 50;\r\n    xdsKundenpreiseArtikelnummerArtikelnummer.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseArtikelnummerArtikelnummer.Name := 'xdsKundenpreiseArtikelnummerArtikelnummer';\r\n    xdsKundenpreiseArtikelnummerArtikelnummer.FieldName := 'Artikelnummer.Artikelnummer';\r\n    xdsKundenpreiseArtikelnummerArtikelnummer.Size := 25;\r\n    xdsKundenpreiseArtikelnummerArtikelueberschrift.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseArtikelnummerArtikelueberschrift.Name := 'xdsKundenpreiseArtikelnummerArtikelueberschrift';\r\n    xdsKundenpreiseArtikelnummerArtikelueberschrift.FieldName := 'Artikelnummer.Artikelueberschrift';\r\n    xdsKundenpreiseArtikelnummerArtikelueberschrift.Size := 50;\r\n    xdsKundenpreiseArtikelnummerArtikelbeschreibung.SetParentComponent(xdsKundenpreise);\r\n    xdsKundenpreiseArtikelnummerArtikelbeschreibung.Name := 'xdsKundenpreiseArtikelnummerArtikelbeschreibung';\r\n    xdsKundenpreiseArtikelnummerArtikelbeschreibung.FieldName := 'Artikelnummer.Artikelbeschreibung';\r\n    xdsKundenpreiseArtikelnummerArtikelbeschreibung.Size := 255;\r\n    dsBeleg2.SetParentComponent(Self);\r\n    dsBeleg2.Name := 'dsBeleg2';\r\n    dsBeleg2.AfterOpen := dsBeleg2AfterOpen;\r\n    dsBeleg2.EntitySetName := 'Angebote';\r\n    dsBeleg2.Connection := DM2.XDataWebConnection1;\r\n    dsBeleg2.SubpropsDepth := 1;\r\n    dsBeleg2.QueryString := '$expand=Kundennummer';\r\n    dsBeleg2.Left := 152;\r\n    dsBeleg2.Top := 240;\r\n    dsBeleg2Kundennummer.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Kundennummer.Name := 'dsBeleg2Kundennummer';\r\n    dsBeleg2Kundennummer.FieldName := 'Kundennummer';\r\n    dsBeleg2Kundennummer.Required := True;\r\n    dsBeleg2Nummerkomplett.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Nummerkomplett.Name := 'dsBeleg2Nummerkomplett';\r\n    dsBeleg2Nummerkomplett.FieldName := 'Nummerkomplett';\r\n    dsBeleg2Nummerkomplett.Required := True;\r\n    dsBeleg2Nummerkomplett.Size := 10;\r\n    dsBeleg2ReferenzAngebot.SetParentComponent(dsBeleg2);\r\n    dsBeleg2ReferenzAngebot.Name := 'dsBeleg2ReferenzAngebot';\r\n    dsBeleg2ReferenzAngebot.FieldName := 'ReferenzAngebot';\r\n    dsBeleg2ReferenzAngebot.Size := 10;\r\n    dsBeleg2ReferenzLieferschein.SetParentComponent(dsBeleg2);\r\n    dsBeleg2ReferenzLieferschein.Name := 'dsBeleg2ReferenzLieferschein';\r\n    dsBeleg2ReferenzLieferschein.FieldName := 'ReferenzLieferschein';\r\n    dsBeleg2ReferenzLieferschein.Size := 10;\r\n    dsBeleg2ReferenzRechnung.SetParentComponent(dsBeleg2);\r\n    dsBeleg2ReferenzRechnung.Name := 'dsBeleg2ReferenzRechnung';\r\n    dsBeleg2ReferenzRechnung.FieldName := 'ReferenzRechnung';\r\n    dsBeleg2ReferenzRechnung.Size := 10;\r\n    dsBeleg2Datum.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Datum.Name := 'dsBeleg2Datum';\r\n    dsBeleg2Datum.FieldName := 'Datum';\r\n    dsBeleg2Datum.Required := True;\r\n    dsBeleg2Jahr.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Jahr.Name := 'dsBeleg2Jahr';\r\n    dsBeleg2Jahr.FieldName := 'Jahr';\r\n    dsBeleg2Kalenderwoche.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Kalenderwoche.Name := 'dsBeleg2Kalenderwoche';\r\n    dsBeleg2Kalenderwoche.FieldName := 'Kalenderwoche';\r\n    dsBeleg2Nachname.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Nachname.Name := 'dsBeleg2Nachname';\r\n    dsBeleg2Nachname.FieldName := 'Nachname';\r\n    dsBeleg2Nachname.Size := 50;\r\n    dsBeleg2Vorname.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Vorname.Name := 'dsBeleg2Vorname';\r\n    dsBeleg2Vorname.FieldName := 'Vorname';\r\n    dsBeleg2Vorname.Size := 50;\r\n    dsBeleg2Postleitzahl.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Postleitzahl.Name := 'dsBeleg2Postleitzahl';\r\n    dsBeleg2Postleitzahl.FieldName := 'Postleitzahl';\r\n    dsBeleg2Postleitzahl.Size := 10;\r\n    dsBeleg2Ort.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Ort.Name := 'dsBeleg2Ort';\r\n    dsBeleg2Ort.FieldName := 'Ort';\r\n    dsBeleg2Ort.Size := 50;\r\n    dsBeleg2Laenderkuerzel.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Laenderkuerzel.Name := 'dsBeleg2Laenderkuerzel';\r\n    dsBeleg2Laenderkuerzel.FieldName := 'Laenderkuerzel';\r\n    dsBeleg2Laenderkuerzel.Size := 5;\r\n    dsBeleg2Land.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Land.Name := 'dsBeleg2Land';\r\n    dsBeleg2Land.FieldName := 'Land';\r\n    dsBeleg2Land.Size := 50;\r\n    dsBeleg2Briefanrede1.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Briefanrede1.Name := 'dsBeleg2Briefanrede1';\r\n    dsBeleg2Briefanrede1.FieldName := 'Briefanrede1';\r\n    dsBeleg2Briefanrede1.Size := 255;\r\n    dsBeleg2Briefanrede2.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Briefanrede2.Name := 'dsBeleg2Briefanrede2';\r\n    dsBeleg2Briefanrede2.FieldName := 'Briefanrede2';\r\n    dsBeleg2Briefanrede2.Size := 40;\r\n    dsBeleg2EMail.SetParentComponent(dsBeleg2);\r\n    dsBeleg2EMail.Name := 'dsBeleg2EMail';\r\n    dsBeleg2EMail.FieldName := 'EMail';\r\n    dsBeleg2EMail.Size := 50;\r\n    dsBeleg2AdresseBild.SetParentComponent(dsBeleg2);\r\n    dsBeleg2AdresseBild.Name := 'dsBeleg2AdresseBild';\r\n    dsBeleg2AdresseBild.FieldName := 'AdresseBild';\r\n    dsBeleg2AdresseBild.Size := 255;\r\n    dsBeleg2LieferanschriftBild.SetParentComponent(dsBeleg2);\r\n    dsBeleg2LieferanschriftBild.Name := 'dsBeleg2LieferanschriftBild';\r\n    dsBeleg2LieferanschriftBild.FieldName := 'LieferanschriftBild';\r\n    dsBeleg2LieferanschriftBild.Size := 255;\r\n    dsBeleg2Zahlungsbedingung.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Zahlungsbedingung.Name := 'dsBeleg2Zahlungsbedingung';\r\n    dsBeleg2Zahlungsbedingung.FieldName := 'Zahlungsbedingung';\r\n    dsBeleg2ZahlungsbedingungText.SetParentComponent(dsBeleg2);\r\n    dsBeleg2ZahlungsbedingungText.Name := 'dsBeleg2ZahlungsbedingungText';\r\n    dsBeleg2ZahlungsbedingungText.FieldName := 'ZahlungsbedingungText';\r\n    dsBeleg2ZahlungsbedingungText.Size := 250;\r\n    dsBeleg2Auftragsbezeichnung.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Auftragsbezeichnung.Name := 'dsBeleg2Auftragsbezeichnung';\r\n    dsBeleg2Auftragsbezeichnung.FieldName := 'Auftragsbezeichnung';\r\n    dsBeleg2Auftragsbezeichnung.Size := 255;\r\n    dsBeleg2AuftragnummerKunde.SetParentComponent(dsBeleg2);\r\n    dsBeleg2AuftragnummerKunde.Name := 'dsBeleg2AuftragnummerKunde';\r\n    dsBeleg2AuftragnummerKunde.FieldName := 'AuftragnummerKunde';\r\n    dsBeleg2AuftragnummerKunde.Size := 50;\r\n    dsBeleg2BestelldatumKunde.SetParentComponent(dsBeleg2);\r\n    dsBeleg2BestelldatumKunde.Name := 'dsBeleg2BestelldatumKunde';\r\n    dsBeleg2BestelldatumKunde.FieldName := 'BestelldatumKunde';\r\n    dsBeleg2ILN.SetParentComponent(dsBeleg2);\r\n    dsBeleg2ILN.Name := 'dsBeleg2ILN';\r\n    dsBeleg2ILN.FieldName := 'ILN';\r\n    dsBeleg2ILN.Size := 50;\r\n    dsBeleg2Kopftext.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Kopftext.Name := 'dsBeleg2Kopftext';\r\n    dsBeleg2Kopftext.FieldName := 'Kopftext';\r\n    dsBeleg2Kopftext.Size := 255;\r\n    dsBeleg2Schlussbemerkung.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Schlussbemerkung.Name := 'dsBeleg2Schlussbemerkung';\r\n    dsBeleg2Schlussbemerkung.FieldName := 'Schlussbemerkung';\r\n    dsBeleg2Schlussbemerkung.Size := 255;\r\n    dsBeleg2Gruss.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Gruss.Name := 'dsBeleg2Gruss';\r\n    dsBeleg2Gruss.FieldName := 'Gruss';\r\n    dsBeleg2Gruss.Size := 255;\r\n    dsBeleg2Mehrwertsteuersatz1.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Mehrwertsteuersatz1.Name := 'dsBeleg2Mehrwertsteuersatz1';\r\n    dsBeleg2Mehrwertsteuersatz1.FieldName := 'Mehrwertsteuersatz1';\r\n    dsBeleg2Mehrwertsteuersatz2.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Mehrwertsteuersatz2.Name := 'dsBeleg2Mehrwertsteuersatz2';\r\n    dsBeleg2Mehrwertsteuersatz2.FieldName := 'Mehrwertsteuersatz2';\r\n    dsBeleg2Nettosumme01.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Nettosumme01.Name := 'dsBeleg2Nettosumme01';\r\n    dsBeleg2Nettosumme01.FieldName := 'Nettosumme01';\r\n    dsBeleg2Nettosumme02.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Nettosumme02.Name := 'dsBeleg2Nettosumme02';\r\n    dsBeleg2Nettosumme02.FieldName := 'Nettosumme02';\r\n    dsBeleg2Nettosumme.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Nettosumme.Name := 'dsBeleg2Nettosumme';\r\n    dsBeleg2Nettosumme.FieldName := 'Nettosumme';\r\n    dsBeleg2Mehrwertsteuer01.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Mehrwertsteuer01.Name := 'dsBeleg2Mehrwertsteuer01';\r\n    dsBeleg2Mehrwertsteuer01.FieldName := 'Mehrwertsteuer01';\r\n    dsBeleg2Mehrwertsteuer02.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Mehrwertsteuer02.Name := 'dsBeleg2Mehrwertsteuer02';\r\n    dsBeleg2Mehrwertsteuer02.FieldName := 'Mehrwertsteuer02';\r\n    dsBeleg2Mehrwertsteuer.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Mehrwertsteuer.Name := 'dsBeleg2Mehrwertsteuer';\r\n    dsBeleg2Mehrwertsteuer.FieldName := 'Mehrwertsteuer';\r\n    dsBeleg2Bruttosumme.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Bruttosumme.Name := 'dsBeleg2Bruttosumme';\r\n    dsBeleg2Bruttosumme.FieldName := 'Bruttosumme';\r\n    dsBeleg2Versanddatum.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Versanddatum.Name := 'dsBeleg2Versanddatum';\r\n    dsBeleg2Versanddatum.FieldName := 'Versanddatum';\r\n    dsBeleg2Skontosatz.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Skontosatz.Name := 'dsBeleg2Skontosatz';\r\n    dsBeleg2Skontosatz.FieldName := 'Skontosatz';\r\n    dsBeleg2NettosummeEK.SetParentComponent(dsBeleg2);\r\n    dsBeleg2NettosummeEK.Name := 'dsBeleg2NettosummeEK';\r\n    dsBeleg2NettosummeEK.FieldName := 'NettosummeEK';\r\n    dsBeleg2NettoMarge.SetParentComponent(dsBeleg2);\r\n    dsBeleg2NettoMarge.Name := 'dsBeleg2NettoMarge';\r\n    dsBeleg2NettoMarge.FieldName := 'NettoMarge';\r\n    dsBeleg2Schreibzeichen.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Schreibzeichen.Name := 'dsBeleg2Schreibzeichen';\r\n    dsBeleg2Schreibzeichen.FieldName := 'Schreibzeichen';\r\n    dsBeleg2Schreibzeichen.Size := 10;\r\n    dsBeleg2Unterzeichner.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Unterzeichner.Name := 'dsBeleg2Unterzeichner';\r\n    dsBeleg2Unterzeichner.FieldName := 'Unterzeichner';\r\n    dsBeleg2Unterzeichner.Size := 50;\r\n    dsBeleg2TelefonMA.SetParentComponent(dsBeleg2);\r\n    dsBeleg2TelefonMA.Name := 'dsBeleg2TelefonMA';\r\n    dsBeleg2TelefonMA.FieldName := 'TelefonMA';\r\n    dsBeleg2TelefonMA.Size := 30;\r\n    dsBeleg2EmailMA.SetParentComponent(dsBeleg2);\r\n    dsBeleg2EmailMA.Name := 'dsBeleg2EmailMA';\r\n    dsBeleg2EmailMA.FieldName := 'EmailMA';\r\n    dsBeleg2EmailMA.Size := 50;\r\n    dsBeleg2USTID.SetParentComponent(dsBeleg2);\r\n    dsBeleg2USTID.Name := 'dsBeleg2USTID';\r\n    dsBeleg2USTID.FieldName := 'USTID';\r\n    dsBeleg2Umsatzsteuerausweis.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Umsatzsteuerausweis.Name := 'dsBeleg2Umsatzsteuerausweis';\r\n    dsBeleg2Umsatzsteuerausweis.FieldName := 'Umsatzsteuerausweis';\r\n    dsBeleg2gebucht.SetParentComponent(dsBeleg2);\r\n    dsBeleg2gebucht.Name := 'dsBeleg2gebucht';\r\n    dsBeleg2gebucht.FieldName := 'gebucht';\r\n    dsBeleg2Lieferdatum.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Lieferdatum.Name := 'dsBeleg2Lieferdatum';\r\n    dsBeleg2Lieferdatum.FieldName := 'Lieferdatum';\r\n    dsBeleg2Transportbedingung.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Transportbedingung.Name := 'dsBeleg2Transportbedingung';\r\n    dsBeleg2Transportbedingung.FieldName := 'Transportbedingung';\r\n    dsBeleg2Transportbedingung.Size := 100;\r\n    dsBeleg2Mehrwertsteuersatz3.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Mehrwertsteuersatz3.Name := 'dsBeleg2Mehrwertsteuersatz3';\r\n    dsBeleg2Mehrwertsteuersatz3.FieldName := 'Mehrwertsteuersatz3';\r\n    dsBeleg2Mehrwertsteuer03.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Mehrwertsteuer03.Name := 'dsBeleg2Mehrwertsteuer03';\r\n    dsBeleg2Mehrwertsteuer03.FieldName := 'Mehrwertsteuer03';\r\n    dsBeleg2Nettosumme03.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Nettosumme03.Name := 'dsBeleg2Nettosumme03';\r\n    dsBeleg2Nettosumme03.FieldName := 'Nettosumme03';\r\n    dsBeleg2RundungsDifferenz.SetParentComponent(dsBeleg2);\r\n    dsBeleg2RundungsDifferenz.Name := 'dsBeleg2RundungsDifferenz';\r\n    dsBeleg2RundungsDifferenz.FieldName := 'RundungsDifferenz';\r\n    dsBeleg2EmailText.SetParentComponent(dsBeleg2);\r\n    dsBeleg2EmailText.Name := 'dsBeleg2EmailText';\r\n    dsBeleg2EmailText.FieldName := 'EmailText';\r\n    dsBeleg2EmailText.Size := 255;\r\n    dsBeleg2Auftragerledigt.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Auftragerledigt.Name := 'dsBeleg2Auftragerledigt';\r\n    dsBeleg2Auftragerledigt.FieldName := 'Auftragerledigt';\r\n    dsBeleg2Rabattstufe.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Rabattstufe.Name := 'dsBeleg2Rabattstufe';\r\n    dsBeleg2Rabattstufe.FieldName := 'Rabattstufe';\r\n    dsBeleg2Rabattstufe.Size := 15;\r\n    dsBeleg2KFZKennzeichen.SetParentComponent(dsBeleg2);\r\n    dsBeleg2KFZKennzeichen.Name := 'dsBeleg2KFZKennzeichen';\r\n    dsBeleg2KFZKennzeichen.FieldName := 'KFZKennzeichen';\r\n    dsBeleg2KFZKennzeichen.Size := 13;\r\n    dsBeleg2Fahrgestellnummer.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Fahrgestellnummer.Name := 'dsBeleg2Fahrgestellnummer';\r\n    dsBeleg2Fahrgestellnummer.FieldName := 'Fahrgestellnummer';\r\n    dsBeleg2KFZHersteller.SetParentComponent(dsBeleg2);\r\n    dsBeleg2KFZHersteller.Name := 'dsBeleg2KFZHersteller';\r\n    dsBeleg2KFZHersteller.FieldName := 'KFZHersteller';\r\n    dsBeleg2Erstzulassungsdatum.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Erstzulassungsdatum.Name := 'dsBeleg2Erstzulassungsdatum';\r\n    dsBeleg2Erstzulassungsdatum.FieldName := 'Erstzulassungsdatum';\r\n    dsBeleg2KMStand.SetParentComponent(dsBeleg2);\r\n    dsBeleg2KMStand.Name := 'dsBeleg2KMStand';\r\n    dsBeleg2KMStand.FieldName := 'KMStand';\r\n    dsBeleg2KMStand.Size := 6;\r\n    dsBeleg2KFZType.SetParentComponent(dsBeleg2);\r\n    dsBeleg2KFZType.Name := 'dsBeleg2KFZType';\r\n    dsBeleg2KFZType.FieldName := 'KFZType';\r\n    dsBeleg2KFZType.Size := 25;\r\n    dsBeleg2Inspektionsdatum.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Inspektionsdatum.Name := 'dsBeleg2Inspektionsdatum';\r\n    dsBeleg2Inspektionsdatum.FieldName := 'Inspektionsdatum';\r\n    dsBeleg2Debitorennummer.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Debitorennummer.Name := 'dsBeleg2Debitorennummer';\r\n    dsBeleg2Debitorennummer.FieldName := 'Debitorennummer';\r\n    dsBeleg2Debitorennummer.Size := 13;\r\n    dsBeleg2Kostentraeger.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Kostentraeger.Name := 'dsBeleg2Kostentraeger';\r\n    dsBeleg2Kostentraeger.FieldName := 'Kostentraeger';\r\n    dsBeleg2Kostentraeger.Size := 13;\r\n    dsBeleg2Rabattsatz.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Rabattsatz.Name := 'dsBeleg2Rabattsatz';\r\n    dsBeleg2Rabattsatz.FieldName := 'Rabattsatz';\r\n    dsBeleg2ObjektReferenz.SetParentComponent(dsBeleg2);\r\n    dsBeleg2ObjektReferenz.Name := 'dsBeleg2ObjektReferenz';\r\n    dsBeleg2ObjektReferenz.FieldName := 'ObjektReferenz';\r\n    dsBeleg2ObjektReferenz.Size := 13;\r\n    dsBeleg2Bank.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Bank.Name := 'dsBeleg2Bank';\r\n    dsBeleg2Bank.FieldName := 'Bank';\r\n    dsBeleg2Bank.Size := 50;\r\n    dsBeleg2Bankleitzahl.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Bankleitzahl.Name := 'dsBeleg2Bankleitzahl';\r\n    dsBeleg2Bankleitzahl.FieldName := 'Bankleitzahl';\r\n    dsBeleg2Kontonummer.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Kontonummer.Name := 'dsBeleg2Kontonummer';\r\n    dsBeleg2Kontonummer.FieldName := 'Kontonummer';\r\n    dsBeleg2Kontonummer.Size := 50;\r\n    dsBeleg2Kontoinhaber.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Kontoinhaber.Name := 'dsBeleg2Kontoinhaber';\r\n    dsBeleg2Kontoinhaber.FieldName := 'Kontoinhaber';\r\n    dsBeleg2Kontoinhaber.Size := 50;\r\n    dsBeleg2Telefaxnummer.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Telefaxnummer.Name := 'dsBeleg2Telefaxnummer';\r\n    dsBeleg2Telefaxnummer.FieldName := 'Telefaxnummer';\r\n    dsBeleg2Telefaxnummer.Size := 25;\r\n    dsBeleg2DatumNeu.SetParentComponent(dsBeleg2);\r\n    dsBeleg2DatumNeu.Name := 'dsBeleg2DatumNeu';\r\n    dsBeleg2DatumNeu.FieldName := 'DatumNeu';\r\n    dsBeleg2Datumgeaendert.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Datumgeaendert.Name := 'dsBeleg2Datumgeaendert';\r\n    dsBeleg2Datumgeaendert.FieldName := 'Datumgeaendert';\r\n    dsBeleg2Objektnummer.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Objektnummer.Name := 'dsBeleg2Objektnummer';\r\n    dsBeleg2Objektnummer.FieldName := 'Objektnummer';\r\n    dsBeleg2Objektnummer.Size := 25;\r\n    dsBeleg2Liefertermin.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Liefertermin.Name := 'dsBeleg2Liefertermin';\r\n    dsBeleg2Liefertermin.FieldName := 'Liefertermin';\r\n    dsBeleg2Liefertermin.Size := 50;\r\n    dsBeleg2Emailversand.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Emailversand.Name := 'dsBeleg2Emailversand';\r\n    dsBeleg2Emailversand.FieldName := 'Emailversand';\r\n    dsBeleg2Telefonnummer.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Telefonnummer.Name := 'dsBeleg2Telefonnummer';\r\n    dsBeleg2Telefonnummer.FieldName := 'Telefonnummer';\r\n    dsBeleg2Telefonnummer.Size := 35;\r\n    dsBeleg2MobilTelefon.SetParentComponent(dsBeleg2);\r\n    dsBeleg2MobilTelefon.Name := 'dsBeleg2MobilTelefon';\r\n    dsBeleg2MobilTelefon.FieldName := 'MobilTelefon';\r\n    dsBeleg2MobilTelefon.Size := 25;\r\n    dsBeleg2AuftragFax.SetParentComponent(dsBeleg2);\r\n    dsBeleg2AuftragFax.Name := 'dsBeleg2AuftragFax';\r\n    dsBeleg2AuftragFax.FieldName := 'AuftragFax';\r\n    dsBeleg2REDatum.SetParentComponent(dsBeleg2);\r\n    dsBeleg2REDatum.Name := 'dsBeleg2REDatum';\r\n    dsBeleg2REDatum.FieldName := 'REDatum';\r\n    dsBeleg2BenutzerNeu.SetParentComponent(dsBeleg2);\r\n    dsBeleg2BenutzerNeu.Name := 'dsBeleg2BenutzerNeu';\r\n    dsBeleg2BenutzerNeu.FieldName := 'BenutzerNeu';\r\n    dsBeleg2BenutzerNeu.Size := 50;\r\n    dsBeleg2BenutzerGeaendert.SetParentComponent(dsBeleg2);\r\n    dsBeleg2BenutzerGeaendert.Name := 'dsBeleg2BenutzerGeaendert';\r\n    dsBeleg2BenutzerGeaendert.FieldName := 'BenutzerGeaendert';\r\n    dsBeleg2BenutzerGeaendert.Size := 50;\r\n    dsBeleg2BerechnungBrutto.SetParentComponent(dsBeleg2);\r\n    dsBeleg2BerechnungBrutto.Name := 'dsBeleg2BerechnungBrutto';\r\n    dsBeleg2BerechnungBrutto.FieldName := 'BerechnungBrutto';\r\n    dsBeleg2Bruttosumme01.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Bruttosumme01.Name := 'dsBeleg2Bruttosumme01';\r\n    dsBeleg2Bruttosumme01.FieldName := 'Bruttosumme01';\r\n    dsBeleg2Bruttosumme02.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Bruttosumme02.Name := 'dsBeleg2Bruttosumme02';\r\n    dsBeleg2Bruttosumme02.FieldName := 'Bruttosumme02';\r\n    dsBeleg2Bruttosumme03.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Bruttosumme03.Name := 'dsBeleg2Bruttosumme03';\r\n    dsBeleg2Bruttosumme03.FieldName := 'Bruttosumme03';\r\n    dsBeleg2Notiz.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Notiz.Name := 'dsBeleg2Notiz';\r\n    dsBeleg2Notiz.FieldName := 'Notiz';\r\n    dsBeleg2Notiz.Size := 255;\r\n    dsBeleg2MargeProzent.SetParentComponent(dsBeleg2);\r\n    dsBeleg2MargeProzent.Name := 'dsBeleg2MargeProzent';\r\n    dsBeleg2MargeProzent.FieldName := 'MargeProzent';\r\n    dsBeleg2Warenkreditgesperrt.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Warenkreditgesperrt.Name := 'dsBeleg2Warenkreditgesperrt';\r\n    dsBeleg2Warenkreditgesperrt.FieldName := 'Warenkreditgesperrt';\r\n    dsBeleg2Belegsprache.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Belegsprache.Name := 'dsBeleg2Belegsprache';\r\n    dsBeleg2Belegsprache.FieldName := 'Belegsprache';\r\n    dsBeleg2Belegsprache.Size := 10;\r\n    dsBeleg2Duplicate.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Duplicate.Name := 'dsBeleg2Duplicate';\r\n    dsBeleg2Duplicate.FieldName := 'Duplicate';\r\n    dsBeleg2perEmail.SetParentComponent(dsBeleg2);\r\n    dsBeleg2perEmail.Name := 'dsBeleg2perEmail';\r\n    dsBeleg2perEmail.FieldName := 'perEmail';\r\n    dsBeleg2Ansprechpartner.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Ansprechpartner.Name := 'dsBeleg2Ansprechpartner';\r\n    dsBeleg2Ansprechpartner.FieldName := 'Ansprechpartner';\r\n    dsBeleg2Ansprechpartner.Size := 105;\r\n    dsBeleg2KundennummerFremd.SetParentComponent(dsBeleg2);\r\n    dsBeleg2KundennummerFremd.Name := 'dsBeleg2KundennummerFremd';\r\n    dsBeleg2KundennummerFremd.FieldName := 'KundennummerFremd';\r\n    dsBeleg2Protokoll.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Protokoll.Name := 'dsBeleg2Protokoll';\r\n    dsBeleg2Protokoll.FieldName := 'Protokoll';\r\n    dsBeleg2Protokoll.Size := 255;\r\n    dsBeleg2Verleihauftrag.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Verleihauftrag.Name := 'dsBeleg2Verleihauftrag';\r\n    dsBeleg2Verleihauftrag.FieldName := 'Verleihauftrag';\r\n    dsBeleg2VerleihVon.SetParentComponent(dsBeleg2);\r\n    dsBeleg2VerleihVon.Name := 'dsBeleg2VerleihVon';\r\n    dsBeleg2VerleihVon.FieldName := 'VerleihVon';\r\n    dsBeleg2VerleihBis.SetParentComponent(dsBeleg2);\r\n    dsBeleg2VerleihBis.Name := 'dsBeleg2VerleihBis';\r\n    dsBeleg2VerleihBis.FieldName := 'VerleihBis';\r\n    dsBeleg2AuftragGenehmigt.SetParentComponent(dsBeleg2);\r\n    dsBeleg2AuftragGenehmigt.Name := 'dsBeleg2AuftragGenehmigt';\r\n    dsBeleg2AuftragGenehmigt.FieldName := 'AuftragGenehmigt';\r\n    dsBeleg2gesperrt.SetParentComponent(dsBeleg2);\r\n    dsBeleg2gesperrt.Name := 'dsBeleg2gesperrt';\r\n    dsBeleg2gesperrt.FieldName := 'gesperrt';\r\n    dsBeleg2VerleihvonText.SetParentComponent(dsBeleg2);\r\n    dsBeleg2VerleihvonText.Name := 'dsBeleg2VerleihvonText';\r\n    dsBeleg2VerleihvonText.FieldName := 'VerleihvonText';\r\n    dsBeleg2VerleihvonText.Size := 50;\r\n    dsBeleg2VerleihbisText.SetParentComponent(dsBeleg2);\r\n    dsBeleg2VerleihbisText.Name := 'dsBeleg2VerleihbisText';\r\n    dsBeleg2VerleihbisText.FieldName := 'VerleihbisText';\r\n    dsBeleg2VerleihbisText.Size := 50;\r\n    dsBeleg2DruckWHG.SetParentComponent(dsBeleg2);\r\n    dsBeleg2DruckWHG.Name := 'dsBeleg2DruckWHG';\r\n    dsBeleg2DruckWHG.FieldName := 'DruckWHG';\r\n    dsBeleg2DruckWHG.Size := 3;\r\n    dsBeleg2DruckWHGKurs.SetParentComponent(dsBeleg2);\r\n    dsBeleg2DruckWHGKurs.Name := 'dsBeleg2DruckWHGKurs';\r\n    dsBeleg2DruckWHGKurs.FieldName := 'DruckWHGKurs';\r\n    dsBeleg2ProzentsatzZusatzposition.SetParentComponent(dsBeleg2);\r\n    dsBeleg2ProzentsatzZusatzposition.Name := 'dsBeleg2ProzentsatzZusatzposition';\r\n    dsBeleg2ProzentsatzZusatzposition.FieldName := 'ProzentsatzZusatzposition';\r\n    dsBeleg2TextZusatzposition.SetParentComponent(dsBeleg2);\r\n    dsBeleg2TextZusatzposition.Name := 'dsBeleg2TextZusatzposition';\r\n    dsBeleg2TextZusatzposition.FieldName := 'TextZusatzposition';\r\n    dsBeleg2TextZusatzposition.Size := 255;\r\n    dsBeleg2TextzusatzBeschreibung.SetParentComponent(dsBeleg2);\r\n    dsBeleg2TextzusatzBeschreibung.Name := 'dsBeleg2TextzusatzBeschreibung';\r\n    dsBeleg2TextzusatzBeschreibung.FieldName := 'TextzusatzBeschreibung';\r\n    dsBeleg2TextzusatzBeschreibung.Size := 50;\r\n    dsBeleg2Layoutname.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Layoutname.Name := 'dsBeleg2Layoutname';\r\n    dsBeleg2Layoutname.FieldName := 'Layoutname';\r\n    dsBeleg2Layoutname.Size := 50;\r\n    dsBeleg2Gesamtgewicht.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Gesamtgewicht.Name := 'dsBeleg2Gesamtgewicht';\r\n    dsBeleg2Gesamtgewicht.FieldName := 'Gesamtgewicht';\r\n    dsBeleg2BetragZusatzposition.SetParentComponent(dsBeleg2);\r\n    dsBeleg2BetragZusatzposition.Name := 'dsBeleg2BetragZusatzposition';\r\n    dsBeleg2BetragZusatzposition.FieldName := 'BetragZusatzposition';\r\n    dsBeleg2ReferenzBestellung.SetParentComponent(dsBeleg2);\r\n    dsBeleg2ReferenzBestellung.Name := 'dsBeleg2ReferenzBestellung';\r\n    dsBeleg2ReferenzBestellung.FieldName := 'ReferenzBestellung';\r\n    dsBeleg2ReferenzBestellung.Size := 10;\r\n    dsBeleg2Termin1.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Termin1.Name := 'dsBeleg2Termin1';\r\n    dsBeleg2Termin1.FieldName := 'Termin1';\r\n    dsBeleg2Termin2.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Termin2.Name := 'dsBeleg2Termin2';\r\n    dsBeleg2Termin2.FieldName := 'Termin2';\r\n    dsBeleg2Zielkontaktnummer.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Zielkontaktnummer.Name := 'dsBeleg2Zielkontaktnummer';\r\n    dsBeleg2Zielkontaktnummer.FieldName := 'Zielkontaktnummer';\r\n    dsBeleg2Zielkontaktnummer.Size := 13;\r\n    dsBeleg2Zielkontaktname.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Zielkontaktname.Name := 'dsBeleg2Zielkontaktname';\r\n    dsBeleg2Zielkontaktname.FieldName := 'Zielkontaktname';\r\n    dsBeleg2Zielkontaktname.Size := 40;\r\n    dsBeleg2Bilddatei1.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Bilddatei1.Name := 'dsBeleg2Bilddatei1';\r\n    dsBeleg2Bilddatei1.FieldName := 'Bilddatei1';\r\n    dsBeleg2Bilddatei1.Size := 255;\r\n    dsBeleg2Bilddatei2.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Bilddatei2.Name := 'dsBeleg2Bilddatei2';\r\n    dsBeleg2Bilddatei2.FieldName := 'Bilddatei2';\r\n    dsBeleg2Bilddatei2.Size := 255;\r\n    dsBeleg2Zielkontaktnummer2.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Zielkontaktnummer2.Name := 'dsBeleg2Zielkontaktnummer2';\r\n    dsBeleg2Zielkontaktnummer2.FieldName := 'Zielkontaktnummer2';\r\n    dsBeleg2Zielkontaktnummer2.Size := 13;\r\n    dsBeleg2Zielkontaktname2.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Zielkontaktname2.Name := 'dsBeleg2Zielkontaktname2';\r\n    dsBeleg2Zielkontaktname2.FieldName := 'Zielkontaktname2';\r\n    dsBeleg2Zielkontaktname2.Size := 40;\r\n    dsBeleg2bestaetigt.SetParentComponent(dsBeleg2);\r\n    dsBeleg2bestaetigt.Name := 'dsBeleg2bestaetigt';\r\n    dsBeleg2bestaetigt.FieldName := 'bestaetigt';\r\n    dsBeleg2Zielkontaktnummer3.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Zielkontaktnummer3.Name := 'dsBeleg2Zielkontaktnummer3';\r\n    dsBeleg2Zielkontaktnummer3.FieldName := 'Zielkontaktnummer3';\r\n    dsBeleg2Zielkontaktnummer3.Size := 13;\r\n    dsBeleg2Zielkontaktname3.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Zielkontaktname3.Name := 'dsBeleg2Zielkontaktname3';\r\n    dsBeleg2Zielkontaktname3.FieldName := 'Zielkontaktname3';\r\n    dsBeleg2Zielkontaktname3.Size := 40;\r\n    dsBeleg2Termin3.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Termin3.Name := 'dsBeleg2Termin3';\r\n    dsBeleg2Termin3.FieldName := 'Termin3';\r\n    dsBeleg2Termin4.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Termin4.Name := 'dsBeleg2Termin4';\r\n    dsBeleg2Termin4.FieldName := 'Termin4';\r\n    dsBeleg2Muster.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Muster.Name := 'dsBeleg2Muster';\r\n    dsBeleg2Muster.FieldName := 'Muster';\r\n    dsBeleg2KW.SetParentComponent(dsBeleg2);\r\n    dsBeleg2KW.Name := 'dsBeleg2KW';\r\n    dsBeleg2KW.FieldName := 'KW';\r\n    dsBeleg2Datenlink.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Datenlink.Name := 'dsBeleg2Datenlink';\r\n    dsBeleg2Datenlink.FieldName := 'Datenlink';\r\n    dsBeleg2Datenlink.Size := 255;\r\n    dsBeleg2Mehrwertsteuersatz4.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Mehrwertsteuersatz4.Name := 'dsBeleg2Mehrwertsteuersatz4';\r\n    dsBeleg2Mehrwertsteuersatz4.FieldName := 'Mehrwertsteuersatz4';\r\n    dsBeleg2Mehrwertsteuersatz5.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Mehrwertsteuersatz5.Name := 'dsBeleg2Mehrwertsteuersatz5';\r\n    dsBeleg2Mehrwertsteuersatz5.FieldName := 'Mehrwertsteuersatz5';\r\n    dsBeleg2Mehrwertsteuersatz6.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Mehrwertsteuersatz6.Name := 'dsBeleg2Mehrwertsteuersatz6';\r\n    dsBeleg2Mehrwertsteuersatz6.FieldName := 'Mehrwertsteuersatz6';\r\n    dsBeleg2BesteuerungKey.SetParentComponent(dsBeleg2);\r\n    dsBeleg2BesteuerungKey.Name := 'dsBeleg2BesteuerungKey';\r\n    dsBeleg2BesteuerungKey.FieldName := 'BesteuerungKey';\r\n    dsBeleg2VertreterMatchcode.SetParentComponent(dsBeleg2);\r\n    dsBeleg2VertreterMatchcode.Name := 'dsBeleg2VertreterMatchcode';\r\n    dsBeleg2VertreterMatchcode.FieldName := 'VertreterMatchcode';\r\n    dsBeleg2VertreterMatchcode.Size := 50;\r\n    dsBeleg2Verfasser.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Verfasser.Name := 'dsBeleg2Verfasser';\r\n    dsBeleg2Verfasser.FieldName := 'Verfasser';\r\n    dsBeleg2Verfasser.Size := 10;\r\n    dsBeleg2LieferadresseID.SetParentComponent(dsBeleg2);\r\n    dsBeleg2LieferadresseID.Name := 'dsBeleg2LieferadresseID';\r\n    dsBeleg2LieferadresseID.FieldName := 'LieferadresseID';\r\n    dsBeleg2AuftragStatus.SetParentComponent(dsBeleg2);\r\n    dsBeleg2AuftragStatus.Name := 'dsBeleg2AuftragStatus';\r\n    dsBeleg2AuftragStatus.FieldName := 'AuftragStatus';\r\n    dsBeleg2AuftragStatus.Size := 30;\r\n    dsBeleg2MonatJahr.SetParentComponent(dsBeleg2);\r\n    dsBeleg2MonatJahr.Name := 'dsBeleg2MonatJahr';\r\n    dsBeleg2MonatJahr.FieldName := 'MonatJahr';\r\n    dsBeleg2Belegvariante.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Belegvariante.Name := 'dsBeleg2Belegvariante';\r\n    dsBeleg2Belegvariante.FieldName := 'Belegvariante';\r\n    dsBeleg2Belegvariante.Size := 25;\r\n    dsBeleg2Produktionsfreigabe.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Produktionsfreigabe.Name := 'dsBeleg2Produktionsfreigabe';\r\n    dsBeleg2Produktionsfreigabe.FieldName := 'Produktionsfreigabe';\r\n    dsBeleg2ReferenzRahmenAuftrag.SetParentComponent(dsBeleg2);\r\n    dsBeleg2ReferenzRahmenAuftrag.Name := 'dsBeleg2ReferenzRahmenAuftrag';\r\n    dsBeleg2ReferenzRahmenAuftrag.FieldName := 'ReferenzRahmenAuftrag';\r\n    dsBeleg2ReferenzRahmenAuftrag.Size := 10;\r\n    dsBeleg2DatumRahmenAuftrag.SetParentComponent(dsBeleg2);\r\n    dsBeleg2DatumRahmenAuftrag.Name := 'dsBeleg2DatumRahmenAuftrag';\r\n    dsBeleg2DatumRahmenAuftrag.FieldName := 'DatumRahmenAuftrag';\r\n    dsBeleg2FahrzeugID.SetParentComponent(dsBeleg2);\r\n    dsBeleg2FahrzeugID.Name := 'dsBeleg2FahrzeugID';\r\n    dsBeleg2FahrzeugID.FieldName := 'FahrzeugID';\r\n    dsBeleg2AuslieferungKW.SetParentComponent(dsBeleg2);\r\n    dsBeleg2AuslieferungKW.Name := 'dsBeleg2AuslieferungKW';\r\n    dsBeleg2AuslieferungKW.FieldName := 'AuslieferungKW';\r\n    dsBeleg2AuslieferungKW.Size := 25;\r\n    dsBeleg2BereitstellungDatum.SetParentComponent(dsBeleg2);\r\n    dsBeleg2BereitstellungDatum.Name := 'dsBeleg2BereitstellungDatum';\r\n    dsBeleg2BereitstellungDatum.FieldName := 'BereitstellungDatum';\r\n    dsBeleg2VTUID.SetParentComponent(dsBeleg2);\r\n    dsBeleg2VTUID.Name := 'dsBeleg2VTUID';\r\n    dsBeleg2VTUID.FieldName := 'VTUID';\r\n    dsBeleg2VTUID.Size := 38;\r\n    dsBeleg2LieferanschriftDaten.SetParentComponent(dsBeleg2);\r\n    dsBeleg2LieferanschriftDaten.Name := 'dsBeleg2LieferanschriftDaten';\r\n    dsBeleg2LieferanschriftDaten.FieldName := 'LieferanschriftDaten';\r\n    dsBeleg2LieferanschriftDaten.Size := 255;\r\n    dsBeleg2GesamtVolumen.SetParentComponent(dsBeleg2);\r\n    dsBeleg2GesamtVolumen.Name := 'dsBeleg2GesamtVolumen';\r\n    dsBeleg2GesamtVolumen.FieldName := 'GesamtVolumen';\r\n    dsBeleg2BelegPKey.SetParentComponent(dsBeleg2);\r\n    dsBeleg2BelegPKey.Name := 'dsBeleg2BelegPKey';\r\n    dsBeleg2BelegPKey.FieldName := 'BelegPKey';\r\n    dsBeleg2DruckParameter.SetParentComponent(dsBeleg2);\r\n    dsBeleg2DruckParameter.Name := 'dsBeleg2DruckParameter';\r\n    dsBeleg2DruckParameter.FieldName := 'DruckParameter';\r\n    dsBeleg2DruckParameter.Size := 255;\r\n    dsBeleg2ReferenzService.SetParentComponent(dsBeleg2);\r\n    dsBeleg2ReferenzService.Name := 'dsBeleg2ReferenzService';\r\n    dsBeleg2ReferenzService.FieldName := 'ReferenzService';\r\n    dsBeleg2ReferenzService.Size := 10;\r\n    dsBeleg2ZusatzDaten.SetParentComponent(dsBeleg2);\r\n    dsBeleg2ZusatzDaten.Name := 'dsBeleg2ZusatzDaten';\r\n    dsBeleg2ZusatzDaten.FieldName := 'ZusatzDaten';\r\n    dsBeleg2ZusatzDaten.Size := 255;\r\n    dsBeleg2StandPDF.SetParentComponent(dsBeleg2);\r\n    dsBeleg2StandPDF.Name := 'dsBeleg2StandPDF';\r\n    dsBeleg2StandPDF.FieldName := 'StandPDF';\r\n    dsBeleg2StandPDF.Size := 255;\r\n    dsBeleg2Paketdienst.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Paketdienst.Name := 'dsBeleg2Paketdienst';\r\n    dsBeleg2Paketdienst.FieldName := 'Paketdienst';\r\n    dsBeleg2Paketdienst.Size := 30;\r\n    dsBeleg2Monteur.SetParentComponent(dsBeleg2);\r\n    dsBeleg2Monteur.Name := 'dsBeleg2Monteur';\r\n    dsBeleg2Monteur.FieldName := 'Monteur';\r\n    dsBeleg2KundennummerKundennummer.SetParentComponent(dsBeleg2);\r\n    dsBeleg2KundennummerKundennummer.Name := 'dsBeleg2KundennummerKundennummer';\r\n    dsBeleg2KundennummerKundennummer.FieldName := 'Kundennummer.Kundennummer';\r\n    dsBeleg2KundennummerKundennummer.Size := 13;\r\n    dsBeleg2ServiceBemerkung.SetParentComponent(dsBeleg2);\r\n    dsBeleg2ServiceBemerkung.Name := 'dsBeleg2ServiceBemerkung';\r\n    dsBeleg2ServiceBemerkung.FieldName := 'ServiceBemerkung';\r\n    dsBeleg2ServiceBemerkung.Size := 255;\r\n  finally\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    WTCPosition.AfterLoadDFMValues;\r\n    btnPosAbbrechen.AfterLoadDFMValues;\r\n    btnPosSpeichern.AfterLoadDFMValues;\r\n    btnPositionLoeschen.AfterLoadDFMValues;\r\n    edtPosNr.AfterLoadDFMValues;\r\n    edtPosUNr.AfterLoadDFMValues;\r\n    edtArtikelueberschrift.AfterLoadDFMValues;\r\n    edtMenge.AfterLoadDFMValues;\r\n    btnArtikelnummer.AfterLoadDFMValues;\r\n    edtArtikelbeschreibung.AfterLoadDFMValues;\r\n    edtMengenart.AfterLoadDFMValues;\r\n    btnNeuePosition.AfterLoadDFMValues;\r\n    xdsPosition.AfterLoadDFMValues;\r\n    xdsPositionNummerkomplett.AfterLoadDFMValues;\r\n    xdsPositionArtikelnummer.AfterLoadDFMValues;\r\n    xdsPositionID.AfterLoadDFMValues;\r\n    xdsPositionPosNr.AfterLoadDFMValues;\r\n    xdsPositionPosUNr.AfterLoadDFMValues;\r\n    xdsPositionSumme.AfterLoadDFMValues;\r\n    xdsPositionArtikelueberschrift.AfterLoadDFMValues;\r\n    xdsPositionArtikelbeschreibung.AfterLoadDFMValues;\r\n    xdsPositionMenge.AfterLoadDFMValues;\r\n    xdsPositionArtderMenge.AfterLoadDFMValues;\r\n    xdsPositionVerkaufspreis.AfterLoadDFMValues;\r\n    xdsPositionEinkaufspreis.AfterLoadDFMValues;\r\n    xdsPositionSeriennummer.AfterLoadDFMValues;\r\n    xdsPositionWarengruppe.AfterLoadDFMValues;\r\n    xdsPositionWarenuntergruppe.AfterLoadDFMValues;\r\n    xdsPositionArtikelnummerKunde.AfterLoadDFMValues;\r\n    xdsPositionLieferant.AfterLoadDFMValues;\r\n    xdsPositionGewicht.AfterLoadDFMValues;\r\n    xdsPositionLaenge.AfterLoadDFMValues;\r\n    xdsPositionBreite.AfterLoadDFMValues;\r\n    xdsPositionHoehe.AfterLoadDFMValues;\r\n    xdsPositionMehrwertsteuersatz.AfterLoadDFMValues;\r\n    xdsPositionEndpreis.AfterLoadDFMValues;\r\n    xdsPositionPosMWST.AfterLoadDFMValues;\r\n    xdsPositionBruttoEndpreis.AfterLoadDFMValues;\r\n    xdsPositionEndpreis_EK.AfterLoadDFMValues;\r\n    xdsPositionRabattsatz.AfterLoadDFMValues;\r\n    xdsPositionPreisvorRabatt.AfterLoadDFMValues;\r\n    xdsPositionPKZ.AfterLoadDFMValues;\r\n    xdsPositionTextfrei10.AfterLoadDFMValues;\r\n    xdsPositionTextfrei20.AfterLoadDFMValues;\r\n    xdsPositionAlternativ.AfterLoadDFMValues;\r\n    xdsPositionEinzelpreisBrutto.AfterLoadDFMValues;\r\n    xdsPositionPosMarge.AfterLoadDFMValues;\r\n    xdsPositionPosMargeProzent.AfterLoadDFMValues;\r\n    xdsPositionWarenbestand.AfterLoadDFMValues;\r\n    xdsPositionArtikelbeschreibungRTF.AfterLoadDFMValues;\r\n    xdsPositionQuellartikel.AfterLoadDFMValues;\r\n    xdsPositionArtikelnummerWB.AfterLoadDFMValues;\r\n    xdsPositionPreisanteilNetto.AfterLoadDFMValues;\r\n    xdsPositionSetHPos.AfterLoadDFMValues;\r\n    xdsPositionSetUPos.AfterLoadDFMValues;\r\n    xdsPositionProvisionssatz.AfterLoadDFMValues;\r\n    xdsPositionProvisionsbetrag.AfterLoadDFMValues;\r\n    xdsPositionReferenzKalkulation.AfterLoadDFMValues;\r\n    xdsPositionArtikelsprache.AfterLoadDFMValues;\r\n    xdsPositionEKvom.AfterLoadDFMValues;\r\n    xdsPositionMengenberechnungID.AfterLoadDFMValues;\r\n    xdsPositionTaraID.AfterLoadDFMValues;\r\n    xdsPositionTara.AfterLoadDFMValues;\r\n    xdsPositionBruttoGewicht.AfterLoadDFMValues;\r\n    xdsPositionAussenflaeche.AfterLoadDFMValues;\r\n    xdsPositionSeitenumbruch.AfterLoadDFMValues;\r\n    xdsPositionMWStKey.AfterLoadDFMValues;\r\n    xdsPositionZSnachPos.AfterLoadDFMValues;\r\n    xdsPositionPreisVorRabattWHG.AfterLoadDFMValues;\r\n    xdsPositionPKey.AfterLoadDFMValues;\r\n    xdsPositionLager.AfterLoadDFMValues;\r\n    xdsPositionlwbID.AfterLoadDFMValues;\r\n    xdsPositionBelegdatum.AfterLoadDFMValues;\r\n    xdsPositionVolumen.AfterLoadDFMValues;\r\n    xdsPositionPosVolumen.AfterLoadDFMValues;\r\n    xdsPositionArtikelAttribute.AfterLoadDFMValues;\r\n    sourcePosition.AfterLoadDFMValues;\r\n    dsArtikel.AfterLoadDFMValues;\r\n    dsArtikelHersteller.AfterLoadDFMValues;\r\n    dsArtikelArtderMenge.AfterLoadDFMValues;\r\n    dsArtikelPfandArt.AfterLoadDFMValues;\r\n    dsArtikelWarengruppe.AfterLoadDFMValues;\r\n    dsArtikelWarenuntergruppe.AfterLoadDFMValues;\r\n    dsArtikelArtikelnummer.AfterLoadDFMValues;\r\n    dsArtikelArtikelueberschrift.AfterLoadDFMValues;\r\n    dsArtikelArtikelbeschreibung.AfterLoadDFMValues;\r\n    dsArtikelVerkaufspreis.AfterLoadDFMValues;\r\n    dsArtikelMindestbestand.AfterLoadDFMValues;\r\n    dsArtikelPreisliste.AfterLoadDFMValues;\r\n    dsArtikelGewicht.AfterLoadDFMValues;\r\n    dsArtikelLaenge.AfterLoadDFMValues;\r\n    dsArtikelBreite.AfterLoadDFMValues;\r\n    dsArtikelHoehe.AfterLoadDFMValues;\r\n    dsArtikelArtikelZusatz.AfterLoadDFMValues;\r\n    dsArtikelLagerort.AfterLoadDFMValues;\r\n    dsArtikelBuchungskonto.AfterLoadDFMValues;\r\n    dsArtikelEingangMenge.AfterLoadDFMValues;\r\n    dsArtikelEingangEndpreis.AfterLoadDFMValues;\r\n    dsArtikelAusgangMenge.AfterLoadDFMValues;\r\n    dsArtikelAusgangEndpreisEK.AfterLoadDFMValues;\r\n    dsArtikelAusgangEndpreisVK.AfterLoadDFMValues;\r\n    dsArtikelBestand.AfterLoadDFMValues;\r\n    dsArtikelBestandswert.AfterLoadDFMValues;\r\n    dsArtikelMarge.AfterLoadDFMValues;\r\n    dsArtikelMargeProzent.AfterLoadDFMValues;\r\n    dsArtikelArtikelnummer2.AfterLoadDFMValues;\r\n    dsArtikelArtikelmatchcode.AfterLoadDFMValues;\r\n    dsArtikelRabattpreis1.AfterLoadDFMValues;\r\n    dsArtikelRabattpreis2.AfterLoadDFMValues;\r\n    dsArtikelRabattpreis3.AfterLoadDFMValues;\r\n    dsArtikelRabattpreis4.AfterLoadDFMValues;\r\n    dsArtikelRabattpreis5.AfterLoadDFMValues;\r\n    dsArtikelArtikelnichtmehrgueltig.AfterLoadDFMValues;\r\n    dsArtikelEinkaufspreis.AfterLoadDFMValues;\r\n    dsArtikelAufschlag.AfterLoadDFMValues;\r\n    dsArtikelWarenbestand.AfterLoadDFMValues;\r\n    dsArtikelTextfrei10.AfterLoadDFMValues;\r\n    dsArtikelTextfrei20.AfterLoadDFMValues;\r\n    dsArtikelArtikelbeschreibungRTF.AfterLoadDFMValues;\r\n    dsArtikelArtikeldatei1.AfterLoadDFMValues;\r\n    dsArtikelArtikeldatei2.AfterLoadDFMValues;\r\n    dsArtikelArtikeldatei3.AfterLoadDFMValues;\r\n    dsArtikelArtikeldatei4.AfterLoadDFMValues;\r\n    dsArtikelArtikeldatei5.AfterLoadDFMValues;\r\n    dsArtikelEinkaufspreisVom.AfterLoadDFMValues;\r\n    dsArtikelEAN.AfterLoadDFMValues;\r\n    dsArtikelVGPFaktor.AfterLoadDFMValues;\r\n    dsArtikelVGPMengenart.AfterLoadDFMValues;\r\n    dsArtikelVerleihpreis.AfterLoadDFMValues;\r\n    dsArtikelZusatzPreis.AfterLoadDFMValues;\r\n    dsArtikelVerpackungsart.AfterLoadDFMValues;\r\n    dsArtikelVerpackungsMenge.AfterLoadDFMValues;\r\n    dsArtikelQuellartikel.AfterLoadDFMValues;\r\n    dsArtikelrabattierfaehig.AfterLoadDFMValues;\r\n    dsArtikelAngebotAlternativeAN.AfterLoadDFMValues;\r\n    dsArtikelPreisanteilNetto.AfterLoadDFMValues;\r\n    dsArtikelFarbe.AfterLoadDFMValues;\r\n    dsArtikelAEinkauf.AfterLoadDFMValues;\r\n    dsArtikelAVerkauf.AfterLoadDFMValues;\r\n    dsArtikelArtikelnummerLieferant.AfterLoadDFMValues;\r\n    dsArtikelLieferantnummer.AfterLoadDFMValues;\r\n    dsArtikelVerkaufspreisBrutto.AfterLoadDFMValues;\r\n    dsArtikelArtikelSet.AfterLoadDFMValues;\r\n    dsArtikelProvisionssatz.AfterLoadDFMValues;\r\n    dsArtikelWarentarifnummer.AfterLoadDFMValues;\r\n    dsArtikelHandelsartikel.AfterLoadDFMValues;\r\n    dsArtikelUrsprungsland.AfterLoadDFMValues;\r\n    dsArtikelKategorie.AfterLoadDFMValues;\r\n    dsArtikelStandardRabattsatzEK.AfterLoadDFMValues;\r\n    dsArtikelStandardRabattsatzVK.AfterLoadDFMValues;\r\n    dsArtikelRabattpreiseManuell.AfterLoadDFMValues;\r\n    dsArtikelMengeBestellt.AfterLoadDFMValues;\r\n    dsArtikelMengeBeauftragt.AfterLoadDFMValues;\r\n    dsArtikelBestandDisponiert.AfterLoadDFMValues;\r\n    dsArtikelMengeAngeboten.AfterLoadDFMValues;\r\n    dsArtikelBestandDispInclAngebot.AfterLoadDFMValues;\r\n    dsArtikelMWStKey.AfterLoadDFMValues;\r\n    dsArtikelShopAmazon.AfterLoadDFMValues;\r\n    dsArtikelShopQuelle.AfterLoadDFMValues;\r\n    dsArtikelGeraet.AfterLoadDFMValues;\r\n    dsArtikelArtgewicht.AfterLoadDFMValues;\r\n    dsArtikelVolumen.AfterLoadDFMValues;\r\n    dsArtikelPacklisteNichtAnzeigen.AfterLoadDFMValues;\r\n    dsArtikelKeineAufschlagskalkulation.AfterLoadDFMValues;\r\n    dsArtikelKorrekturMenge.AfterLoadDFMValues;\r\n    dsArtikelKorrekturWert.AfterLoadDFMValues;\r\n    dsArtikelNachfolgeartikel.AfterLoadDFMValues;\r\n    dsArtikelMindestbestellmenge.AfterLoadDFMValues;\r\n    dsArtikelSchnittEK.AfterLoadDFMValues;\r\n    dsArtikelVerkaufspreisVom.AfterLoadDFMValues;\r\n    dsArtikelPruefungChargeSNR.AfterLoadDFMValues;\r\n    dsArtikelArtikelbeschreibungHTML.AfterLoadDFMValues;\r\n    dsArtikelProduktKurzbeschreibungHTML.AfterLoadDFMValues;\r\n    dsArtikelStatusFuerShop.AfterLoadDFMValues;\r\n    dsArtikelAmpelFuerShop.AfterLoadDFMValues;\r\n    dsArtikelEXP_Anzahl.AfterLoadDFMValues;\r\n    dsArtikelEXP_Inhalt.AfterLoadDFMValues;\r\n    dsArtikelEXP_Faktor.AfterLoadDFMValues;\r\n    dsArtikelFach.AfterLoadDFMValues;\r\n    dsArtikelExportKasse.AfterLoadDFMValues;\r\n    dsArtikelWKNR.AfterLoadDFMValues;\r\n    dsArtikelArtikelAttribute.AfterLoadDFMValues;\r\n    dsArtikelErstelltAm.AfterLoadDFMValues;\r\n    dsArtikelVarianteVonAN.AfterLoadDFMValues;\r\n    dsArtikelGurtmassWerte.AfterLoadDFMValues;\r\n    dsArtikelGurtmass.AfterLoadDFMValues;\r\n    dsArtikelAltersgrenze.AfterLoadDFMValues;\r\n    dsArtikelMWStKeyImHaus.AfterLoadDFMValues;\r\n    dsArtikelKasseBewegung.AfterLoadDFMValues;\r\n    dsArtikelKasseBewegungEK.AfterLoadDFMValues;\r\n    dsArtikelKasseBewegungVK.AfterLoadDFMValues;\r\n    dsArtikelProduktionBewegung.AfterLoadDFMValues;\r\n    dsArtikelProduktionBewegungEK.AfterLoadDFMValues;\r\n    dsArtikelProduktionBewegungVK.AfterLoadDFMValues;\r\n    dsArtikelWaWiAB.AfterLoadDFMValues;\r\n    dsArtikelGeaendertAm.AfterLoadDFMValues;\r\n    dsArtikelGefahrgutKennzeichen.AfterLoadDFMValues;\r\n    dsArtikelVerpackG.AfterLoadDFMValues;\r\n    dsArtikelUPE.AfterLoadDFMValues;\r\n    dsArtikelArtikelbeschreibungEinkauf.AfterLoadDFMValues;\r\n    dsArtikelHerstellerArtikelnummer.AfterLoadDFMValues;\r\n    dsArtikelNatura.AfterLoadDFMValues;\r\n    dsArtikelArbeitszeit.AfterLoadDFMValues;\r\n    dsArtikelArtderMengeArtderMenge.AfterLoadDFMValues;\r\n    xdsKundenpreise.AfterLoadDFMValues;\r\n    xdsKundenpreiseArtikelnummer.AfterLoadDFMValues;\r\n    xdsKundenpreiseKundennummer.AfterLoadDFMValues;\r\n    xdsKundenpreiseVerkaufspreis.AfterLoadDFMValues;\r\n    xdsKundenpreiseNachname.AfterLoadDFMValues;\r\n    xdsKundenpreiseRabattsatz.AfterLoadDFMValues;\r\n    xdsKundenpreiseVerleihpreis.AfterLoadDFMValues;\r\n    xdsKundenpreiseZusatzPreis.AfterLoadDFMValues;\r\n    xdsKundenpreiseArtikelnummerKunde.AfterLoadDFMValues;\r\n    xdsKundenpreiseDatumGeaendert.AfterLoadDFMValues;\r\n    xdsKundenpreiseArtikelueberschrift.AfterLoadDFMValues;\r\n    xdsKundenpreiseArtikelnummerArtikelnummer.AfterLoadDFMValues;\r\n    xdsKundenpreiseArtikelnummerArtikelueberschrift.AfterLoadDFMValues;\r\n    xdsKundenpreiseArtikelnummerArtikelbeschreibung.AfterLoadDFMValues;\r\n    dsBeleg2.AfterLoadDFMValues;\r\n    dsBeleg2Kundennummer.AfterLoadDFMValues;\r\n    dsBeleg2Nummerkomplett.AfterLoadDFMValues;\r\n    dsBeleg2ReferenzAngebot.AfterLoadDFMValues;\r\n    dsBeleg2ReferenzLieferschein.AfterLoadDFMValues;\r\n    dsBeleg2ReferenzRechnung.AfterLoadDFMValues;\r\n    dsBeleg2Datum.AfterLoadDFMValues;\r\n    dsBeleg2Jahr.AfterLoadDFMValues;\r\n    dsBeleg2Kalenderwoche.AfterLoadDFMValues;\r\n    dsBeleg2Nachname.AfterLoadDFMValues;\r\n    dsBeleg2Vorname.AfterLoadDFMValues;\r\n    dsBeleg2Postleitzahl.AfterLoadDFMValues;\r\n    dsBeleg2Ort.AfterLoadDFMValues;\r\n    dsBeleg2Laenderkuerzel.AfterLoadDFMValues;\r\n    dsBeleg2Land.AfterLoadDFMValues;\r\n    dsBeleg2Briefanrede1.AfterLoadDFMValues;\r\n    dsBeleg2Briefanrede2.AfterLoadDFMValues;\r\n    dsBeleg2EMail.AfterLoadDFMValues;\r\n    dsBeleg2AdresseBild.AfterLoadDFMValues;\r\n    dsBeleg2LieferanschriftBild.AfterLoadDFMValues;\r\n    dsBeleg2Zahlungsbedingung.AfterLoadDFMValues;\r\n    dsBeleg2ZahlungsbedingungText.AfterLoadDFMValues;\r\n    dsBeleg2Auftragsbezeichnung.AfterLoadDFMValues;\r\n    dsBeleg2AuftragnummerKunde.AfterLoadDFMValues;\r\n    dsBeleg2BestelldatumKunde.AfterLoadDFMValues;\r\n    dsBeleg2ILN.AfterLoadDFMValues;\r\n    dsBeleg2Kopftext.AfterLoadDFMValues;\r\n    dsBeleg2Schlussbemerkung.AfterLoadDFMValues;\r\n    dsBeleg2Gruss.AfterLoadDFMValues;\r\n    dsBeleg2Mehrwertsteuersatz1.AfterLoadDFMValues;\r\n    dsBeleg2Mehrwertsteuersatz2.AfterLoadDFMValues;\r\n    dsBeleg2Nettosumme01.AfterLoadDFMValues;\r\n    dsBeleg2Nettosumme02.AfterLoadDFMValues;\r\n    dsBeleg2Nettosumme.AfterLoadDFMValues;\r\n    dsBeleg2Mehrwertsteuer01.AfterLoadDFMValues;\r\n    dsBeleg2Mehrwertsteuer02.AfterLoadDFMValues;\r\n    dsBeleg2Mehrwertsteuer.AfterLoadDFMValues;\r\n    dsBeleg2Bruttosumme.AfterLoadDFMValues;\r\n    dsBeleg2Versanddatum.AfterLoadDFMValues;\r\n    dsBeleg2Skontosatz.AfterLoadDFMValues;\r\n    dsBeleg2NettosummeEK.AfterLoadDFMValues;\r\n    dsBeleg2NettoMarge.AfterLoadDFMValues;\r\n    dsBeleg2Schreibzeichen.AfterLoadDFMValues;\r\n    dsBeleg2Unterzeichner.AfterLoadDFMValues;\r\n    dsBeleg2TelefonMA.AfterLoadDFMValues;\r\n    dsBeleg2EmailMA.AfterLoadDFMValues;\r\n    dsBeleg2USTID.AfterLoadDFMValues;\r\n    dsBeleg2Umsatzsteuerausweis.AfterLoadDFMValues;\r\n    dsBeleg2gebucht.AfterLoadDFMValues;\r\n    dsBeleg2Lieferdatum.AfterLoadDFMValues;\r\n    dsBeleg2Transportbedingung.AfterLoadDFMValues;\r\n    dsBeleg2Mehrwertsteuersatz3.AfterLoadDFMValues;\r\n    dsBeleg2Mehrwertsteuer03.AfterLoadDFMValues;\r\n    dsBeleg2Nettosumme03.AfterLoadDFMValues;\r\n    dsBeleg2RundungsDifferenz.AfterLoadDFMValues;\r\n    dsBeleg2EmailText.AfterLoadDFMValues;\r\n    dsBeleg2Auftragerledigt.AfterLoadDFMValues;\r\n    dsBeleg2Rabattstufe.AfterLoadDFMValues;\r\n    dsBeleg2KFZKennzeichen.AfterLoadDFMValues;\r\n    dsBeleg2Fahrgestellnummer.AfterLoadDFMValues;\r\n    dsBeleg2KFZHersteller.AfterLoadDFMValues;\r\n    dsBeleg2Erstzulassungsdatum.AfterLoadDFMValues;\r\n    dsBeleg2KMStand.AfterLoadDFMValues;\r\n    dsBeleg2KFZType.AfterLoadDFMValues;\r\n    dsBeleg2Inspektionsdatum.AfterLoadDFMValues;\r\n    dsBeleg2Debitorennummer.AfterLoadDFMValues;\r\n    dsBeleg2Kostentraeger.AfterLoadDFMValues;\r\n    dsBeleg2Rabattsatz.AfterLoadDFMValues;\r\n    dsBeleg2ObjektReferenz.AfterLoadDFMValues;\r\n    dsBeleg2Bank.AfterLoadDFMValues;\r\n    dsBeleg2Bankleitzahl.AfterLoadDFMValues;\r\n    dsBeleg2Kontonummer.AfterLoadDFMValues;\r\n    dsBeleg2Kontoinhaber.AfterLoadDFMValues;\r\n    dsBeleg2Telefaxnummer.AfterLoadDFMValues;\r\n    dsBeleg2DatumNeu.AfterLoadDFMValues;\r\n    dsBeleg2Datumgeaendert.AfterLoadDFMValues;\r\n    dsBeleg2Objektnummer.AfterLoadDFMValues;\r\n    dsBeleg2Liefertermin.AfterLoadDFMValues;\r\n    dsBeleg2Emailversand.AfterLoadDFMValues;\r\n    dsBeleg2Telefonnummer.AfterLoadDFMValues;\r\n    dsBeleg2MobilTelefon.AfterLoadDFMValues;\r\n    dsBeleg2AuftragFax.AfterLoadDFMValues;\r\n    dsBeleg2REDatum.AfterLoadDFMValues;\r\n    dsBeleg2BenutzerNeu.AfterLoadDFMValues;\r\n    dsBeleg2BenutzerGeaendert.AfterLoadDFMValues;\r\n    dsBeleg2BerechnungBrutto.AfterLoadDFMValues;\r\n    dsBeleg2Bruttosumme01.AfterLoadDFMValues;\r\n    dsBeleg2Bruttosumme02.AfterLoadDFMValues;\r\n    dsBeleg2Bruttosumme03.AfterLoadDFMValues;\r\n    dsBeleg2Notiz.AfterLoadDFMValues;\r\n    dsBeleg2MargeProzent.AfterLoadDFMValues;\r\n    dsBeleg2Warenkreditgesperrt.AfterLoadDFMValues;\r\n    dsBeleg2Belegsprache.AfterLoadDFMValues;\r\n    dsBeleg2Duplicate.AfterLoadDFMValues;\r\n    dsBeleg2perEmail.AfterLoadDFMValues;\r\n    dsBeleg2Ansprechpartner.AfterLoadDFMValues;\r\n    dsBeleg2KundennummerFremd.AfterLoadDFMValues;\r\n    dsBeleg2Protokoll.AfterLoadDFMValues;\r\n    dsBeleg2Verleihauftrag.AfterLoadDFMValues;\r\n    dsBeleg2VerleihVon.AfterLoadDFMValues;\r\n    dsBeleg2VerleihBis.AfterLoadDFMValues;\r\n    dsBeleg2AuftragGenehmigt.AfterLoadDFMValues;\r\n    dsBeleg2gesperrt.AfterLoadDFMValues;\r\n    dsBeleg2VerleihvonText.AfterLoadDFMValues;\r\n    dsBeleg2VerleihbisText.AfterLoadDFMValues;\r\n    dsBeleg2DruckWHG.AfterLoadDFMValues;\r\n    dsBeleg2DruckWHGKurs.AfterLoadDFMValues;\r\n    dsBeleg2ProzentsatzZusatzposition.AfterLoadDFMValues;\r\n    dsBeleg2TextZusatzposition.AfterLoadDFMValues;\r\n    dsBeleg2TextzusatzBeschreibung.AfterLoadDFMValues;\r\n    dsBeleg2Layoutname.AfterLoadDFMValues;\r\n    dsBeleg2Gesamtgewicht.AfterLoadDFMValues;\r\n    dsBeleg2BetragZusatzposition.AfterLoadDFMValues;\r\n    dsBeleg2ReferenzBestellung.AfterLoadDFMValues;\r\n    dsBeleg2Termin1.AfterLoadDFMValues;\r\n    dsBeleg2Termin2.AfterLoadDFMValues;\r\n    dsBeleg2Zielkontaktnummer.AfterLoadDFMValues;\r\n    dsBeleg2Zielkontaktname.AfterLoadDFMValues;\r\n    dsBeleg2Bilddatei1.AfterLoadDFMValues;\r\n    dsBeleg2Bilddatei2.AfterLoadDFMValues;\r\n    dsBeleg2Zielkontaktnummer2.AfterLoadDFMValues;\r\n    dsBeleg2Zielkontaktname2.AfterLoadDFMValues;\r\n    dsBeleg2bestaetigt.AfterLoadDFMValues;\r\n    dsBeleg2Zielkontaktnummer3.AfterLoadDFMValues;\r\n    dsBeleg2Zielkontaktname3.AfterLoadDFMValues;\r\n    dsBeleg2Termin3.AfterLoadDFMValues;\r\n    dsBeleg2Termin4.AfterLoadDFMValues;\r\n    dsBeleg2Muster.AfterLoadDFMValues;\r\n    dsBeleg2KW.AfterLoadDFMValues;\r\n    dsBeleg2Datenlink.AfterLoadDFMValues;\r\n    dsBeleg2Mehrwertsteuersatz4.AfterLoadDFMValues;\r\n    dsBeleg2Mehrwertsteuersatz5.AfterLoadDFMValues;\r\n    dsBeleg2Mehrwertsteuersatz6.AfterLoadDFMValues;\r\n    dsBeleg2BesteuerungKey.AfterLoadDFMValues;\r\n    dsBeleg2VertreterMatchcode.AfterLoadDFMValues;\r\n    dsBeleg2Verfasser.AfterLoadDFMValues;\r\n    dsBeleg2LieferadresseID.AfterLoadDFMValues;\r\n    dsBeleg2AuftragStatus.AfterLoadDFMValues;\r\n    dsBeleg2MonatJahr.AfterLoadDFMValues;\r\n    dsBeleg2Belegvariante.AfterLoadDFMValues;\r\n    dsBeleg2Produktionsfreigabe.AfterLoadDFMValues;\r\n    dsBeleg2ReferenzRahmenAuftrag.AfterLoadDFMValues;\r\n    dsBeleg2DatumRahmenAuftrag.AfterLoadDFMValues;\r\n    dsBeleg2FahrzeugID.AfterLoadDFMValues;\r\n    dsBeleg2AuslieferungKW.AfterLoadDFMValues;\r\n    dsBeleg2BereitstellungDatum.AfterLoadDFMValues;\r\n    dsBeleg2VTUID.AfterLoadDFMValues;\r\n    dsBeleg2LieferanschriftDaten.AfterLoadDFMValues;\r\n    dsBeleg2GesamtVolumen.AfterLoadDFMValues;\r\n    dsBeleg2BelegPKey.AfterLoadDFMValues;\r\n    dsBeleg2DruckParameter.AfterLoadDFMValues;\r\n    dsBeleg2ReferenzService.AfterLoadDFMValues;\r\n    dsBeleg2ZusatzDaten.AfterLoadDFMValues;\r\n    dsBeleg2StandPDF.AfterLoadDFMValues;\r\n    dsBeleg2Paketdienst.AfterLoadDFMValues;\r\n    dsBeleg2Monteur.AfterLoadDFMValues;\r\n    dsBeleg2KundennummerKundennummer.AfterLoadDFMValues;\r\n    dsBeleg2ServiceBemerkung.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.","unit unit_EinzelAngebot;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Data.DB, WEBLib.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, XData.Web.Connection, Vcl.Controls, Vcl.StdCtrls,\r\n  WEBLib.StdCtrls, WEBLib.ExtCtrls, Vcl.Grids, WEBLib.DBCtrls, VCL.TMSFNCTypes,\r\n  VCL.TMSFNCUtils, VCL.TMSFNCGraphics, VCL.TMSFNCGraphicsTypes, strutils,weblib.json,\r\n  VCL.TMSFNCCustomControl, VCL.TMSFNCTableView, WEBLib.Buttons, WEBLib.Grids,\r\n  VCL.TMSFNCSignatureCapture, WEBLib.Mask, dateutils,\r\n  VCL.TMSFNCCustomPicker, VCL.TMSFNCDatePicker, XData.Web.Client, WEBLib.REST,\r\n  DB, Vcl.Mask;\r\n\r\ntype\r\n  TEinzelAngebot = class(TForm)\r\n    dsBeleg: TXDataWebDataSet;\r\n    SourceBeleg: TDataSource;\r\n    dsPositionen: TXDataWebDataSet;\r\n    sourcePositionen: TDataSource;\r\n    dsPositionenArtikelnummer: TXDataWebEntityField;\r\n    dsPositionenNummerkomplett: TXDataWebEntityField;\r\n    dsPositionenID: TIntegerField;\r\n    dsPositionenPosNr: TFloatField;\r\n    dsPositionenPosUNr: TFloatField;\r\n    dsPositionenSumme: TBooleanField;\r\n    dsPositionenArtikelueberschrift: TStringField;\r\n    dsPositionenArtikelbeschreibung: TStringField;\r\n    dsPositionenMenge: TFloatField;\r\n    dsPositionenArtderMenge: TStringField;\r\n    dsPositionenVerkaufspreis: TFloatField;\r\n    dsPositionenEinkaufspreis: TFloatField;\r\n    dsPositionenSeriennummer: TStringField;\r\n    dsPositionenWarengruppe: TStringField;\r\n    dsPositionenWarenuntergruppe: TStringField;\r\n    dsPositionenArtikelnummerKunde: TStringField;\r\n    dsPositionenLieferant: TStringField;\r\n    dsPositionenGewicht: TFloatField;\r\n    dsPositionenLaenge: TFloatField;\r\n    dsPositionenBreite: TFloatField;\r\n    dsPositionenHoehe: TFloatField;\r\n    dsPositionenMehrwertsteuersatz: TFloatField;\r\n    dsPositionenEndpreis: TFloatField;\r\n    dsPositionenPosMWST: TFloatField;\r\n    dsPositionenBruttoEndpreis: TFloatField;\r\n    dsPositionenEndpreis_EK: TFloatField;\r\n    dsPositionenRabattsatz: TFloatField;\r\n    dsPositionenPreisvorRabatt: TFloatField;\r\n    dsPositionenPKZ: TFloatField;\r\n    dsPositionenTextfrei10: TStringField;\r\n    dsPositionenTextfrei20: TStringField;\r\n    dsPositionenProduktionAbgeschlossen: TDateTimeField;\r\n    dsPositionenEinzelpreisBrutto: TFloatField;\r\n    dsPositionenPosMarge: TFloatField;\r\n    dsPositionenPosMargeProzent: TFloatField;\r\n    dsPositionenBereitsGeliefert: TFloatField;\r\n    dsPositionenausliefern: TFloatField;\r\n    dsPositionenBestellungErledigt: TBooleanField;\r\n    dsPositionenLager: TStringField;\r\n    dsPositionenbestellen: TBooleanField;\r\n    dsPositionenWarenbestand: TBooleanField;\r\n    dsPositionenArtikelbeschreibungRTF: TStringField;\r\n    dsPositionenQuellartikel: TStringField;\r\n    dsPositionenArtikelnummerWB: TStringField;\r\n    dsPositionenPreisanteilNetto: TFloatField;\r\n    dsPositionenSetHPos: TStringField;\r\n    dsPositionenSetUPos: TStringField;\r\n    dsPositionenProvisionssatz: TFloatField;\r\n    dsPositionenProvisionsbetrag: TFloatField;\r\n    dsPositionenArtikelsprache: TStringField;\r\n    dsPositionenEKvom: TDateTimeField;\r\n    dsPositionenMengenberechnungID: TStringField;\r\n    dsPositionenTaraID: TStringField;\r\n    dsPositionenTara: TFloatField;\r\n    dsPositionenBruttoGewicht: TFloatField;\r\n    dsPositionenAussenflaeche: TFloatField;\r\n    dsPositionenLadeort: TStringField;\r\n    dsPositionenSeitenumbruch: TBooleanField;\r\n    dsPositionenPlanerFarbe: TIntegerField;\r\n    dsPositionenMWStKey: TIntegerField;\r\n    dsPositionenZSnachPos: TBooleanField;\r\n    dsPositionenLieferzeit: TStringField;\r\n    dsPositionenPreisVorRabattWHG: TFloatField;\r\n    dsPositionenReferenzKalkulation: TStringField;\r\n    dsPositionenPKey: TIntegerField;\r\n    dsPositionenAuftragsnummer: TStringField;\r\n    dsPositionenlwbID: TStringField;\r\n    dsPositionenBelegdatum: TDateTimeField;\r\n    dsPositionenWarenkontrollnummern: TStringField;\r\n    dsPositionenVolumen: TFloatField;\r\n    dsPositionenPosVolumen: TFloatField;\r\n    dsPositionenArtikelAttribute: TStringField;\r\n    dsPositionenMonteurP: TIntegerField;\r\n    dsPositionenArbeitszeitDatum: TDateTimeField;\r\n    dsPositionenArbeitszeitVON: TDateTimeField;\r\n    dsPositionenArbeitszeitBIS: TDateTimeField;\r\n    TC: TTableControl;\r\n    dsPositionenArtikelnummerArtikelnummer: TStringField;\r\n    dsPositionenArtikelnummerArbeitszeit: TBooleanField;\r\n    dsSumBeleg: TXDataWebDataSet;\r\n    dsSumBelegPosVolumen: TFloatField;\r\n    dsSumBelegBruttoGewicht: TFloatField;\r\n    dsSumBelegMehrwertsteuersatz: TFloatField;\r\n    dsSumBelegEndpreis: TFloatField;\r\n    dsSumBelegPosMWST: TFloatField;\r\n    dsSumBelegBruttoEndpreis: TFloatField;\r\n    dsSumBelegEndpreis_EK: TFloatField;\r\n    dsSumBelegPKZ: TFloatField;\r\n    WClient: TXDataWebClient;\r\n    WebHttpRequest1: THttpRequest;\r\n    dsObjekt: TXDataWebDataSet;\r\n    dsObjektObjektReferenz: TStringField;\r\n    dsObjektKurzbezeichnung: TStringField;\r\n    dsObjektObjektnummer: TStringField;\r\n    Container1: THTMLContainer;\r\n    btnzurueck: TButton;\r\n    Container3: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    PTC: TTableControl;\r\n    btnSpeichern: TButton;\r\n    pickLieferdatum: TDBDateTimePicker;\r\n    edtAuftragsbezeichnung: TDBEdit;\r\n    edtLiefertermin: TDBEdit;\r\n    btnNeuePosition: TButton;\r\n    Container4: THTMLContainer;\r\n    dsBelegKundennummer: TXDataWebEntityField;\r\n    dsBelegKundennummerKundennummer: TStringField;\r\n    dsBelegNummerkomplett: TStringField;\r\n    dsBelegReferenzAuftagbest: TStringField;\r\n    dsBelegReferenzLieferschein: TStringField;\r\n    dsBelegReferenzRechnung: TStringField;\r\n    dsBelegDatum: TDateTimeField;\r\n    dsBelegJahr: TFloatField;\r\n    dsBelegKalenderwoche: TIntegerField;\r\n    dsBelegNachname: TStringField;\r\n    dsBelegVorname: TStringField;\r\n    dsBelegPostleitzahl: TStringField;\r\n    dsBelegOrt: TStringField;\r\n    dsBelegLaenderkuerzel: TStringField;\r\n    dsBelegLand: TStringField;\r\n    dsBelegBriefanrede1: TStringField;\r\n    dsBelegBriefanrede2: TStringField;\r\n    dsBelegEMail: TStringField;\r\n    dsBelegAdresseBild: TStringField;\r\n    dsBelegLieferanschriftBild: TStringField;\r\n    dsBelegZahlungsbedingung: TIntegerField;\r\n    dsBelegZahlungsbedingungText: TStringField;\r\n    dsBelegAuftragsbezeichnung: TStringField;\r\n    dsBelegAuftragnummerKunde: TStringField;\r\n    dsBelegBestelldatumKunde: TDateTimeField;\r\n    dsBelegILN: TStringField;\r\n    dsBelegKopftext: TStringField;\r\n    dsBelegSchlussbemerkung: TStringField;\r\n    dsBelegGruss: TStringField;\r\n    dsBelegMehrwertsteuersatz1: TFloatField;\r\n    dsBelegMehrwertsteuersatz2: TFloatField;\r\n    dsBelegNettosumme01: TFloatField;\r\n    dsBelegNettosumme02: TFloatField;\r\n    dsBelegNettosumme: TFloatField;\r\n    dsBelegMehrwertsteuer01: TFloatField;\r\n    dsBelegMehrwertsteuer02: TFloatField;\r\n    dsBelegMehrwertsteuer: TFloatField;\r\n    dsBelegBruttosumme: TFloatField;\r\n    dsBelegVersanddatum: TDateTimeField;\r\n    dsBelegSkontosatz: TFloatField;\r\n    dsBelegNettosummeEK: TFloatField;\r\n    dsBelegNettoMarge: TFloatField;\r\n    dsBelegSchreibzeichen: TStringField;\r\n    dsBelegUnterzeichner: TStringField;\r\n    dsBelegTelefonMA: TStringField;\r\n    dsBelegEmailMA: TStringField;\r\n    dsBelegUSTID: TStringField;\r\n    dsBelegUmsatzsteuerausweis: TBooleanField;\r\n    dsBeleggebucht: TBooleanField;\r\n    dsBelegLieferdatum: TDateTimeField;\r\n    dsBelegTransportbedingung: TStringField;\r\n    dsBelegMehrwertsteuersatz3: TFloatField;\r\n    dsBelegMehrwertsteuer03: TFloatField;\r\n    dsBelegNettosumme03: TFloatField;\r\n    dsBelegRundungsDifferenz: TFloatField;\r\n    dsBelegEmailText: TStringField;\r\n    dsBelegAuftragerhaltenam: TDateTimeField;\r\n    dsBelegAuftragnichterhalten: TBooleanField;\r\n    dsBelegRabattstufe: TStringField;\r\n    dsBelegKFZKennzeichen: TStringField;\r\n    dsBelegFahrgestellnummer: TStringField;\r\n    dsBelegKFZHersteller: TStringField;\r\n    dsBelegErstzulassungsdatum: TDateTimeField;\r\n    dsBelegKMStand: TStringField;\r\n    dsBelegKFZType: TStringField;\r\n    dsBelegInspektionsdatum: TDateTimeField;\r\n    dsBelegDebitorennummer: TStringField;\r\n    dsBelegKostentraeger: TStringField;\r\n    dsBelegRabattsatz: TFloatField;\r\n    dsBelegObjektReferenz: TStringField;\r\n    dsBelegBank: TStringField;\r\n    dsBelegBankleitzahl: TFloatField;\r\n    dsBelegKontonummer: TStringField;\r\n    dsBelegKontoinhaber: TStringField;\r\n    dsBelegTelefaxnummer: TStringField;\r\n    dsBelegDatumNeu: TDateTimeField;\r\n    dsBelegDatumgeaendert: TDateTimeField;\r\n    dsBelegLiefertermin: TStringField;\r\n    dsBelegObjektnummer: TStringField;\r\n    dsBelegReferenzKalkulation: TStringField;\r\n    dsBelegReferenzDatum: TDateTimeField;\r\n    dsBelegEmailversand: TBooleanField;\r\n    dsBelegTelefonnummer: TStringField;\r\n    dsBelegMobilTelefon: TStringField;\r\n    dsBelegAngebotFax: TBooleanField;\r\n    dsBelegREDatum: TDateTimeField;\r\n    dsBelegBenutzerNeu: TStringField;\r\n    dsBelegBenutzerGeaendert: TStringField;\r\n    dsBelegBerechnungBrutto: TBooleanField;\r\n    dsBelegBruttosumme01: TFloatField;\r\n    dsBelegBruttosumme02: TFloatField;\r\n    dsBelegBruttosumme03: TFloatField;\r\n    dsBelegNotiz: TStringField;\r\n    dsBelegMargeProzent: TFloatField;\r\n    dsBelegBelegsprache: TStringField;\r\n    dsBelegDuplicate: TStringField;\r\n    dsBelegperEmail: TBooleanField;\r\n    dsBelegAnsprechpartner: TStringField;\r\n    dsBelegKundennummerFremd: TStringField;\r\n    dsBelegProtokoll: TStringField;\r\n    dsBelegVerleihauftrag: TBooleanField;\r\n    dsBelegVerleihVon: TDateTimeField;\r\n    dsBelegVerleihBis: TDateTimeField;\r\n    dsBeleggesperrt: TBooleanField;\r\n    dsBelegVerleihvonText: TStringField;\r\n    dsBelegVerleihbisText: TStringField;\r\n    dsBelegDruckWHG: TStringField;\r\n    dsBelegDruckWHGKurs: TFloatField;\r\n    dsBeleggueltigbis: TDateTimeField;\r\n    dsBelegProzentsatzZusatzposition: TFloatField;\r\n    dsBelegTextZusatzposition: TStringField;\r\n    dsBelegTextzusatzBeschreibung: TStringField;\r\n    dsBelegReferenzTarifberechnung: TStringField;\r\n    dsBelegLayoutname: TStringField;\r\n    dsBelegGesamtgewicht: TFloatField;\r\n    dsBelegBetragZusatzposition: TFloatField;\r\n    dsBelegMehrwertsteuersatz4: TFloatField;\r\n    dsBelegMehrwertsteuersatz5: TFloatField;\r\n    dsBelegMehrwertsteuersatz6: TFloatField;\r\n    dsBelegBesteuerungKey: TIntegerField;\r\n    dsBelegVertreterMatchcode: TStringField;\r\n    dsBelegVerfasser: TStringField;\r\n    dsBelegLieferadresseID: TIntegerField;\r\n    dsBelegBelegvariante: TStringField;\r\n    dsBelegAuftragErwartetBis: TDateTimeField;\r\n    dsBelegAuftragWahrscheinlichkeit: TFloatField;\r\n    dsBelegFahrzeugID: TIntegerField;\r\n    dsBelegMonatJahr: TDateTimeField;\r\n    dsBelegLieferanschriftDaten: TStringField;\r\n    dsBelegGesamtVolumen: TFloatField;\r\n    dsBelegBelegPKey: TIntegerField;\r\n    dsBelegDruckParameter: TStringField;\r\n    dsBelegReferenzService: TStringField;\r\n    dsDateien: TXDataWebDataSet;\r\n    dsDateienID: TIntegerField;\r\n    dsDateienDatumUhrzeit: TDateTimeField;\r\n    dsDateienDateiBetreff: TStringField;\r\n    dsDateienNummerkomplett: TStringField;\r\n    btnDateien: TButton;\r\n    btnDateienObjekt: TButton;\r\n    btnDateienKontakt: TButton;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure dsBelegAfterOpen(DataSet: TDataSet);\r\n    procedure dsBelegAfterPost(DataSet: TDataSet);\r\n    procedure dsBelegAfterApplyUpdates(Sender: TDataSet; Info: TResolveResults);\r\n    procedure btnNeuePositionClick(Sender: TObject);\r\n    procedure WebFormCloseQuery(Sender: TObject; var CanClose: Boolean);\r\n    procedure dsBelegBeforePost(DataSet: TDataSet);\r\n    procedure dsSumBelegAfterOpen(DataSet: TDataSet);\r\n    procedure dsObjektAfterOpen(DataSet: TDataSet);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n    procedure dsPositionenAfterOpen(DataSet: TDataSet);\r\n    procedure SourceBelegStateChange(Sender: TObject);\r\n    procedure btnSpeichernClick(Sender: TObject);\r\n    procedure pickLieferdatumClick(Sender: TObject);\r\n    procedure dsDateienAfterOpen(DataSet: TDataSet);\r\n    procedure btnDateienClick(Sender: TObject);\r\n    procedure btnDateienObjektClick(Sender: TObject);\r\n    procedure btnDateienKontaktClick(Sender: TObject);\r\n\r\n    public\r\n\r\n\r\n    MerkerAngebot:string;\r\n    NeuePosition:boolean;\r\n    LetztePosNr:double;\r\n    PositionsID:string;\r\n    Belegart:string;\r\n    Belegvariante:string;\r\n    Belegnummer:string;\r\n    Artikelnummer:string;\r\n\r\n    Monteurstringlist:TStringList;\r\n    btnObjektWahl:TButton;\r\n    buttonBearbeiten:TButton;\r\n\r\n\r\n    procedure btnObjektWahlClick(Sender:TObject);\r\n    procedure buttonBearbeitenclick(Sender:TObject);\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  EinzelAngebot: TEinzelAngebot;\r\n\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_ArtikelSuche, unit_Objektsuche, unit_AngebotPosEinzel, unit_Dateien;\r\n{$R *.dfm}\r\n\r\n\r\n\r\nprocedure TEinzelAngebot.buttonBearbeitenclick(sender:TObject);\r\nvar\r\n  AngebotPosEinzel:TAngebotPosEinzel;\r\n  MyPositionsID:string;\r\n  myArtikelnummer:string;\r\nbegin\r\n  myPositionsID:=inttostr((sender as TButton).tag);\r\n  myArtikelnummer:=(sender as TButton).Hint;\r\n  Container4.HTML.text:='';\r\n  Container3.HTML.Text:='';\r\n  AngebotPosEinzel:=TAngebotPosEinzel.CreateNew(procedure(AForm: TObject)\r\n    begin\r\n      (AForm as TAngebotPosEinzel).PositionsID:=myPositionsID;\r\n      (AForm as TAngebotPosEinzel).tmpArtikelnummer:=myArtikelnummer;\r\n      (AForm as TAngebotPosEinzel).tmpKundennummer:=dsBelegKundennummerKundennummer.AsString;\r\n      (AForm as TAngebotPosEinzel).tmpMerkerAngebot:=MerkerAngebot;\r\n      (AForm as TAngebotPosEinzel).NeuePosition:=False;\r\n    end\r\n    );\r\n      AngebotPosEinzel.ShowModal(procedure(AValue: TModalResult)\r\n    begin\r\n      dsSumBeleg.Close;\r\n      dsSumBeleg.QueryString:='$filter=Nummerkomplett eq '+QuotedStr(MerkerAngebot);\r\n      dsSumBeleg.Load;\r\n    end\r\n    );\r\nend;\r\n\r\n\r\n\r\n\r\nprocedure TEinzelAngebot.btnObjektWahlClick(Sender:TObject);\r\nvar\r\n  LFrm:TfrmObjektsuche;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmObjektsuche;\r\n    begin\r\n      LForm:=(AForm as TfrmObjektsuche);\r\n      lform.Objektreferenz:='';\r\n\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      if lfrm.Objektreferenz<>'' then\r\n      begin\r\n        dsobjekt.Close;\r\n        dsobjekt.QueryString:='$filter=Objektreferenz eq '+QuotedStr(lfrm.Objektreferenz);\r\n        dsobjekt.Load;\r\n      end;\r\n\r\n\r\n    end;\r\n\r\n  begin\r\n  LFrm:=TfrmObjektsuche.CreateNew(@AfterCreate);\r\n // LFrm.Popup:=true;\r\n  LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TEinzelAngebot.dsBelegAfterApplyUpdates(Sender: TDataSet;\r\n  Info: TResolveResults);\r\nbegin\r\n    dsPositionen.Close;\r\n    dsBeleg.Close;\r\n    dsBeleg.QueryString:='$expand=Kundennummer&$filter=Nummerkomplett eq '+QuotedStr(MerkerAngebot);\r\n    dsBeleg.Load;\r\nend;\r\n\r\nprocedure TEinzelAngebot.dsBelegAfterOpen(DataSet: TDataSet);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Einzel-Angebot</h5></nav>';\r\n  //Container2.HTML.Text:='';\r\n  myelement:=container2.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  btnspeichern.ParentElement:=myelement;\r\n  myelement:=container3.elementhandle;\r\n  TC.ParentElement:=myelement;\r\n  myelement:=container4.elementhandle;\r\n  PTC.ParentElement:=myelement;\r\n\r\n\r\n\r\n  TC.RowCount:=14;\r\n  TC.Cells[0,0]:='<small><i>Angebotssnummer | Datum';\r\n  TC.Cells[0,1]:='<small><i>Kundennummer';\r\n  myelement:=TC.cellelements[0,1];\r\n  btnDateienKontakt.ParentElement:=myelement;\r\n  TC.Cells[0,2]:='<small><i>Anschrift';\r\n  TC.Cells[0,3]:='<small><i>Anfrage-Datum | -Nr.';\r\n  TC.Cells[0,4]:='<small><i>Objektnr.';\r\n  TC.Cells[0,5]:='<small><i>Auftragsbezeichnung';\r\n  TC.Cells[0,6]:='<small><i>Lieferdatum';\r\n  TC.Cells[0,7]:='<small><i>Liefertermin';\r\n\r\n  TC.Cells[0,8]:='<small><i>Netto';\r\n  TC.Cells[0,9]:='<small><i>Lieferanschrift';\r\n  TC.Cells[0,10]:='<small><i>Versanddatum';\r\n  TC.Cells[0,11]:='<small><i>Rechnung Nr. | -Datum';\r\n  TC.Cells[0,12]:='<small><i>Unterzeichner';\r\n  TC.Cells[0,13]:='<small><i>Dateien';\r\n\r\n\r\n  myelement:=tc.CellElements[1,5];\r\n  edtAuftragsbezeichnung.ParentElement:=myelement;\r\n\r\n  myelement:=tc.CellElements[1,6];\r\n  picklieferdatum.ParentElement:=myelement;\r\n\r\n  myelement:=tc.CellElements[1,7];\r\n  edtLiefertermin.ParentElement:=myelement;\r\n\r\n  myelement:=TC.cellelements[0,13];\r\n  btnDateien.ParentElement:=myelement;\r\n\r\n\r\n\r\n\r\n  if dsBeleggesperrt.AsBoolean=true then\r\n  begin\r\n    TC.Cells[1,0]:='<h5>'+dsbelegNummerkomplett.asstring +' | '+formatdatetime('DD.MM.YYYY',dsbelegDatum.asdatetime)+' | GESPERRT';\r\n  end\r\n  else\r\n  begin\r\n    TC.Cells[1,0]:='<h5>'+dsbelegNummerkomplett.asstring +' | '+formatdatetime('DD.MM.YYYY',dsbelegDatum.asdatetime)+' | Bearbeitung möglich';\r\n  end;\r\n  TC.Cells[1,1]:='<h6>'+dsBelegKundennummerKundennummer.asstring;\r\n  TC.Cells[1,2]:='<h6>'+ReplaceStr(dsbelegAdresseBild.asstring,#13+#10,'<BR>');\r\n  TC.Cells[1,3]:=formatdatetime('DD.MM.YYYY',dsbelegBestelldatumKunde.Asdatetime)+' | '+dsbelegAuftragnummerKunde.Asstring;\r\n  TC.Cells[1,4]:=dsbelegObjektnummer.Asstring;\r\n  myelement:=TC.cellelements[0,4];\r\n  btnDateienObjekt.ParentElement:=myelement;\r\n\r\n  if dsbeleggesperrt.asboolean=false then\r\n  begin\r\n    myelement:=TC.cellelements[1,4];\r\n    btnObjektWahl:=TButton.Create(self);\r\n    btnObjektWahl.ElementClassName:='btn btn-info btn-sm text-left';\r\n    btnObjektWahl.HeightStyle:=ssauto;\r\n    btnObjektWahl.WidthStyle:=ssauto;\r\n    btnObjektWahl.tag:=0;\r\n    btnObjektWahl.Caption:='ändern';\r\n    btnObjektWahl.OnClick:=@btnObjektWahlClick;\r\n    btnObjektWahl.ElementPosition:=epIgnore;\r\n    btnObjektWahl.ParentElement:=myelement;\r\n  end;\r\n\r\n\r\n\r\n\r\n  if form1.rcw.Verkaufspreise=TRUE then TC.Cells[1,8]:=formatfloat('#,##0.00',dsbelegNettosumme.Asfloat);\r\n  if form1.rcw.Verkaufspreise=FALSE then TC.Cells[1,8]:='XXX';\r\n  TC.Cells[1,9]:=ReplaceStr(dsBelegLieferanschriftBild.Asstring,#13+#10,'<BR>');\r\n  if dsbelegversanddatum.AsString<>'' then TC.Cells[1,10]:=Formatdatetime('DD.MM.YYYY',dsbelegVersanddatum.Asdatetime);\r\n  TC.Cells[1,11]:=dsbelegreferenzrechnung.AsString+' | '+dsbelegREDatum.AsString;\r\n  TC.Cells[1,12]:=dsbelegUnterzeichner.AsString;\r\n\r\n\r\n  dsdateien.close;\r\n  dsdateien.querystring:='$select=ID,DatumUhrzeit, DateiBetreff&$filter=Nummerkomplett eq '+ QuotedStr(MerkerAngebot)+'&$orderby=ID';\r\n  Dsdateien.load;\r\n\r\nend;\r\n\r\nprocedure TEinzelAngebot.dsBelegAfterPost(DataSet: TDataSet);\r\nbegin\r\n  if LizenzOK then\r\n  begin\r\n    dsBeleg.ApplyUpdates;\r\n  end\r\n  else\r\n  begin\r\n    showmessage('Für das Speichern von Daten sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n  end;\r\nend;\r\n\r\nprocedure TEinzelAngebot.dsBelegBeforePost(DataSet: TDataSet);\r\nvar\r\n  tempnettosumme:double;\r\n  tempnettosumme01:double;\r\n  tempnettosumme02:double;\r\n  tempnettosumme03:double;\r\n  tempnettosummeEK:double;\r\nbegin\r\n\r\n\r\n  if dssumBeleg.Active then\r\n  begin\r\n  if dsSumBeleg.RecordCount>0 then\r\n  begin\r\n    tempnettosumme:=0;\r\n    tempnettosumme01:=0;\r\n    tempnettosumme02:=0;\r\n    tempnettosumme03:=0;\r\n    tempnettosummeEK:=0;\r\n    dsSumBeleg.First;\r\n\r\n    while not dsSumBeleg.eof do\r\n    begin\r\n      tempnettosumme:=tempnettosumme+dsSumBelegEndpreis.AsFloat;\r\n      if dsSumBelegPKZ.AsFloat=0 then tempnettosummeEK:=tempnettosummeEK+dsSumBelegEndpreis_EK.AsFloat;\r\n      if dsBelegMehrwertsteuersatz1.AsFloat=dsSumBelegMehrwertsteuersatz.asfloat then\r\n      begin\r\n        tempnettosumme01:=tempnettosumme01+dsSumBelegEndpreis.AsFloat;\r\n      end;\r\n      if dsBelegMehrwertsteuersatz2.AsFloat=dsSumBelegMehrwertsteuersatz.asfloat then\r\n      begin\r\n        tempnettosumme02:=tempnettosumme02+dsSumBelegEndpreis.AsFloat;\r\n      end;\r\n      if dsBelegMehrwertsteuersatz3.AsFloat=dsSumBelegMehrwertsteuersatz.asfloat then\r\n      begin\r\n        tempnettosumme03:=tempnettosumme03+dsSumBelegEndpreis.AsFloat;\r\n      end;\r\n      dsSumBeleg.Next;\r\n    end;\r\n\r\n    dsBelegNettosumme.AsFloat:=tempnettosumme;\r\n    dsBelegNettosumme01.AsFloat:=tempnettosumme01;\r\n    dsBelegNettosumme02.AsFloat:=tempnettosumme02;\r\n    dsBelegNettosumme03.AsFloat:=tempnettosumme03;\r\n    dsBelegNettosummeEK.AsFloat:=tempnettosummeEK;\r\n\r\n\r\n  end;\r\n  end;\r\n  dsSumBeleg.Close;\r\n  dsbelegprotokoll.asstring:=dsbelegprotokoll.asstring+datetimetostr(date+time)+' CadiaWEB '+ BenutzerSchreibzeichen+#13+#10;\r\n\r\nend;\r\n\r\nprocedure TEinzelAngebot.dsDateienAfterOpen(DataSet: TDataSet);\r\nvar\r\n  tempstringdateien:string;\r\nbegin\r\n  dsdateien.first;\r\n  while not dsdateien.eof do\r\n  begin\r\n    tempstringdateien:=tempstringdateien+formatdatetime('DD.MM.YYYY hh:mm:ss',dsdateiendatumuhrzeit.asdatetime)+' | '+dsdateiendateibetreff.asstring+'<br>';\r\n    dsdateien.next;\r\n  end;\r\n  TC.cells[1,13]:=tempstringdateien;\r\n\r\n  dsPositionen.QueryString:='$expand=Artikelnummer&$filter=Nummerkomplett eq '+QuotedStr(MerkerAngebot)+'&$orderby=PosNr';\r\n  dsPositionen.Load;\r\nend;\r\n\r\nprocedure TEinzelAngebot.dsObjektAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  dsbeleg.Edit;\r\n  dsbelegObjektReferenz.AsString:=dsObjektObjektReferenz.AsString;\r\n  dsbelegObjektnummer.AsString:=dsObjektObjektnummer.AsString;\r\n  dsobjekt.Close;\r\n  dsbeleg.post;\r\nend;\r\n\r\nprocedure TEinzelAngebot.dsPositionenAfterOpen(DataSet: TDataSet);\r\nvar\r\n  I: Integer;\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  PTC.RowCount:=dsPositionen.RecordCount+1;\r\n  PTC.ColCount:=4;\r\n  myelement:=PTC.CellElements[0,0];\r\n  btnNeuePosition.ParentElement:=myelement;\r\n  PTC.Cells[1,0]:='Positionen/Artikel';\r\n  PTC.Cells[2,0]:='Menge';\r\n  PTC.Cells[3,0]:='Preise';\r\n  //PTC.Cells[7,0]:='Endpreis';\r\n\r\n  dspositionen.First;\r\n  for I := 1 to dspositionen.RecordCount do\r\n  begin\r\n    PTC.Cells[0,i]:=dspositionen.FieldByName('PosNr').AsString+'.'+dspositionen.FieldByName('PosUNr').AsString+'<br>';\r\n\r\n    myelement:=PTC.cellelements[0,i];\r\n    buttonBearbeiten:=TButton.Create(self);\r\n    buttonBearbeiten.ElementClassName:='btn btn-info btn-sm text-left';\r\n    buttonBearbeiten.HeightStyle:=ssauto;\r\n    buttonBearbeiten.WidthStyle:=ssauto;\r\n    buttonBearbeiten.TabStop:=false;\r\n    buttonBearbeiten.tag:=dsPositionenID.asinteger;\r\n    buttonBearbeiten.Hint:=dsPositionenArtikelnummerArtikelnummer.AsString;\r\n    buttonBearbeiten.Caption:='bearbeiten';\r\n    buttonBearbeiten.ElementPosition:=epIgnore;\r\n    buttonBearbeiten.OnClick:=@buttonBearbeitenClick;\r\n    buttonBearbeiten.ParentElement:=myelement;\r\n\r\n    PTC.Cells[1,i]:=dspositionen.FieldByName('Artikelnummer.Artikelnummer').AsString+'<br><b>'+dspositionen.FieldByName('Artikelueberschrift').AsString+'</b><br>'+leftstr(dspositionenArtikelbeschreibung.AsString,250)+'<br>'+dsPositionenMonteurP.AsString;;\r\n    PTC.Cells[2,i]:='<p class=\"text-right\">'+dspositionen.FieldByName('Menge').AsString + '<br>'+dsPositionenArtderMenge.asstring;\r\n    if form1.rcw.Verkaufspreise=true then PTC.Cells[3,i]:='<p class=\"text-right\">'+formatfloat('#,##0.00',dsPositionenVerkaufspreis.Asfloat)+'<br><b>'+formatfloat('#,##0.00',dsPositionenEndpreis.Asfloat);\r\n    if form1.rcw.Verkaufspreise=false then PTC.Cells[3,i]:='<p class=\"text-right\">XXX';\r\n    //if not einkauf then PTC.Cells[6,i]:='<p class=\"text-right\">'+formatfloat('#,##0.00',xdsPositionen.fieldbyname('Verkaufspreis').asfloat);\r\n    //if not einkauf then PTC.Cells[7,i]:='<p class=\"text-right\">'+formatfloat('#,##0.00',xdsPositionen.fieldbyname('Endpreis').asfloat);\r\n    dspositionen.Next;\r\n  end;\r\nend;\r\n\r\nprocedure TEinzelAngebot.dsSumBelegAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  dsbeleg.Edit;\r\n  dsbeleg.Post;\r\nend;\r\n\r\nprocedure TEinzelAngebot.pickLieferdatumClick(Sender: TObject);\r\nbegin\r\n  if dsBelegLieferdatum.AsString='' then\r\n  begin\r\n    dsbeleg.Edit;\r\n    dsbeleglieferdatum.AsDateTime:=date;\r\n  end;\r\nend;\r\n\r\nprocedure TEinzelAngebot.SourceBelegStateChange(Sender: TObject);\r\nbegin\r\n  if dsBeleg.State in dseditmodes then btnspeichern.Enabled:=true else btnspeichern.Enabled:=false;\r\nend;\r\n\r\nprocedure TEinzelAngebot.btnDateienClick(Sender: TObject);\r\nvar\r\n  LFrm:TfrmDateien;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmDateien;\r\n    begin\r\n      LForm:=(AForm as TfrmDateien);\r\n      lform.MerkerObjektreferenz:=dsBelegObjektReferenz.asstring;\r\n      lform.MerkerNummerkomplett:=MerkerAngebot;\r\n      lform.MerkerKundennummer:=dsBelegKundennummerKundennummer.AsString;\r\n      lform.MerkerFahrzeugID:='';\r\n      lform.MerkerName:=trim(dsbelegvorname.asstring+' '+ dsBelegNachname.AsString);\r\n      lform.MerkerArt:='Angebot';\r\n      lform.HeadlineText:='Dateien zu Angebot '+dsBelegNummerkomplett.AsString+' | '+dsBelegAuftragsbezeichnung.AsString;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      dsdateien.Close;\r\n      dsPositionen.Close;\r\n      dsBeleg.Close;\r\n      dsBeleg.QueryString:='$expand=Kundennummer&$filter=Nummerkomplett eq '+QuotedStr(MerkerAngebot);\r\n      dsBeleg.Load;\r\n    end;\r\n\r\n  begin\r\n  Container4.HTML.text:='';\r\n  Container3.HTML.Text:='';\r\n  LFrm:=TfrmDateien.CreateNew(@AfterCreate);\r\n  LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TEinzelAngebot.btnDateienKontaktClick(Sender: TObject);\r\nvar\r\n  LFrm:TfrmDateien;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmDateien;\r\n    begin\r\n      LForm:=(AForm as TfrmDateien);\r\n      lform.MerkerObjektreferenz:=dsBelegObjektReferenz.asstring;\r\n      lform.MerkerNummerkomplett:=MerkerAngebot;\r\n      lform.MerkerKundennummer:=dsBelegKundennummerKundennummer.AsString;\r\n      lform.MerkerFahrzeugID:='';\r\n      lform.MerkerName:=trim(dsbelegvorname.asstring+' '+ dsBelegNachname.AsString);\r\n      lform.MerkerArt:='Kontakt';\r\n      lform.HeadlineText:='Dateien zu Kontakt '+dsBelegKundennummerKundennummer.AsString+' | '+dsBelegNachname.AsString;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      dsdateien.Close;\r\n      dsPositionen.Close;\r\n      dsBeleg.Close;\r\n      dsBeleg.QueryString:='$expand=Kundennummer&$filter=Nummerkomplett eq '+QuotedStr(MerkerAngebot);\r\n      dsBeleg.Load;\r\n    end;\r\n\r\n  begin\r\n  If dsBelegKundennummerKundennummer.AsString<>'' then\r\n  begin\r\n    Container4.HTML.text:='';\r\n    Container3.HTML.Text:='';\r\n    LFrm:=TfrmDateien.CreateNew(@AfterCreate);\r\n    LFrm.ShowModal(@AfterShowmodal);\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TEinzelAngebot.btnDateienObjektClick(Sender: TObject);\r\nvar\r\n  LFrm:TfrmDateien;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmDateien;\r\n    begin\r\n      LForm:=(AForm as TfrmDateien);\r\n      lform.MerkerObjektreferenz:=dsBelegObjektReferenz.asstring;\r\n      lform.MerkerNummerkomplett:=MerkerAngebot;\r\n      lform.MerkerKundennummer:=dsBelegKundennummerKundennummer.AsString;\r\n      lform.MerkerFahrzeugID:='';\r\n      lform.MerkerName:=trim(dsbelegvorname.asstring+' '+ dsBelegNachname.AsString);\r\n      lform.MerkerArt:='Objekt';\r\n      lform.HeadlineText:='Dateien zu Objekt '+dsBelegObjektnummer.AsString;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      dsdateien.Close;\r\n      dsPositionen.Close;\r\n      dsBeleg.Close;\r\n      dsBeleg.QueryString:='$expand=Kundennummer&$filter=Nummerkomplett eq '+QuotedStr(MerkerAngebot);\r\n      dsBeleg.Load;\r\n    end;\r\n\r\n  begin\r\n  if dsBelegObjektReferenz.asstring<>'' then\r\n  begin\r\n    Container4.HTML.text:='';\r\n    Container3.HTML.Text:='';\r\n    LFrm:=TfrmDateien.CreateNew(@AfterCreate);\r\n    LFrm.ShowModal(@AfterShowmodal);\r\n  end;\r\nend;\r\n\r\nprocedure TEinzelAngebot.btnNeuePositionClick(Sender: TObject);\r\nvar\r\n  AngebotPosEinzel:TAngebotPosEinzel;\r\nbegin\r\n  if dspositionen.RecordCount>0 then\r\n  begin\r\n    dsPositionen.Last;\r\n    positionsid:=dsPositionenID.AsString;\r\n    LetztePosNr:=dsPositionenPosNr.AsFloat;\r\n  end\r\n  else\r\n  begin\r\n    LetztePosNr:=0;\r\n    positionsid:='';\r\n  end;\r\n  Container4.HTML.text:='';\r\n  Container3.HTML.Text:='';\r\n\r\n  AngebotPosEinzel:=TAngebotPosEinzel.CreateNew(procedure(BForm: TObject)\r\n    begin\r\n      (BForm as TAngebotPosEinzel).PositionsID:='';\r\n      (BForm as TAngebotPosEinzel).tmpArtikelnummer:='';\r\n      (BForm as TAngebotPosEinzel).tmpKundennummer:=dsBelegKundennummerKundennummer.AsString;\r\n      (BForm as TAngebotPosEinzel).tmpMerkerAngebot:=MerkerAngebot;\r\n      (BForm as TAngebotPosEinzel).NeuePosition:=True;\r\n      (BForm as TAngebotPosEinzel).tmpletztePosNr:=LetztePosNr;\r\n    end\r\n    );\r\n      AngebotPosEinzel.ShowModal(procedure(AValue: TModalResult)\r\n    begin\r\n      dsSumBeleg.Close;\r\n      dsSumBeleg.QueryString:='$filter=Nummerkomplett eq '+QuotedStr(MerkerAngebot);\r\n      dsSumBeleg.Load;\r\n    end\r\n    );\r\n\r\nend;\r\n\r\nprocedure TEinzelAngebot.btnSpeichernClick(Sender: TObject);\r\nbegin\r\n  dsbeleg.Post;\r\nend;\r\n\r\nprocedure TEinzelAngebot.btnzurueckClick(Sender: TObject);\r\nbegin\r\ndspositionen.Close;\r\ndsbeleg.Close;\r\nself.Close;\r\nend;\r\n\r\nprocedure TEinzelAngebot.WebFormCloseQuery(Sender: TObject;\r\n  var CanClose: Boolean);\r\nbegin\r\n  monteurstringlist.Free;\r\n\r\nend;\r\n\r\nprocedure TEinzelAngebot.WebFormShow(Sender: TObject);\r\n var\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n\r\n\r\n  if MerkerAngebot<>'' then\r\n  begin\r\n    dsPositionen.Close;\r\n    dsBeleg.Close;\r\n    dsBeleg.QueryString:='$expand=Kundennummer&$filter=Nummerkomplett eq '+QuotedStr(MerkerAngebot);\r\n    dsBeleg.Load;\r\n  end;\r\nend;\r\n\r\nprocedure TEinzelAngebot.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  TC := TTableControl.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  PTC := TTableControl.Create(Self);\r\n  btnSpeichern := TButton.Create(Self);\r\n  pickLieferdatum := TDBDateTimePicker.Create(Self);\r\n  edtAuftragsbezeichnung := TDBEdit.Create(Self);\r\n  edtLiefertermin := TDBEdit.Create(Self);\r\n  btnNeuePosition := TButton.Create(Self);\r\n  Container4 := THTMLContainer.Create(Self);\r\n  btnDateien := TButton.Create(Self);\r\n  btnDateienObjekt := TButton.Create(Self);\r\n  btnDateienKontakt := TButton.Create(Self);\r\n  dsBeleg := TXDataWebDataSet.Create(Self);\r\n  dsBelegKundennummer := TXDataWebEntityField.Create(Self);\r\n  dsBelegKundennummerKundennummer := TStringField.Create(Self);\r\n  dsBelegNummerkomplett := TStringField.Create(Self);\r\n  dsBelegReferenzAuftagbest := TStringField.Create(Self);\r\n  dsBelegReferenzLieferschein := TStringField.Create(Self);\r\n  dsBelegReferenzRechnung := TStringField.Create(Self);\r\n  dsBelegDatum := TDateTimeField.Create(Self);\r\n  dsBelegJahr := TFloatField.Create(Self);\r\n  dsBelegKalenderwoche := TIntegerField.Create(Self);\r\n  dsBelegNachname := TStringField.Create(Self);\r\n  dsBelegVorname := TStringField.Create(Self);\r\n  dsBelegPostleitzahl := TStringField.Create(Self);\r\n  dsBelegOrt := TStringField.Create(Self);\r\n  dsBelegLaenderkuerzel := TStringField.Create(Self);\r\n  dsBelegLand := TStringField.Create(Self);\r\n  dsBelegBriefanrede1 := TStringField.Create(Self);\r\n  dsBelegBriefanrede2 := TStringField.Create(Self);\r\n  dsBelegEMail := TStringField.Create(Self);\r\n  dsBelegAdresseBild := TStringField.Create(Self);\r\n  dsBelegLieferanschriftBild := TStringField.Create(Self);\r\n  dsBelegZahlungsbedingung := TIntegerField.Create(Self);\r\n  dsBelegZahlungsbedingungText := TStringField.Create(Self);\r\n  dsBelegAuftragsbezeichnung := TStringField.Create(Self);\r\n  dsBelegAuftragnummerKunde := TStringField.Create(Self);\r\n  dsBelegBestelldatumKunde := TDateTimeField.Create(Self);\r\n  dsBelegILN := TStringField.Create(Self);\r\n  dsBelegKopftext := TStringField.Create(Self);\r\n  dsBelegSchlussbemerkung := TStringField.Create(Self);\r\n  dsBelegGruss := TStringField.Create(Self);\r\n  dsBelegMehrwertsteuersatz1 := TFloatField.Create(Self);\r\n  dsBelegMehrwertsteuersatz2 := TFloatField.Create(Self);\r\n  dsBelegNettosumme01 := TFloatField.Create(Self);\r\n  dsBelegNettosumme02 := TFloatField.Create(Self);\r\n  dsBelegNettosumme := TFloatField.Create(Self);\r\n  dsBelegMehrwertsteuer01 := TFloatField.Create(Self);\r\n  dsBelegMehrwertsteuer02 := TFloatField.Create(Self);\r\n  dsBelegMehrwertsteuer := TFloatField.Create(Self);\r\n  dsBelegBruttosumme := TFloatField.Create(Self);\r\n  dsBelegVersanddatum := TDateTimeField.Create(Self);\r\n  dsBelegSkontosatz := TFloatField.Create(Self);\r\n  dsBelegNettosummeEK := TFloatField.Create(Self);\r\n  dsBelegNettoMarge := TFloatField.Create(Self);\r\n  dsBelegSchreibzeichen := TStringField.Create(Self);\r\n  dsBelegUnterzeichner := TStringField.Create(Self);\r\n  dsBelegTelefonMA := TStringField.Create(Self);\r\n  dsBelegEmailMA := TStringField.Create(Self);\r\n  dsBelegUSTID := TStringField.Create(Self);\r\n  dsBelegUmsatzsteuerausweis := TBooleanField.Create(Self);\r\n  dsBeleggebucht := TBooleanField.Create(Self);\r\n  dsBelegLieferdatum := TDateTimeField.Create(Self);\r\n  dsBelegTransportbedingung := TStringField.Create(Self);\r\n  dsBelegMehrwertsteuersatz3 := TFloatField.Create(Self);\r\n  dsBelegMehrwertsteuer03 := TFloatField.Create(Self);\r\n  dsBelegNettosumme03 := TFloatField.Create(Self);\r\n  dsBelegRundungsDifferenz := TFloatField.Create(Self);\r\n  dsBelegEmailText := TStringField.Create(Self);\r\n  dsBelegAuftragerhaltenam := TDateTimeField.Create(Self);\r\n  dsBelegAuftragnichterhalten := TBooleanField.Create(Self);\r\n  dsBelegRabattstufe := TStringField.Create(Self);\r\n  dsBelegKFZKennzeichen := TStringField.Create(Self);\r\n  dsBelegFahrgestellnummer := TStringField.Create(Self);\r\n  dsBelegKFZHersteller := TStringField.Create(Self);\r\n  dsBelegErstzulassungsdatum := TDateTimeField.Create(Self);\r\n  dsBelegKMStand := TStringField.Create(Self);\r\n  dsBelegKFZType := TStringField.Create(Self);\r\n  dsBelegInspektionsdatum := TDateTimeField.Create(Self);\r\n  dsBelegDebitorennummer := TStringField.Create(Self);\r\n  dsBelegKostentraeger := TStringField.Create(Self);\r\n  dsBelegRabattsatz := TFloatField.Create(Self);\r\n  dsBelegObjektReferenz := TStringField.Create(Self);\r\n  dsBelegBank := TStringField.Create(Self);\r\n  dsBelegBankleitzahl := TFloatField.Create(Self);\r\n  dsBelegKontonummer := TStringField.Create(Self);\r\n  dsBelegKontoinhaber := TStringField.Create(Self);\r\n  dsBelegTelefaxnummer := TStringField.Create(Self);\r\n  dsBelegDatumNeu := TDateTimeField.Create(Self);\r\n  dsBelegDatumgeaendert := TDateTimeField.Create(Self);\r\n  dsBelegLiefertermin := TStringField.Create(Self);\r\n  dsBelegObjektnummer := TStringField.Create(Self);\r\n  dsBelegReferenzKalkulation := TStringField.Create(Self);\r\n  dsBelegReferenzDatum := TDateTimeField.Create(Self);\r\n  dsBelegEmailversand := TBooleanField.Create(Self);\r\n  dsBelegTelefonnummer := TStringField.Create(Self);\r\n  dsBelegMobilTelefon := TStringField.Create(Self);\r\n  dsBelegAngebotFax := TBooleanField.Create(Self);\r\n  dsBelegREDatum := TDateTimeField.Create(Self);\r\n  dsBelegBenutzerNeu := TStringField.Create(Self);\r\n  dsBelegBenutzerGeaendert := TStringField.Create(Self);\r\n  dsBelegBerechnungBrutto := TBooleanField.Create(Self);\r\n  dsBelegBruttosumme01 := TFloatField.Create(Self);\r\n  dsBelegBruttosumme02 := TFloatField.Create(Self);\r\n  dsBelegBruttosumme03 := TFloatField.Create(Self);\r\n  dsBelegNotiz := TStringField.Create(Self);\r\n  dsBelegMargeProzent := TFloatField.Create(Self);\r\n  dsBelegBelegsprache := TStringField.Create(Self);\r\n  dsBelegDuplicate := TStringField.Create(Self);\r\n  dsBelegperEmail := TBooleanField.Create(Self);\r\n  dsBelegAnsprechpartner := TStringField.Create(Self);\r\n  dsBelegKundennummerFremd := TStringField.Create(Self);\r\n  dsBelegProtokoll := TStringField.Create(Self);\r\n  dsBelegVerleihauftrag := TBooleanField.Create(Self);\r\n  dsBelegVerleihVon := TDateTimeField.Create(Self);\r\n  dsBelegVerleihBis := TDateTimeField.Create(Self);\r\n  dsBeleggesperrt := TBooleanField.Create(Self);\r\n  dsBelegVerleihvonText := TStringField.Create(Self);\r\n  dsBelegVerleihbisText := TStringField.Create(Self);\r\n  dsBelegDruckWHG := TStringField.Create(Self);\r\n  dsBelegDruckWHGKurs := TFloatField.Create(Self);\r\n  dsBeleggueltigbis := TDateTimeField.Create(Self);\r\n  dsBelegProzentsatzZusatzposition := TFloatField.Create(Self);\r\n  dsBelegTextZusatzposition := TStringField.Create(Self);\r\n  dsBelegTextzusatzBeschreibung := TStringField.Create(Self);\r\n  dsBelegReferenzTarifberechnung := TStringField.Create(Self);\r\n  dsBelegLayoutname := TStringField.Create(Self);\r\n  dsBelegGesamtgewicht := TFloatField.Create(Self);\r\n  dsBelegBetragZusatzposition := TFloatField.Create(Self);\r\n  dsBelegMehrwertsteuersatz4 := TFloatField.Create(Self);\r\n  dsBelegMehrwertsteuersatz5 := TFloatField.Create(Self);\r\n  dsBelegMehrwertsteuersatz6 := TFloatField.Create(Self);\r\n  dsBelegBesteuerungKey := TIntegerField.Create(Self);\r\n  dsBelegVertreterMatchcode := TStringField.Create(Self);\r\n  dsBelegVerfasser := TStringField.Create(Self);\r\n  dsBelegLieferadresseID := TIntegerField.Create(Self);\r\n  dsBelegBelegvariante := TStringField.Create(Self);\r\n  dsBelegAuftragErwartetBis := TDateTimeField.Create(Self);\r\n  dsBelegAuftragWahrscheinlichkeit := TFloatField.Create(Self);\r\n  dsBelegFahrzeugID := TIntegerField.Create(Self);\r\n  dsBelegMonatJahr := TDateTimeField.Create(Self);\r\n  dsBelegLieferanschriftDaten := TStringField.Create(Self);\r\n  dsBelegGesamtVolumen := TFloatField.Create(Self);\r\n  dsBelegBelegPKey := TIntegerField.Create(Self);\r\n  dsBelegDruckParameter := TStringField.Create(Self);\r\n  dsBelegReferenzService := TStringField.Create(Self);\r\n  SourceBeleg := TDataSource.Create(Self);\r\n  dsPositionen := TXDataWebDataSet.Create(Self);\r\n  dsPositionenArtikelnummer := TXDataWebEntityField.Create(Self);\r\n  dsPositionenNummerkomplett := TXDataWebEntityField.Create(Self);\r\n  dsPositionenID := TIntegerField.Create(Self);\r\n  dsPositionenPosNr := TFloatField.Create(Self);\r\n  dsPositionenPosUNr := TFloatField.Create(Self);\r\n  dsPositionenSumme := TBooleanField.Create(Self);\r\n  dsPositionenArtikelueberschrift := TStringField.Create(Self);\r\n  dsPositionenArtikelbeschreibung := TStringField.Create(Self);\r\n  dsPositionenMenge := TFloatField.Create(Self);\r\n  dsPositionenArtderMenge := TStringField.Create(Self);\r\n  dsPositionenVerkaufspreis := TFloatField.Create(Self);\r\n  dsPositionenEinkaufspreis := TFloatField.Create(Self);\r\n  dsPositionenSeriennummer := TStringField.Create(Self);\r\n  dsPositionenWarengruppe := TStringField.Create(Self);\r\n  dsPositionenWarenuntergruppe := TStringField.Create(Self);\r\n  dsPositionenArtikelnummerKunde := TStringField.Create(Self);\r\n  dsPositionenLieferant := TStringField.Create(Self);\r\n  dsPositionenGewicht := TFloatField.Create(Self);\r\n  dsPositionenLaenge := TFloatField.Create(Self);\r\n  dsPositionenBreite := TFloatField.Create(Self);\r\n  dsPositionenHoehe := TFloatField.Create(Self);\r\n  dsPositionenMehrwertsteuersatz := TFloatField.Create(Self);\r\n  dsPositionenEndpreis := TFloatField.Create(Self);\r\n  dsPositionenPosMWST := TFloatField.Create(Self);\r\n  dsPositionenBruttoEndpreis := TFloatField.Create(Self);\r\n  dsPositionenEndpreis_EK := TFloatField.Create(Self);\r\n  dsPositionenRabattsatz := TFloatField.Create(Self);\r\n  dsPositionenPreisvorRabatt := TFloatField.Create(Self);\r\n  dsPositionenPKZ := TFloatField.Create(Self);\r\n  dsPositionenTextfrei10 := TStringField.Create(Self);\r\n  dsPositionenTextfrei20 := TStringField.Create(Self);\r\n  dsPositionenProduktionAbgeschlossen := TDateTimeField.Create(Self);\r\n  dsPositionenEinzelpreisBrutto := TFloatField.Create(Self);\r\n  dsPositionenPosMarge := TFloatField.Create(Self);\r\n  dsPositionenPosMargeProzent := TFloatField.Create(Self);\r\n  dsPositionenBereitsGeliefert := TFloatField.Create(Self);\r\n  dsPositionenausliefern := TFloatField.Create(Self);\r\n  dsPositionenBestellungErledigt := TBooleanField.Create(Self);\r\n  dsPositionenLager := TStringField.Create(Self);\r\n  dsPositionenbestellen := TBooleanField.Create(Self);\r\n  dsPositionenWarenbestand := TBooleanField.Create(Self);\r\n  dsPositionenArtikelbeschreibungRTF := TStringField.Create(Self);\r\n  dsPositionenQuellartikel := TStringField.Create(Self);\r\n  dsPositionenArtikelnummerWB := TStringField.Create(Self);\r\n  dsPositionenPreisanteilNetto := TFloatField.Create(Self);\r\n  dsPositionenSetHPos := TStringField.Create(Self);\r\n  dsPositionenSetUPos := TStringField.Create(Self);\r\n  dsPositionenProvisionssatz := TFloatField.Create(Self);\r\n  dsPositionenProvisionsbetrag := TFloatField.Create(Self);\r\n  dsPositionenArtikelsprache := TStringField.Create(Self);\r\n  dsPositionenEKvom := TDateTimeField.Create(Self);\r\n  dsPositionenMengenberechnungID := TStringField.Create(Self);\r\n  dsPositionenTaraID := TStringField.Create(Self);\r\n  dsPositionenTara := TFloatField.Create(Self);\r\n  dsPositionenBruttoGewicht := TFloatField.Create(Self);\r\n  dsPositionenAussenflaeche := TFloatField.Create(Self);\r\n  dsPositionenLadeort := TStringField.Create(Self);\r\n  dsPositionenSeitenumbruch := TBooleanField.Create(Self);\r\n  dsPositionenPlanerFarbe := TIntegerField.Create(Self);\r\n  dsPositionenMWStKey := TIntegerField.Create(Self);\r\n  dsPositionenZSnachPos := TBooleanField.Create(Self);\r\n  dsPositionenLieferzeit := TStringField.Create(Self);\r\n  dsPositionenPreisVorRabattWHG := TFloatField.Create(Self);\r\n  dsPositionenReferenzKalkulation := TStringField.Create(Self);\r\n  dsPositionenPKey := TIntegerField.Create(Self);\r\n  dsPositionenAuftragsnummer := TStringField.Create(Self);\r\n  dsPositionenlwbID := TStringField.Create(Self);\r\n  dsPositionenBelegdatum := TDateTimeField.Create(Self);\r\n  dsPositionenWarenkontrollnummern := TStringField.Create(Self);\r\n  dsPositionenVolumen := TFloatField.Create(Self);\r\n  dsPositionenPosVolumen := TFloatField.Create(Self);\r\n  dsPositionenArtikelAttribute := TStringField.Create(Self);\r\n  dsPositionenMonteurP := TIntegerField.Create(Self);\r\n  dsPositionenArbeitszeitDatum := TDateTimeField.Create(Self);\r\n  dsPositionenArbeitszeitVON := TDateTimeField.Create(Self);\r\n  dsPositionenArbeitszeitBIS := TDateTimeField.Create(Self);\r\n  dsPositionenArtikelnummerArtikelnummer := TStringField.Create(Self);\r\n  dsPositionenArtikelnummerArbeitszeit := TBooleanField.Create(Self);\r\n  sourcePositionen := TDataSource.Create(Self);\r\n  dsSumBeleg := TXDataWebDataSet.Create(Self);\r\n  dsSumBelegPosVolumen := TFloatField.Create(Self);\r\n  dsSumBelegBruttoGewicht := TFloatField.Create(Self);\r\n  dsSumBelegMehrwertsteuersatz := TFloatField.Create(Self);\r\n  dsSumBelegEndpreis := TFloatField.Create(Self);\r\n  dsSumBelegPosMWST := TFloatField.Create(Self);\r\n  dsSumBelegBruttoEndpreis := TFloatField.Create(Self);\r\n  dsSumBelegEndpreis_EK := TFloatField.Create(Self);\r\n  dsSumBelegPKZ := TFloatField.Create(Self);\r\n  WClient := TXDataWebClient.Create(Self);\r\n  WebHttpRequest1 := THttpRequest.Create(Self);\r\n  dsObjekt := TXDataWebDataSet.Create(Self);\r\n  dsObjektObjektReferenz := TStringField.Create(Self);\r\n  dsObjektKurzbezeichnung := TStringField.Create(Self);\r\n  dsObjektObjektnummer := TStringField.Create(Self);\r\n  dsDateien := TXDataWebDataSet.Create(Self);\r\n  dsDateienID := TIntegerField.Create(Self);\r\n  dsDateienDatumUhrzeit := TDateTimeField.Create(Self);\r\n  dsDateienDateiBetreff := TStringField.Create(Self);\r\n  dsDateienNummerkomplett := TStringField.Create(Self);\r\n\r\n  TC.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  PTC.BeforeLoadDFMValues;\r\n  btnSpeichern.BeforeLoadDFMValues;\r\n  pickLieferdatum.BeforeLoadDFMValues;\r\n  edtAuftragsbezeichnung.BeforeLoadDFMValues;\r\n  edtLiefertermin.BeforeLoadDFMValues;\r\n  btnNeuePosition.BeforeLoadDFMValues;\r\n  Container4.BeforeLoadDFMValues;\r\n  btnDateien.BeforeLoadDFMValues;\r\n  btnDateienObjekt.BeforeLoadDFMValues;\r\n  btnDateienKontakt.BeforeLoadDFMValues;\r\n  dsBeleg.BeforeLoadDFMValues;\r\n  dsBelegKundennummer.BeforeLoadDFMValues;\r\n  dsBelegKundennummerKundennummer.BeforeLoadDFMValues;\r\n  dsBelegNummerkomplett.BeforeLoadDFMValues;\r\n  dsBelegReferenzAuftagbest.BeforeLoadDFMValues;\r\n  dsBelegReferenzLieferschein.BeforeLoadDFMValues;\r\n  dsBelegReferenzRechnung.BeforeLoadDFMValues;\r\n  dsBelegDatum.BeforeLoadDFMValues;\r\n  dsBelegJahr.BeforeLoadDFMValues;\r\n  dsBelegKalenderwoche.BeforeLoadDFMValues;\r\n  dsBelegNachname.BeforeLoadDFMValues;\r\n  dsBelegVorname.BeforeLoadDFMValues;\r\n  dsBelegPostleitzahl.BeforeLoadDFMValues;\r\n  dsBelegOrt.BeforeLoadDFMValues;\r\n  dsBelegLaenderkuerzel.BeforeLoadDFMValues;\r\n  dsBelegLand.BeforeLoadDFMValues;\r\n  dsBelegBriefanrede1.BeforeLoadDFMValues;\r\n  dsBelegBriefanrede2.BeforeLoadDFMValues;\r\n  dsBelegEMail.BeforeLoadDFMValues;\r\n  dsBelegAdresseBild.BeforeLoadDFMValues;\r\n  dsBelegLieferanschriftBild.BeforeLoadDFMValues;\r\n  dsBelegZahlungsbedingung.BeforeLoadDFMValues;\r\n  dsBelegZahlungsbedingungText.BeforeLoadDFMValues;\r\n  dsBelegAuftragsbezeichnung.BeforeLoadDFMValues;\r\n  dsBelegAuftragnummerKunde.BeforeLoadDFMValues;\r\n  dsBelegBestelldatumKunde.BeforeLoadDFMValues;\r\n  dsBelegILN.BeforeLoadDFMValues;\r\n  dsBelegKopftext.BeforeLoadDFMValues;\r\n  dsBelegSchlussbemerkung.BeforeLoadDFMValues;\r\n  dsBelegGruss.BeforeLoadDFMValues;\r\n  dsBelegMehrwertsteuersatz1.BeforeLoadDFMValues;\r\n  dsBelegMehrwertsteuersatz2.BeforeLoadDFMValues;\r\n  dsBelegNettosumme01.BeforeLoadDFMValues;\r\n  dsBelegNettosumme02.BeforeLoadDFMValues;\r\n  dsBelegNettosumme.BeforeLoadDFMValues;\r\n  dsBelegMehrwertsteuer01.BeforeLoadDFMValues;\r\n  dsBelegMehrwertsteuer02.BeforeLoadDFMValues;\r\n  dsBelegMehrwertsteuer.BeforeLoadDFMValues;\r\n  dsBelegBruttosumme.BeforeLoadDFMValues;\r\n  dsBelegVersanddatum.BeforeLoadDFMValues;\r\n  dsBelegSkontosatz.BeforeLoadDFMValues;\r\n  dsBelegNettosummeEK.BeforeLoadDFMValues;\r\n  dsBelegNettoMarge.BeforeLoadDFMValues;\r\n  dsBelegSchreibzeichen.BeforeLoadDFMValues;\r\n  dsBelegUnterzeichner.BeforeLoadDFMValues;\r\n  dsBelegTelefonMA.BeforeLoadDFMValues;\r\n  dsBelegEmailMA.BeforeLoadDFMValues;\r\n  dsBelegUSTID.BeforeLoadDFMValues;\r\n  dsBelegUmsatzsteuerausweis.BeforeLoadDFMValues;\r\n  dsBeleggebucht.BeforeLoadDFMValues;\r\n  dsBelegLieferdatum.BeforeLoadDFMValues;\r\n  dsBelegTransportbedingung.BeforeLoadDFMValues;\r\n  dsBelegMehrwertsteuersatz3.BeforeLoadDFMValues;\r\n  dsBelegMehrwertsteuer03.BeforeLoadDFMValues;\r\n  dsBelegNettosumme03.BeforeLoadDFMValues;\r\n  dsBelegRundungsDifferenz.BeforeLoadDFMValues;\r\n  dsBelegEmailText.BeforeLoadDFMValues;\r\n  dsBelegAuftragerhaltenam.BeforeLoadDFMValues;\r\n  dsBelegAuftragnichterhalten.BeforeLoadDFMValues;\r\n  dsBelegRabattstufe.BeforeLoadDFMValues;\r\n  dsBelegKFZKennzeichen.BeforeLoadDFMValues;\r\n  dsBelegFahrgestellnummer.BeforeLoadDFMValues;\r\n  dsBelegKFZHersteller.BeforeLoadDFMValues;\r\n  dsBelegErstzulassungsdatum.BeforeLoadDFMValues;\r\n  dsBelegKMStand.BeforeLoadDFMValues;\r\n  dsBelegKFZType.BeforeLoadDFMValues;\r\n  dsBelegInspektionsdatum.BeforeLoadDFMValues;\r\n  dsBelegDebitorennummer.BeforeLoadDFMValues;\r\n  dsBelegKostentraeger.BeforeLoadDFMValues;\r\n  dsBelegRabattsatz.BeforeLoadDFMValues;\r\n  dsBelegObjektReferenz.BeforeLoadDFMValues;\r\n  dsBelegBank.BeforeLoadDFMValues;\r\n  dsBelegBankleitzahl.BeforeLoadDFMValues;\r\n  dsBelegKontonummer.BeforeLoadDFMValues;\r\n  dsBelegKontoinhaber.BeforeLoadDFMValues;\r\n  dsBelegTelefaxnummer.BeforeLoadDFMValues;\r\n  dsBelegDatumNeu.BeforeLoadDFMValues;\r\n  dsBelegDatumgeaendert.BeforeLoadDFMValues;\r\n  dsBelegLiefertermin.BeforeLoadDFMValues;\r\n  dsBelegObjektnummer.BeforeLoadDFMValues;\r\n  dsBelegReferenzKalkulation.BeforeLoadDFMValues;\r\n  dsBelegReferenzDatum.BeforeLoadDFMValues;\r\n  dsBelegEmailversand.BeforeLoadDFMValues;\r\n  dsBelegTelefonnummer.BeforeLoadDFMValues;\r\n  dsBelegMobilTelefon.BeforeLoadDFMValues;\r\n  dsBelegAngebotFax.BeforeLoadDFMValues;\r\n  dsBelegREDatum.BeforeLoadDFMValues;\r\n  dsBelegBenutzerNeu.BeforeLoadDFMValues;\r\n  dsBelegBenutzerGeaendert.BeforeLoadDFMValues;\r\n  dsBelegBerechnungBrutto.BeforeLoadDFMValues;\r\n  dsBelegBruttosumme01.BeforeLoadDFMValues;\r\n  dsBelegBruttosumme02.BeforeLoadDFMValues;\r\n  dsBelegBruttosumme03.BeforeLoadDFMValues;\r\n  dsBelegNotiz.BeforeLoadDFMValues;\r\n  dsBelegMargeProzent.BeforeLoadDFMValues;\r\n  dsBelegBelegsprache.BeforeLoadDFMValues;\r\n  dsBelegDuplicate.BeforeLoadDFMValues;\r\n  dsBelegperEmail.BeforeLoadDFMValues;\r\n  dsBelegAnsprechpartner.BeforeLoadDFMValues;\r\n  dsBelegKundennummerFremd.BeforeLoadDFMValues;\r\n  dsBelegProtokoll.BeforeLoadDFMValues;\r\n  dsBelegVerleihauftrag.BeforeLoadDFMValues;\r\n  dsBelegVerleihVon.BeforeLoadDFMValues;\r\n  dsBelegVerleihBis.BeforeLoadDFMValues;\r\n  dsBeleggesperrt.BeforeLoadDFMValues;\r\n  dsBelegVerleihvonText.BeforeLoadDFMValues;\r\n  dsBelegVerleihbisText.BeforeLoadDFMValues;\r\n  dsBelegDruckWHG.BeforeLoadDFMValues;\r\n  dsBelegDruckWHGKurs.BeforeLoadDFMValues;\r\n  dsBeleggueltigbis.BeforeLoadDFMValues;\r\n  dsBelegProzentsatzZusatzposition.BeforeLoadDFMValues;\r\n  dsBelegTextZusatzposition.BeforeLoadDFMValues;\r\n  dsBelegTextzusatzBeschreibung.BeforeLoadDFMValues;\r\n  dsBelegReferenzTarifberechnung.BeforeLoadDFMValues;\r\n  dsBelegLayoutname.BeforeLoadDFMValues;\r\n  dsBelegGesamtgewicht.BeforeLoadDFMValues;\r\n  dsBelegBetragZusatzposition.BeforeLoadDFMValues;\r\n  dsBelegMehrwertsteuersatz4.BeforeLoadDFMValues;\r\n  dsBelegMehrwertsteuersatz5.BeforeLoadDFMValues;\r\n  dsBelegMehrwertsteuersatz6.BeforeLoadDFMValues;\r\n  dsBelegBesteuerungKey.BeforeLoadDFMValues;\r\n  dsBelegVertreterMatchcode.BeforeLoadDFMValues;\r\n  dsBelegVerfasser.BeforeLoadDFMValues;\r\n  dsBelegLieferadresseID.BeforeLoadDFMValues;\r\n  dsBelegBelegvariante.BeforeLoadDFMValues;\r\n  dsBelegAuftragErwartetBis.BeforeLoadDFMValues;\r\n  dsBelegAuftragWahrscheinlichkeit.BeforeLoadDFMValues;\r\n  dsBelegFahrzeugID.BeforeLoadDFMValues;\r\n  dsBelegMonatJahr.BeforeLoadDFMValues;\r\n  dsBelegLieferanschriftDaten.BeforeLoadDFMValues;\r\n  dsBelegGesamtVolumen.BeforeLoadDFMValues;\r\n  dsBelegBelegPKey.BeforeLoadDFMValues;\r\n  dsBelegDruckParameter.BeforeLoadDFMValues;\r\n  dsBelegReferenzService.BeforeLoadDFMValues;\r\n  SourceBeleg.BeforeLoadDFMValues;\r\n  dsPositionen.BeforeLoadDFMValues;\r\n  dsPositionenArtikelnummer.BeforeLoadDFMValues;\r\n  dsPositionenNummerkomplett.BeforeLoadDFMValues;\r\n  dsPositionenID.BeforeLoadDFMValues;\r\n  dsPositionenPosNr.BeforeLoadDFMValues;\r\n  dsPositionenPosUNr.BeforeLoadDFMValues;\r\n  dsPositionenSumme.BeforeLoadDFMValues;\r\n  dsPositionenArtikelueberschrift.BeforeLoadDFMValues;\r\n  dsPositionenArtikelbeschreibung.BeforeLoadDFMValues;\r\n  dsPositionenMenge.BeforeLoadDFMValues;\r\n  dsPositionenArtderMenge.BeforeLoadDFMValues;\r\n  dsPositionenVerkaufspreis.BeforeLoadDFMValues;\r\n  dsPositionenEinkaufspreis.BeforeLoadDFMValues;\r\n  dsPositionenSeriennummer.BeforeLoadDFMValues;\r\n  dsPositionenWarengruppe.BeforeLoadDFMValues;\r\n  dsPositionenWarenuntergruppe.BeforeLoadDFMValues;\r\n  dsPositionenArtikelnummerKunde.BeforeLoadDFMValues;\r\n  dsPositionenLieferant.BeforeLoadDFMValues;\r\n  dsPositionenGewicht.BeforeLoadDFMValues;\r\n  dsPositionenLaenge.BeforeLoadDFMValues;\r\n  dsPositionenBreite.BeforeLoadDFMValues;\r\n  dsPositionenHoehe.BeforeLoadDFMValues;\r\n  dsPositionenMehrwertsteuersatz.BeforeLoadDFMValues;\r\n  dsPositionenEndpreis.BeforeLoadDFMValues;\r\n  dsPositionenPosMWST.BeforeLoadDFMValues;\r\n  dsPositionenBruttoEndpreis.BeforeLoadDFMValues;\r\n  dsPositionenEndpreis_EK.BeforeLoadDFMValues;\r\n  dsPositionenRabattsatz.BeforeLoadDFMValues;\r\n  dsPositionenPreisvorRabatt.BeforeLoadDFMValues;\r\n  dsPositionenPKZ.BeforeLoadDFMValues;\r\n  dsPositionenTextfrei10.BeforeLoadDFMValues;\r\n  dsPositionenTextfrei20.BeforeLoadDFMValues;\r\n  dsPositionenProduktionAbgeschlossen.BeforeLoadDFMValues;\r\n  dsPositionenEinzelpreisBrutto.BeforeLoadDFMValues;\r\n  dsPositionenPosMarge.BeforeLoadDFMValues;\r\n  dsPositionenPosMargeProzent.BeforeLoadDFMValues;\r\n  dsPositionenBereitsGeliefert.BeforeLoadDFMValues;\r\n  dsPositionenausliefern.BeforeLoadDFMValues;\r\n  dsPositionenBestellungErledigt.BeforeLoadDFMValues;\r\n  dsPositionenLager.BeforeLoadDFMValues;\r\n  dsPositionenbestellen.BeforeLoadDFMValues;\r\n  dsPositionenWarenbestand.BeforeLoadDFMValues;\r\n  dsPositionenArtikelbeschreibungRTF.BeforeLoadDFMValues;\r\n  dsPositionenQuellartikel.BeforeLoadDFMValues;\r\n  dsPositionenArtikelnummerWB.BeforeLoadDFMValues;\r\n  dsPositionenPreisanteilNetto.BeforeLoadDFMValues;\r\n  dsPositionenSetHPos.BeforeLoadDFMValues;\r\n  dsPositionenSetUPos.BeforeLoadDFMValues;\r\n  dsPositionenProvisionssatz.BeforeLoadDFMValues;\r\n  dsPositionenProvisionsbetrag.BeforeLoadDFMValues;\r\n  dsPositionenArtikelsprache.BeforeLoadDFMValues;\r\n  dsPositionenEKvom.BeforeLoadDFMValues;\r\n  dsPositionenMengenberechnungID.BeforeLoadDFMValues;\r\n  dsPositionenTaraID.BeforeLoadDFMValues;\r\n  dsPositionenTara.BeforeLoadDFMValues;\r\n  dsPositionenBruttoGewicht.BeforeLoadDFMValues;\r\n  dsPositionenAussenflaeche.BeforeLoadDFMValues;\r\n  dsPositionenLadeort.BeforeLoadDFMValues;\r\n  dsPositionenSeitenumbruch.BeforeLoadDFMValues;\r\n  dsPositionenPlanerFarbe.BeforeLoadDFMValues;\r\n  dsPositionenMWStKey.BeforeLoadDFMValues;\r\n  dsPositionenZSnachPos.BeforeLoadDFMValues;\r\n  dsPositionenLieferzeit.BeforeLoadDFMValues;\r\n  dsPositionenPreisVorRabattWHG.BeforeLoadDFMValues;\r\n  dsPositionenReferenzKalkulation.BeforeLoadDFMValues;\r\n  dsPositionenPKey.BeforeLoadDFMValues;\r\n  dsPositionenAuftragsnummer.BeforeLoadDFMValues;\r\n  dsPositionenlwbID.BeforeLoadDFMValues;\r\n  dsPositionenBelegdatum.BeforeLoadDFMValues;\r\n  dsPositionenWarenkontrollnummern.BeforeLoadDFMValues;\r\n  dsPositionenVolumen.BeforeLoadDFMValues;\r\n  dsPositionenPosVolumen.BeforeLoadDFMValues;\r\n  dsPositionenArtikelAttribute.BeforeLoadDFMValues;\r\n  dsPositionenMonteurP.BeforeLoadDFMValues;\r\n  dsPositionenArbeitszeitDatum.BeforeLoadDFMValues;\r\n  dsPositionenArbeitszeitVON.BeforeLoadDFMValues;\r\n  dsPositionenArbeitszeitBIS.BeforeLoadDFMValues;\r\n  dsPositionenArtikelnummerArtikelnummer.BeforeLoadDFMValues;\r\n  dsPositionenArtikelnummerArbeitszeit.BeforeLoadDFMValues;\r\n  sourcePositionen.BeforeLoadDFMValues;\r\n  dsSumBeleg.BeforeLoadDFMValues;\r\n  dsSumBelegPosVolumen.BeforeLoadDFMValues;\r\n  dsSumBelegBruttoGewicht.BeforeLoadDFMValues;\r\n  dsSumBelegMehrwertsteuersatz.BeforeLoadDFMValues;\r\n  dsSumBelegEndpreis.BeforeLoadDFMValues;\r\n  dsSumBelegPosMWST.BeforeLoadDFMValues;\r\n  dsSumBelegBruttoEndpreis.BeforeLoadDFMValues;\r\n  dsSumBelegEndpreis_EK.BeforeLoadDFMValues;\r\n  dsSumBelegPKZ.BeforeLoadDFMValues;\r\n  WClient.BeforeLoadDFMValues;\r\n  WebHttpRequest1.BeforeLoadDFMValues;\r\n  dsObjekt.BeforeLoadDFMValues;\r\n  dsObjektObjektReferenz.BeforeLoadDFMValues;\r\n  dsObjektKurzbezeichnung.BeforeLoadDFMValues;\r\n  dsObjektObjektnummer.BeforeLoadDFMValues;\r\n  dsDateien.BeforeLoadDFMValues;\r\n  dsDateienID.BeforeLoadDFMValues;\r\n  dsDateienDatumUhrzeit.BeforeLoadDFMValues;\r\n  dsDateienDateiBetreff.BeforeLoadDFMValues;\r\n  dsDateienNummerkomplett.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'EinzelAngebot';\r\n    Width := 245;\r\n    Height := 484;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    ElementPosition := epIgnore;\r\n    SetEvent(Self, 'OnCloseQuery', 'WebFormCloseQuery');\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.Left := 0;\r\n    TC.Top := 173;\r\n    TC.Width := 236;\r\n    TC.Height := 62;\r\n    TC.ElementClassName := 'table table-sm table-hover table-bordered table-striped';\r\n    TC.HeightStyle := ssAuto;\r\n    TC.WidthStyle := ssAuto;\r\n    TC.BorderColor := clSilver;\r\n    TC.ColHeader := False;\r\n    TC.ElementHeaderClassName := 'table-info';\r\n    TC.ElementPosition := epIgnore;\r\n    TC.ElementTableClassName := 'table table-sm table-hover table-bordered table-striped';\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 2;\r\n    TC.RowCount := 17;\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 245;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.Align := alTop;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 0;\r\n    btnzurueck.Top := 88;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 82;\r\n    Container3.Width := 245;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-column';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.Align := alTop;\r\n    Container3.ChildOrder := 2;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 41;\r\n    Container2.Width := 245;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.Align := alTop;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    PTC.SetParentComponent(Self);\r\n    PTC.Name := 'PTC';\r\n    PTC.Left := 0;\r\n    PTC.Top := 241;\r\n    PTC.Width := 236;\r\n    PTC.Height := 80;\r\n    PTC.ElementClassName := 'table table-hover table-bordered table-striped';\r\n    PTC.HeightStyle := ssAuto;\r\n    PTC.WidthStyle := ssAuto;\r\n    PTC.BorderColor := clSilver;\r\n    PTC.ChildOrder := 5;\r\n    PTC.ElementHeaderClassName := 'table-info';\r\n    PTC.ElementPosition := epIgnore;\r\n    PTC.ElementTableClassName := 'table table-hover table-bordered table-striped';\r\n    PTC.WordWrap := True;\r\n    PTC.ColCount := 2;\r\n    btnSpeichern.SetParentComponent(Self);\r\n    btnSpeichern.Name := 'btnSpeichern';\r\n    btnSpeichern.Left := 8;\r\n    btnSpeichern.Top := 280;\r\n    btnSpeichern.Width := 96;\r\n    btnSpeichern.Height := 25;\r\n    btnSpeichern.Caption := 'speichern';\r\n    btnSpeichern.ChildOrder := 4;\r\n    btnSpeichern.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnSpeichern.ElementFont := efCSS;\r\n    btnSpeichern.ElementPosition := epIgnore;\r\n    btnSpeichern.HeightStyle := ssAuto;\r\n    btnSpeichern.HeightPercent := 100.000000000000000000;\r\n    btnSpeichern.TabStop := False;\r\n    btnSpeichern.WidthStyle := ssAuto;\r\n    btnSpeichern.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnSpeichern, Self, 'OnClick', 'btnSpeichernClick');\r\n    pickLieferdatum.SetParentComponent(Self);\r\n    pickLieferdatum.Name := 'pickLieferdatum';\r\n    pickLieferdatum.Left := 8;\r\n    pickLieferdatum.Top := 342;\r\n    pickLieferdatum.Width := 170;\r\n    pickLieferdatum.Height := 22;\r\n    pickLieferdatum.ElementClassName := 'form-control';\r\n    pickLieferdatum.HeightStyle := ssAuto;\r\n    pickLieferdatum.WidthStyle := ssPercent;\r\n    pickLieferdatum.WidthPercent := 75.000000000000000000;\r\n    pickLieferdatum.BorderStyle := bsNone;\r\n    pickLieferdatum.ChildOrder := 13;\r\n    pickLieferdatum.Color := clWhite;\r\n    pickLieferdatum.Date := 44128.305122870370000000;\r\n    pickLieferdatum.ElementFont := efCSS;\r\n    pickLieferdatum.ElementPosition := epIgnore;\r\n    pickLieferdatum.Role := '';\r\n    pickLieferdatum.TabOrder := 2;\r\n    pickLieferdatum.Text := '';\r\n    SetEvent(pickLieferdatum, Self, 'OnClick', 'pickLieferdatumClick');\r\n    pickLieferdatum.DataField := 'Lieferdatum';\r\n    pickLieferdatum.DataSource := SourceBeleg;\r\n    edtAuftragsbezeichnung.SetParentComponent(Self);\r\n    edtAuftragsbezeichnung.Name := 'edtAuftragsbezeichnung';\r\n    edtAuftragsbezeichnung.Left := 8;\r\n    edtAuftragsbezeichnung.Top := 370;\r\n    edtAuftragsbezeichnung.Width := 121;\r\n    edtAuftragsbezeichnung.Height := 22;\r\n    edtAuftragsbezeichnung.AutoSelect := False;\r\n    edtAuftragsbezeichnung.ChildOrder := 12;\r\n    edtAuftragsbezeichnung.ElementClassName := 'form-control form-control-sm';\r\n    edtAuftragsbezeichnung.ElementFont := efCSS;\r\n    edtAuftragsbezeichnung.ElementPosition := epIgnore;\r\n    edtAuftragsbezeichnung.HeightStyle := ssAuto;\r\n    edtAuftragsbezeichnung.HeightPercent := 100.000000000000000000;\r\n    edtAuftragsbezeichnung.TabOrder := 1;\r\n    edtAuftragsbezeichnung.TextHint := 'Auftragsbezeichnung';\r\n    edtAuftragsbezeichnung.WidthStyle := ssPercent;\r\n    edtAuftragsbezeichnung.WidthPercent := 75.000000000000000000;\r\n    edtAuftragsbezeichnung.DataField := 'Auftragsbezeichnung';\r\n    edtAuftragsbezeichnung.DataSource := SourceBeleg;\r\n    edtLiefertermin.SetParentComponent(Self);\r\n    edtLiefertermin.Name := 'edtLiefertermin';\r\n    edtLiefertermin.Left := 8;\r\n    edtLiefertermin.Top := 398;\r\n    edtLiefertermin.Width := 121;\r\n    edtLiefertermin.Height := 22;\r\n    edtLiefertermin.ChildOrder := 12;\r\n    edtLiefertermin.ElementClassName := 'form-control';\r\n    edtLiefertermin.ElementFont := efCSS;\r\n    edtLiefertermin.ElementPosition := epIgnore;\r\n    edtLiefertermin.HeightStyle := ssAuto;\r\n    edtLiefertermin.HeightPercent := 100.000000000000000000;\r\n    edtLiefertermin.TabOrder := 3;\r\n    edtLiefertermin.TextHint := 'Lieferzeitraum';\r\n    edtLiefertermin.WidthStyle := ssPercent;\r\n    edtLiefertermin.WidthPercent := 75.000000000000000000;\r\n    edtLiefertermin.DataField := 'Liefertermin';\r\n    edtLiefertermin.DataSource := SourceBeleg;\r\n    btnNeuePosition.SetParentComponent(Self);\r\n    btnNeuePosition.Name := 'btnNeuePosition';\r\n    btnNeuePosition.Left := 8;\r\n    btnNeuePosition.Top := 311;\r\n    btnNeuePosition.Width := 96;\r\n    btnNeuePosition.Height := 25;\r\n    btnNeuePosition.Caption := '+ NEU';\r\n    btnNeuePosition.ChildOrder := 4;\r\n    btnNeuePosition.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnNeuePosition.ElementFont := efCSS;\r\n    btnNeuePosition.ElementPosition := epIgnore;\r\n    btnNeuePosition.HeightStyle := ssAuto;\r\n    btnNeuePosition.HeightPercent := 100.000000000000000000;\r\n    btnNeuePosition.TabStop := False;\r\n    btnNeuePosition.WidthStyle := ssAuto;\r\n    btnNeuePosition.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnNeuePosition, Self, 'OnClick', 'btnNeuePositionClick');\r\n    Container4.SetParentComponent(Self);\r\n    Container4.Name := 'Container4';\r\n    Container4.Left := 0;\r\n    Container4.Top := 123;\r\n    Container4.Width := 245;\r\n    Container4.Height := 41;\r\n    Container4.ElementClassName := 'd-flex flex-column';\r\n    Container4.HeightStyle := ssAuto;\r\n    Container4.WidthStyle := ssAuto;\r\n    Container4.Align := alTop;\r\n    Container4.ChildOrder := 4;\r\n    Container4.ElementFont := efCSS;\r\n    Container4.ElementPosition := epIgnore;\r\n    btnDateien.SetParentComponent(Self);\r\n    btnDateien.Name := 'btnDateien';\r\n    btnDateien.Left := 186;\r\n    btnDateien.Top := 373;\r\n    btnDateien.Width := 50;\r\n    btnDateien.Height := 25;\r\n    btnDateien.Caption := 'Dateien';\r\n    btnDateien.ChildOrder := 4;\r\n    btnDateien.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnDateien.ElementFont := efCSS;\r\n    btnDateien.ElementPosition := epIgnore;\r\n    btnDateien.HeightStyle := ssAuto;\r\n    btnDateien.HeightPercent := 100.000000000000000000;\r\n    btnDateien.WidthStyle := ssAuto;\r\n    btnDateien.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnDateien, Self, 'OnClick', 'btnDateienClick');\r\n    btnDateienObjekt.SetParentComponent(Self);\r\n    btnDateienObjekt.Name := 'btnDateienObjekt';\r\n    btnDateienObjekt.Left := 187;\r\n    btnDateienObjekt.Top := 404;\r\n    btnDateienObjekt.Width := 50;\r\n    btnDateienObjekt.Height := 25;\r\n    btnDateienObjekt.Caption := 'Dateien zu Objekt';\r\n    btnDateienObjekt.ChildOrder := 4;\r\n    btnDateienObjekt.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnDateienObjekt.ElementFont := efCSS;\r\n    btnDateienObjekt.ElementPosition := epIgnore;\r\n    btnDateienObjekt.HeightStyle := ssAuto;\r\n    btnDateienObjekt.HeightPercent := 100.000000000000000000;\r\n    btnDateienObjekt.WidthStyle := ssAuto;\r\n    btnDateienObjekt.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnDateienObjekt, Self, 'OnClick', 'btnDateienObjektClick');\r\n    btnDateienKontakt.SetParentComponent(Self);\r\n    btnDateienKontakt.Name := 'btnDateienKontakt';\r\n    btnDateienKontakt.Left := 187;\r\n    btnDateienKontakt.Top := 435;\r\n    btnDateienKontakt.Width := 50;\r\n    btnDateienKontakt.Height := 25;\r\n    btnDateienKontakt.Caption := 'Dateien zu Kontakt';\r\n    btnDateienKontakt.ChildOrder := 4;\r\n    btnDateienKontakt.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnDateienKontakt.ElementFont := efCSS;\r\n    btnDateienKontakt.ElementPosition := epIgnore;\r\n    btnDateienKontakt.HeightStyle := ssAuto;\r\n    btnDateienKontakt.HeightPercent := 100.000000000000000000;\r\n    btnDateienKontakt.WidthStyle := ssAuto;\r\n    btnDateienKontakt.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnDateienKontakt, Self, 'OnClick', 'btnDateienKontaktClick');\r\n    dsBeleg.SetParentComponent(Self);\r\n    dsBeleg.Name := 'dsBeleg';\r\n    dsBeleg.AfterApplyUpdates := dsBelegAfterApplyUpdates;\r\n    dsBeleg.AfterOpen := dsBelegAfterOpen;\r\n    dsBeleg.BeforePost := dsBelegBeforePost;\r\n    dsBeleg.AfterPost := dsBelegAfterPost;\r\n    dsBeleg.EntitySetName := 'Angebote';\r\n    dsBeleg.Connection := DM2.XDataWebConnection1;\r\n    dsBeleg.SubpropsDepth := 1;\r\n    dsBeleg.QueryString := '$expand=Kundennummer';\r\n    dsBeleg.Left := 80;\r\n    dsBeleg.Top := 128;\r\n    dsBelegKundennummer.SetParentComponent(dsBeleg);\r\n    dsBelegKundennummer.Name := 'dsBelegKundennummer';\r\n    dsBelegKundennummer.FieldName := 'Kundennummer';\r\n    dsBelegKundennummer.Required := True;\r\n    dsBelegKundennummerKundennummer.SetParentComponent(dsBeleg);\r\n    dsBelegKundennummerKundennummer.Name := 'dsBelegKundennummerKundennummer';\r\n    dsBelegKundennummerKundennummer.FieldName := 'Kundennummer.Kundennummer';\r\n    dsBelegKundennummerKundennummer.Size := 13;\r\n    dsBelegNummerkomplett.SetParentComponent(dsBeleg);\r\n    dsBelegNummerkomplett.Name := 'dsBelegNummerkomplett';\r\n    dsBelegNummerkomplett.FieldName := 'Nummerkomplett';\r\n    dsBelegNummerkomplett.Required := True;\r\n    dsBelegNummerkomplett.Size := 10;\r\n    dsBelegReferenzAuftagbest.SetParentComponent(dsBeleg);\r\n    dsBelegReferenzAuftagbest.Name := 'dsBelegReferenzAuftagbest';\r\n    dsBelegReferenzAuftagbest.FieldName := 'ReferenzAuftagbest';\r\n    dsBelegReferenzAuftagbest.Size := 10;\r\n    dsBelegReferenzLieferschein.SetParentComponent(dsBeleg);\r\n    dsBelegReferenzLieferschein.Name := 'dsBelegReferenzLieferschein';\r\n    dsBelegReferenzLieferschein.FieldName := 'ReferenzLieferschein';\r\n    dsBelegReferenzLieferschein.Size := 10;\r\n    dsBelegReferenzRechnung.SetParentComponent(dsBeleg);\r\n    dsBelegReferenzRechnung.Name := 'dsBelegReferenzRechnung';\r\n    dsBelegReferenzRechnung.FieldName := 'ReferenzRechnung';\r\n    dsBelegReferenzRechnung.Size := 10;\r\n    dsBelegDatum.SetParentComponent(dsBeleg);\r\n    dsBelegDatum.Name := 'dsBelegDatum';\r\n    dsBelegDatum.FieldName := 'Datum';\r\n    dsBelegDatum.Required := True;\r\n    dsBelegJahr.SetParentComponent(dsBeleg);\r\n    dsBelegJahr.Name := 'dsBelegJahr';\r\n    dsBelegJahr.FieldName := 'Jahr';\r\n    dsBelegKalenderwoche.SetParentComponent(dsBeleg);\r\n    dsBelegKalenderwoche.Name := 'dsBelegKalenderwoche';\r\n    dsBelegKalenderwoche.FieldName := 'Kalenderwoche';\r\n    dsBelegNachname.SetParentComponent(dsBeleg);\r\n    dsBelegNachname.Name := 'dsBelegNachname';\r\n    dsBelegNachname.FieldName := 'Nachname';\r\n    dsBelegNachname.Size := 50;\r\n    dsBelegVorname.SetParentComponent(dsBeleg);\r\n    dsBelegVorname.Name := 'dsBelegVorname';\r\n    dsBelegVorname.FieldName := 'Vorname';\r\n    dsBelegVorname.Size := 50;\r\n    dsBelegPostleitzahl.SetParentComponent(dsBeleg);\r\n    dsBelegPostleitzahl.Name := 'dsBelegPostleitzahl';\r\n    dsBelegPostleitzahl.FieldName := 'Postleitzahl';\r\n    dsBelegPostleitzahl.Size := 10;\r\n    dsBelegOrt.SetParentComponent(dsBeleg);\r\n    dsBelegOrt.Name := 'dsBelegOrt';\r\n    dsBelegOrt.FieldName := 'Ort';\r\n    dsBelegOrt.Size := 50;\r\n    dsBelegLaenderkuerzel.SetParentComponent(dsBeleg);\r\n    dsBelegLaenderkuerzel.Name := 'dsBelegLaenderkuerzel';\r\n    dsBelegLaenderkuerzel.FieldName := 'Laenderkuerzel';\r\n    dsBelegLaenderkuerzel.Size := 5;\r\n    dsBelegLand.SetParentComponent(dsBeleg);\r\n    dsBelegLand.Name := 'dsBelegLand';\r\n    dsBelegLand.FieldName := 'Land';\r\n    dsBelegLand.Size := 50;\r\n    dsBelegBriefanrede1.SetParentComponent(dsBeleg);\r\n    dsBelegBriefanrede1.Name := 'dsBelegBriefanrede1';\r\n    dsBelegBriefanrede1.FieldName := 'Briefanrede1';\r\n    dsBelegBriefanrede1.Size := 255;\r\n    dsBelegBriefanrede2.SetParentComponent(dsBeleg);\r\n    dsBelegBriefanrede2.Name := 'dsBelegBriefanrede2';\r\n    dsBelegBriefanrede2.FieldName := 'Briefanrede2';\r\n    dsBelegBriefanrede2.Size := 40;\r\n    dsBelegEMail.SetParentComponent(dsBeleg);\r\n    dsBelegEMail.Name := 'dsBelegEMail';\r\n    dsBelegEMail.FieldName := 'EMail';\r\n    dsBelegEMail.Size := 50;\r\n    dsBelegAdresseBild.SetParentComponent(dsBeleg);\r\n    dsBelegAdresseBild.Name := 'dsBelegAdresseBild';\r\n    dsBelegAdresseBild.FieldName := 'AdresseBild';\r\n    dsBelegAdresseBild.Size := 255;\r\n    dsBelegLieferanschriftBild.SetParentComponent(dsBeleg);\r\n    dsBelegLieferanschriftBild.Name := 'dsBelegLieferanschriftBild';\r\n    dsBelegLieferanschriftBild.FieldName := 'LieferanschriftBild';\r\n    dsBelegLieferanschriftBild.Size := 255;\r\n    dsBelegZahlungsbedingung.SetParentComponent(dsBeleg);\r\n    dsBelegZahlungsbedingung.Name := 'dsBelegZahlungsbedingung';\r\n    dsBelegZahlungsbedingung.FieldName := 'Zahlungsbedingung';\r\n    dsBelegZahlungsbedingungText.SetParentComponent(dsBeleg);\r\n    dsBelegZahlungsbedingungText.Name := 'dsBelegZahlungsbedingungText';\r\n    dsBelegZahlungsbedingungText.FieldName := 'ZahlungsbedingungText';\r\n    dsBelegZahlungsbedingungText.Size := 250;\r\n    dsBelegAuftragsbezeichnung.SetParentComponent(dsBeleg);\r\n    dsBelegAuftragsbezeichnung.Name := 'dsBelegAuftragsbezeichnung';\r\n    dsBelegAuftragsbezeichnung.FieldName := 'Auftragsbezeichnung';\r\n    dsBelegAuftragsbezeichnung.Size := 255;\r\n    dsBelegAuftragnummerKunde.SetParentComponent(dsBeleg);\r\n    dsBelegAuftragnummerKunde.Name := 'dsBelegAuftragnummerKunde';\r\n    dsBelegAuftragnummerKunde.FieldName := 'AuftragnummerKunde';\r\n    dsBelegAuftragnummerKunde.Size := 50;\r\n    dsBelegBestelldatumKunde.SetParentComponent(dsBeleg);\r\n    dsBelegBestelldatumKunde.Name := 'dsBelegBestelldatumKunde';\r\n    dsBelegBestelldatumKunde.FieldName := 'BestelldatumKunde';\r\n    dsBelegILN.SetParentComponent(dsBeleg);\r\n    dsBelegILN.Name := 'dsBelegILN';\r\n    dsBelegILN.FieldName := 'ILN';\r\n    dsBelegILN.Size := 50;\r\n    dsBelegKopftext.SetParentComponent(dsBeleg);\r\n    dsBelegKopftext.Name := 'dsBelegKopftext';\r\n    dsBelegKopftext.FieldName := 'Kopftext';\r\n    dsBelegKopftext.Size := 255;\r\n    dsBelegSchlussbemerkung.SetParentComponent(dsBeleg);\r\n    dsBelegSchlussbemerkung.Name := 'dsBelegSchlussbemerkung';\r\n    dsBelegSchlussbemerkung.FieldName := 'Schlussbemerkung';\r\n    dsBelegSchlussbemerkung.Size := 255;\r\n    dsBelegGruss.SetParentComponent(dsBeleg);\r\n    dsBelegGruss.Name := 'dsBelegGruss';\r\n    dsBelegGruss.FieldName := 'Gruss';\r\n    dsBelegGruss.Size := 255;\r\n    dsBelegMehrwertsteuersatz1.SetParentComponent(dsBeleg);\r\n    dsBelegMehrwertsteuersatz1.Name := 'dsBelegMehrwertsteuersatz1';\r\n    dsBelegMehrwertsteuersatz1.FieldName := 'Mehrwertsteuersatz1';\r\n    dsBelegMehrwertsteuersatz2.SetParentComponent(dsBeleg);\r\n    dsBelegMehrwertsteuersatz2.Name := 'dsBelegMehrwertsteuersatz2';\r\n    dsBelegMehrwertsteuersatz2.FieldName := 'Mehrwertsteuersatz2';\r\n    dsBelegNettosumme01.SetParentComponent(dsBeleg);\r\n    dsBelegNettosumme01.Name := 'dsBelegNettosumme01';\r\n    dsBelegNettosumme01.FieldName := 'Nettosumme01';\r\n    dsBelegNettosumme02.SetParentComponent(dsBeleg);\r\n    dsBelegNettosumme02.Name := 'dsBelegNettosumme02';\r\n    dsBelegNettosumme02.FieldName := 'Nettosumme02';\r\n    dsBelegNettosumme.SetParentComponent(dsBeleg);\r\n    dsBelegNettosumme.Name := 'dsBelegNettosumme';\r\n    dsBelegNettosumme.FieldName := 'Nettosumme';\r\n    dsBelegMehrwertsteuer01.SetParentComponent(dsBeleg);\r\n    dsBelegMehrwertsteuer01.Name := 'dsBelegMehrwertsteuer01';\r\n    dsBelegMehrwertsteuer01.FieldName := 'Mehrwertsteuer01';\r\n    dsBelegMehrwertsteuer02.SetParentComponent(dsBeleg);\r\n    dsBelegMehrwertsteuer02.Name := 'dsBelegMehrwertsteuer02';\r\n    dsBelegMehrwertsteuer02.FieldName := 'Mehrwertsteuer02';\r\n    dsBelegMehrwertsteuer.SetParentComponent(dsBeleg);\r\n    dsBelegMehrwertsteuer.Name := 'dsBelegMehrwertsteuer';\r\n    dsBelegMehrwertsteuer.FieldName := 'Mehrwertsteuer';\r\n    dsBelegBruttosumme.SetParentComponent(dsBeleg);\r\n    dsBelegBruttosumme.Name := 'dsBelegBruttosumme';\r\n    dsBelegBruttosumme.FieldName := 'Bruttosumme';\r\n    dsBelegVersanddatum.SetParentComponent(dsBeleg);\r\n    dsBelegVersanddatum.Name := 'dsBelegVersanddatum';\r\n    dsBelegVersanddatum.FieldName := 'Versanddatum';\r\n    dsBelegSkontosatz.SetParentComponent(dsBeleg);\r\n    dsBelegSkontosatz.Name := 'dsBelegSkontosatz';\r\n    dsBelegSkontosatz.FieldName := 'Skontosatz';\r\n    dsBelegNettosummeEK.SetParentComponent(dsBeleg);\r\n    dsBelegNettosummeEK.Name := 'dsBelegNettosummeEK';\r\n    dsBelegNettosummeEK.FieldName := 'NettosummeEK';\r\n    dsBelegNettoMarge.SetParentComponent(dsBeleg);\r\n    dsBelegNettoMarge.Name := 'dsBelegNettoMarge';\r\n    dsBelegNettoMarge.FieldName := 'NettoMarge';\r\n    dsBelegSchreibzeichen.SetParentComponent(dsBeleg);\r\n    dsBelegSchreibzeichen.Name := 'dsBelegSchreibzeichen';\r\n    dsBelegSchreibzeichen.FieldName := 'Schreibzeichen';\r\n    dsBelegSchreibzeichen.Size := 10;\r\n    dsBelegUnterzeichner.SetParentComponent(dsBeleg);\r\n    dsBelegUnterzeichner.Name := 'dsBelegUnterzeichner';\r\n    dsBelegUnterzeichner.FieldName := 'Unterzeichner';\r\n    dsBelegUnterzeichner.Size := 50;\r\n    dsBelegTelefonMA.SetParentComponent(dsBeleg);\r\n    dsBelegTelefonMA.Name := 'dsBelegTelefonMA';\r\n    dsBelegTelefonMA.FieldName := 'TelefonMA';\r\n    dsBelegTelefonMA.Size := 30;\r\n    dsBelegEmailMA.SetParentComponent(dsBeleg);\r\n    dsBelegEmailMA.Name := 'dsBelegEmailMA';\r\n    dsBelegEmailMA.FieldName := 'EmailMA';\r\n    dsBelegEmailMA.Size := 50;\r\n    dsBelegUSTID.SetParentComponent(dsBeleg);\r\n    dsBelegUSTID.Name := 'dsBelegUSTID';\r\n    dsBelegUSTID.FieldName := 'USTID';\r\n    dsBelegUmsatzsteuerausweis.SetParentComponent(dsBeleg);\r\n    dsBelegUmsatzsteuerausweis.Name := 'dsBelegUmsatzsteuerausweis';\r\n    dsBelegUmsatzsteuerausweis.FieldName := 'Umsatzsteuerausweis';\r\n    dsBeleggebucht.SetParentComponent(dsBeleg);\r\n    dsBeleggebucht.Name := 'dsBeleggebucht';\r\n    dsBeleggebucht.FieldName := 'gebucht';\r\n    dsBelegLieferdatum.SetParentComponent(dsBeleg);\r\n    dsBelegLieferdatum.Name := 'dsBelegLieferdatum';\r\n    dsBelegLieferdatum.FieldName := 'Lieferdatum';\r\n    dsBelegTransportbedingung.SetParentComponent(dsBeleg);\r\n    dsBelegTransportbedingung.Name := 'dsBelegTransportbedingung';\r\n    dsBelegTransportbedingung.FieldName := 'Transportbedingung';\r\n    dsBelegTransportbedingung.Size := 100;\r\n    dsBelegMehrwertsteuersatz3.SetParentComponent(dsBeleg);\r\n    dsBelegMehrwertsteuersatz3.Name := 'dsBelegMehrwertsteuersatz3';\r\n    dsBelegMehrwertsteuersatz3.FieldName := 'Mehrwertsteuersatz3';\r\n    dsBelegMehrwertsteuer03.SetParentComponent(dsBeleg);\r\n    dsBelegMehrwertsteuer03.Name := 'dsBelegMehrwertsteuer03';\r\n    dsBelegMehrwertsteuer03.FieldName := 'Mehrwertsteuer03';\r\n    dsBelegNettosumme03.SetParentComponent(dsBeleg);\r\n    dsBelegNettosumme03.Name := 'dsBelegNettosumme03';\r\n    dsBelegNettosumme03.FieldName := 'Nettosumme03';\r\n    dsBelegRundungsDifferenz.SetParentComponent(dsBeleg);\r\n    dsBelegRundungsDifferenz.Name := 'dsBelegRundungsDifferenz';\r\n    dsBelegRundungsDifferenz.FieldName := 'RundungsDifferenz';\r\n    dsBelegEmailText.SetParentComponent(dsBeleg);\r\n    dsBelegEmailText.Name := 'dsBelegEmailText';\r\n    dsBelegEmailText.FieldName := 'EmailText';\r\n    dsBelegEmailText.Size := 255;\r\n    dsBelegAuftragerhaltenam.SetParentComponent(dsBeleg);\r\n    dsBelegAuftragerhaltenam.Name := 'dsBelegAuftragerhaltenam';\r\n    dsBelegAuftragerhaltenam.FieldName := 'Auftragerhaltenam';\r\n    dsBelegAuftragnichterhalten.SetParentComponent(dsBeleg);\r\n    dsBelegAuftragnichterhalten.Name := 'dsBelegAuftragnichterhalten';\r\n    dsBelegAuftragnichterhalten.FieldName := 'Auftragnichterhalten';\r\n    dsBelegRabattstufe.SetParentComponent(dsBeleg);\r\n    dsBelegRabattstufe.Name := 'dsBelegRabattstufe';\r\n    dsBelegRabattstufe.FieldName := 'Rabattstufe';\r\n    dsBelegRabattstufe.Size := 15;\r\n    dsBelegKFZKennzeichen.SetParentComponent(dsBeleg);\r\n    dsBelegKFZKennzeichen.Name := 'dsBelegKFZKennzeichen';\r\n    dsBelegKFZKennzeichen.FieldName := 'KFZKennzeichen';\r\n    dsBelegKFZKennzeichen.Size := 13;\r\n    dsBelegFahrgestellnummer.SetParentComponent(dsBeleg);\r\n    dsBelegFahrgestellnummer.Name := 'dsBelegFahrgestellnummer';\r\n    dsBelegFahrgestellnummer.FieldName := 'Fahrgestellnummer';\r\n    dsBelegKFZHersteller.SetParentComponent(dsBeleg);\r\n    dsBelegKFZHersteller.Name := 'dsBelegKFZHersteller';\r\n    dsBelegKFZHersteller.FieldName := 'KFZHersteller';\r\n    dsBelegErstzulassungsdatum.SetParentComponent(dsBeleg);\r\n    dsBelegErstzulassungsdatum.Name := 'dsBelegErstzulassungsdatum';\r\n    dsBelegErstzulassungsdatum.FieldName := 'Erstzulassungsdatum';\r\n    dsBelegKMStand.SetParentComponent(dsBeleg);\r\n    dsBelegKMStand.Name := 'dsBelegKMStand';\r\n    dsBelegKMStand.FieldName := 'KMStand';\r\n    dsBelegKMStand.Size := 6;\r\n    dsBelegKFZType.SetParentComponent(dsBeleg);\r\n    dsBelegKFZType.Name := 'dsBelegKFZType';\r\n    dsBelegKFZType.FieldName := 'KFZType';\r\n    dsBelegKFZType.Size := 25;\r\n    dsBelegInspektionsdatum.SetParentComponent(dsBeleg);\r\n    dsBelegInspektionsdatum.Name := 'dsBelegInspektionsdatum';\r\n    dsBelegInspektionsdatum.FieldName := 'Inspektionsdatum';\r\n    dsBelegDebitorennummer.SetParentComponent(dsBeleg);\r\n    dsBelegDebitorennummer.Name := 'dsBelegDebitorennummer';\r\n    dsBelegDebitorennummer.FieldName := 'Debitorennummer';\r\n    dsBelegDebitorennummer.Size := 13;\r\n    dsBelegKostentraeger.SetParentComponent(dsBeleg);\r\n    dsBelegKostentraeger.Name := 'dsBelegKostentraeger';\r\n    dsBelegKostentraeger.FieldName := 'Kostentraeger';\r\n    dsBelegKostentraeger.Size := 13;\r\n    dsBelegRabattsatz.SetParentComponent(dsBeleg);\r\n    dsBelegRabattsatz.Name := 'dsBelegRabattsatz';\r\n    dsBelegRabattsatz.FieldName := 'Rabattsatz';\r\n    dsBelegObjektReferenz.SetParentComponent(dsBeleg);\r\n    dsBelegObjektReferenz.Name := 'dsBelegObjektReferenz';\r\n    dsBelegObjektReferenz.FieldName := 'ObjektReferenz';\r\n    dsBelegObjektReferenz.Size := 13;\r\n    dsBelegBank.SetParentComponent(dsBeleg);\r\n    dsBelegBank.Name := 'dsBelegBank';\r\n    dsBelegBank.FieldName := 'Bank';\r\n    dsBelegBank.Size := 50;\r\n    dsBelegBankleitzahl.SetParentComponent(dsBeleg);\r\n    dsBelegBankleitzahl.Name := 'dsBelegBankleitzahl';\r\n    dsBelegBankleitzahl.FieldName := 'Bankleitzahl';\r\n    dsBelegKontonummer.SetParentComponent(dsBeleg);\r\n    dsBelegKontonummer.Name := 'dsBelegKontonummer';\r\n    dsBelegKontonummer.FieldName := 'Kontonummer';\r\n    dsBelegKontonummer.Size := 50;\r\n    dsBelegKontoinhaber.SetParentComponent(dsBeleg);\r\n    dsBelegKontoinhaber.Name := 'dsBelegKontoinhaber';\r\n    dsBelegKontoinhaber.FieldName := 'Kontoinhaber';\r\n    dsBelegKontoinhaber.Size := 50;\r\n    dsBelegTelefaxnummer.SetParentComponent(dsBeleg);\r\n    dsBelegTelefaxnummer.Name := 'dsBelegTelefaxnummer';\r\n    dsBelegTelefaxnummer.FieldName := 'Telefaxnummer';\r\n    dsBelegTelefaxnummer.Size := 25;\r\n    dsBelegDatumNeu.SetParentComponent(dsBeleg);\r\n    dsBelegDatumNeu.Name := 'dsBelegDatumNeu';\r\n    dsBelegDatumNeu.FieldName := 'DatumNeu';\r\n    dsBelegDatumgeaendert.SetParentComponent(dsBeleg);\r\n    dsBelegDatumgeaendert.Name := 'dsBelegDatumgeaendert';\r\n    dsBelegDatumgeaendert.FieldName := 'Datumgeaendert';\r\n    dsBelegLiefertermin.SetParentComponent(dsBeleg);\r\n    dsBelegLiefertermin.Name := 'dsBelegLiefertermin';\r\n    dsBelegLiefertermin.FieldName := 'Liefertermin';\r\n    dsBelegLiefertermin.Size := 50;\r\n    dsBelegObjektnummer.SetParentComponent(dsBeleg);\r\n    dsBelegObjektnummer.Name := 'dsBelegObjektnummer';\r\n    dsBelegObjektnummer.FieldName := 'Objektnummer';\r\n    dsBelegObjektnummer.Size := 25;\r\n    dsBelegReferenzKalkulation.SetParentComponent(dsBeleg);\r\n    dsBelegReferenzKalkulation.Name := 'dsBelegReferenzKalkulation';\r\n    dsBelegReferenzKalkulation.FieldName := 'ReferenzKalkulation';\r\n    dsBelegReferenzKalkulation.Size := 10;\r\n    dsBelegReferenzDatum.SetParentComponent(dsBeleg);\r\n    dsBelegReferenzDatum.Name := 'dsBelegReferenzDatum';\r\n    dsBelegReferenzDatum.FieldName := 'ReferenzDatum';\r\n    dsBelegEmailversand.SetParentComponent(dsBeleg);\r\n    dsBelegEmailversand.Name := 'dsBelegEmailversand';\r\n    dsBelegEmailversand.FieldName := 'Emailversand';\r\n    dsBelegTelefonnummer.SetParentComponent(dsBeleg);\r\n    dsBelegTelefonnummer.Name := 'dsBelegTelefonnummer';\r\n    dsBelegTelefonnummer.FieldName := 'Telefonnummer';\r\n    dsBelegTelefonnummer.Size := 35;\r\n    dsBelegMobilTelefon.SetParentComponent(dsBeleg);\r\n    dsBelegMobilTelefon.Name := 'dsBelegMobilTelefon';\r\n    dsBelegMobilTelefon.FieldName := 'MobilTelefon';\r\n    dsBelegMobilTelefon.Size := 25;\r\n    dsBelegAngebotFax.SetParentComponent(dsBeleg);\r\n    dsBelegAngebotFax.Name := 'dsBelegAngebotFax';\r\n    dsBelegAngebotFax.FieldName := 'AngebotFax';\r\n    dsBelegREDatum.SetParentComponent(dsBeleg);\r\n    dsBelegREDatum.Name := 'dsBelegREDatum';\r\n    dsBelegREDatum.FieldName := 'REDatum';\r\n    dsBelegBenutzerNeu.SetParentComponent(dsBeleg);\r\n    dsBelegBenutzerNeu.Name := 'dsBelegBenutzerNeu';\r\n    dsBelegBenutzerNeu.FieldName := 'BenutzerNeu';\r\n    dsBelegBenutzerNeu.Size := 50;\r\n    dsBelegBenutzerGeaendert.SetParentComponent(dsBeleg);\r\n    dsBelegBenutzerGeaendert.Name := 'dsBelegBenutzerGeaendert';\r\n    dsBelegBenutzerGeaendert.FieldName := 'BenutzerGeaendert';\r\n    dsBelegBenutzerGeaendert.Size := 50;\r\n    dsBelegBerechnungBrutto.SetParentComponent(dsBeleg);\r\n    dsBelegBerechnungBrutto.Name := 'dsBelegBerechnungBrutto';\r\n    dsBelegBerechnungBrutto.FieldName := 'BerechnungBrutto';\r\n    dsBelegBruttosumme01.SetParentComponent(dsBeleg);\r\n    dsBelegBruttosumme01.Name := 'dsBelegBruttosumme01';\r\n    dsBelegBruttosumme01.FieldName := 'Bruttosumme01';\r\n    dsBelegBruttosumme02.SetParentComponent(dsBeleg);\r\n    dsBelegBruttosumme02.Name := 'dsBelegBruttosumme02';\r\n    dsBelegBruttosumme02.FieldName := 'Bruttosumme02';\r\n    dsBelegBruttosumme03.SetParentComponent(dsBeleg);\r\n    dsBelegBruttosumme03.Name := 'dsBelegBruttosumme03';\r\n    dsBelegBruttosumme03.FieldName := 'Bruttosumme03';\r\n    dsBelegNotiz.SetParentComponent(dsBeleg);\r\n    dsBelegNotiz.Name := 'dsBelegNotiz';\r\n    dsBelegNotiz.FieldName := 'Notiz';\r\n    dsBelegNotiz.Size := 255;\r\n    dsBelegMargeProzent.SetParentComponent(dsBeleg);\r\n    dsBelegMargeProzent.Name := 'dsBelegMargeProzent';\r\n    dsBelegMargeProzent.FieldName := 'MargeProzent';\r\n    dsBelegBelegsprache.SetParentComponent(dsBeleg);\r\n    dsBelegBelegsprache.Name := 'dsBelegBelegsprache';\r\n    dsBelegBelegsprache.FieldName := 'Belegsprache';\r\n    dsBelegBelegsprache.Size := 10;\r\n    dsBelegDuplicate.SetParentComponent(dsBeleg);\r\n    dsBelegDuplicate.Name := 'dsBelegDuplicate';\r\n    dsBelegDuplicate.FieldName := 'Duplicate';\r\n    dsBelegperEmail.SetParentComponent(dsBeleg);\r\n    dsBelegperEmail.Name := 'dsBelegperEmail';\r\n    dsBelegperEmail.FieldName := 'perEmail';\r\n    dsBelegAnsprechpartner.SetParentComponent(dsBeleg);\r\n    dsBelegAnsprechpartner.Name := 'dsBelegAnsprechpartner';\r\n    dsBelegAnsprechpartner.FieldName := 'Ansprechpartner';\r\n    dsBelegAnsprechpartner.Size := 105;\r\n    dsBelegKundennummerFremd.SetParentComponent(dsBeleg);\r\n    dsBelegKundennummerFremd.Name := 'dsBelegKundennummerFremd';\r\n    dsBelegKundennummerFremd.FieldName := 'KundennummerFremd';\r\n    dsBelegProtokoll.SetParentComponent(dsBeleg);\r\n    dsBelegProtokoll.Name := 'dsBelegProtokoll';\r\n    dsBelegProtokoll.FieldName := 'Protokoll';\r\n    dsBelegProtokoll.Size := 255;\r\n    dsBelegVerleihauftrag.SetParentComponent(dsBeleg);\r\n    dsBelegVerleihauftrag.Name := 'dsBelegVerleihauftrag';\r\n    dsBelegVerleihauftrag.FieldName := 'Verleihauftrag';\r\n    dsBelegVerleihVon.SetParentComponent(dsBeleg);\r\n    dsBelegVerleihVon.Name := 'dsBelegVerleihVon';\r\n    dsBelegVerleihVon.FieldName := 'VerleihVon';\r\n    dsBelegVerleihBis.SetParentComponent(dsBeleg);\r\n    dsBelegVerleihBis.Name := 'dsBelegVerleihBis';\r\n    dsBelegVerleihBis.FieldName := 'VerleihBis';\r\n    dsBeleggesperrt.SetParentComponent(dsBeleg);\r\n    dsBeleggesperrt.Name := 'dsBeleggesperrt';\r\n    dsBeleggesperrt.FieldName := 'gesperrt';\r\n    dsBelegVerleihvonText.SetParentComponent(dsBeleg);\r\n    dsBelegVerleihvonText.Name := 'dsBelegVerleihvonText';\r\n    dsBelegVerleihvonText.FieldName := 'VerleihvonText';\r\n    dsBelegVerleihvonText.Size := 50;\r\n    dsBelegVerleihbisText.SetParentComponent(dsBeleg);\r\n    dsBelegVerleihbisText.Name := 'dsBelegVerleihbisText';\r\n    dsBelegVerleihbisText.FieldName := 'VerleihbisText';\r\n    dsBelegVerleihbisText.Size := 50;\r\n    dsBelegDruckWHG.SetParentComponent(dsBeleg);\r\n    dsBelegDruckWHG.Name := 'dsBelegDruckWHG';\r\n    dsBelegDruckWHG.FieldName := 'DruckWHG';\r\n    dsBelegDruckWHG.Size := 3;\r\n    dsBelegDruckWHGKurs.SetParentComponent(dsBeleg);\r\n    dsBelegDruckWHGKurs.Name := 'dsBelegDruckWHGKurs';\r\n    dsBelegDruckWHGKurs.FieldName := 'DruckWHGKurs';\r\n    dsBeleggueltigbis.SetParentComponent(dsBeleg);\r\n    dsBeleggueltigbis.Name := 'dsBeleggueltigbis';\r\n    dsBeleggueltigbis.FieldName := 'gueltigbis';\r\n    dsBelegProzentsatzZusatzposition.SetParentComponent(dsBeleg);\r\n    dsBelegProzentsatzZusatzposition.Name := 'dsBelegProzentsatzZusatzposition';\r\n    dsBelegProzentsatzZusatzposition.FieldName := 'ProzentsatzZusatzposition';\r\n    dsBelegTextZusatzposition.SetParentComponent(dsBeleg);\r\n    dsBelegTextZusatzposition.Name := 'dsBelegTextZusatzposition';\r\n    dsBelegTextZusatzposition.FieldName := 'TextZusatzposition';\r\n    dsBelegTextZusatzposition.Size := 255;\r\n    dsBelegTextzusatzBeschreibung.SetParentComponent(dsBeleg);\r\n    dsBelegTextzusatzBeschreibung.Name := 'dsBelegTextzusatzBeschreibung';\r\n    dsBelegTextzusatzBeschreibung.FieldName := 'TextzusatzBeschreibung';\r\n    dsBelegTextzusatzBeschreibung.Size := 50;\r\n    dsBelegReferenzTarifberechnung.SetParentComponent(dsBeleg);\r\n    dsBelegReferenzTarifberechnung.Name := 'dsBelegReferenzTarifberechnung';\r\n    dsBelegReferenzTarifberechnung.FieldName := 'ReferenzTarifberechnung';\r\n    dsBelegReferenzTarifberechnung.Size := 10;\r\n    dsBelegLayoutname.SetParentComponent(dsBeleg);\r\n    dsBelegLayoutname.Name := 'dsBelegLayoutname';\r\n    dsBelegLayoutname.FieldName := 'Layoutname';\r\n    dsBelegLayoutname.Size := 50;\r\n    dsBelegGesamtgewicht.SetParentComponent(dsBeleg);\r\n    dsBelegGesamtgewicht.Name := 'dsBelegGesamtgewicht';\r\n    dsBelegGesamtgewicht.FieldName := 'Gesamtgewicht';\r\n    dsBelegBetragZusatzposition.SetParentComponent(dsBeleg);\r\n    dsBelegBetragZusatzposition.Name := 'dsBelegBetragZusatzposition';\r\n    dsBelegBetragZusatzposition.FieldName := 'BetragZusatzposition';\r\n    dsBelegMehrwertsteuersatz4.SetParentComponent(dsBeleg);\r\n    dsBelegMehrwertsteuersatz4.Name := 'dsBelegMehrwertsteuersatz4';\r\n    dsBelegMehrwertsteuersatz4.FieldName := 'Mehrwertsteuersatz4';\r\n    dsBelegMehrwertsteuersatz5.SetParentComponent(dsBeleg);\r\n    dsBelegMehrwertsteuersatz5.Name := 'dsBelegMehrwertsteuersatz5';\r\n    dsBelegMehrwertsteuersatz5.FieldName := 'Mehrwertsteuersatz5';\r\n    dsBelegMehrwertsteuersatz6.SetParentComponent(dsBeleg);\r\n    dsBelegMehrwertsteuersatz6.Name := 'dsBelegMehrwertsteuersatz6';\r\n    dsBelegMehrwertsteuersatz6.FieldName := 'Mehrwertsteuersatz6';\r\n    dsBelegBesteuerungKey.SetParentComponent(dsBeleg);\r\n    dsBelegBesteuerungKey.Name := 'dsBelegBesteuerungKey';\r\n    dsBelegBesteuerungKey.FieldName := 'BesteuerungKey';\r\n    dsBelegVertreterMatchcode.SetParentComponent(dsBeleg);\r\n    dsBelegVertreterMatchcode.Name := 'dsBelegVertreterMatchcode';\r\n    dsBelegVertreterMatchcode.FieldName := 'VertreterMatchcode';\r\n    dsBelegVertreterMatchcode.Size := 50;\r\n    dsBelegVerfasser.SetParentComponent(dsBeleg);\r\n    dsBelegVerfasser.Name := 'dsBelegVerfasser';\r\n    dsBelegVerfasser.FieldName := 'Verfasser';\r\n    dsBelegVerfasser.Size := 10;\r\n    dsBelegLieferadresseID.SetParentComponent(dsBeleg);\r\n    dsBelegLieferadresseID.Name := 'dsBelegLieferadresseID';\r\n    dsBelegLieferadresseID.FieldName := 'LieferadresseID';\r\n    dsBelegBelegvariante.SetParentComponent(dsBeleg);\r\n    dsBelegBelegvariante.Name := 'dsBelegBelegvariante';\r\n    dsBelegBelegvariante.FieldName := 'Belegvariante';\r\n    dsBelegBelegvariante.Size := 25;\r\n    dsBelegAuftragErwartetBis.SetParentComponent(dsBeleg);\r\n    dsBelegAuftragErwartetBis.Name := 'dsBelegAuftragErwartetBis';\r\n    dsBelegAuftragErwartetBis.FieldName := 'AuftragErwartetBis';\r\n    dsBelegAuftragWahrscheinlichkeit.SetParentComponent(dsBeleg);\r\n    dsBelegAuftragWahrscheinlichkeit.Name := 'dsBelegAuftragWahrscheinlichkeit';\r\n    dsBelegAuftragWahrscheinlichkeit.FieldName := 'AuftragWahrscheinlichkeit';\r\n    dsBelegFahrzeugID.SetParentComponent(dsBeleg);\r\n    dsBelegFahrzeugID.Name := 'dsBelegFahrzeugID';\r\n    dsBelegFahrzeugID.FieldName := 'FahrzeugID';\r\n    dsBelegMonatJahr.SetParentComponent(dsBeleg);\r\n    dsBelegMonatJahr.Name := 'dsBelegMonatJahr';\r\n    dsBelegMonatJahr.FieldName := 'MonatJahr';\r\n    dsBelegLieferanschriftDaten.SetParentComponent(dsBeleg);\r\n    dsBelegLieferanschriftDaten.Name := 'dsBelegLieferanschriftDaten';\r\n    dsBelegLieferanschriftDaten.FieldName := 'LieferanschriftDaten';\r\n    dsBelegLieferanschriftDaten.Size := 255;\r\n    dsBelegGesamtVolumen.SetParentComponent(dsBeleg);\r\n    dsBelegGesamtVolumen.Name := 'dsBelegGesamtVolumen';\r\n    dsBelegGesamtVolumen.FieldName := 'GesamtVolumen';\r\n    dsBelegBelegPKey.SetParentComponent(dsBeleg);\r\n    dsBelegBelegPKey.Name := 'dsBelegBelegPKey';\r\n    dsBelegBelegPKey.FieldName := 'BelegPKey';\r\n    dsBelegDruckParameter.SetParentComponent(dsBeleg);\r\n    dsBelegDruckParameter.Name := 'dsBelegDruckParameter';\r\n    dsBelegDruckParameter.FieldName := 'DruckParameter';\r\n    dsBelegDruckParameter.Size := 255;\r\n    dsBelegReferenzService.SetParentComponent(dsBeleg);\r\n    dsBelegReferenzService.Name := 'dsBelegReferenzService';\r\n    dsBelegReferenzService.FieldName := 'ReferenzService';\r\n    dsBelegReferenzService.Size := 10;\r\n    SourceBeleg.SetParentComponent(Self);\r\n    SourceBeleg.Name := 'SourceBeleg';\r\n    SourceBeleg.DataSet := dsBeleg;\r\n    SetEvent(SourceBeleg, Self, 'OnStateChange', 'SourceBelegStateChange');\r\n    SourceBeleg.Left := 16;\r\n    SourceBeleg.Top := 128;\r\n    dsPositionen.SetParentComponent(Self);\r\n    dsPositionen.Name := 'dsPositionen';\r\n    dsPositionen.AfterOpen := dsPositionenAfterOpen;\r\n    dsPositionen.EntitySetName := 'PositionenAngebote';\r\n    dsPositionen.Connection := DM2.XDataWebConnection1;\r\n    dsPositionen.SubpropsDepth := 1;\r\n    dsPositionen.QueryString := '$expand=Artikelnummer';\r\n    dsPositionen.Left := 216;\r\n    dsPositionen.Top := 128;\r\n    dsPositionenArtikelnummer.SetParentComponent(dsPositionen);\r\n    dsPositionenArtikelnummer.Name := 'dsPositionenArtikelnummer';\r\n    dsPositionenArtikelnummer.FieldName := 'Artikelnummer';\r\n    dsPositionenNummerkomplett.SetParentComponent(dsPositionen);\r\n    dsPositionenNummerkomplett.Name := 'dsPositionenNummerkomplett';\r\n    dsPositionenNummerkomplett.FieldName := 'Nummerkomplett';\r\n    dsPositionenID.SetParentComponent(dsPositionen);\r\n    dsPositionenID.Name := 'dsPositionenID';\r\n    dsPositionenID.FieldName := 'ID';\r\n    dsPositionenID.Required := True;\r\n    dsPositionenPosNr.SetParentComponent(dsPositionen);\r\n    dsPositionenPosNr.Name := 'dsPositionenPosNr';\r\n    dsPositionenPosNr.FieldName := 'PosNr';\r\n    dsPositionenPosNr.Required := True;\r\n    dsPositionenPosUNr.SetParentComponent(dsPositionen);\r\n    dsPositionenPosUNr.Name := 'dsPositionenPosUNr';\r\n    dsPositionenPosUNr.FieldName := 'PosUNr';\r\n    dsPositionenSumme.SetParentComponent(dsPositionen);\r\n    dsPositionenSumme.Name := 'dsPositionenSumme';\r\n    dsPositionenSumme.FieldName := 'Summe';\r\n    dsPositionenArtikelueberschrift.SetParentComponent(dsPositionen);\r\n    dsPositionenArtikelueberschrift.Name := 'dsPositionenArtikelueberschrift';\r\n    dsPositionenArtikelueberschrift.FieldName := 'Artikelueberschrift';\r\n    dsPositionenArtikelueberschrift.Size := 50;\r\n    dsPositionenArtikelbeschreibung.SetParentComponent(dsPositionen);\r\n    dsPositionenArtikelbeschreibung.Name := 'dsPositionenArtikelbeschreibung';\r\n    dsPositionenArtikelbeschreibung.FieldName := 'Artikelbeschreibung';\r\n    dsPositionenArtikelbeschreibung.Size := 255;\r\n    dsPositionenMenge.SetParentComponent(dsPositionen);\r\n    dsPositionenMenge.Name := 'dsPositionenMenge';\r\n    dsPositionenMenge.FieldName := 'Menge';\r\n    dsPositionenArtderMenge.SetParentComponent(dsPositionen);\r\n    dsPositionenArtderMenge.Name := 'dsPositionenArtderMenge';\r\n    dsPositionenArtderMenge.FieldName := 'ArtderMenge';\r\n    dsPositionenArtderMenge.Size := 50;\r\n    dsPositionenVerkaufspreis.SetParentComponent(dsPositionen);\r\n    dsPositionenVerkaufspreis.Name := 'dsPositionenVerkaufspreis';\r\n    dsPositionenVerkaufspreis.FieldName := 'Verkaufspreis';\r\n    dsPositionenEinkaufspreis.SetParentComponent(dsPositionen);\r\n    dsPositionenEinkaufspreis.Name := 'dsPositionenEinkaufspreis';\r\n    dsPositionenEinkaufspreis.FieldName := 'Einkaufspreis';\r\n    dsPositionenSeriennummer.SetParentComponent(dsPositionen);\r\n    dsPositionenSeriennummer.Name := 'dsPositionenSeriennummer';\r\n    dsPositionenSeriennummer.FieldName := 'Seriennummer';\r\n    dsPositionenSeriennummer.Size := 30;\r\n    dsPositionenWarengruppe.SetParentComponent(dsPositionen);\r\n    dsPositionenWarengruppe.Name := 'dsPositionenWarengruppe';\r\n    dsPositionenWarengruppe.FieldName := 'Warengruppe';\r\n    dsPositionenWarengruppe.Size := 50;\r\n    dsPositionenWarenuntergruppe.SetParentComponent(dsPositionen);\r\n    dsPositionenWarenuntergruppe.Name := 'dsPositionenWarenuntergruppe';\r\n    dsPositionenWarenuntergruppe.FieldName := 'Warenuntergruppe';\r\n    dsPositionenWarenuntergruppe.Size := 50;\r\n    dsPositionenArtikelnummerKunde.SetParentComponent(dsPositionen);\r\n    dsPositionenArtikelnummerKunde.Name := 'dsPositionenArtikelnummerKunde';\r\n    dsPositionenArtikelnummerKunde.FieldName := 'ArtikelnummerKunde';\r\n    dsPositionenLieferant.SetParentComponent(dsPositionen);\r\n    dsPositionenLieferant.Name := 'dsPositionenLieferant';\r\n    dsPositionenLieferant.FieldName := 'Lieferant';\r\n    dsPositionenLieferant.Size := 13;\r\n    dsPositionenGewicht.SetParentComponent(dsPositionen);\r\n    dsPositionenGewicht.Name := 'dsPositionenGewicht';\r\n    dsPositionenGewicht.FieldName := 'Gewicht';\r\n    dsPositionenLaenge.SetParentComponent(dsPositionen);\r\n    dsPositionenLaenge.Name := 'dsPositionenLaenge';\r\n    dsPositionenLaenge.FieldName := 'Laenge';\r\n    dsPositionenBreite.SetParentComponent(dsPositionen);\r\n    dsPositionenBreite.Name := 'dsPositionenBreite';\r\n    dsPositionenBreite.FieldName := 'Breite';\r\n    dsPositionenHoehe.SetParentComponent(dsPositionen);\r\n    dsPositionenHoehe.Name := 'dsPositionenHoehe';\r\n    dsPositionenHoehe.FieldName := 'Hoehe';\r\n    dsPositionenMehrwertsteuersatz.SetParentComponent(dsPositionen);\r\n    dsPositionenMehrwertsteuersatz.Name := 'dsPositionenMehrwertsteuersatz';\r\n    dsPositionenMehrwertsteuersatz.FieldName := 'Mehrwertsteuersatz';\r\n    dsPositionenEndpreis.SetParentComponent(dsPositionen);\r\n    dsPositionenEndpreis.Name := 'dsPositionenEndpreis';\r\n    dsPositionenEndpreis.FieldName := 'Endpreis';\r\n    dsPositionenPosMWST.SetParentComponent(dsPositionen);\r\n    dsPositionenPosMWST.Name := 'dsPositionenPosMWST';\r\n    dsPositionenPosMWST.FieldName := 'PosMWST';\r\n    dsPositionenBruttoEndpreis.SetParentComponent(dsPositionen);\r\n    dsPositionenBruttoEndpreis.Name := 'dsPositionenBruttoEndpreis';\r\n    dsPositionenBruttoEndpreis.FieldName := 'BruttoEndpreis';\r\n    dsPositionenEndpreis_EK.SetParentComponent(dsPositionen);\r\n    dsPositionenEndpreis_EK.Name := 'dsPositionenEndpreis_EK';\r\n    dsPositionenEndpreis_EK.FieldName := 'Endpreis_EK';\r\n    dsPositionenRabattsatz.SetParentComponent(dsPositionen);\r\n    dsPositionenRabattsatz.Name := 'dsPositionenRabattsatz';\r\n    dsPositionenRabattsatz.FieldName := 'Rabattsatz';\r\n    dsPositionenPreisvorRabatt.SetParentComponent(dsPositionen);\r\n    dsPositionenPreisvorRabatt.Name := 'dsPositionenPreisvorRabatt';\r\n    dsPositionenPreisvorRabatt.FieldName := 'PreisvorRabatt';\r\n    dsPositionenPKZ.SetParentComponent(dsPositionen);\r\n    dsPositionenPKZ.Name := 'dsPositionenPKZ';\r\n    dsPositionenPKZ.FieldName := 'PKZ';\r\n    dsPositionenTextfrei10.SetParentComponent(dsPositionen);\r\n    dsPositionenTextfrei10.Name := 'dsPositionenTextfrei10';\r\n    dsPositionenTextfrei10.FieldName := 'Textfrei10';\r\n    dsPositionenTextfrei10.Size := 50;\r\n    dsPositionenTextfrei20.SetParentComponent(dsPositionen);\r\n    dsPositionenTextfrei20.Name := 'dsPositionenTextfrei20';\r\n    dsPositionenTextfrei20.FieldName := 'Textfrei20';\r\n    dsPositionenTextfrei20.Size := 50;\r\n    dsPositionenProduktionAbgeschlossen.SetParentComponent(dsPositionen);\r\n    dsPositionenProduktionAbgeschlossen.Name := 'dsPositionenProduktionAbgeschlossen';\r\n    dsPositionenProduktionAbgeschlossen.FieldName := 'ProduktionAbgeschlossen';\r\n    dsPositionenEinzelpreisBrutto.SetParentComponent(dsPositionen);\r\n    dsPositionenEinzelpreisBrutto.Name := 'dsPositionenEinzelpreisBrutto';\r\n    dsPositionenEinzelpreisBrutto.FieldName := 'EinzelpreisBrutto';\r\n    dsPositionenPosMarge.SetParentComponent(dsPositionen);\r\n    dsPositionenPosMarge.Name := 'dsPositionenPosMarge';\r\n    dsPositionenPosMarge.FieldName := 'PosMarge';\r\n    dsPositionenPosMargeProzent.SetParentComponent(dsPositionen);\r\n    dsPositionenPosMargeProzent.Name := 'dsPositionenPosMargeProzent';\r\n    dsPositionenPosMargeProzent.FieldName := 'PosMargeProzent';\r\n    dsPositionenBereitsGeliefert.SetParentComponent(dsPositionen);\r\n    dsPositionenBereitsGeliefert.Name := 'dsPositionenBereitsGeliefert';\r\n    dsPositionenBereitsGeliefert.FieldName := 'BereitsGeliefert';\r\n    dsPositionenausliefern.SetParentComponent(dsPositionen);\r\n    dsPositionenausliefern.Name := 'dsPositionenausliefern';\r\n    dsPositionenausliefern.FieldName := 'ausliefern';\r\n    dsPositionenBestellungErledigt.SetParentComponent(dsPositionen);\r\n    dsPositionenBestellungErledigt.Name := 'dsPositionenBestellungErledigt';\r\n    dsPositionenBestellungErledigt.FieldName := 'BestellungErledigt';\r\n    dsPositionenLager.SetParentComponent(dsPositionen);\r\n    dsPositionenLager.Name := 'dsPositionenLager';\r\n    dsPositionenLager.FieldName := 'Lager';\r\n    dsPositionenLager.Size := 50;\r\n    dsPositionenbestellen.SetParentComponent(dsPositionen);\r\n    dsPositionenbestellen.Name := 'dsPositionenbestellen';\r\n    dsPositionenbestellen.FieldName := 'bestellen';\r\n    dsPositionenWarenbestand.SetParentComponent(dsPositionen);\r\n    dsPositionenWarenbestand.Name := 'dsPositionenWarenbestand';\r\n    dsPositionenWarenbestand.FieldName := 'Warenbestand';\r\n    dsPositionenArtikelbeschreibungRTF.SetParentComponent(dsPositionen);\r\n    dsPositionenArtikelbeschreibungRTF.Name := 'dsPositionenArtikelbeschreibungRTF';\r\n    dsPositionenArtikelbeschreibungRTF.FieldName := 'ArtikelbeschreibungRTF';\r\n    dsPositionenArtikelbeschreibungRTF.Size := 255;\r\n    dsPositionenQuellartikel.SetParentComponent(dsPositionen);\r\n    dsPositionenQuellartikel.Name := 'dsPositionenQuellartikel';\r\n    dsPositionenQuellartikel.FieldName := 'Quellartikel';\r\n    dsPositionenQuellartikel.Size := 25;\r\n    dsPositionenArtikelnummerWB.SetParentComponent(dsPositionen);\r\n    dsPositionenArtikelnummerWB.Name := 'dsPositionenArtikelnummerWB';\r\n    dsPositionenArtikelnummerWB.FieldName := 'ArtikelnummerWB';\r\n    dsPositionenArtikelnummerWB.Size := 25;\r\n    dsPositionenPreisanteilNetto.SetParentComponent(dsPositionen);\r\n    dsPositionenPreisanteilNetto.Name := 'dsPositionenPreisanteilNetto';\r\n    dsPositionenPreisanteilNetto.FieldName := 'PreisanteilNetto';\r\n    dsPositionenSetHPos.SetParentComponent(dsPositionen);\r\n    dsPositionenSetHPos.Name := 'dsPositionenSetHPos';\r\n    dsPositionenSetHPos.FieldName := 'SetHPos';\r\n    dsPositionenSetHPos.Size := 38;\r\n    dsPositionenSetUPos.SetParentComponent(dsPositionen);\r\n    dsPositionenSetUPos.Name := 'dsPositionenSetUPos';\r\n    dsPositionenSetUPos.FieldName := 'SetUPos';\r\n    dsPositionenSetUPos.Size := 38;\r\n    dsPositionenProvisionssatz.SetParentComponent(dsPositionen);\r\n    dsPositionenProvisionssatz.Name := 'dsPositionenProvisionssatz';\r\n    dsPositionenProvisionssatz.FieldName := 'Provisionssatz';\r\n    dsPositionenProvisionsbetrag.SetParentComponent(dsPositionen);\r\n    dsPositionenProvisionsbetrag.Name := 'dsPositionenProvisionsbetrag';\r\n    dsPositionenProvisionsbetrag.FieldName := 'Provisionsbetrag';\r\n    dsPositionenArtikelsprache.SetParentComponent(dsPositionen);\r\n    dsPositionenArtikelsprache.Name := 'dsPositionenArtikelsprache';\r\n    dsPositionenArtikelsprache.FieldName := 'Artikelsprache';\r\n    dsPositionenArtikelsprache.Size := 255;\r\n    dsPositionenEKvom.SetParentComponent(dsPositionen);\r\n    dsPositionenEKvom.Name := 'dsPositionenEKvom';\r\n    dsPositionenEKvom.FieldName := 'EKvom';\r\n    dsPositionenMengenberechnungID.SetParentComponent(dsPositionen);\r\n    dsPositionenMengenberechnungID.Name := 'dsPositionenMengenberechnungID';\r\n    dsPositionenMengenberechnungID.FieldName := 'MengenberechnungID';\r\n    dsPositionenMengenberechnungID.Size := 38;\r\n    dsPositionenTaraID.SetParentComponent(dsPositionen);\r\n    dsPositionenTaraID.Name := 'dsPositionenTaraID';\r\n    dsPositionenTaraID.FieldName := 'TaraID';\r\n    dsPositionenTaraID.Size := 38;\r\n    dsPositionenTara.SetParentComponent(dsPositionen);\r\n    dsPositionenTara.Name := 'dsPositionenTara';\r\n    dsPositionenTara.FieldName := 'Tara';\r\n    dsPositionenBruttoGewicht.SetParentComponent(dsPositionen);\r\n    dsPositionenBruttoGewicht.Name := 'dsPositionenBruttoGewicht';\r\n    dsPositionenBruttoGewicht.FieldName := 'BruttoGewicht';\r\n    dsPositionenAussenflaeche.SetParentComponent(dsPositionen);\r\n    dsPositionenAussenflaeche.Name := 'dsPositionenAussenflaeche';\r\n    dsPositionenAussenflaeche.FieldName := 'Aussenflaeche';\r\n    dsPositionenLadeort.SetParentComponent(dsPositionen);\r\n    dsPositionenLadeort.Name := 'dsPositionenLadeort';\r\n    dsPositionenLadeort.FieldName := 'Ladeort';\r\n    dsPositionenLadeort.Size := 50;\r\n    dsPositionenSeitenumbruch.SetParentComponent(dsPositionen);\r\n    dsPositionenSeitenumbruch.Name := 'dsPositionenSeitenumbruch';\r\n    dsPositionenSeitenumbruch.FieldName := 'Seitenumbruch';\r\n    dsPositionenPlanerFarbe.SetParentComponent(dsPositionen);\r\n    dsPositionenPlanerFarbe.Name := 'dsPositionenPlanerFarbe';\r\n    dsPositionenPlanerFarbe.FieldName := 'PlanerFarbe';\r\n    dsPositionenMWStKey.SetParentComponent(dsPositionen);\r\n    dsPositionenMWStKey.Name := 'dsPositionenMWStKey';\r\n    dsPositionenMWStKey.FieldName := 'MWStKey';\r\n    dsPositionenZSnachPos.SetParentComponent(dsPositionen);\r\n    dsPositionenZSnachPos.Name := 'dsPositionenZSnachPos';\r\n    dsPositionenZSnachPos.FieldName := 'ZSnachPos';\r\n    dsPositionenLieferzeit.SetParentComponent(dsPositionen);\r\n    dsPositionenLieferzeit.Name := 'dsPositionenLieferzeit';\r\n    dsPositionenLieferzeit.FieldName := 'Lieferzeit';\r\n    dsPositionenLieferzeit.Size := 50;\r\n    dsPositionenPreisVorRabattWHG.SetParentComponent(dsPositionen);\r\n    dsPositionenPreisVorRabattWHG.Name := 'dsPositionenPreisVorRabattWHG';\r\n    dsPositionenPreisVorRabattWHG.FieldName := 'PreisVorRabattWHG';\r\n    dsPositionenReferenzKalkulation.SetParentComponent(dsPositionen);\r\n    dsPositionenReferenzKalkulation.Name := 'dsPositionenReferenzKalkulation';\r\n    dsPositionenReferenzKalkulation.FieldName := 'ReferenzKalkulation';\r\n    dsPositionenReferenzKalkulation.Size := 10;\r\n    dsPositionenPKey.SetParentComponent(dsPositionen);\r\n    dsPositionenPKey.Name := 'dsPositionenPKey';\r\n    dsPositionenPKey.FieldName := 'PKey';\r\n    dsPositionenAuftragsnummer.SetParentComponent(dsPositionen);\r\n    dsPositionenAuftragsnummer.Name := 'dsPositionenAuftragsnummer';\r\n    dsPositionenAuftragsnummer.FieldName := 'Auftragsnummer';\r\n    dsPositionenlwbID.SetParentComponent(dsPositionen);\r\n    dsPositionenlwbID.Name := 'dsPositionenlwbID';\r\n    dsPositionenlwbID.FieldName := 'lwbID';\r\n    dsPositionenlwbID.Size := 38;\r\n    dsPositionenBelegdatum.SetParentComponent(dsPositionen);\r\n    dsPositionenBelegdatum.Name := 'dsPositionenBelegdatum';\r\n    dsPositionenBelegdatum.FieldName := 'Belegdatum';\r\n    dsPositionenWarenkontrollnummern.SetParentComponent(dsPositionen);\r\n    dsPositionenWarenkontrollnummern.Name := 'dsPositionenWarenkontrollnummern';\r\n    dsPositionenWarenkontrollnummern.FieldName := 'Warenkontrollnummern';\r\n    dsPositionenWarenkontrollnummern.Size := 255;\r\n    dsPositionenVolumen.SetParentComponent(dsPositionen);\r\n    dsPositionenVolumen.Name := 'dsPositionenVolumen';\r\n    dsPositionenVolumen.FieldName := 'Volumen';\r\n    dsPositionenPosVolumen.SetParentComponent(dsPositionen);\r\n    dsPositionenPosVolumen.Name := 'dsPositionenPosVolumen';\r\n    dsPositionenPosVolumen.FieldName := 'PosVolumen';\r\n    dsPositionenArtikelAttribute.SetParentComponent(dsPositionen);\r\n    dsPositionenArtikelAttribute.Name := 'dsPositionenArtikelAttribute';\r\n    dsPositionenArtikelAttribute.FieldName := 'ArtikelAttribute';\r\n    dsPositionenArtikelAttribute.Size := 255;\r\n    dsPositionenMonteurP.SetParentComponent(dsPositionen);\r\n    dsPositionenMonteurP.Name := 'dsPositionenMonteurP';\r\n    dsPositionenMonteurP.FieldName := 'MonteurP';\r\n    dsPositionenArbeitszeitDatum.SetParentComponent(dsPositionen);\r\n    dsPositionenArbeitszeitDatum.Name := 'dsPositionenArbeitszeitDatum';\r\n    dsPositionenArbeitszeitDatum.FieldName := 'ArbeitszeitDatum';\r\n    dsPositionenArbeitszeitVON.SetParentComponent(dsPositionen);\r\n    dsPositionenArbeitszeitVON.Name := 'dsPositionenArbeitszeitVON';\r\n    dsPositionenArbeitszeitVON.FieldName := 'ArbeitszeitVON';\r\n    dsPositionenArbeitszeitVON.DisplayFormat := 'hh:mm';\r\n    dsPositionenArbeitszeitBIS.SetParentComponent(dsPositionen);\r\n    dsPositionenArbeitszeitBIS.Name := 'dsPositionenArbeitszeitBIS';\r\n    dsPositionenArbeitszeitBIS.FieldName := 'ArbeitszeitBIS';\r\n    dsPositionenArbeitszeitBIS.DisplayFormat := 'hh:mm';\r\n    dsPositionenArtikelnummerArtikelnummer.SetParentComponent(dsPositionen);\r\n    dsPositionenArtikelnummerArtikelnummer.Name := 'dsPositionenArtikelnummerArtikelnummer';\r\n    dsPositionenArtikelnummerArtikelnummer.FieldName := 'Artikelnummer.Artikelnummer';\r\n    dsPositionenArtikelnummerArtikelnummer.Size := 25;\r\n    dsPositionenArtikelnummerArbeitszeit.SetParentComponent(dsPositionen);\r\n    dsPositionenArtikelnummerArbeitszeit.Name := 'dsPositionenArtikelnummerArbeitszeit';\r\n    dsPositionenArtikelnummerArbeitszeit.FieldName := 'Artikelnummer.Arbeitszeit';\r\n    sourcePositionen.SetParentComponent(Self);\r\n    sourcePositionen.Name := 'sourcePositionen';\r\n    sourcePositionen.DataSet := dsPositionen;\r\n    sourcePositionen.Left := 136;\r\n    sourcePositionen.Top := 128;\r\n    dsSumBeleg.SetParentComponent(Self);\r\n    dsSumBeleg.Name := 'dsSumBeleg';\r\n    dsSumBeleg.AfterOpen := dsSumBelegAfterOpen;\r\n    dsSumBeleg.EntitySetName := 'PositionenAngebote';\r\n    dsSumBeleg.Connection := DM2.XDataWebConnection1;\r\n    dsSumBeleg.Left := 136;\r\n    dsSumBeleg.Top := 176;\r\n    dsSumBelegPosVolumen.SetParentComponent(dsSumBeleg);\r\n    dsSumBelegPosVolumen.Name := 'dsSumBelegPosVolumen';\r\n    dsSumBelegPosVolumen.FieldName := 'PosVolumen';\r\n    dsSumBelegBruttoGewicht.SetParentComponent(dsSumBeleg);\r\n    dsSumBelegBruttoGewicht.Name := 'dsSumBelegBruttoGewicht';\r\n    dsSumBelegBruttoGewicht.FieldName := 'BruttoGewicht';\r\n    dsSumBelegMehrwertsteuersatz.SetParentComponent(dsSumBeleg);\r\n    dsSumBelegMehrwertsteuersatz.Name := 'dsSumBelegMehrwertsteuersatz';\r\n    dsSumBelegMehrwertsteuersatz.FieldName := 'Mehrwertsteuersatz';\r\n    dsSumBelegEndpreis.SetParentComponent(dsSumBeleg);\r\n    dsSumBelegEndpreis.Name := 'dsSumBelegEndpreis';\r\n    dsSumBelegEndpreis.FieldName := 'Endpreis';\r\n    dsSumBelegPosMWST.SetParentComponent(dsSumBeleg);\r\n    dsSumBelegPosMWST.Name := 'dsSumBelegPosMWST';\r\n    dsSumBelegPosMWST.FieldName := 'PosMWST';\r\n    dsSumBelegBruttoEndpreis.SetParentComponent(dsSumBeleg);\r\n    dsSumBelegBruttoEndpreis.Name := 'dsSumBelegBruttoEndpreis';\r\n    dsSumBelegBruttoEndpreis.FieldName := 'BruttoEndpreis';\r\n    dsSumBelegEndpreis_EK.SetParentComponent(dsSumBeleg);\r\n    dsSumBelegEndpreis_EK.Name := 'dsSumBelegEndpreis_EK';\r\n    dsSumBelegEndpreis_EK.FieldName := 'Endpreis_EK';\r\n    dsSumBelegPKZ.SetParentComponent(dsSumBeleg);\r\n    dsSumBelegPKZ.Name := 'dsSumBelegPKZ';\r\n    dsSumBelegPKZ.FieldName := 'PKZ';\r\n    WClient.SetParentComponent(Self);\r\n    WClient.Name := 'WClient';\r\n    WClient.Connection := DM2.XDataWebConnection1;\r\n    WClient.Left := 80;\r\n    WClient.Top := 8;\r\n    WebHttpRequest1.SetParentComponent(Self);\r\n    WebHttpRequest1.Name := 'WebHttpRequest1';\r\n    WebHttpRequest1.Headers.BeginUpdate;\r\n    try\r\n      WebHttpRequest1.Headers.Clear;\r\n      WebHttpRequest1.Headers.Add('Cache-Control=no-cache, no-store, must-revalidate');\r\n    finally\r\n      WebHttpRequest1.Headers.EndUpdate;\r\n    end;\r\n    WebHttpRequest1.Left := 16;\r\n    WebHttpRequest1.Top := 65;\r\n    dsObjekt.SetParentComponent(Self);\r\n    dsObjekt.Name := 'dsObjekt';\r\n    dsObjekt.AfterOpen := dsObjektAfterOpen;\r\n    dsObjekt.EntitySetName := 'Objekte';\r\n    dsObjekt.Connection := DM2.XDataWebConnection1;\r\n    dsObjekt.Left := 16;\r\n    dsObjekt.Top := 7;\r\n    dsObjektObjektReferenz.SetParentComponent(dsObjekt);\r\n    dsObjektObjektReferenz.Name := 'dsObjektObjektReferenz';\r\n    dsObjektObjektReferenz.FieldName := 'ObjektReferenz';\r\n    dsObjektObjektReferenz.Required := True;\r\n    dsObjektObjektReferenz.Size := 13;\r\n    dsObjektKurzbezeichnung.SetParentComponent(dsObjekt);\r\n    dsObjektKurzbezeichnung.Name := 'dsObjektKurzbezeichnung';\r\n    dsObjektKurzbezeichnung.FieldName := 'Kurzbezeichnung';\r\n    dsObjektKurzbezeichnung.Size := 25;\r\n    dsObjektObjektnummer.SetParentComponent(dsObjekt);\r\n    dsObjektObjektnummer.Name := 'dsObjektObjektnummer';\r\n    dsObjektObjektnummer.FieldName := 'Objektnummer';\r\n    dsObjektObjektnummer.Size := 25;\r\n    dsDateien.SetParentComponent(Self);\r\n    dsDateien.Name := 'dsDateien';\r\n    dsDateien.AfterOpen := dsDateienAfterOpen;\r\n    dsDateien.EntitySetName := 'DokumenteDateien';\r\n    dsDateien.Connection := DM2.XDataWebConnection1;\r\n    dsDateien.Left := 136;\r\n    dsDateien.Top := 360;\r\n    dsDateienID.SetParentComponent(dsDateien);\r\n    dsDateienID.Name := 'dsDateienID';\r\n    dsDateienID.FieldName := 'ID';\r\n    dsDateienID.Required := True;\r\n    dsDateienDatumUhrzeit.SetParentComponent(dsDateien);\r\n    dsDateienDatumUhrzeit.Name := 'dsDateienDatumUhrzeit';\r\n    dsDateienDatumUhrzeit.FieldName := 'DatumUhrzeit';\r\n    dsDateienDatumUhrzeit.Required := True;\r\n    dsDateienDateiBetreff.SetParentComponent(dsDateien);\r\n    dsDateienDateiBetreff.Name := 'dsDateienDateiBetreff';\r\n    dsDateienDateiBetreff.FieldName := 'DateiBetreff';\r\n    dsDateienDateiBetreff.Size := 50;\r\n    dsDateienNummerkomplett.SetParentComponent(dsDateien);\r\n    dsDateienNummerkomplett.Name := 'dsDateienNummerkomplett';\r\n    dsDateienNummerkomplett.FieldName := 'Nummerkomplett';\r\n    dsDateienNummerkomplett.Size := 10;\r\n  finally\r\n    TC.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    PTC.AfterLoadDFMValues;\r\n    btnSpeichern.AfterLoadDFMValues;\r\n    pickLieferdatum.AfterLoadDFMValues;\r\n    edtAuftragsbezeichnung.AfterLoadDFMValues;\r\n    edtLiefertermin.AfterLoadDFMValues;\r\n    btnNeuePosition.AfterLoadDFMValues;\r\n    Container4.AfterLoadDFMValues;\r\n    btnDateien.AfterLoadDFMValues;\r\n    btnDateienObjekt.AfterLoadDFMValues;\r\n    btnDateienKontakt.AfterLoadDFMValues;\r\n    dsBeleg.AfterLoadDFMValues;\r\n    dsBelegKundennummer.AfterLoadDFMValues;\r\n    dsBelegKundennummerKundennummer.AfterLoadDFMValues;\r\n    dsBelegNummerkomplett.AfterLoadDFMValues;\r\n    dsBelegReferenzAuftagbest.AfterLoadDFMValues;\r\n    dsBelegReferenzLieferschein.AfterLoadDFMValues;\r\n    dsBelegReferenzRechnung.AfterLoadDFMValues;\r\n    dsBelegDatum.AfterLoadDFMValues;\r\n    dsBelegJahr.AfterLoadDFMValues;\r\n    dsBelegKalenderwoche.AfterLoadDFMValues;\r\n    dsBelegNachname.AfterLoadDFMValues;\r\n    dsBelegVorname.AfterLoadDFMValues;\r\n    dsBelegPostleitzahl.AfterLoadDFMValues;\r\n    dsBelegOrt.AfterLoadDFMValues;\r\n    dsBelegLaenderkuerzel.AfterLoadDFMValues;\r\n    dsBelegLand.AfterLoadDFMValues;\r\n    dsBelegBriefanrede1.AfterLoadDFMValues;\r\n    dsBelegBriefanrede2.AfterLoadDFMValues;\r\n    dsBelegEMail.AfterLoadDFMValues;\r\n    dsBelegAdresseBild.AfterLoadDFMValues;\r\n    dsBelegLieferanschriftBild.AfterLoadDFMValues;\r\n    dsBelegZahlungsbedingung.AfterLoadDFMValues;\r\n    dsBelegZahlungsbedingungText.AfterLoadDFMValues;\r\n    dsBelegAuftragsbezeichnung.AfterLoadDFMValues;\r\n    dsBelegAuftragnummerKunde.AfterLoadDFMValues;\r\n    dsBelegBestelldatumKunde.AfterLoadDFMValues;\r\n    dsBelegILN.AfterLoadDFMValues;\r\n    dsBelegKopftext.AfterLoadDFMValues;\r\n    dsBelegSchlussbemerkung.AfterLoadDFMValues;\r\n    dsBelegGruss.AfterLoadDFMValues;\r\n    dsBelegMehrwertsteuersatz1.AfterLoadDFMValues;\r\n    dsBelegMehrwertsteuersatz2.AfterLoadDFMValues;\r\n    dsBelegNettosumme01.AfterLoadDFMValues;\r\n    dsBelegNettosumme02.AfterLoadDFMValues;\r\n    dsBelegNettosumme.AfterLoadDFMValues;\r\n    dsBelegMehrwertsteuer01.AfterLoadDFMValues;\r\n    dsBelegMehrwertsteuer02.AfterLoadDFMValues;\r\n    dsBelegMehrwertsteuer.AfterLoadDFMValues;\r\n    dsBelegBruttosumme.AfterLoadDFMValues;\r\n    dsBelegVersanddatum.AfterLoadDFMValues;\r\n    dsBelegSkontosatz.AfterLoadDFMValues;\r\n    dsBelegNettosummeEK.AfterLoadDFMValues;\r\n    dsBelegNettoMarge.AfterLoadDFMValues;\r\n    dsBelegSchreibzeichen.AfterLoadDFMValues;\r\n    dsBelegUnterzeichner.AfterLoadDFMValues;\r\n    dsBelegTelefonMA.AfterLoadDFMValues;\r\n    dsBelegEmailMA.AfterLoadDFMValues;\r\n    dsBelegUSTID.AfterLoadDFMValues;\r\n    dsBelegUmsatzsteuerausweis.AfterLoadDFMValues;\r\n    dsBeleggebucht.AfterLoadDFMValues;\r\n    dsBelegLieferdatum.AfterLoadDFMValues;\r\n    dsBelegTransportbedingung.AfterLoadDFMValues;\r\n    dsBelegMehrwertsteuersatz3.AfterLoadDFMValues;\r\n    dsBelegMehrwertsteuer03.AfterLoadDFMValues;\r\n    dsBelegNettosumme03.AfterLoadDFMValues;\r\n    dsBelegRundungsDifferenz.AfterLoadDFMValues;\r\n    dsBelegEmailText.AfterLoadDFMValues;\r\n    dsBelegAuftragerhaltenam.AfterLoadDFMValues;\r\n    dsBelegAuftragnichterhalten.AfterLoadDFMValues;\r\n    dsBelegRabattstufe.AfterLoadDFMValues;\r\n    dsBelegKFZKennzeichen.AfterLoadDFMValues;\r\n    dsBelegFahrgestellnummer.AfterLoadDFMValues;\r\n    dsBelegKFZHersteller.AfterLoadDFMValues;\r\n    dsBelegErstzulassungsdatum.AfterLoadDFMValues;\r\n    dsBelegKMStand.AfterLoadDFMValues;\r\n    dsBelegKFZType.AfterLoadDFMValues;\r\n    dsBelegInspektionsdatum.AfterLoadDFMValues;\r\n    dsBelegDebitorennummer.AfterLoadDFMValues;\r\n    dsBelegKostentraeger.AfterLoadDFMValues;\r\n    dsBelegRabattsatz.AfterLoadDFMValues;\r\n    dsBelegObjektReferenz.AfterLoadDFMValues;\r\n    dsBelegBank.AfterLoadDFMValues;\r\n    dsBelegBankleitzahl.AfterLoadDFMValues;\r\n    dsBelegKontonummer.AfterLoadDFMValues;\r\n    dsBelegKontoinhaber.AfterLoadDFMValues;\r\n    dsBelegTelefaxnummer.AfterLoadDFMValues;\r\n    dsBelegDatumNeu.AfterLoadDFMValues;\r\n    dsBelegDatumgeaendert.AfterLoadDFMValues;\r\n    dsBelegLiefertermin.AfterLoadDFMValues;\r\n    dsBelegObjektnummer.AfterLoadDFMValues;\r\n    dsBelegReferenzKalkulation.AfterLoadDFMValues;\r\n    dsBelegReferenzDatum.AfterLoadDFMValues;\r\n    dsBelegEmailversand.AfterLoadDFMValues;\r\n    dsBelegTelefonnummer.AfterLoadDFMValues;\r\n    dsBelegMobilTelefon.AfterLoadDFMValues;\r\n    dsBelegAngebotFax.AfterLoadDFMValues;\r\n    dsBelegREDatum.AfterLoadDFMValues;\r\n    dsBelegBenutzerNeu.AfterLoadDFMValues;\r\n    dsBelegBenutzerGeaendert.AfterLoadDFMValues;\r\n    dsBelegBerechnungBrutto.AfterLoadDFMValues;\r\n    dsBelegBruttosumme01.AfterLoadDFMValues;\r\n    dsBelegBruttosumme02.AfterLoadDFMValues;\r\n    dsBelegBruttosumme03.AfterLoadDFMValues;\r\n    dsBelegNotiz.AfterLoadDFMValues;\r\n    dsBelegMargeProzent.AfterLoadDFMValues;\r\n    dsBelegBelegsprache.AfterLoadDFMValues;\r\n    dsBelegDuplicate.AfterLoadDFMValues;\r\n    dsBelegperEmail.AfterLoadDFMValues;\r\n    dsBelegAnsprechpartner.AfterLoadDFMValues;\r\n    dsBelegKundennummerFremd.AfterLoadDFMValues;\r\n    dsBelegProtokoll.AfterLoadDFMValues;\r\n    dsBelegVerleihauftrag.AfterLoadDFMValues;\r\n    dsBelegVerleihVon.AfterLoadDFMValues;\r\n    dsBelegVerleihBis.AfterLoadDFMValues;\r\n    dsBeleggesperrt.AfterLoadDFMValues;\r\n    dsBelegVerleihvonText.AfterLoadDFMValues;\r\n    dsBelegVerleihbisText.AfterLoadDFMValues;\r\n    dsBelegDruckWHG.AfterLoadDFMValues;\r\n    dsBelegDruckWHGKurs.AfterLoadDFMValues;\r\n    dsBeleggueltigbis.AfterLoadDFMValues;\r\n    dsBelegProzentsatzZusatzposition.AfterLoadDFMValues;\r\n    dsBelegTextZusatzposition.AfterLoadDFMValues;\r\n    dsBelegTextzusatzBeschreibung.AfterLoadDFMValues;\r\n    dsBelegReferenzTarifberechnung.AfterLoadDFMValues;\r\n    dsBelegLayoutname.AfterLoadDFMValues;\r\n    dsBelegGesamtgewicht.AfterLoadDFMValues;\r\n    dsBelegBetragZusatzposition.AfterLoadDFMValues;\r\n    dsBelegMehrwertsteuersatz4.AfterLoadDFMValues;\r\n    dsBelegMehrwertsteuersatz5.AfterLoadDFMValues;\r\n    dsBelegMehrwertsteuersatz6.AfterLoadDFMValues;\r\n    dsBelegBesteuerungKey.AfterLoadDFMValues;\r\n    dsBelegVertreterMatchcode.AfterLoadDFMValues;\r\n    dsBelegVerfasser.AfterLoadDFMValues;\r\n    dsBelegLieferadresseID.AfterLoadDFMValues;\r\n    dsBelegBelegvariante.AfterLoadDFMValues;\r\n    dsBelegAuftragErwartetBis.AfterLoadDFMValues;\r\n    dsBelegAuftragWahrscheinlichkeit.AfterLoadDFMValues;\r\n    dsBelegFahrzeugID.AfterLoadDFMValues;\r\n    dsBelegMonatJahr.AfterLoadDFMValues;\r\n    dsBelegLieferanschriftDaten.AfterLoadDFMValues;\r\n    dsBelegGesamtVolumen.AfterLoadDFMValues;\r\n    dsBelegBelegPKey.AfterLoadDFMValues;\r\n    dsBelegDruckParameter.AfterLoadDFMValues;\r\n    dsBelegReferenzService.AfterLoadDFMValues;\r\n    SourceBeleg.AfterLoadDFMValues;\r\n    dsPositionen.AfterLoadDFMValues;\r\n    dsPositionenArtikelnummer.AfterLoadDFMValues;\r\n    dsPositionenNummerkomplett.AfterLoadDFMValues;\r\n    dsPositionenID.AfterLoadDFMValues;\r\n    dsPositionenPosNr.AfterLoadDFMValues;\r\n    dsPositionenPosUNr.AfterLoadDFMValues;\r\n    dsPositionenSumme.AfterLoadDFMValues;\r\n    dsPositionenArtikelueberschrift.AfterLoadDFMValues;\r\n    dsPositionenArtikelbeschreibung.AfterLoadDFMValues;\r\n    dsPositionenMenge.AfterLoadDFMValues;\r\n    dsPositionenArtderMenge.AfterLoadDFMValues;\r\n    dsPositionenVerkaufspreis.AfterLoadDFMValues;\r\n    dsPositionenEinkaufspreis.AfterLoadDFMValues;\r\n    dsPositionenSeriennummer.AfterLoadDFMValues;\r\n    dsPositionenWarengruppe.AfterLoadDFMValues;\r\n    dsPositionenWarenuntergruppe.AfterLoadDFMValues;\r\n    dsPositionenArtikelnummerKunde.AfterLoadDFMValues;\r\n    dsPositionenLieferant.AfterLoadDFMValues;\r\n    dsPositionenGewicht.AfterLoadDFMValues;\r\n    dsPositionenLaenge.AfterLoadDFMValues;\r\n    dsPositionenBreite.AfterLoadDFMValues;\r\n    dsPositionenHoehe.AfterLoadDFMValues;\r\n    dsPositionenMehrwertsteuersatz.AfterLoadDFMValues;\r\n    dsPositionenEndpreis.AfterLoadDFMValues;\r\n    dsPositionenPosMWST.AfterLoadDFMValues;\r\n    dsPositionenBruttoEndpreis.AfterLoadDFMValues;\r\n    dsPositionenEndpreis_EK.AfterLoadDFMValues;\r\n    dsPositionenRabattsatz.AfterLoadDFMValues;\r\n    dsPositionenPreisvorRabatt.AfterLoadDFMValues;\r\n    dsPositionenPKZ.AfterLoadDFMValues;\r\n    dsPositionenTextfrei10.AfterLoadDFMValues;\r\n    dsPositionenTextfrei20.AfterLoadDFMValues;\r\n    dsPositionenProduktionAbgeschlossen.AfterLoadDFMValues;\r\n    dsPositionenEinzelpreisBrutto.AfterLoadDFMValues;\r\n    dsPositionenPosMarge.AfterLoadDFMValues;\r\n    dsPositionenPosMargeProzent.AfterLoadDFMValues;\r\n    dsPositionenBereitsGeliefert.AfterLoadDFMValues;\r\n    dsPositionenausliefern.AfterLoadDFMValues;\r\n    dsPositionenBestellungErledigt.AfterLoadDFMValues;\r\n    dsPositionenLager.AfterLoadDFMValues;\r\n    dsPositionenbestellen.AfterLoadDFMValues;\r\n    dsPositionenWarenbestand.AfterLoadDFMValues;\r\n    dsPositionenArtikelbeschreibungRTF.AfterLoadDFMValues;\r\n    dsPositionenQuellartikel.AfterLoadDFMValues;\r\n    dsPositionenArtikelnummerWB.AfterLoadDFMValues;\r\n    dsPositionenPreisanteilNetto.AfterLoadDFMValues;\r\n    dsPositionenSetHPos.AfterLoadDFMValues;\r\n    dsPositionenSetUPos.AfterLoadDFMValues;\r\n    dsPositionenProvisionssatz.AfterLoadDFMValues;\r\n    dsPositionenProvisionsbetrag.AfterLoadDFMValues;\r\n    dsPositionenArtikelsprache.AfterLoadDFMValues;\r\n    dsPositionenEKvom.AfterLoadDFMValues;\r\n    dsPositionenMengenberechnungID.AfterLoadDFMValues;\r\n    dsPositionenTaraID.AfterLoadDFMValues;\r\n    dsPositionenTara.AfterLoadDFMValues;\r\n    dsPositionenBruttoGewicht.AfterLoadDFMValues;\r\n    dsPositionenAussenflaeche.AfterLoadDFMValues;\r\n    dsPositionenLadeort.AfterLoadDFMValues;\r\n    dsPositionenSeitenumbruch.AfterLoadDFMValues;\r\n    dsPositionenPlanerFarbe.AfterLoadDFMValues;\r\n    dsPositionenMWStKey.AfterLoadDFMValues;\r\n    dsPositionenZSnachPos.AfterLoadDFMValues;\r\n    dsPositionenLieferzeit.AfterLoadDFMValues;\r\n    dsPositionenPreisVorRabattWHG.AfterLoadDFMValues;\r\n    dsPositionenReferenzKalkulation.AfterLoadDFMValues;\r\n    dsPositionenPKey.AfterLoadDFMValues;\r\n    dsPositionenAuftragsnummer.AfterLoadDFMValues;\r\n    dsPositionenlwbID.AfterLoadDFMValues;\r\n    dsPositionenBelegdatum.AfterLoadDFMValues;\r\n    dsPositionenWarenkontrollnummern.AfterLoadDFMValues;\r\n    dsPositionenVolumen.AfterLoadDFMValues;\r\n    dsPositionenPosVolumen.AfterLoadDFMValues;\r\n    dsPositionenArtikelAttribute.AfterLoadDFMValues;\r\n    dsPositionenMonteurP.AfterLoadDFMValues;\r\n    dsPositionenArbeitszeitDatum.AfterLoadDFMValues;\r\n    dsPositionenArbeitszeitVON.AfterLoadDFMValues;\r\n    dsPositionenArbeitszeitBIS.AfterLoadDFMValues;\r\n    dsPositionenArtikelnummerArtikelnummer.AfterLoadDFMValues;\r\n    dsPositionenArtikelnummerArbeitszeit.AfterLoadDFMValues;\r\n    sourcePositionen.AfterLoadDFMValues;\r\n    dsSumBeleg.AfterLoadDFMValues;\r\n    dsSumBelegPosVolumen.AfterLoadDFMValues;\r\n    dsSumBelegBruttoGewicht.AfterLoadDFMValues;\r\n    dsSumBelegMehrwertsteuersatz.AfterLoadDFMValues;\r\n    dsSumBelegEndpreis.AfterLoadDFMValues;\r\n    dsSumBelegPosMWST.AfterLoadDFMValues;\r\n    dsSumBelegBruttoEndpreis.AfterLoadDFMValues;\r\n    dsSumBelegEndpreis_EK.AfterLoadDFMValues;\r\n    dsSumBelegPKZ.AfterLoadDFMValues;\r\n    WClient.AfterLoadDFMValues;\r\n    WebHttpRequest1.AfterLoadDFMValues;\r\n    dsObjekt.AfterLoadDFMValues;\r\n    dsObjektObjektReferenz.AfterLoadDFMValues;\r\n    dsObjektKurzbezeichnung.AfterLoadDFMValues;\r\n    dsObjektObjektnummer.AfterLoadDFMValues;\r\n    dsDateien.AfterLoadDFMValues;\r\n    dsDateienID.AfterLoadDFMValues;\r\n    dsDateienDatumUhrzeit.AfterLoadDFMValues;\r\n    dsDateienDateiBetreff.AfterLoadDFMValues;\r\n    dsDateienNummerkomplett.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit unit_ListeAngebot;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Vcl.Controls, WEBLib.ExtCtrls, WEBLib.Buttons,\r\n  WEBLib.Grids, WEBLib.DBCtrls, Data.DB, WEBLib.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, Vcl.StdCtrls, WEBLib.StdCtrls, XData.Web.Client,\r\n  WEBLib.WebCtrls, strutils;\r\n\r\ntype\r\n  TListeAngebot = class(TForm)\r\n    xdsAngebot: TXDataWebDataSet;\r\n    WClient: TXDataWebClient;\r\n    xdsAngebotNummerkomplett: TStringField;\r\n    xdsAngebotDatum: TDateTimeField;\r\n    xdsAngebotKundennummerKundennummer: TStringField;\r\n    xdsAngebotNachname: TStringField;\r\n    xdsAngebotAuftragsbezeichnung: TStringField;\r\n    xdsAngebotBelegvariante: TStringField;\r\n    xdsAngebotNettosumme: TFloatField;\r\n    xdsAngebotAuftragerhaltenam: TDateTimeField;\r\n    xdsAngebotAuftragnichterhalten: TBooleanField;\r\n    Container3: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    btnNeuesAngebot: TButton;\r\n    btnNeuerKostenvoranschlag: TButton;\r\n    xdsAngebotAdresseBild: TStringField;\r\n    Container1: THTMLContainer;\r\n    ResultLabel: TLabel;\r\n    edtSuchbegriff: TEdit;\r\n    btnzurueck: TButton;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure btnNeuesAngebotClick(Sender: TObject);\r\n    procedure btnNeuerKostenvoranschlagClick(Sender: TObject);\r\n    procedure xdsAngebotAfterOpen(DataSet: TDataSet);\r\n    procedure ResultLabelClick(Sender: TObject);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n    procedure edtSuchbegriffChange(Sender: TObject);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    EinzelCard:THTMLDiv;\r\n    procedure EinzelCardclick(Sender:TObject);\r\n    procedure NeuesAngebot(Kundennummer:string;Belegvariante:string);\r\n    procedure Angebotholen(Angebotsnummer:string);\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  ListeAngebot: TListeAngebot;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_EinzelAngebot,unit_Kontaktsuche;\r\n{$R *.dfm}\r\n\r\n\r\nprocedure TListeAngebot.EinzelCardclick(Sender:TObject);\r\nvar\r\n  EinzelAngebot:TEinzelAngebot;\r\n  MyMerkerAngebot:string;\r\nbegin\r\n  myMerkerAngebot:=(sender as THTMLDiv).ElementID;\r\n  Container3.HTML.text:='';\r\n  EinzelAngebot := TEinzelAngebot.CreateNew(procedure(AForm: TObject)\r\n    begin\r\n      (AForm as TEinzelAngebot).MerkerAngebot:=myMerkerAngebot;\r\n    end\r\n    );\r\n\r\n  EinzelAngebot.ShowModal(procedure(AValue: TModalResult)\r\n    begin\r\n      xdsAngebot.close;\r\n      xdsAngebot.Load;\r\n    end\r\n    );\r\nend;\r\n\r\n\r\n\r\n\r\nprocedure TListeAngebot.NeuesAngebot(Kundennummer:string;Belegvariante:string);\r\n  procedure OnResponse(Response:TXDataClientResponse);\r\n  var\r\n  ergebnis:string;\r\n  begin\r\n    ergebnis:=string(TJSObject(response.Result)['value']);\r\n    if ergebnis='WRONG' then\r\n    begin\r\n      showmessage('Das Angebot konnte leider nicht erstellt werden');\r\n    end\r\n    else\r\n    begin\r\n      Angebotholen(ergebnis);\r\n    end;\r\n  end;\r\nbegin\r\n  WClient.RawInvoke('IServerService.NeuesAngebot',[Kundennummer,BenutzerPersonalnummer,Belegvariante],@OnResponse);\r\n\r\nend;\r\n\r\nprocedure TListeAngebot.ResultLabelClick(Sender: TObject);\r\nbegin\r\n  if Pos('mehr anzeigen',resultlabel.html,0)>1 then\r\n  begin\r\n    xdsAngebot.close;\r\n    xdsAngebot.QueryTop:=501;\r\n    xdsAngebot.Load;\r\n  end;\r\nend;\r\n\r\nprocedure TListeAngebot.Angebotholen(Angebotsnummer: string);\r\n   var\r\n  EinzelAngebot:TEinzelAngebot;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      EinzelAngebot:TEinzelAngebot;\r\n    begin\r\n      EinzelAngebot:=(AForm as TEinzelAngebot);\r\n      //lform.Connection.URL:=dm2.XDataWebConnection1.URL;\r\n      EinzelAngebot.MerkerAngebot:=Angebotsnummer;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      xdsangebot.Close;\r\n      xdsangebot.Load;\r\n    end;\r\n\r\n  begin\r\n  if LizenzOK then\r\n  begin\r\n  EinzelAngebot:=TEinzelAngebot.CreateNew(@AfterCreate);\r\n  //LFrm.Popup:=true;\r\n\r\n EinzelAngebot.ShowModal(@AfterShowmodal);\r\n  end\r\n  else\r\n  begin\r\n    showmessage('Für das Speichern von Daten sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TListeAngebot.btnNeuerKostenvoranschlagClick(Sender: TObject);\r\nvar\r\n  LFrm:TfrmKontaktsuche;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmKontaktsuche;\r\n    begin\r\n      LForm:=(AForm as TfrmKontaktsuche);\r\n      Container3.HTML.text:='';\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      if LFrm.Kontaktnummer<>'' then\r\n      begin\r\n        NeuesAngebot(Lfrm.Kontaktnummer,'Kostenvoranschlag');\r\n      end\r\n      else\r\n      begin\r\n        xdsAngebot.close;\r\n        xdsAngebot.Load;\r\n      end;\r\n    end;\r\n\r\n  begin\r\n  LFrm:=TfrmKontaktsuche.CreateNew(@AfterCreate);\r\n  LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TListeAngebot.btnNeuesAngebotClick(Sender: TObject);\r\nvar\r\n  LFrm:TfrmKontaktsuche;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmKontaktsuche;\r\n    begin\r\n      LForm:=(AForm as TfrmKontaktsuche);\r\n      Container3.HTML.text:='';\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      if LFrm.Kontaktnummer<>'' then\r\n      begin\r\n        NeuesAngebot(Lfrm.Kontaktnummer,'Angebot');\r\n      end\r\n      else\r\n      begin\r\n        xdsAngebot.close;\r\n        xdsAngebot.Load;\r\n      end;\r\n    end;\r\n\r\n  begin\r\n  LFrm:=TfrmKontaktsuche.CreateNew(@AfterCreate);\r\n  LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TListeAngebot.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  xdsAngebot.Close;\r\n  self.close;\r\nend;\r\n\r\nprocedure TListeAngebot.edtSuchbegriffChange(Sender: TObject);\r\nvar\r\n  tempsuchtext:string;\r\nbegin\r\n  tempsuchtext:=edtsuchbegriff.Text;\r\n  Container3.HTML.text:='';\r\n  if length(tempsuchtext)>0 then\r\n  begin\r\n    xdsAngebot.Close;\r\n    xdsAngebot.querystring:='$expand=Kundennummer&$filter=((Auftragnichterhalten eq 0) AND (Auftragerhaltenam eq null)) AND (contains(Nachname,'+quotedstr(tempsuchtext)+') OR contains(Kundennummer,'+quotedstr(tempsuchtext)+') OR contains(Auftragsbezeichnung,'+quotedstr(tempsuchtext)+'))&$orderby=Nummerkomplett DESC';\r\n\r\n  end\r\n  else\r\n  begin\r\n    xdsAngebot.Close;\r\n    xdsAngebot.querystring:='$expand=Kundennummer&$filter=((Auftragnichterhalten eq 0) AND (Auftragerhaltenam eq null))&$orderby=Nummerkomplett DESC'\r\n  end;\r\n  xdsAngebot.Load;\r\n\r\nend;\r\n\r\nprocedure TListeAngebot.WebFormShow(Sender: TObject);\r\nbegin\r\n  xdsAngebot.Load;\r\nend;\r\n\r\nprocedure TListeAngebot.xdsAngebotAfterOpen(DataSet: TDataSet);\r\nvar\r\n  myelement:TJSHTMLElement;\r\n  EinzelKarte:string;\r\nbegin\r\n\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Angebote offen</h5></nav>';\r\n\r\n  Container2.HTML.Text:='';\r\n  myelement:=container2.ElementHandle;\r\n\r\n  btnzurueck.ParentElement:=myelement;\r\n  btnNeuesAngebot.parentelement:=myelement;\r\n  btnNeuerKostenvoranschlag.parentelement:=myelement;\r\n  edtSuchbegriff.ParentElement:=myelement;\r\n  ResultLabel.ParentElement:=myelement;\r\n  xdsAngebot.First;\r\n  if xdsAngebot.RecordCount=0 then ResultLabel.HTML:='nichts gefunden';\r\n  if xdsAngebot.RecordCount>0 then ResultLabel.HTML:='Angebot(e): '+inttostr(xdsAngebot.RecordCount);\r\n  if xdsAngebot.RecordCount>99 then ResultLabel.HTML:='mehr als 100 Angebote <I><U>mehr anzeigen</I></U>';\r\n  if xdsAngebot.RecordCount>100 then ResultLabel.HTML:='Angebote: '+inttostr(xdsAngebot.RecordCount)+' (max. Anzeige: 500)';\r\n\r\n\r\n  while not xdsAngebot.eof do\r\n  begin\r\n\r\n    Einzelkarte:='<div class=\"card-header\"><h5>'+xdsAngebotNummerkomplett.asstring+' | '+formatdatetime('DD.MM.YYYY',xdsAngebotDatum.AsDateTime)+'</h5><i>'+xdsAngebotBelegvariante.AsString+'</i></div>';\r\n    Einzelkarte:=Einzelkarte+'<div class=\"card-body \">'+xdsAngebotKundennummerKundennummer.AsString;\r\n    Einzelkarte:=Einzelkarte+' | '+xdsAngebotNachname.asstring+'<br>';\r\n    Einzelkarte:=Einzelkarte+'<b>'+xdsAngebotAuftragsbezeichnung.AsString+'</b><br>';\r\n    if form1.rcw.Verkaufspreise=TRUE then Einzelkarte:=Einzelkarte+Formatfloat('#,##0.00 €',xdsAngebotNettosumme.Asfloat)+'<br>';\r\n    Einzelkarte:=Einzelkarte+xdsAngebotAuftragerhaltenam.AsString+'<br>';\r\n    Einzelkarte:=Einzelkarte+'</div>';\r\n\r\n\r\n    myelement:=Container3.ElementHandle;\r\n    EinzelCard:=THTMLDiv.Create(self);\r\n    EinzelCard.ElementID:=xdsAngebotNummerkomplett.asstring;\r\n    EinzelCard.HeightStyle:=ssauto;\r\n    EinzelCard.Width:=350;\r\n    EinzelCard.HTML.Text:=Einzelkarte;\r\n    EinzelCard.ElementClassName:='card m-1 border-info';\r\n    EinzelCard.OnClick:=@EinzelCardClick;\r\n    EinzelCard.ParentElement:=myelement;\r\n\r\n    xdsAngebot.Next;\r\n  end;\r\n  edtsuchbegriff.SetFocus;\r\nend;\r\n\r\nprocedure TListeAngebot.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  ResultLabel := TLabel.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  btnNeuesAngebot := TButton.Create(Self);\r\n  btnNeuerKostenvoranschlag := TButton.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  edtSuchbegriff := TEdit.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  xdsAngebot := TXDataWebDataSet.Create(Self);\r\n  xdsAngebotNummerkomplett := TStringField.Create(Self);\r\n  xdsAngebotDatum := TDateTimeField.Create(Self);\r\n  xdsAngebotKundennummerKundennummer := TStringField.Create(Self);\r\n  xdsAngebotNachname := TStringField.Create(Self);\r\n  xdsAngebotAuftragsbezeichnung := TStringField.Create(Self);\r\n  xdsAngebotBelegvariante := TStringField.Create(Self);\r\n  xdsAngebotNettosumme := TFloatField.Create(Self);\r\n  xdsAngebotAuftragerhaltenam := TDateTimeField.Create(Self);\r\n  xdsAngebotAuftragnichterhalten := TBooleanField.Create(Self);\r\n  xdsAngebotAdresseBild := TStringField.Create(Self);\r\n  WClient := TXDataWebClient.Create(Self);\r\n\r\n  ResultLabel.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  btnNeuesAngebot.BeforeLoadDFMValues;\r\n  btnNeuerKostenvoranschlag.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  edtSuchbegriff.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  xdsAngebot.BeforeLoadDFMValues;\r\n  xdsAngebotNummerkomplett.BeforeLoadDFMValues;\r\n  xdsAngebotDatum.BeforeLoadDFMValues;\r\n  xdsAngebotKundennummerKundennummer.BeforeLoadDFMValues;\r\n  xdsAngebotNachname.BeforeLoadDFMValues;\r\n  xdsAngebotAuftragsbezeichnung.BeforeLoadDFMValues;\r\n  xdsAngebotBelegvariante.BeforeLoadDFMValues;\r\n  xdsAngebotNettosumme.BeforeLoadDFMValues;\r\n  xdsAngebotAuftragerhaltenam.BeforeLoadDFMValues;\r\n  xdsAngebotAuftragnichterhalten.BeforeLoadDFMValues;\r\n  xdsAngebotAdresseBild.BeforeLoadDFMValues;\r\n  WClient.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'ListeAngebot';\r\n    Width := 180;\r\n    Height := 319;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    Font.Charset := DEFAULT_CHARSET;\r\n    Font.Color := clWindowText;\r\n    Font.Height := -11;\r\n    Font.Name := 'Tahoma';\r\n    Font.Style := [];\r\n    ParentFont := False;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    ResultLabel.SetParentComponent(Self);\r\n    ResultLabel.Name := 'ResultLabel';\r\n    ResultLabel.Left := 8;\r\n    ResultLabel.Top := 204;\r\n    ResultLabel.Width := 55;\r\n    ResultLabel.Height := 13;\r\n    ResultLabel.Caption := 'ResultLabel';\r\n    ResultLabel.ElementClassName := 'h6 m-2';\r\n    ResultLabel.ElementFont := efCSS;\r\n    ResultLabel.ElementPosition := epIgnore;\r\n    ResultLabel.HeightStyle := ssAuto;\r\n    ResultLabel.HeightPercent := 100.000000000000000000;\r\n    ResultLabel.WidthStyle := ssAuto;\r\n    ResultLabel.WidthPercent := 100.000000000000000000;\r\n    SetEvent(ResultLabel, Self, 'OnClick', 'ResultLabelClick');\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 5;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 5;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    btnNeuesAngebot.SetParentComponent(Self);\r\n    btnNeuesAngebot.Name := 'btnNeuesAngebot';\r\n    btnNeuesAngebot.Left := 8;\r\n    btnNeuesAngebot.Top := 8;\r\n    btnNeuesAngebot.Width := 96;\r\n    btnNeuesAngebot.Height := 25;\r\n    btnNeuesAngebot.Caption := '+ Angebot';\r\n    btnNeuesAngebot.ChildOrder := 5;\r\n    btnNeuesAngebot.ElementClassName := 'btn btn-info m-1 text-left';\r\n    btnNeuesAngebot.ElementFont := efCSS;\r\n    btnNeuesAngebot.ElementPosition := epIgnore;\r\n    btnNeuesAngebot.HeightStyle := ssAuto;\r\n    btnNeuesAngebot.HeightPercent := 100.000000000000000000;\r\n    btnNeuesAngebot.WidthStyle := ssAuto;\r\n    btnNeuesAngebot.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnNeuesAngebot, Self, 'OnClick', 'btnNeuesAngebotClick');\r\n    btnNeuerKostenvoranschlag.SetParentComponent(Self);\r\n    btnNeuerKostenvoranschlag.Name := 'btnNeuerKostenvoranschlag';\r\n    btnNeuerKostenvoranschlag.Left := 62;\r\n    btnNeuerKostenvoranschlag.Top := 223;\r\n    btnNeuerKostenvoranschlag.Width := 96;\r\n    btnNeuerKostenvoranschlag.Height := 25;\r\n    btnNeuerKostenvoranschlag.Caption := '+ Kostenvoranschlag';\r\n    btnNeuerKostenvoranschlag.ChildOrder := 5;\r\n    btnNeuerKostenvoranschlag.ElementClassName := 'btn btn-info m-1 text-left';\r\n    btnNeuerKostenvoranschlag.ElementFont := efCSS;\r\n    btnNeuerKostenvoranschlag.ElementPosition := epIgnore;\r\n    btnNeuerKostenvoranschlag.HeightStyle := ssAuto;\r\n    btnNeuerKostenvoranschlag.HeightPercent := 100.000000000000000000;\r\n    btnNeuerKostenvoranschlag.WidthStyle := ssAuto;\r\n    btnNeuerKostenvoranschlag.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnNeuerKostenvoranschlag, Self, 'OnClick', 'btnNeuerKostenvoranschlagClick');\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    edtSuchbegriff.SetParentComponent(Self);\r\n    edtSuchbegriff.Name := 'edtSuchbegriff';\r\n    edtSuchbegriff.Left := 8;\r\n    edtSuchbegriff.Top := 296;\r\n    edtSuchbegriff.Width := 150;\r\n    edtSuchbegriff.Height := 22;\r\n    edtSuchbegriff.AutoSelect := False;\r\n    edtSuchbegriff.ChildOrder := 6;\r\n    edtSuchbegriff.ElementClassName := 'form-control input-sm m-1';\r\n    edtSuchbegriff.ElementFont := efCSS;\r\n    edtSuchbegriff.ElementPosition := epIgnore;\r\n    edtSuchbegriff.HeightStyle := ssAuto;\r\n    edtSuchbegriff.HeightPercent := 100.000000000000000000;\r\n    edtSuchbegriff.ShowHint := True;\r\n    edtSuchbegriff.TextHint := 'Suchbegriff eingeben';\r\n    edtSuchbegriff.WidthPercent := 60.000000000000000000;\r\n    SetEvent(edtSuchbegriff, Self, 'OnChange', 'edtSuchbegriffChange');\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 67;\r\n    btnzurueck.Top := 141;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    xdsAngebot.SetParentComponent(Self);\r\n    xdsAngebot.Name := 'xdsAngebot';\r\n    xdsAngebot.AfterOpen := xdsAngebotAfterOpen;\r\n    xdsAngebot.EntitySetName := 'Angebote';\r\n    xdsAngebot.Connection := DM2.XDataWebConnection1;\r\n    xdsAngebot.SubpropsDepth := 1;\r\n    xdsAngebot.QueryString := '$expand=Kundennummer&$filter=((Auftragnichterhalten eq 0) AND (Auftragerhaltenam eq null))&$orderby=Nummerkomplett DESC';\r\n    xdsAngebot.QueryTop := 100;\r\n    xdsAngebot.Left := 20;\r\n    xdsAngebot.Top := 142;\r\n    xdsAngebotNummerkomplett.SetParentComponent(xdsAngebot);\r\n    xdsAngebotNummerkomplett.Name := 'xdsAngebotNummerkomplett';\r\n    xdsAngebotNummerkomplett.FieldName := 'Nummerkomplett';\r\n    xdsAngebotNummerkomplett.Required := True;\r\n    xdsAngebotNummerkomplett.Size := 10;\r\n    xdsAngebotDatum.SetParentComponent(xdsAngebot);\r\n    xdsAngebotDatum.Name := 'xdsAngebotDatum';\r\n    xdsAngebotDatum.FieldName := 'Datum';\r\n    xdsAngebotDatum.Required := True;\r\n    xdsAngebotDatum.DisplayFormat := 'DD.MM.YYYY';\r\n    xdsAngebotKundennummerKundennummer.SetParentComponent(xdsAngebot);\r\n    xdsAngebotKundennummerKundennummer.Name := 'xdsAngebotKundennummerKundennummer';\r\n    xdsAngebotKundennummerKundennummer.FieldName := 'Kundennummer.Kundennummer';\r\n    xdsAngebotKundennummerKundennummer.Size := 13;\r\n    xdsAngebotNachname.SetParentComponent(xdsAngebot);\r\n    xdsAngebotNachname.Name := 'xdsAngebotNachname';\r\n    xdsAngebotNachname.FieldName := 'Nachname';\r\n    xdsAngebotNachname.Size := 50;\r\n    xdsAngebotAuftragsbezeichnung.SetParentComponent(xdsAngebot);\r\n    xdsAngebotAuftragsbezeichnung.Name := 'xdsAngebotAuftragsbezeichnung';\r\n    xdsAngebotAuftragsbezeichnung.FieldName := 'Auftragsbezeichnung';\r\n    xdsAngebotAuftragsbezeichnung.Size := 255;\r\n    xdsAngebotBelegvariante.SetParentComponent(xdsAngebot);\r\n    xdsAngebotBelegvariante.Name := 'xdsAngebotBelegvariante';\r\n    xdsAngebotBelegvariante.FieldName := 'Belegvariante';\r\n    xdsAngebotBelegvariante.Size := 25;\r\n    xdsAngebotNettosumme.SetParentComponent(xdsAngebot);\r\n    xdsAngebotNettosumme.Name := 'xdsAngebotNettosumme';\r\n    xdsAngebotNettosumme.FieldName := 'Nettosumme';\r\n    xdsAngebotAuftragerhaltenam.SetParentComponent(xdsAngebot);\r\n    xdsAngebotAuftragerhaltenam.Name := 'xdsAngebotAuftragerhaltenam';\r\n    xdsAngebotAuftragerhaltenam.FieldName := 'Auftragerhaltenam';\r\n    xdsAngebotAuftragerhaltenam.DisplayFormat := 'DD.MM.YYYY';\r\n    xdsAngebotAuftragnichterhalten.SetParentComponent(xdsAngebot);\r\n    xdsAngebotAuftragnichterhalten.Name := 'xdsAngebotAuftragnichterhalten';\r\n    xdsAngebotAuftragnichterhalten.FieldName := 'Auftragnichterhalten';\r\n    xdsAngebotAdresseBild.SetParentComponent(xdsAngebot);\r\n    xdsAngebotAdresseBild.Name := 'xdsAngebotAdresseBild';\r\n    xdsAngebotAdresseBild.FieldName := 'AdresseBild';\r\n    xdsAngebotAdresseBild.Size := 255;\r\n    WClient.SetParentComponent(Self);\r\n    WClient.Name := 'WClient';\r\n    WClient.Connection := DM2.XDataWebConnection1;\r\n    WClient.Left := 112;\r\n    WClient.Top := 136;\r\n  finally\r\n    ResultLabel.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    btnNeuesAngebot.AfterLoadDFMValues;\r\n    btnNeuerKostenvoranschlag.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    edtSuchbegriff.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    xdsAngebot.AfterLoadDFMValues;\r\n    xdsAngebotNummerkomplett.AfterLoadDFMValues;\r\n    xdsAngebotDatum.AfterLoadDFMValues;\r\n    xdsAngebotKundennummerKundennummer.AfterLoadDFMValues;\r\n    xdsAngebotNachname.AfterLoadDFMValues;\r\n    xdsAngebotAuftragsbezeichnung.AfterLoadDFMValues;\r\n    xdsAngebotBelegvariante.AfterLoadDFMValues;\r\n    xdsAngebotNettosumme.AfterLoadDFMValues;\r\n    xdsAngebotAuftragerhaltenam.AfterLoadDFMValues;\r\n    xdsAngebotAuftragnichterhalten.AfterLoadDFMValues;\r\n    xdsAngebotAdresseBild.AfterLoadDFMValues;\r\n    WClient.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.","unit unit_EinzelEmail;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Vcl.Controls, WEBLib.Grids, Data.DB, WEBLib.DB,\r\n  XData.Web.JsonDataset, XData.Web.Dataset, Vcl.StdCtrls, WEBLib.StdCtrls, strutils,\r\n  DB, WEBLib.ExtCtrls;\r\n\r\ntype\r\n  TEinzelEmail = class(TForm)\r\n    TC: TTableControl;\r\n    xdsEmails: TXDataWebDataSet;\r\n    xdsEmailsEmailEmpfangenUhrzeit: TDateTimeField;\r\n    xdsEmailsID: TIntegerField;\r\n    xdsEmailsarchiviert: TStringField;\r\n    xdsEmailsEmailFrom: TStringField;\r\n    xdsEmailsEmailFromName: TStringField;\r\n    xdsEmailsEmailTo: TStringField;\r\n    xdsEmailsEmailCC: TStringField;\r\n    xdsEmailsEmailBetreff: TStringField;\r\n    xdsEmailsEmailPriority: TIntegerField;\r\n    xdsEmailsEmailOrganization: TStringField;\r\n    xdsEmailsEmailbearbeitet: TDateTimeField;\r\n    xdsEmailsEmailbearbeitetvon: TStringField;\r\n    xdsEmailsKundennummer: TStringField;\r\n    xdsEmailsPosteingang: TBooleanField;\r\n    xdsEmailsEmailID: TStringField;\r\n    xdsEmailsEmailReceipt: TStringField;\r\n    xdsEmailsEmailgelesen: TDateTimeField;\r\n    xdsEmailsEmailContentType: TStringField;\r\n    xdsEmailsEmailgelesenvon: TStringField;\r\n    xdsEmailsEmailReplyTo: TStringField;\r\n    xdsEmailsEmailReplyToName: TStringField;\r\n    xdsEmailsEmailUIDL: TStringField;\r\n    xdsEmailsEmailBCC: TStringField;\r\n    xdsEmailsEmailBest: TBooleanField;\r\n    xdsEmailsSchreibzeichen: TStringField;\r\n    xdsEmailsGesendete: TBooleanField;\r\n    xdsEmailsGesendetUhrzeit: TDateTimeField;\r\n    xdsEmailsPersNo: TIntegerField;\r\n    xdsEmailsPersColor: TIntegerField;\r\n    xdsEmailsBearbeitungsnotiz: TStringField;\r\n    xdsEmailsNurText: TStringField;\r\n    xdsEmailsObjektReferenz: TStringField;\r\n    xdsEmailsObjektnummer: TStringField;\r\n    xdsEmailsEmailKonto: TStringField;\r\n    xdsEmailsFreigabe: TStringField;\r\n    sourceEmails: TDataSource;\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    Container3: THTMLContainer;\r\n    PanelTop: TPanel;\r\n    lblSeite: TLabel;\r\n    panelfunctions: TPanel;\r\n    btnzurueck: TButton;\r\n    btnKontaktZuordnen: TButton;\r\n    btnTicketErstellen: TButton;\r\n    btnEmailLoeschen: TButton;\r\n    MSGLOESCHEN: TMessageDlg;\r\n    xdsEmailsEmailBody: TStringField;\r\n    xdsEmailsMSG: TStringField;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure xdsEmailsAfterOpen(DataSet: TDataSet);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n    [async] procedure btnKontaktZuordnenClick(Sender: TObject); async;\r\n    procedure xdsEmailsAfterApplyUpdates(Sender: TDataSet;\r\n      Info: TResolveResults);\r\n    procedure btnTicketErstellenClick(Sender: TObject);\r\n    [async] procedure btnEmailLoeschenClick(Sender: TObject); async;\r\n    procedure xdsEmailsAfterDelete(DataSet: TDataSet);\r\n    procedure xdsEmailsAfterPost(DataSet: TDataSet);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n\r\n    EmailID:string;\r\n    IsLoeschung:boolean;\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  EinzelEmail: TEinzelEmail;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_Kontaktsuche, unit_TicketNeu;\r\n{$R *.dfm}\r\n\r\nprocedure TEinzelEmail.btnEmailLoeschenClick(Sender: TObject);\r\nvar\r\n  mr: TModalResult;\r\nbegin\r\n  mr := await(TModalResult, Msgloeschen.ShowDialog('Das Löschen einer Email kann nicht rückgängig gemacht werden. Wollen Sie die Email wirklich löschen?', WEBLib.Dialogs.mtConfirmation,[mbYes, mbNo]));\r\n  if mr = mrYes then xdsEmails.Delete;\r\nend;\r\n\r\nprocedure TEinzelEmail.btnKontaktZuordnenClick(Sender: TObject);\r\nvar\r\n  LFrm:TfrmKontaktsuche;\r\n  mr: TModalResult;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmKontaktsuche;\r\n    begin\r\n      LForm:=(AForm as TfrmKontaktsuche);\r\n      lform.Kontaktnummer:='';\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      if lfrm.Kontaktnummer<>'' then\r\n      begin\r\n        xdsEmails.edit;\r\n        xdsEmailsKundennummer.AsString:=lfrm.Kontaktnummer;\r\n        xdsEmails.Post;\r\n      end;\r\n    end;\r\n\r\n  begin\r\n\r\n  if xdsEmailsKundennummer.AsString<>'' then\r\n  begin\r\n    mr := await(TModalResult, Msgloeschen.ShowDialog('Diese Email ist bereits einer Kundenakte zugeordnet, wollen Sie wirklich eine Änderung vornehmen?', WEBLib.Dialogs.mtConfirmation,[mbYes, mbNo]));\r\n    if mr = mrYes then\r\n    begin\r\n      LFrm:=TfrmKontaktsuche.CreateNew(@AfterCreate);\r\n      LFrm.ShowModal(@AfterShowmodal);\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    LFrm:=TfrmKontaktsuche.CreateNew(@AfterCreate);\r\n    LFrm.ShowModal(@AfterShowmodal);\r\n  end;\r\nend;\r\n\r\nprocedure TEinzelEmail.btnTicketErstellenClick(Sender: TObject);\r\nvar\r\n  LFrm:TTicketNeu;\r\n  procedure AfterCreate(AForm:TObject);\r\n  var\r\n    LForm:TTicketNeu;\r\n    begin\r\n      TC.Visible:=false;\r\n      LForm:=(AForm as TTicketNeu);\r\n      lform.TicketNeuFuerKundennummer:=xdsEmailsKundennummer.AsString;\r\n      lform.TicketNeuBetreff:=xdsEmailsEmailBetreff.AsString;\r\n      lform.TicketNeuText:=xdsEmailsNurText.AsString;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      if lfrm.NewTicketNumber<>'' then\r\n      begin\r\n        xdsEmails.edit;\r\n        xdsEmailsBearbeitungsnotiz.AsString:='Ticket erstellt Nr. '+lfrm.NewTicketNumber;\r\n        xdsEmails.Post;\r\n      end;\r\n    end;\r\n  begin\r\n      LFrm:=TTicketNeu.CreateNew(@AfterCreate);\r\n      LFrm.ShowModal(@AfterShowmodal);\r\nend;\r\n\r\nprocedure TEinzelEmail.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  xdsEmails.Close;\r\n  self.Close;\r\nend;\r\n\r\nprocedure TEinzelEmail.WebFormShow(Sender: TObject);\r\nbegin\r\n  xdsEmails.Close;\r\n  xdsEmails.QueryString:='$filter=ID eq '+EmailID;\r\n  xdsEmails.Load;\r\nend;\r\n\r\nprocedure TEinzelEmail.xdsEmailsAfterApplyUpdates(Sender: TDataSet;\r\n  Info: TResolveResults);\r\n  var\r\n  i:integer;\r\nbegin\r\n  for i := 0 to High(info.Records) do\r\n  begin\r\n    if info.Records[i].Error<>'' then showmessage(info.Records[i].Error);\r\n  end;\r\n  if info.Records[0].Error='' then\r\n  begin\r\n    xdsEmails.Close;\r\n    if IsLoeschung then\r\n    begin\r\n      self.Close;\r\n    end\r\n    else\r\n    begin\r\n      xdsEmails.Load;\r\n    end;\r\n  end;\r\nend;\r\n\r\nprocedure TEinzelEmail.xdsEmailsAfterDelete(DataSet: TDataSet);\r\nbegin\r\n  IsLoeschung:=true;\r\n  xdsEmails.ApplyUpdates;\r\n  close;\r\nend;\r\n\r\nprocedure TEinzelEmail.xdsEmailsAfterOpen(DataSet: TDataSet);\r\nvar\r\n  i:integer;\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  isloeschung:=false;\r\n  TC.Colcount:=2;\r\n  tc.cells[0,i]:='ID';\r\n  TC.Cells[1,i]:=xdsemailsid.asstring;\r\n\r\n  myelement:=container1.ElementHandle;\r\n  paneltop.parentelement:=myelement;\r\n  panelfunctions.ParentElement:=myelement;\r\n  container2.ParentElement:=myelement;\r\n  Container3.ParentElement:=myelement;\r\n\r\n  myelement:=paneltop.ElementHandle;\r\n  lblseite.ParentElement:=myelement;\r\n\r\n  myelement:=panelfunctions.ElementHandle;\r\n  btnZurueck.ParentElement:=myelement;\r\n  btnKontaktZuordnen.ParentElement:=myelement;\r\n  btnTicketErstellen.ParentElement:=myelement;\r\n  btnEmailloeschen.ParentElement:=myelement;\r\n\r\n  Container2.HTML.Text:='';\r\n  myelement:=container2.ElementHandle;\r\n  tc.ParentElement:=myelement;\r\n\r\n\r\n  tc.rowcount:=9;\r\n\r\n  inc(i);\r\n  tc.cells[0,i]:='von';\r\n  tc.cells[1,i]:=xdsemailsEmailFromName.asstring+' ('+xdsemailsEmailFrom.asstring+')';\r\n\r\n  inc(i);\r\n  tc.cells[0,i]:='an';\r\n  tc.cells[1,i]:=xdsemailsEmailKonto.asstring;\r\n\r\n  inc(i);\r\n  tc.cells[0,i]:='cc';\r\n  tc.cells[1,i]:=xdsemailsEmailCC.asstring;\r\n\r\n  inc(i);\r\n  tc.cells[1,i]:=xdsemailsEmailEmpfangenUhrzeit.asstring;\r\n  tc.cells[0,i]:='um';\r\n\r\n  inc(i);\r\n  tc.cells[1,i]:='<b>'+xdsemailsemailbetreff.asstring+'</b><br>'+ replacestr(xdsemailsNurText.asstring,#13+#10,'<BR>');\r\n\r\n  inc(i);\r\n  tc.cells[1,i]:=xdsEmailsKundennummer.asstring;\r\n  tc.cells[0,i]:='KDNR';\r\n\r\n  inc(i);\r\n  tc.cells[1,i]:=xdsEmailsBearbeitungsnotiz.asstring;\r\n  tc.cells[0,i]:='Notiz';\r\n\r\n  if xdsEmailsarchiviert.AsString<>'' then btnKontaktZuordnen.Enabled:=false else btnKontaktZuordnen.Enabled:=true;\r\n  if xdsEmailsarchiviert.AsString<>'' then btnEmailLoeschen.Enabled:=false else btnEmailLoeschen.Enabled:=true;\r\nend;\r\n\r\nprocedure TEinzelEmail.xdsEmailsAfterPost(DataSet: TDataSet);\r\nbegin\r\n  xdsEmails.ApplyUpdates;\r\nend;\r\n\r\nprocedure TEinzelEmail.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  TC := TTableControl.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  PanelTop := TPanel.Create(Self);\r\n  lblSeite := TLabel.Create(Self);\r\n  panelfunctions := TPanel.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  btnKontaktZuordnen := TButton.Create(Self);\r\n  btnTicketErstellen := TButton.Create(Self);\r\n  btnEmailLoeschen := TButton.Create(Self);\r\n  MSGLOESCHEN := TMessageDlg.Create(Self);\r\n  xdsEmails := TXDataWebDataSet.Create(Self);\r\n  xdsEmailsEmailEmpfangenUhrzeit := TDateTimeField.Create(Self);\r\n  xdsEmailsID := TIntegerField.Create(Self);\r\n  xdsEmailsarchiviert := TStringField.Create(Self);\r\n  xdsEmailsEmailFrom := TStringField.Create(Self);\r\n  xdsEmailsEmailFromName := TStringField.Create(Self);\r\n  xdsEmailsEmailTo := TStringField.Create(Self);\r\n  xdsEmailsEmailCC := TStringField.Create(Self);\r\n  xdsEmailsEmailBetreff := TStringField.Create(Self);\r\n  xdsEmailsEmailPriority := TIntegerField.Create(Self);\r\n  xdsEmailsEmailOrganization := TStringField.Create(Self);\r\n  xdsEmailsEmailbearbeitet := TDateTimeField.Create(Self);\r\n  xdsEmailsEmailbearbeitetvon := TStringField.Create(Self);\r\n  xdsEmailsKundennummer := TStringField.Create(Self);\r\n  xdsEmailsPosteingang := TBooleanField.Create(Self);\r\n  xdsEmailsEmailID := TStringField.Create(Self);\r\n  xdsEmailsEmailReceipt := TStringField.Create(Self);\r\n  xdsEmailsEmailgelesen := TDateTimeField.Create(Self);\r\n  xdsEmailsEmailContentType := TStringField.Create(Self);\r\n  xdsEmailsEmailgelesenvon := TStringField.Create(Self);\r\n  xdsEmailsEmailReplyTo := TStringField.Create(Self);\r\n  xdsEmailsEmailReplyToName := TStringField.Create(Self);\r\n  xdsEmailsEmailUIDL := TStringField.Create(Self);\r\n  xdsEmailsEmailBCC := TStringField.Create(Self);\r\n  xdsEmailsEmailBest := TBooleanField.Create(Self);\r\n  xdsEmailsSchreibzeichen := TStringField.Create(Self);\r\n  xdsEmailsGesendete := TBooleanField.Create(Self);\r\n  xdsEmailsGesendetUhrzeit := TDateTimeField.Create(Self);\r\n  xdsEmailsPersNo := TIntegerField.Create(Self);\r\n  xdsEmailsPersColor := TIntegerField.Create(Self);\r\n  xdsEmailsBearbeitungsnotiz := TStringField.Create(Self);\r\n  xdsEmailsNurText := TStringField.Create(Self);\r\n  xdsEmailsObjektReferenz := TStringField.Create(Self);\r\n  xdsEmailsObjektnummer := TStringField.Create(Self);\r\n  xdsEmailsEmailKonto := TStringField.Create(Self);\r\n  xdsEmailsFreigabe := TStringField.Create(Self);\r\n  xdsEmailsEmailBody := TStringField.Create(Self);\r\n  xdsEmailsMSG := TStringField.Create(Self);\r\n  sourceEmails := TDataSource.Create(Self);\r\n\r\n  TC.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  PanelTop.BeforeLoadDFMValues;\r\n  lblSeite.BeforeLoadDFMValues;\r\n  panelfunctions.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  btnKontaktZuordnen.BeforeLoadDFMValues;\r\n  btnTicketErstellen.BeforeLoadDFMValues;\r\n  btnEmailLoeschen.BeforeLoadDFMValues;\r\n  MSGLOESCHEN.BeforeLoadDFMValues;\r\n  xdsEmails.BeforeLoadDFMValues;\r\n  xdsEmailsEmailEmpfangenUhrzeit.BeforeLoadDFMValues;\r\n  xdsEmailsID.BeforeLoadDFMValues;\r\n  xdsEmailsarchiviert.BeforeLoadDFMValues;\r\n  xdsEmailsEmailFrom.BeforeLoadDFMValues;\r\n  xdsEmailsEmailFromName.BeforeLoadDFMValues;\r\n  xdsEmailsEmailTo.BeforeLoadDFMValues;\r\n  xdsEmailsEmailCC.BeforeLoadDFMValues;\r\n  xdsEmailsEmailBetreff.BeforeLoadDFMValues;\r\n  xdsEmailsEmailPriority.BeforeLoadDFMValues;\r\n  xdsEmailsEmailOrganization.BeforeLoadDFMValues;\r\n  xdsEmailsEmailbearbeitet.BeforeLoadDFMValues;\r\n  xdsEmailsEmailbearbeitetvon.BeforeLoadDFMValues;\r\n  xdsEmailsKundennummer.BeforeLoadDFMValues;\r\n  xdsEmailsPosteingang.BeforeLoadDFMValues;\r\n  xdsEmailsEmailID.BeforeLoadDFMValues;\r\n  xdsEmailsEmailReceipt.BeforeLoadDFMValues;\r\n  xdsEmailsEmailgelesen.BeforeLoadDFMValues;\r\n  xdsEmailsEmailContentType.BeforeLoadDFMValues;\r\n  xdsEmailsEmailgelesenvon.BeforeLoadDFMValues;\r\n  xdsEmailsEmailReplyTo.BeforeLoadDFMValues;\r\n  xdsEmailsEmailReplyToName.BeforeLoadDFMValues;\r\n  xdsEmailsEmailUIDL.BeforeLoadDFMValues;\r\n  xdsEmailsEmailBCC.BeforeLoadDFMValues;\r\n  xdsEmailsEmailBest.BeforeLoadDFMValues;\r\n  xdsEmailsSchreibzeichen.BeforeLoadDFMValues;\r\n  xdsEmailsGesendete.BeforeLoadDFMValues;\r\n  xdsEmailsGesendetUhrzeit.BeforeLoadDFMValues;\r\n  xdsEmailsPersNo.BeforeLoadDFMValues;\r\n  xdsEmailsPersColor.BeforeLoadDFMValues;\r\n  xdsEmailsBearbeitungsnotiz.BeforeLoadDFMValues;\r\n  xdsEmailsNurText.BeforeLoadDFMValues;\r\n  xdsEmailsObjektReferenz.BeforeLoadDFMValues;\r\n  xdsEmailsObjektnummer.BeforeLoadDFMValues;\r\n  xdsEmailsEmailKonto.BeforeLoadDFMValues;\r\n  xdsEmailsFreigabe.BeforeLoadDFMValues;\r\n  xdsEmailsEmailBody.BeforeLoadDFMValues;\r\n  xdsEmailsMSG.BeforeLoadDFMValues;\r\n  sourceEmails.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'EinzelEmail';\r\n    Width := 682;\r\n    Height := 585;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.Left := 22;\r\n    TC.Top := 312;\r\n    TC.Width := 193;\r\n    TC.Height := 137;\r\n    TC.ElementClassName := 'table table-hover table-bordered table-striped';\r\n    TC.WidthStyle := ssAuto;\r\n    TC.BorderColor := clSilver;\r\n    TC.ChildOrder := 3;\r\n    TC.ColHeader := False;\r\n    TC.ElementFont := efCSS;\r\n    TC.ElementHeaderClassName := 'table-info';\r\n    TC.ElementPosition := epIgnore;\r\n    TC.ElementTableClassName := 'table table-hover table-bordered table-striped';\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 1;\r\n    TC.RowCount := 5;\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.ElementClassName := 'container-fluid rounded';\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ChildOrder := 2;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 5;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 5;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    PanelTop.SetParentComponent(Self);\r\n    PanelTop.Name := 'PanelTop';\r\n    PanelTop.Left := 22;\r\n    PanelTop.Top := 141;\r\n    PanelTop.Width := 463;\r\n    PanelTop.Height := 76;\r\n    PanelTop.ElementClassName := 'd-flex flex-wrap bg-info rounded';\r\n    PanelTop.HeightStyle := ssAuto;\r\n    PanelTop.WidthStyle := ssPercent;\r\n    PanelTop.BorderStyle := bsNone;\r\n    PanelTop.Caption := 'WebPanel1';\r\n    PanelTop.ChildOrder := 2;\r\n    PanelTop.Color := 8340248;\r\n    PanelTop.ElementFont := efCSS;\r\n    PanelTop.ElementPosition := epIgnore;\r\n    PanelTop.ShowCaption := False;\r\n    PanelTop.TabOrder := 4;\r\n    lblSeite.SetParentComponent(PanelTop);\r\n    lblSeite.Name := 'lblSeite';\r\n    lblSeite.Left := 1;\r\n    lblSeite.Top := 1;\r\n    lblSeite.Width := 163;\r\n    lblSeite.Height := 25;\r\n    lblSeite.AutoSize := False;\r\n    lblSeite.Caption := 'Email-Anzeige';\r\n    lblSeite.ElementClassName := 'h2 text-light m-1';\r\n    lblSeite.ElementLabelClassName := 'align-self-start';\r\n    lblSeite.ElementFont := efCSS;\r\n    lblSeite.ElementPosition := epIgnore;\r\n    lblSeite.Font.Charset := DEFAULT_CHARSET;\r\n    lblSeite.Font.Color := clWindowText;\r\n    lblSeite.Font.Height := -19;\r\n    lblSeite.Font.Name := 'Segoe UI';\r\n    lblSeite.Font.Style := [];\r\n    lblSeite.HeightStyle := ssAuto;\r\n    lblSeite.HeightPercent := 100.000000000000000000;\r\n    lblSeite.ParentFont := False;\r\n    lblSeite.WidthStyle := ssPercent;\r\n    lblSeite.WidthPercent := 100.000000000000000000;\r\n    panelfunctions.SetParentComponent(Self);\r\n    panelfunctions.Name := 'panelfunctions';\r\n    panelfunctions.Left := 32;\r\n    panelfunctions.Top := 236;\r\n    panelfunctions.Width := 433;\r\n    panelfunctions.Height := 37;\r\n    panelfunctions.ElementClassName := 'd-flex flex-wrap';\r\n    panelfunctions.HeightStyle := ssAuto;\r\n    panelfunctions.WidthStyle := ssPercent;\r\n    panelfunctions.BorderColor := 13892310;\r\n    panelfunctions.BorderStyle := bsNone;\r\n    panelfunctions.ChildOrder := 1;\r\n    panelfunctions.Color := clWhite;\r\n    panelfunctions.ElementFont := efCSS;\r\n    panelfunctions.ElementPosition := epIgnore;\r\n    panelfunctions.ShowCaption := False;\r\n    panelfunctions.TabOrder := 5;\r\n    btnzurueck.SetParentComponent(panelfunctions);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 8;\r\n    btnzurueck.Top := 12;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-sm bg-info m-1';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    btnKontaktZuordnen.SetParentComponent(panelfunctions);\r\n    btnKontaktZuordnen.Name := 'btnKontaktZuordnen';\r\n    btnKontaktZuordnen.Left := 110;\r\n    btnKontaktZuordnen.Top := 3;\r\n    btnKontaktZuordnen.Width := 96;\r\n    btnKontaktZuordnen.Height := 25;\r\n    btnKontaktZuordnen.Caption := 'zu Kontakt';\r\n    btnKontaktZuordnen.ChildOrder := 12;\r\n    btnKontaktZuordnen.ElementClassName := 'btn btn-sm bg-info m-1';\r\n    btnKontaktZuordnen.ElementFont := efCSS;\r\n    btnKontaktZuordnen.ElementPosition := epIgnore;\r\n    btnKontaktZuordnen.HeightStyle := ssAuto;\r\n    btnKontaktZuordnen.HeightPercent := 100.000000000000000000;\r\n    btnKontaktZuordnen.WidthStyle := ssAuto;\r\n    btnKontaktZuordnen.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnKontaktZuordnen, Self, 'OnClick', 'btnKontaktZuordnenClick');\r\n    btnTicketErstellen.SetParentComponent(panelfunctions);\r\n    btnTicketErstellen.Name := 'btnTicketErstellen';\r\n    btnTicketErstellen.Left := 212;\r\n    btnTicketErstellen.Top := 3;\r\n    btnTicketErstellen.Width := 96;\r\n    btnTicketErstellen.Height := 25;\r\n    btnTicketErstellen.Caption := 'Ticket';\r\n    btnTicketErstellen.ChildOrder := 12;\r\n    btnTicketErstellen.ElementClassName := 'btn btn-sm bg-info m-1';\r\n    btnTicketErstellen.ElementFont := efCSS;\r\n    btnTicketErstellen.ElementPosition := epIgnore;\r\n    btnTicketErstellen.HeightStyle := ssAuto;\r\n    btnTicketErstellen.HeightPercent := 100.000000000000000000;\r\n    btnTicketErstellen.WidthStyle := ssAuto;\r\n    btnTicketErstellen.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnTicketErstellen, Self, 'OnClick', 'btnTicketErstellenClick');\r\n    btnEmailLoeschen.SetParentComponent(panelfunctions);\r\n    btnEmailLoeschen.Name := 'btnEmailLoeschen';\r\n    btnEmailLoeschen.Left := 314;\r\n    btnEmailLoeschen.Top := 3;\r\n    btnEmailLoeschen.Width := 96;\r\n    btnEmailLoeschen.Height := 25;\r\n    btnEmailLoeschen.Caption := 'L'#246'schen';\r\n    btnEmailLoeschen.ChildOrder := 12;\r\n    btnEmailLoeschen.ElementClassName := 'btn btn-sm bg-info m-1';\r\n    btnEmailLoeschen.ElementFont := efCSS;\r\n    btnEmailLoeschen.ElementPosition := epIgnore;\r\n    btnEmailLoeschen.HeightStyle := ssAuto;\r\n    btnEmailLoeschen.HeightPercent := 100.000000000000000000;\r\n    btnEmailLoeschen.WidthStyle := ssAuto;\r\n    btnEmailLoeschen.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnEmailLoeschen, Self, 'OnClick', 'btnEmailLoeschenClick');\r\n    MSGLOESCHEN.SetParentComponent(Self);\r\n    MSGLOESCHEN.Name := 'MSGLOESCHEN';\r\n    MSGLOESCHEN.Left := 304;\r\n    MSGLOESCHEN.Top := 440;\r\n    MSGLOESCHEN.Width := 24;\r\n    MSGLOESCHEN.Height := 24;\r\n    MSGLOESCHEN.HeightStyle := ssAuto;\r\n    MSGLOESCHEN.WidthStyle := ssAuto;\r\n    MSGLOESCHEN.Buttons := [mbYes,mbNo];\r\n    MSGLOESCHEN.DialogType := mtConfirmation;\r\n    MSGLOESCHEN.Message := 'Das L'#246'schen einer Datei kann nicht r'#252'ckg'#228'ngig gemacht werden.Wollen Sie die Datei wirklich l'#246'schen?';\r\n    MSGLOESCHEN.Opacity := 0.200000000000000000;\r\n    MSGLOESCHEN.ElementButtonClassName := 'btn';\r\n    MSGLOESCHEN.ElementDialogClassName := 'shadow-lg p-3 mb-5 bg-white rounded';\r\n    MSGLOESCHEN.ElementTitleClassName := 'text-body';\r\n    MSGLOESCHEN.ElementContentClassName := 'text-body';\r\n    xdsEmails.SetParentComponent(Self);\r\n    xdsEmails.Name := 'xdsEmails';\r\n    xdsEmails.AfterApplyUpdates := xdsEmailsAfterApplyUpdates;\r\n    xdsEmails.AfterOpen := xdsEmailsAfterOpen;\r\n    xdsEmails.AfterPost := xdsEmailsAfterPost;\r\n    xdsEmails.AfterDelete := xdsEmailsAfterDelete;\r\n    xdsEmails.EntitySetName := 'EmailEingang';\r\n    xdsEmails.Connection := DM2.XDataWebConnection1;\r\n    xdsEmails.QueryTop := 1;\r\n    xdsEmails.Left := 144;\r\n    xdsEmails.Top := 72;\r\n    xdsEmailsEmailEmpfangenUhrzeit.SetParentComponent(xdsEmails);\r\n    xdsEmailsEmailEmpfangenUhrzeit.Name := 'xdsEmailsEmailEmpfangenUhrzeit';\r\n    xdsEmailsEmailEmpfangenUhrzeit.FieldName := 'EmailEmpfangenUhrzeit';\r\n    xdsEmailsID.SetParentComponent(xdsEmails);\r\n    xdsEmailsID.Name := 'xdsEmailsID';\r\n    xdsEmailsID.FieldName := 'ID';\r\n    xdsEmailsID.Required := True;\r\n    xdsEmailsarchiviert.SetParentComponent(xdsEmails);\r\n    xdsEmailsarchiviert.Name := 'xdsEmailsarchiviert';\r\n    xdsEmailsarchiviert.FieldName := 'archiviert';\r\n    xdsEmailsarchiviert.Size := 250;\r\n    xdsEmailsEmailFrom.SetParentComponent(xdsEmails);\r\n    xdsEmailsEmailFrom.Name := 'xdsEmailsEmailFrom';\r\n    xdsEmailsEmailFrom.FieldName := 'EmailFrom';\r\n    xdsEmailsEmailFrom.Size := 250;\r\n    xdsEmailsEmailFromName.SetParentComponent(xdsEmails);\r\n    xdsEmailsEmailFromName.Name := 'xdsEmailsEmailFromName';\r\n    xdsEmailsEmailFromName.FieldName := 'EmailFromName';\r\n    xdsEmailsEmailFromName.Size := 250;\r\n    xdsEmailsEmailTo.SetParentComponent(xdsEmails);\r\n    xdsEmailsEmailTo.Name := 'xdsEmailsEmailTo';\r\n    xdsEmailsEmailTo.FieldName := 'EmailTo';\r\n    xdsEmailsEmailTo.Size := 250;\r\n    xdsEmailsEmailCC.SetParentComponent(xdsEmails);\r\n    xdsEmailsEmailCC.Name := 'xdsEmailsEmailCC';\r\n    xdsEmailsEmailCC.FieldName := 'EmailCC';\r\n    xdsEmailsEmailCC.Size := 250;\r\n    xdsEmailsEmailBetreff.SetParentComponent(xdsEmails);\r\n    xdsEmailsEmailBetreff.Name := 'xdsEmailsEmailBetreff';\r\n    xdsEmailsEmailBetreff.FieldName := 'EmailBetreff';\r\n    xdsEmailsEmailBetreff.Size := 250;\r\n    xdsEmailsEmailPriority.SetParentComponent(xdsEmails);\r\n    xdsEmailsEmailPriority.Name := 'xdsEmailsEmailPriority';\r\n    xdsEmailsEmailPriority.FieldName := 'EmailPriority';\r\n    xdsEmailsEmailOrganization.SetParentComponent(xdsEmails);\r\n    xdsEmailsEmailOrganization.Name := 'xdsEmailsEmailOrganization';\r\n    xdsEmailsEmailOrganization.FieldName := 'EmailOrganization';\r\n    xdsEmailsEmailOrganization.Size := 100;\r\n    xdsEmailsEmailbearbeitet.SetParentComponent(xdsEmails);\r\n    xdsEmailsEmailbearbeitet.Name := 'xdsEmailsEmailbearbeitet';\r\n    xdsEmailsEmailbearbeitet.FieldName := 'Emailbearbeitet';\r\n    xdsEmailsEmailbearbeitetvon.SetParentComponent(xdsEmails);\r\n    xdsEmailsEmailbearbeitetvon.Name := 'xdsEmailsEmailbearbeitetvon';\r\n    xdsEmailsEmailbearbeitetvon.FieldName := 'Emailbearbeitetvon';\r\n    xdsEmailsEmailbearbeitetvon.Size := 50;\r\n    xdsEmailsKundennummer.SetParentComponent(xdsEmails);\r\n    xdsEmailsKundennummer.Name := 'xdsEmailsKundennummer';\r\n    xdsEmailsKundennummer.FieldName := 'Kundennummer';\r\n    xdsEmailsKundennummer.Size := 13;\r\n    xdsEmailsPosteingang.SetParentComponent(xdsEmails);\r\n    xdsEmailsPosteingang.Name := 'xdsEmailsPosteingang';\r\n    xdsEmailsPosteingang.FieldName := 'Posteingang';\r\n    xdsEmailsEmailID.SetParentComponent(xdsEmails);\r\n    xdsEmailsEmailID.Name := 'xdsEmailsEmailID';\r\n    xdsEmailsEmailID.FieldName := 'EmailID';\r\n    xdsEmailsEmailID.Size := 100;\r\n    xdsEmailsEmailReceipt.SetParentComponent(xdsEmails);\r\n    xdsEmailsEmailReceipt.Name := 'xdsEmailsEmailReceipt';\r\n    xdsEmailsEmailReceipt.FieldName := 'EmailReceipt';\r\n    xdsEmailsEmailReceipt.Size := 100;\r\n    xdsEmailsEmailgelesen.SetParentComponent(xdsEmails);\r\n    xdsEmailsEmailgelesen.Name := 'xdsEmailsEmailgelesen';\r\n    xdsEmailsEmailgelesen.FieldName := 'Emailgelesen';\r\n    xdsEmailsEmailContentType.SetParentComponent(xdsEmails);\r\n    xdsEmailsEmailContentType.Name := 'xdsEmailsEmailContentType';\r\n    xdsEmailsEmailContentType.FieldName := 'EmailContentType';\r\n    xdsEmailsEmailContentType.Size := 100;\r\n    xdsEmailsEmailgelesenvon.SetParentComponent(xdsEmails);\r\n    xdsEmailsEmailgelesenvon.Name := 'xdsEmailsEmailgelesenvon';\r\n    xdsEmailsEmailgelesenvon.FieldName := 'Emailgelesenvon';\r\n    xdsEmailsEmailgelesenvon.Size := 50;\r\n    xdsEmailsEmailReplyTo.SetParentComponent(xdsEmails);\r\n    xdsEmailsEmailReplyTo.Name := 'xdsEmailsEmailReplyTo';\r\n    xdsEmailsEmailReplyTo.FieldName := 'EmailReplyTo';\r\n    xdsEmailsEmailReplyTo.Size := 100;\r\n    xdsEmailsEmailReplyToName.SetParentComponent(xdsEmails);\r\n    xdsEmailsEmailReplyToName.Name := 'xdsEmailsEmailReplyToName';\r\n    xdsEmailsEmailReplyToName.FieldName := 'EmailReplyToName';\r\n    xdsEmailsEmailReplyToName.Size := 100;\r\n    xdsEmailsEmailUIDL.SetParentComponent(xdsEmails);\r\n    xdsEmailsEmailUIDL.Name := 'xdsEmailsEmailUIDL';\r\n    xdsEmailsEmailUIDL.FieldName := 'EmailUIDL';\r\n    xdsEmailsEmailUIDL.Size := 250;\r\n    xdsEmailsEmailBCC.SetParentComponent(xdsEmails);\r\n    xdsEmailsEmailBCC.Name := 'xdsEmailsEmailBCC';\r\n    xdsEmailsEmailBCC.FieldName := 'EmailBCC';\r\n    xdsEmailsEmailBCC.Size := 50;\r\n    xdsEmailsEmailBest.SetParentComponent(xdsEmails);\r\n    xdsEmailsEmailBest.Name := 'xdsEmailsEmailBest';\r\n    xdsEmailsEmailBest.FieldName := 'EmailBest';\r\n    xdsEmailsSchreibzeichen.SetParentComponent(xdsEmails);\r\n    xdsEmailsSchreibzeichen.Name := 'xdsEmailsSchreibzeichen';\r\n    xdsEmailsSchreibzeichen.FieldName := 'Schreibzeichen';\r\n    xdsEmailsSchreibzeichen.Size := 10;\r\n    xdsEmailsGesendete.SetParentComponent(xdsEmails);\r\n    xdsEmailsGesendete.Name := 'xdsEmailsGesendete';\r\n    xdsEmailsGesendete.FieldName := 'Gesendete';\r\n    xdsEmailsGesendetUhrzeit.SetParentComponent(xdsEmails);\r\n    xdsEmailsGesendetUhrzeit.Name := 'xdsEmailsGesendetUhrzeit';\r\n    xdsEmailsGesendetUhrzeit.FieldName := 'GesendetUhrzeit';\r\n    xdsEmailsPersNo.SetParentComponent(xdsEmails);\r\n    xdsEmailsPersNo.Name := 'xdsEmailsPersNo';\r\n    xdsEmailsPersNo.FieldName := 'PersNo';\r\n    xdsEmailsPersColor.SetParentComponent(xdsEmails);\r\n    xdsEmailsPersColor.Name := 'xdsEmailsPersColor';\r\n    xdsEmailsPersColor.FieldName := 'PersColor';\r\n    xdsEmailsBearbeitungsnotiz.SetParentComponent(xdsEmails);\r\n    xdsEmailsBearbeitungsnotiz.Name := 'xdsEmailsBearbeitungsnotiz';\r\n    xdsEmailsBearbeitungsnotiz.FieldName := 'Bearbeitungsnotiz';\r\n    xdsEmailsBearbeitungsnotiz.Size := 255;\r\n    xdsEmailsNurText.SetParentComponent(xdsEmails);\r\n    xdsEmailsNurText.Name := 'xdsEmailsNurText';\r\n    xdsEmailsNurText.FieldName := 'NurText';\r\n    xdsEmailsNurText.Size := 255;\r\n    xdsEmailsObjektReferenz.SetParentComponent(xdsEmails);\r\n    xdsEmailsObjektReferenz.Name := 'xdsEmailsObjektReferenz';\r\n    xdsEmailsObjektReferenz.FieldName := 'ObjektReferenz';\r\n    xdsEmailsObjektReferenz.Size := 13;\r\n    xdsEmailsObjektnummer.SetParentComponent(xdsEmails);\r\n    xdsEmailsObjektnummer.Name := 'xdsEmailsObjektnummer';\r\n    xdsEmailsObjektnummer.FieldName := 'Objektnummer';\r\n    xdsEmailsObjektnummer.Size := 25;\r\n    xdsEmailsEmailKonto.SetParentComponent(xdsEmails);\r\n    xdsEmailsEmailKonto.Name := 'xdsEmailsEmailKonto';\r\n    xdsEmailsEmailKonto.FieldName := 'EmailKonto';\r\n    xdsEmailsEmailKonto.Size := 50;\r\n    xdsEmailsFreigabe.SetParentComponent(xdsEmails);\r\n    xdsEmailsFreigabe.Name := 'xdsEmailsFreigabe';\r\n    xdsEmailsFreigabe.FieldName := 'Freigabe';\r\n    xdsEmailsFreigabe.Size := 50;\r\n    xdsEmailsEmailBody.SetParentComponent(xdsEmails);\r\n    xdsEmailsEmailBody.Name := 'xdsEmailsEmailBody';\r\n    xdsEmailsEmailBody.FieldName := 'EmailBody';\r\n    xdsEmailsEmailBody.Size := 255;\r\n    xdsEmailsMSG.SetParentComponent(xdsEmails);\r\n    xdsEmailsMSG.Name := 'xdsEmailsMSG';\r\n    xdsEmailsMSG.FieldName := 'MSG';\r\n    xdsEmailsMSG.Size := 255;\r\n    sourceEmails.SetParentComponent(Self);\r\n    sourceEmails.Name := 'sourceEmails';\r\n    sourceEmails.DataSet := xdsEmails;\r\n    sourceEmails.Left := 72;\r\n    sourceEmails.Top := 72;\r\n  finally\r\n    TC.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    PanelTop.AfterLoadDFMValues;\r\n    lblSeite.AfterLoadDFMValues;\r\n    panelfunctions.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    btnKontaktZuordnen.AfterLoadDFMValues;\r\n    btnTicketErstellen.AfterLoadDFMValues;\r\n    btnEmailLoeschen.AfterLoadDFMValues;\r\n    MSGLOESCHEN.AfterLoadDFMValues;\r\n    xdsEmails.AfterLoadDFMValues;\r\n    xdsEmailsEmailEmpfangenUhrzeit.AfterLoadDFMValues;\r\n    xdsEmailsID.AfterLoadDFMValues;\r\n    xdsEmailsarchiviert.AfterLoadDFMValues;\r\n    xdsEmailsEmailFrom.AfterLoadDFMValues;\r\n    xdsEmailsEmailFromName.AfterLoadDFMValues;\r\n    xdsEmailsEmailTo.AfterLoadDFMValues;\r\n    xdsEmailsEmailCC.AfterLoadDFMValues;\r\n    xdsEmailsEmailBetreff.AfterLoadDFMValues;\r\n    xdsEmailsEmailPriority.AfterLoadDFMValues;\r\n    xdsEmailsEmailOrganization.AfterLoadDFMValues;\r\n    xdsEmailsEmailbearbeitet.AfterLoadDFMValues;\r\n    xdsEmailsEmailbearbeitetvon.AfterLoadDFMValues;\r\n    xdsEmailsKundennummer.AfterLoadDFMValues;\r\n    xdsEmailsPosteingang.AfterLoadDFMValues;\r\n    xdsEmailsEmailID.AfterLoadDFMValues;\r\n    xdsEmailsEmailReceipt.AfterLoadDFMValues;\r\n    xdsEmailsEmailgelesen.AfterLoadDFMValues;\r\n    xdsEmailsEmailContentType.AfterLoadDFMValues;\r\n    xdsEmailsEmailgelesenvon.AfterLoadDFMValues;\r\n    xdsEmailsEmailReplyTo.AfterLoadDFMValues;\r\n    xdsEmailsEmailReplyToName.AfterLoadDFMValues;\r\n    xdsEmailsEmailUIDL.AfterLoadDFMValues;\r\n    xdsEmailsEmailBCC.AfterLoadDFMValues;\r\n    xdsEmailsEmailBest.AfterLoadDFMValues;\r\n    xdsEmailsSchreibzeichen.AfterLoadDFMValues;\r\n    xdsEmailsGesendete.AfterLoadDFMValues;\r\n    xdsEmailsGesendetUhrzeit.AfterLoadDFMValues;\r\n    xdsEmailsPersNo.AfterLoadDFMValues;\r\n    xdsEmailsPersColor.AfterLoadDFMValues;\r\n    xdsEmailsBearbeitungsnotiz.AfterLoadDFMValues;\r\n    xdsEmailsNurText.AfterLoadDFMValues;\r\n    xdsEmailsObjektReferenz.AfterLoadDFMValues;\r\n    xdsEmailsObjektnummer.AfterLoadDFMValues;\r\n    xdsEmailsEmailKonto.AfterLoadDFMValues;\r\n    xdsEmailsFreigabe.AfterLoadDFMValues;\r\n    xdsEmailsEmailBody.AfterLoadDFMValues;\r\n    xdsEmailsMSG.AfterLoadDFMValues;\r\n    sourceEmails.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit unit_EmailEingang;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Vcl.Controls, Vcl.StdCtrls, WEBLib.StdCtrls,\r\n  WEBLib.ExtCtrls, Vcl.Grids, WEBLib.DBCtrls, Data.DB, WEBLib.DB, strutils,\r\n  XData.Web.JsonDataset, XData.Web.Dataset, WEBLib.Buttons, WEBLib.Grids,\r\n  WEBLib.WebCtrls;\r\n\r\ntype\r\n  TEmailEingang = class(TForm)\r\n    xdsEmails: TXDataWebDataSet;\r\n    xdsEmailsEmailEmpfangenUhrzeit: TDateTimeField;\r\n    xdsEmailsID: TIntegerField;\r\n    xdsEmailsEmailFrom: TStringField;\r\n    xdsEmailsEmailFromName: TStringField;\r\n    xdsEmailsEmailBetreff: TStringField;\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    Container3: THTMLContainer;\r\n    ResultLabel: TLabel;\r\n    xdsEmailsNurText: TStringField;\r\n    xdsEmailsKundennummer: TStringField;\r\n    PanelTop: TPanel;\r\n    lblSeite: TLabel;\r\n    panelfunctions: TPanel;\r\n    btnzurueck: TButton;\r\n    edtSuchbegriff: TSearchEdit;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure xdsEmailsAfterOpen(DataSet: TDataSet);\r\n    procedure ResultLabelClick(Sender: TObject);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n    procedure edtSuchbegriffSearchClick(Sender: TObject);\r\n    procedure edtSuchbegriffClearClick(Sender: TObject);\r\n    procedure edtSuchbegriffKeyPress(Sender: TObject; var Key: Char);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    EinzelCard:THTMLDiv;\r\n    procedure EinzelCardclick(Sender:TObject);\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  EmailEingang: TEmailEingang;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_EinzelEmail;\r\n{$R *.dfm}\r\n\r\nprocedure TEmailEingang.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  xdsEmails.Close;\r\n  self.close;\r\nend;\r\n\r\nprocedure TEmailEingang.edtSuchbegriffClearClick(Sender: TObject);\r\nbegin\r\n  edtsuchbegriff.Text:='';\r\n  Container3.HTML.text:='';\r\n  xdsEmails.Close;\r\n  xdsEmails.QueryString:='$select=ID, EmailEmpfangenUhrzeit, EmailFromName, EmailFrom, EmailBetreff, NurText, Kundennummer, Bearbeitungsnotiz&$filter=archiviert eq null&$orderby=ID DESC';\r\n  xdsEmails.Load;\r\nend;\r\n\r\nprocedure TEmailEingang.edtSuchbegriffKeyPress(Sender: TObject; var Key: Char);\r\nbegin\r\n  if key=#13 then edtSuchbegriffSearchClick(sender);\r\n\r\nend;\r\n\r\nprocedure TEmailEingang.edtSuchbegriffSearchClick(Sender: TObject);\r\nvar\r\n  tempsuchtext:string;\r\nbegin\r\n  tempsuchtext:=edtsuchbegriff.Text;\r\n  Container3.HTML.text:='';\r\n  if length(tempsuchtext)>0 then\r\n  begin\r\n    xdsEmails.Close;\r\n    xdsEmails.QueryString:='$select=ID, EmailEmpfangenUhrzeit, EmailFromName, EmailFrom, EmailBetreff, NurText, Kundennummer, Bearbeitungsnotiz&$filter=contains(Kundennummer,'+quotedstr(tempsuchtext)+') OR contains(EmailFrom,'+quotedstr(tempsuchtext)+') OR contains(EmailFromName,'+quotedstr(tempsuchtext)+') OR contains(EmailBetreff,'+quotedstr(tempsuchtext)+')&$orderby=ID DESC';\r\n  end\r\n  else\r\n  begin\r\n    xdsEmails.Close;\r\n    xdsEmails.QueryString:='$select=ID, EmailEmpfangenUhrzeit, EmailFromName, EmailFrom, EmailBetreff, NurText, Kundennummer, Bearbeitungsnotiz&$filter=archiviert eq null&$orderby=ID DESC';\r\n  end;\r\n  xdsEmails.Load;\r\n\r\nend;\r\n\r\nprocedure TEmailEingang.EinzelCardclick(Sender:TObject);\r\nvar\r\n  EinzelEmail:TEinzelEmail;\r\n  MyMerkerEmail:string;\r\nbegin\r\n  myMerkerEmail:=inttostr((sender as THTMLDiv).Tag);\r\n  Container3.HTML.text:='';\r\n  EinzelEmail := TEinzelEmail.CreateNew(procedure(AForm: TObject)\r\n    begin\r\n      (AForm as TEinzelEmail).EmailID:=myMerkerEmail;\r\n    end\r\n    );\r\n\r\n  EinzelEmail.ShowModal(procedure(AValue: TModalResult)\r\n    begin\r\n      xdsEmails.close;\r\n      xdsEmails.Load;\r\n    end\r\n    );\r\nend;\r\n\r\n\r\n\r\nprocedure TEmailEingang.ResultLabelClick(Sender: TObject);\r\nbegin\r\n  if Pos('mehr anzeigen',resultlabel.html,0)>1 then\r\n  begin\r\n    Container3.HTML.text:='';\r\n    xdsEmails.close;\r\n    xdsEmails.QueryTop:=101;\r\n    xdsEmails.Load;\r\n  end;\r\nend;\r\n\r\nprocedure TEmailEingang.WebFormShow(Sender: TObject);\r\nbegin\r\n  xdsEmails.QueryTop:=25;\r\n  xdsEmails.QueryString:='$select=ID, EmailEmpfangenUhrzeit, EmailFromName, EmailFrom, EmailBetreff, NurText, Kundennummer, Bearbeitungsnotiz&$filter=archiviert eq null&$orderby=ID DESC';\r\n  xdsEmails.Load;\r\nend;\r\n\r\nprocedure TEmailEingang.xdsEmailsAfterOpen(DataSet: TDataSet);\r\nvar\r\n  myelement:TJSHTMLElement;\r\n  EinzelKarte:string;\r\nbegin\r\n  myelement:=container1.ElementHandle;\r\n  paneltop.parentelement:=myelement;\r\n  panelfunctions.ParentElement:=myelement;\r\n  container2.ParentElement:=myelement;\r\n  Container3.ParentElement:=myelement;\r\n\r\n  myelement:=paneltop.ElementHandle;\r\n  lblseite.ParentElement:=myelement;\r\n\r\n  myelement:=panelfunctions.ElementHandle;\r\n  btnZurueck.ParentElement:=myelement;\r\n  edtSuchbegriff.ParentElement:=myelement;\r\n\r\n  Container2.HTML.Text:='';\r\n  myelement:=container2.ElementHandle;\r\n  ResultLabel.ParentElement:=myelement;\r\n\r\n  xdsEmails.first;\r\n  if xdsEmails.RecordCount=0 then ResultLabel.HTML:='nichts gefunden';\r\n  if xdsEmails.RecordCount>0 then ResultLabel.HTML:='Emails: '+inttostr(xdsEmails.RecordCount);\r\n  if xdsEmails.RecordCount>24 then ResultLabel.HTML:='mehr als 25 Emails <I><U>mehr anzeigen</I></U>';\r\n  if xdsEmails.RecordCount>25 then ResultLabel.HTML:='Emails: '+inttostr(xdsEmails.RecordCount)+' (max. Anzeige: 100)';\r\n  while not xdsEmails.eof do\r\n  begin\r\n    Einzelkarte:='<div class=\"card-header\"><h5>'+formatdatetime('DD.MM.YYYY hh:mm:ss',xdsEmailsEmailEmpfangenUhrzeit.asdatetime)+'<br>' +xdsEmailsEmailFromName.asstring+' | '+xdsEmailsEmailFrom.asstring+'</h5>';\r\n    Einzelkarte:=Einzelkarte+'Kundennummer: <b>'+xdsEmailsKundennummer.AsString+'</b></div>';\r\n    Einzelkarte:=Einzelkarte+'<div class=\"card-body \"><b>'+xdsEmailsEmailBetreff.AsString+'</b><br>';\r\n    if length(xdsEmailsNurText.asstring)>255 then\r\n    begin\r\n      Einzelkarte:=Einzelkarte+ReplaceStr(leftstr(xdsEmailsNurText.asstring,255),#13+#10,'<BR>')+' ...';\r\n    end\r\n    else\r\n    begin\r\n      Einzelkarte:=Einzelkarte+ReplaceStr(leftstr(xdsEmailsNurText.asstring,255),#13+#10,'<BR>');\r\n    end;\r\n\r\n    Einzelkarte:=Einzelkarte+'</div>';\r\n\r\n    myelement:=Container3.ElementHandle;\r\n    EinzelCard:=THTMLDiv.Create(self);\r\n    EinzelCard.ElementID:=xdsEmailsID.asstring;\r\n    EinzelCard.Tag:=xdsEmailsID.asinteger;\r\n    EinzelCard.HeightStyle:=ssauto;\r\n    EinzelCard.WidthStyle:=ssPercent;\r\n    EinzelCard.HTML.Text:=Einzelkarte;\r\n    EinzelCard.ElementClassName:='card m-1 border-info';\r\n    EinzelCard.OnClick:=@EinzelCardClick;\r\n    EinzelCard.ParentElement:=myelement;\r\n\r\n    xdsEmails.Next;\r\n  end;\r\n\r\n  edtsuchbegriff.SetFocus;\r\nend;\r\n\r\nprocedure TEmailEingang.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  ResultLabel := TLabel.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  PanelTop := TPanel.Create(Self);\r\n  lblSeite := TLabel.Create(Self);\r\n  panelfunctions := TPanel.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  edtSuchbegriff := TSearchEdit.Create(Self);\r\n  xdsEmails := TXDataWebDataSet.Create(Self);\r\n  xdsEmailsEmailEmpfangenUhrzeit := TDateTimeField.Create(Self);\r\n  xdsEmailsID := TIntegerField.Create(Self);\r\n  xdsEmailsEmailFrom := TStringField.Create(Self);\r\n  xdsEmailsEmailFromName := TStringField.Create(Self);\r\n  xdsEmailsEmailBetreff := TStringField.Create(Self);\r\n  xdsEmailsNurText := TStringField.Create(Self);\r\n  xdsEmailsKundennummer := TStringField.Create(Self);\r\n\r\n  ResultLabel.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  PanelTop.BeforeLoadDFMValues;\r\n  lblSeite.BeforeLoadDFMValues;\r\n  panelfunctions.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  edtSuchbegriff.BeforeLoadDFMValues;\r\n  xdsEmails.BeforeLoadDFMValues;\r\n  xdsEmailsEmailEmpfangenUhrzeit.BeforeLoadDFMValues;\r\n  xdsEmailsID.BeforeLoadDFMValues;\r\n  xdsEmailsEmailFrom.BeforeLoadDFMValues;\r\n  xdsEmailsEmailFromName.BeforeLoadDFMValues;\r\n  xdsEmailsEmailBetreff.BeforeLoadDFMValues;\r\n  xdsEmailsNurText.BeforeLoadDFMValues;\r\n  xdsEmailsKundennummer.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'EmailEingang';\r\n    Width := 514;\r\n    Height := 438;\r\n    Caption := 'Suchbegriff eingeben';\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    ResultLabel.SetParentComponent(Self);\r\n    ResultLabel.Name := 'ResultLabel';\r\n    ResultLabel.Left := 134;\r\n    ResultLabel.Top := 384;\r\n    ResultLabel.Width := 60;\r\n    ResultLabel.Height := 15;\r\n    ResultLabel.Caption := 'ResultLabel';\r\n    ResultLabel.ElementClassName := 'h6 m-2';\r\n    ResultLabel.ElementFont := efCSS;\r\n    ResultLabel.ElementPosition := epIgnore;\r\n    ResultLabel.HeightStyle := ssAuto;\r\n    ResultLabel.HeightPercent := 100.000000000000000000;\r\n    ResultLabel.WidthStyle := ssAuto;\r\n    ResultLabel.WidthPercent := 100.000000000000000000;\r\n    SetEvent(ResultLabel, Self, 'OnClick', 'ResultLabelClick');\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.ElementClassName := 'container-fluid rounded';\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ChildOrder := 2;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 5;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 5;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    PanelTop.SetParentComponent(Self);\r\n    PanelTop.Name := 'PanelTop';\r\n    PanelTop.Left := 22;\r\n    PanelTop.Top := 141;\r\n    PanelTop.Width := 463;\r\n    PanelTop.Height := 76;\r\n    PanelTop.ElementClassName := 'd-flex flex-wrap bg-info rounded';\r\n    PanelTop.HeightStyle := ssAuto;\r\n    PanelTop.WidthStyle := ssPercent;\r\n    PanelTop.BorderStyle := bsNone;\r\n    PanelTop.Caption := 'WebPanel1';\r\n    PanelTop.ChildOrder := 2;\r\n    PanelTop.Color := 8340248;\r\n    PanelTop.ElementFont := efCSS;\r\n    PanelTop.ElementPosition := epIgnore;\r\n    PanelTop.ShowCaption := False;\r\n    lblSeite.SetParentComponent(PanelTop);\r\n    lblSeite.Name := 'lblSeite';\r\n    lblSeite.Left := 1;\r\n    lblSeite.Top := 1;\r\n    lblSeite.Width := 163;\r\n    lblSeite.Height := 25;\r\n    lblSeite.AutoSize := False;\r\n    lblSeite.Caption := 'Email-Eingang';\r\n    lblSeite.ElementClassName := 'h2 text-light m-1';\r\n    lblSeite.ElementLabelClassName := 'align-self-start';\r\n    lblSeite.ElementFont := efCSS;\r\n    lblSeite.ElementPosition := epIgnore;\r\n    lblSeite.Font.Charset := DEFAULT_CHARSET;\r\n    lblSeite.Font.Color := clWindowText;\r\n    lblSeite.Font.Height := -19;\r\n    lblSeite.Font.Name := 'Segoe UI';\r\n    lblSeite.Font.Style := [];\r\n    lblSeite.HeightStyle := ssAuto;\r\n    lblSeite.HeightPercent := 100.000000000000000000;\r\n    lblSeite.ParentFont := False;\r\n    lblSeite.WidthStyle := ssPercent;\r\n    lblSeite.WidthPercent := 100.000000000000000000;\r\n    panelfunctions.SetParentComponent(Self);\r\n    panelfunctions.Name := 'panelfunctions';\r\n    panelfunctions.Left := 32;\r\n    panelfunctions.Top := 236;\r\n    panelfunctions.Width := 257;\r\n    panelfunctions.Height := 37;\r\n    panelfunctions.ElementClassName := 'd-flex flex-wrap';\r\n    panelfunctions.HeightStyle := ssAuto;\r\n    panelfunctions.WidthStyle := ssPercent;\r\n    panelfunctions.BorderColor := 13892310;\r\n    panelfunctions.BorderStyle := bsNone;\r\n    panelfunctions.ChildOrder := 1;\r\n    panelfunctions.Color := clWhite;\r\n    panelfunctions.ElementFont := efCSS;\r\n    panelfunctions.ElementPosition := epIgnore;\r\n    panelfunctions.ShowCaption := False;\r\n    btnzurueck.SetParentComponent(panelfunctions);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 8;\r\n    btnzurueck.Top := 12;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-sm bg-info m-1';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    edtSuchbegriff.SetParentComponent(Self);\r\n    edtSuchbegriff.Name := 'edtSuchbegriff';\r\n    edtSuchbegriff.Left := 272;\r\n    edtSuchbegriff.Top := 304;\r\n    edtSuchbegriff.Width := 250;\r\n    edtSuchbegriff.Height := 23;\r\n    edtSuchbegriff.AutoSelect := False;\r\n    edtSuchbegriff.AutoSize := True;\r\n    edtSuchbegriff.ChildOrder := 7;\r\n    edtSuchbegriff.ElementClassName := 'form-control input-sm m-1';\r\n    edtSuchbegriff.ElementFont := efCSS;\r\n    edtSuchbegriff.ElementPosition := epIgnore;\r\n    edtSuchbegriff.HeightStyle := ssAuto;\r\n    edtSuchbegriff.HeightPercent := 100.000000000000000000;\r\n    edtSuchbegriff.TextHint := 'Suchbegriff eingeben';\r\n    edtSuchbegriff.WidthPercent := 100.000000000000000000;\r\n    SetEvent(edtSuchbegriff, Self, 'OnKeyPress', 'edtSuchbegriffKeyPress');\r\n    SetEvent(edtSuchbegriff, Self, 'OnClearClick', 'edtSuchbegriffClearClick');\r\n    SetEvent(edtSuchbegriff, Self, 'OnSearchClick', 'edtSuchbegriffSearchClick');\r\n    xdsEmails.SetParentComponent(Self);\r\n    xdsEmails.Name := 'xdsEmails';\r\n    xdsEmails.AfterOpen := xdsEmailsAfterOpen;\r\n    xdsEmails.EntitySetName := 'EmailEingang';\r\n    xdsEmails.Connection := DM2.XDataWebConnection1;\r\n    xdsEmails.QueryString := '$select=ID, EmailEmpfangenUhrzeit, EmailFromName, EmailFrom, EmailBetreff, NurText&$filter=archiviert eq null&$orderby=ID DESC';\r\n    xdsEmails.Left := 96;\r\n    xdsEmails.Top := 328;\r\n    xdsEmailsEmailEmpfangenUhrzeit.SetParentComponent(xdsEmails);\r\n    xdsEmailsEmailEmpfangenUhrzeit.Name := 'xdsEmailsEmailEmpfangenUhrzeit';\r\n    xdsEmailsEmailEmpfangenUhrzeit.FieldName := 'EmailEmpfangenUhrzeit';\r\n    xdsEmailsID.SetParentComponent(xdsEmails);\r\n    xdsEmailsID.Name := 'xdsEmailsID';\r\n    xdsEmailsID.FieldName := 'ID';\r\n    xdsEmailsID.Required := True;\r\n    xdsEmailsEmailFrom.SetParentComponent(xdsEmails);\r\n    xdsEmailsEmailFrom.Name := 'xdsEmailsEmailFrom';\r\n    xdsEmailsEmailFrom.FieldName := 'EmailFrom';\r\n    xdsEmailsEmailFrom.Size := 250;\r\n    xdsEmailsEmailFromName.SetParentComponent(xdsEmails);\r\n    xdsEmailsEmailFromName.Name := 'xdsEmailsEmailFromName';\r\n    xdsEmailsEmailFromName.FieldName := 'EmailFromName';\r\n    xdsEmailsEmailFromName.Size := 250;\r\n    xdsEmailsEmailBetreff.SetParentComponent(xdsEmails);\r\n    xdsEmailsEmailBetreff.Name := 'xdsEmailsEmailBetreff';\r\n    xdsEmailsEmailBetreff.FieldName := 'EmailBetreff';\r\n    xdsEmailsEmailBetreff.Size := 250;\r\n    xdsEmailsNurText.SetParentComponent(xdsEmails);\r\n    xdsEmailsNurText.Name := 'xdsEmailsNurText';\r\n    xdsEmailsNurText.FieldName := 'NurText';\r\n    xdsEmailsNurText.Size := 255;\r\n    xdsEmailsKundennummer.SetParentComponent(xdsEmails);\r\n    xdsEmailsKundennummer.Name := 'xdsEmailsKundennummer';\r\n    xdsEmailsKundennummer.FieldName := 'Kundennummer';\r\n    xdsEmailsKundennummer.Size := 13;\r\n  finally\r\n    ResultLabel.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    PanelTop.AfterLoadDFMValues;\r\n    lblSeite.AfterLoadDFMValues;\r\n    panelfunctions.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    edtSuchbegriff.AfterLoadDFMValues;\r\n    xdsEmails.AfterLoadDFMValues;\r\n    xdsEmailsEmailEmpfangenUhrzeit.AfterLoadDFMValues;\r\n    xdsEmailsID.AfterLoadDFMValues;\r\n    xdsEmailsEmailFrom.AfterLoadDFMValues;\r\n    xdsEmailsEmailFromName.AfterLoadDFMValues;\r\n    xdsEmailsEmailBetreff.AfterLoadDFMValues;\r\n    xdsEmailsNurText.AfterLoadDFMValues;\r\n    xdsEmailsKundennummer.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit unit_LieferscheinUnterschrift;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Data.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, WEBLib.DB, VCL.TMSFNCTypes, VCL.TMSFNCUtils,\r\n  VCL.TMSFNCGraphics, VCL.TMSFNCGraphicsTypes, Vcl.StdCtrls, WEBLib.StdCtrls,\r\n  VCL.TMSFNCCustomControl, VCL.TMSFNCSignatureCapture, Vcl.Controls,\r\n  WEBLib.ExtCtrls, WEBLib.SignatureCapture;\r\n\r\ntype\r\n  TLieferscheinUnterschrift = class(TForm)\r\n    sourceUnterschriften: TDataSource;\r\n    dsUnterschriften: TXDataWebDataSet;\r\n    dsUnterschriftenNummerkomplett: TStringField;\r\n    dsUnterschriftenDatum: TDateTimeField;\r\n    dsUnterschriftenUnterschriftKunde: TBlobField;\r\n    dsUnterschriftenUnterschriftKundeText: TStringField;\r\n    panelUnterschreiben: TPanel;\r\n    WebEdit1: TEdit;\r\n    WebLabel1: TLabel;\r\n    dsUnterschriftenNachnameKunde: TStringField;\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    btnUSpeichern: TButton;\r\n    btnUAbbrechen: TButton;\r\n    SigKunde: TSignatureCapture;\r\n    procedure btnUAbbrechenClick(Sender: TObject);\r\n    procedure btnUSpeichernClick(Sender: TObject);\r\n    procedure dsUnterschriftenAfterApplyUpdates(Sender: TDataSet;\r\n      Info: TResolveResults);\r\n    procedure dsUnterschriftenAfterPost(DataSet: TDataSet);\r\n    procedure WebFormShow(Sender: TObject);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    UMerkerLieferschein:string;\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  LieferscheinUnterschrift: TLieferscheinUnterschrift;\r\n\r\nimplementation\r\n  uses unit1, unit2;\r\n{$R *.dfm}\r\n\r\n\r\nprocedure TLieferscheinUnterschrift.btnUAbbrechenClick(Sender: TObject);\r\nbegin\r\n  self.Close;\r\nend;\r\n\r\nprocedure TLieferscheinUnterschrift.btnUSpeichernClick(Sender: TObject);\r\nbegin\r\n  dsunterschriften.Append;\r\n  dsUnterschriftenNummerkomplett.AsString:=UMerkerLieferschein;\r\n  dsUnterschriftenDatum.AsDateTime:=date+time;\r\n  dsUnterschriftenUnterschriftKundeText.AsString:=sigkunde.GetAsBase64Image;\r\n  dsUnterschriftenNachnameKunde.AsString:=WebEdit1.Text;\r\n  dsUnterschriften.Post;\r\nend;\r\n\r\nprocedure TLieferscheinUnterschrift.dsUnterschriftenAfterApplyUpdates(\r\n  Sender: TDataSet; Info: TResolveResults);\r\nbegin\r\n  self.Close;\r\nend;\r\n\r\nprocedure TLieferscheinUnterschrift.dsUnterschriftenAfterPost(\r\n  DataSet: TDataSet);\r\nbegin\r\n  if LizenzOK then\r\n  begin\r\n    dsUnterschriften.ApplyUpdates;\r\n  end\r\n  else\r\n  begin\r\n    showmessage('Für das Speichern von Daten sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n  end;\r\nend;\r\n\r\nprocedure TLieferscheinUnterschrift.WebFormShow(Sender: TObject);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Unterschrift Lieferschein '+UMerkerLieferschein+'</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  btnUAbbrechen.ParentElement:=myelement;\r\n  btnUSpeichern.ParentElement:=myelement;\r\n\r\n  myelement:=container2.elementhandle;\r\n  panelUnterschreiben.parentelement:=myelement;\r\n\r\n  myelement:=panelUnterschreiben.elementhandle;\r\n  sigkunde.ParentElement:=myelement;\r\n  weblabel1.ParentElement:=myelement;\r\n  webedit1.ParentElement:=myelement;\r\n  dsUnterschriften.Close;\r\n  dsUnterschriften.QueryString:='$filter=Nummerkomplett eq '+QuotedStr(UMerkerLieferschein);\r\n  dsUnterschriften.Load;\r\nend;\r\n\r\nprocedure TLieferscheinUnterschrift.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  panelUnterschreiben := TPanel.Create(Self);\r\n  WebLabel1 := TLabel.Create(Self);\r\n  WebEdit1 := TEdit.Create(Self);\r\n  SigKunde := TSignatureCapture.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  btnUSpeichern := TButton.Create(Self);\r\n  btnUAbbrechen := TButton.Create(Self);\r\n  sourceUnterschriften := TDataSource.Create(Self);\r\n  dsUnterschriften := TXDataWebDataSet.Create(Self);\r\n  dsUnterschriftenNummerkomplett := TStringField.Create(Self);\r\n  dsUnterschriftenDatum := TDateTimeField.Create(Self);\r\n  dsUnterschriftenUnterschriftKunde := TBlobField.Create(Self);\r\n  dsUnterschriftenUnterschriftKundeText := TStringField.Create(Self);\r\n  dsUnterschriftenNachnameKunde := TStringField.Create(Self);\r\n\r\n  panelUnterschreiben.BeforeLoadDFMValues;\r\n  WebLabel1.BeforeLoadDFMValues;\r\n  WebEdit1.BeforeLoadDFMValues;\r\n  SigKunde.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  btnUSpeichern.BeforeLoadDFMValues;\r\n  btnUAbbrechen.BeforeLoadDFMValues;\r\n  sourceUnterschriften.BeforeLoadDFMValues;\r\n  dsUnterschriften.BeforeLoadDFMValues;\r\n  dsUnterschriftenNummerkomplett.BeforeLoadDFMValues;\r\n  dsUnterschriftenDatum.BeforeLoadDFMValues;\r\n  dsUnterschriftenUnterschriftKunde.BeforeLoadDFMValues;\r\n  dsUnterschriftenUnterschriftKundeText.BeforeLoadDFMValues;\r\n  dsUnterschriftenNachnameKunde.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'LieferscheinUnterschrift';\r\n    Width := 403;\r\n    Height := 419;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    Font.Charset := DEFAULT_CHARSET;\r\n    Font.Color := clWindowText;\r\n    Font.Height := -11;\r\n    Font.Name := 'Tahoma';\r\n    Font.Style := [];\r\n    ParentFont := False;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    panelUnterschreiben.SetParentComponent(Self);\r\n    panelUnterschreiben.Name := 'panelUnterschreiben';\r\n    panelUnterschreiben.Left := 0;\r\n    panelUnterschreiben.Top := 133;\r\n    panelUnterschreiben.Width := 313;\r\n    panelUnterschreiben.Height := 270;\r\n    panelUnterschreiben.ElementClassName := 'card m-1 border-info bg-info';\r\n    panelUnterschreiben.Caption := 'panelUnterschreiben';\r\n    panelUnterschreiben.Color := 12557152;\r\n    panelUnterschreiben.ElementFont := efCSS;\r\n    panelUnterschreiben.ElementPosition := epIgnore;\r\n    panelUnterschreiben.ShowCaption := False;\r\n    WebLabel1.SetParentComponent(panelUnterschreiben);\r\n    WebLabel1.Name := 'WebLabel1';\r\n    WebLabel1.Left := 3;\r\n    WebLabel1.Top := 195;\r\n    WebLabel1.Width := 105;\r\n    WebLabel1.Height := 13;\r\n    WebLabel1.Caption := 'Name ausgeschrieben';\r\n    WebLabel1.ElementClassName := 'text-sm';\r\n    WebLabel1.ElementFont := efCSS;\r\n    WebLabel1.ElementPosition := epIgnore;\r\n    WebLabel1.HeightPercent := 100.000000000000000000;\r\n    WebLabel1.WidthStyle := ssPercent;\r\n    WebLabel1.WidthPercent := 98.000000000000000000;\r\n    WebEdit1.SetParentComponent(panelUnterschreiben);\r\n    WebEdit1.Name := 'WebEdit1';\r\n    WebEdit1.Left := 3;\r\n    WebEdit1.Top := 216;\r\n    WebEdit1.Width := 295;\r\n    WebEdit1.Height := 21;\r\n    WebEdit1.AutoSize := True;\r\n    WebEdit1.ChildOrder := 4;\r\n    WebEdit1.ElementClassName := 'form-control';\r\n    WebEdit1.ElementFont := efCSS;\r\n    WebEdit1.ElementPosition := epIgnore;\r\n    WebEdit1.HeightStyle := ssAuto;\r\n    WebEdit1.HeightPercent := 100.000000000000000000;\r\n    WebEdit1.TextHint := 'Name des Kunden';\r\n    WebEdit1.WidthStyle := ssPercent;\r\n    WebEdit1.WidthPercent := 98.000000000000000000;\r\n    SigKunde.SetParentComponent(panelUnterschreiben);\r\n    SigKunde.Name := 'SigKunde';\r\n    SigKunde.Left := 6;\r\n    SigKunde.Top := 11;\r\n    SigKunde.Width := 299;\r\n    SigKunde.Height := 186;\r\n    SigKunde.ElementClassName := 'form-control';\r\n    SigKunde.HeightStyle := ssAuto;\r\n    SigKunde.WidthStyle := ssPercent;\r\n    SigKunde.WidthPercent := 98.000000000000000000;\r\n    SigKunde.ChildOrder := 2;\r\n    SigKunde.ElementPosition := epIgnore;\r\n    SigKunde.TabOrder := 1;\r\n    SigKunde.TextPosition.Line.Color := clGray;\r\n    SigKunde.Text := 'Unterschrift Kunde';\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 8;\r\n    Container1.Width := 225;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 55;\r\n    Container2.Width := 225;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    btnUSpeichern.SetParentComponent(Self);\r\n    btnUSpeichern.Name := 'btnUSpeichern';\r\n    btnUSpeichern.Left := 120;\r\n    btnUSpeichern.Top := 102;\r\n    btnUSpeichern.Width := 105;\r\n    btnUSpeichern.Height := 25;\r\n    btnUSpeichern.Caption := 'speichern';\r\n    btnUSpeichern.ChildOrder := 4;\r\n    btnUSpeichern.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnUSpeichern.ElementFont := efCSS;\r\n    btnUSpeichern.ElementPosition := epIgnore;\r\n    btnUSpeichern.HeightStyle := ssAuto;\r\n    btnUSpeichern.HeightPercent := 100.000000000000000000;\r\n    btnUSpeichern.WidthStyle := ssAuto;\r\n    btnUSpeichern.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnUSpeichern, Self, 'OnClick', 'btnUSpeichernClick');\r\n    btnUAbbrechen.SetParentComponent(Self);\r\n    btnUAbbrechen.Name := 'btnUAbbrechen';\r\n    btnUAbbrechen.Left := 0;\r\n    btnUAbbrechen.Top := 102;\r\n    btnUAbbrechen.Width := 104;\r\n    btnUAbbrechen.Height := 25;\r\n    btnUAbbrechen.Caption := 'Abbrechen';\r\n    btnUAbbrechen.ChildOrder := 3;\r\n    btnUAbbrechen.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnUAbbrechen.ElementFont := efCSS;\r\n    btnUAbbrechen.ElementPosition := epIgnore;\r\n    btnUAbbrechen.HeightStyle := ssAuto;\r\n    btnUAbbrechen.HeightPercent := 100.000000000000000000;\r\n    btnUAbbrechen.WidthStyle := ssAuto;\r\n    btnUAbbrechen.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnUAbbrechen, Self, 'OnClick', 'btnUAbbrechenClick');\r\n    sourceUnterschriften.SetParentComponent(Self);\r\n    sourceUnterschriften.Name := 'sourceUnterschriften';\r\n    sourceUnterschriften.DataSet := dsUnterschriften;\r\n    sourceUnterschriften.Left := 32;\r\n    sourceUnterschriften.Top := 132;\r\n    dsUnterschriften.SetParentComponent(Self);\r\n    dsUnterschriften.Name := 'dsUnterschriften';\r\n    dsUnterschriften.AfterApplyUpdates := dsUnterschriftenAfterApplyUpdates;\r\n    dsUnterschriften.AfterPost := dsUnterschriftenAfterPost;\r\n    dsUnterschriften.EntitySetName := 'LieferscheinUnterschriften';\r\n    dsUnterschriften.Connection := DM2.XDataWebConnection1;\r\n    dsUnterschriften.Left := 36;\r\n    dsUnterschriften.Top := 56;\r\n    dsUnterschriftenNummerkomplett.SetParentComponent(dsUnterschriften);\r\n    dsUnterschriftenNummerkomplett.Name := 'dsUnterschriftenNummerkomplett';\r\n    dsUnterschriftenNummerkomplett.FieldName := 'Nummerkomplett';\r\n    dsUnterschriftenNummerkomplett.Required := True;\r\n    dsUnterschriftenNummerkomplett.Size := 10;\r\n    dsUnterschriftenDatum.SetParentComponent(dsUnterschriften);\r\n    dsUnterschriftenDatum.Name := 'dsUnterschriftenDatum';\r\n    dsUnterschriftenDatum.FieldName := 'Datum';\r\n    dsUnterschriftenUnterschriftKunde.SetParentComponent(dsUnterschriften);\r\n    dsUnterschriftenUnterschriftKunde.Name := 'dsUnterschriftenUnterschriftKunde';\r\n    dsUnterschriftenUnterschriftKunde.FieldName := 'UnterschriftKunde';\r\n    dsUnterschriftenUnterschriftKundeText.SetParentComponent(dsUnterschriften);\r\n    dsUnterschriftenUnterschriftKundeText.Name := 'dsUnterschriftenUnterschriftKundeText';\r\n    dsUnterschriftenUnterschriftKundeText.FieldName := 'UnterschriftKundeText';\r\n    dsUnterschriftenUnterschriftKundeText.Size := 255;\r\n    dsUnterschriftenNachnameKunde.SetParentComponent(dsUnterschriften);\r\n    dsUnterschriftenNachnameKunde.Name := 'dsUnterschriftenNachnameKunde';\r\n    dsUnterschriftenNachnameKunde.FieldName := 'NachnameKunde';\r\n    dsUnterschriftenNachnameKunde.Size := 50;\r\n  finally\r\n    panelUnterschreiben.AfterLoadDFMValues;\r\n    WebLabel1.AfterLoadDFMValues;\r\n    WebEdit1.AfterLoadDFMValues;\r\n    SigKunde.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    btnUSpeichern.AfterLoadDFMValues;\r\n    btnUAbbrechen.AfterLoadDFMValues;\r\n    sourceUnterschriften.AfterLoadDFMValues;\r\n    dsUnterschriften.AfterLoadDFMValues;\r\n    dsUnterschriftenNummerkomplett.AfterLoadDFMValues;\r\n    dsUnterschriftenDatum.AfterLoadDFMValues;\r\n    dsUnterschriftenUnterschriftKunde.AfterLoadDFMValues;\r\n    dsUnterschriftenUnterschriftKundeText.AfterLoadDFMValues;\r\n    dsUnterschriftenNachnameKunde.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit unit_EinzelLieferschein;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, XData.Web.Client, WEBLib.Buttons, Data.DB,\r\n  XData.Web.JsonDataset, XData.Web.Dataset, Vcl.Controls, Vcl.StdCtrls,\r\n  WEBLib.StdCtrls, WEBLib.ExtCtrls, WEBLib.Grids, strutils, WEBLib.DB, DB;\r\n\r\ntype\r\n  TEinzelLieferschein = class(TForm)\r\n    xdsBeleg: TXDataWebDataSet;\r\n    xdsPositionen: TXDataWebDataSet;\r\n    WClient: TXDataWebClient;\r\n    TC: TTableControl;\r\n    PTC: TTableControl;\r\n    dsUnterschriften: TXDataWebDataSet;\r\n    dsUnterschriftenNummerkomplett: TStringField;\r\n    dsUnterschriftenDatum: TDateTimeField;\r\n    dsUnterschriftenUnterschriftKunde: TBlobField;\r\n    dsUnterschriftenUnterschriftKundeText: TStringField;\r\n    sourceUnterschriften: TDataSource;\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    btnzurueck: TButton;\r\n    btnUnterschreiben: TButton;\r\n    btnPDF: TButton;\r\n    Container3: THTMLContainer;\r\n    btnPDFSenden: TButton;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure btnPDFClick(Sender: TObject);\r\n    procedure xdsBelegAfterOpen(DataSet: TDataSet);\r\n    procedure xdsPositionenAfterOpen(DataSet: TDataSet);\r\n    procedure btnUnterschreibenClick(Sender: TObject);\r\n    procedure dsUnterschriftenAfterOpen(DataSet: TDataSet);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n    procedure btnPDFSendenClick(Sender: TObject);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    MerkerLieferschein:string;\r\n    imgUnterschriftKunde:TImageControl;\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  EinzelLieferschein: TEinzelLieferschein;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_LieferscheinUnterschrift;\r\n{$R *.dfm}\r\n\r\nprocedure TEinzelLieferschein.btnPDFClick(Sender: TObject);\r\n  procedure OnResponse(Response:TXDataClientResponse);\r\n  var\r\n    mydownload:string;\r\n  begin\r\n    mydownload:=string(TJSObject(response.Result)['value']);\r\n    if mydownload='WRONG' then\r\n    begin\r\n      showmessage('Download kann nicht bereitgestellt werden');\r\n    end\r\n    else\r\n    begin\r\n      application.Navigate(downloadconnection+mydownload,ntBlank);\r\n    end;\r\n  end;\r\nbegin\r\n  if LizenzOK then\r\n  begin\r\n    WClient.RawInvoke('IServerService.WarenempfangPDF',[MerkerLieferschein],@OnResponse);\r\n  end\r\n  else\r\n  begin\r\n    showmessage('Für das Abrufen von Dateien sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TEinzelLieferschein.btnPDFSendenClick(Sender: TObject);\r\n  procedure OnResponse(Response:TXDataClientResponse);\r\n  var\r\n    mydownload:string;\r\n  begin\r\n    mydownload:=string(TJSObject(response.Result)['value']);\r\n    if mydownload='WRONG' then\r\n    begin\r\n      showmessage('Postausgang konnte nicht erstellt werden.');\r\n    end\r\n    else\r\n    begin\r\n      showmessage('Emailversand wurde vorgemerkt.');\r\n    end;\r\n  end;\r\nbegin\r\n  if LizenzOK then\r\n  begin\r\n    if xdsBeleg.FieldByName('Email').AsString<>'' then\r\n    begin\r\n      WClient.RawInvoke('IServerService.WarenempfangPDFSENDEN',[MerkerLieferschein],@OnResponse);\r\n    end\r\n    else\r\n    begin\r\n      showmessage('Emailadresse fehlt');\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    showmessage('Für diese Funktion sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TEinzelLieferschein.btnUnterschreibenClick(Sender: TObject);\r\nvar\r\n  LFrm:TLieferscheinUnterschrift;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TLieferscheinUnterschrift;\r\n    begin\r\n      LForm:=(AForm as TLieferscheinUnterschrift);\r\n      lform.UMerkerLieferschein:=MerkerLieferschein;\r\n      ptc.Visible:=false;\r\n      tc.Visible:=false;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      dsUnterschriften.Close;\r\n      xdsPositionen.Close;\r\n      xdsBeleg.Close;\r\n      xdsBeleg.QueryString:='$expand=Kundennummer&$filter=Nummerkomplett eq '+QuotedStr(MerkerLieferschein);\r\n      xdsBeleg.Load;\r\n    end;\r\n\r\n  begin\r\n\r\n  LFrm:=TLieferscheinUnterschrift.CreateNew(@AfterCreate);\r\n  //LFrm.Popup:=true;\r\n  LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TEinzelLieferschein.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  self.Close;\r\nend;\r\n\r\nprocedure TEinzelLieferschein.dsUnterschriftenAfterOpen(DataSet: TDataSet);\r\n var\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  if dsunterschriften.RecordCount=1 then\r\n  begin\r\n    try\r\n      TC.Cells[0,8]:='Unterschrift Kunde';\r\n      TC.Cells[0,9]:='Unterschrift vom';\r\n\r\n\r\n      myelement:=tc.CellElements[1,8];\r\n      imgUnterschriftKunde:=TImageControl.Create(self);\r\n      imgUnterschriftKunde.height:=100;\r\n      imgUnterschriftKunde.Width:=200;\r\n      imgunterschriftKunde.url:=dsUnterschriftenUnterschriftKundeText.asstring;\r\n      myelement.innerHTML:='';\r\n      imgUnterschriftKunde.ParentElement:=myelement;\r\n      TC.Cells[1,9]:=formatdatetime('DD.MM.YYYY hh:mm:ss', dsUnterschriftenDatum.Asdatetime);\r\n\r\n      btnUnterschreiben.Visible:=false;\r\n    except\r\n    end;\r\n  end;\r\n  xdspositionen.Close;\r\n  xdsPositionen.QueryString:='$expand=Artikelnummer&$filter=Nummerkomplett eq '+QuotedStr(MerkerLieferschein)+'&$orderby=PosNr';\r\n  xdsPositionen.Load;\r\nend;\r\n\r\nprocedure TEinzelLieferschein.WebFormShow(Sender: TObject);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Einzel-Lieferschein</h5></nav>';\r\n  Container2.HTML.Text:='';\r\n  myelement:=container2.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  btnUnterschreiben.ParentElement:=myelement;\r\n  btnPDF.ParentElement:=myelement;\r\n  btnPDFSenden.ParentElement:=myelement;\r\n  myelement:=container3.elementhandle;\r\n  TC.ParentElement:=myelement;\r\n  PTC.ParentElement:=myelement;\r\n  xdsBeleg.QueryString:='$expand=Kundennummer&$filter=Nummerkomplett eq '+QuotedStr(MerkerLieferschein);\r\n  xdsBeleg.Load;\r\nend;\r\n\r\nprocedure TEinzelLieferschein.xdsBelegAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  TC.Visible:=true;\r\n  TC.RowCount:=10;\r\n  TC.Cells[0,0]:='Bezeichnung';\r\n  TC.Cells[1,0]:='Wert';\r\n  TC.Cells[0,1]:='Lieferschein | Datum';\r\n  TC.Cells[1,1]:='<h5>'+xdsbeleg.FieldByName('Nummerkomplett').asstring +' | '+formatdatetime('DD.MM.YYYY', xdsbeleg.FieldByName('Datum').asdatetime);\r\n  TC.Cells[0,2]:='Kontaktnummer';\r\n  TC.Cells[1,2]:='<h6>'+xdsBeleg.FieldByName('Kundennummer.Kundennummer').asstring;\r\n  TC.Cells[0,3]:='Anschrift';\r\n  TC.Cells[1,3]:='<h6>'+ReplaceStr(xdsbeleg.FieldByName('Adressebild').asstring,#13+#10,'<BR>');\r\n  TC.Cells[0,4]:='Email';\r\n  TC.Cells[1,4]:='<h6>'+xdsBeleg.FieldByName('Email').asstring;\r\n  TC.Cells[0,5]:='Auftragsbezeichnung';\r\n  TC.Cells[1,5]:='<h6>'+xdsBeleg.FieldByName('Auftragsbezeichnung').asstring;\r\n  TC.Cells[0,6]:='Objektnummer';\r\n  TC.Cells[1,6]:='<h6>'+xdsBeleg.FieldByName('Objektnummer').asstring;\r\n  TC.Cells[0,7]:='Lieferanschrift';\r\n  try\r\n  TC.Cells[1,7]:='<h6>'+ReplaceStr(xdsbeleg.FieldByName('Lieferanschriftbild').asstring,#13+#10,'<BR>');\r\n  except\r\n  end;\r\n  //TC.Cells[0,7]:='Nettosumme';\r\n  //TC.Cells[1,7]:=formatfloat('#,##0.00',xdsbeleg.fieldbyname('Nettosumme').asfloat);\r\n  dsUnterschriften.QueryString:='$filter=Nummerkomplett eq '+QuotedStr(MerkerLieferschein);\r\n  dsUnterschriften.Load;\r\n\r\nend;\r\n\r\nprocedure TEinzelLieferschein.xdsPositionenAfterOpen(DataSet: TDataSet);\r\nvar\r\n  I: Integer;\r\nbegin\r\n  PTC.Visible:=true;\r\n  PTC.RowCount:=xdsPositionen.RecordCount+1;\r\n  PTC.ColCount:=3;\r\n  PTC.Cells[0,0]:='Pos';\r\n  PTC.Cells[1,0]:='Artikel';\r\n  PTC.Cells[2,0]:='Menge';\r\n  //PTC.Cells[6,0]:='Einzel-VKP';\r\n  //PTC.Cells[7,0]:='Endpreis';\r\n\r\n  xdspositionen.First;\r\n  for I := 1 to xdspositionen.RecordCount do\r\n  begin\r\n    PTC.Cells[0,i]:=xdspositionen.FieldByName('PosNr').AsString+'.'+xdspositionen.FieldByName('PosUNr').AsString;\r\n    PTC.Cells[1,i]:=xdspositionen.FieldByName('Artikelnummer.Artikelnummer').AsString+'<br><b>'+xdspositionen.FieldByName('Artikelueberschrift').AsString+'</b><br>'+xdspositionen.FieldByName('Artikelbeschreibung').AsString;\r\n    PTC.Cells[2,i]:='<p class=\"text-right\">'+xdspositionen.FieldByName('Menge').AsString;\r\n    //if not einkauf then PTC.Cells[6,i]:='<p class=\"text-right\">'+formatfloat('#,##0.00',xdsPositionen.fieldbyname('Verkaufspreis').asfloat);\r\n    //if not einkauf then PTC.Cells[7,i]:='<p class=\"text-right\">'+formatfloat('#,##0.00',xdsPositionen.fieldbyname('Endpreis').asfloat);\r\n    xdspositionen.Next;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TEinzelLieferschein.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  TC := TTableControl.Create(Self);\r\n  PTC := TTableControl.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  btnUnterschreiben := TButton.Create(Self);\r\n  btnPDF := TButton.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  btnPDFSenden := TButton.Create(Self);\r\n  xdsBeleg := TXDataWebDataSet.Create(Self);\r\n  xdsPositionen := TXDataWebDataSet.Create(Self);\r\n  WClient := TXDataWebClient.Create(Self);\r\n  dsUnterschriften := TXDataWebDataSet.Create(Self);\r\n  dsUnterschriftenNummerkomplett := TStringField.Create(Self);\r\n  dsUnterschriftenDatum := TDateTimeField.Create(Self);\r\n  dsUnterschriftenUnterschriftKunde := TBlobField.Create(Self);\r\n  dsUnterschriftenUnterschriftKundeText := TStringField.Create(Self);\r\n  sourceUnterschriften := TDataSource.Create(Self);\r\n\r\n  TC.BeforeLoadDFMValues;\r\n  PTC.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  btnUnterschreiben.BeforeLoadDFMValues;\r\n  btnPDF.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  btnPDFSenden.BeforeLoadDFMValues;\r\n  xdsBeleg.BeforeLoadDFMValues;\r\n  xdsPositionen.BeforeLoadDFMValues;\r\n  WClient.BeforeLoadDFMValues;\r\n  dsUnterschriften.BeforeLoadDFMValues;\r\n  dsUnterschriftenNummerkomplett.BeforeLoadDFMValues;\r\n  dsUnterschriftenDatum.BeforeLoadDFMValues;\r\n  dsUnterschriftenUnterschriftKunde.BeforeLoadDFMValues;\r\n  dsUnterschriftenUnterschriftKundeText.BeforeLoadDFMValues;\r\n  sourceUnterschriften.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'EinzelLieferschein';\r\n    Width := 223;\r\n    Height := 429;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.Left := 8;\r\n    TC.Top := 177;\r\n    TC.Width := 200;\r\n    TC.Height := 143;\r\n    TC.ElementClassName := 'table table-hover table-bordered table-striped';\r\n    TC.HeightStyle := ssAuto;\r\n    TC.WidthStyle := ssAuto;\r\n    TC.BorderColor := clSilver;\r\n    TC.ChildOrder := 2;\r\n    TC.ColHeader := False;\r\n    TC.ElementHeaderClassName := 'table-info';\r\n    TC.ElementPosition := epIgnore;\r\n    TC.ElementTableClassName := 'table table-hover table-bordered table-striped';\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 2;\r\n    PTC.SetParentComponent(Self);\r\n    PTC.Name := 'PTC';\r\n    PTC.Left := 8;\r\n    PTC.Top := 344;\r\n    PTC.Width := 200;\r\n    PTC.Height := 80;\r\n    PTC.ElementClassName := 'table table-hover table-bordered table-striped';\r\n    PTC.HeightStyle := ssAuto;\r\n    PTC.WidthStyle := ssAuto;\r\n    PTC.BorderColor := clSilver;\r\n    PTC.ChildOrder := 2;\r\n    PTC.ColHeader := False;\r\n    PTC.ElementHeaderClassName := 'table-info';\r\n    PTC.ElementPosition := epIgnore;\r\n    PTC.ElementTableClassName := 'table table-hover table-bordered table-striped';\r\n    PTC.WordWrap := True;\r\n    PTC.ColCount := 2;\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 223;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.Align := alTop;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 41;\r\n    Container2.Width := 223;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.Align := alTop;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 0;\r\n    btnzurueck.Top := 115;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    btnUnterschreiben.SetParentComponent(Self);\r\n    btnUnterschreiben.Name := 'btnUnterschreiben';\r\n    btnUnterschreiben.Left := 0;\r\n    btnUnterschreiben.Top := 146;\r\n    btnUnterschreiben.Width := 96;\r\n    btnUnterschreiben.Height := 25;\r\n    btnUnterschreiben.Caption := 'unterschreiben';\r\n    btnUnterschreiben.ChildOrder := 4;\r\n    btnUnterschreiben.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnUnterschreiben.ElementFont := efCSS;\r\n    btnUnterschreiben.ElementPosition := epIgnore;\r\n    btnUnterschreiben.HeightStyle := ssAuto;\r\n    btnUnterschreiben.HeightPercent := 100.000000000000000000;\r\n    btnUnterschreiben.WidthStyle := ssAuto;\r\n    btnUnterschreiben.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnUnterschreiben, Self, 'OnClick', 'btnUnterschreibenClick');\r\n    btnPDF.SetParentComponent(Self);\r\n    btnPDF.Name := 'btnPDF';\r\n    btnPDF.Left := 102;\r\n    btnPDF.Top := 127;\r\n    btnPDF.Width := 96;\r\n    btnPDF.Height := 25;\r\n    btnPDF.Caption := 'PDF';\r\n    btnPDF.ChildOrder := 4;\r\n    btnPDF.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnPDF.ElementFont := efCSS;\r\n    btnPDF.ElementPosition := epIgnore;\r\n    btnPDF.HeightStyle := ssAuto;\r\n    btnPDF.HeightPercent := 100.000000000000000000;\r\n    btnPDF.WidthStyle := ssAuto;\r\n    btnPDF.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnPDF, Self, 'OnClick', 'btnPDFClick');\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 82;\r\n    Container3.Width := 223;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.Align := alTop;\r\n    Container3.ChildOrder := 2;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    btnPDFSenden.SetParentComponent(Self);\r\n    btnPDFSenden.Name := 'btnPDFSenden';\r\n    btnPDFSenden.Left := 112;\r\n    btnPDFSenden.Top := 326;\r\n    btnPDFSenden.Width := 57;\r\n    btnPDFSenden.Height := 25;\r\n    btnPDFSenden.Caption := '@';\r\n    btnPDFSenden.ChildOrder := 4;\r\n    btnPDFSenden.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnPDFSenden.ElementFont := efCSS;\r\n    btnPDFSenden.ElementPosition := epIgnore;\r\n    btnPDFSenden.HeightStyle := ssAuto;\r\n    btnPDFSenden.HeightPercent := 100.000000000000000000;\r\n    btnPDFSenden.WidthStyle := ssAuto;\r\n    btnPDFSenden.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnPDFSenden, Self, 'OnClick', 'btnPDFSendenClick');\r\n    xdsBeleg.SetParentComponent(Self);\r\n    xdsBeleg.Name := 'xdsBeleg';\r\n    xdsBeleg.AfterOpen := xdsBelegAfterOpen;\r\n    xdsBeleg.EntitySetName := 'Lieferschein';\r\n    xdsBeleg.Connection := DM2.XDataWebConnection1;\r\n    xdsBeleg.SubpropsDepth := 1;\r\n    xdsBeleg.QueryString := '$expand=Kundennummer';\r\n    xdsBeleg.Left := 20;\r\n    xdsBeleg.Top := 8;\r\n    xdsPositionen.SetParentComponent(Self);\r\n    xdsPositionen.Name := 'xdsPositionen';\r\n    xdsPositionen.AfterOpen := xdsPositionenAfterOpen;\r\n    xdsPositionen.EntitySetName := 'PositionenLieferschein';\r\n    xdsPositionen.Connection := DM2.XDataWebConnection1;\r\n    xdsPositionen.SubpropsDepth := 1;\r\n    xdsPositionen.QueryString := '$expand=Artikelnummer';\r\n    xdsPositionen.Left := 52;\r\n    xdsPositionen.Top := 64;\r\n    WClient.SetParentComponent(Self);\r\n    WClient.Name := 'WClient';\r\n    WClient.Connection := DM2.XDataWebConnection1;\r\n    WClient.Left := 88;\r\n    WClient.Top := 8;\r\n    dsUnterschriften.SetParentComponent(Self);\r\n    dsUnterschriften.Name := 'dsUnterschriften';\r\n    dsUnterschriften.AfterOpen := dsUnterschriftenAfterOpen;\r\n    dsUnterschriften.EntitySetName := 'LieferscheinUnterschriften';\r\n    dsUnterschriften.Connection := DM2.XDataWebConnection1;\r\n    dsUnterschriften.Left := 124;\r\n    dsUnterschriften.Top := 176;\r\n    dsUnterschriftenNummerkomplett.SetParentComponent(dsUnterschriften);\r\n    dsUnterschriftenNummerkomplett.Name := 'dsUnterschriftenNummerkomplett';\r\n    dsUnterschriftenNummerkomplett.FieldName := 'Nummerkomplett';\r\n    dsUnterschriftenNummerkomplett.Required := True;\r\n    dsUnterschriftenNummerkomplett.Size := 10;\r\n    dsUnterschriftenDatum.SetParentComponent(dsUnterschriften);\r\n    dsUnterschriftenDatum.Name := 'dsUnterschriftenDatum';\r\n    dsUnterschriftenDatum.FieldName := 'Datum';\r\n    dsUnterschriftenUnterschriftKunde.SetParentComponent(dsUnterschriften);\r\n    dsUnterschriftenUnterschriftKunde.Name := 'dsUnterschriftenUnterschriftKunde';\r\n    dsUnterschriftenUnterschriftKunde.FieldName := 'UnterschriftKunde';\r\n    dsUnterschriftenUnterschriftKundeText.SetParentComponent(dsUnterschriften);\r\n    dsUnterschriftenUnterschriftKundeText.Name := 'dsUnterschriftenUnterschriftKundeText';\r\n    dsUnterschriftenUnterschriftKundeText.FieldName := 'UnterschriftKundeText';\r\n    dsUnterschriftenUnterschriftKundeText.Size := 255;\r\n    sourceUnterschriften.SetParentComponent(Self);\r\n    sourceUnterschriften.Name := 'sourceUnterschriften';\r\n    sourceUnterschriften.DataSet := dsUnterschriften;\r\n    sourceUnterschriften.Left := 24;\r\n    sourceUnterschriften.Top := 180;\r\n  finally\r\n    TC.AfterLoadDFMValues;\r\n    PTC.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    btnUnterschreiben.AfterLoadDFMValues;\r\n    btnPDF.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    btnPDFSenden.AfterLoadDFMValues;\r\n    xdsBeleg.AfterLoadDFMValues;\r\n    xdsPositionen.AfterLoadDFMValues;\r\n    WClient.AfterLoadDFMValues;\r\n    dsUnterschriften.AfterLoadDFMValues;\r\n    dsUnterschriftenNummerkomplett.AfterLoadDFMValues;\r\n    dsUnterschriftenDatum.AfterLoadDFMValues;\r\n    dsUnterschriftenUnterschriftKunde.AfterLoadDFMValues;\r\n    dsUnterschriftenUnterschriftKundeText.AfterLoadDFMValues;\r\n    sourceUnterschriften.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.","unit unit_ListeLieferschein;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, WEBLib.Grids, WEBLib.DBCtrls, WEBLib.Buttons,\r\n  Vcl.Controls, Vcl.StdCtrls, WEBLib.StdCtrls, WEBLib.ExtCtrls, Data.DB,\r\n  WEBLib.DB, XData.Web.JsonDataset, XData.Web.Dataset, WEBLib.WebCtrls;\r\n\r\ntype\r\n  TListeLieferschein = class(TForm)\r\n    xdsLieferschein: TXDataWebDataSet;\r\n    xdsLieferscheinNummerkomplett: TStringField;\r\n    xdsLieferscheinReferenzAngebot: TStringField;\r\n    xdsLieferscheinReferenzAuftragbest: TStringField;\r\n    xdsLieferscheinReferenzRechnung: TStringField;\r\n    xdsLieferscheinDatum: TDateTimeField;\r\n    xdsLieferscheinJahr: TFloatField;\r\n    xdsLieferscheinKalenderwoche: TIntegerField;\r\n    xdsLieferscheinNachname: TStringField;\r\n    xdsLieferscheinVorname: TStringField;\r\n    xdsLieferscheinPostleitzahl: TStringField;\r\n    xdsLieferscheinOrt: TStringField;\r\n    xdsLieferscheinLaenderkuerzel: TStringField;\r\n    xdsLieferscheinLand: TStringField;\r\n    xdsLieferscheinBriefanrede1: TStringField;\r\n    xdsLieferscheinBriefanrede2: TStringField;\r\n    xdsLieferscheinEMail: TStringField;\r\n    xdsLieferscheinAdresseBild: TStringField;\r\n    xdsLieferscheinLieferanschriftBild: TStringField;\r\n    xdsLieferscheinZahlungsbedingung: TIntegerField;\r\n    xdsLieferscheinZahlungsbedingungText: TStringField;\r\n    xdsLieferscheinAuftragsbezeichnung: TStringField;\r\n    xdsLieferscheinAuftragnummerKunde: TStringField;\r\n    xdsLieferscheinBestelldatumKunde: TDateTimeField;\r\n    xdsLieferscheinILN: TStringField;\r\n    xdsLieferscheinKopftext: TStringField;\r\n    xdsLieferscheinSchlussbemerkung: TStringField;\r\n    xdsLieferscheinGruss: TStringField;\r\n    xdsLieferscheinMehrwertsteuersatz1: TFloatField;\r\n    xdsLieferscheinMehrwertsteuersatz2: TFloatField;\r\n    xdsLieferscheinNettosumme01: TFloatField;\r\n    xdsLieferscheinNettosumme02: TFloatField;\r\n    xdsLieferscheinNettosumme: TFloatField;\r\n    xdsLieferscheinMehrwertsteuer01: TFloatField;\r\n    xdsLieferscheinMehrwertsteuer02: TFloatField;\r\n    xdsLieferscheinMehrwertsteuer: TFloatField;\r\n    xdsLieferscheinBruttosumme: TFloatField;\r\n    xdsLieferscheinVersanddatum: TDateTimeField;\r\n    xdsLieferscheinSkontosatz: TFloatField;\r\n    xdsLieferscheinNettosummeEK: TFloatField;\r\n    xdsLieferscheinNettoMarge: TFloatField;\r\n    xdsLieferscheinSchreibzeichen: TStringField;\r\n    xdsLieferscheinUnterzeichner: TStringField;\r\n    xdsLieferscheinTelefonMA: TStringField;\r\n    xdsLieferscheinEmailMA: TStringField;\r\n    xdsLieferscheinUSTID: TStringField;\r\n    xdsLieferscheinUmsatzsteuerausweis: TBooleanField;\r\n    xdsLieferscheingebucht: TBooleanField;\r\n    xdsLieferscheinLieferdatum: TDateTimeField;\r\n    xdsLieferscheinTransportbedingung: TStringField;\r\n    xdsLieferscheinMehrwertsteuersatz3: TFloatField;\r\n    xdsLieferscheinMehrwertsteuer03: TFloatField;\r\n    xdsLieferscheinNettosumme03: TFloatField;\r\n    xdsLieferscheinRundungsDifferenz: TFloatField;\r\n    xdsLieferscheinEmailText: TStringField;\r\n    xdsLieferscheinRabattstufe: TStringField;\r\n    xdsLieferscheinDebitorennummer: TStringField;\r\n    xdsLieferscheinKostentraeger: TStringField;\r\n    xdsLieferscheinRabattsatz: TFloatField;\r\n    xdsLieferscheinObjektReferenz: TStringField;\r\n    xdsLieferscheinBank: TStringField;\r\n    xdsLieferscheinBankleitzahl: TFloatField;\r\n    xdsLieferscheinKontonummer: TStringField;\r\n    xdsLieferscheinKontoinhaber: TStringField;\r\n    xdsLieferscheinTelefaxnummer: TStringField;\r\n    xdsLieferscheinDatumNeu: TDateTimeField;\r\n    xdsLieferscheinDatumgeaendert: TDateTimeField;\r\n    xdsLieferscheinObjektnummer: TStringField;\r\n    xdsLieferscheinLiefertermin: TStringField;\r\n    xdsLieferscheinEmailversand: TBooleanField;\r\n    xdsLieferscheinTelefonnummer: TStringField;\r\n    xdsLieferscheinMobilTelefon: TStringField;\r\n    xdsLieferscheinBenutzerNeu: TStringField;\r\n    xdsLieferscheinBenutzerGeaendert: TStringField;\r\n    xdsLieferscheinBerechnungBrutto: TBooleanField;\r\n    xdsLieferscheinBruttosumme01: TFloatField;\r\n    xdsLieferscheinBruttosumme02: TFloatField;\r\n    xdsLieferscheinBruttosumme03: TFloatField;\r\n    xdsLieferscheinNotiz: TStringField;\r\n    xdsLieferscheinMargeProzent: TFloatField;\r\n    xdsLieferscheinBelegsprache: TStringField;\r\n    xdsLieferscheinDuplicate: TStringField;\r\n    xdsLieferscheinAnsprechpartner: TStringField;\r\n    xdsLieferscheinKundennummerFremd: TStringField;\r\n    xdsLieferscheinProtokoll: TStringField;\r\n    xdsLieferscheinVollstaendigFakturiert: TBooleanField;\r\n    xdsLieferscheinVerleihauftrag: TBooleanField;\r\n    xdsLieferscheinVerleihVon: TDateTimeField;\r\n    xdsLieferscheinVerleihBis: TDateTimeField;\r\n    xdsLieferscheinRueckgabeschein: TBooleanField;\r\n    xdsLieferscheinRueckgabeReferenz: TStringField;\r\n    xdsLieferscheingesperrt: TBooleanField;\r\n    xdsLieferscheinVerleihvonText: TStringField;\r\n    xdsLieferscheinVerleihbisText: TStringField;\r\n    xdsLieferscheinNotizExtern: TStringField;\r\n    xdsLieferscheinDruckWHG: TStringField;\r\n    xdsLieferscheinDruckWHGKurs: TFloatField;\r\n    xdsLieferscheinProzentsatzZusatzposition: TFloatField;\r\n    xdsLieferscheinTextZusatzposition: TStringField;\r\n    xdsLieferscheinTextzusatzBeschreibung: TStringField;\r\n    xdsLieferscheinExport: TBooleanField;\r\n    xdsLieferscheinExportbescheinigung: TBooleanField;\r\n    xdsLieferscheinBestimmungsland: TStringField;\r\n    xdsLieferscheinLayoutname: TStringField;\r\n    xdsLieferscheinGesamtgewicht: TFloatField;\r\n    xdsLieferscheinBetragZusatzposition: TFloatField;\r\n    xdsLieferscheinPaketdienst: TStringField;\r\n    xdsLieferscheinPaketnummer: TStringField;\r\n    xdsLieferscheinMehrwertsteuersatz4: TFloatField;\r\n    xdsLieferscheinMehrwertsteuersatz5: TFloatField;\r\n    xdsLieferscheinMehrwertsteuersatz6: TFloatField;\r\n    xdsLieferscheinBesteuerungKey: TIntegerField;\r\n    xdsLieferscheinVertreterMatchcode: TStringField;\r\n    xdsLieferscheinVerfasser: TStringField;\r\n    xdsLieferscheinLieferadresseID: TIntegerField;\r\n    xdsLieferscheinBelegvariante: TStringField;\r\n    xdsLieferscheinBereitstellungDatum: TDateTimeField;\r\n    xdsLieferscheinBereitstellungErledigt: TBooleanField;\r\n    xdsLieferscheinFahrzeugID: TIntegerField;\r\n    xdsLieferscheinMonatJahr: TDateTimeField;\r\n    xdsLieferscheinLieferanschriftDaten: TStringField;\r\n    xdsLieferscheinGesamtVolumen: TFloatField;\r\n    xdsLieferscheinBelegPKey: TIntegerField;\r\n    xdsLieferscheinDruckParameter: TStringField;\r\n    xdsLieferscheinFakturierungNichtVor: TDateTimeField;\r\n    xdsLieferscheinQuittungSIG: TBlobField;\r\n    xdsLieferscheinKundennummerKundennummer: TStringField;\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    Container3: THTMLContainer;\r\n    ResultLabel: TLabel;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure xdsLieferscheinAfterOpen(DataSet: TDataSet);\r\n    procedure ResultLabelClick(Sender: TObject);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n\r\n    buttonzurueck:TButton;\r\n    EinzelCard:THTMLDiv;\r\n    procedure buttonzurueckclick(Sender:TObject);\r\n    procedure EinzelCardclick(Sender:TObject);\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  ListeLieferschein: TListeLieferschein;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_EinzelLieferschein;\r\n{$R *.dfm}\r\n\r\nprocedure TListeLieferschein.buttonzurueckclick(Sender:TObject);\r\nbegin\r\n  xdsLieferschein.Close;\r\n  self.close;\r\nend;\r\n\r\nprocedure TListeLieferschein.EinzelCardclick(Sender:TObject);\r\nvar\r\n  EinzelLieferschein:TEinzelLieferschein;\r\n  MyMerkerLieferschein:string;\r\nbegin\r\n  myMerkerLieferschein:=(sender as THTMLDiv).ElementID;\r\n  Container3.HTML.text:='';\r\n  EinzelLieferschein := TEinzelLieferschein.CreateNew(procedure(AForm: TObject)\r\n    begin\r\n      (AForm as TEinzelLieferschein).MerkerLieferschein:=myMerkerLieferschein;\r\n    end\r\n    );\r\n\r\n  EinzelLieferschein.ShowModal(procedure(AValue: TModalResult)\r\n    begin\r\n      xdsLieferschein.close;\r\n      xdsLieferschein.Load;\r\n    end\r\n    );\r\nend;\r\n\r\n\r\n\r\nprocedure TListeLieferschein.ResultLabelClick(Sender: TObject);\r\nbegin\r\n  if Pos('mehr anzeigen',resultlabel.html,0)>1 then\r\n  begin\r\n    xdsLieferschein.close;\r\n    xdsLieferschein.QueryTop:=501;\r\n    xdsLieferschein.Load;\r\n  end;\r\nend;\r\n\r\nprocedure TListeLieferschein.WebFormShow(Sender: TObject);\r\nbegin\r\n  xdsLieferschein.Load;\r\nend;\r\n\r\nprocedure TListeLieferschein.xdsLieferscheinAfterOpen(DataSet: TDataSet);\r\nvar\r\n  myelement:TJSHTMLElement;\r\n  EinzelKarte:string;\r\nbegin\r\n\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Lieferscheine offen</h5></nav>';\r\n\r\n  Container2.HTML.Text:='';\r\n  myelement:=container2.ElementHandle;\r\n  buttonzurueck:=TButton.Create(self);\r\n  buttonzurueck.ElementClassName:='btn btn-info m-1 text-left';\r\n  buttonzurueck.HeightStyle:=ssauto;\r\n  buttonzurueck.WidthStyle:=ssauto;\r\n  buttonzurueck.tag:=0;\r\n  buttonzurueck.Caption:='<< zurück';\r\n  buttonzurueck.OnClick:=@buttonzurueckClick;\r\n  buttonzurueck.ParentElement:=myelement;\r\n  ResultLabel.ParentElement:=myelement;\r\n  xdsLieferschein.First;\r\n  if xdsLieferschein.RecordCount=0 then ResultLabel.HTML:='nichts gefunden';\r\n  if xdsLieferschein.RecordCount>0 then ResultLabel.HTML:='Lieferschein(e): '+inttostr(xdsLieferschein.RecordCount);\r\n  if xdsLieferschein.RecordCount>99 then ResultLabel.HTML:='mehr als 100 Lieferscheine <I><U>mehr anzeigen</I></U>';\r\n  if xdsLieferschein.RecordCount>100 then ResultLabel.HTML:='Lieferscheine: '+inttostr(xdsLieferschein.RecordCount)+' (max. Anzeige: 500)';\r\n  while not xdsLieferschein.eof do\r\n  begin\r\n\r\n    Einzelkarte:='<div class=\"card-header\"><h5>'+xdsLieferscheinNummerkomplett.asstring+' | '+formatdatetime('DD.MM.YYYY',xdsLieferscheinDatum.AsDateTime)+'</h5><i>'+xdsLieferscheinBelegvariante.AsString+'</i></div>';\r\n    Einzelkarte:=Einzelkarte+'<div class=\"card-body \">'+xdsLieferscheinKundennummerKundennummer.AsString;\r\n    Einzelkarte:=Einzelkarte+' | '+xdsLieferscheinNachname.asstring+'<br>';\r\n    Einzelkarte:=Einzelkarte+'<b>'+xdsLieferscheinAuftragsbezeichnung.AsString+'</b><br>';\r\n    Einzelkarte:=Einzelkarte+'<b>'+xdsLieferscheinLieferanschriftbild.AsString+'</b><br>';\r\n    Einzelkarte:=Einzelkarte+'</div>';\r\n\r\n\r\n    myelement:=Container3.ElementHandle;\r\n    EinzelCard:=THTMLDiv.Create(self);\r\n    EinzelCard.ElementID:=xdsLieferscheinNummerkomplett.asstring;\r\n    EinzelCard.HeightStyle:=ssauto;\r\n    EinzelCard.Width:=350;\r\n    EinzelCard.HTML.Text:=Einzelkarte;\r\n    EinzelCard.ElementClassName:='card m-1 border-info';\r\n    EinzelCard.OnClick:=@EinzelCardClick;\r\n    EinzelCard.ParentElement:=myelement;\r\n\r\n    xdsLieferschein.Next;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TListeLieferschein.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  ResultLabel := TLabel.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  xdsLieferschein := TXDataWebDataSet.Create(Self);\r\n  xdsLieferscheinNummerkomplett := TStringField.Create(Self);\r\n  xdsLieferscheinReferenzAngebot := TStringField.Create(Self);\r\n  xdsLieferscheinReferenzAuftragbest := TStringField.Create(Self);\r\n  xdsLieferscheinReferenzRechnung := TStringField.Create(Self);\r\n  xdsLieferscheinDatum := TDateTimeField.Create(Self);\r\n  xdsLieferscheinJahr := TFloatField.Create(Self);\r\n  xdsLieferscheinKalenderwoche := TIntegerField.Create(Self);\r\n  xdsLieferscheinNachname := TStringField.Create(Self);\r\n  xdsLieferscheinVorname := TStringField.Create(Self);\r\n  xdsLieferscheinPostleitzahl := TStringField.Create(Self);\r\n  xdsLieferscheinOrt := TStringField.Create(Self);\r\n  xdsLieferscheinLaenderkuerzel := TStringField.Create(Self);\r\n  xdsLieferscheinLand := TStringField.Create(Self);\r\n  xdsLieferscheinBriefanrede1 := TStringField.Create(Self);\r\n  xdsLieferscheinBriefanrede2 := TStringField.Create(Self);\r\n  xdsLieferscheinEMail := TStringField.Create(Self);\r\n  xdsLieferscheinAdresseBild := TStringField.Create(Self);\r\n  xdsLieferscheinLieferanschriftBild := TStringField.Create(Self);\r\n  xdsLieferscheinZahlungsbedingung := TIntegerField.Create(Self);\r\n  xdsLieferscheinZahlungsbedingungText := TStringField.Create(Self);\r\n  xdsLieferscheinAuftragsbezeichnung := TStringField.Create(Self);\r\n  xdsLieferscheinAuftragnummerKunde := TStringField.Create(Self);\r\n  xdsLieferscheinBestelldatumKunde := TDateTimeField.Create(Self);\r\n  xdsLieferscheinILN := TStringField.Create(Self);\r\n  xdsLieferscheinKopftext := TStringField.Create(Self);\r\n  xdsLieferscheinSchlussbemerkung := TStringField.Create(Self);\r\n  xdsLieferscheinGruss := TStringField.Create(Self);\r\n  xdsLieferscheinMehrwertsteuersatz1 := TFloatField.Create(Self);\r\n  xdsLieferscheinMehrwertsteuersatz2 := TFloatField.Create(Self);\r\n  xdsLieferscheinNettosumme01 := TFloatField.Create(Self);\r\n  xdsLieferscheinNettosumme02 := TFloatField.Create(Self);\r\n  xdsLieferscheinNettosumme := TFloatField.Create(Self);\r\n  xdsLieferscheinMehrwertsteuer01 := TFloatField.Create(Self);\r\n  xdsLieferscheinMehrwertsteuer02 := TFloatField.Create(Self);\r\n  xdsLieferscheinMehrwertsteuer := TFloatField.Create(Self);\r\n  xdsLieferscheinBruttosumme := TFloatField.Create(Self);\r\n  xdsLieferscheinVersanddatum := TDateTimeField.Create(Self);\r\n  xdsLieferscheinSkontosatz := TFloatField.Create(Self);\r\n  xdsLieferscheinNettosummeEK := TFloatField.Create(Self);\r\n  xdsLieferscheinNettoMarge := TFloatField.Create(Self);\r\n  xdsLieferscheinSchreibzeichen := TStringField.Create(Self);\r\n  xdsLieferscheinUnterzeichner := TStringField.Create(Self);\r\n  xdsLieferscheinTelefonMA := TStringField.Create(Self);\r\n  xdsLieferscheinEmailMA := TStringField.Create(Self);\r\n  xdsLieferscheinUSTID := TStringField.Create(Self);\r\n  xdsLieferscheinUmsatzsteuerausweis := TBooleanField.Create(Self);\r\n  xdsLieferscheingebucht := TBooleanField.Create(Self);\r\n  xdsLieferscheinLieferdatum := TDateTimeField.Create(Self);\r\n  xdsLieferscheinTransportbedingung := TStringField.Create(Self);\r\n  xdsLieferscheinMehrwertsteuersatz3 := TFloatField.Create(Self);\r\n  xdsLieferscheinMehrwertsteuer03 := TFloatField.Create(Self);\r\n  xdsLieferscheinNettosumme03 := TFloatField.Create(Self);\r\n  xdsLieferscheinRundungsDifferenz := TFloatField.Create(Self);\r\n  xdsLieferscheinEmailText := TStringField.Create(Self);\r\n  xdsLieferscheinRabattstufe := TStringField.Create(Self);\r\n  xdsLieferscheinDebitorennummer := TStringField.Create(Self);\r\n  xdsLieferscheinKostentraeger := TStringField.Create(Self);\r\n  xdsLieferscheinRabattsatz := TFloatField.Create(Self);\r\n  xdsLieferscheinObjektReferenz := TStringField.Create(Self);\r\n  xdsLieferscheinBank := TStringField.Create(Self);\r\n  xdsLieferscheinBankleitzahl := TFloatField.Create(Self);\r\n  xdsLieferscheinKontonummer := TStringField.Create(Self);\r\n  xdsLieferscheinKontoinhaber := TStringField.Create(Self);\r\n  xdsLieferscheinTelefaxnummer := TStringField.Create(Self);\r\n  xdsLieferscheinDatumNeu := TDateTimeField.Create(Self);\r\n  xdsLieferscheinDatumgeaendert := TDateTimeField.Create(Self);\r\n  xdsLieferscheinObjektnummer := TStringField.Create(Self);\r\n  xdsLieferscheinLiefertermin := TStringField.Create(Self);\r\n  xdsLieferscheinEmailversand := TBooleanField.Create(Self);\r\n  xdsLieferscheinTelefonnummer := TStringField.Create(Self);\r\n  xdsLieferscheinMobilTelefon := TStringField.Create(Self);\r\n  xdsLieferscheinBenutzerNeu := TStringField.Create(Self);\r\n  xdsLieferscheinBenutzerGeaendert := TStringField.Create(Self);\r\n  xdsLieferscheinBerechnungBrutto := TBooleanField.Create(Self);\r\n  xdsLieferscheinBruttosumme01 := TFloatField.Create(Self);\r\n  xdsLieferscheinBruttosumme02 := TFloatField.Create(Self);\r\n  xdsLieferscheinBruttosumme03 := TFloatField.Create(Self);\r\n  xdsLieferscheinNotiz := TStringField.Create(Self);\r\n  xdsLieferscheinMargeProzent := TFloatField.Create(Self);\r\n  xdsLieferscheinBelegsprache := TStringField.Create(Self);\r\n  xdsLieferscheinDuplicate := TStringField.Create(Self);\r\n  xdsLieferscheinAnsprechpartner := TStringField.Create(Self);\r\n  xdsLieferscheinKundennummerFremd := TStringField.Create(Self);\r\n  xdsLieferscheinProtokoll := TStringField.Create(Self);\r\n  xdsLieferscheinVollstaendigFakturiert := TBooleanField.Create(Self);\r\n  xdsLieferscheinVerleihauftrag := TBooleanField.Create(Self);\r\n  xdsLieferscheinVerleihVon := TDateTimeField.Create(Self);\r\n  xdsLieferscheinVerleihBis := TDateTimeField.Create(Self);\r\n  xdsLieferscheinRueckgabeschein := TBooleanField.Create(Self);\r\n  xdsLieferscheinRueckgabeReferenz := TStringField.Create(Self);\r\n  xdsLieferscheingesperrt := TBooleanField.Create(Self);\r\n  xdsLieferscheinVerleihvonText := TStringField.Create(Self);\r\n  xdsLieferscheinVerleihbisText := TStringField.Create(Self);\r\n  xdsLieferscheinNotizExtern := TStringField.Create(Self);\r\n  xdsLieferscheinDruckWHG := TStringField.Create(Self);\r\n  xdsLieferscheinDruckWHGKurs := TFloatField.Create(Self);\r\n  xdsLieferscheinProzentsatzZusatzposition := TFloatField.Create(Self);\r\n  xdsLieferscheinTextZusatzposition := TStringField.Create(Self);\r\n  xdsLieferscheinTextzusatzBeschreibung := TStringField.Create(Self);\r\n  xdsLieferscheinExport := TBooleanField.Create(Self);\r\n  xdsLieferscheinExportbescheinigung := TBooleanField.Create(Self);\r\n  xdsLieferscheinBestimmungsland := TStringField.Create(Self);\r\n  xdsLieferscheinLayoutname := TStringField.Create(Self);\r\n  xdsLieferscheinGesamtgewicht := TFloatField.Create(Self);\r\n  xdsLieferscheinBetragZusatzposition := TFloatField.Create(Self);\r\n  xdsLieferscheinPaketdienst := TStringField.Create(Self);\r\n  xdsLieferscheinPaketnummer := TStringField.Create(Self);\r\n  xdsLieferscheinMehrwertsteuersatz4 := TFloatField.Create(Self);\r\n  xdsLieferscheinMehrwertsteuersatz5 := TFloatField.Create(Self);\r\n  xdsLieferscheinMehrwertsteuersatz6 := TFloatField.Create(Self);\r\n  xdsLieferscheinBesteuerungKey := TIntegerField.Create(Self);\r\n  xdsLieferscheinVertreterMatchcode := TStringField.Create(Self);\r\n  xdsLieferscheinVerfasser := TStringField.Create(Self);\r\n  xdsLieferscheinLieferadresseID := TIntegerField.Create(Self);\r\n  xdsLieferscheinBelegvariante := TStringField.Create(Self);\r\n  xdsLieferscheinBereitstellungDatum := TDateTimeField.Create(Self);\r\n  xdsLieferscheinBereitstellungErledigt := TBooleanField.Create(Self);\r\n  xdsLieferscheinFahrzeugID := TIntegerField.Create(Self);\r\n  xdsLieferscheinMonatJahr := TDateTimeField.Create(Self);\r\n  xdsLieferscheinLieferanschriftDaten := TStringField.Create(Self);\r\n  xdsLieferscheinGesamtVolumen := TFloatField.Create(Self);\r\n  xdsLieferscheinBelegPKey := TIntegerField.Create(Self);\r\n  xdsLieferscheinDruckParameter := TStringField.Create(Self);\r\n  xdsLieferscheinFakturierungNichtVor := TDateTimeField.Create(Self);\r\n  xdsLieferscheinQuittungSIG := TBlobField.Create(Self);\r\n  xdsLieferscheinKundennummerKundennummer := TStringField.Create(Self);\r\n\r\n  ResultLabel.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  xdsLieferschein.BeforeLoadDFMValues;\r\n  xdsLieferscheinNummerkomplett.BeforeLoadDFMValues;\r\n  xdsLieferscheinReferenzAngebot.BeforeLoadDFMValues;\r\n  xdsLieferscheinReferenzAuftragbest.BeforeLoadDFMValues;\r\n  xdsLieferscheinReferenzRechnung.BeforeLoadDFMValues;\r\n  xdsLieferscheinDatum.BeforeLoadDFMValues;\r\n  xdsLieferscheinJahr.BeforeLoadDFMValues;\r\n  xdsLieferscheinKalenderwoche.BeforeLoadDFMValues;\r\n  xdsLieferscheinNachname.BeforeLoadDFMValues;\r\n  xdsLieferscheinVorname.BeforeLoadDFMValues;\r\n  xdsLieferscheinPostleitzahl.BeforeLoadDFMValues;\r\n  xdsLieferscheinOrt.BeforeLoadDFMValues;\r\n  xdsLieferscheinLaenderkuerzel.BeforeLoadDFMValues;\r\n  xdsLieferscheinLand.BeforeLoadDFMValues;\r\n  xdsLieferscheinBriefanrede1.BeforeLoadDFMValues;\r\n  xdsLieferscheinBriefanrede2.BeforeLoadDFMValues;\r\n  xdsLieferscheinEMail.BeforeLoadDFMValues;\r\n  xdsLieferscheinAdresseBild.BeforeLoadDFMValues;\r\n  xdsLieferscheinLieferanschriftBild.BeforeLoadDFMValues;\r\n  xdsLieferscheinZahlungsbedingung.BeforeLoadDFMValues;\r\n  xdsLieferscheinZahlungsbedingungText.BeforeLoadDFMValues;\r\n  xdsLieferscheinAuftragsbezeichnung.BeforeLoadDFMValues;\r\n  xdsLieferscheinAuftragnummerKunde.BeforeLoadDFMValues;\r\n  xdsLieferscheinBestelldatumKunde.BeforeLoadDFMValues;\r\n  xdsLieferscheinILN.BeforeLoadDFMValues;\r\n  xdsLieferscheinKopftext.BeforeLoadDFMValues;\r\n  xdsLieferscheinSchlussbemerkung.BeforeLoadDFMValues;\r\n  xdsLieferscheinGruss.BeforeLoadDFMValues;\r\n  xdsLieferscheinMehrwertsteuersatz1.BeforeLoadDFMValues;\r\n  xdsLieferscheinMehrwertsteuersatz2.BeforeLoadDFMValues;\r\n  xdsLieferscheinNettosumme01.BeforeLoadDFMValues;\r\n  xdsLieferscheinNettosumme02.BeforeLoadDFMValues;\r\n  xdsLieferscheinNettosumme.BeforeLoadDFMValues;\r\n  xdsLieferscheinMehrwertsteuer01.BeforeLoadDFMValues;\r\n  xdsLieferscheinMehrwertsteuer02.BeforeLoadDFMValues;\r\n  xdsLieferscheinMehrwertsteuer.BeforeLoadDFMValues;\r\n  xdsLieferscheinBruttosumme.BeforeLoadDFMValues;\r\n  xdsLieferscheinVersanddatum.BeforeLoadDFMValues;\r\n  xdsLieferscheinSkontosatz.BeforeLoadDFMValues;\r\n  xdsLieferscheinNettosummeEK.BeforeLoadDFMValues;\r\n  xdsLieferscheinNettoMarge.BeforeLoadDFMValues;\r\n  xdsLieferscheinSchreibzeichen.BeforeLoadDFMValues;\r\n  xdsLieferscheinUnterzeichner.BeforeLoadDFMValues;\r\n  xdsLieferscheinTelefonMA.BeforeLoadDFMValues;\r\n  xdsLieferscheinEmailMA.BeforeLoadDFMValues;\r\n  xdsLieferscheinUSTID.BeforeLoadDFMValues;\r\n  xdsLieferscheinUmsatzsteuerausweis.BeforeLoadDFMValues;\r\n  xdsLieferscheingebucht.BeforeLoadDFMValues;\r\n  xdsLieferscheinLieferdatum.BeforeLoadDFMValues;\r\n  xdsLieferscheinTransportbedingung.BeforeLoadDFMValues;\r\n  xdsLieferscheinMehrwertsteuersatz3.BeforeLoadDFMValues;\r\n  xdsLieferscheinMehrwertsteuer03.BeforeLoadDFMValues;\r\n  xdsLieferscheinNettosumme03.BeforeLoadDFMValues;\r\n  xdsLieferscheinRundungsDifferenz.BeforeLoadDFMValues;\r\n  xdsLieferscheinEmailText.BeforeLoadDFMValues;\r\n  xdsLieferscheinRabattstufe.BeforeLoadDFMValues;\r\n  xdsLieferscheinDebitorennummer.BeforeLoadDFMValues;\r\n  xdsLieferscheinKostentraeger.BeforeLoadDFMValues;\r\n  xdsLieferscheinRabattsatz.BeforeLoadDFMValues;\r\n  xdsLieferscheinObjektReferenz.BeforeLoadDFMValues;\r\n  xdsLieferscheinBank.BeforeLoadDFMValues;\r\n  xdsLieferscheinBankleitzahl.BeforeLoadDFMValues;\r\n  xdsLieferscheinKontonummer.BeforeLoadDFMValues;\r\n  xdsLieferscheinKontoinhaber.BeforeLoadDFMValues;\r\n  xdsLieferscheinTelefaxnummer.BeforeLoadDFMValues;\r\n  xdsLieferscheinDatumNeu.BeforeLoadDFMValues;\r\n  xdsLieferscheinDatumgeaendert.BeforeLoadDFMValues;\r\n  xdsLieferscheinObjektnummer.BeforeLoadDFMValues;\r\n  xdsLieferscheinLiefertermin.BeforeLoadDFMValues;\r\n  xdsLieferscheinEmailversand.BeforeLoadDFMValues;\r\n  xdsLieferscheinTelefonnummer.BeforeLoadDFMValues;\r\n  xdsLieferscheinMobilTelefon.BeforeLoadDFMValues;\r\n  xdsLieferscheinBenutzerNeu.BeforeLoadDFMValues;\r\n  xdsLieferscheinBenutzerGeaendert.BeforeLoadDFMValues;\r\n  xdsLieferscheinBerechnungBrutto.BeforeLoadDFMValues;\r\n  xdsLieferscheinBruttosumme01.BeforeLoadDFMValues;\r\n  xdsLieferscheinBruttosumme02.BeforeLoadDFMValues;\r\n  xdsLieferscheinBruttosumme03.BeforeLoadDFMValues;\r\n  xdsLieferscheinNotiz.BeforeLoadDFMValues;\r\n  xdsLieferscheinMargeProzent.BeforeLoadDFMValues;\r\n  xdsLieferscheinBelegsprache.BeforeLoadDFMValues;\r\n  xdsLieferscheinDuplicate.BeforeLoadDFMValues;\r\n  xdsLieferscheinAnsprechpartner.BeforeLoadDFMValues;\r\n  xdsLieferscheinKundennummerFremd.BeforeLoadDFMValues;\r\n  xdsLieferscheinProtokoll.BeforeLoadDFMValues;\r\n  xdsLieferscheinVollstaendigFakturiert.BeforeLoadDFMValues;\r\n  xdsLieferscheinVerleihauftrag.BeforeLoadDFMValues;\r\n  xdsLieferscheinVerleihVon.BeforeLoadDFMValues;\r\n  xdsLieferscheinVerleihBis.BeforeLoadDFMValues;\r\n  xdsLieferscheinRueckgabeschein.BeforeLoadDFMValues;\r\n  xdsLieferscheinRueckgabeReferenz.BeforeLoadDFMValues;\r\n  xdsLieferscheingesperrt.BeforeLoadDFMValues;\r\n  xdsLieferscheinVerleihvonText.BeforeLoadDFMValues;\r\n  xdsLieferscheinVerleihbisText.BeforeLoadDFMValues;\r\n  xdsLieferscheinNotizExtern.BeforeLoadDFMValues;\r\n  xdsLieferscheinDruckWHG.BeforeLoadDFMValues;\r\n  xdsLieferscheinDruckWHGKurs.BeforeLoadDFMValues;\r\n  xdsLieferscheinProzentsatzZusatzposition.BeforeLoadDFMValues;\r\n  xdsLieferscheinTextZusatzposition.BeforeLoadDFMValues;\r\n  xdsLieferscheinTextzusatzBeschreibung.BeforeLoadDFMValues;\r\n  xdsLieferscheinExport.BeforeLoadDFMValues;\r\n  xdsLieferscheinExportbescheinigung.BeforeLoadDFMValues;\r\n  xdsLieferscheinBestimmungsland.BeforeLoadDFMValues;\r\n  xdsLieferscheinLayoutname.BeforeLoadDFMValues;\r\n  xdsLieferscheinGesamtgewicht.BeforeLoadDFMValues;\r\n  xdsLieferscheinBetragZusatzposition.BeforeLoadDFMValues;\r\n  xdsLieferscheinPaketdienst.BeforeLoadDFMValues;\r\n  xdsLieferscheinPaketnummer.BeforeLoadDFMValues;\r\n  xdsLieferscheinMehrwertsteuersatz4.BeforeLoadDFMValues;\r\n  xdsLieferscheinMehrwertsteuersatz5.BeforeLoadDFMValues;\r\n  xdsLieferscheinMehrwertsteuersatz6.BeforeLoadDFMValues;\r\n  xdsLieferscheinBesteuerungKey.BeforeLoadDFMValues;\r\n  xdsLieferscheinVertreterMatchcode.BeforeLoadDFMValues;\r\n  xdsLieferscheinVerfasser.BeforeLoadDFMValues;\r\n  xdsLieferscheinLieferadresseID.BeforeLoadDFMValues;\r\n  xdsLieferscheinBelegvariante.BeforeLoadDFMValues;\r\n  xdsLieferscheinBereitstellungDatum.BeforeLoadDFMValues;\r\n  xdsLieferscheinBereitstellungErledigt.BeforeLoadDFMValues;\r\n  xdsLieferscheinFahrzeugID.BeforeLoadDFMValues;\r\n  xdsLieferscheinMonatJahr.BeforeLoadDFMValues;\r\n  xdsLieferscheinLieferanschriftDaten.BeforeLoadDFMValues;\r\n  xdsLieferscheinGesamtVolumen.BeforeLoadDFMValues;\r\n  xdsLieferscheinBelegPKey.BeforeLoadDFMValues;\r\n  xdsLieferscheinDruckParameter.BeforeLoadDFMValues;\r\n  xdsLieferscheinFakturierungNichtVor.BeforeLoadDFMValues;\r\n  xdsLieferscheinQuittungSIG.BeforeLoadDFMValues;\r\n  xdsLieferscheinKundennummerKundennummer.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'ListeLieferschein';\r\n    Width := 174;\r\n    Height := 202;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    Font.Charset := DEFAULT_CHARSET;\r\n    Font.Color := clWindowText;\r\n    Font.Height := -11;\r\n    Font.Name := 'Tahoma';\r\n    Font.Style := [];\r\n    ParentFont := False;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    ResultLabel.SetParentComponent(Self);\r\n    ResultLabel.Name := 'ResultLabel';\r\n    ResultLabel.Left := 8;\r\n    ResultLabel.Top := 189;\r\n    ResultLabel.Width := 55;\r\n    ResultLabel.Height := 13;\r\n    ResultLabel.Caption := 'ResultLabel';\r\n    ResultLabel.ElementClassName := 'h6 m-2';\r\n    ResultLabel.ElementFont := efCSS;\r\n    ResultLabel.ElementPosition := epIgnore;\r\n    ResultLabel.HeightStyle := ssAuto;\r\n    ResultLabel.HeightPercent := 100.000000000000000000;\r\n    ResultLabel.WidthStyle := ssAuto;\r\n    ResultLabel.WidthPercent := 100.000000000000000000;\r\n    SetEvent(ResultLabel, Self, 'OnClick', 'ResultLabelClick');\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.HeightPercent := 100.000000000000000000;\r\n    Container1.WidthPercent := 100.000000000000000000;\r\n    Container1.ChildOrder := 1;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.HeightPercent := 100.000000000000000000;\r\n    Container2.WidthPercent := 100.000000000000000000;\r\n    Container2.ChildOrder := 2;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.HeightPercent := 100.000000000000000000;\r\n    Container3.WidthPercent := 100.000000000000000000;\r\n    Container3.ChildOrder := 3;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    xdsLieferschein.SetParentComponent(Self);\r\n    xdsLieferschein.Name := 'xdsLieferschein';\r\n    xdsLieferschein.AfterOpen := xdsLieferscheinAfterOpen;\r\n    xdsLieferschein.EntitySetName := 'Lieferschein';\r\n    xdsLieferschein.Connection := DM2.XDataWebConnection1;\r\n    xdsLieferschein.SubpropsDepth := 1;\r\n    xdsLieferschein.QueryString := '$expand=Kundennummer&$filter=(VollstaendigFakturiert eq 0)&$orderby=Nummerkomplett DESC';\r\n    xdsLieferschein.QueryTop := 100;\r\n    xdsLieferschein.Left := 36;\r\n    xdsLieferschein.Top := 134;\r\n    xdsLieferscheinNummerkomplett.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinNummerkomplett.Name := 'xdsLieferscheinNummerkomplett';\r\n    xdsLieferscheinNummerkomplett.FieldName := 'Nummerkomplett';\r\n    xdsLieferscheinNummerkomplett.Required := True;\r\n    xdsLieferscheinNummerkomplett.Size := 10;\r\n    xdsLieferscheinReferenzAngebot.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinReferenzAngebot.Name := 'xdsLieferscheinReferenzAngebot';\r\n    xdsLieferscheinReferenzAngebot.FieldName := 'ReferenzAngebot';\r\n    xdsLieferscheinReferenzAngebot.Size := 10;\r\n    xdsLieferscheinReferenzAuftragbest.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinReferenzAuftragbest.Name := 'xdsLieferscheinReferenzAuftragbest';\r\n    xdsLieferscheinReferenzAuftragbest.FieldName := 'ReferenzAuftragbest';\r\n    xdsLieferscheinReferenzAuftragbest.Size := 10;\r\n    xdsLieferscheinReferenzRechnung.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinReferenzRechnung.Name := 'xdsLieferscheinReferenzRechnung';\r\n    xdsLieferscheinReferenzRechnung.FieldName := 'ReferenzRechnung';\r\n    xdsLieferscheinReferenzRechnung.Size := 10;\r\n    xdsLieferscheinDatum.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinDatum.Name := 'xdsLieferscheinDatum';\r\n    xdsLieferscheinDatum.FieldName := 'Datum';\r\n    xdsLieferscheinDatum.Required := True;\r\n    xdsLieferscheinJahr.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinJahr.Name := 'xdsLieferscheinJahr';\r\n    xdsLieferscheinJahr.FieldName := 'Jahr';\r\n    xdsLieferscheinKalenderwoche.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinKalenderwoche.Name := 'xdsLieferscheinKalenderwoche';\r\n    xdsLieferscheinKalenderwoche.FieldName := 'Kalenderwoche';\r\n    xdsLieferscheinNachname.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinNachname.Name := 'xdsLieferscheinNachname';\r\n    xdsLieferscheinNachname.FieldName := 'Nachname';\r\n    xdsLieferscheinNachname.Size := 50;\r\n    xdsLieferscheinVorname.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinVorname.Name := 'xdsLieferscheinVorname';\r\n    xdsLieferscheinVorname.FieldName := 'Vorname';\r\n    xdsLieferscheinVorname.Size := 50;\r\n    xdsLieferscheinPostleitzahl.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinPostleitzahl.Name := 'xdsLieferscheinPostleitzahl';\r\n    xdsLieferscheinPostleitzahl.FieldName := 'Postleitzahl';\r\n    xdsLieferscheinPostleitzahl.Size := 10;\r\n    xdsLieferscheinOrt.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinOrt.Name := 'xdsLieferscheinOrt';\r\n    xdsLieferscheinOrt.FieldName := 'Ort';\r\n    xdsLieferscheinOrt.Size := 50;\r\n    xdsLieferscheinLaenderkuerzel.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinLaenderkuerzel.Name := 'xdsLieferscheinLaenderkuerzel';\r\n    xdsLieferscheinLaenderkuerzel.FieldName := 'Laenderkuerzel';\r\n    xdsLieferscheinLaenderkuerzel.Size := 5;\r\n    xdsLieferscheinLand.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinLand.Name := 'xdsLieferscheinLand';\r\n    xdsLieferscheinLand.FieldName := 'Land';\r\n    xdsLieferscheinLand.Size := 50;\r\n    xdsLieferscheinBriefanrede1.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinBriefanrede1.Name := 'xdsLieferscheinBriefanrede1';\r\n    xdsLieferscheinBriefanrede1.FieldName := 'Briefanrede1';\r\n    xdsLieferscheinBriefanrede1.Size := 255;\r\n    xdsLieferscheinBriefanrede2.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinBriefanrede2.Name := 'xdsLieferscheinBriefanrede2';\r\n    xdsLieferscheinBriefanrede2.FieldName := 'Briefanrede2';\r\n    xdsLieferscheinBriefanrede2.Size := 40;\r\n    xdsLieferscheinEMail.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinEMail.Name := 'xdsLieferscheinEMail';\r\n    xdsLieferscheinEMail.FieldName := 'EMail';\r\n    xdsLieferscheinEMail.Size := 50;\r\n    xdsLieferscheinAdresseBild.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinAdresseBild.Name := 'xdsLieferscheinAdresseBild';\r\n    xdsLieferscheinAdresseBild.FieldName := 'AdresseBild';\r\n    xdsLieferscheinAdresseBild.Size := 255;\r\n    xdsLieferscheinLieferanschriftBild.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinLieferanschriftBild.Name := 'xdsLieferscheinLieferanschriftBild';\r\n    xdsLieferscheinLieferanschriftBild.FieldName := 'LieferanschriftBild';\r\n    xdsLieferscheinLieferanschriftBild.Size := 255;\r\n    xdsLieferscheinZahlungsbedingung.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinZahlungsbedingung.Name := 'xdsLieferscheinZahlungsbedingung';\r\n    xdsLieferscheinZahlungsbedingung.FieldName := 'Zahlungsbedingung';\r\n    xdsLieferscheinZahlungsbedingungText.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinZahlungsbedingungText.Name := 'xdsLieferscheinZahlungsbedingungText';\r\n    xdsLieferscheinZahlungsbedingungText.FieldName := 'ZahlungsbedingungText';\r\n    xdsLieferscheinZahlungsbedingungText.Size := 250;\r\n    xdsLieferscheinAuftragsbezeichnung.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinAuftragsbezeichnung.Name := 'xdsLieferscheinAuftragsbezeichnung';\r\n    xdsLieferscheinAuftragsbezeichnung.FieldName := 'Auftragsbezeichnung';\r\n    xdsLieferscheinAuftragsbezeichnung.Size := 255;\r\n    xdsLieferscheinAuftragnummerKunde.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinAuftragnummerKunde.Name := 'xdsLieferscheinAuftragnummerKunde';\r\n    xdsLieferscheinAuftragnummerKunde.FieldName := 'AuftragnummerKunde';\r\n    xdsLieferscheinAuftragnummerKunde.Size := 50;\r\n    xdsLieferscheinBestelldatumKunde.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinBestelldatumKunde.Name := 'xdsLieferscheinBestelldatumKunde';\r\n    xdsLieferscheinBestelldatumKunde.FieldName := 'BestelldatumKunde';\r\n    xdsLieferscheinILN.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinILN.Name := 'xdsLieferscheinILN';\r\n    xdsLieferscheinILN.FieldName := 'ILN';\r\n    xdsLieferscheinILN.Size := 50;\r\n    xdsLieferscheinKopftext.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinKopftext.Name := 'xdsLieferscheinKopftext';\r\n    xdsLieferscheinKopftext.FieldName := 'Kopftext';\r\n    xdsLieferscheinKopftext.Size := 255;\r\n    xdsLieferscheinSchlussbemerkung.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinSchlussbemerkung.Name := 'xdsLieferscheinSchlussbemerkung';\r\n    xdsLieferscheinSchlussbemerkung.FieldName := 'Schlussbemerkung';\r\n    xdsLieferscheinSchlussbemerkung.Size := 255;\r\n    xdsLieferscheinGruss.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinGruss.Name := 'xdsLieferscheinGruss';\r\n    xdsLieferscheinGruss.FieldName := 'Gruss';\r\n    xdsLieferscheinGruss.Size := 255;\r\n    xdsLieferscheinMehrwertsteuersatz1.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinMehrwertsteuersatz1.Name := 'xdsLieferscheinMehrwertsteuersatz1';\r\n    xdsLieferscheinMehrwertsteuersatz1.FieldName := 'Mehrwertsteuersatz1';\r\n    xdsLieferscheinMehrwertsteuersatz2.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinMehrwertsteuersatz2.Name := 'xdsLieferscheinMehrwertsteuersatz2';\r\n    xdsLieferscheinMehrwertsteuersatz2.FieldName := 'Mehrwertsteuersatz2';\r\n    xdsLieferscheinNettosumme01.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinNettosumme01.Name := 'xdsLieferscheinNettosumme01';\r\n    xdsLieferscheinNettosumme01.FieldName := 'Nettosumme01';\r\n    xdsLieferscheinNettosumme02.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinNettosumme02.Name := 'xdsLieferscheinNettosumme02';\r\n    xdsLieferscheinNettosumme02.FieldName := 'Nettosumme02';\r\n    xdsLieferscheinNettosumme.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinNettosumme.Name := 'xdsLieferscheinNettosumme';\r\n    xdsLieferscheinNettosumme.FieldName := 'Nettosumme';\r\n    xdsLieferscheinMehrwertsteuer01.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinMehrwertsteuer01.Name := 'xdsLieferscheinMehrwertsteuer01';\r\n    xdsLieferscheinMehrwertsteuer01.FieldName := 'Mehrwertsteuer01';\r\n    xdsLieferscheinMehrwertsteuer02.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinMehrwertsteuer02.Name := 'xdsLieferscheinMehrwertsteuer02';\r\n    xdsLieferscheinMehrwertsteuer02.FieldName := 'Mehrwertsteuer02';\r\n    xdsLieferscheinMehrwertsteuer.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinMehrwertsteuer.Name := 'xdsLieferscheinMehrwertsteuer';\r\n    xdsLieferscheinMehrwertsteuer.FieldName := 'Mehrwertsteuer';\r\n    xdsLieferscheinBruttosumme.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinBruttosumme.Name := 'xdsLieferscheinBruttosumme';\r\n    xdsLieferscheinBruttosumme.FieldName := 'Bruttosumme';\r\n    xdsLieferscheinVersanddatum.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinVersanddatum.Name := 'xdsLieferscheinVersanddatum';\r\n    xdsLieferscheinVersanddatum.FieldName := 'Versanddatum';\r\n    xdsLieferscheinSkontosatz.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinSkontosatz.Name := 'xdsLieferscheinSkontosatz';\r\n    xdsLieferscheinSkontosatz.FieldName := 'Skontosatz';\r\n    xdsLieferscheinNettosummeEK.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinNettosummeEK.Name := 'xdsLieferscheinNettosummeEK';\r\n    xdsLieferscheinNettosummeEK.FieldName := 'NettosummeEK';\r\n    xdsLieferscheinNettoMarge.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinNettoMarge.Name := 'xdsLieferscheinNettoMarge';\r\n    xdsLieferscheinNettoMarge.FieldName := 'NettoMarge';\r\n    xdsLieferscheinSchreibzeichen.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinSchreibzeichen.Name := 'xdsLieferscheinSchreibzeichen';\r\n    xdsLieferscheinSchreibzeichen.FieldName := 'Schreibzeichen';\r\n    xdsLieferscheinSchreibzeichen.Size := 10;\r\n    xdsLieferscheinUnterzeichner.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinUnterzeichner.Name := 'xdsLieferscheinUnterzeichner';\r\n    xdsLieferscheinUnterzeichner.FieldName := 'Unterzeichner';\r\n    xdsLieferscheinUnterzeichner.Size := 50;\r\n    xdsLieferscheinTelefonMA.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinTelefonMA.Name := 'xdsLieferscheinTelefonMA';\r\n    xdsLieferscheinTelefonMA.FieldName := 'TelefonMA';\r\n    xdsLieferscheinTelefonMA.Size := 30;\r\n    xdsLieferscheinEmailMA.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinEmailMA.Name := 'xdsLieferscheinEmailMA';\r\n    xdsLieferscheinEmailMA.FieldName := 'EmailMA';\r\n    xdsLieferscheinEmailMA.Size := 50;\r\n    xdsLieferscheinUSTID.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinUSTID.Name := 'xdsLieferscheinUSTID';\r\n    xdsLieferscheinUSTID.FieldName := 'USTID';\r\n    xdsLieferscheinUmsatzsteuerausweis.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinUmsatzsteuerausweis.Name := 'xdsLieferscheinUmsatzsteuerausweis';\r\n    xdsLieferscheinUmsatzsteuerausweis.FieldName := 'Umsatzsteuerausweis';\r\n    xdsLieferscheingebucht.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheingebucht.Name := 'xdsLieferscheingebucht';\r\n    xdsLieferscheingebucht.FieldName := 'gebucht';\r\n    xdsLieferscheinLieferdatum.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinLieferdatum.Name := 'xdsLieferscheinLieferdatum';\r\n    xdsLieferscheinLieferdatum.FieldName := 'Lieferdatum';\r\n    xdsLieferscheinTransportbedingung.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinTransportbedingung.Name := 'xdsLieferscheinTransportbedingung';\r\n    xdsLieferscheinTransportbedingung.FieldName := 'Transportbedingung';\r\n    xdsLieferscheinTransportbedingung.Size := 100;\r\n    xdsLieferscheinMehrwertsteuersatz3.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinMehrwertsteuersatz3.Name := 'xdsLieferscheinMehrwertsteuersatz3';\r\n    xdsLieferscheinMehrwertsteuersatz3.FieldName := 'Mehrwertsteuersatz3';\r\n    xdsLieferscheinMehrwertsteuer03.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinMehrwertsteuer03.Name := 'xdsLieferscheinMehrwertsteuer03';\r\n    xdsLieferscheinMehrwertsteuer03.FieldName := 'Mehrwertsteuer03';\r\n    xdsLieferscheinNettosumme03.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinNettosumme03.Name := 'xdsLieferscheinNettosumme03';\r\n    xdsLieferscheinNettosumme03.FieldName := 'Nettosumme03';\r\n    xdsLieferscheinRundungsDifferenz.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinRundungsDifferenz.Name := 'xdsLieferscheinRundungsDifferenz';\r\n    xdsLieferscheinRundungsDifferenz.FieldName := 'RundungsDifferenz';\r\n    xdsLieferscheinEmailText.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinEmailText.Name := 'xdsLieferscheinEmailText';\r\n    xdsLieferscheinEmailText.FieldName := 'EmailText';\r\n    xdsLieferscheinEmailText.Size := 255;\r\n    xdsLieferscheinRabattstufe.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinRabattstufe.Name := 'xdsLieferscheinRabattstufe';\r\n    xdsLieferscheinRabattstufe.FieldName := 'Rabattstufe';\r\n    xdsLieferscheinRabattstufe.Size := 15;\r\n    xdsLieferscheinDebitorennummer.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinDebitorennummer.Name := 'xdsLieferscheinDebitorennummer';\r\n    xdsLieferscheinDebitorennummer.FieldName := 'Debitorennummer';\r\n    xdsLieferscheinDebitorennummer.Size := 13;\r\n    xdsLieferscheinKostentraeger.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinKostentraeger.Name := 'xdsLieferscheinKostentraeger';\r\n    xdsLieferscheinKostentraeger.FieldName := 'Kostentraeger';\r\n    xdsLieferscheinKostentraeger.Size := 13;\r\n    xdsLieferscheinRabattsatz.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinRabattsatz.Name := 'xdsLieferscheinRabattsatz';\r\n    xdsLieferscheinRabattsatz.FieldName := 'Rabattsatz';\r\n    xdsLieferscheinObjektReferenz.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinObjektReferenz.Name := 'xdsLieferscheinObjektReferenz';\r\n    xdsLieferscheinObjektReferenz.FieldName := 'ObjektReferenz';\r\n    xdsLieferscheinObjektReferenz.Size := 13;\r\n    xdsLieferscheinBank.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinBank.Name := 'xdsLieferscheinBank';\r\n    xdsLieferscheinBank.FieldName := 'Bank';\r\n    xdsLieferscheinBank.Size := 50;\r\n    xdsLieferscheinBankleitzahl.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinBankleitzahl.Name := 'xdsLieferscheinBankleitzahl';\r\n    xdsLieferscheinBankleitzahl.FieldName := 'Bankleitzahl';\r\n    xdsLieferscheinKontonummer.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinKontonummer.Name := 'xdsLieferscheinKontonummer';\r\n    xdsLieferscheinKontonummer.FieldName := 'Kontonummer';\r\n    xdsLieferscheinKontonummer.Size := 50;\r\n    xdsLieferscheinKontoinhaber.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinKontoinhaber.Name := 'xdsLieferscheinKontoinhaber';\r\n    xdsLieferscheinKontoinhaber.FieldName := 'Kontoinhaber';\r\n    xdsLieferscheinKontoinhaber.Size := 50;\r\n    xdsLieferscheinTelefaxnummer.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinTelefaxnummer.Name := 'xdsLieferscheinTelefaxnummer';\r\n    xdsLieferscheinTelefaxnummer.FieldName := 'Telefaxnummer';\r\n    xdsLieferscheinTelefaxnummer.Size := 25;\r\n    xdsLieferscheinDatumNeu.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinDatumNeu.Name := 'xdsLieferscheinDatumNeu';\r\n    xdsLieferscheinDatumNeu.FieldName := 'DatumNeu';\r\n    xdsLieferscheinDatumgeaendert.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinDatumgeaendert.Name := 'xdsLieferscheinDatumgeaendert';\r\n    xdsLieferscheinDatumgeaendert.FieldName := 'Datumgeaendert';\r\n    xdsLieferscheinObjektnummer.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinObjektnummer.Name := 'xdsLieferscheinObjektnummer';\r\n    xdsLieferscheinObjektnummer.FieldName := 'Objektnummer';\r\n    xdsLieferscheinObjektnummer.Size := 25;\r\n    xdsLieferscheinLiefertermin.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinLiefertermin.Name := 'xdsLieferscheinLiefertermin';\r\n    xdsLieferscheinLiefertermin.FieldName := 'Liefertermin';\r\n    xdsLieferscheinLiefertermin.Size := 50;\r\n    xdsLieferscheinEmailversand.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinEmailversand.Name := 'xdsLieferscheinEmailversand';\r\n    xdsLieferscheinEmailversand.FieldName := 'Emailversand';\r\n    xdsLieferscheinTelefonnummer.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinTelefonnummer.Name := 'xdsLieferscheinTelefonnummer';\r\n    xdsLieferscheinTelefonnummer.FieldName := 'Telefonnummer';\r\n    xdsLieferscheinTelefonnummer.Size := 35;\r\n    xdsLieferscheinMobilTelefon.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinMobilTelefon.Name := 'xdsLieferscheinMobilTelefon';\r\n    xdsLieferscheinMobilTelefon.FieldName := 'MobilTelefon';\r\n    xdsLieferscheinMobilTelefon.Size := 25;\r\n    xdsLieferscheinBenutzerNeu.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinBenutzerNeu.Name := 'xdsLieferscheinBenutzerNeu';\r\n    xdsLieferscheinBenutzerNeu.FieldName := 'BenutzerNeu';\r\n    xdsLieferscheinBenutzerNeu.Size := 50;\r\n    xdsLieferscheinBenutzerGeaendert.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinBenutzerGeaendert.Name := 'xdsLieferscheinBenutzerGeaendert';\r\n    xdsLieferscheinBenutzerGeaendert.FieldName := 'BenutzerGeaendert';\r\n    xdsLieferscheinBenutzerGeaendert.Size := 50;\r\n    xdsLieferscheinBerechnungBrutto.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinBerechnungBrutto.Name := 'xdsLieferscheinBerechnungBrutto';\r\n    xdsLieferscheinBerechnungBrutto.FieldName := 'BerechnungBrutto';\r\n    xdsLieferscheinBruttosumme01.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinBruttosumme01.Name := 'xdsLieferscheinBruttosumme01';\r\n    xdsLieferscheinBruttosumme01.FieldName := 'Bruttosumme01';\r\n    xdsLieferscheinBruttosumme02.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinBruttosumme02.Name := 'xdsLieferscheinBruttosumme02';\r\n    xdsLieferscheinBruttosumme02.FieldName := 'Bruttosumme02';\r\n    xdsLieferscheinBruttosumme03.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinBruttosumme03.Name := 'xdsLieferscheinBruttosumme03';\r\n    xdsLieferscheinBruttosumme03.FieldName := 'Bruttosumme03';\r\n    xdsLieferscheinNotiz.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinNotiz.Name := 'xdsLieferscheinNotiz';\r\n    xdsLieferscheinNotiz.FieldName := 'Notiz';\r\n    xdsLieferscheinNotiz.Size := 255;\r\n    xdsLieferscheinMargeProzent.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinMargeProzent.Name := 'xdsLieferscheinMargeProzent';\r\n    xdsLieferscheinMargeProzent.FieldName := 'MargeProzent';\r\n    xdsLieferscheinBelegsprache.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinBelegsprache.Name := 'xdsLieferscheinBelegsprache';\r\n    xdsLieferscheinBelegsprache.FieldName := 'Belegsprache';\r\n    xdsLieferscheinBelegsprache.Size := 10;\r\n    xdsLieferscheinDuplicate.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinDuplicate.Name := 'xdsLieferscheinDuplicate';\r\n    xdsLieferscheinDuplicate.FieldName := 'Duplicate';\r\n    xdsLieferscheinAnsprechpartner.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinAnsprechpartner.Name := 'xdsLieferscheinAnsprechpartner';\r\n    xdsLieferscheinAnsprechpartner.FieldName := 'Ansprechpartner';\r\n    xdsLieferscheinAnsprechpartner.Size := 105;\r\n    xdsLieferscheinKundennummerFremd.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinKundennummerFremd.Name := 'xdsLieferscheinKundennummerFremd';\r\n    xdsLieferscheinKundennummerFremd.FieldName := 'KundennummerFremd';\r\n    xdsLieferscheinProtokoll.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinProtokoll.Name := 'xdsLieferscheinProtokoll';\r\n    xdsLieferscheinProtokoll.FieldName := 'Protokoll';\r\n    xdsLieferscheinProtokoll.Size := 255;\r\n    xdsLieferscheinVollstaendigFakturiert.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinVollstaendigFakturiert.Name := 'xdsLieferscheinVollstaendigFakturiert';\r\n    xdsLieferscheinVollstaendigFakturiert.FieldName := 'VollstaendigFakturiert';\r\n    xdsLieferscheinVerleihauftrag.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinVerleihauftrag.Name := 'xdsLieferscheinVerleihauftrag';\r\n    xdsLieferscheinVerleihauftrag.FieldName := 'Verleihauftrag';\r\n    xdsLieferscheinVerleihVon.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinVerleihVon.Name := 'xdsLieferscheinVerleihVon';\r\n    xdsLieferscheinVerleihVon.FieldName := 'VerleihVon';\r\n    xdsLieferscheinVerleihBis.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinVerleihBis.Name := 'xdsLieferscheinVerleihBis';\r\n    xdsLieferscheinVerleihBis.FieldName := 'VerleihBis';\r\n    xdsLieferscheinRueckgabeschein.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinRueckgabeschein.Name := 'xdsLieferscheinRueckgabeschein';\r\n    xdsLieferscheinRueckgabeschein.FieldName := 'Rueckgabeschein';\r\n    xdsLieferscheinRueckgabeReferenz.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinRueckgabeReferenz.Name := 'xdsLieferscheinRueckgabeReferenz';\r\n    xdsLieferscheinRueckgabeReferenz.FieldName := 'RueckgabeReferenz';\r\n    xdsLieferscheinRueckgabeReferenz.Size := 10;\r\n    xdsLieferscheingesperrt.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheingesperrt.Name := 'xdsLieferscheingesperrt';\r\n    xdsLieferscheingesperrt.FieldName := 'gesperrt';\r\n    xdsLieferscheinVerleihvonText.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinVerleihvonText.Name := 'xdsLieferscheinVerleihvonText';\r\n    xdsLieferscheinVerleihvonText.FieldName := 'VerleihvonText';\r\n    xdsLieferscheinVerleihvonText.Size := 50;\r\n    xdsLieferscheinVerleihbisText.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinVerleihbisText.Name := 'xdsLieferscheinVerleihbisText';\r\n    xdsLieferscheinVerleihbisText.FieldName := 'VerleihbisText';\r\n    xdsLieferscheinVerleihbisText.Size := 50;\r\n    xdsLieferscheinNotizExtern.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinNotizExtern.Name := 'xdsLieferscheinNotizExtern';\r\n    xdsLieferscheinNotizExtern.FieldName := 'NotizExtern';\r\n    xdsLieferscheinNotizExtern.Size := 255;\r\n    xdsLieferscheinDruckWHG.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinDruckWHG.Name := 'xdsLieferscheinDruckWHG';\r\n    xdsLieferscheinDruckWHG.FieldName := 'DruckWHG';\r\n    xdsLieferscheinDruckWHG.Size := 3;\r\n    xdsLieferscheinDruckWHGKurs.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinDruckWHGKurs.Name := 'xdsLieferscheinDruckWHGKurs';\r\n    xdsLieferscheinDruckWHGKurs.FieldName := 'DruckWHGKurs';\r\n    xdsLieferscheinProzentsatzZusatzposition.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinProzentsatzZusatzposition.Name := 'xdsLieferscheinProzentsatzZusatzposition';\r\n    xdsLieferscheinProzentsatzZusatzposition.FieldName := 'ProzentsatzZusatzposition';\r\n    xdsLieferscheinTextZusatzposition.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinTextZusatzposition.Name := 'xdsLieferscheinTextZusatzposition';\r\n    xdsLieferscheinTextZusatzposition.FieldName := 'TextZusatzposition';\r\n    xdsLieferscheinTextZusatzposition.Size := 255;\r\n    xdsLieferscheinTextzusatzBeschreibung.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinTextzusatzBeschreibung.Name := 'xdsLieferscheinTextzusatzBeschreibung';\r\n    xdsLieferscheinTextzusatzBeschreibung.FieldName := 'TextzusatzBeschreibung';\r\n    xdsLieferscheinTextzusatzBeschreibung.Size := 50;\r\n    xdsLieferscheinExport.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinExport.Name := 'xdsLieferscheinExport';\r\n    xdsLieferscheinExport.FieldName := 'Export';\r\n    xdsLieferscheinExportbescheinigung.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinExportbescheinigung.Name := 'xdsLieferscheinExportbescheinigung';\r\n    xdsLieferscheinExportbescheinigung.FieldName := 'Exportbescheinigung';\r\n    xdsLieferscheinBestimmungsland.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinBestimmungsland.Name := 'xdsLieferscheinBestimmungsland';\r\n    xdsLieferscheinBestimmungsland.FieldName := 'Bestimmungsland';\r\n    xdsLieferscheinBestimmungsland.Size := 5;\r\n    xdsLieferscheinLayoutname.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinLayoutname.Name := 'xdsLieferscheinLayoutname';\r\n    xdsLieferscheinLayoutname.FieldName := 'Layoutname';\r\n    xdsLieferscheinLayoutname.Size := 50;\r\n    xdsLieferscheinGesamtgewicht.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinGesamtgewicht.Name := 'xdsLieferscheinGesamtgewicht';\r\n    xdsLieferscheinGesamtgewicht.FieldName := 'Gesamtgewicht';\r\n    xdsLieferscheinBetragZusatzposition.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinBetragZusatzposition.Name := 'xdsLieferscheinBetragZusatzposition';\r\n    xdsLieferscheinBetragZusatzposition.FieldName := 'BetragZusatzposition';\r\n    xdsLieferscheinPaketdienst.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinPaketdienst.Name := 'xdsLieferscheinPaketdienst';\r\n    xdsLieferscheinPaketdienst.FieldName := 'Paketdienst';\r\n    xdsLieferscheinPaketdienst.Size := 30;\r\n    xdsLieferscheinPaketnummer.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinPaketnummer.Name := 'xdsLieferscheinPaketnummer';\r\n    xdsLieferscheinPaketnummer.FieldName := 'Paketnummer';\r\n    xdsLieferscheinPaketnummer.Size := 200;\r\n    xdsLieferscheinMehrwertsteuersatz4.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinMehrwertsteuersatz4.Name := 'xdsLieferscheinMehrwertsteuersatz4';\r\n    xdsLieferscheinMehrwertsteuersatz4.FieldName := 'Mehrwertsteuersatz4';\r\n    xdsLieferscheinMehrwertsteuersatz5.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinMehrwertsteuersatz5.Name := 'xdsLieferscheinMehrwertsteuersatz5';\r\n    xdsLieferscheinMehrwertsteuersatz5.FieldName := 'Mehrwertsteuersatz5';\r\n    xdsLieferscheinMehrwertsteuersatz6.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinMehrwertsteuersatz6.Name := 'xdsLieferscheinMehrwertsteuersatz6';\r\n    xdsLieferscheinMehrwertsteuersatz6.FieldName := 'Mehrwertsteuersatz6';\r\n    xdsLieferscheinBesteuerungKey.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinBesteuerungKey.Name := 'xdsLieferscheinBesteuerungKey';\r\n    xdsLieferscheinBesteuerungKey.FieldName := 'BesteuerungKey';\r\n    xdsLieferscheinVertreterMatchcode.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinVertreterMatchcode.Name := 'xdsLieferscheinVertreterMatchcode';\r\n    xdsLieferscheinVertreterMatchcode.FieldName := 'VertreterMatchcode';\r\n    xdsLieferscheinVertreterMatchcode.Size := 50;\r\n    xdsLieferscheinVerfasser.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinVerfasser.Name := 'xdsLieferscheinVerfasser';\r\n    xdsLieferscheinVerfasser.FieldName := 'Verfasser';\r\n    xdsLieferscheinVerfasser.Size := 10;\r\n    xdsLieferscheinLieferadresseID.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinLieferadresseID.Name := 'xdsLieferscheinLieferadresseID';\r\n    xdsLieferscheinLieferadresseID.FieldName := 'LieferadresseID';\r\n    xdsLieferscheinBelegvariante.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinBelegvariante.Name := 'xdsLieferscheinBelegvariante';\r\n    xdsLieferscheinBelegvariante.FieldName := 'Belegvariante';\r\n    xdsLieferscheinBelegvariante.Size := 25;\r\n    xdsLieferscheinBereitstellungDatum.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinBereitstellungDatum.Name := 'xdsLieferscheinBereitstellungDatum';\r\n    xdsLieferscheinBereitstellungDatum.FieldName := 'BereitstellungDatum';\r\n    xdsLieferscheinBereitstellungErledigt.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinBereitstellungErledigt.Name := 'xdsLieferscheinBereitstellungErledigt';\r\n    xdsLieferscheinBereitstellungErledigt.FieldName := 'BereitstellungErledigt';\r\n    xdsLieferscheinFahrzeugID.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinFahrzeugID.Name := 'xdsLieferscheinFahrzeugID';\r\n    xdsLieferscheinFahrzeugID.FieldName := 'FahrzeugID';\r\n    xdsLieferscheinMonatJahr.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinMonatJahr.Name := 'xdsLieferscheinMonatJahr';\r\n    xdsLieferscheinMonatJahr.FieldName := 'MonatJahr';\r\n    xdsLieferscheinLieferanschriftDaten.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinLieferanschriftDaten.Name := 'xdsLieferscheinLieferanschriftDaten';\r\n    xdsLieferscheinLieferanschriftDaten.FieldName := 'LieferanschriftDaten';\r\n    xdsLieferscheinLieferanschriftDaten.Size := 255;\r\n    xdsLieferscheinGesamtVolumen.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinGesamtVolumen.Name := 'xdsLieferscheinGesamtVolumen';\r\n    xdsLieferscheinGesamtVolumen.FieldName := 'GesamtVolumen';\r\n    xdsLieferscheinBelegPKey.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinBelegPKey.Name := 'xdsLieferscheinBelegPKey';\r\n    xdsLieferscheinBelegPKey.FieldName := 'BelegPKey';\r\n    xdsLieferscheinDruckParameter.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinDruckParameter.Name := 'xdsLieferscheinDruckParameter';\r\n    xdsLieferscheinDruckParameter.FieldName := 'DruckParameter';\r\n    xdsLieferscheinDruckParameter.Size := 255;\r\n    xdsLieferscheinFakturierungNichtVor.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinFakturierungNichtVor.Name := 'xdsLieferscheinFakturierungNichtVor';\r\n    xdsLieferscheinFakturierungNichtVor.FieldName := 'FakturierungNichtVor';\r\n    xdsLieferscheinQuittungSIG.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinQuittungSIG.Name := 'xdsLieferscheinQuittungSIG';\r\n    xdsLieferscheinQuittungSIG.FieldName := 'QuittungSIG';\r\n    xdsLieferscheinKundennummerKundennummer.SetParentComponent(xdsLieferschein);\r\n    xdsLieferscheinKundennummerKundennummer.Name := 'xdsLieferscheinKundennummerKundennummer';\r\n    xdsLieferscheinKundennummerKundennummer.FieldName := 'Kundennummer.Kundennummer';\r\n    xdsLieferscheinKundennummerKundennummer.Size := 13;\r\n  finally\r\n    ResultLabel.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    xdsLieferschein.AfterLoadDFMValues;\r\n    xdsLieferscheinNummerkomplett.AfterLoadDFMValues;\r\n    xdsLieferscheinReferenzAngebot.AfterLoadDFMValues;\r\n    xdsLieferscheinReferenzAuftragbest.AfterLoadDFMValues;\r\n    xdsLieferscheinReferenzRechnung.AfterLoadDFMValues;\r\n    xdsLieferscheinDatum.AfterLoadDFMValues;\r\n    xdsLieferscheinJahr.AfterLoadDFMValues;\r\n    xdsLieferscheinKalenderwoche.AfterLoadDFMValues;\r\n    xdsLieferscheinNachname.AfterLoadDFMValues;\r\n    xdsLieferscheinVorname.AfterLoadDFMValues;\r\n    xdsLieferscheinPostleitzahl.AfterLoadDFMValues;\r\n    xdsLieferscheinOrt.AfterLoadDFMValues;\r\n    xdsLieferscheinLaenderkuerzel.AfterLoadDFMValues;\r\n    xdsLieferscheinLand.AfterLoadDFMValues;\r\n    xdsLieferscheinBriefanrede1.AfterLoadDFMValues;\r\n    xdsLieferscheinBriefanrede2.AfterLoadDFMValues;\r\n    xdsLieferscheinEMail.AfterLoadDFMValues;\r\n    xdsLieferscheinAdresseBild.AfterLoadDFMValues;\r\n    xdsLieferscheinLieferanschriftBild.AfterLoadDFMValues;\r\n    xdsLieferscheinZahlungsbedingung.AfterLoadDFMValues;\r\n    xdsLieferscheinZahlungsbedingungText.AfterLoadDFMValues;\r\n    xdsLieferscheinAuftragsbezeichnung.AfterLoadDFMValues;\r\n    xdsLieferscheinAuftragnummerKunde.AfterLoadDFMValues;\r\n    xdsLieferscheinBestelldatumKunde.AfterLoadDFMValues;\r\n    xdsLieferscheinILN.AfterLoadDFMValues;\r\n    xdsLieferscheinKopftext.AfterLoadDFMValues;\r\n    xdsLieferscheinSchlussbemerkung.AfterLoadDFMValues;\r\n    xdsLieferscheinGruss.AfterLoadDFMValues;\r\n    xdsLieferscheinMehrwertsteuersatz1.AfterLoadDFMValues;\r\n    xdsLieferscheinMehrwertsteuersatz2.AfterLoadDFMValues;\r\n    xdsLieferscheinNettosumme01.AfterLoadDFMValues;\r\n    xdsLieferscheinNettosumme02.AfterLoadDFMValues;\r\n    xdsLieferscheinNettosumme.AfterLoadDFMValues;\r\n    xdsLieferscheinMehrwertsteuer01.AfterLoadDFMValues;\r\n    xdsLieferscheinMehrwertsteuer02.AfterLoadDFMValues;\r\n    xdsLieferscheinMehrwertsteuer.AfterLoadDFMValues;\r\n    xdsLieferscheinBruttosumme.AfterLoadDFMValues;\r\n    xdsLieferscheinVersanddatum.AfterLoadDFMValues;\r\n    xdsLieferscheinSkontosatz.AfterLoadDFMValues;\r\n    xdsLieferscheinNettosummeEK.AfterLoadDFMValues;\r\n    xdsLieferscheinNettoMarge.AfterLoadDFMValues;\r\n    xdsLieferscheinSchreibzeichen.AfterLoadDFMValues;\r\n    xdsLieferscheinUnterzeichner.AfterLoadDFMValues;\r\n    xdsLieferscheinTelefonMA.AfterLoadDFMValues;\r\n    xdsLieferscheinEmailMA.AfterLoadDFMValues;\r\n    xdsLieferscheinUSTID.AfterLoadDFMValues;\r\n    xdsLieferscheinUmsatzsteuerausweis.AfterLoadDFMValues;\r\n    xdsLieferscheingebucht.AfterLoadDFMValues;\r\n    xdsLieferscheinLieferdatum.AfterLoadDFMValues;\r\n    xdsLieferscheinTransportbedingung.AfterLoadDFMValues;\r\n    xdsLieferscheinMehrwertsteuersatz3.AfterLoadDFMValues;\r\n    xdsLieferscheinMehrwertsteuer03.AfterLoadDFMValues;\r\n    xdsLieferscheinNettosumme03.AfterLoadDFMValues;\r\n    xdsLieferscheinRundungsDifferenz.AfterLoadDFMValues;\r\n    xdsLieferscheinEmailText.AfterLoadDFMValues;\r\n    xdsLieferscheinRabattstufe.AfterLoadDFMValues;\r\n    xdsLieferscheinDebitorennummer.AfterLoadDFMValues;\r\n    xdsLieferscheinKostentraeger.AfterLoadDFMValues;\r\n    xdsLieferscheinRabattsatz.AfterLoadDFMValues;\r\n    xdsLieferscheinObjektReferenz.AfterLoadDFMValues;\r\n    xdsLieferscheinBank.AfterLoadDFMValues;\r\n    xdsLieferscheinBankleitzahl.AfterLoadDFMValues;\r\n    xdsLieferscheinKontonummer.AfterLoadDFMValues;\r\n    xdsLieferscheinKontoinhaber.AfterLoadDFMValues;\r\n    xdsLieferscheinTelefaxnummer.AfterLoadDFMValues;\r\n    xdsLieferscheinDatumNeu.AfterLoadDFMValues;\r\n    xdsLieferscheinDatumgeaendert.AfterLoadDFMValues;\r\n    xdsLieferscheinObjektnummer.AfterLoadDFMValues;\r\n    xdsLieferscheinLiefertermin.AfterLoadDFMValues;\r\n    xdsLieferscheinEmailversand.AfterLoadDFMValues;\r\n    xdsLieferscheinTelefonnummer.AfterLoadDFMValues;\r\n    xdsLieferscheinMobilTelefon.AfterLoadDFMValues;\r\n    xdsLieferscheinBenutzerNeu.AfterLoadDFMValues;\r\n    xdsLieferscheinBenutzerGeaendert.AfterLoadDFMValues;\r\n    xdsLieferscheinBerechnungBrutto.AfterLoadDFMValues;\r\n    xdsLieferscheinBruttosumme01.AfterLoadDFMValues;\r\n    xdsLieferscheinBruttosumme02.AfterLoadDFMValues;\r\n    xdsLieferscheinBruttosumme03.AfterLoadDFMValues;\r\n    xdsLieferscheinNotiz.AfterLoadDFMValues;\r\n    xdsLieferscheinMargeProzent.AfterLoadDFMValues;\r\n    xdsLieferscheinBelegsprache.AfterLoadDFMValues;\r\n    xdsLieferscheinDuplicate.AfterLoadDFMValues;\r\n    xdsLieferscheinAnsprechpartner.AfterLoadDFMValues;\r\n    xdsLieferscheinKundennummerFremd.AfterLoadDFMValues;\r\n    xdsLieferscheinProtokoll.AfterLoadDFMValues;\r\n    xdsLieferscheinVollstaendigFakturiert.AfterLoadDFMValues;\r\n    xdsLieferscheinVerleihauftrag.AfterLoadDFMValues;\r\n    xdsLieferscheinVerleihVon.AfterLoadDFMValues;\r\n    xdsLieferscheinVerleihBis.AfterLoadDFMValues;\r\n    xdsLieferscheinRueckgabeschein.AfterLoadDFMValues;\r\n    xdsLieferscheinRueckgabeReferenz.AfterLoadDFMValues;\r\n    xdsLieferscheingesperrt.AfterLoadDFMValues;\r\n    xdsLieferscheinVerleihvonText.AfterLoadDFMValues;\r\n    xdsLieferscheinVerleihbisText.AfterLoadDFMValues;\r\n    xdsLieferscheinNotizExtern.AfterLoadDFMValues;\r\n    xdsLieferscheinDruckWHG.AfterLoadDFMValues;\r\n    xdsLieferscheinDruckWHGKurs.AfterLoadDFMValues;\r\n    xdsLieferscheinProzentsatzZusatzposition.AfterLoadDFMValues;\r\n    xdsLieferscheinTextZusatzposition.AfterLoadDFMValues;\r\n    xdsLieferscheinTextzusatzBeschreibung.AfterLoadDFMValues;\r\n    xdsLieferscheinExport.AfterLoadDFMValues;\r\n    xdsLieferscheinExportbescheinigung.AfterLoadDFMValues;\r\n    xdsLieferscheinBestimmungsland.AfterLoadDFMValues;\r\n    xdsLieferscheinLayoutname.AfterLoadDFMValues;\r\n    xdsLieferscheinGesamtgewicht.AfterLoadDFMValues;\r\n    xdsLieferscheinBetragZusatzposition.AfterLoadDFMValues;\r\n    xdsLieferscheinPaketdienst.AfterLoadDFMValues;\r\n    xdsLieferscheinPaketnummer.AfterLoadDFMValues;\r\n    xdsLieferscheinMehrwertsteuersatz4.AfterLoadDFMValues;\r\n    xdsLieferscheinMehrwertsteuersatz5.AfterLoadDFMValues;\r\n    xdsLieferscheinMehrwertsteuersatz6.AfterLoadDFMValues;\r\n    xdsLieferscheinBesteuerungKey.AfterLoadDFMValues;\r\n    xdsLieferscheinVertreterMatchcode.AfterLoadDFMValues;\r\n    xdsLieferscheinVerfasser.AfterLoadDFMValues;\r\n    xdsLieferscheinLieferadresseID.AfterLoadDFMValues;\r\n    xdsLieferscheinBelegvariante.AfterLoadDFMValues;\r\n    xdsLieferscheinBereitstellungDatum.AfterLoadDFMValues;\r\n    xdsLieferscheinBereitstellungErledigt.AfterLoadDFMValues;\r\n    xdsLieferscheinFahrzeugID.AfterLoadDFMValues;\r\n    xdsLieferscheinMonatJahr.AfterLoadDFMValues;\r\n    xdsLieferscheinLieferanschriftDaten.AfterLoadDFMValues;\r\n    xdsLieferscheinGesamtVolumen.AfterLoadDFMValues;\r\n    xdsLieferscheinBelegPKey.AfterLoadDFMValues;\r\n    xdsLieferscheinDruckParameter.AfterLoadDFMValues;\r\n    xdsLieferscheinFakturierungNichtVor.AfterLoadDFMValues;\r\n    xdsLieferscheinQuittungSIG.AfterLoadDFMValues;\r\n    xdsLieferscheinKundennummerKundennummer.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.","unit unit_Bestellvormerkung;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Vcl.Controls, WEBLib.ExtCtrls, Vcl.StdCtrls,\r\n  WEBLib.StdCtrls, Data.DB, XData.Web.JsonDataset, XData.Web.Dataset, DB,\r\n  WEBLib.Grids, XData.Web.Client, strutils;\r\n\r\ntype\r\n  TBestellvormerkung = class(TForm)\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    Container3: THTMLContainer;\r\n    btnzurueck: TButton;\r\n    ResultLabel: TLabel;\r\n    xdsBestellvormerkung: TXDataWebDataSet;\r\n    xdsBestellvormerkungID: TStringField;\r\n    xdsBestellvormerkungArtikelnummer: TStringField;\r\n    xdsBestellvormerkungArtikelueberschrift: TStringField;\r\n    xdsBestellvormerkungMenge: TFloatField;\r\n    xdsBestellvormerkungLieferantennummer: TStringField;\r\n    xdsBestellvormerkungerstellt: TDateTimeField;\r\n    xdsBestellvormerkungBelegnummer: TStringField;\r\n    xdsBestellvormerkungLieferantenname: TStringField;\r\n    TC: TTableControl;\r\n    container4: THTMLContainer;\r\n    Container5: THTMLContainer;\r\n    edtsuchbegriff: TEdit;\r\n    btnSuche: TButton;\r\n    btnScan: TButton;\r\n    xdsArtikel: TXDataWebDataSet;\r\n    TCArtikel: TTableControl;\r\n    xdsArtikelHersteller: TXDataWebEntityField;\r\n    xdsArtikelHerstellerHersteller: TStringField;\r\n    xdsArtikelHerstellerHerstellerID: TStringField;\r\n    xdsArtikelHerstellerHerstellerURL: TStringField;\r\n    xdsArtikelArtderMenge: TXDataWebEntityField;\r\n    xdsArtikelArtderMengeArtderMenge: TStringField;\r\n    xdsArtikelArtderMengeISO3: TStringField;\r\n    xdsArtikelArtderMengeMengenauswahl: TBooleanField;\r\n    xdsArtikelArtderMengeVGPauswahl: TBooleanField;\r\n    xdsArtikelArtderMengeUVPauswahl: TBooleanField;\r\n    xdsArtikelArtderMengeVKPDivisor: TFloatField;\r\n    xdsArtikelPfandArt: TXDataWebEntityField;\r\n    xdsArtikelPfandArtPfandArt: TStringField;\r\n    xdsArtikelPfandArtPfandWert: TFloatField;\r\n    xdsArtikelPfandArtPfandwertEK: TFloatField;\r\n    xdsArtikelWarengruppe: TXDataWebEntityField;\r\n    xdsArtikelWarengruppeWarengruppe: TStringField;\r\n    xdsArtikelWarengruppeWGNR: TIntegerField;\r\n    xdsArtikelWarenuntergruppe: TXDataWebEntityField;\r\n    xdsArtikelWarenuntergruppeWarenuntergruppe: TStringField;\r\n    xdsArtikelWarenuntergruppeWarengruppe: TStringField;\r\n    xdsArtikelWarenuntergruppeWUGNR: TIntegerField;\r\n    xdsArtikelWarenuntergruppeWGNR: TIntegerField;\r\n    xdsArtikelArtikelnummer: TStringField;\r\n    xdsArtikelArtikelueberschrift: TStringField;\r\n    xdsArtikelArtikelbeschreibung: TStringField;\r\n    xdsArtikelVerkaufspreis: TFloatField;\r\n    xdsArtikelMindestbestand: TFloatField;\r\n    xdsArtikelPreisliste: TStringField;\r\n    xdsArtikelGewicht: TFloatField;\r\n    xdsArtikelLaenge: TFloatField;\r\n    xdsArtikelBreite: TFloatField;\r\n    xdsArtikelHoehe: TFloatField;\r\n    xdsArtikelArtikelZusatz: TStringField;\r\n    xdsArtikelLagerort: TStringField;\r\n    xdsArtikelBuchungskonto: TIntegerField;\r\n    xdsArtikelEingangMenge: TFloatField;\r\n    xdsArtikelEingangEndpreis: TFloatField;\r\n    xdsArtikelAusgangMenge: TFloatField;\r\n    xdsArtikelAusgangEndpreisEK: TFloatField;\r\n    xdsArtikelAusgangEndpreisVK: TFloatField;\r\n    xdsArtikelBestand: TFloatField;\r\n    xdsArtikelBestandswert: TFloatField;\r\n    xdsArtikelMarge: TFloatField;\r\n    xdsArtikelMargeProzent: TFloatField;\r\n    xdsArtikelArtikelnummer2: TStringField;\r\n    xdsArtikelArtikelmatchcode: TStringField;\r\n    xdsArtikelRabattpreis1: TFloatField;\r\n    xdsArtikelRabattpreis2: TFloatField;\r\n    xdsArtikelRabattpreis3: TFloatField;\r\n    xdsArtikelRabattpreis4: TFloatField;\r\n    xdsArtikelRabattpreis5: TFloatField;\r\n    xdsArtikelArtikelnichtmehrgueltig: TBooleanField;\r\n    xdsArtikelEinkaufspreis: TFloatField;\r\n    xdsArtikelAufschlag: TFloatField;\r\n    xdsArtikelWarenbestand: TBooleanField;\r\n    xdsArtikelTextfrei10: TStringField;\r\n    xdsArtikelTextfrei20: TStringField;\r\n    xdsArtikelArtikelbeschreibungRTF: TStringField;\r\n    xdsArtikelArtikeldatei1: TStringField;\r\n    xdsArtikelArtikeldatei2: TStringField;\r\n    xdsArtikelArtikeldatei3: TStringField;\r\n    xdsArtikelArtikeldatei4: TStringField;\r\n    xdsArtikelArtikeldatei5: TStringField;\r\n    xdsArtikelEinkaufspreisVom: TDateTimeField;\r\n    xdsArtikelEAN: TStringField;\r\n    xdsArtikelVGPFaktor: TFloatField;\r\n    xdsArtikelVGPMengenart: TStringField;\r\n    xdsArtikelVerleihpreis: TFloatField;\r\n    xdsArtikelZusatzPreis: TFloatField;\r\n    xdsArtikelVerpackungsart: TStringField;\r\n    xdsArtikelVerpackungsMenge: TFloatField;\r\n    xdsArtikelQuellartikel: TStringField;\r\n    xdsArtikelrabattierfaehig: TBooleanField;\r\n    xdsArtikelAngebotAlternativeAN: TStringField;\r\n    xdsArtikelPreisanteilNetto: TFloatField;\r\n    xdsArtikelFarbe: TIntegerField;\r\n    xdsArtikelAEinkauf: TBooleanField;\r\n    xdsArtikelAVerkauf: TBooleanField;\r\n    xdsArtikelArtikelnummerLieferant: TStringField;\r\n    xdsArtikelLieferantnummer: TStringField;\r\n    xdsArtikelVerkaufspreisBrutto: TFloatField;\r\n    xdsArtikelArtikelSet: TBooleanField;\r\n    xdsArtikelProvisionssatz: TFloatField;\r\n    xdsArtikelWarentarifnummer: TStringField;\r\n    xdsArtikelHandelsartikel: TBooleanField;\r\n    xdsArtikelUrsprungsland: TStringField;\r\n    xdsArtikelKategorie: TStringField;\r\n    xdsArtikelStandardRabattsatzEK: TFloatField;\r\n    xdsArtikelStandardRabattsatzVK: TFloatField;\r\n    xdsArtikelRabattpreiseManuell: TBooleanField;\r\n    xdsArtikelMengeBestellt: TFloatField;\r\n    xdsArtikelMengeBeauftragt: TFloatField;\r\n    xdsArtikelBestandDisponiert: TFloatField;\r\n    xdsArtikelMengeAngeboten: TFloatField;\r\n    xdsArtikelBestandDispInclAngebot: TFloatField;\r\n    xdsArtikelMWStKey: TIntegerField;\r\n    xdsArtikelShopAmazon: TBooleanField;\r\n    xdsArtikelShopQuelle: TBooleanField;\r\n    xdsArtikelGeraet: TBooleanField;\r\n    xdsArtikelArtgewicht: TFloatField;\r\n    xdsArtikelVolumen: TFloatField;\r\n    xdsArtikelPacklisteNichtAnzeigen: TBooleanField;\r\n    xdsArtikelKeineAufschlagskalkulation: TBooleanField;\r\n    xdsArtikelKorrekturMenge: TFloatField;\r\n    xdsArtikelKorrekturWert: TFloatField;\r\n    xdsArtikelNachfolgeartikel: TStringField;\r\n    xdsArtikelMindestbestellmenge: TFloatField;\r\n    xdsArtikelSchnittEK: TFloatField;\r\n    xdsArtikelVerkaufspreisVom: TDateTimeField;\r\n    xdsArtikelPruefungChargeSNR: TIntegerField;\r\n    xdsArtikelArtikelbeschreibungHTML: TStringField;\r\n    xdsArtikelProduktKurzbeschreibungHTML: TStringField;\r\n    xdsArtikelStatusFuerShop: TStringField;\r\n    xdsArtikelAmpelFuerShop: TStringField;\r\n    xdsArtikelEXP_Anzahl: TFloatField;\r\n    xdsArtikelEXP_Inhalt: TFloatField;\r\n    xdsArtikelEXP_Faktor: TFloatField;\r\n    xdsArtikelFach: TStringField;\r\n    xdsArtikelExportKasse: TIntegerField;\r\n    xdsArtikelWKNR: TIntegerField;\r\n    xdsArtikelArtikelAttribute: TStringField;\r\n    xdsArtikelErstelltAm: TDateTimeField;\r\n    xdsArtikelVarianteVonAN: TStringField;\r\n    xdsArtikelGurtmassWerte: TStringField;\r\n    xdsArtikelGurtmass: TFloatField;\r\n    xdsArtikelAltersgrenze: TIntegerField;\r\n    xdsArtikelMWStKeyImHaus: TIntegerField;\r\n    xdsArtikelKasseBewegung: TFloatField;\r\n    xdsArtikelKasseBewegungEK: TFloatField;\r\n    xdsArtikelKasseBewegungVK: TFloatField;\r\n    xdsArtikelProduktionBewegung: TFloatField;\r\n    xdsArtikelProduktionBewegungEK: TFloatField;\r\n    xdsArtikelProduktionBewegungVK: TFloatField;\r\n    xdsArtikelWaWiAB: TIntegerField;\r\n    xdsArtikelGeaendertAm: TDateTimeField;\r\n    xdsArtikelGefahrgutKennzeichen: TStringField;\r\n    xdsArtikelVerpackG: TBooleanField;\r\n    xdsArtikelUPE: TFloatField;\r\n    xdsArtikelArtikelbeschreibungEinkauf: TStringField;\r\n    xdsArtikelHerstellerArtikelnummer: TStringField;\r\n    xdsArtikelNatura: TStringField;\r\n    xdsArtikelArbeitszeit: TBooleanField;\r\n    xdsArtikelPKey: TIntegerField;\r\n    xdsArtikelVersandklasse: TStringField;\r\n    edtBMenge: TEdit;\r\n    btnSpeichern: TButton;\r\n    WClient: TXDataWebClient;\r\n    btnEtikettendruck: TButton;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure xdsBestellvormerkungAfterOpen(DataSet: TDataSet);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n    procedure btnSucheClick(Sender: TObject);\r\n    procedure xdsArtikelAfterOpen(DataSet: TDataSet);\r\n    procedure edtsuchbegriffKeyPress(Sender: TObject; var Key: Char);\r\n    procedure btnScanClick(Sender: TObject);\r\n    procedure edtBMengeKeyPress(Sender: TObject; var Key: Char);\r\n    procedure btnSpeichernClick(Sender: TObject);\r\n    procedure btnEtikettendruckClick(Sender: TObject);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  Bestellvormerkung: TBestellvormerkung;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_BarcodeScan;\r\n{$R *.dfm}\r\n\r\nprocedure TBestellvormerkung.btnEtikettendruckClick(Sender: TObject);\r\n  procedure OnResponse(Response:TXDataClientResponse);\r\n  var\r\n  ergebnis:string;\r\n  begin\r\n    ergebnis:=string(TJSObject(response.Result)['value']);\r\n    if ergebnis='WRONG' then\r\n    begin\r\n      showmessage('Druckvormerkung für Etiketten konnte leider nicht durchgeführt werden');\r\n    end\r\n    else\r\n    begin\r\n      if ergebnis='OK' then\r\n      begin\r\n        showmessage('Etikettendruck wurde vorgemerkt');\r\n      end\r\n      else\r\n      begin\r\n        if ergebnis='Bereits vorhanden' then showmessage('Dieser Eintrag war bereits vorhanden');\r\n\r\n      end;\r\n    end;\r\n  end;\r\nbegin\r\n  if LizenzOK then\r\n  begin\r\n    WClient.RawInvoke('IServerService.ArtikelEtikettenDruck',[xdsartikelartikelnummer.asstring],@OnResponse);\r\n  end\r\n  else\r\n  begin\r\n    showmessage('Für das Speichern von Daten sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n  end;\r\n\r\n\r\nend;\r\n\r\nprocedure TBestellvormerkung.btnScanClick(Sender: TObject);\r\nvar\r\n  LFrm:TBarcodeScan;\r\n  procedure AfterCreate(AForm:TObject);\r\n  var\r\n    LForm:TBarcodeScan;\r\n    begin\r\n      LForm:=(AForm as TBarcodeScan);\r\n      //lform.mykundehint:=xdsEinzelkontaktKundennummer.AsString+' '+xdsEinzelkontaktNachname.AsString+', '+xdsEinzelkontaktVorname.asstring;\r\n      //lForm.edttoaddress.Text:= xdsEinzelkontaktPostleitzahl.AsString+' '+xdsEinzelkontaktort.AsString+', '+xdsEinzelkontaktStrasse.AsString;\r\n\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      edtsuchbegriff.text:=trim(lfrm.ScanErgebnis);\r\n      btnsucheclick(sender);\r\n    end;\r\n  begin\r\n    if LizenzOK then\r\n    begin\r\n      LFrm:=TBarcodeScan.CreateNew(@AfterCreate);\r\n      LFrm.ShowModal(@AfterShowmodal);\r\n    end\r\n    else\r\n    begin\r\n      showmessage('Für diese Funktion sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n    end;\r\n\r\nend;\r\n\r\nprocedure TBestellvormerkung.btnSpeichernClick(Sender: TObject);\r\n  procedure OnResponse(Response:TXDataClientResponse);\r\n  var\r\n  ergebnis:string;\r\n  begin\r\n    ergebnis:=string(TJSObject(response.Result)['value']);\r\n    if ergebnis='WRONG' then\r\n    begin\r\n      showmessage('Bestellvormerkung konnte leider nicht durchgeführt werden');\r\n    end\r\n    else\r\n    begin\r\n      ResultLabel.HTML:='Bestellvormerkung erfolgreich '+xdsArtikelArtikelnummer.AsString+' | '+edtBMenge.text;\r\n      edtBMenge.Text:='';\r\n      edtsuchbegriff.Text:='';\r\n      edtsuchbegriff.SetFocus;\r\n      xdsartikel.Close;\r\n      tcartikel.Visible:=false;\r\n      xdsBestellvormerkung.Close;\r\n      xdsbestellvormerkung.Load;\r\n    end;\r\n  end;\r\n  var\r\n  rawArtikelnummer:string;\r\n  rawArtikelueberschrift:string;\r\nbegin\r\n  if edtBMenge.Text='' then\r\n  begin\r\n    showmessage('Bestellmenge muß angegeben werden');\r\n  end\r\n  else\r\n  begin\r\n    if LizenzOK then\r\n    begin\r\n      rawArtikelnummer:= xdsartikelartikelnummer.asstring;\r\n      rawArtikelueberschrift:= xdsartikelartikelueberschrift.asstring;\r\n      WClient.RawInvoke('IServerService.ArtikelBestellvormerkung',[rawArtikelnummer,edtBMenge.text,rawArtikelueberschrift,BenutzerLoginName],@OnResponse);\r\n    end\r\n    else\r\n    begin\r\n      showmessage('Für das Speichern von Daten sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n    end;\r\n\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TBestellvormerkung.btnSucheClick(Sender: TObject);\r\nvar\r\n  mysuchbegriff:string;\r\nbegin\r\n  mysuchbegriff:=trim(edtsuchbegriff.Text);\r\n\r\n  xdsartikel.Close;\r\n  if length(mysuchbegriff)>0 then\r\n  begin\r\n    xdsartikel.QueryString:='$expand=ArtderMenge&$filter=(Artikelnummer eq '+quotedstr(mysuchbegriff)+') OR (EAN eq '+quotedstr(mysuchbegriff)+')';\r\n    xdsartikel.Load;\r\n  end;\r\nend;\r\n\r\nprocedure TBestellvormerkung.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  xdsBestellvormerkung.Close;\r\n  self.Close;\r\nend;\r\n\r\nprocedure TBestellvormerkung.edtBMengeKeyPress(Sender: TObject; var Key: Char);\r\nbegin\r\n  if key=#13 then btnSpeichernClick(sender);\r\nend;\r\n\r\nprocedure TBestellvormerkung.edtsuchbegriffKeyPress(Sender: TObject;\r\n  var Key: Char);\r\nbegin\r\n  if key=#13 then btnSucheClick(sender);\r\nend;\r\n\r\nprocedure TBestellvormerkung.WebFormShow(Sender: TObject);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Bestellvormerkung</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  btnscan.ParentElement:=myelement;\r\n  resultlabel.ParentElement:=myelement;\r\n  resultlabel.HTML:='..';\r\n  edtBMenge.Visible:=false;\r\n  btnSpeichern.Visible:=false;\r\n  btnEtikettendruck.Visible:=false;\r\n  container2.ParentElement:=myelement;\r\n\r\n  container3.parentelement:=myelement;\r\n  container4.parentelement:=myelement;\r\n  container5.parentelement:=myelement;\r\n\r\n\r\n  myelement:=container3.ElementHandle;\r\n  edtsuchbegriff.ParentElement:=myelement;\r\n  btnsuche.ParentElement:=myelement;\r\n\r\n  myelement:=container4.ElementHandle;\r\n  tcartikel.ParentElement:=myelement;\r\n  tcartikel.Visible:=false;\r\n  myelement:=container5.ElementHandle;\r\n  tc.ParentElement:=myelement;\r\n  edtsuchbegriff.SetFocus;\r\n  xdsBestellvormerkung.Load;\r\nend;\r\n\r\nprocedure TBestellvormerkung.xdsArtikelAfterOpen(DataSet: TDataSet);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  if xdsartikel.RecordCount=1 then\r\n  begin\r\n  tcartikel.Visible:=true;\r\n  tcartikel.ColCount:=2;\r\n  tcartikel.RowCount:=15;\r\n  tcartikel.Cells[0,0]:='Bestellvormerkung';\r\n  tcartikel.Cells[0,1]:='Artikelnummer';\r\n  tcartikel.Cells[0,2]:='EAN/ISIN';\r\n  tcartikel.Cells[0,3]:='Artikelüberschrift';\r\n  tcartikel.Cells[0,4]:='Artikelbeschreibung';\r\n  tcartikel.Cells[0,5]:='Art der Menge';\r\n  tcartikel.Cells[0,6]:='Verkaufspreis';\r\n  tcartikel.Cells[0,7]:='Verkaufspreis Brutto';\r\n  tcartikel.Cells[0,8]:='Verpackungsart';\r\n  tcartikel.Cells[0,9]:='Verpackungsmenge';\r\n  tcartikel.Cells[0,10]:='Bestand';\r\n  tcartikel.Cells[0,11]:='Bestand disponiert';\r\n  tcartikel.Cells[0,12]:='Bestellmenge vormerken';\r\n  myelement:=tcartikel.CellElements[0,13];\r\n  btnEtikettendruck.ParentElement:=myelement;\r\n  btnEtikettendruck.Visible:=true;\r\n  tcartikel.Cells[1,1]:=xdsartikel.fieldbyname('Artikelnummer').asstring;\r\n  tcartikel.Cells[1,2]:=xdsartikel.fieldbyname('EAN').asstring;\r\n  tcartikel.Cells[1,3]:=xdsartikel.fieldbyname('Artikelueberschrift').asstring;\r\n  tcartikel.Cells[1,4]:=ReplaceStr(xdsartikel.FieldByName('Artikelbeschreibung').asstring,#13+#10,'<BR>');\r\n  tcartikel.Cells[1,5]:=xdsArtikelArtderMengeArtderMenge.asstring;\r\n  tcartikel.Cells[1,6]:='<h6>'+formatfloat('#,##0.00',xdsArtikelVerkaufspreis.asfloat);\r\n  tcartikel.Cells[1,7]:='<h6>'+formatfloat('#,##0.00',xdsArtikelVerkaufspreisBrutto.asfloat);\r\n  tcartikel.Cells[1,8]:=xdsArtikelVerpackungsart.asstring;\r\n  tcartikel.Cells[1,9]:=xdsArtikelVerpackungsMenge.asstring;\r\n  tcartikel.Cells[1,10]:=xdsArtikelBestand.asstring;\r\n  tcartikel.Cells[1,11]:=xdsArtikelBestandDisponiert.asstring;\r\n  myelement:=tcartikel.CellElements[1,12];\r\n  edtBMenge.ParentElement:=myelement;\r\n  edtBMenge.Visible:=true;\r\n  myelement:=tcartikel.CellElements[1,13];\r\n  btnSpeichern.ParentElement:=myelement;\r\n  btnSpeichern.Visible:=true;\r\n  edtBMenge.SetFocus;\r\n  end\r\n  else\r\n  begin\r\n    ResultLabel.HTML:='Artikel nicht gefunden oder mehrfach vorhanden';\r\n    edtsuchbegriff.Text:='';\r\n    edtsuchbegriff.SetFocus;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TBestellvormerkung.xdsBestellvormerkungAfterOpen(DataSet: TDataSet);\r\nvar\r\n  i:integer;\r\nbegin\r\n  tc.Visible:=true;\r\n  tc.RowCount:=xdsBestellvormerkung.RecordCount+1;\r\n  tc.ColCount:=3;\r\n  tc.Cells[0,0]:='Erstellt';\r\n  tc.Cells[1,0]:='Artikel';\r\n  tc.Cells[2,0]:='Menge';\r\n  xdsBestellvormerkung.First;\r\n  while not xdsbestellvormerkung.eof do\r\n  begin\r\n    i:=xdsBestellvormerkung.RecNo;\r\n    TC.Cells[0,i]:=formatdatetime('DD.MM.YYYY',xdsBestellvormerkung.fieldbyname('erstellt').asdatetime);\r\n    TC.Cells[1,i]:=xdsBestellvormerkung.fieldbyname('Artikelnummer').asstring+'<br>'+xdsBestellvormerkung.fieldbyname('Artikelueberschrift').asstring;\r\n    TC.Cells[2,i]:=xdsBestellvormerkung.fieldbyname('Menge').asstring;\r\n\r\n    xdsbestellvormerkung.Next;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TBestellvormerkung.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  ResultLabel := TLabel.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  TC := TTableControl.Create(Self);\r\n  container4 := THTMLContainer.Create(Self);\r\n  Container5 := THTMLContainer.Create(Self);\r\n  edtsuchbegriff := TEdit.Create(Self);\r\n  btnSuche := TButton.Create(Self);\r\n  btnScan := TButton.Create(Self);\r\n  TCArtikel := TTableControl.Create(Self);\r\n  edtBMenge := TEdit.Create(Self);\r\n  btnSpeichern := TButton.Create(Self);\r\n  btnEtikettendruck := TButton.Create(Self);\r\n  xdsBestellvormerkung := TXDataWebDataSet.Create(Self);\r\n  xdsBestellvormerkungID := TStringField.Create(Self);\r\n  xdsBestellvormerkungArtikelnummer := TStringField.Create(Self);\r\n  xdsBestellvormerkungArtikelueberschrift := TStringField.Create(Self);\r\n  xdsBestellvormerkungMenge := TFloatField.Create(Self);\r\n  xdsBestellvormerkungLieferantennummer := TStringField.Create(Self);\r\n  xdsBestellvormerkungerstellt := TDateTimeField.Create(Self);\r\n  xdsBestellvormerkungBelegnummer := TStringField.Create(Self);\r\n  xdsBestellvormerkungLieferantenname := TStringField.Create(Self);\r\n  xdsArtikel := TXDataWebDataSet.Create(Self);\r\n  xdsArtikelHersteller := TXDataWebEntityField.Create(Self);\r\n  xdsArtikelHerstellerHersteller := TStringField.Create(Self);\r\n  xdsArtikelHerstellerHerstellerID := TStringField.Create(Self);\r\n  xdsArtikelHerstellerHerstellerURL := TStringField.Create(Self);\r\n  xdsArtikelArtderMenge := TXDataWebEntityField.Create(Self);\r\n  xdsArtikelArtderMengeArtderMenge := TStringField.Create(Self);\r\n  xdsArtikelArtderMengeISO3 := TStringField.Create(Self);\r\n  xdsArtikelArtderMengeMengenauswahl := TBooleanField.Create(Self);\r\n  xdsArtikelArtderMengeVGPauswahl := TBooleanField.Create(Self);\r\n  xdsArtikelArtderMengeUVPauswahl := TBooleanField.Create(Self);\r\n  xdsArtikelArtderMengeVKPDivisor := TFloatField.Create(Self);\r\n  xdsArtikelPfandArt := TXDataWebEntityField.Create(Self);\r\n  xdsArtikelPfandArtPfandArt := TStringField.Create(Self);\r\n  xdsArtikelPfandArtPfandWert := TFloatField.Create(Self);\r\n  xdsArtikelPfandArtPfandwertEK := TFloatField.Create(Self);\r\n  xdsArtikelWarengruppe := TXDataWebEntityField.Create(Self);\r\n  xdsArtikelWarengruppeWarengruppe := TStringField.Create(Self);\r\n  xdsArtikelWarengruppeWGNR := TIntegerField.Create(Self);\r\n  xdsArtikelWarenuntergruppe := TXDataWebEntityField.Create(Self);\r\n  xdsArtikelWarenuntergruppeWarenuntergruppe := TStringField.Create(Self);\r\n  xdsArtikelWarenuntergruppeWarengruppe := TStringField.Create(Self);\r\n  xdsArtikelWarenuntergruppeWUGNR := TIntegerField.Create(Self);\r\n  xdsArtikelWarenuntergruppeWGNR := TIntegerField.Create(Self);\r\n  xdsArtikelArtikelnummer := TStringField.Create(Self);\r\n  xdsArtikelArtikelueberschrift := TStringField.Create(Self);\r\n  xdsArtikelArtikelbeschreibung := TStringField.Create(Self);\r\n  xdsArtikelVerkaufspreis := TFloatField.Create(Self);\r\n  xdsArtikelMindestbestand := TFloatField.Create(Self);\r\n  xdsArtikelPreisliste := TStringField.Create(Self);\r\n  xdsArtikelGewicht := TFloatField.Create(Self);\r\n  xdsArtikelLaenge := TFloatField.Create(Self);\r\n  xdsArtikelBreite := TFloatField.Create(Self);\r\n  xdsArtikelHoehe := TFloatField.Create(Self);\r\n  xdsArtikelArtikelZusatz := TStringField.Create(Self);\r\n  xdsArtikelLagerort := TStringField.Create(Self);\r\n  xdsArtikelBuchungskonto := TIntegerField.Create(Self);\r\n  xdsArtikelEingangMenge := TFloatField.Create(Self);\r\n  xdsArtikelEingangEndpreis := TFloatField.Create(Self);\r\n  xdsArtikelAusgangMenge := TFloatField.Create(Self);\r\n  xdsArtikelAusgangEndpreisEK := TFloatField.Create(Self);\r\n  xdsArtikelAusgangEndpreisVK := TFloatField.Create(Self);\r\n  xdsArtikelBestand := TFloatField.Create(Self);\r\n  xdsArtikelBestandswert := TFloatField.Create(Self);\r\n  xdsArtikelMarge := TFloatField.Create(Self);\r\n  xdsArtikelMargeProzent := TFloatField.Create(Self);\r\n  xdsArtikelArtikelnummer2 := TStringField.Create(Self);\r\n  xdsArtikelArtikelmatchcode := TStringField.Create(Self);\r\n  xdsArtikelRabattpreis1 := TFloatField.Create(Self);\r\n  xdsArtikelRabattpreis2 := TFloatField.Create(Self);\r\n  xdsArtikelRabattpreis3 := TFloatField.Create(Self);\r\n  xdsArtikelRabattpreis4 := TFloatField.Create(Self);\r\n  xdsArtikelRabattpreis5 := TFloatField.Create(Self);\r\n  xdsArtikelArtikelnichtmehrgueltig := TBooleanField.Create(Self);\r\n  xdsArtikelEinkaufspreis := TFloatField.Create(Self);\r\n  xdsArtikelAufschlag := TFloatField.Create(Self);\r\n  xdsArtikelWarenbestand := TBooleanField.Create(Self);\r\n  xdsArtikelTextfrei10 := TStringField.Create(Self);\r\n  xdsArtikelTextfrei20 := TStringField.Create(Self);\r\n  xdsArtikelArtikelbeschreibungRTF := TStringField.Create(Self);\r\n  xdsArtikelArtikeldatei1 := TStringField.Create(Self);\r\n  xdsArtikelArtikeldatei2 := TStringField.Create(Self);\r\n  xdsArtikelArtikeldatei3 := TStringField.Create(Self);\r\n  xdsArtikelArtikeldatei4 := TStringField.Create(Self);\r\n  xdsArtikelArtikeldatei5 := TStringField.Create(Self);\r\n  xdsArtikelEinkaufspreisVom := TDateTimeField.Create(Self);\r\n  xdsArtikelEAN := TStringField.Create(Self);\r\n  xdsArtikelVGPFaktor := TFloatField.Create(Self);\r\n  xdsArtikelVGPMengenart := TStringField.Create(Self);\r\n  xdsArtikelVerleihpreis := TFloatField.Create(Self);\r\n  xdsArtikelZusatzPreis := TFloatField.Create(Self);\r\n  xdsArtikelVerpackungsart := TStringField.Create(Self);\r\n  xdsArtikelVerpackungsMenge := TFloatField.Create(Self);\r\n  xdsArtikelQuellartikel := TStringField.Create(Self);\r\n  xdsArtikelrabattierfaehig := TBooleanField.Create(Self);\r\n  xdsArtikelAngebotAlternativeAN := TStringField.Create(Self);\r\n  xdsArtikelPreisanteilNetto := TFloatField.Create(Self);\r\n  xdsArtikelFarbe := TIntegerField.Create(Self);\r\n  xdsArtikelAEinkauf := TBooleanField.Create(Self);\r\n  xdsArtikelAVerkauf := TBooleanField.Create(Self);\r\n  xdsArtikelArtikelnummerLieferant := TStringField.Create(Self);\r\n  xdsArtikelLieferantnummer := TStringField.Create(Self);\r\n  xdsArtikelVerkaufspreisBrutto := TFloatField.Create(Self);\r\n  xdsArtikelArtikelSet := TBooleanField.Create(Self);\r\n  xdsArtikelProvisionssatz := TFloatField.Create(Self);\r\n  xdsArtikelWarentarifnummer := TStringField.Create(Self);\r\n  xdsArtikelHandelsartikel := TBooleanField.Create(Self);\r\n  xdsArtikelUrsprungsland := TStringField.Create(Self);\r\n  xdsArtikelKategorie := TStringField.Create(Self);\r\n  xdsArtikelStandardRabattsatzEK := TFloatField.Create(Self);\r\n  xdsArtikelStandardRabattsatzVK := TFloatField.Create(Self);\r\n  xdsArtikelRabattpreiseManuell := TBooleanField.Create(Self);\r\n  xdsArtikelMengeBestellt := TFloatField.Create(Self);\r\n  xdsArtikelMengeBeauftragt := TFloatField.Create(Self);\r\n  xdsArtikelBestandDisponiert := TFloatField.Create(Self);\r\n  xdsArtikelMengeAngeboten := TFloatField.Create(Self);\r\n  xdsArtikelBestandDispInclAngebot := TFloatField.Create(Self);\r\n  xdsArtikelMWStKey := TIntegerField.Create(Self);\r\n  xdsArtikelShopAmazon := TBooleanField.Create(Self);\r\n  xdsArtikelShopQuelle := TBooleanField.Create(Self);\r\n  xdsArtikelGeraet := TBooleanField.Create(Self);\r\n  xdsArtikelArtgewicht := TFloatField.Create(Self);\r\n  xdsArtikelVolumen := TFloatField.Create(Self);\r\n  xdsArtikelPacklisteNichtAnzeigen := TBooleanField.Create(Self);\r\n  xdsArtikelKeineAufschlagskalkulation := TBooleanField.Create(Self);\r\n  xdsArtikelKorrekturMenge := TFloatField.Create(Self);\r\n  xdsArtikelKorrekturWert := TFloatField.Create(Self);\r\n  xdsArtikelNachfolgeartikel := TStringField.Create(Self);\r\n  xdsArtikelMindestbestellmenge := TFloatField.Create(Self);\r\n  xdsArtikelSchnittEK := TFloatField.Create(Self);\r\n  xdsArtikelVerkaufspreisVom := TDateTimeField.Create(Self);\r\n  xdsArtikelPruefungChargeSNR := TIntegerField.Create(Self);\r\n  xdsArtikelArtikelbeschreibungHTML := TStringField.Create(Self);\r\n  xdsArtikelProduktKurzbeschreibungHTML := TStringField.Create(Self);\r\n  xdsArtikelStatusFuerShop := TStringField.Create(Self);\r\n  xdsArtikelAmpelFuerShop := TStringField.Create(Self);\r\n  xdsArtikelEXP_Anzahl := TFloatField.Create(Self);\r\n  xdsArtikelEXP_Inhalt := TFloatField.Create(Self);\r\n  xdsArtikelEXP_Faktor := TFloatField.Create(Self);\r\n  xdsArtikelFach := TStringField.Create(Self);\r\n  xdsArtikelExportKasse := TIntegerField.Create(Self);\r\n  xdsArtikelWKNR := TIntegerField.Create(Self);\r\n  xdsArtikelArtikelAttribute := TStringField.Create(Self);\r\n  xdsArtikelErstelltAm := TDateTimeField.Create(Self);\r\n  xdsArtikelVarianteVonAN := TStringField.Create(Self);\r\n  xdsArtikelGurtmassWerte := TStringField.Create(Self);\r\n  xdsArtikelGurtmass := TFloatField.Create(Self);\r\n  xdsArtikelAltersgrenze := TIntegerField.Create(Self);\r\n  xdsArtikelMWStKeyImHaus := TIntegerField.Create(Self);\r\n  xdsArtikelKasseBewegung := TFloatField.Create(Self);\r\n  xdsArtikelKasseBewegungEK := TFloatField.Create(Self);\r\n  xdsArtikelKasseBewegungVK := TFloatField.Create(Self);\r\n  xdsArtikelProduktionBewegung := TFloatField.Create(Self);\r\n  xdsArtikelProduktionBewegungEK := TFloatField.Create(Self);\r\n  xdsArtikelProduktionBewegungVK := TFloatField.Create(Self);\r\n  xdsArtikelWaWiAB := TIntegerField.Create(Self);\r\n  xdsArtikelGeaendertAm := TDateTimeField.Create(Self);\r\n  xdsArtikelGefahrgutKennzeichen := TStringField.Create(Self);\r\n  xdsArtikelVerpackG := TBooleanField.Create(Self);\r\n  xdsArtikelUPE := TFloatField.Create(Self);\r\n  xdsArtikelArtikelbeschreibungEinkauf := TStringField.Create(Self);\r\n  xdsArtikelHerstellerArtikelnummer := TStringField.Create(Self);\r\n  xdsArtikelNatura := TStringField.Create(Self);\r\n  xdsArtikelArbeitszeit := TBooleanField.Create(Self);\r\n  xdsArtikelPKey := TIntegerField.Create(Self);\r\n  xdsArtikelVersandklasse := TStringField.Create(Self);\r\n  WClient := TXDataWebClient.Create(Self);\r\n\r\n  ResultLabel.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  TC.BeforeLoadDFMValues;\r\n  container4.BeforeLoadDFMValues;\r\n  Container5.BeforeLoadDFMValues;\r\n  edtsuchbegriff.BeforeLoadDFMValues;\r\n  btnSuche.BeforeLoadDFMValues;\r\n  btnScan.BeforeLoadDFMValues;\r\n  TCArtikel.BeforeLoadDFMValues;\r\n  edtBMenge.BeforeLoadDFMValues;\r\n  btnSpeichern.BeforeLoadDFMValues;\r\n  btnEtikettendruck.BeforeLoadDFMValues;\r\n  xdsBestellvormerkung.BeforeLoadDFMValues;\r\n  xdsBestellvormerkungID.BeforeLoadDFMValues;\r\n  xdsBestellvormerkungArtikelnummer.BeforeLoadDFMValues;\r\n  xdsBestellvormerkungArtikelueberschrift.BeforeLoadDFMValues;\r\n  xdsBestellvormerkungMenge.BeforeLoadDFMValues;\r\n  xdsBestellvormerkungLieferantennummer.BeforeLoadDFMValues;\r\n  xdsBestellvormerkungerstellt.BeforeLoadDFMValues;\r\n  xdsBestellvormerkungBelegnummer.BeforeLoadDFMValues;\r\n  xdsBestellvormerkungLieferantenname.BeforeLoadDFMValues;\r\n  xdsArtikel.BeforeLoadDFMValues;\r\n  xdsArtikelHersteller.BeforeLoadDFMValues;\r\n  xdsArtikelHerstellerHersteller.BeforeLoadDFMValues;\r\n  xdsArtikelHerstellerHerstellerID.BeforeLoadDFMValues;\r\n  xdsArtikelHerstellerHerstellerURL.BeforeLoadDFMValues;\r\n  xdsArtikelArtderMenge.BeforeLoadDFMValues;\r\n  xdsArtikelArtderMengeArtderMenge.BeforeLoadDFMValues;\r\n  xdsArtikelArtderMengeISO3.BeforeLoadDFMValues;\r\n  xdsArtikelArtderMengeMengenauswahl.BeforeLoadDFMValues;\r\n  xdsArtikelArtderMengeVGPauswahl.BeforeLoadDFMValues;\r\n  xdsArtikelArtderMengeUVPauswahl.BeforeLoadDFMValues;\r\n  xdsArtikelArtderMengeVKPDivisor.BeforeLoadDFMValues;\r\n  xdsArtikelPfandArt.BeforeLoadDFMValues;\r\n  xdsArtikelPfandArtPfandArt.BeforeLoadDFMValues;\r\n  xdsArtikelPfandArtPfandWert.BeforeLoadDFMValues;\r\n  xdsArtikelPfandArtPfandwertEK.BeforeLoadDFMValues;\r\n  xdsArtikelWarengruppe.BeforeLoadDFMValues;\r\n  xdsArtikelWarengruppeWarengruppe.BeforeLoadDFMValues;\r\n  xdsArtikelWarengruppeWGNR.BeforeLoadDFMValues;\r\n  xdsArtikelWarenuntergruppe.BeforeLoadDFMValues;\r\n  xdsArtikelWarenuntergruppeWarenuntergruppe.BeforeLoadDFMValues;\r\n  xdsArtikelWarenuntergruppeWarengruppe.BeforeLoadDFMValues;\r\n  xdsArtikelWarenuntergruppeWUGNR.BeforeLoadDFMValues;\r\n  xdsArtikelWarenuntergruppeWGNR.BeforeLoadDFMValues;\r\n  xdsArtikelArtikelnummer.BeforeLoadDFMValues;\r\n  xdsArtikelArtikelueberschrift.BeforeLoadDFMValues;\r\n  xdsArtikelArtikelbeschreibung.BeforeLoadDFMValues;\r\n  xdsArtikelVerkaufspreis.BeforeLoadDFMValues;\r\n  xdsArtikelMindestbestand.BeforeLoadDFMValues;\r\n  xdsArtikelPreisliste.BeforeLoadDFMValues;\r\n  xdsArtikelGewicht.BeforeLoadDFMValues;\r\n  xdsArtikelLaenge.BeforeLoadDFMValues;\r\n  xdsArtikelBreite.BeforeLoadDFMValues;\r\n  xdsArtikelHoehe.BeforeLoadDFMValues;\r\n  xdsArtikelArtikelZusatz.BeforeLoadDFMValues;\r\n  xdsArtikelLagerort.BeforeLoadDFMValues;\r\n  xdsArtikelBuchungskonto.BeforeLoadDFMValues;\r\n  xdsArtikelEingangMenge.BeforeLoadDFMValues;\r\n  xdsArtikelEingangEndpreis.BeforeLoadDFMValues;\r\n  xdsArtikelAusgangMenge.BeforeLoadDFMValues;\r\n  xdsArtikelAusgangEndpreisEK.BeforeLoadDFMValues;\r\n  xdsArtikelAusgangEndpreisVK.BeforeLoadDFMValues;\r\n  xdsArtikelBestand.BeforeLoadDFMValues;\r\n  xdsArtikelBestandswert.BeforeLoadDFMValues;\r\n  xdsArtikelMarge.BeforeLoadDFMValues;\r\n  xdsArtikelMargeProzent.BeforeLoadDFMValues;\r\n  xdsArtikelArtikelnummer2.BeforeLoadDFMValues;\r\n  xdsArtikelArtikelmatchcode.BeforeLoadDFMValues;\r\n  xdsArtikelRabattpreis1.BeforeLoadDFMValues;\r\n  xdsArtikelRabattpreis2.BeforeLoadDFMValues;\r\n  xdsArtikelRabattpreis3.BeforeLoadDFMValues;\r\n  xdsArtikelRabattpreis4.BeforeLoadDFMValues;\r\n  xdsArtikelRabattpreis5.BeforeLoadDFMValues;\r\n  xdsArtikelArtikelnichtmehrgueltig.BeforeLoadDFMValues;\r\n  xdsArtikelEinkaufspreis.BeforeLoadDFMValues;\r\n  xdsArtikelAufschlag.BeforeLoadDFMValues;\r\n  xdsArtikelWarenbestand.BeforeLoadDFMValues;\r\n  xdsArtikelTextfrei10.BeforeLoadDFMValues;\r\n  xdsArtikelTextfrei20.BeforeLoadDFMValues;\r\n  xdsArtikelArtikelbeschreibungRTF.BeforeLoadDFMValues;\r\n  xdsArtikelArtikeldatei1.BeforeLoadDFMValues;\r\n  xdsArtikelArtikeldatei2.BeforeLoadDFMValues;\r\n  xdsArtikelArtikeldatei3.BeforeLoadDFMValues;\r\n  xdsArtikelArtikeldatei4.BeforeLoadDFMValues;\r\n  xdsArtikelArtikeldatei5.BeforeLoadDFMValues;\r\n  xdsArtikelEinkaufspreisVom.BeforeLoadDFMValues;\r\n  xdsArtikelEAN.BeforeLoadDFMValues;\r\n  xdsArtikelVGPFaktor.BeforeLoadDFMValues;\r\n  xdsArtikelVGPMengenart.BeforeLoadDFMValues;\r\n  xdsArtikelVerleihpreis.BeforeLoadDFMValues;\r\n  xdsArtikelZusatzPreis.BeforeLoadDFMValues;\r\n  xdsArtikelVerpackungsart.BeforeLoadDFMValues;\r\n  xdsArtikelVerpackungsMenge.BeforeLoadDFMValues;\r\n  xdsArtikelQuellartikel.BeforeLoadDFMValues;\r\n  xdsArtikelrabattierfaehig.BeforeLoadDFMValues;\r\n  xdsArtikelAngebotAlternativeAN.BeforeLoadDFMValues;\r\n  xdsArtikelPreisanteilNetto.BeforeLoadDFMValues;\r\n  xdsArtikelFarbe.BeforeLoadDFMValues;\r\n  xdsArtikelAEinkauf.BeforeLoadDFMValues;\r\n  xdsArtikelAVerkauf.BeforeLoadDFMValues;\r\n  xdsArtikelArtikelnummerLieferant.BeforeLoadDFMValues;\r\n  xdsArtikelLieferantnummer.BeforeLoadDFMValues;\r\n  xdsArtikelVerkaufspreisBrutto.BeforeLoadDFMValues;\r\n  xdsArtikelArtikelSet.BeforeLoadDFMValues;\r\n  xdsArtikelProvisionssatz.BeforeLoadDFMValues;\r\n  xdsArtikelWarentarifnummer.BeforeLoadDFMValues;\r\n  xdsArtikelHandelsartikel.BeforeLoadDFMValues;\r\n  xdsArtikelUrsprungsland.BeforeLoadDFMValues;\r\n  xdsArtikelKategorie.BeforeLoadDFMValues;\r\n  xdsArtikelStandardRabattsatzEK.BeforeLoadDFMValues;\r\n  xdsArtikelStandardRabattsatzVK.BeforeLoadDFMValues;\r\n  xdsArtikelRabattpreiseManuell.BeforeLoadDFMValues;\r\n  xdsArtikelMengeBestellt.BeforeLoadDFMValues;\r\n  xdsArtikelMengeBeauftragt.BeforeLoadDFMValues;\r\n  xdsArtikelBestandDisponiert.BeforeLoadDFMValues;\r\n  xdsArtikelMengeAngeboten.BeforeLoadDFMValues;\r\n  xdsArtikelBestandDispInclAngebot.BeforeLoadDFMValues;\r\n  xdsArtikelMWStKey.BeforeLoadDFMValues;\r\n  xdsArtikelShopAmazon.BeforeLoadDFMValues;\r\n  xdsArtikelShopQuelle.BeforeLoadDFMValues;\r\n  xdsArtikelGeraet.BeforeLoadDFMValues;\r\n  xdsArtikelArtgewicht.BeforeLoadDFMValues;\r\n  xdsArtikelVolumen.BeforeLoadDFMValues;\r\n  xdsArtikelPacklisteNichtAnzeigen.BeforeLoadDFMValues;\r\n  xdsArtikelKeineAufschlagskalkulation.BeforeLoadDFMValues;\r\n  xdsArtikelKorrekturMenge.BeforeLoadDFMValues;\r\n  xdsArtikelKorrekturWert.BeforeLoadDFMValues;\r\n  xdsArtikelNachfolgeartikel.BeforeLoadDFMValues;\r\n  xdsArtikelMindestbestellmenge.BeforeLoadDFMValues;\r\n  xdsArtikelSchnittEK.BeforeLoadDFMValues;\r\n  xdsArtikelVerkaufspreisVom.BeforeLoadDFMValues;\r\n  xdsArtikelPruefungChargeSNR.BeforeLoadDFMValues;\r\n  xdsArtikelArtikelbeschreibungHTML.BeforeLoadDFMValues;\r\n  xdsArtikelProduktKurzbeschreibungHTML.BeforeLoadDFMValues;\r\n  xdsArtikelStatusFuerShop.BeforeLoadDFMValues;\r\n  xdsArtikelAmpelFuerShop.BeforeLoadDFMValues;\r\n  xdsArtikelEXP_Anzahl.BeforeLoadDFMValues;\r\n  xdsArtikelEXP_Inhalt.BeforeLoadDFMValues;\r\n  xdsArtikelEXP_Faktor.BeforeLoadDFMValues;\r\n  xdsArtikelFach.BeforeLoadDFMValues;\r\n  xdsArtikelExportKasse.BeforeLoadDFMValues;\r\n  xdsArtikelWKNR.BeforeLoadDFMValues;\r\n  xdsArtikelArtikelAttribute.BeforeLoadDFMValues;\r\n  xdsArtikelErstelltAm.BeforeLoadDFMValues;\r\n  xdsArtikelVarianteVonAN.BeforeLoadDFMValues;\r\n  xdsArtikelGurtmassWerte.BeforeLoadDFMValues;\r\n  xdsArtikelGurtmass.BeforeLoadDFMValues;\r\n  xdsArtikelAltersgrenze.BeforeLoadDFMValues;\r\n  xdsArtikelMWStKeyImHaus.BeforeLoadDFMValues;\r\n  xdsArtikelKasseBewegung.BeforeLoadDFMValues;\r\n  xdsArtikelKasseBewegungEK.BeforeLoadDFMValues;\r\n  xdsArtikelKasseBewegungVK.BeforeLoadDFMValues;\r\n  xdsArtikelProduktionBewegung.BeforeLoadDFMValues;\r\n  xdsArtikelProduktionBewegungEK.BeforeLoadDFMValues;\r\n  xdsArtikelProduktionBewegungVK.BeforeLoadDFMValues;\r\n  xdsArtikelWaWiAB.BeforeLoadDFMValues;\r\n  xdsArtikelGeaendertAm.BeforeLoadDFMValues;\r\n  xdsArtikelGefahrgutKennzeichen.BeforeLoadDFMValues;\r\n  xdsArtikelVerpackG.BeforeLoadDFMValues;\r\n  xdsArtikelUPE.BeforeLoadDFMValues;\r\n  xdsArtikelArtikelbeschreibungEinkauf.BeforeLoadDFMValues;\r\n  xdsArtikelHerstellerArtikelnummer.BeforeLoadDFMValues;\r\n  xdsArtikelNatura.BeforeLoadDFMValues;\r\n  xdsArtikelArbeitszeit.BeforeLoadDFMValues;\r\n  xdsArtikelPKey.BeforeLoadDFMValues;\r\n  xdsArtikelVersandklasse.BeforeLoadDFMValues;\r\n  WClient.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'Bestellvormerkung';\r\n    Width := 246;\r\n    Height := 377;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    ResultLabel.SetParentComponent(Self);\r\n    ResultLabel.Name := 'ResultLabel';\r\n    ResultLabel.Left := 184;\r\n    ResultLabel.Top := 72;\r\n    ResultLabel.Width := 60;\r\n    ResultLabel.Height := 15;\r\n    ResultLabel.Caption := 'ResultLabel';\r\n    ResultLabel.ElementClassName := 'h6 m-1';\r\n    ResultLabel.ElementFont := efCSS;\r\n    ResultLabel.ElementPosition := epIgnore;\r\n    ResultLabel.HeightStyle := ssAuto;\r\n    ResultLabel.HeightPercent := 100.000000000000000000;\r\n    ResultLabel.WidthStyle := ssPercent;\r\n    ResultLabel.WidthPercent := 100.000000000000000000;\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ChildOrder := 2;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 5;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 5;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 0;\r\n    btnzurueck.Top := 156;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.Left := -1;\r\n    TC.Top := 191;\r\n    TC.Width := 247;\r\n    TC.Height := 91;\r\n    TC.ElementClassName := 'table table-sm table-hover table-bordered table-striped m-1';\r\n    TC.HeightStyle := ssAuto;\r\n    TC.WidthStyle := ssPercent;\r\n    TC.BorderColor := clSilver;\r\n    TC.ChildOrder := 3;\r\n    TC.ColHeader := False;\r\n    TC.ElementFont := efCSS;\r\n    TC.ElementHeaderClassName := 'table-info';\r\n    TC.ElementPosition := epIgnore;\r\n    TC.ElementTableClassName := 'table table-sm table-hover table-bordered table-striped';\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 2;\r\n    container4.SetParentComponent(Self);\r\n    container4.Name := 'container4';\r\n    container4.Left := 8;\r\n    container4.Top := 102;\r\n    container4.Width := 169;\r\n    container4.Height := 41;\r\n    container4.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    container4.HeightStyle := ssAuto;\r\n    container4.WidthStyle := ssAuto;\r\n    container4.ChildOrder := 2;\r\n    container4.ElementFont := efCSS;\r\n    container4.ElementPosition := epIgnore;\r\n    Container5.SetParentComponent(Self);\r\n    Container5.Name := 'Container5';\r\n    Container5.Left := 16;\r\n    Container5.Top := 110;\r\n    Container5.Width := 169;\r\n    Container5.Height := 41;\r\n    Container5.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    Container5.HeightStyle := ssAuto;\r\n    Container5.WidthStyle := ssAuto;\r\n    Container5.ChildOrder := 2;\r\n    Container5.ElementFont := efCSS;\r\n    Container5.ElementPosition := epIgnore;\r\n    edtsuchbegriff.SetParentComponent(Self);\r\n    edtsuchbegriff.Name := 'edtsuchbegriff';\r\n    edtsuchbegriff.Left := 102;\r\n    edtsuchbegriff.Top := 162;\r\n    edtsuchbegriff.Width := 121;\r\n    edtsuchbegriff.Height := 19;\r\n    edtsuchbegriff.ChildOrder := 7;\r\n    edtsuchbegriff.ElementClassName := 'form-control input-sm';\r\n    edtsuchbegriff.ElementFont := efCSS;\r\n    edtsuchbegriff.ElementPosition := epIgnore;\r\n    edtsuchbegriff.HeightStyle := ssAuto;\r\n    edtsuchbegriff.HeightPercent := 100.000000000000000000;\r\n    edtsuchbegriff.TextHint := 'EAN/Art-Nr';\r\n    edtsuchbegriff.WidthPercent := 100.000000000000000000;\r\n    SetEvent(edtsuchbegriff, Self, 'OnKeyPress', 'edtsuchbegriffKeyPress');\r\n    btnSuche.SetParentComponent(Self);\r\n    btnSuche.Name := 'btnSuche';\r\n    btnSuche.Left := 152;\r\n    btnSuche.Top := 214;\r\n    btnSuche.Width := 94;\r\n    btnSuche.Height := 25;\r\n    btnSuche.Caption := 'suchen';\r\n    btnSuche.ChildOrder := 8;\r\n    btnSuche.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnSuche.ElementFont := efCSS;\r\n    btnSuche.ElementPosition := epIgnore;\r\n    btnSuche.HeightStyle := ssAuto;\r\n    btnSuche.HeightPercent := 100.000000000000000000;\r\n    btnSuche.WidthStyle := ssAuto;\r\n    btnSuche.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnSuche, Self, 'OnClick', 'btnSucheClick');\r\n    btnScan.SetParentComponent(Self);\r\n    btnScan.Name := 'btnScan';\r\n    btnScan.Left := 0;\r\n    btnScan.Top := 257;\r\n    btnScan.Width := 96;\r\n    btnScan.Height := 25;\r\n    btnScan.Caption := 'Bar-/QR-Code scannen';\r\n    btnScan.ChildOrder := 4;\r\n    btnScan.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnScan.ElementFont := efCSS;\r\n    btnScan.ElementPosition := epIgnore;\r\n    btnScan.HeightStyle := ssAuto;\r\n    btnScan.HeightPercent := 100.000000000000000000;\r\n    btnScan.WidthStyle := ssAuto;\r\n    btnScan.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnScan, Self, 'OnClick', 'btnScanClick');\r\n    TCArtikel.SetParentComponent(Self);\r\n    TCArtikel.Name := 'TCArtikel';\r\n    TCArtikel.Left := 0;\r\n    TCArtikel.Top := 288;\r\n    TCArtikel.Width := 247;\r\n    TCArtikel.Height := 91;\r\n    TCArtikel.ElementClassName := 'table table-sm table-hover table-bordered table-striped m-1';\r\n    TCArtikel.HeightStyle := ssAuto;\r\n    TCArtikel.WidthStyle := ssPercent;\r\n    TCArtikel.BorderColor := clSilver;\r\n    TCArtikel.ChildOrder := 3;\r\n    TCArtikel.ColHeader := False;\r\n    TCArtikel.ElementFont := efCSS;\r\n    TCArtikel.ElementHeaderClassName := 'table-info';\r\n    TCArtikel.ElementPosition := epIgnore;\r\n    TCArtikel.ElementTableClassName := 'table table-sm table-hover table-bordered table-striped';\r\n    TCArtikel.WordWrap := True;\r\n    TCArtikel.ColCount := 2;\r\n    edtBMenge.SetParentComponent(Self);\r\n    edtBMenge.Name := 'edtBMenge';\r\n    edtBMenge.Left := 8;\r\n    edtBMenge.Top := 185;\r\n    edtBMenge.Width := 121;\r\n    edtBMenge.Height := 19;\r\n    edtBMenge.ChildOrder := 2;\r\n    edtBMenge.EditType := weFloat;\r\n    edtBMenge.ElementClassName := 'form-control input-sm';\r\n    edtBMenge.ElementFont := efCSS;\r\n    edtBMenge.ElementPosition := epIgnore;\r\n    edtBMenge.HeightStyle := ssAuto;\r\n    edtBMenge.HeightPercent := 100.000000000000000000;\r\n    edtBMenge.TextHint := 'eintragen';\r\n    edtBMenge.WidthPercent := 100.000000000000000000;\r\n    SetEvent(edtBMenge, Self, 'OnKeyPress', 'edtBMengeKeyPress');\r\n    btnSpeichern.SetParentComponent(Self);\r\n    btnSpeichern.Name := 'btnSpeichern';\r\n    btnSpeichern.Left := 8;\r\n    btnSpeichern.Top := 210;\r\n    btnSpeichern.Width := 96;\r\n    btnSpeichern.Height := 25;\r\n    btnSpeichern.Caption := 'speichern';\r\n    btnSpeichern.ChildOrder := 6;\r\n    btnSpeichern.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnSpeichern.ElementFont := efCSS;\r\n    btnSpeichern.ElementPosition := epIgnore;\r\n    btnSpeichern.HeightStyle := ssAuto;\r\n    btnSpeichern.HeightPercent := 100.000000000000000000;\r\n    btnSpeichern.WidthStyle := ssAuto;\r\n    btnSpeichern.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnSpeichern, Self, 'OnClick', 'btnSpeichernClick');\r\n    btnEtikettendruck.SetParentComponent(Self);\r\n    btnEtikettendruck.Name := 'btnEtikettendruck';\r\n    btnEtikettendruck.Left := 142;\r\n    btnEtikettendruck.Top := 94;\r\n    btnEtikettendruck.Width := 96;\r\n    btnEtikettendruck.Height := 25;\r\n    btnEtikettendruck.Caption := 'Etikettendruck';\r\n    btnEtikettendruck.ChildOrder := 4;\r\n    btnEtikettendruck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnEtikettendruck.ElementFont := efCSS;\r\n    btnEtikettendruck.ElementPosition := epIgnore;\r\n    btnEtikettendruck.HeightStyle := ssAuto;\r\n    btnEtikettendruck.HeightPercent := 100.000000000000000000;\r\n    btnEtikettendruck.WidthStyle := ssAuto;\r\n    btnEtikettendruck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnEtikettendruck, Self, 'OnClick', 'btnEtikettendruckClick');\r\n    xdsBestellvormerkung.SetParentComponent(Self);\r\n    xdsBestellvormerkung.Name := 'xdsBestellvormerkung';\r\n    xdsBestellvormerkung.AfterOpen := xdsBestellvormerkungAfterOpen;\r\n    xdsBestellvormerkung.EntitySetName := 'BestellungMDE';\r\n    xdsBestellvormerkung.Connection := DM2.XDataWebConnection1;\r\n    xdsBestellvormerkung.QueryString := '$filter=Belegnummer eq null&$orderby=erstellt DESC';\r\n    xdsBestellvormerkung.QueryTop := 100;\r\n    xdsBestellvormerkung.Left := 45;\r\n    xdsBestellvormerkung.Top := 229;\r\n    xdsBestellvormerkungID.SetParentComponent(xdsBestellvormerkung);\r\n    xdsBestellvormerkungID.Name := 'xdsBestellvormerkungID';\r\n    xdsBestellvormerkungID.FieldName := 'ID';\r\n    xdsBestellvormerkungID.Required := True;\r\n    xdsBestellvormerkungID.Size := 38;\r\n    xdsBestellvormerkungArtikelnummer.SetParentComponent(xdsBestellvormerkung);\r\n    xdsBestellvormerkungArtikelnummer.Name := 'xdsBestellvormerkungArtikelnummer';\r\n    xdsBestellvormerkungArtikelnummer.FieldName := 'Artikelnummer';\r\n    xdsBestellvormerkungArtikelnummer.Required := True;\r\n    xdsBestellvormerkungArtikelnummer.Size := 25;\r\n    xdsBestellvormerkungArtikelueberschrift.SetParentComponent(xdsBestellvormerkung);\r\n    xdsBestellvormerkungArtikelueberschrift.Name := 'xdsBestellvormerkungArtikelueberschrift';\r\n    xdsBestellvormerkungArtikelueberschrift.FieldName := 'Artikelueberschrift';\r\n    xdsBestellvormerkungArtikelueberschrift.Size := 50;\r\n    xdsBestellvormerkungMenge.SetParentComponent(xdsBestellvormerkung);\r\n    xdsBestellvormerkungMenge.Name := 'xdsBestellvormerkungMenge';\r\n    xdsBestellvormerkungMenge.FieldName := 'Menge';\r\n    xdsBestellvormerkungLieferantennummer.SetParentComponent(xdsBestellvormerkung);\r\n    xdsBestellvormerkungLieferantennummer.Name := 'xdsBestellvormerkungLieferantennummer';\r\n    xdsBestellvormerkungLieferantennummer.FieldName := 'Lieferantennummer';\r\n    xdsBestellvormerkungLieferantennummer.Size := 13;\r\n    xdsBestellvormerkungerstellt.SetParentComponent(xdsBestellvormerkung);\r\n    xdsBestellvormerkungerstellt.Name := 'xdsBestellvormerkungerstellt';\r\n    xdsBestellvormerkungerstellt.FieldName := 'erstellt';\r\n    xdsBestellvormerkungBelegnummer.SetParentComponent(xdsBestellvormerkung);\r\n    xdsBestellvormerkungBelegnummer.Name := 'xdsBestellvormerkungBelegnummer';\r\n    xdsBestellvormerkungBelegnummer.FieldName := 'Belegnummer';\r\n    xdsBestellvormerkungBelegnummer.Size := 10;\r\n    xdsBestellvormerkungLieferantenname.SetParentComponent(xdsBestellvormerkung);\r\n    xdsBestellvormerkungLieferantenname.Name := 'xdsBestellvormerkungLieferantenname';\r\n    xdsBestellvormerkungLieferantenname.FieldName := 'Lieferantenname';\r\n    xdsBestellvormerkungLieferantenname.Size := 40;\r\n    xdsArtikel.SetParentComponent(Self);\r\n    xdsArtikel.Name := 'xdsArtikel';\r\n    xdsArtikel.AfterOpen := xdsArtikelAfterOpen;\r\n    xdsArtikel.EntitySetName := 'Artikel';\r\n    xdsArtikel.Connection := DM2.XDataWebConnection1;\r\n    xdsArtikel.SubpropsDepth := 1;\r\n    xdsArtikel.Left := 24;\r\n    xdsArtikel.Top := 64;\r\n    xdsArtikelHersteller.SetParentComponent(xdsArtikel);\r\n    xdsArtikelHersteller.Name := 'xdsArtikelHersteller';\r\n    xdsArtikelHersteller.FieldName := 'Hersteller';\r\n    xdsArtikelHersteller.Required := True;\r\n    xdsArtikelHerstellerHersteller.SetParentComponent(xdsArtikel);\r\n    xdsArtikelHerstellerHersteller.Name := 'xdsArtikelHerstellerHersteller';\r\n    xdsArtikelHerstellerHersteller.FieldName := 'Hersteller.Hersteller';\r\n    xdsArtikelHerstellerHersteller.Size := 25;\r\n    xdsArtikelHerstellerHerstellerID.SetParentComponent(xdsArtikel);\r\n    xdsArtikelHerstellerHerstellerID.Name := 'xdsArtikelHerstellerHerstellerID';\r\n    xdsArtikelHerstellerHerstellerID.FieldName := 'Hersteller.HerstellerID';\r\n    xdsArtikelHerstellerHerstellerID.Size := 50;\r\n    xdsArtikelHerstellerHerstellerURL.SetParentComponent(xdsArtikel);\r\n    xdsArtikelHerstellerHerstellerURL.Name := 'xdsArtikelHerstellerHerstellerURL';\r\n    xdsArtikelHerstellerHerstellerURL.FieldName := 'Hersteller.HerstellerURL';\r\n    xdsArtikelHerstellerHerstellerURL.Size := 100;\r\n    xdsArtikelArtderMenge.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArtderMenge.Name := 'xdsArtikelArtderMenge';\r\n    xdsArtikelArtderMenge.FieldName := 'ArtderMenge';\r\n    xdsArtikelArtderMenge.Required := True;\r\n    xdsArtikelArtderMengeArtderMenge.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArtderMengeArtderMenge.Name := 'xdsArtikelArtderMengeArtderMenge';\r\n    xdsArtikelArtderMengeArtderMenge.FieldName := 'ArtderMenge.ArtderMenge';\r\n    xdsArtikelArtderMengeArtderMenge.Size := 50;\r\n    xdsArtikelArtderMengeISO3.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArtderMengeISO3.Name := 'xdsArtikelArtderMengeISO3';\r\n    xdsArtikelArtderMengeISO3.FieldName := 'ArtderMenge.ISO3';\r\n    xdsArtikelArtderMengeISO3.Size := 3;\r\n    xdsArtikelArtderMengeMengenauswahl.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArtderMengeMengenauswahl.Name := 'xdsArtikelArtderMengeMengenauswahl';\r\n    xdsArtikelArtderMengeMengenauswahl.FieldName := 'ArtderMenge.Mengenauswahl';\r\n    xdsArtikelArtderMengeVGPauswahl.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArtderMengeVGPauswahl.Name := 'xdsArtikelArtderMengeVGPauswahl';\r\n    xdsArtikelArtderMengeVGPauswahl.FieldName := 'ArtderMenge.VGPauswahl';\r\n    xdsArtikelArtderMengeUVPauswahl.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArtderMengeUVPauswahl.Name := 'xdsArtikelArtderMengeUVPauswahl';\r\n    xdsArtikelArtderMengeUVPauswahl.FieldName := 'ArtderMenge.UVPauswahl';\r\n    xdsArtikelArtderMengeVKPDivisor.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArtderMengeVKPDivisor.Name := 'xdsArtikelArtderMengeVKPDivisor';\r\n    xdsArtikelArtderMengeVKPDivisor.FieldName := 'ArtderMenge.VKPDivisor';\r\n    xdsArtikelPfandArt.SetParentComponent(xdsArtikel);\r\n    xdsArtikelPfandArt.Name := 'xdsArtikelPfandArt';\r\n    xdsArtikelPfandArt.FieldName := 'PfandArt';\r\n    xdsArtikelPfandArtPfandArt.SetParentComponent(xdsArtikel);\r\n    xdsArtikelPfandArtPfandArt.Name := 'xdsArtikelPfandArtPfandArt';\r\n    xdsArtikelPfandArtPfandArt.FieldName := 'PfandArt.PfandArt';\r\n    xdsArtikelPfandArtPfandArt.Size := 50;\r\n    xdsArtikelPfandArtPfandWert.SetParentComponent(xdsArtikel);\r\n    xdsArtikelPfandArtPfandWert.Name := 'xdsArtikelPfandArtPfandWert';\r\n    xdsArtikelPfandArtPfandWert.FieldName := 'PfandArt.PfandWert';\r\n    xdsArtikelPfandArtPfandwertEK.SetParentComponent(xdsArtikel);\r\n    xdsArtikelPfandArtPfandwertEK.Name := 'xdsArtikelPfandArtPfandwertEK';\r\n    xdsArtikelPfandArtPfandwertEK.FieldName := 'PfandArt.PfandwertEK';\r\n    xdsArtikelWarengruppe.SetParentComponent(xdsArtikel);\r\n    xdsArtikelWarengruppe.Name := 'xdsArtikelWarengruppe';\r\n    xdsArtikelWarengruppe.FieldName := 'Warengruppe';\r\n    xdsArtikelWarengruppeWarengruppe.SetParentComponent(xdsArtikel);\r\n    xdsArtikelWarengruppeWarengruppe.Name := 'xdsArtikelWarengruppeWarengruppe';\r\n    xdsArtikelWarengruppeWarengruppe.FieldName := 'Warengruppe.Warengruppe';\r\n    xdsArtikelWarengruppeWarengruppe.Size := 70;\r\n    xdsArtikelWarengruppeWGNR.SetParentComponent(xdsArtikel);\r\n    xdsArtikelWarengruppeWGNR.Name := 'xdsArtikelWarengruppeWGNR';\r\n    xdsArtikelWarengruppeWGNR.FieldName := 'Warengruppe.WGNR';\r\n    xdsArtikelWarenuntergruppe.SetParentComponent(xdsArtikel);\r\n    xdsArtikelWarenuntergruppe.Name := 'xdsArtikelWarenuntergruppe';\r\n    xdsArtikelWarenuntergruppe.FieldName := 'Warenuntergruppe';\r\n    xdsArtikelWarenuntergruppeWarenuntergruppe.SetParentComponent(xdsArtikel);\r\n    xdsArtikelWarenuntergruppeWarenuntergruppe.Name := 'xdsArtikelWarenuntergruppeWarenuntergruppe';\r\n    xdsArtikelWarenuntergruppeWarenuntergruppe.FieldName := 'Warenuntergruppe.Warenuntergruppe';\r\n    xdsArtikelWarenuntergruppeWarenuntergruppe.Size := 70;\r\n    xdsArtikelWarenuntergruppeWarengruppe.SetParentComponent(xdsArtikel);\r\n    xdsArtikelWarenuntergruppeWarengruppe.Name := 'xdsArtikelWarenuntergruppeWarengruppe';\r\n    xdsArtikelWarenuntergruppeWarengruppe.FieldName := 'Warenuntergruppe.Warengruppe';\r\n    xdsArtikelWarenuntergruppeWarengruppe.Size := 70;\r\n    xdsArtikelWarenuntergruppeWUGNR.SetParentComponent(xdsArtikel);\r\n    xdsArtikelWarenuntergruppeWUGNR.Name := 'xdsArtikelWarenuntergruppeWUGNR';\r\n    xdsArtikelWarenuntergruppeWUGNR.FieldName := 'Warenuntergruppe.WUGNR';\r\n    xdsArtikelWarenuntergruppeWGNR.SetParentComponent(xdsArtikel);\r\n    xdsArtikelWarenuntergruppeWGNR.Name := 'xdsArtikelWarenuntergruppeWGNR';\r\n    xdsArtikelWarenuntergruppeWGNR.FieldName := 'Warenuntergruppe.WGNR';\r\n    xdsArtikelArtikelnummer.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArtikelnummer.Name := 'xdsArtikelArtikelnummer';\r\n    xdsArtikelArtikelnummer.FieldName := 'Artikelnummer';\r\n    xdsArtikelArtikelnummer.Required := True;\r\n    xdsArtikelArtikelnummer.Size := 25;\r\n    xdsArtikelArtikelueberschrift.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArtikelueberschrift.Name := 'xdsArtikelArtikelueberschrift';\r\n    xdsArtikelArtikelueberschrift.FieldName := 'Artikelueberschrift';\r\n    xdsArtikelArtikelueberschrift.Size := 50;\r\n    xdsArtikelArtikelbeschreibung.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArtikelbeschreibung.Name := 'xdsArtikelArtikelbeschreibung';\r\n    xdsArtikelArtikelbeschreibung.FieldName := 'Artikelbeschreibung';\r\n    xdsArtikelArtikelbeschreibung.Size := 255;\r\n    xdsArtikelVerkaufspreis.SetParentComponent(xdsArtikel);\r\n    xdsArtikelVerkaufspreis.Name := 'xdsArtikelVerkaufspreis';\r\n    xdsArtikelVerkaufspreis.FieldName := 'Verkaufspreis';\r\n    xdsArtikelMindestbestand.SetParentComponent(xdsArtikel);\r\n    xdsArtikelMindestbestand.Name := 'xdsArtikelMindestbestand';\r\n    xdsArtikelMindestbestand.FieldName := 'Mindestbestand';\r\n    xdsArtikelPreisliste.SetParentComponent(xdsArtikel);\r\n    xdsArtikelPreisliste.Name := 'xdsArtikelPreisliste';\r\n    xdsArtikelPreisliste.FieldName := 'Preisliste';\r\n    xdsArtikelPreisliste.Size := 150;\r\n    xdsArtikelGewicht.SetParentComponent(xdsArtikel);\r\n    xdsArtikelGewicht.Name := 'xdsArtikelGewicht';\r\n    xdsArtikelGewicht.FieldName := 'Gewicht';\r\n    xdsArtikelLaenge.SetParentComponent(xdsArtikel);\r\n    xdsArtikelLaenge.Name := 'xdsArtikelLaenge';\r\n    xdsArtikelLaenge.FieldName := 'Laenge';\r\n    xdsArtikelBreite.SetParentComponent(xdsArtikel);\r\n    xdsArtikelBreite.Name := 'xdsArtikelBreite';\r\n    xdsArtikelBreite.FieldName := 'Breite';\r\n    xdsArtikelHoehe.SetParentComponent(xdsArtikel);\r\n    xdsArtikelHoehe.Name := 'xdsArtikelHoehe';\r\n    xdsArtikelHoehe.FieldName := 'Hoehe';\r\n    xdsArtikelArtikelZusatz.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArtikelZusatz.Name := 'xdsArtikelArtikelZusatz';\r\n    xdsArtikelArtikelZusatz.FieldName := 'ArtikelZusatz';\r\n    xdsArtikelArtikelZusatz.Size := 255;\r\n    xdsArtikelLagerort.SetParentComponent(xdsArtikel);\r\n    xdsArtikelLagerort.Name := 'xdsArtikelLagerort';\r\n    xdsArtikelLagerort.FieldName := 'Lagerort';\r\n    xdsArtikelLagerort.Size := 50;\r\n    xdsArtikelBuchungskonto.SetParentComponent(xdsArtikel);\r\n    xdsArtikelBuchungskonto.Name := 'xdsArtikelBuchungskonto';\r\n    xdsArtikelBuchungskonto.FieldName := 'Buchungskonto';\r\n    xdsArtikelEingangMenge.SetParentComponent(xdsArtikel);\r\n    xdsArtikelEingangMenge.Name := 'xdsArtikelEingangMenge';\r\n    xdsArtikelEingangMenge.FieldName := 'EingangMenge';\r\n    xdsArtikelEingangEndpreis.SetParentComponent(xdsArtikel);\r\n    xdsArtikelEingangEndpreis.Name := 'xdsArtikelEingangEndpreis';\r\n    xdsArtikelEingangEndpreis.FieldName := 'EingangEndpreis';\r\n    xdsArtikelAusgangMenge.SetParentComponent(xdsArtikel);\r\n    xdsArtikelAusgangMenge.Name := 'xdsArtikelAusgangMenge';\r\n    xdsArtikelAusgangMenge.FieldName := 'AusgangMenge';\r\n    xdsArtikelAusgangEndpreisEK.SetParentComponent(xdsArtikel);\r\n    xdsArtikelAusgangEndpreisEK.Name := 'xdsArtikelAusgangEndpreisEK';\r\n    xdsArtikelAusgangEndpreisEK.FieldName := 'AusgangEndpreisEK';\r\n    xdsArtikelAusgangEndpreisVK.SetParentComponent(xdsArtikel);\r\n    xdsArtikelAusgangEndpreisVK.Name := 'xdsArtikelAusgangEndpreisVK';\r\n    xdsArtikelAusgangEndpreisVK.FieldName := 'AusgangEndpreisVK';\r\n    xdsArtikelBestand.SetParentComponent(xdsArtikel);\r\n    xdsArtikelBestand.Name := 'xdsArtikelBestand';\r\n    xdsArtikelBestand.FieldName := 'Bestand';\r\n    xdsArtikelBestandswert.SetParentComponent(xdsArtikel);\r\n    xdsArtikelBestandswert.Name := 'xdsArtikelBestandswert';\r\n    xdsArtikelBestandswert.FieldName := 'Bestandswert';\r\n    xdsArtikelMarge.SetParentComponent(xdsArtikel);\r\n    xdsArtikelMarge.Name := 'xdsArtikelMarge';\r\n    xdsArtikelMarge.FieldName := 'Marge';\r\n    xdsArtikelMargeProzent.SetParentComponent(xdsArtikel);\r\n    xdsArtikelMargeProzent.Name := 'xdsArtikelMargeProzent';\r\n    xdsArtikelMargeProzent.FieldName := 'MargeProzent';\r\n    xdsArtikelArtikelnummer2.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArtikelnummer2.Name := 'xdsArtikelArtikelnummer2';\r\n    xdsArtikelArtikelnummer2.FieldName := 'Artikelnummer2';\r\n    xdsArtikelArtikelnummer2.Size := 25;\r\n    xdsArtikelArtikelmatchcode.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArtikelmatchcode.Name := 'xdsArtikelArtikelmatchcode';\r\n    xdsArtikelArtikelmatchcode.FieldName := 'Artikelmatchcode';\r\n    xdsArtikelArtikelmatchcode.Size := 30;\r\n    xdsArtikelRabattpreis1.SetParentComponent(xdsArtikel);\r\n    xdsArtikelRabattpreis1.Name := 'xdsArtikelRabattpreis1';\r\n    xdsArtikelRabattpreis1.FieldName := 'Rabattpreis1';\r\n    xdsArtikelRabattpreis2.SetParentComponent(xdsArtikel);\r\n    xdsArtikelRabattpreis2.Name := 'xdsArtikelRabattpreis2';\r\n    xdsArtikelRabattpreis2.FieldName := 'Rabattpreis2';\r\n    xdsArtikelRabattpreis3.SetParentComponent(xdsArtikel);\r\n    xdsArtikelRabattpreis3.Name := 'xdsArtikelRabattpreis3';\r\n    xdsArtikelRabattpreis3.FieldName := 'Rabattpreis3';\r\n    xdsArtikelRabattpreis4.SetParentComponent(xdsArtikel);\r\n    xdsArtikelRabattpreis4.Name := 'xdsArtikelRabattpreis4';\r\n    xdsArtikelRabattpreis4.FieldName := 'Rabattpreis4';\r\n    xdsArtikelRabattpreis5.SetParentComponent(xdsArtikel);\r\n    xdsArtikelRabattpreis5.Name := 'xdsArtikelRabattpreis5';\r\n    xdsArtikelRabattpreis5.FieldName := 'Rabattpreis5';\r\n    xdsArtikelArtikelnichtmehrgueltig.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArtikelnichtmehrgueltig.Name := 'xdsArtikelArtikelnichtmehrgueltig';\r\n    xdsArtikelArtikelnichtmehrgueltig.FieldName := 'Artikelnichtmehrgueltig';\r\n    xdsArtikelEinkaufspreis.SetParentComponent(xdsArtikel);\r\n    xdsArtikelEinkaufspreis.Name := 'xdsArtikelEinkaufspreis';\r\n    xdsArtikelEinkaufspreis.FieldName := 'Einkaufspreis';\r\n    xdsArtikelAufschlag.SetParentComponent(xdsArtikel);\r\n    xdsArtikelAufschlag.Name := 'xdsArtikelAufschlag';\r\n    xdsArtikelAufschlag.FieldName := 'Aufschlag';\r\n    xdsArtikelWarenbestand.SetParentComponent(xdsArtikel);\r\n    xdsArtikelWarenbestand.Name := 'xdsArtikelWarenbestand';\r\n    xdsArtikelWarenbestand.FieldName := 'Warenbestand';\r\n    xdsArtikelTextfrei10.SetParentComponent(xdsArtikel);\r\n    xdsArtikelTextfrei10.Name := 'xdsArtikelTextfrei10';\r\n    xdsArtikelTextfrei10.FieldName := 'Textfrei10';\r\n    xdsArtikelTextfrei10.Size := 50;\r\n    xdsArtikelTextfrei20.SetParentComponent(xdsArtikel);\r\n    xdsArtikelTextfrei20.Name := 'xdsArtikelTextfrei20';\r\n    xdsArtikelTextfrei20.FieldName := 'Textfrei20';\r\n    xdsArtikelTextfrei20.Size := 50;\r\n    xdsArtikelArtikelbeschreibungRTF.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArtikelbeschreibungRTF.Name := 'xdsArtikelArtikelbeschreibungRTF';\r\n    xdsArtikelArtikelbeschreibungRTF.FieldName := 'ArtikelbeschreibungRTF';\r\n    xdsArtikelArtikelbeschreibungRTF.Size := 255;\r\n    xdsArtikelArtikeldatei1.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArtikeldatei1.Name := 'xdsArtikelArtikeldatei1';\r\n    xdsArtikelArtikeldatei1.FieldName := 'Artikeldatei1';\r\n    xdsArtikelArtikeldatei1.Size := 255;\r\n    xdsArtikelArtikeldatei2.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArtikeldatei2.Name := 'xdsArtikelArtikeldatei2';\r\n    xdsArtikelArtikeldatei2.FieldName := 'Artikeldatei2';\r\n    xdsArtikelArtikeldatei2.Size := 255;\r\n    xdsArtikelArtikeldatei3.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArtikeldatei3.Name := 'xdsArtikelArtikeldatei3';\r\n    xdsArtikelArtikeldatei3.FieldName := 'Artikeldatei3';\r\n    xdsArtikelArtikeldatei3.Size := 255;\r\n    xdsArtikelArtikeldatei4.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArtikeldatei4.Name := 'xdsArtikelArtikeldatei4';\r\n    xdsArtikelArtikeldatei4.FieldName := 'Artikeldatei4';\r\n    xdsArtikelArtikeldatei4.Size := 255;\r\n    xdsArtikelArtikeldatei5.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArtikeldatei5.Name := 'xdsArtikelArtikeldatei5';\r\n    xdsArtikelArtikeldatei5.FieldName := 'Artikeldatei5';\r\n    xdsArtikelArtikeldatei5.Size := 255;\r\n    xdsArtikelEinkaufspreisVom.SetParentComponent(xdsArtikel);\r\n    xdsArtikelEinkaufspreisVom.Name := 'xdsArtikelEinkaufspreisVom';\r\n    xdsArtikelEinkaufspreisVom.FieldName := 'EinkaufspreisVom';\r\n    xdsArtikelEAN.SetParentComponent(xdsArtikel);\r\n    xdsArtikelEAN.Name := 'xdsArtikelEAN';\r\n    xdsArtikelEAN.FieldName := 'EAN';\r\n    xdsArtikelEAN.Size := 15;\r\n    xdsArtikelVGPFaktor.SetParentComponent(xdsArtikel);\r\n    xdsArtikelVGPFaktor.Name := 'xdsArtikelVGPFaktor';\r\n    xdsArtikelVGPFaktor.FieldName := 'VGPFaktor';\r\n    xdsArtikelVGPMengenart.SetParentComponent(xdsArtikel);\r\n    xdsArtikelVGPMengenart.Name := 'xdsArtikelVGPMengenart';\r\n    xdsArtikelVGPMengenart.FieldName := 'VGPMengenart';\r\n    xdsArtikelVGPMengenart.Size := 50;\r\n    xdsArtikelVerleihpreis.SetParentComponent(xdsArtikel);\r\n    xdsArtikelVerleihpreis.Name := 'xdsArtikelVerleihpreis';\r\n    xdsArtikelVerleihpreis.FieldName := 'Verleihpreis';\r\n    xdsArtikelZusatzPreis.SetParentComponent(xdsArtikel);\r\n    xdsArtikelZusatzPreis.Name := 'xdsArtikelZusatzPreis';\r\n    xdsArtikelZusatzPreis.FieldName := 'ZusatzPreis';\r\n    xdsArtikelVerpackungsart.SetParentComponent(xdsArtikel);\r\n    xdsArtikelVerpackungsart.Name := 'xdsArtikelVerpackungsart';\r\n    xdsArtikelVerpackungsart.FieldName := 'Verpackungsart';\r\n    xdsArtikelVerpackungsart.Size := 50;\r\n    xdsArtikelVerpackungsMenge.SetParentComponent(xdsArtikel);\r\n    xdsArtikelVerpackungsMenge.Name := 'xdsArtikelVerpackungsMenge';\r\n    xdsArtikelVerpackungsMenge.FieldName := 'VerpackungsMenge';\r\n    xdsArtikelQuellartikel.SetParentComponent(xdsArtikel);\r\n    xdsArtikelQuellartikel.Name := 'xdsArtikelQuellartikel';\r\n    xdsArtikelQuellartikel.FieldName := 'Quellartikel';\r\n    xdsArtikelQuellartikel.Size := 25;\r\n    xdsArtikelrabattierfaehig.SetParentComponent(xdsArtikel);\r\n    xdsArtikelrabattierfaehig.Name := 'xdsArtikelrabattierfaehig';\r\n    xdsArtikelrabattierfaehig.FieldName := 'rabattierfaehig';\r\n    xdsArtikelAngebotAlternativeAN.SetParentComponent(xdsArtikel);\r\n    xdsArtikelAngebotAlternativeAN.Name := 'xdsArtikelAngebotAlternativeAN';\r\n    xdsArtikelAngebotAlternativeAN.FieldName := 'AngebotAlternativeAN';\r\n    xdsArtikelAngebotAlternativeAN.Size := 25;\r\n    xdsArtikelPreisanteilNetto.SetParentComponent(xdsArtikel);\r\n    xdsArtikelPreisanteilNetto.Name := 'xdsArtikelPreisanteilNetto';\r\n    xdsArtikelPreisanteilNetto.FieldName := 'PreisanteilNetto';\r\n    xdsArtikelFarbe.SetParentComponent(xdsArtikel);\r\n    xdsArtikelFarbe.Name := 'xdsArtikelFarbe';\r\n    xdsArtikelFarbe.FieldName := 'Farbe';\r\n    xdsArtikelAEinkauf.SetParentComponent(xdsArtikel);\r\n    xdsArtikelAEinkauf.Name := 'xdsArtikelAEinkauf';\r\n    xdsArtikelAEinkauf.FieldName := 'AEinkauf';\r\n    xdsArtikelAVerkauf.SetParentComponent(xdsArtikel);\r\n    xdsArtikelAVerkauf.Name := 'xdsArtikelAVerkauf';\r\n    xdsArtikelAVerkauf.FieldName := 'AVerkauf';\r\n    xdsArtikelArtikelnummerLieferant.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArtikelnummerLieferant.Name := 'xdsArtikelArtikelnummerLieferant';\r\n    xdsArtikelArtikelnummerLieferant.FieldName := 'ArtikelnummerLieferant';\r\n    xdsArtikelArtikelnummerLieferant.Size := 25;\r\n    xdsArtikelLieferantnummer.SetParentComponent(xdsArtikel);\r\n    xdsArtikelLieferantnummer.Name := 'xdsArtikelLieferantnummer';\r\n    xdsArtikelLieferantnummer.FieldName := 'Lieferantnummer';\r\n    xdsArtikelLieferantnummer.Size := 13;\r\n    xdsArtikelVerkaufspreisBrutto.SetParentComponent(xdsArtikel);\r\n    xdsArtikelVerkaufspreisBrutto.Name := 'xdsArtikelVerkaufspreisBrutto';\r\n    xdsArtikelVerkaufspreisBrutto.FieldName := 'VerkaufspreisBrutto';\r\n    xdsArtikelArtikelSet.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArtikelSet.Name := 'xdsArtikelArtikelSet';\r\n    xdsArtikelArtikelSet.FieldName := 'ArtikelSet';\r\n    xdsArtikelProvisionssatz.SetParentComponent(xdsArtikel);\r\n    xdsArtikelProvisionssatz.Name := 'xdsArtikelProvisionssatz';\r\n    xdsArtikelProvisionssatz.FieldName := 'Provisionssatz';\r\n    xdsArtikelWarentarifnummer.SetParentComponent(xdsArtikel);\r\n    xdsArtikelWarentarifnummer.Name := 'xdsArtikelWarentarifnummer';\r\n    xdsArtikelWarentarifnummer.FieldName := 'Warentarifnummer';\r\n    xdsArtikelHandelsartikel.SetParentComponent(xdsArtikel);\r\n    xdsArtikelHandelsartikel.Name := 'xdsArtikelHandelsartikel';\r\n    xdsArtikelHandelsartikel.FieldName := 'Handelsartikel';\r\n    xdsArtikelUrsprungsland.SetParentComponent(xdsArtikel);\r\n    xdsArtikelUrsprungsland.Name := 'xdsArtikelUrsprungsland';\r\n    xdsArtikelUrsprungsland.FieldName := 'Ursprungsland';\r\n    xdsArtikelUrsprungsland.Size := 5;\r\n    xdsArtikelKategorie.SetParentComponent(xdsArtikel);\r\n    xdsArtikelKategorie.Name := 'xdsArtikelKategorie';\r\n    xdsArtikelKategorie.FieldName := 'Kategorie';\r\n    xdsArtikelKategorie.Size := 25;\r\n    xdsArtikelStandardRabattsatzEK.SetParentComponent(xdsArtikel);\r\n    xdsArtikelStandardRabattsatzEK.Name := 'xdsArtikelStandardRabattsatzEK';\r\n    xdsArtikelStandardRabattsatzEK.FieldName := 'StandardRabattsatzEK';\r\n    xdsArtikelStandardRabattsatzVK.SetParentComponent(xdsArtikel);\r\n    xdsArtikelStandardRabattsatzVK.Name := 'xdsArtikelStandardRabattsatzVK';\r\n    xdsArtikelStandardRabattsatzVK.FieldName := 'StandardRabattsatzVK';\r\n    xdsArtikelRabattpreiseManuell.SetParentComponent(xdsArtikel);\r\n    xdsArtikelRabattpreiseManuell.Name := 'xdsArtikelRabattpreiseManuell';\r\n    xdsArtikelRabattpreiseManuell.FieldName := 'RabattpreiseManuell';\r\n    xdsArtikelMengeBestellt.SetParentComponent(xdsArtikel);\r\n    xdsArtikelMengeBestellt.Name := 'xdsArtikelMengeBestellt';\r\n    xdsArtikelMengeBestellt.FieldName := 'MengeBestellt';\r\n    xdsArtikelMengeBeauftragt.SetParentComponent(xdsArtikel);\r\n    xdsArtikelMengeBeauftragt.Name := 'xdsArtikelMengeBeauftragt';\r\n    xdsArtikelMengeBeauftragt.FieldName := 'MengeBeauftragt';\r\n    xdsArtikelBestandDisponiert.SetParentComponent(xdsArtikel);\r\n    xdsArtikelBestandDisponiert.Name := 'xdsArtikelBestandDisponiert';\r\n    xdsArtikelBestandDisponiert.FieldName := 'BestandDisponiert';\r\n    xdsArtikelMengeAngeboten.SetParentComponent(xdsArtikel);\r\n    xdsArtikelMengeAngeboten.Name := 'xdsArtikelMengeAngeboten';\r\n    xdsArtikelMengeAngeboten.FieldName := 'MengeAngeboten';\r\n    xdsArtikelBestandDispInclAngebot.SetParentComponent(xdsArtikel);\r\n    xdsArtikelBestandDispInclAngebot.Name := 'xdsArtikelBestandDispInclAngebot';\r\n    xdsArtikelBestandDispInclAngebot.FieldName := 'BestandDispInclAngebot';\r\n    xdsArtikelMWStKey.SetParentComponent(xdsArtikel);\r\n    xdsArtikelMWStKey.Name := 'xdsArtikelMWStKey';\r\n    xdsArtikelMWStKey.FieldName := 'MWStKey';\r\n    xdsArtikelShopAmazon.SetParentComponent(xdsArtikel);\r\n    xdsArtikelShopAmazon.Name := 'xdsArtikelShopAmazon';\r\n    xdsArtikelShopAmazon.FieldName := 'ShopAmazon';\r\n    xdsArtikelShopQuelle.SetParentComponent(xdsArtikel);\r\n    xdsArtikelShopQuelle.Name := 'xdsArtikelShopQuelle';\r\n    xdsArtikelShopQuelle.FieldName := 'ShopQuelle';\r\n    xdsArtikelGeraet.SetParentComponent(xdsArtikel);\r\n    xdsArtikelGeraet.Name := 'xdsArtikelGeraet';\r\n    xdsArtikelGeraet.FieldName := 'Geraet';\r\n    xdsArtikelArtgewicht.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArtgewicht.Name := 'xdsArtikelArtgewicht';\r\n    xdsArtikelArtgewicht.FieldName := 'Artgewicht';\r\n    xdsArtikelVolumen.SetParentComponent(xdsArtikel);\r\n    xdsArtikelVolumen.Name := 'xdsArtikelVolumen';\r\n    xdsArtikelVolumen.FieldName := 'Volumen';\r\n    xdsArtikelPacklisteNichtAnzeigen.SetParentComponent(xdsArtikel);\r\n    xdsArtikelPacklisteNichtAnzeigen.Name := 'xdsArtikelPacklisteNichtAnzeigen';\r\n    xdsArtikelPacklisteNichtAnzeigen.FieldName := 'PacklisteNichtAnzeigen';\r\n    xdsArtikelKeineAufschlagskalkulation.SetParentComponent(xdsArtikel);\r\n    xdsArtikelKeineAufschlagskalkulation.Name := 'xdsArtikelKeineAufschlagskalkulation';\r\n    xdsArtikelKeineAufschlagskalkulation.FieldName := 'KeineAufschlagskalkulation';\r\n    xdsArtikelKorrekturMenge.SetParentComponent(xdsArtikel);\r\n    xdsArtikelKorrekturMenge.Name := 'xdsArtikelKorrekturMenge';\r\n    xdsArtikelKorrekturMenge.FieldName := 'KorrekturMenge';\r\n    xdsArtikelKorrekturWert.SetParentComponent(xdsArtikel);\r\n    xdsArtikelKorrekturWert.Name := 'xdsArtikelKorrekturWert';\r\n    xdsArtikelKorrekturWert.FieldName := 'KorrekturWert';\r\n    xdsArtikelNachfolgeartikel.SetParentComponent(xdsArtikel);\r\n    xdsArtikelNachfolgeartikel.Name := 'xdsArtikelNachfolgeartikel';\r\n    xdsArtikelNachfolgeartikel.FieldName := 'Nachfolgeartikel';\r\n    xdsArtikelNachfolgeartikel.Size := 25;\r\n    xdsArtikelMindestbestellmenge.SetParentComponent(xdsArtikel);\r\n    xdsArtikelMindestbestellmenge.Name := 'xdsArtikelMindestbestellmenge';\r\n    xdsArtikelMindestbestellmenge.FieldName := 'Mindestbestellmenge';\r\n    xdsArtikelSchnittEK.SetParentComponent(xdsArtikel);\r\n    xdsArtikelSchnittEK.Name := 'xdsArtikelSchnittEK';\r\n    xdsArtikelSchnittEK.FieldName := 'SchnittEK';\r\n    xdsArtikelVerkaufspreisVom.SetParentComponent(xdsArtikel);\r\n    xdsArtikelVerkaufspreisVom.Name := 'xdsArtikelVerkaufspreisVom';\r\n    xdsArtikelVerkaufspreisVom.FieldName := 'VerkaufspreisVom';\r\n    xdsArtikelPruefungChargeSNR.SetParentComponent(xdsArtikel);\r\n    xdsArtikelPruefungChargeSNR.Name := 'xdsArtikelPruefungChargeSNR';\r\n    xdsArtikelPruefungChargeSNR.FieldName := 'PruefungChargeSNR';\r\n    xdsArtikelArtikelbeschreibungHTML.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArtikelbeschreibungHTML.Name := 'xdsArtikelArtikelbeschreibungHTML';\r\n    xdsArtikelArtikelbeschreibungHTML.FieldName := 'ArtikelbeschreibungHTML';\r\n    xdsArtikelArtikelbeschreibungHTML.Size := 255;\r\n    xdsArtikelProduktKurzbeschreibungHTML.SetParentComponent(xdsArtikel);\r\n    xdsArtikelProduktKurzbeschreibungHTML.Name := 'xdsArtikelProduktKurzbeschreibungHTML';\r\n    xdsArtikelProduktKurzbeschreibungHTML.FieldName := 'ProduktKurzbeschreibungHTML';\r\n    xdsArtikelProduktKurzbeschreibungHTML.Size := 255;\r\n    xdsArtikelStatusFuerShop.SetParentComponent(xdsArtikel);\r\n    xdsArtikelStatusFuerShop.Name := 'xdsArtikelStatusFuerShop';\r\n    xdsArtikelStatusFuerShop.FieldName := 'StatusFuerShop';\r\n    xdsArtikelStatusFuerShop.Size := 25;\r\n    xdsArtikelAmpelFuerShop.SetParentComponent(xdsArtikel);\r\n    xdsArtikelAmpelFuerShop.Name := 'xdsArtikelAmpelFuerShop';\r\n    xdsArtikelAmpelFuerShop.FieldName := 'AmpelFuerShop';\r\n    xdsArtikelAmpelFuerShop.Size := 25;\r\n    xdsArtikelEXP_Anzahl.SetParentComponent(xdsArtikel);\r\n    xdsArtikelEXP_Anzahl.Name := 'xdsArtikelEXP_Anzahl';\r\n    xdsArtikelEXP_Anzahl.FieldName := 'EXP_Anzahl';\r\n    xdsArtikelEXP_Inhalt.SetParentComponent(xdsArtikel);\r\n    xdsArtikelEXP_Inhalt.Name := 'xdsArtikelEXP_Inhalt';\r\n    xdsArtikelEXP_Inhalt.FieldName := 'EXP_Inhalt';\r\n    xdsArtikelEXP_Faktor.SetParentComponent(xdsArtikel);\r\n    xdsArtikelEXP_Faktor.Name := 'xdsArtikelEXP_Faktor';\r\n    xdsArtikelEXP_Faktor.FieldName := 'EXP_Faktor';\r\n    xdsArtikelFach.SetParentComponent(xdsArtikel);\r\n    xdsArtikelFach.Name := 'xdsArtikelFach';\r\n    xdsArtikelFach.FieldName := 'Fach';\r\n    xdsArtikelExportKasse.SetParentComponent(xdsArtikel);\r\n    xdsArtikelExportKasse.Name := 'xdsArtikelExportKasse';\r\n    xdsArtikelExportKasse.FieldName := 'ExportKasse';\r\n    xdsArtikelWKNR.SetParentComponent(xdsArtikel);\r\n    xdsArtikelWKNR.Name := 'xdsArtikelWKNR';\r\n    xdsArtikelWKNR.FieldName := 'WKNR';\r\n    xdsArtikelArtikelAttribute.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArtikelAttribute.Name := 'xdsArtikelArtikelAttribute';\r\n    xdsArtikelArtikelAttribute.FieldName := 'ArtikelAttribute';\r\n    xdsArtikelArtikelAttribute.Size := 255;\r\n    xdsArtikelErstelltAm.SetParentComponent(xdsArtikel);\r\n    xdsArtikelErstelltAm.Name := 'xdsArtikelErstelltAm';\r\n    xdsArtikelErstelltAm.FieldName := 'ErstelltAm';\r\n    xdsArtikelVarianteVonAN.SetParentComponent(xdsArtikel);\r\n    xdsArtikelVarianteVonAN.Name := 'xdsArtikelVarianteVonAN';\r\n    xdsArtikelVarianteVonAN.FieldName := 'VarianteVonAN';\r\n    xdsArtikelVarianteVonAN.Size := 25;\r\n    xdsArtikelGurtmassWerte.SetParentComponent(xdsArtikel);\r\n    xdsArtikelGurtmassWerte.Name := 'xdsArtikelGurtmassWerte';\r\n    xdsArtikelGurtmassWerte.FieldName := 'GurtmassWerte';\r\n    xdsArtikelGurtmassWerte.Size := 250;\r\n    xdsArtikelGurtmass.SetParentComponent(xdsArtikel);\r\n    xdsArtikelGurtmass.Name := 'xdsArtikelGurtmass';\r\n    xdsArtikelGurtmass.FieldName := 'Gurtmass';\r\n    xdsArtikelAltersgrenze.SetParentComponent(xdsArtikel);\r\n    xdsArtikelAltersgrenze.Name := 'xdsArtikelAltersgrenze';\r\n    xdsArtikelAltersgrenze.FieldName := 'Altersgrenze';\r\n    xdsArtikelMWStKeyImHaus.SetParentComponent(xdsArtikel);\r\n    xdsArtikelMWStKeyImHaus.Name := 'xdsArtikelMWStKeyImHaus';\r\n    xdsArtikelMWStKeyImHaus.FieldName := 'MWStKeyImHaus';\r\n    xdsArtikelKasseBewegung.SetParentComponent(xdsArtikel);\r\n    xdsArtikelKasseBewegung.Name := 'xdsArtikelKasseBewegung';\r\n    xdsArtikelKasseBewegung.FieldName := 'KasseBewegung';\r\n    xdsArtikelKasseBewegungEK.SetParentComponent(xdsArtikel);\r\n    xdsArtikelKasseBewegungEK.Name := 'xdsArtikelKasseBewegungEK';\r\n    xdsArtikelKasseBewegungEK.FieldName := 'KasseBewegungEK';\r\n    xdsArtikelKasseBewegungVK.SetParentComponent(xdsArtikel);\r\n    xdsArtikelKasseBewegungVK.Name := 'xdsArtikelKasseBewegungVK';\r\n    xdsArtikelKasseBewegungVK.FieldName := 'KasseBewegungVK';\r\n    xdsArtikelProduktionBewegung.SetParentComponent(xdsArtikel);\r\n    xdsArtikelProduktionBewegung.Name := 'xdsArtikelProduktionBewegung';\r\n    xdsArtikelProduktionBewegung.FieldName := 'ProduktionBewegung';\r\n    xdsArtikelProduktionBewegungEK.SetParentComponent(xdsArtikel);\r\n    xdsArtikelProduktionBewegungEK.Name := 'xdsArtikelProduktionBewegungEK';\r\n    xdsArtikelProduktionBewegungEK.FieldName := 'ProduktionBewegungEK';\r\n    xdsArtikelProduktionBewegungVK.SetParentComponent(xdsArtikel);\r\n    xdsArtikelProduktionBewegungVK.Name := 'xdsArtikelProduktionBewegungVK';\r\n    xdsArtikelProduktionBewegungVK.FieldName := 'ProduktionBewegungVK';\r\n    xdsArtikelWaWiAB.SetParentComponent(xdsArtikel);\r\n    xdsArtikelWaWiAB.Name := 'xdsArtikelWaWiAB';\r\n    xdsArtikelWaWiAB.FieldName := 'WaWiAB';\r\n    xdsArtikelGeaendertAm.SetParentComponent(xdsArtikel);\r\n    xdsArtikelGeaendertAm.Name := 'xdsArtikelGeaendertAm';\r\n    xdsArtikelGeaendertAm.FieldName := 'GeaendertAm';\r\n    xdsArtikelGefahrgutKennzeichen.SetParentComponent(xdsArtikel);\r\n    xdsArtikelGefahrgutKennzeichen.Name := 'xdsArtikelGefahrgutKennzeichen';\r\n    xdsArtikelGefahrgutKennzeichen.FieldName := 'GefahrgutKennzeichen';\r\n    xdsArtikelGefahrgutKennzeichen.Size := 50;\r\n    xdsArtikelVerpackG.SetParentComponent(xdsArtikel);\r\n    xdsArtikelVerpackG.Name := 'xdsArtikelVerpackG';\r\n    xdsArtikelVerpackG.FieldName := 'VerpackG';\r\n    xdsArtikelUPE.SetParentComponent(xdsArtikel);\r\n    xdsArtikelUPE.Name := 'xdsArtikelUPE';\r\n    xdsArtikelUPE.FieldName := 'UPE';\r\n    xdsArtikelArtikelbeschreibungEinkauf.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArtikelbeschreibungEinkauf.Name := 'xdsArtikelArtikelbeschreibungEinkauf';\r\n    xdsArtikelArtikelbeschreibungEinkauf.FieldName := 'ArtikelbeschreibungEinkauf';\r\n    xdsArtikelArtikelbeschreibungEinkauf.Size := 255;\r\n    xdsArtikelHerstellerArtikelnummer.SetParentComponent(xdsArtikel);\r\n    xdsArtikelHerstellerArtikelnummer.Name := 'xdsArtikelHerstellerArtikelnummer';\r\n    xdsArtikelHerstellerArtikelnummer.FieldName := 'HerstellerArtikelnummer';\r\n    xdsArtikelHerstellerArtikelnummer.Size := 25;\r\n    xdsArtikelNatura.SetParentComponent(xdsArtikel);\r\n    xdsArtikelNatura.Name := 'xdsArtikelNatura';\r\n    xdsArtikelNatura.FieldName := 'Natura';\r\n    xdsArtikelNatura.Size := 5;\r\n    xdsArtikelArbeitszeit.SetParentComponent(xdsArtikel);\r\n    xdsArtikelArbeitszeit.Name := 'xdsArtikelArbeitszeit';\r\n    xdsArtikelArbeitszeit.FieldName := 'Arbeitszeit';\r\n    xdsArtikelPKey.SetParentComponent(xdsArtikel);\r\n    xdsArtikelPKey.Name := 'xdsArtikelPKey';\r\n    xdsArtikelPKey.FieldName := 'PKey';\r\n    xdsArtikelVersandklasse.SetParentComponent(xdsArtikel);\r\n    xdsArtikelVersandklasse.Name := 'xdsArtikelVersandklasse';\r\n    xdsArtikelVersandklasse.FieldName := 'Versandklasse';\r\n    xdsArtikelVersandklasse.Size := 25;\r\n    WClient.SetParentComponent(Self);\r\n    WClient.Name := 'WClient';\r\n    WClient.Connection := DM2.XDataWebConnection1;\r\n    WClient.Left := 144;\r\n    WClient.Top := 24;\r\n  finally\r\n    ResultLabel.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    TC.AfterLoadDFMValues;\r\n    container4.AfterLoadDFMValues;\r\n    Container5.AfterLoadDFMValues;\r\n    edtsuchbegriff.AfterLoadDFMValues;\r\n    btnSuche.AfterLoadDFMValues;\r\n    btnScan.AfterLoadDFMValues;\r\n    TCArtikel.AfterLoadDFMValues;\r\n    edtBMenge.AfterLoadDFMValues;\r\n    btnSpeichern.AfterLoadDFMValues;\r\n    btnEtikettendruck.AfterLoadDFMValues;\r\n    xdsBestellvormerkung.AfterLoadDFMValues;\r\n    xdsBestellvormerkungID.AfterLoadDFMValues;\r\n    xdsBestellvormerkungArtikelnummer.AfterLoadDFMValues;\r\n    xdsBestellvormerkungArtikelueberschrift.AfterLoadDFMValues;\r\n    xdsBestellvormerkungMenge.AfterLoadDFMValues;\r\n    xdsBestellvormerkungLieferantennummer.AfterLoadDFMValues;\r\n    xdsBestellvormerkungerstellt.AfterLoadDFMValues;\r\n    xdsBestellvormerkungBelegnummer.AfterLoadDFMValues;\r\n    xdsBestellvormerkungLieferantenname.AfterLoadDFMValues;\r\n    xdsArtikel.AfterLoadDFMValues;\r\n    xdsArtikelHersteller.AfterLoadDFMValues;\r\n    xdsArtikelHerstellerHersteller.AfterLoadDFMValues;\r\n    xdsArtikelHerstellerHerstellerID.AfterLoadDFMValues;\r\n    xdsArtikelHerstellerHerstellerURL.AfterLoadDFMValues;\r\n    xdsArtikelArtderMenge.AfterLoadDFMValues;\r\n    xdsArtikelArtderMengeArtderMenge.AfterLoadDFMValues;\r\n    xdsArtikelArtderMengeISO3.AfterLoadDFMValues;\r\n    xdsArtikelArtderMengeMengenauswahl.AfterLoadDFMValues;\r\n    xdsArtikelArtderMengeVGPauswahl.AfterLoadDFMValues;\r\n    xdsArtikelArtderMengeUVPauswahl.AfterLoadDFMValues;\r\n    xdsArtikelArtderMengeVKPDivisor.AfterLoadDFMValues;\r\n    xdsArtikelPfandArt.AfterLoadDFMValues;\r\n    xdsArtikelPfandArtPfandArt.AfterLoadDFMValues;\r\n    xdsArtikelPfandArtPfandWert.AfterLoadDFMValues;\r\n    xdsArtikelPfandArtPfandwertEK.AfterLoadDFMValues;\r\n    xdsArtikelWarengruppe.AfterLoadDFMValues;\r\n    xdsArtikelWarengruppeWarengruppe.AfterLoadDFMValues;\r\n    xdsArtikelWarengruppeWGNR.AfterLoadDFMValues;\r\n    xdsArtikelWarenuntergruppe.AfterLoadDFMValues;\r\n    xdsArtikelWarenuntergruppeWarenuntergruppe.AfterLoadDFMValues;\r\n    xdsArtikelWarenuntergruppeWarengruppe.AfterLoadDFMValues;\r\n    xdsArtikelWarenuntergruppeWUGNR.AfterLoadDFMValues;\r\n    xdsArtikelWarenuntergruppeWGNR.AfterLoadDFMValues;\r\n    xdsArtikelArtikelnummer.AfterLoadDFMValues;\r\n    xdsArtikelArtikelueberschrift.AfterLoadDFMValues;\r\n    xdsArtikelArtikelbeschreibung.AfterLoadDFMValues;\r\n    xdsArtikelVerkaufspreis.AfterLoadDFMValues;\r\n    xdsArtikelMindestbestand.AfterLoadDFMValues;\r\n    xdsArtikelPreisliste.AfterLoadDFMValues;\r\n    xdsArtikelGewicht.AfterLoadDFMValues;\r\n    xdsArtikelLaenge.AfterLoadDFMValues;\r\n    xdsArtikelBreite.AfterLoadDFMValues;\r\n    xdsArtikelHoehe.AfterLoadDFMValues;\r\n    xdsArtikelArtikelZusatz.AfterLoadDFMValues;\r\n    xdsArtikelLagerort.AfterLoadDFMValues;\r\n    xdsArtikelBuchungskonto.AfterLoadDFMValues;\r\n    xdsArtikelEingangMenge.AfterLoadDFMValues;\r\n    xdsArtikelEingangEndpreis.AfterLoadDFMValues;\r\n    xdsArtikelAusgangMenge.AfterLoadDFMValues;\r\n    xdsArtikelAusgangEndpreisEK.AfterLoadDFMValues;\r\n    xdsArtikelAusgangEndpreisVK.AfterLoadDFMValues;\r\n    xdsArtikelBestand.AfterLoadDFMValues;\r\n    xdsArtikelBestandswert.AfterLoadDFMValues;\r\n    xdsArtikelMarge.AfterLoadDFMValues;\r\n    xdsArtikelMargeProzent.AfterLoadDFMValues;\r\n    xdsArtikelArtikelnummer2.AfterLoadDFMValues;\r\n    xdsArtikelArtikelmatchcode.AfterLoadDFMValues;\r\n    xdsArtikelRabattpreis1.AfterLoadDFMValues;\r\n    xdsArtikelRabattpreis2.AfterLoadDFMValues;\r\n    xdsArtikelRabattpreis3.AfterLoadDFMValues;\r\n    xdsArtikelRabattpreis4.AfterLoadDFMValues;\r\n    xdsArtikelRabattpreis5.AfterLoadDFMValues;\r\n    xdsArtikelArtikelnichtmehrgueltig.AfterLoadDFMValues;\r\n    xdsArtikelEinkaufspreis.AfterLoadDFMValues;\r\n    xdsArtikelAufschlag.AfterLoadDFMValues;\r\n    xdsArtikelWarenbestand.AfterLoadDFMValues;\r\n    xdsArtikelTextfrei10.AfterLoadDFMValues;\r\n    xdsArtikelTextfrei20.AfterLoadDFMValues;\r\n    xdsArtikelArtikelbeschreibungRTF.AfterLoadDFMValues;\r\n    xdsArtikelArtikeldatei1.AfterLoadDFMValues;\r\n    xdsArtikelArtikeldatei2.AfterLoadDFMValues;\r\n    xdsArtikelArtikeldatei3.AfterLoadDFMValues;\r\n    xdsArtikelArtikeldatei4.AfterLoadDFMValues;\r\n    xdsArtikelArtikeldatei5.AfterLoadDFMValues;\r\n    xdsArtikelEinkaufspreisVom.AfterLoadDFMValues;\r\n    xdsArtikelEAN.AfterLoadDFMValues;\r\n    xdsArtikelVGPFaktor.AfterLoadDFMValues;\r\n    xdsArtikelVGPMengenart.AfterLoadDFMValues;\r\n    xdsArtikelVerleihpreis.AfterLoadDFMValues;\r\n    xdsArtikelZusatzPreis.AfterLoadDFMValues;\r\n    xdsArtikelVerpackungsart.AfterLoadDFMValues;\r\n    xdsArtikelVerpackungsMenge.AfterLoadDFMValues;\r\n    xdsArtikelQuellartikel.AfterLoadDFMValues;\r\n    xdsArtikelrabattierfaehig.AfterLoadDFMValues;\r\n    xdsArtikelAngebotAlternativeAN.AfterLoadDFMValues;\r\n    xdsArtikelPreisanteilNetto.AfterLoadDFMValues;\r\n    xdsArtikelFarbe.AfterLoadDFMValues;\r\n    xdsArtikelAEinkauf.AfterLoadDFMValues;\r\n    xdsArtikelAVerkauf.AfterLoadDFMValues;\r\n    xdsArtikelArtikelnummerLieferant.AfterLoadDFMValues;\r\n    xdsArtikelLieferantnummer.AfterLoadDFMValues;\r\n    xdsArtikelVerkaufspreisBrutto.AfterLoadDFMValues;\r\n    xdsArtikelArtikelSet.AfterLoadDFMValues;\r\n    xdsArtikelProvisionssatz.AfterLoadDFMValues;\r\n    xdsArtikelWarentarifnummer.AfterLoadDFMValues;\r\n    xdsArtikelHandelsartikel.AfterLoadDFMValues;\r\n    xdsArtikelUrsprungsland.AfterLoadDFMValues;\r\n    xdsArtikelKategorie.AfterLoadDFMValues;\r\n    xdsArtikelStandardRabattsatzEK.AfterLoadDFMValues;\r\n    xdsArtikelStandardRabattsatzVK.AfterLoadDFMValues;\r\n    xdsArtikelRabattpreiseManuell.AfterLoadDFMValues;\r\n    xdsArtikelMengeBestellt.AfterLoadDFMValues;\r\n    xdsArtikelMengeBeauftragt.AfterLoadDFMValues;\r\n    xdsArtikelBestandDisponiert.AfterLoadDFMValues;\r\n    xdsArtikelMengeAngeboten.AfterLoadDFMValues;\r\n    xdsArtikelBestandDispInclAngebot.AfterLoadDFMValues;\r\n    xdsArtikelMWStKey.AfterLoadDFMValues;\r\n    xdsArtikelShopAmazon.AfterLoadDFMValues;\r\n    xdsArtikelShopQuelle.AfterLoadDFMValues;\r\n    xdsArtikelGeraet.AfterLoadDFMValues;\r\n    xdsArtikelArtgewicht.AfterLoadDFMValues;\r\n    xdsArtikelVolumen.AfterLoadDFMValues;\r\n    xdsArtikelPacklisteNichtAnzeigen.AfterLoadDFMValues;\r\n    xdsArtikelKeineAufschlagskalkulation.AfterLoadDFMValues;\r\n    xdsArtikelKorrekturMenge.AfterLoadDFMValues;\r\n    xdsArtikelKorrekturWert.AfterLoadDFMValues;\r\n    xdsArtikelNachfolgeartikel.AfterLoadDFMValues;\r\n    xdsArtikelMindestbestellmenge.AfterLoadDFMValues;\r\n    xdsArtikelSchnittEK.AfterLoadDFMValues;\r\n    xdsArtikelVerkaufspreisVom.AfterLoadDFMValues;\r\n    xdsArtikelPruefungChargeSNR.AfterLoadDFMValues;\r\n    xdsArtikelArtikelbeschreibungHTML.AfterLoadDFMValues;\r\n    xdsArtikelProduktKurzbeschreibungHTML.AfterLoadDFMValues;\r\n    xdsArtikelStatusFuerShop.AfterLoadDFMValues;\r\n    xdsArtikelAmpelFuerShop.AfterLoadDFMValues;\r\n    xdsArtikelEXP_Anzahl.AfterLoadDFMValues;\r\n    xdsArtikelEXP_Inhalt.AfterLoadDFMValues;\r\n    xdsArtikelEXP_Faktor.AfterLoadDFMValues;\r\n    xdsArtikelFach.AfterLoadDFMValues;\r\n    xdsArtikelExportKasse.AfterLoadDFMValues;\r\n    xdsArtikelWKNR.AfterLoadDFMValues;\r\n    xdsArtikelArtikelAttribute.AfterLoadDFMValues;\r\n    xdsArtikelErstelltAm.AfterLoadDFMValues;\r\n    xdsArtikelVarianteVonAN.AfterLoadDFMValues;\r\n    xdsArtikelGurtmassWerte.AfterLoadDFMValues;\r\n    xdsArtikelGurtmass.AfterLoadDFMValues;\r\n    xdsArtikelAltersgrenze.AfterLoadDFMValues;\r\n    xdsArtikelMWStKeyImHaus.AfterLoadDFMValues;\r\n    xdsArtikelKasseBewegung.AfterLoadDFMValues;\r\n    xdsArtikelKasseBewegungEK.AfterLoadDFMValues;\r\n    xdsArtikelKasseBewegungVK.AfterLoadDFMValues;\r\n    xdsArtikelProduktionBewegung.AfterLoadDFMValues;\r\n    xdsArtikelProduktionBewegungEK.AfterLoadDFMValues;\r\n    xdsArtikelProduktionBewegungVK.AfterLoadDFMValues;\r\n    xdsArtikelWaWiAB.AfterLoadDFMValues;\r\n    xdsArtikelGeaendertAm.AfterLoadDFMValues;\r\n    xdsArtikelGefahrgutKennzeichen.AfterLoadDFMValues;\r\n    xdsArtikelVerpackG.AfterLoadDFMValues;\r\n    xdsArtikelUPE.AfterLoadDFMValues;\r\n    xdsArtikelArtikelbeschreibungEinkauf.AfterLoadDFMValues;\r\n    xdsArtikelHerstellerArtikelnummer.AfterLoadDFMValues;\r\n    xdsArtikelNatura.AfterLoadDFMValues;\r\n    xdsArtikelArbeitszeit.AfterLoadDFMValues;\r\n    xdsArtikelPKey.AfterLoadDFMValues;\r\n    xdsArtikelVersandklasse.AfterLoadDFMValues;\r\n    WClient.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.","unit unit_TelefonSuche;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Data.DB, WEBLib.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, XData.Web.Connection, Vcl.Controls, Vcl.StdCtrls,\r\n  WEBLib.StdCtrls, WEBLib.ExtCtrls, Vcl.Grids, WEBLib.DBCtrls,\r\n  strutils, WEBLib.Grids, WEBLib.Buttons, DB;\r\n\r\ntype\r\n  TfrmTelefonSuche = class(TForm)\r\n    DataSet: TXDataWebDataSet;\r\n    Source: TDataSource;\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    Container3: THTMLContainer;\r\n    TC: TTableControl;\r\n    btnzurueck: TButton;\r\n    edtSuchbegriff: TEdit;\r\n    ResultLabel: TLabel;\r\n    DataSetTelefonnummer: TStringField;\r\n    DataSetKundennummer: TStringField;\r\n    DataSetAPID: TStringField;\r\n    DataSetTeilnehmer: TStringField;\r\n    DataSetTelefonTyp: TStringField;\r\n    DataSetweitere: TBooleanField;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure DataSetAfterOpen(DataSet: TDataSet);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n    procedure edtSuchbegriffChange(Sender: TObject);\r\n\r\n    public\r\n    Kontaktnummer:string;\r\n    weiterzuEinzelkontakt:boolean;\r\n    buttonkundennummer:TButton;\r\n    procedure buttonkundennummerclick(Sender:TObject);\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  frmTelefonSuche: TfrmTelefonSuche;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_EinzelKontakt;\r\n{$R *.dfm}\r\n\r\n\r\nprocedure TfrmTelefonSuche.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  self.Close;\r\nend;\r\n\r\nprocedure TfrmTelefonSuche.buttonkundennummerclick(Sender:TObject);\r\nvar\r\n  MFrm:TEinzelkontakt;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      MForm:TEinzelkontakt;\r\n    begin\r\n      MForm:=(AForm as TEinzelkontakt);\r\n      MForm.KundennummerID:=Kontaktnummer;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      edtsuchbegriffChange(nil);\r\n    end;\r\n\r\n  begin\r\n\r\n  Kontaktnummer:=(sender as TButton).Caption;\r\n  if length(Kontaktnummer)<5 then\r\n  begin\r\n    showmessage('Kontaktdaten sind nicht verfügbar');\r\n  end\r\n  else\r\n  begin\r\n    if weiterzueinzelkontakt then\r\n    begin\r\n      Container3.HTML.Text:='';\r\n      MFrm:=TEinzelkontakt.CreateNew(@AfterCreate);\r\n      MFrm.ShowModal(@AfterShowmodal);\r\n    end\r\n    else\r\n    begin\r\n      self.Close;\r\n    end;\r\n  end;\r\nend;\r\n\r\n\r\n\r\nprocedure TfrmTelefonSuche.DataSetAfterOpen(DataSet: TDataSet);\r\nvar\r\n  i:integer;\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  myelement:=container3.ElementHandle;\r\n  tc.ParentElement:=myelement;\r\n  i:=0;\r\n  TC.visible:=true;\r\n  TC.ColCount:=3;\r\n  tc.RowCount:=dataset.RecordCount+1;\r\n  tc.Cells[0,i]:='<b>Kundennummer';\r\n  tc.Cells[1,i]:='<b>Telefonnummer';\r\n  tc.Cells[2,i]:='<b>Teilnehmer';\r\n  dataset.First;\r\n  if dataset.RecordCount=0 then resultlabel.Caption:='nichts gefunden';\r\n  if dataset.RecordCount>0 then resultlabel.Caption:='Übereinstimmungen: '+inttostr(dataset.RecordCount);\r\n  if dataset.RecordCount>20 then resultlabel.Caption:='mehr als 20 Übereinstimmungen';\r\n\r\n  while not dataset.eof do\r\n  begin\r\n    inc(i);\r\n    myelement:=TC.cellelements[0,i];\r\n    myelement.innerHTML:='';\r\n    buttonkundennummer:=TButton.Create(self);\r\n    buttonkundennummer.ElementClassName:='btn btn-sm btn-info';\r\n    buttonkundennummer.HeightStyle:=ssauto;\r\n    buttonkundennummer.Width:=150;\r\n    buttonkundennummer.tag:=0;\r\n    buttonkundennummer.Caption:=DataSetKundennummer.AsString;\r\n    buttonkundennummer.OnClick:=@buttonkundennummerClick;\r\n    buttonkundennummer.ParentElement:=myelement;\r\n    TC.Cells[1,i]:=DataSetTelefonnummer.AsString;\r\n    TC.Cells[2,i]:=DataSetTeilnehmer.AsString;\r\n    dataset.Next;\r\n  end;\r\n\r\nend;\r\n\r\n\r\n\r\nprocedure TfrmTelefonSuche.edtSuchbegriffChange(Sender: TObject);\r\nvar\r\n  suchtextkontakt:string;\r\nbegin\r\n  suchtextkontakt:=edtsuchbegriff.Text;\r\n  if length(suchtextkontakt)>0 then\r\n  begin\r\n  dataset.Close;\r\n  dataset.QueryString:='$filter=contains(Telefonnummer, '''+edtsuchbegriff.Text+''')';\r\n  dataset.Load;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TfrmTelefonSuche.WebFormShow(Sender: TObject);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Telefonnummernsuche</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  container2.ParentElement:=myelement;\r\n  Container3.ParentElement:=myelement;\r\n  myelement:=container2.ElementHandle;\r\n  resultlabel.Caption:='Suchbegriff';\r\n  resultlabel.ParentElement:=myelement;\r\n  edtsuchbegriff.ParentElement:=myelement;\r\n  TC.Visible:=false;\r\n  Kontaktnummer:='';\r\n  edtsuchbegriff.SetFocus;\r\nend;\r\n\r\nprocedure TfrmTelefonSuche.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  ResultLabel := TLabel.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  TC := TTableControl.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  edtSuchbegriff := TEdit.Create(Self);\r\n  DataSet := TXDataWebDataSet.Create(Self);\r\n  DataSetTelefonnummer := TStringField.Create(Self);\r\n  DataSetKundennummer := TStringField.Create(Self);\r\n  DataSetAPID := TStringField.Create(Self);\r\n  DataSetTeilnehmer := TStringField.Create(Self);\r\n  DataSetTelefonTyp := TStringField.Create(Self);\r\n  DataSetweitere := TBooleanField.Create(Self);\r\n  Source := TDataSource.Create(Self);\r\n\r\n  ResultLabel.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  TC.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  edtSuchbegriff.BeforeLoadDFMValues;\r\n  DataSet.BeforeLoadDFMValues;\r\n  DataSetTelefonnummer.BeforeLoadDFMValues;\r\n  DataSetKundennummer.BeforeLoadDFMValues;\r\n  DataSetAPID.BeforeLoadDFMValues;\r\n  DataSetTeilnehmer.BeforeLoadDFMValues;\r\n  DataSetTelefonTyp.BeforeLoadDFMValues;\r\n  DataSetweitere.BeforeLoadDFMValues;\r\n  Source.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'frmTelefonSuche';\r\n    Width := 223;\r\n    Height := 376;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    ResultLabel.SetParentComponent(Self);\r\n    ResultLabel.Name := 'ResultLabel';\r\n    ResultLabel.Left := 114;\r\n    ResultLabel.Top := 231;\r\n    ResultLabel.Width := 60;\r\n    ResultLabel.Height := 15;\r\n    ResultLabel.Caption := 'ResultLabel';\r\n    ResultLabel.ElementClassName := 'h6 m-2';\r\n    ResultLabel.ElementFont := efCSS;\r\n    ResultLabel.ElementPosition := epIgnore;\r\n    ResultLabel.HeightStyle := ssAuto;\r\n    ResultLabel.HeightPercent := 100.000000000000000000;\r\n    ResultLabel.WidthStyle := ssPercent;\r\n    ResultLabel.WidthPercent := 100.000000000000000000;\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 2;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.Left := 0;\r\n    TC.Top := 141;\r\n    TC.Width := 169;\r\n    TC.Height := 79;\r\n    TC.ElementClassName := 'table table-hover table-bordered table-striped';\r\n    TC.HeightStyle := ssAuto;\r\n    TC.WidthStyle := ssPercent;\r\n    TC.BorderColor := clSilver;\r\n    TC.ChildOrder := 3;\r\n    TC.ColHeader := False;\r\n    TC.ElementFont := efCSS;\r\n    TC.ElementHeaderClassName := 'table-info';\r\n    TC.ElementPosition := epIgnore;\r\n    TC.ElementTableClassName := 'table table-hover table-bordered table-striped';\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 1;\r\n    TC.RowCount := 5;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 0;\r\n    btnzurueck.Top := 226;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    edtSuchbegriff.SetParentComponent(Self);\r\n    edtSuchbegriff.Name := 'edtSuchbegriff';\r\n    edtSuchbegriff.Left := 8;\r\n    edtSuchbegriff.Top := 296;\r\n    edtSuchbegriff.Width := 150;\r\n    edtSuchbegriff.Height := 22;\r\n    edtSuchbegriff.ChildOrder := 6;\r\n    edtSuchbegriff.ElementClassName := 'form-control input-sm m-1';\r\n    edtSuchbegriff.ElementFont := efCSS;\r\n    edtSuchbegriff.ElementPosition := epIgnore;\r\n    edtSuchbegriff.HeightStyle := ssAuto;\r\n    edtSuchbegriff.HeightPercent := 100.000000000000000000;\r\n    edtSuchbegriff.ShowHint := True;\r\n    edtSuchbegriff.TextHint := 'Suchbegriff eingeben';\r\n    edtSuchbegriff.WidthPercent := 60.000000000000000000;\r\n    SetEvent(edtSuchbegriff, Self, 'OnChange', 'edtSuchbegriffChange');\r\n    DataSet.SetParentComponent(Self);\r\n    DataSet.Name := 'DataSet';\r\n    DataSet.AfterOpen := DataSetAfterOpen;\r\n    DataSet.EntitySetName := 'Telefonnummern';\r\n    DataSet.Connection := DM2.XDataWebConnection1;\r\n    DataSet.QueryTop := 20;\r\n    DataSet.Left := 8;\r\n    DataSet.Top := 56;\r\n    DataSetTelefonnummer.SetParentComponent(DataSet);\r\n    DataSetTelefonnummer.Name := 'DataSetTelefonnummer';\r\n    DataSetTelefonnummer.FieldName := 'Telefonnummer';\r\n    DataSetTelefonnummer.Required := True;\r\n    DataSetTelefonnummer.Size := 25;\r\n    DataSetKundennummer.SetParentComponent(DataSet);\r\n    DataSetKundennummer.Name := 'DataSetKundennummer';\r\n    DataSetKundennummer.FieldName := 'Kundennummer';\r\n    DataSetKundennummer.Size := 13;\r\n    DataSetAPID.SetParentComponent(DataSet);\r\n    DataSetAPID.Name := 'DataSetAPID';\r\n    DataSetAPID.FieldName := 'APID';\r\n    DataSetAPID.Size := 38;\r\n    DataSetTeilnehmer.SetParentComponent(DataSet);\r\n    DataSetTeilnehmer.Name := 'DataSetTeilnehmer';\r\n    DataSetTeilnehmer.FieldName := 'Teilnehmer';\r\n    DataSetTeilnehmer.Size := 150;\r\n    DataSetTelefonTyp.SetParentComponent(DataSet);\r\n    DataSetTelefonTyp.Name := 'DataSetTelefonTyp';\r\n    DataSetTelefonTyp.FieldName := 'TelefonTyp';\r\n    DataSetTelefonTyp.Size := 25;\r\n    DataSetweitere.SetParentComponent(DataSet);\r\n    DataSetweitere.Name := 'DataSetweitere';\r\n    DataSetweitere.FieldName := 'weitere';\r\n    Source.SetParentComponent(Self);\r\n    Source.Name := 'Source';\r\n    Source.DataSet := DataSet;\r\n    Source.Left := 56;\r\n    Source.Top := 56;\r\n  finally\r\n    ResultLabel.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    TC.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    edtSuchbegriff.AfterLoadDFMValues;\r\n    DataSet.AfterLoadDFMValues;\r\n    DataSetTelefonnummer.AfterLoadDFMValues;\r\n    DataSetKundennummer.AfterLoadDFMValues;\r\n    DataSetAPID.AfterLoadDFMValues;\r\n    DataSetTeilnehmer.AfterLoadDFMValues;\r\n    DataSetTelefonTyp.AfterLoadDFMValues;\r\n    DataSetweitere.AfterLoadDFMValues;\r\n    Source.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit unit_EinzelMitteilung;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, DB, Vcl.Controls, WEBLib.Grids, strutils,\r\n  XData.Web.JsonDataset, XData.Web.Dataset, Vcl.StdCtrls, WEBLib.StdCtrls;\r\n\r\ntype\r\n  TEinzelMitteilung = class(TForm)\r\n    TC: TTableControl;\r\n    xdsMitteilung: TXDataWebDataSet;\r\n    sourceMitteilung: TDataSource;\r\n    xdsMitteilungMSGBoardID: TXDataWebEntityField;\r\n    xdsMitteilungMSGBoardIDFromPersonalnummer: TXDataWebEntityField;\r\n    xdsMitteilungMSGBoardIDID: TStringField;\r\n    xdsMitteilungMSGBoardIDDatum: TDateTimeField;\r\n    xdsMitteilungMSGBoardIDFromNachname: TStringField;\r\n    xdsMitteilungMSGBoardIDFromVorname: TStringField;\r\n    xdsMitteilungMSGBoardIDBetreff: TStringField;\r\n    xdsMitteilungMSGBoardIDNotiz: TStringField;\r\n    xdsMitteilungToPersonalnummer: TXDataWebEntityField;\r\n    xdsMitteilungToPersonalnummerPersonalnummer: TIntegerField;\r\n    xdsMitteilungMSGBoardSubID: TStringField;\r\n    xdsMitteilungToNachname: TStringField;\r\n    xdsMitteilungToVorname: TStringField;\r\n    xdsMitteilungDatumGelesen: TDateTimeField;\r\n    xdsMitteilungDatumErledigt: TDateTimeField;\r\n    xdsMitteilungMSGBoardIDFromPersonalnummerPersonalnummer: TIntegerField;\r\n    btnGelesen: TButton;\r\n    btnErledigt: TButton;\r\n    btnzurueck: TButton;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure xdsMitteilungAfterOpen(DataSet: TDataSet);\r\n    procedure btnGelesenClick(Sender: TObject);\r\n    procedure WebFormClose(Sender: TObject; var Action: TCloseAction);\r\n    procedure btnErledigtClick(Sender: TObject);\r\n    procedure xdsMitteilungAfterPost(DataSet: TDataSet);\r\n    procedure xdsMitteilungAfterApplyUpdates(Sender: TDataSet;\r\n      Info: TResolveResults);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    MerkerMitteilung:string;\r\n    ArtMitteilung:integer;\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  EinzelMitteilung: TEinzelMitteilung;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_Mitteilungen;\r\n{$R *.dfm}\r\n\r\nprocedure TEinzelMitteilung.btnErledigtClick(Sender: TObject);\r\nbegin\r\n  xdsmitteilung.Edit;\r\n  if xdsMitteilungDatumGelesen.IsNull then xdsMitteilungDatumGelesen.AsDateTime:=date+time;\r\n  xdsMitteilungDatumErledigt.AsDateTime:=date+time;\r\n  xdsmitteilung.Post;\r\nend;\r\n\r\nprocedure TEinzelMitteilung.btnGelesenClick(Sender: TObject);\r\nbegin\r\n  xdsmitteilung.Edit;\r\n  xdsMitteilungDatumGelesen.AsDateTime:=date+time;\r\n  xdsmitteilung.Post;\r\nend;\r\n\r\nprocedure TEinzelMitteilung.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  xdsMitteilung.Close;\r\n  self.close;\r\nend;\r\n\r\nprocedure TEinzelMitteilung.WebFormClose(Sender: TObject;\r\n  var Action: TCloseAction);\r\nbegin\r\naction:=cafree;\r\nend;\r\n\r\nprocedure TEinzelMitteilung.WebFormShow(Sender: TObject);\r\nbegin\r\n  if MerkerMitteilung<>'' then\r\n  begin\r\n    xdsMitteilung.Close;\r\n    xdsMitteilung.QueryString:='$expand=MSGBoardID, ToPersonalnummer, MSGBoardID/FromPersonalnummer&$filter=MSGBoardSubID eq '+QuotedStr(MerkerMitteilung);\r\n    xdsMitteilung.Load;\r\n  end;\r\nend;\r\n\r\nprocedure TEinzelMitteilung.xdsMitteilungAfterApplyUpdates(Sender: TDataSet;\r\n  Info: TResolveResults);\r\nbegin\r\n  if info.Records[0].Error<>'' then showmessage(info.Records[0].Error);\r\n  xdsMitteilung.Close;\r\n  xdsMitteilung.load;\r\nend;\r\n\r\nprocedure TEinzelMitteilung.xdsMitteilungAfterOpen(DataSet: TDataSet);\r\nvar\r\n  i:integer;\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  i:=0;\r\n  TC.ColCount:=2;\r\n  tc.rowcount:=10;\r\n  TC.Cells[1,i]:='<h4>Einzel-Mitteilung (erhalten)';\r\n  if ArtMitteilung=2 then TC.Cells[1,i]:='<h4>Einzel-Mitteilung (gesendet)';\r\n\r\n\r\n  inc(i);\r\n  myelement:=TC.cellelements[0,i];\r\n  btnzurueck.ParentElement:=myelement;\r\n  inc(i);\r\n  TC.Cells[0,i]:='<small>Datum';\r\n  TC.Cells[1,i]:=formatdatetime('DD.MM.YYYY hh:mm:ss',xdsMitteilungMSGBoardIDDatum.asdatetime);\r\n  inc(i);\r\n  TC.Cells[0,i]:='<small>Betreff';\r\n  TC.Cells[1,i]:='<h4>'+xdsMitteilungMSGBoardIDBetreff.asstring+'</h4>';\r\n  inc(i);\r\n  TC.Cells[0,i]:='<small>Notiz';\r\n  TC.Cells[1,i]:='<h6>'+ReplaceStr(xdsMitteilungMSGBoardIDNotiz.asstring,#13+#10,'<BR>')+'</h6>';\r\n  inc(i);\r\n  TC.Cells[0,i]:='<small>von';\r\n  TC.Cells[1,i]:=xdsMitteilungMSGBoardIDFromNachname.asstring+', '+xdsMitteilungMSGBoardIDFromVorname.asstring+' ('+xdsMitteilungMSGBoardIDFromPersonalnummerPersonalnummer.asstring+')';\r\n  inc(i);\r\n  TC.Cells[0,i]:='<small>an';\r\n  TC.Cells[1,i]:=xdsMitteilungToNachname.asstring+', '+xdsMitteilungToVorname.asstring+' ('+xdsMitteilungToPersonalnummerPersonalnummer.asstring+')';\r\n\r\n  inc(i);\r\n  TC.Cells[0,i]:='<small>gelesen';\r\n  if not xdsMitteilungDatumGelesen.IsNull then\r\n  begin\r\n    TC.Cells[1,i]:=formatdatetime('DD.MM.YYYY hh:mm:ss',xdsMitteilungDatumGelesen.asdatetime);\r\n  end\r\n  else\r\n  begin\r\n    if ArtMitteilung=2 then\r\n    begin\r\n      TC.Cells[1,i]:='noch nicht gelesen';\r\n    end\r\n    else\r\n    begin\r\n      myelement:=TC.cellelements[1,i];\r\n      btnGelesen.ParentElement:=myelement;\r\n    end;\r\n  end;\r\n\r\n  inc(i);\r\n  TC.Cells[0,i]:='<small>erledigt';\r\n  if not xdsMitteilungDatumErledigt.IsNull then\r\n  begin\r\n    TC.Cells[1,i]:=formatdatetime('DD.MM.YYYY hh:mm:ss',xdsMitteilungDatumErledigt.asdatetime);\r\n  end\r\n  else\r\n  begin\r\n    if ArtMitteilung=2 then\r\n    begin\r\n      TC.Cells[1,i]:='noch nicht erledigt';\r\n    end\r\n    else\r\n    begin\r\n      myelement:=TC.cellelements[1,i];\r\n      btnErledigt.ParentElement:=myelement;\r\n    end;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TEinzelMitteilung.xdsMitteilungAfterPost(DataSet: TDataSet);\r\nbegin\r\n  if LizenzOK then\r\n  begin\r\n    xdsMitteilung.ApplyUpdates;\r\n  end\r\n  else\r\n  begin\r\n    showmessage('Für das Speichern von Daten sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n  end;\r\nend;\r\n\r\nprocedure TEinzelMitteilung.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  TC := TTableControl.Create(Self);\r\n  btnGelesen := TButton.Create(Self);\r\n  btnErledigt := TButton.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  xdsMitteilung := TXDataWebDataSet.Create(Self);\r\n  xdsMitteilungMSGBoardID := TXDataWebEntityField.Create(Self);\r\n  xdsMitteilungMSGBoardIDFromPersonalnummer := TXDataWebEntityField.Create(Self);\r\n  xdsMitteilungMSGBoardIDID := TStringField.Create(Self);\r\n  xdsMitteilungMSGBoardIDDatum := TDateTimeField.Create(Self);\r\n  xdsMitteilungMSGBoardIDFromNachname := TStringField.Create(Self);\r\n  xdsMitteilungMSGBoardIDFromVorname := TStringField.Create(Self);\r\n  xdsMitteilungMSGBoardIDBetreff := TStringField.Create(Self);\r\n  xdsMitteilungMSGBoardIDNotiz := TStringField.Create(Self);\r\n  xdsMitteilungToPersonalnummer := TXDataWebEntityField.Create(Self);\r\n  xdsMitteilungToPersonalnummerPersonalnummer := TIntegerField.Create(Self);\r\n  xdsMitteilungMSGBoardSubID := TStringField.Create(Self);\r\n  xdsMitteilungToNachname := TStringField.Create(Self);\r\n  xdsMitteilungToVorname := TStringField.Create(Self);\r\n  xdsMitteilungDatumGelesen := TDateTimeField.Create(Self);\r\n  xdsMitteilungDatumErledigt := TDateTimeField.Create(Self);\r\n  xdsMitteilungMSGBoardIDFromPersonalnummerPersonalnummer := TIntegerField.Create(Self);\r\n  sourceMitteilung := TDataSource.Create(Self);\r\n\r\n  TC.BeforeLoadDFMValues;\r\n  btnGelesen.BeforeLoadDFMValues;\r\n  btnErledigt.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  xdsMitteilung.BeforeLoadDFMValues;\r\n  xdsMitteilungMSGBoardID.BeforeLoadDFMValues;\r\n  xdsMitteilungMSGBoardIDFromPersonalnummer.BeforeLoadDFMValues;\r\n  xdsMitteilungMSGBoardIDID.BeforeLoadDFMValues;\r\n  xdsMitteilungMSGBoardIDDatum.BeforeLoadDFMValues;\r\n  xdsMitteilungMSGBoardIDFromNachname.BeforeLoadDFMValues;\r\n  xdsMitteilungMSGBoardIDFromVorname.BeforeLoadDFMValues;\r\n  xdsMitteilungMSGBoardIDBetreff.BeforeLoadDFMValues;\r\n  xdsMitteilungMSGBoardIDNotiz.BeforeLoadDFMValues;\r\n  xdsMitteilungToPersonalnummer.BeforeLoadDFMValues;\r\n  xdsMitteilungToPersonalnummerPersonalnummer.BeforeLoadDFMValues;\r\n  xdsMitteilungMSGBoardSubID.BeforeLoadDFMValues;\r\n  xdsMitteilungToNachname.BeforeLoadDFMValues;\r\n  xdsMitteilungToVorname.BeforeLoadDFMValues;\r\n  xdsMitteilungDatumGelesen.BeforeLoadDFMValues;\r\n  xdsMitteilungDatumErledigt.BeforeLoadDFMValues;\r\n  xdsMitteilungMSGBoardIDFromPersonalnummerPersonalnummer.BeforeLoadDFMValues;\r\n  sourceMitteilung.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'EinzelMitteilung';\r\n    Width := 218;\r\n    Height := 377;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnClose', 'WebFormClose');\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.AlignWithMargins := True;\r\n    TC.Left := 3;\r\n    TC.Top := 3;\r\n    TC.Width := 212;\r\n    TC.Height := 371;\r\n    TC.ElementClassName := 'table table-hover table-bordered table-striped';\r\n    TC.Align := alClient;\r\n    TC.BorderColor := clSilver;\r\n    TC.ChildOrder := 3;\r\n    TC.ColHeader := False;\r\n    TC.ElementFont := efCSS;\r\n    TC.ElementHeaderClassName := 'table-info';\r\n    TC.ElementTableClassName := 'table table-hover table-bordered table-striped';\r\n    TC.Options.ScrollVertical := True;\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 1;\r\n    TC.RowCount := 5;\r\n    btnGelesen.SetParentComponent(Self);\r\n    btnGelesen.Name := 'btnGelesen';\r\n    btnGelesen.Left := 67;\r\n    btnGelesen.Top := 203;\r\n    btnGelesen.Width := 96;\r\n    btnGelesen.Height := 25;\r\n    btnGelesen.Caption := 'gelesen setzen';\r\n    btnGelesen.ChildOrder := 4;\r\n    btnGelesen.ElementClassName := 'btn btn-info m-1 text-left';\r\n    btnGelesen.ElementFont := efCSS;\r\n    btnGelesen.ElementPosition := epIgnore;\r\n    btnGelesen.HeightStyle := ssAuto;\r\n    btnGelesen.HeightPercent := 100.000000000000000000;\r\n    btnGelesen.WidthStyle := ssAuto;\r\n    btnGelesen.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnGelesen, Self, 'OnClick', 'btnGelesenClick');\r\n    btnErledigt.SetParentComponent(Self);\r\n    btnErledigt.Name := 'btnErledigt';\r\n    btnErledigt.Left := 67;\r\n    btnErledigt.Top := 234;\r\n    btnErledigt.Width := 96;\r\n    btnErledigt.Height := 25;\r\n    btnErledigt.Caption := 'erledigt setzen';\r\n    btnErledigt.ChildOrder := 4;\r\n    btnErledigt.ElementClassName := 'btn btn-info m-1 text-left';\r\n    btnErledigt.ElementFont := efCSS;\r\n    btnErledigt.ElementPosition := epIgnore;\r\n    btnErledigt.HeightStyle := ssAuto;\r\n    btnErledigt.HeightPercent := 100.000000000000000000;\r\n    btnErledigt.WidthStyle := ssAuto;\r\n    btnErledigt.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnErledigt, Self, 'OnClick', 'btnErledigtClick');\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 67;\r\n    btnzurueck.Top := 141;\r\n    btnzurueck.Width := 110;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    xdsMitteilung.SetParentComponent(Self);\r\n    xdsMitteilung.Name := 'xdsMitteilung';\r\n    xdsMitteilung.AfterApplyUpdates := xdsMitteilungAfterApplyUpdates;\r\n    xdsMitteilung.AfterOpen := xdsMitteilungAfterOpen;\r\n    xdsMitteilung.AfterPost := xdsMitteilungAfterPost;\r\n    xdsMitteilung.EntitySetName := 'MSGBoardSub';\r\n    xdsMitteilung.Connection := DM2.XDataWebConnection1;\r\n    xdsMitteilung.SubpropsDepth := 2;\r\n    xdsMitteilung.QueryString := '$expand=MSGBoardID, PersonalnummerTo';\r\n    xdsMitteilung.QueryTop := 1;\r\n    xdsMitteilung.Left := 93;\r\n    xdsMitteilung.Top := 101;\r\n    xdsMitteilungMSGBoardID.SetParentComponent(xdsMitteilung);\r\n    xdsMitteilungMSGBoardID.Name := 'xdsMitteilungMSGBoardID';\r\n    xdsMitteilungMSGBoardID.FieldName := 'MSGBoardID';\r\n    xdsMitteilungMSGBoardIDFromPersonalnummer.SetParentComponent(xdsMitteilung);\r\n    xdsMitteilungMSGBoardIDFromPersonalnummer.Name := 'xdsMitteilungMSGBoardIDFromPersonalnummer';\r\n    xdsMitteilungMSGBoardIDFromPersonalnummer.FieldName := 'MSGBoardID.FromPersonalnummer';\r\n    xdsMitteilungMSGBoardIDID.SetParentComponent(xdsMitteilung);\r\n    xdsMitteilungMSGBoardIDID.Name := 'xdsMitteilungMSGBoardIDID';\r\n    xdsMitteilungMSGBoardIDID.FieldName := 'MSGBoardID.ID';\r\n    xdsMitteilungMSGBoardIDID.Size := 38;\r\n    xdsMitteilungMSGBoardIDDatum.SetParentComponent(xdsMitteilung);\r\n    xdsMitteilungMSGBoardIDDatum.Name := 'xdsMitteilungMSGBoardIDDatum';\r\n    xdsMitteilungMSGBoardIDDatum.FieldName := 'MSGBoardID.Datum';\r\n    xdsMitteilungMSGBoardIDFromNachname.SetParentComponent(xdsMitteilung);\r\n    xdsMitteilungMSGBoardIDFromNachname.Name := 'xdsMitteilungMSGBoardIDFromNachname';\r\n    xdsMitteilungMSGBoardIDFromNachname.FieldName := 'MSGBoardID.FromNachname';\r\n    xdsMitteilungMSGBoardIDFromNachname.Size := 40;\r\n    xdsMitteilungMSGBoardIDFromVorname.SetParentComponent(xdsMitteilung);\r\n    xdsMitteilungMSGBoardIDFromVorname.Name := 'xdsMitteilungMSGBoardIDFromVorname';\r\n    xdsMitteilungMSGBoardIDFromVorname.FieldName := 'MSGBoardID.FromVorname';\r\n    xdsMitteilungMSGBoardIDFromVorname.Size := 40;\r\n    xdsMitteilungMSGBoardIDBetreff.SetParentComponent(xdsMitteilung);\r\n    xdsMitteilungMSGBoardIDBetreff.Name := 'xdsMitteilungMSGBoardIDBetreff';\r\n    xdsMitteilungMSGBoardIDBetreff.FieldName := 'MSGBoardID.Betreff';\r\n    xdsMitteilungMSGBoardIDBetreff.Size := 255;\r\n    xdsMitteilungMSGBoardIDNotiz.SetParentComponent(xdsMitteilung);\r\n    xdsMitteilungMSGBoardIDNotiz.Name := 'xdsMitteilungMSGBoardIDNotiz';\r\n    xdsMitteilungMSGBoardIDNotiz.FieldName := 'MSGBoardID.Notiz';\r\n    xdsMitteilungMSGBoardIDNotiz.Size := 255;\r\n    xdsMitteilungToPersonalnummer.SetParentComponent(xdsMitteilung);\r\n    xdsMitteilungToPersonalnummer.Name := 'xdsMitteilungToPersonalnummer';\r\n    xdsMitteilungToPersonalnummer.FieldName := 'ToPersonalnummer';\r\n    xdsMitteilungToPersonalnummerPersonalnummer.SetParentComponent(xdsMitteilung);\r\n    xdsMitteilungToPersonalnummerPersonalnummer.Name := 'xdsMitteilungToPersonalnummerPersonalnummer';\r\n    xdsMitteilungToPersonalnummerPersonalnummer.FieldName := 'ToPersonalnummer.Personalnummer';\r\n    xdsMitteilungMSGBoardSubID.SetParentComponent(xdsMitteilung);\r\n    xdsMitteilungMSGBoardSubID.Name := 'xdsMitteilungMSGBoardSubID';\r\n    xdsMitteilungMSGBoardSubID.FieldName := 'MSGBoardSubID';\r\n    xdsMitteilungMSGBoardSubID.Required := True;\r\n    xdsMitteilungMSGBoardSubID.Size := 38;\r\n    xdsMitteilungToNachname.SetParentComponent(xdsMitteilung);\r\n    xdsMitteilungToNachname.Name := 'xdsMitteilungToNachname';\r\n    xdsMitteilungToNachname.FieldName := 'ToNachname';\r\n    xdsMitteilungToNachname.Size := 40;\r\n    xdsMitteilungToVorname.SetParentComponent(xdsMitteilung);\r\n    xdsMitteilungToVorname.Name := 'xdsMitteilungToVorname';\r\n    xdsMitteilungToVorname.FieldName := 'ToVorname';\r\n    xdsMitteilungToVorname.Size := 40;\r\n    xdsMitteilungDatumGelesen.SetParentComponent(xdsMitteilung);\r\n    xdsMitteilungDatumGelesen.Name := 'xdsMitteilungDatumGelesen';\r\n    xdsMitteilungDatumGelesen.FieldName := 'DatumGelesen';\r\n    xdsMitteilungDatumErledigt.SetParentComponent(xdsMitteilung);\r\n    xdsMitteilungDatumErledigt.Name := 'xdsMitteilungDatumErledigt';\r\n    xdsMitteilungDatumErledigt.FieldName := 'DatumErledigt';\r\n    xdsMitteilungMSGBoardIDFromPersonalnummerPersonalnummer.SetParentComponent(xdsMitteilung);\r\n    xdsMitteilungMSGBoardIDFromPersonalnummerPersonalnummer.Name := 'xdsMitteilungMSGBoardIDFromPersonalnummerPersonalnummer';\r\n    xdsMitteilungMSGBoardIDFromPersonalnummerPersonalnummer.FieldName := 'MSGBoardID.FromPersonalnummer.Personalnummer';\r\n    sourceMitteilung.SetParentComponent(Self);\r\n    sourceMitteilung.Name := 'sourceMitteilung';\r\n    sourceMitteilung.DataSet := xdsMitteilung;\r\n    sourceMitteilung.Left := 29;\r\n    sourceMitteilung.Top := 101;\r\n  finally\r\n    TC.AfterLoadDFMValues;\r\n    btnGelesen.AfterLoadDFMValues;\r\n    btnErledigt.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    xdsMitteilung.AfterLoadDFMValues;\r\n    xdsMitteilungMSGBoardID.AfterLoadDFMValues;\r\n    xdsMitteilungMSGBoardIDFromPersonalnummer.AfterLoadDFMValues;\r\n    xdsMitteilungMSGBoardIDID.AfterLoadDFMValues;\r\n    xdsMitteilungMSGBoardIDDatum.AfterLoadDFMValues;\r\n    xdsMitteilungMSGBoardIDFromNachname.AfterLoadDFMValues;\r\n    xdsMitteilungMSGBoardIDFromVorname.AfterLoadDFMValues;\r\n    xdsMitteilungMSGBoardIDBetreff.AfterLoadDFMValues;\r\n    xdsMitteilungMSGBoardIDNotiz.AfterLoadDFMValues;\r\n    xdsMitteilungToPersonalnummer.AfterLoadDFMValues;\r\n    xdsMitteilungToPersonalnummerPersonalnummer.AfterLoadDFMValues;\r\n    xdsMitteilungMSGBoardSubID.AfterLoadDFMValues;\r\n    xdsMitteilungToNachname.AfterLoadDFMValues;\r\n    xdsMitteilungToVorname.AfterLoadDFMValues;\r\n    xdsMitteilungDatumGelesen.AfterLoadDFMValues;\r\n    xdsMitteilungDatumErledigt.AfterLoadDFMValues;\r\n    xdsMitteilungMSGBoardIDFromPersonalnummerPersonalnummer.AfterLoadDFMValues;\r\n    sourceMitteilung.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.","unit unit_NeueMitteilung;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Data.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, DB, Vcl.Controls, WEBLib.Grids, Vcl.StdCtrls,\r\n  WEBLib.StdCtrls, strutils, XData.Web.Client;\r\n\r\ntype\r\n  TNeueMitteilung = class(TForm)\r\n    dspersonal: TXDataWebDataSet;\r\n    dspersonalPersonalnummer: TIntegerField;\r\n    dspersonalNachname: TStringField;\r\n    dspersonalVorname: TStringField;\r\n    TC: TTableControl;\r\n    btnzurueck: TButton;\r\n    lookupEmpfaenger: TComboBox;\r\n    edtNotiz: TMemo;\r\n    btnsenden: TButton;\r\n    edtBetreff: TEdit;\r\n    WClient: TXDataWebClient;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure dspersonalAfterOpen(DataSet: TDataSet);\r\n    procedure WebFormClose(Sender: TObject; var Action: TCloseAction);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n    procedure btnsendenClick(Sender: TObject);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  NeueMitteilung: TNeueMitteilung;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_Mitteilungen;\r\n{$R *.dfm}\r\n\r\nprocedure TNeueMitteilung.btnsendenClick(Sender: TObject);\r\n  procedure OnResponse(Response:TXDataClientResponse);\r\n  var\r\n  ergebnis:string;\r\n  begin\r\n    ergebnis:=string(TJSObject(response.Result)['value']);\r\n    if ergebnis='WRONG' then\r\n    begin\r\n      showmessage('Die Mitteilung konnte leider nicht erstellt werden');\r\n    end\r\n    else\r\n    begin\r\n      dspersonal.Close;\r\n      self.close;\r\n    end;\r\n  end;\r\nvar\r\n  tmpEmpfaenger:string;\r\n  tmpstringlist:TStringList;\r\nbegin\r\n  if edtBetreff.Text='' then\r\n  begin\r\n    showmessage('Sie haben keinen Betreff eingetragen.');\r\n    exit;\r\n  end;\r\n  if edtNotiz.Text='' then\r\n  begin\r\n    showmessage('Sie haben keine Notiz eingetragen.');\r\n    exit;\r\n  end;\r\n  if lookupEmpfaenger.Text='' then\r\n  begin\r\n    showmessage('Sie haben keinen Empfänger ausgewählt.');\r\n    exit;\r\n  end;\r\n  tmpstringlist:=TStringList.Create;\r\n  tmpstringlist.Delimiter:='|';\r\n  tmpstringlist.StrictDelimiter:=true;\r\n  tmpstringlist.DelimitedText:=lookupEmpfaenger.Text;\r\n  tmpEmpfaenger:=trim(tmpstringlist[0]);\r\n  WClient.RawInvoke('IServerService.NeueMitteilung',[BenutzerPersonalnummer,tmpEmpfaenger,edtBetreff.Text,edtnotiz.text],@OnResponse);\r\nend;\r\n\r\nprocedure TNeueMitteilung.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  dspersonal.Close;\r\n  self.close;\r\nend;\r\n\r\nprocedure TNeueMitteilung.dspersonalAfterOpen(DataSet: TDataSet);\r\nvar\r\n  i:integer;\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  i:=0;\r\n  TC.ColCount:=1;\r\n  tc.rowcount:=10;\r\n  TC.Cells[0,i]:='<h4>Neue Mitteilung';\r\n\r\n\r\n  inc(i);\r\n  myelement:=TC.cellelements[0,i];\r\n  btnzurueck.ParentElement:=myelement;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Empfänger wählen:';\r\n  inc(i);\r\n  myelement:=TC.cellelements[0,i];\r\n  lookupEmpfaenger.ParentElement:=myelement;\r\n\r\n  dspersonal.First;\r\n  while not dspersonal.eof do\r\n  begin\r\n    if dspersonalPersonalnummer.AsString<>BenutzerPersonalnummer then\r\n    begin\r\n      lookupEmpfaenger.Items.Add(dspersonalPersonalnummer.AsString+' | '+dspersonalnachname.AsString +' | '+dspersonalVorname.asstring);\r\n    end;\r\n    dspersonal.Next;\r\n  end;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Betreff:';\r\n  inc(i);\r\n  myelement:=TC.cellelements[0,i];\r\n  edtBetreff.ParentElement:=myelement;\r\n  inc(i);\r\n  TC.Cells[0,i]:='Notiz:';\r\n  inc(i);\r\n  myelement:=TC.cellelements[0,i];\r\n  edtNotiz.ParentElement:=myelement;\r\n  inc(i);\r\n  myelement:=TC.cellelements[0,i];\r\n  btnsenden.ParentElement:=myelement;\r\nend;\r\n\r\nprocedure TNeueMitteilung.WebFormClose(Sender: TObject;\r\n  var Action: TCloseAction);\r\nbegin\r\n  Action:=cafree;\r\nend;\r\n\r\nprocedure TNeueMitteilung.WebFormShow(Sender: TObject);\r\nbegin\r\n  dspersonal.Load;\r\nend;\r\n\r\nprocedure TNeueMitteilung.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  TC := TTableControl.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  lookupEmpfaenger := TComboBox.Create(Self);\r\n  edtNotiz := TMemo.Create(Self);\r\n  btnsenden := TButton.Create(Self);\r\n  edtBetreff := TEdit.Create(Self);\r\n  dspersonal := TXDataWebDataSet.Create(Self);\r\n  dspersonalPersonalnummer := TIntegerField.Create(Self);\r\n  dspersonalNachname := TStringField.Create(Self);\r\n  dspersonalVorname := TStringField.Create(Self);\r\n  WClient := TXDataWebClient.Create(Self);\r\n\r\n  TC.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  lookupEmpfaenger.BeforeLoadDFMValues;\r\n  edtNotiz.BeforeLoadDFMValues;\r\n  btnsenden.BeforeLoadDFMValues;\r\n  edtBetreff.BeforeLoadDFMValues;\r\n  dspersonal.BeforeLoadDFMValues;\r\n  dspersonalPersonalnummer.BeforeLoadDFMValues;\r\n  dspersonalNachname.BeforeLoadDFMValues;\r\n  dspersonalVorname.BeforeLoadDFMValues;\r\n  WClient.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'NeueMitteilung';\r\n    Width := 269;\r\n    Height := 480;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnClose', 'WebFormClose');\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.AlignWithMargins := True;\r\n    TC.Left := 3;\r\n    TC.Top := 3;\r\n    TC.Width := 263;\r\n    TC.Height := 474;\r\n    TC.ElementClassName := 'table table-bordered';\r\n    TC.Align := alClient;\r\n    TC.BorderColor := clSilver;\r\n    TC.ChildOrder := 3;\r\n    TC.ColHeader := False;\r\n    TC.ElementFont := efCSS;\r\n    TC.ElementHeaderClassName := 'table-info';\r\n    TC.ElementTableClassName := 'table table-bordered';\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 1;\r\n    TC.RowCount := 5;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 67;\r\n    btnzurueck.Top := 141;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    lookupEmpfaenger.SetParentComponent(Self);\r\n    lookupEmpfaenger.Name := 'lookupEmpfaenger';\r\n    lookupEmpfaenger.Left := 40;\r\n    lookupEmpfaenger.Top := 56;\r\n    lookupEmpfaenger.Width := 177;\r\n    lookupEmpfaenger.Height := 23;\r\n    lookupEmpfaenger.ChildOrder := 1;\r\n    lookupEmpfaenger.ElementClassName := 'form-control w-90 m-1';\r\n    lookupEmpfaenger.ElementFont := efCSS;\r\n    lookupEmpfaenger.ElementPosition := epIgnore;\r\n    lookupEmpfaenger.HeightStyle := ssAuto;\r\n    lookupEmpfaenger.HeightPercent := 100.000000000000000000;\r\n    lookupEmpfaenger.Text := 'lookupEmpfaenger';\r\n    lookupEmpfaenger.TextHint := 'bitte ausw'#228'hlen';\r\n    lookupEmpfaenger.WidthStyle := ssPercent;\r\n    lookupEmpfaenger.WidthPercent := 95.000000000000000000;\r\n    lookupEmpfaenger.ItemIndex := -1;\r\n    edtNotiz.SetParentComponent(Self);\r\n    edtNotiz.Name := 'edtNotiz';\r\n    edtNotiz.Left := -83;\r\n    edtNotiz.Top := 266;\r\n    edtNotiz.Width := 352;\r\n    edtNotiz.Height := 135;\r\n    edtNotiz.AutoSize := False;\r\n    edtNotiz.ElementClassName := 'form-control w-90 m-1';\r\n    edtNotiz.ElementFont := efCSS;\r\n    edtNotiz.ElementPosition := epIgnore;\r\n    edtNotiz.HeightPercent := 100.000000000000000000;\r\n    edtNotiz.SelLength := 0;\r\n    edtNotiz.SelStart := 0;\r\n    edtNotiz.TextHint := 'Mitteilung eingeben';\r\n    edtNotiz.WidthStyle := ssPercent;\r\n    edtNotiz.WidthPercent := 95.000000000000000000;\r\n    btnsenden.SetParentComponent(Self);\r\n    btnsenden.Name := 'btnsenden';\r\n    btnsenden.Left := 67;\r\n    btnsenden.Top := 203;\r\n    btnsenden.Width := 96;\r\n    btnsenden.Height := 25;\r\n    btnsenden.Caption := 'senden';\r\n    btnsenden.ChildOrder := 4;\r\n    btnsenden.ElementClassName := 'btn btn-info m-1 text-left';\r\n    btnsenden.ElementFont := efCSS;\r\n    btnsenden.ElementPosition := epIgnore;\r\n    btnsenden.HeightStyle := ssAuto;\r\n    btnsenden.HeightPercent := 100.000000000000000000;\r\n    btnsenden.WidthStyle := ssAuto;\r\n    btnsenden.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnsenden, Self, 'OnClick', 'btnsendenClick');\r\n    edtBetreff.SetParentComponent(Self);\r\n    edtBetreff.Name := 'edtBetreff';\r\n    edtBetreff.Left := 42;\r\n    edtBetreff.Top := 175;\r\n    edtBetreff.Width := 121;\r\n    edtBetreff.Height := 22;\r\n    edtBetreff.ChildOrder := 5;\r\n    edtBetreff.ElementClassName := 'form-control w-90 m-1';\r\n    edtBetreff.ElementFont := efCSS;\r\n    edtBetreff.ElementPosition := epIgnore;\r\n    edtBetreff.HeightStyle := ssAuto;\r\n    edtBetreff.HeightPercent := 100.000000000000000000;\r\n    edtBetreff.TextHint := 'Betreff eingeben';\r\n    edtBetreff.WidthStyle := ssPercent;\r\n    edtBetreff.WidthPercent := 95.000000000000000000;\r\n    dspersonal.SetParentComponent(Self);\r\n    dspersonal.Name := 'dspersonal';\r\n    dspersonal.AfterOpen := dspersonalAfterOpen;\r\n    dspersonal.EntitySetName := 'Personal';\r\n    dspersonal.Connection := DM2.XDataWebConnection1;\r\n    dspersonal.QueryString := '$filter=enabled eq True';\r\n    dspersonal.Left := 121;\r\n    dspersonal.Top := 183;\r\n    dspersonalPersonalnummer.SetParentComponent(dspersonal);\r\n    dspersonalPersonalnummer.Name := 'dspersonalPersonalnummer';\r\n    dspersonalPersonalnummer.FieldName := 'Personalnummer';\r\n    dspersonalPersonalnummer.Required := True;\r\n    dspersonalNachname.SetParentComponent(dspersonal);\r\n    dspersonalNachname.Name := 'dspersonalNachname';\r\n    dspersonalNachname.FieldName := 'Nachname';\r\n    dspersonalNachname.Required := True;\r\n    dspersonalNachname.Size := 40;\r\n    dspersonalVorname.SetParentComponent(dspersonal);\r\n    dspersonalVorname.Name := 'dspersonalVorname';\r\n    dspersonalVorname.FieldName := 'Vorname';\r\n    dspersonalVorname.Size := 40;\r\n    WClient.SetParentComponent(Self);\r\n    WClient.Name := 'WClient';\r\n    WClient.Connection := DM2.XDataWebConnection1;\r\n    WClient.Left := 88;\r\n    WClient.Top := 8;\r\n  finally\r\n    TC.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    lookupEmpfaenger.AfterLoadDFMValues;\r\n    edtNotiz.AfterLoadDFMValues;\r\n    btnsenden.AfterLoadDFMValues;\r\n    edtBetreff.AfterLoadDFMValues;\r\n    dspersonal.AfterLoadDFMValues;\r\n    dspersonalPersonalnummer.AfterLoadDFMValues;\r\n    dspersonalNachname.AfterLoadDFMValues;\r\n    dspersonalVorname.AfterLoadDFMValues;\r\n    WClient.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit unit_Mitteilungen;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Vcl.Controls, WEBLib.ExtCtrls, Data.DB,\r\n  XData.Web.JsonDataset, XData.Web.Dataset, WEBLib.WebCtrls, Vcl.StdCtrls,\r\n  WEBLib.StdCtrls, strutils;\r\n\r\ntype\r\n  TMitteilungen = class(TForm)\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    Container3: THTMLContainer;\r\n    xdsMitteilungen: TXDataWebDataSet;\r\n    xdsMitteilungenMSGBoardID: TXDataWebEntityField;\r\n    xdsMitteilungenToPersonalnummer: TXDataWebEntityField;\r\n    xdsMitteilungenMSGBoardSubID: TStringField;\r\n    xdsMitteilungenToNachname: TStringField;\r\n    xdsMitteilungenToVorname: TStringField;\r\n    xdsMitteilungenDatumGelesen: TDateTimeField;\r\n    xdsMitteilungenDatumErledigt: TDateTimeField;\r\n    xdsMitteilungenMSGBoardIDFromPersonalnummer: TXDataWebEntityField;\r\n    xdsMitteilungenMSGBoardIDID: TStringField;\r\n    xdsMitteilungenMSGBoardIDDatum: TDateTimeField;\r\n    xdsMitteilungenMSGBoardIDFromNachname: TStringField;\r\n    xdsMitteilungenMSGBoardIDFromVorname: TStringField;\r\n    xdsMitteilungenMSGBoardIDBetreff: TStringField;\r\n    xdsMitteilungenMSGBoardIDNotiz: TStringField;\r\n    btnzurueck: TButton;\r\n    btnGesendete: TButton;\r\n    btnErhaltene: TButton;\r\n    btnNeueMitteilung: TButton;\r\n    btnErhalteneUngefiltert: TButton;\r\n    xdsMitteilungenToPersonalnummerPersonalnummer: TIntegerField;\r\n    xdsMitteilungenMSGBoardIDFromPersonalnummerPersonalnummer: TIntegerField;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure xdsMitteilungenAfterOpen(DataSet: TDataSet);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n    procedure btnGesendeteClick(Sender: TObject);\r\n    procedure WebFormClose(Sender: TObject; var Action: TCloseAction);\r\n    procedure btnErhalteneClick(Sender: TObject);\r\n    procedure btnNeueMitteilungClick(Sender: TObject);\r\n    procedure btnErhalteneUngefiltertClick(Sender: TObject);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    EinzelCard:THTMLDiv;\r\n    procedure EinzelCardclick(Sender:TObject);\r\n    procedure MitteilungenLaden;\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  Mitteilungen: TMitteilungen;\r\n  MSGModus:integer;\r\n  //0 Eingang ungelesen/unbearbeitet ausgeschlossen\r\n  //1 Eingang alle 100\r\n  //2 Ausgang alle 100\r\nimplementation\r\n   uses unit1, unit2, unit_EinzelMitteilung, unit_NeueMitteilung;\r\n{$R *.dfm}\r\n\r\nprocedure TMitteilungen.MitteilungenLaden;\r\nbegin\r\n  xdsMitteilungen.Close;\r\n  if msgmodus=0 then xdsMitteilungen.QueryString:='$expand=MSGBoardID, ToPersonalnummer, MSGBoardID/FromPersonalnummer&$filter=(ToPersonalnummer eq '+Benutzerpersonalnummer+') AND (DatumErledigt eq null OR DatumGelesen eq null)&$orderby=MSGBoardID/Datum DESC';\r\n  if msgmodus=1 then xdsMitteilungen.QueryString:='$expand=MSGBoardID, ToPersonalnummer, MSGBoardID/FromPersonalnummer&$filter=(ToPersonalnummer eq '+Benutzerpersonalnummer+') &$orderby=MSGBoardID/Datum DESC';\r\n  if msgmodus=2 then xdsMitteilungen.QueryString:='$expand=MSGBoardID, ToPersonalnummer, MSGBoardID/FromPersonalnummer&$filter=(MSGBoardID/FromPersonalnummer eq '+Benutzerpersonalnummer+') &$orderby=MSGBoardID/Datum DESC';\r\n  xdsMitteilungen.Load;\r\nend;\r\n\r\nprocedure TMitteilungen.btnErhalteneClick(Sender: TObject);\r\nbegin\r\n  msgmodus:=0;\r\n  MitteilungenLaden;\r\nend;\r\n\r\nprocedure TMitteilungen.btnErhalteneUngefiltertClick(Sender: TObject);\r\nbegin\r\n  msgmodus:=1;\r\n  MitteilungenLaden;\r\nend;\r\n\r\nprocedure TMitteilungen.btnGesendeteClick(Sender: TObject);\r\nbegin\r\n  msgmodus:=2;\r\n  MitteilungenLaden;\r\nend;\r\n\r\nprocedure TMitteilungen.btnNeueMitteilungClick(Sender: TObject);\r\nvar\r\n  LFrm:TNeueMitteilung;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TNeueMitteilung;\r\n    begin\r\n      LForm:=(AForm as TNeueMitteilung);\r\n\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      xdsMitteilungen.load;\r\n    end;\r\n\r\n  begin\r\n  Container3.HTML.text:='';\r\n  msgmodus:=2;\r\n  xdsMitteilungen.Close;\r\n  xdsMitteilungen.QueryString:='$expand=MSGBoardID, ToPersonalnummer, MSGBoardID/FromPersonalnummer&$filter=(MSGBoardID/FromPersonalnummer eq '+Benutzerpersonalnummer+') &$orderby=MSGBoardID/Datum DESC';\r\n\r\n  LFrm:=TNeueMitteilung.CreateNew(@AfterCreate);\r\n  LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\n\r\n\r\n\r\nprocedure TMitteilungen.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  xdsMitteilungen.Close;\r\n  self.close;\r\nend;\r\n\r\n\r\nprocedure TMitteilungen.EinzelCardclick(Sender:TObject);\r\nvar\r\n  EinzelMitteilung:TEinzelMitteilung;\r\n  MyMerkerMitteilung:string;\r\nbegin\r\n  myMerkerMitteilung:=(sender as THTMLDiv).hint;\r\n  Container3.HTML.text:='';\r\n  EinzelMitteilung := TEinzelMitteilung.CreateNew(procedure(AForm: TObject)\r\n    begin\r\n      (AForm as TEinzelMitteilung).MerkerMitteilung:=myMerkerMitteilung;\r\n      (AForm as TEinzelMitteilung).ArtMitteilung:=MSGModus;\r\n    end\r\n    );\r\n\r\n  EinzelMitteilung.ShowModal(procedure(AValue: TModalResult)\r\n    begin\r\n      xdsMitteilungen.Close;\r\n      xdsMitteilungen.load;\r\n    end\r\n    );\r\nend;\r\n\r\nprocedure TMitteilungen.WebFormClose(Sender: TObject; var Action: TCloseAction);\r\nbegin\r\n  action:=cafree;\r\nend;\r\n\r\nprocedure TMitteilungen.WebFormShow(Sender: TObject);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  MSGModus:=0;\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Mitteilungen</h5></nav>';\r\n  Container2.HTML.Text:='';\r\n  myelement:=container2.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  MitteilungenLaden;\r\nend;\r\n\r\nprocedure TMitteilungen.xdsMitteilungenAfterOpen(DataSet: TDataSet);\r\nvar\r\n  myelement:TJSHTMLElement;\r\n  EinzelKarte:string;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Mitteilungen (erhaltene)</h5></nav>';\r\n  if MSGModus=2 then Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Mitteilungen (gesendete)</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  container2.ParentElement:=myelement;\r\n  Container3.ParentElement:=myelement;\r\n  Container2.HTML.Text:='';\r\n  myelement:=container2.ElementHandle;\r\n\r\n  btnzurueck.ParentElement:=myelement;\r\n  btnErhaltene.ParentElement:=myelement;\r\n  btnErhalteneUngefiltert.ParentElement:=myelement;\r\n  btnGesendete.ParentElement:=myelement;\r\n  btnNeueMitteilung.ParentElement:=myelement;\r\n  container3.HTML.Text:='';\r\n  btnErhaltene.Visible:=true;\r\n  btnErhalteneUngefiltert.Visible:=true;\r\n  btnGesendete.Visible:=true;\r\n  if MSGModus=0 then btnErhaltene.Visible:=false;\r\n  if MSGModus=1 then btnErhalteneUngefiltert.Visible:=false;\r\n  if MSGModus=2 then btnGesendete.Visible:=false;\r\n  xdsMitteilungen.First;\r\n  while not xdsmitteilungen.eof do\r\n  begin\r\n    if (xdsMitteilungenDatumGelesen.IsNull) OR (xdsMitteilungenDatumErledigt.IsNull) then\r\n    begin\r\n    Einzelkarte:='<div class=\"card-header\" style=\"background-color: #FFFF80\"><h5>'+formatdatetime('DD.MM.YYYY hh:mm:ss',xdsMitteilungenMSGBoardIDDatum.asdatetime)+' - ' +xdsMitteilungenMSGBoardIDBetreff.asstring+'</h5></div>';\r\n    end\r\n    else\r\n    begin\r\n    Einzelkarte:='<div class=\"card-header\"><h5>'+formatdatetime('DD.MM.YYYY hh:mm:ss',xdsMitteilungenMSGBoardIDDatum.asdatetime)+' - ' +xdsMitteilungenMSGBoardIDBetreff.asstring+'</h5></div>';\r\n    end;\r\n    if length(xdsMitteilungenMSGBoardIDNotiz.asstring)>60 then\r\n    begin\r\n      Einzelkarte:=Einzelkarte+'<div class=\"card-body \"><h6>'+leftstr(xdsMitteilungenMSGBoardIDNotiz.asstring, 60)+' ...</h6>';\r\n    end\r\n    else\r\n    begin\r\n      Einzelkarte:=Einzelkarte+'<div class=\"card-body \"><h6>'+xdsMitteilungenMSGBoardIDNotiz.asstring+'</h6>';\r\n    end;\r\n    if MSGModus<2 then Einzelkarte:=Einzelkarte+'<i> von: '+xdsMitteilungenMSGBoardIDFromNachname.asstring+', '+xdsMitteilungenMSGBoardIDFromVorname.asstring+' ('+xdsMitteilungenMSGBoardIDFromPersonalnummerPersonalnummer.asstring+')</i><br>';\r\n    if MSGModus=2 then Einzelkarte:=Einzelkarte+'<i> an:  '+xdsMitteilungenToNachname.asstring+', '+xdsMitteilungenToVorname.asstring+' ('+xdsMitteilungenToPersonalnummerPersonalnummer.asstring+')</i><br>';\r\n    if not xdsMitteilungenDatumGelesen.IsNull then\r\n    begin\r\n      Einzelkarte:=Einzelkarte+'<i> gelesen:  '+formatdatetime('DD.MM.YYYY hh:mm:ss',xdsMitteilungenDatumGelesen.asdatetime)+'</i><br>';\r\n    end\r\n    else\r\n    begin\r\n      Einzelkarte:=Einzelkarte+'<i> noch nicht gelesen</i><br>';\r\n    end;\r\n    if not xdsMitteilungenDatumErledigt.IsNull then\r\n    begin\r\n      Einzelkarte:=Einzelkarte+'<i> erledigt: '+formatdatetime('DD.MM.YYYY hh:mm:ss',xdsMitteilungenDatumErledigt.asdatetime)+'</i><br>';\r\n    end\r\n    else\r\n    begin\r\n      Einzelkarte:=Einzelkarte+'<i> noch nicht erledigt</i><br>';\r\n    end;\r\n\r\n    Einzelkarte:=Einzelkarte+'</div>';\r\n    myelement:=Container3.ElementHandle;\r\n    EinzelCard:=THTMLDiv.Create(self);\r\n    EinzelCard.HeightStyle:=ssauto;\r\n    EinzelCard.WidthStyle:=ssPercent;\r\n    EinzelCard.hint:=xdsMitteilungenMSGBoardSubID.asstring;\r\n    EinzelCard.HTML.Text:=Einzelkarte;\r\n    EinzelCard.ElementClassName:='card m-1 border-info';\r\n    EinzelCard.OnClick:=@EinzelCardClick;\r\n    EinzelCard.ParentElement:=myelement;\r\n    xdsmitteilungen.Next;\r\n\r\n  end;\r\nend;\r\n\r\nprocedure TMitteilungen.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  btnGesendete := TButton.Create(Self);\r\n  btnErhaltene := TButton.Create(Self);\r\n  btnNeueMitteilung := TButton.Create(Self);\r\n  btnErhalteneUngefiltert := TButton.Create(Self);\r\n  xdsMitteilungen := TXDataWebDataSet.Create(Self);\r\n  xdsMitteilungenMSGBoardID := TXDataWebEntityField.Create(Self);\r\n  xdsMitteilungenToPersonalnummer := TXDataWebEntityField.Create(Self);\r\n  xdsMitteilungenMSGBoardSubID := TStringField.Create(Self);\r\n  xdsMitteilungenToNachname := TStringField.Create(Self);\r\n  xdsMitteilungenToVorname := TStringField.Create(Self);\r\n  xdsMitteilungenDatumGelesen := TDateTimeField.Create(Self);\r\n  xdsMitteilungenDatumErledigt := TDateTimeField.Create(Self);\r\n  xdsMitteilungenMSGBoardIDFromPersonalnummer := TXDataWebEntityField.Create(Self);\r\n  xdsMitteilungenMSGBoardIDID := TStringField.Create(Self);\r\n  xdsMitteilungenMSGBoardIDDatum := TDateTimeField.Create(Self);\r\n  xdsMitteilungenMSGBoardIDFromNachname := TStringField.Create(Self);\r\n  xdsMitteilungenMSGBoardIDFromVorname := TStringField.Create(Self);\r\n  xdsMitteilungenMSGBoardIDBetreff := TStringField.Create(Self);\r\n  xdsMitteilungenMSGBoardIDNotiz := TStringField.Create(Self);\r\n  xdsMitteilungenToPersonalnummerPersonalnummer := TIntegerField.Create(Self);\r\n  xdsMitteilungenMSGBoardIDFromPersonalnummerPersonalnummer := TIntegerField.Create(Self);\r\n\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  btnGesendete.BeforeLoadDFMValues;\r\n  btnErhaltene.BeforeLoadDFMValues;\r\n  btnNeueMitteilung.BeforeLoadDFMValues;\r\n  btnErhalteneUngefiltert.BeforeLoadDFMValues;\r\n  xdsMitteilungen.BeforeLoadDFMValues;\r\n  xdsMitteilungenMSGBoardID.BeforeLoadDFMValues;\r\n  xdsMitteilungenToPersonalnummer.BeforeLoadDFMValues;\r\n  xdsMitteilungenMSGBoardSubID.BeforeLoadDFMValues;\r\n  xdsMitteilungenToNachname.BeforeLoadDFMValues;\r\n  xdsMitteilungenToVorname.BeforeLoadDFMValues;\r\n  xdsMitteilungenDatumGelesen.BeforeLoadDFMValues;\r\n  xdsMitteilungenDatumErledigt.BeforeLoadDFMValues;\r\n  xdsMitteilungenMSGBoardIDFromPersonalnummer.BeforeLoadDFMValues;\r\n  xdsMitteilungenMSGBoardIDID.BeforeLoadDFMValues;\r\n  xdsMitteilungenMSGBoardIDDatum.BeforeLoadDFMValues;\r\n  xdsMitteilungenMSGBoardIDFromNachname.BeforeLoadDFMValues;\r\n  xdsMitteilungenMSGBoardIDFromVorname.BeforeLoadDFMValues;\r\n  xdsMitteilungenMSGBoardIDBetreff.BeforeLoadDFMValues;\r\n  xdsMitteilungenMSGBoardIDNotiz.BeforeLoadDFMValues;\r\n  xdsMitteilungenToPersonalnummerPersonalnummer.BeforeLoadDFMValues;\r\n  xdsMitteilungenMSGBoardIDFromPersonalnummerPersonalnummer.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'Mitteilungen';\r\n    Width := 219;\r\n    Height := 304;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnClose', 'WebFormClose');\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ChildOrder := 2;\r\n    Container1.ElementFont := efCSS;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 5;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 5;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 67;\r\n    btnzurueck.Top := 141;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    btnGesendete.SetParentComponent(Self);\r\n    btnGesendete.Name := 'btnGesendete';\r\n    btnGesendete.Left := 67;\r\n    btnGesendete.Top := 172;\r\n    btnGesendete.Width := 96;\r\n    btnGesendete.Height := 25;\r\n    btnGesendete.Caption := 'Gesendete (max 100)';\r\n    btnGesendete.ChildOrder := 4;\r\n    btnGesendete.ElementClassName := 'btn btn-info m-1 text-left';\r\n    btnGesendete.ElementFont := efCSS;\r\n    btnGesendete.ElementPosition := epIgnore;\r\n    btnGesendete.HeightStyle := ssAuto;\r\n    btnGesendete.HeightPercent := 100.000000000000000000;\r\n    btnGesendete.WidthStyle := ssAuto;\r\n    btnGesendete.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnGesendete, Self, 'OnClick', 'btnGesendeteClick');\r\n    btnErhaltene.SetParentComponent(Self);\r\n    btnErhaltene.Name := 'btnErhaltene';\r\n    btnErhaltene.Left := 67;\r\n    btnErhaltene.Top := 203;\r\n    btnErhaltene.Width := 96;\r\n    btnErhaltene.Height := 25;\r\n    btnErhaltene.Caption := 'Unbearbeitete';\r\n    btnErhaltene.ChildOrder := 4;\r\n    btnErhaltene.ElementClassName := 'btn btn-info m-1 text-left';\r\n    btnErhaltene.ElementFont := efCSS;\r\n    btnErhaltene.ElementPosition := epIgnore;\r\n    btnErhaltene.HeightStyle := ssAuto;\r\n    btnErhaltene.HeightPercent := 100.000000000000000000;\r\n    btnErhaltene.WidthStyle := ssAuto;\r\n    btnErhaltene.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnErhaltene, Self, 'OnClick', 'btnErhalteneClick');\r\n    btnNeueMitteilung.SetParentComponent(Self);\r\n    btnNeueMitteilung.Name := 'btnNeueMitteilung';\r\n    btnNeueMitteilung.Left := 67;\r\n    btnNeueMitteilung.Top := 231;\r\n    btnNeueMitteilung.Width := 96;\r\n    btnNeueMitteilung.Height := 25;\r\n    btnNeueMitteilung.Caption := '+ Neue Mitteilung';\r\n    btnNeueMitteilung.ChildOrder := 4;\r\n    btnNeueMitteilung.ElementClassName := 'btn btn-info m-1 text-left';\r\n    btnNeueMitteilung.ElementFont := efCSS;\r\n    btnNeueMitteilung.ElementPosition := epIgnore;\r\n    btnNeueMitteilung.HeightStyle := ssAuto;\r\n    btnNeueMitteilung.HeightPercent := 100.000000000000000000;\r\n    btnNeueMitteilung.WidthStyle := ssAuto;\r\n    btnNeueMitteilung.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnNeueMitteilung, Self, 'OnClick', 'btnNeueMitteilungClick');\r\n    btnErhalteneUngefiltert.SetParentComponent(Self);\r\n    btnErhalteneUngefiltert.Name := 'btnErhalteneUngefiltert';\r\n    btnErhalteneUngefiltert.Left := 67;\r\n    btnErhalteneUngefiltert.Top := 262;\r\n    btnErhalteneUngefiltert.Width := 96;\r\n    btnErhalteneUngefiltert.Height := 25;\r\n    btnErhalteneUngefiltert.Caption := 'Erhaltene (max 100)';\r\n    btnErhalteneUngefiltert.ChildOrder := 4;\r\n    btnErhalteneUngefiltert.ElementClassName := 'btn btn-info m-1 text-left';\r\n    btnErhalteneUngefiltert.ElementFont := efCSS;\r\n    btnErhalteneUngefiltert.ElementPosition := epIgnore;\r\n    btnErhalteneUngefiltert.HeightStyle := ssAuto;\r\n    btnErhalteneUngefiltert.HeightPercent := 100.000000000000000000;\r\n    btnErhalteneUngefiltert.WidthStyle := ssAuto;\r\n    btnErhalteneUngefiltert.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnErhalteneUngefiltert, Self, 'OnClick', 'btnErhalteneUngefiltertClick');\r\n    xdsMitteilungen.SetParentComponent(Self);\r\n    xdsMitteilungen.Name := 'xdsMitteilungen';\r\n    xdsMitteilungen.AfterOpen := xdsMitteilungenAfterOpen;\r\n    xdsMitteilungen.EntitySetName := 'MSGBoardSub';\r\n    xdsMitteilungen.Connection := DM2.XDataWebConnection1;\r\n    xdsMitteilungen.SubpropsDepth := 2;\r\n    xdsMitteilungen.QueryString := '$expand=MSGBoardID, PersonalnummerTo';\r\n    xdsMitteilungen.QueryTop := 100;\r\n    xdsMitteilungen.Left := 21;\r\n    xdsMitteilungen.Top := 157;\r\n    xdsMitteilungenMSGBoardID.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenMSGBoardID.Name := 'xdsMitteilungenMSGBoardID';\r\n    xdsMitteilungenMSGBoardID.FieldName := 'MSGBoardID';\r\n    xdsMitteilungenToPersonalnummer.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenToPersonalnummer.Name := 'xdsMitteilungenToPersonalnummer';\r\n    xdsMitteilungenToPersonalnummer.FieldName := 'ToPersonalnummer';\r\n    xdsMitteilungenMSGBoardSubID.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenMSGBoardSubID.Name := 'xdsMitteilungenMSGBoardSubID';\r\n    xdsMitteilungenMSGBoardSubID.FieldName := 'MSGBoardSubID';\r\n    xdsMitteilungenMSGBoardSubID.Required := True;\r\n    xdsMitteilungenMSGBoardSubID.Size := 38;\r\n    xdsMitteilungenToNachname.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenToNachname.Name := 'xdsMitteilungenToNachname';\r\n    xdsMitteilungenToNachname.FieldName := 'ToNachname';\r\n    xdsMitteilungenToNachname.Size := 40;\r\n    xdsMitteilungenToVorname.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenToVorname.Name := 'xdsMitteilungenToVorname';\r\n    xdsMitteilungenToVorname.FieldName := 'ToVorname';\r\n    xdsMitteilungenToVorname.Size := 40;\r\n    xdsMitteilungenDatumGelesen.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenDatumGelesen.Name := 'xdsMitteilungenDatumGelesen';\r\n    xdsMitteilungenDatumGelesen.FieldName := 'DatumGelesen';\r\n    xdsMitteilungenDatumErledigt.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenDatumErledigt.Name := 'xdsMitteilungenDatumErledigt';\r\n    xdsMitteilungenDatumErledigt.FieldName := 'DatumErledigt';\r\n    xdsMitteilungenMSGBoardIDFromPersonalnummer.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenMSGBoardIDFromPersonalnummer.Name := 'xdsMitteilungenMSGBoardIDFromPersonalnummer';\r\n    xdsMitteilungenMSGBoardIDFromPersonalnummer.FieldName := 'MSGBoardID.FromPersonalnummer';\r\n    xdsMitteilungenMSGBoardIDID.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenMSGBoardIDID.Name := 'xdsMitteilungenMSGBoardIDID';\r\n    xdsMitteilungenMSGBoardIDID.FieldName := 'MSGBoardID.ID';\r\n    xdsMitteilungenMSGBoardIDID.Size := 38;\r\n    xdsMitteilungenMSGBoardIDDatum.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenMSGBoardIDDatum.Name := 'xdsMitteilungenMSGBoardIDDatum';\r\n    xdsMitteilungenMSGBoardIDDatum.FieldName := 'MSGBoardID.Datum';\r\n    xdsMitteilungenMSGBoardIDFromNachname.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenMSGBoardIDFromNachname.Name := 'xdsMitteilungenMSGBoardIDFromNachname';\r\n    xdsMitteilungenMSGBoardIDFromNachname.FieldName := 'MSGBoardID.FromNachname';\r\n    xdsMitteilungenMSGBoardIDFromNachname.Size := 40;\r\n    xdsMitteilungenMSGBoardIDFromVorname.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenMSGBoardIDFromVorname.Name := 'xdsMitteilungenMSGBoardIDFromVorname';\r\n    xdsMitteilungenMSGBoardIDFromVorname.FieldName := 'MSGBoardID.FromVorname';\r\n    xdsMitteilungenMSGBoardIDFromVorname.Size := 40;\r\n    xdsMitteilungenMSGBoardIDBetreff.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenMSGBoardIDBetreff.Name := 'xdsMitteilungenMSGBoardIDBetreff';\r\n    xdsMitteilungenMSGBoardIDBetreff.FieldName := 'MSGBoardID.Betreff';\r\n    xdsMitteilungenMSGBoardIDBetreff.Size := 255;\r\n    xdsMitteilungenMSGBoardIDNotiz.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenMSGBoardIDNotiz.Name := 'xdsMitteilungenMSGBoardIDNotiz';\r\n    xdsMitteilungenMSGBoardIDNotiz.FieldName := 'MSGBoardID.Notiz';\r\n    xdsMitteilungenMSGBoardIDNotiz.Size := 255;\r\n    xdsMitteilungenToPersonalnummerPersonalnummer.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenToPersonalnummerPersonalnummer.Name := 'xdsMitteilungenToPersonalnummerPersonalnummer';\r\n    xdsMitteilungenToPersonalnummerPersonalnummer.FieldName := 'ToPersonalnummer.Personalnummer';\r\n    xdsMitteilungenMSGBoardIDFromPersonalnummerPersonalnummer.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenMSGBoardIDFromPersonalnummerPersonalnummer.Name := 'xdsMitteilungenMSGBoardIDFromPersonalnummerPersonalnummer';\r\n    xdsMitteilungenMSGBoardIDFromPersonalnummerPersonalnummer.FieldName := 'MSGBoardID.FromPersonalnummer.Personalnummer';\r\n  finally\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    btnGesendete.AfterLoadDFMValues;\r\n    btnErhaltene.AfterLoadDFMValues;\r\n    btnNeueMitteilung.AfterLoadDFMValues;\r\n    btnErhalteneUngefiltert.AfterLoadDFMValues;\r\n    xdsMitteilungen.AfterLoadDFMValues;\r\n    xdsMitteilungenMSGBoardID.AfterLoadDFMValues;\r\n    xdsMitteilungenToPersonalnummer.AfterLoadDFMValues;\r\n    xdsMitteilungenMSGBoardSubID.AfterLoadDFMValues;\r\n    xdsMitteilungenToNachname.AfterLoadDFMValues;\r\n    xdsMitteilungenToVorname.AfterLoadDFMValues;\r\n    xdsMitteilungenDatumGelesen.AfterLoadDFMValues;\r\n    xdsMitteilungenDatumErledigt.AfterLoadDFMValues;\r\n    xdsMitteilungenMSGBoardIDFromPersonalnummer.AfterLoadDFMValues;\r\n    xdsMitteilungenMSGBoardIDID.AfterLoadDFMValues;\r\n    xdsMitteilungenMSGBoardIDDatum.AfterLoadDFMValues;\r\n    xdsMitteilungenMSGBoardIDFromNachname.AfterLoadDFMValues;\r\n    xdsMitteilungenMSGBoardIDFromVorname.AfterLoadDFMValues;\r\n    xdsMitteilungenMSGBoardIDBetreff.AfterLoadDFMValues;\r\n    xdsMitteilungenMSGBoardIDNotiz.AfterLoadDFMValues;\r\n    xdsMitteilungenToPersonalnummerPersonalnummer.AfterLoadDFMValues;\r\n    xdsMitteilungenMSGBoardIDFromPersonalnummerPersonalnummer.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.","unit unit_EinzelTicket;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Vcl.Controls, WEBLib.ExtCtrls, Vcl.StdCtrls,\r\n  WEBLib.StdCtrls, Data.DB, XData.Web.JsonDataset, XData.Web.Dataset, DB,\r\n  WEBLib.Grids, XData.Web.Client, strutils, WEBLib.DBCtrls;\r\n\r\ntype\r\n  TEinzelTicket = class(TForm)\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    Container3: THTMLContainer;\r\n    btnzurueck: TButton;\r\n    xdsTicket: TXDataWebDataSet;\r\n    TC: TTableControl;\r\n    btnSpeichern: TButton;\r\n    xdsTicketKundennummer: TXDataWebEntityField;\r\n    xdsTicketKundennummerZahlungsbedingung: TXDataWebEntityField;\r\n    xdsTicketKundennummerKundennummer: TStringField;\r\n    xdsTicketKundennummerGruppeKunden: TBooleanField;\r\n    xdsTicketKundennummerGruppeLieferanten: TBooleanField;\r\n    xdsTicketKundennummerGruppeSonstige: TBooleanField;\r\n    xdsTicketKundennummerGruppeNichtkunden: TBooleanField;\r\n    xdsTicketKundennummerKontaktgruppe: TStringField;\r\n    xdsTicketKundennummerNachname: TStringField;\r\n    xdsTicketKundennummerVorname: TStringField;\r\n    xdsTicketKundennummerAdresszeile2: TStringField;\r\n    xdsTicketKundennummerAdresszeile3: TStringField;\r\n    xdsTicketKundennummerStrasse: TStringField;\r\n    xdsTicketKundennummerPostleitzahl: TStringField;\r\n    xdsTicketKundennummerOrt: TStringField;\r\n    xdsTicketKundennummerLaenderkuerzel: TStringField;\r\n    xdsTicketKundennummerLand: TStringField;\r\n    xdsTicketKundennummerLaenderkennzeichen: TBooleanField;\r\n    xdsTicketKundennummerAdressanrede: TStringField;\r\n    xdsTicketKundennummerBriefanrede1: TStringField;\r\n    xdsTicketKundennummerBriefanrede2: TStringField;\r\n    xdsTicketKundennummerAdresseBild: TStringField;\r\n    xdsTicketKundennummerLieferanschrift: TStringField;\r\n    xdsTicketKundennummerGeburtsdatum: TDateTimeField;\r\n    xdsTicketKundennummerTelefonNummer: TStringField;\r\n    xdsTicketKundennummerTelefaxNummer: TStringField;\r\n    xdsTicketKundennummerMobilTelefon: TStringField;\r\n    xdsTicketKundennummerEMail: TStringField;\r\n    xdsTicketKundennummerInternet: TStringField;\r\n    xdsTicketKundennummerUmsatzsteuerID: TStringField;\r\n    xdsTicketKundennummerUmsatzsteuerausweis: TBooleanField;\r\n    xdsTicketKundennummerBemerkungen: TStringField;\r\n    xdsTicketKundennummerBranche: TStringField;\r\n    xdsTicketKundennummerSelektiert1: TBooleanField;\r\n    xdsTicketKundennummerSelektiert2: TBooleanField;\r\n    xdsTicketKundennummerSelektiert3: TBooleanField;\r\n    xdsTicketKundennummerTransportbedingung: TStringField;\r\n    xdsTicketKundennummerKilometer: TIntegerField;\r\n    xdsTicketKundennummerRabattsatz: TFloatField;\r\n    xdsTicketKundennummerStundensatz: TFloatField;\r\n    xdsTicketKundennummerKontonummer: TStringField;\r\n    xdsTicketKundennummerBank: TStringField;\r\n    xdsTicketKundennummerBankleitzahl: TFloatField;\r\n    xdsTicketKundennummerKontoinhaber: TStringField;\r\n    xdsTicketKundennummerBetreuer: TStringField;\r\n    xdsTicketKundennummerQuelle: TStringField;\r\n    xdsTicketKundennummerSuchmerkmal: TStringField;\r\n    xdsTicketKundennummerWarenkreditlimit: TFloatField;\r\n    xdsTicketKundennummerWarenkreditgesperrt: TBooleanField;\r\n    xdsTicketKundennummerKundennummerFremd: TStringField;\r\n    xdsTicketKundennummerKeinNewsletter: TBooleanField;\r\n    xdsTicketKundennummerDebitorennummer: TStringField;\r\n    xdsTicketKundennummerKreditorennummer: TStringField;\r\n    xdsTicketKundennummerRabattstufe: TStringField;\r\n    xdsTicketKundennummerTelefonAlternativ: TStringField;\r\n    xdsTicketKundennummerKostentraeger: TStringField;\r\n    xdsTicketKundennummerIBAN: TStringField;\r\n    xdsTicketKundennummerBIC: TStringField;\r\n    xdsTicketKundennummerEmailkonto: TStringField;\r\n    xdsTicketKundennummerBenutzername: TStringField;\r\n    xdsTicketKundennummerPasswort: TStringField;\r\n    xdsTicketKundennummerExportOutlook: TBooleanField;\r\n    xdsTicketKundennummerNichtInListeAnzeigen: TBooleanField;\r\n    xdsTicketKundennummerKreditkarteArt: TStringField;\r\n    xdsTicketKundennummerKreditkarteInhaber: TStringField;\r\n    xdsTicketKundennummerKreditkarteNummer: TStringField;\r\n    xdsTicketKundennummerKreditkarteGueltigMonat: TStringField;\r\n    xdsTicketKundennummerKreditkarteGueltigJahr: TIntegerField;\r\n    xdsTicketKundennummerKreditkartePruefziffer: TStringField;\r\n    xdsTicketKundennummerDatumNeu: TDateTimeField;\r\n    xdsTicketKundennummerDatumgeaendert: TDateTimeField;\r\n    xdsTicketKundennummerTitel: TStringField;\r\n    xdsTicketKundennummerStundensatzMontage: TFloatField;\r\n    xdsTicketKundennummerStdMontageU25: TFloatField;\r\n    xdsTicketKundennummerStdMontageU50: TFloatField;\r\n    xdsTicketKundennummerStdMontageU70: TFloatField;\r\n    xdsTicketKundennummerStdMontageU100: TFloatField;\r\n    xdsTicketKundennummerStdMontageU150: TFloatField;\r\n    xdsTicketKundennummerStundensatzWerkstatt: TFloatField;\r\n    xdsTicketKundennummerStdWerkstattU25: TFloatField;\r\n    xdsTicketKundennummerStdWerkstattU50: TFloatField;\r\n    xdsTicketKundennummerStdWerkstattU70: TFloatField;\r\n    xdsTicketKundennummerStdWerkstattU100: TFloatField;\r\n    xdsTicketKundennummerStdWerkstattU150: TFloatField;\r\n    xdsTicketKundennummerArchivReferenz: TStringField;\r\n    xdsTicketKundennummerErloesKontoUST1: TStringField;\r\n    xdsTicketKundennummerErloesKontoUST2: TStringField;\r\n    xdsTicketKundennummerErloesKontoUST3: TStringField;\r\n    xdsTicketKundennummerGebKal: TBooleanField;\r\n    xdsTicketKundennummerEmailversand: TBooleanField;\r\n    xdsTicketKundennummerMahnspesen: TBooleanField;\r\n    xdsTicketKundennummerRechnungSchluss: TStringField;\r\n    xdsTicketKundennummerBenutzerNeu: TStringField;\r\n    xdsTicketKundennummerBenutzerGeaendert: TStringField;\r\n    xdsTicketKundennummerBelegsprache: TStringField;\r\n    xdsTicketKundennummerkmSatz: TFloatField;\r\n    xdsTicketKundennummerKundenklassetext: TStringField;\r\n    xdsTicketKundennummerKundenklasseFarbe: TIntegerField;\r\n    xdsTicketKundennummerAbweichenderRechnungsEmpfaenger: TStringField;\r\n    xdsTicketKundennummerProtokoll: TStringField;\r\n    xdsTicketKundennummerILNTyp1: TStringField;\r\n    xdsTicketKundennummerILNTyp2: TStringField;\r\n    xdsTicketKundennummerKontaktGUID: TStringField;\r\n    xdsTicketKundennummerPLZGUID: TStringField;\r\n    xdsTicketKundennummerPreislistenVariantePakete: TStringField;\r\n    xdsTicketKundennummerSchluesselRechnungslauf: TStringField;\r\n    xdsTicketKundennummerRechnungEmail: TStringField;\r\n    xdsTicketKundennummerZahlungsbedingungEK: TIntegerField;\r\n    xdsTicketKundennummerTransportbedingungEK: TStringField;\r\n    xdsTicketKundennummerRabattsatzEK: TFloatField;\r\n    xdsTicketKundennummerVertreterMatchcode: TStringField;\r\n    xdsTicketKundennummerVertreterProvisionssatz: TFloatField;\r\n    xdsTicketKundennummerUmsatzVKJahr: TFloatField;\r\n    xdsTicketKundennummerUmsatzVKVorjahr: TFloatField;\r\n    xdsTicketKundennummerUmsatzEKJahr: TFloatField;\r\n    xdsTicketKundennummerUmsatzEKVorjahr: TFloatField;\r\n    xdsTicketKundennummerSteuernummer: TStringField;\r\n    xdsTicketKundennummerLoginPW: TStringField;\r\n    xdsTicketKundennummerREperFax: TBooleanField;\r\n    xdsTicketKundennummerErreichbarkeit: TStringField;\r\n    xdsTicketKundennummerErloesKontoUST4: TStringField;\r\n    xdsTicketKundennummerErloesKontoUST5: TStringField;\r\n    xdsTicketKundennummerErloesKontoUST6: TStringField;\r\n    xdsTicketKundennummerBesteuerungKey: TIntegerField;\r\n    xdsTicketKundennummerAuftraegeJahr: TFloatField;\r\n    xdsTicketKundennummerAuftraegeVorjahr: TFloatField;\r\n    xdsTicketKundennummerLieferadresseID: TIntegerField;\r\n    xdsTicketKundennummerUSTIDgeprueft: TDateTimeField;\r\n    xdsTicketKundennummerKontaktverbund: TStringField;\r\n    xdsTicketKundennummerHinweis: TStringField;\r\n    xdsTicketKundennummerLatitude: TFloatField;\r\n    xdsTicketKundennummerLongitude: TFloatField;\r\n    xdsTicketKundennummerkmLuftlinie: TFloatField;\r\n    xdsTicketKundennummerGoogleID: TStringField;\r\n    xdsTicketKundennummerGoogleUpdatedUTC: TDateTimeField;\r\n    xdsTicketKundennummerBundesland: TStringField;\r\n    xdsTicketKundennummerRegion: TStringField;\r\n    xdsTicketKundennummerMandatsreferenz: TStringField;\r\n    xdsTicketKundennummerMandatsreferenzVom: TDateTimeField;\r\n    xdsTicketKundennummerLastschriftArt: TStringField;\r\n    xdsTicketKundennummerMahnsperre: TBooleanField;\r\n    xdsTicketKundennummerSuchbegriff: TStringField;\r\n    xdsTicketKundennummerLieferanschriftDaten: TStringField;\r\n    xdsTicketKundennummerExportKasse: TBooleanField;\r\n    xdsTicketKundennummerLoeschvormerkungDatum: TDateTimeField;\r\n    xdsTicketKundennummerLoeschvormerkungGrund: TStringField;\r\n    xdsTicketKundennummerPseudonymisiert: TStringField;\r\n    xdsTicketKundennummerLoginAktiv: TIntegerField;\r\n    xdsTicketKundennummerSonstigeDaten: TStringField;\r\n    xdsTicketKundennummerB2C: TBooleanField;\r\n    xdsTicketKundennummerTIN: TStringField;\r\n    xdsTicketKundennummerMindestbestellwert: TFloatField;\r\n    xdsTicketKundennummerBruttoberechnung: TIntegerField;\r\n    xdsTicketKundennummerDruckWHG: TStringField;\r\n    xdsTicketKundennummerBerechtigungen: TStringField;\r\n    xdsTicketKundennummerRechnungCC: TStringField;\r\n    xdsTicketProdukt: TXDataWebEntityField;\r\n    xdsTicketProduktProdukt: TStringField;\r\n    xdsTicketKategorie: TXDataWebEntityField;\r\n    xdsTicketKategorieKategorie: TStringField;\r\n    xdsTicketPrioritaet: TXDataWebEntityField;\r\n    xdsTicketPrioritaetPrioritaet: TIntegerField;\r\n    xdsTicketPrioritaetPrioText: TStringField;\r\n    xdsTicketPrioritaetPrioFarbe: TIntegerField;\r\n    xdsTicketStatus: TXDataWebEntityField;\r\n    xdsTicketID: TIntegerField;\r\n    xdsTicketErstelltAm: TDateTimeField;\r\n    xdsTicketBetreff: TStringField;\r\n    xdsTicketBeschreibung: TStringField;\r\n    xdsTicketAbrechnungsbetrag: TFloatField;\r\n    xdsTicketAbrechnungRechnungsnummer: TStringField;\r\n    xdsTicketAberechnetAm: TDateTimeField;\r\n    xdsTicketErledigtAm: TDateTimeField;\r\n    xdsTicketNachname: TStringField;\r\n    xdsTicketVorname: TStringField;\r\n    xdsTicketEmail: TStringField;\r\n    xdsTicketSystemInfo: TStringField;\r\n    xdsTicketLoesung: TStringField;\r\n    xdsTicketProtokoll: TStringField;\r\n    xdsTicketZeitaufwandMinuten: TIntegerField;\r\n    xdsTicketAbzurechnendeMinuten: TIntegerField;\r\n    xdsTicketAbgerechneteMinuten: TIntegerField;\r\n    xdsTicketBenachrichtigungNEU: TDateTimeField;\r\n    xdsTicketBenachrichtigungLoesung: TDateTimeField;\r\n    xdsTicketInterneBemerkung: TStringField;\r\n    xdsTicketLoesungInfoSenden: TIntegerField;\r\n    xdsTicketKontaktperson: TStringField;\r\n    xdsTicketErreichbarkeitTelefon: TStringField;\r\n    xdsTicketErreichbarkeitWann: TStringField;\r\n    xdsTStatus: TXDataWebDataSet;\r\n    xdsTStatusStatus: TStringField;\r\n    webDBCStatus: TDBComboBox;\r\n    sourceTicket: TDataSource;\r\n    sourceTStatus: TDataSource;\r\n    xdsTicketStatusStatus: TStringField;\r\n    xdsTicketKonversation: TXDataWebDataSet;\r\n    sourceTicketKonversation: TDataSource;\r\n    xdsTicketKonversationTicketID: TXDataWebEntityField;\r\n    xdsTicketKonversationID: TIntegerField;\r\n    xdsTicketKonversationDatumUhrzeit: TDateTimeField;\r\n    xdsTicketKonversationAntwortText: TStringField;\r\n    xdsTicketKonversationNachrichtSenden: TIntegerField;\r\n    xdsTicketKonversationNachrichtGesendet: TDateTimeField;\r\n    btnAntwortNeu: TButton;\r\n    edtNotiz: TMemo;\r\n    btnAntwortSpeichern: TButton;\r\n    xdsTicketKonversationVerfasser: TStringField;\r\n    checkBenachrichtigung: TCheckBox;\r\n    lblinfo: TLabel;\r\n    lblKonversation: TLabel;\r\n    xdsTicketKonversationQuellProgramm: TStringField;\r\n    xdsTicketDateien: TXDataWebDataSet;\r\n    xdsTicketDateienTicketID: TXDataWebEntityField;\r\n    xdsTicketDateienID: TIntegerField;\r\n    xdsTicketDateienDatumUhrzeit: TDateTimeField;\r\n    xdsTicketDateienFuerLoesung: TIntegerField;\r\n    xdsTicketDateienDateiMime: TStringField;\r\n    xdsTicketDateienDateiName: TStringField;\r\n    xdsTicketDateienDateiGroesse: TIntegerField;\r\n    xdsTicketDateienDateiInhaltText: TStringField;\r\n    xdsTicketKontaktpersonEmail: TStringField;\r\n    xdskontosaldo: TXDataWebDataSet;\r\n    xdskontosaldoKundennummer: TStringField;\r\n    xdskontosaldoZeitaufwand: TIntegerField;\r\n    xdskontosaldoAbzurechnen: TIntegerField;\r\n    xdskontosaldoGutschrift: TIntegerField;\r\n    xdskontosaldoAbzug: TIntegerField;\r\n    xdskontosaldoSaldo: TIntegerField;\r\n    xdskontosaldoBetrag: TFloatField;\r\n    xdskontosaldoMinutenpreis: TFloatField;\r\n    xdskontosaldoSRestguthaben: TIntegerField;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure xdsTicketAfterOpen(DataSet: TDataSet);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n    procedure btnSpeichernClick(Sender: TObject);\r\n    procedure xdsTStatusAfterOpen(DataSet: TDataSet);\r\n    procedure WebFormClose(Sender: TObject; var Action: TCloseAction);\r\n    procedure sourceTicketStateChange(Sender: TObject);\r\n    procedure xdsTicketAfterPost(DataSet: TDataSet);\r\n    procedure xdsTicketAfterApplyUpdates(Sender: TDataSet;\r\n      Info: TResolveResults);\r\n    procedure xdsTicketBeforePost(DataSet: TDataSet);\r\n    procedure xdsTicketKonversationAfterOpen(DataSet: TDataSet);\r\n    procedure btnAntwortNeuClick(Sender: TObject);\r\n    procedure btnAntwortSpeichernClick(Sender: TObject);\r\n    procedure xdsTicketKonversationAfterPost(DataSet: TDataSet);\r\n    procedure xdsTicketKonversationAfterApplyUpdates(Sender: TDataSet;\r\n      Info: TResolveResults);\r\n    procedure xdsTicketDateienAfterOpen(DataSet: TDataSet);\r\n    procedure xdskontosaldoAfterOpen(DataSet: TDataSet);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    MerkerTicket:string;\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  EinzelTicket: TEinzelTicket;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_BarcodeScan;\r\n{$R *.dfm}\r\n\r\n\r\n\r\nprocedure TEinzelTicket.btnAntwortNeuClick(Sender: TObject);\r\nbegin\r\n  btnAntwortNeu.visible:=false;\r\n  lblinfo.Visible:=true;\r\n  checkBenachrichtigung.Visible:=true;\r\n  edtNotiz.visible:=true;\r\n  btnantwortspeichern.Visible:=true;\r\n  edtNotiz.SetFocus;\r\nend;\r\n\r\nprocedure TEinzelTicket.btnAntwortSpeichernClick(Sender: TObject);\r\nbegin\r\n  xdsticketkonversation.Append;\r\n  xdsTicketKonversationTicketID.Value:=xdsTicket.CurrentData;\r\n  xdsTicketKonversationDatumUhrzeit.AsDateTime:=date+time;\r\n  xdsTicketKonversationAntwortText.AsString:=edtnotiz.Text;\r\n  xdsTicketKonversationVerfasser.AsString:=leftstr(trim(BenutzerVorname+' '+BenutzerNachname),50);\r\n  xdsTicketKonversationQuellProgramm.AsString:='CadiaWEB';\r\n  if checkBenachrichtigung.checked then\r\n  begin\r\n    xdsTicketKonversationNachrichtSenden.AsInteger:=1;\r\n  end\r\n  else\r\n  begin\r\n    xdsTicketKonversationNachrichtSenden.AsInteger:=0;\r\n  end;\r\n  xdsTicketkonversation.Post;\r\n\r\nend;\r\n\r\nprocedure TEinzelTicket.btnSpeichernClick(Sender: TObject);\r\nbegin\r\n  xdsTicket.Post;\r\nend;\r\n\r\nprocedure TEinzelTicket.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  xdsTicket.Close;\r\n  self.Close;\r\nend;\r\n\r\nprocedure TEinzelTicket.sourceTicketStateChange(Sender: TObject);\r\nbegin\r\n  if xdsTicket.State in dseditmodes then btnspeichern.Enabled:=true else btnspeichern.Enabled:=false;\r\nend;\r\n\r\nprocedure TEinzelTicket.WebFormClose(Sender: TObject; var Action: TCloseAction);\r\nbegin\r\n  action:=cafree;\r\nend;\r\n\r\nprocedure TEinzelTicket.WebFormShow(Sender: TObject);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>EinzelTicket</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  btnSpeichern.parentelement:=myelement;\r\n  webDBCStatus.ParentElement:=myelement;\r\n  //btnSpeichern.Visible:=false;\r\n  container2.ParentElement:=myelement;\r\n  myelement:=container2.ElementHandle;\r\n  tc.ParentElement:=myelement;\r\n  myelement:=container3.ElementHandle;\r\n  lblkonversation.parentelement:=myelement;\r\n  btnAntwortNeu.ParentElement:=myelement;\r\n  lblinfo.ParentElement:=myelement;\r\n  checkBenachrichtigung.ParentElement:=myelement;\r\n  checkbenachrichtigung.Caption:='';\r\n  edtnotiz.ParentElement:=myelement;\r\n  edtnotiz.text:='';\r\n  edtnotiz.visible:=false;\r\n  btnantwortspeichern.parentelement:=myelement;\r\n  lblinfo.Visible:=false;\r\n  checkBenachrichtigung.Visible:=false;\r\n  xdsTstatus.load;\r\n\r\nend;\r\n\r\nprocedure TEinzelTicket.xdskontosaldoAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  tc.Cells[0,2]:='<small><i>Support-Konto-Saldo: </i></small><b>'+xdskontosaldosaldo.asstring+'</b>';\r\nend;\r\n\r\nprocedure TEinzelTicket.xdsTicketAfterApplyUpdates(Sender: TDataSet;\r\n  Info: TResolveResults);\r\nbegin\r\n  if info.Records[0].Error<>'' then showmessage(info.Records[0].Error);\r\n  xdsticket.Close;\r\n  xdsTicketkonversation.load;\r\nend;\r\n\r\nprocedure TEinzelTicket.xdsTicketAfterOpen(DataSet: TDataSet);\r\nvar\r\n  i:integer;\r\n  myelement:TJSHTMLElement;\r\n  mytemptext:string;\r\nbegin\r\n  btnantwortspeichern.visible:=false;\r\n  i:=0;\r\n  tc.Visible:=true;\r\n  tc.RowCount:=xdsticketkonversation.recordcount+11;\r\n  tc.ColCount:=1;\r\n  tc.Cells[0,i]:='<small><i>Ticket-ID: </i></small>'+ xdsticketID.asstring+' | '+formatdatetime('DD.MM.YYYY hh:mm',xdsTicketErstelltAm.AsDateTime)+'<br><b>'+xdsticketbetreff.asstring;\r\n  inc(i);\r\n\r\n  tc.Cells[0,i]:=xdsTicketKundennummerKundennummer.asstring+ ' | '+xdsTicketNachname.asstring;\r\n  inc(i);\r\n  tc.Cells[0,i]:='<small><i>Support-Konto-Saldo: </i></small>';\r\n  inc(i);\r\n  mytemptext:='';\r\n  if xdsticketkontaktperson.asstring<>'' then mytemptext:=mytemptext+xdsticketKontaktperson.asstring+'<br>';\r\n  if xdsticketkontaktpersonEmail.asstring<>'' then mytemptext:=mytemptext+xdsticketKontaktpersonEmail.asstring+'<br>';\r\n  if xdsticketErreichbarkeitWann.asstring<>'' then mytemptext:=mytemptext+xdsticketErreichbarkeitWann.asstring+'<br>';\r\n  if xdsticketErreichbarkeitTelefon.asstring<>'' then mytemptext:=mytemptext+xdsticketErreichbarkeitTelefon.asstring;\r\n  tc.Cells[0,i]:=mytemptext;\r\n\r\n  webdbCStatus.text:=xdsticketstatusstatus.asstring;\r\n  inc(i);\r\n  tc.Cells[0,i]:='<small><i>Aufwand (Min.): </i></small>'+xdsticketzeitaufwandminuten.asstring+'<small><i> | Abrechnen: </i></small>'+xdsticketAbzurechnendeMinuten.asstring;\r\n\r\n  inc(i);\r\n  tc.Cells[0,i]:=xdsticketbeschreibung.asstring;\r\n  if xdsticketloesung.AsString<>'' then\r\n  begin\r\n    inc(i);\r\n    tc.Cells[0,i]:='<small><i>Lösung</i></small><br>'+xdsticketloesung.asstring;\r\n  end;\r\n  if xdsticketInterneBemerkung.asstring<>'' then\r\n  begin\r\n    inc(i);\r\n    tc.Cells[0,i]:='<small><i>Interne Bemerkung</i></small><br>'+xdsticketInterneBemerkung.asstring;\r\n  end;\r\n\r\n  if xdsTicketDateien.recordcount>0 then\r\n  begin\r\n    inc(i);\r\n    mytemptext:='<small><i>Dateien</i></small><br>';\r\n\r\n    xdsTicketDateien.First;\r\n    while not xdsTicketDateien.EOF do\r\n    begin\r\n      mytemptext:=mytemptext + xdsTicketDateienDateiName.AsString + '<br>';\r\n      xdsTicketDateien.Next;\r\n    end;\r\n    tc.Cells[0,i]:=mytemptext;\r\n  end;\r\n\r\n\r\n\r\n  inc(i);\r\n  myelement:=tc.CellElements[0,i];\r\n  container3.ParentElement:=myelement;\r\n\r\n  tc.RowCount:=xdsticketkonversation.recordcount+i+1;\r\n\r\n  xdsticketkonversation.first;\r\n  while not xdsticketkonversation.eof do\r\n  begin\r\n    inc(i);\r\n    tc.cells[0,i]:='<small><i>'+xdsTicketKonversationVerfasser.AsString+' | '+xdsticketkonversationdatumuhrzeit.asstring+'</i></small><br>'+ xdsticketkonversationantworttext.asstring;\r\n    xdsticketkonversation.next;\r\n  end;\r\n  xdskontosaldo.close;\r\n  xdskontosaldo.querystring:='$filter=Kundennummer eq '+xdsticketkundennummerkundennummer.asstring;\r\n  xdskontosaldo.load;\r\nend;\r\n\r\nprocedure TEinzelTicket.xdsTicketAfterPost(DataSet: TDataSet);\r\nbegin\r\n  xdsticket.ApplyUpdates;\r\nend;\r\n\r\nprocedure TEinzelTicket.xdsTicketBeforePost(DataSet: TDataSet);\r\nbegin\r\n  xdsTStatus.locate('Status',webDBCStatus.text,[]);\r\n  xdsTicketStatus.value:=xdsTStatus.CurrentData;\r\nend;\r\n\r\nprocedure TEinzelTicket.xdsTicketDateienAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  xdsticket.close;\r\n  xdsticket.QueryString:='$expand=Kundennummer,Status&$filter=ID eq '+merkerticket;\r\n  xdsticket.Load;\r\nend;\r\n\r\nprocedure TEinzelTicket.xdsTicketKonversationAfterApplyUpdates(Sender: TDataSet;\r\n  Info: TResolveResults);\r\nbegin\r\n  if info.Records[0].Error<>'' then showmessage(info.Records[0].Error);\r\n  xdsTicketKonversation.close;\r\n  edtNotiz.Text:='';\r\n  xdsticket.edit;\r\n  //webdbCStatus.text:='neue Antwort vom Kunden';\r\n  xdsticket.Post;\r\n\r\nend;\r\n\r\nprocedure TEinzelTicket.xdsTicketKonversationAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  xdsTicketDateien.close;\r\n  xdsTicketDateien.QueryString:='$filter=TicketID eq '+merkerticket+'&$orderby=DatumUhrzeit DESC';\r\n  xdsTicketDateien.load;\r\nend;\r\n\r\nprocedure TEinzelTicket.xdsTicketKonversationAfterPost(DataSet: TDataSet);\r\nbegin\r\n  btnAntwortNeu.visible:=true;\r\n  lblinfo.Visible:=false;\r\n  checkBenachrichtigung.Visible:=false;\r\n  edtNotiz.visible:=false;\r\n  btnantwortspeichern.Visible:=false;\r\n  xdsTicketKonversation.ApplyUpdates;\r\nend;\r\n\r\nprocedure TEinzelTicket.xdsTStatusAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  xdsTicketKonversation.close;\r\n  xdsTicketKonversation.QueryString:='$filter=TicketID eq '+merkerticket+'&$orderby=DatumUhrzeit DESC';\r\n  xdsTicketkonversation.load;\r\nend;\r\n\r\nprocedure TEinzelTicket.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  lblinfo := TLabel.Create(Self);\r\n  lblKonversation := TLabel.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  TC := TTableControl.Create(Self);\r\n  btnSpeichern := TButton.Create(Self);\r\n  webDBCStatus := TDBComboBox.Create(Self);\r\n  btnAntwortNeu := TButton.Create(Self);\r\n  edtNotiz := TMemo.Create(Self);\r\n  btnAntwortSpeichern := TButton.Create(Self);\r\n  checkBenachrichtigung := TCheckBox.Create(Self);\r\n  xdsTicket := TXDataWebDataSet.Create(Self);\r\n  xdsTicketKundennummer := TXDataWebEntityField.Create(Self);\r\n  xdsTicketKundennummerZahlungsbedingung := TXDataWebEntityField.Create(Self);\r\n  xdsTicketKundennummerKundennummer := TStringField.Create(Self);\r\n  xdsTicketKundennummerGruppeKunden := TBooleanField.Create(Self);\r\n  xdsTicketKundennummerGruppeLieferanten := TBooleanField.Create(Self);\r\n  xdsTicketKundennummerGruppeSonstige := TBooleanField.Create(Self);\r\n  xdsTicketKundennummerGruppeNichtkunden := TBooleanField.Create(Self);\r\n  xdsTicketKundennummerKontaktgruppe := TStringField.Create(Self);\r\n  xdsTicketKundennummerNachname := TStringField.Create(Self);\r\n  xdsTicketKundennummerVorname := TStringField.Create(Self);\r\n  xdsTicketKundennummerAdresszeile2 := TStringField.Create(Self);\r\n  xdsTicketKundennummerAdresszeile3 := TStringField.Create(Self);\r\n  xdsTicketKundennummerStrasse := TStringField.Create(Self);\r\n  xdsTicketKundennummerPostleitzahl := TStringField.Create(Self);\r\n  xdsTicketKundennummerOrt := TStringField.Create(Self);\r\n  xdsTicketKundennummerLaenderkuerzel := TStringField.Create(Self);\r\n  xdsTicketKundennummerLand := TStringField.Create(Self);\r\n  xdsTicketKundennummerLaenderkennzeichen := TBooleanField.Create(Self);\r\n  xdsTicketKundennummerAdressanrede := TStringField.Create(Self);\r\n  xdsTicketKundennummerBriefanrede1 := TStringField.Create(Self);\r\n  xdsTicketKundennummerBriefanrede2 := TStringField.Create(Self);\r\n  xdsTicketKundennummerAdresseBild := TStringField.Create(Self);\r\n  xdsTicketKundennummerLieferanschrift := TStringField.Create(Self);\r\n  xdsTicketKundennummerGeburtsdatum := TDateTimeField.Create(Self);\r\n  xdsTicketKundennummerTelefonNummer := TStringField.Create(Self);\r\n  xdsTicketKundennummerTelefaxNummer := TStringField.Create(Self);\r\n  xdsTicketKundennummerMobilTelefon := TStringField.Create(Self);\r\n  xdsTicketKundennummerEMail := TStringField.Create(Self);\r\n  xdsTicketKundennummerInternet := TStringField.Create(Self);\r\n  xdsTicketKundennummerUmsatzsteuerID := TStringField.Create(Self);\r\n  xdsTicketKundennummerUmsatzsteuerausweis := TBooleanField.Create(Self);\r\n  xdsTicketKundennummerBemerkungen := TStringField.Create(Self);\r\n  xdsTicketKundennummerBranche := TStringField.Create(Self);\r\n  xdsTicketKundennummerSelektiert1 := TBooleanField.Create(Self);\r\n  xdsTicketKundennummerSelektiert2 := TBooleanField.Create(Self);\r\n  xdsTicketKundennummerSelektiert3 := TBooleanField.Create(Self);\r\n  xdsTicketKundennummerTransportbedingung := TStringField.Create(Self);\r\n  xdsTicketKundennummerKilometer := TIntegerField.Create(Self);\r\n  xdsTicketKundennummerRabattsatz := TFloatField.Create(Self);\r\n  xdsTicketKundennummerStundensatz := TFloatField.Create(Self);\r\n  xdsTicketKundennummerKontonummer := TStringField.Create(Self);\r\n  xdsTicketKundennummerBank := TStringField.Create(Self);\r\n  xdsTicketKundennummerBankleitzahl := TFloatField.Create(Self);\r\n  xdsTicketKundennummerKontoinhaber := TStringField.Create(Self);\r\n  xdsTicketKundennummerBetreuer := TStringField.Create(Self);\r\n  xdsTicketKundennummerQuelle := TStringField.Create(Self);\r\n  xdsTicketKundennummerSuchmerkmal := TStringField.Create(Self);\r\n  xdsTicketKundennummerWarenkreditlimit := TFloatField.Create(Self);\r\n  xdsTicketKundennummerWarenkreditgesperrt := TBooleanField.Create(Self);\r\n  xdsTicketKundennummerKundennummerFremd := TStringField.Create(Self);\r\n  xdsTicketKundennummerKeinNewsletter := TBooleanField.Create(Self);\r\n  xdsTicketKundennummerDebitorennummer := TStringField.Create(Self);\r\n  xdsTicketKundennummerKreditorennummer := TStringField.Create(Self);\r\n  xdsTicketKundennummerRabattstufe := TStringField.Create(Self);\r\n  xdsTicketKundennummerTelefonAlternativ := TStringField.Create(Self);\r\n  xdsTicketKundennummerKostentraeger := TStringField.Create(Self);\r\n  xdsTicketKundennummerIBAN := TStringField.Create(Self);\r\n  xdsTicketKundennummerBIC := TStringField.Create(Self);\r\n  xdsTicketKundennummerEmailkonto := TStringField.Create(Self);\r\n  xdsTicketKundennummerBenutzername := TStringField.Create(Self);\r\n  xdsTicketKundennummerPasswort := TStringField.Create(Self);\r\n  xdsTicketKundennummerExportOutlook := TBooleanField.Create(Self);\r\n  xdsTicketKundennummerNichtInListeAnzeigen := TBooleanField.Create(Self);\r\n  xdsTicketKundennummerKreditkarteArt := TStringField.Create(Self);\r\n  xdsTicketKundennummerKreditkarteInhaber := TStringField.Create(Self);\r\n  xdsTicketKundennummerKreditkarteNummer := TStringField.Create(Self);\r\n  xdsTicketKundennummerKreditkarteGueltigMonat := TStringField.Create(Self);\r\n  xdsTicketKundennummerKreditkarteGueltigJahr := TIntegerField.Create(Self);\r\n  xdsTicketKundennummerKreditkartePruefziffer := TStringField.Create(Self);\r\n  xdsTicketKundennummerDatumNeu := TDateTimeField.Create(Self);\r\n  xdsTicketKundennummerDatumgeaendert := TDateTimeField.Create(Self);\r\n  xdsTicketKundennummerTitel := TStringField.Create(Self);\r\n  xdsTicketKundennummerStundensatzMontage := TFloatField.Create(Self);\r\n  xdsTicketKundennummerStdMontageU25 := TFloatField.Create(Self);\r\n  xdsTicketKundennummerStdMontageU50 := TFloatField.Create(Self);\r\n  xdsTicketKundennummerStdMontageU70 := TFloatField.Create(Self);\r\n  xdsTicketKundennummerStdMontageU100 := TFloatField.Create(Self);\r\n  xdsTicketKundennummerStdMontageU150 := TFloatField.Create(Self);\r\n  xdsTicketKundennummerStundensatzWerkstatt := TFloatField.Create(Self);\r\n  xdsTicketKundennummerStdWerkstattU25 := TFloatField.Create(Self);\r\n  xdsTicketKundennummerStdWerkstattU50 := TFloatField.Create(Self);\r\n  xdsTicketKundennummerStdWerkstattU70 := TFloatField.Create(Self);\r\n  xdsTicketKundennummerStdWerkstattU100 := TFloatField.Create(Self);\r\n  xdsTicketKundennummerStdWerkstattU150 := TFloatField.Create(Self);\r\n  xdsTicketKundennummerArchivReferenz := TStringField.Create(Self);\r\n  xdsTicketKundennummerErloesKontoUST1 := TStringField.Create(Self);\r\n  xdsTicketKundennummerErloesKontoUST2 := TStringField.Create(Self);\r\n  xdsTicketKundennummerErloesKontoUST3 := TStringField.Create(Self);\r\n  xdsTicketKundennummerGebKal := TBooleanField.Create(Self);\r\n  xdsTicketKundennummerEmailversand := TBooleanField.Create(Self);\r\n  xdsTicketKundennummerMahnspesen := TBooleanField.Create(Self);\r\n  xdsTicketKundennummerRechnungSchluss := TStringField.Create(Self);\r\n  xdsTicketKundennummerBenutzerNeu := TStringField.Create(Self);\r\n  xdsTicketKundennummerBenutzerGeaendert := TStringField.Create(Self);\r\n  xdsTicketKundennummerBelegsprache := TStringField.Create(Self);\r\n  xdsTicketKundennummerkmSatz := TFloatField.Create(Self);\r\n  xdsTicketKundennummerKundenklassetext := TStringField.Create(Self);\r\n  xdsTicketKundennummerKundenklasseFarbe := TIntegerField.Create(Self);\r\n  xdsTicketKundennummerAbweichenderRechnungsEmpfaenger := TStringField.Create(Self);\r\n  xdsTicketKundennummerProtokoll := TStringField.Create(Self);\r\n  xdsTicketKundennummerILNTyp1 := TStringField.Create(Self);\r\n  xdsTicketKundennummerILNTyp2 := TStringField.Create(Self);\r\n  xdsTicketKundennummerKontaktGUID := TStringField.Create(Self);\r\n  xdsTicketKundennummerPLZGUID := TStringField.Create(Self);\r\n  xdsTicketKundennummerPreislistenVariantePakete := TStringField.Create(Self);\r\n  xdsTicketKundennummerSchluesselRechnungslauf := TStringField.Create(Self);\r\n  xdsTicketKundennummerRechnungEmail := TStringField.Create(Self);\r\n  xdsTicketKundennummerZahlungsbedingungEK := TIntegerField.Create(Self);\r\n  xdsTicketKundennummerTransportbedingungEK := TStringField.Create(Self);\r\n  xdsTicketKundennummerRabattsatzEK := TFloatField.Create(Self);\r\n  xdsTicketKundennummerVertreterMatchcode := TStringField.Create(Self);\r\n  xdsTicketKundennummerVertreterProvisionssatz := TFloatField.Create(Self);\r\n  xdsTicketKundennummerUmsatzVKJahr := TFloatField.Create(Self);\r\n  xdsTicketKundennummerUmsatzVKVorjahr := TFloatField.Create(Self);\r\n  xdsTicketKundennummerUmsatzEKJahr := TFloatField.Create(Self);\r\n  xdsTicketKundennummerUmsatzEKVorjahr := TFloatField.Create(Self);\r\n  xdsTicketKundennummerSteuernummer := TStringField.Create(Self);\r\n  xdsTicketKundennummerLoginPW := TStringField.Create(Self);\r\n  xdsTicketKundennummerREperFax := TBooleanField.Create(Self);\r\n  xdsTicketKundennummerErreichbarkeit := TStringField.Create(Self);\r\n  xdsTicketKundennummerErloesKontoUST4 := TStringField.Create(Self);\r\n  xdsTicketKundennummerErloesKontoUST5 := TStringField.Create(Self);\r\n  xdsTicketKundennummerErloesKontoUST6 := TStringField.Create(Self);\r\n  xdsTicketKundennummerBesteuerungKey := TIntegerField.Create(Self);\r\n  xdsTicketKundennummerAuftraegeJahr := TFloatField.Create(Self);\r\n  xdsTicketKundennummerAuftraegeVorjahr := TFloatField.Create(Self);\r\n  xdsTicketKundennummerLieferadresseID := TIntegerField.Create(Self);\r\n  xdsTicketKundennummerUSTIDgeprueft := TDateTimeField.Create(Self);\r\n  xdsTicketKundennummerKontaktverbund := TStringField.Create(Self);\r\n  xdsTicketKundennummerHinweis := TStringField.Create(Self);\r\n  xdsTicketKundennummerLatitude := TFloatField.Create(Self);\r\n  xdsTicketKundennummerLongitude := TFloatField.Create(Self);\r\n  xdsTicketKundennummerkmLuftlinie := TFloatField.Create(Self);\r\n  xdsTicketKundennummerGoogleID := TStringField.Create(Self);\r\n  xdsTicketKundennummerGoogleUpdatedUTC := TDateTimeField.Create(Self);\r\n  xdsTicketKundennummerBundesland := TStringField.Create(Self);\r\n  xdsTicketKundennummerRegion := TStringField.Create(Self);\r\n  xdsTicketKundennummerMandatsreferenz := TStringField.Create(Self);\r\n  xdsTicketKundennummerMandatsreferenzVom := TDateTimeField.Create(Self);\r\n  xdsTicketKundennummerLastschriftArt := TStringField.Create(Self);\r\n  xdsTicketKundennummerMahnsperre := TBooleanField.Create(Self);\r\n  xdsTicketKundennummerSuchbegriff := TStringField.Create(Self);\r\n  xdsTicketKundennummerLieferanschriftDaten := TStringField.Create(Self);\r\n  xdsTicketKundennummerExportKasse := TBooleanField.Create(Self);\r\n  xdsTicketKundennummerLoeschvormerkungDatum := TDateTimeField.Create(Self);\r\n  xdsTicketKundennummerLoeschvormerkungGrund := TStringField.Create(Self);\r\n  xdsTicketKundennummerPseudonymisiert := TStringField.Create(Self);\r\n  xdsTicketKundennummerLoginAktiv := TIntegerField.Create(Self);\r\n  xdsTicketKundennummerSonstigeDaten := TStringField.Create(Self);\r\n  xdsTicketKundennummerB2C := TBooleanField.Create(Self);\r\n  xdsTicketKundennummerTIN := TStringField.Create(Self);\r\n  xdsTicketKundennummerMindestbestellwert := TFloatField.Create(Self);\r\n  xdsTicketKundennummerBruttoberechnung := TIntegerField.Create(Self);\r\n  xdsTicketKundennummerDruckWHG := TStringField.Create(Self);\r\n  xdsTicketKundennummerBerechtigungen := TStringField.Create(Self);\r\n  xdsTicketKundennummerRechnungCC := TStringField.Create(Self);\r\n  xdsTicketProdukt := TXDataWebEntityField.Create(Self);\r\n  xdsTicketProduktProdukt := TStringField.Create(Self);\r\n  xdsTicketKategorie := TXDataWebEntityField.Create(Self);\r\n  xdsTicketKategorieKategorie := TStringField.Create(Self);\r\n  xdsTicketPrioritaet := TXDataWebEntityField.Create(Self);\r\n  xdsTicketPrioritaetPrioritaet := TIntegerField.Create(Self);\r\n  xdsTicketPrioritaetPrioText := TStringField.Create(Self);\r\n  xdsTicketPrioritaetPrioFarbe := TIntegerField.Create(Self);\r\n  xdsTicketStatus := TXDataWebEntityField.Create(Self);\r\n  xdsTicketID := TIntegerField.Create(Self);\r\n  xdsTicketErstelltAm := TDateTimeField.Create(Self);\r\n  xdsTicketBetreff := TStringField.Create(Self);\r\n  xdsTicketBeschreibung := TStringField.Create(Self);\r\n  xdsTicketAbrechnungsbetrag := TFloatField.Create(Self);\r\n  xdsTicketAbrechnungRechnungsnummer := TStringField.Create(Self);\r\n  xdsTicketAberechnetAm := TDateTimeField.Create(Self);\r\n  xdsTicketErledigtAm := TDateTimeField.Create(Self);\r\n  xdsTicketNachname := TStringField.Create(Self);\r\n  xdsTicketVorname := TStringField.Create(Self);\r\n  xdsTicketEmail := TStringField.Create(Self);\r\n  xdsTicketSystemInfo := TStringField.Create(Self);\r\n  xdsTicketLoesung := TStringField.Create(Self);\r\n  xdsTicketProtokoll := TStringField.Create(Self);\r\n  xdsTicketZeitaufwandMinuten := TIntegerField.Create(Self);\r\n  xdsTicketAbzurechnendeMinuten := TIntegerField.Create(Self);\r\n  xdsTicketAbgerechneteMinuten := TIntegerField.Create(Self);\r\n  xdsTicketBenachrichtigungNEU := TDateTimeField.Create(Self);\r\n  xdsTicketBenachrichtigungLoesung := TDateTimeField.Create(Self);\r\n  xdsTicketInterneBemerkung := TStringField.Create(Self);\r\n  xdsTicketLoesungInfoSenden := TIntegerField.Create(Self);\r\n  xdsTicketKontaktperson := TStringField.Create(Self);\r\n  xdsTicketErreichbarkeitTelefon := TStringField.Create(Self);\r\n  xdsTicketErreichbarkeitWann := TStringField.Create(Self);\r\n  xdsTicketStatusStatus := TStringField.Create(Self);\r\n  xdsTicketKontaktpersonEmail := TStringField.Create(Self);\r\n  xdsTStatus := TXDataWebDataSet.Create(Self);\r\n  xdsTStatusStatus := TStringField.Create(Self);\r\n  sourceTicket := TDataSource.Create(Self);\r\n  sourceTStatus := TDataSource.Create(Self);\r\n  xdsTicketKonversation := TXDataWebDataSet.Create(Self);\r\n  xdsTicketKonversationTicketID := TXDataWebEntityField.Create(Self);\r\n  xdsTicketKonversationID := TIntegerField.Create(Self);\r\n  xdsTicketKonversationDatumUhrzeit := TDateTimeField.Create(Self);\r\n  xdsTicketKonversationAntwortText := TStringField.Create(Self);\r\n  xdsTicketKonversationNachrichtSenden := TIntegerField.Create(Self);\r\n  xdsTicketKonversationNachrichtGesendet := TDateTimeField.Create(Self);\r\n  xdsTicketKonversationVerfasser := TStringField.Create(Self);\r\n  xdsTicketKonversationQuellProgramm := TStringField.Create(Self);\r\n  sourceTicketKonversation := TDataSource.Create(Self);\r\n  xdsTicketDateien := TXDataWebDataSet.Create(Self);\r\n  xdsTicketDateienTicketID := TXDataWebEntityField.Create(Self);\r\n  xdsTicketDateienID := TIntegerField.Create(Self);\r\n  xdsTicketDateienDatumUhrzeit := TDateTimeField.Create(Self);\r\n  xdsTicketDateienFuerLoesung := TIntegerField.Create(Self);\r\n  xdsTicketDateienDateiMime := TStringField.Create(Self);\r\n  xdsTicketDateienDateiName := TStringField.Create(Self);\r\n  xdsTicketDateienDateiGroesse := TIntegerField.Create(Self);\r\n  xdsTicketDateienDateiInhaltText := TStringField.Create(Self);\r\n  xdskontosaldo := TXDataWebDataSet.Create(Self);\r\n  xdskontosaldoKundennummer := TStringField.Create(Self);\r\n  xdskontosaldoZeitaufwand := TIntegerField.Create(Self);\r\n  xdskontosaldoAbzurechnen := TIntegerField.Create(Self);\r\n  xdskontosaldoGutschrift := TIntegerField.Create(Self);\r\n  xdskontosaldoAbzug := TIntegerField.Create(Self);\r\n  xdskontosaldoSaldo := TIntegerField.Create(Self);\r\n  xdskontosaldoBetrag := TFloatField.Create(Self);\r\n  xdskontosaldoMinutenpreis := TFloatField.Create(Self);\r\n  xdskontosaldoSRestguthaben := TIntegerField.Create(Self);\r\n\r\n  lblinfo.BeforeLoadDFMValues;\r\n  lblKonversation.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  TC.BeforeLoadDFMValues;\r\n  btnSpeichern.BeforeLoadDFMValues;\r\n  webDBCStatus.BeforeLoadDFMValues;\r\n  btnAntwortNeu.BeforeLoadDFMValues;\r\n  edtNotiz.BeforeLoadDFMValues;\r\n  btnAntwortSpeichern.BeforeLoadDFMValues;\r\n  checkBenachrichtigung.BeforeLoadDFMValues;\r\n  xdsTicket.BeforeLoadDFMValues;\r\n  xdsTicketKundennummer.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerZahlungsbedingung.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerKundennummer.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerGruppeKunden.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerGruppeLieferanten.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerGruppeSonstige.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerGruppeNichtkunden.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerKontaktgruppe.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerNachname.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerVorname.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerAdresszeile2.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerAdresszeile3.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerStrasse.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerPostleitzahl.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerOrt.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerLaenderkuerzel.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerLand.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerLaenderkennzeichen.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerAdressanrede.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerBriefanrede1.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerBriefanrede2.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerAdresseBild.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerLieferanschrift.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerGeburtsdatum.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerTelefonNummer.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerTelefaxNummer.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerMobilTelefon.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerEMail.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerInternet.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerUmsatzsteuerID.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerUmsatzsteuerausweis.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerBemerkungen.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerBranche.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerSelektiert1.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerSelektiert2.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerSelektiert3.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerTransportbedingung.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerKilometer.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerRabattsatz.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerStundensatz.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerKontonummer.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerBank.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerBankleitzahl.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerKontoinhaber.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerBetreuer.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerQuelle.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerSuchmerkmal.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerWarenkreditlimit.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerWarenkreditgesperrt.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerKundennummerFremd.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerKeinNewsletter.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerDebitorennummer.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerKreditorennummer.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerRabattstufe.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerTelefonAlternativ.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerKostentraeger.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerIBAN.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerBIC.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerEmailkonto.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerBenutzername.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerPasswort.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerExportOutlook.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerNichtInListeAnzeigen.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerKreditkarteArt.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerKreditkarteInhaber.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerKreditkarteNummer.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerKreditkarteGueltigMonat.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerKreditkarteGueltigJahr.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerKreditkartePruefziffer.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerDatumNeu.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerDatumgeaendert.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerTitel.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerStundensatzMontage.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerStdMontageU25.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerStdMontageU50.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerStdMontageU70.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerStdMontageU100.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerStdMontageU150.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerStundensatzWerkstatt.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerStdWerkstattU25.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerStdWerkstattU50.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerStdWerkstattU70.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerStdWerkstattU100.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerStdWerkstattU150.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerArchivReferenz.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerErloesKontoUST1.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerErloesKontoUST2.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerErloesKontoUST3.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerGebKal.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerEmailversand.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerMahnspesen.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerRechnungSchluss.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerBenutzerNeu.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerBenutzerGeaendert.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerBelegsprache.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerkmSatz.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerKundenklassetext.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerKundenklasseFarbe.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerAbweichenderRechnungsEmpfaenger.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerProtokoll.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerILNTyp1.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerILNTyp2.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerKontaktGUID.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerPLZGUID.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerPreislistenVariantePakete.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerSchluesselRechnungslauf.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerRechnungEmail.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerZahlungsbedingungEK.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerTransportbedingungEK.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerRabattsatzEK.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerVertreterMatchcode.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerVertreterProvisionssatz.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerUmsatzVKJahr.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerUmsatzVKVorjahr.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerUmsatzEKJahr.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerUmsatzEKVorjahr.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerSteuernummer.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerLoginPW.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerREperFax.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerErreichbarkeit.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerErloesKontoUST4.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerErloesKontoUST5.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerErloesKontoUST6.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerBesteuerungKey.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerAuftraegeJahr.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerAuftraegeVorjahr.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerLieferadresseID.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerUSTIDgeprueft.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerKontaktverbund.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerHinweis.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerLatitude.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerLongitude.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerkmLuftlinie.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerGoogleID.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerGoogleUpdatedUTC.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerBundesland.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerRegion.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerMandatsreferenz.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerMandatsreferenzVom.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerLastschriftArt.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerMahnsperre.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerSuchbegriff.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerLieferanschriftDaten.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerExportKasse.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerLoeschvormerkungDatum.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerLoeschvormerkungGrund.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerPseudonymisiert.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerLoginAktiv.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerSonstigeDaten.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerB2C.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerTIN.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerMindestbestellwert.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerBruttoberechnung.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerDruckWHG.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerBerechtigungen.BeforeLoadDFMValues;\r\n  xdsTicketKundennummerRechnungCC.BeforeLoadDFMValues;\r\n  xdsTicketProdukt.BeforeLoadDFMValues;\r\n  xdsTicketProduktProdukt.BeforeLoadDFMValues;\r\n  xdsTicketKategorie.BeforeLoadDFMValues;\r\n  xdsTicketKategorieKategorie.BeforeLoadDFMValues;\r\n  xdsTicketPrioritaet.BeforeLoadDFMValues;\r\n  xdsTicketPrioritaetPrioritaet.BeforeLoadDFMValues;\r\n  xdsTicketPrioritaetPrioText.BeforeLoadDFMValues;\r\n  xdsTicketPrioritaetPrioFarbe.BeforeLoadDFMValues;\r\n  xdsTicketStatus.BeforeLoadDFMValues;\r\n  xdsTicketID.BeforeLoadDFMValues;\r\n  xdsTicketErstelltAm.BeforeLoadDFMValues;\r\n  xdsTicketBetreff.BeforeLoadDFMValues;\r\n  xdsTicketBeschreibung.BeforeLoadDFMValues;\r\n  xdsTicketAbrechnungsbetrag.BeforeLoadDFMValues;\r\n  xdsTicketAbrechnungRechnungsnummer.BeforeLoadDFMValues;\r\n  xdsTicketAberechnetAm.BeforeLoadDFMValues;\r\n  xdsTicketErledigtAm.BeforeLoadDFMValues;\r\n  xdsTicketNachname.BeforeLoadDFMValues;\r\n  xdsTicketVorname.BeforeLoadDFMValues;\r\n  xdsTicketEmail.BeforeLoadDFMValues;\r\n  xdsTicketSystemInfo.BeforeLoadDFMValues;\r\n  xdsTicketLoesung.BeforeLoadDFMValues;\r\n  xdsTicketProtokoll.BeforeLoadDFMValues;\r\n  xdsTicketZeitaufwandMinuten.BeforeLoadDFMValues;\r\n  xdsTicketAbzurechnendeMinuten.BeforeLoadDFMValues;\r\n  xdsTicketAbgerechneteMinuten.BeforeLoadDFMValues;\r\n  xdsTicketBenachrichtigungNEU.BeforeLoadDFMValues;\r\n  xdsTicketBenachrichtigungLoesung.BeforeLoadDFMValues;\r\n  xdsTicketInterneBemerkung.BeforeLoadDFMValues;\r\n  xdsTicketLoesungInfoSenden.BeforeLoadDFMValues;\r\n  xdsTicketKontaktperson.BeforeLoadDFMValues;\r\n  xdsTicketErreichbarkeitTelefon.BeforeLoadDFMValues;\r\n  xdsTicketErreichbarkeitWann.BeforeLoadDFMValues;\r\n  xdsTicketStatusStatus.BeforeLoadDFMValues;\r\n  xdsTicketKontaktpersonEmail.BeforeLoadDFMValues;\r\n  xdsTStatus.BeforeLoadDFMValues;\r\n  xdsTStatusStatus.BeforeLoadDFMValues;\r\n  sourceTicket.BeforeLoadDFMValues;\r\n  sourceTStatus.BeforeLoadDFMValues;\r\n  xdsTicketKonversation.BeforeLoadDFMValues;\r\n  xdsTicketKonversationTicketID.BeforeLoadDFMValues;\r\n  xdsTicketKonversationID.BeforeLoadDFMValues;\r\n  xdsTicketKonversationDatumUhrzeit.BeforeLoadDFMValues;\r\n  xdsTicketKonversationAntwortText.BeforeLoadDFMValues;\r\n  xdsTicketKonversationNachrichtSenden.BeforeLoadDFMValues;\r\n  xdsTicketKonversationNachrichtGesendet.BeforeLoadDFMValues;\r\n  xdsTicketKonversationVerfasser.BeforeLoadDFMValues;\r\n  xdsTicketKonversationQuellProgramm.BeforeLoadDFMValues;\r\n  sourceTicketKonversation.BeforeLoadDFMValues;\r\n  xdsTicketDateien.BeforeLoadDFMValues;\r\n  xdsTicketDateienTicketID.BeforeLoadDFMValues;\r\n  xdsTicketDateienID.BeforeLoadDFMValues;\r\n  xdsTicketDateienDatumUhrzeit.BeforeLoadDFMValues;\r\n  xdsTicketDateienFuerLoesung.BeforeLoadDFMValues;\r\n  xdsTicketDateienDateiMime.BeforeLoadDFMValues;\r\n  xdsTicketDateienDateiName.BeforeLoadDFMValues;\r\n  xdsTicketDateienDateiGroesse.BeforeLoadDFMValues;\r\n  xdsTicketDateienDateiInhaltText.BeforeLoadDFMValues;\r\n  xdskontosaldo.BeforeLoadDFMValues;\r\n  xdskontosaldoKundennummer.BeforeLoadDFMValues;\r\n  xdskontosaldoZeitaufwand.BeforeLoadDFMValues;\r\n  xdskontosaldoAbzurechnen.BeforeLoadDFMValues;\r\n  xdskontosaldoGutschrift.BeforeLoadDFMValues;\r\n  xdskontosaldoAbzug.BeforeLoadDFMValues;\r\n  xdskontosaldoSaldo.BeforeLoadDFMValues;\r\n  xdskontosaldoBetrag.BeforeLoadDFMValues;\r\n  xdskontosaldoMinutenpreis.BeforeLoadDFMValues;\r\n  xdskontosaldoSRestguthaben.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'EinzelTicket';\r\n    Width := 246;\r\n    Height := 643;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnClose', 'WebFormClose');\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    lblinfo.SetParentComponent(Self);\r\n    lblinfo.Name := 'lblinfo';\r\n    lblinfo.Left := 40;\r\n    lblinfo.Top := 488;\r\n    lblinfo.Width := 177;\r\n    lblinfo.Height := 15;\r\n    lblinfo.Caption := 'Antwort auch per Email zusenden';\r\n    lblinfo.ElementClassName := 'text-small m-2';\r\n    lblinfo.ElementFont := efCSS;\r\n    lblinfo.ElementPosition := epIgnore;\r\n    lblinfo.HeightStyle := ssAuto;\r\n    lblinfo.HeightPercent := 100.000000000000000000;\r\n    lblinfo.WidthStyle := ssAuto;\r\n    lblinfo.WidthPercent := 100.000000000000000000;\r\n    lblKonversation.SetParentComponent(Self);\r\n    lblKonversation.Name := 'lblKonversation';\r\n    lblKonversation.Left := 24;\r\n    lblKonversation.Top := 528;\r\n    lblKonversation.Width := 69;\r\n    lblKonversation.Height := 15;\r\n    lblKonversation.Caption := 'Konversation';\r\n    lblKonversation.ElementClassName := 'h5 m-2';\r\n    lblKonversation.ElementFont := efCSS;\r\n    lblKonversation.ElementPosition := epIgnore;\r\n    lblKonversation.HeightStyle := ssAuto;\r\n    lblKonversation.HeightPercent := 100.000000000000000000;\r\n    lblKonversation.WidthStyle := ssAuto;\r\n    lblKonversation.WidthPercent := 100.000000000000000000;\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ChildOrder := 2;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 5;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 5;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 0;\r\n    btnzurueck.Top := 156;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.Left := -1;\r\n    TC.Top := 191;\r\n    TC.Width := 247;\r\n    TC.Height := 91;\r\n    TC.ElementClassName := 'table table-bordered border-primary';\r\n    TC.HeightStyle := ssAuto;\r\n    TC.WidthStyle := ssPercent;\r\n    TC.BorderColor := clSilver;\r\n    TC.ChildOrder := 3;\r\n    TC.ColHeader := False;\r\n    TC.ElementFont := efCSS;\r\n    TC.ElementHeaderClassName := 'thead-light';\r\n    TC.ElementPosition := epIgnore;\r\n    TC.ElementTableClassName := 'table table-striped table-bordered  table-hover';\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 1;\r\n    btnSpeichern.SetParentComponent(Self);\r\n    btnSpeichern.Name := 'btnSpeichern';\r\n    btnSpeichern.Left := 8;\r\n    btnSpeichern.Top := 210;\r\n    btnSpeichern.Width := 96;\r\n    btnSpeichern.Height := 25;\r\n    btnSpeichern.Caption := 'speichern';\r\n    btnSpeichern.ChildOrder := 6;\r\n    btnSpeichern.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnSpeichern.ElementFont := efCSS;\r\n    btnSpeichern.ElementPosition := epIgnore;\r\n    btnSpeichern.HeightStyle := ssAuto;\r\n    btnSpeichern.HeightPercent := 100.000000000000000000;\r\n    btnSpeichern.WidthStyle := ssAuto;\r\n    btnSpeichern.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnSpeichern, Self, 'OnClick', 'btnSpeichernClick');\r\n    webDBCStatus.SetParentComponent(Self);\r\n    webDBCStatus.Name := 'webDBCStatus';\r\n    webDBCStatus.Left := 24;\r\n    webDBCStatus.Top := 298;\r\n    webDBCStatus.Width := 185;\r\n    webDBCStatus.Height := 23;\r\n    webDBCStatus.ChildOrder := 9;\r\n    webDBCStatus.ElementClassName := 'form-control w-55 m-1';\r\n    webDBCStatus.ElementFont := efCSS;\r\n    webDBCStatus.ElementPosition := epIgnore;\r\n    webDBCStatus.HeightStyle := ssAuto;\r\n    webDBCStatus.HeightPercent := 100.000000000000000000;\r\n    webDBCStatus.Text := 'webDBCStatus';\r\n    webDBCStatus.WidthStyle := ssPercent;\r\n    webDBCStatus.WidthPercent := 55.000000000000000000;\r\n    webDBCStatus.ItemIndex := -1;\r\n    webDBCStatus.DataField := 'Status';\r\n    webDBCStatus.DataSource := sourceTicket;\r\n    webDBCStatus.ListField := 'Status';\r\n    webDBCStatus.ListSource := sourceTStatus;\r\n    btnAntwortNeu.SetParentComponent(Self);\r\n    btnAntwortNeu.Name := 'btnAntwortNeu';\r\n    btnAntwortNeu.Left := 8;\r\n    btnAntwortNeu.Top := 418;\r\n    btnAntwortNeu.Width := 96;\r\n    btnAntwortNeu.Height := 25;\r\n    btnAntwortNeu.Caption := 'neue Antwort';\r\n    btnAntwortNeu.ChildOrder := 6;\r\n    btnAntwortNeu.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnAntwortNeu.ElementFont := efCSS;\r\n    btnAntwortNeu.ElementPosition := epIgnore;\r\n    btnAntwortNeu.HeightStyle := ssAuto;\r\n    btnAntwortNeu.HeightPercent := 100.000000000000000000;\r\n    btnAntwortNeu.WidthStyle := ssAuto;\r\n    btnAntwortNeu.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnAntwortNeu, Self, 'OnClick', 'btnAntwortNeuClick');\r\n    edtNotiz.SetParentComponent(Self);\r\n    edtNotiz.Name := 'edtNotiz';\r\n    edtNotiz.Left := 8;\r\n    edtNotiz.Top := 327;\r\n    edtNotiz.Width := 352;\r\n    edtNotiz.Height := 91;\r\n    edtNotiz.ChildOrder := 29;\r\n    edtNotiz.ElementClassName := 'form-control form-control-sm m-1';\r\n    edtNotiz.ElementFont := efCSS;\r\n    edtNotiz.ElementPosition := epIgnore;\r\n    edtNotiz.HeightPercent := 100.000000000000000000;\r\n    edtNotiz.Lines.BeginUpdate;\r\n    try\r\n      edtNotiz.Lines.Clear;\r\n      edtNotiz.Lines.Add('WebMemo1');\r\n    finally\r\n      edtNotiz.Lines.EndUpdate;\r\n    end;\r\n    edtNotiz.SelLength := 0;\r\n    edtNotiz.SelStart := 0;\r\n    edtNotiz.TabOrder := 5;\r\n    edtNotiz.WidthStyle := ssPercent;\r\n    edtNotiz.WidthPercent := 80.000000000000000000;\r\n    btnAntwortSpeichern.SetParentComponent(Self);\r\n    btnAntwortSpeichern.Name := 'btnAntwortSpeichern';\r\n    btnAntwortSpeichern.Left := 8;\r\n    btnAntwortSpeichern.Top := 449;\r\n    btnAntwortSpeichern.Width := 96;\r\n    btnAntwortSpeichern.Height := 25;\r\n    btnAntwortSpeichern.Caption := 'Antwort speichern';\r\n    btnAntwortSpeichern.ChildOrder := 6;\r\n    btnAntwortSpeichern.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnAntwortSpeichern.ElementFont := efCSS;\r\n    btnAntwortSpeichern.ElementPosition := epIgnore;\r\n    btnAntwortSpeichern.HeightStyle := ssAuto;\r\n    btnAntwortSpeichern.HeightPercent := 100.000000000000000000;\r\n    btnAntwortSpeichern.WidthStyle := ssAuto;\r\n    btnAntwortSpeichern.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnAntwortSpeichern, Self, 'OnClick', 'btnAntwortSpeichernClick');\r\n    checkBenachrichtigung.SetParentComponent(Self);\r\n    checkBenachrichtigung.Name := 'checkBenachrichtigung';\r\n    checkBenachrichtigung.Left := 24;\r\n    checkBenachrichtigung.Top := 141;\r\n    checkBenachrichtigung.Width := 50;\r\n    checkBenachrichtigung.Height := 22;\r\n    checkBenachrichtigung.Checked := True;\r\n    checkBenachrichtigung.ChildOrder := 10;\r\n    checkBenachrichtigung.ElementClassName := 'custom-control custom-checkbox m-1';\r\n    checkBenachrichtigung.ElementButtonClassName := 'custom-control-input';\r\n    checkBenachrichtigung.ElementLabelClassName := 'custom-control-label';\r\n    checkBenachrichtigung.ElementFont := efCSS;\r\n    checkBenachrichtigung.ElementPosition := epIgnore;\r\n    checkBenachrichtigung.HeightStyle := ssAuto;\r\n    checkBenachrichtigung.HeightPercent := 100.000000000000000000;\r\n    checkBenachrichtigung.State := cbChecked;\r\n    checkBenachrichtigung.WidthPercent := 100.000000000000000000;\r\n    xdsTicket.SetParentComponent(Self);\r\n    xdsTicket.Name := 'xdsTicket';\r\n    xdsTicket.AfterApplyUpdates := xdsTicketAfterApplyUpdates;\r\n    xdsTicket.AfterOpen := xdsTicketAfterOpen;\r\n    xdsTicket.BeforePost := xdsTicketBeforePost;\r\n    xdsTicket.AfterPost := xdsTicketAfterPost;\r\n    xdsTicket.EntitySetName := 'ITS_TicketMain';\r\n    xdsTicket.Connection := DM2.XDataWebConnection1;\r\n    xdsTicket.SubpropsDepth := 1;\r\n    xdsTicket.QueryString := '$expand=Kundennummer,Status';\r\n    xdsTicket.QueryTop := 1;\r\n    xdsTicket.Left := 45;\r\n    xdsTicket.Top := 229;\r\n    xdsTicketKundennummer.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummer.Name := 'xdsTicketKundennummer';\r\n    xdsTicketKundennummer.FieldName := 'Kundennummer';\r\n    xdsTicketKundennummerZahlungsbedingung.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerZahlungsbedingung.Name := 'xdsTicketKundennummerZahlungsbedingung';\r\n    xdsTicketKundennummerZahlungsbedingung.FieldName := 'Kundennummer.Zahlungsbedingung';\r\n    xdsTicketKundennummerKundennummer.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerKundennummer.Name := 'xdsTicketKundennummerKundennummer';\r\n    xdsTicketKundennummerKundennummer.FieldName := 'Kundennummer.Kundennummer';\r\n    xdsTicketKundennummerKundennummer.Size := 13;\r\n    xdsTicketKundennummerGruppeKunden.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerGruppeKunden.Name := 'xdsTicketKundennummerGruppeKunden';\r\n    xdsTicketKundennummerGruppeKunden.FieldName := 'Kundennummer.GruppeKunden';\r\n    xdsTicketKundennummerGruppeLieferanten.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerGruppeLieferanten.Name := 'xdsTicketKundennummerGruppeLieferanten';\r\n    xdsTicketKundennummerGruppeLieferanten.FieldName := 'Kundennummer.GruppeLieferanten';\r\n    xdsTicketKundennummerGruppeSonstige.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerGruppeSonstige.Name := 'xdsTicketKundennummerGruppeSonstige';\r\n    xdsTicketKundennummerGruppeSonstige.FieldName := 'Kundennummer.GruppeSonstige';\r\n    xdsTicketKundennummerGruppeNichtkunden.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerGruppeNichtkunden.Name := 'xdsTicketKundennummerGruppeNichtkunden';\r\n    xdsTicketKundennummerGruppeNichtkunden.FieldName := 'Kundennummer.GruppeNichtkunden';\r\n    xdsTicketKundennummerKontaktgruppe.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerKontaktgruppe.Name := 'xdsTicketKundennummerKontaktgruppe';\r\n    xdsTicketKundennummerKontaktgruppe.FieldName := 'Kundennummer.Kontaktgruppe';\r\n    xdsTicketKundennummerKontaktgruppe.Size := 50;\r\n    xdsTicketKundennummerNachname.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerNachname.Name := 'xdsTicketKundennummerNachname';\r\n    xdsTicketKundennummerNachname.FieldName := 'Kundennummer.Nachname';\r\n    xdsTicketKundennummerNachname.Size := 40;\r\n    xdsTicketKundennummerVorname.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerVorname.Name := 'xdsTicketKundennummerVorname';\r\n    xdsTicketKundennummerVorname.FieldName := 'Kundennummer.Vorname';\r\n    xdsTicketKundennummerVorname.Size := 40;\r\n    xdsTicketKundennummerAdresszeile2.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerAdresszeile2.Name := 'xdsTicketKundennummerAdresszeile2';\r\n    xdsTicketKundennummerAdresszeile2.FieldName := 'Kundennummer.Adresszeile2';\r\n    xdsTicketKundennummerAdresszeile2.Size := 40;\r\n    xdsTicketKundennummerAdresszeile3.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerAdresszeile3.Name := 'xdsTicketKundennummerAdresszeile3';\r\n    xdsTicketKundennummerAdresszeile3.FieldName := 'Kundennummer.Adresszeile3';\r\n    xdsTicketKundennummerAdresszeile3.Size := 40;\r\n    xdsTicketKundennummerStrasse.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerStrasse.Name := 'xdsTicketKundennummerStrasse';\r\n    xdsTicketKundennummerStrasse.FieldName := 'Kundennummer.Strasse';\r\n    xdsTicketKundennummerStrasse.Size := 40;\r\n    xdsTicketKundennummerPostleitzahl.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerPostleitzahl.Name := 'xdsTicketKundennummerPostleitzahl';\r\n    xdsTicketKundennummerPostleitzahl.FieldName := 'Kundennummer.Postleitzahl';\r\n    xdsTicketKundennummerPostleitzahl.Size := 10;\r\n    xdsTicketKundennummerOrt.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerOrt.Name := 'xdsTicketKundennummerOrt';\r\n    xdsTicketKundennummerOrt.FieldName := 'Kundennummer.Ort';\r\n    xdsTicketKundennummerOrt.Size := 40;\r\n    xdsTicketKundennummerLaenderkuerzel.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerLaenderkuerzel.Name := 'xdsTicketKundennummerLaenderkuerzel';\r\n    xdsTicketKundennummerLaenderkuerzel.FieldName := 'Kundennummer.Laenderkuerzel';\r\n    xdsTicketKundennummerLaenderkuerzel.Size := 5;\r\n    xdsTicketKundennummerLand.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerLand.Name := 'xdsTicketKundennummerLand';\r\n    xdsTicketKundennummerLand.FieldName := 'Kundennummer.Land';\r\n    xdsTicketKundennummerLand.Size := 40;\r\n    xdsTicketKundennummerLaenderkennzeichen.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerLaenderkennzeichen.Name := 'xdsTicketKundennummerLaenderkennzeichen';\r\n    xdsTicketKundennummerLaenderkennzeichen.FieldName := 'Kundennummer.Laenderkennzeichen';\r\n    xdsTicketKundennummerAdressanrede.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerAdressanrede.Name := 'xdsTicketKundennummerAdressanrede';\r\n    xdsTicketKundennummerAdressanrede.FieldName := 'Kundennummer.Adressanrede';\r\n    xdsTicketKundennummerAdressanrede.Size := 15;\r\n    xdsTicketKundennummerBriefanrede1.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerBriefanrede1.Name := 'xdsTicketKundennummerBriefanrede1';\r\n    xdsTicketKundennummerBriefanrede1.FieldName := 'Kundennummer.Briefanrede1';\r\n    xdsTicketKundennummerBriefanrede1.Size := 255;\r\n    xdsTicketKundennummerBriefanrede2.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerBriefanrede2.Name := 'xdsTicketKundennummerBriefanrede2';\r\n    xdsTicketKundennummerBriefanrede2.FieldName := 'Kundennummer.Briefanrede2';\r\n    xdsTicketKundennummerBriefanrede2.Size := 40;\r\n    xdsTicketKundennummerAdresseBild.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerAdresseBild.Name := 'xdsTicketKundennummerAdresseBild';\r\n    xdsTicketKundennummerAdresseBild.FieldName := 'Kundennummer.AdresseBild';\r\n    xdsTicketKundennummerAdresseBild.Size := 255;\r\n    xdsTicketKundennummerLieferanschrift.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerLieferanschrift.Name := 'xdsTicketKundennummerLieferanschrift';\r\n    xdsTicketKundennummerLieferanschrift.FieldName := 'Kundennummer.Lieferanschrift';\r\n    xdsTicketKundennummerLieferanschrift.Size := 255;\r\n    xdsTicketKundennummerGeburtsdatum.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerGeburtsdatum.Name := 'xdsTicketKundennummerGeburtsdatum';\r\n    xdsTicketKundennummerGeburtsdatum.FieldName := 'Kundennummer.Geburtsdatum';\r\n    xdsTicketKundennummerTelefonNummer.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerTelefonNummer.Name := 'xdsTicketKundennummerTelefonNummer';\r\n    xdsTicketKundennummerTelefonNummer.FieldName := 'Kundennummer.TelefonNummer';\r\n    xdsTicketKundennummerTelefonNummer.Size := 25;\r\n    xdsTicketKundennummerTelefaxNummer.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerTelefaxNummer.Name := 'xdsTicketKundennummerTelefaxNummer';\r\n    xdsTicketKundennummerTelefaxNummer.FieldName := 'Kundennummer.TelefaxNummer';\r\n    xdsTicketKundennummerTelefaxNummer.Size := 25;\r\n    xdsTicketKundennummerMobilTelefon.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerMobilTelefon.Name := 'xdsTicketKundennummerMobilTelefon';\r\n    xdsTicketKundennummerMobilTelefon.FieldName := 'Kundennummer.MobilTelefon';\r\n    xdsTicketKundennummerMobilTelefon.Size := 25;\r\n    xdsTicketKundennummerEMail.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerEMail.Name := 'xdsTicketKundennummerEMail';\r\n    xdsTicketKundennummerEMail.FieldName := 'Kundennummer.EMail';\r\n    xdsTicketKundennummerEMail.Size := 50;\r\n    xdsTicketKundennummerInternet.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerInternet.Name := 'xdsTicketKundennummerInternet';\r\n    xdsTicketKundennummerInternet.FieldName := 'Kundennummer.Internet';\r\n    xdsTicketKundennummerInternet.Size := 50;\r\n    xdsTicketKundennummerUmsatzsteuerID.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerUmsatzsteuerID.Name := 'xdsTicketKundennummerUmsatzsteuerID';\r\n    xdsTicketKundennummerUmsatzsteuerID.FieldName := 'Kundennummer.UmsatzsteuerID';\r\n    xdsTicketKundennummerUmsatzsteuerausweis.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerUmsatzsteuerausweis.Name := 'xdsTicketKundennummerUmsatzsteuerausweis';\r\n    xdsTicketKundennummerUmsatzsteuerausweis.FieldName := 'Kundennummer.Umsatzsteuerausweis';\r\n    xdsTicketKundennummerBemerkungen.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerBemerkungen.Name := 'xdsTicketKundennummerBemerkungen';\r\n    xdsTicketKundennummerBemerkungen.FieldName := 'Kundennummer.Bemerkungen';\r\n    xdsTicketKundennummerBemerkungen.Size := 255;\r\n    xdsTicketKundennummerBranche.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerBranche.Name := 'xdsTicketKundennummerBranche';\r\n    xdsTicketKundennummerBranche.FieldName := 'Kundennummer.Branche';\r\n    xdsTicketKundennummerBranche.Size := 50;\r\n    xdsTicketKundennummerSelektiert1.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerSelektiert1.Name := 'xdsTicketKundennummerSelektiert1';\r\n    xdsTicketKundennummerSelektiert1.FieldName := 'Kundennummer.Selektiert1';\r\n    xdsTicketKundennummerSelektiert2.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerSelektiert2.Name := 'xdsTicketKundennummerSelektiert2';\r\n    xdsTicketKundennummerSelektiert2.FieldName := 'Kundennummer.Selektiert2';\r\n    xdsTicketKundennummerSelektiert3.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerSelektiert3.Name := 'xdsTicketKundennummerSelektiert3';\r\n    xdsTicketKundennummerSelektiert3.FieldName := 'Kundennummer.Selektiert3';\r\n    xdsTicketKundennummerTransportbedingung.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerTransportbedingung.Name := 'xdsTicketKundennummerTransportbedingung';\r\n    xdsTicketKundennummerTransportbedingung.FieldName := 'Kundennummer.Transportbedingung';\r\n    xdsTicketKundennummerTransportbedingung.Size := 100;\r\n    xdsTicketKundennummerKilometer.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerKilometer.Name := 'xdsTicketKundennummerKilometer';\r\n    xdsTicketKundennummerKilometer.FieldName := 'Kundennummer.Kilometer';\r\n    xdsTicketKundennummerRabattsatz.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerRabattsatz.Name := 'xdsTicketKundennummerRabattsatz';\r\n    xdsTicketKundennummerRabattsatz.FieldName := 'Kundennummer.Rabattsatz';\r\n    xdsTicketKundennummerStundensatz.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerStundensatz.Name := 'xdsTicketKundennummerStundensatz';\r\n    xdsTicketKundennummerStundensatz.FieldName := 'Kundennummer.Stundensatz';\r\n    xdsTicketKundennummerKontonummer.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerKontonummer.Name := 'xdsTicketKundennummerKontonummer';\r\n    xdsTicketKundennummerKontonummer.FieldName := 'Kundennummer.Kontonummer';\r\n    xdsTicketKundennummerKontonummer.Size := 50;\r\n    xdsTicketKundennummerBank.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerBank.Name := 'xdsTicketKundennummerBank';\r\n    xdsTicketKundennummerBank.FieldName := 'Kundennummer.Bank';\r\n    xdsTicketKundennummerBank.Size := 50;\r\n    xdsTicketKundennummerBankleitzahl.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerBankleitzahl.Name := 'xdsTicketKundennummerBankleitzahl';\r\n    xdsTicketKundennummerBankleitzahl.FieldName := 'Kundennummer.Bankleitzahl';\r\n    xdsTicketKundennummerKontoinhaber.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerKontoinhaber.Name := 'xdsTicketKundennummerKontoinhaber';\r\n    xdsTicketKundennummerKontoinhaber.FieldName := 'Kundennummer.Kontoinhaber';\r\n    xdsTicketKundennummerKontoinhaber.Size := 50;\r\n    xdsTicketKundennummerBetreuer.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerBetreuer.Name := 'xdsTicketKundennummerBetreuer';\r\n    xdsTicketKundennummerBetreuer.FieldName := 'Kundennummer.Betreuer';\r\n    xdsTicketKundennummerBetreuer.Size := 50;\r\n    xdsTicketKundennummerQuelle.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerQuelle.Name := 'xdsTicketKundennummerQuelle';\r\n    xdsTicketKundennummerQuelle.FieldName := 'Kundennummer.Quelle';\r\n    xdsTicketKundennummerQuelle.Size := 100;\r\n    xdsTicketKundennummerSuchmerkmal.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerSuchmerkmal.Name := 'xdsTicketKundennummerSuchmerkmal';\r\n    xdsTicketKundennummerSuchmerkmal.FieldName := 'Kundennummer.Suchmerkmal';\r\n    xdsTicketKundennummerSuchmerkmal.Size := 250;\r\n    xdsTicketKundennummerWarenkreditlimit.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerWarenkreditlimit.Name := 'xdsTicketKundennummerWarenkreditlimit';\r\n    xdsTicketKundennummerWarenkreditlimit.FieldName := 'Kundennummer.Warenkreditlimit';\r\n    xdsTicketKundennummerWarenkreditgesperrt.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerWarenkreditgesperrt.Name := 'xdsTicketKundennummerWarenkreditgesperrt';\r\n    xdsTicketKundennummerWarenkreditgesperrt.FieldName := 'Kundennummer.Warenkreditgesperrt';\r\n    xdsTicketKundennummerKundennummerFremd.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerKundennummerFremd.Name := 'xdsTicketKundennummerKundennummerFremd';\r\n    xdsTicketKundennummerKundennummerFremd.FieldName := 'Kundennummer.KundennummerFremd';\r\n    xdsTicketKundennummerKeinNewsletter.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerKeinNewsletter.Name := 'xdsTicketKundennummerKeinNewsletter';\r\n    xdsTicketKundennummerKeinNewsletter.FieldName := 'Kundennummer.KeinNewsletter';\r\n    xdsTicketKundennummerDebitorennummer.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerDebitorennummer.Name := 'xdsTicketKundennummerDebitorennummer';\r\n    xdsTicketKundennummerDebitorennummer.FieldName := 'Kundennummer.Debitorennummer';\r\n    xdsTicketKundennummerDebitorennummer.Size := 13;\r\n    xdsTicketKundennummerKreditorennummer.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerKreditorennummer.Name := 'xdsTicketKundennummerKreditorennummer';\r\n    xdsTicketKundennummerKreditorennummer.FieldName := 'Kundennummer.Kreditorennummer';\r\n    xdsTicketKundennummerKreditorennummer.Size := 13;\r\n    xdsTicketKundennummerRabattstufe.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerRabattstufe.Name := 'xdsTicketKundennummerRabattstufe';\r\n    xdsTicketKundennummerRabattstufe.FieldName := 'Kundennummer.Rabattstufe';\r\n    xdsTicketKundennummerRabattstufe.Size := 15;\r\n    xdsTicketKundennummerTelefonAlternativ.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerTelefonAlternativ.Name := 'xdsTicketKundennummerTelefonAlternativ';\r\n    xdsTicketKundennummerTelefonAlternativ.FieldName := 'Kundennummer.TelefonAlternativ';\r\n    xdsTicketKundennummerTelefonAlternativ.Size := 50;\r\n    xdsTicketKundennummerKostentraeger.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerKostentraeger.Name := 'xdsTicketKundennummerKostentraeger';\r\n    xdsTicketKundennummerKostentraeger.FieldName := 'Kundennummer.Kostentraeger';\r\n    xdsTicketKundennummerKostentraeger.Size := 13;\r\n    xdsTicketKundennummerIBAN.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerIBAN.Name := 'xdsTicketKundennummerIBAN';\r\n    xdsTicketKundennummerIBAN.FieldName := 'Kundennummer.IBAN';\r\n    xdsTicketKundennummerIBAN.Size := 50;\r\n    xdsTicketKundennummerBIC.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerBIC.Name := 'xdsTicketKundennummerBIC';\r\n    xdsTicketKundennummerBIC.FieldName := 'Kundennummer.BIC';\r\n    xdsTicketKundennummerEmailkonto.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerEmailkonto.Name := 'xdsTicketKundennummerEmailkonto';\r\n    xdsTicketKundennummerEmailkonto.FieldName := 'Kundennummer.Emailkonto';\r\n    xdsTicketKundennummerEmailkonto.Size := 50;\r\n    xdsTicketKundennummerBenutzername.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerBenutzername.Name := 'xdsTicketKundennummerBenutzername';\r\n    xdsTicketKundennummerBenutzername.FieldName := 'Kundennummer.Benutzername';\r\n    xdsTicketKundennummerBenutzername.Size := 50;\r\n    xdsTicketKundennummerPasswort.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerPasswort.Name := 'xdsTicketKundennummerPasswort';\r\n    xdsTicketKundennummerPasswort.FieldName := 'Kundennummer.Passwort';\r\n    xdsTicketKundennummerPasswort.Size := 25;\r\n    xdsTicketKundennummerExportOutlook.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerExportOutlook.Name := 'xdsTicketKundennummerExportOutlook';\r\n    xdsTicketKundennummerExportOutlook.FieldName := 'Kundennummer.ExportOutlook';\r\n    xdsTicketKundennummerNichtInListeAnzeigen.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerNichtInListeAnzeigen.Name := 'xdsTicketKundennummerNichtInListeAnzeigen';\r\n    xdsTicketKundennummerNichtInListeAnzeigen.FieldName := 'Kundennummer.NichtInListeAnzeigen';\r\n    xdsTicketKundennummerKreditkarteArt.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerKreditkarteArt.Name := 'xdsTicketKundennummerKreditkarteArt';\r\n    xdsTicketKundennummerKreditkarteArt.FieldName := 'Kundennummer.KreditkarteArt';\r\n    xdsTicketKundennummerKreditkarteArt.Size := 30;\r\n    xdsTicketKundennummerKreditkarteInhaber.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerKreditkarteInhaber.Name := 'xdsTicketKundennummerKreditkarteInhaber';\r\n    xdsTicketKundennummerKreditkarteInhaber.FieldName := 'Kundennummer.KreditkarteInhaber';\r\n    xdsTicketKundennummerKreditkarteInhaber.Size := 50;\r\n    xdsTicketKundennummerKreditkarteNummer.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerKreditkarteNummer.Name := 'xdsTicketKundennummerKreditkarteNummer';\r\n    xdsTicketKundennummerKreditkarteNummer.FieldName := 'Kundennummer.KreditkarteNummer';\r\n    xdsTicketKundennummerKreditkarteGueltigMonat.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerKreditkarteGueltigMonat.Name := 'xdsTicketKundennummerKreditkarteGueltigMonat';\r\n    xdsTicketKundennummerKreditkarteGueltigMonat.FieldName := 'Kundennummer.KreditkarteGueltigMonat';\r\n    xdsTicketKundennummerKreditkarteGueltigMonat.Size := 2;\r\n    xdsTicketKundennummerKreditkarteGueltigJahr.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerKreditkarteGueltigJahr.Name := 'xdsTicketKundennummerKreditkarteGueltigJahr';\r\n    xdsTicketKundennummerKreditkarteGueltigJahr.FieldName := 'Kundennummer.KreditkarteGueltigJahr';\r\n    xdsTicketKundennummerKreditkartePruefziffer.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerKreditkartePruefziffer.Name := 'xdsTicketKundennummerKreditkartePruefziffer';\r\n    xdsTicketKundennummerKreditkartePruefziffer.FieldName := 'Kundennummer.KreditkartePruefziffer';\r\n    xdsTicketKundennummerKreditkartePruefziffer.Size := 10;\r\n    xdsTicketKundennummerDatumNeu.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerDatumNeu.Name := 'xdsTicketKundennummerDatumNeu';\r\n    xdsTicketKundennummerDatumNeu.FieldName := 'Kundennummer.DatumNeu';\r\n    xdsTicketKundennummerDatumgeaendert.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerDatumgeaendert.Name := 'xdsTicketKundennummerDatumgeaendert';\r\n    xdsTicketKundennummerDatumgeaendert.FieldName := 'Kundennummer.Datumgeaendert';\r\n    xdsTicketKundennummerTitel.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerTitel.Name := 'xdsTicketKundennummerTitel';\r\n    xdsTicketKundennummerTitel.FieldName := 'Kundennummer.Titel';\r\n    xdsTicketKundennummerStundensatzMontage.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerStundensatzMontage.Name := 'xdsTicketKundennummerStundensatzMontage';\r\n    xdsTicketKundennummerStundensatzMontage.FieldName := 'Kundennummer.StundensatzMontage';\r\n    xdsTicketKundennummerStdMontageU25.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerStdMontageU25.Name := 'xdsTicketKundennummerStdMontageU25';\r\n    xdsTicketKundennummerStdMontageU25.FieldName := 'Kundennummer.StdMontageU25';\r\n    xdsTicketKundennummerStdMontageU50.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerStdMontageU50.Name := 'xdsTicketKundennummerStdMontageU50';\r\n    xdsTicketKundennummerStdMontageU50.FieldName := 'Kundennummer.StdMontageU50';\r\n    xdsTicketKundennummerStdMontageU70.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerStdMontageU70.Name := 'xdsTicketKundennummerStdMontageU70';\r\n    xdsTicketKundennummerStdMontageU70.FieldName := 'Kundennummer.StdMontageU70';\r\n    xdsTicketKundennummerStdMontageU100.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerStdMontageU100.Name := 'xdsTicketKundennummerStdMontageU100';\r\n    xdsTicketKundennummerStdMontageU100.FieldName := 'Kundennummer.StdMontageU100';\r\n    xdsTicketKundennummerStdMontageU150.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerStdMontageU150.Name := 'xdsTicketKundennummerStdMontageU150';\r\n    xdsTicketKundennummerStdMontageU150.FieldName := 'Kundennummer.StdMontageU150';\r\n    xdsTicketKundennummerStundensatzWerkstatt.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerStundensatzWerkstatt.Name := 'xdsTicketKundennummerStundensatzWerkstatt';\r\n    xdsTicketKundennummerStundensatzWerkstatt.FieldName := 'Kundennummer.StundensatzWerkstatt';\r\n    xdsTicketKundennummerStdWerkstattU25.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerStdWerkstattU25.Name := 'xdsTicketKundennummerStdWerkstattU25';\r\n    xdsTicketKundennummerStdWerkstattU25.FieldName := 'Kundennummer.StdWerkstattU25';\r\n    xdsTicketKundennummerStdWerkstattU50.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerStdWerkstattU50.Name := 'xdsTicketKundennummerStdWerkstattU50';\r\n    xdsTicketKundennummerStdWerkstattU50.FieldName := 'Kundennummer.StdWerkstattU50';\r\n    xdsTicketKundennummerStdWerkstattU70.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerStdWerkstattU70.Name := 'xdsTicketKundennummerStdWerkstattU70';\r\n    xdsTicketKundennummerStdWerkstattU70.FieldName := 'Kundennummer.StdWerkstattU70';\r\n    xdsTicketKundennummerStdWerkstattU100.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerStdWerkstattU100.Name := 'xdsTicketKundennummerStdWerkstattU100';\r\n    xdsTicketKundennummerStdWerkstattU100.FieldName := 'Kundennummer.StdWerkstattU100';\r\n    xdsTicketKundennummerStdWerkstattU150.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerStdWerkstattU150.Name := 'xdsTicketKundennummerStdWerkstattU150';\r\n    xdsTicketKundennummerStdWerkstattU150.FieldName := 'Kundennummer.StdWerkstattU150';\r\n    xdsTicketKundennummerArchivReferenz.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerArchivReferenz.Name := 'xdsTicketKundennummerArchivReferenz';\r\n    xdsTicketKundennummerArchivReferenz.FieldName := 'Kundennummer.ArchivReferenz';\r\n    xdsTicketKundennummerArchivReferenz.Size := 55;\r\n    xdsTicketKundennummerErloesKontoUST1.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerErloesKontoUST1.Name := 'xdsTicketKundennummerErloesKontoUST1';\r\n    xdsTicketKundennummerErloesKontoUST1.FieldName := 'Kundennummer.ErloesKontoUST1';\r\n    xdsTicketKundennummerErloesKontoUST1.Size := 10;\r\n    xdsTicketKundennummerErloesKontoUST2.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerErloesKontoUST2.Name := 'xdsTicketKundennummerErloesKontoUST2';\r\n    xdsTicketKundennummerErloesKontoUST2.FieldName := 'Kundennummer.ErloesKontoUST2';\r\n    xdsTicketKundennummerErloesKontoUST2.Size := 10;\r\n    xdsTicketKundennummerErloesKontoUST3.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerErloesKontoUST3.Name := 'xdsTicketKundennummerErloesKontoUST3';\r\n    xdsTicketKundennummerErloesKontoUST3.FieldName := 'Kundennummer.ErloesKontoUST3';\r\n    xdsTicketKundennummerErloesKontoUST3.Size := 10;\r\n    xdsTicketKundennummerGebKal.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerGebKal.Name := 'xdsTicketKundennummerGebKal';\r\n    xdsTicketKundennummerGebKal.FieldName := 'Kundennummer.GebKal';\r\n    xdsTicketKundennummerEmailversand.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerEmailversand.Name := 'xdsTicketKundennummerEmailversand';\r\n    xdsTicketKundennummerEmailversand.FieldName := 'Kundennummer.Emailversand';\r\n    xdsTicketKundennummerMahnspesen.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerMahnspesen.Name := 'xdsTicketKundennummerMahnspesen';\r\n    xdsTicketKundennummerMahnspesen.FieldName := 'Kundennummer.Mahnspesen';\r\n    xdsTicketKundennummerRechnungSchluss.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerRechnungSchluss.Name := 'xdsTicketKundennummerRechnungSchluss';\r\n    xdsTicketKundennummerRechnungSchluss.FieldName := 'Kundennummer.RechnungSchluss';\r\n    xdsTicketKundennummerRechnungSchluss.Size := 255;\r\n    xdsTicketKundennummerBenutzerNeu.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerBenutzerNeu.Name := 'xdsTicketKundennummerBenutzerNeu';\r\n    xdsTicketKundennummerBenutzerNeu.FieldName := 'Kundennummer.BenutzerNeu';\r\n    xdsTicketKundennummerBenutzerNeu.Size := 50;\r\n    xdsTicketKundennummerBenutzerGeaendert.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerBenutzerGeaendert.Name := 'xdsTicketKundennummerBenutzerGeaendert';\r\n    xdsTicketKundennummerBenutzerGeaendert.FieldName := 'Kundennummer.BenutzerGeaendert';\r\n    xdsTicketKundennummerBenutzerGeaendert.Size := 50;\r\n    xdsTicketKundennummerBelegsprache.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerBelegsprache.Name := 'xdsTicketKundennummerBelegsprache';\r\n    xdsTicketKundennummerBelegsprache.FieldName := 'Kundennummer.Belegsprache';\r\n    xdsTicketKundennummerBelegsprache.Size := 10;\r\n    xdsTicketKundennummerkmSatz.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerkmSatz.Name := 'xdsTicketKundennummerkmSatz';\r\n    xdsTicketKundennummerkmSatz.FieldName := 'Kundennummer.kmSatz';\r\n    xdsTicketKundennummerKundenklassetext.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerKundenklassetext.Name := 'xdsTicketKundennummerKundenklassetext';\r\n    xdsTicketKundennummerKundenklassetext.FieldName := 'Kundennummer.Kundenklassetext';\r\n    xdsTicketKundennummerKundenklassetext.Size := 50;\r\n    xdsTicketKundennummerKundenklasseFarbe.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerKundenklasseFarbe.Name := 'xdsTicketKundennummerKundenklasseFarbe';\r\n    xdsTicketKundennummerKundenklasseFarbe.FieldName := 'Kundennummer.KundenklasseFarbe';\r\n    xdsTicketKundennummerAbweichenderRechnungsEmpfaenger.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerAbweichenderRechnungsEmpfaenger.Name := 'xdsTicketKundennummerAbweichenderRechnungsEmpfaenger';\r\n    xdsTicketKundennummerAbweichenderRechnungsEmpfaenger.FieldName := 'Kundennummer.AbweichenderRechnungsEmpfaenger';\r\n    xdsTicketKundennummerAbweichenderRechnungsEmpfaenger.Size := 13;\r\n    xdsTicketKundennummerProtokoll.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerProtokoll.Name := 'xdsTicketKundennummerProtokoll';\r\n    xdsTicketKundennummerProtokoll.FieldName := 'Kundennummer.Protokoll';\r\n    xdsTicketKundennummerProtokoll.Size := 255;\r\n    xdsTicketKundennummerILNTyp1.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerILNTyp1.Name := 'xdsTicketKundennummerILNTyp1';\r\n    xdsTicketKundennummerILNTyp1.FieldName := 'Kundennummer.ILNTyp1';\r\n    xdsTicketKundennummerILNTyp1.Size := 13;\r\n    xdsTicketKundennummerILNTyp2.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerILNTyp2.Name := 'xdsTicketKundennummerILNTyp2';\r\n    xdsTicketKundennummerILNTyp2.FieldName := 'Kundennummer.ILNTyp2';\r\n    xdsTicketKundennummerILNTyp2.Size := 13;\r\n    xdsTicketKundennummerKontaktGUID.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerKontaktGUID.Name := 'xdsTicketKundennummerKontaktGUID';\r\n    xdsTicketKundennummerKontaktGUID.FieldName := 'Kundennummer.KontaktGUID';\r\n    xdsTicketKundennummerKontaktGUID.Size := 38;\r\n    xdsTicketKundennummerPLZGUID.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerPLZGUID.Name := 'xdsTicketKundennummerPLZGUID';\r\n    xdsTicketKundennummerPLZGUID.FieldName := 'Kundennummer.PLZGUID';\r\n    xdsTicketKundennummerPLZGUID.Size := 38;\r\n    xdsTicketKundennummerPreislistenVariantePakete.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerPreislistenVariantePakete.Name := 'xdsTicketKundennummerPreislistenVariantePakete';\r\n    xdsTicketKundennummerPreislistenVariantePakete.FieldName := 'Kundennummer.PreislistenVariantePakete';\r\n    xdsTicketKundennummerPreislistenVariantePakete.Size := 50;\r\n    xdsTicketKundennummerSchluesselRechnungslauf.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerSchluesselRechnungslauf.Name := 'xdsTicketKundennummerSchluesselRechnungslauf';\r\n    xdsTicketKundennummerSchluesselRechnungslauf.FieldName := 'Kundennummer.SchluesselRechnungslauf';\r\n    xdsTicketKundennummerSchluesselRechnungslauf.Size := 50;\r\n    xdsTicketKundennummerRechnungEmail.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerRechnungEmail.Name := 'xdsTicketKundennummerRechnungEmail';\r\n    xdsTicketKundennummerRechnungEmail.FieldName := 'Kundennummer.RechnungEmail';\r\n    xdsTicketKundennummerRechnungEmail.Size := 50;\r\n    xdsTicketKundennummerZahlungsbedingungEK.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerZahlungsbedingungEK.Name := 'xdsTicketKundennummerZahlungsbedingungEK';\r\n    xdsTicketKundennummerZahlungsbedingungEK.FieldName := 'Kundennummer.ZahlungsbedingungEK';\r\n    xdsTicketKundennummerTransportbedingungEK.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerTransportbedingungEK.Name := 'xdsTicketKundennummerTransportbedingungEK';\r\n    xdsTicketKundennummerTransportbedingungEK.FieldName := 'Kundennummer.TransportbedingungEK';\r\n    xdsTicketKundennummerTransportbedingungEK.Size := 100;\r\n    xdsTicketKundennummerRabattsatzEK.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerRabattsatzEK.Name := 'xdsTicketKundennummerRabattsatzEK';\r\n    xdsTicketKundennummerRabattsatzEK.FieldName := 'Kundennummer.RabattsatzEK';\r\n    xdsTicketKundennummerVertreterMatchcode.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerVertreterMatchcode.Name := 'xdsTicketKundennummerVertreterMatchcode';\r\n    xdsTicketKundennummerVertreterMatchcode.FieldName := 'Kundennummer.VertreterMatchcode';\r\n    xdsTicketKundennummerVertreterMatchcode.Size := 50;\r\n    xdsTicketKundennummerVertreterProvisionssatz.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerVertreterProvisionssatz.Name := 'xdsTicketKundennummerVertreterProvisionssatz';\r\n    xdsTicketKundennummerVertreterProvisionssatz.FieldName := 'Kundennummer.VertreterProvisionssatz';\r\n    xdsTicketKundennummerUmsatzVKJahr.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerUmsatzVKJahr.Name := 'xdsTicketKundennummerUmsatzVKJahr';\r\n    xdsTicketKundennummerUmsatzVKJahr.FieldName := 'Kundennummer.UmsatzVKJahr';\r\n    xdsTicketKundennummerUmsatzVKVorjahr.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerUmsatzVKVorjahr.Name := 'xdsTicketKundennummerUmsatzVKVorjahr';\r\n    xdsTicketKundennummerUmsatzVKVorjahr.FieldName := 'Kundennummer.UmsatzVKVorjahr';\r\n    xdsTicketKundennummerUmsatzEKJahr.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerUmsatzEKJahr.Name := 'xdsTicketKundennummerUmsatzEKJahr';\r\n    xdsTicketKundennummerUmsatzEKJahr.FieldName := 'Kundennummer.UmsatzEKJahr';\r\n    xdsTicketKundennummerUmsatzEKVorjahr.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerUmsatzEKVorjahr.Name := 'xdsTicketKundennummerUmsatzEKVorjahr';\r\n    xdsTicketKundennummerUmsatzEKVorjahr.FieldName := 'Kundennummer.UmsatzEKVorjahr';\r\n    xdsTicketKundennummerSteuernummer.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerSteuernummer.Name := 'xdsTicketKundennummerSteuernummer';\r\n    xdsTicketKundennummerSteuernummer.FieldName := 'Kundennummer.Steuernummer';\r\n    xdsTicketKundennummerSteuernummer.Size := 25;\r\n    xdsTicketKundennummerLoginPW.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerLoginPW.Name := 'xdsTicketKundennummerLoginPW';\r\n    xdsTicketKundennummerLoginPW.FieldName := 'Kundennummer.LoginPW';\r\n    xdsTicketKundennummerREperFax.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerREperFax.Name := 'xdsTicketKundennummerREperFax';\r\n    xdsTicketKundennummerREperFax.FieldName := 'Kundennummer.REperFax';\r\n    xdsTicketKundennummerErreichbarkeit.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerErreichbarkeit.Name := 'xdsTicketKundennummerErreichbarkeit';\r\n    xdsTicketKundennummerErreichbarkeit.FieldName := 'Kundennummer.Erreichbarkeit';\r\n    xdsTicketKundennummerErreichbarkeit.Size := 250;\r\n    xdsTicketKundennummerErloesKontoUST4.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerErloesKontoUST4.Name := 'xdsTicketKundennummerErloesKontoUST4';\r\n    xdsTicketKundennummerErloesKontoUST4.FieldName := 'Kundennummer.ErloesKontoUST4';\r\n    xdsTicketKundennummerErloesKontoUST4.Size := 10;\r\n    xdsTicketKundennummerErloesKontoUST5.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerErloesKontoUST5.Name := 'xdsTicketKundennummerErloesKontoUST5';\r\n    xdsTicketKundennummerErloesKontoUST5.FieldName := 'Kundennummer.ErloesKontoUST5';\r\n    xdsTicketKundennummerErloesKontoUST5.Size := 10;\r\n    xdsTicketKundennummerErloesKontoUST6.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerErloesKontoUST6.Name := 'xdsTicketKundennummerErloesKontoUST6';\r\n    xdsTicketKundennummerErloesKontoUST6.FieldName := 'Kundennummer.ErloesKontoUST6';\r\n    xdsTicketKundennummerErloesKontoUST6.Size := 10;\r\n    xdsTicketKundennummerBesteuerungKey.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerBesteuerungKey.Name := 'xdsTicketKundennummerBesteuerungKey';\r\n    xdsTicketKundennummerBesteuerungKey.FieldName := 'Kundennummer.BesteuerungKey';\r\n    xdsTicketKundennummerAuftraegeJahr.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerAuftraegeJahr.Name := 'xdsTicketKundennummerAuftraegeJahr';\r\n    xdsTicketKundennummerAuftraegeJahr.FieldName := 'Kundennummer.AuftraegeJahr';\r\n    xdsTicketKundennummerAuftraegeVorjahr.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerAuftraegeVorjahr.Name := 'xdsTicketKundennummerAuftraegeVorjahr';\r\n    xdsTicketKundennummerAuftraegeVorjahr.FieldName := 'Kundennummer.AuftraegeVorjahr';\r\n    xdsTicketKundennummerLieferadresseID.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerLieferadresseID.Name := 'xdsTicketKundennummerLieferadresseID';\r\n    xdsTicketKundennummerLieferadresseID.FieldName := 'Kundennummer.LieferadresseID';\r\n    xdsTicketKundennummerUSTIDgeprueft.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerUSTIDgeprueft.Name := 'xdsTicketKundennummerUSTIDgeprueft';\r\n    xdsTicketKundennummerUSTIDgeprueft.FieldName := 'Kundennummer.USTIDgeprueft';\r\n    xdsTicketKundennummerKontaktverbund.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerKontaktverbund.Name := 'xdsTicketKundennummerKontaktverbund';\r\n    xdsTicketKundennummerKontaktverbund.FieldName := 'Kundennummer.Kontaktverbund';\r\n    xdsTicketKundennummerKontaktverbund.Size := 25;\r\n    xdsTicketKundennummerHinweis.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerHinweis.Name := 'xdsTicketKundennummerHinweis';\r\n    xdsTicketKundennummerHinweis.FieldName := 'Kundennummer.Hinweis';\r\n    xdsTicketKundennummerHinweis.Size := 255;\r\n    xdsTicketKundennummerLatitude.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerLatitude.Name := 'xdsTicketKundennummerLatitude';\r\n    xdsTicketKundennummerLatitude.FieldName := 'Kundennummer.Latitude';\r\n    xdsTicketKundennummerLongitude.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerLongitude.Name := 'xdsTicketKundennummerLongitude';\r\n    xdsTicketKundennummerLongitude.FieldName := 'Kundennummer.Longitude';\r\n    xdsTicketKundennummerkmLuftlinie.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerkmLuftlinie.Name := 'xdsTicketKundennummerkmLuftlinie';\r\n    xdsTicketKundennummerkmLuftlinie.FieldName := 'Kundennummer.kmLuftlinie';\r\n    xdsTicketKundennummerGoogleID.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerGoogleID.Name := 'xdsTicketKundennummerGoogleID';\r\n    xdsTicketKundennummerGoogleID.FieldName := 'Kundennummer.GoogleID';\r\n    xdsTicketKundennummerGoogleID.Size := 250;\r\n    xdsTicketKundennummerGoogleUpdatedUTC.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerGoogleUpdatedUTC.Name := 'xdsTicketKundennummerGoogleUpdatedUTC';\r\n    xdsTicketKundennummerGoogleUpdatedUTC.FieldName := 'Kundennummer.GoogleUpdatedUTC';\r\n    xdsTicketKundennummerBundesland.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerBundesland.Name := 'xdsTicketKundennummerBundesland';\r\n    xdsTicketKundennummerBundesland.FieldName := 'Kundennummer.Bundesland';\r\n    xdsTicketKundennummerBundesland.Size := 50;\r\n    xdsTicketKundennummerRegion.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerRegion.Name := 'xdsTicketKundennummerRegion';\r\n    xdsTicketKundennummerRegion.FieldName := 'Kundennummer.Region';\r\n    xdsTicketKundennummerRegion.Size := 50;\r\n    xdsTicketKundennummerMandatsreferenz.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerMandatsreferenz.Name := 'xdsTicketKundennummerMandatsreferenz';\r\n    xdsTicketKundennummerMandatsreferenz.FieldName := 'Kundennummer.Mandatsreferenz';\r\n    xdsTicketKundennummerMandatsreferenz.Size := 34;\r\n    xdsTicketKundennummerMandatsreferenzVom.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerMandatsreferenzVom.Name := 'xdsTicketKundennummerMandatsreferenzVom';\r\n    xdsTicketKundennummerMandatsreferenzVom.FieldName := 'Kundennummer.MandatsreferenzVom';\r\n    xdsTicketKundennummerLastschriftArt.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerLastschriftArt.Name := 'xdsTicketKundennummerLastschriftArt';\r\n    xdsTicketKundennummerLastschriftArt.FieldName := 'Kundennummer.LastschriftArt';\r\n    xdsTicketKundennummerLastschriftArt.Size := 2;\r\n    xdsTicketKundennummerMahnsperre.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerMahnsperre.Name := 'xdsTicketKundennummerMahnsperre';\r\n    xdsTicketKundennummerMahnsperre.FieldName := 'Kundennummer.Mahnsperre';\r\n    xdsTicketKundennummerSuchbegriff.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerSuchbegriff.Name := 'xdsTicketKundennummerSuchbegriff';\r\n    xdsTicketKundennummerSuchbegriff.FieldName := 'Kundennummer.Suchbegriff';\r\n    xdsTicketKundennummerSuchbegriff.Size := 25;\r\n    xdsTicketKundennummerLieferanschriftDaten.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerLieferanschriftDaten.Name := 'xdsTicketKundennummerLieferanschriftDaten';\r\n    xdsTicketKundennummerLieferanschriftDaten.FieldName := 'Kundennummer.LieferanschriftDaten';\r\n    xdsTicketKundennummerLieferanschriftDaten.Size := 255;\r\n    xdsTicketKundennummerExportKasse.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerExportKasse.Name := 'xdsTicketKundennummerExportKasse';\r\n    xdsTicketKundennummerExportKasse.FieldName := 'Kundennummer.ExportKasse';\r\n    xdsTicketKundennummerLoeschvormerkungDatum.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerLoeschvormerkungDatum.Name := 'xdsTicketKundennummerLoeschvormerkungDatum';\r\n    xdsTicketKundennummerLoeschvormerkungDatum.FieldName := 'Kundennummer.LoeschvormerkungDatum';\r\n    xdsTicketKundennummerLoeschvormerkungGrund.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerLoeschvormerkungGrund.Name := 'xdsTicketKundennummerLoeschvormerkungGrund';\r\n    xdsTicketKundennummerLoeschvormerkungGrund.FieldName := 'Kundennummer.LoeschvormerkungGrund';\r\n    xdsTicketKundennummerLoeschvormerkungGrund.Size := 250;\r\n    xdsTicketKundennummerPseudonymisiert.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerPseudonymisiert.Name := 'xdsTicketKundennummerPseudonymisiert';\r\n    xdsTicketKundennummerPseudonymisiert.FieldName := 'Kundennummer.Pseudonymisiert';\r\n    xdsTicketKundennummerPseudonymisiert.Size := 255;\r\n    xdsTicketKundennummerLoginAktiv.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerLoginAktiv.Name := 'xdsTicketKundennummerLoginAktiv';\r\n    xdsTicketKundennummerLoginAktiv.FieldName := 'Kundennummer.LoginAktiv';\r\n    xdsTicketKundennummerSonstigeDaten.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerSonstigeDaten.Name := 'xdsTicketKundennummerSonstigeDaten';\r\n    xdsTicketKundennummerSonstigeDaten.FieldName := 'Kundennummer.SonstigeDaten';\r\n    xdsTicketKundennummerSonstigeDaten.Size := 255;\r\n    xdsTicketKundennummerB2C.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerB2C.Name := 'xdsTicketKundennummerB2C';\r\n    xdsTicketKundennummerB2C.FieldName := 'Kundennummer.B2C';\r\n    xdsTicketKundennummerTIN.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerTIN.Name := 'xdsTicketKundennummerTIN';\r\n    xdsTicketKundennummerTIN.FieldName := 'Kundennummer.TIN';\r\n    xdsTicketKundennummerTIN.Size := 25;\r\n    xdsTicketKundennummerMindestbestellwert.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerMindestbestellwert.Name := 'xdsTicketKundennummerMindestbestellwert';\r\n    xdsTicketKundennummerMindestbestellwert.FieldName := 'Kundennummer.Mindestbestellwert';\r\n    xdsTicketKundennummerBruttoberechnung.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerBruttoberechnung.Name := 'xdsTicketKundennummerBruttoberechnung';\r\n    xdsTicketKundennummerBruttoberechnung.FieldName := 'Kundennummer.Bruttoberechnung';\r\n    xdsTicketKundennummerDruckWHG.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerDruckWHG.Name := 'xdsTicketKundennummerDruckWHG';\r\n    xdsTicketKundennummerDruckWHG.FieldName := 'Kundennummer.DruckWHG';\r\n    xdsTicketKundennummerDruckWHG.Size := 3;\r\n    xdsTicketKundennummerBerechtigungen.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerBerechtigungen.Name := 'xdsTicketKundennummerBerechtigungen';\r\n    xdsTicketKundennummerBerechtigungen.FieldName := 'Kundennummer.Berechtigungen';\r\n    xdsTicketKundennummerBerechtigungen.Size := 255;\r\n    xdsTicketKundennummerRechnungCC.SetParentComponent(xdsTicket);\r\n    xdsTicketKundennummerRechnungCC.Name := 'xdsTicketKundennummerRechnungCC';\r\n    xdsTicketKundennummerRechnungCC.FieldName := 'Kundennummer.RechnungCC';\r\n    xdsTicketKundennummerRechnungCC.Size := 50;\r\n    xdsTicketProdukt.SetParentComponent(xdsTicket);\r\n    xdsTicketProdukt.Name := 'xdsTicketProdukt';\r\n    xdsTicketProdukt.FieldName := 'Produkt';\r\n    xdsTicketProduktProdukt.SetParentComponent(xdsTicket);\r\n    xdsTicketProduktProdukt.Name := 'xdsTicketProduktProdukt';\r\n    xdsTicketProduktProdukt.FieldName := 'Produkt.Produkt';\r\n    xdsTicketProduktProdukt.Size := 50;\r\n    xdsTicketKategorie.SetParentComponent(xdsTicket);\r\n    xdsTicketKategorie.Name := 'xdsTicketKategorie';\r\n    xdsTicketKategorie.FieldName := 'Kategorie';\r\n    xdsTicketKategorieKategorie.SetParentComponent(xdsTicket);\r\n    xdsTicketKategorieKategorie.Name := 'xdsTicketKategorieKategorie';\r\n    xdsTicketKategorieKategorie.FieldName := 'Kategorie.Kategorie';\r\n    xdsTicketKategorieKategorie.Size := 25;\r\n    xdsTicketPrioritaet.SetParentComponent(xdsTicket);\r\n    xdsTicketPrioritaet.Name := 'xdsTicketPrioritaet';\r\n    xdsTicketPrioritaet.FieldName := 'Prioritaet';\r\n    xdsTicketPrioritaetPrioritaet.SetParentComponent(xdsTicket);\r\n    xdsTicketPrioritaetPrioritaet.Name := 'xdsTicketPrioritaetPrioritaet';\r\n    xdsTicketPrioritaetPrioritaet.FieldName := 'Prioritaet.Prioritaet';\r\n    xdsTicketPrioritaetPrioText.SetParentComponent(xdsTicket);\r\n    xdsTicketPrioritaetPrioText.Name := 'xdsTicketPrioritaetPrioText';\r\n    xdsTicketPrioritaetPrioText.FieldName := 'Prioritaet.PrioText';\r\n    xdsTicketPrioritaetPrioFarbe.SetParentComponent(xdsTicket);\r\n    xdsTicketPrioritaetPrioFarbe.Name := 'xdsTicketPrioritaetPrioFarbe';\r\n    xdsTicketPrioritaetPrioFarbe.FieldName := 'Prioritaet.PrioFarbe';\r\n    xdsTicketStatus.SetParentComponent(xdsTicket);\r\n    xdsTicketStatus.Name := 'xdsTicketStatus';\r\n    xdsTicketStatus.FieldName := 'Status';\r\n    xdsTicketID.SetParentComponent(xdsTicket);\r\n    xdsTicketID.Name := 'xdsTicketID';\r\n    xdsTicketID.FieldName := 'ID';\r\n    xdsTicketID.Required := True;\r\n    xdsTicketErstelltAm.SetParentComponent(xdsTicket);\r\n    xdsTicketErstelltAm.Name := 'xdsTicketErstelltAm';\r\n    xdsTicketErstelltAm.FieldName := 'ErstelltAm';\r\n    xdsTicketBetreff.SetParentComponent(xdsTicket);\r\n    xdsTicketBetreff.Name := 'xdsTicketBetreff';\r\n    xdsTicketBetreff.FieldName := 'Betreff';\r\n    xdsTicketBetreff.Size := 100;\r\n    xdsTicketBeschreibung.SetParentComponent(xdsTicket);\r\n    xdsTicketBeschreibung.Name := 'xdsTicketBeschreibung';\r\n    xdsTicketBeschreibung.FieldName := 'Beschreibung';\r\n    xdsTicketBeschreibung.Size := 255;\r\n    xdsTicketAbrechnungsbetrag.SetParentComponent(xdsTicket);\r\n    xdsTicketAbrechnungsbetrag.Name := 'xdsTicketAbrechnungsbetrag';\r\n    xdsTicketAbrechnungsbetrag.FieldName := 'Abrechnungsbetrag';\r\n    xdsTicketAbrechnungRechnungsnummer.SetParentComponent(xdsTicket);\r\n    xdsTicketAbrechnungRechnungsnummer.Name := 'xdsTicketAbrechnungRechnungsnummer';\r\n    xdsTicketAbrechnungRechnungsnummer.FieldName := 'AbrechnungRechnungsnummer';\r\n    xdsTicketAbrechnungRechnungsnummer.Size := 10;\r\n    xdsTicketAberechnetAm.SetParentComponent(xdsTicket);\r\n    xdsTicketAberechnetAm.Name := 'xdsTicketAberechnetAm';\r\n    xdsTicketAberechnetAm.FieldName := 'AberechnetAm';\r\n    xdsTicketErledigtAm.SetParentComponent(xdsTicket);\r\n    xdsTicketErledigtAm.Name := 'xdsTicketErledigtAm';\r\n    xdsTicketErledigtAm.FieldName := 'ErledigtAm';\r\n    xdsTicketNachname.SetParentComponent(xdsTicket);\r\n    xdsTicketNachname.Name := 'xdsTicketNachname';\r\n    xdsTicketNachname.FieldName := 'Nachname';\r\n    xdsTicketNachname.Size := 40;\r\n    xdsTicketVorname.SetParentComponent(xdsTicket);\r\n    xdsTicketVorname.Name := 'xdsTicketVorname';\r\n    xdsTicketVorname.FieldName := 'Vorname';\r\n    xdsTicketVorname.Size := 40;\r\n    xdsTicketEmail.SetParentComponent(xdsTicket);\r\n    xdsTicketEmail.Name := 'xdsTicketEmail';\r\n    xdsTicketEmail.FieldName := 'Email';\r\n    xdsTicketEmail.Size := 50;\r\n    xdsTicketSystemInfo.SetParentComponent(xdsTicket);\r\n    xdsTicketSystemInfo.Name := 'xdsTicketSystemInfo';\r\n    xdsTicketSystemInfo.FieldName := 'SystemInfo';\r\n    xdsTicketSystemInfo.Size := 255;\r\n    xdsTicketLoesung.SetParentComponent(xdsTicket);\r\n    xdsTicketLoesung.Name := 'xdsTicketLoesung';\r\n    xdsTicketLoesung.FieldName := 'Loesung';\r\n    xdsTicketLoesung.Size := 255;\r\n    xdsTicketProtokoll.SetParentComponent(xdsTicket);\r\n    xdsTicketProtokoll.Name := 'xdsTicketProtokoll';\r\n    xdsTicketProtokoll.FieldName := 'Protokoll';\r\n    xdsTicketProtokoll.Size := 255;\r\n    xdsTicketZeitaufwandMinuten.SetParentComponent(xdsTicket);\r\n    xdsTicketZeitaufwandMinuten.Name := 'xdsTicketZeitaufwandMinuten';\r\n    xdsTicketZeitaufwandMinuten.FieldName := 'ZeitaufwandMinuten';\r\n    xdsTicketAbzurechnendeMinuten.SetParentComponent(xdsTicket);\r\n    xdsTicketAbzurechnendeMinuten.Name := 'xdsTicketAbzurechnendeMinuten';\r\n    xdsTicketAbzurechnendeMinuten.FieldName := 'AbzurechnendeMinuten';\r\n    xdsTicketAbgerechneteMinuten.SetParentComponent(xdsTicket);\r\n    xdsTicketAbgerechneteMinuten.Name := 'xdsTicketAbgerechneteMinuten';\r\n    xdsTicketAbgerechneteMinuten.FieldName := 'AbgerechneteMinuten';\r\n    xdsTicketBenachrichtigungNEU.SetParentComponent(xdsTicket);\r\n    xdsTicketBenachrichtigungNEU.Name := 'xdsTicketBenachrichtigungNEU';\r\n    xdsTicketBenachrichtigungNEU.FieldName := 'BenachrichtigungNEU';\r\n    xdsTicketBenachrichtigungLoesung.SetParentComponent(xdsTicket);\r\n    xdsTicketBenachrichtigungLoesung.Name := 'xdsTicketBenachrichtigungLoesung';\r\n    xdsTicketBenachrichtigungLoesung.FieldName := 'BenachrichtigungLoesung';\r\n    xdsTicketInterneBemerkung.SetParentComponent(xdsTicket);\r\n    xdsTicketInterneBemerkung.Name := 'xdsTicketInterneBemerkung';\r\n    xdsTicketInterneBemerkung.FieldName := 'InterneBemerkung';\r\n    xdsTicketInterneBemerkung.Size := 255;\r\n    xdsTicketLoesungInfoSenden.SetParentComponent(xdsTicket);\r\n    xdsTicketLoesungInfoSenden.Name := 'xdsTicketLoesungInfoSenden';\r\n    xdsTicketLoesungInfoSenden.FieldName := 'LoesungInfoSenden';\r\n    xdsTicketKontaktperson.SetParentComponent(xdsTicket);\r\n    xdsTicketKontaktperson.Name := 'xdsTicketKontaktperson';\r\n    xdsTicketKontaktperson.FieldName := 'Kontaktperson';\r\n    xdsTicketKontaktperson.Size := 100;\r\n    xdsTicketErreichbarkeitTelefon.SetParentComponent(xdsTicket);\r\n    xdsTicketErreichbarkeitTelefon.Name := 'xdsTicketErreichbarkeitTelefon';\r\n    xdsTicketErreichbarkeitTelefon.FieldName := 'ErreichbarkeitTelefon';\r\n    xdsTicketErreichbarkeitTelefon.Size := 100;\r\n    xdsTicketErreichbarkeitWann.SetParentComponent(xdsTicket);\r\n    xdsTicketErreichbarkeitWann.Name := 'xdsTicketErreichbarkeitWann';\r\n    xdsTicketErreichbarkeitWann.FieldName := 'ErreichbarkeitWann';\r\n    xdsTicketErreichbarkeitWann.Size := 100;\r\n    xdsTicketStatusStatus.SetParentComponent(xdsTicket);\r\n    xdsTicketStatusStatus.Name := 'xdsTicketStatusStatus';\r\n    xdsTicketStatusStatus.FieldName := 'Status.Status';\r\n    xdsTicketStatusStatus.Size := 25;\r\n    xdsTicketKontaktpersonEmail.SetParentComponent(xdsTicket);\r\n    xdsTicketKontaktpersonEmail.Name := 'xdsTicketKontaktpersonEmail';\r\n    xdsTicketKontaktpersonEmail.FieldName := 'KontaktpersonEmail';\r\n    xdsTicketKontaktpersonEmail.Size := 100;\r\n    xdsTStatus.SetParentComponent(Self);\r\n    xdsTStatus.Name := 'xdsTStatus';\r\n    xdsTStatus.AfterOpen := xdsTStatusAfterOpen;\r\n    xdsTStatus.EntitySetName := 'ITS_TicketStatus';\r\n    xdsTStatus.Connection := DM2.XDataWebConnection1;\r\n    xdsTStatus.Left := 176;\r\n    xdsTStatus.Top := 24;\r\n    xdsTStatusStatus.SetParentComponent(xdsTStatus);\r\n    xdsTStatusStatus.Name := 'xdsTStatusStatus';\r\n    xdsTStatusStatus.FieldName := 'Status';\r\n    xdsTStatusStatus.Required := True;\r\n    xdsTStatusStatus.Size := 25;\r\n    sourceTicket.SetParentComponent(Self);\r\n    sourceTicket.Name := 'sourceTicket';\r\n    sourceTicket.DataSet := xdsTicket;\r\n    SetEvent(sourceTicket, Self, 'OnStateChange', 'sourceTicketStateChange');\r\n    sourceTicket.Left := 160;\r\n    sourceTicket.Top := 228;\r\n    sourceTStatus.SetParentComponent(Self);\r\n    sourceTStatus.Name := 'sourceTStatus';\r\n    sourceTStatus.DataSet := xdsTStatus;\r\n    sourceTStatus.Left := 176;\r\n    sourceTStatus.Top := 76;\r\n    xdsTicketKonversation.SetParentComponent(Self);\r\n    xdsTicketKonversation.Name := 'xdsTicketKonversation';\r\n    xdsTicketKonversation.AfterApplyUpdates := xdsTicketKonversationAfterApplyUpdates;\r\n    xdsTicketKonversation.AfterOpen := xdsTicketKonversationAfterOpen;\r\n    xdsTicketKonversation.AfterPost := xdsTicketKonversationAfterPost;\r\n    xdsTicketKonversation.EntitySetName := 'ITS_TicketKonversation';\r\n    xdsTicketKonversation.Connection := DM2.XDataWebConnection1;\r\n    xdsTicketKonversation.Left := 176;\r\n    xdsTicketKonversation.Top := 136;\r\n    xdsTicketKonversationTicketID.SetParentComponent(xdsTicketKonversation);\r\n    xdsTicketKonversationTicketID.Name := 'xdsTicketKonversationTicketID';\r\n    xdsTicketKonversationTicketID.FieldName := 'TicketID';\r\n    xdsTicketKonversationTicketID.Required := True;\r\n    xdsTicketKonversationID.SetParentComponent(xdsTicketKonversation);\r\n    xdsTicketKonversationID.Name := 'xdsTicketKonversationID';\r\n    xdsTicketKonversationID.FieldName := 'ID';\r\n    xdsTicketKonversationID.Required := True;\r\n    xdsTicketKonversationDatumUhrzeit.SetParentComponent(xdsTicketKonversation);\r\n    xdsTicketKonversationDatumUhrzeit.Name := 'xdsTicketKonversationDatumUhrzeit';\r\n    xdsTicketKonversationDatumUhrzeit.FieldName := 'DatumUhrzeit';\r\n    xdsTicketKonversationDatumUhrzeit.Required := True;\r\n    xdsTicketKonversationAntwortText.SetParentComponent(xdsTicketKonversation);\r\n    xdsTicketKonversationAntwortText.Name := 'xdsTicketKonversationAntwortText';\r\n    xdsTicketKonversationAntwortText.FieldName := 'AntwortText';\r\n    xdsTicketKonversationAntwortText.Size := 255;\r\n    xdsTicketKonversationNachrichtSenden.SetParentComponent(xdsTicketKonversation);\r\n    xdsTicketKonversationNachrichtSenden.Name := 'xdsTicketKonversationNachrichtSenden';\r\n    xdsTicketKonversationNachrichtSenden.FieldName := 'NachrichtSenden';\r\n    xdsTicketKonversationNachrichtGesendet.SetParentComponent(xdsTicketKonversation);\r\n    xdsTicketKonversationNachrichtGesendet.Name := 'xdsTicketKonversationNachrichtGesendet';\r\n    xdsTicketKonversationNachrichtGesendet.FieldName := 'NachrichtGesendet';\r\n    xdsTicketKonversationVerfasser.SetParentComponent(xdsTicketKonversation);\r\n    xdsTicketKonversationVerfasser.Name := 'xdsTicketKonversationVerfasser';\r\n    xdsTicketKonversationVerfasser.FieldName := 'Verfasser';\r\n    xdsTicketKonversationVerfasser.Size := 50;\r\n    xdsTicketKonversationQuellProgramm.SetParentComponent(xdsTicketKonversation);\r\n    xdsTicketKonversationQuellProgramm.Name := 'xdsTicketKonversationQuellProgramm';\r\n    xdsTicketKonversationQuellProgramm.FieldName := 'QuellProgramm';\r\n    xdsTicketKonversationQuellProgramm.Size := 50;\r\n    sourceTicketKonversation.SetParentComponent(Self);\r\n    sourceTicketKonversation.Name := 'sourceTicketKonversation';\r\n    sourceTicketKonversation.DataSet := xdsTicketKonversation;\r\n    sourceTicketKonversation.Left := 176;\r\n    sourceTicketKonversation.Top := 188;\r\n    xdsTicketDateien.SetParentComponent(Self);\r\n    xdsTicketDateien.Name := 'xdsTicketDateien';\r\n    xdsTicketDateien.AfterOpen := xdsTicketDateienAfterOpen;\r\n    xdsTicketDateien.EntitySetName := 'ITS_TicketDateien';\r\n    xdsTicketDateien.Connection := DM2.XDataWebConnection1;\r\n    xdsTicketDateien.Left := 176;\r\n    xdsTicketDateien.Top := 432;\r\n    xdsTicketDateienTicketID.SetParentComponent(xdsTicketDateien);\r\n    xdsTicketDateienTicketID.Name := 'xdsTicketDateienTicketID';\r\n    xdsTicketDateienTicketID.FieldName := 'TicketID';\r\n    xdsTicketDateienTicketID.Required := True;\r\n    xdsTicketDateienID.SetParentComponent(xdsTicketDateien);\r\n    xdsTicketDateienID.Name := 'xdsTicketDateienID';\r\n    xdsTicketDateienID.FieldName := 'ID';\r\n    xdsTicketDateienID.Required := True;\r\n    xdsTicketDateienDatumUhrzeit.SetParentComponent(xdsTicketDateien);\r\n    xdsTicketDateienDatumUhrzeit.Name := 'xdsTicketDateienDatumUhrzeit';\r\n    xdsTicketDateienDatumUhrzeit.FieldName := 'DatumUhrzeit';\r\n    xdsTicketDateienDatumUhrzeit.Required := True;\r\n    xdsTicketDateienFuerLoesung.SetParentComponent(xdsTicketDateien);\r\n    xdsTicketDateienFuerLoesung.Name := 'xdsTicketDateienFuerLoesung';\r\n    xdsTicketDateienFuerLoesung.FieldName := 'FuerLoesung';\r\n    xdsTicketDateienDateiMime.SetParentComponent(xdsTicketDateien);\r\n    xdsTicketDateienDateiMime.Name := 'xdsTicketDateienDateiMime';\r\n    xdsTicketDateienDateiMime.FieldName := 'DateiMime';\r\n    xdsTicketDateienDateiMime.Size := 50;\r\n    xdsTicketDateienDateiName.SetParentComponent(xdsTicketDateien);\r\n    xdsTicketDateienDateiName.Name := 'xdsTicketDateienDateiName';\r\n    xdsTicketDateienDateiName.FieldName := 'DateiName';\r\n    xdsTicketDateienDateiName.Size := 255;\r\n    xdsTicketDateienDateiGroesse.SetParentComponent(xdsTicketDateien);\r\n    xdsTicketDateienDateiGroesse.Name := 'xdsTicketDateienDateiGroesse';\r\n    xdsTicketDateienDateiGroesse.FieldName := 'DateiGroesse';\r\n    xdsTicketDateienDateiInhaltText.SetParentComponent(xdsTicketDateien);\r\n    xdsTicketDateienDateiInhaltText.Name := 'xdsTicketDateienDateiInhaltText';\r\n    xdsTicketDateienDateiInhaltText.FieldName := 'DateiInhaltText';\r\n    xdsTicketDateienDateiInhaltText.Size := 255;\r\n    xdskontosaldo.SetParentComponent(Self);\r\n    xdskontosaldo.Name := 'xdskontosaldo';\r\n    xdskontosaldo.AfterOpen := xdskontosaldoAfterOpen;\r\n    xdskontosaldo.EntitySetName := 'ITS_Kontosalden';\r\n    xdskontosaldo.Connection := DM2.XDataWebConnection1;\r\n    xdskontosaldo.Left := 128;\r\n    xdskontosaldo.Top := 544;\r\n    xdskontosaldoKundennummer.SetParentComponent(xdskontosaldo);\r\n    xdskontosaldoKundennummer.Name := 'xdskontosaldoKundennummer';\r\n    xdskontosaldoKundennummer.FieldName := 'Kundennummer';\r\n    xdskontosaldoKundennummer.Required := True;\r\n    xdskontosaldoKundennummer.Size := 13;\r\n    xdskontosaldoZeitaufwand.SetParentComponent(xdskontosaldo);\r\n    xdskontosaldoZeitaufwand.Name := 'xdskontosaldoZeitaufwand';\r\n    xdskontosaldoZeitaufwand.FieldName := 'Zeitaufwand';\r\n    xdskontosaldoAbzurechnen.SetParentComponent(xdskontosaldo);\r\n    xdskontosaldoAbzurechnen.Name := 'xdskontosaldoAbzurechnen';\r\n    xdskontosaldoAbzurechnen.FieldName := 'Abzurechnen';\r\n    xdskontosaldoGutschrift.SetParentComponent(xdskontosaldo);\r\n    xdskontosaldoGutschrift.Name := 'xdskontosaldoGutschrift';\r\n    xdskontosaldoGutschrift.FieldName := 'Gutschrift';\r\n    xdskontosaldoAbzug.SetParentComponent(xdskontosaldo);\r\n    xdskontosaldoAbzug.Name := 'xdskontosaldoAbzug';\r\n    xdskontosaldoAbzug.FieldName := 'Abzug';\r\n    xdskontosaldoSaldo.SetParentComponent(xdskontosaldo);\r\n    xdskontosaldoSaldo.Name := 'xdskontosaldoSaldo';\r\n    xdskontosaldoSaldo.FieldName := 'Saldo';\r\n    xdskontosaldoBetrag.SetParentComponent(xdskontosaldo);\r\n    xdskontosaldoBetrag.Name := 'xdskontosaldoBetrag';\r\n    xdskontosaldoBetrag.FieldName := 'Betrag';\r\n    xdskontosaldoMinutenpreis.SetParentComponent(xdskontosaldo);\r\n    xdskontosaldoMinutenpreis.Name := 'xdskontosaldoMinutenpreis';\r\n    xdskontosaldoMinutenpreis.FieldName := 'Minutenpreis';\r\n    xdskontosaldoSRestguthaben.SetParentComponent(xdskontosaldo);\r\n    xdskontosaldoSRestguthaben.Name := 'xdskontosaldoSRestguthaben';\r\n    xdskontosaldoSRestguthaben.FieldName := 'SRestguthaben';\r\n  finally\r\n    lblinfo.AfterLoadDFMValues;\r\n    lblKonversation.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    TC.AfterLoadDFMValues;\r\n    btnSpeichern.AfterLoadDFMValues;\r\n    webDBCStatus.AfterLoadDFMValues;\r\n    btnAntwortNeu.AfterLoadDFMValues;\r\n    edtNotiz.AfterLoadDFMValues;\r\n    btnAntwortSpeichern.AfterLoadDFMValues;\r\n    checkBenachrichtigung.AfterLoadDFMValues;\r\n    xdsTicket.AfterLoadDFMValues;\r\n    xdsTicketKundennummer.AfterLoadDFMValues;\r\n    xdsTicketKundennummerZahlungsbedingung.AfterLoadDFMValues;\r\n    xdsTicketKundennummerKundennummer.AfterLoadDFMValues;\r\n    xdsTicketKundennummerGruppeKunden.AfterLoadDFMValues;\r\n    xdsTicketKundennummerGruppeLieferanten.AfterLoadDFMValues;\r\n    xdsTicketKundennummerGruppeSonstige.AfterLoadDFMValues;\r\n    xdsTicketKundennummerGruppeNichtkunden.AfterLoadDFMValues;\r\n    xdsTicketKundennummerKontaktgruppe.AfterLoadDFMValues;\r\n    xdsTicketKundennummerNachname.AfterLoadDFMValues;\r\n    xdsTicketKundennummerVorname.AfterLoadDFMValues;\r\n    xdsTicketKundennummerAdresszeile2.AfterLoadDFMValues;\r\n    xdsTicketKundennummerAdresszeile3.AfterLoadDFMValues;\r\n    xdsTicketKundennummerStrasse.AfterLoadDFMValues;\r\n    xdsTicketKundennummerPostleitzahl.AfterLoadDFMValues;\r\n    xdsTicketKundennummerOrt.AfterLoadDFMValues;\r\n    xdsTicketKundennummerLaenderkuerzel.AfterLoadDFMValues;\r\n    xdsTicketKundennummerLand.AfterLoadDFMValues;\r\n    xdsTicketKundennummerLaenderkennzeichen.AfterLoadDFMValues;\r\n    xdsTicketKundennummerAdressanrede.AfterLoadDFMValues;\r\n    xdsTicketKundennummerBriefanrede1.AfterLoadDFMValues;\r\n    xdsTicketKundennummerBriefanrede2.AfterLoadDFMValues;\r\n    xdsTicketKundennummerAdresseBild.AfterLoadDFMValues;\r\n    xdsTicketKundennummerLieferanschrift.AfterLoadDFMValues;\r\n    xdsTicketKundennummerGeburtsdatum.AfterLoadDFMValues;\r\n    xdsTicketKundennummerTelefonNummer.AfterLoadDFMValues;\r\n    xdsTicketKundennummerTelefaxNummer.AfterLoadDFMValues;\r\n    xdsTicketKundennummerMobilTelefon.AfterLoadDFMValues;\r\n    xdsTicketKundennummerEMail.AfterLoadDFMValues;\r\n    xdsTicketKundennummerInternet.AfterLoadDFMValues;\r\n    xdsTicketKundennummerUmsatzsteuerID.AfterLoadDFMValues;\r\n    xdsTicketKundennummerUmsatzsteuerausweis.AfterLoadDFMValues;\r\n    xdsTicketKundennummerBemerkungen.AfterLoadDFMValues;\r\n    xdsTicketKundennummerBranche.AfterLoadDFMValues;\r\n    xdsTicketKundennummerSelektiert1.AfterLoadDFMValues;\r\n    xdsTicketKundennummerSelektiert2.AfterLoadDFMValues;\r\n    xdsTicketKundennummerSelektiert3.AfterLoadDFMValues;\r\n    xdsTicketKundennummerTransportbedingung.AfterLoadDFMValues;\r\n    xdsTicketKundennummerKilometer.AfterLoadDFMValues;\r\n    xdsTicketKundennummerRabattsatz.AfterLoadDFMValues;\r\n    xdsTicketKundennummerStundensatz.AfterLoadDFMValues;\r\n    xdsTicketKundennummerKontonummer.AfterLoadDFMValues;\r\n    xdsTicketKundennummerBank.AfterLoadDFMValues;\r\n    xdsTicketKundennummerBankleitzahl.AfterLoadDFMValues;\r\n    xdsTicketKundennummerKontoinhaber.AfterLoadDFMValues;\r\n    xdsTicketKundennummerBetreuer.AfterLoadDFMValues;\r\n    xdsTicketKundennummerQuelle.AfterLoadDFMValues;\r\n    xdsTicketKundennummerSuchmerkmal.AfterLoadDFMValues;\r\n    xdsTicketKundennummerWarenkreditlimit.AfterLoadDFMValues;\r\n    xdsTicketKundennummerWarenkreditgesperrt.AfterLoadDFMValues;\r\n    xdsTicketKundennummerKundennummerFremd.AfterLoadDFMValues;\r\n    xdsTicketKundennummerKeinNewsletter.AfterLoadDFMValues;\r\n    xdsTicketKundennummerDebitorennummer.AfterLoadDFMValues;\r\n    xdsTicketKundennummerKreditorennummer.AfterLoadDFMValues;\r\n    xdsTicketKundennummerRabattstufe.AfterLoadDFMValues;\r\n    xdsTicketKundennummerTelefonAlternativ.AfterLoadDFMValues;\r\n    xdsTicketKundennummerKostentraeger.AfterLoadDFMValues;\r\n    xdsTicketKundennummerIBAN.AfterLoadDFMValues;\r\n    xdsTicketKundennummerBIC.AfterLoadDFMValues;\r\n    xdsTicketKundennummerEmailkonto.AfterLoadDFMValues;\r\n    xdsTicketKundennummerBenutzername.AfterLoadDFMValues;\r\n    xdsTicketKundennummerPasswort.AfterLoadDFMValues;\r\n    xdsTicketKundennummerExportOutlook.AfterLoadDFMValues;\r\n    xdsTicketKundennummerNichtInListeAnzeigen.AfterLoadDFMValues;\r\n    xdsTicketKundennummerKreditkarteArt.AfterLoadDFMValues;\r\n    xdsTicketKundennummerKreditkarteInhaber.AfterLoadDFMValues;\r\n    xdsTicketKundennummerKreditkarteNummer.AfterLoadDFMValues;\r\n    xdsTicketKundennummerKreditkarteGueltigMonat.AfterLoadDFMValues;\r\n    xdsTicketKundennummerKreditkarteGueltigJahr.AfterLoadDFMValues;\r\n    xdsTicketKundennummerKreditkartePruefziffer.AfterLoadDFMValues;\r\n    xdsTicketKundennummerDatumNeu.AfterLoadDFMValues;\r\n    xdsTicketKundennummerDatumgeaendert.AfterLoadDFMValues;\r\n    xdsTicketKundennummerTitel.AfterLoadDFMValues;\r\n    xdsTicketKundennummerStundensatzMontage.AfterLoadDFMValues;\r\n    xdsTicketKundennummerStdMontageU25.AfterLoadDFMValues;\r\n    xdsTicketKundennummerStdMontageU50.AfterLoadDFMValues;\r\n    xdsTicketKundennummerStdMontageU70.AfterLoadDFMValues;\r\n    xdsTicketKundennummerStdMontageU100.AfterLoadDFMValues;\r\n    xdsTicketKundennummerStdMontageU150.AfterLoadDFMValues;\r\n    xdsTicketKundennummerStundensatzWerkstatt.AfterLoadDFMValues;\r\n    xdsTicketKundennummerStdWerkstattU25.AfterLoadDFMValues;\r\n    xdsTicketKundennummerStdWerkstattU50.AfterLoadDFMValues;\r\n    xdsTicketKundennummerStdWerkstattU70.AfterLoadDFMValues;\r\n    xdsTicketKundennummerStdWerkstattU100.AfterLoadDFMValues;\r\n    xdsTicketKundennummerStdWerkstattU150.AfterLoadDFMValues;\r\n    xdsTicketKundennummerArchivReferenz.AfterLoadDFMValues;\r\n    xdsTicketKundennummerErloesKontoUST1.AfterLoadDFMValues;\r\n    xdsTicketKundennummerErloesKontoUST2.AfterLoadDFMValues;\r\n    xdsTicketKundennummerErloesKontoUST3.AfterLoadDFMValues;\r\n    xdsTicketKundennummerGebKal.AfterLoadDFMValues;\r\n    xdsTicketKundennummerEmailversand.AfterLoadDFMValues;\r\n    xdsTicketKundennummerMahnspesen.AfterLoadDFMValues;\r\n    xdsTicketKundennummerRechnungSchluss.AfterLoadDFMValues;\r\n    xdsTicketKundennummerBenutzerNeu.AfterLoadDFMValues;\r\n    xdsTicketKundennummerBenutzerGeaendert.AfterLoadDFMValues;\r\n    xdsTicketKundennummerBelegsprache.AfterLoadDFMValues;\r\n    xdsTicketKundennummerkmSatz.AfterLoadDFMValues;\r\n    xdsTicketKundennummerKundenklassetext.AfterLoadDFMValues;\r\n    xdsTicketKundennummerKundenklasseFarbe.AfterLoadDFMValues;\r\n    xdsTicketKundennummerAbweichenderRechnungsEmpfaenger.AfterLoadDFMValues;\r\n    xdsTicketKundennummerProtokoll.AfterLoadDFMValues;\r\n    xdsTicketKundennummerILNTyp1.AfterLoadDFMValues;\r\n    xdsTicketKundennummerILNTyp2.AfterLoadDFMValues;\r\n    xdsTicketKundennummerKontaktGUID.AfterLoadDFMValues;\r\n    xdsTicketKundennummerPLZGUID.AfterLoadDFMValues;\r\n    xdsTicketKundennummerPreislistenVariantePakete.AfterLoadDFMValues;\r\n    xdsTicketKundennummerSchluesselRechnungslauf.AfterLoadDFMValues;\r\n    xdsTicketKundennummerRechnungEmail.AfterLoadDFMValues;\r\n    xdsTicketKundennummerZahlungsbedingungEK.AfterLoadDFMValues;\r\n    xdsTicketKundennummerTransportbedingungEK.AfterLoadDFMValues;\r\n    xdsTicketKundennummerRabattsatzEK.AfterLoadDFMValues;\r\n    xdsTicketKundennummerVertreterMatchcode.AfterLoadDFMValues;\r\n    xdsTicketKundennummerVertreterProvisionssatz.AfterLoadDFMValues;\r\n    xdsTicketKundennummerUmsatzVKJahr.AfterLoadDFMValues;\r\n    xdsTicketKundennummerUmsatzVKVorjahr.AfterLoadDFMValues;\r\n    xdsTicketKundennummerUmsatzEKJahr.AfterLoadDFMValues;\r\n    xdsTicketKundennummerUmsatzEKVorjahr.AfterLoadDFMValues;\r\n    xdsTicketKundennummerSteuernummer.AfterLoadDFMValues;\r\n    xdsTicketKundennummerLoginPW.AfterLoadDFMValues;\r\n    xdsTicketKundennummerREperFax.AfterLoadDFMValues;\r\n    xdsTicketKundennummerErreichbarkeit.AfterLoadDFMValues;\r\n    xdsTicketKundennummerErloesKontoUST4.AfterLoadDFMValues;\r\n    xdsTicketKundennummerErloesKontoUST5.AfterLoadDFMValues;\r\n    xdsTicketKundennummerErloesKontoUST6.AfterLoadDFMValues;\r\n    xdsTicketKundennummerBesteuerungKey.AfterLoadDFMValues;\r\n    xdsTicketKundennummerAuftraegeJahr.AfterLoadDFMValues;\r\n    xdsTicketKundennummerAuftraegeVorjahr.AfterLoadDFMValues;\r\n    xdsTicketKundennummerLieferadresseID.AfterLoadDFMValues;\r\n    xdsTicketKundennummerUSTIDgeprueft.AfterLoadDFMValues;\r\n    xdsTicketKundennummerKontaktverbund.AfterLoadDFMValues;\r\n    xdsTicketKundennummerHinweis.AfterLoadDFMValues;\r\n    xdsTicketKundennummerLatitude.AfterLoadDFMValues;\r\n    xdsTicketKundennummerLongitude.AfterLoadDFMValues;\r\n    xdsTicketKundennummerkmLuftlinie.AfterLoadDFMValues;\r\n    xdsTicketKundennummerGoogleID.AfterLoadDFMValues;\r\n    xdsTicketKundennummerGoogleUpdatedUTC.AfterLoadDFMValues;\r\n    xdsTicketKundennummerBundesland.AfterLoadDFMValues;\r\n    xdsTicketKundennummerRegion.AfterLoadDFMValues;\r\n    xdsTicketKundennummerMandatsreferenz.AfterLoadDFMValues;\r\n    xdsTicketKundennummerMandatsreferenzVom.AfterLoadDFMValues;\r\n    xdsTicketKundennummerLastschriftArt.AfterLoadDFMValues;\r\n    xdsTicketKundennummerMahnsperre.AfterLoadDFMValues;\r\n    xdsTicketKundennummerSuchbegriff.AfterLoadDFMValues;\r\n    xdsTicketKundennummerLieferanschriftDaten.AfterLoadDFMValues;\r\n    xdsTicketKundennummerExportKasse.AfterLoadDFMValues;\r\n    xdsTicketKundennummerLoeschvormerkungDatum.AfterLoadDFMValues;\r\n    xdsTicketKundennummerLoeschvormerkungGrund.AfterLoadDFMValues;\r\n    xdsTicketKundennummerPseudonymisiert.AfterLoadDFMValues;\r\n    xdsTicketKundennummerLoginAktiv.AfterLoadDFMValues;\r\n    xdsTicketKundennummerSonstigeDaten.AfterLoadDFMValues;\r\n    xdsTicketKundennummerB2C.AfterLoadDFMValues;\r\n    xdsTicketKundennummerTIN.AfterLoadDFMValues;\r\n    xdsTicketKundennummerMindestbestellwert.AfterLoadDFMValues;\r\n    xdsTicketKundennummerBruttoberechnung.AfterLoadDFMValues;\r\n    xdsTicketKundennummerDruckWHG.AfterLoadDFMValues;\r\n    xdsTicketKundennummerBerechtigungen.AfterLoadDFMValues;\r\n    xdsTicketKundennummerRechnungCC.AfterLoadDFMValues;\r\n    xdsTicketProdukt.AfterLoadDFMValues;\r\n    xdsTicketProduktProdukt.AfterLoadDFMValues;\r\n    xdsTicketKategorie.AfterLoadDFMValues;\r\n    xdsTicketKategorieKategorie.AfterLoadDFMValues;\r\n    xdsTicketPrioritaet.AfterLoadDFMValues;\r\n    xdsTicketPrioritaetPrioritaet.AfterLoadDFMValues;\r\n    xdsTicketPrioritaetPrioText.AfterLoadDFMValues;\r\n    xdsTicketPrioritaetPrioFarbe.AfterLoadDFMValues;\r\n    xdsTicketStatus.AfterLoadDFMValues;\r\n    xdsTicketID.AfterLoadDFMValues;\r\n    xdsTicketErstelltAm.AfterLoadDFMValues;\r\n    xdsTicketBetreff.AfterLoadDFMValues;\r\n    xdsTicketBeschreibung.AfterLoadDFMValues;\r\n    xdsTicketAbrechnungsbetrag.AfterLoadDFMValues;\r\n    xdsTicketAbrechnungRechnungsnummer.AfterLoadDFMValues;\r\n    xdsTicketAberechnetAm.AfterLoadDFMValues;\r\n    xdsTicketErledigtAm.AfterLoadDFMValues;\r\n    xdsTicketNachname.AfterLoadDFMValues;\r\n    xdsTicketVorname.AfterLoadDFMValues;\r\n    xdsTicketEmail.AfterLoadDFMValues;\r\n    xdsTicketSystemInfo.AfterLoadDFMValues;\r\n    xdsTicketLoesung.AfterLoadDFMValues;\r\n    xdsTicketProtokoll.AfterLoadDFMValues;\r\n    xdsTicketZeitaufwandMinuten.AfterLoadDFMValues;\r\n    xdsTicketAbzurechnendeMinuten.AfterLoadDFMValues;\r\n    xdsTicketAbgerechneteMinuten.AfterLoadDFMValues;\r\n    xdsTicketBenachrichtigungNEU.AfterLoadDFMValues;\r\n    xdsTicketBenachrichtigungLoesung.AfterLoadDFMValues;\r\n    xdsTicketInterneBemerkung.AfterLoadDFMValues;\r\n    xdsTicketLoesungInfoSenden.AfterLoadDFMValues;\r\n    xdsTicketKontaktperson.AfterLoadDFMValues;\r\n    xdsTicketErreichbarkeitTelefon.AfterLoadDFMValues;\r\n    xdsTicketErreichbarkeitWann.AfterLoadDFMValues;\r\n    xdsTicketStatusStatus.AfterLoadDFMValues;\r\n    xdsTicketKontaktpersonEmail.AfterLoadDFMValues;\r\n    xdsTStatus.AfterLoadDFMValues;\r\n    xdsTStatusStatus.AfterLoadDFMValues;\r\n    sourceTicket.AfterLoadDFMValues;\r\n    sourceTStatus.AfterLoadDFMValues;\r\n    xdsTicketKonversation.AfterLoadDFMValues;\r\n    xdsTicketKonversationTicketID.AfterLoadDFMValues;\r\n    xdsTicketKonversationID.AfterLoadDFMValues;\r\n    xdsTicketKonversationDatumUhrzeit.AfterLoadDFMValues;\r\n    xdsTicketKonversationAntwortText.AfterLoadDFMValues;\r\n    xdsTicketKonversationNachrichtSenden.AfterLoadDFMValues;\r\n    xdsTicketKonversationNachrichtGesendet.AfterLoadDFMValues;\r\n    xdsTicketKonversationVerfasser.AfterLoadDFMValues;\r\n    xdsTicketKonversationQuellProgramm.AfterLoadDFMValues;\r\n    sourceTicketKonversation.AfterLoadDFMValues;\r\n    xdsTicketDateien.AfterLoadDFMValues;\r\n    xdsTicketDateienTicketID.AfterLoadDFMValues;\r\n    xdsTicketDateienID.AfterLoadDFMValues;\r\n    xdsTicketDateienDatumUhrzeit.AfterLoadDFMValues;\r\n    xdsTicketDateienFuerLoesung.AfterLoadDFMValues;\r\n    xdsTicketDateienDateiMime.AfterLoadDFMValues;\r\n    xdsTicketDateienDateiName.AfterLoadDFMValues;\r\n    xdsTicketDateienDateiGroesse.AfterLoadDFMValues;\r\n    xdsTicketDateienDateiInhaltText.AfterLoadDFMValues;\r\n    xdskontosaldo.AfterLoadDFMValues;\r\n    xdskontosaldoKundennummer.AfterLoadDFMValues;\r\n    xdskontosaldoZeitaufwand.AfterLoadDFMValues;\r\n    xdskontosaldoAbzurechnen.AfterLoadDFMValues;\r\n    xdskontosaldoGutschrift.AfterLoadDFMValues;\r\n    xdskontosaldoAbzug.AfterLoadDFMValues;\r\n    xdskontosaldoSaldo.AfterLoadDFMValues;\r\n    xdskontosaldoBetrag.AfterLoadDFMValues;\r\n    xdskontosaldoMinutenpreis.AfterLoadDFMValues;\r\n    xdskontosaldoSRestguthaben.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.","unit unit_ListeTickets;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Vcl.Controls, WEBLib.ExtCtrls, WEBLib.Buttons,\r\n  WEBLib.Grids, WEBLib.DBCtrls, Data.DB, WEBLib.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, Vcl.StdCtrls, WEBLib.StdCtrls, XData.Web.Client,\r\n  WEBLib.WebCtrls, strutils;\r\n\r\ntype\r\n  TListeTickets = class(TForm)\r\n    xdsTickets: TXDataWebDataSet;\r\n    Container3: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    Container1: THTMLContainer;\r\n    ResultLabel: TLabel;\r\n    btnzurueck: TButton;\r\n    xdsTicketsID: TIntegerField;\r\n    xdsTicketsErstelltAm: TDateTimeField;\r\n    xdsTicketsBetreff: TStringField;\r\n    xdsTicketsBeschreibung: TStringField;\r\n    xdsTicketsKundennummerKundennummer: TStringField;\r\n    xdsTicketsKundennummerNachname: TStringField;\r\n    xdsTicketsNachname: TStringField;\r\n    xdsTicketsVorname: TStringField;\r\n    xdsTicketsStatus: TXDataWebEntityField;\r\n    xdsTicketsStatusStatus: TStringField;\r\n    xdsTicketsPrioritaet: TXDataWebEntityField;\r\n    xdsTicketsPrioritaetPrioritaet: TIntegerField;\r\n    xdsTicketsPrioritaetPrioText: TStringField;\r\n    xdsTicketsPrioritaetPrioFarbe: TIntegerField;\r\n    xdsTicketsAbrechnungsbetrag: TFloatField;\r\n    xdsTicketsAbrechnungRechnungsnummer: TStringField;\r\n    xdsTicketsAberechnetAm: TDateTimeField;\r\n    xdsTicketsErledigtAm: TDateTimeField;\r\n    xdsTicketsEmail: TStringField;\r\n    xdsTicketsSystemInfo: TStringField;\r\n    xdsTicketsLoesung: TStringField;\r\n    xdsTicketsProtokoll: TStringField;\r\n    xdsTicketsZeitaufwandMinuten: TIntegerField;\r\n    xdsTicketsAbzurechnendeMinuten: TIntegerField;\r\n    xdsTicketsAbgerechneteMinuten: TIntegerField;\r\n    xdsTicketsBenachrichtigungNEU: TDateTimeField;\r\n    xdsTicketsBenachrichtigungLoesung: TDateTimeField;\r\n    xdsTicketsInterneBemerkung: TStringField;\r\n    xdsTicketsLoesungInfoSenden: TIntegerField;\r\n    xdsTicketsKontaktperson: TStringField;\r\n    xdsTicketsErreichbarkeitTelefon: TStringField;\r\n    xdsTicketsErreichbarkeitWann: TStringField;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure xdsTicketsAfterOpen(DataSet: TDataSet);\r\n    procedure ResultLabelClick(Sender: TObject);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n  private\r\n    { Private-Deklarationen }\r\n  public\r\n    { Public-Deklarationen }\r\n    EinzelCard:THTMLDiv;\r\n    procedure EinzelCardclick(Sender:TObject);\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  ListeTickets: TListeTickets;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_EinzelTicket;\r\n{$R *.dfm}\r\n\r\n\r\nprocedure TListeTickets.EinzelCardclick(Sender:TObject);\r\nvar\r\n  EinzelTicket:TEinzelTicket;\r\n  MyMerkerTicket:string;\r\nbegin\r\n  myMerkerTicket:=(sender as THTMLDiv).ElementID;\r\n  Container3.HTML.text:='';\r\n  EinzelTicket := TEinzelTicket.CreateNew(procedure(AForm: TObject)\r\n    begin\r\n      (AForm as TEinzelTicket).MerkerTicket:=myMerkerTicket;\r\n    end\r\n    );\r\n\r\n  EinzelTicket.ShowModal(procedure(AValue: TModalResult)\r\n    begin\r\n      xdsTickets.close;\r\n      xdsTickets.Load;\r\n    end\r\n    );\r\nend;\r\n\r\n\r\n\r\n\r\n\r\n\r\nprocedure TListeTickets.ResultLabelClick(Sender: TObject);\r\nbegin\r\n  if Pos('mehr anzeigen',resultlabel.html,0)>1 then\r\n  begin\r\n    xdstickets.Close;\r\n    xdstickets.querystring:='$expand=Kundennummer,Status&$filter=(Status  ne '+quotedstr('abgeschlossen')+') &$orderby=ID DESC';\r\n    xdstickets.Load;\r\n  end;\r\nend;\r\n\r\nprocedure TListeTickets.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  xdsTickets.Close;\r\n  self.close;\r\nend;\r\n\r\nprocedure TListeTickets.WebFormShow(Sender: TObject);\r\nbegin\r\n  xdstickets.Close;\r\n  xdstickets.querystring:='$expand=Kundennummer,Status&$filter=(Status  ne '+quotedstr('abgeschlossen')+') &$orderby=ID DESC';\r\n  xdstickets.Load;\r\nend;\r\n\r\nprocedure TListeTickets.xdsTicketsAfterOpen(DataSet: TDataSet);\r\nvar\r\n  myelement:TJSHTMLElement;\r\n  EinzelKarte:string;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Tickets offen</h5></nav>';\r\n  Container2.HTML.Text:='';\r\n  myelement:=container2.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  ResultLabel.ParentElement:=myelement;\r\n  xdsTickets.First;\r\n  if xdsTickets.RecordCount=0 then ResultLabel.HTML:='nichts gefunden';\r\n  if xdsTickets.RecordCount>0 then ResultLabel.HTML:='Ticket(s): '+inttostr(xdsTickets.RecordCount);\r\n  if xdsTickets.RecordCount>99 then ResultLabel.HTML:='mehr als 100 Tickets <I><U>mehr anzeigen</I></U>';\r\n  if xdsTickets.RecordCount>100 then ResultLabel.HTML:='Tickets: '+inttostr(xdsTickets.RecordCount)+' (max. Anzeige: 500)';\r\n\r\n\r\n  while not xdsTickets.eof do\r\n  begin\r\n\r\n    Einzelkarte:='<div class=\"card-header\"><h5>'+xdsTicketsID.asstring+' | '+formatdatetime('DD.MM.YYYY hh:mm',xdsTicketsErstelltAm.AsDateTime)+'</h5><i>'+xdsTicketsKundennummerKundennummer.AsString+' | '+xdsTicketsNachname.asstring+'</i></div>';\r\n    Einzelkarte:=Einzelkarte+'<div class=\"card-body \"><b>'+xdsTicketsBetreff.AsString+'</b><br>';\r\n    Einzelkarte:=Einzelkarte+leftstr(xdsTicketsBeschreibung.AsString,80)+'...<br>';\r\n    Einzelkarte:=Einzelkarte+'<i><b>'+xdsTicketsStatusStatus.AsString+'</b></i><br>';\r\n    Einzelkarte:=Einzelkarte+'</div>';\r\n\r\n    myelement:=Container3.ElementHandle;\r\n    EinzelCard:=THTMLDiv.Create(self);\r\n    EinzelCard.ElementID:=xdsTicketsID.asstring;\r\n    EinzelCard.HeightStyle:=ssauto;\r\n    EinzelCard.Width:=350;\r\n    EinzelCard.HTML.Text:=Einzelkarte;\r\n    EinzelCard.ElementClassName:='card m-1 border-info';\r\n    EinzelCard.OnClick:=@EinzelCardClick;\r\n    EinzelCard.ParentElement:=myelement;\r\n\r\n    xdsTickets.Next;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TListeTickets.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  ResultLabel := TLabel.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  xdsTickets := TXDataWebDataSet.Create(Self);\r\n  xdsTicketsID := TIntegerField.Create(Self);\r\n  xdsTicketsErstelltAm := TDateTimeField.Create(Self);\r\n  xdsTicketsBetreff := TStringField.Create(Self);\r\n  xdsTicketsBeschreibung := TStringField.Create(Self);\r\n  xdsTicketsKundennummerKundennummer := TStringField.Create(Self);\r\n  xdsTicketsKundennummerNachname := TStringField.Create(Self);\r\n  xdsTicketsNachname := TStringField.Create(Self);\r\n  xdsTicketsVorname := TStringField.Create(Self);\r\n  xdsTicketsStatus := TXDataWebEntityField.Create(Self);\r\n  xdsTicketsStatusStatus := TStringField.Create(Self);\r\n  xdsTicketsPrioritaet := TXDataWebEntityField.Create(Self);\r\n  xdsTicketsPrioritaetPrioritaet := TIntegerField.Create(Self);\r\n  xdsTicketsPrioritaetPrioText := TStringField.Create(Self);\r\n  xdsTicketsPrioritaetPrioFarbe := TIntegerField.Create(Self);\r\n  xdsTicketsAbrechnungsbetrag := TFloatField.Create(Self);\r\n  xdsTicketsAbrechnungRechnungsnummer := TStringField.Create(Self);\r\n  xdsTicketsAberechnetAm := TDateTimeField.Create(Self);\r\n  xdsTicketsErledigtAm := TDateTimeField.Create(Self);\r\n  xdsTicketsEmail := TStringField.Create(Self);\r\n  xdsTicketsSystemInfo := TStringField.Create(Self);\r\n  xdsTicketsLoesung := TStringField.Create(Self);\r\n  xdsTicketsProtokoll := TStringField.Create(Self);\r\n  xdsTicketsZeitaufwandMinuten := TIntegerField.Create(Self);\r\n  xdsTicketsAbzurechnendeMinuten := TIntegerField.Create(Self);\r\n  xdsTicketsAbgerechneteMinuten := TIntegerField.Create(Self);\r\n  xdsTicketsBenachrichtigungNEU := TDateTimeField.Create(Self);\r\n  xdsTicketsBenachrichtigungLoesung := TDateTimeField.Create(Self);\r\n  xdsTicketsInterneBemerkung := TStringField.Create(Self);\r\n  xdsTicketsLoesungInfoSenden := TIntegerField.Create(Self);\r\n  xdsTicketsKontaktperson := TStringField.Create(Self);\r\n  xdsTicketsErreichbarkeitTelefon := TStringField.Create(Self);\r\n  xdsTicketsErreichbarkeitWann := TStringField.Create(Self);\r\n\r\n  ResultLabel.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  xdsTickets.BeforeLoadDFMValues;\r\n  xdsTicketsID.BeforeLoadDFMValues;\r\n  xdsTicketsErstelltAm.BeforeLoadDFMValues;\r\n  xdsTicketsBetreff.BeforeLoadDFMValues;\r\n  xdsTicketsBeschreibung.BeforeLoadDFMValues;\r\n  xdsTicketsKundennummerKundennummer.BeforeLoadDFMValues;\r\n  xdsTicketsKundennummerNachname.BeforeLoadDFMValues;\r\n  xdsTicketsNachname.BeforeLoadDFMValues;\r\n  xdsTicketsVorname.BeforeLoadDFMValues;\r\n  xdsTicketsStatus.BeforeLoadDFMValues;\r\n  xdsTicketsStatusStatus.BeforeLoadDFMValues;\r\n  xdsTicketsPrioritaet.BeforeLoadDFMValues;\r\n  xdsTicketsPrioritaetPrioritaet.BeforeLoadDFMValues;\r\n  xdsTicketsPrioritaetPrioText.BeforeLoadDFMValues;\r\n  xdsTicketsPrioritaetPrioFarbe.BeforeLoadDFMValues;\r\n  xdsTicketsAbrechnungsbetrag.BeforeLoadDFMValues;\r\n  xdsTicketsAbrechnungRechnungsnummer.BeforeLoadDFMValues;\r\n  xdsTicketsAberechnetAm.BeforeLoadDFMValues;\r\n  xdsTicketsErledigtAm.BeforeLoadDFMValues;\r\n  xdsTicketsEmail.BeforeLoadDFMValues;\r\n  xdsTicketsSystemInfo.BeforeLoadDFMValues;\r\n  xdsTicketsLoesung.BeforeLoadDFMValues;\r\n  xdsTicketsProtokoll.BeforeLoadDFMValues;\r\n  xdsTicketsZeitaufwandMinuten.BeforeLoadDFMValues;\r\n  xdsTicketsAbzurechnendeMinuten.BeforeLoadDFMValues;\r\n  xdsTicketsAbgerechneteMinuten.BeforeLoadDFMValues;\r\n  xdsTicketsBenachrichtigungNEU.BeforeLoadDFMValues;\r\n  xdsTicketsBenachrichtigungLoesung.BeforeLoadDFMValues;\r\n  xdsTicketsInterneBemerkung.BeforeLoadDFMValues;\r\n  xdsTicketsLoesungInfoSenden.BeforeLoadDFMValues;\r\n  xdsTicketsKontaktperson.BeforeLoadDFMValues;\r\n  xdsTicketsErreichbarkeitTelefon.BeforeLoadDFMValues;\r\n  xdsTicketsErreichbarkeitWann.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'ListeTickets';\r\n    Width := 224;\r\n    Height := 319;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    Font.Charset := DEFAULT_CHARSET;\r\n    Font.Color := clWindowText;\r\n    Font.Height := -11;\r\n    Font.Name := 'Tahoma';\r\n    Font.Style := [];\r\n    ParentFont := False;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    ResultLabel.SetParentComponent(Self);\r\n    ResultLabel.Name := 'ResultLabel';\r\n    ResultLabel.Left := 8;\r\n    ResultLabel.Top := 204;\r\n    ResultLabel.Width := 55;\r\n    ResultLabel.Height := 13;\r\n    ResultLabel.Caption := 'ResultLabel';\r\n    ResultLabel.ElementClassName := 'h6 m-2';\r\n    ResultLabel.ElementFont := efCSS;\r\n    ResultLabel.ElementPosition := epIgnore;\r\n    ResultLabel.HeightStyle := ssAuto;\r\n    ResultLabel.HeightPercent := 100.000000000000000000;\r\n    ResultLabel.WidthStyle := ssAuto;\r\n    ResultLabel.WidthPercent := 100.000000000000000000;\r\n    SetEvent(ResultLabel, Self, 'OnClick', 'ResultLabelClick');\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 2;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 3;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 67;\r\n    btnzurueck.Top := 141;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    xdsTickets.SetParentComponent(Self);\r\n    xdsTickets.Name := 'xdsTickets';\r\n    xdsTickets.AfterOpen := xdsTicketsAfterOpen;\r\n    xdsTickets.EntitySetName := 'ITS_TicketMain';\r\n    xdsTickets.Connection := DM2.XDataWebConnection1;\r\n    xdsTickets.SubpropsDepth := 1;\r\n    xdsTickets.QueryString := '$expand=Kundennummer,Status&$filter=(Status  ne '#39'abgeschlossen'#39')';\r\n    xdsTickets.QueryTop := 100;\r\n    xdsTickets.Left := 20;\r\n    xdsTickets.Top := 142;\r\n    xdsTicketsID.SetParentComponent(xdsTickets);\r\n    xdsTicketsID.Name := 'xdsTicketsID';\r\n    xdsTicketsID.FieldName := 'ID';\r\n    xdsTicketsID.Required := True;\r\n    xdsTicketsErstelltAm.SetParentComponent(xdsTickets);\r\n    xdsTicketsErstelltAm.Name := 'xdsTicketsErstelltAm';\r\n    xdsTicketsErstelltAm.FieldName := 'ErstelltAm';\r\n    xdsTicketsBetreff.SetParentComponent(xdsTickets);\r\n    xdsTicketsBetreff.Name := 'xdsTicketsBetreff';\r\n    xdsTicketsBetreff.FieldName := 'Betreff';\r\n    xdsTicketsBetreff.Size := 100;\r\n    xdsTicketsBeschreibung.SetParentComponent(xdsTickets);\r\n    xdsTicketsBeschreibung.Name := 'xdsTicketsBeschreibung';\r\n    xdsTicketsBeschreibung.FieldName := 'Beschreibung';\r\n    xdsTicketsBeschreibung.Size := 255;\r\n    xdsTicketsKundennummerKundennummer.SetParentComponent(xdsTickets);\r\n    xdsTicketsKundennummerKundennummer.Name := 'xdsTicketsKundennummerKundennummer';\r\n    xdsTicketsKundennummerKundennummer.FieldName := 'Kundennummer.Kundennummer';\r\n    xdsTicketsKundennummerKundennummer.Size := 13;\r\n    xdsTicketsKundennummerNachname.SetParentComponent(xdsTickets);\r\n    xdsTicketsKundennummerNachname.Name := 'xdsTicketsKundennummerNachname';\r\n    xdsTicketsKundennummerNachname.FieldName := 'Kundennummer.Nachname';\r\n    xdsTicketsKundennummerNachname.Size := 40;\r\n    xdsTicketsNachname.SetParentComponent(xdsTickets);\r\n    xdsTicketsNachname.Name := 'xdsTicketsNachname';\r\n    xdsTicketsNachname.FieldName := 'Nachname';\r\n    xdsTicketsNachname.Size := 40;\r\n    xdsTicketsVorname.SetParentComponent(xdsTickets);\r\n    xdsTicketsVorname.Name := 'xdsTicketsVorname';\r\n    xdsTicketsVorname.FieldName := 'Vorname';\r\n    xdsTicketsVorname.Size := 40;\r\n    xdsTicketsStatus.SetParentComponent(xdsTickets);\r\n    xdsTicketsStatus.Name := 'xdsTicketsStatus';\r\n    xdsTicketsStatus.FieldName := 'Status';\r\n    xdsTicketsStatusStatus.SetParentComponent(xdsTickets);\r\n    xdsTicketsStatusStatus.Name := 'xdsTicketsStatusStatus';\r\n    xdsTicketsStatusStatus.FieldName := 'Status.Status';\r\n    xdsTicketsStatusStatus.Size := 25;\r\n    xdsTicketsPrioritaet.SetParentComponent(xdsTickets);\r\n    xdsTicketsPrioritaet.Name := 'xdsTicketsPrioritaet';\r\n    xdsTicketsPrioritaet.FieldName := 'Prioritaet';\r\n    xdsTicketsPrioritaetPrioritaet.SetParentComponent(xdsTickets);\r\n    xdsTicketsPrioritaetPrioritaet.Name := 'xdsTicketsPrioritaetPrioritaet';\r\n    xdsTicketsPrioritaetPrioritaet.FieldName := 'Prioritaet.Prioritaet';\r\n    xdsTicketsPrioritaetPrioText.SetParentComponent(xdsTickets);\r\n    xdsTicketsPrioritaetPrioText.Name := 'xdsTicketsPrioritaetPrioText';\r\n    xdsTicketsPrioritaetPrioText.FieldName := 'Prioritaet.PrioText';\r\n    xdsTicketsPrioritaetPrioFarbe.SetParentComponent(xdsTickets);\r\n    xdsTicketsPrioritaetPrioFarbe.Name := 'xdsTicketsPrioritaetPrioFarbe';\r\n    xdsTicketsPrioritaetPrioFarbe.FieldName := 'Prioritaet.PrioFarbe';\r\n    xdsTicketsAbrechnungsbetrag.SetParentComponent(xdsTickets);\r\n    xdsTicketsAbrechnungsbetrag.Name := 'xdsTicketsAbrechnungsbetrag';\r\n    xdsTicketsAbrechnungsbetrag.FieldName := 'Abrechnungsbetrag';\r\n    xdsTicketsAbrechnungRechnungsnummer.SetParentComponent(xdsTickets);\r\n    xdsTicketsAbrechnungRechnungsnummer.Name := 'xdsTicketsAbrechnungRechnungsnummer';\r\n    xdsTicketsAbrechnungRechnungsnummer.FieldName := 'AbrechnungRechnungsnummer';\r\n    xdsTicketsAbrechnungRechnungsnummer.Size := 10;\r\n    xdsTicketsAberechnetAm.SetParentComponent(xdsTickets);\r\n    xdsTicketsAberechnetAm.Name := 'xdsTicketsAberechnetAm';\r\n    xdsTicketsAberechnetAm.FieldName := 'AberechnetAm';\r\n    xdsTicketsErledigtAm.SetParentComponent(xdsTickets);\r\n    xdsTicketsErledigtAm.Name := 'xdsTicketsErledigtAm';\r\n    xdsTicketsErledigtAm.FieldName := 'ErledigtAm';\r\n    xdsTicketsEmail.SetParentComponent(xdsTickets);\r\n    xdsTicketsEmail.Name := 'xdsTicketsEmail';\r\n    xdsTicketsEmail.FieldName := 'Email';\r\n    xdsTicketsEmail.Size := 50;\r\n    xdsTicketsSystemInfo.SetParentComponent(xdsTickets);\r\n    xdsTicketsSystemInfo.Name := 'xdsTicketsSystemInfo';\r\n    xdsTicketsSystemInfo.FieldName := 'SystemInfo';\r\n    xdsTicketsSystemInfo.Size := 255;\r\n    xdsTicketsLoesung.SetParentComponent(xdsTickets);\r\n    xdsTicketsLoesung.Name := 'xdsTicketsLoesung';\r\n    xdsTicketsLoesung.FieldName := 'Loesung';\r\n    xdsTicketsLoesung.Size := 255;\r\n    xdsTicketsProtokoll.SetParentComponent(xdsTickets);\r\n    xdsTicketsProtokoll.Name := 'xdsTicketsProtokoll';\r\n    xdsTicketsProtokoll.FieldName := 'Protokoll';\r\n    xdsTicketsProtokoll.Size := 255;\r\n    xdsTicketsZeitaufwandMinuten.SetParentComponent(xdsTickets);\r\n    xdsTicketsZeitaufwandMinuten.Name := 'xdsTicketsZeitaufwandMinuten';\r\n    xdsTicketsZeitaufwandMinuten.FieldName := 'ZeitaufwandMinuten';\r\n    xdsTicketsAbzurechnendeMinuten.SetParentComponent(xdsTickets);\r\n    xdsTicketsAbzurechnendeMinuten.Name := 'xdsTicketsAbzurechnendeMinuten';\r\n    xdsTicketsAbzurechnendeMinuten.FieldName := 'AbzurechnendeMinuten';\r\n    xdsTicketsAbgerechneteMinuten.SetParentComponent(xdsTickets);\r\n    xdsTicketsAbgerechneteMinuten.Name := 'xdsTicketsAbgerechneteMinuten';\r\n    xdsTicketsAbgerechneteMinuten.FieldName := 'AbgerechneteMinuten';\r\n    xdsTicketsBenachrichtigungNEU.SetParentComponent(xdsTickets);\r\n    xdsTicketsBenachrichtigungNEU.Name := 'xdsTicketsBenachrichtigungNEU';\r\n    xdsTicketsBenachrichtigungNEU.FieldName := 'BenachrichtigungNEU';\r\n    xdsTicketsBenachrichtigungLoesung.SetParentComponent(xdsTickets);\r\n    xdsTicketsBenachrichtigungLoesung.Name := 'xdsTicketsBenachrichtigungLoesung';\r\n    xdsTicketsBenachrichtigungLoesung.FieldName := 'BenachrichtigungLoesung';\r\n    xdsTicketsInterneBemerkung.SetParentComponent(xdsTickets);\r\n    xdsTicketsInterneBemerkung.Name := 'xdsTicketsInterneBemerkung';\r\n    xdsTicketsInterneBemerkung.FieldName := 'InterneBemerkung';\r\n    xdsTicketsInterneBemerkung.Size := 255;\r\n    xdsTicketsLoesungInfoSenden.SetParentComponent(xdsTickets);\r\n    xdsTicketsLoesungInfoSenden.Name := 'xdsTicketsLoesungInfoSenden';\r\n    xdsTicketsLoesungInfoSenden.FieldName := 'LoesungInfoSenden';\r\n    xdsTicketsKontaktperson.SetParentComponent(xdsTickets);\r\n    xdsTicketsKontaktperson.Name := 'xdsTicketsKontaktperson';\r\n    xdsTicketsKontaktperson.FieldName := 'Kontaktperson';\r\n    xdsTicketsKontaktperson.Size := 100;\r\n    xdsTicketsErreichbarkeitTelefon.SetParentComponent(xdsTickets);\r\n    xdsTicketsErreichbarkeitTelefon.Name := 'xdsTicketsErreichbarkeitTelefon';\r\n    xdsTicketsErreichbarkeitTelefon.FieldName := 'ErreichbarkeitTelefon';\r\n    xdsTicketsErreichbarkeitTelefon.Size := 100;\r\n    xdsTicketsErreichbarkeitWann.SetParentComponent(xdsTickets);\r\n    xdsTicketsErreichbarkeitWann.Name := 'xdsTicketsErreichbarkeitWann';\r\n    xdsTicketsErreichbarkeitWann.FieldName := 'ErreichbarkeitWann';\r\n    xdsTicketsErreichbarkeitWann.Size := 100;\r\n  finally\r\n    ResultLabel.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    xdsTickets.AfterLoadDFMValues;\r\n    xdsTicketsID.AfterLoadDFMValues;\r\n    xdsTicketsErstelltAm.AfterLoadDFMValues;\r\n    xdsTicketsBetreff.AfterLoadDFMValues;\r\n    xdsTicketsBeschreibung.AfterLoadDFMValues;\r\n    xdsTicketsKundennummerKundennummer.AfterLoadDFMValues;\r\n    xdsTicketsKundennummerNachname.AfterLoadDFMValues;\r\n    xdsTicketsNachname.AfterLoadDFMValues;\r\n    xdsTicketsVorname.AfterLoadDFMValues;\r\n    xdsTicketsStatus.AfterLoadDFMValues;\r\n    xdsTicketsStatusStatus.AfterLoadDFMValues;\r\n    xdsTicketsPrioritaet.AfterLoadDFMValues;\r\n    xdsTicketsPrioritaetPrioritaet.AfterLoadDFMValues;\r\n    xdsTicketsPrioritaetPrioText.AfterLoadDFMValues;\r\n    xdsTicketsPrioritaetPrioFarbe.AfterLoadDFMValues;\r\n    xdsTicketsAbrechnungsbetrag.AfterLoadDFMValues;\r\n    xdsTicketsAbrechnungRechnungsnummer.AfterLoadDFMValues;\r\n    xdsTicketsAberechnetAm.AfterLoadDFMValues;\r\n    xdsTicketsErledigtAm.AfterLoadDFMValues;\r\n    xdsTicketsEmail.AfterLoadDFMValues;\r\n    xdsTicketsSystemInfo.AfterLoadDFMValues;\r\n    xdsTicketsLoesung.AfterLoadDFMValues;\r\n    xdsTicketsProtokoll.AfterLoadDFMValues;\r\n    xdsTicketsZeitaufwandMinuten.AfterLoadDFMValues;\r\n    xdsTicketsAbzurechnendeMinuten.AfterLoadDFMValues;\r\n    xdsTicketsAbgerechneteMinuten.AfterLoadDFMValues;\r\n    xdsTicketsBenachrichtigungNEU.AfterLoadDFMValues;\r\n    xdsTicketsBenachrichtigungLoesung.AfterLoadDFMValues;\r\n    xdsTicketsInterneBemerkung.AfterLoadDFMValues;\r\n    xdsTicketsLoesungInfoSenden.AfterLoadDFMValues;\r\n    xdsTicketsKontaktperson.AfterLoadDFMValues;\r\n    xdsTicketsErreichbarkeitTelefon.AfterLoadDFMValues;\r\n    xdsTicketsErreichbarkeitWann.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.","unit unit_Logbuch;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Data.DB, WEBLib.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, XData.Web.Connection, Vcl.Controls, Vcl.StdCtrls,\r\n  WEBLib.StdCtrls, WEBLib.ExtCtrls, Vcl.Grids, WEBLib.DBCtrls, VCL.TMSFNCTypes,\r\n  VCL.TMSFNCUtils, VCL.TMSFNCGraphics, VCL.TMSFNCGraphicsTypes, strutils,\r\n  VCL.TMSFNCCustomControl, VCL.TMSFNCTableView, WEBLib.Grids, WEBLib.Buttons, DB;\r\n\r\ntype\r\n  TfrmLogbuch = class(TForm)\r\n    DataSet: TXDataWebDataSet;\r\n    Source: TDataSource;\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    Container3: THTMLContainer;\r\n    TC: TTableControl;\r\n    btnzurueck: TButton;\r\n    edtSuchbegriff: TEdit;\r\n    DataSetID: TIntegerField;\r\n    DataSetDatumUhrzeit: TDateTimeField;\r\n    DataSetApplicationCode: TStringField;\r\n    DataSetApplicationName: TStringField;\r\n    DataSetVersionsdatum: TDateTimeField;\r\n    DataSetInstalCode: TStringField;\r\n    DataSetFreischaltungVON: TDateTimeField;\r\n    DataSetFreischaltungBIS: TDateTimeField;\r\n    DataSetAbsenderzeile: TStringField;\r\n    DataSetPCCode: TStringField;\r\n    DataSetVertriebspartner: TIntegerField;\r\n    DataSetLetzterStart: TDateTimeField;\r\n    DataSetAnzahlStart: TIntegerField;\r\n    DataSetDatumUhrzeitUser: TDateTimeField;\r\n    DataSetWindowsUserName: TStringField;\r\n    DataSetCadiaKundennummer: TStringField;\r\n    DataSetPCName: TStringField;\r\n    DataSetAvIsTrial: TBooleanField;\r\n    DataSetAvAuthorized: TBooleanField;\r\n    DataSetAvRegistered: TBooleanField;\r\n    DataSetAvExpired: TBooleanField;\r\n    DataSetSysNachname: TStringField;\r\n    DataSetSysVorname: TStringField;\r\n    DataSetNetzwerk: TBooleanField;\r\n    DataSetDBKEY: TStringField;\r\n    DataSetVerarbeitung: TStringField;\r\n    DataSetCadiaModSumme: TFloatField;\r\n    DataSetASPVersion: TStringField;\r\n    DataSetCSPName: TStringField;\r\n    DataSetCSPVendor: TStringField;\r\n    DataSetCPUName: TStringField;\r\n    DataSetCPUID: TStringField;\r\n    DataSetBaseBoardSerial: TStringField;\r\n    DataSetHDDVolLetter: TStringField;\r\n    DataSetHDDVolSerial: TStringField;\r\n    DataSetSQLDB: TStringField;\r\n    DataSetIPAdresse: TStringField;\r\n    DataSetInstanzID: TStringField;\r\n    DataSetProgrammpfad: TStringField;\r\n    DataSetLocalIP: TStringField;\r\n    DataSetMACAddress: TStringField;\r\n    DataSetVersionsnummer: TStringField;\r\n    DataSetDatenpfad: TStringField;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure DataSetAfterOpen(DataSet: TDataSet);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n\r\n    public\r\n\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  frmLogbuch: TfrmLogbuch;\r\n\r\nimplementation\r\n  uses unit1, unit2;\r\n{$R *.dfm}\r\n\r\n\r\nprocedure TfrmLogbuch.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  dataset.close;\r\n  self.Close;\r\nend;\r\n\r\n\r\nprocedure TfrmLogbuch.DataSetAfterOpen(DataSet: TDataSet);\r\nvar\r\n  i:integer;\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  myelement:=container3.ElementHandle;\r\n  tc.ParentElement:=myelement;\r\n  i:=0;\r\n  TC.visible:=true;\r\n  TC.ColCount:=3;\r\n  tc.RowCount:=dataset.RecordCount+1;\r\n  tc.Cells[0,i]:='<b>Datum';\r\n  tc.Cells[1,i]:='<b>Programm';\r\n  tc.Cells[2,i]:='<b>Infos';\r\n  dataset.First;\r\n\r\n  while not dataset.eof do\r\n  begin\r\n    inc(i);\r\n    TC.Cells[0,i]:=DataSetDatumUhrzeit.AsString;\r\n    TC.Cells[1,i]:=DataSetApplicationName.AsString;\r\n    TC.Cells[2,i]:=DataSetCadiaKundennummer.AsString+' | '+DataSetPCName.asstring+' | '+DataSetWindowsUserName.asstring+'<br>'+DataSetAbsenderzeile.AsString+'<br>'+DataSetVersionsdatum.AsString+' | '+DataSetVersionsnummer.asstring;\r\n    dataset.Next;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TfrmLogbuch.WebFormShow(Sender: TObject);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Logbuch</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  container2.ParentElement:=myelement;\r\n  Container3.ParentElement:=myelement;\r\n  myelement:=container2.ElementHandle;\r\n  dataset.Load;\r\nend;\r\n\r\nprocedure TfrmLogbuch.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  TC := TTableControl.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  edtSuchbegriff := TEdit.Create(Self);\r\n  DataSet := TXDataWebDataSet.Create(Self);\r\n  DataSetID := TIntegerField.Create(Self);\r\n  DataSetDatumUhrzeit := TDateTimeField.Create(Self);\r\n  DataSetApplicationCode := TStringField.Create(Self);\r\n  DataSetApplicationName := TStringField.Create(Self);\r\n  DataSetVersionsdatum := TDateTimeField.Create(Self);\r\n  DataSetInstalCode := TStringField.Create(Self);\r\n  DataSetFreischaltungVON := TDateTimeField.Create(Self);\r\n  DataSetFreischaltungBIS := TDateTimeField.Create(Self);\r\n  DataSetAbsenderzeile := TStringField.Create(Self);\r\n  DataSetPCCode := TStringField.Create(Self);\r\n  DataSetVertriebspartner := TIntegerField.Create(Self);\r\n  DataSetLetzterStart := TDateTimeField.Create(Self);\r\n  DataSetAnzahlStart := TIntegerField.Create(Self);\r\n  DataSetDatumUhrzeitUser := TDateTimeField.Create(Self);\r\n  DataSetWindowsUserName := TStringField.Create(Self);\r\n  DataSetCadiaKundennummer := TStringField.Create(Self);\r\n  DataSetPCName := TStringField.Create(Self);\r\n  DataSetAvIsTrial := TBooleanField.Create(Self);\r\n  DataSetAvAuthorized := TBooleanField.Create(Self);\r\n  DataSetAvRegistered := TBooleanField.Create(Self);\r\n  DataSetAvExpired := TBooleanField.Create(Self);\r\n  DataSetSysNachname := TStringField.Create(Self);\r\n  DataSetSysVorname := TStringField.Create(Self);\r\n  DataSetNetzwerk := TBooleanField.Create(Self);\r\n  DataSetDBKEY := TStringField.Create(Self);\r\n  DataSetVerarbeitung := TStringField.Create(Self);\r\n  DataSetCadiaModSumme := TFloatField.Create(Self);\r\n  DataSetASPVersion := TStringField.Create(Self);\r\n  DataSetCSPName := TStringField.Create(Self);\r\n  DataSetCSPVendor := TStringField.Create(Self);\r\n  DataSetCPUName := TStringField.Create(Self);\r\n  DataSetCPUID := TStringField.Create(Self);\r\n  DataSetBaseBoardSerial := TStringField.Create(Self);\r\n  DataSetHDDVolLetter := TStringField.Create(Self);\r\n  DataSetHDDVolSerial := TStringField.Create(Self);\r\n  DataSetSQLDB := TStringField.Create(Self);\r\n  DataSetIPAdresse := TStringField.Create(Self);\r\n  DataSetInstanzID := TStringField.Create(Self);\r\n  DataSetProgrammpfad := TStringField.Create(Self);\r\n  DataSetLocalIP := TStringField.Create(Self);\r\n  DataSetMACAddress := TStringField.Create(Self);\r\n  DataSetVersionsnummer := TStringField.Create(Self);\r\n  DataSetDatenpfad := TStringField.Create(Self);\r\n  Source := TDataSource.Create(Self);\r\n\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  TC.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  edtSuchbegriff.BeforeLoadDFMValues;\r\n  DataSet.BeforeLoadDFMValues;\r\n  DataSetID.BeforeLoadDFMValues;\r\n  DataSetDatumUhrzeit.BeforeLoadDFMValues;\r\n  DataSetApplicationCode.BeforeLoadDFMValues;\r\n  DataSetApplicationName.BeforeLoadDFMValues;\r\n  DataSetVersionsdatum.BeforeLoadDFMValues;\r\n  DataSetInstalCode.BeforeLoadDFMValues;\r\n  DataSetFreischaltungVON.BeforeLoadDFMValues;\r\n  DataSetFreischaltungBIS.BeforeLoadDFMValues;\r\n  DataSetAbsenderzeile.BeforeLoadDFMValues;\r\n  DataSetPCCode.BeforeLoadDFMValues;\r\n  DataSetVertriebspartner.BeforeLoadDFMValues;\r\n  DataSetLetzterStart.BeforeLoadDFMValues;\r\n  DataSetAnzahlStart.BeforeLoadDFMValues;\r\n  DataSetDatumUhrzeitUser.BeforeLoadDFMValues;\r\n  DataSetWindowsUserName.BeforeLoadDFMValues;\r\n  DataSetCadiaKundennummer.BeforeLoadDFMValues;\r\n  DataSetPCName.BeforeLoadDFMValues;\r\n  DataSetAvIsTrial.BeforeLoadDFMValues;\r\n  DataSetAvAuthorized.BeforeLoadDFMValues;\r\n  DataSetAvRegistered.BeforeLoadDFMValues;\r\n  DataSetAvExpired.BeforeLoadDFMValues;\r\n  DataSetSysNachname.BeforeLoadDFMValues;\r\n  DataSetSysVorname.BeforeLoadDFMValues;\r\n  DataSetNetzwerk.BeforeLoadDFMValues;\r\n  DataSetDBKEY.BeforeLoadDFMValues;\r\n  DataSetVerarbeitung.BeforeLoadDFMValues;\r\n  DataSetCadiaModSumme.BeforeLoadDFMValues;\r\n  DataSetASPVersion.BeforeLoadDFMValues;\r\n  DataSetCSPName.BeforeLoadDFMValues;\r\n  DataSetCSPVendor.BeforeLoadDFMValues;\r\n  DataSetCPUName.BeforeLoadDFMValues;\r\n  DataSetCPUID.BeforeLoadDFMValues;\r\n  DataSetBaseBoardSerial.BeforeLoadDFMValues;\r\n  DataSetHDDVolLetter.BeforeLoadDFMValues;\r\n  DataSetHDDVolSerial.BeforeLoadDFMValues;\r\n  DataSetSQLDB.BeforeLoadDFMValues;\r\n  DataSetIPAdresse.BeforeLoadDFMValues;\r\n  DataSetInstanzID.BeforeLoadDFMValues;\r\n  DataSetProgrammpfad.BeforeLoadDFMValues;\r\n  DataSetLocalIP.BeforeLoadDFMValues;\r\n  DataSetMACAddress.BeforeLoadDFMValues;\r\n  DataSetVersionsnummer.BeforeLoadDFMValues;\r\n  DataSetDatenpfad.BeforeLoadDFMValues;\r\n  Source.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'frmLogbuch';\r\n    Width := 223;\r\n    Height := 376;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1 border border-info';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 1;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 2;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    TC.SetParentComponent(Self);\r\n    TC.Name := 'TC';\r\n    TC.Left := 0;\r\n    TC.Top := 141;\r\n    TC.Width := 169;\r\n    TC.Height := 79;\r\n    TC.ElementClassName := 'table table-hover table-bordered table-striped';\r\n    TC.HeightStyle := ssAuto;\r\n    TC.WidthStyle := ssPercent;\r\n    TC.BorderColor := clSilver;\r\n    TC.ChildOrder := 3;\r\n    TC.ColHeader := False;\r\n    TC.ElementFont := efCSS;\r\n    TC.ElementHeaderClassName := 'table-info';\r\n    TC.ElementPosition := epIgnore;\r\n    TC.ElementTableClassName := 'table table-hover table-bordered table-striped';\r\n    TC.WordWrap := True;\r\n    TC.ColCount := 1;\r\n    TC.RowCount := 5;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 0;\r\n    btnzurueck.Top := 226;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    edtSuchbegriff.SetParentComponent(Self);\r\n    edtSuchbegriff.Name := 'edtSuchbegriff';\r\n    edtSuchbegriff.Left := 8;\r\n    edtSuchbegriff.Top := 296;\r\n    edtSuchbegriff.Width := 150;\r\n    edtSuchbegriff.Height := 22;\r\n    edtSuchbegriff.ChildOrder := 6;\r\n    edtSuchbegriff.ElementClassName := 'form-control input-sm m-1';\r\n    edtSuchbegriff.ElementFont := efCSS;\r\n    edtSuchbegriff.ElementPosition := epIgnore;\r\n    edtSuchbegriff.HeightStyle := ssAuto;\r\n    edtSuchbegriff.HeightPercent := 100.000000000000000000;\r\n    edtSuchbegriff.ShowHint := True;\r\n    edtSuchbegriff.TextHint := 'Suchbegriff eingeben';\r\n    edtSuchbegriff.WidthPercent := 60.000000000000000000;\r\n    DataSet.SetParentComponent(Self);\r\n    DataSet.Name := 'DataSet';\r\n    DataSet.AfterOpen := DataSetAfterOpen;\r\n    DataSet.EntitySetName := 'Logbuch';\r\n    DataSet.Connection := DM2.XDataWebConnection1;\r\n    DataSet.QueryString := '$orderby=ID DESC';\r\n    DataSet.QueryTop := 100;\r\n    DataSet.Left := 8;\r\n    DataSet.Top := 56;\r\n    DataSetID.SetParentComponent(DataSet);\r\n    DataSetID.Name := 'DataSetID';\r\n    DataSetID.FieldName := 'ID';\r\n    DataSetID.Required := True;\r\n    DataSetDatumUhrzeit.SetParentComponent(DataSet);\r\n    DataSetDatumUhrzeit.Name := 'DataSetDatumUhrzeit';\r\n    DataSetDatumUhrzeit.FieldName := 'DatumUhrzeit';\r\n    DataSetApplicationCode.SetParentComponent(DataSet);\r\n    DataSetApplicationCode.Name := 'DataSetApplicationCode';\r\n    DataSetApplicationCode.FieldName := 'ApplicationCode';\r\n    DataSetApplicationCode.Size := 25;\r\n    DataSetApplicationName.SetParentComponent(DataSet);\r\n    DataSetApplicationName.Name := 'DataSetApplicationName';\r\n    DataSetApplicationName.FieldName := 'ApplicationName';\r\n    DataSetApplicationName.Size := 50;\r\n    DataSetVersionsdatum.SetParentComponent(DataSet);\r\n    DataSetVersionsdatum.Name := 'DataSetVersionsdatum';\r\n    DataSetVersionsdatum.FieldName := 'Versionsdatum';\r\n    DataSetInstalCode.SetParentComponent(DataSet);\r\n    DataSetInstalCode.Name := 'DataSetInstalCode';\r\n    DataSetInstalCode.FieldName := 'InstalCode';\r\n    DataSetInstalCode.Size := 25;\r\n    DataSetFreischaltungVON.SetParentComponent(DataSet);\r\n    DataSetFreischaltungVON.Name := 'DataSetFreischaltungVON';\r\n    DataSetFreischaltungVON.FieldName := 'FreischaltungVON';\r\n    DataSetFreischaltungBIS.SetParentComponent(DataSet);\r\n    DataSetFreischaltungBIS.Name := 'DataSetFreischaltungBIS';\r\n    DataSetFreischaltungBIS.FieldName := 'FreischaltungBIS';\r\n    DataSetAbsenderzeile.SetParentComponent(DataSet);\r\n    DataSetAbsenderzeile.Name := 'DataSetAbsenderzeile';\r\n    DataSetAbsenderzeile.FieldName := 'Absenderzeile';\r\n    DataSetAbsenderzeile.Size := 100;\r\n    DataSetPCCode.SetParentComponent(DataSet);\r\n    DataSetPCCode.Name := 'DataSetPCCode';\r\n    DataSetPCCode.FieldName := 'PCCode';\r\n    DataSetPCCode.Size := 25;\r\n    DataSetVertriebspartner.SetParentComponent(DataSet);\r\n    DataSetVertriebspartner.Name := 'DataSetVertriebspartner';\r\n    DataSetVertriebspartner.FieldName := 'Vertriebspartner';\r\n    DataSetLetzterStart.SetParentComponent(DataSet);\r\n    DataSetLetzterStart.Name := 'DataSetLetzterStart';\r\n    DataSetLetzterStart.FieldName := 'LetzterStart';\r\n    DataSetAnzahlStart.SetParentComponent(DataSet);\r\n    DataSetAnzahlStart.Name := 'DataSetAnzahlStart';\r\n    DataSetAnzahlStart.FieldName := 'AnzahlStart';\r\n    DataSetDatumUhrzeitUser.SetParentComponent(DataSet);\r\n    DataSetDatumUhrzeitUser.Name := 'DataSetDatumUhrzeitUser';\r\n    DataSetDatumUhrzeitUser.FieldName := 'DatumUhrzeitUser';\r\n    DataSetWindowsUserName.SetParentComponent(DataSet);\r\n    DataSetWindowsUserName.Name := 'DataSetWindowsUserName';\r\n    DataSetWindowsUserName.FieldName := 'WindowsUserName';\r\n    DataSetWindowsUserName.Size := 100;\r\n    DataSetCadiaKundennummer.SetParentComponent(DataSet);\r\n    DataSetCadiaKundennummer.Name := 'DataSetCadiaKundennummer';\r\n    DataSetCadiaKundennummer.FieldName := 'CadiaKundennummer';\r\n    DataSetCadiaKundennummer.Size := 13;\r\n    DataSetPCName.SetParentComponent(DataSet);\r\n    DataSetPCName.Name := 'DataSetPCName';\r\n    DataSetPCName.FieldName := 'PCName';\r\n    DataSetPCName.Size := 50;\r\n    DataSetAvIsTrial.SetParentComponent(DataSet);\r\n    DataSetAvIsTrial.Name := 'DataSetAvIsTrial';\r\n    DataSetAvIsTrial.FieldName := 'AvIsTrial';\r\n    DataSetAvAuthorized.SetParentComponent(DataSet);\r\n    DataSetAvAuthorized.Name := 'DataSetAvAuthorized';\r\n    DataSetAvAuthorized.FieldName := 'AvAuthorized';\r\n    DataSetAvRegistered.SetParentComponent(DataSet);\r\n    DataSetAvRegistered.Name := 'DataSetAvRegistered';\r\n    DataSetAvRegistered.FieldName := 'AvRegistered';\r\n    DataSetAvExpired.SetParentComponent(DataSet);\r\n    DataSetAvExpired.Name := 'DataSetAvExpired';\r\n    DataSetAvExpired.FieldName := 'AvExpired';\r\n    DataSetSysNachname.SetParentComponent(DataSet);\r\n    DataSetSysNachname.Name := 'DataSetSysNachname';\r\n    DataSetSysNachname.FieldName := 'SysNachname';\r\n    DataSetSysNachname.Size := 40;\r\n    DataSetSysVorname.SetParentComponent(DataSet);\r\n    DataSetSysVorname.Name := 'DataSetSysVorname';\r\n    DataSetSysVorname.FieldName := 'SysVorname';\r\n    DataSetSysVorname.Size := 40;\r\n    DataSetNetzwerk.SetParentComponent(DataSet);\r\n    DataSetNetzwerk.Name := 'DataSetNetzwerk';\r\n    DataSetNetzwerk.FieldName := 'Netzwerk';\r\n    DataSetDBKEY.SetParentComponent(DataSet);\r\n    DataSetDBKEY.Name := 'DataSetDBKEY';\r\n    DataSetDBKEY.FieldName := 'DBKEY';\r\n    DataSetDBKEY.Size := 50;\r\n    DataSetVerarbeitung.SetParentComponent(DataSet);\r\n    DataSetVerarbeitung.Name := 'DataSetVerarbeitung';\r\n    DataSetVerarbeitung.FieldName := 'Verarbeitung';\r\n    DataSetVerarbeitung.Size := 1;\r\n    DataSetCadiaModSumme.SetParentComponent(DataSet);\r\n    DataSetCadiaModSumme.Name := 'DataSetCadiaModSumme';\r\n    DataSetCadiaModSumme.FieldName := 'CadiaModSumme';\r\n    DataSetASPVersion.SetParentComponent(DataSet);\r\n    DataSetASPVersion.Name := 'DataSetASPVersion';\r\n    DataSetASPVersion.FieldName := 'ASPVersion';\r\n    DataSetASPVersion.Size := 10;\r\n    DataSetCSPName.SetParentComponent(DataSet);\r\n    DataSetCSPName.Name := 'DataSetCSPName';\r\n    DataSetCSPName.FieldName := 'CSPName';\r\n    DataSetCSPName.Size := 50;\r\n    DataSetCSPVendor.SetParentComponent(DataSet);\r\n    DataSetCSPVendor.Name := 'DataSetCSPVendor';\r\n    DataSetCSPVendor.FieldName := 'CSPVendor';\r\n    DataSetCSPVendor.Size := 50;\r\n    DataSetCPUName.SetParentComponent(DataSet);\r\n    DataSetCPUName.Name := 'DataSetCPUName';\r\n    DataSetCPUName.FieldName := 'CPUName';\r\n    DataSetCPUName.Size := 50;\r\n    DataSetCPUID.SetParentComponent(DataSet);\r\n    DataSetCPUID.Name := 'DataSetCPUID';\r\n    DataSetCPUID.FieldName := 'CPUID';\r\n    DataSetCPUID.Size := 50;\r\n    DataSetBaseBoardSerial.SetParentComponent(DataSet);\r\n    DataSetBaseBoardSerial.Name := 'DataSetBaseBoardSerial';\r\n    DataSetBaseBoardSerial.FieldName := 'BaseBoardSerial';\r\n    DataSetBaseBoardSerial.Size := 50;\r\n    DataSetHDDVolLetter.SetParentComponent(DataSet);\r\n    DataSetHDDVolLetter.Name := 'DataSetHDDVolLetter';\r\n    DataSetHDDVolLetter.FieldName := 'HDDVolLetter';\r\n    DataSetHDDVolLetter.Size := 50;\r\n    DataSetHDDVolSerial.SetParentComponent(DataSet);\r\n    DataSetHDDVolSerial.Name := 'DataSetHDDVolSerial';\r\n    DataSetHDDVolSerial.FieldName := 'HDDVolSerial';\r\n    DataSetHDDVolSerial.Size := 50;\r\n    DataSetSQLDB.SetParentComponent(DataSet);\r\n    DataSetSQLDB.Name := 'DataSetSQLDB';\r\n    DataSetSQLDB.FieldName := 'SQLDB';\r\n    DataSetSQLDB.Size := 1;\r\n    DataSetIPAdresse.SetParentComponent(DataSet);\r\n    DataSetIPAdresse.Name := 'DataSetIPAdresse';\r\n    DataSetIPAdresse.FieldName := 'IPAdresse';\r\n    DataSetIPAdresse.Size := 50;\r\n    DataSetInstanzID.SetParentComponent(DataSet);\r\n    DataSetInstanzID.Name := 'DataSetInstanzID';\r\n    DataSetInstanzID.FieldName := 'InstanzID';\r\n    DataSetInstanzID.Size := 50;\r\n    DataSetProgrammpfad.SetParentComponent(DataSet);\r\n    DataSetProgrammpfad.Name := 'DataSetProgrammpfad';\r\n    DataSetProgrammpfad.FieldName := 'Programmpfad';\r\n    DataSetProgrammpfad.Size := 255;\r\n    DataSetLocalIP.SetParentComponent(DataSet);\r\n    DataSetLocalIP.Name := 'DataSetLocalIP';\r\n    DataSetLocalIP.FieldName := 'LocalIP';\r\n    DataSetLocalIP.Size := 50;\r\n    DataSetMACAddress.SetParentComponent(DataSet);\r\n    DataSetMACAddress.Name := 'DataSetMACAddress';\r\n    DataSetMACAddress.FieldName := 'MACAddress';\r\n    DataSetMACAddress.Size := 50;\r\n    DataSetVersionsnummer.SetParentComponent(DataSet);\r\n    DataSetVersionsnummer.Name := 'DataSetVersionsnummer';\r\n    DataSetVersionsnummer.FieldName := 'Versionsnummer';\r\n    DataSetDatenpfad.SetParentComponent(DataSet);\r\n    DataSetDatenpfad.Name := 'DataSetDatenpfad';\r\n    DataSetDatenpfad.FieldName := 'Datenpfad';\r\n    DataSetDatenpfad.Size := 255;\r\n    Source.SetParentComponent(Self);\r\n    Source.Name := 'Source';\r\n    Source.DataSet := DataSet;\r\n    Source.Left := 56;\r\n    Source.Top := 56;\r\n  finally\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    TC.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    edtSuchbegriff.AfterLoadDFMValues;\r\n    DataSet.AfterLoadDFMValues;\r\n    DataSetID.AfterLoadDFMValues;\r\n    DataSetDatumUhrzeit.AfterLoadDFMValues;\r\n    DataSetApplicationCode.AfterLoadDFMValues;\r\n    DataSetApplicationName.AfterLoadDFMValues;\r\n    DataSetVersionsdatum.AfterLoadDFMValues;\r\n    DataSetInstalCode.AfterLoadDFMValues;\r\n    DataSetFreischaltungVON.AfterLoadDFMValues;\r\n    DataSetFreischaltungBIS.AfterLoadDFMValues;\r\n    DataSetAbsenderzeile.AfterLoadDFMValues;\r\n    DataSetPCCode.AfterLoadDFMValues;\r\n    DataSetVertriebspartner.AfterLoadDFMValues;\r\n    DataSetLetzterStart.AfterLoadDFMValues;\r\n    DataSetAnzahlStart.AfterLoadDFMValues;\r\n    DataSetDatumUhrzeitUser.AfterLoadDFMValues;\r\n    DataSetWindowsUserName.AfterLoadDFMValues;\r\n    DataSetCadiaKundennummer.AfterLoadDFMValues;\r\n    DataSetPCName.AfterLoadDFMValues;\r\n    DataSetAvIsTrial.AfterLoadDFMValues;\r\n    DataSetAvAuthorized.AfterLoadDFMValues;\r\n    DataSetAvRegistered.AfterLoadDFMValues;\r\n    DataSetAvExpired.AfterLoadDFMValues;\r\n    DataSetSysNachname.AfterLoadDFMValues;\r\n    DataSetSysVorname.AfterLoadDFMValues;\r\n    DataSetNetzwerk.AfterLoadDFMValues;\r\n    DataSetDBKEY.AfterLoadDFMValues;\r\n    DataSetVerarbeitung.AfterLoadDFMValues;\r\n    DataSetCadiaModSumme.AfterLoadDFMValues;\r\n    DataSetASPVersion.AfterLoadDFMValues;\r\n    DataSetCSPName.AfterLoadDFMValues;\r\n    DataSetCSPVendor.AfterLoadDFMValues;\r\n    DataSetCPUName.AfterLoadDFMValues;\r\n    DataSetCPUID.AfterLoadDFMValues;\r\n    DataSetBaseBoardSerial.AfterLoadDFMValues;\r\n    DataSetHDDVolLetter.AfterLoadDFMValues;\r\n    DataSetHDDVolSerial.AfterLoadDFMValues;\r\n    DataSetSQLDB.AfterLoadDFMValues;\r\n    DataSetIPAdresse.AfterLoadDFMValues;\r\n    DataSetInstanzID.AfterLoadDFMValues;\r\n    DataSetProgrammpfad.AfterLoadDFMValues;\r\n    DataSetLocalIP.AfterLoadDFMValues;\r\n    DataSetMACAddress.AfterLoadDFMValues;\r\n    DataSetVersionsnummer.AfterLoadDFMValues;\r\n    DataSetDatenpfad.AfterLoadDFMValues;\r\n    Source.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit unit_Inventur;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Data.DB, WEBLib.DB, XData.Web.JsonDataset,\r\n  XData.Web.Dataset, XData.Web.Connection, Vcl.Controls, Vcl.StdCtrls,\r\n  WEBLib.StdCtrls, WEBLib.ExtCtrls, Vcl.Grids, WEBLib.DBCtrls, VCL.TMSFNCTypes,\r\n  VCL.TMSFNCUtils, VCL.TMSFNCGraphics, VCL.TMSFNCGraphicsTypes,\r\n  VCL.TMSFNCCustomControl, VCL.TMSFNCTableView, WEBLib.Buttons, WEBLib.Grids,\r\n  WEBLib.FlexControls, WEBLib.WebCtrls, DB;\r\n\r\ntype\r\n  TfrmInventur = class(TForm)\r\n    xdsInventurERF: TXDataWebDataSet;\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    Container3: THTMLContainer;\r\n    xdsInventuren: TXDataWebDataSet;\r\n    xdsInventurenInventurDatum: TDateTimeField;\r\n    xdsInventurenBearbeitung: TStringField;\r\n    labelinventuren: TLabel;\r\n    btnzurueck: TButton;\r\n    xdsInventurERFArtikelnummer: TXDataWebEntityField;\r\n    xdsInventurERFLager: TXDataWebEntityField;\r\n    xdsInventurERFInventurdatum: TDateTimeField;\r\n    xdsInventurERFArtikelueberschrift: TStringField;\r\n    xdsInventurERFArtikelbeschreibung: TStringField;\r\n    xdsInventurERFBestand: TFloatField;\r\n    xdsInventurERFBemerkung: TStringField;\r\n    xdsInventurERFLetzterEK: TFloatField;\r\n    xdsInventurERFDurchschnittEK: TFloatField;\r\n    xdsInventurERFBenutzergeaendert: TStringField;\r\n    xdsInventurERFDatumgeaendert: TDateTimeField;\r\n    xdsInventurERFArtikelEK: TFloatField;\r\n    xdsInventurERFBuchbestand: TFloatField;\r\n    xdsInventurERFBuchbestandswert: TFloatField;\r\n    xdsInventurERFDifferenzBestand: TFloatField;\r\n    xdsInventurERFNeuerBestandswert: TFloatField;\r\n    xdsInventurERFKorrekturDatum: TDateTimeField;\r\n    xdsInventurERFDifferenzBestandswert: TFloatField;\r\n    xdsLager: TXDataWebDataSet;\r\n    xdsLagerLager: TStringField;\r\n    ComboLager: TComboBox;\r\n    Container4: THTMLContainer;\r\n    btnScan: TButton;\r\n    edtSuchbegriff: TEdit;\r\n    DataSet: TXDataWebDataSet;\r\n    DataSetArtikelnummer: TStringField;\r\n    DataSetArtikelueberschrift: TStringField;\r\n    DataSetArtikelbeschreibung: TStringField;\r\n    DataSetVerkaufspreis: TFloatField;\r\n    DataSetBestand: TFloatField;\r\n    DataSetArtikelmatchcode: TStringField;\r\n    DataSetEAN: TStringField;\r\n    edtMenge: TEdit;\r\n    btnSpeichern: TButton;\r\n    TCErfassung: TTableControl;\r\n    TCLetzte10: TTableControl;\r\n    LabelLetzteErfassungen: TLabel;\r\n    xdsInventurERFArtikelnummerArtikelnummer: TStringField;\r\n    xdsInventurERFLagerLager: TStringField;\r\n    labelsuchergebnis: TLabel;\r\n    DataSetEinkaufspreis: TFloatField;\r\n    XDSNEU: TXDataWebDataSet;\r\n    XDSNEUArtikelnummer: TXDataWebEntityField;\r\n    XDSNEULager: TXDataWebEntityField;\r\n    XDSNEUInventurdatum: TDateTimeField;\r\n    XDSNEUArtikelueberschrift: TStringField;\r\n    XDSNEUArtikelbeschreibung: TStringField;\r\n    XDSNEUBestand: TFloatField;\r\n    XDSNEUBemerkung: TStringField;\r\n    XDSNEULetzterEK: TFloatField;\r\n    XDSNEUDurchschnittEK: TFloatField;\r\n    XDSNEUBenutzergeaendert: TStringField;\r\n    XDSNEUDatumgeaendert: TDateTimeField;\r\n    XDSNEUArtikelEK: TFloatField;\r\n    XDSNEUBuchbestand: TFloatField;\r\n    XDSNEUBuchbestandswert: TFloatField;\r\n    XDSNEUDifferenzBestand: TFloatField;\r\n    XDSNEUNeuerBestandswert: TFloatField;\r\n    XDSNEUKorrekturDatum: TDateTimeField;\r\n    XDSNEUDifferenzBestandswert: TFloatField;\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure xdsInventurERFAfterOpen(DataSet: TDataSet);\r\n    procedure xdsInventurenAfterOpen(DataSet: TDataSet);\r\n    procedure btnzurueckClick(Sender: TObject);\r\n    procedure xdsLagerAfterOpen(DataSet: TDataSet);\r\n    procedure edtSuchbegriffChange(Sender: TObject);\r\n    procedure btnScanClick(Sender: TObject);\r\n    procedure DataSetAfterOpen(DataSet: TDataSet);\r\n    procedure btnSpeichernClick(Sender: TObject);\r\n    procedure XDSNEUAfterPost(DataSet: TDataSet);\r\n    procedure XDSNEUAfterApplyUpdates(Sender: TDataSet; Info: TResolveResults);\r\n    procedure XDSNEUAfterOpen(DataSet: TDataSet);\r\n\r\n    public\r\n    myInventurDatum:TDateTime;\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nvar\r\n  frmInventur: TfrmInventur;\r\n\r\nimplementation\r\n  uses unit1, unit2, unit_BarcodeScan;\r\n{$R *.dfm}\r\n\r\n\r\nprocedure TfrmInventur.btnScanClick(Sender: TObject);\r\nvar\r\n  LFrm:TBarcodeScan;\r\n  procedure AfterCreate(AForm:TObject);\r\n  var\r\n    LForm:TBarcodeScan;\r\n    begin\r\n      LForm:=(AForm as TBarcodeScan);\r\n      //lform.mykundehint:=xdsEinzelkontaktKundennummer.AsString+' '+xdsEinzelkontaktNachname.AsString+', '+xdsEinzelkontaktVorname.asstring;\r\n      //lForm.edttoaddress.Text:= xdsEinzelkontaktPostleitzahl.AsString+' '+xdsEinzelkontaktort.AsString+', '+xdsEinzelkontaktStrasse.AsString;\r\n\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      edtsuchbegriff.text:=trim(lfrm.ScanErgebnis);\r\n      edtsuchbegriffChange(self);\r\n    end;\r\n  begin\r\n    if LizenzOK then\r\n    begin\r\n      LFrm:=TBarcodeScan.CreateNew(@AfterCreate);\r\n      LFrm.ShowModal(@AfterShowmodal);\r\n    end\r\n    else\r\n    begin\r\n      showmessage('Für diese Funktion sind Sie noch nicht freigeschaltet, bitte erwerben Sie eine Lizenz');\r\n    end;\r\n\r\nend;\r\n\r\nprocedure TfrmInventur.btnSpeichernClick(Sender: TObject);\r\nvar\r\n  mymenge:double;\r\nbegin\r\n  if edtMenge.Text='' then\r\n  begin\r\n    showmessage('Menge muß angegeben werden');\r\n    exit;\r\n  end;\r\n  if TryStrToFloat(edtMenge.Text,mymenge)=false then\r\n  begin\r\n    showmessage('Keine korrekte Mengenangabe');\r\n    exit;\r\n  end;\r\n  if edtSuchbegriff.Text='' then\r\n  begin\r\n    showmessage('Kein Artikel angegeben');\r\n    exit;\r\n  end;\r\n  if ComboLager.Text='' then\r\n  begin\r\n    showmessage('Kein Lager angegeben');\r\n    exit;\r\n  end;\r\n  if xdsLager.Locate('Lager', combolager.Text,[])=false then\r\n  begin\r\n    showmessage('Ungültiges Lager ausgewählt');\r\n    exit;\r\n  end;\r\n  if DataSetArtikelnummer.AsString<>edtSuchbegriff.text then\r\n  begin\r\n    showmessage('Der Artikel ist nicht angegeben');\r\n    exit;\r\n  end;\r\n  xdsNEU.Append;\r\n  xdsNEUArtikelnummer.Value:=DataSet.CurrentData;\r\n  xdsNEULager.Value:=xdsLager.CurrentData;\r\n  //xdsInventurERFArtikelnummerArtikelnummer.AsString:=DataSetArtikelnummer.AsString;\r\n  xdsNEUInventurdatum.AsDateTime:=myInventurDatum;\r\n  xdsNEUArtikelueberschrift.AsString:=DataSetArtikelueberschrift.AsString;\r\n  xdsNEUArtikelbeschreibung.AsString:=DataSetArtikelbeschreibung.AsString;\r\n  xdsNEUBestand.AsFloat:=mymenge;\r\n  xdsNEULetzterEK.AsFloat:=DataSetEinkaufspreis.AsFloat;\r\n  xdsNEUDurchschnittEK.AsFloat:=0;\r\n  xdsNEUBuchbestand.AsFloat:=0;\r\n  xdsNEUBuchbestandswert.AsFloat:=0;\r\n  xdsNEUDatumgeaendert.AsDateTime:=date+time;\r\n  xdsNEUBenutzergeaendert.AsString:=BenutzerLoginName;\r\n  xdsNEU.Post;\r\n\r\nend;\r\n\r\nprocedure TfrmInventur.btnzurueckClick(Sender: TObject);\r\nbegin\r\n  xdsInventuren.Close;\r\n  self.close;\r\nend;\r\n\r\nprocedure TfrmInventur.DataSetAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  btnspeichern.Enabled:=false;\r\n  if DataSet.RecordCount<1 then\r\n  begin\r\n    labelsuchergebnis.Caption:='Artikel nicht gefunden';\r\n  end;\r\n  if DataSet.RecordCount=1 then\r\n  begin\r\n    labelsuchergebnis.Caption:='Artikel gefunden: '+DataSetArtikelueberschrift.asstring;\r\n    btnspeichern.Enabled:=true;\r\n    edtMenge.SetFocus;\r\n  end;\r\n  if DataSet.RecordCount>1 then\r\n  begin\r\n    labelsuchergebnis.Caption:='mehrere Übereinstimmungen';\r\n  end;\r\nend;\r\n\r\nprocedure TfrmInventur.edtSuchbegriffChange(Sender: TObject);\r\nvar\r\n  suchtext:string;\r\nbegin\r\n  suchtext:=trim(edtsuchbegriff.Text);\r\n  if length(suchtext)>0 then\r\n  begin\r\n    dataset.Close;\r\n    dataset.QueryTop:=21;\r\n    dataset.QueryString:='$filter=(Artikelnummer eq '+quotedstr(suchtext)+') OR (EAN eq '+quotedstr(suchtext)+')';\r\n    dataset.Load;\r\n  end;\r\nend;\r\n\r\nprocedure TfrmInventur.WebFormShow(Sender: TObject);\r\nbegin\r\n  myInventurDatum:=encodedate(2000,1,1);\r\n  xdsLager.Load;\r\n\r\nend;\r\n\r\nprocedure TfrmInventur.xdsInventurERFAfterOpen(DataSet: TDataSet);\r\nvar\r\n  i:integer;\r\nbegin\r\n  i:=0;\r\n  TCLetzte10.RowCount:=xdsInventurERF.RecordCount+2;\r\n  TCLetzte10.ColCount:=4;\r\n  TCLetzte10.Cells[0,i]:='Lager';\r\n  TCLetzte10.Cells[1,i]:='Artikelnummer';\r\n  TCLetzte10.Cells[2,i]:='Artikelbezeichnung';\r\n  TCLetzte10.Cells[3,i]:='Menge';\r\n\r\n  xdsInventurERF.First;\r\n  while not xdsinventurerf.eof do\r\n  begin\r\n    inc(i);\r\n    TCLetzte10.Cells[0,i]:=xdsInventurERFLagerLager.AsString;\r\n    TCLetzte10.Cells[1,i]:=xdsInventurERFArtikelnummerArtikelnummer.AsString;\r\n    TCLetzte10.Cells[2,i]:=xdsInventurERFArtikelueberschrift.AsString;\r\n    TCLetzte10.Cells[3,i]:=xdsInventurERFBestand.AsString;\r\n    xdsinventurerf.Next;\r\n  end;\r\nend;\r\n\r\nprocedure TfrmInventur.xdsLagerAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  comboLager.Items.Clear;\r\n  xdslager.First;\r\n  while not xdslager.eof do\r\n  begin\r\n    combolager.Items.add(xdsLagerLager.asstring);\r\n    xdslager.Next;\r\n  end;\r\n  comboLager.Visible:=false;\r\n  comboLager.Text:='[-]';\r\n  xdsNeu.Load;\r\n\r\nend;\r\n\r\nprocedure TfrmInventur.XDSNEUAfterApplyUpdates(Sender: TDataSet;\r\n  Info: TResolveResults);\r\n  var\r\n  i:integer;\r\nbegin\r\n  for i := 0 to High(info.Records) do\r\n  begin\r\n    if info.Records[i].Error<>'' then showmessage(info.Records[i].Error);\r\n  end;\r\n  if info.Records[0].Error='' then\r\n  begin\r\n    xdsInventurERF.Close;\r\n    edtMenge.Text:='';\r\n    edtSuchbegriff.Text:='';\r\n    edtsuchbegriff.SetFocus;\r\n    xdsinventurerf.Load;\r\n  end;\r\nend;\r\n\r\nprocedure TfrmInventur.XDSNEUAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  xdsInventuren.Load;\r\nend;\r\n\r\nprocedure TfrmInventur.XDSNEUAfterPost(DataSet: TDataSet);\r\nbegin\r\n  xdsNEU.ApplyUpdates;\r\nend;\r\n\r\nprocedure TfrmInventur.xdsInventurenAfterOpen(DataSet: TDataSet);\r\nvar\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n\r\n  if xdsInventuren.RecordCount>0 then\r\n  begin\r\n    if xdsInventurenBearbeitung.AsString='aktiv' then\r\n    begin\r\n      myInventurDatum:=xdsInventurenInventurDatum.AsDateTime;\r\n      labelinventuren.Caption:='Inventurdatum: '+formatdatetime('DD.MM.YYYY',myInventurdatum);\r\n      combolager.Visible:=true;\r\n    end\r\n    else\r\n    begin\r\n      labelinventuren.Caption:='Es gibt keine Inventur, die zur Bearbeitung freigegeben ist';\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    labelinventuren.Caption:='Es gibt keine Inventur, die zur Bearbeitung freigegeben ist';\r\n  end;\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h5>Inventur</h5></nav>';\r\n  myelement:=container1.ElementHandle;\r\n  btnzurueck.ParentElement:=myelement;\r\n  container2.ParentElement:=myelement;\r\n  Container3.ParentElement:=myelement;\r\n  Container4.ParentElement:=myelement;\r\n  myelement:=container2.ElementHandle;\r\n  labelinventuren.ParentElement:=myelement;\r\n  myelement:=container3.ElementHandle;\r\n  TCErfassung.ParentElement:=myelement;\r\n  tcerfassung.RowCount:=4;\r\n  tcerfassung.Cells[0,1]:='Für welches Lager?';\r\n  tcerfassung.Cells[0,2]:='Artikelnr.';\r\n  tcerfassung.Cells[0,3]:='Menge';\r\n  myelement:=TCErfassung.CellElements[1,1];\r\n  ComboLager.ParentElement:=myelement;\r\n  myelement:=TCErfassung.CellElements[1,2];\r\n  edtsuchbegriff.ParentElement:=myelement;\r\n  labelsuchergebnis.ParentElement:=myelement;\r\n  myelement:=TCErfassung.CellElements[2,2];\r\n  btnscan.ParentElement:=myelement;\r\n  myelement:=TCErfassung.CellElements[1,3];\r\n  edtMenge.ParentElement:=myelement;\r\n  myelement:=TCErfassung.CellElements[2,3];\r\n  btnSpeichern.ParentElement:=myelement;\r\n  myelement:=container4.ElementHandle;\r\n  LabelLetzteErfassungen.ParentElement:=myelement;\r\n  TCLetzte10.ParentElement:=myelement;\r\n  if myInventurDatum<>encodedate(2000,1,1) then\r\n  begin\r\n    xdsInventurERF.QueryString:='$filter=Inventurdatum eq '+formatdatetime('yyyy-mm-dd',myinventurdatum)+'&$expand=Artikelnummer,Lager&$orderby=Datumgeaendert DESC';\r\n    xdsInventurERF.Load;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TfrmInventur.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  labelinventuren := TLabel.Create(Self);\r\n  LabelLetzteErfassungen := TLabel.Create(Self);\r\n  labelsuchergebnis := TLabel.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  Container3 := THTMLContainer.Create(Self);\r\n  btnzurueck := TButton.Create(Self);\r\n  ComboLager := TComboBox.Create(Self);\r\n  Container4 := THTMLContainer.Create(Self);\r\n  btnScan := TButton.Create(Self);\r\n  edtSuchbegriff := TEdit.Create(Self);\r\n  edtMenge := TEdit.Create(Self);\r\n  btnSpeichern := TButton.Create(Self);\r\n  TCErfassung := TTableControl.Create(Self);\r\n  TCLetzte10 := TTableControl.Create(Self);\r\n  xdsInventurERF := TXDataWebDataSet.Create(Self);\r\n  xdsInventurERFArtikelnummer := TXDataWebEntityField.Create(Self);\r\n  xdsInventurERFLager := TXDataWebEntityField.Create(Self);\r\n  xdsInventurERFInventurdatum := TDateTimeField.Create(Self);\r\n  xdsInventurERFArtikelueberschrift := TStringField.Create(Self);\r\n  xdsInventurERFArtikelbeschreibung := TStringField.Create(Self);\r\n  xdsInventurERFBestand := TFloatField.Create(Self);\r\n  xdsInventurERFBemerkung := TStringField.Create(Self);\r\n  xdsInventurERFLetzterEK := TFloatField.Create(Self);\r\n  xdsInventurERFDurchschnittEK := TFloatField.Create(Self);\r\n  xdsInventurERFBenutzergeaendert := TStringField.Create(Self);\r\n  xdsInventurERFDatumgeaendert := TDateTimeField.Create(Self);\r\n  xdsInventurERFArtikelEK := TFloatField.Create(Self);\r\n  xdsInventurERFBuchbestand := TFloatField.Create(Self);\r\n  xdsInventurERFBuchbestandswert := TFloatField.Create(Self);\r\n  xdsInventurERFDifferenzBestand := TFloatField.Create(Self);\r\n  xdsInventurERFNeuerBestandswert := TFloatField.Create(Self);\r\n  xdsInventurERFKorrekturDatum := TDateTimeField.Create(Self);\r\n  xdsInventurERFDifferenzBestandswert := TFloatField.Create(Self);\r\n  xdsInventurERFArtikelnummerArtikelnummer := TStringField.Create(Self);\r\n  xdsInventurERFLagerLager := TStringField.Create(Self);\r\n  xdsInventuren := TXDataWebDataSet.Create(Self);\r\n  xdsInventurenInventurDatum := TDateTimeField.Create(Self);\r\n  xdsInventurenBearbeitung := TStringField.Create(Self);\r\n  xdsLager := TXDataWebDataSet.Create(Self);\r\n  xdsLagerLager := TStringField.Create(Self);\r\n  DataSet := TXDataWebDataSet.Create(Self);\r\n  DataSetArtikelnummer := TStringField.Create(Self);\r\n  DataSetArtikelueberschrift := TStringField.Create(Self);\r\n  DataSetArtikelbeschreibung := TStringField.Create(Self);\r\n  DataSetVerkaufspreis := TFloatField.Create(Self);\r\n  DataSetBestand := TFloatField.Create(Self);\r\n  DataSetArtikelmatchcode := TStringField.Create(Self);\r\n  DataSetEAN := TStringField.Create(Self);\r\n  DataSetEinkaufspreis := TFloatField.Create(Self);\r\n  XDSNEU := TXDataWebDataSet.Create(Self);\r\n  XDSNEUArtikelnummer := TXDataWebEntityField.Create(Self);\r\n  XDSNEULager := TXDataWebEntityField.Create(Self);\r\n  XDSNEUInventurdatum := TDateTimeField.Create(Self);\r\n  XDSNEUArtikelueberschrift := TStringField.Create(Self);\r\n  XDSNEUArtikelbeschreibung := TStringField.Create(Self);\r\n  XDSNEUBestand := TFloatField.Create(Self);\r\n  XDSNEUBemerkung := TStringField.Create(Self);\r\n  XDSNEULetzterEK := TFloatField.Create(Self);\r\n  XDSNEUDurchschnittEK := TFloatField.Create(Self);\r\n  XDSNEUBenutzergeaendert := TStringField.Create(Self);\r\n  XDSNEUDatumgeaendert := TDateTimeField.Create(Self);\r\n  XDSNEUArtikelEK := TFloatField.Create(Self);\r\n  XDSNEUBuchbestand := TFloatField.Create(Self);\r\n  XDSNEUBuchbestandswert := TFloatField.Create(Self);\r\n  XDSNEUDifferenzBestand := TFloatField.Create(Self);\r\n  XDSNEUNeuerBestandswert := TFloatField.Create(Self);\r\n  XDSNEUKorrekturDatum := TDateTimeField.Create(Self);\r\n  XDSNEUDifferenzBestandswert := TFloatField.Create(Self);\r\n\r\n  labelinventuren.BeforeLoadDFMValues;\r\n  LabelLetzteErfassungen.BeforeLoadDFMValues;\r\n  labelsuchergebnis.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  Container3.BeforeLoadDFMValues;\r\n  btnzurueck.BeforeLoadDFMValues;\r\n  ComboLager.BeforeLoadDFMValues;\r\n  Container4.BeforeLoadDFMValues;\r\n  btnScan.BeforeLoadDFMValues;\r\n  edtSuchbegriff.BeforeLoadDFMValues;\r\n  edtMenge.BeforeLoadDFMValues;\r\n  btnSpeichern.BeforeLoadDFMValues;\r\n  TCErfassung.BeforeLoadDFMValues;\r\n  TCLetzte10.BeforeLoadDFMValues;\r\n  xdsInventurERF.BeforeLoadDFMValues;\r\n  xdsInventurERFArtikelnummer.BeforeLoadDFMValues;\r\n  xdsInventurERFLager.BeforeLoadDFMValues;\r\n  xdsInventurERFInventurdatum.BeforeLoadDFMValues;\r\n  xdsInventurERFArtikelueberschrift.BeforeLoadDFMValues;\r\n  xdsInventurERFArtikelbeschreibung.BeforeLoadDFMValues;\r\n  xdsInventurERFBestand.BeforeLoadDFMValues;\r\n  xdsInventurERFBemerkung.BeforeLoadDFMValues;\r\n  xdsInventurERFLetzterEK.BeforeLoadDFMValues;\r\n  xdsInventurERFDurchschnittEK.BeforeLoadDFMValues;\r\n  xdsInventurERFBenutzergeaendert.BeforeLoadDFMValues;\r\n  xdsInventurERFDatumgeaendert.BeforeLoadDFMValues;\r\n  xdsInventurERFArtikelEK.BeforeLoadDFMValues;\r\n  xdsInventurERFBuchbestand.BeforeLoadDFMValues;\r\n  xdsInventurERFBuchbestandswert.BeforeLoadDFMValues;\r\n  xdsInventurERFDifferenzBestand.BeforeLoadDFMValues;\r\n  xdsInventurERFNeuerBestandswert.BeforeLoadDFMValues;\r\n  xdsInventurERFKorrekturDatum.BeforeLoadDFMValues;\r\n  xdsInventurERFDifferenzBestandswert.BeforeLoadDFMValues;\r\n  xdsInventurERFArtikelnummerArtikelnummer.BeforeLoadDFMValues;\r\n  xdsInventurERFLagerLager.BeforeLoadDFMValues;\r\n  xdsInventuren.BeforeLoadDFMValues;\r\n  xdsInventurenInventurDatum.BeforeLoadDFMValues;\r\n  xdsInventurenBearbeitung.BeforeLoadDFMValues;\r\n  xdsLager.BeforeLoadDFMValues;\r\n  xdsLagerLager.BeforeLoadDFMValues;\r\n  DataSet.BeforeLoadDFMValues;\r\n  DataSetArtikelnummer.BeforeLoadDFMValues;\r\n  DataSetArtikelueberschrift.BeforeLoadDFMValues;\r\n  DataSetArtikelbeschreibung.BeforeLoadDFMValues;\r\n  DataSetVerkaufspreis.BeforeLoadDFMValues;\r\n  DataSetBestand.BeforeLoadDFMValues;\r\n  DataSetArtikelmatchcode.BeforeLoadDFMValues;\r\n  DataSetEAN.BeforeLoadDFMValues;\r\n  DataSetEinkaufspreis.BeforeLoadDFMValues;\r\n  XDSNEU.BeforeLoadDFMValues;\r\n  XDSNEUArtikelnummer.BeforeLoadDFMValues;\r\n  XDSNEULager.BeforeLoadDFMValues;\r\n  XDSNEUInventurdatum.BeforeLoadDFMValues;\r\n  XDSNEUArtikelueberschrift.BeforeLoadDFMValues;\r\n  XDSNEUArtikelbeschreibung.BeforeLoadDFMValues;\r\n  XDSNEUBestand.BeforeLoadDFMValues;\r\n  XDSNEUBemerkung.BeforeLoadDFMValues;\r\n  XDSNEULetzterEK.BeforeLoadDFMValues;\r\n  XDSNEUDurchschnittEK.BeforeLoadDFMValues;\r\n  XDSNEUBenutzergeaendert.BeforeLoadDFMValues;\r\n  XDSNEUDatumgeaendert.BeforeLoadDFMValues;\r\n  XDSNEUArtikelEK.BeforeLoadDFMValues;\r\n  XDSNEUBuchbestand.BeforeLoadDFMValues;\r\n  XDSNEUBuchbestandswert.BeforeLoadDFMValues;\r\n  XDSNEUDifferenzBestand.BeforeLoadDFMValues;\r\n  XDSNEUNeuerBestandswert.BeforeLoadDFMValues;\r\n  XDSNEUKorrekturDatum.BeforeLoadDFMValues;\r\n  XDSNEUDifferenzBestandswert.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'frmInventur';\r\n    Width := 202;\r\n    Height := 557;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    FormStyle := fsStayOnTop;\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    labelinventuren.SetParentComponent(Self);\r\n    labelinventuren.Name := 'labelinventuren';\r\n    labelinventuren.Left := 8;\r\n    labelinventuren.Top := 176;\r\n    labelinventuren.Width := 85;\r\n    labelinventuren.Height := 15;\r\n    labelinventuren.Caption := 'LabelInventuren';\r\n    labelinventuren.ElementClassName := 'h6 m-2';\r\n    labelinventuren.ElementFont := efCSS;\r\n    labelinventuren.ElementPosition := epIgnore;\r\n    labelinventuren.HeightStyle := ssAuto;\r\n    labelinventuren.HeightPercent := 100.000000000000000000;\r\n    labelinventuren.WidthStyle := ssAuto;\r\n    labelinventuren.WidthPercent := 100.000000000000000000;\r\n    LabelLetzteErfassungen.SetParentComponent(Self);\r\n    LabelLetzteErfassungen.Name := 'LabelLetzteErfassungen';\r\n    LabelLetzteErfassungen.Left := 8;\r\n    LabelLetzteErfassungen.Top := 195;\r\n    LabelLetzteErfassungen.Width := 113;\r\n    LabelLetzteErfassungen.Height := 15;\r\n    LabelLetzteErfassungen.Caption := 'Letzte 10 Erfassungen';\r\n    LabelLetzteErfassungen.ElementClassName := 'h6 m-2';\r\n    LabelLetzteErfassungen.ElementFont := efCSS;\r\n    LabelLetzteErfassungen.ElementPosition := epIgnore;\r\n    LabelLetzteErfassungen.HeightStyle := ssAuto;\r\n    LabelLetzteErfassungen.HeightPercent := 100.000000000000000000;\r\n    LabelLetzteErfassungen.WidthStyle := ssAuto;\r\n    LabelLetzteErfassungen.WidthPercent := 100.000000000000000000;\r\n    labelsuchergebnis.SetParentComponent(Self);\r\n    labelsuchergebnis.Name := 'labelsuchergebnis';\r\n    labelsuchergebnis.Left := 8;\r\n    labelsuchergebnis.Top := 207;\r\n    labelsuchergebnis.Width := 71;\r\n    labelsuchergebnis.Height := 15;\r\n    labelsuchergebnis.Caption := 'Suchergebnis';\r\n    labelsuchergebnis.ElementClassName := 'h6 m-2';\r\n    labelsuchergebnis.ElementFont := efCSS;\r\n    labelsuchergebnis.ElementPosition := epIgnore;\r\n    labelsuchergebnis.HeightStyle := ssAuto;\r\n    labelsuchergebnis.HeightPercent := 100.000000000000000000;\r\n    labelsuchergebnis.WidthStyle := ssAuto;\r\n    labelsuchergebnis.WidthPercent := 100.000000000000000000;\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ChildOrder := 2;\r\n    Container1.ElementFont := efCSS;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 5;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    Container3.SetParentComponent(Self);\r\n    Container3.Name := 'Container3';\r\n    Container3.Left := 0;\r\n    Container3.Top := 94;\r\n    Container3.Width := 169;\r\n    Container3.Height := 41;\r\n    Container3.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container3.HeightStyle := ssAuto;\r\n    Container3.WidthStyle := ssAuto;\r\n    Container3.ChildOrder := 5;\r\n    Container3.ElementFont := efCSS;\r\n    Container3.ElementPosition := epIgnore;\r\n    btnzurueck.SetParentComponent(Self);\r\n    btnzurueck.Name := 'btnzurueck';\r\n    btnzurueck.Left := 0;\r\n    btnzurueck.Top := 226;\r\n    btnzurueck.Width := 96;\r\n    btnzurueck.Height := 25;\r\n    btnzurueck.Caption := '<< zur'#252'ck';\r\n    btnzurueck.ChildOrder := 4;\r\n    btnzurueck.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnzurueck.ElementFont := efCSS;\r\n    btnzurueck.ElementPosition := epIgnore;\r\n    btnzurueck.HeightStyle := ssAuto;\r\n    btnzurueck.HeightPercent := 100.000000000000000000;\r\n    btnzurueck.WidthStyle := ssAuto;\r\n    btnzurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnzurueck, Self, 'OnClick', 'btnzurueckClick');\r\n    ComboLager.SetParentComponent(Self);\r\n    ComboLager.Name := 'ComboLager';\r\n    ComboLager.Left := 8;\r\n    ComboLager.Top := 293;\r\n    ComboLager.Width := 150;\r\n    ComboLager.Height := 23;\r\n    ComboLager.ChildOrder := 8;\r\n    ComboLager.ElementClassName := 'form-control m-1';\r\n    ComboLager.ElementFont := efCSS;\r\n    ComboLager.ElementPosition := epIgnore;\r\n    ComboLager.HeightStyle := ssAuto;\r\n    ComboLager.HeightPercent := 100.000000000000000000;\r\n    ComboLager.Text := 'ComboLager';\r\n    ComboLager.WidthPercent := 75.000000000000000000;\r\n    ComboLager.ItemIndex := -1;\r\n    Container4.SetParentComponent(Self);\r\n    Container4.Name := 'Container4';\r\n    Container4.Left := 0;\r\n    Container4.Top := 141;\r\n    Container4.Width := 169;\r\n    Container4.Height := 41;\r\n    Container4.ElementClassName := 'd-flex flex-wrap m-1';\r\n    Container4.HeightStyle := ssAuto;\r\n    Container4.WidthStyle := ssAuto;\r\n    Container4.ChildOrder := 5;\r\n    Container4.ElementFont := efCSS;\r\n    Container4.ElementPosition := epIgnore;\r\n    btnScan.SetParentComponent(Self);\r\n    btnScan.Name := 'btnScan';\r\n    btnScan.Left := 8;\r\n    btnScan.Top := 410;\r\n    btnScan.Width := 96;\r\n    btnScan.Height := 25;\r\n    btnScan.Caption := 'scannen';\r\n    btnScan.ChildOrder := 4;\r\n    btnScan.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnScan.ElementFont := efCSS;\r\n    btnScan.ElementPosition := epIgnore;\r\n    btnScan.HeightStyle := ssAuto;\r\n    btnScan.HeightPercent := 100.000000000000000000;\r\n    btnScan.WidthStyle := ssAuto;\r\n    btnScan.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnScan, Self, 'OnClick', 'btnScanClick');\r\n    edtSuchbegriff.SetParentComponent(Self);\r\n    edtSuchbegriff.Name := 'edtSuchbegriff';\r\n    edtSuchbegriff.Left := 8;\r\n    edtSuchbegriff.Top := 382;\r\n    edtSuchbegriff.Width := 150;\r\n    edtSuchbegriff.Height := 22;\r\n    edtSuchbegriff.ChildOrder := 6;\r\n    edtSuchbegriff.ElementClassName := 'form-control input-sm m-1';\r\n    edtSuchbegriff.ElementFont := efCSS;\r\n    edtSuchbegriff.ElementPosition := epIgnore;\r\n    edtSuchbegriff.HeightStyle := ssAuto;\r\n    edtSuchbegriff.HeightPercent := 100.000000000000000000;\r\n    edtSuchbegriff.ShowHint := True;\r\n    edtSuchbegriff.TextHint := 'Artikelnr/GTIN';\r\n    edtSuchbegriff.WidthPercent := 60.000000000000000000;\r\n    SetEvent(edtSuchbegriff, Self, 'OnChange', 'edtSuchbegriffChange');\r\n    edtMenge.SetParentComponent(Self);\r\n    edtMenge.Name := 'edtMenge';\r\n    edtMenge.Left := 8;\r\n    edtMenge.Top := 441;\r\n    edtMenge.Width := 150;\r\n    edtMenge.Height := 19;\r\n    edtMenge.ChildOrder := 2;\r\n    edtMenge.EditType := weFloat;\r\n    edtMenge.ElementClassName := 'form-control input-sm m-1';\r\n    edtMenge.ElementFont := efCSS;\r\n    edtMenge.ElementPosition := epIgnore;\r\n    edtMenge.HeightStyle := ssAuto;\r\n    edtMenge.HeightPercent := 100.000000000000000000;\r\n    edtMenge.TextHint := 'eintragen';\r\n    edtMenge.WidthPercent := 100.000000000000000000;\r\n    btnSpeichern.SetParentComponent(Self);\r\n    btnSpeichern.Name := 'btnSpeichern';\r\n    btnSpeichern.Left := 73;\r\n    btnSpeichern.Top := 466;\r\n    btnSpeichern.Width := 96;\r\n    btnSpeichern.Height := 25;\r\n    btnSpeichern.Caption := 'speichern';\r\n    btnSpeichern.ChildOrder := 6;\r\n    btnSpeichern.ElementClassName := 'btn btn-info btn-sm m-1 text-left';\r\n    btnSpeichern.ElementFont := efCSS;\r\n    btnSpeichern.ElementPosition := epIgnore;\r\n    btnSpeichern.HeightStyle := ssAuto;\r\n    btnSpeichern.HeightPercent := 100.000000000000000000;\r\n    btnSpeichern.WidthStyle := ssAuto;\r\n    btnSpeichern.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnSpeichern, Self, 'OnClick', 'btnSpeichernClick');\r\n    TCErfassung.SetParentComponent(Self);\r\n    TCErfassung.Name := 'TCErfassung';\r\n    TCErfassung.Left := -45;\r\n    TCErfassung.Top := 288;\r\n    TCErfassung.Width := 247;\r\n    TCErfassung.Height := 91;\r\n    TCErfassung.ElementClassName := 'table table-sm table-hover table-bordered table-striped m-1';\r\n    TCErfassung.HeightStyle := ssAuto;\r\n    TCErfassung.WidthStyle := ssPercent;\r\n    TCErfassung.BorderColor := clSilver;\r\n    TCErfassung.ChildOrder := 3;\r\n    TCErfassung.ColHeader := False;\r\n    TCErfassung.ElementFont := efCSS;\r\n    TCErfassung.ElementHeaderClassName := 'table-info';\r\n    TCErfassung.ElementPosition := epIgnore;\r\n    TCErfassung.ElementTableClassName := 'table table-sm table-hover table-bordered table-striped';\r\n    TCErfassung.WordWrap := True;\r\n    TCErfassung.ColCount := 3;\r\n    TCLetzte10.SetParentComponent(Self);\r\n    TCLetzte10.Name := 'TCLetzte10';\r\n    TCLetzte10.Left := 8;\r\n    TCLetzte10.Top := 497;\r\n    TCLetzte10.Width := 247;\r\n    TCLetzte10.Height := 91;\r\n    TCLetzte10.ElementClassName := 'table table-sm table-hover table-bordered table-striped m-1';\r\n    TCLetzte10.HeightStyle := ssAuto;\r\n    TCLetzte10.WidthStyle := ssPercent;\r\n    TCLetzte10.BorderColor := clSilver;\r\n    TCLetzte10.ChildOrder := 3;\r\n    TCLetzte10.ColHeader := False;\r\n    TCLetzte10.ElementFont := efCSS;\r\n    TCLetzte10.ElementHeaderClassName := 'table-info';\r\n    TCLetzte10.ElementPosition := epIgnore;\r\n    TCLetzte10.ElementTableClassName := 'table table-sm table-hover table-bordered table-striped';\r\n    TCLetzte10.WordWrap := True;\r\n    TCLetzte10.ColCount := 3;\r\n    xdsInventurERF.SetParentComponent(Self);\r\n    xdsInventurERF.Name := 'xdsInventurERF';\r\n    xdsInventurERF.AfterOpen := xdsInventurERFAfterOpen;\r\n    xdsInventurERF.EntitySetName := 'InventurERF';\r\n    xdsInventurERF.Connection := DM2.XDataWebConnection1;\r\n    xdsInventurERF.SubpropsDepth := 1;\r\n    xdsInventurERF.QueryString := '$expand=Artikelnummer,Lager&$orderby=Datumgeaendert DESC';\r\n    xdsInventurERF.QueryTop := 10;\r\n    xdsInventurERF.Left := 109;\r\n    xdsInventurERF.Top := 173;\r\n    xdsInventurERFArtikelnummer.SetParentComponent(xdsInventurERF);\r\n    xdsInventurERFArtikelnummer.Name := 'xdsInventurERFArtikelnummer';\r\n    xdsInventurERFArtikelnummer.FieldName := 'Artikelnummer';\r\n    xdsInventurERFArtikelnummer.Required := True;\r\n    xdsInventurERFLager.SetParentComponent(xdsInventurERF);\r\n    xdsInventurERFLager.Name := 'xdsInventurERFLager';\r\n    xdsInventurERFLager.FieldName := 'Lager';\r\n    xdsInventurERFLager.Required := True;\r\n    xdsInventurERFInventurdatum.SetParentComponent(xdsInventurERF);\r\n    xdsInventurERFInventurdatum.Name := 'xdsInventurERFInventurdatum';\r\n    xdsInventurERFInventurdatum.FieldName := 'Inventurdatum';\r\n    xdsInventurERFInventurdatum.Required := True;\r\n    xdsInventurERFArtikelueberschrift.SetParentComponent(xdsInventurERF);\r\n    xdsInventurERFArtikelueberschrift.Name := 'xdsInventurERFArtikelueberschrift';\r\n    xdsInventurERFArtikelueberschrift.FieldName := 'Artikelueberschrift';\r\n    xdsInventurERFArtikelueberschrift.Size := 50;\r\n    xdsInventurERFArtikelbeschreibung.SetParentComponent(xdsInventurERF);\r\n    xdsInventurERFArtikelbeschreibung.Name := 'xdsInventurERFArtikelbeschreibung';\r\n    xdsInventurERFArtikelbeschreibung.FieldName := 'Artikelbeschreibung';\r\n    xdsInventurERFArtikelbeschreibung.Size := 255;\r\n    xdsInventurERFBestand.SetParentComponent(xdsInventurERF);\r\n    xdsInventurERFBestand.Name := 'xdsInventurERFBestand';\r\n    xdsInventurERFBestand.FieldName := 'Bestand';\r\n    xdsInventurERFBemerkung.SetParentComponent(xdsInventurERF);\r\n    xdsInventurERFBemerkung.Name := 'xdsInventurERFBemerkung';\r\n    xdsInventurERFBemerkung.FieldName := 'Bemerkung';\r\n    xdsInventurERFBemerkung.Size := 255;\r\n    xdsInventurERFLetzterEK.SetParentComponent(xdsInventurERF);\r\n    xdsInventurERFLetzterEK.Name := 'xdsInventurERFLetzterEK';\r\n    xdsInventurERFLetzterEK.FieldName := 'LetzterEK';\r\n    xdsInventurERFDurchschnittEK.SetParentComponent(xdsInventurERF);\r\n    xdsInventurERFDurchschnittEK.Name := 'xdsInventurERFDurchschnittEK';\r\n    xdsInventurERFDurchschnittEK.FieldName := 'DurchschnittEK';\r\n    xdsInventurERFBenutzergeaendert.SetParentComponent(xdsInventurERF);\r\n    xdsInventurERFBenutzergeaendert.Name := 'xdsInventurERFBenutzergeaendert';\r\n    xdsInventurERFBenutzergeaendert.FieldName := 'Benutzergeaendert';\r\n    xdsInventurERFBenutzergeaendert.Size := 50;\r\n    xdsInventurERFDatumgeaendert.SetParentComponent(xdsInventurERF);\r\n    xdsInventurERFDatumgeaendert.Name := 'xdsInventurERFDatumgeaendert';\r\n    xdsInventurERFDatumgeaendert.FieldName := 'Datumgeaendert';\r\n    xdsInventurERFArtikelEK.SetParentComponent(xdsInventurERF);\r\n    xdsInventurERFArtikelEK.Name := 'xdsInventurERFArtikelEK';\r\n    xdsInventurERFArtikelEK.FieldName := 'ArtikelEK';\r\n    xdsInventurERFBuchbestand.SetParentComponent(xdsInventurERF);\r\n    xdsInventurERFBuchbestand.Name := 'xdsInventurERFBuchbestand';\r\n    xdsInventurERFBuchbestand.FieldName := 'Buchbestand';\r\n    xdsInventurERFBuchbestandswert.SetParentComponent(xdsInventurERF);\r\n    xdsInventurERFBuchbestandswert.Name := 'xdsInventurERFBuchbestandswert';\r\n    xdsInventurERFBuchbestandswert.FieldName := 'Buchbestandswert';\r\n    xdsInventurERFDifferenzBestand.SetParentComponent(xdsInventurERF);\r\n    xdsInventurERFDifferenzBestand.Name := 'xdsInventurERFDifferenzBestand';\r\n    xdsInventurERFDifferenzBestand.FieldName := 'DifferenzBestand';\r\n    xdsInventurERFNeuerBestandswert.SetParentComponent(xdsInventurERF);\r\n    xdsInventurERFNeuerBestandswert.Name := 'xdsInventurERFNeuerBestandswert';\r\n    xdsInventurERFNeuerBestandswert.FieldName := 'NeuerBestandswert';\r\n    xdsInventurERFKorrekturDatum.SetParentComponent(xdsInventurERF);\r\n    xdsInventurERFKorrekturDatum.Name := 'xdsInventurERFKorrekturDatum';\r\n    xdsInventurERFKorrekturDatum.FieldName := 'KorrekturDatum';\r\n    xdsInventurERFDifferenzBestandswert.SetParentComponent(xdsInventurERF);\r\n    xdsInventurERFDifferenzBestandswert.Name := 'xdsInventurERFDifferenzBestandswert';\r\n    xdsInventurERFDifferenzBestandswert.FieldName := 'DifferenzBestandswert';\r\n    xdsInventurERFArtikelnummerArtikelnummer.SetParentComponent(xdsInventurERF);\r\n    xdsInventurERFArtikelnummerArtikelnummer.Name := 'xdsInventurERFArtikelnummerArtikelnummer';\r\n    xdsInventurERFArtikelnummerArtikelnummer.FieldName := 'Artikelnummer.Artikelnummer';\r\n    xdsInventurERFArtikelnummerArtikelnummer.Size := 25;\r\n    xdsInventurERFLagerLager.SetParentComponent(xdsInventurERF);\r\n    xdsInventurERFLagerLager.Name := 'xdsInventurERFLagerLager';\r\n    xdsInventurERFLagerLager.FieldName := 'Lager.Lager';\r\n    xdsInventurERFLagerLager.Size := 50;\r\n    xdsInventuren.SetParentComponent(Self);\r\n    xdsInventuren.Name := 'xdsInventuren';\r\n    xdsInventuren.AfterOpen := xdsInventurenAfterOpen;\r\n    xdsInventuren.EntitySetName := 'Inventuren';\r\n    xdsInventuren.Connection := DM2.XDataWebConnection1;\r\n    xdsInventuren.QueryString := '$filter=Bearbeitung eq '#39'aktiv'#39'&$orderby=InventurDatum DESC';\r\n    xdsInventuren.QueryTop := 10;\r\n    xdsInventuren.Left := 101;\r\n    xdsInventuren.Top := 117;\r\n    xdsInventurenInventurDatum.SetParentComponent(xdsInventuren);\r\n    xdsInventurenInventurDatum.Name := 'xdsInventurenInventurDatum';\r\n    xdsInventurenInventurDatum.FieldName := 'InventurDatum';\r\n    xdsInventurenInventurDatum.Required := True;\r\n    xdsInventurenBearbeitung.SetParentComponent(xdsInventuren);\r\n    xdsInventurenBearbeitung.Name := 'xdsInventurenBearbeitung';\r\n    xdsInventurenBearbeitung.FieldName := 'Bearbeitung';\r\n    xdsInventurenBearbeitung.Required := True;\r\n    xdsInventurenBearbeitung.Size := 25;\r\n    xdsLager.SetParentComponent(Self);\r\n    xdsLager.Name := 'xdsLager';\r\n    xdsLager.AfterOpen := xdsLagerAfterOpen;\r\n    xdsLager.EntitySetName := 'Lager';\r\n    xdsLager.Connection := DM2.XDataWebConnection1;\r\n    xdsLager.QueryTop := 100;\r\n    xdsLager.Left := 109;\r\n    xdsLager.Top := 237;\r\n    xdsLagerLager.SetParentComponent(xdsLager);\r\n    xdsLagerLager.Name := 'xdsLagerLager';\r\n    xdsLagerLager.FieldName := 'Lager';\r\n    xdsLagerLager.Required := True;\r\n    xdsLagerLager.Size := 50;\r\n    DataSet.SetParentComponent(Self);\r\n    DataSet.Name := 'DataSet';\r\n    DataSet.AfterOpen := DataSetAfterOpen;\r\n    DataSet.EntitySetName := 'Artikel';\r\n    DataSet.Connection := DM2.XDataWebConnection1;\r\n    DataSet.QueryTop := 21;\r\n    DataSet.Left := 56;\r\n    DataSet.Top := 72;\r\n    DataSetArtikelnummer.SetParentComponent(DataSet);\r\n    DataSetArtikelnummer.Name := 'DataSetArtikelnummer';\r\n    DataSetArtikelnummer.FieldName := 'Artikelnummer';\r\n    DataSetArtikelnummer.Required := True;\r\n    DataSetArtikelnummer.Size := 25;\r\n    DataSetArtikelueberschrift.SetParentComponent(DataSet);\r\n    DataSetArtikelueberschrift.Name := 'DataSetArtikelueberschrift';\r\n    DataSetArtikelueberschrift.FieldName := 'Artikelueberschrift';\r\n    DataSetArtikelueberschrift.Size := 50;\r\n    DataSetArtikelbeschreibung.SetParentComponent(DataSet);\r\n    DataSetArtikelbeschreibung.Name := 'DataSetArtikelbeschreibung';\r\n    DataSetArtikelbeschreibung.FieldName := 'Artikelbeschreibung';\r\n    DataSetArtikelbeschreibung.Size := 255;\r\n    DataSetVerkaufspreis.SetParentComponent(DataSet);\r\n    DataSetVerkaufspreis.Name := 'DataSetVerkaufspreis';\r\n    DataSetVerkaufspreis.FieldName := 'Verkaufspreis';\r\n    DataSetBestand.SetParentComponent(DataSet);\r\n    DataSetBestand.Name := 'DataSetBestand';\r\n    DataSetBestand.FieldName := 'Bestand';\r\n    DataSetArtikelmatchcode.SetParentComponent(DataSet);\r\n    DataSetArtikelmatchcode.Name := 'DataSetArtikelmatchcode';\r\n    DataSetArtikelmatchcode.FieldName := 'Artikelmatchcode';\r\n    DataSetArtikelmatchcode.Size := 30;\r\n    DataSetEAN.SetParentComponent(DataSet);\r\n    DataSetEAN.Name := 'DataSetEAN';\r\n    DataSetEAN.FieldName := 'EAN';\r\n    DataSetEAN.Size := 15;\r\n    DataSetEinkaufspreis.SetParentComponent(DataSet);\r\n    DataSetEinkaufspreis.Name := 'DataSetEinkaufspreis';\r\n    DataSetEinkaufspreis.FieldName := 'Einkaufspreis';\r\n    XDSNEU.SetParentComponent(Self);\r\n    XDSNEU.Name := 'XDSNEU';\r\n    XDSNEU.AfterApplyUpdates := XDSNEUAfterApplyUpdates;\r\n    XDSNEU.AfterOpen := XDSNEUAfterOpen;\r\n    XDSNEU.AfterPost := XDSNEUAfterPost;\r\n    XDSNEU.EntitySetName := 'InventurERF';\r\n    XDSNEU.Connection := DM2.XDataWebConnection1;\r\n    XDSNEU.QueryTop := 1;\r\n    XDSNEU.Left := 21;\r\n    XDSNEU.Top := 261;\r\n    XDSNEUArtikelnummer.SetParentComponent(XDSNEU);\r\n    XDSNEUArtikelnummer.Name := 'XDSNEUArtikelnummer';\r\n    XDSNEUArtikelnummer.FieldName := 'Artikelnummer';\r\n    XDSNEUArtikelnummer.Required := True;\r\n    XDSNEULager.SetParentComponent(XDSNEU);\r\n    XDSNEULager.Name := 'XDSNEULager';\r\n    XDSNEULager.FieldName := 'Lager';\r\n    XDSNEULager.Required := True;\r\n    XDSNEUInventurdatum.SetParentComponent(XDSNEU);\r\n    XDSNEUInventurdatum.Name := 'XDSNEUInventurdatum';\r\n    XDSNEUInventurdatum.FieldName := 'Inventurdatum';\r\n    XDSNEUInventurdatum.Required := True;\r\n    XDSNEUArtikelueberschrift.SetParentComponent(XDSNEU);\r\n    XDSNEUArtikelueberschrift.Name := 'XDSNEUArtikelueberschrift';\r\n    XDSNEUArtikelueberschrift.FieldName := 'Artikelueberschrift';\r\n    XDSNEUArtikelueberschrift.Size := 50;\r\n    XDSNEUArtikelbeschreibung.SetParentComponent(XDSNEU);\r\n    XDSNEUArtikelbeschreibung.Name := 'XDSNEUArtikelbeschreibung';\r\n    XDSNEUArtikelbeschreibung.FieldName := 'Artikelbeschreibung';\r\n    XDSNEUArtikelbeschreibung.Size := 255;\r\n    XDSNEUBestand.SetParentComponent(XDSNEU);\r\n    XDSNEUBestand.Name := 'XDSNEUBestand';\r\n    XDSNEUBestand.FieldName := 'Bestand';\r\n    XDSNEUBemerkung.SetParentComponent(XDSNEU);\r\n    XDSNEUBemerkung.Name := 'XDSNEUBemerkung';\r\n    XDSNEUBemerkung.FieldName := 'Bemerkung';\r\n    XDSNEUBemerkung.Size := 255;\r\n    XDSNEULetzterEK.SetParentComponent(XDSNEU);\r\n    XDSNEULetzterEK.Name := 'XDSNEULetzterEK';\r\n    XDSNEULetzterEK.FieldName := 'LetzterEK';\r\n    XDSNEUDurchschnittEK.SetParentComponent(XDSNEU);\r\n    XDSNEUDurchschnittEK.Name := 'XDSNEUDurchschnittEK';\r\n    XDSNEUDurchschnittEK.FieldName := 'DurchschnittEK';\r\n    XDSNEUBenutzergeaendert.SetParentComponent(XDSNEU);\r\n    XDSNEUBenutzergeaendert.Name := 'XDSNEUBenutzergeaendert';\r\n    XDSNEUBenutzergeaendert.FieldName := 'Benutzergeaendert';\r\n    XDSNEUBenutzergeaendert.Size := 50;\r\n    XDSNEUDatumgeaendert.SetParentComponent(XDSNEU);\r\n    XDSNEUDatumgeaendert.Name := 'XDSNEUDatumgeaendert';\r\n    XDSNEUDatumgeaendert.FieldName := 'Datumgeaendert';\r\n    XDSNEUArtikelEK.SetParentComponent(XDSNEU);\r\n    XDSNEUArtikelEK.Name := 'XDSNEUArtikelEK';\r\n    XDSNEUArtikelEK.FieldName := 'ArtikelEK';\r\n    XDSNEUBuchbestand.SetParentComponent(XDSNEU);\r\n    XDSNEUBuchbestand.Name := 'XDSNEUBuchbestand';\r\n    XDSNEUBuchbestand.FieldName := 'Buchbestand';\r\n    XDSNEUBuchbestandswert.SetParentComponent(XDSNEU);\r\n    XDSNEUBuchbestandswert.Name := 'XDSNEUBuchbestandswert';\r\n    XDSNEUBuchbestandswert.FieldName := 'Buchbestandswert';\r\n    XDSNEUDifferenzBestand.SetParentComponent(XDSNEU);\r\n    XDSNEUDifferenzBestand.Name := 'XDSNEUDifferenzBestand';\r\n    XDSNEUDifferenzBestand.FieldName := 'DifferenzBestand';\r\n    XDSNEUNeuerBestandswert.SetParentComponent(XDSNEU);\r\n    XDSNEUNeuerBestandswert.Name := 'XDSNEUNeuerBestandswert';\r\n    XDSNEUNeuerBestandswert.FieldName := 'NeuerBestandswert';\r\n    XDSNEUKorrekturDatum.SetParentComponent(XDSNEU);\r\n    XDSNEUKorrekturDatum.Name := 'XDSNEUKorrekturDatum';\r\n    XDSNEUKorrekturDatum.FieldName := 'KorrekturDatum';\r\n    XDSNEUDifferenzBestandswert.SetParentComponent(XDSNEU);\r\n    XDSNEUDifferenzBestandswert.Name := 'XDSNEUDifferenzBestandswert';\r\n    XDSNEUDifferenzBestandswert.FieldName := 'DifferenzBestandswert';\r\n  finally\r\n    labelinventuren.AfterLoadDFMValues;\r\n    LabelLetzteErfassungen.AfterLoadDFMValues;\r\n    labelsuchergebnis.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    Container3.AfterLoadDFMValues;\r\n    btnzurueck.AfterLoadDFMValues;\r\n    ComboLager.AfterLoadDFMValues;\r\n    Container4.AfterLoadDFMValues;\r\n    btnScan.AfterLoadDFMValues;\r\n    edtSuchbegriff.AfterLoadDFMValues;\r\n    edtMenge.AfterLoadDFMValues;\r\n    btnSpeichern.AfterLoadDFMValues;\r\n    TCErfassung.AfterLoadDFMValues;\r\n    TCLetzte10.AfterLoadDFMValues;\r\n    xdsInventurERF.AfterLoadDFMValues;\r\n    xdsInventurERFArtikelnummer.AfterLoadDFMValues;\r\n    xdsInventurERFLager.AfterLoadDFMValues;\r\n    xdsInventurERFInventurdatum.AfterLoadDFMValues;\r\n    xdsInventurERFArtikelueberschrift.AfterLoadDFMValues;\r\n    xdsInventurERFArtikelbeschreibung.AfterLoadDFMValues;\r\n    xdsInventurERFBestand.AfterLoadDFMValues;\r\n    xdsInventurERFBemerkung.AfterLoadDFMValues;\r\n    xdsInventurERFLetzterEK.AfterLoadDFMValues;\r\n    xdsInventurERFDurchschnittEK.AfterLoadDFMValues;\r\n    xdsInventurERFBenutzergeaendert.AfterLoadDFMValues;\r\n    xdsInventurERFDatumgeaendert.AfterLoadDFMValues;\r\n    xdsInventurERFArtikelEK.AfterLoadDFMValues;\r\n    xdsInventurERFBuchbestand.AfterLoadDFMValues;\r\n    xdsInventurERFBuchbestandswert.AfterLoadDFMValues;\r\n    xdsInventurERFDifferenzBestand.AfterLoadDFMValues;\r\n    xdsInventurERFNeuerBestandswert.AfterLoadDFMValues;\r\n    xdsInventurERFKorrekturDatum.AfterLoadDFMValues;\r\n    xdsInventurERFDifferenzBestandswert.AfterLoadDFMValues;\r\n    xdsInventurERFArtikelnummerArtikelnummer.AfterLoadDFMValues;\r\n    xdsInventurERFLagerLager.AfterLoadDFMValues;\r\n    xdsInventuren.AfterLoadDFMValues;\r\n    xdsInventurenInventurDatum.AfterLoadDFMValues;\r\n    xdsInventurenBearbeitung.AfterLoadDFMValues;\r\n    xdsLager.AfterLoadDFMValues;\r\n    xdsLagerLager.AfterLoadDFMValues;\r\n    DataSet.AfterLoadDFMValues;\r\n    DataSetArtikelnummer.AfterLoadDFMValues;\r\n    DataSetArtikelueberschrift.AfterLoadDFMValues;\r\n    DataSetArtikelbeschreibung.AfterLoadDFMValues;\r\n    DataSetVerkaufspreis.AfterLoadDFMValues;\r\n    DataSetBestand.AfterLoadDFMValues;\r\n    DataSetArtikelmatchcode.AfterLoadDFMValues;\r\n    DataSetEAN.AfterLoadDFMValues;\r\n    DataSetEinkaufspreis.AfterLoadDFMValues;\r\n    XDSNEU.AfterLoadDFMValues;\r\n    XDSNEUArtikelnummer.AfterLoadDFMValues;\r\n    XDSNEULager.AfterLoadDFMValues;\r\n    XDSNEUInventurdatum.AfterLoadDFMValues;\r\n    XDSNEUArtikelueberschrift.AfterLoadDFMValues;\r\n    XDSNEUArtikelbeschreibung.AfterLoadDFMValues;\r\n    XDSNEUBestand.AfterLoadDFMValues;\r\n    XDSNEUBemerkung.AfterLoadDFMValues;\r\n    XDSNEULetzterEK.AfterLoadDFMValues;\r\n    XDSNEUDurchschnittEK.AfterLoadDFMValues;\r\n    XDSNEUBenutzergeaendert.AfterLoadDFMValues;\r\n    XDSNEUDatumgeaendert.AfterLoadDFMValues;\r\n    XDSNEUArtikelEK.AfterLoadDFMValues;\r\n    XDSNEUBuchbestand.AfterLoadDFMValues;\r\n    XDSNEUBuchbestandswert.AfterLoadDFMValues;\r\n    XDSNEUDifferenzBestand.AfterLoadDFMValues;\r\n    XDSNEUNeuerBestandswert.AfterLoadDFMValues;\r\n    XDSNEUKorrekturDatum.AfterLoadDFMValues;\r\n    XDSNEUDifferenzBestandswert.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","unit Unit1;\r\n\r\ninterface\r\n\r\nuses\r\n  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,\r\n  WEBLib.Forms, WEBLib.Dialogs, Vcl.Controls, WEBLib.ExtCtrls, WEBLib.ComCtrls,\r\n  strutils, Vcl.StdCtrls, WEBLib.StdCtrls, dateutils,\r\n  WEBLib.Login, Data.DB, weblib.json, WEBLib.Storage,\r\n  XData.Web.JsonDataset, XData.Web.Dataset, WEBLib.Buttons,\r\n  WEBLib.DB, WEBLib.WebCtrls, WEBLib.DBCtrls, WEBLib.REST, XData.Web.Client,\r\n  XData.Web.Connection, Vcl.Menus, WEBLib.Menus, weblib.RegularExpressions;\r\n\r\n\r\ntype\r\n  TForm1 = class(TForm)\r\n    XDPersonal: TXDataWebDataSet;\r\n    XDPersonalPersonalnummer: TIntegerField;\r\n    XDPersonalNachname: TStringField;\r\n    XDPersonalVorname: TStringField;\r\n    XDPersonalSchreibzeichen: TStringField;\r\n    XDPersonalLoginName: TStringField;\r\n    XDPersonalPassword: TStringField;\r\n    XDPersonalEnabled: TBooleanField;\r\n    XDPersonalEmail: TStringField;\r\n    XDPersonalFarbe: TIntegerField;\r\n    lblAnmeldung: TLabel;\r\n    WebPanelMenue: TPanel;\r\n    panelAnmeldung: TPanel;\r\n    WebLabel3: TLabel;\r\n    edtBenutzer: TEdit;\r\n    edtPassword: TEdit;\r\n    btnAnmelden: TButton;\r\n    labelonlinestatus: TLabel;\r\n    WebDBLabel1: TDBLabel;\r\n    XDPersonalPersonalGUID: TStringField;\r\n    WebHttpRequest1: THttpRequest;\r\n    WClient: TXDataWebClient;\r\n    AuthConnection: TXDataWebConnection;\r\n    XDPersonalRechteCadiaWEB: TStringField;\r\n    Container1: THTMLContainer;\r\n    Container2: THTMLContainer;\r\n    lblchecklogin: TLabel;\r\n    btnLogout: TButton;\r\n    btnTermine: TButton;\r\n    btnEmails: TButton;\r\n    btnAnrufe: TButton;\r\n    btnPZE: TButton;\r\n    btnTelefonnummern: TButton;\r\n    XDPersonalStundensatzIntern: TFloatField;\r\n    btnMitteilungen: TButton;\r\n    xdsMitteilungen: TXDataWebDataSet;\r\n    xdsMitteilungenMSGBoardID: TXDataWebEntityField;\r\n    xdsMitteilungenToPersonalnummer: TXDataWebEntityField;\r\n    xdsMitteilungenMSGBoardSubID: TStringField;\r\n    xdsMitteilungenToNachname: TStringField;\r\n    xdsMitteilungenToVorname: TStringField;\r\n    xdsMitteilungenDatumGelesen: TDateTimeField;\r\n    xdsMitteilungenDatumErledigt: TDateTimeField;\r\n    xdsMitteilungenMSGBoardIDFromPersonalnummer: TXDataWebEntityField;\r\n    xdsMitteilungenMSGBoardIDID: TStringField;\r\n    xdsMitteilungenMSGBoardIDDatum: TDateTimeField;\r\n    xdsMitteilungenMSGBoardIDFromNachname: TStringField;\r\n    xdsMitteilungenMSGBoardIDFromVorname: TStringField;\r\n    xdsMitteilungenMSGBoardIDBetreff: TStringField;\r\n    xdsMitteilungenMSGBoardIDNotiz: TStringField;\r\n    xdsMitteilungenToPersonalnummerPersonalnummer: TIntegerField;\r\n    xdsMitteilungenMSGBoardIDFromPersonalnummerPersonalnummer: TIntegerField;\r\n    btnTickets: TButton;\r\n    btnBeenden: TButton;\r\n    Menue10055: TPanel;\r\n    btnLogbuch: TButton;\r\n    btnZurueck: TButton;\r\n    btnKontakte: TButton;\r\n    btnArtikel: TButton;\r\n    btnBestellvormerkung: TButton;\r\n    btnAngebote: TButton;\r\n    btnAuftrag: TButton;\r\n    btnLieferscheine: TButton;\r\n    btnBelegePositionen: TButton;\r\n    btnInventur: TButton;\r\n    btn14584: TButton;\r\n    procedure setcontrols;\r\n    procedure XDPersonalAfterOpen(DataSet: TDataSet);\r\n    procedure btnLogoutClick(Sender: TObject);\r\n    procedure btnTermineClick(Sender: TObject);\r\n    procedure btnArtikelClick(Sender: TObject);\r\n    procedure btnAnrufeClick(Sender: TObject);\r\n    procedure btnKontakteClick(Sender: TObject);\r\n    procedure btnAuftragClick(Sender: TObject);\r\n    procedure btnAnmeldenClick(Sender: TObject);\r\n    procedure edtBenutzerKeyPress(Sender: TObject; var Key: Char);\r\n    procedure edtPasswordKeyPress(Sender: TObject; var Key: Char);\r\n    procedure WebHttpRequest1Response(Sender: TObject; AResponse: string);\r\n    procedure AuthConnectionConnect(Sender: TObject);\r\n    procedure WebFormShow(Sender: TObject);\r\n    procedure btnAngeboteClick(Sender: TObject);\r\n    procedure btnPZEClick(Sender: TObject);\r\n    procedure btnEmailsClick(Sender: TObject);\r\n    procedure btnBelegePositionenClick(Sender: TObject);\r\n    procedure btnLieferscheineClick(Sender: TObject);\r\n    procedure WebFormCreate(Sender: TObject);\r\n    procedure WebFormBeforeUnload(Sender: TObject; var AMessage: string);\r\n    procedure btnBestellvormerkungClick(Sender: TObject);\r\n    procedure btnTelefonnummernClick(Sender: TObject);\r\n    procedure btnMitteilungenClick(Sender: TObject);\r\n    procedure xdsMitteilungenAfterOpen(DataSet: TDataSet);\r\n    procedure btnTicketsClick(Sender: TObject);\r\n    procedure btnBeendenClick(Sender: TObject);\r\n    procedure btn14584Click(Sender: TObject);\r\n    procedure btnZurueckClick(Sender: TObject);\r\n    procedure btnLogbuchClick(Sender: TObject);\r\n    procedure btnInventurClick(Sender: TObject);\r\n\r\n\r\n\r\n  public\r\n    type\r\n      TRechteCadiaWebR = Record\r\n        Zugelassen:boolean;\r\n        Kontakte:boolean;\r\n        Artikel:boolean;\r\n        OffeneAngebote:boolean;\r\n        OffeneAuftraege:boolean;\r\n        OffeneLieferscheine:boolean;\r\n        Termine:boolean;\r\n        NurPersTermine:boolean;\r\n        Emails:boolean;\r\n        BelegePositionen:boolean;\r\n        Anrufe:boolean;\r\n        Zeiterfassung:boolean;\r\n        Einkaufspreise:boolean;\r\n        Verkaufspreise:boolean;\r\n        Mitteilungen:boolean;\r\n        Inventur:boolean;\r\n    End;\r\n    var RCW:TRechteCadiaWebR;\r\n    var RCWLIST:TStringList;\r\n    webverlassen:string;\r\n    webverlassennichtfragen:boolean;\r\n    procedure RCWLISTtoRECORD;\r\n    procedure RCWleeren;\r\n    procedure AppOnlineChange(Sender:TObject; AStatus: TOnlineStatus);\r\n    procedure Tokenholen(Username, Password: string);\r\n    function XorStr(const Text: string; Key: Integer): string;\r\n    procedure KalkuliereMitteilungen;\r\n    function ValidateEmail(const emailAddress: string): Boolean;\r\n    function StripSonderzeichen(alterstring:string):string;\r\n  protected procedure LoadDFMValues; override; end;\r\n\r\nconst\r\n  Versionslabel1='©2025 Cadia Software GmbH Version ';\r\n  Versionslabel2='3.2.6';\r\n  Versionslabel3='27.03.2025';\r\n  Versionslabel4=' <a href=\"https://www.cadia.de\" target=\"_blank\">(cadia-Webseite)</a>';\r\n  CadiaAppKey='991783241';\r\n  CadiaAppKeyServerLizenz='123458420';\r\nvar\r\n  Form1: TForm1;\r\n  Versionslabel:string;\r\n  CadiaKundennummer:string;\r\n  BenutzerAngemeldet:Boolean;\r\n  BenutzerLoginName:string;\r\n  BenutzerPasswort:string;\r\n  BenutzerPersonalnummer:string;\r\n  BenutzerNachname:string;\r\n  BenutzerVorname:string;\r\n  BenutzerSchreibzeichen:string;\r\n  BenutzerEmail:string;\r\n  BenutzerFarbe:integer;\r\n  BenutzerID:string;\r\n  BenutzerStundensatzIntern:double;\r\n  TextAbsenderzeile:string;\r\n  xdataDATASERVER:string;\r\n  xdataconnectionstring:string;\r\n  xdataauthconnection:string;\r\n  downloadconnection:string;\r\n  xdatausername:string;\r\n  xdatapassword:string;\r\n  Merkerkontaktnummer:string;\r\n  MerkerArtikelnummer:string;\r\n  LizenzOK:boolean;\r\n  vtoken:string;\r\n  ajahr, amonat, atag,astunde,aminute,asekunde,ams:word;\r\n  scannereinstellung:string;\r\n  PZE_AutoObjektnummer:string;\r\n  PZE_AutoAuftragnummer:string;\r\n  PZE_Objekt_erlaubt:integer;\r\n  PZE_Auftrag_erlaubt:integer;\r\n\r\nimplementation\r\n  uses unit2, unit_Kontaktsuche, unit_Artikelsuche, unit_Objektsuche, unit_Einzeltermin, unit_EinzelAuftrag, unit_Anrufe, unit_Artikel,\r\n  unit_Terminkalender, unit_ListeAuftrag, unit_EinzelKontakt, unit_ListeAngebot, unit_PZE, unit_EmailEingang, unit_BelegeUndPositionen,\r\n  unit_ListeLieferschein, unit_Bestellvormerkung, unit_TelefonSuche, unit_Mitteilungen, unit_ListeTickets, unit_GetPhoto, unit_Logbuch,\r\n  unit_Inventur;\r\n{$R *.dfm}\r\n\r\nfunction TForm1.XorStr(const Text: string; Key: Integer): string;\r\nvar\r\n  i: Integer;\r\nbegin\r\n  SetLength(Result, Length(Text));\r\n  for i:=1 to Length(Text) do\r\n  begin\r\n    if Text[i] > #31 then\r\n      Result[i] := Chr(Ord(Text[i]) xor Key)\r\n    else\r\n      Result[i] := Text[i];\r\n  end;\r\nend;\r\n\r\nfunction TForm1.ValidateEmail(const emailAddress: string): Boolean;\r\nvar\r\n  RegEx: TRegEx;\r\nbegin\r\n  RegEx := TRegex.Create('^[a-zA-Z0-9_.+-]+@[a-zA-Z0-9-]+\\.[a-zA-Z0-9-.]*[a-zA-Z0-9]+$');\r\n  Result := RegEx.Match(emailAddress).Success;\r\nend;\r\n\r\nfunction TForm1.StripSonderzeichen(alterstring:string):string;\r\nvar\r\n  neustring:string;\r\nbegin\r\n  result:='';\r\n  neustring:=trim(alterstring);\r\n  neustring:=stringreplace(neustring,'.','_',[rfreplaceall]);\r\n  neustring:=stringreplace(neustring,'\\','_',[rfreplaceall]);\r\n  neustring:=stringreplace(neustring,'/','_',[rfreplaceall]);\r\n  neustring:=stringreplace(neustring,':','_',[rfreplaceall]);\r\n  neustring:=stringreplace(neustring,'*','_',[rfreplaceall]);\r\n  neustring:=stringreplace(neustring,'*','_',[rfreplaceall]);\r\n  neustring:=stringreplace(neustring,'\"','_',[rfreplaceall]);\r\n  neustring:=stringreplace(neustring,'~','_',[rfreplaceall]);\r\n  neustring:=stringreplace(neustring,'<','_',[rfreplaceall]);\r\n  neustring:=stringreplace(neustring,'>','_',[rfreplaceall]);\r\n  neustring:=stringreplace(neustring,'|','_',[rfreplaceall]);\r\n  neustring:=stringreplace(neustring,'{','_',[rfreplaceall]);\r\n  neustring:=stringreplace(neustring,'}','_',[rfreplaceall]);\r\n  neustring:=stringreplace(neustring,'[','_',[rfreplaceall]);\r\n  neustring:=stringreplace(neustring,']','_',[rfreplaceall]);\r\n  neustring:=stringreplace(neustring,' ','_',[rfreplaceall]);\r\n  neustring:=stringreplace(neustring,'&','_',[rfreplaceall]);\r\n  result:=neustring;\r\nend;\r\n\r\nprocedure TForm1.KalkuliereMitteilungen;\r\nbegin\r\n  btnMitteilungen.Caption:='Mitteilungen (-)';\r\n  btnMitteilungen.ElementClassName:='btn btn-info btn-sm text-center';\r\n  xdsMitteilungen.Close;\r\n  xdsMitteilungen.QueryString:='$expand=MSGBoardID, ToPersonalnummer, MSGBoardID/FromPersonalnummer&$filter=(ToPersonalnummer eq '+Benutzerpersonalnummer+') AND (DatumErledigt eq null OR DatumGelesen eq null)&$orderby=MSGBoardID/Datum DESC';\r\n  xdsMitteilungen.Load;\r\nend;\r\n\r\nprocedure TForm1.AppOnlineChange(Sender:TObject; AStatus: TOnlineStatus);\r\nbegin\r\n  if (Application.IsOnline) then labelonlinestatus.Caption:='online' else labelonlinestatus.Caption:='offline';\r\nend;\r\n\r\nprocedure TForm1.Tokenholen(Username, Password: string);\r\n  procedure OnResponse(Response:TXDataClientResponse);\r\n  begin\r\n    vtoken:=string(TJSObject(response.Result)['value']);\r\n    if xdataconnectionstring<>'' then\r\n    begin\r\n      dm2.XDataWebConnection1.url:=xdataconnectionstring;\r\n      dm2.xdatawebconnection1.Connected:=true;\r\n    end;\r\n  end;\r\nbegin\r\n  labelonlinestatus.Caption:='hole token';\r\n  WClient.RawInvoke('ILoginService.Login',[Username,Password],@OnResponse);\r\nend;\r\n\r\n\r\n\r\n\r\nprocedure TForm1.AuthConnectionConnect(Sender: TObject);\r\nbegin\r\n  Tokenholen(xdatausername,xdatapassword);\r\nend;\r\n\r\nprocedure TForm1.btn14584Click(Sender: TObject);\r\nbegin\r\n  //nur für 14584\r\n  Menue10055.Visible:=true;\r\n  Webpanelmenue.visible:=false;\r\nend;\r\n\r\nprocedure TForm1.btnAngeboteClick(Sender: TObject);\r\nvar\r\n  ListeAngebot:TListeAngebot;\r\nbegin\r\n  webpanelmenue.Visible:=false;\r\n\r\n\r\n  ListeAngebot := TListeAngebot.CreateNew(procedure(AForm: TObject)\r\n    begin\r\n\r\n    end\r\n    );\r\n\r\n  ListeAngebot.ShowModal(procedure(AValue: TModalResult)\r\n    begin\r\n      webpanelmenue.Visible:=true;\r\n    end\r\n    );\r\nend;\r\n\r\nprocedure TForm1.btnAnmeldenClick(Sender: TObject);\r\nbegin\r\n  lblchecklogin.Caption:='';\r\n  if edtbenutzer.text='' then\r\n  begin\r\n    lblchecklogin.Caption:='Sie müssen Ihren Benutzernamen eingeben';\r\n    edtbenutzer.SetFocus;\r\n    exit;\r\n  end;\r\n  if edtPassword.text='' then\r\n  begin\r\n    lblchecklogin.Caption:='Sie müssen Ihr Passwort eingeben';\r\n    edtpassword.SetFocus;\r\n    exit;\r\n  end;\r\n  if edtbenutzer.text='superuser' then\r\n  begin\r\n    lblchecklogin.Caption:='Diesen Benutzer dürfen Sie im WebPortal nicht verwenden';\r\n    edtbenutzer.SetFocus;\r\n    exit;\r\n\r\n  end;\r\n  BenutzerLoginName:=edtbenutzer.text;\r\n  BenutzerPasswort:=edtpassword.text;\r\n  xdpersonal.Close;\r\n  xdpersonal.QueryString:='$filter=LoginName eq '''+BenutzerLoginName+'''';\r\n  XDPersonal.Load;\r\nend;\r\n\r\nprocedure TForm1.btnAnrufeClick(Sender: TObject);\r\nvar\r\n  newform:TfrmAnrufe;\r\nbegin\r\n  newform := TfrmAnrufe.CreateNew;\r\nend;\r\n\r\nprocedure TForm1.btnArtikelClick(Sender: TObject);\r\nvar\r\n  LFrm:TfrmArtikelsuche;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmArtikelsuche;\r\n    begin\r\n      LForm:=(AForm as TfrmArtikelsuche);\r\n      lform.weiterzueinzelartikel:=true;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      webpanelmenue.Visible:=true;\r\n    end;\r\n\r\n  begin\r\n  webpanelmenue.Visible:=false;\r\n  LFrm:=TfrmArtikelsuche.CreateNew(@AfterCreate);\r\n  LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TForm1.btnAuftragClick(Sender: TObject);\r\nvar\r\n  ListeAuftrag:TListeAuftrag;\r\nbegin\r\n  webpanelmenue.Visible:=false;\r\n\r\n\r\nListeAuftrag := TListeAuftrag.CreateNew(procedure(AForm: TObject)\r\n    begin\r\n\r\n    end\r\n    );\r\n\r\n  ListeAuftrag.ShowModal(procedure(AValue: TModalResult)\r\n    begin\r\n      webpanelmenue.Visible:=true;\r\n    end\r\n    );\r\n\r\n\r\nend;\r\n\r\nprocedure TForm1.btnBeendenClick(Sender: TObject);\r\nbegin\r\n  webverlassennichtfragen:=true;\r\n  window.close;\r\n  try\r\n    application.Navigate('https://cadia.de',ntPage);\r\n  except\r\n\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TForm1.btnBelegePositionenClick(Sender: TObject);\r\nvar\r\n  LFrm:TBelegePositionen;\r\n  procedure AfterCreate(AForm:TObject);\r\n  var\r\n    LForm:TBelegePositionen;\r\n    begin\r\n      LForm:=(AForm as TBelegePositionen);\r\n      LForm.BPKundennummer:='';\r\n      LForm.BPName:='';\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      //MerkerKontaktnummer:=lfrm.Kontaktnummer;\r\n      //edtkontaktnummer.Text:=lfrm.Kontaktnummer;\r\n      //edtkontaktnummerChange(nil);\r\n      //noch implementieren\r\n    end;\r\n  begin\r\n    LFrm:=TBelegePositionen.CreateNew(@AfterCreate);\r\n    LFrm.ShowModal(@AfterShowmodal);\r\nend;\r\n\r\nprocedure TForm1.btnBestellvormerkungClick(Sender: TObject);\r\nvar\r\n  LFrm:TBestellvormerkung;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TBestellvormerkung;\r\n    begin\r\n      LForm:=(AForm as TBestellvormerkung);\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      webpanelmenue.Visible:=true;\r\n    end;\r\n\r\n  begin\r\n  webpanelmenue.Visible:=false;\r\n  LFrm:=TBestellvormerkung.CreateNew(@AfterCreate);\r\n  LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TForm1.btnEmailsClick(Sender: TObject);\r\nvar\r\n  newform:TEmailEingang;\r\nbegin\r\n  newform := TEmailEingang.CreateNew;\r\nend;\r\n\r\nprocedure TForm1.btnInventurClick(Sender: TObject);\r\nvar\r\n  LFrm:TfrmInventur;\r\n  procedure AfterCreate(AForm:TObject);\r\n  var\r\n    LForm:TfrmInventur;\r\n    begin\r\n      LForm:=(AForm as TfrmInventur);\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      //MerkerKontaktnummer:=lfrm.Kontaktnummer;\r\n      //edtkontaktnummer.Text:=lfrm.Kontaktnummer;\r\n      //edtkontaktnummerChange(nil);\r\n      //noch implementieren\r\n    end;\r\n  begin\r\n    LFrm:=TfrmInventur.CreateNew(@AfterCreate);\r\n    LFrm.ShowModal(@AfterShowmodal);\r\nend;\r\n\r\nprocedure TForm1.btnKontakteClick(Sender: TObject);\r\nvar\r\n  LFrm:TfrmKontaktsuche;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmKontaktsuche;\r\n    begin\r\n      LForm:=(AForm as TfrmKontaktsuche);\r\n      lform.weiterzuEinzelkontakt:=true;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      webpanelmenue.Visible:=true;\r\n    end;\r\n\r\n  begin\r\n  webpanelmenue.Visible:=false;\r\n  LFrm:=TfrmKontaktsuche.CreateNew(@AfterCreate);\r\n  LFrm.ShowModal(@AfterShowmodal);\r\nend;\r\n\r\nprocedure TForm1.btnLieferscheineClick(Sender: TObject);\r\nvar\r\n  newform:TListeLieferschein;\r\nbegin\r\n  newform := TListeLieferschein.CreateNew;\r\nend;\r\n\r\nprocedure TForm1.btnLogbuchClick(Sender: TObject);\r\nvar\r\n  newform:TfrmLogbuch;\r\nbegin\r\n  newform := TfrmLogbuch.CreateNew;\r\n\r\nend;\r\n\r\nprocedure TForm1.btnLogoutClick(Sender: TObject);\r\nbegin\r\n  btnlogout.Visible:=false;\r\n  dm2.XDataWebConnection1.Connected:=false;\r\n  lblchecklogin.Caption:='';\r\n  BenutzerAngemeldet:=false;\r\n  BenutzerLoginName:='';\r\n  BenutzerPasswort:='';\r\n  BenutzerPersonalnummer:='';\r\n  BenutzerNachname:='';\r\n  BenutzerVorname:='';\r\n  BenutzerSchreibzeichen:='';\r\n  BenutzerEmail:='';\r\n  BenutzerStundensatzIntern:=0;\r\n  SetControls;\r\nend;\r\n\r\nprocedure TForm1.btnMitteilungenClick(Sender: TObject);\r\nvar\r\n  LFrm:TMitteilungen;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TMitteilungen;\r\n    begin\r\n      LForm:=(AForm as TMitteilungen);\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      webpanelmenue.Visible:=true;\r\n      KalkuliereMitteilungen;\r\n    end;\r\n\r\n  begin\r\n  webpanelmenue.Visible:=false;\r\n  LFrm:=TMitteilungen.CreateNew(@AfterCreate);\r\n  LFrm.ShowModal(@AfterShowmodal);\r\nend;\r\n\r\nprocedure TForm1.btnPZEClick(Sender: TObject);\r\nvar\r\n  newform:TPZE;\r\nbegin\r\n  PZE_AutoObjektnummer:='';\r\n  PZE_AutoAuftragnummer:='';\r\n  newform := TPZE.CreateNew;\r\nend;\r\n\r\nprocedure TForm1.btnTelefonnummernClick(Sender: TObject);\r\nvar\r\n  LFrm:TfrmTelefonSuche;\r\n    procedure AfterCreate(AForm:TObject);\r\n    var\r\n      LForm:TfrmTelefonSuche;\r\n    begin\r\n      LForm:=(AForm as TfrmTelefonSuche);\r\n      lform.weiterzuEinzelkontakt:=true;\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      webpanelmenue.Visible:=true;\r\n\r\n    end;\r\n\r\n  begin\r\n  webpanelmenue.Visible:=false;\r\n  LFrm:=TfrmTelefonSuche.CreateNew(@AfterCreate);\r\n  LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TForm1.btnTermineClick(Sender: TObject);\r\nvar\r\n  Terminkalender:TTerminkalender;\r\nbegin\r\n  webpanelmenue.Visible:=false;\r\n  Terminkalender := TTerminkalender.CreateNew(procedure(AForm: TObject)\r\n    begin\r\n\r\n    end\r\n    );\r\n\r\n  Terminkalender.ShowModal(procedure(AValue: TModalResult)\r\n    begin\r\n      webpanelmenue.Visible:=true;\r\n    end\r\n    );\r\nend;\r\n\r\nprocedure TForm1.btnTicketsClick(Sender: TObject);\r\nvar\r\n  LFrm:TListeTickets;\r\n  procedure AfterCreate(AForm:TObject);\r\n  var\r\n    LForm:TListeTickets;\r\n    begin\r\n      LForm:=(AForm as TListeTickets);\r\n\r\n    end;\r\n\r\n    procedure AfterShowmodal(Avalue:TModalResult);\r\n    begin\r\n      //MerkerKontaktnummer:=lfrm.Kontaktnummer;\r\n      //edtkontaktnummer.Text:=lfrm.Kontaktnummer;\r\n      //edtkontaktnummerChange(nil);\r\n      //noch implementieren\r\n    end;\r\n  begin\r\n    LFrm:=TListeTickets.CreateNew(@AfterCreate);\r\n    LFrm.ShowModal(@AfterShowmodal);\r\n\r\nend;\r\n\r\nprocedure TForm1.btnZurueckClick(Sender: TObject);\r\nbegin\r\n  Menue10055.Visible:=false;\r\n  Webpanelmenue.visible:=true;\r\nend;\r\n\r\nprocedure TForm1.edtBenutzerKeyPress(Sender: TObject; var Key: Char);\r\nbegin\r\nif key=#13 then edtPassword.SetFocus;\r\n\r\nend;\r\n\r\nprocedure TForm1.edtPasswordKeyPress(Sender: TObject; var Key: Char);\r\nbegin\r\nif key=#13 then btnAnmeldenClick(sender);\r\n\r\nend;\r\n\r\nprocedure TForm1.setcontrols;\r\nvar\r\n  mylocalstorage:TLocalStorage;\r\n  myelement:TJSHTMLElement;\r\nbegin\r\n  Container1.html.text:='<nav class=\"navbar m-1 rounded bg-info\"><h4>CadiaWEB</h4><small>'+Versionslabel+'</small></nav>';\r\n\r\n  myelement:=Container1.ElementHandle;\r\n  lblAnmeldung.ParentElement:=myelement;\r\n  labelonlinestatus.ParentElement:=myelement;\r\n  WebDBLabel1.ParentElement:=myelement;\r\n  container2.ParentElement:=myelement;\r\n  myelement:=container2.ElementHandle;\r\n  panelanmeldung.ParentElement:=myelement;\r\n  WebPanelMenue.ParentElement:=myelement;\r\n  Menue10055.ParentElement:=myelement;\r\n\r\n\r\n  if BenutzerAngemeldet then\r\n  begin\r\n    btnLogout.Visible:=true;\r\n    lblAnmeldung.Caption:='User: '+BenutzerPersonalnummer+' | '+BenutzerLoginName+' | '+BenutzerNachname+', '+BenutzerVorname;\r\n    WebPanelMenue.Visible:=true;\r\n    panelAnmeldung.Visible:=false;\r\n    btnkontakte.enabled:=rcw.Kontakte;\r\n    btnartikel.enabled:=rcw.Artikel;\r\n    btnangebote.enabled:=rcw.OffeneAngebote;\r\n    btnauftrag.enabled:=rcw.offeneAuftraege;\r\n    btnlieferscheine.enabled:=rcw.offeneLieferscheine;\r\n    btntermine.enabled:=rcw.termine;\r\n    btnemails.enabled:=rcw.emails;\r\n    btnbelegepositionen.enabled:=rcw.belegepositionen;\r\n    btnAnrufe.enabled:=rcw.Anrufe;\r\n    btnPZE.enabled:=rcw.Zeiterfassung;\r\n    btnMitteilungen.Enabled:=RCW.Mitteilungen;\r\n    btnInventur.Enabled:=RCW.Inventur;\r\n    if CadiaKundennummer='14584' then\r\n    begin\r\n      btn14584.Visible:=true;\r\n      btn14584.Enabled:=true;\r\n    end;\r\n  end\r\n  else\r\n  begin\r\n    btn14584.Visible:=false;\r\n    btn14584.Enabled:=false;\r\n    btnLogout.Visible:=false;\r\n    lblanmeldung.Caption:='Sie sind nicht angemeldet';\r\n    WebPanelMenue.Visible:=false;\r\n    panelanmeldung.Visible:=true;\r\n    mylocalstorage:=TLocalStorage.Create;\r\n    edtBenutzer.text:=mylocalstorage.GetValue('CadiaWEBBenutzer');\r\n    scannereinstellung:=mylocalstorage.GetValue('CadiaWEBScanner');\r\n    if scannereinstellung='' then scannereinstellung:='11111111111';\r\n    mylocalstorage.Free;\r\n    edtbenutzer.SetFocus;\r\n    if edtbenutzer.Text<>'' then edtPassword.SetFocus;\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TForm1.WebFormBeforeUnload(Sender: TObject; var AMessage: string);\r\nbegin\r\n  if webverlassennichtfragen=false then AMessage:=webverlassen;\r\nend;\r\n\r\nprocedure TForm1.WebFormCreate(Sender: TObject);\r\nbegin\r\n  RCWLIST:=TStringList.Create;\r\n  RCWLIST.NameValueSeparator:='|';\r\n  PZE_Objekt_erlaubt:=0;\r\n  PZE_Auftrag_erlaubt:=0;\r\nend;\r\n\r\nprocedure TForm1.WebFormShow(Sender: TObject);\r\nbegin\r\n  CadiaKundennummer:='';\r\n  btn14584.visible:=false;\r\n  btn14584.Enabled:=false;\r\n  btnAnmelden.Enabled:=false;\r\n  application.OnOnlineChange:=AppOnlineChange;\r\n  Versionslabel:=Versionslabel1+Versionslabel2+' vom '+Versionslabel3+Versionslabel4;\r\n  webverlassennichtfragen:=false;\r\n  webverlassen:='CadiaWEB verlassen?';\r\n  lblchecklogin.Caption:='';\r\n  BenutzerStundensatzIntern:=0;\r\n  setcontrols;\r\n  LizenzOK:=false;\r\n  WebHttpRequest1.Execute;\r\nend;\r\n\r\nprocedure TForm1.WebHttpRequest1Response(Sender: TObject; AResponse: string);\r\nvar\r\n  RStringList:TStringList;\r\n  s:string;\r\nbegin\r\n  if aresponse='' then\r\n  begin\r\n    showmessage('Die Konfigurationsdatei ist nicht vorhanden oder fehlerhaft');\r\n    exit;\r\n  end;\r\n  if aresponse<>'' then\r\n  begin\r\n    RStringList:=TStringList.Create;\r\n    RStringList.Text:=aresponse;\r\n    s:= XorStr(RStringList.Strings[0],25);\r\n    xdataDATASERVER:=trim(ReplaceStr(s,'DATASERVER=',''));\r\n    if RightStr(xdataDATASERVER,1)<>'/' then xdataDATASERVER:=xdataDATASERVER+'/';\r\n    xdataconnectionstring:=xdataDATASERVER+'cadiaserver/xdata';\r\n    downloadconnection:=xdataDATASERVER+'cadiaserver/filedownload?FileName=';\r\n    xdataauthconnection:=xdataDATASERVER+'cadiaserverauth';\r\n    s:= XorStr(RStringList.Strings[1],25);\r\n    xdatausername:=trim(ReplaceStr(s,'USERNAME=',''));\r\n    s:= XorStr(RStringList.Strings[2],25);\r\n    xdatapassword:=trim(ReplaceStr(s,'PASSWORD=',''));\r\n    AuthConnection.Connected:=false;\r\n    AuthConnection.URL:=xdataauthconnection;\r\n    authconnection.Connected:=true;\r\n  end;\r\nend;\r\n\r\nprocedure TForm1.XDPersonalAfterOpen(DataSet: TDataSet);\r\nvar\r\n  mylocalstorage:TLocalStorage;\r\n  logbuchurl:string;\r\nbegin\r\n  if xdpersonal.RecordCount<1 then\r\n  begin\r\n    lblchecklogin.Caption:='Anmeldung ist fehlgeschlagen, bitte versuchen Sie es erneut mit den richtigen Eingaben';\r\n    xdpersonal.Close;\r\n    exit;\r\n  end;\r\n  xdpersonal.First;\r\n\r\n    if (XDPersonalPassword.AsString=BenutzerPasswort) AND (XDPersonalLoginName.AsString=BenutzerLoginName) then\r\n    begin\r\n      if XDPersonalEnabled.AsBoolean=true then\r\n      begin\r\n        BenutzerAngemeldet:=true;\r\n        BenutzerPersonalnummer:=XDPersonalPersonalnummer.AsString;\r\n        BenutzerLoginName:=XDPersonalLoginName.AsString;\r\n        BenutzerNachname:=XDPersonalNachname.AsString;\r\n        BenutzerVorname:=XDPersonalVorname.AsString;\r\n        BenutzerSchreibzeichen:=XDPersonalSchreibzeichen.AsString;\r\n        BenutzerEmail:=XDPersonalEmail.AsString;\r\n        BenutzerFarbe:=XDPersonalFarbe.AsInteger;\r\n        BenutzerID:=XDPersonalPersonalGUID.AsString;\r\n        BenutzerStundensatzIntern:=XDPersonalStundensatzIntern.AsFloat;\r\n        RCWlist.text:=xdpersonalrechtecadiaweb.asstring;\r\n        RCWleeren;\r\n        RCWLISTtoRECORD;\r\n        mylocalstorage:=Tlocalstorage.Create;\r\n        mylocalstorage.SetValue('CadiaWEBBenutzer',BenutzerLoginName);\r\n        if scannereinstellung='' then scannereinstellung:='11111111111';\r\n        mylocalstorage.SetValue('CadiaWEBScanner',scannereinstellung);\r\n        mylocalstorage.Free;\r\n        lblchecklogin.Caption:='Anmeldung erfolgreich'+booltostr(rcw.kontakte);\r\n\r\n\r\n        //(Kundennummer:string;AppKey:string;UserName:string;UserID:string;Absenderzeile:string;Versiondate:string):string;\r\n        logbuchurl:='https://cadia-software.net/cadiaautoserver/xdata/InformationService/cwlogbuch?Kundennummer='+dm2.tableSYSDATCadiaKundennummer.AsString+'&AppKey='+CadiaAppKey+'&UserName='+BenutzerNachname;\r\n        logbuchurl:=logbuchurl+'&UserID='+BenutzerID;\r\n        //logbuchurl:=logbuchurl+'&Absenderzeile='+Leftstr(dm2.tableSYSDATAbsenderzeile.asstring,70);\r\n        if textabsenderzeile='' then TextAbsenderzeile:='unbekannt';\r\n\r\n        logbuchurl:=logbuchurl+'&Absenderzeile='+TextAbsenderzeile;\r\n        logbuchurl:=logbuchurl+'&Versiondate='+Versionslabel3;\r\n        logbuchurl:=logbuchurl+'&Versionnumber='+Versionslabel2;\r\n        dm2.WebHttpRequestLogbuch.URL:=logbuchurl;\r\n\r\n        dm2.WebHttpRequestLogbuch.Execute;\r\n        KalkuliereMitteilungen;\r\n      end\r\n      else\r\n      begin\r\n        lblchecklogin.Caption:='Dieser Benutzer ist nicht zugelassen';\r\n      end;\r\n    end\r\n    else\r\n    begin\r\n      lblchecklogin.Caption:='Anmeldung ist fehlgeschlagen, bitte versuchen Sie es erneut mit den richtigen Eingaben';\r\n    end;\r\n\r\n  xdpersonal.Close;\r\n  form1.SetControls;\r\nend;\r\n\r\n\r\nprocedure TForm1.xdsMitteilungenAfterOpen(DataSet: TDataSet);\r\nbegin\r\n  btnMitteilungen.Caption:='Mitteilungen ('+inttostr(xdsMitteilungen.RecordCount)+')';\r\n  if xdsMitteilungen.RecordCount>0 then\r\n  begin\r\n    btnMitteilungen.ElementClassName:='btn btn-danger btn-sm text-center m-1';\r\n  end\r\n  else\r\n  begin\r\n    btnMitteilungen.ElementClassName:='btn btn-info btn-sm text-center m-1';\r\n  end;\r\n  xdsMitteilungen.Close;\r\nend;\r\n\r\nprocedure TForm1.RCWLISTtoRECORD;\r\nbegin\r\n\r\n  if RCWLIST.Values['Zugelassen']<>'' then RCW.Zugelassen:=strtobool(RCWLIST.Values['Zugelassen']) else RCW.Zugelassen:=TRUE;\r\n  if RCWLIST.Values['Kontakte']<>'' then RCW.Kontakte:=strtobool(RCWLIST.Values['Kontakte']) else RCW.Kontakte:=TRUE;\r\n  if RCWLIST.Values['Artikel']<>'' then RCW.Artikel:=strtobool(RCWLIST.Values['Artikel']) else RCW.Artikel:=TRUE;\r\n  if RCWLIST.Values['OffeneAngebote']<>'' then RCW.OffeneAngebote:=strtobool(RCWLIST.Values['OffeneAngebote']) else RCW.OffeneAngebote:=TRUE;\r\n  if RCWLIST.Values['OffeneAuftraege']<>'' then RCW.OffeneAuftraege:=strtobool(RCWLIST.Values['OffeneAuftraege']) else RCW.OffeneAuftraege:=TRUE;\r\n  if RCWLIST.Values['OffeneLieferscheine']<>'' then RCW.OffeneLieferscheine:=strtobool(RCWLIST.Values['OffeneLieferscheine']) else RCW.OffeneLieferscheine:=TRUE;\r\n  if RCWLIST.Values['Termine']<>'' then RCW.Termine:=strtobool(RCWLIST.Values['Termine']) else RCW.Termine:=TRUE;\r\n  if RCWLIST.Values['NurPersTermine']<>'' then RCW.NurPersTermine:=strtobool(RCWLIST.Values['NurPersTermine']) else RCW.NurPersTermine:=FALSE;\r\n  if RCWLIST.Values['Emails']<>'' then RCW.Emails:=strtobool(RCWLIST.Values['Emails']) else RCW.Emails:=TRUE;\r\n  if RCWLIST.Values['BelegePositionen']<>'' then RCW.BelegePositionen:=strtobool(RCWLIST.Values['BelegePositionen']) else RCW.BelegePositionen:=TRUE;\r\n  if RCWLIST.Values['Anrufe']<>'' then RCW.Anrufe:=strtobool(RCWLIST.Values['Anrufe']) else RCW.Anrufe:=TRUE;\r\n  if RCWLIST.Values['Zeiterfassung']<>'' then RCW.Zeiterfassung:=strtobool(RCWLIST.Values['Zeiterfassung']) else RCW.Zeiterfassung:=TRUE;\r\n  if RCWLIST.Values['Einkaufspreise']<>'' then RCW.Einkaufspreise:=strtobool(RCWLIST.Values['Einkaufspreise']) else RCW.Einkaufspreise:=TRUE;\r\n  if RCWLIST.Values['Verkaufspreise']<>'' then RCW.Verkaufspreise:=strtobool(RCWLIST.Values['Verkaufspreise']) else RCW.Verkaufspreise:=TRUE;\r\n  if RCWLIST.Values['Mitteilungen']<>'' then RCW.Mitteilungen:=strtobool(RCWLIST.Values['Mitteilungen']) else RCW.Mitteilungen:=TRUE;\r\n  if RCWLIST.Values['Inventur']<>'' then RCW.Inventur:=strtobool(RCWLIST.Values['Inventur']) else RCW.Inventur:=TRUE;\r\nend;\r\n\r\nprocedure TForm1.RCWleeren;\r\nbegin\r\n  RCW.Zugelassen:=True;\r\n  RCW.Kontakte:=True;\r\n  RCW.Artikel:=True;\r\n  RCW.OffeneAngebote:=True;\r\n  RCW.OffeneAuftraege:=True;\r\n  RCW.OffeneLieferscheine:=True;\r\n  RCW.Termine:=True;\r\n  RCW.NurPersTermine:=false;\r\n  RCW.Emails:=True;\r\n  RCW.BelegePositionen:=True;\r\n  RCW.Anrufe:=True;\r\n  RCW.Zeiterfassung:=True;\r\n  RCW.Einkaufspreise:=True;\r\n  RCW.Verkaufspreise:=True;\r\n  RCW.Mitteilungen:=True;\r\n  RCW.Inventur:=True;\r\nend;\r\n\r\nprocedure TForm1.LoadDFMValues;\r\nbegin\r\n  inherited LoadDFMValues;\r\n\r\n  lblAnmeldung := TLabel.Create(Self);\r\n  labelonlinestatus := TLabel.Create(Self);\r\n  WebDBLabel1 := TDBLabel.Create(Self);\r\n  panelAnmeldung := TPanel.Create(Self);\r\n  WebLabel3 := TLabel.Create(Self);\r\n  lblchecklogin := TLabel.Create(Self);\r\n  edtBenutzer := TEdit.Create(Self);\r\n  edtPassword := TEdit.Create(Self);\r\n  btnAnmelden := TButton.Create(Self);\r\n  Container1 := THTMLContainer.Create(Self);\r\n  Container2 := THTMLContainer.Create(Self);\r\n  WebPanelMenue := TPanel.Create(Self);\r\n  btnLogout := TButton.Create(Self);\r\n  btnTermine := TButton.Create(Self);\r\n  btnEmails := TButton.Create(Self);\r\n  btnAnrufe := TButton.Create(Self);\r\n  btnPZE := TButton.Create(Self);\r\n  btnTelefonnummern := TButton.Create(Self);\r\n  btnMitteilungen := TButton.Create(Self);\r\n  btnTickets := TButton.Create(Self);\r\n  btnBeenden := TButton.Create(Self);\r\n  btnKontakte := TButton.Create(Self);\r\n  btnArtikel := TButton.Create(Self);\r\n  btnBestellvormerkung := TButton.Create(Self);\r\n  btnAngebote := TButton.Create(Self);\r\n  btnAuftrag := TButton.Create(Self);\r\n  btnLieferscheine := TButton.Create(Self);\r\n  btnBelegePositionen := TButton.Create(Self);\r\n  btnInventur := TButton.Create(Self);\r\n  btn14584 := TButton.Create(Self);\r\n  Menue10055 := TPanel.Create(Self);\r\n  btnLogbuch := TButton.Create(Self);\r\n  btnZurueck := TButton.Create(Self);\r\n  XDPersonal := TXDataWebDataSet.Create(Self);\r\n  XDPersonalPersonalnummer := TIntegerField.Create(Self);\r\n  XDPersonalNachname := TStringField.Create(Self);\r\n  XDPersonalVorname := TStringField.Create(Self);\r\n  XDPersonalSchreibzeichen := TStringField.Create(Self);\r\n  XDPersonalLoginName := TStringField.Create(Self);\r\n  XDPersonalPassword := TStringField.Create(Self);\r\n  XDPersonalEnabled := TBooleanField.Create(Self);\r\n  XDPersonalEmail := TStringField.Create(Self);\r\n  XDPersonalFarbe := TIntegerField.Create(Self);\r\n  XDPersonalPersonalGUID := TStringField.Create(Self);\r\n  XDPersonalRechteCadiaWEB := TStringField.Create(Self);\r\n  XDPersonalStundensatzIntern := TFloatField.Create(Self);\r\n  WebHttpRequest1 := THttpRequest.Create(Self);\r\n  WClient := TXDataWebClient.Create(Self);\r\n  AuthConnection := TXDataWebConnection.Create(Self);\r\n  xdsMitteilungen := TXDataWebDataSet.Create(Self);\r\n  xdsMitteilungenMSGBoardID := TXDataWebEntityField.Create(Self);\r\n  xdsMitteilungenToPersonalnummer := TXDataWebEntityField.Create(Self);\r\n  xdsMitteilungenMSGBoardSubID := TStringField.Create(Self);\r\n  xdsMitteilungenToNachname := TStringField.Create(Self);\r\n  xdsMitteilungenToVorname := TStringField.Create(Self);\r\n  xdsMitteilungenDatumGelesen := TDateTimeField.Create(Self);\r\n  xdsMitteilungenDatumErledigt := TDateTimeField.Create(Self);\r\n  xdsMitteilungenMSGBoardIDFromPersonalnummer := TXDataWebEntityField.Create(Self);\r\n  xdsMitteilungenMSGBoardIDID := TStringField.Create(Self);\r\n  xdsMitteilungenMSGBoardIDDatum := TDateTimeField.Create(Self);\r\n  xdsMitteilungenMSGBoardIDFromNachname := TStringField.Create(Self);\r\n  xdsMitteilungenMSGBoardIDFromVorname := TStringField.Create(Self);\r\n  xdsMitteilungenMSGBoardIDBetreff := TStringField.Create(Self);\r\n  xdsMitteilungenMSGBoardIDNotiz := TStringField.Create(Self);\r\n  xdsMitteilungenToPersonalnummerPersonalnummer := TIntegerField.Create(Self);\r\n  xdsMitteilungenMSGBoardIDFromPersonalnummerPersonalnummer := TIntegerField.Create(Self);\r\n\r\n  lblAnmeldung.BeforeLoadDFMValues;\r\n  labelonlinestatus.BeforeLoadDFMValues;\r\n  WebDBLabel1.BeforeLoadDFMValues;\r\n  panelAnmeldung.BeforeLoadDFMValues;\r\n  WebLabel3.BeforeLoadDFMValues;\r\n  lblchecklogin.BeforeLoadDFMValues;\r\n  edtBenutzer.BeforeLoadDFMValues;\r\n  edtPassword.BeforeLoadDFMValues;\r\n  btnAnmelden.BeforeLoadDFMValues;\r\n  Container1.BeforeLoadDFMValues;\r\n  Container2.BeforeLoadDFMValues;\r\n  WebPanelMenue.BeforeLoadDFMValues;\r\n  btnLogout.BeforeLoadDFMValues;\r\n  btnTermine.BeforeLoadDFMValues;\r\n  btnEmails.BeforeLoadDFMValues;\r\n  btnAnrufe.BeforeLoadDFMValues;\r\n  btnPZE.BeforeLoadDFMValues;\r\n  btnTelefonnummern.BeforeLoadDFMValues;\r\n  btnMitteilungen.BeforeLoadDFMValues;\r\n  btnTickets.BeforeLoadDFMValues;\r\n  btnBeenden.BeforeLoadDFMValues;\r\n  btnKontakte.BeforeLoadDFMValues;\r\n  btnArtikel.BeforeLoadDFMValues;\r\n  btnBestellvormerkung.BeforeLoadDFMValues;\r\n  btnAngebote.BeforeLoadDFMValues;\r\n  btnAuftrag.BeforeLoadDFMValues;\r\n  btnLieferscheine.BeforeLoadDFMValues;\r\n  btnBelegePositionen.BeforeLoadDFMValues;\r\n  btnInventur.BeforeLoadDFMValues;\r\n  btn14584.BeforeLoadDFMValues;\r\n  Menue10055.BeforeLoadDFMValues;\r\n  btnLogbuch.BeforeLoadDFMValues;\r\n  btnZurueck.BeforeLoadDFMValues;\r\n  XDPersonal.BeforeLoadDFMValues;\r\n  XDPersonalPersonalnummer.BeforeLoadDFMValues;\r\n  XDPersonalNachname.BeforeLoadDFMValues;\r\n  XDPersonalVorname.BeforeLoadDFMValues;\r\n  XDPersonalSchreibzeichen.BeforeLoadDFMValues;\r\n  XDPersonalLoginName.BeforeLoadDFMValues;\r\n  XDPersonalPassword.BeforeLoadDFMValues;\r\n  XDPersonalEnabled.BeforeLoadDFMValues;\r\n  XDPersonalEmail.BeforeLoadDFMValues;\r\n  XDPersonalFarbe.BeforeLoadDFMValues;\r\n  XDPersonalPersonalGUID.BeforeLoadDFMValues;\r\n  XDPersonalRechteCadiaWEB.BeforeLoadDFMValues;\r\n  XDPersonalStundensatzIntern.BeforeLoadDFMValues;\r\n  WebHttpRequest1.BeforeLoadDFMValues;\r\n  WClient.BeforeLoadDFMValues;\r\n  AuthConnection.BeforeLoadDFMValues;\r\n  xdsMitteilungen.BeforeLoadDFMValues;\r\n  xdsMitteilungenMSGBoardID.BeforeLoadDFMValues;\r\n  xdsMitteilungenToPersonalnummer.BeforeLoadDFMValues;\r\n  xdsMitteilungenMSGBoardSubID.BeforeLoadDFMValues;\r\n  xdsMitteilungenToNachname.BeforeLoadDFMValues;\r\n  xdsMitteilungenToVorname.BeforeLoadDFMValues;\r\n  xdsMitteilungenDatumGelesen.BeforeLoadDFMValues;\r\n  xdsMitteilungenDatumErledigt.BeforeLoadDFMValues;\r\n  xdsMitteilungenMSGBoardIDFromPersonalnummer.BeforeLoadDFMValues;\r\n  xdsMitteilungenMSGBoardIDID.BeforeLoadDFMValues;\r\n  xdsMitteilungenMSGBoardIDDatum.BeforeLoadDFMValues;\r\n  xdsMitteilungenMSGBoardIDFromNachname.BeforeLoadDFMValues;\r\n  xdsMitteilungenMSGBoardIDFromVorname.BeforeLoadDFMValues;\r\n  xdsMitteilungenMSGBoardIDBetreff.BeforeLoadDFMValues;\r\n  xdsMitteilungenMSGBoardIDNotiz.BeforeLoadDFMValues;\r\n  xdsMitteilungenToPersonalnummerPersonalnummer.BeforeLoadDFMValues;\r\n  xdsMitteilungenMSGBoardIDFromPersonalnummerPersonalnummer.BeforeLoadDFMValues;\r\n  try\r\n    Name := 'Form1';\r\n    Width := 637;\r\n    Height := 585;\r\n    CSSLibrary := cssBootstrap;\r\n    ElementFont := efCSS;\r\n    SetEvent(Self, 'OnBeforeUnload', 'WebFormBeforeUnload');\r\n    SetEvent(Self, 'OnCreate', 'WebFormCreate');\r\n    SetEvent(Self, 'OnShow', 'WebFormShow');\r\n    lblAnmeldung.SetParentComponent(Self);\r\n    lblAnmeldung.Name := 'lblAnmeldung';\r\n    lblAnmeldung.Left := -1;\r\n    lblAnmeldung.Top := 458;\r\n    lblAnmeldung.Width := 76;\r\n    lblAnmeldung.Height := 15;\r\n    lblAnmeldung.Margins.Top := 0;\r\n    lblAnmeldung.Margins.Bottom := 0;\r\n    lblAnmeldung.Caption := 'lblAnmeldung';\r\n    lblAnmeldung.ElementClassName := 'h6 m-2';\r\n    lblAnmeldung.ElementFont := efCSS;\r\n    lblAnmeldung.ElementPosition := epIgnore;\r\n    lblAnmeldung.HeightPercent := 100.000000000000000000;\r\n    lblAnmeldung.WidthPercent := 100.000000000000000000;\r\n    labelonlinestatus.SetParentComponent(Self);\r\n    labelonlinestatus.Name := 'labelonlinestatus';\r\n    labelonlinestatus.Left := 0;\r\n    labelonlinestatus.Top := 493;\r\n    labelonlinestatus.Width := 89;\r\n    labelonlinestatus.Height := 15;\r\n    labelonlinestatus.Caption := 'labelonlinestatus';\r\n    labelonlinestatus.ElementClassName := 'h6 small m-2';\r\n    labelonlinestatus.ElementFont := efCSS;\r\n    labelonlinestatus.HeightPercent := 100.000000000000000000;\r\n    labelonlinestatus.WidthPercent := 100.000000000000000000;\r\n    WebDBLabel1.SetParentComponent(Self);\r\n    WebDBLabel1.Name := 'WebDBLabel1';\r\n    WebDBLabel1.Left := 1;\r\n    WebDBLabel1.Top := 512;\r\n    WebDBLabel1.Width := 73;\r\n    WebDBLabel1.Height := 15;\r\n    WebDBLabel1.Caption := 'WebDBLabel1';\r\n    WebDBLabel1.ElementClassName := 'h6 small m-2';\r\n    WebDBLabel1.ElementFont := efCSS;\r\n    WebDBLabel1.HeightPercent := 100.000000000000000000;\r\n    WebDBLabel1.WidthPercent := 100.000000000000000000;\r\n    WebDBLabel1.DataField := 'CadiaKundennummer';\r\n    WebDBLabel1.DataSource := DM2.sourceSysdat;\r\n    panelAnmeldung.SetParentComponent(Self);\r\n    panelAnmeldung.Name := 'panelAnmeldung';\r\n    panelAnmeldung.Left := 8;\r\n    panelAnmeldung.Top := 35;\r\n    panelAnmeldung.Width := 300;\r\n    panelAnmeldung.Height := 238;\r\n    panelAnmeldung.ElementClassName := 'card m-1 border-info';\r\n    panelAnmeldung.Caption := 'panelAnmeldung';\r\n    panelAnmeldung.Color := 8340248;\r\n    panelAnmeldung.ElementFont := efCSS;\r\n    panelAnmeldung.ElementPosition := epIgnore;\r\n    panelAnmeldung.ShowCaption := False;\r\n    panelAnmeldung.TabOrder := 0;\r\n    WebLabel3.SetParentComponent(panelAnmeldung);\r\n    WebLabel3.Name := 'WebLabel3';\r\n    WebLabel3.Left := 24;\r\n    WebLabel3.Top := 13;\r\n    WebLabel3.Width := 63;\r\n    WebLabel3.Height := 15;\r\n    WebLabel3.Caption := 'Anmeldung';\r\n    WebLabel3.ElementClassName := 'h3 text-info m-1';\r\n    WebLabel3.ElementFont := efCSS;\r\n    WebLabel3.ElementPosition := epIgnore;\r\n    WebLabel3.HeightPercent := 100.000000000000000000;\r\n    WebLabel3.WidthPercent := 100.000000000000000000;\r\n    lblchecklogin.SetParentComponent(panelAnmeldung);\r\n    lblchecklogin.Name := 'lblchecklogin';\r\n    lblchecklogin.Left := 0;\r\n    lblchecklogin.Top := 198;\r\n    lblchecklogin.Width := 71;\r\n    lblchecklogin.Height := 15;\r\n    lblchecklogin.Caption := 'lblchecklogin';\r\n    lblchecklogin.ChildOrder := 5;\r\n    lblchecklogin.ElementClassName := 'h6 text-danger';\r\n    lblchecklogin.ElementFont := efCSS;\r\n    lblchecklogin.HeightStyle := ssAuto;\r\n    lblchecklogin.HeightPercent := 100.000000000000000000;\r\n    lblchecklogin.WordWrap := True;\r\n    lblchecklogin.WidthStyle := ssAuto;\r\n    lblchecklogin.WidthPercent := 100.000000000000000000;\r\n    edtBenutzer.SetParentComponent(panelAnmeldung);\r\n    edtBenutzer.Name := 'edtBenutzer';\r\n    edtBenutzer.Left := 24;\r\n    edtBenutzer.Top := 54;\r\n    edtBenutzer.Width := 153;\r\n    edtBenutzer.Height := 25;\r\n    edtBenutzer.ChildOrder := 1;\r\n    edtBenutzer.ElementClassName := 'form-control m-1';\r\n    edtBenutzer.ElementFont := efCSS;\r\n    edtBenutzer.ElementPosition := epIgnore;\r\n    edtBenutzer.HeightStyle := ssAuto;\r\n    edtBenutzer.HeightPercent := 100.000000000000000000;\r\n    edtBenutzer.TextHint := 'Benutzername';\r\n    edtBenutzer.WidthPercent := 100.000000000000000000;\r\n    SetEvent(edtBenutzer, Self, 'OnKeyPress', 'edtBenutzerKeyPress');\r\n    edtPassword.SetParentComponent(panelAnmeldung);\r\n    edtPassword.Name := 'edtPassword';\r\n    edtPassword.Left := 24;\r\n    edtPassword.Top := 105;\r\n    edtPassword.Width := 153;\r\n    edtPassword.Height := 25;\r\n    edtPassword.ChildOrder := 2;\r\n    edtPassword.ElementClassName := 'form-control m-1';\r\n    edtPassword.ElementFont := efCSS;\r\n    edtPassword.ElementPosition := epIgnore;\r\n    edtPassword.HeightStyle := ssAuto;\r\n    edtPassword.HeightPercent := 100.000000000000000000;\r\n    edtPassword.PasswordChar := '*';\r\n    edtPassword.TabOrder := 1;\r\n    edtPassword.TextHint := 'Passwort';\r\n    edtPassword.WidthPercent := 100.000000000000000000;\r\n    SetEvent(edtPassword, Self, 'OnKeyPress', 'edtPasswordKeyPress');\r\n    btnAnmelden.SetParentComponent(panelAnmeldung);\r\n    btnAnmelden.Name := 'btnAnmelden';\r\n    btnAnmelden.Left := 80;\r\n    btnAnmelden.Top := 152;\r\n    btnAnmelden.Width := 96;\r\n    btnAnmelden.Height := 41;\r\n    btnAnmelden.Caption := 'Anmelden';\r\n    btnAnmelden.ChildOrder := 4;\r\n    btnAnmelden.ElementClassName := 'btn btn-info m-1 text-left';\r\n    btnAnmelden.ElementFont := efCSS;\r\n    btnAnmelden.ElementPosition := epIgnore;\r\n    btnAnmelden.HeightStyle := ssAuto;\r\n    btnAnmelden.HeightPercent := 100.000000000000000000;\r\n    btnAnmelden.TabOrder := 2;\r\n    btnAnmelden.WidthStyle := ssAuto;\r\n    btnAnmelden.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnAnmelden, Self, 'OnClick', 'btnAnmeldenClick');\r\n    Container1.SetParentComponent(Self);\r\n    Container1.Name := 'Container1';\r\n    Container1.Left := 0;\r\n    Container1.Top := 0;\r\n    Container1.Width := 169;\r\n    Container1.Height := 41;\r\n    Container1.HeightStyle := ssAuto;\r\n    Container1.WidthStyle := ssPercent;\r\n    Container1.ChildOrder := 1;\r\n    Container1.ElementFont := efCSS;\r\n    Container1.ElementPosition := epIgnore;\r\n    Container2.SetParentComponent(Self);\r\n    Container2.Name := 'Container2';\r\n    Container2.Left := 0;\r\n    Container2.Top := 47;\r\n    Container2.Width := 169;\r\n    Container2.Height := 41;\r\n    Container2.ElementClassName := 'col d-flex justify-content-center';\r\n    Container2.HeightStyle := ssAuto;\r\n    Container2.WidthStyle := ssAuto;\r\n    Container2.ChildOrder := 5;\r\n    Container2.ElementFont := efCSS;\r\n    Container2.ElementPosition := epIgnore;\r\n    WebPanelMenue.SetParentComponent(Self);\r\n    WebPanelMenue.Name := 'WebPanelMenue';\r\n    WebPanelMenue.Left := 32;\r\n    WebPanelMenue.Top := 131;\r\n    WebPanelMenue.Width := 400;\r\n    WebPanelMenue.Height := 375;\r\n    WebPanelMenue.ElementClassName := 'card m-1 border-info';\r\n    WebPanelMenue.Caption := 'WebPanelMenue';\r\n    WebPanelMenue.Color := 8340248;\r\n    WebPanelMenue.ElementFont := efCSS;\r\n    WebPanelMenue.ShowCaption := False;\r\n    WebPanelMenue.TabOrder := 3;\r\n    btnLogout.SetParentComponent(WebPanelMenue);\r\n    btnLogout.Name := 'btnLogout';\r\n    btnLogout.Left := 203;\r\n    btnLogout.Top := 287;\r\n    btnLogout.Width := 180;\r\n    btnLogout.Height := 30;\r\n    btnLogout.Caption := 'Abmelden';\r\n    btnLogout.ChildOrder := 7;\r\n    btnLogout.ElementClassName := 'btn btn-info btn-sm text-center m-1';\r\n    btnLogout.ElementFont := efCSS;\r\n    btnLogout.HeightStyle := ssAuto;\r\n    btnLogout.HeightPercent := 100.000000000000000000;\r\n    btnLogout.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnLogout, Self, 'OnClick', 'btnLogoutClick');\r\n    btnTermine.SetParentComponent(WebPanelMenue);\r\n    btnTermine.Name := 'btnTermine';\r\n    btnTermine.Left := 203;\r\n    btnTermine.Top := 8;\r\n    btnTermine.Width := 180;\r\n    btnTermine.Height := 30;\r\n    btnTermine.Caption := 'Termine';\r\n    btnTermine.ChildOrder := 11;\r\n    btnTermine.ElementClassName := 'btn btn-info btn-sm text-sm text-center m-1';\r\n    btnTermine.ElementFont := efCSS;\r\n    btnTermine.HeightStyle := ssAuto;\r\n    btnTermine.HeightPercent := 100.000000000000000000;\r\n    btnTermine.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnTermine, Self, 'OnClick', 'btnTermineClick');\r\n    btnEmails.SetParentComponent(WebPanelMenue);\r\n    btnEmails.Name := 'btnEmails';\r\n    btnEmails.Left := 203;\r\n    btnEmails.Top := 48;\r\n    btnEmails.Width := 180;\r\n    btnEmails.Height := 30;\r\n    btnEmails.Caption := 'Emails';\r\n    btnEmails.ChildOrder := 11;\r\n    btnEmails.ElementClassName := 'btn btn-info btn-sm text-center m-1';\r\n    btnEmails.ElementFont := efCSS;\r\n    btnEmails.HeightStyle := ssAuto;\r\n    btnEmails.HeightPercent := 100.000000000000000000;\r\n    btnEmails.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnEmails, Self, 'OnClick', 'btnEmailsClick');\r\n    btnAnrufe.SetParentComponent(WebPanelMenue);\r\n    btnAnrufe.Name := 'btnAnrufe';\r\n    btnAnrufe.Left := 203;\r\n    btnAnrufe.Top := 88;\r\n    btnAnrufe.Width := 180;\r\n    btnAnrufe.Height := 30;\r\n    btnAnrufe.Caption := 'Anrufe';\r\n    btnAnrufe.ChildOrder := 11;\r\n    btnAnrufe.ElementClassName := 'btn btn-info btn-sm text-center m-1';\r\n    btnAnrufe.ElementFont := efCSS;\r\n    btnAnrufe.HeightStyle := ssAuto;\r\n    btnAnrufe.HeightPercent := 100.000000000000000000;\r\n    btnAnrufe.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnAnrufe, Self, 'OnClick', 'btnAnrufeClick');\r\n    btnPZE.SetParentComponent(WebPanelMenue);\r\n    btnPZE.Name := 'btnPZE';\r\n    btnPZE.Left := 203;\r\n    btnPZE.Top := 127;\r\n    btnPZE.Width := 180;\r\n    btnPZE.Height := 30;\r\n    btnPZE.Caption := 'Zeiterfassung (PZE)';\r\n    btnPZE.ChildOrder := 11;\r\n    btnPZE.ElementClassName := 'btn btn-info btn-sm text-center m-1';\r\n    btnPZE.ElementFont := efCSS;\r\n    btnPZE.HeightStyle := ssAuto;\r\n    btnPZE.HeightPercent := 100.000000000000000000;\r\n    btnPZE.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnPZE, Self, 'OnClick', 'btnPZEClick');\r\n    btnTelefonnummern.SetParentComponent(WebPanelMenue);\r\n    btnTelefonnummern.Name := 'btnTelefonnummern';\r\n    btnTelefonnummern.Left := 203;\r\n    btnTelefonnummern.Top := 167;\r\n    btnTelefonnummern.Width := 180;\r\n    btnTelefonnummern.Height := 30;\r\n    btnTelefonnummern.Caption := 'Telefonnummern';\r\n    btnTelefonnummern.ChildOrder := 11;\r\n    btnTelefonnummern.ElementClassName := 'btn btn-info btn-sm text-center m-1';\r\n    btnTelefonnummern.ElementFont := efCSS;\r\n    btnTelefonnummern.HeightStyle := ssAuto;\r\n    btnTelefonnummern.HeightPercent := 100.000000000000000000;\r\n    btnTelefonnummern.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnTelefonnummern, Self, 'OnClick', 'btnTelefonnummernClick');\r\n    btnMitteilungen.SetParentComponent(WebPanelMenue);\r\n    btnMitteilungen.Name := 'btnMitteilungen';\r\n    btnMitteilungen.Left := 203;\r\n    btnMitteilungen.Top := 207;\r\n    btnMitteilungen.Width := 180;\r\n    btnMitteilungen.Height := 30;\r\n    btnMitteilungen.Caption := 'Mitteilungen';\r\n    btnMitteilungen.ChildOrder := 11;\r\n    btnMitteilungen.ElementClassName := 'btn btn-info btn-sm text-center m-1';\r\n    btnMitteilungen.ElementFont := efCSS;\r\n    btnMitteilungen.HeightStyle := ssAuto;\r\n    btnMitteilungen.HeightPercent := 100.000000000000000000;\r\n    btnMitteilungen.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnMitteilungen, Self, 'OnClick', 'btnMitteilungenClick');\r\n    btnTickets.SetParentComponent(WebPanelMenue);\r\n    btnTickets.Name := 'btnTickets';\r\n    btnTickets.Left := 203;\r\n    btnTickets.Top := 247;\r\n    btnTickets.Width := 180;\r\n    btnTickets.Height := 30;\r\n    btnTickets.Caption := 'Tickets';\r\n    btnTickets.ChildOrder := 11;\r\n    btnTickets.ElementClassName := 'btn btn-info btn-sm text-center m-1';\r\n    btnTickets.ElementFont := efCSS;\r\n    btnTickets.HeightStyle := ssAuto;\r\n    btnTickets.HeightPercent := 100.000000000000000000;\r\n    btnTickets.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnTickets, Self, 'OnClick', 'btnTicketsClick');\r\n    btnBeenden.SetParentComponent(WebPanelMenue);\r\n    btnBeenden.Name := 'btnBeenden';\r\n    btnBeenden.Left := 203;\r\n    btnBeenden.Top := 327;\r\n    btnBeenden.Width := 180;\r\n    btnBeenden.Height := 30;\r\n    btnBeenden.Caption := 'Schliessen';\r\n    btnBeenden.ChildOrder := 7;\r\n    btnBeenden.ElementClassName := 'btn btn-info btn-sm text-center m-1';\r\n    btnBeenden.ElementFont := efCSS;\r\n    btnBeenden.HeightStyle := ssAuto;\r\n    btnBeenden.HeightPercent := 100.000000000000000000;\r\n    btnBeenden.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnBeenden, Self, 'OnClick', 'btnBeendenClick');\r\n    btnKontakte.SetParentComponent(WebPanelMenue);\r\n    btnKontakte.Name := 'btnKontakte';\r\n    btnKontakte.Left := 3;\r\n    btnKontakte.Top := 8;\r\n    btnKontakte.Width := 180;\r\n    btnKontakte.Height := 30;\r\n    btnKontakte.Caption := 'Kontakte';\r\n    btnKontakte.ChildOrder := 11;\r\n    btnKontakte.ElementClassName := 'btn btn-info btn-sm text-center m-1';\r\n    btnKontakte.ElementFont := efCSS;\r\n    btnKontakte.HeightStyle := ssAuto;\r\n    btnKontakte.HeightPercent := 100.000000000000000000;\r\n    btnKontakte.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnKontakte, Self, 'OnClick', 'btnKontakteClick');\r\n    btnArtikel.SetParentComponent(WebPanelMenue);\r\n    btnArtikel.Name := 'btnArtikel';\r\n    btnArtikel.Left := 3;\r\n    btnArtikel.Top := 48;\r\n    btnArtikel.Width := 180;\r\n    btnArtikel.Height := 30;\r\n    btnArtikel.Caption := 'Artikel';\r\n    btnArtikel.ChildOrder := 11;\r\n    btnArtikel.ElementClassName := 'btn btn-info btn-sm text-center m-1';\r\n    btnArtikel.ElementFont := efCSS;\r\n    btnArtikel.HeightStyle := ssAuto;\r\n    btnArtikel.HeightPercent := 100.000000000000000000;\r\n    btnArtikel.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnArtikel, Self, 'OnClick', 'btnArtikelClick');\r\n    btnBestellvormerkung.SetParentComponent(WebPanelMenue);\r\n    btnBestellvormerkung.Name := 'btnBestellvormerkung';\r\n    btnBestellvormerkung.Left := 3;\r\n    btnBestellvormerkung.Top := 88;\r\n    btnBestellvormerkung.Width := 180;\r\n    btnBestellvormerkung.Height := 30;\r\n    btnBestellvormerkung.Caption := 'Bestellvormerkung';\r\n    btnBestellvormerkung.ChildOrder := 11;\r\n    btnBestellvormerkung.ElementClassName := 'btn btn-info btn-sm text-center m-1';\r\n    btnBestellvormerkung.ElementFont := efCSS;\r\n    btnBestellvormerkung.HeightStyle := ssAuto;\r\n    btnBestellvormerkung.HeightPercent := 100.000000000000000000;\r\n    btnBestellvormerkung.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnBestellvormerkung, Self, 'OnClick', 'btnBestellvormerkungClick');\r\n    btnAngebote.SetParentComponent(WebPanelMenue);\r\n    btnAngebote.Name := 'btnAngebote';\r\n    btnAngebote.Left := 3;\r\n    btnAngebote.Top := 127;\r\n    btnAngebote.Width := 180;\r\n    btnAngebote.Height := 30;\r\n    btnAngebote.Caption := 'Angebote (offen)';\r\n    btnAngebote.ChildOrder := 11;\r\n    btnAngebote.ElementClassName := 'btn btn-info btn-sm text-center m-1';\r\n    btnAngebote.ElementFont := efCSS;\r\n    btnAngebote.HeightStyle := ssAuto;\r\n    btnAngebote.HeightPercent := 100.000000000000000000;\r\n    btnAngebote.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnAngebote, Self, 'OnClick', 'btnAngeboteClick');\r\n    btnAuftrag.SetParentComponent(WebPanelMenue);\r\n    btnAuftrag.Name := 'btnAuftrag';\r\n    btnAuftrag.Left := 3;\r\n    btnAuftrag.Top := 167;\r\n    btnAuftrag.Width := 180;\r\n    btnAuftrag.Height := 30;\r\n    btnAuftrag.Caption := 'Auftr'#228'ge (offen)';\r\n    btnAuftrag.ChildOrder := 11;\r\n    btnAuftrag.ElementClassName := 'btn btn-info btn-sm text-center m-1';\r\n    btnAuftrag.ElementFont := efCSS;\r\n    btnAuftrag.HeightStyle := ssAuto;\r\n    btnAuftrag.HeightPercent := 100.000000000000000000;\r\n    btnAuftrag.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnAuftrag, Self, 'OnClick', 'btnAuftragClick');\r\n    btnLieferscheine.SetParentComponent(WebPanelMenue);\r\n    btnLieferscheine.Name := 'btnLieferscheine';\r\n    btnLieferscheine.Left := 3;\r\n    btnLieferscheine.Top := 207;\r\n    btnLieferscheine.Width := 180;\r\n    btnLieferscheine.Height := 30;\r\n    btnLieferscheine.Caption := 'Lieferscheine (offen)';\r\n    btnLieferscheine.ChildOrder := 11;\r\n    btnLieferscheine.ElementClassName := 'btn btn-info btn-sm text-center m-1';\r\n    btnLieferscheine.ElementFont := efCSS;\r\n    btnLieferscheine.HeightStyle := ssAuto;\r\n    btnLieferscheine.HeightPercent := 100.000000000000000000;\r\n    btnLieferscheine.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnLieferscheine, Self, 'OnClick', 'btnLieferscheineClick');\r\n    btnBelegePositionen.SetParentComponent(WebPanelMenue);\r\n    btnBelegePositionen.Name := 'btnBelegePositionen';\r\n    btnBelegePositionen.Left := 3;\r\n    btnBelegePositionen.Top := 247;\r\n    btnBelegePositionen.Width := 180;\r\n    btnBelegePositionen.Height := 30;\r\n    btnBelegePositionen.Caption := 'Belege / Positionen';\r\n    btnBelegePositionen.ChildOrder := 11;\r\n    btnBelegePositionen.ElementClassName := 'btn btn-info btn-sm text-center m-1';\r\n    btnBelegePositionen.ElementFont := efCSS;\r\n    btnBelegePositionen.HeightStyle := ssAuto;\r\n    btnBelegePositionen.HeightPercent := 100.000000000000000000;\r\n    btnBelegePositionen.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnBelegePositionen, Self, 'OnClick', 'btnBelegePositionenClick');\r\n    btnInventur.SetParentComponent(WebPanelMenue);\r\n    btnInventur.Name := 'btnInventur';\r\n    btnInventur.Left := 3;\r\n    btnInventur.Top := 287;\r\n    btnInventur.Width := 180;\r\n    btnInventur.Height := 30;\r\n    btnInventur.Caption := 'Inventur';\r\n    btnInventur.ChildOrder := 11;\r\n    btnInventur.ElementClassName := 'btn btn-info btn-sm text-center m-1';\r\n    btnInventur.ElementFont := efCSS;\r\n    btnInventur.HeightStyle := ssAuto;\r\n    btnInventur.HeightPercent := 100.000000000000000000;\r\n    btnInventur.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnInventur, Self, 'OnClick', 'btnInventurClick');\r\n    btn14584.SetParentComponent(WebPanelMenue);\r\n    btn14584.Name := 'btn14584';\r\n    btn14584.Left := 3;\r\n    btn14584.Top := 327;\r\n    btn14584.Width := 180;\r\n    btn14584.Height := 30;\r\n    btn14584.Caption := '14584';\r\n    btn14584.ChildOrder := 7;\r\n    btn14584.ElementClassName := 'btn btn-info btn-sm text-center m-1';\r\n    btn14584.ElementFont := efCSS;\r\n    btn14584.HeightStyle := ssAuto;\r\n    btn14584.HeightPercent := 100.000000000000000000;\r\n    btn14584.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btn14584, Self, 'OnClick', 'btn14584Click');\r\n    Menue10055.SetParentComponent(Self);\r\n    Menue10055.Name := 'Menue10055';\r\n    Menue10055.Left := 376;\r\n    Menue10055.Top := 35;\r\n    Menue10055.Width := 304;\r\n    Menue10055.Height := 329;\r\n    Menue10055.ElementClassName := 'card m-1 border-info';\r\n    Menue10055.Caption := 'WebPanelMenue';\r\n    Menue10055.ChildOrder := 7;\r\n    Menue10055.Color := 8340248;\r\n    Menue10055.ElementBodyClassName := 'card-body';\r\n    Menue10055.ElementFont := efCSS;\r\n    Menue10055.ShowCaption := False;\r\n    Menue10055.TabOrder := 4;\r\n    Menue10055.Visible := False;\r\n    btnLogbuch.SetParentComponent(Menue10055);\r\n    btnLogbuch.Name := 'btnLogbuch';\r\n    btnLogbuch.Left := 3;\r\n    btnLogbuch.Top := 8;\r\n    btnLogbuch.Width := 145;\r\n    btnLogbuch.Height := 25;\r\n    btnLogbuch.Caption := 'Logbuch';\r\n    btnLogbuch.ChildOrder := 11;\r\n    btnLogbuch.ElementClassName := 'btn btn-info btn-sm text-center m-1';\r\n    btnLogbuch.ElementFont := efCSS;\r\n    btnLogbuch.HeightStyle := ssAuto;\r\n    btnLogbuch.HeightPercent := 100.000000000000000000;\r\n    btnLogbuch.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnLogbuch, Self, 'OnClick', 'btnLogbuchClick');\r\n    btnZurueck.SetParentComponent(Menue10055);\r\n    btnZurueck.Name := 'btnZurueck';\r\n    btnZurueck.Left := 154;\r\n    btnZurueck.Top := 290;\r\n    btnZurueck.Width := 145;\r\n    btnZurueck.Height := 25;\r\n    btnZurueck.Caption := 'Hauptmenue';\r\n    btnZurueck.ChildOrder := 7;\r\n    btnZurueck.ElementClassName := 'btn btn-info btn-sm text-center m-1';\r\n    btnZurueck.ElementFont := efCSS;\r\n    btnZurueck.HeightStyle := ssAuto;\r\n    btnZurueck.HeightPercent := 100.000000000000000000;\r\n    btnZurueck.WidthPercent := 100.000000000000000000;\r\n    SetEvent(btnZurueck, Self, 'OnClick', 'btnZurueckClick');\r\n    XDPersonal.SetParentComponent(Self);\r\n    XDPersonal.Name := 'XDPersonal';\r\n    XDPersonal.AfterOpen := XDPersonalAfterOpen;\r\n    XDPersonal.EntitySetName := 'Personal';\r\n    XDPersonal.Connection := DM2.XDataWebConnection1;\r\n    XDPersonal.Left := 11;\r\n    XDPersonal.Top := 91;\r\n    XDPersonalPersonalnummer.SetParentComponent(XDPersonal);\r\n    XDPersonalPersonalnummer.Name := 'XDPersonalPersonalnummer';\r\n    XDPersonalPersonalnummer.FieldName := 'Personalnummer';\r\n    XDPersonalPersonalnummer.Required := True;\r\n    XDPersonalNachname.SetParentComponent(XDPersonal);\r\n    XDPersonalNachname.Name := 'XDPersonalNachname';\r\n    XDPersonalNachname.FieldName := 'Nachname';\r\n    XDPersonalNachname.Size := 40;\r\n    XDPersonalVorname.SetParentComponent(XDPersonal);\r\n    XDPersonalVorname.Name := 'XDPersonalVorname';\r\n    XDPersonalVorname.FieldName := 'Vorname';\r\n    XDPersonalVorname.Size := 40;\r\n    XDPersonalSchreibzeichen.SetParentComponent(XDPersonal);\r\n    XDPersonalSchreibzeichen.Name := 'XDPersonalSchreibzeichen';\r\n    XDPersonalSchreibzeichen.FieldName := 'Schreibzeichen';\r\n    XDPersonalSchreibzeichen.Size := 10;\r\n    XDPersonalLoginName.SetParentComponent(XDPersonal);\r\n    XDPersonalLoginName.Name := 'XDPersonalLoginName';\r\n    XDPersonalLoginName.FieldName := 'LoginName';\r\n    XDPersonalLoginName.Size := 50;\r\n    XDPersonalPassword.SetParentComponent(XDPersonal);\r\n    XDPersonalPassword.Name := 'XDPersonalPassword';\r\n    XDPersonalPassword.FieldName := 'Password';\r\n    XDPersonalPassword.Size := 50;\r\n    XDPersonalEnabled.SetParentComponent(XDPersonal);\r\n    XDPersonalEnabled.Name := 'XDPersonalEnabled';\r\n    XDPersonalEnabled.FieldName := 'Enabled';\r\n    XDPersonalEmail.SetParentComponent(XDPersonal);\r\n    XDPersonalEmail.Name := 'XDPersonalEmail';\r\n    XDPersonalEmail.FieldName := 'Email';\r\n    XDPersonalEmail.Size := 50;\r\n    XDPersonalFarbe.SetParentComponent(XDPersonal);\r\n    XDPersonalFarbe.Name := 'XDPersonalFarbe';\r\n    XDPersonalFarbe.FieldName := 'Farbe';\r\n    XDPersonalPersonalGUID.SetParentComponent(XDPersonal);\r\n    XDPersonalPersonalGUID.Name := 'XDPersonalPersonalGUID';\r\n    XDPersonalPersonalGUID.FieldName := 'PersonalGUID';\r\n    XDPersonalPersonalGUID.Size := 38;\r\n    XDPersonalRechteCadiaWEB.SetParentComponent(XDPersonal);\r\n    XDPersonalRechteCadiaWEB.Name := 'XDPersonalRechteCadiaWEB';\r\n    XDPersonalRechteCadiaWEB.FieldName := 'RechteCadiaWEB';\r\n    XDPersonalRechteCadiaWEB.Size := 255;\r\n    XDPersonalStundensatzIntern.SetParentComponent(XDPersonal);\r\n    XDPersonalStundensatzIntern.Name := 'XDPersonalStundensatzIntern';\r\n    XDPersonalStundensatzIntern.FieldName := 'StundensatzIntern';\r\n    WebHttpRequest1.SetParentComponent(Self);\r\n    WebHttpRequest1.Name := 'WebHttpRequest1';\r\n    WebHttpRequest1.Headers.BeginUpdate;\r\n    try\r\n      WebHttpRequest1.Headers.Clear;\r\n      WebHttpRequest1.Headers.Add('Cache-Control=no-cache, no-store, must-revalidate');\r\n    finally\r\n      WebHttpRequest1.Headers.EndUpdate;\r\n    end;\r\n    WebHttpRequest1.URL := './config/CadiaWebConfig.cnf';\r\n    SetEvent(WebHttpRequest1, Self, 'OnResponse', 'WebHttpRequest1Response');\r\n    WebHttpRequest1.Left := 8;\r\n    WebHttpRequest1.Top := 144;\r\n    WClient.SetParentComponent(Self);\r\n    WClient.Name := 'WClient';\r\n    WClient.Connection := AuthConnection;\r\n    WClient.Left := 8;\r\n    WClient.Top := 240;\r\n    AuthConnection.SetParentComponent(Self);\r\n    AuthConnection.Name := 'AuthConnection';\r\n    AuthConnection.URL := 'https://langwald-edv.net/cadiaserverauth';\r\n    SetEvent(AuthConnection, Self, 'OnConnect', 'AuthConnectionConnect');\r\n    AuthConnection.Left := 8;\r\n    AuthConnection.Top := 192;\r\n    xdsMitteilungen.SetParentComponent(Self);\r\n    xdsMitteilungen.Name := 'xdsMitteilungen';\r\n    xdsMitteilungen.AfterOpen := xdsMitteilungenAfterOpen;\r\n    xdsMitteilungen.EntitySetName := 'MSGBoardSub';\r\n    xdsMitteilungen.Connection := DM2.XDataWebConnection1;\r\n    xdsMitteilungen.SubpropsDepth := 2;\r\n    xdsMitteilungen.QueryString := '$expand=MSGBoardID, PersonalnummerTo';\r\n    xdsMitteilungen.QueryTop := 100;\r\n    xdsMitteilungen.Left := 242;\r\n    xdsMitteilungen.Top := 13;\r\n    xdsMitteilungenMSGBoardID.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenMSGBoardID.Name := 'xdsMitteilungenMSGBoardID';\r\n    xdsMitteilungenMSGBoardID.FieldName := 'MSGBoardID';\r\n    xdsMitteilungenToPersonalnummer.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenToPersonalnummer.Name := 'xdsMitteilungenToPersonalnummer';\r\n    xdsMitteilungenToPersonalnummer.FieldName := 'ToPersonalnummer';\r\n    xdsMitteilungenMSGBoardSubID.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenMSGBoardSubID.Name := 'xdsMitteilungenMSGBoardSubID';\r\n    xdsMitteilungenMSGBoardSubID.FieldName := 'MSGBoardSubID';\r\n    xdsMitteilungenMSGBoardSubID.Required := True;\r\n    xdsMitteilungenMSGBoardSubID.Size := 38;\r\n    xdsMitteilungenToNachname.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenToNachname.Name := 'xdsMitteilungenToNachname';\r\n    xdsMitteilungenToNachname.FieldName := 'ToNachname';\r\n    xdsMitteilungenToNachname.Size := 40;\r\n    xdsMitteilungenToVorname.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenToVorname.Name := 'xdsMitteilungenToVorname';\r\n    xdsMitteilungenToVorname.FieldName := 'ToVorname';\r\n    xdsMitteilungenToVorname.Size := 40;\r\n    xdsMitteilungenDatumGelesen.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenDatumGelesen.Name := 'xdsMitteilungenDatumGelesen';\r\n    xdsMitteilungenDatumGelesen.FieldName := 'DatumGelesen';\r\n    xdsMitteilungenDatumErledigt.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenDatumErledigt.Name := 'xdsMitteilungenDatumErledigt';\r\n    xdsMitteilungenDatumErledigt.FieldName := 'DatumErledigt';\r\n    xdsMitteilungenMSGBoardIDFromPersonalnummer.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenMSGBoardIDFromPersonalnummer.Name := 'xdsMitteilungenMSGBoardIDFromPersonalnummer';\r\n    xdsMitteilungenMSGBoardIDFromPersonalnummer.FieldName := 'MSGBoardID.FromPersonalnummer';\r\n    xdsMitteilungenMSGBoardIDID.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenMSGBoardIDID.Name := 'xdsMitteilungenMSGBoardIDID';\r\n    xdsMitteilungenMSGBoardIDID.FieldName := 'MSGBoardID.ID';\r\n    xdsMitteilungenMSGBoardIDID.Size := 38;\r\n    xdsMitteilungenMSGBoardIDDatum.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenMSGBoardIDDatum.Name := 'xdsMitteilungenMSGBoardIDDatum';\r\n    xdsMitteilungenMSGBoardIDDatum.FieldName := 'MSGBoardID.Datum';\r\n    xdsMitteilungenMSGBoardIDFromNachname.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenMSGBoardIDFromNachname.Name := 'xdsMitteilungenMSGBoardIDFromNachname';\r\n    xdsMitteilungenMSGBoardIDFromNachname.FieldName := 'MSGBoardID.FromNachname';\r\n    xdsMitteilungenMSGBoardIDFromNachname.Size := 40;\r\n    xdsMitteilungenMSGBoardIDFromVorname.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenMSGBoardIDFromVorname.Name := 'xdsMitteilungenMSGBoardIDFromVorname';\r\n    xdsMitteilungenMSGBoardIDFromVorname.FieldName := 'MSGBoardID.FromVorname';\r\n    xdsMitteilungenMSGBoardIDFromVorname.Size := 40;\r\n    xdsMitteilungenMSGBoardIDBetreff.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenMSGBoardIDBetreff.Name := 'xdsMitteilungenMSGBoardIDBetreff';\r\n    xdsMitteilungenMSGBoardIDBetreff.FieldName := 'MSGBoardID.Betreff';\r\n    xdsMitteilungenMSGBoardIDBetreff.Size := 255;\r\n    xdsMitteilungenMSGBoardIDNotiz.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenMSGBoardIDNotiz.Name := 'xdsMitteilungenMSGBoardIDNotiz';\r\n    xdsMitteilungenMSGBoardIDNotiz.FieldName := 'MSGBoardID.Notiz';\r\n    xdsMitteilungenMSGBoardIDNotiz.Size := 255;\r\n    xdsMitteilungenToPersonalnummerPersonalnummer.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenToPersonalnummerPersonalnummer.Name := 'xdsMitteilungenToPersonalnummerPersonalnummer';\r\n    xdsMitteilungenToPersonalnummerPersonalnummer.FieldName := 'ToPersonalnummer.Personalnummer';\r\n    xdsMitteilungenMSGBoardIDFromPersonalnummerPersonalnummer.SetParentComponent(xdsMitteilungen);\r\n    xdsMitteilungenMSGBoardIDFromPersonalnummerPersonalnummer.Name := 'xdsMitteilungenMSGBoardIDFromPersonalnummerPersonalnummer';\r\n    xdsMitteilungenMSGBoardIDFromPersonalnummerPersonalnummer.FieldName := 'MSGBoardID.FromPersonalnummer.Personalnummer';\r\n  finally\r\n    lblAnmeldung.AfterLoadDFMValues;\r\n    labelonlinestatus.AfterLoadDFMValues;\r\n    WebDBLabel1.AfterLoadDFMValues;\r\n    panelAnmeldung.AfterLoadDFMValues;\r\n    WebLabel3.AfterLoadDFMValues;\r\n    lblchecklogin.AfterLoadDFMValues;\r\n    edtBenutzer.AfterLoadDFMValues;\r\n    edtPassword.AfterLoadDFMValues;\r\n    btnAnmelden.AfterLoadDFMValues;\r\n    Container1.AfterLoadDFMValues;\r\n    Container2.AfterLoadDFMValues;\r\n    WebPanelMenue.AfterLoadDFMValues;\r\n    btnLogout.AfterLoadDFMValues;\r\n    btnTermine.AfterLoadDFMValues;\r\n    btnEmails.AfterLoadDFMValues;\r\n    btnAnrufe.AfterLoadDFMValues;\r\n    btnPZE.AfterLoadDFMValues;\r\n    btnTelefonnummern.AfterLoadDFMValues;\r\n    btnMitteilungen.AfterLoadDFMValues;\r\n    btnTickets.AfterLoadDFMValues;\r\n    btnBeenden.AfterLoadDFMValues;\r\n    btnKontakte.AfterLoadDFMValues;\r\n    btnArtikel.AfterLoadDFMValues;\r\n    btnBestellvormerkung.AfterLoadDFMValues;\r\n    btnAngebote.AfterLoadDFMValues;\r\n    btnAuftrag.AfterLoadDFMValues;\r\n    btnLieferscheine.AfterLoadDFMValues;\r\n    btnBelegePositionen.AfterLoadDFMValues;\r\n    btnInventur.AfterLoadDFMValues;\r\n    btn14584.AfterLoadDFMValues;\r\n    Menue10055.AfterLoadDFMValues;\r\n    btnLogbuch.AfterLoadDFMValues;\r\n    btnZurueck.AfterLoadDFMValues;\r\n    XDPersonal.AfterLoadDFMValues;\r\n    XDPersonalPersonalnummer.AfterLoadDFMValues;\r\n    XDPersonalNachname.AfterLoadDFMValues;\r\n    XDPersonalVorname.AfterLoadDFMValues;\r\n    XDPersonalSchreibzeichen.AfterLoadDFMValues;\r\n    XDPersonalLoginName.AfterLoadDFMValues;\r\n    XDPersonalPassword.AfterLoadDFMValues;\r\n    XDPersonalEnabled.AfterLoadDFMValues;\r\n    XDPersonalEmail.AfterLoadDFMValues;\r\n    XDPersonalFarbe.AfterLoadDFMValues;\r\n    XDPersonalPersonalGUID.AfterLoadDFMValues;\r\n    XDPersonalRechteCadiaWEB.AfterLoadDFMValues;\r\n    XDPersonalStundensatzIntern.AfterLoadDFMValues;\r\n    WebHttpRequest1.AfterLoadDFMValues;\r\n    WClient.AfterLoadDFMValues;\r\n    AuthConnection.AfterLoadDFMValues;\r\n    xdsMitteilungen.AfterLoadDFMValues;\r\n    xdsMitteilungenMSGBoardID.AfterLoadDFMValues;\r\n    xdsMitteilungenToPersonalnummer.AfterLoadDFMValues;\r\n    xdsMitteilungenMSGBoardSubID.AfterLoadDFMValues;\r\n    xdsMitteilungenToNachname.AfterLoadDFMValues;\r\n    xdsMitteilungenToVorname.AfterLoadDFMValues;\r\n    xdsMitteilungenDatumGelesen.AfterLoadDFMValues;\r\n    xdsMitteilungenDatumErledigt.AfterLoadDFMValues;\r\n    xdsMitteilungenMSGBoardIDFromPersonalnummer.AfterLoadDFMValues;\r\n    xdsMitteilungenMSGBoardIDID.AfterLoadDFMValues;\r\n    xdsMitteilungenMSGBoardIDDatum.AfterLoadDFMValues;\r\n    xdsMitteilungenMSGBoardIDFromNachname.AfterLoadDFMValues;\r\n    xdsMitteilungenMSGBoardIDFromVorname.AfterLoadDFMValues;\r\n    xdsMitteilungenMSGBoardIDBetreff.AfterLoadDFMValues;\r\n    xdsMitteilungenMSGBoardIDNotiz.AfterLoadDFMValues;\r\n    xdsMitteilungenToPersonalnummerPersonalnummer.AfterLoadDFMValues;\r\n    xdsMitteilungenMSGBoardIDFromPersonalnummerPersonalnummer.AfterLoadDFMValues;\r\n  end;\r\nend;\r\n\r\nend.\r\n","program CadiaWEB;\r\n\r\n{$R *.dres}\r\n\r\nuses\r\n  Vcl.Forms,\r\n  WEBLib.Forms,\r\n  WEBLib.WebTools,\r\n  Unit1 in 'Unit1.pas'{*.html},\r\n  Unit2 in 'Unit2.pas',\r\n  unit_Kontaktsuche in 'unit_Kontaktsuche.pas'{*.html},\r\n  unit_Artikelsuche in 'unit_Artikelsuche.pas'{*.html},\r\n  unit_Einzeltermin in 'unit_Einzeltermin.pas'{*.html},\r\n  unit_Objektsuche in 'unit_Objektsuche.pas'{*.html},\r\n  unit_EinzelAuftrag in 'unit_EinzelAuftrag.pas'{*.html},\r\n  unit_Anrufe in 'unit_Anrufe.pas'{*.html},\r\n  Unit_Artikel in 'Unit_Artikel.pas'{*.html},\r\n  unit_Terminkalender in 'unit_Terminkalender.pas'{*.html},\r\n  unit_ListeAuftrag in 'unit_ListeAuftrag.pas'{*.html},\r\n  unit_EinzelKontakt in 'unit_EinzelKontakt.pas'{*.html},\r\n  unit_EinzelAnruf in 'unit_EinzelAnruf.pas'{*.html},\r\n  unit_ListeAngebot in 'unit_ListeAngebot.pas'{*.html},\r\n  unit_PZE in 'unit_PZE.pas'{*.html},\r\n  unit_Karte in 'unit_Karte.pas'{*.html},\r\n  unit_BelegeUndPositionen in 'unit_BelegeUndPositionen.pas'{*.html},\r\n  unit_EmailEingang in 'unit_EmailEingang.pas'{*.html},\r\n  unit_EinzelBeleg in 'unit_EinzelBeleg.pas'{*.html},\r\n  unit_AuftragUnterschriften in 'unit_AuftragUnterschriften.pas'{*.html},\r\n  unit_ListeLieferschein in 'unit_ListeLieferschein.pas'{*.html},\r\n  unit_EinzelLieferschein in 'unit_EinzelLieferschein.pas'{*.html},\r\n  unit_LieferscheinUnterschrift in 'unit_LieferscheinUnterschrift.pas'{*.html},\r\n  unit_AuftragTermine in 'unit_AuftragTermine.pas'{*.html},\r\n  unit_EinzelEmail in 'unit_EinzelEmail.pas'{*.html},\r\n  unit_Preise in 'unit_Preise.pas'{*.html},\r\n  unit_BarcodeScan in 'unit_BarcodeScan.pas'{*.html},\r\n  unit_AuftragPosEinzel in 'unit_AuftragPosEinzel.pas'{*.html},\r\n  Unit_AngebotPosEinzel in 'Unit_AngebotPosEinzel.pas'{*.html},\r\n  unit_EinzelAngebot in 'unit_EinzelAngebot.pas'{*.html},\r\n  unit_Bestellvormerkung in 'unit_Bestellvormerkung.pas'{*.html},\r\n  unit_TelefonSuche in 'unit_TelefonSuche.pas'{*.html},\r\n  unit_ListeAnsprechpartner in 'unit_ListeAnsprechpartner.pas'{*.html},\r\n  unit_EinzelAnsprechpartner in 'unit_EinzelAnsprechpartner.pas'{*.html},\r\n  unit_AuftragSuche in 'unit_AuftragSuche.pas'{*.html},\r\n  unit_ProduktionSuche in 'unit_ProduktionSuche.pas'{*.html},\r\n  unit_Kontaktnummersuche in 'unit_Kontaktnummersuche.pas'{*.html},\r\n  unit_Mitteilungen in 'unit_Mitteilungen.pas'{*.html},\r\n  unit_EinzelMitteilung in 'unit_EinzelMitteilung.pas'{*.html},\r\n  unit_NeueMitteilung in 'unit_NeueMitteilung.pas'{*.html},\r\n  unit_ListeTickets in 'unit_ListeTickets.pas'{*.html},\r\n  unit_EinzelTicket in 'unit_EinzelTicket.pas'{*.html},\r\n  unit_GetPhoto in 'unit_GetPhoto.pas'{*.html},\r\n  unit_Dateien in 'unit_Dateien.pas'{*.html},\r\n  unit_EinzelDatei in 'unit_EinzelDatei.pas'{*.html},\r\n  unit_Logbuch in 'unit_Logbuch.pas'{*.html},\r\n  unit_Inventur in 'unit_Inventur.pas'{*.html},\r\n  unit_TicketNeu in 'unit_TicketNeu.pas'{*.html},\r\n  unit_KontaktAenderung in 'unit_KontaktAenderung.pas'{*.html};\r\n\r\n{$R *.res}\r\n  var\r\n  s:string;\r\nbegin\r\n  Application.Initialize;\r\n  Application.AutoFormRoute:=true;\r\n  Application.MainFormOnTaskbar := True;\r\n  Application.CreateForm(TForm1, Form1);\r\n  Application.CreateFormDirect(TDM2, DM2);\r\n  Application.Run;\r\nend.\r\n"],"names":[],"mappings":"AAAA;AACA;AACA;AACA;AACA;ACJA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;ACxiDA;;;;AAaY,oBAAG;AACH,oBAAG;AAIb,mBAAmB;AACW;AAA9B,kCAAyC,cAAC,GAAI,EAAL;AACf;AAA1B,8BAAqC,cAAC,EAAD;AACrC,4BAA4B;AAGjB,qBAAG;AACH,qBAAG,CAAC;AACJ,qBAAG;AACH,qBAAG,CAAC;AACR,iBAAG;AACH,iBAAG;AACA,oBAAI;AACH,qBAAY;AAEjB,gBAAG;AACI,uBAAG;AAyBZ;AACI;AAEC;AACJ,gCADI,wBACJ;AACA,gCAFI,wBAEJ;AAIC;AACD;AAED;AAKM;AAKS;;AAEL;;AAGC,qCAHD,sCAGC;AAQV;AACH;AACA;AACA;AAHG;;aAIH;AAJG;;;aACH,kBACA,IAAA,kBACA,IAAA,kBACA,6BAFA;AAFG;;AACH;AACA;AACA;AACA;AAJG;;;AACH;AACA;AACA;AACS,iDAAE,CAAF;AAAT,qBAAS,wBAAT;AAJG;AAMM;AAEJ,iCACA,8BADA;AACA;AACL;AACA;AAFK;aACL,sBACA;AAFK;;AACL;AACA;AAFK;;;AACL;AACA;AAFK;AAWA;AAND,iCAMC,mCAND;AAMC;;;;;AAywBiB;AAAC;AAAD;AAKA;;AAKJ;AAEpB;AAFoB;AAKU;AAEhC;AAFgC;AAKE;AAAX;AAErB,eAAQ,cAAQ,CAAC,KAAK,eAAN;AAFK;AAAW;AAKC;AAEnC;AAFmC;AAKF;AAAV;AAGrB,eAAQ;AACR,UAAG,KAAK,KAAC,IAAT,EACE,aADF;AAGF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAzBuB;AAAU;AA6BG;AAAb;AAIrB,eAAQ;AACR,UAAG,KAAK,KAAC,EAAT,EACE,aADF;AAGF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAtBuB;AAAa;AA0BD;AAAZ;AAGrB,eAAQ;AACR,UAAG,KAAK,KAAC,EAAT,EAAiB,aAAjB;AAEF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAnBuB;AAAY;AAuBH;AAAT;AAKrB,eAAiB,IAAD;AALK;AAAS;AA2IS;AAAlB;AAErB,eAAU,kBAAe,GAAJ,GAAF,GAAQ,eAAF;AAFJ;AAAkB;AAnIN;;AAKA;;AAKT;AAGxB;AAEA;AAEA,UAAG,CAAI,YAAQ,CAAC,QAAD,CAAf,EAA0B,MAA1B;AACA,WAAI,QAAI;AACR,UAAG,CAAI,YAAQ,CAAC,EAAD,CAAf,EAAyB,MAAzB;AACA,eAAQ;AACR,aAAM,MAAM,KAAE,IAAd;AAGF;AACA;AACA;AACA;AACA;AAEI,iBAAQ,MAAM;;AAEhB,yBAAc,CAAC,QAAD;AAtBU;AAyBG;AAG3B;AAEA;AAEA,UAAG,CAAI,YAAQ,CAAC,QAAD,CAAf,EAA0B,MAA1B;AACA,WAAI,QAAI;AACR,UAAG,CAAI,YAAQ,CAAC,EAAD,CAAf,EAAyB,MAAzB;AACA,eAAQ;AACR,aAAO,MAAM,KAAE,IAAf;AAGF;AACA;AACA;AACA;AACA;AAEI,iBAAQ,MAAM;;AAEhB,4BAAiB,CAAC,QAAD;AAtBU;AAyBG;AAE9B,UAAkB,QAAlB;AAF8B;AAKG;AAEjC,UAAkB,QAAlB;AAFiC;AAKN;AAAZ;AAGjB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEE,eAAU,sBAAiB,CAAC,cAAY,CAAC,GAAD,EAAM,GAAnB;AAbZ;AAAY;AAgBA;AAAZ;AAEf,eAAU,sBAAiB,CAAC,OAAO,GAAR;AAFZ;AAAY;AAKK;AAAjB;AAEf,eAAQ;AACR,UAAG,CAAW,oBAAiB,QAA/B,EACS,oBAAiB,QAAxB,GAAiC,cAAY,CAAC,oBAAD,CAD/C;AAEA,UAAG,MAAO,IAAS,oBAAiB,QAApC;AAEE,gBAAK,IAAL;AACI,eAAC;OAHP;AAMF;AACA;AACA;AAbiB;AAAiB;AAiBD;AAAhB;AAEf,eAAQ,iBAAY,CAAC,IAAI,GAAL;AAEtB;AACA;AACA;AACA;AACA;AACA;AATiB;AAAgB;AAaV;AAAN;AAEf,eAAQ,GAAG,KAAC,IAAD;AAFI;AAAM;AAKE;AAAR;AAEf,eAAQ;AAFO;AAAQ;AA3/BhB;AAgDS;;AAEK,gDAFL,sCAEK;AACA,gDAHL,4CAGK;AAKjB,cAAY;AACT,iBAAS;AACH,uBAAG,CAAC;AACL,sBAAI,CAAC;AACR,mBAAO,CAAC;AAIT,gFAEiB,iBACP,UACC,UAJX;;;AAEiB,qCAAU,OAtF9B,oBAsF8B,GAAgB,cAA1B;AACP;AACC;AAJX;AASE;;AAKC,mFACU,aACF,WACF,OAHN;;AACU,mCA/Ed,qBA+Ec;AACF;AACF;AACC,+BAlFX,sBAkFW;AAJP;AAOA,mFACa,eADb;;AACa,sCARb,yBAQa;AADb;AAMM;;;AAEf;AAFe;AA8oBsB;AAAd;AAEzB,UAAG,iBAAY,CAAC,IAAI,GAAL,CAAf;AACE,iBAAQ;AAER,qBAAgB;AALO;AAAc;AAQP;AAAP;AAErB,oBAAJ,IAAG;AACH,eAAQ;AAHiB;AAAO;AAMC;AAAR;AAErB,oBAAJ,IAAG;AACH,eAAQ;AACR,UAAG,cAAS,KAAC,CAAb,EACE,wBADF;AAJyB;AAAQ;AAQU;AAE3C,UAAG,cAAS,KAAE,CAAd,EAEF,8BAFE;AAF2C;AApqB1B;;AAWD,2CAXC,6CAWD;AAIC;;;AAEf;AAFe;AAkmBqB;AAAb;AACtB;AADmC;AAEtC,qCAAmB,gBAAnB;AADG;AADmC;AACnC;AADmC;AAAb;AAAa;AAKC;AAAd;AAEzB,eAAmB,gBAAY,eAAe,CAAC,IAAK,GAAN;AAFrB;AAAc;AAKP;AAAP;AAEzB,eAAmB,gBAAY;AAFN;AAAO;AAKC;AAAR;AAEzB,eAAmB,gBAAY;AAFN;AAAQ;AAKC;AAExB;AAEV,yBAAuB;AAJyC;AAA9B;AAtnBjB;AAgBD;AAwkBsB;AAAd;AAExB,UAAG,iBAAY,CAAC,IAAI,GAAL,CAAf;AACE,iBAAQ;AAER,qBAAgB;AALM;AAAc;AAxkBtB;;AAOD;AAUN;;AAgCC,gCAhCD,iCAgCC;AAGH,iBAAG;AACC,qBAAG;AACT,eAAG,cAAe,uDAAf;AACC,mBAAG,cAAC,uBAAD;AACA,sBAAkB,YAAV,YAAL,WAAM,cAAD,EAAW,cAAC,wBAAD,CAAD;AAOrB,mBAAS;AACT,mBAAS;AAER,oBAAQ;AAET,mBAAS;AAEV,kBAAU;AACX,iBAAW;AACR,oBAAQ;AAGR,oBAAQ;AAEP,qBAAO;AAIH,yBAAG;AAEP,qBAAO;AACT,mBAAS;AAGX,iCACA,8BADA;AACA;AACL;AACA;AAFK;aACL,wBACA,IAAA,8BACA,IAAA,8BACA,IAAA,8BACA,IAAA,8BACA,IAAA,8BACA,IAAA,8BACA,IAAA,8BACA,IAAA,8BACA,IAAA,8BACA,IAAA,8BACA,IAAA,8BACA,kCAXA;AAFK;;AACL;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAbK;;;AACL;AACA;AACA;AACA;AACA;AACA;AACA,2BAzNK,qBAyNL;AACA,2BAhOI,oBAgOJ;AACA;AACA;AACA;AACA;AACA;AAbK;AAeK,uCAfL,6BAeK;AA+IE;AAAP;AAEP;AACA;AAEA,aAAQ;AACR,WAAM,CAAC,GAAC,SAAW,OAAnB;AAEM,OAAD;AACH,OAAE,MAAF,GAAc,UAAC,SAAY,GAAb;AACV,OAAJ,IAAG;AACH,OAAE,SAAF,GAAa,SAAY;AACrB,OAAJ,IAAG;AACM,YAAO,KAAK,CAAE,oBAAD,CAAC,CAAF;;AAbhB;AAAO;AAtId,mBAA+C;AAC/C,4CAA+C;AAGlC;AACF,gEAAiB,qBAAjB;AAEX;AACA;AA+IiB;AAAV;AAEP,QAAY,iBAAD,QAAX;AACE,eAAQ,iBAAY;AAEpB,mBAAQ;AALH;AAAU;AAQF;AAAR;AAEP,QAAY,eAAD,QAAX;AACE,eAAQ,eAAU,CAAC,KAAD;AACf,cAAG,KAAK,KAAC,CAAT;AACH,eAAQ;AAER,mBAAQ;AAPH;AAAQ;AAUJ;AAEb;AAFa;AAKD;AAEZ;AAFY;AAKG;AAEf;AAFe;AAKH;AAEZ;AAFY;AAKA;AAEZ;AAFY;AAKE;AAEd;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAVc;AAhJa,mCAAyB;AAyPxC;AAAH;AAIP,aAAQ,UAAK,CAAC,CAAD;AAJN;AAAG;AA5FC;AAEb;AACA;AAHa;AAMA;AAEb;AACA;AAHa;AAMG;AAEd;AAEA,QAAS,CAAL,KAAK,GAAC,CAAD,CAAyB,IAAZ,CAAL,KAAK,GAAQ,OAAD,OAAP,CAAT,IAA6B,CAAJ,IAAI,IAAE,CAAF,CAA1C,EAAoD,MAApD;AACA,QAAG;AACH,UAAG,SAAI,CAAC,EAAE,EAAE,KAAK,GAAC,CAAX,CAAa,GAAC,WAAI,CAAC,EAAE,KAAK,GAAC,IAAT,CAAzB;AANc;AASJ;AAEZ;AAFY;AAKA;AAEZ;AAFY;AAKI;AAEd;AAEA,QAAG,SAAS,KAAC,EAAb,EAAqB,MAArB;AACA,QAAG;AACH,QAAG,KAAK,GAAC,CAAT;AACE,iBAAQ,SAAS,GAAC,CAAlB;AACG,cAAG,KAAK,GAAQ,CAAD,OAAf;AACH,iBAAQ,CAAC,GAAC,SAAV;AAEA,qBAAQ,SAAI,CAAC,EAAE,EAAE,KAAK,GAAC,CAAX,CAAuB,GAAT,SAAD,GAAW,SAAI,CAAC,EAAE,MAAa,CAAD,OAAf,CAAxC;AAXY;AAyMD;AAEf;AAFe;AAZA;AAAN;AAEP;AAEU,UAAD,oBAAC,OAAO,GAAR;AACT,aAAO,UAAW,aAAlB;AAAI;AAED,YAAM,iBAAN,OAAO,MAAQ,oBAAC,EAAE,GAAK,CAAJ,GAAI,GAAI,CAAJ,CAAR,CAAT;AACN,YAAS,WAAJ,GAAI;;AARL;AAAM;AAzFF;AAEX,WAAI,YAAM,CAAC,EAAK,kBAAS,iBAAK,IAApB,CAAV;AAFW;AAKA;AAEX;AAEA,QAAG,CAAC,KAAC,EAAL;AAEE,eAAM,CAAN;AACA;KAHF;AAKA,QAAG,MAAM,CAAC,CAAD;AACT,QAAG,KAAK,CAAC,CAAD,CAAmB,IAAV,CAAD,CAAC,KAAE,QAAG,CAAC,CAAD,CAAL,CAAL,IAAoB,CAAD,CAAC,GAAC,CAAD,CAAhC;AACE,eAAM,CAAN;;AAGA,eAAM,CAAN;AACA,aAAI,UAAK,CAAC,CAAD,CAAT;;AAfS;AAmBA;AAEX,WAAI,YAAM,CAAC,EAAK,KAAS,IAAK,IAApB,CAAV;AAFW;AAeA;AAEX,UAAG,YAAM,CAAC,EAAK,EAAQ,IAAI,IAAlB,CAAT;AAFW;AAVA;AAEX,WAAI,YAAM,CAAC,EAAK,OAAS,MAAK,IAApB,CAAV;AAFW;AAeA;AAEX,UAAG,YAAM,CAAC,EAAK,EAAQ,MAAI,IAAlB,CAAT;AAFW;AAKA;AAEX,UAAG,YAAM,CAAC,EAAK,YAAQ,WAAI,IAAlB,CAAT;AAFW;AAfA;AAEX,UAAG,YAAM,CAAC,EAAK,EAAQ,WAAI,IAAlB,CAAT;AAFW;AAoBA;AAEX;AAEA,QAAG,CAAC,KAAC,EAAL;AAEE,eAAM,CAAN;AACA;KAHF;AAKA,QAAG,MAAM,CAAC,CAAD;AACT,QAAG,KAAK,CAAC,CAAD,CAAR;AACE,eAAM,CAAN;;AAGA,eAAM,CAAN;AACA,YAAG,CAAH;;AAfS;AAmBA;AAEX,QAAG,cAAQ,CAAC,EAAE,MAAH,CAAX;AAEE,eAAM,CAAN;AACA,YAAG,IAAH;KAEG,UAAG,cAAQ,CAAC,EAAE,OAAH,CAAX;AAEH,eAAM,CAAN;AACA,YAAG,KAAH;KAGA,eAAM,CAAN;AAbS;AAiCQ;AAAZ;AAEP;AAGF;AAEE,aAAQ;AACR,aAAO,QAAK,0BAAZ;AAAI;AAAa,eAAQ,MAAM,GAAC,CAAD;;AARxB;AAAY;AArLN;AAEb;AAEA,aAAO,QAAuB,OAAlB,SAAW,OAAO,GAAC,CAAD,kBAA9B;AAAI;AACF,UAAY,mBAAD,QAAX;AACE,2BAAa,CAAC,SAAY,IAAG,KAAhB;AAEb,6BAAU,cAAQ,GAAO,MAAC,SAAY,GAAb,CAAP;;AART;AAWE;AAGf;AAAE;AACF;AAGA,QAAG,SAAW,OAAO,GAAC,CAAD;AACrB,QAAY,mBAAD,QAAX;AAEE,eAAO,QAAK,0BAAZ;AAAI;AACF,2BAAa,CAAC,SAAY,IAAG,CAAC,KAAC,CAAlB;;;AAIf,UAAG;AACH,eAAO,SAAK,8BAAZ;AAAI;AACF,YAAG,CAAC,GAAO,MAAC,SAAY,GAAb,CAAP;;AAEV;AAEI,uBAAU;;AArBG;AAhMA,oEAAe,kBAAmB,uBAAlC;AA8KQ;AAAhB;AAGP,aAAQ;AACR,0BAAe;AAJR;AAAgB;AAuMR;AAEjB;AAFiB;AAKG;AAEpB;AAFoB;AAKE;AAEtB;AAFsB;AArtBN;;;;;;;;;;;;;;;iDA0BP,6BA1BO;;;;;;;;;;;;;AAxFhB,mBAqbc;AAMN;AAUE;AAOI;AAiBG;AAEjB;AAFiB;AA4Hf;AACA;AAsDa;AAAN;AAEP;AAEA,UAAG,CAAC,KAAC,EAAL;AAEE,iBAAM,CAAN;AACA;OAHF;AAKA,UAAG,MAAM,CAAC,CAAD;AACT,UAAG,KAAK,CAAC,CAAD,CAAR;AACW,mBAAJ,SAAI,CAAC,EAAE,EAAE,CAAL;AACT,YADS,IACT;AAAK,cAAG,MAAM,CAAC,IAAI,GAAC,WAAI,CAAC,EAAE,CAAH,CAAV;AACd,kBAFS,IAET;AAAK,cAAG,MAAM,CAAC,IAAI,GAAC,WAAI,CAAC,EAAE,CAAH,CAAV;AACd,kBAHS,IAGT;AAAK,cAAG,MAAM,CAAC,IAAI,GAAC,WAAI,CAAC,EAAE,CAAH,CAAV;;AAEZ,mBAAM,CAAN;AACA;;OAPJ;AASA,UAAG,KAAK,CAAC,CAAD,CAAI,IAAK,CAAD,CAAC,KAAE,QAAG,CAAC,CAAD,CAAL,CAAjB;AACE,iBAAM,CAAN;AACG,gBAAK,CAAD,CAAC,GAAC,MAAD,CAAS,IAAK,CAAD,CAAC,GAAC,MAAD,CAAnB;AACH,iBAAM,CAAN;;AAGA,iBAAQ,UAAK,CAAC,CAAD;AACb,iBAAM,CAAN;;AA1BK;AAAM;AA3ND;AAksBd;AACE,mBAAU;AADZ;AAvnCA;ACAA,wBAES,UAFT;;;AAES,2BAGS,4DACF,0DACE,mEACE,2DACH,0DACH,2CACG,yDACC,iEACA,kEACF,+DACS,oEAEX,qDACG,wDACD,yDAEC,8CACM,2DACH,wDAEA,wDACC,0DACC,uDACO,8EACR,sDAED,0DACF,+DACA,wDACA,uDACI,kEACA,8DACD,gEACC,sEACI,+FACG,2FACT,4EACU,sFAEhB,uDAEa,gFACJ,4DACR,+CACG,mDACI,yDACH,gEACc,gFACb,uDACE,sDACH,mDACH,+CAEW,gFACF,oFACR,yDACI,iEACE,4DACI,yDACJ,4EACE,gFACT,0DACa,+DACL,mDACX,mCAEK,+DAED,qGACH,8CACa,qEACJ,mEACM,yEA3EpB;AAFT;ACAA,oBAIS,UAJT;;;AAQY;;AAEM;AACH;AACG;AACE;AACH;AACA;AACC;AACD,0CFiGR,mCEjGQ;AACF;AAEF;;AACN;AACM,qEAAuC,wBAAvC;AAEE,oEAAiB,qBAAK,mBAAtB;AACM,wEAAiB,qBAAK,mBAAtB;AAEd;AACH;AAAI;AADD;aACH,kBAAI;AADD;;AACH;AAAI;AADD;;;AACH;AAAI;AADD;AAIC;AACJ;AAAG;AADC;aACJ,gBAAG;AADC;;AACJ;AAAG;AADC;;;AACJ;AAAG;AADC;AAID;AACH;AAAM;AAAK;AAAO;AADf;aACH,sBAAM,IAAA,oBAAK,IAAA,wBAAO,8BAAZ;AADH;;AACH;AAAM;AAAK;AAAO;AADf;;;AACH;AAAM;AAAK;AAAO;AADf;AAoBW;AAAT;AAEP,aAAgB,CAAP,EAAE,KAAK,KAAC,EAAE,KAAH,CAAsD,IAA/B,CAAR,EAAE,MAAM,KAAC,EAAE,MAAH,CAAb,IAAmC,CAAN,EAAE,IAAI,KAAC,EAAE,IAAH,CAAX,IAAkC,CAAT,EAAE,OAAO,KAAC,EAAE,OAAH,CAAd;AAF/D;AAAS;AAKL;AAAJ;AAEP,UAAM,KAAN,GAAa;AACb,UAAM,IAAN,GAAY;AACZ,UAAM,MAAN,GAAc;AACd,UAAM,OAAN,GAAe;AALR;AAAI;AAQE;AAAN;AAEP,UAAM,KAAN,GAAa;AACb,UAAM,IAAN,GAAY;AACZ,UAAM,MAAN,GAAc,KAAK,GAAC,MAAD;AACnB,UAAM,OAAN,GAAe,IAAI,GAAC,OAAD;AALZ;AAAM;AAQD;AAAL;AAEP,UAAM,EAAN,GAAU;AACV,UAAM,EAAN,GAAU;AAHH;AAAK;AAMG;AAAR;AAEP,aAAY,CAAH,CAAC,EAAE,IAAE,KAAK,IAAP,CAEc,IADd,CAAH,CAAC,EAAE,GAAC,KAAK,OAAN,CADa,IAEb,CAAH,CAAC,EAAE,IAAE,KAAK,KAAP,CADe,IAEf,CAAH,CAAC,EAAE,GAAC,KAAK,MAAN,CADc;AAJnB;AAAQ;AAQK;AAAb;AAEP;AAEA,kBAAS,EAAT;AACA,QAAG,EAAE,KAAM,GAAE,EAAE,KAAf,EACE,KAAK,KAAL,GAAc,EAAE,KADlB;AAEA,QAAG,EAAE,IAAK,GAAE,EAAE,IAAd,EACE,KAAK,IAAL,GAAa,EAAE,IADjB;AAEA,QAAG,EAAE,MAAO,GAAE,EAAE,MAAhB,EACE,KAAK,MAAL,GAAe,EAAE,MADnB;AAEA,QAAG,EAAE,OAAQ,GAAE,EAAE,OAAjB,EACE,KAAK,OAAL,GAAgB,EAAE,OADpB;AAKA,QAAG,gBAAW,CAAC,KAAD,CAAd;AAEE,oBAAO,SAAI,CAAC,EAAE,EAAE,EAAE,CAAP,CAAX;AACA,eAAQ;;AAIR,eAAQ;AACR,oBAAS,KAAT;;AAxBK;AAAa;AA4BJ;AAAT;AAEP;AAEA,kBAAO,EAAP;AACA,QAAG,EAAE,KAAK,GAAC,EAAE,KAAb,EACE,KAAK,KAAL,GAAY,EAAE,KADhB;AAEA,QAAG,EAAE,IAAI,GAAC,EAAE,IAAZ,EACE,KAAK,IAAL,GAAW,EAAE,IADf;AAEA,QAAG,EAAE,MAAM,GAAC,EAAE,MAAd,EACE,KAAK,MAAL,GAAa,EAAE,MADjB;AAEA,QAAG,EAAE,OAAO,GAAC,EAAE,OAAf,EACE,KAAK,OAAL,GAAc,EAAE,OADlB;AAGA,QAAG,gBAAW,CAAC,KAAD,CAAd;AAEE,oBAAO,SAAI,CAAC,EAAE,EAAE,EAAE,CAAP,CAAX;AACA,eAAQ;;AAIR,oBAAO,KAAP;AACA,eAAQ;;AAtBH;AAAS;AA0BE;AAAX;AAEP,aAAoB,CAAX,KAAK,MAAM,IAAE,KAAK,KAAP,CAAc,IAAgB,CAAZ,KAAK,OAAO,IAAE,KAAK,IAAP,CAAhB;AAF3B;AAAW;AAKD;AAAV;AAID,cAAJ,IAAS;AACL,aAAJ,IAAQ;AACJ,eAAJ,IAAU;AACN,gBAAJ,IAAW;AAEb,aAAQ;AATD;AAAU;AAYC;AAAX;AAEK;AAAH;AAEP,UAAG,CAAE,GAAE,CAAP;AACE,iBAAU,CAAE,GAAW,CAAL,CAAF,CAAE,GAAE,CAAF,CAAK,KAAI,CAAJ,CAAX;AAEZ,qBAAU,CAAE,GAAW,CAAL,CAAF,CAAE,GAAE,CAAF,CAAK,KAAI,CAAJ,CAAX;AALP;AAAG;AAWR,UAAM,EAAN,GAAY,GAAG,CAAC,WAAM,WAAP;AACf,UAAM,EAAN,GAAY,GAAG,CAAC,UAAK,YAAN;AAdZ;AAAW;AAkBA;AAAX;AAID,cAAJ,IAAU;AACN,aAAJ,IAAS;AACL,eAAJ,IAAW;AACP,gBAAJ,IAAY;AAEd,aAAU;AATH;AAAW;AAYP;AAAJ;AAEP,UAAM,GAAN,GAAa;AACb,UAAM,GAAN,GAAa;AAHN;AAAI;AAMA;AAAJ;AAEP,UAAM,GAAN,GAAa,KAAK,MAAO,GAAE,KAAK,KAAP;AACzB,UAAM,GAAN,GAAa,KAAK,OAAQ,GAAE,KAAK,IAAP;AAHnB;AAAI;AArMb;ACAA,iBAKS,kBALT;;;AAagB;;AAEK;;;AAEjB;AAFiB;AAkpCiB;AAE1B;AACV,mBAAS;AAHiD;AAAtB;AAlpCjB;AAUhB;;;AAED;AAFC;AAkmCiB;AAEpB,sBAAU;AAF8B;AAApB;AAlmCjB;AAcM;AAuCQ,4CAvCR,+BAuCQ;AACK,iDADL,uCACK;AACL;AAID;AAOL;AAYL;AAJS,yEAA+B,sBAAe,sBAAiB,QAIxE,oBAJwE,CAA/D;AACG,4EAAgC,sBAAc,mBAA9C;AAGZ;AAmBgB,gFAA6B,mBAA7B;AACJ,4EAAgC,sBAAc,mBAA9C;AAGZ;AAsBK,sCA7GF,mCA6GE;AAeJ,kCAfI,qCAeJ;AA8Ec;;aACnB,wCACA,IAAA,wBACA,IAAA,oCACA,IAAA,gDACA,IAAA,4BACA,oCAJA;AAFmB;;AACnB;AACA;AACA;AACA;AACA;AACA;AANmB;;;AACnB;AACA;AACA;AACA;AACA;AACA;AANmB;AASZ;AAgCO,0EAAqC,sBAArC;AACC,2EAAqC,uBAAiB,uBAAmB,sBAAzE;AACA,2EAAqC,uBAAG,oBAAiB,uBAAmB,sBAA5E;AACA,2EAAqC,uBAAG,oBAAG,oBAAiB,uBAAmB,sBAA/E;AAER;AAiFD;AAZS,2EAAiC,wBAAiB,wBAAoB,WAY/E,sBAZ+E,CAAtE;AACJ,uEAAiC,wBAAiB,wBAAoB,WAW3E,sBAX2E,CAAtE;AACG,0EAAiC,wBAAiB,wBAAoB,WAU9E,sBAV8E,CAAtE;AACG,6EAAqC,4BAAc,6BAAwB,+BAAqB,WAS3G,sBAT2G,CAAhG;AACC,8EAA2B,kBAAE,iBAA7B;AAQZ;AA0EM,yCAnZL,mCAmZK;AAWC;AAaF;AAPQ,0EAAoB,wBAAiB,wBAAoB,WAOjE,2BAPiE,CAAzD;AACH,yEAAoB,wBAAiB,wBAAoB,WAM9D,2BAN8D,CAAzD;AACM,6EAAoB,wBAAiB,wBAAoB,WAKpE,2BALoE,CAAzD;AACH,4EAAoB,wBAAiB,wBAAoB,WAIjE,2BAJiE,CAAzD;AACM,gFAAwB,4BAAc,6BAAwB,+BAAqB,WAGjG,2BAHiG,CAAnF;AACC,iFAAc,kBAAE,iBAAhB;AAEf,wCAbE,yCAaF;AA0ED,uCA1EC,uCA0ED;AA0BC,wCApGA,uCAoGA;AAsBO,+CA1HP,uCA0HO;AAsBP,wCAhJA,uCAgJA;AAsBC,yCAtKD,uCAsKC;AAsBD,wCA5LA,uCA4LA;AAsBC,yCAlND,uCAkNC;AAsBC,0CAxOF,uCAwOE;AAsBA,0CA9PF,uCA8PE;AAsBJ,sCAjSI,yCAiSJ;AA2CJ,kCA1uBE,mCA0uBF;AAaC,mCAvvBC,mCAuvBD;AAcU,4EAAgC,sBAAhC;AACA,4EAAkC,WADlC,gCACkC,EAAO,UADzC,gCACyC,CAAzC;AACM;AAId;AAFK,0CAEL,gCAFK;AAEL;AAoBM;AAmWkB;AAAJ;AAE9B,eAAU;AAFoB;AAAI;AAnWlB;AAKI;AAUH,4CA9yBR,mCA8yBQ;AASD,2CAvzBP,mCAuzBO;AAIF,yCApEN,kCAoEM;AAEO,gDA7zBZ,mCA6zBY;AAKD,+CAl0BX,mCAk0BW;AAIN,yCAt0BL,mCAs0BK;AAkBgB,yDAx1BrB,mCAw1BqB;AAKhB,yCA71BL,mCA61BK;AAuEJ;AAAH;AAKP;AAAE;AACF;AAGA,QAAS,WAAC,SAAD;AACT,QAAM,CAAF,CAAE,GAAI,CAAJ,CAAM,KAAC,CAAb,EACE,MAAM,QAAG,QAAC,YAAM,CAAC,kCAAD,CAAN,CADZ;AAEA,QAAG;AAEH,WAAO,CAAC,GAAC,CAAT;AAEE,UAAG,CAAI,YAAQ,CAAC,SAAS,CAAC,CAAD,CAAV,CAAf;AAEE,YAAG,MAAQ,CAAC,CAAD;AACX,cAAM,QAAG,QAAC,YAAM,CAAC,WAAa,GAAD,CAAD,GAAG,oBAAf,CAAN;OAHZ;AAKI,OAAJ,IAAM;;AAER,QAAG;AACH,aAAkB,IAAV,MAAU;AAClB,WAAO,CAAC,GAAC,CAAT;AAEE,UAAS,KAAC,SAAS,CAAC,CAAD,CAAV;AACT,YAAkB,GAAlB,GAAsB,SAAS,CAAC,CAAC,GAAC,CAAH;AAC3B,OAAJ,IAAM;;AA7BD;AAAG;AAiCK;AAEjB;AAFiB;AAKA;AAEjB;AAFiB;AAKC;AAElB;AAFkB;AAKH;AAEf;AAFe;AAKI;AAEnB;AAFmB;AAKJ;AAEf;AAFe;AAKC;AAEhB;AAFgB;AAKQ;AAExB;AAFwB;AAKN;AAElB;AAFkB;AAKH;AAGf;AAHe;AAME;AAEjB;AACA;AACA;AACA;AACA;AANiB;AASG;AAEpB;AAFoB;AAKF;AAElB;AAFkB;AAKE;AAEpB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAboB;AAgBC;AAGrB;AAHqB;AAMJ;AAEjB;AAFiB;AAKC;AAAT;AAEP,QAAG,cAAS,CAAC,CAAD,CAAZ;AACE,eAAiB,UAAC,CAAD;AAEjB,mBAAQ;AALH;AAAS;AAQD;AAAR;AAGP,QAAG,YAAQ,CAAC,KAAD,CAAX;AACE,eAAkB;AAElB,mBAAQ;AANH;AAAQ;AASD;AAAP;AAGP,QAAG,WAAO,CAAC,KAAD,CAAV;AACE,eAAiB;AAEjB,mBAAQ;AANH;AAAO;AASE;AAAT;AAGP,QAAG,cAAS,CAAC,KAAD,CAAZ;AACE,eAAe,EAAC,KAAD;AAEf,mBAAQ;AANH;AAAS;AASD;AAAR;AAGP,QAAG,YAAQ,CAAC,KAAD,CAAX;AACE,eAAc,KAAC,KAAD;AAEd,mBAAQ;AANH;AAAQ;AA/KH;;AAgMO;AAAZ;AAGP;AAGA,QAAG,WAAM,CAAC,EAAD,CAAT;AACE,eAAQ;;AAGR,UAAG,MAAQ,CAAC,EAAD;AACX,UAAI,CAAC,KAAC,QAAN;AACE,iBAAQ;AACL,gBAAI,CAAC,KAAC,SAAN;AACH,iBAAQ;AACL,gBAAI,CAAC,KAAC,QAAN;AAEH,YAAG,WAAO,CAAC,EAAD,CAAV;AACE,mBAAQ;AAER,uBAAQ;OAEP,UAAI,CAAC,KAAC,QAAN,EACH,IAAG,cAAS,CAAC,EAAD,CAAZ;AACE,iBAAQ;AAER,qBAAQ,0BAJP;;AAtBA;AAAY;AAjoCrB;ACAA,uBAQS,2BART;;;;AA8jGoB;AAElB;AAEA,QAAW;AACX,QAAG,CAAC,KAAC,IAAL,EAAc,MAAd;AACQ,YAAM,IAAN;AACR,KAAC,SAAC;AAPgB;AA9iGR;AAMI,wBAAG;AAGN;AAGF;AACP;AACA;AAFO;;iBAGP;AAHO;;;aACP,8BACA,IAAA,8BACA,qCADA;AAFO;;AACP;AACA;AACA;AAHO;;;AACP;AACA;AACa,yDAAE,EAAF;AAAb,yBAAa,gCAAb;AAHO;AAKF;;AAEG,+CAAW,KAAX;AACA,+CAAW,KAAX;AACJ;AACM;AAEG,oDAAW,EAAX;AACN,8CAAW,EAAX;AACK,mDAAW,CAAX;AAEL,8CAAU,CAAV;AAMM;AAab;AACA;AACA;AACA;AAEA;AACA;AAGA;AACA;AACA;AAGA;AACA;AACA;AACA;AACA;AACA;AAGsB,0FAA0B,yBAAoB,aAnCvD,EAmCuD,CAA9C;AACZ;AApCG;;8BAiBb;AAjBa,uBAoBb;AApBa,yBAqBb;AArBa,wBAyBb;AAzBa,0BA0Bb;AA1Ba;;;aAab,8CACA,IAAA,0CACA,IAAA,0CACA,IAAA,wCACA,IAAA,2DACA,IAAA,8CACA,IAAA,0CACA,IAAA,6CACA,IAAA,iDACA,IAAA,0CACA,IAAA,wCACA,IAAA,4CACA,IAAA,+CACA,IAAA,mDACA,IAAA,4CACA,IAAA,gDACA,IAAA,sCACA,IAAA,sCACA,IAAA,wCACA,oEAlBA;AAda;;AAab;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAhCa;;AA8yK8B;AAE/C;AAF+C;AAuVL;AAE1C;AAF0C;AAlVc;AAExD;AACA;AACA;AAJwD;AAOL;AAEnD;AACA;AACA;AAJmD;AAOE;AAErD;AACA;AAHqD;AAMC;AAAvB;AAE7B,eAAU;AAEV,UAAG,cAAS,CAAC,OAAD,CAAU,KAAE,OAAxB,EACE,SAAU,eADZ;AAJ6B;AAAuB;AAU/C,gBAAG;AACI,uBAAG;AAHsC;AAAxB;AAK7B;AACA;AAEA,YAAc;AAEd,gBAAkB,gCAAP;;;;UAAO;AAElB,eAAiB,gCAAP;;;;WAAgB,KAAT;AAEjB,UAAG,MAAO,IAAG,CAAb;AAEE,kBAAkB,oCAAP;;;;aAAkB,EAAG,MAAd,CAAsB,GAA2B,gCAAR,CAAV,qCAAP;;;;eAAkB,MAAX,GAAU;;;;YAAQ,CAA3B;;AAIxC,YAAU,kCAAP;;;;YAAO,CAAQ,KAAE,CAApB,EACE,UAAW,OAAgB,GAAN,KAAF,GAAiB,gCAAP;;;;YAAO,CADtC;;AAKJ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,eAAU;AA/OmB;AAAwB;AAkPH;AAEpD;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAXoD;AAcE;AAEtD;AACA;AACA;AACA;AACA;AACA;AACA;AARsD;AAWC;AAAxB;AAG7B,eAAU;AAEV,UAAG,cAAS,CAAC,OAAD,CAAU,KAAE,OAAxB,EACE,SAAU,WADZ;AAL6B;AAAwB;AAriBlB;AAAN;AAE7B,qBAAU,6BAAM,CAAC,kCAAD,CAAhB;AAF6B;AAAM;AAO1B,qBAAmB,IAAK,IAAK,GAA7B;AACA,qBAAmB,IAAK,IAAK,GAA7B;AACD,oBAAmB,IAAK,GAAxB;AACK,yBAAmB,IAAK,GAAxB;AALsB;AAAN;AAO7B;AACA;AACA;AAEA,aAAQ,cAAS,CAAC,OAAD;AACjB,UAAG,cAAG,CAAC,KAAM,IAAP,CAAa,KAAE,CAArB;AAEE,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAC3B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAC3B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAC3B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAC3B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAC3B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAC3B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAC3B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA8B;AAC9B,cAAM,gBAAgB,CAAC,EAAD,CAAtB,GAA8B;AAC9B,cAAM,gBAAgB,CAAC,EAAD,CAAtB,GAA8B;AAC9B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA6B;AAC7B,cAAM,eAAe,CAAC,EAAD,CAArB,GAA6B;AAC7B,cAAM,eAAe,CAAC,EAAD,CAArB,GAA6B;OAG/B,UAAG,cAAG,CAAC,KAAM,cAAS,CAAC,OAAD,CAAhB,CAA2B,KAAE,CAAnC;AAEE,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAC3B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAC3B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAC3B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAC3B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAC3B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAC3B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAE3B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA8B;AAC9B,cAAM,gBAAgB,CAAC,EAAD,CAAtB,GAA8B;AAC9B,cAAM,gBAAgB,CAAC,EAAD,CAAtB,GAA8B;AAC9B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA6B;AAC7B,cAAM,eAAe,CAAC,EAAD,CAArB,GAA6B;AAC7B,cAAM,eAAe,CAAC,EAAD,CAArB,GAA6B;OAG/B,UAAG,cAAG,CAAC,KAAM,cAAS,CAAC,OAAD,CAAhB,CAA2B,KAAE,CAAnC;AAEE,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAC3B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAC3B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAC3B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAC3B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAC3B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAC3B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAE3B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA8B;AAC9B,cAAM,gBAAgB,CAAC,EAAD,CAAtB,GAA8B;AAC9B,cAAM,gBAAgB,CAAC,EAAD,CAAtB,GAA8B;AAC9B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA6B;AAC7B,cAAM,eAAe,CAAC,EAAD,CAArB,GAA6B;AAC7B,cAAM,eAAe,CAAC,EAAD,CAArB,GAA6B;;AAI7B,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,aAAa,CAAC,CAAD,CAAnB,GAA0B;AAC1B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAC3B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAC3B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAC3B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAC3B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAC3B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAC3B,cAAM,cAAc,CAAC,CAAD,CAApB,GAA2B;AAC3B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA6B;AAC7B,cAAM,gBAAgB,CAAC,CAAD,CAAtB,GAA8B;AAC9B,cAAM,gBAAgB,CAAC,EAAD,CAAtB,GAA8B;AAC9B,cAAM,gBAAgB,CAAC,EAAD,CAAtB,GAA8B;AAC9B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA4B;AAC5B,cAAM,eAAe,CAAC,CAAD,CAArB,GAA6B;AAC7B,cAAM,eAAe,CAAC,EAAD,CAArB,GAA6B;AAC7B,cAAM,eAAe,CAAC,EAAD,CAArB,GAA6B;;AAG/B,YAAM,oBAAoB,CAAC,CAAD,CAA1B,GAAqC;AACrC,YAAM,oBAAoB,CAAC,CAAD,CAA1B,GAAoC;AACpC,YAAM,cAAN,GAAwB;AACxB,YAAM,cAAN,GAAwB;AACxB,YAAM,gBAAN,GAA0B;AAC1B,YAAM,eAAN,GAAyB;AACzB,YAAM,iBAAN,GAA2B;AAC3B,YAAM,kBAAN,GAA4B;AAC5B,YAAM,aAAN,GAAuB;AACvB,YAAM,aAAN,GAAuB;AACvB,YAAM,0BAAN,GAAoC;AAEpC,YAAM,gBAAN,GAA0B,6CAAwB,CAAC,OAAD;AAClD,YAAM,eAAN,GAAyB,4CAAuB,CAAC,OAAD;AAChD,YAAM,gBAAN,GAA0B,6CAAwB,CAAC,OAAD;AAElD,eAAiB,QAAmB,kBAAC,SAAD,uBAApC;AAAI;AAEF,YAAyB,gCAAhB,CAAN,WAAM;;;;aAAyB,SAAS,CAAC,MAAD,CAAlB,CAA4B,IAAG,CAAxD,EACE,MAAM,cAAN,GAAwB,SAAS,CAAC,MAAD,CADnC;;AAKJ;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,eAAiB,SAAmB,mBAAC,SAAD,0BAApC;AAAI;AAEF,YAAW,gCAAR;;;;aAAiB,SAAS,CAAC,MAAD,CAAlB,CAA4B,IAAG,CAA1C,EACE,MAAM,cAAN,GAAwB,SAAS,CAAC,MAAD,CADnC;;AAIF,WAAI,SAAa,GAAb,MAA2C,OAA3C,MAA2C,EAA/C,EACE,MAAM,cAAc,CAAC,UAAD,CAApB,GAAgC,0CAAqB,CAAC,OAAQ,OAAT;AACvD,WAAI,SAAa,GAAb,MAA0C,OAA1C,MAA0C,EAA9C,EACE,MAAM,aAAa,CAAC,UAAD,CAAnB,GAA+B,yCAAoB,CAAC,OAAQ,OAAT;AAErD,WAAI,SAAa,GAAb,MAA6C,QAA7C,MAA6C,EAAjD,EACE,MAAM,gBAAgB,CAAC,UAAD,CAAtB,GAAkC,4CAAuB,CAAC,OAAQ,OAAT;AAC3D,WAAI,SAAa,GAAb,MAA4C,QAA5C,MAA4C,EAAhD,EACE,MAAM,eAAe,CAAC,UAAD,CAArB,GAAiC,2CAAsB,CAAC,OAAQ,OAAT;AAEzD,YAAM,iBAAN,GAA2B,8CAAyB,CAAC,OAAD;AAEpD,eAAiB,SAAkB,mBAAC,QAAD,0BAAnC;AAAI;AAEF,YAAG,MAAM,iBAAkB,KAAE,QAAQ,CAAC,MAAD,CAArC;AAEE,gBAAM,kBAAN,GAA4B,aAAa,CAAC,MAAD;AACzC;SAHF;;AAOF,UAAY,oBAAe,kBAAhB,QAAX,EACE,oBAAe,kBAAkB,CAAC,cAAS,CAAC,OAAD,EAAU,mCAApB,CADnC;AAhP6B;AAAM;AAyiBG;AAAT;AAE7B,UAAG,CAAI,uBAAP;AAEE,iCAAc,6BAAM,CAAC,OAAD,CAApB;AACA,wBAAU,eAAV,GAA6B;AAC7B,wBAAU,eAAV,GAA6B;AAC7B,wBAAU,iBAAV,GAA+B;AAC/B,wBAAU,cAAV,GAA4B;AAC5B,wBAAU,cAAV,GAA4B;AAC5B,wBAAU,gBAAV,GAA8B;AAC9B,wBAAU,eAAV,GAA6B;AAC7B,wBAAU,aAAV,GAA2B;AAC3B,wBAAU,aAAV,GAA2B;AAC3B,wBAAU,gBAAV,GAA8B;AAC9B,wBAAU,eAAV,GAA6B;AAC7B,wBAAU,gBAAV,GAA8B;AAC9B,wBAAU,eAAV,GAA6B;AAC7B,wBAAU,cAAV,GAA4B;AAC5B,wBAAU,aAAV,GAA2B;AAC3B,wBAAU,kBAAV,GAAgC;AAChC,wBAAU,iBAAV,GAA+B;AAC/B,wBAAU,0BAAV,GAAwC;AACxC,wBAAU,cAAV,GAA4B;AAC5B,kCAAqB;OAtBvB;AAwBA,qBAAU,gBAAV;AA1B6B;AAAS;AAnmLvB;AAab;AACA;AACA;AACA;AAC0B,4EAAC,CAAD;AAA1B,sCAA0B,mDAA1B;AACA;AACA;AACA,+BA1BO,uBA0BP;AACA,iCA/Ba,6BA+Bb;AACA;AACA;AACA;AACA,gCA/BO,uBA+BP;AACA,kCApCa,6BAoCb;AACA;AACA;AACA;AACA;AACA;AACA;AAIU,oCADY,iDACZ;AACW,+BArCR,GAqCQ;AACA,+BAAc,wBAAd,EAtCR,GAsCQ;AACG,kCAvCX,GAuCW;AAvCX;AAkDN;AAQL;AARK;;AAEP;AACA;AACA;AACA;AALO;;;;;AA6+FiB;AAE1B,sBAAY;AACZ,sBAAqB,IAAT,KAAS,CAAI,GAAJ;AACrB,oBAAU,aAAQ;AAClB,UAAG,uBAAH,EACE,kBAAO,CAAC,qBAAsB,gBAAW,kBAAmB,GAArD,CADT;AAL8C;AAApB;AASG;AAI7B,mBAAM,CAAC,WAAM,CAAC,IAAI,IAAL,CAAP;AAHJ;AAD2B;AAQC;AAE9B,mBAAM,CAAC,GAAD;AACN,0BAAc;AAH2D;AAA3C;AAMG;AAGjC,mBAAM,CAAC,WAAM,CAAC,IAAI,IAAL,CAAP;AACN,0BAAc;AAHqC;AADlB;AAOR;AAAR;AAEjB,eAAQ,eAAc,GAAJ,IAAD,GAAM,aAAD;AAFL;AAAQ;AA3gGhB;AAqBE,sCArBF,qCAqBE;AAEF;;AAGC;;AACA;;AACC;;AACF;;AACC;;AAEJ;;AACM;;AACI;;AACJ;;AAGC;;AACD;;AAIH;;AACC;;AACC;;AACC;;AAKD;;;AAET;AAFS;;AAKK;;AAGE;;AACH;;AACH;;AAIC;;;AACX;AADW;AAq6FqB;AAElC,qBAAS;AAFyC;AAAhB;AAr6FrB;AAKG;;AACP;;AACC;;AACI;;AACL;;AAKK;;AAED;;AACC;;AAEA;;AACG;;AACH;;AAED;;AAEL;;;AAEN;AAFM;;AAKU;;AACF;;AACI;;AACL;;AAEG;;AACU;;AACP;;AAEA;;AACC;;AACK;;AACL;;AACA;;AAED;;AAUb,kBAAG;AACC,sBAAG;AACC,0BAAW;AAClB,mBAAG;AAsxCI;AAAT;AAGP;AAGA,aAAQ;AACR,QAAS,WAAC,IAAD,CAAM,GAAC,CAAD;AACf,WAAO,CAAI,MAAQ,IAAM,CAAD,CAAC,IAAE,CAAF,CAAzB;AAEE,eAAS,EAAE,KAAC,IAAI,CAAC,CAAD,CAAL;AACP,OAAJ,IAAG;;AAXE;AAAS;AALA;AAAT;AAEP,aAAQ,eAAG,IAAG,IAAH;AAFJ;AAAS;AAoBF;AAEhB;AAFgB;AAKC;AAEjB;AACA;AAHiB;AAMJ;AAEb;AAFa;AAKI;AAEjB;AAFiB;AAKC;AAElB;AAFkB;AAqxBA;AAElB;AAFkB;AAKA;AAElB;AAFkB;AAKC;AAEnB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAbmB;AAgBH;AAEhB;AAFgB;AAKI;AAEpB;AACA;AACA;AACA;AACA;AANoB;AASH;AAEjB;AAFiB;AAKO;AAExB;AAFwB;AAKH;AAErB;AAFqB;AAKE;AAAd;AAKP,aAAQ,gBAAW,CAAC,GAAG,EAAJ;AALZ;AAAc;AASJ;AAGjB,aAAM,UAAI,GAAC,CAAX;AAHiB;AAoWJ;AAAN;AAGP,aAAQ,aAAM,CAAC,IAAI,KAAK,mBAAV;AAHP;AAAM;AAMA;AAAN;AAEL;AAAM;AAAO;AAAO;AAAM;AAC1B;AAAG;AACH;AACA;AAAM;AACN;AACA;AACA;AASiB;AAAV;AAEL;AAEmB;AAGnB;AACA;AAEA,YAAG,KAAK,KAAE,CAAC,CAAX,EAAkB,MAAlB;AACA,iBAAQ;AACR,eAAY,CAAL,KAAK,IAAE,GAAF,CACY,IAAP,CAAV,GAAG,QAAC,SAAD,CAAO,IAAE,GAAF,CADE,IACoB,CAAV,GAAG,QAAC,SAAD,CAAO,IAAE,GAAF,CADvC,EACqD,KAAJ,IAAG;AACpD,YAAG,KAAK,GAAC,GAAT,EACE,mBAAa,CAAC,EAAgB,GAAjB,CADf;AAEA,YAAG,GAAG,QAAC,SAAD,CAAO,KAAC,GAAd;AAGE,cAAG,KAAK,KAAK,GAAb;AACE,mBAAM;;AAGN,mBAAM;AACF,iBAAJ,IAAG;;AAGL,cAAS,CAAL,KAAK,GAAC,MAAD,CAAS,IAAQ,CAAJ,IAAI,GAAK,YAAC,IAAD,MAAL,CAA1B,EACE,mBAAa,CAAC,EAAgB,GAAjB,CADf;AAGA,mBAAQ,IAAI,GAAC,CAAD;AAEG,qBAAV,IAAI,CAAC,IAAD,CAAM;AACZ,cADY,IACZ;AAAW,oBAAS,IAAI,CAAC,IAAD,CAAM;AAC9B,oBAFY,IAEZ;AAAa,oBAAS,IAAI,CAAC,IAAD,CAAM;;AAEjC,+BAAa,CAAC,EAAgB,GAAjB;;AAEX,eAAJ,IAAG;;AAIH,cAAI,MAAM,GAAC,KAAX;AAEE,0BAAI,CAAC,eAAI,CAAC,IAAI,OAAO,KAAK,GAAC,MAAlB,EAA0B;;;;iBAAM;;;;gBAArC;AAEJ,gBAAG,IAAI,GAAC,CAAR,EAAe,mBAAc,CAAC,EAAgB,GAAjB,CAA7B;WAGA,cAAO,CAAC;;AA7CO;AAiDF;AAGjB,YAAG,GAAG,QAAC,SAAD,CAAO,KAAE,GAAf;AACE;AAEA,sBAAO;AACT,YAAG,GAAG,QAAC,SAAD,CAAO,KAAC,GAAd;AAEE,cAAG,KAAK,KAAC,CAAC,CAAV,EAAiB,mBAAa,CAAC,EAAkB,GAAnB,CAA9B;AACA,kBAAO;AACP,kBAAO,CAAC;AACJ,eAAJ,IAAG;SALL;AAPiB;AAgBD;AAGhB,YAAG,GAAG,QAAC,SAAD,CAAO,KAAC,GAAd;AAEE,iBAAM;AACF,eAAJ,IAAG;SAGH,aAAM;AATQ;AAYC;AAGjB;AACA,YAAG,KAAK,KAAE,CAAC,CAAX;AAEE,kBAAO;AACP,kBAAO,CAAC;SAHV;AAJiB;AAWD;AAGhB,YAAG,GAAG,QAAC,SAAD,CAAO,KAAC,GAAd;AAEM,eAAJ,IAAG;AACD;AACF,cAAG,KAAK,KAAC,CAAC,CAAV,EACC,QAAO,CADR;AAEA,iBAAM;SANR;AAHgB;AAelB,cAAW;AACX,cAAO,CAAC;AACR,aAAM,CAAC;AACP,cAAO,CAAC;AACJ,WAAJ,IAAG;AACH,UAAG,GAAG,QAAC,SAAD,CAAO,KAAC,GAAd;AAEE,iBAAQ;AACR;OAHF;AAKA;AACA;AACA;AACA;AACA,eAAQ,iBAAM,CAAC,GAAG,QAAC,SAAD,CAAJ;AAzHP;AAAU;AA6HF;AAAR;AAOP,eAAQ;AACR,UAAG,KAAK,KAAK,GAAb;AACE,gBAAO;AAEP,oBAAO;AACT,eAAQ,KAAK,GAAC,CAAD;AACb,UAAS,CAAL,KAAK,GAAK,YAAC,IAAD,MAAL,CAAa,IAAqB,CAAjB,IAAI,CAAC,KAAD,CAAO,MAAM,KAAE,EAAF,CAA3C;AAEG,YAAG,GAAH,EACC,mBAAa,CAAC,EAAkB,GAAnB,CADd;AAEI,cAAJ,IAAG;AACH;OALH;AAOA,eAAQ;AApBD;AAAQ;AAwBjB,aAAQ;AACR,UAAY,GAAD;AACX,YAAO;AACP,aAAQ;AACR,aAAQ;AACR,WAAM,KAAK,IAAE,GAAb;AAEE,aAAY,CAAL,KAAK,IAAE,GAAF,CAAO,IAAe,CAAV,GAAG,QAAC,SAAD,CAAO,KAAE,GAAF,CAAlC,EACM,KAAJ,IAAG;AACL,UAAG,KAAK,GAAC,MAAT,EACE,SAAQ,MAAM,GAAC,eAAI,CAAC,IAAI,OAAO,KAAK,GAAC,MAAlB,CADrB;AAEA,UAAG,KAAK,GAAC,GAAT;AAEE,gBAAO;AAIF;AACH,YADG,IACH;AACM,cAAG,QAAQ,CAAC,EAAU,KAAX,CAAX;AACE,oBAAO,aAAQ,CAAC,IAAI,CAAC,KAAD,CAAO,SAAZ;AACZ,oBAAG,QAAQ,CAAC,GAAY,IAAb,CAAX,EACH,QAAO,aAAQ,CAAC,IAAI,CAAC,KAAD,CAAO,SAAZ,CADZ;AAEL,kBAAO,QAAG,CAAC,KAAD;AACV,kBAAO,IAAI,GAAQ,KAAD,OAAP;AACX,cAAG,KAAK,QAAC,CAAD,CAAG,KAAE,GAAb;AACE,oBAAO,uBAAY,CAAC,IAAI,KAAL,CAAW,GAAC,KAAD;AAG9B,gBAAA,iBAAM,CAAC,uBAAY,CAAC,IAAI,KAAK,GAAC,CAAX,EAAc;;;;eAAM,CAAjC;SAEd,UAdG,IAcH;AACM,cAAG,QAAQ,CAAC,EAAU,KAAX,CAAX;AACE,oBAAO,aAAQ,CAAU,IAAI,CAAC,KAAD,CAAO,SAAZ,MAAT;AACZ,oBAAG,QAAQ,CAAC,GAAY,IAAb,CAAX,EACH,QAAO,aAAQ,CAAY,IAAI,CAAC,KAAD,CAAO,SAAvB,CADZ;AAEL,kBAAO,QAAG,CAAC,KAAD;AACV,kBAAO,IAAI,GAAQ,KAAD,OAAP;AACX,kBAAO,uBAAY,CAAC,IAAI,KAAL,CAAW,GAAC,KAAD;SAEpC,UAvBG,IAuBH;AACM,cAAG,QAAQ,CAAC,GAAW,KAAZ,CAAX;AACE,oBAAO,kBAAW,CAAC,IAAI,CAAC,KAAD,CAAO,kBAAW,6BAAW,EAAE,KAAK,SAAzC;AACf,oBAAG,QAAQ,CAAC,EAAW,IAAZ,CAAX,EACH,QAAO,kBAAW,CAAC,IAAI,CAAC,KAAD,CAAO,UAAW,6BAAW,EAAE,KAAK,SAAzC,CADf;SAGX,UA7BG,IA6BH;AACM,cAAG,QAAQ,CAAC,GAAW,KAAZ,CAAX;AACE,oBAAO,kBAAW,CAAC,IAAI,CAAC,KAAD,CAAO,kBAAW,0BAAQ,KAAK,KAAK,SAAzC;AACf,oBAAG,QAAQ,CAAC,EAAU,KAAX,CAAX;AACH,oBAAO,kBAAW,CAAC,IAAI,CAAC,KAAD,CAAO,UAAW,0BAAQ,KAAK,KAAK,SAAzC;AACf,oBAAG,QAAQ,CAAC,EAAW,IAAZ,CAAX,EACH,QAAO,kBAAW,CAAC,IAAI,CAAC,KAAD,CAAO,UAAW,0BAAQ,KAAK,KAAK,SAAzC,CADf;SAGX,UArCG,IAqCH;AACM,cAAG,QAAQ,CAAC,GAAW,KAAZ,CAAX;AACE,oBAAO,kBAAW,CAAC,IAAI,CAAC,KAAD,CAAO,kBAAW,4BAAU,KAAK,EAAE,SAAxC;AACf,oBAAG,QAAQ,CAAC,EAAW,IAAZ,CAAX,EACH,QAAO,kBAAW,CAAC,IAAI,CAAC,KAAD,CAAO,UAAW,4BAAU,KAAK,EAAE,SAAxC,CADf;SAGX,UA3CG,IA2CH;AACM,cAAG,QAAQ,CAAC,GAAW,KAAZ,CAAX;AACE,oBAAO,kBAAW,CAAC,IAAI,CAAC,KAAD,CAAO,kBAAW,2BAAS,KAAK,KAAK,SAA1C;AACf,oBAAG,QAAQ,CAAC,EAAW,IAAZ,CAAX,EACH,QAAO,kBAAW,CAAC,IAAI,CAAC,KAAD,CAAO,UAAW,2BAAS,KAAK,KAAK,SAA1C,CADf;SAGX,UAjDG,IAiDH;AACM,cAAG,QAAQ,CAAC,GAAW,KAAZ,CAAX;AACE,oBAAO,kBAAW,CAAC,IAAI,CAAC,KAAD,CAAO,kBAAW,6BAAW,KAAK,KAAK,SAA5C;AACf,oBAAG,QAAQ,CAAC,EAAW,IAAZ,CAAX,EACH,QAAO,kBAAW,CAAC,IAAI,CAAC,KAAD,CAAO,UAAW,6BAAW,KAAK,KAAK,SAA5C,CADf;SAGX,UAvDG,IAuDH;AACM,cAAG,QAAQ,CAAC,GAAgB,KAAjB,CAAX;AACE,iBAAI,IAAI,CAAC,KAAD,CAAO;AACZ,oBAAG,QAAQ,CAAC,EAAW,IAAZ,CAAX,EACH,KAAI,IAAI,CAAC,KAAD,CAAO,SADZ;AAEL,kBAAc,EAAD;AACb,cAAQ,CAAJ,IAAI,KAAE,CAAC,CAAH,CAAM,IAAU,CAAL,KAAK,GAAC,IAAD,CAAxB,EACE,QAAO,IADT;AAEA,kBAAO,eAAI,CAAC,GAAG,EAAE,KAAN;SAEjB,UAjEG,IAiEH;AACM,cAAG,QAAQ,CAAC,EAAU,KAAX,CAAX;AACE,oBAAO,aAAQ,CAAC,IAAI,CAAC,KAAD,CAAO,UAAU,CAAtB;AACZ,oBAAG,QAAQ,CAAC,EAAU,IAAX,CAAX,EACH,QAAO,aAAQ,CAAC,IAAI,CAAC,KAAD,CAAO,UAAY,EAAxB,CADZ;SAGX,UAvEG,IAuEH;AACM,cAAG,QAAQ,CAAC,EAAU,KAAX,CAAX;AAEE,iBAAI,IAAI,CAAC,KAAD,CAAO;AACf,oBAAO;WAEJ,UAAG,QAAQ,CAAC,GAAY,IAAb,CAAX;AAEH,iBAAI,IAAI,CAAC,KAAD,CAAO;AACf,oBAAO;WAHJ;AAKL,cAAG,IAAI,GAAC,KAAR;AACE,oBAAO,aAAQ,CAAC,GAAG,KAAJ;;AAIf,oBAAO;AACP,mBAAiC,CAAb,QAAH,EAAQ,KAAK,GAAC,CAAX,CAAa,IAAE,EAAF,CAAM,IAAU,CAAL,KAAK,GAAC,EAAD,CAAjD,EACM,KAAJ,IAAG;AACL,gBAAG,KAAK,GAAC,IAAT,EACE,OAAM,KADR;AAEA,oBAAO,aAAQ,CAAC,GAAG,IAAJ;;SAGvB,UA/FG,IA+FH,UAAK,QAAO,GAAZ;AAEF,YAAG,KAAK,KAAE,CAAC,CAAX,EACE,IAAU,KAAD,OAAO,GAAC,KAAjB,EACE,IAAG,CAAI,IAAP;AACE,kBAAO,uBAAY,CAAC,IAAI,KAAK,GAAQ,KAAD,OAAjB,CAAyB,GAAC,KAAD;AAE5C,sBAAO,KAAK,GAAC,uBAAY,CAAC,IAAI,KAAK,GAAQ,KAAD,OAAjB,CAL/B;AAMA,iBAAQ,MAAM,GAAC,KAAD;OA7GhB;AA+GI,WAAJ,IAAG;AACH,eAAQ;;AAjSH;AAAM;AAqSC;AAAP;AAEP;AAEU,UAAD,sBAAC,SAAe,IAAD,OAAf;AACT,aAAS,QAAiB,OAAL,IAAD,OAAM,GAAC,CAAD,kBAA1B;AAAI;AACF,YAAM,CAAC,CAAD,CAAN,GAAiB,IAAD,YAAO,CAAD,CAAC,GAAC,CAAD,CAAF,IAAL;;AANX;AAAO;AASC;AAAR;AAEP;AAEA,aAAQ;AACR,aAAS,QAAmB,OAAR,WAAC,MAAD,CAAQ,GAAC,CAAD,kBAA5B;AAAI;AACF,eAAQ,MAAM,GAAK,oBAAC,MAAM,CAAC,CAAD,CAAP,CAAL;;AANT;AAAQ;AASK;AAEtB;AAFsB;AAKD;AAErB;AAFqB;AAOd,cAAG,cAAI,KAAH,GAAK,GAAQ,KAAH,GAAK,IAAK,EAArB;AACA,iBAAS,aAAN,MAAQ,cAAI,KAAH,GAAK,EAAN,CAAF;AACd,YAAG;AAJa;AAAZ;AAMP;AACA;AAAG;AAEH,UAAc,KAAD;AACb,QAAG,GAAI,GAAE,CAAT,EACM,OAAC,KADP;AAEA,YAAS;AACT,aAAQ;AACR,QAAG;AACH,WAAM,CAAC,IAAE,GAAT;AAEE,UAAG,KAAH;AAEE,YAAG,CAAc,CAAT,KAAK,YAAC,KAAD,CAAI,IAAG,KAAH,CAAjB,EAAgC,aAAhC;AACA,gBAAS;OAEN,UAAG,SAAU,IAAc,CAAT,KAAK,QAAC,KAAD,CAAI,KAAE,GAAF,CAA3B;AAEH,YAAG,UAAH;AAEE,cAAG,CAAE,IAAG,GAAR,EAAiB,aAAjB;AACA,kBAAS;SAHX;OAOA,UAAG,CAAc,CAAT,KAAK,YAAC,KAAD,CAAI,IAAG,QAAH,CAAjB,EAAmC,aAAnC;AACF,UAAG,CAAC,GAAC,CAAD;;AAEN,aAAQ;AAlCD;AAAY;AArxFD;;AAEC,yCAFD,0CAEC;AA8nCF;;AAmvDG;AAAb;AAIP;AACA;AAGA,cAAS;AACT,QAAG,oCAAa,IAAG,KAAnB,EACE,UAAS,GADX;AAEA,QAAG,oCAAa,IAAG,KAAnB,EACE,UAAS,OAAO,GAAC,GADnB;AAEA,eAAoB,OAAQ,QAAQ,CAAW,IAAV,MAAU,CAAI,iBAAW,GAAf,EAAoB,MAA/B;AACpC,aAAkB,SAAU,QAAQ,CAAW,IAAV,MAAU,CAAI,SAAS,OAAb,EAAsB,QAAjC;AAd7B;AAAa;AAiBF;AAAX;AAGP,aAAQ,MAAmE,GAA5D,kBAAa,CAAC,UAAU,OAAO,MAAM,GAAC,MAAD,CAAQ,cAAC,oCAAD,CAAhC,CAAd,GAA8D,MAAD;AAHpE;AAAW;AAMF;AAAT;AAGP,aAAQ,gBAAW,CAAC,EAAE,SAAH;AAHZ;AAAS;AAMI;AAAb;AAEP;AAEA,aAAQ;AACR,QAAa,MAAO,OAAO,CAAC,EAAE,CAAH,CAAK,KAAE,MAAlC,EAA8C,aAA9C;AACA,aAAkB,MAAO,MAAM,CAAC,CAAD;AAC/B,QAAG;AACH,WAAM,CAAC,IAAS,MAAD,OAAf;AAEE,UAAG,MAAM,QAAC,KAAD,CAAG,KAAC,MAAb;AAEE,YAAK,CAAD,CAAC,KAAQ,MAAD,OAAP,CAAiB,IAAe,CAAX,MAAM,QAAE,CAAD,CAAC,GAAC,CAAD,KAAF,CAAK,KAAE,MAAF,CAArC;AAEE,mBAAkB,MAAO,MAAM,CAAC,EAAE,CAAC,GAAC,CAAL;AAC/B;SAGA,eAAkB,MAAO,MAAM,CAAC,EAAE,CAAC,GAAC,CAAL,CAAO,GAAW,MAAO,MAAM,CAAC,CAAD,CAAxB;OAGxC,MAAI,CAAJ,IAAG;;AArBA;AAAa;AAgCA;AAAb;AAGP,aAAe,CAAD;AACd,WAAa,CAAN,MAAM,GAAC,CAAD,CAAI,IAA8B,CAAzB,cAAG,CAAC,CAAC,QAAC,UAAD,EAAS,UAAX,CAAsB,KAAC,CAAD,CAA/C,EACM,MAAJ,IAAG;AALE;AAAa;AAPF;AAAX;AAEP,aAAQ;AACR,QAAS,CAAL,KAAK,GAAC,CAAD,CAAI,IAAU,CAAL,KAAK,IAAS,CAAD,OAAR,CAAvB,EACE,SAAQ,cAAG,CAAC,CAAC,QAAC,SAAD,EAAQ,UAAV,CAAqB,KAAE,CADpC;AAHO;AAAW;AAgBK;AAAhB;AAGP,aAAQ,uBAAgB,CAAC,EAAE,oCAAH;AAHjB;AAAgB;AAMA;AAAhB;AAGP;AAAE;AACF;AAEa;AAEX,YAAK,GAAG,GAAC,CAAD;AAFG;AAMb,QAAG;AACH,QAAU,CAAD;AACT,aAAQ;AACR,WAAO,CAAC,IAAE,CAAV;AACQ,iBAAD,CAAC,QAAC,KAAD;AACJ,UADI,IACJ;AACI,YAAG,KAAM,IAAG,cAAC,wCAAS,qCAAV,CAAZ,EACE,GAAG,CAAC,IAAD,CADL;AAEA,YAAG,KAAK,KAAC,uCAAT,EACE,GAAG,CAAC,IAAD,CADL;AAEI,SAAJ,IAAG;OAER,UARK,IAQL;AACK,YAAG,KAAK,KAAC,uCAAT,EACE,GAAG,CAAC,IAAD,CADL;AAEA,WAAG,CAAC,IAAD;AACC,SAAJ,IAAG;AACH,YAAG,CAAC,QAAC,KAAD,CAAG,KAAC,IAAR,EACM,CAAJ,IAAG,CADL;;AAIJ,WAAG,CAAC,CAAC,QAAC,KAAD,CAAF;AACC,SAAJ,IAAG;;;AAEP,aAAQ;AApCD;AAAgB;AA2CjB,eAAG,cAAC,GAAM,EAAP;AAJM;AAAR;AAOP;AACA;AAAE;AAAG;AACL;AAAE;AAAK;AACP;AAAG;AAGH,aAAQ;AACR,QAAG;AACH,WAAa,QAAD;AACZ,QAAI,IAAI,GAAC,CAAT;AACE,WAAI,QAAQ,QAAC,CAAD;AAEZ,eAAI;AACN,UAAY,CAAD;AACX,WAAO,GAAG,GAAC,CAAX;AAEE,UAAG;AACH,WAAI;AACJ,WAAI;AACJ,YAAK;AACL,aAAS,CAAD,CAAC,IAAE,GAAF,CAAqC,IAAb,CAAV,CAAD,CAAC,IAAE,MAAF,CAAU,IAAG,CAAI,GAAP,CAAjB,IAA4C,CAAN,CAAF,EAAE,KAAE,MAAF,CAAM,IAAG,CAAI,EAAP,CAA5D;AAEE,YAAG,CAAC,QAAC,KAAD;AACJ,YAAI,CAAC,KAAC,EAAN;AACE,eAAI;AACD,kBAAI,cAAE,IAAG,MAAT,EACH,KAAI,CADD;AAEL,YAAI,EAAE,KAAE,MAAR;AACM,WAAJ,IAAG;;AAGH,eAAO,CAAD,CAAC,KAAC,EAAD,CAAK,IAAa,CAAR,QAAQ,KAAC,eAAI,CAAC,EAAE,EAAE,IAAL,CAAL,CAAb;AACZ,cAAG,EAAH;AACM,aAAJ,IAAM;;AAGN,gBAAI,CAAC,IAAE,MAAP,EACE,MAAK,cAAS,CAAC,EAAE,UAAH,CADhB;AAEI,aAAJ,IAAG;;;;AAKT,eAAQ,MAAM,GAAC,eAAI,CAAC,EAAE,EAAE,CAAC,GAAC,CAAP,CAAL;AACd,uBAAM,CAAC;;;;WAAE,EAAE,CAAC,GAAC,CAAP;AACN,YAAY,CAAD;AACX,UAAO,CAAH,GAAG,GAAC,CAAD,CAAI,IAAI,CAAI,EAAnB,EACE,SAAQ,MAAM,GAAC,QADjB;;AArDK;AAAQ;AA0DA;AAAR;AAGP,aAAQ,aAAQ,CAAC,KAAK,sBAAY,CAAC,IAAK,IAAK,IAAX,EAAgB,MAAlC;AAHT;AAAQ;AA95BE;AAAV;AAGP,aAAqB,CAAT,CAAF,CAAE,GAAI,IAAJ,CAAS,IAAI,CAAJ,CAAO,GAAc,CAAP,CAAF,CAAE,KAAI,CAAJ,CAAO,GAAI,IAAJ,CAAd;AAHrB;AAAU;AAMA;AAAV;AAGP,aAGS,OADA,OADA,OADY,OAAT,CAAF,CAAE,GAAI,IAAJ,CAAS,IAAI,EAAJ,CACZ,GAAkB,OAAX,CAAF,CAAE,GAAI,MAAJ,CAAW,IAAI,CAAJ,CAAlB,CACA,GAAc,CAAP,OAAF,CAAE,KAAI,CAAJ,CAAO,GAAI,MAAJ,CAAd,CACA,GAAe,CAAR,OAAF,CAAE,KAAI,EAAJ,CAAQ,GAAI,IAAJ,CAAf;AANF;AAAU;AA92BF;AAAR;AAEP,aAAY;AAFL;AAAQ;AA6xGG;AAAX;AAEP,aAAQ,kBAAW,CAAC,EAAE,IAAK,mBAAR;AAFZ;AAAW;AAKA;AAAX;AAEP;AAEA,aAAQ,kBAAW,CAAC,EAAE;;;;SAAI,SAAP;AACnB,aAAQ,MAA6B,IAAN,CAAX,CAAC,UAAU,IAAE,EAAF,CAAhB,IAA6B,CAAF,EAAE,IAAE,UAAF,CAAP;AACrC,QAAG,MAAH,EACE,QAAK,EAAL,CADF;AANO;AAAW;AAuCA;AAAX;AAGP,aAAQ,oBAAc,CAAC,EAAE,IAAI,mBAAc,iBAArB;AAHf;AAAW;AAMA;AAAX;AAGP,aAAQ,oBAAc,CAAC,EAAE,IAAI,SAAS,iBAAhB;AAHf;AAAW;AAMA;AAAX;AAGP;AAGA,QAAG,kBAAW,CAAC,EAAE;;;;QAAH,CAAd;AACE,eAAQ;AAER,mBAAQ;AATH;AAAW;AAYA;AAAX;AAGP;AAGA,QAAG,kBAAW,CAAC,EAAE;;;;QAAH,CAAd;AACE,eAAQ;AAER,mBAAQ;AATH;AAAW;AAYH;AAAR;AAGP;AAGA,QAAG,CAAI,kBAAW,CAAC,EAAE;;;;QAAH,CAAlB,EACE,MAAM,kBAAa,QAAC,aAAS,CAAC,kDAAmB,mBAAC,IAAD,CAApB,CAAT,CADtB;AAEA,aAAQ;AARD;AAAQ;AAWM;AAAd;AAGP,QAAG,CAAI,kBAAW,CAAC,EAAE;;;;QAAH,CAAlB,EACE,MAAM,kBAAa,QAAC,aAAS,CAAC,kDAAmB,mBAAC,IAAD,CAApB,CAAT,CADtB;AAHO;AAAc;AAOL;AAAT;AAGP,QAAG,CAAI,iBAAY,CAAC,EAAE;;;;QAAH,CAAnB,EACE,MAAM,kBAAa,QAAC,aAAS,CAAC,kDAAmB,mBAAC,IAAD,CAApB,CAAT,CADtB;AAHO;AAAS;AAOG;AAAZ;AAGP,QAAG,CAAI,iBAAY,CAAC,EAAE;;;;QAAH,CAAnB,EACE,SAAQ,IADV;AAHO;AAAY;AAOH;AAAT;AAGP,aAAQ,aAAQ,CAAC,KAAD;AAHT;AAAS;AAMG;AAAZ;AAEP;AAEA,aAAQ,kBAAW,CAAC,EAAE;;;;QAAH;AACnB,aAAU,CAAD,CAAC,IAAE,CAAF,CAAK,IAAM,CAAD,CAAC,IAAM,UAAN,CAAN;AACf,QAAG,MAAH,EACE,MAAG,CAAH,CADF;AANO;AAAY;AAUF;AAAV;AAGP;AAGA,QAAG,CAAI,kBAAW,CAAC,EAAE;;;;QAAH,CAAlB,EACE,MAAM,kBAAa,QAAC,aAAS,CAAC,kDAAmB,mBAAC,IAAD,CAApB,CAAT,CADtB;AAEA,aAAQ;AARD;AAAU;AAyBG;AAAb;AAKP,QAAG,CAAI,kBAAa,CAAC,EAAE;;;;QAAH,CAApB,EACE,SAAQ,QADV;AALO;AAAa;AAdA;AAAb;AAEP,aAAU,oBAAa,CAAC,EAAG,IAAK,mBAAT;AAFhB;AAAa;AAKA;AAAb;AAEP;AAEA,aAAU,kBAAW,CAAC,EAAG;;;;SAAG,SAAP;AACrB,QAAG,MAAH,EACE,QAAO,CAAP,CADF;AALO;AAAa;AAkBH;AAAV;AAGP;AAGA,QAAI,CAAI,kBAAW,CAAC,EAAE;;;;QAAH,CAAO,IAAK,CAAD,CAAC,GAAC,CAAD,CAA/B,EACE,MAAM,kBAAa,QAAC,aAAS,CAAC,kDAAmB,mBAAC,IAAD,CAApB,CAAT,CADtB;AAEA,aAAQ;AARD;AAAU;AA2BG;AAAb;AAIP,QAAG,CAAI,kBAAa,CAAC,EAAE;;;;QAAH,CAApB,EACE,SAAQ,QADV;AAJO;AAAa;AAhBA;AAAb;AAGP;AAGA,aAAQ,kBAAW,CAAC,EAAE;;;;QAAH,CAAM,IAAM,CAAD,CAAC,IAAE,CAAF,CAAN;AACzB,QAAG,MAAH,EACE,QAAK,CAAL,CADF;AAPO;AAAa;AAWA;AAAb;AAEP,aAAQ,kBAAa,CAAC,EAAkB,GAAnB;AAFd;AAAa;AAaF;AAAX;AAGP;AAGA,QAAI,CAAI,kBAAW,CAAC,EAAE;;;;QAAH,CAAO,IAAK,CAAD,CAAC,GAAC,CAAD,CAA/B,EACE,MAAM,kBAAa,QAAC,aAAS,CAAC,kDAAmB,mBAAC,IAAD,CAApB,CAAT,CADtB;AAEA,aAAQ;AARD;AAAW;AA2BG;AAAd;AAKP,QAAG,CAAI,mBAAc,CAAC,EAAE;;;;QAAH,CAArB,EACE,SAAQ,QADV;AALO;AAAc;AAhBA;AAAd;AAGP;AAGA,aAAQ,kBAAW,CAAC,EAAE;;;;QAAH,CAAM,IAAM,CAAD,CAAC,IAAE,CAAF,CAAN;AACzB,QAAG,MAAH,EACE,QAAK,CAAL,CADF;AAPO;AAAc;AAWA;AAAd;AAEP,aAAQ,mBAAc,CAAC,EAAkB,GAAnB;AAFf;AAAc;AAyBJ;AAAV;AAGP,QAAG,CAAI,kBAAa,CAAC,EAAE;;;;QAAH,CAApB,EACE,MAAM,kBAAa,QAAC,aAAS,CAAC,kDAAmB,mBAAC,IAAD,CAApB,CAAT,CADtB;AAHO;AAAU;AAQG;AAAb;AAGP,QAAG,CAAI,kBAAa,CAAC,EAAE;;;;QAAH,CAApB,EACE,SAAQ,QADV;AAHO;AAAa;AAnBA;AAAb;AAGP;AAGA,aAAQ,kBAAW,CAAC,EAAE;;;;QAAH,CAAiB,IAAL,CAAD,CAAC,IAAE,CAAF,CAAN,IAAiB,CAAD,CAAC,IAAQ,UAAR,CAAN;AACpC,QAAG,MAAH,EACE,QAAK,CAAL,CADF;AAPO;AAAa;AA2BL;AAAR;AAIP,aAAQ;AACR,QAAG,KAAK,GAAC,CAAT,EAEF,2CAFE;AAKF;AAEE,aAAQ,cAAS,CAAC,MAAD;AACjB,WAAc,MAAD,OAAQ,GAAC,MAAtB,EACE,SAAQ,GAAG,GAAC,MAAD;AAdN;AAAQ;AA1vJJ,qBAAc;AACd,qBAAa,CAAC;AAGb;;AAgvCN,eAAG;AAtBY;AAAd;AAyBP;AACA;AACA;AAAO;AAAO;AAAG;AAAG;AACpB;AAAqB;AAQrB,UAAM,SAAN,GAAiB;AACjB,UAAM,SAAN,GAAiB;AACjB,SAAI,IAAG,GAAH,CAAQ,QAAR,CAAQ,EAAZ,EACE,MAAM,OAAO,CAAC,CAAD,CAAb,GAAkB;AACpB,QAAG,KAAK,KAAC,CAAT,EACE,aADF;AAEa,UAAV,GAAC,qBAAM,EAAN;AAKJ,QAAK;AACL,QAAY,MAAD;AACX,WAAM,MAAM,QAAC,KAAD,CAAG,KAAC,GAAhB,EACM,CAAJ,IAAG;AACL,UAAM,SAAN,GAAoB,MAAM,QAAC,KAAD,CAAI,KAAE,GAAF;AAC9B,QAAG,MAAM,SAAT;AACM,OAAJ,IAAG;AACA,cAAI,MAAM,QAAC,KAAD,CAAI,KAAE,GAAhB,EACC,CAAJ,IAAG,CADA;AAGL,QAAI,CAAC,IAAG,CAAD,CAAC,GAAC,CAAD,CAAR;AAEI,eAAQ,eAAI,CAAC,OAAO,EAAE,CAAV;AACZ,UAAI,MAAM,KAAC,KAAX;AAEI,cAAM,OAAO,CAAC,CAAD,CAAb,GAAkB;AAClB,cAAM,SAAN,GAAiB;AACjB;OAJJ;AAMA,UAAI,MAAM,KAAC,KAAX;AAEI,cAAM,OAAO,CAAC,CAAD,CAAb,GAAkB;AAClB,cAAM,SAAN,GAAiB,CAAC;AAClB;OAJJ;KATJ;AAiBA,aAAQ;AACR,UAAM,SAAN,GAAmB;AAAG,gBAAa;AACnC,0BAAuB;AACvB,WAAQ,CAAD,CAAC,IAAE,CAAF,CAAK,IAAc,CAAT,MAAM,QAAC,KAAD,CAAG,KAAE,GAAF,CAA3B;AAKI,UAAG,MAAM,QAAC,KAAD,CAAG,KAAC,GAAb;AACE,oBAAa;;AAGb,YAAG,SAAH;AAEQ,gBAAM,SAAV,IAAG;AACH,gBAAM,OAAO,CAAC,MAAD,CAAb,GAAyB,MAAM,QAAC,KAAD;AAC/B,cAAG,MAAM,QAAC,KAAD,CAAI,KAAG,GAAhB,EACE,sBAAuB,IADzB;SAIF,MAAA,MAAM,OAAO,CAAC,MAAD,CAAb,GAAyB,MAAM,QAAC,KAAD;AAI7B,cAAJ,IAAG;;AAED,OAAJ,IAAG;;AAKH,KAAJ,IAAG;AACH,QAAG,CAAC,IAAE,CAAN;AAEI,sBAAG,CAAC,eAAI,CAAC,OAAQ,EAAI,CAAD,CAAC,GAAC,CAAD,CAAE,GAAC,CAAhB,EAAoB;;;;WAAG;;;;UAA5B;AACC,YAAM,SAAV,IAAqB;KAHzB;AAMA,QAAG;AAIH,QAAS;AACT,WAAM,CAAC,GAAC,CAAR;AAEE,YAAM,OAAO,CAAC,CAAD,CAAb,GAAkB;AACd,OAAJ,IAAG;;AAEL,QAAY,CAAT,QAAS,GAAE,MAAM,SAAR,CAAkB,GAAE,SAAhC;AACE,UAAK,QAAS,GAAE,MAAM,SAAR;AAEd,cAAK;AACP,QAAG,CAAE,IAAG,CAAR,EACE,IAAK,CAAC,GAAC,CADT;AAKA,QAAG,CAAE,KAAE,CAAP;AAEI,UAAG,MAAM,OAAO,CAAC,CAAD,CAAI,IAAG,GAAvB;AAEI,cAAM,OAAO,CAAC,CAAD,CAAb,GAAoB;AACpB,cAAM,OAAO,CAAC,CAAD,CAAb,GAAoB;AAChB,cAAM,SAAV,IAAG;OAGL,MAAA,MAAM,OAAO,CAAC,CAAD,CAAb,GAAoB;KAErB,UAAG,CAAE,GAAE,CAAP;AAED,UAAG,MAAM,OAAO,CAAC,CAAD,CAAI,IAAG,GAAvB;AAEI;AACE,gBAAM,OAAO,CAAC,CAAD,CAAb,GAAoB;AAChB,WAAJ,IAAG;AAIH,gBAAM,OAAO,CAAC,CAAD,CAAb,GAAkB,MAAM,QAA2B,CAA1B,aAAQ,CAAC,MAAM,OAAO,CAAC,CAAD,CAAd,CAAkB,GAAC,CAAD,KAA3B;SAN1B,QAOc,EAAL,CAAF,CAAE,KAAE,CAAF,CAAK,IAAqB,CAAjB,MAAM,OAAO,CAAC,CAAD,CAAI,GAAE,GAAF,CAArB,CAPd;AAQA,YAAG,MAAM,OAAO,CAAC,CAAD,CAAI,KAAE,GAAtB;AAEI,gBAAM,OAAO,CAAC,CAAD,CAAb,GAAoB;AAChB,gBAAM,SAAV,IAAG;SAHP;;AAQA,cAAM,OAAO,CAAC,CAAD,CAAb,GAAoB;AACpB,eAAS,CAAF,CAAE,GAAE,CAAC,CAAH,CAAM,IAAsB,CAAjB,MAAM,OAAO,CAAC,CAAD,CAAI,KAAE,GAAF,CAArC;AAEI,gBAAM,OAAO,CAAC,CAAD,CAAb,GAAoB;AAChB,WAAJ,IAAG;;;KAKb,MAAA,MAAM,OAAO,CAAC,CAAD,CAAb,GAAoB;AACtB,QAAqB,CAAjB,MAAM,OAAO,CAAC,CAAD,CAAI,KAAE,MAAF,CAAM,IACxB,CAAI,mBADP;AAGI,YAAM,SAAN,GAAmB;AACnB,YAAM,SAAN,GAAmB;KAJvB;AA5KO;AAAc;AA8LJ;AAAV;AAEP,aAAQ,iBAAU,CAAC,MAAM,mBAAP;AAFX;AAAU;AANA;AAAV;AAGP,aAAQ,kBAAW,CAAC,MAAM,4BAAU,GAAG,EAAE,SAAtB;AAHZ;AAAU;AAw9BC;AAAX;AAGP,aAAQ,kBAAW,CAAC,MAAM,OAAO,UAAU,OAAO,mBAA/B;AAHZ;AAAW;AAMA;AAAX;AAIP;AAAG;AAGH,SAAI,SAAS;AACb,SAAI,SAAS;AACR;AACH,QADG,IACH;AACE,eAAQ,wBAAkB,CAAC,MAAM,UAAU,EAAjB;AAC5B,cAHG,IAGH;AACE,eAAQ,yBAAmB,CAAC,MAAM,UAAU,OAAO,EAAxB;AAC7B,cALG,IAKH;AACE,eAAQ,sBAAgB,CAAC,MAAM,OAAO,EAAd;AAC1B,cAPG,IAOH;AACE,eAAQ,uBAAiB,CAAC,MAAM,OAAO,GAAG,EAAjB;AAC3B,cATG,IASH,mCACC,SAAQ,0BAAoB,CAAC,cAAM,OAAO,SAAd,CAD7B;AAGF,QAAU,CAAN,MAAM,KAAE,4BAAF,CAAqC,IAAJ,CAAP,MAAD,OAAQ,GAAC,CAAD,CAAnB,IAAqC,CAAT,MAAM,QAAC,CAAD,CAAG,KAAC,GAAD,CAA7D,EACE,+BAAyB,CAAC;;;;SAAO,GAAG,EAAX,CAD3B;AArBO;AAAW;AAn9BE;AAAb;AAEP,aAAQ,oBAAa,CAAC,EAAS,GAAV;AAFd;AAAa;AAWA;AAAb;AAGP,aAAQ,oBAAa,CAAC,EAAS,IAAK,SAAf;AAHd;AAAa;AANA;AAAb;AAGP,aAAQ,oBAAa,CAAC,EAAE,IAAI,mBAAP;AAHd;AAAa;AAeR;AAHQ;AAAb;AAMP;AACA;AAAE;AAAO;AACT;AACA;AAIA,aAAQ;AACR,QAAG;AAEH,QAAI,SAAS,kBAAmB,KAAE,EAAlC,EACE,IAAG,kBAAa,CAAC,EAAE,SAAS,mBAAmB,GAAG,cAAC,oCAAD,CAAlC,CADlB;AAEA,QAAI,SAAS,iBAAiB,KAAE,GAAhC,EACE,IAAG,kBAAa,CAAC,EAAE,SAAS,kBAAkB,IAAI,EAAlC,CADlB;AAEA,QAAG;AACH,QAAG;AACH,aAAQ;AACR,UAAY,CAAD;AACX,WAAO,CAAC,IAAE,GAAV;AAEQ,iBAAD,CAAC,QAAC,KAAD;AACJ,WADI,IACJ,aAAI,CADA,IACA,SAAJ;AACO;AACH,YADG,KACH;AACE;AACF,kBAHG,KAGH;AACE,cAAG,CAAC,GAAC,MAAL,EACE,aADF;AAEF,kBANG,KAMH,yBACE,IAAI,CAAC,GAAO,CAAN,MAAM,GAAC,CAAD,CAAZ,EACE,aAFJ;OAIJ,UAAG,CAZC,IAYD,IAAH,GAAG,MAZC,IAYD,IAAE,GAAF,CAAH,EACA;eAbI,IAaJ;AAEE,YAAI,CAAC,KAAE,oBAAP,EACE,aADF;AAEA,YAAG;AACH,iBAAQ;OAEV,WApBI,IAoBJ,aAAI,CApBA,IAoBA,SAAJ;AAEE,YAAG,CAAC,KAAC,kBAAL;AACE;;AAGA,cAAG;AACH,mBAAQ;;;AAIZ;;AAEE,OAAJ,IAAG;;AAEL,QAAG,UAAU,CAAC,CAAD;AACb,aAAQ,CAAI,KAAO,CAAC,CAAD;AACnB,QAAG,MAAH,EACE,QAAW,cAAC,CAAD,CAAX,CADF;AA/DO;AAAa;AAyEA;AAAb;AAEP,QAAG,CAAI,oBAAa,CAAC,EAAE;;;;SAAO,mBAAV,CAApB,EACE,SAAQ,IADV;AAFO;AAAa;AANA;AAAb;AAEP,QAAG,CAAI,oBAAa,CAAC,EAAE;;;;SAAO,SAAV,CAApB,EACE,SAAQ,IADV;AAFO;AAAa;AAYH;AAAV;AAEP,aAAQ,iBAAU,CAAC,EAAE,mBAAH;AAFX;AAAU;AAKA;AAAV;AAEP,QAAG,CAAI,oBAAa,CAAC,EAAE;;;;SAAO,SAAV,CAApB,EACE,MAAM,kBAAa,QAAC,aAAS,CAAC,gDAAiB,mBAAC,IAAD,CAAlB,CAAT,CADtB;AAFO;AAAU;AAMC;AAAX;AAEP,aAAQ,kBAAW,CAAC,IAAI,OAAO,gDAAZ;AAFZ;AAAW;AAWN,qBAAG;AANG;AAAX;AAUP;AACA;AACA;AACA;AAEA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEA;AACA;AACA;AAEkB;AAGhB,UAAG;AACH,gBAAS;AACT,sBAAe;AACf,oBAAa;AACb,qBAAc;AACd,mBAAY;AACZ,mBAAY;AACZ,kBAAW;AACX,wBAAiB;AACjB,gBAAS;AACT,kBAAW,CAAC;AAbI;AAgBA;AAEhB,eAAQ,MAAM,GAAC,KAAD;AAFE;AAKG;AAGnB,eAAQ,MAAM,GAAC,IAAD;AAHK;AAMD;AAKlB,UAAG,MAAM,KAAC,MAAV,EAAkB,MAAlB;AAEI,mBAAJ,IAAG;AAEH,UAAI,aAAa,KAAC,CAAC,CAAnB;AAEE,mBAAW,CAAC,SAAS,iBAAV;AACX,gBAAQ,CAAC,MAAD;;AAKR,gBAAQ,CAAC,MAAD;AACR,YAAG,WAA0C,IAAJ,CAAN,CAAd,aAAc,GAAI,CAAJ,CAAM,KAAC,CAAD,CAA1B,IAAgD,CAAb,aAAa,GAAC,CAAD,CAA/D,EACE,WAAW,CAAC,SAAS,kBAAV,CADb;;AAlBgB;AAuBH;AAAR;AAQP,eAAQ;AACR,UAAI,OAAO,IAAE,SAAb;AAEE,iBAAQ,EAAE,OAAO,CAAC,OAAD;AACb,eAAJ,IAAG;OAEA,UAAI,aAAc,IAAG,SAArB;AACC,qBAAJ,IAAG;AAEH,qBAAQ;AAjBH;AAAQ;AAqBE;AAMjB,UAAI,SAAS,KAAC,CAAd;AACE,kBAAU,CAAC,UAAD;AACP,gBAAI,SAAS,GAAC,CAAd;AAGC,iBAAJ,IAAG;AACH,YAAI,aAAa,IAAE,UAAnB;AACE,oBAAU,CAAC,GAAD;AAEV,cAAI,aAAJ,IAAG;;AAKL,eAAM,SAAU,GAAE,CAAlB;AAEE,oBAAU,CAAC,UAAD;AACN,mBAAJ,IAAG;;AAEL,kBAAU,CAAC,UAAD;;AAzBK;AA6BC;AAAX;AAGP;AACA;AACA;AAAE;AACF;AAGA,eAAQ;AACR,cAAE,CAAC,CAAD,CAAF,GAAO,CAAC;AACR,cAAE,CAAC,CAAD,CAAF,GAAO,CAAC;AACR,cAAE,CAAC,CAAD,CAAF,GAAO,CAAC;AACR,gBAAS;AACT,UAAG;AACH,UAAG;AACH,WAAW,GAAD;AACV,aAAO,CAAC,IAAE,EAAV;AAEE,YAAG,GAAG,QAAC,KAAD;AACD;AACL,YADK,IACL;AAEE,cAAG,CAAI,OAAP;AAEE,gBAAG,MAAM,GAAC,CAAV,EACE,MAAM,cAAS,QAAC,YAAM,CAAC,sBAAD,CAAN,CADlB;AAEA,oBAAE,CAAC,MAAD,CAAF,GAAY;AACR,kBAAJ,IAAG;WALL;SAQF,WAXK,IAWL,aAAI,CAXC,IAWD,SAAJ;AAEE,cAAG,OAAH;AACE,sBAAS,CAAC,KAAE,CAAF;;AAGV,sBAAS;AACT,gBAAG;;SAPP;AAWI,SAAJ,IAAG;;AAEL,UAAG,QAAE,CAAC,MAAD,CAAQ,KAAC,CAAC,CAAf,EACE,QAAE,CAAC,MAAD,CAAF,GAAY,EAAE,GAAC,CADjB;AA5CO;AAAW;AAgDG;AAGrB;AAAE;AACF;AAAE;AACF;AAGA,YAAY,OAAD;AAEX,UAAG;AACH,gBAAS;AACT,UAAG;AACH,aAAO,CAAC,IAAE,GAAV;AAEE,YAAG,OAAO,QAAC,KAAD;AACV,YAAG,cAAE,IAAG,cAAC,GAAI,EAAL,CAAR;AAEE,cAAG,OAAH;AACE,sBAAS,CAAC,KAAE,CAAF;;AAGV,sBAAS;AACT,gBAAG;;SAGF,UAAG,CAAI,OAAP;AACE;AACL,cADK,IACL;AACE,gBAAI,UAAU,KAAC,CAAf,EACE,aAAY,eAAe,GAAC,CAD9B;AAEF,oBAJK,IAIL;AACI,0BAAa,SAAS,kBAAkB,KAAE,MAAF;AAC5C,qBANK,IAML,aAAK,CANA,IAMA,SAAL;AAEQ,aAAJ,IAAG;AACH,gBAAI,CAAC,GAAC,GAAN;AAEE,kBAAG,OAAO,QAAC,KAAD;AACV,6BAAc,cAAE,IAAG,cAAC,GAAI,EAAL,CAAH;AAChB,kBAAG,YAAH,EACE,OAAQ,CAAD,CAAC,GAAC,GAAD,CAAM,IAAiB,CAAZ,OAAO,QAAE,CAAD,CAAC,GAAC,CAAD,KAAF,CAAK,KAAC,GAAD,CAA/B;AAEM,uBAAJ,IAAG;AACC,iBAAJ,IAAG;eAJP;AAMA,kBAAG,OAAO,GAAC,CAAX,EACE,UAAS,CADX;aAVF;WAcJ,UAvBK,IAuBL;AACQ,2BAAJ,IAAG;AACP,oBAzBK,IAyBL;AAEI,gBAAG,eAAe,GAAC,UAAnB,EACE,aAAY,eAAe,GAAC,CAD9B;AAEI,2BAAJ,IAAG;AACH,wBAAW,eAAe,GAAC,CAAD;WAL9B;SA1BG;AAkCD,SAAJ,IAAG;;AAEL,UAAG,UAAU,KAAC,CAAd,EACE,aAAY,eAAe,GAAC,CAD9B;AAGA,kBAAW,UAAU,GAAC,SAAD;AACrB,UAAG,SAAS,GAAC,CAAb,EACE,YAAW,CADb;AAGA,mBAAY,UAAU,GAAC,UAAD;AACtB,UAAG,UAAU,GAAC,CAAd,EACE,aAAY,CADd;AAtEqB;AA0EG;AAAjB;AAGN,eAA0B,CAAP,CAAT,WAAS,IAAG,EAAH,CAAO,IAAK,CAAI,YAAT,CAA6C,IAAR,CAAT,WAAS,KAAE,KAAF,CAAb,IAAkC,CAAT,WAAS,KAAE,KAAF,CAAb;AAHjE;AAAiB;AAML;AAGnB;AAAE;AAGF,UAAG,YAAH;AAEE,YAAG;AACH,YAAG;;AAIH,YAAG;AAEH,YAAkB,CAAf,eAAe,GAAC,UAAD,CAAW,GAAC,CAAD;;AAE/B,iBAAI,mBAAc,CAAC,OAAO,EAAE,CAAV,CAAlB;AAIA,sBAAe,UAAU,GAAC,CAAD;AAEzB,UAAG,YAAH;AACE,oBAAW;;AAGX,oBAAW,EAAE,SAAS,GAAY,CAAV,UAAU,GAAC,CAAD,CAAZ;AACtB,YAAI,SAAS,IAAE,CAAf,EACE,gBAAe,EAAE,SADnB;;AAIF,kBAAW,CAAC;AACZ,aAAgB,CAAT,SAAS,GAAQ,EAAR,CAAkB,IAA2B,CAAtB,EAAE,OAAO,CAAC,SAAS,GAAC,CAAX,CAAa,KAAE,MAAF,CAA7D,EACM,SAAJ,IAAG;AAlCc;AAsCE;AAAd;AAGP,eAAQ,aAAQ,CAAC,SAAD;AAChB,eAAQ,uBAAY,CAAC,IAAI,OAAO,GAAQ,MAAD,OAAnB,CAA4B,GAAC,MAAD;AAChD,UAAI,SAAS,GAAC,CAAd;AACE,iBAAQ,GAAG,GAAC,MAAD;AACR,gBAAa,CAAT,SAAS,GAAC,CAAD,CAAI,IAAU,CAAL,KAAK,KAAC,GAAD,CAA3B,EACH,SAAQ,KAAK,GAAC,MADX;AAPE;AAAc;AAYvB;AAAE;AACF;AAAE;AACF;AACA;AAGU,MAAD,sBAAC,KAAG,CAAJ;AACT,aAAQ;AACR;AAEA,QAAI,CAAC,GAAC,CAAN;AACE,UAAG;AACA,cAAI,CAAC,GAAC,CAAN;AACH,UAAG;AAEH,cAAG;AACL,MAAE,CAAC,CAAD,CAAF,GAAO;AACP,QAAG,WAAW,CAAC;;;;QAAD;AACd,QAAK,CAAD,CAAC,GAAC,CAAD,CAAI,IAAiB,CAAR,CAAL,EAAE,CAAC,CAAD,CAAG,GAAC,EAAE,CAAC,CAAC,GAAC,CAAH,CAAH,CAAQ,KAAC,CAAD,CAA1B,EACE,IAAG,CADL;AAGA,oBAAe,EAAE,CAAC,CAAD,CAAW,GAAP,EAAE,CAAC,CAAC,GAAC,CAAH,CAAH,GAAS,CAAD;AAC5B,cAAS,eAAI,CAAC,IAAI,EAAE,CAAC,CAAC,GAAC,CAAH,CAAK,GAAC,CAAD,CAAG,aAAf;AACH,WAAD,oBAAC,QAAQ,aAAT;AAET;AAEA;AAEA,QAAiB,CAAb,aAAa,KAAC,CAAD,CAAI,IAAG,mBAAxB;AAGF;AAEI,eAAQ;KALV;AAQA,QAAG;AACH,cAAS;AACT,QAAG;AACH,gBAAW;AACX,QAAI,EAAE,SAAW,IAAM,CAAD,CAAC,KAAC,CAAD,CAAvB,EACE,QAAQ,CAAC,GAAD,CADV;AAEA,WAAO,CAAC,IAAE,aAAV;AAEE,UAAG,OAAO,QAAC,KAAD;AAEV,UAAI,cAAE,IAAG,cAAC,GAAK,EAAN,CAAT;AAEE,YAAG,SAAH;AACE,sBAAW,CAAC,KAAE,CAAF;;AAGZ,sBAAW;AACX,cAAG;;OAGF,UAAG,SAAH;AACH,gBAAQ,CAAC,CAAD;;AAEH;AACL,aADK,IACL,aAAK,CADA,IACA,SAAL;AACE;AACF,mBAHK,IAGL,aAAK,CAHA,IAGA,SAAL,EAEA;kBALK,IAKL,aAAK,CALA,IAKA,SAAL;AAEE,kBAAQ,CAAC,CAAD;AACJ,WAAJ,IAAG;AACH,cAAG,CAAC,IAAS,OAAD,OAAZ;AAEE,gBAAG,OAAO,QAAC,KAAD;AACV,gBAAI,cAAE,IAAG,cAAC,GAAI,EAAL,CAAT;AAEE,yBAAW,CAAC,cAAc,CAAC,EAAa,CAAX,EAAE,SAAS,GAAC,UAAD,CAAW,GAAC,CAA1B,CAAf;AAEX,qBAAQ,CAAD,CAAC,GAAC,aAAD,CAAgB,IAAiB,CAAZ,OAAO,QAAE,CAAD,CAAC,GAAC,CAAD,KAAF,CAAK,KAAC,GAAD,CAAzC,EACM,CAAJ,IAAG;aALP;WAHF;;AAaA,kBAAQ,CAAC,CAAD;;;AAER,OAAJ,IAAG;;AAtYE;AAAW;AAr/CiB;AAAnC;AAAc;AA+3DE;AAAT;AAEP,QAAG,CAAI,iBAAY,CAAC,EAAE;;;;QAAH,CAAnB,EACE,MAAM,kBAAa,QAAC,aAAS,CAAC,+CAAgB,mBAAC,IAAD,CAAjB,CAAT,CADtB;AAFO;AAAS;AAoBA;AAAT;AAEP,QAAG,WAAH;AAEE;AACA,UAAG,CAAH;AACE,iBAAQ,iBAAY,CAAC,CAAD;AAEpB,qBAAQ,kBAAa,CAAC,CAAD;KAEvB,UAAG,CAAH;AACE,eAAQ;AAER,mBAAQ;AAbL;AAAS;AAgBA;AAAT;AAEP,QAAG,CAAH;AAAU,eAAQ;AAAW,mBAAQ;AAF9B;AAAS;AAKG;AAAZ;AAEP,QAAG,CAAI,iBAAY,CAAC,EAAE;;;;QAAH,CAAnB,EACE,SAAQ,OADV;AAFO;AAAY;AAMA;AAAZ;AAEP;AACA;AACA;AACA;AAEA,WAAM,cAAS,CAAC,CAAD;AACf,oBAAG,CAAC,KAAK;;;;SAAE;;;;QAAR;AACH,aAAQ;AACR,QAAG,IAAI,KAAC,CAAR;AACE,gBAAQ,CAAC,KAAE,GAAX;;AAGE;AACA,eAAU,QAAsB,kBAAC,iBAAD,uBAAhC;AAAI;AACF,YAAG,IAAI,KAAC,cAAS,CAAC,iBAAY,CAAC,CAAD,CAAb,CAAjB;AAEI,oBAAO,IAAP;AACA;SAHJ;;AAKF,eAAU,SAAuB,mBAAC,kBAAD,0BAAjC;AAAI;AACF,YAAG,IAAI,KAAC,cAAS,CAAC,kBAAa,CAAC,CAAD,CAAd,CAAjB;AAEI,oBAAO,KAAP;AACA;SAHJ;;AAKF,eAAQ;;AA3BL;AAAY;AAh6DJ,yBAAY;AACf,sBAAe;AAGF,8EAAwB,uBAAxB;AACF,4EAAiB,qBAAjB;AACO;AACT,0EAAuB,oBAAvB;AACU,yFAAiC,WJrQzD,2BIqQyD,CAAjC;AACJ,qFAAiC,WDjVnD,yBCiVmD,CAAjC;AAG3B;AACA;AACA;AAEA,yBAA0C;AAqlCN;AAA7B;AAGP,aAAQ;AACR,8BAAmB;AACnB;AALO;AAA6B;AAQA;AAA7B;AAGP,aAAQ;AACR,0BAAe;AACf;AALO;AAA6B;AAQN;AAG9B;AACA,iCAA2B;AAJG;AAu0DD;AAAtB;AAEP,QAAY,6BAAD,QAAX;AACE,eAAQ,6BAAwB,CAAC,MAAD;AAEhC,mBAAQ;AALH;AAAsB;AAQK;AAA3B;AAEP,QAAY,kCAAD,QAAX;AACE,eAAQ,kCAA6B;AAErC,mBAAQ;AALH;AAA2B;AAQP;AAApB;AAEP,QAAY,2BAAD,QAAX;AACE,eAAQ,2BAAsB,CAAC,KAAD;AAE9B,mBAAQ;AALH;AAAoB;AAh6DN;AAGrB;AAGA,QAAG,2CAAqB,GAAC,YAAY,WAAb;AACxB,QAAmB,cAAH,eAAb,YAAa,CAAhB,EACE,IAAG,CAAO,GAAL,KAAD,GAAiB,YAAa,SADpC;AAEA,yBAAe,CAAC,CAAD;AACf,QAAG,UAAU,KAAC,IAAd;AAVqB;AAgFR;AAEb,UAAM,WAAM,QAAC,YAAM,CAAC,iCAAD,CAAN;AAFA;AArlCH;;AACC,iCADD,kCACC;AAOA;AACR;AAAM;AAAO;AAAK;AAClB;AAAM;AAAQ;AAAQ;AAFd;aACR,sBAAM,IAAA,wBAAO,IAAA,oBAAK,IAAA,gCAClB,IAAA,sBAAM,IAAA,0BAAQ,IAAA,0BAAQ,wCADhB;AADE;;AACR;AAAM;AAAO;AAAK;AAClB;AAAM;AAAQ;AAAQ;AAFd;;;AACR;AAAM;AAAO;AAAK;AAClB;AAAM;AAAQ;AAAQ;AAFd;AAID;AACP;AACA;AAFO;aACP,sBACA;AAFO;;AACP;AACA;AAFO;;;AACP;AACA;AAFO;AAOV;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAIW,qBAAG;AACH,qBAAG;AACJ,oBAAI;AACH,qBAAG;AACJ,oBAAI,EAAY,GAAE,EAAF;AACf,qBAAG,EAAW,GAAE,EAAF;AACf,oBAAI,IAAW,GAAE,EAAF;AACd,qBAAG,KAAW,GAAE,IAAF;AACd,qBAAe;AACf,qBAAe,CAAC;AAEhB,qBAAa,CAAC;AAChB,mBAAG,UAAY,GAAY,SAAZ;AAEf,mBAAG;AACC,uBAAG;AAKC;;;;;;gDAAE,EAjaC,EAiaH;AAAjB,oBACO,CAAH,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,EAAzC,EACA,CAAH,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,EAAzC,CAFP;AAKA;AACA;AACA;AACA;AAIA;AACA,mCAAmC;AAi4FZ;AAAhB;AAGP;AAAE;AAAE;AAAE;AAAE;AAAE;AAAE;AAGZ,mBAAU,CAAC,gBAAK,CAAC,SAAD,EAAY;;;;SAAE;;;;SAAE;;;;QAAtB;AACV,mBAAU,CAAC,eAAI,CAAC,SAAD,EAAY;;;;SAAE;;;;SAAE;;;;SAAE;;;;QAAvB;AACV,aAAgB,IAAR,IAAQ,CAAI,EAAE,CAAC,GAAC,CAAD,CAAG,EAAE,EAAE,EAAE,EAAE,CAAlB;AART;AAAgB;AAWA;AAAhB;AAGP,aAAQ,eAAU,CAAC,KAAK,YAAC,GAAS,KAAK,SAAC,EAAK,GAAC,CAAD,CAAG,KAAK,QAAC,EAApC,CAA0C,GACpD,eAAU,CAAC,KAAK,SAAC,GAAM,KAAK,WAAC,GAAQ,KAAK,WAAC,GAAQ,KAAK,gBAAC,EAA/C,CAD0C;AAHrD;AAAgB;AAkIG;AAAnB;AAGP;AAEA,QAAG,QAAS,GAAS,QAAT;AACZ,QAAG,CAAC,GAAC,CAAL;AACE,UAAG,CAAC,GAAC,GAAD;AAEJ,cAAG,CAAC,GAAC,GAAD;AACN,UAAM,KAAN,GAAe,gBAAK,CAAC,QAAG,CAAC,gBAAK,CAAC,CAAD,CAAN,CAAW,GAAI,QAAnB;AACpB,UAAM,KAAN,GAAe,MAAU,GAAY,UAAT,gBAAK,CAAC,CAAD,CAAI,GAAI,QAAJ,CAAZ;AAXlB;AAAmB;AAgBA;AAAnB;AAEP,aAAU,oBAAe,CAAC,SAAS,KAAM,GAAE,MAAF,CAAY,SAAS,KAAK,GAAC,QAA3C;AAFlB;AAAmB;AAOH;AAAhB;AAEP,UAAM,KAAN,GAAe,gBAAK,CAAC,KAAK,GAAC,QAAP;AACpB,YAAQ,KAAK,GAAuB,CAAZ,MAAM,KAAM,GAAC,QAAD,CAAvB;AACb,UAAM,KAAN,GAAe,UAAK,CAAC,KAAD;AAJb;AAAgB;AAOA;AAAhB;AAEP,aAAU,SAAS,KAAM,GAAiB,CAAd,SAAS,KAAK,GAAC,QAAD,CAAjB;AAFlB;AAAgB;AA0BK;AAE5B,wBAAe,CAAC,SAAoB,CAAV,eAAU;;;;SAAiB,CAAV,eAAU;;;;SAAkB,CAAV,eAAU;;;;SAAe,CAAV,eAAU;;;;QAAvE;AACf,mBAAU,CAAC,SAAoB,CAAV,eAAU;;;;SAAiB,CAAV,eAAU;;;;SAAmB,CAAV,eAAU;;;;SAAmB,CAAV,eAAU;;;;QAA5E;AACN,cAAU,UAAd,IAAG;AAJyB;AASD;AAApB;AAEP,aAAU,oBAAe,CAAC,kBAAY,CAAC,UAAU,MAAO,UAAU,OAAQ,UAAU,IAA9C,EACZ,kBAAY,CAAC,UAAU,MAAO,UAAU,QAAS,UAAU,QAAS,UAAU,YAAlE,CADb;AAFlB;AAAoB;AAshCL;AAAf;AAEP,QAAS,CAAL,KAAK,GAAC,gBAAD,CAAc,IAAS,CAAL,KAAK,GAAC,gBAAD,CAAhC,EACE,MAAM,kBAAa,QAAC,aAAU,CAAC,gDAAiB,mBAAW,GAAV,eAAU,CAAC,KAAD,CAAX,CAAlB,CAAV,CADtB;AAEA,aAAQ;AAJD;AAAe;AAtsCF;AAAb;AAGP;AAAG;AAEH,aAAa,CAAJ,IAAI,GAAC,CAAD,CAEG,IAFU,CAAJ,IAAI,GAAC,KAAD,CAAT,IACF,CAAN,KAAM,IAAG,CAAH,CADmB,IACH,CAAL,KAAK,IAAE,EAAF,CAAV,IACT,CAAH,GAAG,GAAC,CAAD,CADyB,IACb,CAAH,GAAG,IAAE,cAAS,CAAW,CAAV,eAAU,CAAC,IAAD,CAAX,EAAkB,SAAlB,CAAX,CAAR;AACjB,QAAG,MAAH;AAEI,UAAG,KAAM,GAAE,CAAX;AACK,aAAJ,IAAU;;AAGJ,aAAJ,IAAU;AACN,YAAJ,IAAG;;AAEN,UAAS,UAAL,IAAK,GAAI,GAAJ;AACT,WAAK,IAAK,GAAK,CAAH,GAAG,GAAC,CAAD,CAAL;AACV,eAAmB,CAAJ,CAAN,MAAM,GAAC,CAAD,CAAI,KAAI,CAAJ,CAAwD,GAAtC,CAAL,CAAJ,IAAI,GAAC,EAAD,CAAK,KAAI,CAAJ,CAAZ,GAA4C,UAAJ,CAAhB,CAAH,GAAG,GAAU,KAAV,CAAgB,GAAC,CAAD,CAAI,GAAI,CAAJ,CAA1B,GAA2C,GAAtF;AAGA,eAAQ,UAAK,GAAE,MAAf;KAdJ;AARQ;AAAa;AA0BA;AAAb;AAIP,aAAa,CAAJ,IAAI,GAAC,EAAD,CAA+B,IAAlB,CAAH,GAAG,GAAC,EAAD,CAAR,IAAqB,CAAH,GAAG,GAAC,EAAD,CAAR,IAAsB,CAAJ,IAAI,GAAC,IAAD,CAAT;AAC5C,QAAG,MAAH,EACE,SAA6E,CAA/C,CAAL,IAAK,GAAC,OAAD,CAA+C,GAAzB,CAAJ,GAAI,GAAC,KAAD,CAAd,GAAkC,CAAJ,GAAI,GAAC,IAAD,CAAd,GAAoB,IAAD,CAAM,GAAC,QAApF,CADF;AALO;AAAa;AAYH;AAAV;AAGP,QAAG,CAAI,kBAAa,CAAC,KAAK,MAAM,IAAI;;;;QAAhB,CAApB,EACE,MAAM,kBAAa,QAAC,aAAS,CAAC,6CACJ,mBAAS,GAAR,aAAQ,CAAC,IAAD,EAAe,GAAR,aAAQ,CAAC,KAAD,EAAgB,GAAR,aAAQ,CAAC,GAAD,CAAxC,CADG,CAAT,CADtB;AAHO;AAAU;AAWA;AAAV;AAGP,QAAG,CAAI,kBAAa,CAAC,KAAK,OAAO,OAAO,YAAY;;;;QAAhC,CAApB,EACE,MAAM,kBAAa,QAAC,aAAS,CAAC,gDACJ,mBAAS,GAAR,aAAQ,CAAC,IAAD,EAAe,GAAR,aAAQ,CAAC,MAAD,EAAiB,GAAR,aAAQ,CAAC,MAAD,EAAiB,GAAR,aAAQ,CAAC,WAAD,CAA1D,CADG,CAAT,CADtB;AAHO;AAAU;AAYC;AAElB;AAAG;AAAG;AAAG;AAET,QAAG,IAAK,IAAG,CAAC,MAAZ;AAEE,eAAQ,CAAR;AACA,gBAAS,CAAT;AACA,cAAO,CAAP;;AAIA,UAAG,IAAI,GAAC,CAAR;AACE,eAAO,IAAI,GAAG,CAAD,CAAC,GAAa,CAAX,QAAW,GAAC,CAAD,CAAb,CAAH;AAEX,mBAAM,IAAI,GAAG,CAAD,CAAC,GAAa,CAAX,QAAW,GAAC,CAAD,CAAb,CAAH;AACZ,UAAG,IAAI,GAAC,gBAAR,EACE,OAAM,gBADR;AAGA,UAA6B,QAAtB,gBAAK,CAAC,IAAD,CAAO,GAAE,MAAF,CAAc,CAAJ,CAAM,GAAC,CAAD;AACnC,WAAO,UAAF,CAAE,GAAI,MAAJ;AACP,UAAI,CAAE,GAAS,CAAP,MAAO,GAAW,EAAX,CAAT;AACN,WAAQ,OAAF,CAAE,KAAI,CAAJ;AACR,UAAkB,UAAL,CAAN,OAAH,EAAG,IAAI,CAAJ,CAAM,GAAE,CAAF,CAAK,GAAI,IAAJ;AAClB,WAA+B,OAAV,CAAJ,CAAP,OAAH,EAAG,IAAI,CAAJ,CAAO,GAAE,CAAF,CAAI,GAAM,CAAJ,IAAI,GAAC,CAAD,CAAN,CAAU,KAAI,CAAJ;AAC/B,WAAe,UAAJ,CAAJ,CAAF,CAAE,GAAE,EAAF,CAAI,GAAC,CAAD,CAAI,GAAI,GAAJ;AACf,WAA0B,UAAV,CAAH,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAC,CAAD,CAAG,GAAK,CAAH,GAAG,GAAC,EAAD,CAAL,CAAU,GAAI,CAAJ;AAC1B,WAAS,CAAJ,GAAI,GAAW,EAAX,CAAe,GAAE,CAAF;AACxB,UAAG,EAAG,GAAE,EAAR;AACK,UAAJ,IAAO;;AAGA,UAAJ,IAAO;AACH,UAAJ,IAAG;;AAEP,eAAM,EAAN;AACA,gBAAO,EAAP;AACA,cAAK,EAAL;;AArCgB;AA0FA;AAElB;AAEA,QAAK,wBAAmB,CAAC,IAAD,CAAM;AAC9B,aAAY,UAAF,CAAE,GAAI,OAAJ,CAAZ;AACA,QAAK,CAAE,GAAI,OAAJ;AACP,eAAY,UAAF,CAAE,GAAI,KAAJ,CAAZ;AACA,QAAK,CAAE,GAAI,KAAJ;AACP,eAAY,UAAF,CAAE,GAAI,IAAJ,CAAZ;AACA,QAAK,CAAE,GAAI,IAAJ;AACP,oBAAe,CAAf;AAXkB;AAhDI;AAAf;AAEP,mBAAU,CAAC,SAAS,KAAK,MAAM,GAArB;AACV,YAAK,cAAS,CAAC,QAAD,CAAd;AACA,aAAQ,eAAU,CAAC,UAAD;AAJX;AAAe;AAjHA;AAAf;AAGP,QAAG,IAAK,GAAE,CAAV;AACE,eAAU,gBAAK,CAAC,IAAD,CAAO,GAAE,QAAG,CAAC,eAAI,CAAC,IAAD,CAAL,CAAL;AAEtB,mBAAU,gBAAK,CAAC,IAAD,CAAO,GAAE,QAAG,CAAC,eAAI,CAAC,IAAD,CAAL,CAAL;AANjB;AAAe;AAksCH;AAEnB,aAAO,oBAAe,CAAC,WAAM,OAAP,CAAtB;AAFmB;AAKA;AAEnB;AAEA,UAAK;AACL,oBAAW,CAAC;;;;SAAI,cAAL;AACX,iBAAU,GAAV;AANmB;AAz/BR;AAAJ;AAGP,aAAQ,gBAAK,CAAC,UAAD;AAHN;AAAI;AAMA;AAAJ;AAEP,aAAQ,UAAG,GAAC,WAAD;AAFJ;AAAI;AAXD;AAAH;AAEP,aAAQ,qBAAgB,CAAS,IAAR,IAAQ,EAAT;AAFjB;AAAG;AATM;AAAT;AAEP,aAAS,CAAC,GAAwB,CAAL,CAAhB,gBAAK,CAAC,QAAD,CAAW,GAAE,CAAF,CAAK,GAAI,CAAJ,CAAxB;AACV,QAAI,MAAM,IAAE,CAAZ,EACM,MAAJ,IAAW,CADb;AAHO;AAAS;AA4BD;AAAR;AAEP;AAAM;AAAO;AAEb,mBAAU,CAAC,SAAU;;;;SAAM;;;;SAAO;;;;QAAxB;AACV,kBAAS,CAAC;;;;SAAM;;;;SAAO;;;;SAAK,cAAnB;AACT,aAAU,oBAAe,CAAC,kBAAY,CAAC,KAAM,MAAO,GAAd,EAAoB,QAAjC;AANlB;AAAQ;AAWE;AAEjB;AAAW;AAEX,QAAG,cAAc,IAAE,CAAnB;AACE,UAAG;AAEH,cAAG,CAAC;AAlmGoB,QAmmG1B,KAnmG0B,IAmmG1B,SAAyB,UAAf,cAAe,GAAI,EAAJ,CAAzB;AACA,gBAAgB,CAAL,WAAK,GAAiB,CAAf,cAAe,GAAI,EAAJ,CAAjB,CAAwB,GAAC,CAAD;AACxC,QAAa,CAAT,SAAS,GAAC,EAAD,CAAK,IACL,CAAT,SAAS,GAAC,CAAD,CADb;AAGO,eAAJ,IAAe,CAAC,GAAC,EAAD;AAxmGO,UAymGvB,KAzmGuB,IAymGvB,SAAU,CAAV;KAJH;AAMA,cAAO,SAAS,GAAC,CAAjB;AACA,QAAI,SAAG,GAAC,cAAS,CAAW,CAAV,eAAU,CAAC,UAAD,CAAX,CAAkB,CAAC,eAAD,CAAnC,EACE,QAAK,cAAS,CAAW,CAAV,eAAU,CAAC,UAAD,CAAX,CAAkB,CAAC,eAAD,CAAhC,CADF;AAjBiB;AAuBA;AAAV;AAEP,aAAsB,CAAN,CAAL,IAAK,GAAI,CAAJ,CAAM,KAAE,CAAF,CAAK,IAAyB,CAAN,CAAR,CAAL,IAAK,GAAI,GAAJ,CAAQ,KAAG,CAAH,CAAM,IAAiB,CAAR,CAAL,IAAK,GAAI,GAAJ,CAAQ,KAAE,CAAF,CAAjB,CAAzB;AAFpB;AAAU;AA+yBC;AAAX;AAGP,aAAqB,CAAL,IAAR,IAAQ,EAAK,aAAC;AAHf;AAAW;AAxyBF;AAAT;AAEP,aAAQ,gBAAS,CAAC,KAAK,mBAAN;AAFV;AAAS;AAKA;AAAT;AAEP,aAAQ,qBAAc,CAAC,QAAS,KAAM,SAAhB;AAFf;AAAS;AAuNA;AAAT;AAEP,aAAQ,gBAAS,CAAC,EAAE,mBAAH;AAFV;AAAS;AAKA;AAAT;AAEP,aAAU,gBAAS,CAAC,EAAE,mBAAc,iBAAiB,SAAlC;AAFZ;AAAS;AApBA;AAAT;AAEP;AAEA,aAAQ,kBAAY,CAAC;;;;SAAI,EAAE,UAAU,SAAjB;AACpB,QAAI,GAAG,KAAE,EAAT,EACE,MAAM,kBAAa,QAAC,YAAM,CAAC,GAAD,CAAN,CADtB;AALO;AAAS;AASA;AAAT;AAGP,aAAQ,gBAAS,CAAC,EAAE,SAAS,iBAAiB,SAAS,cAAtC;AAHV;AAAS;AAwlBG;AAAZ;AAEP,aAAQ,mBAAY,CAAC,EAAE,MAAM,mBAAT;AAFb;AAAY;AAyBA;AAAZ;AAGP,aAAQ,mBAAY,CAAC,EAAE,MAAM,SAAS,iBAAiB,SAAS,cAA5C;AAHb;AAAY;AApBA;AAAZ;AAGP,aAAQ,mBAAY,CAAC,EAAE,MAAM,mBAAc,iBAAiB,SAAxC;AAHb;AAAY;AAMA;AAAZ;AAGP;AAGA,aAAe,CAAD,OAAG,KAAE,CAAF;AACjB,QAAG,MAAH;AAEE,gBAAO,kBAAY,CAAC;;;;WAAI,EAAE,UAAU,SAAjB,CAAnB;AACA,eAAS,GAAG,KAAC,EAAD;KAHd;AAPO;AAAY;AAsFA;AAAZ;AAEN,aAAU,mBAAY,CAAC,EAAE,SAAS,MAAZ;AAFhB;AAAY;AA2BA;AAAZ;AAEP,QAAG,CAAI,mBAAY,CAAC,EAAE;;;;SAAQ,SAAX,CAAnB,EACE,SAAQ,QADV;AAFO;AAAY;AAtBA;AAAZ;AAEP,QAAG,CAAI,mBAAY,CAAC,EAAG;;;;SAAQ,SAAZ,CAAnB,EACE,SAAU,QADZ;AAFO;AAAY;AAx4BH;AAAT;AAEP,aAAQ,gBAAS,CAAC,KAAK,mBAAN;AAFV;AAAS;AAKA;AAAT;AAEP,aAAQ,qBAAc,CAAC,KAAK,KAAK,SAAX;AAFf;AAAS;AAwaA;AAAT;AAEN,aAAQ,gBAAS,CAAC,EAAG,mBAAJ;AAFX;AAAS;AAMA;AAAT;AAGP;AAGA,sBAA2B,6BAA3B;AACA,aAAS,cAAT,GAAyB;AACzB,aAAQ,gBAAS,CAAC,EAAE,SAAH;AARV;AAAS;AAjBA;AAAT;AAGP;AAGA,aAAQ,kBAAY,CAAC;;;;SAAI,EAAS,CAAD,QAAI,SAAjB;AACpB,QAAI,GAAG,KAAE,EAAT,EACE,MAAM,kBAAa,QAAC,YAAM,CAAC,GAAD,CAAN,CADtB;AAPO;AAAS;AAwbG;AAAZ;AAEP,aAAQ,mBAAY,CAAC,EAAE,MAAM,gDAAT;AAFb;AAAY;AAzBA;AAAZ;AAGP;AAGA,aAAe,CAAD,OAAG,KAAE,CAAF;AACjB,QAAG,MAAH;AAEI,gBAAO,kBAAY,CAAC;;;;WAAI,EAAS,CAAD,QAAI,SAAjB,CAAnB;AACA,eAAS,GAAG,KAAC,EAAD;KAHhB;AAPO;AAAY;AAcA;AAAZ;AAGP;AAGA,gBAAqB,6BAArB;AACA,OAAG,cAAH,GAAmB;AACnB,aAAQ,mBAAY,CAAC,EAAE,MAAM,gCAAT;AARb;AAAY;AA+DA;AAAZ;AAEN,aAAU,mBAAY,CAAC,EAAE,SAAS,MAAZ;AAFhB;AAAY;AAsBA;AAAZ;AAEP,QAAG,CAAI,mBAAY,CAAC,EAAE;;;;SAAQ,SAAX,CAAnB,EACE,SAAQ,QADV;AAFO;AAAY;AAMA;AAAZ;AAGP,QAAG,CAAI,mBAAY,CAAC,QAAS;;;;SAAQ,sCAAlB,CAAnB,EACE,SAAU,QADZ;AAHO;AAAY;AAz5BC;AAAb;AAGP,aAAQ,oBAAa,CAAC,SAAS,oBAAe,eAAzB;AAHd;AAAa;AAMA;AAAb;AAIP,aAAQ,qBAAc,CAAC,yBAAmB,CAAC,gBAAD,EAAmB,SAAS,SAAhD;AAJf;AAAa;AAqfA;AAAb;AAGP,aAAQ,oBAAa,CAAC,EAAE,mBAAH;AAHd;AAAa;AAMA;AAAb;AAGP;AAAS;AACT;AAEA,iBAAc,sBAAgB,CAAC,EAAG;;;;SAAS;;;;SAAQ,SAArB;AACzB;AACH,QADG,IACH;AAAG,eAAQ,cAAS,CAAC,EAAD;AACpB,cAFG,IAEH;AAAG,UAAW,OAAD,OAAU,GAAE,CAAtB;AACE,iBAAU,gBAAS,CAAC,QAAQ,SAAS,iBAAiB,SAAS,cAA5C;AAEnB,qBAAU,cAAS,CAAC,OAAD;AACxB,cANG,IAMH,QAAG,SAAU,oBAAe,CAAC,gBAAS,CAAC,QAAQ,SAAS,iBAAiB,SAAS,cAA5C,EACR,cAAS,CAAC,OAAD,CADX,CAA5B;AAbK;AAAa;AA6UG;AAAhB;AAGP,aAAQ,uBAAgB,CAAC,EAAE,MAAM,mBAAT;AAHjB;AAAgB;AAMA;AAAhB;AAGP;AACA;AAAQ;AAER,aAAQ;AACR,QAAG,cAAG,CAAC,SAAS,eAAe,CAAzB;AACN,QAAI,CAAC,GAAC,CAAN;AAEI,aAAQ,CAAD,CAAC,GAAC,CAAD,CAAI,IAAS,CAAJ,CAAC,QAAC,KAAD,CAAG,KAAE,GAAF,CAArB,EACM,CAAJ,IAAG;AACL,UAAG,CAAC,GAAC,CAAL;AAEI,YAAG,CAAI,mBAAY,CAAC,eAAI,CAAC,EAAE,EAAE,CAAC,GAAC,CAAP,EAAU;;;;aAAQ,SAAvB,CAAnB,EACE,aADF;AAEA,YAAG,CAAI,mBAAY,CAAC,eAAI,CAAC,EAAE,CAAC,GAAC,CAAD,CAAW,CAAD,OAAG,GAAC,CAAlB,EAAqB;;;;aAAQ,sCAAlC,CAAnB,EACE,aADF;AAEA,kBAAO,oBAAe,CAAC,OAAO,MAAR,CAAtB;AACA,iBAAQ;OAGT,eAAQ,mBAAY,CAAC,EAAE,MAAM,sCAAT;KAGzB,eAAQ,mBAAY,CAAC,EAAE,MAAM,SAAT;AAzBf;AAAgB;AAoDA;AAAhB;AAEP,aAAQ,uBAAgB,CAAC,EAAE,SAAS,gDAAZ;AAFjB;AAAgB;AANA;AAAhB;AAEP,QAAG,CAAI,uBAAgB,CAAC,EAAE;;;;SAAO,SAAV,CAAvB,EACE,SAAQ,QADV;AAFO;AAAgB;AA/WF;AAAd;AAGP,aAAQ,qBAAc,CAAC,UAAU,SAAS,mBAApB;AAHf;AAAc;AAMA;AAAd;AAEW;AAGhB,eAAQ,MAAM,GAAC,eAAI,CAAC,UAAU,KAAK,GAAhB,CAAL;AAHE;AAMG;AAInB,eAAQ,MAAM,GAAC,IAAD;AAJK;AAOH;AAEhB;AAGA,UAAG,aAAQ,CAAC,KAAD;AACX,aAAc,CAAD,OAAG,GAAC,MAAjB,EACE,IAAG,GAAG,GAAC,CAAD;AACR,iBAAW,CAAC,CAAD;AARK;AAYlB;AAAM;AAAO;AAAK;AAAW;AAAM;AAAQ;AAAQ;AAE9B;AAEnB;AAAO;AAAiB;AACxB;AACA;AACA;AACA;AACA;AAAE;AAAc;AAEhB,UAAG,OAAQ,GAAE,CAAb,EACE,MADF;AAEA,sBAAiB;AACjB,kBAAoB,SAAD;AACnB,gBAAW;AACX,mBAAc;AAEd,UAAG;AACH,aAAM,CAAC,IAAE,SAAT;AAEE,gBAAS,SAAS,QAAC,KAAD;AACb;AACH,aADG,IACH,aAAM,CADH,IACG,SAAN;AAEM,WAAJ,IAAG;AACH,iBAAS,CAAF,CAAE,GAAE,SAAF,CAAa,IAAiB,CAAZ,SAAS,QAAC,KAAD,CAAG,KAAE,KAAF,CAAvC,EACM,CAAJ,IAAG;SAEP,WAPG,IAOH,aAAK,CAPF,IAOE,SAAL;AAEE,cAA0C,CAAtC,gBAAW,CAAC,eAAI,CAAC,UAAU,EAAE,CAAb,EAAgB,KAArB,CAA2B,KAAC,CAAD,CACK,IAAJ,CAAvC,gBAAW,CAAC,eAAI,CAAC,UAAU,EAAE,CAAb,EAAgB,MAArB,CAA4B,KAAC,CAAD,CADG,IAEF,CAAxC,gBAAW,CAAC,eAAI,CAAC,UAAU,EAAE,CAAb,EAAgB,OAArB,CAA6B,KAAC,CAAD,CAF5C;AAIE,sBAAW;AACX;WALF;SAFF;AAWE,SAAJ,IAAG;;AAEL,cAAS;AACT,wBAAmB;AACnB,sBAAiB;AACjB,aAAM,aAAc,IAAG,SAAvB;AAEE,gBAAS,cAAS,CAAC,SAAS,QAAC,iBAAD,CAAV,CAA0B,QAAC,CAAD;AAE5C,gBAAS;AACT,YAAK,aAAc,GAAE,CAAF;AACd;AACH,aADG,KACH,aAAM,CADH,KACG,SAAN;AAEE,iBAAS,CAAF,CAAE,GAAE,SAAF,CAAa,IAAiB,CAAZ,SAAS,QAAC,KAAD,CAAG,KAAE,KAAF,CAAvC,EACM,CAAJ,IAAG;AACD,WAAJ,IAAG;AACH,kBAAS,CAAE,GAAE,aAAF;AACX,kBAAQ,CAAC,UAAW,aAAc,GAAE,CAAF,CAAK,KAAM,GAAE,CAAvC;SAEV,UATG,KASH;AAEE,cAAG,gBAAW,CAAC,eAAI,CAAC,UAAU,cAAc,CAAzB,EAA6B,MAAlC,CAA0C,KAAE,CAA1D;AAEE,oBAAS;AACT,gBAAG,IAAK,GAAE,EAAV;AACE,yBAAW,CAAC,SAAS,aAAV;AAEX,kBAAA,WAAW,CAAC,SAAS,aAAV;WAEV,UAAG,gBAAW,CAAC,eAAI,CAAC,UAAU,cAAc,CAAzB,EAA6B,OAAlC,CAA2C,KAAE,CAA3D;AAEH,oBAAS;AACT,gBAAG,IAAK,GAAE,EAAV;AAAkB,sBAAQ,CAAC,UAAW,cAAe,CAA3B;AACR,kBAAA,QAAQ,CAAC,UAAW,aAAa,GAAC,CAAD,CAAI,CAA7B;WAEvB,UAAG,gBAAW,CAAC,eAAI,CAAC,UAAU,cAAc,CAAzB,EAA6B,KAAlC,CAAyC,KAAE,CAAzD;AAEH,oBAAS;AACT,gBAAG,IAAK,GAAE,EAAV;AAAkB,sBAAQ,CAAC,UAAW,cAAe,CAA3B;AACrB,kBAAA,QAAQ,CAAC,UAAW,aAAa,GAAC,CAAD,CAAI,CAA7B;WAGb,YAAM,kBAAa,QAAC,YAAM,CAAC,oCAAD,CAAN;SAExB,UAlCG,KAkCH;AAGE,qBAAW,CAAC,SAAS,cAAV;SAEb,UAvCG,KAuCH;AAAK,qBAAW,CAAC,SAAS,cAAV;AAChB,mBAxCG,KAwCH,aAAK,CAxCF,KAwCE,SAAL,IAAU,CAxCP,KAwCO,SAAV,IAAe,CAxCZ,KAwCY,SAAf,IAAoB,CAxCjB,KAwCiB,SAApB,IAAyB,CAxCtB,KAwCsB,SAAzB,IAA8B,CAxC3B,KAwC2B,SAA9B,IAAmC,CAxChC,KAwCgC,SAAnC,IAAwC,CAxCrC,KAwCqC,SAAxC,IAA6C,CAxC1C,KAwC0C,SAA7C,IAAkD,CAxC/C,KAwC+C,SAAlD;AAGE,iBAAS,CAAF,CAAE,IAAG,SAAH,CAAc,IAA6B,CAAxB,cAAS,CAAC,SAAS,QAAC,KAAD,CAAV,CAAe,KAAE,KAAF,CAApD,EACM,CAAJ,IAAG;AACL,kBAAS,CAAE,GAAE,aAAF;AAEN;AACH,cADG,KACH;AAAK,oBAAQ,CAAC,UAAW,cAAe,KAA3B;AACb,oBAFG,KAEH;AACE,gBAAG,KAAM,GAAE,CAAX;AACE,sBAAQ,CAAC,KAAM,CAAP;AAER,kBAAA,QAAQ,CAAC,IAAK,GAAI,GAAJ,CAAS,CAAf;WAEZ,UARG,KAQH;AACL,gBAAG,UAAW,IAA2B,CAAP,CAAd,aAAc,KAAE,GAAF,CAAO,IAAG,QAAH,CAAzC;AACE,sBAAQ,CAAC,MAAO,GAAkC,CAA1B,CAAL,IAAK,GAAsB,CAApB,gBAAK,CAAC,QAAG,CAAC,QAAD,CAAJ,CAAe,GAAC,EAAD,CAAtB,CAA0B,GAAC,EAAD,CAAlC,CAAuC,CAA/C;AAEH,sBAAoB,CAAhB,eAAgB,KAAE,GAAF,CAAO,IAAG,QAA9B;AAEE,kBAAG,KAAM,KAAE,CAAX;AACE,wBAAQ,CAAC,OAAQ,CAAT;AAER,oBAAA,QAAQ,CAAC,OAAQ,CAAT;;AAIL;AACH,kBADG,KACH;AAAG,wBAAQ,CAAC,MAAO,CAAR;AACX,wBAFG,KAEH;AAAG,wBAAQ,CAAC,MAAO,CAAR;AACX,wBAHG,KAGH;AAAG,2BAAW,CAAC,SAAS,gBAAgB,CAAC,SAAD,CAA1B;;AAEd,2BAAW,CAAC,SAAS,eAAe,CAAC,SAAD,CAAzB;;;WAIjB,UA9BG,KA8BH;AACO;AACH,gBADG,KACH;AAAG,sBAAQ,CAAC,IAAK,CAAN;AACX,sBAFG,KAEH;AAAG,sBAAQ,CAAC,IAAK,CAAN;AACX,sBAHG,KAGH;AAAG,yBAAW,CAAC,SAAS,cAAc,CAAC,aAAD,CAAxB;AACd,sBAJG,KAIH;AAAG,yBAAW,CAAC,SAAS,aAAa,CAAC,aAAD,CAAvB;AACd,sBALG,KAKH;AAAG,yBAAW,CAAC,SAAS,iBAAkB,OAAO,GAAC,CAAD,CAAI,KAAvC;;AAEd,yBAAW,CAAC,SAAS,gBAAiB,OAAO,GAAC,CAAD,CAAI,KAAtC;;WAGf,UAzCG,KAyCH;AACL,gBAAG,UAAH;AACE,sBAAQ,CAAC,IAAK,GAAsB,CAApB,gBAAK,CAAC,QAAG,CAAC,QAAD,CAAJ,CAAe,GAAC,EAAD,CAAtB,CAA2B,CAAjC;AAEV,sBAAG,OAAH;AAES,oBAAO,IAAK,GAAI,EAAJ;AACZ,kBAAG,GAAG,KAAC,CAAP,EAAc,MAAK,EAAnB;AACA,kBAAG,KAAM,KAAE,CAAX;AACE,wBAAQ,CAAC,IAAK,CAAN;AAER,oBAAA,QAAQ,CAAC,IAAK,CAAN;;AAGV,kBAAG,KAAM,KAAE,CAAX;AACZ,wBAAQ,CAAC,KAAM,CAAP;AAEM,oBAAA,QAAQ,CAAC,KAAM,CAAP;;AAEd,oBA5DG,KA4DH;AAAK,gBAAG,UAAH;AACL,sBAAQ,CAAC,MAAO,GAAkC,CAA1B,CAAL,IAAK,GAAsB,CAApB,gBAAK,CAAC,QAAG,CAAC,QAAD,CAAJ,CAAe,GAAC,EAAD,CAAtB,CAA0B,GAAC,EAAD,CAAlC,CAAuC,CAA/C;AAEjB,sBAAG,KAAM,KAAE,CAAX;AACgB,sBAAQ,CAAC,OAAQ,CAAT;AAER,kBAAA,QAAQ,CAAC,OAAQ,CAAT;AACf,oBAnEG,KAmEH;AAAK,gBAAG,UAAH;AACL,sBAAQ,CAAC,MAAO,GAAgD,CAAtC,CAAP,MAAO,GAAkC,CAA1B,CAAL,IAAK,GAAsB,CAApB,gBAAK,CAAC,QAAG,CAAC,QAAD,CAAJ,CAAe,GAAC,EAAD,CAAtB,CAA0B,GAAC,EAAD,CAAlC,CAAsC,GAAC,EAAD,CAAhD,CAAqD,CAA7D;AAEV,sBAAG,KAAM,KAAE,CAAX;AACS,sBAAQ,CAAC,OAAQ,CAAT;AAER,kBAAA,QAAQ,CAAC,OAAQ,CAAT;AACf,oBA1EG,KA0EH;AAAK,gBAAG,KAAM,KAAE,CAAX;AACE,sBAAQ,CAAC,YAAa,CAAd;AAEtB,kBAAA,QAAQ,CAAC,YAAa,CAAd;AACD,oBA9EG,KA8EH;AAAK,gBAAG,KAAM,KAAE,CAAX;AACZ,yBAAW,CAAC,SAAS,iBAAkB,OAAO,GAAC,CAAD,CAAI,IAAvC;AAEJ,kBAAA,WAAW,CAAC,SAAS,gBAAiB,OAAO,GAAC,CAAD,CAAI,IAAtC;AACX,oBAlFG,KAkFH;AACO,uBAAW,CAAC,SAAS,iBAAkB,OAAO,GAAC,CAAD,CAAI,KAAvC;AACX,gBAAQ,CAAJ,IAAI,KAAE,CAAF,CAAoB,IAAL,CAAN,MAAM,KAAE,CAAF,CAAV,IAAyB,CAAN,MAAM,KAAE,CAAF,CAAtC;AAEG,yBAAW,CAAC,GAAD;AACX,yBAAW,CAAC,SAAS,gBAAiB,OAAO,GAAC,CAAD,CAAI,IAAtC;aAHd;WAMP,UA1FG,KA0FH;AACO,uBAAW,CAAC,SAAS,iBAAkB,OAAO,GAAC,CAAD,CAAI,KAAvC;AACX,uBAAW,CAAC,GAAD;AACX,uBAAW,CAAC,SAAS,gBAAiB,OAAO,GAAC,CAAD,CAAI,IAAtC;WAHlB;AAMT,0BAAiB;AACV,4BAAmB;;AAGnB,qBAAW,CAAC,KAAD;;AAEX,qBAAJ,IAAmB;;AAtMF;AA2MrB,wBAAe,CAAC,SAAU;;;;SAAM;;;;SAAO;;;;SAAK;;;;QAA7B;AACf,mBAAU,CAAC,SAAU;;;;SAAM;;;;SAAQ;;;;SAAQ;;;;QAAjC;AAEV,QAAG,SAAU,KAAG,EAAhB;AACE,iBAAW,CAAC,UAAW,EAAG,KAAf;AAEX,UAAA,WAAW,CAAC,IAAK,EAAG,KAAT;AA9ON;AAAc;AAznHrB;AACA;AACA;AACA;AAkhIkB;AAAX;AAEP,QAAG,CAAI,mBAAc,CAAC,MAAO;;;;QAAR,CAArB,EACE,MAAM,kBAAa,QAAC,aAAS,CAAC,gDAAkB,mBAAW,GAAV,eAAU,CAAC,KAAD,CAAX,CAAnB,CAAT,CADtB;AAFO;AAAW;AAMG;AAAd;AAEP,aAAc,EAAL,KAAK,aAAE,gBAAF,CAAe,IAAU,EAAL,KAAK,aAAE,gBAAF,CAAV;AAC7B,QAAG,MAAH,EACE,sBAAW,KAAX,UADF;AAHO;AAAc;AAOL;AAAT;AAEP,aAAQ,kBAAW,CAAC,cAAM,4BAAU,CAAC,EAAE,EAAE,mBAAtB;AAFZ;AAAS;AAMA;AAAT;AAEP,aAAQ,kBAAW,CAAC,cAAM,4BAAU,CAAC,EAAE,EAAE,SAAtB;AAFZ;AAAS;AAMA;AAAT;AAGP,QAAG,CAAI,iBAAY,CAAC,EAAE;;;;QAAH,CAAnB,EACE,MAAM,kBAAa,QAAC,aAAS,CAAC,gDAAiB,mBAAC,IAAD,CAAlB,CAAT,CADtB;AAHO;AAAS;AAOA;AAAT;AAEP,QAAG,CAAI,mBAAY,CAAC,EAAE;;;;SAAO,SAAV,CAAnB,EACE,MAAM,kBAAa,QAAC,aAAS,CAAC,gDAAiB,mBAAC,IAAD,CAAlB,CAAT,CADtB;AAFO;AAAS;AAMG;AAAZ;AAGP;AAGA,aAAQ,oBAAa,CAAC,EAAE;;;;SAAE,mBAAL;AACrB,QAAG,MAAH,EACE,oBAAO,CAAP,UADF;AAPO;AAAY;AAYA;AAAZ;AAEP;AAGA,aAAQ,oBAAa,CAAC,EAAE;;;;SAAE,SAAL;AACrB,QAAG,MAAH,EACE,oBAAO,CAAP,UADF;AANO;AAAY;AAWA;AAAZ;AAGP;AAGA,QAAG,mBAAY,CAAC,EAAE;;;;SAAE,mBAAL,CAAf;AACE,eAAQ;AAER,mBAAQ;AATH;AAAY;AAaA;AAAZ;AAEP;AAGA,QAAG,mBAAY,CAAC,EAAE;;;;SAAE,SAAL,CAAf;AACE,eAAQ;AAER,mBAAQ;AARH;AAAY;AA1kIN;AA6nKO;AAAb;AAEP;AACA;AACA;AAGA,QAAY,QAAD;AACX,aAAqD,aAArB,aAAxB,oCAAyB,+BAAD,EAAsB,cAAC,0CAAD,CAAD;AACrD,WAAS,CAAF,CAAE,GAAE,CAAF,CAAK,IAAI,CAAgB,CAAZ,QAAQ,YAAC,KAAD,CAAI,IAAG,MAAH,CAAlC,EACM,CAAJ,IAAG;AACL,QAAM,CAAF,CAAE,KAAE,CAAF,CAAK,IAAgB,CAAZ,QAAQ,QAAC,KAAD,CAAI,KAAG,6BAAH,CAA3B;AACE,UAAY,QAAD,OAAU,GAAC,CAAD;;AAGjB,YAAO,CAAD,CAAC,KAAC,CAAD,CAAI,IAAkB,CAAd,QAAQ,YAAC,CAAC,GAAC,CAAD,IAAF,CAAM,IAAG,mCAAH,CAAlB;AACX,UAAI,GAAK,IAAI,CAAI,6CAAjB,EACE,IAAU,QAAD,OAAU,GAAC,CADtB;;AAGN,aAAU,eAAI,CAAC,SAAU,EAAG,CAAE,GAAE,CAAlB,CAAqB,GAAE,SAAF;AAnB5B;AAAa;AAsBE;AAAf;AAEP;AACA;AAEA,QAAY,QAAD;AACX,aAAgC,aAAxB,oCAAyB,+BAAD;AAChC,WAAS,CAAF,CAAE,GAAE,CAAF,CAAK,IAAI,CAAI,gBAAS,CAAC,QAAQ,QAAC,KAAD,EAAI,MAAb,CAA/B,EACM,CAAJ,IAAG;AACL,QAAG,CAAC,GAAC,CAAL;AACE,eAAU,eAAI,CAAC,SAAU,EAAG,CAAd;AAEd,mBAAQ;AAZH;AAAe;AA8BC;AAAhB;AAEP;AAAE;AAEF,aAAU;AACV,QAAU,QAAD;AACT,QAAI,CAAC,GAAC,CAAN,EACE,aADF;AAEA,QAAG,gBAAS,CAAC,QAAQ,QAAC,CAAD,EAAI,+BAAb,CAAZ;AACE,eAAQ,eAAI,CAAC,SAAS,EAAE,CAAZ;AACT,cAAG,gBAAS,CAAC,QAAQ,QAAC,CAAD,EAAI,mCAAb,CAAuC,IAChD,gBAAS,CAAC,QAAQ,QAAC,CAAD,EAAI,mCAAb,CADZ;AAGD,UAAK;AAGL,aAAQ,CAAD,CAAC,GAAC,CAAD,CAAI,IAAI,CAAI,gBAAS,CAAC,QAAQ,QAAE,CAAD,CAAC,GAAC,CAAD,KAAF,EAAM,mCAAf,CAA7B,EACM,CAAJ,IAAG;AACD,OAAJ,IAAG;AAEH,aAAQ,CAAD,CAAC,GAAC,CAAD,CAAI,IAAI,CAAI,gBAAS,CAAC,QAAQ,QAAE,CAAD,CAAC,GAAC,CAAD,KAAF,EAAM,mCAAf,CAA7B,EACM,CAAJ,IAAG;AACL,eAAQ,eAAI,CAAC,SAAS,EAAE,CAAZ;KAZX;AAVE;AAAgB;AA0BD;AAAf;AAEP;AACA;AAEA,QAAY,QAAD;AACX,aAAgC,aAAxB,oCAAyB,+BAAD;AAChC,WAAS,CAAF,CAAE,GAAE,CAAF,CAAK,IAAI,CAAI,gBAAS,CAAC,QAAQ,QAAC,KAAD,EAAI,MAAb,CAA/B,EACM,CAAJ,IAAG;AACL,aAAU,eAAI,CAAC,SAAU,CAAE,GAAE,CAAF,CAAK,UAAlB;AATP;AAAe;AAYD;AAAd;AAEP;AACA;AACA;AAGA,aAAQ;AACR,QAAY,QAAD;AACX,aAAqD,aAArB,aAAxB,oCAAyB,+BAAD,EAAsB,cAAC,0CAAD,CAAD;AACrD,WAAS,CAAF,CAAE,GAAE,CAAF,CAAK,IAAI,CAAI,gBAAS,CAAC,QAAQ,QAAC,KAAD,EAAI,MAAb,CAA/B,EACM,CAAJ,IAAG;AACL,QAAM,CAAF,CAAE,GAAE,CAAF,CAAK,IAAiB,CAAZ,QAAQ,QAAC,KAAD,CAAI,KAAE,6BAAF,CAA5B;AAEM,YAAO,CAAD,CAAC,KAAC,CAAD,CAAI,IAAkB,CAAd,QAAQ,YAAC,CAAC,GAAC,CAAD,IAAF,CAAM,IAAG,mCAAH,CAAlB;AACX,UAAI,CAAI,GAAK,IAAG,6CAAhB,EACE,SAAU,eAAI,CAAC,SAAU,EAAG,UAAd,CADhB;KAIJ,eAAU;AAnBL;AAAc;AArDA;AAAd;AAEP;AACA;AAEA,QAAY,QAAD;AACX,aAAgC,aAAxB,oCAAyB,+BAAD;AAChC,WAAS,CAAF,CAAE,GAAE,CAAF,CAAK,IAAI,CAAI,gBAAS,CAAC,QAAQ,QAAC,KAAD,EAAI,MAAb,CAA/B,EACM,CAAJ,IAAG;AACL,QAAM,CAAF,CAAE,GAAE,CAAF,CAAyD,IAAhD,gBAAS,CAAC,QAAQ,QAAC,KAAD,EAAI,mCAAb,CAAb,IACR,CAAI,gBAAS,CAAC,QAAQ,QAAC,CAAE,GAAE,CAAF,IAAH,EAAQ,MAAjB,CADhB,EAEM,CAAJ,IAAG,CAFL;AAGA,aAAU,eAAI,CAAC,SAAU,EAAG,CAAd;AAZP;AAAc;AA2EK;AAAnB;AAGP;AAAa;AAAQ;AACrB;AAAG;AAAG;AAAE;AACR;AAAG;AAIH,mBAAgB,IAAI,GAAC,oBAAD;AACpB,QAAG,cAAS,CAAC,qBAAgB,CAAC,QAAD,CAAjB,CAA4B,KAAE,cAAS,CAAC,qBAAgB,CAAC,QAAD,CAAjB,CAAnD;AAEE,eAAQ;AACR;KAHF;AAKA,aAAQ,iCAA4B,CAAC,oBAAe,CAAC,QAAD,CAAhB;AACpC,WAAM,iCAA4B,CAAC,oBAAe,CAAC,QAAD,CAAhB;AAClC,SAAI,YAAQ,CAAC,MAAD;AACZ,SAAU,WAAC,EAAD;AACV,SAAI,YAAQ,CAAC,IAAD;AACZ,SAAU,WAAC,EAAD;AACV,QAAG;AACH,WAAQ,CAAD,CAAC,GAAC,EAAD,CAAK,IAAM,CAAD,CAAC,GAAC,EAAD,CAAnB;AAEE,UAAG,aAAQ,CAAC,EAAE,CAAC,CAAD,EAAI,EAAE,CAAC,CAAD,CAAT,CAAX;AACM,SAAJ,IAAG;AAEH;;AAEJ,aAAQ;AACR,aAAO,QAAK,2BAAZ;AAAI;AAAc,eAAQ,MAAM,GAAC,YAAD;;AAChC,aAAO,SAAK,+BAAZ;AAAI;AAAc,eAAQ,MAAY,GAAL,EAAE,CAAC,CAAD,CAAH,GAAO,oBAAD;;AACtC,aAAQ,MAAM,GAAC,oBAAe,CAAC,QAAD,CAAhB;AAhCP;AAAmB;AA2ES;AAA5B;AAGP;AAGA,aAAQ;AACR,QAAU,MAAD;AACT,QAAK,CAAD,CAAC,KAAC,CAAD,CAAI,IAAG,CAAI,gBAAS,CAAC,MAAM,QAAC,KAAD,EAAI,mCAAX,CAAzB,EACE,SAAQ,MAAM,GAAC,oBADjB;AARO;AAA4B;AAYA;AAA5B;AAGP;AAGA,QAAU,IAAD;AACT,QAAK,CAAD,CAAC,GAAC,CAAD,CAAI,IAAI,gBAAS,CAAC,IAAI,QAAC,KAAD,EAAI,mCAAT,CAAtB,EACM,CAAJ,IAAG,CADL;AAEA,aAAQ,eAAI,CAAC,KAAK,EAAE,CAAR;AATL;AAA4B;AAYD;AAA3B;AAGP;AAGA,aAAQ;AACR,QAAU,MAAD;AACT,QAAK,CAAD,CAAC,KAAC,CAAD,CAAI,IAAG,CAAI,gBAAS,CAAC,MAAM,QAAC,CAAD,EAAI,mCAAX,CAAzB,EACE,SAAQ,oBAAS,GAAC,MADpB;AARO;AAA2B;AAYA;AAA3B;AAGP;AAGA,aAAQ;AACR,QAAU,MAAD;AACT,QAAK,CAAD,CAAC,GAAC,CAAD,CAAI,IAAI,gBAAS,CAAC,MAAM,QAAC,CAAD,EAAI,mCAAX,CAAtB,EACE,iBAAM,CAAC;;;;SAAO,EAAE,CAAV,CADR;AARO;AAA2B;AAYZ;AAAf;AAGP,aAAc,CAAL,KAAK,GAAC,CAAD,CAA8B,IAAhB,CAAL,KAAK,IAAS,IAAD,OAAR,CAAV,IAA8B,gBAAS,CAAC,IAAI,QAAC,SAAD,EAAQ,mCAAb,CAAb;AAHrC;AAAe;AAxFC;AAAhB;AAGP;AAGA,aAAQ;AACR,aAAO,QAAW,OAAC,MAAD,yBAAlB;AAAI;AACF,UAAG,gBAAS,CAAC,MAAM,QAAC,KAAD,EAAI,mCAAX,CAAZ,EACE,MAAM,iBAAN,OAAO,MAAI,oBAAL,CADR;;AARK;AAAgB;AAYT;AAAP;AAGP;AAAE;AAAE;AACJ;AAGA,QAAG;AACH,QAAG;AACH,QAAG;AACO,UAAD,sBAAC,UAAc,OAAD,OAAd;AACT,WAAM,CAAC,IAAS,OAAD,OAAf;AAEE,UAAG,gBAAS,CAAC,OAAO,QAAC,KAAD,EAAI,mCAAZ,CAAZ;AAEE,YAAG,eAAI,CAAC,QAAQ,CAAC,GAAC,CAAD,CAAG,CAAC,GAAC,CAAf;AACP,YAAI,CAAC,KAAE,EAAP;AAEE,gBAAM,CAAC,CAAD,CAAN,GAAW;AACP,WAAJ,IAAG;SAHL;AAKA,YAAG;OARL;AAUI,OAAJ,IAAG;;AAEK,UAAD,sBAAC,UAAO,CAAR;AAzBF;AAAO;AAkFI;AAAX;AAEP;AAEA,QAAS,WAAC,KAAD,CAAQ,GAAE,CAAnB;AAEE,eAAU,KAAK,CAAC,CAAD;AACf,eAAS,QAAmB,OAAR,WAAC,KAAD,CAAQ,GAAE,CAAF,kBAA5B;AAAI;AACF,iBAAU,iCAA4B,CAAC,MAAD,CAAS,GAAE,gCAA2B,CAAC,KAAK,CAAC,CAAD,CAAN,CAA7B;;KAEjD,eAAU;AAVL;AAAW;AAt1KT;AAikIM;AAAR;AAGP,aAAmB,CAAR,QAAQ,KAAE,IAAF,CAChB,IADwE,CAA5C,QAAQ,eAAe,CAAC,2BAAgB,GAAjB,CAAqB,KAAC,CAAD,CAAjD,IACV,SAAI,OAAC,aAAY,CAAC,MAAD,CAA9B;AAJI;AAAQ;AAOA;AAAR;AAGP,aAAiB,CAAR,QAAQ,KAAE,IAAF,CAAO,IAAsC,CAAjC,QAAQ,eAAe,CAAC,IAAI,IAAL,CAAU,KAAC,CAAD,CAAtC;AAHjB;AAAQ;AAMA;AAAR;AAEP,aAAiB,CAAR,QAAQ,KAAE,IAAF,CAAO,IAAI,QAAQ,aAAa,CAAC,IAAI,IAAL,CAAzB;AAFjB;AAAQ;AAKA;AAAR;AAGP,aAAiB,CAAR,QAAQ,KAAE,IAAF,CAAO,IAAI,QAAQ,kBAAkB,CAAC,IAAI,IAAL,CAA9B;AAHjB;AAAQ;AAMA;AAAR;AAEP;AAEA,aAAQ,aAAQ,CAAC,SAAS,OAAO;;;;QAAjB;AAJT;AAAQ;AAOA;AAAR;AAEP;AAFe;AAIf,eAAQ,eAAQ,CAAC,SAAS,IAAI;;;;UAAd;AAJD;AAEf;AAFe;AAAR;AAAQ;AAOA;AAAR;AAEP;AAEA,aAAQ,eAAQ,CAAC,SAAS,IAAI;;;;QAAd;AAElB;AANS;AAAQ;AAUA;AAAR;AAEP;AAEA,aAAQ,eAAQ,CAAC,SAAS,IAAI;;;;QAAd;AAElB;AANS;AAAQ;AAUA;AAAR;AAEP;AAEA,QAAG,MAAM,KAAC,IAAV,EAAuB,OAAC,KAAxB;AACA,WAAkB,MAAQ;AAC1B,QAAG,CAAI,IAAP,EAAqB,OAAC,KAAtB;AACA,QAAa,IAAkB,CAAZ,iBAAY,CAAC,GAAD,EAA/B,EAA+C,OAAC,IAAhD;AACA,aAAQ;AARD;AAAQ;AAWA;AAAR;AAEP;AAEA,QAAG,MAAM,KAAC,IAAV,EAAuB,OAAC,KAAxB;AACA,WAAkB,MAAQ;AAC1B,QAAG,CAAI,IAAP,EAAqB,OAAC,KAAtB;AACA,QAAa,IAAe,CAAT,cAAS,CAAC,GAAD,EAA5B,EAA4C,OAAC,IAA7C;AACA,aAAQ;AARD;AAAQ;AAWO;AAAf;AAEP;AAEA,QAAU,CAAD,OAAG,KAAE,EAAd,EAA0B,OAAC,KAA3B;AACA,SAAc,IAAV,MAAU,CAAI,qFAAJ;AACd,aAAQ,EAAE,KAAK,CAAC,CAAD;AACf,QAAG,CAAI,MAAP;AAEE,UAAI,GAAJ,GAAS;AACT;KAHF;AAMF;AAEE,aAAQ;AAfD;AAAe;AAkBH;AAAZ;AAEP,QAAG,CAAI,oBAAe,CAAC,EAAG,MAAJ,CAAtB,EACE,MAAM,kBAAa,QAAC,aAAS,CAAC,4CAAc,mBAAC,IAAD,CAAf,CAAT,CADtB;AAFO;AAAY;AAMA;AAAZ;AAEP,aAAe,cAAY,CAAC,IAAD;AAFpB;AAAY;AAKD;AAAX;AAEP;AAEA,QAAY,CAAR,KAAK,GAAG,KAAE,KAAK,GAAP,CAAoC,IAAZ,CAAR,KAAK,GAAG,KAAE,KAAK,GAAP,CAAZ,IAAoC,CAAR,KAAK,GAAG,KAAE,KAAK,GAAP,CAA5D,EACM,OAAC,KADP;AAEA,SAAI,IAAG,GAAH,CAAQ,OAAR,CAAQ,EAAZ,EAAiB,IAAG,KAAK,GAAG,CAAC,CAAD,CAAG,KAAE,KAAK,GAAG,CAAC,CAAD,CAAxB,EAAqC,OAAC,KAAtC;AACjB,aAAQ;AAPD;AAAW;AAUH;AAAR;AAEP,aAAkB,gBAAC,IAAD,OAAc,aAAhC;AAAI;AACF,UAAG,gBAAW,CAAC,KAAM,IAAI,CAAC,MAAD,CAAX,CAAd,EACE,aADF;;AAEF,aAAU,CAAC;AALJ;AAAQ;AAQE;AAAV;AAEG;AAAD;AAGP;AAEA,UAAG,iBAAM,CAAC,GAAD;AACT,aAAM,CAAC,GAAC,CAAR;AAEE,YAAI,CAAD,CAAC,GAAC,GAAD,CAAI,GAAC,iBAAM,CAAC,GAAD,CAAP;AACJ,SAAJ,IAAG;;AAEL,eAAQ;AAXD;AAAC;AAeV;AAGA,aAAQ;AACR,QAAI,GAAJ,GAAU,CAAC,CAAC,CAAD;AACX,QAAI,GAAJ,GAAU,CAAC,CAAC,CAAD;AACX,QAAI,GAAJ,GAAU,CAAC,CAAC,CAAD;AACX,SAAI,IAAG,GAAH,CAAQ,OAAR,CAAQ,EAAZ,EACC,IAAI,GAAG,CAAC,CAAD,CAAP,GAAY,CAAC,CAAC,CAAD;AAzBP;AAAU;AAmqCQ;AAAlB;AAGP,aAAQ;AACR,QAAG,CAAC,KAAC,EAAL,EAAa,aAAb;AAEF;AACA;AACA;AARS;AAAkB;AAt0Kf;AAEG;AACI;AACJ;AACI;AACA;AACD;AAEF;AACA;AACI;AACC;AAGV,mBAAsC;AAMpC;AA20KoB;AAAN;AAEzB,qBAAQ,GAAR;AACA,UAAG,CAAI,SAAP;AAEE,cAAM,GAAN,GAAW,iBAAU,CAAC,MAAM,GAAP;AACrB,cAAM,GAAN,GAAW,eAAU,CAAC,MAAM,GAAP;AACrB,cAAM,GAAN,GAAW,eAAU,CAAC,MAAM,GAAP;OAJvB;AAHyB;AAAM;AAWA;AAAN;AAGzB;AACA;AAAE;AACF;AAGA,UAAe,IAAZ,QAAY,CAAI,GAAJ;AAEf,UAAG,SAAH;AAEE,YAAG,CAAC,UAAU,CAAC,WAAD;AACd,YAAG,CAAC,UAAU,CAAC,WAAW,GAAC,CAAb;AACd,YAAG,CAAC,UAAU,CAAC,WAAW,GAAC,CAAb;;AAId,YAAG,iBAAU,CAAC,CAAC,UAAU,CAAC,WAAD,CAAZ;AACb,YAAG,eAAU,CAAC,CAAC,UAAU,CAAC,WAAW,GAAC,CAAb,CAAZ;AACb,YAAG,eAAU,CAAC,CAAC,UAAU,CAAC,WAAW,GAAC,CAAb,CAAZ;;AAEf,qBAAQ,0BAAO,EAAE,EAAE,EAAE,CAAC,SAAS,CAAC,WAAW,GAAC,CAAb,EAAgB,CAAC,SAAS,CAAC,WAAW,GAAC,CAAb,EAAgB,CAAC,SAAS,CAAC,WAAW,GAAC,EAAb,EAAiB,CAAC,SAAS,CAAC,WAAW,GAAC,EAAb,EAAiB,CAAC,SAAS,CAAC,WAAW,GAAC,EAAb,EAAiB,CAAC,SAAS,CAAC,WAAW,GAAC,EAAb,EAAiB,CAAC,SAAS,CAAC,WAAW,GAAC,EAAb,EAAiB,CAAC,SAAS,CAAC,WAAW,GAAC,EAAb,CAAlN,CAAR;AAtByB;AAAM;AA0BA;AAAN;AAGzB;AAGA,UAAwB,CAAN,WAAC,IAAD,CAAM,GAAC,WAAD,CAAa,GAAC,EAAtC,EACE,MAAM,uBAAkB,QAAC,aAAS,CAAC,iDAAiD,EAAlD,CAAT,CAD3B;AAEA,UAAG,UAAa,KAAK,CAAC,IAAD;AACrB,qBAAQ,0BAAO,CAAC,QAAQ,YAAY,SAA5B,CAAR;AATyB;AAAM;AAaA;AAAN;AAGzB,qBAAQ,0BAAO,EAAE,EAAE,UAAX,CAAR;AAHyB;AAAM;AAMA;AAAN;AAGzB,UAAqB,CAAH,WAAC,CAAD,CAAG,GAAC,WAAD,CAAa,GAAC,EAAnC,EACE,MAAM,uBAAkB,QAAC,aAAS,CAAC,iDAAiD,EAAlD,CAAT,CAD3B;AAEA,qBAAQ,0BAAO,EAAE,YAAY,UAAU,KAAS,gBAAxC,CAAR;AALyB;AAAM;AAQA;AAAN;AAGzB,qBAAQ,iBAAY,CAAC,CAAD,CAApB;AAHyB;AAAM;AAMA;AAAN;AAGzB,UAAiB,WAAC,CAAD,CAAG,KAAE,CAAtB,EACE,MAAM,uBAAkB,QAAC,aAAS,CAAC,wCAAwC,EAAzC,CAAT,CAD3B;AAEA,qBAAQ,0BAAgB,CAAD,OAAS,CAAD,SAAS,CAAD,SAAI,CAAC,CAAC,CAAD,EAAI,CAAC,CAAC,CAAD,EAAI,CAAC,CAAC,CAAD,EAAI,CAAC,CAAC,CAAD,EAAI,CAAC,CAAC,CAAD,EAAI,CAAC,CAAC,CAAD,EAAI,CAAC,CAAC,CAAD,EAAI,CAAC,CAAC,CAAD,CAAvE,CAAR;AALyB;AAAM;AAeA;AAAN;AAGzB,YAAM,GAAN,GAAsB;AACtB,YAAM,GAAN,GAAkB;AAClB,YAAM,GAAN,GAAkB;AAClB,YAAM,GAAG,CAAC,CAAD,CAAT,GAAgB;AAChB,YAAM,GAAG,CAAC,CAAD,CAAT,GAAgB;AAChB,YAAM,GAAG,CAAC,CAAD,CAAT,GAAgB;AAChB,YAAM,GAAG,CAAC,CAAD,CAAT,GAAgB;AAChB,YAAM,GAAG,CAAC,CAAD,CAAT,GAAgB;AAChB,YAAM,GAAG,CAAC,CAAD,CAAT,GAAgB;AAChB,YAAM,GAAG,CAAC,CAAD,CAAT,GAAgB;AAChB,YAAM,GAAG,CAAC,CAAD,CAAT,GAAgB;AAbS;AAAM;AAgBC;AAAP;AAGzB,qBAAU,CAAC,MAAD;AAHe;AAAO;AAMF;AAAL;AAEzB,qBAAe,uBAAf;AAFyB;AAAK;AAKA;AAAX;AAGnB;AACA;AACA;AAGA,UAAiB,IAAd,UAAc,CAAI,EAAJ;AACjB,UAAe,IAAZ,QAAY,CAAI,CAAC,OAAL;AACf,OAAC,UAAU,CAAC,EAAE,QAAG,UAAU,KAAS,mBAAzB;AACX,OAAC,UAAU,CAAC,EAAE,QAAG,UAAU,KAAS,mBAAzB;AACX,OAAC,UAAU,CAAC,EAAE,QAAG,UAAU,KAAS,mBAAzB;AACX,WAAI,IAAG,GAAH,CAAQ,OAAR,CAAQ,EAAZ,EACE,CAAC,SAAS,CAAC,CAAC,GAAC,CAAD,CAAG,OAAE,CAAC,CAAD,CAAP;AACF,YAAD,sBAAC,SAAQ,EAAT;AACT,WAAI,IAAG,GAAH,CAAQ,QAAR,CAAQ,EAAZ,EACE,MAAM,CAAC,CAAD,CAAN,GAAW,CAAC,SAAS,CAAC,CAAD;AAjBJ;AAAW;AAoBH;AAAR;AAGnB,eAAQ,iBAAY,CAAC,IAAD;AACpB,UAAG,YAAH,EACE,SAAQ,eAAI,CAAC,OAAO,EAAS,MAAD,OAAQ,GAAC,CAAzB,CADd;AAJmB;AAAQ;AA/8KhB;AAkBQ;;AAKN;AAMA,iBAAG;AA68KY;AAAP;AAErB,eAAQ,UAAI,QAAO,CAAN,MAAM,GAAC,CAAD,KAAP;AAFS;AAAO;AAME;AAAT;AAErB,eAAwB,UAAD;AAFF;AAAS;AAKE;AAEf,eAAD,iBAAC,WAAM,MAAP,CAAC;AAFe;AAME;AAAP;AAE3B,eAAQ,6BAAQ,EAAE,EAAE,EAAE,EAAgB,CAAD,QAAI,EAAjC;AAFmB;AAAO;AAMA;AAAP;AAG3B,UAAG,UAAH;AACE,iBAAQ,6BAAQ,EAAE,EAAE,cAAC,sCAAD,CAAZ;AAER,qBAAQ,6BAAQ,EAAE,EAAE,EAAZ;AANiB;AAAO;AAUA;AAAP;AAG3B,eAAQ,6BAAQ,EAAE,EAAE,EAAE,EAAgB,CAAD,QAAI,mBAAjC;AAHmB;AAAO;AAOA;AAAP;AAG3B,eAAQ,6BAAQ,EAAE,OAAO,EAAE,OAAO,KAAK,EAA/B;AAHmB;AAAO;AAOA;AAAP;AAI3B,UAAG,UAAH;AACE,iBAAQ,6BAAQ,EAAE,OAAO,EAAE,OAAO,KAAK,cAAC,sCAAD,CAA/B;AAER,qBAAQ,6BAAQ,EAAE,OAAO,EAAE,OAAO,KAAK,EAA/B;AAPiB;AAAO;AAWA;AAAP;AAK3B;AAAG;AACH;AAEA,WAAW,eAAI,CAAC,EAAE,MAAM,GAAC,CAAD,CAAG,IAAZ;AACf,WAAW,eAAI,CAAC,EAAE,MAAM,GAAC,CAAD,CAAG,IAAZ;AAEf,UAAG,0CAAiB,IAAG,OAAvB,EACE,QAAQ,QAAR,GAAoB,IADtB;AAGA,UAAI,sCAAa,IAAG,OAApB;AACE,iBAAkB,6BAAU,EAAV,CAAc,cAAc,CAAC,6BAAU,EAAV,EAAe,UAAW,6CAA3B;AAE9C,qBAAkB,EAAG,cAAc,CAAC,GAAI,UAAW,6CAAhB;AAjBV;AAAO;AAqBO;AAAd;AAI3B;AAGA,UAAiB,CAAD;AAChB,UAAG,CAAC,GAAe,CAAD,OAAlB,EACE,IAAiB,CAAD,OADlB;AAEA,eAAQ,oCAAe,EAAE,EAAE,EAAE,EAAE,CAAvB;AAVmB;AAAc;AAcA;AAAd;AAI3B;AAAE;AAGF,UAAiB,CAAD,OAAG,GAAC,MAAD;AACnB,UAAG,CAAC,GAAkB,CAAF,CAAD,OAAG,GAAC,MAAD,CAAtB,EACE,IAAkB,CAAD,OAAG,GAAC,MADvB;AAEA,UAAG,CAAC,GAAC,IAAL,EACE,IAAG,IADL;AAEA,UAAG;AACH,eAAQ;AACR,aAAa,CAAN,MAAM,KAAC,CAAD,CAAI,IAAM,CAAD,CAAC,GAAC,CAAD,CAAvB;AAEE,iBAAkB,CAAE,WAAW,CAAC,MAAM,GAAC,CAAR,CAAU,GAAW,CAAE,WAAW,CAAC,MAAM,GAAC,CAAR,CAAxB;AACrC,SAAJ,IAAG;;AAjBsB;AAAc;AAsBH;AAAX;AAG3B,eAAiB,gBAAW,CAAC,EAAE,CAAH;AAHD;AAAW;AAOP;AAAJ;AAE3B,eAAQ;AAFmB;AAAI;AAME;AAAN;AAE1B,eAAQ,uBAAY,CAAC,MAAM,MAAP;AAFM;AAAM;AAMA;AAAN;AAG3B,eAAQ,4BAAO,OAAO,EAAe,WAAC,MAAD,CAA7B;AAHmB;AAAM;AAOA;AAAN;AAG3B;AAEU,YAAD,oBAAC,OAAO,IAAR;AACT,eAAO,QAAK,6BAAZ;AAAI;AACF,cAAM,iBAAN,OAAO,MAAI,MAAM,CAAW,CAAV,UAAU,GAAC,CAAD,CAAE,GAAC,CAAd,CAAX;;AAPmB;AAAM;AAWE;AAAR;AAE3B,eAAiB,CAAR,QAAQ,KAAE,EAAF,CAAM,IAA6H,CAA/G,gBAAW,CAAQ,eAAI,CAAC,MAA0B,CAAN,KAAD,OAAO,GAAe,QAAD,OAAd,CAAwB,GAAC,CAAD,CAAiB,QAAD,OAAnE,EAA+E,QAA3F,CAAoG,KAAC,CAAD,CAA7H;AAFI;AAAQ;AAMF;AAAN;AAE3B,eAAQ,CAAC,KAAC,CAAD;AAFkB;AAAM;AAMA;AAAN;AAE3B,eAAiB,WAAM,CAAC,QAAQ,IAAT;AAFI;AAAM;AAMO;AAAb;AAE3B,eAAsB,MAAD,OAAQ,KAAC,CAAD;AAFF;AAAa;AAMK;AAAlB;AAE3B,eAA+B,SAAI,CAAC,MAAD,CAAd,OAAuB,KAAC,CAAD;AAFjB;AAAkB;AAMd;AAAJ;AAG3B,eAAiB,MAAO,KAAK,CAAC,SAAD;AAHF;AAAI;AAMA;AAAJ;AAG3B,eAAiB,MAAO,KAAK,CAAC,SAAD;AAHF;AAAI;AAOA;AAAJ;AAI3B;AAGA,aAAU,WAAC,MAAD;AACV,UAAU,CAAN,MAAM,GAAC,CAAD,CAAI,IAAmB,CAAJ,CAAV,UAAU,GAAC,CAAD,CAAI,IAAe,CAAV,UAAU,GAAC,IAAD,CAAf,CAAjC,EACE,MAAM,gBAAW,QAAC,YAAM,CAAC,0CAAD,CAAN,CADpB;AAEA,UAAU,CAAN,MAAM,KAAC,CAAD,CAAI,IAAQ,CAAJ,IAAI,GAAC,CAAD,CAAtB;AACE,iBAAQ;AAER,qBAAiB,MAAO,MAAM,CAAC,WAAW,UAAU,GAAC,MAAvB,CAA8B,KAAK,CAAC,SAAD;AAbxC;AAAI;AAiBK;AAAT;AAE3B,eAAiB,cAAS,CAAC,CAAD;AAFC;AAAS;AAMJ;AAAL;AAE3B,eAAQ,cAAS,CAAC,OA/+L+B,KA++LhC;AAFU;AAAK;AAMA;AAAL;AAE3B,eAAQ,eAAU,CAAC,MAAD;AAFS;AAAK;AAMA;AAAL;AAE3B,eAAQ,aAAQ,CAAC,MAAD;AAFW;AAAK;AAMA;AAAL;AAE3B,eAAQ,aAAQ,CAAC,MAAD;AAFW;AAAK;AAMI;AAAT;AAE3B,eAAQ,cAAS,CAAC,CAAD;AAFU;AAAS;AAMD;AAAR;AAE3B,eAAQ,eAAU,CAAC,CAAD;AAFS;AAAQ;AAME;AAAV;AAE3B,eAAQ,eAAU,CAAC,CAAD;AAFS;AAAU;AAMC;AAAX;AAE3B,eAAQ,eAAU,CAAC,CAAD;AAFS;AAAW;AAMF;AAAT;AAE3B,eAAQ,aAAQ,CAAC,CAAD;AAFW;AAAS;AAMA;AAAT;AAE3B,eAAiB,cAAS,CAAC,CAAD;AAFC;AAAS;AAKE;AAAX;AAG3B;AAAE;AAGF,YAAmB,CAAD;AACR,YAAD,sBAAC,cAAO,GAAR;AACT,eAAO,QAAK,4BAAZ;AAAI;AACF,cAAM,CAAC,CAAC,GAAC,CAAH,CAAN,GAAa,CAAC,QAAC,KAAD;;AATW;AAAW;AAYR;AAAT;AAGrB,eAAQ,2BAAQ,WAAK,CAAb;AAHa;AAAS;AAOD;AAAR;AAErB,eAAe,CAAN,MAAM,KAAE,EAAF,CAAM,IAAqB,CAAhB,cAAG,CAAC,OAAO,UAAR,CAAa,GAAC,CAAD,CAArB;AAFA;AAAQ;AAMC;AAAT;AAGrB;AAEA,eAAQ;AACR,eAAS,iEAAT;AAAI,YAAK,GAAL;AACF,YAAI,CAAC,KAAC,CAAN,EACM,MAAJ,IAAG,CADL;;AAPmB;AAAS;AAYK;AAAd;AAErB,eAAQ,8CAAe,GAAf;AAFa;AAAc;AAMA;AAAd;AAGrB;AAAE;AACF;AACA;AAAG;AACH;AAGA,UAAiB,UAAD;AAChB,UAAK,CAAD,CAAC,GAAC,CAAD,CAAI,IAAG,CAA0B,CAAb,CAAP,UAAI,QAAC,CAAD,CAAG,KAAC,UAAD,CAAa,IAAY,CAAP,UAAI,QAAC,KAAD,CAAG,KAAC,UAAD,CAAZ,CAAtC,EACM,OAAC,UADP;AAEU,SAAD,sBAAC,WAAI,CAAL;AACT,gBAAS;AACT,WAAI;AACJ,WAAI;AACJ,eAAO,QAAM,OAAD,CAAC,GAAC,CAAD,kBAAb;AAAI;AAEF,YAAI,UAAI,QAAC,MAAD,CAAI,KAAC,UAAb;AAEE,oBAAS,CAAI;AACb,cAAG,CAAI,OAAP;AAEE,kBAAM,iBAAN,OAAO,OAAK,UAAI,QAAC,MAAD,CAAV;AACF,cAAJ,IAAG;WAHL;;AAQA,cAAG,OAAH,EACE,UAAS,KADX;AAEA,gBAAM,iBAAN,OAAO,OAAK,UAAI,QAAC,MAAD,CAAV;AACF,YAAJ,IAAG;;AAED,UAAJ,IAAG;;AAEK,YAAD,oBAAC,OAAO,EAAE,GAAC,CAAX;AApCY;AAAc;AAwCN;AAAR;AAErB,eAAQ,wCAAS,OAAO,KAAhB;AAFa;AAAQ;AAMA;AAAR;AAGrB;AACA;AAGA,UAAiB,MAAD;AAChB,eAAQ,CAAC,KAAC,CAAD;AACT,UAAG,CAAI,MAAP;AAEE,YAAU,eAAI,CAAC,WAAW,CAAN,uCAAM,GAAC,CAAD,CAAE,GAAC,CAAD,CAAG,CAAjB;AACd,iBAAsB,CAAD,OAAG,KAAC,CAAD;AACxB,YAAG,MAAH,EACE,IAAG,UAAH;AACE,mBAAQ,+BAAY,EAAE,MAAd,CAAqB,KAAC,CAAD;AAE7B,uBAAQ,CAAC,KAAC,MAJd;OAJF;AATqB;AAAQ;AAsBF;AAAN;AAGrB,eAAS,UAAI,KAAC,MAAD;AAHQ;AAAM;AAOA;AAAN;AAGrB,eAAiB,WAAM,CAAC,WAAK,IAAN;AAHF;AAAM;AAOK;AAAX;AAIrB;AAAE;AACF;AAKA,UAAa;AACb,eAAQ;AAER,UAAG;AACH,aAAM,uCAAM,GAAC,CAAD;AACZ,aAAO,CAAC,GAAC,IAAT;AAEE,iBAA0D,QAAnB,CAAP,CAAP,MAAO,IAAI,CAAJ,CAAO,GAAU,MAAV,CAAvB,OAA8C,CAAC,WAAW,CAAC,CAAD,CAAhB;AACtD,SAAJ,IAAG;;AAlBgB;AAAW;AAwBJ;AAAP;AAErB,eAAQ,uCAAQ,OAAO,EAAE,uCAAjB;AAFa;AAAO;AAMA;AAAP;AAErB,eAAQ,uCAAQ,OAAO,EAAE,uCAAjB;AAFa;AAAO;AAMA;AAAP;AAErB,eAAQ,uCAAQ,OAAO,WAAW,uCAA1B;AAFa;AAAO;AAMA;AAAP;AAGrB,eAAQ,uCAAQ,OAAO,WAAW,uCAA1B;AAHa;AAAO;AAOA;AAAP;AAIrB;AAGA,UAAU,eAAI,CAAC,WAAK,UAAU,GAAC,CAAD,CAAG,MAAnB;AACd,eAAQ,cAAG,CAAC,OAAO,CAAR,CAAU,GAAC,CAAD;AACrB,UAAG,MAAM,KAAE,CAAC,CAAZ,EACE,SAAQ,MAAM,GAAC,UADjB;AATqB;AAAO;AAcA;AAAP;AAIrB;AAGA,UAAU,eAAI,CAAC,WAAK,UAAU,GAAC,CAAD,CAAG,MAAnB;AACd,eAAQ,cAAG,CAAC,OAAO,CAAR,CAAU,GAAC,CAAD;AACrB,UAAG,MAAM,KAAE,CAAC,CAAZ,EACE,SAAQ,MAAM,GAAC,UADjB;AATqB;AAAO;AAaQ;;AAAf;AAIrB;AACA;AAEgB;AAAP;AAGP;AAGA,YAAG;AACH;AACE,mBAAS,CAAC,QAAE,CAAD,CAAC,GAAC,CAAD,CAAE,GAAC,CAAD,IAAJ,CAAO,KAAC,MAAM,QAAC,KAAD,CAAP;AACb,WAAJ,IAAG;SAFL,QAGmB,EAAZ,CAAI,MAAQ,IAAK,CAAD,CAAC,GAAC,EAAD,CAAL,CAHnB;AAPO;AAAO;AAchB;AAAE;AAAE;AAGJ,UAAG;AACH,eAAQ,CAAC;AACT,WAAkB,MAAD;AACjB,UAAS,CAAN,wCAAM,GAAC,EAAD,CAAG,GAAC,CAAD;AACZ,UAAG,CAAC,GAAC,CAAL,EACE,IAAG,CADL;AAEA,UAAG,UAAU,GAAC,CAAD;AACb,UAAG;AACH,UAAG,UAAU,KAAC,QAAd;AAEE,eAAa,CAAN,MAAM,KAAC,CAAC,CAAF,CAAK,IAAM,CAAD,CAAC,IAAE,CAAF,CAAxB;AAEE,cAAI,CAAC,QAAC,KAAD,CAAG,KAAC,UAAT,EACE,IAAG,CAAC,GAAC,CADP;AAEA,cAAK,CAAD,CAAC,KAAC,CAAD,CAAI,IAAI,OAAO,CAAC,CAAD,CAApB,EACE,SAAQ,CAAC,GAAC,CADZ;AAEI,WAAJ,IAAG;;;AAKL,eAAa,CAAN,MAAM,KAAC,CAAC,CAAF,CAAK,IAAM,CAAD,CAAC,IAAE,CAAF,CAAxB;AAEE,cAAG,CAAC,QAAC,KAAD,CAAG,KAAC,UAAR;AACM,aAAJ,IAAG;AACA,oBAAQ,CAAJ,CAAC,QAAC,KAAD,CAAG,KAAC,QAAD,CAAW,IAAM,CAAD,CAAC,GAAC,CAAD,CAAzB,EACC,CAAJ,IAAG,CADA;AAEL,cAAK,CAAD,CAAC,KAAC,CAAD,CAAI,IAAI,OAAO,CAAC,CAAD,CAApB,EACE,SAAQ,CAAC,GAAC,CADZ;AAEI,WAAJ,IAAG;;;AArDc;AAAe;AA0DL;AAAV;AAErB,eAAQ,0CAAgB,sCAAL;;;;UAAK,CAAhB;AAFa;AAAU;AAMA;AAAV;AAErB,eAAQ,0CAAW,MAAM,EAAE,uCAAnB;AAFa;AAAU;AAKA;AAAV;AAErB,eAAQ,0CAAgB,sCAAL;;;;UAAK,EAAa,UAA7B;AAFa;AAAU;AAMA;AAAV;AAGrB,eAAQ,0CAAW,MAAM,WAAW,uCAA5B;AAHa;AAAU;AAMA;AAAV;AAErB,eAAQ,0CAAgB,sCAAL;;;;UAAK,EAAa,WAAW,MAAxC;AAFa;AAAU;AAKA;AAAV;AAIrB;AAAE;AAGF,UAAG,UAAU,GAAC,CAAD;AACb,UAAI,CAAD,CAAC,GAAC,MAAD,CAAO,GAAC,CAAD;AACX,UAAG,CAAC,GAAC,uCAAL,EACE,IAAG,uCADL;AAEA,eAAQ,CAAC;AACT,aAAa,CAAN,MAAM,KAAC,CAAC,CAAF,CAAK,IAAM,CAAD,CAAC,IAAE,CAAF,CAAxB;AAEE,YAAG,cAAQ,CAAC,UAAI,QAAC,KAAD,EAAI,KAAT,CAAX,EACE,SAAQ,CAAC,GAAC,CADZ;AAEI,SAAJ,IAAG;;AAhBgB;AAAU;AAoBA;AAAV;AAErB,eAAQ,0CAAW,MAAM,EAAE,uCAAnB;AAFa;AAAU;AAKA;AAAV;AAGrB,eAAQ,0CAAW,MAAM,WAAW,uCAAM,GAAC,UAAnC;AAHa;AAAU;AAMA;AAAV;AAIrB;AAGA,eAAQ,0CAAW,MAAM,WAAW,OAAO;;;;UAAnC;AAPa;AAAU;AAUA;AAAV;AAIrB;AAAE;AAGF,eAAQ,CAAC;AACT,eAAO,QAAyB,OAAP,WAAC,KAAD,CAAO,GAAC,CAAD,kBAAhC;AAAI;AAEF,YAAG,uCAAQ,KAAK,CAAC,CAAD,EAAI,WAAW,MAA5B;AACH,YAAK,CAAD,CAAC,IAAE,CAAF,CAAK,IAAiB,CAAL,CAAN,MAAM,KAAC,CAAC,CAAF,CAAK,IAAK,CAAD,CAAC,GAAC,MAAD,CAAL,CAA3B;AAEE,mBAAQ;AACR,qBAAQ,CAAR;SAHF;;AAXmB;AAAU;AAoBQ;AAAlB;AAGrB,eAAQ,kDAAmB,MAAM,WAAW,SAAS,EAAE,uCAA/C;AAHa;AAAkB;AAOA;AAAlB;AAGrB,eAAQ,kDAAmB,MAAM,WAAW,SAAS,WAAW,uCAAxD;AAHa;AAAkB;AAOA;AAAlB;AAIrB;AAAE;AACF;AAGA,eAAQ,CAAC;AACT,UAAa,CAAV,UAAU,GAAC,MAAD,CAAO,GAAC,CAAD;AACpB,UAAG,CAAC,GAAC,uCAAL,EACE,IAAG,uCADL;AAEA,UAAG,UAAU,GAAC,CAAD;AACb,UAAG;AACH,UAAG,UAAU,KAAC,QAAd;AAEE,eAAa,CAAN,MAAM,KAAC,CAAC,CAAF,CAAK,IAAM,CAAD,CAAC,IAAE,CAAF,CAAxB;AAEE,cAAI,UAAI,QAAC,KAAD,CAAG,KAAC,UAAZ,EACE,IAAG,CAAC,GAAC,CADP;AAEA,cAAK,CAAD,CAAC,KAAC,CAAD,CAAI,IAAI,cAAQ,CAAC,UAAI,QAAC,KAAD,EAAI,KAAT,CAArB,EACE,SAAQ,CAAC,GAAC,CADZ;AAEI,WAAJ,IAAG;;;AAKL,eAAa,CAAN,MAAM,KAAC,CAAC,CAAF,CAAK,IAAM,CAAD,CAAC,IAAE,CAAF,CAAxB;AAEE,cAAG,UAAI,QAAC,KAAD,CAAG,KAAC,UAAX;AACM,aAAJ,IAAG;AACA,oBAAW,CAAP,UAAI,QAAC,KAAD,CAAG,KAAC,QAAD,CAAW,IAAM,CAAD,CAAC,GAAC,CAAD,CAA5B,EACC,CAAJ,IAAG,CADA;AAEL,cAAK,CAAD,CAAC,KAAC,CAAD,CAAI,IAAI,cAAQ,CAAC,UAAI,QAAC,KAAD,EAAI,KAAT,CAArB,EACE,SAAQ,CAAC,GAAC,CADZ;AAEI,WAAJ,IAAG;;;AAnCc;AAAkB;AAyCA;AAAlB;AAKrB;AAAE;AAGF,eAAQ,CAAC;AACT,eAAO,QAAyB,OAAP,WAAC,KAAD,CAAO,GAAC,CAAD,kBAAhC;AAAI;AAEF,YAAG,6CAAgB,KAAK,CAAC,CAAD,EAAI,WAAW,SAAS,UAA7C;AACH,YAAK,CAAD,CAAC,IAAE,CAAF,CAAK,IAAiB,CAAL,CAAN,MAAM,KAAC,CAAC,CAAF,CAAK,IAAK,CAAD,CAAC,GAAC,MAAD,CAAL,CAA3B;AAEE,mBAAQ;AACR,sBAAS,CAAT;SAHF;;AAZmB;AAAkB;AAqBZ;AAAN;AAGd,uBAAM,CAAC,OAAO,KAAK,UAAU,GAAC,CAAxB;AACb,eAAQ;AAJa;AAAM;AAQK;AAAX;AAGrB,eAAiB,gBAAW,CAAC,WAAW,WAAK,KAAK,GAAC,CAAvB;AAHP;AAAW;AAOJ;AAAP;AAErB,eAAS,uCAAM,KAAC,CAAD;AAFM;AAAO;AAOpB,mBAAG,cAAI,KAAH,GAAK,EAAN;AAFkB;AAAR;AAIrB;AAEA,UAAG,qCAAH,EACM,OAAC,KADP;AAGA,eAAc,QAAY,OAAP,uCAAO,GAAE,CAAF,kBAA1B;AAAI;AAEF,YAAG,CAAmB,CAAd,qCAAM,MAAN,CAAK,aAAS,IAAG,QAAH,CAAtB,EACM,OAAC,KADP;;AAGF,eAAU;AAdW;AAAQ;AAkBK;AAAb;AAErB,eAAiB,kBAAa,CAAC,OAAO,UAAR,CAAa,GAAC,CAAD;AAFtB;AAAa;AAMF;AAAX;AAErB,eAAQ,2CAAY,OAAO,uCAAM,GAAC,CAAD,CAAG,uCAA5B;AAFa;AAAW;AAMA;AAAX;AAErB,eAAQ,2CAAY,OAAO,uCAAM,GAAC,CAAD,CAAG,uCAA5B;AAFa;AAAW;AAMA;AAAX;AAErB,eAAQ,2CAAY,OAAO,YAAY,uCAA/B;AAFa;AAAW;AAMA;AAAX;AAGrB,eAAQ,2CAAY,OAAO,YAAY,uCAA/B;AAHa;AAAW;AAOA;AAAX;AAIrB;AAGA,eAAQ,WAAW,GAAC,CAAD;AACnB,YAAW,CAAN,MAAM,GAAC,MAAD,CAAO,GAAC,CAAD;AAClB,UAAG,GAAG,GAAC,CAAP,EACE,MAAK,CADP;AAEA,aAAa,CAAN,MAAM,IAAE,GAAF,CAAO,IAAiB,CAAZ,UAAI,QAAC,UAAD,CAAQ,KAAE,MAAF,CAArC,EACM,MAAJ,IAAG;AACL,UAAG,MAAM,GAAC,GAAV;AACE,iBAAQ,CAAC;AAET,qBAAQ,MAAM,GAAC,CAAD;AAhBK;AAAW;AAoBA;AAAX;AAGrB,eAAkB,UAAK,YAAY,CAAC,OAAO,WAAR;AACnC,UAAe,CAAX,WAAW,GAAC,MAAD,CAAQ,GAAC,MAAxB,EACE,SAAQ,CAAC,CADX;AAJqB;AAAW;AASG;AAAd;AAErB,eAAQ,8CAAe,MAAM,uCAAM,GAAC,CAAD,CAAG,uCAA9B;AAFa;AAAc;AAMA;AAAd;AAGrB,eAAQ,8CAAe,MAAM,YAAY,uCAAjC;AAHa;AAAc;AAOA;AAAd;AAIrB;AAGA,eAAQ,WAAW,GAAC,CAAD;AACnB,YAAW,CAAN,MAAM,GAAC,MAAD,CAAO,GAAC,CAAD;AAClB,UAAG,GAAG,GAAC,CAAP,EACE,MAAK,CADP;AAEA,aAAa,CAAN,MAAM,IAAE,GAAF,CAAO,IAAI,CAAI,cAAQ,CAAC,UAAI,QAAC,UAAD,EAAS,KAAd,CAApC,EACM,MAAJ,IAAG;AACL,UAAG,MAAM,GAAC,GAAV;AACE,iBAAQ,CAAC;AAET,qBAAQ,MAAM,GAAC,CAAD;AAhBK;AAAc;AAoBP;AAAP;AAErB,eAAQ,uCAAQ,YAAY,GAApB;AAFa;AAAO;AAMA;AAAP;AAErB;AAGA,eAAQ;AACR,UAAG,WAAW,GAAC,uCAAD;AACd,UAAG,CAAC,GAAC,CAAL,EACE,SAAQ,uBAAY,CAAC,YAAY,CAAb,CAAe,GAAC,MADtC;AAPqB;AAAO;AAYC;AAAR;AAErB,eAAQ,wCAAS,YAAY,GAArB;AAFa;AAAQ;AAMA;AAAR;AAIrB;AAGA,eAAQ;AACR,UAAG,WAAW,GAAC,uCAAD;AACd,UAAG,CAAC,GAAC,CAAL,EACE,SAAQ,MAAM,GAAC,uBAAY,CAAC,YAAY,CAAb,CAD7B;AATqB;AAAQ;AAcI;AAAZ;AAErB,eAAQ,cAAS,CAAC,WAltNkC,GAktNnC;AAFI;AAAY;AAMA;AAAZ;AAErB,eAAQ,cAAS,CAAC,WAAK,UAAN;AAFI;AAAY;AAMN;AAAN;AAErB,eAAQ,sCAAO,WAAe,kCAAJ,IAAI,CAAO,GAAC,UAA9B;AAFa;AAAM;AAMA;AAAN;AAErB,eAAQ;AACD,uBAAM,CAAC;;;;WAAO,UAAU,GAAC,CAAD,CAAG,MAArB;AAHQ;AAAM;AAOC;AAAP;AAErB,eAAQ,uCAAQ,QAAQ,QAAQ,cAAC,oCAAD,CAAxB;AAFa;AAAO;AAMA;AAAP;AAGrB,eAAQ,kBAAa,CAAC,WAAK,QAAQ,QAAQ,wBAAtB;AAHA;AAAO;AAOA;AAAP;AAGrB,eAAQ,uCAAQ,SAAS,SAAS,cAAC,oCAAD,CAA1B;AAHa;AAAO;AAOA;AAAP;AAGrB,eAAQ,kBAAa,CAAC,WAAK,SAAS,SAAS,wBAAxB;AAHA;AAAO;AAQF;AAAL;AAErB,eAAQ,qCAAgB,sCAAV;;;;UAAU,CAAhB;AAFa;AAAK;AAMA;AAAL;AAErB,eAAQ,sCAAM,WAAW,OAAG,OAAG,uCAAM,GAAC,CAAD,CAAuB,6BAApD;AAFa;AAAK;AAKA;AAAL;AAErB,eAAQ,qCAAgB,sCAAV;;;;UAAU,EAAa,MAA7B;AAFa;AAAK;AAMA;AAAL;AAGrB,eAAQ,sCAAM,WAAW,OAAG,OAAG,OAA2B,6BAAlD;AAHa;AAAK;AAMA;AAAL;AAErB,eAAQ,qCAAgB,sCAAV;;;;UAAU,EAAa,OAA7B;AAFa;AAAK;AAMA;AAAL;AAGrB,eAAQ,qCAAM,WAAW,uCAAM,GAAC,CAAD,CAAG,OAA1B;AAHa;AAAK;AAMA;AAAL;AAErB,eAAQ,qCAAgB,sCAAV;;;;UAAU,EAAa,OAAO,OAApC;AAFa;AAAK;AAMA;AAAL;AAGrB,eAAQ,sCAAM,WAAW,OAAG,OAAG,OAAO,OAA9B;AAHa;AAAK;AAOA;AAAL;AAErB,eAAQ,qCAAM,WAAW,uCAAM,GAAC,CAAxB;AAFa;AAAK;AAMA;AAAL;AAGrB,eAAQ,sCAAM,WAAW,OAA2B,6BAA5C;AAHa;AAAK;AAOA;AAAL;AAGrB,eAAQ,sCAAM,WAAW,uCAAM,GAAC,CAAD,CAAG,OAA1B;AAHa;AAAK;AAOA;AAAL;AAGrB,eAAQ,sCAAM,WAAW,OAAG,OAAG,OAAO,OAA9B;AAHa;AAAK;AAMA;AAAL;AAErB,eAAQ,sCAAgB,sCAAV;;;;UAAU,EAAa,MAA7B;AAFa;AAAK;AAMA;AAAL;AAGrB,eAAQ,sCAAM,WAAW,OAAO,MAAxB;AAHa;AAAK;AAMA;AAAL;AAErB,eAAQ,sCAAgB,sCAAV;;;;UAAU,EAAa,YAAY,SAAzC;AAFa;AAAK;AAMA;AAAL;AAGrB,eAAQ,sCAAM,WAAW,YAAY,UAA8B,6BAA3D;AAHa;AAAK;AAMA;AAAL;AAErB,eAAQ,sCAAgB,sCAAV;;;;UAAU,EAAa,YAAY,UAAU,OAAnD;AAFa;AAAK;AAMA;AAAL;AAGrB,eAAQ,sCAAM,WAAW,YAAY,UAAU,uCAAM,GAAC,CAAD,CAAG,OAAhD;AAHa;AAAK;AAMA;AAAL;AAErB,eAAQ,sCAAgB,sCAAV;;;;UAAU,EAAa,YAAY,UAAU,MAAnD;AAFa;AAAK;AAMA;AAAL;AAGrB,eAAQ,sCAAM,WAAW,YAAY,UAAU,OAA2B,6BAAlE;AAHa;AAAK;AAMA;AAAL;AAGrB,eAAQ,sCAAgB,sCAAV;;;;UAAU,EAAa,YAAY,UAAU,OAAO,OAA1D;AAHa;AAAK;AAYjB,oBAAG;AALc;;AAAL;AAQrB;AAEgB;AAAP;AAGP,YAAI,WAAW,KAAE,MAAjB;AACE,mBAAS,6CAAD;;;;eAAqB,WAAW,YAAY,UAAU,UAArD;AAET,uBAAS,qCAAD;;;;aAAa,WAAW,UAAvB;AANJ;AAAO;AASG;AAGjB,YAAgB,WAAC,MAAD,CAAQ,IAAE,MAA1B,EACY,MAAD,sBAAC,UAAoB,WAAC,MAAD,CAAQ,GAAC,EAA9B,CADX;AAHiB;AAQnB;AAAI;AAAQ;AACZ;AAIA,UAAG;AACO,YAAD,sBAAC,UAAO,EAAR;AACT,YAAK;AACL,gBAAS;AACT,YAAK,OAAO,CAAC,CAAD;AACZ,aAAU,CAAH,GAAG,KAAE,CAAC,CAAH,CAAM,IAAgB,CAAJ,CAAN,MAAM,KAAC,CAAD,CAAI,IAAO,CAAH,GAAG,GAAC,MAAD,CAAP,CAAhC;AAEE,YAAG,0CAAU,QAAQ,GAAG,GAAC,OAAtB;AAEH,YAAK,CAAD,CAAC,KAAE,EAAF,CAAM,IAAI,CAAqC,CAAZ,qCAAY,KAAC,OAAD,CAApD;AAEE,mBAAS,CAAC,GAAD;AACT,gBAAM,CAAC,GAAD,CAAN,GAAa;AACT,aAAJ,IAAG;SAJL;AAMA,kBAAS,GAAG,GAAC,CAAD;AACZ,cAAK,OAAO,CAAC,OAAD;;AAEd,UAAW,CAAP,OAAO,IAAE,wCAAF,CAAU,IAAgB,CAAJ,CAAN,MAAM,KAAC,CAAD,CAAI,IAAO,CAAH,GAAG,GAAC,MAAD,CAAP,CAArC;AAEE,YAAG,wCAAU,OAAV;AAEH,YAAK,CAAD,CAAC,KAAE,EAAF,CAAM,IAAI,CAAqC,CAAZ,qCAAY,KAAC,OAAD,CAApD;AAEE,mBAAS,CAAC,GAAD;AACT,gBAAM,CAAC,GAAD,CAAN,GAAa;AACT,aAAJ,IAAG;SAJL;OAJF;AAWU,YAAD,sBAAC,UAAO,GAAR;AA7DY;AAAK;AAkEA;AAAL;AAGrB,eAAQ,sCAAM,WAAW,OAAO,MAAxB;AAHa;AAAK;AAOA;AAAL;AAGrB,eAAQ,sCAAM,WAAW,YAAY,UAAU,uCAAM,GAAC,CAAD,CAAuB,6BAApE;AAHa;AAAK;AAOA;AAAL;AAGrB,eAAQ,sCAAM,WAAW,YAAY,UAAU,uCAAM,GAAC,CAAD,CAAG,OAAhD;AAHa;AAAK;AAOA;AAAL;AAGrB,eAAQ,sCAAM,WAAW,YAAY,UAAU,OAA2B,6BAAlE;AAHa;AAAK;AAWjB,sBAAG;AAJc;;AAAL;AAOrB;AAEgB;AAAP;AAGP,YAAI,WAAW,KAAE,MAAjB;AACE,mBAAS,6CAAD;;;;eAAqB,WAAW,YAAY,UAAU,WAAW,KAAhE;AAET,uBAAS,qCAAD;;;;aAAa,WAAW,WAAW,yCAAO,KAAzC;AANJ;AAAO;AASG;AAGjB,YAAgB,WAAC,MAAD,CAAQ,IAAE,MAA1B,EACY,MAAD,sBAAC,UAAoB,WAAC,MAAD,CAAQ,GAAC,EAA9B,CADX;AAHiB;AAQnB;AAAI;AAAQ;AAAI;AAChB;AAGA,UAAG;AACO,YAAD,sBAAC,UAAO,EAAR;AACT,YAAK;AACL,gBAAS;AACT,YAAK,OAAO,CAAC,EAAE;;;;UAAH;AACZ,aAAU,CAAH,GAAG,KAAE,CAAC,CAAH,CAAM,IAAgB,CAAJ,CAAN,MAAM,KAAC,CAAD,CAAI,IAAO,CAAH,GAAG,GAAC,MAAD,CAAP,CAAhC;AAEE,YAAG,0CAAU,QAAQ,GAAG,GAAC,OAAtB;AACH,YAAK,CAAD,CAAC,KAAE,EAAF,CAAM,IAAI,CAAqC,CAAZ,qCAAY,KAAC,OAAD,CAApD;AAEE,mBAAS,CAAC,GAAD;AACT,gBAAM,CAAC,GAAD,CAAN,GAAa;AACT,aAAJ,IAAG;SAJL;AAMA,kBAAS,GAAG,GAAe,UAAU,CAAC,KAAD,CAAX,OAAd;AACZ,cAAK,OAAO,CAAC,QAAQ;;;;YAAT;;AAEd,UAAW,CAAP,OAAO,IAAE,wCAAF,CAAU,IAAgB,CAAJ,CAAN,MAAM,KAAC,CAAD,CAAI,IAAO,CAAH,GAAG,GAAC,MAAD,CAAP,CAArC;AAEE,YAAG,wCAAU,OAAV;AAEH,YAAK,CAAD,CAAC,KAAE,EAAF,CAAM,IAAI,CAAqC,CAAZ,qCAAY,KAAC,OAAD,CAApD;AAEE,mBAAS,CAAC,GAAD;AACT,gBAAM,CAAC,GAAD,CAAN,GAAa;AACT,aAAJ,IAAG;SAJL;OAJF;AAWU,YAAD,sBAAC,UAAO,GAAR;AA1DY;AAAK;AA+DK;AAAV;AAErB,eAAQ,0CAAW,OAAO,KAAlB;AAFa;AAAU;AAMA;AAAV;AAGrB;AACA;AAGA,UAAiB,MAAD;AAChB,eAAQ,CAAC,IAAE,CAAF;AACT,UAAG,CAAI,MAAP;AAEE,YAAU,eAAI,CAAC,WAAK,EAAE,CAAR;AACd,iBAAuB,CAAD,OAAG,KAAC,CAAD;AACzB,YAAG,MAAH,EACE,IAAG,UAAH;AACE,mBAAQ,aAAQ,CAAC,EAAE,MAAH;AAEhB,uBAAQ,YAAO,CAAC,EAAE,MAAH,CAJnB;OAJF;AATqB;AAAU;AAsBD;AAAT;AAErB,eAAY,oCAAJ,KAAe,YAAgB,kCAAJ,IAAI,CAAO,GAAC,WAAnC;AAFS;AAAS;AAMA;AAAT;AAErB,eAAe,eAAI,CAAC,WAAK,WAAW,GAAC,CAAD,CAAG,IAApB;AAFE;AAAS;AAMA;AAAT;AAErB,eAAQ,cAAS,CAAC,UAAD;AAFI;AAAS;AAMA;AAAT;AAErB,eAAQ,aAAQ,CAAC,UAAD;AAFK;AAAS;AAME;AAAX;AAErB,eAAQ,mBAAc,CAAC,UAAD;AAFD;AAAW;AAKH;AAAR;AAErB,eAAQ,eAAU,CAAC,UAAD;AAFG;AAAQ;AAME;AAAV;AAErB,eAAQ,eAAU,CAAC,UAAD;AAFG;AAAU;AAMC;AAAX;AAGrB,eAAQ,2CAAY,EAAM,kCAAJ,IAAI,CAAlB;AAHa;AAAW;AAOA;AAAX;AAIrB;AAGU,YAAD,sBAAC,cAAO,IAAR;AACT,eAAO,QAAS,OAAJ,IAAI,GAAC,CAAD,kBAAhB;AAAI;AACF,cAAM,CAAC,CAAD,CAAN,GAAW,UAAI,QAAc,CAAb,WAAa,GAAD,CAAD,GAAG,CAAD,KAAd;;AATI;AAAW;AAaJ;AAAP;AAErB,eAAQ,6BAAU,UAAV;AAFa;AAAO;AAMS;AAAhB;AAErB,eAAQ,6BAAU,UAAV;AAFa;AAAgB;AAMT;AAAP;AAErB,eAAQ,6BAAU,UAAV;AAFa;AAAO;AAMS;AAAhB;AAErB,eAAQ,6BAAU,UAAV;AAFa;AAAgB;AAMZ;AAAJ;AAErB,eAAiB,SAAI,CAAC,UAAD;AAFA;AAAI;AAMI;AAAR;AAErB,eAAiB,aAAQ,CAAC,UAAD;AAFJ;AAAQ;AAMC;AAAT;AAErB,eAAiB,cAAS,CAAC,UAAD;AAFL;AAAS;AAML;AAAJ;AAErB,eAAiC,oCAAZ,CAAT,sCAAJ,KAAc,UAAV,GAAS;;;;WAAuB,UAAX;AAFZ;AAAI;AAMI;AAAR;AAGrB;AAAE;AAGF,UAAG;AACH,YAAS,kCAAJ,IAAI;AACT,aAAQ,CAAD,CAAC,IAAE,GAAF,CAAO,IAAI,cAAQ,CAAC,UAAI,QAAC,KAAD,EAAI,UAAT,CAA3B,EAAuD,CAAJ,IAAG;AACtD,UAAG,CAAC,KAAC,CAAL;AACE,iBAAQ;AACL,gBAAG,CAAC,GAAC,GAAL;AACH,iBAAQ;AAER,qBAAe,eAAI,CAAC,WAAK,EAAK,CAAH,GAAG,GAAC,CAAD,CAAE,GAAC,CAAd;AAdA;AAAQ;AAkBC;AAAT;AAGrB;AAAE;AAGF,YAAS,kCAAJ,IAAI;AACT,UAAG;AACH,aAAQ,CAAD,CAAC,IAAE,CAAF,CAAK,IAAI,cAAQ,CAAC,UAAI,QAAC,KAAD,EAAI,UAAT,CAAzB,EAAqD,CAAJ,IAAG;AACpD,UAAG,CAAC,GAAC,CAAL;AACE,iBAAQ;AACL,gBAAG,CAAC,KAAC,GAAL;AACH,iBAAQ;AAER,qBAAe,eAAI,CAAC,WAAK,EAAE,CAAR;AAdA;AAAS;AAkBF;AAAP;AAErB,eAAQ,yCAAU,UAAV;AAFa;AAAO;AAME;AAAT;AAErB,eAAQ,wCAAS,UAAT;AAFa;AAAS;AA/zNjB;AAwJA;AAeF,mBAAqB;AACpB,oBAAoB;AACpB,oBAAoB,CAAC;AA0tNR;AAAJ;AAGrB;AACA;AAGA,UAAmB,IAAhB,YAAgB,CAAI,CAAJ;AACnB,UAAiB,IAAd,UAAc,CAAI,CAAC,OAAL;AACjB,OAAE,GAAF,GAAM;AACN,eAAQ,CAAE;AAVW;AAAI;AAaA;AAAJ;AAGrB;AACA;AAGA,UAAmB,IAAhB,YAAgB,CAAI,CAAJ;AACnB,UAAkB,IAAf,WAAe,CAAI,CAAC,OAAL;AAClB,OAAE,GAAF,GAAM;AACN,eAAQ,CAAE;AAVW;AAAI;AAuCA;AAAJ;AAGrB,eAAQ,kBAAY,CAAC,UAAD,CAAM;AAHL;AAAI;AAMA;AAAJ;AAGrB,eAAQ;AACR,0BAAc,CAAC,MAAD;AAJO;AAAI;AAOA;AAAJ;AAGrB,eAAQ,kBAAY,CAAC,UAAD,CAAM;AAHL;AAAI;AAwCC;AAI1B;AACA;AAGA,UAAmB,IAAhB,YAAgB,CAAI,CAAJ;AACnB,UAAiB,IAAd,UAAc,CAAI,CAAC,OAAL;AACjB,OAAE,GAAF,GAAM;AACN,UAAG,MAAH;AACE,SAAE,GAAF,GAAM,CAAE,GAAG,GAAM,CAAF,CAAE,KAAI,CAAJ,CAAN;AAEX,YAAA,CAAE,GAAF,GAAM,CAAE,GAAG,GAAI,CAAO,CAAF,CAAE,KAAI,CAAJ,CAAX;AACb,eAAM,CAAE,GAAR;AAf0B;AAlCA;AAG1B;AACA;AAGA,UAAI,MAAM,IAAE,CAAZ,EACE,MAAM,gBAAW,QAAC,YAAM,CAAC,0CAAD,CAAN,CADpB;AAEA,UAAmB,IAAhB,YAAgB,CAAI,CAAJ;AACnB,UAAiB,IAAd,UAAc,CAAI,CAAC,OAAL;AACjB,OAAE,GAAF,GAAM;AACN,OAAE,QAAF,GAAW;AACX,eAAM,CAAE,GAAR;AAb0B;AAgBA;AAG1B;AACA;AAGA,UAAI,MAAM,IAAE,CAAZ,EACE,MAAM,gBAAW,QAAC,YAAM,CAAC,0CAAD,CAAN,CADpB;AAEA,UAAmB,IAAhB,YAAgB,CAAI,CAAJ;AACnB,UAAkB,IAAf,WAAe,CAAI,CAAC,OAAL;AAClB,OAAE,GAAF,GAAM;AACN,OAAE,QAAF,GAAW;AACX,eAAM,CAAE,GAAR;AAb0B;AA5IW;AAAV;AAG3B,eAAQ,CAAI,QAAU,CAAC,MAAD;AAHK;AAAU;AANL;AAAL;AAG3B,eAAW,KAAO,CAAC,MAAD;AAHS;AAAK;AAYa;AAAlB;AAI7B;AAEE,eAAQ,MAAM,KAAC,CAAD;AANa;AAAkB;AASA;AAAlB;AAI7B;AAEE,eAAQ,MAAM,KAAC,CAAD;AANa;AAAkB;AASb;AAAL;AAG3B,eAAQ,eAAU,CAAC,OAAD;AAHS;AAAK;AAOG;AAAR;AAG3B,eAAQ,eAAU,CAAC,MAAD;AAHS;AAAQ;AAOA;AAAR;AAG3B,eAAQ,gBAAW,CAAC,OAAO,QAAQ,WAAW,OAA3B;AAHQ;AAAQ;AAOA;AAAR;AAG3B,eAAQ,oBAAa,CAAC,QAAQ,MAAT;AAHM;AAAQ;AAoIN;AAG7B,0BAAc,CAAC,SAAD;AAEd,UAAG,SAA4B,IAAJ,CAAT,SAAS,GAAC,CAAD,CAAd,IAAgC,CAAT,SAAS,GAAC,CAAD,CAA7C,EAAsD,MAAtD;AAL6B;AASA;AAAR;AAGrB,eAAQ,kBAAY,CAAC,UAAD,CAAM;AAHL;AAAQ;AAMA;AAAR;AAGrB,eAAe,eAAI,CAAC,UAAD;AAHE;AAAQ;AAME;AAAV;AAGrB,eAAc,8BAAY,UAAZ;AAHO;AAAU;AAML;AAAL;AAGrB,eAAc,yBAAO,UAAP;AAHO;AAAK;AAMa;AAAlB;AAGrB,eAAc,sCAAoB,UAApB;AAHO;AAAkB;AAMA;AAAlB;AAGrB,eAAc,sCAAoB,UAApB;AAHO;AAAkB;AAMV;AAAR;AAGrB,eAAQ,gBAAK,CAAC,kBAAY,CAAC,UAAD,CAAM,SAAnB;AAHQ;AAAQ;AAMA;AAAR;AAGrB,eAAQ,gBAAW,CAAC,WAAK,QAAQ,WAAW,OAAzB;AAHE;AAAQ;AAMA;AAAR;AAGrB,eAAQ,eAAU,CAAC,UAAD;AAHG;AAAQ;AAh6NhB;AAkDF;AAGC,oBAAG;AACH,oBAAG;AAo3Ne;AAAL;AAGzB,eAAQ,aAAQ,CAAC,OAAD;AAHS;AAAK;AAMD;AAAJ;AAGzB,eAAQ;AAHiB;AAAI;AAMI;AAAR;AAGzB,eAAQ,aAAQ,CAAC,MAAD;AAHS;AAAQ;AAMA;AAAR;AAGzB;AAGA,sBAAG,CAAC,QAAQ,OAAO;;;;UAAhB;AACH,eAAS,CAAC,KAAC,CAAD;AAPe;AAAQ;AAUL;AAAT;AAGnB,eAAS,UAAI,KAAE,CAAF;AAHM;AAAS;AAMD;AAAR;AAGnB,eAAQ;AAHW;AAAQ;AAME;AAAV;AAGnB,eAAQ;AAHW;AAAU;AAMC;AAAX;AAGnB,eAAQ,iBAAM,CAAC,WAAK,uBAAI,GAAC,CAAX;AAHK;AAAW;AAMA;AAAX;AAInB,eAAQ,aAAQ,CAAC,WAAK,UAAN;AAJG;AAAW;AAOA;AAAX;AAGnB,eAAQ,aAAQ,CAAC,WAAK,uBAAI,GAAC,CAAX;AAHG;AAAW;AAMH;AAAR;AAGnB,eAAQ,aAAQ,CAAC,UAAD;AAHG;AAAQ;AAMF;AAAN;AAGnB,eAAQ,UAAK,GAAY,CAAH,CAAG,IAAI,KAAJ,CAAzB;AACA,eAAQ;AAJW;AAAM;AAOE;AAAR;AAGnB,eAAM,UAAK,GAAI,CAAkB,CAAH,CAAG,IAAI,KAAJ,CAAjC;AACA,eAAQ;AAJW;AAAQ;AAOC;AAAT;AAGnB,eAAQ,UAAK,GAAkB,CAAH,CAAG,IAAI,KAAJ,CAA/B;AACA,eAAQ;AAJW;AAAS;AAOF;AAAP;AAGnB,eAAgB,CAAL,UAAK,GAAkB,CAAH,CAAG,IAAI,KAAJ,CAAlB,CAA8B,KAAE,CAAF;AAH3B;AAAO;AAp9Nf;AAwBI;AAGH,oBAAG;AACH,oBAAG,CAAC;AAk8NkB;AAAL;AAG7B,eAAQ,aAAQ,CAAC,OAAD;AAHa;AAAK;AAMD;AAAJ;AAG7B,eAAQ;AAHqB;AAAI;AAMI;AAAR;AAG7B,eAAQ,aAAQ,CAAC,MAAD;AAHa;AAAQ;AAMA;AAAR;AAG7B;AAGA,sBAAG,CAAC,QAAQ,OAAO;;;;UAAhB;AACH,eAAS,CAAC,KAAC,CAAD;AAPmB;AAAQ;AAUL;AAAT;AAGvB,eAAS,UAAI,KAAE,CAAF;AAHU;AAAS;AAMD;AAAR;AAGvB,eAAQ;AAHe;AAAQ;AAME;AAAV;AAGvB,eAAQ;AAHe;AAAU;AAMC;AAAX;AAGvB,eAAQ,iBAAM,CAAC,WAAK,2BAAI,GAAC,CAAX;AAHS;AAAW;AAMA;AAAX;AAGvB;AACA;AACA;AAGA,UAAG,UAAI,IAAE,CAAT;AACE,YAAG;;AAGH,YAAgB,IAAb,SAAa,CAAI,CAAJ;AAChB,SAAE,GAAF,GAAM;AACN,YAAiB,IAAd,UAAc,CAAI,CAAJ;AACjB,YAAG,CAAE;AACL,YAAG,UAAU,GAAC,CAAd,EACE,IAAG,MAAK,GAAC,CADX;;AAGF,eAAQ,aAAQ,CAAC,EAAE,UAAH;AAnBO;AAAW;AAsBA;AAAX;AAGvB,eAAQ,2CAAY,2BAAI,GAAC,CAAjB;AAHe;AAAW;AAMH;AAAR;AAGvB,eAAQ,aAAQ,CAAC,UAAD;AAHO;AAAQ;AAMF;AAAN;AAGvB,eAAQ,UAAK,GAAgB,CAAH,CAAG,IAAI,KAAJ,CAA7B;AACA,eAAQ;AAJe;AAAM;AAOE;AAAR;AAGvB,eAAM,UAAK,GAAI,CAA0B,CAAH,CAAG,IAAI,KAAJ,CAAzC;AACA,eAAQ;AAJe;AAAQ;AAOC;AAAT;AAGvB,eAAQ,UAAK,GAA0B,CAAH,CAAG,IAAI,KAAJ,CAAvC;AACA,eAAQ;AAJe;AAAS;AAOF;AAAP;AAGvB,eAAgB,CAAL,UAAK,GAA0B,CAAH,CAAG,IAAI,KAAJ,CAA1B,CAAsC,KAAE,CAAF;AAH/B;AAAO;AAjjOf;AAwBA;AAGH,oBAAG;AACH,oBAAG,CAAC;AA+hOkB;AAAL;AAG7B,eAAQ,aAAQ,CAAC,OAAD;AAHa;AAAK;AAMD;AAAJ;AAG7B,eAAQ;AAHqB;AAAI;AAMI;AAAR;AAG7B,eAAQ,aAAQ,CAAC,MAAD;AAHa;AAAQ;AAMA;AAAR;AAG7B;AAGA,sBAAG,CAAC,QAAQ,OAAO;;;;UAAhB;AACH,eAAS,CAAC,KAAC,CAAD;AAPmB;AAAQ;AAkEN;AAAR;AAGvB,eAAQ,aAAQ,CAAC,UAAD;AAHO;AAAQ;AAxDC;AAAT;AAGvB,eAAS,UAAI,KAAE,CAAF;AAHU;AAAS;AAkBE;AAAX;AAGvB,eAAQ,iBAAM,CAAC,WAAK,2BAAI,GAAC,CAAX;AAHS;AAAW;AA+BA;AAAX;AAGvB,eAAQ,6CAAY,2BAAI,GAAC,CAAjB;AAHe;AAAW;AAzBA;AAAX;AAGvB;AACA;AACA;AAIA,UAAG,UAAI,IAAE,CAAT;AACE,YAAG;;AAGH,YAAiB,IAAd,UAAc,CAAI,CAAJ;AACjB,SAAE,GAAF,GAAM;AACN,YAAkB,IAAf,WAAe,CAAI,CAAJ;AAClB,YAAG,CAAE;AACL,YAAG,UAAU,GAAC,CAAd;AACE,cAAG,UAAS,GAAC,CAAD;AACT,kBAAG,UAAU,GAAC,CAAd,EACH,IAAG,QAAO,GAAC,CADR;;AAGP,eAAQ,aAAQ,CAAC,EAAE,UAAH;AAtBO;AAAW;AAlBH;AAAR;AAGvB,eAAQ;AAHe;AAAQ;AAME;AAAV;AAGvB,eAAQ;AAHe;AAAU;AAkDJ;AAAN;AAGvB,eAAQ,UAAK,GAAgB,CAAH,CAAG,IAAI,KAAJ,CAA7B;AACA,eAAQ;AAJe;AAAM;AAOE;AAAR;AAGvB,eAAM,UAAK,GAAI,CAA0B,CAAH,CAAG,IAAI,KAAJ,CAAzC;AACA,eAAQ;AAJe;AAAQ;AAOC;AAAT;AAGvB,eAAQ,UAAK,GAA0B,CAAH,CAAG,IAAI,KAAJ,CAAvC;AACA,eAAQ;AAJe;AAAS;AAOF;AAAP;AAGvB,eAAgB,CAAL,UAAK,GAA0B,CAAH,CAAG,IAAI,KAAJ,CAA1B,CAAsC,KAAE,CAAF;AAH/B;AAAO;AAlpOf;AAwBJ;AAGC,oBAAG;AACH,oBAAG;AAkoOJ,sBAAG;AAFoB;AAAT;AAIzB,eAAU,IAAK,GAAS,CAAN,KAAM,IAAI,CAAJ,CAAT;AAJU;AAAS;AAOJ;AAAL;AAGzB,eAAQ,aAAQ,CAAC,OAAD;AAHS;AAAK;AAMD;AAAJ;AAGzB,eAAQ;AAHiB;AAAI;AAQxB,gBAAS;AACH,wBAAG;AAHa;AAK3B,eAAQ,UAAK,GAAI,KAAjB;AACA,gBAAe,CAAL,UAAK,GAAW,CAAN,KAAM,IAAI,CAAJ,CAAX,CAA6B,KAAI,CAAhD;AAN2B;AASM;AAAR;AAGzB,eAAQ,aAAQ,CAAC,MAAD;AAHS;AAAQ;AAMA;AAAR;AAGzB;AAGA,sBAAG,CAAC,QAAQ,OAAO;;;;UAAhB;AACH,eAAS,CAAC,KAAC,CAAD;AAPe;AAAQ;AAUL;AAAT;AAGnB,eAAS,UAAI,KAAE,CAAF;AAHM;AAAS;AAMD;AAAR;AAGnB,eAAQ;AAHW;AAAQ;AAME;AAAV;AAGnB,eAAQ;AAHW;AAAU;AAMC;AAAX;AAGnB,eAAQ,iBAAM,CAAC,WAAK,uBAAI,GAAC,CAAX;AAHK;AAAW;AAMA;AAAX;AAInB,eAAQ,aAAQ,CAAC,WAAK,UAAN;AAJG;AAAW;AAOA;AAAX;AAGnB,eAAQ,aAAQ,CAAC,WAAK,uBAAI,GAAC,CAAX;AAHG;AAAW;AAOH;AAAR;AAGnB,eAAQ,aAAQ,CAAC,UAAD;AAHG;AAAQ;AAMF;AAAN;AAGnB,eAAQ,UAAK,GAAY,CAAH,CAAG,IAAI,KAAJ,CAAzB;AACA,eAAQ;AAJW;AAAM;AAOE;AAAR;AAGnB,eAAM,UAAK,GAAI,CAAkB,CAAH,CAAG,IAAI,KAAJ,CAAjC;AACA,eAAQ;AAJW;AAAQ;AAOC;AAAT;AAGnB,eAAQ,UAAK,GAAkB,CAAH,CAAG,IAAI,KAAJ,CAA/B;AACA,eAAQ;AAJW;AAAS;AAOF;AAAP;AAGnB,eAAgB,CAAL,UAAK,GAAkB,CAAH,CAAG,IAAI,KAAJ,CAAlB,CAA8B,KAAE,CAAF;AAH3B;AAAO;AAjvOf;AA0BI;AAGH,oBAAG;AACH,oBAAG;AA6tOmB;AAAL;AAG7B,eAAQ,aAAQ,CAAC,OAAD;AAHa;AAAK;AAMD;AAAJ;AAG7B,eAAQ;AAHqB;AAAI;AAMI;AAAR;AAG7B,eAAQ,aAAQ,CAAC,MAAD;AAHa;AAAQ;AAMA;AAAR;AAG7B;AAGA,sBAAG,CAAC,QAAQ,OAAO;;;;UAAhB;AACH,eAAS,CAAC,KAAC,CAAD;AAPmB;AAAQ;AAUL;AAAT;AAGvB,eAAS,UAAI,KAAE,CAAF;AAHU;AAAS;AAMD;AAAR;AAGvB,eAAQ;AAHe;AAAQ;AAME;AAAV;AAGvB,eAAQ;AAHe;AAAU;AAMC;AAAX;AAGvB,eAAQ,iBAAM,CAAC,WAAK,2BAAI,GAAC,CAAX;AAHS;AAAW;AAMA;AAAX;AAIvB,eAAQ,aAAQ,CAAC,WAAK,UAAN;AAJO;AAAW;AAOA;AAAX;AAGvB,eAAQ,2CAAY,2BAAI,GAAC,CAAjB;AAHe;AAAW;AAMH;AAAR;AAGvB,eAAQ,aAAQ,CAAC,UAAD;AAHO;AAAQ;AAMF;AAAN;AAGvB,eAAa,OAAL,UAAK,GAAgB,OAAH,CAAG,IAAI,KAAJ,CAAhB,CAAb;AACA,eAAQ;AAJe;AAAM;AAOE;AAAR;AAGvB,eAAW,OAAL,UAAK,GAAI,QAA0B,OAAH,CAAG,IAAI,KAAJ,CAA1B,CAAJ,CAAX;AACA,eAAQ;AAJe;AAAQ;AAOC;AAAT;AAGvB,eAAa,OAAL,UAAK,GAA0B,OAAH,CAAG,IAAI,KAAJ,CAA1B,CAAb;AACA,eAAQ;AAJe;AAAS;AAOF;AAAP;AAGvB,eAAgB,OAAL,UAAK,GAA0B,OAAH,CAAG,IAAI,KAAJ,CAA1B,CAAsC,KAAE,CAAF;AAH/B;AAAO;AA7zOf;AAwBD;AAGF,oBAAG;AACH,oBAAG,CAAC;AAkzOgB;AAAJ;AAG5B,eAAQ;AAHoB;AAAI;AAMI;AAAR;AAG5B,eAAQ,aAAQ,CAAC,MAAD;AAHY;AAAQ;AAZH;AAAL;AAG5B,eAAQ,aAAQ,CAAC,OAAD;AAHY;AAAK;AAkBG;AAAR;AAG5B;AAGA,sBAAG,CAAC,QAAQ,OAAO;;;;UAAhB;AACH,eAAS,CAAC,KAAC,CAAD;AAPkB;AAAQ;AAUL;AAAT;AAGtB,eAAS,UAAI,KAAE,CAAF;AAHS;AAAS;AAMD;AAAR;AAGtB,eAAQ;AAHc;AAAQ;AAME;AAAV;AAGtB,eAAQ;AAHc;AAAU;AAMC;AAAX;AAGtB,eAAQ,iBAAM,CAAC,WAAK,0BAAI,GAAC,CAAX;AAHQ;AAAW;AAMA;AAAX;AAKtB;AACA;AACA;AAGA,UAAG,UAAI,IAAE,CAAT;AACE,YAAG;;AAGH,YAAiB,IAAd,UAAc,CAAI,CAAJ;AACjB,SAAE,GAAF,GAAM;AACN,YAAkB,IAAf,WAAe,CAAI,CAAJ;AAClB,YAAG,CAAE;;AAEP,eAAQ,aAAQ,CAAC,EAAE,UAAH;AAnBM;AAAW;AAsBA;AAAX;AAGtB,eAAQ,0CAAY,0BAAI,GAAC,CAAjB;AAHc;AAAW;AAOH;AAAR;AAGtB,eAAQ,aAAQ,CAAC,UAAD;AAHM;AAAQ;AAMF;AAAN;AAGtB,eAAQ,UAAK,GAAe,CAAH,CAAG,IAAI,KAAJ,CAA5B;AACA,eAAQ;AAJc;AAAM;AAOE;AAAR;AAGtB,eAAM,UAAK,GAAI,CAAwB,CAAH,CAAG,IAAI,KAAJ,CAAvC;AACA,eAAQ;AAJc;AAAQ;AAOC;AAAT;AAGtB,eAAQ,UAAK,GAAwB,CAAH,CAAG,IAAI,KAAJ,CAArC;AACA,eAAQ;AAJc;AAAS;AAOF;AAAP;AAGtB,eAAgB,CAAL,UAAK,GAAwB,CAAH,CAAG,IAAI,KAAJ,CAAxB,CAAoC,KAAE,CAAF;AAH9B;AAAO;AA55Of;AAwBD;AA84OsB;AAAR;AAE3B,eAAQ,aAAQ,CAAC,MAAD;AAFW;AAAQ;AAKN;AAAR;AAErB,eAAQ,aAAQ,CAAC,UAAD;AAFK;AAAQ;AAn5OhB;AAOG;AAGJ,oBAAO;AACP,oBAAM;AAk5OiB;AAAL;AAG9B,eAAQ,aAAQ,CAAC,OAAD;AAHc;AAAK;AAMD;AAAJ;AAG9B,eAAQ;AAHsB;AAAI;AAMI;AAAR;AAG9B,eAAQ,aAAQ,CAAC,MAAD;AAHc;AAAQ;AAMA;AAAR;AAG9B;AAGA,oBAAG,CAAC,QAAQ,OAAO;;;;UAAhB;AACH,eAAS,CAAC,KAAC,CAAD;AAPoB;AAAQ;AAUL;AAAT;AAGxB,eAAS,UAAI,KAAE,CAAF;AAHW;AAAS;AAMD;AAAR;AAGxB,eAAQ;AAHgB;AAAQ;AAME;AAAV;AAGxB,eAAQ;AAHgB;AAAU;AAMC;AAAX;AAGxB,eAAQ,iBAAM,CAAC,WAAK,4BAAI,GAAC,CAAX;AAHU;AAAW;AAMA;AAAX;AAIxB,eAAQ,aAAQ,CAAC,WAAK,UAAN;AAJQ;AAAW;AAOA;AAAX;AAGxB,eAAQ,aAAQ,CAAC,WAAK,4BAAI,GAAC,CAAX;AAHQ;AAAW;AAMH;AAAR;AAGxB,eAAQ,aAAQ,CAAC,UAAD;AAHQ;AAAQ;AAMF;AAAN;AAGxB,eAAa,OAAL,WAAsB,QAAH,EAAO,KAAJ,CAAjB,CAAb;AACA,eAAQ;AAJgB;AAAM;AAOE;AAAR;AAGxB,eAAW,QAAL,WAAS,CAA4B,QAAH,EAAO,KAAJ,CAAhC,CAAX;AACA,eAAQ;AAJgB;AAAQ;AAOC;AAAT;AAGxB,eAAa,QAAL,WAAiC,QAAH,EAAO,KAAJ,CAA5B,CAAb;AACA,eAAQ;AAJgB;AAAS;AAOF;AAAP;AAGxB,eAAgB,QAAL,WAAiC,QAAH,EAAO,KAAJ,CAA5B,CAAwC,KAAE,CAAF;AAHhC;AAAO;AAl/Of;AAwBC;AAGL,oBAAO;AACP,oBAAG;AAi+OqB;AAAL;AAG/B,eAAQ,aAAQ,CAAC,OAAD;AAHe;AAAK;AAMD;AAAJ;AAG/B,eAAQ;AAHuB;AAAI;AAMI;AAAR;AAG/B,eAAQ,aAAQ,CAAC,MAAD;AAHe;AAAQ;AAMA;AAAR;AAG/B;AAGA,sBAAG,CAAC,QAAQ,OAAO;;;;UAAhB;AACH,eAAS,CAAC,KAAC,CAAD;AAPqB;AAAQ;AAUL;AAAT;AAGzB,eAAS,UAAI,KAAE,CAAF;AAHY;AAAS;AAMD;AAAR;AAGzB,eAAQ;AAHiB;AAAQ;AAME;AAAV;AAGzB,eAAQ;AAHiB;AAAU;AAMC;AAAX;AAGzB,eAAQ,iBAAM,CAAC,WAAK,6BAAI,GAAC,CAAX;AAHW;AAAW;AAMA;AAAX;AAIzB,eAAQ,aAAQ,CAAC,WAAK,UAAN;AAJS;AAAW;AAOA;AAAX;AAGzB,eAAQ,aAAQ,CAAC,WAAK,6BAAI,GAAC,CAAX;AAHS;AAAW;AAMH;AAAR;AAGzB,eAAQ;AAHiB;AAAQ;AAMA;AAAR;AAGzB,eAAQ,aAAQ,CAAC,UAAD;AAHS;AAAQ;AAMF;AAAN;AAGzB,eAAa,OAAL,WAAuB,QAAH,EAAO,KAAJ,CAAlB,CAAb;AACA,eAAQ;AAJiB;AAAM;AAOE;AAAR;AAGzB,eAAW,QAAL,WAAS,CAA8B,QAAH,EAAO,KAAJ,CAAlC,CAAX;AACA,eAAQ;AAJiB;AAAQ;AAOC;AAAT;AAGzB,eAAa,QAAL,WAAmC,QAAH,EAAO,KAAJ,CAA9B,CAAb;AACA,eAAQ;AAJiB;AAAS;AAOF;AAAP;AAGzB,eAAgB,QAAL,WAAmC,QAAH,EAAO,KAAJ,CAA9B,CAA0C,KAAE,CAAF;AAHjC;AAAO;AAvkPf;AA0BL;;AAGE;AAojPmB;AAAL;AAG5B,eAAQ,cAAS,CAAC,CAAD;AAHW;AAAK;AAMD;AAAJ;AAG5B,eAAQ;AAHoB;AAAI;AAMI;AAAR;AAG5B,eAAQ,cAAS,CAAC,OAAO,WAAW,KAAc,sBAAjC;AAHW;AAAQ;AAME;AAAV;AAG5B,eAAQ,iBAAY,CAAC,EAAE,MAAH;AAHQ;AAAU;AAMP;AAAT;AAGtB,eAAe,CAAC,aAAD;AAHO;AAAS;AAMD;AAAR;AAGtB,eAAQ,cAAS,CAAC,WAAK,WAAW,KAAc,sBAA/B;AAHK;AAAQ;AAllPhB;AAWC;AAilPmB;AAAL;AAG7B,eAAQ,cAAS,CAAC,CAAD;AAHY;AAAK;AAMD;AAAJ;AAG7B,eAAQ;AAHqB;AAAI;AAMI;AAAR;AAG7B,eAAQ,cAAS,CAAC,OAAO,WAAR;AAHY;AAAQ;AAME;AAAV;AAG7B,eAAQ,iBAAY,CAAC,EAAE,MAAH;AAHS;AAAU;AAMP;AAAT;AAGvB,eAAe,CAAC,aAAD;AAHQ;AAAS;AAMD;AAAR;AAGvB,eAAQ,cAAS,CAAC,WAAK,WAAN;AAHM;AAAQ;AA/mPhB;AAWA;AA8mPmB;AAAL;AAG7B,eAAQ,cAAS,CAAC,CAAD;AAHY;AAAK;AAMD;AAAJ;AAG7B,eAAQ;AAHqB;AAAI;AAMI;AAAR;AAG7B,eAAQ,cAAS,CAAC,OAAO,WAAR;AAHY;AAAQ;AAME;AAAV;AAG7B,eAAQ,iBAAY,CAAC,EAAE,MAAH;AAHS;AAAU;AAMP;AAAT;AAGvB,eAAe,CAAC,aAAD;AAHQ;AAAS;AAMD;AAAR;AAGvB,eAAQ,cAAS,CAAC,WAAK,WAAN;AAHM;AAAQ;AA5oPhB;AAWA;AA4oPmB;AAAL;AAG7B,eAAQ,cAAS,CAAC,CAAD;AAHY;AAAK;AAMD;AAAJ;AAG7B,eAAQ;AAHqB;AAAI;AAMI;AAAR;AAG7B,eAAQ,cAAS,CAAC,OAAO,WAAR;AAHY;AAAQ;AAME;AAAV;AAG7B,eAAQ,iBAAY,CAAC,EAAE,MAAH;AAHS;AAAU;AAMP;AAAT;AAGvB,eAAe,CAAC,aAAD;AAHQ;AAAS;AAMD;AAAR;AAGvB,eAAQ,cAAS,CAAC,WAAK,WAAN;AAHM;AAAQ;AA1qPhB;AAaD;AAGK,2BAAG;AAHR;;AAYZ;AACA;AAbY;AAgtPmB;AAAX;AAEtB,eAAsB,UAAD;AAFC;AAAW;AAgeC;AAElC,UAAI,MAAM,GAAC,iBAAX,EACE,MAAM,gBAAW,QAAC,aAAS,CAAC,kDAAmB,mBAAC,QAAD,CAApB,CAAT,CADpB;AAEA,UAAI,MAAM,GAAC,gBAAX,EACE,MAAM,gBAAW,QAAC,aAAS,CAAC,kDAAmB,mBAAC,QAAD,CAApB,CAAT,CADpB;AAJkC;AA3dR;AAAJ;AAEtB,wBAAa,CAAC,KAAM,GAAE,CAAF,CAAI,OAAX;AACb,qBAAU,CAAC,KAAM,GAAE,CAAF,CAAK,EAAG,gBAAf;AACV,eAAQ,UAAK,QAAO,CAAN,KAAM,GAAE,CAAF,KAAP;AAJS;AAAI;AAOC;AAE3B,wBAAa,CAAC,KAAM,GAAE,CAAF,CAAK,OAAZ;AACb,qBAAU,CAAC,KAAM,GAAE,CAAF,CAAK,EAAG,gBAAf;AACV,gBAAK,iBAAL,WAAY,CAAN,KAAM,GAAE,CAAF,MAAQ,MAAf;AAJsB;AAjBI;AAAT;AAEtB,eAAsB,UAAD;AAFC;AAAS;AAwBC;AAGhC,wBAAa,CAAC,OAAO,QAAR;AACb,qBAAU,CAAC,OAAO,EAAE,iBAAV;AACO,gBAAD,oBAAC,WAAM,MAAP;AALgB;AAYC;AAGjC,UAAO,CAAH,GAAG,GAAC,CAAD,CAAI,IAAa,CAAN,CAAH,GAAG,GAAC,KAAD,CAAM,GAAC,MAAD,CAAxB,EACE,MAAM,gBAAW,QAAC,aAAS,CAAC,+CAAgB,mBAAC,KAAD,CAAjB,CAAT,CADpB;AAHiC;AAQG;AAIpC,UAAI,MAAM,GAAC,CAAX,EACE,MAAM,gBAAW,QAAC,aAAS,CAAC,gDAAiB,mBAAC,QAAD,CAAlB,CAAT,CADpB;AAJoC;AAUL;AAG/B,mBAAO,UAAK,GAAC,CAAD;AAHmB;AAMA;AAI/B;AACA;AAGA,UAAG;AACH,qBAAU,CAAC,IAAI,OAAoB,WAAC,MAAD,CAAzB;AACV,eAAO,UAAiB,OAAP,CAAH,GAAG,GAAC,MAAD,CAAO,GAAC,CAAD,kBAAxB;AAAI;AACF,YAAG,CAAC,GAAC,MAAM,CAAC,CAAD,CAAP;;AACN,mBAAQ,CAAC,CAAD;AAZuB;AAeA;AAG/B,qBAAU,CAAC,MAAM,EAAE,gBAAM,GAAC,CAAhB;AACH,uBAAM,CAAC,OAAO;;;;WAAM,KAAK,GAAC,CAApB;AAJkB;AAOA;AAI/B;AACA;AAGA,qBAAU,CAAC,MAAM,EAAE,gBAAM,GAAC,CAAhB;AACV,wBAAa,CAAC,WAAW,YAAZ;AACb,wBAAa,CAAC,WAAW,aAAZ;AACb,qBAAU,CAAC,WAAW,WAAwB,WAAC,MAAD,CAApC;AACV,UAAG;AACH,eAAO,iBAAmC,OAAX,CAAV,UAAU,GAAC,UAAD,CAAW,GAAC,CAAD,kBAA1C;AAAI;AACF,YAAG,CAAC,GAAC,MAAM,CAAC,CAAD,CAAP;;AACN,mBAAQ,CAAC,MAAM,CAAP;AAfuB;AA2aC;AAGhC;AAGA,cAAqB,GAAD;AACb,uBAAM,CAAC;;;;WAAM,KAAK,GAAC,CAAD,CAAG,KAAf;AACN,uBAAM,CAAC,IAAI;;;;WAAM,KAAK,GAAC,CAAjB;AARmB;AApNL;AAG3B;AAGA,oBAAa,kBAAQ,GAAC,CAAD;AACrB,UAAG,WAAW,GAAC,iBAAf,EACE,cAAa,iBADf;AAEA,uBAAU,WAAV;AAT2B;AAwIE;AAG7B,UAAa,UAAT,kBAAS,GAAI,CAAJ,CAAM,IAAE,gBAArB,EACE,iBAAmB,UAAT,kBAAS,GAAI,CAAJ,CAAnB,CADF;AAH6B;AAvdE;AAE/B,mBAAM,CAAC,GAAgB,UAAjB;AAF0B;AAAD;AAyBA;AAE/B,mBAAM,CAAC,UAAU,UAAX;AAF8C;AAArB;AAKA;AAE/B,mBAAM,CAAC,OAAO,EAAR;AAFgD;AAAvB;AAXA;AAE/B,0BAAc;AACd,uBAAU,SAAV;AAHkE;AAAnC;AAdA;AAE/B,mBAAM,CAAC,UAAU,UAAX;AACN,UAAkB,MAAD,OAAQ,GAAC,CAA1B,EACE,cAAM,CAAC,MAAD,CADR;AAH0E;AAA3C;AAQA;AAG/B,mBAAM,CAAC,eAAI,CAAC,OAAO,UAAU,GAAC,CAAD,CAAG,OAArB,EAA+B,SAApC;AAFc;AADW;AAkMH;AAAN;AAEtB,mBAAQ,CAAC,cAAS,CAAC,OAAQ,IAAT,CAAV;AACR,eAAQ;AAHc;AAAM;AAMA;AAAN;AAEtB,mBAAQ,CAAC,aAAQ,CAAC,MAAD,CAAT;AACR,eAAQ;AAHc;AAAM;AAlBA;AAAN;AAEtB,mBAAQ,CAAC,MAAD;AACR,eAAQ;AAHc;AAAM;AAMA;AAAN;AAEtB,mBAAQ,CAAC,cAAS,CAAC,MAAD,CAAV;AACR,eAAQ;AAHc;AAAM;AAtCA;AAAN;AAEtB,mBAAQ,CAAC,eAAU,CAAC,MAAD,CAAX;AACR,eAAQ;AAHc;AAAM;AAoEA;AAAN;AAEtB,mBAAQ,CAAC,aAAQ,CAAC,MAAD,CAAT;AACR,eAAQ;AAHc;AAAM;AAMA;AAAN;AAEtB,mBAAQ,CAAC,aAAQ,CAAC,MAAD,CAAT;AACR,eAAQ;AAHc;AAAM;AAlBA;AAAN;AAEtB,mBAAQ,CAAC,aAAQ,CAAC,MAAD,CAAT;AACR,eAAQ;AAHc;AAAM;AAMA;AAAN;AAEtB,mBAAQ,CAAC,MAAM,WAAP;AACR,eAAQ;AAHc;AAAM;AApCA;AAAN;AAEtB,mBAAQ,CAAC,aAAQ,CAAC,MAAD,CAAT;AACR,eAAQ;AAHc;AAAM;AAjDA;AAAN;AAEtB,mBAAQ,CAAC,aAAQ,CAAC,MAAD,CAAT;AACR,eAAQ;AAHc;AAAM;AAMA;AAAN;AAGtB;AAAE;AAGF,UAAG,CAAC;AACJ,UAAgB,WAAC,MAAD;AAChB,UAAG,CAAC,KAAC,CAAL,EACM,OAAC,IADP;AAEA;AACM,SAAJ,IAAG;OADL,QAEa,EAAL,CAAD,CAAC,IAAE,CAAF,CAAK,IAAa,CAAT,MAAM,CAAC,CAAD,CAAG,KAAC,MAAD,CAAb,CAFb;AAGA,qBAAQ,CAAC,OAAO,EAAE,CAAV;AACR,eAAQ;AAdc;AAAM;AAuBA;AAAN;AAEtB,oBAAM,CAAC,aAAQ,CAAC,MAAD,CAAT;AACN,eAAQ;AAHc;AAAM;AAMA;AAAN;AAEtB,mBAAQ,CAAC,aAAQ,CAAC,MAAD,CAAT;AACR,eAAQ;AAHc;AAAM;AAoFA;AAAN;AAEtB,mBAAQ,CAAC,MAAD;AACR,eAAQ;AAHc;AAAM;AA9EA;AAAN;AAGtB,mBAAQ,CAAC,uBAAY,CAAC,OAAO,WAAR,CAAb;AACR,eAAQ;AAJc;AAAM;AA8DA;AAAN;AAGtB,qBAAQ,CAAC,OAAO,WAAW,WAAnB;AACR,eAAQ;AAJc;AAAM;AAOA;AAAN;AAGtB,qBAAU,CAAC,WAAW,MAAoB,MAAD,OAA/B;AACV,mBAAQ,CAAC,eAAI,CAAC,OAAO,UAAU,GAAC,CAAD,CAAG,KAArB,CAAL;AACR,eAAQ;AALc;AAAM;AAuBA;AAAN;AAGtB,mBAAQ,CAAC,WAAM,CAAC,IAAI,IAAL,CAAP;AACR,eAAQ;AAJc;AAAM;AAPM;AAAZ;AAGtB,mBAAQ,CAAC,WAAM,CAAC,IAAI,IAAL,CAAP;AACR,eAAQ;AAJc;AAAY;AAcF;AAAV;AAEtB,mBAAQ,CAAC,qBAAD;AACR,eAAQ;AAHc;AAAU;AAMA;AAAV;AAEtB,mBAAQ,CAAC,MAAD;AACR,eAAQ,eAAU;AAHI;AAAU;AAMJ;AAE5B,qBAAQ,CAAR;AACA,uBAAU,EAAV;AAH4B;AAOC;AAI7B;AAGA,wBAAa,CAAC,MAAM,OAAP;AACb,wBAAa,CAAC,iBAAiB,kBAAlB;AACb,qBAAU,CAAC,iBAAiB,MAAmB,WAAC,iBAAD,CAArC;AACV,UAAG,KAAK,GAAC,CAAT;AAEE,uBAAU,CAAC,YAAY,MAAM,gBAAnB;AACV,iBAAkB,KAAX,WAAW,GAAC,CAAD,EAAiB,OAAX,WAAW,GAAC,KAAD,kBAAnC;AAAI;AACF,2BAAW,CAAC,gBAAD,CAAX,GAA+B,UAAK,QAAC,KAAD;;OAJxC;AAV6B;AAmBO;AAAd;AAEtB,qBAAU,CAAC,UAAU,EAAE,iBAAb;AACV,UAAG,kBAAQ,GAAC,SAAZ,EACE,iBAAU,SAAV,CADF;AAEA,eAAQ;AALc;AAAc;AAQR;AAAN;AAEtB,eAAS,aAAa,KAAE,IAAF;AACtB,UAAG,MAAH,EACE,SAAe,CAAN,gBAAM,KAAC,aAAa,UAAC,EAAf,CAEN,IADgB,CAAX,iBAAW,KAAC,aAAa,aAAd,CAAhB,IACU,CAAL,UAAK,KAAC,aAAa,MAAM,QAAC,EAAD,CAApB,CAHrB;AAHsB;AAAM;AAoGA;AAAN;AAGtB,mBAAQ,CAAC,MAAM,cAAS,CAAC,OAAO,IAAR,CAAhB;AACR,eAAQ;AAJc;AAAM;AArBA;AAAN;AAGtB,mBAAQ,CAAC,MAAM,aAAQ,CAAC,MAAD,CAAf;AACR,eAAQ;AAJc;AAAM;AAPA;AAAN;AAGtB,mBAAQ,CAAC,MAAM,MAAP;AACR,eAAQ;AAJc;AAAM;AAPA;AAAN;AAGtB,mBAAQ,CAAC,MAAM,cAAS,CAAC,MAAD,CAAhB;AACR,eAAQ;AAJc;AAAM;AA9BA;AAAN;AAGtB,mBAAQ,CAAC,MAAM,eAAU,CAAC,MAAD,CAAjB;AACR,eAAQ;AAJc;AAAM;AA0DA;AAAN;AAGtB,mBAAQ,CAAC,MAAM,aAAQ,CAAC,MAAD,CAAf;AACR,eAAQ;AAJc;AAAM;AAPA;AAAN;AAGtB,mBAAQ,CAAC,MAAM,aAAQ,CAAC,MAAD,CAAf;AACR,eAAQ;AAJc;AAAM;AA+BA;AAAN;AAGtB,qBAAQ,CAAC,MAAM,OAAO,EAAe,WAAC,MAAD,CAA7B;AACR,eAAQ;AAJc;AAAM;AAzFA;AAAN;AAGtB,mBAAQ,CAAC,MAAM,aAAQ,CAAC,MAAD,CAAf;AACR,eAAQ;AAJc;AAAM;AAPA;AAAN;AAGtB,mBAAQ,CAAC,MAAM,MAAM,SAAS,EAAtB;AACR,eAAQ;AAJc;AAAM;AAoCA;AAAN;AAGtB,mBAAQ,CAAC,MAAO,aAAQ,CAAC,MAAD,CAAhB;AACR,eAAQ;AAJc;AAAM;AAfA;AAAN;AAItB,mBAAQ,CAAC,MAAM,MAAP;AACR,eAAQ;AALc;AAAM;AAQA;AAAN;AAGtB,mBAAQ,CAAC,MAAM,aAAQ,CAAC,MAAD,CAAf;AACR,eAAQ;AAJc;AAAM;AAiFA;AAAN;AAGtB,mBAAQ,CAAC,MAAM,aAAQ,CAAC,MAAD,CAAf;AACR,eAAQ;AAJc;AAAM;AAOA;AAAN;AAGtB,mBAAQ,CAAC,MAAM,aAAQ,CAAC,MAAD,CAAf;AACR,eAAQ;AAJc;AAAM;AA/BA;AAAN;AAGtB;AAEA,eAAO,QAAiB,OAAZ,YAAY,GAAC,CAAD,kBAAxB;AAAI;AACF,qBAAQ,CAAC,MAAM,MAAP;;AACV,eAAQ;AAPc;AAAM;AAiBA;AAAN;AAGtB,qBAAQ,CAAC,MAAM,OAAO,WAAW,WAAzB;AACR,eAAQ;AAJc;AAAM;AA4BA;AAAN;AAItB;AAGA,UAAI,SAAS,KAAC,CAAd,EACM,OAAC,IADP;AAEA,wBAAa,CAAC,UAAU,WAAX;AACb,qBAAU,CAAC,WAAW,EAAE,gBAAd;AACV,kBAAW,UAAU,GAAC,SAAD;AACrB,qBAAU,CAAC,UAAU,EAAE,gBAAb;AACV,uBAAM,CAAC;;;;WAAM,UAAU,GAAC,CAAD,CAAG,SAApB;AACN;AACA,eAAQ;AAfc;AAAM;AAwCC;AAAP;AAEtB,eAAQ,cAAO,CAAC,SAAS,SAAS,EAAE,gBAArB;AAFO;AAAO;AAtBA;AAAP;AAGtB;AACA;AAGA,UAAG,KAAK,KAAC,CAAT,EACM,OAAC,IADP;AAGA,wBAAa,CAAC,WAAW,YAAZ;AACb,wBAAa,CAAC,MAAM,OAAP;AACb,qBAAU,CAAC,WAAW,MAAM,gBAAlB;AAEV,cAAO,eAAI,CAAC,WAAM,EAAE,UAAT;AACX,mBAAO,iBAAI,CAAC,WAAM,UAAU,GAAC,CAAlB;AACX,eAAO,QAAK,8BAAZ;AAAI;AACF,qBAAO,kBAAa,CAAC,WAAM,SAAS,SAAS,EAAzB;;AACtB,mBAAO,KAAK,GAAC,UAAD;AACZ,eAAQ;AAnBc;AAAO;AAoCC;AAAR;AAEtB,eAAQ,eAAQ,CAAC,EAAE,gBAAH;AAFM;AAAQ;AAKA;AAAR;AAGtB,wBAAa,CAAC,YAAY,aAAb;AACb,wBAAa,CAAC,QAAQ,SAAT;AACb,qBAAU,CAAC,YAAY,QAAQ,gBAArB;AACV,wBAAO,CAAC,WAAW,UAAZ;AACP,eAAQ,eAAI,CAAC,WAAM,CAAC,GAAC,WAAD,CAAa,WAAW,GAAC,OAAjC;AAPU;AAAQ;AA9rQhB;AA6FL;AAEP;AACA;AACA;AACA;AACA;AAivQ4B;AAAP;AAEvB,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,uBAAS,kBAAa,QAAC,UADzB;AAEA,eAAU;AAJa;AAAO;AAOC;AAAR;AAEvB,UAAG,CAAY,CAAC,WAAD,SAAf,EACE,wBAAU,mBAAc,QAAC,UAD3B;AAEA,eAAU;AAJa;AAAQ;AAOE;AAAV;AAEvB,eAAU;AAFa;AAAU;AAKA;AAAV;AAEvB,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,0BAAY,qBAAgB,QAAC,UAD/B;AAEA,eAAU;AAJa;AAAU;AAOH;AAAP;AAEvB,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,uBAAS,kBAAa,QAAC,UADzB;AAEA,eAAU;AAJa;AAAO;AAOA;AAAP;AAEvB,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,uBAAS,kBAAa,QAAC,UADzB;AAEA,eAAU;AAJa;AAAO;AAkCrB,oBAAG;AAFgB;AAAX;AAIjB,eAAU;AAJO;AAAW;AAzBa;AAAlB;AAEvB,eAAqB,CAAV,SAAU,KAAG,IAAH,CAAQ,IAAwB,CAAR,CAAV,SAAU,KAAE,cAAF,CAAQ,IAAc,CAAV,SAAU,KAAE,iBAAF,CAAd,CAAxB;AAFN;AAAkB;AAKZ;AAAZ;AAEjB,eAAU,iBAAY,CAAO,oCAAN;;;;WAAiB,EAAG,UAAd,CAAP;AAFL;AAAY;AAKA;AAAZ;AAEjB,eAAU,iBAAY,CAAO,oCAAN;;;;WAAiB,WAAY,UAAvB,CAAP;AAFL;AAAY;AAKJ;AAAR;AAEjB,eAAU,aAAQ,CAAO,oCAAN;;;;WAAiB,EAAG,UAAd,CAAP;AAFD;AAAQ;AAKA;AAAR;AAEjB,eAAU,aAAQ,CAAO,oCAAN;;;;WAAiB,WAAY,UAAvB,CAAP;AAFD;AAAQ;AAYC;AAAT;AAEjB,eAAU,cAAS,CAAO,iCAAN;;;;WAAgB,EAAG,UAAb,CAAP;AAFF;AAAS;AAKA;AAAT;AAEjB,eAAU,cAAS,CAAO,iCAAN;;;;WAAgB,WAAY,UAAtB,CAAP;AAFF;AAAS;AAp0QjB;AAoCI;AAmzQJ,sBAAG;AAFoB;AAAX;AAIrB,eAAU;AAJW;AAAW;AAVC;AAAZ;AAErB,eAAgB,kCAAN;;;;UAAM;AAFK;AAAY;AAKJ;AAAR;AAErB,eAAU,YAAO,CAAC,MAAD;AAFI;AAAQ;AAYC;AAAT;AAErB,eAAU,aAAQ,CAAC,MAAD;AAFG;AAAS;AAxzQjB;AASC;AAwzQL,sBAAG;AAFqB;AAAX;AAItB,eAAU;AAJY;AAAW;AAtzQnB;AAKE;AA81QyB;AAEzC;AAEA,eAAU;AAEZ;AACA;AAEE,iBAAgB,gCAAN;;;;UAAM,CAAhB;AATyC;AAtBhC,sBAAG;AAFuB;AAAX;AAIxB,eAAU;AAJc;AAAW;AAV1B,oBAAG;AAFwB;AAAZ;AAIxB,eAAU,CAAU,GAAQ,kCAAN;;;;UAAM,CAAR;AAJI;AAAY;AAOJ;AAAR;AAExB,2BAAgB,CAAC,OAAQ;;;;UAAT;AAFQ;AAAQ;AAYC;AAAT;AAExB;AACA;AAEA,gBAAkB;AAClB,eAAgB,6BAAW,MAAX;AAChB,UAAU,WAAP,MAAO,KAAV;AAGF;AACA;OAJE;AAOA,eAAU;AAdc;AAAS;AA70QjB;AAWH;AA+1Q2B;AAAb;AAE3B;AAEA,eAAyB,IAAf,WAAe,CAAU,kCAAN;;;;UAAM,CAAV;AACzB,eAAwB,IAAd,UAAc,CAAI,MAAJ;AACxB,YAAM,IAAK,CAAC,MAAD;AANgB;AAAa;AA2CA;AAAb;AAE3B;AAEA,eAAc,QAAiB,OAAZ,IAAI,OAAQ,GAAE,CAAF,kBAA/B;AAAI;AACF,cAAM,CAAC,MAAD,CAAN,GAAiB,IAAK;;AALG;AAAa;AAf/B,sBAAG;AAFoB;AAAX;AAIrB,eAAU;AAJW;AAAW;AAfC;AAAZ;AAErB,eAA0B,kCAAR,IAAR,aAAQ,CAAC,MAAD;;;;UAAQ;AAFL;AAAY;AAKJ;AAAR;AAErB;AACA;AAEA,iBAA2B,IAAf,WAAe;AAC3B,eAAU,QAAQ,OAAO,CAAC,MAAD;AACzB,eAAU,yBAAa,CAAC,MAAD;AAPF;AAAQ;AAiBC;AAAT;AAErB;AACA;AAEA,iBAA2B,IAAf,WAAe;AAC3B,eAAU,yBAAa,CAAC,oBAAD;AACvB,eAAU,QAAQ,OAAO,CAAC,MAAD;AAPJ;AAAS;AAh4QjB;AAYA;AAw4QJ,sBAAG;AAFoB;AAAX;AAIrB,eAAU;AAJW;AAAW;AAt4QnB;AAMK;;AACC,yCADD,0CACC;AAEI,iCAAuB;AACnC,qBAAgB,cAAC,EAAD;AA8kQH;AAAjB;AAEP,aAAU,wBAAiB,CAAC,QAAS,iBAAa,IAAvB;AAFpB;AAAiB;AAKA;AAAjB;AAEP,aAAU,wBAAiB,CAAC,QAAS,iBAAa,WAAvB;AAFpB;AAAiB;AAKA;AAAjB;AAIP;AACA;AACA;AACA;AAEA,QAAG,WAAH;AACE;AAEA;AAEF,gBAAa;AACb,aAAc,qEAAd;AAAI,eAAU,GAAV;AAEF,UAAW,UAAP,OAAS,EAAF,CAAM,IAAG,gBAAS,CAAC,MAAM,QAAI,CAAJ,EAAe,MAAtB,CAA7B;AAEE,kBAAiB,kCAAN;;;;aAAiB,CAAX;AACjB,YAAG,WAAW,CAAC,QAAS,OAAV,CAAd,EACM,OAAC,IADP;OAHF;;AAOF,aAAU;AAxBH;AAAiB;AA6BnB,gBAAG;AAFgB;AAAjB;AAMP;AACA;AACA;AACA;AACA;AACA;AAEA,aAAU;AACV,eAAiB,wBAAjB;AACA,QAAG,WAAH;AACE;AAEA;AACF,iBAAqB,kCAAP;;;;QAAO;AAErB,gBAAa;AACb,aAAiB,QAAmB,kBAAC,SAAD,uBAApC;AAAI;AAEF,eAAU,SAAS,CAAC,MAAD;AACnB,UAAG,CAAI,gBAAS,CAAO,gCAAN;;;;WAAa,CAAP,EAAW,gBAAlB,CAAhB,EACE,QADF;AAGA,UAAG,CAAI,QAAQ,CAAO,oCAAN;;;;WAAiB,EAAG,UAAd,EAA2B,OAAlC,CAAf,EACE,QADF;AAGA,UAAS,kCAAN;;;;UAAM,CAAQ,GAAa,CAAX,UAAW,GAAE,CAAF,CAA9B;AAEE,YAAG,CAAuB,CAAlB,yCAAkB,IAAG,YAAH,CAA1B,EACE,QADF;AAEA,oBAAa,UAAW,GAAE,CAAF;AACxB,YAAS,gCAAN;;;;aAAa,SAAP,CAAkB,KAAE,OAA7B,EACM,SAAJ,IAAG,CADL;AAEA,mBAAgB,oCAAN;;;;aAAiB,UAAW,UAAtB,CAAhB;OAEG,UAAuB,CAAnB,0CAAmB,IAAG,YAAH,CAAgD,IAAnB,CAAP,MAAO,GAAM,YAAC,SAAD,MAAN,CAAZ,IAAoC,CAAI,gBAAS,CAAsB,gCAAZ,CAAQ,GAAP,MAAO,GAAE,CAAF,EAAjB,cAAS;;;;WAAmB,CAAP,EAAW,gBAAjC,CAAzF,EACH,WAAU,SAAS,CAAC,MAAO,GAAE,CAAV,CAAnB,CADG;AAEL,eAAU;AACV;;AA3CK;AAAiB;AA3mQnB;AACA,+EAAkC,qBAAlC;+EAAkC,qBAAlC;AAnyCP,mBAgzCc;AAGA;AA42QiB;AAAT;AAEpB,iBAAuB,WAAC,UAAD;AAFH;AAAS;AAeC;AAEb,iBAAD,mBAAC,aAAM,MAAP,CAAC;AAFa;AAVN;AAAJ;AAEpB,iBAAqB,WAAC,UAAD;AAFD;AAAI;AAKD;AAAH;AAEpB,iBAAoB;AAFA;AAAG;AAUK;AAAR;AAEpB,iBAAqB,gBAAC,WAAM,YAAa,OAApB;AAFD;AAAQ;AAh4QhB;AAWN;AACM;AAs5QiB;AAAT;AAEpB,iBAAuB,WAAC,UAAD;AAFH;AAAS;AAeC;AAEb,iBAAD,mBAAC,aAAM,MAAP,CAAC;AAFa;AAxCjB,0BAAG;AAFmB;AAAT;AAI1B;AACA;AACA;AAEA,iBAAgB,kCAAN;;;;YAAM;AAChB,YAAG,cAAG,CAAC,MAAD,CAAN,EACM,MAAJ,IAAG,CADL;AAEM,0CAAN;;;;aAAwB,UAAP,MAAO,GAAI,CAAJ,CAAlB;AAEN,iBAAgB,4BAAN;;;;YAAM;AAChB,eAAM,MAAO,IAAS,6BAAN;;;;YAAM,CAAtB;AAEE,iBAAQ,MAAM,CAAC,MAAD;AACd,cAAU,CAAP,MAAO,GAAE,CAAF,CAAI,IAAS,6BAAN;;;;cAAM,CAAvB;AACE,oBAAS,MAAM,CAAC,MAAO,GAAE,CAAV;AAEf,wBAAS;AAEX,gBAAM,CAAQ,UAAP,MAAO,GAAI,CAAJ,CAAR,CAAN,GAAwC,2BAAW,KAAM,KAAjB;AACpC,gBAAJ,IAAY;;AAvBY;AAAS;AAgCX;AAAJ;AAEpB,iBAAqB,WAAC,UAAD;AAFD;AAAI;AAKD;AAAH;AAEpB,iBAAoB;AAFA;AAAG;AAYV,4BAAG;AAFW;AAAP;AAIpB;AACA;AACA;AACA;AAEM,0CAAN;;;;aAAiB,uCAAO,GAAE,CAApB;AACN,iBAAc,wCAAO,2DAArB;AAAI;AAEU,wCAAR,CAAC,WAAL,eAAI;;;;eAAiB;;;;eAAM;;;;cAAf;AACZ,sBAAa,MAAO,GAAE,CAAF;AACpB,gBAAM,CAAC,SAAD,CAAN,GAAqB;AACrB,gBAAM,CAAC,SAAU,GAAE,CAAb,CAAN,GAAyB;;AAfP;AAAO;AA16Qf;AAaU,oCACpB,MACA,MACA,MACA,MACA,MACA,MACA,MACA,MACA,MACA,MACA,MACA,KAZoB;AAaD,mCACnB,UACA,WACA,QACA,QACA,MACA,OACA,OACA,SACA,YACA,UACA,WACA,UAZmB;AAaD,kCAClB,MACA,MACA,MACA,MACA,MACA,MACA,KAPkB;AASD,iCACjB,SACA,SACA,UACA,YACA,WACA,SACA,UAPiB;AAUnB;AACA;AAeuB;AAGvB,UAAY,oBAAD,QAAX;AACE,4BAAe,CAAC,CAAD;;AAKnB;;AATyB;AAgCH,2EAAoB,sBAApB;AAKpB;AACA;AAEwB;AAGxB;AAGA,UAAG,sBAAe,CAAC,MAAD,CAAlB;AAEE,YAAY,uBAAD,QAAX;AACE,iCAAiB,CAAQ,cAAC,MAAD,CAAR;AAEjB,cAAA,kBAAa,CAAQ,cAAC,MAAD,EAAS,IAAjB;OAEZ,UAAG,YAAQ,CAAC,MAAD,CAAX;AAEH,YAAY,mBAAD,QAAX;AACE,6BAAa,CAAW,MAAX;;AAGb,cAAa,MAAO,eAAe,CAAC,SAAD,CAAnC;AACE,gBAAG,8CAAwB,GAAO,MAAW,MAAmB,WAA9B,CAAP;AAE3B,oBAAG,8CAAwB,GAAW,MAAO,WAAlB;AAC7B,+BAAe,CAAC,CAAD;;;AAKjB,YAAG,8CAAwB,GAAO,MAAC,MAAD,CAAP;AAC3B,6BAAe,CAAC,CAAD;;AA7BO;AAqzBH;AAErB,UAAS,WAAC,iBAAD,CAAc,KAAC,CAAxB;AAEY,yBAAD,sBAAC,qBAAa,CAAd;AACT,yBAAY,CAAC,CAAD,CAAZ,GAAiB;OAHnB;AAKA,UAAS,WAAC,kBAAD,CAAe,KAAC,CAAzB;AAEY,0BAAD,sBAAC,sBAAc,CAAf;AACT,0BAAa,CAAC,CAAD,CAAb,GAAkB;OAHpB;AAPqB;AAgJN,4BAAK;AACH,8BAAG;AACH,8BAAG;AAEC;AAGhB;AACJ,UADI,IACJ;AAAkB,cAAM,kBAAa,QAAC,aAAS,CAAC,8CAAe,mBAAC,MAAD,CAAhB,CAAT;AACtC,gBAFI,IAEJ;AAAoB,cAAM,kBAAa,QAAC,aAAS,CAAC,gDAAiB,mBAAC,MAAD,CAAlB,CAAT;AACxC,gBAHI,IAGJ,QAAoB,MAAM,kBAAa,QAAC,aAAS,CAAC,gDAAiB,mBAAC,MAAD,CAAlB,CAAT,CAAxC;AANoB;AAWZ,sBAAG;AAgBY;AAAjB;AAGP;AAGA,UAAG,cAAG,CAAC,IAAI,CAAL;AACN,UAAG,CAAC,GAAC,CAAL;AACE,iBAAQ,eAAI,CAAC,EAAE,EAAE,CAAC,GAAC,CAAP,CAAY,GAAF,EAAD,GAAI,eAAI,CAAC,EAAE,CAAC,GAAC,CAAD,CAAU,CAAD,OAAG,GAAC,CAAjB,CAAL;AAExB,qBAAQ;AAVH;AAAiB;AAaC;AAAlB;AAGP;AAAG;AAAI;AAAG;AAGV,UAAc,CAAV,SAAU,KAAE,CAAC,CAAH,CAAM,IAAc,CAAV,SAAU,GAAE,EAAF,CAAlC,EACG,YAAa,EADhB;AAGuB,YAApB,GAAC,qBAAM,SAAS,GAAC,CAAhB;AAEJ,eAAQ,aAAQ,CAAC,MAAD;AAChB,UAAG,cAAG,CAAC,IAAI,MAAL;AACN,UAAG,CAAC,KAAC,CAAL,EACE,aADF;AAGA,WAAI,cAAG,CAAC,IAAI,MAAL;AACP,UAAG,EAAE,KAAC,CAAN;AAEE,iBAAQ,uBAAiB,CAAC,OAAO,EAAR;AACzB;OAHF;AAMA,UAAG,EAAE,GAAC,CAAD;AACL,iBAAY;AACZ,aAAO,CAAE,IAAU,MAAD,OAAlB;AAEE,mBAAwB,CAAJ,CAAR,QAAQ,GAAC,EAAD,CAAI,GAAM,MAAD,YAAQ,CAAD,IAAP,CAAL,CAAgB,GAAI,EAAJ;AACpC,SAAJ,IAAG;;AAEL,UAAG,MAAM,QAAG,CAAF,EAAE,GAAC,CAAD,KAAH,CAAO,KAAE,GAAlB,EACE,WAAY,CAAC,QADf;AAEA,UAAe,CAAV,CAAD,CAAC,GAAC,QAAD,CAAU,GAAE,EAAF,CAAM,IAAc,CAAT,QAAS,GAAE,CAAC,CAAH,CAAnC;AAGY,cAAD,oBAAC,OAAO,EAAE,GAAC,CAAX;AACT,YAAG,QAAS,IAAG,CAAf;AAGE,mBAAS,QAAa,OAAR,QAAQ,GAAC,CAAD,kBAAtB;AAAI;AAEF,kBAAM,iBAAN,OAAO,MAAM,MAAM,QAAE,CAAD,CAAC,GAAC,CAAD,KAAF,CAAb;AACF,aAAJ,IAAG;;AAEL,gBAAM,iBAAN,OAAO,MAAM,GAAP;AACN,cAAK;AACL,cAAG,MAAM,QAAC,KAAD,CAAI,KAAE,GAAf,EACM,CAAJ,IAAG,CADL;AAEA,iBAAiB,CAAV,MAAM,QAAC,KAAD,CAAI,KAAE,GAAF,CAAgC,IAAlB,CAAF,CAAE,GAAS,MAAD,OAAR,CAAP,IAAyD,CAA3B,eAAI,CAAC,OAAO,CAAC,GAAC,CAAD,CAAU,EAAD,OAAlB,CAAuB,KAAE,EAAF,CAAjF,EAGW,iBAAM,CAAC;;;;eAAO,EAAE,CAAV;;AAKjB,2BAAM,CAAC,eAAI,CAAC,QAAQ,EAAE,CAAC,QAAZ,EAAsB;;;;eAAO,CAAC,GAAC,CAApC;AACN,gBAAM,iBAAN,OAAO,CAAC,GAAC,QAAD,KAAc,MAAM,QAAC,CAAU,GAAR,QAAD,GAAU,CAAD,IAAX,CAAtB;AACN,gBAAM,iBAAN,OAAO,MAAM,GAAP;AACN,cAAG,QAAS,KAAG,CAAC,CAAhB,EACE,MAAM,iBAAN,OAAO,CAAU,GAAR,QAAD,GAAU,CAAD,KAAO,GAAlB,CADR;;AAIF,YAAY,MAAD;AACX,eAAS,CAAF,CAAE,GAAE,CAAF,CAAK,IAAe,CAAV,MAAM,QAAC,KAAD,CAAI,KAAE,GAAF,CAA7B,EACM,CAAJ,IAAG;AACL,YAAG,MAAM,QAAC,KAAD,CAAI,KAAE,GAAf,EACM,CAAJ,IAAG,CADL;AAEA,YAAM,CAAF,CAAE,KAAE,CAAF,CAAK,IAAU,CAAJ,CAAD,CAAC,KAAC,CAAD,CAAI,IAAe,CAAV,MAAM,QAAC,CAAD,CAAI,KAAE,GAAF,CAAf,CAArB;AACE,mBAAU;AAEV,cAAU,MAAD,oBAAC,OAAO,CAAR;;AAMX,eAAM,MAAM,QAAC,EAAE,GAAC,CAAD,IAAH,CAAO,KAAE,GAArB;AAES,2BAAM,CAAC;;;;eAAO,EAAE,GAAC,CAAD,CAAG,CAAb;AACT,YAAJ,IAAG;;AAGL,YAAG,MAAM,QAAC,EAAE,GAAC,CAAD,IAAH,CAAO,KAAE,EAAlB;AAES,2BAAM,CAAC;;;;eAAO,EAAE,GAAC,CAAD,CAAG,CAAb;AACT,YAAJ,IAAG;SAHL;AAMA,YAAG,MAAM,QAAG,CAAF,EAAE,GAAC,CAAD,KAAH,CAAM,KAAC,GAAhB;AACS,2BAAM,CAAC;;;;eAAO,EAAE,GAAC,CAAD,CAAG,CAAb;AAEb,cAAI,EAAJ,IAAG;AACL,eAAM,MAAM,QAAG,CAAF,EAAE,GAAC,CAAD,KAAH,CAAO,KAAE,GAArB,EAES,iBAAM,CAAC;;;;aAAO,EAAE,GAAC,CAAD,CAAG,CAAb;;AAEjB,eAAQ,uBAAiB,CAAC,OAAO,EAAR;AAjGlB;AAAkB;AAqGC;AAAnB;AAGP;AAEA,WAAI,mBAAc;AAClB,UAAc,CAAV,SAAU,KAAE,CAAC,CAAH,CAAM,IAAc,CAAV,SAAU,GAAE,EAAF,CAAlC,EACE,YAAa,EADf;AAEuB,YAApB,GAAC,qBAAM,SAAS,GAAC,CAAhB;AAEJ,aAAM,MAAM,QAAC,CAAD,CAAI,KAAE,GAAlB,EACS,iBAAM,CAAC;;;;WAAQ,EAAG,CAAZ;AACf,UAAG,cAAG,CAAC,IAAI,MAAL;AACN,UAAG,CAAC,KAAC,CAAL;AAEE,iBAAQ,uBAAiB,CAAC,OAAO,EAAR;AACzB;OAHF;AAKI,OAAJ,IAAO;AACP,UAAG,MAAO,GAAE,CAAZ,EACE,SAAQ,CADV;AAEA,eAA2B,CAAZ,MAAD,OAAa,GAAF,CAAF,GAAM,MAAF,CAAS,GAAE,CAAF;AACpC,UAAG,MAAO,GAAE,CAAZ;AACE,yBAAM,CAAC,eAAI,CAAC,OAAO,EAAE,CAAC,MAAX,EAAmB;;;;aAAO,CAA/B;AAEN,mBAAc,CAAP,MAAO,GAAE,CAAF,CAAK,IAAe,CAAV,MAAM,QAAC,KAAD,CAAI,KAAE,GAAF,CAAlC;AAES,yBAAM,CAAC;;;;aAAQ,EAAG,CAAZ;AACb,YAAG,CAAE,GAAS,MAAD,OAAb;AAES,2BAAM,CAAC;;;;eAAQ,CAAE,GAAE,CAAF,CAAK,CAAhB;AACb;SAHF;AAKI,cAAJ,IAAG;;AAEP,eAAQ,uBAAiB,CAAC,OAAO,EAAR;AAnClB;AAAmB;AAsCH;AAAhB;AAGP,UAAG,MAAO,KAAE,CAAC,CAAb;AACE,iBAAU;AACP,gBAAG,MAAO,GAAE,EAAZ,EACH,SAAU,EADP;AAEe,YAAjB,GAAC,qBAAM,EAAE,MAAR;AACJ,UAAU,CAAN,MAAM,KAAE,EAAF,CAAM,IAAc,CAAT,MAAM,QAAC,CAAD,CAAG,KAAC,GAAD,CAA9B,EACE,iBAAM,CAAC;;;;WAAO,EAAE,CAAV,CADR;AAEA,eAAQ,uBAAiB,CAAC,OAAO,EAAR;AAVlB;AAAgB;AAcC;AAAjB;AAGP;AAGA,UAAG,MAAO,KAAE,CAAC,CAAb;AACE,iBAAU;AACP,gBAAG,MAAO,GAAE,EAAZ,EACH,SAAU,EADP;AAEe,YAAjB,GAAC,qBAAM,EAAE,MAAR;AACJ,UAAU,CAAN,MAAM,KAAE,EAAF,CAAM,IAAc,CAAT,MAAM,QAAC,CAAD,CAAG,KAAC,GAAD,CAA9B,EACE,iBAAM,CAAC;;;;WAAO,EAAE,CAAV,CADR;AAEA,UAAG,cAAG,CAAC,IAAI,MAAL;AACN,UAAI,CAAC,IAAE,CAAP,EACE,IAAU,MAAD,OAAQ,GAAC,CADpB;AAEA,eAAQ,uBAAiB,CAAC,OAAO,EAAR;AACrB,OAAJ,IAAM;AACN,UAAM,CAAF,EAAE,KAAE,EAAF,CAAM,IAAO,CAAF,EAAE,KAAE,MAAF,CAAnB,EACE,OAAO,CAAC,GAAC,CAAT;AAEE,YAAI,MAAM,QAAC,CAAC,GAAC,CAAD,IAAF,CAAM,KAAG,GAAnB,EACE,iBAAM,CAAC,GAAI;;;;aAAQ,CAAb,CADR;AAEI,SAAJ,IAAO;OALX;AAlBO;AAAiB;AA2BQ;AAAzB;AAKP;AACA;AACA;AAGA,eAAQ;AACR,iBAAY;AACZ,WAAM;AACN,eAAQ,eAAkB,OAAC,YAAD,yBAA1B;AAAI;AAEF,iBAAqB,CAAV,YAAM,YAAC,KAAD,CAAI,IAAG,cAAC,GAAK,gBAAI,GAAK,EAAf,CAAH,CAAwB,IAAa,CAAT,YAAM,QAAC,KAAD,CAAG,KAAC,EAAD,CAAb;AAC7C,YAAG,CAAI,MAAP,EACE,KADF;;AAGF,UAAI,MAAQ,IAAc,CAAT,YAAM,QAAC,CAAD,CAAG,KAAC,GAAD,CAA1B,EACE,iBAAM,CAAC,OAAQ,EAAG,CAAZ,CADR;AAnBO;AAAyB;AAuBL;AAApB;AAGP;AACA;AACA;AAAG;AAAG;AAGL,WAAI,SAAS;AACb,WAAI,SAAS;AACb,WAAI,SAAS;AAEb,UAAG,MAAO,KAAE,CAAC,CAAb;AACE,iBAAU,SAAS;AAChB,gBAAG,MAAO,GAAE,EAAZ,EACH,SAAU,EADP;AAEe,YAAjB,GAAC,6BAAM,EAAE,MAAR;AAEJ,iBAAU,MAAM,QAAC,CAAD,CAAI,KAAE,GAAF;AACpB,UAAG,QAAH,EACS,iBAAM,CAAC;;;;WAAQ,EAAG,CAAZ,CADf;AAEA,UAAK,cAAG,CAAC,IAAK,MAAN;AAER,UAAG,EAAE,KAAE,EAAP;AAEE,YAAG,CAAE,KAAG,CAAR;AACE,mBAAQ,uBAAiB,CAAC,OAAO,EAAR;AAEzB,kBAAY,MAAD,OAAQ,GAAC,CAAD;AACjB,SAAJ,IAAO;AACP,eAAO,CAAE,GAAE,CAAX;AAEI,2BAAM,CAAC,GAAI;;;;eAAQ,CAAb;AACN,WAAJ,IAAO;;OAVT;AAcA,UAAG,QAAH,EACE,+BAAyB,CAAC;;;;WAAO,GAAG,EAAX,CAD3B;AAIA,UAAG,CAAI,QAAP;AACgB,mBAAT,SAAS;AACZ,YADY,IACZ;AAAG,mBAAU,EAAG,GAAE,MAAF;AAChB,kBAFY,IAEZ;AAAG,mBAAU,MAAO,GAAE,EAAF;AACpB,kBAHY,IAGZ;AAAG,mBAAU,EAAS,GAAJ,GAAF,GAAQ,MAAF;AACtB,kBAJY,IAIZ,QAAG,SAAU,MAAa,GAAJ,GAAF,GAAQ,EAA5B;;AAGY,oBAAT,SAAS;AACZ,YADY,KACZ;AAAG,mBAAU,GAAkB,GAAZ,EAAF,GAAO,MAAF,GAAW,GAAF;AAC/B,kBAFY,KAEZ;AAAG,mBAAU,GAAS,GAAH,EAAF,GAAO,MAAF;AACtB,kBAHY,KAGZ;AAAG,mBAAU,EAAS,GAAJ,GAAF,GAAQ,MAAF;AACtB,kBAJY,KAIZ;AAAG,mBAAU,EAAY,GAAP,MAAF,GAAW,GAAF;AACzB,kBALY,KAKZ;AAAG,mBAAU,GAAkB,GAAZ,MAAF,GAAW,EAAF,GAAO,GAAF;AAC/B,kBANY,KAMZ;AAAG,mBAAU,GAAa,GAAP,MAAF,GAAW,EAAF;AAC1B,kBAPY,KAOZ;AAAG,mBAAU,MAAa,GAAJ,GAAF,GAAQ,EAAF;AAC1B,kBARY,KAQZ;AAAG,mBAAU,MAAY,GAAH,EAAF,GAAO,GAAF;AACzB,kBATY,KASZ;AAAG,mBAAU,GAAmB,GAAb,MAAF,GAAW,GAAF,GAAQ,EAAF;AAChC,kBAVY,KAUZ;AAAG,mBAAU,GAAe,GAAT,EAAF,GAAO,GAAF,GAAQ,MAAF;AAC5B,kBAXY,KAWZ;AAAI,mBAAU,MAAkB,GAAT,GAAF,GAAQ,EAAF,GAAO,GAAF;AAChC,kBAZY,KAYZ;AAAI,mBAAU,EAAkB,GAAb,GAAF,GAAQ,MAAF,GAAW,GAAF;AAChC,kBAbY,KAaZ;AAAI,mBAAU,EAAe,GAAV,GAAF,GAAQ,GAAF,GAAQ,MAAF;AAC7B,kBAdY,KAcZ;AAAI,mBAAU,MAAmB,GAAV,GAAF,GAAQ,GAAF,GAAQ,EAAF;AACjC,kBAfY,KAeZ;AAAI,mBAAU,GAAwB,GAAlB,EAAF,GAAO,GAAF,GAAQ,MAAF,GAAW,GAAF;AACtC,kBAhBY,KAgBZ,SAAI,SAAU,GAAwB,GAAlB,MAAF,GAAW,GAAF,GAAQ,EAAF,GAAO,GAAxC;;AAjEE;AAAoB;AAwgBjB,uBAAG;AAgNM;AAAZ;AAGP;AAGA,UAAG,kBAAa,CAAC,KAAK,MAAM,IAAI;;;;UAAhB,CAAhB;AACE,iBAAQ,gBAAK,CAAC,CAAD;AAEb,qBAAQ;AATH;AAAY;AAYA;AAAZ;AAGP,UAAG,CAAI,kBAAa,CAAC,KAAK,OAAO,OAAO,YAAY;;;;UAAhC,CAApB,EACE,SAAQ,CADV;AAHO;AAAY;AA0TQ,4DAAC,CAAD;AAA3B,iCAAkD,IAAI,GAAtD;AAwBU,qBAAG;AACP,iBAAG;AAJU;AAAZ;AAMc;AAGnB,qBAAU,WAAM,CAAC,kDAAmB,mBAAC,UAAD,CAApB,CAAhB;AAHmB;AAOpB;AACA;AAAE;AAAE;AAAE;AAAG;AAAG;AACZ;AAAE;AAAE;AACJ;AACA;AAAG;AAAG;AAAG;AACT;AACA;AACA;AAGS,YAAD,sBAAC,SAAO,CAAR;AACT,eAAQ;AACR,YAAY,CAAD;AACX,mBAAU,EAAV;AACA,aAAU,CAAH,GAAG,GAAC,CAAD,CAAI,IAA2B,CAAtB,cAAG,CAAC,CAAC,QAAC,OAAD,EAAM,UAAR,CAAmB,GAAC,CAAD,CAAzC,EACM,GAAJ,IAAG;AACL,UAAI,GAAG,KAAC,CAAR;AAEE,mBAAW,CAAC,CAAD;AACX;OAHF;AAKA,8BAAyB;AACzB,UAAG,SAAU,KAAE,MAAf,EACE,IAAI,mBAAc,cAAc,KAAE,MAAlC;AACE,oBAAa,mBAAc;AAE3B,wBAAW,GAJf;AAMA,WAAM,cAAS,CAAC,SAAD;AAEf,WAAI;AACJ,WAAI;AACJ,WAAI;AACJ,cAAO;AACP,UAAG;AACH,aAAQ,CAAD,CAAC,GAAQ,EAAD,OAAP,CAAa,IAAU,CAAL,KAAK,GAAC,CAAD,CAA/B;AAEO,SAAJ,IAAG;AACI,mBAAF,EAAE,QAAC,KAAD;AACL,YADK,IACL;AACE,cAAG,EAAE,KAAC,CAAN;AAEO,iBAAJ,IAAG;AACH,iBAAI;WAHP;AAKF,kBAPK,IAOL;AACE,cAAG,EAAE,KAAC,CAAN;AAEO,iBAAJ,IAAG;AACH,iBAAI;WAHP;AAKF,kBAbK,IAaL,UACE,IAAG,EAAE,KAAC,CAAN;AAEO,eAAJ,IAAG;AACH,eAAI;SAJT;;AASL,WAAI,IAAK,GAAL,CAAU,OAAV,CAAU,EAAd,EACE,MAAM,CAAC,CAAD,CAAN,GAAa;AACf,WAAM;AACN,UAAK;AACL,eAAS,QAAK,4BAAd;AAAI;AAED,YAAG,cAAG,CAAC,CAAC,QAAC,KAAD,EAAI,MAAN,CAAa,GAAC,CAApB,EACE,KAAM,EAAG,GAAE,CAAC,QAAC,KAAD,CADd;AAKA,YAAc,CAAV,SAAU,KAAG,GAAH,CAAQ,IAAU,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,GAAF,CAAhC,EACE,QADF;AAEA,YAAS,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,SAAF,CAAa,IAAc,CAAP,CAAF,CAAE,KAAE,GAAF,CAAO,IAAqB,CAAhB,cAAG,CAAC,CAAC,QAAC,KAAD,EAAI,MAAN,CAAa,GAAC,CAAD,CAArB,CAApC;AAEO,WAAJ,IAAG;AACH,cAAG,CAAC,GAAC,CAAL;AAGI,uBAAW,CAAC,CAAD;AACX;WAJJ;AAOA,cAAK,CAAD,CAAC,KAAC,EAAD,CAAK,IAAe,CAAH,EAAD,OAAI,GAAC,CAAD,CAAzB,EAAkC,wBAAyB,IAA3D;AACA,0BAAG,CAAC,GAAU,CAAC,MAAP,WAAM;;;;eAAK;;;;cAAhB;AACH,cAAG,CAAC,KAAE,CAAN;AAGI,uBAAW,CAAC,CAAD;AACX;WAJJ;AAMA,eAAM;SAEJ,UAAI,cAAG,CAAC,CAAC,QAAC,KAAD,EAAI,MAAN,CAAa,KAAC,CAArB;AAGH,qBAAW,CAAC,CAAD;AACX;SAJG;;AAQP,UAAS,CAAL,KAAK,GAAC,CAAD,CAAI,IAAM,CAAD,CAAC,GAAC,KAAD,CAAnB;AAEC,mBAAW,CAAC,CAAD;AACX;OAHD;AAMD,qBAAU,CAAC,YAAK;;;;WAAG;;;;WAAG;;;;UAAZ;AACV,UAAG,CAAC,KAAC,CAAL;AAEG,YAAG,MAAM,CAAC,EAAD;AACT,YAAG,MAAM,CAAC,EAAD;AACT,YAAG,MAAM,CAAC,EAAD;;AAIV,YAAG;AACH,YAAG,CAAC,GAAC,CAAL;AAEG,cAAG,MAAM,CAAC,CAAD;AACT,cAAK;SAGP,UAAG,EAAE,GAAC,EAAN;AAEG,cAAG,MAAM,CAAC,CAAD;AACT,cAAG,MAAM,CAAC,CAAD;;AAIT,cAAG,MAAM,CAAC,CAAD;AACT,cAAG,MAAM,CAAC,CAAD;;;AAGf,UAAM,CAAF,CAAE,IAAG,CAAH,CAAoB,IAAP,CAAF,CAAE,GAAE,GAAF,CAAP,IAAkB,CAAI,qBAAlC;AAEE,aAAM,EAAG,GAAE,8BAAF;AACL,SAAJ,IAAU,UAAH,EAAG,GAAI,GAAJ,CAAQ,GAAE,GAAF;AAClB,YAA8B,CAA1B,8BAA0B,GAAE,CAAF,CAAK,IAAO,CAAF,CAAE,GAAE,EAAF,CAA1C,EACM,CAAJ,IAAO,GADT;OAJF;AAOA,UAAG,CAAI,kBAAa,CAAC,EAAG,EAAG,EAAG;;;;UAAV,CAApB,EACE,aAAU,8CAAV,CADF;AA1JO;AAAY;AAgMV,oBAAG;AACL,kBAAG;AACH,kBAAG;AACJ,iBAAG;AACJ,gBAAG;AACH,gBAAG;AACF,iBAAG;AAaA,mBAAG;AAtBO;AAAZ;AAeN;AACA;AAGsB;AAAb;AAKN;AAAK;AAAQ;AAAS;AAAK;AAAW;AACtC;AACA;AAAc;AACd;AACA;AACA;AACA;AAGD,iBAAU;AACV,iBAAQ,CAAR;AACA,sBAAe;AACf,oBAAa;AACb,aAAI,IAAG,GAAH,CAAa,OAAb,CAAa,EAAjB,EACC,gBAAU,CAAC,CAAD,CAAV,GAAe;AAChB,cAAO;AAEP,eAAW,CAAJ,GAAI,GAAE,GAAF,CAAO,IAAY,CAAP,CAAC,QAAC,OAAD,CAAM,KAAC,GAAD,CAA9B,EAA2C,GAAJ,IAAG;AAC1C,iBAAU;AAEV,YAAQ,CAAJ,GAAI,GAAM,CAAJ,GAAI,GAAE,CAAF,CAAN,CAAiD,IAA3B,CAAP,CAAC,QAAC,OAAD,CAAM,KAAE,SAAS,cAAX,CAAX,IAAiD,CAAP,CAAC,QAAC,OAAD,CAAM,KAAE,SAAS,iBAAX,CAApE;AAGE;SAHF;AAKA,uBAAiB,cAAG,CAAC,CAAC,QAAC,OAAD,EAAM,QAAR,CAAe,GAAC,CAAD;AACnC,eAAO,GAAI,IAAG,GAAd;AAIE,oBAAW,CAAC,QAAC,OAAD;AACZ,cAAG,cAAG,CAAC,QAAQ,QAAT,CAAgB,GAAC,CAAvB;AAOE,gBAAI,CAAK,YAAsC,IAAc,CAAV,SAAU,GAAE,CAAF,CAA7D;AAGG;aAHH;AAKA,qBAAU;AACV,gBAAI,OAAQ,KAAG,GAAf;AAAyB,sCAAyB;AAAY,0CAAyB,CAAC;AACxF,mBAAW,CAAJ,GAAI,GAAE,GAAF,CAAO,IAA2B,CAAtB,cAAG,CAAC,CAAC,QAAK,CAAJ,GAAI,GAAE,CAAF,KAAL,EAAU,QAAZ,CAAmB,GAAC,CAAD,CAA7C;AAGE,kBAA0B,CAAtB,qBAAsB,KAAE,CAAC,CAAH,CAAM,IAAY,CAAP,CAAC,QAAC,OAAD,CAAM,KAAG,GAAH,CAA5C,EAAyD,wBAAyB,GAAlF;AACI,iBAAJ,IAAG;;AAEL,gBAAI,qBAAsB,KAAE,CAAC,CAA7B,EAAqC,wBAAyB,GAA9D;AACA,sBAAY,CAAD,CAAC,GAAE,GAAF,CAAM,GAAE,qBAAF;AAIlB,gBAAY,CAAR,OAAQ,IAAG,CAAH,CAAM,IAAmB,CAAN,CAAR,OAAQ,IAAG,CAAH,CAAM,IAAe,CAAV,SAAU,KAAE,CAAF,CAAf,CAArC;AAEE,8BAAG,CAAC,eAAI,CAAC,EAAE,sBAAuB,OAA1B,EAAoC;;;;mBAAO;;;;kBAAhD;AAGH,8BAAU,CAAC,SAAD,CAAV,GAAyB;AACrB,uBAAJ,IAAG;AACH,6BAAgB;;AAKhB;;WAGC,UAAI,OAAQ,KAAE,GAAd,EAKA;mBAAI,OAAQ,KAAE,SAAS,cAAvB;AAGH,gBAAG,YAAa,IAAc,CAAV,SAAU,GAAE,CAAF,CAA9B;AAGE;aAHF;AAKA,2BAAgB;AAChB,0BAAe;WAEZ,UAAI,OAAQ,KAAE,SAAS,iBAAvB;AAGH,gBAAG,YAA4B,IAAZ,WAAH,IAA6B,CAAV,SAAU,KAAG,CAAH,CAA7C;AAGG;aAHH;AAKA,2BAAgB;AAChB,0BAAe;;AAOf,gBAAS,CAAL,UAAK,KAAG,CAAH,CAAc,IAAG,YAA1B;AAGE;aAHF;AAKA,qBAAU;AACV,2BAAc,SAAS,iBAAiB,GAAC,GAAD;AACxC,gBAAG,SAAS,cAAc,KAAE,MAA5B,EACE,eAAc,YAAY,GAAC,SAAS,cADtC;AAEA,mBAAW,CAAJ,GAAI,GAAE,GAAF,CACT,IADiD,CAA5B,cAAG,CAAC,CAAC,QAAK,CAAJ,GAAI,GAAE,CAAF,KAAL,EAAU,YAAZ,CAAyB,KAAC,CAAD,CAAjC,IACW,CAAtB,cAAG,CAAC,CAAC,QAAK,CAAJ,GAAI,GAAE,CAAF,KAAL,EAAU,QAAZ,CAAmB,KAAC,CAAD,CAD7B,EACwC,GAAJ,IAAG;AACvC,sBAAa,CAAF,CAAE,GAAE,GAAF,CAAM,GAAE,MAAF;AAGnB,sBAAW,eAAI,CAAC,EAAE,OAAQ,OAAX;AAKf,gBAAI,gBAAW,CAAC,QAAS,SAAS,aAAnB,CAAkC,KAAE,CAAnD;AAA2D,uBAAQ,CAAR;AACtD,sBAAI,gBAAW,CAAC,QAAS,SAAS,aAAnB,CAAkC,KAAE,CAAnD;AAA2D,uBAAQ,CAAR;AAC3D,sBAAI,gBAAW,CAAC,QAAS,IAAV,CAAgB,KAAE,CAAjC;AAAyC,uBAAQ,CAAR;AACzC,sBAAI,gBAAW,CAAC,QAAS,IAAV,CAAgB,KAAE,CAAjC;AAAyC,uBAAQ,CAAR;;AAI5C;;AAGF,gBAAI,SAAU,KAAE,CAAhB;AAEE,6BAAgB;;AAKhB,0BAAa,CAAO,GAAE,CAAF;AACpB,6BAAgB;;;AAGhB,aAAJ,IAAG;;AAML,YAAc,CAAV,SAAU,KAAE,CAAF,CAA+F,IAA7D,CAAd,CAAL,UAAK,KAAG,CAAH,CAAc,IAA+B,CAAN,CAAnB,gBAAU,CAAC,CAAD,CAAS,GAAE,EAAF,CAAM,IAAuB,CAAnB,gBAAU,CAAC,CAAD,CAAS,KAAE,CAAF,CAAvB,CAA/B,CAAxB,IAAwF,YAAhH,EACE,aADF;AAEA,iBAAU;AA5JH;AAAa;AAgKb,gBAAD,sBAAC,aAAW,CAAZ;AACT,aAAQ;AACR,UAAG,CAAI,aAAa,CAAC;;;;WAAY;;;;UAAb,CAApB;AAEE,qBAAU,WAAM,CAAC,qDAAsB,mBAAC,IAAD,CAAvB,CAAhB;AACA;OAHF;AAKA,UAAQ,CAAJ,IAAI,KAAC,CAAD,CAAU,IAAuB,CAAlB,UAAU,CAAC,CAAD,CAAQ,KAAE,EAAF,CAAzC;AAAwD,kBAAU,CAAC,CAAD,CAAd,IAAwB;AACvE,gBAAQ,CAAJ,IAAI,KAAC,CAAD,CAAU,IAAuB,CAAlB,UAAU,CAAC,CAAD,CAAQ,KAAC,EAAD,CAAzC,EAAmD,UAAU,CAAC,CAAD,CAAV,GAAoB,CAAvE;AAEL,UAAG,CAAI,kBAAa,CAAC,UAAU,CAAC,CAAD,EAAU,UAAU,CAAC,CAAD,EAAS,UAAU,CAAC,CAAD,EAAS,UAAU,CAAC,CAAD,EAAU;;;;UAA/E,CAApB,EAEE,aAAU,WAAM,CAAC,qDAAsB,mBAAC,IAAD,CAAvB,CAAhB,CAFF;AA7LO;AAAY;AAkPT,uBAAG;AAfU;AAAhB;AAkBP;AACA;AAEA,eAAU;AACV,kBAAW,EAAX;AACA,kBAAW,EAAX;AACA,oBAAe,SAAI,CAAC,WAAD;AACnB,UAAU,WAAD,OAAc,KAAE,CAAzB,EAAgC,aAAhC;AACA,UAA4B,CAAxB,SAAS,cAAe,KAAE,GAAF,CAA2C,IAAP,CAAxB,SAAS,cAAe,KAAE,GAAF,CAA7B,IAA+D,CAAtB,cAAG,CAAC,IAAK,WAAN,CAAmB,GAAE,CAAF,CAAlG;AAEE,oBAAS,WAAT;AAMI,eAAC;OARP;AAUA,UAAG;AAEH,UAAI,SAAS,cAAc,KAAE,GAA7B;AAEE,eAAQ,CAAD,CAAC,GAAQ,WAAD,OAAP,CAAsB,IAAK,CAAqC,CAAhC,cAAG,CAAC,WAAW,QAAE,CAAD,CAAC,GAAC,CAAD,KAAF,EAAM,YAAlB,CAA6B,GAAC,CAAD,CAAxE,EACM,CAAJ,IAAG;;AAIL,YAAG,cAAG,CAAC,SAAS,eAAgB,WAA1B;AACN,YAAI,CAAC,KAAE,CAAP,EACE;AACM,WAAJ,IAAG;SADL,QAEY,EAAJ,CAAD,CAAC,KAAC,CAAD,CAAI,IAAkC,CAA9B,cAAG,CAAC,WAAW,QAAC,KAAD,EAAI,YAAhB,CAA2B,GAAC,CAAD,CAAlC,CAFZ,CADF;;AAMF,UAAI,CAAC,KAAC,CAAN,EACE,IAAU,WAAD,OADX;AAEA,kBAAS,eAAI,CAAC,YAAY,EAAE,CAAf,CAAb;AACA,kBAAS,SAAI,CAAC,eAAI,CAAC,YAAY,CAAC,GAAC,CAAD,CAAG,GAAjB,CAAL,CAAb;AACA,UAAW,aAAD,OAAS,KAAE,CAArB;AACE,iBAAQ;;AAGR,iBAAQ;AAIR,YAAuD,CAA3B,CAAvB,SAAS,cAAc,KAAE,SAAS,cAAX,CAA2B,IAA0C,CAArC,cAAG,CAAC,SAAS,eAAe,aAAzB,CAAkC,GAAE,CAAF,CAA1C,CACpD,IAAsD,CAA1B,CAAvB,SAAS,cAAc,KAAC,SAAS,cAAV,CAA0B,IAAK,CAAI,iBAAY,CAAC,cAAS;;;;YAAV,CAArB,CADzD;AAGE,sBAAW,aAAX;AACA,sBAAW,EAAX;SAJF;;AAhEK;AAAgB;AA0wBF;AAAd;AAGP,kBAAkB;AAClB;AACA;AAGA,UAAG;AAEH,UAAe,CAAX,cAAG,CAAC,KAAK,CAAN,CAAQ,KAAE,CAAF,CAA2C,IAAxB,CAAV,cAAG,CAAC,IAAI,CAAL,CAAO,KAAE,CAAF,CAAd,IAAiC,CAAV,cAAG,CAAC,IAAI,CAAL,CAAO,KAAE,CAAF,CAAd,IAAmC,CAAZ,cAAG,CAAC,IAAK,CAAN,CAAS,GAAE,CAAF,CAA1E,EACM,OAAC,KADP;AAES,iBAAJ,eAAI,CAAC,EAAE,EAAE,CAAL;AACT,UADS,IACT;AAAK,gBAAO;AACZ,gBAFS,IAET;AAAK,gBAAO;AACZ,gBAHS,IAGT,UAAK,QAAO,CAAZ;AAGA,UAAS,CAAL,KAAK,KAAE,EAAF,CAAM,IAA0B,CAArB,cAAG,CAAC,IAAI,cAAS,CAAC,CAAD,CAAd,CAAkB,KAAE,CAAF,CAAzC,EACM,OAAC,KADP;AAEA,UAAG,KAAK,KAAE,EAAV,EACE,iBAAM,CAAC;;;;WAAE,EAAE,CAAL,CADR;AAGA,UAAG,QAAQ,CAAC,EAAE,KAAH;AACX,eAAQ,CAAI,KAAO,CAAC,CAAD;AACnB,UAAG,MAAH,EACE,QAAc,UAAC,CAAD,CAAd,CADF;AAzBO;AAAc;AAsQW;AAIhC,kCAAgC,6BAAhC;AACA,2BAAe,mBAAc;AAC7B,2BAAe,mBAAc;AAC7B,6BAAiB,mBAAc;AAC/B,4BAAgB,mBAAc;AAC9B,6BAAiB,mBAAc;AAC/B,4BAAgB,mBAAc;AAC9B,8BAAkB,mBAAc;AAChC,+BAAmB,mBAAc;AACjC,0BAAc,mBAAc;AAC5B,0BAAc,mBAAc;AAC5B,4BAAgB,mBAAc;AAC9B,2BAAe,mBAAc;AAC7B,8BAAkB,mBAAc;AAChC,4BAAgB,mBAAc;AAlBE;AAk4BV;AAGtB,YAAM,cAAS,QAAC,YAAM,CAAC,wBAAwB,GAAC,CAA1B,CAAN;AAHM;AAsJP;AAAR;AAGP;AAGA,UAAG;AACH,eAAQ;AACR,aAAO,CAAI,MAAQ,IAAM,CAAD,CAAC,GAAO,WAAC,KAAD,CAAP,CAAzB;AAEE,iBAAS,KAAK,CAAC,CAAD,CAAG,KAAC,KAAD;AACb,SAAJ,IAAG;;AAXE;AAAQ;AA09CJ;AACT;AACA;AACA;AAHS;eACT,sBACA,IAAA,oBACA,kCADA;AAFS;;AACT;AACA;AACA;AAHS;;;AACT;AACA;AACA;AAHS;AAQQ;AAAZ;AAGP;AACA;AAGA,UAAmB,IAAhB,YAAgB,CAAI,CAAJ;AACnB,UAAiB,IAAd,UAAc,CAAI,CAAC,OAAL;AACjB,OAAE,GAAF,GAAM;AACN,YAAM,KAAN,GAAmB,CAAL,CAAE,GAAG,KAAI,CAAJ,CAAM,KAAC,CAAD;AACzB,YAAM,IAAN,GAAoC,CAAP,CAAT,CAAL,CAAE,GAAG,GAAI,IAAJ,CAAS,IAAI,CAAJ,CAAO,GAAS,CAAL,CAAE,GAAG,KAAI,CAAJ,CAAT,CAAgB,GAAE,KAAF;AACpD,OAAE,GAAF,GAAM;AACN,OAAE,GAAF,GAAM,CAAE,GAAG,GAAG,IAAH;AACX,YAAM,SAAN,GAAiB,CAAE;AAdZ;AAAY;AAmvDH;AAAT;AAEP,eAAU,OAAQ,KAAE,OAAF;AAFX;AAAS;AAOV,iBAAG;AAFU;AAAZ;AAIP;AACA;AACA;AACA;AACA;AACA;AAEA,eAAU;AACV,eAAc,QAAK,gDAAnB;AAAI;AAEF,iBAAU,mBAAQ,CAAC,MAAD;AAClB,kBAAiB,kCAAN;;;;aAAiB,CAAX;AACjB,sBAAsB;AACtB,wBAAa,gBAAb;AAAI;AAEF,mBAAiB,kCAAP;;;;eAAgB,MAAO,GAAE,KAAlB;AACjB,cAAG,MAAO,IAAG,CAAb;AAEE,0BAA2C,iCAAZ,CAAV,qCAAN;;;;mBAAiB,MAAO,GAAE,CAApB,GAAU;;;;gBAAY;AAC3C,qBAAyC,kCAAf,CAAV,uCAAN;;;;mBAAiB,EAAG,MAAO,GAAE,CAAvB,GAAU;;;;gBAAe;AACzC;WAJF;;AAQQ,cAAD,sBAAC,UAAc,WAAC,MAAD,CAAS,GAAE,CAA1B;AACT,cAAM,CAAK,WAAC,MAAD,KAAL,CAAN,GAAwB;AACxB,YAAG,CAAe,gCAAX;;;;YAAW,CAAlB;AAEY,gBAAD,sBAAC,UAAc,WAAC,MAAD,CAAS,GAAE,CAA1B;AACT,gBAAM,CAAK,WAAC,MAAD,KAAL,CAAN,GAAwB;SAH1B;;AA9BK;AAAY;AAlhQP,6BAgFD,yCACU,mEACG,mEAlFZ;;AA48Qd;AA5vTA,KAkrLsC;AAEpC;AAFoC,KAlrLtC;AA6vTE,2BAAiB;AACjB,0BAAgB;AAChB,yBAAe;AACf,wBAAc;AAJhB;AA5vTA;ACAA,sBAKS,8CALT;;;;AAYW;;AAKG,uCFsBH,qCEtBG;AAKG,0CFiBN,qCEjBM;AAMI,8CHZH,oCGYG;AAIV;AAOO,2CAPP,qCAOO;AAIR;;AAaQ,2CAxBP,mCAwBO;AASP;AAWI,wCApBG,0CAoBH;AAQD,uCApDH,mCAoDG;AAQQ,+CA5DX,mCA4DW;AAQH,4CApER,mCAoEQ;AAKP;;AAQC,iCARD,kCAQC;AAII;AAOC,2CAPD,qCAOC;AAEF;;AAOC,qCAPD,sCAOC;AAII;AASH,2CAlHP,mCAkHO;AAOK,gDAPL,0CAOK;AAGV;;AASC,kCATD,mCASC;AAIM,6CAvBF,0CAuBE;AAKH;;AAMC,sCAND,uCAMC;AAIL;AAMQ,8CANR,iCAMQ;AAIH,2CAVL,qCAUK;AAOC,4CAjBN,qCAiBM;AAKQ,oDALR,uCAKQ;AAGZ,uBAAG;AACF,wBAAG;AAEJ,uBAAG;AACH,uBAAG;AACA,0BAAG;AACT,oBAAG;AAKM,8CApCR,qCAoCQ;AAWQ,sDAXR,yCAWQ;AAIf;AAUG,0CArNN,mCAqNM;AA4BA,0CA5BA,yCA4BA;AAOD,yCAnCC,yCAmCD;AAQG,4CAhQR,mCAgQQ;AAQA,4CAxQR,mCAwQQ;AAOD,2CA/QP,mCA+QO;AAKF,yCF7QL,qCE6QK;AAaI,6CA5EH,yCA4EG;AAQH,0CApFA,yCAoFA;AAOG;AAMF,2CF/SP,qCE+SO;AAOF;;AA2HI;AAAX;AAEP,aAAU,QAAQ;AAFX;AAAW;AAKI;AAAf;AAEP;AACA;AACA;AACA;AAEA,aAAQ;AACR,YAAiB,IAAV,MAAU;AACjB,QAAG;AACH,WAAM,CAAC,KAAE,IAAT;AAEE,eAAO,QAAoB,OAAT,WAAC,CAAC,MAAF,CAAS,GAAC,CAAD,kBAA3B;AAAI;AAEF,mBAAU,CAAC,MAAM,CAAC,CAAD;AACjB,YAAG,KAAK,eAAe,CAAC,QAAD,CAAvB,EAAuC,QAAvC;AACS,cAAO,KAAK,CAAC,CAAC,QAAS,UAAX;AACrB,aAAM,UAAN,GAAiB;;AAEnB,UAAG,CAAO,UAAF,EAAK,kBAAH,CAAV,EAAkC,KAAlC;AACA,UAAkB,CAAE;;AApBf;AAAe;AAwBD;AAAd;AAEP;AACA;AAGA,QAAG;AACH,WAAM,CAAC,KAAE,IAAT;AAEE,UAAa,CAAC,QAAS,eAAe,CAAC,KAAD,CAAtC,EACM,OAAC,CAAC,QAAS,OADjB;AAEA,UAAG,CAAO,UAAF,EAAK,kBAAH,CAAV,EAAkC,KAAlC;AACA,UAAkB,CAAE;;AAGtB,QAAG;AACH,WAAM,CAAC,KAAE,IAAT;AAEE,eAAO,QAAoB,OAAT,WAAC,CAAC,MAAF,CAAS,GAAC,CAAD,kBAA3B;AAAI;AACF,YAAG,wBAAW,CAAC,CAAC,MAAM,CAAC,CAAD,EAAI,KAAZ,CAAkB,KAAC,CAAjC,EACM,OAAC,CAAC,QAAgB,CAAP,CAAC,MAAM,CAAC,CAAD,EADxB;;AAEF,UAAG,CAAO,UAAF,EAAK,kBAAH,CAAV,EAAkC,KAAlC;AACA,UAAkB,CAAE;;AAEtB,aAAQ;AAxBD;AAAc;AA2BG;AAAjB;AAEP;AAEA,QAAG,QAAQ,KAAC,IAAZ,EAAyB,OAAC,IAA1B;AACA,SAAI,mBAAc,CAAU,QAAD,OAAW,KAApB;AAClB,QAAG,CAAQ,UAAH,GAAM,qBAAH,CAAX,EAA0C,OAAC,IAA3C;AACA,aAAQ,kBAAY,CAAC,SAAS,EAAE,KAAZ;AAPb;AAAiB;AAUF;AAAf;AAEP;AACA;AAAG;AAAK;AAER,UAAK;AACL,QAAG;AACH,WAAM,CAAC,KAAE,IAAT;AAEM,SAAJ,IAAQ,CAAC,QAAC;AACV,UAAG,CAAO,UAAF,EAAK,kBAAH,CAAV,EAAkC,KAAlC;AACA,UAAkB,CAAE;;AAEZ,UAAD,sBAAC,YAAO,GAAR;AACT,QAAG;AACH,QAAG;AACH,WAAM,CAAC,KAAE,IAAT;AAEE,eAAO,QAAkB,OAAb,CAAC,QAAC,OAAW,GAAC,CAAD,kBAAzB;AAAI;AAEF,cAAM,CAAC,CAAD,CAAN,GAA6B,CAAC,QAAkB,CAAT,CAAC,QAAQ,CAAC,CAAD;AAC5C,SAAJ,IAAG;;AAEL,UAAG,CAAO,UAAF,EAAK,kBAAH,CAAV,EAAkC,KAAlC;AACA,UAAkB,CAAE;;AAxBf;AAAe;AA4BI;AAAnB;AAGP;AACA;AAAG;AAAK;AAER,UAAK;AACL,WAAM;AACN,WAAM,IAAI,KAAE,IAAZ;AAEM,SAAJ,IAAc,WAAC,IAAI,MAAL;AACd,aAAM,IAAI;;AAEF,UAAD,sBAAC,YAAO,GAAR;AACT,WAAM;AACN,QAAG;AACH,WAAM,IAAI,KAAE,IAAZ;AAEE,eAAO,QAAuB,OAAZ,WAAC,IAAI,MAAL,CAAY,GAAC,CAAD,kBAA9B;AAAI;AAEF,cAAM,CAAC,CAAD,CAAN,GAAW,IAAI,QAAmB,CAAV,IAAI,MAAM,CAAC,CAAD;AAC9B,SAAJ,IAAG;;AAEL,aAAM,IAAI;;AAvBL;AAAmB;AA2BD;AAAlB;AAGP;AACA;AAGA,WAAM;AACN,WAAM,IAAI,KAAE,IAAZ;AAEE,UAAa,IAAI,QAAS,eAAe,CAAC,KAAD,CAAzC,EACM,OAAC,IAAI,QAAS,OADpB;AAEA,aAAM,IAAI;;AAGZ,WAAM;AACN,WAAM,IAAI,KAAE,IAAZ;AAEE,eAAO,QAAuB,OAAZ,WAAC,IAAI,MAAL,CAAY,GAAC,CAAD,kBAA9B;AAAI;AACF,YAAG,wBAAW,CAAC,IAAI,MAAM,CAAC,CAAD,EAAI,KAAf,CAAqB,KAAC,CAApC,EACM,OAAC,IAAI,QAAmB,CAAV,IAAI,MAAM,CAAC,CAAD,EAD9B;;AAEF,aAAM,IAAI;;AAEZ,aAAQ;AAvBD;AAAkB;AA0BC;AAAnB;AAGP;AACA;AAAG;AAAK;AAER,UAAK;AACL,WAAM;AACN,WAAM,IAAI,KAAE,IAAZ;AAEM,SAAJ,IAAQ,IAAI,QAAC;AACb,aAAM,IAAI;;AAEF,UAAD,sBAAC,YAAO,GAAR;AACT,WAAM;AACN,QAAG;AACH,WAAM,IAAI,KAAE,IAAZ;AAEE,eAAO,QAAqB,OAAhB,IAAI,QAAC,OAAW,GAAC,CAAD,kBAA5B;AAAI;AAEF,cAAM,CAAC,CAAD,CAAN,GAA6B,IAAI,QAAqB,CAAZ,IAAI,QAAQ,CAAC,CAAD;AAClD,SAAJ,IAAG;;AAEL,aAAM,IAAI;;AAvBL;AAAmB;AAkCF;AAAjB;AAGP;AAAG;AACH;AACA;AACA;AAEA,aAAQ;AACR,QAAG,UAAU,IAAC,SAAd,EAA6B,aAA7B;AACA,QAAG;AACH,UAAW,WAAC,UAAD;AACX,WAAM,CAAC,GAAC,GAAR;AAEE,kBAAiC,cAAC,UAAU,CAAC,CAAD,CAAX;AAC7B,OAAJ,IAAG;AACH,iBAAgB,KAAC,UAAU,CAAC,CAAD,CAAX;AACZ,OAAJ,IAAG;AACH,UAAK,CAAD,CAAC,GAAC,GAAD,CAAM,IAAI,WAAO,CAAC,UAAU,CAAC,CAAD,CAAX,CAAtB;AAEE,eAAM,SAAS,QAAO,CAAC,SAAS,UAAU,CAAC,CAAD,CAApB;AAClB,SAAJ,IAAG;OAGH,aAAM,SAAS,QAAO,CAAC,QAAD;AACZ,YAAN,mBAAC,KAAK,OAAa,WAAC,MAAD,CAAnB;;AAzBD;AAAiB;AA6BL;AAAZ;AAEP;AACA;AACA;AACA;AAEA,aAAQ;AACR,QAAG;AACH,YAAiB,IAAV,MAAU;AACjB,WAAM,CAAC,KAAE,IAAT;AAEE,eAAO,QAAgB,OAAX,CAAC,WAAC,OAAS,GAAC,CAAD,kBAAvB;AAAI;AAEF,mBAAU,CAAC,WAAW,CAAC,CAAD;AACtB,YAAG,KAAK,eAAe,CAAC,QAAD,CAAvB,EAAuC,QAAvC;AACS,cAAO,KAAK,CAAqB,CAAC,QAAS,UAA/B;AACrB,aAAM,UAAN,GAAiB;;AAEnB,UAAG,CAAO,UAAF,EAAK,kBAAH,CAAV,EACE,KADF;AAEA,UAAkB,CAAE;;AArBf;AAAY;AAyBD;AAAX;AAGU;AAAR;AAEP,UAAuB,CAAE,KAAK,GAAqB,CAAE,KAArD;AACE,iBAAQ,CAAC;AACN,gBAAuB,CAAE,KAAK,GAAqB,CAAE,KAArD;AACH,iBAAQ;AAER,qBAAQ;AAPH;AAAQ;AAWjB;AACA;AACA;AACA;AACA;AAEA,aAAQ;AACR,QAAG;AACH,YAAiB,IAAV,MAAU;AACjB,WAAM,CAAC,KAAE,IAAT;AAEE,eAAO,QAAgB,OAAX,CAAC,WAAC,OAAS,GAAC,CAAD,kBAAvB;AAAI;AAEF,mBAAU,CAAC,WAAW,CAAC,CAAD;AACtB,YAAG,KAAK,eAAe,CAAC,QAAD,CAAvB,EAAuC,QAAvC;AACA,eAA0B,CAAC,QAAS;AACpC,YAAG,CAAwB,CAAnB,IAAI,SAAS,KAAM,IAAG,SAAH,CAA3B,EAA8C,QAA9C;AACS,cAAO,KAAK,CAAC,IAAD;AACrB,aAAM,UAAN,GAAiB;;AAEnB,UAAG,CAAO,UAAF,EAAK,kBAAH,CAAV,EACE,KADF;AAEA,UAAkB,CAAE;;AAEtB,QAAG,MAAH,EACW,MAAO,KAAK,UADvB;AAtCO;AAAW;AA0CA;AAAX;AAEP,aAAQ,iBAAY,CAAC,SAAD;AAFb;AAAW;AAKA;AAAX;AAEP,aAAQ,iBAAY,CAAU,MAAD,MAAT;AAFb;AAAW;AAKA;AAAX;AAEP,aAAQ,kBAAW,CAAC,QAAQ,OAAC,YAAV;AAFZ;AAAW;AAKA;AAAX;AAGP;AACA;AACA;AAGA,QAAG;AACH,WAAM,CAAC,KAAE,IAAT;AAEE,UAAG,CAAC,QAAS;AACb,UAAK,UAAF,EAAK,uBAAH,CAAL,EACM,OAAqB,CAD3B;AAEA,UAAG,CAAO,UAAF,EAAK,kBAAH,CAAV,EACE,KADF;AAEA,UAAkB,CAAE;;AAItB,aAAQ;AACR;AACE,eAAO,QAAiB,OAAZ,EAAE,WAAC,OAAS,GAAC,CAAD,kBAAxB;AAAI;AACF,YAAG,wBAAW,CAAC,SAAS,EAAE,WAAW,CAAC,CAAD,CAAvB,CAA2B,KAAC,CAA1C;AAEE,cAAG,EAAE,QAAsB,CAAb,EAAE,WAAW,CAAC,CAAD;AAC3B,cAAK,UAAF,EAAK,uBAAH,CAAL,EACE,SAA4B,CAD9B;AAEA;SALF;;AAOF,UAAG,CAAQ,UAAH,GAAM,kBAAH,CAAX,EACE,KADF;AAEA,WAAmB,EAAG;KAXxB,QAYQ,EAAF,EAAE,KAAC,IAAD,CAZR;AArBO;AAAW;AAoCA;AAAX;AAGP,aAAQ,gBAAW,CAAC,GAAG,QAAJ;AACnB,QAAS,UAAL,MAAO,EAAF,CAAwB,IAAP,CAAN,MAAM,KAAE,IAAF,CAAX,IAAsB,CAA0B,CAArB,MAAM,SAAS,KAAM,IAAG,KAAH,CAA/D,EACE,SAAQ,IADV;AAJO;AAAW;AAQA;AAAX;AAGP,aAAQ,kBAAW,CAAU,QAAD,OAAW,SAAS,EAA7B;AAHZ;AAAW;AAMA;AAAX;AAGP,aAAQ,kBAAW,CAAU,QAAD,OAAW,SAAS,KAA7B;AAHZ;AAAW;AAMA;AAAX;AAGP,aAAQ,kBAAW,CAAU,MAAD,OAAS,SAAS,EAA3B;AAHZ;AAAW;AAMA;AAAX;AAGP,aAAQ,kBAAW,CAAU,MAAD,OAAS,SAAS,KAA3B;AAHZ;AAAW;AAMC;AAAZ;AAGP,aAAQ,gBAAW,CAAU,QAAD,OAAY,QAArB;AACnB,QAAG,MAAM,KAAC,IAAV,EACE,MAAM,mBAAc,QAAC,aAAS,CAAC,oDAAsB,mBAAC,WAAD,CAAvB,CAAT,CADvB;AAJO;AAAY;AAQA;AAAZ;AAGP,aAAQ,kBAAW,CAAU,QAAD,OAAY,SAAU,KAA/B;AACnB,QAAG,MAAM,KAAC,IAAV,EACE,MAAM,mBAAc,QAAC,aAAS,CAAC,oDAAsB,mBAAC,WAAD,CAAvB,CAAT,CADvB;AAJO;AAAY;AAQA;AAAZ;AAGP,aAAQ,gBAAW,CAAU,MAAD,OAAU,QAAnB;AACnB,QAAG,MAAM,KAAC,IAAV,EACE,MAAM,mBAAc,QAAC,aAAS,CAAC,oDAAsB,mBAAC,WAAD,CAAvB,CAAT,CADvB;AAJO;AAAY;AAQA;AAAZ;AAGP,aAAQ,kBAAW,CAAU,MAAD,OAAU,SAAU,KAA7B;AACnB,QAAG,MAAM,KAAC,IAAV,EACE,MAAM,mBAAc,QAAC,aAAS,CAAC,oDAAsB,mBAAC,WAAD,CAAvB,CAAT,CADvB;AAJO;AAAY;AAQA;AAAZ;AAKa,eAAf,QAAQ,MAAO,GAAI,EAAJ;AACpB,QADoB,IACpB;AAAG,eAAQ;AACX,cAFoB,IAEpB;AAAG,eAAQ;AACX,cAHoB,IAGpB;AAAG,eAAe,EAAW,QAAkB,CAAR,QAAQ,QAA7B;;AACb,eAA4B,QAAkB,CAAR,QAAQ,QAAS;;AATrD;AAAY;AAaA;AAAZ;AAEP,aAAQ,iBAAY,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,CAAtB;AAFb;AAAY;AAKG;AAAf;AAEP,aAAQ,kBAAW,CAAC,SAAS,QAAV,CAAmB,KAAE,IAAF;AAF/B;AAAe;AAKA;AAAf;AAEP,aAAQ,kBAAW,CAAC,OAAO,QAAR,CAAiB,KAAE,IAAF;AAF7B;AAAe;AAKP;AAAR;AAEP,aAAQ,iBAAY,CAAC,SAAS,QAAV,CAAmB,SAAS;AAFzC;AAAQ;AAKA;AAAR;AAEP,aAAQ,mBAAY,CAAC,OAAO,QAAR,CAAiB,SAAS;AAFvC;AAAQ;AAKE;AAAV;AAGP,aAAQ,aAAQ,CAAC,SAAS,QAAV,CAAmB,KAAC,QAAD;AAH5B;AAAU;AAMA;AAAV;AAGP,aAAQ,eAAQ,CAAC,OAAO,QAAR,CAAiB,KAAC,QAAD;AAH1B;AAAU;AAsDI;AAAd;AAGP;AAEA,eAAU,gBAAW,CAAC,GAAG,QAAJ;AACrB,QAAG,QAAQ,KAAC,IAAZ,EACE,MAAM,mBAAc,QAAC,aAAS,CAAC,oDAAsB,mBAAC,WAAD,CAAvB,CAAT,CADvB;AAEA,aAAQ,qBAAc,CAAC,SAAS,QAAV;AARf;AAAc;AAWA;AAAd;AAMP;AAEA,SAAI,uBAAiB,CAAC,QAAD;AAChB;AACH,QADG,IACH;AACE,YAAM,mBAAc,QAAC,aAAS,CAAC,kDAAoB,mBAAS,GAAR,QAAQ,KAAT,CAArB,CAAT;AACvB,cAHG,IAGH;AACE,eAAQ,QAAiB,CAAR,QAAQ;AAC3B,cALG,IAKH;AACE,UAAe,CAAX,EAAW,GAAI,QAAQ,MAAZ,CAAmB,GAAC,CAAnC;AACE,iBAAyB,QAAiB,CAAR,QAAQ,QAAS,CAAC,QAAQ,MAAT;AAEnD,qBAAgB,QAAiB,CAAR,QAAQ,QAAS;AAC9C,cAVG,IAUH,6CACE,MAAM,mBAAc,QAAC,aAAS,CAAC,2DAA6B,mBAAS,GAAR,QAAQ,KAAT,CAA9B,CAAT,CADvB;AAnBK;AAAc;AAwBA;AAAd;AAEP,aAAQ,qBAAc,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,CAAtB;AAFf;AAAc;AAKA;AAAd;AAGP,aAAQ,qBAAc,CAAW,SAAU,QAArB;AAHf;AAAc;AAMC;AAGtB;AAEA,eAAU,gBAAW,CAAC,GAAG,QAAJ;AACrB,QAAG,QAAQ,KAAC,IAAZ,EACE,MAAM,mBAAc,QAAC,aAAS,CAAC,oDAAsB,mBAAC,WAAD,CAAvB,CAAT,CADvB;AAEA,yBAAc,CAAC,SAAS,SAAS,KAAnB;AARQ;AAWA;AAMtB;AAEA,SAAI,uBAAiB,CAAC,QAAD;AAChB;AACH,QADG,IACH;AACE,YAAM,mBAAc,QAAC,aAAS,CAAC,mDAAqB,mBAAS,GAAR,QAAQ,KAAT,CAAtB,CAAT;AACvB,cAHG,IAGH;AACE,cAAiB,CAAR,QAAQ,QAAjB,GAA2B;AAC7B,cALG,IAKH;AACE,UAAe,CAAX,EAAW,GAAI,QAAQ,MAAZ,CAAmB,GAAC,CAAnC;AACmB,gBAAiB,CAAR,QAAQ,QAAS,CAAC,QAAQ,OAAO,KAAhB;AAE3C,YAAQ,QAAiB,CAAR,QAAQ,QAAS,CAAC,KAAD;AACtC,cAVG,IAUH,8CACE,MAAM,mBAAc,QAAC,aAAS,CAAC,2DAA6B,mBAAS,GAAR,QAAQ,KAAT,CAA9B,CAAT,CADvB;AAnBoB;AAwBA;AAGtB,yBAAc,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,EAAoB,KAA1C;AAHQ;AAMA;AAGtB,yBAAc,CAAW,SAAU,SAAS,KAA9B;AAHQ;AAMC;AAAhB;AAEP,aAAQ,uBAAgB,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,CAAtB;AAFjB;AAAgB;AAKA;AAAhB;AAGP,aAAiB,UAAC,qBAAc,CAAC,SAAS,QAAV,CAAf;AAHV;AAAgB;AAMC;AAGxB,yBAAc,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,EAAoB,KAA1C;AAHU;AAMA;AAGxB,yBAAc,CAAC,SAAS,SAAS,KAAnB;AAHU;AAMP;AAAV;AAEP,aAAQ,iBAAU,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,CAAtB;AAFX;AAAU;AAKA;AAAV;AAGP;AACA;AACA;AACA;AAIA,QAAG,QAAQ,SAAS,KAAK,KAAC,0BAA1B;AAGE,UAAa,qBAAc,CAAC,SAAS,QAAV;AAC3B,eAAQ;AACR,WAAI,GAAJ,IAAW,CAAX;AAEE,YAAG,QAAQ,CAAC,IAAI,EAAL;AACX,YAAG,CAAC,GAAC,EAAL,EACE,SAAQ,MAAM,GAAI,CAAF,CAAE,IAAI,CAAJ,CADpB;;KAGK,UAAG,QAAQ,SAAS,KAAK,KAAC,2BAA1B;AAEP,UAAG,qBAAc,CAAC,SAAS,QAAV;AACjB,UAAG,YAAQ,CAAC,CAAD,CAAX;AACE,iBAAe,UAAC,CAAD;;AAGf,cAAW,KAAC,CAAD;AACX,YAAG,GAAG,KAAC,EAAP;AACE,mBAAQ;AAER,uBAAQ,GAAE,WAAW,CAAC,CAAD;;KAGzB,eAAe,UAAC,qBAAc,CAAC,SAAS,QAAV,CAAf;AAnCV;AAAU;AAsCC;AAElB,qBAAU,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,EAAoB,KAA1C;AAFQ;AAKA;AAGlB;AACA;AAEA,QAAG,QAAQ,SAAS,KAAK,KAAC,0BAA1B;AAEE,UAAa,IAAV,MAAU;AACb,WAAI,IAAG,GAAH,CAAQ,QAAR,CAAQ,EAAZ,EACE,IAAa,CAAP,CAAF,CAAE,IAAI,CAAJ,CAAO,GAAI,KAAJ,CAAS,GAAC,CAAvB,EACE,CAAK,CAAC,MAAD,CAAL,GAAW,IADb;AAEF,2BAAc,CAAC,SAAS,SAAS,CAAnB;KACP,UAAG,QAAQ,SAAS,KAAK,KAAC,2BAA1B;AACP,2BAAc,CAAC,SAAS,SAAS,MAAS,aAAa,CAAC,KAAD,CAAzC;AAEd,UAAA,qBAAc,CAAC,SAAS,SAAS,KAAnB;AAhBE;AAmBA;AAAX;AAEP,aAAQ,kBAAW,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,CAAtB;AAFZ;AAAW;AAKA;AAAX;AAEP;AACA;AAEA,aAA0B,UAAlB,QAAQ,UAAa,iBAAH;AAC1B,QAAY,UAAC,qBAAc,CAAC,SAAS,QAAV,CAAf;AACZ,QAAK,CAAD,CAAC,IAAE,MAAM,SAAR,CAAmB,IAAM,CAAD,CAAC,IAAE,MAAM,SAAR,CAA9B;AACE,eAAQ,MAAM,SAAoB;AAElC,mBAAY;AAVP;AAAW;AAaC;AAGnB,sBAAW,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,EAAoB,KAA1C;AAHQ;AAMA;AAGnB;AACA;AAEA,aAA0B,UAAlB,QAAQ,UAAa,iBAAH;AAC1B,QAAG,MAAM,SAAoB;AAC7B,QAAG,CAAI,kBAAW,CAAC,CAAD,CAAlB,EACE,qBAAc,CAAC,SAAS,SAAS,CAAnB,CADhB;AARmB;AAYD;AAAX;AAEP,aAAQ,QAAQ,SAAoB;AAF7B;AAAW;AAKC;AAAZ;AAEP,aAAQ,QAAQ,SAAoB;AAF7B;AAAY;AAKI;AAAhB;AAEP;AACA;AAAG;AAEH,QAAa,QAAQ;AAIrB,aAAQ;AACR,WAAM,CAAC,eAAe,CAAO,KAAS,MAAhB,CAAtB,EACE,SAAQ,MAAM,GAAC,CAAD;AAChB,QAAU,UAAP,MAAO,GAAI,CAAJ;AACV,QAAG;AACH,WAAM,CAAC,IAAE,CAAT;AAEE,eAAc,UAAJ,CAAD,CAAC,GAAC,CAAD,CAAI,GAAI,CAAJ;AACd,UAAG,CAAC,eAAe,CAAO,KAAS,MAAhB,CAAnB;AACE,YAAG,MAAM,GAAC,CAAD;AAET,gBAAG,MAAM,GAAC,CAAD;;AAEb,QAAG,CAAC,eAAe,CAAO,KAAS,MAAhB,CAAnB,EACM,MAAJ,IAAG,CADL;AAtBO;AAAgB;AA0BN;AAAV;AAEP,aAAQ,iBAAU,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,CAAtB;AAFX;AAAU;AAKA;AAAV;AAGP;AACA;AAAK;AACL;AACA;AACA;AAEA,aAAQ;AAER,YAAyB,UAAlB,QAAQ,UAAa,gBAAH;AACzB,aAAQ;AACR,QAAkB,UAAf,KAAK,UAAa,iBAAH,CAAlB,EACE,SAAsB,KAAK,SAD7B;AAGA,QAAa,qBAAc,CAAC,SAAS,QAAV;AAE3B,SAAI,GAAJ,IAAW,CAAX;AAEE,UAAG,QAAQ,CAAC,IAAI,EAAL;AACX,UAAU,CAAN,MAAM,KAAE,IAAF,CAAgC,IAAnB,CAAD,CAAC,IAAE,MAAM,SAAR,CAAN,IAA+B,CAAD,CAAC,IAAE,MAAM,SAAR,CAAhD;AACE,gBAAO,MAAM,SAAoB;AAEjC,oBAAW;AACb,UAAG,MAAM,KAAE,EAAX,EAAmB,SAAQ,MAAM,GAAC,GAAlC;AACA,eAAQ,MAAM,GAAC,KAAD;;AAEhB,aAAQ,GAAU,GAAN,MAAD,GAAQ,GAAD;AA5BX;AAAU;AA+BK;AAAf;AAGP,aAAQ,sBAAe,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,CAAtB;AAHhB;AAAe;AAMA;AAAf;AAGP;AACA;AAEA,aAAQ;AAER,QAAa,qBAAc,CAAC,SAAS,QAAV;AAE3B,SAAI,GAAJ,IAAW,CAAX,EACW,MAAO,KAAK,CAAC,QAAQ,CAAC,IAAI,EAAL,CAAT;AAXhB;AAAe;AAcC;AAGvB,0BAAe,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,EAAoB,GAA1C;AAHQ;AAMA;AAGvB;AACA;AAEA,QAAa,IAAV,MAAU;AACb,aAAS,+DAAT;AAAI,UAAK,GAAL;AACF,OAAK,CAAC,MAAD,CAAL,GAAW;;AACb,yBAAc,CAAC,SAAS,SAAS,CAAnB;AATS;AA0DL;AAAX;AAEP,aAAQ,kBAAW,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,CAAtB;AAFZ;AAAW;AAKA;AAAX;AAGP,aAAe,EAAC,qBAAc,CAAC,SAAS,QAAV,CAAf;AAHR;AAAW;AAMC;AAGnB,sBAAW,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,EAAoB,KAA1C;AAHQ;AAMA;AAGnB,yBAAc,CAAC,SAAS,SAAS,KAAnB;AAHK;AA/DF;AAAV;AAEP,aAAQ,iBAAU,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,CAAtB;AAFX;AAAU;AAKA;AAAV;AAGP,aAAc,KAAC,qBAAc,CAAC,SAAS,QAAV,CAAf;AAHP;AAAU;AAMC;AAGlB,qBAAU,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,EAAoB,KAA1C;AAHQ;AAMA;AAGlB,yBAAc,CAAC,SAAS,SAAS,KAAnB;AAHI;AAME;AAAb;AAEP,aAAQ,eAAU,CAAC,SAAS,QAAV;AAFX;AAAa;AAKA;AAAb;AAGP,aAAQ,iBAAU,CAAC,SAAS,QAAV;AAHX;AAAa;AAMC;AAGrB,mBAAU,CAAC,SAAS,SAAS,KAAnB;AAHW;AAMA;AAGrB,qBAAU,CAAC,SAAS,SAAS,KAAnB;AAHW;AAgPF;AAAZ;AAEP,aAAQ,mBAAY,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,CAAtB;AAFb;AAAY;AALA;AAAZ;AAEP,aAAc,cAAC,qBAAc,CAAC,SAAS,QAAV,CAAf;AAFP;AAAY;AAUC;AAGpB,uBAAY,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,EAAoB,KAA1C;AAHQ;AAMA;AAGpB,yBAAc,CAAC,SAAS,SAAS,KAAnB;AAHM;AA9NA;AAAb;AAEP,aAAQ,oBAAa,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,CAAtB;AAFd;AAAa;AAKA;AAAb;AAEP,aAAQ,oBAAa,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,CAAtB;AACrB,QAAY,CAAR,QAAQ,KAAE,IAAF,CAAO,IAAW,CAAN,MAAM,KAAE,IAAF,CAA9B,EACE,IAAG,CAAI,MAAM,OAAC,aAAY,CAAC,QAAD,CAA1B,EACE,SAAQ,IAFZ;AAHO;AAAa;AAQA;AAAb;AAGP,aAAQ,oBAAa,CAAC,SAAS,SAAS,IAAnB;AAHd;AAAa;AAMA;AAAb;AAGP;AAGA,QAAU,cAAC,qBAAc,CAAC,SAAS,QAAV,CAAf;AACV,QAAY,CAAR,QAAQ,KAAE,IAAF,CAAO,IAAI,CAAI,CAAC,OAAC,aAAY,CAAC,QAAD,CAAzC;AACE,eAAQ;AAER,mBAAQ;AAVH;AAAa;AAaC;AAGrB,wBAAa,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,EAAoB,KAA1C;AAHQ;AAMA;AAGrB,yBAAc,CAAC,SAAS,SAAS,KAAnB;AAHO;AAMD;AAAb;AAGP;AAAG;AAEH,UAAM,KAAN,GAAa;AACb,UAAM,KAAN,GAAa;AACb,QAAG,qBAAc,CAAC,SAAS,QAAV;AACjB,QAAG,CAAI,cAAU,CAAC,CAAD,CAAjB,EAA0B,aAA1B;AACA,UAAM,KAAN,GAA+B,CAAG;AAClC,SAAc,CAAG;AACjB,QAAG,YAAQ,CAAC,EAAD,CAAX;AAEE,UAAG,MAAM,KAAK,KAAE,IAAhB;AAEE,cAAM,KAAN,GAAmC,MAAM,KAAa,MAAC,EAAD;AAGtD,YAAA,MAAM,KAAN,GAAyB;KAI3B,MAAA,MAAM,KAAN,GAAyB;AAtBpB;AAAa;AAyBA;AAAb;AAEP,mBAAQ,kBAAa,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,CAAtB,CAArB;AAFO;AAAa;AAQC;AAGrB;AACA;AAGA,WAAM,KAAK;AACX,QAAG,IAAI,KAAC,IAAR;AACE,WAAI;AACD,cAAG,cAAU,CAAC,IAAD,CAAb;AAEH,UAA4B,CAAd,IAAM,SAAQ,KAAC,KAAK,KAAN,CACxB,IAAuC,CAAlC,cAAU,CAAW,IAAM,MAAjB,CAAwB,IAAG,YAAQ,CAAW,IAAM,MAAjB,CAAX,CAD3C;AAKE,aAAgB;OAEb,UAAG,YAAQ,CAAW,IAAM,MAAjB,CAAX;AAEH,aAAI,kBAAiB,CAAC,KAAK,MAAY,KAAW,IAAM,MAAnC;AAGrB,iBAAI,kBAAiB,CAAC,KAAK,MAAM,IAAZ;KAIvB,WAAI,kBAAiB,CAAC,KAAK,MAAM,IAAZ;AACvB,yBAAc,CAAC,SAAS,SAAS,EAAnB;AA7BO;AAgCA;AAGrB,sBAAa,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,EAAoB,KAA1C;AAHQ;AAME;AAAhB;AAEJ;AAFoB;AAGvB,mCAAQ,uBAAgB,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,CAAtB,EAAxB;AADG;AAFoB;AAEpB;AAFoB;AAAhB;AAAgB;AAMA;AAAhB;AAMP;AACG;AAPoB;AAQvB,UAAG,QAAQ,SAAS,KAAK,KAAE,gCAA3B,EACE,MAAM,sBAAS,QAAC,YAAM,CAAC,oDAAD,CAAN,CADlB;AAEA,WAAI,uBAAiB,CAAC,QAAD;AAChB;AACH,UADG,IACH;AACE,cAAM,mBAAc,QAAC,aAAS,CAAC,kDAAoB,mBAAS,GAAR,QAAQ,KAAT,CAArB,CAAT;AACvB,gBAHG,IAGH;AACE,qCAAkB,cAAW,QAAkB,CAAR,QAAQ,QAA7B,CAAlB;AACF,gBALG,IAKH;AACE,YAAe,CAAX,EAAW,GAAI,QAAQ,MAAZ,CAAmB,GAAC,CAAnC;AACE,uCAAmC,QAAkB,CAAR,QAAQ,QAAS,CAAC,QAAQ,MAAT,EAA9D;AAEA,2CAA0B,QAAkB,CAAR,QAAQ,QAAS,GAArD;AACJ,gBAVG,IAUH,6CACE,MAAM,mBAAc,QAAC,aAAS,CAAC,2DAA6B,mBAAS,GAAR,QAAQ,KAAT,CAA9B,CAAT,CADvB;AAdC;AAPoB;AAOpB;AAPoB;AAAhB;AAAgB;AA0BC;AAGxB,2BAAgB,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,EAAoB,KAA1C;AAHQ;AAMA;AAOxB;AACA;AAEA,QAAG,QAAQ,SAAS,KAAK,KAAE,gCAA3B,EACE,MAAM,sBAAS,QAAC,YAAM,CAAC,oDAAD,CAAN,CADlB;AAEA,SAAI,uBAAiB,CAAC,QAAD;AACrB,aAAQ,QAAQ;AACX;AACH,QADG,IACH;AACE,YAAM,mBAAc,QAAC,aAAS,CAAC,mDAAqB,mBAAS,GAAR,QAAQ,KAAT,CAAtB,CAAT;AACvB,cAHG,IAGH;AACE,kBAAQ,CAAC,SAAS,OAAO,KAAjB;AACV,cALG,IAKH;AACE,UAAe,CAAX,EAAW,GAAI,QAAQ,MAAZ,CAAmB,GAAC,CAAnC;AAC6B,gBAAU,QAAQ,CAAC,QAAQ,OAAO,KAAhB;AAE7C,YAAkB,QAAU,QAAQ,CAAC,KAAD;AACxC,cAVG,IAUH,8CACE,MAAM,mBAAc,QAAC,aAAS,CAAC,2DAA6B,mBAAS,GAAR,QAAQ,KAAT,CAA9B,CAAT,CADvB;AAxBsB;AA6BE;AAAnB;AAGP,aAAQ,0BAAmB,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,CAAtB;AAHpB;AAAmB;AAMA;AAAnB;AAGP,aAAgB,qBAAc,CAAC,SAAS,QAAV;AAHvB;AAAmB;AAMC;AAG3B,8BAAmB,CAAC,SAAS,iBAAY,CAAC,SAAS,QAAV,EAAoB,KAA1C;AAHQ;AAMA;AAG3B,yBAAc,CAAC,SAAS,SAAS,KAAnB;AAHa;AAxhD7B,mBAsdc;AAiLK;AAIK,mDAJL,6CAIK;AAwQX;;AAOa;AAAjB;AAEP,UAAG,QAAQ,OAAO,KAAC,EAAnB;AACE,iBAAQ;AACL,gBAAkB,CAAd,CAAc,GAAI,QAAQ,MAAZ,CAAmB,GAAC,CAAtC;AAEH,YAAS,WAAC,QAAQ,OAAT,CAAiB,GAAC,CAA3B;AAEE,mBAAQ;AAER,uBAAQ;OAGV,eAAQ;AAbH;AAAiB;AAiBb;;AAOa;AAAjB;AAEP,UAAG,QAAQ,OAAO,KAAC,EAAnB;AACE,iBAAQ;AACL,gBAAmB,CAAf,CAAe,GAAI,QAAQ,MAAZ,CAAmB,GAAC,CAAvC;AAEH,YAAS,WAAC,QAAQ,OAAT,CAAiB,GAAC,CAA3B;AAEE,mBAAQ;AAER,uBAAQ;OAGV,eAAQ;AAbH;AAAiB;AA5dZ;AAtdd;ACIA,kBAES,uBAFT;;;AA0bU;AAi+DM;AA1NL;AAzgEM;AA6ZD;AA/cH;AA4sBA;AA1nBD;AAuLM;AAoLH;AA26BI;AA+FL;AAjDC;AAj+CC;AAm4GD;AAoDA;AA+LG;AAhLD;AA9EL;AAgFG;AAyPA;AAlqCN;AAo7CO;AA8BS;AA5gIK,uDA4gIL,6CA5gIK;AA8hIA;AA5hIK,4DA4hIL,kDA5hIK;AAujIL;AAaA;AAp1EZ;AAjBP;AA2XC;AAzDC;AAlRiB;AA4pEX;AAr5HF,yEAA8B,SAkYrC,sBAlYqC,CAA9B;AACG,4EAA+B,SAiYzC,sBAjYyC,CAA/B;AAEJ,yCHxBL,qCGwBK;AAWP,kCAXO,wCAWP;AA6DY,6EAAuC,gBA7DnD,qBA6DmD,EAAwB,+BAAiB,QAGxF,yBAHwF,CAAhF;AACH,uEAA0B,gBA9DnC,qBA8DmC,EAAwB,+BAAiB,QAExE,yBAFwE,CAAnE;AAEL,sCHnGF,qCGmGE;AAWJ,kCA3EA,iCA2EA;AAiBQ,0CH/HN,qCG+HM;AAME,4CHrIR,qCGqIQ;AAaI,0EAAqB,wBAAwB,+BAAkB,QAGrE,6BAHqE,CAA/D;AAGN,0CHrJN,qCGqJM;AAgBL,qCHrKD,qCGqKC;AAOG;AACX;AAAK;AAAI;AAAM;AADJ;aACX,sBAAK,IAAA,oBAAI,IAAA,wBAAM,8BAAV;AADM;;AACX;AAAK;AAAI;AAAM;AADJ;;;AACX;AAAK;AAAI;AAAM;AADJ;AAOK,6CAPL,mCAOK;AAER,qCAlJH,iCAkJG;AA8Fe;AACvB;AADuB;aACvB;AADuB;;AACvB;AADuB;;;AACvB;AADuB;AAIV,0CApPR,iCAoPQ;AAWK,+CHlSX,qCGkSW;AAOT,sCHzSF,qCGySE;AAsjEW;AAhiET,wCAvSC,wCAuSD;AAgBH,qCH/UD,qCG+UC;AAWK,0CAXL,oCAWK;AAQD,yCHlWL,qCGkWK;AAUE,2CA7CH,uCA6CG;AASC,4CHrXR,qCGqXQ;AAWE,8CA7VZ,iCA6VY;AAgBP;AACV;AACA;AACA;AACA;AAJU;aACV,4BACA,IAAA,kCACA,IAAA,0BACA,kCAFA;AAFU;;AACV;AACA;AACA;AACA;AAJU;;;AACV;AACA;AACA;AACA;AAJU;AAOJ,mCHvZC,qCGuZD;AA0CU,6CHjcT,qCGicS;AAMA,6CHvcT,qCGucS;AAOF,2CA3aT,iCA2aS;AAUQ,mDAVR,0CAUQ;AAIhB,mCH5dC,qCG4dD;AA6CK,wCHzgBJ,qCGygBI;AAuBA,wCHhiBJ,qCGgiBI;AAkBC,yCHljBL,qCGkjBK;AAmBF,uCHrkBH,qCGqkBG;AA8Bc,+EAAuB,yBAAvB;AAw+Df;AAaI;AA9+DY,qFAA+B,oBAA/B;AAER,8CH5mBV,qCG4mBU;AAWI,kDHvnBd,qCGunBc;AAeR,0CHtoBN,qCGsoBM;AAoBH,uCAnQJ,kCAmQI;AA4BW,iFAA+B,UA5B1C,0BA4B0C,CAA/B;AACD,gFAA+B,UAouFxC,2BApuFwC,CAA/B;AAEL,4CAlST,kCAkSS;AASJ;;;;;;AAOI;;;;;;AACL;;;;;;AAEC,wCArTL,kCAqTK;AAeW,mDApUhB,kCAoUgB;AASF;;;;;;AAGJ,6CAhVV,kCAgVU;AASF,2CAzVR,kCAyVQ;AAOD,0CAhWP,kCAgWO;AAiBC,2CAjXR,kCAiXQ;AAWH,wCA5XL,kCA4XK;AAWgB,uFAA+B,UA1DtC,oCA0DsC,CAA/B;AACJ,mFAA+B,UAxDtC,gCAwDsC,CAA/B;AACA,mFAA+B,UA+qF3C,2BA/qF2C,CAA/B;AACL,8EAA+B,UA0nFtC,2BA1nFsC,CAA/B;AACM,oFAA+B,UAzFxC,+BAyFwC,CAA/B;AACN,8EAA+B,UAvFtC,2BAuFsC,CAA/B;AACW,yFAA+B,UAzEtC,sCAyEsC,CAA/B;AACX,8EAA+B,UAnGtC,2BAmGsC,CAA/B;AACF,4EAAgC,UAw2FlC,8BAx2FkC,CAAhC;AACC,6EAAgC,UA7FvC,0BA6FuC,CAAhC;AACG,gFAA+B,UAsrFtC,6BAtrFsC,CAA/B;AACL,2EAA+B,UAumFtC,wBAvmFsC,CAA/B;AACM,iFAA+B,UA1DtC,8BA0DsC,CAA/B;AACD,gFAA+B,UApDtC,6BAoDsC,CAA/B;AACC,iFAAgC,UApCvC,8BAoCuC,CAAhC;AACH,8EAA+B,UAmrFtC,2BAnrFsC,CAA/B;AAET,sCA5wBJ,iCA4wBI;AAiMD,qCHh/BD,qCGg/BC;AAsRE;AAkBG;AA5PN;AACP;AADO;aACP;AADO;;AACP;AADO;;;AACP;AADO;AAQG;AACV;AADU;aACV;AADU;;AACV;AADU;;;AACV,qBHvoBa,+BGuoBb;AADU;AAQA;AACV;AADU;aACV,4BACA;AAFU;;AACV;AACA;AAFU;;;AACV,0BH/oBa,+BG+oBb;AACA;AAFU;AASA;AACV;AACA;AACA;AAHU;aACV,kBACA,IAAA,0CACA,oCADA;AAFU;;AACV;AACA;AACA;AAHU;;;AACV,qBHxpBa,+BGwpBb;AACA,iCHzpBa,+BGypBb;AACA;AAHU;AAUI;AACd;AADc;aACd;AADc;;AACd;AADc;;;AACd;AADc;AAQJ;AACV;AACA;AACA;AAHU;aACV,sBACA,IAAA,kCACA,0BADA;AAFU;;AACV;AACA;AACA;AAHU;;;AACV,uBH1qBa,+BG0qBb;AACA;AACA;AAHU;AAUS;AACnB;AADmB;aACnB;AADmB;;AACnB;AADmB;;;AACnB;AADmB;AAQN;;aACb;AADa;;AACb;AADa;;;AACb;AADa;AAQC;AACd;AADc;aACd,sBACA;AAFc;;AACd;AACA;AAFc;;;AACd;AACA;AAFc;AASK;AACnB;AACA;AACA;AAHmB;aACnB,wCACA,IAAA,0CACA,0BADA;AAFmB;;AACnB;AACA;AACA;AAHmB;;;AACnB;AACA,iCH7lBW,6BG6lBX;AACA;AAHmB;AAUR;;aACX;AADW;;AACX;AADW;;;AACX,wBHvtBa,+BGutBb;AADW;AAQD;AACV;AADU;aACV;AADU;;AACV;AADU;;;AACV;AADU;AAQE;AACZ;AACA;AAFY;aACZ,wBACA;AAFY;;AACZ;AACA;AAFY;;;AACZ,wBHtnBW,6BGsnBX;AACA,4BHvnBW,6BGunBX;AAFY;AASA;;aACZ;AADY;;AACZ;AADY;;;AACZ;AADY;AAQK;;aACjB;AADiB;;AACjB;AADiB;;;AACjB;AADiB;AAQC;;aAClB;AADkB;;AAClB;AADkB;;;AAClB;AADkB;AAQD;;aACjB;AADiB;;AACjB;AADiB;;;AACjB,yBAgGU,0BAhGV;AADiB;AAQF;;aACf;AADe;;AACf;AADe;;;AACf,yBAwFU,0BAxFV;AADe;AAQA;AACf;AACA;AAFe;aACf,wBACA;AAFe;;AACf;AACA;AAFe;;;AACf,wBHvqBW,6BGuqBX;AACA,4BHxqBW,6BGwqBX;AAFe;AASN;AACT;AADS;aACT;AADS;;AACT;AADS;;;AACT;AADS;AAQM;;aACf;AADe;;AACf;AADe;;;AACf;AADe;AAQP;AACR;AACA;AACA;AAHQ;aACR,sBACA,IAAA,sBACA,0BADA;AAFQ;;AACR;AACA;AACA;AAHQ;;;AACR;AACA,uBHlzBa,+BGkzBb;AACA,uBHnzBa,+BGmzBb;AAHQ;AAUQ;AAChB;AACA;AACA;AAHgB;aAChB,gBACA,IAAA,gBACA,oBADA;AAFgB;;AAChB;AACA;AACA;AAHgB;;;AAChB;AACA;AACA;AAHgB;AAUS,sDAVT,wCAUS;AACjB;AACR;AACA;AAEA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEA;AAlBQ;;kBAGR;AAHQ,cAiBR;AAjBQ;;;aACR,oBACA,IAAA,oBACA,IAAA,4BACA,IAAA,oBACA,IAAA,oBACA,IAAA,oBACA,IAAA,gBACA,IAAA,gBACA,IAAA,gBACA,IAAA,gBACA,IAAA,gBACA,IAAA,gBACA,IAAA,gBACA,IAAA,kBACA,IAAA,kBACA,IAAA,kBACA,IAAA,oBACA,oBAhBA;AAFQ;;AACR;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAlBQ;;;AACR;AACA;AACA,0BJ/vCa,kCI+vCb;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA,sBAlByB,yCAkBzB;AACA;AAlBQ;AAyBG;AACX;AACA;AAFW;aACX,gCACA;AAFW;;AACX;AACA;AAFW;;;AACX,4BASU,0BATV;AACA,6BAQU,0BARV;AAFW;AASI;AACL;AAkBG;AAkBN,oCH1yCA,qCG0yCA;AAUC,qCHpzCD,qCGozCC;AAsBW;AAEX,oBAAG;AACF,qBAAG;AACC,yBAAG;AAJG;AAUJ,4CA5zCH,wCA4zCG;AAkBH,yCHt2CL,qCGs2CK;AAsBO;AACnB;AACA;AACA;AAHmB;aACnB,0BACA,IAAA,kCACA,8BADA;AAFmB;;AACnB;AACA;AACA;AAHmB;;;AACnB;AACA;AACA;AAHmB;AASV,sCHr4CF,qCGq4CE;AAgCU,gDHr6CZ,qCGq6CY;AAWT,uCHh7CH,qCGg7CG;AA2BK,4CAn7CH,wCAm7CG;AA8CJ,wCAj+CC,wCAi+CD;AAoCM,8CApCN,uCAoCM;AAMQ;AACzB;AACA;AAFyB;aACzB,4BACA;AAFyB;;AACzB;AACA;AAFyB;;;AACzB;AACA;AAFyB;AAOf,uCAlhDE,wCAkhDF;AAiBC,wCAniDC,wCAmiDD;AAUH,qCA7iDI,wCA6iDJ;AAeI,yCHplDL,qCGolDK;AAOA,yCAPA,wCAOA;AACJ,qCARI,wCAQJ;AACA,qCATI,wCASJ;AACI,yCAVA,wCAUA;AACD,wCAXC,wCAWD;AAEG;AACd;AACA;AAFc;aACd,sBACA;AAFc;;AACd;AACA;AAFc;;;AACd;AACA;AAFc;AAKE;AAChB;AACA;AACA;AAHgB;aAChB,kDACA,IAAA,4BACA,sCADA;AAFgB;;AAChB;AACA;AACA;AAHgB;;;AAChB;AACA;AACA;AAHgB;AAMJ;AACZ;AACA;AACA;AACA;AACA;AACA;AACA;AAPY;aACZ,8BACA,IAAA,gCACA,IAAA,8BACA,IAAA,8BACA,IAAA,8CACA,IAAA,4BACA,4BALA;AAFY;;AACZ;AACA;AACA;AACA;AACA;AACA;AACA;AAPY;;;AACZ;AACA;AACA;AACA;AACA;AACA;AACA;AAPY;AAUH;AAET;AAFS;;iBACT;AADS;;;aACT,yBACA;AAFS;;AACT;AACA;AAFS;;;AACT,yBAXY,4BAWZ;AACA;AAFS;AAKW,2EAAuB,aALlC,yBAKkC,CAAvB;AACH,0EAAuB,aAN/B,yBAM+B,CAAvB;AACQ,gFAAoB,UA5B/B,8BA4B+B,CAApB;AACH,+EAAoB,UA7B5B,8BA6B4B,CAApB;AAEV,yCHhoDL,qCGgoDK;AAWK,8CAnnDL,wCAmnDK;AAGJ,0CAtnDD,wCAsnDC;AAGN,oCAznDK,wCAynDL;AAQK,yCAjoDA,wCAioDA;AAOQ,iDAPR,oCAOQ;AAIP,0CA5oDD,wCA4oDC;AASG,6CAtxCV,kCAsxCU;AAMO,oDANP,4CAMO;AAwBZ,wCA9BK,4CA8BL;AAmBJ,oCH9tDA,qCG8tDA;AAiBO,2CA9FP,mCA8FO;AAaS;AAQL,+CHpwDX,qCGowDW;AAUQ,uDH9wDnB,qCG8wDmB;AAiBI;AAC9B;AAD8B;aAC9B;AAD8B;;AAC9B;AAD8B;;;AAC9B;AAD8B;AAMP,oDHryDhB,qCGqyDgB;AAcF,kDHnzDd,qCGmzDc;AAIP,2CHvzDP,qCGuzDO;AAMJ,uCAryDE,wCAqyDF;AASA,uCHt0DH,qCGs0DG;AAgDJ,mCHt3DC,qCGs3DD;AAuBI,uCH74DH,qCG64DG;AAUE,yCHv5DL,qCGu5DK;AAEL,oCHz5DA,qCGy5DA;AAmBW,8EAAqC,sBAAO,uBAA5C;AACF,6CH76DT,qCG66DS;AAkBZ,iCH/7DG,qCG+7DH;AAuBQ,yCAvBR,4BAuBQ;AAEE;AACT,4CAAW,CAAX;AACK,uCADL,6BACK;AAEE,yCH59DL,qCG49DK;AAiBG,4CH7+DR,qCG6+DQ;AASA,4CHt/DR,qCGs/DQ;AAiBA,4CHvgER,qCGugEQ;AAUV,kCHjhEE,qCGihEF;AAeI,sCAfJ,iCAeI;AA2BU,+EAAgC,oBAAhC;AAEA,gDH7jEZ,qCG6jEY;AAKC;;;AAEpB;AAFoB;;AAKP;AASM,gDHhlEZ,qCGglEY;AASX,qCHzlED,qCGylEC;AA6BQ,6CA7BR,gCA6BQ;AAEV,mCHxnEC,qCGwnED;AAuBO,0CH/oEN,qCG+oEM;AAUD,yCAKL,+BALK;AACG,2EAAsC,gBAnFxC,6BAmFwC,CAAtC;AAIR,oCAtoEK,wCAsoEL;AAiMa,iDH/1Eb,qCG+1Ea;AAgBE,mDH/2Ef,qCG+2Ee;AASV,yCAnsEJ,oCAmsEI;AAiHK,8CAjHL,oCAiHK;AAEF,4CAnHH,wCAmHG;AAGY,wDAz2EZ,2CAy2EY;AAQX,6CA9HJ,wCA8HI;AAuBF,2CH7gFP,qCG6gFO;AA6BE;;;;;AAojDiB;AAEnC,kBAAS;AAFoD;AAA1B;AAKA;AAEnC,kBAAS;AACT,qBAAY;AAH2D;AAApC;AAzjDjB;AAaX,kCA/hFO,wCA+hFP;AAoBI,sCApBJ,iCAoBI;AAaI,0CAhkFD,wCAgkFC;AAYI,8CA5OL,wCA4OK;AAqEI,kDAphFR,yCAohFQ;AAOH,+CAxTN,wCAwTM;AA4BD,8CApVL,wCAoVK;AA8BD,6CAlXJ,wCAkXI;AA0BE,+CA5YN,wCA4YM;AA2BF,6CAvaJ,wCAuaI;AAKE,+CA5aN,wCA4aM;AA0BD,8CAtcL,wCAscK;AAYG,iDAldR,wCAkdQ;AAgCH,8CAlfL,wCAkfK;AAUC,+CA5fN,wCA4fM;AAqBE,iDAjhBR,wCAihBQ;AAGE,mDAvwFP,2CAuwFO;AAKJ,+CAzhBN,wCAyhBM;AA0FM;AA2DJ;AAzGH,8CArkBL,wCAqkBK;AA8CO,qDAnnBZ,wCAmnBY;AAqBH,kDAxoBT,wCAwoBS;AAsCD,iDA9qBR,wCA8qBQ;AA2BK,sDAzsBb,wCAysBa;AAgJA;AArIF,mFAA+B,SArhBjD,qBAqhBiD,CAA/B;AAEL,+CAttBN,wCAstBM;AAeE,iDAruBR,wCAquBQ;AAcP,0CH3mGN,qCG2mGM;AAaF,wCAhmGC,wCAgmGD;AAgCI,4CHxpGR,qCGwpGQ;AAGD,2CH3pGP,qCG2pGO;AAGP,oCH9pGA,qCG8pGA;AAqBG,uCHnrGH,qCGmrGG;AAcE,yCHjsGL,qCGisGK;AAgBa,sDHjtGlB,qCGitGkB;AAkGP,+CA37BN,wCA27BM;AAiBA,+CA58BN,wCA48BM;AAiBQ,uDA7zGd,wCA6zGc;AAGL,kDAHK,sDAGL;AAIK;AAEX,4CATW,sDASX;AAkDP,qCAz/FF,kCAy/FE;AAWG,wCAXH,oCAWG;AA6CI;AACf;AACA;AACA;AACA;AAJe;aACf,0BACA,IAAA,0BACA,IAAA,0BACA,oCAFA;AAFe;;AACf;AACA;AACA;AACA;AAJe;;;AACf;AACA;AACA;AACA;AAJe;AAOJ,wCApDA,uCAoDA;AAeE,0CAnEF,uCAmEE;AAEF,wCAhFH,oCAgFG;AAsBF;AAEN,eAAG;AACE,oBAAG;AACH,oBAAG;AACJ,mBAAG;AACR,cAAG;AACC,kBAAG;AACJ,iBAAG;AACJ,gBAAG;AACA,mBAAG;AACA,sBAAG;AACR,iBAAG;AACH,iBAAG;AACF,kBAAG;AACC,sBAAG;AACR,iBAAG;AACL,eAAG;AACD,iBAAG;AACC,qBAAG;AACH,qBAAG;AACF,sBAAG;AACN,mBAAG;AACN,gBAAG;AACH,gBAAG;AACC,oBAAG;AACL,kBAAG;AACA,qBAAG;AACP,iBAAG;AACJ,gBAAG;AACF,iBAAG;AACL,eAAG;AACA,kBAAG;AACD,oBAAG;AACN,iBAAG;AACF,kBAAG;AACJ,iBAAG;AACJ,gBAAG;AACH,gBAAG;AACD,kBAAG;AACJ,iBAAG;AACJ,gBAAG;AACD,kBAAG;AACE,uBAAG;AACR,kBAAG;AACF,mBAAG;AACN,gBAAG;AACD,kBAAG;AACL,gBAAG;AACF,iBAAG;AACJ,gBAAG;AACF,iBAAG;AACF,kBAAG;AACH,kBAAG;AACF,mBAAG;AACI,0BAAG;AACL,wBAAG;AACV,iBAAG;AACF,kBAAG;AACJ,iBAAG;AACA,oBAAG;AACA,uBAAG;AACL,qBAAG;AACL,mBAAG;AACJ,kBAAG;AACI,yBAAG;AACJ,wBAAI;AACP,qBAAG;AACL,mBAAG;AACH,mBAAG;AACN,gBAAG;AACE,qBAAG;AACF,sBAAG;AACJ,qBAAG;AACH,qBAAG;AACC,yBAAG;AACL,uBAAG;AACD,yBAAG;AACN,sBAAG;AACI,6BAAG;AACb,mBAAG;AACK,2BAAG;AACR,sBAAG;AACJ,qBAAG;AACH,qBAAG;AACR,gBAAG;AACA,mBAAG;AACH,mBAAG;AACK,2BAAG;AACV,oBAAG;AACH,oBAAG;AACL,kBAAG;AACF,mBAAG;AACG,yBAAG;AACd,cAAG;AACH,cAAG;AACH,cAAG;AACH,cAAG;AACH,cAAG;AACH,cAAG;AACH,cAAG;AACH,cAAG;AACH,cAAG;AACF,eAAG;AACH,eAAG;AACH,eAAG;AACH,eAAG;AACH,eAAG;AACH,eAAG;AACH,eAAG;AACH,eAAG;AACH,eAAG;AACH,eAAG;AACH,eAAG;AACD,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AACD,mBAAG;AACL,iBAAG;AACH,iBAAG;AACA,oBAAG;AACR,eAAG;AACE,oBAAG;AACL,kBAAG;AACD,oBAAG;AACF,qBAAG;AACH,qBAAG;AACR,gBAAG;AACD,kBAAG;AACE,uBAAG;AACP,mBAAG;AACJ,kBAAG;AACH,kBAAG;AACE,uBAAG;AACE,4BAAG;AACP,wBAAG;AACL,sBAAG;AACJ,qBAAG;AA1IH;AAwJK,2CA9PN,oCA8PM;AAuDG;AAzBF;AACf;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATe;aACf,wBACA,IAAA,0BACA,IAAA,kCACA,IAAA,sCACA,IAAA,4CACA,IAAA,oCACA,IAAA,wCACA,IAAA,kDACA,kCAPA;AAFe;;AACf;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATe;;;AACf;AACA,yBA3oHK,qBA2oHL;AACA,6BA5kHS,yBA4kHT;AACA,+BA7kHS,yBA6kHT;AACA,kCA9oHK,qBA8oHL;AACA,8BA/oHK,qBA+oHL;AACA;AACA;AACA;AATe;AAYK,iDAZL,uCAYK;AACH,6EAAmC,aADhC,oCACgC,EAAkC,YAYrE,iCAZqE,CAArE;AAEI;AACrB;AACA;AACA;AACA;AACA;AACA;AACA;AAPqB;aACrB,kCACA,IAAA,gDACA,IAAA,wCACA,IAAA,wDACA,IAAA,gCACA,IAAA,4BACA,gDALA;AAFqB;;AACrB;AACA;AACA;AACA;AACA;AACA;AACA;AAPqB;;;AACrB;AACA;AACA;AACA;AACA;AACA;AACA,kCHz3GM,wBGy3GN;AAPqB;AAUJ,8CHrsHV,qCGqsHU;AAgBA,8CA5jEL,oCA4jEK;AAIN,wCAzUH,oCAyUG;AAeE,0CAj1GP,kCAi1GO;AAaH,uCA7tHE,wCA6tHF;AAoCK,4CHzxHR,qCGyxHQ;AAGI,gDH5xHZ,qCG4xHY;AAWJ,4CHvyHR,qCGuyHQ;AAGI,gDH1yHZ,qCG0yHY;AAWL,2CHrzHP,qCGqzHO;AAGI,+CHxzHX,qCGwzHW;AAaP,wCHr0HJ,qCGq0HI;AAKK,6CH10HT,qCG00HS;AAEI,iDH50Hb,qCG40Ha;AAEH,8CAt9CL,wCAs9CK;AAwDA,8CAxDA,6CAwDA;AAIA,8CA5DA,6CA4DA;AAKA,8CAvhDL,wCAuhDK;AAWE,gDAliDP,wCAkiDO;AAOC,iDHj6Hb,qCGi6Ha;AAIE,mDAJF,4CAIE;AAEC,8EAAqB,YAFtB,sCAEsB,EAAqC,aAGlE,+BAHkE,CAA1D;AACG,mFAAqB,YAHzB,sCAGyB,EAAqC,aAErE,+BAFqE,CAA1D;AAEX,4CH16HR,qCG06HQ;AAUS;AAEf,sCHt7HF,qCGs7HE;AAiBW,iDA/kDR,wCA+kDQ;AAIA,+CA5pGX,qCA4pGW;AAGP,0CAHO,8CAGP;AAGD,yCANQ,8CAMR;AAGJ,qCHp9HD,qCGo9HC;AAMQ;AAEK,kDH59Hd,qCG49Hc;AAOJ,8CHn+HV,qCGm+HU;AAQL,yCH3+HL,qCG2+HK;AAKyB,kEHh/H9B,qCGg/H8B;AAKL,6DHr/HzB,qCGq/HyB;AAoDH;AA7CZ,8CH5/HV,qCG4/HU;AAaI,kDAbJ,6CAaI;AAOA;AAOF,gDHvhIZ,qCGuhIY;AAIO,uDA/BT,6CA+BS;AAcG,0DAliEd,2CAkiEc;AAOC,2DHhjIvB,qCGgjIuB;AAMJ,uDHtjInB,qCGsjImB;AAOM,6DH7jIzB,qCG6jIyB;AAMN,uDHnkInB,qCGmkImB;AAiBL;AAAhB;AAEP,QAAW,MAAM,UAAU,cAA3B;AACM,aAAC;AAEL,UAAI,OAAC;AALA;AAAgB;AAvnIzB;AChBA,sBAMS,kBANT;;;;AAWiB;;AACF;AACX;AACA;AACA;AACA;AACA;AALW;aACX,sBACA,IAAA,8BACA,IAAA,sCACA,IAAA,0BACA,0BAHA;AAFW;;AACX;AACA;AACA;AACA;AACA;AALW;;;AACX;AACA;AACA;AACA;AACA;AALW;AAOQ,+EAAsC,wBAAtC;AACO,sFAA+C,iCAA/C;AACD,qFAAsC,uBAAtC;AA0BH;AAAjB;AAEP,aAAQ;AACR,kBAAO;AAHA;AAAiB;AAMD;AAAhB;AAEP,aAAQ,uBAAgB,CAAC,WAAD;AAFjB;AAAgB;AAuNA;AAAhB;AAGF;AACH,QADG,IACH;AAAO,eAAQ;AACf,cAFG,IAEH,kCAAS,SAAQ,wBAAjB;AALK;AAAgB;AAlNH;AAAb;AAGP,aAAQ,oBAAa,CAAC,YAAM,SAAP;AAHd;AAAa;AA2NA;AAAb;AAGP;AACA;AACA;AAGA,aAAQ;AACR,SAAI,uBAAgB,CAAC,OAAD;AACpB,QAAG;AACH,aAAc,WAAC,EAAD;AACd,mBAAc;AACd,WAAQ,CAAD,CAAC,GAAC,MAAD,CAAS,IAAI,YAArB;AAEE,qBAAc,SAAS,CAAC,EAAE,CAAC,CAAD,CAAH;AACnB,OAAJ,IAAG;;AAhBE;AAAa;AArNE;AAAf;AAGP,aAAQ,sBAAe,CAAC,YAAM,MAAM,KAAb;AAHhB;AAAe;AA0OA;AAAf;AAGF;AACH,QADG,IACH;AAAO,eAAQ,wBAAkB,CAAC,MAAM,KAAP;AACjC,cAFG,IAEH,kCAAS,SAAQ,yBAAmB,CAAC,MAAM,KAAP,CAApC;AALK;AAAe;AA7GO;AAEb;AAAP;AAIP,eAAQ;AACR,UAAG,CAAI,GAAQ,GAAf;AAEE,YAAY,OAAD,QAAX,EACE,MAAe,IAAT,KAAS,CAAI,oCAAoE,GAA/B,qBAAQ,CAAC,GAAQ,OAAT,CAAT,GAA2B,KAAD,GAAO,GAAQ,WAAjF,CADjB;OAIA,eAAQ,GAAQ,KAAK;AAXhB;AAAO;AAcD;AAAN;AAIP;AACA;AACA;AAEA;AACA;AAGA,eAAQ;AACR,gBAAwB,QAAQ;AAChC,UAAG,OAAO,KAAC,IAAX,EACE,UAAwB,QAAQ,KADlC;AAEU,SAAD,sBAAC,OAAI,CAAL;AACT,aAA6B,QAAQ,cAAc,CAAC,UAAD;AACnD,UAAI,UAAJ,GAA0B,GAAM;AAChC,WAAmB,IAAI,QAAQ;AAC/B,aAAM,EAAE,KAAE,IAAV;AAEE,YAAG,qBAAQ,CAAC,EAAE,SAAS,MAAZ,CAAoB,IAAI,oBAAc,CAAC,EAAD,CAAjD;AAEE,iBAAO,OAAO,CAAgB,QAAQ,WAAW,CAAC,GAAE,IAAH,CAAnC;AACd,eAAI,EAAC;AACL,2BAAM,CAAC;;;;eAAG,EAAS,cAAD,OAAZ;AACN,cAAI,EAAE,KAAE,EAAR,EACW,GAAI,KAAK,CAAC,EAAD,CADpB;SALF;AAQA,aAAmB,EAAE;;AAEvB,UAAY,MAAD,QAAX,EACE,MAAM,CAAC,GAAD,CADR;AAhCO;AAAM;AAoCC;AAAP;AAMP,eAAQ;AACR,UAAY,OAAD,QAAX,EACE,IAAG,MAAI,KAAC,IAAR,EACE,OAAO,CAAC,SAAU,GAAE,MAAI,QAAjB,CAFX;AAPO;AAAO;AAahB,QAAG,CAAI,mBAAP;AAEE,UAAY,OAAD,QAAX,EACE,OAAO,CAAC,qCAAD,CADT;KAIA,MAAA,MAAM,MAAM,CAAC,IAAD,CAAM,KAAM,SAAU,KAAM,QAAS,MAAM;AAvE5B;AA7L/B,mBAoCc;AAKZ;AAkCgB,6CJxBP,qCIwBO;AAWS;AAAlB;AAGP;AAGA,gBAAS,eAAc,CAAC,sBAAS,CAAC,KAAD,CAAV;AACvB,eAAiB,OAAD;AAChB,UAAG,MAAH;AAEE,aAAK,KAAL,GAAY,OAAO;AACnB,aAAK,SAAL,GAAgB,OAAO;AACvB,aAAK,OAAL,GAAc,OAAO;AACrB,aAAK,aAAL,GAAoB,OAAO;AAC3B,aAAK,KAAL,GAAY,OAAO;OANrB;AARO;AAAkB;AAuBjB,qBAAG;AAEU;AAAd;AAGP,eAAsC,CAA7B,eAAI,CAAC,CAAC,IAAI,EAAS,cAAD,OAAd,CAAyB,KAAC,cAAD,CAA8C,IAA9B,gBAAS,CAAC,CAAC,QAAS,QAAX,CAAd,IAAwD,CAAhB,eAAI,CAAC,CAAC,MAAM,EAAE,CAAV,CAAY,KAAC,MAAD,CAArB;AAH7E;AAAc;AAME;AAAhB;AAIP;AACA;AACA;AACA;AAGU,YAAD,sBAAC,UAAO,CAAR;AACT,UAAG,CAAI,gBAAS,CAAC,QAAD,CAAhB,EACE,aADF;AAGA,WAAI,QAAQ,qBAAqB,CAAC,MAAD;AACjC,eAAO,QAAc,OAAT,EAAE,OAAO,GAAC,CAAD,kBAArB;AAAI;AAEF,YAAsB,EAAE,MAAC,CAAD;AACxB,aAAI,CAAC;AACL,YAAG,oBAAc,CAAC,CAAD,CAAjB;AAEE,2BAAM,CAAC;;;;eAAG,EAAS,cAAD,OAAZ;AACN,cAAI,EAAE,KAAE,EAAR,EACW,MAAO,KAAK,CAAC,EAAD,CADvB;SAHF;;AAnBK;AAAgB;AA4BG;AAAnB;AAGP;AAEA;AACA;AAGA,eAAQ;AACR,UAAG,CAAI,gBAAS,CAAC,QAAD,CAAhB,EACE,aADF;AAEA,WAAI,QAAQ,eAAe,CAAC,cAAQ,GAAC,sBAAS,CAAC,KAAD,CAAnB;AAC3B,eAAgB,CAAC,EAAD,SAAK,IAAI,qBAAQ,CAAC,EAAE,SAAS,MAAZ,CAAZ;AACrB,UAAG,CAAI,MAAP,EACE,aADF;AAEA,WAAK,KAAL,GAAY,sBAAS,CAAC,KAAD;AACrB,WAAK,aAAL,GAA0B,KAAC,EAAC,QAAS,QAAX;AAC1B,UAAG,EAAC;AACJ,UAAG,eAAI,CAAC,EAAE,EAAS,CAAD,OAAG,GAAC,CAAf;AACP,UAAG,cAAG,CAAC,IAAI,CAAL;AACN,WAAK,KAAL,GAAY,eAAI,CAAC,EAAE,CAAC,GAAC,CAAD,CAAU,CAAD,OAAG,GAAC,CAAjB;AAChB,UAAG,eAAI,CAAC,EAAE,EAAE,CAAC,GAAC,CAAP;AACP,UAAG,cAAG,CAAC,IAAI,CAAL;AACN,UAAG,CAAC,KAAC,CAAL;AACE,aAAK,SAAL,GAAgB;;AAGhB,aAAK,SAAL,GAAgB,eAAI,CAAC,EAAE,CAAC,GAAC,CAAD,CAAU,CAAD,OAAG,GAAC,CAAjB;AACpB,YAAG,eAAI,CAAC,EAAE,EAAE,CAAC,GAAC,CAAP;;AAET,WAAK,OAAL,GAAc;AA/BP;AAAmB;AAkCR;AAAX;AAIT;AAEE,eAAQ;AAND;AAAW;AA/IN;AApCd,GAoCc,sBApCd;ACAA,+BAIS,UAJT;;;AAOiB;;;AAEb;AAFa;;;;;;AAIK,+CAJL,2CAIK;AAIF;;AAKP;;;AAET;AACA;AAHS;;;;;;AAuBgB;AAAR;AAGnB;AAGA,UAAG;AACH,eAAQ;AACR,aAAM,CAAC,KAAE,IAAT;AAEE,YAAG,CAAC;AACA,cAAJ,IAAG;;AAXc;AAAQ;AAeC;AAE5B,wBAAY;AAFoD;AAApC;AAKA;AAE5B;AACU;AAHkB;AAMH;AAGxB;AAID,UAAG;AACH,aAAM,CAAC,KAAE,IAAT;AAEE,qBAAO;AACP,YAAG,CAAC;AACJ,kBAAK,KAAL,GAAY;AACZ,+BAAU,CAAC;;;;YAAD;;AAba;AAiBH;AAAH;AAEnB,eAAQ,eAAU,QAAC;AACnB,YAAM,KAAN,GAAa;AACb,mBAAO;AAJY;AAAG;AAOK;AAG3B;AAGA,UAAG;AACH,aAAQ,CAAD,CAAC,KAAE,IAAF,CAAO,IAAI,OAAO,MAAM,CAAC,CAAD,CAAhC,EACE,IAAG,CAAC;AARqB;AAWG;AAG9B;AAGA,UAAQ,CAAJ,IAAI,KAAE,IAAF,CAAO,IAAU,CAAL,UAAK,KAAE,IAAF,CAAzB;AAEE,YAAI,IAAI,KAAC,UAAT;AACE,uBAAO,IAAI;;AAGX,cAAG;AACH,iBAAa,CAAN,CAAC,KAAK,KAAE,IAAF,CAAO,IAAW,CAAN,CAAC,KAAK,KAAE,IAAF,CAA/B,EACE,IAAG,CAAC;AACN,cAAI,CAAC,KAAK,KAAC,IAAX,EACE,CAAC,KAAD,GAAQ,IAAI,KADd;;AAGF,YAAG,QAAH,EACE,IAAK,eAAL,IAAK,CADP;OAZF;AAN8B;AApFnB;AApBb,GAqCc,WArCd;ACYA,sBAIS,kEAJT;;;;AAUc,mEAAmB,UTwGxB,2BSxGwB,CAAnB;AACG,yEAAgC,UTuGxC,2BSvGwC,CAAhC;AACM,+EAAgC,UTsG9C,2BStG8C,EAAwB,wBAAxD;AAID;;AAER;;AACC;;AACF;;AACA;;AACD;;AACC;;AACG;;AACC;;AACF;;AACD;;AACF;;AACA;;AACM;;AACD;;AACH;;AACG;;AACE;;AAEJ;;AACG,qEAAiB,sBAAO,qBAAxB;AACI,8EAA+B,sBAAO,qBAAtC;AAGV;;AAsBH;AAm9BA;AAkLA;AAxSD;AA12BW;;;AAEf;AACA;AAHe;;;;;AAiqEiB;AAExB;AACV,mBAAS;AACT,uBAAa,CAAC;AAJqC;AAAjB;AAOC;AAAV;AAEzB,eAAU,UAAK,KAAC,cAAD;AAFU;AAAU;AAKF;AAAR;AAErB,oBAAJ,IAAG;AACH,eAAU,cAAU,GAAE,UAAK,OAAP;AAHK;AAAQ;AA7qEhB;AAaV;;;AAEL;AACA;AACA;AAJK;;;;;AAwqEiB;AACtB;AAEF;AACA,eAAS,QAAgB,OAAX,KAAK,OAAM,GAAC,CAAD,kBAAzB;AAAI;AACF,gBAAG,CAAC,KAAK,KAAC,CAAD,CAAN;;AALmB;AAQC;AACvB;AAEF,eAAS,QAAgB,OAAX,KAAK,OAAM,GAAC,CAAD,kBAAzB;AAAI;AACF,YAAG,YAAO,CAAC,KAAK,KAAC,CAAD,CAAN,CAAW,GAAE,CAAvB,EACE,QAAG,CAAC,KAAK,KAAC,CAAD,CAAN,CADL;;AAJuB;AAQH;AAEtB,UAAY,KAAD,QAAX;AACE,qBAAQ,CAAC,KAAD;AAER,YAAA,aAAQ,CAAC,KAAD;AALY;AAQK;AACzB;AAEF,UAAY,KAAD,QAAX;AAEE;AACA,iBAAS,QAAgB,OAAX,KAAK,OAAM,GAAC,CAAD,kBAAzB;AAAI;AACF,cAAG,KAAK,QAAQ,CAAC,KAAK,KAAC,CAAD,CAAN,CAAW,GAAE,CAA7B,EACE,QAAG,CAAC,KAAK,KAAC,CAAD,CAAN,CADL;;;AAKF,iBAAc,MAAL,WAAK,GAAC,CAAD,EAAU,eAAxB;AAAI;AACF,cAAG,KAAK,QAAQ,CAAC,IAAI,KAAC,CAAD,CAAL,CAAU,IAAG,CAA7B,EACE,WAAM,CAAC,CAAD,CADR;;;AAbuB;AAkBN;AACnB;AAEF,UAAY,KAAD,QAAX;AAEE;AACA,iBAAS,QAAgB,OAAX,KAAK,OAAM,GAAC,CAAD,kBAAzB;AAAI;AACF,cAAG,KAAK,QAAQ,CAAC,KAAK,KAAC,CAAD,CAAN,CAAW,IAAG,CAA9B,EACE,QAAG,CAAC,KAAK,KAAC,CAAD,CAAN,CADL;;;AAKF,iBAAc,MAAL,WAAK,GAAC,CAAD,EAAU,eAAxB;AAAI;AACF,cAAG,KAAK,QAAQ,CAAC,IAAI,KAAC,CAAD,CAAL,CAAU,GAAE,CAA5B,EACE,WAAM,CAAC,CAAD,CADR;;;AAbiB;AAkBO;;AAEN;AAClB;AAEF;AACA,iBAAS,QAAc,OAAT,GAAG,OAAM,GAAC,CAAD,kBAAvB;AAAI;AACF,cAAG,IAAI,QAAQ,CAAC,GAAG,KAAC,CAAD,CAAJ,CAAS,GAAE,CAA1B,EACE,KAAI,IAAI,CAAC,GAAG,KAAC,CAAD,CAAJ,CADV;;AALkB;AASpB;AAEF,UAAY,KAAD,QAAX;AACE,oBAAY,CAAC,MAAO,KAAR;AAEZ,mBAAQ,YAAO,QAAC;AAChB;AACE,YAAI,SAAS,CAAC,KAAD;AACb,oBAAY,CAAC,MAAO,IAAR;AAFd;AAIE,YAAI,SAAC;AAJP;AAjB0B;AAyBR;AAEpB,UAAY,KAAD,QAAX;AAEE,qBAAQ,CAAC,KAAD;AACR,sBAAS,CAAC,KAAD;OAGT,MAAA,cAAS,CAAC,KAAD;AARS;AAWC;AAErB;AACA;AAEA,UAAY,KAAD,QAAX;AAEE;AACA,iBAAS,QAAgB,OAAX,KAAK,OAAM,GAAC,CAAD,kBAAzB;AAAI;AACF,cAAG,KAAK,QAAQ,CAAC,KAAK,KAAC,CAAD,CAAN,CAAW,GAAE,CAA7B,EACE,QAAG,CAAC,KAAK,KAAC,CAAD,CAAN,CADL;;AAEF,iBAAS,SAAgB,QAAX,KAAK,OAAM,GAAC,CAAD,qBAAzB;AAAI;AACF,cAAG,KAAK,QAAQ,CAAC,KAAK,KAAC,CAAD,CAAN,CAAW,GAAE,CAA7B,EACE,QAAG,CAAC,KAAK,KAAC,CAAD,CAAN,CADL;;;AAKF,YAAK,YAAO,QAAC;AACb;AACE,WAAC,SAAS,CAAC,IAAD;AACV,mBAAc,MAAL,WAAK,GAAC,CAAD,EAAU,eAAxB;AAAI;AACF,gBAAG,KAAK,QAAQ,CAAC,IAAI,KAAC,CAAD,CAAL,CAAU,IAAG,CAA7B,EACE,WAAM,CAAC,CAAD,CADR;;AAEF,mBAAS,SAAgB,QAAX,KAAK,OAAM,GAAC,CAAD,qBAAzB;AAAI;AACF,gBAAG,CAAC,QAAQ,CAAC,KAAK,KAAC,CAAD,CAAN,CAAW,GAAE,CAAzB,EACE,QAAG,CAAC,KAAK,KAAC,CAAD,CAAN,CADL;;AANJ;AASE,WAAC,SAAC;AATJ;;AAlBmB;AAgCH;AAAH;AAEf,UAAU,CAAN,KAAM,GAAE,CAAF,CAAK,IAAU,CAAN,KAAM,IAAG,WAAH,CAAzB,EACE,oBAAe,CAAC,KAAD,CADjB;AAEA,eAAQ,UAAK,CAAC,KAAD;AAJE;AAAG;AAOC;AAEnB,UAAU,CAAN,KAAM,GAAE,CAAF,CAAK,IAAU,CAAN,KAAM,IAAG,WAAH,CAAzB,EACE,oBAAe,CAAC,KAAD,CADjB;AAEA,gBAAK,CAAC,KAAD,CAAL,GAAgB;AAJG;AAOQ;AAE3B,UAAI,WAAY,GAAE,WAAlB,EACG,iBAAM,CAAC,kDAAwB,gBAAzB,CADT;AAEA,UAAG,WAAY,KAAE,cAAjB,EACE,MADF;AAEU,gBAAD,sBAAC,qBAAM,WAAP;AACT,uBAAa;AAPc;AAUH;AAExB,UAAI,QAAS,GAAE,CAAf,EACE,iBAAK,CAAC,+CAAqB,aAAtB,CADP;AAEA,UAAG,QAAS,GAAE,WAAd;AAEE,YAAG,QAAS,GAAE,cAAd,EACE,gBAAW,CAAC,QAAD,CADb;OAFF;AAKA,oBAAU;AATc;AAYO;AAE/B,uBAAK,CAAC,+CAAqB,UAAtB;AAF0B;AAKP;AAExB;AACU;AAHc;AAMD;AAGvB;AAGA,UAAI,cAAQ,GAAM,CAAL,WAAK,GAAC,KAAK,OAAN,CAAlB,EACE,iBAAU,WAAK,GAAC,KAAK,OAArB,CADF;AAEA,eAAO,QAAgB,OAAX,KAAK,OAAM,GAAC,CAAD,kBAAvB;AAAI;AACF,gBAAG,CAAC,KAAK,KAAC,CAAD,CAAN;;AATkB;AAYL;AAAH;AAEf,UAAG,WAAO,KAAE,cAAZ,EACE,aADF;AAEA,gBAAK,CAAC,WAAD,CAAL,GAAiB;AACjB,eAAU;AACN,iBAAJ,IAAG;AANY;AAAG;AASG;AAErB,UAAW,WAAC,UAAD,KAAX;AAEE,qBAAQ,CAAC,CAAD;AACR,wBAAW,CAAC,CAAD;OAHb;AAFqB;AASC;AAEtB,UAAS,CAAL,KAAK,GAAC,CAAD,CAAI,IAAS,CAAL,KAAK,IAAE,WAAF,CAAtB,EACE,iBAAM,CAAC,+CAAqB,UAAtB,CADR;AAEA,oBAAU,WAAM,GAAC,CAAD;AACF,gBAAD,QAAO,MAAM,CAAb;AACT,oBAAJ,IAAG;AANmB;AASK;AAE3B,YAAM,eAAU,QAAC,aAAS,CAAC,IAAI,mBAAC,OAAD,CAAL,CAAT;AAFU;AAKH;AAExB;AAEA,UAAW,CAAP,MAAO,IAAG,WAAH,CAAW,IAAW,CAAP,MAAO,GAAE,CAAF,CAAjC,EACE,iBAAK,CAAC,+CAAqB,WAAtB,CADP;AAEA,UAAW,CAAP,MAAO,IAAG,WAAH,CAAW,IAAW,CAAP,MAAO,GAAE,CAAF,CAAjC,EACE,iBAAK,CAAC,+CAAqB,WAAtB,CADP;AAEA,aAAQ,UAAK,CAAC,MAAD;AACb,gBAAK,CAAC,MAAD,CAAL,GAAiB,UAAK,CAAC,MAAD;AACtB,gBAAK,CAAC,MAAD,CAAL,GAAiB;AAVO;AAaH;AAAN;AAEf;AAEA,UAAG,WAAO,GAAE,cAAZ,EAA+B,OAAC,IAAhC;AACA,gBAAW;AACX,UAAG,cAAU,GAAE,CAAf,EAAsB,UAAW,OAAQ,GAAE,CAA3C;AACA,UAAG,cAAU,GAAE,CAAf,EAAsB,UAAW,OAAO,GAAC,CAAzC;AACA,UAAG,cAAU,GAAE,GAAf,EAA4B,OAAJ,IAAa,cAAU,KAAI,CAAnD;AACA,sBAAW,CAAC,cAAU,GAAE,OAAb;AACX,eAAU;AAVK;AAAM;AAaC;AAAP;AAEf;AAEA,UAAK,YAAO,CAAC,IAAD;AACZ,UAAG,CAAE,IAAG,CAAR;AAEE,iBAAU;AACV,mBAAM,CAAC,CAAD;OAGN,eAAU;AAXG;AAAO;AAcF;AAAL;AAEf,UAAG,WAAO,KAAE,CAAZ;AACE,iBAAU;AAEV,qBAAU,QAAK,CAAC,CAAD;AALF;AAAK;AAQQ;AAAb;AAEf,eAAQ,sBAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AAFX;AAAa;AAKN;AAAP;AAGf;AAGA,eAAQ;AACR,UAAG;AACH,aAAa,CAAN,MAAM,GAAC,CAAD,CAAI,IAAkB,CAAb,UAAK,CAAC,MAAD,CAAQ,IAAE,IAAF,CAAnC,EACM,MAAJ,IAAG;AACL,UAAG,MAAM,IAAE,CAAX,EACE,SAAQ,CAAC,CADX;AAVe;AAAO;AAeI;AAAX;AAGf,UAAG,SAAS,KAAC,kCAAb;AACE,iBAAQ,YAAO,CAAC,IAAD;;AAGf,iBAAQ,WAAK,GAAC,CAAD;AACb,eAAc,CAAP,MAAO,IAAE,CAAF,CAAK,IAAkB,CAAb,UAAK,CAAC,MAAD,CAAQ,IAAE,IAAF,CAArC,EACE,SAAQ,MAAO,GAAE,CAAF;;AATJ;AAAW;AAcJ;AAEtB,UAAU,CAAN,KAAM,GAAE,CAAF,CAAK,IAAU,CAAN,KAAM,GAAE,WAAF,CAAzB,EACE,iBAAK,CAAC,+CAAqB,UAAtB,CADP;AAES,gBAAM,OAAO,CAAC,MAAO,EAAG,IAAX;AAClB,oBAAJ,IAAG;AACC,iBAAJ,IAAG;AANmB;AASH;AAAJ;AAEf,UAAG,WAAO,KAAE,CAAZ;AACE,iBAAU;AAEV,qBAAU,QAAK,CAAC,WAAO,GAAE,CAAV;AALF;AAAI;AAQC;AAEpB;AAEA,UAAa,CAAT,QAAS,GAAE,CAAF,CAAK,IAAa,CAAT,QAAS,GAAQ,CAAN,WAAM,GAAE,CAAF,CAAR,CAA/B,EACE,iBAAK,CAAC,+CAAqB,aAAtB,CADP;AAEA,UAAa,CAAT,QAAS,GAAE,CAAF,CAAK,IAAa,CAAT,QAAS,GAAQ,CAAN,WAAM,GAAC,CAAD,CAAR,CAA/B,EACE,iBAAK,CAAC,+CAAqB,aAAtB,CADP;AAEA,UAAG,QAAQ,KAAC,QAAZ,EAA0B,MAA1B;AACA,aAAM,UAAK,CAAC,QAAD;AAEF,gBAAM,OAAO,CAAC,SAAS,CAAV;AACb,gBAAM,OAAO,CAAC,SAAS,EAAE,IAAZ;AAZF;AAeE;AAGjB;AACH,UADG,IACH;AAAc,mBAAO,CAAC,MAAO,KAAR;AACrB,gBAFG,IAEH;AAAc,wBAAY,CAAC,MAAO,KAAR;AAC1B,gBAHG,IAGH;AAAc,kBAAM,CAAC,MAAO,KAAR;AACpB,gBAJG,IAIH;AAAc,yBAAa,CAAC,MAAO,KAAR;AAC3B,gBALG,IAKH;AAAc,iBAAK,CAAC,MAAO,KAAR;AACnB,gBANG,IAMH,+BAAc,UAAM,CAAC,MAAO,KAAR,CAApB;AAToB;AAaD;AAAN;AAEf,eAAU,YAAO,CAAC,IAAD;AACjB,UAAG,MAAO,KAAG,CAAC,CAAd,EACE,WAAM,CAAC,MAAD,CADR;AAHe;AAAM;AAOD;AAEpB;AAAK;AACL;AAEA,YAAK;AACL,eAAO,QAAU,OAAL,WAAK,GAAC,CAAD,kBAAjB;AAAI;AAEF,YAAG,UAAK,CAAC,CAAD;AACR,YAAG,CAAI,mBAAQ,CAAC,CAAD,CAAf,EAAwB,QAAxB;AACA,kBAAK,CAAC,GAAD,CAAL,GAAY;AACR,WAAJ,IAAG;;AAXe;AAyHA;;AAEpB,UAAG,CAAY,YAAC,UAAD,MAAQ,IAAW,CAAP,WAAO,GAAE,CAAF,CAAlC,EAA4C,MAA5C;AACA,qBAAS,CAAC,yBAAO,EAAG,WAAM,GAAC,CAAD,CACxB;;AAEE,iBAAU,OAAO,CAAC,MAAO,KAAR;AAFnB;OADO;AAHW;AAUI;AAExB,UAAG,CAAY,YAAC,UAAD,MAAQ,IAAW,CAAP,WAAO,GAAE,CAAF,CAAlC,EAA4C,MAA5C;AACA,qBAAS,CAAC,yBAAO,EAAG,WAAM,GAAC,CAAD,CAAI,OAArB;AAHe;AAMG;AAG3B;AACA;AAEA,eAAO,QAAU,OAAL,WAAK,GAAC,CAAD,kBAAjB;AAAI;AAEA,YAAG,UAAK,CAAC,CAAD;AACR,YAAG,mBAAQ,CAAC,CAAD,CAAX,EACE,SAAS,CAAC,EAAE,GAAH,CADX;;AATuB;AAcA;AAG3B;AACA;AAEA,eAAO,QAAU,OAAL,WAAK,GAAC,CAAD,kBAAjB;AAAI;AAEA,YAAG,UAAK,CAAC,CAAD;AACR,YAAG,mBAAQ,CAAC,CAAD,CAAX,EACE,SAAS,CAAC,EAAE,GAAH,CADX;;AATuB;AAhqFpB;AAmDU;;AAkBZ;AAbU;;;AAEb;AACA;AAHa;;;;;AAwkEiB;AAEtB;AACV,mBAAS;AACT,uBAAa,CAAC;AAJiC;AAAf;AAOC;AAAV;AAEvB,eAAU,UAAK,KAAC,cAAD;AAFQ;AAAU;AAKF;AAAR;AAEnB,oBAAJ,IAAG;AACH,eAAU,cAAU,GAAE,UAAK,SAAC,EAAR;AAHG;AAAQ;AAplEhB;AAaV;;;AAEH;AAFG;;;;;AA2mFiB;AAEtB;AAEA;AACA,eAAS,QAAgB,OAAX,KAAK,SAAC,EAAK,GAAC,CAAD,kBAAzB;AAAI;AACF,gBAAG,CAAC,KAAK,KAAC,CAAD,CAAN;;AANiB;AASC;AACrB;AAEF,eAAS,QAAgB,OAAX,KAAK,SAAC,EAAK,GAAC,CAAD,kBAAzB;AAAI;AACF,YAAG,YAAO,CAAC,KAAK,KAAC,CAAD,CAAN,CAAW,GAAE,CAAvB,EACE,QAAG,CAAC,KAAK,KAAC,CAAD,CAAN,CADL;;AAJqB;AAQH;AAEpB,UAAY,KAAD,QAAX;AACE,qBAAQ,CAAC,KAAD;AAER,YAAA,aAAQ,CAAC,KAAD;AALU;AAQK;AACvB;AAEF,UAAY,KAAD,QAAX;AAEE;AACA,iBAAS,QAAgB,OAAX,KAAK,SAAC,EAAK,GAAC,CAAD,kBAAzB;AAAI;AACF,cAAG,KAAK,QAAQ,CAAC,KAAK,KAAC,CAAD,CAAN,CAAW,GAAE,CAA7B,EACE,QAAG,CAAC,KAAK,KAAC,CAAD,CAAN,CADL;;;AAKF,iBAAc,MAAL,eAAK,GAAC,CAAD,EAAU,eAAxB;AAAI;AACF,cAAG,KAAK,QAAQ,CAAC,IAAI,KAAC,CAAD,CAAL,CAAU,IAAG,CAA7B,EACE,WAAM,CAAC,CAAD,CADR;;;AAbqB;AAkBN;AACjB;AAEF,UAAY,KAAD,QAAX;AAEE;AACA,iBAAS,QAAgB,OAAX,KAAK,SAAC,EAAK,GAAC,CAAD,kBAAzB;AAAI;AACF,cAAG,KAAK,QAAQ,CAAC,KAAK,KAAC,CAAD,CAAN,CAAW,IAAG,CAA9B,EACE,QAAG,CAAC,KAAK,KAAC,CAAD,CAAN,CADL;;;AAKF,iBAAc,MAAL,eAAK,GAAC,CAAD,EAAU,eAAxB;AAAI;AACF,cAAG,KAAK,QAAQ,CAAC,IAAI,KAAC,CAAD,CAAL,CAAU,GAAE,CAA5B,EACE,WAAM,CAAC,CAAD,CADR;;;AAbe;AAkBO;;AAEJ;AAClB;AAEF;AACA,iBAAS,QAAc,OAAT,GAAG,SAAC,EAAK,GAAC,CAAD,kBAAvB;AAAI;AACF,cAAG,IAAI,QAAQ,CAAC,GAAG,KAAC,CAAD,CAAJ,CAAS,GAAE,CAA1B,EACE,SAAG,CAAC,GAAG,KAAC,CAAD,CAAJ,CADL;;AALkB;AASpB;AAEF,UAAY,KAAD,QAAX;AACE,oBAAY,CAAC,MAAO,KAAR;AAEZ;AACE,eAAQ,UAAK,QAAC;AACd,YAAI,SAAS,CAAC,KAAD;AACb,oBAAY,CAAC,MAAO,IAAR;AAHd;AAKE,YAAI,SAAC;AALP;AAhBwB;AAyBR;AAElB,UAAY,KAAD,QAAX;AAEE,qBAAQ,CAAC,KAAD;AACR,sBAAS,CAAC,KAAD;OAGT,MAAA,cAAS,CAAC,KAAD;AARO;AAWC;AAEnB;AACA;AAEA,UAAY,KAAD,QAAX;AAEE;AACA,iBAAS,QAAgB,OAAX,KAAK,SAAC,EAAK,GAAC,CAAD,kBAAzB;AAAI;AACF,cAAG,KAAK,QAAQ,CAAC,KAAK,KAAC,CAAD,CAAN,CAAW,GAAE,CAA7B,EACE,QAAG,CAAC,KAAK,KAAC,CAAD,CAAN,CADL;;AAEF,iBAAS,SAAgB,QAAX,KAAK,SAAC,EAAK,GAAC,CAAD,qBAAzB;AAAI;AACF,cAAG,KAAK,QAAQ,CAAC,KAAK,KAAC,CAAD,CAAN,CAAW,GAAE,CAA7B,EACE,QAAG,CAAC,KAAK,KAAC,CAAD,CAAN,CADL;;OAIF;AACE,YAAK,UAAK,QAAC;AACX,SAAC,SAAU,CAAC,IAAD;AACX,iBAAc,MAAL,eAAK,GAAC,CAAD,EAAU,eAAxB;AAAI;AACF,cAAG,KAAK,QAAQ,CAAC,IAAI,KAAC,CAAD,CAAL,CAAU,IAAG,CAA7B,EACE,WAAM,CAAC,CAAD,CADR;;AAEF,iBAAS,SAAgB,QAAX,KAAK,SAAC,EAAK,GAAC,CAAD,qBAAzB;AAAI;AACF,cAAG,CAAC,QAAQ,CAAC,KAAK,KAAC,CAAD,CAAN,CAAW,GAAE,CAAzB,EACE,QAAG,CAAC,KAAK,KAAC,CAAD,CAAN,CADL;;AAPJ;AAUE,SAAC,SAAC;AAVJ;AAhBiB;AA8BH;AAAH;AAEb,eAAU,UAAK,IAAI,CAAC,KAAD;AAFN;AAAG;AAKC;AACf;AAEF,UAAK,QAAG,CAAC,KAAD;AACR,gBAAK,IAAI,CAAC,MAAO,IAAR;AACT,UAAG,mBAAQ,CAAC,CAAD,CAAX,EACE,WAAM,CAAC,EAAG,gCAAJ,CADR;AAEA,UAAG,mBAAQ,CAAC,IAAD,CAAX,EACE,WAAM,CAAC,KAAM,8BAAP,CADR;AAPiB;AAWG;AAEpB,UAAG,mBAAQ,CAAC,MAAD,CAAX;AACA,UAAG,MAAM,KAAC,kCAAV;AAHoB;AAMK;AAEzB,gBAAK,YAAY,CAAC,WAAD;AAFQ;AAKD;AAAX;AAEb,eAAU,UAAK;AAFF;AAAW;AAKF;AAEtB,UAAG,QAAS,GAAE,UAAK,OAAnB;AACE,eAAM,UAAK,OAAO,GAAE,QAApB,EACE,WAAM,CAAC,UAAK,OAAO,GAAE,CAAf;AAER,YAAA,UAAK,SAAS,CAAC,QAAD;AANM;AASD;AAAR;AAEb,eAAU,UAAK;AAFF;AAAQ;AAKD;AAAP;AAEb,eAAU,UAAK;AAFF;AAAO;AAKE;AAEZ;AACV,mBAAS,YAAO,QAAC;AAHM;AAAD;AAMA;AAEtB,UAAY,UAAD,QAAX,EACE,YADF;AAEA,6BAAU,CAAC;;;;UAAD;AAJY;AAOD;AAErB;AAGA,gBAAK,QAAQ,CAAC,KAAK,MAAN;AAGb,eAAS,QAAiB,OAAZ,KAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AACF,YAAG,mBAAQ,CAAC,KAAK,KAAC,CAAD,CAAN,CAAX,EACE,WAAM,CAAC,KAAK,KAAC,CAAD,EAAK,8BAAX,CADR;;AATmB;AAaL;AAAH;AAEb,eAAU,UAAK,IAAI,CAAC,IAAD;AACnB,UAAG,mBAAQ,CAAC,IAAD,CAAX,EACE,WAAM,CAAC,KAAM,8BAAP,CADR;AAHa;AAAG;AAOG;AAEnB,aAAO,UAAK,OAAM,GAAC,CAAnB,EACE,WAAM,CAAC,eAAK,GAAC,CAAP;AAHW;AAMC;AAElB;AAGF,UAAG,UAAK,IAAI,CAAC,KAAD;AACZ,gBAAK,OAAO,CAAC,KAAD;AACZ,UAAG,mBAAQ,CAAC,CAAD,CAAX,EACE,WAAM,CAAC,EAAG,gCAAJ,CADR;AAPoB;AAWK;AAEzB,YAAM,eAAU,QAAC,aAAS,CAAC,IAAI,mBAAC,OAAD,CAAL,CAAT;AAFQ;AAKH;AAEtB,gBAAK,SAAS,CAAC,OAAQ,MAAT;AAFQ;AAKH;AAAN;AAEb,gBAAK;AACL,eAAQ;AAHK;AAAM;AAMC;AAAP;AACX;AAEF,UAAK,UAAK;AACV,eAAU,UAAK,QAAQ,CAAC,IAAD;AACvB,UAAG,CAAE,KAAG,UAAK,OAAb,EACE,WAAO,CAAC,OAAQ,kCAAT,CADT;AALa;AAAO;AASF;AAAL;AAEb,eAAU,UAAK;AAFF;AAAK;AAKQ;AAAb;AAEb,eAAQ,oBAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAFX;AAAa;AAKN;AAAP;AAEb,eAAU,UAAK,QAAQ,CAAC,IAAD;AAFV;AAAO;AAKA;AAEpB,gBAAK,OAAO,CAAC,MAAO,IAAR;AACZ,UAAG,mBAAQ,CAAC,IAAD,CAAX,EACE,WAAM,CAAC,KAAK,8BAAN,CADR;AAHoB;AAOH;AAAJ;AAEb,eAAU,UAAK;AAFF;AAAI;AAKC;AAElB,gBAAK,KAAK,CAAC,SAAU,QAAX;AAFQ;AAKE;AAEf;AACH,UADG,IACH;AAAc,mBAAO,CAAC,MAAO,KAAR;AACrB,gBAFG,IAEH;AAAc,wBAAY,CAAC,MAAO,KAAR;AAC1B,gBAHG,IAGH;AAAc,kBAAM,CAAC,MAAO,KAAR;AACpB,gBAJG,IAIH;AAAc,yBAAa,CAAC,MAAO,KAAR;AAC3B,gBALG,IAKH;AAAc,iBAAK,CAAC,MAAO,KAAR;AACnB,gBANG,IAMH,+BAAc,UAAM,CAAC,MAAO,KAAR,CAApB;AARkB;AAYD;AAAN;AAEb,eAAU,YAAO,CAAC,IAAD;AACjB,UAAG,MAAO,KAAG,CAAC,CAAd,EACE,IAAI,OAAO,CAAC,MAAD,CADb;AAHa;AAAM;AAOD;AAElB,gBAAK;AAFa;AAKA;AAElB,gBAAK,KAAK,CAAC,OAAD;AAFQ;AAKI;AAEtB,gBAAK,SAAS,CAAC,OAAD;AAFQ;AAr6FjB;AAqDM;AAu3FoB;AAE/B;AAEA,UAAG,MAAM,KAAE,IAAX;AACE,qBAAY,MAAM;AAElB,yBAAY;AACd,YAAM,0BAAa,QAAC,YAAM,CAAC,kBAAgD,GAA7B,UAAD,GAAY,QAAD,GAAU,eAAD,GAAW,GAAlD,CAAN;AARW;AAWK;AAEpC,UAAG,KAAK,KAAC,IAAT,EAAkB,MAAlB;AAFoC;AAMR;AAE5B,UAAI,YAAY,CAAC,IAAD;AAFY;AAKD;AAAR;AAEnB,eAAQ;AAFW;AAAQ;AAKD;AAE1B,UAAG,MAAM,KAAE,IAAX;AACE,cAAM,SAAS,CAAC,IAAD;AAEf,YAAA,gBAAW,CAAC,IAAD;AALa;AAQI;AAAX;AAEnB;AACA;AAEA,eAAQ;AACR,iBAAU;AACV,UAAG,QAAQ,KAAE,IAAb;AAEE,oBAAW,QAAQ;AACnB,YAAG,SAAS,KAAE,EAAd,EAAsB,SAAQ,SAAa,GAAH,GAAD,GAAK,MAA5C;OAHF;AAPmB;AAAW;AAcF;AAE5B,qBAAQ,CAAC,KAAM,YAAa,UAAW,WAA/B;AAFoB;AAKA;AAE5B;AAEA,aAAO,KAAP,GAAgB,WAAW,OAAC,cAAa,CAAC,WAAD;AACzC,UAAY,OAAO,KAAR,QAAX;AAEE,eAAO,KAAP,GAAgB;AAChB,mCAAa,CAAC,UAAW,UAAW,OAAvB;OAHf;AAL4B;AA76FjB;AAiBK,2CAjBL,uCAiBK;AAIK;;;AAEnB;AAFmB;;;;;AA87De;AAAP;AAE7B,eAAQ,CAAC;AACT,UAAY,oBAAD,QAAX,EACE,SAAQ,oBAAe,UADzB;AAH6B;AAAO;AAOC;AAAR;AAG7B,eAAQ,CAAC;AACT,UAAY,oBAAD,QAAX,EACE,SAAQ,oBAAe,WADzB;AAJ6B;AAAQ;AAQM;AAAd;AAE7B,eAAQ;AACR,UAAG,iBAAY,CAAC,IAAK,GAAN,CAAf,EACE,SAAQ,CADV;AAH6B;AAAc;AAOI;;AAErC;AACV,YAAI,eAAQ,KAAE,IAAd,EACE,eAAQ,aAAa,CAAC,sCAAY;;;;YAAb,CADvB;AAH+C;AAl9D7C;AAk9D6C;;AAp9D1B;;AA4Bb;AAbU;;;AAEhB;AACA;AAHgB;;;;;AAs6FiB;AAEzB;AACV,sBAAY;AACZ,uBAAa,CAAC;AAJ0C;AAArB;AAOC;AAAV;AAE1B,eAAU,aAAQ,KAAC,cAAD;AAFQ;AAAU;AAKF;AAAR;AAEtB,oBAAJ,IAAG;AACH,eAAU,cAAU,GAAE,aAAQ,SAAC,EAAX;AAHM;AAAQ;AAl7FhB;AAKE,+BAAS,YAQrB,sBARqB,CAAT;AALF;AAaV;;;AAEN;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAXM;AA2jGoB;AAAZ;AAGhB;AAAG;AACH;AAGA;AACA,YAAK;AACL,WAAI;AACJ,WAAI;AACJ,wBAAW,GAAX;AACA,wBAAW,GAAX;AACA,8BAAiB;AACjB;AACE,iBAAQ;AADV;AAGE,0BAAW,EAAX;AACA,0BAAW,EAAX;AACA,gCAAiB;AALnB;AAdgB;AAAY;AAqNL;AAAP;AAGhB;AAGA,uBAAY,CAAC,MAAM;;;;WAAO;;;;UAAd;AANI;AAAO;AASC;AAAR;AAGhB;AACA;AAGA,eAAQ;AACR,UAAG,gBAAW,CAAC,IAAD;AACd,UAAG,CAAC,KAAE,CAAC,CAAP,EACE,iBAAY,CAAC,EAAE;;;;WAAE;;;;UAAL,CADd;AATgB;AAAQ;AA5RF;AAAN;AAEhB;AACA,eAAQ;AAHQ;AAAM;AAMC;AAEvB;AACA,kBAAM;AAHiB;AAgaM;AAG7B;AAAG;AAGH;AACA,WAAI;AACJ,WAAI;AACJ,wBAAW,GAAX;AACA,wBAAW,GAAX;AACA;AACE,6BAAgB,CAAC,KAAD;AADlB;AAGE,0BAAW,EAAX;AACA,0BAAW,EAAX;AAJF;AAX6B;AAmBJ;AAEvB;AAGF;AACA,UAAG,gBAAW,CAAC,IAAD;AACd,UAAG,CAAC,KAAC,CAAC,CAAN;AACC,gBAAI,CAAC,IAAwB,GAAnB,wBAAD,GAAqB,KAA1B;AAEG,YAAP,QAAO,CAAC,EAAI,IAAwB,GAAnB,wBAAD,GAAqB,KAA9B;AAViB;AA7aI;AAE7B;AACA,wBAAY;AAHiB;AAyBA;AAE7B;AACA,wBAAY;AAHiB;AAYS;AAEtC;AACA,iCAAqB;AAHiB;AAqgBT;AAG7B;AACA;AAGA;AACE;AACA,YAAG,OAAH,EACE,YADF;AAEA,YAAG;AACH,eAAM,qBAAiB,CAAC,MAAM;;;;aAAE;;;;YAAT,CAAvB,EACE,QAAG,CAAC,CAAD;AANP;AAQE;AARF;AAP6B;AApiBD;AAAZ;AAEhB;AACA,eAAQ;AAHQ;AAAY;AAqCS;AAArB;AAEhB;AACA,eAAQ;AAHQ;AAAqB;AAZT;AAAZ;AAEhB;AACA,eAAQ;AAHQ;AAAY;AAbA;AAAZ;AAEhB;AACA,eAAQ;AAHQ;AAAY;AANC;AAE7B;AACA,wBAAY;AAHiB;AA7EO;AAApB;AAGhB;AACA,eAAQ;AAJQ;AAAoB;AAOC;AAGrC;AACA,gCAAoB;AAJiB;AAOZ;AAEzB,YAAM;AACN;AACA;AACE;AACA,eAAM,CAAI,MAAM,YAAhB,EACE,QAAG,CAAC,MAAM,aAAP;AAHP;AAKE;AALF;AAOA,YAAM;AAXmB;AAcC;AAE1B;AAEA,YAAM;AACN,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AACF,cAAM,YAAY,CAAC,QAAO,CAAC,CAAD,CAAR;;AACpB,YAAM;AAPoB;AAUO;AAEjC;AAEA,UAAY,KAAK,UAAN,QAAX;AAEE,YAAG,KAAK,UAAS,OAAC,aAAY,CAAC,aAAD,CAA9B;AACE,oBAAW,CAAI,aAAM,CAAU,KAAK,UAAf;AAErB,wBAAW;AAEb,sBAAW,eAAM,GAAE,CAAF;AACnB,WAAK,eAAe,CAAC,UAAY,oCAAW,qCAAW,OAAnC;AAZa;AAsdX;AAEtB,YAAM,qBAAgB,QAAC,aAAS,CAAC,IAAI,mBAAS,GAAR,qBAAQ,CAAC,IAAD,CAAT,CAAL,CAAT;AAFD;AAKK;AAAX;AAGhB,eAAQ;AAHQ;AAAW;AAQF;AAAT;AAGhB,UAAG,KAAK,KAAC,CAAT;AACA,eAAQ;AAJQ;AAAS;AAOC;AAAV;AAGhB;AACA;AAAE;AAGF;AAEA,UAAG,eAAU,KAAE,qBAAf;AACE,aAAI;;AAEC;AACH,YADG,IACH;AAAW,eAAI;AACf,kBAFG,IAEH;AAAW,eAAI;AACf,kBAHG,IAGH,4CAAW,KAAI,IAAf;;AAEJ,eAAQ;AACR,eAAO,QAAU,OAAL,eAAK,GAAC,CAAD,kBAAjB;AAAI;AAEF,YAAG,QAAO,CAAC,CAAD;AACV,iBAAQ,MAAM,GAAC,CAAD;AACd,YAAK,CAAD,CAAC,GAAM,CAAL,eAAK,GAAC,CAAD,CAAN,CAAU,IAAG,CAAI,2BAAtB,EACE,SAAQ,MAAM,GAAC,EADjB;;AAtBc;AAAU;AA6BN;AAElB;AAGF,YAAK,cAAO,CAAC,KAAD;AACZ,iBAAM,CAAC,KAAD;AACN,uBAAY,CAAC,MAAM,EAAE,GAAT;AAPQ;AAYM;AAI1B,UAAG,KAAK,KAAC,CAAT,EAAgB,MAAhB;AACA,UAAG,OAAO,KAAC,IAAX,EAAoB,MAApB;AAL0B;AAUE;AAI5B,UAAG,WAAW,KAAC,CAAf;AAJ4B;AA2DD;AAG3B;AACA,uBAAY,CAAC,MAAM,IAAP;AAJe;AAcI;AAI/B,UAAG,QAAH;AAJ+B;AAqQF;AAAb;AAEhB,eAAQ,wBAAW,CAAC,GAAG,EAAJ;AAFH;AAAa;AAtwBG;AAAhB;AAGhB;AACA;AACA;AACA;AAGA;AACA,eAAQ;AACR,WAAI,mBAAa,GAAH,GAAD,GAAK,mBAAD;AACjB,UAAG,CAAI,qBAAP,EACE,KAAI,IAAI,GAAC,EADX;AAEA,WAAI,GAAM,GAAF,EAAD,GAAI,GAAD;AAEV,eAAO,QAAU,OAAL,eAAK,GAAC,CAAD,kBAAjB;AAAI;AAEF,YAAG,QAAO,CAAC,CAAD;AACV,kBAAS,iBAAa,IAA2B,CAAb,CAAE,OAAO,CAAC,EAAD,CAAI,KAAE,CAAC,CAAH,CAA3B;AACtB,YAAG,OAAH;AACE,mBAAQ,MAAM,GAAC,wBAAW,CAAC,EAAE,mBAAH,CAAZ;AAEd,uBAAQ,MAAM,GAAC,CAAD;AAChB,YAAG,CAAC,GAAM,CAAL,eAAK,GAAC,CAAD,CAAV,EACE,SAAQ,MAAM,GAAC,mBADjB;;AAIF,UAAkB,CAAP,MAAD,OAAQ,KAAC,CAAD,CAAI,IAAU,CAAL,eAAK,KAAC,CAAD,CAAhC,EACE,SAAQ,mBAAS,GAAC,mBADpB;AA5BgB;AAAgB;AA0OC;AAC/B;AAAE;AACF;AAEH;AACA;AAEA,UAAG;AACH,UAAG;AACH,kBAAW;AAOX;AACC;AACA,YAAG,qBAAH;AAEE,iBAAM,CAAC,IAAS,MAAD,OAAf;AAEC,gBAAG,SAAkC,IAAlB,CAAD,CAAC,IAAS,MAAD,OAAR,CAAN,IAAsC,CAAT,MAAM,QAAC,KAAD,CAAG,KAAC,eAAD,CAAnD,EAAyE,CAAJ,IAAG,CAAxE;AAGA,gBAAG,CAAC,IAAS,MAAD,OAAZ;AACC,kBAAG,MAAM,QAAC,KAAD,CAAG,KAAC,eAAb;AAEC,oBAAG,CAAC,GAAC,CAAD;AACJ,uBAAQ,CAAD,CAAC,IAAS,MAAD,OAAR,CAAkB,IACM,CAAd,CAAT,MAAM,QAAC,KAAD,CAAG,KAAE,eAAF,CAAc,IACA,CAAlB,CAAF,CAAD,CAAC,GAAC,CAAD,CAAE,IAAS,MAAD,OAAR,CAAkB,IAAgB,CAAX,MAAM,QAAE,CAAD,CAAC,GAAC,CAAD,KAAF,CAAK,KAAC,eAAD,CAAhB,CADA,CADhC;AAGC,sBAAK,CAAD,CAAC,IAAS,MAAD,OAAR,CAAkB,IAAc,CAAT,MAAM,QAAC,KAAD,CAAG,KAAC,eAAD,CAArC;AAA2D,qBAAJ,IAAM;AACN,wBAAI,CAAJ,IAAG;;AAG3D,wBAAG,CAAE,0BAAc,CAAC,eAAI,CAAC,OAAO,CAAC,GAAC,CAAD,CAAG,CAAG,GAAD,CAAD,GAAG,CAAhB,EACJ,eAAU,GAAC,eAAD,CAAY,gBAAY,cAAC,4CAAD,CADnC,CAAhB;AAEH,oBAAG,CAAC,GAAC,CAAD;;AAGJ,oBAAG;AACH,uBAAQ,CAAD,CAAC,IAAS,MAAD,OAAR,CAAkB,IACV,CAAT,MAAM,QAAC,KAAD,CAAG,KAAE,eAAF,CADhB,EACqC,CAAJ,IAAG;AACpC,wBAAG,CAAE,eAAI,CAAC,OAAO,EAAE,CAAC,GAAC,CAAZ,CAAN;AACH,oBAAG;;;AAGJ,kBAAG,SAAH,EAAkB,QAAG,CAAC,EAAD,CAArB;;AAGD,wBAAW;;;AAKZ,iBAAM,CAAC,IAAS,MAAD,OAAf;AAEC,gBAAG,SAAkC,IAAlB,CAAD,CAAC,IAAS,MAAD,OAAR,CAAN,IAAsC,CAAT,MAAM,QAAC,KAAD,CAAG,KAAC,eAAD,CAAnD,EAAyE,CAAJ,IAAG,CAAxE;AAGA,mBAAQ,CAAD,CAAC,IAAS,MAAD,OAAR,CAAkB,IAAmB,CAAV,MAAD,YAAQ,CAAD,IAAP,CAAW,IAAK,EAAL,CAA7C,EAAgE,CAAJ,IAAG;AAG/D,gBAAG,CAAC,IAAS,MAAD,OAAZ;AACC,kBAAG,MAAM,QAAC,KAAD,CAAG,KAAC,eAAb;AAEC,oBAAG,CAAC,GAAC,CAAD;AACJ,uBAAQ,CAAD,CAAC,IAAS,MAAD,OAAR,CAAkB,IACM,CAAd,CAAT,MAAM,QAAC,KAAD,CAAG,KAAE,eAAF,CAAc,IACA,CAAlB,CAAF,CAAD,CAAC,GAAC,CAAD,CAAE,IAAS,MAAD,OAAR,CAAkB,IAAgB,CAAX,MAAM,QAAE,CAAD,CAAC,GAAC,CAAD,KAAF,CAAK,KAAC,eAAD,CAAhB,CADA,CADhC;AAGC,sBAAK,CAAD,CAAC,IAAS,MAAD,OAAR,CAAkB,IAAc,CAAT,MAAM,QAAC,KAAD,CAAG,KAAC,eAAD,CAArC;AAA2D,qBAAJ,IAAM;AACN,wBAAI,CAAJ,IAAG;;AAG3D,wBAAG,CAAE,0BAAc,CAAC,eAAI,CAAC,OAAO,CAAC,GAAC,CAAD,CAAG,CAAG,GAAD,CAAD,GAAG,CAAhB,EACJ,eAAU,GAAC,eAAD,CAAY,gBAAY,cAAC,4CAAD,CADnC,CAAhB;AAEH,oBAAG,CAAC,GAAC,CAAD;;AAGJ,oBAAG;AACH,uBAAQ,CAAD,CAAC,IAAS,MAAD,OAAR,CACwB,IAAX,CAAV,MAAD,YAAQ,CAAD,IAAP,CAAW,GAAI,EAAJ,CADK,IAEV,CAAT,MAAM,QAAC,KAAD,CAAG,KAAE,eAAF,CAFhB,EAEqC,CAAJ,IAAG;AACpC,wBAAG,CAAE,eAAI,CAAC,OAAO,EAAE,CAAC,GAAC,CAAZ,CAAN;AACH,oBAAG;;;AAGJ,kBAAG,SAAH,EAAkB,QAAG,CAAC,EAAD,CAArB;;AAID,mBAAQ,CAAD,CAAC,IAAS,MAAD,OAAR,CAAkB,IAAmB,CAAV,MAAD,YAAQ,CAAD,IAAP,CAAW,IAAK,EAAL,CAA7C,EAAgE,CAAJ,IAAG;AAE/D,wBAAW;;;AA9Ef;AAkFE;AAlFF;AAhBkC;AAvBA;AAAjB;AAGhB;AAGA,uBAAY,CAAC,MAAM;;;;WAAE;;;;UAAT;AANI;AAAiB;AASC;AAGlC,UAAI,KAAK,KAAC,EAAV;AACE,mBAAM,CAAC,KAAD;;AAGN,YAAI,KAAK,GAAC,CAAV,EACE,QAAO,QAAG,CAAC,EAAD,CADZ;AAEA;AACA,gBAAO,CAAC,MAAQ,YAAO,CAAC,KAAD,CAA2B,GAAnB,wBAAD,GAAqB,KAA5C;;AAVyB;AArXA;AAGlC,UAAG,CAAI,wBAAP;AAEE,0BAAY;AACZ,0BAAY;AACZ,mCAAqB;AACrB,oBAAM;AACN,mCAAqB;AACrB,0BAAY;OAPd;AAHkC;AAwlBF;AAAhB;AAGhB;AAAK;AAAK;AAAG;AAGb,YAAG,EAAH;AACA,eAAQ;AACR,UAAkB,CAAN,KAAD,OAAO,GAAC,OAAD,CAAG,GAAC,CAAtB,EACE,aADF;AAEA,aAAgB,KAAM,QAAQ,CAAC,KAAI,OAAC,GAAC,CAAP,CAAS,GAAC,CAAD;AACvC,aAAgB,KAAM,QAAQ,CAAC,KAAI,OAAC,GAAC,CAAP,CAAS,GAAC,CAAD;AACvC,WAAI;AACJ,UAAQ,CAAJ,IAAI,GAAC,CAAD,CAAI,IAAS,CAAJ,IAAI,GAAC,CAAD,CAArB;AAEE,YAAQ,CAAJ,IAAI,GAAC,IAAD,CAAM,KAAC,CAAf,EACE,KAAI,CADN;AAEA,YAAG,IAAI,GAAC,IAAR;AACE,eAAI;AAEJ,mBAAI;OAEH,UAAQ,CAAJ,IAAI,GAAC,CAAD,CAAI,IAAS,CAAJ,IAAI,GAAC,CAAD,CAArB;AACH,aAAI;AACD,gBAAS,CAAL,IAAK,GAAE,CAAF,CAAK,IAAS,CAAJ,IAAI,GAAC,CAAD,CAAvB;AACH,aAAI;AAEJ,iBAAW,KAAD,OAAO,GAAC,CAAD;AACnB,YAAG,eAAI,CAAC,MAAM,QAAE,EAAE,GAAC,OAAZ,CAAP;AACA,YAAG,EAAE,GAAC,EAAN;AACA,eAAQ;AA9BQ;AAAgB;AA+EP;AAEf;AACV,0BAAc;AAHY;AAAD;AANA;AAGf;AAHe;AAYI;AAAb;AAGhB,eAAQ,oBAAa,CAAC,EAAE,eAAK,GAAC,CAAT;AAHL;AAAa;AAMA;AAAb;AAEhB;AAGA,eAAQ;AACR,UAAG,MAAM,GAAC,IAAV,EAAoB,aAApB;AACU,YAAD,sBAAC,YAAW,CAAJ,IAAI,GAAC,MAAD,CAAO,GAAC,CAApB;AACT,eAAO,aAAU,6BAAjB;AAAI;AACF,cAAM,CAAC,CAAC,GAAC,MAAH,CAAN,GAAkB,cAAO,CAAC,CAAD;;AATX;AAAa;AAYA;AAAb;AAGhB,eAAQ,oBAAa,CAAC,EAAE,eAAK,GAAC,CAAT;AAHL;AAAa;AAMA;AAAb;AAGhB;AAGA,eAAQ;AACR,UAAG,MAAM,GAAC,IAAV,EAAoB,aAApB;AACU,YAAD,sBAAC,UAAW,CAAJ,IAAI,GAAC,MAAD,CAAO,GAAC,CAApB;AACT,eAAO,aAAU,6BAAjB;AAAI;AACF,cAAM,CAAC,CAAC,GAAC,MAAH,CAAN,GAAkB,QAAO,CAAC,CAAD;;AAVX;AAAa;AAaV;AAAH;AAGhB,eAAQ;AACR,iBAAO,CAAC,gBAAM,CAAP;AAJS;AAAG;AAQA;AAAH;AAGhB,eAAQ,QAAG,CAAC,mBAAM,CAAC,IAAI,IAAL,CAAP;AAHK;AAAG;AAMG;AAAN;AAGhB,eAAQ,QAAG,CAAC,mBAAM,CAAC,IAAI,IAAL,CAAP;AAHK;AAAM;AAOG;AAAT;AAGhB,eAAQ,QAAG,CAAC,CAAD;AACX,oBAAO,CAAC,OAAS,OAAV;AAJS;AAAS;AAOA;AAAT;AAGhB,eAAQ,cAAS,CAAC,mBAAM,CAAC,IAAI,IAAL,EAAW,OAAlB;AAHD;AAAS;AAMF;AAGvB,cAAI,CAAC,CAAD;AAHmB;AAsBI;AAEzB;AAEF,eAAY,QAAqB,OAAhB,UAAU,SAAC,EAAK,GAAC,CAAD,kBAAjC;AAAI;AACF,YAAI,UAAW,CAAC,UAAU,KAAC,MAAD,EAAS,UAAU,UAAQ,CAAC,MAAD,CAAtC;;AALU;AAdA;AAI3B;AACA;AACE,YAAG,UAAH,EACE,YADF;AAEA,uBAAU,CAAC,UAAD;AAHZ;AAKE;AALF;AAL2B;AAsBA;AAEzB;AAEF,UAA2B,CAAxB,eAAwB,GAAZ,YAAC,UAAD,MAAN,GAAmB,CAAD,CAAG,GAAE,kBAAhC,EACE,iBAAY,eAAwB,GAAZ,YAAC,UAAD,MAAN,GAAmB,CAArC,CADF;AAEA,eAAe,QAAoB,kBAAC,UAAD,uBAAnC;AAAI;AACF,YAAI,IAAI,CAAC,UAAU,CAAC,MAAD,CAAX;;AAPiB;AAWA;AAG3B;AACA;AACE,YAAG,UAAH,EACE,YADF;AAEA,yBAAU,CAAC,UAAD;AAHZ;AAKE;AALF;AAJ2B;AAcJ;AAAP;AAGhB,eAAQ,cAAO,CAAC,MAAM,OAAO,IAAd;AAHC;AAAO;AAMA;AAAP;AAGhB,eAAU;AACV,oBAAS,CAAC,KAAwB,GAAlB,4BAAD,GAAoB,MAAD,CAAS,OAAlC;AAJO;AAAO;AA9JC;AAGxB;AACA,uBAAY,CAAC,EAAE,KAAH;AAJY;AAsKD;AAGvB;AAGA,UAAa,aAAH,eAAP,MAAO,CAAV;AAEE,YAAY;AACZ;AACA;AACE;AACA,qCAAqB,CAAC;AACtB,4BAAY,CAAC;AACb,4BAAY,CAAC;AACb,qCAAqB,CAAC;AACtB,sBAAM,CAAC;AACP,4BAAY,CAAC;AACb,yBAAU,CAAC,CAAD;AARZ;AAUE;AAVF;OAcA,MAAgB,kCAAC,MAAD;AAxBK;AA6BK;AAG3B,UAAG,iBAAa,KAAE,CAAlB,EAAyB,mBAAc,CAAC,IAAD,CAAvC;AACI,uBAAJ,IAAG;AAJwB;AASF;AAG1B,UAAG,iBAAY,GAAC,CAAhB,EACO,iBAAJ,IAAG,CADN;AAEA,UAAG,iBAAY,KAAC,CAAhB,EACE,mBAAc,CAAC,KAAD,CADhB;AAL0B;AAWJ;AAAN;AAGhB,UAAU,aAAH,eAAJ,GAAI,CAAP;AACE,iBAAU,aAAM,CAAU,GAAV;AAEhB,qBAA0B,oCAAC,GAAD;AANZ;AAAM;AAWA;AAAN;AAEd;AAAO;AAGT,eAAQ;AACR,WAAI,IAAI,SAAC;AACT,UAAG,EAAE,KAAE,UAAU,SAAC,EAAlB,EAA6B,aAA7B;AACA,eAAY,QAAO,OAAF,EAAE,GAAC,CAAD,kBAAnB;AAAI;AACF,YAAG,QAAO,CAAC,MAAD,CAAQ,KAAE,UAAU,KAAC,MAAD,CAA9B,EAA4C,aAA5C;;AACF,eAAQ;AAVQ;AAAM;AAeG;AAGzB;AACA;AAGA;AACA;AACE,cAAK,cAAO,CAAC,MAAD;AACZ,cAAK,QAAO,CAAC,MAAD;AACZ,sBAAO,CAAC,OAAS,cAAO,CAAC,MAAD,CAAjB;AACP,gBAAO,CAAC,OAAS,QAAO,CAAC,MAAD,CAAjB;AACP,sBAAO,CAAC,OAAS,GAAV;AACP,gBAAO,CAAC,OAAS,GAAV;AANT;AAQE;AARF;AARyB;AAqBI;AAAb;AAEhB,eAAQ,uBAAkB,QAAC,YAAM,CAAC,IAAD,CAAN;AAFX;AAAa;AAYN;AAAP;AAEhB,eAAQ;AACR,aAAa,CAAN,MAAM,GAAC,eAAD,CAAQ,IAAqC,CAAhC,kBAAa,CAAC,QAAO,CAAC,MAAD,EAAS,CAAjB,CAAmB,KAAE,CAAF,CAA1D,EAAkE,SAAQ,MAAM,GAAC,CAAD;AAChF,UAAG,MAAM,KAAC,eAAV,EAAqB,SAAQ,CAAC,CAA9B;AAJgB;AAAO;AAQI;AAAX;AAEhB;AACA;AAEA;AACA,eAAQ;AACR,aAAO,MAAM,GAAC,eAAd;AAEE,YAAG,QAAO,CAAC,MAAD;AACV,cAAK,cAAG,CAAC,yBAAoB,CAArB,CAAuB,GAAC,CAAD;AAC/B,YAAO,CAAH,GAAG,IAAE,CAAF,CAAK,IAAsC,CAAjC,kBAAa,CAAC,KAAK,eAAI,CAAC,EAAE,EAAE,GAAL,CAAV,CAAoB,KAAC,CAAD,CAAlD,EACE,aADF;AAEI,cAAJ,IAAG;;AAEL,eAAQ,CAAC;AAfO;AAAW;AAmBE;AAAb;AAEhB,eAAQ;AACR,aAAa,CAAN,MAAM,GAAC,eAAD,CAAQ,IAAoB,CAAf,cAAO,CAAC,MAAD,CAAQ,KAAE,OAAF,CAAzC,EAAuD,SAAQ,MAAM,GAAC,CAAD;AACrE,UAAG,MAAM,KAAC,eAAV,EAAqB,SAAQ,CAAC,CAA9B;AAJgB;AAAa;AAQA;AAG7B,iBAAO,CAAC,MAAM,CAAP;AACP,oBAAO,CAAC,MAAQ,OAAT;AAJsB;AAOR;AAErB;AACA;AAEA;AACA;AACE,cAAK,cAAO,CAAC,QAAD;AACZ,cAAK,QAAO,CAAC,QAAD;AACZ,sBAAO,CAAC,SAAW,IAAZ;AACP,mBAAM,CAAC,QAAD;AACN,yBAAY,CAAC,SAAS,IAAI,GAAd;AALd;AAOE;AAPF;AANqB;AAtxBQ;AAE3B;AAGF;AACA,iBAAQ,QAAO,CAAC,KAAD,CAAf;AACA,UAAG,cAAG,CAAC,yBAAoB,YAArB;AACN,UAAG,CAAC,KAAE,CAAN;AAEE,kBAAO,eAAI,CAAC,aAAO,EAAE,CAAC,GAAC,CAAZ,CAAX;AAEA,mBAAQ,eAAI,CAAC,aAAO,CAAC,GAAC,CAAD,CAAU,YAAD,OAAQ,GAAC,CAA3B,CAAZ;OAGA,gBAAO,EAAP;AAf2B;AAkBD;;AAEV;AAEhB,yBAAM,OAAN;AACA,YAAY,QAAD,QAAX,EACE,QAAQ,CAAC,KAAD,CADV;AAHgB;AAOD;AAEf,YAAY,OAAD,QAAX;AACE,iBAAO,CAAC,MAAK,MAAN;AAEP,oBAAM,wBAAW,QAAC,YAAM,CAAC,0BAA0B,GAAC,MAA5B,CAAN;AALL;AASjB;AACA,4BAAgB,SAAS,CAAC,KAAK,sBAAN;AAnBG;AA+CC;AAE7B;AAEA,UAAK,wBAAkB,CAAC,SAAD;AACvB,uBAAU,CAAC,EAAG,IAAJ;AALmB;AAQA;;AAG7B,sBAAW,CAAC,UAAU,MACtB;AAEE,YAAY,QAAD,QAAX,EACC,UADD;AAFF,QAKA;AAEE,YAAY,MAAD,QAAX,EACE,MAAM,CAAC,QAAD,CADR;AAFF,OANW;AAHkB;AAqDI;;AAAjB;AAEhB,eAAqB,IAAX,OAAW,CACnB;AAEE,sBAAQ,CAAC,UACP;AAEE,kBAAQ,CAAC,IAAD;AACR,2BAAQ,SAAR;AAHF,UAKA;AAEE,kBAAQ,CAAC,KAAD;AAFV,SANM;AAFV,OADmB;AAFL;AAAiB;AAmBN;AAAX;AAEhB;AAEA;AACA,UAAG,cAAG,CAAC,yBAAoB,CAArB;AACN,UAAG,CAAC,KAAE,CAAN;AACE,iBAAQ,eAAI,CAAC,EAAE,EAAE,CAAC,GAAC,CAAP;AAEZ,qBAAQ;AATM;AAAW;AAupBA;AAE3B;AAEA,cAAS,IAAI,WAAC;AAEhB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAd6B;AA35HnB;AAuDY;AAvDZ;AAsHG;AACR;AACA;AAFQ;aACR,4BACA;AAFQ;;AACR;AACA;AAFQ;;;AACR;AACA,0BThPI,2BSgPJ;AAFQ;AAKG;;AAEC,qCAFD,sCAEC;AAEC,2CATL,iCASK;AAQL;AALW,2EAAgB,QAK3B,yBAL2B,EAAqB,uBAAQ,sBAA7C;AAEL;;AACC,wCADD,yCACC;AAEP;;;AAET;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAVS;;;;;;;AA6yHyB;AAGpC;AACA;AAGA,UAAG,UAAK,CAAC,MAAD,CAAQ;AAChB,UAAG,UAAK,CAAC,MAAD,CAAQ;AAChB,gBAAK,CAAC,MAAD,CAAQ,QAAb,GAAuB,UAAK,CAAC,MAAD,CAAQ;AACpC,gBAAK,CAAC,MAAD,CAAQ,QAAb,GAAuB,UAAK,CAAC,MAAD,CAAQ;AACpC,gBAAK,CAAC,MAAD,CAAQ,QAAb,GAAuB;AACvB,gBAAK,CAAC,MAAD,CAAQ,QAAb,GAAuB;AAZa;AAeR;AAAT;AAEnB,eAAQ,eAAW,IAAG,cAAC,+BAAQ,8BAAT,CAAH;AAFA;AAAS;AAYJ;AAGxB;AAGA,WAAI;AACJ,UAAG,EAAE,IAAE,GAAP;AACE,aAAI,EAAE,GAAK,UAAH,EAAG,GAAI,CAAJ,CAAL;AACH,gBAAG,EAAE,KAAC,CAAN;AACH,aAAI;AAEJ,iBAAI,EAAE,GAAC,CAAD;AACR,sBAAW,CAAC,EAAD;AAba;AAgBS;AAGjC;AAGA,UAAG,SAAU,GAAE,WAAf;AAEI,YAAG,iBAAH;AAEI,mBAAO,gBAAmB,OAAN,WAAM,GAAC,CAAD,kBAA1B;AAAI;AAEA,sBAAK,CAAC,CAAD,CAAG,QAAR,GAAkB;AAClB,mCAAU,CAAS,CAAH,GAAL,UAAK,CAAC,CAAD,GAAG;;;;gBAAT;;;AAKd,mBAAO,iBAAmB,QAAN,WAAM,GAAC,CAAD,qBAA1B;AAAI;AACF,sBAAK,CAAC,CAAD,CAAG,QAAR,GAAkB;;;AAExB,sBAAQ;OAfZ;AAiBA,UAAG,CAAI,SAAP,EACE,gBAAW,CAAC,CAAD,CADb;AAvBiC;AA4BJ;AAK7B;AAAO;AAAI;AAKX,UAAK,CAAF,CAAE,GAAE,CAAF,CAAI,IAAG,CAAZ;AACE,YAAG,CAAE,GAAE,CAAP,EACE,IAAG,SAAS,CAAC,KAAM,EAAG,CAAV,CAAa,GAAE,CAA3B,EACE,kBAAa,CAAC,EAAG,CAAJ,CAFjB;AAIA;OALF;AAQA,WAAM;AACN,WAAM;AAEN,cAAS,CAAE,GAAE,iBAAM,CAAC,CAAE,GAAE,CAAL,CAAR;AAEX,aAAM,EAAG,GAAE,EAAX;AACE,eAAU,CAAH,EAAG,GAAE,KAAF,CAAS,IAAgC,CAA3B,SAAS,CAAC,KAAM,GAAI,KAAX,CAAkB,IAAG,CAAH,CAAnD,EACM,EAAJ,IAAG;AAEL,eAAU,CAAH,EAAG,GAAE,KAAF,CAAS,IAAgC,CAA3B,SAAS,CAAC,KAAM,GAAI,KAAX,CAAkB,GAAE,CAAF,CAAnD,EACM,EAAJ,IAAG;AAEL,0BAAa,CAAC,GAAI,EAAL;AAEb,YAAG,KAAM,KAAE,EAAX;AACE,kBAAS;AACN,kBAAG,KAAM,KAAE,EAAX,EACH,QAAS,EADN;;AAIP,UAAS,CAAN,KAAM,GAAE,CAAF,CAAI,IAAG,CAAhB,EACE,cAAS,CAAC,EAAG,KAAM,GAAE,CAAF,CAAK,SAAf,CADX;AAEA,UAAS,CAAN,KAAM,GAAE,CAAF,CAAI,IAAG,CAAhB,EACE,cAAS,CAAC,KAAM,GAAE,CAAF,CAAK,EAAG,SAAf,CADX;AAxC6B;AAmEA;AAG7B,UAAG,KAAH;AACE,0BAAW,8BAAX;AAEA,8BAAW,8BAAX;AAN2B;AA4MO;AAEpC,UAAG,CAAC,KAAC,mBAAL,EACE,MADF;AAEA,4BAAgB;AAChB,UAAG,eAAU,KAAC,8BAAd;AAEE,0BAAY;AACZ;AACE;AADF;AAGE,4BAAY;AAHd;OAHF;AALoC;AAgBJ;AAEhC,UAAG,eAAU,KAAC,MAAd,EAA0B,MAA1B;AACA,UAAI,MAAM,KAAC,8BAAX,EACE,WADF;AAEA,wBAAY;AALoB;AAlNO;AAApB;AAEnB,eAAU,CAAI;AAFK;AAAoB;AAKC;AAExC,gCAAqB,CAAI,KAAzB;AAFwC;AAqNV;AAE9B,UAAU,CAAN,MAAM,GAAC,CAAD,CAAI,IAAU,CAAN,MAAM,IAAE,WAAF,CAAxB,EACE,UAAK,CAAC,+CAAgB,MAAjB,CADP;AAF8B;AAzVG;AAEjC,2BAAgB,CAAC,OAAQ,MAAT;AAFiB;AAyIN;AAG3B,UAAI,iBAAY,KAAC,CAAjB;AAEC,YAAY,cAAD,QAAX,EACE,cAAS,CAAC,IAAD,CADX;OAFD;AAH2B;AAYC;AAG5B,UAAG,iBAAY,KAAC,CAAhB,EACE,IAAY,gBAAD,QAAX,EACE,gBAAW,CAAC,IAAD,CAFf;AAH4B;AAUN;AAAH;AAGnB,qBAAU,CAAC,KAAD;AACV,eAAQ,UAAK,CAAC,KAAD,CAAO;AAJD;AAAG;AASQ;AAAX;AAGnB,eAAc,WAAC,UAAD;AAHK;AAAW;AAQH;AAAR;AAGnB,eAAQ;AAHW;AAAQ;AAQC;AAAT;AAGnB,qBAAU,CAAC,KAAD;AACV,eAAQ,UAAK,CAAC,KAAD,CAAO;AAJD;AAAS;AASL;AAGvB,UAAG,gBAAH,EACE,UAAK,CAAC,gDAAiB,CAAlB,CADP;AAEA,qBAAU,CAAC,KAAD;AACV;AACA,gBAAK,CAAC,KAAD,CAAO,QAAZ,GAAsB;AACtB;AARuB;AAaM;AAG7B,qBAAU,CAAC,KAAD;AACV;AACA,gBAAK,CAAC,KAAD,CAAO,QAAZ,GAAsB;AACtB;AAN6B;AAWE;AAG/B,UAAI,WAAW,GAAC,CAAhB,EACG,UAAM,CAAC,kDAAmB,WAApB,CADT;AAEA,UAAG,WAAW,KAAE,kBAAhB,EACY,UAAD,sBAAC,4BAAM,WAAP,CADX;AAL+B;AAWG;AAGlC,UAAG,QAAH;AACE;AAEA;AANgC;AArIJ;AAE9B,uBAAU,CAAC,MAAO,EAAG,IAAX;AAFoB;AAMA;AAG9B;AAGA;AACA,UAAG,WAAM,KAAC,kBAAV,EAAwB,WAAxB;AACA,QAAE,QAAF,GAAY;AACZ,QAAE,QAAF,GAAY;AACH,gBAAM,OAAO,CAAC,MAAM,EAAE,EAAT;AAClB,iBAAJ,IAAG;AACH;AAZ8B;AA2PE;AAAb;AAEnB,UAAG,mBAAH;AACE,iBAAQ,uBAAU,CAAC,GAAG,EAAJ;AAElB,qBAAQ,wBAAW,CAAC,GAAG,EAAJ;AALF;AAAa;AASC;AAAd;AAEnB,eAAU,kBAAa,CAAC,GAAI,EAAL;AAFJ;AAAc;AA1HL;AAElB;AACV,0BAAe;AAHqC;AAAxB;AAMA;AAElB;AACV,wBAAa,UAAb;AACA,wBAAa,UAAb;AAJ2D;AAA/B;AAOA;AAElB;AACV,wBAAa,UAAb;AACA,wBAAa,UAAb;AACA,8BAAoB,qCAAkB,IAAG,QAAH;AALgD;AAA1D;AAQA;AAElB;AACV,yBAAc;AACd,qBAAU,OAAV;AACA,4BAAiB,cAAjB;AALkG;AAAtE;AAQA;AAE5B,yBAlkIgD,EAAyB;AAmkI/D;AAHkB;AAMN;AAAH;AAGnB,UAAG,CAAc,CAAT,eAAS,KAAC,8BAAD,CAAjB;AACE,iBAAQ;AAER,gBAAG,SAAK,CAAC,EAAE;;;;UAAH,CAAR;AACO;AACH,YADG,IACH;AAAY;AACZ,kBAFG,IAEH,qCAAW,UAAK,CAAC,gDAAiB,CAAlB,CAAhB;OAHJ;AAKD,qBAAW,CAAC,OAAO,CAAR;AAXO;AAAG;AAcG;AAGzB,UAAG,WAAO,KAAE,CAAZ,EAAmB,MAAnB;AACA;AACA,yBAzlIgD,EAAyB;AA0lIzE;AANyB;AASC;AAG1B,qBAAU,CAAC,KAAD;AACV;AACA,UAAG,iBAAH,EACE,uBAAU,CAAa,CAAP,GAAL,UAAK,CAAC,KAAD,GAAO;;;;UAAb,CADZ;AAES,gBAAM,OAAO,CAAC,MAAM,CAAP;AACtB,gBAAK,CAAC,eAAK,GAAC,CAAP,CAAS,QAAd,GAAwB;AACxB,gBAAK,CAAC,eAAK,GAAC,CAAP,CAAS,QAAd,GAAwB;AACpB,iBAAJ,IAAG;AACH;AAX0B;AAcE;AAG5B,qBAAU,CAAC,MAAD;AACV,qBAAU,CAAC,MAAD;AACV;AACA,2BAAgB,CAAC,OAAO,MAAR;AAChB;AAP4B;AAwDL;AAAJ;AAGnB;AAAG;AAAG;AACN;AAEA,eAAU;AACV,gBAAO,CAAC,CAAR;AACA,UAAG,CAAI,gBAAP,EACE,MAAM,eAAU,QAAC,YAAM,CAAC,sDAAD,CAAN,CADnB;AAGA,UAAK;AACL,UAAK,eAAM,GAAE,CAAF;AACX,aAAO,CAAC,IAAE,CAAV;AAEE,YAAK,CAAE,GAAU,UAAL,CAAF,CAAE,GAAE,CAAF,CAAK,GAAI,CAAJ,CAAV;AACP,qBAAc,kBAAa,CAAC,EAAG,UAAK,CAAC,CAAD,CAAG,QAAZ;AAC3B,YAAI,UAAU,GAAC,CAAf;AACE,cAAK,CAAC,GAAC,CAAD;;AAEN,cAAK,CAAC,GAAC,CAAD;AACN,cAAI,UAAU,KAAC,CAAf;AACG,qBAAU;AACV,gBAAI,gBAAU,KAAE,+BAAhB,EACG,IAAK,CADR;WAFH;;;AAOJ,gBAAS,CAAT;AA5BmB;AAAI;AAiCG;AAAP;AAGnB,UAAG,CAAI,gBAAP;AACE,iBAAyB,gCAAC,CAAD;AAGzB,gBAAG,CAAI,SAAK,CAAC,EAAE;;;;UAAH,CAAZ,EACE,SAAQ,CAAC,CADX;AAPiB;AAAO;AAaA;AAG1B,UAAG,eAAS,KAAC,8BAAb;AACE,kBAAM,CAAC,gDAAiB,CAAlB;;AAGN,YAAS,CAAL,KAAK,GAAC,CAAD,CAAI,IAAS,CAAL,KAAK,GAAC,WAAD,CAAtB,EACE,UAAK,CAAC,+CAAgB,KAAjB,CADP;AAEA,uBAAW,CAAC,MAAM,CAAP;;AATa;AAgCF;AAGxB,qBAAU;AAHc;AAlBM;AAG9B,UAAe,CAAX,eAAW,IAAI,CAAe,CAAV,eAAU,KAAC,8BAAD,CAAnB,CAA+B,IAAW,CAAN,WAAM,GAAC,CAAD,CAAzD;AAEE;AACA,sBAAS,CAAC,EAAE,WAAM,GAAC,CAAD,CAAI,SAAb;AACT;OAJF;AAH8B;AA7uInB;AAuCS,+BAAa,4BAAb;AACA,+BAAW,wBAAY,uBAAvB;AACA,+BAAW,wBAAY,wBAAgB,YAnD5C,6BAmD4C,CAAvC;AACA,+BAAY,ePvYrB,8BOuYqB,EAAsB,wBAAyB,8BAA3D;AA1CT;AA4GA;AAxCI;;;AAEb;AACA;AACA;AAJa;;;;;AAssIgB;AAAR;AAGvB,UAAY,gBAAD,QAAX;AACE,iBAAQ,gBAAW,OAAO,QAAQ,CAAC,IAAD;AAElC,qBAAQ,CAAC;AANY;AAAQ;AAWM;AAGrC,UAAG,KAAK,KAAE,gBAAV;AAEE,YAAY,gBAAD,QAAX,EAA8B,gBAAW,WAAW,CAAC,IAAD,CAApD;AACA,YAAY,KAAD,QAAX,EAAwB,KAAK,WAAW,CAAC,IAAD,CAAxC;OAHF;AAHqC;AAYN;AAGhC,UAAe,CAAX,gBAAW,KAAE,IAAF,CAAO,IAA4B,CAAvB,gBAAW,aAAY,KAAC,CAAD,CAAlD;AAEC,YAAG,QAAH;AACE,0BAAW,OAAO,CAAC,IAAD;AAElB,cAAA,gBAAW,OAAO,CAAC,IAAD;OALrB;AAHgC;AAwBA;AAAR;AAGvB,eAAQ;AAHe;AAAQ;AAQM;AAAd;AAGvB,eAAQ;AAHe;AAAc;AAQL;AAE9B;AAGF,aAAM;AACN,UAAQ,CAAJ,IAAI,GAAC,CAAC,CAAF,CAAK,IAAS,CAAJ,IAAI,KAAE,KAAF,CAAtB;AAEE,wBAAW,OAAO,KAAK,CAAC,KAAK,KAAN;AACvB,oBAAO,CAAC,IAAD;OAHT;AANgC;AAcM;AAGtC,kBAAO,CAAC,KAAD;AACP,UAAG,KAAK,KAAC,EAAT;AAJsC;AASN;AAGtB;AACV,wBAAa,CAAC,WAAD;AAJ8C;AAA3B;AASA;AAGhC,wBAAa,CAAC,IAAD;AACH;AAJsB;AA1DE;AAAX;AAGvB,UAAG,gBAAW,KAAE,IAAhB;AACE,iBAAQ,gBAAW,cAAgC,GAAnB,GAAD,GAAK,qBAAQ,CAAC,eAAD,CAAT,GAAiB,GAAD;AAEnD,qBAAQ;AANa;AAAW;AA3uInB;AAeK,+BAAY,eAyBrB,yBAzBqB,CAAZ;AAfL;AAwBM;;;AAEnB;AACA;AAHmB;;;;;AAwxIiB;AAE5B;AACV,yBAAe;AACf,uBAAa,CAAC;AAJmD;AAA3B;AAOC;AAAV;AAE7B,eAAU,gBAAW,QAAM,CAAC,cAAD;AAFE;AAAU;AAKF;AAAR;AAEzB,oBAAJ,IAAG;AACH,eAAU,cAAU,GAAE,gBAAW,SAAC,EAAd;AAHS;AAAQ;AApyIhB;AAKD,+BAAY,eAWrB,yBAXqB,CAAZ;AALC;AAWD,+CAnCL,2CAmCK;AACG;;AACD,2EAAkB,SArCzB,6BAqCyB,EAAO,SArChC,6BAqCgC,CAAzB;AACI,oFAA+B,SAtC1C,6BAsC0C,EAAO,SAtCjD,6BAsCiD,CAAtC;AAEf;;;AAET;AACA;AACA;AACA;AACA;AANS;;;;;;AAqyIgB;AAAR;AAGnB,eAAQ,WAAM;AAHK;AAAQ;AAuCG;AAAX;AAMnB,eAAQ;AAGR;AACA,eAAQ;AAVW;AAAW;AAcA;AAE9B,UAAG,CAAY,eAAH,eAAL,IAAK,CAAZ,EACE,MADF;AAEA,iBAAM,IAAI,CAAC,IAAD;AACV,UAAI,YAAJ,GAAkB;AAClB,UAAI,IAAJ,GAAU;AACN,kBAAJ,IAAG;AACH,sBAAW,CAAC,IAAD;AACX,iBAAM,CAAC,KAAK,oCAAN;AACN;AAV8B;AAcA;AAG9B;AAGA,iBAAM,CAAC,KAAK,yCAAN;AACN,UAAG,WAAM,YAAY,CAAC,KAAK,4BAAN;AACrB,UAAI,CAAC,KAAE,CAAC,CAAR,EACE,WAAM,OAAO,CAAC,CAAD,CADf;AAEA,UAAI,YAAJ,GAAkB;AAClB;AAX8B;AAgJH;AAE3B;AAEA,aAAM,WAAM,OAAM,GAAC,CAAnB;AAEE,eAAqB,cAAC,WAAM,OAAP;AACrB,YAAY,IAAD,QAAX,EACE,IAAI,SAAC,WADP;;AAPyB;AAjII;AAAZ;AAEnB,eAAQ;AAFW;AAAY;AAML;AAAP;AAEnB,eAAQ;AACR,UAAG,KAAK,KAAC,CAAT;AAHmB;AAAO;AAOI;AAAX;AAEnB,eAAuB,cAAC,WAAM,IAAM,CAAC,SAAD,CAAb,CAAyB,eAAC;AACjD,UAAG,KAAK,KAAC,CAAT;AAHmB;AAAW;AAwBH;AAE3B,UAAG,iBAAY,KAAC,CAAhB,EACE,WAAM,CAAC,IAAD,CADR;AAF2B;AAOD;AAAP;AAEnB,eAAuB,cAAC,WAAM,IAAM,CAAC,KAAD,CAAb;AAFJ;AAAO;AAMC;AAEZ,oBAAC,WAAM,IAAM,CAAC,KAAD,CAAb,CAAqB,OAAO,CAAC,KAAD;AAFhB;AAMI;AAE/B,UAAG,IAAI,KAAC,IAAR;AAF+B;AAnIA;AAS/B,uBAAW;AAToB;AAwIL;AAE1B,UAAG,IAAI,KAAC,IAAR;AAF0B;AA0HA;AAE1B,UAAG,IAAI,KAAC,IAAR;AACA,UAAG,MAAM,KAAC,oCAAV;AAH0B;AApHE;AAElB;AACV,wBAAY;AACZ,oBAAQ,YAAO,QAAC;AAJ+C;AAAnC;AAQA;AAE5B,0BAAc;AACd;AACE;AADF;AAGE,4BAAc;AAHhB;AAKA,UAAY,WAAD,QAAX,EACE,WAAM,SAAC,WADT;AAEU;AAVkB;AAnKJ;AAAL;AAEnB,eAAQ;AAFW;AAAK;AAiLF;AAAH;AAEnB,eAAQ,eAAU,QAAC,YAAM,CAAC,IAAD,CAAN;AAFA;AAAG;AAMI;AACxB;AAEF,UAAa,gBAAH,eAAP,MAAO,CAAV;AAEE;AACA,iBAAO,QAA8B,OAAb,MAAO,SAAC,EAAK,GAAC,CAAD,kBAArC;AAAI;AACH,oBAAG,OAAO,CAAa,MAAO,QAAM,CAAC,CAAD,CAA1B;;AACX;OAGA,MAAgB,kCAAC,MAAD;AAXQ;AAeK;AAE3B,uBAAJ,IAAG;AAF4B;AAMN;AAEzB,UAAG,WAAM,OAAM,KAAC,CAAhB,EACE,MADF;AAEA;AACA;AACE;AADF;AAGE;AAHF;AALyB;AA0BI;AAE7B,UAAG,iBAAY,GAAC,CAAhB,EACM,iBAAJ,IAAG,CADL;AAEA,UAAG,iBAAY,KAAC,CAAhB,EACE,cADF;AAJ6B;AAuBH;AAE1B;AAEA,aAAqB,cAAC,WAAM,KAAC,KAAD,CAAP;AACrB,iBAAM,CAAC,KAAK,uCAAN;AACN,UAAY,IAAD,QAAX,EACE,IAAI,SAAC,WADP;AAN0B;AAjJM;AAAb;AAEnB,eAAU,0BAAqB,QAAC,YAAM,CAAC,IAAD,CAAN;AAFb;AAAa;AAMF;AAAX;AACjB;AAEF,UAAG;AACH,UAAW,CAAC,CAAD,SAAI,IAAa,CAAR,kBAAQ,KAAE,EAAF,CAA5B;AACG,iBAAQ,CAAC,cAAgB,GAAH,GAAD,GAAK,kBAAD;AAEzB,qBAAQ;AAPQ;AAAW;AAsJL;AAAN;AAEnB,eAAQ;AACR,YAAM,SAAC,CAAO,KAAP;AAHY;AAAM;AAzBI;AAAV;AAEX;AAER,eAAO,QAAiB,OAAZ,WAAM,OAAM,GAAC,CAAD,kBAAxB;AAAI;AAED,iBAAuB,cAAC,WAAM,IAAM,CAAC,CAAD,CAAb;AACvB,YAAG,MAAM,IAAG,KAAC,EAAb,EACE,aADF;;AAGH,eAAQ;AAVW;AAAU;AA4DD;AAG5B,iBAAM,SAAS,CAAC,OAAO,MAAR;AAHa;AAtBJ;AAGxB;AACA;AACE,mBAAM,KAAK,CAAkB,OAAlB;AADb;AAGE;AAHF;AAJwB;AAWI;AAG5B;AACA;AACE,mBAAM,SAAS,CAAsB,OAAtB;AADjB;AAGE;AAHF;AAJ4B;AA/jJjB;AA4BS,+BAAW,cAjCX,kCAiCW,CAAX;AA5BT;AAiDK;;;AAEd;AAFc;;;;;AA6iJgB;AAAR;AAGxB,eAAQ;AAHgB;AAAQ;AAPC;AAGjC,oBAAU;AACM,0CAAC,UAAD;AAJyE;AAAxD;AAtiJjB;AAMI,+BAAO,UA3VhB,yBA2VgB,EAAyB,cA5DhC,kCA4DgC,CAAhC;AANJ;AAqCN;AA1BA;;AAES;;AAGJ,qCAHI,2CAGJ;AACI;;AACJ,qCADI,2CACJ;AAEF,oEAAmB,SAiBtB,wBAjBsB,CAAnB;AAEC;AAIM;;;AAElB;AACA;AAHkB;;;;;AAmoDiB;AAE3B;AACV,wBAAc;AACd,uBAAa,CAAC;AAJgD;AAAzB;AAOC;AAAV;AAE5B,eAAU,eAAU,aAAW,CAAC,cAAD;AAFH;AAAU;AAKF;AAAR;AAExB,oBAAJ,IAAG;AACH,eAAU,cAAU,GAAE,eAAU,kBAAC,EAAb;AAHQ;AAAQ;AA/oDhB;AAKA,+BAAW,cAMrB,wBANqB,CAAX;AALA;AAWV;;;AAER;AACA;AACA;AACA;AACA;AACA;AACA;AAcA;AA4BA;AACA;AAnDQ;;;;;;;;;AAmhJoB;AAAZ;AAGlB,UAAG,CAAY,CAAC,gBAAD,SAAf;AACE,iBAAQ;AAER,qBAAkB,cAAC,gBAAW,IAAM,CAAC,MAAD,CAAlB;AANF;AAAY;AASK;AAAjB;AAGlB,UAAG,CAAY,CAAC,gBAAD,SAAf;AACE,iBAAQ;AAER,qBAAQ,gBAAW;AANH;AAAiB;AAUA;AAAjB;AAGlB,UAAW,CAAC,WAAD,SAAS,IAAY,CAAC,WAAM,YAAP,SAAhC;AACE,iBAAQ,WAAM,YAAY,QAAQ,CAAC,IAAD;AAElC,qBAAQ,CAAC;AANO;AAAiB;AAUV;AAGzB,UAAG,CAAY,CAAC,gBAAD,SAAf,EACE,mBAAa,YAAO,QAAC,UADvB;AAEA,sBAAW,IAAI,CAAC,UAAD;AACf,gBAAU,OAAV,GAAmB;AANM;AAUE;AAG3B,yBAA4B,CAAZ,gBAAY,GAAI,UAAJ,CAAe,GAAwB,CAApB,OAAO,cAAa,GAAI,MAAJ,CAAxB;AAHhB;AAOD;AAG1B,yBAAgD,CAAX,CAApB,OAAO,cAAa,GAAI,MAAJ,CAAW,IAAI,EAAJ,CAAQ,GAAgB,CAAZ,gBAAY,GAAI,MAAJ,CAAhB;AAH9B;AAOD;AAGzB,gBAAU,OAAV,GAAmB;AACnB,UAAY,gBAAD,QAAX;AAEE,wBAAW,OAAO,CAAC,UAAD;AAClB,YAAG,gBAAW,OAAM,KAAC,CAArB;AAEE,0BAAW,SAAC;AACZ,6BAAa;SAHf;OAHF;AAJyB;AAgBY;AAGrC,UAAG,kBAAa,KAAE,IAAlB;AAEE,0BAAa,OAAO,CAAC,UAAD;AACpB,YAAG,kBAAa,OAAM,KAAC,CAAvB;AAEE,4BAAa,SAAC;AACd,+BAAe;AACP,8BAAD,kBAAC,qBAAgB,2CAAjB;SAJT;OAHF;AAHqC;AAgBD;AAElC;AAAK;AAGP,UAAG,CAAY,CAAC,WAAD,SAAf,EAA6B,MAA7B;AACA,aAAM;AACN,UAAG,IAAI,GAAC,CAAR,EAAe,MAAf;AACA,UAAG,KAAK,GAAC,CAAT,EAAgB,QAAO,CAAvB;AACA,cAAO,WAAM,YAAY;AACzB,UAAG,KAAK,IAAE,KAAV,EAAqB,QAAO,KAAK,GAAC,CAAlC;AACA,UAAG,KAAK,KAAE,IAAV;AAEE,mBAAM,YAAY,OAAO,CAAC,IAAD;AACzB,mBAAM,YAAY,OAAO,CAAC,MAAM,IAAP;OAH3B;AAXoC;AAsPL;AAG/B;AAAQ;AAAQ;AAGhB,UAAG,UAAI,KAAC,EAAR,EACE,MADF;AAEA,UAAY,WAAD,QAAX;AAEE,iBAAQ;AACR,iBAAU,WAAK,OAAC,aAAY,CAAC,UAAD;AAC5B,YAAY,MAAD,QAAX;AAEE,cAAG,MAAH;AACE,qBAAS;AAET,yBAAU;AACF,gBAAc,MAAW,MAAQ,QAAnB,CAAxB,GAAsD;SANxD;OAJF;AAR+B;AAwBH;AAG5B,aAAO,aAAa,CAAC,gBAAY,GAAI,MAAjB;AAHQ;AAOD;AAG3B,aAAO,aAAa,CAAc,CAAZ,gBAAY,KAAI,EAAJ,CAAQ,GAAI,MAA1B;AAHO;AAlQE;AAG7B,mBAAO;AAHsB;AAOM;AAGnC;AACA;AAEA,iBAAuB,KAAK;AAC5B,UAAY,QAAD,QAAX;AACE,eAAQ,QAAQ;AAEhB,mBAAQ;AACV,WAAK,eAAe,CAAC,OAAS,oCAAW,qCAAwB,CAAZ,gBAAY,GAAI,MAAJ,CAAW,KAAS,CAAL,IAAK,GAAI,MAAJ,CAAjE;AACpB,WAAK,eAAe,CAAC,MAAQ,mCAAU,oCAAuB,CAAZ,gBAAY,GAAI,UAAJ,CAAe,KAAS,CAAL,IAAK,GAAI,UAAJ,CAAlE;AAZe;AAgBL;AAI9B,UAAG,IAAI,KAAC,IAAR;AACA,UAAG,IAAI,KAAC,IAAR;AAL8B;AASC;AAAb;AAGnB,eAAQ;AAHW;AAAa;AAOC;AAAd;AAGlB,eAAQ;AAHU;AAAc;AAcN;AAAR;AAGlB,eAAQ;AAHU;AAAQ;AAOD;AAGjB,0BAAD,kBAAC,qBAAgB,kCAAjB;AAHkB;AAMC;AAGlB,0BAAD,kBAAC,qBAAgB,kCAAjB;AAHmB;AAMG;AAE7B,UAAG,KAAH;AACU,4BAAD,kBAAC,qBAAgB,kCAAjB;AAEP,YAAQ,oBAAD,kBAAC,qBAAgB,kCAAjB;AALoB;AAQA;AAE7B,UAAG,KAAH;AACU,4BAAD,kBAAC,qBAAgB,kCAAjB;AAEP,YAAQ,oBAAD,kBAAC,qBAAgB,kCAAjB;AALoB;AASE;AAG/B;AAGA,UAAI,SAAS,KAAC,wBAAd,EACE,2BAAsB,CAAC,UAAD,CADxB;AAEA,UAAG,CAAY,CAAC,gBAAD,SAAf,EACE,MADF;AAEA,UAAG,gBAAW,OAAM,GAAC,CAAD;AACpB,aAAO,CAAC,IAAE,CAAV;AAEY,sBAAC,gBAAW,IAAM,CAAC,CAAD,CAAlB,CAAsB,aAAa,CAAC,WAAW,SAAZ;AACzC,SAAJ,IAAG;AACH,YAAG,CAAC,IAAE,gBAAW,OAAjB,EACE,IAAG,gBAAW,OAAM,GAAC,CADvB;;AAf6B;AAqBE;;AAIL;AAG5B,YAAM,SAAS,CAAC,IAAD;AAHa;AAOE;AAE5B;AAGF,UAAG,KAAH;AACU,4BAAD,kBAAC,qBAAgB,mCAAjB;AAEP,YAAQ,oBAAD,kBAAC,qBAAgB,mCAAjB;AACT,UAAY,gBAAD,QAAX,EACE,SAAY,QAAsB,OAAjB,gBAAW,OAAM,GAAC,CAAD,kBAAlC;AAAI;AACQ,sBAAC,gBAAW,IAAM,CAAC,MAAD,CAAlB,CAA2B,YAAY,CAAC,KAAD;OAFrD;AAT8B;AAeC;AAE7B;AAGF,UAAG,KAAH;AACU,4BAAD,kBAAC,qBAAgB,oCAAjB;AAEP,YAAQ,oBAAD,kBAAC,qBAAgB,oCAAjB;AACT,UAAW,CAAC,gBAAD,SAAc,IAAI,WAA7B,EACE,SAAY,QAAuB,OAAlB,gBAAW,OAAO,GAAE,CAAF,kBAAnC;AAAI;AACQ,sBAAC,gBAAW,IAAM,CAAC,MAAD,CAAlB,CAA2B,aAAa,CAAC,MAzuJU,IAyuJX;OAFtD;AAT+B;AAcK;AAGpC,UAAG,KAAH;AACU,4BAAD,kBAAC,qBAAgB,yCAAjB;AAEP,YAAQ,oBAAD,kBAAC,qBAAgB,yCAAjB;AAN2B;AASR;AAG5B,UAAG,KAAH;AACU,4BAAD,kBAAC,qBAAgB,iCAAjB;AAEP,YAAQ,oBAAD,kBAAC,qBAAgB,iCAAjB;AANmB;AAUF;AAG1B,UAAG,UAAK,KAAC,OAAT,EAAsB,MAAtB;AACA,UAAW,CAAP,OAAO,KAAE,EAAF,CAAM,IAAI,CAAI,yBAAY,CAAC,QL1lKwB,MAA6B,KK0lKtD,CAArC,EACE,MAAM,oBAAe,QAAC,aAAS,CAAC,4CAAa,mBAAC,UAAD,CAAd,CAAT,CADxB;AAEA,UAAY,WAAD,QAAX;AACE,mBAAM,eAAe,CAAC,KAAK,WAAM,OAAZ;AAErB,YAAA,mBAAc,CAAC,KAAI,WAAM,OAAX;AAChB,uBAAY,CAAC,KAAD;AACZ,qBAAU,CAAC,OAAD;AACV,uBAAY,CAAC,IAAD;AAZc;AAgBM;AAIhC,UAAG,KAAK,KAAC,IAAT;AACA,UAAG,KAAK,KAAC,CAAT;AALgC;AASK;AAIrC,UAAG,KAAK,KAAC,IAAT;AAJqC;AAQV;AAGlB,0BAAD,kBAAC,qBAAgB,mCAAjB;AAHmB;AAOD;AAGlB,0BAAD,kBAAC,qBAAgB,mCAAjB;AAHmB;AAOO;AAIjC,UAAc,CAAV,UAAU,KAAE,IAAF,CAA2E,IAAnC,CAA5B,wBAAW,CAAC,QAAQ,OAAT,CAAiB,KAAE,CAAF,CAAjC,IAA4D,CAAjB,UAAU,OAAO,KAAE,IAAF,CAAtB,IACjC,CAAtB,kBAAa,CAAC,OAAD,CAAS,KAAE,IAAF,CAD1B,EAEI,MAAM,oBAAe,QAAC,aAAS,CAAC,8CAAe,mBAAC,UAAD,CAAhB,CAAT,CAF1B;AAGA,UAAgB,CAAZ,oCAAY,IAAG,oBAAH,CAAoB,IAAW,CAAN,WAAM,KAAE,IAAF,CAA/C,EACE,WAAM,eAAe,CAAC,WAAW,QAAQ,OAApB,CADvB;AAPiC;AAiDG;AAGpC,gBAAU,eAAe,CAAC,IAAD;AAHW;AAOH;AAIjC,UAAG,UAAU,KAAC,IAAd;AAJiC;AAOR;AAAP;AAElB,eAAQ,CAAC;AAFS;AAAO;AA6MA;AAAP;AAElB,eAAU;AAFQ;AAAO;AAKD;AAAN;AAElB,eAAU;AAFQ;AAAM;AAKE;AAE1B,mBAAS;AAFiB;AAKD;AAEzB,kBAAQ;AAFiB;AAvNC;AAAR;AAElB,eAAQ,CAAC;AAFS;AAAQ;AAMC;AAG3B,6BAAiB,cAAC,sCAAD;AACjB,UAAY,MAAD,QAAX,EAAyB,MAAM,gBAAgB,CAAC,IAAD,CAA/C;AAJgD;AAArB;AAQA;AAG3B;AACA;AAGA;AACA,UAAY,kBAAD,QAAX;AAEE,YAAG,kBAAa,OAAM,GAAC,CAAD;AACtB,eAAO,CAAC,IAAE,CAAV;AAEE,cAAa,cAAC,kBAAa,IAAM,CAAC,CAAD,CAApB;AAEb,4BAAa,OAAO,CAAC,CAAD;AACpB,WAAC,aAAc,CAAC,KAAK,wBAAN;AACf,cAAI,kBAAa,KAAC,IAAlB;AACE,gBAAG;AACA,oBAAI,CAAC,GAAC,kBAAa,OAAnB,EACH,IAAG,kBAAa,OADb;AAED,WAAJ,IAAG;;AAEL,+BAAU,CAAC;;;;YAAD;OAfZ;AAiBA;AACA,UAAG,WAAM,KAAE,IAAX,EAAoB,WAAM,gBAAgB,CAAC,IAAD,CAA1C;AACU;AA3BiB;AAqCS;AAEpC,UAAG,CAAiB,CAAb,qCAAa,IAAG,oBAAH,CAApB,EACE,iBADF;AAFoC;AAiBA;AAElC;AAGF,aAAe,gBAAD,QAAd;AAEE,qBAAsB,cAAC,gBAAW,OAAZ;AACtB,mBAAM,CAAC,UAAD;AACN,kBAAU,SAAC;;AATuB;AAcP;AAE3B;AAGF,UAAG,qCAAa,IAAG,oBAAnB,EAAwC,MAAxC;AACS,0BAAD,kBAAC,qBAAgB,qCAAjB;AACR,UAAY,gBAAD,QAAX,EACE,SAAY,QAAsB,OAAjB,gBAAW,OAAM,GAAC,CAAD,kBAAlC;AAAI;AACQ,sBAAC,gBAAW,IAAM,CAAC,MAAD,CAAlB,CAA2B;OAFzC;AAP6B;AAgBG;AAAd;AAElB,UAAG,iBAAY,CAAC,IAAK,GAAN,CAAf;AACE,iBAAU;AAEV,qBAAU;AALM;AAAc;AAtDK;AAErC;AACA;AAHqC;AAaC;AAEtC,UAAG,CAAgB,CAAZ,oCAAY,IAAG,oBAAH,CAAnB,EACE,cADF;AAEA;AAJsC;AAOR;;AA8BF;;AAaC;AAE7B,YAAM,mBAAmB,CAAC,IAAD;AAFI;AAME;AAAb;AAEhB;AAGF,eAAQ;AACR,UAAS,CAAL,KAAK,KAAC,EAAD,CAAK,IAAG,CAAY,CAAC,gBAAD,SAA7B,EAAgD,aAAhD;AACA,eAAO,QAAsB,OAAjB,gBAAW,OAAM,GAAC,CAAD,kBAA7B;AAAI;AACF,YAAI,wBAAW,CAAW,cAAC,gBAAW,KAAC,CAAD,CAAZ,CAAgB,OAAM,KAAjC,CAAuC,KAAC,CAAvD;AAEE,mBAAkB,cAAC,gBAAW,IAAM,CAAC,CAAD,CAAlB;AAClB;SAHF;;AARgB;AAAa;AAgBI;AAGnC,UAAS,CAAL,WAAK,KAAE,IAAF,CAAO,IAAe,CAAV,UAAU,KAAC,WAAD,CAA/B,EAA4C,MAA5C;AACA,UAAG,CAAa,CAAC,kBAAD,SAAhB,EACE,qBAAe,YAAO,QAAC,UADzB;AAEA,UAAG,kBAAa,QAAQ,CAAC,UAAD,CAAY,KAAC,CAAC,CAAtC;AAEE,0BAAa,IAAI,CAAC,UAAD;AACjB,kBAAU,iBAAkB,CAAC,IAAD;OAH9B;AANmC;AAcM;AAEzC,6BAAkB,CAAC,UAAD;AAClB,gBAAU,mBAAoB,CAAC,IAAD;AAHW;AA7XZ;AAAX;AAGlB,eAAQ;AAHU;AAAW;AAoYO;AAAlB;AAGlB,eAAQ;AAHU;AAAkB;AAOT;AAAT;AAGlB,eAAQ;AAHU;AAAS;AAOO;AAGlC,gBAAU,kBAAkB,CAAC,IAAD;AAC5B,yBAAc,CAAC,WAAW,GAAG,UAAU,MAAzB;AACd,UAAG,UAAU,OAAQ,KAAG,IAAxB,EACE,UAAU,OAAO,gBAAgB,CAAC,UAAD,CADnC;AAEA,iBAAM,CAAC,UAAD;AACN,UAAG,oCAAY,IAAG,oBAAlB,EACE,UAAU,aAAa,CAAC,KA/hKuC,IA+hKxC,CADzB;AAEA,uBAAY,CAAC,WAAW,wBAAZ;AAVsB;AAcA;AAGlC,uBAAY,CAAC,WAAW,wBAAZ;AACZ,iBAAM,CAAC,UAAD;AACN,gBAAU,aAAa,CAAC,MAziKyC,IAyiK1C;AACvB,yBAAc,CAAC,WAAW,UAAU,OAAO,EAA7B;AANoB;AASA;AAElC,UAAG,aAAH;AACU,4BAAD,kBAAC,qBAAiB,uCAAlB;AAEP,YAAQ,oBAAD,kBAAC,qBAAiB,uCAAlB;AALyB;AAQH;AAAb;AAElB,eAAQ,yBAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAFX;AAAa;AA1lKrB;;AA0DU,+BAAO,UA1DjB,EA0DiB,CAAP;AAiCL,4BA1GD,6BA0GC;AACD;AA5FJ;AA8FK,0CA9FL,sCA8FK;AAEJ;;AAIJ;;;AAEL;AAFK;AAmvKe;AAAP;AAGf;AACA;AACA;AACA;AAGA,iBAAW,YAAM,KAAS,2BAAT;AACjB,YAAoB,IAAf,WAAe,CAAU,WAAC,CAAD,CAAV;AACpB,UAAiB,IAAd,UAAc,CAAI,GAAJ;AACjB,OAAC,IAAK,CAAC,CAAD;AACN,UAAe,IAAZ,QAAY,CAAI,GAAJ;AACf,UAAG,MAAH;AACO;AACH,YADG,IACH;AAAI,mBAAQ,CAAC,QAAQ,CAAC,CAAD;AACrB,kBAFG,IAEH;AAAI,mBAAQ,CAAC,SAAS,CAAC,EAAE,QAAH;AACtB,kBAHG,IAGH;AAAI,mBAAQ,CAAC,SAAS,CAAC,EAAE,QAAH;AAEtB,kBALG,IAKH,QAAI,SAAQ,UAAK,CAAC,CAAC,WAAW,CAAC,EAAE,QAAH,CAAb,CAAjB;;AAGG;AACH,YADG,KACH;AAAI,mBAAQ,CAAC,SAAS,CAAC,CAAD;AACtB,kBAFG,KAEH;AAAI,mBAAQ,CAAC,UAAU,CAAC,EAAE,QAAH;AACvB,kBAHG,KAGH;AAAI,mBAAQ,CAAC,UAAU,CAAC,EAAE,QAAH;AACvB,kBAJG,KAIH,QAAI,SAAQ,UAAK,CAAC,CAAC,WAAW,CAAC,EAAE,QAAH,CAAb,CAAjB;;AA3BW;AAAO;AA+BE;AAAT;AAIf;AACA;AACA;AACA;AAGA,iBAAW,YAAM,KAAS,2BAAT;AACjB,YAAoB,IAAf,WAAe,CAAI,KAAJ;AACpB,UAAe,IAAZ,QAAY,CAAI,GAAJ;AACf,UAAG,MAAH;AACO;AACH,YADG,IACH;AAAI,WAAC,QAAQ,CAAC,EAAE,CAAH;AACb,kBAFG,IAEH;AAAI,WAAC,SAAS,CAAC,EAAE,EAAE,QAAL;AACd,kBAHG,IAGH;AAAI,WAAC,SAAS,CAAC,EAAE,EAAE,QAAL;AACd,kBAJG,IAIH,QAAI,CAAC,WAAW,CAAC,EAAE,EAAE,QAAL,CAAhB;;AAGG;AACH,YADG,KACH;AAAI,WAAC,SAAS,CAAC,EAAE,CAAH;AACd,kBAFG,KAEH;AAAI,WAAC,UAAU,CAAC,EAAE,EAAE,QAAL;AACf,kBAHG,KAGH;AAAI,WAAC,UAAU,CAAC,EAAE,EAAE,QAAL;AACf,kBAJG,KAIH,QAAI,CAAC,WAAW,CAAC,EAAE,EAAE,QAAL,CAAhB;;AAEM,YAAD,sBAAC,SAAO,KAAR;AACT,UAAiB,IAAd,UAAc,CAAI,GAAJ;AACjB,eAAQ,kBAAa,gBAAc,CAAC,CAAD;AA7BpB;AAAS;AA/IG;AAG3B,YAAM,iBAAY,QAAC,aAAS,CAAC,yCAAoB,mBAAC,kBAAD,CAArB,CAAT;AAHQ;AAvCjB,qBAAO;AACF,0BAAE,EAAE,GAAC,IAAD;AAJI;AAOvB;AAGA,UAAG,KAAK,KAAC,CAAT,EACE,MADF;AAEA,UAAI,KAAK,IAAE,GAAX;AAEY,cAAD,sBAAC,SAAO,GAAR;AACT,uBAAU,CAAC;;;;aAAO,KAAR;OAGV,MAAA,iBAAY,CAAC,MAAM,KAAP;AAlBS;AAqBK;AAG5B;AAGA,UAAG,KAAK,KAAC,CAAT,EACG,MADH;AAEA,UAAG,KAAK,GAAC,aAAT;AACY,cAAD,sBAAC,SAAO,aAAR;AAET,YAAU,MAAD,sBAAC,SAAO,KAAR;AACX,aAAO,KAAK,IAAQ,WAAC,MAAD,CAApB;AAEE,uBAAU,CAAC;;;;aAAa,WAAC,MAAD,CAAd;AACN,aAAJ,IAAgB,WAAC,MAAD;;AAElB,UAAG,KAAK,GAAC,CAAT,EACE,eAAU,CAAC;;;;WAAO,KAAR,CADZ;AAjB4B;AA2BG;AAG/B,UAAG,MAAM,KAAC,4BAAV,EACO,MAAJ,IAAW,GADd;AAEA,UAAU,CAAN,MAAM,GAAC,CAAD,CAAI,IAAU,CAAN,MAAM,KAAC,sBAAD,CAAxB,EACE,kBADF;AAEA,UAAG,MAAM,GAAC,CAAV,EACE,YAAO,CAAC,MAAD,CADT;AAP+B;AArFL;AAAX;AAGd,eAAQ,SAAI,CAAC,EAAE,0BAAH;AAHE;AAAW;AAMC;AAG1B,eAAI,CAAC,IAAI,4BAAL;AAHsB;AAaL;AAAP;AAGd;AAGA,UAAG,SAAI,CAAC,EAAE,0BAAH;AACP,eAAS,SAAI,CAAC,EAAE,sBAAH;AACb,eAAI,CAAC,EAAE,4BAAH;AARU;AAAO;AAWC;AAGvB,UAAG,OAAO,GAAC,CAAX,EACE,MAAM,iBAAY,QAAC,YAAM,CAAC,2CAAD,CAAN,CADrB;AAHuB;AAlBE;AAIzB,kBAAO,CAAC,OAAD;AAJkB;AApCS;AAElC,YAAM,iBAAY,QAAC,aAAS,CAAC,uCAAkB,mBAAC,kBAAD,CAAnB,CAAT;AAFe;AAKC;AAEnC,YAAM,iBAAY,QAAC,aAAS,CAAC,uCAAkB,mBAAC,kBAAD,CAAnB,CAAT;AAFgB;AAyHL;AAAf;AAGf;AAGA,UAAG,MAAM,IAAE,KAAX;AACE,iBAAQ,SAAI,CAAC;;;;aAAO,MAAR;;AAGZ,iBAAQ,SAAI,CAAC;;;;aAAO,KAAR;AACZ,aAAI;AACJ,iBAAc,CAAN,MAAM,GAAC,SAAI,CAAC,MAAM,GAAC,KAAD,CAAO,0BAAd,CAAL,CAA6B,GAAC,EAAD;;AAZ9B;AAAe;AAqCG;AAEjC,UAAG,oBAAe,CAAC,qBAAO,MAAM,MAAd,CAAqB,KAAE,MAAzC,EACG,MAAM,eAAU,QAAC,YAAM,CAAC,gCAAD,CAAN,CADpB;AAFiC;AArBF;AAAhB;AAEf;AAGA,UAAG,MAAM,IAAE,KAAX;AACE,iBAAQ,IAAI,MAAM,CAAC,OAAO,MAAR;;AAGlB,iBAAQ,IAAI,MAAM,CAAC,OAAO,KAAR;AAClB,aAAI;AACJ,iBAAc,CAAN,MAAM,GAAC,SAAI,CAAC,MAAM,GAAC,KAAD,CAAO,0BAAd,CAAL,CAA6B,GAAC,EAAD;;AAX9B;AAAgB;AAeG;AAGlC,2BAAgB,CAAC,OAAO,MAAM,MAAd;AAHkB;AAnJf;AAAJ;AAEf,eAAQ,WAAI,CAAC,2BAAO,EAAE,KAAV;AAFG;AAAI;AAOC;AAAL;AAEf,eAAQ,IAAI,QAAM,CAAC,OAAO,EAAE,KAAV;AAFH;AAAK;AAuGG;AAAR;AAEhB,eAAQ,WAAI,CAAC,qBAAO,EAAE,KAAV;AAFI;AAAQ;AAkDA;AAAR;AAGf;AAGA,eAAQ,eAAQ,CAAC;;;;WAAE,CAAH;AAChB,UAAG,MAAM,KAAC,CAAV,EACE,WAAQ,CAAC,KAAE,CAAX,CADF;AAPe;AAAQ;AAWA;AAAR;AAGf;AAGU,OAAD,sBAAC,IAAE,KAAH;AACT,eAAQ,oBAAe,CAAC,gBAAE,EAAE,KAAL;AACvB,UAAG,MAAM,GAAC,CAAV,EACE,WAAQ,CAAC,CAAC,CAAD,CAAG,KAAE,CAAd,CADF;AARe;AAAQ;AAaA;AAAR;AAEf,eAAQ,eAAQ,CAAC,OAAO,CAAR;AAFD;AAAQ;AAKA;AAAR;AAGf;AAGA,eAAQ,gBAAQ,CAAC;;;;WAAE,KAAH;AAChB,UAAG,MAAM,KAAC,CAAV,EACE,WAAgB,oBAAC,CAAD,CAAhB,CADF;AAPe;AAAQ;AAWA;AAAR;AAEf,eAAQ,eAAQ,CAAC,OAAO,CAAR;AAFD;AAAQ;AAqEA;AAAR;AAGf;AAEU,OAAD,sBAAC,IAAE,KAAH;AACT,eAAQ,oBAAe,CAAC,gBAAE,EAAE,KAAL;AACvB,UAAG,MAAM,IAAE,CAAX,EACE,WAAQ,YAAO,CAAC,gBAAE,EAAE,IAAL,CAAf,CADF;AAPe;AAAQ;AAWA;AAAR;AAEf,eAAQ,eAAQ,CAAC,OAAO,CAAR;AAFD;AAAQ;AAKA;AAAR;AAEf;AAEU,OAAD,sBAAC,IAAE,KAAH;AACT,eAAQ,oBAAe,CAAC,gBAAE,EAAE,KAAL;AACvB,UAAG,MAAM,IAAE,CAAX,EACE,WAAQ,YAAO,CAAC,gBAAE,EAAE,KAAL,CAAf,CADF;AANe;AAAQ;AAUA;AAAR;AAEf,eAAQ,gBAAQ,CAAC,OAAO,CAAR;AAFD;AAAQ;AAKA;AAAR;AAEf;AAEU,OAAD,sBAAC,IAAE,KAAH;AACT,eAAQ,oBAAe,CAAC,gBAAE,EAAE,KAAL;AACvB,UAAG,MAAM,IAAE,CAAX,EACE,WAAQ,YAAO,CAAC,gBAAE,EAAE,IAAL,CAAf,CADF;AANe;AAAQ;AAUA;AAAR;AAEf,eAAQ,gBAAQ,CAAC,OAAO,CAAR;AAFD;AAAQ;AAKA;AAAR;AAEf;AAEU,OAAD,sBAAC,IAAE,KAAH;AACT,eAAQ,oBAAe,CAAC,gBAAE,EAAE,KAAL;AACvB,UAAG,MAAM,IAAE,CAAX,EACE,WAAQ,YAAO,CAAC,gBAAE,EAAE,KAAL,CAAf,CADF;AANe;AAAQ;AAUA;AAAR;AAEf,eAAQ,gBAAQ,CAAC,OAAO,CAAR;AAFD;AAAQ;AAKA;AAAR;AAEf;AAEU,OAAD,sBAAC,IAAE,KAAH;AACT,eAAQ,oBAAe,CAAC,gBAAE,EAAE,KAAL;AACvB,UAAG,MAAM,IAAE,CAAX,EACE,WAAQ,YAAO,CAAC,gBAAE,EAAE,IAAL,CAAf,CADF;AANe;AAAQ;AAUA;AAAR;AAEf,eAAQ,gBAAQ,CAAC,OAAO,CAAR;AAFD;AAAQ;AAKA;AAAR;AAGf;AAEU,OAAD,sBAAC,IAAE,KAAH;AACT,eAAQ,oBAAe,CAAC,gBAAE,EAAE,KAAL;AACvB,UAAG,MAAM,IAAE,CAAX,EACE,WAAQ,YAAO,CAAC,gBAAE,EAAE,KAAL,CAAf,CADF;AAPe;AAAQ;AAYA;AAAR;AAGf,eAAQ,gBAAQ,CAAC,OAAO,CAAR;AAHD;AAAQ;AAMA;AAAR;AAGf;AAGU,OAAD,sBAAC,IAAE,KAAH;AACT,eAAQ,oBAAe,CAAC,gBAAE,EAAE,CAAL;AACvB,UAAG,MAAM,IAAE,CAAX,EACE,WAAQ,YAAO,CAAC,gBAAE,EAAE,IAAL,CAAf,CADF;AARe;AAAQ;AAYA;AAAR;AAEf,eAAQ,gBAAQ,CAAC,OAAO,CAAR;AAFD;AAAQ;AAKA;AAAR;AAGf;AACA;AAEU,OAAD,sBAAC,IAAE,KAAH;AACT,eAAQ,oBAAe,CAAC,gBAAE,EAAE,CAAL;AACvB,UAAG,MAAM,IAAE,CAAX;AAEE,aAAI,YAAO,CAAC,gBAAE,EAAE,KAAL;AACX,iBAAQ,MAAM,GAAC,oBAAe,CAAC,gBAAE,EAAE,CAAL,CAAhB;AACd,mBAAQ,YAAO,CAAC,gBAAE,EAAE,KAAL,CAAf;AACA,mBAAwB,OAAR,QAAP,aAAW,EAAJ,EAAW,EAAH,CAAxB;OALF;AARe;AAAQ;AAiBA;AAAR;AAEf,eAAQ,gBAAQ,CAAC,OAAO,CAAR;AAFD;AAAQ;AAKA;AAAR;AAGf;AACA;AACA;AACA;AAGU,OAAD,sBAAC,IAAE,KAAH;AACT,eAAQ,oBAAe,CAAC,gBAAE,EAAE,KAAL;AACvB,UAAG,MAAM,IAAE,CAAX;AAEE,cAAoB,IAAf,WAAe,CAAI,CAAJ;AACpB,YAAiB,IAAd,UAAc,CAAI,GAAJ;AACjB,SAAC,IAAK,CAAC,CAAD;AACN,YAAe,IAAZ,QAAY,CAAI,GAAJ;AACf,mBAAQ,CAAC,WAAW,CAAC,CAAD,CAApB;OANF;AAXe;AAAQ;AAqBG;AAE1B,uBAAU,CAAC,OAAO,EAAE,KAAV;AAFgB;AAKA;AAE1B,UAAG,WAAI,CAAC,2BAAO,OAAO,KAAf,CAAqB,KAAE,KAA9B,EACE,MAAM,iBAAY,QAAC,YAAM,CAAC,gCAAD,CAAN,CADrB;AAF0B;AAMI;AAE9B,2BAAc,CAAC,OAAO,CAAR;AAFgB;AAKA;AAE9B,UAAI,eAAQ,CAAC,OAAO,KAAR,CAAc,KAAE,KAA5B,EACE,MAAM,iBAAY,QAAC,YAAM,CAAC,gCAAD,CAAN,CADrB;AAF8B;AAMA;AAE9B,2BAAc,CAAC,OAAO,CAAR;AAFgB;AAKA;AAE9B,UAAI,eAAQ,CAAC,OAAO,KAAR,CAAc,KAAE,KAA5B,EACE,MAAM,iBAAY,QAAC,YAAM,CAAC,gCAAD,CAAN,CADrB;AAF8B;AAMA;AAE9B,2BAAc,CAAC,OAAO,CAAR;AAFgB;AAKA;AAE9B,UAAI,eAAQ,CAAC,OAAO,KAAR,CAAc,KAAE,KAA5B,EACE,MAAM,iBAAY,QAAC,YAAM,CAAC,gCAAD,CAAN,CADrB;AAF8B;AAMA;AAE9B,2BAAc,CAAC,OAAO,CAAR;AAFgB;AAKA;AAE9B,UAAI,eAAQ,CAAC,OAAO,KAAR,CAAc,KAAE,KAA5B,EACE,MAAM,iBAAY,QAAC,YAAM,CAAC,gCAAD,CAAN,CADrB;AAF8B;AAMA;AAE9B,2BAAc,CAAC,OAAO,CAAR;AAFgB;AAKA;AAE9B,UAAI,gBAAQ,CAAC,OAAO,KAAR,CAAc,KAAE,KAA5B,EACE,MAAM,iBAAY,QAAC,YAAM,CAAC,gCAAD,CAAN,CADrB;AAF8B;AAMA;AAE9B,4BAAc,CAAC,OAAO,CAAR;AAFgB;AAKA;AAE9B,UAAI,gBAAQ,CAAC,OAAO,KAAR,CAAc,KAAE,KAA5B,EACE,MAAM,iBAAY,QAAC,YAAM,CAAC,gCAAD,CAAN,CADrB;AAF8B;AAMA;AAE9B,4BAAc,CAAC,OAAO,CAAR;AAFgB;AAKA;AAE9B,UAAI,gBAAQ,CAAC,OAAO,KAAR,CAAc,KAAE,KAA5B,EACE,MAAM,iBAAY,QAAC,YAAM,CAAC,gCAAD,CAAN,CADrB;AAF8B;AAMA;AAE9B,4BAAc,CAAC,OAAO,CAAR;AAFgB;AAKA;AAE9B,UAAI,gBAAQ,CAAC,OAAO,KAAR,CAAc,KAAE,KAA5B,EACE,MAAM,iBAAY,QAAC,YAAM,CAAC,gCAAD,CAAN,CADrB;AAF8B;AAMA;AAE9B,4BAAc,CAAC,OAAO,CAAR;AAFgB;AAKA;AAE9B,UAAI,gBAAQ,CAAC,OAAO,KAAR,CAAc,KAAE,KAA5B,EACE,MAAM,iBAAY,QAAC,YAAM,CAAC,gCAAD,CAAN,CADrB;AAF8B;AAMA;AAE9B,4BAAc,CAAC,OAAO,CAAR;AAFgB;AAKA;AAE9B,UAAI,gBAAQ,CAAC,OAAO,KAAR,CAAc,KAAE,KAA5B,EACE,MAAM,iBAAY,QAAC,YAAM,CAAC,gCAAD,CAAN,CADrB;AAF8B;AAOA;AAE9B,4BAAc,CAAC,OAAO,CAAR;AAFgB;AAKA;AAE9B,UAAI,gBAAQ,CAAC,OAAO,KAAR,CAAc,KAAE,KAA5B,EACE,MAAM,iBAAY,QAAC,YAAM,CAAC,gCAAD,CAAN,CADrB;AAF8B;AAMH;AAE3B,wBAAW,CAAC,OAAO,EAAE,KAAV;AAFgB;AAKA;AAE3B,UAAG,IAAI,QAAM,CAAC,OAAO,OAAO,KAAf,CAAqB,KAAE,KAApC,EACG,MAAM,iBAAY,QAAC,YAAM,CAAC,iCAAD,CAAN,CADtB;AAF2B;AAMH;AAAT;AAEf,eAAQ,IAAI,QAAM,CAAC,OAAQ,EAAG,KAAZ;AAFH;AAAS;AAKA;AAAT;AAEf,eAAQ,gBAAS,CAAC,OAAO,CAAR;AAFF;AAAS;AAKA;AAAT;AAGf;AAGA,UAAO,MAAD;AACN,eAAQ,gBAAS,CAAC,EAAE,KAAH;AAPF;AAAS;AAUA;AAAT;AAGf,eAAQ,gBAAS,CAAC,OAAO,CAAR;AAHF;AAAS;AAMA;AAAT;AAEf;AAEA,UAAO,MAAD;AACN,eAAQ,iBAAS,CAAC,EAAE,KAAH;AALF;AAAS;AAQA;AAAT;AAGf,eAAQ,gBAAS,CAAC,OAAO,CAAR;AAHF;AAAS;AAMA;AAAT;AAEf,eAAQ,qBAAgB,CAAC,cAAS,CAAC,OAAO,EAAE,IAAV,EAAgB,EAAE,KAA5B;AAFT;AAAS;AAKA;AAAT;AAEf,eAAQ,gBAAS,CAAC,OAAO,CAAR;AAFF;AAAS;AAKA;AAAT;AAEf,eAAQ,qBAAgB,CAAC,cAAS,CAAC,OAAO,EAAE,KAAV,EAAiB,EAAE,KAA7B;AAFT;AAAS;AAKA;AAAT;AAEf,eAAQ,iBAAS,CAAC,OAAO,CAAR;AAFF;AAAS;AAKA;AAAT;AAEf,eAAQ,qBAAgB,CAAC,cAAS,CAAC,OAAO,EAAE,IAAV,EAAgB,EAAE,KAA5B;AAFT;AAAS;AAKA;AAAT;AAEf,eAAQ,iBAAS,CAAC,OAAO,CAAR;AAFF;AAAS;AAKA;AAAT;AAEf,eAAQ,qBAAgB,CAAC,cAAS,CAAC,OAAO,EAAE,IAAV,EAAgB,EAAE,KAA5B;AAFT;AAAS;AAKA;AAAT;AAEf,eAAQ,iBAAS,CAAC,OAAO,CAAR;AAFF;AAAS;AAKA;AAAT;AAEf,eAAQ,qBAAgB,CAAC,cAAS,CAAC,OAAO,EAAE,IAAV,EAAgB,EAAE,KAA5B;AAFT;AAAS;AAKA;AAAT;AAEf,eAAQ,iBAAS,CAAC,OAAO,CAAR;AAFF;AAAS;AAKA;AAAT;AAEf,eAAQ,qBAAgB,CAAC,cAAS,CAAC,OAAO,EAAE,KAAV,EAAiB,EAAE,KAA7B;AAFT;AAAS;AAKA;AAAT;AAEf,eAAQ,iBAAS,CAAC,OAAO,CAAR;AAFF;AAAS;AAKA;AAAT;AAEf,eAAQ,qBAAgB,CAAC,cAAS,CAAC,OAAO,EAAE,IAAV,EAAgB,EAAE,KAA5B;AAFT;AAAS;AAKA;AAAT;AAEf,eAAQ,iBAAS,CAAC,OAAO,CAAR;AAFF;AAAS;AAKA;AAAT;AAEf,eAAQ,qBAAgB,CAAC,cAAS,CAAC,OAAO,EAAE,KAAV,EAAiB,EAAE,KAA7B;AAFT;AAAS;AAKA;AAAT;AAEf,eAAQ,iBAAS,CAAC,OAAO,CAAR;AAFF;AAAS;AAKA;AAAT;AAGf;AACA;AACA;AACA;AACA;AAGA,YAAoB,IAAf,WAAe,CAAI,CAAJ;AACpB,UAAe,IAAZ,QAAY,CAAI,GAAJ;AACf,OAAC,WAAW,CAAC,EAAE,MAAH;AACF,OAAD,sBAAC,IAAE,CAAH;AACT,UAAiB,IAAd,UAAc,CAAI,GAAJ;AACjB,WAAI,IAAG,GAAH,CAAQ,OAAR,CAAQ,EAAZ,EACE,CAAC,CAAC,CAAD,CAAD,GAAM,CAAE;AACV,eAAQ,qBAAgB,CAAC,EAAE,EAAE,KAAL;AAjBT;AAAS;AAqBO;AAE/B,4BAAe,CAAC,OAAO,CAAR;AAFgB;AAKA;AAE/B,UAAI,iBAAS,CAAC,OAAO,KAAR,CAAc,KAAE,KAA7B,EACE,MAAM,iBAAY,QAAC,YAAM,CAAC,iCAAD,CAAN,CADrB;AAF+B;AAMA;AAE/B,4BAAe,CAAC,OAAO,CAAR;AAFgB;AAKA;AAE/B,UAAI,gBAAS,CAAC,OAAO,KAAR,CAAc,KAAE,KAA7B,EACE,MAAM,iBAAY,QAAC,YAAM,CAAC,iCAAD,CAAN,CADrB;AAF+B;AAMA;AAE/B,4BAAe,CAAC,OAAO,CAAR;AAFgB;AAKA;AAE/B,UAAI,gBAAS,CAAC,OAAO,KAAR,CAAc,KAAE,KAA7B,EACE,MAAM,iBAAY,QAAC,YAAM,CAAC,iCAAD,CAAN,CADrB;AAF+B;AAMA;AAE/B,4BAAe,CAAC,OAAO,CAAR;AAFgB;AAKA;AAE/B,UAAI,gBAAS,CAAC,OAAO,KAAR,CAAc,KAAE,KAA7B,EACE,MAAM,iBAAY,QAAC,YAAM,CAAC,iCAAD,CAAN,CADrB;AAF+B;AAMA;AAE/B,4BAAe,CAAC,OAAO,CAAR;AAFgB;AAKA;AAE/B,UAAI,gBAAS,CAAC,OAAO,KAAR,CAAc,KAAE,KAA7B,EACE,MAAM,iBAAY,QAAC,YAAM,CAAC,iCAAD,CAAN,CADrB;AAF+B;AAMA;AAE/B,6BAAe,CAAC,OAAO,CAAR;AAFgB;AAKA;AAE/B,UAAI,iBAAS,CAAC,OAAO,KAAR,CAAc,KAAE,KAA7B,EACE,MAAM,iBAAY,QAAC,YAAM,CAAC,iCAAD,CAAN,CADrB;AAF+B;AAMA;AAE/B,6BAAe,CAAC,OAAO,CAAR;AAFgB;AAKA;AAE/B,UAAI,iBAAS,CAAC,OAAO,KAAR,CAAc,KAAE,KAA7B,EACE,MAAM,iBAAY,QAAC,YAAM,CAAC,iCAAD,CAAN,CADrB;AAF+B;AAMA;AAE/B,6BAAe,CAAC,OAAO,CAAR;AAFgB;AAKA;AAE/B,UAAI,iBAAS,CAAC,OAAO,KAAR,CAAc,KAAE,KAA7B,EACE,MAAM,iBAAY,QAAC,YAAM,CAAC,iCAAD,CAAN,CADrB;AAF+B;AAMA;AAE/B,6BAAe,CAAC,OAAO,CAAR;AAFgB;AAKA;AAE/B,UAAI,iBAAS,CAAC,OAAO,KAAR,CAAc,KAAE,KAA7B,EACE,MAAM,iBAAY,QAAC,YAAM,CAAC,iCAAD,CAAN,CADrB;AAF+B;AAMA;AAE/B,6BAAe,CAAC,OAAO,CAAR;AAFgB;AAKA;AAE/B,UAAI,iBAAS,CAAC,OAAO,KAAR,CAAc,KAAE,KAA7B,EACE,MAAM,iBAAY,QAAC,YAAM,CAAC,iCAAD,CAAN,CADrB;AAF+B;AAMA;AAE/B,6BAAe,CAAC,OAAO,CAAR;AAFgB;AAKA;AAE/B,UAAI,iBAAS,CAAC,OAAO,KAAR,CAAc,KAAE,KAA7B,EACE,MAAM,iBAAY,QAAC,YAAM,CAAC,iCAAD,CAAN,CADrB;AAF+B;AAevB,kBAAG;AAPY;AAAR;AAGd;AACA;AAAY;AAKZ,eAAQ;AACR,UAAG,KAAK,KAAC,CAAT,EACE,MAAM,YAAC,CAAU,CAAV,CADT;AAEA,mBAAY;AACZ,UAAS,CAAL,KAAK,GAAC,CAAD,CAAI,IAAU,CAAL,KAAK,GAAC,UAAD,CAAvB,EACE,aAAY,KADd;AAEU,YAAD,sBAAC,SAAO,UAAR;AACT,UAAG,KAAK,KAAC,CAAT;AACE;AACE,cAAG,MAAM,KAAK,CAAC;;;;eAAO,UAAR;AACd,cAAG,CAAC,GAAC,CAAL,EACE,gBAAW,CAAC,OAAO,CAAR,CADb;AAEI,gBAAJ,IAAW;SAJb,QAKO,EAAD,CAAC,GAAC,UAAD,CALP;AAOA,mBAAM,KAAK,GAAC,CAAZ;AAEE,YAAG,KAAK,GAAC,UAAT;AACE,cAAG;AAEH,kBAAG;AACL,cAAM,WAAW,CAAC;;;;aAAO,CAAR;AACjB,wBAAW,CAAC,OAAO,CAAR;AACP,aAAJ,IAAU;AACN,cAAJ,IAAW;;AAjCD;AAAQ;AAqCK;AAAb;AAGf;AAGA,eAAU,YAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAClB;AACE,iBAAU,MAAM,kBAAkB,CAAC,QAAD;AADpC;AAGE,cAAO,eAAP,MAAO;AAHT;AAPe;AAAa;AAcG;AAAhB;AAGf;AACA,eAAU,kBAAa,CAAC,QAAD;AAJR;AAAgB;AAOD;AAG9B,0BAAe,CAAC,SAAU,IAAX;AAHe;AAMG;AAGjC,6BAAkB,CAAC,QAAS,SAAU,IAApB;AAHe;AAMF;AAG/B;AACA;AAGA,eAAU,wBAAmB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B;AACE,iBAAU,YAAO,QAAC,YAAM,CAAC,MAAD,CAAN;AAClB;AACE,gBAAM,gBAAgB,CAAC,SAAU,QAAX;AADxB;AAGE,gBAAM,SAAC;AAHT;AAFF;AAQE,cAAO,eAAP,MAAO;AART;AAR+B;AAoBG;AAGlC;AAIA,8BAAmB,CAAC,QAAS;;;;UAAV;AAEnB,0BAAe,CAAC,SAAU,QAAX;AAEf,8BAAmB,CAAC,SAAD;AAXe;AAeC;AAEjC;AAAS;AACT;AACA;AAGC,gBAAc;AACd,cAAY;AAGZ,oBAAS,CAAC,IAAD;AAET,oBAAS,CAAC,OAAD;AAET,eAAO,QAAW,OAAC,OAAD,yBAAlB;AAAI;AAED,YAAO,OAAD,YAAS,CAAD,IAAR;AACN,sBAAS,CAAC,CAAD;;AAEZ,oBAAS,CAAC,CAAD;AAET,oBAAS,CAAC,KAAD;AAET,qBAAU,CAAC,CAAD;AAGV,oBAAa,kBAAb;AA3BgC;AA8BA;AAGlC;AAAQ;AAIT,gBAAW,kBAAS,GAAE,SAAF;AACpB,mBAAuB,OAAD;AAItB,uBAAY,SAAU,GAAE,CAAxB;AACA,qBAAU,CAAC,UAAD;AAEV,uBAAY,SAAU,GAAE,OAAxB;AAfmC;AAmBN;AAE3B;AAAS;AAER;AAGE,YAAG,eAAQ,KAAE,IAAb,EACE,MAAM,kBAAa,QAAC,YAAM,CAAC,4CAAD,CAAN,CADtB;AAEA,kBAAS;AACT,YAAG,OAAO,KAAE,GAAZ,EACE,MAAM,kBAAa,QAAC,YAAM,CAAC,4CAAD,CAAN,CADtB;AAGA,eAAM,eAAQ,KAAE,CAAhB;;AAGA,gBAAO;AACP,YAAG,KAAK,KAAE,MAAV,EACE,MAAM,kBAAa,QAAC,YAAM,CAAC,4CAAD,CAAN,CADtB;AAGA;AAhBF;AAkBE;AACE;;AAEA,gBAAM,kBAAa,QAAC,YAAM,CAAC,4CAAD,CAAN;;AArBxB;AAJ0B;AA8BN;AAAR;AAGf,2BAAc,CAAC;;;;WAAO,CAAR;AAHC;AAAQ;AAMA;AAAR;AAGf,4BAAc,CAAC;;;;WAAO,CAAR;AAHC;AAAQ;AAMC;AAAT;AAGf,4BAAc,CAAC;;;;WAAO,CAAR;AAHC;AAAS;AAMA;AAAT;AAGf,4BAAc,CAAC;;;;WAAO,CAAR;AAHC;AAAS;AAOC;AAGzB,4BAAe,CAAC,EAAE,CAAH;AAHU;AAMA;AAGzB,6BAAe,CAAC,EAAE,CAAH;AAHU;AAMC;AAG1B,6BAAe,CAAC,EAAE,CAAH;AAHW;AAMA;AAE1B,6BAAe,CAAC,EAAE,CAAH;AAFW;AAxkMnB;AAkKY;;;AAEjB;AACA;AACA;AACA;AAAO;AACP;AANiB;;;;;;;AAs9LoB;AAAZ;AAE3B,UAAG,eAAU,KAAC,IAAd,EACE,kBAA0B,IAAd,UAAc,CAAI,YAAJ,CAD5B;AAEA,eAAQ;AAJmB;AAAY;AAOD;AAAX;AAE3B,UAAG,cAAS,KAAC,IAAb,EACE,iBAAuB,IAAZ,QAAY,CAAI,YAAJ,CADzB;AAEA,eAAQ;AAJmB;AAAW;AAOJ;AAAP;AAG3B,eAAQ;AAHmB;AAAO;AAMI;AAAX;AAE3B,eAAQ;AAFmB;AAAW;AA3DA;AAGtC,qBAAS;AACT,mBAAO;AACP,uBAAW;AACX,wBAAY;AAN0B;AAUQ;AAAb;AAGjC,eAAQ,oBAAa,CAAe,IAAd,UAAc,CAAI,GAAJ,CAAf;AAHY;AAAa;AAMA;AAAb;AAGjC;AAKA,eAAO,QAAe,OAAV,GAAG,OAAO,GAAC,CAAD,kBAAtB;AAAI;AACF,cAAM,CAAC,CAAD,CAAN,GAAW,GAAI;;AATgB;AAAa;AAYA;AAAb;AAGjC;AAGA,eAAuB,IAAf,WAAe,CAAU,WAAC,MAAD,CAAV;AACvB,UAAiB,IAAd,UAAc,CAAI,MAAJ;AACjB,OAAC,IAAK,CAAC,MAAD;AAR2B;AAAa;AAqCf;AAAJ;AAG3B;AAAE;AAAI;AAGN,eAAQ;AACR,UAAS,CAAL,UAAK,GAAC,CAAD,CAA0B,IAAR,CAAT,cAAS,GAAC,UAAD,CAAd,IAAoC,CAAT,cAAS,IAAE,CAAF,CAAjD;AAEE,iBAAQ;AACR,YAAI,MAAM,GAAO,CAAL,UAAK,GAAC,cAAD,CAAjB,EACE,SAAS,UAAK,GAAC,cADjB;AAEA,cAAK;AACL,eAAM;AACN,YAAG;AACH,eAAM,CAAC,GAAC,MAAR;AAEE,gBAAM,CAAC,IAAD,CAAN,GAAc,kBAAQ,SAAS,CAAC,GAAD;AAC3B,aAAJ,IAAG;AACC,cAAJ,IAAG;AACC,WAAJ,IAAG;;AAEL,yBAAW,cAAS,GAAC,MAAD;OAftB;AAP2B;AAAI;AA2BA;AAAJ;AAGtB;AACH,UADG,IACH;AAAc,yBAAW;AACzB,gBAFG,IAEH;AAAc,yBAAW,UAAK,GAAC,MAAD;AAC9B,gBAHG,IAGH,iCAAc,iBAAW,cAAS,GAAC,MAAnC;AAEF,UAAG,oBAAe,IAAc,CAAT,cAAS,GAAC,UAAD,CAAhC,EACE,iBAAW,UADb;AAEA,eAAQ;AAER,UAAG,MAAO,GAAE,CAAZ,EACE,MAAM,sBAAS,QAAC,YAAM,CAAC,qBAAD,CAAN,CADlB;AAZ2B;AAAI;AAkBS;AAGxC,UAAG,UAAK,GAAC,CAAT,EACE,MAAM,YAAY,CAAC,kBAAa,cAAc,CAAC,YAAD,EAAS,UAArC,CADpB;AAHwC;AAOD;;AAErB;AAEhB,wBAAU,CAAC,OAAO,MAAM,WAAd;AACV,YAAY,QAAD,QAAX,EACE,QAAQ,CAAC,KAAD,CADV;AAHgB;AAOD;AAEf,YAAY,OAAD,QAAX;AACE,iBAAO,CAAC,MAAK,MAAN;AAEP,oBAAM,wBAAW,QAAC,YAAM,CAAC,0BAA0B,GAAC,MAA5B,CAAN;AALL;AASjB;AACA,4BAAgB,UAAU,CAAC,KAAK,sBAAN;AAnBa;AAsBC;;AAGxC,sBAAW,CAAC,UAAU,MACpB;AAEE,YAAY,QAAD,QAAX,EACC,UADD;AAFF,QAKA;AAEE,YAAY,MAAD,QAAX,EACE,MAAM,CAAC,QAAD,CADR;AAFF,OANS;AAH6B;AA1jMrB;AA+BN;;;AAEX;AAFW;AAojMoB;AAGjC,qBAAW,CAAC,YAAO,CAAC;;;;UAAD,EAAc,UAAtB;AACX,uBAAW;AAJsB;AAQL;AAAP;AAGrB;AACA;AAGA,UAAG,iBAAW,GAAC,CAAf;AACE,wBAAa,CAAb;;AAGE,aAAI,cAAU,GAAa,UAAV,cAAU,GAAI,CAAJ,CAAb;AAEd,YAAe,CAAX,iBAAW,GAAC,cAAD,CAAY,IAAiB,CAAZ,iBAAY,GAAE,EAAF,CAA5C,EACE,gBAAe,EAAf,CADF;AAGA,wBAA4B,CAAZ,iBAAY,GAAU,CAAP,IAAO,GAAC,CAAD,CAAV,CAAe,GAAI,CAAY,CAAP,IAAO,GAAC,CAAD,CAA3D;;AAGJ,UAAG,iBAAW,KAAC,cAAf;AACE,iBAAQ;AACL,gBAAG,iBAAW,KAAC,CAAf;AACH,iBAAQ;;AAIR,iBAAuB,IAAf,WAAe,CAAI,iBAAJ;AACvB,YAAI,MAAM,KAAC,IAAX,EACE,MAAM,iBAAY,QAAC,YAAM,CAAC,wCAAD,CAAN,CADrB;AAGA,mBAAwB,IAAd,UAAc,CAAI,MAAJ;AACxB,gBAAQ,IAAK,CAAC,IAAI,aAAC,EAAN;;AA/BM;AAAO;AAoCE;AAG9B;AACU;AAJoB;AAQH;AAG3B,mBAAO;AACP,uBAAW;AACX,sBAAY,CAAC,CAAD;AALe;AASS;AAGpC,uBAAU,CAAV;AACA,YAAM,YAAC,CAAU,CAAV;AACP,kBAAO,CAAC,MAAM,QAAC,EAAR;AACP,UAAI,cAAI,GAAC,CAAT,EACE,aAAQ,CAAC,OAAO,CAAR,CADV;AANoC;AAUP;AAG7B,sBAAY,CAAC,OAAD;AACZ,mBAAO;AACP,UAAG,cAAS,GAAC,UAAb,EACE,iBAAW,UADb;AAL6B;AAcH;AAAL;AAEnB;AAGF,UAAS,CAAL,KAAK,KAAC,CAAD,CAAI,IAAa,CAAT,cAAS,GAAC,CAAD,CAA1B,EACM,OAAC,CADP;AAEA,eAAQ,cAAS,GAAC,KAAD;AACjB,UAAG,MAAM,GAAC,UAAV;AAEE,YAAG,MAAM,GAAC,cAAV,EACE,gBAAY,CAAC,MAAD,CADd;AAEA,qBAAO;OAJT;AAMA,yBAAS,IAAK,CAAK,gBAAC,OAAO,OAAO,KAAf,EAAsB,cAA3B;AACd,uBAAW;AACX,eAAQ;AAhBa;AAAK;AALA;AAAL;AAErB,eAAU,YAAK,CAAC,OAAQ,EAAG,KAAZ;AAFM;AAAK;AApoMb;AAkBD;AAqpMgB;AAAR;AAEpB,eAAQ,kBAAa,cAAc,CAAC,YAAD;AAFf;AAAQ;AAPC;AAEnB;AACV,qBAAU,CAAC,kBAAa,cAAc,CAAC,oBAAD,EAAe,WAAC,MAAD,CAA3C;AACV,uBAAiB,WAAC,MAAD;AAJmC;AAAvB;AA9oMjB;AAIQ,+BAAa,ULz0B3B,6BKy0B2B,EAAb;AAJR;AAUC;;;AAEX;AACA;AAHW;;;;;AA06BR,gBAAG,CAAC,GAAC,IAAD;AAFyB;AAAb;AAIrB;AACA;AACA;AAAI;AAGJ,eAAQ;AACR,UAAG,cAAU,KAAE,sBAAS,WAAC,EAAzB;AAEE,eAAqB,IAAf,WAAe,CAAI,YAAM,MAAM,CAAC,EAAE,cAAH,CAAhB;AACrB,YAAG,IAAI,KAAE,IAAT;AAEE,gBAAoB,UAAZ,IAAI,OAAQ,GAAI,IAAJ;AACpB,mBAAS,QAAK,4BAAd;AAAI;AAGV;;SANI;;AAcA,cAAmB,IAAd,UAAc,CAAI,YAAM,MAAM,CAAC,EAAE,cAAH,CAAhB;AACnB,YAAG,GAAG,KAAE,IAAR;AAEJ;AACA;AACA;SAJI;;AA5BmB;AAAa;AAyDJ;AAE9B,mBAAM,CAAC,GAAI,sBAAS,WAAC,GA39BsE,IA29BrF;AAFyB;AAAD;AAKA;AAE9B,mBAAM,CAAC,QAAS,sBAAS,WAAC,GAh+BiE,IAg+BrF;AAFgD;AAAxB;AAzBA;AAE9B;AAGU;AACV,uBAAa;AACb,YAAY,OAAD;AACX,UAAG,cAAU,KAAE,sBAAS,WAAC,EAAzB;AAEE,uBAAU,CAAC,qBAAc,CAAC,QAAQ,IAAK,cAAd,EAAyB,GAAG,GAAC,CAA5C;AACV,yBAAW,GAAG,GAAC,CAAD;;AAId,uBAAU,CAAC,qBAAc,CAAC,QAAQ,IAAK,cAAd,EAAyB,GAAxC;AACV,yBAAW;;AAhBwG;AAAvF;AA8BA;AAE9B,UAAG,kBAAH,EACY,SAAV,KAAU,YADZ;AAEU;AAJoB;AAOC;AAAV;AAIrB;AACA;AACA;AAIA,kBAAY,cAAI,GAAC,kBAAD;AAChB,UAAG,cAAU,KAAE,sBAAS,WAAC,EAAzB;AAEE,YAAG,SAAS,GAAM,CAAL,KAAK,GAAC,CAAD,CAAlB,EACE,QAAO,SADT;AAGU,SAAD,sBAAC,IAAE,KAAK,GAAC,CAAT;AACT,yBAAU,CAAC;;;;aAAE,EAAE,KAAK,GAAC,CAAX;AACV,cAAK,yBAAa,CAAC,eAAD;AAClB,iBAAQ,qBAAc,CAAC,IAAI,EAAE,KAAK,GAAC,CAAD,CAAI,cAAhB;;AAItB,YAAG,SAAS,GAAC,KAAb,EACE,QAAO,SADT;AAGU,SAAD,sBAAC,IAAE,KAAH;AACT,yBAAU,CAAC;;;;aAAE,EAAE,KAAL;AACV,cAAK,yBAAa,CAAC,eAAD;AAClB,iBAAQ,qBAAc,CAAC,IAAI,EAAE,MAAO,cAAd;;AA7BH;AAAU;AAiCE;AAGjC;AACA;AAGA,YAAK,qBAAc,CAAC,QAAe,OAAD,QAAW,cAA1B;AACnB,UAAG,yBAAa,CAAC,GAAD;AAChB,sBAAW,CAAC,EAAQ,WAAC,CAAD,CAAT;AATsB;AAnhCpB;AAMO;AACA,+BAAc,wBAAd;AACA,+BAAc,yBAAmB,aL2U5C,+BK3U4C,EAA0B,6BAA3D;AARP;AAoBE;AAu1BmB;AAGlC;AACA;AAGA,UAAG,KAAK,SAAS,KAAC,QAAlB;AACE,YAAG,IAAI,CAAC,KAAK,KAAN;AACJ,gBAAI,KAAK,SAAS,KAAC,MAAnB;AACH,YAAG,KAAK;AAER,kBAAM,mCAAsB,QAAC,aAAS,CAAC,qDAAsB,mBAAM,GAAL,KAAK,KAAN,CAAvB,CAAT;AAC/B,YAAK,mBAAc,CAAC,EAAU,CAAD,OAAV;AACnB,qBAAU,CAAC,IAAI,GAAG,WAAR;AAdwB;AAiBA;AAGlC;AAGA,UAAG,CAAI,2BAAe,CAAC,KAAM,KAAP,CAAtB,EACE,MAAM,iBAAY,QAAC,aAAS,CAAC,4CAAa,mBAAC,OAAD,CAAd,CAAT,CADrB;AAEA,qBAAU,CAAC,uCAAD;AARwB;AAWF;AAEtB;AACV,qBAAU,CAAC,uCAAD;AAH6C;AAAvB;AAMA;AAEtB;AACV,uBAAU,CAAC,SAAS,QAAQ,OAAlB;AAHqF;AAA/D;AAMM;AAG5B;AACV,uBAAU,CAAC,SAAS,qBAAQ,CAAC,KAAD,EAAQ,OAA1B;AAHuB;AADK;AAOV;AAAL;AAGvB,YAAM,mCAAsB,QAAC,YAAM,CAAC,wDAAD,CAAN;AAC7B,eAAQ;AAJe;AAAK;AAOI;AAEtB;AAFsB;AA74BjB;AAKK,+BAAM,SF74Bb,kCE64Ba,CAAN;AACA,+BAAS,2BAAmC,yBAAS,wBAArD;AACM,mCAAS,2BAA2B,sBAAkB,sBAAtD;AAPX;AAaL;;AACC,iCADD,kCACC;AAEA,kEAAmB,UA0HvB,qBA1HuB,CAAnB;AACA,kEAAmB,UA2SvB,qBA3SuB,CAAnB;AACA,kEAAmB,UAnQvB,qBAmQuB,CAAnB;AAEL;;;AAEJ;AACA;AACA;AACA;AALI;;;;;;;AA4mMgB;AAEtB,mBAAS;AAFa;AA5mMhB;AAuBI;;AAQW;AA+6PoB;;AA/6PpB;AAkCF;;;AAEjB;AAFiB;;;;;AAmkMgB;AAAR;AAE3B,kBAAO,kBAAe,CAAC;;;;UAAD;AAFK;AAAQ;AAKC;AAAT;AAE3B,kBAAO,kBAAe,CAAC;;;;UAAD;AAFK;AAAS;AAyUI;AAGxC;AACA;AAJwC;AAOD;AAEvC,aAAa,cAAD,OAAU,GAAE,CAAxB;;AAFuC;AA1UH;AAE1B;AACV,UAAI,MAAM,KAAC,IAAX,EACE,MAAM,eAAU,QAAC,YAAM,CAAC,wDAAD,CAAN,CADnB;AAEA,qBAAW;AAL2C;AAAlB;AAgBA;AAAT;AAE3B,eAAU;AAEV,kBAAO,KAAK,CAAC,CAAC,EAAE,0BAAJ;AAJe;AAAS;AARA;AAAT;AAE3B;AAEA,kBAAO,iBAAe,CAAC;;;;UAAD;AACtB,eAAqB;AALM;AAAS;AAeU;AAG9C;AAH8C;AAMJ;AAG1C;AACA;AAGA,gBAAS,EAAT;AACA,UAAoB,CAAX,gBAAW,GAAI,IAAJ,CAAS,KAAE,IAA/B;AAEE,iBAAe;AACf,kBAAO,EAAP;AACA,YAAW,CAAP,MAAO,GAAI,GAAJ,CAAQ,KAAE,CAArB,EACU,UAAD,eAAC,YAAM,2BAAP,CAAC,CADV;AAEA,YAAW,CAAP,MAAO,GAAI,GAAJ,CAAQ,KAAE,CAArB,EACU,UAAD,eAAC,YAAM,0BAAP,CAAC,CADV;AAEA,YAAW,CAAP,MAAO,GAAI,GAAJ,CAAQ,KAAE,CAArB,EACU,UAAD,eAAC,YAAM,wBAAP,CAAC,CADV;AAEA,YAAG,0BAAW,IAAG,WAAjB;AAEE,sBAAa;AACR;AACH,cADG,IACH;AACE,0BAAa,eAAb;AACF,oBAHG,IAGH;AACE,0BAAa,gBAAb;AACF,oBALG,IAKH;AACE,0BAAa,gBAAb;AACF,oBAPG,IAOH;AACE,0BAAa,oBAAb;;AAEA,kBAAM,eAAU,QAAC,YAAM,CAAC,oDAAD,CAAN;;SAbvB;OAVF;AA4BA,wBAAiB,cAAjB;AACA,mBAAY,cAAZ;AArC0C;AAwCF;AAAb;AAE3B,eAAU;AAFiB;AAAa;AAKR;AAEhC,kBAAO,KAAK,CAAC,OAAO,KAAR;AAFoB;AAKM;AAEtC;AAEA,gBAAiB,gBAAD;AAChB,cAAQ,UAAC,CAAQ,OAAR;AACT,cAAQ,SAAS,CAAC,aAAQ,OAAT;AANqB;AASF;AAAT;AAE3B,kBAAO,kBAAe,CAAC;;;;UAAD;AAFK;AAAS;AAKG;AAAZ;AAG3B,yBAAQ,gBAAR;AAH2B;AAAY;AAMH;AAAT;AAE3B;AACA;AAEK;AACH,UADG,IACH;AAEI,oBAAO,iBAAe,CAAC;;;;YAAD;AACZ,cAAD,oBAAC,OAAO,CAAR;AACT,iBAAO,QAAW,OAAC,MAAD,yBAAlB;AAAI;AAEF,sBAAO,iBAAe,CAAC;;;;cAAD;AACtB,gBAAM,iBAAN,OAAO,MAAI,CAAL;;OAGZ,UAXG,IAWH;AACE,iBAAU;AACZ,gBAbG,IAaH;AACE,iBAAU;AACZ,gBAfG,IAeH;AACE,iBAAU;AACZ,gBAjBG,IAiBH,6BACE,SAAU,MADZ;AAtByB;AAAS;AA2BD;AAAR;AAE3B,kBAAO,iBAAe,CAAC;;;;UAAD;AAFK;AAAQ;AAKC;AAAT;AAE3B,kBAAO,iBAAe,CAAC;;;;UAAD;AAFK;AAAS;AAKA;AAAT;AAE3B,kBAAO,kBAAe,CAAC;;;;UAAD;AAFK;AAAS;AAKI;AAAb;AAE3B,kBAAO,kBAAe,CAAC;;;;UAAD;AAFK;AAAa;AAMN;AAAP;AAG3B;AACA;AAGA;AACE,iBAAU;AACV,eAAM,IAAN;AAEE,iBAAQ;AACR,cAAU,IAAD,OAAO,KAAE,CAAlB,EACE,KADF;AAEA,kBAAO,QAAQ,SAAoB;AACnC,cAAG,KAAK,KAAC,CAAC,CAAV,EACE,MAAM,eAAU,QAAC,YAAM,CAAC,oDAAD,CAAN,CADnB;AAEA,mBAAQ,MAAO,GAAM,CAAF,CAAE,IAAI,KAAJ,CAAN;;AAVnB;AAaE;AACA;AAdF;AAP2B;AAAO;AA8BO;AAGzC;AAGA,kBAAO,kBAAe,CAAC;;;;UAAD;AACtB,UAAG,SAAU,KAAG,SAAhB,EACE,MAAM,eAAU,QAAC,YAAM,CAAC,4CAAD,CAAN,CADnB;AAPyC;AAWP;AAAP;AAE3B;AAAE;AACF;AAEA,kBAAO,iBAAe,CAAC;;;;UAAD;AACZ,YAAD,oBAAC,OAAO,CAAR;AACT,eAAO,QAAK,0BAAZ;AAAI;AAEF,oBAAO,iBAAe,CAAC;;;;YAAD;AACtB,cAAM,iBAAN,OAAO,MAAI,CAAL;;AAVmB;AAAO;AAcG;AAAV;AAE3B;AACA;AAGA,eAAQ;AACR,UAAG,UAAU,KAAE,wBAAf,EACE,MAAM,gBAAW,QAAC,YAAM,CAAC,0CAAD,CAAN,CADpB;AAEA,UAAG;AACO,YAAD,oBAAC,OAAQ,CAAT;AACT,eAAO,QAAW,OAAC,MAAD,yBAAlB;AAAI;AAEF,oBAAO,iBAAe,CAAC;;;;YAAD;AACtB,cAAM,iBAAN,OAAO,MAAI,CAAL;;AAdmB;AAAU;AAmBI;AAAd;AAE3B,eAAQ,eAAU;AAFS;AAAc;AAKG;AAAjB;AAG3B,eAAQ,eAAU;AAHS;AAAiB;AAMH;AAEzC;AACA;AACA;AAAe;AAEf,UAAG,kBAAH,EAEE,mBAAc,CAAC;;;;WAAO;;;;WAAO;;;;WAAe;;;;UAA9B,CAFhB;AAKA,aAAM,gBAAU,KAAG,sBAAnB,EACE;AACF;AAGA,aAAM,gBAAU,KAAG,sBAAnB,EACE,kBAAa,CAAC,IAAD;AACf;AAlByC;AAqBJ;;AAElB;AAEjB;AACA;AAEA,eAAM,KAAM,GAAE,CAAd;AAEE,cAAG,KAAM,GAAE,IAAX;AACE,sBAAW;AAEX,0BAAW;AACH,eAAD,sBAAC,QAAM,OAAP;AACT,oBAAI,CAAC;;;;eAAO,OAAR;AACA,eAAJ,IAAW;;AAbI;AAkBnB;AAEK;AACH,WADG,IACH,gCAAQ,CADL,IACK,6BAAR,IAAiB,CADd,IACc,4BAAjB,IAAyB,CADtB,IACsB,2BAAzB,EACA;eAFG,IAEH;AAEI,eAAM,gBAAU,KAAG,sBAAnB,EACE;AACF;OAEJ,UARG,IAQH;AACE,iBAAS,CAAC,CAAD;AACX,gBAVG,IAUH;AACE,iBAAS,CAAC,CAAD;AACX,gBAZG,IAYH;AACE,iBAAS,CAAC,CAAD;AACX,iBAdG,IAcH,qCACA,CAfG,IAeH,8BADA;AAEE,iBAAS,CAAC,CAAD;AACX,gBAjBG,IAiBH;AACE;AACF,gBAnBG,IAmBH;AACE,uBAAU,CAAC,wBAAD;AACZ,gBArBG,IAqBH;AAEI,gBAAe,gBAAD;AACd,iBAAS,CAAC,KAAD;OAEb,UA1BG,IA0BH;AACE;AACF,gBA5BG,IA4BH;AAEI,eAAM,gBAAU,KAAG,sBAAnB;AAGE,cAAG,gBAAU,IAAG,cAAC,uBAAQ,wBAAS,uBAAlB,CAAhB,EACE,gBADF;AAEA,mBAAS,CAAC,CAAD;AACT,iBAAM,gBAAU,KAAG,sBAAnB,EACE;AACF;;AAEF;OAZJ;AAlDmC;AA30MlB;AAQC,+BAAO,UA9UpB,qBA8UoB,CAAP;AARD;AAoCH,uEAAmB,UAiB5B,qBAjB4B,EAA2B,4BAAsB,0BAAwB,uBAA5F;AACH,oEAAmB,UAgBzB,qBAhByB,EAAoB,aA/c1C,wBA+c0C,EAAuB,qBAA9D;AACM,0EAAmB,UAe/B,qBAf+B,EAAmB,qBAAtC;AACG,6EAAmB,UAclC,qBAdkC,EAA8B,+BAAwB,kBA1zB/E,8BA0zB+E,EAAiC,aAjdtH,yBAidsH,EAA1G;AACH,0EAAsB,aAld/B,wBAkd+B,CAAtB;AACP,mEAAmB,UAYxB,qBAZwB,EAAwB,yBAAqB,yBAAhE;AACU,6EAAmB,UAWlC,qBAXkC,EAAmB,YA90BjD,yBA80BiD,EAA2B,0BAAgB,uBAAsB,0BAAM,sBAA7G;AACE,+EAAmB,UAUpC,qBAVoC,EAA0B,2BAA4B,kBAvXlF,8BAuXkF,EAAzE;AACH,4EAAmB,UASjC,qBATiC,EAAyB,kBAxXlD,6BAwXkD,EAAgC,aAtdvF,yBAsduF,EAA5E;AAEE,8EAAmB,UAOnC,qBAPmC,EAAmB,YAl1BlD,yBAk1BkD,EAAuB,YJ/yBjE,wCI+yBiE,EAA0C,+BACjH,yBADU;AAEM,oFAAmB,UT35BzC,2BS25ByC,EAAwB,YAp1B7D,0BAo1B6D,GAAuB,YJjzB5E,wCIizB4E,EAAkC,wBAApG;AAKtB;;;AAEL;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAlBK;;;;;;;;;;;;;;;;;;;AAm7N0B;AAGjC;AAAE;AACF;AACA;AACA;AACA;AACA;AAEG;AAV8B;AAWjC,YAAY,YAAD,QAAX;AAEE,cAAe;AACf,cAA6B,CAAC;AAC9B,iBAAO,CAAC,KAAE,IAAV;AAEE,iBAA8B,CAAC;AAC/B,kBAAK,CAAC;AACN,gBAAY,qBAAD,QAAX,EACE,qBAAgB,CAAC,KAAK;;;;gBAAN,CADlB;AAEA,gBAAG,wBAAmB,CAAC,CAAC,OAAO,IA98M8C,IA88MvD;AACtB,gBAAY,CAAD,QAAX;AACE,kBAAG,CAAC,UAAU,SAAS,KAAM,KAAE,gCAA/B;AACE,8CAAgB,CAAC,CAAC,WAAW,CAAC,WAAW,gDAAzB;AAEhB,oBAAA,2BAAa,CAAC,CAAC,WAAW,CAAC,WAAW,CAAzB;;AAGf,kBAAG,cAAG,CAAC,IAAI,CAAC,UAAN;AACN,kBAAI,CAAC,KAAE,CAAP;AAEE,oBAAG,sBAAgB,CAAC,CAAC,UAAF;AACnB,iBAAC,aAAa,CAAC,CAAC,OAAO,CAAC,WAAW,eAAI,CAAC,CAAC,WAAW,EAAE,CAAC,GAAC,CAAjB,EAAoB,eAAI,CAAC,CAAC,WAAW,CAAC,GAAC,CAAD,CAAU,CAAC,UAAF,OAAa,GAAC,CAArC,CAAjD;eAHhB;;AAMF,aAAC,WAAW,CAAC,EAAE,IAAH;AACZ,gBAAG;;AAEL,iCAAU,CAAC;;;;cAAD;SA5BZ;AAXiC;AAU9B;AAV8B;;AA+2BA;;AAAlB;AAGf;AAE8B;AAArB;AAEP;AACA;AACA;AAAS;AACT;AAEA,iBAAQ,QAAQ,OAAC;AACjB,eAAM,MAAM,KAAE,IAAd;AAEE,oBAAkB,MAAD;AACjB,mBAAO,QAAuB,OAAlB,OAAO,OAAC,OAAU,GAAC,CAAD,kBAA9B;AAAI;AAEF,uBAAU,OAAO,SAAS,CAAC,CAAD,CAAG;AAC7B,gBAAG,QAAQ,KAAK,KAAC,4BAAjB;AAEE,8BAA8B;AAC9B,kBAAG,qBAAQ,CAAC,aAAa,MAAM,UAApB,CACP,IAA6B,OAAxB,aAAa,OAAc,eAAH,CADjC,EAEM,OAAiB,aAAa,MAFpC;aAHF;;AAQF,mBAAQ,MAAM;;AAtBT;AAAqB;AA2B9B,eAAU;AACV,eAAQ,qBAAqB,CAAC,UAAD;AAE7B,UAAU,CAAN,MAAM,KAAC,IAAD,CAA+B,IAAb,CAAC,gBAAD,SAAZ,IAAwC,CAAV,gBAAU,KAAE,UAAF,CAAxD,EACE,SAAQ,qBAAqB,CAAC,gBAAD,CAD/B;AAGA,UAAI,MAAM,KAAC,IAAX;AACE,0BAAmB,aAAQ,CAAC,UAAD;AAC3B,YAAW,CAAC,eAAD,SAAkB,IAAI,eAAe,aAAa,CAAC,eAAD,CAA7D,EACE,SAA0B,eAD5B;OAFF;AAMA,UAAU,CAAN,MAAM,KAAC,IAAD,CAAM,IAAY,CAAC,0BAAD,SAA5B,EACE,0BAAoB,CAAC,MAAM,WAAY;;;;UAAnB,CADtB;AAGA,UAAU,CAAN,MAAM,KAAC,IAAD,CAAM,IAAI,CAAI,MAAM,aAAa,CAAC,eAAD,CAA3C,EACE,MAAM,mBAAc,QAAC,aAAS,CAAC,8CAAgB,mBAAC,aAAD,CAAjB,CAAT,CADvB;AA/Ce;AAAkB;AAx4Bb;AAAL;AAEf,eAAU;AACV,UAAY,aAAD,QAAX,EACE,aAAQ,CAAC,KAAM,QAAS;;;;UAAhB,CADV;AAHe;AAAK;AAOK;AAAV;AAEf;AAEA,eAAQ;AACR,UAAS,CAAL,KAAK,KAAC,IAAD,CAAM,IAAe,CAAX,WAAW,KAAC,EAAD,CAA9B,EACE,aADF;AAEA,eAAU,KAAK,OAAC,cAAa,CAAC,WAAD;AAC7B,oBAAe,MAAO,KAAE,IAAF;AAGtB,UAAY,kBAAD,QAAX,EACE,kBAAa,CAAC,KAAM,YAAa;;;;WAAQ;;;;UAA5B,CADf;AAGA,UAAG,WAAH,EACE,MAAM,eAAU,QAAC,YAAM,CAAC,oDAAD,CAAN,CADnB;AAde;AAAU;AA4dG;;AAE5B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAE8B;AAArB;AAEP,iBAAQ;AACR,YAAY,yBAAD,QAAX;AAEE,wBAAa;AACb,oBAAS;AACT,iBAAM;AACN,mCAAkB,CAAC,MAAK,SAAS;;;;eAAU,OAAO;;;;eAAQ;;;;cAAxC;AAClB,cAAG,OAAuB,IAAV,CAAI,IAAT,IAA+B,CAAX,WAAW,KAAE,eAAF,CAA1C,EAEE,WAAY,yBAAW,CAAC,QAAQ,OAAC,aAAW,eAArB,CAFzB;AAGA,cAAG,IAAH;AACE,yBAAO;AACP,qBAAQ;AACR;WAHF;SATF;AAHO;AAAqB;AAqB9B;AACE,eAAQ,YAAO;AACf;AACE,qBAAY;AACZ,mCAAqB;AACrB,mBAAU;AACV,iBAAM,IAAN;AAEE,sBAAW,cAAG,CAAC,IAAI,MAAL;AACd,gBAAG,OAAO,GAAC,CAAX;AACE,+BAAa,eAAI,CAAC,OAAQ,EAAG,OAAO,GAAC,CAApB;;AAGjB,+BAAa;AACb;;AAEF,6BAAM,CAAC;;;;iBAAO,EAAE,OAAV;AAEN,uBAAY,yBAAW,CAAC,QAAQ,OAAC,aAAW,cAArB;AACvB,gBAAG,CAAY,CAAC,QAAD,SAAf;AACE,kBAAG,CAAI,qBAAqB,CAAC,IAAD,CAA5B,EAAwC,MAAxC;AACA,kBAAG,CAAY,CAAC,QAAD,SAAf,EACE,oBADF;aAFF;AAMA,gBAAG,QAAQ,SAAS,KAAM,KAAE,4BAA5B;AACE,oBAAe,2BAAa,CAAC,SAAU,QAAX;AAI5B,wBAAO;AAET,gBAAG,CAAY,gBAAH,eAAJ,GAAI,CAAZ;AAGE,0BAAO;AACP,oBAAM,eAAU,QAAC,YAAM,CAAC,mDAAD,CAAN;aAJnB;AAMA,uBAAwB;;AAG1B,qBAAY,yBAAW,CAAC,QAAQ,OAAC,aAAW,cAArB;AACvB,cAAY,QAAD,QAAX;AACE,8BAAa,CAAC,SAAU,QAAX;;AAGb,qCAAqB;AACrB,oBAAQ,iBAAiB,CAAC,KAAD;AACzB,qCAAqB;AACrB,gBAAU,cAAD,OAAY,GAAE,CAAvB;AACE,kBAAG,CAAI,qBAAqB,CAAC,KAAD,CAA5B,EAAyC,MAAzC;AACA,kBAAG,CAAY,CAAC,QAAD,SAAf,EACE,oBADF;aAFF;;AA/CJ;AAsDE;;AAEY,gBAAD,oBAAC,KAAM,CAAP;AACT,gBAAG,SAAS,OAAC,aAAY,CAAC,eAAD,CAAzB,EACE,OAAmB,SAAU,MAD/B;AAEA,gBAAU,IAAD,OAAO,KAAE,CAAlB,EACE,OAAQ,SAAS,WADnB;AAEA,kBAAM,eAAU,QAAC,aAAS,CAAC,kDAAoB,mBAAC,QAAM,MAAK,QAAO,GAAD,CAAC,SAAnB,CAArB,CAAT;WA7DrB;;AAFF;AAmEE;;AACE,cAAG,CAAI,sBAAkB,IAAG,CAAI,UAAK,CAAC,CAAC,SAAF,CAArC,EACE,QADF;SApEJ;;AAlC4B;AA6GlB,qBAAkB,2BAAC,YAAW,UAAZ;AAFC;AAI7B;AACA;AAEA;AACA;AACA;AACA;AAEA,UAAI,QAAQ,OAAO,KAAC,EAApB,EACE,MAAM,eAAU,QAAC,YAAM,CAAC,gDAAD,CAAN,CADnB;AAGA,iBAAY,QAAQ;AACP,iBAAR,QAAQ;AACX,UADW,IACX;AACc,oBAAP,YAAO;AACV,YADU,KACV;AAEE,kBAAS;AACT,cAAG,sBAAgB,CAAC,MAAM;;;;cAAP,CAAnB;AACE,oCAAU,CAAC,SAAU,SAAU,KAArB;AAEV,sBAAM,eAAU,QAAC,YAAM,CAAC,oDAAD,CAAN;SAErB,UATU,KASV;AACE,kCAAU,CAAC,SAAU,SAAU,oBAArB;AACZ,kBAXU,KAWV;AACE,oCAAY,CAAC,SAAU,SAAU,2BAArB;;AAEd,kCAAU,CAAC,SAAU,SAAU,kBAArB;;OAEd,UAlBW,IAkBX;AACE,iCAAW,CAAC,SAAU,SAAU,kBAArB;AACb,gBApBW,IAoBX;AACE,gCAAU,CAAC,SAAU,SAAc,eAAD,aAAxB;AACZ,gBAtBW,IAsBX;AAEI,gBAAS,wBAAY,CAAe,SAAW,gBAA1B;AACrB,YAAG,KAAM,KAAE,CAAC,CAAZ,EACE,MAAM,eAAU,QAAC,YAAM,CAAC,oDAAD,CAAN,CADnB;AAEA,gCAAU,CAAC,SAAU,SAAU,KAArB;OAGd,UA9BW,IA8BX;AACE,kCAAY,CAAC,SAAU,SAAU,gBAArB;AAEd,gBAjCW,IAiCX;AAEI,uBAAU,CAAC,qBAAD;AACV,YAAgB,QAAS,SAAS,KAAK,KAAC,kCAAxC,EACE,wBAAU,CAAC,SAAU,SAAU,YAAO,QAAQ,CAA4B,QAAS,SAArC,CAApC,CADZ;OAGJ,WAvCW,IAuCX,uCAAU,CAvCC,IAuCD,yCAAV;AACE,YAAG,YAAO,YAAW,KAAE,qBAAvB;AAEE,sBAAO;AACP,mCAAa,CAAC,SAAU,SAAU,UAArB;;AAGb,oBAAS;AACT,kBAAO;AACP,cAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAK,SAAS,SAAS,MAAM;;;;cAA9B,CADrB;AAEA,cAAG,CAAI,OAAP;AACE,kBAAM,KAAN,GAAe,eAAU,CAAC,WAAM,KAAP;AACzB,kBAAM,KAAN,GAAe;AACf,gBAAY,MAAM,KAAP,QAAX,EACE,yBAAa,CAAC,SAAU,SAAU,MAArB,CADf;WAHF;;AAOJ,gBAzDW,IAyDX;AAEI,iBAAQ;AACR,YAAY,0BAAD,QAAX,EACE,0BAAqB,CAAC,KAAK,SAAS,SAAS;;;;YAAxB,CADvB;AAEA,gCAAU,CAAC,SAAU,SAAU,MAArB;OAEd,UAhEW,IAgEX;AAEI,oCAAc,CAAC,SAAS,SAAS,kBAAnB;OAElB,WApEW,IAoEX,sCAAS,CApEE,IAoEF,sCAAT;AACc,oBAAP,YAAO;AACV,YADU,KACV;AAEI,sBAAO;AACP,kCAAU,CAAC,SAAU,SAAU,CAArB;SAEd,UANU,KAMV;AAEI,sBAAO;AACP,6BAAc,CAAa,2BAAa,CAAC,SAAU,QAAX,CAA1B;;AAIhB,cAAG,CAAY,CAAC,YAAD,SAAf,EACE,eAAS,gCAAW,QAAC,YAAM,CAAC,+BAAD,CAAN,CADvB;AAE8B,sBAAa,YAAQ;AAEjD,4BAAW;AACX,wBAAO;AACP,4BAAW;AACX,4BAAW;;;AAOjB,cAAM,eAAU,QAAC,aAAS,CAAC,oDAAsB,mBAAI,GAAS,qBAAR,QAAQ,MAAb,CAAvB,CAAT;;AAhHQ;AAnfA;AAE7B,kBAAO;AACP,YAAM,eAAU,QAAC,aAAS,CAAC,gDAAiB,mBAAC,iBAAD,CAAlB,CAAT;AAHY;AAgOL;AAExB;AAAY;AAIZ,aAAM,CAAI,gBAAV,EACE,iBAAY,CAAC,QAAD;AACd;AAGA,mBAAc;AACd,oBAAe;AACf;AACE,sBAAS,QAAQ;AACjB,YAAG,CAAY,CAAC,WAAD,SAAf,EACE,cAAS,UADX;AAEA,uBAAU,QAAQ;AAElB,eAAM,CAAI,gBAAV,EACE,kBAAa,CAAC,IAAD;AACf;AARF;AAUE,sBAAS;AACT,uBAAU;AAXZ;AAeA,UAAI,QAAQ,KAAC,UAAb,EACE,wBADF;AA5BwB;AA/XG;AAAZ;AAEf,eAAU,wBAAmB,QAAC,YAAM,CAAC,MAAD,CAAN;AAFf;AAAY;AApBH;AAEd;AACV,UAAI,MAAM,KAAC,IAAX,EACE,MAAM,eAAU,QAAC,YAAM,CAAC,wDAAD,CAAN,CADnB;AAEA,qBAAW,iBAAY,CAAC,MAAD;AALmB;AAAlB;AAQA;AAEhB,eAAR,KAAQ;AACE;AAHc;AAOG;AAE3B,kBAAM;AAFqB;AAUI;AAE/B,qBAAW,YAAO,QAAC;AAFY;AAKL;AAE1B,UAAG,YAAO,YAAW,KAAG,KAAxB;AACE,cAAM,eAAU,QAAC,YAAM,CAAC,oDAAD,CAAN;AAEjB,YAAA,YAAO;AALiB;AAQI;AAG9B,UAAW,CAAC,SAAD,SAAY,IAAI,qBAAQ,CAAC,KAAK,cAAN,CAAnC;AAEE,iBAAS,CAAC,IAAD;AACC,sBAAD,oBAAC,eAAW,CAAZ;OACF,UAAW,CAAC,SAAD,SAAY,IAAI,OAA3B;AAPqB;AAWM;AAGpC;AAEA,UAAW,CAAC,SAAD,SAAY,IAAI,qBAAQ,CAAC,KAAK,cAAN,CAAnC;AAGE,YAAG,YAAO,YAAW,KAAG,wBAAxB;AAEE,sBAAO;AACP,mCAAqB;AACrB,gBAAM,eAAU,QAAC,YAAM,CAAC,oDAAD,CAAN;SAEjB,MAAA,YAAO;AAET,oBAAa,kBAAa,QAAC;AAC3B;AACE,sBAAO,WAAW,CAAC,SAAD;AAClB,mCAAqB;AACrB,mBAAS,CAAC,SAAD;AAHX;AAKE,mBAAU,eAAV,SAAU;AALZ;AAOU,sBAAD,oBAAC,eAAW,CAAZ;OACF,UAAW,CAAC,SAAD,SAAY,IAAI,OAA3B;AAzB2B;AA4BZ;AAAT;AAEf,eAAU,YAAO,YAAW,KAAE,sBAAF;AAFb;AAAS;AAKK;AAErB,eAAR,KAAQ;AACR,qBAAW;AAHkB;AA0EE;AAE/B;AAEA;AACA;AACA,eAAS,QAAmB,OAAd,YAAO,OAAO,GAAE,CAAF,kBAA5B;AAAI;AACQ,sBAAC,YAAO,KAAC,CAAD,CAAR,CAAY;;AAPO;AAWP;AAAT;AAEf,eAAU,YAAO;AAFF;AAAS;AAKJ;AAIpB,kBAAM,KAAK,CAAC,OAAQ,KAAT;AAJS;AAaM;AAAX;AAEf;AAEA,kBAAa,YAAO;AACpB,UAAG,SAAU,KAAE,sBAAf;AACE,iBAAU;AACP,gBAAG,SAAU,KAAE,uBAAf;AACH,iBAAU;AAEV,kBAAM,eAAU,QAAC,YAAM,CAAC,oDAAD,CAAN;AAVJ;AAAW;AAaH;AAAR;AAEf;AAEA,UAAK;AACL,UAAU,CAAD,OAAI,KAAE,CAAf;AACE,iBAAU,CAAC,QAAC,CAAD;AAEX,kBAAM,eAAU,QAAC,YAAM,CAAC,oDAAD,CAAN;AARJ;AAAQ;AAWI;AAAZ;AAGf;AAGA,UAAK;AACL,UAAU,CAAD,OAAI,KAAE,CAAf;AACE,iBAAU,CAAC,QAAC,CAAD;AAEX,kBAAM,eAAU,QAAC,YAAM,CAAC,oDAAD,CAAN;AAVJ;AAAY;AAaG;AAAf;AAGf;AAGA,UAAK;AACL,UAAU,CAAD,OAAI,KAAE,CAAf;AACE,iBAAU,CAAC,QAAC,CAAD;AAEX,kBAAM,eAAU,QAAC,YAAM,CAAC,oDAAD,CAAN;AAVJ;AAAe;AAaA;AAE9B;AAEA,gBAAU;AACV,UAAG,CAAI,gBAAP,EACE,UAAU,QADZ;AAEA,aAAM,CAAI,gBAAV;AACE;AACA,eAAQ,UAAU;AAClB,eAAM,gBAAS,KAAE,sBAAjB,EACE,iBAAY,CAAC,IAAD;AACd;;AAEF,gBAAU;AACV;AAf8B;AAkBF;;AAAb;AAEf;AAEgB;AAAP;AAEP,iBAAU;AACV,YAAG,CAA4B,CAAV,CAAZ,2BAAY,IAAG,KAAH,CAAU,IAAW,CAAC,SAAD,SAAX,CAA/B,EACE,6CADF;AAEA,uBAAc,IAAd;AACA,qBAAO,cAAc,CAAC,KAAD;AACrB,iBAAU,WAAK,CAAC,CAAC,SAAF;AAPR;AAAO;AAWhB;AAAe;AACf;AAAG;AACH;AAAa;AACb;AACA;AAAG;AACH;AAEA,kBAAO,eAAe,CAAC;;;;WAAO;;;;WAAU;;;;WAAe;;;;UAAjC;AACtB,oBAAe;AACf,wBAAmB;AACnB,sBAAiB;AACjB;AACE,iBAAU;AACV,YAAG,CAAY,CAAC,MAAD,SAAf,EACE;AACE,cAAG,2BAAY,IAAG,KAAlB;AAIE,gBAAY,gBAAD,QAAX;AACE,uBAAU,gBAAW,cAAc,CAAC,IAAD;AAEnC,2BAAU;AAEZ,gBAAG,CAAY,CAAC,MAAD,SAAf;AAEE,kBAAY,wBAAD,QAAX,EACE,wBAAmB,CAAC,MAAM,KACxB,uBAAkB,CAAC,aAAD,EAAiB;;;;kBADlB,CADrB;AAGA,kBAAG,CAAY,CAAC,MAAD,SAAf,EACE,MAAM,eAAU,QAAC,aAAS,CAAC,iDAAmB,mBAAC,OAAD,CAApB,CAAT,CADnB;aALF;AASA,2BAAU,MAAM;AAChB,gBAAG,CAAY,CAAC,YAAD,SAAf,EACE,eAAU,UADZ;;AAIA,qBAAU;AACV,6BAAkB,uBAAkB,CAAC,aAAD;AACpC,gBAAY,uBAAD,QAAX,EACE,uBAAkB,CAAC,MAAM,eAAgB;;;;gBAAvB,CADpB;AAEA,gBAAG,CAAY,CAAC,MAAD,SAAf;AAGV;AACA;AAEY,kBAAG,wBAAS,IAAG,KAAf,EACE,YAAY,gBAAZ,GAC+B,aAA7B,YAAY,iBAAmB,cAAC,mCAAW,iCAAZ,CAAF,CAFjC;AAGA,0BAAY,SAAO,CAAC,WAAD;AACnB,0BAAY;AAKZ,uBAAU;aAfZ;AAiBQ,kBAAM,gBAAP,kBAAC,MAAM,iBAAkB,kCAAzB;;AA7CX;AAgDE;;AACE,gBAAG,CAAI,OAAO,CAAC,EAAE;;;;gBAAH,CAAd,EACE,QADF;WAjDJ;SADF;AAsDA,YAAY,MAAD,QAAX,EACE;AACU,gBAAM,gBAAP,kBAAC,MAAM,iBAAkB,kCAAzB;AAGP,0BAAiB,UAAK,QAAC;AACvB,mBAAS,QAA2B,OAAtB,MAAM,kBAAC,EAAe,GAAE,CAAF,kBAApC;AAAI;AAEF,gBAAK,MAAM,aAAW,CAAC,CAAD;AACtB,gBAAG,uCAAe,IAAG,CAAC,gBAAtB;AAEE,2BAAa,IAAI,CAAC,CAAD;AACT,eAAC,gBAAF,kBAAC,CAAC,iBAAkB,kCAApB;aAHT;;AAOF,cAAG,CAAiB,CAAZ,2BAAY,IAAG,KAAH,CAApB,EACE;AACE,kBAAM,mBAAmB,CAAC,YAAD;AACzB,gBAAY,eAAD,QAAX,EACE,eAAU,CAAC,MAAM,OAAQ;;;;gBAAf,CADZ;AAEA,kBAAM,QAAC,CAAQ,IAAR;AACP,gBAAG,wBAAmB,CAAC,IAAD,CAAO,KAAE,MAA/B,EACU,MAAM,gBAAP,kBAAC,MAAM,iBAAkB,iCAAzB,CADT;AALF;AAQE;;AACE,kBAAG,CAAI,OAAO,CAAC,EAAE;;;;kBAAH,CAAd,EACE,QADF;aATJ;WADF;AAaA,cAAG,CAAY,CAAC,MAAD,SAAf,EACE,aADF;AAEA,cAAG,iCAAS,IAAG,MAAM,gBAArB,EACE,mBAAe,MADjB;AAIQ,gBAAM,gBAAP,kBAAC,MAAM,iBAAkB,kCAAzB;AACP,mBAAS,SAAyB,QAApB,aAAa,SAAC,EAAM,GAAE,CAAF,qBAAlC;AAAI;AACgB,0BAAC,aAAa,KAAC,CAAD,CAAd,CAAkB,gBAA7B,kBAAW,cAAC,aAAa,KAAC,CAAD,CAAd,CAAkB,iBAAkB,kCAA/C;;AAET,gBAAM,UAAU,CAAC,KAAD;AAER,gBAAM,gBAAP,kBAAC,MAAM,iBAAkB,kCAAzB;AACP,mBAAS,SAAyB,QAApB,aAAa,SAAC,EAAM,GAAE,CAAF,qBAAlC;AAAI;AACgB,0BAAC,aAAa,KAAC,CAAD,CAAd,CAAkB,gBAA7B,kBAAW,cAAC,aAAa,KAAC,CAAD,CAAd,CAAkB,iBAAkB,kCAA/C;;AAET,cAAG,0BAAW,IAAG,KAAjB,EACE,YAAM,cAAc,CAAC,OAAQ,QAAT,CADtB;AAIA,cAAI,CAA4B,CAAV,CAAZ,2BAAY,IAAG,KAAH,CAAU,IAAa,CAAT,iCAAS,IAAG,MAAM,gBAAT,CAAb,CAAyC,IAC9C,CAAxB,YAAO,QAAQ,CAAC,MAAD,CAAS,GAAE,CAAF,CAD3B;AAGI,qBAAS,SAAyB,QAApB,aAAa,SAAC,EAAM,GAAE,CAAF,qBAAlC;AAAI;AACF,0BAAO,IAAI,CAAC,aAAa,KAAC,CAAD,CAAd;;AACb,wBAAO,IAAI,CAAC,MAAD;WALf;AAhDF;AAwDE,cAAiB,CAAZ,2BAAY,IAAG,KAAH,CAAU,IAAW,CAAC,SAAD,SAAtC,EACE,MAAO,eAAP,MAAO,CADT;AAEA;AA1DF,SADF;AAxDF;AAsHE,uBAAU;AACV,2BAAe;AACf,qBAAc,eAAd,aAAc;AAxHhB;AA1Be;AAAa;AAymBE;AAG9B;AAEA,mBAAQ,MAAR;AACA,oBAAS;AACT,qBAAU;AACV;AACA;AACE,eAAM,CAAI,gBAAV;AAEE,sBAAO;AACP,sBAAa,kBAAa,CAAC,IAAD;AAC1B,cAAY,IAAD,QAAX,EACE,IAAI,CAAC,SAAD,CADN;;AAGF;AACA;AATF;AAWE;AAXF;AAT8B;AAnbN;AAAT;AAEf,UAAG,YAAO,YAAW,6BAArB;AAEE;AACA,iBAAU,YAAO;OAEjB,eAAU;AAPG;AAAS;AAgBG;AAAZ;AAEf,UAAG,YAAO,YAAW,KAAE,0BAAvB;AAEE,oBAAO;AACP,iBAAU,YAAO;OAEjB,eAAU,kBAAV;AAPa;AAAY;AAWH;AAAT;AAEf;AAEA,kBAAa,YAAO;AACpB,UAAG,SAAU,IAAG,cAAC,wBAAS,sBAAO,wBAAS,uBAAQ,sBAAlC,CAAhB;AACE,iBAAU,YAAO,UAAU,CAAC,SAAD;AAE3B,kBAAM,eAAU,QAAC,YAAM,CAAC,oDAAD,CAAN;AARJ;AAAS;AAYE;AAAX;AAEH,iBAAP,YAAO;AACV,UADU,IACV;AACE,iBAAU,YAAO;AACnB,gBAHU,IAGV;AACE,iBAAU,YAAO;AACnB,gBALU,IAKV;AACE,iBAAU,YAAO;;AAEnB,cAAM,eAAU,QAAC,YAAM,CAAC,oDAAD,CAAN;;AAVJ;AAAW;AAcE;AAAb;AAEf,UAAG,YAAO,YAAW,gCAArB;AAEE,oBAAO;AACP,iBAAU,YAAO;OAEjB,eAAU;AAPG;AAAa;AAUN;AAAP;AAEf,UAAG,YAAO,YAAW,KAAE,qBAAvB;AAEI,oBAAO;AACP,iBAAU,YAAO,QAAQ,CAAC,QAAD;OAG3B,eAAU;AARG;AAAO;AAWO;AAE7B,qBAAU,CAAC,sBAAD;AAFmB;AAKF;AAE3B,qBAAU,CAAC,sBAAD;AAFiB;AAwRK;AAAjB;AAEf;AAAO;AACP;AACA;AAAe;AAAU;AAEzB,kBAAO;AACP,eAAU;AAGR;AACE,oBAAO,eAAe,CAAC;;;;aAAO;;;;aAAO;;;;aAAe;;;;YAA9B;AACtB,YAAG,CAAY,CAAC,KAAD,SAAf;AAGE,mBAA0B,cAAS,CAAC,aAAD,CAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,gBAAM,QAAC,CAAQ,QAAR;;AAGP,mBAAU;AAEV,cAAG,CAAiB,CAAZ,oCAAY,IAAG,MAAM,gBAAT,CAApB;AAEE,kBAAM,gBAAN,GACyB,aAAvB,MAAM,iBAAmB,cAAC,mCAAW,kCAAZ,CAAF;AAGzB,gBAAK;AAGL,yBAAc;AACZ,mBAAe,wBAAmB,CAAC,UAAD,CAApB,QAAd;AAEM,eAAJ,IAAG;AACH,2BAAc,QAAe,GAAJ,GAAF,GAAQ,qBAAQ,CAAC,CAAD,CAAV;;AAE/B,kBAAM,QAAC,CAAQ,UAAR;WAfX;;AAmBF,qBAAS;AACT,2BAAe;AACf,YAAY,kBAAD,QAAX;AACE,yBAAW;AAEX,6BAAW,YAAO,QAAC;AAErB;AACE,cAAG,YAAO,QAAQ,CAAC,UAAD,CAAQ,GAAE,CAA5B,EACE,YAAO,IAAI,CAAC,UAAD,CADb;AAEA,wBAAU;AACV,oBAAK,gBAAL,GAA+C,aAAtB,UAAK,iBAAmB,cAAC,mCAAW,kCAAZ,CAAF;AAC/C,oBAAK,UAAU,CAAC,IAAD;AACP,oBAAK,gBAAN,kBAAC,UAAK,iBAAkB,kCAAxB;AAEP,cAAG,CAAY,CAAC,kBAAD,SAAf,EACE,SAAS,QAAmB,OAAd,YAAO,OAAO,GAAE,CAAF,kBAA5B;AAAI;AACQ,0BAAC,YAAO,KAAC,CAAD,CAAR,CAAY;WAF1B;AARF;AAaE,cAAG,CAAY,CAAC,kBAAD,SAAf,EACU,SAAR,KAAQ,UADV;AAEA,yBAAW;AAfb;AAiBA;AAtDF;AAwDE,kCAAqB,CAAC,MAAO,EAAR;AACrB,YAAG,CAAY,CAAC,KAAD,SAAf,EACE,MAAO,eAAP,MAAO,CADT;AAEA;AA3DF;AAVa;AAAiB;AAnRN;AAAX;AAEf;AAEA,WAAI;AACC;AACH,UADG,IACH;AAEI,iBAAQ;AACR;OAEJ,UANG,IAMH;AAEI,iBAAQ;AACR;OAGJ,WAZG,IAYH,gCAAO,CAZJ,IAYI,6BAAP,IAAe,CAZZ,IAYY,6BAAf;AAEI,iBAAQ;OAEZ,UAhBG,IAgBH;AAEI,iBAAQ;OAOX,WAzBE,IAyBF,iCAAQ,CAzBN,IAyBM,4BAAR;AAEG,iBAAS,EAAE,KAAE,uBAAF;AACX;OAEJ,UA9BG,IA8BH;AAEI,iBAAQ,mBAAR;OAEJ,UAlCG,IAkCH;AAEI,iBAAQ;OAEZ,UAtCG,IAsCH;AAEI,iBAAQ;;AAGV,cAAM,eAAU,QAAC,aAAS,CAAC,+DAAiC,mBAAI,EAAC,EAAL,CAAlC,CAAT;;AAhDN;AAAW;AA1EG;AAE7B,kBAAO;AAFsB;AAkcJ;AAAV;AAEf;AAEA,mBAAc,YAAO;AACrB,UAAG,UAAU,KAAC,wBAAd;AACE,iBAAU,YAAO,WAAW,CAAC,UAAD;AAE5B,kBAAM,eAAU,QAAC,YAAM,CAAC,oDAAD,CAAN;AARJ;AAAU;AAYI;AAAd;AAGf,eAAQ;AAHO;AAAc;AAMG;AAAjB;AAGf,eAAQ;AAHO;AAAiB;AAMR;AAAT;AAEf,eAAU,YAAO;AAFF;AAAS;AAKC;AAyBb,iBAAP,YAAO;AACV,UADU,IACV;AACE,cAAM,WAAW,CAAC,MAAD;AACnB,gBAHU,IAGV;AACE,cAAM,WAAW,CAAC,OAAD;AACnB,gBALU,IAKV;AACE,cAAM,WAAW,CAAC,MAAD;AACnB,gBAPU,IAOV;AACE,cAAM,WAAW,CAAC,KAAD;AASnB,iBAjBU,IAiBV,gCAAQ,CAjBE,IAiBF,6BAAR,IAAiB,CAjBP,IAiBO,6BAAjB;AACE,cAAM,aAAa,CAAC,kBAAD;AAErB,gBApBU,IAoBV;AACE,cAAM,WAAW,CAAC,gBAAD;AAEnB,gBAvBU,IAuBV;AACE,cAAM,YAAY,CAAC,iBAAD;AACpB,gBAzBU,IAyBV;AACE,cAAM,WAAW,CAAC,gBAAD;AAYnB,gBAtCU,IAsCV,kCACE,MAAM,eAAa,CAAC,oBAAD,CADrB;AA/DuB;AA9tPlB;AAgCa,+BAAO,UA3ZpB,qBA2ZoB,CAAP;AAhCb;AA6Fc;;AAoCF;;;AAEjB;AACA;AACA;AACA;AACA;AANiB;;;;;AAgvPkB;AAErC,kBAAO,mBAAgB,CAAC,CAAD;AAFc;AAKC;AAEtC,kBAAO,mBAAgB,CAAC,EAAD;AAFe;AAuQA;AAEtC;AAEA,UAAW;AACX,kBAAO,kBAAgB,CAAC,CAAD;AALe;AAlQF;AAE1B;AACV,UAAI,MAAM,KAAC,IAAX,EACE,MAAM,gBAAW,QAAC,YAAM,CAAC,wDAAD,CAAN,CADpB;AAEA,qBAAW;AAL2C;AAAlB;AAaM;AAG1C,kBAAO,mBAAgB,CAAC,SAAD;AAHmB;AALC;AAE3C,qBAAU,CAAC,4BAAD;AAFiC;AAWD;AAG1C;AAIA,UAAS,UAAN,MAAS,EAAH,CAAT;AAEE,iBAAQ;AACR,YAAG,2BAAY,IAAG,KAAlB,EACC,SAAQ,MAAO,GAAG,GADnB;AAEA,YAAG,0BAAW,IAAG,KAAjB,EACC,SAAQ,MAAO,GAAG,GADnB;AAEA,YAAG,wBAAS,IAAG,KAAf,EACC,SAAQ,MAAO,GAAG,GADnB;AAEA,iBAAU,MAAQ,GAAG,IAAH;AAClB,oBAAO,kBAAgB,CAAC,MAAD;AACvB,YAAG,0BAAW,IAAG,KAAjB,EACE,iBAAY,CAAC,QAAD,CADd;OAXF;AAeA,mBAAQ,CAAC,SAAS,WAAV;AACR,mBAAQ,CAAC,SAAS,MAAV;AAvBkC;AA0BL;AAErC,qBAAU,CAAC,sBAAD;AAF2B;AAKF;AAEnC,qBAAU,CAAC,sBAAD;AAFyB;AAKM;AAEzC,mBAAQ,CAAC,QAAD;AAFiC;AAKF;;AAIA;;AA4LN;AAGjC,kBAAO,MAAM,CAAC,OAAO,KAAR;AAHoB;AAvLM;AAEvC,qBAAU,CAAC,wBAAD;AACV,qBAAU,CAAU,KAAD,MAAT;AACV,kBAAO,MAAM,CAAC,OAAQ,KAAT;AAJ0B;AAOC;AAExC,UAAG,KAAH;AACE,uBAAU,CAAC,sBAAD;AAEV,YAAA,eAAU,CAAC,uBAAD;AAL4B;AAQF;AAEtC,qBAAU,CAAC,wBAAD;AACV,kBAAO,mBAAgB,CAAC,KAAD;AAHe;AAOG;AAGzC;AAEA,qBAAU,CAAC,0BAAD;AACV,UAAG,KAAH;AACA,kBAAO,mBAAgB,CAAC,CAAD;AAPkB;AAUH;AAItC,UAAG,sBAAS,CAAC,KAAD,CAAQ,KAAE,KAAtB;AACE,uBAAU,CAAC,qBAAD;AACP,gBAAG,sBAAS,CAAC,KAAD,CAAQ,KAAE,OAAtB;AACH,uBAAU,CAAC,uBAAD;AACP,gBAAG,sBAAS,CAAC,KAAD,CAAQ,KAAE,MAAtB;AACH,uBAAU,CAAC,sBAAD;AACP,gBAAG,sBAAS,CAAC,KAAD,CAAQ,KAAE,MAAtB;AACH,uBAAU,CAAC,sBAAD;;AAEV,uBAAU,CAAC,uBAAD;AACV,qBAAQ,CAAC,KAAD;;AAd4B;AAkBE;AAExC;AACA;AACA;AAGA,UAAU,CAAN,KAAM,IAAG,CAAC,GAAJ,CAAS,IAAW,CAAN,KAAM,IAAG,GAAH,CAA9B;AAEE,uBAAU,CAAC,sBAAD;AACV,YAAK;AACL,oBAAO,kBAAgB,CAAC,CAAD;OAChB,UAAU,CAAN,KAAM,IAAG,CAAC,KAAJ,CAAW,IAAW,CAAN,KAAM,IAAG,KAAH,CAAhC;AAEP,uBAAU,CAAC,uBAAD;AACV,YAAK;AACL,sBAAS,CAAM,CAAD,QAAL;OACF,UAAU,CAAN,KAAM,IAAG,CAAC,UAAJ,CAAe,IAAW,CAAN,KAAM,IAAG,UAAH,CAApC;AAEP,uBAAU,CAAC,uBAAD;AACV,YAAK;AACL,uBAAU,CAAU,CAAD,MAAT;;AAGV,uBAAU;AACV,oBAAO,mBAAgB,CAAC,KAAD;;AAzBe;AA6BE;AAE1C;AACA;AACA;AAGA,UAAI,KAAM,IAAG,GAAb;AAEE,uBAAU,CAAC,sBAAD;AACV,YAAK;AACL,oBAAO,kBAAgB,CAAC,CAAD;OAChB,UAAI,KAAM,IAAG,KAAb;AAEP,uBAAU,CAAC,uBAAD;AACV,YAAK;AACL,sBAAS,CAAM,CAAD,QAAL;OACF,UAAI,KAAM,IAAG,UAAb;AAEP,uBAAU,CAAC,uBAAD;AACV,YAAK;AACL,uBAAU,CAAU,CAAD,MAAT;;AAGV,uBAAU;AACV,oBAAO,mBAAgB,CAAC,KAAD;;AAzBiB;AA8BC;AAE3C,UAAU,IAAD,OAAO,GAAE,CAAlB;AAEE,uBAAU,CAAC,uBAAD;AACV,qBAAQ,CAAC,IAAD;OAER,MAAA,eAAU,CAAC,qBAAD;AAP+B;AAUP;AAEpC;AACA;AAEA,qBAAU,CAAC,qBAAD;AACV,UAAG;AACH,WAAI,IAAG,GAAH,CAAQ,QAAR,CAAQ,EAAZ;AAEE,YAAU,CAAN,KAAM,GAAI,CAAJ,CAAO,KAAE,CAAnB;AAEE,uBAAQ,CAAC,uBAAW,CAAW,QAAU,CAArB,CAAZ;SAFV;AAIA,YAAG,CAAE,IAAI,CAAJ;;AAEP,mBAAQ,CAAC,EAAD;AAf4B;AA8EA;AAEpC;AAAI;AACJ;AAEA,YAAa,KAAD;AACZ,UAAG,GAAI,GAAE,GAAT,EACE,MAAO,GADT;AAEA,UAAK;AACL,kBAAO,kBAAgB,CAAC,CAAD;AACvB,eAAO,QAAK,4BAAZ;AAAI;AACF,oBAAO,kBAAgB,CAAC,KAAK,QAAC,KAAD,CAAN;;AAXW;AA5DG;AAGvC;AAAG;AAEH,YAAc,KAAD;AACb,qBAAU,CAAC,wBAAD;AACV,qBAAU,CAAC,GAAD;AACV,eAAO,QAAK,4BAAZ;AAAI;AACF,oBAAO,kBAAgB,CAAC,KAAK,QAAC,KAAD,CAAN;;AATc;AAYI;AAG3C,sBAAW,CAAC,KAAD;AAHgC;AAMG;AAG9C,sBAAW,CAAC,KAAD;AAHmC;AAMN;AAExC,UAAG,kBAAW,CAAC,QAAD,CAAd;AACE,uBAAU,CAAC,qBAAD;AACP,gBAAG,aAAM,CAAC,QAAD,CAAT;AACH,uBAAU,CAAC,sBAAD;AACP,gBAAG,YAAQ,CAAC,QAAD,CAAX;AAEH,YAAG,eAAI,CAAO,cAAC,QAAD,CAAP,CAAkB,KAAC,CAA1B;AACE,2BAAY,CAAU,UAAC,QAAD,CAAV;AAEZ,cAAA,eAAU,CAAO,cAAC,QAAD,CAAP;OAET,UAAG,gBAAS,CAAC,QAAD,CAAZ;AACH,yBAAY,CAAQ,EAAC,QAAD,UAAR;AACT,gBAAG,YAAQ,CAAC,QAAD,CAAX;AACH,wBAAW,CAAO,KAAC,QAAR;AAEX,kBAAM,gBAAW,QAAC,YAAM,CAAC,8DAAD,CAAN;AAlBoB;AAh+PrB;AAWC,+BAAO,UAvgBpB,qBAugBoB,CAAP;AAXD;AAwCD,yEAAoB,UAS/B,qBAT+B,EAAoB,aAxoBhD,wBAwoBgD,EAC9C,sBAAsB,YAzoBxB,yBAyoBwB,GAAc,gBAzoBtC,yBAyoBsC,EAD9B;AAEO,gFAAoB,UAOtC,qBAPsC,EAAmB,YApgCrD,yBAogCqD,EACtD,YJl+BS,wCIk+BT,EACS,eTxlCZ,4BSwlCY,GAAgB,kBTxlC5B,4BSwlC4B,GACtB,yBAHY;AAOlB;;;AAEL;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAXK;;;;;;;;;;AAohQ0B;AAEjC,qBAAU,UAAU,CAAC,SAAS,OAAM,mBAAa,QAAC,YAAM,CAAC,eAAU,SAAC,GAAM,SAAlB,CAAN,CAA9B;AAFa;AA8NC;AAElC;AAEA,cAAS;AACT,UAAY,CAAC,cAAD,SAAa,IACqB,CAA1C,CAAc,CAAT,iCAAS,IAAG,QAAQ,gBAAX,CAA4B,IAEF,CAA5B,CAAX,mCAAW,IAAG,QAAQ,gBAAX,CAA4B,IAAgB,CAAX,eAAW,KAAG,IAAH,CAAhB,CAFE,CAD9C;AAIE,gBAAO,cAAC,2BAAD;AACJ,gBAAG,iCAAS,IAAG,QAAQ,gBAAvB,EACH,QAAO,cAAC,wBAAD,CADJ;AAEL,UAAc,CAAV,eAAU,KAAE,IAAF,CAAO,IAAiC,CAAhB,CAAX,gBAAW,KAAE,iBAAF,CAAgB,IAAa,CAAT,cAAS,KAAC,IAAD,CAAb,CAAtD,EACU,KAAD,kBAAC,MAAM,0BAAP,CADT;AAEA,kBAAO,eAAe,CAAC,SAAS,kBAAM,gBAAhB;AACtB,UAAI,eAAU,KAAE,IAAhB,EACM,gBAAJ,IAAG,CADL;AAEA,0BAAe,CAAC,QAAD;AACf;AAEA,UAAG,CAAI,oBAAP,EACE,kBAAa,CAAC,QAAD,CADf;AApBkC;AAtHD;AAGjC;AAIA,UAAG,CAAY,CAAC,eAAD,SAAf,EACE,MADF;AAEA,UAAG,eAAU,QAAQ,CAAC,SAAS,MAAV;AACrB,UAAI,CAAC,KAAC,CAAC,CAAP;AAEE,yBAAW;AACX,4BAAc,CAAC;;AAGG,oBAAC,eAAU,UAAQ,CAAC,CAAD;AAEnC,yBAAW;AACX,4BAAc;;AAnBe;AAuBH;AAG9B;AAGA,UAAY,oBAAD,QAAX,EACE,IAAY,CAAR,cAAQ,KAAC,IAAD,CAAM,IAAgB,eAAH,eAAT,cAAS,CAA/B;AAEE,YAAc;AACd,4BAAe,CAAC,KAAK,UAAU,SAAS,OAAM;;;;aAAE;;;;YAAjC;AACf,yBAAU;OALd;AAN8B;AAtFP;AAEN,oCAAC,KAAD;AAEjB,yBAAe;AAJQ;AAaI;AAE3B;AAMA,kBAAa,iBAAY,QAAC;AAC1B;AACE,kBAAU,CAAC,SAAD;AACV,oBAAM,YAAY,CAAC,SAAS,SAAC,GAAO,SAAS,QAAC,EAA5B;AAFpB;AAIE,iBAAU,eAAV,SAAU;AAJZ;AAT2B;AA2QE;AAE7B;AACA;AACA;AAAE;AAAO;AACT;AACA;AAEA;AAAY;AAEZ;AACA;AACA;AAAU;AACV;AACA;AAAE;AACF;AACA;AACA;AAAK;AAAe;AAAM;AAC1B;AAAU;AACV;AAAW;AACX;AACA;AAGA,UAAG,QAAQ,OAAO,KAAC,EAAnB,EACE,MADF;AAGA,iBAAY,QAAQ;AACpB,UAAI,QAAQ,OAAO,KAAC,EAApB;AAEE,YAAG,QAAQ,KAAK,KAAE,4BAAlB,EACE,MADF;AAEA,mBAAoB,2BAAa,CAAC,SAAU,QAAX;AACjC,YAAG,CAAI,QAAQ,OAAC,aAAY,CAAC,eAAD,CAAa,IACtC,CAAoB,CAAf,uCAAe,IAAc,QAAS,gBAAvB,CADvB,EAEE,MAFF;OALF;AAWA,oBAAuB,CAAC,cAAD,SAAW,IAAuB,CAAR,CAAT,QAAS,KAAE,UAAF,CAAQ,IACnC,CAAnB,QAAQ,OAAC,YAAU,KAAE,cAAQ,OAAC,YAAX,CADmC,CAAvB;AAIrB,iBAAR,QAAQ;AACX,WADW,IACX,wCAAW,CADA,IACA,iCAAX,IAAmB,CADR,IACQ,wCAAnB,IAAkC,CADvB,IACuB,gCAAlC;AAEI,gBAAS,wBAAU,CAAC,SAAU,QAAX;AACnB,YAAG,WAAH;AACE,qBAAY,wBAAU,CAAC,eAAU,QAAX;;AAGtB,cAAG,QAAQ,KAAK,KAAE,0BAAlB;AACE,uBAAmB,UAAC,QAAQ,QAAT;;AAGnB,gBAAa,QAAQ;AACrB,uBAAU;AACV,iBAAI,GAAJ,IAAW,CAAX;AAEE,kBAAG,QAAQ,CAAC,IAAI,EAAL;AACX,kBAAG,CAAC,GAAC,EAAL,EACE,WAAU,QAAQ,GAAI,CAAF,CAAE,IAAI,CAAJ,CADxB;;;;AAMN,YAAU,CAAN,KAAM,KAAG,QAAH,CAAa,IAAY,CAAR,QAAQ,KAAS,UAAT,CAAnC;AAEE,sBAAM,cAAc,CAAC,cAAU,GAAE,QAAQ,KAArB;AACP,sBAAR,QAAQ;AACX,cADW,KACX;AAGI,2BAAgB,mBAAc,CAAC,QAAQ,SAAT;AAC9B,gBAAW,CAAC,YAAD,SAAe,IAAI,YAAY,CAAC,MAAO;;;;gBAAR,CAA1C;AAEE,6BAAU,CAAC,KAAD;AAGV,kBAAA,iBAAY,CAAC,KAAD;WAElB,UAZW,KAYX;AACE,0BAAS,CAAI,oBAAC,KAAD,CAAJ;AACX,oBAdW,KAcX;AAEE,wBAAM,SAAS,CAAC,MAAoB,QAAS,SAA9B;WAEjB,UAlBW,KAkBX,yCACE,eAAU,CAAC,uBAAW,CAAe,SAAW,KAA1B,CAAZ,CADZ;AAGF,sBAAM;SAxBR;OA4BJ,UAnDW,IAmDX;AAEI,qBAAc,0BAAY,CAAC,SAAU,QAAX;AAC1B,YAAG,WAAH;AACE,0BAAiB,0BAAY,CAAC,eAAU,QAAX;;AAI7B,0BAAqB,cAAC,QAAQ,QAAT;;AAEvB,YAAc,CAAV,UAAU,KAAE,aAAF,CAAiB,IAAoB,CAAhB,CAAI,WAAY,IAAuB,CAAlB,cAAG,CAAC,aAAD,CAAe,KAAS,UAAT,CAAvB,CAAnD;AAEE,sBAAM,cAAc,CAAC,cAAU,GAAE,QAAQ,KAArB;AACpB,yBAAU,CAAC,UAAD;AACV,sBAAM;SAJR;OAQJ,UArEW,IAqEX;AAEI,4BAAe,yBAAa,CAAC,SAAU,QAAX,CAA5B;AACA,YAAG,WAAH;AACE,iCAAkB,yBAAa,CAAC,eAAU,QAAX,CAA/B;;AAEA,wBAAc,KAAd,GAAuB;AACvB,wBAAc,KAAd,GAAuB;;AAGzB,kBAAS;AACT,YAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAK,SAAS,SAAS,YAC3C,eAAe;;;;YADI,CADvB;AAGA,YAAG,YAAQ,CAAC,WAAW,KAAZ,CAAX;AACE,wBAAoB,WAAW;AAE/B,4BAAa,gBAAW,OAAC,WAAU,CAAC,WAAW,KAAZ;AAErC,YAAI,CAAI,OACoC,IAAxB,CAAjB,WAAW,KAAM,KAAG,cAAc,KAAjB,CADH,IAEmB,CAAhC,CAAY,CAAC,WAAW,KAAZ,SAAoB,IACZ,CAAb,WAAD,OAAc,GAAE,CAAF,CADY,CAFpC;AAME,sBAAM,cAAc,CAAC,cAAU,GAAE,QAAQ,KAArB;AACpB,cAAY,WAAW,KAAZ,QAAX;AACE,wBAAM,gBAAgB,CAAC,WAAD;AAEtB,gBAAA,YAAM,gBAAgB,CAAC,EAAD;AACxB,sBAAM;SAXR;OAcJ,UAtGW,IAsGX;AAEI,mBAAY,wBAAU,CAAC,SAAU,QAAX;AACtB,YAAG,WAAH;AACE,wBAAe,wBAAU,CAAC,eAAU,QAAX;;AAGzB,qBAAkB,UAAC,QAAQ,QAAT;AACR,qBAAD,oBAAC,YAAa,CAAd;;AAGX,YAAY,CAAR,QAAQ,KAAE,WAAF,CAAe,IAAoB,CAAhB,CAAI,WAAY,IAAa,CAAR,QAAQ,KAAS,UAAT,CAAb,CAA/C;AAEE,sBAAM,cAAc,CAAC,cAAU,GAAE,QAAQ,KAArB;AACpB,cAAY,2BAAD,QAAX,EACE,2BAAsB,CAAC,KAAK,SAAS,SAAS;;;;cAAxB,CADxB;AAEA,0BAAW,CAAC,QAAD;AACX,sBAAM;SANR;OASJ,UA1HW,IA0HX;AAGI,mBAAY,4BAAc,CAAC,SAAU,QAAX;AAC1B,YAAG,WAAH;AACE,wBAAe,4BAAc,CAAC,eAAU,QAAX;AAE7B,4BAAa;AAEf,YAAI,QAAQ,IAAE,WAAd;AAEI,sBAAM,cAAc,CAAC,cAAU,GAAE,QAAQ,KAArB;AAEpB,2BAAY,CAAC,QAAD;AACZ,sBAAM;SALV;OAQJ,UA3IW,IA2IX;AAEI,mBAAoB,2BAAa,CAAC,SAAU,QAAX;AACjC,YAAG,WAAH;AAEE,wBAAuB,2BAAa,CAAC,eAAU,QAAX;AACpC,cAAmB,eAAH,eAAZ,WAAY,CAAe,IACf,eAAH,eAAT,QAAS,CADb;AAIE,gBAAe,CAAX,WAAW,KAAG,QAAH,CAEsB,IADL,CAAnB,WAAY,OAAO,KAAE,kBAAF,CADJ,IAEC,CAAhB,QAAS,OAAO,KAAE,UAAF,CADoB,IAEP,CAAxC,sBAAS,CAAY,WAAY,MAAxB,CAA+B,KAAE,sBAAS,CAAY,QAAS,MAArB,CAAX,CAH1C;AAOE,4BAAe;aAPjB;WAJF;SAeA,oBAAe;AAEjB,YAAG,CAAY,CAAC,QAAD,SAAf;AAEE,cAAG,QAAS,KAAG,WAAf;AAEE,wBAAM,cAAc,CAAC,cAAU,GAAE,QAAQ,KAArB;AACpB,wBAAM,WAAW,CAAC,KAAD;AACjB,wBAAM;WAJR;SAOG,UAAG,QAAQ,OAAC,aAAY,CAAC,gBAAD,CAAxB;AAGH,cAAG,QAAQ,OAAC,aAAY,CAAC,eAAD,CACtB,IACK,CADC,CAAoB,CAAf,uCAAe,IAAc,QAAS,gBAAvB,CACrB,IAA2C,CAAZ,CAAf,QAAS,OAAM,KAAE,QAAF,CAAY,IAA+B,CAAf,QAAS,OAAM,KAAE,IAAF,CAA/B,CAA3C,CAFP;AAIE,wBAAwB;AACxB,gBAAa,CAAT,QAAS,KAAG,WAAH,CACT,IAAI,CAAiB,CAAZ,oCAAY,IAAG,SAAS,gBAAZ,CADzB;AAGE,qBAAO;AACP,kBAAI;AACJ,qBAAQ,CAAD,CAAC,KAAE,IAAF,CAAO,IAAW,CAAN,CAAC,MAAK,KAAE,EAAF,CAA1B;AAEE,oBAAI,IAAI,KAAE,EAAV,EACE,OAAM,GAAG,GAAC,IADZ;AAEA,oBAAG,CAAC,OAAO,KAAE,gBAAb;AAEE,yBAAQ,CAAC,MAAK,GAAC,IAAD;AACd;iBAEG,UAAG,CAAE,KAAE,gBAAP;AAEH,yBAAQ,OAAQ,GAAE,IAAF;AAChB;iBAHG;AAKL,uBAAM,CAAC,MAAM,GAAE,IAAF;AACb,oBAAI,CAAC;;AAEP,kBAAK,CAAD,CAAC,KAAC,IAAD,CAAM,IAAoB,CAAf,SAAS,OAAM,KAAC,IAAD,CAA/B,EACE,IAAI,IAAI,KAAE,EAAV,EACE,OAAM,IAAI,GAAC,QAFf;AAGA,kBAAU,IAAD,OAAO,GAAE,CAAlB;AAEE,4BAAM,cAAc,CAAC,cAAU,GAAE,QAAQ,KAArB;AACpB,+BAAU,CAAC,IAAD;AACV,4BAAM;eAJR;aAzBF;;AAmCA,4BAAiB;AACjB,4BAAiB;AACjB;AACE,+BAAa,cAA0B,GAAd,QAAQ,KAAV,GAAkB,GAAF;AACvC,kBAAG,WAAH,EACE,iBAAwB,2BAAa,CAAC,eAAU,QAAX,CADvC;AAEA,kCAAe,CAAa,QAAb;AAJjB;AAME,+BAAY;AACZ,+BAAa;AAPf;AASA,gBAAG,QAAQ,OAAC,aAAY,CAAC,gBAAD,CAAxB;AAEE,kBAAI,CAAI,WAAa,IAAI,CAAI,uBAAgB,CAAa,SAC5C,2BAAa,CAAC,eAAU,QAAX,EAAsB,WAAK,kBADT,CAA7C;AAGE,4BAAM,cAAc,CAAC,cAAU,GAAE,QAAQ,KAArB;AACpB,gCAAiB;AACjB;AACY,gCAAD,oBAAC,eAAW,CAAZ;AACT,sCAAe,CAAa,QAAb;AAFjB;AAIE,mCAAa;AACb,8BAAM;AALR;eALF;aAFF;;SAtDC;OAuFT,UAlQW,IAkQX;AAEI,oBAAa,wBAAU,CAAC,SAAU,QAAX,CAAoB,KAAE,CAAF;AAC3C,YAAG,WAAH;AACE,yBAAgB,wBAAU,CAAC,eAAU,QAAX,CAAoB,KAAE,CAAF;;AAG9C,yBAAgB,QAAQ,QAAQ,IAAE,CAAF;AAChC,qBAAiB,UAAC,QAAQ,QAAT;;AAGnB,YAAa,CAAT,SAAS,KAAE,YAAF,CAAgB,IAAY,CAAR,QAAQ,KAAS,UAAT,CAAzC;AAEE,sBAAM,cAAc,CAAC,cAAU,GAAE,QAAQ,KAArB;AACpB,2BAAY,CAAC,SAAD;AACZ,sBAAM;SAJR;OAOJ,UApRW,IAoRX;AA/T2B;AAjBE;AAG/B;AAAU;AACV;AAGA,iBAAU,yBAAW,CAAC,QAAD;AACrB,kBAAiB,WAAC,QAAD;AACjB,UAAG,SAAS,GAAC,CAAb,EACE,SAAS,QAAc,OAAT,SAAS,GAAC,CAAD,kBAAvB;AAAI;AACF,YAAG,wBAAY,CAAC,SAAS,QAAQ,CAAC,CAAD,CAAlB,CAAf,EACE,kBAAa,CAAC,SAAS,QAAQ,CAAC,CAAD,CAAlB,CADf;OAFJ;AAIA,cAAQ,iBAAiB,CAAC,IAAD;AAbM;AAtIF;AAG7B;AAAO;AACP;AACA;AAAM;AAAI;AACV;AAMA,cAAO;AACP,eAAQ;AACR,cAAO;AACP,aAAM;AACN,qBAAc;AACd;AACE,0BAAY;AACZ,2BAAa;AACb,4BAAc,CAAC;AACf,YAAG,iCAAS,IAAG,SAAS,gBAAxB,EACG,aAAO,SADV;AAEA,YAAiB,eAAH,eAAV,cAAU,CAAd;AAEG,4BAAY,gBAAW,QAAC;AACxB,cAAG,iCAAS,IAAc,cAAU,gBAApC,EACE,qBAA4B,cAD9B;AAEW,wBAAU,YAAY,CAAE,6CAAkB,kBAApB;AACjC,yBAAU,UAAC,CAAQ,IAAR;SANd;AAQA;AACE,mBAAS,YAAY,CAAE,0CAAgB,UAAlB;AADvB;AAGE,cAAY,eAAD,QAAX,EACE,SAAO,QAAqB,OAAhB,eAAU,SAAC,EAAK,GAAC,CAAD,kBAA5B;AAAI;AAEF,gBAAG,eAAU,UAAQ,CAAC,CAAD;AACrB,2BAAU,UAAQ,CAAC,EAAI,IAAL;AAClB,aAAE,eAAF,CAAE;WALN;AAOA,iCAAU,CAAC;;;;cAAD;AAVZ;AAdF;AA2BE,0BAAY;AACZ,qBAAO;AACP,6BAAe;AACf,2BAAa;AACb,4BAAc;AA/BhB;AAjB6B;AAhMF;AAAZ;AAEf,eAAU,wBAAmB,QAAC,YAAM,CAAC,MAAD,CAAN;AAFf;AAAY;AAtBH;AAEd;AACV,qBAAW;AAH8C;AAAjC;AAMA;AAEd;AACV,UAAI,MAAM,KAAC,IAAX,EACE,MAAM,gBAAW,QAAC,YAAM,CAAC,wDAAD,CAAN,CADpB;AAEA,qBAAW,iBAAY,CAAC,MAAD;AACvB,4BAAkB;AANwB;AAAlB;AASA;AAExB,UAAG,mBAAH,EACU,SAAR,KAAQ,UADV;AAEU;AAJc;AAkCM;AAG9B,UAAG,OAAQ,IAAY,CAAC,UAAD,SAAvB;AAGE,oBAAM,cAAc,CAAC,cAAU,GAAE,IAAb;AACpB,kBAAU,CAAC,IAAD;AACV,oBAAM;OACC,UAAY,QAAD,QAAX;AATqB;AAYM;AAGpC,UAAG,OAAQ,IAAY,CAAC,UAAD,SAAvB;AAGE,oBAAM,cAAc,CAAC,cAAU,GAAE,IAAb;AACpB,wBAAW,CAAC,UAAD;AACX,oBAAM;OACC,UAAY,QAAD,QAAX;AAT2B;AAYT;AAE3B,kBAAM;AAFqB;AAKN;AAIrB,kBAAM,MAAM,CAAC,OAAQ,KAAT;AAJS;AAqCO;AAE5B,kBAAM,aAAa,CAAC,KAAD;AAFS;AAeG;AAE/B;AAEA,kBAAM;AACN,UAAY,KAAD,QAAX,EACE,SAAS,QAAiB,OAAZ,KAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAKF;AACA,4BAAe,CAAC,KAAK,QAAM,CAAC,CAAD,CAAZ;AACf;OARJ;AAUA;AAf+B;AAwDD;AAG9B;AACA;AAAI;AAEJ,WAAI;AACJ,WAAI;AACJ,YAAK;AACL;AACE,iBAAS,gBAAT,GAAoD,aAAzB,SAAS,iBAAiB,cAAC,kCAAD,CAAD;AACpD;AAEE,gCAAiB,CAAC,SAAD;AACjB,6BAAc,CAAC,SAAD;AAEd,mBAAS,WAAW,CAAC,IAAD;AACpB,sBAAO;AANT;AAQE,mBAAS,gBAAT,GAAoD,YAAzB,SAAS,iBAAiB,cAAC,kCAAD,CAAD;AARtD;AAFF;AAaE,yBAAW;AACX,qBAAO;AACP,6BAAe;AAfjB;AAT8B;AAlEL;AAEzB,sBAAW,CAAC,KAAD;AAFc;AAKI;AAE7B,0BAAe,CAAC,KAAD;AAFc;AAqKE;AAE/B,mBAAS;AACT,uBAAa;AACb,2BAAiB;AACjB,yBAAe;AACf;AACA,yBAAc,CAAC,KAAD;AAPiB;AAUL;AAE1B,kBAAM,WAAW,CAAC,KAAD;AAFS;AAMG;AAE7B,kBAAM,cAAc,CAAC,KAAD;AAFS;AAMH;AAE1B,kBAAM,WAAW,CAAC,KAAD;AAFS;AAKE;AAE5B,kBAAM,aAAa,CAAC,KAAD;AAFS;AAKA;AAE5B,kBAAM,aAAa,CAAC,KAAD;AAFS;AAKJ;AAGxB,kBAAM,SAAS,CAAC,MAAM,OAAP;AAHS;AAWM;AAE9B,kBAAM;AAFwB;AAKF;AAE5B,kBAAM;AAFsB;AA3PE;AAG9B,kBAAO;AAHuB;AA4pBI;AAElC,0BAAe,CAAC,MAAO,IAAR;AAFmB;AAKP;AAE3B,kBAAM,YAAY,CAAC,KAAD;AAFS;AAKI;AAE/B,kBAAM,gBAAgB,CAAC,KAAD;AAFS;AAKG;AAElC,kBAAM,mBAAmB,CAAC,KAAD;AAFS;AA1bN;AAE5B,kBAAM,aAAa,CAAC,QAAD;AAFS;AArzQrB;AAwBa,+BAAQ,WA7GP,mCA6GO,CAAR;AACA,+BAAO,UAtkBpB,qBAskBoB,CAAP;AAzBb;AAgEK;;AAsBL;;;AAEL;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAXK;;;;;;AAmuSoB;AAAZ;AAEf,eAAQ,cAAQ,CAAC,IAAD;AAFD;AAAY;AAKD;AAG1B;AAAU;AAGV,kBAAW;AACX,WAAI,IAAG,GAAH,CAAoB,UAApB,CAAoB,EAAxB;AAEE,YAAG,YAAO,WAAS,CAAK,CAAC,MAAL,cAAI;;;;YAAL,CAAS,KAAE,CAA9B,EACE,KADF;AAEI,iBAAJ,IAAG;;AAED,oBAAJ,IAAe;AACf,kBAAQ;AACR,qBAAW;AACX,yBAAa,SAAU,KAAE,CAAF;AAhBG;AAmBK;AAE/B,UAAG,SAAI,IAAE,YAAT,EACE,iBADF;AAF+B;AAMJ;AAE3B,2BAAe,kBAAa,GAAC,SAAI,CAAC,SAAD,CAAL;AAE5B;AAJ2B;AAOJ;AAAR;AAEf,eAAQ,SAAI,CAAC,SAAD,cAAO,IAAG,cAAI,KAAH,GAAK,EAAN,CAAH;AAFJ;AAAQ;AAKA;AAAR;AAEf,eAAQ,SAAI,CAAC,SAAD,cAAO,IAAG,cAAI,KAAH,GAAK,GAAO,KAAH,GAAK,GAAO,KAAH,GAAK,GAAxB,CAAH;AAFJ;AAAQ;AAKD;AAAP;AAEf,eAAQ,SAAI,CAAC,SAAD,cAAO,IAAG,cAAC,GAAO,KAAH,GAAK,GAAO,KAAH,GAAK,GAAnB,CAAH;AAFJ;AAAO;AAKG;AAAV;AAEf,eAAQ,cAAQ,IAAG,eAAH;AAFD;AAAU;AAKC;AAAX;AAEV;AACH,UAAG,CADA,IACA,IAAH,GAAG,MADA,IACA,IAAE,GAAF,CAAH;AAAW,iBAAY,CAAD,aAAG,GAAC,IAAD;AACzB,gBAAG,CAFA,IAEA,IAAH,GAAG,MAFA,IAEA,IAAE,GAAF,CAAH;AAAW,iBAAY,CAAD,aAAG,GAAC,IAAD;AACzB,gBAAG,CAHA,IAGA,IAAH,GAAG,MAHA,IAGA,IAAE,GAAF,CAAH,EAAW,SAAY,CAAD,aAAG,GAAC,IAA1B;AALa;AAAW;AASA;AAAX;AAEf,UAAG,CAAI,cAAP,EACE,aAAQ,CAAC,+CAAgB,mBAAa,GAAZ,iBAAY,CAAC,0BAAD,CAAb,CAAjB,CADV;AAEA,eAAQ;AACR,aAAO,CAAI,gBAAa,IAAI,iBAA5B;AAEE,iBAAQ,MAAM,GAAC,SAAI,CAAC,SAAD,CAAL;AACd;;AARa;AAAW;AAYG;AAE7B,UAAG,SAAI,CAAC,SAAD,CAAM,KAAC,IAAd,EACE,qBADF;AAGA,UAAI,CAAI,gBAAa,IAAe,CAAV,SAAI,CAAC,SAAD,CAAM,KAAC,IAAD,CAApC,EACE,qBADF;AAGI,sBAAJ,IAAG;AACH,uBAAW,CAAM,CAAJ,SAAI,GAAC,CAAD;AATY;AAYN;;AAMG;AAE1B,aAAM,CAAI,gBAAY,IAAgB,CAAX,SAAI,CAAC,SAAD,cAAO,IAAG,cAAC,GAAI,CAAL,CAAH,CAAtC,EAAsD;AAF5B;AAKI;AAE9B,aAAM,CAAI,gBAAV;AAEW,mBAAJ,SAAI,CAAC,SAAD;AACP,aADO,IACP,aAAI,CADG,IACH,UAAJ;AAAU;AACV,mBAFO,IAEP,cAAI,CAFG,IAEH,UAAJ;AAAU;;AACL;;;AAPqB;AAYL;AAEzB,oBAAQ;AACR,2BAAe;AAHU;AAMK;AAE9B,2BAAe;AACf,oBAAQ;AAHsB;AAQpB;AAFkB;AAK5B;AAEA,2BAAe;AACf,aAAM,eAAN,EACE;AACF,oBAAQ;AACR,UAAI,SAAI,CAAC,SAAD,cAAO,IAAG,cAAC,GAAI,IAAI,EAAT,CAAlB;AAEE,sBAAQ;AACR,kBAAS,cAAC,iBAAM,cAAP;AACT,eAAO,SAAI,CAAC,SAAD,cAAO,IAAG,cAAC,GAAI,IAAI,GAAO,KAAH,GAAK,EAAlB,CAArB;AAEW,qBAAJ,SAAI,CAAC,SAAD;AACP,cADO,IACP;AAAU,gBAAG,gBAAM,IAAG,OAAZ;AAAiC,qBAAD,kBAAC,QAAQ,gBAAT;AAAqB;AAC/D,qBAFO,IAEP,aAAI,CAFG,IAEH,SAAJ,EAAU,IAAG,cAAI,IAAG,OAAV;AAEE,sBAAS;AACT;AACA,gBAAI,SAAI,CAAC,SAAD,cAAO,IAAG,cAAC,GAAI,EAAL,CAAlB,EAAkC,kBAAlC;AACA,gBAAG,CAAgB,CAAX,SAAI,CAAC,SAAD,cAAO,IAAG,cAAI,KAAH,GAAK,EAAN,CAAH,CAAnB,EACE,aAAQ,CAAC,mDAAoB,mBAAc,GAAb,kBAAa,GAAC,SAAI,CAAC,SAAD,CAAnB,CAArB,CADV;WAGG,WARf;AAUF;;OAlBJ;AAqBA,UAAI,SAAI,CAAC,SAAD,cAAO,IAAG,cAAC,IAAI,GAAI,IAAI,GAAI,GAAI,EAArB,CAAlB;AAEE,0BAAY,SAAI,CAAC,SAAD;AAEhB;AAEA,sBAAQ;OAEL,wBAAY;AAxCW;AA2CG;AAC7B;AAEF,2BAAe;AACf;AACA,cAAO;AACP,aAAM,eAAN;AAEE,gBAAO;AACP;;AAEF,UAAG,CAAI,KAAP,EACE,aAAQ,CAAC,qDAAsB,mBAAC,qBAAD,CAAvB,CADV;AAEA,oBAAQ;AAbuB;AAgBE;AAAlB;AAEf,eAAQ;AACR;AAEA,aAAM,IAAN;AAEW,mBAAJ,SAAI,CAAC,SAAD;AACP,YADO,IACP;AAAS,uBAAQ,CAAC,wDAAD;AACjB,mBAFO,IAEP,cAAI,CAFG,IAEH,UAAJ;AAAU,uBAAQ,CAAC,wDAAD;AAClB,kBAHO,IAGP;AACW;AACA,cAAG,SAAI,CAAC,SAAD,CAAM,KAAE,GAAf,EAAyB,aAAzB;SAFX;AAKF,iBAAQ,MAAM,GAAC,SAAI,CAAC,SAAD,CAAL;AACd;;AAhBa;AAAkB;AAoBI;AAAtB;AAGd;AAGD;AAEA,UAAG;AACH,aAAM,eAAS,IAAM,CAAD,CAAC,GAAK,KAAL,CAArB;AAEE,YAAO,CAAH,CAAD,CAAC,GAAC,EAAD,CAAG,GAAK,SAAI,CAAC,SAAD,CAAL,aAAJ,CAAgB,GAAI,EAAJ;AACvB;;AAEF,UAAG,CAAC,GAAK,KAAT,EAAqB,IAAG,CAAxB;AACA,eAAY,oBAAC,CAAD;AAfG;AAAsB;AAkBT;AAG5B;AAGA,2BAAe;AACf,aAAM,IAAN;AAEW,mBAAJ,SAAI,CAAC,SAAD;AACP,YADO,IACP;AAEI,cAAG;AACH,+BAAe,kBAAa,GAAC,CAAD;SAEhC,UANO,IAMP;AAEI,+BAAe,kBAAa,GAAC,6BAAD;;AAE3B;;;AAGT,oBAAgB;AAtBY;AAyBD;AAE3B;AACA,UAAG,eAAH;AAEE;AACA,6BAAe,GAAG,GAAC,kBAAD;;AAIlB,sBAAQ;AACR,6BAAe;;AAXU;AAeE;AAE7B,oBAAQ;AACR,2BAAe,SAAI,CAAC,SAAD;AACnB;AAJ6B;AAwBC;AAE1B,eAAJ,IAAG;AAEH;AAJ8B;AAjBN;AAExB,qBAAS;AACC,eAAD,sBAAC,iBAAK,IAAN;AACT,qBAAS;AACT,kBAAM;AACN,uBAAW;AACX,yBAAa;AACb,yBAAa;AACb,2BAAe;AACf,wBAAY;AACZ,oBAAQ;AACR;AACA;AACA;AAd0C;AAAlB;AAwBA;AAGxB;AAGA,eAAe,kBAAD,OAAe,GAAC,CAAD;AAC7B,kBAAO,YAAC,CAAU,gBAAS,GAAC,MAApB;AAPgB;AAUE;AAE1B,UAAG,WAAM,KAAE,CAAX,EACE,aAAQ,CAAC,qDAAsB,mBAAa,GAAZ,iBAAY,CAAC,CAAD,EAAgB,GAAZ,iBAAY,CAAC,WAAD,CAA7B,CAAvB,CADV;AAF0B;AAMM;AAEhC,qBAAU,CAAC,0BAAD;AACV,UAAG,wBAAW,CAAC,mBAAc,CAAf,CAAiB,KAAE,CAAjC,EACE,aAAQ,CAAC,uDAAwB,mBAAC,KAAE,qBAAH,CAAzB,CADV;AAHgC;AAOX;AAErB,mBAAQ,CAAC,KAAD;AAFa;AAKG;AAExB,mBAAQ,CAAC,mBAAM,CAAC,MAAM,IAAP,CAAP;AAFgB;AAKA;AAExB,YAAM,iBAAY,QAAC,aAAS,CAAC,OAAO,GAAC,6CAAD,CAAgB,mBAAC,mBAAe,EAAJ,SAAI,GAAC,cAAD,CAAW,kBAA3B,CAAxB,CAAT;AAFK;AAKG;AAG3B;AACA;AACA;AAGU,YAAD,sBAAC,SAAO,IAAR;AACT,UAAG;AACH;AACA,aAAM,eAAN;AAEE,YAAI,gBAAW,CAAC,SAAI,CAAC,SAAD,CAAL,CAAa,IAAI,CAAJ;AAC5B;AACA,YAAG,CAAI,eAAP,EACE,UAAK,CAAC,0DAAD,CADP;AAEA,YAAG,CAAE,GAAG,gBAAW,CAAC,SAAI,CAAC,SAAD,CAAL,CAAd;AACL;AACA,cAAM,CAAC,CAAD,CAAN,GAAW;AACP,SAAJ,IAAG;AACH,YAAG,CAAC,IAAE,IAAN;AAEE,gBAAM,YAAY,CAAC,OAAO,CAAR;AAClB,cAAG;SAHL;AAKA;;AAEF,UAAG,CAAC,GAAC,CAAL,EACE,MAAM,YAAY,CAAC,OAAO,CAAR,CADpB;AAEA;AA9B2B;AAiCH;;AAAT;AAEG;AAEhB,uBAAQ;AACR;AAHgB;AAOlB;AACA,UAAG,gBAAH;AACE;;AAES,mBAAJ,SAAI,CAAC,SAAD;AACP,aADO,IACP,aAAO,EADA,IACA,IAAH,GAAG,MADA,IACA,IAAE,GAAF,EAAP,IAAgB,EADT,IACS,IAAH,GAAG,MADT,IACS,IAAE,GAAF,EAAhB;AAAwB;AACxB,kBAFO,IAEP;AAAwB;AACxB,kBAHO,IAGP;AAAwB;AACxB,kBAAG,CAJI,IAIJ,IAAH,GAAG,MAJI,IAIJ,IAAE,GAAF,CAAH;AAAwB;AACxB,mBALO,IAKP,aAAK,CALE,IAKF,SAAL;AAAwB;AACxB,kBANO,IAMP;AAAM,kBAAQ,CAAC,4BAAD;AACd,kBAPO,IAOP;AAAM,kBAAQ,CAAC,6BAAD;AACd,kBARO,IAQP;AAAM,kBAAQ,CAAC,mCAAD;AACd,kBATO,IASP;AAAM,kBAAQ,CAAC,+BAAD;AACd,kBAVO,IAUP;AAAM,kBAAQ,CAAC,0BAAD;AACd,kBAXO,IAWP;AAAM,kBAAQ,CAAC,2BAAD;AACd,kBAZO,IAYP;AAAM,kBAAQ,CAAC,iCAAD;AACd,kBAbO,IAaP;AAAM,kBAAQ,CAAC,6BAAD;AACd,kBAdO,IAcP;AAAM,kBAAQ,CAAC,yBAAD;AACd,kBAfO,IAeP;AAAM,kBAAQ,CAAC,uBAAD;AACd,kBAhBO,IAgBP;AAAM,kBAAQ,CAAC,yBAAD;AACd,kBAjBO,IAiBP;AAAM,kBAAQ,CAAC,yBAAD;AACd,kBAlBO,IAkBP;AAAM,kBAAQ,CAAC,wBAAD;;AAEZ;;;AAEN,eAAQ;AAnCO;AAAS;AAsCA;AAAT;AAEf,eAAwB,CAAhB,YAAO,YAAC,EAAQ,GAAC,YAAD,CAAQ,GAAC,SAAD;AAFjB;AAAS;AAKU;AAAnB;AAEf,UAAG,WAAM,KAAE,0BAAX,EACE,aAAQ,CAAC,+CAAgB,mBAAa,GAAZ,iBAAY,CAAC,0BAAD,CAAb,CAAjB,CADV;AAEA;AACA,aAAM,SAAI,CAAC,SAAD,CAAM,KAAC,GAAjB;AAEE;AACA,6BAAe,kBAAa,GAAC,kBAAD;;AAE9B,eAAQ;AAVO;AAAmB;AAaT;AAAV;AAGf;AAGA,sBAAG,CAAC,mBAAc;;;;WAAO;;;;UAAtB;AACH,UAAG,OAAO,KAAE,CAAZ,EACE,aAAQ,CAAC,mDAAoB,mBAAC,qBAAD,CAArB,CADV;AAPe;AAAU;AAWF;AAAR;AAEf,UAAG,CAAI,0BAAa,CAAC,mBAAc;;;;UAAf,CAApB,EACE,SAAQ,uBAAU,CAAC,kBAAD,CADpB;AAFe;AAAQ;AAMG;AAAX;AAEV;AACH,UADG,IACH;AAAU,YAAG,eAAU,KAAE,MAAf;AACE,mBAAQ,kBAAa,GAAC,eAAD;AAClB,uBAAQ;;AAErB,iBAAQ;;AAPG;AAAW;AAYE;AAAb;AAEf,eAAe,CAAN,WAAM,KAAC,0BAAD,CAAW,IAAiC,CAA5B,wBAAW,CAAC,mBAAc,CAAf,CAAiB,KAAC,CAAD,CAAjC;AAFX;AAAa;AApqTrB;AAGO;AAmCM,+BAAO,UAzqBpB,qBAyqBoB,CAAP;AAtCb;AA6DY;;AAEG;;;AAEnB;AACA;AACA;AACA;AAED;AAPoB;;;;;;AAiyRiB;AAGvC;AAAK;AACL;AAAE;AAAI;AACN;AAAU;AAIX,UAAG,CAAE,KAAE,EAAP;AACE,cAAM;;AAGN,cAAO;AACP,mBAAY;AACZ,cAAa,CAAD;AACZ,YAAG;AACH,eAAM,CAAE,GAAE,GAAV;AAEE,wBAAe;AACf,cAAK,CAAI,WAAW,CAAC,CAAD;AACpB,cAAG,CAAE,KAAK,EAAV;AAEE,gBAAG,CAAI,QAAP,EACE,cAAe,IADjB;AAEA,qBAAU;WAEP,UAAM,CAAF,CAAE,IAAG,EAAH,CAAO,IAAO,CAAF,CAAE,GAAE,GAAF,CAApB;AAEH,gBAAG,CAAI,QAAP,EACE,cAAe,IADjB;AAEA,qBAAU,MAAS,aAAa,CAAC,CAAD;;AAIhC,gBAAG,QAAH,EACE,cAAe,KADjB;AAEA,qBAAU,GAAI,GAAE,qBAAQ,CAAC,CAAD,CAAV;;AAEjB,cAAG,WAAY,KAAG,QAAlB;AAEE,qBAAU,GAAK,GAAE,MAAF;AACf,uBAAY;WAHd;AAKA,gBAAO,GAAI,GAAE,MAAF;AACP,WAAJ,IAAG;;AAEL,YAAG,QAAH,EACE,MAAO,GAAI,GAAE,GADf;;AAGD,iBAAM,CAAC,GAAD;AAlDkC;AANH;AAEpC,iBAAM,CAAC,CAAE,GAAE,qBAAL;AAF8B;AAVC;AAGrC;AAGA,eAAO,QAAW,OAAC,CAAD,yBAAlB;AAAI;AACF,oBAAM,kBAAgB,CAAC,CAAC,QAAC,KAAD,CAAF;;AAPa;AAsEG;AAExC,mBAAQ,CAAC,CAAD;AAFgC;AAgBF;AAAR;AAE9B,iBAAK,kBAAe,CAAC;;;;UAAD;AAFU;AAAQ;AAKC;AAAT;AAE9B,iBAAK,kBAAe,CAAC;;;;UAAD;AAFU;AAAS;AA0BC;AAAV;AAG9B,iBAAK,kBAAe,CAAC;;;;UAAD;AAHU;AAAU;AAhBH;AAAP;AAEzB;AACH,UADG,IACH;AAAQ,iBAAkB,EAAC,WAAK,WAAN;AAC1B,gBAFG,IAEH;AAAS,iBAAkB,EAAC,eAAD;AAC3B,gBAHG,IAGH;AAAS,iBAAkB,gBAAD;AAC1B,gBAJG,IAIH,kCAAa,SAAU,oBAAvB;AAN4B;AAAO;AAUA;AAAP;AAE9B,eAAU,YAAO,CAAY,WAAK,WAAjB;AAFa;AAAO;AAfM;AAAb;AAE9B,iBAAK,kBAAe,CAAC;;;;UAAD;AAFU;AAAa;AA2BN;AAAP;AAG9B;AAAE;AACF;AAGA,iBAAK,iBAAe,CAAC;;;;UAAD;AACV,YAAD,oBAAC,OAAO,CAAR;AACT,eAAO,QAAK,0BAAZ;AAAI;AAEF,mBAAK,iBAAe,CAAC;;;;YAAD;AACpB,cAAM,iBAAN,OAAO,MAAI,CAAL;;AAZsB;AAAO;AAgBG;AAAV;AAG9B;AACA;AAGA,eAAQ;AACR,UAAG,UAAU,KAAE,wBAAf,EACE,MAAM,gBAAW,QAAC,YAAM,CAAC,0CAAD,CAAN,CADpB;AAEA,UAAG;AACO,YAAD,oBAAC,OAAQ,CAAT;AACT,eAAO,QAAW,OAAC,MAAD,yBAAlB;AAAI;AAEF,mBAAK,iBAAe,CAAC;;;;YAAD;AACpB,cAAM,iBAAN,OAAO,MAAI,CAAL;;AAfsB;AAAU;AAmBI;AAG5C;AAAM;AAAO;AACb;AACA;AAGA,aAAQ;AACE,UAAD,sBAAC,OAAK,EAAN;AACT,gBAAK,CAAC,GAAD;AACL,aAAM,IAAK,GAAE,CAAb;AAEE,gBAAS;AACT,YAAG,KAAM,GAAE,EAAX,EACE,QAAS,EADX;AAEI,YAAJ,IAAU;AACV,YAAK,YAAO,GAAE,IAAF;AACZ,mBAAK,WAAW,CAAC;;;;aAAM,KAAP;AAChB,iBAAS,QAAW,OAAN,KAAM,GAAE,CAAF,kBAApB;AAAI;AACF,cAAK,CAAE,GAAE,qBAAQ,CAAC,IAAI,CAAC,CAAD,EAAK,CAAV,CAAV;;AACT,kBAAK,CAAC,CAAD;;AAEP,gBAAK,CAAC,YAAO,GAAE,GAAV;AAvBuC;AA0BD;AAI3C;AAEA;AAEA;AAIK;AACH,UADG,IACH;AACI,mBAAM,CAAC,GAAD;AACN,kBAAW;AACX,eAAM,IAAN;AACE,sBAAwB,WAAK;AAC7B,cAAG,SAAU,KAAE,sBAAf,EAA2B,KAA3B;AACA,cAAG,OAAH;AACE,sBAAK,CAAC,EAAD;AACL,sBAAW;WAFb;AAIA,qBAAM,CAAC,MAAO,GAAE,IAAV;AACN,2BAAY,CAAC,UAAW,MAAO,GAAE,IAArB;;AAEd,kBAAK,CAAC,MAAO,GAAE,GAAV;OAET,UAhBG,IAgBH;AAAQ,kBAAK,CAAC,qBAAQ,CAAS,EAAC,WAAK,WAAN,oBAAT,CAAT;AACb,gBAjBG,IAiBH;AAAS,kBAAK,CAAE,qBAAQ,CAAS,EAAC,eAAD,sBAAT,CAAV;AACd,gBAlBG,IAkBH;AAAS,kBAAK,CAAC,qBAAQ,CAAS,gBAAD,aAAR,CAAT;AACd,gBAnBG,IAmBH;AAAa,kBAAK,CAAC,qBAAQ,CAAC,oBAAD,CAAT;AAClB,gBApBG,IAoBH;AACI,cAAK;AACG,SAAL,GAAC;AACJ,kBAAK,CAAC,CAAD;OAET,UAzBG,IAyBH;AACI,YAAG,kBAAH;AACE,qBAAM,CAAE,GAAmE,GAA9D,0BAAa,CAAC,eAAU,CAAC,wBAAD,EAAW,IAAK,KAAO,cAAC,4CAAD,CAAlC,CAAd,GAAgE,GAAtE;AAEN,cAAA,cAAS,CAAC,eAAU,CAAC,wBAAD,CAAX;AACX,kBAAK,CAAC,EAAD;OAET,UAhCG,IAgCH;AAAS,kBAAK,CAAC,cAAD;AACd,gBAjCG,IAiCH;AAAS,kBAAK,CAAC,OAAD;AACd,gBAlCG,IAkCH;AAAQ,kBAAK,CAAC,MAAD;AACb,gBAnCG,IAmCH;AAAU;AACV,gBApCG,IAoCH;AACI,mBAAM,CAAC,GAAD;AACN,kBAAW;AACX,eAAM,IAAN;AACE,cAAK;AACL,cAAU,CAAD,OAAI,KAAE,CAAf,EAAsB,KAAtB;AACA,cAAG,CAAI,OAAP,EAAoB,WAAM,CAAC,IAAD,CAA1B;AACA,oBAAW;AACX,qBAAM,CAAC,CAAD;;AAER,kBAAK,CAAC,GAAD;OAET,UAhDG,IAgDH;AACE,kBAAK,CAAC,KAAD;AACP,gBAlDG,IAkDH;AACI,mBAAM,CAAC,GAAD;AACN,eAAM,WAAK,WAAU,KAAG,CAAxB;AACE,oBAAK,CAAC,MAAD;AACL,qBAAK,KAAK,CAAC,CAAC,EAAG,0BAAL;AACV,qBAAM,CAAC,MAAO,GAAE,QAAV;AACN,sBAAwB,WAAK;AAC7B,cAAG,SAAU,KAAG,sBAAhB,EACE,WAAM,CAAC,GAAmC,GAA7B,qBAAQ,CAAC,YAAO,CAAC,SAAD,CAAR,CAAV,GAAiC,GAAtC,CADR;AAEA,oBAAK,CAAC,EAAD;AACL,2BAAY,CAAC,MAAO,GAAE,MAAV;AACZ,qBAAM,CAAC,MAAO,GAAE,OAAV;;AAER,kBAAK,CAAC,GAAD;;AAMP,cAAM,eAAU,QAAC,aAAS,CAAC,uDAAwB,mBAAI,EAAC,SAAL,CAAzB,CAAT;;AAjFsB;AAiGF;AAGzC;AACA;AAAc;AACd;AAIA,UAAK,WAAK;AACV,UAAM,CAAF,CAAE,GAAI,IAAJ,CAAS,KAAE,IAAjB;AACE,YAAM,CAAF,CAAE,GAAI,CAAJ,CAAO,KAAG,CAAhB,EAAuB,WAAY,gBAAnC;;AAEA,YAAK;AACL,mBAAK,KAAK,CAAC,CAAC,EAAG,0BAAL;;AAGZ,qBAAgB;AAChB,gBAAW;AAEX,iBAAM,CAAC,MAAD;AACN,UAAM,CAAF,CAAE,GAAI,CAAJ,CAAO,KAAG,CAAhB;AAAuB,mBAAM,CAAC,WAAD;AAE5B,gBAAM,CAAF,CAAE,GAAI,CAAJ,CAAO,KAAG,CAAhB;AAAuB,mBAAM,CAAC,QAAD;AACxB,YAAA,WAAM,CAAC,QAAD;AACZ,iBAAM,CAAC,GAAD;AACN,UAAG,OAAQ,KAAG,EAAd,EACE,WAAM,CAAC,OAAQ,GAAE,IAAX,CADR;AAEA,iBAAM,CAAC,YAAD;AACN,UAAM,CAAF,CAAE,GAAI,CAAJ,CAAO,KAAG,CAAhB,EAAuB,WAAM,CAAC,GAAyB,GAAnB,qBAAQ,CAAC,QAAD,CAAV,GAAuB,GAA5B,CAA7B;AACA,gBAAK,CAAC,EAAD;AAEL,uBAAY,CAAC,MAAO,GAAE,IAAV;AAEZ,aAAM,WAAK,WAAU,KAAG,CAAxB;AACE,mBAAK,KAAK,CAAC,CAAC,EAAG,0BAAL;AACV,uBAAU,CAAC,MAAO,GAAE,IAAV;;AAEZ,gBAAK,CAAC,MAAO,GAAE,KAAV;AAtCoC;AAXE;AAI3C,aAAM,WAAK,WAAU,KAAG,CAAxB;AACE,mBAAK,KAAK,CAAC,CAAC,EAAG,0BAAL;AACV,mBAAM,CAAC,MAAiB,GAAR,cAAF,GAAY,KAApB;AACN,yBAAY,CAAY,WAAK,YAAY,MAA7B;;AAP6B;AA8EM;AAEjD,+BAAkB,CAAC,OAAO,QAAQ,+BAAhB;AAF+B;AA1BA;AAGjD,oBAAQ;AACR,qBAAS;AACT,uBAAW;AACX;AANiD;AASX;AAGtC;AAGA,UAAG,YAAQ,KAAE,EAAb,EAAqB,eAAS,IAA9B;AACA,UAAG,CAAY,CAAC,WAAD,SAAf,EACE,MAAM,eAAU,QAAC,YAAM,CAAC,sBAAD,CAAN,CADnB;AAEA,UAAG,CAAY,CAAC,YAAD,SAAf,EACE,MAAM,eAAU,QAAC,YAAM,CAAC,uBAAD,CAAN,CADnB;AAEA,iBAAM,kBAAe,CAAC;;;;UAAD;AACrB,UAAG,SAAU,KAAG,SAAhB,EACE,MAAM,eAAU,QAAC,YAAM,CAAC,4CAAD,CAAN,CADnB;AAEA,qBAAU,CAAC,EAAD;AAd4B;AA5lShB;AAyCF;;;AAElB;AAEA;AACA;AALkB;;;;;;;AAilToB;AAExC,kBAAM,mBAAgB,CAAC,CAAD;AAFkB;AAVD;AAEvC,kBAAM,mBAAgB,CAAC,EAAD;AAFiB;AAwCE;AAGzC,UAAU,CAAN,KAAM,IAAG,CAAC,GAAJ,CAAS,IAAW,CAAN,KAAM,IAAG,GAAH,CAA9B;AACE,oBAAM,UAAU,CAAK,sBAAL;AAChB,oBAAM,UAAU,CAAM,KAAD,MAAL;OACT,UAAU,CAAN,KAAM,IAAG,CAAC,KAAJ,CAAW,IAAW,CAAN,KAAM,IAAG,KAAH,CAAhC;AACP,oBAAM,UAAU,CAAK,uBAAL;AAChB,sBAAS,CAAM,KAAD,QAAL;OACF,UAAU,CAAN,KAAM,IAAG,CAAC,UAAJ,CAAgB,IAAW,CAAN,KAAM,IAAG,UAAH,CAArC;AACP,oBAAM,UAAU,CAAK,uBAAL;AAChB,uBAAU,CAAU,KAAD,MAAT;;AAEV,oBAAM,UAAU;AAChB,uBAAU,CAAY,KAAZ;;AAd6B;AAnCF;AAEvC,kBAAM,mBAAgB,CAAC,CAAD;AAFiB;AAUC;AAGxC;AAAE;AAGF,UAAU,CAAD,OAAG,GAAC,GAAb;AACE,eAAM;AAEN,mBAAa,CAAD;AACd,kBAAM,UAAU,CAAC,IAAD;AAChB,eAAO,QAAW,OAAC,CAAD,yBAAlB;AAAI;AACD,oBAAM,kBAAgB,CAAC,CAAC,QAAC,KAAD,CAAF;;AAZe;AApBF;AAEtC,kBAAM,mBAAgB,CAAC,CAAD;AAFgB;AAmCG;AAGzC;AAEA,qBAAU,CAAQ,CAAD,OAAP;AACV,eAAO,QAAW,OAAC,CAAD,yBAAlB;AAAI;AACF,oBAAM,kBAAgB,CAAC,CAAC,QAAC,KAAD,CAAF;;AAPiB;AAwKC;AAE1C;AACA;AAAY;AACZ;AAEA,UAAG,YAAM,cAAc,CAAC,QAAD,CAAvB;AACE,gBAAQ;;AAER,YAAG,YAAM,cAAc,CAAC,WAAD,CAAvB;AACE,kBAAS;;AAET,sBAAM,iBAAiB,CAAC,QAAD;AACvB,kBAAS;;;AAGb,kBAAM;AACN,kBAAM,WAAW,CAAC,0BAAD;AACjB,mBAAc;AACd,mBAAc,YAAM;AACpB,kBAAM;AACN,UAAG,YAAM,OAAO,KAAE,yBAAlB;AACE,oBAAM;AACN,oBAAM,WAAW,CAAC,0BAAD;AACjB,qBAAc;AACd,qBAAc,YAAM;AACpB,oBAAM;AACN,YAAG,YAAM,OAAO,KAAE,4BAAlB;AACE,sBAAM;AACN,qBAAY,YAAM;AAClB,sBAAM;AACN,sBAAM,WAAW,CAAC,0BAAD;AACjB,sBAAM;AACN,kBAAS,KAAM,GAAG,CAAH;SANjB;OANF;AAeA,UAAG,KAAM,KAAG,CAAZ;AACE,oBAAM,UAAU,CAAC,IAAI,GAAG,KAAR;AAChB,YAAU,CAAN,KAAM,GAAI,CAAJ,CAAO,KAAG,CAApB,EACE,iBAAY,CAAC,QAAD,CADd;OAFF;AAKA,sBAAW,CAAC,UAAD;AACX,sBAAW,CAAC,UAAD;AAGX,aAAM,CAE8B,CAFzB,YAAM,cAAc,CAAC,KAAD,CAEK,IADlC,YAAM,cAAc,CAAC,QAAD,CADiB,IAErC,YAAM,cAAc,CAAC,WAAD,CADW,IAE/B,YAAM,cAAc,CAAC,QAAD,CADc,CAFpC,EAIE;AACF,kBAAM,UAAU,CAAC,CAAD;AAGhB,aAAM,CAAI,YAAM,cAAc,CAAC,KAAD,CAA9B,EAAyC;AACzC,kBAAM;AACN,kBAAM,UAAU,CAAC,CAAD;AAvD0B;AApBE;AAE5C;AAGA,kBAAM,WAAW,CAAC,0BAAD;AACjB,aAAQ,YAAM;AACd,aAAM,IAAN;AACE,oBAAM;AACN,YAAG,YAAM,OAAO,KAAG,uBAAnB,EAA8B,KAA9B;AACA,oBAAM;AACN,oBAAM,WAAW,CAAC,0BAAD;AACjB,eAAQ,IAAW,GAAJ,GAAF,GAAQ,YAAM,cAAR;;AAErB,sBAAW,CAAC,IAAD;AACX,kBAAM,WAAW,CAAC,yBAAD;AACjB,kBAAM;AACN;AAjB4C;AAtGH;AAEzC;AACA;AAEW,iBAAN,YAAM;AACT,UADS,IACT;AAEI,yBAAY,CAAC,YAAM,WAAP;AACZ,oBAAM;OAEV,UANS,IAMT;AAEI,oBAAM,UAAU;AAChB,cAAO,YAAM;AACb,wBAAW,CAAC,GAAD;AACX,oBAAM;OAEV,UAbS,IAaF,KAAC,0BAAR;AACE,8BAAiB,CAAC,EAAD;AACnB,gBAfS,IAeT;AAEI,YAAG,wBAAW,CAAC,YAAM,eAAc,MAArB,CAA6B,KAAE,CAA7C;AACE,sBAAM,UAAU,CAAK,sBAAL;AACb,kBAAG,wBAAW,CAAC,YAAM,eAAc,OAArB,CAA8B,KAAE,CAA9C;AACH,sBAAM,UAAU,CAAK,uBAAL;AACb,kBAAG,wBAAW,CAAC,YAAM,eAAc,KAArB,CAA4B,KAAE,CAA5C;AACH,sBAAM,UAAU,CAAK,qBAAL;;AAGhB,sBAAM,UAAU,CAAK,uBAAL;AAChB,0BAAW,CAAC,YAAM,sBAAP;;AAEb,oBAAM;OAGV,UA/BS,IA+BT;AAEI,oBAAM;AACN,oBAAM,UAAU,CAAK,qBAAL;AAChB,YAAG,YAAM,OAAO,KAAG,0BAAnB,EACE,OAAM,IAAN;AAEE,sBAAM,WAAW,CAAC,0BAAD;AACjB,0BAAW,CAAC,YAAM,cAAP;AACX,sBAAM;AACN,cAAG,YAAM,OAAO,KAAE,0BAAlB,EACE,KADF;AAEA,sBAAM,WAAW,CAAC,yBAAD;AACjB,sBAAM;SATV;AAWA,oBAAM,UAAU,CAAC,CAAD;AAChB,oBAAM;OAGV,UAlDS,IAkDT;AAEI,oBAAM;AACN,oBAAM,UAAU,CAAK,sBAAL;AAChB,eAAM,YAAM,OAAO,KAAG,2BAAtB,EACE;AACF,oBAAM,UAAU,CAAC,CAAD;AAChB,oBAAM;OAGV,UA5DS,IA4DT;AAEI,oBAAM;AACN,oBAAM,UAAU,CAAK,4BAAL;AAChB,eAAM,YAAM,OAAO,KAAG,iCAAtB;AAEE,sBAAM,iBAAiB,CAAC,MAAD;AACvB,sBAAM;AAEN,sBAAM,UAAU,CAAK,sBAAL;AAChB,iBAAM,CAAI,YAAM,cAAc,CAAC,KAAD,CAA9B,EACE;AACF,sBAAM;AACN,sBAAM,UAAU,CAAC,CAAD;;AAElB,oBAAM,UAAU,CAAC,CAAD;AAChB,oBAAM;OAGV,UA/ES,IA+ET;AAEI,oBAAM,UAAU,CAAK,wBAAL;AAChB,iBAAU,iBAAY,QAAC;AACvB;AACE,sBAAM,YAAY,CAAC,MAAD;AAClB,yBAAU,CAAC,MAAM,QAAC,EAAR;AACV,sBAAM,YAAY,CAAC,MAAM,SAAC,GAAM,MAAM,QAAC,EAArB;AAHpB;AAKE,gBAAO,eAAP,MAAO;AALT;AAOA,oBAAM;;AAGR,oBAAM,MAAM,CAAC,qDAAD;;AAlGyB;AAlBK;AAG7C;AAED,WAAI,IAAI,GAAC,YAAM,cAAP;AACR,aAAM,YAAM,YAAW,KAAE,wBAAzB;AAEE,oBAAM;AACN,YAAG,CAAiB,CAAZ,YAAM,OAAM,KAAS,0BAAT,CAApB,EACE,YAAM,WAAW,CAAS,0BAAT,CADnB;AAEA,aAAI,EAAE,GAAC,YAAM,cAAP;;AAER,kBAAM,UAAU;AAChB,uBAAY,CAAC,EAAD;AAdkC;AAsMC;AAG/C,oBAAQ;AACR,qBAAS;AACT;AAL+C;AAQX;AAEpC,UAAG,CAAY,CAAC,WAAD,SAAf,EACE,MAAM,eAAU,QAAC,YAAM,CAAC,sBAAD,CAAN,CADnB;AAEA,UAAG,CAAY,CAAC,YAAD,SAAf,EACE,MAAM,eAAU,QAAC,YAAM,CAAC,uBAAD,CAAN,CADnB;AAEA,qBAAW,YAAO,QAAC,YAAM,CAAC,WAAD,CAAN;AACnB;AACE,oBAAM,mBAAgB,CAAC,SAAD;AACtB;AAFF;AAIU,iBAAR,KAAQ;AAJV;AAPoC;AA/0ThB;AA2BT;AAGU,2FAAsC,sBAAtC;AACC,4FAAwC,WNv+BhD,+BMu+BgD,EAAxC;AACN,sFAAuC,uBAAvC;AALL;AAUK,2CAVL,uCAUK;AAQH;;;AAET;AACA;AACA;AACA;AACA;AACA;AAPS;;;;;;;;AA87TY;AAEzB,mBAAS,MAAM;AAFU;AAoCC;AAE1B,YAAM,aAAa,CAAC,UAAD;AAFO;AAzBD;AAEzB,gBAAK,EAAL,GAAW,MAAM;AAFQ;AAKC;AAE1B,YAAM,aAAa,CAAC,UAAK,EAAN;AAFO;AAKD;AAEzB,gBAAK,EAAL,GAAW,MAAM;AAFQ;AAKC;AAE1B,YAAM,aAAa,CAAC,UAAK,EAAN;AAFO;AAKD;AAEzB,iBAAM,EAAN,GAAY,MAAM;AAFO;AAUC;AAE1B,YAAM,aAAa,CAAC,WAAM,EAAP;AAFO;AAKD;AAEzB,iBAAM,EAAN,GAAY,MAAM;AAFO;AAKC;AAE1B,YAAM,aAAa,CAAC,WAAM,EAAP;AAFO;AAtHE;AAE5B,UAAY,cAAD,QAAX,EACE;AACE,sBAAS,CAAC,IAAD;AADX;AAGE,YAAG,CAAI,4BAAP,EACE,QADF;AAHF,OADF;AAF4B;AAWC;AAE7B,UAAY,eAAD,QAAX,EACE;AACE,uBAAU,CAAC,IAAD;AADZ;AAGE,YAAY,+BAAD,QAAX,EACE,+BAA0B,CAAC,IAAD,CAD5B;AAHF,OADF;AAF6B;AAWO;AAGpC;AACA;AACA;AAG0B,iDAAC,KAAD;AAC1B,iBAAwB,KAAK;AAC7B,iBAAmB,CAAR,QAAQ,KAAC,IAAD,CAGmB,IAFnB,CAAR,WAAM,EAAE,KAAE,QAAQ,OAAO,EAAjB,CADM,IAEN,CAAR,WAAM,EAAE,KAAE,QAAQ,OAAO,EAAjB,CADqB,IAEtB,CAAP,UAAK,EAAE,KAAE,QAAQ,MAAM,EAAhB,CADsB,IAEtB,CAAP,UAAK,EAAE,KAAE,QAAQ,MAAM,EAAhB,CADoB;AAEtC,oBAAiC,CAAX,CAAC,QAAD,SAAW,IAAU,CAAL,UAAK,KAAE,QAAQ,MAAV,CAAV,CAA6B,IACzB,CAAvB,CAAY,CAAC,QAAD,SAAW,IAAU,CAAL,UAAK,KAAE,EAAF,CAAV,CADyB;AAE9D,WAAK,eAAe,CAAC,SAAW,iCAAQ,kCAAQ,QAA5B;AACpB,WAAK,eAAe,CAAC,mBAAqB,iCAAQ,kCAAQ,QAAtC;AACpB,WAAK,eAAe,CAAC,iBAAmB,iCAAO,kCAAQ,QAAnC;AACpB,WAAK,eAAe,CAAC,QAAU,iCAAQ,kCAAQ,QAA3B;AACpB,WAAK,eAAe,CAAC,MAAQ,iCAAQ,kCAAO,WAAxB;AArBgB;AAwBL;AAG/B;AAGqB,4CAAC,KAAM,IAAP;AACrB,UAAI,IAAI,KAAC,IAAT,EACE,SAAO,QAAmB,OAAd,wBAAc,GAAC,CAAD,kBAA1B;AAAI;AACF,YAAG,CAAI,iBAAU,CAAC,CAAD,CAAG,YAApB,EACG,IAAI,CAAC,iBAAU,CAAC,CAAD,CAAX,CADP;OAFJ;AAP+B;AAcS;AAArB;AAEnB,eAAiB,+BAAD;AAChB,UAAG,MAAH,EACE,+BAA0B,CAAC,IAAD,CAD5B;AAHmB;AAAqB;AAYX;AAE7B,uBAAa;AACM,0CAAC,MAAD;AAHU;AA/HD;AAE5B,oBAAS,CAAC,MAAD;AACT,UAAc,CAAV,uBAAU,KAAG,gBAAH,CAAgB,IAC3B,CAAiB,CAAZ,oCAAY,IAAG,oBAAH,CADpB;AAGE,YAAG,CAAI,2BAAsB,CAAC,KAAM,gBAAP,CAA7B,EACE,MAAM,iBAAY,QAAC,aAAS,CAAC,+CAAiB,mBAAC,kBAAD,CAAlB,CAAT,CADrB;AAEA,YAAG,cAAH,EACE,eADF;OALF;AAHiD;AAArB;AAaG;AAG/B,sBAAS,CAAC,OAAO,CAAR;AAH2C;AAArB;AAMA;AAEf,yCAAC,MAAD;AAChB,mBAAS;AACT,UAAW,CAAC,kBAAD,SAAgB,IAAe,CAAV,UAAU,IAAE,CAAF,CAA1C,EACE,kBAAa,CAAC,IAAD,CADf;AAJyE;AAA1C;AA2BH;AAE5B,UAAG,cAAH,EACE,gBADF;AAEA,UAAY,qBAAD,QAAX,EACE,qBAAgB,CAAC,IAAD,CADlB;AAEU;AANkB;AAdS;AAEpC,UAAG,CAAI,cAAP,EACE,eADF;AAFoC;AAMA;AAErC;AACA,gCAAqB,CAAC,KAAM,EAAP;AACrB,UAAG,CAAI,cAAP,EACE,gBADF;AAJqC;AA12TxB;;AA0BS,+BAAO,UAt5BnB,wBAs5BmB,CAAP;AACG,gCAAO,UAv5BtB,wBAu5BsB,CAAP;AACA,kCAAO,UAx5BtB,wBAw5BsB,EAAwB,0BAA/B;AASJ,gCA18CT,2BA08CS;AACC,iCA38CV,2BA28CU;AACK;AAvCd;AAyCK,2CAzCL,uCAyCK;AAIJ;AACZ;AACA;AAFY;aACZ,wBACA;AAFY;;AACZ;AACA;AAFY;;;AACZ;AACA;AAFY;AAKH,gEAAuB,uBAAiB,qBAAxC;AACA,gEAAe,oBAAoB,sBAAnC;AACS,yEAAsB,qBAAtB,EAh7BV,wBAg7BU;AACC,0EAAoB,YAj7B/B,wBAi7B+B,EAA0B,gBTx3C7D,0BSw3C6D,CAA9C;AAIP;AA88TuB;AAErC,qDAAe,OAAQ,sBAAS,QAAC,EAAjC;AAFqC;AAOA;AAErC;AACA;AACA;AAEA,YAAM,KAAK,CAAC;;;;WAAK,MAAM,QAAC,EAAb;AACX,YAAO,kBAAa,cAAc,CAAC,iBAAD;AAElC,UAAW,CAAC,QAAD,SAAW,IAAc,CAAT,QAAS,KAAG,QAAQ,OAAC,UAAZ,CAApC;AAEE,YAAK,QAAQ,YAAC;AAElB;AACA;;AAMA;;AAiBE,sBAAQ,CAAR;AArCqC;AAwCF;AAEnC,mDAAa,OAAQ,sBAAS,QAAC,EAA/B;AAFmC;AAKA;AAEnC;AAAE;AACF;AACA;AACA;AAEA,UAAK;AACL,UAAY,QAAD,QAAX;AAEE,YAAK,QAAQ,YAAC;OAFhB;AAKA,YAAO;AAGT;AACA;AAGE,UAAK,kBAAa,cAAc,CAAC,GAAD;AAChC,UAAK,GAAG;AAER,YAAM,MAAM,CAAC,EAAG,CAAJ;AACZ,YAAM,YAAC,CAAY,CAAZ;AAxB4B;AA4BD;AAAZ;AAEtB;AACA;AAEA;AACA,eAAQ;AACR,aAAO,MAAM,GAAC,eAAd;AAEE,YAAG,QAAO,CAAC,MAAD;AACV,cAAK,cAAG,CAAC,yBAAoB,CAArB,CAAuB,GAAC,CAAD;AAC/B,YAAO,CAAH,GAAG,IAAE,CAAF,CAAK,IAA+C,CAA1C,kBAAa,CAAC,MAAM,eAAI,CAAC,EAAE,IAAW,CAAD,OAAb,CAAX,CAA6B,KAAC,CAAD,CAA3D,EACE,aADF;AAEI,cAAJ,IAAG;;AAEL,eAAQ,CAAC;AAfa;AAAY;AA9hUpB;AAYG,yBAAG;AAGO;;;AAEzB;AAFyB;AAsiUiB;AAE5C,wBAAc;AAF8D;AAAhC;AAtiUjB;AAIP,+BAAgB,4BAAhB;AAJO;AAQP;;AAAT,iCAAS,qCAAT;AA0kRyB;AAGpC;AACA;AAEA,QAAI,qBAAe,KAAC,IAApB,EACE,wBAAiB,UAAK,QAAC,YADzB;AAEA,QAAG,kBAAY,QAAC;AAChB,KAAC,OAAD,GAAU;AACV,KAAC,SAAD,GAAY;AACZ;AACO;AAED,UAAG;AACH,aAAQ,CAAD,CAAC,GAAC,gBAAD,CAAQ,IAAI,CAAI,CAAC,OAAO,aAAa,CAAa,cAAC,SAAK,CAAC,CAAD,CAAN,CAAU,OAAvB,CAA7C,EACM,CAAJ,IAAG;AAEL,UAAK,CAAD,CAAC,GAAC,gBAAD,CAAQ,IAAkC,CAAjB,cAAC,SAAK,CAAC,CAAD,CAAN,CAAU,OAAO,KAAC,CAAC,OAAF,CAA/C;AAEgB,sBAAC,SAAK,CAAC,CAAD,CAAN,CAAU,SAAtB,GAAiC;AACjC,SAAE,eAAF,CAAE;OAGJ,MAAA,qBAAe,OAAO,CAAC,EAAE,CAAH;AAb9B;AAgBG,OAAE,eAAF,CAAE;AACF;AAjBH;AAXoC;AAhIf;AAGrB,mBAAgB,CAAN,MAAM,YAAhB,GAA6B;AAHR;AAME;AAEvB;AAGA,aAAc,oEAAd;AAAI,eAAU,GAAV;AACF,wBAAa,CAAC,MAAD;;AANQ;AASR;AAAR;AAGP,aAAQ;AACR,QAAG,UAAU,KAAC,EAAd,EAAsB,aAAtB;AACA,QAAG,CAAI,eAAS,eAAe,CAAC,UAAD,CAA/B,EAAiD,aAAjD;AACA,aAAwB,cAAC,eAAU,YAAX;AANjB;AAAQ;AAUwB;AAErC,QAAG,CAAY,CAAC,6BAAD,SAAf,EACE,gCAAyB,YAAO,QAAC,UADnC;AAEA,QAAG,6BAAuB,QAAQ,CAAa,oBAAb,CAAmC,GAAC,CAAtE,EACE,6BAAuB,IAAI,CAAa,oBAAb,CAD7B;AAJqC;AASE;AAEvC,QAAY,6BAAD,QAAX,EACE,6BAAuB,OAAO,CAAa,oBAAb,CADhC;AAFuC;AAOf;AAAnB;AAGH;AAEJ,aAAQ;AACR,QAAY,6BAAD,QAAX;AAEI,eAAoC,KAA7B,6BAAuB,OAAM,GAAC,CAAD,EAAU,aAA9C;AAAI;AAED,iBAA0C,6BAAuB,KAAC,CAAD,CAAI,CAAC,IAAD;AACrE,YAAY,MAAD,QAAX,EACE,KADF;;KALP;AANO;AAAmB;AAiBA;AAAnB;AAEa;AAAX;AAGP;AACA;AAGA,UAAG,cAAG,CAAC,IAAI,KAAL;AACN,WAAI;AACJ,UAAI,CAAC,KAAC,CAAN;AAEE,YAAG,MAAH;AAEE,cAAG,cAAG,CAAC,KAAK,KAAN;AACN,eAAI,CAAC,KAAE,CAAF;SAHP;AAKA,YAAI,CAAC,KAAC,CAAN,EACE,IAAU,KAAD,OAAO,GAAC,CADnB;OAPF;AAUA,eAAQ,eAAI,CAAC,MAAM,EAAE,CAAC,GAAC,CAAX;AACZ,uBAAM,CAAC;;;;WAAM,EAAE,CAAC,GAAI,CAAC,EAAD,KAAd;AApBC;AAAW;AAwBpB;AACA;AAEA,QAAI,KAAK,KAAC,EAAV;AACE,eAAQ;;AAGR,eAAQ;AACR,aAAY,CAAL,KAAK,KAAE,EAAF,CAAM,IAAW,CAAN,MAAM,KAAE,IAAF,CAA7B;AAEE,YAAG;AACH,YAAG,sBAAS,CAAC,aAAD;AACZ,iBAAQ,CAAC,cAAc,CAAC,CAAD;AACvB,YAAU,CAAN,MAAM,KAAC,IAAD,CAAM,IAAM,CAAD,CAAC,KAAC,OAAD,CAAtB,EACE,SAAQ,CADV;;;AAvCG;AAAmB;AA6CG;AAAtB;AAEP;AAEA,QAAG;AACH,QAAG,CAAY,CAAC,qBAAD,SAAf;AACE,eAAU;AACV;KAFF;AAIA,aAAQ;AACH;AAEH,QAAG;AAEH,WAAM,CAAI,MAAO,IAAM,CAAD,CAAC,GAAC,gBAAD,CAAvB;AAEE,UAAI,QAAQ,OAAC,aAAY,CAAa,cAAC,SAAK,CAAC,CAAD,CAAN,CAAU,OAAvB,CAAzB,EACE,SAAoB,cAAC,SAAK,CAAC,CAAD,CAAN,CAAU,SAAS,CAAC,SAAS,YAAV,CADzC;AAEI,OAAJ,IAAG;;AAlBA;AAAsB;AAn+EE;AAG/B,QAAI,mBAAa,KAAC,IAAlB,EACI,MADJ;AAEA,0BAAgB,CAAC,+BAAyB,QAAC,YAAM,CAAC,KAAK,YAAY,WAAlB,CAAN,CAA3B;AALe;AAQF;AAG7B,QAAI,mBAAa,KAAC,IAAlB,EACI,MADJ;AAEA,0BAAgB,CAAC,6BAAuB,QAAC,YAAM,CAAC,KAAK,QAAN,CAAN,CAAzB;AALa;AA/qLA;AAG7B,QAAG,CAAY,CAAC,kBAAD,SAAf,EACE,qBAAc,YAAO,QAAC,UADxB;AAEA,sBAAY,IAAI,CAAC,eAAS,QAAC,YAAM,CAAC,YAAa,aAAc,YAA5B,CAAN,CAAX;AALa;AAQR;AAAd;AAEP;AAAE;AAEsB;AAEpB,aAAO,OAAO,YAAC,KAAD,CAAI,IAAG,UAArB,EACO,CAAL,IAAI;AAHc;AAML;AAEf;AAGA,UAAK,CAAC,GAAC,CAAD;AACN,UAAM,CAAF,CAAE,GAAE,CAAF,CAAK,IAAG,eAAd;AAEI,YAAY,OAAD,QAAX;AAEE,cAAG,CAAC,GAAC,CAAL;AACE,mBAAO,IAAK,CAAC,eAAI,CAAC,QAAQ,EAAE,CAAX,CAAL;AAEZ,gBAAA,OAAO,IAAI,CAAC,EAAD;SALf;AAOK,cAAL,IAAI;OATR;AANe;AAoBnB;AAAG;AACH;AAEA,aAAU;AACV,QAAK;AACL,aAAU;AACV,iBAAsC,YAAb,aAAX,WAAa,cAAC,GAAK,EAAN,CAAF,EAAe,cAAC,GAAK,EAAN,CAAF;AACtC;AACA,QAAK;AACL,WAAa,OAAD;AACZ,WAAM,CAAC,IAAE,IAAT;AAEI,WAAI,OAAO,QAAC,KAAD;AACX,UAAI,EAAG,KAAE,MAAT;AAEI,YAAK,CAAD,CAAC,GAAC,IAAD,CAAO,IAAkB,CAAb,OAAO,QAAE,CAAD,CAAC,GAAC,CAAD,KAAF,CAAM,KAAE,MAAF,CAA9B;AACO,WAAL,IAAI;AAEJ,uBAAU;OAEX,UAAW,CAAP,MAAO,KAAE,MAAF,CAAM,IAAQ,CAAH,eAAG,IAAG,cAAC,GAAK,EAAN,CAAH,CAAzB,EACH,SAAU,EADP;AAEL,UAAW,CAAP,MAAO,KAAE,MAAF,CAAM,IAAQ,CAAH,eAAG,IAAG,UAAH,CAAzB;AAEI;AACK,SAAL,IAAI;AACJ;AACA,YAAK;OAGP,MAAK,CAAL,IAAI;;AAEV,QAAI,CAAE,KAAG,CAAT,EACE,WADF;AA9DO;AAAc;AAgGJ;AAAV;AAGP;AAEA,aAAY,QAAa,kBAAC,GAAD,uBAAzB;AAAI;AACF,UAAG,wBAAW,CAAC,GAAG,CAAC,CAAD,CAAG,MAAO,KAAd,CAAqB,KAAE,CAArC;AAEE,gBAAO,GAAG,CAAC,CAAD,CAAG,MAAb;AACI,eAAC;OAHP;;AAKF,aAAU;AAXH;AAAU;AAcA;AAAV;AAGP;AAEA,aAAY,QAAa,kBAAC,GAAD,uBAAzB;AAAI;AACF,UAAG,GAAG,CAAC,CAAD,CAAG,MAAO,KAAE,GAAlB;AAEE,kBAAS,GAAG,CAAC,CAAD,CAAG,KAAf;AACI,eAAC;OAHP;;AAKF,aAAU;AAXH;AAAU;AA3CI;AAAd;AAGP;AAGA,aAAU;AACV,QAAG,CAAY,CAAC,kBAAD,SAAf,EACE,aADF;AAEK;AACH,aAAS,QAAW,OAAN,YAAM,GAAE,CAAF,kBAApB;AAAI;AACF,UAAY,cAAC,SAAK,CAAC,CAAD,CAAN,CAAU,YAAa,KAAE,YAArC,EACM,OAAU,cAAC,SAAK,CAAC,CAAD,CAAN,CAAU,aAD1B;;AAXG;AAAc;AAeA;AAAd;AAEP;AAEA,aAAU;AACV,QAAG,CAAY,CAAC,kBAAD,SAAf,EACE,aADF;AAEK;AACH,aAAS,QAAW,OAAN,YAAM,GAAE,CAAF,kBAApB;AAAI;AACY,iCAAC,SAAK,CAAC,CAAD,CAAN;AACZ,UAAY,cAAC,SAAK,CAAC,CAAD,CAAN,CAAU,YAAa,KAAE,YAArC,EACM,OAAC,mBADP;;AAVC;AAAc;AAuDL;AAAT;AAGP,aAAU,aAAQ,CAAC,UAAD;AAClB,QAAG,CAAY,CAAC,MAAD,SAAf,EACE,MAAM,mBAAc,QAAC,aAAS,CAAC,8CAAgB,mBAAC,aAAD,CAAjB,CAAT,CADvB;AAJO;AAAS;AASO;AAAhB;AAGP;AAAM;AAGN,YAAO;AACP,YAAO,eAAU,QAAC;AAClB;AACE,eAAQ,uBAAgB,CAAC,GAAG,GAAG,MAAM,KAAb;AAD1B;AAGE,WAAM,eAAN,KAAM;AACN,WAAM,eAAN,KAAM;AAJR;AARO;AAAgB;AAgBA;AAAhB;AAEoB;AAEvB;AAEA,UAAG,YAAO,QAAC,YAAM,CAAC,CAAD,CAAN;AACX;AACE,SAAC,QAAC,CAAM,CAAN;AACF,SAAC,YAAD,GAAe;AACf,SAAC,gBAAgB,CAAC,CAAD;AAHnB;AAKE,SAAE,eAAF,CAAE;AALJ;AALuB;AAezB;AAAG;AACH;AAAG;AACH;AAAE;AAEF,aAAQ;AACR,QAAgB,CAAZ,EAAE,OAAC,YAAS,KAAE,EAAE,OAAC,YAAL,CAAgB,IACrB,CAAR,EAAE,SAAC,EAAK,KAAE,EAAE,SAAC,EAAL,CADX,EAEE,aAFF;AAGA,QAAG,EAAE,SAAC,EAAM,KAAE,CAAd;AAEE,eAAS;AACT;KAHF;AAKA,SAAI;AACJ,SAAI,iBAAY,QAAC;AACjB;AACE,WAAI,iBAAY,QAAC;AACjB,uBAAiB,CAAC,GAAG,GAAG,MAAP;AACjB,uBAAiB,CAAC,GAAG,GAAG,MAAP;AACjB,eAAS,EAAE,QAAC,EAAI,KAAC,EAAE,QAAC,EAAJ;AAChB,UAAG,MAAH;AAEE,aAAI,EAAE,SAAC;AACP,aAAI,EAAE,SAAC;AACP,YAAG;AACH,cAAK,EAAE,QAAC;AACR,eAAM,MAAO,IAAM,CAAD,CAAC,GAAC,GAAD,CAAnB;AAEG,mBAAQ,EAAE,CAAC,CAAD,CAAG,KAAC,EAAE,CAAC,CAAD,CAAH;AACT,WAAJ,IAAG;;OATR;AALF;AAkBE,QAAG,eAAH,EAAG;AACH,QAAG,eAAH,EAAG;AAnBL;AAhCK;AAAgB;AA09KO;AAG9B,QAAI,mBAAa,KAAC,IAAlB,EACE,MADF;AAEA,0BAAgB,CAAC,4BAAsB,QAAC,YAAM,CAAC,KAAK,KAAN,CAAN,CAAxB;AALc;AAQD;AAG7B,QAAI,mBAAa,KAAC,IAAlB,EACE,MADF;AAEA,0BAAgB,CAAC,gCAA0B,QAAC,YAAM,CAAC,KAAK,kBAAkB,KAAxB,CAAN,CAA5B;AALa;AAQH;AAE1B,6BAAkB,CAAC,OAAO,QAAQ,+BAAhB;AAFQ;AAKA;AAG1B;AAGA,WAAM,2BAAsB,QAAC;AAC7B;AACE,UAAI,qBAAmB,CAAC,OAAO,QAAQ,SAAhB;AADzB;AAGE,UAAK,eAAL,IAAK;AAHP;AAP0B;AAiqHA;AAG1B;AAGA,WAAM,yBAAoB,QAAC;AAC3B;AACE,UAAI,mBAAmB,CAAC,OAAQ,OAAT;AADzB;AAGE,UAAK,eAAL,IAAK;AAHP;AAP0B;AA5nTD;AAAlB;AAGP,aAAQ;AACR,6BAAkB;AAJX;AAAkB;AAcJ;AAAd;AAEP,aAAU,qBAAc,CAAC,QAAS,KAAM,sBAAS,QAAC,EAA1B;AAFjB;AAAc;AAKA;AAAd;AAGN;AAGD,QAAG,SAAU,KAAE,sBAAS,WAAC,EAAzB;AAEE,eAAuB,IAAf,WAAe,CAAI,IAAI,GAAC,CAAT;AAEA,kBAAH,IAAf,WAAe,CAAI,MAAJ;AAClB,eAAO,QAAS,OAAJ,IAAI,GAAC,CAAD,kBAAhB;AAAI;AACF,aAAO,GAAP,GAAuB,OAAQ,WAAW,CAAC,CAAD;;;AAI9C,eAAuB,IAAf,WAAe,CAAI,IAAJ;AAED,mBAAH,IAAd,UAAc,CAAI,MAAJ;AACjB,eAAO,SAAS,QAAJ,IAAI,GAAC,CAAD,qBAAhB;AAAI;AACF,cAAO,GAAP,GAAuB,OAAQ,WAAW,CAAC,CAAD;;;AApBzC;AAAc;AAwBA;AAAd;AAEP,aAAU,qBAAc,CAAC,QAAS,KAAM,KAAM,sBAAS,QAAC,EAAhC;AAFjB;AAAc;AAKA;AAAd;AAEP;AACA;AAGA,aAAQ;AACR,QAAG,SAAU,KAAE,sBAAS,WAAC,EAAzB;AAEE,aAAqB,IAAf,WAAe,CAAI,OAAO,MAAM,CAAC,KAAK,IAAN,CAAjB;AACrB,UAAG,IAAI,KAAE,IAAT,EACE,SAAc,KAAqC,yBAAM,CAAC,KAA6B,IAA9B,CAD3D;;AAKA,YAAmB,IAAd,UAAc,CAAI,OAAO,MAAM,CAAC,KAAK,IAAN,CAAjB;AACnB,UAAG,GAAG,KAAE,IAAR,EACE,SAAc,KAAqC,yBAAM,CAAC,KAA6B,GAA9B,CAD3D;;AAhBK;AAAc;AApEK;AAE1B,yBAAgB,YAAO,QAAC;AAFE;AAKC;AAE3B;AACA;AAEA,QAAK;AACL,aAAS,QAAa,OAAR,CAAC,OAAO,GAAE,CAAF,kBAAtB;AAAI;AACQ,oBAAC,CAAC,KAAC,CAAD,CAAF,CAAM;;AAPS;AAUH;AAEX,aAAb,MAAa;AAFW;AAnDF,6EAAwB,cA7HjC,yBA6HiC,CAAxB;AACD,4EAAe,KLz8C3B,+BKy8C2B,CAAf;AAIrB;AACA;AACA;AACA;AACA,4BAA+B;AAIvB,kBAAG;AACD,oBAAG;AACJ,mBAAG;AACA,sBAAG;AACN,mBAAG;AACH,mBAAG;AACL,iBAAG;AACH,iBAAG;AACD,mBAAG;AAjkDd,mBAmkDc;AAKA,wEAAmC,wBAAnC;AACC;AAGb;AACA;AACA;AA6BuB;AAGvB,UAAI,sBAAgB,KAAC,IAArB,EACE,MAAM,wBAAW,QAAC,YAAM,CAAC,wFAAD,CAAN,CADpB;AAHuB;AA+DM;AAAtB;AAGP;AAEA;AACA;AAGA,UAAG,IAAI,KAAC,CAAR;AACA,eAAQ,2BAAe,CAAC,IAAI,KAAL;AACvB,UAAG,MAAH;AAEE,oBAAW,oBAAe,QAAC,YAAM,CAAC,uCAAD,CAAN;AAC3B;AACE,cAAG,CAAI,uBAAP;AACE,kBAAK;;AAGL,kBAAK,kBAAa,QAAC;AACnB,mCAAkB,CAAC,UAAU,GAAX;AAClB,eAAG,YAAC,CAAU,CAAV;;AAEN,wBAAW,GAAG,cAAc,CAAC,eAAD,CAA5B;AATF;AAWE,cAAG,GAAG,KAAE,SAAR,EACE,GAAI,eAAJ,GAAI,CADN;AAEA,mBAAU,eAAV,SAAU;AAbZ;OAHF;AAXO;AAAsB;AAgCJ;AAAlB;AAEQ;AAAN;AAEL,iBAAQ;AACR,YAAoB,CAAhB,MAAM,YAAU,KAAC,eAAD,CAAa,IAAoB,CAAhB,MAAM,YAAU,KAAC,YAAD,CAArD,EACE,aADF;AAEA,iBAAQ,MAAM,CAAC,MAAM,UAAP;AAEd,iBAAQ,4BAAsB,CAAC,MAAM,QAAC,OAAS,EAAE;;;;YAAnB,CAA6B,IAAG,MAAH;AAPtD;AAAM;AAWf,eAAQ,MAAM,CAAC,QAAQ,OAAC,YAAV;AAbP;AAAkB;AA0MhB;;;AAEP;AACA;AACA;AAJO;;;;;;AAUiB;AAG1B,2BAAe;AACf,4BAAgB;AAChB,4BAAgB;AAJU;AADA;AAVjB;AAMW,iCAAa,6BAAwB,eAzb9C,yBAyb8C,EAC1C,eAzbJ,yBAybI,CADK;AANX;AAsJc;AAAhB;AAEP;AAEA,eAAU;AACV,UAAG,CAAY,CAAC,kBAAD,SAAf,EACE,aADF;AAEK;AACH,eAAS,QAAW,OAAN,YAAM,GAAE,CAAF,kBAApB;AAAI;AACF,YAAY,cAAC,SAAK,CAAC,CAAD,CAAN,CAAU,aAAa,CAAC,MAAO,GAAR,CAAnC,EACM,OAAC,IADP;;AATG;AAAgB;AA+iBN;AAIjB;AAAG;AAAG;AACN;AAAG;AAEJ;AACE,YAAK;AACL,YAAK;AACL,mBAAY,CAAE,GAAW,CAAL,CAAF,CAAE,GAAE,CAAF,CAAK,KAAI,CAAJ,CAAX;AACd,YAAK,KAAK,CAAC,QAAD;AACV;AACE,iBAAS,CAAF,CAAE,GAAE,QAAF,CAAY,IAA0B,CAArB,OAAO,CAAC,EAAG,KAAK,CAAC,CAAD,CAAT,CAAc,GAAE,CAAF,CAA/C,EACM,CAAJ,IAAG;AACL,iBAAS,CAAF,CAAE,GAAE,QAAF,CAAY,IAA0B,CAArB,OAAO,CAAC,EAAG,KAAK,CAAC,CAAD,CAAT,CAAc,GAAE,CAAF,CAA/C,EACM,CAAJ,IAAG;AACL,cAAG,CAAE,GAAE,CAAP;AAEE,gBAAK,KAAK,CAAC,CAAD;AACV,iBAAK,CAAC,CAAD,CAAL,GAAY,KAAK,CAAC,CAAD;AACjB,iBAAK,CAAC,CAAD,CAAL,GAAY;AACZ,gBAAG,QAAS,KAAE,CAAd;AAEE,yBAAY;AACR,eAAJ,IAAG;aAEA,UAAG,QAAS,KAAE,CAAd;AAEH,yBAAY;AACR,eAAJ,IAAG;;AAIC,eAAJ,IAAG;AACC,eAAJ,IAAG;;WAlBP;SALF,QA0BQ,EAAF,CAAE,IAAG,CAAH,CA1BR;AA8BA,YAAa,CAAT,QAAS,GAAE,CAAF,CAAK,GAAK,CAAF,CAAE,GAAE,QAAF,CAAvB;AAEE,cAAM,CAAF,CAAE,GAAE,CAAF,CAAK,GAAE,QAAb,EACE,eAAS,CAAC,oBAAO,EAAG,QAAS,GAAE,CAAF,CAAK,OAAzB,CADX;AAEA,cAAK,QAAS,GAAE,CAAF;;AAId,cAAa,CAAT,QAAS,GAAE,CAAF,CAAK,GAAE,CAApB,EACE,eAAS,CAAC,oBAAO,QAAS,GAAE,CAAF,CAAK,EAAG,OAAzB,CADX;AAEA,cAAM,CAAF,CAAE,GAAE,CAAF,CAAK,GAAE,QAAb;AACE,gBAAK,QAAS,GAAE,CAAF;AAEd;;OAhDN,QAkDQ,EAAF,CAAE,IAAG,CAAH,CAlDR;AAPkB;AA6yBQ;AAAlB;AAEP;AACA;AAEA,qBAAgB;AAElB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,eAAU;AApBH;AAAkB;AAgDT;AAEhB;AAEuB;AAAd;AAEP;AACA;AAGJ;AACA;AAGI,YAAU,UAAP,MAAO,GAAI,GAAJ,CAAQ,KAAE,CAApB;AACE,kBAAQ,CAAC,CAAD;AAER,cAAA,SAAS;AACX,iBAAU;AAdH;AAAc;AAiBH;AAAX;AAEP,iBAAS;AACT,iBAAU;AAHH;AAAW;AAOpB,YAAyB,IAAlB,cAAkB;AACzB,SAAG,iBAAiB,CAAC,OAAQ,2CAAT;AACpB,SAAG,iBAAiB,CAAC,QAAQ,wCAAT;AACpB,SAAG,iBAAiB,CAAC,UAAU,wCAAX;AACpB,SAAG,iBAAiB,CAAC,QAAQ,wCAAT;AACpB,SAAG,KAAK,CAAC,MAAO,IAAR;AACR,SAAG;AAlCa;AAmrCY;AAArB;AAGP,eAAU,IAAI,cAAc,CAAC,IAAI,MAAM,CAAC,MAAD,CAAQ,SAClB,IAAI,MAAM,CAAC,KAAD,CAAO,QADlB;AAHrB;AAAqB;AAiyEjB,oBAAG;AAgVG,8BAAG;AAqKA;;;AAElB;AACA;AACA;AACA;AALkB;;;;;;AAiOe;AAAP;AAG5B;AAGA,YAAG,wBAAmB,CAAC,YAAD;AACtB,iBAAS,CAAC,KAAE,IAAF;AACV,YAAG,MAAH;AAEE,cAAG,wBAAmB,CAAC,EAAE,eA9lMsD,IA8lMzD;AACtB,mBAAQ,CAAC,KAAE,IAAF;AACT,cAAG,MAAH,EACE,2BAAa,CAAC,SAAU,eAAU,CAArB,CADf;SAJF;AAR4B;AAAO;AAiBI;AAAX;AAG5B,iBAAc,CAAL,KAAK,KAAC,IAAD,CAAM,IAAS,CAAL,KAAK,KAAC,UAAD,CAAT;AAHQ;AAAW;AAMJ;AAAP;AAG5B,iBAA6B;AAHD;AAAO;AAxPf;AAWK;;;AACvB;AADuB;;;;;;AACvB,8BAltOS,yBAktOT;AADuB;AAQN;;;AAEjB;AACA;AAHiB;;;;;;AA6OiB;AAExB,iBAAZ,KAAY;AACF;AAH0B;AAMG;AAAZ;AAE3B,YAAI,gBAAW,KAAC,IAAhB,EACE,mBAAa,gCAAW,QAAC,YAAM,CAAC,0BAAD,CAAN,CAD3B;AAEA,iBAAwB,OAAhB,gBAAW,OAAQ,0BAAH;AACxB,cAAM,QAAN,GAAgB;AAChB,cAAM,UAAN,GAAkB;AAClB,cAAM,UAAN,GAAkB;AAClB,cAAM,MAAN,GAAc;AARa;AAAY;AAWE;AAAd;AAG3B,iBAAQ;AACR,YAAY,gBAAD,QAAX,EACE,SAA6B,gBAAW,MAD1C;AAJ2B;AAAc;AAQG;AAAjB;AAG3B;AAAE;AAGF,YAAG;AACH,eAAO,CAAC,KAAE,IAAV;AAEE,eAAI,CAAC;AACL,cAAG,CAAC,QAAQ,CAAC,IAAI,SAAL,CAAZ,EACE,gBAAW,WAAW,CAAC,EAAE,IAAH,CADxB;AAEA,cAAG;;AAEL,iBAAQ,qBAAc,KAAC,IAAD;AAdK;AAAiB;AAtQzB;AAWF;;;AAEf;AAFe;;;;;AAiZY;AAG7B,YAAI,SAAI,KAAC,IAAT,EACE,YAAM,YAAO,QAAC,UADhB;AAEA,iBAAI,IAAI,CAAC,IAAD;AALqB;AAQK;AAGlC;AAGA,YAAY,SAAD,QAAX,EACE,SAAO,QAAe,OAAV,SAAI,OAAM,GAAC,CAAD,kBAAtB;AAAI;AACF,6BAAa,WAAW,CAAgB,cAAC,SAAI,KAAC,CAAD,CAAL,EAAU,IAA1B;SAF5B;AAGA,+BAAU,CAAC;;;;YAAD;AACV;AAVkC;AAzZjB;AASO;AA+Za;AAAL;AAGhC,YAAuB,IAAK,oBAA5B,EACE,QAAG,CAAC,IAAD,CADL;AAEA,iBAAQ;AALwB;AAAK;AA/Zb;AACR,8BAAK,QD56ON,6CC46OM,CAAL;AADQ;AAKD;;;AAErB;AACA;AAHqB;;;;;AA+UiB;AAGxC,qBAAO;AACP,oBAAM,sBAAS,CAAC,IAAD;AAJoE;AAA3C;AAOJ;AAAL;AAG/B;AACA;AACA;AACA;AAGA,aAAwB;AACxB,YAAG,EAAE;AACL,YAAG;AACH;AAEE,iBAAO,CAAC,KAAE,IAAV;AAEE,gBAAG,CAAC,YAAY,CAAC,UAAD,CAAQ,IAAiB,CAAN,CAAL,SAAK,KAAE,EAAF,CAAM,IAAQ,CAAJ,SAAI,KAAC,sBAAS,CAAC,CAAC,QAAF,CAAV,CAAR,CAAzC;AAEE,kBAAG,CAAY,CAAC,CAAD,SAAf,EACE,IAAG,YAAO,QAAC,UADb;AAEA,eAAC,IAAI,CAAC,CAAD;aAJP;AAMA,gBAAG,CAAC;;AAGN,cAAY,CAAD,QAAX;AAEE,qBAAO,QAAY,OAAP,CAAC,OAAM,GAAC,CAAD,kBAAnB;AAAI;AACF,gBAAE,YAAY,WAAW,CAAgB,cAAC,CAAC,KAAC,CAAD,CAAF,EAAO,IAAvB;;WAH7B;AAMA,cAAG,EAAE,YAAY,MAAK,KAAC,IAAvB;AAEE,gBAAG,SAAI,KAAC,IAAR,EACE,YAAM,YAAO,QAAC,UADhB;AAEA,qBAAI,IAAI,CAAC,EAAD;WAJV;AAnBF;AA0BE,WAAE,eAAF,CAAE;AA1BJ;AA4BA,iBAAQ;AAxCuB;AAAK;AAtVb;AAKH,iCAAM,SA73NhB,wBA63NgB,EAAwB,qBAA9B;AALG;AAUD;;;AAEpB;AACA;AAHoB;;;;;;AA6Pa;AAAL;AAG9B;AAGA,YAAuB,IAAK;AAC5B,eAAO,CAAC,KAAE,IAAV;AAEE,cAAG,CAAC,YAAY,CAAC,UAAD,CAAhB,EACE,IAAI,UAAK,QAAQ,CAAC,CAAC,QAAF,CAAW,KAAC,CAAC,CAA9B,EACE,UAAK,IAAI,CAAC,CAAC,QAAF,CAFb;AAGA,cAAG,CAAC;;AAEN,iBAAQ;AAdsB;AAAK;AAPI;AAGvC,qBAAO;AACP,qBAAO;AAJsE;AAAtC;AAtPjB;AAMF,iCAAM,SAx4NhB,wBAw4NgB,EAAmB,SAjtOrC,sBAitOqC,CAAzB;AANE;AAUI;;;AAExB;AACA;AACA;AAJwB;;;;;;AA8Qa;AAAL;AAGlC;AAGA,YAAuB,IAAK;AAC5B,eAAO,CAAC,KAAE,IAAV;AAEE,cAAS,CAAL,UAAK,KAAC,CAAC,MAAF,CAAU,IAAS,CAAJ,SAAI,KAAC,sBAAS,CAAC,CAAC,QAAF,CAAV,CAA5B,EACE,IAAG,UAAK,QAAQ,CAAC,CAAC,UAAF,CAAa,KAAC,CAAC,CAA/B,EACE,UAAK,IAAI,CAAC,CAAC,UAAF,CAFb;AAGA,cAAG,CAAC;;AAEN,iBAAQ;AAd0B;AAAK;AARI;AAG3C,qBAAO;AACP,oBAAM,sBAAS,CAAC,IAAD;AACf,qBAAO;AAL+F;AAA3D;AAtQjB;AAON,iCAAM,SAn5NhB,wBAm5NgB,EAAwB,sBAAgB,SA5tO1D,sBA4tO0D,CAA9C;AAPM;AAWD;;;AAEvB;AACA;AACA;AAJuB;;;;;AA8Ra;AAAL;AAGjC;AAGA,YAAuB,IAAK;AAC5B,eAAO,CAAC,KAAE,IAAV;AAEE,cAAG,CAAC,YAAY,CAAC,UAAD,CAAQ,IAAS,CAAJ,SAAI,KAAC,sBAAS,CAAC,CAAC,QAAF,CAAV,CAAjC,EACE,CAAC,QAAD,GAAW,SADb;AAEA,cAAG,CAAC;;AAEN,iBAAQ;AAbyB;AAAK;AARI;AAG1C,qBAAO;AACP,oBAAM,sBAAS,CAAC,IAAD;AACf,oBAAM;AALoF;AAAhD;AAtRjB;AAOL,iCAAM,SA95NhB,wBA85NgB,EAAwB,sBAAK,qBAAnC;AAPK;AAWzB;AAG6B;AAAtB;AAGP,eAAQ;AAKN,UAAY,mBAAD,QAAX;AAEE,iBAA4B,mBAAa;AACzC,eAAa,CAAN,MAAM,KAAE,IAAF,CAAO,IAAoB,CAAf,MAAM,SAAS,KAAE,SAAF,CAAxC,EACE,SAA4B,MAAM;OAJtC;AARK;AAAsB;AAqBN;AAAhB;AAGP,eAAQ,4BAAsB,CAAC,SAAD;AAC9B,UAAI,MAAM,KAAC,IAAX;AAMI,YAAG,CAAY,CAAC,mBAAD,SAAf,EACE,sBAAe,gCAAW,QAAC,YAAM,CAAC,yBAAD,CAAN,CAD7B;AAEA,iBAA0B,OAAlB,mBAAa,OAAQ,yBAAH;AAC1B,cAAM,SAAN,GAAiB;OATrB;AAJO;AAAgB;AAwBC;AAOtB;AACE,2BAAa,QAAQ,CAAC,CAAD;AADvB;AAGE,+BAAU,CAAC;;;;YAAD;AAHZ;AAPsB;AAmBK;AAG7B,UAAI,mBAAa,KAAC,IAAlB,EACE,MADF;AAME,4BAAgB,CAAC,8BAAwB,QAAC,UAA1B;AATW;AAgrDhB;;;AAEX;AACA;AAHW;;;;;AAQiB;AAG9B,oBAAM;AACN,0BAAY;AAJ4D;AAA1C;AARjB;AAKO,iCAAK,qBAAsB,cA1pRrC,wBA0pRqC,CAA3B;AALP;AAuvBD;;;AACV;AACA;AAFU;;;;;;;AACV,6BA59QmB,mCA49QnB;AACA,2BAhzSa,6BAgzSb;AAFU;AAMZ;AACA;AACA;AA4hBY,yBAAO;AAGT,iDAAO,EAAP;AAAF,sBACN,IACA,MACA,SACA,SACA,UACA,QACA,IACA,IACA,IACA,IACA,IACA,IACA,IACA,IACA,IACA,IACA,IACA,IACA,IACA,GApBM;AAn6RI,6BAwmIM,mEACF,2EACA,2EACN,sDACC,sDACO,wDACG,mDA9mIT;;AAg+Td;AAniXA,KA8wWyC;AAEvC,uCAA4B,CAAC,yCAAD;AAFW,KA9wWzC;AAoiXE,sBAAqB,IAAV,MAAU;AADvB;AAniXA,GAmkDc,yBAnkDd;ACZA,sBAES,UAFT;;;AAKW;AALX;ACAA,4BAES,UAFT;;;AAES,2BAGC,4BACF,wBACM,oCACJ,4BACL,kBACI,0BACH,oBACD,kBACG,wBACA,wBACC,0BACF,sBACC,wBACF,oBACK,gCACD,8BAEE,wCACC,0CACG,uFAEI,qFACE,yEAIV,oCACF,2BACM,sCACJ,gCACL,oBACI,6BACH,sBACD,qBACG,gCACA,+BACC,6BACF,wBACC,2BACF,uBACK,mCACD,kCAGA,8BACF,2BACM,sCACJ,kCACL,oBACI,+BACH,qBACD,sBACG,8BACA,gCACC,gCACF,yBACC,+BACF,wBACK,oCACD,qCAGA,kCACF,0BACM,uCACJ,iCACL,oBACI,8BACH,sBACD,oBACG,4BACA,0BACC,6BACF,0BACC,2BACF,wBACK,kCACD,gCAGA,mCACF,yBACM,qCACJ,kCACL,oBACI,8BACH,qBACD,qBACG,6BACA,4BACC,6BACF,wBACC,4BACF,wBACK,mCACD,iCAlGH;AAFT;ACeA,6BAIS,8EAJT;;;;AAUa;;AACD;;AAEI,oCAFJ,kCAEI;AAGG,2EAAgC,sBAAhC;AAEE;;;AAEjB;AACA;AACA;AAJiB;;AAMD;AACS,wCC0GV,kDD1GU;AACb;AARK;AAWC;AAyjDe;AAAP;AAE5B,eAAwC,YAAK,CAAC,MAAD;AAFjB;AAAO;AAUC;AAG1B,kBAAK,CAAC,OAAW,KAAZ;AAHqB;AAfL;AAAH;AAE5B,eAAwC;AAFZ;AAAG;AAUG;AAAN;AAE5B,eAA8C,yCAAC,MAAD;AAFlB;AAAM;AA9jDd;AAUT;;;AAET;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAAM;AACN;AAAO;AACP;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAxBS;;;;;;;;;;;;;AAywCsB;AAEjC,sBAAW,OAAO,CAAC,KAAD;AAFe;AAZG;AAEpC,yBAAc,OAAO,CAAC,KAAD;AAFe;AA7WJ;AAAb;AAEnB,UAAI,2CAAY,IAAG,oBAAnB;AACE,iBAAU;AAEV;AALiB;AAAa;AAhM3B;AAF2B;AAAb;AAInB;AACA;AAEA,eAAU;AAEV,UAAG,KAAM,GAAE,gBAAW,SAAC,EAAvB,EACE,SAAU,gBAAW,IAAQ,CAAC,KAAD,CAD/B;AAGA,UAAG,kBAAH;AAEE,eAAQ;AAER,YAAK;AACL,YAAG,cAAG,CAAC,KAAM,IAAP,CAAa,KAAE,CAArB,EACE,IAAK,SADP;AAEA,YAAG,cAAG,CAAC,KAAM,IAAP,CAAa,KAAE,CAArB,EACE,IAAK,SADP;AAEA,YAAG,cAAG,CAAC,KAAM,IAAP,CAAa,KAAE,CAArB,EACE,IAAK,SADP;AAEA,YAAG,cAAG,CAAC,KAAM,IAAP,CAAa,KAAE,CAArB,EACE,IAAK,SADP;AAqBK;AACL,YADK,IACL;AAES;AACL,cADK,KACL;AAAG,qBAAU;AACb,oBAFK,KAEL;AAAG,qBAAU;AACb,oBAHK,KAGL;AAAG,qBAAU;AACb,oBAJK,KAIL;AAAG,qBAAU;AAEb,oBANK,KAML;AAAG,qBAAU;AACb,oBAPK,KAOL;AAAG,qBAAU;AACb,oBARK,KAQL;AAAG,qBAAU;AACb,oBATK,KASL;AAAG,qBAAU;AACb,oBAVK,KAUL;AAAG,qBAAU;AACb,oBAXK,KAWL;AAAI,qBAAU;AACd,oBAZK,KAYL;AAAI,qBAAU;AACd,oBAbK,KAaL;AAAI,qBAAU;AACd,oBAdK,KAcL;AAAI,qBAAU;AACd,oBAfK,KAeL;AAAI,qBAAU;AACd,oBAhBK,KAgBL;AAAI,qBAAU;AACd,oBAjBK,KAiBL,SAAI,SAAU,8CAAd;SAGJ,UAvBK,IAuBL;AAES;AACL,cADK,KACL;AAAG,qBAAU;AACb,oBAFK,KAEL;AAAG,qBAAU;AACb,oBAHK,KAGL;AAAG,qBAAU;AACb,oBAJK,KAIL;AAAG,qBAAU;AAEb,oBANK,KAML;AAAG,qBAAU;AACb,oBAPK,KAOL;AAAG,qBAAU;AACb,oBARK,KAQL;AAAG,qBAAU;AACb,oBATK,KASL;AAAG,qBAAU;AACb,oBAVK,KAUL;AAAG,qBAAU;AACb,oBAXK,KAWL;AAAI,qBAAU;AACd,oBAZK,KAYL;AAAI,qBAAU;AACd,oBAbK,KAaL;AAAI,qBAAU;AACd,oBAdK,KAcL;AAAI,qBAAU;AACd,oBAfK,KAeL;AAAI,qBAAU;AACd,oBAhBK,KAgBL;AAAI,qBAAU;AACd,oBAjBK,KAiBL,SAAI,SAAU,8CAAd;SAGJ,UA7CK,IA6CL;AAES;AACL,cADK,KACL;AAAG,qBAAU;AACb,oBAFK,KAEL;AAAG,qBAAU;AACb,oBAHK,KAGL;AAAG,qBAAU;AACb,oBAJK,KAIL;AAAG,qBAAU;AAEb,oBANK,KAML;AAAG,qBAAU;AACb,oBAPK,KAOL;AAAG,qBAAU;AACb,oBARK,KAQL;AAAG,qBAAU;AACb,oBATK,KASL;AAAG,qBAAU;AACb,oBAVK,KAUL;AAAG,qBAAU;AACb,oBAXK,KAWL;AAAI,qBAAU;AACd,oBAZK,KAYL;AAAI,qBAAU;AACd,oBAbK,KAaL;AAAI,qBAAU;AACd,oBAdK,KAcL;AAAI,qBAAU;AACd,oBAfK,KAeL;AAAI,qBAAU;AACd,oBAhBK,KAgBL;AAAI,qBAAU;AACd,oBAjBK,KAiBL,SAAI,SAAU,8CAAd;SAGJ,UAnEK,IAmEL;AAES;AACL,cADK,KACL;AAAG,qBAAU;AACb,oBAFK,KAEL;AAAG,qBAAU;AACb,oBAHK,KAGL;AAAG,qBAAU;AACb,oBAJK,KAIL;AAAG,qBAAU;AAEb,oBANK,KAML;AAAG,qBAAU;AACb,oBAPK,KAOL;AAAG,qBAAU;AACb,oBARK,KAQL;AAAG,qBAAU;AACb,oBATK,KASL;AAAG,qBAAU;AACb,oBAVK,KAUL;AAAG,qBAAU;AACb,oBAXK,KAWL;AAAI,qBAAU;AACd,oBAZK,KAYL;AAAI,qBAAU;AACd,oBAbK,KAaL;AAAI,qBAAU;AACd,oBAdK,KAcL;AAAI,qBAAU;AACd,oBAfK,KAeL;AAAI,qBAAU;AACd,oBAhBK,KAgBL;AAAI,qBAAU;AACd,oBAjBK,KAiBL,SAAI,SAAU,8CAAd;SAnBJ;OAnGF;AAZmB;AAAa;AAyIF;;AA2aK;AAEnC,2BAAiB;AACjB,UAAI,kBAAc,KAAG,CAArB,EACE,YADF;AAHmC;AArZJ;AAAZ;AAEnB,eAAyB,QAAQ,cAAc,CAAC,QAAD;AAC/C,YAAM,UAAN,GAAoB;AAEpB,UAAG,+BAAW,UAAS,YAAY,KAAE,+CAArC;AAEE,cAAM,cAAC,OAAW,QAAZ;AACN,cAAM,cAAC,QAAY,MAAO,GAAE,MAAtB;AACN,cAAM,cAAC,eAAmB,cAApB;;AAIN,cAAM,MAAM,YAAY,CAAC,QAAS,OAAV;AACxB,cAAM,MAAM,YAAY,CAAC,cAAe,KAAhB;AACxB,YAAG,4BAAuB,KAAG,EAA7B;AACE,gBAAM,cAAC,QAAY,4BAA6B,GAAJ,GAAF,GAAQ,MAA5C;AAEN,kBAAG,+BAAW,sBAAsB,KAAG,EAAvC,EACE,MAAM,cAAC,QAAY,+BAAW,sBAA4B,GAAJ,GAAF,GAAQ,MAAtD,CADR;;AAIJ,YAAM,GAAN,GAAa;AACb,YAAM,iBAAiB,CAAC,QAAU,4CAAX;AACvB,YAAM,iBAAiB,CAAC,UAAY,wCAAb;AAEvB,UAAG,aAAH;AAGF;AAEI,oBAAW,KAAX;OALF;AA1BmB;AAAY;AAueM;AAAlB;AAEnB;AAAO;AACP;AAEA,UAAG,UAAH;AAEE,iBAAU,KAAK,QAAS,GAAE,SAAF;AACxB,iBAAU,KAAK,QAAS,GAAE,SAAF;AAExB,aAAqB;AAErB,UAAE,MAAM,YAAY,CAAC,YAAY,EAAb;AACpB,UAAE,MAAM,YAAY,CAAC,WAAW,UAAZ;AACpB,UAAE,MAAM,YAAY,CAAC,OAAQ,qBAAQ,CAAC,UAAK,CAAC,UAAM,GAAE,MAAT,CAAN,CAAuB,GAAC,IAAzC;AACpB,UAAE,MAAM,YAAY,CAAC,MAAO,qBAAQ,CAAC,UAAK,CAAC,UAAM,GAAE,MAAT,CAAN,CAAuB,GAAC,IAAxC;AAEpB,aAAqB;AACrB,UAAE,MAAM,YAAY,CAAC,WAAY,UAAb;AACpB,UAAE,MAAM,YAAY,CAAC,MAAO,GAAR;AACpB,UAAE,MAAM,YAAY,CAAC,QAAS,GAAV;OAftB;AAkBA,eAAU;AAvBS;AAAkB;AA0BF;AAAhB;AAEnB,mBAAS;AACT,cAAQ,KAAK,oBAAoB,CAAC,YAAc,6CAAf;AACjC,cAAQ,KAAK,oBAAoB,CAAC,UAAY,2CAAb;AAEjC,eAAU;AANS;AAAgB;AASD;AAAf;AAEnB;AAEA,kBAAQ,UAAK,CAAC,KAAK,QAAN;AACb,kBAAQ,UAAK,CAAC,KAAK,QAAN;AAEb,UAAK,SAAI,sBAAsB;AAE/B,mBAAS,UAAK,CAAC,cAAG,CAAC,CAAC,KAAF,CAAJ;AACd,mBAAS,UAAK,CAAC,cAAG,CAAC,CAAC,IAAF,CAAJ;AAEd,mBAAS;AAET,UAAG,CAAI,gBAAP;AAEE,2BAAa;AACb,gBAAQ,KAAK,iBAAiB,CAAC,YAAc,6CAAf;AAC9B,gBAAQ,KAAK,iBAAiB,CAAC,UAAY,2CAAb;OAJhC;AAOA,eAAU;AArBS;AAAe;AAxFE;AAAjB;AAEnB;AACA;AAEA,2BAAgB,CAAhB;AAEA,WAAM,KAAK,OAAc,cAAC,IAAD;AAEzB,UAAG,EAAG,KAAE,kBAAa,CAAC,CAAD,CAArB;AACE,6BAAgB,CAAhB;AACG,gBAAG,EAAG,KAAE,kBAAa,CAAC,CAAD,CAArB;AACH,6BAAgB,CAAhB;AACG,gBAAG,EAAG,KAAE,kBAAa,CAAC,CAAD,CAArB;AACH,6BAAgB,CAAhB;AACG,gBAAG,EAAG,KAAE,kBAAa,CAAC,CAAD,CAArB;AACH,6BAAgB,CAAhB;AACG,gBAAG,EAAG,KAAE,kBAAa,CAAC,CAAD,CAArB;AACH,6BAAgB,CAAhB;AACG,gBAAG,EAAG,KAAE,kBAAa,CAAC,EAAD,CAArB;AACH,6BAAgB,CAAhB;AACG,gBAAG,EAAG,KAAE,kBAAa,CAAC,EAAD,CAArB;AACH,6BAAgB,CAAhB;AACG,gBAAG,EAAG,KAAE,kBAAa,CAAC,EAAD,CAArB;AACH,6BAAgB,EAAhB;AACG,gBAAG,EAAG,KAAE,kBAAa,CAAC,EAAD,CAArB;AACH,6BAAgB,EAAhB;AACG,gBAAG,EAAG,KAAE,kBAAa,CAAC,EAAD,CAArB;AACH,6BAAgB,EAAhB;AACG,gBAAG,EAAG,KAAE,kBAAa,CAAC,EAAD,CAArB;AACH,6BAAgB,CAAhB;AACG,gBAAG,EAAG,KAAE,kBAAa,CAAC,EAAD,CAArB,EACH,qBAAgB,CAAhB,CADG;AAGL,UAAiB,CAAb,kBAAa,KAAE,CAAF,CAAU,IAAyB,CAApB,mBAAa,SAAC,EAAM,GAAE,CAAF,CAApD;AAEE,iBAAS,QAAyB,OAApB,mBAAa,SAAC,EAAM,GAAE,CAAF,kBAAlC;AAAI;AAEF,cAAG,EAAG,KAAE,mBAAa,WAAC,CAAD,CAAG,SAAxB;AAEE,iCAAgB,GAAI,GAAE,CAAtB;AACA;WAHF;;OAJJ;AAaA,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,IAAD,CADf;AAGA,eAAU;AAlDS;AAAiB;AA6HJ;AAAb;AAEnB;AAEA,UAAK,eAAU,CAAC,KAAK,KCn3BuC,IDm3B7C;AACf,UAAG,CAAI,mBAAQ,CAAC,CAAD,CAAf,EACE,aADF;AAEA,UAAG,CAAE,KAAE,EAAP,EACE,qBAAgB,CAAhB,CADF;AAEA,eAAU;AATS;AAAa;AAbM;AAEtC,qCAA2B;AAC3B,sCAA4B;AAC5B,oCAA0B;AAC1B,qCAA2B;AALW;AAQA;;AAjvBF;AAEpC;AACA,sBAAY;AACZ,sBAAY;AACZ,2BAAiB;AACjB,yBAAe;AACf,yBAAe,uBAAW,QAAC;AAC3B,sBAAW,qBAAC,CAAqB,IAArB;AACZ,sBAAW,IAAI,CAAC,8CAAD;AACf,sBAAW,IAAI,CAAC,4CAAD;AACf,sBAAW,IAAI,CAAC,kDAAD;AACf,sBAAW,IAAI,CAAC,8CAAD;AACf,sBAAW,IAAI,CAAC,QAAD;AACf,sBAAW,IAAI,CAAC,yCAAD;AACf,sBAAW,IAAI,CAAC,6CAAD;AACf,sBAAW,IAAI,CAAC,0CAAD;AACf,sBAAW,IAAI,CAAC,yCAAD;AACf,sBAAW,IAAI,CAAC,4CAAD;AACf,sBAAW,IAAI,CAAC,4CAAD;AACf,sBAAW,IAAI,CAAC,6CAAD;AACf,sBAAW,IAAI,CAAC,0CAAD;AACf,sBAAW,IAAI,CAAC,+CAAD;AACf,sBAAW,IAAI,CAAC,8CAAD;AACf,sBAAW,IAAI,CAAC,2CAAD;AACf,sBAAW,IAAI,CAAC,4CAAD;AAEf,yBAAe;AAEf,4BAAkB,yBAAoB,QAAC,YAAM,CAAC,KAAM,wBAAP,CAAN;AACvC,yBAAc,UAAd,GAA2B;AA9BS;AAiCR;AAEhB,eAAZ,KAAY;AACG,eAAf,KAAe;AACf;AAJ4B;AAukBH;AAEzB,qCAAW,WAAW,CAAC,+BAAW,UAAZ;AAEtB,cAAQ,KAAK,YAAY,CAAC,aAAD;AACzB,cAAQ,KAAK,YAAY,CAAC,SAAD;AAEzB,mBAAS;AACT,yBAAa;AAEb,UAAY,aAAD,QAAX,EACE,aAAO,CAAC,IAAD,CADT;AAGA,UAAY,gBAAD,QAAX,EACE,gBAAW,CAAC,kBAAD,CADb;AAbyB;AAtXD;AAExB;AAAO;AAAK;AAAM;AAAS;AAAY;AAAK;AAAM;AAAI;AACtD;AAAK;AAAK;AACV;AAAW;AAAU;AAAU;AAAa;AAAY;AAAW;AACnE;AACA;AAGA,UAAgB,CAAZ,+BAAY,KAAE,IAAF,CAAO,IAAyB,CAArB,+BAAW,UAAU,KAAE,IAAF,CAAhD,EACE,MADF;AAIA,UAAG,CAAI,+BAAW,OAAO,CAAC,eAAD,CAAzB,EACE,mBAAc,CAAC,WAAW,eAAZ,CADhB;AAGA,qCAAW,SAAS,CAAC,+BAAW,UAAZ;AAEpB,sBAAU,QAAQ,cAAc,CAAC,MAAD;AAChC,cAAQ,KAAK,YAAY,CAAC,aAAD;AACzB,mBAAM,cAAC,WAAe,GAAhB;AACN,mBAAM,iBAAiB,CAAC,UAAY,wCAAb;AAEvB,iBAAY;AACZ,sBAAY,kBAAY,CAAC,aAAD;AAEnB;AACH,UADG,IACH;AAAiB,oBAAa;AAAW,mBAAY;AAAU,mBAAY,kBAAa,CAAC,CAAD;OACxF,UAFG,IAEH;AAAe,oBAAa;AAAU,mBAAY;AAAO,mBAAY,kBAAa,CAAC,CAAD;OAClF,UAHG,IAGH;AAAqB,oBAAa;AAAQ,mBAAY;AAAQ,mBAAY,kBAAa,CAAC,CAAD;OACvF,UAJG,IAIH;AAAsB,oBAAa;AAAQ,mBAAY;AAAQ,mBAAY,kBAAa,CAAC,CAAD;OACxF,UALG,IAKH;AAAgB,oBAAa;AAAI,mBAAY;AAAI,mBAAY,kBAAa,CAAC,CAAD;OAA1E;AAGF,UAAG,WAAO,KAAG,EAAb,EACE,WAAY,WADd;AAGA,UAAG,+BAAW,UAAS,YAAY,KAAE,+CAArC;AAEE,oBAAQ,QAAQ,cAAc,CAAC,KAAD;AAC9B,iBAAI,cAAC,QAAY,cAAb;AACJ,iBAAI,cAAC,OAAW,UAAZ;AAGW,iBAAK,MAAM,YAAY,CAAC,UAAW,SAAZ;AAGtC,aAAqB,QAAQ,cAAc,CAAC,KAAD;AAE3C,UAAE,MAAM,YAAY,CAAC,MAAO,GAAR;AACpB,UAAE,MAAM,YAAY,CAAC,OAAQ,GAAT;AACpB,UAAE,MAAM,YAAY,CAAC,QAAS,GAAV;AACpB,UAAE,MAAM,YAAY,CAAC,SAAU,GAAX;AACpB,UAAE,MAAM,YAAY,CAAC,UAAW,SAAZ;AACpB,UAAE,MAAM,YAAY,CAAC,UAAW,OAAZ;AACpB,UAAE,cAAC,QAAY,iBAAb;AACF,gBAAQ,KAAK,YAAY,CAAC,EAAD;AACzB,UAAE,YAAY,CAAC,SAAD;AAEd,eAAQ;AAER,eAAQ,QAAQ,cAAc,CAAC,KAAD;AAC9B,YAAI,cAAC,QAAY,gBAAiB,GAAE,4BAAhC;AACJ,YAAI,YAAY,CAAC,IAAD;AAEhB,eAAQ;AACR,eAAQ;AAER,eAAQ,QAAQ,cAAc,CAAC,KAAD;AAC9B,YAAI,cAAC,QAAY,cAAb;AACJ,YAAI,YAAY,CAAC,IAAD;AAEhB,eAAQ;AAER,eAAQ,QAAQ,cAAc,CAAC,IAAD;AAC9B,YAAI,cAAC,QAAY,aAAb;AACJ,YAAI,UAAJ,GAAkB;AAElB,YAAI,YAAY,CAAC,IAAD;AAEhB,YAAI,wBAAS,IAAG,aAAhB;AAEE,iBAAQ,QAAQ,cAAc,CAAC,QAAD;AAC9B,cAAI,cAAC,OAAW,QAAZ;AACJ,cAAI,cAAC,QAAY,sBAAb;AACJ,cAAI,cAAC,eAAmB,cAApB;AACJ,cAAI,cAAC,aAAiB,OAAlB;AACJ,cAAI,cAAC,KAAS,kBAAa,CAAC,CAAD,CAAvB;AACJ,cAAI,iBAAiB,CAAC,QAAU,4CAAX;AAErB,cAAI,YAAY,CAAC,IAAD;AAChB,iBAAQ;AAER,iBAAQ,QAAQ,cAAc,CAAC,MAAD;AAC9B,cAAI,cAAC,cAAkB,MAAnB;AACJ,cAAI,cAAC,KAAS,kBAAa,CAAC,CAAD,CAAvB;AACJ,cAAI,UAAJ,GAAkB;AAElB,cAAI,YAAY,CAAC,IAAD;SAlBlB;AAqBA,eAAQ,QAAQ,cAAc,CAAC,KAAD;AAC9B,YAAI,cAAC,QAAY,YAAb;AACJ,YAAI,YAAY,CAAC,IAAD;AAEhB,eAAQ;AAER,YAAG,gBAAY,KAAG,yBAAlB;AAEE,iBAAuB,QAAQ,cAAc,CAAC,MAAD;AAC7C,cAAI,UAAJ,GAAkB,yCAA2G,GAA/D,QAAF,GAAa,uCAAF,GAA4C,SAAF,GAAc,MAAF;AAC7H,cAAI,MAAM,YAAY,CAAC,UAAW,cAAZ;AACtB,cAAI,MAAM,YAAY,CAAC,QAAS,MAAV;AACtB,cAAI,MAAM,YAAY,CAAC,gBAAiB,MAAlB;AACtB,cAAI,YAAY,CAAC,IAAD;SAPlB;AAUA,eAAQ,QAAQ,cAAc,CAAC,IAAD;AAC9B,YAAI,UAAJ,GAAkB;AAElB,YAAI,YAAY,CAAC,IAAD;AAEhB,+BAAkB,CAAgB,KAAO;;;;YAAvB;AAElB,eAAQ,QAAQ,cAAc,CAAC,KAAD;AAC9B,YAAI,cAAC,QAAY,cAAb;AACJ,YAAI,YAAY,CAAC,IAAD;AAEhB,eAAQ;AAER,cAAsB;AAEtB,oBAAQ;;AAIR,kBAAW;AACX,oBAAa;AACb,qBAAc;AACd,sBAAe;AAEf,oBAAQ,QAAQ,cAAc,CAAC,KAAD;AAC9B,gBAAQ,KAAK,YAAY,CAAC,SAAD;AAEzB,eAAuB;AAEvB,YAAG,4BAAuB,KAAG,EAA7B;AACG,cAAI,cAAC,QAAY,4BAAb;;AAGL,cAAI,MAAM,YAAY,CAAC,mBAAoB,OAArB;AACtB,cAAI,MAAM,YAAY,CAAC,SAAU,YAAa,GAAE,WAA1B;AACtB,cAAI,MAAM,YAAY,CAAC,cAAe,OAAhB;AACtB,cAAI,MAAM,YAAY,CAAC,YAAa,MAAd;;AAGxB,YAAI,MAAM,YAAY,CAAC,SAAU,SAAX;AACtB,YAAI,MAAM,YAAY,CAAC,WAAY,OAAb;AACtB,YAAI,MAAM,YAAY,CAAC,YAAa,OAAd;AACtB,YAAI,MAAM,YAAY,CAAC,aAAc,OAAf;AACtB,YAAI,MAAM,YAAY,CAAC,YAAa,MAAd;AACtB,YAAI,MAAM,YAAY,CAAC,aAAc,MAAf;AACtB,YAAI,MAAM,YAAY,CAAC,MAAO,KAAR;AACtB,YAAI,MAAM,YAAY,CAAC,OAAQ,KAAT;AACtB,YAAI,MAAM,YAAY,CAAC,YAAa,uBAAd;AACtB,YAAI,MAAM,YAAY,CAAC,UAAW,SAAZ;AACtB,YAAI,MAAM,YAAY,CAAC,aAAa,kBAAd;AAEtB,iBAAyB,QAAQ,cAAc,CAAC,KAAD;AAC/C,uBAAW;AACX,cAAM,UAAN,GAAoB;AACpB,cAAM,GAAN,GAAa;AACb,cAAM,MAAM,YAAY,CAAC,QAAS,kCAAW,CAAC,+BAAW,gBAAZ,CAArB;AACxB,cAAM,MAAM,YAAY,CAAC,WAAY,OAAb;AACxB,cAAM,MAAM,YAAY,CAAC,MAAO,GAAR;AACxB,cAAM,MAAM,YAAY,CAAC,QAAS,GAAV;AACxB,cAAM,MAAM,YAAY,CAAC,UAAW,OAAQ,GAAE,IAAtB;AACxB,cAAM,MAAM,YAAY,CAAC,SAAU,SAAU,GAAE,IAAvB;AACxB,cAAM,MAAM,YAAY,CAAC,cAAe,SAAU,GAAE,IAA5B;AACxB,cAAM,iBAAiB,CAAC,QAAU,4CAAX;AACvB,YAAI,YAAY,CAAC,MAAD;AAEhB,gBAAwB,QAAQ,cAAc,CAAC,KAAD;AAC9C,aAAK,UAAL,GAAmB;AAEnB,YAAG,2BAAuB,KAAG,EAA7B;AAEE,eAAK,cAAC,QAAY,2BAAb;;AAIL,eAAK,MAAM,YAAY,CAAC,mBAAoB,kCAAW,CAAC,+BAAW,YAAZ,CAAhC;AACvB,eAAK,MAAM,YAAY,CAAC,QAAS,kCAAW,CAAC,+BAAW,gBAAZ,CAArB;;AAGzB,aAAK,MAAM,YAAY,CAAC,SAAU,MAAX;AACvB,aAAK,MAAM,YAAY,CAAC,eAAgB,OAAQ,GAAE,IAA3B;AACvB,aAAK,MAAM,YAAY,CAAC,SAAU,SAAU,GAAE,IAAvB;AACvB,aAAK,MAAM,YAAY,CAAC,iBAAiB,QAAlB;AACvB,aAAK,MAAM,YAAY,CAAC,cAAe,SAAU,GAAE,IAA5B;AACvB,aAAK,MAAM,YAAY,CAAC,gBAAiB,YAAa,GAAE,WAAjC;AAEvB,aAAK,MAAM,YAAY,CAAC,mBAAmB,MAApB;AACvB,aAAK,MAAM,YAAY,CAAC,sBAAsB,MAAvB;AACvB,aAAK,MAAM,YAAY,CAAC,kBAAkB,MAAnB;AACvB,aAAK,MAAM,YAAY,CAAC,cAAc,MAAf;AACvB,aAAK,MAAM,YAAY,CAAC,iBAAiB,MAAlB;AAEvB,aAAK,iBAAiB,CAAC,YAAa,0CAAd;AAEtB,YAAI,YAAY,CAAC,KAAD;AAEhB,cAAsB,QAAQ,cAAc,CAAC,KAAD;AAE5C,WAAG,MAAM,YAAY,CAAC,UAAW,OAAQ,GAAE,IAAtB;AACrB,WAAG,MAAM,YAAY,CAAC,SAAU,MAAX;AACrB,WAAG,MAAM,YAAY,CAAC,aAAc,MAAf;AACrB,WAAG,MAAM,YAAY,CAAC,gBAAiB,YAAa,GAAE,WAAjC;AAErB,YAAG,gBAAY,KAAG,yBAAlB;AAEE,iBAAuB,QAAQ,cAAc,CAAC,KAAD;AAC7C,cAAI,UAAJ,GAAkB,yCAA2G,GAA/D,QAAF,GAAa,uCAAF,GAA4C,SAAF,GAAc,MAAF;AAC7H,cAAI,MAAM,YAAY,CAAC,UAAW,cAAZ;AACtB,cAAI,MAAM,YAAY,CAAC,QAAS,MAAV;AACtB,cAAI,MAAM,YAAY,CAAC,gBAAiB,MAAlB;AACtB,aAAG,YAAY,CAAC,IAAD;SAPjB;AAUA,wBAAY,0BAAa,CAAC,cAAU,sBAAY,OAAQ,cAAC,4CAAD,CAA/B;AAEzB,qBAA6B,QAAQ,cAAc,CAAC,KAAD;AACnD,kBAAU,UAAV,GAAwB;AACxB,kBAAU,MAAM,YAAY,CAAC,SAAS,MAAV;AAC5B,kBAAU,MAAM,YAAY,CAAC,aAAa,MAAd;AAC5B,kBAAU,MAAM,YAAY,CAAC,cAAc,UAAf;AAE5B,kBAA0B,QAAQ,cAAc,CAAC,OAAD;AAChD,eAAO,UAAP,GAAqB;AAErB,YAAG,2BAAuB,KAAG,EAA7B;AAEE,iBAAO,cAAC,QAAY,6BAAb;SAFT;AAKA,kBAAU,YAAY,CAAC,OAAD;AAEtB,WAAG,YAAY,CAAC,OAAD;AAEf,+BAAkB,CAAC,IAAK;;;;YAAN;AAElB,YAAI,YAAY,CAAC,GAAD;AAEhB,cAAsB,QAAQ,cAAc,CAAC,KAAD;AAC5C,WAAG,MAAM,YAAY,CAAC,mBAAoB,UAArB;AACrB,WAAG,MAAM,YAAY,CAAC,UAAW,OAAQ,GAAE,IAAtB;AACrB,WAAG,MAAM,YAAY,CAAC,aAAc,SAAU,GAAE,IAA3B;AACrB,WAAG,MAAM,YAAY,CAAC,SAAU,MAAX;AACrB,WAAG,MAAM,YAAY,CAAC,cAAe,SAAU,GAAE,IAA5B;AACrB,WAAG,MAAM,YAAY,CAAC,aAAc,OAAf;AACrB,YAAI,YAAY,CAAC,GAAD;;AAGlB,UAAa,UAAT,cAAW,EAAF,CAAM,IAAyB,CAApB,mBAAa,SAAC,EAAM,KAAE,CAAF,CAA5C;AACE,WAAG,YAAY,CAAC,iBAAY,CAAC,kBAAa,CAAC,CAAD,EAAK;;;;aAhoC+B,EAgoClD,CAAb;;AAGf,YAAG,qBAAM,IAAG,aAAZ,EACE,GAAG,YAAY,CAAC,iBAAY,CAAC,kBAAa,CAAC,CAAD,EAAK;;;;aApoC6B,EAooChD,CAAb,CADjB;AAGA,YAAG,oBAAK,IAAG,aAAX,EACE,GAAG,YAAY,CAAC,iBAAY,CAAC,kBAAa,CAAC,CAAD,EAAK;;;;aAvoC6B,EAuoChD,CAAb,CADjB;AAGA,YAAG,oBAAK,IAAG,aAAX,EACE,GAAG,YAAY,CAAC,iBAAY,CAAC,kBAAa,CAAC,CAAD,EAAK;;;;aA1oC6B,EA0oChD,CAAb,CADjB;AAGA,YAAG,wBAAS,IAAG,aAAf,EACE,GAAG,YAAY,CAAC,iBAAY,CAAC,kBAAa,CAAC,CAAD,EAAK;;;;aA7oC6B,EA6oChD,CAAb,CADjB;AAGA,YAAG,uBAAQ,IAAG,aAAd,EACE,GAAG,YAAY,CAAC,iBAAY,CAAC,kBAAa,CAAC,CAAD,EAAK;;;;aAhpC6B,EAgpChD,CAAb,CADjB;AAGA,YAAG,uBAAQ,IAAG,aAAd,EACE,GAAG,YAAY,CAAC,iBAAY,CAAC,kBAAa,CAAC,EAAD,EAAM;;;;aAnpC4B,EAmpChD,CAAb,CADjB;AAGA,YAAG,wBAAS,IAAG,aAAf,EACE,GAAG,YAAY,CAAC,iBAAY,CAAC,kBAAa,CAAC,EAAD,EAAM;;;;aAtpC4B,EAspChD,CAAb,CADjB;AAGA,YAAG,qBAAM,IAAG,aAAZ,EACE,GAAG,YAAY,CAAC,iBAAY,CAAC,kBAAa,CAAC,EAAD,EAAM;;;;aAzpC4B,EAypChD,CAAb,CADjB;AAGA,YAAG,0BAAW,IAAG,aAAjB,EACE,GAAG,YAAY,CAAC,iBAAY,CAAC,kBAAa,CAAC,EAAD,EAAM;;;;aA5pC4B,EA4pChD,CAAb,CADjB;AAGA,YAAG,yBAAU,IAAG,aAAhB,EACE,GAAG,YAAY,CAAC,iBAAY,CAAC,kBAAa,CAAC,EAAD,EAAM;;;;aA/pC4B,EA+pChD,CAAb,CADjB;AAGA,YAAG,sBAAO,IAAG,aAAb,EACE,GAAG,YAAY,CAAC,iBAAY,CAAC,kBAAa,CAAC,EAAD,EAAM;;;;aAlqC4B,EAkqChD,CAAb,CADjB;AAGA,YAAG,uBAAQ,IAAG,aAAd,EACE,GAAG,YAAY,CAAC,iBAAY,CAAC,kBAAa,CAAC,EAAD,EAAM;;;;aArqC4B,EAqqChD,CAAb,CADjB;;AAIF,eAAS,QAA0B,OAArB,mBAAc,SAAC,EAAM,GAAE,CAAF,kBAAnC;AAAI;AAEF,WAAG,YAAY,CAAC,iBAAY,CAAC,mBAAc,WAAC,CAAD,CAAG,UAAU;;;;aAAU,mBAAc,WAAC,CAAD,CAAG,kBAAvD,CAAb;;AAGjB,WAAqB;AACrB,QAAE,MAAM,YAAY,CAAC,mBAAoB,OAArB;AACpB,QAAE,MAAM,YAAY,CAAC,UAAW,mCAAY,CAAC,aAAD,CAAxB;AACpB,QAAE,MAAM,YAAY,CAAC,MAAO,GAAR;AACpB,QAAE,MAAM,YAAY,CAAC,OAAQ,GAAT;AACpB,QAAE,MAAM,YAAY,CAAC,QAAS,GAAV;AACpB,QAAE,MAAM,YAAY,CAAC,SAAU,GAAX;AACpB,QAAE,MAAM,YAAY,CAAC,UAAW,+BAAW,eAAvB;AAEpB,QAAE,MAAM,YAAY,CAAC,qBAAsB,MAAvB;AACpB,QAAE,MAAM,YAAY,CAAC,kBAAmB,MAApB;AACpB,QAAE,MAAM,YAAY,CAAC,oBAAqB,MAAtB;AACpB,QAAE,MAAM,YAAY,CAAC,iBAAkB,MAAnB;AACpB,QAAE,MAAM,YAAY,CAAC,cAAe,MAAhB;AACpB,QAAE,MAAM,YAAY,CAAC,WAAW,OAAZ;AAnUI;AA5DK;AAAV;AAEnB,eAAU;AACV;AAHmB;AAAU;AAMA;AAAV;AAEnB,eAAU;AACV,sBAAY;AACZ,sBAAY;AACZ,yBAAe;AACf,yBAAe;AACf,2BAAgB,CAAhB;AACA;AARmB;AAAU;AA2YA;;AAAV;AAGnB,eAAqB,IAAX,OAAW,CAEnB;AAEE,0BAAU,CAAC,IAAK,QAAS,oBAAS;AAE9B,kBAAQ,CAAC,OAAD;AAFsB,SAAxB;AAFZ,OAFmB;AAHF;AAAU;AAfD;;AAAT;AAEnB,eAAqB,IAAX,OAAW,CAEnB;AAEE,0BAAU,CAAC,eAAS,kBAAY,2BAAS;AAErC,kBAAQ,CAAC,OAAD;AAF6B,SAA/B;AAFZ,OAFmB;AAFF;AAAS;AA9tCjB;;;AAqDY;AACL,+BAhFJ,6BAgFI,uBAAsD,WAAtD;AACM,qCAjEJ,mCAiEI;AACH,kCH+QV,iCG/QU;AACA,kCAtFV,0BAsFU;AACF;AACD;AACe,8CCgChB,kDDhCgB;AACA,8CC+BhB,kDD/BgB;AACD,6CC8Bf,kDD9Be;AACE,+CC6BjB,kDD7BiB;AAClB;AACQ,qCCoFZ,6CDpFY;AACN,+BCmFN,6CDnFM;AAlEP;AAqEG;;;;AAEE;;;AAEd;AACA;AACA;AACA;AAEA;AAPc;;;;;AAmsDiB;;AAAT;AAExB,eAAqB,IAAX,OAAW,CAEnB;AAEE,0BAAU,CAAC,eAAS,kBAAY,2BAAS;AAErC,8BAAc;AACd,kBAAQ,CAAC,OAAD;AAH6B,SAA/B;AAFZ,OAFmB;AAFG;AAAS;AA5ES;AAAlB;AAExB,eAAU;AACV,UAAG,KAAK,IAAK,KAAE,OAAf;AAEE,aAAK,eAAe;AACpB,aAAK;AACL,6BAAgB,CAAhB;AACA,iBAAU;OALZ;AAQA,UAAG,KAAK,IAAK,KAAE,QAAf;AAEE,aAAK,eAAe;AACpB,aAAK;AACL,6BAAgB,CAAhB;AACA,iBAAU;OALZ;AAXwB;AAAkB;AAoBC;AAAnB;AAExB,eAAU;AACV,WAAK;AAHmB;AAAmB;AAOA;AAE3C;AAAM;AAEN;AAEA,UAAG,oBAAgB,KAAE,IAArB,EACE,uBAAoB,6CADtB;AAGA,UAAG,qBAAiB,KAAE,IAAtB,EACE,wBAAqB,8CADvB;AAGA,cAAS,QAAQ,cAAc,CAAC,KAAD;AAE/B,gBAAW,QAAQ,cAAc,CAAC,OAAD;AAEjC,aAAO,iBAAiB,CAAC,UAAW,oBAAZ;AACxB,aAAO,iBAAiB,CAAC,WAAY,qBAAb;AAExB,WAAK,YAAY,CAAC,OAAD;AAEjB,cAAQ,YAAY,CAAC,KAAD;AAEpB,2BAAgC;AAEhC,wBAAa,cAAC,OAAW,sCAAe,CAAC,eAAD,CAA3B;AAEE,WAAM,MAAM,YAAY,CAAC,aAAa,MAAd;AAEvC,wBAAa,MAAM,YAAY,CAAC,UAAU,KAAX;AAE/B,+BAAoB,CAAC,gBAAD;AAEpB,wBAAa,MAAM,YAAY,CAAC,QAAQ,mBAAT;AAE/B,UAAG,aAAH;AAGF;AAEI,oBAAW,KAAX;OALF;AAnC2C;AAtCC;AAApB;AAExB,eAAU;AACV,UAAY,kBAAD,QAAX;AAEE,2BAAmC,kBAAc;AACjD,iBAAU;OAHZ;AAHwB;AAAoB;AAkFC;AAEzB,wBAAc,MAAlC,GAA4C;AAFC;AA9rD7B;;;AAEd,gCN4yEY,+BM5yEZ;AACA;AACA;AACA;AAamB;AACD,iCCiBV,2CDjBU;AAnBJ;AAsBG;;;;AAGP;;;AAEV;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAXU;;;;;;;;AAm3CmB;AAE/B,mBAAQ,OAAO,CAAC,KAAD;AAFgB;AAKG;AAElC,yBAAe;AAFmB;AAkEA;AAElC,UAAY,YAAD,QAAX,EACE,YAAM,CAAC,IAAD,CADR;AAFkC;AAML;AAE7B,UAAY,YAAD,QAAX,EACE,YAAM,CAAC,IAAD,CADR;AAGA;AAL6B;AAtHI;AAAb;AAEpB,UAAI,2CAAY,IAAG,oBAAnB;AACE,iBAAU;AAEV;AALkB;AAAa;AAQI;AAErC;AACA,sBAAY;AACZ,sBAAY,kCAAW,QAAC;AACxB,wBAAc;AACd,mBAAQ,QAAC,CAAQ,iBAAR;AACT,qBAAW;AACX,qBAAW;AAR0B;AAYR;AAEpB,eAAT,KAAS;AACT;AAH6B;AA+BJ;AAEzB;AAAG;AAAI;AACP;AAEA,sBAAU,QAAQ,cAAc,CAAC,MAAD;AAEhC,WAAqB;AACrB,QAAE,MAAM,YAAY,CAAC,mBAAoB,OAArB;AACpB,QAAE,MAAM,YAAY,CAAC,UAAW,mCAAY,CAAC,aAAD,CAAxB;AACpB,QAAE,MAAM,YAAY,CAAC,MAAO,GAAR;AACpB,QAAE,MAAM,YAAY,CAAC,OAAQ,GAAT;AACpB,QAAE,MAAM,YAAY,CAAC,QAAS,GAAV;AACpB,QAAE,MAAM,YAAY,CAAC,SAAU,GAAX;AAEpB,QAAE,MAAM,YAAY,CAAC,UAAW,SAAZ;AAEpB,QAAE,MAAM,YAAY,CAAC,qBAAsB,MAAvB;AACpB,QAAE,MAAM,YAAY,CAAC,kBAAmB,MAApB;AACpB,QAAE,MAAM,YAAY,CAAC,oBAAqB,MAAtB;AACpB,QAAE,MAAM,YAAY,CAAC,iBAAkB,MAAnB;AACpB,QAAE,MAAM,YAAY,CAAC,cAAe,MAAhB;AACpB,QAAE,MAAM,YAAY,CAAC,WAAW,OAAZ;AAEpB,cAAQ,KAAK,YAAY,CAAC,aAAD;AACzB,mBAAM,cAAC,WAAe,GAAhB;AAEN,WAAM,QAAQ,cAAc,CAAC,KAAD;AAC5B,WAAqB;AACrB,mBAAM,YAAY,CAAC,EAAD;AAClB,QAAE,MAAM,YAAY,CAAC,WAAW,UAAZ;AACpB,QAAE,MAAM,YAAY,CAAC,QAAQ,MAAT;AACpB,QAAE,MAAM,YAAY,CAAC,SAAS,MAAV;AAEpB,WAAM,QAAQ,cAAc,CAAC,KAAD;AAC5B,YAAsB;AACtB,QAAE,YAAY,CAAC,GAAD;AACd,UAAG,gBAAY,KAAG,EAAlB;AACE,WAAG,cAAC,MAAU,gBAAX;AAEA,YAAH,GAAG,cAAC,MAAU,aAAQ,UAAnB;AACL,SAAG,MAAM,YAAY,CAAC,WAAW,UAAZ;AACrB,SAAG,MAAM,YAAY,CAAC,MAAO,GAAR;AACrB,SAAG,MAAM,YAAY,CAAC,OAAQ,GAAT;AACrB,SAAG,MAAM,YAAY,CAAC,QAAS,GAAV;AACrB,SAAG,MAAM,YAAY,CAAC,SAAU,GAAX;AACrB,SAAG,MAAM,YAAY,CAAC,SAAU,MAAX;AAErB,wBAAc;AAEd,UAAY,YAAD,QAAX;AAEE,uBAAW,MAAM,WAAW,CAAE,6CAAe,GAAjB;OAF9B;AAKA,UAAG,aAAS,GAAE,CAAd;AAEE,uBAAW,MAAM,WAAW,CAAE,wCAAU,aAAZ;OAF9B;AAvDyB;AAzBA;AAEzB,UAAG,eAAH,EACE,QAAQ,KAAK,YAAY,CAAC,aAAD,CAD3B;AAEA,wBAAc;AAEd,UAAG,YAAQ,GAAE,CAAb,EACE,MAAM,aAAa,CAAC,YAAD,CADrB;AAEA,UAAG,YAAQ,GAAE,CAAb,EACE,MAAM,aAAa,CAAC,YAAD,CADrB;AAGA,qBAAW;AACX,qBAAW;AAZc;AAp2Cb;;;AA0BM;AACA,+BEkiBP,4CFliBO;AACG;AACH;AACD,8BCuBL,6CDvBK;AACA,8BCsBL,6CDtBK;AA/BL;AAkCG;;;;AAEG,yEAAmB,UZ5D9B,2BY4D8B,EAAoB,aHmM9C,gCGnM8C,CAAvC;AAEF,uEAAmB,UZ9D5B,2BY8D4B,EAAqB,2BAAgB,oBAAxD;AAEE,yEAAmB,UZhE9B,2BYgE8B,EAAqB,2BAAkB,sBAA1D;AAEC,0EAAmB,UZlE/B,2BYkE+B,EAAqB,2BAAe,mBAAvD;AAEI,8EAAmB,UZpEnC,2BYoEmC,EAAqB,2BAAkB,WCJ7D,oDDI6D,CAA1D;AAEL,yEAAmB,UZtE9B,2BYsE8B,EAAqB,2BAAkB,WH+drE,4BG/dqE,CAA1D;AAEF,uEAAmB,UZxE5B,2BYwE4B,EAAqB,0BAAxC;AAEQ,+EAAmB,UZ1EpC,2BY0EoC,EAAqB,2BAAmB,YCnC5D,uDDmC4D,EAAmC,wBAA9F;AAEH,4EAAmB,UZ5EjC,2BY4EiC,EAAqB,2BAAiB,qBAAzD;AAEG,+EAAmB,UZ9EpC,2BY8EoC,EAAqB,2BAAoB,0BAAY,0BAAxE;AAER,uEAAmB,UZhF5B,2BYgF4B,EAAkB,sBAArC;AAEF,qEAAmB,UZlF1B,2BYkF0B,EAAgB,oBAAnC;AAED,oEAAmB,UZpFzB,2BYoFyB,EAAe,mBAAlC;AAEQ,4EAAmB,UZtFjC,2BYsFiC,EAAkB,WCtBtC,oDDsBsC,CAArC;AAEL,uEAAmB,UZxF5B,2BYwF4B,EAAkB,WH6c9C,4BG7c8C,CAArC;AAEA,0EAAgC,qBAAhC;AAEK,+EAAgC,UT4OvC,8BS5OuC,CAAhC;AAEL,0EAAiC,WHuc1C,4BGvc0C,CAAjC;AAEX;;;AAEH;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAjBG;;;;;;;;;;;;;;;AA2vF4B;AAApB;AAEb;AACA;AAGA,eAAU;AAEZ;AAGE,UAAY,iBAAD,QAAX,EACE,iBAAY,CAAC,CAAD,CADd;AAGA,0BAAgB;AAEhB,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,CAAP,CADjB;AAGA,aAAQ;AAER,UAAY,IAAD,QAAX;AAEE,YAAY,gBAAH,eAAL,IAAK,CAAgB,IAAY,CAAQ,OAAL,KAAQ,gBAAH,CAAe,cAAvB,SAArC,EACQ,OAAL,KAAQ,gBAAH,CAAe,cAAgB,CAAC,KAAM,gBAAO,CAAd,CADvC;AAGA,YAAY,gBAAH,eAAL,IAAK,CAAgB,IAAY,CAAQ,OAAL,KAAQ,gBAAH,CAAe,cAAvB,SAArC,EACQ,OAAL,KAAQ,gBAAH,CAAe,cAAgB,CAAC,KAAM,gBAAO,CAAd,CADvC;AAGA,YAAY,gBAAH,eAAL,IAAK,CAAgB,IAAY,CAAQ,OAAL,KAAQ,gBAAH,CAAe,cAAvB,SAArC,EACQ,OAAL,KAAQ,gBAAH,CAAe,cAAgB,CAAC,KAAM,gBAAO,CAAd,CADvC;OARF;AArBa;AAAoB;AA/HE;AAAtB;AAEb;AACA;AAEA,eAAU;AAGZ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,UAAY,iBAAD,QAAX,EACE,iBAAY,CAAC,CAAD,CADd;AAGA,0BAAgB;AAEhB,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,CAAP,CADnB;AAGA,aAAQ;AAER,UAAY,IAAD,QAAX;AAEE,YAAY,gBAAH,eAAL,IAAK,CAAgB,IAAY,CAAQ,OAAL,KAAQ,gBAAH,CAAe,gBAAvB,SAArC,EACQ,OAAL,KAAQ,gBAAH,CAAe,gBAAkB,CAAC,KAAM,gBAAO,CAAd,CADzC;AAGA,YAAY,gBAAH,eAAL,IAAK,CAAgB,IAAY,CAAQ,OAAL,KAAQ,gBAAH,CAAe,gBAAvB,SAArC,EACQ,OAAL,KAAQ,gBAAH,CAAe,gBAAkB,CAAC,KAAM,gBAAO,CAAd,CADzC;AAGA,YAAY,gBAAH,eAAL,IAAK,CAAgB,IAAY,CAAQ,OAAL,KAAQ,gBAAH,CAAe,gBAAvB,SAArC,EACQ,OAAL,KAAQ,gBAAH,CAAe,gBAAkB,CAAC,KAAM,gBAAO,CAAd,CADzC;OARF;AA9Ba;AAAsB;AA3CK;AAA3B;AAEb;AACA;AACA;AAGA,eAAU;AAEZ;AAGE,UAAY,sBAAD,QAAX;AAEE,8BAAiB,CAAC,EAAD;OAFnB;AAKA,+BAAqB;AAErB,UAAY,4BAAD,QAAX;AAEE,cAAM,cAAN,GAAwB;AACxB,oCAAsB,CAAC,KAAM,0DAAP;OAHxB;AAMA,aAAQ;AAER,UAAY,IAAD,QAAX;AAEE,cAAM,cAAN,GAAwB;AAExB,YAAY,gBAAH,eAAL,IAAK,CAAgB,IAAY,CAAQ,OAAL,KAAQ,gBAAH,CAAe,wBAAvB,SAArC,EACQ,OAAL,KAAQ,gBAAH,CAAe,wBAAuB,CAAC,KAAM,gBAAO,0DAAd,CAD9C;AAGA,YAAY,gBAAH,eAAL,IAAK,CAAgB,IAAY,CAAQ,OAAL,KAAQ,gBAAH,CAAe,wBAAvB,SAArC,EACQ,OAAL,KAAQ,gBAAH,CAAe,wBAAuB,CAAC,KAAM,gBAAO,0DAAd,CAD9C;AAGA,YAAY,gBAAH,eAAL,IAAK,CAAgB,IAAY,CAAQ,OAAL,KAAQ,gBAAH,CAAe,wBAAvB,SAArC,EACQ,OAAL,KAAQ,gBAAH,CAAe,wBAAuB,CAAC,KAAM,gBAAO,0DAAd,CAD9C;OAVF;AA3Ba;AAA2B;AAuFJ;AAAvB;AAEb;AACA;AAEA,eAAU;AAEZ;AAGE,UAAY,iBAAD,QAAX,EACE,iBAAY,CAAC,CAAD,CADd;AAGA,0BAAgB;AAEhB,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,CAAP,CADhB;AAGA,aAAQ;AAER,UAAY,IAAD,QAAX;AAEE,YAAY,gBAAH,eAAL,IAAK,CAAgB,IAAY,CAAQ,OAAL,KAAQ,gBAAH,CAAe,iBAAvB,SAArC,EACQ,OAAL,KAAQ,gBAAH,CAAe,iBAAmB,CAAC,KAAM,gBAAO,CAAd,CAD1C;AAGA,YAAY,gBAAH,eAAL,IAAK,CAAgB,IAAY,CAAQ,OAAL,KAAQ,gBAAH,CAAe,iBAAvB,SAArC,EACQ,OAAL,KAAQ,gBAAH,CAAe,iBAAmB,CAAC,KAAM,gBAAO,CAAd,CAD1C;AAGA,YAAY,mBAAH,eAAL,IAAK,CAAmB,IAAY,CAAQ,OAAL,KAAQ,mBAAH,CAAkB,iBAA1B,SAAxC,EACQ,OAAL,KAAQ,mBAAH,CAAkB,iBAAmB,CAAC,KAAM,gBAAO,CAAd,CAD7C;OARF;AApBa;AAAuB;AAiCD;AAAtB;AAEb;AACA;AACA;AACA;AACA;AAGA,eAAU;AAEZ;AAGE,UAAK,yBAAa,cAAc,CAAC,EAAD;AAChC,UAAK,EAAE;AAEP,WAAM,yBAAa,QAAC;AACpB,QAAE,QAAM,CAAC,EAAE,EAAG,CAAN;AACR,QAAE,YAAC,CAAY,CAAZ;AAEH,UAAY,iBAAD,QAAX;AAEE,yBAAY,CAAC,EAAD;OAFd;AAKA,0BAAgB;AAEhB,UAAY,uBAAD,QAAX;AAEE,+BAAiB,CAAC,KAAM,EAAP;OAFnB;AAKA,aAAQ;AAER,UAAY,IAAD,QAAX;AAEE,YAAY,gBAAH,eAAL,IAAK,CAAgB,IAAY,CAAQ,OAAL,KAAQ,gBAAH,CAAe,mBAAvB,SAArC,EACQ,OAAL,KAAQ,gBAAH,CAAe,mBAAkB,CAAC,KAAM,gBAAO,EAAd,CADzC;AAGA,YAAY,gBAAH,eAAL,IAAK,CAAgB,IAAY,CAAQ,OAAL,KAAQ,gBAAH,CAAe,mBAAvB,SAArC,EACQ,OAAL,KAAQ,gBAAH,CAAe,mBAAkB,CAAC,KAAM,gBAAO,EAAd,CADzC;AAGA,YAAY,gBAAH,eAAL,IAAK,CAAgB,IAAY,CAAQ,OAAL,KAAQ,gBAAH,CAAe,mBAAvB,SAArC,EACQ,OAAL,KAAQ,gBAAH,CAAe,mBAAkB,CAAC,KAAM,gBAAO,EAAd,CADzC;OARF;AAYA,QAAG,eAAH,EAAG;AA/CU;AAAsB;AAqKE;AAAxB;AAEb;AAAS;AACT;AAEA,gBAAW;AACX,eAAU;AAGZ;AACA;AACA;AACA;AACA;AAGE,aAAQ;AAER,UAAY,IAAD,QAAX;AAEE,YAAY,gBAAH,eAAL,IAAK,CAAgB,IAAY,CAAc,OAAX,kBAAc,gBAAH,CAAe,sBAA7B,SAArC,EACQ,OAAL,KAAQ,gBAAH,CAAe,sBAAqB,CAAC,KAAM,gBAAO,QAAS,MAAvB,CAD5C;AAGA,YAAY,gBAAH,eAAL,IAAK,CAAgB,IAAY,CAAc,OAAX,kBAAc,gBAAH,CAAe,sBAA7B,SAArC,EACQ,OAAL,KAAQ,gBAAH,CAAe,sBAAqB,CAAC,KAAM,gBAAO,QAAS,MAAvB,CAD5C;OALF;AASA,eAAU;AA3BG;AAAwB;AA/DA;AAAxB;AAEb;AACA;AACA;AAEA,eAAU;AAEV,aAAQ;AAER,UAAY,IAAD,QAAX;AAEE,YAAY,gBAAH,eAAL,IAAK,CAAgB,IAAY,CAAQ,OAAL,KAAQ,gBAAH,CAAe,sBAAvB,SAArC,EACQ,OAAL,KAAQ,gBAAH,CAAe,sBAAqB,CAAC,KAAM,eAAP,CAD5C;AAGA,YAAY,gBAAH,eAAL,IAAK,CAAgB,IAAY,CAAQ,OAAL,KAAQ,gBAAH,CAAe,8BAAvB,SAArC;AAEE,qBAAW,IAAX,GAAqC,KAAK;AAEhD;AAGY,iBAAL,KAAQ,gBAAH,CAAe,8BAA6B,CAAC,KAAM,gBAAO,mEAAa,SAA3B;SAPpD;AAUA,YAAY,gBAAH,eAAL,IAAK,CAAgB,IAAY,CAAQ,OAAL,KAAQ,gBAAH,CAAe,sBAAvB,SAArC,EACQ,OAAL,KAAQ,gBAAH,CAAe,sBAAqB,CAAC,KAAM,eAAP,CAD5C;AAGA,YAAY,gBAAH,eAAL,IAAK,CAAgB,IAAY,CAAQ,OAAL,KAAQ,gBAAH,CAAe,8BAAvB,SAArC;AAEE,qBAAW,IAAX,GAAqC,KAAK;AAEhD;AAGY,iBAAL,KAAQ,gBAAH,CAAe,8BAA6B,CAAC,KAAM,gBAAO,mEAAa,SAA3B;SAPpD;OAlBF;AA4BA,kBAAQ;AAtCK;AAAwB;AAyCH;AAArB;AAEb;AACA;AAGF;AAEE,eAAU;AAEV,aAAQ;AAER,UAAY,IAAD,QAAX;AAEE,YAAY,gBAAH,eAAL,IAAK,CAAgB,IAAY,CAAQ,OAAL,KAAQ,gBAAH,CAAe,mBAAvB,SAArC,EACQ,OAAL,KAAQ,gBAAH,CAAe,mBAAkB,CAAC,KAAM,gBAAO,GAAd,CADzC;AAGA,YAAY,gBAAH,eAAL,IAAK,CAAgB,IAAY,CAAQ,OAAL,KAAQ,gBAAH,CAAe,mBAAvB,SAArC,EACQ,OAAL,KAAQ,gBAAH,CAAe,mBAAkB,CAAC,KAAM,gBAAO,GAAd,CADzC;OALF;AAZa;AAAqB;AA3DA;AAArB;AAEb;AAEA,eAAU;AAEV,aAAQ;AAER,UAAY,IAAD,QAAX;AAEE,YAAY,gBAAH,eAAL,IAAK,CAAgB,IAAY,CAAQ,OAAL,KAAQ,gBAAH,CAAe,mBAAvB,SAArC,EACQ,OAAL,KAAQ,gBAAH,CAAe,mBAAkB,CAAC,KAAM,eAAP,CADzC;AAGA,YAAY,gBAAH,eAAL,IAAK,CAAgB,IAAY,CAAQ,OAAL,KAAQ,gBAAH,CAAe,mBAAvB,SAArC,EACQ,OAAL,KAAQ,gBAAH,CAAe,mBAAkB,CAAC,KAAM,eAAP,CADzC;OALF;AARa;AAAqB;AA7gBX;AAAV;AAEb,eAAU;AAEV,UAAW,CAAC,gBAAD,SAAa,IAAY,CAAa,OAAX,iBAAc,WAAH,CAAU,UAAvB,SAApC;AAEE,YAAmC,sBAAH,eAAjB,OAAX,iBAAc,WAAH,CAAU,UAAO,CAAhC,EACE,SAAuC,OAAjB,OAAX,iBAAc,WAAH,CAAU,WAAU,sBAAH,CADzC;OAFF;AAJa;AAAU;AAiEA;AAAV;AAEb,eAAU,iBAAU,CAAC,OAAD;AAFP;AAAU;AAKA;;AAAV;AAEb;AAGA,eAAqB,IAAX,OAAW,CACnB;AAEkB;AAAN;AAEP,kBAAQ,CAAC,iBAAW,CAAC,KAAD,CAAZ;AAFD;AAAM;AAMhB,iBAAwB,IAAd,UAAc;AACxB,cAAM,OAAN,GAAiB;AACjB,cAAM,WAAW,CAAC,kBAAY,SAAb;AAVnB,OADmB;AALR;AAAU;AAoBE;;AAAZ;AAEb;AAGA,eAAqB,IAAX,OAAW,CACnB;AAEkB;AAAN;AAEP;AAGT;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGS,kBAAQ,CAAC,CAAD;AAjBD;AAAM;AAqBhB,iBAAwB,IAAd,UAAc;AACxB,cAAM,OAAN,GAAiB;AACjB,cAAM,kBAAkB,CAAC,iBAAD;AAzB1B,OADmB;AALR;AAAY;AAmCA;;AAAZ;AAEb;AAGA,eAAqB,IAAX,OAAW,CACnB;AAEkB;AAAN;AAEP;AACA;AACA;AACA;AAGT;AAGS,cAAK,yBAAa,cAAc,CAAC,EAAD;AAChC,cAAK,EAAE;AAEP,eAAM,yBAAa,QAAC;AACpB,YAAE,QAAM,CAAC,EAAE,EAAG,CAAN;AACR,YAAE,YAAC,CAAY,CAAZ;AAEH,kBAAQ,CAAC,EAAD;AAlBD;AAAM;AAsBhB,iBAAwB,IAAd,UAAc;AACxB,cAAM,OAAN,GAAiB;AACjB,cAAM,kBAAkB,CAAC,iBAAD;AA1B1B,OADmB;AALR;AAAY;AA8DC;;AAAb;AAEb;AAGA,eAAqB,IAAX,OAAW,CACnB;AAEkB;AAAN;AAEP;AAGT;AAGS,kBAAQ,CAAC,CAAD;AARD;AAAM;AAYhB,iBAAwB,IAAd,UAAc;AACxB,cAAM,OAAN,GAAiB;AACjB,cAAM,cAAc,CAAC,iBAAD;AAhBtB,OADmB;AALR;AAAa;AA1BI;;AAAjB;AAEb;AAGA,eAAqB,IAAX,OAAW,CACnB;AAEkB;AAAN;AAEP;AAGT;AAGS,kBAAQ,CAAC,GAAD;AARD;AAAM;AAYhB,iBAAwB,IAAd,UAAc;AACxB,cAAM,OAAN,GAAiB;AACjB,cAAM,kBAAkB,CAAC,iBAAD;AAhB1B,OADmB;AALR;AAAiB;AAqDH;AAE3B;AACA;AAEA,YAAQ;AACR,UAAK;AAGP;AACA;AACA;AAX6B;AA8DA;AAE3B,0BAAgB;AAChB;AAH2B;AA/CA;AAE3B;AACA;AAEA,YAAQ;AACR,UAAK;AAGP;AACA;AACA;AAX6B;AAiBE;AAE7B;AACA;AAEA,YAAQ;AACR,UAAK;AAGP;AACA;AACA;AAX+B;AAtNA;AAE7B,0BAAgB;AAChB;AAH6B;AArBK;AAElC;AACA;AAEA,YAAQ;AACR,UAAK;AAGP;AACA;AACA;AAXoC;AAeA;AAElC,+BAAqB;AACrB;AAHkC;AAkBL;AAE7B;AACA;AAEA,YAAQ;AACR,UAAK;AAGP;AACA;AACA;AAX+B;AAeA;AAE7B,0BAAgB;AAChB;AAH6B;AA0MC;AAE9B;AACA;AAEA,YAAQ;AACR,UAAK;AAGP;AACA;AACA;AAXgC;AA/NA;AAE9B,0BAAgB;AAChB;AAH8B;AAoPV;AAEpB;AACA;AACA;AAAa;AAAa;AAAU;AAEpC,UAAK;AAEL,WAAkB,IAAZ,QAAY;AAClB,QAAE,OAAO,CAAC,QAAQ,CAAT;AAET,kBAA0B,IAAlB,cAAkB;AAE1B,oBAAgB;AAChB,oBAAgB;AAChB,iBAAa;AACb,iBAAa;AAEb,eAAI,iBAAiB,CAAC,OAAQ,WAAT;AACrB,eAAI,iBAAiB,CAAC,QAAS,QAAV;AACrB,eAAI,iBAAiB,CAAC,QAAS,QAAV;AACrB,eAAI,OAAO,iBAAiB,CAAC,WAAY,WAAb;AAE5B,eAAI,KAAK,CAAC,OAAO,QAAS,IAAjB;AACT,eAAI,KAAK,CAAC,EAAD;AAxBW;AA2BI;AAAX;AAEb,eAAU;AACV,UAAY,SAAD,QAAX;AAEE,iBAAI,MAAM;AACV,iBAAU;OAHZ;AAHa;AAAW;AArkFnB;AAqKM;AA5FL;;;AAEJ;AAFI;;;;;AAgrEe;AAAP;AAEd,eAA0B,YAAK,CAAC,KAAD;AAFjB;AAAO;AAeC;AAEZ,kBAAK,CAAC,MAAU,KAAX;AAFO;AArBC;AAEP,iDAAC,UAAD;AAChB,oBAAsB;AAHsB;AAArB;AAgBJ;AAAL;AAEd,eAAU;AAFI;AAAK;AArCF;AAAH;AAEd,eAA0B;AAFZ;AAAG;AAgCG;AAAN;AAEd,eAAgC,yCAAC,KAAD;AAFlB;AAAM;AA3BA;AAEpB;AAEA,WAAM;AACI;AAEV,UAAG,EAAG,GAAE,CAAR;AAEE,YAAc,gBAAH,eAAP,WAAO,CAAX,EACU,OAAP,YAAU,gBAAH,CAAe,QADzB;AAEA,YAAc,gBAAH,eAAP,WAAO,CAAX,EACU,OAAP,YAAU,gBAAH,CAAe,QADzB;OAJF;AAPoB;AA1pEd;AAMc,+BAAO,UHkRjB,+BGlRiB,CAAP;AANd;AAeK;;;AAET;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAvBS;;;;;;;;;;;;;;;;;AA86DuB;AAElC,0BAAgB;AAChB;AAHkC;AAlBL;AAE7B,UAAG,YAAQ,KAAG,KAAd;AAEE,uBAAW;AACX;OAHF;AAF6B;AAwBK;AAElC,UAAI,iBAAa,KAAG,KAApB;AAEE,4BAAgB;AAChB;OAHF;AAFkC;AAfJ;AAE9B,UAAI,aAAQ,KAAG,MAAf;AAEsB,mEAAC,MAAD;AACpB;OAHF;AAF8B;AA/DA;AAAX;AAEnB;AAAE;AACF;AACA;AAAS;AACT;AAEA,gBAAW;AAEX,aAAM,WAAM,SAAC,EAAM,GAAE,CAArB,EACE,WAAM,OAAO,CAAC,CAAD;AACf,aAAM,cAAS,SAAC,EAAM,GAAE,CAAxB,EACE,cAAS,OAAO,CAAC,CAAD;AAElB,eAAS,QAAkB,OAAb,KAAK,OAAQ,GAAE,CAAF,kBAA3B;AAAI;AAEF,gBAAS,KAAK,KAAK,CAAC,CAAD;AAGvB;AACA;AACA;AAGe,oBAAN,WAAM;AAET,4BAAc;AACd,sBAAQ,KAAK;AACb,0BAAY;AACZ,sBAAQ;AACR,0BAAY,uBAAU,CAAC,CAAC,QAAC,EAAK,GAAE,IAAF,CAAQ,CAAC,SAAC,EAAM,GAAE,CAAF,CAAK,CAAC,QAAC,EAA/B,CAAoC,GAAC,uBAAU,CAAC,CAAC,SAAC,GAAO,CAAC,WAAC,GAAS,CAAC,WAAC,GAAS,CAAC,gBAAC,EAAlC,CAAX;AAG5D,YAAY,cAAD,QAAX,EACE,cAAS,IAAI,CAAC,KAAK,KAAN,CADf;AAGA,YAAG,eAAH;AAEE,cAAG,CAAE,GAAE,CAAP,EACE,UAAW,OAAQ,GAAE,MADvB;AAGA,oBAAW,OAAQ,GAAE,KAAK,KAAP;SALrB;AAQA,YAAG,CAAI,eAAP,EACE,KADF;;AAIF,eAAU;AAEV,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,cAAP,CADhB;AAlDmB;AAAW;AAlFG;AAAd;AAEnB;AAAG;AACH;AACA;AAEA,eAAU;AACV,UAAY,uBAAD,QAAX;AAEE,aAAqB,CAAC;AACtB,YAAY,EAAD,QAAX;AAGJ;AAGM,oBAAW,gBAAW,CAAC,QAAD;AAEtB,cAAG,eAAH;AAEE,mBAAuB,QAAQ,eAAe,CAAC,YAAS,GAAC,WAAX;AAC9C,gBAAI,UAAJ,GAAkB;WAHpB;SARF;OAHF;AAPmB;AAAc;AA2DI;AAAlB;AAEnB;AACA;AACA;AAGA,eAAU;AACV,WAAK,eAAe;AACpB,WAAK,gBAAgB;AAErB,qBAAgB,KAAK,aAAa;AAClC,gBAAW,gBAAW,CAAC,YAAD;AAEtB,UAAG,eAAH;AAEE,eAAuB,QAAQ,eAAe,CAAC,YAAS,GAAC,WAAX;AAC9C,YAAI,UAAJ,GAAkB;OAHpB;AAMA,yBAAS,aAAa,CAAC,QAAQ,yBAAT;AApBH;AAAkB;AAbJ;AAAd;AAEnB,eAAU;AACV,WAAK,eAAe;AACpB,WAAK,gBAAgB;AAErB,UAAY,mBAAD,QAAX,EACE,mBAAS,aAAa,CAAC,QAAQ,qCAAT,CADxB;AAGA,UAAW,CAAC,uBAAD,SAAgB,IAAe,CAAV,eAAU,KAAG,EAAH,CAA1C,EACE,uBAAa,MAAM,YAAY,CAAC,mBAAmB,kCAAW,CAAC,eAAD,CAA/B,CADjC;AATmB;AAAc;AAlBD;AAAb;AAEnB,eAAU;AACV,WAAK,eAAe;AACpB,WAAK,gBAAgB;AAErB,UAAY,mBAAD,QAAX,EACE,mBAAS,aAAa,CAAC,QAAQ,yBAAT,CADxB;AAGA,UAAY,uBAAD,QAAX;AAEE,YAAU,CAAN,WAAM,KAAG,EAAH,CAAW,IAAe,CAAV,eAAU,KAAG,EAAH,CAApC;AACE,iCAAa,MAAM,YAAY,CAAC,mBAAmB,kCAAW,CAAC,WAAD,CAA/B;AAE/B,cAAA,uBAAa,MAAM,eAAe,CAAC,kBAAD;OALtC;AATmB;AAAa;AA/EA;AAAb;AAEnB;AACA,wBAAc;AACd,eAAU,QAAQ,cAAc,CAAC,MAAD;AAChC,YAAM,aAAa,CAAC,SAAS,MAAV;AACnB,YAAM,aAAa,CAAC,QAAQ,KAAT;AACnB,YAAM,aAAa,CAAC,UAAU,qBAAX;AAEJ,YAAO,MAAM,YAAY,CAAC,UAAU,MAAX;AACzB,YAAO,MAAM,YAAY,CAAC,kBAAkB,QAAnB;AACzB,YAAO,MAAM,YAAY,CAAC,cAAc,QAAf;AAGxC,YAAM,UAAN,GACC,qDAMyE,GALzE,uGADsD,GAEtD,8WADuG,GAEvG,4DAD8W,GACjT,UAAD,GAAM,6DAAD,GACjE,gBADgI,GAC/G,UAAD,GAAM,qCAAD,GAAuC,UAAD,GAAM,OAAD,GAAS,aAAD,GAAS,kDAAD,GAAoD,UAAD,GAAM,QAAD,GAAU,iBAAD,GAAc,kBAAD,GAC9J,2DADkL,GAElL,8CAD4D,GACb,UAAD,GAAM,oBAAD,GACnD,2DADyE;AAGzE,YAAM,iBAAiB,CAAC,OAAS,6CAAV;AACvB,YAAM,iBAAiB,CAAC,YAAc,yCAAf;AACvB,YAAM,iBAAiB,CAAC,WAAa,yCAAd;AACvB,YAAM,iBAAiB,CAAC,UAAY,wCAAb;AACvB,YAAM,iBAAiB,CAAC,YAAc,wCAAf;AAEvB,UAAG,wBAAH,EACE,MAAM,UAAU,IAAI,CAAE,qBAAF,CADtB;AA9BkB;AAAa;AA4NC;AAEjC;AAEA;AAEA;AAEA,UAAY,uBAAD,QAAX;AAEE,+BAAa,MAAM,YAAY,CAAC,UAAU,MAAX;AAE/B,aAAqB,uBAAa,SAAS,MAAC,CAAD;AAC3C,aAAqB,EAAE,SAAS,MAAC,CAAD;AAEhC,YAAG,CAAI,iBAAP;AACG,YAAE,MAAM,YAAY,CAAC,UAAU,MAAX;AAErB,cAAA,EAAE,MAAM,eAAe,CAAC,SAAD;AAEzB,YAAG,iBAAY,KAAG,yCAAlB;AACE,YAAE,MAAM,YAAY,CAAC,QAAQ,kCAAW,CAAC,UAAI,OAAL,CAApB;AAEpB,cAAA,EAAE,MAAM,eAAe,CAAC,OAAD;AAEzB,aAAqB,QAAQ,eAAe,CAAC,IAAI,GAAC,eAAN;AAE5C,YAAY,EAAD,QAAX;AAEE,cAAG,CAAI,eAAP;AAEE,8BAAc;AACd,cAAE,iBAAiB,CAAC,SAAW,6CAAZ;WAHrB;AAMA,cAAG,eAAH;AACE,cAAE,aAAa,CAAC,WAAW,EAAZ;AAEf,gBAAA,EAAE,gBAAgB,CAAC,UAAD;AAEpB,cAAG,YAAQ,KAAG,EAAd;AACE,cAAE,aAAa,CAAC,SAAS,YAAV;AAEf,gBAAA,EAAE,gBAAgB,CAAC,QAAD;SAhBtB;AAmBA,aAAqB,QAAQ,eAAe,CAAC,eAAU,GAAC,KAAZ;AAC5C,YAAY,EAAD,QAAX;AAEE,YAAE,UAAF,GAAgB;SAFlB;AAKA,aAAqB,QAAQ,eAAe,CAAC,eAAU,GAAC,MAAZ;AAC5C,YAAY,EAAD,QAAX;AAEE,YAAE,UAAF,GAAgB;SAFlB;OA7CF;AARiC;AAjYA;AAEjC;AACA;AAHiC;AAuBJ;AAE7B,0BAAe,CACf,UAqIiC,GApIlC,SADU,GAIV,4BAHM,GAIN,2BADyB,GAEzB,OADyB,GAEzB,8BADK,GAEL,OAD4B,GAE5B,oCADK,GAEL,8BADiC,GAEjC,0FAD2B,GAE3B,kFADuF,GAEvF,OAD+E,GAE/E,sBADK,GAEL,OADoB,GAEpB,8BADK,GAEL,+BAD2B,GAE3B,+BAD4B,GAE5B,OAD4B,GAE5B,wBADK,GAEL,kBADqB,GAErB,SADe,GAEf,wBADM,GAEN,SADoB,GAEpB,gDADM,GAEN,SAD6C,GAE7C,0BADM,GAEN,SADsB,GAEtB,2CADM,GAEN,SADwC,GAExC,sBADM,GAEN,uBADkB,GAElB,wBADmB,GAElB,yBADmB,GAEpB,8BADsB,GAEtB,SAD0B,GAE1B,sCADM,GAEN,oCADmC,GAEnC,iCADiC,GAEjC,SAD8B,GAE9B,6BADM,GAEN,SADyB,GAEzB,wBADM,GAEN,sBADqB,GAErB,mBADmB,GAEnB,SADgB,GAEhB,sBADM,GAEN,SADmB,GAEnB,0CADM,GAEN,sCADuC,GAEvC,iCADmC,GAEnC,SAD8B,GAE9B,yBADM,GAEN,6BADqB,GAErB,mBADyB,GAEzB,kBADe,GAEd,kBADiB,GAElB,iDADe,GAEf,0CAD8C,GAE9C,WADqC,GAErC,yBADO,GAEP,WADqB,GAErB,+BADO,GAEP,WAD0B,GAE1B,uBADO,GAEP,WADmB,GAEnB,mEADO,GAEP,2DAD8D,GAE9D,WADsD,GAEtD,iDADO,GAEP,aAD4C,GAE5C,yEADQ,GAER,4EADkE,GAElE,yEADoE,GAEpE,aADiE,GAEjE,yCADQ,GAER,aADoC,GAEpC,iEADQ,GAER,oEAD0D,GAE1D,iEAD4D,GAE5D,aADyD,GAEzD,uBADQ,GAER,WADmB,GAEnB,6BADO,GAEP,WADwB,GAExB,8BADO,GAEP,6BAD0B,GAE1B,WADyB,GAEzB,mBADO,GACS,kCAAW,CAAC,oBAAD,CAAb,GAA8B,GAAD,GAC3C,WAD+C,GAE/C,oBADO,GAEP,WADgB,GAEhB,yBADO,GAEP,0BADoB,GAEpB,uBADqB,GAErB,6BADkB,GAElB,+BADwB,GAExB,wBAD0B,GAE1B,WADmB,GAEnB,4BADO,GAEP,WADwB,GAGxB,oCAFO,GAGP,gCAD+B,GAE/B,4BAD2B,GAE3B,kCADuB,GAEvB,6BAD6B,GAE7B,WADwB,GAExB,0CADO,GAEP,0CADsC,GAEtC,6CADsC,GAEtC,WADyC,GAEzC,mBADO,GACQ,kCAAW,CAAC,oBAAD,CAAZ,GAA6B,GAAD,GAC1C,WAD+C,GAE/C,mCADO,GAEP,sCAD+B,GAE/B,WADkC,GAElC,oCADO,GAEP,uDADgC,GAEhC,WADkD,GAElD,sBADO,GAEP,WADkB,GAElB,6BADO,GAEP,2BADwB,GAExB,sCADsB,GAEtB,0BADiC,GAEjC,8BADqB,GAErB,gCADyB,GAEzB,WAD2B,GAE3B,+BADO,GAEP,8BAD0B,GAE1B,aADyB,GAEzB,wCADQ,GAER,aAvIgB;AAFc;AAjBD;AAE5B;AAEA,oBAAS,QAAT;AACA,6BAAmB;AACnB,sBAAW,eAAX;AACA,0BAAgB;AAChB,wBAAc;AAEd,0BAAgB;AAChB,oBAAU,WAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AAEjB,uBAAa,uBAAW,QAAC;AACzB,oBAAS,qBAAC,CAAqB,IAArB;AAduC;AAArB;AA2MA;AAErB,eAAP,KAAO;AACG,eAAV,KAAU;AACV;AAJ4B;AAVQ;AAEpC;AACA,wBAAc;AACd,wBAAc;AACd,wBAAc;AACd,oBAAS,GAAT;AACA,qBAAU,GAAV;AAPoC;AA5NX;AAEzB;AAEA,WAAM,QAAQ,eAAe,CAAC,IAAI,GAAC,YAAN;AAC7B,UAAY,EAAD,QAAX;AAEE,UAAE,cAAC,OAAW,EAAZ;AACF,UAAE,cAAC,OAAW,MAAZ;OAHJ;AAMA,WAAM,QAAQ,eAAe,CAAC,YAAS,GAAC,WAAX;AAC7B,UAAY,EAAD,QAAX;AAEE,UAAE,UAAF,GAAgB;OAFlB;AAKA,aAAM,WAAK,SAAC,EAAM,GAAE,CAApB,EACE,WAAK,OAAO,CAAC,CAAD;AAlBW;AAviDd;;;AAuCS,+BAAO,UHkOjB,+BGlOiB,CAAP;AAMH;AACC;AACG;AACL,6BEkCV,uCFlCU;AACM;AACF,iCEgCd,uCFhCc;AACE,mCCrNV,6CDqNU;AACP,4BE+HV,sCF/HU;AACU,sCE6BnB,uCF7BmB;AACD;AACF,mCCpOZ,2CDoOY;AACF;AACC;AACD;AACE;AACC;AACF,kCC1OX,2CD0OW;AACI,sCA1LP,iCA0LO;AACC,uCAzLV,+BAyLU;AACO,8CApLV,sCAoLU;AACL,yCAnLV,iCAmLU;AACA,yCA1LV,iCA0LU;AACC,0CAzLV,kCAyLU;AACE,4CApLf,+BAoLe;AACQ,oDAnLf,uCAmLe;AACX,yCAtLZ,+BAsLY;AACA,yCAnLP,oCAmLO;AACG,4CAlLP,uCAkLO;AAxEpB;AA2EG;;;;AAEH;;;AAET;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAhBS;;;;;;;;;;;;;;;;AA4hEqB;AAEhC,UAAI,eAAW,KAAG,KAAlB;AAEE,0BAAc;AACd;OAHF;AAFgC;AAjEC;AAAd;AAEnB;AAAE;AAAE;AACJ;AACA;AAAE;AACF;AACA;AACA;AAEA,eAAU;AAGV,aAAM,WAAM,SAAC,EAAM,GAAE,CAArB,EACE,WAAM,OAAO,CAAC,CAAD;AAEf,WAAM;AAGR;AACA;AAGE,eAAS,QAAO,OAAF,CAAE,GAAE,CAAF,kBAAhB;AAAI;AAEF,YAAK,WAAM;AAGf;AACA;AACA;AACA;AACA;AAGI,SAAC,YAAD,GAAgB;AAChB,SAAC,MAAD,GAAU;AACV,SAAC,UAAD,GAAc;AACd,SAAC,MAAD,GAAU;AACV,SAAC,UAAD,GAAc,uBAAU,CAAC,CAAC,QAAC,EAAK,GAAE,IAAF,CAAQ,CAAC,SAAC,EAAM,GAAE,CAAF,CAAK,CAAC,QAAC,EAA/B,CAAoC,GAAC,uBAAU,CAAC,CAAC,SAAC,GAAO,CAAC,WAAC,GAAS,CAAC,WAAC,GAAS,CAAC,gBAAC,EAAlC,CAAX;;AAG9D,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAzCmB;AAAc;AAwDJ;AAE7B,UAAI,YAAQ,KAAG,KAAf;AAEE,uBAAW;AACX;OAHF;AAF6B;AAkBI;AAEjC;AAEA,UAAY,uBAAD,QAAX;AAEE,YAAG,eAAH;AACE,iCAAa,aAAa,CAAC,WAAW,EAAZ;AAE1B,cAAA,uBAAa,gBAAgB,CAAC,UAAD;AAE/B,YAAG,YAAQ,KAAG,EAAd;AACE,iCAAa,aAAa,CAAC,SAAS,YAAV;AAE1B,cAAA,uBAAa,gBAAgB,CAAC,QAAD;OAVjC;AAJiC;AAjGD;AAAb;AAEnB,eAAU,QAAQ,cAAc,CAAC,OAAD;AAChC,YAAM,aAAa,CAAC,OAAO,MAAR;AAHA;AAAa;AAoEK;AAErC,UAAG,eAAW,KAAE,IAAhB;AAEE,0BAAe;AACf;OAHF;AAFqC;AAzFP;AAE9B;AAEA;AACA,UAAY,2BAAD,QAAX;AAEE,aAAM;AACN,UAAE,iBAAiB,CAAC,SAAU,6CAAX;OAHrB;AAL8B;AA2BM;AAEpC;AACA,oBAAU,WAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AAEf,oBAAS,GAAT;AACA,qBAAU,EAAV;AANkC;AAUR;AAErB,eAAP,KAAO;AACP;AAH4B;AAzBH;AAEzB,6BAAa,cAAC,OAAW,EAAZ;AACb,6BAAa,cAAC,OAAW,MAAZ;AAEb,aAAM,WAAK,SAAC,EAAM,GAAE,CAApB,EACE,WAAK,OAAO,CAAC,CAAD;AANW;AA37Dd;;;AA+BM;AACI;AACM,wCClRV,kDDkRU;AACL,mCCjRV,6CDiRU;AACF,iCCnRV,2CDmRU;AACM,uCClRV,iDDkRU;AACF;AACF,mCChSZ,2CDgSY;AACF;AACG;AACF,kCCnSX,2CDmSW;AACF,gCClOP,6CDkOO;AACO,uCAlPV,+BAkPU;AACO,8CA7OV,sCA6OU;AACL,yCAlPV,iCAkPU;AACC,0CAjPV,kCAiPU;AACD,yCA9OV,iCA8OU;AACG,4CA7Of,+BA6Oe;AACQ,oDA5Of,uCA4Oe;AACX,yCA/OZ,+BA+OY;AACA,yCA5OP,oCA4OO;AACG,4CA3OP,uCA2OO;AApDpB;AAuDG;;;;AAEC,yEAAmC,wBAAnC;AAEJ;;AAMC,kCAND,mCAMC;AAED;;;AAET;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAfS;;;;;;;;;;;;;AAiuC0B;AAErC;AAAE;AAAE;AACJ;AAAE;AACF;AACA;AACA;AAIA,aAAM,WAAM,SAAC,EAAM,GAAE,CAArB,EACE,WAAM,OAAO,CAAC,CAAD;AAGjB;AACA;AAGE,eAAS,QAAO,OAAF,CAAE,GAAE,CAAF,kBAAhB;AAAI;AAEF,YAAK,WAAM;AAGf;AACA;AACA;AACA;AACA;AAII,YAAI,CAAE,KAAE,CAAR,EACE,iBAAa,CADf;AAGA,SAAC,YAAD,GAAgB;AAChB,SAAC,MAAD,GAAU;AACV,SAAC,UAAD,GAAc;AACd,SAAC,MAAD,GAAU;AACV,SAAC,UAAD,GAAc,uBAAU,CAAC,CAAC,QAAC,EAAK,GAAE,IAAF,CAAQ,CAAC,SAAC,EAAM,GAAE,CAAF,CAAK,CAAC,QAAC,EAA/B,CAAoC,GAAC,uBAAU,CAAC,CAAC,SAAC,GAAO,CAAC,WAAC,GAAS,CAAC,WAAC,GAAS,CAAC,gBAAC,EAAlC,CAAX;;AAG9D,UAAY,oBAAD,QAAX,EACE,oBAAe,CAAC,cAAD,CADjB;AAGA,6BAAmB;AAEnB,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AA9CqC;AAhDT;AAEZ,gDAAC,MAAD;AAChB,oBAAU,WAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AAHgC;AAArB;AAMA;AAElB;AACV,oBAAU,WAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AAHY;AAAD;AAOA;AAErB,eAAP,KAAO;AACP;AAH4B;AAaD;AAE3B;AACA;AAEA,WAAO;AACP,WAAqB,QAAQ,cAAc,CAAC,OAAD;AAC3C,QAAE,aAAa,CAAC,OAAO,MAAR;AACf,UAAG,eAAW,IAAuB,CAAnB,mCAAmB,IAAG,aAAH,CAArC,EACE,EAAE,aAAa,CAAC,WAAW,EAAZ,CADjB;AAGA,UAAG,YAAQ,KAAG,EAAd,EACE,EAAE,aAAa,CAAC,SAAS,YAAV,CADjB;AAGA,QAAE,iBAAiB,CAAC,SAAU,EAAX;AAGrB;AAjB6B;AAPA;AAE3B,6BAAmB;AACnB;AAH2B;AA+ED;;AAAP;AAEnB,eAAqB,IAAX,OAAW,CACnB;AAEE,uBAAO,CAAC;AAEJ,kBAAQ,CAAC,SAAD;AAFJ,SAAD;AAFT,OADmB;AAFF;AAAO;AAnxCf;;AAmBS,+BAAO,UHsGjB,+BGtGiB,CAAP;AACA;AAYH;AACG;AACD,gCC7RP,6CD6RO;AACO,uCA7SV,+BA6SU;AACO,8CAxSV,sCAwSU;AACL,yCAvSV,iCAuSU;AACA,yCA9SV,iCA8SU;AACC,0CA7SV,kCA6SU;AAvClB;AA0CG;;;AA4KI;AAElB,QAAG,CAAY,CAAC,eAAD,SAAf;AAEE,wBAAa,gBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzB,UAAG,+BAAW,UAAS,YAAY,KAAE,+CAArC;AAEc,uBAAU;OAFxB;KAHF;AASA,mBAAS,aAAW,CAAC,IAAK,QAAS,oBAAS,WAAxB;AAXF;AA3EC;AAEnB,QAAgB,CAAZ,+BAAY,KAAG,IAAH,CAA0C,IAAR,CAArB,+BAAW,UAAU,KAAG,IAAH,CAA1B,IAAuE,CAAhC,+BAAW,UAAS,YAAY,KAAE,+CAAF,CAA/F;AAEE,qBAAU,CAAC,KAAM,+BAAe,cAAC,oBAAD,EAjGqF,IAiG3G;;AAKd;;AATqB;AA6DG;AAAf;AAEP,QAAG,CAAY,CAAC,eAAD,SAAf;AAEE,wBAAa,gBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzB,UAAG,+BAAW,UAAS,YAAY,KAAE,+CAArC;AAEc,uBAAU;OAFxB;KAHF;AASA,aAAe,MAAU,eAAS,aAAW,CAAC,IAAK,QAAS,mBAAf;AAXtC;AAAe;AA/CP;AAAR;AAEP;AAIF;AACA;AACA;AACA;AAGE,aAAU;AAZH;AAAQ;AAeE;AAAV;AAEP;AACA;AAEA,eAAY;AACZ,QAAK;AAGP;AACA;AACA;AACA;AACA;AAGE,QAAG,QAAH,EACE,UAAS,CAAT,CADF;AAGA,aAAU;AAnBH;AAAU;AAsBH;AAAP;AAEP;AAGF;AAEE,aAAU;AAPH;AAAO;AAsCS;AAEA;AAErB,UAAG,YAAa,KAAG,CAAnB,EACE,YAAW,oBAAc,uBAAzB,CADF;AAGA,UAAY,WAAD,QAAX,EACE,WAAW,CAAC,YAAD,CADb;AALqB;AAUvB,QAAG,CAAY,CAAC,oBAAD,SAAf;AAEE,6BAAkB,qBAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAEnC,UAAG,+BAAW,UAAS,YAAY,KAAE,+CAArC;AAEmB,4BAAe;OAFlC;KAJF;AAUA,wBAAc,YAAd,GAA6B;AAC7B,wBAAc,WAAd,GAA4B;AAE5B,wBAAc,aAAW,CAAC,IAAK,QAAS,iCAAf;AAzBF;AA4BI;AAApB;AAGP,QAAG,CAAY,CAAC,oBAAD,SAAf;AAEE,6BAAkB,qBAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAEnC,UAAG,+BAAW,UAAS,YAAY,KAAE,+CAArC;AAEmB,4BAAe;OAFlC;KAJF;AAUA,wBAAc,YAAd,GAA6B;AAC7B,wBAAc,WAAd,GAA4B;AAE5B,aAAe,MAAU,oBAAc,aAAW,CAAC,IAAK,QAAS,mBAAf;AAClD,gBAAW,oBAAc,uBAAzB;AAjBO;AAAoB;AAvrB7B,mBAifc;AAMH,sBAAG;AAED,wBACT,qLAiDqL,GAhDrL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,qLADqL,GAErL,8EADqL;AAIvL;AACA;AAIkB;AAAX;AAGT;AAHS;AAAW;AAQC;AAAZ;AAEP,eAAU,0BAAa,CAAC,OAAO,KAAI,OAAO,cAAC,4CAAD,CAAnB;AACvB,eAAU,0BAAa,CAAC,OAAO,KAAI,GAAG,cAAC,4CAAD,CAAf;AAHhB;AAAY;AA2wCI;AAEzB;AACA;AAHyB;AAt1CX;AA2mFd;AACE,sBAAa;AADf;AA5lGA,GAifc,iDAjfd;AGHA,mBAIS,UAJT;;;;AAOY,oBAAG,CAAC,eAAc,GAAC,CAAD;AAClB,oBAAG;AACJ,mBAAK;AACL,mBAAK;AAsMA;AAEhB;AAFgB;AAKA;AAEhB;AAFgB;AAKI;AAEpB;AACA;AACA;AAJoB;AAOA;AAEpB;AACA;AACA;AAJoB;AA3LL;AAkMC;AAAP;AAEP;AAGA,SAAI,aAAQ,CAAC,GAAG,MAAJ;AACZ,aAAQ,UAAK,CAAC,MAAM,GAAC,EAAR,CAAW,GAAC,EAAD;AANjB;AAAO;AASM;AAAb;AAEP;AAGA,SAAM,aAAQ,CAAC,GAAI,CAAC,MAAN;AACd,QAAG,MAAO,GAAE,CAAZ;AACE,eAAU,cAAG,CAAQ,CAAN,MAAM,GAAC,EAAD,CAAK,GAAE,GAAf,CAAmB,GAAC,EAAD;AAEhC,mBAAU,cAAG,CAAQ,CAAN,MAAM,GAAC,EAAD,CAAK,GAAE,GAAf,CAAmB,GAAC,EAAD;AAT3B;AAAa;AAYR;AAAL;AAGP;AAAG;AAGH;AACE,WAAM,CAAD,CAAC,GAAC,aAAD,CAAO,GAAC,CAAD;AACb,WAAI,gBAAG,CAAC,EAAD,CAAI,GAAC,gBAAG,CAAE,CAAD,CAAC,GAAC,aAAD,CAAO,GAAC,CAAV,CAAJ;KAFb,QAGQ,EAAF,EAAE,GAAC,CAAD,CAHR;AAIA,aAA6B,CAArB,SAAI,CAAG,CAAF,CAAC,CAAC,GAAC,QAAE,CAAC,EAAD,CAAH,CAAO,GAAC,EAAX,CAAiB,GAAF,EAAD,GAAI,MAAD,CAAO,GAAC,IAAD;AAV7B;AAAK;AAcM;AAAX;AAEP,aAAQ,iBAAM,CAAC,QAAG,CAAC,KAAK,GAAC,GAAP,CAAJ,CAAgB,GAAC,QAAG,CAAC,IAAI,KAAL,CAAJ;AAFvB;AAAW;AAMA;AAAX;AAGP;AAEA,QAAG,KAAK,GAAC,GAAT;AACE,UAAG;AAEH,cAAG;AACL,aAAQ,iBAAM,CAAC,QAAG,CAAC,KAAK,GAAC,GAAP,CAAJ,CAAgB,GAAC,CAAD;AATvB;AAAW;AAjOR;AAGG,uBAAG,CAAC;AACR,mBAAG;AACC,uBAAG;AA2OH;AAAN;AAEP,QAAG,OAAO,KAAC,CAAX,EACE,UAAS,KADX;AAEA,aAAQ,QAAG,CAAC,CAAD,CAAG,IAAE,OAAF;AAJP;AAAM;AAOA;AAAN;AAEP,aAAQ,QAAG,CAAC,CAAD,CAAG,IAAE,KAAF;AAFP;AAAM;AAKI;AAEnB;AAFmB;AAKD;AAAT;AAEP,QAAI,OAAO,KAAC,GAAZ,EACE,UAAS,QAAG,CAAC,QAAG,CAAC,QAAG,CAAC,CAAD,EAAI,QAAG,CAAC,CAAD,CAAX,CAAe,GAAC,KAAD,CAAiB,KAApC,CADd;AAEA,QAAI,CAAC,GAAC,CAAN;AACE,eAAW,CAAD,CAAC,GAAC,CAAD,CAAG,IAAE,OAAF;AAEd,mBAAW,CAAD,CAAC,GAAC,CAAD,CAAG,IAAE,OAAF;AAPT;AAAS;AA0DF;AAEd,UAAG,QAAG,CAAC,CAAD,CAAN;AACA,UAAG,QAAG,CAAC,CAAD,CAAN;AAHc;AAMH;AAAJ;AAGP,aAAQ,QAAE,CAAC,CAAD,CAAG,GAAC,QAAE,CAAC,IAAD,CAAH;AAHN;AAAI;AAnDA;AAAJ;AAIP,aAAQ,gBAAK,CAAC,SAAM,CAAC,CAAD,CAAP;AAJN;AAAI;AAOC;AAAL;AAIP,aAAQ,gBAAK,CAAC,UAAO,CAAC,CAAD,CAAR;AAJN;AAAK;AAOC;AAAN;AAGP,aAAQ,gBAAK,CAAC,SAAM,CAAC,CAAD,CAAP;AAHN;AAAM;AAMC;AAAP;AAGP,aAAQ,gBAAK,CAAC,SAAM,CAAC,CAAD,CAAP;AAHN;AAAO;AA2DF;AAAL;AAGN,aAAQ,CAAC,GAAC,aAAQ,CAAC,IAAI,CAAL,CAAT;AAHH;AAAK;AArDC;AAGb,iBAAU,CAAV;AACA,QAAI,CAAC,KAAE,CAAP,EACE,IAAI,QAAG,CAAC,CAAD,CAAG,GAAC,GAAX;AACE;AACE,YAAG,CAAC,GAAC,CAAD;AAhQiD,gBAiQrD,KAjQqD,QAiQrD,SAAG,CAAH;OAFF,QAGa,EAAN,QAAG,CAAC,CAAD,CAAG,IAAE,GAAF,CAHb;AAKA,iBAAO,QAAG,CAAC,CAAD,CAAG,IAAE,CAAf;AAEE,UAAG,CAAC,GAAC,CAAD;AAtQiD,cAuQrD,KAvQqD,QAuQrD,SAAG,CAAH;KAVN;AAYA,iBAAU,CAAV;AAhBa;AA+BD;AAAL;AAGP;AAGA,QAAI,CAAC,IAAE,GAAP;AACE,eAAQ,QAAE,CAAC,GAAG,GAAC,CAAL;;AAGV,UAAG,GAAG,GAAC,CAAD;AACN,UAAI,CAAC,KAAC,GAAN;AACE,iBAAQ;;AAGR,iBAAQ,QAAE,CAAC,CAAD;AACV,YAAG,CAAC,GAAC,GAAL,EACE,SAAQ,MAAM,GAAY,CAAT,CAAD,CAAC,GAAG,CAAD,CAAC,GAAC,GAAD,CAAH,CAAS,GAAC,CAAD,CAD5B;;;AAhBG;AAAK;AA6BG;AAAR;AAGP;AAGA,QAAS,CAAL,IAAK,KAAE,GAAF,CAAO,IAAc,CAAT,QAAS,KAAE,CAAF,CAA9B;AACE,eAAQ;;AAGR,UAAG,QAAG,CAAC,QAAD;AACN,eAAQ;AACR,aAAM,CAAC,GAAC,CAAR;AAEE,eAAS,CAAF,CAAE,GAAI,CAAJ,CAAM,KAAC,CAAhB;AAEE,cAAG,CAAE,KAAI,CAAJ;AACL,iBAAM,gBAAG,CAAC,IAAD;;AAEX,YAAG,CAAC,GAAC,CAAD;AACJ,iBAAQ,MAAM,GAAC,IAAD;;AAEhB,UAAG,QAAQ,GAAC,CAAZ,EACE,SAAQ,GAAG,GAAC,MADd;;AAtBK;AAAQ;AA2BD;AAEd,QAAG,QAAS,GAAE,CAAd;AAEE,iBAAU,CAAC;AACX,iBAAQ,CAAW,UAAT,QAAS,GAAI,OAAJ,CAAnB;AACA,oBAAW,CAAU,CAAR,QAAQ,GAAQ,CAAN,YAAM,GAAC,OAAD,CAAR,CAArB;;AAIA,iBAAiB,UAAT,QAAS,GAAI,OAAJ,CAAjB;AACA,oBAAW,QAAQ,GAAQ,CAAN,YAAM,GAAC,OAAD,CAA3B;;AAXY;AAgBA;AAGd,QAAG,QAAS,GAAE,CAAd;AAEE,iBAAU,CAAC;AACX,iBAAQ,CAAW,UAAT,QAAS,GAAI,OAAJ,CAAnB;AACA,oBAAW,CAAU,CAAR,QAAQ,GAAQ,CAAN,YAAM,GAAC,OAAD,CAAR,CAArB;;AAIA,iBAAiB,UAAT,QAAS,GAAI,OAAJ,CAAjB;AACA,oBAAW,QAAQ,GAAQ,CAAN,YAAM,GAAC,OAAD,CAA3B;;AAZY;AAiBA;AAEd,eAAiB,UAAT,QAAS,GAAI,OAAJ,CAAjB;AACA,kBAAW,QAAQ,GAAQ,CAAN,YAAM,GAAC,OAAD,CAA3B;AAHc;AAOA;AAId,QAAG,QAAS,GAAE,CAAd;AAEE,iBAAU,CAAC;AACX,iBAAQ,CAAW,UAAT,QAAS,GAAI,OAAJ,CAAnB;AACA,oBAAW,CAAU,CAAR,QAAQ,GAAQ,CAAN,YAAM,GAAC,OAAD,CAAR,CAArB;;AAIA,iBAAiB,UAAT,QAAS,GAAI,OAAJ,CAAjB;AACA,oBAAW,QAAQ,GAAQ,CAAN,YAAM,GAAC,OAAD,CAA3B;;AAbY;AAoBC;AAAR;AAGP,aAAQ,GAAG,GAAI,CAAF,OAAE,GAAC,KAAD,CAAJ;AAHJ;AAAQ;AAOA;AAAR;AAGP,aAAQ,GAAG,GAAO,CAAL,KAAK,GAAC,OAAD,CAAP;AAHJ;AAAQ;AAOC;AAAT;AAGP,aAAQ,IAAI,GAAI,CAAF,OAAE,GAAC,KAAD,CAAJ;AAHL;AAAS;AAOA;AAAT;AAGP,aAAQ,GAAG,GAAO,CAAL,KAAK,GAAC,OAAD,CAAP;AAHJ;AAAS;AAOA;AAAT;AAGP,aAAQ,GAAG,GAAO,CAAL,KAAK,GAAC,KAAD,CAAP;AAHJ;AAAS;AAOA;AAAT;AAGP,aAAQ,IAAI,GAAO,CAAL,KAAK,GAAC,KAAD,CAAP;AAHL;AAAS;AAOC;AAAV;AAGP,aAAS,CAAK,GAAH,OAAD,GAAK,KAAD;AAHP;AAAU;AAOA;AAAV;AAGP,aAAQ,GAAG,GAAG,CAAD,CAAC,GAAG,CAAD,CAAC,GAAC,OAAD,CAAH,CAAH;AAHJ;AAAU;AAOE;AAAZ;AAGP,aAAQ,GAAG,GAAa,CAAZ,cAAG,CAAC,GAAG,GAAC,GAAL,CAAS,GAAC,GAAD,CAAb;AACX,QAAI,MAAM,GAAC,CAAX,EAAmB,SAAQ,MAAM,GAAC,GAAlC;AAJO;AAAY;AAkBR;AAAJ;AAEP,aAAQ,SAAI,CAAC,kBAAY,CAAC,IAAD,CAAb;AAFL;AAAI;AAqBA;AAAJ;AAGP;AAGA,QAAS,WAAC,IAAD;AACT,QAAG,CAAC,KAAC,CAAL;AACE,eAAQ;AAER,mBAAQ,QAAG,CAAC,IAAD,CAAM,GAAC,CAAD;AAVZ;AAAI;AAZD;AAAH;AAGP;AAAE;AAGF,QAAS,WAAC,IAAD;AACT,aAAQ;AACR,aAAO,QAAM,OAAD,CAAC,GAAC,CAAD,kBAAb;AAAI;AACF,eAAQ,MAAM,GAAC,IAAI,CAAC,CAAD,CAAL;;AATT;AAAG;AAwBY;AAItB;AAAE;AACF;AAAE;AAAE;AAGJ,QAAS,WAAC,IAAD;AACT,SAAI;AACJ,QAAG;AACH,aAAO,QAAM,OAAD,CAAC,GAAC,CAAD,kBAAb;AAAI;AAEF,UAAG,IAAI,CAAC,CAAD;AACP,WAAI,EAAE,GAAC,gBAAG,CAAC,CAAD,CAAJ;AACN,UAAG,CAAC,GAAC,CAAD;;AAEN,YAAK,CAAL;AACA,qBAAc,EAAd;AAlBsB;AAqBT;AAAN;AAGP,aAAQ,SAAI,CAAC,aAAQ,CAAC,IAAD,CAAT;AAHL;AAAM;AAmCQ;AAGrB;AAAE;AACF;AAAE;AAGF,QAAS,WAAC,IAAD;AACT,QAAG;AACH,QAAG;AACH,aAAO,QAAM,OAAD,CAAC,GAAC,CAAD,kBAAb;AAAI;AAEF,UAAG,CAAC,GAAC,IAAI,CAAC,CAAD,CAAL;AACJ,UAAG,CAAC,GAAC,gBAAG,CAAC,IAAI,CAAC,CAAD,CAAL,CAAJ;;AAEN,QAAG,CAAC,GAAC,CAAD;AACJ,QAAI,CAAC,GAAE,CAAD,CAAC,GAAC,gBAAG,CAAC,CAAD,CAAJ,CAAF;AACL,QAAG,CAAC,GAAC,CAAL;AACE,UAAG,SAAI,CAAC,CAAC,GAAG,CAAD,CAAC,GAAC,CAAD,CAAL;AAEP,cAAG;AACL,aAAM,CAAN;AACA,eAAQ,CAAR;AAtBqB;AA7BN;AAAR;AAGP;AAGA,QAAS,WAAC,IAAD;AACT,QAAG,CAAC,KAAC,CAAL;AACE,eAAQ;AAER,mBAAQ,kBAAa,CAAC,IAAD,CAAM,GAAG,CAAD,CAAC,GAAC,CAAD,CAAH;AAVtB;AAAQ;AAaK;AAAb;AAGP;AAAE;AACF;AAEA,QAAS,WAAC,IAAD;AACT,QAAS,WAAC,IAAD,CAAM,KAAC,CAAhB;AACE,eAAQ;;AAGR,yBAAc,CAAC,KAAK;;;;WAAE;;;;UAAR;AACd,eAAU,EAAE,GAAO,CAAN,gBAAG,CAAC,CAAD,CAAG,GAAC,CAAD,CAAP;;AAZP;AAAa;AAyCH;AAAV;AAGP,aAAQ,SAAI,CAAC,iBAAY,CAAC,IAAD,CAAb;AAHL;AAAU;AAME;AAAZ;AAGP;AAGA,QAAS,WAAC,IAAD;AACT,QAAG,CAAC,KAAC,CAAL;AACE,eAAQ;AAER,mBAAQ,kBAAa,CAAC,IAAD,CAAM,GAAC,CAAD;AAVtB;AAAY;AAaO;AAG1B;AAAE;AACF;AAAW;AACX;AAEA;AAAK;AAAK;AAAK;AAAK;AAAO;AAG3B,QAAS,WAAC,IAAD;AACT,UAAO;AACP,kBAAe,CAAC,GAAC,CAAD;AAChB,aAAS,QAAM,OAAD,CAAC,GAAC,CAAD,kBAAf;AAAI;AACF,YAAO,GAAI,GAAE,IAAI,CAAC,CAAD,CAAN;;AACb,UAAO,WAAY,GAAE,GAAF;AAEnB,UAAO;AACP,UAAO;AACP,UAAO;AACP,aAAS,SAAM,QAAD,CAAC,GAAC,CAAD,qBAAf;AAAI;AAEF,kBAAc,IAAI,CAAC,CAAD,CAAG,GAAC,GAAD;AACrB,mBAAc,SAAU,GAAE,SAAF;AACxB,YAAO,GAAI,GAAE,UAAF;AACX,YAAO,GAAI,GAAa,CAAX,UAAW,GAAE,SAAF,CAAb;AACX,YAAO,GAAI,GAAa,CAAX,UAAW,GAAE,UAAF,CAAb;;AAEb,UAAO,WAAY,GAAE,GAAF;AACnB,UAAO,WAAY,GAAE,GAAF;AACnB,UAAO,WAAY,GAAE,GAAF;AAEnB,YAAS,GAAI,GAAY,CAAT,SAAI,CAAC,GAAD,CAAK,GAAC,GAAD,CAAZ;AACb,gBAAa,GAAI,GAAO,CAAJ,GAAI,GAAE,GAAF,CAAP;AAEjB,WAAI,GAAJ;AACA,WAAI,GAAJ;AACA,WAAI,GAAJ;AACA,WAAI,GAAJ;AACA,aAAM,KAAN;AACA,iBAAU,SAAV;AAxC0B;AAnjBd;;AAkmBM;AAAX;AAGP;AAAG;AAAI;AAEP,QAAG,KAAM,KAAE,CAAX;AACE,eAAU,CAAC,aAAc,GAAW,CAAT,QAAS,GAAE,QAAF,CAAX;;AAEzB,UAAK,GAAI,GAAE,KAAF;AACT,WAAM,QAAK,CAAC,EAAG,QAAJ;AACX,eAAc,CAAH,EAAG,GAAE,CAAF,CAAK,GAAK,CAAF,CAAE,GAAE,CAAF,CAAL;AACnB,UAAG,YAAa,KAAE,iCAAlB,EACE,SAAU,MAAO,GAAE,CADrB;AAEA,eAAU,CAAqB,CAAL,CAAd,aAAc,GAAE,EAAF,CAAK,GAAU,CAAR,QAAQ,GAAC,MAAD,CAAV;;AAb1B;AAAW;AA0Bb,cAAG;AACL,YAAG;AACD,cAAG;AAXW;AAAZ;AAaP;AAAI;AAAI;AACR;AAAK;AACL;AAEA,gBAAa;AACb,SAAM;AACN;AACE,WAAM,EAAG,GAAE,IAAF;AACT,YAAO,gBAAW,CAAC,GAAI,SAAU,SAAU,cAAe,YAAxC;AAClB,YAAO,gBAAW,CAAC,GAAI,SAAU,SAAU,cAAe,YAAxC;AAClB,WAA2B,CAAP,CAAb,YAAa,GAAE,GAAF,CAAO,GAAO,CAAJ,GAAI,GAAE,GAAF,CAAP,CAAc,GAAE,IAAF;AACzC,WAAM,EAAG,GAAE,EAAF;AACL,eAAJ,IAAG;KANL,QAOsB,EAAP,CAAR,QAAG,CAAC,EAAD,CAAK,GAAE,IAAF,CAAO,IAAc,CAAV,SAAU,IAAG,EAAH,CAAd,CAPtB;AAQA,aAAU;AA3BH;AAAY;AA8BG;AAAf;AAIP;AAAG;AAAI;AAEP,QAAG,KAAM,KAAE,CAAX;AACE,eAAU,CAAgB,CAAd,aAAc,GAAE,YAAF,CAAgB,GAAE,QAAF;;AAE1C,UAAK,GAAI,GAAE,KAAF;AACT,UAAG,YAAa,KAAE,iCAAlB,EACE,WAAY,QAAS,GAAE,CADzB;AAEA,WAAM,QAAS,GAAe,CAAb,YAAa,GAAE,KAAF,CAAf;AACf,WAAM,QAAS,GAAgB,CAAd,aAAc,GAAE,KAAF,CAAhB;AACf,UAAS,CAAH,EAAG,KAAE,CAAF,CACP,IAAwB,CAAX,CAAT,SAAI,CAAC,EAAD,CAAK,GAAE,SAAI,CAAC,EAAD,CAAN,CAAW,GAAE,CAAF,CAD1B;AAGE,iBAAU;;AAEV,iBAAU,QAAE,CAAC,EAAE,GAAC,EAAJ,CAAQ,GAAE,QAAE,CAAC,CAAD,CAAJ;;;AAnBjB;AAAe;AAwBR;AAAP;AAGP;AAAG;AAAI;AAEP,QAAG,KAAM,KAAE,CAAX;AACE,eAAU,CAAe,CAAb,YAAa,GAAE,aAAF,CAAiB,GAAE,QAAF;;AAE1C,UAAK,GAAI,GAAE,KAAF;AACT,WAAM,QAAK,CAAC,EAAG,QAAJ;AACX,eAAc,CAAH,EAAG,GAAE,CAAF,CAAK,GAAK,CAAF,CAAE,GAAE,CAAF,CAAL;AACnB,UAAG,YAAa,KAAE,iCAAlB,EACE,SAAU,MAAO,GAAE,CADrB;AAEA,eAAU,CAAe,CAAb,YAAa,GAAgB,CAAd,aAAc,GAAE,EAAF,CAAhB,CAAsB,GAAE,MAAF;;AAb1C;AAAO;AAiBK;AAAZ;AAGP;AAAG;AAAI;AAEP,QAAG,KAAM,KAAE,GAAX;AACE,eAAU,CAAC,YAAa,GAAW,CAAT,QAAS,GAAE,QAAF,CAAX;;AAExB,UAAK,GAAI,GAAE,KAAF;AACT,WAAM,QAAK,CAAC,EAAG,QAAJ;AACX,eAAc,CAAH,EAAG,GAAE,CAAF,CAAK,GAAK,CAAF,CAAE,GAAE,CAAF,CAAL;AACnB,UAAG,YAAa,KAAE,iCAAlB,EACE,SAAU,MAAO,GAAE,CADrB;AAEA,eAAU,CAAe,CAAb,YAAa,GAAU,CAAR,QAAQ,GAAC,MAAD,CAAV,CAAmB,GAAE,EAAF;;AAbvC;AAAY;AAqBN;AAAN;AAGP,QAAG,GAAH;AAAY,eAAQ;AAAY,mBAAQ;AAHjC;AAAM;AAMA;AAAN;AAGP,QAAG,GAAH;AAAY,eAAQ;AAAY,mBAAQ;AAHjC;AAAM;AA9rBK;AAGP,qBAAG;AACD,uBAAM;AACH,0BAAO;AA+rBJ;AAAZ;AAGP,aAAQ;AACR,QAAG,CAAC,KAAC,CAAL;AACE,eAAQ;AAET,cAAG,CAAC,GAAC,CAAL,EACE,SAAQ,EADV;AAPM;AAAY;AAWA;AAAZ;AAGP,aAAQ;AACR,QAAG,CAAC,KAAC,CAAL;AACE,eAAQ;AAET,cAAG,CAAC,GAAC,CAAL,EACE,SAAQ,EADV;AAPM;AAAY;AAWA;AAAZ;AAGP,aAAQ;AACR,QAAG,CAAC,KAAC,CAAL;AACE,eAAQ;AAET,cAAG,CAAC,GAAC,CAAL,EACE,SAAQ,EADV;AAPM;AAAY;AAWA;AAAZ;AAEP,aAAQ;AACR,QAAG,QAAG,CAAC,CAAC,GAAC,CAAH,CAAK,IAAE,KAAb;AACE,eAAQ;AAET,cAAG,CAAC,GAAC,CAAL,EACE,SAAQ,EADV;AANM;AAAY;AAntBJ;AAAR;AAEP;AAEA,aAAU,IAAI,CAAI,CAAJ;AACd,aAAmB,QAAW,kBAAC,IAAD,uBAA9B;AAAI;AACF,UAAG,MAAO,GAAE,IAAI,CAAC,CAAD,CAAhB,EACE,SAAU,IAAI,CAAC,CAAD,CADhB;;AANK;AAAQ;AAUA;AAAR;AAEP;AAEA,aAAU,IAAI,CAAI,CAAJ;AACd,aAAmB,QAAW,kBAAC,IAAD,uBAA9B;AAAI;AACF,UAAG,MAAO,GAAE,IAAI,CAAC,CAAD,CAAhB,EACE,SAAU,IAAI,CAAC,CAAD,CADhB;;AANK;AAAQ;AAUG;AAAX;AAEP;AAEA,aAAU,KAAK,CAAI,CAAJ;AACf,aAAyB,QAAW,kBAAC,KAAD,uBAApC;AAAI;AAEF,UAAG,MAAO,GAAE,KAAK,CAAC,MAAD,CAAjB,EACE,SAAU,KAAK,CAAC,MAAD,CADjB;;AAPK;AAAW;AApMpB,mBA8Kc;AAgHG,4BAAG;AA4QC;AAAZ;AAEP;AAAE;AAGF,UAAS,WAAC,IAAD;AACT,eAAQ;AACR,eAAO,QAAM,OAAD,CAAC,GAAC,CAAD,kBAAb;AAAI;AACF,iBAAQ,MAAM,GAAC,gBAAG,CAAC,IAAI,CAAC,CAAD,CAAL,CAAJ;;AART;AAAY;AA5XP;AA9Kd;ACAA,mBAKS,wDALT;;;;AAiBQ;AAEJ;AACA;AACA;AAJI;aAEJ,gCACA,IAAA,wBACA,8DADA;AAHI;;AAEJ;AACA;AACA;AAJI;;AA6nCe;AAAP;AAEd,UAAG,2BAAH;AACE,iBAA6B,UAAM;AAEnC,qBAAU;AALE;AAAO;AAgBG;AAAV;AAEd,UAAY,CAAR,cAAQ,KAAC,IAAD,CAA6B,IAAZ,CAAP,cAAO,IAAC,SAAD,CAAX,IAAkC,CAAP,cAAO,IAAC,IAAD,CAApD,EACM,OAAC,IADP;AAEa,iBAAR,cAAQ;AACb,UADa,IACb;AACE,iBAAQ,qBAAc,KAAC,CAAD;;AAEtB,iBAAQ;;AARI;AAAU;AAjZC;AAAX;AAEd,UAAG,cAAQ,KAAC,IAAZ;AACE,iBAAQ;AAER,qBAAQ,cAAS;AALL;AAAW;AAyYH;AAEtB,UAAG,2BAAH;AACqB,kBAAM,IAAK,CAAC,KAAD;AAE9B,yBAAS;AALW;AAyBG;AAAL;AAEpB,YAAM,QAAQ,CAAC,IAAD;AACd,YAAM,UAAN,GAAoB;AAHA;AAAK;AApPI;AAAT;AAEpB;AAIA;AAEA;AAGA,UAAG,QAAQ,KAAM,KAAG,+BAApB,EACE,MAAM,yBAAY,QAAC,YAAM,CAAC,iCAAD,CAAN,CADrB;AAGA,oBAAe,QAAW;AAC1B,iBAAqB,IAAT,KAAS;AACrB,cAAQ,OAAR,GAAyB,WAAC,MAAD;AAEzB,eAAS,QAAS,kBAAC,MAAD,uBAAlB;AAAI;AACF,gBAAS,GAAT,GAAe,MAAM,CAAC,CAAD,CAAG,KAAK,CAAC,YA75BsC,IA65BvC,CAAa;;AAE5C,YAAM,QAAQ,CAAC,QAAD;AACd,YAAM,UAAN,GAAoB;AAtBA;AAAS;AAxCE;AAAX;AAEpB;AACA;AAGa,iBAAR,MAAQ,CAAC,CAAD;AACX,UADW,IACX;AACE,YAAM,gBAAS,CAAC,CAAD,CAAf;AAEE,cAAY,UAAC,CAAD;AACZ,cAAK,CAAD,CAAC,IAAK,WAAL,CAAgB,IAAM,CAAD,CAAC,IAAM,UAAN,CAA3B;AACE;AAEA;SAGF;AACJ,gBAZW,IAYX;AAAW;AACX,gBAbW,IAaX;AAAW;AACX,gBAdW,IAcX;AACE,YAAG,CAAC,IAAC,IAAL;AACM,iBAAQ;AACT,kBAAM,cAAO,CAAC,CAAD,CAAI,IAAO,SAAK,CAAC,EAAE,kBAAH,CAA7B;AACH,wBAAmC,cAAC,CAAD,CAAP;AACzB,kBAAM,YAAQ,CAAC,CAAD,CAAI,IAAO,SAAK,CAAC,EAAE,kBAAH,CAA9B;AACH,wBAAoC,cAAC,CAAD,CAAR;AACzB,kBAAG,eAAQ,CAAC,CAAD,CAAX;AACH,wBAAoC,cAAC,CAAD,CAAR;AACzB,kBAAG,KAAQ,QAAQ,CAAC,CAAD,CAAnB;AACH,wBAAoC,cAAC,CAAD,CAAR;AAE5B,oBAAM,yBAAY,QAAC,YAAM,CAAC,qCAAD,CAAN;;AAErB;;AAGJ,sBAAI,CAAC,EAAG,YAAa,MAAjB;AArCgB;AAAW;AAiEA;AAAX;AAEpB,UAAc,CAAV,SAAU,KAAE,IAAF,CAAO,IAAG,CAAoB,CAAf,SAAS,KAAM,IAAG,cAAC,4BAAQ,mCAAe,8BAAxB,CAAH,CAA5C,EACE,MAAM,yBAAY,QAAC,YAAM,CAAC,6BAAD,CAAN,CADrB;AAGA,UAAG,SAAS,KAAM,KAAE,2BAApB;AACS,wBAAI,CAAC,MAAO,IAAE,IAAF,CAAQ,UAAW,MAA3B;AAEX,YAAO,gBAAI,CAAU,UAAC,MAAD,EAAU,UAAW,MAA/B;AARO;AAAW;AAlLN;AAEzB,YAAM,MAAN,GAAgB;AAChB,YAAM,UAAN,GAAoB;AAHK;AAqPF;AAAT;AAEd,UAAI,kBAAK,KAAE,2BAAX;AACE,iBAAe,EAAC,cAAD;AAEf,kBAAM,yBAAY,QAAC,YAAM,CAAC,kDAAD,CAAN;AALP;AAAS;AArBF;AAAP;AAEd,UAAG,cAAH;AACE,iBAAgB,cAAC,cAAD;AAEhB,kBAAM,yBAAY,QAAC,YAAM,CAAC,kDAAD,CAAN;AALP;AAAO;AAuEG;AAAV;AAEd,UAAM,YAAQ,CAAC,cAAD,CAAd;AACE,iBAAc,cAAC,cAAD;AAEd,kBAAM,yBAAY,QAAC,YAAM,CAAC,kDAAD,CAAN;AALP;AAAU;AA1CD;AAAT;AAEd,UAAM,gBAAS,CAAC,cAAD,CAAf;AACE,iBAAiB,UAAC,cAAD;AAEjB,kBAAM,yBAAY,QAAC,YAAM,CAAC,kDAAD,CAAN;AALP;AAAS;AAgBE;AAAX;AAEd;AACG;AAHsB;AAIzB,YAAG;AACH,YAAG,CAAE,KAAE,gCAAP;AACE,uCAAoB,cAAC,cAAD,CAApB;AACG,kBAAM,CAAF,CAAE,IAAG,cAAC,6BAAS,gCAAY,8BAAtB,CAAH,CAAqC,IAAI,CAAO,YAAQ,CAAC,cAAD,CAA9D;AACH,uCAAU,IAAV;AAEA,oBAAM,yBAAY,QAAC,YAAM,CAAC,kDAAD,CAAN;AAPlB;AAHsB;AAGtB;AAHsB;AAAX;AAAW;AA2HF;AAAT;AAEd,eAAU;AAFI;AAAS;AAnIE;AAAX;AAEd,UAAM,gBAAS,CAAC,cAAD,CAAf;AACE,iBAAiB,UAAC,cAAD;AAEjB,kBAAM,yBAAY,QAAC,YAAM,CAAC,kDAAD,CAAN;AALP;AAAW;AAnEH;AAAR;AAEd,UAAG,eAAS,IAAY,CAAR,cAAQ,IAAI,CAAO,YAAQ,CAAC,cAAD,CAAnB,CAAxB;AACE,iBAAiB,cAAC,cAAD;AAEjB,kBAAM,yBAAY,QAAC,YAAM,CAAC,kDAAD,CAAN;AALP;AAAQ;AA2CC;AAAT;AAEd,UAAG,gBAAH;AACE,iBAAiB,UAAC,cAAD;AAEjB,kBAAM,yBAAY,QAAC,YAAM,CAAC,kDAAD,CAAN;AALP;AAAS;AA6CD;AAAR;AAEd,UAAM,YAAQ,CAAC,cAAD,CAAd;AACE,iBAAc,KAAC,cAAD;AAEd,kBAAM,yBAAY,QAAC,YAAM,CAAC,kDAAD,CAAN;AALP;AAAQ;AAQO;AAAf;AAEd,eAAQ;AAFM;AAAe;AAvRX;AAAJ;AAEd,UAAG,CAAI,YAAO,CAAC,UAAW,OAAQ,cAApB,CAAd,EACE,MAAM,yBAAY,QAAC,YAAM,CAAC,EAAD,CAAN,CADrB;AAFc;AAAI;AAWE;AAAN;AAEd;AAGA,eAAU,YAAO,CAAC,UAAW,SAAU,cAAtB;AALH;AAAM;AA6SS;AAAf;AAEd,UAAG,cAAH;AAEO;AACH,YADG,IACH;AAAS,gBAAM,UAAN,GAAuC,cAAU;AAC1D,kBAFG,IAEH,sCAAY,MAAM,UAAN,GAAoC,cAAU,OAA1D;AAGF,cAAM,QAAQ,CAAkB,cAAQ,CAAC,MAAD,CAA1B;OAGd,YAAM,yBAAY,QAAC,YAAM,CAAC,kDAAD,CAAN;AAZP;AAAe;AARD;AAAd;AAEd,UAAG,cAAH,EACM,OAAO,WAAkB,cAAlB,CADb;AAGA,YAAM,yBAAY,QAAC,YAAM,CAAC,kDAAD,CAAN;AALL;AAAc;AA5GP;AAAP;AAET;AACH,UADG,IACH;AAAgB,eAAC;AACjB,gBAFG,IAEH;AAAa,eAAO,WAAsB,cAAU,KAAhC,CAAuC,KAAE,CAAF;;AACtD,iBAAU;;AALH;AAAO;AASA;AAAP;AAEd;AAEA,UAAG;AACH,eAAa,CAAF,CAAE,KAAE,+BAAF,CAAc,IAA+B,CAAxB,CAAF,CAAE,IAAG,cAAC,6BAAQ,8BAAT,CAAH,CAAwB,IAAI,CAAO,YAAQ,CAAC,cAAD,CAAnB,CAA/B;AALb;AAAO;AA3BC;AAAR;AAEd,eAAQ,iBAAQ,IAAiB,CAAb,cAAQ,KAAK,KAAC,4BAAD,CAAjB;AAFF;AAAQ;AAaQ;AAAhB;AAEd,eAAiB,CAAR,cAAQ,KAAE,IAAF,CAAO,IAAkB,CAAb,cAAQ,KAAK,KAAC,4BAAD,CAAlB;AAFV;AAAgB;AA8BP;AAAT;AAEd,eAAU,iBAAQ,IAAS,CAAL,kBAAK,IAAG,cAAC,4BAAQ,+BAAW,4BAAQ,kCAA5B,CAAH,CAAT;AAFJ;AAAS;AA+HH;AAAN;AAEd,eAAU,SAAU,KAAE,cAAF;AAFN;AAAM;AAxDE;AAAR;AAET;AACH,UADG,IACH;AAAU,iBAAU;AACpB,gBAFG,IAEH;AAAW,iBAAU,qBAAQ,CAAC,kBAAD;AAC7B,gBAHG,IAGH;AAAQ,iBAAU,sBAAS,CAAC,iBAAW,IAAZ;AAC3B,gBAJG,IAIH;AAAS,iBAAU,uBAAU,CAAC,iBAAD;;AAE7B,iBAAU;;AARE;AAAQ;AA9PD;;AAAP;AAEa;AAAlB;AAEO,mBAAT,SAAS;AACZ,YADY,IACZ;AAAc,iBAAC,cAAC,4BAAQ,6BAAT;AAEf,kBAHY,IAGZ;AAAc,iBAAC,cAAC,+BAAW,6BAAZ;AAEf,kBALY,IAKZ;AAAmB,iBAAC,cAAC,+BAAW,kCAAZ;;AAEX,iBAAC,cAAC,SAAS,KAAV;;AATL;AAAkB;AAc3B,UAAG,cAAe,IAAI,iBAAtB;AAEE,wBAAkB,YAAlB;AAEA,YAAG,SAAU,KAAG,IAAhB;AAEE,iBAAO,UAAP,GAAqB;AAEP,qBAAT,SAAS;AACZ,cADY,IACZ;AAAQ,mBAAO,QAAQ,CAAC,KAAD;AACvB,oBAFY,IAEZ;AAAQ,mBAAO,QAAQ,CAAC,MAAD;AACvB,oBAHY,IAGZ;AAAU,mBAAO,QAAQ,CAAC,qBAAD;AACzB,qBAJY,IAIZ,uCACA,CALY,IAKZ,wCADA,IAEA,CANY,IAMZ,oCAFA,EAEW,OAAO,QAAQ,CAAC,CAAD,CAF1B;AAKE,iBAAC;SAbP;OAJF;AAqBA,UAAG,CAAI,cAAe,IAAe,CAAV,cAAU,KAAE,IAAF,CAArC,EACM,OAAC,KADP;AAGA,UAAG,cAAU,KAAE,SAAf;AAEE,wBAAW,KAAX;AACI,eAAC;OAHP;AAMA,UAAG,SAAU,KAAE,IAAf,EACM,OAAC,KADP;AAGA,UAAG,SAAU,KAn3BP,oBAm3BN;AAES,iBAAI,CAAC,MAr3BR,qBAq3BuC,OAAhC;AACP,eAAC;OAHP;AAMA,eAAU,cAAQ,KAAM,IAAG,oBAAH;AAExB,UAAG,MAAH;AAEE,eAAO,QAAQ,CAAC,UAAD;AACf,eAAO,UAAP,GAAqB;OAHvB;AAzDc;AAAO;AA6SS;AAG9B,UAAG,cAAH;AACmB,sBAAQ,CAAC,MAAD,CAAzB,GAAqC,MAAM;AAE3C,kBAAM,yBAAY,QAAC,YAAM,CAAC,kDAAD,CAAN;AANS;AAZD;AAE7B;AAGA,iBAA6B;AAEnB,cAAD,sBAAC,mBAAU,IAAX;AAET,kBAAO,CAAC,QAAD;AATsB;AAvVG;;AAEhC,sBAAI,CAAC,iBAA2B,MAA5B;;AAF4B;;;AAEhC,sBAAI,CAAC,kBAA2B,MAA5B;;AAF4B;;;AAEhC,sBAAI,CAAC,kBAA2B,MAA5B;;AAF4B;;;AAEhC,sBAAI,CAAC,iBAA2B,MAA5B;;AAF4B;AA5wB1B;AAWgB,8BAXhB,GAWgB;AAEI,gCAAS,YXE1B,8BWF0B,EAAyB,UhB0D9C,wCgB1D8C,EAAlC,EAbpB,GAaoB;AACE,kCAAE,iBAAF,EAdtB,GAcsB;AACA,kCAAU,aXA7B,8BWA6B,EAAmB,sBAA7B,EAftB,GAesB;AACN,2BAAc,0BAA0B,4BAAuB,UAhB/E,GAgB+E,EAA/D;AAGF;AACF,gChBuEZ,0BgBvEY;AAEG,mChBqBb,4BgBrBa;AACD;AACE,oChById,4BgBzIc;AACF;AACE;AACH,iChBsEZ,2BgBtEY;AACC;AACD;AAEO;AACX,2BAAU,aXjBhB,8BWiBgB,EAAiC,gCAA3C,EAhCT,EAgCS;AAEE,6BAAU,aXnBlB,8BWmBkB,EAAiC,gCAA3C;AAIS,sCAAO,wBAAP,EAtCpB,EAsCoB;AACD;AACP;AACA;AACC;AACQ;AACP;AACH,+BAAU,aX9BlB,8BW8BkB,CAAV;AACE;AACD,8BAAU,aXhCnB,8BWgCmB,EAAwB,WA/C9C,GA+C8C,GAA8B,gCAAhE;AAES,sCAAO,yBAAuB,UAjDnD,GAiDmD,EAA9B;AACD,qCAAW,wBAAX;AAER;AACH,4BhBuLN,8BgBvLM;AACI,gCXvCV,+BWuCU;AAtDb;AAgPG;AAiFQ;AAgEQ;AAlUb;;;;;;;AAq8CoB;AAAN;AAErB;AAFqB;AAAM;AAKP;AAEpB;AAFoB;AAeG;AAAR;AAEpB,eAAU,UAAI,SAAS,CAAC,cAAD;AAFH;AAAQ;AAVD;AAAP;AAEpB,eAAU,UAAI,QAAQ,CAAC,SAAD;AAFF;AAAO;AAKA;AAAP;AAEpB,eAAU,UAAI,UAAQ,CAAC,MAAD;AAFF;AAAO;AAUC;AAAR;AAEpB;AAAY;AAEZ;AAGA,eAAgC,MAAd,MAAS,KAAK,CAAC,GAAD,uDAAhC;AAAI,qBAA4B,GAA5B;AAEF,sBAA+B,GAAI,YAAY;AAE/C,aAAI,SAAJ,IAAiB,WAAjB,EACE,IAAa,WAAY,WAAW,eAAe,CAAC,MAAD,CAAS,IAAkB,CAAb,SAAS,QAAC,CAAD,CAAI,KAAG,GAAH,CAA9E,EACE,YAAO,CAAW,WAAY,WAAvB,CADT;;AAIJ,eAAuC,MAAS,OAAO,CAAC,UAAI,OAAL;AAhBnC;AAAQ;AAmBU;AAEjC;AAFiC;AAKA;AAEjC;AAFiC;AAt/C1B;AAEW,+BAFX,GAEW;AACP;AAEG,+BAAqB,+BAArB,EA4KV,uBA5KU;AACD,8BAAU,yBAAV,EA2KT,uBA3KS;AACA,gCAAO,UhBqBnB,0BgBrBmB,CAAP,EA0KT,uBA1KS;AACC,iChBAL,0CgBAK;AAEU;AACA;AAXjB;AAgBD;;;AAET;AACA;AACA;AACA;AALS;;;;;;AA+/C4B;AAApB;AAEnB,eAAU;AAFS;AAAoB;AAlBX;AAE5B,qBAAW;AACX,qBAAW;AAH0D;AAAzC;AAMA;AAE5B;AAEA,eAAiB,4EAAjB;AAAI,oBAAa,GAAb;AACF,iBAAU,eAAV,SAAU;;AAEZ,yBAAe;AAEL;AATkB;AAiBI;AAAb;AAEnB,UAAG,CAAI,sBAAP;AAEE,2BAAe;AACf,iCAAqB;OAHvB;AAMA,eAAU;AARS;AAAa;AAWD;AAAZ;AAEnB;AAGA,eAAU;AAEV,eAAuB,gFAAvB;AAAI,0BAAmB,GAAnB;AACF,YAAsB,SAAH,eAAhB,eAAgB,CAAnB,EACM,OAAC,eADP;;AARiB;AAAY;AAkBA;AAAZ;AAEnB,eAAU,mBAAY,CAAC,SAAD,CAAY,KAAG,IAAH;AAFf;AAAY;AAjiDpB;AA0BK;AAmhDe;AAAP;AAExB,eAAQ;AAFgB;AAAO;AAnhDf;AASC;;AAMN;AAuiDyB;AAAjB;AAEnB,eAAgC;AAFb;AAAiB;AA5BV;AAAP;AAEnB,eAAU,wBAAc;AAFL;AAAO;AAKE;AAAT;AAEnB,eAA8B;AAFX;AAAS;AAKI;AAAb;AAEnB,eAAU;AAFS;AAAa;AAaO;AAApB;AAEnB,eAAU,6BAAiB,CAAC,wBAAc,KAAf;AAFR;AAAoB;AARX;AAE5B,UAAG,CAAe,UAAV,UAAa,eAAH,CAAlB,EACE,MAAM,yBAAY,QAAC,YAAM,CAAC,EAAD,CAAN,CADrB;AAGgB,0CAAC,QAAS,SAAV;AALyD;AAA7C;AA1hDjB;AAiBD;AAqiDoB;AAAZ;AAElB,eAAU,UAAI,QAAQ,CAAC,uBAAa,SAAd;AAFJ;AAAY;AAKI;AAAhB;AAElB,eAAqC;AAFnB;AAAgB;AAbP;AAE3B,UAAG,CAAe,UAAV,UAAa,oBAAH,CAAlB,EACE,MAAM,yBAAY,QAAC,YAAM,CAAC,EAAD,CAAN,CADrB;AAGA;AALwE;AAA7C;AAkBD;AAAR;AAKlB,qBAAiB,uBAAW,CAAC,QAAW,gBAAZ,CAA5B;AALkB;AAAQ;AAQC;AAK3B,cAAW,gBAAX,GAAoB,MAAM,KAAK,CAAC,mBAAS,UAAC,GAAQ,IAAnB,CAAwB;AAL5B;AAvjDjB;AAgBI;;;AAEZ;AACA;AACA;AAJY;;;;;;AAijDe;AAAP;AAEtB,eAAU;AAFY;AAAO;AAjjDf;AAgBH;;;AAET;AACA;AAHS;;;;;AA2kDsB;AAAd;AAEnB,eAAmB,CAAR,kCAAQ,IAAG,wBAAH,CAAsB,IAA0D,CAA/C,CAAC,oBAAD,SAA+C,IAA9B,oBAAU,sBAAC,EAAf,IAAkF,CAA3C,oBAAU,sBAAC,EAAkB,gBAAC,EAAa,KAAE,SAAF,CAAhD,CAA1D;AAFtB;AAAc;AA9BE;AAAhB;AAEnB,eAAQ,wBAAc,WAAY,IAAG,cAAC,wCAAgB,wCAAjB,CAAH;AAFf;AAAgB;AAKA;AAAhB;AAEnB,eAAQ,wBAAc,WAAW,KAAC,qCAAD;AAFd;AAAgB;AAKD;AAAf;AAEnB,eAAQ,wBAAc,WAAW,KAAC,oCAAD;AAFd;AAAe;AAKF;AAAb;AAEnB,eAAU,qCAAW,IAAG,wBAAH;AAFF;AAAa;AAoBA;AAAb;AAEnB,eAAU,qCAAW,IAAG,wBAAH;AAFF;AAAa;AAfF;AAAX;AAEnB,eAAU,mCAAS,IAAG,wBAAH;AAFA;AAAW;AAoBE;AAAb;AAEnB,eAAQ,wBAAc;AAFH;AAAa;AA7CI;AAAjB;AAEnB,eAAsC;AAFnB;AAAiB;AAoDrB,2BAAwC,EAAG,EAAG,EAAG,EAAG,EAApD;AAFqB;AAAjB;AAKnB;AAEA;AAGA,uBAAkB,wBAAc,QAAQ;AACxC,eAAU;AAEV,WAAI,OAAW,GAAX,IAAoC,OAApC,IAAoC,EAAxC,EACE,IAAyB,QAAtB,eAAe,CAAC,IAAD,EAAW,cAAJ,CAAmB,GAAE,CAA9C,EACE,SAAiB,aAAP,OAAS,cAAC,IAAD,CAAF,CADnB;AAdiB;AAAiB;AAkBJ;AAAb;AAEnB,eAAU,UAAI,QAAQ,CAAC,wBAAc,QAAQ,WAAvB;AAFH;AAAa;AAOhB,4BAAoC,EAAG,EAAG,EAAG,EAAG,GAAI,EAApD;AAFkB;AAKlC;AAEA;AAEA;AAEA;AAEA;AAGA,+BAAqB;AACrB,qBAAgB,wBAAc,QAAQ;AAE5B,sBAAD,sBAAC,sBAAmB,WAAC,YAAD,CAApB;AAET,eAAY,QAAqB,kBAAC,gBAAD,uBAAjC;AAAI;AAEF,gBAAS,YAAY,CAAC,CAAD;AACrB,oBAAa,mBAAc,QAAC,YAAM,CAAC,KAAM,KAAP,CAAN;AAC5B,iBAAS,MAAT,GAAmB,KAAK;AACxB,iBAAS,WAAT,GAAwB,UAAI,QAAQ,CAAC,KAAK,SAAN;AAEpC,aAAI,OAAW,GAAX,IAAqC,OAArC,IAAqC,EAAzC,EACE,IAA0B,QAAvB,gBAAgB,CAAC,IAAD,EAAW,KAAK,MAAT,CAAgB,GAAE,CAA5C,EACE,SAAS,OAAT,GAAqC,aAAjB,SAAS,QAAU,cAAC,IAAD,CAAF,CADvC;AAGF,wBAAW,CAAC,CAAD,CAAX,GAAkB;;AAhCc;AA3CH;AAAZ;AAEnB,eAAU,oCAAU,IAAG,wBAAH;AAFD;AAAY;AA+EC;AAAb;AAEnB,UAAG,CAAI,sBAAP,EACE,qBADF;AAGA,eAAU;AALS;AAAa;AAQP;AAAN;AAEnB;AACA;AAGA,UAAY,oBAAD,QAAX,EACE,MAAM,UAAN,GAAoB,oBAAU,UAAC,EADjC;AAGU,WAAD,sBAAC,gBAAa,WAAC,IAAD,CAAd;AAET,eAAY,QAAc,kBAAC,IAAD,uBAA1B;AAAI;AACF,aAAK,CAAC,CAAD,CAAL,GAAY,IAAI,CAAC,CAAD,CAAG;;AAErB,YAAM,QAAQ,CAAuB,QAAQ,YAAY,gBAAM,MAAM,CAAW,QAAQ,aAAa,KAAhC,CAAvD;AAdK;AAAM;AAiBA;AAAN;AAGnB;AAGO,sBAAI,CAAC,SAAS,QAAQ,OAAC,aAAU,CAA7B;AACX,qBAAQ,WAAM,CAAC,EAAE,IAAH,CAAd;AAPmB;AAAM;AAUA;AAAN;AAGnB;AAGO,sBAAI,CAAC,OAAO,MAAM,aAAW,CAAzB;AACX,qBAAQ,WAAM,CAAC,EAAE,IAAH,CAAd;AAPmB;AAAM;AAxrDd;AA0CE;AAkqD2B;AAAnB;AAErB,eAAwC;AAFnB;AAAmB;AAqBJ;AAAf;AAErB,eAAU,UAAI,QAAQ,CAAC,0BAAgB,SAAjB;AAFD;AAAe;AAKF;AAAb;AAErB,eAAU,0BAAgB,OAAO,KAAE,EAAF;AAFZ;AAAa;AAKA;AAAb;AAErB,eAAU,0BAAgB,OAAO,KAAE,EAAF;AAFZ;AAAa;AAKA;AAAb;AAGrB,eAAU;AAHW;AAAa;AA5CJ;AAE9B,UAAG,CAAe,UAAV,UAAa,uBAAH,CAAlB,EACE,MAAM,yBAAY,QAAC,YAAM,CAAC,EAAD,CAAN,CADrB;AAGA;AAL2E;AAA7C;AAaD;AAAR;AAKd,sBAAI,CAAC,4BAAc,CAAC,SAAU,0BAAX,EAA8B,sBAAY,UAAC,GAAQ,MAAlE;AALU;AAAQ;AAQC;AAK9B,kCAAc,CAAC,SAAY,2BAAkB,MAAM,KAAK,CAAC,sBAAY,UAAC,GAAQ,IAAtB,CAA2B,YAArE;AALgB;AA/qDjB;AAsBQ;;AAOZ;AA8tDqB;AAAb;AAEjB,eAAe,OAAL,KAAQ,sBAAH;AAFE;AAAa;AAKQ;AAArB;AAEjB,eAAe,OAAL,KAAQ,8BAAH;AAFE;AAAqB;AAfZ;AAAT;AAEjB,eAA8B;AAFb;AAAS;AAmFO;AAAhB;AAEjB,eAAU,mBAAM,CAAC,QAAS,mBAAc,GAAb,gBAAM,QAAO,OAAO,iBAArB,CAAV;AAFC;AAAgB;AAtHT;AAAP;AAEjB,eAAU,gBAAM;AAFC;AAAO;AAKM;AAAb;AAEjB,eAAgB,sBAAH,eAAL,IAAK;AAFI;AAAa;AAKQ;AAArB;AAEjB,eAAgB,8BAAH,eAAL,IAAK;AAFI;AAAqB;AAKT;AAAZ;AAEjB,eAAQ;AAFS;AAAY;AAKD;AAAX;AAEjB,eAAQ;AAFS;AAAW;AAKH;AAAR;AAEjB,eAAQ;AAFS;AAAQ;AAKG;AAAX;AAEjB,eAAQ,gBAAM;AAFG;AAAW;AAUA;AAAX;AAEjB,eAAQ;AAFS;AAAW;AAeS;AAApB;AAEjB,eAAQ,6BAAiB,CAAC,gBAAM,KAAP;AAFR;AAAoB;AA+CZ;AAAR;AAEjB;AAGA,eAAQ;AACR,eAAc,4EAAd;AAAI,iBAAU,GAAV;AACF,YAAG,MAAM,QAAC,EAAK,KAAE,KAAjB,EACM,OAAC,MADP;;AAPe;AAAQ;AAWC;AAAT;AAEjB,eAAU;AAFO;AAAS;AArCC;AAAV;AAEjB,eAAQ;AAFS;AAAU;AAKA;AAAV;AAEjB,eAAQ;AAFS;AAAU;AAKD;AAAT;AAEjB,eAAQ;AACR,UAAG,KAAK,KAAC,EAAT;AAHiB;AAAS;AAhBE;AAAX;AAEjB,eAAQ;AACR,UAAG,KAAK,KAAC,EAAT;AAHiB;AAAW;AALE;AAAb;AAEjB,eAAQ;AAFS;AAAa;AALQ;AAArB;AAEjB,eAAQ;AAFS;AAAqB;AAgCH;AAAlB;AAEjB,eAAQ;AAFS;AAAkB;AAKD;AAAjB;AAEjB,eAAQ;AAFS;AAAiB;AAlxDzB;AAiDK,yCAjDL,qCAiDK;AAIK;;;AAEjB;AACA;AACA;AAJiB;;;;;;;AA6+BmB;AAAX;AAE3B,eAAU;AAFiB;AAAW;AAKM;AAAjB;AAE3B,eAAkC;AAFP;AAAiB;AAKR;AAEpC,UAAG,CAA0B,UAAX,UAAc,mBAAH,CAA7B,EACE,MAAM,yBAAY,QAAC,YAAM,CAAC,EAAD,CAAN,CADrB;AAGA;AALiF;AAA7C;AAQA;AAEpC;AAEA;AAGA,eAAc,yEAAd;AAAI,iBAAU,GAAV;AACF,cAAO,eAAP,MAAO;;AAET,eAAY,mFAAZ;AAAI,eAAQ,IAAR;AACF,YAAK,eAAL,IAAK;;AAEG;AAb0B;AAiCQ;AAAjB;AAE3B;AAAG;AAGH,UAAG,CAAY,YAAC,YAAD,MAAf;AAEE,qBAAc,wBAAc,OAAC;AAEnB,oBAAD,sBAAC,kBAAS,UAAV;AAET,iBAAS,QAAS,OAAC,UAAD,sBAAlB;AAAI;AACF,sBAAO,CAAC,CAAD,CAAP,GAAc,eAAU,QAAC,YAAM,CAAC,KAAM,wBAAc,SAAS,CAAC,CAAD,CAA9B,CAAN;;OAP7B;AAUA,eAAU;AAfiB;AAAiB;AAjBC;AAAlB;AAE3B;AAAG;AAGH,UAAG,CAAY,YAAC,aAAD,MAAf;AAEE,sBAAe,wBAAc,QAAC;AACpB,qBAAD,sBAAC,mBAAU,WAAX;AAET,iBAAS,QAAS,OAAC,WAAD,sBAAlB;AAAI;AACF,uBAAQ,CAAC,CAAD,CAAR,GAAe,gBAAW,QAAC,YAAM,CAAC,KAAM,wBAAc,UAAU,CAAC,CAAD,CAA/B,CAAN;;OAN/B;AASA,eAAU;AAdiB;AAAkB;AApDG;AAArB;AAE3B;AAAG;AAGH,UAAG,CAAY,YAAC,gBAAD,MAAf;AAEE,oBAAa,wBAAc,WAAC;AAElB,wBAAD,sBAAC,sBAAa,SAAd;AAET,iBAAS,QAAS,OAAC,SAAD,sBAAlB;AAAI;AACF,0BAAW,CAAC,CAAD,CAAX,GAAkB,kBAAa,QAAC,YAAM,CAAC,KAAM,wBAAc,YAAQ,CAAC,CAAD,CAA7B,CAAN;;OAPpC;AAUA,eAAU;AAfiB;AAAqB;AAuFZ;AAAT;AAE3B;AAAG;AAEH;AAEA;AAGA,kBAAa;AACb,eAAU;AAEV,aAAe,SAAD,QAAd;AAEE,mBAAY,SAAS;AACrB,gBAAe,WAAC,MAAD;AAEL,cAAD,sBAAC,YAAQ,KAAM,GAAQ,WAAC,QAAD,CAAvB;AAET,iBAAY,QAAkB,kBAAC,QAAD,uBAA9B;AAAI;AACF,gBAAM,CAAC,KAAM,GAAE,CAAT,CAAN,GAAqB,QAAQ,CAAC,CAAD;;AAE/B,oBAAa,SAAS;;AAtBG;AAAS;AA9GA;AAAT;AAE3B;AAGA,eAAc,6EAAd;AAAI,iBAAU,GAAV;AACF,YAAG,KAAM,KAAE,MAAM,QAAC,EAAlB,EACM,OAAC,MADP;;AANyB;AAAS;AAnEC;AAAV;AAE3B;AAAG;AAEH;AAEA;AAGA,kBAAa;AACb,eAAU;AACV,aAAe,SAAD,QAAd;AAEE,mBAAY,SAAS;AACrB,gBAAe,WAAC,MAAD;AACL,cAAD,sBAAC,YAAQ,KAAM,GAAQ,WAAC,QAAD,CAAvB;AACT,iBAAY,QAAkB,kBAAC,QAAD,uBAA9B;AAAI;AACF,gBAAM,CAAC,KAAM,GAAE,CAAT,CAAN,GAAqB,QAAQ,CAAC,CAAD;;AAC/B,oBAAa,SAAS;;AAlBG;AAAU;AAsBA;AAAV;AAE3B;AACA;AAGA,oBAAe;AACf,eAAc,6EAAd;AAAI,iBAAU,GAAV;AACF,YAAG,KAAM,KAAE,MAAM,QAAC,EAAlB,EACM,WAAJ,IAAG,CADL;;AAEQ,YAAD,sBAAC,YAAQ,WAAT;AACT,eAAc,oFAAd;AAAI,iBAAU,IAAV;AACF,YAAG,KAAM,KAAE,MAAM,QAAC,EAAlB;AAEM,qBAAJ,IAAG;AACH,gBAAM,CAAC,WAAD,CAAN,GAAuB;SAHzB;;AAZyB;AAAU;AAmBG;AAAb;AAE3B;AAAG;AAEH;AAEA;AAGA,kBAAa;AACb,eAAU;AAEV,aAAe,SAAD,QAAd;AAEE,mBAAY,SAAS;AACrB,gBAAe,WAAC,MAAD;AAEL,cAAD,sBAAC,YAAQ,KAAM,GAAQ,WAAC,QAAD,CAAvB;AAET,iBAAY,QAAkB,kBAAC,QAAD,uBAA9B;AAAI;AACF,gBAAM,CAAC,KAAM,GAAE,CAAT,CAAN,GAAqB,QAAQ,CAAC,CAAD;;AAE/B,oBAAa,SAAS;;AAtBG;AAAa;AAoCF;AAAX;AAE3B;AACA;AAGA,cAAS,sBAAS,CAAC,KAAD;AAClB,eAAY,gFAAZ;AAAI,eAAQ,GAAR;AACF,YAAG,sBAAS,CAAC,IAAI,QAAC,EAAN,CAAY,KAAE,KAA1B,EACM,OAAC,IADP;;AAEF,eAAQ;AAVmB;AAAW;AA98BnB;AA4BF;AAskCuB;AAAf;AAEzB,eAA2B,OAAP,aAAU,sBAAH;AAFF;AAAe;AApBC;AAAhB;AAEzB,eAAiC;AAFR;AAAgB;AAKA;AAAhB;AAEzB,eAAQ,uBAAa;AAFI;AAAgB;AAKL;AAAX;AAEzB,eAAU;AAFe;AAAW;AAKA;AAAX;AAEzB,eAAQ;AAFiB;AAAW;AAUF;AAElC,UAAG,CAA0B,UAAX,UAAc,kBAAH,CAA7B,EACE,MAAM,yBAAY,QAAC,YAAM,CAAC,EAAD,CAAN,CADrB;AAGA;AAL+E;AAA7C;AA3kCjB;AAkBC;AAomCuB;AAAf;AAE1B,eAAmD,OAAzC,UAAI,QAAQ,CAAC,2BAAiB,SAAlB,EAAgC,uBAAH;AAFzB;AAAe;AAzBR;AAAP;AAE1B;AAGA,aAAQ,2BAAiB,UAAc;AAEvC,kCAAe,CAAC,KAAM,MAAP;AAPW;AAAO;AAUa;AAApB;AAE1B,eAAuC;AAFb;AAAoB;AAKT;AAAX;AAE1B,eAAU;AAFgB;AAAW;AAKA;AAAX;AAE1B,eAAU;AAFgB;AAAW;AA5BF;AAEnC,UAAG,CAA0B,UAAX,UAAc,sBAAH,CAA7B,EACE,MAAM,yBAAY,QAAC,YAAM,CAAC,EAAD,CAAN,CADrB;AAGA;AALgF;AAA7C;AAnkCjB;AAmBH;AAwlCyB;AAAjB;AAEvB,eAAoC;AAFb;AAAiB;AAKN;AAAX;AAEvB,eAAU;AAFa;AAAW;AAKF;AAEhC,UAAG,CAA0B,UAAX,UAAc,mBAAH,CAA7B,EACE,MAAM,yBAAY,QAAC,YAAM,CAAC,EAAD,CAAN,CADrB;AAGA;AAL6E;AAA7C;AAlmCjB;AAYE;AAwmC2B;AAAnB;AAEzB,eAAsC;AAFb;AAAmB;AAKJ;AAAf;AAEzB,eAAsD,OAA5C,UAAI,QAAQ,CAAC,0BAAgB,aAAjB,EAAmC,sBAAH;AAF7B;AAAe;AAKC;AAAhB;AAEzB,eAAU,sBAAY,iBAAC;AAFE;AAAgB;AAlBP;AAElC,UAAG,CAA0B,UAAX,UAAc,qBAAH,CAA7B,EACE,MAAM,yBAAY,QAAC,YAAM,CAAC,EAAD,CAAN,CADrB;AAGA;AAL+E;AAA7C;AAhmCjB;AAeQ;AA0mCmB;AAAX;AAEjC,eAAuD,OAA7C,UAAI,QAAQ,CAAC,+BAAqB,SAAtB,EAAoC,8BAAH;AAFtB;AAAW;AAUI;AAAf;AAEjC,eAAU,+BAAqB;AAFE;AAAe;AALS;AAAxB;AAEjC,eAAsC;AAFL;AAAwB;AAUf;AAE1C,UAAG,CAA0B,UAAX,UAAc,qBAAH,CAA7B,EACE,MAAM,yBAAY,QAAC,YAAM,CAAC,EAAD,CAAN,CADrB;AAGA;AALuF;AAA7C;AAznCjB;AAeT;AA0RmB;AAAX;AAExB,eAAU,yBAAe;AAFD;AAAW;AAKA;AAAX;AAExB,eAAU,yBAAe;AAFD;AAAW;AAKD;AAAV;AAExB,eAAU,yBAAe;AAFD;AAAU;AAKQ;AAAlB;AAExB,eAAqC;AAFb;AAAkB;AAKT;AAEjC,UAAG,CAA0B,UAAX,UAAc,oBAAH,CAA7B,EACE,MAAM,yBAAY,QAAC,YAAM,CAAC,EAAD,CAAN,CADrB;AAGA;AAL8E;AAA7C;AA9SjB;AAiBI;AAuS8B;AAAtB;AAE5B,eAAkC;AAFN;AAAsB;AA0Cb;AAErC,UAAG,CAA0B,UAAX,UAAc,iBAAH,CAA7B,EACE,MAAM,yBAAY,QAAC,YAAM,CAAC,EAAD,CAAN,CADrB;AAGA;AALkF;AAA7C;AArCD;AAAR;AAE5B;AAAG;AAGH,kBAAa,4BAAgB,CAAC,6BAAD;AAEnB,YAAD,sBAAC,UAAQ,SAAT;AAET,eAAS,QAAS,OAAC,SAAD,sBAAlB;AAAI;AACF,cAAM,CAAC,CAAD,CAAN,GAAa,6BAAmB,SAAsB,CAAF,CAAE,GAAE,kBAAF;;AAV5B;AAAQ;AA5ShB;AAeC;AAsO2B;AAAnB;AAE7B,eAAsC;AAFT;AAAmB;AAKL;AAAd;AAE7B,eAAU,UAAI,QAAQ,CAAC,0BAAgB,OAAjB;AAFO;AAAc;AAKL;AAEtC,UAAG,CAA0B,UAAX,UAAc,qBAAH,CAA7B,EACE,MAAM,yBAAY,QAAC,YAAM,CAAC,EAAD,CAAN,CADrB;AAGA;AALmF;AAA7C;AAhPjB;AAaO,sFAAgC,UApRjD,yBAoRiD,EAAyB,QhBtXvE,wCgBsXuE,GAAuC,UA7btH,qBA6bsH,EAAhG;AACE,wFAA0C,6BAAoB,Qd/b5E,oCc+b4E,EAA9D;AAIb;;;AAEf;AACA;AACA;AACA;AALe;;;;;;;;AAmqDc;;AAAN;AAEzB;AAEA;AAEuB;AAAd;AAEP;AAEA;AAEA;AAGA,qBAAc,MAAM;AAEV,cAAD,sBAAC,mBAAc,WAAC,UAAD,CAAf;AAET,iBAAY,QAAoB,kBAAC,UAAD,uBAAhC;AAAI;AAEF,kBAAS,UAAU,CAAC,CAAD;AAEZ,0BAAI,CAAC,IAAI,CAAC,CAAD,EAAK,KAAK,WAAU,UAAC,GAAQ,MAAM,CAAC,CAAD,CAAxC;AAEX,gBAAM,CAAC,CAAD,CAAG,uBAAT,GAA2C,CAAN,4BAAM,IAAG,KAAK,OAAR,CAAgB,IAAU,CAAN,4BAAM,IAAG,KAAK,OAAR,CAAV;;AAnBtD;AAAc;AAwBvB,UAAY,gBAAD,QAAX;AACE,iBAAU,gBAAW,CAAC,WAAY,IAAb;;AAGrB,iBAAU,mBAAc,UAAU,CAAC,UAAD;AAElC,sBAAS,CAAC,OAAQ,iBAAgB,MAAzB;AAET,iBAAU,MAAM;;AAtCO;AAAM;AAtEG;;AAElC;AAAqB;AAErB;AAEA;AAGA,4BAAyB,0BAAzB;AACA,4BAAsD,OAApC,aAAQ,QAAQ,CAAC,iBAAD,EAAuB,uBAAH;AAEtD,UAAG,mBAAc,qBAAC,EAAiB,UAAc,MAAM,KAAG,KAA1D,EACE,MAAM,yBAAY,QAAC,UADrB;AAGA,wBAAoC,MAAS,OAAO,CAAC,mBAAc,qBAAC,EAAiB,UAAjC;AACpD,qBAAe,GAAf,GAAuB;AAEvB,eAA4B,MAAd,mBAAc,mEAA5B;AAAI,iBAAwB,GAAxB;AAGN;AAGI,uBAAgB,YAAhB,GACE;;AAEE,mBAA6C,IAAO,GAAK,OAAO,CAAC,WAAqC,SAAtC;AAFlE;;;AAMJ,qBAAgB,WAAhB,GAA+B;AAC/B,qBAAgB,YAAhB,GAAgC;AAChC,qBAAgB,kBAAhB,GAAsC;AAEtC,4BAAwC;AACxC,yBAAmB,UAAnB,GAA+C,IAAV,MAAU;AAC/C,yBAAmB,UAA2B,CAAZ,yBAAY,CAAC,qCAAD,EAA9C,GAA+D;AAC/D,yBAAmB,UAAkC,wCAAnB,mBAAc,QAAC,GZ57CL,KY47CS,EAArD,GAA6E,IAAV,MAAU;AAC7E,yBAAmB,YAAnB,GAA4C,IAAV,MAAU;AAC5C,yBAAmB,YAA+B,wCAAnB,mBAAc,QAAC,GZ97CF,KY87CM,EAAlD,GAAgE;AAxCU;AAAxC;AA4CA;AAElC,mBAAM,CAAC,iBAAD;AAEN,uBAAY;AAJ+G;AAAzF;AAOA;AAElC,mBAAM,CAAC,iBAAD;AAEN,yBAAc;AAJ+G;AAA3F;AAOA;AAElC,mBAAQ;AAER;AAJkC;AAOK;AAAd;AAEzB,eAAkC,sDAAC,IAAK,GAAN;AAFT;AAAc;AA9pDtB;;AAqDkB;AAGrC;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAhBqC;AAwpDtB;AAAN;AAIP,QAAG,SAAS,KAAC,2BAAb;AACA,QAAG,SAAH;AACA,QAAG,cAAH,EACE,MAAM,UAAO,QAAC,YAAM,CAAC,eAAD,CAAN,CADhB;AAEA,QAAG,cAAU,CAAC,YAAD,CAAb;AAEE,YAAM,MAAN,GAA4B,YAAa,MAAM,CAAC,KAAK,KAAN;AAC/C,UAAG,WAAW,KAAE,IAAhB;AACE,cAAM,UAAN,GAAkB;AAElB,YAAA,MAAM,UAAN;KAGF,YAAM,UAAO,QAAC,YAAM,CAAC,+CAAD,CAAN;AAjBT;AAAM;AA3pEN,2BAMkB,mEACF,mEAPhB;AALT,mBA+ec;AAGE;;;AAEZ;AACA;AAHY;;;;;AA2CiB;AAE/B;AAEA,sBAAoB,IAAV,MAAU;AAJY;AAAD;AAOA;AAE/B;AAEA;AAGA,aAAI,GAAJ,IAAW,WAAX,EACE,IAAG,WAAM,eAAe,CAAC,GAAD,CAAxB;AAEE,uBAAuB,cAAC,WAAO,KAAR;AAEvB,oBAAW,eAAX,UAAW;SAJb;AAR6B;AAgBD;AAAR;AAEtB;AAAY;AAEZ;AAEA;AAGA,YAAG,WAAM,eAAe,CAAC,cAAD,CAAxB;AACE,mBAAmB,cAAC,WAAO,gBAAR;;AAGnB,mBAAU;AAEV,mBAAgC,MAAd,MAAS,KAAK,CAAC,GAAD,uDAAhC;AAAI,yBAA4B,GAA5B;AACF,gBAAiB,2CAAd;;;;iBAA0B,UAAW,GAAE,GAAzB,CAAjB;AAEE,uBAA0B,GAAI;AAC9B,yBAAY,eAAI,CAAC,eAAuB,UAAD,OAAa,GAAE,CAAF,CAAY,cAAD,OAA/C;AAEhB,kBAAG,MAAM,MAAK,eAAe,CAAC,QAAD,CAA7B;AAEE,4BAAuB,MAAM,MAAM;AAE/B,uBAAC,YAAO,CAAC,SAAD;eAJd;aALF;;;AAhBkB;AAAQ;AA+BD;AAAP;AAEtB,6BACE,KACA,sBACA,sBACA,eACA,0BACA,eACA,eACA,eACA,eACA,eACA,eACA,2BACA,qBACA,uBACA,uBACA,eACA,eACA,eACA,wBACA,eACA,8BArBF;AA0BA;AAEA;AAGA,YAAG,aAAM,CAAC,SAAD,CAAY,IAAG,kBAAW,CAAC,SAAD,CAAnC,EACM,OAAC,IADP;AAGA,eAAQ,SAAO;AAEf,YAAG,YAAQ,CAAC,SAAO,QAAR,CAAX,EACE,OAAQ,SAAO,QAAO,MAAY,GAAJ,GAAF,GAAQ,IADtC;AAGA,YAAG,WAAM,eAAe,CAAC,IAAD,CAAxB;AACE,mBAAmB,cAAC,WAAO,MAAR;;AAGnB,cAAiB,CAAb,SAAO,KAAM,IAAG,cAAC,6BAAS,iCAAa,8BAAU,+BAAjC,CAAH,CAAiD,IAAc,SAAQ,eAAe,CAAC,UAAD,CAAvG;AACE,qBAAU,YAAO,CAAqB,SAAS,YAA9B;AAEjB,yBAAU;AAEZ,mBAAU,aAAa,CAAC,SAAO,KAAR,CAAc,QAAC,YAAM,CAAC,OAAQ,SAAT,CAAN;AAEtC,qBAAO,MAAP,GAAgB;;AApDI;AAAO;AAwDA;AAAP;AAEtB,YAAG,MAAO,KAAE,IAAZ,EACM,OAAC,IADP;AAGA,iBAAU,YAAO,CAAU,MAAD,MAAT;AALK;AAAO;AAQa;AAAd;AAE5B,YAAG,CAAY,CAAC,UAAD,SAAf,EACE,aAAQ,oBAAc,QAAC,YADzB;AAGA,iBAAU,UAAI;AAEV,kBAAI,gBAAR,IAAG;AAPyB;AAAc;AAUC;AAEvC,kBAAI,gBAAR,IAAG;AAEH,YAAG,UAAI,gBAAiB,KAAE,CAA1B,EACE,uBAAU,CAAC;;;;YAAD,CADZ;AAJ2C;AA3K7B;AAmBd;AAtBY;AA/ed;ACGA,0BAES,0CAFT;;;;AAoDa;AAwCA;AAjFE;AAuuBmB;AAAX;AAErB,eAAU;AAFW;AAAW;AAKC;;AA5uBpB;AASH;;;AAER;AACA;AAHQ;AAk4BmB;AAAX;AAElB,eAAgB,KAAC,QAAD;AAFE;AAAW;AArWU;AAAf;AAExB;AAEA,eAAU;AAEV,UAAG,WAAO,CAAC,QAAD,CAAV;AAEE,iBAAU,eAAU,QAAC;AACb,eAAP,OAAU,eAAH,CAAc,IAAtB,GAAsC;OAGxC,UAAG,YAAQ,CAAC,QAAD,CAAX;AAEE,iBAAU,gBAAW,QAAC;AACd,eAAP,OAAU,gBAAH,CAAe,MAAvB,GAAwC;OAG1C,UAAG,YAAQ,CAAC,QAAD,CAAX;AAEE,iBAAU,gBAAW,QAAC;AACd,eAAP,OAAU,gBAAH,CAAe,YAAC,CAAe,KAAC,QAAhB;OAG1B,UAAG,YAAQ,CAAC,QAAD,CAAX;AAEE,iBAAU,gBAAW,QAAC;AACd,eAAP,OAAU,gBAAH,CAAe,YAAC,CAAe,KAAC,QAAhB;AACxB,YAAW,cAAC,QAAD;AACH,eAAP,OAAU,gBAAH,CAAe,QAAvB,GAAoC;AACpC,YAAG,eAAI,CAAC,CAAD,CAAI,KAAE,CAAb,EACU,OAAP,OAAU,gBAAH,CAAe,KAAvB,GAAwC,UAAC,QAAD,CAD1C;OAIF,UAAG,aAAM,CAAC,QAAD,CAAT;AACE,iBAAU,cAAS,QAAC;AAEtB,gBAAG,gBAAS,CAAC,QAAD,CAAZ;AAEE,YAAG,gBAAS,CAAC,QAAD,CAAZ;AACE,mBAAU,cAAS,QAAC;AAEpB,uBAAU,eAAU,QAAC;OALzB;AAQA,UAAG,CAAY,CAAC,MAAD,SAAf,EACE,SAAU,cAAS,QAAC,UADtB;AAGA,YAAM,IAAN,GAAa;AAhDW;AAAe;AA0VZ;AAEjB;AACV,iBAAM;AAHyC;AAApB;AAMD;AAAR;AAElB,eAAU,IAAO,UAAU,CAAC,QAAD;AAFT;AAAQ;AAgBE;AAAV;AAElB,eAAU;AAFQ;AAAU;AA74BlB;AAeD;;;AAEP;AACA;AACA;AAJO;;;;;;AAsqBiB;AAE1B;AACA,iBAAO,gBAAW,QAAC;AAHQ;AAAD;AAMA;AAEhB;AACV,iBAAc,gBAAW,QAAC,YAAM,CAAC,GAAD,CAAN;AAC1B,iBAAa;AAJ0D;AAA7C;AAOA;AAEhB;AACV,iBAAc,gBAAW,QAAC,YAAM,CAAC,GAAD,CAAN;AAC1B,iBAAa,gBAAW,QAAC,YAAM,CAAC,KAAD,CAAN;AAJ4B;AAA3B;AAOA;AAEtB,eAAJ,KAAI;AACJ;AAH0B;AAMD;AAAR;AAEjB,UAAiB,gBAAH,eAAV,QAAU,CAAd;AACE,iBAAU,GAAoC,GAA9B,QAAU,cAAZ,GAA2B,IAAF,GAAoB,OAAV,SAAa,gBAAH,CAAe,SAA5B;;AAG9C,YAAe,CAAX,QAAW,KAAG,IAAH,CAAQ,IAAe,CAAV,QAAU,KAAG,IAAH,CAAtC;AACE,mBAAU,GAAoC,GAA9B,QAAU,cAAZ,GAA2B,IAAF,GAAS,QAAS,WAAX;AAE9C,uBAAU;;AATG;AAAQ;AAhsBhB;AAeI;;AAEF;;;AAET;AACA;AAHS;;;;;;AAode;AAAP;AAEnB;AACA;AACA;AACA;AAEA,UAAmB,CAAf,aAAQ,SAAC,EAAM,KAAE,CAAF,CAAuB,IAAL,CAAC,UAAD,SAAb,IAAkD,CAArB,WAAC,MAAS,KAAK,CAAC,UAAD,CAAf,CAAqB,GAAE,CAAF,CAA1E;AAEE,YAAW,WAAC,MAAS,KAAK,CAAC,UAAD,CAAf;AACX,YAAG,CAAE,GAAE,CAAP;AAEE,eAAM,UAAqB,CAAlB,MAAS,KAAK,CAAC,UAAD,CAAI,CAAC,CAAD;AAC3B,cAAK,2BAAe,CAAC,EAAD;AACpB,cAAK,MAAS,KAAK,CAAC,UAAD,CAAI,CAAC,CAAD;AACvB,mBAAU,cAAS,QAAC,YAAM,CAAC,EAAE,CAAH,CAAN;AACpB;SANF;OAHF;AAaA,UAAM,CAAF,CAAE,IAAG,CAAH,CAAM,IAAO,CAAF,CAAE,GAAE,aAAQ,SAAC,EAAX,CAAnB;AACE,iBAAmB,cAAC,aAAQ,KAAC,CAAD,CAAT;AAEnB,qBAAU;AAvBO;AAAO;AA3BC;AAAR;AAEnB,UAAY,UAAD,QAAX;AACE,iBAAgB,WAAC,MAAS,KAAK,CAAC,UAAD,CAAf;AAEhB,gBAAY,aAAD,QAAX;AACE,iBAAU,aAAQ,SAAC;AAEnB,qBAAU;AARK;AAAQ;AAWD;AAAP;AAEnB;AAEA,WAAM,UAAqB,CAAlB,MAAS,KAAK,CAAC,UAAD,CAAI,CAAC,KAAD;AAC3B,eAAU,2BAAe,CAAC,EAAD;AALN;AAAO;AAmJG;AAE7B;AAEA,UAAK;AAEP;AAN+B;AA7OI;AAEjC,mBAAQ,IAAI,CAAC,UAAD;AAFqB;AAzEL;AAElB;AACV,sBAAY,kBAAa,QAAC;AAC1B,mBAAO;AAJsB;AAAD;AAsGA;AAElB;AACV,sBAAY,kBAAa,QAAC;AAC1B,mBAAM;AAJ2C;AAArB;AAOA;AAEnB,eAAT,KAAS;AACC;AAHkB;AAkKW;AAAd;AAEzB;AAEA,UAAK,IAAO,MAAY,CAAC,IAAD;AACxB,eAAU,oBAAe,CAAC,CAAD;AALA;AAAc;AApGR;AAAZ;AAEnB;AAEA,WAAO,UAAc;AACrB,eAAU,wBAAkB,CAAC,EAAD;AALT;AAAY;AAnDT;AAAH;AAEnB;AACA;AACA;AACA;AAEA,eAAU;AAEV,UAAY,UAAD,QAAX;AAEE,aAAM,UAAc;AACpB,YAAO,CAAH,EAAG,IAAG,SAAH,CAAc,IAAkB,CAAJ,EAAI,KAAE,IAAF,CAAvC;AAEE,mBAAU,cAAS,QAAC;AACpB,gBAAO,2BAAe,CAAC,EAAD;AACtB,gBAAM,IAAN,GAAc;AACd,gBAAM,IAAW,YAAC,CAAS,IAAT;AAClB,gBAAM,IAAN,GAAoB;SANtB;;AAWA,iBAAS,QAAoB,OAAf,aAAQ,SAAC,EAAM,GAAE,CAAF,kBAA7B;AAAI;AAEF,cAAc,cAAC,aAAQ,IAAM,CAAC,CAAD,CAAf;AACd,cAAI,CAAC,IAAI,WAAU,KAAU,CAAR,GAAQ,GAAJ,IAAD,GAAM,GAAD,CAA7B,EACE,SAAU,CADZ;;;AA1Be;AAAG;AALA;AAAH;AAEnB,eAAU,QAAG,CAAC,MAAS,KAAK,CAAC,UAAD,CAAI,CAAC,KAAD,CAAnB;AAFM;AAAG;AA0FK;AAAR;AAEnB;AAEA,eAAU;AAEV,WAAM,QAAG,CAAC,IAAD;AAET,UAAY,EAAD,QAAX;AAEE,iBAAU,EAAE;AACZ,cAAM,IAAN,GAAc,EAAE;OAHlB;AARmB;AAAQ;AA2EC;AAE5B;AAEA,UAAK;AAEP;AAN8B;AAUA;AAE5B;AAEA,UAAK;AAEP;AAN8B;AAUA;AAE5B;AAEA,UAAK;AAEP;AAN8B;AAvQF;AAAP;AAEnB;AAEA,UAAY,IAAD,QAAX;AAEE,0BAAa,CAAC,IAAD;AACb,YAAY,UAAD,QAAX;AAEE,cAAK;AAEL,cAAe,eAAH,eAAT,IAAI,IAAK,CAAZ;AAGN;;AAMA;;SAbI;OAHF;AAqBA,eAAU;AAzBS;AAAO;AA6BA;AAAP;AAGnB,kBAAO,CAAC,cAAS,QAAC,YAAM,CAAC,IAAK,GAAN,CAAN,CAAX;AACP,eAAU;AAJS;AAAO;AAYA;AAAP;AAEnB,kBAAO,CAAC,cAAS,QAAC,YAAM,CAAC,IAAK,GAAN,CAAN,CAAX;AACP,eAAU;AAHS;AAAO;AAMA;AAAP;AAEnB,kBAAO,CAAC,cAAS,QAAC,YAAM,CAAC,IAAK,gBAAW,QAAC,YAAM,CAAC,GAAD,CAAN,CAAlB,CAAN,CAAX;AACP,eAAU;AAHS;AAAO;AAMA;AAAP;AAEnB,kBAAO,CAAC,cAAS,QAAC,YAAM,CAAC,IAAK,gBAAW,QAAC,YAAM,CAAC,GAAD,CAAN,CAAlB,CAAN,CAAX;AACP,eAAU;AAHS;AAAO;AAMA;AAAP;AAEnB,kBAAO,CAAC,cAAS,QAAC,YAAM,CAAC,IAAK,gBAAW,QAAC,YAAM,CAAC,GAAD,CAAN,CAAlB,CAAN,CAAX;AACP,eAAU;AAHS;AAAO;AAxFG;AAAV;AAEnB;AACA;AACA;AAEA,eAAU;AACV,UAAY,UAAD,QAAX;AAEE,YAAK;AAET;;AAKI,iBAAS,QAAoB,OAAf,aAAQ,SAAC,EAAM,GAAE,CAAF,kBAA7B;AAAI;AAEF,cAAc,cAAC,aAAQ,IAAM,CAAC,CAAD,CAAf;AACd,cAAI,CAAC,IAAI,WAAU,KAAc,CAAZ,GAAY,GAAR,QAAD,GAAU,GAAD,CAAjC;AAEE,qBAAU;AACV,yBAAQ,OAAO,CAAC,CAAD;AACf;WAJF;;;AAnBe;AAAU;AAyTJ;AAAN;AAEnB;AACA;AACA;AACA;AAEA,UAAY,UAAD,QAAX;AACE,eAAQ;AAER,mBAAQ,aAAQ,SAAC;AAEnB,UAAK;AACL,UAAG,IAAK,GAAE,CAAV;AAEE,YAAY,UAAD,QAAX;AAEE,eAAgB,UAAG,CAAC,CAAD;AACnB,cAAY,EAAD,QAAX;AACE,gBAAK,CAAE,GAAE,EAAE,WAAJ;AAEP,oBAAK,CAAgC,GAA5B,GAAF,GAAQ,MAAS,KAAK,CAAC,UAAD,CAAI,CAAC,CAAD,CAApB,GAAyB,QAAD;SAGvC,UAAK,CAAE,GAAW,cAAC,aAAQ,KAAC,CAAD,CAAT,CAAa,WAAxB;OAXX;AAcA,eAAS,QAAU,OAAL,IAAK,GAAE,CAAF,kBAAnB;AAAI;AAEF,YAAY,UAAD,QAAX;AAEE,eAAgB,UAAG,CAAC,CAAD;AACnB,cAAY,EAAD,QAAX;AACE,gBAAK,CAAQ,GAAJ,GAAF,GAAQ,EAAE,WAAJ;AAEb,oBAAK,CAAsC,GAAlC,GAAF,GAAQ,GAAF,GAAQ,MAAS,KAAK,CAAC,UAAD,CAAI,CAAC,CAAD,CAApB,GAAyB,QAAD;SAG7C,UAAK,CAAQ,GAAJ,GAAF,GAAiB,cAAC,aAAQ,KAAC,CAAD,CAAT,CAAa,WAAxB;;AAEjB,UAAK,CAAE,GAAE,GAAF;AACP,eAAU;AAzCS;AAAM;AA4CE;AAAR;AAEnB,eAAU;AAFS;AAAQ;AA9oBhB;AAwCA;;;AAET;AAFS;AAyqBmB;AAAX;AAEnB,eAAU;AAFS;AAAW;AAKC;AAE/B,oBAAU;AACV,iBAAM;AAEN,UAAG,mBAAQ,CAAC,QAAD,CAAX;AAGF;AACA;OAJE;AAL+B;AAZH;AAElB;AACV,iBAAM;AACN,oBAAU;AAJoC;AAAlB;AAlqBjB;AAUA;;;AAET;AACA;AACA;AAJS;AA+sBmB;AAAX;AAEnB,eAAU,yBAAU,CAAC,aAAyB,wCAA1B;AAFD;AAAW;AAKC;AAE/B,qBAAW,yBAAU,CAAC,MAAuB,wCAAxB;AACrB,UAAG,eAAI,CAAC,YAAD,CAAU,KAAE,CAAnB;AAEE,YAAG,CAAI,4BAAa,CAAC,MAAO;;;;aAAwB,wCAAhC,CAApB,EACE,cAAU,CADZ;AAEA,oBAAQ;AACR,mBAAM;OAGN,iBAAM;AAXuB;AAhCH;AAElB;AACV,iBAAM;AACN,kBAAQ;AACR,oBAAU;AACV,qBAAW;AANoC;AAAnB;AASA;AAElB;AACV,iBAAM;AACN,kBAAgB,OAAD;AACf,oBAAU;AACV,qBAAW;AANkC;AAAjB;AASA;AAElB;AACV,iBAAM;AACN,kBAAQ,gBAAK,CAAC,OAAD;AACb,oBAAU,gBAAK,CAAC,OAAD;AACf,qBAAW;AANmC;AAAlB;AAtsBjB;AAmBF;;;AAEP;AAFO;AAyuBoB;AAE7B;AAEA,UAAK,sBAAS,CAAC,KAAD;AACd,mBAAU,CAAE,KAAE,MAAF;AALiB;AANH;AAEV,yCAAC,MAAD;AAChB,mBAAS;AAHyC;AAAxB;AAnuBjB;AAUA;AA4sBmB;AAAX;AAEjB,eAAU;AAFO;AAAW;AALF;AAEV,wCAAC,IAAD;AAFW;AAAD;AAWD;AAAR;AAEjB,eAAU;AAFO;AAAQ;AAltBhB;AAQC;AAuuBmB;AAAX;AAElB,eAAU;AAFQ;AAAW;AALF;AAEX,wCAAC,KAAD;AAFY;AAAD;AAUD;AAAR;AAElB,eAAU;AAFQ;AAAQ;AA5uBhB;AAQD;AA2uBmB;AAAX;AAEjB,eAAU;AAFO;AAAW;AAMH;AAAR;AAEjB,eAAU;AAFO;AAAQ;AAjvBhB;AAoBC;AAXU;;;AAElB;AACA;AAHkB;;;;;AA6wBiB;AAE3B;AACV,wBAAc;AACd,uBAAa,CAAC;AAJgD;AAAzB;AAOC;AAAV;AAE5B,eAAU,eAAU,SAAC,cAAD;AAFQ;AAAU;AAKF;AAAR;AAExB,oBAAJ,IAAG;AACH,eAAU,cAAU,GAAE,eAAU,SAAC,EAAb;AAHQ;AAAQ;AAzxBhB;AAWV;;;AAER;AAFQ;;;;;AA4Ge;AAAP;AAElB;AAEA,WAAM,YAAG;AACT,UAAO,UAAH,GAAM,kBAAH,CAAgB,IAAO,UAAH,GAAM,iBAAH,CAA9B;AACE,iBAAoB,cAAC,EAAD;AAEpB,qBAAU,2BAAe,CAAC,EAAD;AART;AAAO;AAmBC;AAE1B,UAAY,gBAAH,eAAN,KAAM,CAAT,EACE,YAAG,OAAH,GAAyB,KAAM,MADjC;AAF0B;AA7BA;AAAR;AAElB,eAAU,YAAE;AAFM;AAAQ;AAqBH;AAAL;AAElB,UAAG,CAAY,CAAC,QAAD,SAAf,EACE,WAAgB,IAAT,KAAS,EADlB;AAGA,eAAU;AALQ;AAAK;AA3BI;AAEjB;AACV,iBAAM;AAHwC;AAAnB;AAWI;AAAb;AAElB,eAAU,yBAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAFb;AAAa;AA9CT;AAEtB,kBAAE,KAAK,CAAC,OAAD;AAFe;AAUA;AAEtB,kBAAE,KAAK,CAAC,OAAD;AAFe;AALA;AAEtB,kBAAE,KAAK,CAAC,OAAD;AAFe;AAeA;AAEtB,kBAAE,KAAK,CAAC,OAAD;AAFe;AALA;AAEtB,kBAAE,KAAK,CAAC,OAAD;AAFe;AAUA;AAEtB,kBAAE,KAAK,CAAC,OAAD;AAFe;AAqFA;AAEtB,kBAAE,KAAK,CAAC,OAAD;AAFe;AAhFO;AAE7B,kBAAE,KAAK,CAAC,OAAD;AAFsB;AA8CL;AAAN;AAElB,eAAU;AAFQ;AAAM;AAKE;AAAR;AAElB;AACA;AACA;AAEA,eAAU;AACV,cAAS;AAET,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,aAAM,YAAK,CAAC,CAAD;AAEX,YAAY,EAAD,QAAX;AAEE,cAAU,gBAAH,eAAH,EAAG,CAAP;AAEE,qBAAU,MAAe,GAAN,KAAF,GAAc,OAAH,GAAM,gBAAH,CAAe,WAArB;WAGzB,eAAU,MAAe,GAAN,KAAF,GAAU,EAAE,WAAJ;AAE3B,kBAAS;SATX;;AAaF,eAAU,MAAO,GAAE,GAAF;AA1BC;AAAQ;AA1IhB;AA0BL;AAaa;AAAL;AAEb;AAEA,UAAK,IAAO,MAAY,CAAC,CAAD;AAExB,UAAG,WAAO,CAAC,CAAD,CAAV;AAEE,iBAAU,eAAU,QAAC,YAAM,CAAU,CAAV,CAAN;;AAIrB,iBAAU,gBAAW,QAAC,YAAM,CAAC,CAAD,CAAN;;AAZX;AAAK;AAbb;AAjMP,mBAqMc;AAEa;AAE3B;AAF2B;AAFb;AArMd;ACAA,6BAIS,0BAJT;;;AAUqB,0EAAmB,UlBqG/B,2BkBrG+B,EAAe,oBAAmB,yBAAmB,yBAAc,mBAAtF;AAEN;;;AAEX;AACA;AAHW;;;;;AAgEkB;AAE/B,YAAM,aAAa,QAAQ,CAAC,KAAM,MAAP;AAFI;AAyBD;AAAT;AAErB;AAEA,UAAK,MAAM,aAAa,QAAQ,CAAC,IAAD;AAChC,UAAG,CAAI,mBAAQ,CAAC,CAAD,CAAf;AACE,iBAAU;AAEV,qBAAU;AARS;AAAS;AAgBH;AAAN;AAErB,eAAU,MAAM,aAAa,IAAK,CAAC,MAAD;AAFb;AAAM;AAwBE;AAAR;AAErB,eAAU,MAAM,aAAa;AAFR;AAAQ;AA5DO;AAEpC;AAEA,UAAK,MAAM,YAAY,GAAC,GAAD;AACvB,UAAW,CAAC,cAAD,SAAW,IAAiC,CAA5B,cAAG,CAAC,SAAU,sBAAS,CAAC,CAAD,CAApB,CAAyB,GAAE,CAAF,CAAvD,EACE,cAAQ,CAAC,KAAM,MAAM,KAAM,MAAM,UAAW,MAAM,UAAW,MAAM,IAA3D,CADV;AALoC;AA8CN;AAE9B,wBAAe;AACf;AAEA,YAAM,iBAAiB,CAAC,UAAW,eAAZ;AAL4B;AAArB;AAQA;AAE9B,YAAM,oBAAoB,CAAC,UAAU,eAAX;AAC1B;AAH8B;AAbG;AAEjC,YAAM,eAAe;AAFY;AAnDG;AAEpC,YAAM,aAAa,QAAQ,CAAC,KAAM,MAAP;AAFS;AAmBD;AAAR;AAE3B;AAEA,UAAK,MAAM,aAAa,QAAQ,CAAC,IAAD;AAChC,UAAG,CAAI,mBAAQ,CAAC,CAAD,CAAf;AACE,iBAAU;AAEV,qBAAU;AARe;AAAQ;AAsBE;AAErC,YAAM,aAAa,WAAW,CAAC,IAAD;AAFO;AApGxB;;AAWO,+BAAO,UTyhBjB,+BSzhBiB,CAAP;AAUD,gCAvBA,kCAuBA;AArBN;AAwBG;;;AAED;;;AAEb;AACA;AAHa;;;;;AAmHkB;AAEjC,YAAM,eAAe,QAAQ,CAAC,KAAM,MAAP;AAFI;AAyBD;AAAT;AAEvB;AAEA,UAAK,MAAM,eAAe,QAAQ,CAAC,IAAD;AAClC,UAAG,CAAI,mBAAQ,CAAC,CAAD,CAAf;AACE,iBAAU;AAEV,qBAAU;AARW;AAAS;AAiBH;AAAN;AAEvB,eAAU,MAAM,eAAe,IAAK,CAAC,MAAD;AAFb;AAAM;AAyBE;AAAR;AAEvB,eAAU,MAAM,eAAe;AAFR;AAAQ;AA9DO;AAEtC;AAEA,UAAK,MAAM,YAAY,GAAC,GAAD;AACvB,UAAW,CAAC,cAAD,SAAW,IAAiC,CAA5B,cAAG,CAAC,SAAU,sBAAS,CAAC,CAAD,CAApB,CAAyB,KAAE,CAAF,CAAvD,EACE,cAAQ,CAAC,KAAM,MAAM,KAAM,MAAM,UAAW,MAAM,UAAW,MAAM,IAA3D,CADV;AALsC;AA+CN;AAEhC,wBAAe;AAEf;AAEA,YAAM,iBAAiB,CAAC,UAAW,eAAZ;AAN8B;AAArB;AASA;AAEhC,YAAM,oBAAoB,CAAC,UAAW,eAAZ;AAC1B;AAHgC;AAdG;AAEnC,YAAM,eAAe;AAFc;AApDG;AAEtC,YAAM,eAAe,QAAQ,CAAC,KAAM,MAAP;AAFS;AAmBD;AAAR;AAE7B;AAEA,UAAK,MAAM,eAAe,QAAQ,CAAC,IAAD;AAClC,UAAG,CAAI,mBAAQ,CAAC,CAAD,CAAf;AACE,iBAAU;AAEV,qBAAU;AARiB;AAAQ;AAsBE;AAEvC,YAAM,eAAe,WAAW,CAAC,IAAD;AAFO;AAvJxB;;AAWK,+BAAO,UT+fjB,+BS/fiB,CAAP;AAUD,gCAjDA,kCAiDA;AArBJ;AAwBG;;;AA9DpB,GAgEc,WAhEd;ACAA,0BAIS,0EAJT;;;;AAUiB,yBAAG;AACH,yBAAG;AAGN;;AAEY;;AAEP,2EAAmC,yBAAkB,Ybg3GrD,kCah3GqD,CAArD;AACH,wEAAkC,Yb+2G/B,kCa/2G+B,CAAlC;AAEK,6EAA+B,Sbsa1C,yBata0C,CAA/B;AAED,yEAAmB,UnBwF9B,2BmBxF8B,EAAmB,2BAAO,uBAA7C;AAEN;;;AAEV;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAnBU;;;;;;;;;;;;;;AAghBsB;AAAd;AAEpB;AACA;AAGA,iBAAW,IAAX,GAAqC,KAAK;AAE1C,UAAK;AACL,UAAG,kBAAa,IAAG,cAAC,qCAAQ,uCAAT,CAAnB;AAGF;OAHE;AAOA,UAAY,uBAAD,QAAX;AAEE,+BAAiB,CAAC,KAAM,mEAAa,CAApB;OAFnB;AAKA,UAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,KAAM,CAAP,CADZ;AAGA,UAAY,cAAD,QAAX;AAEE,sBAAS,CAAC,EAAG,WAAW,IAAf;OAFX;AAKA,eAAU;AA7BU;AAAc;AAvEH;AAAX;AAEpB,UAAY,aAAD,QAAX,EACE,aAAO,CAAC,IAAD,CADT;AAEA,eAAU;AAJU;AAAW;AAuGE;AAAb;AAEpB,UAAY,eAAD,QAAX,EACE,eAAS,CAAC,IAAD,CADX;AAGA,UAAY,iBAAD,QAAX,EACE,iBAAY,CAAmB,KAAK,OAAxB,CADd;AAGA,eAAU;AARU;AAAa;AAhGF;AAAX;AAEpB;AACA;AACA;AAEA,eAAU;AACV,gBAAW;AAEX,UAAY,aAAD,QAAX;AAEE,iBAAS,MAAT,GAAmB;AACnB,mBAAW,IAAX,GAAqC,KAAK;AAC1C,qBAAQ,CAAC,KAAM,mEAAa,wDAAW;;;;YAA/B;OAJV;AAOA,UAAY,eAAD,QAAX,EACE,eAAU,CAAC,WAAW,IAAZ,CADZ;AAGA,UAAG,CAAI,OAAP,EACE,MAAM,sBAAS,QAAC,YAAM,CAAC,sBAAuB,GAAE,SAA1B,CAAN,CADlB;AAnBoB;AAAW;AAuBG;AAAd;AAEpB;AAAU;AAEV,eAAU;AAGZ;AACA;AAGE,UAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,KAAM,SAAU,KAAjB,CADZ;AAXoB;AAAc;AAeQ;AAAtB;AAGpB;AACA;AAEA,eAAU;AACV,iBAAW,IAAX,GAAqC,KAAK;AAE1C,UAAI,WAAW,IAAI,WAAY,KAAE,CAAjC;AAEE,YAA2B,CAAvB,WAAW,IAAI,OAAQ,IAAG,GAAH,CAAQ,IAA4B,CAAvB,WAAW,IAAI,OAAQ,GAAE,GAAF,CAA/D;AAEE,eAAM,WAAW,IAAI,kBAAkB,CAAC,gBAAD;AAEvC,cAAY,cAAD,QAAX;AAEE,0BAAS,CAAC,GAAI,WAAW,IAAhB;WAFX;SAMA,UAAY,eAAD,QAAX,EACE,eAAU,CAAC,WAAW,IAAZ,CADZ;OAZJ;AAToB;AAAsB;AAqEX;AAE/B,mBAAQ,OAAO,CAAC,MAAD;AAFgB;AAxTF;AAE7B;AACA,sBAAY,uBAAW,QAAC;AACxB,2BAAiB;AACjB,sBAAY;AACZ,sBAAY;AACZ,uBAAa;AAPqC;AAArB;AAUA;AAEpB,eAAT,KAAS;AACT;AAH6B;AAMF;AAE3B;AAAE;AACF;AACA;AAEA;AACA,eAAS,QAAoB,OAAf,aAAQ,SAAC,EAAM,GAAE,CAAF,kBAA7B;AAAI;AAEF,YAAK,aAAQ,KAAC,CAAD;AACb,cAAO;AACP,iBAAS,SAAW,QAAC,CAAD,4BAApB;AAAI;AAEF,cAAS,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,GAAF,CAAO,IAAI,CAAI,GAAxB;AAEE,aAAC,iBAAD,EAAE,MAAM,GAAP;AACD,kBAAO;WAGT,UAAS,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,GAAF,CAAO,IAAI,GAApB;AAEE,aAAC,iBAAD,EAAE,MAAM,GAAP;WAFH;;AAKF,qBAAQ,KAAC,EAAM,CAAP;;AAxBiB;AAiJc;AAAf;AAE1B,eAAU;AACL;AACL,UADK,IACL;AAAQ,iBAAU;AAClB,gBAFK,IAEL;AAAQ,iBAAU;AAClB,gBAHK,IAGL;AAAY,iBAAU;AACtB,gBAJK,IAIL;AAAQ,iBAAU;AAClB,gBALK,IAKL,kDAAe,SAAU,aAAzB;AAR0B;AAAe;AAtCF;AAEvC;AACA;AACA;AAAS;AAET,uBAAa;AACb,wBAAc;AACd,0BAAgB;AAEhB,YAAyB,IAAlB,cAAkB;AACzB,SAAG,iBAAiB,CAAC,mBAAqB,qDAAtB;AACpB,SAAG,iBAAiB,CAAC,UAAW,4CAAZ;AACpB,SAAG,iBAAiB,CAAC,QAAS,0CAAV;AAEpB,UAAG,aAAS,KAAG,CAAf,EACE,GAAG,QAAH,GAAe,aADjB;AAGA,UAAI,UAAM,KAAG,EAAb;AAEE,WAAG,KAAK,CAAC,OAAQ,UAAM,KAAM,WAAO,cAA5B;AACR,WAAG,iBAAiB,CAAC,mBAAoB,gBAArB;OAGpB,MAAA,GAAG,KAAK,CAAC,OAAQ,SAAT;AAEV,eAAS,QAAoB,OAAf,aAAQ,SAAC,EAAM,GAAE,CAAF,kBAA7B;AAAI;AAEF,qBAAQ,aAAa,CAAC,EAAG;;;;aAAU;;;;YAAd;AACrB,WAAG,iBAAiB,CAAC,SAAU,SAAX;;AAGtB,UAAI,UAAM,KAAG,EAAb,EACE,GAAG,iBAAiB,CAAC,gBAAiB,QAAQ,GAAC,MAAM,KAAK,CAAC,UAAQ,GAAH,GAAD,GAAK,cAAV,CAAtC,CADtB;AAGA,SAAG;AAnCoC;AA1DX;AAE5B,oBAAO,CAAC,UAAW,KAAK,IAAjB;AAFqB;AAKA;AAE5B,oBAAO,CAAC,UAAW,OAAQ,IAApB;AAFqB;AAMA;AAE5B;AACA;AACA;AACA;AAAS;AAET,uBAAa;AACb,wBAAc;AACd,0BAAgB;AAEhB,YAAyB,IAAlB,cAAkB;AACzB,SAAG,iBAAiB,CAAC,OAAS,6CAAV;AACpB,SAAG,iBAAiB,CAAC,QAAS,0CAAV;AACpB,SAAG,iBAAiB,CAAC,UAAW,4CAAZ;AACpB,SAAG,iBAAiB,CAAC,QAAS,0CAAV;AACpB,SAAG,iBAAiB,CAAC,WAAY,6CAAb;AACpB,SAAG,aAAH,GAAoB,iBAAY,gBAAgB,CAAC,kBAAD;AAEhD,YAAO,gBAAW,CAAC,cAAS,mBAAV;AAElB,UAAG,aAAS,KAAG,CAAf,EACE,GAAG,QAAH,GAAe,aADjB;AAGA,UAAI,UAAM,KAAG,EAAb;AAEE,WAAG,KAAK,CAAC,IAAK,UAAM,IAAZ;AACR,WAAG,iBAAiB,CAAC,mBAAoB,gBAArB;OAGpB,MAAA,GAAG,KAAK,CAAC,IAAK,SAAN;AAEV,eAAS,QAAoB,OAAf,aAAQ,SAAC,EAAM,GAAE,CAAF,kBAA7B;AAAI;AAEF,qBAAQ,aAAa,CAAC,EAAG;;;;aAAU;;;;YAAd;AACrB,WAAG,iBAAiB,CAAC,SAAU,SAAX;;AAGtB,UAAI,UAAM,KAAG,EAAb,EACE,GAAG,iBAAiB,CAAC,gBAAiB,QAAQ,GAAC,MAAM,KAAK,CAAC,UAAQ,GAAH,GAAD,GAAK,cAAV,CAAtC,CADtB;AAGA,UAAG,cAAS,KAAG,EAAf;AACE,WAAG,KAAK,CAAC,cAAD;AAER,YAAA,GAAG;AA5CuB;AAiGD;;AAAP;AAEpB;AACA;AAEA,eAAqB,IAAX,OAAW,CACnB;AAEE,gCAAkB,CAChB;AAEE,wBAAG,CAAC,UAAW;;;;eAAI;;;;cAAhB;AACH,kBAAQ,CAAC,EAAD;AAHV,UAKA;AAEE,iBAAO,CAAC,CAAD;AAFT,UAIA;AAEE,iBAAO,CAAC,QAAD;AAFT,SAVgB;AAFpB,OADmB;AALD;AAAO;AAjIA;;AAAP;AAEpB,eAAqB,IAAX,OAAW,CACnB;AAEE,uBAAO,CACL;AAEE,kBAAQ,CAAC,QAAD;AAFV,UAIA;AAEE,iBAAO,CAAC,QAAD;AAFT,UAIA;AAEE,iBAAO,CAAC,QAAD;AAFT,SATK;AAFT,OADmB;AAFD;AAAO;AA/Sf;;AA6BQ,+BAAO,UV0fjB,+BU1fiB,CAAP;AAaF,+BArDN,2BAqDM;AACM;AACN,+BVySP,iCUzSO;AACC;AACA;AACI,oCAxDC,uCAwDD;AACL;AACJ;AACC;AACG,+BNqFH,gDMrFG;AACA,+BNmFH,gDMnFG;AACG,kCAvDH,iCAuDG;AACO,yCNgFH,0DMhFG;AACP,kCN8EH,mDM9EG;AACD,iCN2GR,6CM3GQ;AAxDR;AA2DG;;;AAEF,oEAAmB,UnByBzB,2BmBzByB,EAAoB,wBAAvC;AACQ,4EAAmB,UnBwBjC,2BmBxBiC,EAAoB,yBAAqB,yBAA5D;AAEP;;;AAEZ;AACA;AAHY;AAw4CiB;AAE/B,sBAAY;AACZ,kBAAQ;AAHwB;AAAD;AATF;AAE7B,UAAc,mBAAH,eAAP,MAAO,CAAX;AAEE,oBAAgB,OAAP,OAAU,mBAAH,CAAkB;AAClC,wBAAoB,OAAP,OAAU,mBAAH,CAAkB;OAHxC;AAF6B;AA/3Cf;AAKM;AAGN;AACI;AATJ;AAYN;;;AAEN;AACA;AACA;AACA;AACA;AANM;AAo4Cc;AAAN;AAEhB,UAAQ,CAAJ,SAAI,KAAG,EAAH,CAAO,IAAc,CAAT,cAAS,KAAE,EAAF,CAA7B;AACE,iBAAU;AAEV,qBAAU;AALI;AAAM;AAQC;AAEvB,UAAc,aAAH,eAAP,MAAO,CAAX;AAEE,oBAAgB,OAAP,OAAU,aAAH,CAAY;AAC5B,yBAAqB,OAAP,OAAU,aAAH,CAAY;AACjC,4BAAwB,OAAP,OAAU,aAAH,CAAY;AACpC,uBAAmB,OAAP,OAAU,aAAH,CAAY;AAC/B,wBAAoB,OAAP,OAAU,aAAH,CAAY;OANlC;AAFuB;AA54Cf;AAWU;AACC;AACL;AACQ;AACL;AAfT;AAkBG;;AAIK;AACd;AACA;AAFc;aACd,0BACA;AAFc;;AACd;AACA;AAFc;;;AACd;AACA;AAFc;AAKC,4CALD,sCAKC;AAEN;;;AAET;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAvBS;;;;;;;;;;;;;;AA2yCyB;AAEpC,yBAAc,OAAO,CAAC,KAAD;AAFe;AALV;AAE1B,eAAI,OAAO,CAAC,KAAD;AAFe;AAUG;AAE7B,kBAAO,OAAO,CAAC,KAAD;AAFe;AA1zBI;AAEjC,UAAG,qBAAH,EACE,mBADF;AAFiC;AAijBO;AAAf;AAEzB;AAEA,kBACK,2CAQD,GAPC,kDAAD,GACF,yBAAD,GACC,0CAAD,GACC,kBAAD,GACC,oBAAD,GACC,yBAAD,GACI,kCAAD,GACC,GAAD;AAGN;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,eAAU;AA3Be;AAAe;AAxQF;AAEtC,cAAQ,oBAAoB,CAAC,gBAAiB,0BAAlB;AAC5B,8BAAoB;AAHkB;AAvIN;AAEhC,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,IAAD,CADd;AAEA,UAAY,kBAAD,QAAX;AAEE,0BAAa,CAAC,KAAD;AACb,6BAAiB;OAHnB;AAJgC;AAWC;AAEjC,UAAY,kBAAD,QAAX;AAEE,0BAAa,CAAC,IAAD;AACb,6BAAiB;OAHnB;AAFiC;AAkGG;AAAjB;AAEnB;AAEA;AAGF;AAGE,0BAAgB;AAEhB;AAEA,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,IAAD,CADf;AAGA,UAAY,kBAAD,QAAX;AAEE,0BAAa,CAAC,IAAD;AACb,6BAAiB;OAHnB;AAMA,eAAU;AAvBS;AAAiB;AAgCH;AAAd;AAEnB;AACA;AACA;AAGA,iBAAW,IAAX,GAAqC,KAAK;AAE1C,iBAAY;AAEZ,UAAI,kBAAa,IAAG,cAAC,qCAAQ,uCAAT,CAApB;AAGF;OAHE;AAOA,gBAAW;AAEX,UAAY,oBAAD,QAAX,EACE,oBAAe,CAAC,KAAM,SAAU;;;;UAAjB,CADjB;AAGA,UAAW,CAAC,uBAAD,SAAoB,IAAI,CAAI,OAAvC,EACE,uBAAiB,CAAC,KAAM,mEAAa,QAApB,CADnB;AAGA,UAAW,CAAC,gBAAD,SAAa,IAAI,CAAI,OAAhC,EACE,gBAAU,CAAC,KAAM,QAAP,CADZ;AAGA,eAAU;AA7BS;AAAc;AAtHJ;AAAV;AAEnB,eAAU,SAAG;AAFM;AAAU;AAmmBI;AAAd;AAEnB;AACA;AAEA,eAAU;AACV,eAAS,QAAkB,OAAb,YAAM,SAAC,EAAM,GAAE,CAAF,kBAA3B;AAAI;AAEF,YAAG,MAAH;AACE,qBAAY,kBAAkB,CAAC,YAAM,KAAC,CAAD,CAAP;AAE9B,yBAAY,YAAM,KAAC,CAAD;AAEpB,YAAG,MAAO,KAAE,EAAZ;AACE,mBAAU;AAEV,uBAAU,MAAmB,GAAV,SAAF,GAAc,QAAF;;AAhBd;AAAc;AAnhBA;AAAd;AAGnB,eAAU;AAHS;AAAc;AAlCF;AAAZ;AAEnB;AACA;AACA;AAEA,eAAU;AAEV,WAAM,CAAC,MAAqB;AAE5B,YAAO;AAGT;AAGE,UAAG,GAAH;AAEE,YAAG,gBAAS,CAAC,EAAD,CAAZ;AAGJ;AAGM,cAAG,GAAH;AACE,qBAAU,4BAAS,QAAC;AAEpB,yBAAU,6BAAU,QAAC;SATzB;AAYA,iBAAU,6BAAU,QAAC,YAAM,CAAC,EAAD,CAAN;OAdvB;AAhBmB;AAAY;AA7BC;AAAb;AAEnB;AACA;AAEA,WAAM,CAAC,MAAqB;AAG9B;AAGE,UAAG,WAAO,CAAC,EAAD,CAAV;AAEE,iBAAU,6BAAU,QAAC,YAAM,CAAU,EAAV,CAAN;;AAKrB,iBAAU,8BAAW,QAAC,YAAM,CAAC,EAAD,CAAN;;AAlBL;AAAa;AA2nBA;AAAb;AAEnB,eAAU;AAFS;AAAa;AAtfI;AAEpC;AACA;AAGA,YAAyB,IAAlB,cAAkB;AACzB,SAAG,iBAAiB,CAAC,OAAQ,sCAAT;AACpB,SAAG,iBAAiB,CAAC,QAAS,mCAAV;AACpB,SAAG,iBAAiB,CAAC,UAAW,qCAAZ;AACpB,SAAG,aAAH,GAAoB,iBAAY,gBAAgB,CAAC,kBAAD;AAChD,SAAG,KAAK,CAAC,QAAS,IAAK,IAAf;AACR,UAAG,WAAY,KAAG,EAAlB,EACE,GAAG,iBAAiB,CAAC,eAAgB,WAAjB,CADtB;AAGA,UAAG,iBAAa,KAAG,EAAnB,EACE,GAAG,iBAAiB,CAAC,gBAAiB,SAAU,GAAE,iBAA9B,CADtB;AAGA,UAAW,WAAC,OAAD,KAAX;AAEE,iBAAS,QAAqB,OAAV,WAAC,OAAD,CAAU,GAAE,CAAF,kBAA9B;AAAI;AACF,aAAG,iBAAiB,CAAC,OAAO,CAAC,CAAD,CAAG,QAAS,OAAO,CAAC,CAAD,CAAG,MAA9B;;OAHxB;AAMA,UAAG,IAAK,KAAE,EAAV;AACE,WAAG,KAAK,CAAC,IAAD;AAER,YAAA,GAAG,KAAK,CAAC,IAAD;AA3B0B;AAvSR;AAE5B;AACA,4BAAkB,mBAAc,QAAC;AACjC,kBAAQ,aAAQ,QAAC;AACjB,qBAAW,uBAAW,QAAC;AACvB,qBAAW;AACX,2BAAiB;AACjB,yBAAe;AACf,0BAAgB;AAChB,mCAA0B;AAVuB;AAArB;AAuEA;AAE5B,UAAY,wBAAD,QAAX,EACE,2BAAuB,IADzB;AAGK,eAAL,KAAK;AACG,eAAR,KAAQ;AACO,eAAf,KAAe;AACf;AAR4B;AAiTI;;AAEhC;AACA;AACA;AACA;AACA;AAEwB;AAAf;AAEP;AACA;AACA;AAGA,mBAAW,IAAX,GAAqC,KAAK;AAG9C;AAGI,kBAAW;AAEX,YAAY,aAAD,QAAX,EACE,aAAa,CAAC,MAAM,SAAU;;;;YAAjB,CADf;AAGA,YAAW,CAAC,gBAAD,SAAmB,IAAI,CAAI,OAAtC;AAEE,0BAAgB,CAAC,MAAM,mEAAa,QAApB;SAFlB;AAKA,YAAW,CAAC,SAAD,SAAY,IAAI,CAAI,OAA/B;AAEE,mBAAS,CAAC,MAAM,QAAP;SAFX;AAKA,iBAAU;AA5BH;AAAe;AA+BH;AAAZ;AAEP;AACA;AACA;AAEA,kBAAW;AACX,YAAY,cAAD,QAAX;AAEE,qBAAW,IAAX,GAAqC,KAAK;AAC1C,mBAAS,MAAT,GAAmB;AACnB,wBAAQ,CAAC,MAAM,mEAAa,wDAAW;;;;cAA/B;SAJV;AAOA,YAAG,CAAI,OAAP,EACE,MAAM,sBAAS,QAAC,YAAM,CAAC,sBAAuB,GAAE,GAA1B,CAAN,CADlB;AAGA,iBAAU;AAjBH;AAAY;AAqBrB,yBAAoB;AACpB,kBAAa;AACb,sBAAiB;AAEjB,YAAyB,IAAlB,cAAkB;AAEzB,SAAG,iBAAiB,CAAC,OAAQ,4CAAT;AACpB,SAAG,iBAAiB,CAAC,QAAS,yCAAV;AAEpB,SAAG,aAAH,GAAoB,iBAAY,gBAAgB,CAAC,kBAAD;AAEhD,SAAG,KAAK,CAAC,QAAS,IAAK,IAAf;AAER,UAAG,WAAY,KAAG,EAAlB,EACE,GAAG,iBAAiB,CAAC,eAAgB,WAAjB,CADtB;AAGA,UAAG,iBAAa,KAAG,EAAnB,EACE,GAAG,iBAAiB,CAAC,gBAAiB,SAAU,GAAE,iBAA9B,CADtB;AAGA,UAAW,WAAC,OAAD,KAAX;AAEE,iBAAS,QAAqB,OAAV,WAAC,OAAD,CAAU,GAAE,CAAF,kBAA9B;AAAI;AACF,aAAG,iBAAiB,CAAC,OAAO,CAAC,CAAD,CAAG,QAAS,OAAO,CAAC,CAAD,CAAG,MAA9B;;OAHxB;AAMA,UAAG,IAAK,KAAE,EAAV;AACE,WAAG,KAAK,CAAC,IAAD;AAER,YAAA,GAAG,KAAK,CAAC,IAAD;AAxFsB;AA2FD;AAE/B,uBAAY,CAAC,SAAU,IAAK,GAAG,GAAI,EAAvB;AAFmB;AAKA;AAE/B,uBAAY,CAAC,SAAU,IAAI,GAAG,GAAI,qBAAtB;AAFmB;AAUH;AAE5B,uBAAY,CAAC,MAAO,IAAI,GAAG,GAAI,EAAnB;AAFgB;AALA;AAE5B,uBAAY,CAAC,MAAO,IAAI,GAAG,GAAI,qBAAnB;AAFgB;AAsCC;AAE7B,sBAAS,CAAC,IAAK,GAAI,IAAV;AAFoB;AA5BA;AAE7B,uBAAY,CAAC,OAAO,IAAI,KAAK,YAAY,EAA7B;AAFiB;AAWA;AAG7B,uBAAY,CAAC,OAAQ,IAAK,KAAM,YAAa,qBAAjC;AAHiB;AANA;AAG7B,uBAAY,CAAC,OAAQ,IAAK,KAAM,GAAI,qBAAxB;AAHiB;AAiBE;AAG/B,uBAAY,CAAC,MAAO,IAAK,KAAM,GAAI,qBAAvB;AAHmB;AALH;AAE5B,uBAAY,CAAC,MAAO,IAAK,KAAM,YAAa,EAAhC;AAFgB;AAnLE;;AAAX;AAEnB,eAAqB,IAAX,OAAW,CACnB;AAEE;AACA;AACA;AACA;AACA;AAEwB;AAAf;AAEP,kBAAQ,CAAC,KAAK,OAAN;AAFD;AAAe;AAKH;AAAZ;AAEP,iBAAO,CAAC,KAAK,OAAN;AAFA;AAAY;AAMrB,cAAyB,IAAlB,cAAkB;AACzB,WAAG,iBAAiB,CAAC,OAAQ,4CAAT;AACpB,WAAG,iBAAiB,CAAC,QAAS,yCAAV;AAEpB,WAAG,aAAH,GAAoB,iBAAY,gBAAgB,CAAC,mBAAD;AAEhD,WAAG,KAAK,CAAC,QAAS,IAAK,IAAf;AAER,YAAG,WAAY,KAAG,EAAlB,EACE,GAAG,iBAAiB,CAAC,eAAgB,WAAjB,CADtB;AAKA,YAAG,kBAAa,KAAG,EAAnB,EACE,GAAG,iBAAiB,CAAC,gBAAiB,SAAU,GAAE,kBAA9B,CADtB;AAGA,YAAW,WAAC,OAAD,KAAX;AAEE,mBAAS,QAAqB,OAAV,WAAC,OAAD,CAAU,GAAE,CAAF,kBAA9B;AAAI;AACF,eAAG,iBAAiB,CAAC,OAAO,CAAC,CAAD,CAAG,QAAS,OAAO,CAAC,CAAD,CAAG,MAA9B;;SAHxB;AAMA,YAAG,IAAK,KAAE,EAAV;AACE,aAAG,KAAK,CAAC,IAAD;AAER,cAAA,GAAG,KAAK,CAAC,IAAD;AA5CZ,OADmB;AAFF;AAAW;AA6dI;AAAT;AAEzB,eAAU,kBAAkB,CAAC,GAAD;AAFH;AAAS;AApEC;AAAV;AAEzB,eAAU,kBAAkB,CAAC,CAAD;AAFH;AAAU;AA9BG;AAAb;AAEzB;AAAG;AAAG;AAAG;AAAG;AAAG;AAAG;AAClB;AAEA,WAAM;AAEN,sBAAG,CAAC,eAAI,CAAC,EAAE,EAAE,CAAL,EAAQ;;;;WAAG;;;;UAAhB;AACH,sBAAG,CAAC,eAAI,CAAC,EAAE,EAAE,CAAL,EAAQ;;;;WAAG;;;;UAAhB;AACH,sBAAG,CAAC,eAAI,CAAC,EAAE,EAAE,CAAL,EAAQ;;;;WAAG;;;;UAAhB;AACH,sBAAG,CAAC,eAAI,CAAC,EAAE,GAAG,CAAN,EAAS;;;;WAAG;;;;UAAjB;AACH,sBAAG,CAAC,eAAI,CAAC,EAAE,GAAG,CAAN,EAAS;;;;WAAG;;;;UAAjB;AACH,sBAAG,CAAC,eAAI,CAAC,EAAE,GAAG,CAAN,EAAS;;;;WAAG;;;;UAAjB;AAEH,UAAc,CAAH,CAAD,OAAI,IAAG,EAAH,CAAO,IAAW,CAAN,CAAC,QAAC,EAAD,CAAK,KAAE,GAAF,CAAhC;AAEE,wBAAG,CAAC,eAAI,CAAC,EAAE,GAAG,CAAN,EAAS;;;;aAAG;;;;YAAjB;OAFL;AAMA,UAAG,EAAG,GAAE,CAAR,EACE,KAAM,CADR;AAEA,UAAG,EAAG,GAAE,CAAR,EACE,KAAM,CADR;AAEA,UAAG,EAAG,GAAE,CAAR,EACE,KAAM,CADR;AAGA,eAAU,uBAAU,CAAC,GAAG,GAAG,EAAP,CAAW,GAAE,uBAAU,CAAC,GAAG,GAAG,GAAG,EAAV,CAAZ;AA3BN;AAAa;AAnDA;AAAb;AAGzB;AAAG;AAAG;AAAG;AAAG;AAAG;AAAG;AAClB;AAAY;AACZ;AAAI;AACJ;AAEA,mBAAc;AACd,qBAAgB;AAChB,WAAM;AACN,cAAS;AAET,sBAAG,CAAC,eAAI,CAAC,EAAE,EAAE,CAAL,EAAQ;;;;WAAG;;;;UAAhB;AACH,sBAAG,CAAC,eAAI,CAAC,EAAE,EAAE,CAAL,EAAQ;;;;WAAG;;;;UAAhB;AACH,sBAAG,CAAC,eAAI,CAAC,EAAE,EAAE,CAAL,EAAQ;;;;WAAG;;;;UAAhB;AACH,sBAAG,CAAC,eAAI,CAAC,EAAE,GAAG,CAAN,EAAS;;;;WAAG;;;;UAAjB;AACH,sBAAG,CAAC,eAAI,CAAC,EAAE,GAAG,CAAN,EAAS;;;;WAAG;;;;UAAjB;AACH,sBAAG,CAAC,eAAI,CAAC,EAAE,GAAG,CAAN,EAAS;;;;WAAG;;;;UAAjB;AAEH,UAAc,CAAH,CAAD,OAAI,IAAG,EAAH,CAAO,IAAW,CAAN,CAAC,QAAC,EAAD,CAAK,KAAE,GAAF,CAAhC;AAEE,wBAAG,CAAC,eAAI,CAAC,EAAE,GAAG,CAAN,EAAS;;;;aAAG;;;;YAAjB;AACH,gBAAS;OAHX;AAMA,UAAG,EAAG,GAAE,CAAR,EACE,KAAM,CADR;AAEA,UAAG,EAAG,GAAE,CAAR,EACE,KAAM,CADR;AAEA,UAAG,EAAG,GAAE,CAAR,EACE,KAAM,CADR;AAIA,UAAU,CAAD,OAAI,GAAK,CAAH,EAAG,GAAE,KAAF,CAAlB;AAEE,eAAQ,eAAI,CAAC,EAAE,EAAG,GAAE,KAAF,CAAQ,CAAd;AACZ,wBAAG,CAAC,eAAI,CAAC,EAAE,EAAG,GAAE,KAAF,CAAQ,CAAd,EAAkB;;;;aAAY;;;;YAAnC;AACH,wBAAG,CAAC,eAAI,CAAC,EAAE,EAAG,GAAE,KAAF,CAAQ,CAAd,EAAkB;;;;aAAc;;;;YAArC;AAEH,YAAG,IAAK,KAAE,GAAV;AAEE,uBAAc,UAAW,GAAE,CAAC,CAAH;AACzB,yBAAgB,YAAa,GAAE,CAAC,CAAH;SAH/B;OANF;AAaA,eAAU,uBAAU,CAAC,GAAG,GAAG,EAAP,CAAW,GAAE,uBAAU,CAAC,GAAG,GAAG,GAAG,EAAV,CAAZ;AA/CN;AAAa;AAzFJ;AAAT;AAEzB;AAAG;AAAG;AACN;AAEA,sBAAG,CAAC,eAAI,CAAC,EAAE,EAAE,CAAL,EAAQ;;;;WAAG;;;;UAAhB;AACH,sBAAG,CAAC,eAAI,CAAC,EAAE,EAAE,CAAL,EAAQ;;;;WAAG;;;;UAAhB;AACH,sBAAG,CAAC,eAAI,CAAC,EAAE,EAAE,CAAL,EAAQ;;;;WAAG;;;;UAAhB;AAEH,UAAG,EAAG,GAAE,CAAR,EACE,KAAM,CADR;AAEA,UAAG,EAAG,GAAE,CAAR,EACE,KAAM,CADR;AAEA,UAAG,EAAG,GAAE,CAAR,EACE,KAAM,CADR;AAGA,eAAU,uBAAU,CAAC,GAAG,GAAG,EAAP,CAAW,GAAE,uBAAU,CAAC,EAAE,EAAE,EAAE,CAAP,CAAZ;AAhBN;AAAS;AAmBA;AAAT;AAEzB;AAAG;AAAG;AAAG;AACT;AAEA,WAAM;AAEN,sBAAG,CAAC,eAAI,CAAC,EAAE,EAAE,CAAL,EAAQ;;;;WAAG;;;;UAAhB;AACH,sBAAG,CAAC,eAAI,CAAC,EAAE,EAAE,CAAL,EAAQ;;;;WAAG;;;;UAAhB;AACH,sBAAG,CAAC,eAAI,CAAC,EAAE,EAAE,CAAL,EAAQ;;;;WAAG;;;;UAAhB;AACH,UAAU,CAAD,OAAI,GAAE,EAAf,EACE,gBAAG,CAAC,eAAI,CAAC,EAAE,GAAG,CAAN,EAAS;;;;WAAG;;;;UAAjB,CADL;AAGA,UAAO,CAAH,EAAG,GAAE,CAAF,CAAK,IAAO,CAAH,EAAG,GAAE,EAAF,CAAnB,EACE,KAAM,CADR;AAEA,UAAO,CAAH,EAAG,GAAE,CAAF,CAAK,IAAO,CAAH,EAAG,GAAE,EAAF,CAAnB,EACE,KAAM,CADR;AAEA,UAAO,CAAH,EAAG,GAAE,CAAF,CAAK,IAAO,CAAH,EAAG,GAAE,EAAF,CAAnB,EACE,KAAM,CADR;AAEA,UAAG,EAAG,GAAE,CAAR,EACC,KAAM,CADP;AAGA,eAAU,uBAAU,CAAC,GAAG,GAAG,GAAG,EAAV;AAtBK;AAAS;AA0BI;AAAb;AAEzB;AAAG;AAAG;AAAG;AAAG;AAAG;AACf;AAEA,eAAU;AAEV,sBAAG,CAAC,eAAI,CAAC,EAAE,EAAE,CAAL,EAAQ;;;;WAAG;;;;UAAhB;AACH,UAAG,GAAI,KAAG,CAAV,EACM,OAAC,KADP;AAEA,UAAG,CAAiB,CAAZ,eAAI,CAAC,EAAE,EAAE,CAAL,CAAQ,KAAE,GAAF,CAApB,EACM,OAAC,KADP;AAGA,sBAAG,CAAC,eAAI,CAAC,EAAE,EAAE,CAAL,EAAQ;;;;WAAG;;;;UAAhB;AACH,UAAG,GAAI,KAAG,CAAV,EACM,OAAC,KADP;AAGA,UAAG,CAAiB,CAAZ,eAAI,CAAC,EAAE,EAAE,CAAL,CAAQ,KAAE,GAAF,CAApB,EACM,OAAC,KADP;AAGA,sBAAG,CAAC,eAAI,CAAC,EAAE,EAAE,CAAL,EAAQ;;;;WAAG;;;;UAAhB;AACH,UAAG,GAAI,KAAG,CAAV,EACM,OAAC,KADP;AAGA,sBAAG,CAAC,eAAI,CAAC,EAAE,GAAG,CAAN,EAAS;;;;WAAG;;;;UAAjB;AACH,UAAG,GAAI,KAAE,CAAT;AAEE,YAAG,CAAkB,CAAb,eAAI,CAAC,EAAE,GAAG,CAAN,CAAS,KAAE,GAAF,CAArB,EACM,OAAC,KADP;AAGA,wBAAG,CAAC,eAAI,CAAC,EAAE,GAAG,CAAN,EAAS;;;;aAAG;;;;YAAjB;AACH,YAAG,GAAI,KAAG,CAAV,EACM,OAAC,KADP;AAGA,YAAG,CAAkB,CAAb,eAAI,CAAC,EAAE,GAAG,CAAN,CAAS,KAAE,GAAF,CAArB,EACM,OAAC,KADP;AAGA,wBAAG,CAAC,eAAI,CAAC,EAAE,GAAG,CAAN,EAAS;;;;aAAG;;;;YAAjB;AACH,YAAG,GAAI,KAAG,CAAV,EACM,OAAC,KADP;OAbF;AAzByB;AAAa;AA1DC;AAAd;AAEzB;AAGF;AACA;AAGE,eAAU,kBAAa,CAAC,CAAD;AATE;AAAc;AAzgBF;AAAZ;AAEzB;AAAG;AAAG;AAAG;AAAG;AAAG;AAAG;AAKlB,6BAAU,CAAC,GAAG;;;;WAAG;;;;WAAG;;;;UAAV;AACV,6BAAU,CAAC,GAAG;;;;WAAG;;;;WAAG;;;;WAAG;;;;UAAb;AACV,eAAU,qBAAQ,CAAC,EAAD,CACsC,GAD/B,GAAF,GAAQ,eAAS,CAAC,GAAG,CAAJ,CAAX,GAAoB,GAAF,GAAQ,eAAS,CAAC,GAAG,CAAJ,CAAX,GAAoB,GAAF,GAC7D,eAAS,CAAC,GAAG,CAAJ,CAD0D,GACjD,GAAF,GAAQ,eAAS,CAAC,GAAG,CAAJ,CAAX,GAAoB,GAAF,GAAQ,eAAS,CAAC,GAAG,CAAJ,CAAX;AAUxD,eAAU,MAAO,GAAE,QAAF;AApBQ;AAAY;AAwBJ;AAAR;AAEzB;AAAG;AAAG;AAEN,6BAAU,CAAC,GAAG;;;;WAAG;;;;WAAG;;;;UAAV;AAEV,eAAU,qBAAQ,CAAC,EAAD,CAAmC,GAA5B,GAAF,GAAQ,eAAS,CAAC,GAAG,CAAJ,CAAX,GAAoB,GAAF,GAAQ,eAAS,CAAC,GAAG,CAAJ,CAAX;AAN5B;AAAQ;AASA;AAAR;AAEzB;AAAG;AAAG;AAAG;AAET,6BAAU,CAAC,GAAG;;;;WAAG;;;;WAAG;;;;WAAG;;;;UAAb;AACV,eAAU,eAAS,CAAC,GAAG,CAAJ,CAA6D,GAApD,GAAF,GAAQ,eAAS,CAAC,GAAG,CAAJ,CAAX,GAAoB,GAAF,GAAQ,eAAS,CAAC,GAAG,CAAJ,CAAX,GAAoB,GAAF,GAAQ,qBAAQ,CAAC,EAAD,CAAV;AALvD;AAAQ;AAtCiB;AAAzB;AAEzB,eAAU;AAFe;AAAyB;AAiKd;AAAX;AAEzB,eAAU,CAAC,aAAa,CAAC,EAAD;AAFC;AAAW;AApCD;AAAV;AAEzB;AAGA,WAAM,CAAC,MAAqB;AAE5B,UAAG,YAAQ,CAAC,EAAD,CAAX,EACE,SAAiB,UAAC,EAAD,CADnB;AAPyB;AAAU;AAnET;AAE1B;AACA;AAGA,UAAG,CAAI,qBAAP;AAEE,gBAAQ,iBAAiB,CAAC,gBAAiB,0BAAlB;AACzB,gCAAoB;OAHtB;AAMA,YAAO;AACP,cAAS,QAAoE,GAA9C,iDAAX;;;;UAAW,CAAb,GAAyB,UAAF,GAA0B,iDAAZ;;;;UAAY,CAAd,GAAyB,oCAAD;AAE7E,iCAAwB;AAG1B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAnC4B;AA/GC;AAE3B,UAAG,mBAAc,SAAjB;AAEE;OAFF;AAKA,UAAI,iBAAY,KAAG,EAAnB;AAEE;;AAIA;;AAbyB;AAiBJ;;AAAJ;AAEnB,eAAqB,IAAX,OAAW,CACnB;AAEE,8BAAiB;AACjB;AAHF,OADmB;AAFF;AAAI;AA1DQ;;AAAZ;AAEnB,eAAqB,IAAX,OAAW,CACnB;AAEE;AAE4B;AAAnB;AAEP;AAEA,kBAAQ,oBAAoB,CAAC,gBAAiB,GAAlB;AAGpC;AAGQ,+BAAgB;AAChB;AACA,kBAAQ,CAAC,kBAAD;AAZD;AAAmB;AAgB5B;AACA,gBAAQ,iBAAiB,CAAC,gBAAiB,GAAlB;AACzB;AAtBF,OADmB;AAFF;AAAY;AAwyBD;AAE9B;AAGA,UAAG,mBAAc,SAAS,IAAwB,CAAnB,mBAAc,KAAK,KAAG,EAAH,CAAlD;AAEE,aAAM,mCAAa,QAAC;AACpB,4BAAgB,EAAE,UAAO,CAAC,mBAAc,KAAf;AACzB,6BAAiB,EAAE,UAAO,CAAC,mBAAc,KAAI,GAAC,SAApB;AAC1B,6BAAiB,yBAAa,CAAC,EAAE,UAAO,CAAC,mBAAc,KAAI,GAAC,cAApB,CAAV;AAC9B,8BAAkB,yBAAa,CAAC,EAAE,UAAO,CAAC,mBAAc,KAAI,GAAC,eAApB,CAAV;AAC/B,UAAG,eAAH,EAAG;OAPL;AAL8B;AAoEC;AAE/B;AAEA,UAAG,mBAAc,SAAS,IAAwB,CAAnB,mBAAc,KAAK,KAAG,EAAH,CAAlD;AAEE,aAAM,mCAAa,QAAC;AACpB,UAAE,UAAO,CAAC,mBAAc,MAAS,iBAAxB;AACT,UAAE,UAAO,CAAC,mBAAc,KAAI,GAAC,SAAD,CAAe,kBAAlC;AACT,UAAE,UAAO,CAAC,mBAAc,KAAI,GAAC,cAAD,CAAiC,qDAAb;;;;aAA0B,KCxyCQ,KDwyCrB,CAApD;AACT,UAAE,UAAO,CAAC,mBAAc,KAAI,GAAC,eAAD,CAAmC,qDAAd;;;;aAA2B,KCzyCM,KDyyCnB,CAAtD;AACT,UAAG,eAAH,EAAG;OAPL;AAJ+B;AAhBD;AAE9B,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,IAAD,CADf;AAF8B;AAzzBC;AAE/B,0BAAe;AACf;AAH+B;AA5fpB;;AA8CS,+BAAO,UVgYjB,+BUhYiB,CAAP;AA6CN,2BAxHN,uBAwHM;AACQ;AACD;AACG,qCAvIV,6BAuIU;AACD,oCAjNC,uCAiND;AACN,8BVKT,8BULS;AACO,qCNvCZ,6CMuCY;AACD,oCNxCX,6CMwCW;AACK,yCNtEH,0DMsEG;AACP,kCAhJR,4BAgJQ;AACH,+BNtEH,gDMsEG;AArGP;AAwGG;;;AAyCG;AAEP,iBAAD,mBAAC,qCAAgB,WAAC,cAAD,CAAW,GAAE,CAA9B,CAAC;AACV,kBAAQ,CAAO,WAAC,cAAD,CAAW,GAAE,CAApB,CAAsB,OAA9B,GAAyC;AACzC,kBAAQ,CAAO,WAAC,cAAD,CAAW,GAAE,CAApB,CAAsB,MAA9B,GAAwC;AAJvB;AAXE;AAAZ;AAEP,aAAU,EAAE,SAAC;AAFN;AAAY;AAKA;AAAZ;AAEP,aAAsB,EAAE,QAAM,CAAC,KAAD;AAFvB;AAAY;AArBD;AAAX;AAEP;AAEK;AACH,QADG,IACH;AAAS,YAAO;AAChB,cAFG,IAEH;AAAU,YAAO;AACjB,cAHG,IAGH;AAAS,YAAO;AAChB,cAJG,IAIH;AAAY,YAAO;AACnB,cALG,IAKH;AAAU,YAAO;AACjB,cANG,IAMH;AAAW,YAAO;AAClB,cAPG,IAOH,mCAAY,MAAO,cAAnB;AAEF,aAAU;AAbH;AAAW;AAxPpB,mBAmPc;AA0bI;AAAT;AAEP;AAEA,YAAO,qBAAQ,CAAC,CAAD;AACf,aAAa,GAAD,OAAK,GAAC,CAAlB,EACE,MAAO,GAAI,GAAE,GAAF;AAEb,eAAU;AARH;AAAS;AA1bJ;AA2wCd;AACE,oBAAW;AADb;AA9/CA,GAmPc,gCAnPd;ACAA,2BAES,yDAFT;;;;AAQW,mBAAG;AACF,oBAAG;AACD,sBAAG;AACJ,qBAAG;AACL,mBAAG;AACD,qBAAG;AACL,mBAAG;AAEA,sBAAG;AACF,uBAAG;AACN,oBAAG;AACH,oBAAG;AACL,kBAAG;AACF,mBAAG;AACH,mBAAG;AACD,qBAAG;AACA,wBAAG;AACL,sBAAG;AACF,uBAAG;AACH,uBAAG;AAyOF;AA7NA;;AAGI;;AAKN;AAiWkB;AAAV;AAEpB,eAAuB,WAAC,UAAD;AAFH;AAAU;AAeC;AAEd,eAAD,mBAAC,aAAM,MAAP,CAAC;AAFc;AAnCJ;AAAP;AAEpB;AAEA,UAAG,uCAAO,GAAQ,kCAAN;;;;UAAM,CAAlB,EACM,OAAC,CADP;AAGA,UAAG,uCAAO,GAAQ,kCAAN;;;;UAAM,CAAlB,EACM,OAAC,EADP;AAGA,eAAU;AACV,eAAc,uCAAO,0DAArB;AAAI;AAEF,YAAG,UAAI,CAAC,MAAD,CAAS,GAAE,MAAM,CAAC,MAAD,CAAxB,EACM,OAAC,CADP;AAEA,YAAG,UAAI,CAAC,MAAD,CAAS,GAAE,MAAM,CAAC,MAAD,CAAxB,EACM,OAAC,EADP;;AAfkB;AAAO;AAyBH;AAAJ;AAEpB,eAAqB,WAAC,UAAD;AAFD;AAAI;AAKD;AAAH;AAEpB,eAAoB;AAFA;AAAG;AAUK;AAAR;AAEpB,eAAqB,gBAAC,WAAM,YAAa,uCAApB;AAFD;AAAQ;AAKA;AAAR;AAEpB,eAAqB,gBAAC,WAAM,YAAa,OAApB;AAFD;AAAQ;AA1XhB;AAaN;AACM;AA+YkB;AAAV;AAEpB,eAAuB,WAAC,UAAD;AAFH;AAAU;AAeC;AAEd,eAAD,mBAAC,aAAM,MAAP,CAAC;AAFc;AAzClB,wBAAG;AAFmB;AAAT;AAI1B;AACA;AACA;AAEA,eAAgB,kCAAN;;;;UAAM;AAChB,UAAG,cAAG,CAAC,MAAD,CAAN,EACM,MAAJ,IAAG,CADL;AAEM,wCAAN;;;;WAAwB,UAAP,MAAO,GAAI,CAAJ,CAAlB;AAEN,eAAgB,2BAAN;;;;UAAM;AAChB,aAAM,MAAO,IAAS,4BAAN;;;;UAAM,CAAtB;AAEE,eAAQ,MAAM,CAAC,MAAD;AACd,YAAU,CAAP,MAAO,GAAE,CAAF,CAAI,IAAS,4BAAN;;;;YAAM,CAAvB;AACE,kBAAS,MAAM,CAAC,MAAO,GAAE,CAAV;AAEf,sBAAS;AAEX,cAAM,CAAQ,UAAP,MAAO,GAAI,CAAJ,CAAR,CAAN,GAAwC,mCAAW,KAAM,KAAjB;AACpC,cAAJ,IAAY;;AAvBY;AAAS;AAiCX;AAAJ;AAEpB,eAAqB,WAAC,UAAD;AAFD;AAAI;AAKD;AAAH;AAEpB,eAAoB;AAFA;AAAG;AAYV,0BAAG;AAFW;AAAP;AAIpB;AACA;AACA;AACA;AAEM,wCAAN;;;;WAAiB,uCAAO,GAAE,CAApB;AACN,eAAc,uCAAO,0DAArB;AAAI;AAEU,8CAAR,CAAC,WAAL,eAAI;;;;aAAiB;;;;aAAM;;;;YAAf;AACZ,oBAAa,MAAO,GAAE,CAAF;AACpB,cAAM,CAAC,SAAD,CAAN,GAAqB;AACrB,cAAM,CAAC,SAAU,GAAE,CAAb,CAAN,GAAyB;;AAfP;AAAO;AAnaf;AAYD;AAEH,kBAAG;AACL,gBAAG;AA2aA,oBAAG,cAAC,GAAK,GAAK,GAAK,GAAK,GAAK,GAAK,GAAK,GAAK,GAAK,EAA9C;AAFc;AAAP;AAInB,eAAU,uBAAK,IAAG,SAAH;AAJI;AAAO;AAOF;AAAL;AAEnB,eAAc,UAAD;AAFM;AAAK;AAKE;AAAP;AAEnB,eAAU,2BAAQ,UAAR;AAFS;AAAO;AAKM;AAElC;AAFkC;AA7brB;AAuBG;AAidc;AAAN;AAEtB,eAAU,UAAK,KAAE,MAAF;AAFO;AAAM;AAKG;AAAT;AAEtB,eAAU,CAAI,qCAAO,MAAP;AAFQ;AAAS;AAKE;AAAL;AAE5B,eAAU,qBAAQ,CAAC,MAAD;AAFU;AAAK;AAKH;AAAR;AAEtB,eAAU,+BAAS,UAAT;AAFY;AAAQ;AAKM;AAEtC;AAFsC;AAKA;AAAR;AAE5B,eAAU,wBAAW,CAAC,QAAS,MAAV;AAFO;AAAQ;AA1etB;AAmEC;AAguBc;AAAN;AAEvB,eAAU,kBAAS,CAAC,WAAM,OLn0B6B,GKm0BpC;AAFI;AAAM;AAKG;AAAT;AAEvB,eAAU,CAAI,kBAAS,CAAC,WAAM,OLx0ByB,GKw0BhC;AAFA;AAAS;AAKD;AAAR;AAEvB,eAAmB,4BAAa,CAAC,WAAM,4BhBrXiE,KgBqXxE;AAFT;AAAQ;AAKG;;AAAX;AAEvB;AAAI;AAAI;AAAI;AAAI;AAAI;AAAI;AACxB;AAAI;AAAI;AAEU;AAAT;AAEP;AAEA,cAAO,qBAAQ,CAAC,CAAD;AACf,eAAa,GAAD,OAAM,GAAE,CAApB,EACE,MAAO,GAAI,GAAE,GAAF;AAEb,iBAAU;AARH;AAAS;AAWlB,UAAG,cAAH;AAEE,aAAM;AACN,aAAM;OAHR;AAMA,6BAAU,CAAC,YAAM;;;;WAAI;;;;WAAI;;;;UAAf;AACV,6BAAU,CAAC,YAAM;;;;WAAI;;;;WAAI;;;;WAAI;;;;UAAnB;AAEV,UAAG,gBAAH,EACE,OAAQ,GAAuB,GAAjB,SAAS,CAAC,GAAI,CAAL,CAAX,GAAqB,GADnC;AAGA,eAAU,SAAS,CAAC,GAAG,CAAJ,CACqD,GAD5C,EAAF,GAAO,SAAS,CAAC,GAAG,CAAJ,CAAX,GAAoB,EAAF,GAAO,SAAS,CAAC,GAAG,CAAJ,CAAX,GAAoB,GAAF,GAC9D,SAAS,CAAC,GAAG,CAAJ,CAD2D,GAClD,EAAF,GAAO,SAAS,CAAC,GAAG,CAAJ,CAAX,GAAoB,EAAF,GAAO,SAAS,CAAC,GAAG,CAAJ,CAAX,GAAoB,IAAF;AA7BjD;AAAW;AA/uBnB;AAgBF;AAmwBH,qBAAG;AAFgB;AAAR;AAIrB;AACA;AACA;AAEA,UAAG,MAAO,IAAG,CAAb;AAEE,eAAO,YAAC,CAAY,CAAZ;AACR,iBAAU,OAAO,QAAC;OAHpB;AAKA,eAAU;AACV,UAAG,MAAO,GAAE,KAAZ;AACE,mBAAY;AAEZ,uBAAY;AACP,wCAAP;;;;WAAkB,QAAX;AACP;AACE,eAAM,MAAO,KAAG,CAAhB;AAEE,cAAG,MAAO,GAAE,QAAZ;AACE,qBAAU;AAEV,yBAAU;AACZ,iBAAO,WAAW,CAAC;;;;eAAS,MAAV;AAClB,0BAAW,CAAC,QAAS,MAAV;AACP,gBAAJ,IAAY;;AAThB;AAYS,0CAAP;;;;aAAkB,CAAX;AAZT;AAnBqB;AAAQ;AAjwBhB;AAKG;;;AAEd;AACA;AACA;AACA;AACA;AACA;AAPc;;;;;;;;AA6zBqB;AAAb;AAExB,eAAU,cAAS,UAAU,CAAK,gBAAC,gBAAO,EAAG,cAAX,CAAL;AAFL;AAAa;AA+DQ;;AAArB;AAExB,eAAqB,IAAX,OAAW,CACnB;AAEE,4BAAY,CAAC,UACb;AAEE,kBAAQ,CAAC,IAAD;AAFV,UAIA;AAEE,iBAAO,CAAC,MAAD;AAFT,SALY;AAFd,OADmB;AAFG;AAAqB;AAsBd;AAAP;AAExB,eAAU;AACV,UAAY,WAAD,QAAX,EACE,WAAM,CAAC,mBAAM,CAAC,2DAAsB,mBAAC,iBAAD,CAAvB,CAAP,CADR;AAHwB;AAAO;AAOA;AAAP;AAExB,eAAU;AACV,UAAY,WAAD,QAAX,EACE,WAAM,CAAC,mBAAM,CAAC,yDAAoB,mBAAC,iBAAD,CAArB,CAAP,CADR;AAHwB;AAAO;AAStB,sBAAG;AACC,wBAAG;AAHc;AAAN;AAKxB;AAEA,aAA0B,MAAM;AAEhC,UAAgB,CAAZ,IAAI,OAAQ,GAAE,GAAF,CAAa,IAAgB,CAAZ,IAAI,OAAQ,GAAE,GAAF,CAA7C;AAEE,YAAY,WAAD,QAAX;AAEE,qBAAM,CAAC,mBAAM,CAAC,qDAAgB,mBAAC,kBAAmB,EAAR,aAAQ,OAApB,CAAjB,CAAP;AACN;SAGA,YAAM,uBAAkB,QAAC,aAAS,CAAC,qDAAgB,mBAAC,kBAAe,EAAJ,IAAI,OAAhB,CAAjB,CAAT;OAR7B;AAUA,sBAAW,CAAC,IAAI,aAAL;AACX,eAAU;AACV,UAAY,YAAD,QAAX,EACE,YAAO,EADT;AArBwB;AAAM;AA/HG;AAEjC,mBAAM,CAAQ,iCAAO,sBAAS,WAAC,GAAS,KAAlC;AAF4B;AAAD;AAKA;AAEjC,mBAAM,CAAC,QAAS,sBAAS,WAAC,GAAS,KAA7B;AAFmD;AAAxB;AAKA;AAEjC;AAEU;AACV,uBAAa;AACb,2BAAiB,aAAc,IAAI,CAAI,sBAAS,mBAAmB,CAAC,SAAD,CAApC;AAC/B,eAAU,cAAS,SAAS,CAAC,OAAD;AAC5B,qBAAU,CAAC,yBAAa,CAAC,oBAAD,EAAgB,kCAAN;;;;UAAM,CAA9B;AAR6F;AAAtE;AAWA;AAEjC,UAAG,kBAAH,EACY,SAAV,KAAU,YADZ;AAEU;AAJuB;AAcxB,oBAAG;AAFyB;AAIrC;AACA;AAEA,kBAAoB;AACpB,gBAAW;AAEb;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,UAAG,OAAQ,KAAG,GAAd,EACE,MAAM,uBAAkB,QAAC,aAAS,CAAC,qDAAgB,mBAAC,aAAW,SAAZ,CAAjB,CAAT,CAD3B;AAEA,sBAAW,CAAC,SAAD;AAtB0B;AAyBA;AAErC,yBAAY,CAAC,UAAW,QAAS,IAArB;AAFyB;AAOzB,uBAAG;AACH,uBAAG;AACL,qBAAG;AACF,sBAAG;AALuB;AAOrC,qBAAW;AACX,oBAAU;AACV,uBAAa;AACb,sBAA8B,IAAlB,cAAkB;AAC9B,mBAAQ,iBAAiB,CAAC,aAAe,sCAAhB;AACzB,mBAAQ,iBAAiB,CAAC,aAAe,sCAAhB;AACzB,mBAAQ,iBAAiB,CAAC,YAAc,qCAAf;AACzB;AACE,qBAAQ,KAAK,CAAC,WAAY,UAAW,IAAxB;AACb,qBAAQ;AAFV;AAIE;;AAEE,cAAY,MAAD,QAAX;AACE,kBAAM,CAAC,CAAC,SAAF;AAEN;SATN;;AAdqC;AA6CA;AAAb;AAExB,eAAe,MAAU,0BAAqB,CAAC,SAAD;AAFtB;AAAa;AA4CH;AAAV;AAExB;AACA;AACA;AAEA,UAAG,MAAO,GAAO,CAAL,cAAK,GAAE,kBAAF,CAAjB,EACE,SAAU,cAAK,GAAE,kBADnB;AAGK,wCAAL;;;;WAAgB,MAAX;AACL,eAAU;AACV,eAAc,yBAA8B,OAAX,CAAP,MAAO,GAAE,kBAAF,CAAW,GAAE,CAAF,kBAA5C;AAAI;AACF,aAAK,CAAC,MAAO,GAAE,kBAAV,CAAL,GAA4B,MAAM,CAAC,MAAD;;AAEpC,eAAU,cAAS,UAAU,CAAC,KAAD;AAC7B,uBAAY,kBAAS,GAAE,MAAvB;AAfwB;AAAU;AAkBE;AAEpC;AACA;AAEA,eAAU,cAAS,SAAS,CAAC,OAAD;AAC5B,kBAAK,CAAC,OAAQ,EAAS,kCAAN;;;;UAAM,CAAlB;AAEL,cAAS;AACT,UAAG,KAAM,KAAG,OAAZ,EACE,gBAAW,CAAC,EAAD,CADb;AAToC;AA38BpB;AAcI;AACA,+BAAc,wBAAd;AACA,+BAAc,yBAAmB,ahB4/B5C,+BgB5/B4C,EAA0B,6BAA3D;AAhBJ;AA2BF,sFAEA,MACG,QACC,SACE,WACH,SACD,QACO,eACH,YACA,YACF,UACI,cACJ,SACH,OACC,OACC,SACI,aACG,eACH,YACA,YACH,QArBJ;;AAEA,0BAAY,SpBtClB,6BoBsCkB,EAAZ;AACG;AACC,6BAAa,wBAAb;AACE,+BAAc,0BAAS,yBAAvB;AACH,+BA2CH,4BA3CG;AACD,8BpB3CR,4BoB2CQ;AACO;AACH;AACA,gCAAa,wBAAb,EpB9CZ,4BoB8CY;AACF,8BAAY,SpB/CtB,6BoB+CsB,EAAZ;AACI,kCAAY,SpBhD1B,6BoBgD0B,GAA8B,clB1NtD,8BkB0NsD,EAA1C;AACJ,6BAAa,yBAAsB,SpBjD7C,6BoBiD6C,EAAnC;AACH,6BpBlDP,4BoBkDO;AACC;AACC,6BAAY,SpBpDrB,6BoBoDqB,EAAZ;AACI,iCAAY,SpBrDzB,6BoBqDyB,GAA8B,clB/NrD,8BkB+NqD,EAA1C;AACG,mCAAa,wBAAb;AACH,gCAAa,wBAAb;AACA,gCAAa,yBAAsB,SpBxDhD,6BoBwDgD,EAAnC;AACH;AACF;AACA,6BpB3DR,6BoB2DQ;AAvBF;AA0BU;;;AAEtB;AACA;AAHsB;;;;;AAkkCmB;AAAX;AAC7B;AADwC;AAE3C,qCAAU,mBAAc,WAAC,WAAD,EAAxB;AADG;AADwC;AACxC;AADwC;AAAX;AAAW;AAPF;AAE/B;AACV,oBAAU,CAAC;AACX,4BAAkB;AAJ8D;AAAvC;AAYD;AAAR;AAEhC,eAAU,WAAO,GAAuB,CAArB,mBAAc,UAAC,EAAM,GAAE,CAAF,CAAvB;AACjB,UAAG,MAAH,EACM,WAAJ,IAAG,CADL;AAHgC;AAAQ;AAvkChB;AAWR,wFAEQ,eAFR;;AAEQ,sCAbA,sCAaA;AAFR;AAKH,uEAAoC,SpB9EzC,6BoB8EyC,GAAQ,UpB9EjD,6BoB8EiD,EAA5C,ELlGK,oCKkGL;AAEI,yFAED,MAFC;;AAED,2BAAe,YAJlB,4BAIkB,EAAf;AAFC;AAKH;;;AAEZ;AAFY;;;;;AA25BW;AAAH;AAEtB,eAAU,UAAK,IAAI,CAAC,IAAD;AACnB,oBAAK,CAAC,OAAW,KAAZ;AAHiB;AAAG;AAMG;AAE5B;AAEA,eAAc,QAAiB,OAAZ,UAAK,OAAO,GAAE,CAAF,kBAA/B;AAAI;AACF,sBAAK,CAAC,OAAW,IAAZ;;AACP,gBAAK;AANuB;AASC;AAE7B,oBAAK,CAAC,OAAW,IAAZ;AACL,gBAAK,OAAO,CAAC,MAAD;AAHiB;AAME;AAE/B,gBAAK,SAAS,CAAC,QAAS,OAAV;AAFiB;AAKH;AAAN;AAEtB,gBAAK;AACL,eAAU;AAHY;AAAM;AAMD;AAAL;AACnB;AADwB;AAE3B,YAAG,gBAAM,GAAE,CAAX;AACE,uCAAU,cAAK,CAAC,CAAD,EAAf;AAEA,2CAAU,IAAV;AAJC;AADwB;AACxB;AADwB;AAAL;AAAK;AAQQ;AAAb;AAEtB,eAAU,6BAAwB,QAAC,YAAM,CAAC,IAAD,CAAN;AAFb;AAAa;AAKD;AAAZ;AAEtB,eAAU,UAAK;AAFO;AAAY;AAKH;AAAT;AAEtB,eAAU,UAAK;AAFO;AAAS;AAKA;AAAT;AACnB;AAD4B;AAE/B,qCAAoB,cAAC,UAAK,KAAC,MAAD,CAAN,CAApB;AADG;AAD4B;AAC5B;AAD4B;AAAT;AAAS;AAKF;AAAP;AAEtB,eAAU,gBAAW,CAAC,MAAkB,kCAAnB;AAFC;AAAO;AAKI;AAAX;AAEtB,eAAU,UAAK,YAAY,CAAC,MAAO,UAAR;AAFL;AAAW;AAKJ;AAE7B,gBAAK,OAAO,CAAC,OAAQ,IAAT;AACZ,oBAAK,CAAC,OAAW,KAAZ;AAHwB;AAMH;AAAJ;AACnB;AADuB;AAE1B,qCAAU,cAAK,CAAC,gBAAM,GAAE,CAAT,EAAf;AADG;AADuB;AACvB;AADuB;AAAJ;AAAI;AAKC;;AAIC;AAAN;AAEtB,eAAU,eAAU,CAAC,MAAkB,kCAAnB;AAFE;AAAM;AAKI;AAAV;AAEtB,eAAU,UAAK,YAAY,CAAC,MAAO,UAAR;AAC3B,UAAG,MAAO,GAAE,CAAC,CAAb,EACE,WAAM,CAAC,MAAD,CADR;AAHsB;AAAU;AAOG;AAEnC,gBAAK,YAAC,CAAY,MAAZ;AAF6B;AAKH;AAEhC,gBAAK,SAAC,CAAS,MAAT;AAF0B;AAKA;AAEhC,UAAG,UAAK,KAAC,MAAD,CAAS,IAAG,IAApB,EACY,cAAC,UAAK,KAAC,MAAD,CAAN,CAAe,WAD3B;AAEA,gBAAK,KAAC,OAAW,KAAZ;AACL,UAAG,KAAM,KAAG,IAAZ,EACE,KAAK,UADP;AALgC;AAcL;AAE3B,uBAAY;AACZ;AACE,kBAAK,KAAK;AADZ;AAGE,yBAAY;AAHd;AAH2B;AAUE;;AAhJE;AAErB;AACV,mBAAS,mBAAO,QAAC;AAHe;AAAD;AAMA;AAE/B;AACM,eAAN,KAAM;AACI;AAJqB;AAp5BjB;;;;;AAmCA;;;AAEZ;AAFY;AAuiCkB;AAAV;AAEtB,eAAe,0CAAL;;;;UAAK;AAFO;AAAU;AAgBC;AAE5B,iDAAL;;;;WAAgB,MAAX;AAF4B;AAjCF;AAErB;AACV,mBAAS;AAH6C;AAAvB;AAMH;AAAN;AAEtB,eAAU,aAAM,CAAO,kCAAN;;;;UAAM,CAAP;AAFM;AAAM;AAKA;AAAN;AAEtB,mBAAS,UAAM,GAAE,MAAF;AACf,eAAU;AAHY;AAAM;AAWA;AAAN;AAEtB,eAAU,aAAM,CAAC,OAAc,kCAAN;;;;UAAM,CAAf;AAFM;AAAM;AAKA;AAAN;AAEjB,6CAAL;;;;WAAa,OAAQ,MAAhB;AACL,eAAU;AAHY;AAAM;AAWE;AAAR;AAEtB,eAAU;AAFY;AAAQ;AA5jChB;AAeN;AACN;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATM;aACN,kCACA,IAAA,4BACA,IAAA,0CACA,IAAA,oDACA,IAAA,0BACA,IAAA,kBACA,IAAA,gCACA,IAAA,wCACA,0CAPA;AAFM;;AACN;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATM;;;AACN;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATM;AAYW;AAkiEiB;;AAEpC;AACA;AACA;AAEwB;AAG1B;AACA;AACA;AACA;AACA;AACA;AAR0B;AAYH;AAEnB;AACA;AACA;AAEA,YAAG,IAAK,KAAE,EAAV,EACE,MADF;AAGA,mBAAY,OAAO,UAAQ,CAAC,OAAO,OAAC,YAAT;AAE3B,eAAQ,QAAQ,YAAY,CAAC,IAAD;AAE5B,YAAY,IAAD,QAAX;AAEE,eAAM,IAAI,gBAAC,EAAY,QAAC;AAExB,yBAAgB,IAAI,gBAAC;AAErB,cAA0B,CAAtB,YAAY,YAAC,EAAS,KAAE,4BAAF,CAAW,IAAI,IAAI,SAAS,CAAC,OAAD,CAAS,WAA/D;AAEE,0BAAc,CAAC,IAAI,SAAS,CAAC,OAAD,CAAS,YAAW,MAAlC;WAFhB;AAKA,cAAG,EAAG,KAAE,QAAR;AAEE,sBAAY,uBAAY,CAAO,KAAC,MAAR,CAAxB;AACA,gBAAI,SAAS,CAAC,QAAS,CAAV;WAHf;AAMA,cAAG,EAAG,KAAE,SAAR;AAEE,sBAAY,uBAAa,CAAQ,UAAC,MAAD,CAAR,CAAzB;AACA,gBAAI,SAAS,CAAC,QAAS,CAAV;WAHf;AAMA,cAAG,EAAG,KAAE,SAAR;AAEE,sBAAY,uBAAa,CAAO,MAAC,MAAD,CAAQ,KAAC,MAAhB,CAAzB;AACA,gBAAI,SAAS,CAAC,QAAS,CAAV;WAHf;AAMA,cAAG,EAAG,KAAE,QAAR;AAEE,sBAAY,uBAAY,CAAO,cAAC,MAAD,CAAP,CAAxB;AACA,gBAAI,SAAS,CAAC,QAAS,CAAV;WAHf;AAMA,cAAG,EAAG,KAAE,WAAR;AAEE,sBAAY,uBAAe,CAAC,8BAAW,gBAAc,CAAO,KAAC,MAAD,CAAU,IAAjB,CAA1B,CAA3B;AACA,gBAAI,SAAS,CAAC,QAAS,CAAV;WAHf;AAMA,cAAG,EAAG,KAAE,OAAR;AAEE,sBAAY,uBAAe,CAAC,8BAAW,UAAU,CAAO,KAAC,MAAR,CAAtB,CAA3B;AACA,gBAAI,SAAS,CAAC,QAAS,CAAV;WAHf;AAMA,cAAG,EAAG,KAAE,OAAR;AAEE,sBAAY,uBAAe,CAAC,8BAAW,UAAU,CAAO,KAAC,MAAR,CAAtB,CAA3B;AACA,gBAAI,SAAS,CAAC,QAAS,CAAV;WAHf;SA/CF;AAbmB;AAsErB,sBAAwB,8BAAxB;AACA,iBAAW,CAAC,MAAK,GAAG,IAAT;AACX,oBAAc,CAAC,MAAM,SAAP;AACd,aAAO;AA3F6B;AA8FA;AAEpC;AAEA,YAAO;AAET;AAEE,kDAAS,GAAT;AARoC;AAWH;;AAAN;AAE3B;AACA;AACA;AACA;AAAQ;AACR;AACA;AAEwB;AAEtB;AAAI;AAAK;AAET,iBAAqB,MAAT,SAAS,sEAArB;AAAI,iBAAiB,GAAjB;AAEF,yBAAgB,IAAI,gBAAC;AAErB,gBAAO;AACP,cAAU,QAAD,OAAK,GAAE,CAAhB,EACE,MAAO,GADT;AAGA,iBAAQ,IAAI,QAAC;AAIb,eAAM,IAAI,gBAAC,EAAY,QAAC;AAExB,cAA0B,CAAtB,YAAY,YAAC,EAAS,KAAE,4BAAF,CAAW,IAAI,IAAI,SAAS,CAAC,OAAD,CAAS,WAA/D;AAEE,kBAAO;AAEP,0BAAc,CAAC,IAAI,SAAS,CAAC,OAAD,CAAS,YAAW,IAAI,gBAAC,GAAc;;;;gBAArD;AAEd,kBAAO,GAAI,GAAE,GAAF;AAEX,mBAAM,QAA8B,GAAzB,GAAF,GAAS,GAAH,GAAS,IAAF,GAAS,IAAF,GAAS,GAAtC;AAEA;WAVF;AAaA,cAAG,EAAG,KAAE,QAAR;AAEE,mBAAM,QAA0E,GAArE,GAAF,GAAQ,GAAF,GAAQ,IAAI,QAAC,EAAP,GAAc,IAAF,GAAS,GAAF,GAAQ,IAAI,SAAS,CAAC,OAAD,CAAS,WAAxB,GAAmC,GAAjF;WAFF;AAKA,cAAG,EAAG,KAAE,SAAR;AAEE,mBAAM,QAAkC,GAA7B,GAAF,GAAQ,GAAF,GAAQ,IAAI,QAAC,EAAP,GAAc,IAAF,GAAS,qBAAQ,CAAC,IAAI,SAAS,CAAC,OAAD,CAAS,YAAvB,CAAlD;WAFF;AAKA,cAAG,EAAG,KAAE,SAAR;AAEE,gBAAG,IAAI,SAAS,CAAC,OAAD,CAAS,YAAzB;AACE,qBAAM,QAAkC,GAA7B,GAAF,GAAQ,GAAF,GAAQ,IAAI,QAAC,EAAP,GAAc,IAAF,GAAS,MAA1C;AAEA,yBAAM,QAAkC,GAA7B,GAAF,GAAQ,GAAF,GAAQ,IAAI,QAAC,EAAP,GAAc,IAAF,GAAS,OAA1C;WALJ;AAQA,cAAG,EAAG,KAAE,QAAR;AAEE,mBAAM,QAAkC,GAA7B,GAAF,GAAQ,GAAF,GAAQ,IAAI,QAAC,EAAP,GAAc,IAAF,GAAS,uBAAU,CAAC,IAAI,SAAS,CAAC,OAAD,CAAS,aAAvB,CAApD;WAFF;AAKA,cAAG,EAAG,KAAE,WAAR;AAEE,mBAAM,QAAqG,GAAhG,GAAF,GAAQ,GAAF,GAAQ,IAAI,QAAC,EAAP,GAAc,IAAF,GAAS,GAAF,GAAQ,8BAAW,aAAa,CAAC,IAAI,SAAS,CAAC,OAAD,CAAS,aAAvB,CAA1B,GAA8D,GAA5G;WAFF;AAKA,cAAG,EAAG,KAAE,OAAR;AAEE,mBAAM,QAAiG,GAA5F,GAAF,GAAQ,GAAF,GAAQ,IAAI,QAAC,EAAP,GAAc,IAAF,GAAS,GAAF,GAAQ,8BAAW,SAAS,CAAC,IAAI,SAAS,CAAC,OAAD,CAAS,aAAvB,CAAtB,GAA0D,GAAxG;WAFF;AAKA,cAAG,EAAG,KAAE,OAAR;AAEE,mBAAM,QAAiG,GAA5F,GAAF,GAAQ,GAAF,GAAQ,IAAI,QAAC,EAAP,GAAc,IAAF,GAAS,GAAF,GAAQ,8BAAW,SAAS,CAAC,IAAI,SAAS,CAAC,OAAD,CAAS,aAAvB,CAAtB,GAA0D,GAAxG;WAFF;;AAhEoB;AA2ExB,sBAAwB,8BAAxB;AACA,iBAAY,OAAO,UAAQ,CAAC,KAAI,OAAC,YAAN;AAE3B,gBAAW;AAEX,oBAAc,CAAC,MAAM,SAAU;;;;UAAjB;AAEd,gBAAW,OAAQ,GAAE,GAAF;AAGrB;AAGE,eAAU;AAEV,aAAO;AAnGoB;AAAM;AA3oEd;AA4CA;;AAIA;;AAIA;;AAwgCO;AAAnB;AAGT;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAZS;AAAmB;AAgBA;AAAnB;AAGT;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAbS;AAAmB;AApCL;AAAd;AAEP;AAGF;AAEE,aAAU;AAPH;AAAc;AAUA;AAAd;AAEP;AAGF;AAEE,aAAU;AAPH;AAAc;AA6CR,sBAAG;AAFH;AAAN;AAIP,aAAU;AAJH;AAAM;AASC,uBAAG;AAFJ;AAAN;AAIP,aAAU;AAJH;AAAM;AAOM;AAEnB,iBAAa,WAAW,aAAa,CAAC,QAAS,aAAa,YAAvB;AAFlB;AAgkBF;AAAV;AAEP;AAAG;AACH;AAAI;AACJ;AAAI;AACJ;AAEA,cAAW,iBAAI,CAAC,OAAD;AACf,cAAW,sBAAgB,CAAC,OAAD;AAE3B,UAAO,CAAC;AACR,QAAG,YAAM,CAAC,IAAK,QAAS;;;;QAAf,CAAoB,KAAE,CAA/B,EACE,iBAAM,CAAC;;;;SAAS,IAAK,CAAf,CADR;AAGA,aAAU;AACV,UAAO;AAEG,aAAD,sBAAC,iBAAU,CAAX;AACT,aAAS,CAAC,CAAD,CAAT,GAAgB;AAChB,aAAS,CAAC,CAAD,CAAT,GAAgB;AAChB,aAAS,CAAC,CAAD,CAAT,GAAgB;AAChB,aAAS,CAAC,CAAD,CAAT,GAAgB;AAChB,aAAS,CAAC,CAAD,CAAT,GAAgB;AAEhB,QAAI,OAAQ,KAAE,EAAd;AAEE,eAAW,OAAQ,KAAE,EAAF;AACnB;KAHF;AAMA,QAAY,CAAR,OAAQ,KAAG,GAAH,CAAQ,IAAa,CAAR,OAAQ,KAAE,EAAF,CAAjC;AAEE,eAAU;AACV;KAHF;AAMA;AACE,WAAM,eAAS,CAAC,UAAW,QAAS;;;;UAArB;AACf,UAAG,EAAG,KAAG,MAAT;AAEE,YAAoB,CAAT,OAAD,OAAU,GAAE,CAAF,CAA4B,IAAP,CAAX,OAAO,QAAC,CAAD,CAAI,KAAE,GAAF,CAAhB,IAA6C,CAAjB,cAAG,CAAC,IAAI,OAAL,CAAc,GAAE,CAAF,CAAtE;AAEE,eAAM,wBAAkB,CAAC,OAAD;AACxB,mBAAU,eAAU,CAAC,eAAI,CAAC,QAAQ,EAAE,EAAG,GAAE,CAAhB,EAAmB,QAAQ,cAAhC;AACpB,2BAAM,CAAC;;;;eAAQ,EAAE,EAAX;;AAIN,mBAAU,aAAQ,CAAC,eAAI,CAAC,QAAQ,EAAE,GAAI,GAAE,CAAjB,EAAoB,QAAQ,cAAjC;AAClB,2BAAM,CAAC;;;;eAAQ,EAAE,GAAX;;AAGR,YAAG,MAAO,KAAE,MAAZ;AACE,gBAAO;;AAEF;AACL,eADK,IACL,aAAI,CADC,IACD,SAAJ,IAAQ,CADH,IACG,SAAR;AAAY,kBAAO,GAAI,IAAG,MAAH;AACvB,oBAFK,IAEL,UAAI,MAAO,GAAI,IAAI,MAAnB;;AAGF,iBAAU;OAtBZ;KAFF,QA2BU,EAAH,EAAG,KAAE,MAAF,CA3BV;AA6BA,aAAU,aAAQ,CAAC,QAAS,QAAS,cAAnB;AAElB,QAAG,MAAO,KAAE,MAAZ;AACE,YAAO;;AAEF;AACL,WADK,KACL,aAAI,CADC,KACD,SAAJ,IAAQ,CADH,KACG,SAAR;AAAY,cAAO,GAAI,IAAG,MAAH;AACvB,gBAFK,KAEL,UAAI,MAAO,GAAI,IAAI,MAAnB;;AAGF,aAAU;AA3EH;AAAU;AA7FF;AAAR;AAEP,QAAG,cAAH;AACE,eAAU,aAAO,CAAC,QAAQ,OAAT;AAEjB,mBAAU,aAAO,CAAC,sBAAS,CAAC,OAAD,EAAU,sBAAS,CAAC,OAAD,CAA7B;AALZ;AAAQ;AA4Kc;AAG/B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAb+B;AAiBZ;AAAV;AAEP,aAAU,qBAAM,CAAC,KAAM,MAAuB,wCAA9B;AAFT;AAAU;AAKG;AAAb;AAEP;AAEA,aAAU,4BAAa,CAAC,EAAE;;;;QAAH;AAJhB;AAAa;AAOE;AAAf;AAEP;AAEA,aAAU;AACV,QAAG,iBAAI,CAAC,CAAD,CAAI,KAAE,EAAb,EACM,OAAC,KADP;AAGA,QAAoB,CAAT,iBAAI,CAAC,CAAD,CAAL,OAAU,GAAE,CAAF,CAAK,IAAgB,CAAX,iBAAI,CAAC,CAAD,CAAG,QAAC,CAAD,CAAI,KAAE,GAAF,CAAzC,EACM,OAAC,KADP;AAGA,QAAG,CAAU,CAAL,CAAC,YAAC,KAAD,CAAI,IAAG,cAAI,KAAH,GAAK,GAAI,EAAV,CAAH,CAAb,EACM,OAAC,KADP;AAGA,aAAS,QAAW,OAAC,CAAD,yBAApB;AAAI;AAEF,UAAG,CAAU,CAAL,CAAC,YAAC,KAAD,CAAI,IAAG,cAAI,KAAH,GAAK,EAAN,CAAH,CAAb;AAEE,iBAAU;AACV;OAHF;;AAhBK;AAAe;AAwBR;AAAP;AAEP;AAGF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEE,aAAU;AAjDH;AAAO;AAoDG;AAAV;AAGT;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAxLS;AAAU;AArqEnB,mBAsWc;AAMZ;AAu6BsB;AAAf;AAEP,eAAU,cAAQ,CAAW,cAAC,MAAD,EAAoB,cAAC,MAAD,CAA/B;AAFX;AAAe;AA+JC;AAAhB;AAEP,aAAO,cAAG,CAAC,2BAAc,mBAAoB,EAAnC,CAAuC,GAAE,CAAnD,EACE,iBAAM,CAAC;;;;WAAI,cAAG,CAAC,2BAAc,mBAAoB,EAAnC,EAAwC,CAAhD;AACR,eAAU;AAJH;AAAgB;AAOV;AAAN;AAEP,kBAAW,cAAG,CAAC,UAAW,MAAZ,CAAd;AACA,eAAU;AAHH;AAAM;AAMA;AAAN;AAEP;AAAI;AACJ;AAAG;AAAG;AAAG;AAAG;AAAG;AACf;AACA;AAAG;AAAG;AAAG;AAET,eAAU;AACV,WAAM;AACN,WAAM,sBAAS,CAAC,2BAAc,gBAAf;AACf,WAAM,cAAG,CAAC,IAAI,EAAL;AACT,WAAM,cAAG,CAAC,IAAI,EAAL;AACT,WAAM,cAAG,CAAC,IAAI,EAAL;AAET,WAAM;AACN,WAAM;AACN,WAAM;AACN,WAAM;AACN,WAAM;AACN,WAAM;AAEN,WAAM,CAAC;AACP,UAAG,YAAM,CAAC,2BAAc,eAAe,OAAO;;;;UAArC,CAAwC,GAAC,CAAlD;AAEE,aAAM,eAAI,CAAC,OAAO,EAAE,EAAG,GAAE,CAAf;AAEV,YAAM,CAAF,EAAE,GAAC,EAAD,CAAK,IACL,CAAF,EAAE,GAAC,EAAD,CADN;AAEG,0BAAG,CAAC,GAAG;;;;eAAG;;;;cAAP;AAEN,kBAAM,CAAF,EAAE,GAAC,EAAD,CAAK,IACL,CAAF,EAAE,GAAC,EAAD,CADN;AAEG,0BAAG,CAAC,GAAG;;;;eAAG;;;;cAAP;AAEN,kBAAM,CAAF,EAAE,GAAC,EAAD,CAAK,IACL,CAAF,EAAE,GAAC,EAAD,CADN,EAEG,gBAAG,CAAC,GAAG;;;;aAAG;;;;YAAP,CAFN;AAIA,YAAG,GAAG,KAAE,CAAR,EAAe,aAAf;AACA,yBAAM,CAAC;;;;aAAO,EAAE,EAAV;AAEN,YAAG,YAAM,CAAC,2BAAc,eAAe,OAAO;;;;YAArC,CAAwC,GAAC,CAAlD;AAEE,eAAM,eAAI,CAAC,OAAO,EAAE,EAAG,GAAE,CAAf;AAEV,cAAY,CAAL,CAAF,EAAE,GAAC,EAAD,CAAK,IAAO,CAAF,EAAE,GAAC,EAAD,CAAP,CAAa,IACb,CAAL,CAAF,EAAE,GAAC,EAAD,CAAK,IAAO,CAAF,EAAE,GAAC,EAAD,CAAP,CADZ;AAEG,4BAAG,CAAC,GAAG;;;;iBAAG;;;;gBAAP;AAEN,oBAAY,CAAL,CAAF,EAAE,GAAC,EAAD,CAAK,IAAO,CAAF,EAAE,GAAC,EAAD,CAAP,CAAa,IACb,CAAL,CAAF,EAAE,GAAC,EAAD,CAAK,IAAO,CAAF,EAAE,GAAC,EAAD,CAAP,CADZ;AAEG,4BAAG,CAAC,GAAG;;;;iBAAG;;;;gBAAP;AAEN,oBAAY,CAAL,CAAF,EAAE,GAAC,EAAD,CAAK,IAAO,CAAF,EAAE,GAAC,EAAD,CAAP,CAAa,IACb,CAAL,CAAF,EAAE,GAAC,EAAD,CAAK,IAAO,CAAF,EAAE,GAAC,EAAD,CAAP,CADZ,EAEG,gBAAG,CAAC,GAAG;;;;eAAG;;;;cAAP,CAFN;AAIA,cAAG,GAAG,KAAE,CAAR,EAAe,aAAf;AACA,2BAAM,CAAC;;;;eAAO,EAAE,EAAV;AAEN,mBAAU,iBAAI,CAAC,MAAD;AAEd,cAAG,YAAM,CAAC,IAAI,OAAQ;;;;cAAb,CAAiB,GAAE,CAA5B;AAEE,iBAAM,eAAI,CAAC,OAAQ,GAAW,MAAD,OAAnB;AACV,qBAAU,eAAI,CAAC,OAAQ,EAAG,EAAG,GAAE,CAAjB;WAHhB;AAMA,cAAM,CAAF,EAAE,GAAC,EAAD,CAAK,IACL,CAAF,EAAE,GAAC,EAAD,CADN;AAEG,4BAAG,CAAC,OAAO;;;;iBAAG;;;;gBAAX;AAEN,oBAAM,CAAF,EAAE,GAAC,EAAD,CAAK,IACL,CAAF,EAAE,GAAC,EAAD,CADN;AAEG,4BAAG,CAAC,OAAO;;;;iBAAG;;;;gBAAX;AAEN,oBAAM,CAAF,EAAE,GAAC,EAAD,CAAK,IACL,CAAF,EAAE,GAAC,EAAD,CADN,EAEG,gBAAG,CAAC,OAAO;;;;eAAG;;;;cAAX,CAFN;AAIA,cAAG,GAAG,KAAE,CAAR,EAAe,aAAf;AACA,cAAI,EAAE,GAAC,EAAP,EAAgB,aAAhB;AACA,cAAI,EAAE,GAAC,EAAP,EAAgB,aAAhB;AAEA,cAAI,EAAG,KAAG,EAAV;AAEE,gBAAG,YAAM,CAAC,2BAAc,eAAe,GAAG;;;;gBAAjC,CAAoC,GAAC,CAA9C;AAEE,mBAAM,eAAI,CAAC,GAAG,EAAE,EAAG,GAAE,CAAX;AACV,8BAAG,CAAC,GAAG;;;;mBAAG;;;;kBAAP;AAEH,kBAAI,GAAI,KAAG,CAAX,EAAmB,aAAnB;AACA,kBAAI,EAAG,GAAE,EAAT,EAAkB,aAAlB;AAEA,+BAAM,CAAC;;;;mBAAG,EAAE,EAAN;AAEN,kBAAG,YAAM,CAAC,2BAAc,eAAe,GAAG;;;;kBAAjC,CAAoC,GAAC,CAA9C;AAEE,qBAAM,eAAI,CAAC,GAAG,EAAE,EAAG,GAAE,CAAX;AACV,gCAAG,CAAC,GAAG;;;;qBAAG;;;;oBAAP;AAEH,oBAAG,GAAI,KAAG,CAAV,EAAiB,aAAjB;AACA,iCAAM,CAAC;;;;qBAAG,EAAE,EAAN;AAEN,gCAAG,CAAC,GAAG;;;;qBAAG;;;;oBAAP;AACH,oBAAI,GAAI,KAAG,CAAX,EAAmB,aAAnB;AACA,oBAAI,EAAG,GAAE,EAAT,EAAkB,aAAlB;;AAIA,gCAAG,CAAC,GAAG;;;;qBAAG;;;;oBAAP;AACH,oBAAI,GAAI,KAAG,CAAX,EAAmB,aAAnB;;AAGF,kBAAI,EAAG,GAAE,EAAT,EAAkB,aAAlB;AAEA,uBAAU;aA9BZ;WAkCA,eAAU;AAEZ;AACE,sBAAS,uBAAU,CAAC,GAAG,GAAG,EAAP,CAAW,GAAE,uBAAU,CAAC,GAAG,GAAG,GAAG,CAAV,CAA1C;AADF;AAGE,qBAAU;AAHZ;SAjFF;OAnBF;AAtBO;AAAM;AAqIP,iBAAG;AACF,kBAAG;AACJ,iBAAI;AACL,gBAAK;AACH,kBAAG;AACL,gBAAG;AACA,mBAAG;AARG;AAAP;AAWP;AACA;AACA;AACA;AACA;AAAG;AAAG;AAAG;AACT;AAAU;AAAS;AACnB;AACA;AAAM;AAAM;AACZ;AACA;AAAG;AACH;AAAO;AACP;AAAI;AACJ;AAAG;AAEH,UAAK;AAEL,kBAAa;AACb,iBAAY;AACZ,cAAS;AACT,cAAS;AACT,cAAS;AACT,gBAAW;AACX,cAAS;AAMT,WAAM,cAAG,CAAC,OAAO,GAAR;AAET,UAAG,EAAG,KAAG,CAAT;AAEM,UAAJ,IAAG;AACH,YAAI,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAE,GAAlB;AAEE,kBAAS;AACL,YAAJ,IAAG;SAHL;AAMA,eAAO,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAE,GAArB,EACM,EAAJ,IAAG;AAEL,aAAM;AACN,cAAO;AAEP,mBAAY;AAEZ,YAAK;AAEL,eAAe,CAAJ,CAAH,EAAG,GAAE,CAAF,CAAI,IAAU,GAAD,OAAT,CAAkE,IAAjC,CAAZ,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAG,GAAH,CAAjB,IAAkC,CAAH,EAAG,IAAU,GAAD,OAAT,CAAR,IAAoC,CAAP,cAAG,CAAC,CAAD,CAAI,IAAyB,CAAR,CAAZ,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAG,GAAH,CAAQ,IAAiB,CAAZ,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAG,GAAH,CAAjB,CAAzB,CAA7F;AAEE,cAAI,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAE,GAAlB,EACM,CAAJ,IAAG,CADL;AAGA,cAAQ,CAAJ,GAAI,KAAE,CAAF,CAAK,IAAiB,CAAZ,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAE,GAAF,CAA9B;AACM,cAAJ,IAAG;AAEH,gBAAI,GAAJ,IAAG;AAEL,qBAAY,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ;AACX,YAAJ,IAAG;AAEH,cAAW,CAAJ,CAAH,EAAG,GAAE,CAAF,CAAI,IAAU,GAAD,OAAT,CAAwC,IAAP,CAAZ,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAE,GAAF,CAAjB,IAA4B,cAAG,CAAC,CAAD,CAA1D;AAEE,uBAAY,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ;AACX,cAAJ,IAAG;WAHL;;AAOF,YAAQ,CAAJ,GAAI,GAAE,CAAF,CAAK,IAAc,CAAT,QAAS,KAAE,GAAF,CAA3B,EACM,GAAJ,IAAG,CADL;AAGA,kBAAW,eAAI,CAAC,IAAI,GAAG,GAAR;AAIf,wBAAG,CAAC,sBAAgB,CAAC,GAAD,EAAM;;;;aAAG;;;;YAA1B;AACH,wBAAG,CAAC,sBAAgB,CAAC,OAAD,EAAU;;;;aAAG;;;;YAA9B;AAEH,cAAO;AACP,YAAG,YAAM,CAAC,QAAQ;;;;YAAT,CAAT,EACE,QAAS,CADX;AAGA,cAAO;AACP,YAAG,YAAM,CAAC,IAAI;;;;YAAL,CAAT,EACE,QAAS,CADX;AAGA,YAAU,CAAN,KAAM,KAAE,CAAF,CAAK,IAAW,CAAN,KAAM,KAAE,CAAF,CAA1B;AAEE,cAAG,KAAH;AACE,uBAAY,EAAG,IAAG,EAAH;AAEf,2BAAY,EAAG,GAAE,EAAF;;AAIjB,cAAG,YAAM,CAAC,QAAQ;;;;cAAT,CAAc,IAAI,YAAM,CAAC,IAAI;;;;cAAL,CAAjC;AAEE,gBAAG,KAAH;AACC,yBAAY,GAAI,IAAG,GAAH;AAEhB,6BAAY,GAAI,GAAE,GAAF;;AAIjB,gBAAG,KAAH;AACC,yBAAa,uBAAU,CAAC,QAAQ,GAAT,CAAa,IAAE,CAAF;AAEpC,6BAAa,uBAAU,CAAC,QAAQ,GAAT,CAAa,GAAC,CAAD;;;AAGzC,gBAAS;OAjFX;AAoFA,cAAS;AAGT,WAAM,cAAG,CAAC,QAAS,GAAV;AACT,UAAI,EAAG,KAAG,CAAV;AAEM,UAAJ,IAAG;AACH,YAAI,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAE,GAAlB;AAEG,kBAAS;AACL,YAAJ,IAAG;SAHN;AAMA,mBAAY;AAEZ,eAAc,CAAJ,CAAH,EAAG,GAAE,CAAF,CAAI,IAAU,GAAD,OAAT,CAAgB,IAAiB,CAAZ,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAC,GAAD,CAA/C,EAA4D,EAAJ,IAAG;AAC3D,aAAM;AACN,cAAO;AACP,YAAK;AAEL,eAAc,CAAJ,CAAH,EAAG,GAAE,CAAF,CAAI,IAAU,GAAD,OAAT,CAAiE,IAAhC,CAAZ,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAG,GAAH,CAAjB,IAAiC,CAAH,EAAG,IAAU,GAAD,OAAT,CAAR,IAAoC,CAAP,cAAG,CAAC,CAAD,CAAI,IAAyB,CAAR,CAAZ,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAG,GAAH,CAAQ,IAAiB,CAAZ,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAG,GAAH,CAAjB,CAAzB,CAA3F;AAEE,cAAG,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAE,GAAjB,EACM,CAAJ,IAAG,CADL;AAGA,cAAQ,CAAJ,GAAI,KAAE,CAAF,CAAK,IAAiB,CAAZ,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAE,GAAF,CAA9B;AACM,cAAJ,IAAG;AAEH,gBAAI,GAAJ,IAAG;AAEL,qBAAY,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ;AACX,YAAJ,IAAG;;AAGL,YAAQ,CAAJ,GAAI,GAAE,CAAF,CAAK,IAAc,CAAT,QAAS,KAAE,GAAF,CAA3B,EACM,GAAJ,IAAG,CADL;AAGA,kBAAW,eAAI,CAAC,IAAK,GAAI,GAAV;AAEf,wBAAG,CAAC,sBAAgB,CAAC,GAAD,EAAM;;;;aAAG;;;;YAA1B;AACH,wBAAG,CAAC,sBAAgB,CAAC,OAAD,EAAU;;;;aAAG;;;;YAA9B;AACH,YAAG,YAAM,CAAC,QAAQ;;;;YAAT,CAAT,EAA4B,QAAS,CAArC;AACA,YAAG,YAAM,CAAC,IAAI;;;;YAAL,CAAT,EAAwB,QAAS,CAAjC;AAEA,YAAU,CAAN,KAAM,KAAE,CAAF,CAAK,IAAW,CAAN,KAAM,KAAE,CAAF,CAA1B;AAEE,cAAG,KAAH;AACC,wBAAa,EAAG,IAAG,EAAH;AAEhB,4BAAa,EAAG,GAAE,EAAF;;AAKjB,cAAG,YAAM,CAAC,QAAS;;;;cAAV,CAAe,IAAI,YAAM,CAAC,IAAK;;;;cAAN,CAAlC;AAEE,gBAAG,KAAH;AACC,0BAAa,GAAI,IAAG,GAAH;AAEjB,8BAAa,GAAI,GAAE,GAAF;;AAIlB,gBAAG,KAAH;AACE,0BAAc,uBAAU,CAAC,QAAQ,GAAT,CAAa,IAAE,CAAF;AAErC,8BAAc,uBAAU,CAAC,QAAQ,GAAT,CAAa,GAAC,CAAD;;;AAI3C,gBAAS;OAlEX;AAqEA,WAAM,cAAG,CAAC,SAAU,GAAX;AAET,UAAI,EAAG,KAAG,CAAV;AAEM,UAAJ,IAAG;AACH,eAAO,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAE,GAArB,EACM,EAAJ,IAAG;AACL,aAAM;AACN,cAAO;AAEP,mBAAY;AACZ,YAAK;AAEL,eAAmB,CAAZ,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAG,GAAH,CAAgC,IAAhB,CAAH,EAAG,IAAU,GAAD,OAAT,CAAR,IAAoC,CAAP,cAAG,CAAC,CAAD,CAAI,IAAyB,CAAR,CAAZ,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAG,GAAH,CAAQ,IAAiB,CAAZ,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAG,GAAH,CAAjB,CAAzB,CAA/D;AAEE,cAAI,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAE,GAAlB,EACM,CAAJ,IAAG,CADL;AAGA,cAAQ,CAAJ,GAAI,KAAE,CAAF,CAAK,IAAiB,CAAZ,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAE,GAAF,CAA9B;AACM,cAAJ,IAAG;AAEH,gBAAI,GAAJ,IAAG;AAEL,qBAAY,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ;AACX,YAAJ,IAAG;;AAGL,YAAQ,CAAJ,GAAI,GAAE,CAAF,CAAK,IAAc,CAAT,QAAS,KAAE,GAAF,CAA3B,EACM,GAAJ,IAAG,CADL;AAGA,kBAAW,eAAI,CAAC,IAAK,GAAI,GAAV;AACf,gBAAS;OA7BX;AAgCA,UAAI,KAAJ;AAEE,YAAG,cAAG,CAAC,OAAQ,GAAT,CAAc,KAAE,CAAtB,EACE,QAAS,KADX;AAEA,YAAG,cAAG,CAAC,QAAS,GAAV,CAAe,KAAE,CAAvB,EACE,QAAS,KADX;OAJF;AAQA,UAAI,cAAG,CAAC,MAAO,GAAR,CAAa,KAAG,CAAvB,EACE,IAAG,KAAM,IAAG,KAAZ;AAEE,iBAAW,SAAU,IAAG,QAAH;AACrB;OAJJ;AAOA,UAAI,cAAG,CAAC,OAAQ,GAAT,CAAc,KAAG,CAAxB,EACE,IAAG,KAAM,IAAI,KAAb;AAEE,iBAAW,SAAU,IAAI,QAAJ;AACrB;OAJJ;AAOA,UAA4B,CAAN,CAAjB,cAAG,CAAC,OAAQ,GAAT,CAAc,KAAG,CAAH,CAAM,IAAK,QAAL,CAAgB,IACf,CAAN,CAAlB,cAAG,CAAC,QAAS,GAAV,CAAe,KAAG,CAAH,CAAM,IAAK,SAAL,CAD7B;AAGE,iBAAW;AACX;OAJF;AAOA,WAAM;AACN,WAAM;AAEN,aAAa,CAAJ,GAAI,KAAE,EAAF,CAAM,IAAQ,CAAJ,GAAI,KAAE,EAAF,CAAR;AAEnB,iBAAY;AAEZ,aAAM,CAAI,IAAK,IAAI,QAAnB;AAEU,mBAAH,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ;AACR,YADQ,IACR;AAEI,qBAAY,EAAG,IAAU,GAAD,OAAT;AACf,cAAG,QAAH;AAEM,cAAJ,IAAG;AACC,cAAJ,IAAG;WAHL;SAMJ,UAVQ,IAUR;AAEI,oBAAS;AACL,YAAJ,IAAG;SAEP,UAfQ,IAeR;AAEQ,YAAJ,IAAG;SAEP,UAnBQ,IAmBR;AAEI;AACM,cAAJ,IAAG;WADL,QAE6B,EAAf,CAAJ,CAAH,EAAG,GAAE,CAAF,CAAI,GAAS,GAAD,OAAR,CAAe,IAAgB,CAAZ,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAG,OAAH,CAAhB,CAF7B;AAGA,gBAAc,GAAD,OAAM,GAAE,EAAF;AACf,YAAJ,IAAO;AACP,qBAAY,aAAO,CAAC,eAAI,CAAC,IAAI,GAAU,GAAD,OAAd,EAAqB,eAAI,CAAC,IAAK,GAAW,GAAD,OAAhB,CAA9B;AAEnB,iBAAW,CAAJ,GAAI,IAAG,CAAH,CAAM,IAAI,CAAI,QAAzB;AAEK,cAAJ,IAAG;AACC,eAAJ,IAAG;AACH,uBAAY,aAAO,CAAC,eAAI,CAAC,IAAI,GAAU,GAAD,OAAd,EAAqB,eAAI,CAAC,IAAK,GAAW,GAAD,OAAhB,CAA9B;;AAErB,cAAG,QAAH;AAEE,iBAAa,GAAD,OAAM,GAAE,CAAF;AAClB,iBAAa,GAAD,OAAM,GAAE,CAAF;WAHpB;;AAQA,cAAO,CAAH,EAAG,IAAU,GAAD,OAAT,CAAgB,IAAQ,CAAH,EAAG,IAAU,GAAD,OAAT,CAA/B;AACE,uBAAY,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAE,GAAG,QAAC,EAAG,GAAE,CAAF,IAAJ,CAAL;AAExB,2BAAY;AAEd,cAAG,QAAH;AAEM,cAAJ,IAAG;AACC,cAAJ,IAAG;WAHL;;AAQJ,eAAY,CAAH,EAAG,GAAS,GAAD,OAAR,CAAe,IAAQ,CAAH,EAAG,GAAS,GAAD,OAAR,CAAR;;AAG5B,UAAG,OAAH;AACE,iBAAW,CAAI;AAEf,qBAAW;AA3UN;AAAO;AAsVS;AAAhB;AAEP;AAAG;AACH;AAEA,UAAK;AACL,UAAK;AACL,UAAY,MAAD;AACX,eAAU;AAEV,aAAO,CAAE,IAAG,CAAZ;AAEE,YAAG,MAAM,QAAC,KAAD,CAAI,KAAE,GAAf,EACM,CAAJ,IAAG,CADL;AAGA,YAAI,MAAM,QAAC,KAAD,CAAI,KAAE,GAAhB;AAEE,cAAG,cAAG,CAAC,CAAD,CAAN,EACE,SAAU,MAAO,GAAE,MAAM,QAAC,KAAD,CAD3B;SAIA,eAAU,MAAO,GAAE,MAAM,QAAC,KAAD,CAAR;AAEf,SAAJ,IAAG;;AAvBE;AAAgB;AA2BP;AAAT;AAEP;AACA;AACA;AAEA,UAAK;AACL,UAAK;AACL,UAAK;AACL,eAAQ,CAAC,CAAT;AACA,eAAU;AAEV,aAAM,CAAE,IAAU,MAAD,OAAjB;AAEE,YAAG,MAAM,QAAC,CAAE,GAAE,CAAF,IAAH,CAAQ,KAAE,GAAnB,EACM,CAAJ,IAAG,CADL;AAGA,YAAI,sBAAS,CAAC,MAAM,QAAC,CAAE,GAAE,CAAF,IAAH,EAAS,QAAhB,CAA2B,IAAI,CAAI,cAAG,CAAC,CAAD,CAAnD;AAEE,mBAAQ,CAAR;AACA,mBAAU,MAAM,QAAC,CAAE,GAAE,CAAF,IAAH;AAChB;SAJF;AAMI,SAAJ,IAAG;;AAvBE;AAAS;AA2BS;AAAlB;AAEP;AAAE;AAAE;AAAE;AAEN,UAAK;AACL,UAAK;AACL,UAAK;AACL,UAAK;AAEL,aAAO,CAAE,IAAU,EAAD,OAAlB;AAEE,YAAI,EAAE,QAAC,KAAD,CAAI,KAAE,GAAZ,EACM,CAAJ,IAAG,CADL;AAGA,YAAI,EAAE,QAAC,KAAD,CAAI,KAAE,GAAZ,EACM,CAAJ,IAAG,CADL;AAGA,YAAU,CAAN,EAAE,QAAC,KAAD,CAAI,KAAE,GAAF,CAAO,IAAO,CAAF,CAAE,KAAE,CAAF,CAAxB;AAEE,cAAK;AACL;SAHF;AAMI,SAAJ,IAAG;;AAGL,eAAU;AA1BH;AAAkB;AAxmDb;AAtWd,GAsWc,iDAtWd;APAA,8BAES,oEAFT;;;;AAQW,mBAAG;AACL,iBAAG;AACJ,gBAAG;AACA,mBAAG;AACJ,kBAAG;AACD,oBAAG;AACN,iBAAG;AACF,kBAAG;AACD,oBAAG;AACJ,mBAAG;AACJ,kBAAG;AACH,kBAAG;AACJ,iBAAG;AACJ,gBAAG;AACF,iBAAG;AACH,iBAAG;AACL,eAAG;AACA,kBAAG;AACJ,iBAAG;AACF,kBAAG;AACA,qBAAG;AACL,mBAAG;AACH,mBAAG;AACL,iBAAG;AACH,iBAAG;AACH,iBAAG;AACA,oBAAG;AACH,oBAAG;AACH,oBAAG;AACH,oBAAG;AACH,oBAAG;AACH,oBAAG;AACH,oBAAG;AACH,oBAAG;AACH,oBAAG;AACH,oBAAG;AACF,qBAAG;AACR,gBAAG;AACG,sBAAG;AACJ,qBAAG;AACJ,oBAAG;AACJ,mBAAG;AACP,eAAG;AACH,eAAG;AACH,eAAG;AACH,eAAG;AACH,eAAG;AACH,eAAG;AACH,eAAG;AACH,eAAG;AACH,eAAG;AACF,gBAAG;AACH,gBAAG;AACH,gBAAG;AACH,gBAAG;AACH,gBAAG;AACH,gBAAG;AACH,gBAAG;AACH,gBAAG;AACH,gBAAG;AACH,gBAAG;AACH,gBAAG;AACH,gBAAG;AACH,gBAAG;AACH,gBAAG;AACH,gBAAG;AACC,oBAAG;AAEF,qBAAG;AAGP;AAGE,mBAAO;AACV,gBAAU;AACT,iBAAS;AACT,iBAAS;AACT,iBAAS;AACV,gBAAU;AACN,oBAAM;AACR,kBAAQ;AACN,oBAAM;AACR,kBAAQ;AACP,mBAAO;AACL,qBAAK;AACV,gBAAU;AACR,kBAAQ;AACR,kBAAQ;AACR,kBAAQ;AACL,qBAAK;AACP,mBAAO;AACZ,cAAY;AACN,oBAAM;AACV,gBAAU;AACL,qBAAK;AACP,mBAAO;AAEH,uBAAG;AACP,mBAAG;AA61BG;AAz1BJ;;AAGD;;AACD;;AACA;;AACE;;AAEL;;AACM;;AACA;;AACF;;AACE;;AACW;;AAAT,oCAAS,wCAAT;AAEH;;AACH,8BADG,mCACH;AAIS;AACP;AACE;;AACI;;AAEH;;AACI,uCADJ,qCACI;AAEH;;AAEL;;AACC;;AACC,iCADD,kCACC;AACD;;AAEA;;AAEQ;;AAEK;AACrB;AADqB;aACrB;AADqB;;AACrB;AADqB;;;AACrB,sBP2uGe,kCO3uGf;AADqB;AAIT;AACZ;AADY;aACZ;AADY;;AACZ;AADY;;;AACZ,wBPgSM,yBOhSN;AADY;AAII,yEAAmB,Ub/C9B,2Ba+C8B,EAAoB,wBAAvC;AACO,gFAAmB,UbhDrC,2BagDqC,EAAmB,YATxC,qCASwC,EAAoC,wBAA1E;AACV,sEAAmB,UbjD3B,2BaiD2B,CAAnB;AACA,sEAAmB,UblD3B,2BakD2B,EAAmB,YAX9B,qCAW8B,EAAgC,SAPvE,4BAOuE,EAA6B,yBAAnG;AAEK;AAClB;AADkB;aAClB;AADkB;;AAClB;AADkB;;;AAClB,0BPwvEY,+BOxvEZ;AADkB;AAIL;AACb;AADa;aACb;AADa;;AACb;AADa;;;AACb,2BVpIO,yBUoIP;AADa;AAID;AACZ;AADY;aACZ;AADY;;AACZ;AADY;;;AACZ,0BViMM,wBUjMN;AADY;AAIM;AAClB;AADkB;aAClB;AADkB;;AAClB;AADkB;;;AAClB,gCVuQY,8BUvQZ;AADkB;AAIH;;;AAEf;AACA;AAHe;;;;;;;AASL,mEAAmB,Ub7ExB,2Ba6EwB,CAAnB;AACD,kEAAmB,Ub9EvB,2Ba8EuB,EAAiB,UArEnC,0BAqEmC,EAAqB,SJ+zCzD,gCI/zCyD,EAAgB,kBAAE,iBAA3E;AACK,uEAAmB,Ub/E5B,2Ba+E4B,EAAgB,SJ8zCxC,gCI9zCwC,EAAyB,2BAAmB,YXlKzF,yBWkKyF,EAAqB,yBAApG;AACM,6EAAmB,UbhFlC,2BagFkC,EAAgB,SJ6zC9C,gCI7zC8C,EAC/C,YXpKJ,yBWoKI,EAAqB,yBADT;AAEP,sEAAmB,UblF3B,2BakF2B,EAAgB,SJ2zCvC,gCI3zCuC,EAAgB,kBAAE,iBAArD;AACN,gEAAmB,UbnFrB,2BamFqB,EAAmB,oBAAa,SJ0zCjD,gCI1zCiD,CAAnD;AACK,qEAAmB,UbpF1B,2BaoF0B,EAAoB,oBAAvC;AACH,kEAAmB,UbrFvB,2BaqFuB,EAAY,kBAAE,iBAAjC;AACF;;AAEK,qEAAmB,UbxF1B,2BawF0B,EAAQ,UbxFlC,2BawFkC,EAAY,kBAAG,kBAAgB,SArF9D,wBAqF8D,EAAwB,wBAAlF;AACA,qEAAmB,UbzF1B,2BayF0B,EAAQ,UbzFlC,2BayFkC,EAAY,kBAAG,iBAA1C;AACC,sEAAmB,Ub1F3B,2Ba0F2B,EAAyB,cApFhD,0BAoFgD,EAA5C;AACF,oEAAmB,Ub3FzB,2Ba2FyB,EAAQ,Ub3FjC,2Ba2FiC,EAAY,kBAAG,iBAA1C;AACG,uEAAmB,Ub5F5B,2Ba4F4B,EAAkB,WCsX9C,uCDtX8C,CAArC;AAEE;;AACL,mCADK,0CACL;AAEL;;;AAEN;AACA;AAAO;AAAM;AAAQ;AAHf;;;;;AA0nCgB;AAExB,UAAI,KAAM,KAAG,UAAb;AAEE,qBAAS;AACT;OAHF;AAFwB;AASD;AAEvB,UAAI,KAAM,KAAG,SAAb;AAEE,oBAAQ;AACR;OAHF;AAFuB;AASE;AAEzB,UAAI,KAAM,KAAG,WAAb;AAEE,sBAAU;AACV;OAHF;AAFyB;AASC;AAE1B,UAAI,KAAM,KAAG,YAAb;AAEE,uBAAW;AACX;OAHF;AAF0B;AASD;AAEzB,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAFyB;AAmuJA;AAEzB,mBAAS;AACT,kBAAQ;AACR,qBAAW;AACX,oBAAU;AALgB;AAAD;AAbF;AAEvB,UAAa,aAAH,eAAP,MAAO,CAAV;AAEE,qBAAiB,OAAP,OAAU,aAAH,CAAY;AAC7B,oBAAgB,OAAP,OAAU,aAAH,CAAY;AAC5B,uBAAmB,OAAP,OAAU,aAAH,CAAY;AAC/B,sBAAkB,OAAP,OAAU,aAAH,CAAY;OAG9B;AAVqB;AAp3Lf;AAWY;AAIL;AACD;AACE;AACC;AAlBT;AAqBD;;;AAEL;AACA;AACA;AAJK;;;;;AA+3LsB;AAE7B,UAAI,gBAAY,KAAG,KAAnB;AAEE,2BAAe;AACf;OAHF;AAF6B;AASF;AAE3B,UAAI,cAAU,KAAG,KAAjB;AAEE,yBAAa;AACb;OAHF;AAF2B;AASH;AAExB,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAFwB;AA3BF;AAEtB,UAAc,YAAH,eAAP,MAAO,CAAX;AAEE,2BAAuB,OAAP,OAAU,YAAH,CAAW;AAClC,yBAAqB,OAAP,OAAU,YAAH,CAAW;OAHlC;AAFsB;AAt3Lf;AAac;AACF;AAdZ;AAiBC;;;AAEN;AACA;AAAO;AAAM;AAAQ;AAHf;;;;;AAwkMgB;AAExB,UAAI,UAAM,KAAG,KAAb;AAEE,qBAAS;AACT;OAHF;AAFwB;AAkBD;AAEvB,UAAI,SAAK,KAAG,KAAZ;AAEE,oBAAQ;AACR;OAHF;AAFuB;AATE;AAEzB,UAAI,WAAO,KAAG,KAAd;AAEE,sBAAU;AACV;OAHF;AAFyB;AAlBC;AAE1B,UAAI,YAAQ,KAAG,KAAf;AAEE,uBAAW;AACX;OAHF;AAF0B;AAND;AAEzB,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAFyB;AATA;AAEzB;AACA,mBAAS;AACT,kBAAQ;AACR,oBAAU;AACV,qBAAW;AANe;AAAD;AAXF;AAEvB,UAAc,aAAH,eAAP,MAAO,CAAX;AAEE,qBAAiB,OAAP,OAAU,aAAH,CAAY;AAC7B,sBAAkB,OAAP,OAAU,aAAH,CAAY;AAC9B,oBAAgB,OAAP,OAAU,aAAH,CAAY;AAC5B,uBAAmB,OAAP,OAAU,aAAH,CAAY;OALjC;AAFuB;AAriMf;AAWY;AAIL;AACD;AACE;AACC;AAlBT;AAwBA,gFACgB,gBACD,cAFf;;AACgB,oCAAQ,WADxB,EACwB,CAAR;AACD,mCAAQ,WAFvB,EAEuB,CAAR;AAFf;AAKA;;;AAEN;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAAe;AACf;AACA;AACA;AAAS;AACT;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA4CA;AAjLM;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AA20KwB;AAAhB;AAEhB,eAAgB,WAAC,cAAD;AAFA;AAAgB;AAmDL;AAAX;AAEhB,eAAU,cAAS,CAAC,KAAD;AAFH;AAAW;AAttGA;AAE3B,UAAI,aAAS,KAAG,MAAhB;AAEE;AACA,wBAAY;AACZ;AACA;AACA,yBAAY,CAAC,IAAD;AACZ;OAPF;AAF2B;AAyOH;AAExB,UAAG,UAAM,KAAG,MAAZ;AAEE,qBAAS;AACT;OAHF;AAFwB;AATI;AAE5B,UAAG,cAAU,KAAG,MAAhB;AAEE,yBAAa;AACb;OAHF;AAF4B;AAyKA;AAE5B,UAAG,cAAU,KAAG,MAAhB;AAEE,yBAAa;AACb;OAHF;AAF4B;AASD;AAE3B,UAAG,aAAS,KAAG,MAAf;AAEE,wBAAY;AACZ;OAHF;AAF2B;AAqGF;AAEzB,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACV;OAHF;AAFyB;AASW;AAEpC,UAAG,sBAAkB,KAAG,KAAxB;AAEE,iCAAqB;AACrB;OAHF;AAFoC;AA2pFP;AAAb;AAEhB,YAAM,KAAN,GAAe;AACf,YAAM,IAAN,GAAc;AACd,YAAM,MAAN,GAAgB,cAAK,GAAE,eAAF;AACrB,YAAM,OAAN,GAAiB,aAAI,GAAE,gBAAF;AALL;AAAa;AA/iFC;AAE9B,uBAAY,CAAC,KAAK,MAAO,KAAK,KAAM,KAAK,MAAO,GAAE,KAAK,KAAP,CAAc,KAAK,OAAQ,GAAE,KAAK,IAAtE;AAFkB;AAzXR;AAEtB;AAAG;AAAG;AACN;AACA;AACA;AAAE;AAAE;AAAE;AAKN,UAAG,SAAK,IAAS,CAAJ,QAAI,KAAG,KAAH,CAAjB;AAGE,aAAM,QAAQ,eAAe,CAAC,KAAD;AAC7B,YAAY,EAAD,QAAX;AAEE,cAAK;AACL,cAAK;AACL,cAAK;AACL,cAAK;AACL,gBAAO;AAGP;AAEA,cAAY,eAAD,QAAX;AAGE,kCAAiC,eAAU;AAG3C,kBAAO,QAAQ,cAAc,CAAC,MAAD;AAC7B,oCAAY,CAAC,gBAAY,GAAb;WAPd;AAUA,cAAK;AAGL,yBAAU,IAAV;AAGA,2BAAY,CAAC,KAAD;AAGZ,iCAAkB,CAAC,CAAD;AAElB,qBAAO;AAEP,wBAAU;AACV,yBAAW;AAGX;AAGA,cAAI,2CAAY,IAAG,oBAAnB;AAEE,yBAAS;AACT,wBAAQ;WAHV;AAMA,cAAY,GAAD,QAAX;AAGE,mCAAa,YAAb,GAA6B;AAC7B,oCAAmB,CAAC,IAAK,uBAAN;WAJrB;AAOA;SAtDF;OAJF;AA+DA,UAAG,CAAI,SAAK,IAAS,CAAJ,QAAI,KAAG,KAAH,CAArB;AAEE,YAAK;AACL,YAAK;AAEL,aAAM,QAAQ,eAAe,CAAC,QAAD;AAC7B,YAAY,EAAD,QAAX;AAGE,gBAAO,QAAQ,cAAc,CAAC,MAAD;AAC7B,kCAAY,CAAC,GAAI,GAAL;AACZ;SALF;AASA,YAAI,KAAM,KAAG,EAAb;AAEE,eAAM,QAAQ,eAAe,CAAC,KAAD;AAE7B,cAAY,EAAD,QAAX;AAEE,6BAAY,CAAC,KAAD;AACZ,uBAAO;AACP,0BAAU;AACV,2BAAW;AACX;AAEA,oCAAmB,CAAC,IAAK,eAAN;AAEnB;WAVF;SAJF;AAmBA,oBAAQ;AACR,wBAAY;AAEZ;AAEA,YAAG,KAAM,KAAE,EAAX;AAEE;AACA,wBAAU;AACV,yBAAW;SAJb;AAOA,YAAY,mBAAD,QAAX;AAEE,6BAAc,YAAY,CAAC,mBAAD;SAG1B,MAAA,QAAQ,KAAK,YAAY,CAAC,mBAAD;AAE3B,cAAO,iCAAa,CAAC,IAAD;AACpB,YAAY,GAAD,QAAX;AAEE,yBAAU,GAAV;AACA,kCAAmB,gCAAnB;AACA,uBAAQ,CAAR;AACA,sBAAO,CAAP;SALF;AASA,YAAY,GAAD,QAAX,EACE,wBAAmB,CAAC,IAAK,eAAN,CADrB;AAIA;AACA;OApEF;AAuEA,iBAAO;AACP,UAAY,eAAD,QAAX,EACE,eAAU,cAAC,KAAS,KAAV,CADZ;AAjJsB;AA5DK;AAE3B,mBAAQ,OAAO,CAAC,KAAD;AAFY;AA+WA;AAE3B,UAAa,UAAT,cAAY,KAAH,CAAb;AAEE,wBAAY;AACZ,YAAG,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAlB;AAEE;SAFF;OAHF;AAF2B;AApjBI;AAAf;AAEhB,eAAU;AAFM;AAAe;AAoiCA;AAAf;AAEhB;AAEA,qBAAU,eAAK,CAAC,EAAG,CAAJ,CAAf;AACA,UAAY,uBAAD,QAAX;AAEE,YAAK,uBAAa;AAClB,uBAAU,eAAK,CAAC,UAAK,CAAC,CAAC,KAAF,EAAU,UAAK,CAAC,CAAC,IAAF,CAArB,CAAf;OAHF;AALgB;AAAe;AAp4BA;AAE/B,UAAI,iBAAa,KAAG,KAApB;AAEE,4BAAgB;AAEhB,YAAiB,CAAb,iBAAa,KAAE,sBAAF,CAAsC,IAAhB,CAAC,uBAAD,SAAZ,IAAgC,CAAI,kBAA/D,EACE,sBAAe,eAAe,CAAC,QAAD,CADhC;AAGA;AACA;AACA;OATF;AAF+B;AAjGD;AAE9B,UAAI,gBAAY,KAAG,KAAnB;AAEE,2BAAe;AAEf,YAAgB,CAAZ,gBAAY,KAAE,sBAAF,CAAsC,IAAhB,CAAC,uBAAD,SAAZ,IAAgC,CAAI,kBAA9D,EACE,sBAAe,eAAe,CAAC,OAAD,CADhC;AAGA;AACA;AACA;OATF;AAF8B;AAsFG;AAEjC,UAAI,mBAAe,KAAG,KAAtB;AAEE,8BAAkB;AAClB;AACA;AACA;OALF;AAFiC;AAjGD;AAEhC,UAAI,kBAAc,KAAG,KAArB;AAEE,6BAAiB;AACjB;AACA;AACA;OALF;AAFgC;AAiLH;AAE7B,UAAI,eAAW,KAAG,KAAlB;AAEE,0BAAc;AACd;OAHF;AAF6B;AA2VE;AAE/B,UAAI,iBAAa,KAAG,KAApB;AAEE,4BAAgB;AAChB;OAHF;AAF+B;AAgNJ;AAAX;AAEhB,eAAU,CAAI;AAFE;AAAW;AAhjBK;AAEhC,2BAAiB;AAFe;AAwnEG;AAEnC,2BAAgB,OAAO,CAAC,KAAD;AAFY;AApsDJ;AAE/B,UAAI,iBAAa,KAAG,KAApB;AAEE,4BAAgB;AAChB;OAHF;AAF+B;AAkBI;AAEnC,UAAI,qBAAiB,KAAG,KAAxB;AAEE,gCAAoB;AACpB,YAAY,uBAAD,QAAX;AAEE;AACA;AACA;SAJF;OAHF;AAFmC;AA2nDF;AAEjC,UAAG,SAAH;AAEE,gCAAoB;AACpB;AACA,8BAAkB;AAElB,YAAY,mBAAD,QAAX;AAEE,6BAAc,YAAY,CAAC,mBAAD;SAF5B;;AAOA,YAAY,mBAAD,QAAX,EACE,mBAAc,YAAY,CAAC,mBAAD,CAD5B;AAGA,8BAAkB;AAElB,YAAY,mBAAD,QAAX,EACE,mBAAc,YAAY,CAAC,mBAAD,CAD5B;AAGA;;AAGF;AACA;AA3BiC;AAtjDD;AAEhC,2BAAiB;AACjB;AAHgC;AAoTD;AAAf;AAEhB,eAAU;AAFM;AAAe;AAmCD;AAAd;AAEhB,eAAU;AAFM;AAAc;AAjWE;AAEhC,qBAAU,KAAV;AAFgC;AAKD;AAE/B,oBAAS,KAAT;AAF+B;AAylDI;AAEnC;AAEA,8BAAoB;AAEpB,WAAqB,QAAQ,eAAe,CAAC,qBAAD;AAE5C,UAAY,EAAD,QAAX,EACE,qBAAgB,CAAC,EAAD,CADlB;AARmC;AAnmDH;AAEhC,yBAAe;AAFiB;AAwIT;AAAP;AAEhB,eAAU;AACV,UAAY,uBAAD,QAAX,EACE,SAAU,uBAAa,aAAa,CAAC,MAAD,CADtC;AAHgB;AAAO;AAy/CC;AAExB,mBAAS;AACT,UAAY,uBAAD,QAAX;AAEE,YAAG,KAAM,KAAE,EAAX;AACE,iCAAa,gBAAgB,CAAC,MAAD;AAE7B,cAAA,uBAAa,aAAa,CAAC,OAAQ,KAAT;OAL9B;AAHwB;AAk4BI;AAAZ;AAEhB,eAAU;AAFM;AAAY;AAltEK;AAAjB;AAEhB,eAAU;AAFM;AAAiB;AA8zCH;AAE9B,UAAU,CAAN,KAAM,KAAG,gBAAH,CAA4B,IAAP,KAAL,IAAwB,CAAC,YAAD,SAAlD;AAEE;AACA,kBAAI,OAAO,CAAC,YAAM,MAAP;AACX;AACA;OALF;AAQA,yBAAe;AAVe;AA1DC;AAE/B,UAAiB,CAAb,iBAAa,KAAG,KAAH,CAAoB,IAAN,KAAJ,IAAsB,CAAC,YAAD,SAAjD;AAEE,sBAAS,YAAM,OAAf;OAFF;AAKA,0BAAgB;AAPe;AA/gDH;AAE5B,uBAAa;AACb,UAAG,KAAM,KAAE,0BAAX;AACE;AAEA;AAN0B;AAvuBH;AAEzB,UAAI,WAAO,KAAG,MAAd;AAEE,sBAAU;AAEV;AACA;AAGA,YAAI,kBAAiG,IAAxE,CAAX,gBAAW,KAAE,0BAAF,CAAhB,IAAkC,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAnB,IAA2C,CAAI,iBAAR,IAA+B,CAAC,uBAAD,SAAjH;AAEE,cAAG,MAAO,IAAG,CAAb;AACE,kCAAe,YAAY,CAAC,QAAQ,qBAAQ,CAAC,MAAD,CAAQ,GAAC,IAA1B;AAE3B,gBAAA,sBAAe,eAAe,CAAC,OAAD;SALlC;OARF;AAFyB;AAsFC;AAE1B;AAEA,UAAG,YAAQ,KAAG,MAAd;AAEE,YAAU,CAAN,WAAM,IAAG,cAAC,mBAAQ,oBAAS,oBAAlB,CAAH,CAAgC,IAAY,CAAC,uBAAD,SAAtD;AAEE,eAAM,uBAAa;AACnB,cAAU,CAAP,EAAE,IAAK,GAAE,MAAF,CAAS,IAAG,+BAAtB;AAEE,qBAAU,UAAK,CAAC,+BAAU,GAAE,EAAE,IAAf;WAFjB;SAHF;AASA,uBAAW;AAEX;AACA;AAGA,YAAI,kBAAkG,IAAxE,CAAZ,iBAAY,KAAE,0BAAF,CAAjB,IAAmC,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAnB,IAA2C,CAAI,iBAAR,IAA+B,CAAC,uBAAD,SAAlH;AAEE,cAAG,MAAO,IAAG,CAAb;AACE,kCAAe,YAAY,CAAC,SAAS,qBAAQ,CAAC,MAAD,CAAQ,GAAC,IAA3B;AAE3B,gBAAA,sBAAe,eAAe,CAAC,QAAD;SALlC;OAjBF;AAJ0B;AAlEE;AAE5B,oBAAU;AAFkB;AAiGC;AAE7B,qBAAW;AAFkB;AA3IF;AAE3B,UAAI,aAAS,KAAG,KAAhB;AAEE,wBAAY;AACZ;OAHF;AAF2B;AAy2EI;;AAszBC;;AA9CD;AAE/B;AAEA,eAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AAEF,wBAAQ,CAAC,CAAD,CAAG;;AANkB;AAzuHD;;AA3YC;AAE3B,uBAAJ,IAAG;AAF4B;AAKA;AAE3B,uBAAJ,IAAG;AAF4B;AAmoIO;AAEtC;AACA;AACG;AAJmC;AAKtC,YAAK;AACL,eAAM,CAAE,KAAG,IAAX,EACE,IAAG,uBAAQ,CAAC,iDAAG,gCAAU;;;;YAAd,CAAiB,IAAI,CAAC,cAAc,CAAC,6CAAD,CAA/C;AACE;AAEA,kBAAK,CAAC;AAV4B;AAInC;AADH;AAHsC;;AAaD;AAErC;AACA;AACG;AAJkC;AAKrC,YAAK;AACL,eAAM,CAAE,KAAG,IAAX,EACE,IAAG,uBAAQ,CAAC,iDAAG,gCAAU;;;;YAAd,CAAiB,IAAI,CAAC,aAAa,CAAC,6CAAD,CAA9C;AACE;AAEA,kBAAK,CAAC;AAV2B;AAIlC;AADH;AAHqC;;AAvBR;AAAb;AAEhB,eAAU;AAFM;AAAa;AAKD;AAAZ;AAEhB,eAAU;AAFM;AAAY;AA54DJ;AAAR;AAEhB;AAEA,eAAU;AAEV,UAAW,CAAC,uBAAD,SAAgB,IAAI,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAA9C;AAEE,YAAI,MAAO,KAAE,CAAC,CAAd;AAEE,mBAAU,UAAK,CAAC,cAAG,CAAC,uBAAa,YAAd,CAAJ;SAFjB;AAKA,YAAI,gBAAW,KAAG,0BAAlB;AAEE,eAAM,uBAAa;AACnB,mBAAU,UAAK,CAAC,cAAG,CAAC,EAAE,MAAO,GAAE,EAAE,KAAd,CAAJ;SAHjB;OAPF;AANgB;AAAQ;AAqBC;AAAT;AAEhB;AAEA,eAAU;AAEV,UAAW,CAAC,uBAAD,SAAgB,IAAI,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAA9C;AAEE,YAAI,MAAO,KAAE,CAAC,CAAd;AAEE,mBAAU,UAAK,CAAC,cAAG,CAAC,uBAAa,aAAd,CAAJ;SAFjB;AAKA,YAAI,iBAAY,KAAG,0BAAnB;AAEE,eAAM,uBAAa;AACnB,mBAAU,UAAK,CAAC,cAAG,CAAC,EAAE,OAAQ,GAAE,EAAE,IAAf,CAAJ;SAHjB;OAPF;AANgB;AAAS;AA/aI;AAAb;AAEhB,eAAU,WAAO,GAAE,iBAAF;AAFD;AAAa;AALC;AAAd;AAEhB,eAAU,YAAQ,GAAE,iBAAF;AAFF;AAAc;AAg4EA;AAAd;AAEhB,eAAU;AAFM;AAAc;AAfC;AAAf;AAEhB,eAAU;AAFM;AAAe;AAKF;AAAb;AAEhB,eAAU;AAFM;AAAa;AAKD;AAAZ;AAEhB,eAAU;AAFM;AAAY;AA5/DL;AAAP;AAEhB,eAAU;AACV,UAAW,CAAP,MAAO,KAAE,CAAC,CAAH,CAAkC,IAAhB,CAAC,uBAAD,SAAZ,IAAgC,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAhE,EACE,SAAU,UAAK,CAAC,uBAAa,WAAd,CADjB;AAHgB;AAAO;AAOD;AAAN;AAEhB,eAAU;AACV,UAAW,CAAP,MAAO,KAAE,CAAC,CAAH,CAAkC,IAAhB,CAAC,uBAAD,SAAZ,IAAgC,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAhE,EACE,SAAU,UAAK,CAAC,uBAAa,UAAd,CADjB;AAHgB;AAAM;AA6KS;AAAf;AAEhB,eAAU;AAFM;AAAe;AAv6DF;AAAb;AAEhB,eAAU;AAFM;AAAa;AAKO;;AAzFJ;AAAhB;AAEhB,eAAU,QAAQ;AAFF;AAAgB;AAytGG;AAAnB;AAEhB,eAAU;AAFM;AAAmB;AA9DV;AAAT;AAEhB,eAAU;AAFM;AAAS;AAruDC;AAAV;AAEhB;AACA;AACA;AAEA,UAAK;AACL,uBAAM,CAAC;;;;WAAG,EAAG,CAAP;AAEN,gBAAW;AAEX,YAAO,iCAAa,CAAC,IAAD;AACpB,UAAY,GAAD,QAAX,EACE,UAAW,GAAG,WADhB;AAGA,eAAU,OAAW,GAAH,GAAD,GAAK,mBAAc,CAAC,CAAD,CAAf;AAfL;AAAU;AA+uDI;AAAd;AAEhB,eAAU;AAFM;AAAc;AAprCJ;AAAV;AAEhB,eAAU,CAA4D,CAArC,CAAjB,sBAAiB,KAAE,EAAF,CAAqC,IAAd,CAAZ,iBAAY,KAAE,4BAAF,CAAjB,IAAmC,CAAI,kBAAR;AAFtD;AAAU;AAKK;AAAf;AAEhB,eAAU,CAAwB,CAAnB,+BAAW,QAAQ,IAA4B,CAAvB,iCAAU,CAAC,UAAI,OAAL,CAAa,KAAE,0BAAG,CAAC,EAAE,EAAE,CAAL,CAAL,CAA5B;AAFlB;AAAe;AA0+BC;AAEhC,UAAY,mBAAD,QAAX;AAEE;AACA,2BAAS,WAAW,YAAY,CAAC,mBAAD;AAChC,wBAAY;AACZ;AAEA,YAAW,CAAC,YAAD,SAAS,IAAY,CAAC,YAAM,aAAC,EAAR,SAAhC,EACE,YAAM,kBAAC,EAAc,YAAY,CAAC,mBAAD,CADnC;OAPF;AAFgC;AA3xFJ;;AAxGK;AAEjC;AAEA,yBAA4B,CAAZ,2CAAY,IAAG,oBAAH,CAAmB,IAAI,CACZ,CAAzB,CAAV,yCAAU,IAAG,WAAK,gBAAR,CAAyB,IAAc,CAAV,yCAAU,IAAG,WAAK,gBAAR,CAAd,CADQ;AAG/C,8BAAoB,uBAAW,QAAC;AAChC,6BAAa,cAAI,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAX,CAAjB;AACA,2BAAiB;AAEjB,UAAG,gBAAH;AAEE,cAAO,iCAAa,CAAC,IAAD;AACpB,YAAW,CAAC,GAAD,SAA4B,IAAV,yBAAH,eAAJ,GAAI,CAAT,IAAwD,CAAxB,OAAJ,IAAO,yBAAH,CAAY,YAAY,KAAG,wBAAH,CAAzE;AAEE,6BAAc,CAAM,OAAJ,IAAO,yBAAH,CAAY,YAAlB;SAFhB;OAHF;AAXiC;AAwdD;AAEhC;AACA;AAEA,eAAsB,KAAb,uBAAa,GAAE,CAAF,EAAW,aAAjC;AAAI;AAEF,eAAQ,gBAAQ,CAAC,CAAD;AAChB,YAAK,eAAL,IAAK;;AARyB;AA9kBF;AAEpB,oBAAD,sBAAC,oBAAW,CAAZ;AAFqB;AAk/CC;AAAf;AAEhB,eAAU,uBAAa;AAFP;AAAe;AAv2CA;;AAovCE;AAEjC,qBAAW;AAEX,UAAqB,CAAjB,sBAAiB,KAAE,EAAF,CAAM,IAAY,CAAC,uBAAD,SAAvC;AAEE,8BAAiB,CAAC,wBAAe,KAAhB;OAFnB;AAJiC;AAjOL;AAE5B,UAAY,uBAAD,QAAX;AAEE,YAAI,KAAM,KAAE,4BAAZ;AACE,iCAAa,gBAAgB,CAAC,KAAD;AAE7B,cAAA,uBAAa,aAAa,CAAC,MAAM,KAAP;OAL9B;AAF4B;AAqQO;AAAnB;AAEhB,eAAU;AACA,iBAAL,KAAK;AACR,UADQ,IACR;AAAG,iBAAU;AACb,gBAFQ,IAER;AAAG,iBAAU;AACb,gBAHQ,IAGR,QAAG,SAAU,yBAAb;AANc;AAAmB;AAUI;AAAvB;AAEhB,eAAU;AACV,UAAG,KAAK,SAAR,EACE,SAAiB,aAAP,OAAS,cAAC,iCAAD,CAAF,CADnB;AAGA,UAAG,KAAK,QAAR,EACE,SAAiB,aAAP,OAAS,cAAC,gCAAD,CAAF,CADnB;AAGA,UAAG,KAAK,OAAR,EACE,SAAiB,aAAP,OAAS,cAAC,+BAAD,CAAF,CADnB;AAGA,UAAiB,CAAd,KAAK,QAAS,GAAI,CAAJ,CAAM,KAAE,CAAzB,EACG,SAAiB,aAAP,OAAS,cAAC,gCAAD,CAAF,CADpB;AAGA,UAAiB,CAAd,KAAK,QAAS,GAAI,CAAJ,CAAM,KAAE,CAAzB,EACG,SAAiB,aAAP,OAAS,cAAC,iCAAD,CAAF,CADpB;AAGA,UAAiB,CAAd,KAAK,QAAS,GAAI,CAAJ,CAAM,KAAE,CAAzB,EACG,SAAiB,aAAP,OAAS,cAAC,kCAAD,CAAF,CADpB;AAlBgB;AAAuB;AA8FG;AAA1B;AAEhB,eAAU;AACV,UAAG,KAAK,SAAR,EACE,SAAiB,aAAP,OAAS,cAAC,iCAAD,CAAF,CADnB;AAEA,UAAG,KAAK,QAAR,EACE,SAAiB,aAAP,OAAS,cAAC,gCAAD,CAAF,CADnB;AAEA,UAAG,KAAK,OAAR,EACE,SAAiB,aAAP,OAAS,cAAC,+BAAD,CAAF,CADnB;AAPgB;AAA0B;AAxEE;AAA5B;AAGhB,eAAU;AACV,UAAG,KAAK,SAAR,EACE,SAAiB,aAAP,OAAS,cAAC,iCAAD,CAAF,CADnB;AAEA,UAAG,KAAK,QAAR,EACE,SAAiB,aAAP,OAAS,cAAC,gCAAD,CAAF,CADnB;AAEA,UAAG,KAAK,OAAR,EACE,SAAiB,aAAP,OAAS,cAAC,+BAAD,CAAF,CADnB;AARgB;AAA4B;AA2aL;AAAvB;AAEhB,eAAU;AACV,UAAG,KAAK,SAAR,EACE,SAAiB,aAAP,OAAS,cAAC,iCAAD,CAAF,CADnB;AAEA,UAAG,KAAK,QAAR,EACE,SAAiB,aAAP,OAAS,cAAC,gCAAD,CAAF,CADnB;AAEA,UAAG,KAAK,OAAR,EACE,SAAiB,aAAP,OAAS,cAAC,+BAAD,CAAF,CADnB;AAPgB;AAAuB;AA2KV;AAAb;AAEhB,2BAAiB;AACjB,UAAI,0BAAQ,IAAG,0BAAf,EACE,sBADF;AAEA,UAAG,aAAH,EACE,YADF;AAEA,eAAU;AACV,2BAAiB;AARD;AAAa;AA+XA;AAAb;AAEhB;AACA;AACA;AAAE;AAEF,2BAAiB;AACjB;AAEA,qBAAU,CAAC,KAAK,SAAU,KAAK,SAAU;;;;WAAG;;;;UAAlC;AAEV,yBAAc,EAAd,GAAoB,UAAK,CAAC,CAAD;AACzB,yBAAc,EAAd,GAAoB,UAAK,CAAC,CAAD;AAEzB,WAAkC,WAA5B,iCAA4B,CAAC,KAAD;AAElC,UAAK;AACL,qBAAU,CAAC,eAAI,gBAAK,CAAC,CAAC,KAAK,OAAP,EAAiB;;;;UAA3B;AAEV,eAAU;AACV,2BAAiB;AApBD;AAAa;AA/WG;AAAhB;AAEhB,0BAAgB;AAChB,2BAAiB;AACjB,UAAI,6BAAW,IAAG,0BAAlB,EACE,sBADF;AAEA,UAAG,aAAH,EACE,eADF;AAEA,eAAU;AACV,2BAAiB;AATD;AAAgB;AA0SC;AAAjB;AAEhB;AAAG;AACH;AACA;AAEA,2BAAiB;AACjB,UAAI,8BAAY,IAAG,0BAAnB,EACE,sBADF;AAGA,UAAG,CAAI,eAAP,EACE,qBADF;AAGA,sBAAW,UAAK,CAAC,KAAK,QAAN;AAChB,sBAAW,UAAK,CAAC,KAAK,QAAN;AAEhB,qBAAU,CAAC,KAAK,SAAU,KAAK,SAAU;;;;WAAG;;;;UAAlC;AAGV,UAAG,uBAAiB,IAAO,CAAF,CAAE,GAAQ,CAAN,eAAM,GAAE,wBAAF,CAAR,CAA3B,EACE,aADF;AAGA,UAAG,uBAAiB,IAAO,CAAF,CAAE,GAAS,CAAP,gBAAO,GAAE,yBAAF,CAAT,CAA3B,EACE,aADF;AAGA,WAA6B,WAAvB,4BAAuB,CAAC,KAAD;AAC7B,WAAM,wBAAmB,CAAC,KAAD;AAEzB,oBAAS,CAAC,GAAI,eAAI,gBAAK,CAAC,CAAD,EAAK,gBAAK,CAAC,CAAD,CAAxB;AACT,eAAU;AACV,2BAAiB;AA9BD;AAAiB;AAiCF;AAAf;AAEhB;AAAG;AACH;AACA;AAEA,2BAAiB;AACjB,UAAI,4BAAU,IAAG,0BAAjB,EACE,sBADF;AAGA,qBAAU,CAAC,KAAK,SAAU,KAAK,SAAU;;;;WAAG;;;;UAAlC;AAGV,UAAG,uBAAiB,IAAO,CAAF,CAAE,GAAQ,CAAN,eAAM,GAAE,wBAAF,CAAR,CAA3B;AAEE,6BAAiB;AACjB;OAHF;AAMA,UAAG,uBAAiB,IAAO,CAAF,CAAE,GAAS,CAAP,gBAAO,GAAE,yBAAF,CAAT,CAA3B;AAEE,6BAAiB;AACjB;OAHF;AAMA,WAA6B,WAAvB,4BAAuB,CAAC,KAAD;AAC7B,WAAM,wBAAmB,CAAC,KAAD;AAEzB,UAAI,cAAS,KAAE,uBAAf,EACE,kBADF;AAGA,kBAAO,CAAC,GAAI,eAAI,gBAAK,CAAC,CAAD,EAAK,gBAAK,CAAC,CAAD,CAAxB;AACP,eAAU;AACV,2BAAiB;AAjCD;AAAe;AAgVE;AAAjB;AAEhB;AAAG;AACH;AAEA,2BAAiB;AACjB,uBAAY,UAAK,CAAC,KAAK,QAAN;AACjB,uBAAY,UAAK,CAAC,KAAK,QAAN;AAEjB,UAAI,8BAAY,IAAG,0BAAnB,EACE,sBADF;AAGA,qBAAU,CAAC,KAAK,SAAU,KAAK,SAAU;;;;WAAG;;;;UAAlC;AAEV,WAA6B,WAAvB,4BAAuB,CAAC,KAAD;AAE7B,oBAAS,CAAC,eAAI,gBAAK,CAAC,CAAD,EAAK,gBAAK,CAAC,CAAD,CAApB;AACT,eAAU;AACV,2BAAiB;AAlBD;AAAiB;AApBC;AAAlB;AAEhB,UAAG,eAAH,EACE,aADF;AAGA,WAAK;AACL;AACA,eAAU;AAPM;AAAkB;AA5oBC;AAAnB;AAEhB,eAAU;AAFM;AAAmB;AAhGI;AAAvB;AAEhB,UAAkB,CAAd,KAAK,QAAS,KAAE,CAAF,CAAkB,IAAT,eAAJ,IAAiB,CAAI,sBAA5C;AAEE;AACA,4BAAe,CAAC,KAAD;AACf,+BAAkB,CAAC,KAAD;OAJpB;AAMA,+BAAqB;AACrB,eAAU;AATM;AAAuB;AAYA;AAAvB;AAEhB,+BAAqB;AACrB,eAAU;AAHM;AAAuB;AA0uBL;AAAlB;AAEhB,UAAG,eAAH,EACE,aADF;AAGA,WAAK;AACL;AACA,eAAU;AAPM;AAAkB;AA+BH;AAAf;AAEhB;AACA;AACA;AAGA,2BAAiB;AACjB,UAAI,4BAAU,IAAG,0BAAjB,EACE,sBADF;AAKF;AAIE,UAAG,CAAI,KAAP;AAEE,YAAK,eAAU,CAAC,KAAK,KAAM,IAAZ;AACf,aAAgC,WAA1B,+BAA0B,CAAC,KAAD;AAChC,oBAAO,CAAC;;;;aAAG,cAAJ;AAEP,YAAI,CAAE,IAAG,cAAC,GAAW,GAAW,CAAvB,CAAT;AAEE,yBAAU,CAAC;;;;eAAG,cAAJ;SAFZ;OANF;AAYA,eAAU;AACV,UAAG,CAAE,KAAE,CAAP,EACE,qBADF;AAGA,2BAAiB;AAjCD;AAAe;AAoCF;AAAb;AAEhB;AACA;AACA;AACA;AAEA,2BAAiB;AACjB,UAAI,0BAAQ,IAAG,0BAAf,EACE,sBADF;AAIF;AAIE,UAAG,CAAI,KAAP;AAEE,YAAK,eAAU,CAAC,KAAK,KAAM,IAAZ;AAEf,aAAgC,WAA1B,+BAA0B,CAAC,KAAD;AAGhC,YAAI,CAAE,KAAE,EAAR;AAEE,cAAK;AACL,uBAAQ,CAAC;;;;cAAD;SAHV;AAMA,kBAAK,CAAC;;;;aAAG,cAAJ;OAbP;AAgBA,eAAU;AACV,UAAG,CAAE,KAAE,CAAP,EACE,qBADF;AAEA,2BAAiB;AAnCD;AAAa;AAsCG;AAAhB;AAEhB;AAEA,2BAAiB;AACjB,UAAI,6BAAW,IAAG,0BAAlB,EACE,sBADF;AAGA,UAAG,mBAAc,CAAC,KAAK,IAAN,CAAjB;AAEE,YAAK,eAAU,CAAC,KAAK,IAAN;AACf,qBAAQ,CAAC;;;;YAAD;OAHV;AAMA,eAAU;AACV,UAAG,CAAE,KAAE,MAAP,EACE,qBADF;AAEA,2BAAiB;AAjBD;AAAgB;AAoBH;AAAb;AAEhB;AACA;AAIA,UAAG,gBAAH;AAEE,6BAAiB;AACjB,YAAI,6BAAW,IAAG,0BAAlB,EACE,sBADF;AAGA,YAAK;AACL,YAAG,KAAK,KAAM,KAAG,EAAjB;AAEE,kBAAS,KAAK;AAEd,cAAG,mBAAQ,CAAC,KAAD,CAAX;AACE,gBAAK,KAAK,QAAQ,KAAD,WAAP;AAEV,oBAAK;AAEP,uBAAQ,CAAC;;;;cAAD;SATV;AAYA,iBAAU;AACV,YAAG,CAAE,KAAE,MAAP,EACE,qBADF;AAEA,6BAAiB;OAtBnB;AAPgB;AAAa;AA4CD;AAAZ;AAEhB;AACA,eAAU;AACV;AAJgB;AAAY;AAXC;AAAb;AAEhB,2BAAiB;AACjB;AACA;AACA,eAAU;AACV,2BAAiB;AACjB,uBAAa;AACb;AARgB;AAAa;AApXK;AAAlB;AAEhB;AAAE;AACF;AACA;AAEA,2BAAiB;AACjB,+BAAqB;AAErB;AAEA,UAAG,CAAI,gBAAP,EACE,qBADF;AAGA,UAAG,KAAK,QAAQ,OAAQ,GAAE,CAA1B;AAEE,gBAAS,KAAK,QAAQ,KAAQ,CAAC,CAAD;AAE9B,uBAAU,CAAC,KAAK,SAAU,KAAK,SAAU;;;;aAAG;;;;YAAlC;AAEV,aAA6B,WAAvB,4BAAuB,CAAC,KAAD;AAE7B,YAAG,qBAAH;AAEE,wBAAS,CAAC,yBAAQ,eAAI,gBAAK,CAAC,CAAD,EAAK,gBAAK,CAAC,CAAD,CAA5B;SAFX;AAKA,uBAAU,CAAC,gBAAK,CAAC,CAAD,EAAK,gBAAK,CAAC,CAAD,CAAhB;OAbZ;AAeA,eAAU;AACV,2BAAiB;AA9BD;AAAkB;AAiCD;AAAjB;AAEhB;AAAE;AACF;AACA;AAEA,2BAAiB;AACjB,+BAAqB;AAErB;AAEA,UAAG,CAAI,gBAAP,EACE,qBADF;AAGA,UAAG,eAAH,EACE,qBADF;AAGA,UAAG,KAAK,QAAQ,OAAQ,GAAE,CAA1B;AAEE,gBAAS,KAAK,QAAQ,KAAQ,CAAC,CAAD;AAE9B,uBAAU,CAAC,KAAK,SAAU,KAAK,SAAU;;;;aAAG;;;;YAAlC;AAEV,aAA6B,WAAvB,4BAAuB,CAAC,KAAD;AAE7B,YAAG,qBAAH,EACE,cAAS,CAAC,eAAI,gBAAK,CAAC,CAAD,EAAK,gBAAK,CAAC,CAAD,CAApB,CADX;AAGA,sBAAS,CAAC,gBAAK,CAAC,CAAD,EAAK,gBAAK,CAAC,CAAD,CAAhB;OAXX;AAaA,2BAAiB;AACjB,eAAU;AA/BM;AAAiB;AAkCD;AAAhB;AAEhB;AAAE;AACF;AACA;AAEA,2BAAiB;AAEjB,UAAG,CAAI,gBAAP,EACE,qBADF;AAGA;AACA;AAEA,UAAW,CAAC,sBAAD,SAAoB,IAAqD,CAAlC,sBAAkB,QAAQ,OAAQ,GAAE,CAAF,CAApF;AAEE,gBAAuB,sBAAkB,QAAQ,KAAQ,CAAC,CAAD;AAEzD,uBAAU,CAAC,KAAK,SAAU,KAAK,SAAU;;;;aAAG;;;;YAAlC;AAEV,aAA6B,WAAvB,4BAAuB,CAAC,KAAD;AAE7B,YAAG,qBAAH;AAEE,sBAAO,CAAC,yBAAQ,eAAI,gBAAK,CAAC,CAAD,EAAK,gBAAK,CAAC,CAAD,CAA5B;AACP,cAAG,aAAQ,IAAI,CAAI,gBAAnB,EACE,YADF;SAHF;AAOA,qBAAQ,CAAC,gBAAK,CAAC,CAAD,EAAK,gBAAK,CAAC,CAAD,CAAhB;OAfV;AAiBA,2BAAiB;AACjB,eAAU;AAhCM;AAAgB;AAmCG;AAAnB;AAEhB;AAAE;AACF;AACA;AAEA,2BAAiB;AACjB;AACA;AAEA,UAAG,KAAK,QAAQ,OAAQ,GAAE,CAA1B;AAEE,gBAAS,KAAK,QAAQ,KAAQ,CAAC,CAAD;AAE9B,uBAAU,CAAC,KAAK,SAAU,KAAK,SAAU;;;;aAAG;;;;YAAlC;AAEV,aAA6B,WAAvB,4BAAuB,CAAC,KAAD;AAE7B,YAAG,qBAAH;AAEE,sBAAO,CAAC,yBAAQ,eAAI,gBAAK,CAAC,CAAD,EAAK,gBAAK,CAAC,CAAD,CAA5B;SAFT;AAKA,wBAAW,CAAC,gBAAK,CAAC,CAAD,EAAK,gBAAK,CAAC,CAAD,CAAhB;OAbb;AAeA,2BAAiB;AACjB,eAAU;AA1BM;AAAmB;AA1dF;AAAjB;AAEhB;AAEA,2BAAiB;AACjB,WAAK;AACL,YAAO;AACP,sBAAW,CAAC;;;;UAAD;AACX,UAAY,GAAD,QAAX;AACE,2BAAc;AAEd,+BAAc;AAChB,eAAU;AAZM;AAAiB;AAXD;AAAhB;AAEhB,2BAAiB;AACjB,WAAK;AACL,mBAAQ,CAAC,iBAAY,KAAK,SAAU,KAAK,SAAU,2BAAY;;;;UAAvD;AACR,UAAG,gBAAY,IAAwB,CAAnB,CAAI,qBAAe,IAAoC,CAAhC,KAAK,aAAa,MAAM,OAAQ,KAAE,CAAF,CAApC,CAAvC,EACE,KAAK,iBADP;AAEA,eAAU,CAAI;AACd,2BAAiB;AARD;AAAgB;AArBC;AAAjB;AAEhB,2BAAiB;AACjB,WAAK;AACL,yBAAe;AACf,mBAAQ,CAAC,iBAAY,KAAK,SAAU,KAAK,SAAU,4BAAa;;;;UAAxD;AACR,UAAG,gBAAH,EACE,KAAK,iBADP;AAEA,eAAU,CAAI;AACd,2BAAiB;AATD;AAAiB;AAYA;AAAjB;AAEhB,2BAAiB;AACjB,WAAK;AACL,mBAAQ,CAAC,iBAAY,KAAK,SAAU,KAAK,SAAU,4BAAa;;;;UAAxD;AACR,eAAU;AACV,2BAAiB;AAND;AAAiB;AAvBF;AAAf;AAEhB,2BAAiB;AACjB,WAAK;AACL,oBAAS,CAAC,iBAAY,KAAK,SAAU,KAAK,QAAjC;AACT,eAAU;AACV,UAAI,cAAS,KAAE,uBAAf,EACE,kBADF;AAEA,2BAAiB;AARD;AAAe;AAhBC;AAAhB;AAEhB,2BAAiB;AACjB,WAAK;AACL,UAAG,CAAI,gBAAP;AACE,aAAK;;AAGL,YAAG,CAAI,qBAAP,EACE,KAAK,iBADP;AAEA,qBAAQ,CAAC,iBAAY,KAAK,SAAU,KAAK,QAAjC;;AAEV,eAAU;AACV,2BAAiB;AAbD;AAAgB;AA0YC;;AAKC;AAElC,UAAI,iBAAa,KAAE,CAAnB;AAEE,2BAAc,KAAd;AACA;OAHF;AAMA;AARkC;AArBA;AAElC;AAEA,eAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AAEA,YAAG,gBAAQ,CAAC,CAAD,CAAG,YAAd;AAEE,0BAAQ,CAAC,CAAD,CAAG,MAAK,OAAO,CAAC,UAAD;AACvB,0BAAQ,CAAC,CAAD,CAAG;AACX,0BAAQ,CAAC,CAAD,CAAG,YAAX,GAA2B;AAC3B,0BAAQ,CAAC,CAAD,CAAG;SALb;;AAN8B;AAu8CX;AAEvB,UAAY,YAAD,QAAX,EACE,YAAM,CAAC,IAAD,CADR;AAFuB;AANC;AAExB,UAAY,aAAD,QAAX,EACE,aAAO,CAAC,IAAD,CADT;AAFwB;AA32HF;AAEtB,UAAW,CAAC,aAAD,SAAU,IAAI,gBAAzB,EACE,aAAO,CAAC,IAAD,CADT;AAFsB;AAo6GQ;AAE9B,UAAG,wBAAoB,IAAiB,CAAb,iBAAa,GAAE,CAAF,CAAxC,EACE,MADF;AAGA,UAAW,CAAC,uBAAD,SAAwD,IAArB,CAAd,uBAAc,KAAG,uBAAH,CAAnB,IAA4C,CAAI,iBAA3E;AAEE;AAEA,YAAG,CAAI,kBAAP;AAEE;SAFF;OAJF;AAL8B;AAiHI;AAElC;AACA;AAAS;AAAQ;AACjB;AACA;AAGA,UAAG,wBAAoB,IAAiB,CAAb,iBAAa,GAAE,CAAF,CAAxC,EACE,MADF;AAGA,UAAG,kBAAH,EACE,MADF;AAGA,UAAW,CAAC,uBAAD,SAAgB,IAAmB,CAAd,uBAAc,KAAG,uBAAH,CAA9C;AAEE,aAAM;AAEN,mBAAY;AACZ,kBAAW;AAEX,eAAQ;AACR,eAAc,CAAC,IAAD,SAAmF,IAAvD,CAAhB,qBAAgB,KAAE,gCAAF,CAArB,IAA6D,CAArB,IAAI,iBAAiB,KAAG,gCAAH,CAA1B,IAA6C,CAAa,+BAAH,eAAL,IAAK,CAA/G;AAGE,cAAG,IAAI,YAAC,EAA0C,IAArB,CAAC,IAAI,iBAAC,EAAN,SAAZ,IAA4F,CAAtD,IAAI,iBAAC,EAAa,MAAM,iBAAiB,CAAC,UAAD,CAAa,KAAG,UAAH,CAA7G;AAEE,iBAAM,IAAI,iBAAC,EAAa;AACxB,uBAAY,UAAK,CAAC,EAAE,KAAH;AACjB,sBAAW,UAAK,CAAC,EAAE,IAAH;AAEhB,gBAAW,CAAC,IAAI,QAAL,SAAsD,IAA5B,CAAC,IAAI,QAAO,iBAAC,EAAb,SAAZ,IAA0G,CAA7D,IAAI,QAAO,iBAAC,EAAa,MAAM,iBAAiB,CAAC,UAAD,CAAa,KAAE,UAAF,CAAnI;AAEE,mBAAM,IAAI,QAAO,iBAAC,EAAa;AAC/B,yBAAY,QAAS,GAAE,UAAK,CAAC,EAAE,KAAH,CAAP;AACrB,wBAAW,OAAQ,GAAE,UAAK,CAAC,EAAE,IAAH,CAAP;aAJrB;AAOA;WAbF;AAeA,iBAAQ,IAAI;;AAGd,YAAW,CAAC,YAAD,SAAS,IAAK,YAAM,sBAA/B;AAEE,qBAAY,YAAM,QAAC;AACnB,oBAAW,YAAM,OAAC;SAHpB;AAMA,YAAI,qBAAgB,KAAE,gCAAtB;AAEE,cAAG,SAAK,KAAG,CAAC,CAAZ;AACE,cAAE,YAAY,CAAC,MAAO,qBAAQ,CAAC,SAAK,GAAE,OAAR,CAAiB,GAAE,IAAnC;AAEd,gBAAA,EAAE,YAAY,CAAC,MAAO,EAAR;AAEhB,cAAG,UAAM,KAAG,CAAC,CAAb;AACE,cAAE,YAAY,CAAC,OAAQ,qBAAQ,CAAC,UAAM,GAAE,QAAT,CAAmB,GAAE,IAAtC;AAEd,gBAAA,EAAE,YAAY,CAAC,OAAQ,EAAT;;AAIhB,YAAE,eAAe,CAAC,KAAD;AACjB,YAAE,eAAe,CAAC,MAAD;;AAGnB,YAAI,gBAAY,KAAE,0BAAlB;AAEE,eAAM;AACN,cAAG,WAAO,KAAG,CAAC,CAAd;AACE,cAAE,YAAY,CAAC,QAAS,qBAAQ,CAAC,EAAD,CAAK,GAAE,IAAzB;AAEd,gBAAA,EAAE,eAAe,CAAC,OAAD;SANrB;AASA,YAAI,gBAAY,KAAE,sBAAlB;AAEE,YAAE,eAAe,CAAC,OAAD;SAFnB;AAKA,YAAI,iBAAa,KAAE,0BAAnB;AAEE,cAAG,YAAQ,KAAG,CAAC,CAAf;AACE,cAAE,YAAY,CAAC,SAAU,qBAAQ,CAAC,qBAAD,CAAiB,GAAE,IAAtC;AAEd,gBAAA,EAAE,eAAe,CAAC,QAAD;SALrB;AAQA,YAAI,iBAAa,KAAE,sBAAnB;AAEE,YAAE,eAAe,CAAC,QAAD;SAFnB;AAKA,YAAI,gBAAY,KAAE,yBAAlB;AAEE,cAAG,WAAO,KAAG,CAAC,CAAd;AACE,cAAE,YAAY,CAAC,QAAS,8BAAU,CAAC,SAAS,mBAAC,oBAAD,CAAV,CAApB;AAEd,gBAAA,EAAE,eAAe,CAAC,OAAD;SALrB;AAQA,YAAI,iBAAa,KAAE,yBAAnB;AAEE,cAAG,YAAQ,KAAG,CAAC,CAAf;AACE,cAAE,YAAY,CAAC,SAAU,8BAAU,CAAC,SAAS,mBAAC,qBAAD,CAAV,CAArB;AAEd,gBAAA,EAAE,eAAe,CAAC,QAAD;SALrB;AAQA,YAAG,qBAAiB,KAAE,gCAAtB;AACE,YAAE,YAAY,CAAC,WAAY,UAAb;AACX,kBAAG,qBAAiB,KAAE,gCAAtB;AACH,YAAE,YAAY,CAAC,WAAY,UAAb;AAEd,cAAA,EAAE,eAAe,CAAC,UAAD;AAEnB,UAAE,YAAY,CAAC,aAAa,YAAd;OAvGhB;AAdkC;AAyHE;AAEpC;AACA;AACA;AAEA,WAAM;AAEN,UAAG,CAAY,CAAC,EAAD,SAAf,EACE,MADF;AAGA,UAAG,iBAAH,EACE,MADF;AAGA,WAAM;AAKN,UAAG,gBAAW,IAAY,CAAC,YAAD,SAA1B;AAEE,kBAAI,UAAJ,GAAiB;AACjB,kBAAI,OAAO,CAAC,YAAM,MAAP;AACX,kBAAI,UAAJ,GAAiB;OAJnB;AAOA,UAAI,sBAAiB,KAAE,EAAvB;AAEE,YAAG,CAAI,kBAAP;AAEE,cAAG,kBAAa,IAA2B,CAAtB,sBAAS,CAAC,EAAE,QAAH,CAAa,KAAG,+BAAH,CAA3C;AACE,cAAE,YAAY,CAAC,WAAY,QAAb;AAEd,gBAAA,EAAE,YAAY,CAAC,WAAY,EAAb;SALlB;AAQA,8BAAiB,CAAC,GAAI,YAAL;OAVnB;AAaA,UAAG,eAAH,EACiB,WAAO,MAAM,YAAY,CAAC,SAAU,EAAE,iBAAiB,CAAC,QAAD,CAA9B,CAD1C;AAGA,UAAqB,CAAjB,sBAAiB,KAAG,EAAH,CAAO,IAAG,mBAA/B;AACE,UAAE,YAAY,CAAC,UAAW,EAAZ;AAEd,YAAA,EAAE,YAAY,CAAC,UAAW,MAAZ;AAEhB;AAEK;AACL,UADK,IACL;AAAW,UAAE,eAAe,CAAC,WAAD;AAC5B,gBAFK,IAEL;AAAe,UAAE,YAAY,CAAC,YAAY,KAAb;AAC7B,gBAHK,IAGL;AAAe,UAAE,YAAY,CAAC,YAAY,KAAb;AAC7B,gBAJK,IAIL,oCAAW,EAAE,YAAY,CAAC,YAAY,SAAb,CAAzB;AAGA,UAAqB,CAAjB,sBAAiB,KAAE,EAAF,CAAM,IAAI,kBAA/B;AAEE,UAAE,YAAY,CAAC,qBAAsB,MAAvB;AACd,UAAE,YAAY,CAAC,kBAAmB,MAApB;AACd,UAAE,YAAY,CAAC,oBAAqB,MAAtB;AACd,UAAE,YAAY,CAAC,iBAAkB,MAAnB;AACd,UAAE,YAAY,CAAC,cAAe,MAAhB;AACd,UAAE,YAAY,CAAC,8BAA+B,aAAhC;OAPhB;AAUA,0BAAe,CAAC,GAAI,WAAL;AAEf,eAAU;AAEV,UAAG,CAAI,kBAAP,EACE,uBAAkB,CAAC,GAAI,WAAM,MAAX,CADpB;AAGA,UAAG,CAAI,MAAP;AAEE,YAAG,gBAAU,IAAI,sBAAjB,EACE,EAAE,YAAY,CAAC,QAAS,kCAAW,CAAC,UAAI,OAAL,CAArB,CADhB;;AAKA,UAAE,eAAe,CAAC,OAAD;;AAhFiB;AAzNF;AAElC;AACA;AACA;AAAU;AAAc;AACxB;AAAc;AACd;AACA;AAGA,UAAY,uBAAD,QAAX;AAEE,YAAG,CAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAApB;AAEE,cAAG,aAAH;AACE,kCAAe,YAAY,CAAC,UAAW,EAAZ;AAE3B,gBAAA,sBAAe,YAAY,CAAC,UAAW,MAAZ;SAL/B;AAQA;AAEA,YAAY,eAAD,QAAX;AAEE,cAAG,gBAAH;AACE,2BAAU,gBAAgB,CAAC,UAAD;AAE1B,gBAAA,eAAU,aAAa,CAAC,WAAW,EAAZ;SAL3B;AAQA,YAAG,kBAAS,IAAU,CAAL,UAAK,KAAE,EAAF,CAAtB,EACE,MADF;AAGA,YAAW,CAAC,eAAD,SAAa,IAAU,CAAL,cAAK,KAAG,EAAH,CAAlC,EACE,eAAU,cAAC,OAAW,UAAZ,CADZ;AAGA,cAAO,iCAAa,CAAC,IAAD;AAEpB,sBAAuB,CAAC,GAAD,SAAM,IAAoB,CAAf,GAAG,YAAY,KAAE,6BAAF,CAApB;AAC7B,YAAG,WAAyB,IAAT,cAAJ,IAAuB,CAAL,UAAK,KAAG,EAAH,CAAtC;AAEE,eAAM;AACN,qBAAY;AACI,qBAAX,+BAAW;AAChB,cADgB,IAChB;AAAQ,yBAAc;AACtB,oBAFgB,IAEhB;AAAS,yBAAc;AACvB,oBAHgB,IAGhB;AAAO,yBAAc;AACrB,oBAJgB,IAIhB,iDAAU,aAAc,QAAxB;AAEA,yBAAgB,+BAAW;AAC3B,yBAAgB,+BAAW;AAC3B,6BAAoB,+BAAW;AAC/B,eAAM;AAEZ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEM,0BAAY;;AAIZ,cAAY,eAAD,QAAX;AAEE,gBAAG,cAAS,IAAU,CAAL,UAAK,KAAG,EAAH,CAAtB;AAEE,kBAAG,WAAH;AACE,+BAAU,cAAC,aAAiB,UAAlB;AAEA,oBAAV,eAAU,cAAC,QAAY,UAAb;;AAIZ,kBAAG,WAAH;AACE,+BAAU,gBAAgB,CAAC,YAAD;AAE1B,oBAAA,eAAU,gBAAgB,CAAC,OAAD;;WAdhC;;AAmBF,YAAG,CAAI,gBAAU,IAAgB,CAAZ,iBAAY,KAAE,uBAAF,CAAjC;AACE,gCAAe,eAAe,CAAC,OAAD;AAE9B,kBAAG,sBAAH,EACE,sBAAe,YAAY,CAAC,QAAQ,kCAAW,CAAC,UAAI,OAAL,CAApB,CAD7B;OAhFJ;AAVkC;AA6SL;AAE7B;AACA,yBAAc,CAAC,gBAAD;AACd,yBAAc,CAAC,YAAD;AAJe;AAgBK;AAElC,oBAAU;AACV,qBAAW;AAHuB;AA/lBG;AAErC;AAEA,UAAK;AACL,UAAG,SAAH;AAEE;AAEA,YAAY,mBAAD,QAAX;AAEE,cAAW,CAAC,YAAD,SAAS,IAAI,CAAY,CAAC,YAAM,aAAC,EAAR,SAApC,EACE,YAAM,gBADR;AAGA,cAAW,CAAP,YAAO,KAAG,CAAH,CAAsB,IAAJ,CAAC,CAAD,SAAZ,IAA4B,CAAC,CAAC,aAAC,EAAH,SAA7C;AAEE,gBAAG,mBAAS,WAAY,KAAE,CAAC,kBAAC,EAA5B,EACE,CAAC,kBAAC,EAAc,YAAY,CAAC,mBAAD,CAD9B;WAFF;AAMA,cAAW,CAAC,YAAD,SAAS,IAAY,CAAC,YAAM,aAAC,EAAR,SAAhC;AAEE,wBAAM,kBAAC,EAAc,YAAY,CAAC,mBAAD;WAFnC;SAXF;OAJF;AALqC;AA8NN;AAE/B;AACA;AAEA,UAAW,CAAC,QAAD,SAAW,IAAI,CAAkB,CAAb,4CAAa,IAAG,oBAAH,CAA5C;AAEE,YAAI,QAAQ,OAAO,KAAG,kBAAtB,EACE,QAAQ,YADV;AAGA,YAAgB,mBAAH,eAAT,QAAS,CAAb;AAEY,iBAAT,SAAY,mBAAH,CAAkB;AAClB,iBAAT,SAAY,mBAAH,CAAkB;SAH9B;AAMA,iBAAS,QAA2B,OAAtB,QAAQ,iBAAC,EAAa,GAAE,CAAF,kBAApC;AAAI;AAEF,cAAK,QAAQ,YAAS,CAAC,CAAD;AACtB,6BAAc,CAAC,CAAD;;OAdlB;AAL+B;AAwBD;AAE9B;AAEA,eAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AACF,wBAAQ,CAAC,CAAD,CAAG;;AALiB;AA/4CD;AAE7B,UAAY,uBAAD,QAAX,EACE,uBAAa,UAAb,GAA2B,IAD7B;AAF6B;AAu5CA;AAE7B;AAEA,eAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AACF,wBAAQ,CAAC,CAAD,CAAG;;AALgB;AAt2EJ;AAAT;AAEhB,eAAU;AAFM;AAAS;AAq9BC;;AAr6CC;AAE3B;AAEA,UAAG,CAAa,CAAR,aAAQ,IAAI,eAAJ,CAAhB;AAEE,YAAY,mBAAD,QAAX,EACE,mBAAS,aAAa,CAAC,WAAW,IAAZ,CADxB;OAFF;AAMA,eAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AAEF,wBAAQ,CAAC,CAAD,CAAG;;AAZc;AAigBD;AAE1B;AAEA,UAAW,CAAC,eAAD,SAAa,IAAI,CAAI,kBAAhC;AAEE,YAAG,aAAQ,IAAI,eAAf;AAEE,yBAAU,cAAC,WAAe,qBAAQ,CAAC,cAAS,GAAE,CAAZ,CAAxB;;AAIV,yBAAU,cAAC,WAAe,IAAhB;;OARd;AAYA,eAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AAEF,wBAAQ,CAAC,CAAD,CAAG;;AAlBa;AAqKU;AAEpC,UAAI,sBAAkB,KAAG,MAAzB;AAEE,iCAAqB;AACrB,YAAY,eAAD,QAAX,EACE,eAAU,cAAC,QAAY,MAAb,CADZ;AAEA;OALF;AAFoC;AAkHX;AAEzB,oBAAU;AACV;AACA;AAJyB;AA7BD;AAExB,gBAAK,QAAC,CAAQ,MAAM,MAAd;AACN,gBAAK,QAAC,CAAQ,MAAM,MAAd;AACN,gBAAK,SAAC,CAAe,WAAN,MAAM,QAAf;AACN,gBAAK,SAAC,CAAS,MAAM,OAAf;AALkB;AA+gDE;AAE1B;AAEA,UAAY,MAAD,QAAX,EACE,SAAU,MAAM,eAAe,CAAC,IAAD,CADjC;AAGA,cAAS;AAET,UAAI,YAAQ,KAAG,MAAf;AAEE,YAAY,YAAD,QAAX,EACE,YAAO,iBAAiB,CAAC,IAAD,CAD1B;AAGA,2BAAe;AACf,uBAAW;AACX,yBAAa;AAEb;AAEA,YAAG,CAAkB,CAAb,4CAAa,IAAG,oBAAH,CAArB;AAEE,cAAG,CAAI,KAAP,EACE,oBADF;AAEA;SAJF;AAOA,YAAY,YAAD,QAAX,EACE,YAAO,eAAe,CAAC,IAAD,CADxB;AAGA,YAAc,CAAV,yCAAU,IAAG,oBAAH,CAAwC,IAAT,CAAC,YAAD,SAAZ,IAAyB,CAAe,CAAV,yCAAU,IAAG,YAAM,gBAAT,CAAzE,EACE,aADF;AAGA,YAAW,CAAC,MAAD,SAA8B,IAAT,CAAC,YAAD,SAAZ,IAAyB,CAAI,YAAM,aAAvD;AAEE,cAAG,WAAM,KAAG,kBAAZ;AACE;AAEA;SALJ;AAQA,YAAG,CAAkB,CAAb,4CAAa,IAAG,oBAAH,CAArB,EACE,iBADF;OAhCF;AAT0B;AA6JK;AAErB,oBAAD,sBAAC,oBAAiB,WAAC,cAAD,CAAY,GAAE,CAAhC;AACT,oBAAS,CAAO,WAAC,cAAD,CAAY,GAAE,CAArB,CAAT,GAAoC;AAHL;AAkRE;AAEjC;AACA;AAEA,YAAO;AAEP,eAAS,QAAuB,OAAZ,WAAC,cAAD,CAAY,GAAE,CAAF,kBAAhC;AAAI;AAEF,YAAI,cAAS,CAAC,CAAD,CAAI,KAAE,MAAnB;AAEE,gBAAO;SAFT;AAKA,YAAI,GAAK,IAAO,CAAF,CAAE,GAAoB,CAAZ,WAAC,cAAD,CAAY,GAAE,CAAF,CAApB,CAAhB,EACE,cAAS,CAAC,CAAD,CAAT,GAAgB,cAAS,CAAC,CAAE,GAAE,CAAL,CAD3B;;AAIF,UAAG,GAAH,EACY,cAAD,sBAAC,oBAAiB,WAAC,cAAD,CAAY,GAAE,CAAhC,CADX;AAlBiC;AA72GH;AAAd;AAEf,eAAU;AAFK;AAAc;AA04BN;AAExB,UAAG,UAAM,KAAG,MAAZ;AAEE,qBAAS;AAET;AAEA,YAAG,CAAI,mBAAP,EACE,iBAAa,MADf;AAGA;AACA;AACA;AAEA,YAAG,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAyC,IAAX,CAAN,WAAM,KAAG,kBAAH,CAAX,IAAkC,CAAC,YAAD,SAAvE;AAEE;SAFF;OAbF;AAFwB;AA2BD;AAEvB,UAAG,SAAK,KAAG,MAAX;AAEE,oBAAQ;AAER;AAEA,YAAG,CAAI,mBAAP,EACE,gBAAY,MADd;AAGA;AACA;AACA;AAEA,YAAG,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAyC,IAAX,CAAN,WAAM,KAAG,kBAAH,CAAX,IAAkC,CAAC,YAAD,SAAvE;AAEE;SAFF;OAbF;AAFuB;AAzuCC;AAGxB,UAAG,CAAI,aAAP,EACE,MADF;AAGA,UAAY,eAAD,QAAX,EACC,eAAS,CAAC,KAAM,OAAQ,kBAAO,EAAG,CAAzB,CADV;AANwB;AAnBE;AAG1B,UAAG,CAAI,aAAP,EACE,MADF;AAGA,UAAY,iBAAD,QAAX,EACC,iBAAW,CAAC,KAAM,OAAQ,kBAAO,EAAG,CAAzB,CADZ;AAN0B;AAUA;AAE1B,UAAG,CAAI,aAAP,EACE,MADF;AAGA,UAAY,iBAAD,QAAX,EACC,iBAAW,CAAC,KAAM,kBAAO,EAAG,CAAjB,CADZ;AAL0B;AAmpCC;AAE3B,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAM,EAAG,CAAV,CADd;AAF2B;AAND;AAE1B,UAAY,iBAAD,QAAX,EACE,iBAAW,CAAC,KAAM,EAAG,CAAV,CADb;AAF0B;AAND;AAEzB,UAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,KAAM,EAAG,CAAV,CADZ;AAFyB;AANG;AAE5B,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,EAAG,CAAV,CADf;AAF4B;AAr/BC;AAE7B,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,IAAD,CADd;AAF6B;AArBA;AAE7B,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,IAAD,CADd;AAF6B;AApGF;AAG3B;AAEA,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAM,kBAAO,WAAiB,wBAAL,eAAK,CAAC,EAAG,CAAJ,GAAQ,OAAvC,CADd;AAGI,4BAAJ,IAAuB;AACvB,aAAM,QAAG,CAAC,sBAAD,CAAoB,IAAG,GAAhC;AAEE,gBAAS,sBAAkB,GAAE,CAAF;AAC3B,iCAAqB,QAAG,CAAC,sBAAD,CAAoB,GAAE,GAAF;AAC5C,YAAG,KAAH;AAEE,cAAG,sBAAkB,KAAG,CAAxB,EAA+B,yBAAqB,CAAC,sBAArD;AACA,+BAAgB,CAAC,kBAAO,4CAAR;SAGhB,MAAA,mBAAc,CAAC,kBAAO,4CAAR;;AAnBS;AA0GK;AAAhB;AAGhB,eAAU;AACV,UAAY,sBAAD,QAAX,EACE,sBAAiB,CAAC,KAAM,kBAAO,kCAAU;;;;UAAxB,CADnB;AAJgB;AAAgB;AAQF;AAAd;AAEhB,eAAU;AACV,UAAY,oBAAD,QAAX,EACE,oBAAe,CAAC,KAAM,kBAAO,kCAAU;;;;UAAxB,CADjB;AAHgB;AAAc;AAi0BL;AAEzB,UAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,IAAD,CADZ;AAFyB;AA64CD;AAExB,UAAY,eAAD,QAAX,EACE,eAAS,CAAC,KAAM,IAAK,iBAAZ,CADX;AAFwB;AARG;AAE3B,UAAW,CAAC,WAAD,SAAQ,IAAc,aAAH,eAAN,WAAM,CAA9B;AAES,eAAN,YAAS,aAAH,CAAY,WAAW,CAAC,IAAK,iBAAN;OAFhC;AAF2B;AAcF;AAEzB,UAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,KAAM,GAAP,CADZ;AAFyB;AAMH;AAEtB,UAAY,aAAD,QAAX,EACE,aAAO,CAAC,KAAM,IAAK,iBAAZ,CADT;AAFsB;AAjoBG;AAEzB;AAEA,UAAG,CAAI,eAAP,EACE,MADF;AAGA,UAAY,uBAAD,QAAX;AAEE,YAAK;AACL,YAAG,cAAH;AAIJ;;AAQA;;OAfE;AAPyB;AApJQ;AAEjC;AAFiC;AAKD;AAEhC;AAFgC;AAKN;AAE1B,UAAW,CAAC,YAAD,SAAS,IAAI,CAAI,YAAM,aAAlC;AAEE,oBAAM,aAAa,CAAC,YAAD;OAFrB;AAF0B;AAi8CK;AAE/B;AACA;AAEA;AACA;AAEA,UAAG,gBAAH,EACE,MADF;AAGA,yBAAe;AAEf;AAEA;AAEA,UAAK;AAEL,YAAO,iCAAa,CAAC,IAAD;AACpB,UAAY,GAAD,QAAX;AAEE,YAAK,GAAG;AACR,YAAK,CAAE,IAA+B,CAAlB,GAAI,aAAc,GAAE,CAAF,CAA/B;OAHT;AAMA,UAAK,CAAE,IAAiB,CAAb,iBAAa,GAAE,CAAF,CAAjB;AACP,UAAK,CAAE,IAAG,gBAAH;AAEP,UAAG,CAAI,CAAP;AAEE;OAFF;AAKA,yBAAe;AAlCgB;AAqCL;AAE1B,UAAY,eAAD,QAAX,EACE,eAAS,CAAC,KAAM,OAAQ,EAAG,CAAlB,CADX;AAF0B;AAME;AAE5B,UAAY,iBAAD,QAAX,EACE,iBAAW,CAAC,KAAM,UAAP,CADb;AAF4B;AAlDH;AAGzB,UAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,KAAM,OAAQ,EAAG,EAAG,MAAO,MAA5B,CADZ;AAHyB;AA4kBA;AAAT;AAEhB,eAAU,eAAW,KAAE,QAAQ,cAAV;AAFL;AAAS;AAphBF;AAAP;AAEhB,eAAU,eAAW,KAAE,QAAQ,cAAV;AAFL;AAAO;AAnxCF;AAAL;AAEhB,eAAU;AAFM;AAAK;AAUW;AAAhB;AAEhB,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAI,oBAA5B,EACE,SAAyB,eAD3B;AAHgB;AAAgB;AA1xBI;AAApB;AAEhB,eAAyB;AAFT;AAAoB;AALV;AAAV;AAEhB,eAAU,QAAQ,eAAe,CAAC,YAAD;AAFjB;AAAU;AA2oCA;AAAV;AAEhB;AAEA,UAAK,CAAC;AACD;AACH,UADG,IACH;AAAM,YAAK;AACX,gBAFG,IAEH;AAAQ,YAAK;AACb,gBAHG,IAGH;AAAQ,YAAK;AACb,gBAJG,IAIH;AAAS,YAAK;AACd,gBALG,IAKH;AAAK,YAAK;AACV,gBANG,IAMH;AAAK,YAAK;AACV,gBAPG,IAOH;AAAK,YAAK;AACV,gBARG,IAQH;AAAK,YAAK;AACV,gBATG,IASH;AAAK,YAAK;AACV,gBAVG,IAUH;AAAM,YAAK;AACX,gBAXG,IAWH;AAAK,YAAK;AACV,gBAZG,IAYH;AAAK,YAAK;AACV,gBAbG,IAaH;AAAK,YAAK;AACV,gBAdG,IAcH;AAAK,YAAK;AACV,gBAfG,IAeH;AAAK,YAAK;AACV,gBAhBG,IAgBH;AAAK,YAAK;AACV,gBAjBG,IAiBH;AAAK,YAAK;AACV,gBAlBG,IAkBH;AAAK,YAAK;AACV,gBAnBG,IAmBH;AAAK,YAAK;AACV,gBApBG,IAoBH;AAAK,YAAK;AACV,gBArBG,IAqBH;AAAK,YAAK;AACV,gBAtBG,IAsBH;AAAK,YAAK;AACV,gBAvBG,IAuBQ,KAAX,mBAAW,UAAX;AAAuB,YAAK;AAC5B,gBAxBG,IAwBQ,KAAX,mBAAW,IAAX;AAAiB,YAAK;AACtB,gBAzBG,IAyBQ,KAAX,mBAAW,MAAX;AAAmB,YAAK;AACxB,gBA1BG,IA0BQ,KAAX,mBAAW,MAAX;AAAmB,YAAK;AACxB,gBA3BG,IA2BQ,KAAX,mBAAW,QAAX;AAAqB,YAAK;AAC1B,gBA5BG,IA4BQ,KAAX,mBAAW,IAAX;AAAiB,YAAK;AACtB,gBA7BG,IA6BQ,KAAX,mBAAW,MAAX;AAAmB,YAAK;AACxB,gBA9BG,IA8BQ,KAAX,mBAAW,SAAX;AAAsB,YAAK;AAC3B,gBA/BG,IA+BQ,KAAX,mBAAW,OAAX;AAAoB,YAAK;AACzB,gBAhCG,IAgCQ,KAAX,mBAAW,OAAX;AAAoB,YAAK;AACzB,gBAjCG,IAiCQ,KAAX,mBAAW,SAAX;AAAsB,YAAK;AAC3B,gBAlCG,IAkCQ,KAAX,mBAAW,KAAX;AAAkB,YAAK;AACvB,gBAnCG,IAmCQ,KAAX,mBAAW,KAAX;AAAkB,YAAK;AACvB,gBApCG,IAoCQ,KAAX,mBAAW,UAAX;AAAuB,YAAK;AAC5B,gBArCG,IAqCQ,KAAX,mBAAW,QAAX;AAAqB,YAAK;AAC1B,gBAtCG,IAsCQ,KAAX,mBAAW,WAAX;AAAwB,YAAK;AAC7B,gBAvCG,IAuCQ,KAAX,mBAAW,UAAX;AAAuB,YAAK;AAC5B,gBAxCG,IAwCQ,KAAX,mBAAW,OAAX;AAAoB,YAAK;AACzB,gBAzCG,IAyCQ,KAAX,mBAAW,OAAX;AAAoB,YAAK;AAEzB,gBA3CG,IA2CQ,KAAX,mBAAW,GAAX;AAAgB,YAAK;AACrB,gBA5CG,IA4CQ,KAAX,mBAAW,GAAX;AAAgB,YAAK;AACrB,gBA7CG,IA6CQ,KAAX,mBAAW,GAAX;AAAgB,YAAK;AACrB,gBA9CG,IA8CQ,KAAX,mBAAW,GAAX;AAAgB,YAAK;AACrB,gBA/CG,IA+CQ,KAAX,mBAAW,GAAX;AAAgB,YAAK;AACrB,gBAhDG,IAgDQ,KAAX,mBAAW,GAAX;AAAgB,YAAK;AACrB,gBAjDG,IAiDQ,KAAX,mBAAW,GAAX;AAAgB,YAAK;AACrB,gBAlDG,IAkDQ,KAAX,mBAAW,GAAX;AAAgB,YAAK;AACrB,gBAnDG,IAmDQ,KAAX,mBAAW,GAAX;AAAgB,YAAK;AACrB,gBApDG,IAoDQ,KAAX,mBAAW,IAAX;AAAiB,YAAK;AACtB,gBArDG,IAqDQ,KAAX,mBAAW,IAAX;AAAiB,YAAK;AACtB,gBAtDG,IAsDQ,KAAX,mBAAW,IAAX;AAAiB,YAAK;AACtB,gBAvDG,IAuDQ,KAAX,mBAAW,IAAX;AAAiB,YAAK;AACtB,gBAxDG,IAwDQ,KAAX,mBAAW,IAAX;AAAiB,YAAK;AACtB,gBAzDG,IAyDQ,KAAX,mBAAW,IAAX;AAAiB,YAAK;AACtB,gBA1DG,IA0DQ,KAAX,mBAAW,IAAX;AAAiB,YAAK;AACtB,gBA3DG,IA2DQ,KAAX,mBAAW,IAAX;AAAiB,YAAK;AACtB,gBA5DG,IA4DQ,KAAX,mBAAW,IAAX;AAAiB,YAAK;AACtB,gBA7DG,IA6DQ,KAAX,mBAAW,IAAX;AAAiB,YAAK;AACtB,gBA9DG,IA8DQ,KAAX,mBAAW,IAAX;AAAiB,YAAK;;AAGpB,YAAG,mBAAQ,CAAC,MAAD,CAAS,IAAoB,CAAR,MAAD,OAAS,GAAE,CAAF,CAAxC;AAEE,cAAS,MAAD,YAAQ,CAAD,IAAP;AACR,cAAG,UAAyB,IAAP,CAAF,CAAE,IAAG,EAAH,CAAP,IAAqB,CAAF,CAAE,IAAG,GAAH,CAAnC;AACE,gBAAK,CAAE,GAAI,IAAJ;AAEP,oBAAM,CAAF,CAAE,IAAG,EAAH,CAAO,IAAO,CAAF,CAAE,IAAG,EAAH,CAApB;AACE,gBAAK,CAAE,GAAG,IAAH;AAET,oBAAG,CAAE,GAAE,GAAP,EACE,IAAK,CAAE,GAAG,IADZ;SATJ;;AAeJ,eAAU;AArFM;AAAU;AA1DA;AAAV;AAEhB;AAEA,UAAK,CAAC;AACN,eAAU;AAEL;AACH,UADG,IACQ,KAAX,mBAAW,UAAX;AAAuB,YAAK;AAC5B,gBAFG,IAEQ,KAAX,mBAAW,IAAX;AAAiB,YAAK;AACtB,gBAHG,IAGQ,KAAX,mBAAW,MAAX;AAAmB,YAAK;AACxB,gBAJG,IAIQ,KAAX,mBAAW,MAAX;AAAmB,YAAK;AACxB,gBALG,IAKQ,KAAX,mBAAW,QAAX;AAAqB,YAAK;AAC1B,gBANG,IAMQ,KAAX,mBAAW,IAAX;AAAiB,YAAK;AACtB,gBAPG,IAOQ,KAAX,mBAAW,MAAX;AAAmB,YAAK;AACxB,gBARG,IAQQ,KAAX,mBAAW,SAAX;AAAsB,YAAK;AAC3B,gBATG,IASQ,KAAX,mBAAW,OAAX;AAAoB,YAAK;AACzB,gBAVG,IAUQ,KAAX,mBAAW,OAAX;AAAoB,YAAK;AACzB,gBAXG,IAWQ,KAAX,mBAAW,SAAX;AAAsB,YAAK;AAC3B,gBAZG,IAYQ,KAAX,mBAAW,KAAX;AAAkB,YAAK;AACvB,gBAbG,IAaQ,KAAX,mBAAW,KAAX;AAAkB,YAAK;AACvB,gBAdG,IAcQ,KAAX,mBAAW,UAAX;AAAuB,YAAK;AAC5B,gBAfG,IAeQ,KAAX,mBAAW,QAAX;AAAqB,YAAK;AAC1B,gBAhBG,IAgBQ,KAAX,mBAAW,WAAX;AAAwB,YAAK;AAC7B,gBAjBG,IAiBQ,KAAX,mBAAW,UAAX;AAAuB,YAAK;AAC5B,gBAlBG,IAkBQ,KAAX,mBAAW,OAAX;AAAoB,YAAK;AACzB,gBAnBG,IAmBQ,KAAX,mBAAW,OAAX;AAAoB,YAAK;AAEzB,gBArBG,IAqBQ,KAAX,mBAAW,GAAX;AAAgB,YAAK;AACrB,gBAtBG,IAsBQ,KAAX,mBAAW,GAAX;AAAgB,YAAK;AACrB,gBAvBG,IAuBQ,KAAX,mBAAW,GAAX;AAAgB,YAAK;AACrB,gBAxBG,IAwBQ,KAAX,mBAAW,GAAX;AAAgB,YAAK;AACrB,gBAzBG,IAyBQ,KAAX,mBAAW,GAAX;AAAgB,YAAK;AACrB,gBA1BG,IA0BQ,KAAX,mBAAW,GAAX;AAAgB,YAAK;AACrB,gBA3BG,IA2BQ,KAAX,mBAAW,GAAX;AAAgB,YAAK;AACrB,gBA5BG,IA4BQ,KAAX,mBAAW,GAAX;AAAgB,YAAK;AACrB,gBA7BG,IA6BQ,KAAX,mBAAW,GAAX;AAAgB,YAAK;AACrB,gBA9BG,IA8BQ,KAAX,mBAAW,IAAX;AAAiB,YAAK;AACtB,gBA/BG,IA+BQ,KAAX,mBAAW,IAAX;AAAiB,YAAK;AACtB,gBAhCG,IAgCQ,KAAX,mBAAW,IAAX;AAAiB,YAAK;AACtB,gBAjCG,IAiCQ,KAAX,mBAAW,IAAX;AAAiB,YAAK;AACtB,gBAlCG,IAkCQ,KAAX,mBAAW,IAAX;AAAiB,YAAK;AACtB,gBAnCG,IAmCQ,KAAX,mBAAW,IAAX;AAAiB,YAAK;AACtB,gBApCG,IAoCQ,KAAX,mBAAW,IAAX;AAAiB,YAAK;AACtB,gBArCG,IAqCQ,KAAX,mBAAW,IAAX;AAAiB,YAAK;AACtB,gBAtCG,IAsCQ,KAAX,mBAAW,IAAX;AAAiB,YAAK;AACtB,gBAvCG,IAuCQ,KAAX,mBAAW,IAAX;AAAiB,YAAK;AACtB,gBAxCG,IAwCQ,KAAX,mBAAW,IAAX;AAAiB,YAAK;;AAGpB,iBAAU,MAAM,QAAC,CAAD;;AAIpB,UAAG,CAAE,KAAG,CAAC,CAAT,EACE,SAAa,oBAAC,CAAD,CADf;AAtDgB;AAAU;AAq/CI;AAAd;AAEX;AACH,WADG,IACH,cACA,CAFG,IAEH,YADA,IAEA,CAHG,IAGH,YAFA,IAGA,CAJG,IAIH,aAHA,IAIW,CALR,IAKQ,KAAX,mBAAW,OAJX,IAKW,CANR,IAMQ,KAAX,mBAAW,SALX,IAMW,CAPR,IAOQ,KAAX,mBAAW,KANX,IAOW,CARR,IAQQ,KAAX,mBAAW,OAPX,IAQW,CATR,IASQ,KAAX,mBAAW,UARX,IASW,CAVR,IAUQ,KAAX,mBAAW,QATX,IAUW,CAXR,IAWQ,KAAX,mBAAW,UAVX,IAWW,CAZR,IAYQ,KAAX,mBAAW,MAXX,IAYW,CAbR,IAaQ,KAAX,mBAAW,MAZX,IAaW,CAdR,IAcQ,KAAX,mBAAW,WAbX,IAcW,CAfR,IAeQ,KAAX,mBAAW,SAdX,IAeW,CAhBR,IAgBQ,KAAX,mBAAW,YAfX,IAgBW,CAjBR,IAiBQ,KAAX,mBAAW,WAhBX,IAiBW,CAlBR,IAkBQ,KAAX,mBAAW,QAjBX,IAkBW,CAnBR,IAmBQ,KAAX,mBAAW,QAlBX,IAmBW,CApBR,IAoBQ,KAAX,mBAAW,IAnBX,IAoBW,CArBR,IAqBQ,KAAX,mBAAW,IApBX,IAqBW,CAtBR,IAsBQ,KAAX,mBAAW,IArBX,IAsBW,CAvBR,IAuBQ,KAAX,mBAAW,IAtBX,IAuBW,CAxBR,IAwBQ,KAAX,mBAAW,IAvBX,IAwBW,CAzBR,IAyBQ,KAAX,mBAAW,IAxBX,IAyBW,CA1BR,IA0BQ,KAAX,mBAAW,IAzBX,IA0BW,CA3BR,IA2BQ,KAAX,mBAAW,IA1BX,IA2BW,CA5BR,IA4BQ,KAAX,mBAAW,IA3BX,IA4BW,CA7BR,IA6BQ,KAAX,mBAAW,KA5BX,IA6BW,CA9BR,IA8BQ,KAAX,mBAAW,KA7BX,IA8BW,CA/BR,IA+BQ,KAAX,mBAAW,KA9BX,IA+BW,CAhCR,IAgCQ,KAAX,mBAAW,KA/BX,IAgCW,CAjCR,IAiCQ,KAAX,mBAAW,KAhCX,IAiCW,CAlCR,IAkCQ,KAAX,mBAAW,KAjCX,IAkCW,CAnCR,IAmCQ,KAAX,mBAAW,KAlCX,IAmCW,CApCR,IAoCQ,KAAX,mBAAW,KAnCX,IAoCW,CArCR,IAqCQ,KAAX,mBAAW,KApCX,IAqCW,CAtCR,IAsCQ,KAAX,mBAAW,KArCX,IAsCW,CAvCR,IAuCQ,KAAX,mBAAW,KAtCX;AAsCiB,iBAAU;;AAEzB,iBAAU;;AA3CE;AAAc;AA5gDD;AAAb;AAEhB;AACA;AAAE;AAEF,YAAO,sBAAS,CAAC,aAAQ,CAAC,cAAD,CAAT;AAChB,aAAQ;AAER,UAAK,cAAG,CAAC,KAAK,GAAN;AACR,UAAG,CAAE,GAAE,CAAP;AAEE,yBAAM,CAAC;;;;aAAI,EAAE,CAAP;AACN,wBAAG,CAAC,IAAK;;;;aAAM;;;;YAAZ;OAHL;AAMA,qBAAU,cAAI,CAAC,EAAG,EAAG,eAAS,GAAG,CAAD,CAAC,GAAE,IAAF,CAAH,CAAW,gBAAU,GAAG,CAAD,CAAC,GAAC,IAAD,CAAxC,CAAd;AAfgB;AAAa;AAjmDC;AAE9B,UAAG,CAAY,CAAC,aAAD,SAAf;AAEE,wBAAY;AAEZ,YAAY,aAAD,QAAX;AAEE,iCAAmB;AACnB,4BAAa;AACb,cAAG,CAAe,CAAV,YAAU,KAAE,MAAF,CAAlB,EACE,mBAAS,cAAC,KAAS,YAAV,CADX;AAEA,6BAAS,cAAC,SAAa,GAAd;AACT,cAAG,sBAAkB,KAAG,EAAxB,EACE,mBAAS,cAAC,QAAY,sBAAb,CADX;AAEA,kCAAmB,CAAC,aAAD;AAEnB;AACA;SAZF;OAJF;AAF8B;AAg8CM;AAEpC,uBAAa;AACb,uBAAa;AACb,0BAAgB;AAChB,2BAAiB;AACjB,yBAAe;AACf,2BAAiB;AACjB,4BAAkB;AAClB,4BAAkB;AAClB,yBAAe;AACf,uBAAa;AACb,0BAAgB;AAChB,uBAAa;AACb,uBAAa;AACb,sBAAY;AACZ,4BAAkB;AAClB,0BAAgB;AAChB,2BAAiB;AACjB,6BAAmB;AACnB,iCAAuB;AACvB,iCAAuB;AACvB,8BAAoB;AACpB,6BAAmB;AAvBiB;AA0BF;AAElC,UAAG,cAAU,KAAE,IAAf;AAEE,yBAAc;AACd,yBAAc;AACd,4BAAiB;AACjB,6BAAkB;AAClB,2BAAgB;AAChB,6BAAkB;AAClB,8BAAmB;AACnB,8BAAmB;AACnB,2BAAgB;AAChB,yBAAc;AACd,4BAAiB;AACjB,yBAAc;AACd,yBAAc;AACd,wBAAa;AACb,8BAAmB;AACnB,4BAAiB;AACjB,6BAAkB;AAClB,+BAAoB;AACpB,mCAAwB;AACxB,mCAAwB;AACxB,gCAAqB;AACrB,6BAAkB;AAClB,4BAAiB;AACjB,6BAAkB;AAClB,6BAAkB;AAClB,2BAAgB;AAChB,4BAAiB;AACjB,+BAAoB;OA7BtB;AAFkC;AA9aP;AAAX;AAEhB,eAAU;AAFM;AAAW;AAkdA;AAE3B;AACA;AAEA,UAAY,2BAAD,QAAX;AAEE;AACA,4BAAgB;AAChB,aAAM;AACN,aAAM;AAEV;AAEI,UAAE,iBAAiB,CAAC,QAAS,cAAV;AACnB,UAAE,iBAAiB,CAAC,WAAY,iBAAb;AACnB,UAAE,iBAAiB,CAAC,YAAa,kBAAd;AACnB,UAAE,iBAAiB,CAAC,UAAW,gBAAZ;AACnB,UAAE,iBAAiB,CAAC,YAAa,kBAAd;AACnB,UAAE,iBAAiB,CAAC,aAAc,mBAAf;AACnB,UAAE,iBAAiB,CAAC,aAAc,mBAAf;AACnB,UAAE,iBAAiB,CAAC,UAAW,gBAAZ;AACnB,UAAE,iBAAiB,CAAC,QAAS,cAAV;AACnB,UAAE,iBAAiB,CAAC,WAAY,iBAAb;AACnB,UAAE,iBAAiB,CAAC,QAAS,cAAV;AACnB,UAAE,iBAAiB,CAAC,QAAS,cAAV;AACnB,UAAE,iBAAiB,CAAC,OAAQ,aAAT;AAEnB,aAAM;AAEV;AAEI,aAAO;AAEX;AAEI,UAAE,iBAAiB,CAAC,WAAY,iBAAb;AACnB,UAAE,iBAAiB,CAAC,cAAe,oBAAhB;AAEnB,UAAE,iBAAiB,CAAC,cAAe,oBAAhB;AAEnB,UAAE,iBAAiB,CAAC,YAAa,kBAAd;AACnB,UAAE,iBAAiB,CAAC,WAAY,iBAAb;AACnB,UAAE,iBAAiB,CAAC,YAAa,kBAAd;AACnB,UAAE,iBAAiB,CAAC,YAAa,kBAAd;AACnB,UAAE,iBAAiB,CAAC,UAAW,gBAAZ;AACnB,UAAE,iBAAiB,CAAC,OAAQ,iBAAT;OAzCrB;AAL2B;AAmqDE;AAE7B;AAEA;AAEA,UAAY,2BAAD,QAAX;AAEE,aAAM;AAEN,UAAE,oBAAoB,CAAC,QAAS,cAAV;AACtB,UAAE,oBAAoB,CAAC,QAAS,cAAV;AACtB,UAAE,oBAAoB,CAAC,WAAY,iBAAb;AACtB,UAAE,oBAAoB,CAAC,YAAa,kBAAd;AACtB,UAAE,oBAAoB,CAAC,UAAW,gBAAZ;AACtB,UAAE,oBAAoB,CAAC,YAAa,kBAAd;AACtB,UAAE,oBAAoB,CAAC,aAAc,mBAAf;AACtB,UAAE,oBAAoB,CAAC,aAAc,mBAAf;AACtB,UAAE,oBAAoB,CAAC,UAAW,gBAAZ;AACtB,UAAE,oBAAoB,CAAC,QAAS,cAAV;AACtB,UAAE,oBAAoB,CAAC,WAAY,iBAAb;AACtB,UAAE,oBAAoB,CAAC,QAAS,cAAV;AACtB,UAAE,oBAAoB,CAAC,OAAQ,aAAT;AACtB,UAAE,oBAAoB,CAAC,QAAS,cAAV;AAEtB,UAAE,oBAAoB,CAAC,aAAc,mBAAf;AACtB,UAAE,oBAAoB,CAAC,YAAa,kBAAd;AACtB,UAAE,oBAAoB,CAAC,WAAY,iBAAb;AACtB,UAAE,oBAAoB,CAAC,cAAe,iBAAhB;AAEtB,UAAE,oBAAoB,CAAC,cAAe,oBAAhB;OAxBxB;AAN6B;AAtgHC;;AAIA;;AAE9B;AAEoB;AAElB;AAAI;AAAI;AAAI;AAEZ,YAAG,CAAI,OAAO,uBAAd,EACE,qBADF;AAGA,eAAO,eAAP,GAA0B;AAE1B,YAAG,OAAO,kBAAV;AAEE,eAAM,OAAO,SAAQ;AACrB,eAAM,OAAO,SAAQ;AACrB,eAAM,OAAO,SAAQ;AACrB,eAAM,OAAO,SAAQ;;AAIrB,eAAM;AACN,eAAM;AACN,eAAM;AACN,eAAM;;AAGH;AACH,YADG,IACH;AAEE,iBAAO,aAAa,CAAC,KAAK,KAAM,GAAE,EAAF,CAAM,KAAK,IAAK,GAAE,EAAF,CAAM,KAAK,MAAyB,GAAhB,KAAK,KAAP,GAAe,EAAF,GAAO,EAAF,CAAM,OAAO,UAAC,EAA9E;AACpB,eAAK,IAAL,GAAa,KAAK,IAA2B,GAApB,OAAO,UAAC,EAAV,GAAmB,EAAF,GAAO,EAAF;SAE/C,UANG,IAMH;AAEE,iBAAO,aAAa,CAAC,KAAK,KAAM,GAAE,EAAF,CAAM,KAAK,OAA8B,GAApB,OAAO,UAAC,EAAV,GAAmB,EAAF,GAAO,CAAF,CAAK,KAAK,MAA8B,GAArB,KAAK,KAAP,GAAe,EAAF,GAAO,EAAF,GAAO,CAAF,CAAK,OAAO,UAAC,EAA1G;AACpB,eAAK,OAAL,GAAgB,KAAK,OAA8B,GAApB,OAAO,UAAC,EAAV,GAAmB,EAAF,GAAO,EAAF;SAErD,UAXG,IAWH;AAEE,iBAAO,aAAa,CAAC,KAAK,KAAM,GAAE,EAAF,CAAM,KAAK,IAAK,GAAE,EAAF,CAAM,OAAO,SAAC,GAAO,KAAK,OAAyB,GAAf,KAAK,IAAP,GAAc,EAAF,GAAO,EAAjF;AACpB,eAAK,KAAL,GAAc,KAAK,KAA2B,GAAnB,OAAO,SAAC,EAAV,GAAkB,EAAF,GAAO,EAAF;SAEhD,UAhBG,IAgBH;AAEE,iBAAO,aAAa,CAAC,KAAK,MAAuB,GAAd,OAAO,SAAC,EAAV,GAAkB,EAAF,CAAM,KAAK,IAAK,GAAE,EAAF,CAAM,OAAO,SAAC,GAAO,KAAK,OAAyB,GAAf,KAAK,IAAP,GAAc,EAAF,GAAO,EAAlG;AACpB,eAAK,MAAL,GAAe,KAAK,MAA4B,GAAnB,OAAO,SAAC,EAAV,GAAkB,EAAF,GAAO,EAAF;SAElD,UArBG,IAqBH;AAEE,iBAAO,aAAa,CAAC,KAAK,KAAM,GAAE,EAAF,CAAM,KAAK,IAAK,GAAE,EAAF,CAAM,KAAK,MAAyB,GAAhB,KAAK,KAAP,GAAe,EAAF,GAAO,EAAF,CAAM,KAAK,OAAyB,GAAf,KAAK,IAAP,GAAc,EAAF,GAAO,EAAtG;SAOtB,UA9BG,IA8BH;AAEE,eAAM,OAAO,QAAC;AACd,eAAM,OAAO,OAAC;AACd,eAAM;AACN,eAAM;AAEN,cAAG,OAAO,QAAO,UAAU,IAAG,OAAO,QAAO,YAA5C;AAEE,gBAAG,OAAO,QAAO,YAAjB;AAEE,mBAAM,KAAK;AACX,mBAAiD,UAAjB,CAAzB,KAAK,MAAoB,GAAX,KAAK,KAAP,GAAe,OAAO,SAAC,EAAV,CAAiB,GAAI,CAAJ;aAHnD;AAKA,gBAAG,OAAO,QAAO,UAAjB;AAEE,mBAAM,KAAK;AACX,mBAAkD,UAAlB,CAAzB,KAAK,OAAoB,GAAV,KAAK,IAAP,GAAc,OAAO,UAAC,EAAV,CAAkB,GAAI,CAAJ;aAHpD;AAKA,mBAAO,aAAa,CAAC,EAAG,GAAE,EAAF,CAAM,EAAG,GAAE,EAAF,CAAM,OAAO,SAAC,GAAO,OAAO,UAAC,EAA1C;WAZtB;SAPF;AAwBF,eAAO,eAAP,GAA0B;AA9ER;AAiFH;AAEf;AAAE;AAAE;AACJ;AACA;AAEA,aAAM,iBAAK,QAAC;AAEZ,iBAAS,QAAkB,OAAb,wBAAa,GAAE,CAAF,kBAA3B;AAAI;AAEF,cAAkC,CAA5B,iBAAQ,CAAC,CAAD,CAAG,QAAO,UAAU,IAAG,iBAAQ,CAAC,CAAD,CAAG,QAAO,YAArB,CAAkC,IAAY,CAAP,MAAO,KAAE,oBAAF,CAAZ;AAEpE,cAAG,CAAE,IAAiC,CAAV,CAAlB,iBAAQ,CAAC,CAAD,CAAG,OAAO,KAAE,MAAF,CAAU,IAA2B,CAArB,iBAAQ,CAAC,CAAD,CAAG,SAAU,IAAgB,CAAZ,2CAAY,IAAG,qBAAH,CAAhB,CAA3B,CAAtC;AAEE,kBAAO,EAAE,SAAC;AAEV,qBAAkB,MAAT,EAAE,SAAC,EAAM,GAAE,CAAF,EAAW,eAA7B;AAAI;AAEG;AACL,kBADK,IACL;AACE,oBAAG,iBAAQ,CAAC,CAAD,CAAG,SAAU,GAAU,cAAC,EAAE,IAAM,CAAC,CAAD,CAAT,CAAa,SAA/C,EACE,MAAO,CADT;AAEF,wBAJK,IAIL;AACE,oBAAG,iBAAQ,CAAC,CAAD,CAAG,UAAW,GAAU,cAAC,EAAE,IAAM,CAAC,CAAD,CAAT,CAAa,UAAhD,EACE,MAAO,CADT;AAEF,wBAPK,IAOL;AACE,oBAAyB,CAAtB,iBAAQ,CAAC,CAAD,CAAG,UAAW,GAAE,iBAAQ,CAAC,CAAD,CAAG,SAAC,EAAd,CAAoB,GAAkC,CAAxB,cAAC,EAAE,IAAM,CAAC,CAAD,CAAT,CAAa,UAAW,GAAU,cAAC,EAAE,IAAM,CAAC,CAAD,CAAT,CAAa,SAAC,EAAxB,CAA/E,EACE,MAAO,CADT;AAEF,wBAVK,IAUL,2BACE,IAAwB,CAArB,iBAAQ,CAAC,CAAD,CAAG,SAAU,GAAE,iBAAQ,CAAC,CAAD,CAAG,UAAC,EAAd,CAAqB,GAAiC,CAAvB,cAAC,EAAE,IAAM,CAAC,CAAD,CAAT,CAAa,SAAU,GAAU,cAAC,EAAE,IAAM,CAAC,CAAD,CAAT,CAAa,UAAC,EAAxB,CAA9E,EACE,MAAO,CAFX;;AAKF,cAAE,OAAO,CAAC,IAAK,iBAAQ,CAAC,CAAD,CAAd;WArBX;;AAyBF,iBAAS,SAAc,QAAT,EAAE,SAAC,EAAM,GAAE,CAAF,qBAAvB;AAAI;AAEF,oBAAU,CAAS,cAAC,EAAE,IAAM,CAAC,CAAD,CAAT,EAAe,MAAxB;;AAGZ,UAAG,eAAH,EAAG;AA1CY;AA8CjB,wBAAa,CAAC,KAAD;AACb,aAAO,CAAC,iBAAD;AACP,aAAO,CAAC,oBAAD;AACP,aAAO,CAAC,kBAAD;AACP,aAAO,CAAC,mBAAD;AACP,aAAO,CAAC,oBAAD;AACP,aAAO,CAAC,oBAAD;AAEP,eAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AAEF,wBAAQ,CAAC,CAAD,CAAG,aAAa,CAAC,gBAAQ,CAAC,CAAD,CAAT;;AA7II;AAmqBD;AAE7B;AACA;AACA;AAAK;AAAM;AACX;AACA;AACA;AACA;AACA;AAGA,UAAG,gBAAH,EACE,MADF;AAGA,UAAG,iBAAH,EACE,MADF;AAGA,UAAG,yCAAU,IAAG,oBAAhB,EACE,MADF;AAMA,UAAW,CAAC,YAAD,SAAS,IAAI,CAAI,YAAM,SAAlC,EACE,MADF;AAGA,YAAO,iCAAa,CAAC,IAAD;AAEpB,UAAW,CAAC,GAAD,SAAM,IAAI,GAAG,aAAxB,EACE,MADF;AAGA,aAAQ;AAER,UAAW,CAAC,GAAD,SAAoC,IAAP,CAAlB,GAAG,eAAe,KAAG,EAAH,CAAvB,IAA+C,+BAAH,eAAT,QAAS,CAA7D;AAEE,aAAM,QAAQ,eAAe,CAAC,GAAG,eAAJ;AAC7B,YAAY,EAAD,QAAX;AAEE,eAAM,EAAE;AACR,iBAAQ,UAAK,CAAC,EAAE,IAAK,GAAE,CAAV;SAHf;OAHF;AAUA,yBAAe;AAEf,UAAG,CAAY,CAAC,QAAD,SAAf,EACE,MADF;AAGA,WAAM,QAAQ,iBAAC;AAEf,UAAY,EAAD,QAAX;AAEE,cAAO,QAAQ,kBAAgB,iBAAiB,CAAC,UAAD;AAChD,eAAQ,QAAQ,kBAAgB,iBAAiB,CAAC,YAAD;AACjD,eAAQ,QAAQ,kBAAgB,iBAAiB,CAAC,YAAD;AAEjD,YAAG,kBAAa,IAA2B,CAAtB,sBAAS,CAAC,EAAE,QAAH,CAAa,KAAG,+BAAH,CAA3C;AACE,kBAAQ,kBAAgB,YAAY,CAAC,WAAY,QAAb;AAEpC,cAAA,QAAQ,kBAAgB,YAAY,CAAC,WAAY,EAAb;OATxC;AAYA,gBAAK,oBAAL;AACA,OAAC,OAAD,GAAY,CAAC,OAAQ,GAAE,IAAF;AAGrB,UAAG,kBAAH;AAEE,aAAM,uBAAa;AAGnB,kBAAK,cAAI,CAAC,EAAG,EAAG,UAAK,CAAC,EAAE,MAAO,GAAE,EAAE,KAAd,EAAsB,UAAK,CAAC,EAAE,OAAQ,GAAE,EAAE,IAAf,CAAvC,CAAT;OALF;AASA,UAAoB,CAAP,CAAT,CAAC,OAAQ,GAAE,IAAF,CAAO,GAAE,+BAAF,CAAqG,IAAvE,CAAZ,iBAAY,KAAG,0BAAH,CAAjB,IAAoC,CAAqB,CAAhB,qBAAgB,KAAE,gCAAF,CAAzB,IAA2C,CAAI,kBAAR,IAAqB,CAAY,CAAC,yBAAD,SAAzI;AAEE,YAAqB,CAAT,CAAC,YAAD,SAAS,IAAe,+BAAH,eAAP,YAAO,CAAZ,CAA6B,IAAY,+BAAH,eAAL,IAAK,CAA3D;AAEE,WAAC,OAAD,GAAY,+BAAU,GAAE,IAAF;SAFxB;OAFF;AAQA,UAAW,CAAC,EAAD,SAAK,IAAgB,CAAX,EAAE,QAAS,KAAE,MAAF,CAAhC;AAEE,gBAAS;AAET,YAA+B,CAA3B,QAAQ,KAAK,aAAc,GAAE,QAAQ,KAAK,aAAf,CAA8B,IAAI,CAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAAlF,EACE,QAAS,EADX;AAGA,YAAG,GAAG,eAAe,KAAG,EAAxB;AAEE,WAAC,OAAD,GAAY,UAAK,CAAC,QAAG,CAAC,CAAC,QAAU,+BAAZ,CAAJ;AACjB,WAAC,MAAD,GAAW,UAAK,CAAC,QAAG,CAAC,CAAC,MAAO,GAAE,KAAF,CAAS,8BAAlB,CAAJ;;AAIhB,WAAC,OAAD,GAAY,GAAG,UAAC;AAChB,WAAC,MAAD,GAAW,GAAG,SAAC;;OAfnB;AAoBA,UAAgB,+BAAH,eAAT,QAAS,CAAgB,IAAI,CAAY,CAAC,yBAAD,SAA7C;AAEE,YAAG,CAAC,OAAQ,GAAE,+BAAd,EACE,CAAC,OAAD,GAAY,+BADd;AAGA,YAAG,CAAC,MAAO,GAAE,8BAAb,EACE,CAAC,MAAD,GAAW,8BADb;OALF;AASA,UAAG,QAAQ,sBAAX;AAEE,kBAAK,YAAM,gBAAX;OAFF;AAMA,UAAmC,CAA/B,+BAAW,qBAAoB,GAAE,EAAF,CAAM,IAAI,CAAiB,+BAAH,eAAT,QAAS,CAA3D;AAGE,YAAW,CAAC,QAAQ,QAAT,SAAkB,IAAY,CAAC,QAAQ,iBAAC,EAAV,SAAzC;AAEE,cAAI,QAAQ,iBAAC,EAAa,aAAc,GAAE,QAAQ,iBAAC,EAAa,aAAhE,EACE,CAAC,MAAD,GAAW,CAAC,MAAO,GAAM,CAAH,EAAG,GAAE,+BAAW,qBAAb,CAD3B;SAFF;OAHF;AAUA,wBAAa,CAAC,SAAU,CAAX;AAEb,UAAY,EAAD,QAAX;AAEE,gBAAQ,kBAAgB,YAAY,CAAC,WAAY,GAAb;AACpC,gBAAQ,kBAAgB,YAAY,CAAC,aAAc,IAAf;AACpC,gBAAQ,kBAAgB,YAAY,CAAC,aAAc,IAAf;OAJtC;AAOA,yBAAe;AA1Ic;AAgqFC;;AAE9B;AAAE;AAAG;AAEqB;AAExB;AAEA,eAAM,CAAN;AACA,eAAM,CAAN;AACA,eAAQ,uBAAW,CAAC,OAAO,OAAC,aAAW,aAApB;AACnB,YAAY,IAAD,QAAX;AAEE,cAAK,wBAAU,CAAC,QAAS,IAAV;AACf,cAAG,CAAE,IAAG,cAAC,EAAE,EAAE,CAAL,CAAR;AAEE,mBAAM,CAAN;AACA,mBAAM,CAAN;WAHF;AAKA,cAAG,CAAE,IAAG,cAAC,EAAE,CAAH,CAAR;AAEE,mBAAM,EAAN;AACA,mBAAM,EAAN;WAHF;SARF;AAPwB;AAwB1B,UAAG,2BAAH,EACE,MADF;AAGA,WAAM;AACN,WAAM;AAEN,UAAY,yBAAH,eAAL,KAAK,CAAT;AAEE,YAAS,OAAL,MAAQ,yBAAH,CAAS,YAAlB,EACE,gBAAgB,CAAC,MAAM;;;;aAAG;;;;YAAV,CADlB;AAGA,+BAAa,cAAI,CAAC,EAAG,EAAG,qBAAe,GAAE,EAAF,CAAM,sBAAgB,GAAE,EAA9C,CAAjB;;AAIA,+BAAa,cAAI,CAAC,qBAAe,oBAAc,oBAAc,GAAE,qBAAF,CAAkB,mBAAa,GAAE,sBAA7E,CAAjB;;AAGF,UAAY,YAAD,QAAX;AAEE,YAAc,yBAAH,eAAP,YAAO,CAAX;AAEE,cAAW,OAAP,aAAU,yBAAH,CAAS,YAApB;AAEE,4BAAgB,CAAC,aAAQ;;;;iBAAG;;;;gBAAZ;WAFlB;AAIA,uCAAmB,cAAI,CAAC,EAAG,EAAG,YAAM,iBAAgB,GAAE,EAAF,CAAM,YAAM,kBAAiB,GAAE,EAA5D,CAAvB;;AAKA,cAAG,CAAI,YAAM,uBAAb,EACE,YAAM,gBADR;AAGA,uCAAmB,cAAI,CAAC,YAAM,iBAAgB,YAAM,gBAAe,YAAM,gBAAe,GAAE,YAAM,iBAAR,CAAyB,YAAM,eAAc,GAAE,YAAM,kBAAtH,CAAvB;;OAhBJ;AAoBA,eAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AACF,wBAAQ,CAAC,CAAD,CAAG;;AAnEiB;AALM;AAApB;AAEhB,eAAyB,CAAd,cAAQ,KAAM,KAAG,CAAC,CAAJ,CAAO,IAAiB,CAAb,cAAQ,IAAK,KAAG,CAAC,CAAJ,CAAjB;AAFhB;AAAoB;AA2WT;;AA9aH;AAExB,uBAAY,CAAC,IAAD;AAFY;AA1hCD;AAEvB;AAEA,UAAG,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAlB,EACE,MADF;AAGA;AAEA,eAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AAGF,YAAgC,CAA5B,gBAAQ,CAAC,CAAD,CAAG,iBAAiB,IAAG,cAAC,iCAAY,8BAAb,CAAH,CAA0D,IAA3B,CAAK,gBAAQ,CAAC,CAAD,CAAG,YAAC,EAArB,IAA2D,CAAvB,gBAAQ,CAAC,CAAD,CAAG,YAAY,IAAG,CAAH,CAAtH;AAEE,cAAI,gBAAQ,CAAC,CAAD,CAAG,YAAY,GAAE,wBAAc,WAAW,OAAtD;AAEE,oCAAc,aAAa,CAAC,gBAAQ,CAAC,CAAD,CAAG,aAAC,GAAW,wBAAc,WAAW,MAAC,gBAAQ,CAAC,CAAD,CAAG,YAAZ,CAAjD;WAF7B;SAFF;AAOA,wBAAQ,CAAC,CAAD,CAAG;;AAIb,eAAS,SAAoB,QAAf,wBAAe,GAAE,CAAF,qBAA7B;AAAI;AAEF,YAAI,yCAAU,IAAG,iBAAU,CAAC,CAAD,CAAG,gBAA9B,EACE,iBAAU,CAAC,CAAD,CAAG,SADf;;AAIG;AACH,UADG,IACH;AAEE,YAAY,YAAD,QAAX,EACE,iBAAY,CAAC,EAAG,EAAG,YAAM,QAAS,YAAM,QAA5B,CADd;OAFF;AAOF;AACA;AAtCuB;AA0rCQ;AAE/B,UAAI,yCAAU,IAAG,oBAAjB,EACE,MADF;AAGA;AAL+B;AAreH;AAE5B;AAF4B;AA3jEF;AAE1B;AAEA,UAAK;AACL,OAAE,eAAF,CAAE;AALwB;AA9nBS;AAEnC;AAEA,UAAG,CAAY,CAAC,uBAAD,SAAf,EACE,MADF;AAGA,aAAM,uBAAa,kBAAmB,GAAE,CAAxC;AAEE,aAAiB,uBAAa;AAC9B,+BAAa,YAAY,CAAC,EAAD;;AAVQ;AApFP;AAE5B;AACA;AAEA,WAAM,QAAQ,eAAe,CAAC,QAAD;AAC7B,wBAAa;AACb;AACA;AAEA,eAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AACF,wBAAQ,CAAC,CAAD,CAAG;;AAXe;AAm3CI;AAEhC;AAEA,cAAU,CAAI,+BAAW,QAAQ,IAAI,CAAsB,CAAjB,sBAAiB,KAAG,EAAH,CAA1B;AAEjC,UAAG,CAAI,kBAAP,EACE,wBAAmB,CAAC,SAAU,OAAQ,CAAI,KAAvB,CADrB;AANgC;AA9nDG;AAKrC;AACA;AACA;AAPqC;AAYC;AAKtC;AACA;AACA;AACA;AARsC;AAifP;AAE7B;AAEA;AAEA,0BAAgB;AAEhB,6BAAmB;AACnB,8BAAoB;AACpB,yBAAe;AAEf,UAAoB,CAAR,CAAC,WAAD,SAAQ,IAAe,CAAV,yCAAU,IAAG,WAAK,gBAAR,CAAf,CAAyC,IAAG,CAAY,CAAC,WAAD,SAA5E;AAEE,YAAG,CAAqB,CAAR,CAAC,WAAD,SAAQ,IAAiB,CAAZ,2CAAY,IAAG,WAAK,gBAAR,CAAjB,CAAxB,EACE,cADF;OAFF;AAMA,8BAAoB;AACpB,yBAAe;AACf,0BAAgB;AAEhB,WAAM,QAAQ,eAAe,CAAC,GAAD;AAE7B,kBAAQ,CAAY,CAAC,EAAD;AAEpB,mBAAS,4BAAK,QAAC;AACf,gBAAK,UAAL,GAAkB;AAGlB,UAAG,SAAH;AAEE,0BAAa;;AAIb,0BAAa;AACb,+BAAmB;AACnB,gCAAoB;AACpB,gCAAmB,CAAC,EAAD;AACnB;AACA;;AAGF,iBAAO;AACP,sBAAY;AACZ,sBAAY;AACZ,mBAAS;AACT,kBAAQ;AACR,oBAAU;AACV,+BAAqB;AACrB,yBAAe;AACf,yBAAe;AACf,6BAAmB;AACnB,0BAAgB;AAChB,sBAAY,cAAC,wBAAQ,sBAAT;AACZ,wBAAc;AACd,0BAAgB;AAChB,gCAAsB;AACtB,sBAAY;AAEZ,oBAAU;AAEV,sBAAY,aAAQ,QAAC;AACrB,mBAAQ,UAAR,GAAqB;AACrB,qBAAW,YAAO,QAAC;AACnB,kBAAO,UAAP,GAAoB;AAEpB,qBAAW;AACX,yBAAe;AAGf,UAAG,CAAuB,CAAlB,yCAAkB,IAAG,kBAAH,CAA1B,EACE,oBADF;AAGA;AA3E6B;AA0LI;AAEjC;AAEA,gBAAW,UAAK,GAAE,QAAF;AAChB,oCAAgB,CAAC,QAAS,GAAV;AALiB;AArBM;AAIzC;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAhByC;AAxBP;AAEhC;AAEA,gBAAW;AAGb;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAnBkC;AA3DD;AAIjC;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAfiC;AAsBM;AAErC;AACA;AAGA,WAAM;AAEN,UAAG,CAAY,CAAC,QAAQ,eAAe,CAAC,EAAD,CAAxB,SAAf;AAEE,iBAA+B,QAAQ,cAAc,CAAC,QAAD;AACrD,cAAM,GAAN,GAAa;AACb,cAAM,IAAN,GAAc;AACd,cAAM,KAAN,GAAgB;AAChB,gBAAQ,KAAK,YAAY,CAAC,MAAD;OAN3B;AARqC;AAkBE;AAEvC;AACA;AAGA,WAAM,eAAS,GAAC,KAAD;AAEf,UAAG,CAAY,CAAC,QAAQ,eAAe,CAAC,EAAD,CAAxB,SAAf;AAEE,iBAA+B,QAAQ,cAAc,CAAC,QAAD;AACrD,cAAM,GAAN,GAAa;AACb,cAAM,UAAN,GAAoB;AACpB,cAAM,KAAN,GAAgB;AAChB,gBAAQ,KAAK,YAAY,CAAC,MAAD;OAN3B;AARuC;AA0FL;AAAlB;AAEhB;AAAE;AACF;AACA;AACA;AAAO;AAEP,iCAAuB;AAEvB,eAAS,QAA2B,OAAtB,qBAAe,SAAC,EAAM,GAAE,CAAF,kBAApC;AAAI;AAEF,gBAAS;AACT,kBAAW;AAEX,iBAAS,SAAmC,QAA9B,QAAQ,KAAK,SAAS,OAAQ,GAAE,CAAF,qBAA5C;AAAI;AAEF,eAAiB,QAAQ,KAAK,SAAS,MAAC,CAAD;AACvC,cAAI,EAAE,QAAS,KAAE,QAAjB;AAEE,kBAA4B;AAC5B,gBAAI,cAAG,CAAC,qBAAe,KAAC,CAAD,EAAK,GAAG,IAAxB,CAA8B,GAAE,CAAvC;AAEE,sBAAS;AAET,kBAAG,GAAG,MAAO,KAAE,eAAf;AAEE,0BAAW;AACX,oBAAG,CAAY,CAAC,qBAAD,SAAf,EACE,wBAAqB,+CADvB;AAEA,mBAAG,iBAAiB,CAAC,OAAQ,qBAAT;eALtB;AAQA;aAZF;WAHF;;AAoBF,YAAG,CAAI,KAAP;AAEM,kCAAJ,IAAG;AACH,gCAAiB,CAAE,sBAAgB,GAAE,qBAAe,KAAC,CAAD,CAAnC;SAHnB;AAMA,YAAG,KAAM,IAAI,OAAb,EACM,wBAAJ,IAAG,CADL;;AAIF,eAAW,wBAAoB,GAAE,CAAF;AA/Cf;AAAkB;AAlBA;AAElC;AACA;AAGA,eAA+B,QAAQ,cAAc,CAAC,QAAD;AACrD,YAAM,IAAN,GAAc;AACd,YAAM,KAAN,GAAgB;AAChB,YAAM,MAAN,GAAgB;AAEhB,UAAG,CAAY,CAAC,qBAAD,SAAf,EACE,wBAAqB,+CADvB;AAGA,YAAM,iBAAiB,CAAC,OAAQ,qBAAT;AACvB,cAAQ,KAAK,YAAY,CAAC,MAAD;AAfS;AAqtFH;AAE/B,6BAAa,cAAI,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAX,CAAjB;AACA;AAH+B;AAusBJ;AAE3B;AAEA;AACA,eAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AACF,wBAAQ,CAAC,CAAD,CAAG;;AANc;AA/bK;AAEhC;AAAI;AACJ;AAAI;AACJ;AAAI;AACJ;AAAG;AAEH,UAAI,yCAAU,IAAG,oBAAjB,EACE,MADF;AAGA,UAAG,CAAI,oBAAP,EACE,MADF;AAGA,UAAkB,CAAd,cAAQ,KAAM,KAAE,CAAC,CAAH,CAAM,IAAkB,CAAb,cAAQ,IAAK,KAAE,CAAC,CAAH,CAA1C,EACE,oBADF;AAGA,UAAW,CAAC,YAAD,SAAS,IAAI,CAAI,YAAM,uBAAlC,EACE,MADF;AAGA,UAAI,WAAM,KAAG,oBAAb;AAEE,YAAW,CAAC,YAAD,SAAS,IAAI,CAAa,yBAAH,eAAL,IAAK,CAAlC;AAEE,oBAAK,YAAM,cAAC,EAAZ;AAEA,gBAAQ,CAAC,MAAiB,GAAR,CAAC,KAAH,GAAmC,CAAtB,oBAAe,MAAO,GAAE,oBAAe,KAAjB,CAAzB;AAC1B,gBAAQ,CAAC,OAAiB,GAAP,CAAC,IAAH,GAAmC,CAAvB,oBAAe,OAAQ,GAAE,oBAAe,IAAjB,CAA1B;AAE1B,qBAAM,cAAN;AAEA,gBAAO;AACP,gBAAO;AACP,gBAAO;AACP,gBAAO;AAEP,cAAI,wBAAQ,IAAG,aAAf;AAEE,gBAAI,uBAAO,IAAG,aAAd;AACE,oBAAO;AAEP,wBAAO;WALX;AAQA,cAAI,yBAAS,IAAG,aAAhB;AAEE,gBAAI,sBAAM,IAAG,aAAb;AACE,oBAAO;AAEP,wBAAO;WALX;AAQA,cAAa,CAAT,yBAAS,IAAG,aAAH,CAAY,IAAY,CAAR,wBAAQ,IAAG,aAAH,CAArC;AAEE,6BAAY,CAAC,EAAE,KAAM,GAAE,GAAF,CAAO,EAAE,IAAK,GAAE,GAAF,CAAgB,CAAT,EAAE,MAAO,GAAE,EAAE,KAAJ,CAAU,GAAE,GAAF,CAAiB,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAU,GAAE,GAA9E;WAFd;SA9BF;OAFF;AAuCA;AA1DgC;AA6DK;AAErC;AAEA,eAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AAEF,wBAAQ,CAAC,CAAD,CAAG;;AANwB;AAxkEH;AAGlC,UAAG,OAAQ,KAAG,CAAd;AACE,gBAAQ,MAAM,YAAY,CAAC,SAAU,sBAAiB,CAAC,OAAD,CAA5B;AAE1B,YAAA,QAAQ,MAAM,eAAe,CAAC,QAAD;AANG;AAqlBH;AAAf;AAEhB,eAAU;AACV,uBAAM,CAAC;;;;WAAQ,EAAG,CAAZ;AACN,eAAU,MAAO,GAAE,MAAF;AAJD;AAAe;AAo8DF;AAAb;AAEhB;AACA;AAEA,eAAU;AAEV,YAAO,iCAAa,CAAC,IAAD;AAEpB,UAAY,GAAD,QAAX;AAEE,iBAAS,QAAwB,OAAnB,GAAG,kBAAC,EAAe,GAAE,CAAF,kBAAjC;AAAI;AAEF,cAAwB,oBAAH,eAAlB,GAAG,aAAW,CAAC,CAAD,CAAI,CAArB;AAEE,qBAA4B,OAAlB,GAAG,aAAW,CAAC,CAAD,EAAO,oBAAH;WAF9B;;OAJJ;AATgB;AAAa;AAtrFH;AAAV;AAEhB,eAAU,iBAAa,GAAE,CAAF;AAFP;AAAU;AAjtCE;AAAZ;AAEhB,eAAU;AAFM;AAAY;AA6GS;AAEvB,gBAAb,KAAK,QAAW,iBAAH,CAAwB,MAAtC,GAAgD;AAC5C,oCAAJ,IAAG;AAHkC;AA2lGX;AAE1B;AAAQ;AACR;AAEA,gBAAW;AAEX,YAAO;AAEP,eAAU;AAEV,UAAY,MAAD,QAAX,EACE,MAAO,MAAM,YAAY,CAAC,OAAD,CAD3B;AAGA,UAAI,GAAI,KAAG,EAAX,EACE,oBAAe,CAAC,GAAD,CADjB;AAd0B;AA7rGG;AAE7B;AAEA,UAAG,CAAI,iBAAP,EACE,MADF;AAGA,UAAG,eAAH,EACE,qBADF;AAGA,+BAAqB;AAErB,oBAAU,QAAQ,cAAc,CAAC,MAAD;AAChC,cAAQ,KAAK,YAAY,CAAC,WAAD;AAEzB,WAAqB;AACrB,QAAE,iBAAiB,CAAC,aAAc,wBAAf;AACnB,QAAE,iBAAiB,CAAC,aAAc,wBAAf;AACnB,QAAE,iBAAiB,CAAC,YAAa,kBAAd;AACnB,QAAE,iBAAiB,CAAC,UAAW,gBAAZ;AACnB,QAAE,iBAAiB,CAAC,YAAa,kBAAd;AACnB,QAAE,iBAAiB,CAAC,aAAc,mBAAf;AACnB,QAAE,iBAAiB,CAAC,YAAa,kBAAd;AACnB,QAAE,iBAAiB,CAAC,WAAY,iBAAb;AACnB,QAAE,iBAAiB,CAAC,cAAe,oBAAhB;AAEnB,QAAE,MAAM,YAAY,CAAC,MAAO,GAAR;AACpB,QAAE,MAAM,YAAY,CAAC,OAAQ,GAAT;AACpB,QAAE,MAAM,YAAY,CAAC,QAAS,GAAV;AACpB,QAAE,MAAM,YAAY,CAAC,SAAU,GAAX;AAEpB,QAAE,MAAM,YAAY,CAAC,qBAAsB,MAAvB;AACpB,QAAE,MAAM,YAAY,CAAC,kBAAmB,MAApB;AACpB,QAAE,MAAM,YAAY,CAAC,oBAAqB,MAAtB;AACpB,QAAE,MAAM,YAAY,CAAC,iBAAkB,MAAnB;AACpB,QAAE,MAAM,YAAY,CAAC,cAAe,MAAhB;AACpB,QAAE,MAAM,YAAY,CAAC,WAAY,UAAb;AAEpB,QAAE,MAAM,YAAY,CAAC,eAAW,QAAZ;AAEpB,uBAAa;AACb;AAzC6B;AA6FE;AAAf;AAEhB,eAAU;AAFM;AAAe;AAy9CP;AAAR;AAEhB;AACA;AAEA,WAAM;AACN,YAAO;AAEP,UAAG,CAAY,CAAC,EAAD,SAAf,EACE,aADF;AAIF;AACA;AAIE,eAAU;AAjBM;AAAQ;AAvSK;AAE7B,UAAM,CAAF,CAAE,KAAG,cAAH,CAAoI,IAArH,CAAF,CAAE,KAAG,aAAH,CAAN,IAAoC,CAAV,CAAP,MAAO,KAAG,eAAH,CAAU,IAAgB,CAAX,gBAAW,KAAE,0BAAF,CAAhB,CAAtB,IAA6E,CAAX,CAAR,OAAQ,KAAG,gBAAH,CAAW,IAAiB,CAAZ,iBAAY,KAAE,0BAAF,CAAjB,CAAxB,IAC9D,CAAT,CAAC,YAAD,SAAS,IAAI,YAAM,YAAC,EAAX,CADpB;AAGE,mCAAuB;AACvB,qBAAS;AACT,oBAAQ;AAER,sBAAU;AACV,uBAAW;AAEX,mCAAuB;AAEvB;AAEA,YAAG,WAAM,KAAG,kBAAZ;AACE;AAEA;AAEF;AAEA;AACA;AACA;OAvBF;AAF6B;AApiDH;AAE1B;AACA;AAEA,YAAQ;AACR,eAAsB,KAAb,uBAAa,GAAE,CAAF,EAAW,aAAjC;AAAI;AAEF,YAAG,cAAS,CAAC,CAAD,CAAI,KAAE,QAAlB,EACE,MAAO,IADT;AAGA,YAAG,GAAH;AAEE,cAAI,CAAE,GAAE,CAAR;AACE,0BAAS,CAAC,CAAD,CAAT,GAAgB,cAAS,CAAC,CAAE,GAAE,CAAL;AAEzB,gBAAA,cAAS,CAAC,CAAD,CAAT,GAAgB;SALpB;;AAXwB;AAqBD;AAEzB;AACA;AAEA,YAAQ;AACR,eAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AAEF,YAAG,cAAS,CAAC,CAAD,CAAI,KAAE,QAAlB,EACE,MAAO,IADT;AAGA,YAAG,GAAH;AAEE,cAAI,CAAE,GAAe,CAAb,uBAAa,GAAE,CAAF,CAArB;AACE,0BAAS,CAAC,CAAD,CAAT,GAAgB,cAAS,CAAC,CAAE,GAAE,CAAL;AAEzB,gBAAA,cAAS,CAAC,CAAD,CAAT,GAAgB;SALpB;;AAXuB;AA05CE;AAE3B,UAAY,mBAAD,QAAX,EACE,mBAAS,cAAC,YAAgB,MAAjB,CADX;AAF2B;AAjgBC;AAE5B,UAAW,CAAC,mBAAD,SAAY,IAA4B,CAAvB,mBAAS,cAAC,WAAD,CAAc,KAAE,MAAF,CAAnD,EACE,mBAAS,cAAC,YAAgB,OAAjB,CADX;AAF4B;AApsBH;AAEzB,uBAAa;AACb,sBAAY;AACZ,yBAAe;AACf,uBAAY,CAAC,EAAD;AAL0B;AAAb;AAmJA;AAEzB;AACA;AACA;AAGA,uBAAa;AACb,0BAAgB;AAChB,sBAAY;AACZ,yBAAe;AACf,2BAAiB;AACjB;AAEgB,gDAAC,MAAD;AAEhB,mCAAwB,cAAC,2BAAS,8BAAY,6BAAW,+BAAa,+BAAa,8BAAY,6BAAW,0BAAlF;AAExB,2BAAiB;AACjB,0BAAgB;AAChB,8BAAoB;AACpB,4BAAkB;AAClB,4BAAkB;AAElB,gBAAW;AAEX,YAAO,iCAAa,CAAC,IAAD;AACpB,UAAY,GAAD,QAAX;AAEE,kBAAY,2CAAY,IAAG,GAAG,gBAAN;OAF1B;AAKA,cAAS;AAGT,UAAG,OAAH;AACE,yBAAY,CAAC,EAAD;AAEZ,YAAA,iBAAY,CAAC,KAAD;AAEd,UAAW,CAAC,MAAD,SAAS,IAAI,CAAiB,CAAZ,2CAAY,IAAG,MAAM,gBAAT,CAAzC,EACE,aAAQ,KAAR,CADF;AAxC8C;AAArB;AAkgBA;AAEzB;AACA;AAEA,UAAW,CAAC,mBAAD,SAAiC,IAAT,CAAC,YAAD,SAAZ,IAAiC,CAAC,YAAM,oBAAP,SAAxD;AAEE,YAAG,YAAM,oBAAmB,KAAE,mBAAS,WAAvC;AAEE,sBAAM,oBAAkB,YAAY,CAAC,mBAAD;SAFtC;AAKA,0BAAa;AACb,uBAAU,IAAV;AACA,+BAAmB;OATrB;AAYiB,eAAjB,KAAiB;AACR,eAAT,KAAS;AACD,eAAR,KAAQ;AACF,eAAN,KAAM;AAEN,UAAG,mBAAQ,CAAC,aAAD,CAAX;AAIF;AAGI,wBAAY;OAPd;AAUA;AAhCyB;AA6EF;;AA++DE;AAEzB,UAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,KAAM,OAAQ,EAAG,CAAlB,CADZ;AAFyB;AAscF;AAEvB,UAAY,cAAD,QAAX,EACE,cAAS,CAAC,IAAD,CADX;AAFuB;AAlnGC;AAExB,0BAAgB;AAChB,YAAM,WAAW,CAAE,4CAAc,GAAhB;AAHO;AArDE;AAE1B;AAAG;AACH;AAEA,UAAK;AACL,uBAAM,CAAC;;;;WAAG,EAAG,CAAP;AAEN,eAAU;AACV,YAAO,iCAAa,CAAC,IAAD;AACpB,UAAY,GAAD,QAAX,EACE,SAAU,GAAG,WADf;AAGA,gBAAK,CAAC,MAAU,GAAH,GAAD,GAAK,mBAAc,CAAC,CAAD,CAA1B;AAbqB;AAuoGK;AAE/B;AAEA,0BAAgB;AAEhB,UAAG,cAAU,IAAY,CAAC,WAAD,SAAzB;AAEE,aAAqB;AACrB,UAAE,oBAAoB,CAAC,aAAc,wBAAf;AACtB,UAAE,oBAAoB,CAAC,aAAc,wBAAf;AACtB,UAAE,oBAAoB,CAAC,YAAa,kBAAd;AACtB,UAAE,oBAAoB,CAAC,UAAW,gBAAZ;AACtB,UAAE,oBAAoB,CAAC,YAAa,kBAAd;AACtB,UAAE,oBAAoB,CAAC,aAAc,mBAAf;AACtB,UAAE,oBAAoB,CAAC,YAAa,kBAAd;AACtB,UAAE,oBAAoB,CAAC,WAAY,iBAAb;AACtB,UAAE,oBAAoB,CAAC,cAAe,iBAAhB;AAEtB,gBAAQ,KAAK,YAAY,CAAC,EAAD;AACzB,yBAAa;AACb,sBAAU;AACV;OAhBF;AAN+B;AAt4CF;AAE7B,UAAW,CAAC,uBAAD,SAAgB,IAAY,CAAC,uBAAa,cAAd,SAAvC;AAEE;AACE,iCAAa,cAAc,YAAY,CAAC,uBAAD;AACvC,cAAY,YAAD,QAAX,EACE,YAAM,SAAS,CAAC,IAAD,CADjB;AAFF;;OAFF;AAF6B;AAzkBF;AAE3B,UAAW,CAAC,uBAAD,SAAgB,IAAY,CAAC,uBAAa,cAAd,SAAvC;AAEE,+BAAa,cAAc,aAAa,CAAC,wBAAe,uBAAa,cAAc,kBAA3C;AAIxC,YAAY,YAAD,QAAX,EACE,YAAM,UAAU,CAAC,IAAD,CADlB;OANF;AAF2B;AAzWN;AAErB,sBAAW,IAAX;AAFqB;AA0wDA;AAErB,sBAAW,KAAX;AAFqB;AAo8BU;AAE/B,UAAY,sBAAD,QAAX,EACE,sBAAY,iBADd;AAF+B;AAzsFC;AAEhC,UAAW,CAAC,sBAAD,SAAe,IAAI,CAAI,uBAAlC,EACE,sBAAY,kBADd;AAFgC;AAkXN;AAE1B;AAF0B;AAKE;AAExB,uBAAJ,IAAG;AAFyB;AAsCF;AAE1B,UAAI,iBAAa,GAAE,CAAnB;AAEM,yBAAJ,IAAG;AAEH,YAAG,iBAAa,KAAE,CAAlB,EACE,oBADF;OAJF;AAF0B;AAjCC;;AA40DQ;AAEnC,UAAW,CAAP,YAAO,KAAG,KAAH,CAAU,IAAc,aAAH,eAAN,KAAM,CAAhC,EACC,cAAS,CAAU,KAAV,CADV;AAFmC;AArrDT;AAE1B,uBAAY,CAAC,EAAG,EAAG,OAAQ,OAAf;AACZ,oBAAU;AACV,qBAAW;AAEX,UAAG,CAAI,mBAAP;AAEE,wBAAY;AACZ,yBAAa;OAHf;AAMA;AAEA,UAAG,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAyC,IAAX,CAAN,WAAM,KAAG,kBAAH,CAAX,IAAkC,CAAC,YAAD,SAAvE;AAEE;OAFF;AAd0B;AAo5BC;AAE3B;AACA;AACA;AACA;AAAM;AACN;AAAO;AACP;AACA;AACA;AAAK;AACL;AAAS;AAET,cAAS;AACT,iBAAY;AAEZ,gBAAW;AACX,gBAAW;AAEX,UAAI,qBAAgB,KAAE,gCAAtB;AAEE,kBAAW,QAAQ,KAAK,WAAY,GAAE,QAAQ,gBAAgB,WAA1B;AACpC,kBAAW,QAAQ,KAAK,UAAW,GAAE,QAAQ,gBAAgB,UAA1B;AACnC,gBAAS,CAAE,GAAE,cAAF;AACX,gBAAS,CAAE,GAAE,aAAF;;AAIX,gBAAS;AACT,aAAM,uBAAa;AACnB,gBAAS,CAAE,GAAE,EAAE,KAAJ;AACX,gBAAS,CAAE,GAAE,EAAE,IAAJ;AACX,qBAAY,KAAZ;AACA,qBAAY,KAAZ;AACA;;AAGF,mBAAY,KAAZ;AACA,mBAAY,KAAZ;AAEA,UAAK;AAEL,UAAY,+BAAH,eAAL,IAAK,CAAoC,IAAhB,CAAY,CAAC,CAAD,SAAhB,IAAgC,CAAC,mBAAD,SAAzD;AAEE,aAAM,mBAAS;AACf,qBAAY,cAAS,GAAE,EAAE,KAAzB;AACA,qBAAY,cAAS,GAAE,EAAE,IAAzB;OAJF;AAOA,aAAe,CAAD,QAAd;AAEE,YAAI,CAAC,YAAC,EAAN;AAGE,cAAS,+BAAH,eAAF,CAAE,CAAN;AAGE,iBAAM,CAAC,aAAC,EAAS;;AAKjB,iBAAM,CAAC,iBAAC,EAAa;;AAIvB,uBAAY,cAAS,GAAE,EAAE,KAAzB;AACA,uBAAY,cAAS,GAAE,EAAE,IAAzB;AAGA,uBAAY,cAAS,GAAE,CAAC,iBAAC,EAAa,WAAtC;AACA,uBAAY,cAAS,GAAE,CAAC,iBAAC,EAAa,UAAtC;AAEA,oBAAW;AACX,oBAAW;AACX;SAGF,UAAS,+BAAH,eAAF,CAAE,CAAN;AAEE,cAAO,OAAF,EAAK,+BAAH,CAAe,eAAe,KAAG,EAAxC;AAEE,iBAAqB,QAAQ,eAAe,CAAI,OAAF,EAAK,+BAAH,CAAe,eAAnB;AAE5C,gBAAY,EAAD,QAAX;AAEE,yBAAY;AACZ,mBAAM,EAAE;AACR,2BAAY,cAAS,GAAE,EAAE,KAAzB;AACA,2BAAY,cAAS,GAAE,EAAE,IAAzB;aALF;WAJF;AAaA,cAAW,CAAI,OAAF,EAAK,+BAAH,CAAe,aAAC,EAApB,SAA2E,IAAN,CAA9B,OAAF,EAAK,+BAAH,CAAe,eAAe,KAAE,EAAF,CAAtC,IAAkG,OAAF,EAAK,+BAAH,CAAe,OAA3J;AAEE,iBAAS,OAAF,EAAK,+BAAH,CAAe,aAAC,EAAS;AAClC,yBAAY,cAAS,GAAE,EAAE,KAAzB;AACA,yBAAY,cAAS,GAAE,EAAE,IAAzB;AACA,sBAAQ,OAAF,EAAK,+BAAH,CAAe,cAAC,EAAxB;AACA,yBAAY,cAAS,GAAE,CAAC,IAAxB;AAEA,sBAAW;AACX,sBAAW;WATb;SAcF,UAAI,CAAC,iBAAiB,IAAG,cAAC,iCAAY,8BAAb,CAAzB;AAEE,cAAY,CAAC,iBAAC,EAAH,QAAX;AAEE,iBAAM,CAAC,iBAAC,EAAa;AACrB,yBAAY,KAAM,GAAE,EAAE,KAAtB;AACA,yBAAY,KAAM,GAAE,EAAE,IAAtB;AACA,sBAAW;AACX,sBAAW;AAGX,gBAAG,KAAH;AAEE,mBAAM,MAAM,iBAAiB,CAAC,QAAQ,gBAAT;AAGvC;AACA;AAIU,2BAAY,cAAS,GAAE,GAAvB;AACA,2BAAY,cAAS,GAAE,GAAvB;aAXF;AAaA,oBAAS;AACT;WAvBF;SA4BF,UAAsB,CAAlB,CAAC,iBAAiB,KAAE,gCAAF,CAAc,IAAI,KAAxC;AAEE,uBAAY,cAAS,GAAE,CAAC,QAAC,EAAzB;AACA,uBAAY,cAAS,GAAE,CAAC,OAAC,EAAzB;AACA,cAAY,CAAC,iBAAC,EAAH,QAAX;AAEE,yBAAY,cAAS,GAAE,CAAC,iBAAC,EAAa,WAAtC;AACA,yBAAY,cAAS,GAAE,CAAC,iBAAC,EAAa,UAAtC;WAHF;AAMA,kBAAS;AACT,kBAAS;SAXX;AAaA,YAAK,CAAC;;AAIR,UAAoB,CAAhB,qBAAgB,KAAE,gCAAF,CAAc,IAAI,CAAI,QAA1C;AAEE,qBAAY,cAAS,GAAE,OAAvB;AACA,qBAAY,cAAS,GAAE,OAAvB;OAHF;AAzJ2B;AAkKA;AAE3B;AACA;AAEA,YAAc,CAAT,QAAS,GAAE,cAAF,CAAkC,GAAzB,QAAQ,KAAK,WAAf,GAA6B,QAAQ,gBAAgB,WAA1E;AACA,YAAc,CAAT,QAAS,GAAE,aAAF,CAAgC,GAAxB,QAAQ,KAAK,UAAf,GAA4B,QAAQ,gBAAgB,UAAxE;AAEA,UAAK;AACL,aAAe,CAAD,QAAd;AAEE,YAAI,CAAC,YAAC,EAAN;AAGE,cAAS,+BAAH,eAAF,CAAE,CAAN;AAEE,iBAAM,CAAC,aAAC,EAAS;AAGjB,qBAAM,CAAC,iBAAC,EAAa;AAGvB,gBAAK,OAAE,GAAE,EAAE,KAAX;AACA,gBAAK,OAAE,GAAE,EAAE,IAAX;SAZF;AAeA,YAAS,+BAAH,eAAF,CAAE,CAAN;AAGE,cAAW,CAAI,OAAF,EAAK,+BAAH,CAAe,aAAC,EAApB,SAAuH,IAAlD,CAA9B,OAAF,EAAK,+BAAH,CAAe,eAAe,KAAE,EAAF,CAAtC,IAAiF,CAA7B,OAAF,EAAK,+BAAH,CAAe,cAAc,KAAG,EAAH,CAArC,IAAoD,OAAF,EAAK,+BAAH,CAAe,OAAzJ;AAEE,iBAAS,OAAF,EAAK,+BAAH,CAAe,aAAC,EAAS;AAClC,kBAAK,OAAE,GAAE,EAAE,KAAX;AACA,kBAAK,OAAE,GAAE,EAAE,IAAX;WAJF;SAHF;AAYA,YAAI,CAAC,iBAAiB,KAAE,gCAAxB;AAEE,gBAAK,OAAE,GAAE,CAAC,QAAC,EAAX;AACA,gBAAK,OAAE,GAAE,CAAC,OAAC,EAAX;SAHF;AAMA,YAAK,CAAC;;AA5CmB;AA1oBC;AAE5B;AACA;AAEA,eAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AAEF,kBAAW,gBAAQ,CAAC,CAAD;AACnB,YAAkB,CAAd,OAAO,OAAO,KAAE,IAAF,CAAQ,IAAS,CAAL,IAAK,KAAE,IAAF,CAAnC,EACE,IAAI,CAAC,OAAD,CADN;;AAR0B;AA5qDJ;AAAR;AAEhB,eAAU,cAAU,IAAY,CAAC,WAAD,SAAZ;AAFJ;AAAQ;AA7ZM;AAAd;AAEhB,eAAU;AAFM;AAAc;AA2bA;AAAd;AAEhB;AAEA,qBAAU,sBAAV;AACA,YAAM,EAAN,GAAY,KAAK,EAAG,GAAE,MAAM,EAAR;AACpB,YAAM,EAAN,GAAY,KAAK,EAAG,GAAE,MAAM,EAAR;AANJ;AAAc;AA0iCA;AAAd;AAEhB;AAEA,qBAAU,sBAAV;AACA,YAAM,EAAN,GAAY,KAAK,EAAG,GAAE,MAAM,EAAR;AACpB,YAAM,EAAN,GAAY,KAAK,EAAG,GAAE,MAAM,EAAR;AANJ;AAAc;AApoCN;AAAR;AAEhB,eAAU;AAFM;AAAQ;AA8hFQ;AAAhB;AAEhB,eAAU;AAEV,UAAY,uBAAD,QAAX,EACG,SAAU,uBAAa,YAAa,GAAE,uBAAa,YADtD;AAJgB;AAAgB;AAQA;AAAhB;AAEhB,eAAU;AAEV,UAAY,uBAAD,QAAX,EACG,SAAU,uBAAa,aAAc,GAAE,uBAAa,aADvD;AAJgB;AAAgB;AA1+HxB;;;AAmBU,iDAnBV,UAmBU;AAuYE,+BAAG,iBAAH;AACA,+BAAO,UJ9HjB,+BI8HiB,CAAP;AA3ZZ;AA+gBM;;AAEG;;;AAEf;AACA;AAHe;;;;;AA8jLiB;AAGlC,sBAAY;AACZ,mBAAS;AAJqE;AAA5C;AAOS;AAAlB;AAEzB,eAAU;AAEV,UAAY,aAAQ,iBAAC,EAAV,QAAX;AAEE,YAAG,UAAK,KAAE,8BAAV;AACE,mBAAyB,aAAQ,iBAAC,EAAc,aAAc,GAAiB,aAAQ,iBAAC,EAAc,aAAxC;AAE9D,uBAAyB,aAAQ,iBAAC,EAAc,YAAa,GAAiB,aAAQ,iBAAC,EAAc,YAAxC;OALjE;AAJyB;AAAkB;AAyBT;AAAT;AAEzB,eAAU;AACV,UAAY,aAAQ,iBAAC,EAAV,QAAX;AAEE,YAAG,UAAK,KAAE,8BAAV;AACE,mBAAU,aAAQ,iBAAC,EAAa;AAEhC,uBAAU,aAAQ,iBAAC,EAAa;OALpC;AAHyB;AAAS;AAZJ;AAAL;AAEzB,eAAU;AACV,UAAY,aAAQ,iBAAC,EAAV,QAAX;AAEE,YAAG,UAAK,KAAE,8BAAV;AACE,mBAAyB,aAAQ,iBAAC,EAAc;AAEhD,uBAAyB,aAAQ,iBAAC,EAAc;OALpD;AAHyB;AAAK;AAllLb;AAKG,+BAAS,YAthBrB,sBAshBqB,EAAiB,SAPhC,4BAOgC,CAA1B;AALH;AAaN;AADK,2CACL,uCADK;AACL;;;;AAEM,8BApuBV,sBAouBU;AACU,wCAjrBV,gCAirBU;AACT;AACD;AACF;AACA;AACI;AACL;AACA;AACI;AACF;AAEM,mCAloBX,0BAkoBW;AACF,iCAnoBT,0BAmoBS;AACE,mCAhoBP,8BAgoBO;AACC,oCAtoBX,2BAsoBW;AACA,oCAvoBX,2BAuoBW;AACL,+BAloBT,wBAkoBS;AACE,iCAnoBX,wBAmoBW;AACC,kCAnoBP,6BAmoBO;AACH,+BA3oBN,2BA2oBM;AACD,8BA5oBL,2BA4oBK;AAvBN;AA2BG;AADK,8CACL,0CADK;AACL;;;AAEZ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAfY;;;;;;;;AA45JiB;AAAT;AAEtB,UAAG,CAAY,CAAC,YAAD,SAAf;AAEE,YAAG,CAAI,kBAAP;AACE;;AAGA,cAAG,CAAY,CAAC,mBAAD,SAAf,EACE,sBAAuC,QAAQ,eAAe,CAAC,YAAD,CADhE;AAEA;;OARJ;AAYA,eAAU;AAdY;AAAS;AA0KO;AAGtC;AAAY;AAAQ;AACpB;AAEA,mBAA6B;AAC7B,eAAyB,UAAU;AACnC,kBAAqB,CAAC,MAAD,SAAsC,IAAT,CAAf,MAAM,QAAS,KAAE,KAAF,CAApB,IAAqE,CAAnC,MAAM,aAAa,CAAC,aAAD,CAAgB,KAAE,GAAF,CAAxC;AAE3D,UAAgB,CAAZ,2CAAY,IAAG,QAAQ,gBAAX,CAA2C,IAAV,QAAL,IAAqC,CAAjB,sBAAiB,KAAE,EAAF,CAAjF;AAEE,kBAAU,MAAM,YAAY,CAAC,SAAS,gBAAV;AAE5B,YAAG,MAAO,KAAE,EAAZ;AACE,oBAAU,MAAM,YAAY,CAAC,mBAAmB,SAApB;AAE5B,cAAA,UAAU,MAAM,YAAY,CAAC,mBAAmB,OAApB;AAE9B,YAAG,SAAH,EACE,MADF;AAGA,kBAAU,UAAV,GAAwB;AAExB,YAAG,MAAO,KAAG,EAAb;AAEE,iBAAuB,QAAQ,cAAc,CAAC,KAAD;AAC7C,cAAI,MAAM,YAAY,CAAC,mBAAmB,OAApB;AACtB,cAAI,MAAM,YAAY,CAAC,oBAAoB,WAArB;AACtB,cAAI,MAAM,YAAY,CAAC,wBAAwB,QAAzB;AACtB,cAAI,MAAM,YAAY,CAAC,mBAAoB,MAAa,GAAN,MAAD,GAAQ,GAAnC;AACtB,cAAI,MAAM,YAAY,CAAC,wBAAwB,QAAzB;AACtB,cAAI,MAAM,YAAY,CAAC,kBAAkB,OAAnB;AACtB,cAAI,MAAM,YAAY,CAAC,MAAM,KAAP;AACtB,cAAI,MAAM,YAAY,CAAC,OAAO,KAAR;AACtB,cAAI,MAAM,YAAY,CAAC,SAAS,KAAV;AACtB,oBAAU,YAAY,CAAC,IAAD;SAZxB;AAeA,iBAAyB,QAAQ,cAAc,CAAC,KAAD;AAC/C,cAAM,aAAa,CAAC,cAAc,GAAf;AACnB,cAAM,UAAN,GAAoB;AACpB,cAAM,MAAM,YAAY,CAAC,WAAW,UAAZ;AACxB,cAAM,MAAM,YAAY,CAAC,MAAM,KAAP;AACxB,cAAM,MAAM,YAAY,CAAC,OAAO,KAAR;AACxB,cAAM,MAAM,YAAY,CAAC,UAAU,cAAX;AACxB,cAAM,MAAM,YAAY,CAAC,YAAY,kBAAb;AAExB,6BAAgB;AAChB,kBAAU,YAAY,CAAC,MAAD;;AAItB,YAAG,SAAH;AAEE,iBAAe,UAAU,WAAX,QAAd,EACE,UAAU,YAAY,CAAC,UAAU,WAAX;AAExB,oBAAU,MAAM,eAAe,CAAC,QAAD;AAC/B,oBAAU,MAAM,eAAe,CAAC,kBAAD;SANjC;;AArDoC;AAlIH;AAAb;AAEtB;AAIF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAIE,eAAU;AAjBY;AAAa;AAbH;AAAV;AAEtB;AAIF;AAIE,eAAU;AAVY;AAAU;AA6FK;AAErC;AACA;AACA;AAAG;AAEH,UAAY,mBAAD,QAAX;AAEE,YAAG,CAAI,cAAP;AAEE,cAAG,kBAAH;AAEE,iBAA2B;WAG3B,WAA2B,QAAQ,eAAe,CAAC,YAAK,GAAC,SAAP;AAGpD,cAAY,EAAD,QAAX;AAEE,kCAAkB;AACV,qBAAR,KAAQ;AACR,2BAAW;WAJb;AAOA,eAAM;AACN,cAAK,gBAAO,GAAE,4BAAF;AACZ,cAAK,eAAM,GAAE,2BAAF;AAEX,cAAG,qBAAgB,KAAE,gCAArB;AACE,+BAAc,MAAM,YAAY,CAAC,WAAY,UAAb;AAEhC,gBAAA,mBAAc,MAAM,YAAY,CAAC,WAAY,UAAb;AAElC,6BAAc,MAAM,YAAY,CAAC,SAAU,qBAAQ,CAAC,CAAD,CAAI,GAAE,IAAzB;AAChC,6BAAc,MAAM,YAAY,CAAC,QAAS,qBAAQ,CAAC,CAAD,CAAI,GAAE,IAAxB;AAChC,6BAAc,OAAd,GAAyB,UAAK,CAAC,CAAE,GAAE,EAAL;AAC9B,6BAAc,MAAd,GAAwB,UAAK,CAAC,CAAE,GAAE,EAAL;SA7B/B;AAgCA,YAAG,CAAY,CAAC,YAAD,SAAf;AAEE,yBAAW,8BAAO,QAAC,YAAM,CAAC,mBAAD,CAAN;SAFrB;AAKA,oBAAO,iBAAP,GAA2B;AAC3B,oBAAO,aAAa,CAAC,EAAG,EAAG,EAAG,EAAG,EAAG,CAAhB;OAxCtB;AANqC;AAiIA;AAErC,UAAG,iBAAa,KAAG,MAAnB;AAEE,4BAAgB;AAChB;OAHF;AAFqC;AATA;AAErC,UAAI,iBAAa,KAAG,MAApB;AAEE,4BAAgB;AAChB;OAHF;AAFqC;AA6BP;AAE9B;AACA;AAEA,kBAAa;AAEb,UAAG,CAAqB,CAAR,CAAC,yBAAD,SAAQ,IAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAAjB,CAAxB;AAEE,YAAY,0BAAH,eAAL,IAAK,CAAT;AAEE,sBAAa,GAA2B,GAArB,mBAAc,CAAC,UAAD,CAAhB,GAAyB,GAAF;SAF1C;OAFF;AAQiB,+CAAC,SAAU,GAAE,OAAb;AAEjB,UAAiB,CAAb,oCAAa,IAAG,kBAAH,CAAqD,IAAnB,CAAZ,2CAAY,IAAG,oBAAH,CAAjB,IAAwC,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAzF;AAEE,YAAW,CAAC,WAAD,SAAQ,IAAe,CAAV,yCAAU,IAAG,WAAK,gBAAR,CAAlC,EACE,MADF;AAGA,aAAM;AACN,uBAAU,CAAC,OAAD;AACV,6BAAgB;OAPlB;AAjB8B;AAXG;AAEjC,sBAAY;AACZ,2BAA6B,YAAb,mBAAe,cAAC,oCAAD,CAAF;AAHI;AA1SG;AAEpC;AACA;AAHoC;AAwIP;AAE7B;AACA;AAH6B;AAyMa;AAE1C;AAEA,UAAY,uBAAD,QAAX;AAEE,YAAG,CAAI,kBAAS,IAAsB,CAAjB,sBAAiB,KAAE,EAAF,CAAtC;AAEE,cAAG,iBAAY,KAAE,0BAAjB;AAEE,gBAAG,kBAAH;AAEE,oCAAe,YAAY,CAAC,eAAgB,OAAjB;AAC3B,oCAAe,YAAY,CAAC,eAAgB,KAAjB;AAC3B,oCAAe,YAAY,CAAC,eAAgB,kCAAW,CAAC,iBAAD,CAA5B;aAG3B,MAAA,sBAAe,YAAY,CAAC,eAAgB,EAAjB;;AAI7B,kCAAe,YAAY,CAAC,eAAgB,MAAjB;;SAf/B;AAmBA,YAAI,sBAAiB,KAAG,EAAxB;AAEE,gCAAe,eAAe,CAAC,cAAD;AAC9B,gCAAe,eAAe,CAAC,cAAD;AAC9B,gCAAe,eAAe,CAAC,cAAD;SAJhC;OArBF;AAJ0C;AA3UP;AAAb;AAEtB,4BAAuC,QAAQ,cAAc,CAAC,QAAD;AAC7D,UAAG,yCAAkB,IAAG,kBAAxB;AAEE,iBAAU,QAAQ,cAAc,CAAC,MAAD;AAChC,cAAM,YAAY,CAAC,mBAAD;AAClB,YAAG,YAAU,KAAG,EAAhB,EACE,mBAAc,cAAC,KAAS,YAAU,GAAE,SAAtB,CADhB;AAEA,2BAAc,cAAC,SAAa,IAAd;OAGd,eAAU;AAZU;AAAa;AAmDQ;AAArB;AAEtB,eAAU;AAFY;AAAqB;AAKD;AAApB;AAEtB,eAAU;AAFY;AAAoB;AA5ER;AAElC,UAAsB,CAAlB,mBAAS,QAAS,KAAG,QAAH,CAAa,IAAI,CAAI,oBAA3C;AAEE,8BAAuC,QAAQ,cAAc,CAAC,QAAD;AAC7D,2BAAS,YAAY,CAAC,mBAAD;OAHvB;AAFkC;AASD;AAEjC;AAFiC;AA0JM;AAEvC,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAc,MAAf,CADd;AAFuC;AAMX;;AAvLW;AAEvC;AACA,2BAA6B,aAAb,mBAAe,cAAC,oCAAD,CAAF;AAC7B,0BAAgB;AAChB,0BAAgB;AAChB,uBAAa;AACb,oBAAU;AACV,qBAAW;AACX,2BAAiB;AACjB,4BAAkB;AAClB,2BAAiB;AAXsB;AAiDR;AAE/B,UAAY,YAAD,QAAX,EACU,SAAR,KAAQ,UADV;AAEA;AAJ+B;AAyHK;AAAd;AAEtB,eAAU,8BAAO,QAAC;AAClB,YAAM,UAAN,GAAmB;AACnB,YAAM,eAAe,CAAC,gBAAD;AAJC;AAAc;AAoIP;AAE7B;AACA;AAH6B;AA9KI;AAEjC;AACA;AAEA;AAEA,UAAW,CAAP,YAAO,KAAE,IAAF,CAAO,IAAiB,CAAb,4CAAa,IAAG,oBAAH,CAAnC,EACE,MADF;AAGA,UAAG,CAAI,aAAP,EACE,MADF;AAGA,UAAG,iBAAa,GAAE,CAAlB,EACE,MADF;AAGA,YAAO,iCAAa,CAAC,IAAD;AACpB,UAAY,GAAD,QAAX,EACE,IAAG,GAAG,aAAN,EACE,MAFJ;AAIA,WAAM;AACN,UAAI,EAAG,KAAG,gBAAV,EACE,qBADF;AAGA,yBAAe;AAEf,uBAAa;AAEb,UAAY,YAAD,QAAX,EACE,YAAO,QADT;AAGA;AACA,uBAAa;AAjCoB;AA4MF;AAE/B;AAF+B;AA7QF;AAAP;AAEtB,eAAoB;AAFE;AAAO;AAPG;AAEhC;AACA,UAAG,iBAAa,KAAE,CAAlB,EACE,iBADF;AAHgC;AAh5JlB;;;AA6DM;;;AAElB;AAFkB;AAw3KuB;AAE3C,UAAG,iBAAH,EACE,MADF;AAGA,UAAG,mBAAH,EACE,MADF;AAGA,4BAAkB;AAClB;AAT2C;AArBF;AAAb;AAE5B,eAAU,QAAQ,cAAc,CAAC,KAAD;AAFJ;AAAa;AAiCN;AAEnC;AACA;AAHmC;AAMG;AAEtC;AACA;AAHsC;AA5BH;AAAP;AAE5B,eAAU,GAAI,GAAE,YAAF;AAFc;AAAO;AAKI;;AAXM;AAE7C;AACA,4BAAkB;AAH2B;AAx2KzB;;;AAaM,uCAhxBV,+BAgxBU;AAbN;AAgBL;;;;AAES;AAkqKqB;AAAb;AAEhC,eAAU,QAAQ,cAAc,CAAC,KAAD;AAFA;AAAa;AARC;AAE9C;AACA,UAAY,uBAAD,QAAX,EACE,uBAAa,MAAM,YAAY,CAAC,WAAY,MAAb,CADjC;AAH8C;AA1pKtB;;;AAOV;AAy7KqB;AAAb;AAEtB,eAAU,QAAQ,cAAc,CAAC,KAAD;AAFV;AAAa;AAz7KrB;;;AAKC;;;AAEb;AAFa;AAutKiB;AAEhC;AACA,4BAAkB;AAHmC;AAArB;AAMQ;AAAjB;AAEnB,yBAAJ,IAAG;AACH,eAAU;AAHa;AAAiB;AAMX;AAE7B,4BAAkB;AAFW;AAnuKd;;AAIK,+BAAO,UJ3XjB,+BI2XiB,CAAP;AAJL;AASC;;;AAEd;AACA;AAHc;;;;;AA6uKe;AAE/B,eAAI,OAAO,CAAC,KAAD;AAFoB;AAZE;AAEjC;AACA,kBAAQ,uBAAW,QAAC;AAHuC;AAA1B;AAMA;AAE5B,eAAL,KAAK;AACL;AAHiC;AAvuKjB;AAMI,+BAAW,cJ5dpB,gCI4doB,CAAX;AAGO;AACb,2BJ5kBH,iCI4kBG;AAVE;AAaC;AAivKiB;AAAT;AAEzB,eAAqC,YAAK,CAAC,KAAD;AAFjB;AAAS;AAUC;AAGzB,kBAAK,CAAC,MAAU,KAAX;AAHoB;AAfD;AAElB,sDAAC,OAAQ,qBAAT;AAFuC;AAArB;AALN;AAAH;AAEzB,eAAqC;AAFZ;AAAG;AAeG;AAAN;AAEzB,eAA2C,yCAAC,KAAD;AAFlB;AAAM;AAtvKd;AAKG,+BAAO,UJlZjB,+BIkZiB,CAAP;AALH;AAWF;;;AAEb;AAFa;;;;;AA6xKwB;AAEvC,wBAAa,OAAO,CAAC,KAAD;AAFmB;AArCP;AAEhC;AACA,2BAAiB,sBAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,wBAAa,UAAb,GAA0B;AAJ2B;AAArB;AAOA;AAElB,eAAd,KAAc;AACd;AAHgC;AAkBO;AAAhB;AAEvB;AAEA,eAAU;AACV,eAAS,QAAwB,OAAnB,kBAAY,SAAC,EAAM,GAAE,CAAF,kBAAjC;AAAI;AAEF,YAAG,kBAAY,UAAM,CAAC,CAAD,CAAG,kBAAkB,KAAE,UAA5C,EACE,SAAU,kBAAY,UAAM,CAAC,CAAD,CAD9B;;AAPqB;AAAgB;AAZL;AAAX;AAEvB;AAEA,eAAU;AAEV,wBAAmB,qBAAgB,CAAC,UAAD;AAEnC,UAAY,eAAD,QAAX,EACE,SAAU,eAAe,KAAI,WAAC,EADhC;AARuB;AAAW;AArwKnB;;AAKK,+BAAO,UJ7ZjB,+BI6ZiB,CAAP;AAKG,oCArBN,gCAqBM;AAVR;AAaM,6FAEM,kBACF,eAHJ;;AAEM;AACF;AAHJ;AAMA,6FAES,qBACH,kBACN,YACK,kBACF,eACC,gBACA,eARJ;;AAES,yCAAO,sBAAP;AACH,sCAAO,sBAAP;AACN;AACK;AACF,mCAAQ,wBAAM,qBAAiB,qBAA/B;AACC,oCAAQ,wBAAiB,qBAAzB;AACA,oCAAgB,+BAAhB;AARJ;AAWJ;AAw6K0B;AAE3C;AACA;AAGF;AAEE,eAAS,QAAgB,OAAX,GAAG,OAAQ,GAAE,CAAF,kBAAzB;AAAI;AAEF,gBAAG,CAAO,KAAC,GAAI,GAAZ;;AAVsC;AAgBE;;AAApB;AAEzB;AAEuB;AAErB;AACA;AAGJ;AAEI,iBAAS,QAAgB,OAAX,GAAG,OAAQ,GAAE,CAAF,kBAAzB;AAAI;AAEF,mBAAG,CAAO,KAAC,GAAI,GAAZ;;AAVgB;AAgBvB,eAAqB,IAAX,OAAW,CACnB;AAGE,cAAyB,IAAlB,cAAkB;AACzB,WAAG,KAAK,CAAC,MAAM,GAAP;AAGd;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGM,WAAG,KAAK;AAlBV,OADmB;AApBI;AAAoB;AAx7K5B;AAwVS;AAAnB;AAEP,aAAU;AAFH;AAAmB;AArHR;AAAX;AAEP,mBAAU,eAAK,CAAC,cAAS,aAAV,CAAf;AAFO;AAAW;AAKE;AAEpB,MAAE,EAAF,GAAQ;AACR,MAAE,EAAF,GAAQ;AAHY;AAqHC;AAAd;AAEP,aAAU,IAAK,GAAE,qBAAQ,CAAC,oBAAc,oBAAf,CAAV;AAFR;AAAc;AAhDI;AAAlB;AAEP;AAEA,UAAO;AAEP,QAAG,GAAI,KAAE,CAAT;AAIF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGI,uBAAY;KA9Bd;AAiCA,aAAU;AAvCH;AAAkB;AAxCD;AAAjB;AAEP;AAEA,UAAO;AAEP,QAAG,GAAI,KAAE,CAAT;AAIF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGI,uBAAY;KA5Bd;AA+BA,aAAU;AArCH;AAAiB;AAjME;AAE1B;AAEA,QAAG,MAAH;AAEE,cAAQ,MAAM,eAAe,CAAC,aAAD;AAC7B,cAAQ,MAAM,eAAe,CAAC,YAAD;AAC7B,cAAQ,MAAM,eAAe,CAAC,aAAD;AAC7B,cAAQ,MAAM,eAAe,CAAC,WAAD;AAC7B,cAAQ,MAAM,eAAe,CAAC,iBAAD;;AAI7B,cAAQ,MAAM,YAAY,CAAC,cAAe,KAAK,MAArB;AAE1B,cAAQ,MAAM,YAAY,CAAC,aAAc,QAAf;AAE1B,UAAG,wCAAO,IAAG,KAAK,OAAlB;AACE,gBAAQ,MAAM,YAAY,CAAC,cAAe,MAAhB;AAE1B,YAAA,QAAQ,MAAM,YAAY,CAAC,cAAe,EAAhB;AAE5B,UAAG,0CAAS,IAAG,KAAK,OAApB,EACG,QAAQ,MAAM,YAAY,CAAC,aAAc,QAAf,CAD7B;AAGA,UAAK;AAEL,UAAG,6CAAY,IAAG,KAAK,OAAvB,EACE,IAAK,WADP;AAGA,UAAG,6CAAY,IAAG,KAAK,OAAvB;AAEE,YAAG,CAAE,KAAG,EAAR,EACG,IAAK,CAAE,GAAE,GADZ;AAEC,YAAI,CAAE,GAAE,cAAF;OAJT;AAOA,UAAI,CAAE,KAAG,EAAT;AACE,gBAAQ,MAAM,YAAY,CAAC,kBAAmB,CAApB;AAE1B,YAAA,QAAQ,MAAM,eAAe,CAAC,iBAAD;AAE/B,UAAI,KAAK,MAAM,KAAG,CAAlB,EACE,QAAQ,MAAM,YAAY,CAAC,YAAa,qBAAQ,CAAC,KAAK,MAAN,CAAa,GAAE,IAArC,CAD5B;;AA3CwB;AAgDC;AAE3B,QAAG,MAA4B,IAAV,CAAP,MAAO,KAAE,EAAF,CAAX,IAAgC,CAAP,MAAO,KAAE,QAAF,CAA1C;AACE,cAAQ,MAAM,eAAe,CAAC,oBAAD;AAE7B,UAAA,QAAQ,MAAM,YAAY,CAAC,qBAAgB,kCAAW,CAAC,MAAD,CAA5B;AALD;AAQH;AAAjB;AAEP,aAAU;AACL;AACH,QADG,IACH;AAAW,eAAS;AACpB,cAFG,IAEH;AAAS,eAAS;AAClB,cAHG,IAGH;AAAQ,eAAS;AACjB,cAJG,IAIH;AAAS,eAAS;AAClB,cALG,IAKH;AAAS,eAAS;AAClB,cANG,IAMH;AAAY,eAAS;AACrB,cAPG,IAOH;AAAU,eAAS;AACnB,cARG,IAQH;AAAY,eAAS;AACrB,cATG,IASH;AAAU,eAAS;AACnB,cAVG,IAUH;AAAW,eAAS;AACpB,cAXG,IAWH;AAAa,eAAS;AACtB,cAZG,IAYH;AAAQ,eAAS;AACjB,cAbG,IAaH;AAAU,eAAS;AACnB,cAdG,IAcH;AAAU,eAAS;AACnB,cAfG,IAeH;AAAU,eAAS;AACnB,cAhBG,IAgBH;AAAa,eAAS;AACtB,cAjBG,IAiBH;AAAW,eAAS;AACpB,cAlBG,IAkBH;AAAM,eAAS;AACf,cAnBG,IAmBH;AAAY,eAAS;AACrB,cApBG,IAoBH;AAAQ,eAAS;AACjB,cArBG,IAqBH;AAAa,eAAS;AACtB,eAtBG,IAsBH,YAAU,CAtBP,IAsBO,OAAV,EAAkB,SAAS,MAA3B;AAzBK;AAAiB;AAkHS;AAA1B;AAEP;AAEe;AAAN;AAEP;AAEA,eAAU,0BAAa,CAAC,OAAQ,KAAK,GAAI,cAAC,4CAAD,CAAlB;AACvB,sBAAG,CAAC,OAAQ;;;;WAAQ;;;;UAAjB;AALI;AAAM;AASf,QAAK,QAAQ,MAAM,iBAAiB,CAAC,MAAD;AACpC,UAAM,KAAN,GAAe,MAAM,CAAC,CAAD;AACrB,QAAK,QAAQ,MAAM,iBAAiB,CAAC,KAAD;AACpC,UAAM,IAAN,GAAc,MAAM,CAAC,CAAD;AACpB,QAAK,QAAQ,MAAM,iBAAiB,CAAC,OAAD;AACpC,UAAM,MAAN,GAAgB,MAAM,KAAM,GAAE,MAAM,CAAC,CAAD,CAAR;AAC5B,QAAK,QAAQ,MAAM,iBAAiB,CAAC,QAAD;AACpC,UAAM,OAAN,GAAiB,MAAM,IAAK,GAAE,MAAM,CAAC,CAAD,CAAR;AApBrB;AAA0B;AArFZ;AAAd;AAEP,aAAU;AACL;AACH,QADG,IACH;AAAW,eAAS;AACpB,cAFG,IAEH;AAAS,eAAS;AAClB,cAHG,IAGH;AAAQ,eAAS;AACjB,cAJG,IAIH;AAAS,eAAS;AAClB,cALG,IAKH;AAAQ,eAAU;AAClB,cANG,IAMH;AAAS,eAAS;AAClB,cAPG,IAOH;AAAY,eAAS;AACrB,cARG,IAQH;AAAU,eAAS;AACnB,cATG,IASH;AAAY,eAAS;AACrB,cAVG,IAUH;AAAU,eAAS;AACnB,cAXG,IAWH;AAAW,eAAS;AACpB,cAZG,IAYH;AAAa,eAAS;AACtB,cAbG,IAaH;AAAQ,eAAS;AACjB,cAdG,IAcH;AAAU,eAAS;AACnB,cAfG,IAeH;AAAU,eAAS;AACnB,cAhBG,IAgBH;AAAU,eAAS;AACnB,cAjBG,IAiBH;AAAa,eAAS;AACtB,cAlBG,IAkBH;AAAW,eAAS;AACpB,cAnBG,IAmBH;AAAM,eAAS;AACf,cApBG,IAoBH;AAAY,eAAS;AACrB,cArBG,IAqBH;AAAQ,eAAS;AACjB,cAtBG,IAsBH;AAAa,eAAS;AACtB,cAvBG,IAuBH,SAAW,SAAS,WAApB;AA1BK;AAAc;AA8BA;AAAd;AAEP;AAEA,aAAU;AACV,SAAM,sBAAS,CAAC,CAAD;AACf,QAAI,EAAG,KAAE,WAAT;AAA2B,eAAU;AACrC,cAAI,EAAG,KAAE,SAAT;AAAyB,eAAU;AACnC,cAAI,EAAG,KAAE,QAAT;AAAwB,eAAU;AAClC,cAAI,EAAG,KAAE,SAAT;AAAyB,eAAU;AACnC,cAAI,EAAG,KAAE,QAAT;AAAwB,eAAU;AAClC,cAAI,EAAG,KAAE,SAAT;AAAyB,eAAU;AACnC,cAAI,EAAG,KAAE,YAAT;AAA4B,eAAU;AACtC,cAAI,EAAG,KAAE,UAAT;AAA0B,eAAU;AACpC,cAAI,EAAG,KAAE,YAAT;AAA4B,eAAU;AACtC,cAAI,EAAG,KAAE,UAAT;AAA0B,eAAU;AACpC,cAAI,EAAG,KAAE,WAAT;AAA2B,eAAU;AACrC,cAAI,EAAG,KAAE,aAAT;AAA6B,eAAU;AACvC,cAAI,EAAG,KAAE,QAAT;AAAwB,eAAU;AAClC,cAAI,EAAG,KAAE,UAAT;AAA0B,eAAU;AACpC,cAAI,EAAG,KAAE,UAAT;AAA0B,eAAU;AACpC,cAAI,EAAG,KAAE,UAAT;AAA0B,eAAU;AACpC,cAAI,EAAG,KAAE,aAAT;AAA6B,eAAU;AACvC,cAAI,EAAG,KAAE,WAAT;AAA2B,eAAU;AACrC,cAAI,EAAG,KAAE,MAAT;AAAsB,eAAU;AAChC,cAAI,EAAG,KAAE,YAAT;AAA4B,eAAU;AACtC,cAAI,EAAG,KAAE,QAAT;AAAwB,eAAU;AAClC,cAAI,EAAG,KAAE,aAAT;AAA6B,eAAU;AACvC,cAAI,EAAG,KAAE,WAAT,EAA2B,SAAU,EAArC;AA5BO;AAAc;AAgCL;AAAT;AAEP;AAIF;AAGE,aAAW,cAAG,CAAC,UAAW,MAAZ,CAAoB,GAAE,CAAF;AAT3B;AAAS;AA9JO;AAAhB;AAEP,aAAU;AACL;AACL,QADK,IACL;AAAY,eAAU;AACtB,cAFK,IAEL;AAAW,eAAU;AACrB,cAHK,IAGL;AAAS,eAAU;AACnB,cAJK,IAIL,sCAAS,SAAU,sBAAnB;AAPO;AAAgB;AAlBD;AAAf;AAEF;AACL,QADK,IACL;AAAQ,eAAU;AAClB,cAFK,IAEL;AAAS,eAAU;AACnB,cAHK,IAGL;AAAQ,eAAU;AAClB,cAJK,IAIL;AAAY,eAAU;AACtB,cALK,IAKL;AAAQ,eAAU;AAClB,cANK,IAML;AAAS,eAAU;AACnB,cAPK,IAOL;AAAU,eAAU;AACpB,cARK,IAQL;AAAY,eAAU;AACtB,cATK,IASL;AAAU,eAAU;AACpB,cAVK,IAUL;AAAQ,eAAU;AAClB,cAXK,IAWL;AAAO,eAAU;AACjB,cAZK,IAYL,6BAAQ,SAAU,MAAlB;AAdO;AAAe;AA7gCxB,mBA6/Bc;AAMZ;AACA;AAAS;AACT;AAAU;AACV;AAAU;AACV;AAIc,2BAAG;AAdL;AA88Kd;AACE,qBAAY;AACZ,qBAAY;AACZ,uBAAc;AACd,2BAAkB,oBAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAJpC;AA38MA,GA6/Bc,kFA7/Bd;AQAA,8BAES,mEAFT;;;AAQM,cAAG;AACH,cAAG;AACC,kBAAG;AACH,kBAAG;AAIK;;AAwYG;AAAZ;AAEP,aAAU,qBAAM,CAAC,KAAK,mBAAC,GAAD,EAAqB,wCAA3B;AAFT;AAAY;AA+aA;AAGrB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA7BqB;AA1aM;AAG3B;AAH2B;AAON;AAAZ;AAEP;AAGF;AACA;AAGE,aAAU;AATH;AAAY;AAgDC;AAAb;AAEP;AAEA,sBAAa,CAAC,MAAM;;;;SAhc6D,IAgcpE;AACb,aAAU;AALH;AAAa;AApCA;AAAb;AAEP;AACA;AAEA,QAAK;AACL,QAAG,CAAI,aAAP,EACE,QAAS,sBAAS,CAAC,KAAD,CADpB;AAIF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,eAAU,CAAV;AACA,aAAU;AAjCH;AAAa;AA2QH;AAAV;AAEP;AAEA,QAAK;AAEP;AACA;AACA;AACA;AAEE,aAAU;AAXH;AAAU;AA9Nc;AAAxB;AAEP,aAA0B,qCAAM,CAAC,OAAD,CAAS;AAFlC;AAAwB;AAKJ;AAApB;AAEP;AAGF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEE,aAAU;AAdH;AAAoB;AAiBC;AAArB;AAEP;AAGF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEE,aAAU;AAdH;AAAqB;AAiBC;AAAtB;AAEP;AAGF;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,aAAU;AAdH;AAAsB;AAiBC;AAAvB;AAEP;AAGF;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,aAAU;AAdH;AAAuB;AAiBE;AAAzB;AAEP;AAGF;AACA;AACA;AACA;AACA;AACA;AACA;AAEE,aAAU;AAbH;AAAyB;AAgBC;AAA1B;AAEP;AAGF;AACA;AACA;AACA;AACA;AACA;AAEE,aAAU;AAZH;AAA0B;AAeN;AAApB;AAEP;AAIF;AACA;AACA;AACA;AACA;AAEE,aAAU;AAZH;AAAoB;AAeH;AAAjB;AAEP;AAGF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEE,aAAU;AAlDH;AAAiB;AAuDD;AAAhB;AAEP;AAGF;AAEE,aAAU;AAPH;AAAgB;AA8FE;AAAlB;AAEP;AACA;AAEA,aAAU;AAGZ;AAGE,QAAG,cAAG,CAAC,MAAM,EAAP,CAAW,GAAE,CAAnB,EACE,SAAU,+BADZ;AAGA,QAAG,cAAG,CAAC,MAAM,EAAP,CAAW,GAAE,CAAnB,EACE,SAAU,6BADZ;AAGA,QAAG,cAAG,CAAC,QAAQ,EAAT,CAAa,GAAE,CAArB,EACE,SAAU,6BADZ;AAGA,QAAG,cAAG,CAAC,UAAU,EAAX,CAAe,GAAE,CAAvB,EACE,SAAU,+BADZ;AAGA,QAAG,cAAG,CAAC,QAAQ,EAAT,CAAa,GAAE,CAArB,EACE,SAAU,6BADZ;AAIF;AACA;AAGE,QAAG,GAAH,EACE,SAAU,2BADZ;AA/BO;AAAkB;AAnFA;AAAlB;AAEP;AAAE;AACF;AAEA,QAAY,MAAD;AAEX,oBAAe,EAAf;AAEA,UAAO;AAEP,QAAK;AACL,WAAO,CAAE,IAAG,CAAZ;AAEE,UAAI,MAAM,QAAC,KAAD,CAAI,KAAE,GAAhB;AAEE,YAAU,CAAJ,CAAF,CAAE,GAAE,CAAF,CAAI,IAAG,CAAH,CAAM,IAAmB,CAAd,MAAM,QAAG,CAAF,CAAE,GAAE,CAAF,KAAH,CAAQ,KAAG,GAAH,CAAnC;AAEE,gBAAO,GAA4B,GAAtB,KAAF,GAAU,MAAM,QAAG,CAAF,CAAE,GAAE,CAAF,KAAH,CAAR,GAAkB,MAAF;AACnC,0BAAe,MAAM,QAAG,CAAF,CAAE,GAAE,CAAF,KAAH,CAArB;SAGF,UAAU,CAAJ,CAAF,CAAE,GAAE,CAAF,CAAI,IAAG,CAAH,CAAM,IAAmB,CAAd,MAAM,QAAG,CAAF,CAAE,GAAE,CAAF,KAAH,CAAQ,KAAE,GAAF,CAAnC,EACE,MAAO,GAAI,GAAE,GADf;AAEI,SAAJ,IAAO;;AAIP,cAAO,GAAI,GAAE,MAAM,QAAC,KAAD,CAAR;AACP,SAAJ,IAAG;;;AAKP,aAAU;AAlCH;AAAkB;AAnSJ;AAAd;AAEP;AACA;AAEA,QAAK;AACL,QAAK;AAEP;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEE,aAAU;AA5BH;AAAc;AAgCH;AAEpB;AAFoB;AA9SG;AAAd;AAEP;AAAE;AAAE;AACJ;AACA;AAAG;AACH;AAEA,QAAe,UAAH,CAAD,OAAI,GAAI,CAAJ;AACf,QAAK;AAEL,SAAU,CAAD,YAAG,CAAD,IAAF,CAAO,GAAE,EAAF;AAChB,QAAG,EAAG,IAAG,EAAT,EACE,KAAM,EAAG,GAAE,CADb;AAGA,SAAU,CAAD,YAAG,CAAD,IAAF,CAAO,GAAC,EAAD;AAChB,QAAG,EAAG,IAAG,EAAT,EACE,KAAM,EAAG,GAAE,CADb;AAGA,UAAO,CAAE,GAAM,CAAH,EAAG,GAAO,CAAH,EAAG,IAAI,CAAJ,CAAP,CAAN;AAET,QAAK,cAAG,CAAC,YAAY,CAAb;AAER,QAAM,CAAF,CAAE,GAAE,CAAF,CAAK,IAAO,CAAF,CAAE,GAAE,EAAF,CAAlB,EACM,GAAJ,IAAQ,CADV;AAGA,QAAK,cAAG,CAAC,YAAY,CAAb;AAER,QAAM,CAAF,CAAE,GAAE,CAAF,CAAK,IAAO,CAAF,CAAE,GAAE,EAAF,CAAlB,EACM,GAAJ,IAAQ,CADV;AAGA,UAAqB,IAAd,UAAc,CAAI,CAAE,GAAE,GAAR;AAErB,aAAa,KAAJ,GAAI,GAAE,CAAF,EAAO,0BAApB;AAAI;AAEF,WAAU,CAAD,YAAI,CAAD,CAAC,GAAC,CAAD,CAAF,GAAO,CAAF,GAAL,CAAF,CAAa,GAAE,EAAF;AACtB,UAAG,EAAG,IAAG,EAAT,EACE,KAAM,EAAG,GAAE,CADb;AAGA,WAAU,CAAD,YAAI,CAAD,CAAC,GAAC,CAAD,CAAF,IAAF,CAAS,GAAC,EAAD;AAClB,UAAG,EAAG,IAAG,EAAT,EACE,KAAM,EAAG,GAAE,CADb;AAGA,WAAM,EAAG,GAAO,CAAH,EAAG,IAAI,CAAJ,CAAP;AAET,SAAI,GAAJ,GAAU;AACN,OAAJ,IAAG;;AAGL,aAAU;AAhDH;AAAc;AAoPU;AAAxB;AAEP;AAGF;AACA;AACA;AAGE,aAAU,mBAAc,CAAC,EAAD;AAVjB;AAAwB;AAhMV;AAAd;AAEP;AAAE;AACF;AACA;AAAE;AAEF,aAAU;AAEV,QAAK,CAAC;AAEN,QAAG,CAAE,KAAE,CAAP,EACE,aADF;AAGA,QAAiB,CAAT,CAAF,CAAE,GAAI,IAAJ,CAAS,IAAI,EAAJ,CAAsD,GAA/B,CAAX,CAAF,CAAE,GAAI,MAAJ,CAAW,IAAI,CAAJ,CAAhB,GAAyC,CAAb,CAAF,CAAE,GAAI,QAAJ,CAAa,KAAI,CAAJ,CAAnB,GAA6C,CAAf,CAAF,CAAE,GAAI,UAAJ,CAAe,KAAI,EAAJ,CAApB;AAEvE,SAAM;AAEN,QAAS,CAAL,CAAE,GAAG,KAAE,GAAF,CAAO,IAAU,CAAL,CAAE,GAAG,KAAE,EAAF,CAA1B;AAEE,UAAK;AACL,UAAY,CAAD;KAHb;AAMA,QAAS,CAAL,CAAE,GAAG,KAAE,IAAF,CAAO,IAAU,CAAL,CAAE,GAAG,KAAE,IAAF,CAA1B;AAEE,UAAK;AACL,UAAY,CAAD;AACX,WAAM,qBAAQ,CAAC,EAAE,CAAH;KAJhB;AAOA,QAAS,CAAL,CAAE,GAAG,KAAE,EAAF,CAAM,IAAU,CAAL,CAAE,GAAG,KAAE,EAAF,CAAzB;AAEE,UAAK;AACL,UAAY,CAAD;AACX,WAAM,qBAAQ,CAAC,EAAE,CAAH;KAJhB;AAOA,QAAS,CAAL,CAAE,GAAG,KAAE,EAAF,CAAM,IAAU,CAAL,CAAE,GAAG,KAAE,EAAF,CAAzB;AAEE,UAAK;AACL,UAAY,CAAD;KAHb;AAMA,aAAU,qBAAQ,CAAC,EAAE,CAAH;AAElB,aAAS,QAAW,OAAC,CAAD,yBAApB;AAAI;AAEF,UAAS,CAAD,YAAG,CAAD,IAAF;AACR,eAAU,MAAO,GAAE,qBAAQ,CAAC,EAAE,CAAH,CAAV;;AAGnB,aAAU,MAAO,GAAE,EAAF;AAEjB,aAAS,SAAc,QAAT,CAAC,OAAQ,GAAE,CAAF,qBAAvB;AAAI;AAEF,UAAK,CAAE;AACP,eAAU,MAAO,GAAE,qBAAQ,CAAC,EAAE,CAAH,CAAV;;AAxDZ;AAAc;AA6MQ;AAAtB;AAEP;AAEA,SAAM,mBAAc,CAAC,CAAD;AAEtB;AACA;AACA;AAEE,aAAU;AAVH;AAAsB;AArSZ;AAAV;AAEP,aAAU;AAFH;AAAU;AAwoBE;AAAZ;AAEP;AAEA,UAAQ,2CAAD;;;;QAAC;AACR,aAAU,0BAAa,CAAC,IAAK,IAAI,IAAI,cAAC,4CAAD,CAAd;AALhB;AAAY;AAloBC;AAAb;AAEP;AAGF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEE,aAAU;AAfH;AAAa;AAkBA;AAEpB;AAEA,QAAwB,QAAQ,cAAc,CAAC,GAAD;AAEhD;AACA;AAEE,KAAC;AATmB;AA4HG;AAAhB;AAEP;AAAG;AAAG;AACN;AAAI;AAAI;AACR;AAGA,aAAU;AAEV,SAAM,eAAI,CAAC,EAAE,EAAE,CAAL;AACV,SAAM,eAAI,CAAC,EAAE,EAAE,CAAL;AACV,SAAM,eAAI,CAAC,EAAE,EAAE,CAAL;AAEV,oBAAG,CAAC,GAAI;;;;SAAK;;;;QAAV;AACH,oBAAG,CAAC,GAAI;;;;SAAK;;;;QAAV;AACH,oBAAG,CAAC,GAAI;;;;SAAK;;;;QAAV;AAEH,QAAQ,CAAJ,GAAI,KAAG,CAAH,CAAqB,IAAN,CAAJ,GAAI,KAAG,CAAH,CAAT,IAAwB,CAAJ,GAAI,KAAG,CAAH,CAAtC,EACE,SAAU,uBAAU,CAAC,IAAK,IAAK,GAAX,CADtB;AAjBO;AAAgB;AAqBA;AAAhB;AAEP;AAAG;AAAG;AACN;AAAI;AAAI;AACR;AAGA,aAAU;AAEV,SAAM,eAAI,CAAC,EAAE,EAAE,CAAL;AACV,SAAM,eAAI,CAAC,EAAE,EAAE,CAAL;AACV,SAAM,eAAI,CAAC,EAAE,EAAE,CAAL;AAEV,oBAAG,CAAC,GAAI;;;;SAAK;;;;QAAV;AACH,oBAAG,CAAC,GAAI;;;;SAAK;;;;QAAV;AACH,oBAAG,CAAC,GAAI;;;;SAAK;;;;QAAV;AAEH,QAAQ,CAAJ,GAAI,IAAG,CAAH,CAAqB,IAAN,CAAJ,GAAI,IAAG,CAAH,CAAT,IAAwB,CAAJ,GAAI,IAAG,CAAH,CAAtC,EACE,SAAU,uBAAU,CAAC,IAAK,IAAK,IAAK,CAAhB,CADtB;AAjBO;AAAgB;AAqBP;AAAT;AAEP;AAGF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEE,aAAU;AAxBH;AAAS;AA2BJ;AAAL;AAEP;AAGF;AACA;AACA;AACA;AACA;AACA;AACA;AAEE,aAAU;AAbH;AAAK;AA0BM;AAAX;AAEP;AACA;AACA;AAAE;AAEF,aAAS,QAAW,OAAC,CAAD,yBAApB;AAAI;AACF,UAAG,CAAC,QAAC,KAAD,CAAI,KAAE,GAAV,EACE,CAAC,iBAAD,EAAE,MAAM,IAAP,CADH;;AAGF,SAAM,uBAAW,QAAC;AAClB,MAAE,QAAQ,CAAC,KAAK,WAAN;AACV,MAAE,QAAQ,CAAC,KAAK,WAAN;AACV,MAAE,QAAQ,CAAC,KAAK,WAAN;AACV,MAAE,QAAQ,CAAC,KAAK,WAAN;AACV,MAAE,QAAQ,CAAC,KAAK,WAAN;AACV,MAAE,QAAQ,CAAC,KAAK,WAAN;AACV,MAAE,QAAQ,CAAC,KAAK,WAAN;AACV,MAAE,QAAQ,CAAC,MAAM,WAAP;AACV,MAAE,QAAQ,CAAC,KAAK,WAAN;AACV,MAAE,QAAQ,CAAC,OAAO,WAAR;AACV,MAAE,QAAQ,CAAC,KAAK,WAAN;AAEV,aAAS,SAAc,QAAT,EAAE,SAAC,EAAM,GAAE,CAAF,qBAAvB;AAAI;AAEF,UAAK,EAAE,QAAM,CAAC,CAAD;AACb,UAAK,EAAE,SAAO,CAAC,CAAD;AACd,UAAK,0BAAa,CAAC,EAAE,EAAE,EAAE,cAAC,4CAAD,CAAP;;AAGpB,MAAG,eAAH,EAAG;AAEH,aAAU;AAhCH;AAAW;AAVC;AAAZ;AAEP,QAAK,0BAAa,CAAC,EAAE,IAAI,OAAO,cAAC,4CAAD,CAAd;AAClB,aAAU,0BAAa,CAAC,EAAE,IAAI,OAAO,cAAC,4CAAD,CAAd;AAHhB;AAAY;AAuaD;AAAX;AAEP,QAAG,IAAK,GAAE,IAAV,EACE,SAAU,qBAAQ,CAAC,IAAD,CAAO,GAAE,QAD7B;AAEA,QAAS,CAAL,IAAK,IAAG,IAAH,CAAS,IAAU,CAAL,IAAK,GAAE,OAAF,CAA5B,EACE,SAAU,mBAAM,CAAC,OAAO,mBAAK,EAAJ,IAAI,GAAC,IAAN,CAAR,CAAoB,GAAC,KADvC;AAEA,QAAS,CAAL,IAAK,IAAG,OAAH,CAAY,IAAU,CAAL,IAAK,GAAE,UAAF,CAA/B,EACE,SAAU,mBAAM,CAAC,OAAO,mBAAK,EAAJ,IAAI,GAAC,OAAN,CAAR,CAAuB,GAAC,KAD1C;AAEA,QAAG,IAAK,IAAG,UAAX,EACE,SAAU,mBAAM,CAAC,OAAO,mBAAK,EAAJ,IAAI,GAAC,UAAN,CAAR,CAA0B,GAAC,KAD7C;AARO;AAAW;AAYK;AAAhB;AAEP,QAAG,IAAK,GAAE,IAAV,EACE,SAAU,qBAAQ,CAAC,IAAD,CAAM,GAAC,YAD3B;AAEA,QAAS,CAAL,IAAK,IAAG,IAAH,CAAS,IAAU,CAAL,IAAK,GAAE,OAAF,CAA5B,EACE,SAAU,mBAAM,CAAC,OAAO,mBAAK,EAAJ,IAAI,GAAC,IAAN,CAAR,CAAoB,GAAC,SADvC;AAEA,QAAS,CAAL,IAAK,IAAG,OAAH,CAAY,IAAU,CAAL,IAAK,GAAE,UAAF,CAA/B,EACE,SAAU,mBAAM,CAAC,OAAO,mBAAK,EAAJ,IAAI,GAAC,OAAN,CAAR,CAAuB,GAAC,SAD1C;AAEA,QAAI,IAAK,IAAG,UAAZ,EACE,SAAU,mBAAM,CAAC,OAAO,mBAAK,EAAJ,IAAI,GAAC,UAAN,CAAR,CAA0B,GAAC,SAD7C;AARO;AAAgB;AAiDF;AAAd;AAEP;AAEA,aAAU;AAEV,QAAK;AACL,WAAe,CAAD,QAAd;AAEE,UAAI,sBAAS,CAAC,CAAC,QAAF,CAAY,KAAE,aAA3B,EACE,SAAU,IADZ;AAEA,UAAK,CAAC;;AAGR,QAAG,CAAI,MAAP,EAEE,aAFF;AAIA,WAAe,EAAD,QAAd;AAEE,UAAG,EAAE,MAAM,iBAAiB,CAAC,SAAD,CAAY,KAAE,MAA1C;AAEE,iBAAU;AACV;OAHF;AAKA,UAAK,EAAE;AACP,UAAG,CAAO,UAAF,EAAK,WAAH,CAAV,EACE,aADF;AAEA,WAAqB;;AA5BhB;AAAc;AAgCE;AAAhB;AAEP;AACA;AAAQ;AAER,QAAK;AAEL,QAAK,CAAyC,GAApC,UAAF,GAAe,uCAAgB,CAAC,KAAD,CAAlB,GAA0B,GAAD;AAE9C,aAAU;AAEV,QAAG,MAAO,KAAG,EAAb,EACE,SAAU,QAA4B,GAAnB,kCAAW,CAAC,MAAD,CAAZ,GAAqB,GADzC;AAGA,cAAW;AAEX,QAAG,KAAM,KAAG,CAAZ,EACE,UAAW,YAA4B,GAAf,qBAAQ,CAAC,KAAD,CAAT,GAAiB,KAD1C;AAGA,QAAK,CAAsD,GAAlD,8BAAF,GAAmC,MAAF,GAAW,OAAF,GAAW,GAAD;AAE3D,aAAU,CAAkB,GAAd,GAAF,GAAS,MAAH,GAAY,MAAF;AArBrB;AAAgB;AA7yBzB,GA2Dc,0BA3Dd;ACDA,sBAES,+BAFT;;;;AASqB,6EAA8B,QtBuG1C,2BsBvG0C,EAAY,mBAA1C;AAEN;;;AAEX;AACA;AAHW;;;;;AAydgB;AAAR;AAErB,eAAQ,UAAK;AAFQ;AAAQ;AAKC;AAE9B,UAAG,UAAK,OAAO,KAAG,MAAlB,EACE,UAAK,SAAC,CAAO,MAAP,CADR;AAF8B;AAMF;AAAP;AAErB,eAAe,cAAC,UAAK,KAAC,KAAD,CAAN;AAFM;AAAO;AAKC;AAG7B;AAGA,UAAG,iBAAH;AAEE,YAAU,cAAC,UAAK,KAAC,KAAD,CAAN;AACV,kBAAK,KAAC,MAAQ,OAAT;AACL,SAAE,eAAF,CAAE;OAGG,MAAL,UAAK,KAAC,MAAQ,OAAT;AAbsB;AAgBI;AAEjC,gBAAK,YAAC,CAAU,WAAV;AAF2B;AAKD;AAAX;AAErB,eAAQ,UAAK;AAFQ;AAAW;AA5CF;AAEpB;AACV,mBAAO,mBAAO,QAAC;AACf,0BAAc;AAJiB;AAAD;AA/BA;AAE9B;AACA,0BAAc;AAHwC;AAAxB;AAMA;AAE9B,UAAI,UAAM,KAAG,IAAb;AAEE;AACA,kBAAK,SAAC;OAHR;AAKU;AAPoB;AAUH;AAE3B;AACA;AAEA,UAAG,iBAAH,EACE,SAAkB,KAAX,UAAK,OAAM,GAAC,CAAD,EAAU,aAA5B;AAAI;AAEF,YAAU,cAAC,UAAK,KAAC,CAAD,CAAN;AACV,kBAAK,KAAC,EAAI,IAAL;AACL,SAAE,eAAF,CAAE;OALN;AAOA,gBAAK;AAZsB;AAgEH;AAAH;AAErB,eAAQ,UAAK,IAAI,CAAC,OAAD;AAFI;AAAG;AAKI;AAG5B;AAGA,UAAG,iBAAH;AAEE,YAAU,cAAC,UAAK,KAAC,KAAD,CAAN;AACV,kBAAK,KAAC,MAAQ,IAAT;AACL,SAAE,eAAF,CAAE;OAJJ;AAMA,gBAAK,OAAO,CAAC,KAAD;AAZgB;AAeE;AAE9B,gBAAK,SAAS,CAAC,OAAQ,MAAT;AAFgB;AAKH;AAAN;AAErB,gBAAK;AACL,eAAQ;AAHa;AAAM;AAMC;AAAP;AAErB,eAAe,cAAC,UAAK,QAAQ,CAAC,IAAD,CAAd;AAFM;AAAO;AAKD;AAAN;AAGrB;AAGA,eAAQ,YAAO,CAAC,OAAD;AACf,UAAI,MAAO,KAAG,CAAC,CAAf;AAEE,YAAG,iBAAH;AAEE,cAAU,cAAC,UAAK,KAAC,MAAD,CAAN;AACV,oBAAK,KAAC,OAAS,IAAV;AACL,WAAE,eAAF,CAAE;SAJJ;AAMA,kBAAK,OAAO,CAAC,MAAD;OARd;AAPqB;AAAM;AAmBC;AAAP;AAErB,eAAQ,UAAK,QAAQ,CAAS,OAAT;AAFA;AAAO;AAKO;AAAd;AAErB;AAEA,UAAG;AACH,eAAQ,CAAC;AACT,UAAG,MAAH;AACE,eAAQ,CAAD,CAAC,GAAC,eAAD,CAAQ,IAAW,CAAN,MAAM,KAAC,CAAC,CAAF,CAA3B,EACE,IAAG,YAAK,CAAC,CAAD,CAAG,OAAC,YAAS,KAAC,MAAtB;AACE,mBAAQ;AAER,cAAI,CAAJ,IAAG;AAEP,mBAAQ,CAAD,CAAC,GAAC,eAAD,CAAQ,IAAW,CAAN,MAAM,KAAC,CAAC,CAAF,CAA3B,EACE,IAAG,YAAK,CAAC,CAAD,CAAG,OAAC,aAAY,CAAC,MAAD,CAAxB;AACE,iBAAQ;AAER,YAAI,CAAJ,IAAG;AAjBY;AAAc;AAoBP;AAE5B,gBAAK,OAAO,CAAC,MAAe,OAAhB;AAFgB;AA6BF;AAAL;AAErB,eAAe,cAAC,UAAK,QAAN;AAFM;AAAK;AAKD;AAAJ;AAErB,eAAe,cAAC,UAAK,OAAN;AAFM;AAAI;AA7BC;AAE1B,gBAAK,KAAK,CAAC,SAAU,QAAX;AAFgB;AAKE;AAE5B;AAEA;AACA,eAAO,QAAe,OAAV,GAAG,SAAC,EAAM,GAAE,CAAF,kBAAtB;AAAI;AACF,gBAAG,CAAC,GAAG,SAAC,CAAD,CAAJ;;AANuB;AASF;AAE1B,gBAAK;AAFqB;AAKA;AAE1B,gBAAK,KAAK,CAAC,OAAD;AAFgB;AAeO;AAEjC,gBAAK,YAAY,CAAe,UAAW,GAA1B;AAFgB;AA1nBpB;AA0CF;;;AAET;AAFS;AAmmBe;AAG1B;AAGA,UAAG,iBAAH,EACE,IAAI,MAAM,KAAC,uCAAX;AAEE,YAAU,cAAC,GAAD;AACV,SAAE,eAAF,CAAE;OAJN;AAMgB,yCAAC,IAAI,MAAL;AAZU;AAgBA;AAAP;AAEnB,eAAe,cAAc,gCAAC,KAAD,CAAd;AAFI;AAAO;AAMC;AAG3B,cAAG,CAAC,MAAc,OAAf;AAHwB;AA5BC;AAElB;AACV,0BAAc;AAHe;AAAD;AANA;AAElB;AACV,0BAAc;AAHqC;AAAvB;AAyCN;AAAH;AAEnB,eAAqB,gCAAS,OAAT;AAFF;AAAG;AAMI;AAAP;AAEnB,eAAe,cAAkB,oCAAS,IAAT,CAAlB;AAFI;AAAO;AAMD;AAAN;AAEnB,eAAwB,mCAAS,OAAT;AAFL;AAAM;AAMC;AAAP;AAEnB,eAAyB,oCAAS,OAAT;AAFN;AAAO;AAMO;AAAd;AAGnB;AAEA,UAAG;AACH,eAAQ,CAAC;AACT,UAAG,MAAH;AACE,eAAQ,CAAD,CAAC,GAAC,eAAD,CAAQ,IAAW,CAAN,MAAM,KAAC,CAAC,CAAF,CAA3B,EACE,IAAG,YAAK,CAAC,CAAD,CAAG,OAAC,YAAS,KAAC,MAAtB;AACE,mBAAQ;AAER,cAAI,CAAJ,IAAG;AAEP,mBAAQ,CAAD,CAAC,GAAC,eAAD,CAAQ,IAAW,CAAN,MAAM,KAAC,CAAC,CAAF,CAA3B,EACE,IAAG,YAAK,CAAC,CAAD,CAAG,OAAC,aAAY,CAAC,MAAD,CAAxB;AACE,iBAAQ;AAER,YAAI,CAAJ,IAAG;AAlBU;AAAc;AAsBP;AAEV,yCAAC,MAAc,OAAf;AAFU;AAMF;AAAL;AAEnB,eAAe,cAAW,kCAAX;AAFI;AAAK;AAMD;AAAJ;AAEnB,eAAe,cAAW,iCAAX;AAFI;AAAI;AA1rBZ;AAsBG;;;AAEZ;AAFY;;;;;AA6uBe;AAE7B,UAAG,cAAS,KAAC,IAAb;AAEE,yBAAW,oBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACX,sBAAU,MAAzB,GAAiC;OAHnC;AAKA,UAAG,mBAAQ,CAAC,GAAD,CAAX;AACiB,kCAAC,GAAD;AACR;AACH,YADG,IACH;AAAU,gCAAgB,CAAC,cAAD;AAC1B,mBAFG,IAEH,mDAAa,CAFV,IAEU,6CAAb,EAAwB,4BAAsB,CAAC,cAAD,CAA9C;OAJN;AAMgB,wCAAC,IAAK,MAAN;AAba;AA3BC;AAAR;AAEtB,eAA6B,YAAK,CAAC,KAAD;AAFZ;AAAQ;AAgDC;AAE/B,cAAG,CAAC,MAAM,UAAP;AAF4B;AA3CQ;AAGvC,oBAAO,CAAC,UAAD;AACP,UAAG,MAAM,KAAC,IAAV;AAJuC;AArBR;AAE/B;AACA,6BAAU,CAAC;;;;UAAD;AAHqB;AALN;AAAH;AAEtB,eAAqB,iCAAC,UAAD;AAFC;AAAG;AAWI;AAAP;AAEtB,eAAoC,qCAAC,IAAD;AAFd;AAAO;AAqDD;AAAN;AAEtB,eAAwB,oCAAC,UAAD;AAFF;AAAM;AA/BC;AAAP;AAEtB,eAAyB,qCAAC,UAAD;AAFH;AAAO;AAjBF;AAAL;AAEtB,eAA6B;AAFP;AAAK;AA2BD;AAAJ;AAEtB,eAA6B;AAFP;AAAI;AALG;AAEb,0CAAC,MAAM,UAAP;AAFa;AAnuBf;AAoBJ;AAowBgB;AAAR;AAElB,eAAc,cAAW,QAAK,CAAC,KAAD,CAAhB;AAFI;AAAQ;AAyBC;AAE3B,cAAG,CAAC,MAAc,MAAf;AAFwB;AAxCN;AAAH;AAElB,eAAqB,gCAAS,MAAT;AAFH;AAAG;AAKI;AAAP;AAElB,eAAc,cAAkB,oCAAS,IAAT,CAAlB;AAFI;AAAO;AA8BD;AAAN;AAElB,eAAwB,mCAAS,MAAT;AAFN;AAAM;AAfC;AAAP;AAElB,eAAyB,oCAAS,MAAT;AAFP;AAAO;AAVF;AAAL;AAElB,eAAc,cAAW,kCAAX;AAFI;AAAK;AAoBD;AAAJ;AAElB,eAAc,cAAW,iCAAX;AAFI;AAAI;AALG;AAET,yCAAC,MAAc,MAAf;AAFS;AA9wBf;AAeE;;;AAEV;AAFU;;;;;AAg0Be;AAAP;AAEf;AACH,UAAG,gBAAK,GAAC,CAAT;AAEE,iBAAQ,SAAK,CAAC,gBAAK,GAAC,CAAP;AACb,oBAAM,CAAC,gBAAK,GAAC,CAAP;OAGN,eAAQ;AATQ;AAAO;AAfC;AAAR;AAGf;AACH,eAAQ,SAAK,CAAC,gBAAK,GAAC,CAAP;AAJK;AAAQ;AAlBC;AAE7B,mBAAO,iBAAK,QAAC;AAFiB;AAAD;AAKA;AAEvB,eAAN,KAAM;AAFuB;AAVJ;AAAL;AAEpB,eAAQ,UAAK,SAAC;AAFM;AAAK;AALE;AAAP;AAEpB,eAAS,UAAK,SAAC,EAAK,IAAE,MAAF;AAFA;AAAO;AAuDH;AAAJ;AAEpB,mBAAQ,CAAC,KAAD;AACR,eAAQ;AAHY;AAAI;AApBD;AAAH;AAEpB,UAAG,YAAO,CAAC,CAAD,CAAV;AACE,iBAAQ;AAER,qBAAQ;AALU;AAAG;AAfC;AAAJ;AAEpB,UAAG,YAAO,CAAC,CAAD,CAAV;AACE,iBAAQ;AAER,qBAAQ;AALU;AAAI;AAzyBZ;AAoBN;AAg0BiB;AAEvB,gBAAK,IAAI,CAAC,KAAD;AAFc;AAh0BjB;AAOM;AA00BY;AAAJ;AAEpB,eAAe,cAAe,iCAAS,OAAT,CAAf;AAFK;AAAI;AALD;AAAH;AAEpB,eAAe,cAAW,gCAAX;AAFK;AAAG;AALC;AAAJ;AAEpB,eAAe,cAAW,iCAAX;AAFK;AAAI;AAh0BZ;AASN;AAw0BiB;AAElB;AACH,kBAAM,CAAC,EAAE,KAAH;AAHe;AAx0BjB;AAOM;AAm1BY;AAAJ;AAEpB,eAAe,cAAe,iCAAS,OAAT,CAAf;AAFK;AAAI;AALD;AAAH;AAEpB,eAAe,cAAW,gCAAX;AAFK;AAAG;AALC;AAAJ;AAEpB,eAAe,cAAW,iCAAX;AAFK;AAAI;AAz0BZ;AAcC,kEAAmB,mBAAyB,4BAA5C;AAKA;;;AAEX;AAFW;AAu4BqB;AAExB;AACV,kBAAM;AAHoD;AAAxB;AAMP;AAAN;AAErB,eAAS,IAAI,KAAC,SAAD;AAFQ;AAAM;AA74Bd;AAQK,6CARL,yCAQK;AAKA;;;AAEhB;AACA;AACA;AAUA;AAdgB;;;;;;AA25BkB;AAAV;AAE1B,eAAQ,mBAAe,GAAE,mBAAF;AAFG;AAAU;AAKW;AAArB;AAE1B,eAAQ,WAAO,GAAiB,CAAf,mBAAe,GAAE,mBAAF,CAAjB;AAFW;AAAqB;AAKJ;AAE3C;AACA;AAEA,UAAG,KAAM,KAAG,mBAAZ;AAEE,YAAG;AACH,eAAoB,CAAb,eAAS,CAAC,CAAD,CAAI,GAAE,KAAF,CAAS,IAAO,CAAF,CAAE,GAAE,EAAF,CAApC,EACK,CAAJ,IAAG;AACJ,kBAAS,eAAS,CAAC,CAAD;AAClB,YAAG,WAAM,KAAE,CAAX;AAEE,gCAAgB;AAChB;SAGA,MAAA,oBAAe,CAAC,OAAD;OAZnB;AAL2C;AAqBG;AAE9C;AAEA,UAAG,mBAAc,GAAC,CAAlB,EACE,SAAO,QAAmB,OAAd,mBAAc,GAAC,CAAD,kBAA1B;AAAI;AACF,uBAAU,IAAI,CAAC,IAAD;OAFlB;AAGA,oBAAQ;AAPsC;AAgHR;AAAZ;AAE1B;AACA;AAEA,YAAK;AACL,UAAG,mBAAc,GAAC,CAAlB,EACE,SAAQ,QAAmB,OAAd,mBAAc,GAAC,CAAD,kBAA3B;AAAI;AACF,YAAG,CAAY,CAAC,UAAK,CAAC,CAAD,CAAN,SAAf,EACM,GAAJ,IAAG,CADL;OAFJ;AAIA,eAAQ;AAVkB;AAAY;AAaC;AAAb;AAE1B,eAAQ,WAAM,GAAE,mBAAF;AAFY;AAAa;AAKC;AAAd;AAE1B,eAAQ,WAAM,GAAkB,CAAf,mBAAe,GAAE,mBAAF,CAAlB;AAFY;AAAc;AAKG;AAAjB;AAE1B;AAEA,eAAQ;AACR,UAAG,mBAAc,GAAC,CAAlB,EACC,SAAO,QAAmB,OAAd,mBAAc,GAAC,CAAD,kBAA1B;AAAI;AACD,YAAG,gBAAW,CAAC,CAAD,CAAI,GAAE,MAApB,EACE,SAAQ,gBAAW,CAAC,CAAD,CADrB;OAFJ;AAL0B;AAAiB;AA5BZ;AAAL;AAE1B,eAAsB,eAAU,SAAC,KAAD;AAFN;AAAK;AAgEM;AAAX;AAE1B,UAAY,UAAK,CAAC,UAAD,CAAN,QAAX;AACE,iBAAQ,UAAK,CAAC,UAAD,CAAY,SAAC;AAE1B,qBAAQ;AALgB;AAAW;AAzBI;AAAf;AAE1B;AACA;AACA;AAEA,iBAAU,kBAAa,CAAC,KAAM,mBAAP;AACvB,YAAK,UAAK,CAAC,QAAD;AACV,UAAY,GAAD,QAAX;AAEE,YAAG,GAAG,SAAC,EAAK,GAAC,CAAb,EACE,SAAO,QAAe,OAAV,GAAG,SAAC,EAAM,GAAE,CAAF,kBAAtB;AAAI;AACF,cAAkB,GAAG,SAAC,CAAD,CAAI,KAAI,KAAC,IAA9B,EACM,OAAS,GAAG,SAAC,CAAD,CADlB;SAFJ;;AAOA,uBAAU,SAAC,SAAW,kBAAa,QAAC,YAAM,CAAC,IAAD,CAAN,CAA1B;AACV,cAAK,UAAK,CAAC,QAAD;;AAER,iBAAJ,IAAG;AACH,eAAQ,kBAAa,CAAC,IAAD;AACrB,SAAG,IAAI,CAAC,MAAD;AAtBmB;AAAe;AA9GC;AAE1C,UAAG,cAAH;AACE,6BAAe;AAEf,kBAAM,sBAAS,QAAC,YAAM,CAAC,iCAAD,CAAN;AALwB;AAwBD;AAAf;AAE1B;AACA;AAEA,iBAAU,kBAAa,CAAC,KAAM,mBAAP;AACvB,eAAQ,UAAK,CAAC,QAAD;AACb,UAAY,MAAD,QAAX;AAEE,YAAG,MAAM,SAAC,EAAK,GAAC,CAAhB,EACE,SAAO,QAAkB,OAAb,MAAM,SAAC,EAAM,GAAE,CAAF,kBAAzB;AAAI;AACF,cAAkB,MAAM,SAAC,CAAD,CAAI,KAAI,KAAC,IAAjC,EACE,MAAM,eAAU,QAAC,aAAS,CAAC,mCAAc,mBAAC,OAAD,CAAf,CAAT,CADnB;SAFJ;;AAOA,uBAAU,SAAC,SAAW,kBAAa,QAAC,YAAM,CAAC,IAAD,CAAN,CAA1B;AACV,iBAAQ,UAAK,CAAC,QAAD;;AAEX,iBAAJ,IAAG;AAnBuB;AAAe;AA/GN;AAEnC,qBAAU,CAAC,kBAAD;AAF0B;AAAD;AAKI;AAG7B;AACV,wBAAY,kBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1B,4BAAe,cAAf;AACA,2BAAe;AALW;AADa;AASJ;AAExB,eAAX,KAAW;AACD;AAHyB;AA+CO;AAE1C;AAAY;AACZ;AACA;AAAG;AACH;AAEA,mBAAY;AACZ,uBAAgB;AAChB,4BAAgB;AAChB,wBAAY,kBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1B;AACA,UAAG,cAAc,GAAC,CAAlB,EACE,SAAO,QAAmB,OAAd,cAAc,GAAC,CAAD,kBAA1B;AAAI;AAEF,eAAoB,UAAU,SAAC,CAAD;AAC9B,YAAY,IAAD,QAAX,EACE,SAAO,SAAgB,QAAX,IAAI,SAAC,EAAM,GAAC,CAAD,qBAAvB;AAAI;AAEF,iBAAoB,IAAI,SAAC,CAAD;AACxB,sBAAO,CAAC,IAAD;SAJX;OAJJ;AAWA,gBAAW,eAAX,UAAW;AAvB+B;AAyKV;AAEhC;AAEA,UAAG,mBAAc,GAAC,CAAlB,EACE,SAAO,QAAoB,OAAf,mBAAe,GAAE,CAAF,kBAA3B;AAAI;AACF,YAAY,UAAK,CAAC,CAAD,CAAN,QAAX,EACE,UAAK,CAAC,CAAD,CAAG,QADV;OAFJ;AAIA,oBAAQ;AARwB;AAhGC;AAEjC;AACA;AACA;AAEA,iBAAU,kBAAa,CAAC,KAAM,mBAAP;AACvB,YAAK,UAAK,CAAC,QAAD;AACV,UAAY,GAAD,QAAX,EACE,IAAG,GAAG,SAAC,EAAK,GAAC,CAAb,EACE,SAAO,QAAe,OAAV,GAAG,SAAC,EAAM,GAAE,CAAF,kBAAtB;AAAI;AACF,YAAiB,GAAG,SAAC,CAAD,CAAI,KAAI,KAAC,IAA7B;AAEE,aAAG,OAAO,CAAC,CAAD;AACN,qBAAJ,IAAG;AACH;SAJF;OAHN;AARiC;AAvCH;AAAJ;AAE1B;AACA;AACA;AAEA,iBAAU,kBAAa,CAAC,KAAM,mBAAP;AACvB,YAAK,UAAK,CAAC,QAAD;AACV,UAAY,GAAD,QAAX,EACE,IAAG,GAAG,SAAC,EAAK,GAAC,CAAb,EACE,SAAO,QAAe,OAAV,GAAG,SAAC,EAAM,GAAE,CAAF,kBAAtB;AAAI;AACF,YAAiB,GAAG,SAAC,CAAD,CAAI,KAAI,KAAC,IAA7B,EACM,OAAe,GAAG,SAAC,CAAD,CADxB;OAHN;AAKA,eAAQ;AAbkB;AAAI;AA0DG;AAAP;AAE1B,eAAS,WAAO,KAAE,CAAF;AAFU;AAAO;AAhiCf;AA6CP;;;AAET;AAFS;;AASQ,0EAAiB,qBAAoB,qBAAsB,0BAA3D;AACE,0EAAiB,qBAAoB,qBAAsB,0BAA3D;AAKL;;;AAEd;AAFc;;;;;AA4mCyB;AAEzC,4BAAiB,CAAC,KAAM,IAAK,QAAZ;AAFwB;AAjBJ;AAAb;AAGxB,eAAQ,gBAAW,QAAC,cAAU,CAAC,IAAD,CAAV;AAHI;AAAa;AAkDL;AAG9B,cAAG,CAAC,WAAI,WAAL;AAH2B;AAvDA;AAEpB,0BAAe,CAAC,KAAD,CAAQ,MAAnC,GAA0C;AAFV;AAXD;AAAP;AAExB;AAEA,aAAkB,SAAI,CAAC,KAAD;AACtB,UAAY,IAAD,QAAX;AACE,iBAAQ,IAAI;AAEZ,qBAAQ;AARc;AAAO;AA4CI;AAAX;AAExB;AAAG;AACH;AAEA,eAAQ;AACR,iBAAU;AACV,UAAG,mBAAc,GAAC,CAAlB,EACE,SAAO,QAAmB,OAAd,mBAAc,GAAC,CAAD,kBAA1B;AAAI;AACF,YAAY,UAAK,CAAC,CAAD,CAAN,QAAX,EACE,IAAG,UAAK,CAAC,CAAD,CAAG,SAAC,EAAK,GAAC,CAAlB,EACE,SAAO,SAAmB,QAAd,UAAK,CAAC,CAAD,CAAG,SAAC,EAAK,GAAC,CAAD,qBAA1B;AAAI;AAEF,iBAAO,CAAa,UAAK,CAAC,CAAD,CAAG,SAAC,CAAD,CAAI,OAAmB,UAAK,CAAC,CAAD,CAAG,SAAC,CAAD,CAAI,MAAM;;;;cAA9D;AACP,cAAG,CAAI,QAAP;AAEE,qBAAoB,UAAK,CAAC,CAAD,CAAG,SAAC,CAAD;AAC5B;WAHF;SALN;OAFJ;AAPwB;AAAW;AAtBJ;AAAP;AAExB;AAEA,UAAG,gBAAW,CAAC,OAAD;AACd,UAAY,CAAD,QAAX;AACE,iBAAQ,CAAC;AAET,qBAAQ;AARc;AAAO;AAgBA;AAAP;AAExB,+BAAqB;AACrB,eAAU,YAAO,CAAE,2CAAF;AAHO;AAAO;AAjDH;AAE5B;AACA;AAEA,YAAK,oBAAe,CAAC,IAAD;AACpB,gBAAqB,kBAAa,CAAC,IAAD;AAClC,aAAO,MAAP,GAAc;AACd,SAAG,IAAI,CAAC,OAAD;AARqB;AAhkCZ;AAkBH;;;AAEX;AAFW;;AAOQ,4EAAiB,oBAAmB,qBAAsB,0BAA1D;AACE,4EAAiB,oBAAmB,qBAAsB,0BAA1D;AAEL;;;AAEhB;AAFgB;;;;;AA0qCyB;AAE3C,4BAAiB,CAAC,KAAM,IAAK,QAAZ;AAF0B;AAhBJ;AAAb;AAE1B,eAAQ,kBAAa,QAAC,cAAU,CAAC,IAAD,CAAV;AAFI;AAAa;AAjCL;AAGhC,cAAG,CAAC,WAAI,WAAL;AAH6B;AAiBA;AAEpB,0BAAe,CAAC,KAAD,CAAQ,MAArC,GAA4C;AAFV;AAXD;AAAP;AAE1B;AAEA,aAAoB,SAAI,CAAC,KAAD;AACxB,UAAY,IAAD,QAAX;AACE,iBAAQ,IAAI;AAEZ,qBAAQ;AARgB;AAAO;AAsDI;AAAX;AAE1B;AAAG;AACH;AAEA,eAAQ;AACR,iBAAU;AACV,UAAG,mBAAc,GAAC,CAAlB,EACE,SAAO,QAAmB,OAAd,mBAAc,GAAC,CAAD,kBAA1B;AAAI;AACF,YAAY,UAAK,CAAC,CAAD,CAAN,QAAX,EACE,IAAG,UAAK,CAAC,CAAD,CAAG,SAAC,EAAK,GAAC,CAAlB,EACE,SAAO,SAAmB,QAAd,UAAK,CAAC,CAAD,CAAG,SAAC,EAAK,GAAC,CAAD,qBAA1B;AAAI;AAEF,iBAAO,CAAe,UAAK,CAAC,CAAD,CAAG,SAAC,CAAD,CAAI,OAAqB,UAAK,CAAC,CAAD,CAAG,SAAC,CAAD,CAAI,MAAM;;;;cAAlE;AACP,cAAG,CAAI,QAAP;AAEE,qBAAsB,UAAK,CAAC,CAAD,CAAG,SAAC,CAAD;AAC9B;WAHF;SALN;OAFJ;AAP0B;AAAW;AAtBJ;AAAP;AAE1B;AAEA,UAAG,gBAAW,CAAC,OAAD;AACd,UAAY,CAAD,QAAX;AACE,iBAAQ,CAAC;AAET,qBAAQ;AARgB;AAAO;AAgBA;AAAP;AAE1B,+BAAqB;AACrB,eAAU,YAAO,CAAE,2CAAF;AAHS;AAAO;AAhCH;AAE9B;AACA;AAEA,YAAK,oBAAe,CAAC,IAAD;AACpB,gBAAuB,kBAAa,CAAC,IAAD;AACpC,aAAO,MAAP,GAAc;AACd,SAAG,IAAI,CAAC,OAAD;AARuB;AA/oCZ;AAoBL;;;AAEX;AAFW;;;;;;AAOK;AAoxCiB;AAEnC,6BAAU,CAAC;;;;UAAD;AACV;AAHmC;AApxCjB;AAKG,4EAAiB,QtBjM/B,2BsBiM+B,EAAoB,qBAAsB,0BAA3D;AACE,4EAAiB,QtBlMjC,2BsBkMiC,EAAoB,qBAAsB,0BAA3D;AAEL;;;AAEhB;AACA;AAHgB;;;;;AA+tCyB;AAE3C,4BAAiB,CAAC,KAAM,IAAK,QAAZ;AAF0B;AApBJ;AAAb;AAE1B,UAAG,iBAAH;AACE,iBAAQ,uBAAkB,QAAC,cAAU,CAAC,IAAD,CAAV;AAE3B,qBAAQ,kBAAa,QAAC,cAAU,CAAC,IAAD,CAAV;AALE;AAAa;AAjCL;AAGhC,cAAG,CAAC,WAAI,WAAL;AAH6B;AAiBA;AAEpB,0BAAe,CAAC,KAAD,CAAQ,MAArC,GAA4C;AAFV;AAXD;AAAP;AAE1B;AAEA,aAAoB,SAAI,CAAC,KAAD;AACxB,UAAY,IAAD,QAAX;AACE,iBAAQ,IAAI;AAEZ,qBAAQ;AARgB;AAAO;AA0DI;AAAX;AAE1B;AAAG;AACH;AAEA,eAAQ;AACR,iBAAU;AACV,UAAG,mBAAc,GAAC,CAAlB,EACE,SAAO,QAAmB,OAAd,mBAAc,GAAC,CAAD,kBAA1B;AAAI;AACF,YAAY,UAAK,CAAC,CAAD,CAAN,QAAX,EACE,IAAG,UAAK,CAAC,CAAD,CAAG,SAAC,EAAK,GAAC,CAAlB,EACE,SAAO,SAAmB,QAAd,UAAK,CAAC,CAAD,CAAG,SAAC,EAAK,GAAC,CAAD,qBAA1B;AAAI;AAEH,iBAAO,CAAe,UAAK,CAAC,CAAD,CAAG,SAAC,CAAD,CAAI,OAAqB,UAAK,CAAC,CAAD,CAAG,SAAC,CAAD,CAAI,MAAM;;;;cAAlE;AACP,cAAG,CAAI,QAAP;AAEE,qBAAsB,UAAK,CAAC,CAAD,CAAG,SAAC,CAAD;AAC9B;WAHF;SALL;OAFJ;AAP0B;AAAW;AAsBF;AAEzB;AACV,0BAAc;AAHqD;AAAhC;AAMI;AAEnB,mDAAC,eAAe,SAAhB;AACpB,0BAAc;AAH6G;AAApF;AAlDN;AAAP;AAE1B;AAEA,UAAG,gBAAW,CAAC,OAAD;AACd,UAAY,CAAD,QAAX;AACE,iBAAQ,CAAC;AAET,qBAAQ;AARgB;AAAO;AAgBA;AAAP;AAE1B,+BAAqB;AACrB,eAAU,YAAO,CAAE,2CAAF;AAHS;AAAO;AApCH;AAE9B;AACA;AAEA,YAAK,oBAAe,CAAC,IAAD;AACpB,gBAAuB,kBAAa,CAAC,IAAD;AACpC,aAAO,MAAP,GAAc;AACd,SAAG,IAAI,CAAC,OAAD;AARuB;AAhsCZ;AAqBR;;AACE;;AAutBX,UAAG;AAFS;AAAN;AAIP;AACA;AAEA,QAAG;AACH,aAAQ;AACR,QAAU,CAAD,OAAG,GAAC,CAAb,EACE,SAAO,QAAW,OAAC,CAAD,yBAAlB;AAAI;AAEF,eAAe,CAAP,MAAO,GAAE,CAAF,CAAI,GAAM,CAAD,YAAG,CAAD,IAAF,CAAL;AACnB,UAAG,CAAE,GAAE,MAAF;KAJT;AAMA,aAAgB,OAAP,MAAO,GAAI,UAAJ,CAAe,GAAI,SAAJ;AAfxB;AAAM;AA3sBF;AACT;AAAM;AADG;aACT,sBAAM;AADG;;AACT;AAAM;AADG;;;AACT;AAAM;AADG;AAGK,2CAHL,iCAGK;AAET;AACL;AADK;;gBAEL;AAFK;;;aACL,wBACA;AAFK;;AACL;AACA;AAFK;;;AACL;AACA,wBAJc,8BAId;AAFK;AAIK,uCAJL,6BAIK;AAED,qEAA+B,sBAAO,sBAAO,sBAAwB,2BAArE;AAQM;;;AAEf;AAFe;;;;;AAyuCsB;AAAd;AAEzB,eAAc,WAAC,aAAD;AAFW;AAAc;AARP;AAAP;AAEzB;AAAE;AAEF,wBAAa,CAAC,MAAM;;;;WAAE;;;;UAAT;AACb,eAAQ,aAAQ,CAAC,CAAD,CAAG,MAAM,CAAC,CAAD,CAAG;AALH;AAAO;AAaC;AAEjC;AAAE;AAEF,wBAAa,CAAC,MAAM;;;;WAAE;;;;UAAT;AACb,mBAAQ,CAAC,CAAD,CAAG,MAAM,CAAC,CAAD,CAAG,KAApB,GAA2B;AALM;AAQO;AAExC,UAAI,KAAK,KAAE,qBAAX,EACY,aAAD,sBAAC,2BAAS,KAAV,CADX;AAFwC;AAMD;AAGvC,UAAG,CAAI,aAAQ,CAAC,MAAM,QAAQ,MAAf,CAAf,EACE,UAAK,CAAC,qCAAe,mBAAC,QAAD,CAAhB,CADP;AAHuC;AAOP;AAAP;AAGzB;AAEA,UAAS,WAAC,aAAQ,CAAC,OAAD,CAAS,MAAlB;AACT,UAAI,aAAQ,CAAC,OAAD,CAAS,MAAM,KAAC,CAA5B;AAEE,YAAG,CAAC,GAAC,CAAL;AACE,cAAG;AAEH,kBAAG,CAAC,GAAG,UAAF,CAAE,GAAI,CAAJ,CAAH;AACI,qBAAQ,CAAC,OAAD,CAAS,MAAlB,sBAAC,aAAQ,CAAC,OAAD,CAAS,wBAAO,CAAzB;OANX;AAQa,kBAAR,aAAQ,CAAC,OAAD;AAEX,iBAAK,CAAC,WAAD,CAAO,KAAZ,GAAmB;AACnB,iBAAK,CAAC,WAAD,CAAO,KAAZ,GAAmB;AACnB,eAAQ;AACJ,iBAAJ,IAAG;AAnBoB;AAAO;AAuBG;AAAV;AAEzB;AAAE;AAEF,eAAQ,aAAQ,CAAC,OAAD,CAAS,MAAM,CAAC,MAAD,CAAQ;AACvC,UAAG,aAAQ,CAAC,OAAD,CAAS,MAAM,KAAC,CAA3B;AACY,qBAAQ,CAAC,OAAD,CAAS,MAAlB,sBAAC,aAAQ,CAAC,OAAD,CAAS,wBAAO,CAAzB;;AAGT,YAAI,aAAQ,CAAC,OAAD,CAAS,MAAa,GAAN,MAAD,GAAQ,CAAD;AAClC,iBAAO,QAAM,OAAD,CAAC,GAAC,CAAD,kBAAb;AAAI;AACF,uBAAQ,CAAC,OAAD,CAAS,MAAM,CAAC,MAAM,GAAC,CAAR,UAAY,aAAQ,CAAC,OAAD,CAAS,MAAM,CAAC,MAAQ,GAAD,CAAD,GAAG,CAAV,CAAnC;;;AAEvB,mBAAQ,CAAC,OAAD,CAAS,MAArB,IAAG;AAbsB;AAAU;AAgBJ;AAE/B,YAAM,sBAAU,QAAC,aAAS,CAAC,IAAI,IAAL,CAAT;AAFc;AAKE;AAAR;AAGzB;AACA;AAEA,kBAAS,cAAS,CAAC,KAAD,CAAlB;AACA,gBAAG,aAAQ,CAAC,aAAD,CAAX;AACA,UAAG,CAAC,MAAM,GAAC,CAAD;AACV,aAAQ,CAAD,CAAC,IAAE,CAAF,CAAK,IAAoB,CAAf,CAAC,MAAM,CAAC,CAAD,CAAG,KAAK,IAAE,KAAF,CAAjC,EACM,CAAJ,IAAG;AACL,eAAQ,CAAC,IAAE,CAAF;AACT,UAAG,MAAH,EACE,WAAQ,CAAR,CADF;AAZyB;AAAQ;AAgBC;AAElC;AACU;AAHwB;AAMH;AAE/B;AACA;AAAE;AAEF,eAAO,QAAqB,OAAV,WAAC,aAAD,CAAU,GAAC,CAAD,kBAA5B;AAAI;AAEF,kBAAG,aAAQ,CAAC,CAAD,CAAX;AACA,iBAAc,MAAP,CAAC,MAAM,GAAC,CAAD,EAAU,eAAxB;AAAI;AACF,yBAAU,CAAC,EAAE,CAAH;;;AAEJ,mBAAD,sBAAC,2BAAS,CAAV;AAXsB;AAcH;AAAH;AAEzB;AAAE;AAEF,UAAG,aAAQ,CAAC,MAAM;;;;WAAE;;;;UAAT,CAAX,EACE,UAAK,CAAC,qCAAe,mBAAC,QAAD,CAAhB,CADP;AAEA,eAAQ,YAAO,CAAC,EAAE,MAAM,KAAT;AANU;AAAG;AASI;AAEhC;AAAE;AAEF;AACU,mBAAD,sBAAC,2BAAe,WAAC,KAAK,SAAN,CAAhB;AACT,eAAO,QAAgB,OAAX,qBAAW,GAAC,CAAD,kBAAvB;AAAI;AAEQ,qBAAQ,CAAC,CAAD,CAAG,MAAZ,sBAAC,aAAQ,CAAC,CAAD,CAAG,wBAAa,WAAC,KAAK,SAAS,CAAC,CAAD,CAAG,MAAlB,CAAzB;AACT,iBAAO,SAA4B,QAAvB,KAAK,SAAS,CAAC,CAAD,CAAG,MAAM,GAAC,CAAD,qBAAnC;AAAI;AAC0B,sBAAvB,KAAK,SAAS,CAAC,CAAD,CAAG,MAAM,CAAC,CAAD;AAC1B,sBAAO,CAAC,EAAE,WAAK,UAAR;;;AAXmB;AAeD;AAAN;AAEzB;AAAE;AAEF,eAAQ,aAAQ,CAAC,MAAM;;;;WAAE;;;;UAAT;AAJS;AAAM;AAOF;AAAJ;AAEzB;AAAE;AAEF,eAAQ,aAAQ,CAAC,MAAM;;;;WAAE;;;;UAAT;AAChB,UAAG,MAAH,EACE,UAAO,aAAQ,CAAC,CAAD,CAAG,MAAM,CAAC,CAAD,CAAG,KAA3B,CADF;AALyB;AAAI;AAcG;AAAP;AAEzB;AAAE;AAAE;AACJ;AAEA,UAAG;AACH,eAAQ;AACR,UAAG;AACH,aAAM,MAAO,IAAM,CAAD,CAAC,GAAC,CAAD,CAAnB;AAEE,YAAG;AACH,mBAAI,aAAQ,CAAC,CAAD,CAAZ;AACA,eAAM,MAAO,IAAM,CAAD,CAAC,GAAC,EAAE,MAAH,CAAnB;AAEe,sBAAR,EAAE,MAAM,CAAC,CAAD;AACX,eAAK,CAAC,MAAM,WAAK,WAAK;;;;cAAjB;AACH,WAAJ,IAAG;;AAED,SAAJ,IAAG;;AAlBoB;AAAO;AALA;AAAP;AAEzB,eAAQ,YAAO,CAAC,MAAM,IAAP;AAFU;AAAO;AA2BD;AAAN;AAEzB;AAAE;AAEF,UAAG,aAAQ,CAAC,MAAM;;;;WAAE;;;;UAAT,CAAX;AAEE,iBAAQ,aAAQ,CAAC,CAAD,CAAG,MAAM,CAAC,CAAD,CAAG;AAC5B,uBAAU,CAAC,EAAE,CAAH;OAGV,eAAQ;AAVe;AAAM;AAt5Cd;AAkCD;;AAIL;;;AAET;AAFS;AA+3CiB;AAAT;AAGnB,eAAgC,OAAP,OAAR,UAAC,KAAD,CAAQ,KAAI,CAAJ,CAAO,GAAI,gBAAJ;AAHb;AAAS;AAMA;AAE5B;AAEU;AACV,UAAG,CAAE,IAAkB,CAAT,QAAS,GAAC,CAAD,CAAlB;AACL,yBAAc,CAAC,CAAD;AACd,yBAAa,CAAC,GAAC,CAAD;AAP2C;AAA7B;AAr4CjB;AAeM;AAk4Ce;AAAP;AAEzB,eAAe,cAAkB,yCAAC,KAAD,CAAlB;AAFU;AAAO;AAKC;AAEhB,+CAAS,MAAe,KAAxB;AAFgB;AAKL;AAAH;AAEzB,eAAe,cAAc,qCAAS,MAAe,KAAxB,CAAd;AAFU;AAAG;AAKG;AAAN;AAEzB,eAAe,cAAiB,wCAAS,KAAT,CAAjB;AAFU;AAAM;AAj5Cd;AA5ZnB,mBAuac;AAaL,oBAAG;AAEA,kDAAS,EAAT;AAAD,uBACP,GAAY,GAAY,IAAW,IAAW,IAC9C,KAAY,KAAY,KAAW,MAAW,MAC9C,MAAY,MAAY,OAAW,OAAW,OAC9C,QAAY,QAAY,QAAW,SAAW,SAC9C,SAAY,UAAY,UAAW,UAAW,UAC9C,WAAY,WAAY,UANjB;AAiUK;;;AAEZ;AAFY;;;;;AAOqB;AAGnC,YAAI,SAAS,KAAC,+BAAd,EACE,UAAK,iBAAiB,CAAC,KAAK,UAAN,CADxB;AAEA;AALmC;AAPrB;;AAhVF,6BAMA,6DAED,6CACG,iDACA,wDAVF;;AAvad,GAuac,KAvad;ARCA,8BAIS,iDAJT;;;;AAUgB,wBAAG;AACP,oBAAG;AAEP,gBAAG,CAAC;AACH,iBAAG;AACF,kBAAG;AACJ,iBAAG;AACH,iBAAG;AACJ,gBAAG;AACD,kBAAG;AACL,gBAAG;AACH,gBAAG;AACD,kBAAG;AACN,eAAG;AACF,gBAAG;AACD,kBAAG;AACL,gBAAG;AACA,mBAAG;AACN,gBAAG;AACD,kBAAG;AACH,kBAAG;AACJ,iBAAG;AACE,sBAAG;AACN,mBAAG;AACL,iBAAG;AACD,mBAAG;AAEH,mBAAG;AACH,mBAAG;AACA,sBAAG;AACP,kBAAG;AACA,qBAAG;AACC,yBAAG;AACR,oBAAG;AACL,kBAAG;AACI,yBAAG;AACD,2BAAI;AACA,+BAAG;AACd,oBAAG;AAEF,qBAAG;AACF,sBAAG;AACT,gBAAG;AACI,uBAAG;AACN,oBAAG;AACA,uBAAG;AACF,wBAAG;AACH,wBAAG;AACN,qBAAG;AACJ,oBAAG;AACJ,mBAAG;AACE,wBAAG;AACL,sBAAG;AACN,mBAAG;AACG,yBAAG;AACT,mBAAG;AAGE,wBAAG;AACA,2BAAG;AACX,mBAAG;AACG,yBAAG;AACR,oBAAG;AACH,oBAAG;AACF,qBAAG;AACJ,oBAAG;AACM,6BAAG;AACb,mBAAG;AACG,yBAAG;AACR,oBAAG;AACC,wBAAG;AACH,wBAAG;AACF,yBAAG;AACJ,wBAAG;AACP,oBAAG;AACM,6BAAG;AACT,uBAAG;AACJ,sBAAG;AACN,mBAAG;AACC,uBAAG;AACH,uBAAG;AACE,4BAAG;AACR,uBAAG;AACF,wBAAG;AACJ,uBAAG;AACF,wBAAG;AACD,0BAAG;AACA,6BAAG;AACP,yBAAG;AACH,yBAAG;AACN,sBAAG;AACA,yBAAG;AACD,2BAAG;AACF,4BAAG;AACH,4BAAG;AACH,4BAAG;AACH,4BAAG;AACN,yBAAG;AACL,uBAAG;AACA,0BAAG;AACP,sBAAG;AACH,sBAAG;AACA,yBAAG;AACJ,wBAAG;AACD,0BAAG;AACH,0BAAG;AACP,sBAAG;AACD,wBAAG;AACF,yBAAG;AACT,mBAAG;AACE,wBAAG;AACR,mBAAG;AACF,oBAAG;AACG,0BAAG;AACV,mBAAG;AACC,uBAAG;AACJ,sBAAG;AACD,wBAAG;AACN,qBAAG;AACJ,oBAAG;AACH,oBAAG;AACA,uBAAG;AACE,4BAAG;AACP,wBAAG;AACA,2BAAG;AACN,wBAAG;AACF,yBAAG;AACJ,wBAAG;AACQ,mCAAG;AACd,wBAAG;AACF,yBAAG;AACJ,wBAAG;AACH,wBAAG;AACD,0BAAG;AACD,4BAAG;AACJ,2BAAG;AACD,6BAAG;AACH,6BAAG;AACH,6BAAG;AACN,0BAAG;AACR,qBAAG;AACF,sBAAG;AACJ,qBAAG;AACC,yBAAG;AACA,4BAAG;AACX,oBAAG;AACJ,mBAAG;AACE,wBAAG;AACP,oBAAG;AACD,sBAAG;AACJ,qBAAG;AACO,+BAAG;AACT,yBAAG;AACD,2BAAG;AACH,2BAAG;AACD,6BAAG;AACF,8BAAG;AACD,gCAAG;AACL,8BAAG;AACH,8BAAG;AACN,2BAAG;AACN,wBAAG;AACH,wBAAG;AACJ,uBAAG;AACA,0BAAG;AACV,mBAAG;AACA,sBAAG;AACL,oBAAG;AACC,wBAAG;AACN,qBAAG;AACA,wBAAG;AACN,qBAAG;AACI,4BAAG;AACP,wBAAG;AACC,4BAAG;AACH,4BAAG;AACN,yBAAG;AACJ,wBAAG;AACR,mBAAG;AACH,mBAAG;AACH,mBAAG;AACG,yBAAG;AACP,qBAAG;AACN,kBAAG;AACG,wBAAG;AACH,wBAAG;AACD,0BAAG;AACR,qBAAG;AACC,yBAAG;AACL,uBAAG;AACH,uBAAG;AACL,qBAAG;AACH,qBAAG;AACF,sBAAG;AACD,wBAAG;AACH,wBAAG;AACH,wBAAG;AACR,mBAAG;AACI,0BAAG;AACL,wBAAG;AACT,kBAAG;AACF,mBAAG;AACA,sBAAG;AACJ,qBAAG;AACA,wBAAG;AACN,qBAAG;AACJ,oBAAG;AACH,oBAAG;AACE,yBAAG;AACP,qBAAG;AACE,0BAAG;AAER,qBAAG;AACA,wBAAG;AACL,sBAAG;AACR,iBAAG;AACH,iBAAG;AACF,kBAAG;AACK,0BAAG;AACP,sBAAG;AACR,iBAAG;AACC,qBAAG;AACH,qBAAG;AACF,sBAAG;AACJ,qBAAG;AACP,iBAAG;AACM,0BAAG;AACT,oBAAG;AACJ,mBAAG;AACN,gBAAG;AACC,oBAAG;AACH,oBAAG;AACE,yBAAG;AACR,oBAAG;AACF,qBAAG;AACJ,oBAAG;AACF,qBAAG;AACD,uBAAG;AACA,0BAAG;AACP,sBAAG;AACH,sBAAG;AACN,mBAAG;AACA,sBAAG;AACD,wBAAG;AACF,yBAAG;AACH,yBAAG;AACH,yBAAG;AACH,yBAAG;AACN,sBAAG;AACL,oBAAG;AACA,uBAAG;AACP,mBAAG;AACH,mBAAG;AACA,sBAAG;AACJ,qBAAG;AACD,uBAAG;AACH,uBAAG;AACL,qBAAG;AACF,sBAAG;AACT,gBAAG;AACE,qBAAG;AACD,uBAAG;AACV,gBAAG;AACC,oBAAG;AACJ,mBAAG;AACD,qBAAG;AACN,kBAAG;AACJ,iBAAG;AACH,iBAAG;AACA,oBAAG;AACE,yBAAG;AACP,qBAAG;AACA,wBAAG;AACN,qBAAG;AACF,sBAAG;AACJ,qBAAG;AACQ,gCAAG;AACd,qBAAG;AACF,sBAAG;AACJ,qBAAG;AACH,qBAAG;AACD,uBAAG;AACD,yBAAG;AACJ,wBAAG;AACD,0BAAG;AACH,0BAAG;AACH,0BAAG;AACN,uBAAG;AACD,yBAAG;AACP,qBAAG;AACP,iBAAG;AACD,mBAAG;AACM,4BAAG;AACT,sBAAG;AACD,wBAAG;AACH,wBAAG;AACD,0BAAG;AACF,2BAAG;AACD,6BAAG;AACL,2BAAG;AACH,2BAAG;AACN,wBAAG;AACN,qBAAG;AACH,qBAAG;AACJ,oBAAG;AACA,uBAAG;AACP,mBAAG;AACD,qBAAG;AACN,kBAAG;AACA,qBAAG;AACN,kBAAG;AACI,yBAAG;AACP,qBAAG;AACC,yBAAG;AACH,yBAAG;AACN,sBAAG;AACJ,qBAAG;AACR,gBAAG;AACH,gBAAG;AACH,gBAAG;AACG,sBAAG;AACJ,qBAAG;AACH,qBAAG;AACD,uBAAG;AACR,kBAAG;AACC,sBAAG;AACL,oBAAG;AACH,oBAAG;AACL,kBAAG;AACA,qBAAG;AACH,qBAAG;AACH,qBAAG;AACR,gBAAG;AACI,uBAAG;AACL,qBAAG;AACT,eAAG;AACC,mBAAG;AACJ,kBAAG;AACA,qBAAG;AACN,kBAAG;AACJ,iBAAG;AACE,sBAAG;AACF,uBAAG;AAGA,0BAAG;AAEP,sBAAG;AACA,yBAAG;AACJ,wBAAG;AACN,qBAAG;AACE,0BAAG;AACJ,yBAAG;AACL,uBAAG;AACF,wBAAG;AACE,6BAAG;AACT,uBAAG;AACD,yBAAG;AACJ,wBAAG;AACH,wBAAG;AACH,wBAAG;AACF,yBAAG;AACN,sBAAG;AACG,4BAAG;AACV,qBAAG;AAGR;AAIY;;AAET;;AAGD;;AAIG;;AAGG;;AAEJ;;AAEC,iCAFD,kCAEC;AAEC;AAEA;;AAKD,iCALC,oCAKD;AAGE;AAEA;AACX;AACA;AAFW;aACX,gBACA;AAFW;;AACX;AACA;AAFW;;;AACX;AACA;AAFW;AAKD;AACV;AAAM;AAAK;AAAO;AADR;aACV,sBAAM,IAAA,oBAAK,IAAA,wBAAO,8BAAZ;AADI;;AACV;AAAM;AAAK;AAAO;AADR;;;AACV;AAAM;AAAK;AAAO;AADR;AAIA;AACV;AACA;AAFU;aACV,kBACA;AAFU;;AACV;AACA;AAFU;;;AACV;AACA;AAFU;AAKR;;;AAEF;AACA;AACA;AACA;AALE;AA6zBiB;AAErB,oBAAU;AAFW;AARA;AAErB,oBAAU;AACV,oBAAU;AACV,oBAAU;AACV,mBAAS;AALa;AAAD;AAZF;AAEnB,UAAc,SAAH,eAAP,MAAO,CAAX;AAEE,sBAAkB,OAAP,OAAU,SAAH,CAAQ;AAC1B,sBAAkB,OAAP,OAAU,SAAH,CAAQ;AAC1B,sBAAkB,OAAP,OAAU,SAAH,CAAQ;OAG1B;AATiB;AAzyBf;AAQgB;AAGJ,6BA3DV,qBA2DU;AACD,4BAnDP,uBAmDO;AACC;AACA,6BAxDP,wBAwDO;AAdZ;AAiBU;;;AAEZ;AACA;AAHY;AA6yFe;AAE7B,UAAc,mBAAH,eAAP,MAAO,CAAX;AAEE,sBAAkB,OAAP,OAAU,mBAAH,CAAkB;AACpC,qBAAiB,OAAP,OAAU,mBAAH,CAAkB;OAHrC;AAF6B;AASE;AAE/B,oBAAU;AACV,mBAAS;AAHuB;AAAD;AAtzFjB;AAMM;AAEL;AACC,6BA1EV,qBA0EU;AATF;AAYR;;;AAEJ;AACA;AACA;AACA;AALI;;;;;AA80BiB;AAEvB,oBAAU;AACV,oBAAU;AACV,uBAAa;AACb,6BAAmB,iBAAK,QAAC;AALD;AAAD;AAQA;AAEP,eAAhB,KAAgB;AAChB;AAHuB;AArCF;AAErB,UAAc,WAAH,eAAP,MAAO,CAAX;AAEE,sBAAkB,OAAP,OAAU,WAAH,CAAU;AAC5B,sBAAkB,OAAP,OAAU,WAAH,CAAU;OAG5B;AARmB;AAVU;AAE/B;AAEA,WAAM,mBAAc,QAAC;AACrB,QAAE,OAAF,GAAY;AACZ,QAAE,MAAF,GAAW;AACX,0BAAe,IAAI,CAAC,EAAD;AAPY;AAqDA;AAG/B,UAAG,MAAO,GAAE,oBAAe,SAAC,EAA5B;AAEE,mBAAwB,cAAC,oBAAe,KAAC,MAAD,CAAhB,CAAyB,OAAjD;AACA,kBAAuB,cAAC,oBAAe,KAAC,MAAD,CAAhB,CAAyB,MAAhD;OAGA,YAAM,sBAAS,QAAC,YAAM,CAAC,8BAAD,CAAN;AATa;AAYJ;AAAb;AAEd,eAAU,oBAAe,SAAC;AAFZ;AAAa;AAvCC;AAE5B;AACA;AAEA,eAA+B,KAAtB,oBAAe,SAAC,EAAM,GAAE,CAAF,EAAW,aAA1C;AAAI;AAEF,aAAoB,cAAC,oBAAe,KAAC,CAAD,CAAhB;AACpB,UAAG,eAAH,EAAG;AACH,4BAAe,OAAO,CAAC,CAAD;;AATI;AAj0BtB;AAOc;AAQD,gCA5EL,6BA4EK;AACH,6BA7FV,qBA6FU;AACA,6BAjFL,0BAiFK;AAjBV;AAoBD;;;AAEH;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATG;;;;;;AAs5BkB;AAEvB;AAEA,UAAY,CAAP,CAAC,KAAM,GAAE,EAAF,CAAI,GAAC,EAAD;AAChB,mBAAS,UAAK,CAAC,CAAD;AAEd,UAAI,YAAQ,KAAG,KAAf;AAEE,uBAAW;AACX;OAHF;AAPuB;AA3BF;AAErB,UAAI,UAAM,KAAG,KAAb;AAEE,qBAAS;AACT;OAHF;AAFqB;AASA;AAErB,UAAI,UAAM,KAAG,KAAb;AAEE,qBAAS;AACT;OAHF;AAFqB;AASC;AAEtB,UAAI,WAAO,KAAG,MAAd;AAEE,sBAAU;AACV;OAHF;AAFsB;AAuBA;AAEtB,UAAW,UAAP,YAAU,MAAH,CAAX;AAEE,sBAAU;AACV;OAHF;AAFsB;AAmBA;AAEtB,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAFsB;AA5FF;AAEpB,UAAc,UAAH,eAAP,MAAO,CAAX;AAEE,qBAAiB,OAAP,OAAU,UAAH,CAAS;AAC1B,sBAAkB,OAAP,OAAU,UAAH,CAAS;AAC3B,qBAAiB,OAAP,OAAU,UAAH,CAAS;AAC1B,sBAA2B,WAAT,OAAP,OAAU,UAAH,CAAS;AAC3B;OAGA;AAXkB;AAkFE;AAEtB;AACA,mBAAS;AACT,mBAAS;AACT,qBAAW,CAAC;AACZ,oBAAU;AACV,oBAAU;AAPa;AAAD;AApED;AAAR;AAEb;AAEA,UAAK;AACL,UAAsB,CAAP,sBAAO,IAAG,WAAH,CAAU,IAAyB,CAAT,wBAAS,IAAG,WAAH,CAAzD;AACE,YAAK,CAAE,GAAE,aAAF;AACJ,gBAAc,sBAAO,IAAG,WAAxB;AACH,YAAK,CAAE,GAAE,MAAF;AACJ,gBAAc,wBAAS,IAAG,WAA1B,EACH,IAAK,CAAE,GAAE,QADN;AAGL,UAAG,UAAK,KAAG,CAAX;AACE,iBAAU,CAAmD,GAA/C,GAAF,GAAQ,mBAAc,CAAC,iBAAY,CAAC,UAAD,CAAb,CAAhB,GAAuC,GAAF,GAAQ,UAAF;AAE7D,qBAAU,CAAiD,GAA7C,GAAF,GAAQ,mBAAc,CAAC,iBAAY,CAAC,EAAD,CAAb,CAAhB,GAAqC,GAAF,GAAQ,UAAF;AAfhD;AAAQ;AAz2BhB;AAmBe;AAKF,+BAnGN,2BAmGM;AACH,4BJ7fN,+BI6fM;AACE;AACD,6BAxGL,0BAwGK;AACA,6BA7HV,qBA6HU;AACD;AA7BV;AAgCK;;AAkFH;AAXA;AAjEU;AAET;;;AAEN;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAbM;;;;;;;;;;AAkiFkB;AAG5B;AAEE;AACA;AAN0B;AAqBD;AAG3B;AAEE;AACA;AANyB;AAuBA;AAAT;AAEhB,UAAG,CAAY,CAAC,YAAD,SAAf,EACE,qBADF;AAGA,eAAU;AACV,yBAAe;AANC;AAAS;AASF;AAAP;AAEhB,eAAU;AAFM;AAAO;AApEC;AAExB;AAEA,UAAI,aAAS,KAAG,KAAhB;AAEE,wBAAY;AACZ,aAAM,6CAAsB,CAAC,aAAD;AAC5B,YAAG,cAAG,CAAC,UAAW,EAAZ,CAAgB,GAAE,CAAxB;AACE,+BAAgB,CAAC,4BAA6B,GAAE,EAAhC;AAEhB,cAAA,qBAAgB,CAAC,wBAAyB,GAAE,EAA5B;OAPpB;AAJwB;AArEC;AAEzB;AAEA,oBAAiB,CAAN,eAAM,KAAE,CAAF,CAAK,IAAY,CAAP,gBAAO,KAAE,CAAF,CAAZ;AACtB,UAAG,CAAI,WAAyB,IAAP,CAAN,UAAM,KAAG,EAAH,CAAX,IAAsB,CAAI,YAAM,OAAO,CAAC,UAAD,CAArD;AAEE,oBAAM,MAAI,CAAC,mBAAa,QAAC,YAAM,CAAC,YAAQ,UAAT,CAAN,CAAf;AACV,YAAK,YAAM,QAAQ,CAAC,UAAD;AACnB,YAAM,CAAF,CAAE,IAAG,CAAH,CAAM,IAAO,CAAF,CAAE,IAAgB,CAAb,YAAM,SAAC,EAAM,GAAE,CAAF,CAAhB,CAAnB,EACE,YAAM,OAAO,CAAC,CAAD,CADf;AAGI,yBAAJ,IAAG;AACH,YAAG,iBAAY,KAAE,CAAjB;AAEE,cAAY,+BAAW,mBAAZ,QAAX,EACE,+BAAW,mBAAkB,CAAC,+BAAD,CAD/B;SAFF;OARF;AAeA,UAAY,cAAD,QAAX;AAEE,sBAAS,CAAC,IAAD;OAFX;AAKA,UAAY,YAAD,QAAX;AAEE;AACA,uBAAW;OAHb;AAzByB;AAmGF;AAEvB,kBAAQ;AACR,sBAAW,CAAC,IApgFuD,IAogFxD;AAHY;AAeC;AAAR;AAEhB;AAEA,UAAK;AACL,UAAY,WAAD,QAAX;AAGF;OAHE;AAMA,eAAU;AAXM;AAAQ;AA4BC;AAAT;AAEhB;AAEA,UAAK;AACL,UAAY,WAAD,QAAX;AAGF;OAHE;AAMA,eAAU;AAXM;AAAS;AApMM;AAE/B,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,sBAAuC,QAAQ,cAAc,CAAC,QAAD,CAD/D;AAGA,UAAY,mBAAD,QAAX;AAEE,2BAAc,OAAd,GAAyB;AACzB,2BAAc,MAAd,GAAwB;AACxB,YAAG,CAAY,CAAC,YAAD,SAAf;AAEE,yBAAW,YAAO,QAAC,YAAM,CAAC,mBAAD,CAAN;AACnB,sBAAO,cAAP,GAAwB;AACxB,sBAAO,YAAP,GAAsB;SAJxB;OAJF;AAL+B;AAiDF;AAE7B,kBAAO;AAFsB;AAqCF;AAE3B,yBAAe;AACf;AACA,yBAAe;AAJY;AAjRE;AAG/B;AACA;AACA;AACA;AAN+B;AAqOD;AAG9B;AAH8B;AAtKE;AAE9B;AACA;AACA;AACA;AACA;AAEA,mBAAS;AACT,UAAG,cAAG,CAAC,QAAS,sBAAS,CAAC,KAAD,CAAnB,CAA4B,GAAE,CAApC;AAEE,wBAAY,+CAAwB,CAAC,KAAD;OAFtC;AAKA,WAAM;AACN,UAAG,EAAG,KAAE,EAAR,EACE,MADF;AAGA,qBAAW;AACX,yBAAe;AAEf,UAAG,CAAI,YAAM,KAAK,CAAC,GAAI;;;;UAAL,CAAlB;AAEE,YAAK;AACL,YAAK;AAET;AACA;AAGI,YAAK,CAAE,IAAQ,CAAH,EAAG,KAAG,CAAH,CAAR;AACP,YAAG,CAAH;AAEE;AACA;SAHF;AAMA,YAAU,CAAN,CAAI,CAAE,IAAwB,CAAnB,YAAM,QAAQ,CAAC,EAAD,CAAK,KAAE,CAAC,CAAH,CAAxB,CAA+B,IAAG,CAA5C;AAGJ;AACA;AAGM,uBAAS;AACT,cAAG,cAAG,CAAC,QAAS,sBAAS,CAAC,EAAD,CAAnB,CAAyB,GAAE,CAAjC,EACE,gBAAY,+CAAwB,CAAC,EAAD,CADtC;AAGI,2BAAJ,IAAG;AACH,cAAG,gBAAH,EACE,YAAM,IAAI,CAAC,EAAD,CADZ;SAGG,UAAI,CAAI,CAAE,IAAwB,CAAnB,YAAM,QAAQ,CAAC,EAAD,CAAK,KAAG,CAAC,CAAJ,CAAlC;AAGT;SAHS;;AASL,sBAAU;AACV;;AAIJ;AACA;AACA;AApEgC;AAiKU;AAAlB;AAEtB,eAAU,yBAAkB,CAAC,UAAW,CAAZ;AAFN;AAAkB;AAnBA;AAAlB;AAGtB,eAAU,aAAQ,QAAC;AACnB,YAAM,iBAAiB,CAAC,SAAD;AAJD;AAAkB;AAOL;AAAb;AAEtB,eAAU,oBAAa,CAAC,KAAM,CAAP;AAFD;AAAa;AAKA;AAAb;AAGtB,eAAU,aAAQ,QAAC;AACnB,YAAM,YAAY,CAAC,KA14EgD,IA04EjD;AAJI;AAAa;AA/Jd;AAAL;AAEhB,eAAU;AAFM;AAAK;AA8NA;AAAL;AAEhB,eAAU;AAFM;AAAK;AA/HS;AAAd;AAEhB,eAAU;AACV,UAAY,YAAD,QAAX,EACE,SAAU,YAAO,iBADnB;AAHgB;AAAc;AAPJ;AAAV;AAEhB,eAAU;AACV,UAAY,YAAD,QAAX,EACE,SAAU,YAAO,WAAW,CAAC,KAAD,CAD9B;AAHgB;AAAU;AAvHD;AAEzB,yBAAe;AACf,oBAAU;AACV,mBAAS;AACT,sBAAY;AACZ;AACA,sBAAW,CAAC,IA/sEuD,IA+sExD;AAP4B;AAAd;AAtCA;AAEzB,yBAAe;AACf,oBAAU;AACV,mBAAS;AACT,sBAAY;AACZ,kBAAQ;AACR,oBAAU;AACV,qBAAW;AAR+B;AAAjB;AA2BA;AAEzB,yBAAe;AACf,oBAAU;AACV,mBAAS;AACT,sBAAY;AACZ,yBAAe;AACf;AACA;AAR0B;AAAD;AANK;AAE9B,UAAW,CAAC,YAAD,SAAU,IAAY,CAAC,YAAO,eAAR,SAAjC,EACE,qBAAgB,CAAC,YAAO,eAAQ,UAAU,EAA1B,CADlB;AAF8B;AA6HC;AAE/B,UAAW,CAAC,OAAD,SAAU,IAAY,CAAC,OAAO,eAAR,SAAjC,EACE,qBAAgB,CAAC,OAAO,eAAQ,UAAU,EAA1B,CADlB;AAF+B;AAuMP;AAExB,oBAAS,MAAT;AACA,qBAAU,OAAV;AAHwB;AAzSD;AAEvB;AAEA,UAAW,CAAC,MAAD,SAAkC,IAAV,aAAH,eAAP,MAAO,CAAZ,IAAqC,CAAS,OAAP,OAAU,aAAH,CAAY,QAArB,SAAzD;AACE,2BAAc,CAAS,OAAP,OAAU,aAAH,CAAY,QAArB;AACX,gBAAW,CAAC,MAAD,SAA4E,IAApD,aAAH,eAAP,MAAO,CAAZ,IAAqC,CAAS,OAAP,OAAU,aAAH,CAAY,OAArB,SAAZ,IAA8C,CAAY,OAAP,OAAU,aAAH,CAAY,QAAnH;AAGP;AAGI,wBAAW,CAAC,EA9tEqD,IA8tEtD;OAER,UAAG,CAAY,CAAC,MAAD,SAAf;AAEH;AACA;OAHG;AAdkB;AAiJK;AAE5B,wBAAW,CAAC,KAAM,EAAG,OAAV;AAFiB;AANA;AAE5B,oBAAU;AACV,wBAAa,CAAC,KAAM,OAAP;AAHe;AAnCC;AAE7B,wBAAW,CAAC,UAAW,EAAG,OAAf;AAFkB;AAyBI;AAEjC,6BAAgB,CAAC,UAAW,CAAZ;AAFiB;AANA;AAEjC,oBAAU;AACV,wBAAa,CAAC,UAn2EwD,IAm2EzD;AAHoB;AAWF;AAE/B;AAF+B;AAmHF;AAE7B;AACA;AAEA,UAAK,eAAU,CAAC,wBAAD;AACf,WAAM;AAER;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAnB+B;AA3/ErB;AAuCY,+BAAI,kBAAJ;AACA,+BAAI,OXtgBf,yBWsgBe,CAAJ;AACA;AAiBD,gCLrjBP,kCKqjBO;AACL;AACC,4BArKF,4BAqKE;AA5DP;AA+DD;AAylFe;AA0BJ,qCAAC,MAAD;AA1BI;AAzlFf;AAKA;AACL;AAAK;AAAK;AACV;AAAK;AAAK;AACV;AAAK;AAAK;AAHL;aACL,oBAAK,IAAA,oBAAK,IAAA,oBACV,IAAA,oBAAK,IAAA,oBAAK,IAAA,oBACV,IAAA,oBAAK,IAAA,oBAAK,wBAFL;AADA;;AACL;AAAK;AAAK;AACV;AAAK;AAAK;AACV;AAAK;AAAK;AAHL;;;AACL;AAAK;AAAK;AACV;AAAK;AAAK;AACV;AAAK;AAAK;AAHL;AAMA;;;AAEL;AACA;AACA;AACA;AACA;AACA;AACA;AAAQ;AACR;AACA;AACA;AACA;AAZK;;;;;;;;;;;;AAq5DoB;AAE3B,6BAAa,KAAb;AACA,UAAY,aAAD,QAAX;AAEE,qBAAQ;AACR,qBAAQ,KAAK,CAAC,cAAS,MAAO,cAAS,KAAM,cAAS,MAAO,GAAE,cAAS,KAAX,CAAkB,cAAS,OAAQ,GAAE,cAAS,IAA9F;AACb,qBAAQ;OAJV;AAH2B;AA3HE;AAE7B,aAAM,CAAN;AACA,aAAM,CAAN;AAEA,UAAc,CAAV,SAAG,OAAO,KAAE,CAAF,CAAgC,IAAZ,CAAV,SAAG,OAAO,KAAG,sBAAH,CAAf,IAAwC,CAAR,eAAI,CAAC,CAAD,CAAI,KAAE,CAAF,CAA3D,EACE,OAAM,GAAN,CADF;AAGA,UAAc,CAAV,SAAG,OAAO,KAAE,CAAF,CAAgC,IAAZ,CAAV,SAAG,OAAO,KAAG,sBAAH,CAAf,IAAwC,CAAR,eAAI,CAAC,CAAD,CAAI,KAAE,CAAF,CAA3D,EACE,OAAM,GAAN,CADF;AAR6B;AAmBN;AAAR;AAEf;AAEA,eAAU;AACV,UAAY,aAAD,QAAX;AAEE,eAAQ,aAAQ,aAAa,CAAC,EAAG,EAAG,EAAG,CAAV;AAC7B,iBAAU,SAAI,CAAC,IAAI,KAAM,IAAI,IAAI,KAAM,IAAI,IAAI,KAAM,IAAI,IAAI,KAAM,GAArD;OAHhB;AALe;AAAQ;AAmHC;AAExB,UAAY,aAAD,QAAX;AAEE,qBAAQ,UAAR,GAAsB,gBAAW,CAAC,GAAD;AACjC,qBAAQ,SAAS,CAAC,EAAE,EAAG,EAAG,CAAT;OAHnB;AAFwB;AAjkCG;AAE3B,UAAY,aAAD,QAAX;AAEE,qBAAQ,UAAR,GAAsB,SAAG;AACzB,qBAAQ,YAAR,GAA+B,gBAAW,CAAC,SAAG,OAAJ;AAClC,mBAAH,SAAG;AACN,YADM,IACN;AAAS,uBAAQ,YAAY,CAAC,EAAD;AAC7B,kBAFM,IAEN;AAAO,uBAAQ,YAAY,CAAC,CAAC,EAAE,CAAH,CAAD;AAC3B,kBAHM,IAGN;AAAQ,uBAAQ,YAAY,CAAC,CAAC,EAAE,CAAH,CAAD;AAC5B,kBAJM,IAIN;AAAW,uBAAQ,YAAY,CAAC,CAAC,EAAE,EAAE,EAAE,CAAP,CAAD;AAC/B,kBALM,IAKN;AAAc,uBAAQ,YAAY,CAAC,CAAC,EAAE,EAAE,EAAE,EAAE,EAAE,CAAX,CAAD;AAClC,kBANM,IAMN,6BAAS,aAAQ,YAAY,CAAC,CAAC,EAAG,MAAJ,CAAD,CAA7B;OAVJ;AAF2B;AANF;AAEzB,UAAY,aAAD,QAAX,EACE,aAAQ,UAAR,GAAsB,gBAAW,CAAC,WAAK,OAAN,CADnC;AAFyB;AAyMC;AAE1B;AAAG;AAAG;AACN;AACA;AACA;AACA;AACA;AAEA,wBAAa,CAAC,GAAG,GAAG;;;;WAAG;;;;UAAV;AAEb,UAAG,WAAK,OAAO,IAAG,cAAC,8BAAc,wBAAf,CAAlB;AAEE,YAAK,EAAG,GAAE,EAAF;AACR,qBAAQ,UAAR,GAAsB;AACtB,qBAAQ,YAAR,GAA+B,gBAAW,CAAC,WAAK,OAAN;AAC1C,eAAM,CAAE,GAAE,EAAV;AAEE,uBAAQ,OAAO,CAAC,GAAG,CAAJ;AACf,uBAAQ,OAAO,CAAC,GAAG,CAAJ;AACf,cAAK,CAAE,GAAE,CAAF;;OATX;AAaA,UAAG,WAAK,OAAO,IAAG,cAAC,4BAAY,wBAAb,CAAlB;AAEE,YAAK,EAAG,GAAE,EAAF;AACR,qBAAQ,UAAR,GAAsB;AACtB,qBAAQ,YAAR,GAA+B,gBAAW,CAAC,WAAK,OAAN;AAC1C,eAAM,CAAE,GAAE,EAAV;AAEE,uBAAQ,OAAO,CAAC,EAAE,EAAH;AACf,uBAAQ,OAAO,CAAC,EAAE,EAAH;AACf,cAAK,CAAE,GAAE,CAAF;;OATX;AAaA,UAAG,WAAK,OAAO,IAAG,cAAC,6BAAa,4BAAd,CAAlB;AAEE,YAAQ,CAAH,EAAG,GAAE,EAAF,CAAK,GAAM,CAAH,EAAG,GAAE,EAAF,CAAN;AACb,qBAAQ,UAAR,GAAsB;AACtB,qBAAQ,YAAR,GAA+B,gBAAW,CAAC,WAAK,OAAN;AAC1C,eAAM,CAAE,GAAE,EAAV;AAEE,uBAAQ,OAAO,CAAC,EAAE,EAAH;AACf,uBAAQ,OAAO,CAAC,CAAE,GAAK,CAAF,EAAE,GAAC,EAAD,CAAL,CAAU,EAAb;AACf,cAAK,CAAE,GAAE,CAAF;;OATX;AAaA,UAAG,WAAK,OAAO,IAAG,cAAC,6BAAa,4BAAd,CAAlB;AAEE,YAAK,EAAG,GAAE,EAAF;AACR,qBAAQ,UAAR,GAAsB;AACtB,qBAAQ,YAAR,GAA+B,gBAAW,CAAC,WAAK,OAAN;AAC1C,eAAM,CAAE,GAAK,CAAH,EAAG,GAAM,CAAH,EAAG,GAAE,EAAF,CAAN,CAAb;AAEE,uBAAQ,OAAO,CAAC,EAAE,EAAH;AACf,uBAAQ,OAAO,CAAC,CAAE,GAAK,CAAF,EAAE,GAAC,EAAD,CAAL,CAAU,EAAb;AACf,cAAK,CAAE,GAAE,CAAF;;OATX;AAaA,UAAG,WAAK,UAAU,KAAG,0BAArB;AAEY,mBAAL,WAAK;AACV,YADU,IACV;AAAc,eAAM,aAAQ,qBAAqB,CAAC,GAAI,GAAI,GAAI,EAAb;AACjD,kBAFU,IAEV;AAAc,eAAM,aAAQ,qBAAqB,CAAC,GAAI,GAAI,GAAI,EAAb;AACjD,kBAHU,IAGV,mCAAU,KAAO,aAAQ,qBAAqB,CAAC,EAAG,GAAS,CAAJ,CAAF,EAAE,GAAC,EAAD,CAAI,GAAC,CAAD,CAAT,CAAa,EAAE,GAAW,CAAL,CAAH,EAAG,GAAE,EAAF,CAAK,GAAC,CAAD,CAAX,CAAe,EAAG,EAAG,GAAS,CAAJ,CAAF,EAAE,GAAC,EAAD,CAAI,GAAC,CAAD,CAAT,CAAa,EAAE,GAAW,CAAL,CAAH,EAAG,GAAE,EAAF,CAAK,GAAC,CAAD,CAAX,CAAkB,CAAF,EAAE,GAAC,EAAD,CAAI,GAAC,CAA9E,CAA9C;AAGA,cAAO,gBAAW,CAAC,eAAU,CAAC,WAAK,OAAN,CAAX;AAEtB;AAGI,iBAAS,QAAyB,OAApB,WAAK,gBAAe,GAAE,CAAF,kBAAlC;AAAI;AAEF,qBAAK,iBAAiB,CAAC,EAAG;;;;eAAQ;;;;cAAZ;AACtB,gBAAO,gBAAW,CAAC,eAAU,CAAC,MAAD,CAAX;AAExB;;AAII,qBAAQ,UAAR,GAAsB;AACtB;OAvBF;AA0BA,mBAAQ,OAAO;AAzFW;AAzCF;AAExB,4BAAkB;AAIpB;AACA;AACA;AACA;AACA;AAGE,kBAAQ,SAAI,QAAC;AACb,oBAAU,WAAM,QAAC;AACjB,uBAAa;AACb,mBAAS,UAAK,QAAC;AACf,8BAAoB;AAjBqC;AAAjC;AANA;AAExB,4BAAuC,QAAQ,cAAc,CAAC,QAAD;AAC7D,mBAAM,CAAC,mBAAD;AAHmB;AAAD;AA2rBA;AAExB;AAFwB;AA2PI;AAE5B;AACA;AAEA,UAAY,aAAD,QAAX;AAEE,kBAAK,sBAAL;AACA,SAAC,IAAD,GAAS;AACT,SAAC,IAAD,GAAS;AACT,SAAC,IAAD,GAAS;AACT,SAAC,IAAD,GAAS;AACT,SAAC,IAAD,GAAS;AACT,SAAC,IAAD,GAAS;AAET,YAAG,qBAAH;AAEE,eAAM,mBAAa,CAAC,IAAD;AACnB,oBAAK,oBAAc,CAAC,EAAG,yBAAmB,CAAC,GAAI,EAAL,CAAvB,CAAnB;SAHF;AAMA,qBAAQ,aAAa,CAAC,CAAC,KAAM,CAAC,KAAM,CAAC,KAAM,CAAC,KAAM,CAAC,KAAM,CAAC,IAArC;OAhBvB;AAL4B;AA5QH;AAEzB,UAAY,aAAD,QAAX,EACE,aAAQ,UAAU,CAAC,IAAK,IAAK,IAAK,IAAK,GAAI,EAAzB,CADpB;AAFyB;AA8dH;AAEtB,UAAY,aAAD,QAAX,EACE,aAAQ,OAAO,CAAC,KAAD,CADjB;AAFsB;AAxdG;AAEzB,UAAY,aAAD,QAAX,EACE,aAAQ,UAAU,CAAC,EAAG,CAAJ,CADpB;AAFyB;AAtpBD;AAExB,qBAAQ,CAAQ,EAAW,EAAW,OAAgB,WAAoB,UAAlE;AAFgB;AAhMA;AAGxB,UAAY,aAAD,QAAX;AAEE,qBAAQ,UAAU;AAClB;AACA,qBAAQ,IAAI,CAAC,EAAG,EAAG,OAAQ,WAAY,UAAW,GAAE,UAAxC;AACZ,qBAAQ,OAAO;OALjB;AAHwB;AAuIA;AAGxB;AAAG;AACH;AAAG;AACH;AACA;AAEA,UAAY,aAAD,QAAX;AAEE,aAAM,UAAU,MAAO,GAAE,UAAU,KAAZ;AACvB,aAAM,UAAU,OAAQ,GAAE,UAAU,IAAZ;AAExB,aAAM,QAAQ,MAAO,GAAE,QAAQ,KAAV;AACrB,aAAM,QAAQ,OAAQ,GAAE,QAAQ,IAAV;AAEtB,kBAAW,aAAQ,aAAa,CAAC,UAAU,MAAO,UAAU,KAAM,GAAI,EAAtC;AAEhC,kBAAW,YAAO,QAAC;AACnB;AACE,iBAAO,eAAe,MAAtB,GAAgC;AAChC,iBAAO,eAAe,OAAtB,GAAiC;AAEjC,iBAAO,SAAS,aAAa,CAAC,QAAS,EAAE,CAAZ;AAC7B,gBAAM,SAAS,UAAU,CAAC,OAAO,gBAAiB,QAAQ,MAAO,QAAQ,KAAM,GAAI,EAA1D;AAL3B;AAOE,iBAAQ,eAAR,OAAQ;AAPV;OAXF;AARwB;AA8DF;AAEtB,mBAAM,CAAQ,EAAW,CAAnB;AAFgB;AA0VA;AAEtB;AAAG;AAEH,UAAY,aAAD,QAAX;AAEE,yBAAa;AACb,qBAAQ,UAAU;AAClB;AACA,aAAM;AACN,aAAM;AACN,0BAAa,CAAC,EAAG,EAAG;;;;aAAI;;;;YAAX;AACb,qBAAQ,OAAO,CAAC,CAAE,GAAE,EAAF,CAAK,CAAE,GAAE,EAAZ;OARjB;AAJsB;AArVA;AAEtB,mBAAM,CAAQ,EAAW,CAAnB;AAFgB;AAw0BA;AAEtB;AAAG;AACH;AAEA,UAAY,aAAD,QAAX;AAEE,aAAM;AACN,aAAM;AACN,0BAAa,CAAC,EAAE,EAAE;;;;aAAG;;;;YAAR;AAEL,mBAAH,SAAG;AACR,YADQ,IACR;AAAS,uBAAQ,YAAR,GAA+B,gBAAW,CAAC,CAAD;AACnD,kBAFQ,IAER;AAAS,uBAAQ,YAAR,GAA+B,gBAAW,CAAC,QAAD;AACnD,kBAHQ,IAGR;AAAO,uBAAQ,yBAAR,GAAqC;AAC5C,kBAJQ,IAIR;AAAQ,uBAAQ,yBAAR,GAAqC;AAC7C,kBALQ,IAKR;AAEI,gBAAO,eAAU,CAAC,SAAG,OAAJ,CAAY,GAAI,UAAJ;AAC7B,uBAAQ,YAAR,GAA+B,gBAAW,CAAC,GAAD;SAE9C,UAVQ,IAUR;AAEI,gBAAO,eAAU,CAAC,SAAG,OAAJ,CAAY,GAAI,UAAJ;AAC7B,uBAAQ,YAAR,GAA+B,gBAAW,CAAC,GAAD;AAC1C,uBAAQ,yBAAR,GAAqC;SAJzC;AASA,YAAG,CAAI,cAAP;AAEE,uBAAQ,UAAU;AAClB;AACA,uBAAQ,OAAO,CAAC,WAAO,GAAE,EAAF,CAAM,WAAO,GAAE,EAAvB;SAJjB;AAOA,qBAAQ,OAAO,CAAC,CAAE,GAAE,EAAF,CAAM,CAAE,GAAE,EAAb;AACf,qBAAQ,OAAO;AACf,sBAAU;AACV,sBAAU;AAEV,yBAAa;AAEb,qBAAQ,yBAAR,GAAqC;OAvCvC;AALsB;AAhuBG;AAEzB;AAAG;AAEH,UAAY,aAAD,QAAX;AAEE,qBAAQ;AACR,qBAAQ,UAAU;AAClB;AACA;AAEA,0BAAa,CAAC,GAAG,GAAG;;;;aAAG;;;;YAAV;AAGjB;AACA;AACA;AAGI,uBAAU,CAAC,GAAG,GAAG,GAAG,EAAV;AAEV,YAAG,CAAiB,CAAZ,WAAK,OAAO,IAAG,cAAC,yBAAS,8BAAc,4BAAY,yBAAS,6BAAa,6BAAa,4BAAvE,CAAH,CAApB;AAEE,uBAAQ,KAAK,CAAC,EAAE,GAAC,EAAD,CAAK,EAAE,GAAC,EAAD,CAAK,EAAG,GAAE,EAAF,CAAM,EAAG,GAAE,EAA7B;AACb,uBAAQ,KAAK;SAHf;AAMA,YAAG,SAAG,OAAO,KAAG,sBAAhB;AAEE;AACA,uBAAQ;AACR,uBAAQ,KAAK,CAAC,EAAE,GAAC,EAAD,CAAK,EAAE,GAAC,EAAD,CAAK,EAAG,GAAE,EAAF,CAAM,EAAG,GAAE,EAA7B;AACb,uBAAQ,OAAO;SALjB;AAQA,qBAAQ;OA/BV;AAJyB;AAsDA;AAEzB,oBAAS,CAAQ,GAAY,GAAY,GAAY,EAA5C;AAFgB;AAzJA;AAEzB,sBAAS,CAAC,IAAI,MAAO,IAAI,KAAM,IAAI,OAAQ,IAAI,OAAtC;AAFgB;AA0IA;AAEzB,oBAAS,CAAC,IAAI,MAAO,IAAI,KAAM,IAAI,OAAQ,IAAI,OAAtC;AAFgB;AAyBA;AAEzB,sBAAS,CAAQ,GAAY,GAAY,GAAY,GAAY,GAAY,EAApE;AAFgB;AAUA;AAEzB;AAAG;AAEH,UAAY,aAAD,QAAX;AAEE,YAAI,EAAG,GAAE,EAAT,EACE,MADF;AAEA,YAAI,EAAG,GAAE,EAAT,EACE,MADF;AAGA,qBAAQ,UAAU;AAClB;AACA;AAEA,0BAAa,CAAC,GAAI,GAAI;;;;aAAI;;;;YAAb;AAEb,qBAAQ,OAAO,CAAC,EAAG,GAAI,CAAF,EAAE,GAAC,CAAD,CAAJ,CAAQ,EAAG,GAAE,EAAjB;AACf,qBAAQ,OAAO,CAAC,EAAG,GAAI,CAAF,EAAE,GAAC,CAAD,CAAJ,CAAQ,EAAG,GAAE,EAAjB;AACf,qBAAQ,QAAQ,CAAC,EAAQ,GAAH,EAAF,GAAU,CAAH,EAAG,GAAE,CAAF,CAAL,CAAU,EAAQ,GAAH,EAAF,GAAS,CAAF,EAAE,GAAC,CAAD,CAAJ,CAAQ,EAAG,GAAE,CAAF,CAAK,EAAG,GAAE,CAAF,CAAK,EAAG,OAAG,GAAE,GAAF,CAAO,CAAhE;AAEhB,qBAAQ,OAAO,CAAC,EAAG,GAAE,EAAF,CAAM,EAAG,GAAI,CAAF,EAAE,GAAC,CAAD,CAAjB;AACf,qBAAQ,QAAQ,CAAC,EAAQ,GAAH,EAAF,GAAU,CAAH,EAAG,GAAE,CAAF,CAAL,CAAU,EAAQ,GAAH,EAAF,GAAS,CAAF,EAAE,GAAC,CAAD,CAAJ,CAAQ,EAAG,GAAE,CAAF,CAAK,EAAG,GAAE,CAAF,CAAK,EAAG,EAAG,OAAG,GAAE,GAA9D;AAChB,qBAAQ,OAAO,CAAC,EAAG,GAAI,CAAF,EAAE,GAAC,CAAD,CAAJ,CAAQ,EAAG,GAAE,EAAjB;AACf,qBAAQ,QAAQ,CAAC,EAAQ,GAAH,EAAF,GAAU,CAAH,EAAG,GAAE,CAAF,CAAL,CAAU,EAAQ,GAAH,EAAF,GAAS,CAAF,EAAE,GAAC,CAAD,CAAJ,CAAQ,EAAG,GAAE,CAAF,CAAK,EAAG,GAAE,CAAF,CAAK,EAAG,OAAG,GAAE,GAAF,CAAO,OAAhE;AAChB,qBAAQ,OAAO,CAAC,EAAG,GAAE,EAAF,CAAM,EAAU,GAAH,CAAF,EAAE,GAAC,CAAD,CAAJ,GAAS,EAAtB;AACf,qBAAQ,QAAQ,CAAC,EAAQ,GAAH,EAAF,GAAU,CAAH,EAAG,GAAE,CAAF,CAAL,CAAU,EAAQ,GAAH,EAAF,GAAS,CAAF,EAAE,GAAC,CAAD,CAAJ,CAAQ,EAAG,GAAE,CAAF,CAAK,EAAG,GAAE,CAAF,CAAK,EAAG,QAAI,OAAG,GAAE,GAA/D;AAEhB,YAAG,WAAK,OAAO,KAAE,wBAAjB,EACE,aAAQ,KAAK,EADf;AAGA,YAAG,SAAG,OAAO,KAAG,sBAAhB,EACE,aAAQ,OAAO,EADjB;AAGA,qBAAQ;AAGZ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGI,uBAAU,CAAC,GAAG,GAAG,GAAG,EAAV;AAEV,qBAAQ;OAhDV;AAJyB;AALA;AAEzB,oBAAS,CAAC,IAAI,MAAO,IAAI,KAAM,IAAI,OAAQ,IAAI,QAAS,GAAI,EAAnD;AAFgB;AA67BA;AAEzB,sBAAS,CAAC,IAAI,MAAO,IAAI,KAAM,IAAI,OAAQ,IAAI,QAAS,GAAI,EAAnD;AAFgB;AAv8BD;AAExB,sBAAS,CAAC,IAAI,MAAO,IAAI,KAAM,IAAI,OAAQ,IAAI,OAAtC;AAFe;AA47BA;AAExB,oBAAS,CAAC,IAAI,MAAO,IAAI,KAAM,IAAI,OAAQ,IAAI,OAAtC;AAFe;AAhuCL;AAEnB;AAAG;AACH;AAAW;AAEX,UAAY,aAAD,QAAX;AAEE,aAAc,UAAL,CAAF,EAAE,GAAC,EAAD,CAAK,GAAI,CAAJ;AACd,aAAc,UAAL,CAAF,EAAE,GAAC,EAAD,CAAK,GAAI,CAAJ;AAEd,qBAAc,mBAAa,CAAC,EAAE,GAAC,EAAD,CAAI,EAAE,GAAC,EAAD,CAAI,GAAG,EAAhB;AAC3B,mBAAY,mBAAa,CAAC,EAAE,GAAC,EAAD,CAAI,EAAE,GAAC,EAAD,CAAI,GAAG,EAAhB;AAEzB,qBAAQ,UAAU;AAClB;AACA,qBAAQ,QAAQ,CAAC,EAAE,GAAC,EAAD,CAAI,EAAE,GAAC,EAAD,CAAI,GAAG,GAAG,EAAE,WAAW,QAAhC;AAChB,qBAAQ,OAAO;OAXjB;AALmB;AA2WI;AAEvB,oBAAO,CAAQ,GAAY,GAAY,GAAY,EAA5C;AAFgB;AA2dA;AAEvB;AAAG;AACH;AACA;AAAI;AAAI;AAAI;AAAI;AAAI;AAEpB,UAAY,aAAD,QAAX;AAEE,YAAK,EAAG,GAAE,EAAF;AACR,YAAK,EAAG,GAAE,EAAF;AAER,gBAAS;AAET,aAAS,CAAF,CAAE,GAAE,CAAF,CAAK,GAAE,KAAF;AACd,aAAS,CAAF,CAAE,GAAE,CAAF,CAAK,GAAE,KAAF;AACd,aAAM,EAAG,GAAE,CAAF;AACT,aAAM,EAAG,GAAE,CAAF;AACT,aAAM,EAAG,GAAI,CAAF,CAAE,GAAE,CAAF,CAAJ;AACT,aAAM,EAAG,GAAI,CAAF,CAAE,GAAE,CAAF,CAAJ;AAET,qBAAQ;AAEZ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGI,YAAG,CAAiB,CAAZ,WAAK,OAAO,IAAG,cAAC,yBAAQ,wBAAT,CAAH,CAAsB,IAAoB,CAAf,WAAK,UAAU,KAAE,0BAAF,CAA9D,EACE,eAAU,CAAC,GAAG,GAAG,GAAG,EAAV,CADZ;AAGA,qBAAQ;AAER,qBAAQ,UAAU;AAClB;AAEA,YAAG,WAAK,UAAU,KAAG,0BAArB;AAEE,yBAAU,CAAC,GAAG,GAAG,GAAG,EAAV;SAGV;AAEF,qBAAQ,OAAO,CAAC,GAAI,EAAL;AACf,qBAAQ,cAAc,CAAC,GAAI,EAAG,GAAE,EAAF,CAAM,EAAG,GAAE,EAAF,CAAM,GAAI,GAAI,EAA/B;AACtB,qBAAQ,cAAc,CAAC,EAAG,GAAE,EAAF,CAAM,GAAI,GAAI,EAAG,GAAE,EAAF,CAAM,GAAI,EAA/B;AACtB,qBAAQ,cAAc,CAAC,GAAI,EAAG,GAAE,EAAF,CAAM,EAAG,GAAE,EAAF,CAAM,GAAI,GAAI,EAA/B;AACtB,qBAAQ,cAAc,CAAC,EAAG,GAAE,EAAF,CAAM,GAAI,GAAI,EAAG,GAAE,EAAF,CAAM,GAAI,EAA/B;AACtB,qBAAQ,UAAU;AAElB,YAAgB,CAAZ,WAAK,OAAO,KAAE,wBAAF,CAAW,IAAmB,CAAf,WAAK,UAAU,KAAG,0BAAH,CAA9C,EACE,aAAQ,KAAK,EADf;AAGA,YAAG,SAAG,OAAO,KAAG,sBAAhB,EACE,aAAQ,OAAO,EADjB;OAnDF;AANuB;AAtdA;AAEvB,kBAAO,CAAC,IAAI,MAAO,IAAI,KAAM,IAAI,OAAQ,IAAI,OAAtC;AAFgB;AA+1BA;AAEvB,oBAAO,CAAC,IAAI,MAAO,IAAI,KAAM,IAAI,OAAQ,IAAI,OAAtC;AAFgB;AA11BC;AAExB;AAAG;AAEH,UAAY,aAAD,QAAX;AAEE,YAAW,WAAC,MAAD;AAEX,YAAG,CAAE,KAAE,CAAP,EACE,MADF;AAGA,qBAAQ,UAAU;AAClB;AACA,YAAK;AACL,qBAAQ,OAAO,CAAC,MAAM,CAAC,CAAD,CAAG,GAAI,MAAM,CAAC,CAAD,CAAG,EAAvB;AAEf,eAAO,CAAE,GAAI,CAAF,CAAE,GAAE,CAAF,CAAb;AAEM,WAAJ,IAAG;AACH,uBAAQ,OAAO,CAAC,MAAM,CAAC,CAAD,CAAG,GAAI,MAAM,CAAC,CAAD,CAAG,EAAvB;;AAGjB,YAAG,SAAG,OAAO,KAAG,sBAAhB,EACE,aAAQ,OAAO,EADjB;OAlBF;AAJwB;AA+zBA;AAExB;AAAG;AAEH,UAAY,aAAD,QAAX;AAEE,YAAW,WAAC,MAAD;AAEX,YAAG,CAAE,KAAE,CAAP,EACE,MADF;AAGA,qBAAQ,UAAU;AAClB;AACA,YAAK;AACL,qBAAQ,OAAO,CAAC,MAAM,CAAC,CAAD,CAAG,GAAI,MAAM,CAAC,CAAD,CAAG,EAAvB;AAEf,eAAO,CAAE,GAAI,CAAF,CAAE,GAAE,CAAF,CAAb;AAEM,WAAJ,IAAG;AACH,uBAAQ,OAAO,CAAC,MAAM,CAAC,CAAD,CAAG,GAAI,MAAM,CAAC,CAAD,CAAG,EAAvB;;AAGjB,YAAG,SAAG,OAAO,KAAG,sBAAhB,EACE,aAAQ,OAAO,EADjB;OAlBF;AAJwB;AApyBD;AAEvB;AAAG;AACH;AAAG;AAAG;AAAG;AAGT,UAAY,aAAD,QAAX;AAEE,YAAW,WAAC,MAAD;AAEX,YAAG,CAAE,KAAE,CAAP,EACE,MADF;AAGA,qBAAQ,UAAU;AAClB;AAEA,aAAM;AACN,aAAM;AACN,aAAM;AACN,aAAM;AACN,iBAAS,QAAoB,OAAT,WAAC,MAAD,CAAS,GAAE,CAAF,kBAA7B;AAAI;AAEF,cAAG,MAAM,CAAC,CAAD,CAAG,EAAG,GAAE,EAAjB,EACE,KAAM,MAAM,CAAC,CAAD,CAAG,EADjB;AAEA,cAAG,MAAM,CAAC,CAAD,CAAG,EAAG,GAAE,EAAjB,EACE,KAAM,MAAM,CAAC,CAAD,CAAG,EADjB;AAGA,cAAG,MAAM,CAAC,CAAD,CAAG,EAAG,GAAE,EAAjB,EACE,KAAM,MAAM,CAAC,CAAD,CAAG,EADjB;AAEA,cAAG,MAAM,CAAC,CAAD,CAAG,EAAG,GAAE,EAAjB,EACE,KAAM,MAAM,CAAC,CAAD,CAAG,EADjB;;AAIF,YAAG,WAAK,UAAU,KAAG,0BAArB;AAEE,yBAAU,CAAC,GAAG,GAAG,GAAG,EAAV;SAGV;AAEF,YAAK;AACL,qBAAQ,OAAO,CAAC,MAAM,CAAC,CAAD,CAAG,GAAI,MAAM,CAAC,CAAD,CAAG,EAAvB;AAEf,eAAO,CAAE,GAAI,CAAF,CAAE,GAAE,CAAF,CAAb;AAEM,WAAJ,IAAG;AACH,uBAAQ,OAAO,CAAC,MAAM,CAAC,CAAD,CAAG,GAAI,MAAM,CAAC,CAAD,CAAG,EAAvB;;AAGjB,qBAAQ,UAAU;AAElB,YAAG,WAAK,OAAO,KAAG,wBAAlB,EACE,aAAQ,KAAK,EADf;AAGA,YAAG,SAAG,OAAO,KAAG,sBAAhB,EACE,aAAQ,OAAO,EADjB;OAhDF;AANuB;AA2uBA;AAEvB;AAAG;AACH;AAAG;AAAG;AAAG;AAGT,UAAY,aAAD,QAAX;AAEE,YAAW,WAAC,MAAD;AAEX,YAAG,CAAE,KAAE,CAAP,EACE,MADF;AAGA,qBAAQ,UAAU;AAClB;AAEA,aAAM;AACN,aAAM;AACN,aAAM;AACN,aAAM;AACN,iBAAS,QAAoB,OAAT,WAAC,MAAD,CAAS,GAAE,CAAF,kBAA7B;AAAI;AAEF,cAAG,MAAM,CAAC,CAAD,CAAG,EAAG,GAAE,EAAjB,EACE,KAAM,MAAM,CAAC,CAAD,CAAG,EADjB;AAEA,cAAG,MAAM,CAAC,CAAD,CAAG,EAAG,GAAE,EAAjB,EACE,KAAM,MAAM,CAAC,CAAD,CAAG,EADjB;AAGA,cAAG,MAAM,CAAC,CAAD,CAAG,EAAG,GAAE,EAAjB,EACE,KAAM,MAAM,CAAC,CAAD,CAAG,EADjB;AAEA,cAAG,MAAM,CAAC,CAAD,CAAG,EAAG,GAAE,EAAjB,EACE,KAAM,MAAM,CAAC,CAAD,CAAG,EADjB;;AAIF,YAAG,WAAK,UAAU,KAAG,0BAArB;AACE,yBAAU,CAAC,GAAG,GAAG,GAAG,EAAV;AAEV;AAEF,YAAK;AACL,qBAAQ,OAAO,CAAC,MAAM,CAAC,CAAD,CAAG,GAAI,MAAM,CAAC,CAAD,CAAG,EAAvB;AAEf,eAAO,CAAE,GAAI,CAAF,CAAE,GAAE,CAAF,CAAb;AAEM,WAAJ,IAAG;AACH,uBAAQ,OAAO,CAAC,MAAM,CAAC,CAAD,CAAG,GAAI,MAAM,CAAC,CAAD,CAAG,EAAvB;;AAGjB,qBAAQ,UAAU;AAElB,YAAG,WAAK,OAAO,KAAG,wBAAlB,EACE,aAAQ,KAAK,EADf;AAGA,YAAG,SAAG,OAAO,KAAG,sBAAhB,EACE,aAAQ,OAAO,EADjB;OA9CF;AANuB;AA/YA;AAEvB,oBAAO,CAAQ,EAAW,EAAI,IAAvB;AAFgB;AAtQA;AAEvB;AACA;AAEA,UAAY,aAAD,QAAX;AAIF;AAGI,qBAAQ,UAAR,GAAsB,gBAAW,CAAC,UAAI,OAAL;AACjC,qBAAQ,KAAR,GAAiB,UAAI;AACrB,qBAAQ,aAAR,GAAyB;AACzB,qBAAQ,SAAS,CAAC,QAAS,EAAG,CAAb;AAEjB,YAAG,2BAAY,IAAG,UAAI,OAAtB;AAEE,eAAM,aAAQ,YAAY,CAAC,OAAD;AAC1B,uBAAQ,SAAS,CAAC,EAAG,CAAE,GAAY,CAAV,UAAI,MAAM,GAAC,GAAD,CAAZ,CAAkB,EAAE,OAAQ,CAAlC;SAHnB;AAMA,YAAG,2BAAY,IAAG,UAAI,OAAtB;AAEE,eAAM,aAAQ,YAAY,CAAC,OAAD;AAC1B,uBAAQ,SAAS,CAAC,EAAG,CAAE,GAAY,CAAV,UAAI,MAAM,GAAC,GAAD,CAAZ,CAAkB,EAAE,OAAQ,CAAlC;SAHnB;OAlBF;AALuB;AA6SH;AAEpB,iBAAI,CAAQ,EAAW,EAAI,OAAvB;AAFgB;AAUA;AAEpB;AAEA,UAAY,aAAD,QAAX;AAEE,cAAO,OAAO;AAEd,YAAY,GAAD,QAAX;AAEE,cAAG,OAAO,YAAV;AACE,yBAAQ,UAAU,CAAW,OAAO,gBAAkB,EAAG,CAAvC;AAElB,gBAAA,aAAQ,UAAU,CAAC,IAAK,EAAG,CAAT;SALtB;OAJF;AAJoB;AAgSO;AAE3B,wBAAW,CAAkB,yBAAjB,sBAAiB,CAAC,IAAI,MAAO,IAAI,KAAM,IAAI,OAAQ,IAAI,OAAtC,GAAgD,OAAlE;AAFgB;AAjBA;AAE3B;AAEA,UAAY,aAAD,QAAX;AAEE,cAAO,OAAO;AACd,YAAY,GAAD,QAAX;AAEE,cAAG,OAAO,YAAV;AACE,yBAAQ,UAAU,CAAW,OAAO,gBAAkB,EAAG,EAAG,OAAO,SAAC,GAAO,OAAO,UAAC,GAAQ,IAAI,MAAO,IAAI,KAAM,IAAI,MAAO,GAAE,IAAI,KAAN,CAAa,IAAI,OAAQ,GAAE,IAAI,IAAxI;AAElB,gBAAA,aAAQ,UAAU,CAAC,IAAK,EAAG,EAAG,OAAO,SAAC,GAAO,OAAO,UAAC,GAAQ,IAAI,MAAO,IAAI,KAAM,IAAI,MAAO,GAAE,IAAI,KAAN,CAAa,IAAI,OAAQ,GAAE,IAAI,IAA1G;SALtB;OAHF;AAJ2B;AA3OE;AAE7B,0BAAa,CAAC,sBAAiB,CAAC,IAAI,MAAO,IAAI,KAAM,IAAI,OAAQ,IAAI,OAAtC,CAAlB;AAFgB;AAlBA;AAE7B;AAEA,WAAM,SAAG;AACT,eAAG,OAAH,GAAa;AACb,eAAG,OAAH,GAAa;AACb,eAAG,SAAC,CAAS,CAAT;AAEJ,mBAAM,CAAC,IAAI,MAAO,IAAI,IAAhB;AACN,mBAAM,CAAC,IAAI,OAAQ,IAAI,IAAjB;AACN,mBAAM,CAAC,IAAI,OAAQ,IAAI,OAAjB;AACN,mBAAM,CAAC,IAAI,MAAO,IAAI,OAAhB;AACN,mBAAM,CAAC,IAAI,MAAO,IAAI,IAAhB;AAEN,eAAG,OAAH,GAAa;AAfgB;AArxBH;AAE1B,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,IAAD,CADd;AAF0B;AAgsCF;AAExB,UAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,IAAD,CADZ;AAFwB;AAtsCC;AAEzB,UAAY,aAAD,QAAX,EACE,aAAQ,UAAU,EADpB;AAFyB;AAgsCA;AAEzB,UAAY,aAAD,QAAX,EACE,aAAQ,UAAU,EADpB;AAFyB;AApHC;AAE1B,UAAY,aAAD,QAAX;AAEE;AACA,qBAAQ,OAAO;OAHjB;AAF0B;AAZF;AAExB,UAAY,aAAD,QAAX;AAEE;AAEA,uBAAU,CAAC,GAAG,GAAG,GAAG,EAAV;AAEV,qBAAQ,KAAK;OANf;AAFwB;AAqBE;AAE1B,uBAAU,CAAQ,EAAW,CAAnB;AAFgB;AAKA;AAE1B;AAAI;AAEJ,UAAY,aAAD,QAAX;AAEE,aAAM;AACN,aAAM;AACN,0BAAa,CAAC,EAAG,EAAG;;;;aAAI;;;;YAAX;AACb,qBAAQ,OAAO,CAAC,CAAE,GAAE,EAAF,CAAM,CAAE,GAAE,EAAb;OALjB;AAJ0B;AA5CA;AAE1B,uBAAU,CAAQ,EAAW,CAAnB;AAFgB;AAKA;AAE1B;AAAI;AAEJ,UAAY,aAAD,QAAX;AAEE,aAAM;AACN,aAAM;AACN,0BAAa,CAAC,EAAG,EAAG;;;;aAAI;;;;YAAX;AACb,qBAAQ,OAAO,CAAC,CAAE,GAAE,EAAF,CAAM,CAAE,GAAE,EAAb;OALjB;AAJ0B;AA9EN;AAEpB,UAAY,aAAD,QAAX,EACE,aAAQ,KAAK,EADf;AAFoB;AAj8BA;AAEpB,UAAY,aAAD,QAAX,EACE,aAAQ,OADV;AAFoB;AAiOG;AAEvB,UAAY,aAAD,QAAX,EACE,aAAQ,QAAQ,EADlB;AAFuB;AAJA;;AArPF;AAErB,UAAW,CAAC,aAAD,SAAW,IAAY,CAAC,mBAAD,SAAlC,EACE,aAAQ,UAAU,CAAC,EAAG,EAAG,mBAAc,OAAQ,mBAAc,OAA3C,CADpB;AAFqB;AAMA;AAErB;AACA;AAEA;AACA,UAAY,mBAAD,QAAX;AAEE,YAAK,WAAK;AACV,YAAK,WAAK;AACV,mBAAK,OAAL,GAAe;AACf,mBAAK,OAAL,GAAe;AACf,qBAAQ,CAAC,cAAI,CAAC,EAAG,EAAG,mBAAc,OAAQ,mBAAc,OAA3C,CAAL;AACR,mBAAK,OAAL,GAAe;AACf,mBAAK,OAAL,GAAe;OARjB;AANqB;AAqaI;AAAV;AAEf,YAAM,GAAN,GAAa,cAAS,CAAC,IAAD;AACtB,YAAM,GAAN,GAAa,eAAU,CAAC,IAAD;AAHR;AAAU;AAsSF;AAAR;AAEf;AAEA,gBAAK,eAAQ,CAAkB,yBAAjB,sBAAiB,CAAC,KAAK,MAAO,KAAK,KAAM,KAAK,OAAQ,KAAK,OAA1C,GAAoD,KAAM,SAAU,UAAW,qBAAsB,kBAAvH,CAAb;AACA,qBAAU,cAAI,CAAC,UAAK,CAAC,CAAC,KAAF,EAAU,UAAK,CAAC,CAAC,IAAF,EAAS,UAAK,CAAC,CAAC,MAAF,EAAW,UAAK,CAAC,CAAC,OAAF,CAAnD,CAAd;AALe;AAAQ;AA7MA;;AAAR;AAEf;AACA;AAAG;AAAI;AACP;AACA;AAAG;AACH;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAAI;AAAK;AAES;AAEhB,YAAG,EAAH;AAEO;AACH,cADG,IACH;AAAU,2BAAO,CAAC,KAAK,KAAM,GAAsC,CAAV,CAAzB,KAAK,MAAoB,GAAX,KAAK,KAAP,GAAe,MAAF,CAAU,GAAE,CAAF,CAAtC,CAA2C,KAAK,KAAM,KAAlE;AACjB,oBAFG,IAEH;AAAe,2BAAO,CAAC,KAAK,MAAO,KAAK,KAAM,KAAxB;AACtB,oBAHG,IAGH,4CAAgB,eAAO,CAAC,KAAK,MAAO,GAAE,MAAF,CAAU,KAAK,KAAM,KAAlC,CAAvB;;AAKG;AACH,cADG,KACH;AAEO;AACH,gBADG,KACH;AAAY,6BAAO,CAAC,KAAK,KAAM,GAAsC,CAAV,CAAzB,KAAK,MAAoB,GAAX,KAAK,KAAP,GAAe,MAAF,CAAU,GAAE,CAAF,CAAtC,CAA2C,KAAK,KAAM,KAAlE;AACnB,sBAFG,KAEH;AAAkB,6BAAO,CAAC,KAAK,KAAM,GAAsC,CAAV,CAAzB,KAAK,MAAoB,GAAX,KAAK,KAAP,GAAe,MAAF,CAAU,GAAE,CAAF,CAAtC,CAA2C,KAAK,IAAK,GAAuC,CAAX,CAAzB,KAAK,OAAoB,GAAV,KAAK,IAAP,GAAc,OAAF,CAAW,GAAE,CAAF,CAAvC,CAA4C,KAA7G;AACzB,sBAHG,KAGH,4CAAe,eAAO,CAAC,KAAK,KAAM,GAAsC,CAAV,CAAzB,KAAK,MAAoB,GAAX,KAAK,KAAP,GAAe,MAAF,CAAU,GAAE,CAAF,CAAtC,CAA2C,KAAK,OAAQ,GAAE,OAAF,CAAW,KAA/E,CAAtB;WAGJ,UATG,KASH;AAEO;AACH,gBADG,KACH;AAAY,6BAAO,CAAC,KAAK,MAAO,KAAK,KAAM,KAAxB;AACnB,sBAFG,KAEH;AAAkB,6BAAO,CAAC,KAAK,MAAO,KAAK,IAAK,GAAuC,CAAX,CAAzB,KAAK,OAAoB,GAAV,KAAK,IAAP,GAAc,OAAF,CAAW,GAAE,CAAF,CAAvC,CAA4C,KAAnE;AACzB,sBAHG,KAGH,4CAAe,eAAO,CAAC,KAAK,MAAO,KAAK,OAAQ,GAAE,OAAF,CAAW,KAArC,CAAtB;WAGJ,UAjBG,KAiBH;AAEO;AACH,gBADG,KACH;AAAY,6BAAO,CAAC,KAAK,MAAO,GAAE,MAAF,CAAU,KAAK,KAAM,KAAlC;AACnB,sBAFG,KAEH;AAAkB,6BAAO,CAAC,KAAK,MAAO,GAAE,MAAF,CAAU,KAAK,IAAK,GAAuC,CAAX,CAAzB,KAAK,OAAoB,GAAV,KAAK,IAAP,GAAc,OAAF,CAAW,GAAE,CAAF,CAAvC,CAA4C,KAA7E;AACzB,sBAHG,KAGH,4CAAe,eAAO,CAAC,KAAK,MAAO,GAAE,MAAF,CAAU,KAAK,OAAQ,GAAE,OAAF,CAAW,KAA/C,CAAtB;WALJ;;AA7BY;AAyCG;AAAZ;AAEP;AACA;AAEA,iBAAU;AAEV,YAAY,IAAD;AACX,YAAG,UAAK,GAAE,CAAV,EACE,aADF;AAGA,YAAK;AACL,eAAM,IAAN;AAEE,cAAoB,CAAP,CAAR,IAAI,QAAC,KAAD,CAAI,KAAE,IAAF,CAAO,IAAiB,CAAZ,IAAI,QAAC,CAAE,GAAE,CAAF,IAAH,CAAQ,KAAE,IAAF,CAAjB,CAAsE,IAAzB,CAAP,CAAR,IAAI,QAAC,KAAD,CAAI,KAAE,IAAF,CAAO,IAAiB,CAAZ,IAAI,QAAC,CAAE,GAAE,CAAF,IAAH,CAAQ,KAAE,IAAF,CAAjB,CAApB,IAAyD,CAAR,IAAI,QAAC,KAAD,CAAI,KAAE,GAAF,CAAtG;AAEE,gBAAG,IAAI,QAAC,KAAD,CAAI,KAAE,GAAb;AACE,uBAAU,eAAI,CAAC,KAAM,WAAM,CAAE,GAAQ,CAAL,UAAK,GAAE,CAAF,CAAvB;AAEd,2BAAU,eAAI,CAAC,KAAM,WAAM,CAAE,GAAE,UAAjB;AAEhB;WAEG,UAAY,CAAR,IAAI,QAAC,KAAD,CAAI,KAAE,IAAF,CAA0B,IAAP,CAAR,IAAI,QAAC,KAAD,CAAI,KAAE,IAAF,CAAZ,IAA+B,CAAR,IAAI,QAAC,KAAD,CAAI,KAAE,GAAF,CAAlD;AAEH,qBAAU,eAAI,CAAC,KAAM,WAAM,CAAE,GAAQ,CAAL,UAAK,GAAE,CAAF,CAAvB;AACd;WAEG,UAAG,CAAE,IAAG,CAAR;AAEH,qBAAU,eAAI,CAAC,KAAM,WAAM,CAAE,GAAQ,CAAL,UAAK,GAAE,CAAF,CAAvB;AACd;WAGA,MAAI,CAAJ,IAAG;;AAGP,iBAAQ,CAAE,GAAE,CAAZ;AArCO;AAAY;AAwCrB,WAAM,QAAiC,IAAL,CAAf,cAAG,CAAC,KAAK,IAAN,CAAY,GAAE,CAAF,CAAnB,IAA2C,CAAf,cAAG,CAAC,KAAK,IAAN,CAAY,GAAE,CAAF,CAAnB;AACvC,YAAO,CAAI,QAAS,IAA0B,CAAL,CAAf,cAAG,CAAC,KAAK,IAAN,CAAY,GAAE,CAAF,CAAK,IAAmB,CAAf,cAAG,CAAC,KAAK,IAAN,CAAY,GAAE,CAAF,CAAnB,CAA1B;AAEpB,UAAG,CAAI,EAAP;AAEE,YAAK,cAAS,CAAC,IAAD;AACd,aAAM,eAAU,CAAC,IAAD;AAChB,YAAG,CAAI,SAAP,EACE,QAAQ,CAAC,KAAM,EAAG,EAAV,CADV;AAGA,uBAAU,sBAAiB,CAAC,KAAK,MAAO,KAAK,KAAM,KAAK,KAAM,GAAE,CAAF,CAAK,KAAK,IAAK,GAAE,EAApD,CAA3B;;AAIA,mBAAM,KAAN;AAEA,aAAM;AACN,YAAK;AACL,cAAO,UAAK,MAAM,GAAE,GAAF;AAClB,eAAQ;AACR,cAAO;AACP,aAAM;AACN,YAAK,YAAY,CAAC,KAAM;;;;YAAP;AACjB,YAAK,cAAS,CAAC,CAAD;AACd,aAAM,eAAU,CAAC,CAAD,CAAI,GAAE,GAAF;AAEpB,aAAM,EAAG,GAAE,CAAF;AACT,YAAc,CAAH,CAAD,OAAI,GAAE,CAAF,CAAK,IAAkB,CAAb,CAAC,QAAQ,CAAD,WAAP,CAAY,KAAE,GAAF,CAArC,EACE,KAAM,EAAG,GAAE,GADb;AAGA,aAAM;AACN,eAAM,CAAE,IAAU,IAAD,OAAjB;AAEE,cAAY,CAAD;AACX,cAAM,CAAF,CAAE,IAAG,CAAH,CAAM,IAAyC,CAAtB,CAAP,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,IAAF,CAAO,IAAc,CAAT,CAAC,QAAC,CAAE,GAAE,CAAF,IAAH,CAAQ,KAAE,IAAF,CAAd,CAAsB,IAAiB,CAAP,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,IAAF,CAAO,IAAc,CAAT,CAAC,QAAC,CAAE,GAAE,CAAF,IAAH,CAAQ,KAAE,IAAF,CAAd,CAAjB,CAArD;AAEE,gBAAK,eAAI,CAAC,EAAG,EAAG,CAAE,GAAE,CAAX;AACT,gBAAK;WAEF,UAAM,CAAF,CAAE,IAAG,CAAH,CAAM,IAAkB,CAAP,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,IAAF,CAAO,IAAS,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,IAAF,CAAT,CAA9B;AAEH,gBAAK,eAAI,CAAC,EAAG,EAAG,CAAE,GAAE,CAAX;AACT,gBAAK;WAGL,UAAK;AAEP,eAAM,YAAY,CAAC,KAAM;;;;cAAP;AAClB,cAAK,cAAS,CAAC,EAAD;AACd,eAAM,QAAG,CAAC,GAAI,eAAU,CAAC,EAAD,CAAK,GAAE,GAAtB;AAET,cAAwB,CAAJ,CAAhB,KAAK,KAAW,GAAH,EAAF,GAAO,CAAF,CAAI,GAAE,KAAK,MAAP,CAAe,IAAG,CAA1C;AAEE,gBAAM,CAAF,CAAE,KAAG,EAAH,CAAO,IAAI,CAAI,EAArB;AAEE,kBAAY,CAAD;AAEX,mBAAM,eAAI,CAAC,EAAG,EAAG,CAAP;AAEN,kBAAJ,IAAG;AACH,kBAAG,EAAG,GAAE,EAAR,EACE,KAAM,EADR;AAGA,kBAAG,CAAI,SAAP,EACE,QAAQ,CAAC,GAAI,GAAI,EAAT,CADV;AAGA,mBAAM;aAbR;AAgBA,gBAAK;AAEL,iBAAM;AACN,gBAAQ,CAAJ,GAAI,IAAI,CAAJ,CAAO,IAAG,CAAI,GAAtB;AACE,mBAAK,IAAL,GAAa,KAAK,IAAK,GAAE,EAAF;AACpB,sBAAI,GAAI,IAAI,CAAI,CAAhB,EACH,KAAM,IADH;AAGL,gBAAqB,CAAjB,gBAAK,CAAC,KAAK,IAAN,CAAY,GAAE,gBAAK,CAAc,CAAb,KAAK,OAAQ,GAAE,EAAF,CAAK,GAAE,GAArB,CAAP,CAAkC,IAAI,CAAI,SAA/D,EACE,KADF;WA1BF;AA8BA,eAAM,EAAG,GAAE,CAAF;AACT,cAAe,CAAJ,EAAD,OAAK,GAAE,CAAF,CAAK,IAAoB,CAAf,EAAE,QAAQ,EAAD,WAAP,CAAa,KAAE,GAAF,CAAxC,EACE,KAAM,EAAG,GAAE,GADb;AAEA,cAAK,CAAE,GAAE,EAAF;;AAGT,YAAG,CAAE,KAAG,EAAR;AAEE,cAAY,CAAD;AACX,eAAM,eAAI,CAAC,EAAG,EAAG,CAAP;AACN,cAAJ,IAAG;AACH,cAAG,EAAG,GAAE,EAAR,EACE,KAAM,EADR;AAGA,cAAG,CAAI,SAAP,EACE,QAAQ,CAAC,GAAI,GAAI,EAAT,CADV;SARF;AAYA,uBAAU,sBAAiB,CAAC,EAAE,MAAO,EAAE,KAAM,EAAE,KAAM,GAAE,EAAF,CAAM,EAAE,IAAK,GAAO,CAAL,IAAK,GAAE,EAAF,CAA9C,CAA3B;;AApMa;AAAQ;AA9BA;AAAR;AAEf;AACA;AAEA,WAAM;AACN,WAAM;AAEN,UAAG,0BAAS,IAAG,UAAf;AACE,aAAM;AAER,gBAAG,yBAAQ,IAAG,UAAd,EACE,KAAM,qCADR;AAGA,UAAG,kCAAiB,IAAG,UAAvB;AACE,aAAM;AAER,gBAAG,0BAAS,IAAG,UAAf,EACE,KAAM,qCADR;AAUA,qBAAU,eAAQ,CAAC,gCAAO,KAAM,6BAAY,IAAG,UAAH,CAAe,4BAAW,IAAG,UAAH,CAAe,GAAI,EAAvE,CAAlB;AA3Be;AAAQ;AAmPC;AAAT;AAEf;AACA;AAEA,UAAY,aAAD,QAAX;AAEE,YAAK,UAAI;AACT,qBAAQ,KAAR,GAAiB;AACjB,aAAM,aAAQ,YAAY,CAAC,IAAD;AAC1B,iBAAU,EAAE;OALd;AALe;AAAS;AAxSC;AAAV;AAEf,eAAU,iBAAY,CAAC,UAAI,MAAL;AAFP;AAAU;AA+bI;AAAd;AAEf,eAAU;AACV,UAAY,mBAAD,QAAX,EACE,SAAU,mBAAO,UAAU,EAD7B;AAHe;AAAc;AAmBJ;AAAV;AAEf,eAAU;AACV,UAAY,mBAAD,QAAX;AAEO;AACL,YADK,IACL;AAAU,mBAAU,mBAAO,UAAU;AACrC,kBAFK,IAEL;AAAO,mBAAU,mBAAO,UAAU,CAAC,WAAD;AAClC,kBAHK,IAGL;AAAQ,mBAAU,mBAAO,UAAU,CAAC,aAAa,GAAd;AACnC,kBAJK,IAIL;AAAO,mBAAU,mBAAO,UAAU,CAAC,WAAD;AAClC,kBALK,IAKL;AAAO,mBAAU,mBAAO,UAAU,CAAC,WAAD;AAClC,kBANK,IAML,4BAAO,SAAU,mBAAO,UAAU,CAAC,eAAD,CAAlC;OARF;AAHe;AAAU;AAiBI;AAE7B;AACA;AAEA,UAAY,mBAAD,QAAX;AAEE,YAAK,eAAU,CAAC,KAAD;AAEf,aAAqB,QAAQ,cAAc,CAAC,GAAD;AAC3C,UAAE,cAAC,OAAW,CAAZ;AACF,YAAI,SAAU,KAAG,EAAjB,EACE,EAAE,cAAC,WAAe,SAAhB,CADJ;AAEA,UAAE,MAAM,YAAY,CAAC,UAAU,MAAX;AACpB,gBAAQ,KAAK,YAAY,CAAC,EAAD;AACzB,UAAE,MAAM;AACR,gBAAQ,KAAK,YAAY,CAAC,EAAD;OAX3B;AAL6B;AA10DtB;AAoGiB;;AAEtB;AAFsB;;;;AAKR;;;;;;AAOa;;;;;;AAQlB;;;AAET;AACA;AACA;AACA;AACA;AACA;AAPS;;;;;;AAwhFgB;AAE3B,UAAI,UAAM,KAAG,KAAb;AAEE,qBAAS;AACT;OAHF;AAF2B;AAXD;AAAP;AAEnB,eAAU;AAFS;AAAO;AAZC;AAE3B,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAF2B;AAMI;AAE/B,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,IAAD,CADd;AAF+B;AAWC;AAEhC,uBAAa;AACb;AAHgC;AA5BN;AAE1B,UAAc,gBAAH,eAAP,MAAO,CAAX;AAEE,yBAAqB,OAAP,OAAU,gBAAH,CAAe;AACpC;OAGA;AARwB;AAt/Ef;AAqBQ,gCLltBP,kCKktBO;AACJ,4BAjUF,4BAiUE;AAtBJ;AA0BU,+EAAkC,uBAAlC;AAqPJ;AAAV;AAEP,aAAU;AAFH;AAAU;AAKA;AAAV;AAEP;AAGF;AACA;AACA;AACA;AACA;AACA;AAGE,aAAU,eAAI,CAAC,EAAE,EAAE,CAAL,CAAsB,GAAZ,eAAI,CAAC,EAAE,EAAE,CAAL,CAAN,GAAgB,eAAI,CAAC,EAAE,EAAE,CAAL,CAAN;AAb7B;AAAU;AAgBC;AAAX;AAEP,QAAW,CAAC,CAAD,cAAI,KAAE,CAAC,CAAlB;AACE,eAAU;AAEZ,cAAK,CAAF,CAAE,GAAI,UAAJ,CAAc,KAAG,CAAtB;AAEE,eAAU,GAAgC,GAA1B,eAAU,CAAC,CAAE,GAAI,QAAP,CAAZ,GAA8B,qBAAQ,CAAoB,WAAf,CAAF,CAAE,GAAI,UAAJ,CAAe,YAAQ,GAAI,IAAJ,CAAQ,CAApC,CAAV;KAG1C,eAAU,GAAI,GAAE,eAAU,CAAC,CAAD,CAAZ;AAVT;AAAW;AAaA;AAAX;AAEP,QAAG,cAAG,CAAC,IAAI,CAAL,CAAQ,KAAE,CAAhB,EACE,iBAAM,CAAC;;;;SAAE,EAAE,CAAL,CADR;AAGA,aAAU,eAAU,CAAC,CAAD;AALb;AAAW;AAuBE;AAAb;AAEF;AACL,QADK,IACL;AAAQ,eAAU;AAClB,cAFK,IAEL;AAAS,eAAU;AACnB,cAHK,IAGL;AAAU,eAAU;AACpB,cAJK,IAIL;AAAS,eAAU;AACnB,cALK,IAKL;AAAS,eAAU;AACnB,cANK,IAML;AAAQ,eAAU;AAClB,cAPK,IAOL;AAAU,eAAU;AACpB,cARK,IAQL;AAAQ,eAAU;AAClB,cATK,IASL;AAAQ,eAAU;AAClB,cAVK,IAUL;AAAU,eAAU;AACpB,cAXK,IAWL;AAAO,eAAU;AACjB,cAZK,IAYL;AAAQ,eAAU;AAClB,cAbK,IAaL;AAAU,eAAU;AACpB,cAdK,IAcL;AAAQ,eAAU;AAClB,cAfK,IAeL;AAAW,eAAU;AACrB,cAhBK,IAgBL;AAAQ,eAAU;AAClB,cAjBK,IAiBL;AAAS,eAAU;AACnB,cAlBK,IAkBL;AAAU,eAAU;AACpB,cAnBK,IAmBL;AAAU,eAAU;AACpB,cApBK,IAoBL;AAAW,eAAU;AACrB,cArBK,IAqBL;AAAW,eAAU;AACrB,cAtBK,IAsBL;AAAc,eAAU;AACxB,cAvBK,IAuBL;AAAU,eAAU;AACpB,cAxBK,IAwBL;AAAa,eAAU;AACvB,cAzBK,IAyBL;AAAiB,eAAS;AAC1B,cA1BK,IA0BL;AAAY,eAAS;AACrB,cA3BK,IA2BL;AAAU,eAAU;AACpB,cA5BK,IA4BL;AAAiB,eAAU;AAC3B,cA7BK,IA6BL;AAAmB,eAAU;AAC7B,cA9BK,IA8BL;AAAY,eAAU;;AAEpB,eAAU,GAAI,GAAE,gBAAU,CAAC,KAAD,CAAZ;;AAlCT;AAAa;AAsCA;AAAb;AAEP;AACA;AAEA,SAAM,sBAAS,CAAC,CAAD;AACf,QAAI,EAAG,KAAE,QAAT;AAAwB,eAAU;AAClC,cAAI,EAAG,KAAE,SAAT;AAAyB,eAAU;AACnC,cAAI,EAAG,KAAE,UAAT;AAA0B,eAAU;AACpC,cAAI,EAAG,KAAE,SAAT;AAAyB,eAAU;AACnC,cAAI,EAAG,KAAE,SAAT;AAAyB,eAAU;AACnC,cAAI,EAAG,KAAE,QAAT;AAAwB,eAAU;AAClC,cAAI,EAAG,KAAE,UAAT;AAA0B,eAAU;AACpC,cAAI,EAAG,KAAE,QAAT;AAAwB,eAAU;AAClC,cAAI,EAAG,KAAE,QAAT;AAAwB,eAAU;AAClC,cAAI,EAAG,KAAE,UAAT;AAA0B,eAAU;AACpC,cAAI,EAAG,KAAE,OAAT;AAAuB,eAAU;AACjC,cAAI,EAAG,KAAE,QAAT;AAAwB,eAAU;AAClC,cAAI,EAAG,KAAE,UAAT;AAA0B,eAAU;AACpC,cAAI,EAAG,KAAE,QAAT;AAAwB,eAAU;AAClC,cAAI,EAAG,KAAE,WAAT;AAA2B,eAAU;AACrC,cAAI,EAAG,KAAE,QAAT;AAAwB,eAAU;AAClC,cAAI,EAAG,KAAE,SAAT;AAAyB,eAAU;AACnC,cAAI,EAAG,KAAE,UAAT;AAA0B,eAAU;AACpC,cAAI,EAAG,KAAE,UAAT;AAA0B,eAAU;AACpC,cAAI,EAAG,KAAE,WAAT;AAA2B,eAAU;AACrC,cAAI,EAAG,KAAE,WAAT;AAA2B,eAAU;AACrC,cAAI,EAAG,KAAE,cAAT;AAA8B,eAAU;AACxC,cAAI,EAAG,KAAE,UAAT;AAA0B,eAAU;AACpC,cAAI,EAAG,KAAE,aAAT;AAA6B,eAAU;AACvC,cAAI,EAAG,KAAE,iBAAT;AAAiC,eAAU;AAC3C,cAAI,EAAG,KAAE,YAAT;AAA4B,eAAU;AACtC,cAAI,EAAG,KAAE,UAAT;AAA0B,eAAU;AACpC,cAAI,EAAG,KAAE,iBAAT;AAAiC,eAAU;AAC3C,cAAI,EAAG,KAAE,mBAAT;AAAmC,eAAU;AAC7C,cAAI,EAAG,KAAE,YAAT;AAA4B,eAAU;;AAEpC,YAAO,eAAU,CAAC,EAAD;AAEjB,eAAyB,CAAT,CAAJ,GAAI,GAAI,IAAJ,CAAS,IAAI,EAAJ,CAAyD,GAAzC,CAAJ,GAAI,GAAI,MAAJ,CAAR,GAAyC,CAAb,CAAJ,GAAI,GAAI,QAAJ,CAAa,KAAI,EAAJ,CAAtB,GAAsC,CAAJ,GAAI,GAAI,UAAJ,CAAR;;AAvC7E;AAAa;AAgHC;AAAd;AAEF;AACL,QADK,IACL;AAAc,eAAU;AACxB,cAFK,IAEL;AAAiB,eAAU;AAC3B,cAHK,IAGL;AAAgB,eAAU;AAC1B,cAJK,IAIL;AAAa,eAAU;AACvB,cALK,IAKL;AAAkB,eAAU;AAC5B,cANK,IAML;AAAiB,eAAU;AAC3B,cAPK,IAOL;AAAe,eAAU;AACzB,cARK,IAQL;AAAgB,eAAU;AAC1B,cATK,IASL;AAAqB,eAAU;AAC/B,cAVK,IAUL;AAAe,eAAU;AACzB,cAXK,IAWL;AAAiB,eAAU;AAC3B,cAZK,IAYL;AAAgB,eAAU;AAC1B,cAbK,IAaL;AAAgB,eAAU;AAC1B,cAdK,IAcL;AAAgB,eAAU;AAC1B,cAfK,IAeL;AAAiB,eAAU;AAC3B,cAhBK,IAgBL;AAAc,eAAU;AACxB,cAjBK,IAiBL;AAAoB,eAAU;AAC9B,cAlBK,IAkBL,UAAa,SAAU,aAAvB;AApBO;AAAc;AAwBA;AAAd;AAEP,QAAG,CAAE,KAAE,cAAP,EAA2B,SAAU,CAArC;AACA,QAAG,CAAE,KAAE,iBAAP,EAA8B,SAAU,CAAxC;AACA,QAAG,CAAE,KAAE,gBAAP,EAA6B,SAAU,CAAvC;AACA,QAAG,CAAE,KAAE,aAAP,EAA0B,SAAU,EAApC;AACA,QAAG,CAAE,KAAE,kBAAP,EAA+B,SAAU,GAAzC;AACA,QAAG,CAAE,KAAE,iBAAP,EAA8B,SAAU,GAAxC;AACA,QAAG,CAAE,KAAE,eAAP,EAA4B,SAAU,GAAtC;AACA,QAAG,CAAE,KAAE,gBAAP,EAA6B,SAAU,GAAvC;AACA,QAAG,CAAE,KAAE,qBAAP,EAAkC,SAAU,GAA5C;AACA,QAAG,CAAE,KAAE,eAAP,EAA4B,SAAU,GAAtC;AACA,QAAG,CAAE,KAAE,iBAAP,EAA8B,SAAU,GAAxC;AACA,QAAG,CAAE,KAAE,gBAAP,EAA6B,SAAU,GAAvC;AACA,QAAG,CAAE,KAAE,gBAAP,EAA6B,SAAU,GAAvC;AACA,QAAG,CAAE,KAAE,gBAAP,EAA6B,SAAU,GAAvC;AACA,QAAG,CAAE,KAAE,iBAAP,EAA8B,SAAU,GAAxC;AACA,QAAG,CAAE,KAAE,cAAP,EAA2B,SAAU,GAArC;AACA,QAAG,CAAE,KAAE,oBAAP,EAAiC,SAAU,GAA3C;AACA,QAAG,CAAE,KAAE,aAAP,EAA0B,SAAU,GAApC;AAnBO;AAAc;AA/BA;AAAd;AAEP,aAAU,uBAAU,CAAC,EAAD,CAAI,GAAC,IAAD;AACxB,aAAU,0BAAa,CAAC,OAAQ,IAAK,IAAK,cAAC,4CAAD,CAAnB;AAHhB;AAAc;AARN;AAAR;AAGP,qBAAM,CAAC;;;;SAAE,EAAE,CAAL;AACN,qBAAM,CAAC;;;;SAAS,CAAD,OAAI,GAAE,CAAF,CAAK,CAAlB;AACN,aAAU,qBAAQ,CAAC,IAAK,GAAE,CAAR;AALX;AAAQ;AAvBE;AAAV;AAEP;AACA;AAEA,QAAK;AACL,aAAS,QAAW,OAAC,CAAD,yBAApB;AAAI;AAGF,UAAiB,CAAP,CAAL,CAAC,QAAC,KAAD,CAAI,IAAE,GAAF,CAAO,IAAU,CAAL,CAAC,QAAC,KAAD,CAAI,IAAG,GAAH,CAAV,CAAmB,IAAiB,CAAP,CAAL,CAAC,QAAC,KAAD,CAAI,IAAE,GAAF,CAAO,IAAU,CAAL,CAAC,QAAC,KAAD,CAAI,IAAG,GAAH,CAAV,CAAkB,IAAiB,CAAP,CAAL,CAAC,QAAC,KAAD,CAAI,IAAE,GAAF,CAAO,IAAU,CAAL,CAAC,QAAC,KAAD,CAAI,IAAG,GAAH,CAAV,CAAxF,EACE,IAAK,CAAE,GAAE,CAAC,QAAC,KAAD,CADZ;;AAIF,QAAU,CAAD,OAAI,GAAE,CAAf;AACE,UAAK,GAA8C,GAAxC,eAAI,CAAC,EAAE,EAAE,CAAL,CAAN,GAAgB,eAAI,CAAC,EAAE,EAAE,CAAL,CAAN,GAAgB,eAAI,CAAC,EAAE,EAAE,CAAL,CAAN,GAAgB,eAAI,CAAC,EAAE,EAAE,CAAL,CAAN;AAChD,cAAU,CAAD,OAAI,KAAE,CAAf;AACH,UAAK,GAA0E,GAApE,eAAI,CAAC,EAAE,EAAE,CAAL,CAAN,GAAgB,eAAI,CAAC,EAAE,EAAE,CAAL,CAAN,GAAgB,eAAI,CAAC,EAAE,EAAE,CAAL,CAAN,GAAgB,eAAI,CAAC,EAAE,EAAE,CAAL,CAAN,GAAgB,eAAI,CAAC,EAAE,EAAE,CAAL,CAAN,GAAgB,eAAI,CAAC,EAAE,EAAE,CAAL,CAAN;AAE/E,cAAK,GAAgC,GAA1B,eAAI,CAAC,EAAE,EAAE,CAAL,CAAN,GAAgB,eAAI,CAAC,EAAE,EAAE,CAAL,CAAN,GAAgB,eAAI,CAAC,EAAE,EAAE,CAAL,CAAN;AAEvC,aAAU,uBAAU,CAAC,CAAD;AApBb;AAAU;AA9BA;AAAV;AAEP;AAAE;AAAE;AACJ;AAAG;AAAG;AACN;AAEA,aAAU;AAEV,WAAQ,iBAAI,CAAC,IAAD;AAEZ,QAAG,cAAG,CAAC,MAAO,sBAAS,CAAC,IAAD,CAAjB,CAAyB,GAAE,CAAjC;AAEE,uBAAM,CAAC;;;;WAAK,EAAE,CAAR;AAEN,UAAK,eAAI,CAAC,KAAK,EAAG,cAAG,CAAC,IAAK,IAAN,CAAY,GAAC,CAAzB;AACT,uBAAM,CAAC;;;;WAAM,EAAG,cAAG,CAAC,IAAK,IAAN,CAAY,GAAE,CAA3B;AAEN,UAAK,eAAI,CAAC,KAAK,EAAG,cAAG,CAAC,IAAK,IAAN,CAAY,GAAC,CAAzB;AACT,uBAAM,CAAC;;;;WAAM,EAAG,cAAG,CAAC,IAAK,IAAN,CAAY,GAAE,CAA3B;AAEN,UAAK,eAAI,CAAC,KAAK,EAAG,cAAG,CAAC,IAAK,IAAN,CAAY,GAAC,CAAzB;AAET,sBAAG,CAAC,EAAG;;;;WAAI;;;;UAAR;AACH,sBAAG,CAAC,EAAG;;;;WAAI;;;;UAAR;AACH,sBAAG,CAAC,EAAG;;;;WAAI;;;;UAAR;AAEH,eAAU,QAAG,CAAC,GAAG,GAAG,EAAP;KAhBf;AAVO;AAAU;AAoKE;AAAZ;AAEP,aAAa,CAAH,EAAG,GAAE,EAAF,CAAK,GAAE,EAAF;AAFX;AAAY;AA9TH;AAAT;AAEP,aAAe,GAAD,GAAS,IAAJ,GAAL;AAFP;AAAS;AAKA;AAAT;AAEP,aAAoB,WAAJ,GAAI,OAAN,GAAiB,IAAJ,GAAb;AAFP;AAAS;AAKA;AAAT;AAEP,aAAoB,WAAJ,GAAI,SAAN,GAAkB,IAAJ,GAAd;AAFP;AAAS;AA9CQ;AAAjB;AAEP,UAAM,KAAN,GAAe;AACf,UAAM,IAAN,GAAc;AACd,UAAM,MAAN,GAAgB;AAChB,UAAM,OAAN,GAAiB;AALV;AAAiB;AAQC;AAAlB;AAEP,UAAM,EAAN,GAAY;AACZ,UAAM,EAAN,GAAY;AAHL;AAAkB;AAMD;AAAjB;AAEP,UAAM,GAAN,GAAa;AACb,UAAM,GAAN,GAAa;AAHN;AAAiB;AAMN;AAAX;AAEP,mBAAU,sBAAiB,CAAC,KAAM,IAAK,MAAO,MAAnB,CAA3B;AAFO;AAAW;AAKC;AAAZ;AAEP,mBAAU,uBAAkB,CAAC,EAAE,CAAH,CAA5B;AAFO;AAAY;AAKD;AAAX;AAEP,mBAAU,sBAAiB,CAAC,GAAI,EAAL,CAA3B;AAFO;AAAW;AApKR;AAAH;AAEP,aAAW,CAAe,GAAP,CAAF,CAAE,IAAI,CAAJ,CAAN,GAAmB,CAAF,CAAE,IAAI,EAAJ,CAAN;AAFnB;AAAG;AAKC;AAAJ;AAEP,aAAW,CAA8B,GAAtB,CAAF,CAAE,IAAI,CAAJ,CAAN,GAAmB,CAAF,CAAE,IAAI,EAAJ,CAAN,GAAqB,CAAF,CAAE,IAAI,EAAJ,CAAN;AAFlC;AAAI;AAmGG;AAAP;AAEP;AAAI;AAEJ,UAAO,cAAyB,GAAT,IAAI,MAAN,GAAY,GAAD;AAChC,UAAO,GAAI,GAAE,qBAAF;AAEX,QAAG,sBAAO,IAAG,IAAI,OAAjB,EACE,MAAO,GAAI,GAAE,oBADf;AAGA,QAAG,wBAAS,IAAG,IAAI,OAAnB,EACE,MAAO,GAAI,GAAE,qBADf;AAGA,SAAM;AAEN,QAAG,2BAAY,IAAG,IAAI,OAAtB,EACE,KAAM,EAAG,GAAE,YADb;AAGA,QAAG,2BAAY,IAAG,IAAI,OAAtB,EACG,KAAK,EAAG,GAAE,eADb;AAGA,QAAI,EAAG,KAAG,EAAV,EACE,MAAO,GAA6B,GAAvB,kBAAF,GAAuB,EAAF,GAAK,GADvC;AAGA,UAAO,GAAwC,GAAlC,YAAF,GAAgB,qBAAQ,CAAC,IAAI,MAAL,CAAV,GAAwB,KAAF;AAE/C,aAAU;AA1BH;AAAO;AAxCS;AAEvB;AAGA,QAAW,CAAP,MAAO,IAAE,CAAF,CAAK,IAAY,CAAR,OAAQ,IAAG,CAAH,CAA5B,EACE,MADF;AAGA,WAAQ,QAAQ,cAAc,CAAC,KAAD;AAGhC;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,QAAI,cAAC,MAAU,QAAX;AArCmB;AA11BzB,mBA+vBc;AAMC;;;AAEX;AACA;AAHW;;;;;AAy2EiB;AAE9B,sBAAU;AACV,mBAAO;AAHwD;AAAjC;AAz2EjB;AAUI;AAw3EY;AAAJ;AAEzB;AACA;AAEA,iBAAU;AACV,iBAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,eAAe,OAAT,YAAK,CAAC,CAAD,EAAO,mBAAH;AACf,cAAU,CAAN,EAAE,IAAI,KAAE,GAAF,CAAO,IAAY,CAAC,EAAE,OAAH,SAA7B;AAEE,uBAAU,EAAE,OAAZ;AACA,qBAAU;AACV;WAJF;;AATuB;AAAI;AAjBE;AAAN;AAEzB;AACA;AAEA,iBAAU;AACV,iBAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,eAAe,OAAT,YAAK,CAAC,CAAD,EAAO,mBAAH;AACf,cAAU,CAAN,EAAE,IAAI,KAAE,GAAF,CAAO,IAAY,CAAC,EAAE,OAAH,SAA7B;AAEE,qBAAU;AACV;WAHF;;AATuB;AAAM;AAv2Ed;AAOjB;AACA;AACA,wBAAuB;AAYF;AAAd;AAEP,YAAM,IAAN,GAAc;AACd,YAAM,IAAN,GAAc;AACd,YAAM,IAAN,GAAc;AACd,YAAM,IAAN,GAAc;AACd,YAAM,IAAN,GAAc;AACd,YAAM,IAAN,GAAc;AACd,YAAM,IAAN,GAAc;AACd,YAAM,IAAN,GAAc;AACd,YAAM,IAAN,GAAc;AAVP;AAAc;AAcD;AAAb;AAEP;AACA;AAEA,WAAM;AAER;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEE,eAAU;AAhBH;AAAa;AAoBM;AAAnB;AAEP,qBAAU,sBAAV;AACA,YAAM,IAAN,GAAc;AACd,YAAM,IAAN,GAAc;AAJP;AAAmB;AAOL;AAAd;AAEP,YAAM,IAAN,GAA2B,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAA6C,GAAf,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf,GAA6C,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf;AACxE,YAAM,IAAN,GAA2B,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAA6C,GAAf,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf,GAA6C,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf;AACxE,YAAM,IAAN,GAA2B,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAA6C,GAAf,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf,GAA6C,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf;AACxE,YAAM,IAAN,GAA2B,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAA6C,GAAf,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf,GAA6C,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf;AACxE,YAAM,IAAN,GAA2B,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAA6C,GAAf,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf,GAA6C,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf;AACxE,YAAM,IAAN,GAA2B,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAA6C,GAAf,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf,GAA6C,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf;AACxE,YAAM,IAAN,GAA2B,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAA6C,GAAf,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf,GAA6C,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf;AACxE,YAAM,IAAN,GAA2B,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAA6C,GAAf,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf,GAA6C,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf;AACxE,YAAM,IAAN,GAA2B,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAA6C,GAAf,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf,GAA6C,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf;AAVjE;AAAc;AAgLJ;AAAV;AAEP;AAGF;AACA;AACA;AACA;AACA;AAEE,eAAU,eAAI,CAAC,EAAE,EAAE,CAAL,CAAsB,GAAZ,eAAI,CAAC,EAAE,EAAE,CAAL,CAAN,GAAgB,eAAI,CAAC,EAAE,EAAE,CAAL,CAAN;AAX7B;AAAU;AA+bG;AAAb;AAEP;AAAO;AACP;AAEA,UAAM,CAAF,EAAE,KAAC,EAAD,CAAK,IAAO,CAAF,EAAE,KAAC,EAAD,CAAlB;AAEE,iBAAQ;AACR;OAHF;AAMA,cAAS,QAAG,CAAC,EAAG,GAAE,EAAN;AACZ,UAAI,KAAK,KAAC,CAAV;AAEE,gBAAO;AACP,aAAM,EAAE,GAAC,SAAD;OAHV;AAMA,cAAS,QAAG,CAAC,EAAE,GAAE,EAAL;AACZ,UAAI,KAAK,KAAC,CAAV;AAEE,gBAAO;AACP,aAAM,EAAG,GAAE,SAAF;OAHX;AAMA,cAAS,SAAM,CAAC,KAAK,GAAC,KAAP;AAEf,UAAO,CAAF,EAAE,GAAC,EAAD,CAAK,IAAO,CAAF,EAAE,GAAC,EAAD,CAAnB,EAA8B,QAAO,OAAE,GAAC,KAAxC;AACA,UAAO,CAAF,EAAE,GAAC,EAAD,CAAK,IAAO,CAAF,EAAE,GAAC,EAAD,CAAnB,EAA8B,QAAO,KAAM,GAAC,OAA5C;AACA,UAAO,CAAF,EAAE,GAAC,EAAD,CAAK,IAAO,CAAF,EAAE,GAAC,EAAD,CAAnB,EAA8B,QAAQ,CAAD,CAAC,GAAC,OAAD,CAAG,GAAC,KAA1C;AAEA,aAAM,KAAK,IAAI,CAAD,CAAC,GAAC,OAAD,CAAf,EACE,QAAS,KAAM,GAAG,CAAD,CAAC,GAAC,OAAD,CAAH;AACjB,aAAM,KAAM,GAAE,CAAd,EACC,QAAS,KAAM,GAAG,CAAD,CAAC,GAAC,OAAD,CAAH;AAChB,eAAU;AAnCH;AAAa;AA7rBR;AAu/Ed;AAEE,mBAAU,uBAAiB,QAAC;AAC5B,mBAAU,uBAAW,QAAC;AAHxB;AAtvGA,GA+vBc,6DA/vBd;ASAA,6BAIS,oBAJT;;;AAWa;AADK,2CACL,uCADK;AACL;;;AAET;AACA;AACA;AACA;AACA;AANS;;;;;;AA+CiB;AAE5B;AACA,UAAY,cAAD,QAAX,EACE,cAAS,CAAC,IAAD,CADX;AAH4B;AAOC;AAE7B,UAAY,eAAD,QAAX,EACE,eAAU,CAAC,IAAD,CADZ;AAF6B;AAMI;;AAlCF;AAEf,gDAAC,MAAD;AAFoD;AAArC;AAOM;AAE3B;AACV,UAAG,CAAI,oBAAP,EACE,eADF;AAHqC;AAOA;AAE3B;AACV,UAAG,CAAI,oBAAP,EACE,gBADF;AAHqC;AAxC1B;;AAYY,gCAAO,UdyhBpB,+BczhBoB,EAAmB,qBAA1B;AAOJ,gCdvBP,kCcuBO;AACC,iCdxBR,kCcwBQ;AApBT;AAXb;ACfA,0BAES,UAFT;;;AAMa;;AA0LmB;AAAvB;AAEF;AACH,QADG,IACH;AAAO,eAAU;AACjB,cAFG,IAEH;AAAO,eAAU;AACjB,cAHG,IAGH;AAAY,eAAU;AACtB,cAJG,IAIH;AAAU,eAAU;AACpB,cALG,IAKH;AAAY,eAAU;AACtB,cANG,IAMH;AAAO,eAAU;AACjB,cAPG,IAOH;AAAU,eAAU;AACpB,cARG,IAQH;AAAY,eAAU;AACtB,cATG,IASH;AAAS,eAAU;AACnB,cAVG,IAUH;AAAW,eAAU;AACrB,cAXG,IAWH;AAAS,eAAU;AACnB,cAZG,IAYH;AAAS,eAAU;AACnB,cAbG,IAaH;AAAc,eAAU;AACxB,cAdG,IAcH;AAAU,eAAU;AACpB,cAfG,IAeH;AAAa,eAAU;AACvB,cAhBG,IAgBH;AAAY,eAAU;AACtB,cAjBG,IAiBH;AAAS,eAAU;AACnB,cAlBG,IAkBH;AAAU,eAAU;AACpB,cAnBG,IAmBH;AAAU,eAAU;AACpB,cApBG,IAoBH;AAAU,eAAU;AACpB,cArBG,IAqBH;AAAU,eAAU;AACpB,cAtBG,IAsBH;AAAS,eAAU;AACnB,cAvBG,IAuBH;AAAU,eAAU;AACpB,cAxBG,IAwBH;AAAU,eAAU;AACpB,cAzBG,IAyBH;AAAU,eAAU;AACpB,cA1BG,IA0BH;AAAW,eAAU;AACrB,cA3BG,IA2BH;AAAW,eAAU;AACrB,cA5BG,IA4BH;AAAO,eAAU;AACjB,cA7BG,IA6BH;AAAQ,eAAU;AAClB,cA9BG,IA8BH;AAAY,eAAU;AACtB,cA/BG,IA+BH;AAAU,eAAU;AACpB,cAhCG,IAgCH;AAAQ,eAAU;AAClB,cAjCG,IAiCH;AAAS,eAAU;AACnB,cAlCG,IAkCH;AAAS,eAAU;AACnB,cAnCG,IAmCH;AAAS,eAAU;AACnB,cApCG,IAoCH;AAAW,eAAU;AACrB,cArCG,IAqCH;AAAM,eAAU;AAChB,cAtCG,IAsCH;AAAU,eAAU;AACpB,cAvCG,IAuCH;AAAY,eAAU;AACtB,cAxCG,IAwCH;AAAU,eAAU;AACpB,cAzCG,IAyCH;AAAW,eAAU;AACrB,cA1CG,IA0CH;AAAS,eAAU;AACnB,cA3CG,IA2CH;AAAU,eAAU;AACpB,cA5CG,IA4CH;AAAQ,eAAU;AAClB,cA7CG,IA6CH;AAAU,eAAU;AACpB,cA9CG,IA8CH;AAAS,eAAU;AACnB,cA/CG,IA+CH;AAAU,eAAU;AACpB,cAhDG,IAgDH;AAAS,eAAU;AACnB,cAjDG,IAiDH;AAAiB,eAAU;AAC3B,cAlDG,IAkDH;AAAQ,eAAU;AAClB,cAnDG,IAmDH;AAAS,eAAU;AACnB,cApDG,IAoDH;AAAW,eAAU;AACrB,cArDG,IAqDH;AAAU,eAAU;AACpB,cAtDG,IAsDH;AAAW,eAAU;AACrB,cAvDG,IAuDH;AAAO,eAAU;AACjB,cAxDG,IAwDH;AAAQ,eAAU;AAClB,cAzDG,IAyDH;AAAS,eAAU;AACnB,cA1DG,IA0DH;AAAQ,eAAU;AAClB,cA3DG,IA2DH;AAAW,eAAU;AACrB,cA5DG,IA4DH;AAAW,eAAU;AACrB,cA7DG,IA6DH;AAAU,eAAU;AACpB,cA9DG,IA8DH;AAAY,eAAU;AACtB,cA/DG,IA+DH;AAAW,eAAU;AACrB,cAhEG,IAgEH;AAAS,eAAU;AACnB,cAjEG,IAiEH;AAAc,eAAU;AACxB,cAlEG,IAkEH;AAAa,eAAU;AACvB,cAnEG,IAmEH;AAAc,eAAU;AACxB,cApEG,IAoEH;AAAO,eAAU;AACjB,cArEG,IAqEH;AAAY,eAAU;AACtB,cAtEG,IAsEH;AAAU,eAAU;AACpB,cAvEG,IAuEH;AAAM,eAAU;AAChB,cAxEG,IAwEH;AAAY,eAAU;AACtB,cAzEG,IAyEH;AAAU,eAAU;AACpB,cA1EG,IA0EH;AAAY,eAAU;AACtB,cA3EG,IA2EH;AAAW,eAAU;AACrB,cA5EG,IA4EH;AAAW,eAAU;AACrB,cA7EG,IA6EH;AAAW,eAAU;AACrB,cA9EG,IA8EH;AAAQ,eAAU;AAClB,cA/EG,IA+EH;AAAS,eAAU;AACnB,cAhFG,IAgFH;AAAW,eAAU;AACrB,cAjFG,IAiFH;AAAS,eAAU;AACnB,cAlFG,IAkFH;AAAc,eAAU;AACxB,cAnFG,IAmFH;AAAe,eAAU;AACzB,cApFG,IAoFH;AAAU,eAAU;AACpB,cArFG,IAqFH;AAAS,eAAU;AACnB,cAtFG,IAsFH;AAAS,eAAU;AACnB,cAvFG,IAuFH;AAAW,eAAU;AACrB,cAxFG,IAwFH;AAAU,eAAU;AACpB,cAzFG,IAyFH;AAAO,eAAU;AACjB,cA1FG,IA0FH;AAAU,eAAU;AACpB,cA3FG,IA2FH;AAAU,eAAU;AACpB,cA5FG,IA4FH;AAAQ,eAAU;AAClB,cA7FG,IA6FH;AAAgB,eAAU;AAC1B,cA9FG,IA8FH;AAAQ,eAAU;AAClB,cA/FG,IA+FH;AAAY,eAAU;AACtB,cAhGG,IAgGH;AAAU,eAAU;AACpB,cAjGG,IAiGH;AAAM,eAAU;AAChB,cAlGG,IAkGH;AAAa,eAAU;AACvB,cAnGG,IAmGH;AAAc,eAAU;AACxB,cApGG,IAoGH;AAAU,eAAU;AACpB,cArGG,IAqGH;AAAW,eAAU;AACrB,cAtGG,IAsGH;AAAc,eAAU;AACxB,cAvGG,IAuGH;AAAQ,eAAU;AAClB,cAxGG,IAwGH;AAAa,eAAU;AACvB,cAzGG,IAyGH;AAAY,eAAU;AACtB,cA1GG,IA0GH;AAAY,eAAU;AACtB,cA3GG,IA2GH;AAAU,eAAU;AACpB,cA5GG,IA4GH;AAAQ,eAAU;AAClB,cA7GG,IA6GH;AAAU,eAAU;AACpB,cA9GG,IA8GH;AAAU,eAAU;AACpB,cA/GG,IA+GH;AAAQ,eAAU;AAClB,cAhHG,IAgHH;AAAU,eAAU;AACpB,cAjHG,IAiHH;AAAS,eAAU;AACnB,cAlHG,IAkHH;AAAS,eAAU;AACnB,cAnHG,IAmHH;AAAQ,eAAU;AAClB,cApHG,IAoHH;AAAY,eAAU;AACtB,cArHG,IAqHH;AAAS,eAAU;AACnB,cAtHG,IAsHH;AAAW,eAAU;AACrB,cAvHG,IAuHH;AAAU,eAAU;AACpB,cAxHG,IAwHH;AAAS,eAAU;AACnB,cAzHG,IAyHH;AAAQ,eAAU;AAClB,cA1HG,IA0HH;AAAQ,eAAU;AAClB,cA3HG,IA2HH;AAAW,eAAU;AACrB,cA5HG,IA4HH;AAAU,eAAU;AACpB,cA7HG,IA6HH;AAAO,eAAU;AACjB,cA9HG,IA8HH;AAAS,eAAU;AACnB,cA/HG,IA+HH;AAAS,eAAU;AACnB,cAhIG,IAgIH;AAAa,eAAU;AACvB,cAjIG,IAiIH;AAAU,eAAU;AACpB,cAlIG,IAkIH;AAAU,eAAU;AACpB,cAnIG,IAmIH;AAAQ,eAAU;AAClB,cApIG,IAoIH;AAAW,eAAU;AACrB,cArIG,IAqIH;AAAU,eAAU;AACpB,cAtIG,IAsIH;AAAc,eAAU;AACxB,cAvIG,IAuIH;AAAW,eAAU;AACrB,cAxIG,IAwIH;AAAY,eAAU;AACtB,cAzIG,IAyIH;AAAS,eAAU;AACnB,cA1IG,IA0IH;AAAe,eAAU;AACzB,cA3IG,IA2IH;AAAQ,eAAU;AAClB,cA5IG,IA4IH;AAAU,eAAU;AACpB,cA7IG,IA6IH;AAAS,eAAU;AACnB,cA9IG,IA8IH;AAAY,eAAU;AACtB,cA/IG,IA+IH;AAAS,eAAU;AACnB,cAhJG,IAgJH;AAAQ,eAAU;AAClB,cAjJG,IAiJH;AAAS,eAAU;AACnB,cAlJG,IAkJH;AAAW,eAAU;AACrB,cAnJG,IAmJH;AAAU,eAAU;AACpB,cApJG,IAoJH;AAAQ,eAAU;AAClB,cArJG,IAqJH;AAAQ,eAAU;AAClB,cAtJG,IAsJH;AAAY,eAAU;AACtB,cAvJG,IAuJH;AAAU,eAAU;AACpB,cAxJG,IAwJH;AAAU,eAAU;AACpB,cAzJG,IAyJH;AAAQ,eAAU;AAClB,cA1JG,IA0JH;AAAS,eAAU;AACnB,cA3JG,IA2JH;AAAQ,eAAU;AAClB,cA5JG,IA4JH;AAAO,eAAU;AACjB,cA7JG,IA6JH;AAAW,eAAU;AACrB,cA9JG,IA8JH;AAAU,eAAU;AACpB,cA/JG,IA+JH;AAAU,eAAU;AACpB,cAhKG,IAgKH;AAAS,eAAU;AACnB,cAjKG,IAiKH;AAAQ,eAAU;AAClB,cAlKG,IAkKH;AAAU,eAAU;AACpB,cAnKG,IAmKH;AAAS,eAAU;AACnB,cApKG,IAoKH;AAAQ,eAAU;AAClB,cArKG,IAqKH;AAAM,eAAU;AAChB,cAtKG,IAsKH;AAAW,eAAU;AACrB,cAvKG,IAuKH;AAAS,eAAU;AACnB,cAxKG,IAwKH;AAAY,eAAU;AACtB,cAzKG,IAyKH;AAAO,eAAU;AACjB,cA1KG,IA0KH;AAAQ,eAAU;AAClB,cA3KG,IA2KH;AAAQ,eAAU;AAClB,cA5KG,IA4KH;AAAa,eAAU;AACvB,cA7KG,IA6KH;AAAU,eAAU;AACpB,cA9KG,IA8KH;AAAQ,eAAU;AAClB,cA/KG,IA+KH;AAAQ,eAAU;AAClB,cAhLG,IAgLH;AAAU,eAAU;AACpB,cAjLG,IAiLH;AAAS,eAAU;AACnB,cAlLG,IAkLH;AAAS,eAAU;AACnB,cAnLG,IAmLH;AAAU,eAAU;AACpB,cApLG,IAoLH,6BAAO,SAAU,IAAjB;AAtLK;AAAuB;AAhMhC;ACeA,2BAIS,yEAJT;;;;AAyLW;AA1JA;AAuIM;AAxJE;;AACP;;AACE;AAEH;AACoB;;AAET,2EAAmB,UzB0FhC,2ByB1FgC,EAAiB,UAU/C,uBAV+C,EAAoB,uBAAxD;AAEP;AA+9Ce;AAAP;AAErB,eAAmB,cAAW,QAAK,CAAC,KAAD,CAAhB;AAFE;AAAO;AAKC;AAEnB,cAAK,CAAC,MAAU,KAAX;AAFc;AAp+ChB;AAQJ;;;AAEP;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAvBO;;;;;;;;;AAusCmB;AAE5B;AACA;AAAM;AACN;AACA;AAEA,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ,oBAAa;AACb,YAAY,SAAD,QAAX;AAEE,cAAiB,cAAH,eAAV,SAAU,CAAc,IAAI,KAAhC;AAEE,mBAAkB;AAClB,qBAAS,QAAsB,OAAjB,IAAI,OAAM,SAAC,EAAM,GAAE,CAAF,kBAA/B;AAAI;AAEF,0BAAuB,IAAI,OAAM,SAAC,CAAD;AACjC,kBAAI,SAAS,WAAY,IAAe,CAAV,SAAU,KAAG,IAAH,CAAxC,EACE,SAAS,WAAC,CAAW,KAAX,CADZ;;WANJ;AAWA,iBAAM,CAAkB,oBAAH,eAAV,SAAU,CAAoB,IAAY,CAAC,SAAD,SAArD;AAEE,wBAAa,SAAS;;SAf1B;AAmBA,aAAM;AACN,YAAY,EAAD,QAAX,EACE,EAAE,gBADJ;OAxBF;AAP4B;AAVA;AAE5B;AAEA,sBAAY;AACZ,WAAM;AACN,UAAY,EAAD,QAAX,EACE,EAAE,gBADJ;AAN4B;AAkEG;AAE/B;AAEA,yBAAe;AACf,WAAM;AACN,UAAY,EAAD,QAAX,EACE,EAAE,gBADJ;AAN+B;AATH;AAE5B,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ,4BAAa;OAHf;AAF4B;AAjIA;AAAX;AAEjB,eAAU,WAAK,SAAC,MAAD;AAFE;AAAW;AAoJC;AAE7B,iBAAK,SAAC,OAAW,KAAZ;AAFwB;AA5JJ;AAAR;AAEjB,UAAG,WAAO,KAAE,IAAZ;AACE,iBAAU;AAEV,qBAAU,WAAM,SAAC;AALF;AAAQ;AAhFC;AAE1B,yBAAe;AAEf,UAAa,cAAH,eAAP,MAAO,CAAV,EACE,mBAAe,MADjB;AAGgB,gDAAC,MAAD;AAEhB,0BAAgB;AAChB,gCAAsB;AACtB,yBAAe,CAAC;AAChB,mBAAS;AACT,sBAAY;AACZ,sBAAY;AACZ,sBAAY;AACZ,sBAAY;AACZ,wBAAc;AACd,sBAAY;AACZ,sBAAoB;AAnB2B;AAArB;AAsBA;AAE1B;AACA;AACA;AAEA,WAAM;AAGN,UAAW,CAAC,gBAAD,SAAS,IAAY,CAAC,EAAD,SAAhC;AAEE,UAAE;AAEF,iBAAuC,KAApB,gBAAO,OAAM,SAAC,EAAM,GAAE,CAAF,EAAW,aAAlD;AAAI;AAEF,cAAc,gBAAO,OAAM,SAAC,CAAD,CAAI,KAAE,IAAjC;AAEY,4BAAO,OAAM,OAAO,CAAC,CAAD;WAFhC;;AAMF,UAAE;OAZJ;AAgBA,UAAY,WAAD,QAAX;AAEE,iBAAqB,MAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,EAAW,eAAhC;AAAI;AAEF,gBAAiB,WAAK,SAAC,CAAD;AACtB,aAAG,YAAH,GAAmB;AACnB,aAAI,eAAJ,GAAI;AACJ,qBAAK,OAAO,CAAC,CAAD;;OAPhB;AAWA;AApC0B;AA1GF;AAExB;AACA;AAAQ;AACR;AAGA,UAAc,cAAH,eAAP,MAAO,CAAX;AAEE,kBAAmB,OAAP,OAAU,cAAH;AAEnB,0BAAc,OAAO;AACrB,4BAAgB,OAAO;AACvB,kCAAqB,OAAO;AAC5B,sBAAU,OAAO;AACjB,wBAAY,OAAO;AACnB,wBAAY,OAAO;AACnB,wBAAY,OAAO;AACnB,wBAAY,OAAO;AACnB,2BAAe,OAAO;AACtB,4BAAgB,OAAO;AACvB,qBAAS,OAAO;AAChB,2BAAe,OAAO;AACtB,0BAAc,OAAO;AACrB,yBAAa,OAAO;AACpB,wBAAY,OAAO;AACnB,iCAAqB,OAAO;AAE5B,aAAM;AAEN,YAAY,gBAAD,QAAX,EACE,aAAQ,EAAE,cAAc,CAAC,OAAO,SAAR,CAAxB,CADF;AAGA,YAAY,OAAO,OAAR,QAAX;AAEE,cAAY,WAAD,QAAX;AAEE,qBAAsB,KAAb,WAAM,SAAC,EAAM,GAAE,CAAF,EAAW,aAAjC;AAAI;AAEF,6BAAU,CAAC,oBAAa,SAAoB,WAAM,SAAC,CAAD,CAAxC;;AAEZ,uBAAM;WAGN,oBAAU,kBAAa,QAAC;AAE1B,mBAAS,SAAyB,OAApB,OAAO,OAAM,SAAC,EAAM,GAAE,CAAF,oBAAlC;AAAI;AAGF,kBAAO,cAAS,QAAC,YAAM,CAAC,EAAE,OAAH,CAAN;AACjB,eAAG,YAAH,GAAmB;AACnB,eAAG,YAAH,GAAmB;AACnB,eAAG,OAAO,CAAW,OAAO,OAAM,SAAC,CAAD,CAAxB;AACV,uBAAM,IAAI,CAAC,GAAD;;SApBd;OA1BF;AAPwB;AA2DK;AAEzB,uBAAJ,IAAG;AAF0B;AAsFF;AAE3B,UAAI,iBAAa,GAAE,CAAnB;AAEM,yBAAJ,IAAG;AAEH,YAAG,iBAAa,KAAE,CAAlB,EACE,oBAAa,gBADf;OAJF;AAF2B;AAoLS;AAEpC;AAEA,yBAAe;AAEf,UAAI,KAAM,KAAG,IAAb;AAEE,YAAY,oBAAH,eAAN,KAAM,CAAT;AAEE,cAAG,CAAoB,KAAM,OAAM,QAAQ,CAAC,IAAD,CAA3C,EACkB,KAAM,OAAM,IAAI,CAAC,IAAD,CADlC;SAGG,UAAY,cAAH,eAAN,KAAM,CAAT;AAEH,cAAG,CAAc,KAAM,QAAQ,CAAC,IAAD,CAA/B,EACY,KAAM,IAAI,CAAC,IAAD,CADtB;SAFG;OAPP;AANoC;AAtFf;AAErB,mBAAM,CAAC,gBAAU,IAAX;AAFe;AAxCG;AAExB,UAAG,WAAO,KAAE,IAAZ,EACE,cAAU,kBAAa,QAAC,YAD1B;AAEA,iBAAM,OAAO,CAAC,MAAO,IAAR;AACb,UAAI,YAAJ,GAAoB;AAEpB,UAAY,IAAI,gBAAL,QAAX,EACE,IAAI,gBAAc,gBADpB;AAPwB;AAWA;AAAP;AAEjB;AAEA,eAAU;AACV,UAAG,CAAY,CAAC,WAAD,SAAf,EACE,aADF;AAGA,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,YAAI,WAAK,SAAC,CAAD,CAAI,KAAE,IAAf;AAEE,mBAAU;SAFZ;;AAVe;AAAO;AAjCC;AAAR;AAEjB,eAAU;AAFO;AAAQ;AAKK;AAAb;AAEjB;AAEA,eAAU;AAEV,eAAU;AAEV,aAAc,CAAC,MAAD,SAAS,IAAe,cAAH,eAAP,MAAO,CAAnC;AAEE,iBAAoB,MAAO;;AAG7B,UAAY,MAAD,QAAX,EACE,SAA0B,MAD5B;AAbiB;AAAa;AA1BD;AAE7B;AAEA,UAAY,WAAD,QAAX,EACE,SAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAA6B,YAAI,CAAW,WAAK,SAAC,CAAD,CAAhB;OADvC;AAJ6B;AAsIE;AAE/B;AAEA,YAAO,WAAM,QAAQ,CAAC,KAAD;AACrB,UAAQ,CAAJ,GAAI,IAAG,CAAH,CAAM,IAAW,CAAN,KAAM,GAAE,WAAM,SAAC,EAAT,CAAzB;AAEE,mBAAM,KAAK,CAAC,IAAK,KAAN;OAFb;AAL+B;AA/DH;AAE5B;AAEA,UAAsB,KAAM,OAAjB,QAAX;AAEE,iBAAsC,KAAnB,KAAM,OAAM,SAAC,EAAM,GAAE,CAAF,EAAW,aAAjD;AAAI;AACF,yBAAU,CAAC,OAA6B,KAAM,OAAM,SAAC,CAAD,CAA1C;;OAHd;AAKA,YAAM,gBAAgB,CAAC,KAAD;AATM;AAnKL;AAEvB;AACA;AAEA,eAAe,KAAN,eAAM,GAAE,CAAF,EAAW,aAA1B;AAAI;AAEF,cAAiB,WAAM,SAAC,CAAD;AACvB,YAAY,GAAG,OAAJ,QAAX,EACE,GAAG,OAAM,QADX;AAEA,WAAI,eAAJ,GAAI;;AAViB;AAcA;AAEvB,UAAY,aAAD,QAAX,EACE,aAAO,CAAC,IAAD,CADT;AAFuB;AAvhCd;;AAkCW,+BAAO,UhB+ejB,+BgB/eiB,CAAP;AAqBA;AACE,mCAzEL,gCAyEK;AACM,yCA1EX,gCA0EW;AACZ,6BA1EN,yBA0EM;AACE;AACA;AACA;AACA;AACG;AACC,mCA/EV,2BA+EU;AACP;AACM;AACD;AACD,gCAjFV,wBAiFU;AACD;AACS,wCZ8BV,kDY9BU;AACT,+BZsFN,6CYtFM;AAvET;AAsGU;AA1BL;;;AAEZ;AACA;AACA;AACA;AACA;AACA;AAPY;;;;;AAg4CmB;AAEjC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ,mBAAM,OAAO;OAHf;AAFiC;AApCQ;AAEzC,UAAG,qBAAiB,KAAG,KAAvB;AAEE,gCAAoB;AACpB,mBAAM,OAAO;OAHf;AAFyC;AASR;AAEjC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ,mBAAM,OAAO;OAHf;AAFiC;AASK;AAEtC,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;AACjB,mBAAM,OAAO;OAHf;AAFsC;AASM;AAE5C,UAAG,wBAAoB,KAAG,KAA1B;AAEE,mCAAuB;AACvB,mBAAM,OAAO;OAHf;AAF4C;AA/Cb;AAE/B,8BAAoB;AACpB,sBAAY;AACZ,2BAAiB;AACjB,sBAAY;AACZ,iCAAuB;AACvB,oBAAU;AAPmD;AAA9B;AAUA;AAE/B;AAF+B;AAvBF;AAE7B;AACA,UAAc,mBAAH,eAAP,MAAO,CAAX;AAEE,gCAA4B,OAAP,OAAU,mBAAH,CAAkB;AAC9C,wBAAoB,OAAP,OAAU,mBAAH,CAAkB;AACtC,6BAAyB,OAAP,OAAU,mBAAH,CAAkB;AAC3C,wBAAoB,OAAP,OAAU,mBAAH,CAAkB;AACtC,mCAA+B,OAAP,OAAU,mBAAH,CAAkB;OANnD;AAH6B;AA4BC;AAAR;AAEtB,eAAU;AAFY;AAAQ;AAv1ChB;AAcM,+BAAO,UAYR,iCAZQ,CAAP;AAKF;AACK,oCX0PjB,uCW1PiB;AACG,uCXyPpB,uCWzPoB;AACR,+BA9GW,4CA8GX;AACW;AAvBf;AA0BK;;;AAEjB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATiB;;;;;;;AA6uC2B;AAE9C,UAAG,qBAAiB,KAAG,KAAvB;AAEE,gCAAoB;AACpB,mBAAM;OAHR;AAF8C;AASL;AAEzC,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf,mBAAM;OAHR;AAFyC;AASI;AAE7C,UAAG,oBAAgB,KAAG,KAAtB;AAEE,+BAAmB;AACnB,mBAAM;OAHR;AAF6C;AAkBL;AAExC,qBAAU,OAAO,CAAC,KAAD;AAFuB;AATA;AAExC,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd,mBAAM;OAHR;AAFwC;AAcO;AAE/C,UAAG,sBAAkB,KAAG,KAAxB;AAEE,iCAAqB;AACrB,mBAAM;OAHR;AAF+C;AA9CG;AAElD,iBAAM;AAF4C;AA1Bd;AAEpC,8BAAoB;AACpB,yBAAe;AACf,6BAAmB;AACnB,4BAAkB,mBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,wBAAc,uBAAW,QAAC;AAC1B,qBAAU,qBAAC,CAAqB,IAArB;AACX,qBAAU,UAAV,GAAuB;AACvB,wBAAc;AACd,+BAAqB;AACrB,oBAAU;AAX8C;AAApB;AAcA;AAErB,eAAf,KAAe;AACJ,eAAX,KAAW;AACX;AAJoC;AA7BF;AAElC;AACA,UAAc,wBAAH,eAAP,MAAO,CAAX;AAEE,gCAA4B,OAAP,OAAU,wBAAH,CAAuB;AACnD,2BAAuB,OAAP,OAAU,wBAAH,CAAuB;AAC9C,+BAA2B,OAAP,OAAU,wBAAH,CAAuB;AAClD,2BAAc,OAAO,CAAS,OAAP,OAAU,wBAAH,CAAuB,eAAhC;AACrB,uBAAU,OAAO,CAAS,OAAP,OAAU,wBAAH,CAAuB,WAAhC;AACjB,0BAAsB,OAAP,OAAU,wBAAH,CAAuB;AAC7C,iCAA6B,OAAP,OAAU,wBAAH,CAAuB;OARtD;AAHkC;AAoCC;AAAR;AAE3B,eAAU;AAFiB;AAAQ;AAnuChB;AAmBC,+BAAO,UAiClB,uBAjCkB,CAAP;AAKM,uCX4NpB,uCW5NoB;AACF,qCAnDV,6BAmDU;AACH,kCX0Nf,uCW1Ne;AACI,sCXyNnB,uCWzNmB;AACL,iChB6MT,iCgB7MS;AACA;AACO;AA9BR;AAiCJ;;;AAEb;AACA;AAHa;;;;;;AAwKe;AAE9B;AAEA,UAAG,iBAAH,EACE,MADF;AAGA,UAAY,uBAAD,QAAX,EACE,oBADF;AAP8B;AAkCO;AAErC;AACA,UAAG,iBAAH,EACE,MADF;AAHqC;AAhED;AAAb;AAEvB;AAAE;AACF;AAEA,WAAM;AAEN,UAAG,KAAM,KAAE,EAAX,EACE,QAAS,UAAK,GAAE,MADlB;AAGA,cAAS,mBAAa,CAAC,KAAD;AAEtB;AACE,iBAAU,KAAM,GAAE,qBAAQ,CAAC,EAAD,CAAV;AAEhB,gBAAS;AAET,iBAAS,QAA0B,OAArB,WAAK,kBAAC,EAAe,GAAE,CAAF,kBAAnC;AAAI;AAEF,cAAG,WAAK,aAAW,CAAC,CAAD,CAAG,MAAM,KAAE,MAA9B;AAEE,oBAAS;AACL,cAAJ,IAAG;AACH;WAJF;;OAPJ,QAeM,MAfN;AAZuB;AAAa;AAoDL;AAE/B;AAEA,UAAG,iBAAH,EACE,MADF;AAEA,UAAI,yCAAU,IAAG,oBAAjB,EACE,MADF;AAGA;AAT+B;AAhFS;AAExC;AACA,oBAAU,cAAS,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,iBAAM,YAAN,GAAsB;AACtB,yBAAc,wCAAd;AACA,qBAAU,EAAV;AANwC;AASR;AAEzB,eAAP,KAAO;AACP;AAHgC;AAMG;AAEnC;AAEA,UAAW,CAAC,WAAD,SAAS,IAAY,CAAC,WAAM,OAAP,SAAhC;AAEE,iBAAS,QAAwB,OAAnB,WAAM,OAAM,SAAC,EAAM,GAAE,CAAF,kBAAjC;AAAI;AAEF,cAAI,CAAW,WAAM,OAAM,SAAC,CAAD,CAAvB;;OAJR;AAJmC;AAsDE;AAErC;AAEA,YAAO,WAAM,OAAM,QAAQ,CAAC,KAAD;AAC3B,UAAQ,CAAJ,GAAI,IAAG,CAAH,CAAM,IAAW,CAAN,KAAM,GAAE,WAAM,OAAM,SAAC,EAAf,CAAzB;AAEE,mBAAM,OAAM,KAAK,CAAC,IAAK,KAAN;OAFnB;AALqC;AAnLtB;;;AAeC,6BAtJP,wBAsJO;AACG,gCAjKC,mCAiKD;AAhBJ;AAmBN;;;AAEP;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAVO;;;;;;;AAyVoB;AAAZ;AAEjB;AACA;AAEA,eAAU;AAEV,UAAG,iBAAH;AAEE,0BAAc;AACd;OAHF;AAMA,UAAoB,KAAK;AAGzB,UAAG,CAAI,CAAC,aAAa,CAAC,IAAD,CAArB,EACE,IAAoB,CAAC,cADvB;AAGA,WAAM,kBAAa,CAAC,YAAO,CAAC,GAAT;AAEnB,UAAY,EAAD,QAAX;AAEE,YAAG,EAAE,WAAL,EACE,EAAE,WAAC,CAAW,CAAI,EAAE,SAAjB,CADL;AAGA,YAAY,cAAD,QAAX,EACE,cAAQ,CAAC,KAAM,GAAI,KAAX,CADV;AAGA,UAAE;OARJ;AArBiB;AAAY;AAoFL;AAExB;AAEA,UAAG,iBAAH,EACE,MADF;AAGA,UAAG,CAAY,CAAC,iBAAD,SAAwC,IAAb,+BAAH,eAAP,YAAO,CAAZ,IAA8D,CAArB,OAAP,aAAU,+BAAH,CAAe,MAAM,KAAE,IAAF,CAAzF;AAEE,4BAAc;OAFhB;AAKA,UAAY,uBAAD,QAAX,EACE,oBADF;AAZwB;AAgBO;AAE/B;AAAW;AAAgB;AAAqB;AAAe;AAC/D;AAAU;AAAS;AAAQ;AAAQ;AAAY;AAAS;AAAU;AAElE;AAEA,UAAG,iBAAH,EACE,MADF;AAGA,UAAG,CAAY,CAAC,uBAAD,SAAgB,IAAI,CAAY,CAAC,iBAAD,SAA/C,EACE,MADF;AAGA,UAAY,iBAAD,QAAX;AAEE,mBAAY,iBAAS,iBAAC;AACtB,wBAAW,KAAX;;AAIA,mBAAY;AACZ,gBAAQ,MAAM,YAAY,CAAC,MAAO,qBAAQ,CAAC,aAAD,CAAK,GAAC,IAAtB;AAC1B,gBAAQ,MAAM,YAAY,CAAC,OAAQ,qBAAQ,CAAC,cAAD,CAAM,GAAC,IAAxB;AAC1B,YAAgB,CAAZ,2CAAY,IAAG,oBAAH,CAAmB,IAAI,CAAY,CAAC,iBAAD,SAAnD,EACiB,uBAAc,MAAM,YAAY,CAAC,mBAAmB,QAApB,CADjD;;AAIF,mBAAwB,QAAQ;AAChC,UAAY,UAAD,QAAX,EACE,UAAK,cAAc,YAAY,CAAC,UAAD,CADjC;AAGA,UAAI,4CAAa,IAAG,oBAApB,EACE,MADF;AAGA,mBAAwB,QAAQ,cAAc,CAAC,KAAD;AAC9C,gBAAK,aAAa,CAAC,KAAM,YAAM,GAAE,MAAf;AAClB,gBAAK,UAAL,GAAmB;AAEnB,UAAY,iBAAD,QAAX;AAEE,kBAAK,MAAM,YAAY,CAAC,MAAO,GAAR;AACvB,kBAAK,MAAM,YAAY,CAAC,OAAQ,GAAT;AACvB,kBAAK,MAAM,YAAY,CAAC,WAAY,UAAb;AACvB,kBAAK,MAAM,YAAY,CAAC,QAAS,MAAV;AACvB,kBAAK,MAAM,YAAY,CAAC,UAAW,QAAZ;OANzB;AAYE,cAAQ,MAAM,YAAY,CAAC,WAAY,SAAb;AAG5B,UAAG,gBAAU,eAAc,SAAS,KAAG,2CAAvC;AAEE,YAAG,eAAH;AACE,sBAAa;AAEb,0BAAa;AAEf,8BACE,KAqEA,GArEQ,YAAF,GAAU,qBAAF,GACZ,uBAAF,GACE,OAAF,GAEE,KAAF,GAAU,YAAF,GAAU,uBAAF,GACd,sBAAF,GACE,OAAF,GAEE,KAAF,GAAU,YAAF,GAAU,6BAAF,GACd,8BAAF,GACE,OAAF,GAEE,KAAF,GAAU,YAAF,GAAU,aAAF,GACd,oBAAF,GACE,gCAAF,GACE,OAAF,GAEE,KAAF,GAAU,YAAF,GAAU,yBAAF,GACd,KAAF,GAAU,YAAF,GAAU,uBAAF,GACd,oBAAF,GACE,OAAF,GAEE,KAAF,GAAU,YAAF,GAAU,oBAAF,GACd,kBAAF,GACE,OAAF,GAEE,KAAF,GAAU,YAAF,GAAU,uBAAF,GACd,eAAF,GACE,OAAF,GAEE,KAAF,GAAU,YAAF,GAAU,sBAAF,GACd,KAAF,GAAU,YAAF,GAAU,oBAAF,GACd,wBAAF,GACE,kBAAF,GACE,2BAAF,GACE,gBAAF,GACE,wBAAF,GACE,yBAAF,GACE,6BAAF,GACE,OAAF,GAEE,KAAF,GAAU,YAAF,GAAU,oBAAF,GACd,kBAAF,GACE,OAAF,GAEE,KAAF,GAAU,YAAF,GAAU,uBAAF,GACd,eAAF,GAAoB,SAAF,GAAc,KAAF,GAC5B,OAAF,GAEE,KAAF,GAAU,YAAF,GAAU,mBAAF,GACd,KAAF,GAAU,YAAF,GAAU,sDAAF,GACd,KAAF,GAAU,YAAF,GAAU,qDAAF,GACd,sBAAF,GACE,OAAF,GAEE,KAAF,GAAU,YAAF,GAAU,yBAAF,GACd,KAAF,GAAU,YAAF,GAAU,uBAAF,GACd,0BAAF,GACE,OAAF,GAEE,KAAF,GAAU,YAAF,GAAU,gCAAF,GACd,KAAF,GAAU,YAAF,GAAU,8BAAF,GACd,eAAF,GACE,mBAAF,GACE,OAAF,GAEE,KAAF,GAAU,YAAF,GAAU,0DAAF,GACd,KAAF,GAAU,YAAF,GAAU,wDAAF,GACd,uBAAF,GACE,OAAF;AAEF,YAAG,gBAAU,eAAc,SAAS,KAAE,+CAAtC;AAEE,gCACE,qCAEA,GAFwC,qBAAQ,CAAC,gBAAU,eAAc,oBAAzB,CAAV,GAA0D,SAAF,GAC5F,mBAAF,GACE,GAAF;SALJ;OA/EF;AAwFA,UAAG,gBAAU,WAAW,GAAE,CAA1B;AAEE,wBAAiB,WACiC,GADnB,qBAAQ,CAAC,gBAAU,WAAX,CAAV,GAAmC,OAAF,GAC1D,YAAF,GAAiB,qBAAQ,CAAC,gBAAU,WAAX,CAAV,GAAmC,OAAF;OAHpD;AAOA,kBACE,GAmHA,GAnHM,YAAF,GAAU,aAAF,GACV,gBAAF,GACE,iBAAF,GACE,KAAF,GAEE,GAAF,GAAQ,YAAF,GAAU,qBAAF,GACZ,oBAAF,GACE,KAAF,GAEE,GAAF,GAAQ,YAAF,GAAU,sBAAF,GACZ,qBAAF,GACE,KAAF,GAEE,GAAF,GAAQ,YAAF,GAAU,sBAAF,GACd,GADuC,GACjC,YAAF,GAAU,6BAAF,GACV,aAAF,GACE,yBAAF,GACE,2BAAF,GAEE,KAAF,GAEE,GAAF,GAAQ,YAAF,GAAU,6BAAF,GACZ,qBAAF,GACE,KAAF,GAEE,GAAF,GAAQ,YAAF,GAAU,gCAAF,GACZ,GAAF,GAAQ,YAAF,GAAU,6BAAF,GACZ,oBAAF,GACE,KAAF,GAEE,GAAF,GAAQ,YAAF,GAAU,YAAF,GACZ,GAAF,GAAQ,YAAF,GAAU,sBAAF,GACZ,GAAF,GAAQ,YAAF,GAAU,qBAAF,GACZ,GAAF,GAAQ,YAAF,GAAU,oBAAF,GACZ,wBAAF,GACE,0BAAF,GACE,uCAAF,GACE,yBAAF,GACE,sBAAF,GACE,KAAF,GAEE,GAAF,GAAQ,YAAF,GAAU,YAAF,GACZ,GAAF,GAAQ,YAAF,GAAU,uBAAF,GACZ,4BAAF,GACE,KAAF,GAEE,GAAF,GAAQ,YAAF,GAAU,qBAAF,GACZ,GAAF,GAAQ,YAAF,GAAU,oBAAF,GACZ,8BAAF,GACE,oBAAF,GACE,KAAF,GAEE,GAAF,GAAQ,YAAF,GAAU,oCAAF,GACZ,GAAF,GAAQ,YAAF,GAAU,mCAAF,GACZ,4BAAF,GACE,uCAAF,GACE,KAAF,GAEE,GAAF,GAAQ,YAAF,GAAU,mCAAF,GACZ,GAAF,GAAQ,YAAF,GAAU,kCAAF,GACZ,+BAAF,GACE,uCAAF,GACE,KAAF,GAEE,GAAF,GAAQ,YAAF,GAAU,YAAF,GACZ,GAAF,GAAQ,YAAF,GAAU,sBAAF,GACZ,GAAF,GAAQ,YAAF,GAAU,mBAAF,GACZ,yBAAF,GACE,qBAAF,GACE,KAAF,GAEE,GAAF,GAAQ,YAAF,GAAU,sBAAF,GACZ,GAAF,GAAQ,YAAF,GAAU,oBAAF,GACZ,4BAAF,GACE,4BAAF,GACE,KAAF,GAEE,GAAF,GAAQ,YAAF,GAAU,kCAAF,GACZ,qBAAF,GACE,kBAAF,GACE,kBAAF,GACE,2CAAF,GACE,KAAF,GAEE,GAAF,GAAQ,YAAF,GAAU,sBAAF,GACZ,GAAF,GAAQ,YAAF,GAAU,oBAAF,GACZ,oBAAF,GACE,KAAF,GAEE,GAAF,GAAQ,YAAF,GAAU,sDAAF,GACZ,GAAF,GAAQ,YAAF,GAAU,qDAAF,GACZ,qBAAF,GACE,oBAAF,GACE,KAAF,GAEE,GAAF,GAAQ,YAAF,GAAU,yBAAF,GAEZ,sBAAF,GACE,KAAF,GAEE,GAAF,GAAQ,YAAF,GAAU,8BAAF,GACZ,mBAAF,GACE,iBAAF,GACE,gBAAF,GACE,uBAAF,GACE,KAAF,GAEE,uEAAF,GACE,KAAF,GAAU,YAAF,GAAU,aAAF,GACd,oBAAF,GACE,OAAF,GAEE,KAAF,GAAU,YAAF,GAAU,uBAAF,GACd,oBAAF,GACE,OAAF,GACE,KAAF;AAEF,uBAAkB;AAElB,UAAG,sBAAiB,KAAE,EAAtB;AAEE,yBACI,GAkCF,GAlCQ,YAAF,GAAU,sBAAF,GACZ,GAAF,GAAQ,YAAF,GAAU,oBAAF,GACZ,sBAAF,GAA2B,kCAAW,CAAC,gBAAU,iBAAX,CAAb,GAA4C,KAAF,GACjE,KAAF,GAEE,uEAAF,GACI,GAAJ,GAAU,YAAF,GAAU,oBAAF,GACZ,sBAAJ,GAA6B,kCAAW,CAAC,gBAAU,eAAc,iBAAzB,CAAb,GAA0D,KAAF,GAC/E,KAAJ,GACE,KAAF,GAEE,GAAF,GAAQ,YAAF,GAAU,YAAF,GACZ,GAAF,GAAQ,YAAF,GAAU,sBAAF,GACZ,GAAF,GAAQ,YAAF,GAAU,mBAAF,GACZ,KAAF,GAEE,GAAF,GAAQ,YAAF,GAAU,uBAAF,GACZ,sBAAF,GAA2B,kCAAW,CAAC,gBAAU,eAAc,iBAAzB,CAAb,GAA0D,KAAF,GAC/E,WAAF,GAAgB,kCAAW,CAAC,gBAAU,eAAc,cAAzB,CAAb,GAAuD,KAAF,GACjE,KAAF,GAEE,GAAF,GAAQ,YAAF,GAAU,8BAAF,GACZ,sBAAF,GAA2B,kCAAW,CAAC,gBAAU,iBAAX,CAAb,GAA4C,KAAF,GACjE,KAAF,GAEE,GAAF,GAAQ,YAAF,GAAU,yBAAF,GACZ,sBAAF,GAA2B,kCAAW,CAAC,gBAAU,YAAX,CAAb,GAAuC,KAAF,GAC5D,WAAF,GAAgB,kCAAW,CAAC,gBAAU,gBAAX,CAAb,GAA2C,KAAF,GACrD,KAAF,GAEE,GAAF,GAAQ,YAAF,GAAU,kCAAF,GACZ,GAAF,GAAQ,YAAF,GAAU,gCAAF,GACZ,sBAAF,GAA2B,kCAAW,CAAC,gBAAU,YAAX,CAAb,GAAuC,KAAF,GAC5D,WAAF,GAAgB,kCAAW,CAAC,gBAAU,gBAAX,CAAb,GAA2C,KAAF,GACrD,KAAF;OArCJ;AAwCA,kBAAa,SAEX,GADE,cAAF,GACE,mBAAF;AAGF,uBAAa;AACb,wBAAc;AAEd,gBAA0B,QAAQ,cAAc,CAAC,OAAD;AAChD,aAAO,UAAP,GAAqB;AAErB,iBAA2B,QAAQ,cAAc,CAAC,QAAD;AACjD,cAAQ,UAAR,GAAsB,WAYpB,GAZkC,YAAF,GAAU,kBAAF,GACtC,0CAAF,GACE,8BAAF,GACE,mEAAF,GACE,GAAF,GACE,WAAF,GAAgB,YAAF,GAAU,gBAAF,GACpB,sCAAF,GAA2C,YAAF,GAAU,KAAF,GAC/C,iBAAF,GACE,4DAAF,GACE,kBAAF,GACE,sEAAF,GACE,KAAF,GACE,GAAF;AAEF,gBAA0B,QAAQ,cAAc,CAAC,OAAD;AAChD,aAAO,aAAa,CAAC,MAAO,YAAM,GAAE,IAAhB;AACpB,aAAO,aAAa,CAAC,KAAM,aAAP;AACpB,aAAO,UAAP,GAAqB,gBAAU,eAAc;AAE7C,eAAyB,QAAQ,cAAc,CAAC,MAAD;AAC/C,UAAG,0BAAqB,KAAG,EAA3B;AACE,cAAM,aAAa,CAAC,QAAS,0BAAV;AAEnB,YAAA,MAAM,aAAa,CAAC,QAAS,YAAV;AACrB,aAAO,YAAY,CAAC,MAAD;AAEnB,eAAyB,QAAQ,cAAc,CAAC,MAAD;AAC/C,YAAM,aAAa,CAAC,QAAS,gBAAV;AAEnB,YAAM,UAAN,GAAoB;AAEpB,YAAM,YAAY,CAAC,MAAD;AAElB,mBAA6B,QAAQ,cAAc,CAAC,OAAD;AACnD,gBAAU,aAAa,CAAC,OAAQ,UAAT;AACvB,gBAAU,aAAa,CAAC,KAAM,YAAM,GAAE,IAAf;AAEvB,gBAAK,YAAY,CAAC,OAAD;AACjB,gBAAK,YAAY,CAAC,QAAD;AACjB,gBAAK,YAAY,CAAC,OAAD;AACjB,gBAAK,YAAY,CAAC,UAAD;AAEjB,gBAAW,kBAAa,CAAC,WAAD;AACxB,UAAG,OAAQ,KAAG,IAAd,EACE,UAAK,YAAY,CAAC,OAAD,CADnB;AAEA,cAAQ,YAAY,CAAC,UAAD;AA7WW;AA7PD;AAAb;AAEjB;AACA;AACA;AACA;AAAY;AAAS;AAAY;AACjC;AACA;AAEA,eAAU;AAEV,UAAW,CAAC,IAAI,OAAL,SAAa,IAAsB,CAAjB,IAAI,OAAM,SAAC,EAAM,GAAE,CAAF,CAA9C;AAEE,iBAAyB,QAAQ,cAAc,CAAC,IAAD;AAC/C,YAAG,cAAH;AAEE,2BAAa;AACb,cAAG,iBAAH;AACE,wBAAa;AAEb,4BAAa;SAGf,kBAAa;AAEf,0BAAc,eAAW,GAAE,CAAF;AAEzB,cAAM,aAAa,CAAC,QAAS,SAAV;AAEnB,iBAAS,QAAsB,OAAjB,IAAI,OAAM,SAAC,EAAM,GAAE,CAAF,kBAA/B;AAAI;AAEF,eAAgB,IAAI,OAAM,SAAC,CAAD;AAE1B,eAAM,EAAG,GAAE,CAAF;AAET,cAAG,EAAE,MAAM,KAAE,EAAb;AAEE,sBAAW,0BAAa,CAAC,EAAE,UAAU,IAAK,GAAI,cAAC,4CAAD,CAAtB;AACxB,sBAAW,mBAAa,CAAC,OAAD;AACxB,gBAAG,OAAQ,KAAE,EAAb,EACE,UAAW,UAAW,GAAE,qBAAQ,CAAC,EAAD,CADlC;AAEA,cAAE,QAAC,CAAQ,OAAQ,GAAE,qBAAQ,CAAC,EAAD,CAA1B;WANL;AASA,cAAG,EAAE,SAAL;AAEE,yBAA6B,QAAQ,cAAc,CAAC,IAAD;AAEnD,gBAAG,EAAE,SAAS,KAAG,GAAjB;AAEE,wBAA0B,QAAQ,cAAc,CAAC,OAAD;AAChD,kBAAG,0BAAqB,KAAG,EAA3B;AACE,uBAAO,aAAa,CAAC,QAAS,0BAAV;AAEpB,oBAAA,OAAO,aAAa,CAAC,QAAS,YAAV;AACtB,qBAAO,aAAa,CAAC,QAAS,EAAE,MAAZ;AACpB,kBAAkB,CAAd,EAAE,YAAY,IAAG,CAAH,CAAM,IAAgC,CAA3B,gBAAU,WAAU,SAAC,EAAM,GAAE,EAAE,YAAJ,CAAxD;AACE,uBAAO,UAAP,GAAqB,yBAAgE,GAApC,gBAAU,WAAU,KAAC,EAAE,YAAH,CAAtB,GAAwC,IAAF;AAEvF,wBAAG,EAAE,SAAL;AAEE,oBAAG,EAAE,WAAL;AACE,yBAAO,UAAP,GAAqB;AAErB,sBAAA,OAAO,UAAP,GAAqB;eALzB;AAOA,qBAAO,UAAP,GAAqB,OAAO,UAAW,GAAE,EAAE,SAAJ;;AAIvC,wBAA0B,QAAQ,cAAc,CAAC,MAAD;AAChD,qBAAO,aAAa,CAAC,QAAS,gBAAV;AACpB,qBAAO,UAAP,GAAqB;;AAGvB,gBAAW,CAAC,EAAE,OAAH,SAAW,IAAoB,CAAf,EAAE,OAAM,SAAC,EAAM,GAAE,CAAF,CAA1C;AAEE,yBAA2B,QAAQ,cAAc,CAAC,MAAD;AACjD,sBAAQ,aAAa,CAAC,QAAS,WAAV;AAIrB,sBAAQ,UAAR,GAAsB,gBAAU;AAEhC,qBAAO,aAAa,CAAC,MAAO,IAAK,GAAE,qBAAQ,CAAC,eAAD,CAAvB;AACpB,qBAAO,YAAY,CAAC,QAAD;AAEnB,kBAAG,CAAI,EAAE,SAAT,EACE,OAAO,MAAM,YAAY,CAAC,QAAS,MAAV,CAD3B;AAGA,2BAA6B,QAAQ,cAAc,CAAC,OAAD;AACnD,wBAAU,aAAa,CAAC,OAAQ,UAAT;AACvB,wBAAU,aAAa,CAAC,KAAM,IAAK,GAAE,qBAAQ,CAAC,eAAD,CAAtB;AAEvB,wBAAU,YAAY,CAAC,OAAD;AACtB,wBAAU,YAAY,CAAC,UAAD;AACtB,kBAAG,EAAE,SAAL,EACE,UAAU,YAAY,CAAC,kBAAa,CAAC,EAAD,CAAd,CADxB;;AAKA,qBAAO,aAAa,CAAC,MAAO,YAAM,GAAE,IAAhB;AACpB,qBAAO,aAAa,CAAC,KAAM,EAAE,MAAT;AACpB,kBAAG,EAAE,SAAL;AAEE,oBAAI,SAAU,KAAE,UAAhB;AAIE,sBAAG,EAAE,SAAL,EACE,OAAO,aAAa,CAAC,YAAa,YAAM,GAAE,kBAAtB,CADtB;iBAJF;AAOA,uBAAO,iBAAiB,CAAC,QAAU,2CAAX;eAGxB,MAAA,OAAO,MAAM,YAAY,CAAC,QAAS,MAAV;AAE3B,wBAAU,YAAY,CAAC,OAAD;;AAGxB,kBAAM,YAAY,CAAC,UAAD;WA5EpB;;OAjCJ;AAXiB;AAAa;AA8HA;AAAb;AAEjB;AACA;AAEA,eAAU;AAEV,UAAY,KAAK,OAAN,QAAX;AAEE,iBAAS,QAAuB,OAAlB,KAAK,OAAM,SAAC,EAAM,GAAE,CAAF,kBAAhC;AAAI;AAEF,eAAgB,KAAK,OAAM,QAAM,CAAC,CAAD;AAEjC,cAAG,EAAE,MAAM,KAAE,IAAb;AAEE,qBAAU;AACV,gBAAY,EAAE,SAAH,QAAX,EACE,MAAM,SAAN,GAAkB,EAAE,SADtB;AAEA;WALF;AAQA,cAAG,CAAY,CAAC,MAAD,SAAf,EACE,SAAU,kBAAa,CAAC,GAAI,IAAL,CADzB;;OAdJ;AAPiB;AAAa;AAoFI;AAElC;AACA,yBAAe,wBAAmB,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,0BAAc;AACd,uBAAa;AACb,wBAAc;AACd,0BAAgB;AAChB,wBAAc;AAEd,kBAAO,CAAP;AACA,mBAAQ,CAAR;AACA,oBAAS,GAAT;AACA,UAAI,2CAAY,IAAG,oBAAnB;AAEE,gCAAmB,kDAAnB;AACA,6BAAgB,GAAhB;AACA,2BAAc,2CAAd;OAJF;AAbkC;AAxBJ;AAAb;AAEjB;AAEA,UAAI,2CAAY,IAAG,oBAAnB;AAEE,iBAAU,QAAQ,cAAc,CAAC,KAAD;AAChC,iBAAyB,QAAQ,cAAc,CAAC,KAAD;AAC/C,cAAM,UAAN,GAAoB;AACpB,4BAAe,4CAAf;AACA,cAAM,cAAC,QAAY,QAAb;AACN,cAAM,MAAM,YAAY,CAAC,SAAS,gBAAV;AACxB,cAAM,MAAM,YAAY,CAAC,iBAAiB,QAAlB;AACxB,cAAM,MAAM,YAAY,CAAC,UAAU,YAAX;AACxB,cAAM,YAAY,CAAC,MAAD;;AAIlB,iBAAU,QAAQ,cAAc,CAAC,KAAD;AAChC,YAAG,iBAAH,EACE,MAAM,aAAa,CAAC,eAAgB,YAAM,GAAE,gBAAzB,CADrB;;AAnBe;AAAa;AA6CJ;AAEd,eAAZ,KAAY;AACZ;AAH0B;AAvajB;;;AAuBY,kCA3EF,kCA2EE;AACD,iCZkEZ,yCYlEY;AACE,mCZ7EV,6CY6EU;AACK,wCZhFV,kDYgFU;AACI,4CZjFd,kDYiFc;AAChB,4BXqQV,sCWrQU;AACM;AA7BZ;AAgCG;;;;AAEF;;;AAER;AAFQ;;;;;AAuyCiB;AAE3B;AACA,UAAc,+BAAH,eAAP,MAAO,CAAX,EACE,eAAmB,MAAnB,CADF;AAHgD;AAArB;AAOQ;AAEnC;AACA,sBAAU,eAAc,WAAC,CAAW,0CAAX;AACzB,0BAAgB;AAJmB;AAOX;AAExB,UAAY,aAAD,QAAX,EACE,aAAO,CAAC,IAAD,CADT;AAGA,kBAAO,CAAP;AACA,mBAAQ,CAAR;AACA,wBAAc;AACd;AACA,wBAAc;AATU;AArzCd;;;AAIU,+BAAO,UhBiVjB,+BgBjViB,CAAP;AAIF,+BZvCN,6CYuCM;AARR;AAWG;;;;AAGI;AADK,iDACL,6CADK;AACL;;;AAEf;AAFe;;;;;AAqzC2B;AAAnB;AAEzB;AACA;AACA;AAEA;AACA,UAAa,eAAD,QAAZ;AAEE,aAAK;AACL,aAAK;AACL,mBAAM,eAAK,CAAC,UAAK,CAAC,KAAK,QAAN,EAAiB,UAAK,CAAC,KAAK,QAAN,CAA5B,CAAX;AAEA,cAAO,iCAAa,CAAC,IAAD;AAEpB,YAAW,CAAC,GAAD,SAAsB,IAAY,CAAC,GAAG,aAAC,EAAL,SAA7C;AAEE,cAAK,GAAG,aAAC,EAAS;AAClB,YAAE,EAAF,GAAQ,EAAE,EAAG,GAAE,UAAK,CAAC,CAAC,KAAF,CAAP;AACb,YAAE,EAAF,GAAQ,EAAE,EAAG,GAAE,UAAK,CAAC,CAAC,IAAF,CAAP;SAJf;AAOA,uBAAU,MAAM,CAAC,EAAE,GAAG,EAAE,EAAR;AAChB,iBAAU;OAhBZ;AAPyB;AAAmB;AA2BN;AAGtC;AACA,UAAc,CAAV,SAAU,KAAE,+BAAF,CAAY,IAAgB,CAAX,UAAW,KAAE,eAAF,CAA1C,EACE,kBAAc,IADhB;AAJsC;AAh1CrB;;;AASC;;;AAEhB;AAFgB;;;;;AAi1C2B;AAAnB;AAE1B;AACA;AACA;AAEA;AACA,UAAa,eAAD,QAAZ;AAEE,aAAK;AACL,aAAK;AACL,mBAAM,eAAK,CAAC,UAAK,CAAC,KAAK,QAAN,EAAiB,UAAK,CAAC,KAAK,QAAN,CAA5B,CAAX;AAEA,cAAO,iCAAa,CAAC,IAAD;AAEpB,YAAW,CAAC,GAAD,SAAsB,IAAX,GAAG,OAAR,IAA4B,CAAC,GAAG,aAAC,EAAL,SAA7C;AAEE,cAAK,GAAG,aAAC,EAAS;AAClB,YAAE,EAAF,GAAQ,EAAE,EAAG,GAAE,UAAK,CAAC,CAAC,KAAF,CAAP;AACb,YAAE,EAAF,GAAQ,EAAE,EAAG,GAAE,UAAK,CAAC,CAAC,IAAF,CAAP;SAJf;AAOA,uBAAU,MAAM,CAAC,EAAE,GAAG,EAAE,EAAR;AAChB,iBAAU;OAhBZ;AAP0B;AAAmB;AA2BN;AAGvC;AACA,UAAc,CAAV,SAAU,KAAE,+BAAF,CAAY,IAAgB,CAAX,UAAW,KAAE,eAAF,CAA1C,EACE,kBAAc,IADhB;AAJuC;AA52CrB;;;AAlPpB,mBA4Pc;AAOP,gBAAG,cAAI,KAAH,GAAK,GAAQ,KAAH,GAAK,IAAK,EAArB;AACA,mBAAS,aAAN,MAAQ,cAAI,KAAH,GAAK,EAAN,CAAF;AAHG;AAAb;AAKP;AAEA,eAAU;AAEV,eAAS,QAAW,OAAC,CAAD,yBAApB;AAAI;AAEF,YAAG,CAAC,YAAC,KAAD,CAAI,IAAG,QAAX,EACE,SAAU,MAAO,GAAE,CAAC,QAAC,KAAD,CADtB;;AAXK;AAAa;AALR;AA5Pd,GA4Pc,uBA5Pd;ACAA,qCAIS,kCAJT;;;;AAU4B;;AAEU,2FAAmB,U1BmGhD,2B0BnGgD,EAAgB,STwC5D,uCSxC4D,CAAnC;AAEpB;;;AAEd;AAFc;;;;;AAuBiB;AAEjC;AACA,qCAAW,iBAAX,GAA+B;AAHuB;AAArB;AAMA;AAEjC,qCAAW,iBAAX,GAA+B;AAC/B;AAHiC;AAMD;AAEhC;AACA;AACA;AAEA,WAAM,wBAAK,QAAC;AACZ,UAAK,kBAAkB,CAAC,KAAD;AACvB,UAAiB,EAAE,MAAM,CAAC,CAAD;AACzB,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,CAAP,CADnB;AAEA,OAAE,eAAF,CAAE;AAX8B;AAcH;AAE7B;AAEA,UAAK,IAAO,UAAU,CAAC,KAAK,MAAN;AACtB,sBAAW,CAAC,CAAD;AALkB;AAUf,yBAAG;AAFmB;;AAIpC;AACA;AACA;AACA;AACA;AAEsB;AAEf;AACH,YADG,IACH;AAGN;AACA;SAGM,WARG,IAQH,+CAAO,CARJ,IAQI,2CAAP;AAGN;SAGM,UAdG,IAcH;AAGN;SAGM,UApBG,IAoBH,gDAAW,iCAAW,CAAC,6CAAD,CAAtB;AAtBkB;AA0BtB,UAAK;AAEP;AAGE,YAAO;AACO,iBAAT,sBAAS,CAAC,IAAD;AACZ,UADY,IACZ;AAAW,cAAO;AAClB,gBAFY,IAEZ;AAAO,cAAO;AACd,gBAHY,IAGZ;AAAW,cAAO;AAClB,iBAJY,IAIZ,eAAO,CAJK,IAIL,aAAP,EAAgB,MAAO,qCAAvB;AAIY,kBAAT,sBAAS,CAAC,IAAD;AACZ,WADY,KACZ,eAAO,CADK,KACL,aAAP,IAAgB,CADJ,KACI,WAAhB;AAAuB,oBAAY,CAAC,YAAO,GAAE,kBAAkB,CAAC,CAAD,CAA5B;AACnC,iBAFY,KAEZ,mBAAW,CAFC,KAED,eAAX;AAEE,oBAAY,CAAC,YAAO,GAAE,aAAV;AACZ,eAAa,CAAD,OAAI,GAAE,CAAlB;AAEE,eAAM,QAAG,CAAgB,CAAD,OAAP,cAAa,GAArB;AACT,iBAAQ,eAAI,CAAC,EAAG,EAAG,EAAP;AACZ,2BAAM,CAAC;;;;eAAG,EAAG,EAAP;AACN,sBAAY,CAAC,YAAO,GAAE,kBAAkB,CAAC,IAAD,CAA5B;;AAEd,oBAAY,CAAC,YAAO,GAAE,WAAV;OAVd;AApDkC;AAzDpB;;AAII,+BAAO,UjB8hBjB,+BiB9hBiB,CAAP;AAMQ,yCAZQ,mDAYR;AAVZ;AAaG;;;AA3BrB,mBA6Bc;AAMN,mBAAW;AANL;AA7Bd,GA6Bc,uDA7Bd;ACfA,oCAIS,0CAJT;;;AAYoB;AAUuB;;AAEvB;AAAT;AAMP,iBAAQ;AACR,YAAI,QAAG,OAAO,KAAE,GAAhB;AAEE,cAAY,OAAD,QAAX,EACE,OAAO,CAAC,QAAmC,GAA1B,qBAAQ,CAAC,QAAG,OAAJ,CAAT,GAAuB,IAAF,GAAO,QAAG,WAAxC,CADT;SAIA,MAAA,QAAG,OAAK,KAAM,CACZ;;AAEE,kBAAQ,CAAO,KAAC,KAAR;AAFV;SADY;AAbT;AAAS;AAqBE;AAAX;AAGP,iBAAQ;AACR,eAAO,CAAC,0BAAD;AAJA;AAAW;AAQpB,UAAG,KAAH;AACE,cAAM,MAAM,CAAC,IAAD,CAAM,KAAM,WAAY,MAAM;;AAEpB,oBAAC,IAAlB,cAAkB;AAErB,kBAAI,CAAC,MAAO,KAAM,KAAd;AACJ,8BAAgB,CAAC,OAAO;AAEtB,kBAAQ,CAAC,kBAAD;AAFc,SAAR;AAKhB,8BAAgB,CAAC,QAAQ;AAEvB,cAAY,OAAD,QAAX,EACE,OAAO,CAAU,MAAO,QAAjB,CADT;AAFuB,SAAT;AAMhB,kBAAI;;AAhDiC;AAoDC;;AAEtB;AAAX;AAGP,iBAAQ;AACR,YAAG,YAAQ,CAAC,QAAD,CAAW,IAAyB,UAAV,SAAa,KAAH,CAA/C;AACE,iBAAO,CAAC,aAAa,GAAU,QAAS,QAAjC;AAEP,cAAA,OAAO,CAAC,0BAAD;AAPF;AAAW;AAWF;AAAT;AAMP,iBAAQ;AACR,YAAI,QAAG,OAAO,KAAE,GAAhB;AAEE,cAAY,OAAD,QAAX,EACE,OAAO,CAAC,QAAmC,GAA1B,qBAAQ,CAAC,QAAG,OAAJ,CAAT,GAAuB,IAAF,GAAO,QAAG,WAAxC,CADT;SAIA,MAAA,QAAG,OAAK,KAAM,CACZ;;AAEU,eAAM,cAAY,KAAM,CAAC;;AAE/B,oBAAQ,CAAgB,GAAhB;AAFuB;WAAD,CAI/B,MAAM;AANT;SADY;AAbT;AAAS;AA0BU;AAAnB;AAGP;AAAE;AAGF,YAAU,GAAD;AACT,iBAAuB,IAAf,WAAe,CAAI,CAAC,GAAC,CAAN;AACA,oBAAH,IAAf,WAAe,CAAI,MAAJ;AAClB,iBAAO,QAAK,0BAAZ;AAAI;AACF,eAAQ,CAAD,CAAC,GAAC,CAAD,CAAR,GAAiB,GAAD,YAAK,CAAD,IAAJ;;AAVb;AAAmB;AAc5B,UAAG,KAAH;AACE,cAAM,MAAM,CAAC,IAAD,CAAM,KAAM,WAAY,MAAM;;AAEpB,oBAAC,IAAlB,cAAkB;AAErB,kBAAI,CAAC,MAAO,KAAM,KAAd;AACJ,8BAAgB,CAAC,OAAO;AAEtB,cAAG,YAAM,KAAE,GAAX;AACE,mBAAO,CAAC,QAA+B,GAAtB,qBAAQ,CAAC,YAAD,CAAT,GAAmB,IAAF,GAAO,gBAAjC;AAEP,gBAAA,QAAQ,CAAC,mBAAmB,CAAC,kBAAD,CAApB;AALY,SAAR;AAQhB,8BAAgB,CAAC,QAAQ;AAEvB,cAAY,OAAD,QAAX,EACE,OAAO,CAAU,MAAO,QAAjB,CADT;AAFuB,SAAT;AAMhB,kBAAI;;AAzEkC;AA9DxB;AA2IpB;AACE,kCAAkB,CAAC,uBAAD;AADpB;AAvJA;ACeA,2BAIS,qLAJT;;;;AAegB,wBAAG;AAEb,cAAS;AACL,kBAAK;AACN,iBAAM;AACN,iBAAM;AACL,kBAAK;AACR,eAAQ;AACT,cAAS;AACN,iBAAM;AACP,gBAAO;AACH,oBAAG;AACH,oBAAG;AACP,gBAAO;AACT,cAAS;AACL,kBAAK;AACN,iBAAM;AACN,iBAAM;AACL,kBAAK;AACR,eAAQ;AACT,cAAS;AACN,iBAAM;AACP,gBAAO;AACH,oBAAG;AACH,oBAAG;AACR,eAAQ,EAAW,GAAE,CAAF;AACf,mBAAI,EAAM,GAAE,CAAF;AACT,oBAAG,EAAU,GAAE,CAAF;AAEf,kBAAG,CAAC;AACL,iBAAI,CAAC;AACJ,kBAAG;AACJ,iBAAI;AAEF,mBAAG;AACJ,kBAAG;AAsHI;AAwBJ;AAxII;AACH;;AAEF;;AACO;;AACP;AACa;;AACC,8CADD,+CACC;AACV;;AACI;;AACK;;AAEZ;AACT;AAAG;AADM;aACT,gBAAG;AADM;;AACT;AAAG;AADM;;;AACT;AAAG;AADM;AAID;AACR;AACA;AACA;AACA;AAJQ;aACR,gCACA,IAAA,sCACA,IAAA,wBACA,gCAFA;AAFQ;;AACR;AACA;AACA;AACA;AAJQ;;;AACR,4BnBwDG,0BmBxDH;AACA;AACA,wBf4CI,sCe5CJ;AACA;AAJQ;AAOO;AACf;AAGA;AAEA;AANe;;mBAEf;AAFe,gBAGf;AAHe,wBAKf;AALe,sBAOf;AAPe;;;aACf,gCACA,IAAA,6BACA,IAAA,6BACA,IAAA,wBACA,IAAA,uCACA,IAAA,8BACA,uCALA;AAFe;;AACf;AACA;AACA;AACA;AACA;AACA;AACA;AAPe;;;AACf,4BAnBQ,wBAmBR;AACA,2B1BrDI,yB0BqDJ;AACA,wBAnBsB,sCAmBtB;AACA;AACA,gCAhBS,yBAgBT;AACA;AACA,8BAlBS,yBAkBT;AAPe;AAWN,kEAAmB,U5BqBvB,2B4BrBuB,EAAqB,UAjCvC,2BAiCuC,EAAxC;AACK,uEAAmB,U5BoB5B,2B4BpB4B,EAAuB,0BAA1C;AACO,8EAAmB,U5BmBnC,2B4BnBmC,EAAuB,gBA3B/C,gCA2B+C,CAA1C;AACL,yEAAmB,U5BkB9B,2B4BlB8B,EAAuB,yBAA1C;AACK,8EAAkB,UfmtB9B,2CentB8B,EAAiB,MfqLlD,wCerLkD,EAAI,MfqLtD,wCerLsD,CAAvC;AACJ,0EAAmB,UfktB3B,2CeltB2B,EAAsB,WfoLpD,wCepLoD,EAC/C,0BAAQ,yBAAU,2BAAW,4BAC3B,a1BjEV,yB0BiEU,GAAkB,aAzBvB,wBAyBuB,CAFd;AAGJ,sEAAmB,U5Ba3B,2B4Bb2B,EAAuB,2BAAW,4BACxD,wBADG;AAEQ,8EAAmB,U5BWnC,2B4BXmC,EAAuB,2BAAW,4BAClE,2BAAW,2BADE;AAEL,yEAAmB,U5BS9B,2B4BT8B,EAAmB,Y1B1ElD,yB0B0EkD,EAAqB,yBAA3D;AACJ,qEAAmB,U5BQ1B,2B4BR0B,EAAiB,UAiEnC,6BAjEmC,EAC/C,kBAAG,iBADQ;AAEA,qEAAmB,U5BM1B,2B4BN0B,EAAiB,UA+DnC,6BA/DmC,EAC/C,kBAAG,kBAAgB,SfQZ,0CeRY,EAAwB,wBADhC;AAED,oEAAmB,U5BIzB,2B4BJyB,EAA0B,aA5BzC,gCA4ByC,GAC5C,yBADD;AAEI,wEAAmB,U5BE7B,2B4BF6B,EAAqB,cfsKjD,wCetKiD,EACtC,iB1B9Ed,yB0B8Ec,GAAiB,Y1BlF9B,yB0BkF8B,EAAqB,yBADxC;AAEE,0EAAmB,U5BA/B,2B4BA+B,EAAiB,UfS3C,4CeT2C,EAChD,SnB44CI,gCmB54CJ,EAAgB,kBAAG,kBAAkB,wBAA4B,iBAhD1D,6BAgD0D,EADrD;AAEG,6EAAmB,U5BFlC,2B4BEkC,EAAgB,SnB24C9C,gCmB34C8C,EAC/C,Y1BtFJ,yB0BsFI,EAAqB,yBADT;AAEP,sEAAmB,U5BJ3B,2B4BI2B,EAClB,cAoDD,8BApDC,EADD;AAEH,mEAAmB,U5BNxB,2B4BMwB,EAAiB,Uf8JxC,wCe9JwC,EACrC,af2rBA,2Ce3rBA,EAAwB,uBADvB;AAGI,uEAAmB,U5BT5B,2B4BS4B,EAAiB,sBAAQ,qBAA5C;AAEA,0EAAgC,sBAAhC;AACA,0EAA+B,S5BZxC,2B4BYwC,CAA/B;AAEJ;;AAEF;;AACC;;AACF;;AAEY;;AAEL;;AACL;AAEM;;AAEK;;;AAEpB;AACA;AACA;AACA;AACA;AACA;AAPoB;;;;;;AA8yJuB;AAExC;AACH,UADG,IACH;AACE,YAAG,MAAO,KAAG,eAAb;AAEE,4BAAc;AAGZ,cAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAY,CAAP,MAAO,GAAE,eAAF,CAA5B,EACE,kBAAc,MADhB;AAEA;SAPJ;AAUF,gBAZG,IAYH;AACE,YAAG,MAAO,KAAG,cAAb;AAEE,2BAAa;AAGX,cAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAY,CAAP,MAAO,GAAE,cAAF,CAA5B,EACE,iBAAa,MADf;AAEA;SAPJ;AAUF,gBAvBG,IAuBH;AACE,YAAG,MAAO,KAAG,eAAb;AAEE,4BAAc;AAGZ,cAAe,CAAX,eAAW,GAAE,CAAF,CAAK,IAAY,CAAP,MAAO,GAAE,eAAF,CAAhC,EACE,kBAAc,MADhB;AAEA;SAPJ;AAUF,gBAlCG,IAkCH,QACE,IAAG,MAAO,KAAG,cAAb;AAEE,yBAAa;AAGX,YAAc,CAAV,cAAU,GAAE,CAAF,CAAK,IAAY,CAAP,MAAO,GAAE,cAAF,CAA/B,EACE,iBAAa,MADf;AAEA;OARN;AApC2C;AAkDR;AAErC,UAAY,cAAD,QAAX,EACE,cAAS,CAAC,IAAD,CADX;AAFqC;AAnEE;AAEvC,UAAY,2BAAH,eAAN,KAAM,CAAT;AAII,2BAAc,IAAI;AAClB,2BAAc,IAAI;AAClB,0BAAa,IAAI;AACjB,0BAAa,IAAI;AACjB;OAIF,MAAkB,2CAAC,KAAD;AAdmB;AANA;AAE7B;AACV,sBAAY;AAHgD;AAArB;AAvxJjB;AAkBF,+BAAS,YfuHrB,wCevHqB,CAAT;AAlBE;AAsBN;;AAEI,kCA1GL,8BA0GK;AACD,iCA3GJ,8BA2GI;AACC,kCA5GL,8BA4GK;AACD,iCA7GJ,8BA6GI;AALH;AAQD;;;AAEb;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATa;;;;;;;;AA00JiB;AAEtB;AACV,oBAAU,6BAAM,QAAC;AAHoC;AAArB;AAMA;AAEzB,eAAP,KAAO;AACG;AAHsB;AAMF;;AAt1Jf;AAwBJ;;;AAET;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAAM;AACN;AAAO;AACP;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAAY;AACZ;AAAW;AACX;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAvES;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AA8iDuB;AAElC,0BAAgB;AAChB,UAAI,iBAAa,KAAG,CAApB,EACE,YADF;AAHkC;AA2fH;AAAZ;AAEnB,eAAU;AAFS;AAAY;AAtjBC;AAEhC,wBAAc;AAFkB;AAofJ;AAAT;AAEnB,eAAU;AAFS;AAAS;AAjnBE;AAE9B,UAAG,aAAS,KAAG,MAAf;AAEE,wBAAY;AACZ;OAHF;AAF8B;AA5BM;AAEpC,4BAAkB;AAClB,UAAY,mBAAD,QAAX,EACE,mBAAc,WADhB;AAHoC;AAgOP;AAE7B,UAAI,YAAQ,KAAG,KAAf;AAEE,uBAAW;AACX;OAHF;AAF6B;AAzNA;AAE7B,UAAI,YAAQ,KAAG,KAAf;AAEE,uBAAW;AACX,YAAY,mBAAD,QAAX,EACE,iBAAY,CAAC,IAAD,CADd;OAHF;AAF6B;AAuEO;AAEpC;AAAG;AACH;AAGA,YAAO;AAEP,UAAI,2CAAY,IAAG,oBAAnB;AACE,8BAAkB;;AAGlB,YAAG,sBAAS,CAAC,KAAD,CAAQ,KAAE,MAAtB;AACE,gCAAkB;AAElB,oCAAkB;;AAGtB,UAAc,CAAV,yCAAU,IAAG,oBAAH,CAAmB,IAAI,CAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAAtD,EACE,MADF;AAIA,UAAY,aAAD,QAAX;AACE,aAAM;AAGR,gBAAG,KAAM,KAAE,EAAX;AAEE,aAAM,QAAQ;;AAId,aAAM,QAAQ,eAAe,CAAC,KAAD;AAC7B,YAAG,CAAY,CAAC,EAAD,SAAf,EACE,KAAM,QAAQ,KADhB;;AAIF,UAAY,EAAD,QAAX;AAEE,0BAAa;AAEb,YAAY,GAAD,QAAX;AAEE,mBAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AAEF,gBAAI,gBAAQ,CAAC,CAAD,CAAG,eAAe,KAAE,GAAhC,EACE,gBAAQ,CAAC,CAAD,CAAG,eAAX,GAAkD,EADpD;AAGA,gBAAW,CAAC,gBAAQ,CAAC,CAAD,CAAG,iBAAC,EAAb,SAA4B,IAA6C,CAAxC,gBAAQ,CAAC,CAAD,CAAG,iBAAC,EAAa,cAAe,KAAE,GAAF,CAApF;AAEE,gBAAE,YAAY,CAAC,gBAAQ,CAAC,CAAD,CAAG,iBAAC,EAAb;aAFhB;;SAPJ;OAJF;AArCoC;AA6iBD;AAAhB;AAEnB;AAEA,eAAU;AAGV,eAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AAEF,YAAG,gBAAQ,CAAC,CAAD,CAAG,iBAAC,EAAc,KAAE,QAAQ,cAAvC;AAEE,mBAAsB,gBAAQ,CAAC,CAAD;AAC9B;SAHF;;AATiB;AAAgB;AArYP;AAE5B;AAEA,UAAkC,CAAnB,CAAV,yCAAU,IAAG,oBAAH,CAAmB,IAAoB,CAAf,mBAAe,KAAG,EAAH,CAApB,CAA4B,IAAc,CAAV,CAAI,WAAM,IAAI,CAAY,CAAC,uBAAD,SAAhB,CAA5E;AAEE,wBAAW,CAAC,MAAD;AACX;OAHF;AAMA;AAEA,UAAG,WAAH;AAEE,aAAM;AACN,YAAY,EAAD,QAAX,EACE,EAAE,MAAM,YAAY,CAAC,QAAQ,qBAAQ,CAAC,MAAD,CAAQ,GAAC,IAA1B,CADtB;OAHF;AAZ4B;AA9EC;AAE7B;AAEA,UAAkC,CAAnB,CAAV,yCAAU,IAAG,oBAAH,CAAmB,IAAoB,CAAf,mBAAe,KAAG,EAAH,CAApB,CAA4B,IAAc,CAAV,CAAI,WAAM,IAAI,CAAY,CAAC,uBAAD,SAAhB,CAA5E;AAEE,yBAAY,CAAC,MAAD;AACZ,YAAY,2BAAD,QAAX;AAEE,cAA4C,CAAxC,sBAAS,CAAC,2BAAoB,QAArB,CAA+B,KAAG,MAAH,CAAW,IAAI,CAAI,kBAA/D,EACiB,2BAAqB,MAAM,YAAY,CAAC,SAAS,qBAAQ,CAAC,MAAD,CAAQ,GAAC,IAA3B,CADxD;SAFF;AAKA;OARF;AAWA;AAEA,UAAmB,CAAf,mBAAe,KAAG,EAAH,CAAO,IAAY,CAAC,2BAAD,SAAtC;AAEiB,mCAAqB,MAAM,YAAY,CAAC,SAAS,qBAAQ,CAAC,MAAD,CAAQ,GAAC,IAA3B;AACtD;OAHF;AAMA,UAAG,WAAH;AAEE,aAAM;AACN,YAAY,EAAD,QAAX,EACE,EAAE,MAAM,YAAY,CAAC,SAAS,qBAAQ,CAAC,MAAD,CAAQ,GAAC,IAA3B,CADtB;OAHF;AAvB6B;AAmDE;AAE/B,uBAAa;AAFkB;AA7DI;AAEnC,UAAI,IAAI,QAAQ,IAAG,cAAC,+BAAU,sCAAX,CAAnB;AAEE,sBAAS,CAAC,KAAM,GAAE,gBAAW,mBAApB;OAGT;AAPiC;AAsjBD;AAAf;AAEnB,UAAI,IAAI,QAAQ,IAAG,cAAC,+BAAU,sCAAX,CAAnB;AAEE,iBAAU;OAGV,eAAU;AAPO;AAAe;AA5oCG;;AAIC;;AAw/CH;AAAhB;AAEnB;AAAO;AAAO;AACd;AACA;AAGF;AACA;AAGE,UAAY,kBAAD,QAAX;AAEE,0BAAY,CAAC,KAAM,OAAQ,MAAf;OAFd;AAKA,UAAG,gBAAW,SAAd;AAEE,kBAAW,eAAI,CAAC,OAAQ,cAAG,CAAC,IAAK,MAAN,CAAc,GAAE,CAAF,CAAY,MAAD,OAArC;AAEf,aAAM,oBAAQ,CAAC,GAAI,GAAE,UAAP;AAEd,YAAW,CAAC,EAAD,SAAK,IAAc,CAAT,aAAS,KAAG,OAAH,CAA9B;AAEE,cAAwC,CAApC,cAAG,CAAC,GAAW,GAAL,UAAF,GAAS,GAAF,CAAO,MAAO,GAAE,GAA5B,CAAiC,KAAG,CAAH,CAAM,IACN,CAApC,cAAG,CAAC,GAAW,GAAL,UAAF,GAAS,GAAF,CAAO,MAAO,GAAE,GAA5B,CAAiC,KAAE,CAAF,CADxC;AAGE;WAHF;AAMA,cAAG,CAAI,WAAP;AAEE,iBAAM,oBAAQ,CAAC,GAAI,GAAE,OAAP;AACd,gBAAY,EAAD,QAAX;AAEE,8BAAW,eAAe,CAAY,GAAK;;;;kBAAjB;aAF5B;WAHF;SARF;OANF;AAyBA,eAAU;AAzCS;AAAgB;AA6LJ;AAAZ;AAEnB;AACA;AACA,eAAU;AAJS;AAAY;AA7NU;AAAtB;AAGnB,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,IAAD,CADpB;AAEA,eAAU;AALS;AAAsB;AAmKV;AAAZ;AAEnB,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAEA,eAAU;AAJS;AAAY;AA+BA;AAAZ;AAEnB,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAEA,eAAU;AAJS;AAAY;AAtSM;AAAlB;AAEnB;AAEA,YAAO;AACP,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAK;;;;UAAN,CADhB;AAGE,UAAG,GAAI,KAAG,EAAV;AAGJ;AACA;OAJI;AAQF,eAAU;AAhBS;AAAkB;AA9XJ;AAAd;AAEnB;AACA,eAAU;AAHS;AAAc;AAkCF;AAAZ;AAEnB,UAAG,aAAQ,IAAI,CAAkB,CAAb,4CAAa,IAAG,oBAAH,CAAjC;AAEE,YAAG,CAAY,CAAC,mBAAD,SAAf,EACE,oBADF;AAGA;AAGA,YAAI,uBAAc,KAAE,QAAQ,KAA5B,EACE,MAAM,WAAW,CAAE,wCAAQ,EAAV,CADnB;OARF;AAaA,UAAI,CAAC,GAAC,CAAN;AAEE;OAFF;AAKA,eAAU;AApBS;AAAY;AAyYM;AAAlB;AAEnB;AAAO;AACP;AACA;AAAE;AAEF,UAAG,UAAM,IAAY,CAAC,mBAAD,SAArB;AAEE,iBAAU,KAAK,QAAS,GAAE,SAAF;AACxB,iBAAU,KAAK,QAAS,GAAE,SAAF;AAExB,YAAG,gBAAY,IAAkB,CAAb,kBAAa,KAAG,EAAH,CAAjC;AACE,eAAqB,mBAAS;AAE9B,mBAAqB;AAEvB,UAAE,MAAM,YAAY,CAAC,YAAY,EAAb;AACpB,UAAE,MAAM,YAAY,CAAC,WAAW,UAAZ;AAEpB,YAAK,UAAK,CAAC,UAAM,GAAE,MAAT;AACV,YAAK,UAAK,CAAC,UAAM,GAAE,MAAT;AAEV,UAAE,MAAM,YAAY,CAAC,OAAQ,qBAAQ,CAAC,CAAD,CAAG,GAAC,IAArB;AACpB,UAAE,MAAM,YAAY,CAAC,MAAO,qBAAQ,CAAC,CAAD,CAAG,GAAC,IAApB;AAEpB,qBAAS;AACT,oBAAQ;OApBV;AA4BA,eAAU;AAlCS;AAAkB;AAqCF;AAAhB;AAEnB,UAAG,UAAH;AAEE,2BAAa;AACb,qBAAS;AACT,gBAAQ,KAAK,oBAAoB,CAAC,YAAa,qBAAd;AACjC,gBAAQ,KAAK,oBAAoB,CAAC,UAAW,mBAAZ;AACjC,YAAY,cAAD,QAAX,EACE,QAAQ,KAAK,YAAY,CAAC,cAAD,CAD3B;AAGA,qCAA+C,aAArB,2BAAuB,cAAC,iDAAa,8CAAd,CAAF;AAE/C,yBAAa;OAXf;AAaA,eAAU;AAfS;AAAgB;AA6GD;AAAf;AAEnB;AAEA,WAAK;AACL,WAAK;AAEL,yBAAe;AAEf,kBAAQ,UAAK,CAAC,KAAK,QAAN;AACb,kBAAQ,UAAK,CAAC,KAAK,QAAN;AAEb,UAAG,gBAAY,IAAkB,CAAb,kBAAa,KAAG,EAAH,CAAjC;AACE,YAAoB,mBAAS,WAAY,sBAAsB;AAE/D,gBAAoB,mBAAU,sBAAsB;AAEtD,mBAAS,UAAK,CAAC,cAAG,CAAC,CAAC,KAAF,CAAJ;AACd,mBAAS,UAAK,CAAC,cAAG,CAAC,CAAC,IAAF,CAAJ;AAEd,mBAAS;AAET,UAAG,CAAI,gBAAP;AAEE,2BAAa;AACb,yBAA4B,QAAQ,cAAc,CAAC,MAAD;AAClD,sBAAS,MAAM,YAAY,CAAC,MAAO,GAAR;AAC3B,sBAAS,MAAM,YAAY,CAAC,OAAQ,GAAT;AAC3B,sBAAS,MAAM,YAAY,CAAC,QAAS,GAAV;AAC3B,sBAAS,MAAM,YAAY,CAAC,SAAU,GAAX;AAC3B,sBAAS,MAAM,YAAY,CAAC,WAAY,UAAb;AAE3B,gBAAQ,KAAK,YAAY,CAAC,cAAD;AAEzB,qCAA+C,YAArB,2BAAuB,cAAC,iDAAa,8CAAd,CAAF;AAE/C,gBAAQ,KAAK,iBAAiB,CAAC,YAAa,qBAAd;AAC9B,gBAAQ,KAAK,iBAAiB,CAAC,UAAW,mBAAZ;OAfhC;AAkBA,eAAU;AAxCS;AAAe;AA5KC;AAAhB;AAEnB;AAGA,iBAAY;AAEZ,UAAY,kBAAD,QAAX,EACC,kBAAY,CAAC,KAAM;;;;UAAP,CADb;AAGA,UAAG,QAAH,EACE,YADF;AAGA,eAAU;AAbS;AAAgB;AA5wBR;AAE3B;AAEA;AACA,UAAG,WAAH;AAEE,aAAM;AACN,YAAY,EAAD,QAAX,EACE,EAAE,MAAM,YAAY,CAAC,OAAO,qBAAQ,CAAC,MAAD,CAAQ,GAAC,IAAzB,CADtB;OAHF;AAL2B;AAkCD;AAE1B;AAEA;AACA,UAAG,WAAH;AAEE,aAAM;AACN,YAAY,EAAD,QAAX,EACE,EAAE,MAAM,YAAY,CAAC,MAAM,qBAAQ,CAAC,MAAD,CAAQ,GAAC,IAAxB,CADtB;OAHF;AAL0B;AAvpBZ,yBAAG;AAFmB;AAIV,wDAAC,MAAD;AAC1B,YAAM,eAAe,CAAC,eAAiB,6CAAoB,8CAAoB,KAA1D;AALe;AAQG;AAEvC;AACA,wBAAc;AACd,kCAAwB;AACxB,wBAAc;AACd,8BAAoB;AACpB,wBAAc;AACd,wBAAc;AACd,4BAAkB;AAClB,8BAAoB;AACpB,2BAAiB;AACjB,yBAAe;AACf,2BAAe;AACf,mCAAyB;AACzB,4BAAkB;AAfqB;AAiuCF;AAErC;AAEA,UAAG,eAAW,KAAE,IAAhB;AAEE,0BAAe;AACf,oCAAyB;AACzB,0BAAe;AACf,gCAAqB;AACrB,0BAAe;AACf,0BAAe;AACf,8BAAmB;AACnB,gCAAqB;AACrB,6BAAkB;AAClB,2BAAgB;AAChB,6BAAgB;AAChB,qCAA0B;AAC1B,8BAAmB;OAdrB;AAJqC;AA7RH;AAElC;AAEA;AAEA,UAAY,aAAD,QAAX;AAEE,YAAG,aAAH;AACiB,uBAAO,MAAM,YAAY,CAAC,UAAU,EAAX;AAExC,cAAe,aAAO,MAAM,YAAY,CAAC,UAAU,MAAX;;AAI1C,kBAAW,sBAAS,CAAC,YAAD,CAAY,KAAE,+BAAF;AAEhC,YAAW,CAAC,mBAAD,SAAsC,IAAP,CAAd,mBAAc,KAAG,EAAH,CAAnB,IAA8B,CAAI,OAAzD;AAEE,cAAG,aAAH;AACiB,+BAAU,MAAM,YAAY,CAAC,UAAU,EAAX;AAE3C,gBAAe,mBAAU,MAAM,YAAY,CAAC,UAAU,MAAX;SAL/C;;AAjBgC;AAhlBR;AAE1B;AAAE;AACF;AAAM;AACN;AACA;AAEA,UAAI,4CAAa,IAAG,oBAApB,EACE,MADF;AAGA,2BAAe;AAEf,UAAG,WAAO,IAAY,CAAC,kBAAD,SAAtB;AAEE,aAAM;AACN,aAAM,EAAE;AAER,eAAQ,UAAK,CAAC,EAAE,MAAiB,GAAR,EAAE,KAAJ,GAAY,CAAtB;AACb,YAAI,YAAO,IAAG,cAAC,+BAAU,sCAAX,CAAd;AAEE,eAAM;AACN,iBAAQ,UAAK,CAAC,EAAE,OAAsB,GAAZ,EAAE,IAAJ,GAAW,EAAF,GAAO,CAA3B;SAGb,aAAQ,UAAK,CAAC,EAAE,OAAiB,GAAP,EAAE,IAAJ,GAAW,CAAtB;;AAIf,eAAQ,MAAM;AACd,eAAQ,MAAM;;AAGhB,4BAAiB,CAAC,KAAM,IAAP;AAEjB,UAAG,CAAe,CAAV,kCAAU,IAAoC,CAA/B,QAAQ,cAAc,QAAS,KAAE,OAAF,CAApC,CAAlB,EACE,iBAAY,CAAC,IAAD,CADd;AAGA;AAEA,2BAAe;AAEf,UAAG,CAAI,iBAAP;AAEE,YAAkB,CAAd,cAAQ,KAAM,KAAE,CAAC,CAAH,CAAM,IAAkB,CAAb,cAAQ,IAAK,KAAE,CAAC,CAAH,CAA1C,EACE,oBADF;AAGA,iBAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AACF,0BAAQ,CAAC,CAAD,CAAG;;OANf;AAzC0B;AA9IO;AAEjC;AAEA,UAAG,CAAI,aAAQ,IAAI,CAAI,WAAvB,EACE,MADF;AAGA;AAEA,UAAK;AAEP;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,UAAG,CAAE,KAAG,EAAR,EACE,sBAAiB,CAAjB,CADF;AAGA;AAxBiC;AA42CN;AAE3B,UAAW,CAAC,eAAD,SAAa,IAAiB,CAAZ,iBAAY,KAAG,wBAAH,CAAzC;AAEE,uBAAU,CAAC,iBAAD;AACV,0BAAc;OAHhB;AAF2B;AAxoDG;AAE9B;AACA;AAEA;AAEA,UAAI,QAAQ,WAAY,KAAG,SAA3B,EACE,IAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,IAAD,CAFtB;AAIA,YAAM,iBAAiB,CAAC,SAAU,eAAX;AACvB,YAAM,iBAAiB,CAAC,OAAQ,eAAT;AACvB,YAAM,iBAAiB,CAAC,mBAAoB,yBAArB;AACvB,cAAQ,iBAAiB,CAAC,SAAU,eAAX;AACzB,YAAM,iBAAiB,CAAC,SAAU,eAAX;AACvB,YAAM,iBAAiB,CAAC,eAAgB,qBAAjB;AACvB,YAAM,iBAAiB,CAAC,UAAW,kBAAZ;AACvB,YAAM,iBAAiB,CAAC,oBAAoB,0BAArB;AACvB,YAAM,iBAAiB,CAAC,aAAa,mBAAd;AAEvB,WAAM,oBAAQ,CAAC,eAAD;AAEd,UAAW,CAAC,EAAD,SAAmB,IAAV,CAAI,WAAR,IAAkB,gBAAW,SAA7C;AAEE,eAAQ;AACR,yBAAM,CAAC;;;;aAAK,EAAE,CAAR;AACN,wBAAY;AACZ,cAAM,SAAS,KAAf,GAAwB;OAL1B;AAvB8B;AA42BE;AAEhC;AAEA,UAAW,CAAC,aAAD,SAAS,IAAiB,CAAZ,gBAAY,KAAE,+BAAF,CAArC,EACE,aAAM,oBAAoB,CAAC,QAAS,gBAAV,CAD5B;AAGA,UAAY,oBAAD,QAAX;AAGF;OAHE;AAOA,YAAM,oBAAoB,CAAC,SAAU,eAAX;AAC1B,YAAM,oBAAoB,CAAC,OAAQ,eAAT;AAC1B,YAAM,oBAAoB,CAAC,mBAAmB,yBAApB;AAC1B,cAAQ,oBAAoB,CAAC,SAAU,eAAX;AAC5B,YAAM,oBAAoB,CAAC,SAAU,eAAX;AAC1B,YAAM,oBAAoB,CAAC,eAAgB,qBAAjB;AAC1B,YAAM,oBAAoB,CAAC,UAAW,kBAAZ;AAC1B,YAAM,oBAAoB,CAAC,oBAAoB,0BAArB;AAC1B,YAAM,oBAAoB,CAAC,aAAa,mBAAd;AAtBM;AAqyBJ;AAE5B;AACA;AACA;AAEA,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAGA,uBAAa;AAEb;AAEA,yBAAc,CAAC,IAAD;AAEd;AAEA;AAjB4B;AAqFD;AAE3B;AACA;AACA;AAEA,UAAmB,CAAf,mBAAe,KAAG,EAAH,CAAO,IAAW,CAAN,WAAM,KAAG,oCAAH,CAArC;AAEE,aAAsB,QAAQ,eAAe,CAAC,mBAAD;AAC7C,YAAY,EAAD,QAAX;AAEE,eAAM,EAAE;AAER,cAAa,CAAT,EAAE,MAAO,KAAE,CAAF,CAAyB,IAAL,CAAV,EAAE,OAAQ,KAAE,CAAF,CAAf,IAA+D,CAAtC,EAAE,MAAM,iBAAiB,CAAC,UAAD,CAAa,KAAE,UAAF,CAAjF;AAEE,sBAAK,iDAA0B,CAAC,EAAD,CAA/B;;AAIA,sBAAK,cAAI,CAAC,UAAK,CAAC,EAAE,KAAH,EAAW,UAAK,CAAC,EAAE,IAAH,EAAU,UAAK,CAAC,EAAE,MAAH,EAAY,UAAK,CAAC,EAAE,OAAH,CAAtD,CAAT;;AAGF,2BAAY,CAAC,CAAC,MAAO,CAAC,KAAM,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,CAAC,OAAQ,GAAE,CAAC,IAA9C;SAbd;OAHF;AAoBA;AA1B2B;AA6BC;AAE5B;AAAE;AAEF,UAAK;AACL,UAAK;AAEL,UAAM,CAAF,CAAE,KAAE,cAAF,CAAa,IAAO,CAAF,CAAE,KAAE,eAAF,CAA1B,EACE,MADF;AAGA,uBAAa;AACb,wBAAc;AAEd,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAb4B;AAzEF;AAE1B;AACA,UAAW,CAAC,YAAD,SAAS,IAAI,CAAI,WAA5B;AAEE,sBAAU;AACV,oBAAM,CAAC,IAAD;OAHR;AAH0B;AAdK;AAE/B;AAGA,eAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AAEF,YAAyB,CAArB,gBAAQ,CAAC,CAAD,CAAG,UAAU,KAAE,CAAF,CAAK,IAAK,gBAAQ,CAAC,CAAD,CAAG,SAA9C;AAEE,0BAAQ,CAAC,CAAD,CAAG;SAFb;;AAP6B;AAtpBN;;AA2aO;AAAb;AAEnB,WAAK;AAEL,UAAG,gBAAY,KAAE,+BAAjB,EACE,YADF;AAGA,eAAU;AAPS;AAAa;AA6IA;AAAb;AAEnB;AAEA,UAAK,eAAU,CAAC,KAAK,Kf1jEuC,Ie0jE7C;AACf,UAAG,CAAI,mBAAQ,CAAC,CAAD,CAAf,EACE,aADF;AAGA,UAAM,CAAF,CAAE,KAAE,EAAF,CAAqD,IAApC,CAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAArB,IAA4C,WAA/D;AAEE;OAFF;AAIA,eAAU;AAZS;AAAa;AAxiBU;AAAvB;AAEnB;AACA;AAEA;AACA;AACA,eAAU;AAEV,UAAY,yBAAD,QAAX;AAGF;AACA;AAGI,YAAG,UAAH;AACE,eAAM;AAEN,mBAAM;AAER,iCAAmB,CAAC,KAAM,EAAP;OAZrB;AAeA,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAxBmB;AAAuB;AAoeR;AAElC;AACA;AAAK;AAEL,WAAM,mBAAS;AAEf,aAAQ,UAAK,CAAC,EAAE,MAAO,GAAE,EAAE,KAAd;AACb,aAAQ,UAAK,CAAC,EAAE,OAAQ,GAAE,EAAE,IAAf;AAEb,UAAS,CAAL,IAAK,KAAG,eAAH,CAAe,IAAS,CAAL,IAAK,KAAG,gBAAH,CAAjC;AAEE,sBAAS,IAAT;AACA,uBAAU,IAAV;AAEA,aAAM,mBAAS;AACf,0BAAc,UAAK,CAAC,EAAE,MAAO,GAAE,EAAE,KAAd;AACnB,2BAAe,UAAK,CAAC,EAAE,OAAQ,GAAE,EAAE,IAAf;AAEpB,yBAAY,CAAC,IAAD;OATd;AAVkC;AArlDJ;AAE9B;AAAE;AAAG;AAAG;AAAI;AAEZ,WAAM,CAAC;AACP,WAAM;AAEN,eAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AAEF,YAAG,CAAK,gBAAQ,CAAC,CAAD,CAAG,SAAU,IAAK,gBAAQ,CAAC,CAAD,CAAG,SAA7C,EACE,QADF;AAGA,YAAG,gBAAQ,CAAC,CAAD,CAAG,UAAU,GAAE,EAA1B;AAEE,eAAM,gBAAQ,CAAC,CAAD,CAAG;AACjB,gBAAO;SAHT;AAMA,YAAG,gBAAQ,CAAC,CAAD,CAAG,UAAU,GAAE,EAA1B;AAEE,eAAM,gBAAQ,CAAC,CAAD,CAAG;AACjB,gBAAO;SAHT;AAOA,YAAQ,CAAJ,SAAI,KAAE,EAAF,CAAa,IAAQ,CAAJ,SAAI,KAAE,EAAF,CAA7B,EACE,gBAAQ,CAAC,CAAD,CAAG,iBAAiB,CAAC,SAAD,CAD9B;;AAIF,UAAG,gBAAW,UAAU,KAAE,IAA1B,EACE,MADF;AAGA,UAAQ,CAAJ,SAAI,KAAE,CAAF,CAA6E,IAA/D,CAAa,CAAR,iCAAQ,IAAG,KAAH,CAAjB,IAAoC,CAAJ,GAAI,GAAE,uBAAF,CAAT,IAAkC,CAAJ,GAAI,IAAG,CAAH,CAAT,IAAwB,CAAJ,GAAI,KAAG,GAAH,CAA9F;AAEE,YAAG,gBAAQ,CAAC,GAAD,CAAK,UAAhB;AAEE,0BAAQ,CAAC,GAAD,CAAK;AACb,kBAAO,CAAP;SAHF;OAFF;AASA,UAAQ,CAAJ,SAAI,KAAE,CAAF,CAAyE,IAAlD,CAAR,iCAAQ,IAAG,KAAH,CAAb,IAAgC,CAAJ,GAAI,IAAG,CAAH,CAAT,IAAwB,CAAJ,GAAI,GAAE,uBAAF,CAAT,IAAkC,CAAJ,GAAI,KAAG,GAAH,CAA1F;AAEE,YAAG,gBAAQ,CAAC,GAAD,CAAK,UAAhB;AAEE,0BAAQ,CAAC,GAAD,CAAK;AACb,kBAAO,CAAP;SAHF;OAFF;AAzC8B;AAk7CH;AAAR;AAEnB;AACA;AAKA,UAAI,iBAAa,KAAG,EAApB;AAEE,aAAqB,QAAQ,eAAe,CAAC,iBAAD;AAC5C,YAAY,EAAD,QAAX;AAEE,eAAM,EAAE;AACR,mBAAU,UAAK,CAAC,EAAE,MAAO,GAAE,EAAE,KAAd;AACf;SAJF;OAHF;AAWA,UAAI,uBAAc,KAAE,QAAQ,KAA5B;AAWE,aAAM,QAAQ,gBAAgB;AAC9B,iBAAU,UAAK,CAAC,EAAE,MAAH;AAEf,YAAG,MAAO,GAAE,MAAM,WAAlB,EACE,SAAU,MAAM,WADlB;;AAKA,YAAG,WAAH;AACE,mBAAoB;;AAIpB,mBAAU,UAAK,CAAC,uBAAa,YAAd;AACf,cAAG,MAAO,KAAE,CAAZ;AAEE,gBAAG,mBAAe,KAAG,EAArB;AACE,uBAAoB;AAEpB,2BAAU,MAAM;WALpB;;;AA5Ce;AAAQ;AA3KC;AAAT;AAEnB;AACA;AACA;AACA;AACA;AAEA,UAAI,iBAAa,KAAG,EAApB;AAEE,aAAqB,QAAQ,eAAe,CAAC,iBAAD;AAC5C,YAAY,EAAD,QAAX;AAEE,eAAM,EAAE;AACR,mBAAU,UAAK,CAAC,EAAE,OAAQ,GAAE,EAAE,IAAf;AACf;SAJF;OAHF;AAWA,UAAI,uBAAc,KAAE,QAAQ,KAA5B;AAEE,cAAO,MAAM,iBAAiB,CAAC,uBAAD;AAC9B,YAAK,GAAG,iBAAiB,CAAC,YAAD;AACzB,YAAK,eAAI,CAAC,EAAE,EAAS,CAAD,OAAI,GAAE,CAAjB;AACT,YAAK,UAAK,CAAC,yBAAU,CAAC,EAAmB,wCAApB,CAA+B,GAAE,CAA5C;AAEV,aAAM,QAAQ,gBAAgB;AAC9B,iBAAU,UAAK,CAAC,EAAE,OAAH;AAEf,YAAG,MAAO,GAAE,MAAM,YAAlB,EACE,SAAU,MAAM,YAAa,GAAE,QAAG,CAAC,EAAE,CAAH,CADpC;;AAKA,YAAG,WAAH;AAEE,mBAAoB;;AAIpB,mBAAU,UAAK,CAAC,uBAAa,aAAd;AACf,cAAG,MAAO,KAAE,CAAZ;AAEE,gBAAG,mBAAe,KAAG,EAArB;AACE,uBAAoB;AAEpB,2BAAS,MAAM;WALnB;;;AAzCe;AAAS;AAyDF;AAAP;AAEnB;AACA;AAEA,UAAG,WAAH;AAEE,iBAAoB;;AAIpB,YAAI,iBAAa,KAAG,EAApB;AAEE,eAAqB,QAAQ,eAAe,CAAC,iBAAD;AAC5C,cAAY,EAAD,QAAX;AAEE,iBAAM,EAAE;AACR,qBAAU,UAAK,CAAC,EAAE,KAAH;WAHjB;;AAQA,eAAM;AACN,cAAI,mBAAc,KAAG,EAArB,EACE,KAAqB,QAAQ,eAAe,CAAC,mBAAD,CAD9C;AAGA,cAAG,CAAY,CAAC,EAAD,SAAf,EACG,KAAM,uBADT;AAGA,mBAAU,UAAK,CAAC,EAAE,WAAH;;;AA7BA;AAAO;AAwDD;AAAN;AAEnB;AACA;AAEA,UAAG,WAAH;AACE,iBAAoB;;AAGpB,YAAI,iBAAa,KAAG,EAApB;AAEE,eAAqB,QAAQ,eAAe,CAAC,iBAAD;AAC5C,cAAY,EAAD,QAAX;AAEE,iBAAM,EAAE;AACR,qBAAU,UAAK,CAAC,EAAE,IAAH;WAHjB;;AAQA,eAAM;AACN,cAAI,mBAAc,KAAG,EAArB,EACE,KAAqB,QAAQ,eAAe,CAAC,mBAAD,CAD9C;AAGA,cAAG,CAAY,CAAC,EAAD,SAAf,EACI,KAAM,uBADV;AAEA,mBAAU,UAAK,CAAC,EAAE,UAAH;;;AA1BA;AAAM;AAjLO;AAAb;AAInB,qBAAoB,wDAApB;AAJmB;AAAa;AApzBA;AAAb;AAEnB;AAAG;AAGH,UAAG,CAAI,WAAO,IAAY,CAAC,2BAAD,SAA1B;AAEE,iBAAU;AACV;OAHF;AAQE,eAAU,QAAQ,cAAc,CAAC,KAAD;AAEhC,sBAAU;AACV,cAAQ,KAAK,YAAY,CAAC,aAAD;AAEzB,WAAqB;AAErB,UAAG,gBAAY,KAAE,+BAAjB;AAGE;AACA,UAAE,iBAAiB,CAAC,QAAS,gBAAV;OAJrB;AAOA,QAAE,MAAM,YAAY,CAAC,iCAAW,gBAAW,eAAvB;AAEpB,UAAI,YAAO,KAAE,gCAAb;AAEiB,cAAO,MAAM,YAAY,CAAC,SAAS,MAAV;AACzB,cAAO,MAAM,YAAY,CAAC,WAAW,MAAZ;OAH1C;AAMA,yBAAe;AAEf,UAAI,YAAO,IAAG,cAAC,iCAAY,+BAAU,sCAAvB,CAAd;AAEE,eAAQ;AACR,cAAM,YAAY,CAAC,IAAD;OAHpB;AArCiB;AAAa;AAmkBC;AAEjC;AACA;AAGA,UAAG,cAAH,EACE,MADF;AAGA;AAEA,UAAG,iBAAH,EACE,MADF;AAGA,UAAW,CAAC,uBAAD,SAAgB,IAAW,CAAC,mBAAD,SAAtC;AAEE,YAAI,aAAS,KAAG,EAAhB;AAEE,cAAG,CAAI,WAAP;AACE,kBAAM,SAAS,MAAf,GAAyB;;AAGzB,gBAAY,oBAAD,QAAX;AAEE,mBAAM,oBAAe,WAAW,MAAC,CAAD;AAChC,kBAAY,EAAD,QAAX,EACG,EAAE,UAAF,GAAgB,aADnB;AAGA,kBAAG,eAAU,IAAI,CAAY,CAAC,yBAAD,SAA7B;AAEE,4CAAuC,QAAQ,cAAc,CAAC,MAAD;AAC7D,yCAAoB,MAAM,YAAY,CAAC,QAAQ,OAAT;AACtC,yCAAoB,MAAM,YAAY,CAAC,SAAS,SAAV;AACtC,yCAAoB,MAAM,YAAY,CAAC,eAAe,KAAhB;AACtC,yCAAoB,UAApB,GAAkC;AAClC,oCAAe,YAAY,CAAC,yBAAD;AAC3B,yCAAoB,iBAAiB,CAAC,QAAU,+CAAX;eARvC;AAWA,uDAAkB,CAAC,qBAAiB,WAAM,CAAoC,CAAN,CAAxB,6BAAwB,KAAE,EAAF,CAAM,IAAiB,CAAZ,iBAAY,KAAE,8CAAF,CAAjB,CAA5D;aAjBpB;;SANJ;OAFF;AAgCA,UAAY,mBAAD,QAAX;AAEE,cAAO,kCAAW,CAAC,WAAD;AAElB,YAAY,mBAAD,QAAX;AAEE,cAAU,CAAN,WAAM,KAAG,EAAH,CAAkD,IAA3B,CAAN,WAAM,KAAG,QAAH,CAAY,IAAI,CAAI,WAAhC,IAA6D,CAAjB,sBAAiB,KAAE,EAAF,CAAlF,EACiB,mBAAU,MAAM,YAAY,CAAC,qCAAc,GAAf,CAD7C;AAGA,cAAG,CAAI,WAAM,IAAgB,CAAX,gBAAW,KAAG,0CAAH,CAA7B,EACiB,QAAQ,KAAM,MAAM,eAAe,CAAC,oCAAD,CADpD;AAGA,cAAqB,CAAjB,sBAAiB,KAAG,EAAH,CAA2B,IAAV,CAAN,WAAM,KAAE,EAAF,CAAV,IAA0C,CAAX,CAAN,WAAM,KAAE,QAAF,CAAW,IAAI,CAAI,WAAR,CAAtE,EACiB,mBAAU,MAAM,eAAe,CAAC,oCAAD,CADhD;AAGA,cAAqB,CAAjB,sBAAiB,KAAE,EAAF,CAAM,IAAI,CAAI,WAAnC;AAKN;WALM;AASA,mDAAkB,CAAgB,oBAAY,WAAM,CAA6B,CAAN,CAAjB,sBAAiB,KAAE,EAAF,CAAM,IAAiB,CAAZ,iBAAY,KAAE,8CAAF,CAAjB,CAA/D;SApBpB;AAuBA,YAAG,WAAH;AAEE,cAAG,CAAY,CAAC,kBAAD,SAAf,EACE,qBAAgC,mBADlC;AAGA,cAAG,2BAAsB,KAAG,EAA5B;AAEiB,+BAAU,MAAM,eAAe,CAAC,QAAD;AAC/B,8BAAc,aAAa,CAAC,QAAS,2BAAV;;AAI1C,gBAAG,YAAH;AAEiB,gCAAc,MAAM,YAAY,CAAC,aAAa,oBAAd;;AAIhC,gCAAc,MAAM,eAAe,CAAC,YAAD;;AAGrC,8BAAc,MAAM,YAAY,CAAC,SAAS,gBAAV;;AAGjD,cAAe,CAAX,gBAAW,KAAE,+CAAF,CAAgB,IAAsB,CAAjB,sBAAiB,KAAE,EAAF,CAArD;AAEiB,8BAAc,aAAa,CAAC,QAAS,MAAV;AAC3B,8BAAc,MAAM,YAAY,CAAC,UAAW,OAAZ;AAChC,+BAAU,MAAM,eAAe,CAAC,YAAD;WAJhD;;AASe,6BAAU,MAAM,eAAe,CAAC,YAAD;;OA5DlD;AA9CiC;AAzrBE;AAAhB;AAEnB,eAAU;AAFS;AAAgB;AAy/CI;AAApB;AAEnB,UAAI,2CAAY,IAAG,oBAAnB;AAEE,YAAY,qBAAD,QAAX,EACE,SAAU,qBADZ;OAFF;AAMA,UAAI,mBAAc,KAAG,EAArB;AAEE,iBAAU,QAAQ,eAAe,CAAC,mBAAD;AACjC,YAAG,CAAY,CAAC,MAAD,SAAf,EACE,SAAU,QAAQ,KADpB;;AAKA,iBAAU,QAAQ;;AAhBD;AAAoB;AAjkBA;AAApB;AAEnB,UAAI,2CAAY,IAAG,oBAAnB;AAEE,iBAAyB;AACzB;OAHF;AAMA,UAAI,mBAAc,KAAG,EAArB;AAEE,iBAAyB;;AAIzB,YAAG,CAAI,WAAP;AAEE,mBAAyB;SAGzB,eAAoB;;AAnBL;AAAoB;AAuBJ;AAAhB;AAEnB,UAAG,WAAH;AAEE,iBAAoB;AACpB,YAAG,CAAY,CAAC,MAAD,SAAf,EACE,SAAU,kBADZ;OAIA,eAAyB;AATR;AAAgB;AA9nBI;AAEvC;AACA,UAAG,WAAO,IAAY,CAAC,kBAAD,SAAtB;AAEE,0BAAa,cAAC,QAAY,MAAb;OAFf;AAHuC;AAjWV;AAAV;AAEnB,eAAU;AACV,UAAY,kBAAD,QAAX,EACE,kBAAa,CAAC,KAAM;;;;UAAP,CADf;AAHmB;AAAU;AAmLI;;AA0BT;;AAII;AAAT;AAGnB,eAAU;AAHS;AAAS;AA5FE;AAAX;AAEnB,eAAyB,QAAQ,cAAc,CAAC,MAAD;AAC/C,YAAM,MAAM,YAAY,CAAC,MAAO,GAAR;AACxB,YAAM,MAAM,YAAY,CAAC,OAAQ,GAAT;AACxB,YAAM,MAAM,YAAY,CAAC,QAAS,GAAV;AACxB,YAAM,MAAM,YAAY,CAAC,SAAU,GAAX;AAExB,YAAM,MAAM,YAAY,CAAC,qBAAsB,MAAvB;AACxB,YAAM,MAAM,YAAY,CAAC,kBAAmB,MAApB;AACxB,YAAM,MAAM,YAAY,CAAC,oBAAqB,MAAtB;AACxB,YAAM,MAAM,YAAY,CAAC,iBAAkB,MAAnB;AACxB,YAAM,MAAM,YAAY,CAAC,cAAe,MAAhB;AACxB,YAAM,MAAM,YAAY,CAAC,WAAY,UAAb;AACxB,YAAM,MAAM,YAAY,CAAC,UAAW,gBAAW,eAAvB;AAdL;AAAW;AAhEE;AAAb;AAEnB;AAEA,kBAAa,qBAAQ,CAAC,gBAAW,mBAAZ;AACrB,6BAAkC,QAAQ,cAAc,CAAC,KAAD;AACxD,0BAAe,UAAf,GAA6B;AAC7B,0BAAe,MAAM,YAAY,CAAC,qCAAe,kCAAW,CAAC,gBAAW,YAAZ,CAA3B;AACjC,0BAAe,MAAM,YAAY,CAAC,QAAS,kCAAW,CAAC,gBAAW,gBAAZ,CAArB;AACjC,0BAAe,MAAM,YAAY,CAAC,SAAU,MAAX;AAEjC,0BAAe,MAAM,YAAY,CAAC,SAAU,SAAU,GAAE,IAAvB;AACjC,0BAAe,MAAM,YAAY,CAAC,cAAe,SAAU,GAAE,IAA5B;AACjC,0BAAe,MAAM,YAAY,CAAC,gBAAiB,iBAAlB;AACjC,0BAAe,MAAM,YAAY,CAAC,eAAe,KAAhB;AAEjC,0BAAe,MAAM,YAAY,CAAC,mBAAmB,MAApB;AACjC,0BAAe,MAAM,YAAY,CAAC,sBAAsB,MAAvB;AACjC,0BAAe,MAAM,YAAY,CAAC,kBAAkB,MAAnB;AACjC,0BAAe,MAAM,YAAY,CAAC,cAAc,MAAf;AACjC,0BAAe,MAAM,YAAY,CAAC,iBAAiB,MAAlB;AAEjC,UAAG,6BAAwB,KAAG,EAA9B,EACE,oBAAe,aAAa,CAAC,QAAQ,6BAAT,CAD9B;AAGA,+CAAkB,CAAC,qBAAiB,WAAM,CAAoC,CAAN,CAAxB,6BAAwB,KAAE,EAAF,CAAM,IAAiB,CAAZ,iBAAY,KAAE,8CAAF,CAAjB,CAA5D;AAElB,UAAG,CAAY,CAAC,kBAAD,SAAf,EACE,wBADF;AAGA,0BAAe,UAAf,GAA6B;AAC7B,0BAAe,iBAAiB,CAAC,YAAa,kBAAd;AAChC,yBAAe;AAEf,eAAU;AAlCS;AAAa;AAy3BG;AAAhB;AAEnB;AAEA,eAAU;AACV,UAAW,CAAC,oBAAD,SAAkB,IAAY,CAAP,YAAO,IAAG,cAAC,+BAAU,sCAAX,CAAH,CAAzC;AAEE,YAAK,oBAAe;AACpB,iBAAU,UAAK,CAAC,CAAC,OAAQ,GAAE,CAAC,IAAb;OAHjB;AALmB;AAAgB;AA7mBD;AAElC;AAEA,UAAG,CAAI,gBAAW,QAAlB,EACE,MADF;AAGK;AACL,UADK,IACL;AAEI,sBAAS,QAAT;AACA,YACE,0EACkH,GADvC,MAAD,GAC1E,0GADkF,GACyB,MAAD,GAC1G,8GADkH;AAEpH,mBAAM,CAAC,YAAY,CAAb;OAEV,UAVK,IAUL;AAEI,sBAAS,QAAT;AACA,sBAAS,CAAC,WAAD;OAHb;AAjBkC;AAyBD;AAEjC,yBAAe;AACf,UAAa,CAAT,QAAS,KAAE,+CAAF,CAAoD,IAAnB,CAAZ,2CAAY,IAAG,oBAAH,CAAjB,IAAwC,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAApF,EACE,oBAAe,yCAAf,CADF;AAHiC;AAyEH;AAE9B,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,UAAG,cAAS,KAAE,6BAAd;AAEE,qBAAS,UAAK,CAAW,CAAT,eAAS,GAAE,eAAF,CAAQ,GAAC,CAApB,CAAuB,GAAE,MAAM,QAAR;AACrC,oBAAQ,UAAK,CAAY,CAAV,gBAAU,GAAE,gBAAF,CAAS,GAAC,CAAtB,CAAyB,GAAG,MAAM,QAAT;OAHxC;AAMe,yBAAU,MAAM,YAAY,CAAC,WAAW,UAAZ;AAC5B,yBAAU,MAAM,YAAY,CAAC,QAAQ,qBAAQ,CAAC,eAAD,CAAO,GAAC,IAAzB;AAC5B,yBAAU,MAAM,YAAY,CAAC,SAAS,qBAAQ,CAAC,gBAAD,CAAQ,GAAC,IAA3B;AAC5B,yBAAU,MAAM,YAAY,CAAC,OAAO,qBAAQ,CAAC,cAAD,CAAM,GAAC,IAAvB;AAC5B,yBAAU,MAAM,YAAY,CAAC,MAAM,qBAAQ,CAAC,aAAD,CAAK,GAAC,IAArB;AAfb;AA2oBU;AAAf;AAEzB,eAAU,IAAI,QAAC,MAAS,GAAE,gBAAW,mBAAb;AAFC;AAAe;AAt2BV;AAE9B,sBAAW;AAFmB;AAjBJ;AAE1B;AAEA;AACA,UAAkB,CAAd,mBAAc,KAAG,EAAH,CAAO,IAAsB,CAAjB,sBAAiB,KAAG,EAAH,CAA/C;AAEG,aAAM;AACN,YAAY,EAAD,QAAX;AAEE,YAAE,aAAa,CAAC,QAAS,sBAAV;SAFjB;OAHH;AASA;AAd0B;AAhLO;AAEjC;AACA,UAAY,mBAAD,QAAX;AAEiB,2BAAU,MAAM,YAAY,CAAC,qCAAe,kCAAW,CAAC,WAAD,CAA3B;OAF7C;AAHiC;AAynDG;AAEpC;AACA,yBAAc;AACd,0BAAgB;AAChB,wBAAc;AACd,qBAAW;AACX,qBAAW;AACX,wBAAc;AACd,sBAAY,CAAC;AACb,6BAAmB;AACnB,oBAAU;AACK,YAAO,iBAAiB,CAAC,OAAQ,eAAT;AAZH;AA5BR;AAE5B,qBAAW;AACX,uBAAa;AACb,4BAAkB;AAClB,UAAG,EAAG,KAAE,EAAR;AACkB,2DAAC,+BAAD;AAEhB,YAAgB,mDAAC,EAAD;AAElB,0BAAgB;AAChB,0BAAgB;AAChB,wBAAc;AACd;AAbyC;AAAb;AAgBA;AAE5B,uBAAa;AACb,4BAAkB;AACF,yDAAC,EAAD;AAChB,qBAAc,IAAd;AACA,0BAAgB;AAChB,0BAAgB;AAChB,wBAAc;AACd;AATyD;AAA7B;AA/lDA;AAE5B,qBAAW;AACX,uBAAa;AACb,6BAAmB;AACnB;AACA,qBAAW;AACX,2BAAiB;AACjB,wBAAc;AACd,yBAAe;AACf,oBAAU;AACV,uBAAa;AACb,2BAAiB;AACjB,sBAAY;AAbqC;AAArB;AAgBA;AAE5B,qBAAW;AACX,uBAAa;AACb,6BAAmB;AACH,yDAAC,MAAD;AAChB,qBAAW;AACX,sBAAY;AACZ,2BAAiB;AACjB,wBAAc;AACd,yBAAe;AACf,oBAAU;AACV,uBAAa;AACb,2BAAiB;AAb6F;AAAlF;AA0mDG;AAE/B,mBAAM,CAAC,MAAD;AAFkE;AAAzC;AA6CA;AAE/B,uBAAa;AACG,yDAAC,+BAAD;AAChB,2BAAgB;AAChB,UAAG,kBAAa,KAAG,EAAnB,EACE,gBAAW,SAAS,CAAC,KAAM,SAAP,CADtB;AALmD;AAApB;AAZA;AAE/B;AAEA,uBAAa;AACb,kBAAa;AACG,yDAAC,+BAAD;AAChB,2BAAgB;AAChB,UAAG,kBAAa,KAAG,EAAnB,EACE,gBAAW,SAAS,CAAC,KAAM,SAAP,CADtB;AARgC;AAAD;AAqBA;AAE/B,0BAAgB;AAChB;AAHyD;AAA1B;AAMA;AAE/B,sBAAS,CAAC,WAAY,GAAI,KAAjB;AAFoE;AAA9C;AAKA;AAE/B,uBAAa;AACb,4BAAkB;AACF,yDAAC,UAAD;AAChB,0BAAgB;AAChB,0BAAgB;AAChB,UAAG,SAAU,KAAE,EAAf,EACE,YAAa,6BADf;AAGA,UAAG,SAAU,KAAG,EAAhB;AACE,wBAAW,SAAS,CAAC,KAAM,SAAP;AAEpB,gBAAY,iBAAD,QAAX,EACE,iBAAY,CAAC,IAAD,CADd;AAbsF;AAAzD;AA5DG;AAElC;AAEA,uBAAa;AACb,kBAAa;AACG,yDAAC,+BAAD;AAChB,sBAAW,QAAX;AACA,oBAAS;AACT,qBAAU,8BAAV;AACA,2BAAgB;AAChB,sBAAW,SAAS,CAAC,KAAM,SAAP;AAXiC;AAAnB;AAcG;AAErC;AAEA,qBAAW;AACX,uBAAa;AACb,kBAAa;AACG,yDAAC,+BAAD;AAChB,sBAAW,QAAX;AACA,oBAAS;AACT,qBAAU,8BAAV;AACA,2BAAgB;AAXwC;AAAnB;AAt9Dd;;AAAJ;AAEnB,oBAAU;AACV,2BAAgB;AAEhB,UAAG,kBAAa,KAAE,EAAlB;AAEG,iBAAqB,IAAX,OAAW,CAAI;AAErB,kBAAQ,CAAC,KAAD;AAFa,SAAJ;;AAOtB,iBAAqB,IAAX,OAAW,CACnB;AAEE,0BAAW,WAAS,CAAC,MAAM,oBAAc;AAErC,oBAAQ,CAAC,KAAD;AAF6B,WAArB;AAFtB,SADmB;;AAdJ;AAAI;AA0BG;;AAAP;AAEnB,eAAqB,IAAX,OAAW,CACnB;AAEE,yBAAS,CAAC;AAEN,kBAAQ,CAAC,MAAD;AAFF,SAAD;AAFX,OADmB;AAFF;AAAO;AAmEO;;AAAd;AAED;AAAT;AAEP,iBAAe,MAAU;AAFlB;AAAS;AAMlB;AAEA,eAAqB,IAAX,OAAW,CACnB;AAEE,yBAAS,CAAC;AAEN,kBAAQ,CAAC,MAAD;AAFF,SAAD;AAFX,OADmB;AAVF;AAAc;AAyyDL;AAE5B,UAAG,aAAH,EACE,YADF;AAGA,UAAY,eAAD,QAAX,EACE,eAAS,CAAC,IAAD,CADX;AAGA;AAEA,UAAY,aAAD,QAAX;AAEE,YAAG,2BAAqB,KAAE,aAAM,WAAhC,EACE,2BAAoB,YAAY,CAAC,aAAD,CADlC;AAEA,wBAAU;OAJZ;AAV4B;AAhrDH;AAEzB;AACA;AAEA,UAAG,iBAAH;AAEE;AAEA,kBAAW;AAEX,YAAG,aAAS,KAAG,CAAC,CAAhB;AAEE,gBAAM,cAAc,CAAC,aAAD;AACpB,0BAAY,CAAC;SAHf;AAMA,YAAY,aAAD,QAAX,EACE,aAAO,CAAC,KAAM;;;;YAAP,CADT;AAMA,YAAG,OAAQ,KAAG,wBAAd;AAEE,cAAY,aAAD,QAAX;AAEE,gBAAG,mBAAS,WAAY,KAAE,aAA1B;AAEE,2BAAM,YAAY,CAAC,mBAAD;;AAIlB,kBAAG,mBAAS,WAAW,WAAY,KAAE,aAArC,EACE,aAAM,YAAY,CAAC,mBAAS,WAAV,CADpB;;AAIF,8BAAa;AACb,gBAAG,2BAAqB,KAAE,aAAM,WAAhC;AAEE,yCAAoB,YAAY,CAAC,aAAD;AAChC,8BAAW,gBAAgB,CAAC,CAAC,CAAF;aAH7B;AAKA,4BAAU;WAlBZ;AAqBA,cAAI,kBAAa,KAAE,EAAnB;AAEE,gBAAiB,CAAb,iBAAa,KAAG,EAAH,CAAO,IAAY,CAAC,mBAAD,SAApC;AAEE,iCAAS,UAAT,GAAuB;AACvB,gCAAa;aAGb,UAAY,mBAAD,QAAX;AAEE,kBAAG,2BAAqB,KAAE,mBAAS,WAAnC,EACE,2BAAoB,YAAY,CAAC,mBAAD,CADlC;AAEA,gCAAa;aAJf;;AASF,gBAAG,iBAAa,KAAG,EAAnB;AAEE,iCAAS,UAAT,GAAuB;AACvB,gCAAa;aAHf;;AAOF,cAAiB,CAAb,iBAAa,KAAG,mBAAH,CAAkB,IAAkB,CAAb,iBAAa,KAAG,EAAH,CAArD;AAEE,iBAAM,QAAQ,eAAe,CAAC,iBAAD;AAC7B,gBAAY,EAAD,QAAX,EACE,EAAE,UAAF,GAAgB,EADlB;WAHF;AAOA,sBAAO,CAAC;;;;cAAD;AAEP,cAAY,CAAR,OAAQ,KAAE,wBAAF,CAAU,IAAI,CAAkB,CAAb,4CAAa,IAAG,oBAAH,CAA5C;AAEE,4BAAW,KAAX;AACA,6BAAW,CAAC,IAAD;AACX,gBAAG,gBAAW,UAAW,KAAE,IAA3B,EACE,gBAAW,UAAX,GAAyB,IAD3B;WAJF;AAQA,0BAAW,YAAX,GAA2B;AAE3B,0BAAW,KAAX;SAlEF;OAlBF;AALyB;AAwuCgB;AAAtB;AAEnB;AACA;AAAE;AACF;AAEA,UAAK;AACL;AACE,gBAAS;AAET,YAAK,eAAI,CAAC,gBAAU,EAAU,eAAD,OAApB,CAAqG,GAAlE,GAAF,GAAQ,eAAI,CAAC,UAAU,YAAY,EAAU,UAAU,WAAX,OAAhC,CAAN,GAAgE,qBAAQ,CAAC,CAAD,CAAV;AAC1G,SAAJ,IAAG;AAEH,iBAAS,QAAoB,OAAf,wBAAe,GAAE,CAAF,kBAA7B;AAAI;AAEF,cAAG,iBAAU,CAAC,CAAD,CAAG,MAAM,KAAE,CAAxB;AAEE,oBAAS;AACT;WAHF;;OARJ,QAeY,EAAN,KAAM,KAAE,KAAF,CAfZ;AAiBA,eAAU;AAxBS;AAAsB;AAn7Bb;AAAT;AAEnB;AAEA,WAAM;AACN,eAAU;AAEV;AACE,aAAM,EAAE;AACR,YAAW,CAAC,EAAD,SAAK,IAAkB,CAAb,EAAE,WAAW,KAAE,cAAF,CAAlC;AAEE,mBAAU;AACV;SAHF;OAFF,QAOuB,EAAjB,CAAY,CAAC,EAAD,SAAK,IAAiB,CAAb,EAAE,WAAW,KAAE,OAAF,CAAjB,CAPvB;AAPmB;AAAS;AAkoBM;AAElC,4BAAY,eAAe;AAFO;AA5iBL;AAE7B,UAAI,2CAAY,IAAG,oBAAnB;AAEE;AACA,yBAAY,CAAC,EAAG,EAAG,OAAQ,OAAf;OAGZ,MAAmB,oDAAC,EAAG,EAAG,OAAQ,OAAf;AARQ;AAyPE;AAE/B,UAAG,uBAAa,GAAE,CAAlB,EACE,gBAAQ,CAAC,CAAD,CAAG,WADb;AAF+B;AAMD;AAE9B;AAEA,UAAG,uBAAa,GAAE,CAAlB;AAEE,iBAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AAEF,cAAG,gBAAQ,CAAC,CAAD,CAAI,KAAE,UAAjB;AAEE,gBAAG,SAAH;AAEE,kBAAK,CAAF,CAAE,GAAE,CAAF,CAAI,IAAgB,CAAb,uBAAa,GAAE,CAAF,CAAzB;AACE,gCAAQ,CAAC,CAAE,GAAE,CAAL,CAAO;AAEf,oBAAA,gBAAQ,CAAC,CAAD,CAAG;;AAIb,kBAAK,CAAF,CAAE,GAAE,CAAF,CAAI,IAAG,CAAZ;AACE,gCAAQ,CAAC,CAAE,GAAE,CAAL,CAAO;AAEf,oBAAA,gBAAQ,CAAC,uBAAa,GAAE,CAAhB,CAAkB;;AAE9B;WAhBF;;OAJJ;AAJ8B;AA8BN;AAExB;AAEA,UAAG,cAAU,IAAI,WAAjB;AAEE,wBAAW,gBAAgB,CAAC,CAAC,CAAF;AAC3B,yBAAa;AACb;OAJF;AAOA,UAAI,kBAAa,KAAE,EAAnB;AAEE,YAAG,CAAY,CAAC,mBAAD,SAAf;AAEE,cAAG,WAAH;AAEE,8BAAa;AAEb,iCAAgC;AAChC;AACA;AACA,yBAAM,YAAY,CAAC,mBAAD;;AAIlB,8BAAa;AACE,+BAAU,MAAM,YAAY,CAAC,qCAAc,kCAAW,CAAC,WAAD,CAA1B;AAC3C,oBAAQ,KAAK,YAAY,CAAC,mBAAD;;;AAK3B,cAAG,WAAH;AAEE;AACA,yBAAM,YAAY,CAAC,mBAAD;;AAIlB,gBAAY,aAAD,QAAX;AAEE,2BAAM,YAAY,CAAC,mBAAD;;AAIlB,sBAAQ,KAAK,YAAY,CAAC,mBAAD;;;;AAK/B,YAAG,WAAH;AAEE,cAAI,YAAO,KAAE,gCAAb;AAEE,iBAAM,mBAAS;AACf,8BAAc,UAAK,CAAC,EAAE,MAAO,GAAE,EAAE,KAAd;AACnB,+BAAe,UAAK,CAAC,EAAE,OAAQ,GAAE,EAAE,IAAf;AACpB,4BAAY,MAAM,YAAY,CAAE,8CAAgB,GAAlB;;AAIf,+BAAU,MAAM,YAAY,CAAC,SAAS,EAAV;AAC5B,+BAAU,MAAM,YAAY,CAAC,WAAW,EAAZ;;SAZ/C;OAxCF;AAyDA,sBAAW,IAAX;AAEA;AAtEwB;AAyEI;AAAT;AAEnB,eAAU,gBAAS,CAAC,IAAD;AAFA;AAAS;AAKA;AAAT;AAGnB,UAAG,YAAQ,IAAiB,CAAb,kBAAa,KAAE,EAAF,CAA5B;AAEE,+BAAmB,gBAAW;AAC9B,wBAAW,YAAX,GAA2B;AAC3B,YAAG,CAAI,aAAP,EACE,gBAAW,cAAc,CAAC,KAAM,EAAP,CAD3B;OAJF;AAQA,eAAU;AACV,qBAAW;AACX,wBAAc;AACd,0BAAe,CAAf;AACA;AAfmB;AAAS;AAlxBF;AAG5B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAf4B;AAmBG;AAE7B;AAEA,WAAM,QAAQ,eAAe,CAAC,EAAD;AAC7B,UAAY,EAAD,QAAX,EACE,QAAQ,KAAK,YAAY,CAAC,EAAD,CAD3B;AAL6B;AA0yBA;AAE7B,oBAAS,CAAC,EAAD;AACT,iBAAM,CAAC,GAAG,GAAJ;AAHuB;AAjwDlB;;;AA+JS,+BAAG,iBAAH;AACA,+BAAG,kBAAwB,qBAA3B;AACA,+BAAO,UnB+MjB,+BmB/MiB,CAAP;AACA,+BAAO,UnB8MjB,+BmB9MiB,EAAqB,wBAAkB,WA7NlD,8BA6NkD,EAAqC,qBAAnF;AACG,gCAAO,UnB6MpB,+BmB7MoB,EAAmB,qBAA1B;AACA,kCAAU,wBAAV;AACA;AACA,kCAAM,SA3Ob,8BA2Oa,CAAN;AACA,kCAAW,0BAAe,SA5OjC,8BA4OiC,CAA1B;AACA,kCAAW,0BAAW,yBAAe,SA7O5C,8BA6O4C,CAArC;AACG,mCAAS,uBAAT;AACG,sCAAS,uBAAT;AA1KlB;AAsON;AADK,qCACL,iCADK;AACL;;;;AAQW,6BfvTV,uCeuTU;AACE;AACF,6BdvDV,uCcuDU;AACK,kCflUV,4CekUU;AACM,wCf/SV,kDe+SU;AACL,mCf9SV,6Ce8SU;AACI,uCf9SV,iDe8SU;AACX,4BdqCV,sCcrCU;AACS,qCflTd,2CekTc;AACJ,iCA5XV,yBA4XU;AACL,4BfoZD,+CepZC;AACM;AACJ;AACG;AACD;AACD;AACO,sCAjWP,iCAiWO;AACP,+BfnQN,6CemQM;AACA,+BAtWP,0BAsWO;AACK,oCAtWP,+BAsWO;AACJ,gCftQP,6CesQO;AACE,kCfvQT,6CeuQS;AACE,oCfxQX,6CewQW;AACH,iCfzQR,6CeyQQ;AACS,0Cf1QjB,6Ce0QiB;AACN,oCA/UP,+BA+UO;AACJ,gCf5QP,6Ce4QO;AACF,8Bf7QL,6Ce6QK;AACE,gCf9QP,6Ce8QO;AACW,2CA/WP,sCA+WO;AACZ,+BfhRN,6CegRM;AACK,oCfzQZ,4CeyQY;AACD,mCf1QX,4Ce0QW;AACD,kCf3QV,4Ce2QU;AACF,gCfpRP,6CeoRO;AA1Cd;AA+CQ,wCA/CR,iCA+CQ;AAKD;;;AAEV;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA7BU;;;;;;;;;;;;;;;;;;;;;;AA+3IF,qBAAG;AACJ,oBAAG;AAEO,8BAAG;AACT,wBAAG;AANiB;;AASjC;AACA;AAEuB;AAAd;AAEP;AACA;AAEA,YAAG,MAAO,KAAE,IAAZ,EACM,OAAC,KADP;AAIJ;AAEI,mBAA2B,QAAQ,eAAe,CAAC,GAAD;AAClD,gBAAQ,UAAR,GAAsB;AAEtB,iBAAU;AAdH;AAAc;AAkBvB,kBAAa;AACb,UAAG,SAAU,KAAG,EAAhB;AAEE,mBAA8B,IAAlB,cAAkB;AAC9B,gBAAQ,iBAAiB,CAAC,UAAW,2CAAZ;AACzB,gBAAQ,KAAK,CAAC,WAAY,SAAb;AAEb,gBAAQ,iBAAiB,CAAC,oBAAqB,aAAtB;AAEzB,gBAAQ;OARV;AA/BiC;AAyDE;AAEnC,uBAAY,OAAO,CAAC,MAAD;AAFgB;AAKF;AAEjC,wBAAc;AAFmB;AAKF;AAE/B,mBAAQ,OAAO,CAAC,MAAD;AAFgB;AAjFU;AAAf;AAE1B,eAAU,kBAAS,GAAE,gBAAW,mBAAb;AAFO;AAAe;AAKP;;AAoDA;AAElC;AAEA;AAEA,gBAAW,WAAM,IAAG,cAAC,SAAW,GAAQ,SAAS,QAA7B,CAAH;AAEjB,UAAW,CAAC,uBAAD,SAAuE,IAAnD,CAAI,iBAAR,IAAoC,CAAZ,2CAAY,IAAG,oBAAH,CAAjB,IAAwC,OAAtF;AAEE,+BAAa,MAAM,YAAY,CAAC,mBAAmB,kCAAW,CAAC,QAAD,CAA/B;OAFjC;AARkC;AAzFL;AAEb,yDAAC,GAAD;AAChB,sBAAY,+BAAQ,QAAC;AACrB,uBAAY,CAAC,GAAD;AAJ+B;AAAd;AAOA;AAEb,yDAAC,MAAD;AAChB,sBAAY,+BAAQ,QAAC;AACrB,0BAAgB,qBAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAJiB;AAArB;AAOG;AAEhC,mBAAM,CAAC,MAAD;AACN;AACA;AACE;AADF;AAGE;AAHF;AAJqD;AAArB;AAWH;AAEhB,eAAb,KAAa;AACJ,eAAT,KAAS;AACC;AAJmB;AAgBI;AAEjC;AAFiC;AAx3IrB;;;AAuEQ,+BAAI,kBAAJ;AACA,+BAAO,UnBcjB,+BmBdiB,CAAP;AACG,gCAAO,UnBapB,+BmBboB,CAAP;AAzEX;AAgFN;AADK,sCACL,kCADK;AACL;;;;AAEU,6BfrbV,uCeqbU;AACE,+Bf9aV,yCe8aU,yBfiMkD,uBAAC,0CAAQ,wCAAT,CejMlD;AACG;AACF;AACA,gCf3WV,0Ce2WU;AACG,mCAjZN,+BAiZM;AACH;AACM;AACJ,kCfred,wCeqec;AACF,gCfjcV,0CeicU;AACA,gCfncV,0CemcU;AACD;AACF,6Bd/LV,uCc+LU;AACA;AACD,4BdhGV,sCcgGU;AACG,+BfrUV,yCeqUU;AACS;AACF;AACH;AACA;AACS;AACV;AACI;AACL,iCHxWV,wCGwWU;AACD;AACA;AACD;AAEA;AACY,2CA3eP,sCA2eO;AACJ,uCA3eP,kCA2eO;AACJ,mCAzeP,8BAyeO;AACJ,+BfhZN,6CegZM;AACY,2CAzeP,sCAyeO;AACL,sCAxeP,iCAweO;AACJ,kCfnZT,6CemZS;AACA,kCAzeP,6BAyeO;AACA,kCAxeP,6BAweO;AACA,kCf1YP,+Ce0YO;AACA,kCf5YP,+Ce4YO;AACD,iCf1YP,8Ce0YO;AACA,iCf3YP,8Ce2YO;AACF,+Bf1ZN,6Ce0ZM;AACD,8Bf3ZL,6Ce2ZK;AACG,iCA7eP,4BA6eO;AACI,qCA5eP,gCA4eO;AACE,uCA3eP,kCA2eO;AACJ,mCf9ZX,4Ce8ZW;AACC,oCfhaX,6CegaW;AACA,oCfjaX,6CeiaW;AACD,mCf7ZP,gDe6ZO;AACF,iCflaT,4CekaS;AACG,oCflaP,iDekaO;AACI,wCAhfL,qCAgfK;AACF,sCAjfH,qCAifG;AACN,gCfvaP,6CeuaO;AACG,mCAjfP,8BAifO;AACA,mCf5ZP,gDe4ZO;AACH,gCAjfP,2BAifO;AA5Db;AAgEW;AACf;AACA;AACA;AACA;AACA;AACA;AANe;aACf,8BACA,IAAA,wBACA,IAAA,oCACA,IAAA,kCACA,IAAA,0BACA,8BAJA;AAFe;;AACf;AACA;AACA;AACA;AACA;AACA;AANe;;;AACf;AACA;AACA;AACA;AACA;AACA,yBzB5kBO,yByB4kBP;AANe;AASJ;;AAEA;;AAES,6EAAmB,U5BxgBlC,2B4BwgBkC,EAAiB,UAbzC,+BAayC,EAAgC,yBAApE;AAEK,kFAAmB,U5B1gBvC,2B4B0gBuC,EAAgB,qBAAqB,yBAAxD;AAEE,oFAAmB,U5B5gBzC,2B4B4gByC,EAAkB,WANrD,2BAMqD,CAArC;AAEA,oFAAmB,U5B9gBzC,2B4B8gByC,EAAiB,sBAApC;AAEJ,gFAAmB,U5BhhBrC,2B4BghBqC,EAAiB,qBAApC;AAEC,iFAAmB,U5BlhBtC,2B4BkhBsC,EAAY,KxBhiBhD,+BwBgiBgD,CAA/B;AAED,gFAAmB,U5BphBrC,2B4BohBqC,EAAgB,qBAAnC;AAEM,sFAAmB,U5BthB3C,2B4BshB2C,EAAyB,kBAhOjE,wBAgOiE,EAA4B,qBAAxE;AAEnB;;;AAEV;AACA;AACA;AACA;AACA;AACA;AAIA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA9CU;;;;;;;;;;;;;;;;;;;;;;;;AAu8FkB;AAAV;AAEpB;AAGF;AAGE,wBAAa,CAAC,eAAW,SAAZ;AAEb,UAAY,iBAAD,QAAX;AAEE,yBAAY,CAAC,IAAD;AACZ,4BAAgB;OAHlB;AAMA,eAAU;AAhBU;AAAU;AA2tBC;AAAX;AAEpB,uCAAW,CAAC,wCAAD;AACX,eAAU;AAHU;AAAW;AAjsBE;AAAb;AAEpB;AACA;AAAG;AAAG;AACN;AAAI;AAAK;AAAO;AAChB;AAAS;AACT;AACA;AAEA,gBAAW;AACX,kBAAa;AACb,gBAAW;AAEX,SAAG,MAAH,GAAa;AACb,SAAG,YAAH,GAAmB;AACnB,SAAG,WAAH,GAAkB;AAClB,SAAG,OAAH,GAAc;AAGhB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAIE,UAAG,CAAI,SAAU,IAAmB,CAAd,KAAK,QAAS,KAAE,oCAAF,CAApC,EACE,aADF;AAIA,UAAG,CAAI,SAAU,IAAmB,CAAd,KAAK,QAAS,KAAE,+DAAF,CAApC,EACE,aADF;AAGA,UAAG,CAAI,OAAP;AAEE,WAAG,SAAH,GAAgB;AAChB,WAAG,MAAH,GAAa;AACb,WAAG,YAAH,GAAmB;AACnB,WAAG,WAAH,GAAkB;AAClB,WAAG,OAAH,GAAc;AAEd,YAAY,aAAD,QAAX,EACE,aAAO,CAAC,KAAM,mCAAK;;;;YAAZ,CADT;AAEA;OAVF;AAaA,UAAG,SAAH;AAEE,WAAG,SAAH,GAAgB;AAChB,WAAG,OAAH,GAAc;AACd,WAAG,OAAH,GAAwB;;AAIxB,WAAG,SAAH,GAAgB,KAAK;AACrB,WAAG,MAAH,GAAa,KAAK;AAClB,WAAG,YAAH,GAAmB,KAAK;AACxB,WAAG,WAAH,GAAkB,KAAK;AACvB,WAAG,OAAH,GAAc,KAAK;AACnB,WAAG,OAAH,GAAc;;AAGhB,UAAK;AAGL,UAAY,KAAK,MAAN,QAAX;AAGF;AACA;AACA;AACA;AACA;AACA;AAIA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;OA5BE;AAiCA,UAAG,mBAAQ,CAAC,OAAD,CAAX;AAGF;AAEI,YAAY,iBAAD,QAAX,EACE,iBAAW,CAAC,KAAM,EAAP,CADb;OALF;AASA,eAAU;AAEV,YAAO,WAAyI,GAA3H,GAAG,SAAL,GAAiB,KAAF,GAAU,CAAF,GAAM,GAAG,OAAL,GAAe,UAAF,GAAa,GAAG,MAAJ,GAAa,IAAF,GAAQ,qBAAQ,CAAC,GAAG,YAAJ,CAAT,GAA2B,GAAD,GAAK,qBAAQ,CAAC,GAAG,WAAJ,CAAT,GAA0B,GAAD;AAE3I;AACL,UADK,IACL;AAEI,aAAqB,QAAQ,eAAe,CAAC,iBAAD;AAE5C,YAAY,EAAD,QAAX;AAEiB,oBAAd,EAAE,YAAe,WAAH,CAAkB,UAAjC,GAA+C;;AAI/C,eAAqB,QAAQ,cAAc,CAAC,KAAD;AAC3C,YAAE,aAAa,CAAC,KAAK,iBAAN;AACf,YAAE,MAAM,YAAY,CAAC,WAAW,UAAZ;AACpB,YAAE,MAAM,YAAY,CAAC,cAAc,SAAf;AACpB,YAAE,MAAM,YAAY,CAAC,YAAY,KAAb;AACpB,YAAE,MAAM,YAAY,CAAC,SAAS,GAAV;AACpB,YAAE,MAAM,YAAY,CAAC,QAAQ,MAAT;AACpB,YAAE,MAAM,YAAY,CAAC,SAAS,OAAV;AACpB,YAAE,MAAM,YAAY,CAAC,aAAa,SAAd;AACpB,YAAE,MAAM,YAAY,CAAC,QAAQ,SAAT;AACL,kBAAQ,KAAM,MAAM,YAAY,CAAC,UAAU,GAAX;AAChC,kBAAQ,KAAM,MAAM,YAAY,CAAC,SAAS,GAAV;AAC/C,eAAqB,QAAQ,cAAc,CAAC,MAAD;AAC3C,YAAE,MAAM,YAAY,CAAC,cAAc,KAAf;AACpB,YAAE,MAAM,YAAY,CAAC,QAAQ,MAAT;AACpB,YAAE,MAAM,YAAY,CAAC,WAAW,QAAZ;AACpB,YAAE,MAAM,YAAY,CAAC,UAAU,OAAX;AACpB,YAAE,UAAF,GAAgB;AAChB,YAAE,YAAY,CAAC,EAAD;AAEd,cAAoB,QAAQ,cAAc,CAAC,MAAD;AAC1C,WAAC,MAAM,YAAY,CAAC,cAAc,SAAf;AACnB,WAAC,MAAM,YAAY,CAAC,YAAY,KAAb;AACnB,WAAC,MAAM,YAAY,CAAC,cAAc,MAAf;AACnB,WAAC,MAAM,YAAY,CAAC,WAAW,UAAZ;AACnB,WAAC,MAAM,YAAY,CAAC,QAAQ,MAAT;AACnB,WAAC,MAAM,YAAY,CAAC,iBAAiB,KAAlB;AACnB,WAAC,MAAM,YAAY,CAAC,SAAS,SAAV;AACnB,WAAC,MAAM,YAAY,CAAC,aAAa,OAAd;AACnB,WAAC,MAAM,YAAY,CAAC,QAAQ,KAAT;AACnB,WAAC,MAAM,YAAY,CAAC,UAAU,OAAX;AACnB,WAAC,UAAD,GAAe;AACf,WAAC,QAAD,GAAc;AACd,YAAE,YAAY,CAAC,CAAD;AAEd,kBAAQ,KAAK,YAAY,CAAC,EAAD;;OAG/B,UAjDK,IAiDL;AAAS,cAAM,MAAM,CAAC,GAAD;AACrB,gBAlDK,IAkDL;AAEM,2BAAc,CAAC,iBAAkB,yDAAnB;AAChB,wCAAU,CAAC,IAAK,0CAAS,cAAC,qCAAD,EhB9yG0F,IgB8yGzG;OAHd;AAOA,UAAY,aAAD,QAAX,EACE,aAAO,CAAC,KAAM,mCAAK;;;;UAAZ,CADT;AA/KoB;AAAa;AAPD;AAAZ;AAEpB,eAAU;AACV,UAAY,cAAD,QAAX,EACE,cAAM,CAAC,IAAD,CADR;AAHoB;AAAY;AAsNA;AAAZ;AAEpB;AACA;AACA;AACA;AACA;AAGA,eAAU;AAEV,UAAG,CAAI,mBAAP,EACE,aADF;AAIF;AAIE,uBAAM,CAAC;;;;WAAE,EAAE,CAAL;AAEN,gBAAW;AAEX,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAM,EAAG;;;;UAAV,CADd;AAGA,UAAG,OAAH,EACE,aADF;AAGA,UAAG,CAAE,KAAE,EAAP,EACE,IAAK,uBADP;AAGA,UAAG,CAAE,KAAG,EAAR;AAEE,YAAG,uBAAmB,KAAE,EAAxB,EACE,0BAAsB,gBAAW,WADnC;AAGA,aAAiB,oBAAQ,CAAC,CAAD;AAEzB,YAAY,EAAD,QAAX;AAEE,gBAAsB,QAAQ;AAC9B,2BAAU,CAAC,GAAI,IAAK;;;;cAAV;SAHZ;OAPF;AAhCoB;AAAY;AARF;AAAV;AAEpB,UAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,KAAM,KAAK,MAAZ,CADZ;AAEA,eAAU;AAJU;AAAU;AAofE;AAAZ;AAEpB,cAAQ,KAAK,YAAY,CAAC,KAAK,OAAc,cAApB;AACzB,eAAU;AAHU;AAAY;AA7bQ;AAApB;AAEpB,eAAU;AAEV,UAAY,oBAAD,QAAX;AAEE,YAAG,MAAM,UAAU,OAAnB;AACE,8BAAc,CAAC,KAAM,2BAAP;AAEd,cAAA,oBAAc,CAAC,KAAM,4BAAP;OALlB;AAJoB;AAAoB;AAaF;AAAlB;AAEpB;AAEA,eAAU;AAEV,YAAS,QAAQ,gBAAiB,KAAE,SAAF;AAElC,UAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,KAAM,GAAP,CADZ;AARoB;AAAkB;AAoqBN;AAEhC,uBAAa;AAFmB;AAjYD;AAAX;AAEpB,eAAU,MAAM,UAAU;AAFN;AAAW;AAoFA;AAAX;AAEpB;AAGF;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,eAAU;AAdU;AAAW;AA/EH;AAAR;AAEpB;AAGF;AAGE,eAAU;AARU;AAAQ;AA3La;AAG3C;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAhB2C;AAlmBP;AAElC;AAAG;AAAG;AAAK;AAAU;AACrB;AAAE;AAAE;AAAE;AACN;AACA;AACA;AACA;AAEA,UAAG,cAAU,KAAE,IAAf,EACE,iBAAa,KADf;AAGA,aAAQ;AACR,iBAAY;AACZ,uBAAkB;AAGlB,UAAG,CAAI,KAAK,OAAO,IAAwB,CAAnB,KAAK,aAAc,KAAG,EAAH,CAA3C;AAEE,aAAK,SAAL,GAAgB;AAChB,aAAqB,QAAQ,eAAe,CAAC,KAAK,aAAN;AAC5C,YAAY,EAAD,QAAX;AAEE,YAAE,UAAF,GAAgB;AAChB,cAA2B,CAAvB,KAAK,kBAAkB,KAAE,EAAF,CAAM,IAAsB,CAAjB,KAAK,YAAY,KAAE,0CAAF,CAAvD,EACE,EAAE,MAAM,YAAY,CAAC,qCAAc,kCAAW,CAAC,KAAK,OAAN,CAA1B,CADtB;SAHF;;AASA,aAAK;AAEL,aAAK,SAAL,GAAgB,KAAK;AACrB,gBAAQ,KAAK,YAAY,CAAC,KAAK,SAAN;AAEzB,aAAqB,KAAK;AAG1B,YAAG,KAAK,OAAO,IAAwB,CAAnB,KAAK,cAAc,GAAE,CAAF,CAAvC;AAEE,eAAM,KAAK;AACX,YAAE,MAAM,YAAY,CAAC,qCAAe,OAAhB;AACpB,YAAE,MAAM,YAAY,CAAC,UAAW,mCAAY,CAAC,KAAK,cAAN,CAAxB;AACpB,YAAE,MAAM,YAAY,CAAC,iCAAW,gBAAW,eAAvB;AACpB,YAAE,YAAY,CAAC,EAAD;SANhB;AASA,wBAAW,gBAAgB,CAAC,CAAC,CAAF;AAE3B,eAAuB,QAAQ,cAAc,CAAC,KAAD;AAG7C,YAAI,MAAM,YAAY,CAAC,iCAAW,gBAAW,eAAvB;AACtB,aAAK,cAAL,GAAuB;AAEvB,YAAI,KAAK,QAAQ,KAAE,sCAAnB;AAEE,cAAI,MAAM,YAAY,CAAC,SAAS,MAAV;AACtB,cAAI,MAAM,YAAY,CAAC,WAAW,MAAZ;AAEtB,eAAM;AAEZ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGM,eAAK,gBAAL,GAAyB;SA9B3B;AAiCA,YAAG,KAAK,kBAAkB,KAAG,EAA7B,EACE,IAAI,aAAa,CAAC,QAAS,KAAK,kBAAf,CADnB;AAGA,YAAG,KAAK,QAAQ,IAAI,KAAK,OAAzB,EACE,IAAI,MAAM,YAAY,CAAC,aAAa,oBAAd,CADxB;AAGA,UAAE,YAAY,CAAC,IAAD;AAEd,aAAK;AAEL,YAAI,KAAK,QAAQ,IAAG,cAAC,+BAAU,sCAAX,CAApB;AAEE,wBAAe,KAAK;AACpB,cAAI,YAAY,CAAC,WAAD;AAChB,sBAA4B,QAAQ,cAAc,CAAC,KAAD;AAClD,mBAAS,MAAM,YAAY,CAAC,WAAW,UAAZ;AAC3B,mBAAS,MAAM,YAAY,CAAC,QAAQ,MAAT;AAE3B,mBAAS,cAAC,KAAQ,WAAT;AACT,cAAI,YAAY,CAAC,SAAD;AAChB,qBAAY;AACZ,2BAAkB,gBAAW;;AAI7B,qBAAY;;AAGd,gBAAQ,UAAR,GAAsB;AACtB,aAAK,WAAL,GAAmB;;AAGrB,WAAK;AACL,WAAK;AAEL,UAAiB,CAAb,KAAK,QAAQ,IAAG,cAAC,+BAAU,sCAAX,CAAH,CAAiC,IAAmC,CAA9B,KAAK,yBAAyB,KAAG,EAAH,CAArF;AAEE,mBAAW,UAAU,IAAI,CAAC,KAAK,yBAAN;AACzB,mBAAW,MAAM,eAAe,CAAC,kBAAD;AAChC,mBAAW,MAAM,eAAe,CAAC,OAAD;OAJlC;AAOA,UAAY,KAAK,SAAN,QAAX;AAGE,YAAG,CAAI,KAAK,OAAZ;AAEE,cAAI,KAAK,kBAAkB,KAAE,EAA7B;AAEE,gBAAG,KAAK,OAAO,KAAG,EAAlB;AACE,gBAAE,MAAM,YAAY,CAAC,qCAAe,kCAAW,CAAC,KAAK,OAAN,CAA3B;AAEpB,kBAAA,EAAE,MAAM,YAAY,CAAC,qCAAe,OAAhB;WAGtB,MAAA,EAAE,aAAa,CAAC,QAAQ,KAAK,kBAAd;AAEjB,cAAqB,CAAjB,KAAK,YAAY,KAAE,+CAAF,CAAgB,IAA4B,CAAvB,KAAK,kBAAkB,KAAE,EAAF,CAAjE;AAEE,cAAE,aAAa,CAAC,QAAS,MAAV;AACf,cAAE,MAAM,eAAe,CAAC,kBAAD;AACvB,cAAE,MAAM,YAAY,CAAC,UAAU,OAAX;WAJtB;SAZF;OAHF;AAyBA,UAAW,CAAC,IAAD,SAAsD,IAAtB,CAApB,KAAK,eAAe,KAAE,EAAF,CAAzB,IAAmC,KAAK,OAAT,IAAoC,CAAf,KAAK,UAAU,KAAE,6BAAF,CAArF;AAEE,YAAI,MAAM,YAAY,CAAC,WAAY,UAAb;AAEtB,YAAK,QAAG,CAAC,EAAE,UAAK,CAAW,CAAT,eAAS,GAAE,KAAK,SAAC,EAAR,CAAc,GAAC,CAA1B,CAAR,CAAsC,GAAE,MAAM,QAAR;AAC9C,YAAK,QAAG,CAAC,EAAE,UAAK,CAAY,CAAV,gBAAU,GAAE,KAAK,UAAC,EAAR,CAAe,GAAC,CAA5B,CAAR,CAAwC,GAAE,MAAM,QAAR;AAEhD,YAAK,KAAK,SAAC;AACX,YAAK,KAAK,gBAAC,EAAa,GAAE,cAAF;AAExB,aAAK,KAAL,GAAc;AACd,aAAK,MAAL,GAAe;AACf,aAAK,YAAY,CAAC,CAAD;AACjB,aAAK,aAAa,CAAC,CAAD;AAElB,YAA2B,CAAvB,KAAK,kBAAkB,KAAE,EAAF,CAAM,IAAsB,CAAjB,KAAK,YAAY,KAAE,0CAAF,CAAvD;AAEE,cAAI,MAAM,YAAY,CAAC,qCAAc,kCAAW,CAAC,KAAK,OAAN,CAA1B;AACtB,cAAI,MAAM,YAAY,CAAC,SAAS,iBAAV;SAHxB;AAMA,YAAI,MAAM,YAAY,CAAC,MAAM,qBAAQ,CAAC,CAAD,CAAG,GAAC,IAAnB;AACtB,YAAI,MAAM,YAAY,CAAC,OAAO,qBAAQ,CAAC,CAAD,CAAG,GAAC,IAApB;AACtB,YAAI,MAAM,YAAY,CAAC,QAAQ,qBAAQ,CAAC,CAAD,CAAG,GAAC,IAArB;AACtB,YAAI,MAAM,YAAY,CAAC,SAAS,qBAAQ,CAAC,CAAD,CAAG,GAAC,IAAtB;OAxBxB;AA2BA,UAAY,QAAD,QAAX,EACE,yBAAoB,CAAC,QAAD,CADtB;AAGA,UAAY,KAAK,UAAN,QAAX,EACE,KAAK,UAAS,CAAC,KAAD,CADhB;AAGA,UAAY,KAAK,aAAN,QAAX;AAEE,uBAAgB,KAAK;AACrB,aAAK,aAAL,GAAsB;AACtB,oBAAY,CAAC,KAAD;OAJd;AAOA,WAAK;AACL,WAAK;AACL,WAAK;AACL,WAAK,UAAL,GAAmB;AACnB,WAAK;AAEL,UAAG,CAAI,KAAK,cAAZ,EACE,KAAK,aADP;AAGA,WAAK;AACL,WAAK;AA7M6B;AAgxBE;AAAhB;AAEpB,UAAG,cAAS,KAAG,oCAAf;AACE,iBAAU,GAAwC,GAAlC,0CAAuB,CAAC,cAAD,CAAzB,GAAsC,+BAAF;AAElD,qBAAU;AALQ;AAAgB;AA/GL,0CAAG;AACC,8CAAG;AACpC,aAAG;AAEI,oBAAG,qEAOqE,GANjF,iFADiF,GAEjF,iFADiF,GAEjF,iFADiF,GAEjF,iFADiF,GAEjF,iFADiF,GAEjF,iFADiF,GAEjF,iFADiF,GAEjF,4FADiF;AAGrE,uBAAG,kEASkE,GARjF,iFADiF,GAEjF,iFADiF,GAEjF,iFADiF,GAEjF,iFADiF,GAEjF,iFADiF,GAEjF,iFADiF,GAEjF,iFADiF,GAEjF,iFADiF,GAEjF,iFADiF,GAEjF,qDADiF;AAGjE,2BAAG;AACJ,0BAAG;AACF,2BAAG;AAEH,2BAChB,iBA0Da,GA1DK,EAAD,GACjB,kBADoB,GACD,EAAD,GAClB,QADqB,GACZ,EAAD,GACR,wCADW,GAC8B,EAAD,GACxC,wEAD2C,GAC8B,EAAD,GACxE,SAD2E,GACjE,EAAD,GACT,QADY,GACH,EAAD,GACR,SADW,GACD,EAAD,GACT,MADY,GACL,EAAD,GACN,KADS,GACH,EAAD,GACL,mBADQ,GACY,EAAD,GACnB,kBADsB,GACH,EAAD,GAClB,2CADqB,GACuB,EAAD,GAC3C,KAD8C,GACxC,EAAD,GACL,iBADQ,GACU,EAAD,GACjB,KADoB,GACd,EAAD,GACL,sBADQ,GACe,EAAD,GACtB,yBADyB,GACC,EAAD,GACzB,sBAD4B,GACL,EAAD,GACtB,sBADyB,GACF,EAAD,GACtB,uBADyB,GACD,EAAD,GACvB,eAD0B,GACV,EAAD,GACf,gBADkB,GACD,EAAD,GAChB,uCADmB,GACqB,EAAD,GACvC,KAD0C,GACpC,EAAD,GACL,eADQ,GACQ,EAAD,GACf,KADkB,GACZ,EAAD,GACL,4BADQ,GACqB,EAAD,GAC5B,mBAD+B,GACX,EAAD,GACnB,mBADsB,GACF,EAAD,GACnB,kBADsB,GACH,EAAD,GAClB,KADqB,GACf,EAAD,GACL,iBADQ,GACU,EAAD,GACjB,KADoB,GACd,EAAD,GACL,mBADQ,GACY,EAAD,GACnB,KADsB,GAChB,EAAD,GACL,YADQ,GACK,EAAD,GACZ,KADe,GACT,EAAD,GACL,wBADQ,GACiB,EAAD,GACxB,KAD2B,GACrB,EAAD,GACL,aADQ,GACM,EAAD,GACb,KADgB,GACV,EAAD,GACL,sBADQ,GACe,EAAD,GACtB,gCADyB,GACQ,EAAD,GAChC,KADmC,GAC7B,EAAD,GACL,cADQ,GACO,EAAD,GACd,KADiB,GACX,EAAD,GACL,sBADQ,GACe,EAAD,GACtB,KADyB,GACnB,EAAD,GACL,UADQ,GACG,EAAD,GACV,2BADa,GACe,EAAD,GAC3B,+BAD8B,GACE,EAAD,GAC/B,oCADkC,GACG,EAAD,GACpC,UADuC,GAC5B,EAAD,GACV,8BADa,GACkB,EAAD,GAC9B,qBADiC,GACX,EAAD,GACrB,UADwB,GACb,EAAD,GACV,UADa,GACF,EAAD,GACV,UADa,GACF,EAAD,GACV,SADa;AA3F+B;;AAAxB;AA8FQ;AAAnB;AAEP;AACA;AAEA,YAAK;AACL,iBAAS,QAA2B,OAAhB,WAAC,aAAD,CAAgB,GAAE,CAAF,kBAApC;AAAI;AACF,cAAK,0BAAa,CAAC,EAAG,aAAa,CAAC,CAAD,EAAK,kBAAkB,CAAC,CAAD,EAAK,cAAC,4CAAD,CAA7C;;AAEpB,iBAAU;AATH;AAAmB;AAa5B,UAAG,qBAAH;AACE,iBAAU,mBAAmB,CAAC,CAAC,iBAAkB,gBAAiB,gBAApC,EAAuD,CAAC,aAAc,gCAAiC,oBAAhD,CAAxD;AAE7B,qBAAU,mBAAmB,CAAC,CAAC,iBAAkB,gBAAiB,gBAApC,EAAuD,CAAC,UAAW,oCAAqC,kBAAjD,CAAxD;AA9GX;AAAwB;AA9HV;AAAd;AAEpB,eAAU;AAEV,UAAI,MAAM,WAAW,CAAC,wBAAD,CAA0B,MAAO,KAAG,SAAzD;AAGE,YAAI,MAAM,WAAW,CAAC,8BAAD,CAAgC,QAArD;AACE,mBAAU;AAEV,uBAAU;OANd;AAJoB;AAAc;AALL;AAAT;AAEpB,eAAU,CAAI,QAAQ;AAFF;AAAS;AA/HU;AAAnB;AAEpB;AAEA,WAAM;AAGR;AACA;AACA;AAGE,eAAU;AACV,UAAG,cAAG,CAAC,KAAK,EAAN,CAAU,KAAE,CAAlB;AACE,iBAAU;AAEZ,gBAAG,cAAG,CAAC,KAAK,EAAN,CAAU,KAAE,CAAlB,EACE,SAAU,0BADZ;AAhBoB;AAAmB;AAnkBR;;AAE/B;AAEuB;AAAd;AAEP;AACA;AACA;AACA;AACA;AAIJ;AAGI,aAAM,uBAAW,QAAC;AAGlB,iBAAkC,KAAzB,iBAAW,iBAAC,EAAa,GAAE,CAAF,EAAW,aAA7C;AAAI;AAEF,gBAAO,iBAAW,YAAS,CAAC,CAAD;AAC3B,cAAK,GAAG;AACR,aAAG,iBAAC,EAAa,GAAjB,GAAwB,GAAG;AAE3B,cAAK,GAAG,MAAU,GAAH,GAAD,GAAM,CAAF;AAClB,YAAE,IAAI,CAAC,CAAD;;AAGR,iBAAkC,MAAzB,iBAAW,iBAAC,EAAa,GAAE,CAAF,EAAW,eAA7C;AAAI;AAEF,gBAAO,iBAAW,YAAS,CAAC,CAAD;AAC3B,2BAAW,gBAAgB,CAAC,GAAD;AAC3B,aAAI,eAAJ,GAAI;;AAGN,yBAAW;AACX,yBAAW;AAGX,gBAAQ,KAAK,UAAb,GAA2B;AAE3B,yBAAW;AACX,yBAAW;AACX,yBAAW;AAGX,iBAAkC,MAAzB,iBAAW,iBAAC,EAAa,GAAE,CAAF,EAAW,eAA7C;AAAI;AAEF,gBAAO,iBAAW,YAAS,CAAC,CAAD;AAE3B,cAAK,EAAE,SAAO,CAAC,GAAG,MAAJ;AAEd,cAAG,CAAE,KAAG,EAAR,EACE,GAAG,UAAU,CAAC,CAAD,CADf;;AAQF,UAAG,eAAH,EAAG;AAEH,yBAAW;AAEX,iBAAU;AA9DH;AAAc;AAkEvB,kBAAa,gBAAW,OAAC;AAEzB,sBAA8B,IAAlB,cAAkB;AAC9B,mBAAQ,iBAAiB,CAAC,OAAQ,2CAAT;AACzB,mBAAQ,KAAK,CAAC,MAAO,SAAR;AAEb,mBAAQ,iBAAiB,CAAC,gBAAiB,UAAlB;AAEzB,mBAAQ;AA9EuB;AAlCU;AAI3C;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA9B2C;AAs3CL;AAEpC,wBAAc,eAAW,GAAE,KAAF;AAFW;AA7PI;;AAz9BL;AAEnC,UAAY,sBAAD,QAAX;AACE,8BAAgB,CAAC,KAAM,eAAgB,UAAvB;AAEhB,YAAA,eAAU,CAAC,eAAgB,UAAjB;AALuB;AA4xCP;AAE5B,YAAM,SAAS,KAAf,GAAwB;AAFI;AAZD;AAAP;AAEpB;AAEA,UAAK,MAAM,SAAS;AACpB,UAAc,CAAH,CAAD,OAAI,GAAE,CAAF,CAAK,IAAU,CAAL,CAAC,QAAC,CAAD,CAAI,KAAE,GAAF,CAA7B,EACE,iBAAM,CAAC;;;;WAAE,EAAE,CAAL,CADR;AAIA,eAAU;AATU;AAAO;AAmDE;AAE7B;AAGA,eAAS,QAAwB,OAAnB,KAAK,iBAAC,EAAa,GAAE,CAAF,kBAAjC;AAAI;AAEF,aAAK,YAAS,CAAC,CAAD,CAAG;;AAInB,WAAK,aAAL,GAAqB,QAAQ,KAAK;AAElC,eAAS,SAAwB,QAAnB,KAAK,iBAAC,EAAa,GAAE,CAAF,qBAAjC;AAAI;AAEF,aAAK,YAAS,CAAC,CAAD,CAAG;;AAGnB,qBAAU,IAAI,CAAC,KAAD;AAlBe;AAqBF;AAAP;AAEpB;AACA;AAEA,UAAI,eAAU,SAAC,EAAM,GAAE,CAAvB;AAEE,iBAAqB,cAAC,eAAU,IAAM,CAAC,eAAU,SAAC,EAAM,GAAE,CAApB,CAAjB;AACrB,cAAO,MAAM;AACb,uBAAU,OAAO,CAAC,eAAU,SAAC,EAAM,GAAE,CAApB;AAGjB,gBAAQ,KAAK,UAAb,GAA2B;AAE3B,cAAM;AAGN,cAAM;AAGN,iBAAS,QAAyB,OAApB,MAAM,iBAAC,EAAa,GAAE,CAAF,kBAAlC;AAAI;AACF,gBAAM,YAAS,CAAC,CAAD,CAAG;;AAEpB,iBAAS,SAAyB,QAApB,MAAM,iBAAC,EAAa,GAAE,CAAF,qBAAlC;AAAI;AAEF,gBAAM,YAAS,CAAC,CAAD,CAAG;AAClB,gBAAM,YAAS,CAAC,CAAD,CAAG;;AAGpB,wBAAW,YAAX,GAA2B;OAxB7B;AALoB;AAAO;AAzCE;AAE7B;AAEA,eAAS,QAAwB,OAAnB,KAAK,iBAAC,EAAa,GAAE,CAAF,kBAAjC;AAAI;AAEF,aAAK,YAAS,CAAC,CAAD,CAAG;;AANU;AAUE;AAE/B;AAEA,eAAS,QAAwB,OAAnB,KAAK,iBAAC,EAAa,GAAE,CAAF,kBAAjC;AAAI;AAEF,aAAK,YAAS,CAAC,CAAD,CAAG;;AANY;AA9FF;AAO7B,wBAAc,iBAAK,QAAC;AACpB,yBAAe,uBAAW,QAAC;AAC3B,2BAAiB;AACjB,uBAAa;AACb,yBAAe;AACf,gCAAsB;AACtB,yBAAe;AACf,4BAAkB;AAClB,qBAAW;AACX,yBAAe;AACf,6BAAmB;AACnB,gCAAsB;AACtB,wBAAc;AACd,0BAAgB;AAChB,wBAAc;AACd,4BAAkB;AAClB,2BAAiB;AACjB,4BAAkB;AAClB,kBAAQ,CAAC;AAiBT,YAAM,iBAAiB,CAAC,QAAU,wCAAX;AACvB,YAAM,iBAAiB,CAAC,qBAAuB,wCAAxB;AACvB,YAAM,iBAAiB,CAAC,eAAiB,2CAAlB;AAEvB,wBAAc;AAEd,wBAAc;AAhDoC;AAArB;AAuEA;AAQlB,eAAX,KAAW;AACC,eAAZ,KAAY;AACF;AAVmB;AAjFG;AAAZ;AAEpB,eAAU,qBAAQ,CAAC,eAAD;AAFE;AAAY;AAxVE;;AAAd;AAEpB;AACA;AAEA,UAAK;AACL,UAAK,MAAM,SAAS;AAEpB,eAAqB,IAAX,OAAW,CACnB;AAGJ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEM,gBAAQ,CAAC,CAAD;AAbV,OADmB;AARD;AAAc;AAxCI;AAAlB;AAEpB;AAEA,UAAG,SAAK,KAAG,CAAC,CAAZ;AAEE,iBAAU;AACV;OAHF;AAOF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,kBAAQ;AACR,eAAU;AArCU;AAAkB;AAt1BX;AAE3B,YAAM,QAAQ,KAAK;AAFQ;AAhXM;AAAb;AAEpB,UAAG,CAAY,CAAC,UAAD,SAAf;AACE,iBAAU,cAAc,QAAC,YAAM,CAAC,+BAAD,CAAN;AAEzB,qBAAU,cAAc,QAAC,YAAM,CAAC,EAAD,CAAN;AALP;AAAa;AAQA;AAAb;AAEpB;AACA;AAEA,WAAqB,QAAQ,eAAe,CAAC,UAAD;AAE5C,cAAS,cAAc,QAAC,YAAM,CAAC,UAAD,CAAN;AACxB,WAAK,iBAAL,GAA0B;AAC1B,WAAK,iBAAC,CAAiB,UAAjB;AACN,WAAK,aAAL,GAAsB;AACtB,WAAK;AACL,WAAK,WAAL,GAAmB;AACnB,WAAK;AAEL,eAAU;AAfU;AAAa;AAqXF;AAE/B,uBAAU,CAAC,eAAgB,mBAAe,WAAY,IAA5C;AAFqB;AA7RA;AAE/B,uBAAU,CAAC,eAAgB,WAAY,WAAY,IAAzC;AAFqB;AAUA;AAE/B,uBAAU,CAAC,eAAgB,WAAY,WAAY,MAAO,IAAhD;AAFqB;AAKA;;AAE/B;AAEuB;AAAd;AAEP;AACA;AACA;AACA;AACA;AAEA,oBAAsB,KAAD;AAErB,YAAG,SAAH;AAGJ;AAGM,oBAAW,sBAAS,CAAC,UAAD,CAAa,KAAE,+BAAF;AAEjC,cAAG,OAAH;AACE,oBAAwB,QAAQ;AAEhC,wBAAwB,QAAQ,eAAe,CAAC,UAAD;AAEjD,eAAK,UAAL,GAAmB;;AAInB,kBAAwB,QAAQ;;AAGlC,gBAAS,cAAc,QAAC,YAAM,CAAC,WAAY,UAAb,CAAN;AACxB,aAAK,cAAL,GAAsB;AAEtB,YAAG,KAAK,eAAe,KAAE,EAAzB,EACE,KAAK,iBAAC,CAAiB,UAAjB,CADR;AAGA,YAAG,CAAI,OAAP;AAEE,eAAK,aAAL,GAAsB;AACtB,eAAK,WAAL,GAAmB;SAHrB;AAMA,aAAK;AACL,aAAK;AAEL,aAAK,eAAe,CAAC,gBAAW,eAAC,EAAb;AAGpB,aAAK,gBAAL,GAAyB;AAEzB,4BAAe;AAEf,YAAG,eAAU,KAAE,IAAf,EACE,kBAAa,KADf;AAGA,YAAY,KAAD,QAAX,EACE,KAAK,CAAC,KAAD,CADP;AAGA,iBAAU;AAEV,YAAG,SAAH,EACE,0BAAoB,CAAC,KAAD,CADtB;AAGA,yBAAW;AAGX,yBAAW;AAlEJ;AAAc;AAsEvB,UAAG,gBAAH,EACE,MADF;AAGA,UAAG,qBAAH;AAEE,YAAG,mBAAH;AACE,gCAAkB;AAElB;OALJ;AAQA,kBAAa,cAAc;AAC3B,UAAc,CAAV,SAAU,KAAG,EAAH,CAAO,IAAI,QAAzB;AAEE,wBAA8B,IAAlB,cAAkB;AAC9B,qBAAQ,iBAAiB,CAAC,OAAQ,2CAAT;AACzB,qBAAQ,KAAK,CAAC,MAAO,SAAR;AAEb,qBAAQ,iBAAiB,CAAC,gBAAiB,UAAlB;AAEzB,qBAAQ;;AAIR,sBAAc,CAAC,IAAD;;AAlGe;AAmRA;AAE/B;AAEA,gBAAW,cAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1B,qBAAc,OAAd;AAL+B;AAUtB,oBAAG,kEAC8D,GAAxE,uEAD6E,GAE7E,sBADwE;AAH3C;AAM/B;AACA;AAEA,cAAS,uBAAiB,QAAC,YAAM,CAAC,gBAAD,CAAN;AAC3B,eAAU,cAAc,QAAC,YAAM,CAAC,KAAD,CAAN;AACzB,WAAK,OAAL,GAAgB;AAChB,WAAK,OAAL,GAAe;AACf,qBAAc,MAAd;AAEA,sBAAW,YAAX,GAA2B;AAC3B,sBAAW,cAAc,CAAC,MAAO,SAAR;AAhBM;AArSA;AAE/B,uBAAU,CAAC,eAAgB,QAAQ,IAAK,WAAY,IAA1C;AAFqB;AAzBM;AAErC,uBAAU,CAAC,eAAgB,mBAAe,WAAY,KAAK,KAAjD;AAF2B;AAKA;AAErC,uBAAU,CAAC,eAAgB,WAAY,WAAY,KAAK,KAA9C;AAF2B;AAKA;AAErC,uBAAU,CAAC,eAAgB,UAAjB;AAF2B;AAKA;AAErC,uBAAU,CAAC,eAAgB,UAAjB;AAF2B;AA3DR;AAE7B,WAAK,gBAAL,GAAyB;AAEzB,yBAAe;AACf,uBAAa;AAEb,UAAG,cAAU,KAAE,IAAf,EACE,iBAAa,KADf;AAGA,sBAA8B,IAAlB,cAAkB;AAC9B,mBAAQ,iBAAiB,CAAC,OAAS,yCAAV;AACzB,mBAAQ,iBAAiB,CAAC,QAAU,0CAAX;AACzB,mBAAQ,KAAK,CAAC,MAAO,SAAR;AACb,mBAAQ;AAdqB;AANA;AAE7B,0BAAgB;AAChB,mBAAQ,CAAC,MAAO,SAAR;AAHqB;AAiiDC;AAGhC;AACA;AACA;AACA;AACA;AAPgC;AA/DA;AAE9B;AAGA,qBAAgB,QAAQ,eAAe,CAAC,EAAD;AACvC,UAAY,YAAD,QAAX;AAGF;AAEI;OALF;AAQA,qBAAgB,QAAQ,cAAc,CAAC,MAAD;AACtC,kBAAY,GAAZ,GAAmB;AAGrB;AACA;AAGE,cAAQ,qBAAqB,CAAC,MAAD,CAAQ,MAAC,CAAD,CAAG,YAAY,CAAC,YAAD;AAtBtB;AAhqCA;AAE9B;AAEA,qBAAgB,QAAQ,eAAe,CAAC,EAAD;AACvC,UAAY,YAAD,QAAX;AAEE,oBAAY,WAAW,YAAY,CAAC,YAAD;OAFrC;AAL8B;AApBJ;AAAN;AAEpB;AACA;AACA;AAEA,eAAU;AACV,YAAO,QAAQ,iBAAiB,CAAC,aAAD;AAChC,eAAS,QAAgB,OAAX,GAAG,OAAQ,GAAE,CAAF,kBAAzB;AAAI;AAEF,YAAwB,GAAG,MAAC,CAAD,CAAI;AAE/B,YAAG,wBAAW,CAAC,EAAG,IAAJ,CAAU,KAAE,CAA1B;AAEE,mBAAU;AACV;SAHF;;AAZkB;AAAM;AAuuCS;AAEnC,uBAAa;AACb,UAAY,cAAD,QAAX,EACE,iBADF;AAHmC;AA5HJ;AAE/B;AAAO;AACP;AACA;AAGA,4BAAkB;AAClB,8BAAoB;AACpB,sBAAW;AACX,cAAS,MAAM,SAAS;AAExB,6BAAkB,CAAC,yCAAD;AAElB,sBAAW,aAAC,CAAa,GAAb;AACZ,sBAAW,iBAAX,GAA+B;AAC/B,UAAK,cAAG,CAAC,IAAK,KAAN;AACR,UAAG,CAAE,GAAE,CAAP,EACE,QAAS,eAAI,CAAC,MAAO,CAAE,GAAE,CAAF,CAAY,KAAD,OAArB,CADf;AAEA,sBAAW,iBAAC,CAAiB,KAAjB;AAGd;AAGE,UAAY,qBAAD,QAAX;AAEE,YAA6C,CAAzC,gBAAW,YAAY,CAAC,eAAD,CAAkB,KAAG,CAAC,CAAJ,CAAO,IAAG,CAAvD;AAEE,+BAAe,CAAC,KAAM,KAAP;AAEf,6BAAe;AACf,kBAAQ,KAAK,UAAb,GAA2B,6BAAwB,CAAC,IAAD;AACnD;SANF;OAFF;AAaA,UAAoC,CAAhC,gBAAW,YAAY,CAAC,MAAD,CAAS,KAAG,CAAC,CAAJ,CAAO,IAAI,iBAA/C;AAEE,YAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAM,KAAP,CADd;AAGA,2BAAe;AACf,gBAAS,gBAAW,SAAO,CAAC,MAAD;AAE/B;AACA;AACA;AACA;OAXE;AAeA,YAAM,iBAAiB,CAAC,aAAc,2CAAf;AACvB,YAAM,iBAAiB,CAAC,SAAY,mDAAb;AACvB,YAAM,iBAAiB,CAAC,UAAY,mDAAb;AACvB,YAAM,iBAAiB,CAAC,WAAa,qCAAd;AACvB,cAAQ,iBAAiB,CAAC,mBAAqB,iDAAtB;AAEzB,UAAI,MAAM,OAAQ,KAAG,IAArB,EACE,IAAI,gBAAW,YAAY,CAAC,cAAD,CAAiB,KAAG,CAAC,CAAhD;AAEE,2BAAe;AACf,gBAAS,gBAAW,SAAO,CAAC,cAAD;AAEjC;AACA;AACA;AACA;OATE;AA3D+B;AAvBN;AAAL;AAEpB;AACA;AACA;AAEA,eAAU;AACV,sBAAY;AACZ,aAAQ,MAAM,SAAS;AAEvB,UAAI,IAAK,KAAG,EAAZ;AAEE,yBAAM,CAAC;;;;aAAK,EAAE,CAAR;AACN,eAAQ,GAAI,GAAE,IAAF;AACZ,aAAM,oBAAQ,CAAC,IAAD;AACd,YAAY,EAAD,QAAX;AAEE,mBAAU;AACV,0BAAW,eAAe,CAAY,GAAK;;;;cAAjB;SAH5B;OALF;AAVoB;AAAK;AA1Dc;AAEvC;AACA;AACA;AAEA,eAAU;AAEV,iCAAc,gBAAd,GAAkC,+CAAwB,CAAC,MAAD;AAE1D,UAAI,cAAG,CAAC,IAAI,2BAAc,gBAAnB,CAAqC,GAAE,CAA9C,EACE,2BAAc,cAAd,GAAgC,GADlC;AAGA,UAAI,cAAG,CAAC,IAAI,2BAAc,gBAAnB,CAAqC,GAAE,CAA9C,EACE,2BAAc,cAAd,GAAgC,GADlC;AAGA,UAAI,cAAG,CAAC,IAAI,2BAAc,gBAAnB,CAAqC,GAAE,CAA9C,EACE,2BAAc,cAAd,GAAgC,GADlC;AAIF;AACA;AACA;AACA;AACA;AAGE,UAAG,cAAG,CAAC,IAAI,OAAL,CAAc,GAAE,CAAtB,EACE,2BAAc,cAAd,GAAgC,GADlC;AAGA,UAAG,cAAG,CAAC,IAAI,OAAL,CAAc,GAAE,CAAtB,EACE,2BAAc,cAAd,GAAgC,GADlC;AAGA,UAAG,cAAG,CAAC,IAAI,OAAL,CAAc,GAAE,CAAtB,EACE,2BAAc,cAAd,GAAgC,GADlC;AAGA,WAAI,IAAK,GAAL,CAAU,OAAV,CAAU,EAAd;AAEE,mCAAc,cAAc,CAAC,KAAD,CAA5B,GAAmC,4CAAqB,CAAC,EAAE,MAAH;AACxD,mCAAc,aAAa,CAAC,KAAD,CAA3B,GAAkC,2CAAoB,CAAC,EAAE,MAAH;;AAGxD,WAAI,IAAK,GAAL,CAAU,QAAV,CAAU,EAAd;AAEE,mCAAc,gBAAgB,CAAC,KAAD,CAA9B,GAAqC,8CAAuB,CAAC,EAAE,MAAH;AAC5D,mCAAc,eAAe,CAAC,KAAD,CAA7B,GAAoC,6CAAsB,CAAC,EAAE,MAAH;;AAG5D,iCAAc,iBAAd,GAAmC,iDPp1IgB;AOs1InD,UAAG,2BAAc,iBAAkB,KAAE,GAArC;AACE,mCAAc,kBAAd,GAAoC;AAEpC,YAAA,2BAAc,kBAAd,GAAoC;AArDC;AAuMM;AAE7C,UAAY,qBAAD,QAAX,EACE,qBAAgB,QAAQ,CAAC,QAAD,CAD1B;AAF6C;AAlsCf;AAE9B;AACA;AAEA,WAAiB,oBAAQ,CAAC,UAAD;AACzB,sBAAW,WAAW,CAAC,GAAI;;;;UAAL;AANQ;AAgrCN;AAExB,4BAAkB;AAClB,8BAAoB;AAHI;AAMM;AAGhC;AAHgC;AAOA;AAE9B,YAAM,SAAS,KAAf,GAAwB;AAFM;AAn/CD;AAE7B,UAAG,OAAQ,KAAE,8BAAb;AACE,cAAM,KAAK,CAAC,KAAM,QAAP;AAEX,YAAA,MAAM,SAAS,KAAf,GAAwB;AALG;AA62BA;AAG/B;AAH+B;AAOQ;AAGvC;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAXuC;AA8GE;AAGzC;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAjByC;AAqBA;AAEvC,+BAAkB,CAAC,UAAa,KAAK,CAAC,KAAD,EAAS,UAAW,OAAvC;AAFqB;AAKA;AAEvC,+BAAoB,CAAC,MAAO,UAAW,eAAgB,OAAnC;AAFmB;AAKH;AAEpC,4BAAe,CAAC,UAAa,KAAK,CAAC,KAAD,EAAS,UAAW,OAAvC;AAFqB;AAKA;AAEpC,+BAAoB,CAAC,MAAO,UAAW,kBAAmB,OAAtC;AAFgB;AAnIT;AAAP;AAEpB,eAAU,MAAM,SAAS,SAAS;AAFd;AAAO;AAwBC;AAAR;AAEpB;AAEA,eAAU;AAEV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAIF;AAGE,eAAU;AAbU;AAAQ;AA8BF;AAAN;AAEpB,eAAU;AACV,UAAG,eAAS,KAAE,cAAd;AAEE,iBAAU,sHAG+D,GAHwD,MAAD,GACtH,gHAD6H,GACZ,MAAD,GAChH,qIADuH,GACe,MAAD,GACrI,wDAD4I,GACnF,MAAD,GACxD,sCAD+D;OAL3E;AASA,UAAG,eAAS,KAAE,QAAd;AAEE,iBAAU,iIAE+D,GAFmE,MAAD,GACjI,kHADwI,GACrB,MAAD,GAClH,wDADyH,GAChE,MAAD,GACxD,sCAD+D;OAJ3E;AAZoB;AAAM;AAowBC;AAAP;AAEpB,eAAU;AAFU;AAAO;AA3wBI;AAGjC;AAHiC;AAPA;AAGjC;AAHiC;AAn6BK;AAAhB;AAEpB;AAEA,eAAU,oCAAa,CAAC,OAAQ;;;;WPvgGiD,IOugG1D;AACvB,UAAG,MAAH,EACE,cAAS,CAAC,CAAD,CADX;AALoB;AAAgB;AASP;AAAT;AAEpB;AAGF;AAEE,eAAU;AAPU;AAAS;AA55EjB;;;AAsGQ,+BAAO,UnB7LjB,+BmB6LiB,CAAP;AAtGR;AA2SQ;AAAb;AAEP;AAEA,aAAU;AAEV,aAAU;AAEV,WAAc,CAAC,MAAD,SAAS,IAAI,CAAe,gBAAH,eAAP,MAAO,CAAvC;AAGE,UAAW,CAAP,MAAO,KAAE,QAAF,CAAY,IAAkB,CAAb,MAAM,OAAO,KAAE,IAAF,CAAzC;AACE,iBAAU,QAAQ;AAElB,qBAAU,MAAM;;AAGpB,QAAW,CAAC,MAAD,SAAS,IAAe,gBAAH,eAAP,MAAO,CAAhC,EACE,SAAkB,OAAP,OAAU,gBAAH,CADpB;AAjBO;AAAa;AA1ET;AAGb;AAHa;AAyCA;AAEX;AACA;AAAE;AAEF,QAAK;AACL,aAAS,QAAiB,OAAN,WAAC,GAAD,CAAM,GAAE,CAAF,kBAA1B;AAAI;AAGN;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;;AAIE,QAAK,CAAE,GAAE,GAAF;AAEP,YAAG,CAAC,CAAD;AA7BQ;AAlBI;AAAR;AAEP;AAEA,QAAY,UAAD,QAAX;AAGF;KAII,UAAK,MAAM;AAEb,aAAU;AAbH;AAAQ;AAhBC;AAAT;AAEP;AAEA,QAAY,UAAD,QAAX;AAGF;KAII,UAAK,MAAM;AAEb,aAAU;AAbH;AAAS;AA2qIJ;AAAL;AAEP,aAAqB,IAAX,OAAW,CACrB;AAEE,YAAM,WAAW,CACjB;AAEE,eAAO,CAAC,YAAD;AAFT,QAIA,YALiB;AAFnB,KADqB;AAFd;AAAK;AArsIZ;AACA;AACA;AACA;AAx1BF,mBA01Bc;AAOK;;;AAEf;AAFe;;;;;AAiqIsB;AAE7B;AAEV,mBAAM,mBAAmB,CAAC,IAAD;AACzB,mBAAM;AACN,mBAAM;AACN;AACE,qBAAM,QAAC,CAAQ,QAAR;AACP,qBAAM,QAAC,CAAQ,CAAR;AACP,qBAAM,OAAC,CAAO,CAAP;AACP,qBAAM,SAAC,CAAS,GAAT;AACP,qBAAM,UAAC,CAAU,GAAV;AALT;AAOE,qBAAM;AAPR;AAUA,qBAAQ,OAAR;AACA,qBAAQ,CAAR;AACA,oBAAO,CAAP;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AArBuC;AAjqItB;;;AA2PE;AAEnB,WAAM,eAAN,KAAM;AACN,cAAS;AAHU;AAlQP;AA+sId;AAEE,2BAAwC,QAAQ,cAAc,CAAC,QAAD;AAC9D,wBAAe,GAAf,GAAsB;AACtB,wBAAe,KAAf,GAAyB;AACzB,wBAAe,UAAf,GACA,iBAI4C,GAJ1B,MAAD,GACjB,6CADwB,GACsB,MAAD,GAC7C,0CADoD,GACT,MAAD,GAC1C,0BADiD,GACtB,MAAD,GAC1B,qCADiC,GACK,MAAD,GACrC,GAD4C;AAE5C,YAAQ,KAAK,YAAY,CAAC,oBAAD;AACzB,uBAAe,iBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAb9B;AAziKA,GA01Bc,uEA11Bd;ACAA,8BAIS,iIAJT;;;AAYe;;AACC;;AACD;;AACI;;AACN;;AACC;;AAIG;;AASN;;AAEA;;AAEM,sEAAmB,U7B6E3B,2B6B7E2B,EAAe,oBAAkB,YAjBvD,0BAiBuD,CAApD;AAEH;;;AAEV;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAAW;AACX;AAlBU;;;;;;AA83DkB;AAE9B,UAAG,YAAQ,KAAG,KAAd;AAEE,uBAAW;AACX;OAHF;AAF8B;AAoCG;AAEjC,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd;OAHF;AAFiC;AAhMG;AAAhB;AAEpB,eAAyB;AAFL;AAAgB;AA+KD;AAEnC,UAAI,iBAAa,KAAG,KAApB;AAEE,4BAAgB;AAChB;OAHF;AAFmC;AA7CH;AAEhC;AAEA,UAAI,cAAU,KAAG,KAAjB;AAEE,yBAAa;AAEb,YAAG,cAAU,IAAG,cAAI,KAAH,mBAAK,kBAAN,CAAhB,EACE,oBAAe,yCAAf,CADF;AAGA,YAAW,CAAC,uBAAD,SAAgB,IAAY,CAAC,aAAD,SAAvC;AAEE,eAAiB,uBAAa;AAE9B,cAAW,CAAC,EAAD,SAAK,IAAiC,CAA5B,EAAE,aAAa,CAAC,UAAD,CAAa,KAAE,KAAF,CAAjD;AAEE,mCAAa,YAAY,CAAC,aAAD;AACzB,4BAAY;AACZ,mCAAa,YAAY,CAAC,aAAD;AACzB;WALF;SAJF;OAPF;AAJgC;AA9CD;AAE/B,sBAAU;AAEV,UAAgB,CAAZ,2CAAY,IAAG,oBAAH,CAAmB,IAAW,CAAN,aAAM,KAAG,QAAH,CAA9C,EACE,oBAAe,KAAf,CADF;AAGA;AAP+B;AAiBc;AAE7C,UAAI,2BAAuB,KAAG,KAA9B;AAEE,sCAA0B;AAC1B;OAHF;AAF6C;AAoBjB;AAE5B,UAAI,UAAM,KAAG,KAAb;AAEE,qBAAS;AACT;OAHF;AAF4B;AA+DC;AAE7B,UAAW,CAAP,MAAO,KAAG,CAAC,CAAJ,CAAO,IAAe,CAAV,yCAAU,IAAG,oBAAH,CAAjC,EACE,kBAAc,MADhB;AAGA;AAL6B;AAzNI;AAAb;AAEpB,eAAU,QAAQ,cAAc,CAAC,KAAD;AAEhC,sBAAY;AACZ,YAAM,YAAY,CAAC,aAAD;AALE;AAAa;AAQK;AAAlB;AAEpB,eAAU;AAEL;AACL,UADK,IACL;AAAO,iBAAU,QAAQ,cAAc,CAAC,MAAD;AACvC,gBAFK,IAEL;AAAM,iBAAU,QAAQ,cAAc,CAAC,KAAD;AACtC,gBAHK,IAGL;AAAK,iBAAU,QAAQ,cAAc,CAAC,IAAD;AACrC,gBAJK,IAIL;AAAK,iBAAU,QAAQ,cAAc,CAAC,IAAD;AACrC,gBALK,IAKL;AAAK,iBAAU,QAAQ,cAAc,CAAC,IAAD;AACrC,gBANK,IAML;AAAK,iBAAU,QAAQ,cAAc,CAAC,IAAD;AACrC,gBAPK,IAOL;AAAK,iBAAU,QAAQ,cAAc,CAAC,IAAD;AACrC,gBARK,IAQL;AAAK,iBAAU,QAAQ,cAAc,CAAC,IAAD;AACrC,gBATK,IASL;AAAW,iBAAU,QAAQ,cAAc,CAAC,OAAD;AAC3C,gBAVK,IAUL,wBAAI,SAAU,QAAQ,cAAc,CAAC,GAAD,CAApC;AAGA,YAAM,aAAa,CAAC,WAAW,KAAZ;AAjBC;AAAkB;AA8BJ;AAAd;AAEpB,eAAU;AAFU;AAAc;AA3CF;AAAZ;AAEpB,eAAU;AAFU;AAAY;AA2MF;AAE9B;AACA,UAAG,cAA0C,IAAlB,CAAV,eAAU,KAAG,oCAAH,CAAf,IAAiD,CAAX,eAAW,KAAG,CAAC,CAAJ,CAA7D;AAEE,qBAAa,CAAL,cAAK,GAAE,eAAF,CAAa,GAAE,eAA5B;AACA,0BAAc,CAAC;OAHjB;AAH8B;AA1KE;AAEhC,sBAAY,mBAAS;AAFW;AAuDL;AAE3B;AAEA,UAAG,mBAAc,IAAY,CAAC,kBAAD,SAA7B,EACE,wBADF;AAJ2B;AAuJQ;AAEnC,UAAG,cAAU,IAAW,CAAN,WAAM,KAAE,oCAAF,CAAxB;AAEE,YAAW,CAAC,uBAAD,SAAgB,IAAI,qCAAc,CAAC,uBAAD,CAA7C;AAEE,wBAAS,CAAC,CAAV;AACA,yBAAU,CAAC,CAAX;SAHF;AAKA,iCAAqB;OAPvB;AAFmC;AAaG;AAEtC;AACA;AACA;AACA;AAEA;AAEA,YAAO;AAEP,aAAQ;AAER,UAAG,mBAAc,IAAoB,CAAf,cAAG,CAAC,IAAK,IAAN,CAAY,GAAE,CAAF,CAArC;AACE,eAAQ,yCAAkB,CAAC,KAAK;;;;YAAN;;AAG1B,YAAG,UAAK,KAAE,EAAV;AACE,iBAAQ,mCAAY,CAAC,IAAD;AAEpB,qBAAQ;;AAGZ,WAAM;AAEN,UAAI,cAAG,CAAC,KAAK,IAAN,CAAY,GAAE,CAArB;AAEE,aAAM;AACN,YAAI,cAAG,CAAC,KAAK,IAAN,CAAY,GAAE,CAArB,EACE,OAAQ,0BAAa,CAAC,KAAK,KAAI,GAAG,cAAC,6CAAa,4CAAd,CAAb,CADvB;AAEA,eAAQ,0BAAa,CAAC,KAAK,KAAI,OAAO,cAAC,6CAAa,4CAAd,CAAjB;OAGrB,UAAI,cAAG,CAAC,KAAK,IAAN,CAAY,GAAE,CAArB;AAEE,aAAM;AACN,eAAQ,0BAAa,CAAC,KAAK,KAAI,OAAO,cAAC,6CAAa,4CAAd,CAAjB;OAHvB;AAMF,UAAG,kBAAyB,IAAN,CAAL,IAAK,KAAE,EAAF,CAAV,IAA+B,CAAV,yCAAU,IAAG,oBAAH,CAA3C,EACE,MADF;AAGA,UAAY,uBAAD,QAAX;AAEE,YAAG,kBAAH;AAEE,2BAAkB;AAElB,cAAI,YAAU,KAAG,EAAjB;AAEE,6BAAkB,QAAQ,eAAe,CAAC,YAAD;WAF3C;AAKA,cAAY,cAAD,QAAX;AAEE,gBAAG,mBAAQ,CAAC,uBAAa,UAAd,CAAX;AACE,4BAAc,UAAd,GAA4B;AAE5B,sBAAG,cAAc,kBAAmB,KAAE,CAAtC,EACE,cAAc,UAAd,GAA4B,IAD9B;WALJ;;AAYA,cAAoC,CAAhC,uBAAa,kBAAmB,GAAE,CAAF,CAA8E,IAArE,mBAAQ,CAAC,uBAAa,UAAd,CAAZ,IAA0C,CAAI,cAAR,IAAsB,CAAI,aAAR,IAAqB,CAAI,EAA1H;AAEE,mCAAa,UAAb,GAA2B;;AAI3B,mCAAa,UAAb,GAA2B;;;OAK/B,MAAA,uBAAa,UAAb,GAA2B;AAE7B,sBAAY,cAAG,CAAC,KAAM,IAAP,CAAa,GAAE,CAAF;AAC5B,uBAAa,GAAI,KAAG,EAAH;AAGjB,UAAQ,CAAJ,GAAI,KAAG,EAAH,CAAO,IAAY,CAAC,kBAAD,SAA3B;AAEE,+BAAa,cAAC,YAAgB,GAAjB;AACb,+BAAa,cAAC,MAAU,kBAAY,MAAC,EAAxB;OAHf;AAlFsC;AA4GE;AAExC;AAAG;AAEH;AAEA,UAAG,iBAAH,EACE,MADF;AAGA,UAAY,uBAAD,QAAX;AAEE,aAAM,UAAK,CAAgB,uBAAc,aAA9B;AACX,aAAM,UAAK,CAAgB,uBAAc,YAA9B;AAEX,YAAG,EAAG,GAAE,CAAR,EACE,kBAAc,EADhB;AAEA,YAAG,EAAG,GAAE,CAAR,EACE,iBAAa,EADf;AAGA,YAAG,aAAgD,IAAtB,CAAb,CAAI,cAAS,IAAU,CAAN,WAAM,KAAG,oCAAH,CAAV,CAAlB,IAA0E,CAAlB,CAAV,eAAU,KAAG,oCAAH,CAAkB,IAAW,CAAP,YAAO,KAAG,sBAAH,CAAX,CAArF,EACE,uBAAa,MAAM,YAAY,CAAC,UAAW,OAAZ,CADjC;AAGA,+BAAa,cAAC,SAAa,GAAd;AAEb,YAAG,cAA8B,IAAV,CAAN,WAAM,KAAE,oCAAF,CAAX,IAAyB,CAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAAtD;AACE,iCAAa,MAAM,YAAY,CAAC,WAAY,EAAb;AAE/B,cAAA,uBAAa,MAAM,YAAY,CAAC,WAAY,QAAb;OAlBnC;AAqBA,UAAY,uBAAD,QAAX;AAEO;AACH,YADG,IACH;AAAO,iCAAa,MAAM,YAAY,CAAC,iBAAkB,KAAnB;AACtC,kBAFG,IAEH;AAAU,iCAAa,MAAM,YAAY,CAAC,iBAAkB,QAAnB;AACzC,kBAHG,IAGH,gCAAU,uBAAa,MAAM,YAAY,CAAC,iBAAkB,QAAnB,CAAzC;AAGG;AACL,YADK,KACL;AAAe,iCAAa,MAAM,eAAe,CAAC,YAAD;AACjD,kBAFK,KAEL;AAAU,iCAAa,MAAM,YAAY,CAAC,aAAc,QAAf;AACzC,kBAHK,KAGL,4CAAgB,uBAAa,MAAM,YAAY,CAAC,aAAc,OAAf,CAA/C;AAGA,kDAAmB,CAAC,wBAAe,cAAO,iBAAgC,IAAV,CAAN,aAAM,KAAE,EAAF,CAAV,IAA8B,CAAN,aAAM,KAAE,QAAF,CAAjE;AACnB,kDAAmB,CAAC,wBAAe,cAAO,iBAAgC,IAAV,CAAN,aAAM,KAAE,EAAF,CAAV,IAA8B,CAAN,aAAM,KAAE,QAAF,CAAjE;AAEnB,+BAAa,MAAM,YAAY,CAAC,UAAW,YAAZ;AAE/B,YAAG,sBAAiB,KAAE,EAAtB;AAEE,cAAG,aAAuC,IAAd,CAAZ,iBAAY,KAAE,8CAAF,CAAjB,IAAmC,CAAI,kBAAlD;AACE,mCAAa,MAAM,YAAY,CAAC,QAAS,kCAAW,CAAC,UAAI,OAAL,CAArB;AAE/B,gBAAA,uBAAa,MAAM,eAAe,CAAC,OAAD;AAEpC,gCAAiB,CAAC,wBAAe,YAAhB;AACjB,mDAAkB,CAAC,wBAAe,WAAM,CAAgC,CAAd,CAAZ,iBAAY,KAAE,8CAAF,CAAc,IAAI,CAAI,kBAAR,CAAtD;;AAIlB,iCAAa,MAAM,eAAe,CAAC,OAAD;AAClC,mDAAkB,CAAC,wBAAe,WAAM,IAAtB;;AAGpB,YAAG,2BAAsB,KAAG,EAA5B;AACE,iCAAa,cAAC,QAAY,2BAAb;AAEb,cAAA,uBAAa,gBAAgB,CAAC,OAAD;AAE/B,YAAoB,CAAhB,qBAAgB,KAAE,kDAAF,CAAc,IAAe,CAAX,gBAAW,KAAE,4CAAF,CAAjD;AAEE,cAAG,sBAAkB,KAAE,6BAAvB;AACE,mCAAa,MAAM,YAAY,CAAC,gBAAiB,MAAlB;AAE/B,gBAAA,uBAAa,MAAM,YAAY,CAAC,gBAAiB,UAAlB;SAGjC,MAAA,uBAAa,MAAM,eAAe,CAAC,eAAD;AAEpC,YAAG,cAAH;AACE,iCAAa,MAAM,YAAY,CAAC,cAAe,QAAhB;AAE/B,cAAA,uBAAa,MAAM,YAAY,CAAC,cAAe,QAAhB;AAGjC,+BAAa,MAAM,YAAY,CAAC,cAAe,EAAhB;AAG/B,YAAG,YAAO,KAAE,CAAZ,EACE,uBAAa,MAAM,YAAY,CAAC,SAAU,EAAX,CADjC;AAGA,YAAG,cAA8B,IAAV,CAAN,WAAM,KAAE,oCAAF,CAAX,IAAyB,CAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAAtD;AAEE,iCAAa,MAAM,eAAe,CAAC,OAAD;AAClC,iCAAa,MAAM,eAAe,CAAC,QAAD;SAHpC;OA9DF;AA9BwC;AAnBF;AAEtC;AAEA,UAAG,cAA8B,IAAV,CAAN,WAAM,KAAE,oCAAF,CAAX,IAAiC,CAAC,uBAAD,SAA7C;AAEE,YAAG,CAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAApB;AAEE,iCAAa,MAAM,eAAe,CAAC,OAAD;AAClC,iCAAa,MAAM,eAAe,CAAC,QAAD;SAHpC;OAFF;AASA,UAAW,CAAC,uBAAD,SAA4E,IAAjD,CAAN,WAAM,IAAG,cAAC,qCAAQ,sCAAS,sCAAlB,CAAH,CAAX,IAA+C,CAAI,cAAR,IAA6B,CAAP,YAAO,IAAG,cAAC,0BAAU,yBAAX,CAAH,CAAnG;AAEE,+BAAa,MAAM,YAAY,CAAC,SAAgB,4CAAC,CAAP,qBAAO;;;;YAAD,CAAS,GAAC,IAA3B;OAFjC;AAbsC;AArPN;AAEhC,UAAI,cAAU,KAAG,MAAjB;AAEE,yBAAa;AACb;AACA;OAJF;AAFgC;AAUD;AAE/B;AAEA,UAAG,aAAQ,KAAG,MAAd;AAEE,aAAM;AACc,mEAAC,MAAD;AACpB;AACA;AACA,aAAM,EAAG,GAAE,eAAF;AACT,YAAG,cAAiF,IAAzD,CAAV,eAAU,KAAG,oCAAH,CAAf,IAAyC,CAAH,EAAG,KAAG,CAAH,CAAR,IAA2B,CAAR,0CAAQ,IAAG,aAAH,CAAb,IAA6B,CAAI,iBAA5F,EACE,aAAQ,cAAK,GAAE,EAAf,CADF;OAPF;AAJ+B;AA0BM;AAErC;AACA,UAAqB,CAAjB,sBAAiB,KAAE,EAAF,CAAM,IAAY,CAAC,uBAAD,SAAvC,EACE,sBAAiB,CAAC,wBAAe,YAAhB,CADnB;AAHqC;AAgBG;AAExC,UAAG,sBAAkB,KAAG,MAAxB;AAEE,iCAAqB;AACrB,YAAG,sBAAkB,KAAG,6BAAxB,EACE,iBAAa,KADf;AAEA;OALF;AAFwC;AArFZ;AAAR;AAEpB,UAAG,cAAqC,IAAhB,CAAC,uBAAD,SAAZ,IAAwC,CAAC,YAAD,SAApD;AAEE,iBAAU,UAAK,CAAgB,uBAAc,YAA9B;AAEf,YAAG,MAAO,KAAE,CAAZ,EACE,SAAoB,mDADtB;AAGA,YAAW,CAAP,MAAO,KAAE,CAAF,CAAyB,IAAP,CAAR,aAAQ,KAAG,EAAH,CAAb,IAAqC,CAAZ,2CAAY,IAAG,oBAAH,CAArD,EACE,SAAU,cADZ;OAIA,eAAoB;AAbF;AAAQ;AAfC;AAAT;AAEpB,UAAG,cAAqC,IAAhB,CAAC,uBAAD,SAAZ,IAAwC,CAAC,YAAD,SAApD;AAEE,iBAAU,UAAK,CAAgB,uBAAc,aAA9B;AACf,YAAG,MAAO,KAAE,CAAZ,EACG,SAAoB,oDADvB;AAGA,YAAW,CAAP,MAAO,KAAE,CAAF,CAAyB,IAAP,CAAR,aAAQ,KAAG,EAAH,CAAb,IAAqC,CAAZ,2CAAY,IAAG,oBAAH,CAArD,EACE,SAAU,eADZ;OAIA,eAAoB;AAZF;AAAS;AA+BM;AAEnC,UAAI,QAAS,KAAE,+CAAf;AAEE,4BAAe,yCAAf;AACA,4BAAe,wCAAf;OAHF;AAFmC;AA5FE;AAErC;AACA,uBAAa;AACb,qBAAW;AACX,+BAAqB;AACrB,sBAAU;AACV,0BAAgB;AAChB,wBAAc;AACd,sBAAW,KAAX;AACA,4BAAkB;AAVmB;AA/qDzB;;;AAgEN;;;;AAEU,6BhBiBV,uCgBjBU;AACI,iCpBjEV,gCoBiEU;AACO;AACT,+BhBsBV,yCgBtBU,yBhBqoBkD,uBAAC,0CAAQ,wCAAT,CgBroBlD;AACC;AACD;AACG;AACL,6Bf4QV,uCe5QU;AACG,gChBKV,0CgBLU;AACQ,wCAhGV,gCAgGU;AACT;AACS,wChBkBV,kDgBlBU;AACK,6ChBiBf,kDgBjBe;AACZ,iChBiBV,2CgBjBU;AACE,mChBiBV,6CgBjBU;AACI,uChBiBV,iDgBjBU;AACH,oChB2rBZ,4CgB3rBY;AACR,4BfmWV,sCenWU;AACE;AACO;AACF,mChBAZ,2CgBAY;AACP;AACA;AACI,gCA7FV,wBA6FU;AACF,8BA9GN,0BA8GM;AACF;AACG,+BhBgFV,yCgBhFU;AACG;AACD,iCJyFV,wCIzFU;AACI;AACL;AACK,qChBMV,+CgBNU;AACV;AACQ;AACJ;AACF;AACO;AACF,kChBjBX,2CgBiBW;AACF;AACD,+BhB+CN,6CgB/CM;AACG,kChB8CT,6CgB9CS;AACE,oChBqDZ,4CgBrDY;AACF,kChBoDV,4CgBpDU;AACC,mChBmDX,4CgBnDW;AACE,qChBkDb,4CgBlDa;AACH,kChBoDP,+CgBpDO;AACA,kChBoDP,+CgBpDO;AACC,mChBoDP,gDgBpDO;AACF,iChBoDP,8CgBpDO;AAlDd;AAqDG;;;;AAEG;AAijEsB;AAAd;AAEpB,eAAU;AAFU;AAAc;AALF;AAAZ;AAEnB,eAAU;AAFS;AAAY;AAzBC;AAAb;AAEpB,eAAU,QAAQ,cAAc,CAAC,OAAD;AAChC,YAAM,cAAC,OAAW,mBAAZ;AAHc;AAAa;AAMO;AAExC;AAEA,UAAW,CAAC,mBAAD,SAAY,IAAI,CAAI,kBAA/B;AAEsB,2BAAU,MAAM,YAAY,CAAC,kBAAmB,YAApB;AAC5B,2BAAU,MAAM,YAAY,CAAC,qBAAsB,YAAvB;AAC5B,2BAAU,MAAM,YAAY,CAAC,aAAc,YAAf;OAJlD;AAJwC;AA6BV;AAEV,6BAAc,MAAlC,GAA4C;AAFd;AAKD;AAAT;AAEpB,eAA8B,uBAAc;AAFxB;AAAS;AAtBQ;AAErC;AACA,wBAAa,IAAb;AACA,2BAAgB;AAJqB;AAriEzB;;;AAaD;;;AAET;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA5BS;;;;;;AAohFqB;AAEhC,wBAAc;AACd;AAHgC;AA4DI;AAEpC,UAAI,mBAAe,KAAG,KAAtB;AAEE,8BAAkB;AAClB;OAHF;AAFoC;AApCH;AAEjC,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf;OAHF;AAFiC;AASF;AAE/B,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAF+B;AAjTC;AAEhC,wBAAc;AACd;AAHgC;AAMD;AAE/B,uBAAa;AACb;AAH+B;AAeI;AAEnC,2BAAiB;AACjB;AAHmC;AAeL;AAE9B,sBAAY;AACZ;AAH8B;AAkPO;AAErC,UAAI,oBAAgB,KAAG,KAAvB;AAEE,+BAAmB;AACnB;OAHF;AAFqC;AASL;AAEhC,UAAI,eAAW,KAAG,KAAlB;AAEE,0BAAc;AACd;OAHF;AAFgC;AAvTD;AAE/B,UAAI,cAAU,KAAG,KAAjB;AAEE,yBAAa;AACb;OAHF;AAF+B;AAmDD;AAE9B,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAF8B;AAuWC;AAAZ;AAEnB,eAAU,CAAC;AACX,UAAY,4BAAD,QAAX,EACE,SAAU,4BAAkB,aAAc,GAAE,4BAAkB,eADhE;AAHmB;AAAY;AAOD;AAAX;AAEnB,eAAU,CAAC;AACX,UAAY,4BAAD,QAAX,EACE,SAAU,4BAAkB,eAD9B;AAHmB;AAAW;AAtEC;AAE/B,UAAI,cAAU,KAAG,KAAjB;AAEE,yBAAa;AACb;OAHF;AAF+B;AA6EF;AAAV;AAEnB,eAAU,eAAI,CAAC,eAAK,kBAAS,GAAE,CAAF,CAAK,mBAApB;AAFK;AAAU;AApYI;AAEjC,UAAI,gBAAY,KAAG,KAAnB;AAEE,2BAAe;AACf;OAHF;AAFiC;AAuVO;AAArB;AAEnB,eAA8B;AAFX;AAAqB;AA9aR;AAAb;AAEnB;AACA;AAEA,YAAO;AAET;AACA;AACA;AACA;AACA;AAGE,UAAG,GAAI,IAAqB,CAAhB,CAAI,aAAQ,CAAC,CAAD,CAAI,IAAG,CAAI,aAAQ,CAAC,CAAD,CAAf,CAA5B;AAGF;AACA;OAJE;AAQA,eAAU;AAtBS;AAAa;AAnBF;AAAX;AAEnB,UAAG,CAAI,aAAP;AAGF;AACA;OAJE;AAQA,eAAU;AAVS;AAAW;AAVG;AAAd;AAEnB;AACA,eAAU;AACV,UAAG,kBAAc,KAAG,EAApB;AAEE,oCAAkB,kBAAkB,CAAC,EAAD;OAFtC;AAJmB;AAAc;AAuBC;AAAf;AAEnB,kCAAkB,kBAAkB,CAAC,kBAAD;AACpC,eAAU;AAHS;AAAe;AA+BD;AAAd;AAEnB,eAAU;AACV,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAHmB;AAAc;AA8HA;AAAd;AAEnB,eAAU;AAFS;AAAc;AAUL;AAE5B;AAGkB,yDAAC,GAAD;AAElB,gBAAW;AAEN;AACL,UADK,IACL;AAAW,kBAAY,sBAAI,IAAG,cAAI,KAAH,GAAK,EAAN,CAAH;AAC3B,gBAFK,IAEL;AAAiB,kBAAY,sBAAI,IAAG,cAAI,KAAH,GAAK,GAAI,GAAI,EAAd,CAAH;AACjC,gBAHK,IAGL;AAAS,kBAAY,sBAAI,IAAG,cAAI,KAAH,GAAK,GAAI,GAAI,EAAd,CAAH;AACzB,gBAJK,IAIL;AAAe,kBAAY,sBAAI,IAAG,cAAI,KAAH,GAAK,GAAI,GAAI,GAAI,GAAI,EAAtB,CAAH;AAC/B,gBALK,IAKL,2BAAO,UAAY,sBAAI,IAAG,cAAI,KAAH,GAAK,GAAO,KAAH,GAAK,EAAf,CAA1B;AAGA,UAAG,CAAI,OAAP,EACE,QAAO,MAAP,CADF;AAjB4B;AA7MD;AAE3B;AAEA;AACA,UAAG,gBAAW,IAAY,CAAC,4BAAD,SAA1B;AAEE,aAAM;AAEV;OAJE;AAL2B;AA+dI;AAAZ;AAEnB,UAAI,kBAAa,KAAG,MAApB;AACE,iBAAU;AACP,gBAAG,aAAH;AACH,iBAAU;AAEV,gBAAI,cAAS,IAAG,cAAC,uBAAS,wBAAV,CAAhB;AACE,iBAAU;AAEV,gBAAG,cAAS,KAAE,uBAAd;AACE,iBAAU;AAEV,qBAAU;AAbG;AAAY;AA6CE;AAEjC,kCAAkB,aAAa,CAAC,QAAS,cAAV;AAFE;AAhWP;AAAP;AAEnB,eAAU;AACV,UAAY,4BAAD,QAAX,EACE,SAAU,4BAAkB,MAD9B;AAGA,UAAG,cAAS,KAAE,+BAAd,EACE,SAAU,sBAAS,CAAC,MAAD,CADrB;AAGA,UAAG,cAAS,KAAE,+BAAd,EACE,SAAU,sBAAS,CAAC,MAAD,CADrB;AATmB;AAAO;AAySO;AAAd;AAEnB,eAAU;AAFS;AAAc;AA7QJ;AAAV;AAEnB,eAAU;AAFS;AAAU;AA4JF;AAAR;AAEnB;AACA;AACA;AAEA,eAAU;AAEV,eAAS,QAAW,OAAC,MAAD,yBAApB;AAAI;AAEF,cAAO,MAAM,QAAC,KAAD;AACb,kBAAW;AAEN;AACL,YADK,IACL;AAAW,oBAAY,gBAAI,IAAG,cAAI,KAAH,GAAK,EAAN,CAAH;AAC3B,kBAFK,IAEL;AAAiB,oBAAY,gBAAI,IAAG,cAAI,KAAH,GAAK,GAAI,GAAI,EAAd,CAAH;AACjC,kBAHK,IAGL;AAAS,oBAAY,gBAAI,IAAG,cAAI,KAAH,GAAK,GAAI,GAAI,EAAd,CAAH;AACzB,kBAJK,IAIL;AAAe,oBAAY,gBAAI,IAAG,cAAI,KAAH,GAAK,GAAI,GAAI,GAAI,GAAI,EAAtB,CAAH;AAC/B,kBALK,IAKL,2BAAO,UAAY,gBAAI,IAAG,cAAI,KAAH,GAAK,GAAO,KAAH,GAAK,EAAf,CAA1B;AAGA,YAAG,CAAI,OAAP;AAEE,mBAAU;AACV;SAHF;;AArBiB;AAAQ;AAnZY;AAEvC;AACA,6BAAmB;AACnB,2BAAiB;AACjB,8BAAoB;AACpB,+BAAqB;AACrB,8BAAoB;AAPmB;AA8hBF;AAErC;AACA,6BAAoB;AACpB,2BAAkB;AAClB,8BAAqB;AACrB,+BAAsB;AACtB,8BAAqB;AAPgB;AAvkBP;AAE9B;AACA,UAAY,4BAAD,QAAX;AAEE,oCAAkB,iBAAiB,CAAC,QAAS,qBAAV;AACnC,oCAAkB,iBAAiB,CAAC,QAAS,oBAAV;AACnC,oCAAkB,iBAAiB,CAAC,MAAO,kBAAR;AACnC,oCAAkB,iBAAiB,CAAC,UAAW,sBAAZ;AACnC,oCAAkB,iBAAiB,CAAC,SAAU,qBAAX;OANrC;AAH8B;AAaE;AAEhC;AACA,UAAY,4BAAD,QAAX;AAEE,oCAAkB,oBAAoB,CAAC,QAAS,qBAAV;AACtC,oCAAkB,oBAAoB,CAAC,QAAS,oBAAV;AACtC,oCAAkB,oBAAoB,CAAC,MAAO,kBAAR;AACtC,oCAAkB,oBAAoB,CAAC,UAAW,sBAAZ;AACtC,oCAAkB,oBAAoB,CAAC,SAAU,qBAAX;OANxC;AAHgC;AAoTK;AAErC;AACA;AAAI;AACJ;AAAO;AAEP;AAEA,UAAY,4BAAD,QAAX;AAEE,YAAG,CAAI,kBAAP;AAEO;AACH,cADG,IACH;AAAc,wCAAkB,MAAM,YAAY,CAAC,iBAAkB,WAAnB;AAClD,oBAFG,IAEH;AAAc,wCAAkB,MAAM,YAAY,CAAC,iBAAkB,WAAnB;AAClD,oBAHG,IAGH;AAAc,wCAAkB,MAAM,YAAY,CAAC,iBAAkB,YAAnB;AAClD,oBAJG,IAIH,mCAAW,4BAAkB,MAAM,YAAY,CAAC,iBAAkB,SAAnB,CAA/C;SANJ;AAUA,oCAAkB,SAAlB,GAA+B;AAE/B,YAAG,cAAS,KAAG,EAAf,EACE,4BAAkB,YAAlB,GAAkC,cADpC;AAGA,eAAQ;AAER,YAAG,kBAAH;AAEE,iBAAS,CAAmB,4BAAmB,aAAa,CAAC,cAAD;SAF9D;AAKA,YAAG,IAAH;AAEE,cAAG,oBAAe,KAAE,2BAApB;AAEiB,wCAAmB,aAAa,CAAC,eAAe,MAAhB;AAC/C,gBAAG,CAAI,kBAAP,EACiB,4BAAmB,gBAAgB,CAAC,MAAD,CADpD;WAIF,UAAG,oBAAe,KAAE,2BAApB;AAEiB,wCAAmB,aAAa,CAAC,eAAe,KAAhB;AAC/C,gBAAG,CAAI,kBAAP,EACiB,4BAAmB,gBAAgB,CAAC,MAAD,CADpD;WAIF,UAAG,oBAAe,KAAG,0BAArB;AAEiB,wCAAmB,aAAa,CAAC,eAAe,IAAhB;AAC/C,gBAAG,CAAI,kBAAP,EACiB,4BAAmB,aAAa,CAAC,OAAQ,0BAAqB,CAAC,oBAAD,CAA9B,CADjD;;AAKe,wCAAmB,gBAAgB,CAAC,cAAD;AAClD,gBAAG,CAAI,kBAAP,EACiB,4BAAmB,gBAAgB,CAAC,MAAD,CADpD;;SAzBJ;AA8BA,YAAG,CAAI,kBAAP;AAEE,sCAAkB,cAAC,OAAW,mBAAZ;AAClB,sCAAkB,cAAC,OAAW,SAAZ;AAEb;AACL,cADK,KACL;AAA8B,wCAAmB,MAAM,eAAe,CAAC,YAAD;AACtE,oBAFK,KAEL;AAAyB,wCAAmB,MAAM,YAAY,CAAC,aAAc,QAAf;AAC9D,oBAHK,KAGL,4CAA+B,4BAAmB,MAAM,YAAY,CAAC,aAAc,OAAf,CAApE;SARF;AAaA,YAAG,cAAH;AACE,sCAAkB,aAAa,CAAC,WAAW,EAAZ;AAE/B,kBAAG,CAAI,kBAAP,EACE,4BAAkB,gBAAgB,CAAC,UAAD,CADpC;AAGF,YAAG,eAAH;AACE,sCAAkB,aAAa,CAAC,YAAY,EAAb;AAE/B,kBAAG,CAAI,kBAAP,EACE,4BAAkB,gBAAgB,CAAC,WAAD,CADpC;AAGF,YAAG,aAAS,KAAG,EAAf;AACE,sCAAkB,aAAa,CAAC,UAAU,aAAX;AAE/B,cAAA,4BAAkB,gBAAgB,CAAC,SAAD;AAEpC,YAAG,eAAU,IAAG,CAAhB;AACE,sCAAkB,gBAAgB,CAAC,WAAD;AAElC,cAAA,4BAAkB,UAAlB,GAAgC;AAElC,oCAAkB,MAAlB,GAA4B;AAE5B,gBAAS,sBAAS,CAAC,mBAAD,CAAe,KAAE,QAAF;AAEjC,YAAG,CAAI,gBAAP;AACE,sCAAkB,cAAC,aAAiB,OAAlB;AAElB,cAAA,4BAAkB,gBAAgB,CAAC,YAAD;AAEpC,YAAI,CAAI,KAA0B,IAAd,CAAI,kBAAT,IAAwB,CAAI,qBAA3C;AAEE,eAAM;AACN,eAAM,cAAU,GAAE,eAAF;AAChB,eAAM;AAEZ;AACA;AACA;SARI;OAlGF;AARqC;AAwMN;AAE/B,UAAI,cAAU,KAAG,MAAjB;AAEE,yBAAa;AACb;OAHF;AAF+B;AA2BC;AAEhC,UAAI,eAAW,KAAG,MAAlB;AAEE,0BAAc;AACd;OAHF;AAFgC;AAtXD;AAE/B,UAAI,cAAU,KAAG,MAAjB;AAEE,yBAAa;AACb;OAHF;AAF+B;AA2EJ;AAE3B,mBAAS;AAET,UAAY,4BAAD,QAAX;AAEE,oCAAkB,MAAlB,GAA4B;AAC5B,oCAAkB,SAAlB,GAA+B;OAHjC;AAJ2B;AAiEI;AAE/B,uBAAa;AACb;AAH+B;AAjJJ;AAAR;AAEnB,eAAU;AAFS;AAAQ;AALF;AAAN;AAEnB,eAAU;AAFS;AAAM;AA6GS;AAElC,UAAI,QAAS,KAAE,+CAAf;AAEE,4BAAe,yCAAf;AACA,iCAAoB,cAApB;AACA,4BAAe,wCAAf;OAJF;AAFkC;AA1ME;AAEpC;AACA,6BAAmB;AACnB,uBAAa;AACb,mBAAS;AACT,uBAAa;AACb,wBAAc;AACd,uBAAa;AACb,uBAAa;AACb,2BAAiB;AACjB,yBAAe;AACf,yBAAe;AACf,qBAAU,EAAV;AAboC;AAnCX;AAEzB,mBAAQ,EAAR;AAFyB;AAeS;AAElC;AAEA,UAAK;AACL,mBAAQ,eAAI,CAAC,EAAG,EAAG,kBAAP,CAAiB,GAAE,eAAI,CAAC,EAAG,kBAAS,GAAE,mBAAF,CAAoB,CAAD,OAAhC,CAAnC;AALkC;AAxBR;AAE1B,UAAY,uBAAD,QAAX,EACE,aAAS,4BAAkB,MAD7B;AAGA,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAL0B;AA8bG;AAE7B,UAAY,4BAAD,QAAX,EACE,4BAAkB,SADpB;AAF6B;AA7ZM;AAEnC;AAEA,UAAK;AAEP;AANqC;AAoIH;AAEhC;AAEA,uBAAa;AACb,wBAAc;AACd,WAAM;AACN,UAAY,EAAD,QAAX;AAGF;OAHE;AAPgC;AArvErB;;;AAkHN;;;;AAEe,iCpBtPV,gCoBsPU;AACJ,6BhBtKV,uCgBsKU;AACW;AACT,+BhBhKV,yCgBgKU,yBhB+ckD,uBAAC,0CAAQ,wCAAT,CgB/clD;AACO,sCA3QV,8BA2QU;AACL;AACD;AACE;AACF,gChB/FV,0CgB+FU;AACG,mChB5KV,6CgB4KU;AACL,8BhBjEV,wCgBiEU;AACE,gCA3RN,4BA2RM;AACE;AACL,6BfgFV,uCehFU;AACG,gChBvLV,0CgBuLU;AACA,gCA7QV,wBA6QU;AACQ,wChBzKV,kDgByKU;AACP,iChBzKV,2CgByKU;AACE,mChBzKV,6CgByKU;AACI,uChBzKV,iDgByKU;AACR;AACH,4BfyKV,sCezKU;AACE;AACO;AACF,mChB1LZ,2CgB0LY;AACP;AACS;AACT;AACM;AACE;AACL;AACA,+BhB3GV,yCgB2GU;AACE;AACA,iCJlGV,wCIkGU;AACD;AACA;AACI;AACH;AACD;AACE;AACF;AACD;AACH;AACS,qChB5LV,+CgB4LU;AACL;AACL;AACI;AACF;AACO;AACF,kChBnNX,2CgBmNW;AACF,gChBlJP,6CgBkJO;AACD,+BhBnJN,6CgBmJM;AACG,kChBpJT,6CgBoJS;AACD,iChB/IX,0CgB+IW;AACC,kChB/IP,+CgB+IO;AACH,+BhBjJT,0CgBiJS;AACI,mChBvJX,4CgBuJW;AACF,iChBxJT,4CgBwJS;AACE,mChBrJP,gDgBqJO;AACC,oChB3JX,6CgB2JW;AACA,oChB5JX,6CgB4JW;AACL,+BhB7JN,6CgB6JM;AACD,8BhB9JL,6CgB8JK;AACI,kChBnJP,+CgBmJO;AACA,kChBrJP,+CgBqJO;AACD,iChBnJP,8CgBmJO;AACD,gChBlKP,6CgBkKO;AACG,mChBtJP,gDgBsJO;AArEjB;AAwEG;;;;AAEC;;;AAEP;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAZO;;;;;AA0jFe;AAAP;AAEjB,eAAU,qBAAQ,CAAC,eAAD;AAFD;AAAO;AAoFC;AAEzB;AAEA,UAAK;AACL,UAAG,wBAAW,CAAC,MAAO;;;;UAAR,CAAd;AACE,YAAI,SAAC,CAAS,CAAT;AAEA,YAAL,IAAI,SAAC,CAAS,CAAT;AARkB;AApIa;AAArB;AAEjB,eAA8B;AAFb;AAAqB;AAkHT;AAE7B,UAAI,cAAU,KAAG,KAAjB;AAEE,yBAAa;AACb;OAHF;AAF6B;AASA;AAE7B,UAAI,cAAU,KAAG,KAAjB;AAEE,yBAAa;AACb;OAHF;AAF6B;AAzCH;AAE1B,UAAG,CAAS,CAAJ,sBAAI,IAAG,cAAI,KAAH,GAAK,EAAN,CAAH,CAAZ;AAEE,gBAAO,MAAP;AACA;AACA;OAJF;AAMA;AAR0B;AA6DK;AAE/B,kCAAkB,aAAa,CAAC,QAAQ,qBAAQ,CAAC,eAAD,CAAjB;AAFA;AA3GF;AAAZ;AAEjB,eAAU;AAFO;AAAY;AAsHM;AAEnC;AACA,UAAY,mBAAD,QAAX;AAEE,2BAAS,cAAC,YAAgB,SAAjB;AACT,2BAAS,cAAC,UAAc,QAAf;AACW,2BAAU,MAA9B,GAAwC;AACxC,oCAAkB,SAAlB,GAA+B;AAE/B,YAAG,cAAH;AACE,sCAAkB,aAAa,CAAC,WAAW,EAAZ;AAE/B,cAAA,4BAAkB,gBAAgB,CAAC,UAAD;OAVtC;AAHmC;AArGV;AAAR;AAEjB;AAEA,eAAU;AAEV,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,aADF;AAGA,UAAyB,mBAAU;AACnC,UAAI,CAAE,KAAG,EAAT,EACE,SAAU,qBAAQ,CAAC,CAAD,CADpB;AAViB;AAAQ;AAwCK;AAE9B,wBAAc;AACd,UAAY,mBAAD,QAAX,EACE,mBAAS,cAAC,OAAW,qBAAQ,CAAC,MAAD,CAApB,CADX;AAH8B;AAOD;AAE7B,uBAAa;AACb,UAAY,mBAAD,QAAX,EACE,mBAAS,cAAC,MAAU,qBAAQ,CAAC,MAAD,CAAnB,CADX;AAH6B;AAOA;AAE7B,uBAAa;AACb,UAAY,mBAAD,QAAX,EACE,mBAAS,cAAC,MAAU,qBAAQ,CAAC,MAAD,CAAnB,CADX;AAH6B;AAyCH;AAE1B,oBAAU;AACV;AAH0B;AA/IK;AAAd;AAEjB;AACA,eAAU;AACV,UAAG,kBAAc,KAAG,EAApB;AAEE,oCAAkB,kBAAkB,CAAC,EAAD;OAFtC;AAJiB;AAAc;AAUC;AAAf;AAEjB,kCAAkB,kBAAkB,CAAC,kBAAD;AACpC,eAAU;AAHO;AAAe;AA8DL;AAAV;AAEjB,eAAU;AAFO;AAAU;AAlFI;AAAd;AAEjB,eAAU,qBAAQ,CAAC,WAAD;AAFD;AAAc;AApBH;AAE5B;AACA,UAAY,4BAAD,QAAX;AAEE,oCAAkB,iBAAiB,CAAC,QAAS,qBAAV;AACnC,oCAAkB,iBAAiB,CAAC,UAAW,sBAAZ;OAHrC;AAH4B;AAUE;AAE9B;AACA,UAAY,4BAAD,QAAX;AAEE,oCAAkB,oBAAoB,CAAC,QAAS,qBAAV;AACtC,oCAAkB,oBAAoB,CAAC,UAAW,sBAAZ;OAHxC;AAH8B;AAoCN;AAExB,oBAAU;AAEV,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAJwB;AAQa;AAErC;AACA,8BAAoB;AACpB,+BAAqB;AAJgB;AAYF;AAEnC;AACA,8BAAqB;AACrB,+BAAsB;AAJa;AA0BH;AAEhC,UAAI,QAAS,KAAE,+CAAf;AAEE,4BAAe,yCAAf;AACA,iCAAoB,cAApB;AACA,4BAAe,wCAAf;OAJF;AAFgC;AAzGE;AAElC;AACA,wBAAc;AACd,uBAAa;AACb,uBAAa;AACb,wBAAa,IAAb;AACA,qBAAU,EAAV;AAGA,0BAAe,CAAC,4EAAD;AAVmB;AAp+EzB;;;AA2CO,6BhBxRV,uCgBwRU;AACW;AACT,+BhBlRV,yCgBkRU,yBhB6VkD,uBAAC,0CAAQ,wCAAT,CgB7VlD;AACC;AACA,gChB9MV,0CgB8MU;AACG,mChB3RV,6CgB2RU;AACD;AACL,6Bf7BV,uCe6BU;AACG,gChBpSV,0CgBoSU;AACQ,wChBrRV,kDgBqRU;AACP,iChBrRV,2CgBqRU;AACE,mChBrRV,6CgBqRU;AACI,uChBrRV,iDgBqRU;AACR;AACH,4Bf6DV,sCe7DU;AACE;AACO;AACF,mChBtSZ,2CgBsSY;AACP;AACK;AACL;AACG,+BhBpNV,yCgBoNU;AACC;AACA;AACE;AACF;AACA;AACI;AACR;AACK;AACD;AACD;AACC;AACK,qChBrSV,+CgBqSU;AACR;AACE;AACF;AACO;AACF,kChB3TX,2CgB2TW;AACF,gChB1PP,6CgB0PO;AACD,+BhB3PN,6CgB2PM;AACG,kChB5PT,6CgB4PS;AACD,iChBvPX,0CgBuPW;AACC,kChBvPP,+CgBuPO;AACH,+BhBzPT,0CgByPS;AACI,mChB/PX,4CgB+PW;AACF,iChBhQT,4CgBgQS;AACE,mChB7PP,gDgB6PO;AACC,oChBnQX,6CgBmQW;AACA,oChBpQX,6CgBoQW;AACL,+BhBrQN,6CgBqQM;AACD,8BhBtQL,6CgBsQK;AACI,kChB3PP,+CgB2PO;AACA,kChB7PP,+CgB6PO;AACD,iChB3PP,8CgB2PO;AACE,mChB7PP,gDgB6PO;AAlGb;AAqGG;;;;AAEG;;;AAEb;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAnBa;;;;;;;AA0mFgB;AAE/B,UAAG,UAAM,KAAG,MAAZ;AAEE,qBAAS,cAAG,CAAC,MAAD;AACZ,qBAAS;AACT;OAJF;AAF+B;AA2JD;AAAP;AAEvB;AAGA,eAAU,cAAG,CAAC,UAAD,CAAQ,GAAE,eAAI,CAAC,UAAD,CAAN;AACrB,UAAG,CAAY,CAAC,uBAAD,SAAf,EACE,aADF;AAGA,YAA2B,uBAAiB;AAE5C,UAAG,UAAK,KAAE,0BAAV;AAEE,iBAAU,uCAAgB,CAAC,GAAD,CAAM,GAAE,eAAI,CAAC,UAAD,CAAN;OAGhC,eAAU;AAhBW;AAAO;AA2CC;AAE/B,UAAG,UAAM,KAAG,MAAZ;AAEE,qBAAS;AACT,qBAAS;AACT;OAJF;AAF+B;AAuLD;AAAP;AAEvB;AAEA,UAAG,UAAM,GAAE,CAAX;AACE,iBAAU,eAAI,CAAC,UAAD,CAAQ,GAAE,cAAG,CAAC,UAAD,CAAL;AAEtB,qBAAU,eAAI,CAAC,UAAD;AAEhB,UAAG,CAAY,CAAC,uBAAD,SAAf,EACE,aADF;AAGA,YAA2B,uBAAiB;AAE5C,UAAG,UAAK,KAAE,0BAAV;AAEE,iBAAU,uCAAgB,CAAC,GAAD,CAAM,GAAE,cAAG,CAAC,UAAD,CAAL;OAGhC,eAAU;AAnBW;AAAO;AAqDC;AAE/B;AAEA,mBAAS;AACT,UAAY,uBAAD,QAAX;AAEE,aAAM,cAAG,CAAC,UAAD,CAAQ,GAAE,eAAI,CAAC,UAAD,CAAN;AACjB,YAAG,MAAO,KAAE,0BAAZ;AACE,iCAAgB,cAAC,OAAW,MAAZ;AAEA,cAAhB,uBAAgB,cAAC,OAAW,MAAZ;AAElB,qBAAQ,EAAR;AACA,qBAAQ,EAAR;AACA;OAVF;AAL+B;AAlPA;AAE/B,UAAG,CAAY,CAAC,uBAAD,SAAf,EACE,MADF;AAF+B;AAoLD;AAAP;AAEvB,eAAU;AACV,UAAG,CAAY,CAAC,uBAAD,SAAf,EACE,aADF;AAGA,eAA8B,uBAAiB;AANxB;AAAO;AAmGK;AAEnC,uBAAa;AACb;AAHmC;AAMI;AAEvC,UAAI,kBAAc,KAAG,KAArB;AAEE,6BAAiB;AACjB;OAHF;AAFuC;AAteL;AAElC,UAAI,aAAS,KAAG,KAAhB;AAEE,wBAAY;AACZ;OAHF;AAFkC;AAuLA;AAAX;AAEvB,eAAU,cAAG,CAAC,UAAD,CAAQ,GAAE,eAAI,CAAC,UAAD,CAAN;AAFE;AAAW;AApKC;AAEnC,mBAAS,cAAG,CAAC,KAAD;AACZ,mBAAS,eAAI,CAAC,KAAD;AACb;AAJmC;AA4dG;AAEtC,UAAI,iBAAa,KAAG,KAApB;AAEE,4BAAgB;AAChB;OAHF;AAFsC;AAjCR;AAE9B,UAAI,SAAK,KAAG,KAAZ;AAEE,oBAAQ;AACR;OAHF;AAF8B;AASA;AAE9B,UAAI,SAAK,KAAG,KAAZ;AAEE,oBAAQ;AACR;OAHF;AAF8B;AArVK;AAAZ;AAEvB,sBAAgC,kBAAc;AAE9C,UAAG,aAAH;AACE,+BAAgB,gBAAgB,CAAC,UAAD;AAEhC,YAAA,uBAAgB,aAAa,CAAC,WAAW,MAAZ;AAE/B,eAAU;AATa;AAAY;AA0BC;AAAb;AAEvB,UAAG,CAAI,kBAAS,IAAI,CAAI,iBAAxB,EACE,uBAAa,MAAM,YAAY,CAAC,UAAU,MAAX,CADjC;AAEA,eAAU;AACV;AALuB;AAAa;AARD;AAAZ;AAEvB,UAAG,CAAI,kBAAS,IAAI,CAAI,iBAAxB,EACE,uBAAa,MAAM,YAAY,CAAC,UAAU,MAAX,CADjC;AAEA,eAAU;AACV;AALuB;AAAY;AANE;AAAd;AAEvB;AACA,eAAU;AAHa;AAAc;AA+QD;AAAb;AAEvB;AAEA,eAAiC,wDAAC,KAAD;AACjC,UAAG,kBAAH;AAEE,aAAM;AAEV;OAJE;AALuB;AAAa;AAjOO;AAApB;AAEvB,eAAU;AAFa;AAAoB;AA3IT;AAElC;AACA,UAAY,kBAAD,QAAX,EACE,kBAAa,iBAAiB,CAAC,QAAQ,gBAAT,CADhC;AAGA,UAAY,uBAAD,QAAX;AAEE,+BAAgB,iBAAiB,CAAC,QAAS,qBAAV;AACjC,+BAAgB,iBAAiB,CAAC,QAAQ,cAAT;AACjC,+BAAgB,iBAAiB,CAAC,OAAO,aAAR;OAJnC;AANkC;AAcE;AAEpC;AACA,UAAY,kBAAD,QAAX,EACE,kBAAa,oBAAoB,CAAC,QAAQ,gBAAT,CADnC;AAGA,UAAY,uBAAD,QAAX;AAEE,+BAAgB,oBAAoB,CAAC,QAAS,qBAAV;AACpC,+BAAgB,oBAAoB,CAAC,QAAQ,cAAT;AACpC,+BAAgB,oBAAoB,CAAC,OAAO,aAAR;OAJtC;AANoC;AA0JK;AAEzC;AACA;AACA;AACA;AAAE;AAAE;AAEJ;AAEA,WAAM;AAEN,UAAY,EAAD,QAAX;AAEE,UAAE,cAAC,OAAW,GAAZ;AAEG;AACH,YADG,IACH;AAEI,cAAG,iBAAH;AACE,gBAAK,2BAAc,CAAC,WAAY,UAAb;AAEnB,oBAAK,2BAAc,CAAC,QAAS,UAAV;AAErB,mBAAS,QAAW,OAAC,CAAD,yBAApB;AAAI;AAEF,gBAAG,CAAU,CAAL,CAAC,YAAC,KAAD,CAAI,IAAG,cAAI,KAAH,GAAK,EAAN,CAAH,CAAb,EACE,CAAC,iBAAD,EAAE,MAAM,GAAP,CADH;;AAIkB,YAAG,MAAvB,GAAiC;AACjC,cAAG,CAAI,iBAAP,EACE,EAAE,cAAC,OAAW,IAAZ,CADJ;SAGJ,UAlBG,IAkBH;AAEI,cAAG,UAAM,KAAE,CAAX;AACsB,cAAG,MAAvB,GAAiC;;AAGjC,gBAAK,2BAAc,CAAC,aAAc,UAAf;AACnB,qBAAS,SAAW,QAAC,CAAD,4BAApB;AAAI;AAEF,kBAAG,CAAU,CAAL,CAAC,YAAC,KAAD,CAAI,IAAG,cAAI,KAAH,GAAK,EAAN,CAAH,CAAb,EACE,CAAC,iBAAD,EAAE,MAAM,GAAP,CADH;;AAGkB,cAAG,MAAvB,GAAiC;;SAZvC;AAiBF,YAAG,aAAH;AACE,YAAE,aAAa,CAAC,WAAW,qBAAQ,CAAC,cAAD,CAApB;AAEf,cAAA,EAAE,aAAa,CAAC,WAAW,IAAZ;AAEjB,YAAG,UAAK,KAAE,0BAAV;AAEE,cAAG,SAAK,KAAG,CAAX;AAEE,mCAAU,CAAC,UAAM;;;;iBAAG;;;;iBAAG;;;;gBAAb;AACV,cAAE,aAAa,CAAC,MAAO,mBAAM,CAAC,KAAK,mBAAC,GAAD,CAAN,CAA0C,GAA/B,GAAD,GAAO,mBAAM,CAAC,OAAO,mBAAC,IAAE,GAAH,CAAR,CAAR,GAAuB,GAAD,GAAO,mBAAM,CAAC,OAAO,mBAAC,IAAE,GAAH,CAAR,CAAhE;WAGf,MAAA,EAAE,gBAAgB,CAAC,KAAD;AAEpB,cAAG,SAAK,KAAG,CAAX;AAEE,mCAAU,CAAC,UAAM;;;;iBAAG;;;;iBAAG;;;;gBAAb;AACV,cAAE,aAAa,CAAC,MAAO,mBAAM,CAAC,KAAK,mBAAC,GAAD,CAAN,CAA0C,GAA/B,GAAD,GAAO,mBAAM,CAAC,OAAO,mBAAC,IAAE,GAAH,CAAR,CAAR,GAAuB,GAAD,GAAO,mBAAM,CAAC,OAAO,mBAAC,IAAE,GAAH,CAAR,CAAhE;WAGf,MAAA,EAAE,gBAAgB,CAAC,KAAD;SAhBtB;AAoBoB,UAAG,SAAvB,GAAoC;AAEpC,YAAG,gBAAH;AACE,YAAE,gBAAgB,CAAC,UAAD;AAElB,cAAA,EAAE,aAAa,CAAC,WAAW,EAAZ;OArEnB;AAXyC;AAoFE;AAE3C;AAEA;AAEA,YAAO,iCAAa,CAAC,IAAD;AACpB,0BAAwB,CAAC,GAAD,SAA0C,IAAhB,CAAf,GAAG,YAAY,KAAE,+CAAF,CAApB,IAA0D,CAAjB,sBAAiB,KAAG,EAAH,CAAtB;AAElE,UAAW,CAAC,uBAAD,SAA+C,IAAhB,CAAC,uBAAD,SAAZ,IAAwC,CAAC,kBAAD,SAAtE;AAEE,0BAAa,cAAC,OAAW,UAAZ;AAEb,YAAG,UAAM,KAAE,0BAAX;AACE,iCAAgB,cAAC,OAAW,MAAZ;AAEA,cAAhB,uBAAgB,cAAC,OAAW,MAAZ;AAElB,YAAI,sBAAiB,KAAE,EAAvB;AAEE,iCAAgB,MAAM,YAAY,CAAC,SAAS,MAAV;AAClC,iCAAgB,MAAM,YAAY,CAAC,eAAe,KAAhB;AAClC,iCAAgB,MAAM,YAAY,CAAC,UAAU,MAAX;AAClC,iCAAgB,MAAM,YAAY,CAAC,cAAc,SAAf;AAClC,iCAAgB,MAAM,YAAY,CAAC,YAAY,SAAb;AAClC,iCAAgB,MAAM,YAAY,CAAC,QAAQ,MAAT;AAClC,iCAAgB,MAAM,YAAY,CAAC,SAAS,MAAV;;AAIlC,cAAG,iBAAH;AAEE,mCAAgB,aAAa,CAAC,QAAQ,sBAAT;AAC7B,mCAAa,gBAAgB,CAAC,OAAD;WAH/B;;AAOF,YAAG,CAAI,kBAAP;AAEE,iCAAa,MAAM,YAAY,CAAC,UAAU,KAAX;AAC/B,iCAAa,MAAM,YAAY,CAAC,UAAU,MAAX;SAHjC;AAMA,YAAgB,CAAZ,iBAAY,KAAE,4CAAF,CAAY,IAAsB,CAAjB,sBAAiB,KAAE,EAAF,CAAlD;AAEE,cAAG,CAAI,aAAP;AACE,mCAAa,MAAM,YAAY,CAAC,SAAS,kBAAV;AAE/B,gBAAA,uBAAa,MAAM,YAAY,CAAC,SAAS,WAAV;AAEjC,iCAAa,MAAM,YAAY,CAAC,gBAAgB,KAAjB;;AAI/B,cAAG,iBAAH;AAEE,mCAAa,MAAM,eAAe,CAAC,QAAD;AAClC,mCAAa,MAAM,eAAe,CAAC,YAAD;WAHpC;;AAOF,YAAY,kBAAD,QAAX;AAEE,cAAG,kBAAH;AACE,8BAAa,MAAM,YAAY,CAAC,UAAU,EAAX;AAE/B,gBAAA,kBAAa,MAAM,YAAY,CAAC,UAAU,MAAX;SALnC;AAQA,YAAG,kBAAH;AAEE,cAAG,aAAH;AACE,mCAAgB,gBAAgB,CAAC,UAAD;AAEhC,gBAAA,uBAAgB,aAAa,CAAC,WAAW,MAAZ;SALjC;OA5DF;AAT2C;AAzMP;AAAb;AAEvB,eAAU,QAAQ,cAAc,CAAC,KAAD;AAEhC,2BAAgC,QAAQ,cAAc,CAAC,OAAD;AACtD,4BAAiC,QAAQ,cAAc,CAAC,OAAD;AAEvD,YAAM,YAAY,CAAC,kBAAD;AAClB,YAAM,YAAY,CAAC,mBAAD;AARK;AAAa;AArHD;AAAZ;AAEtB,UAAG,UAAM,KAAE,0BAAX;AACC,iBAAU;AAEV,qBAAU;AALW;AAAY;AA+FL;AAE9B,mBAAS;AACT,mBAAS;AACT,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAJ8B;AAwWG;AAAV;AAEvB,eAAU;AAFa;AAAU;AA3VU;AAE3C;AACA,8BAAoB;AACpB,sBAAY;AACZ,uBAAa;AACb,yBAAa;AAN8B;AApGF;AAEzC;AACA,8BAAqB;AACrB,yBAAc;AACd,uBAAc;AACd,sBAAa;AAN4B;AA0MF;AAAhB;AAEvB,UAAG,kBAAH;AACE,iBAAU;AAEV,qBAAU;AALW;AAAgB;AAvKL;AAElC;AAEA;AACA,WAAqB;AACrB,UAAa,EAAD,QAAZ;AAEE,YAAG,KAAH;AACE,YAAE,gBAAgB,CAAC,UAAD;AAElB,cAAA,EAAE,aAAa,CAAC,WAAW,EAAZ;OALnB;AANkC;AAkZI;AAEtC,UAAI,QAAS,KAAE,+CAAf;AAEE,4BAAe,yCAAf;AACA,iCAAoB,cAApB;AACA,4BAAe,wCAAf;OAJF;AAFsC;AA7TE;AAExC;AACA,kBAAQ;AACR,kBAAQ;AACR,mBAAQ,kBAAR;AACA,wBAAa,IAAb;AACA,UAAI,2CAAY,IAAG,oBAAnB;AAEE,sBAAS,GAAT;AACA,uBAAU,EAAV;OAHF;AAKA,mBAAS,cAAG,CAAC,kBAAD;AACZ,mBAAS;AACT,uBAAa;AACb,0BAAgB;AAChB,0BAAgB;AAhBwB;AAzBX;AAET,6BAAiB,MAArC,GAA+C;AAFlB;AA7CG;AAEhC,UAAY,uBAAD,QAAX;AAEiB,+BAAiB,MAAM;OAFxC;AAFgC;AA1oFjB;;;AA6DC,6BhBjZV,uCgBiZU;AACW;AACT,+BhB3YV,yCgB2YU,yBhBoOkD,uBAAC,0CAAQ,wCAAT,CgBpOlD;AACK;AACD,mChBnZV,6CgBmZU;AACJ;AACG;AACL,6BftJV,uCesJU;AACD,4B7BndV,0B6BmdU;AACI,gChB9ZV,0CgB8ZU;AACQ,wChB/YV,kDgB+YU;AACP,iChB/YV,2CgB+YU;AACE,mChB/YV,6CgB+YU;AACI,uChB/YV,iDgB+YU;AACX,4Bf5DV,sCe4DU;AACE;AACO;AACF,mChB/ZZ,2CgB+ZY;AACP;AACA,4BA7gBF,4BA6gBE;AACA;AACG,+BhB7UV,yCgB6UU;AACJ,2B7BneL,8B6BmeK;AACA,2B7BpeL,8B6BoeK;AACO;AACF;AACJ;AACQ;AACH;AACD;AACG;AACJ;AACC;AACJ;AACS,qChB/ZV,+CgB+ZU;AACT,4B7B/eV,0B6B+eU;AACD;AACI;AACF;AACO;AACF,kChBtbX,2CgBsbW;AACH,+BhBrXN,6CgBqXM;AACC,gChBtXP,6CgBsXO;AACE,kChBvXT,6CgBuXS;AACD,iChBlXX,0CgBkXW;AACC,kChBlXP,+CgBkXO;AACH,+BhBpXT,0CgBoXS;AACI,mChB1XX,4CgB0XW;AACF,iChB3XT,4CgB2XS;AACE,mChBxXP,gDgBwXO;AACC,oChB9XX,6CgB8XW;AACA,oChB/XX,6CgB+XW;AACL,+BhBhYN,6CgBgYM;AACD,8BhBjYL,6CgBiYK;AACI,kChBtXP,+CgBsXO;AACA,kChBxXP,+CgBwXO;AACD,iChBtXP,8CgBsXO;AACE,mChBxXP,gDgBwXO;AAtHP;AAyHG;;;;AAEX;;;AAEL;AACA;AACA;AACA;AALK;AAoiGsB;AAE7B,yBAAe;AACf;AAH6B;AAPH;AAE1B,sBAAY;AACZ,UAAG,aAAH,EACE,eADF;AAH0B;AAfE;AAAb;AAEf,eAAU,QAAQ,cAAc,CAAC,QAAD;AAChC,YAAM,cAAC,OAAW,QAAZ;AAHS;AAAa;AAMF;AAE1B,UAAG,aAAQ,KAAG,MAAd;AAEsB,mEAAC,MAAD;AACpB;OAHF;AAF0B;AAsBO;AAEjC;AAEA;AAEA,UAAG,kBAAS,IAAa,CAAR,aAAQ,KAAE,EAAF,CAAzB,EACE,MADF;AAGA,UAAY,uBAAD,QAAX;AAEE,YAAoC,CAAhC,uBAAa,kBAAmB,KAAE,CAAF,CAAiC,IAAL,CAAnB,cAAG,CAAC,KAAM,aAAP,CAAgB,GAAE,CAAF,CAAvB,IAA+B,CAAI,kBAA5E;AAEE,iCAAa,UAAb,GAA2B,yCAAkB,CAAC,cAAQ;;;;cAAT;SAF/C;AAKA,YAAG,GAAI,KAAG,EAAV,EACE,uBAAa,cAAC,YAAgB,GAAjB,CADf;AAGA,+BAAa,cAAC,OAAW,QAAZ;AACb,+BAAa,cAAC,aAAiB,aAAlB;AAEb,YAAG,gBAAY,KAAG,EAAlB;AACE,iCAAa,cAAC,OAAW,gBAAZ;AAEA,cAAb,uBAAa,cAAC,OAAW,QAAZ;OAhBjB;AATiC;AA6BE;AAEnC;AAEA;AACA,UAAY,uBAAD,QAAX;AAEE,+BAAa,MAAM,eAAe,CAAC,SAAD;AAClC,+BAAa,MAAM,eAAe,CAAC,aAAD;AAElC,cAAO,sBAAS,CAAC,sBAAD;AAEhB,YAAQ,CAAJ,GAAI,KAAE,KAAF,CAAS,IAAqB,CAAjB,cAAG,CAAC,OAAQ,GAAT,CAAc,GAAE,CAAF,CAAtC;OAPF;AALmC;AA9FH;AAEhC;AACA,UAAG,aAAQ,IAAS,CAAJ,GAAI,KAAE,EAAF,CAApB;AAEE;OAFF;AAIA,UAAG,YAAO,IAAS,CAAJ,GAAI,KAAE,EAAF,CAAnB;AAEE;OAFF;AAPgC;AAaF;AAE9B,UAAI,QAAS,KAAE,+CAAf;AAEE,iCAAoB,eAApB;AACA,4BAAe,yCAAf;AACA,4BAAe,wCAAf;OAJF;AAF8B;AAtBE;AAEhC;AACA,UAAgB,CAAZ,2CAAY,IAAG,oBAAH,CAAmB,IAAa,CAAR,aAAQ,KAAE,EAAF,CAAhD,EACE,gBAAW,UAAX,CADF;AAEA,oBAAS,EAAT;AACA,0BAAgB;AANgB;AAgCX;AAErB;AAEA;AAEA,UAAG,iBAAY,KAAG,CAAlB;AAEE,cAAO,iCAAa,CAAC,IAAD;AACpB,YAAY,GAAD,QAAX,EACE,GAAG,eAAC,CAAe,iBAAf,CADN;OAHF;AANqB;AAhgGd;;;AAmBS,6BhBleV,uCgBkeU;AACW;AACT,+BhB5dV,yCgB4dU,yBhBmJkD,uBAAC,0CAAQ,wCAAT,CgBnJlD;AACC,gChBvZV,0CgBuZU;AACG,mChBpeV,6CgBoeU;AACD;AACH;AACD;AACA,8BhB5XV,wCgB4XU;AACI;AACL,6Bf1OV,uCe0OU;AACE;AACC,gChBlfV,0CgBkfU;AACQ,wChBneV,kDgBmeU;AACP,iChBneV,2CgBmeU;AACE,mChBneV,6CgBmeU;AACI,uChBneV,iDgBmeU;AACR;AACH,4BfjJV,sCeiJU;AACE;AACO;AACF,mChBpfZ,2CgBofY;AACP;AACA;AACG,+BhBjaV,yCgBiaU;AACI;AACF,iCJxZV,wCIwZU;AACL;AACM;AACF;AACA;AACD;AACM,qChB9eV,+CgB8eU;AACV;AACI;AACF;AACO;AACF,kChBpgBX,2CgBogBW;AACH,+BhBncN,6CgBmcM;AACE,iChB9bX,0CgB8bW;AACC,kChB9bP,+CgB8bO;AACH,+BhBhcT,0CgBgcS;AACI,mChBtcX,4CgBscW;AACF,iChBvcT,4CgBucS;AACE,mChBpcP,gDgBocO;AACC,oChB1cX,6CgB0cW;AACA,oChB3cX,6CgB2cW;AACL,+BhB5cN,6CgB4cM;AACD,8BhB7cL,6CgB6cK;AACI,kChBlcP,+CgBkcO;AACA,kChBpcP,+CgBocO;AACD,iChBlcP,8CgBkcO;AACE,mChBpcP,gDgBocO;AAvEf;AA0EG;;;;AAED;;;AAEP;AACA;AACA;AACA;AACA;AACA;AAPO;;;;;AAixGqB;AAE9B,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd;OAHF;AAF8B;AA7JN;AAExB;AAGA;AAEA,UAAY,mBAAD,QAAX;AAEE,YAAG,CAAI,kBAAP;AAEE,gBAA2B,mBAAS,SAAS,MAAC,CAAD;AAC7C,aAAG,QAAH,GAAgB;SAHlB;OAFF;AAPwB;AAiBW;AAEnC;AACA;AAEA;AAEA,UAAY,mBAAD,QAAX;AAEE,cAA2B;AAC3B,YAAY,GAAD,QAAX;AAEE,aAAG,SAAH,GAAgB,CAAI;AACpB,aAAG,QAAH,GAAe;AACf,aAAG,cAAH,GAAsB,eAAM,KAAE,4BAAF;SAJ9B;AAOA,YAAG,CAAI,kBAAP;AAEE,cAAI,aAAQ,KAAG,EAAf,EACE,mBAAS,iBAAiB,UAA1B,GAAwC,aAD1C;AAGA,iCAAa,aAAa,CAAC,WAAW,IAAZ;AAE1B,gBAAkB,uBAAa;AAC/B,aAAG,aAAa,CAAC,WAAW,IAAZ;SARlB;AAWA,YAAG,aAAH,EACE,mBAAS,aAAa,CAAC,WAAW,qBAAQ,CAAC,cAAD,CAApB,CADxB;OArBF;AAPmC;AAiCA;AAEnC;AAEA,UAAW,CAAC,mBAAD,SAA6B,IAAb,CAAI,kBAAR,IAAsC,CAAhB,qBAAgB,KAAE,kDAAF,CAA7D;AAEE,YAAG,iBAAY,KAAG,wCAAlB;AACiB,6BAAS,kBAAmB,MAAM,YAAY,CAAC,SAAS,MAAV;AAE7D,cAAe,mBAAS,kBAAmB,MAAM,eAAe,CAAC,QAAD;OALpE;AAJmC;AAaE;AAErC;AAAI;AACJ;AACA;AAEA;AAEA,UAAY,uBAAD,QAAX;AAEE,cAAkB,uBAAa;AAE/B,YAAY,GAAD,QAAX;AAEE,cAA2B,GAAI,MAApB,QAAX,EACiB,GAAI,MAAM,YAAY,CAAC,eAAe,KAAhB,CADvC;AAGA,cAAG,sBAAiB,KAAE,EAAtB;AAEiB,eAAI,MAAM,YAAY,CAAC,iBAAiB,QAAlB;AACtB,eAAI,MAAM,YAAY,CAAC,aAAa,KAAd;WAHvC;AAMA,cAAG,4BAAwB,KAAG,EAA9B;AACE,eAAG,aAAa,CAAC,QAAQ,4BAAT;AAEhB,gBAAA,GAAG,gBAAgB,CAAC,OAAD;SAdvB;AAiBA,cAAkB,uBAAa;AAE/B,YAAY,GAAD,QAAX;AAEE,cAAG,2BAAuB,KAAG,EAA7B;AACE,eAAG,aAAa,CAAC,QAAQ,2BAAT;AAEhB,gBAAA,GAAG,gBAAgB,CAAC,OAAD;SALvB;AAQA,YAAG,CAAI,aAAyB,IAAd,CAAI,eAAP,IAAsC,CAAjB,sBAAiB,KAAG,EAAH,CAArD,EACE,uBAAa,MAAM,YAAY,CAAC,UAAU,MAAX,CADjC;AAGA,YAAG,CAAI,kBAAP;AAEE,iCAAa,MAAM,YAAY,CAAC,cAAc,MAAf;AAE/B,cAAG,qBAAgB,KAAE,kDAArB;AAEE,gBAAG,4BAAuB,KAAE,EAA5B;AAEE,kBAAG,eAAU,KAAE,qCAAf;AAEiB,mBAAI,MAAM,YAAY,CAAC,QAAQ,MAAT;;AAItB,mBAAI,MAAM,YAAY,CAAC,QAAQ,OAAT;;AAGvC,kBAAG,iBAAY,KAAE,wCAAjB;AACiB,mBAAI,MAAM,eAAe,CAAC,QAAD;AAExC,wBAAI,qBAAgB,KAAE,kDAAtB,EACiB,GAAI,MAAM,YAAY,CAAC,SAAS,MAAV,CADvC;AAGa,iBAAI,MAAM,YAAY,CAAC,iBAAiB,QAAlB;AAErC,kBAAG,CAAe,gBAAH,eAAP,YAAO,CAAf;AAEiB,mBAAI,MAAM,YAAY,CAAC,aAAa,KAAd;AACtB,mBAAI,MAAM,YAAY,CAAC,gBAAgB,KAAjB;eAHvC;aAnBF;AA0BA,kBAAO,iCAAa,CAAC,IAAD;AACpB,mBAAgB,CAAC,GAAD,SAAM,IAAoB,CAAf,GAAG,YAAY,KAAE,+CAAF,CAApB;AAEtB,gBAA0B,CAAtB,2BAAsB,KAAE,EAAF,CAAM,IAAG,IAAnC;AAEE,oBAAkB,mBAAS;AACZ,iBAAI,MAAM,YAAY,CAAC,iBAAiB,QAAlB;AACtB,iBAAI,MAAM,YAAY,CAAC,aAAa,MAAd;AACtB,iBAAI,MAAM,YAAY,CAAC,SAAS,MAAV;AACtB,iBAAI,MAAM,YAAY,CAAC,WAAW,UAAZ;AACtB,iBAAI,MAAM,YAAY,CAAC,WAAW,QAAZ;AACtB,iBAAI,MAAM,YAAY,CAAC,UAAU,aAAX;AACtB,iBAAI,MAAM,YAAY,CAAC,cAAc,QAAf;aATvC;WA/BF;SAJF;OAlCF;AARqC;AAyLN;AAE/B;AAEA,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,WAA0B;AAE1B,UAAI,EAAE,QAAN;AACE,UAAE,aAAa,CAAC,UAAU,SAAX;AAEf,YAAA,EAAE,gBAAgB,CAAC,SAAD;AAZW;AA5TD;AAAb;AAEjB;AAAK;AAEL,eAAU,QAAQ,cAAc,CAAC,MAAD;AAChC,YAAO,QAAQ,cAAc,CAAC,OAAD;AAC7B,YAAO,QAAQ,cAAc,CAAC,MAAD;AAE7B,SAAG,cAAC,OAAW,UAAZ;AACH,SAAG,cAAC,KAAS,YAAM,GAAE,IAAlB;AACH,SAAG,cAAC,OAAW,UAAZ;AACH,SAAG,cAAC,KAAS,YAAM,GAAE,KAAlB;AACH,SAAG,cAAC,QAAY,YAAb;AAEH,YAAM,YAAY,CAAC,GAAD;AAClB,YAAM,YAAY,CAAC,GAAD;AAEb,gBAAJ,IAAO,gBAAH,CAAuB,QAA5B,GAAyC;AAjBxB;AAAa;AA0QF;AAE5B,sBAAY;AACZ,UAAG,MAAH;AACE,sBAAU;AAEV,0BAAU;AAEZ;AAR4B;AAWD;AAAV;AAEjB;AAEA,UAAY,mBAAD,QAAX;AAEE,aAAM;AACN,YAAY,EAAD,QAAX,EACE,gBAAgC,EAAG,QADrC;OAHF;AAOA,eAAU;AAXO;AAAU;AA2BD;AAE1B,oBAAU;AACV,sBAAY,WAAO,KAAE,6BAAF;AACnB;AAJ0B;AAOD;AAAR;AAEjB,eAAU;AAFO;AAAQ;AA7EG;AAE5B,UAAG,aAAQ,KAAG,MAAd;AAEsB,mEAAC,MAAD;AACpB,YAAY,mBAAD,QAAX;AAEE,cAAG,kBAAH;AAEE,gBAAW,CAAC,mBAAS,iBAAV,SAA6B,IAAwC,CAAnC,mBAAS,iBAAiB,QAAS,KAAE,MAAF,CAAhF,EACE,mBAAS,iBAAiB,UAA1B,GAAwC,MAD1C;WAIA,UAAY,mBAAS,iBAAV,QAAX,EACE,mBAAS,iBAAiB,UAA1B,GAAwC,MAD1C;SARJ;OAHF;AAF4B;AAmBA;AAE5B;AAEA;AACA,UAAY,mBAAD,QAAX;AAEE,aAAM;AACN,YAAY,EAAD,QAAX,EACsB,EAAG,SAAvB,GAAoC,CAAI,KAD1C;OAHF;AAL4B;AAnOK;AAAhB;AAEjB;AAEA,UAAW,CAAC,mBAAD,SAAY,IAAI,aAA3B;AAEE,cAA2B;AAC3B,WAAG,QAAH,GAAe,CAAI,GAAG;AAEtB,wBAAW,GAAG,QAAd;OALF;AAOA;AACA,eAAU;AAZO;AAAgB;AANA;AAAhB;AAEjB;AACA,eAAU;AAHO;AAAgB;AAhCV;AAEvB;AACA,sBAAY;AACZ,UAAG,aAAH;AACE,sBAAU;AAEV,0BAAU;AAEZ;AATuB;AANO;AAE9B,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,IAAD,CADd;AAF8B;AAqTE;AAAf;AAEjB,UAAG,kBAAH;AAEE,YAAG,uBAAa,QAAS,KAAE,OAA3B;AACE,mBAAyB;AAEzB,uBAAyB,mBAAS;OAGpC,eAAyB,mBAAS;AAVnB;AAAe;AA9ON;AAE1B;AAEA;AACA,UAAG,QAAG,KAAE,GAAR;AAEE,YAAW,CAAC,mBAAD,SAAY,IAAI,CAAI,kBAA/B;AAEE,gBAA2B;AAC3B,aAAG,QAAH,GAAe,CAAI,GAAG;SAHxB;OAFF;AAL0B;AAsRC;AAE3B;AAEA,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,WAA0B;AAC1B,QAAE,QAAF,GAAc,MAAO,KAAE,GAAF;AARM;AAWD;AAAT;AAEjB;AAEA,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,aADF;AAGA,WAA0B;AAE1B,UAAI,EAAE,QAAN;AACE,iBAAU;AAEV,qBAAU;AAZK;AAAS;AA7SM;AAEhC,UAAI,QAAS,KAAE,+CAAf;AAEE,4BAAe,yCAAf;AACA,iCAAoB,gCAApB;AACA,uCAA0B;AAC1B,sCAAyB;AACzB,4BAAe,wCAAf;OANF;AAFgC;AAzEE;AAElC;AACA,oBAAS,EAAT;AACA,sBAAY;AACZ,oBAAU;AACV,wBAAa,qCAAb;AAEA,UAAgB,CAAZ,2CAAY,IAAG,oBAAH,CAAmB,IAAa,CAAR,aAAQ,KAAE,EAAF,CAAhD,EACG,gBAAW,UAAX,CADH;AAGA,wBAAa,IAAb;AAXkC;AAhhGzB;;;AAmCO,6BhB9jBV,uCgB8jBU;AACI,iCpBhpBV,gCoBgpBU;AACO;AACT,+BhBzjBV,yCgByjBU,yBhBsDkD,uBAAC,0CAAQ,wCAAT,CgBtDlD;AACA;AACA;AACG;AACL,6BfnUV,uCemUU;AACG,gChB1kBV,0CgB0kBU;AACQ,wChB3jBV,kDgB2jBU;AACM,8ChB5jBhB,kDgB4jBgB;AACD,6ChB7jBf,kDgB6jBe;AACZ,iChB7jBV,2CgB6jBU;AACE,mChB7jBV,6CgB6jBU;AACI,uChB7jBV,iDgB6jBU;AACR;AACH,4Bf3OV,sCe2OU;AACE;AACO;AACF,mChB9kBZ,2CgB8kBY;AACP;AACA;AACG,+BhB3fV,yCgB2fU;AACG;AACD,iCJlfV,wCIkfU;AACL;AACK;AACD;AACH,6BApsBF,6BAosBE;AACG;AACD;AACJ;AACI;AACF;AACO;AACF,kChB9lBX,2CgB8lBW;AACH,+BhB7hBN,6CgB6hBM;AACE,iChBxhBX,0CgBwhBW;AACC,kChBxhBP,+CgBwhBO;AACH,+BhB1hBT,0CgB0hBS;AACI,mChBhiBX,4CgBgiBW;AACF,iChBjiBT,4CgBiiBS;AACE,mChB9hBP,gDgB8hBO;AACC,oChBpiBX,6CgBoiBW;AACA,oChBriBX,6CgBqiBW;AACL,+BhBtiBN,6CgBsiBM;AACD,8BhBviBL,6CgBuiBK;AACI,kChB5hBP,+CgB4hBO;AACA,kChB9hBP,+CgB8hBO;AACD,iChB5hBP,8CgB4hBO;AACE,mChB9hBP,gDgB8hBO;AArFb;AAwFG;;;;AAEA;;;AAEV;AACA;AACA;AACA;AALU;AAumHsB;AAElC;AAEA,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,WAA0B;AAC1B,UAAI,EAAE,QAAN;AACE,UAAE,aAAa,CAAC,UAAU,SAAX;AAEf,YAAA,EAAE,gBAAgB,CAAC,SAAD;AAXc;AA9RD;AAAb;AAEpB;AAAK;AAEL,eAAU,QAAQ,cAAc,CAAC,MAAD;AAChC,YAAO,QAAQ,cAAc,CAAC,OAAD;AAC7B,YAAO,QAAQ,cAAc,CAAC,MAAD;AAC7B,YAAM,iBAAiB,CAAC,QAAU,2CAAX;AAEvB,SAAG,cAAC,OAAW,OAAZ;AACH,SAAG,cAAC,KAAS,YAAM,GAAE,IAAlB;AACH,SAAG,cAAC,OAAW,eAAZ;AACH,SAAG,cAAC,OAAW,OAAZ;AACH,SAAG,cAAC,WAAe,IAAhB;AACH,SAAG,iBAAiB,CAAC,QAAS,2CAAV;AAEpB,SAAG,cAAC,KAAS,YAAM,GAAE,KAAlB;AACH,SAAG,cAAC,QAAY,YAAb;AAEH,YAAM,YAAY,CAAC,GAAD;AAClB,YAAM,YAAY,CAAC,GAAD;AApBE;AAAa;AA0PF;AAE/B;AAEA,sBAAY;AAEZ,UAAY,mBAAD,QAAX;AAEE,aAAM;AACN,YAAY,EAAD,QAAX,EACsB,EAAG,QAAvB,GAAmC,MADrC;OAHF;AAN+B;AAcD;AAAV;AAEpB;AAGA,eAAU;AACV,UAAY,mBAAD,QAAX;AAEE,aAAM;AACN,YAAY,EAAD,QAAX,EACE,SAA8B,EAAG,QADnC;OAHF;AANoB;AAAU;AApLC;AAE/B;AAEA;AACA,UAAY,mBAAD,QAAX;AAEE,aAAM;AACN,YAAY,EAAD,QAAX,EACsB,EAAG,SAAvB,GAAoC,CAAI,KAD1C;OAHF;AAL+B;AAVA;AAE/B,UAAI,aAAQ,KAAG,MAAf;AAEsB,mEAAC,MAAD;AACpB,YAAW,CAAC,mBAAD,SAAY,IAAI,CAAI,kBAA/B,EACE,mBAAS,iBAAiB,UAA1B,GAAwC,MAD1C;OAHF;AAF+B;AAuBE;AAEjC,wBAAc;AACd;AAHiC;AA1EG;AAAhB;AAEpB;AAEA,UAAW,CAAC,mBAAD,SAAY,IAAI,aAA3B;AAEE,aAA0B;AAC1B,UAAE,QAAF,GAAc;OAHhB;AAKA,eAAU;AATU;AAAgB;AAYA;AAAhB;AAEpB;AACA,eAAU;AAHU;AAAgB;AAoHE;AAEtC;AAEA,UAAW,CAAC,mBAAD,SAAY,IAAI,CAAI,kBAA/B;AAEE,YAAI,iBAAY,KAAG,wCAAnB;AACiB,6BAAS,kBAAmB,MAAM,YAAY,CAAC,SAAS,MAAV;AAE7D,cAAe,mBAAS,kBAAmB,MAAM,eAAe,CAAC,QAAD;OALpE;AAJsC;AAjCA;AAEtC;AAGA;AACA,UAAY,mBAAD,QAAX;AAEE,YAAG,kBAAH;AACiB,iCAAc,cAAC,OAAW,eAAZ;;AAG7B,6BAAS,kBAAkB,cAAC,OAAW,eAAZ;AAC3B,gBAAkB,uBAAa;AACX,aAAI,SAAxB,GAAqC,CAAI;;AAG3C,YAAG,CAAI,kBAAP;AAEE,cAAI,aAAQ,KAAG,EAAf,EACE,mBAAS,iBAAiB,UAA1B,GAAwC,aAD1C;AAGA,iCAAa,aAAa,CAAC,WAAW,IAAZ;AAE1B,cAAG,aAAQ,IAAY,CAAC,GAAD,SAAvB,EACE,GAAG,aAAa,CAAC,WAAW,IAAZ,CADlB;SAPF;AAWA,YAAG,aAAH,EACE,mBAAS,aAAa,CAAC,WAAW,qBAAQ,CAAC,cAAD,CAApB,CADxB;OAtBF;AANsC;AA8CE;AAExC;AAAI;AACJ;AACA;AAEA;AAEA,UAAY,uBAAD,QAAX;AAGE,YAAG,CAAI,kBAAP;AAEE,gBAAkB,uBAAa;AAChB,aAAI,MAAM,YAAY,CAAC,eAAe,KAAhB;AAEtB,aAAI,MAAM,YAAY,CAAC,iBAAiB,QAAlB;AACtB,aAAI,MAAM,YAAY,CAAC,aAAa,KAAd;AAErC,cAAY,GAAD,QAAX;AAEE,gBAAG,4BAAwB,KAAG,EAA9B;AACE,iBAAG,aAAa,CAAC,QAAQ,4BAAT;AAEhB,kBAAA,GAAG,gBAAgB,CAAC,OAAD;WALvB;AAQA,gBAAkB,uBAAa;AAE/B,cAAY,GAAD,QAAX;AAEE,gBAAG,2BAAuB,KAAG,EAA7B;AACE,iBAAG,aAAa,CAAC,QAAQ,2BAAT;AAEhB,kBAAA,GAAG,gBAAgB,CAAC,OAAD;WALvB;SAlBF;AA2BA,YAAG,CAAI,aAAyB,IAAd,CAAI,eAAP,IAAsC,CAAjB,sBAAiB,KAAG,EAAH,CAArD,EACE,uBAAa,MAAM,YAAY,CAAC,UAAU,MAAX,CADjC;AAGA,YAAG,CAAI,kBAAP;AAEE,iCAAa,MAAM,YAAY,CAAC,cAAc,MAAf;AAC/B,iCAAa,MAAM,YAAY,CAAC,cAAc,QAAf;AAE/B,cAAG,qBAAgB,KAAE,kDAArB;AAEE,gBAAG,4BAAuB,KAAE,EAA5B;AAEiB,iBAAI,MAAM,YAAY,CAAC,QAAQ,MAAT;AAErC,kBAAG,iBAAY,KAAG,wCAAlB;AACiB,mBAAI,MAAM,YAAY,CAAC,SAAS,MAAV;AAErC,oBAAe,GAAI,MAAM,eAAe,CAAC,QAAD;AAC3B,iBAAI,MAAM,YAAY,CAAC,iBAAiB,QAAlB;AAErC,kBAAG,CAAe,gBAAH,eAAP,YAAO,CAAf;AAEiB,mBAAI,MAAM,YAAY,CAAC,aAAa,KAAd;AACtB,mBAAI,MAAM,YAAY,CAAC,gBAAgB,KAAjB;eAHvC;aAVF;AAiBA,kBAAO,iCAAa,CAAC,IAAD;AACpB,mBAAgB,CAAC,GAAD,SAAM,IAAoB,CAAf,GAAG,YAAY,KAAE,+CAAF,CAApB;AAEtB,gBAA0B,CAAtB,2BAAsB,KAAE,EAAF,CAAM,IAAG,IAAnC;AAEE,oBAAkB,mBAAS;AACZ,iBAAI,MAAM,YAAY,CAAC,iBAAiB,QAAlB;AACtB,iBAAI,MAAM,YAAY,CAAC,aAAa,MAAd;AACtB,iBAAI,MAAM,YAAY,CAAC,SAAS,MAAV;AACrC,kBAAG,CAAe,gBAAH,eAAP,YAAO,CAAf,EACiB,GAAI,MAAM,YAAY,CAAC,WAAW,UAAZ,CADvC;AAEe,iBAAI,MAAM,YAAY,CAAC,WAAW,QAAZ;AACtB,iBAAI,MAAM,YAAY,CAAC,UAAU,aAAX;AACtB,iBAAI,MAAM,YAAY,CAAC,cAAc,QAAf;aAVvC;WAtBF;SALF;OAjCF;AARwC;AAkHL;AAAf;AAEpB,UAAG,kBAAH;AACE,iBAAyB;AAEzB,qBAAyB,mBAAS;AALhB;AAAe;AAnON;AAE7B;AAEA;AACA,UAAG,QAAG,KAAE,GAAR;AAEE,aAA0B;AAC1B,UAAE,QAAF,GAAc;OAHhB;AAL6B;AAYC;AAE9B;AAEA,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,WAA0B;AAC1B,QAAE,QAAF,GAAc,MAAO,KAAE,GAAF;AARS;AAwCD;AAAT;AAEpB;AAEA,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,aADF;AAGA,WAA0B;AAE1B,UAAG,EAAE,QAAL;AACE,iBAAU;AAEV,qBAAU;AAZQ;AAAS;AA9DM;AAEnC,UAAI,QAAS,KAAE,+CAAf;AAEE,4BAAe,yCAAf;AACA,iCAAoB,cAApB;AACA,4BAAe,wCAAf;OAJF;AAFmC;AArDE;AAErC;AACA,oBAAS,EAAT;AAEA,UAAgB,CAAZ,2CAAY,IAAG,oBAAH,CAAmB,IAAa,CAAR,aAAQ,KAAE,EAAF,CAAhD,EACE,gBAAW,UAAX,CADF;AAGA,wBAAc;AACd,wBAAa,IAAb;AATqC;AA7zGzB;;;AA2BI,6BhBhpBV,uCgBgpBU;AACW;AACT,+BhB1oBV,yCgB0oBU,yBhB3BkD,uBAAC,0CAAQ,wCAAT,CgB2BlD;AACA;AACA;AACG;AACL,6BfpZV,uCeoZU;AACG,gChB3pBV,0CgB2pBU;AACQ,wChB5oBV,kDgB4oBU;AACM,8ChB7oBhB,kDgB6oBgB;AACD,6ChB9oBf,kDgB8oBe;AACZ,iChB9oBV,2CgB8oBU;AACE,mChB9oBV,6CgB8oBU;AACI,uChB9oBV,iDgB8oBU;AACR;AACH,4Bf5TV,sCe4TU;AACK;AACH;AACO;AACF,mChBhqBZ,2CgBgqBY;AACP;AACA;AACM;AACD,iCJnkBV,wCImkBU;AACL;AACK;AACD;AACA;AACD;AACA;AACF;AACO;AACF,kChB7qBX,2CgB6qBW;AACH,+BhB5mBN,6CgB4mBM;AACG,kChB7mBT,6CgB6mBS;AACD,iChBxmBX,0CgBwmBW;AACC,kChBxmBP,+CgBwmBO;AACH,+BhB1mBT,0CgB0mBS;AACI,mChBhnBX,4CgBgnBW;AACF,iChBjnBT,4CgBinBS;AACE,mChB9mBP,gDgB8mBO;AACC,oChBpnBX,6CgBonBW;AACA,oChBrnBX,6CgBqnBW;AACL,+BhBtnBN,6CgBsnBM;AACD,8BhBvnBL,6CgBunBK;AACI,kChB5mBP,+CgB4mBO;AACA,kChB9mBP,+CgB8mBO;AACD,iChB5mBP,8CgB4mBO;AACE,mChB9mBP,gDgB8mBO;AA3EV;AA8EG;;;;AAEP;;;AAEN;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAVM;;;;;;;AA8uHsB;AAE9B,yBAAe;AAFe;AA8GJ;AAE1B,qBAAW;AACC,iBAAM,UAAC,CAAU,KAAV;AAHO;AAxJF;AAAR;AAEhB,eAAU,WAAM,SAAC;AAFD;AAAQ;AAKc;AAAtB;AAEhB,eAA+B;AAFf;AAAsB;AA0DX;AAAX;AAEhB;AAEA,eAAU;AAEV,UAAY,mBAAD,QAAX;AAEE,iBAAS,QAAkB,OAAb,WAAM,SAAC,EAAM,GAAE,CAAF,kBAA3B;AAAI;AAEF,cAA6C,mBAAU,QAAQ,MAAC,CAAD,CAAI,SAAnE,EACM,MAAJ,IAAG,CADL;;OAJJ;AANgB;AAAW;AA8BF;AAAT;AAEhB;AACA;AAEA,UAAW,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,GAAE,WAAK,SAAC,EAAR,CAA7B;AAEE,aAA2B;AAC3B,cAA4B,EAAE,QAAQ,MAAC,MAAD;AACtC,iBAAU,GAAG,cAAC,OAAD;OAJf;AALgB;AAAS;AAiEC;AAE1B;AACA;AAEA,UAAW,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,GAAE,WAAK,SAAC,EAAR,CAA7B;AAEE,aAA2B;AAC3B,cAA4B,EAAE,QAAQ,MAAC,MAAD;AACtC,WAAG,cAAC,QAAY,KAAb;OAJL;AAL0B;AArQI;AAAd;AAEhB;AACA,eAAU;AAHM;AAAc;AA+TA;AAE9B;AAF8B;AAKD;AAE7B;AAAE;AACF;AACA;AAAE;AAAE;AAGJ,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,UAAG,iBAAH,EACE,MADF;AAGA,UAAG,uBAAa,QAAS,KAAG,QAA5B,EACE,MADF;AAGA,eAAwD,KAA1B,mBAAU,QAAQ,OAAQ,GAAE,CAAF,EAAW,aAAnE;AAAI;AACmB,2BAAU,OAAO,CAAC,CAAD;;AAExC,eAAS,SAAkB,OAAb,WAAM,SAAC,EAAM,GAAE,CAAF,oBAA3B;AAAI;AAEF,YAAK,WAAM,KAAC,CAAD;AACX,YAAK;AACL,YAAK;AACL,YAAK,cAAG,CAAC,WAAM,sBAAC,GAAmB,CAA3B;AAER,YAAG,CAAE,GAAE,CAAP;AAEE,cAAK,eAAI,CAAC,EAAE,EAAE,CAAC,GAAC,CAAP;AACT,cAAK,eAAI,CAAC,EAAE,CAAC,GAAC,CAAD,CAAG,MAAP;SAGT,UAAK;AAEP,cAA4B,IAArB,MAAqB,CAAI,CAAJ;AAC5B,YAAG,CAAE,KAAG,EAAR,EACE,GAAG,cAAC,QAAY,CAAb,CADL;AAGA,WAAG,cAAC,OAAW,UAAZ;AACH,YAAG,0BAAqB,KAAG,EAA3B,EACE,GAAG,cAAC,QAAY,0BAAb,CADL;AAGA,YAAG,cAAS,KAAE,4CAAd,EACE,GAAG,cAAC,YAAgB,MAAjB,CADL;AAEqB,2BAAU,IAAI,CAAC,GAAD;;AAIrC;AAhD6B;AAtMC;AAE9B;AAEA,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,UAAG,uBAAa,QAAS,KAAG,QAA5B,EACE,MADF;AAGA,eAAS,QAAoD,OAA1B,mBAAU,QAAQ,OAAQ,GAAE,CAAF,kBAA7D;AAAI;AAEF,YAA6C,mBAAU,QAAQ,MAAC,CAAD,CAAI,SAAnE;AAC4C,6BAAU,QAAQ,MAAC,CAAD,CAAI,aAAa,CAAC,WAAW,UAAZ;AAE7E,cAA0C,mBAAU,QAAQ,MAAC,CAAD,CAAI,gBAAgB,CAAC,UAAD;;AAftD;AAbF;AAAZ;AAEhB,eAAU;AACV,UAAY,mBAAD,QAAX,EACE,SAA+B,mBAAU,cAD3C;AAHgB;AAAY;AAtJC;AAAb;AAEhB,eAAU,QAAQ,cAAc,CAAC,QAAD;AAChC,YAAM,cAAC,OAAW,GAAZ;AAHU;AAAa;AA2NF;AAAX;AAEhB,UAAI,MAAO,GAAE,cAAS,SAAC,EAAvB;AACE,iBAAiB,EAAC,cAAS,IAAM,CAAC,MAAD,CAAhB;AAEjB,qBAAU;AAEZ,UAAG,uBAAa,QAAS,KAAG,QAA5B,EACE,aADF;AAGA,UAAW,CAAC,mBAAD,SAAY,IAAY,CAAP,MAAO,GAAuB,mBAAU,QAAQ,OAAzC,CAAnC,EACE,SAAoD,mBAAU,QAAQ,MAAC,MAAD,CAAS,SADjF;AAVgB;AAAW;AA4DC;AAE5B,aAAO,MAAO,IAAG,cAAS,SAAC,EAA3B,EACE,cAAS,IAAI,CAAC,KAAD;AAEf,oBAAS,IAAM,CAAC,OAAW,MAAZ;AAEf,UAAY,mBAAD,QAAX;AAE4C,2BAAU,QAAQ,MAAC,MAAD,CAAS,SAArE,GAAkF;OAFpF;AAP4B;AAhJH;AAEzB,iBAAM,OAAO,CAAC,MAAD;AAFY;AAoDI;AAE7B,UAAG,eAAW,KAAG,MAAjB;AAEE,0BAAc;AACd;OAHF;AAF6B;AASE;AAE/B,0BAAgB;AAChB,UAAY,mBAAD,QAAX,EACuB,mBAAU,SAA/B,GAA4C,MAD9C;AAH+B;AA2DR;AAEvB;AACA;AACA;AAJuB;AAwDW;AAElC;AACA;AAEA;AAEA,UAAY,6BAAD,QAAX;AAEE,qCAAmB,MAAM,YAAY,CAAC,WAAY,MAAb;AACrC,YAAG,CAAI,iBAAP;AACE,uCAAmB,cAAnB,GAAqC;;AAGrC,mBAAS,QAAkB,OAAb,WAAM,SAAC,EAAM,GAAE,CAAF,kBAA3B;AAAI;AAEF,gBAAG,cAAS,SAAC,EAAM,GAAE,CAArB;AAEE,kBAAY,EAAC,cAAS,IAAM,CAAC,CAAD,CAAhB;AACZ,kBAAY,mBAAD,QAAX,EAC4C,mBAAU,QAAQ,MAAC,CAAD,CAAI,SAAhE,GAA6E,CAD/E;aAHF;;;OATN;AAPkC;AA2BE;AAEpC;AAEA,UAAY,6BAAD,QAAX;AAEE,qCAAmB,MAAM,YAAY,CAAC,WAAY,MAAb;AACrC,qCAAmB,cAAC,OAAW,SAAZ;AACnB,qCAAmB,cAAC,YAAgB,MAAjB;OAJrB;AAJoC;AAYP;AAE7B;AACA;AAH6B;AA9SF;AAE3B;AACA,UAAY,uBAAD,QAAX;AAEE,+BAAa,iBAAiB,CAAC,SAAU,qBAAX;OAFhC;AAH2B;AASE;AAE7B;AACA,UAAY,uBAAD,QAAX;AAEE,+BAAa,oBAAoB,CAAC,SAAU,qBAAX;OAFnC;AAH6B;AAUN;AAEvB,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAFuB;AAmCE;AAAT;AAEhB;AACA;AAEA,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,YAAG,gBAAQ,CAAC,CAAD,CAAX;AACE,cAAK,CAAE,GAAE,IAAF;AAEP,kBAAK,CAAE,GAAE,IAAF;;AAEX,uBAAM,CAAC;;;;WAAE,EAAE,CAAL;AACN,eAAU;AAbM;AAAS;AAgKC;AAE1B;AACA;AAEA,WAAM,uBAAW,QAAC;AAClB,QAAE,aAAC,CAAa,GAAb;AACH,QAAE,aAAC,CAAa,MAAb;AAEH,eAAS,QAAc,OAAT,EAAE,SAAC,EAAM,GAAE,CAAF,kBAAvB;AAAI;AAEF,wBAAQ,CAAC,EAAM,EAAE,IAAQ,CAAC,CAAD,CAAI,KAAE,GAAvB;;AAGV,QAAG,eAAH,EAAG;AAduB;AAsJC;AAE3B;AAEA,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,eAAS,QAAoD,OAA1B,mBAAU,QAAQ,OAAQ,GAAE,CAAF,kBAA7D;AAAI;AACwC,2BAAU,QAAQ,MAAC,CAAD,CAAI,aAAM,CAAC,YAAgB,MAAjB;;AAR7C;AAlYC;AAE5B;AAEA,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,eAAS,QAAoD,OAA1B,mBAAU,QAAQ,OAAQ,GAAE,CAAF,kBAA7D;AAAI;AACwC,2BAAU,QAAQ,MAAC,CAAD,CAAI,aAAM,CAAC,YAAgB,OAAjB;;AAR5C;AAsDQ;AAEpC;AACA,8BAAoB;AAHgB;AA6EF;AAElC;AACA,8BAAqB;AAHa;AAyFH;AAE/B,UAAI,QAAS,KAAE,+CAAf;AAEE,4BAAe,yCAAf;AACA,iCAAoB,cAApB;OAHF;AAF+B;AAvQE;AAEjC;AACA,oBAAU,uBAAW,QAAC;AACtB,iBAAM,qBAAC,CAAqB,IAArB;AACK,iBAAO,UAAnB,GAAgC;AAChC,0BAAgB;AAChB,uBAAa,iBAAK,QAAC;AACnB,wBAAc,CAAC;AACf,wBAAa,IAAb;AACA,UAAI,2CAAY,IAAG,oBAAnB;AAEE,sBAAS,GAAT;AACA,uBAAU,GAAV;OAHF;AAViC;AAoCR;AAElB,eAAP,KAAO;AACG,eAAV,KAAU;AACV;AAJyB;AAoZC;AAE1B;AACA;AAH0B;AAjVK;AAE/B;AAEA,wBAAa,CAAC,CAAd;AAEA,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,UAAG,uBAAa,QAAS,KAAG,QAA5B,EACE,MADF;AAGA,eAAS,QAAoD,OAA1B,mBAAU,QAAQ,OAAQ,GAAE,CAAF,kBAA7D;AAAI;AACwC,2BAAU,QAAQ,MAAC,CAAD,CAAI,SAAhE,GAA6E;;AAbhD;AAgCL;AAE1B;AAEA,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,UAAG,uBAAa,QAAS,KAAG,QAA5B,EACE,MADF;AAGA,eAAS,QAAoD,OAA1B,mBAAU,QAAQ,OAAQ,GAAE,CAAF,kBAA7D;AAAI;AAEF,wBAAQ,CAAC,EAAM,IAAP;AACkC,2BAAU,QAAQ,MAAC,CAAD,CAAI,SAAhE,GAA6E;;AAbrD;AAhHK;AAE/B;AAEA,iBAAK;AACL,eAAqB,KAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,EAAW,aAAhC;AAAI;AAEF,YAAG,gBAAQ,CAAC,CAAD,CAAX,EACE,WAAK,OAAO,CAAC,CAAD,CADd;;AAGF,iBAAK;AAV0B;AAqCP;AAExB,iBAAM,UAAU,CAAC,KAAM,OAAP;AAFQ;AA8BF;AAEtB;AACA,iBAAM;AACN;AAJsB;AAjoHd;;;AA4DQ,6BhBjwBV,uCgBiwBU;AACW;AACT,+BhB3vBV,yCgB2vBU,yBhB5IkD,uBAAC,0CAAQ,wCAAT,CgB4IlD;AACC,gChBtrBV,0CgBsrBU;AACG,mChBnwBV,6CgBmwBU;AACD;AACL,6BfrgBV,uCeqgBU;AACG,gChB5wBV,0CgB4wBU;AACJ,4BftaV,sCesaU;AACY,wChB9vBV,kDgB8vBU;AACI;AACX,iChB/vBV,2CgB+vBU;AACE,mChB/vBV,6CgB+vBU;AACI,uChB/vBV,iDgB+vBU;AACR;AACD;AACO;AACF,mChB/wBZ,2CgB+wBY;AACP;AACM;AACD;AACJ,6BpBtqBR,8BoBsqBQ;AACD;AACO;AACA;AACD;AACD,iCJvrBV,wCIurBU;AACL;AACK;AACD;AACA;AACD;AACM,qChB7wBV,+CgB6wBU;AACV;AACI;AACF;AACO;AACF,kChBnyBX,2CgBmyBW;AACF,gChBluBP,6CgBkuBO;AACD,+BhBnuBN,6CgBmuBM;AACG,kChBpuBT,6CgBouBS;AACD,iChB/tBX,0CgB+tBW;AACC,kChB/tBP,+CgB+tBO;AACH,+BhBjuBT,0CgBiuBS;AACI,mChBvuBX,4CgBuuBW;AACF,iChBxuBT,4CgBwuBS;AACE,mChBruBP,gDgBquBO;AACC,oChB3uBX,6CgB2uBW;AACA,oChB5uBX,6CgB4uBW;AACA,oChB3uBP,iDgB2uBO;AACL,+BhB9uBN,6CgB8uBM;AACD,8BhB/uBL,6CgB+uBK;AACI,kChBpuBP,+CgBouBO;AACA,kChBtuBP,+CgBsuBO;AACD,iChBpuBP,8CgBouBO;AACE,mChBtuBP,gDgBsuBO;AAnHd;AAsHG;;;;AAEG;;AAEC;;;AAEb;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAnBa;;;;;;;;AAmlIe;AAAP;AAEvB;AACA;AAAM;AAEN,eAAU;AACV,UAAG,WAAM,KAAE,8BAAX;AAEE,YAAY,uBAAD,QAAX,EACE,SAA8B,uBAAc,MAD9C;OAIA,UAAI,mBAAU,IAAG,CAAjB;AAEE,YAAI,mBAAU,GAAE,WAAK,SAAC,EAAtB;AAEE,qBAAK,aAAa,CAAC,oBAAW;;;;eAAO;;;;cAAnB;AAClB,cAAU,CAAN,KAAM,KAAG,EAAH,CAAO,IAAY,CAAP,MAAO,KAAG,EAAH,CAA7B;AACE,qBAAU;AAEV,yBAAU,WAAK,KAAC,mBAAD;;AAIjB,cAAG,kBAAH;AAEE,gBAAG,mBAAU,GAAE,uBAAa,kBAA5B;AAEE,mBAAqB,uBAAa,SAAS,MAAC,mBAAD;AAC3C,kBAAG,EAAE,QAAS,KAAE,QAAhB,EACE,SAAU,EAAE,UADd;aAHF;WAFF;;OAZJ;AAZqB;AAAO;AA3HC;AAE/B;AACA;AAAO;AAEP,UAAG,WAAM,KAAE,8BAAX;AAEE,qBAAS;AACT;;AAIA,iBAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,qBAAK,aAAa,CAAC,EAAG;;;;eAAO;;;;cAAX;AAElB,cAAU,CAAN,KAAM,KAAE,WAAK,KAAC,CAAD,CAAP,CAAY,IAAU,CAAN,KAAM,KAAE,KAAF,CAAhC,EACE,kBAAa,CAAb,CADF;;;AAhB2B;AAVC;AAEhC,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACV,YAAG,CAAI,kBAAP,EACE,sBADF;OAHF;AAFgC;AA+QM;AAEtC,0BAAgB;AAFsB;AA5KO;AAAtB;AAEvB,eAA+B;AAFR;AAAsB;AAnEV;AAEnC,UAAI,cAAU,KAAG,KAAjB;AAEE,yBAAa;AACb;OAHF;AAFmC;AA0IH;AAAT;AAEvB;AACA;AAEA,UAAW,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,GAAE,WAAK,SAAC,EAAR,CAA7B;AAEE,aAA2B;AAC3B,cAA4B,EAAE,QAAQ,MAAC,MAAD;AACtC,iBAAU,GAAG,cAAC,OAAD;OAJf;AALuB;AAAS;AAjIC;AAEjC;AACA;AAEA,UAAW,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,GAAE,WAAK,SAAC,EAAR,CAA7B;AAEE,aAA2B;AAC3B,cAA4B,EAAE,QAAQ,MAAC,MAAD;AACtC,WAAG,cAAC,QAAY,KAAb;OAJL;AALiC;AAxDE;AAEnC,UAAI,cAAU,KAAG,KAAjB;AAEE,yBAAa;AACb;OAHF;AAFmC;AASF;AAErB,iBAAM,UAAC,CAAU,IAAV;AACnB,qBAAW;AAHsB;AA8MI;AAAd;AAEvB;AAEA,eAAU;AACV,UAAG,kBAAc,KAAG,EAApB;AAEsB,+BAAc,kBAAkB,CAAC,EAAD;OAFtD;AAKA,eAAU;AAVa;AAAc;AA2BD;AAAb;AAEvB,UAAG,WAAM,KAAE,8BAAX,EACE,aADF;AAEA,eAAU;AAJa;AAAa;AAdE;AAAf;AAEvB,UAAY,eAAD,QAAX,EACE,eAAS,CAAC,IAAD,CADX;AAEA,eAAU;AAJa;AAAe;AAOC;AAAhB;AAEvB,UAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,IAAD,CADZ;AAEA,eAAU;AAJa;AAAgB;AAcD;AAAf;AAEH,6BAAc,kBAAkB,CAAC,kBAAD;AACpD,eAAU;AAHa;AAAe;AAuDD;AAErC;AAFqC;AA1VM;AAE3C;AACA,8BAAoB;AACpB,6BAAmB;AACnB,+BAAqB;AALsB;AAoLF;AAEzC;AACA,8BAAqB;AACrB,6BAAoB;AACpB,+BAAsB;AACtB,gCAAuB;AACvB,+BAAsB;AAPmB;AA2KN;AAEnC;AAGA,UAAa,CAAT,cAAS,KAAG,EAAH,CAAO,IAAW,CAAN,WAAM,KAAE,kCAAF,CAA/B;AAEE,cAAO,QAAQ,cAAc,CAAC,QAAD;AAC7B,WAAG,cAAC,QAAY,EAAb;AACH,WAAG,cAAC,WAAe,MAAhB;AACH,WAAG,cAAC,WAAe,MAAhB;AACH,WAAG,cAAC,SAAa,MAAd;AACH,WAAG,UAAH,GAAiB;AACjB,2BAAS,YAAY,CAAC,GAAD;OARvB;AALmC;AAiBC;AAEpC;AAAE;AACF;AAAE;AAAE;AACJ;AACA;AAEA,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,UAAG,uBAAa,QAAS,KAAE,OAA3B;AAEsB,+BAAc,MAAlC,GAA4C;AAE5C,aAAM,QAAQ,eAAe,CAAC,UAAI,GAAC,OAAN;AAC7B,YAAY,EAAD,QAAX,EACE,EAAE,WAAW,YAAY,CAAC,EAAD,CAD3B;AAGA,YAAG,cAAS,KAAG,EAAf,EACsB,uBAAc,YAAlC,GAAkD,cADpD;AAGA,aAAM,QAAQ,cAAc,CAAC,UAAD;AAC5B,UAAE,cAAC,KAAS,cAAV;AACF,gBAAQ,KAAK,YAAY,CAAC,EAAD;AAEzB,iBAAS,QAAkB,OAAb,WAAM,SAAC,EAAM,GAAE,CAAF,kBAA3B;AAAI;AAEF,cAAK,WAAM,KAAC,CAAD;AACX,gBAAO,QAAQ,cAAc,CAAC,QAAD;AAE7B,cAAK;AACL,cAAK;AACL,cAAK,cAAG,CAAC,WAAM,sBAAC,GAAmB,CAA3B;AAER,cAAG,CAAE,GAAE,CAAP;AAEE,gBAAK,eAAI,CAAC,EAAE,EAAE,CAAC,GAAC,CAAP;AACT,gBAAK,eAAI,CAAC,EAAE,CAAC,GAAC,CAAD,CAAG,MAAP;WAHX;AAMA,aAAG,cAAC,QAAY,CAAb;AACH,aAAG,UAAH,GAAiB;AACjB,YAAE,YAAY,CAAC,GAAD;;;AAMhB,YAAG,uBAAa,QAAS,KAAG,QAA5B,EACE,MADF;AAGA,iBAAwD,MAA1B,mBAAU,QAAQ,OAAQ,GAAE,CAAF,EAAW,eAAnE;AAAI;AACmB,6BAAU,OAAO,CAAC,CAAD;;AAExC;AAEA,iBAAS,SAAkB,QAAb,WAAM,SAAC,EAAM,GAAE,CAAF,qBAA3B;AAAI;AAEF,cAAK,WAAM,KAAC,CAAD;AACX,gBAAO,QAAQ,cAAc,CAAC,QAAD;AAE7B,cAAK;AACL,cAAK;AACL,cAAK,cAAG,CAAC,WAAM,sBAAC,GAAmB,CAA3B;AAER,cAAG,CAAE,GAAE,CAAP;AAEE,gBAAK,eAAI,CAAC,EAAE,EAAE,CAAC,GAAC,CAAP;AACT,gBAAK,eAAI,CAAC,EAAE,CAAC,GAAC,CAAD,CAAG,MAAP;WAHX;AAMA,aAAG,cAAC,QAAY,CAAb;AACH,aAAG,UAAH,GAAiB;AACjB,6BAAS,YAAY,CAAC,GAAD;;;AAIzB;AA7EoC;AAjEH;AAEjC;AAAI;AAEJ,sBAAG,CAAC,OAAQ;;;;WAAK;;;;UAAd;AACH,UAAG,CAAE,KAAE,CAAP,EACE,kBAAa,GAAb,CADF;AALiC;AAoBD;AAAT;AAEvB,eAAU,qBAAQ,CAAC,mBAAD;AAFK;AAAS;AAlKG;AAAZ;AAEvB,UAAG,WAAM,KAAE,8BAAX;AAEE,iBAAU,WAAK,QAAQ,CAAC,cAAD;;AAIvB,iBAAU;AAEV,YAAY,mBAAD,QAAX;AAEE,mBAA+B,mBAAU;AACzC,cAAG,cAAS,KAAG,EAAf,EACE,SAAU,MAAO,GAAE,CADrB;SAHF;;AAVqB;AAAY;AA9IC;AAAb;AAEvB,UAAG,WAAO,KAAE,kCAAZ;AACE,iBAAU,QAAQ,cAAc,CAAC,QAAD;;AAGhC,iBAAU,QAAQ,cAAc,CAAC,OAAD;AAChC,yBAAa,UAAI,GAAC,OAAD;AACjB,cAAM,cAAC,OAAW,cAAZ;;AARe;AAAa;AAtDF;AAElC;AACA,UAAY,uBAAD,QAAX;AAEE,+BAAa,iBAAiB,CAAC,QAAS,oBAAV;AAC9B,+BAAa,iBAAiB,CAAC,SAAU,qBAAX;AAE9B,+BAAa,iBAAiB,CAAC,UAAW,sBAAZ;AAC9B,+BAAa,iBAAiB,CAAC,WAAY,uBAAb;AAE9B,+BAAa,iBAAiB,CAAC,UAAW,sBAAZ;OARhC;AAHkC;AAeE;AAEpC;AACA,UAAY,uBAAD,QAAX;AAEE,+BAAa,oBAAoB,CAAC,QAAS,oBAAV;AACjC,+BAAa,oBAAoB,CAAC,SAAU,qBAAX;AAEjC,+BAAa,oBAAoB,CAAC,UAAW,sBAAZ;AACjC,+BAAa,oBAAoB,CAAC,WAAY,uBAAb;AAEjC,+BAAa,oBAAoB,CAAC,UAAW,sBAAZ;OARnC;AAHoC;AAmIK;AAEzC;AAEA;AAEA,UAAG,cAAH;AACE,+BAAa,aAAa,CAAC,WAAW,EAAZ;AAE1B,gBAAG,CAAI,kBAAP,EACE,uBAAa,gBAAgB,CAAC,UAAD,CAD/B;AAGF,UAAG,WAAM,KAAE,8BAAX;AAEE,YAAY,uBAAD,QAAX;AAEsB,iCAAc,MAAlC,GAA4C;AAE5C,2BAAa,UAAI,GAAC,OAAD;AACjB,iCAAa,cAAC,OAAW,cAAZ;SALf;OASA,UAAY,6BAAD,QAAX;AAEE,YAAK;AACL,YAAI,cAAS,KAAG,EAAhB,EACE,IAAK,CADP;AAGA,qCAAmB,cAAnB,GAAqC,eAAW,GAAE,CAAF;AAChD,qCAAmB,cAAC,OAAW,UAAZ;OAPrB;AAvBuC;AAkCE;AAE3C;AAF2C;AAKP;AAEpC;AACA;AAHoC;AAjHJ;AAEhC,iBAAM,OAAO,CAAC,MAAD;AAFmB;AAwSI;AAEpC,UAAI,eAAW,KAAG,MAAlB;AAEE,0BAAc;AAEd,YAAW,CAAP,MAAO,IAAG,CAAH,CAAkD,IAAjC,CAAN,WAAM,IAAG,cAAC,+BAAY,kCAAb,CAAH,CAAX,IAAwD,CAAP,MAAO,GAAE,WAAK,SAAC,EAAR,CAAzE,EACE,aAAS,WAAK,KAAC,MAAD,CADhB;AAGA;OAPF;AAFoC;AApCN;AAE9B;AACA;AAH8B;AA/CA;AAE9B,wBAAc;AACd,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAH8B;AA8DO;AAErC;AAEA;AAEA,YAAsB,uBAAa,SAAS,MAAC,mBAAD;AAC5C,UAAY,GAAD,QAAX,EACE,GAAG,aAAa,CAAC,WAAW,UAAZ,CADlB;AAPqC;AAxEC;AAEtC,UAAI,QAAS,KAAE,+CAAf;AAEE,4BAAe,yCAAf;AACA,iCAAoB,aAApB;AACA,4BAAe,wCAAf;OAJF;AAFsC;AAxOE;AAExC;AACA,oBAAU,uBAAW,QAAC;AACV,iBAAO,UAAnB,GAAgC;AAChC,wBAAc,CAAC;AACf,oBAAU;AACV,wBAAa,IAAb;AACA,qBAAU,EAAV;AARwC;AAuBR;AAEzB,eAAP,KAAO;AACP;AAHgC;AApCH;AAE7B,iBAAK;AAFwB;AAnCE;AAE/B,iBAAM,UAAU,CAAC,KAAM,OAAP;AAFe;AA72HhB;;;AA+GN;;;;AAEO,6BhBh7BV,uCgBg7BU;AACW;AACT,+BhB16BV,yCgB06BU,yBhB3TkD,uBAAC,0CAAQ,wCAAT,CgB2TlD;AACC,gChBr2BV,0CgBq2BU;AACG,mChBl7BV,6CgBk7BU;AACD;AACL,6BfprBV,uCeorBU;AACG,gChB37BV,0CgB27BU;AACQ,wChB56BV,kDgB46BU;AACP,iChB56BV,2CgB46BU;AACE,mChB56BV,6CgB46BU;AACI,uChB56BV,iDgB46BU;AACR;AACH,4Bf1lBV,sCe0lBU;AACE;AACO;AACF,mChB77BZ,2CgB67BY;AACP;AACK;AACJ,6BpBn1BR,8BoBm1BQ;AACD;AACK,iChBh4BR,6CgBg4BQ;AACC,kChBj4BT,6CgBi4BS;AACA;AACF;AACI;AACR;AACK;AACD;AACH,6BAhJF,6BAgJE;AACG;AACD;AACH;AACS,qChB77BV,+CgB67BU;AACL;AACL;AACI;AACF;AACO;AACF,kChBp9BX,2CgBo9BW;AACF,gChBn5BP,6CgBm5BO;AACD,+BhBp5BN,6CgBo5BM;AACG,kChBr5BT,6CgBq5BS;AACD,iChBh5BX,0CgBg5BW;AACC,kChBh5BP,+CgBg5BO;AACH,+BhBl5BT,0CgBk5BS;AACI,mChBx5BX,4CgBw5BW;AACF,iChBz5BT,4CgBy5BS;AACE,mChBt5BP,gDgBs5BO;AACC,oChB55BX,6CgB45BW;AACA,oChB75BX,6CgB65BW;AACL,+BhB95BN,6CgB85BM;AACD,8BhB/5BL,6CgB+5BK;AACI,kChBp5BP,+CgBo5BO;AACA,kChBt5BP,+CgBs5BO;AACD,iChBp5BP,8CgBo5BO;AACE,mChBt5BP,gDgBs5BO;AA1Db;AA6DG;;;;AAED;AA0qIyB;;AAEpC;AAEa;AAGf;AAEI,YAAG,GAAH,EACE,KAAI,OAAM,IAAI,CAAC,CAAD,CADhB;AALW;AAUb;AAGF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,SAAG,CAAC,OAAD;AACH,SAAG,CAAC,aAAD;AACH,SAAG,CAAC,cAAD;AACH,SAAG,CAAC,SAAD;AACH,SAAG,CAAC,aAAD;AACH,SAAG,CAAC,SAAD;AACH,SAAG,CAAC,gBAAD;AACH,SAAG,CAAC,QAAD;AACH,SAAG,CAAC,kBAAD;AACH,SAAG,CAAC,SAAD;AACH,SAAG,CAAC,QAAD;AACH,SAAG,CAAC,OAAD;AACH,SAAG,CAAC,iBAAD;AACH,SAAG,CAAC,cAAD;AACH,SAAG,CAAC,SAAD;AACH,SAAG,CAAC,QAAD;AAhFiC;AA1qIzB;;;AAKK,6BhBl/BV,uCgBk/BU;AACW;AACX,6BflvBV,uCekvBU;AACW,wChBz+BV,kDgBy+BU;AACP,iChBz+BV,2CgBy+BU;AACE,mChBz+BV,6CgBy+BU;AACI,uChBz+BV,iDgBy+BU;AACR;AACH,4BfvpBV,sCeupBU;AACE;AACF;AACK;AACL;AACI;AACA;AACD;AACH;AACD;AACI;AACF;AACO;AACJ,gChBl8BP,6CgBk8BO;AACD,+BhBn8BN,6CgBm8BM;AACG,kChBp8BT,6CgBo8BS;AACD,iChB/7BX,0CgB+7BW;AACC,kChB/7BP,+CgB+7BO;AACH,+BhBj8BT,0CgBi8BS;AACI,mChBv8BX,4CgBu8BW;AACF,iChBx8BT,4CgBw8BS;AACE,mChBr8BP,gDgBq8BO;AACC,oChB38BX,6CgB28BW;AACA,oChB58BX,6CgB48BW;AACL,+BhB78BN,6CgB68BM;AACD,8BhB98BL,6CgB88BK;AAtCN;AAyCG;;;;AAEK;;AAEJ;;;AAEb;AAFa;AA6vIsB;AAErC,yBAAe;AACf;AAHqC;AArCT;AAE5B,iBAAK;AAEA;AACH,UADG,IACH;AAEE,mBAAK,IAAI,CAAC,GAAD;AACT,mBAAK,IAAI,CAAC,GAAD;AACT,mBAAK,IAAI,CAAC,IAAD;AACT,mBAAK,IAAI,CAAC,IAAD;AACT,mBAAK,IAAI,CAAC,IAAD;AACT,mBAAK,IAAI,CAAC,IAAD;AACT,mBAAK,IAAI,CAAC,IAAD;AACT,mBAAK,IAAI,CAAC,IAAD;AACT,mBAAK,IAAI,CAAC,IAAD;AACT,mBAAK,IAAI,CAAC,IAAD;AACT,mBAAK,IAAI,CAAC,IAAD;AACT,mBAAK,IAAI,CAAC,IAAD;AACT,mBAAK,IAAI,CAAC,IAAD;AACT,mBAAK,IAAI,CAAC,IAAD;AACT,mBAAK,IAAI,CAAC,IAAD;AACT,mBAAK,IAAI,CAAC,IAAD;OAEX,UApBG,IAoBH;AAEE,mBAAK,IAAI,CAAC,GAAD;AACT,mBAAK,IAAI,CAAC,GAAD;AACT,mBAAK,IAAI,CAAC,IAAD;AACT,mBAAK,IAAI,CAAC,IAAD;AACT,mBAAK,IAAI,CAAC,IAAD;AACT,mBAAK,IAAI,CAAC,IAAD;AACT,mBAAK,IAAI,CAAC,IAAD;OARX;AAxB0B;AANY;AAExC;AACA,yBAAc,oCAAd;AAHwC;AAltIzB;;;AAUC,6BhBpiCV,uCgBoiCU;AACW;AACX,6BfpyBV,uCeoyBU;AACW,wChB3hCV,kDgB2hCU;AACP,iChB3hCV,2CgB2hCU;AACE,mChB3hCV,6CgB2hCU;AACI,uChB3hCV,iDgB2hCU;AACR;AACH,4BfzsBV,sCeysBU;AACE;AACO;AACF,mChB5iCZ,2CgB4iCY;AACP;AACK;AACL;AACM,kCA3BF,kCA2BE;AACF;AACA;AACD;AACH;AACD;AACI;AACF;AACO;AACF,kChBzjCX,2CgByjCW;AACF,gChBx/BP,6CgBw/BO;AACD,+BhBz/BN,6CgBy/BM;AACG,kChB1/BT,6CgB0/BS;AACD,iChBr/BX,0CgBq/BW;AACC,kChBr/BP,+CgBq/BO;AACH,+BhBv/BT,0CgBu/BS;AACI,mChB7/BX,4CgB6/BW;AACF,iChB9/BT,4CgB8/BS;AACE,mChB3/BP,gDgB2/BO;AACC,oChBjgCX,6CgBigCW;AACA,oChBlgCX,6CgBkgCW;AACL,+BhBngCN,6CgBmgCM;AACD,8BhBpgCL,6CgBogCK;AA/CF;AAkDG;AAyrLyB;AAE3C;AACA,iBAAK;AACL,iBAAK,IAAI,CAAC,GAAD;AACT,iBAAK,IAAI,CAAC,KAAD;AACT,iBAAK,IAAI,CAAC,GAAD;AANkC;AAzrLzB;;;AAOF,6BhBnlCV,uCgBmlCU;AACW;AACX,6Bfn1BV,uCem1BU;AACW,wChB1kCV,kDgB0kCU;AACP,iChB1kCV,2CgB0kCU;AACE,mChB1kCV,6CgB0kCU;AACI,uChB1kCV,iDgB0kCU;AACR;AACH,4BfxvBV,sCewvBU;AACE;AACO;AACF,mChB3lCZ,2CgB2lCY;AACP;AACK;AACL;AACI;AACA;AACD;AACH;AACD;AACI;AACF;AACO;AACF,kChBvmCX,2CgBumCW;AACF,gChBtiCP,6CgBsiCO;AACD,+BhBviCN,6CgBuiCM;AACG,kChBxiCT,6CgBwiCS;AACD,iChBniCX,0CgBmiCW;AACC,kChBniCP,+CgBmiCO;AACH,+BhBriCT,0CgBqiCS;AACI,mChB3iCX,4CgB2iCW;AACF,iChB5iCT,4CgB4iCS;AACE,mChBziCP,gDgByiCO;AACC,oChB/iCX,6CgB+iCW;AACA,oChBhjCX,6CgBgjCW;AACL,+BhBjjCN,6CgBijCM;AACD,8BhBljCL,6CgBkjCK;AA3CC;AA+CA;;;;AAIP;;;AAET;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAvBS;;;;;;;AAkoJe;AAAP;AAEnB,UAAY,4BAAD,QAAX;AAEE,4BAAgB;AAChB,mBAAM,WAAC,CAAQ,4BAAkB,MAA1B;AACP,4BAAgB;OAJlB;AAOA,eAAU,WAAM,WAAC;AATE;AAAO;AAvLC;AAE3B,iBAAM,WAAC,CAAQ,KAAR;AAFoB;AA3BK;AAEhC,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd;OAHF;AAFgC;AASD;AAE/B,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAF+B;AArEA;AAE/B,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAF+B;AAqXS;AAArB;AAEnB,eAA8B;AAFX;AAAqB;AApVT;AAE/B,UAAI,cAAU,KAAG,KAAjB;AAEE,yBAAa;AACb;OAHF;AAF+B;AAmWA;AAAZ;AAEnB,eAAU,CAAC;AACX,UAAY,4BAAD,QAAX,EACE,SAAU,4BAAkB,aAAc,GAAE,4BAAkB,eADhE;AAHmB;AAAY;AAOD;AAAX;AAEnB,eAAU,CAAC;AACX,UAAY,4BAAD,QAAX,EACE,SAAU,4BAAkB,eAD9B;AAHmB;AAAW;AA/SC;AAE/B,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAF+B;AArGM;AAErC,UAAI,oBAAgB,KAAG,KAAvB;AAEE,+BAAmB;AACnB;OAHF;AAFqC;AAuFJ;AAEjC,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf;OAHF;AAFiC;AAwBF;AAE/B,UAAI,cAAU,KAAG,KAAjB;AAEE,yBAAa;AACb;OAHF;AAF+B;AASA;AAE/B,UAAI,cAAU,KAAG,KAAjB;AAEE,yBAAa;AACb;OAHF;AAF+B;AA4PD;AAAX;AAEnB,qBAAU,eAAV;AAFmB;AAAW;AApVC;AAE/B,mBAAQ,CAAC,KAAK,GAAI,KAAK,EAAf;AAFuB;AA4BE;AAEjC,UAAI,gBAAY,KAAG,KAAnB;AAEE,2BAAe;AACf;OAHF;AAFiC;AA+VJ;AAAV;AAEnB,eAAU;AACV,UAAY,4BAAD,QAAX,EACE,SAAkC,4CAAN,CAAlB,iCAAkB;;;;WAAiB,mBAAU,kBAAS,GAAE,mBAAhC,CADpC;AAHmB;AAAU;AAxWE;AAE/B,UAAI,cAAU,KAAG,KAAjB;AAEE,yBAAa;AACb;OAHF;AAF+B;AAmRE;AAAd;AAEnB,eAAU;AAFS;AAAc;AAlCC;AAAf;AAEnB;AAEA,UAA0B,CAAtB,eAAU,CAAC,KAAK,KhBrzKwC,IgBqzK9C,CAAY,KAAE,CAAF,CAAK,IAAI,cAAnC;AAEE,aAAM;AAGV;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;OAII;AArBiB;AAAe;AAhYF;AAAb;AAEnB,eAAU,QAAQ,cAAc,CAAC,UAAD;AAFb;AAAa;AA0BA;AAAb;AAEnB;AACA;AAEA,YAAO;AAET;AACA;AACA;AACA;AACA;AAGE,UAAG,GAAI,IAAI,CAAI,aAAQ,CAAC,CAAD,CAAvB;AAGF;AACA;OAJE;AAQA,eAAS;AAtBU;AAAa;AA3HF;AAAX;AAEnB,UAAG,CAAI,aAAP;AAGF;AACA;OAJE;AAQA,eAAU;AAVS;AAAW;AA4GE;AAAb;AAEnB;AACA;AACA,UAAG,cAAH,EACE,iBADF;AAEA,eAAU;AANS;AAAa;AAzHC;AAAd;AAEnB,uBAAa;AACb;AAEA,UAAG,kBAAc,KAAG,EAApB;AAEE,oCAAkB,kBAAkB,CAAC,EAAD;OAFtC;AAKA,eAAU;AAVS;AAAc;AAkIC;AAAf;AAEnB,kCAAkB,kBAAkB,CAAC,kBAAD;AACpC,eAAU;AAHS;AAAe;AAmZL;AAAV;AAEnB,eAAU;AAFS;AAAU;AAUI;AAEjC,kCAAkB,UAAlB,GAAgC,WAAK,WAAC;AAFL;AAoCA;AAAd;AAEnB,eAAU,WAAM,WAAC;AAFE;AAAc;AArLH;AAE9B;AACA;AAEA,kCAAkB,MAAM,YAAY,CAAC,WAAY,QAAb;AACpC,kCAAkB,MAAM,YAAY,CAAC,SAAU,MAAX;AACpC,WAAM;AAER;AAEE,kCAAkB,MAAM,YAAY,CAAC,SAAY,4CAAF;;;;UAAE,CAAS,GAAC,IAAvB;AAXN;AApXA;AAE9B;AAEA,UAAY,4BAAD,QAAX;AAEE,oCAAkB,iBAAiB,CAAC,QAAS,oBAAV;AACnC,oCAAkB,iBAAiB,CAAC,SAAU,qBAAX;AACnC,oCAAkB,iBAAiB,CAAC,QAAS,oBAAV;AACnC,oCAAkB,iBAAiB,CAAC,MAAO,kBAAR;AACnC,oCAAkB,iBAAiB,CAAC,UAAW,sBAAZ;OANrC;AAJ8B;AAcE;AAEhC;AAEA,UAAY,4BAAD,QAAX;AAEE,oCAAkB,oBAAoB,CAAC,QAAS,oBAAV;AACtC,oCAAkB,oBAAoB,CAAC,SAAU,qBAAX;AACtC,oCAAkB,oBAAoB,CAAC,QAAS,oBAAV;AACtC,oCAAkB,oBAAoB,CAAC,MAAO,kBAAR;AACtC,oCAAkB,oBAAoB,CAAC,UAAW,sBAAZ;OANxC;AAJgC;AAoSK;AAErC;AAAG;AACH;AAEA;AACA,UAAW,CAAC,4BAAD,SAAqB,IAAI,CAAI,iBAAxC;AAEE,YAAG,cAAH;AACE,sCAAkB,aAAa,CAAC,WAAW,EAAZ;AAE/B,kBAAG,CAAI,kBAAP,EACE,4BAAkB,gBAAgB,CAAC,UAAD,CADpC;AAGF,oCAAkB,MAAlB,GAA4B;AAE5B,YAAI,4BAAkB,QAAS,KAAE,UAAjC;AAEE,sCAAkB,kBAAkB,CAAC,mBAAU,kBAAS,GAAE,mBAAtB;SAFtC;AAKA,YAAG,CAAI,kBAAP;AAEE,sCAAkB,MAAM,YAAY,CAAC,SAAU,MAAX;SAFtC;AAKA,oCAAkB,SAAlB,GAA+B;AAE/B,YAAG,cAAS,KAAG,EAAf,EACE,4BAAkB,YAAlB,GAAkC,cADpC;AAGA,YAAG,CAAI,kBAAP;AAEE,cAAG,oBAAe,KAAE,2BAApB;AAEiB,wCAAmB,aAAa,CAAC,eAAe,MAAhB;AAC/C,gBAAG,CAAI,kBAAP,EACiB,4BAAmB,gBAAgB,CAAC,MAAD,CADpD;WAIF,UAAG,oBAAe,KAAG,0BAArB;AAEiB,wCAAmB,aAAa,CAAC,eAAe,IAAhB;AAC/C,gBAAG,CAAI,kBAAP,EACiB,4BAAmB,aAAa,CAAC,OAAQ,0BAAqB,CAAC,oBAAD,CAA9B,CADjD;;AAKe,wCAAmB,gBAAgB,CAAC,cAAD;AAClD,gBAAG,CAAI,kBAAP,EACiB,4BAAmB,gBAAgB,CAAC,MAAD,CADpD;;AAIF,eAAM;AACN,eAAM,cAAU,GAAE,eAAF;AAChB,cAAK;AAEX;AACA;AACA;SA5BI;OAzBF;AANqC;AA0FE;AAEvC;AACA,UAAW,CAAC,4BAAD,SAA0C,IAAjB,CAAI,iBAAR,IAAyB,CAAI,kBAA7D;AAEE,YAAG,cAAH;AAEE,sCAAkB,MAAM,YAAY,CAAC,WAAY,QAAb;AACpC,sCAAkB,MAAM,YAAY,CAAC,SAAU,MAAX;;AAIpC,sCAAkB,MAAM,YAAY,CAAC,WAAY,MAAb;AAE/B;AACL,cADK,IACL;AAEI,wCAAkB,MAAM,YAAY,CAAC,WAAY,QAAb;WAExC,UALK,IAKL;AAEI,wCAAkB,MAAM,eAAe,CAAC,UAAD;AACvC,wCAAkB,MAAM,YAAY,CAAC,aAAc,QAAf;AACpC,wCAAkB,MAAM,YAAY,CAAC,aAAc,MAAf;WAExC,UAXK,IAWL;AAEI,wCAAkB,MAAM,eAAe,CAAC,UAAD;AACvC,wCAAkB,MAAM,YAAY,CAAC,aAAc,MAAf;AACpC,wCAAkB,MAAM,YAAY,CAAC,aAAc,QAAf;WAExC,UAjBK,IAiBL;AAEI,wCAAkB,MAAM,YAAY,CAAC,WAAY,MAAb;WAFxC;;AAOF,oCAAkB,MAAM,YAAY,CAAC,SAAU,GAAX;AAEpC,YAAU,CAAN,WAAM,KAAG,EAAH,CAAW,IAAW,CAAN,WAAM,KAAG,QAAH,CAAhC;AACE,sCAAkB,MAAM,YAAY,CAAC,mBAAoB,kCAAW,CAAC,WAAD,CAAhC;AAEpC,cAAA,4BAAkB,MAAM,eAAe,CAAC,kBAAD;AAEzC,YAAG,CAAI,gBAAP;AACE,sCAAkB,cAAC,aAAiB,OAAlB;AAElB,kBAAG,4BAAkB,aAAa,CAAC,YAAD,CAAlC,EACE,4BAAkB,gBAAgB,CAAC,YAAD,CADpC;AAGF,YAAG,CAAI,cAAP;AACE,sCAAkB,cAAC,OAAW,KAAZ;AAElB,kBAAG,4BAAkB,aAAa,CAAC,MAAD,CAAlC,EACE,4BAAkB,gBAAgB,CAAC,MAAD,CADpC;OAnDJ;AAHuC;AATF;AAErC;AACA,UAAG,cAAH,EACE,iBADF;AAHqC;AA9KT;AAE5B,iBAAM,OAAO,CAAC,MAAD;AAFe;AA7KW;AAEvC;AACA,8BAAoB;AACpB,6BAAmB;AACnB,6BAAmB;AACnB,2BAAiB;AACjB,+BAAqB;AAPkB;AA2gBF;AAErC;AACA,8BAAqB;AACrB,6BAAoB;AACpB,6BAAoB;AACpB,2BAAkB;AAClB,+BAAsB;AAPe;AA5aJ;AAEjC,UAAW,CAAC,4BAAD,SAAqB,IAAI,CAAI,iBAAxC;AAEE,oCAAkB,MAAlB,GAA4B;AAC5B,oCAAkB,SAAlB,GAA+B;OAHjC;AAFiC;AAcN;AAAR;AAEnB,eAAU;AAFS;AAAQ;AALF;AAAN;AAEnB,eAAU;AAFS;AAAM;AAUG;AAAT;AAEnB,eAAU,WAAK,WAAC;AAFG;AAAS;AAsWC;AAE7B,iBAAK,WAAC,CAAQ,MAAR;AAFuB;AAneH;AAE1B,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAF0B;AAqKE;AAE5B;AAAE;AAEF,UAAK;AACL,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAC,CAAD,kBAA1B;AAAI;AAEF,YAAG,CAAE,GAAE,CAAP,EACE,IAAK,CAAqB,GAAV,WAAK,KAAC,CAAD,CAAN,OAAR,GAAqB,CAD9B;;AAIF,uBAAY,CAAE,GAAE,CAAhB;AAX4B;AAwUD;AAAR;AAEnB;AAAE;AAAE;AAAG;AACP;AAEA,UAAK;AACL,WAAM;AACN,WAAM;AACN,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,aAAa,WAAK,KAAC,CAAD,CAAN,OAAW,GAAE,CAAF;AACvB,YAAG,EAAG,GAAK,CAAH,EAAG,GAAE,EAAF,CAAX;AAEM,WAAJ,IAAG;AACH,eAAM,EAAG,GAAE,EAAF;;AAIT;;;AAIJ,YAAM,EAAN,GAAY,EAAG,GAAE,EAAF;AACf,YAAM,EAAN,GAAY;AAvBO;AAAQ;AA7BO;AAElC,UAAI,QAAS,KAAE,+CAAf;AAEE,4BAAe,yCAAf;AACA,iCAAoB,cAApB;OAHF;AAFkC;AA/aE;AAEpC;AACA,yBAAe;AACf,oBAAU,uBAAW,QAAC;AACtB,iBAAM,qBAAC,CAAqB,IAArB;AACK,iBAAO,UAAnB,GAAgC;AAChC,UAAI,2CAAY,IAAG,oBAAnB;AAEE,sBAAS,GAAT;AACA,uBAAU,GAAV;OAHF;AAKA,wBAAa,IAAb;AACA,2BAAgB,KAAhB;AACA,uBAAa;AACb,uBAAa;AACb,6BAAmB;AACnB,uBAAa;AACb,yBAAe;AACf,2BAAgB;AAnBoB;AA2BR;AAErB,eAAP,KAAO;AACP;AAH4B;AAtDH;AAEzB,iBAAK;AAFoB;AAuII;AAE7B,UAAY,4BAAD,QAAX,EACE,4BAAkB,SADpB;AAF6B;AAvHM;AAEnC;AAEA,UAAK;AAEP;AANqC;AA4GP;AAG5B,UAAY,uBAAD,QAAX;AAEE,+BAAa,UAAb,GAA2B,uBAAa,UAAW,GAAE,MAAF;AACnD,+BAAa,WAAb,GAA4B,uBAAa,WAAY,GAAE,MAAF;OAHvD;AAH4B;AA11IjB;;;AA2GN;;;;AAEW,6BhB5uCV,uCgB4uCU;AACW;AACT,+BhBtuCV,yCgBsuCU,yBhBvnBkD,uBAAC,0CAAQ,wCAAT,CgBunBlD;AACC;AACA,gChBlqCV,0CgBkqCU;AACG,mChB/uCV,6CgB+uCU;AACD;AACL,6Bfj/BV,uCei/BU;AACG,gChBxvCV,0CgBwvCU;AACQ,wChBzuCV,kDgByuCU;AACP,iChBzuCV,2CgByuCU;AACE,mChBzuCV,6CgByuCU;AACI,uChBzuCV,iDgByuCU;AACR;AACH,4Bfv5BV,sCeu5BU;AACE;AACO;AACF,mChB1vCZ,2CgB0vCY;AACP;AACA;AACC,6BpBhpCR,8BoBgpCQ;AACE,+BhBxqCV,yCgBwqCU;AACI;AACD;AACD,iCJhqCV,wCIgqCU;AACD;AACA;AACI;AACR;AACI;AACC;AACA;AACD;AACE;AACF;AACD;AACM,qChB5vCV,+CgB4vCU;AACV;AACI;AACF;AACO;AACF,kChBlxCX,2CgBkxCW;AACF,gChBjtCP,6CgBitCO;AACD,+BhBltCN,6CgBktCM;AACG,kChBntCT,6CgBmtCS;AACD,iChB9sCX,0CgB8sCW;AACC,kChB9sCP,+CgB8sCO;AACH,+BhBhtCT,0CgBgtCS;AACI,mChBttCX,4CgBstCW;AACF,iChBvtCT,4CgButCS;AACE,mChBptCP,gDgBotCO;AACC,oChB1tCX,6CgB0tCW;AACA,oChB3tCX,6CgB2tCW;AACA,oChB1tCP,iDgB0tCO;AACL,+BhB7tCN,6CgB6tCM;AACD,8BhB9tCL,6CgB8tCK;AACI,kChBntCP,+CgBmtCO;AACA,kChBrtCP,+CgBqtCO;AACD,iChBntCP,8CgBmtCO;AACE,mChBrtCP,gDgBqtCO;AA7DjB;AAgEG;;;;AAEK;;;AAEX;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAXW;;;;;;;AAssJ2B;AAExC,UAAI,qBAAiB,KAAG,KAAxB;AAEE,gCAAoB;AACpB;OAHF;AAFwC;AAtEN;AAAb;AAErB;AAEA,eAAU,QAAQ,cAAc,CAAC,UAAD;AAChC,eAAU,QAAQ,cAAc,CAAC,QAAD;AAChC,YAAM,YAAY,CAAC,MAAD;AAClB,YAAM,UAAN,GAAoB;AACpB,YAAM,cAAC,QAAY,SAAU,GAAE,4BAAzB;AAEN,UAAG,aAAQ,KAAE,EAAb;AACiB,cAAO,MAAM,YAAY,CAAC,UAAW,MAAZ;AAExC,YAAe,MAAO,MAAM,YAAY,CAAC,UAAW,EAAZ;AAE3B,YAAO,MAAM,YAAY,CAAC,QAAS,MAAV;AAEzB,YAAO,MAAM,YAAY,CAAC,UAAW,cAAZ;AAEzB,YAAO,MAAM,YAAY,CAAC,yBAAyB,KAA1B;AACzB,YAAO,MAAM,YAAY,CAAC,wBAAwB,KAAzB;AACzB,YAAO,MAAM,YAAY,CAAC,sBAAsB,KAAvB;AACzB,YAAO,MAAM,YAAY,CAAC,wBAAwB,KAAzB;AACzB,YAAO,MAAM,YAAY,CAAC,SAAS,KAAV;AAvBnB;AAAa;AA4GC;AAAd;AAErB;AACA,eAAU;AAHW;AAAc;AAMA;AAEnC;AAFmC;AAKA;AAEnC;AAFmC;AAKC;AAEpC,wBAAa,CAAS,OAAP,OAAU,qCAAH,CAAT;AAFuB;AArFJ;AAEhC;AAEoB,iEAAC,MAAD;AAEpB,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,WAAqB,mBAAS;AAE9B,UAAY,EAAD,QAAX;AAEE,UAAE,UAAF,GAAgB;AAEhB,YAAG,MAAO,KAAE,EAAZ;AACE,YAAE,MAAM,YAAY,CAAC,UAAW,MAAZ;AAEpB,cAAA,EAAE,MAAM,YAAY,CAAC,UAAW,EAAZ;OAPxB;AAXgC;AAsBA;AAEhC,UAAa,CAAT,aAAS,GAAE,CAAF,CAAK,IAAc,CAAT,aAAS,KAAG,MAAH,CAAhC;AAEE,wBAAY;AACZ;OAHF;AAFgC;AAmCF;AAE9B,iBAAM,OAAO,CAAC,MAAD;AACb;AAH8B;AAiCI;AAElC;AACA;AACA;AACA;AAAI;AAAI;AAAI;AAAK;AAAK;AACtB;AACA;AAEA,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,UAAG,WAAM,SAAC,EAAM,KAAE,CAAlB,EACE,MADF;AAGA,WAAM,UAAK,CAAC,UAAI,MAAM,GAAE,GAAb;AACX,WAAY,UAAN,eAAM,GAAI,aAAJ;AACZ,UAAG,aAAQ,KAAG,EAAd;AACE,aAAM,UAAI;AAEV,iBAAM;AAER,YAAO;AACP,YAAO;AAEP,UAAG,cAAU,GAAE,CAAf,EACY,GAAD,sBAAC,UAAK,cAAN,CADX;AAGA,eAAS,QAAe,OAAV,cAAU,GAAE,CAAF,kBAAxB;AAAI;AAEF,aAAoB,cAAC,gBAAS,KAAC,CAAD,CAAV;AAEpB,YAAS,iBAAH,eAAH,EAAG,CAAN,EACE,GAAG,CAAC,CAAD,CAAH,GAAc,OAAH,GAAM,iBAAH,CAAgB,WAAC,EADjC;AAEA,YAAS,cAAH,eAAH,EAAG,CAAN,EACE,GAAG,CAAC,CAAD,CAAH,GAAc,OAAH,GAAM,cAAH,CAAa,WAAC,EAD9B;AAGA,UAAG,eAAH,EAAG;;AAEL,sBAAS;AAET,aAAM,mBAAS,kBAAmB,GAAE,CAApC,EACE,mBAAS,YAAY,CAAC,mBAAS,WAAV;AAEvB,UAAG,aAAQ,KAAG,EAAd;AAEE,iBAAU,QAAQ,cAAc,CAAC,QAAD;AAChC,+BAAa,YAAY,CAAC,MAAD;AACzB,cAAM,UAAN,GAAoB;AACpB,cAAM,cAAC,QAAY,SAAU,GAAE,4BAAzB;AAES,cAAO,MAAM,YAAY,CAAC,QAAQ,MAAT;AAExC,iDAAkB,CAAgB,OAAS,WAAM,CAA+B,CAAd,CAAZ,iBAAY,KAAE,8CAAF,CAAc,IAAsB,CAAjB,sBAAiB,KAAE,EAAF,CAAtB,CAA9D;OATpB;AAYA,UAAG,2BAAsB,KAAG,EAA5B;AACE,+BAAa,aAAa,CAAC,QAAS,2BAAV;AAE1B,YAAA,uBAAa,aAAa,CAAC,QAAQ,YAAT;AAEb,yBAAU,MAAM,YAAY,CAAC,SAAS,KAAV;AAE3C,eAAS,SAAkB,QAAb,WAAM,SAAC,EAAM,GAAE,CAAF,qBAA3B;AAAI;AAEF,eAAQ,EAAG,GAAM,CAAJ,GAAI,GAAE,EAAF,CAAN;AACX,YAAK,WAAM,KAAC,CAAD;AACX,aAAM,uBAAkB,CAAC,CAAE,GAAM,CAAJ,GAAI,GAAE,EAAF,CAAN,CAAY,KAAM,EAAG,EAAG,sBAAiB,yBAAoB,CAAC,CAAD,EAAK,IAArE;AACxB,UAAE,WAAC,CAAW,aAAX;AACH,wBAAS,IAAI,CAAC,EAAD;AAEb,YAAG,CAAE,IAAG,cAAR;AAEE,cAAS,iBAAH,eAAH,EAAG,CAAN,EACM,OAAH,GAAM,iBAAH,CAAgB,WAAC,CAAW,GAAG,CAAC,CAAD,CAAd,CADvB;AAEA,cAAS,cAAH,eAAH,EAAG,CAAN,EACM,OAAH,GAAM,cAAH,CAAa,WAAC,CAAW,GAAG,CAAC,CAAD,CAAd,CADpB;SAJF;AAQA,YAAG,CAAI,kBAAP;AAEiB,YAAE,aAAC,EAAU,MAAM,YAAY,CAAC,QAAS,MAAV;AAC/B,YAAE,aAAC,EAAU,MAAM,YAAY,CAAC,QAAU,qBAAQ,CAAC,gBAAK,CAAC,GAAI,GAAE,aAAP,CAAiB,GAAE,CAAzB,CAA4B,GAAE,GAAjD;AAC9C,cAAG,aAAH;AAEiB,cAAE,aAAC,EAAU,cAAC,WAAuB,4CAAC,CAAT,SAAS;;;;gBAAD,CAAxB;AACb,+BAAU,cAAC,WAAe,IAAhB;WAGG,MAAb,EAAE,aAAC,EAAU,cAAC,WAAe,IAAhB;SAVhC;AAaA,YAAK,CAAF,CAAE,GAAI,aAAJ,CAAa,KAAE,CAApB,EACiB,EAAE,aAAC,EAAU,MAAM,YAAY,CAAC,QAAS,MAAV,CADhD;AAGA,+BAAa,YAAY,CAAC,EAAE,aAAC,EAAJ;AAEzB,YAAG,GAAI,GAAW,CAAT,aAAS,GAAE,CAAF,CAAlB;AACM,aAAJ,IAAG;;AAGH,gBAAO;AACH,aAAJ,IAAG;;;AAIP,uBAAa,WAAK,SAAC;AA1Ge;AA9IN;AAE5B,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAF4B;AA8CA;AAE5B;AACA;AAH4B;AAmNK;AAEjC;AACA;AAHiC;AA3PM;AAAlB;AAIrB,eAAU;AAJW;AAAkB;AAsQE;AAApB;AAErB,eAAU;AAFW;AAAoB;AALL;AAAf;AAErB,eAAwB,cAAC,gBAAS,KAAC,MAAD,CAAV;AAFH;AAAe;AA3KJ;AAEhC;AAEA;AACA,eAAS,QAAqB,OAAhB,gBAAS,SAAC,EAAM,GAAE,CAAF,kBAA9B;AAAI;AAEY,sBAAC,gBAAS,IAAM,CAAC,CAAD,CAAhB,CAAoB,WAAC,CAAW,KAAX;;AAPL;AA7GM;AAEtC;AACA,sBAAY;AACZ,yBAAa,iBAAK,QAAC;AACnB,oBAAU,uBAAW,QAAC;AACV,iBAAO,UAAnB,GAAgC;AAEhC,uBAAa,CAAC;AACd,8BAAoB;AACpB,UAAI,2CAAY,IAAG,oBAAnB;AAEE,sBAAS,GAAT;AACA,uBAAU,GAAV;OAHF;AAVsC;AAwDR;AAEpB,eAAV,KAAU;AACH,eAAP,KAAO;AACP;AAJ8B;AAoNC;AAE/B;AACA;AAH+B;AApJA;AAE/B;AACA;AAH+B;AAYD;AAE9B;AACA;AAH8B;AAtuJjB;;;AAqCG,6BhBj1CV,uCgBi1CU;AACW;AACT,+BhB30CV,yCgB20CU,yBhB5tBkD,uBAAC,0CAAQ,wCAAT,CgB4tBlD;AACA;AACG;AACH;AACQ,uChBx0CV,iDgBw0CU;AACP,gChB51CV,0CgB41CU;AACQ,wChB70CV,kDgB60CU;AACM,8ChB90ChB,kDgB80CgB;AACD,6ChB/0Cf,kDgB+0Ce;AACA,6ChBh1Cf,kDgBg1Ce;AACC,8ChBj1ChB,kDgBi1CgB;AACb,iChBj1CV,2CgBi1CU;AACE,mChBj1CV,6CgBi1CU;AACI,uChBj1CV,iDgBi1CU;AACR;AACH,4Bf//BV,sCe+/BU;AACE;AACO;AACF,mChBl2CZ,2CgBk2CY;AACN,6BpBtvCR,8BoBsvCQ;AACE,+BhB9wCV,yCgB8wCU;AACG;AACD,iCJrwCV,wCIqwCU;AACL;AACG;AACC;AACD;AACF;AACO;AACF,kChB72CX,2CgB62CW;AACF,gChB5yCP,6CgB4yCO;AACE,kChBjyCP,+CgBiyCO;AACA,kChBnyCP,+CgBmyCO;AACD,iChBjyCP,8CgBiyCO;AACE,mChBnyCP,gDgBmyCO;AAzET;AA4EF;;;AAET;AACA;AAHS;AAi2JsB;AAEjC,UAAG,mBAAU,KAAE,kBAAf,EACE,MADF;AAGA;AAEA,2BAAiB;AAPgB;AAeF;AAAZ;AAEnB;AACA;AAEA,eAAU;AAEV,eAAS,QAAkB,OAAb,WAAM,SAAC,EAAM,GAAC,CAAD,kBAA3B;AAAI;AAEF,aAAM,QAAQ,eAAe,CAAC,YAAoB,GAAZ,qBAAQ,CAAC,CAAD,CAAV,GAAgB,IAAvB;AAC7B,YAAY,EAAD,QAAX;AAEE,cAAuB,EAAG,QAA1B,EACE,SAAU,CADZ;SAFF;;AAViB;AAAY;AAkDC;AAEhC;AAGA,UAAW,CAAP,MAAO,KAAE,CAAC,CAAH,CAAM,IAAe,CAAV,mBAAU,IAAG,CAAH,CAAhC;AAEE,aAAM,QAAQ,eAAe,CAAC,YAA4B,GAApB,qBAAQ,CAAC,mBAAD,CAAV,GAAwB,IAA/B;AAE7B,YAAY,EAAD,QAAX,EACsB,EAAG,QAAvB,GAAmC,KADrC;AAGA,0BAAc,CAAC;;AAKf,0BAAc;AACd,YAAW,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,GAAE,WAAK,SAAC,EAAR,CAA7B;AAEE,eAAM,QAAQ,eAAe,CAAC,YAAyB,GAAjB,qBAAQ,CAAC,MAAD,CAAV,GAAqB,IAA5B;AAC7B,cAAY,EAAD,QAAX,EACsB,EAAG,QAAvB,GAAmC,IADrC;SAHF;;AAlB8B;AA1GK;AAAlB;AAGnB;AACA;AAEA,WAAM;AACN,UAAI,EAAG,KAAE,EAAT,EACE,KAAM,UADR;AAGA,WAAM,iBAAY,QAAC,YAAM,CAAC,EAAG,GAAE,qBAAQ,CAAC,MAAD,CAAd,CAAN;AACnB,QAAE,mBAAC,CAAmB,SAAnB;AACH,QAAE,eAAC,CAAe,iBAAf;AACH,QAAE,oBAAC,CAAoB,sBAApB;AACH,QAAE,wBAAF,GAA6B;AAC7B,QAAE,uBAAF,GAA4B;AAC5B,QAAE,eAAC,CAAe,wCAAf;AACH,QAAE,cAAC,CAAc,KAAd;AACH,QAAE,MAAK,OAAO,CAAC,UAAD;AACd,QAAE,UAAC,CAAU,IAAV;AACH,QAAE,WAAC,CAAW,QAAX;AACH,QAAE,aAAC,CAAa,EAAb;AACH,QAAE,OAAC,CAAO,IAAP;AACH,QAAE,QAAC,CAAQ,KAAR;AACH,QAAE,cAAC,CAAc,wCAAd;AACH,QAAE,gBAAC,CAAgB,GAAhB;AACH,QAAE,SAAF,GAAc;AACd,QAAE,WAAC,CAAW,MAAX;AACH,QAAE,WAAC,CAAW,QAAX;AACH,QAAE,OAAF,GAAU;AACV,QAAE,WAAC,CAAW,IAAX;AACH,eAAU;AA/BS;AAAkB;AAmDE;AAApB;AAEnB,eAAU,MAAO,KAAE,eAAF;AAFE;AAAoB;AAuBV;AAE7B;AAAI;AAEJ,sBAAG,CAAC,OAAQ;;;;WAAK;;;;UAAd;AAEH,UAAI,CAAE,KAAE,CAAR,EACE,kBAAa,GAAb,CADF;AAN6B;AAUD;AAAT;AAEnB,eAAU,qBAAQ,CAAC,mBAAD;AAFC;AAAS;AAlDQ;AAEpC;AACA,wBAAc,CAAC;AACf,2BAAiB,CAAC;AAJkB;AAuDR;AAE5B;AACA;AAEA,UAAG,WAAK,SAAC,EAAM,KAAE,CAAjB,EACE,MADF;AAGA,YAAO;AACP,UAAG,GAAI,GAAE,CAAT,EACE,MAAO,CADT;AAGA,WAAmB,oBAAe,CAAC,GAAD;AAClC,UAAY,EAAD,QAAX,EACE,EAAE,WADJ;AAb4B;AAj5JjB;;;AAgBS;AAhBT;AAmBG;;;;AAEE,uEAAmB,U7Br5C5B,2B6Bq5C4B,EAAiB,sBAApC;AAEL;;;AAET;AAFS;;;;;AAqzKkB;AAAV;AAEnB,eAAmC,OAAxB,oBAAe,CAAC,MAAD,EAAY,cAAH,CAAa,WAAC;AAF9B;AAAU;AA6CC;AAEL,aAAxB,oBAAe,CAAC,MAAD,EAAY,cAAH,CAAa,WAAC,CAAW,KAAX;AAFT;AApDG;AAEjC;AACA,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAM,QAAQ,OAAf,CADd;AAHiC;AAvCI;AAAlB;AAGnB;AACA;AAEA,WAAM;AACN,UAAG,EAAG,KAAE,EAAR,EACE,KAAM,UADR;AAGA,WAAM,cAAS,QAAC,YAAM,CAAC,EAAG,GAAE,qBAAQ,CAAC,MAAD,CAAd,CAAN;AAChB,QAAE,WAAC,CAAW,QAAX;AACH,QAAE,mBAAC,CAAmB,SAAnB;AACH,QAAE,eAAC,CAAe,iBAAf;AACH,QAAE,oBAAC,CAAoB,sBAApB;AACH,QAAE,wBAAF,GAA6B;AAC7B,QAAE,uBAAF,GAA4B;AAC5B,QAAE,cAAC,CAAc,KAAd;AACH,QAAE,MAAK,OAAO,CAAC,UAAD;AACd,QAAE,UAAC,CAAU,IAAV;AACH,QAAE,OAAC,CAAO,IAAP;AACH,QAAE,QAAC,CAAQ,KAAR;AACH,QAAE,cAAC,CAAc,2CAAd;AACH,QAAE,gBAAC,CAAgB,GAAhB;AACH,QAAE,eAAC,CAAe,wCAAf;AAEH,QAAE,cAAF,GAAmB;AACnB,QAAE,WAAC,CAAW,MAAX;AACH,QAAE,WAAC,CAAW,QAAX;AACH,QAAE,OAAF,GAAU;AACV,QAAE,WAAC,CAAW,IAAX;AACH,eAAU;AA/BS;AAAkB;AAmDE;AAApB;AAEnB,eAAU;AAFS;AAAoB;AAsBX;AAAT;AAEnB;AACA;AAEA,UAAK;AACL,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,YAAG,eAAO,CAAC,CAAD,CAAV;AACE,cAAK,CAAE,GAAE,IAAF;AAEP,kBAAK,CAAE,GAAE,IAAF;;AAGX,uBAAM,CAAC;;;;WAAE,EAAE,CAAL;AACN,eAAU;AAfS;AAAS;AAjBC;AAE7B;AACA;AAEA,WAAM,uBAAW,QAAC;AAClB,QAAE,aAAC,CAAa,GAAb;AACH,QAAE,aAAC,CAAa,MAAb;AAEH,eAAS,QAAc,OAAT,EAAE,SAAC,EAAM,GAAE,CAAF,kBAAvB;AAAI;AAEF,uBAAO,CAAC,EAAM,EAAE,IAAQ,CAAC,CAAD,CAAI,KAAE,GAAvB;;AAGT,QAAG,eAAH,EAAG;AAd0B;AAtBO;AAEpC;AAFoC;AA8DR;AAE5B;AAEA,UAAG,WAAK,SAAC,EAAM,GAAE,CAAjB;AAEE,aAAgB,oBAAe,CAAC,CAAD;AAC/B,YAAY,EAAD,QAAX,EACE,EAAE,WADJ;OAHF;AAJ4B;AAv2KjB;;;AAgBY,oCAlBP,+BAkBO;AAhBZ;AAmBG;;;;AAEF;;;AAEV;AACA;AACA;AAJU;;;;;AA06J6B;AAArB;AAEpB,eAA8B;AAFV;AAAqB;AAeD;AAExC;AAEA,UAAY,uBAAD,QAAX;AAEE,+BAAa,MAAM,YAAY,CAAC,UAAU,KAAX;AAC/B,+BAAa,MAAM,YAAY,CAAC,QAAS,qBAAQ,CAAC,eAAM,GAAE,CAAT,CAAY,GAAE,IAAhC;AAC/B,+BAAa,MAAM,YAAY,CAAC,SAAS,qBAAQ,CAAC,gBAAO,GAAE,CAAV,CAAa,GAAE,IAAjC;AAC/B,+BAAa,MAAM,YAAY,CAAC,YAAY,MAAb;OALjC;AAJwC;AAaN;AAAd;AAEpB;AACA,eAAU;AAHU;AAAc;AA4BF;AAAZ;AAEpB,eAAU;AAFU;AAAY;AAhBJ;AAAR;AAEpB,eAAU;AAEV,UAAY,mBAAD,QAAX,EACE,SAAU,iCAAU,CAAqB,mBAAU,MAA/B,CADtB;AAJoB;AAAQ;AAQC;AAE7B,sBAAU;AAEV,UAAY,mBAAD,QAAX,EACsB,mBAAU,MAA9B,GAAwC,kCAAW,CAAC,MAAD,CADrD;AAJ6B;AAzDE;AAE/B;AACA,UAAY,4BAAD,QAAX;AAEE,oCAAkB,iBAAiB,CAAC,QAAS,qBAAV;OAFrC;AAH+B;AAcE;AAEjC;AACA,UAAY,4BAAD,QAAX;AAEE,oCAAkB,oBAAoB,CAAC,QAAS,qBAAV;OAFxC;AAHiC;AA6BN;AAE3B,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAF2B;AAvDa;AAExC;AACA,8BAAoB;AAHoB;AAkFF;AAEtC;AACA,8BAAqB;AAHiB;AAMH;AAEnC,UAAI,QAAS,KAAE,+CAAf;AAEE,iCAAoB,cAApB;AACA,4BAAe,yCAAf;AACA,4BAAe,wCAAf;OAJF;AAFmC;AAlFE;AAErC;AACA,sBAAU;AAH2B;AA35JzB;;;AAuBI,6BhB37CV,uCgB27CU;AACW;AACT,+BhBr7CV,yCgBq7CU,yBhBt0BkD,uBAAC,0CAAQ,wCAAT,CgBs0BlD;AACG;AACL,6Bf7rCV,uCe6rCU;AACG,gChBp8CV,0CgBo8CU;AACQ,wChBr7CV,kDgBq7CU;AACP,iChBr7CV,2CgBq7CU;AACE,mChBr7CV,6CgBq7CU;AACI,uChBr7CV,iDgBq7CU;AACR;AACD;AACO;AACT;AACG,+BhBh3CV,yCgBg3CU;AACH;AACD;AACI;AACF;AACO;AACL,+BhB14CN,6CgB04CM;AACC,gChB34CP,6CgB24CO;AACE,kChBh4CP,+CgBg4CO;AACA,kChBl4CP,+CgBk4CO;AACD,iChBh4CP,8CgBg4CO;AACE,mChBl4CP,gDgBk4CO;AAhDV;AAmDG;;;;AAEE;AAsrKqB;AAAb;AAEzB,eAAU,QAAQ,cAAc,CAAC,MAAD;AAFP;AAAa;AAtrKrB;;;AAOP;;;AAER;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAZQ;;;;;;AAmjKgB;AAE1B,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AAGF;AACH,YADG,IACH;AAEE,wBAAS,CAAC,eAAM,cAAK,iBAAQ,EAApB;SAEX,UALG,IAKH;AAEE,wBAAS,CAAC,eAAM,cAAK,GAAI,eAAhB;SAFX;AAMJ;AACA;OAjBF;AAF0B;AAkDI;AAE9B,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAF8B;AA3BL;AAEzB,UAAG,SAAK,KAAG,KAAX;AAEE,oBAAQ;AACR;OAHF;AAFyB;AASA;AAEzB,UAAG,SAAK,KAAG,KAAX;AAEE,oBAAQ;AACR;OAHF;AAFyB;AASK;AAE9B,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAF8B;AAnED;AAAX;AAElB,eAAU;AACV,UAAY,iBAAD,QAAX;AAEO;AACH,YADG,IACH;AAAc,mBAAU,UAAK,CAAC,aAAQ,CAAC,iBAAO,WAAR,CAAT;AAC7B,kBAFG,IAEH,uDAAY,SAAU,UAAK,CAAC,aAAQ,CAAC,iBAAO,UAAR,CAAT,CAA3B;OAIF,eAAU;AAXM;AAAW;AA3BA;AAAX;AAElB,eAAU;AACV,UAAG,MAAO,KAAE,CAAZ,EACE,SAAU,EADZ;AAHkB;AAAW;AAOH;AAAR;AAElB,eAAU;AACV,UAAY,aAAD,QAAX;AAEO;AACH,YADG,IACH;AAEE,cAAG,aAAQ,SAAC,EAAM,GAAE,CAApB,EACE,SAAiB,CAAN,KAAM,GAAE,aAAQ,SAAC,EAAX,CAAkB,GAAO,CAAJ,SAAI,GAAE,SAAF,CAD5C;SAGF,UANG,IAMH;AAEE,cAAG,aAAQ,UAAC,EAAO,GAAE,CAArB,EACE,SAAiB,CAAN,KAAM,GAAE,aAAQ,UAAC,EAAX,CAAmB,GAAO,CAAJ,SAAI,GAAE,SAAF,CAD7C;SAFF;OARJ;AAHkB;AAAQ;AAlCK;AAAb;AAElB,eAAU,QAAQ,cAAc,CAAC,MAAD;AAFd;AAAa;AAWL;AAAR;AAElB,wBAAc;AACd,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAGA,wBAAc;AACd,eAAU;AAPQ;AAAQ;AAxBG;AAE7B;AACA,UAAY,uBAAD,QAAX,EACE,uBAAa,iBAAiB,CAAC,SAAU,eAAX,CADhC;AAH6B;AA8KE;AAE/B;AACA,UAAY,uBAAD,QAAX,EACE,uBAAa,oBAAoB,CAAC,SAAU,eAAX,CADnC;AAH+B;AAtBO;AAEtC;AAEA,UAAY,uBAAD,QAAX;AAEE,+BAAa,MAAM,YAAY,CAAC,WAAY,MAAb;AAC1B;AACH,YADG,IACH;AAEE,iCAAa,MAAM,YAAY,CAAC,aAAc,QAAf;AAC/B,iCAAa,MAAM,YAAY,CAAC,aAAc,EAAf;SAEjC,UANG,IAMH;AAEE,iCAAa,MAAM,YAAY,CAAC,aAAc,EAAf;AAC/B,iCAAa,MAAM,YAAY,CAAC,aAAc,QAAf;SAHjC;OATJ;AAJsC;AA6BN;AAEhC;AAAG;AAAG;AAAG;AACT;AACA;AAEA,UAAG,CAAY,CAAC,aAAD,SAA0C,IAA5B,CAAY,CAAC,uBAAD,SAAf,IAAkC,eAA5D,EACE,MADF;AAGA,WAAM;AACN,UAAU,CAAJ,SAAI,GAAE,SAAF,CAAO,GAAE,EAAF;AAEZ;AACH,UADG,IACH;AAEE,YAAK;AACL,YAAK;AACL,YAAK,UAAK,CAAC,CAAE,GAAE,eAAL;AACV,YAAK,UAAK,CAAoB,CAAP,CAAV,cAAU,GAAE,SAAF,CAAO,GAAO,CAAJ,SAAI,GAAE,SAAF,CAAP,CAAe,GAAE,CAArC;OAEZ,UARG,IAQH;AAEE,YAAK;AACL,YAAK;AACL,YAAK,UAAK,CAAC,CAAE,GAAE,gBAAL;AACV,YAAK,UAAK,CAAoB,CAAP,CAAV,cAAU,GAAE,SAAF,CAAO,GAAO,CAAJ,SAAI,GAAE,SAAF,CAAP,CAAe,GAAE,CAArC;OALZ;AASF,mBAAQ,UAAU,CAAC,EAAG,EAAG,EAAG,CAAV;AAClB,6BAAa,WAAb,GAA4B;AAC5B,6BAAa,UAAb,GAA2B;AA/BK;AApGP;AAEzB;AACA;AAHyB;AA1Ea;AAEtC;AACA,wBAAc;AAHwB;AA2BF;AAEpC;AACA,wBAAe;AAHqB;AA3DD;AAEnC;AACA,sBAAW,IAAX;AACA,mBAAS;AACT,uBAAa;AACb,kBAAQ;AACR,kBAAQ;AACR,0BAAgB;AAChB,0BAAgB;AAEhB,sBAAY,sBAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,mBAAQ,UAAC,CAAU,IAAV;AACT,mBAAQ,SAAC,CAAS,GAAT;AACT,mBAAQ,UAAC,CAAU,EAAV;AAET,UAAI,2CAAY,IAAG,oBAAnB;AAEE,sBAAS,GAAT;AACA,uBAAU,EAAV;OAHF;AAMA;AAtBmC;AA2CR;AAElB,eAAT,KAAS;AACT;AAH2B;AAqEC;AAE5B;AACA;AAH4B;AA7iKlB;;;AAoCM,6BhBpgDV,uCgBogDU;AACW;AACR,gChB1gDV,0CgB0gDU;AACF;AACF,4BhB71BD,+CgB61BC;AACI;AACJ;AACO;AACA;AACR;AACA;AACK;AACL;AACI;AACF;AACG,gChB98CP,6CgB88CO;AACE,kChBn8CP,+CgBm8CO;AACA,kChBr8CP,+CgBq8CO;AACD,iChBn8CP,8CgBm8CO;AACE,mChBr8CP,gDgBq8CO;AAvDZ;AA0DG;;;;AAMe;AAArB;AAEF;AACH,QADG,IACH;AAAO,eAAU;AACjB,cAFG,IAEH;AAAmB,eAAU;AAC7B,cAHG,IAGH;AAAa,eAAU;AACvB,cAJG,IAIH;AAAkB,eAAU;AAC5B,cALG,IAKH;AAAc,eAAU;AACxB,cANG,IAMH;AAAmB,eAAU;AAC7B,cAPG,IAOH;AAAY,eAAU;AACtB,cARG,IAQH;AAAS,eAAU;AACnB,cATG,IASH;AAAY,eAAU;AACtB,cAVG,IAUH;AAAe,eAAU;AACzB,cAXG,IAWH;AAAmB,eAAU;AAC7B,cAZG,IAYH;AAAqB,eAAU;AAC/B,cAbG,IAaH;AAAgB,eAAU;AAC1B,cAdG,IAcH;AAAiB,eAAU;AAC3B,cAfG,IAeH;AAAgB,eAAU;AAC1B,cAhBG,IAgBH;AAAgB,eAAU;AAC1B,cAjBG,IAiBH;AAAgB,eAAU;AAC1B,cAlBG,IAkBH;AAAiB,eAAU;AAC3B,cAnBG,IAmBH;AAAiB,eAAU;AAC3B,cApBG,IAoBH;AAAiB,eAAU;AAC3B,cArBG,IAqBH;AAAiB,eAAU;AAC3B,cAtBG,IAsBH;AAAW,eAAU;AACrB,cAvBG,IAuBH;AAAe,eAAU;AACzB,cAxBG,IAwBH;AAAc,eAAU;AACxB,cAzBG,IAyBH;AAAU,eAAU;AACpB,cA1BG,IA0BH;AAAe,eAAU;AACzB,cA3BG,IA2BH;AAAoB,eAAU;AAC9B,cA5BG,IA4BH;AAAgB,eAAU;AAC1B,cA7BG,IA6BH;AAAY,eAAU;AACtB,cA9BG,IA8BH;AAAU,eAAU;AACpB,cA/BG,IA+BH;AAAe,eAAU;AACzB,cAhCG,IAgCH;AAAc,eAAU;AACxB,cAjCG,IAiCH;AAAO,eAAU;AACjB,cAlCG,IAkCH;AAAQ,eAAU;AAClB,cAnCG,IAmCH;AAAuB,eAAU;AACjC,cApCG,IAoCH;AAAqB,eAAU;AAC/B,cArCG,IAqCH;AAAY,eAAU;AACtB,cAtCG,IAsCH;AAAY,eAAU;AACtB,cAvCG,IAuCH;AAAe,eAAU;AACzB,cAxCG,IAwCH;AAAiB,eAAU;AAC3B,cAzCG,IAyCH;AAAgB,eAAU;AAC1B,cA1CG,IA0CH;AAAO,eAAU;AACjB,cA3CG,IA2CH;AAAa,eAAU;AACvB,cA5CG,IA4CH;AAAwB,eAAU;AAClC,cA7CG,IA6CH;AAAqB,eAAU;AAC/B,cA9CG,IA8CH;AAAqB,eAAU;AAC/B,cA/CG,IA+CH;AAAkB,eAAU;AAC5B,cAhDG,IAgDH;AAAsB,eAAU;AAChC,cAjDG,IAiDH;AAAQ,eAAU;AAClB,cAlDG,IAkDH;AAAO,eAAU;AACjB,cAnDG,IAmDH;AAAS,eAAU;AACnB,cApDG,IAoDH,kCAAQ,SAAU,MAAlB;AAtDK;AAAqB;AAvpD9B;ACAA,8BAMS,uJANT;;;;AAaa;;AAEK;;;AAEd;AACA;AACA;AACA;AACA;AACA;AACA;AARc;;;;;AA67DyB;AAEzC,8BAAkB;AAFuB;AAKF;AAEvC,4BAAgB;AAFuB;AAcC;AAExC,6BAAiB;AAFuB;AAKF;AAEtC,2BAAe;AAFuB;AAdJ;AAElC,UAAI,YAAQ,KAAG,KAAf;AAEE,uBAAW;AACX,uBAAU,CAAC,aAAD;OAHZ;AAFkC;AAkEG;AAAb;AAExB,UAAG,WAAM,KAAG,oCAAZ;AACE,iBAAoB;AAEpB,qBAAU;AALY;AAAa;AARC;AAAd;AAExB,UAAG,WAAM,KAAG,oCAAZ;AACE,iBAAoB;AAEpB,qBAAU;AALY;AAAc;AALA;AAAd;AAExB,eAAU;AAFc;AAAc;AA9KH;AAEnC;AAAO;AAAQ;AAAQ;AAAU;AAAW;AAC5C;AAAU;AAAO;AAAO;AAAS;AAAK;AAAO;AAC7C;AAAQ;AAAM;AAEM,+DAAC,MAAD;AAEpB,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,uBAAkB;AAElB,UAAmB,YAAU,KAAG,EAAhC;AAEE,yBAAkB,QAAQ,eAAe,CAAC,YAAD;OAF3C;AAKA,UAAW,CAAC,cAAD,SAAiB,IAAI,mBAAQ,CAAC,cAAc,UAAf,CAAxC,EACE,cAAc,UAAd,GAA4B,EAD9B;AAGA,iBAAY;AAEZ,kBAAa,sBAAS,CAAC,QAAD;AAEtB,UAA+B,CAA3B,cAAG,CAAC,WAAY,SAAb,CAAwB,KAAE,CAAF,CAAK,IACN,CAA1B,cAAG,CAAC,UAAW,SAAZ,CAAuB,KAAE,CAAF,CAD9B;AAGE,mBAAY,WAAqB,GAAR,QAAF,GAAW,GAAD;AACjC,YAAI,YAAO,KAAE,yBAAb,EACE,WAAY,QAAS,GAAE,kBADzB;AAGA,mBAAY,QAAyB,GAAd,GAAF,GAAQ,aAAF,GAAY,MAAF;AAErC,YAAG,CAAY,CAAC,iBAAD,SAAf;AAEE,wBAAc,UAAd,GAA4B;AAC5B;SAHF;OATF;AAgBA,gBAAW;AACX,YAAO;AAEP,UAAW,CAAC,iBAAD,SAAe,IAAkC,CAAL,CAAvB,cAAG,CAAC,QAAS,QAAV,CAAoB,GAAE,CAAF,CAAK,IAAuB,CAAnB,cAAG,CAAC,IAAK,QAAN,CAAgB,GAAE,CAAF,CAAvB,CAA5D;AAEE,sBAAc,UAAd,GAA4B;AAC5B,eAA8B,CAAvB,cAAG,CAAC,QAAS,QAAV,CAAoB,GAAE,CAAF,CAAK,IAAuB,CAAnB,cAAG,CAAC,IAAK,QAAN,CAAgB,GAAE,CAAF,CAA1D;AAGE,mBAAU,cAAG,CAAC,QAAS,QAAV;AACb,mBAAU,cAAG,CAAC,IAAK,QAAN;AAEb,cAAsB,CAAV,CAAP,MAAO,GAAE,MAAF,CAAU,IAAW,CAAP,MAAO,IAAG,CAAH,CAAX,CAAkB,IAAY,CAAP,MAAO,GAAE,CAAF,CAApD;AAEE,oBAAS;AACT,oBAAS,MAAO,GAAS,OAAD,OAAR;;AAIhB,oBAAS;AACT,oBAAS,MAAO,GAAS,GAAD,OAAR;;AAGlB,qBAAY,cAAG,CAAC,KAAM,QAAP;AACf,sBAAa,cAAG,CAAC,KAAM,QAAP;AAChB,cAAc,CAAV,SAAU,GAAE,CAAF,CAAK,IAAe,CAAV,SAAU,GAAE,QAAF,CAAlC,EACE,WAAY,SADd;AAGA,mBAAU,cAAG,CAAC,OAAQ,QAAT;AACb,kBAAS,eAAI,CAAC,SAAU,MAAO,QAAS,GAAE,KAA7B;AAEb,qBAAY,cAAG,CAAC,KAAM,QAAP;AACf,mBAAU,cAAG,CAAC,OAAQ,QAAT;AACb,kBAAS,eAAI,CAAC,SAAU,QAAS,GAAE,CAAF,CAAK,MAAO,GAAY,CAAT,QAAS,GAAE,CAAF,CAA5C;AAGb,iBAAQ,QAAQ,cAAc,CAAC,MAAD;AAC9B,cAAI,UAAJ,GAAkB,eAAI,CAAC,SAAU,EAAG,KAAd;AACtB,wBAAc,YAAY,CAAC,IAAD;AAG1B,mBAAU,QAAQ,cAAc,CAAC,GAAD;AAChC,gBAAM,cAAC,OAAW,GAAZ;AACN,gBAAM,cAAC,KAAS,KAAM,GAAE,KAAlB;AACN,gBAAM,UAAN,GAAoB;AACL,gBAAO,QAAtB,GAAkC;AAClC,wBAAc,YAAY,CAAC,MAAD;AAG1B,2BAAM,CAAC;;;;eAAU,EAAG,cAAG,CAAC,OAAQ,QAAT,CAAmB,GAAE,CAAtC;;AAIR,eAAQ,QAAQ,cAAc,CAAC,MAAD;AAC9B,YAAI,UAAJ,GAAkB;AAClB,sBAAc,YAAY,CAAC,IAAD;AAC1B,0BAAc;;AAId,0BAAc,0BAAa,CAAC,OAAQ,MAAO,WAAY,cAAC,4CAAD,CAA5B;AAE3B,YAAW,CAAC,cAAD,SAAiB,IAAI,mBAAQ,CAAC,cAAc,UAAf,CAAxC;AACE,wBAAc,UAAd,GAA4B;AAE5B,kBAAW,CAAC,cAAD,SAAiB,IAAsC,CAAjC,cAAc,kBAAmB,IAAG,CAAH,CAAlE,EACE,cAAc,UAAd,GAA4B,eAD9B;;AA1G+B;AAsJA;AAAX;AAEzB;AAAO;AAAO;AACd;AAEC,eAAU,KAAK,OAAc,cAAC,IAAD;AAC7B,cAAS;AACT,cAAS;AAET,UAAG,CAAwB,CAAnB,cAAG,CAAC,MAAO,MAAR,CAAgB,GAAE,CAAF,CAA3B;AAEE,gBAAS;AACT,gBAAS;OAHX;AAMA,cAAS,0BAAa,CAAC,OAAQ,MAAO,GAAI,EAApB;AAEtB,UAAY,iBAAD,QAAX,EACE,iBAAY,CAAC,KAAM,MAAO,KAAd,CADd;AAGA,eAAU;AApBc;AAAW;AAVF;AAEjC;AACA,2BAAe;AACf,6BAAiB;AACjB,4BAAgB;AAChB,8BAAkB;AAClB,0BAAe,IAAf;AAPsD;AAArB;AA19DjB;;;AAsBI,+BAAO,UrB2gBjB,+BqB3gBiB,CAAP;AAEJ,6BjBgFV,uCiBhFU;AACI,iCrBFV,gCqBEU;AACO;AACT,+BjBqFV,yCiBrFU,yBjBosBkD,uBAAC,0CAAQ,wCAAT,CiBpsBlD;AACC;AACD;AACF,6BhB4UV,uCgB5UU;AACG,gCjBqEV,0CiBrEU;AACQ,wCDhCV,kDCgCU;AACA,wCjBmFV,kDiBnFU;AACP,iCjBmFV,2CiBnFU;AACE,mCjBmFV,6CiBnFU;AACI,uCjBmFV,iDiBnFU;AACR;AACH,4BhBqaV,sCgBraU;AACE;AACF;AACE,8BDxCN,4CCwCM;AACF;AACG,+BjBsJV,yCiBtJU;AACC;AACF,8BA/CN,0BA+CM;AACH;AACQ;AACJ;AACF;AACG;AAEG,mCjBuDZ,2CiBvDY;AACD,kCjBsDX,2CiBtDW;AACG;AACD;AAEL,+BjBoHN,6CiBpHM;AACG,kCjBmHT,6CiBnHS;AACC,mCDxCP,gDCwCO;AACD,kCjB6HP,+CiB7HO;AACA,kCjB2HP,+CiB3HO;AACD,iCjB6HP,8CiB7HO;AACE,mCjB2HP,gDiB3HO;AA/DN;AAkEN;;;;AAEQ;AACG;AAHX;AAMG;;;;AAEO;;AAEX;;;AAEP;AACA;AACA;AACA;AACA;AANO;;;;;AA+gEuB;AAEhC;AAAI;AAEJ,UAAI,iBAAa,KAAG,KAApB;AAEE,aAAM;AACN,aAAM;AACN,4BAAgB;AAChB,YAAG,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAlB;AAEE,wBAAS,EAAT;AACA,yBAAU,EAAV;SAHF;AAKA;OAVF;AAJgC;AAxEM;AAArB;AAEjB,eAA8B;AAFb;AAAqB;AAKT;AAAZ;AAEjB,eAAU;AAFO;AAAY;AAYE;AAAd;AAEjB;AAEA,WAAM;AAER;AAGE;AACA,eAAU;AAVO;AAAc;AAcH;AAE5B;AACA,UAAY,uBAAD,QAAX;AAEE,+BAAa,QAAb,GAAyB;OAF3B;AAH4B;AAuBJ;AAExB,UAAI,SAAK,KAAG,MAAZ;AAEE,oBAAQ;AACR;OAHF;AAFwB;AASA;AAExB,UAAI,SAAK,KAAG,MAAZ;AAEE,oBAAQ;AACR;OAHF;AAFwB;AA+CK;AAE7B,UAAI,cAAU,KAAG,MAAjB;AAEE,yBAAa;AACb;OAHF;AAF6B;AAuCD;AAAX;AAEjB;AAEA,eAAU;AAEV,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,aADF;AAGA,UAAyB,mBAAU;AACnC,UAAI,CAAE,KAAG,EAAT,EACE,SAAU,qBAAQ,CAAC,CAAD,CADpB;AAViB;AAAW;AA1DF;AAE1B;AAEA,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,yBAAS,cAAC,MAAU,qBAAQ,CAAC,SAAD,CAAnB;AACT,yBAAS,cAAC,MAAU,qBAAQ,CAAC,SAAD,CAAnB;AAET,WAAM;AAGR;AACA;AAd4B;AAjFF;AAExB,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAFwB;AA8BO;AAE/B;AACA;AAH+B;AA+EM;AAErC;AAEA;AAEA,WAAM;AAEN,UAAG,iBAAY,KAAE,sCAAjB;AAEE,UAAE,gBAAgB,CAAC,QAAD;AAClB,UAAE,MAAM,eAAe,CAAC,cAAD;AACvB,UAAE,MAAM,eAAe,CAAC,oBAAD;AACvB,UAAE,MAAM,eAAe,CAAC,QAAD;AACvB,YAAG,gBAAW,KAAE,4CAAhB,EACE,EAAE,MAAM,YAAY,CAAC,QAAS,qBAAQ,CAAC,eAAD,CAAlB,CADtB;;AAKA,UAAE,aAAa,CAAC,SAAS,UAAV;AACf,UAAE,MAAM,YAAY,CAAC,eAAe,OAAhB;AACpB,UAAE,MAAM,YAAY,CAAC,qBAAqB,iBAAtB;AACpB,UAAE,MAAM,eAAe,CAAC,OAAD;AACvB,YAAG,iBAAY,KAAE,4CAAjB,EACE,EAAE,MAAM,YAAY,CAAC,SAAU,qBAAQ,CAAC,gBAAD,CAAnB,CADtB;AAEA,UAAE,MAAM,YAAY,CAAC,QAAQ,MAAT;;AAzBe;AAzEH;AAElC;AACA,kBAAQ;AACR,kBAAQ;AACR,uBAAa;AALqB;AAr/DzB;;;AAyBO,6BjBGV,uCiBHU;AACW;AACT,+BjBSV,yCiBTU,yBjBwnBkD,uBAAC,0CAAQ,wCAAT,CiBxnBlD;AACC,gCjBJV,0CiBIU;AACQ,wCjBWV,kDiBXU;AACP,iCjBWV,2CiBXU;AACE,mCjBWV,6CiBXU;AACI,uCjBWV,iDiBXU;AACR;AACD;AACO;AACF,mCjBLZ,2CiBKY;AACP;AACG,+BjB+EV,yCiB/EU;AACJ;AACA;AACQ,mCA3CF,mCA2CE;AACH;AACJ;AACI;AACA;AACD;AACJ;AACI;AACF;AACO;AACF,kCjBpBX,2CiBoBW;AACH,+BjB6CN,6CiB7CM;AACC,gCjB4CP,6CiB5CO;AACE,kCjBuDP,+CiBvDO;AACA,kCjBqDP,+CiBrDO;AACD,iCjBuDP,8CiBvDO;AACE,mCjBqDP,gDiBrDO;AAzDb;AA4DG;;;;AAEN;;;AAEJ;AACA;AACA;AACA;AALI;;;;;AAsjEmB;AAEzB,sBAAY;AACZ;AAHyB;AAMC;AAE1B,uBAAa;AACb;AAH0B;AAMJ;AAEtB,UAAY,aAAD,QAAX,EACE,aAAQ,CAAC,IAAD,CADV;AAFsB;AAqBM;AAE5B;AAEA,UAAG,aAAH,EACE,gBAAY,MAAM,YAAY,CAAE,uCAAS,cAAX,CADhC;AAJ4B;AATD;AAE3B,UAAG,aAAS,KAAG,CAAC,CAAhB;AAEE,cAAM,cAAc,CAAC,aAAD;AACpB,wBAAY,CAAC;OAHf;AAF2B;AAhCJ;AAEvB;AACA,uBAAa;AACb,sBAAY,CAAC;AACb,sBAAW,IAAX;AAL4C;AAArB;AA0BA;AAEvB;AACA;AAHuB;AAxkEjB;;AAac,+BAAO,UrB0YjB,+BqB1YiB,CAAP;AAGF;AACC;AACD,+BjBiBN,6CiBjBM;AAlBZ;AAqBG;;;AAEQ,wEAAmB,U9BjE7B,2B8BiE6B,EAAc,mBAAI,mBAAI,kBAAzC;AACE,0EAAmB,U9BlE/B,2B8BkE+B,EAAc,mBAAI,mBAAI,mBAAS,uBAAlD;AACG,6EAAmB,U9BnElC,2B8BmEkC,EAAgB,sBAAmB,uBAAtD;AAEE,kFAAmC,axBs+ChD,4BwBt+CgD,CAAnC;AAEZ;;;AAEV;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAZU;;;;;;;;;AAyvG4B;AAExC,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,SAAS,OAAO,UAAW,SAAS,OAAO,WAAY,SAAS,OAAO,SAA9E,CADf;AAGA,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,SAAS,OAAO,UAAW,SAAS,OAAO,WAAY,SAAS,OAAO,UAAW,SAAS,OAAO,SAAzG,CADjB;AALwC;AANN;AAElC,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,MAAM,MAAO,MAAM,QAA1B,CADpB;AAFkC;AAeW;;AAG9C;AAEkB;AAEf,aAAK,CAAC,qCAAD;AAFU;AAMjB,YAAM,mBAAN,GAA6B;AAC7B,YAAM,QAAN,GAAkB;AAClB,YAAM,WAAN,GAAqB;AACrB,2BAAW,mBAAmB,SAAmC,KAAK,yCAAxC;AAde;AAiBC;AAE9C,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,SAAS,OAAO,UAAW,SAAS,OAAO,WAAY,SAAS,OAAO,SAA9E,CADrB;AAGA,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,SAAS,OAAO,UAAW,SAAS,OAAO,WAAY,SAAS,OAAO,UAAW,SAAS,OAAO,SAAzG,CADvB;AAL8C;AAzCjB;AAE7B;AACA,4BAAkB;AAClB,sBAAY;AACZ,yBAAe;AACf,sBAAY,CAAC;AANqC;AAArB;AAqFK;AAAd;AAEpB,eAAmB,qBAAD;AAFE;AAAc;AAlCC;AAEnC;AAEA,UAAY,qBAAD,QAAX;AAEE,cAAM,mBAAN,GAA6B;AAC7B,cAAM,QAAN,GAAkB;AAClB,cAAM,WAAN,GAAqB;AACrB,6BAAW,mBAAmB,CAAyB,+CAAmD,yCAAgB,yCAA5F;OALhC;AAJmC;AAaI;;AAAnB;AAEpB;AAEA,eAAqB,IAAX,OAAW,CACnB;AAEE,YAAY,qBAAD,QAAX;AAEE,wCAAwB,CAAC;AAEvB,oBAAQ,CAAC,qCAAD;AAFe,WAAD;SAMxB,MAAA,OAAO,CAAC,IAAD;AAVX,OADmB;AAJD;AAAmB;AA0BL;AAElC;AAEA,UAAG,aAAS,KAAG,CAAC,CAAhB,EACE,mBADF;AAGA,UAAY,qBAAD,QAAX;AAEE,cAAM,mBAAN,GAA6B;AAC7B,cAAM,QAAN,GAAkB;AAClB,cAAM,WAAN,GAAqB;AACrB,wBAAY,qBAAW,cAAc,CAAyB,qDAAyD,yCAAgB,yCAAlG;OALvC;AAPkC;AAgBD;AAEjC,UAAW,CAAC,qBAAD,SAAc,IAAc,CAAT,aAAS,KAAG,CAAC,CAAJ,CAAvC;AAEE,6BAAW,WAAW,CAAC,aAAD;AACtB,wBAAY,CAAC;OAHf;AAFiC;AAp1GrB;;AAmBQ,+BAAO,UrBuWjB,+BqBvWiB,CAAP;AASI;AACN;AACG;AACG,qCArCP,gCAqCO;AACE,uCArCP,kCAqCO;AACG,0CArCP,qCAqCO;AACC,2CAxCb,gCAwCa;AACE,6CAxCb,kCAwCa;AAnCpB;AAsCG;;;AAEN;;;AAEP;AAFO;;;;;AAsiEc;AAEvB;AACA,UAAY,aAAD,QAAX,EACE,aAAO,CAAC,IAAD,CADT;AAHuB;AAVc;AAErC;AAEA,UAAI,2CAAY,IAAG,oBAAnB;AAEE,+BAAa,MAAM,YAAY,CAAC,SAAU,iBAAX;OAFjC;AAJqC;AA5hE5B;;;AAQO,6BjB/GV,uCiB+GU;AACW;AACT,+BjBzGV,yCiByGU,yBjBsgBkD,uBAAC,0CAAQ,wCAAT,CiBtgBlD;AACC,gCjBtHV,0CiBsHU;AACC,iCjBtGV,2CiBsGU;AACE,mCjBtGV,6CiBsGU;AACI,uCjBtGV,iDiBsGU;AACR;AACM;AACF,mCjBrHZ,2CiBqHY;AACJ,+BjBhCV,yCiBgCU;AACE,iCLtBV,wCKsBU;AACG;AACF,kCjBzHX,2CiByHW;AACH,+BjBxDN,6CiBwDM;AACG,kCjBzDT,6CiByDS;AACE,oCjBxDP,iDiBwDO;AACL,+BjB3DN,6CiB2DM;AACK,oCjBpDZ,4CiBoDY;AACD,mCjBrDX,4CiBqDW;AACD,kCjBtDV,4CiBsDU;AACA,kCjBnDP,+CiBmDO;AACA,kCjBrDP,+CiBqDO;AACD,iCjBnDP,8CiBmDO;AACE,mCjBrDP,gDiBqDO;AAhCb;AAmCG;;;;AAEI,0EAAgC,UxBwLxC,yBwBxLwC,CAAhC;AACD,yEAAgC,UxBuLvC,yBwBvLuC,CAAhC;AAGI;;;AAEjB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAViB;;;;;;;;;AAu4Ee;AAElC,kBAAQ;AACR,0BAAe,CAAC,IAAD;AAHmB;AA5LK;AAAZ;AAE3B,eAAU,qCAAc,CAAC,wBT96EuC,EAAsB,CS86E9D;AAFG;AAAY;AAsEG;AAAf;AAE3B;AACA;AAAE;AAEF,WAAM;AAGR;AACA;AAGE,mBAAQ,OAAR,GAAkB;AAClB,mBAAQ,QAAR,GAAmB;AAEnB,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAGA,UAAY,iBAAD,QAAX,EACE,iBAAY,CAAC,MAAD,CADd;AAGA,eAAU;AArBiB;AAAe;AAtBJ;AAAX;AAE3B;AACA;AACA;AAEA,eAAU;AACV,gBAAW;AACX,UAAY,aAAD,QAAX;AAEE,iBAAS,MAAT,GAAmB;AACnB,mBAAW,IAAX,GAAqC,MAAM;AAC3C,qBAAQ,CAAC,KAAM,mEAAa,wDAAW;;;;YAA/B;OAJV;AAOA,UAAY,gBAAD,QAAX,EACE,gBAAW,CAAC,MAAD,CADb;AAGA,UAAG,CAAI,OAAgD,IAApC,CAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAArB,IAAiD,CAAJ,SAAI,KAAG,EAAH,CAAhE,EACE,MAAM,sBAAS,QAAC,YAAM,CAAC,sBAAuB,GAAE,SAA1B,CAAN,CADlB;AAlB2B;AAAW;AA4KA;AAEtC,mBAAQ,OAAO,CAAC,KAAD;AAFuB;AAKI;AAE1C,iBAAM,CAAC,aAAO,UAAR;AACN;AAH0C;AAMI;AAE9C,0BAAe,CAAC,wBAAyB,GAAE,6CAAsB,CAAC,aAAO,QAAC,EAAT,CAAlD;AAF+B;AAhMN;AAAb;AAE3B,eAAU,QAAQ,cAAc,CAAC,KAAD;AAEhC,UAAG,SAAI,KAAG,EAAV,EACE,MAAM,aAAa,CAAC,MAAO,SAAR,CADrB;AAJ2B;AAAa;AA0KC;AAEzC;AACA,UAAG,cAAS,IAAY,CAAC,uBAAD,SAAxB;AAEE,+BAAa,MAAM,eAAe,CAAC,OAAD;AAClC,+BAAa,MAAM,eAAe,CAAC,QAAD;OAHpC;AAHyC;AAjCE;AAE3C,UAAY,mBAAD,QAAX;AAEE,YAAG,IAAK,KAAE,EAAV;AACE,6BAAS,gBAAgB,CAAC,KAAD;AAEhB,cAAT,mBAAS,cAAC,MAAU,IAAX;AACX;OANF;AAF2C;AAlKL;AAEtC;AAEA,UAAY,2BAAD,QAAX;AAEE,mCAAiB,iBAAiB,CAAC,OAAO,kBAAR;AAClC,YAAG,CAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAApB,EACE,2BAAiB,iBAAiB,CAAC,QAAQ,mBAAT,CADpC;OAHF;AAJsC;AAoLE;AAExC;AAEA;AAEA,UAAY,2BAAD,QAAX;AAEE,aAAM;AACN,UAAE,oBAAoB,CAAC,OAAQ,kBAAT;AACtB,YAAG,CAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAApB,EACE,EAAE,oBAAoB,CAAC,QAAQ,mBAAT,CADxB;OAJF;AANwC;AAnKO;AAE/C;AAEA,2BAAiB;AACjB,4BAAkB;AAL6B;AA1BF;AAE7C;AACA,UAAG,kBAAc,KAAE,IAAnB,EACE,qBAAkB,0CADpB;AAEA,UAAG,mBAAe,KAAE,IAApB,EACE,sBAAmB,sCADrB;AAL6C;AApCD;AAE5C;AACA,sBAAY,kCAAW,QAAC;AACxB,mBAAQ,UAAR,GAAqB;AACrB,mBAAQ,cAAR,GAAyB;AACzB,oBAAS,EAAT;AACA,sBAAW,KAAX;AACA,UAAI,2CAAY,IAAG,oBAAnB;AAEE,sBAAS,GAAT;AACA,uBAAU,GAAV;OAHF;AAR4C;AAyBR;AAE3B,eAAT,KAAS;AACC;AAH0B;AAgCH;AAEjC,kBAAO,iBAAP;AAFiC;AA1CC;AAAP;AAE3B,eAAU,wBAAyB,GAAE,mBAAF;AAFR;AAAO;AAKA;AAAP;AAE3B,eAAU,wBAAyB,GAAE,qCAAc,CAAC,wBAAe,OAAQ,OAAxB,CAAhB;AAFR;AAAO;AA4PK;AAEvC,wBAAW,CAAC,gBAAO,iBAAQ,KAAhB;AAF4B;AALA;AAEvC,wBAAW,CAAC,OAAQ,QAAS,KAAlB;AAF4B;AAUA;AAGvC;AAAE;AACF;AAEA,UAAG,WAAH;AAEE,YAAe,CAAX,iBAAW,KAAE,MAAF,CAAU,IAAgB,CAAZ,kBAAY,KAAE,OAAF,CAAzC,EACE,MADF;;AAKA,YAAe,CAAX,iBAAW,KAAE,MAAF,CAAU,IAAiB,CAAZ,kBAAY,KAAE,OAAF,CAA1C,EACE,MADF;;AAIF,UAAW,CAAP,MAAO,KAAE,CAAF,CAAK,IAAY,CAAR,OAAQ,KAAE,CAAF,CAA5B,EACE,MADF;AAGA,UAAK;AACL,UAAK;AAEL,UAAG,WAAH;AAEE,YAAc,CAAV,iBAAU,GAAC,CAAD,CAAG,GAAa,CAAX,kBAAW,GAAC,CAAD,CAA9B;AACE,cAAK,iBAAU,GAAC,CAAD;AAEf,kBAAK,kBAAW,GAAC,CAAD;AAElB,YAAK,UAAK,CAAC,iBAAW,GAAE,CAAd;AACV,YAAK,UAAK,CAAC,kBAAY,GAAE,CAAf;OARZ;AAWA,kBAAO,wBAAyB,GAAE,qCAAc,CAAC,wBAAe,EAAG,CAAnB,CAAhD;AAlCuC;AAxIF;AAAV;AAE3B;AACA;AAEA,eAAU,CAAC;AACX,UAAY,uBAAD,QAAX;AAEE,aAAM;AAEV;AAEI,iBAAU;OANZ;AAN2B;AAAU;AAhBC;AAAX;AAE3B;AACA;AAEA,eAAU,CAAC;AACX,UAAY,uBAAD,QAAX;AAEE,aAAM;AAEV;AAEI,iBAAU;OANZ;AAN2B;AAAW;AAgES;AAE/C;AACA;AAEA,eAAwB,IAAd,UAAc,CAAI,MAAJ;AAG1B;AACA;AACA;AAGE,kBAAO,yBAA0B,GAAE,OAAnC;AAb+C;AALF;AAE7C,eAAU,uCAAmB,CAAC,mBAAD;AAFgB;AAlBP;;AAAX;AAE3B,eAAqB,IAAX,OAAW,CACnB;AAEE,2BAAW,CAAC,KACV;AAEE,kBAAQ,CAAC,MAAD;AAFV,UAKA;AAEE,iBAAO,CAAC,MAAD;AAFT,SANS;AAFb,OADmB;AAFM;AAAW;AATC;AAGvC,0BAAgB;AAChB,yBAAe;AAEf,kBAAO,IAAP;AANuC;AAz0EpB;;;AA8CH,6BjB9LV,uCiB8LU;AACW;AACT,+BjBxLV,yCiBwLU,yBjBubkD,uBAAC,0CAAQ,wCAAT,CiBvblD;AACC;AACF,8BjBpFV,wCiBoFU;AACI;AACF,gCjBxMV,0CiBwMU;AACQ,wCjBzLV,kDiByLU;AACL,mCjBxLV,6CiBwLU;AACF,iCjB1LV,2CiB0LU;AACM,uCjBzLV,iDiByLU;AACF;AACF,mCjBvMZ,2CiBuMY;AACJ,+BjBlHV,yCiBkHU;AACE,iCLxGV,wCKwGU;AACD;AACI;AACF,kCjB5MX,2CiB4MW;AACH,+BjB3IN,6CiB2IM;AACG,kCjB5IT,6CiB4IS;AACH,+BjBxKH,gDiBwKG;AACC,gCjB9IP,6CiB8IO;AACE,kCjBnIP,+CiBmIO;AACA,kCjBrIP,+CiBqIO;AACD,iCjBnIP,8CiBmIO;AACE,mCjBrIP,gDiBqIO;AAvEH;AA0EN;;;;AAEK,+BhBiXP,4CgBjXO;AACJ;AAHD;AAMG;;;;AA8BC;AA1BG;;;AAElB;AACA;AACA;AACA;AACA;AACA;AAPkB;;;;;AA0hMyB;AAE7C,UAAmB,CAAf,mBAAe,KAAG,KAAH,CAAU,IAAoB,CAAf,mBAAe,IAAG,GAAH,CAAjD;AAEE,8BAAkB;AAClB,mBAAM;OAHR;AAF6C;AAoCD;AAE5C,UAAkB,CAAd,kBAAc,KAAG,KAAH,CAAU,IAAmB,CAAd,kBAAc,IAAG,GAAH,CAA/C;AAEE,6BAAiB;AACjB,mBAAM;OAHR;AAF4C;AA3BW;AAEvD,UAA6B,CAAzB,6BAAyB,KAAG,KAAH,CAAU,IAA8B,CAAzB,6BAAyB,IAAG,GAAH,CAArE;AAEE,wCAA4B;AAC5B,mBAAM;OAHR;AAFuD;AAkBD;AAEtD,UAA4B,CAAxB,4BAAwB,KAAG,KAAH,CAAU,IAA6B,CAAxB,4BAAwB,IAAG,GAAH,CAAnE;AAEE,uCAA2B;AAC3B,mBAAM;OAHR;AAFsD;AATJ;AAElD,UAAwB,CAApB,wBAAoB,KAAG,KAAH,CAAU,IAAyB,CAApB,wBAAoB,IAAG,CAAH,CAA3D;AAEE,mCAAuB;AACvB,mBAAM;OAHR;AAFkD;AAtCb;AAErC,4BAAkB;AAClB,2BAAiB;AACjB,sCAA4B;AAC5B,qCAA2B;AAC3B,iCAAuB;AACvB,oBAAU;AAPuD;AAA5B;AAUA;AAErC;AAFqC;AAvBF;AAEnC;AACA,UAAc,yBAAH,eAAP,MAAO,CAAX;AAEE,8BAA0B,OAAP,OAAU,yBAAH,CAAwB;AAClD,6BAAyB,OAAP,OAAU,yBAAH,CAAwB;AACjD,wCAAoC,OAAP,OAAU,yBAAH,CAAwB;AAC5D,uCAAmC,OAAP,OAAU,yBAAH,CAAwB;AAC3D,mCAA+B,OAAP,OAAU,yBAAH,CAAwB;OANzD;AAHmC;AA4BC;AAAR;AAE5B,eAAU;AAFkB;AAAQ;AArhMhB;AAcA,+BAAO,UAYV,+BAZU,CAAP;AAKI;AACD;AACW;AACD;AACJ;AAvBT;AA0BH;;;AAEf;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATe;;;;;;;;AAw1LuB;AAExC,uBAAY,OAAO,CAAC,KAAD;AAFqB;AAKJ;AAEpC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAFoC;AAlBQ;AAE5C,qBAAU,CAAC,iBAAW,UAAZ;AACV,iCAAuB;AACvB;AAJ4C;AAOI;AAEhD,iCAAuB,wBAAyB,GAAE,6CAAsB,CAAC,iBAAW,QAAC,EAAb,CAAxB;AAChD;AAHgD;AAoBT;AAEvC;AACA;AACA;AAAE;AAAE;AACJ;AACA;AAEA;AAEA,UAAG,CAAY,CAAC,uBAAD,SAAf,EACE,MADF;AAGA,UAAY,aAAD,QAAX;AAEE,+BAAa,aAAa,CAAC,UAAW,2BAAmC,GAAL,UAAF,GAAS,mCAAjD;AAE1B,YAAG,wBAAoB,KAAG,EAA1B;AACE,uBAAc;AAEd,2BAAc;AAEhB,YAAG,UAAW,KAAE,EAAhB,EACE,aAAc,SADhB;AAGA,YAAG,kBAAS,IAAgB,CAAX,UAAW,KAAE,EAAF,CAA5B;AAEE,uBAAc,uBAAa,cAAC,KAAD;SAF7B;AAKA,aAAM,uBAAU,CAAC,oBAAD;AAChB,kCAAa,CAAC,GAAG,IAAI,IAAI,cAAC,4CAAD,CAAZ;AACb,YAAK,iCAAU,CAAC,kBAAD;AACf,YAAK,gCAAS,CAAC,CAAD;AACd,YAAK,gCAAS,CAAC,CAAD;AACd,YAAK,gCAAS,CAAC,CAAD;AAEd,mBAAM,UAAN,GAAoB,GA+DpB,GA/D0B,UAAF,GAAS,mBAAF,GAC7B,oBAAF,GACE,sBAAF,GACE,wBAAF,GACE,kBAAF,GACE,mBAAF,GACE,uBAAF,GACE,eAAF,GACE,gBAAF,GACE,2CAAF,GACE,uCAAF,GACE,2BAAF,GAA+B,yCAAD;;;;YAAC,CAAF,GAAY,GAAD,GAAM,yCAAD;;;;YAAC,CAAF,GAAY,GAAD,GAAM,yCAAD;;;;YAAC,CAAF,GAAY,UAAD,GACpE,KAAF,GAEE,GAAF,GAAQ,UAAF,GAAS,WAAF,GACX,qBAAF,GACE,yBAAF,GACE,wBAAF,GACE,WAAF,GAAgB,qBAAQ,CAAC,gBAAU,cAAX,CAAV,GAAsC,MAAF,GAChD,YAAF,GAAiB,qBAAQ,CAAC,gBAAU,eAAX,CAAV,GAAuC,MAAF,GAClD,uBAAF,GACE,eAAF,GACE,gBAAF,GACE,2CAAF,GACE,uCAAF,GACE,2BAAF,GAA+B,yCAAD;;;;YAAC,CAAF,GAAY,GAAD,GAAM,yCAAD;;;;YAAC,CAAF,GAAY,GAAD,GAAM,yCAAD;;;;YAAC,CAAF,GAAY,GAAD,GAAK,EAAD,GAAI,MAAD,GAC3E,KAAF,GAEE,GAAF,GAAQ,UAAF,GAAS,mBAAF,GACX,qBAAF,GACE,gBAAF,GACE,yBAAF,GACE,eAAF,GACE,gBAAF,GACE,2CAAF,GACE,uCAAF,GACE,sBAAF,GACE,uBAAF,GACE,KAAF,GAEE,GAAF,GAAQ,UAAF,GAAS,WAAF,GACX,wBAAF,GACE,yBAAF,GACE,gBAAF,GACE,kBAAF,GACE,qBAAF,GACE,sBAAF,GACE,wBAAF,GACE,uBAAF,GACE,KAAF,GAEE,GAAF,GAAQ,UAAF,GAAS,gBAAF,GACX,GAAF,GAAQ,UAAF,GAAS,iBAAF,GACX,kBAAF,GACE,4BAAF,GACE,sBAAF,GACE,KAAF,GAEE,+CAAF,GACE,KAAF,GAAS,UAAF,GAAS,WAAF,GACZ,WAAF,GAAgB,qBAAQ,CAAC,gBAAU,wBAAX,CAAV,GAAgD,MAAF,GAC1D,YAAF,GAAiB,qBAAQ,CAAC,gBAAU,yBAAX,CAAV,GAAiD,MAAF,GAC5D,OAAF,GACE,KAAF;AAEA,qBAAQ,aAAa,CAAC,UAAW,8BAAZ;AACrB,qBAAQ,aAAa,CAAC,KAAM,UAAK,GAAE,SAAd;AACrB,qBAAQ,aAAa,CAAC,QAAS,UAAK,GAAE,eAAjB;AAErB,eAAe,aAAQ,WAAT,QAAd,EACE,aAAQ,YAAY,CAAC,aAAQ,WAAT;AAEtB,gBAAS,QAAQ,cAAc,CAAC,KAAD;AAC/B,aAAK,aAAa,CAAC,QAAS,UAAK,GAAE,OAAjB;AAClB,aAAK,UAAL,GAAmB,eAC2C,GADzB,UAAF,GAAS,uBAAF,GACxC,cAAF,GAAmB,UAAF,GAAS,sBAAF,GAA2B,UAAF,GAAe,IAAF;AAE9D,qBAAQ,UAAR,GAAsB;AACtB,qBAAQ,YAAY,CAAC,KAAD;OAtGtB;AAbuC;AAzDG;AAE1C;AACA,yBAAe,yBAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,0BAAgB,kCAAW,QAAC;AAC5B,uBAAY,UAAZ,GAAyB;AACzB,uBAAY,cAAZ,GAA6B;AAC7B,iCAAuB;AACvB,2BAAiB;AACjB,6BAAmB;AAEnB,oBAAU,QAAQ,cAAc,CAAC,OAAD;AAChC,sBAAY,QAAQ,cAAc,CAAC,KAAD;AAClC,cAAQ,KAAK,YAAY,CAAC,WAAD;AACzB,cAAQ,KAAK,YAAY,CAAC,aAAD;AAEzB,UAAI,2CAAY,IAAG,oBAAnB;AAEE,sBAAS,GAAT;AACA,uBAAU,EAAV;OAHF;AAhB0C;AALJ;AAAb;AAEzB,eAAU;AAFe;AAAa;AA4BJ;AAEtB,eAAZ,KAAY;AACC,eAAb,KAAa;AACb;AAJkC;AAp0LjB;;;AAqBI,kCA/CD,mCA+CC;AACH,+BhByTP,4CgBzTO;AACE,iCLjLV,wCKiLU;AACN;AACQ,mChBsTX,4CgBtTW;AACJ;AACK,oChBvBjB,uCgBuBiB;AACE;AA5BR;AA+BG;;;;AAER;;;AAEV;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATU;;;;;;;AA+6FuB;AAEnC,UAAI,iBAAa,KAAG,KAApB;AAEE,4BAAgB;AAChB;OAHF;AAFmC;AANJ;AAE/B,mBAAQ,OAAO,CAAC,KAAD;AACf;AAH+B;AAxDE;AAEjC,UAAI,eAAW,KAAG,KAAlB;AAEE,0BAAc;AACd;OAHF;AAFiC;AAvGA;AAAb;AAEpB,eAAU,QAAQ,cAAc,CAAC,MAAD;AAChC,wBAA6B,QAAQ,cAAc,CAAC,KAAD;AACnD,qBAAU,cAAC,QAAY,WAAb;AACV,YAAM,YAAY,CAAC,eAAD;AALE;AAAa;AAsIF;AAEX,iEAAC,MAAD;AAEpB,UAAW,CAAC,uBAAD,SAAgB,IAAI,iBAA/B;AAEE,YAAG,CAAY,CAAC,WAAD,SAAf;AAEE,wBAAyB,QAAQ,cAAc,CAAC,MAAD;AAC/C,qBAAM,UAAN,GAAoB;AAEpB,cAAY,wBAAD,QAAX;AACE,oCAAc,YAAY,CAAC,WAAD;AAE1B,gBAAA,uBAAa,YAAY,CAAC,WAAD;AAE3B;;AAIA,qBAAM,UAAN,GAAoB;;OAhBxB;AAJ+B;AAbI;AAEnC;AACA;AAHmC;AATH;AAEhC,uBAAa;AACb,UAAG,cAAU,IAAI,CAAI,iBAArB;AAEE;OAFF;AAHgC;AAsEQ;AAExC;AAEA,UAAY,uBAAD,QAAX;AAEE,YAAG,CAAI,kBAAP;AAEE,cAAG,cAAH;AAEE,mCAAa,MAAM,YAAY,CAAC,WAAY,EAAb;AAC/B,mCAAa,MAAM,YAAY,CAAC,cAAe,QAAhB;AAC/B,gBAAG,aAAH,EACE,uBAAa,MAAM,YAAY,CAAC,UAAW,QAAZ,CADjC;;AAKA,mCAAa,MAAM,YAAY,CAAC,WAAY,QAAb;AAC/B,mCAAa,MAAM,YAAY,CAAC,cAAe,QAAhB;AAC/B,gBAAG,aAAH,EACE,uBAAa,MAAM,YAAY,CAAC,UAAW,cAAZ,CADjC;;AAIF,iCAAa,MAAM,YAAY,CAAC,eAAe,qBAAQ,CAAC,aAAO,MAAR,CAAc,GAAC,IAAvC;AAC/B,iCAAa,MAAM,YAAY,CAAC,gBAAgB,qBAAQ,CAAC,aAAO,OAAR,CAAe,GAAC,IAAzC;AAC/B,iCAAa,MAAM,YAAY,CAAC,cAAc,qBAAQ,CAAC,aAAO,KAAR,CAAa,GAAC,IAArC;AAC/B,iCAAa,MAAM,YAAY,CAAC,iBAAiB,qBAAQ,CAAC,aAAO,QAAR,CAAgB,GAAC,IAA3C;AAC/B,iCAAa,MAAM,YAAY,CAAC,aAAa,YAAd;AAE/B,cAAG,0BAAqB,KAAG,EAA3B;AACE,oCAAc,aAAa,CAAC,QAAS,0BAAV;AAE3B,gBAAA,wBAAc,gBAAgB,CAAC,OAAD;SA1BlC;AA6BA,YAAY,WAAD,QAAX;AAEE,cAAG,iBAAH;AACE,uBAAM,UAAN,GAAoB;AAEpB,gBAAA,WAAM,UAAN,GAAoB;AAGtB,cAAG,aAAH;AAEE,mCAAa,MAAM,YAAY,CAAC,UAAU,MAAX;AAC1B;AACL,gBADK,IACL;AAAe,qCAAa,MAAM,YAAY,CAAC,kBAAkB,YAAnB;AAC9C,sBAFK,IAEL;AAAU,qCAAa,MAAM,YAAY,CAAC,kBAAkB,QAAnB;AACzC,sBAHK,IAGL,4CAAgB,uBAAa,MAAM,YAAY,CAAC,kBAAkB,UAAnB,CAA/C;AAEA,mCAAa,MAAM,YAAY,CAAC,cAAc,QAAf;WARjC;SARF;AAqBA,+BAAa,MAAM,YAAY,CAAC,cAAe,EAAhB;AAG/B,YAAG,YAAO,KAAE,CAAZ,EACE,uBAAa,MAAM,YAAY,CAAC,SAAU,EAAX,CADjC;OAvDF;AAJwC;AAzMP;AAAb;AAEpB,eAAoB;AAFA;AAAa;AALC;AAAd;AAEpB,eAAoB;AAFA;AAAc;AARG;AAAjB;AAEpB,UAAY,eAAD,QAAX;AACE,iBAAU;AAEV,qBAAU;AALQ;AAAiB;AAkBF;AAEnC;AACA,UAAG,cAAH,EACE,iBADF;AAHmC;AA4LE;AAErC;AACA,UAAG,cAAH,EACE,iBADF;AAHqC;AAwEH;AAElC,WAAK,KAAL,GAAc,aAAO;AACrB,WAAK,IAAL,GAAa,aAAO;AACpB,WAAK,MAAL,GAAe,KAAK,MAAO,GAAE,aAAO,OAAT;AAC3B,WAAK,OAAL,GAAgB,KAAK,OAAQ,GAAE,aAAO,QAAT;AALK;AA9OH;AAE/B;AACA;AAAK;AAAK;AAAK;AACf;AACA;AAEA,UAAG,cAAH,EACE,MADF;AAGA,uBAAa;AAEb,UAAe,CAAX,gBAAW,KAAE,4CAAF,CAAc,IAAiB,CAAZ,iBAAY,KAAE,4CAAF,CAA9C;AAEE,eAAQ;AACR,eAAQ;AACR,eAAQ;AACR,eAAQ;AACR,iBAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AAEF,cAAG,gBAAQ,CAAC,CAAD,CAAG,YAAY,KAAE,4CAA5B;AAEE,gBAAoB,CAAjB,gBAAQ,CAAC,CAAD,CAAG,QAAC,EAAK,GAAE,gBAAQ,CAAC,CAAD,CAAG,SAAC,EAAd,CAAoB,GAAE,IAA1C,EACE,OAAQ,gBAAQ,CAAC,CAAD,CAAG,QAAC,EAAK,GAAE,gBAAQ,CAAC,CAAD,CAAG,SAAC,EADzC;AAGA,gBAAG,gBAAQ,CAAC,CAAD,CAAG,QAAC,EAAK,GAAE,IAAtB,EACE,OAAQ,gBAAQ,CAAC,CAAD,CAAG,QAAC,EADtB;;AAKA,iBAAM,gBAAQ,CAAC,CAAD,CAAG,iBAAC;AAClB,gBAAY,EAAD,QAAX;AAEE,kBAAK,EAAE;AACP,kBAAc,CAAP,CAAJ,CAAC,EAAG,GAAE,cAAF,CAAO,GAAE,CAAC,MAAH,CAAU,GAAE,IAA1B,EACE,OAAQ,UAAK,CAAM,CAAL,CAAC,EAAI,GAAE,cAAF,CAAO,GAAE,CAAC,MAAhB,CADf;AAGA,qBAAQ;aANV;;AAUF,cAAG,gBAAQ,CAAC,CAAD,CAAG,aAAa,KAAE,4CAA7B;AAEE,gBAAmB,CAAhB,gBAAQ,CAAC,CAAD,CAAG,OAAC,EAAI,GAAE,gBAAQ,CAAC,CAAD,CAAG,UAAC,EAAd,CAAqB,GAAE,IAA1C,EACE,OAAQ,gBAAQ,CAAC,CAAD,CAAG,OAAC,EAAI,GAAE,gBAAQ,CAAC,CAAD,CAAG,UAAC,EADxC;AAGA,gBAAG,gBAAQ,CAAC,CAAD,CAAG,OAAC,EAAI,GAAE,IAArB,EACE,OAAQ,gBAAQ,CAAC,CAAD,CAAG,OAAC,EADtB;;AAKA,iBAAM,gBAAQ,CAAC,CAAD,CAAG,iBAAC;AAClB,gBAAY,EAAD,QAAX;AAEE,kBAAK,EAAE;AACP,kBAAa,CAAN,CAAJ,CAAC,EAAG,GAAE,aAAF,CAAM,GAAE,CAAC,OAAH,CAAW,GAAE,IAA1B,EACE,OAAQ,UAAK,CAAK,CAAJ,CAAC,EAAG,GAAE,aAAF,CAAM,GAAE,CAAC,OAAd,CADf;AAEA,qBAAQ;aALV;;;AAWJ,YAAI,2CAAY,IAAG,oBAAnB;AAEE,cAAiB,CAAb,uBAAa,KAAE,CAAF,CAAmB,IAAL,CAAL,IAAK,KAAE,CAAF,CAAT,IAAuB,CAAL,IAAK,KAAE,CAAF,CAA7C,EACE,MADF;SAFF;AAMA,YAAI,iBAAY,KAAE,4CAAlB;AAEM,cAAJ,IAAG;AACC,cAAJ,IAAG;SAHL;AAMA,iBAAS,SAAkB,QAAb,uBAAa,GAAE,CAAF,qBAA3B;AAAI;AAEF,0BAAQ,CAAC,CAAD,CAAG,QAAC,CAAQ,gBAAQ,CAAC,CAAD,CAAG,QAAC,EAAK,GAAE,IAA3B;AACZ,0BAAQ,CAAC,CAAD,CAAG,OAAC,CAAO,gBAAQ,CAAC,CAAD,CAAG,OAAC,EAAI,GAAE,IAAzB;;AAGd,sBAAS,IAAK,GAAE,IAAhB;AACA,uBAAU,IAAK,GAAE,IAAjB;;AAIA,sBAAS,CAAC,CAAV;AACA,uBAAU,CAAC,CAAX;;AAGF;AAEA,uBAAa;AA5FkB;AAfE;AAEjC;AACA,UAAG,cAAH,EACE,iBADF;AAHiC;AA5DI;AAErC;AACA,UAAI,2CAAY,IAAG,oBAAnB,EACE,0BAAqB,IADvB;AAEA,uBAAa;AACb,wBAAc;AACd,oBAAS,QAAT;AACA,sBAAW,KAAX;AACA,2BAAgB;AAChB,0BAAe,IAAf;AACA,2BAA6B,aAAb,mBAAe,cAAC,2DAAD,CAAF;AAC7B,oBAAU;AACV,sBAAY,+BAAQ,QAAC;AAErB,UAAI,2CAAY,IAAG,oBAAnB;AAEE,sBAAS,GAAT;AACA,uBAAU,GAAV;OAHF;AAfqC;AAsBR;AAEpB,eAAT,KAAS;AACT;AAH6B;AAMC;AAE9B;AACA,UAAG,cAAH,EACE,iBAAY,IAAZ,CADF;AAH8B;AAsKA;AAE9B;AACA,UAAG,cAAH,EACE,iBADF;AAH8B;AAz4FlB;;;AAuCN;;;;AAEU,6BjBxUV,uCiBwUU;AACI,iCrB1ZV,gCqB0ZU;AACO;AACT,+BjBnUV,yCiBmUU,yBjB4SkD,uBAAC,0CAAQ,wCAAT,CiB5SlD;AACC;AACG,mChB3EhB,uCgB2EgB;AACA,mCjB5UV,6CiB4UU;AACJ;AACD,8BjBlOV,wCiBkOU;AACI;AACL,6BhBhFV,uCgBgFU;AACG,gCjBvVV,0CiBuVU;AACY,4CjBxUd,kDiBwUc;AACX,iCjBxUV,2CiBwUU;AACE,mCjBxUV,6CiBwUU;AACI,uCjBxUV,iDiBwUU;AACX,4BhBWV,sCgBXU;AACS;AACF,mCjBvVZ,2CiBuVY;AACJ,+BjBlQV,yCiBkQU;AACA,+BjB7NV,yCiB6NU;AACG;AACD,iCL1PV,wCK0PU;AACL;AACO;AACH;AACD;AACK;AACF,kCjBjWX,2CiBiWW;AACH,+BjBhSN,6CiBgSM;AACG,kCjBjST,6CiBiSS;AACA,kCjBtRP,+CiBsRO;AACA,kCjBxRP,+CiBwRO;AACD,iCjBtRP,8CiBsRO;AACE,mCjBxRP,gDiBwRO;AACC,oCjB9RZ,4CiB8RY;AACD,mCjB/RX,4CiB+RW;AACD,kCjBhSV,4CiBgSU;AACG,qCjBjSb,4CiBiSa;AAxClB;AA2CG;AA8mFqB;AAAb;AAEjB,eAAU,QAAQ,cAAc,CAAC,KAAD;AAFf;AAAa;AA9mFrB;;;AAKA;;;;AAEM;;;AAEb;AACA;AACA;AACA;AACA;AANa;;;;;;;AA80IkC;AAEjD,UAAI,4BAAwB,KAAG,KAA/B;AAEE,uCAA2B;AAC3B;OAHF;AAFiD;AAmCf;AAElC,mBAAQ,OAAO,CAAC,KAAD;AACf;AAHkC;AAwDG;AAErC,WAAK,KAAL,GAAc,aAAO;AACrB,WAAK,IAAL,GAAa,aAAO;AACpB,WAAK,MAAL,GAAe,KAAK,MAAO,GAAE,aAAO,OAAT;AAC3B,WAAK,OAAL,GAAgB,KAAK,OAAQ,GAAE,aAAO,QAAT;AALQ;AAlFE;AAEvC;AAAG;AAEH,UAAY,cAAD,QAAX;AAEE,aAAM;AACN,aAAM;AACN,YAAqB,CAAjB,sBAAiB,KAAG,EAAH,CAAO,IAA2B,CAAvB,4BAAuB,KAAG,EAAH,CAAvD;AAEE,eAAM;AACN,eAAM;SAHR;AAMA,YAAI,gBAAW,KAAE,4CAAjB;AACE,wBAAS,MAAM,YAAY,CAAC,QAAQ,qBAAQ,CAAC,eAAM,GAAE,EAAT,CAA8B,GAAC,IAAhD;AAE3B,cAAA,cAAS,MAAM,YAAY,CAAC,QAAQ,KAAT;AAE7B,YAAG,iBAAY,KAAE,4CAAjB;AACE,wBAAS,MAAM,YAAY,CAAC,SAAS,qBAAQ,CAAC,gBAAO,GAAE,EAAV,CAA+B,GAAC,IAAlD;AAE3B,cAAA,cAAS,MAAM,YAAY,CAAC,SAAS,KAAV;OAlB/B;AAJuC;AAlBL;AAElC,UAAG,eAAS,KAAG,KAAf;AAEE,0BAAY;AACZ;OAHF;AAFkC;AAnDE;AAAb;AAKvB,eAAU,QAAQ,cAAc,CAAC,KAAD;AAEhC,uBAA4B,QAAQ,cAAc,CAAC,UAAD;AAClD,YAAM,YAAY,CAAC,cAAD;AAElB,qBAA0B,QAAQ,cAAc,CAAC,QAAD;AAChD,oBAAS,YAAY,CAAC,YAAD;AACrB,kBAAO,UAAP,GAAqB;AAZE;AAAa;AAqGK;AAEzC;AACA,UAAY,YAAD,QAAX;AAEE,oBAAO,UAAP,GAAqB;OAFvB;AAHyC;AASE;AAE3C;AAEA,UAAY,uBAAD,QAAX;AAEE,+BAAa,MAAM,eAAe,CAAC,kBAAD;OAFpC;AAKA,UAAY,YAAD,QAAX;AAEE,oBAAO,cAAC,QAAY,SAAU,GAAE,4BAAzB;AACQ,oBAAQ,MAAM,YAAY,CAAC,QAAS,MAAV;OAH3C;AAMA,UAAY,cAAD,QAAX;AAEE,sBAAS,MAAM,YAAY,CAAC,mBAAmB,kCAAW,CAAC,WAAD,CAA/B;AAC3B,sBAAS,MAAM,YAAY,CAAC,WAAY,SAAb;AAE3B;AAEA,sBAAS,MAAM,YAAY,CAAC,cAAe,QAAhB;AAE3B,sBAAS,MAAM,YAAY,CAAC,eAAe,qBAAQ,CAAC,aAAO,MAAR,CAAc,GAAC,IAAvC;AAC3B,sBAAS,MAAM,YAAY,CAAC,gBAAgB,qBAAQ,CAAC,aAAO,OAAR,CAAe,GAAC,IAAzC;AAC3B,sBAAS,MAAM,YAAY,CAAC,cAAc,qBAAQ,CAAC,aAAO,KAAR,CAAa,GAAC,IAArC;AAC3B,sBAAS,MAAM,YAAY,CAAC,iBAAiB,qBAAQ,CAAC,aAAO,QAAR,CAAgB,GAAC,IAA3C;AAE3B,YAAG,aAAH,EACE,cAAS,MAAM,YAAY,CAAC,UAAW,cAAZ,CAD7B;AAGA,sBAAS,MAAM,YAAY,CAAC,qBAAsB,MAAvB;AAC3B,sBAAS,MAAM,YAAY,CAAC,kBAAmB,MAApB;AAC3B,sBAAS,MAAM,YAAY,CAAC,oBAAqB,MAAtB;AAC3B,sBAAS,MAAM,YAAY,CAAC,iBAAkB,MAAnB;AAC3B,sBAAS,MAAM,YAAY,CAAC,cAAe,MAAhB;AAC3B,sBAAS,MAAM,YAAY,CAAC,SAAS,YAAY,GAAE,kCAAW,CAAC,iBAAD,CAAnC;OAtB7B;AAf2C;AAjEP;AAEpC;AACA;AAHoC;AARE;AAEtC,UAAI,QAAS,KAAE,+CAAf;AAEE,uCAA0B,IAA1B;OAFF;AAFsC;AANN;AAEvB,eAAT,KAAS;AACT;AAHgC;AAhBQ;AAExC;AACA,gCAAqB;AACrB,2BAA6B,aAAb,mBAAe,cAAC,2DAAD,CAAF;AAC7B,oBAAS,QAAT;AACA,sBAAY,+BAAQ,QAAC;AAErB,UAAI,2CAAY,IAAG,oBAAnB;AAEE,sBAAS,GAAT;AACA,uBAAU,GAAV;OAHF;AARwC;AAjyIzB;;;AA4BN;;;;AAEO,6BjBtZV,uCiBsZU;AACW;AACT,+BjBhZV,yCiBgZU,yBjB+NkD,uBAAC,0CAAQ,wCAAT,CiB/NlD;AACI,mChBvJhB,uCgBuJgB;AACJ;AACF,6BhBzJV,uCgByJU;AACG,gCjBhaV,0CiBgaU;AACG,mCjB/YV,6CiB+YU;AACF,iCjBjZV,2CiBiZU;AACa,8CjBnZhB,kDiBmZgB;AACP,uCjBjZV,iDiBiZU;AACX,4BhB9DV,sCgB8DU;AACS;AACF,mCjBhaZ,2CiBgaY;AACJ,+BjB3UV,yCiB2UU;AACG;AACD,iCLlUV,wCKkUU;AACL;AACQ;AACF,kCjBtaX,2CiBsaW;AACA,kCjBzVP,+CiByVO;AACA,kCjB3VP,+CiB2VO;AACD,iCjBzVP,8CiByVO;AACE,mCjB3VP,gDiB2VO;AACC,oCjBjWZ,4CiBiWY;AACD,mCjBlWX,4CiBkWW;AACD,kCjBnWV,4CiBmWU;AACG,qCjBpWb,4CiBoWa;AA7Bf;AAiCG;;;;AAEF;;;AAER;AACA;AACA;AACA;AACA;AACA;AAPQ;;;;;;;AAq1DqB;AAAb;AAElB,eAAU,uBAAa;AAFL;AAAa;AAKD;AAAZ;AAElB,eAAU,uBAAa;AAFL;AAAY;AAyBE;AAEhC,6BAAa,WAAb,GAA4B;AAFI;AAKD;AAE/B,6BAAa,UAAb,GAA2B;AAFI;AAdC;AAEhC,UAAI,gBAAY,KAAG,KAAnB;AAEE,2BAAe;AACf;OAHF;AAFgC;AAvFA;AAEhC;AACA,UAAW,CAAC,uBAAD,SAAgB,IAAI,CAAI,iBAAnC;AAEO;AACL,YADK,IACL;AAEI,iCAAa,MAAM,YAAY,CAAC,WAAY,QAAb;SAEnC,UALK,IAKL;AAEI,iCAAa,MAAM,eAAe,CAAC,UAAD;AAClC,iCAAa,MAAM,YAAY,CAAC,aAAc,QAAf;AAC/B,iCAAa,MAAM,YAAY,CAAC,aAAc,MAAf;SAEnC,UAXK,IAWL;AAEI,iCAAa,MAAM,eAAe,CAAC,UAAD;AAClC,iCAAa,MAAM,YAAY,CAAC,aAAc,MAAf;AAC/B,iCAAa,MAAM,YAAY,CAAC,aAAc,QAAf;SAEnC,UAjBK,IAiBL;AAEI,iCAAa,MAAM,YAAY,CAAC,WAAY,MAAb;SAFnC;AAMA,YAAG,aAAQ,IAAI,CAAI,kBAAnB,EACE,uBAAa,MAAM,YAAY,CAAC,UAAW,cAAZ,CADjC;OAzBF;AAHgC;AAkFA;AAEhC,yBAAe;AAFiB;AAzCD;AAAb;AAElB;AAAI;AAEJ,WAAM;AACN,WAAM;AAEN,UAA+B,CAA3B,uBAAa,aAAc,GAAE,uBAAa,aAAf,CAA8B,IAAgB,CAAX,gBAAW,IAAG,cAAC,2CAAQ,8CAAT,CAAH,CAA7E,EACE,KAAM,EADR;AAGA,UAA8B,CAA1B,uBAAa,YAAa,GAAE,uBAAa,YAAf,CAA6B,IAAgB,CAAX,gBAAW,IAAG,cAAC,2CAAQ,gDAAT,CAAH,CAA3E,EACE,KAAM,EADR;AAGA,qBAAU,cAAI,CAAC,EAAE,EAAkB,uBAAc,YAAa,GAAE,EAAF,CAAqB,uBAAc,aAAc,GAAE,EAAnG,CAAd;AAbkB;AAAa;AAmCC;AAAd;AAElB;AACA,eAAU;AAHQ;AAAc;AA9FL;AAE3B,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAF2B;AAtBW;AAEtC;AACA,wBAAc;AAHwB;AAiGF;AAEpC;AACA,UAAG,eAAW,KAAE,IAAhB;AAEE,0BAAe;OAFjB;AAHoC;AA7GP;AAE7B;AAEA;AACA,UAAY,2BAAD,QAAX;AAEE,aAAM;AACN,UAAE,iBAAiB,CAAC,SAAS,eAAV;OAHrB;AAL6B;AAwCE;AAE/B;AAEA;AACA,UAAY,2BAAD,QAAX;AAEE,aAAM;AACN,UAAE,oBAAoB,CAAC,SAAU,eAAX;OAHxB;AAL+B;AAtBI;AAEnC;AACA,yBAAe;AACf,yBAAe;AACf,4BAAkB,wCAAiB,QAAC,YAAM,CAAC,KAAqB,kDAAtB,CAAN;AACpC,4BAAkB,wCAAiB,QAAC,YAAM,CAAC,KAAqB,gDAAtB,CAAN;AAND;AASR;AAEZ,eAAf,KAAe;AACA,eAAf,KAAe;AACf;AAJ2B;AAmIA;AAE3B,yBAAc,oBAAW,GAAE,MAA3B;AACA,wBAAa,mBAAU,GAAE,MAAzB;AAH2B;AAzEC;AAE5B;AACA,uBAAY,CAAC,IAAD;AAEZ,uBAAY,CAAC,IAAD;AALgB;AApzDlB;;;AAiCM,6BjBxdV,uCiBwdU;AACW;AACT,+BjBldV,yCiBkdU,yBjB6JkD,uBAAC,0CAAQ,wCAAT,CiB7JlD;AACG;AACC,mChB1NhB,uCgB0NgB;AACA,mCjB3dV,6CiB2dU;AACN,6BhB5NV,uCgB4NU;AACG,gCjBneV,0CiBmeU;AACG,mCjBldV,6CiBkdU;AACF,iCjBpdV,2CiBodU;AACM,uCjBndV,iDiBmdU;AACF;AACF,mCjBjeZ,2CiBieY;AACJ,+BjB5YV,yCiB4YU;AACA,+BjBvWV,yCiBuWU;AACE,iCLnYV,wCKmYU;AACL;AACM,kCjBreT,6CiBqeS;AACE;AACF,kCjBxeX,2CiBweW;AACH,+BjBvaN,6CiBuaM;AACG,kCjBxaT,6CiBwaS;AACC,mCjBxaX,4CiBwaW;AACA,mCjBraP,gDiBqaO;AACF,iCjB1aT,4CiB0aS;AACD,gCjB5aP,6CiB4aO;AACE,kCjBjaP,+CiBiaO;AACA,kCjBnaP,+CiBmaO;AACD,iCjBjaP,8CiBiaO;AACD,gCjBhbP,6CiBgbO;AACG,mCjBpaP,gDiBoaO;AACC,oCjB1aZ,4CiB0aY;AACD,mCjB3aX,4CiB2aW;AACD,kCjB5aV,4CiB4aU;AACG,qCjB7ab,4CiB6aa;AAnEd;AAuEG;;;;AAEJ;;;AAEP;AACA;AACA;AACA;AACA;AACA;AAAS;AACT;AAAe;AACf;AACA;AACA;AAXO;;;;;;;;AAgsEqB;AAE9B,UAAI,eAAW,KAAG,KAAlB;AAEE,0BAAc;AACd;OAHF;AAF8B;AAlEA;AAAb;AAEjB,eAAoB;AAFH;AAAa;AA2EC;AAE/B;AAF+B;AAKI;AAEnC;AAFmC;AAtFJ;AAE/B;AACA;AAH+B;AAkHF;AAE7B;AAAE;AACF;AACA;AACA;AAEA,qBAAW;AAEX,UAAK,CAAE,GAAE,QAAQ,gBAAgB,UAA1B;AAEP,gBAAK,cAAI,CAAC,eAAM,cAAK,cAAK,GAAE,eAAF,CAAS,aAAI,GAAE,gBAAhC,CAAT;AAEA,UAAY,YAAD,QAAX;AAEE,iBAAS,QAAyB,OAApB,YAAM,iBAAC,EAAa,GAAE,CAAF,kBAAlC;AAAI;AAEF,cAAK,YAAM,YAAS,CAAC,CAAD;AAEpB,cAAY,CAAR,CAAC,OAAO,KAAE,WAAF,CAAS,IAAO,CAAF,CAAE,KAAG,IAAH,CAA5B;AAEE,uBAAM,cAAI,CAAC,CAAC,QAAC,GAAM,CAAC,OAAC,GAAK,CAAC,QAAC,EAAK,GAAE,CAAC,SAAC,EAAJ,CAAW,CAAC,OAAC,EAAI,GAAE,CAAC,UAAC,EAA5C,CAAV;AAIA,gBAAU,CAAN,WAAM,KAAE,oCAAF,CAAU,IAAuB,CAAT,CAAT,EAAE,MAAO,GAAE,CAAC,KAAH,CAAS,GAAE,CAAF,CAA3C;AAEE,mCAAiB;AACjB,oCAAkB,kBAAa,SAAC;AAChC,6BAAW;AACX,8BAAY;AACZ,8BAAY;AACZ;aAPF;AAWA,gBAAU,CAAN,WAAM,KAAE,qCAAF,CAAW,IAAuB,CAAV,CAAR,EAAE,KAAM,GAAE,CAAC,MAAH,CAAU,GAAE,CAAF,CAA5C;AAEE,mCAAiB;AACjB,oCAAkB,kBAAa,SAAC;AAChC,6BAAW;AACX,8BAAY;AACZ,8BAAY;AACZ;aAPF;AAWA,gBAAU,CAAN,WAAM,KAAE,mCAAF,CAAS,IAAuB,CAAR,CAAV,EAAE,OAAQ,GAAE,CAAC,IAAH,CAAQ,GAAE,CAAF,CAA1C;AAEE,mCAAiB;AACjB,qCAAmB,kBAAa,UAAC;AACjC,6BAAW;AACX,8BAAY;AACZ,8BAAY;AACZ;aAPF;AAWA,gBAAU,CAAN,WAAM,KAAE,sCAAF,CAAY,IAAuB,CAAX,CAAP,EAAE,IAAK,GAAE,CAAC,OAAH,CAAW,GAAE,CAAF,CAA7C;AAEE,mCAAiB;AACjB,qCAAmB,kBAAa,UAAC;AACjC,6BAAW;AACX,8BAAY;AACZ,8BAAY;AACZ;aAPF;WAvCF;;OANJ;AA4DA,sBAAU,QAAQ,cAAc,CAAC,MAAD;AAChC,cAAQ,KAAK,YAAY,CAAC,aAAD;AAEzB,WAAqB;AACrB,QAAE,MAAM,YAAY,CAAC,MAAO,GAAR;AACpB,QAAE,MAAM,YAAY,CAAC,OAAQ,GAAT;AACpB,QAAE,MAAM,YAAY,CAAC,QAAS,GAAV;AACpB,QAAE,MAAM,YAAY,CAAC,SAAU,GAAX;AAGpB,QAAE,MAAM,YAAY,CAAC,UAAW,UAAZ;AAEpB,QAAE,MAAM,YAAY,CAAC,qBAAsB,MAAvB;AACpB,QAAE,MAAM,YAAY,CAAC,kBAAmB,MAApB;AACpB,QAAE,MAAM,YAAY,CAAC,oBAAqB,MAAtB;AACpB,QAAE,MAAM,YAAY,CAAC,iBAAkB,MAAnB;AACpB,QAAE,MAAM,YAAY,CAAC,cAAe,MAAhB;AACpB,QAAE,MAAM,YAAY,CAAC,WAAY,OAAb;AAEpB,UAAI,WAAM,IAAG,cAAC,qCAAQ,qCAAT,CAAb,EACE,EAAE,MAAM,YAAY,CAAC,SAAU,YAAX,CADtB;AAGA,UAAI,WAAM,IAAG,cAAC,oCAAO,sCAAR,CAAb,EACE,EAAE,MAAM,YAAY,CAAC,SAAU,YAAX,CADtB;AAGA,wBAAc;AACd,qBAAW;AAEX,QAAE,iBAAiB,CAAC,YAAa,+CAAd;AACnB,QAAE,iBAAiB,CAAC,UAAW,6CAAZ;AAEnB,QAAE,iBAAiB,CAAC,YAAc,+CAAf;AACnB,QAAE,iBAAiB,CAAC,WAAa,8CAAd;AAzGU;AA8MM;AAAlB;AAEjB;AAAE;AACF;AAEA;AACA;AAEA,UAAG,KAAK,QAAQ,OAAQ,GAAE,CAA1B;AAEE,gBAAS,KAAK,QAAQ,KAAQ,CAAC,CAAD;AAE9B,wBAAY;AACZ;AACA;AACA,uBAAU,CAAC,KAAK,SAAU,KAAK,SAAU;;;;aAAG;;;;YAAlC;AAEV,wBAAW,CAAC,UAAK,CAAC,CAAD,EAAI,UAAK,CAAC,CAAD,CAAf;OATb;AAYA,eAAU;AApBO;AAAkB;AAjGE;AAApB;AAEjB;AAAG;AAEH,UAAG,YAAQ,IAAY,CAAC,kBAAD,SAAvB;AAEE,YAAG,eAAH;AAEE,0BAAY,KAAK;AACjB,0BAAY,KAAK,QAAS,GAAE,QAAQ,gBAAgB,UAA1B;AAC1B,4BAAc;;AAId,eAAM,UAAK,CAAC,KAAK,QAAS,GAAE,aAAjB;AACX,eAAM,UAAK,CAAC,KAAK,QAA8C,GAAnC,QAAQ,gBAAgB,UAA1B,GAAuC,aAAtD;AAEX,cAAG,WAAM,KAAE,oCAAX,EACE,kBAAa,SAAC,CAAS,mBAAe,GAAE,EAA1B,CADhB;AAGA,cAAG,WAAM,KAAE,qCAAX,EACE,kBAAa,SAAC,CAAS,mBAAe,GAAE,EAA1B,CADhB;AAGA,cAAG,WAAM,KAAE,mCAAX,EACE,kBAAa,UAAC,CAAU,oBAAgB,GAAE,EAA5B,CADhB;AAGA,cAAG,WAAM,KAAE,sCAAX,EACE,kBAAa,UAAC,CAAU,oBAAgB,GAAE,EAA5B,CADhB;AAGA;AAEA,cAAY,YAAD,QAAX,EACE,YAAM,CAAC,IAAD,CADR;;OA3BJ;AA+BA,eAAU;AAnCO;AAAoB;AAsCF;AAAlB;AAEjB,qBAAW;AACX,2BAAiB;AACjB,wBAAc;AACd,mBAAM,WAAW,YAAY,CAAC,aAAD;AAC7B,eAAU;AACV,UAAY,aAAD,QAAX,EACE,aAAO,CAAC,IAAD,CADT;AAPiB;AAAkB;AAYE;AAApB;AAEjB;AACA;AAAG;AAEH;AAEA,UAAG,KAAK,QAAQ,OAAQ,GAAE,CAA1B;AAEE,gBAAS,KAAK,QAAQ,KAAQ,CAAC,CAAD;AAE9B,YAAG,YAAQ,IAAY,CAAC,kBAAD,SAAvB;AAEE,cAAG,eAAH;AAEE,4BAAY,KAAK;AACjB,4BAAY,KAAK;AACjB,8BAAc;;AAId,iBAAM,UAAK,CAAC,KAAK,QAAS,GAAE,aAAjB;AACX,iBAAM,UAAK,CAAC,KAAK,QAAS,GAAE,aAAjB;AAEX,gBAAG,WAAM,KAAE,oCAAX,EACE,kBAAa,SAAC,CAAS,mBAAe,GAAE,EAA1B,CADhB;AAGA,gBAAG,WAAM,KAAE,qCAAX,EACE,kBAAa,SAAC,CAAS,mBAAe,GAAE,EAA1B,CADhB;AAGA,gBAAG,WAAM,KAAE,mCAAX,EACE,kBAAa,UAAC,CAAU,oBAAgB,GAAE,EAA5B,CADhB;AAGA,gBAAG,WAAM,KAAE,sCAAX,EACE,kBAAa,UAAC,CAAU,oBAAgB,GAAE,EAA5B,CADhB;AAGA;AAEA,gBAAY,YAAD,QAAX,EACE,YAAM,CAAC,IAAD,CADR;;SA3BJ;OAJF;AAqCA,eAAU;AA5CO;AAAoB;AAsED;AAAnB;AAEjB,sBAAY;AACZ;AAEA,qBAAW;AACX,2BAAiB;AACjB,wBAAc;AACd,mBAAM,WAAW,YAAY,CAAC,aAAD;AAC7B,eAAU;AACV,UAAY,aAAD,QAAX,EACE,aAAO,CAAC,IAAD,CADT;AAViB;AAAmB;AA/ON;AAE9B;AACA,UAAI,WAAM,IAAG,cAAC,qCAAQ,qCAAT,CAAb,EACE,sBAAU,EAAV,CADF;AAGA,UAAI,WAAM,IAAG,cAAC,oCAAO,sCAAR,CAAb,EACE,sBAAU,EAAV,CADF;AAN8B;AAbL;AAEzB;AACA,qBAAW;AACX,2BAAiB;AAJQ;AAOE;AAE3B;AACA,sBAAW,CAAC,EAAE,CAAH;AAHgB;AAxEH;AAEvB;AAAK;AACL;AAAK;AACL;AAEA,UAAG,aAAH;AAEE,wBAAM,OAAM,OAAZ,GAAsB;AACtB,wBAAM,KAAI,SAAC,CAAS,OAAT;;AAIX,wBAAM,OAAM,OAAZ,GAAsB;AACtB,wBAAM,KAAI,SAAC,CAAS,WAAT;;AAEb,sBAAM,OAAM,OAAZ,GAAsB;AACtB,sBAAM,YAAU,CAAC,oBAAD;AAEhB,UAAI,WAAM,IAAG,cAAC,qCAAQ,qCAAT,CAAb;AAEE,aAAM;AACN,aAAM;AACN,eAAgB,UAAP,gBAAO,GAAI,CAAJ,CAAO,GAAE,CAAF;AACvB,eAAe,UAAN,eAAM,GAAI,CAAJ;OALjB;AAQA,UAAI,WAAM,IAAG,cAAC,oCAAO,sCAAR,CAAb;AAEE,aAAM;AACN,aAAM;AACN,eAAe,UAAN,eAAM,GAAI,CAAJ,CAAO,GAAE,CAAF;AACtB,eAAgB,UAAP,gBAAO,GAAI,CAAJ,CAAO,GAAE,CAAF;OALzB;AAQA,sBAAM,OAAM,OAAZ,GAAsB;AACtB,sBAAM,KAAI,SAAC,CAAS,eAAT;AAEX,WAAI,IAAK,GAAL,CAAU,OAAV,CAAU,EAAd;AAEE,wBAAM,YAAU,CAAC,KAAM,KAAM,IAAK,GAAE,CAAF,CAAK,IAAK,GAAE,CAA9B;AAChB,eAAQ,IAAK,GAAE,EAAF;AACb,eAAQ,IAAK,GAAE,EAAF;;AA1CQ;AAfU;AAEjC;AACA,4BAAU,EAAV;AAEA,UAAI,2CAAY,IAAG,oBAAnB;AAEE,sBAAS,CAAT;AACA,uBAAU,GAAV;OAHF;AAKA,oBAAS,oCAAT;AACA,2BAAiB;AACjB,wBAAa,QAAb;AAZiC;AAnoEzB;;;AAmCO,6BjBniBV,uCiBmiBU;AACW;AACX,6BhBnSV,uCgBmSU;AACQ;AACF,mCjBpiBZ,2CiBoiBY;AACA,mCjB1hBV,6CiB0hBU;AACF,iCjB5hBV,2CiB4hBU;AACM,uCjB3hBV,iDiB2hBU;AACN,iChBzSd,uCgBySc;AACF,+BjBndV,yCiBmdU;AACK;AACF,kCjB3iBX,2CiB2iBW;AACH,+BjB1eN,6CiB0eM;AACK,oCjBneZ,4CiBmeY;AACD,mCjBpeX,4CiBoeW;AACD,kCjBreV,4CiBqeU;AACG,qCjBteb,4CiBsea;AACP,8BjB/eL,6CiB+eK;AACC,+BjBhfN,6CiBgfM;AArDT;AAwDG;;;;AAEM;;AACG;;AAER;;;AAEX;AACA;AACA;AACA;AACA;AACA;AAPW;AAulHwB;AAErC,UAAI,kBAAc,KAAG,KAArB;AAEE,6BAAiB;AACC,wBAAW,OAAO,CAAC,IAAD;OAHtC;AAFqC;AASH;AAElC,UAAI,eAAW,KAAG,KAAlB;AAEE,0BAAc;AACI,wBAAW,OAAO,CAAC,IAAD;OAHtC;AAFkC;AASA;AAElC,UAAI,eAAW,KAAG,KAAlB;AAEE,0BAAc;AACI,wBAAW,OAAO,CAAC,IAAD;OAHtC;AAFkC;AASJ;AAE9B,UAAI,WAAO,KAAG,KAAd;AAEE,sBAAU;AACQ,wBAAW,OAAO,CAAC,IAAD;OAHtC;AAF8B;AApCM;AAAf;AAErB,eAAU;AACL;AACL,UADK,IACL;AAAW,iBAAU,qBAAQ,CAAC,WAAD,CAAO,GAAC,GAAD;AACpC,gBAFK,IAEL,mDAAY,SAAU,qBAAQ,CAAC,WAAD,CAAO,GAAC,IAAtC;AALqB;AAAe;AATN;AAE9B;AACA,wBAAc;AACd,wBAAc;AACd,wBAAc;AACd,2BAAiB;AANwC;AAA3B;AAbF;AAE5B,UAAc,kBAAH,eAAP,MAAO,CAAX;AAEE,0BAAsB,OAAP,OAAU,kBAAH,CAAiB;AACvC,0BAAsB,OAAP,OAAU,kBAAH,CAAiB;AACvC,iCAA6B,OAAP,OAAU,kBAAH,CAAiB;AAC9C,sBAAkB,OAAP,OAAU,kBAAH,CAAiB;AACnC,0BAAsB,OAAP,OAAU,kBAAH,CAAiB;AACvC,6BAAyB,OAAP,OAAU,kBAAH,CAAiB;OAP5C;AAF4B;AAxjHf;AAeO,+BAAY,erBzOrB,gCqByOqB,CAAZ;AAGA,iCArBF,iCAqBE;AACO;AACP;AACG;AACH,iCjBhlBV,2CiBglBU;AACJ;AAvBH;AA0BC;;;AAEZ;AAFY;;;;;AAi1Fe;AAAP;AAEtB,eAAkC,YAAK,CAAC,KAAD;AAFjB;AAAO;AAUC;AAEpB,kBAAK,CAAC,MAAU,KAAX;AAFe;AAKD;AAE7B;AACA,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAH6B;AApBE;AAEd,sDAAC,OAAQ,kBAAT;AAFmC;AAArB;AALN;AAAH;AAEtB,eAAkC;AAFZ;AAAG;AAeG;AAAN;AAEtB,eAAwC,yCAAC,KAAD;AAFlB;AAAM;AAt1Fd;AAQM,+BAAO,UrBtKjB,+BqBsKiB,CAAP;AARN;AAeE;;;AAEd;AACA;AACA;AACA;AACA;AACA;AAPc;AAg+GsB;AAEtC,UAAI,gBAAY,KAAG,KAAnB;AAEE,2BAAe;AACG,wBAAW,OAAO,CAAC,IAAD;OAHtC;AAFsC;AASC;AAEvC,UAAI,iBAAa,KAAG,KAApB;AAEE,4BAAgB;AACE,wBAAW,OAAO,CAAC,IAAD;OAHtC;AAFuC;AASF;AAErC,UAAI,eAAW,KAAG,KAAlB;AAEE,0BAAc;AACI,wBAAW,OAAO,CAAC,IAAD;OAHtC;AAFqC;AASJ;AAEjC,UAAI,WAAO,KAAG,KAAd;AAEE,sBAAU;AACQ,wBAAW,OAAO,CAAC,IAAD;OAHtC;AAFiC;AASK;AAAd;AAExB,eAAU;AACL;AACL,UADK,IACL;AAAW,iBAAU,qBAAQ,CAAC,WAAD,CAAO,GAAC,GAAD;AACpC,gBAFK,IAEL,mDAAY,SAAU,qBAAQ,CAAC,WAAD,CAAO,GAAC,IAAtC;AALwB;AAAc;AA9CL;AAEjC;AACA,wBAAc;AACd,oBAAU;AACV,yBAAe;AACf,0BAAgB;AAChB,wBAAc;AAP8C;AAA3B;AAbF;AAE/B,UAAc,qBAAH,eAAP,MAAO,CAAX;AAEE,0BAAsB,OAAP,OAAU,qBAAH,CAAoB;AAC1C,0BAAsB,OAAP,OAAU,qBAAH,CAAoB;AAC1C,iCAA6B,OAAP,OAAU,qBAAH,CAAoB;AACjD,sBAAkB,OAAP,OAAU,qBAAH,CAAoB;AACtC,2BAAuB,OAAP,OAAU,qBAAH,CAAoB;AAC3C,4BAAwB,OAAP,OAAU,qBAAH,CAAoB;OAP9C;AAF+B;AAz8Gf;AAeI,+BAAY,erBlRrB,gCqBkRqB,CAAZ;AAGA,iCrBzsBV,gCqBysBU;AACO;AACN;AACC;AACF,iCjBznBV,2CiBynBU;AACJ;AAvBA;AA0BC;;;AAEf;AAFe;;;;;AA00Fe;AAAP;AAEzB,eAAqC,YAAK,CAAC,KAAD;AAFjB;AAAO;AAUC;AAGvB,kBAAK,CAAC,MAAU,KAAX;AAHkB;AAMD;AAEhC;AACA,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAHgC;AArBE;AAElB,sDAAC,OAAQ,qBAAT;AAFuC;AAArB;AALN;AAAH;AAEzB,eAAqC;AAFZ;AAAG;AAeG;AAAN;AAEzB,eAA2C,yCAAC,KAAD;AAFlB;AAAM;AA/0Fd;AAQG,+BAAO,UrB/MjB,+BqB+MiB,CAAP;AARH;AAeK;;;AAEpB;AACA;AACA;AAJoB;;;;;AA2iHe;AAErC,UAAc,2BAAH,eAAP,MAAO,CAAX;AAEE,uBAAmB,OAAP,OAAU,2BAAH,CAA0B;AAC7C,oBAAgB,OAAP,OAAU,2BAAH,CAA0B;AAC1C,wBAAoB,OAAP,OAAU,2BAAH,CAA0B;OAJhD;AAFqC;AA3iHf;AAQL;AACH;AACI,+BjBiCP,4CiBjCO;AAVI;AAaJ;AAklHe;AAAP;AAE1B,eAA2C,YAAK,CAAC,KAAD;AAFtB;AAAO;AAUC;AAGxB,kBAAK,CAAC,MAAU,KAAX;AAHmB;AA5CC;AAEnB,sDAAC,OAAQ,2BAAT;AAFwC;AAArB;AALN;AAAH;AAE1B,eAA2C;AAFjB;AAAG;AA4CG;AAAN;AAE1B,eAAiD,yCAAC,KAAD;AAFvB;AAAM;AAlCE;AAAR;AAE1B;AAEA,eAAU;AACV,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,YAAG,cAAK,CAAC,CAAD,CAAG,SAAS,KAAE,QAAtB;AAEE,mBAAU,cAAK,CAAC,CAAD;AACf;SAHF;;AAPwB;AAAQ;AAeK;AAAb;AAG1B;AAEA,eAAU;AACV,UAAW,CAAC,YAAD,SAAQ,IAAc,eAAH,eAAN,YAAM,CAA9B;AAEE,YAAK,IAAK,GAA+C,CAAtC,OAAN,aAAS,eAAH,CAAc,kBAAiB,SAAC,EAAM,GAAE,IAAF,CAA/C;AACV,YAAG,CAAE,GAAE,eAAP,EACE,SAAU,cAAK,CAAC,CAAD,CADjB;OAHF;AAN0B;AAAa;AApkHrB;AAKE,+BAAO,UrBxOjB,+BqBwOiB,CAAP;AALF;AAaR;;;AAER;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAZQ;;;;;;;;;AAw0G4B;AAEtC,4BAAiB,OAAO,CAAC,KAAD;AAFc;AAUH;AAEnC,yBAAc,OAAO,CAAC,KAAD;AAFc;AALI;AAEvC,6BAAkB,OAAO,CAAC,KAAD;AAFc;AAxXV;AAAX;AAElB;AACA;AACA;AAEA,kBAAQ,QAAQ,cAAc,CAAC,OAAD;AAE9B,eAAI,aAAa,CAAC,QAAQ,MAAT;AACjB,eAAI,aAAa,CAAC,SAAS,MAAV;AAEjB,UAAG,sBAAiB,KAAG,EAAvB;AACE,iBAAI,aAAa,CAAC,QAAS,sBAAV;;AAGjB,YAAkB,CAAd,mBAAc,KAAG,EAAH,CAAW,IAAmB,CAAd,mBAAc,GAAE,CAAF,CAAhD;AACE,eAAM,qBAAQ,CAAC,mBAAD,CAA2B,GAAX,WAAD,GAAc,kCAAW,CAAC,mBAAD,CAAb;;AAGzC,cAAI,2CAAY,IAAG,oBAAnB;AACE,iBAAM;AAEN,qBAAM;;AAGK,iBAAK,MAAM,YAAY,CAAC,SAAU,EAAX;AACvB,iBAAK,MAAM,YAAY,CAAC,kBAAkB,UAAnB;;AAGxC,gDAAmB,CAAgB,UAAO,YAAO,CAA6B,CAAN,CAAjB,sBAAiB,KAAE,EAAF,CAAM,IAAI,CAAI,kBAAR,CAA3D;AAEnB,sBAAY,QAAQ,cAAc,CAAC,OAAD;AAGlC,eAAU,QAAyB,OAApB,mBAAa,SAAC,EAAM,GAAE,CAAF,kBAAnC;AAAK;AAEH,cAAO,cAAS,CAAC,CAAD;AAChB,qBAAQ,YAAY,CAAC,GAAD;;AAItB,eAAI,YAAY,CAAC,aAAD;AAChB,eAAU;AA1CQ;AAAW;AAnFF;AAAT;AAElB;AAAK;AACL;AACA;AAGA,UAAkB,CAAd,mBAAc,KAAG,EAAH,CAAW,IAAmB,CAAd,mBAAc,GAAE,CAAF,CAAhD;AACE,aAAM,qBAAQ,CAAC,mBAAD,CAA2B,GAAX,WAAD,GAAc,kCAAW,CAAC,mBAAD,CAAb;;AAGzC,YAAI,2CAAY,IAAG,oBAAnB;AACE,eAAM;AAEN,mBAAM;;AAGV,YAAO,QAAQ,cAAc,CAAC,IAAD;AAC7B,UAAI,sBAAiB,KAAE,EAAvB,EACiB,GAAI,MAAM,YAAY,CAAC,SAAU,EAAX,CADvC;AAGA,UAAG,MAAO,GAAE,mBAAa,SAAC,EAA1B;AAEE,YAAG,mBAAa,UAAM,CAAC,MAAD,CAAQ,WAAW,KAAG,CAA5C,EACiB,GAAI,MAAM,YAAY,CAAC,aAAc,qBAAQ,CAAC,mBAAa,UAAM,CAAC,MAAD,CAAQ,WAA5B,CAAvB,CADvC;AAGA,YAAG,mBAAa,UAAM,CAAC,MAAD,CAAQ,cAAc,KAAG,CAA/C,EACiB,GAAI,MAAM,YAAY,CAAC,gBAAiB,qBAAQ,CAAC,mBAAa,UAAM,CAAC,MAAD,CAAQ,cAA5B,CAA1B,CADvC;AAGA,YAAI,mBAAa,UAAM,CAAC,MAAD,CAAQ,kBAAkB,KAAG,EAApD;AAEiB,aAAI,aAAa,CAAC,QAAS,mBAAa,UAAM,CAAC,MAAD,CAAQ,kBAArC;SAFlC;AAKgC,mBAA3B,mBAAa,UAAM,CAAC,MAAD,CAAQ;AAChC,YADgC,IAChC;AAAyB,aAAI,aAAa,CAAC,SAAS,QAAV;AAC1C,kBAFgC,IAEhC,uCAAyB,GAAI,aAAa,CAAC,SAAS,QAAV,CAA1C;AAGA,YAAI,sBAAiB,KAAE,EAAvB,EACiB,GAAI,MAAM,YAAY,CAAC,SAAU,EAAX,CADvC;AAGA,WAAG,aAAa,CAAC,SAAU,mBAAa,UAAM,CAAC,MAAD,CAAQ,kBAAtC;OArBlB;AAwBA,eAAS,QAA4B,OAAvB,sBAAgB,SAAC,EAAM,GAAE,CAAF,kBAArC;AAAI;AAEF,eAAQ,QAAQ,cAAc,CAAC,IAAD;AAC9B,YAAI,sBAAiB,KAAE,EAAvB,EACiB,IAAK,MAAM,YAAY,CAAC,SAAU,EAAX,CADxC;AAGA,YAAG,sBAAgB,UAAM,CAAC,CAAD,CAAG,YAAY,KAAG,CAA3C,EACiB,IAAK,MAAM,YAAY,CAAC,eAAgB,qBAAQ,CAAC,sBAAgB,UAAM,CAAC,CAAD,CAAG,YAA1B,CAAuC,GAAC,IAAjE,CADxC;AAGA,YAAG,sBAAgB,UAAM,CAAC,CAAD,CAAG,aAAa,KAAG,CAA5C,EACiB,IAAK,MAAM,YAAY,CAAC,gBAAiB,qBAAQ,CAAC,sBAAgB,UAAM,CAAC,CAAD,CAAG,aAA1B,CAAuC,GAAC,IAAlE,CADxC;AAGA,YAAI,sBAAgB,UAAM,CAAC,CAAD,CAAG,kBAAkB,KAAG,EAAlD;AAEiB,cAAK,aAAa,CAAC,QAAS,sBAAgB,UAAM,CAAC,CAAD,CAAG,kBAAnC;SAFnC;AAK8B,oBAAzB,sBAAgB,UAAM,CAAC,CAAD,CAAG;AAC9B,YAD8B,KAC9B;AAAyB,cAAK,aAAa,CAAC,QAAQ,QAAT;AAC3C,kBAF8B,KAE9B,4CAA+B,IAAK,aAAa,CAAC,QAAQ,OAAT,CAAjD;AAGA,YAAI,aAAa,CAAC,KAAM,UAA6B,GAAxB,GAAD,GAAK,qBAAQ,CAAC,MAAD,CAAT,GAAkB,GAAD,GAAK,qBAAQ,CAAC,CAAD,CAA7C;AAEjB,YAAG,MAAO,KAAE,CAAZ;AAEiB,cAAK,MAAM,YAAY,CAAC,QAAQ,sBAAgB,UAAM,CAAC,CAAD,CAAG,iBAAlC;SAFxC;AAOA,WAAG,YAAY,CAAC,IAAD;;AAGjB,eAAU;AA/EQ;AAAS;AAlDI;AAAb;AAElB,eAAU,QAAQ,cAAc,CAAC,MAAD;AAFd;AAAa;AARA;AAE/B,UAAG,CAAkB,CAAb,4CAAa,IAAG,oBAAH,CAArB,EACE,kBADF;AAGA;AAL+B;AA0LD;AAE9B;AAAE;AAAE;AAAE;AAAG;AACT;AACA;AACA;AACA;AAAG;AACH;AACA;AAGA,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA,UAAG,iBAAH,EACE,MADF;AAGA,UAAI,4CAAa,IAAG,oBAApB,EACE,MADF;AAIA,kBAAa;AACb,WAAM;AAEN,eAAS,QAAyB,OAApB,mBAAa,SAAC,EAAM,GAAE,CAAF,kBAAlC;AAAI;AAGA,YAAG,mBAAa,UAAM,CAAC,CAAD,CAAG,WAAW,KAAG,2CAAvC;AAEE,sBAAa;AACb;SAGA,WAAM,EAAG,GAAE,mBAAa,UAAM,CAAC,CAAD,CAAG,OAAxB;;AAIf,UAAG,SAAU,IAAQ,CAAH,EAAG,GAAE,GAAF,CAArB;AAEE,YAAK,EAAE,GAAC,GAAD;AACP,iBAAS,SAAyB,QAApB,mBAAa,SAAC,EAAM,GAAE,CAAF,qBAAlC;AAAI;AAEF,6BAAa,UAAM,CAAC,CAAD,CAAG,OAAtB,GAAiC,gBAAK,CAAC,mBAAa,UAAM,CAAC,CAAD,CAAG,OAAQ,GAAE,CAAjC;;OAL1C;AAUA,kBAAa;AACb,WAAM;AAEN,eAAS,SAA4B,QAAvB,sBAAgB,SAAC,EAAM,GAAE,CAAF,qBAArC;AAAI;AAGA,YAAG,sBAAgB,UAAM,CAAC,CAAD,CAAG,WAAW,KAAG,2CAA1C;AAEE,sBAAa;AACb;SAGA,WAAM,EAAG,GAAE,sBAAgB,UAAM,CAAC,CAAD,CAAG,OAA3B;;AAIf,UAAG,SAAU,IAAQ,CAAH,EAAG,GAAE,GAAF,CAArB;AAEE,YAAK,EAAE,GAAC,GAAD;AACP,iBAAS,SAA4B,QAAvB,sBAAgB,SAAC,EAAM,GAAE,CAAF,qBAArC;AAAI;AAEF,gCAAgB,UAAM,CAAC,CAAD,CAAG,OAAzB,GAAoC,gBAAK,CAAC,sBAAgB,UAAM,CAAC,CAAD,CAAG,OAAQ,GAAE,CAApC;;OAL7C;AASA,gBAAW,mBAAa,SAAC;AAGzB,UAAI,cAAU,KAAG,sBAAgB,SAAC,EAAlC,EACE,UAAW,CADb;AAIA,aAAM,aAAQ,WAAW,OAAQ,GAAE,OAAnC;AAEE,qBAAQ,YAAY,CAAC,aAAQ,WAAW,MAAC,aAAQ,WAAW,OAAQ,GAAE,CAA9B,CAApB;;AAItB,aAAM,aAAQ,WAAW,OAAQ,GAAE,mBAAa,SAAC,EAAjD;AAEE,cAAO,cAAS,CAAC,aAAQ,WAAW,OAApB;AAChB,qBAAQ,YAAY,CAAC,GAAD;;AAGtB,eAAS,SAAyB,QAApB,mBAAa,SAAC,EAAM,GAAE,CAAF,qBAAlC;AAAI;AAEF,cAAkB,aAAQ,WAAW,MAAC,CAAD;AACrC,WAAG,aAAa,CAAC,SAAU,mBAAa,UAAM,CAAC,CAAD,CAAG,kBAAjC;;AAGlB,UAAK;AACL,UAAK;AAGL,eAAS,SAA6B,QAAxB,uBAAiB,SAAC,EAAM,GAAE,CAAF,qBAAtC;AAAI;AAEF,YAAY,uBAAiB,UAAM,CAAC,CAAD,CAAG,SAA3B,QAAX;AAEE,qBAAY,QAAQ,uBAAuB;AAC3C,oBAAW,uBAAiB,UAAM,CAAC,CAAD,CAAG;AACrC,iCAAiB,UAAM,CAAC,CAAD,CAAG,QAA1B,GAAqC;AACrC,iCAAiB,UAAM,CAAC,CAAD,CAAG,KAA1B,GAAkC;AAElC,iBAAO,mBAAC,CAAmB,kDAAnB;AACR,iBAAO,gBAAC,CAAc,CAAC,CAAf;AAER,cAAG,OAAO,OAAO,KAAE,oCAAnB;AAEE,mBAAO,eAAC,CAAe,2CAAf;AACR,mBAAO,iBAAC,CAAiB,GAAjB;AACR,gBAAY,OAAO,iBAAC,EAAT,QAAX,EACiB,OAAO,iBAAC,EAAc,MAAM,YAAY,CAAC,QAAQ,MAAT,CADzD;WAJF;AAQA,cAAG,OAAO,OAAO,KAAE,qCAAnB;AAEE,mBAAO,eAAC,CAAe,2CAAf;AACR,mBAAO,iBAAC,CAAiB,GAAjB;AACR,gBAAY,OAAO,iBAAC,EAAT,QAAX,EACiB,OAAO,iBAAC,EAAc,MAAM,YAAY,CAAC,QAAQ,OAAT,CADzD;WAJF;AAQA,cAAI,OAAO,OAAO,IAAG,cAAC,oCAAO,sCAAR,CAArB;AAEE,mBAAO,cAAC,CAAc,2CAAd;AACR,mBAAO,gBAAC,CAAgB,GAAhB;WAHV;AAMA,cAAG,OAAO,OAAO,KAAE,sCAAnB;AAEE,mBAAO,cAAC,CAAc,2CAAd;AACR,mBAAO,eAAC,CAAe,2CAAf;AACR,mBAAO,gBAAC,CAAgB,GAAhB;AACR,mBAAO,iBAAC,CAAgB,GAAhB;WALV;AAQA,gBAAkB,aAAQ,WAAW,MAAC,CAAD;AACrC,cAAW,CAAC,GAAD,SAAM,IAAO,CAAF,CAAE,GAAE,mBAAa,SAAC,EAAhB,CAAxB;AAEE,eAAG,aAAa,CAAC,SAAU,mBAAa,UAAM,CAAC,CAAD,CAAG,kBAAjC;AAChB,gBAAI,mBAAa,UAAM,CAAC,CAAD,CAAG,kBAAkB,KAAG,EAA/C;AACE,iBAAG,aAAa,CAAC,QAAS,mBAAa,UAAM,CAAC,CAAD,CAAG,kBAAhC;AAEhB,kBAAA,GAAG,gBAAgB,CAAC,OAAD;WANvB;AASA,cAAY,OAAO,iBAAC,EAAT,QAAX,EACE,QAAQ,YAAY,CAAC,OAAO,iBAAC,EAAT,CADtB;AAGA,mBAAU,UAA8B,GAAvB,GAAF,GAAO,qBAAQ,CAAC,CAAD,CAAV,GAAgB,GAAF,GAAQ,qBAAQ,CAAC,CAAD,CAAV;AAExC,eAAM,QAAQ,eAAe,CAAC,MAAD;AAG7B,cAAG,CAAY,CAAC,EAAD,SAAf;AAEE,kBAAO,cAAS,CAAC,CAAD;AAEhB,yBAAQ,YAAY,CAAC,GAAD;AACpB,iBAAM,QAAQ,eAAe,CAAC,MAAD;AAC7B,gBAAG,mBAAa,SAAC,EAAM,GAAE,CAAzB,EACE,GAAG,aAAa,CAAC,SAAU,mBAAa,UAAM,CAAC,CAAD,CAAG,kBAAjC,CADlB;;AAKA,gBAAM,CAAF,CAAE,KAAE,CAAF,CAAK,IAAO,CAAF,CAAE,GAAE,sBAAgB,SAAC,EAAnB,CAAlB;AAEE,kBAAG,sBAAgB,UAAM,CAAC,CAAD,CAAG,WAAW,KAAE,4CAAzC;AAEiB,yBAAK,gBAAgB,CAAC,OAAD;AACrB,yBAAK,gBAAgB,CAAC,QAAD;;AAIrB,yBAAK,aAAa,CAAC,QAAQ,MAAT;AAClB,yBAAK,aAAa,CAAC,SAAS,MAAV;;AAGpB,gBAAG,MAAM,YAAY,CAAC,QAAQ,sBAAgB,UAAM,CAAC,CAAD,CAAG,iBAAlC;aAbtC;;AAiBF,cAAY,EAAD,QAAX;AAEE,cAAE,YAAY,CAAC,QAAD;AAEd,gBAAG,OAAO,OAAO,KAAE,mCAAnB,EACiB,EAAG,MAAM,YAAY,CAAC,iBAAiB,KAAlB,CADtC;AAGA,gBAAG,OAAO,OAAO,KAAE,sCAAnB,EACiB,EAAG,MAAM,YAAY,CAAC,iBAAiB,QAAlB,CADtC;WAPF;AAWI,WAAJ,IAAG;AACH,cAAG,CAAE,KAAE,sBAAgB,SAAC,EAAxB;AAEE,gBAAK;AACD,aAAJ,IAAG;WAHL;SAlGF;;AA0GF,eAAS,SAA4B,QAAvB,sBAAgB,SAAC,EAAM,GAAE,CAAF,qBAArC;AAAI;AAEF,iBAAU,UAAa,GAAN,KAAF,GAAU,qBAAQ,CAAC,CAAD,CAAV;AACvB,aAAM,QAAQ,eAAe,CAAC,MAAD;AAC7B,YAAY,EAAD,QAAX,EACiB,EAAG,MAAM,YAAY,CAAC,QAAQ,sBAAgB,UAAM,CAAC,CAAD,CAAG,iBAAlC,CADtC;;AAIF,uBAAa,sBAAgB,SAAC;AAzNA;AA0VE;AAEhC;AAEA,UAAW,CAAC,uBAAD,SAAgB,IAAI,CAAI,iBAAnC;AAGE,+BAAa,MAAM,YAAY,CAAC,cAAe,EAAhB;AAG/B,YAAG,YAAO,KAAE,CAAZ,EACE,uBAAa,MAAM,YAAY,CAAC,SAAU,EAAX,CADjC;AAGA,YAAG,iBAAa,IAAY,CAAC,mBAAD,SAA5B;AAEa,6BAAU,YAAY,CAAC,kBAAD;AACjC;AACA,8BAAgB;SAJlB;OATF;AAJgC;AAsBM;AAEtC;AAEA,UAAI,2CAAY,IAAG,oBAAnB;AAEE,+BAAa,MAAM,YAAY,CAAC,SAAU,iBAAX;OAFjC;AAKA,UAAG,CAAI,kBAAS,IAAY,CAAC,SAAD,SAA5B;AAEE,YAAG,WAAM,KAAG,EAAZ;AACiB,mBAAK,MAAM,YAAY,CAAC,mBAAmB,kCAAW,CAAC,WAAD,CAA/B;AAEtC,cAAe,SAAK,MAAM,eAAe,CAAC,kBAAD;OAL7C;AATsC;AA1GL;AAEjC;AAEA,UAAG,CAAI,iBAAW,IAAI,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAArC;AAKE,YAAI,yCAAU,IAAG,MAAM,gBAAvB,EACE,MADF;AAGA,+BAAiB,QAAI,SAArB,GAA6C;AAE7C,YAAG,uBAAiB,SAAC,EAAM,GAAyB,CAAvB,sBAAgB,SAAC,EAAM,GAAE,mBAAa,SAAC,EAAhB,CAApD;AAEE,cAAG,iBAAY,KAAE,oCAAjB;AACE,+BAAa;AAEb,gBAAA,sBAAgB;SALpB;AAQA;OAlBF;AAJiC;AA+EF;AAE/B;AAF+B;AA3GA;AAG/B;AACA;AACA;AAEA,UAAc,CAAV,SAAU,KAAE,+BAAF,CAAY,IAAI,CAAkB,CAAb,4CAAa,IAAG,oBAAH,CAAhD;AAEE,iBAAiC,KAAxB,uBAAiB,SAAC,EAAM,GAAE,CAAF,EAAW,aAA5C;AAAI;AAEF,cAAG,uBAAiB,UAAM,CAAC,CAAD,CAAG,SAAS,KAAE,UAAxC;AAEE,qBAAU,UAA2D,GAApD,GAAF,GAAO,qBAAQ,CAAC,uBAAiB,UAAM,CAAC,CAAD,CAAG,KAA3B,CAAV,GAA6C,GAAF,GAAQ,qBAAQ,CAAC,uBAAiB,UAAM,CAAC,CAAD,CAAG,QAA3B,CAAV;AACrE,iBAAM,QAAQ,eAAe,CAAC,MAAD;AAC7B,cAAE,YAAY,CAAC,EAAE,WAAH;AAEd,mCAAiB,UAAM,CAAC,CAAD,CAAG,SAA1B,GAAuC;AACvC,mCAAiB,OAAO,CAAC,CAAD;WAP1B;;AAWF;OAfF;AAkBA;AAzB+B;AAvZI;AAEnC;AAEA,2BAA4B,CAAZ,2CAAY,IAAG,oBAAH,CAAmB,IAAI,CACZ,CAAzB,CAAV,yCAAU,IAAG,WAAK,gBAAR,CAAyB,IAAc,CAAV,yCAAU,IAAG,WAAK,gBAAR,CAAd,CADQ;AAG/C,gCAAqB;AACrB,2BAA6B,aAAb,mBAAe,cAAC,2DAAD,CAAF;AAC7B,0BAAgB;AAChB,uBAAa,CAAC;AACd,4BAAkB,mBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,yBAAc,UAAd,GAA2B;AAE3B,UAAG,kBAAY,IAAI,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAlC;AAEE,2BAAc;AACd,2BAAc,WAAC,CAAD,CAAG,SAAC,CAAS,GAAT;AAClB,2BAAc,WAAC,CAAD,CAAG,aAAC,CAAa,2CAAb;OAJpB;AAOA,+BAAqB,sBAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,4BAAiB,UAAjB,GAA8B;AAE9B,UAAG,kBAAY,IAAI,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAlC;AAEE,8BAAiB;AACjB,8BAAiB;AACjB,8BAAiB,WAAC,CAAD,CAAG,SAAC,CAAS,EAAT;AACrB,8BAAiB,WAAC,CAAD,CAAG,SAAC,CAAS,EAAT;AACrB,8BAAiB,WAAC,CAAD,CAAG,aAAC,CAAa,2CAAb;AACrB,8BAAiB,WAAC,CAAD,CAAG,aAAC,CAAa,2CAAb;OAPvB;AAUA,yBAAc,UAAd,GAA2B;AAC3B,4BAAiB,UAAjB,GAA8B;AAE9B,gCAAsB,uBAAkB,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,UAAI,2CAAY,IAAG,oBAAnB;AAEE,sBAAS,GAAT;AACA,uBAAU,GAAV;OAHF;AAtCmC;AAyYR;AAEZ,eAAf,KAAe;AACG,eAAlB,KAAkB;AACC,eAAnB,KAAmB;AACnB;AAL2B;AApaE;AAE7B,6BAAkB,QAAI,SAAtB,GAAkC;AAClC,cAAQ,UAAC,CAAU,IAAV;AAET,UAAG,uBAAkB,SAAC,EAAM,GAA0B,CAAxB,sBAAiB,SAAC,EAAM,GAAE,mBAAc,SAAC,EAAjB,CAAtD;AAEE,YAAG,iBAAY,KAAE,oCAAjB;AACE,6BAAc;AAEd,cAAA,sBAAiB;OALrB;AAL6B;AAweG;AAEhC;AAAE;AAAE;AACJ;AACA;AAGA,eAAS,QAA8B,OAAzB,uBAAkB,SAAC,EAAM,GAAE,CAAF,kBAAvC;AAAI;AAEF,YAAG,uBAAkB,UAAM,CAAC,CAAD,CAAG,SAAS,KAAG,QAA1C;AAEE,cAAK,uBAAkB,UAAM,CAAC,CAAD,CAAG;AAChC,cAAK,uBAAkB,UAAM,CAAC,CAAD,CAAG;AAEhC,gBAAkB,aAAQ,WAAW,MAAC,CAAD;AAEtB,aAAG,WAAW,MAAC,CAAD,CAAI,UAAjC,GAA+C;AAE/C,iCAAkB,OAAO,CAAC,CAAD;AACzB;SAVF;;AAcF,UAAG,sBAAgB,SAAC,EAAM,GAAE,CAA5B;AAEE,YAAK,uBAAiB,SAAC,EAAM,GAAE,sBAAgB,SAAC,EAAnB;AAE7B,YAAG,eAAI,CAAC,CAAD,CAAI,GAAE,CAAb,EACE,IAAK,gBAAK,CAAC,CAAE,GAAE,CAAL,CADZ;AAGA,eAAM,CAAE,GAAE,mBAAa,SAAC,EAAxB;AAEE,6BAAa,OAAO,CAAC,mBAAa,SAAC,EAAM,GAAE,CAAvB;;OATxB;AAvBgC;AA5DJ;AAE5B;AACA;AAH4B;AAtuGlB;;;AAkCM,6BjB3sBV,uCiB2sBU;AACW;AACT,+BjBrsBV,yCiBqsBU,yBjBtFkD,uBAAC,0CAAQ,wCAAT,CiBsFlD;AACF,6BhB5cV,uCgB4cU;AACY,yCAnDV,iCAmDU;AACD,wCAhFV,gCAgFU;AACR,gCjBrtBV,0CiBqtBU;AACG,mCjBpsBV,6CiBosBU;AACF,iCjBtsBV,2CiBssBU;AACM,uCjBrsBV,iDiBqsBU;AACJ,mCA1JD,oCA0JC;AACE;AACA,qChBrdlB,uCgBqdkB;AACA;AACF,mCjBttBZ,2CiBstBY;AACJ,+BjBjoBV,yCiBioBU;AACE,iCLvnBV,wCKunBU;AACL;AACS,qCAtIV,6BAsIU;AACD;AACF,kCjB5tBX,2CiB4tBW;AACA,kCjB/oBP,+CiB+oBO;AACA,kCjBjpBP,+CiBipBO;AACD,iCjB/oBP,8CiB+oBO;AACE,mCjBjpBP,gDiBipBO;AACC,oCjBvpBZ,4CiBupBY;AACD,mCjBxpBX,4CiBwpBW;AACD,kCjBzpBV,4CiBypBU;AACG,qCjB1pBb,4CiB0pBa;AA9Dd;AAkEG;;;;AAEE;;AAEG;;AACC,yCADD,0CACC;AAIF;AAEC;;AAED;;;AAEf;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAbe;;;;;AAypHoB;AAErC,UAAI,cAAU,KAAG,KAAjB;AAEE,yBAAa;AACb;OAHF;AAFqC;AAkBA;AAErC,UAAI,gBAAU,KAAG,KAAjB;AAEE,2BAAa;AACb;OAHF;AAFqC;AAgDH;AAElC;AAEA,UAAI,WAAO,KAAG,KAAd;AAEE,sBAAU;AACV,YAAY,uBAAD,QAAX;AAEE,eAAM;AAEZ;SAJI;OAHF;AAJkC;AAjBD;AAEjC;AAEA,UAAI,UAAM,KAAG,KAAb;AAEE,qBAAS;AACT,YAAY,uBAAD,QAAX;AAEE,eAAM;AAEZ;SAJI;OAHF;AAJiC;AAoFD;AAEhC,UAAI,SAAK,KAAG,KAAZ;AAEE,oBAAQ;AACR;OAHF;AAFgC;AASG;AAEnC;AAEA,UAAY,CAAR,YAAQ,KAAG,KAAH,CAA2B,IAAN,CAAN,KAAM,IAAG,CAAH,CAAX,IAA4B,CAAN,KAAM,IAAG,GAAH,CAAlD;AAEE,uBAAW;AACX,YAAY,uBAAD,QAAX;AAEE,eAAM;AAEZ;SAJI;OAHF;AAJmC;AAlPI;AAAd;AAEzB;AACA;AAEA,WAAM;AACN,UAAY,EAAD,QAAX;AAGF;OAHE;AAOA,eAAU;AAbe;AAAc;AA+HC;AAExC;AAEA,WAAM;AACN,UAAY,EAAD,QAAX,EAEF,sBAFE;AALwC;AA/GJ;AAAX;AAEzB;AACA;AAEA,WAAM;AACN,UAAY,EAAD,QAAX;AAGF;OAHE;AAMA,eAAU;AAZe;AAAW;AAeH;AAAR;AAEzB;AACA;AAEA,WAAM;AACN,UAAY,EAAD,QAAX;AAGF;OAHE;AAOA,eAAU;AAbe;AAAQ;AAgBC;AAAT;AAEzB;AACA;AAEA,WAAM;AACN,UAAY,EAAD,QAAX;AAGF;OAHE;AAOA,eAAU;AAbe;AAAS;AAwIO;AAEzC,UAAI,kBAAc,KAAG,KAArB;AAEE,6BAAiB;AACjB;OAHF;AAFyC;AA1ED;AAExC,UAAI,iBAAa,KAAG,KAApB;AAEE,4BAAgB;AAChB;OAHF;AAFwC;AAmFL;AAEnC;AAEA,UAAG,YAAQ,KAAG,KAAd;AAEE,uBAAW;AACX,YAAY,uBAAD,QAAX;AAEE,eAAM;AAEZ;SAJI;OAHF;AAJmC;AAtDM;AAEzC,UAAiB,UAAd,mBAAiB,KAAH,CAAjB;AAEE,6BAAiB;AACjB;OAHF;AAFyC;AAuEL;AAEpC;AACA;AAEA,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ,YAAY,uBAAD,QAAX;AAEE,eAAM;AACD;AACH,cADG,IACH;AAAQ,gBAAK;AACb,oBAFG,IAEH;AAAQ,gBAAK;AACb,oBAHG,IAGH,yCAAY,IAAK,UAAjB;AAIR;SAVI;OAHF;AALoC;AA7PE;AAAb;AAEzB;AAAI;AACJ;AAEA,UAAG,oBAAe,KAAE,4BAApB;AACE,aAAM,QAAQ,cAAc,CAAC,OAAD;AAE5B,iBAAM,QAAQ,cAAc,CAAC,OAAD;AAE9B,YAAO,QAAQ,cAAc,CAAC,QAAD;AAExB;AACH,UADG,IACH;AAAQ,YAAK;AACb,gBAFG,IAEH;AAAQ,YAAK;AACb,gBAHG,IAGH,yCAAY,IAAK,UAAjB;AAIJ;AACA;AAGE,QAAE,YAAY,CAAC,GAAD;AACd,eAAU;AAxBe;AAAa;AAgTC;;AAEvC;AACA;AACA;AAEmB;AAAV;AAEP,YAAG,CAAH;AACE,mBAAU;AAEV,uBAAU;AALL;AAAU;AASnB;AAEA,UAAY,uBAAD,QAAX;AAEE,cAAkB;AAEtB;AACA;AACA;AACA;AAGI,YAAG,gBAAH;AACE,iCAAa,aAAa,CAAC,WAAW,EAAZ;AAE1B,cAAA,uBAAa,gBAAgB,CAAC,UAAD;AAE/B,YAAG,cAAH;AACE,iCAAa,aAAa,CAAC,WAAW,UAAU,CAAC,cAAD,CAAtB;AAE1B,cAAA,uBAAa,gBAAgB,CAAC,UAAD;AAE/B,YAAG,WAAH;AACE,iCAAa,aAAa,CAAC,QAAQ,UAAU,CAAC,WAAD,CAAnB;AAE1B,cAAA,uBAAa,gBAAgB,CAAC,OAAD;AAE/B,YAAG,CAAI,iBAAP;AACE,iCAAa,aAAa,CAAC,gBAAgB,eAAjB;AAE1B,cAAA,uBAAa,gBAAgB,CAAC,eAAD;AAE/B,+BAAa,aAAa,CAAC,SAAS,8BAAU,CAAC,OAAO,mBAAQ,EAAP,YAAO,GAAC,GAAT,CAAR,CAApB;AAC1B,+BAAa,aAAa,CAAC,MAAM,SAAP;AAE1B,qBAAc;AAEd,YAAG,oCAAa,IAAG,kBAAnB,EACE,aAAc,eADhB;AAGA,YAAG,kCAAW,IAAG,kBAAjB,EACE,aAAc,UAAW,GAAE,aAD7B;AAGA,YAAG,wCAAiB,IAAG,kBAAvB,EACE,aAAc,UAAW,GAAE,mBAD7B;AAGA,YAAG,sCAAe,IAAG,kBAArB,EACE,aAAc,UAAW,GAAE,iBAD7B;AAGA,YAAG,UAAW,KAAG,EAAjB;AACE,iCAAa,aAAa,CAAC,eAAe,UAAhB;AAE1B,kBAAG,uBAAa,aAAa,CAAC,cAAD,CAA7B,EACE,uBAAa,gBAAgB,CAAC,cAAD,CAD/B;AAGF,YAAG,0CAAmB,IAAG,kBAAzB;AACE,iCAAa,aAAa,CAAC,0BAA0B,EAA3B;AAE1B,kBAAG,uBAAa,aAAa,CAAC,yBAAD,CAA7B,EACE,uBAAa,gBAAgB,CAAC,yBAAD,CAD/B;OAxDJ;AAjBuC;AApRG;AAE1C;AACA,qBAAW;AACX,2BAAiB;AACjB,oBAAU;AACV,uBAAa;AACb,0BAAgB;AAChB,sBAAY;AACZ,UAAI,2CAAY,IAAG,oBAAnB;AAEE,sBAAS,GAAT;AACA,uBAAU,GAAV;OAHF;AAT0C;AA8FZ;AAE9B;AAEA,WAAM;AACN,UAAY,EAAD,QAAX,EAEF,SAFE;AAL8B;AAdC;AAE/B;AAEA,WAAM;AACN,UAAY,EAAD,QAAX;AAGF;OAHE;AAL+B;AAyBC;AAEhC;AAEA,WAAM;AACN,UAAY,EAAD,QAAX,EAEF,SAFE;AALgC;AA9oHf;;;AA2CU;AACR;AACA;AACG;AACC,oCAvDJ,kCAuDI;AACC;AACF,mCjBtyBZ,2CiBsyBY;AACP;AACG,+BjBltBV,yCiBktBU;AACO,sCA/DV,8BA+DU;AACT;AACO;AACN;AACC,+BA1DA,iCA0DA;AACJ;AACG,8BA9DA,gCA8DA;AACM;AACF,kCjBjzBX,2CiBizBW;AAEC,mCjBhvBX,4CiBgvBW;AACF,iCjBjvBT,4CiBivBS;AACE,mCjB9uBP,gDiB8uBO;AAhEL;AAmEG;;;;AAEN;;;AAEZ;AACA;AACA;AACA;AALY;;;;;;AA0iIgB;AAE9B,gBAAK,OAAO,CAAC,KAAD;AAFkB;AAKD;AAE7B,kBAAQ;AACR,sBAAW,CAAC,SAAD;AAHkB;AAjEM;AAAb;AAEtB,eAAU,QAAQ,cAAc,CAAC,KAAD;AAFV;AAAa;AAuEC;AAEpC;AAEA;AAEA,UAAG,CAAI,iBAAuC,IAAhB,CAAC,uBAAD,SAAZ,IAAwC,CAAC,mBAAD,SAA1D;AAEE,YAAI,sBAAiB,KAAG,EAAxB;AAEE,iCAAa,MAAM,eAAe,CAAC,QAAD;AAClC,iCAAa,MAAM,eAAe,CAAC,kBAAD;SAGlC,MAAA,uBAAa,MAAM,YAAY,CAAC,cAAc,QAAf;AAEjC,YAAY,UAAD,QAAX;AAEE,sBAAa,UAAK,WAAC,EAAK,KAAG,EAAH;AACxB,6BAAS,UAAT,GAAuB,UAAK,WAAC;SAH/B;AAMD,YAAG,CAAI,kBAAS,IAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAAjC,EACG,oBAAe,CAAC,gBAAW,oBAAW,KAAO,CAAI,UjBlqI6E,EiBkqI/G,CADlB;AAGA,YAAG,CAAI,kBAAP;AAEE,mDAAkB,CAAgB,wBAAgB,WAAM,iBAAY,KAAE,yCAApD;SAFpB;AAKM;AACH,YADG,IACH;AAAQ,iCAAa,MAAM,YAAY,CAAC,WAAW,MAAZ;AACvC,kBAFG,IAEH;AAAQ,iCAAa,MAAM,YAAY,CAAC,WAAW,EAAZ;AACvC,kBAHG,IAGH;AAAY,iCAAa,MAAM,YAAY,CAAC,aAAa,MAAd;AAC3C,kBAJG,IAIH,uDAAc,uBAAa,MAAM,YAAY,CAAC,aAAa,MAAd,CAA7C;OA5BJ;AANoC;AAxCF;AAElC;AAFkC;AANH;AAE/B,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAF+B;AApBQ;AAEvC;AACA,mBAAS,uBAAW,QAAC;AACrB,gBAAK,qBAAC,CAAqB,IAArB;AACN,gBAAK,UAAL,GAAkB;AAClB,0BAAgB;AAChB,UAAI,2CAAY,IAAG,oBAAnB;AAEE,sBAAS,GAAT;AACA,uBAAU,GAAV;OAHF;AAPuC;AAcR;AAEzB,eAAN,KAAM;AACN;AAH+B;AAiBE;;AAAX;AAEtB;AAGA,eAAqB,IAAX,OAAW,CACnB;AAEG,aAAM,kCAAe,QAAC,YAAM,CAAC,KAAD,CAAN;AACtB,UAAE,KAAF,GAAU;AAEV,UAAE,UAAQ,CAAC;AAEP,qBAAI,WAAC,CAAQ,SAAR;AACL;AACA,kBAAQ,CAAC,IAAD;AAJD,UAMT;AAEE,iBAAO,CAAC,KAAD;AAFT,SANQ;AALb,OADmB;AALC;AAAW;AAlhInB;;;AAkBE,6BjB/0BV,uCiB+0BU;AACW;AACT,+BjBz0BV,yCiBy0BU,yBjB1NkD,uBAAC,0CAAQ,wCAAT,CiB0NlD;AACC,gCjBt1BV,0CiBs1BU;AACG,mCjBr0BV,6CiBq0BU;AACF,iCjBv0BV,2CiBu0BU;AACM,uCjBt0BV,iDiBs0BU;AACX,4BhBnfV,sCgBmfU;AACS;AACF,mCjBr1BZ,2CiBq1BY;AACP,4BrBlmBJ,iCqBkmBI;AACG,+BjBjwBV,yCiBiwBU;AACG;AACN;AACO,mCjBz1BV,6CiBy1BU;AACR;AACS;AACF,kCjB71BX,2CiB61BW;AACH,+BjB5xBN,6CiB4xBM;AACG,kCjB7xBT,6CiB6xBS;AACF,gCjB9xBP,6CiB8xBO;AACG,mCjB9xBX,4CiB8xBW;AACA,mCjB3xBP,gDiB2xBO;AACF,iCjBhyBT,4CiBgyBS;AACG,oCjBlyBX,6CiBkyBW;AACA,oCjBnyBX,6CiBmyBW;AACF,kCjB5xBV,4CiB4xBU;AACG,qCjB7xBb,4CiB6xBa;AACD,oCjB9xBZ,4CiB8xBY;AACD,mCjB/xBX,4CiB+xBW;AACD,kCjB5xBP,+CiB4xBO;AACA,kCjB9xBP,+CiB8xBO;AACD,iCjB5xBP,8CiB4xBO;AACE,mCjB9xBP,gDiB8xBO;AAnDR;AAsDG;;;;AAER;;;AAEP;AACA;AAHO;;;;;AAmmIkB;AAE3B;AAEA,qBAAW;AAEX,UAAG,CAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAApB;AAEE,YAAG,kBAAH;AACE,eAAM;AAEN,mBAAM;AAER,YAAY,EAAD,QAAX,EACE,EAAE,cAAC,SAAa,YAAd,CADJ;OAPF;AAN2B;AAkBI;AAE/B,UAAG,CAAY,CAAC,uBAAD,SAAf,EACE,MADF;AAGA;AAEA,UAAI,2CAAY,IAAG,oBAAnB,EACiB,uBAAc,MAAM,YAAY,CAAC,aAAa,0EAAd,CADjD;AAP+B;AA5CD;AAAb;AAEjB,eAAU,QAAQ,cAAc,CAAC,KAAD;AAChC,YAAM,YAAY,CAAC,QAAQ,cAAc,CAAC,MAAD,CAAvB;AAHD;AAAa;AAkBC;AAAd;AAEjB,2BAAgB;AAChB,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAEA,eAAU;AALO;AAAc;AAjCG;AAAjB;AAEjB,UAAI,2CAAY,IAAG,oBAAnB;AACE,iBAAU;;AAGV,YAAG,kBAAH;AACE,mBAAU;AAEV,uBAAqB,uBAAa;;AATrB;AAAiB;AAlBN;AAE5B;AACA,8BAAiB,iBAAiB,CAAC,SAAU,6CAAX;AAHN;AAMG;AAAb;AAElB;AACA;AAEA,WAAM;AAER;AAEE,eAAU;AATQ;AAAa;AAiCG;AAElC;AACA,gCAAqB;AACrB,2BAA6B,aAAb,mBAAe,cAAC,2DAAD,CAAF;AAC7B,UAAI,2CAAY,IAAG,oBAAnB;AAEE,sBAAS,GAAT;AACA,uBAAU,GAAV;OAHF;AALkC;AA/kIzB;;;AAeQ;AACD,6BjBr4BV,uCiBq4BU;AACE,+BjB93BV,yCiB83BU,yBjB/QkD,uBAAC,0CAAQ,wCAAT,CiB+QlD;AACQ,uCjBx3BV,iDiBw3BU;AACJ,mCjB13BV,6CiB03BU;AACF,iCjB53BV,2CiB43BU;AACL,4BhBviBV,sCgBuiBU;AACS;AACF,mCjBz4BZ,2CiBy4BY;AACP;AACQ;AACF,kCjB54BX,2CiB44BW;AACF,gCjB30BP,6CiB20BO;AA3BV;AA8BG;;;;AAEN;;;AAEJ;AACA;AAHI;AAwpIqB;AAE3B,wBAAc;AACd;AAH2B;AANL;AAEtB,mBAAS;AACT;AAHsB;AAhDK;AAAb;AAEd,eAAU,QAAQ,cAAc,CAAC,MAAD;AAFlB;AAAa;AA4DC;AAE5B;AAEA,UAAY,uBAAD,QAAX;AAEE,+BAAa,UAAb,GAA2B;AAE3B,YAAG,sBAAiB,KAAE,EAAtB;AAEE,iCAAa,aAAa,CAAC,QAAQ,UAAT;AAC1B,iCAAa,MAAM,YAAY,CAAC,QAAQ,kCAAW,CAAC,eAAD,CAApB;;AAI/B,iCAAa,MAAM,eAAe,CAAC,OAAD;;AAGpC,+BAAa,MAAM,eAAe,CAAC,OAAD;AAClC,+BAAa,MAAM,eAAe,CAAC,QAAD;OAfpC;AAJ4B;AAlBM;AAElC;AACA;AAHkC;AArCH;AAE/B;AAEA;AACA,oBAAS,GAAT;AACA,wBAAc;AACd,mBAAS;AAET,YAAO,iBAUW,GATlB,wBADyB,GAEzB,yBADyB,GAEzB,8BAD0B,GAE1B,iCAD+B,GAE/B,mBADkC,GAElC,0BADoB,GAEpB,uBAD2B,GAE3B,sBADwB,GAExB,uBADuB,GAEvB,iBADwB,GAExB,GADkB;AAGlB,0BAAe,CAAC,GAAD;AAEf,UAAI,2CAAY,IAAG,oBAAnB;AAEE,sBAAS,EAAT;AACA,uBAAU,EAAV;OAHF;AAxB+B;AA+BR;AAGvB;AAHuB;AAtoIjB;;;AAcU,6BjBn6BV,uCiBm6BU;AACW;AACT,+BjB75BV,yCiB65BU,yBjB9SkD,uBAAC,0CAAQ,wCAAT,CiB8SlD;AACF,6BhBpqBV,uCgBoqBU;AACM,mCjBz5BV,6CiBy5BU;AACF,iCjB35BV,2CiB25BU;AACM,uCjB15BV,iDiB05BU;AACF;AACF,mCjBx6BZ,2CiBw6BY;AACJ,+BjBn1BV,yCiBm1BU;AACH;AACA;AACK,iChB7qBd,uCgB6qBc;AACG;AACF,kCjB96BX,2CiB86BW;AACH,+BjB72BN,6CiB62BM;AACG,kCjB92BT,6CiB82BS;AACC,mCjB92BX,4CiB82BW;AACF,iCjB/2BT,4CiB+2BS;AACE,mCjB52BP,gDiB42BO;AAjChB;AAqCG;;;;AAEQ;;;AAEf;AACA;AACA;AACA;AACA;AANe;;;;;AA2lKoB;AAErC,UAAI,cAAU,KAAG,KAAjB;AAEE,yBAAa;AAEb,YAAG,cAAH;AAC4C,iBAA7B,OAAX,iBAAc,uBAAH,CAAsB,SAAU,eAAH,CAAc,OAAO,CAAC,IAAD;AAE/D,cAA0C,OAA7B,OAAX,iBAAc,uBAAH,CAAsB,SAAU,eAAH,CAAc,SAAS,CAAC,IAAD;OAPrE;AAFqC;AAZD;AAEpC,sBAAY;AACA,aAAX,iBAAc,uBAAH,CAAsB,OAAO,CAAC,IAAD;AAHL;AAMA;AAEpC,sBAAY;AACA,aAAX,iBAAc,uBAAH,CAAsB,OAAO,CAAC,IAAD;AAHL;AA7BJ;AAEhC,UAAc,sBAAH,eAAP,MAAO,CAAX;AAEE,wBAAoB,OAAP,OAAU,sBAAH,CAAqB;AACzC,wBAAoB,OAAP,OAAU,sBAAH,CAAqB;AACzC,oBAAgB,OAAP,OAAU,sBAAH,CAAqB;OAJvC;AAFgC;AAUO;AAAd;AAEzB,eAAyB,QAAQ,eAAe,CAA2C,OAA7B,OAAX,iBAAc,uBAAH,CAAsB,SAAU,eAAH,CAAc,MAAS,GAAH,GAAD,GAAK,qBAAQ,CAAC,eAAD,CAA3E;AAFvB;AAAc;AAKF;AAAZ;AAEzB;AAEA,WAAM;AACN,eAAyB,EAAE;AALF;AAAY;AAvkKpB;AAiBC;AACA;AACJ;AAnBG;AAsBC;;;AAEhB;AAFgB;;;;;AA66Ie;AAAP;AAE1B,eAAsC,YAAK,CAAC,KAAD;AAFjB;AAAO;AAUC;AAGxB,kBAAK,CAAC,MAAU,KAAX;AAHmB;AAMD;AAEjC;AAEA,UAAW,CAAC,cAAD,SAAW,IAAiB,CAAZ,iBAAY,KAAE,CAAF,CAAvC,EACE,cAAQ,CAAC,IAAD,CADV;AAJiC;AArBE;AAEnB,sDAAC,OAAQ,sBAAT;AAFwC;AAArB;AALN;AAAH;AAE1B,eAAsC;AAFZ;AAAG;AAeG;AAAN;AAE1B,eAA4C,yCAAC,KAAD;AAFlB;AAAM;AAl7Id;AAQE,+BAAO,UrBjiBjB,+BqBiiBiB,CAAP;AARF;AAeI,6EAAoB,U9Bz+BnC,2B8By+BmC,EAAmB,YArC5C,+BAqC4C,CAAvC;AACK,kFAAoB,U9B1+BxC,2B8B0+BwC,EAAmB,YAtCjD,+BAsCiD,EAA8B,uBAArE;AAEC,mFAAoB,U9B5+BzC,2B8B4+ByC,EAAmB,YAxClD,+BAwCkD,EAA6B,YjBx7B5E,oDiBw7B4E,EAAQ,UjBx7BpF,oDiBw7BoF,CAA5E;AAElB;;;AAER;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAVQ;;;;;;;;;;AA43IoB;AAE9B,oBAAS,OAAO,CAAC,KAAD;AAFc;AAtQC;AAAb;AAElB,eAAU,QAAQ,cAAc,CAAC,KAAD;AAFd;AAAa;AA2QC;AAEhC;AAFgC;AA/HE;AAElC;AACA;AAAG;AAAI;AAAM;AACb;AAAoB;AAGpB,UAAG,uBAAa,WAAW,OAAQ,GAAE,CAArC;AAEE,eAAe,uBAAa,WAAd,QAAd,EACE,uBAAa,YAAY,CAAC,uBAAa,WAAd;AAE3B,YAAG,sBAAiB,KAAG,EAAvB;AAEE,iCAAa,MAAM,eAAe,CAAC,QAAD;AAClC,iCAAa,MAAM,eAAe,CAAC,kBAAD;SAHpC;OALF;AAYA,WAAqB,QAAQ,cAAc,CAAC,MAAD;AAC3C,6BAAa,YAAY,CAAC,EAAD;AAEzB,eAAS,QAAqB,OAAhB,cAAS,SAAC,EAAM,GAAE,CAAF,kBAA9B;AAAI;AAEF,cAAsB,QAAQ,cAAc,CAAC,QAAD;AAC5C,WAAG,UAAH,GAAiB,cAAS,UAAM,CAAC,CAAD,CAAG;AACnC,WAAG,cAAC,KAAS,UAAW,GAAJ,GAAF,GAAQ,qBAAQ,CAAC,CAAD,CAA/B;AACH,WAAG,aAAa,CAAC,QAAQ,YAAY,GAAC,UAAtB;AAChB,YAAG,6BAAwB,KAAG,EAA9B,EACE,GAAG,UAAU,IAAI,CAAC,6BAAD,CADnB;AAGA,WAAG,iBAAiB,CAAC,QAAS,+CAAV;AACpB,gBAAwB,QAAQ,cAAc,CAAC,KAAD;AAC9C,aAAK,aAAa,CAAC,QAAQ,iBAAiB,GAAC,UAA3B;AAClB,YAAoB,QAAQ,cAAc,CAAC,GAAD;AAC1C,SAAC,MAAM,YAAY,CAAC,cAAc,MAAf;AACnB,YAAG,6BAAwB,KAAG,EAA9B,EACE,CAAC,aAAa,CAAC,QAAQ,6BAAT,CADhB;AAGA,SAAC,UAAD,GAAe,cAAS,WAAC,CAAD,CAAG;AAE3B,UAAE,YAAY,CAAC,GAAD;AACd,UAAE,YAAY,CAAC,KAAD;AACd,aAAK,YAAY,CAAC,CAAD;AAEjB,YAAY,qBAAD,QAAX;AAEE,4BAAkB,QAAlB,GAA8B;AAC9B,0BAAgB,QAAhB,GAA4B;AAC5B,+BAAe,CAAC,KAAM,cAAS,UAAM,CAAC,CAAD,EAAK,uEAAoB,oEAA/C;SAJjB;;AAQF,UAAG,CAAI,kBAAS,IAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAAjC,EACE,oBAAe,CAAC,gBAAW,oBAAW,KAAO,cAAS,SAAC,EAAM,KAAE,CAAF,CjBvjJmE,EiBujJjH,CADjB;AArDkC;AAyDJ;AAE9B;AAEA,UAAG,mBAAH,EACE,MADF;AAGA,4BAAkB;AAElB,YACA,aAiCuC,GAjCxB,UAAF,GAAQ,IAAD,GACpB,yBADyB,GAEzB,cADyB,GAEzB,kBADc,GAEd,gBADkB,GAElB,cADgB,GAEhB,mBADc,GAEd,eADmB,GAEnB,gBADgB,GAEhB,mBADiB,GAEjB,GADmB,GACd,MAAD,GAEJ,mBAFY,GAEQ,UAAD,GAAM,eAAD,GAAiB,UAAD,GAAM,WAAD,GAC7C,yBADyD,GAEzD,GADyB,GACpB,MAAD,GAEJ,mBAFY,GAEQ,UAAD,GAAM,YAAD,GACxB,2BADqC,GAErC,GAD2B,GACtB,MAAD,GAEJ,aAFY,GAEE,UAAD,GAAM,YAAD,GAClB,sBAD+B,GAE/B,oBADqB,GAGrB,0BAFoB,GAGpB,sBAD0B,GAE1B,GADsB,GACjB,MAAD,GAEJ,kBAFY,GAEO,UAAD,GAAM,IAAD,GACvB,kBAD4B,GAG5B,gBAFkB,GAGlB,mBADgB,GAEhB,uCADmB,GAEnB,GADuC;AAGvC,2BAAgB,CAAC,GAAD;AA9Cc;AAiDI;AAElC,UAAG,CAAI,iBAAP;AAEE;AACA;OAHF;AAFkC;AA3NA;AAAhB;AAElB;AACA;AACA;AACA;AACA;AACA;AAAE;AAGJ;AAGE,cAAS;AACT,iBAAY;AAEZ,UAAG,EAAE,aAAa,CAAC,IAAD,CAAlB;AAEE,YAAK,EAAE,cAAC,IAAD;AACP,YAAK,eAAI,CAAC,EAAG,cAAG,CAAC,WAAK,CAAN,CAAwB,GAAN,UAAD,OAAR,GAAiB,CAAF,CAAY,CAAD,OAA1C;AACT,wBAAG,CAAC,EAAE;;;;aAAE;;;;YAAL;AAEH,YAAM,CAAF,CAAE,KAAE,CAAF,CAAK,IAAO,CAAF,CAAE,GAAE,cAAQ,SAAC,EAAX,CAAlB,EACE,WAAY,cAAQ,WAAC,CAAD,CADtB;OANF;AAUA,UAAG,EAAE,UAAU,SAAS,CAAC,kBAAkB,GAAC,UAApB,CAAxB;AAEE,YAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAM,SAAU;;;;YAAjB,CADd;;AAKA,YAAY,iBAAD,QAAX,EACE,iBAAW,CAAC,KAAM,SAAU;;;;YAAjB,CADb;;AAIF,UAAG,CAAI,KAAP,EACE,aADF;AAGA,QAAE,UAAU,OAAO,CAAC,kBAAkB,GAAC,UAApB;AAEnB,YAAsB,EAAE;AAExB,UAAY,QAAQ,SAAT,QAAX;AAEE,gBAAQ,SAAQ,mBAAC,CAAmB,kDAAnB;AACjB,WAAG,YAAY,CAAC,QAAQ,SAAQ,iBAAC,EAAlB;AACf,gBAAQ,SAAQ,WAAC,CAAW,IAAX;OAJnB;AAOA,UAAK,GAAG,MAAM,iBAAiB,CAAC,YAAD;AAE/B,UAAM,CAAF,CAAE,KAAG,KAAH,CAAU,IAAO,CAAF,CAAE,KAAG,EAAH,CAAvB;AAEE,WAAG,MAAM,YAAY,CAAC,aAAa,GAAd;;AAIrB,WAAG,MAAM,YAAY,CAAC,aAAc,qBAAQ,CAAC,GAAG,aAAJ,CAAmB,GAAE,IAA5C;;AAGvB,UAAG,EAAE,UAAU,SAAS,CAAC,kBAAkB,GAAC,UAApB,CAAxB;AAEE,gBAAQ,UAAR,GAAsB;AACtB,YAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,KAAM,QAAP,CADZ;;AAKA,gBAAQ,UAAR,GAAsB;AACtB,YAAY,iBAAD,QAAX,EACE,iBAAW,CAAC,KAAM,QAAP,CADb;;AAIF,eAAU;AA3EQ;AAAgB;AAqPI;AAEtC;AACA,6BAAa,MAAM,YAAY,CAAC,aAAa,MAAd;AAC/B,6BAAa,MAAM,YAAY,CAAC,aAAa,QAAd;AAJO;AAhKb;AAEzB;AAAG;AACH;AAEA,WAAM,QAAQ;AAEd,eAAU,kBAAkB,GAAC,UAAD;AAE5B,UAAG,CAAI,EAAE,UAAU,SAAS,CAAC,MAAD,CAA5B,EACE,EAAE,UAAU,IAAI,CAAC,MAAD,CADlB;AAGA,YAAsB,EAAE;AACxB,SAAG,MAAM,YAAY,CAAC,aAAc,qBAAQ,CAAC,GAAG,aAAJ,CAAmB,GAAE,IAA5C;AAbI;AAhIE;AAE3B;AAAG;AACH;AAEA,WAAM,QAAQ;AAEd,eAAU,kBAAkB,GAAC,UAAD;AAE5B,UAAG,EAAE,UAAU,SAAS,CAAC,MAAD,CAAxB,EACE,EAAE,UAAU,OAAO,CAAC,MAAD,CADrB;AAGA,YAAsB,EAAE;AACxB,SAAG,MAAM,YAAY,CAAC,aAAa,GAAd;AAbM;AA+QW;AAEtC;AACA,UAAG,sBAAiB,KAAG,EAAvB,EACE,sBADF;AAHsC;AA/Hb;AAEzB;AAEA;AACA,eAAS,QAAoB,OAAf,cAAQ,SAAC,EAAM,GAAE,CAAF,kBAA7B;AAAI;AAEF,YAAY,cAAQ,WAAC,CAAD,CAAG,SAAZ,QAAX,EACE,cAAQ,WAAC,CAAD,CAAG,SAAQ,WAAC,CAAW,KAAX,CADtB;;AAPuB;AA3HU;AAEnC;AAEA,uBAAa,uBAAkB,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,oBAAS,UAAT,GAAsB;AACtB,oBAAS,UAAT,GAAsB;AACtB,4BAAkB;AAElB,UAAI,2CAAY,IAAG,oBAAnB;AAEE,sBAAS,GAAT;AACA,uBAAU,GAAV;OAHF;AATmC;AAgBR;AAEjB,eAAV,KAAU;AACV;AAH2B;AAoFC;AAE5B;AACA;AACA;AAJ4B;AA/tIlB;;;AA6BM,6BjBngCV,uCiBmgCU;AACW;AACT,+BjB7/BV,yCiB6/BU,yBjB9YkD,uBAAC,0CAAQ,wCAAT,CiB8YlD;AACA,+BjB76BV,yCiB66BU;AACM;AACF,mCjBrgCZ,2CiBqgCY;AACY,+CjB7/BjB,kDiB6/BiB;AACA,+CjB9/BjB,kDiB8/BiB;AACP,wCjB//BV,kDiB+/BU;AACP,iCjB//BV,2CiB+/BU;AACE,mCjB//BV,6CiB+/BU;AACI,uCjB//BV,iDiB+/BU;AACX;AACI,gCA9DD,iCA8DC;AACI;AACF,kCjB/gCX,2CiB+gCW;AACC,mCAlDA,qCAkDA;AACC,oCAlDI,0CAkDJ;AACF,kCApDC,qCAoDD;AACC,mCApDK,0CAoDL;AACI,uCAnDE,2CAmDF;AAEH,oCjB58BZ,4CiB48BY;AACD,mCjB78BX,4CiB68BW;AACD,kCjB98BV,4CiB88BU;AACG,qCjB/8Bb,4CiB+8Ba;AAtDd;AAyDG;;;;AAGH;;AAEW;;;AAEnB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATmB;;;;;AAo6JmB;AAExC,mBAAQ,OAAO,CAAC,KAAD;AACG,sBAAW,OAAO,CAAC,IAAD;AAHI;AATE;AAE1C,UAAI,eAAW,KAAG,KAAlB;AAEE,0BAAc;AACI,wBAAW,OAAO,CAAC,IAAD;OAHtC;AAF0C;AAeH;AAEvC,UAAI,YAAQ,KAAG,KAAf;AAEE,uBAAW;AACO,wBAAW,OAAO,CAAC,IAAD;OAHtC;AAFuC;AASD;AAEtC,UAAI,WAAO,KAAG,KAAd;AAEE,sBAAU;AACQ,wBAAW,OAAO,CAAC,IAAD;OAHtC;AAFsC;AASI;AAE1C,UAAI,eAAW,KAAG,KAAlB;AAEE,0BAAc;AACI,wBAAW,OAAO,CAAC,IAAD;OAHtC;AAF0C;AASJ;AAEtC,UAAI,WAAO,KAAG,KAAd;AAEE,sBAAU;AACQ,wBAAW,OAAO,CAAC,IAAD;OAHtC;AAFsC;AA5DA;AAEtC,sBAAY,+BAAQ,QAAC;AACrB,mBAAQ,QAAC,CAAQ,CAAR;AACT,mBAAQ,OAAC,CAAO,CAAP;AACT,mBAAQ,SAAC,CAAS,CAAT;AACT,mBAAQ,UAAC,CAAU,CAAV;AAET;AAR4D;AAAtB;AAYA;AAE7B,eAAT,KAAS;AACT;AAHsC;AA3BF;AAEpC,UAAc,0BAAH,eAAP,MAAO,CAAX;AAEE,0BAAsB,OAAP,OAAU,0BAAH,CAAyB;AAC/C,4BAAwB,OAAP,OAAU,0BAAH,CAAyB;AACjD,uBAAmB,OAAP,OAAU,0BAAH,CAAyB;AAC5C,sBAAkB,OAAP,OAAU,0BAAH,CAAyB;AAC3C,sBAAkB,OAAP,OAAU,0BAAH,CAAyB;AAC3C,0BAAsB,OAAP,OAAU,0BAAH,CAAyB;AAC/C,oBAAgB,OAAP,OAAU,0BAAH,CAAyB;AACzC,qBAAQ,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,SAAlC;OATjB;AAFoC;AA13Jf;AAiBD,+BAAO,UrBltBhB,gCqBktBgB,CAAP;AAIA;AACE;AACJ,+BjBl+BV,yCiBk+BU;AACD;AACG,iCA3BV,yBA2BU;AACJ;AACF;AACE;AA5BK;AA+BJ;;;AAEf;AAFe;;;;;AA8xJe;AAAP;AAEzB,eAA0C,YAAK,CAAC,KAAD;AAFtB;AAAO;AA+CC;AAEvB,kBAAK,CAAC,MAAU,KAAX;AAFkB;AAKD;AAEhC;AACA,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAHgC;AA/CU;AAAjB;AAEzB;AAAE;AAAE;AAAE;AAAE;AAGR,eAAU;AACV,UAAG,eAAM,KAAE,CAAX,EACE,aADF;AAGA,UAAK;AACL,UAAK,CAAC;AACN,WAAM;AAEN,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,YAAG,cAAK,CAAC,CAAD,CAAG,OAAO,GAAE,EAApB;AAEE,eAAM,cAAK,CAAC,CAAD,CAAG;AACd,cAAK;SAHP;AAMA,YAAG,CAAE,GAAE,cAAK,CAAC,CAAD,CAAG,OAAf;AAEE,cAAkB,CAAf,cAAK,CAAC,CAAD,CAAG,OAAO,GAAE,CAAF,CAAI,GAAE,CAAxB;AAEE,gBAAK,cAAK,CAAC,CAAD,CAAG,OAAO,GAAE,CAAF;AACpB,gBAAK;WAHP;SAFF;;AAUF,UAAG,CAAE,KAAE,CAAC,CAAR,EACE,IAAK,CADP;AAGA,eAAU,cAAK,CAAC,CAAD;AAlCU;AAAiB;AAVR;AAElB,sDAAC,OAAQ,0BAAT;AAFuC;AAArB;AARN;AAAH;AAGzB,eAAU;AACV,YAAM,SAAC,CAAS,MAAT;AACP,YAAM,SAAC,CAAS,MAAT;AALkB;AAAG;AALA;AAAH;AAEzB,eAA0C;AAFjB;AAAG;AA4DG;AAAN;AAEzB,eAAgD,yCAAC,KAAD;AAFvB;AAAM;AAx0Jd;AASG,+BAAO,UrBnpBjB,+BqBmpBiB,CAAP;AATH;AAmBW,mFAAmB,U9B9lCxC,2B8B8lCwC,EAAkB,WAlD5C,mCAkD4C,CAArC;AAER;;;AAElB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATkB;;;;;;;;;AAqjJ6B;AAGjD,6BAAkB,OAAO,CAAC,KAAD;AAHwB;AA5GT;AAAZ;AAE5B;AAEA,UAAI,4CAAa,IAAG,oBAApB,EACE,aADF;AAGA,eAAU;AACV,UAAK;AACL,UAAG,cAAU,KAAG,CAAhB;AAEE,yBAAc;AACd;OAHF;AAT4B;AAAY;AAkHO;AAE/C;AACA;AACA;AAEA,UAAG,CAAY,CAAC,YAAD,SAAf,EACE,MADF;AAGA,UAAI,4CAAa,IAAG,oBAApB,EACE,MADF;AAGA,UAAG,CAAY,CAAC,uBAAD,SAAf,EACE,MADF;AAGA,UAAK;AAEL,WAAM,YAAM,kBAAkB,CAAC,CAAD;AAE9B,UAAY,EAAD,QAAX;AAEE,YAAG,EAAE,WAAW,KAAE,gCAAlB;AAEE,iCAAa,MAAM,YAAY,CAAC,wBAAyB,EAAE,OAA5B;AAC/B,iCAAa,MAAM,eAAe,CAAC,oBAAD;;AAIlC,iCAAa,MAAM,eAAe,CAAC,uBAAD;AAClC,iCAAa,MAAM,YAAY,CAAC,qBAAsB,EAAE,OAAzB;;AAGjC,eAAQ,EAAE;AACV,YAAO,yCAAJ;;;;YAAI,CAAP,EACE,OAAQ,IAAK,GAAE,IADjB;AAGA,+BAAa,MAAM,YAAY,CAAC,eAAgB,IAAjB;AAE/B,eAAQ,EAAE;AACV,YAAO,yCAAJ;;;;YAAI,CAAP,EACE,OAAQ,IAAK,GAAE,IADjB;AAGA,+BAAa,MAAM,YAAY,CAAC,kBAAmB,IAApB;AAE/B,+BAAa,MAAM,YAAY,CAAC,eAAgB,qBAAQ,CAAC,EAAE,SAAQ,MAAX,CAAiB,GAAC,IAA3C;AAC/B,+BAAa,MAAM,YAAY,CAAC,cAAe,qBAAQ,CAAC,EAAE,SAAQ,KAAX,CAAgB,GAAC,IAAzC;AAC/B,+BAAa,MAAM,YAAY,CAAC,gBAAiB,qBAAQ,CAAC,EAAE,SAAQ,OAAX,CAAkB,GAAC,IAA7C;AAC/B,+BAAa,MAAM,YAAY,CAAC,iBAAkB,qBAAQ,CAAC,EAAE,SAAQ,QAAX,CAAmB,GAAC,IAA/C;OA5BjC;AA+BA,UAAG,EAAG,KAAG,sBAAT;AAEE,iCAAqB;AACrB,YAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,sBAAP,CADhB;OAHF;AAlD+C;AA7OR;AAEvC;AACA,wBAAe;AACf,cAAQ,YAAY,iBAAiB,CAAC,SAAU,eAAX;AAJE;AAuSE;AAEzC;AACA,UAAY,eAAD,QAAX;AAEE,gBAAQ,YAAY,oBAAoB,CAAC,SAAU,eAAX;AACxC,0BAAc;OAHhB;AAHyC;AAUE;AAE3C;AAAE;AAAE;AACJ;AAAG;AACH;AACA;AAEA,UAAI,yCAAU,IAAG,oBAAjB,EACE,MADF;AAGA,UAAG,iBAAH,EACE,MADF;AAGA,UAAG,CAAY,CAAC,uBAAD,SAAf,EACE,MADF;AAGA,UAA4B,CAAxB,uBAAiB,SAAC,EAAM,GAAE,CAAF,CAAK,IAAY,CAAC,WAAD,SAA7C;AAEE,+BAAa,YAAY,CAAC,WAAD;AACzB,sBAAU;AACV,+BAAa,MAAM,YAAY,CAAC,UAAU,MAAX;OAJjC;AAOA,UAAI,2CAAY,IAAG,oBAAnB;AAEE,iBAAyC,KAAhC,uBAAa,kBAAmB,GAAE,CAAF,EAAW,aAApD;AAAI;AAEF,cAAc,uBAAa,SAAS,MAAC,CAAD,CAAI,QAAS,KAAE,MAAnD,EACE,uBAAa,YAAY,CAAC,uBAAa,SAAS,MAAC,CAAD,CAAvB,CAD3B;;AAIF,iBAAS,SAAkB,OAAb,YAAM,SAAC,EAAM,GAAE,CAAF,oBAA3B;AAAI;AAEF,eAAqB,QAAQ,cAAc,CAAC,MAAD;AAC3C,YAAE,MAAM,YAAY,CAAC,WAAW,UAAZ;AACpB,YAAE,MAAM,YAAY,CAAC,QAAQ,KAAT;AACpB,YAAE,MAAM,YAAY,CAAC,SAAS,MAAV;AACpB,YAAE,MAAM,YAAY,CAAC,mBAAmB,KAApB;AACpB,YAAE,MAAM,YAAY,CAAC,MAAM,KAAP;AACpB,YAAE,MAAM,YAAY,CAAC,OAAQ,qBAAQ,CAAC,YAAM,UAAM,CAAC,CAAD,CAAG,OAAhB,CAAuB,GAAC,IAAzC;AACpB,iCAAa,YAAY,CAAC,EAAD;;OAjB7B;AAqBA,eAAS,SAA6B,QAAxB,uBAAiB,SAAC,EAAM,GAAE,CAAF,qBAAtC;AAAI;AAEF,YAAG,uBAAiB,IAAG,CAAvB;AAEE,eAAqB,QAAQ,cAAc,CAAC,KAAD;AAC3C,YAAE,cAAC,OAAW,MAAZ;AAEF,cAAI,2CAAY,IAAG,oBAAnB,EACE,EAAE,MAAM,YAAY,CAAC,SAAS,mBAAV,CADtB;AAGA,iCAAa,YAAY,CAAC,EAAD;;AAIzB,cAAK;AACL,mBAAS,SAAqC,QAAhC,uBAAa,kBAAmB,GAAE,CAAF,qBAA9C;AAAI;AAEF,iBAAqB,uBAAa,SAAS,MAAC,CAAD;AAC3C,gBAAI,EAAE,cAAC,MAAD,CAAS,KAAE,MAAjB;AAEE,kBAAI,CAAE,KAAE,CAAR;AACE;AAEA,oBAAI,CAAJ,IAAG;aALP;;;AAUJ,mBAAY,QAAQ,uBAAuB;AAC3C,kBAAW,uBAAiB,UAAM,CAAC,CAAD,CAAG;AACrC,YAAY,OAAD,QAAX;AAEE,iBAAO,mBAAC,CAAmB,kDAAnB;AACR,iBAAO,gBAAC,CAAc,CAAC,CAAf;AACR,cAAY,OAAO,iBAAC,EAAT,QAAX;AAEE,oBAAQ,YAAY,CAAC,OAAO,iBAAC,EAAT;AACpB,cAAE,YAAY,CAAC,QAAD;WAHhB;SAJF;;AAYF;AAtF2C;AApSF;AAAb;AAE5B,UAAgB,CAAZ,2CAAY,IAAG,oBAAH,CAAmB,IAA6B,CAAxB,uBAAiB,SAAC,EAAM,KAAE,CAAF,CAAhE;AAEE,iBAAU,QAAQ,cAAc,CAAC,KAAD;AAChC,sBAAyB,QAAQ,cAAc,CAAC,KAAD;AAC/C,mBAAM,UAAN,GAAoB;AACpB,4BAAe,4CAAf;AACA,mBAAM,cAAC,QAAY,QAAb;AACN,mBAAM,MAAM,YAAY,CAAC,SAAS,kBAAV;AACxB,mBAAM,MAAM,YAAY,CAAC,iBAAiB,QAAlB;AACxB,mBAAM,MAAM,YAAY,CAAC,UAAU,YAAX;AACxB,cAAM,YAAY,CAAC,WAAD;;AAIlB,iBAAU,QAAQ,cAAc,CAAC,KAAD;;AAhBN;AAAa;AA+FG;AAAhB;AAE5B;AACA;AAEA,eAAU;AAEV,eAAS,QAAqC,OAAhC,uBAAa,kBAAmB,GAAE,CAAF,kBAA9C;AAAI;AAEF,aAAqB,uBAAa,SAAS,MAAC,CAAD;AAC3C,YAAI,EAAE,cAAC,MAAD,CAAS,KAAE,MAAjB,EACM,MAAJ,IAAG,CADL;;AAV0B;AAAgB;AA8RF;AAE1C;AAEA,UAAI,4CAAa,IAAG,oBAApB,EACE,MADF;AAGA,UAAG,CAAY,CAAC,uBAAD,SAAf,EACE,MADF;AAGA,UAAI,2CAAY,IAAG,oBAAnB;AAEE,YAAI,uBAAiB,SAAC,EAAM,KAAE,CAA9B;AAEiB,iCAAc,MAAM,YAAY,CAAC,UAAU,OAAX;AAC/C,cAAI,WAAM,KAAE,EAAZ,EACiB,uBAAc,MAAM,YAAY,CAAC,mBAAmB,QAApB,CADjD;SAHF;OAFF;AAUA,UAAI,2CAAY,IAAG,oBAAnB;AAEE,+BAAa,MAAM,YAAY,CAAC,SAAS,mBAAV;OAFjC;AAKA,6BAAa,MAAM,YAAY,CAAC,UAAU,MAAX;AAC/B;AA1B0C;AArPP;AAEnC;AACA;AAHmC;AAuCQ;AAE3C;AAEA,UAAG,CAAI,iBAAW,IAAI,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAArC;AAEE,+BAAiB,QAAI,SAArB,GAA6C;AAC7C;OAHF;AAJ2C;AAjCF;AAGzC;AACA;AACA;AAGA,YAAO;AAEP,UAAc,CAAV,SAAU,KAAE,+BAAF,CAAY,IAAI,CAAkB,CAAb,4CAAa,IAAG,oBAAH,CAAhD;AAEE,iBAAiC,KAAxB,uBAAiB,SAAC,EAAM,GAAE,CAAF,EAAW,aAA5C;AAAI;AAEF,cAAI,uBAAiB,UAAM,CAAC,CAAD,CAAG,SAAS,KAAE,UAAzC;AAEE,iBAAqB,uBAAa,SAAS,MAAC,CAAD;AAC3C,mBAAM,EAAE,kBAAmB,GAAE,CAA7B,EACE,EAAE,YAAY,CAAC,EAAE,WAAH;AAEhB,mCAAiB,UAAM,CAAC,CAAD,CAAG,SAA1B,GAAsC;AACtC,mCAAiB,OAAO,CAAC,CAAD;AACxB,kBAAO;WART;;OAJJ;AAiBA;AAEA,UAAG,GAAH,EACE,qBADF;AA7ByC;AAhBC;AAI1C,UAAG,iBAAW,IAAc,CAAV,yCAAU,IAAG,oBAAH,CAA5B,EACE,MADF;AAGA;AAP0C;AApIL;AAErC;AACA,wBAAc;AAH4C;AAArB;AA2EA;AAElB,eAAnB,KAAmB;AACX,eAAR,KAAQ;AACR;AAJqC;AAjDQ;AAE7C;AAEA;AACA,2BAA4B,CAAZ,2CAAY,IAAG,oBAAH,CAAmB,IAAI,CACZ,CAAzB,CAAV,yCAAU,IAAG,WAAK,gBAAR,CAAyB,IAAc,CAAV,yCAAU,IAAG,WAAK,gBAAR,CAAd,CADQ;AAG/C,gCAAqB;AACrB,2BAA6B,aAAb,mBAAe,cAAC,2DAAD,CAAF;AAC7B,gCAAsB,uBAAkB,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,6BAAkB,UAAlB,GAA+B;AAC/B,UAAI,2CAAY,IAAG,oBAAnB;AAEE,sBAAS,GAAT;AACA,uBAAU,GAAV;OAHF;AAMA,oBAAU;AACV,+BAAqB;AACrB,qBAAW,sBAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,kBAAO,UAAP,GAAoB;AACpB,kBAAO,UAAP,GAAoB;AAEpB,UAAG,kBAAH;AAEE,aAAM,YAAO;AACb,UAAE,aAAF,GAAkB;AAClB,UAAE,SAAC,CAAS,GAAT;AACH,UAAE,SAAC,CAAS,KAAT;AAEH,aAAM,YAAO;AACb,UAAE,aAAF,GAAkB;AAClB,UAAE,SAAC,CAAS,GAAT;AACH,UAAE,SAAC,CAAS,SAAT;AAEH,aAAM,YAAO;AACb,UAAE,aAAF,GAAkB;AAClB,UAAE,SAAC,CAAS,GAAT;AACH,UAAE,SAAC,CAAS,aAAT;AAEH,aAAM,YAAO;AACb,UAAE,aAAF,GAAkB;AAClB,UAAE,SAAC,CAAS,IAAT;AACH,UAAE,SAAC,CAAS,iBAAT;OApBL;AAxB6C;AAxCH;AAG1C;AACA;AAJ0C;AAsGF;AAKxC;AALwC;AAkIL;AAEnC;AACA;AAHmC;AA9OI;AAEvC,6BAAkB,QAAI,SAAtB,GAAkC;AAClC,cAAQ,UAAC,CAAU,IAAV;AAH8B;AAqNG;AAE1C;AAGA,eAAS,QAA8B,OAAzB,uBAAkB,SAAC,EAAM,GAAE,CAAF,kBAAvC;AAAI;AAEF,YAAG,uBAAkB,UAAM,CAAC,CAAD,CAAG,SAAS,KAAG,QAA1C;AAEE,iCAAkB,OAAO,CAAC,CAAD;AACzB;SAHF;;AAPwC;AAeC;AAE3C;AAEA,eAAkC,KAAzB,uBAAkB,SAAC,EAAM,GAAE,CAAF,EAAW,aAA7C;AAAI;AAEF,+BAAkB,OAAO,CAAC,CAAD;;AANgB;AA9HL;AAEtC;AACA;AAHsC;AAv6IlB;;;AAyBA,+BAAO,UrBxrBjB,+BqBwrBiB,CAAP;AAWJ,6BjB5nCV,uCiB4nCU;AACW;AACT,+BjBtnCV,yCiBsnCU,yBjBvgBkD,uBAAC,0CAAQ,wCAAT,CiBugBlD;AACG;AACL,6BhB93BV,uCgB83BU;AACY,yCAreV,iCAqeU;AACD,wCjBtnCV,kDiBsnCU;AACL,mCjBrnCV,6CiBqnCU;AACF,iCjBvnCV,2CiBunCU;AACM,uCjBtnCV,iDiBsnCU;AACF;AACF,mCjBpoCZ,2CiBooCY;AACP;AACE,8BAtEA,gCAsEA;AACC,+BjBjjCV,yCiBijCU;AACH;AACI;AACD;AACK;AACF,kCjB5oCX,2CiB4oCW;AACI,sCA1DG,2CA0DH;AAxDL;AA2DG;;;;AAEP;;;AAEd;AACA;AAHc;;AAOA;AACM;AARN;AAWH;;;AAEX;AAFW;;;;;AA+xKe;AAAP;AAErB,eAAqC,YAAK,CAAC,KAAD;AAFrB;AAAO;AAUC;AAEnB,kBAAK,CAAC,MAAU,KAAX;AAFc;AAhBC;AAE9B,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAF8B;AAqBF;AAE5B;AACA,UAAG,IAAK,KAAE,IAAV,EACE,eADF;AAH4B;AA1BE;AAEd,sDAAC,OAAQ,qBAAT;AAFmC;AAArB;AAtBD;AAE7B;AAEA,WAAiC;AACjC,QAAE,OAAF,GAAY;AACZ,QAAE,aAAF,GAAkB;AAClB,UAAI,iBAAY,KAAE,CAAlB,EACG,eADH;AAP6B;AAWG;AAEhC;AAEA,WAAuC,yCAAC,KAAD;AACvC,QAAE,OAAF,GAAY;AACZ,QAAE,aAAF,GAAkB;AAClB,UAAI,iBAAY,KAAE,CAAlB,EACG,eADH;AAPgC;AAhBR;AAAH;AAErB,eAAqC;AAFhB;AAAG;AA2CG;AAAN;AAErB,eAA2C,yCAAC,KAAD;AAFtB;AAAM;AApyKd;AASO,+BAAO,UrBhvBjB,+BqBgvBiB,CAAP;AATP;AAkBQ;;;AAEnB;AAFmB;;;;;AAysKwB;AAE7C,wBAAa,OAAO,CAAC,KAAD;AAFyB;AAxCF;AAAd;AAE7B,eAAU;AACV,UAAG,mBAAU,IAAG,CAAhB,EACE,SAAU,kBAAa,WAAC,mBAAD,CAAW,aADpC;AAH6B;AAAc;AAON;AAAR;AAE7B,eAAU;AACV,UAAG,mBAAU,IAAG,CAAhB,EACE,SAAU,kBAAa,WAAC,mBAAD,CAAW,OADpC;AAH6B;AAAQ;AAgBO;AAE5C;AAAE;AAEF,YAAO,CAAC;AACR,eAAS,QAAyB,OAApB,kBAAa,SAAC,EAAM,GAAE,CAAF,kBAAlC;AAAI;AAEF,YAAG,kBAAa,WAAC,CAAD,CAAG,aAAa,KAAE,KAAlC;AAEE,gBAAO;AACP;SAHF;;AAOF,wBAAa,GAAb;AAd4C;AAsBN;AAEtC;AAAE;AAEF,YAAO,CAAC;AAER,eAAS,QAAyB,OAApB,kBAAa,SAAC,EAAM,GAAE,CAAF,kBAAlC;AAAI;AAEF,YAAG,kBAAa,WAAC,CAAD,CAAG,OAAO,KAAE,KAA5B;AAEE,gBAAO;AACP;SAHF;;AAOF,wBAAa,GAAb;AAfsC;AAkBK;AAE3C;AAF2C;AAvFD;AAE1C;AACA;AAEA,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,eAAwD,KAA1B,mBAAU,QAAQ,OAAQ,GAAE,CAAF,EAAW,aAAnE;AAAI;AACmB,2BAAU,OAAO,CAAC,CAAD;;AAExC;AAEA,eAAS,SAAyB,OAApB,kBAAa,SAAC,EAAM,GAAE,CAAF,oBAAlC;AAAI;AAEF,cAAO,QAAQ,cAAc,CAAC,QAAD;AAC7B,WAAG,cAAC,QAA6B,kBAAa,UAAM,CAAC,CAAD,CAAI,OAArD;AACH,WAAG,UAAH,GAAkC,kBAAa,UAAM,CAAC,CAAD,CAAI;AACzD,2BAAS,YAAY,CAAC,GAAD;;AAGvB;AArB0C;AAsCE;AAE5C,UAAI,QAAS,KAAE,+CAAf;AAEE,4BAAe,yCAAf;AACA,iCAAoB,eAApB;OAHF;AAF4C;AA5CN;AAExB,eAAd,KAAc;AACd;AAHsC;AARQ;AAE9C;AACA,2BAAiB,kBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,wBAAa,UAAb,GAA0B;AAC1B,wBAAa,UAAb,GAA0B;AALoB;AA3nKzB;;;AAmBL,6BjBrsCV,uCiBqsCU;AACW;AACT,+BjB/rCV,yCiB+rCU,yBjBhlBkD,uBAAC,0CAAQ,wCAAT,CiBglBlD;AACF,6BhBt8BV,uCgBs8BU;AACW,wCjB7rCV,kDiB6rCU;AACP,iCjB7rCV,2CiB6rCU;AACE,mCjB7rCV,6CiB6rCU;AACI,uCjB7rCV,iDiB6rCU;AACR;AACH,4BhB32BV,sCgB22BU;AACE;AACO;AACF,mCjB9sCZ,2CiB8sCY;AACP;AACK;AACL;AACG,+BjB5nCV,yCiB4nCU;AACG;AACN;AACK;AACD;AACA;AACD;AACM,qCjBxsCV,+CiBwsCU;AACL;AACL;AACI;AACF;AACO;AACF,kCjB/tCX,2CiB+tCW;AACF,gCjB9pCP,6CiB8pCO;AACD,+BjB/pCN,6CiB+pCM;AACG,kCjBhqCT,6CiBgqCS;AACD,iCjB3pCX,0CiB2pCW;AACC,kCjB3pCP,+CiB2pCO;AACH,+BjB7pCT,0CiB6pCS;AACI,mCjBnqCX,4CiBmqCW;AACF,iCjBpqCT,4CiBoqCS;AACE,mCjBjqCP,gDiBiqCO;AACC,oCjBvqCX,6CiBuqCW;AACA,oCjBxqCX,6CiBwqCW;AACL,+BjBzqCN,6CiByqCM;AACD,8BjB1qCL,6CiB0qCK;AA7DI;AAgEN;;;;AAEQ,oCApFV,4BAoFU;AAFR;AAKG;;;;AAEJ;;;AAEZ;AACA;AACA;AACA;AACA;AACA;AACA;AARY;;;;;;AAo8KsB;AAEpC,yBAAe;AAFqB;AAsBJ;AAEhC,qBAAW;AACC,iBAAM;AAHc;AA5JF;AAAR;AAEtB,eAAU,WAAM,SAAC;AAFK;AAAQ;AAKM;AAAd;AAEtB,eAAU;AAEV,UAAW,CAAC,mBAAD,SAAY,IAAO,CAAF,CAAE,GAAiB,mBAAU,SAAS,OAApC,CAA9B,EACE,SAAyB,mBAAS,SAAS,MAAC,CAAD,CAD7C;AAJsB;AAAc;AA3DA;AAAd;AAEtB;AACA,eAAU;AAHY;AAAc;AAoPA;AAEpC;AAFoC;AAlJN;AAE9B;AAEA,UAAG,SAAI,KAAE,EAAT;AAEE,0BAAa,mBAAU,GAAE,CAAzB;AACA,gBAAO,CAAP;OAHF;AAMA,UAAG,SAAI,KAAE,EAAT;AAEE,0BAAa,CAAb;AACA,gBAAO,CAAP;OAHF;AAMA,UAAG,SAAI,KAAE,EAAT;AAEE,0BAAa,mBAAU,GAAE,CAAzB;AACA,gBAAO,CAAP;OAHF;AAMA,UAAG,SAAI,KAAE,EAAT;AAEE,0BAAa,mBAAU,GAAE,CAAzB;AACA,gBAAO,CAAP;OAHF;AAMA,UAAG,SAAI,KAAE,EAAT;AAEE,0BAAa,WAAK,SAAC,EAAM,GAAE,CAA3B;AACA,gBAAO,CAAP;OAHF;AAMA,UAAG,SAAI,KAAE,EAAT;AAEE,0BAAa,mBAAU,GAAE,CAAzB;AACA,gBAAO,CAAP;OAHF;AAlC8B;AAuJK;AAEnC;AACA;AACA;AACA;AAEA,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,UAAG,iBAAH,EACE,MADF;AAGA,UAAG,uBAAa,QAAS,KAAG,KAA5B,EACE,MADF;AAIA,aAAe,mBAAS,WAAV,QAAd,EACE,mBAAS,YAAY,CAAC,mBAAS,UAAV;AAEvB,eAAS,QAAkB,OAAb,WAAM,SAAC,EAAM,GAAE,CAAF,kBAA3B;AAAI;AAEF,cAAsB,QAAQ,cAAc,CAAC,OAAD;AAC5C,cAA2B,QAAQ,cAAc,CAAC,OAAD;AACjD,WAAG,cAAC,OAAW,UAAZ;AACH,WAAG,MAAM,YAAY,CAAC,iBAAiB,QAAlB;AACrB,WAAG,MAAM,YAAY,CAAC,iBAAiB,QAAlB;AAErB,WAAG,YAAY,CAAC,GAAD;AACf,WAAG,MAAM,YAAY,CAAC,UAAU,OAAX;AACrB,cAAO,QAAQ,eAAe,CAAC,WAAM,KAAC,CAAD,CAAP;AAE9B,WAAG,YAAY,CAAC,GAAD;AAEf,YAAG,0BAAqB,KAAG,EAA3B,EACE,GAAG,cAAC,QAAY,0BAAb,CADL;AAGA,YAAG,cAAS,KAAE,4CAAd,EACE,GAAG,cAAC,YAAgB,MAAjB,CADL;AAGA,2BAAS,YAAY,CAAC,GAAD;;AAGvB;AA3CmC;AA9GC;AAEpC,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,UAAG,uBAAa,QAAS,KAAG,KAA5B,EACE,MADF;AALoC;AAuDD;AAEnC;AAEA,WAAM,mBAAW,CAAC,KAAD;AACjB,UAAY,EAAD,QAAX,EACsB,EAAE,WAAY,QADpC;AALmC;AA/HD;AAAZ;AAEtB;AACA;AAEA,eAAU;AACV,UAAY,mBAAD,QAAX;AAEE,iBAAS,QAAkB,OAAb,WAAM,SAAC,EAAM,GAAE,CAAF,kBAA3B;AAAI;AAEF,eAAM,mBAAW,CAAC,CAAD;AACjB,cAAY,EAAD,QAAX,EACE,KAAqB,EAAE,WADzB;AAEA,cAAY,EAAD,QAAX;AAEE,gBAAG,EAAG,KAAE,QAAQ,cAAhB;AAEE,uBAAU;AACV;aAHF;WAFF;;OAPJ;AANsB;AAAY;AA5FC;AAAb;AAEtB,eAAU,QAAQ,cAAc,CAAC,KAAD;AAFV;AAAa;AA0EJ;AAE/B,iBAAM,OAAO,CAAC,MAAD;AAFkB;AA0JF;AAE7B;AACA;AACA;AAJ6B;AAaW;AAExC;AAEA,UAAY,uBAAD,QAAX;AAEE,+BAAa,MAAM,YAAY,CAAC,WAAY,MAAb;OAFjC;AAJwC;AAUE;AAE1C;AAEA,UAAY,uBAAD,QAAX;AAEE,+BAAa,MAAM,YAAY,CAAC,WAAY,MAAb;OAFjC;AAJ0C;AAYP;AAEnC;AACA;AAHmC;AAnOF;AAEjC;AACA,UAAY,uBAAD,QAAX;AAEE,+BAAa,iBAAiB,CAAC,SAAU,qBAAX;OAFhC;AAHiC;AASE;AAEnC;AACA,UAAY,uBAAD,QAAX;AAEE,+BAAa,oBAAoB,CAAC,SAAU,qBAAX;OAFnC;AAHmC;AAUN;AAE7B,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAF6B;AAyQI;AAEjC;AAEA,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,eAAS,QAAoD,OAA1B,mBAAU,QAAQ,OAAQ,GAAE,CAAF,kBAA7D;AAAI;AACwC,2BAAU,QAAQ,MAAC,CAAD,CAAI,aAAM,CAAC,YAAgB,MAAjB;;AARvC;AApTC;AAElC;AAEA,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,eAAS,QAA+C,OAA3B,mBAAU,SAAS,OAAQ,GAAE,CAAF,kBAAxD;AAAI;AAEa,2BAAS,SAAS,MAAC,CAAD,CAAI,aAAM,CAAC,YAAgB,OAAjB;;AATX;AAwDQ;AAE1C;AACA,8BAAoB;AAHsB;AAiDF;AAExC;AACA,8BAAqB;AAHmB;AAtID;AAEvC;AACA,oBAAU,uBAAW,QAAC;AACtB,iBAAM,qBAAC,CAAqB,IAArB;AACK,iBAAO,UAAnB,GAAgC;AAChC,wBAAc,CAAC;AACf,0BAAe,4CAAf;AACA,2BAAgB;AAChB,wBAAa,IAAb;AACA,UAAI,2CAAY,IAAG,oBAAnB;AAEE,sBAAS,GAAT;AACA,uBAAU,GAAV;OAHF;AAVuC;AAuBR;AAExB,eAAP,KAAO;AACP;AAH+B;AAqUC;AAEhC;AACA;AAHgC;AA5SF;AAE9B,iBAAM,UAAU,CAAC,KAAM,OAAP;AAFc;AAgKE;AAEhC;AACA;AAEA,UAAG,aAAH;AACE,aAAgB,IAAV,MAAU,CAAI,WAAJ;AAEhB,iBAAgB,IAAV,MAAU,CAAI,YAAY,GAAhB;AAElB,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,YAAG,CAAI,EAAE,KAAK,CAAC,WAAK,KAAC,CAAD,CAAN,CAAd;AAEE,6BAAW,CAAC,CAAD,CAAG,MAAM,YAAY,CAAC,UAAU,MAAX;SAGhC,MAAA,mBAAW,CAAC,CAAD,CAAG,MAAM,YAAY,CAAC,UAAU,OAAX;;AAjBJ;AAVG;AAEnC;AAEA,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,2BAAW,CAAC,CAAD,CAAG,MAAM,YAAY,CAAC,UAAU,OAAX;;AANC;AAxHP;AAE5B;AACA,iBAAM;AACN;AAJ4B;AA5yKd;;;AA+GD;AAo9KqB;AAElC;AACA;AAAK;AAEL,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,UAAG,iBAAH,EACE,MADF;AAGA,UAAG,uBAAa,QAAS,KAAG,KAA5B,EACE,MADF;AAIA,aAAe,mBAAS,WAAV,QAAd,EACE,mBAAS,YAAY,CAAC,mBAAS,UAAV;AAEvB,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,cAAsB,QAAQ,cAAc,CAAC,OAAD;AAE5C,cAAsB,QAAQ,cAAc,CAAC,KAAD;AAC5C,WAAG,cAAC,MAAU,WAAK,KAAC,CAAD,CAAhB;AACH,WAAG,MAAM,YAAY,CAAC,UAAU,cAAX;AAErB,WAAG,YAAY,CAAC,GAAD;AAEf,WAAG,MAAM,YAAY,CAAC,UAAU,OAAX;AAErB,YAAG,0BAAqB,KAAG,EAA3B,EACE,GAAG,cAAC,QAAY,0BAAb,CADL;AAGA,YAAG,cAAS,KAAE,4CAAd,EACE,GAAG,cAAC,YAAgB,MAAjB,CADL;AAGA,2BAAS,YAAY,CAAC,GAAD;;AAGvB;AAvCkC;AAp9KrB;;;AAIG,6BjB52CV,uCiB42CU;AACW;AACT,+BjBt2CV,yCiBs2CU,yBjBvvBkD,uBAAC,0CAAQ,wCAAT,CiBuvBlD;AACC,gCjBjyCV,0CiBiyCU;AACG,mCjB92CV,6CiB82CU;AACD;AACL,6BhBhnCV,uCgBgnCU;AACG,gCjBv3CV,0CiBu3CU;AACJ,4BhBjhCV,sCgBihCU;AACY,wCjBz2CV,kDiBy2CU;AACI;AACX,iCjB12CV,2CiB02CU;AACE,mCjB12CV,6CiB02CU;AACI,uCjB12CV,iDiB02CU;AACR;AACD;AACO;AACF,mCjB13CZ,2CiB03CY;AACP;AACM;AACL,6BrBhxCR,8BqBgxCQ;AACD;AACO;AACD;AACD,iCLhyCV,wCKgyCU;AACL;AACK;AACD;AACA;AACD;AACJ;AACI;AACF;AACO;AACF,kCjB34CX,2CiB24CW;AACF,gCjB10CP,6CiB00CO;AACD,+BjB30CN,6CiB20CM;AACG,kCjB50CT,6CiB40CS;AACD,iCjBv0CX,0CiBu0CW;AACC,kCjBv0CP,+CiBu0CO;AACH,+BjBz0CT,0CiBy0CS;AACI,mCjB/0CX,4CiB+0CW;AACF,iCjBh1CT,4CiBg1CS;AACE,mCjB70CP,gDiB60CO;AACC,oCjBn1CX,6CiBm1CW;AACA,oCjBp1CX,6CiBo1CW;AACA,oCjBn1CP,iDiBm1CO;AACL,+BjBt1CN,6CiBs1CM;AACD,8BjBv1CL,6CiBu1CK;AACI,kCjB50CP,+CiB40CO;AACA,kCjB90CP,+CiB80CO;AACD,iCjB50CP,8CiB40CO;AACE,mCjB90CP,gDiB80CO;AAxDT;AA2DG;;;;AAGL;;;AAET;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAVS;;;;;;;;;AAmiLyB;AAEpC,4BAAkB;AAFkB;AA8BC;AAErC,6BAAmB;AAFkB;AAtEE;AAApB;AAEnB,eAAU;AAFS;AAAoB;AAKC;AAArB;AAEnB,eAA8B;AAFX;AAAqB;AAqGD;AAEvC;AACA,UAAY,mBAAD,QAAX;AAEE,YAAI,oBAAgB,KAAG,EAAvB;AACE,6BAAc,cAAC,MAAU,oBAAX;AAEA,cAAd,mBAAc,cAAC,MAAU,kBAAX;OALlB;AAQA,UAAY,kBAAD,QAAX;AAEE,YAAI,mBAAe,KAAG,EAAtB;AACE,4BAAa,cAAC,MAAU,mBAAX;AAEA,cAAb,kBAAa,cAAC,MAAU,iBAAX;OALjB;AAXuC;AAnJA;AAEvC;AAAO;AAAK;AAEZ;AAEA,4BAAkB,QAAQ,cAAc,CAAC,KAAD;AACxC,2BAAiB,QAAQ,cAAc,CAAC,KAAD;AACvC,2BAAiB,QAAQ,cAAc,CAAC,OAAD;AAEvC,eAAU,QAAQ,cAAc,CAAC,OAAD;AACjB,YAAO,MAAM,YAAY,CAAC,SAAS,MAAV;AACxC,aAAS,QAAQ,cAAc,CAAC,IAAD;AAE/B,gBAAU,YAAY,CAAC,MAAD;AACtB,YAAM,YAAY,CAAC,IAAD;AAElB,cAAS,QAAQ,cAAc,CAAC,IAAD;AAC/B,UAAI,YAAY,CAAC,KAAD;AAEhB,WAAK,YAAY,CAAC,mBAAD;AAEjB,cAAS,QAAQ,cAAc,CAAC,IAAD;AAC/B,UAAI,YAAY,CAAC,KAAD;AAEhB,WAAK,YAAY,CAAC,kBAAD;AAEjB,cAAS,QAAQ,cAAc,CAAC,IAAD;AAC/B,UAAI,YAAY,CAAC,KAAD;AAEhB,WAAK,YAAY,CAAC,kBAAD;AAEjB,yBAAc,cAAC,MAAU,kBAAX;AACd,wBAAa,cAAC,MAAU,iBAAX;AAjC0B;AAhBT;AAE9B;AACA,UAAY,kBAAD,QAAX,EACE,kBAAa,iBAAiB,CAAC,QAAS,cAAV,CADhC;AAEA,UAAY,mBAAD,QAAX,EACE,mBAAc,iBAAiB,CAAC,QAAS,eAAV,CADjC;AAL8B;AA4EE;AAAb;AAEnB,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,IAAD,CADd;AAIF;AACA;AAEE,eAAU;AATS;AAAa;AAYC;AAAd;AAEnB,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,IAAD,CADf;AAGA,eAAU;AALS;AAAc;AApCD;AAAb;AAEnB,eAAU,QAAQ,cAAc,CAAC,KAAD;AAFb;AAAa;AAkFC;AAEjC;AAEA,UAAW,CAAC,uBAAD,SAAwD,IAArB,CAAd,uBAAc,KAAG,uBAAH,CAAnB,IAA4C,CAAI,iBAA3E;AAEE,YAAqB,CAAjB,sBAAiB,KAAE,EAAF,CAAM,IAAiB,CAAZ,iBAAY,KAAE,4CAAF,CAA5C;AAEiB,iCAAc,MAAM,YAAY,CAAC,SAAS,gBAAV;AAChC,iCAAc,MAAM,YAAY,CAAC,gBAAgB,KAAjB;SAHjD;AAMe,0BAAc,MAAM,YAAY,CAAC,SAAS,MAAV;AAChC,0BAAc,MAAM,YAAY,CAAC,UAAU,MAAX;AAGhC,0BAAa,cAAe,MAAM,YAAY,CAAC,iBAAiB,QAAlB;AAC9C,0BAAa,cAAe,MAAM,YAAY,CAAC,QAAQ,MAAT;AAC9C,2BAAc,cAAe,MAAM,YAAY,CAAC,iBAAiB,QAAlB;AAC/C,0BAAa,cAAe,MAAM,YAAY,CAAC,iBAAiB,QAAlB;AAG7D,YAAG,qBAAgB,KAAE,kDAArB;AACiB,4BAAc,MAAM,YAAY,CAAC,QAAQ,MAAT;AAE/C,cAAe,kBAAc,MAAM,eAAe,CAAC,OAAD;OArBtD;AAJiC;AAhCH;AAE9B;AAEA,UAAY,4BAAD,QAAX;AAEE,YAAG,KAAH;AACE,sCAAkB,gBAAgB,CAAC,UAAD;AAElC,cAAA,4BAAkB,aAAa,CAAC,WAAW,EAAZ;OALnC;AAJ8B;AA7FS;AAEvC;AACA,uBAAa;AACb,wBAAc;AAJyB;AA0DF;AAErC;AACA,UAAG,cAAU,KAAE,IAAf,EACE,iBAAc,wCADhB;AAEA,UAAG,eAAW,KAAE,IAAhB,EACE,kBAAe,yCADjB;AALqC;AAgDT;AAE5B;AAEA,UAAY,4BAAD,QAAX;AAEE,aAA0B;AAE9B;OAJE;AAJ4B;AArjLjB;;;AA8BS,iCrBrhDV,gCqBqhDU;AACK,sCDviDV,gDCuiDU;AACJ;AACD;AACD;AACG,mCjBv8CV,6CiBu8CU;AACH,gCDrjDN,8CCqjDM;AACH,6BhBzsCV,uCgBysCU;AACD,4BhBzmCV,sCgBymCU;AACS;AACJ;AACG;AACL;AACC;AACA;AACI;AACJ;AACC;AACL;AACI,gCjBl5CP,6CiBk5CO;AACD,+BjBn5CN,6CiBm5CM;AACG,kCjBp5CT,6CiBo5CS;AACD,iCjB/4CX,0CiB+4CW;AACC,kCjB/4CP,+CiB+4CO;AACH,+BjBj5CT,0CiBi5CS;AACI,mCjBv5CX,4CiBu5CW;AACF,iCjBx5CT,4CiBw5CS;AACE,mCjBr5CP,gDiBq5CO;AACC,oCjB35CX,6CiB25CW;AACA,oCjB55CX,6CiB45CW;AACL,+BjB75CN,6CiB65CM;AACD,8BjB95CL,6CiB85CK;AACI,kCjBn5CP,+CiBm5CO;AACA,kCjBr5CP,+CiBq5CO;AACD,iCjBn5CP,8CiBm5CO;AACE,mCjBr5CP,gDiBq5CO;AACC,oCjBn6CX,6CiBm6CW;AACC,qCjBp6CZ,6CiBo6CY;AAnEb;AAsEG;;;;AAEM,iCrB/jDV,gCqB+jDU;AACJ,6BjB/+CV,uCiB++CU;AACW;AACT,+BjBz+CV,yCiBy+CU,yBjB13BkD,uBAAC,0CAAQ,wCAAT,CiB03BlD;AACO,sCDplDV,gDColDU;AACL;AACD;AACE;AACF,gCjBx6CV,0CiBw6CU;AACG,mCjBr/CV,6CiBq/CU;AACH,gCDnmDN,8CCmmDM;AACE;AACG;AACR,6BhBzvCV,uCgByvCU;AACG,gCjBhgDV,0CiBggDU;AACA,gCDtlDV,0CCslDU;AACQ,wCjBl/CV,kDiBk/CU;AACP,iCjBl/CV,2CiBk/CU;AACE,mCjBl/CV,6CiBk/CU;AACI,uCjBl/CV,iDiBk/CU;AACR;AACH,4BhBhqCV,sCgBgqCU;AACE;AACO;AACF,mCjBngDZ,2CiBmgDY;AACP;AACS;AACT;AACM;AACE;AACL;AACA,+BjBp7CV,yCiBo7CU;AACE;AACA,iCL36CV,wCK26CU;AACD;AACA;AACM;AACL;AACD;AACE;AACF;AACD;AACH;AACS,qCjBrgDV,+CiBqgDU;AACL;AACL;AACI;AACF;AACO;AACF,kCjB5hDX,2CiB4hDW;AACF,gCjB39CP,6CiB29CO;AACD,+BjB59CN,6CiB49CM;AACG,kCjB79CT,6CiB69CS;AACD,iCjBx9CX,0CiBw9CW;AACC,kCjBx9CP,+CiBw9CO;AACH,+BjB19CT,0CiB09CS;AACI,mCjBh+CX,4CiBg+CW;AACF,iCjBj+CT,4CiBi+CS;AACE,mCjB99CP,gDiB89CO;AACC,oCjBp+CX,6CiBo+CW;AACA,oCjBr+CX,6CiBq+CW;AACL,+BjBt+CN,6CiBs+CM;AACD,8BjBv+CL,6CiBu+CK;AACI,kCjB59CP,+CiB49CO;AACA,kCjB99CP,+CiB89CO;AACD,iCjB59CP,8CiB49CO;AACE,mCjB99CP,gDiB89CO;AACC,oCjB5+CX,6CiB4+CW;AACC,qCjB7+CZ,6CiB6+CY;AAtEV;AA0EH;;;AAET;AACA;AACA;AACA;AACA;AACA;AACA;AARS;;;;;AA2rLyB;AAEpC,4BAAkB;AAClB;AAHoC;AAMI;AAExC,gCAAsB;AACtB;AAHwC;AAMA;AAExC,gCAAsB;AACtB;AAHwC;AAMA;AAExC,iCAAuB;AACvB;AAHwC;AAxBV;AAE9B,sBAAY;AACZ;AAH8B;AA8BF;AAE5B,oBAAU;AACV;AAH4B;AA9CD;AAE3B,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAF2B;AAMC;AAE5B;AACA,oBAAU;AACV,sBAAY;AACZ,iCAAuB;AACvB,gCAAsB;AACtB,gCAAsB;AAPO;AAAD;AAlBF;AAE1B,UAAc,gBAAH,eAAP,MAAO,CAAX;AAEE,sBAAkB,OAAP,OAAU,gBAAH,CAAe;AACjC,8BAA0B,OAAP,OAAU,gBAAH,CAAe;AACzC,kCAA8B,OAAP,OAAU,gBAAH,CAAe;AAC7C,mCAA+B,OAAP,OAAU,gBAAH,CAAe;AAC9C,wBAAoB,OAAP,OAAU,gBAAH,CAAe;OANrC;AAF0B;AAzpLf;AAkBS;AAIF;AACM;AACK,0ChB50CvB,uCgB40CuB;AACD;AACA,yCjBnjDV,mDiBmjDU;AACZ;AA3BL;AA+BH;;;AAEN;AACA;AACA;AACA;AACA;AACA;AACA;AARM;;;;;;;;AA6iLkB;AAE1B,kBAAO,OAAO,CAAC,KAAD;AAFY;AAce;AAEzC,UAAI,2BAAuB,KAAG,KAA9B;AAEE,sCAA0B;AAC1B;OAHF;AAFyC;AATC;AAE1C,UAAI,4BAAwB,KAAG,KAA/B;AAEE,uCAA2B;AAC3B;OAHF;AAF0C;AAxBV;AAAhB;AAEhB,UAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,IAAD,CADZ;AAEA,eAAU;AAJM;AAAgB;AAjBI;AAApB;AAEhB,eAAU;AAFM;AAAoB;AAKC;AAArB;AAEhB,eAA8B;AAFd;AAAqB;AAzCR;AAAb;AAEhB;AAAO;AAAK;AAAO;AAEnB,eAAU,QAAQ,cAAc,CAAC,KAAD;AAChC,yBAAe,QAAQ,cAAc,CAAC,QAAD;AACrC,2BAAiB,QAAQ,cAAc,CAAC,OAAD;AAEvC,eAAU,QAAQ,cAAc,CAAC,OAAD;AAChC,aAAS,QAAQ,cAAc,CAAC,IAAD;AAE/B,YAAM,YAAY,CAAC,MAAD;AAClB,YAAM,YAAY,CAAC,IAAD;AAElB,eAAU,QAAQ,cAAc,CAAC,IAAD;AAChC,UAAI,YAAY,CAAC,MAAD;AAEhB,YAAM,YAAY,CAAC,kBAAD;AAElB,eAAU,QAAQ,cAAc,CAAC,IAAD;AAChC,UAAI,YAAY,CAAC,MAAD;AAEhB,YAAM,YAAY,CAAC,gBAAD;AAElB,sBAAW,UAAX,GAAyB;AACV,YAAO,MAAM,YAAY,CAAC,SAAS,MAAV;AACzB,YAAO,MAAM,YAAY,CAAC,kBAAkB,UAAnB;AACzB,YAAO,MAAM,YAAY,CAAC,SAAS,MAAV;AA3BxB;AAAa;AA+FC;AAE9B;AAEA;AACA,UAAW,CAAC,uBAAD,SAAwD,IAArB,CAAd,uBAAc,KAAG,uBAAH,CAAnB,IAA4C,CAAI,iBAA3E;AAEiB,0BAAc,MAAM,YAAY,CAAC,UAAU,MAAX;AAChC,0BAAc,MAAM,YAAY,CAAC,aAAa,OAAd;AAE/C,YAAG,qBAAgB,KAAE,kDAArB;AACiB,4BAAc,MAAM,YAAY,CAAC,QAAQ,MAAT;AAE/C,cAAe,kBAAc,MAAM,eAAe,CAAC,OAAD;AAGpD,YAAK,gBAAW,GAAF,CAAF,GAAM,CAAF;AAED,0BAAc,MAAM,YAAY,CAAC,SAAU,iDAAD;;;;YAAC,CAAS,GAAC,IAArB;AAE/C,YAAG,2BAAsB,KAAG,EAA5B;AACiB,4BAAc,aAAa,CAAC,QAAQ,2BAAT;AAE1C,cAAe,kBAAc,gBAAgB,CAAC,OAAD;AAE/C,YAAG,4BAAuB,KAAG,EAA7B;AACkB,0BAAY,aAAa,CAAC,QAAQ,4BAAT;AAExC,cAAe,gBAAY,gBAAgB,CAAC,OAAD;AAG9C,YAAK,gBAAO,GAAG,CAAH;AAEG,wBAAY,MAAM,YAAY,CAAC,QAAqB,iDAAC,CAAb,iBAAa;;;;YAAD,CAAS,GAAC,IAAhC;AAC9B,wBAAY,MAAM,YAAY,CAAC,UAAW,GAAZ;AAE9B,wBAAY,MAAM,YAAY,CAAC,SAAW,iDAAD;;;;YAAC,CAAS,GAAC,IAAtB;AAE7C,iDAAkB,CAAgB,mBAAgB,WAAM,iBAAY,KAAE,yCAApD;AAElB,YAAI,YAAM,SAAS,KAAG,EAAtB,EACkB,gBAAY,UAA3B,GAAyC,YAAM,SADlD;AAGA,YAAI,YAAM,eAAe,KAAG,EAA5B;AAEkB,0BAAY,UAA3B,GAAyC,uCAAgB,CAAC,YAAM,gBAAe,YAAM,oBAAmB,YAAM,qBAAqB,YAAM,mBAAhF;SAF5D;AAKe,+BAAc,MAAM,YAAY,CAAC,SAAS,MAAV;OA3CjD;AAL8B;AA5GM;AAEpC;AACA,0BAAgB;AAHoB;AA2DF;AAElC;AACA,UAAG,iBAAa,KAAE,IAAlB,EACE,oBAAiB,2CADnB;AAHkC;AAvEP;AAE3B;AACA,UAAY,gBAAD,QAAX,EACE,gBAAW,iBAAiB,CAAC,QAAS,iBAAV,CAD9B;AAH2B;AAOG;AAE9B;AAF8B;AA8EC;AAE/B,UAAI,QAAS,KAAE,+CAAf;AAEE,4BAAe,yCAAf;AACA,iCAAoB,EAApB;AACA,sCAAyB,cAAzB;AACA,uCAA0B,iBAA1B;AACA,4BAAe,wCAAf;OANF;AAF+B;AAnEN;AAEzB;AACA,qBAAW,gBAAW,QAAC;AACvB,kBAAO,UAAP,GAAoB;AAJ0B;AAArB;AAqCA;AAEjB,eAAR,KAAQ;AACR;AAHyB;AAngLjB;;;AA0BY,+BAAO,UrBtrCjB,+BqBsrCiB,CAAP;AA1BZ;AAoDG;;;;AAES,iCrB5tDV,gCqB4tDU;AACJ,6BjB5oDV,uCiB4oDU;AACW;AACT,+BjBtoDV,yCiBsoDU,yBjBvhCkD,uBAAC,0CAAQ,wCAAT,CiBuhClD;AACO,sCDjvDV,gDCivDU;AACL;AACD;AACE;AACF,gCjBrkDV,0CiBqkDU;AACG,mCjBlpDV,6CiBkpDU;AACL,8BA/FN,0BA+FM;AACE,gCDjwDN,8CCiwDM;AACE;AACL,6BhBt5CV,uCgBs5CU;AACG,gCjB7pDV,0CiB6pDU;AACA,gCDnvDV,0CCmvDU;AACQ,wCjB/oDV,kDiB+oDU;AACP,iCjB/oDV,2CiB+oDU;AACE,mCjB/oDV,6CiB+oDU;AACI,uCjB/oDV,iDiB+oDU;AACR;AACH,4BhB7zCV,sCgB6zCU;AACE;AACO;AACF,mCjBhqDZ,2CiBgqDY;AACP;AACS;AACT;AACM;AACE;AACL;AACA,+BjBjlDV,yCiBilDU;AACE;AACA,iCLxkDV,wCKwkDU;AACD;AACA;AACI;AACH;AACD;AACE;AACF;AACD;AACH;AACS,qCjBlqDV,+CiBkqDU;AACL;AACL;AACI;AACF;AACO;AACF,kCjBzrDX,2CiByrDW;AACF,gCjBxnDP,6CiBwnDO;AACD,+BjBznDN,6CiBynDM;AACG,kCjB1nDT,6CiB0nDS;AACD,iCjBrnDX,0CiBqnDW;AACC,kCjBrnDP,+CiBqnDO;AACH,+BjBvnDT,0CiBunDS;AACI,mCjB7nDX,4CiB6nDW;AACF,iCjB9nDT,4CiB8nDS;AACE,mCjB3nDP,gDiB2nDO;AACC,oCjBjoDX,6CiBioDW;AACA,oCjBloDX,6CiBkoDW;AACL,+BjBnoDN,6CiBmoDM;AACD,8BjBpoDL,6CiBooDK;AACI,kCjBznDP,+CiBynDO;AACA,kCjB3nDP,+CiB2nDO;AACD,iCjBznDP,8CiBynDO;AACE,mCjB3nDP,gDiB2nDO;AACD,kCjBzoDT,6CiByoDS;AArEV;AAhwDb,mBAw0Dc;AAMD,wBAAG,oMACoM,GAApM,oMADoM,GAEpM,4DADoM;AAEtM,yBAAG,mMACmM,GAAnM,mMADmM,GAEnM,0JADmM;AAGvM,wBAAG;AAbF;AAx0Dd,GAw0Dc,eAx0Dd;ACGA,+BAGS,6CAHT;;;AAgEW;AA4GC;AAjKF;AA8OkB;AAAV;AAEhB,UAAI,KAAM,IAAG,eAAb;AAEE,cAAM,sBAAS,QAAC,YAAM,CAAC,yCAAD,CAAN;OAFlB;AAKA,UAAG,KAAM,GAAE,eAAX;AACE,iBAAmB,cAAW,QAAK,CAAC,KAAD,CAAhB;AAEnB,qBAAU;AAVI;AAAU;AAeC;AAE3B,UAAI,KAAM,IAAG,eAAb;AAEE,cAAM,sBAAS,QAAC,YAAM,CAAC,0CAAD,CAAN;OAFlB;AAIA,UAAG,KAAM,GAAE,eAAX,EACY,QAAK,CAAC,MAAU,KAAX,CADjB;AAN2B;AA1BA;AAE3B;AAEA;AACA,eAAS,QAAiB,OAAZ,KAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AACF,gBAAG,CAAC,KAAK,KAAC,CAAD,CAAN;;AANsB;AAnOnB;AAWC;;AAIA,mCACA,gCADA;AACA;AACP;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAdO;aACP,wCACA,IAAA,kCACA,IAAA,sCACA,IAAA,sBACA,IAAA,wBACA,IAAA,sBACA,IAAA,8BACA,IAAA,4BACA,IAAA,8BACA,IAAA,gDACA,IAAA,oBACA,IAAA,oBACA,IAAA,sBACA,sCAZA;AAFO;;AACP;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAdO;;;AACP;AACA;AACA;AACA;AACA;AACA;AACA,2BAZO,uBAYP;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAdO;AAiBI;AACX;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAdW;aACX,wCACA,IAAA,kCACA,IAAA,sCACA,IAAA,sBACA,IAAA,wBACA,IAAA,8BACA,IAAA,4BACA,IAAA,oBACA,IAAA,kCACA,IAAA,4BACA,IAAA,4BACA,IAAA,0BACA,IAAA,oCACA,0DAZA;AAFW;;AACX;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAdW;;;AACX;AACA;AACA;AACA;AACA;AACA,2BA5BO,uBA4BP;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAdW;AAkBC,yCAEL,qCAFK;AAEL;;;AAEP;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAnBO;;;;;;;;;;AA4qBgB;AAAR;AAEjB;AAEA,eAAU;AACV,aAAQ;AACR,aAAM,IAAK,KAAG,IAAd;AAEM,cAAJ,IAAG;AACH,eAAQ,IAAI,UAAC;;AATE;AAAQ;AA9OC;AAAT;AAEjB,eAAU;AAFO;AAAS;AA+GD;AAAR;AAEjB;AAEA,eAAU,CAAC;AACX,aAAQ;AAER,aAAe,IAAD,QAAd;AAEM,cAAJ,IAAG;AACH,eAAQ,IAAI;;AAVG;AAAQ;AAgBD;AAAP;AAEjB,eAAU;AACV,aAAc,CAAP,MAAO,KAAG,IAAH,CAAQ,IAAW,CAAN,KAAM,GAAE,CAAF,CAAjC;AAEE,iBAAU,iBAAY,CAAC,MAAD;AAClB,aAAJ,IAAG;;AAEL,UAAG,MAAO,KAAE,IAAZ,EAAqB,MAAM,sBAAS,QAAC,YAAM,CAAC,eAAD,CAAN,CAArC;AARiB;AAAO;AAkFC;AAAR;AAEjB;AAEA,eAAU;AACV,aAAQ;AACR,aAAe,IAAD,QAAd;AAEM,cAAJ,IAAG;AACH,eAAQ,IAAI,aAAa,CAAC,IAAD;;AATV;AAAQ;AAxSA;AAEzB,UAAG,CAAI,cAAS,IAAW,CAAN,KAAM,KAAG,UAAH,CAA3B;AAEE,qBAAS;OAFX;AAFyB;AAmOA;AAEzB,kBAAI,CAAC,KAAD,CAAO,OAAO,CAAC,KAAD;AAFO;AAzQA;AAEzB,UAAG,CAAI,cAAS,IAAO,CAAF,CAAE,KAAG,UAAH,CAAvB;AAEE,qBAAS;OAFX;AAFyB;AAsHM;AAAd;AAEjB,eAAmB,gBAAD;AAFD;AAAc;AA4KF;AAE7B,uBAAa;AAFgB;AAnQD;AAE5B,sBAAY;AAFgB;AAwBU;AAEtC,gCAAsB;AAFgB;AAOT;AAE7B,uBAAa;AAFgB;AAkNA;AAE7B,uBAAa;AAFgB;AAtQL;AAExB,kBAAQ;AAFgB;AAjBA;AAExB,kBAAQ;AAFgB;AAuDC;AAEzB,mBAAS;AAFgB;AAqBM;AAE/B,UAAI,gBAAY,KAAG,KAAnB;AAEE,2BAAe;AACf,YAAY,WAAD,QAAX,EACE,IAAY,WAAM,kBAAP,QAAX,EACE,WAAM,kBAAiB,CAAC,YAAQ,IAAT,CAF3B;OAHF;AAF+B;AAkNF;AAE7B,UAAI,cAAU,KAAG,KAAjB;AAEE,yBAAa;AACb,mBAAM,gBAAgB,CAAC,KAAM,KAAP;OAHxB;AAF6B;AAmCI;AAAhB;AAEjB;AAEA,UAAG,kBAAH;AACE,iBAAU;;AAGV,iBAAU,CAAC;AACX,eAAQ;AACR,eAAM,IAAK,KAAG,IAAd;AAEM,gBAAJ,IAAG;AACH,iBAAQ,IAAI;;;AAbC;AAAgB;AAzNJ;AAAZ;AAEjB;AACA;AAEA,cAAS;AACT,eAAU;AACV,aAAQ;AACR,aAAM,IAAK,KAAG,IAAd;AAEM,aAAJ,IAAG;AACH,eAAQ,IAAI,aAAa,CAAC,IAAD;AACzB,YAAG,KAAM,GAAE,SAAX,EACE,aADF;;AAGF,UAAG,KAAM,KAAE,SAAX,EACE,SAAU,IADZ;AAfiB;AAAY;AA8XL;AAAP;AAEjB,eAAgB,CAAL,UAAK,KAAE,IAAI,MAAN,CAAa,IAAU,CAAL,UAAK,KAAE,IAAI,MAAN,CAAV;AAFZ;AAAO;AAvcA;AAExB,uBAAa;AAFW;AAPE;AAE1B,uBAAa;AAFa;AAwRF;AAAP;AAEjB;AAEA,eAAU,CAAC;AACX,aAAQ;AACR,aAAO,IAAK,KAAG,IAAf;AAEM,cAAJ,IAAG;AACH,YAAG,IAAK,KAAE,KAAV,EAAqB,KAArB;AACA,eAAQ,iBAAY,CAAC,IAAD;;AAEtB,UAAG,IAAK,KAAE,IAAV,EAAmB,SAAU,CAAC,CAA9B;AAZiB;AAAO;AApZE;AAEhB;AACV,oBAAU;AACV,uBAAa;AACb,uBAAa;AACb,sBAAY;AACZ,yBAAe;AACf,kBAAQ;AARuC;AAArB;AAaA;AAE1B;AAAG;AAAI;AACP;AAEA,uBAAa;AAEb;AAEA,UAAK;AACL,UAAsC,CAAtB,CAAR,CAAF,CAAE,KAAG,IAAH,CAAQ,IAAK,CAAI,CAAC,UAAV,CAAsB,IAAM,CAAF,CAAE,KAAE,IAAF,CAAN,CAAsF,IAAnE,CAAI,WAAK,UAAd,IAAsC,CAAC,WAAD,SAAZ,IAAgC,CAAC,WAAK,OAAN,SAAZ,IAA8B,CAAkB,CAAb,4CAAa,IAAG,WAAK,OAAM,gBAAd,CAAlJ;AAEE,aAAM;AACN,aAAM;AAEN,YAAG,CAAY,CAAC,EAAD,SAAf;AAEE,cAAG,kBAAH;AACE,uBAAK,WAAL,GAAoB;AACjB,oBAAW,CAAC,gBAAD,SAAS,IAAI,mBAAxB;AACH,4BAAM,YAAN,GAAsB;;AAGtB,gBAAY,EAAD,QAAX,EACE,EAAE,aAAF,GAAmB,IADrB;;SAIC,UAAG,CAAY,CAAC,EAAD,SAAf;AAEH,cAAG,kBAAH;AAEE,uBAAK,WAAL,GAAoB;AACpB,cAAE,aAAF,GAAmB;WAEhB,UAAW,CAAC,gBAAD,SAAS,IAAI,mBAAxB,EACH,gBAAM,YAAN,GAAsB,EADnB;;AAKL,YAAE,aAAF,GAAmB;AACnB,YAAE,aAAF,GAAmB;;OA9BvB;AAkCA,UAAG,CAAY,CAAC,gBAAD,SAAf;AAEE,YAAK,WAAK,UAAU,QAAQ,CAAC,IAAD;AAC5B,YAAI,CAAE,IAAG,CAAT;AAEE,qBAAK,UAAU,OAAO,CAAC,CAAD;SAFxB;OAHF;AASA,mBAAQ,IAAR;AACU;AAtDgB;AAihBI;AAAb;AAEjB,eAAU,oBAAa,CAAC,EAAG,IAAJ;AAFN;AAAa;AAOA;AAAb;AAEjB,UAAG,CAAY,CAAC,gBAAD,SAAf;AACE,iBAAU,WAAK,WAAW,CAAC,KAAM,KAAK,IAAZ;AAE1B,qBAAU,WAAK,WAAW,CAAC,KAAK,iBAAa,IAAnB;AAC5B,YAAM,QAAC,CAAQ,CAAR;AACP,YAAM,QAAC,CAAQ,IAAR;AAPU;AAAa;AA7BL;AAAR;AAEjB,eAAU,eAAQ,CAAC,EAAG,IAAJ;AAFD;AAAQ;AAOA;AAAR;AAEjB;AAEA,UAAK;AACL,UAAY,CAAD,QAAX;AACE,iBAAU,WAAK,WAAW,CAAC,KAAK,EAAG,KAAT;AAE1B,qBAAU,WAAK,WAAW,CAAC,KAAM,KAAK,KAAZ;AAC5B,YAAM,QAAC,CAAQ,CAAR;AACP,YAAM,QAAC,CAAQ,IAAR;AAVU;AAAQ;AAkCD;AAExB;AAEA,UAAG,CAAI,cAAS,IAAe,cAAH,eAAP,MAAO,CAA5B;AAEE,eAAkB;AAClB,qBAAQ,IAAI,MAAZ;AACA,qBAAQ,IAAI,MAAZ;AACA,yBAAY,IAAI,UAAhB;AACA,yBAAY,IAAI,UAAhB;AACA,wBAAW,IAAI,SAAf;AACA,oBAAO,IAAI,KAAX;AACA,qBAAQ,IAAI,MAAZ;AACA,yBAAY,IAAI,UAAhB;AACA,kCAAqB,IAAI,mBAAzB;AACA,oBAAO,IAAI,KAAX;AACA,2BAAe,IAAI;OAGnB,MAAgB,yCAAC,MAAD;AApBM;AAzeA;AAExB;AAEA,yBAAY,IAAZ;AAEA,UAAG,OAAH;AAEE,iBAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AACF,sBAAI,CAAC,CAAD,CAAG,OAAO,CAAC,OAAD;;OAHlB;AANwB;AAqHE;AAE1B;AAEA,yBAAY,KAAZ;AAEA,UAAG,OAAH;AAEE,iBAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AACF,sBAAI,CAAC,CAAD,CAAG,SAAS,CAAC,OAAD;;OAHpB;AAN0B;AAwSF;AAExB,UAAG,CAAI,cAAP,EACE,WADF;AAFwB;AAQQ;AAEhC;AACA;AACA;AAEA,kBAAa,aAAQ,QAAC;AACtB,UAAK;AACL,UAAG,CAAE,KAAG,IAAR;AAEE;AACE,mBAAS,IAAI,CAAC,CAAD;AACb,cAAK,CAAC;SAFR,QAGQ,EAAF,CAAE,KAAE,IAAF,CAHR;OAFF;AAQA,eAAyB,KAAhB,SAAS,SAAC,EAAM,GAAE,CAAF,EAAW,aAApC;AAAI;AAEF,YAAK,SAAS,YAAC,CAAD;AACd,SAAE,eAAF,CAAE;AACF,iBAAS,YAAC,CAAD,CAAG;;AAEd,eAAU,eAAV,SAAU;AAtBsB;AA9KF;AAAb;AAEjB,eAAU;AAFO;AAAa;AAOD;AAAZ;AAEjB;AAEA,eAAU;AACV,UAAG,MAAO,KAAG,IAAb;AAEE,eAAQ;AACR;AACE,mBAAU;AACV,iBAAQ,MAAM;SAFhB,QAGW,EAAL,IAAK,KAAE,IAAF,CAHX;OAHF;AALiB;AAAY;AAhDA;AAAZ;AAEjB,UAAG,KAAM,KAAG,IAAZ;AAAqB,iBAAU,KAAK;AAC/B,qBAAU;AAHE;AAAY;AAvCE;AAAd;AAEjB,eAAU;AAFO;AAAc;AAwEF;AAAZ;AAEjB,UAAG,KAAM,KAAG,IAAZ;AAAqB,iBAAU,KAAK;AAC/B,qBAAU;AAHE;AAAY;AAjEE;AAAd;AAEjB,eAAU;AAFO;AAAc;AA/JH;AAAX;AAEjB,UAAG,KAAM,KAAG,IAAZ;AAEE,YAAG,gBAAO,KAAE,IAAZ;AAAqB,mBAAU;AAC1B,kBAAG,gBAAO,KAAE,KAAZ;AAAuB,mBAAU;AACjC,uBAAU,gBAAM,YAAY,CAAC,KAAD;OAE9B,eAAU;AARE;AAAW;AAiXA;AAAX;AAEjB,eAAU,IAAK,KAAE,WAAK,WAAP;AAFE;AAAW;AAOC;AAAZ;AAEjB,eAAU,kBAAY,IAAqB,CAAT,CAAC,gBAAD,SAAS,IAA0B,CAArB,gBAAM,gBAAe,KAAE,IAAF,CAA1B,CAArB;AAFL;AAAY;AAlNL;AAAP;AAEjB;AAEA,eAAU;AAEV,UAAG,eAAM,GAAE,CAAX;AACE,iBAAU,YAAI,CAAC,CAAD;;AAGd,iBAAU;AACV,YAAG,CAAY,CAAC,MAAD,SAAf;AAEE,cAAK;AACL;AACE,gBAAK,CAAC;AACN,gBAAY,CAAD,QAAX,EACE,SAAU,CAAC,iBADb;WAFF,QAIsB,EAAhB,CAAY,CAAC,CAAD,SAAI,IAAW,CAAC,MAAD,SAAX,CAJtB;SAHF;;AAXe;AAAO;AAiCA;AAAP;AAEjB;AAEA,eAAU;AAEV,UAAY,MAAD,QAAX;AAEE,aAAM;AAEN;AACE,cAAG,EAAE,SAAC,EAAM,GAAE,CAAd;AAEE,qBAAU,EAAE,QAAK,CAAC,EAAE,SAAC,EAAM,GAAE,CAAZ;AACjB,iBAAM;WAHR;SADF,QAOe,EAAT,EAAE,SAAC,EAAM,KAAE,CAAF,CAPf;OAUA,eAAU;AApBK;AAAO;AApff;AAsDW,+BAAO,UAsDjB,wBAtDiB,CAAP;AAtDX;AAsGO,uEAAmB,U/B1D5B,2B+B0D4B,EAAgB,SAtG1C,uBAsG0C,EAAuB,0BAA1D;AAEN,iEAAmB,U/B5DtB,2B+B4DsB,EAAgB,SAxGpC,uBAwGoC,CAAnC;AAIA;;;AAER;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATQ;;;;;;;;;;AA04BwB;AAAhB;AAElB;AAAE;AACF;AAEA,eAAU;AACV,YAAO;AAEP,eAAS,QAAqB,OAAhB,cAAS,SAAC,EAAM,GAAE,CAAF,kBAA9B;AAAI;AAEF,gBAAS,cAAS,WAAM,CAAC,CAAD;AACxB;AACE,cAAI,KAAM,KAAE,GAAZ;AAEE,qBAAU;AACV;WAHF;AAKA,kBAAS,KAAK;AACV,aAAJ,IAAG;SAPL,QAQa,EAAN,KAAM,KAAE,IAAF,CARb;;AAXgB;AAAgB;AA1CD;AAAf;AAElB,eAAU,cAAS,SAAC;AAFF;AAAe;AAOI;AAAnB;AAElB,eAAU;AACV,UAAU,CAAN,KAAM,IAAG,CAAH,CAAM,IAAW,CAAN,KAAM,GAAE,cAAS,SAAC,EAAZ,CAA3B,EACE,SAAU,cAAS,YAAC,KAAD,CADrB;AAHkB;AAAmB;AAkEX;AAE1B,UAAU,CAAN,KAAM,IAAG,CAAH,CAAM,IAAW,CAAN,KAAM,GAAE,cAAS,SAAC,EAAZ,CAA3B,EACE,qBAAgB,CAAC,KAAD,CAAO,OAAO,CAAC,KAAD,CADhC;AAF0B;AAzDA;;AAAR;AAElB;AAEsB;AAAb;AAEP;AAEA,iBAAU,EAAE,SAAC;AACb,iBAAS,QAAc,OAAT,EAAE,SAAC,EAAM,GAAE,CAAF,kBAAvB;AAAI;AAEF,mBAAU,MAAO,GAAE,aAAa,CAAC,EAAE,QAAK,CAAC,CAAD,CAAR,CAAf;;AAPZ;AAAa;AAYtB,eAAU,cAAS,SAAC;AAEpB,eAAS,QAAqB,OAAhB,cAAS,SAAC,EAAM,GAAE,CAAF,kBAA9B;AAAI;AAEF,iBAAU,MAAO,GAAE,aAAa,CAAC,cAAS,WAAM,CAAC,CAAD,CAAhB,CAAf;;AApBD;AAAQ;AA+ME;AAAV;AAElB;AAEA,eAAU;AACV,UAAG,CAAY,CAAC,OAAD,SAAf;AAEE,YAAY,UAAD,QAAX;AAEE,cAAK,UAAU;AACf,cAAY,CAAD,QAAX;AAEE,2BAAU,CAAC,KAAK,EAAG,KAAT;AACV;;AAIA,qBAAU;AACV,sBAAU,YAAV,GAA0B;AAC1B,kBAAM,YAAN,GAAsB;AACtB;;;AAWF,cAAG,CAAY,CAAC,eAAD,SAAf;AAEE,qBAAU;AACV,8BAAc;AACd,0BAAS,IAAI,CAAC,MAAD;WAJf;;;AAUF,iBAAU;AACV,YAAG,YAAH;AAEE,cAAG,oBAAe,CAAC,OAAD,CAAlB;AAEE,8BAAc;AACd,kBAAM,aAAN,GAAuB;AACvB,mBAAO,aAAP,GAAwB;AACxB,0BAAS,OAAO,CAAC,EAAE,MAAH;;AAQhB,gBAAG,OAAO,eAAc,IAAY,CAAC,OAAO,UAAC,EAAT,SAApC;AAEE,qBAAO,UAAC,EAAM,YAAd,GAA8B;AAC9B,oBAAM,aAAN,GAAuB;AACvB,qBAAO,aAAP,GAAwB;AACxB,oBAAM,YAAN,GAAsB,OAAO,UAAC;;AAI9B,oBAAM,aAAN,GAAuB,OAAO;AAC9B,oBAAM,aAAN,GAAuB;AACvB,qBAAO,aAAP,GAAwB;AACxB,oBAAM,YAAN,GAAsB,OAAO,UAAC;AAC9B,kBAAY,MAAM,aAAP,QAAX,EACE,MAAM,aAAa,aAAnB,GAAoC,MADtC;;;;AAOJ,gBAAM,aAAN,GAAuB,OAAO;AAC9B,gBAAM,aAAN,GAAuB;AACvB,iBAAO,aAAP,GAAwB;AACxB,cAAY,MAAM,aAAP,QAAX,EACE,MAAM,aAAa,aAAnB,GAAoC,MADtC;AAEA,gBAAM,YAAN,GAAsB,OAAO,UAAC;AAC9B,cAAG,CAAY,CAAC,OAAO,UAAC,EAAT,SAAf,EACE,cAAS,IAAI,CAAC,MAAD,CADf;;;AAnFc;AAAU;AA1HK;AAAf;AAElB,eAAkB,CAAC,IAAD,SAAO,IAAU,CAAL,IAAK,KAAE,eAAF,CAAV;AAFP;AAAe;AAlCC;AAElC,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,KAAM,UAAb,CADnB;AAFkC;AArHN;AAAV;AAElB;AAEA,eAAU;AACV,eAAU,MAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AALC;AAAU;AAVD;AAEjB;AACV,oBAAU;AACV,wBAAc;AACd,uBAAc,aAAQ,QAAC;AALyB;AAArB;AAoBA;AAE3B,uBAAa;AACb;AACU,eAAV,KAAU;AACA;AALiB;AA8OD;AAAR;AAElB,eAAU,eAAQ,CAAC,KAAK,CAAN;AAFA;AAAQ;AAOA;AAAR;AAElB,UAAG,CAAY,CAAC,eAAD,SAAf;AAIE,iBAAU,eAAU,CAAC,KAAK,KAAK,IAAX;;AAIpB,iBAAU,eAAU,CAAC,KAAK,gBAAY,IAAlB;;AAEtB,YAAM,QAAC,CAAQ,CAAR;AACP,YAAM,QAAC,CAAQ,IAAR;AAbW;AAAQ;AAhFL;AAAH;AAElB,eAAU,UAAG,CAAC,QAAS,EAAG,IAAb;AAFK;AAAG;AAOA;AAAH;AAElB,eAAU,eAAU,CAAC,QAAS,mBAAa,KAAvB;AACpB,YAAM,QAAC,CAAQ,CAAR;AACP,YAAM,QAAC,CAAQ,IAAR;AAJW;AAAG;AASA;AAAH;AAElB,eAAU,UAAG,CAAC,EAAG,IAAJ;AAFK;AAAG;AAOA;AAAH;AAElB,eAAU,eAAU,CAAC,KAAK,mBAAa,KAAnB;AACpB,YAAM,QAAC,CAAQ,CAAR;AACP,YAAM,QAAC,CAAQ,IAAR;AAJW;AAAG;AASK;AAAR;AAElB,UAAG,MAAO,KAAE,IAAZ;AACE,iBAAU,UAAG,CAAC,EAAG,IAAJ;AAEb,qBAAU,eAAQ,CAAC,OAAQ,EAAG,IAAZ;AALF;AAAQ;AAUA;AAAR;AAGlB,eAAU;AAEV,UAAY,MAAD,QAAX;AACE,iBAAU,MAAM,WAAS,CAAC,EAAG,IAAJ;AAEzB,qBAAU,UAAG,CAAC,EAAG,IAAJ;AARG;AAAQ;AAaK;AAAb;AAGlB,eAAU,oBAAa,CAAC,OAAQ,EAAG,IAAZ;AAHL;AAAa;AAQA;AAAb;AAGlB,eAAU;AACV,UAAY,MAAD,QAAX,EACE,SAAU,MAAM,gBAAc,CAAC,EAAG,IAAJ,CADhC;AAJkB;AAAa;AA8HN;AAMzB,UAAa,eAAH,eAAP,MAAO,CAAV;AAGE;OAYG,MAAgB,yCAAC,MAAD;AArBI;AAwBK;;AAlXF;;AAoBJ;AAExB;AAEA,eAAyB,KAAhB,cAAS,SAAC,EAAM,GAAE,CAAF,EAAW,aAApC;AAAI;AACF,sBAAS,YAAC,CAAD,CAAG;;AAEd,oBAAS;AAPe;AAbC;AAEzB,UAAI;AAFqB;AAqIK;AAAZ;AAElB,eAAU;AAFQ;AAAY;AAOD;AAAX;AAElB,eAAU;AACV,UAAY,MAAD,QAAX,EACE,OAAO,MAAM,iBAAgB,KAAG,IAAhC,EACE,SAAU,MAAM,iBAFpB;AAHkB;AAAW;AAlCL;AAAN;AAElB,eAAU,iBAAY,CAAC,QAAS,EAAG,IAAb;AAFJ;AAAM;AAOM;AAAZ;AAGlB,eAAU,eAAU,CAAC,KAAK,QAAS,IAAf;AACpB,UAAY,MAAD,QAAX;AAEE,cAAM,QAAC,CAAQ,CAAR;AACP,cAAM,QAAC,CAAQ,IAAR;OAHT;AAJkB;AAAY;AA1GJ;AAE1B,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAF0B;AA90BhB;AA0BU,+BAAO,UtBuWjB,+BsBvWiB,CAAP;AA1BV;AA5KZ,GAqOc,OArOd;ACHA,6BAIS,6JAJT;;;;AAYe;;AAEK;;;AAEhB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAfgB;;;;;AA2fyB;AAE3C,UAAG,mBAAe,KAAG,MAArB;AAEE,8BAAkB;AAClB;OAHF;AAF2C;AA3CN;AAErC,UAAG,aAAO,KAAG,MAAb;AAEE,wBAAU;AACV,yBAAa;AACb;OAJF;AAFqC;AAkCC;AAEtC,UAAG,cAAU,KAAG,MAAhB;AAEE,yBAAa;AACb;OAHF;AAFsC;AAqEE;AAExC,yBAAe;AAFyB;AA7FN;AAElC,UAAI,UAAM,KAAG,MAAb;AAEE,qBAAS;AACT;OAHF;AAFkC;AAeA;AAElC,UAAI,UAAM,KAAG,KAAb;AAEE,qBAAS;AACT;OAHF;AAFkC;AAsDC;AAEnC,iBAAM,OAAO,CAAC,KAAD;AACb;AAHmC;AAeG;AAEtC,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAFsC;AA1CS;AAE/C,UAAU,CAAN,KAAM,GAAE,CAAF,CAAK,IAAW,CAAN,KAAM,GAAE,GAAF,CAA1B;AAEE,kCAAsB;AACtB;OAHF;AAF+C;AAkBA;AAE/C,UAAI,wBAAoB,KAAG,KAA3B;AAEE,mCAAuB;AACvB;OAHF;AAF+C;AATA;AAE/C,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB;OAHF;AAF+C;AAwBR;AAEvC,UAAI,eAAW,KAAG,KAAlB;AAEE,0BAAc;AACd;OAHF;AAFuC;AAlEF;AAErC;AACA;AAHqC;AA5BA;AAErC,UAAI,aAAQ,KAAG,MAAf;AAEsB,mEAAC,MAAD;AACpB;OAHF;AAFqC;AAXE;AAAb;AAE1B,UAAG,UAAH;AACE,iBAAU,QAAQ,cAAc,CAAC,MAAD;;AAGhC,iBAAU,QAAQ,cAAc,CAAC,QAAD;AAChC,cAAM,cAAC,OAAW,QAAZ;;AAPkB;AAAa;AAgIC;AAExC;AAAE;AAAS;AAAM;AAAI;AAAO;AAC5B;AAAO;AAAI;AAEX;AAEA,UAAG,CAAI,iBAAW,IAAmB,CAAd,mBAAc,KAAG,EAAH,CAArC,EACE,mBAAc,CAAC,iBAAkB,yDAAnB,CADhB;AAGA,UAAY,uBAAD,QAAX;AAEE,+BAAa,MAAM,YAAY,CAAC,iBAAiB,QAAlB;AAK/B,+BAAa,MAAM,YAAY,CAAC,WAAW,QAAZ;AAC/B,+BAAa,MAAM,YAAY,CAAC,UAAU,KAAX;AAC/B,+BAAa,MAAM,YAAY,CAAC,aAAa,QAAd;AAE/B,+BAAa,MAAM,YAAY,CAAC,YAAY,MAAb;AAE/B,YAAG,UAAM,IAAI,aAAb;AAEE,iCAAa,MAAM,YAAY,CAAC,UAAU,MAAX;AAC/B,iCAAa,MAAM,YAAY,CAAC,kBAAkB,QAAnB;SAHjC;AAMA,YAAK;AACL,mBAAY;AACZ,gBAAS;AAET,YAAG,CAAI,aAAP,EACE,WAAY,uBADd;AAGA,gBAAS;AAET,YAAG,mBAAe,KAAG,EAArB;AAEE,mBAAU;AACV,cAAG,wBAAoB,KAAG,EAA1B;AAEE,gBAAG,aAAH;AACE,uBAAU,SAAS,GAAC,kCAAW,CAAC,wBAAD,CAAZ;AAEnB,2BAAU,SAAS,GAAC,kCAAW,CAAC,QAAD,CAAZ;WALvB;AAQA,gBAAO,YAAgK,GAAjJ,uCAAgB,CAAC,uBAAD,CAAlB,GAAwC,QAAF,GAAW,WAAD,GAAa,KAAD,GAAO,aAAD,GAAgB,qBAAQ,CAAC,uBAAD,CAAV,GAA+B,IAAD,GAAQ,MAAF,GAAS,IAAD,GAAQ,mBAAF,GAAmB,MAAF;SAXzK;AAcA,YAAG,WAAM,QAAC,EAAK,KAAG,EAAlB;AACE,mBAAW,yBAA0B,GAAE,6CAAsB,CAAC,WAAM,QAAC,EAAR,CAAxB;AAEvC,kBAAG,WAAM,UAAU,KAAG,EAAtB;AACE,mBAAU,WAAM;AAElB,kBAAG,cAAU,KAAG,EAAhB,EACE,SAAU,cADZ;AAGA,aAAM;AACN,YAAG,eAAU,KAAG,CAAhB,EACE,KAAM,QAA2B,GAAT,4CAAC,CAAV,SAAU;;;;YAAD,CAAV,GAAoB,IADpC;AAGA,YAAG,MAAO,KAAG,EAAb,EACE,MAAO,cAAoE,GAArD,KAAD,GAAO,yBAAD,GAA2B,EAAD,GAAI,SAAD,GAAY,MAAF,GAAW,IAD/E;AAGA,YAAoC,CAAhC,uBAAa,kBAAmB,KAAE,CAAF,CAAK,IAAG,CAAI,kBAAhD,EACE,MAAO,yCAAkB,CAAC,cAAQ;;;;YAAT,CAD3B;AAGA,YAAG,GAAI,KAAG,EAAV,EACE,uBAAa,cAAC,YAAgB,GAAjB,CADf;AAGA,YAAG,aAAH;AACE,iCAAa,cAAC,WAAe,qBAAQ,CAAC,cAAD,CAAxB;AAEA,cAAb,uBAAa,cAAC,WAAe,IAAhB;AAEV;AACL,YADK,IACL;AAAa,cAAK,0CAAyH,GAA9E,KAAD,GAAO,gCAAD,GAAkC,GAAD,GAAK,+BAAD,GAAiC,GAAD,GAAK,oBAAD;AAC3I,kBAFK,IAEL;AAAe,cAAK,0CAAyH,GAA9E,KAAD,GAAO,gCAAD,GAAkC,GAAD,GAAK,+BAAD,GAAiC,GAAD,GAAK,oBAAD;AAC7I,kBAHK,IAGL;AAAY,cAAK,0CAAkI,GAAvF,KAAD,GAAO,gCAAD,GAAkC,GAAD,GAAK,wCAAD,GAA0C,GAAD,GAAK,oBAAD;AACnJ,kBAJK,IAIL,uCAAgB,IAAK,0CAAkI,GAAvF,KAAD,GAAO,gCAAD,GAAkC,GAAD,GAAK,wCAAD,GAA0C,GAAD,GAAK,oBAAxJ;AAGA,+BAAa,UAAb,GAA2B;AAE3B,iDAAkB,CAAgB,uBAAa,YAAc,WAAM,CAA6B,CAAN,CAAjB,sBAAiB,KAAE,EAAF,CAAM,IAAiB,CAAZ,iBAAY,KAAE,8CAAF,CAAjB,CAA9E;AAElB,YAAG,CAAI,gBAAP;AACiB,iCAAc,MAAM,eAAe,CAAC,OAAD;AAElD,kBAAgB,CAAZ,iBAAY,KAAE,8CAAF,CAAc,IAAsB,CAAjB,sBAAiB,KAAE,EAAF,CAApD;AAEiB,iCAAc,MAAM,YAAY,CAAC,QAAQ,kCAAW,CAAC,UAAI,OAAL,CAApB;AAC/C,cAAI,2CAAY,IAAG,oBAAnB,EACiB,uBAAa,WAAY,MAAM,YAAY,CAAC,QAAQ,kCAAW,CAAC,UAAI,OAAL,CAApB,CAD5D;SAHF;OAnFJ;AAVwC;AAsGM;AAE9C;AAEA;AAEA,UAAY,uBAAD,QAAX;AAEE,YAAG,UAAH;AACE,gBAAO;AAEP,oBAAO;AAET,YAAQ,CAAJ,GAAI,KAAG,EAAH,CAAW,IAAsB,CAAjB,sBAAiB,KAAE,EAAF,CAAzC;AACE,iCAAa,MAAM,YAAY,CAAC,mBAAoB,kCAAW,CAAC,GAAD,CAAhC;AAE/B,cAAA,uBAAa,MAAM,YAAY,CAAC,mBAAoB,EAArB;AAEjC,YAAY,uBAAa,WAAd,QAAX,EACE,yCAAkB,CAAgB,uBAAa,YAAc,WAAM,CAA6B,CAAN,CAAjB,sBAAiB,KAAE,EAAF,CAAM,IAAiB,CAAZ,iBAAY,KAAE,8CAAF,CAAjB,CAA9E,CADpB;AAGA,YAAG,CAAI,gBAAP;AACiB,iCAAc,MAAM,eAAe,CAAC,OAAD;AAElD,kBAAgB,CAAZ,iBAAY,KAAE,8CAAF,CAAc,IAAsB,CAAjB,sBAAiB,KAAE,EAAF,CAApD;AAEiB,iCAAc,MAAM,YAAY,CAAC,QAAQ,kCAAW,CAAC,UAAI,OAAL,CAApB;AAC/C,cAAgB,CAAZ,2CAAY,IAAG,oBAAH,CAAmB,IAAY,CAAC,uBAAa,WAAd,SAA/C,EACiB,uBAAa,WAAY,MAAM,YAAY,CAAC,QAAQ,kCAAW,CAAC,UAAI,OAAL,CAApB,CAD5D;SAHF;OAlBJ;AAN8C;AAiCR;AAEtC;AAEA,UAAY,YAAD,QAAX;AAEE,iBAAS,QAAyB,OAApB,YAAM,iBAAC,EAAa,GAAE,CAAF,kBAAlC;AAAI;AAEF,cAAuB,CAAnB,YAAM,YAAS,CAAC,CAAD,CAAI,KAAG,IAAH,CAAkD,IAAd,iBAAH,eAAnB,YAAM,YAAS,CAAC,CAAD,CAAI,CAAxB,IAA8F,CAA5B,OAAnB,YAAM,YAAS,CAAC,CAAD,EAAO,iBAAH,CAAgB,YAAY,KAAE,gBAAF,CAA9H,EACsB,OAAnB,YAAM,YAAS,CAAC,CAAD,EAAO,iBAAH,CAAgB,QAAC,CAAQ,KAAR,CADvC;;OAJJ;AAJsC;AAcC;AAEvC;AAEA;AACA,YAAO,iCAAa,CAAC,IAAD;AACpB,UAAW,CAAC,GAAD,SAAuD,IAA7B,CAAf,GAAG,YAAY,KAAE,+CAAF,CAApB,IAAwC,cAAJ,IAAuB,CAAL,UAAK,KAAG,EAAH,CAA5E,EACE,MADF;AAGA,uBAAY,aAAZ;AATuC;AAkCA;AAEvC;AAEA;AAEA,YAAO,iCAAa,CAAC,IAAD;AACpB,UAAW,CAAC,GAAD,SAAuD,IAA7B,CAAf,GAAG,YAAY,KAAE,+CAAF,CAApB,IAAwC,cAAJ,IAAuB,CAAL,UAAK,KAAG,EAAH,CAA5E,EACE,MADF;AAEA,UAAG,aAAH,EACE,iBAAY,QAAZ,CADF;AATuC;AAaL;AAElC;AACA,UAAG,aAAH,EACE,iBAAY,QAAZ,CADF;AAHkC;AAOE;AAEpC;AACA,UAAG,CAAI,aAAP,EACE,MADF;AAGA,uBAAY,OAAZ;AAEA,UAAG,gBAAW,GAAE,CAAhB;AAEE,YAAG,UAAK,IAAI,gBAAZ;AACE,uBAAQ,KAAR;;AAGA,uBAAQ,IAAR;AACA;;OAPJ;AARoC;AA1CG;AAEvC;AAFuC;AAME;AAEzC,UAAG,QAAS,KAAE,+CAAd;AAEE,iCAAoB,eAApB;AACA,4BAAe,yCAAf;AACA,4BAAe,wCAAf;OAJF;AAFyC;AAUN;AAE5B,eAAP,KAAO;AACP;AAHmC;AAvUQ;AAE3C;AACA,sBAAU;AACV,uBAAa;AACb,yBAAe;AACf,mBAAS;AACT,mBAAS;AACT,oBAAU,kCAAW,QAAC;AACtB,iBAAM,UAAN,GAAmB;AACnB,iBAAM,cAAN,GAAuB;AACvB,qBAAW;AACX,gCAAsB;AACtB,iCAAuB;AACvB,gCAAsB;AAdqB;AAiBT;AAAR;AAE1B,eAAU;AAFgB;AAAQ;AAvbhB;;;AA6DN;;;;AAEI,6BnB0CV,uCmB1CU;AACW;AACT,+BnBgDV,yCmBhDU,yBnB+pBkD,uBAAC,0CAAQ,wCAAT,CmB/pBlD;AACG;AACH;AACF,6BlBuSV,uCkBvSU;AACD;AACY,wCnB+CV,kDmB/CU;AACP,iCnB+CV,2CmB/CU;AACE,mCnB+CV,6CmB/CU;AACI,uCnB+CV,iDmB/CU;AACR;AACH;AACA,4BlBgYV,sCkBhYU;AACC,6BlBymBL,4CkBzmBK;AACG;AACC;AACC;AACJ;AACO;AACF,mCnByBZ,2CmBzBY;AACP;AACE,8BAvFJ,4BAuFI;AACC,+BnB4GV,yCmB5GU;AACM;AACK,0ClBmRvB,uCkBnRuB;AACD;AACA,yCnB4CV,mDmB5CU;AACP;AACD,iCPiHV,wCOjHU;AACD;AACA;AACD;AACA;AACF;AACO;AACF,kCnBSX,2CmBTW;AACH,+BnB0EN,6CmB1EM;AACG,kCnByET,6CmBzES;AACD,iCnB8EX,0CmB9EW;AACC,kCnB8EP,+CmB9EO;AACH,+BnB4ET,0CmB5ES;AACI,mCnBsEX,4CmBtEW;AACF,iCnBqET,4CmBrES;AACE,mCnBwEP,gDmBxEO;AACC,oCnBkEX,6CmBlEW;AACA,oCnBiEX,6CmBjEW;AACL,+BnBgEN,6CmBhEM;AACD,8BnB+DL,6CmB/DK;AAlDL;AAsDG;;;;AAEF;;;AAEX;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAhBW;;;;;AAg5CgB;AAE7B,UAAI,UAAM,KAAG,KAAb;AAEE,qBAAS;AACT;OAHF;AAF6B;AASC;AAE9B,iBAAM,OAAO,CAAC,KAAD;AACb;AAH8B;AAsCC;AAE/B,UAAI,YAAQ,KAAG,KAAf;AAEE,uBAAW;AACX;OAHF;AAF+B;AASO;AAEtC,UAAI,mBAAe,KAAG,KAAtB;AAEE,8BAAkB;AAClB;OAHF;AAFsC;AAlEN;AAEhC,UAAI,aAAO,KAAG,KAAd;AAEE,wBAAU;AACA,sBAAS,KAAT;AACV;OAJF;AAFgC;AA2CC;AAEjC,uBAAa;AAFoB;AAKC;AAElC,UAAI,eAAW,KAAG,KAAlB;AAEE,0BAAc;AACd;OAHF;AAFkC;AAdD;AAEjC,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAFiC;AAyCS;AAE1C,UAAU,CAAN,KAAM,GAAE,CAAF,CAAK,IAAW,CAAN,KAAM,GAAE,GAAF,CAA1B;AAEE,kCAAsB;AACtB;OAHF;AAF0C;AAkBA;AAE1C,UAAI,wBAAoB,KAAG,KAA3B;AAEE,mCAAuB;AACvB;OAHF;AAF0C;AATA;AAE1C,UAAI,uBAAmB,KAAG,KAA1B;AAEE,kCAAsB;AACtB;OAHF;AAF0C;AA3DR;AAElC,UAAI,eAAW,KAAG,KAAlB;AAEE,0BAAc;AACd;OAHF;AAFkC;AAlCF;AAEhC,UAAI,aAAQ,KAAG,MAAf;AAEsB,mEAAC,MAAD;AACpB;OAHF;AAFgC;AAhEE;AAAb;AAErB,UAAG,UAAH;AACE,iBAAU,QAAQ,cAAc,CAAC,MAAD;;AAGhC,iBAAU,QAAQ,cAAc,CAAC,QAAD;AAChC,cAAM,cAAC,OAAW,QAAZ;;AAPa;AAAa;AA+KC;AAEnC;AAAE;AAAS;AAAM;AAAM;AAAO;AAAO;AAAI;AAAI;AAE7C;AAEA,UAAY,uBAAD,QAAX;AAEE,YAAW,CAAP,aAAO,KAAG,EAAH,CAAW,IAAI,CAAI,UAA9B;AACE,iCAAa,MAAM,YAAY,CAAC,mBAAoB,kCAAW,CAAC,aAAD,CAAhC;AAE/B,cAAA,uBAAa,MAAM,YAAY,CAAC,mBAAoB,EAArB;AAEjC,+BAAa,MAAM,YAAY,CAAC,iBAAiB,QAAlB;AAC/B,YAAG,aAAH,EACE,uBAAa,MAAM,YAAY,CAAC,UAAU,OAAX,CADjC;AAEA,+BAAa,MAAM,YAAY,CAAC,WAAW,QAAZ;AAC/B,+BAAa,MAAM,YAAY,CAAC,UAAU,KAAX;AAE1B;AACH,YADG,IACH;AAAe,iCAAa,MAAM,YAAY,CAAC,aAAa,MAAd;AAC9C,kBAFG,IAEH;AAAU,iCAAa,MAAM,YAAY,CAAC,aAAa,QAAd;AACzC,kBAHG,IAGH,4CAAgB,uBAAa,MAAM,YAAY,CAAC,aAAa,OAAd,CAA/C;AAGF,YAAK;AACL,mBAAY;AACZ,gBAAS;AACT,gBAAS;AAET,YAAG,CAAI,aAAP,EACE,WAAY,uBADd;AAGA,gBAAS;AAET,YAAG,mBAAe,KAAG,EAArB;AAEE,mBAAU;AACV,cAAG,wBAAoB,KAAG,EAA1B,EACE,SAAU,SAAS,GAAC,kCAAW,CAAC,wBAAD,CADjC;AAGA,kBAAS,YAAkL,GAArK,uCAAgB,CAAC,uBAAD,CAAjB,GAAsC,QAAF,GAAY,iCAAD,GAAmC,KAAD,GAAO,aAAD,GAAgB,qBAAQ,CAAC,uBAAD,CAAV,GAA+B,IAAD,GAAM,MAAD,GAAQ,IAAD,GAAQ,mBAAF,GAAmB,MAAF;SAN7L;AAYA,YAAoC,CAAhC,uBAAa,kBAAmB,KAAE,CAAF,CAAK,IAAG,CAAI,kBAAhD,EACE,MAAO,yCAAkB,CAAC,cAAQ;;;;YAAT,CAD3B;AAGA,YAAG,GAAI,KAAG,EAAV,EACE,uBAAa,cAAC,YAAgB,GAAjB,CADf;AAIA,YAAI,GAAI,KAAG,EAAX,EACE,IAAK,eAAiC,GAAjB,KAAD,GAAO,IAAD,GAAQ,GAAF,GAAQ,SAD1C;AAGA,aAAM;AACN,YAAG,eAAU,KAAG,CAAhB,EACE,KAAM,QAA2B,GAAT,4CAAC,CAAV,SAAU;;;;YAAD,CAAV,GAAoB,KADpC;AAIA,YAAG,WAAM,QAAC,EAAK,KAAG,EAAlB;AACE,mBAAW,yBAA0B,GAAE,6CAAsB,CAAC,WAAM,QAAC,EAAR,CAAxB;AAEvC,kBAAG,WAAM,UAAU,KAAG,EAAtB;AACE,mBAAU,WAAM;AAElB,kBAAG,cAAU,KAAG,EAAhB,EACE,SAAU,cADZ;AAGK;AACL,YADK,KACL;AAEI,cAAI,KAAM,KAAG,EAAb;AAEE,gBAAG,GAAI,KAAG,EAAV;AACE,kBAAK,KAAiB,GAAT,QAAF,GAAa,CAAF;AAEtB,sBAAK;WALT;AAQA,cAAG,MAAO,KAAG,EAAb,EACE,IAAK,oCAA2E,GAApC,EAAF,GAAO,SAAF,GAAa,MAAF,GAAW,UAAF,GAAe,CADpF;SAIJ,UAfK,KAeL;AAEI,cAAI,KAAM,KAAG,EAAb;AAEE,gBAAI,GAAI,KAAG,EAAX;AACE,kBAAK,CAAa,GAAT,QAAF,GAAa,KAAF;AAElB,sBAAK;WALT;AAQA,cAAG,MAAO,KAAG,EAAb,EACG,IAAK,CAA6C,GAA1C,oBAAF,GAAuB,EAAD,GAAI,SAAD,GAAY,MAAF,GAAW,IADvD;SAIJ,UA7BK,KA6BL;AAEI,cAAG,KAAM,KAAG,EAAZ;AAEE,gBAAG,GAAI,KAAG,EAAV;AACE,kBAAK,KAAe,GAAP,MAAF,GAAW,CAAF;AAEpB,sBAAK;WALT;AAQA,cAAG,MAAO,KAAG,EAAb,EACG,IAAK,cAA+C,GAAhC,EAAD,GAAI,SAAD,GAAY,MAAF,GAAW,QAAF,GAAa,CADzD;SAIJ,UA3CK,KA2CL;AAEI,cAAG,KAAM,KAAG,EAAZ;AAEE,gBAAG,GAAI,KAAG,EAAV;AACE,kBAAK,CAAU,GAAP,MAAF,GAAW,KAAF;AAEf,sBAAK;WALT;AAQA,cAAG,MAAO,KAAG,EAAb,EACG,IAAK,CAA4C,GAAxC,kBAAF,GAAqB,EAAD,GAAI,SAAD,GAAY,MAAF,GAAW,IADtD;SAVJ;AAeA,+BAAa,UAAb,GAA2B;AAC3B,iDAAkB,CAAgB,wBAAgB,WAAM,CAA6B,CAAN,CAAjB,sBAAiB,KAAE,EAAF,CAAM,IAAiB,CAAZ,iBAAY,KAAE,8CAAF,CAAjB,CAAnE;OA5HpB;AANmC;AAsIM;AAEzC;AACA,UAAY,uBAAD,QAAX;AAEE,+BAAa,MAAM,eAAe,CAAC,SAAD;AAClC,+BAAa,MAAM,eAAe,CAAC,aAAD;OAHpC;AAHyC;AAnUd;AAE3B;AAEA;AAEA,UAAG,iBAAY,KAAG,CAAlB;AAEE,cAAO,iCAAa,CAAC,IAAD;AACpB,YAAY,GAAD,QAAX,EACE,GAAG,eAAC,CAAe,iBAAf,CADN;OAHF;AAN2B;AAkDO;AAElC;AAFkC;AAKI;AAEtC;AACA,UAAG,aAAQ,IAAS,CAAJ,GAAI,KAAE,EAAF,CAApB;AAEE;OAFF;AAIA,UAAG,YAAO,IAAS,CAAJ,GAAI,KAAE,EAAF,CAAnB;AAEE;OAFF;AAPsC;AAaF;AAEpC,UAAI,QAAS,KAAE,+CAAf;AAEE,iCAAoB,eAApB;AACA,4BAAe,yCAAf;AACA,4BAAe,wCAAf;OAJF;AAFoC;AAxBN;AAEvB,eAAP,KAAO;AACP;AAH8B;AAnBQ;AAEtC;AACA,sBAAU;AACV,uBAAa;AACb,mBAAS;AACT,oBAAS,EAAT;AACA,qBAAU,EAAV;AACA,wBAAc;AACd,oBAAU,kCAAW,QAAC;AACtB,iBAAM,UAAN,GAAmB;AACnB,iBAAM,cAAN,GAAuB;AACvB,wBAAc;AACd,gCAAsB;AACtB,iCAAuB;AACvB,gCAAsB;AACtB,0BAAgB;AAhBsB;AAx0CzB;;;AA0DN;;;;AAES,6BnBxEV,uCmBwEU;AACW;AACP,iCvB3JV,gCuB2JU;AACF,+BnBnEV,yCmBmEU,yBnB4iBkD,uBAAC,0CAAQ,wCAAT,CmB5iBlD;AACD;AACC;AACF,6BlBoLV,uCkBpLU;AACE;AACC,gCnBpFV,0CmBoFU;AACQ,wCnBrEV,kDmBqEU;AACP,iCnBrEV,2CmBqEU;AACE,mCnBrEV,6CmBqEU;AACI,uCnBrEV,iDmBqEU;AACR;AACH,4BlB6QV,sCkB7QU;AACA;AACC,6BlBqfL,4CkBrfK;AACG;AACC;AACH;AACO;AACF,mCnB1FZ,2CmB0FY;AACP;AACE,8BA1MJ,4BA0MI;AACO;AACK,0ClBiKvB,uCkBjKuB;AACD;AACA,yCnBtEV,mDmBsEU;AACN;AACD;AACF;AACA;AACD;AACA;AACF;AACO;AACF,kCnBzGX,2CmByGW;AACH,+BnBxCN,6CmBwCM;AACG,kCnBzCT,6CmByCS;AACD,iCnBpCX,0CmBoCW;AACC,kCnBpCP,+CmBoCO;AACH,+BnBtCT,0CmBsCS;AACI,mCnB5CX,4CmB4CW;AACF,iCnB7CT,4CmB6CS;AACE,mCnB1CP,gDmB0CO;AACC,oCnBhDX,6CmBgDW;AACA,oCnBjDX,6CmBiDW;AACL,+BnBlDN,6CmBkDM;AACD,8BnBnDL,6CmBmDK;AACI,kCnBxCP,+CmBwCO;AACA,kCnB1CP,+CmB0CO;AACD,iCnBxCP,8CmBwCO;AACE,mCnB1CP,gDmB0CO;AAtDf;AAyDG;;;;AAEI;AAmjBqB;AAAb;AAEtB;AAEA,eAAU,QAAQ,cAAc,CAAC,MAAD;AAEhC,UAAI,2CAAY,IAAG,oBAAnB;AAEE,aAAqB,QAAQ,cAAc,CAAC,KAAD;AAC3C,UAAE,MAAM,YAAY,CAAC,UAAU,IAAX;AACpB,UAAE,MAAM,YAAY,CAAC,QAAQ,MAAT;AACpB,UAAE,MAAM,YAAY,CAAC,SAAS,MAAV;AACpB,UAAE,MAAM,YAAY,CAAC,qBAAsB,MAAvB;AACpB,UAAE,MAAM,YAAY,CAAC,kBAAmB,MAApB;AACpB,UAAE,MAAM,YAAY,CAAC,oBAAqB,MAAtB;AACpB,UAAE,MAAM,YAAY,CAAC,iBAAkB,MAAnB;AACpB,UAAE,MAAM,YAAY,CAAC,cAAe,MAAhB;AACpB,UAAE,MAAM,YAAY,CAAC,WAAY,UAAb;AAEpB,cAAM,YAAY,CAAC,EAAD;OAbpB;AANsB;AAAa;AAuBI;AAEvC;AACA,oBAAS,QAAT;AACA,2BAA6B,aAAb,mBAAe,cAAC,2DAAD,CAAF;AAC7B,oBAAS,GAAT;AACA,qBAAU,EAAV;AANuC;AA1kBzB;;;AAQN;;;;AAEQ,6BnB3IV,uCmB2IU;AACW;AACT,+BnBrIV,yCmBqIU,yBnB0ekD,uBAAC,0CAAQ,wCAAT,CmB1elD;AACF,6BlBoHV,uCkBpHU;AACG,gCnBnJV,0CmBmJU;AACD;AACS,wCnBrIV,kDmBqIU;AACP,iCnBrIV,2CmBqIU;AACE,mCnBrIV,6CmBqIU;AACI,uCnBrIV,iDmBqIU;AACT;AACO;AACF,mCnBpJZ,2CmBoJY;AACP;AACA;AACG,+BnBjEV,yCmBiEU;AACC;AACL;AACI;AACF;AACO;AACF,kCnB7JX,2CmB6JW;AACH,+BnB5FN,6CmB4FM;AACG,kCnB7FT,6CmB6FS;AACA,kCnBlFP,+CmBkFO;AACA,kCnBpFP,+CmBoFO;AACD,iCnBlFP,8CmBkFO;AACE,mCnBpFP,gDmBoFO;AA7Bd;AAgCG;;;;AAEC;;AAGM,wCAHN,oCAGM;AAEF;;;AAEd;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA1Bc;;;;;;;;;;;;;;;;;;;;;;;;;AAksBoB;AAEpC,UAAY,MAAD,QAAX;AAEE,yBAAa;AACb,sBAAS,SAAT,GAAmB;AACA,sBAAU,qBAA7B,GAAqD;OAJvD;AAFoC;AAsGD;AAAX;AAExB,eAAU;AAFc;AAAW;AA5FE;AAErC,wBAAc;AACd,iBAAM,WAAC,CAAS,KAAT;AAH8B;AA7BM;AAE3C,8BAAoB;AACpB,iBAAM,WAAC,CAAS,KAAT;AAHoC;AAmCD;AAE1C,6BAAmB;AACnB;AAH0C;AA7BT;AAEjC,iBAAM,OAAO,CAAC,KAAD;AAFoB;AAwKO;;AAAhB;AAEH;AAEnB,2BAAQ,YAAY,CAAC,OAAD;AAFD;AAMrB,UAAG,CAAE,GAAE,CAAP,EACE,WAAW,CAAC,EAAD,CADb;AAIF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,eAAU;AAvBc;AAAgB;AAiIH;AAGrC;AACA,UAAc,CAAV,SAAU,KAAE,+BAAF,CAAY,IAAgB,CAAX,UAAW,KAAE,cAAF,CAA1C;AAEE,yBAAa;OAFf;AAJqC;AAhUA;AAErC,cAAO,iBAAY,QAAC,YAAM,CAAC,KAAD,CAAN,CAApB;AACA,eAAG,QAAC,CAAQ,KAAR;AACJ,eAAG,UAAC,CAAU,IAAV;AACJ,eAAG,iBAAC,CAAiB,KAAjB;AACJ,eAAG,OAAC,CAAO,CAAP;AACJ,eAAG,SAAC,CAAS,EAAT;AACJ,eAAG,UAAC,CAAU,EAAV;AACJ,eAAG,SAAC,CAAS,oCAAT;AACJ,eAAG,QAAC,CAAQ,IAAR;AACJ,eAAG,QAAC,CAAQ,IAAR;AACJ,eAAG,YAAC,CAAY,IAAK,KAAG,EAApB;AACJ,eAAG,WAAC,CAAW,IAAX;AACJ,eAAG,SAAH,GAAe;AAdsB;AAyNU;AAE/C;AAEA,UAAY,kBAAD,QAAX;AAEE,cAAgB,MAAO;AAEvB,YAAG,GAAI,KAAS,CAAP,WAAO,GAAE,OAAF,CAAhB;AAEE,cAAG,wCAAO,IAAG,kBAAQ,eAAc,OAAnC;AACE,8BAAQ,eAAc,SAAC,CAAsC,YAA7B,kBAAQ,eAAc,QAAS,cAAC,wCAAD,CAAF,CAAtC;AAEA,gBAAvB,kBAAQ,eAAc,SAAC,CAAsC,aAA7B,kBAAQ,eAAc,QAAS,cAAC,wCAAD,CAAF,CAAtC;SAEtB,UAAG,GAAI,KAAS,CAAP,WAAO,GAAE,SAAF,CAAhB;AAEH,cAAG,0CAAS,IAAG,kBAAQ,eAAc,OAArC;AACE,8BAAQ,eAAc,SAAC,CAAsC,YAA7B,kBAAQ,eAAc,QAAS,cAAC,0CAAD,CAAF,CAAtC;AAEA,gBAAvB,kBAAQ,eAAc,SAAC,CAAsC,aAA7B,kBAAQ,eAAc,QAAS,cAAC,0CAAD,CAAF,CAAtC;SAEtB,UAAG,GAAI,KAAS,CAAP,WAAO,GAAE,YAAF,CAAhB;AAEH,cAAG,6CAAY,IAAG,kBAAQ,eAAc,OAAxC;AACE,8BAAQ,eAAc,SAAC,CAAsC,YAA7B,kBAAQ,eAAc,QAAS,cAAC,6CAAD,CAAF,CAAtC;AAEA,gBAAvB,kBAAQ,eAAc,SAAC,CAAsC,aAA7B,kBAAQ,eAAc,QAAS,cAAC,6CAAD,CAAF,CAAtC;SAEtB,UAAG,GAAI,KAAS,CAAP,WAAO,GAAE,gBAAF,CAAhB;AAEH,cAAG,6CAAY,IAAG,kBAAQ,eAAc,OAAxC;AACE,8BAAQ,eAAc,SAAC,CAAsC,YAA7B,kBAAQ,eAAc,QAAS,cAAC,6CAAD,CAAF,CAAtC;AAEA,gBAAvB,kBAAQ,eAAc,SAAC,CAAsC,aAA7B,kBAAQ,eAAc,QAAS,cAAC,6CAAD,CAAF,CAAtC;SAEtB,UAAG,GAAI,KAAS,CAAP,WAAO,GAAE,YAAF,CAAhB;AACH,4BAAQ,eAAc,aAAC,CAAa,oCAAb;AACpB,kBAAG,GAAI,KAAS,CAAP,WAAO,GAAE,cAAF,CAAhB;AACH,4BAAQ,eAAc,aAAC,CAAa,+BAAb;AACpB,kBAAG,GAAI,KAAS,CAAP,WAAO,GAAE,aAAF,CAAhB;AACH,4BAAQ,eAAc,aAAC,CAAa,qCAAb;AACpB,kBAAG,GAAI,KAAS,CAAP,WAAO,GAAE,QAAF,CAAhB;AACH,4BAAQ,eAAc,eAAC,CAAe,CAAI,kBAAQ,eAAc,aAAzC;AACpB,kBAAG,GAAI,KAAS,CAAP,WAAO,GAAE,QAAF,CAAhB;AACH,4BAAQ,eAAc,iBAAC,CAAiB,CAAI,kBAAQ,eAAc,eAA3C;AACpB,kBAAG,GAAI,KAAS,CAAP,WAAO,GAAE,MAAF,CAAhB;AACH,4BAAQ,eAAc;AACnB,kBAAG,GAAI,KAAS,CAAP,WAAO,GAAE,QAAF,CAAhB,EACH,gBAAW,MAAM,EADd;OA5CP;AAiDA,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,MAAD,CADpB;AArD+C;AA1Ed;AAEjC,UAAY,kBAAD,QAAX,EACE,kBAAQ,eAAc,SAAC,CAAS,WAAM,SAAC,EAAhB,CADzB;AAFiC;AAMA;AAEjC,UAAY,kBAAD,QAAX,EACE,kBAAQ,eAAc,aAAC,CAAa,WAAM,SAAC,EAApB,CADzB;AAFiC;AAMC;AAElC,UAAY,kBAAD,QAAX,EACE,kBAAQ,eAAc,QAAC,CAAQ,SAAI,OAAM,KAAC,SAAI,aAAC,EAAN,CAAlB,CADzB;AAFkC;AAMI;AAEtC,UAAY,kBAAD,QAAX,EACE,kBAAQ,eAAc,UAAC,CAAU,aAAQ,aAAC,EAAU,GAAE,CAA/B,CADzB;AAFsC;AA4II;AAE1C;AAEiB,iBAAZ,iBAAY,aAAC;AAClB,UADiB,IACjB;AAAG,kBAAW;AACd,gBAFiB,IAEjB;AAAG,kBAAW;AACd,gBAHiB,IAGjB,QAAG,UAAW,CAAd;AAEA,oBAAS,oBAAoB,CAAC,OAAD;AATa;AAnPJ;AAEtC,UAAG,iBAAH,EACE,MADF;AAGA,gBAAK,WAAC,CAAW,wBAAO,IAAG,oBAArB;AACN,kBAAO,WAAC,CAAW,0BAAS,IAAG,oBAAvB;AACR,qBAAU,WAAC,CAAW,6BAAY,IAAG,oBAA1B;AACX,yBAAc,WAAC,CAAW,iCAAgB,IAAG,oBAA9B;AACf,qBAAU,WAAC,CAAW,6BAAY,IAAG,oBAA1B;AACX,uBAAY,WAAC,CAAW,+BAAc,IAAG,oBAA5B;AACb,sBAAW,WAAC,CAAW,8BAAa,IAAG,oBAA3B;AACZ,iBAAM,WAAC,CAAW,iCAAgB,IAAG,oBAA9B;AACP,iBAAM,WAAC,CAAW,+BAAc,IAAG,oBAA5B;AACP,eAAI,WAAC,CAAW,wBAAO,IAAG,oBAArB;AACL,mBAAQ,WAAC,CAAW,4BAAW,IAAG,oBAAzB;AACT,iBAAM,WAAC,CAAW,mCAAkB,IAAG,oBAAhC;AACP,iBAAM,WAAC,CAAW,mCAAkB,IAAG,oBAAhC;AACP,eAAI,WAAC,CAAW,6BAAY,IAAG,oBAA1B;AACL,iBAAM,WAAC,CAAW,+BAAc,IAAG,oBAA5B;AACP,uBAAY,WAAC,CAAW,+BAAc,IAAG,oBAA5B;AAEb,UAAG,qBAAgB,KAAE,kDAArB;AAEE,YAAY,uBAAD,QAAX,EACE,uBAAa,MAAM,YAAY,CAAC,UAAU,MAAX,CADjC;OAFF;AAMA,eAAI,mBAAC,CAAmB,qBAAnB;AACL,mBAAQ,mBAAC,CAAmB,qBAAnB;AACT,gBAAK,mBAAC,CAAmB,qBAAnB;AACN,kBAAO,mBAAC,CAAmB,qBAAnB;AACR,qBAAU,mBAAC,CAAmB,qBAAnB;AACX,yBAAc,mBAAC,CAAmB,qBAAnB;AACf,iBAAM,mBAAC,CAAmB,qBAAnB;AACP,iBAAM,mBAAC,CAAmB,qBAAnB;AACP,qBAAU,mBAAC,CAAmB,qBAAnB;AACX,uBAAY,mBAAC,CAAmB,qBAAnB;AACb,sBAAW,mBAAC,CAAmB,qBAAnB;AACZ,iBAAM,mBAAC,CAAmB,qBAAnB;AACP,iBAAM,mBAAC,CAAmB,qBAAnB;AACP,eAAI,mBAAC,CAAmB,qBAAnB;AACL,iBAAM,mBAAC,CAAmB,qBAAnB;AACP,uBAAY,mBAAC,CAAmB,qBAAnB;AAEb,aAAM,WAAM,SAAC,EAAM,GAAE,EAArB,EACE,WAAM,IAAI,CAAC,EAAD;AAEZ,gBAAK,QAAC,CAAQ,WAAM,IAAQ,CAAC,CAAD,CAAtB;AACN,kBAAO,QAAC,CAAQ,WAAM,IAAQ,CAAC,CAAD,CAAtB;AACR,qBAAU,QAAC,CAAQ,WAAM,IAAQ,CAAC,CAAD,CAAtB;AACX,yBAAc,QAAC,CAAQ,WAAM,IAAQ,CAAC,CAAD,CAAtB;AACf,iBAAM,QAAC,CAAQ,WAAM,IAAQ,CAAC,CAAD,CAAtB;AACP,iBAAM,QAAC,CAAQ,WAAM,IAAQ,CAAC,CAAD,CAAtB;AAEP,qBAAU,QAAC,CAAQ,WAAM,IAAQ,CAAC,CAAD,CAAtB;AACX,uBAAY,QAAC,CAAQ,WAAM,IAAQ,CAAC,CAAD,CAAtB;AACb,sBAAW,QAAC,CAAQ,WAAM,IAAQ,CAAC,CAAD,CAAtB;AACZ,iBAAM,QAAC,CAAQ,WAAM,IAAQ,CAAC,CAAD,CAAtB;AACP,iBAAM,QAAC,CAAQ,WAAM,IAAQ,CAAC,EAAD,CAAtB;AACP,eAAI,QAAC,CAAQ,WAAM,IAAQ,CAAC,EAAD,CAAtB;AACL,iBAAM,QAAC,CAAQ,WAAM,IAAQ,CAAC,EAAD,CAAtB;AACP,uBAAY,QAAC,CAAQ,WAAM,IAAQ,CAAC,EAAD,CAAtB;AA9DyB;AAiEA;AAEtC;AAEA,UAAY,uBAAD,QAAX;AAEE,+BAAa,MAAM,YAAY,CAAC,SAAU,MAAX;OAFjC;AAJsC;AA8LP;AAE/B;AACA;AACA;AAJ+B;AAlJgB;AAE/C,eAAI,aAAC,CAAa,QAAG,CAAC,EAAE,SAAI,OAAM,QAAQ,CAAC,UAAU,SAAX,CAArB,CAAhB;AACL,mBAAQ,aAAC,CAAa,QAAG,CAAC,EAAE,aAAQ,OAAM,QAAQ,CAAC,UAAU,SAAX,CAAzB,CAAhB;AACT,gBAAK,QAAC,CAAQ,UAAU,OAAlB;AACN,kBAAO,QAAC,CAAQ,UAAU,SAAlB;AACR,qBAAU,QAAC,CAAQ,UAAU,YAAlB;AACX,yBAAc,QAAC,CAAQ,UAAU,YAAlB;AAEf,qBAAU,QAAC,CAAQ,UAAU,OAAlB;AACX,sBAAW,QAAC,CAAQ,UAAU,QAAlB;AACZ,uBAAY,QAAC,CAAQ,UAAU,SAAlB;AAEb,UAAG,UAAU,UAAW,KAAG,EAA3B;AAEE,mBAAM,WAAC,CAAS,iCAAU,CAAC,UAAU,UAAX,CAAnB;OAFT;AAKA,UAAG,UAAU,QAAS,KAAG,EAAzB;AAEE,mBAAM,WAAC,CAAS,iCAAU,CAAC,UAAU,QAAX,CAAnB;OAFT;AAlB+C;AAlCX;;AA8ID;;AAAX;AAED;AAErB;AAEA,iBAAS,QAAkB,OAAb,wBAAa,GAAE,CAAF,kBAA3B;AAAI;AAEF,2BAAQ,CAAC,CAAD,CAAG;;AANQ;AAWvB,eAAU;AACV,UAAG,CAAI,kBAAP,EACE,aADF;AAGA,UAAI,CAAE,GAAE,CAAR,EACE,eADF;AAIF;AArB0B;AAAW;AAvPD;AAElC;AAEA,UAAG,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAlB,EACE,kBADF;AAJkC;AApJO;AAGzC;AACA,0BAAiB;AAGjB,2BAA6B,YAAb,mBAAe,cAAC,2DAAD,CAAF;AAE7B,wBAAc;AACd,8BAAoB;AAEpB,oBAAU,qCAAc,CAAC,SAAD;AAExB,kBAAQ,kCAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,eAAI,QAAC,CAAQ,WAAO,GAAE,WAAjB;AACL,eAAI,UAAC,CAAU,IAAV;AACL,eAAI,SAAC,CAAS,GAAT;AACL,eAAI,SAAC,CAAS,oCAAT;AACL,eAAI,aAAC,CAAa,CAAb;AACL,eAAI,UAAJ,GAAiB;AAEjB,sBAAY,sCAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,mBAAQ,QAAC,CAAQ,WAAO,GAAE,WAAjB;AACT,mBAAQ,UAAC,CAAU,IAAV;AACT,mBAAQ,SAAC,CAAS,EAAT;AACT,mBAAQ,SAAC,CAAS,oCAAT;AACT,mBAAQ,cAAC,CAAc,yDAAd;AACT,mBAAQ,aAAC,CAAa,CAAb;AACT,mBAAQ,UAAR,GAAqB;AAErB,oBAAU,uBAAW,QAAC;AACtB,iBAAM,IAAI,CAAC,MAAD;AACV,iBAAM,IAAI,CAAC,QAAD;AACV,iBAAM,IAAI,CAAC,WAAD;AACV,iBAAM,IAAI,CAAC,iBAAD;AAEV,iBAAM,IAAI,CAAC,YAAD;AACV,iBAAM,IAAI,CAAC,kBAAD;AACV,iBAAM,IAAI,CAAC,YAAD;AACV,iBAAM,IAAI,CAAC,cAAD;AACV,iBAAM,IAAI,CAAC,aAAD;AACV,iBAAM,IAAI,CAAC,eAAD;AACV,iBAAM,IAAI,CAAC,MAAD;AACV,iBAAM,IAAI,CAAC,WAAD;AACV,iBAAM,IAAI,CAAC,cAAD;AACV,iBAAM,IAAI,CAAC,cAAD;AAEV,uBAAY,CAAC;;;;WAAO,WAAO,GAAE,OAAF,CAAW,WAAW,WAAM,IAAQ,CAAC,CAAD,CAAnD;AACZ,uBAAY,CAAC;;;;WAAS,WAAO,GAAE,SAAF,CAAa,WAAW,WAAM,IAAQ,CAAC,CAAD,CAAvD;AACZ,uBAAY,CAAC;;;;WAAY,WAAO,GAAE,YAAF,CAAgB,WAAW,WAAM,IAAQ,CAAC,CAAD,CAA7D;AACZ,uBAAY,CAAC;;;;WAAgB,WAAO,GAAE,gBAAF,CAAoB,WAAW,WAAM,IAAQ,CAAC,CAAD,CAArE;AAEZ,oBAAU,sCAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1B,iBAAM,QAAC,CAAQ,WAAO,GAAE,QAAjB;AACP,iBAAM,UAAC,CAAU,IAAV;AACP,iBAAM,SAAC,CAAS,oCAAT;AACP,iBAAM,QAAC,CAAQ,WAAM,IAAQ,CAAC,CAAD,CAAtB;AACP,iBAAM,SAAC,CAAS,EAAT;AACP,iBAAM,UAAC,CAAU,EAAV;AACP,iBAAM,WAAC,CAAS,CAAT;AACP,iBAAM,UAAN,GAAmB;AACnB,iBAAM,YAAC,CAAY,IAAZ;AAEP,oBAAU,sCAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1B,iBAAM,QAAC,CAAQ,WAAO,GAAE,QAAjB;AACP,iBAAM,UAAC,CAAU,IAAV;AACP,iBAAM,SAAC,CAAS,oCAAT;AACP,iBAAM,QAAC,CAAQ,WAAM,IAAQ,CAAC,CAAD,CAAtB;AACP,iBAAM,SAAC,CAAS,EAAT;AACP,iBAAM,UAAC,CAAU,EAAV;AACP,iBAAM,WAAC,CAAS,QAAT;AACP,iBAAM,UAAN,GAAmB;AACnB,iBAAM,YAAC,CAAY,IAAZ;AAEP,uBAAY,CAAC;;;;WAAY,WAAO,GAAE,YAAF,CAAgB,WAAW,WAAM,IAAQ,CAAC,CAAD,CAA7D;AACZ,uBAAY,CAAC;;;;WAAc,WAAO,GAAE,cAAF,CAAkB,WAAW,WAAM,IAAQ,CAAC,CAAD,CAAjE;AACZ,uBAAY,CAAC;;;;WAAa,WAAO,GAAE,aAAF,CAAiB,WAAW,WAAM,IAAQ,CAAC,CAAD,CAA/D;AAEZ,uBAAY,CAAC;;;;WAAQ,WAAO,GAAE,QAAF,CAAW,WAAW,WAAM,IAAQ,CAAC,CAAD,CAApD;AACZ,uBAAY,CAAC;;;;WAAQ,WAAO,GAAE,QAAF,CAAW,WAAW,WAAM,IAAQ,CAAC,EAAD,CAApD;AAEZ,uBAAY,CAAC;;;;WAAM,WAAO,GAAE,MAAF,CAAU,WAAW,WAAM,IAAQ,CAAC,EAAD,CAAjD;AAEZ,uBAAY,CAAC;;;;WAAS,WAAO,GAAE,QAAF,CAAY,WAAW,WAAM,IAAQ,CAAC,EAAD,CAAtD;AAEZ,6BAAmB,cAAC,yBAAQ,6BAAY,yBAAQ,2BAAU,8BAAa,kCACrE,8BAAa,gCAAe,+BAAc,kCAAiB,gCAAe,oCAAmB,oCAAmB,8BAAa,gCAAe,+BAD3H;AAGnB,oBAAS,GAAT;AACA,qBAAU,EAAV;AAEA,uBAAY,IAAZ;AAEA,yBAA8B,QAAQ,cAAc,CAAC,OAAD;AACpD,sBAAW,cAAC,OAAW,MAAZ;AACX,sBAAW,MAAM,YAAY,CAAC,aAAa,QAAd;AAC7B,sBAAW,iBAAiB,CAAC,SAAU,iBAAX;AAC5B,6BAAa,YAAY,CAAC,gBAAD;AAEzB,0BAAgB,yCAAkB,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,uBAAY,QAAC,CAAQ,WAAO,GAAE,cAAjB;AACb,uBAAY,UAAC,CAAU,IAAV;AACb,uBAAY,SAAC,CAAS,EAAT;AACb,uBAAY,SAAC,CAAS,oCAAT;AACb,uBAAY,aAAC,CAAa,CAAb;AACb,uBAAY,YAAC,CAAY,IAAZ;AACb,uBAAY,QAAC,CAAQ,WAAM,IAAQ,CAAC,EAAD,CAAtB;AACb,uBAAY,UAAZ,GAAyB;AA5GgB;AA+GR;AAE1B,eAAP,KAAO;AACP,UAAY,cAAD,QAAX,EACqB,cAAU,qBAA7B,GAAqD,IADvD;AAGA;AANiC;AArpBjB;;;AAsEU,uClBYpB,uCkBZoB;AACV,6BvBvIR,8BuBuIQ;AACG,gCCnNV,0CDmNU;AACC,iClBSd,uCkBTc;AACK,sCA5EP,iCA4EO;AACI,0CnBtLjB,6CmBsLiB;AA3Eb;AA8EG;;;;AAED;;AAEL;;;AAEX;AACA;AACA;AACA;AACA;AANW;;;;;;;AAo9BiB;AAE9B,UAAI,WAAO,KAAG,KAAd;AAEE,sBAAU;AACV;OAHF;AAF8B;AAvCC;AAAV;AAErB,UAAY,mBAAD,QAAX,EACE,gBAAgC,WAAO,QADzC;AAGA,eAAU;AALW;AAAU;AAiCC;AAEhC,sBAAY;AACZ;AAHgC;AAzBE;AAAb;AAErB,2BAAgB;AAChB;AAEA,UAAG,KAAK,OAAS,KAAE,WAAnB;AAEE,YAAY,aAAD,QAAX,EACE,aAAO,CAAC,IAAD,CADT;OAFF;AAKA,eAAU;AACV,2BAAgB;AAXK;AAAa;AA+GC;AAEnC;AACA,UAAG,CAAI,iBAAW,IAAY,CAAC,WAAD,SAA9B;AAEE;AACA;AAEA,mBAAM,aAAa,CAAC,QAAS,UAAK,GAAE,SAAjB;AAEC,mBAAO,QAA3B,GAAuC;AAEvC,YAAG,WAAM,KAAE,qCAAX;AACE,sBAAO,aAAa,CAAC,QAAS,UAAK,GAAC,SAAhB;AAEpB,cAAA,YAAO,aAAa,CAAC,QAAQ,UAAK,GAAC,eAAf;OAZxB;AAHmC;AAvEJ;AAE/B;AACA;AAAI;AAAI;AAAK;AAAK;AAElB,YAAY,4CAAC,CAAN,oBAAM;;;;UAAD,CAAS,GAAC,IAAD;AACrB,YAAa,4CAAC,CAAP,qBAAO;;;;UAAD,CAAS,GAAC,IAAD;AACtB,aAAqB,4CAAN,cAAN,eAAM,GAAI,CAAJ;;;;UAAM,CAAS,GAAC,IAAD;AAE9B,aAA2B,4CAAJ,IAAP,UAAN,eAAM,GAAI,CAAJ,CAAO,GAAE,CAAF;;;;UAAI,CAAS,GAAC,IAAD;AACpC,aAAoB,4CAAJ,IAAP,gBAAO,GAAE,CAAF;;;;UAAI,CAAS,GAAC,IAAD;AAE7B,YAAO,GAqDgB,GArDZ,UAAD,GAAM,WAAD,GACb,qBADyB,GAEzB,wBADqB,GAErB,SADwB,GACd,GAAD,GAAK,GAAD,GACb,UADiB,GACN,GAAD,GAAK,GAAD,GAChB,GADoB,GAGpB,+BAFG,GAIH,GAF+B,GAE3B,UAAD,GAAM,WAAD,GACN,qBADkB,GAElB,kBADqB,GAErB,SADkB,GAElB,UADS,GAET,WADU,GAEV,YADW,GAEX,yBADY,GAEZ,0BADyB,GAEzB,kBAD0B,GAE5B,GADoB,GAGpB,GAFG,GAEC,UAAD,GAAM,kBAAD,GACN,qBADyB,GAEzB,cADqB,GAErB,UADc,GACH,IAAD,GAAM,GAAD,GACf,SADmB,GACR,IAAF,GAAO,GAAD,GACf,YADmB,GAEnB,cADY,GAEZ,0BADc,GAEd,0BAD0B,GAE1B,kBAD0B,GAE5B,GADoB,GAGpB,mBAFG,GAEiB,UAAD,GAAM,WAAD,GACtB,4BADkC,GAEpC,GAD8B,GAG9B,iBAFG,GAEe,UAAD,GAAM,WAAD,GACpB,8BADgC,GAElC,GADgC,GAGhC,mBAFG,GAEiB,UAAD,GAAM,kBAAD,GACtB,gCADyC,GACR,IAAD,GAAM,IAAD,GACrC,4BAD0C,GACb,IAAD,GAAM,IAAD,GACjC,wBADsC,GACb,IAAD,GAAM,IAAD,GAC/B,GADoC,GAGpC,uBAFG,GAGH,GADuB,GACnB,UAAD,GAAM,iBAAD,GACN,iBADwB,GACL,IAAF,GAAQ,GAAF,GACzB,GAD8B,GAG9B,GAFG,GAEC,UAAD,GAAM,wBAAD,GACN,qBAD+B,GAEjC,GADuB;AAGvB,2BAAgB,CAAC,GAAD;AApEe;AArEG;AAAb;AAErB,eAAU,QAAQ,cAAc,CAAC,MAAD;AAChC,oBAAyB,QAAQ,cAAc,CAAC,OAAD;AAC/C,oBAAyB,QAAQ,cAAc,CAAC,OAAD;AAC/C,qBAA0B,QAAQ,cAAc,CAAC,MAAD;AAChD,iBAAM,aAAa,CAAC,OAAO,UAAR;AACnB,iBAAM,MAAM,YAAY,CAAC,UAAU,MAAX;AAExB,YAAM,YAAY,CAAC,WAAD;AAClB,iBAAM,YAAY,CAAC,WAAD;AAClB,iBAAM,YAAY,CAAC,YAAD;AAXG;AAAa;AA2CN;AAE5B;AAF4B;AAKA;AAE5B;AACA;AAH4B;AAlCU;AAEtC;AACA,oBAAS,EAAT;AACA,qBAAU,EAAV;AAJsC;AAt6BzB;;;AAoBK,+BnB9QV,yCmB8QU,yBnBiWkD,uBAAC,0CAAQ,wCAAT,CmBjWlD;AACA;AACC,gCnB5RV,0CmB4RU;AACQ,wCnB7QV,kDmB6QU;AACP,iCnB7QV,2CmB6QU;AACE,mCnB7QV,6CmB6QU;AACI,uCnB7QV,iDmB6QU;AACV,6BA7BE,iCA6BF;AACE;AACA,+BnB1NN,6CmB0NM;AACI,mCnB1NX,4CmB0NW;AACF,iCnB3NT,4CmB2NS;AACE,mCnBxNP,gDmBwNO;AACC,oCnB9NX,6CmB8NW;AACA,oCnB/NX,6CmB+NW;AACL,+BnBhON,6CmBgOM;AACD,8BnBjOL,6CmBiOK;AACI,kCnBtNP,+CmBsNO;AACA,kCnBxNP,+CmBwNO;AACD,iCnBtNP,8CmBsNO;AACE,mCnBxNP,gDmBwNO;AAxCT;AA2CG;;;;AApalB,mBAuac;AASM;;;;AATN;AAvad,GAuac,yBAvad;ACAA,8BAIS,6HAJT;;;;AA4EiB;AA/DA;;;AAEb;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAfa;;;;;;AA6/CqB;AAEpC,wBAAc;AAET;AACH,UADG,IACH;AAAe,qBAAQ,aAAa,CAAC,aAAD;AACpC,gBAFG,IAEH;AAAU,qBAAQ,aAAa,CAAC,eAAD;AAC/B,gBAHG,IAGH,4CAAgB,aAAQ,aAAa,CAAC,cAAD,CAArC;AAPkC;AAWA;AAEpC,oBAAU;AACV,mBAAQ,eAAa,CAAC,cAAe,kCAAW,CAAC,KAAD,CAA3B;AAHe;AAMJ;AAEhC,oBAAU;AACV,mBAAQ,eAAa,CAAC,YAAa,kCAAW,CAAC,KAAD,CAAzB;AAHW;AAiGC;AAEjC;AACA;AAEA,UAAU,CAAN,KAAM,GAAE,CAAF,CAAK,IAAW,CAAN,KAAM,GAAE,CAAF,CAA1B;AAEE,qBAAS;AACT,uBAAW;AACX,aAAM,qBAAQ,CAAC,KAAD;AACd,qBAAQ,eAAa,CAAC,WAAY,EAAb;AAErB,aAAM,iBAAY,CAAC,KAAD;AAElB,aAAM,aAAQ,iBAAC;AAInB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;OAxBE;AALiC;AA3FF;AAE/B,mBAAS;AACT,mBAAQ,eAAa,CAAC,WAAY,KAAb;AAHU;AAMO;AAEtC,UAAI,iBAAa,KAAG,KAApB,EACE,aAAQ,aAAa,CAAC,mBAAD,CADvB;AAGA,0BAAgB;AALsB;AAuEP;AAE/B,UAAU,CAAN,KAAM,GAAE,CAAF,CAAK,IAAW,CAAN,KAAM,GAAE,CAAF,CAA1B;AAEE,qBAAS;AACT,uBAAW;AACX,qBAAQ,eAAa,CAAC,WAAY,qBAAQ,CAAC,KAAD,CAArB;AAEzB;OANE;AAF+B;AAvDC;AAEhC,oBAAU;AAEV,UAAW,CAAP,wCAAO,IAAG,WAAH,CAAW,IAAK,CAAI,YAA/B;AAEE,qBAAQ,aAAa,CAAC,MAAD;AACrB,uBAAW;OAHb;AAMA,UAAI,CAAW,CAAP,wCAAO,IAAG,WAAH,CAAY,IAAK,YAAhC;AAEE,qBAAQ,aAAa,CAAC,MAAD;AACrB,uBAAW;OAHb;AAMA,UAAa,CAAT,0CAAS,IAAG,WAAH,CAAW,IAAK,CAAI,cAAjC;AAEE,qBAAQ,aAAa,CAAC,QAAD;AACrB,yBAAa;OAHf;AAMA,UAAI,CAAa,CAAT,0CAAS,IAAG,WAAH,CAAY,IAAK,cAAlC;AAEE,qBAAQ,aAAa,CAAC,QAAD;AACrB,yBAAa;OAHf;AAMA,UAAgB,CAAZ,6CAAY,IAAG,WAAH,CAAW,IAAK,CAAI,iBAApC;AAEE,qBAAQ,aAAa,CAAC,WAAD;AACrB,4BAAgB;OAHlB;AAMA,UAAI,CAAgB,CAAZ,6CAAY,IAAG,WAAH,CAAY,IAAK,iBAArC;AAEE,qBAAQ,aAAa,CAAC,WAAD;AACrB,4BAAgB;OAHlB;AAMA,UAAgB,CAAZ,6CAAY,IAAG,WAAH,CAAW,IAAK,CAAI,iBAApC;AAEE,qBAAQ,aAAa,CAAC,eAAD;AACrB,4BAAgB;OAHlB;AAMA,UAAI,CAAgB,CAAZ,6CAAY,IAAG,WAAH,CAAY,IAAK,iBAArC;AAEE,qBAAQ,aAAa,CAAC,eAAD;AACrB,4BAAgB;OAHlB;AA9CgC;AARQ;AAExC,UAAI,mBAAe,KAAG,KAAtB,EACE,aAAQ,aAAa,CAAC,qBAAD,CADvB;AAGA,4BAAkB;AALsB;AAmIR;AAEhC,UAAW,4BAAH,eAAL,IAAK,CAAR;AAEQ,YAAK,SAAC,CAAS,WAAT;AACN,YAAK,QAAC,CAAQ,UAAR;AACN,YAAK,SAAC,CAAS,uBAAT;AACN,YAAK,QAAC,CAAQ,UAAR;OAET,UAAW,oBAAH,eAAL,IAAK,CAAR;AAEa,YAAK,SAAC,CAAS,WAAT;AACN,YAAK,QAAC,CAAQ,UAAR;AACN,YAAK,SAAC,CAAS,uBAAT;OAEnB,MAAkB,2CAAC,IAAD;AAfS;AA1MG;AAAZ;AAEvB,eAAW;AACN;AACL,UADK,IACL;AAAG,iBAAU;AACb,gBAFK,IAEL;AAAG,iBAAU;AACb,gBAHK,IAGL;AAAG,iBAAU;AACb,gBAJK,IAIL;AAAG,iBAAU;AACb,gBALK,IAKL;AAAG,iBAAU;AACb,gBANK,IAML;AAAG,iBAAU;AACb,gBAPK,IAOL,QAAG,SAAU,KAAb;AAVuB;AAAY;AAlBH;AAEtB;AACV,sBAAY;AACZ,wBAAc;AACd,qBAAW;AACX,uBAAa;AACb,0BAAgB;AAChB,0BAAgB;AAChB,0BAAgB;AAChB,4BAAkB;AAVwC;AAA1B;AAyMF;AAE9B,UAAa,4BAAH,eAAP,MAAO,CAAV;AAEE,sBAAe,MAAO,OAAtB;AACA,qBAAc,MAAO,MAArB;AACA,sBAAsB,WAAP,MAAO,QAAtB;AACA,qBAAc,MAAO,MAArB;OAEG,UAAa,oBAAH,eAAP,MAAO,CAAV;AAEH,sBAAyB,MAAO,OAAhC;AACA,qBAAwB,MAAO,MAA/B;AACA,sBAAgC,WAAP,MAAO,QAAhC;AACA,qBAAwB,MAAO,MAA/B;OAEG,MAAgB,yCAAC,MAAD;AAhBS;AA5LH;AAE3B,mBAAQ,aAAa,CAAC,KAAD;AAFM;AAmBC;AAE5B,mBAAQ,aAAa,CAAC,MAAD;AAFO;AAKC;AAE7B,mBAAQ,aAAa,CAAC,OAAD;AAFQ;AAKA;AAE7B,mBAAQ;AAFqB;AAKD;AAE5B,mBAAQ;AAFoB;AAx/Cb;AA6BK,+BAAO,UAkCZ,6BAlCY,CAAP;AA7BL;AA+CD;AACZ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAXY;aACZ,8BACA,IAAA,8BACA,IAAA,gCACA,IAAA,4BACA,IAAA,0BACA,IAAA,8BACA,IAAA,oCACA,IAAA,oCACA,IAAA,0BACA,IAAA,4BACA,kCATA;AAFY;;AACZ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAXY;;;AACZ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAXY;AAcQ,6EAAmB,UjCqClC,2BiCrCkC,EAAqB,cAdhD,4BAcgD,CAAxC;AAEP;;;AAEb;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAba;;;;;;;;;;AAw3Be;AAAP;AAEvB,UAAY,uBAAD,QAAX,EACE,WAAM,WAAC,CAAQ,uBAAa,UAArB,CADT;AAEA,eAAU,WAAM,WAAC;AAJM;AAAO;AAiBK;AAAZ;AAEvB,eAAU;AACV,UAAY,uBAAD,QAAX,EACE,SAAU,uBAAa,UADzB;AAHuB;AAAY;AAvOJ;AAE/B,iBAAM,WAAC,CAAQ,KAAR;AACP;AAH+B;AA0aS;AAExC,yBAAa,OAAO,CAAC,KAAD;AAFoB;AAxcL;AAEnC,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAFmC;AAgiBC;AAEpC,UAAI,iBAAW,KAAG,KAAlB;AAEE,4BAAc;AACd;OAHF;AAFoC;AAlhBD;AAEnC,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb,YAAY,uBAAD,QAAX;AAEE,cAAG,cAAH;AACE,mCAAa,gBAAb,GAAiC;AAEjC,gBAAA,uBAAa,gBAAb,GAAiC;SALrC;OAHF;AAFmC;AAkPJ;AAAR;AAEvB,eAAU;AAFa;AAAQ;AAqLG;AAAX;AAEvB;AACA;AAEA,WAAqB;AAEvB;AACA;AACA;AACA;AACA;AACA;AAGE,eAAU;AAfa;AAAW;AA+EC;AAEnC;AAEA,WAAqB;AAGvB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAtBqC;AA1hBC;AAAb;AAEvB,eAAU,QAAQ,cAAc,CAAC,KAAD;AACjB,YAAO,MAAM,YAAY,CAAC,cAAc,QAAf;AAHjB;AAAa;AA2DM;AAAnB;AAIvB,eAAU;AACV,UAAY,uBAAD,QAAX;AAKE,iBAAU;OALZ;AALuB;AAAmB;AAmKL;AAErC;AACA;AAEA;AAEA,UAAY,0BAAD,QAAX;AAUA,UAAY,uBAAD,QAAX;AAEE,YAAK;AACL,iBAAS,QAAkB,OAAb,WAAM,SAAC,EAAM,GAAE,CAAF,kBAA3B;AAAI;AAEF,cAAG,CAAE,GAAE,CAAP,EACE,IAAK,CAAE,GAAE,MADX;AAEA,cAAK,CAAE,GAAE,WAAM,KAAC,CAAD,CAAR;;AAGT,+BAAa,UAAb,GAA2B;AAE3B,YAAG,cAAH;AACE,iCAAa,gBAAb,GAAiC;AAEjC,cAAA,uBAAa,gBAAb,GAAiC;AAEnC,+BAAa,MAAM,YAAY,CAAC,WAAY,MAAb;AAC/B,+BAAa,MAAM,YAAY,CAAC,UAAW,KAAZ;AAE/B,YAAG,iBAAY,KAAE,4CAAjB;AACE,iCAAa,MAAM,YAAY,CAAC,SAAU,kBAAX;AAE/B,cAAA,uBAAa,MAAM,YAAY,CAAC,SAAU,EAAX;OAvBnC;AAjBqC;AAiWP;AAE9B;AACA;AAEA;AAEA,UAAY,0BAAD,QAAX;AAEE,cAAO;AACP,aAAM;AACN,UAAE,QAAF,GAAe;AACf,UAAE,WAAF,GAAkB;AAClB,UAAE,YAAF,GAAmB;AACnB,UAAE,UAAF,GAAiB;AACjB,UAAE,YAAF,GAAmB;AACnB,UAAE,UAAF,GAAiB;AACjB,UAAE,QAAF,GAAe;AACf,UAAE,WAAF,GAAkB;AAClB,UAAE,QAAF,GAAe;AACf,UAAE,OAAF,GAAc;AACd,WAAG,kBAAH,GAA0B;OAd5B;AAP8B;AApkBK;AAAZ;AAEvB,eAAU;AAFa;AAAY;AAmLE;AAErC;AAFqC;AAKA;AAErC,UAAG,gBAAH,EACE,MADF;AAGF;AACA;AACA;AACA;AACA;AATuC;AAmiBS;AAAvB;AAEvB;AAEA,UAAY,aAAD,QAAX;AAIS,eAAN,cAAS,sCAAH,CAAoB,aAAC,CAAa,GAAb;AACrB,eAAN,cAAS,sCAAH,CAAoB,mBAAC,CAAmB,GAAnB;OAL9B;AAQA,mBAAQ,2BAAsB,CAAS,QAAQ,aAAa,EAA9B,CAA9B;AAEA,yBAAa,SAAC,CAAS,EAAT;AAEd,UAAG,IAAI,OAAP,EACE,mBAAa,SAAC,CAA6B,aAApB,mBAAa,QAAS,cAAC,wCAAD,CAAF,CAA7B,CADhB;AAEA,UAAG,IAAI,SAAP,EACE,mBAAa,SAAC,CAA6B,aAApB,mBAAa,QAAS,cAAC,0CAAD,CAAF,CAA7B,CADhB;AAEA,UAAG,IAAI,YAAP,EACE,mBAAa,SAAC,CAA6B,aAApB,mBAAa,QAAS,cAAC,6CAAD,CAAF,CAA7B,CADhB;AAEA,UAAG,IAAI,YAAP,EACE,mBAAa,SAAC,CAA6B,aAApB,mBAAa,QAAS,cAAC,6CAAD,CAAF,CAA7B,CADhB;AAGA,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,IAAD,CADnB;AAGA,eAAU;AA5Ba;AAAuB;AA+BR;AAAf;AAEvB,eAAU;AAEV,UAAkB,CAAd,KAAK,QAAS,KAAE,IAAF,CAAoC,IAAb,CAAV,KAAK,IAAK,KAAE,SAAF,CAAf,IAAgC,cAA1D;AAEE,+BAAa,gBAAb,GAAiC;OAFnC;AAMA,UAA0B,CAAtB,eAAU,CAAC,KAAK,KpBr2BwC,IoBq2B9C,CAAY,KAAE,EAAF,CAAM,IAAI,sBAApC;AACE,uBAAU,CAAC,MAAD;AAGZ,gBAA0B,CAAtB,eAAU,CAAC,KAAK,KpBz2BwC,IoBy2B9C,CAAY,KAAE,CAAF,CAAK,IAAI,cAAnC;AACE,uBAAU,CAAC,yCAAD;;AAGV,iBAAU;;AAGZ;AArBuB;AAAe;AAyBF;AAAb;AAEvB,eAAU;AAEV,UAAkB,CAAd,KAAK,QAAS,KAAE,KAAF,CAAqC,IAAb,CAAV,KAAK,IAAK,KAAE,SAAF,CAAf,IAAgC,CAAI,cAA/D;AAEE,+BAAa,gBAAb,GAAiC;OAFnC;AAKA;AATuB;AAAa;AA/uBJ;AAEhC,iBAAM,OAAO,CAAC,MAAD;AAFmB;AAnBK;AAErC;AAFqC;AAoJL;AAEhC,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAFgC;AA5KE;AAElC;AACA,yBAAS,iBAAiB,CAAC,QAAS,4CAAV;AAC1B,yBAAS,iBAAiB,CAAC,QAAS,4CAAV;AAJQ;AA6TW;AAAtB;AAEvB;AACA;AAAG;AAAG;AAAG;AACT;AACA;AAIF;AACA;AACA;AACA;AAGI;AACE,gBAAS;AAET,YAAY,EAAD,QAAX;AAEE,cAAG,EAAE,QAAS,KAAE,GAAhB;AAEE,oBAAS;AACT,gBAAI,OAAJ,GAAe;WAHjB;AAKA,cAAG,EAAE,QAAS,KAAE,GAAhB;AAEE,oBAAS;AACT,gBAAI,SAAJ,GAAiB;WAHnB;AAKA,cAAG,EAAE,QAAS,KAAE,GAAhB;AAEE,oBAAS;AACT,gBAAI,YAAJ,GAAoB;WAHtB;AAKA,cAAG,EAAE,QAAS,KAAE,QAAhB;AAEE,oBAAS;AACT,gBAAI,YAAJ,GAAoB;WAHtB;AAMA,cAAG,EAAE,QAAS,KAAE,MAAhB;AAEE,kBAAsB,EAAG,MAAM,iBAAiB,CAAC,kBAAD;AAG1D;AACA;AAEU,gBAAI,QAAJ,GAAgB;AAEhB,oBAAS;WAVX;AAaA,cAAG,EAAE,QAAS,KAAE,KAAhB;AAEE,kBAAsB,EAAG,MAAM,iBAAiB,CAAC,YAAD;AAG1D;AACA;AAGU,gBAAG,GAAI,KAAE,QAAT,EACE,IAAI,SAAJ,GAAiB,IADnB;AAGA,gBAAG,GAAI,KAAE,OAAT,EACE,IAAI,QAAJ,GAAgB,IADlB;AAGA,gBAAG,GAAI,KAAE,MAAT,EACE,IAAI,OAAJ,GAAe,IADjB;AAGA,oBAAS;WAlBX;AAqBA,cAAG,EAAE,QAAS,KAAE,MAAhB;AAEE,iBAAM,EAAE,cAAC,MAAD;AAGlB;AACA;AAGU,iBAAM,EAAE,cAAC,MAAD;AAGlB;AACA;AAGU,iBAAM,EAAE,cAAC,OAAD;AAGlB;AACA;AAGU,kBAAsB,EAAG,MAAM,iBAAiB,CAAC,kBAAD;AAG1D;AACA;AAGU,oBAAS;AAET,gBAAI,SAAJ,GAAiB;AACjB,gBAAI,UAAJ,GAAkB;AAElB,gBAAI,EAAG,KAAG,EAAV;AAEE,kBAAG,EAAG,KAAE,GAAR,EACE,KAAM,IADR;AAGA,kBAAG,EAAG,KAAE,GAAR,EACE,KAAM,IADR;AAGA,kBAAG,EAAG,KAAE,GAAR,EACE,KAAM,IADR;AAGA,kBAAG,EAAG,KAAE,GAAR,EACE,KAAM,IADR;AAGA,kBAAG,EAAG,KAAE,GAAR,EACE,KAAM,IADR;AAGA,kBAAG,EAAG,KAAE,GAAR,EACE,KAAM,GADR;AAGA,kBAAG,EAAG,KAAE,GAAR,EACE,KAAM,GADR;aApBF;AAwBA,gBAAI,SAAJ,GAAiB;AACjB,gBAAI,QAAJ,GAAgB;WA5DlB;AA+DA,eAAiB,EAAE;AAEnB,cAAI,EAAG,KAAE,uBAAT,EACE,QAAS,KADX;SA1HF;OAHF,QAgIU,KAhIV;AAkIA,qBAAU,IAAV;AAEA,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,gCAAP,CADrB;AAnJqB;AAAsB;AA7UL;AAExC;AACA,oBAAU,uBAAW,QAAC;AACV,iBAAO,UAAnB,GAAgC;AAChC,4BAAkB,oBAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,0BAAc;AACd,yBAAe;AACf,+BAAqB;AACrB,UAAI,2CAAY,IAAG,oBAAnB;AAEE,sBAAS,GAAT;AACA,uBAAU,GAAV;OAHF;AATwC;AAkCR;AAEzB,eAAP,KAAO;AACP;AAHgC;AA2QC;AAAV;AAEvB,eAAU,IAAI;AAFS;AAAU;AAiBE;AAAZ;AAEvB;AAEA,YAAO;AAET;AACA;AACA;AACA;AAGE,eAAU;AAZa;AAAY;AAlMG;AAEtC;AACA;AAAQ;AACR;AACA;AACA;AACA;AACA;AACA;AACA;AAAW;AACX;AAEA,UAAK;AACL,eAAU;AACV,aAAQ;AAER,WAAM,QAAQ,eAAe,CAAC,CAAD;AAC7B,UAAY,EAAD,QAAX;AAEE,gBAAS,QAAQ;AACjB,aAAK,mBAAmB,CAAC,EAAD;AACxB,oBAAa,iBAAK,QAAC;AAEnB,0BAAY,CAAC,GAAI,SAAL;AACZ,qBAAc;AACd,oBAAa;AACb,uBAAgB;AAEhB,iBAAS,QAAqB,OAAhB,SAAS,SAAC,EAAM,GAAE,CAAF,kBAA9B;AAAI;AAEF,qBAAoB,SAAS,KAAC,CAAD;AAC7B,yBAAgB,SAAU,GAAiB,QAAS,UAAlB,OAAR;AAE1B,cAAI,CAAI,UAAsC,IAAd,CAAP,MAAO,IAAG,SAAH,CAAZ,IAAuD,CAAhB,CAAP,MAAO,GAAE,YAAF,CAAgB,IAA4B,CAAhB,CAAP,MAAO,KAAE,YAAF,CAAgB,IAAO,CAAF,CAAE,IAAG,SAAS,SAAC,EAAb,CAAP,CAA5B,CAA3E;AAEE,iBAAK,SAAS,CAAC,SAAU,MAAO,GAAE,SAApB;AACd,yBAAc;WAHhB;AAMA,cAAI,UAAY,IAAU,CAAL,IAAK,IAAG,YAAH,CAA1B;AAEE,iBAAK,OAAO,CAAC,SAAU,IAAK,GAAE,SAAlB;AACb;WAHD;AAKA,sBAAa;;AAGf,cAAO,QAAQ,aAAa;AAC5B,WAAG,gBAAgB;AACnB,WAAG,SAAS,CAAC,KAAD;AAEZ,iBAAU,eAAV,SAAU;OAlCZ;AAlBsC;AAwDF;AAEpC,UAAY,0BAAD,QAAX;AAEE,kCAAmB,YAAY,CAAC,aAAc,KAAf;OAFjC;AAFoC;AAcA;AAEpC,UAAY,0BAAD,QAAX;AAEE,kCAAmB,YAAY,CAAC,aAAc,MAAO,IAAtB;OAFjC;AAFoC;AArJF;AAElC,yBAAc,CAAC,cAAe,WAAhB;AAFoB;AAkdS;;AAE3C;AACA;AACA;AAAM;AACN;AACA;AAEoB;AAAX;AAEP,YAAY,KAAK,WAAN,QAAX;AACI,mBAAU,KAAK;AAEnB,qBAAe,KAAD,QAAd;AAEI,cAAY,KAAK,YAAN,QAAX;AAEE,qBAAU,KAAK;AACf;WAHF;AAKA,kBAAS,KAAK;;AAZX;AAAW;AAiBpB,YAAO,QAAQ;AAEf,UAAG,CAAY,CAAC,GAAD,SAAf,EACE,MADF;AAGA,WAAM,8BAAU,CAAC,KAAK,mBAAC,UAAD,CAAN;AAEhB,eAAS,QAAoB,OAAf,GAAG,WAAY,GAAE,CAAF,kBAA7B;AAAI;AAEF,gBAAS,GAAG,WAAW,CAAC,CAAD;AAEvB,eAAQ,KAAK;AAEb,YAAG,IAAI,SAAU,KAAE,OAAnB;AAEE,kBAAS,IAAI;AACb,cAAG,KAAK,SAAU,KAAE,KAApB,EACiB,KAAM,MAAM,YAAY,CAAC,cAAc,EAAf,CADzC;SAHF;AAOA,eAAM,IAAK,KAAG,KAAK,aAAnB;AAEE,iBAAQ,WAAW,CAAC,IAAD;AACnB,cAAG,IAAI,SAAU,KAAE,KAAnB,EACiB,IAAK,MAAM,YAAY,CAAC,cAAc,EAAf,CADxC;;;AAhDuC;AApRN;AAErC;AAEA,UAAY,uBAAD,QAAX;AAEE,cAAO,MAAM,OAAO,CAAC,mBAAoB,SAArB;AACpB,YAAG,mBAAQ,CAAC,GAAD,CAAX;AAEE,cAAQ,CAAJ,GAAI,KAAG,EAAH,CAA8B,IAAd,CAAJ,GAAI,KAAG,SAAH,CAAT,IAAgC,CAAJ,GAAI,KAAG,UAAH,CAA/C,EACE,mBAAY,CAAC,cAAe,GAAhB,CADd;SAFF;OAHF;AAJqC;AAfD;AAEpC;AAEA,UAAY,uBAAD,QAAX;AAEE,cAAO,MAAM,OAAO,CAAC,aAAc,SAAf;AACpB,YAAG,mBAAQ,CAAC,GAAD,CAAX;AAEE,cAAQ,CAAJ,GAAI,KAAG,EAAH,CAA8B,IAAd,CAAJ,GAAI,KAAG,SAAH,CAAT,IAAgC,CAAJ,GAAI,KAAG,UAAH,CAA/C,EACE,mBAAY,CAAC,aAAc,GAAf,CADd;SAFF;OAHF;AAJoC;AAwZF;AAElC;AACA;AACA;AACA;AACA;AAAM;AAEN,YAAO;AAEP,UAAG,cAAH;AAEE,cAAO,QAAQ;AACf,gBAAS,GAAG,WAAW,CAAC,CAAD;AACvB,aAAK;;AAIL,gBAAS,QAAQ,YAAY;AAC7B,eAAQ,uBAAa;AACrB,mBAAY;AACZ,eAAe,IAAD,QAAd;AAEE,iBAAQ,IAAI;AACZ,cAAY,IAAD,QAAX,EACE,WAAY,IADd;;AAIF,YAAY,QAAD,QAAX;AAEE,eAAK,cAAc,CAAC,QAAD;AACnB,eAAK,YAAY,CAAC,QAAD;;AAIjB,eAAK,SAAS,CAAC,wBAAe,CAAhB;AACd,eAAK,OAAO,CAAC,wBAAc,CAAf;;;AAIhB,WAAqB,QAAQ,cAAc,CAAC,KAAD;AAC3C,QAAE,UAAF,GAAgB;AAChB,aAAQ,QAAQ;AAChB,aAAQ,EAAE;AAEV,aAAO,IAAK,KAAE,EAAE,WAAhB;AAEE,mBAAY,IAAI,YAAY,CAAC,IAAD;AAC5B,aAAK,WAAW,CAAC,IAAD;;AAGlB,UAAY,QAAD,QAAX;AAEE,gBAAS,KAAK,WAAW;AACzB,aAAK,cAAc,CAAC,QAAD;AACnB,aAAK;AACL,YAAa,GAAD,QAAZ;AAEE,aAAG;AACH,aAAG,SAAS,CAAC,KAAD;SAHd;OALF;AAnDkC;AAgEK;AAEvC,qBAAU,CAAC,MAAD;AAF6B;AAKL;AAElC;AACA;AACA;AACA;AACA;AAAM;AAEN,YAAO;AACP,UAAG,cAAH;AAEE,cAAO,QAAQ;AACf,gBAAS,GAAG,WAAW,CAAC,CAAD;AACvB,aAAK;;AAIL,gBAAS,QAAQ,YAAY;AAC7B,aAAK,SAAS,CAAC,wBAAe,CAAhB;AACd,aAAK,OAAO,CAAC,wBAAe,CAAhB;;AAGd,WAAqB,QAAQ,cAAc,CAAC,KAAD;AAC3C,QAAE,UAAF,GAAgB;AAChB,aAAQ,QAAQ;AAChB,aAAQ,EAAE;AAGV,aAAO,IAAK,KAAE,EAAE,WAAhB;AAEE,mBAAY,IAAI,YAAY,CAAC,IAAD;AAC5B,aAAK,WAAW,CAAC,IAAD;;AAGlB,UAAY,QAAD,QAAX;AAEE,gBAAS,KAAK,WAAW;AACzB,aAAK,cAAc,CAAC,QAAD;AACnB,aAAK;AACL,YAAa,GAAD,QAAZ;AAEE,aAAG;AACH,aAAG,SAAS,CAAC,KAAD;SAHd;OALF;AAlCkC;AAoDK;AAEvC,qBAAU,CAAC,MAAD;AAF6B;AALJ;AAEnC,yBAAY,CAAC,cAAe,OAAhB;AAFuB;AA1zCpB;;;AAgFN;;;;AAKO,6BpB1CV,uCoB0CU;AACW;AACT,+BpBpCV,yCoBoCU,yBpB2kBkD,uBAAC,0CAAQ,wCAAT,CoB3kBlD;AACC;AACQ,wCpBlCV,kDoBkCU;AACL,mCpBjCV,6CoBiCU;AACF,iCpBnCV,2CoBmCU;AACM,uCpBlCV,iDoBkCU;AACX,4BnBiTV,sCmBjTU;AACC,6BnB+MV,uCmB/MU;AACG,gCpBxDV,0CoBwDU;AACG,mCpBnDV,6CoBmDU;AACL;AACO;AACF,mCpBrDZ,2CoBqDY;AACK;AACX,6BxBsDR,8BwBtDQ;AACE,+BpB8BV,yCoB9BU;AACC;AACC,iCRuCV,wCQvCU;AACD;AACH;AACO;AACF,kCpB9DX,2CoB8DW;AACF,gCpBGP,6CoBHO;AACD,+BpBEN,6CoBFM;AACG,kCpBCT,6CoBDS;AACO,yCpBAhB,6CoBAgB;AACR,iCpBKX,0CoBLW;AACC,kCpBKP,+CoBLO;AACH,+BpBGT,0CoBHS;AACI,mCpBHX,4CoBGW;AACF,iCpBJT,4CoBIS;AACE,mCpBDP,gDoBCO;AACC,oCpBPX,6CoBOW;AACA,oCpBRX,6CoBQW;AACL,+BpBTN,6CoBSM;AACD,8BpBVL,6CoBUK;AACI,kCpBCP,+CoBDO;AACA,kCpBDP,+CoBCO;AACD,iCpBCP,8CoBDO;AACE,mCpBDP,gDoBCO;AA9Cb;AAiDG;;;;AAEL;;;AAEL;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAVK;;;;;;AAkmDyB;AAEhC,UAAG,mBAAe,KAAG,KAArB;AAEE,8BAAkB;AAClB;OAHF;AAFgC;AASI;AAEpC,UAAI,mBAAe,KAAG,KAAtB;AAEE,kCAAsB;AACtB;OAHF;AAFoC;AA3FR;AAAb;AAEf,eAAU,QAAQ,cAAc,CAAC,MAAD;AAFjB;AAAa;AA6QA;AAAb;AAEf;AAAK;AACL;AACA;AAEA,WAAM,KAAK;AAEX,YAAO;AACP,UAAG,EAAE,aAAa,CAAC,IAAD,CAAlB,EACE,MAAO,EAAE,aAAa,CAAC,IAAD,CADxB;AAGA,UAAG,GAAI,KAAG,EAAV;AAEE,cAAO;AACP,YAAG,GAAI,KAAE,EAAT,EACE,MAAO,UADT;AAGA,cAAO,0BAAa,CAAC,IAAK,GAAI,GAAE,GAAF,CAAO,GAAI,EAArB;AACpB,YAAG,wBAAW,CAAC,IAAI;;;;YAAL,CAAd;AAEE,4BAAc;AACd;SAHF;AAKA;OAZF;AAeA,eAAU;AA3BK;AAAa;AApOC;AAAd;AAEf,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAEA,eAAU;AAJK;AAAc;AAkQM;AAApB;AAEf;AAEA,eAAU;AAGV,WAAqB,KAAK;AAC1B,UAAY,EAAD,QAAX;AAEE,YAAG,EAAE,SAAU,KAAE,GAAjB,EACE,EAAE,MAAM,YAAY,CAAC,mBAAoB,EAArB,CADtB;OAFF;AARe;AAAoB;AAeC;AAArB;AAEf;AAEA,eAAU;AAGV,WAAqB,KAAK;AAC1B,UAAY,EAAD,QAAX;AAEE,YAAG,EAAE,SAAU,KAAE,GAAjB,EACE,EAAE,MAAM,YAAY,CAAC,mBAAoB,WAArB,CADtB;OAFF;AARe;AAAqB;AAnVV;AAE1B;AACA,UAAY,uBAAD,QAAX;AAEE,+BAAa,SAAb,GAA2B;OAF7B;AAH0B;AA6DF;AAExB,iBAAM,OAAO,CAAC,MAAD;AAFW;AAqCI;AAE5B,UAAG,eAAW,KAAG,MAAjB;AAEE,0BAAc;AACd;OAHF;AAF4B;AA2BA;AAE5B;AACA;AAAG;AACH;AAAI;AAAI;AAER,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,aAAe,mBAAS,WAAV,QAAd,EACE,mBAAS,YAAY,CAAC,mBAAS,WAAV;AAEvB,yBAAS,cAAC,QAAY,EAAb;AAET,WAAM,QAAQ,cAAc,CAAC,IAAD;AAC5B,QAAE,cAAC,QAAY,sBAAb;AAEF,UAAG,sBAAiB,KAAG,EAAvB;AACE,UAAE,cAAC,OAAW,SAAZ;;AAGc,UAAI,MAAM,YAAY,CAAC,kBAAmB,MAApB;AACtB,UAAI,MAAM,YAAY,CAAC,SAAU,GAAX;AACtB,UAAI,MAAM,YAAY,CAAC,UAAW,GAAZ;AACtB,UAAI,MAAM,YAAY,CAAC,UAAW,cAAZ;;AAGxC,yBAAS,YAAY,CAAC,EAAD;AAErB,eAAS,QAAkB,OAAb,WAAM,SAAC,EAAM,GAAE,CAAF,kBAA3B;AAAI;AAEF,YAAK,WAAM,KAAC,CAAD;AAEX,aAAM,QAAQ,cAAc,CAAC,IAAD;AAE5B,YAAG,sBAAiB,KAAG,EAAvB;AAEE,cAAG,6BAAwB,KAAE,EAA7B;AACE,cAAE,cAAC,QAAY,UAAb;AAEA,gBAAF,EAAE,cAAC,QAAY,6BAAb;;AAIY,YAAI,MAAM,YAAY,CAAC,QAAS,MAAV;AACtB,YAAI,MAAM,YAAY,CAAC,gBAAiB,qBAAlB;;AAGxC,iDAAkB,CAAgB,GAAK,WAAM,CAA6B,CAAN,CAAjB,sBAAiB,KAAE,EAAF,CAAM,IAAiB,CAAZ,iBAAY,KAAE,8CAAF,CAAjB,CAAxD;AAElB,YAAG,cAAS,KAAE,4CAAd,EACE,EAAE,cAAC,YAAgB,MAAjB,CADJ;AAGA,UAAE,YAAY,CAAC,EAAD;AAEd,YAAG,CAAI,aAAP;AACE,cAAK,QAAQ,cAAc,CAAC,MAAD;;AAG3B,cAAK,QAAQ,cAAc,CAAC,GAAD;AAC3B,cAAG,aAAH,EACE,CAAC,cAAC,OAAW,GAAI,GAAE,CAAlB,CADH;;AAIF,SAAC,UAAD,GAAe;AAEf,cAAO;AACP,YAAG,GAAI,KAAE,EAAT,EACE,MAAO,UADT;AAGA,SAAC,cAAC,KAAS,GAAU,GAAJ,GAAF,GAAQ,qBAAQ,CAAC,CAAD,CAA9B;AAED,YAAG,sBAAiB,KAAG,EAAvB;AAEE,cAAG,eAAU,KAAE,CAAf;AAEE,gBAAG,+BAA0B,KAAE,EAA/B;AACE,eAAC,cAAC,QAAY,iBAAb;AAEA,kBAAD,CAAC,cAAC,QAAY,+BAAb;;AAIH,gBAAG,yBAAoB,KAAE,EAAzB;AACE,eAAC,cAAC,QAAY,UAAb;AAEA,kBAAD,CAAC,cAAC,QAAY,yBAAb;;AAEL,WAAC,cAAC,OAAW,KAAZ;AAED,WAAC,cAAC,cAAkB,KAAnB;AACD,WAAC,cAAC,gBAAoB,CAArB;AAED,cAAG,eAAU,KAAE,CAAf;AACE,aAAC,cAAC,gBAAoB,MAArB;AAEA,gBAAD,CAAC,cAAC,gBAAoB,OAArB;AAEH,cAAG,cAAS,KAAE,4CAAd,EACE,CAAC,cAAC,YAAgB,OAAjB,CADH;;AAKgB,WAAG,MAAM,YAAY,CAAC,UAAW,OAAZ;AACrB,WAAG,MAAM,YAAY,CAAC,aAAc,QAAf;AACrB,WAAG,MAAM,YAAY,CAAC,UAAW,UAAZ;AACrB,WAAG,MAAM,YAAY,CAAC,kBAAmB,MAApB;AACrB,WAAG,MAAM,YAAY,CAAC,YAAa,MAAd;AAErB,WAAG,MAAM,YAAY,CAAC,QAAS,SAAV;AACrB,WAAG,MAAM,YAAY,CAAC,cAAe,SAAhB;AACrB,WAAG,MAAM,YAAY,CAAC,aAAc,SAAf;AACrB,WAAG,MAAM,YAAY,CAAC,YAAa,SAAd;AAErC,cAAG,CAAI,aAAP,EACkB,CAAG,MAAM,YAAY,CAAC,iBAAkB,MAAnB,CADvC;AAGA,cAAG,cAAS,KAAE,4CAAd,EACE,CAAC,cAAC,YAAgB,OAAjB,CADH;AAGA,cAAG,eAAU,KAAE,CAAf;AAEE,gBAAG,mBAAc,KAAG,EAApB,EACkB,CAAG,MAAM,YAAY,CAAC,mBAAoB,kCAAW,CAAC,mBAAD,CAAhC,CADvC;AAEA,gBAAG,uBAAkB,KAAG,EAAxB,EACkB,CAAG,MAAM,YAAY,CAAC,QAAS,kCAAW,CAAC,uBAAD,CAArB,CADvC;WAJF;;AASF,UAAE,YAAY,CAAC,CAAD;;AAGhB,UAAG,CAAI,kBAAS,IAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAAjC,EACE,oBAAe,CAAC,aAAc,oBAAW,KAAO,WAAM,SAAC,EAAM,KAAE,CAAF,CpB1mCmE,EoB0mCjH,CADjB;AAGA;AAvI4B;AApDN;AAEtB;AACA;AAHsB;AA0RM;AAE5B;AAF4B;AA5FF;;AACK;AAE7B;AAEA,iBAAS,QAA8B,OAAzB,QAAQ,SAAS,OAAQ,GAAE,CAAF,kBAAvC;AAAI;AAEF,cAAc,QAAQ,SAAS,MAAC,CAAD,CAAI,QAAS,KAAE,IAA9C;AAEa,oBAAQ,SAAS,MAAC,CAAD,CAAI,aAAM,CAAC,YAAgB,MAAjB;AACtC,iCAAqB,CAAY,QAAQ,SAAS,MAAC,CAAD,CAA7B;WAElB,UAAc,QAAQ,SAAS,MAAC,CAAD,CAAI,QAAS,KAAE,GAA9C;AACQ,oBAAQ,SAAS,MAAC,CAAD,CAAI,aAAM,CAAC,YAAgB,OAAjB;AAEtC,gBAAA,qBAAqB,CAAY,QAAQ,SAAS,MAAC,CAAD,CAA7B;;AAdI;AAkB/B,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,2BAAqB,CAAC,mBAAD;AAtBK;AAnOC;;AACO;AAEhC;AAEA,iBAAS,QAA8B,OAAzB,QAAQ,SAAS,OAAQ,GAAE,CAAF,kBAAvC;AAAI;AAEF,cAAc,QAAQ,SAAS,MAAC,CAAD,CAAI,QAAS,KAAE,IAA9C;AAEa,oBAAQ,SAAS,MAAC,CAAD,CAAI,gBAAgB,CAAC,WAAD;AAChD,oCAAwB,CAAY,QAAQ,SAAS,MAAC,CAAD,CAA7B;WAErB,UAAc,QAAQ,SAAS,MAAC,CAAD,CAAI,QAAS,KAAE,GAA9C;AACQ,oBAAQ,SAAS,MAAC,CAAD,CAAI,gBAAgB,CAAC,WAAD;AAEhD,gBAAA,wBAAwB,CAAY,QAAQ,SAAS,MAAC,CAAD,CAA7B;;AAdI;AAkBlC,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,8BAAwB,CAAC,mBAAD;AAtBG;AAtBK;AAEhC;AACA,oBAAU,uBAAW,QAAC;AACtB,iBAAM,UAAN,GAAmB;AACnB,wBAAc;AACd,4BAAkB;AAClB,gCAAsB;AACtB,sBAAY;AARoB;AAgBR;AAEjB,eAAP,KAAO;AACP;AAHwB;AAkQC;AAEzB;AACA;AAHyB;AAvRJ;AAErB,iBAAK;AAFgB;AAsEQ;AAE7B,UAAG,SAAH;AAEE,YAAG,eAAU,GAAc,CAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,CAA3B;AACE,4BAAa,eAAU,GAAE,CAAzB;AAEA,gCAAa,CAAb;;AAIF,YAAG,eAAU,GAAE,CAAf;AACE,4BAAa,eAAU,GAAE,CAAzB;AAEA,gCAAa,WAAK,SAAC,EAAM,GAAE,CAA3B;;AAdyB;AAtkDtB;;;AAkCS,6BpB1HV,uCoB0HU;AACW;AACT,+BpBpHV,yCoBoHU,yBpB2fkD,uBAAC,0CAAQ,wCAAT,CoB3flD;AACF,6BnBqIV,uCmBrIU;AACG,gCpBlIV,0CoBkIU;AACQ,wCpBnHV,kDoBmHU;AACG,2CpBpHb,kDoBoHa;AACM,iDpBrHnB,kDoBqHmB;AACF,+CpBtHjB,kDoBsHiB;AACZ,mCpBrHV,6CoBqHU;AACF,iCpBvHV,2CoBuHU;AACM,uCpBtHV,iDoBsHU;AACR;AACH,4BnB4NV,sCmB5NU;AACE;AACO;AACF,mCpBvIZ,2CoBuIY;AACP;AACK;AACJ,6BxB0GL,iCwB1GK;AACD;AACG,+BpBtDV,yCoBsDU;AACG;AACD,iCR7CV,wCQ6CU;AACD;AACK,qCnB+GlB,uCmB/GkB;AACI,yCnB8GtB,uCmB9GsB;AACT;AACD;AACJ;AACI;AACA;AACF;AACO;AACF,kCpBzJX,2CoByJW;AACF,gCpBxFP,6CoBwFO;AACD,+BpBzFN,6CoByFM;AACG,kCpB1FT,6CoB0FS;AACD,iCpBrFX,0CoBqFW;AACC,kCpBrFP,+CoBqFO;AACH,+BpBvFT,0CoBuFS;AACI,mCpB7FX,4CoB6FW;AACF,iCpB9FT,4CoB8FS;AACE,mCpB3FP,gDoB2FO;AACC,oCpBjGX,6CoBiGW;AACA,oCpBlGX,6CoBkGW;AACL,+BpBnGN,6CoBmGM;AACD,8BpBpGL,6CoBoGK;AACI,kCpBzFP,+CoByFO;AACA,kCpB3FP,+CoB2FO;AACD,iCpBzFP,8CoByFO;AACE,mCpB3FP,gDoB2FO;AArFf;AAwFG;;;;AAED;;;AAEP;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAVO;;;;;;AAsvFsB;AAE/B,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AAEf,YAAY,YAAD,QAAX;AAEE,cAAa,iBAAH,eAAP,YAAO,CAAV,EACU,OAAP,aAAU,iBAAH,CAAgB,eAD1B;SAFF;OAJF;AAF+B;AAcA;AAE/B,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AAEf,YAAY,YAAD,QAAX;AAEE,cAAa,iBAAH,eAAP,YAAO,CAAV,EACU,OAAP,aAAU,iBAAH,CAAgB,eAD1B;SAFF;OAJF;AAF+B;AArIF;AAAZ;AAEjB;AAAE;AACF;AAEA,eAAU,CAAC;AAEX,UAAc,iBAAH,eAAP,YAAO,CAAX;AAEE,uBAAwB,OAAP,aAAU,iBAAH;AAExB,YAAK;AACL,iBAAS,QAA+B,OAA1B,YAAY,iBAAC,EAAa,GAAE,CAAF,kBAAxC;AAAI;AAEA,cAA+B,cAAH,eAAzB,YAAY,YAAS,CAAC,CAAD,CAAI,CAA5B;AAEE,gBAAG,YAAY,YAAS,CAAC,CAAD,CAAI,KAAE,IAA9B;AAEE,uBAAU;aAGV,MAAI,CAAJ,IAAG;WAPP;;OAPN;AAPiB;AAAY;AA+FC;;AAxCI;AAElC,UAAI,mBAAe,KAAG,KAAtB;AAEE,8BAAkB;AAClB,YAAa,iBAAH,eAAP,YAAO,CAAV,EACU,OAAP,aAAU,iBAAH,CAAgB,eAD1B;OAHF;AAFkC;AAUK;AAEvC,UAAI,wBAAoB,KAAG,KAA3B;AAEE,mCAAuB;AACvB,YAAa,iBAAH,eAAP,YAAO,CAAV,EACU,OAAP,aAAU,iBAAH,CAAgB,eAD1B;OAHF;AAFuC;AAUD;AAEtC,UAAI,uBAAmB,KAAG,KAA1B;AAEE,kCAAsB;AACtB,YAAa,iBAAH,eAAP,YAAO,CAAV,EACU,OAAP,aAAU,iBAAH,CAAgB,eAD1B;OAHF;AAFsC;AAUA;AAEtC,UAAI,uBAAmB,KAAG,KAA1B;AAEE,kCAAsB;AACtB,YAAa,iBAAH,eAAP,YAAO,CAAV,EACU,OAAP,aAAU,iBAAH,CAAgB,eAD1B;OAHF;AAFsC;AAzCV;AAE5B;AAEA,UAAY,YAAD,QAAX;AAEE,YAAa,iBAAH,eAAP,YAAO,CAAV,EACU,OAAP,aAAU,iBAAH,CAAgB,eAD1B;OAFF;AAJ4B;AAwDD;AAE3B,UAAc,cAAH,eAAP,MAAO,CAAX;AAEE,YAAmC,iBAAH,eAArB,OAAP,OAAU,cAAH,CAAa,QAAQ,CAAhC,EACE,SAAkB,OAAP,OAAU,cAAH,CAAa,QADjC;OAFF;AAMmB,0DAAC,MAAD;AAEnB,UAAY,YAAD,QAAX;AAEE,YAAa,iBAAH,eAAP,YAAO,CAAV;AAEU,iBAAP,aAAU,iBAAH,CAAgB;SAF1B;OAFF;AAV2B;AAzEE;AAEnB;AAFmB;AA3EK;AAElC;AACA,gCAAqB;AACrB,2BAA6B,aAAb,mBAAe,cAAC,2DAAD,CAAF;AAC7B,oBAAS,QAAT;AACA,yBAAc,IAAd;AACA,yBAAc,IAAd;AACA,0BAAe,KAAf;AACA,0BAAgB;AAChB,gCAAsB;AACtB,gCAAsB;AACtB,iCAAuB;AAZW;AAsCP;AAE3B;AACA,UAAY,YAAD,QAAX;AAEE,YAAa,iBAAH,eAAP,YAAO,CAAV,EACU,OAAP,aAAU,iBAAH,CAAgB,eAD1B;OAFF;AAH2B;AA0CA;AAE3B;AAEA,UAAc,iBAAH,eAAP,YAAO,CAAiB,IAAI,CAAI,iBAApC;AAEE,4BAAgB;AACR,eAAP,aAAU,iBAAH,CAAgB;AACxB,4BAAgB;OAJlB;AAJ2B;AAjED;AAE1B;AAEA,UAAK;AAEL,UAAY,YAAD,QAAX;AAEE,YAAa,iBAAH,eAAP,YAAO,CAAV;AAEE,cAAa,OAAP,aAAU,iBAAH;SAFf;OAFF;AAQA;AAEA,UAAY,CAAD,QAAX;AAEE,SAAC;AACD,SAAC,YAAC,CAAY,CAAZ;OAHJ;AAhB0B;AA9lFjB;;;AA8BW,iCxBjSV,gCwBiSU;AACO;AACL,mCnBgDhB,uCmBhDgB;AACA,mCpBjNV,6CoBiNU;AACJ;AACF,6BnB6CV,uCmB7CU;AACG,gCpB1NV,0CoB0NU;AACY,4CpB3Md,kDoB2Mc;AACX,iCpB3MV,2CoB2MU;AACE,mCpB3MV,6CoB2MU;AACI,uCpB3MV,iDoB2MU;AACX,4BnBwIV,sCmBxIU;AACS;AACF,mCpB1NZ,2CoB0NY;AACJ,+BpBrIV,yCoBqIU;AACM;AACK,0CnBkCvB,uCmBlCuB;AACD;AACA,yCpBrMV,mDoBqMU;AACV,+BpBpGV,yCoBoGU;AACE;AACC;AACN;AACQ;AACF,kCpBrOX,2CoBqOW;AACA;AACA;AACH;AACA,+BpBvKN,6CoBuKM;AACG,kCpBxKT,6CoBwKS;AACJ,8BpBzKL,6CoByKK;AACK,mCpBzKX,4CoByKW;AACA,mCpBtKP,gDoBsKO;AACF,iCpB3KT,4CoB2KS;AACC,kCpBjKP,+CoBiKO;AACA,kCpBnKP,+CoBmKO;AACD,iCpBjKP,8CoBiKO;AACH,8BpBhLL,6CoBgLK;AACK,mCpBpKP,gDoBoKO;AApEb;AAuEG;;;;AAEA;;;AAEV;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAfU;;;;;;AAghEyB;AAErC,UAAG,mBAAe,KAAG,MAArB;AAEE,8BAAkB;AAClB;OAHF;AAFqC;AA9ER;AAE7B,iBAAM,OAAO,CAAC,MAAD;AAFgB;AAkDG;AAEhC,UAAI,yCAAU,IAAG,oBAAjB,EACE,iBAAa,MADf;AAGA,UAAc,CAAV,cAAU,KAAG,MAAH,CAA6B,IAAN,CAAP,MAAO,IAAG,CAAH,CAAZ,IAA8B,CAAP,MAAO,GAAE,gBAAF,CAAvD;AAEE,yBAAa;AACb,6BAAiB;AACjB;OAJF;AALgC;AAhKC;AAAb;AAEpB;AAEA,eAAU;AAEV,WAAM;AACN,UAAI,EAAG,IAAG,CAAV,EACE,SAAU,YAAK,CAAC,EAAD,CADjB;AAPoB;AAAa;AAWK;AAAlB;AAEpB,eAAU,CAAC;AACX,UAAc,CAAV,gBAAU,IAAG,CAAH,CAA0B,IAAN,CAAT,cAAS,IAAG,CAAH,CAAd,IAAkC,CAAT,cAAS,GAAE,gBAAF,CAAtD,EACE,SAAU,cADZ;AAHoB;AAAkB;AAmFC;AAEvC,UAAU,CAAN,KAAM,IAAG,CAAH,CAAM,IAAW,CAAN,KAAM,GAAE,gBAAF,CAA3B,EACE,iBAAY,KAAZ,CADF;AAFuC;AAuGE;AAEzC,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB;OAHF;AAFyC;AArHP;AAElC;AAEA,eAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AAEF,YAAG,gBAAQ,CAAC,CAAD,CAAI,KAAE,KAAjB;AAEE,kCAAmB,CAAnB;AACA;SAHF;;AANgC;AA8HF;AAEhC,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAFgC;AAzGS;AAEzC,UAAI,uBAAmB,KAAG,KAA1B;AAEE,kCAAsB;AACtB;OAHF;AAFyC;AAtEd;AAAP;AAEpB;AAAE;AAEF,UAAK,CAAC;AACN,eAAU;AAEV,eAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AAEF,YAAmB,cAAH,eAAZ,gBAAQ,CAAC,CAAD,CAAI,CAAhB,EACM,CAAJ,IAAG,CADL;AAGC,YAAG,CAAE,KAAE,KAAP;AAEE,mBAAsB,OAAZ,gBAAQ,CAAC,CAAD,EAAO,cAAH;AACtB;SAHF;;AAZiB;AAAO;AA/HM;AAAb;AAEpB,eAAU,QAAQ,cAAc,CAAC,MAAD;AAFZ;AAAa;AAgqBA;AAAb;AAEpB;AAAK;AACL;AACA;AACA;AAGA,WAAM,KAAK;AAEX,YAAO;AACP,UAAG,EAAE,aAAa,CAAC,IAAD,CAAlB,EACE,MAAO,EAAE,aAAa,CAAC,IAAD,CADxB;AAGA,UAAI,GAAI,KAAG,EAAX;AAEE,cAAO;AACP,YAAG,GAAI,KAAE,EAAT,EACE,MAAO,UADT;AAGA,cAAO,0BAAa,CAAC,IAAK,GAAI,GAAE,GAAF,CAAO,GAAI,EAArB;AACpB,YAAG,wBAAW,CAAC,IAAI;;;;YAAL,CAAd;AAEE,cAAG,cAAU,KAAG,CAAC,CAAjB;AAEE,iBAAM,YAAO,CAAC,cAAD;AACb,gBAAW,CAAC,EAAD,SAAK,IAAY,CAAC,EAAE,QAAH,SAA5B,EACE,EAAE,QAAO,CAAC,EAAD,CADX;WAHF;AAOA,2BAAa;AAEb;AAEA,cAAG,cAAU,KAAG,CAAC,CAAjB;AAEE,iBAAM,YAAO,CAAC,cAAD;AACb,gBAAW,CAAC,EAAD,SAAK,IAAY,CAAC,EAAE,QAAH,SAA5B,EACE,EAAE,QAAO,CAAC,EAAD,CADX;WAHF;SAbF;AAqBA;OA5BF;AA+BA,eAAU;AA7CU;AAAa;AAnbC;AAAd;AAEpB,UAAG,kBAAc,KAAG,cAApB;AAEE,6BAAiB;AACjB,YAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;OAHF;AAMA,eAAU;AARU;AAAc;AAmeM;AAApB;AAEpB;AAEA,eAAU;AAGV,WAAqB,KAAK;AAC1B,UAAY,EAAD,QAAX;AAEE,YAAG,EAAE,SAAU,KAAE,GAAjB,EACE,EAAE,MAAM,YAAY,CAAC,mBAAoB,EAArB,CADtB;OAFF;AARoB;AAAoB;AAeC;AAArB;AAEpB;AAEA,eAAU;AAGV,WAAqB,KAAK;AAC1B,UAAY,EAAD,QAAX;AAEE,YAAG,EAAE,SAAU,KAAE,GAAjB,EACE,EAAE,MAAM,YAAY,CAAC,mBAAoB,WAArB,CADtB;OAFF;AARoB;AAAqB;AAzwBP;AAAd;AAEpB,eAAU;AAEV,UAAW,CAAC,MAAD,SAAS,IAAI,CAAe,cAAH,eAAP,MAAO,CAApC;AAEE,iBAAU;OAFZ;AAJoB;AAAc;AAZH;AAE/B;AACA,UAAY,uBAAD,QAAX;AAKE,+BAAa,QAAb,GAA0B;OAL5B;AAH+B;AAwKC;AAEhC;AAEA,eAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AAEF,YAAmB,cAAH,eAAZ,gBAAQ,CAAC,CAAD,CAAI,CAAhB;AAEE,cAAI,CAAC,gBAAQ,CAAC,CAAD,CAAT;SAFN;;AAN8B;AA2JE;AAElC;AAFkC;AA0CD;AAEjC;AAAG;AACH;AACA;AAAG;AACH;AACA;AACA;AAAI;AAAI;AACR;AACA;AACA;AACA;AACA;AAAO;AAAI;AAAM;AACjB;AAGA,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,UAAG,CAAY,CAAC,uBAAD,SAAgB,IAAG,iBAAlC,EACE,MADF;AAGA,YAAO;AAEP,UAAG,uBAAa,GAAE,CAAlB;AAEE,4BAAe,0CAAf;AACA,iBAAyB,uBAAa;AACtC,oBAAqB,CAAC,MAAD,SAAsC,IAAT,CAAf,MAAM,QAAS,KAAE,KAAF,CAApB,IAAqE,CAAnC,MAAM,aAAa,CAAC,aAAD,CAAgB,KAAE,GAAF,CAAxC;AAC3D,YAAG,SAAH;AAEE,iCAAa,YAAY,CAAC,uBAAa,WAAd;AACzB,iCAAa,MAAM,eAAe,CAAC,QAAD;SAHpC;AAMA,eAAQ,uBAAW,QAAC;AAEpB,kBAAW;AAEX,sBAAe;AAEf,iBAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AAEF,cAAiB,CAAb,4CAAa,IAAG,gBAAQ,CAAC,CAAD,CAAG,gBAAd,CAA+B,IAAO,CAAF,CAAE,IAAG,cAAH,CAAvD,EACM,WAAJ,IAAG,CADL;AAGA,cAAmB,cAAH,eAAZ,gBAAQ,CAAC,CAAD,CAAI,CAAc,IAAI,CAAkB,CAAb,4CAAa,IAAG,gBAAQ,CAAC,CAAD,CAAG,gBAAd,CAApD;AAEE,kBAAiB,gBAAQ,CAAC,CAAD;AAEzB,kBAAO;AAEP,gBAAG,GAAG,YAAN;AACE,oBAAO;AAEP,wBAAO;AAET,gBAAG,GAAG,YAAN;AAEE,kBAAG,GAAG,eAAe,KAAG,EAAxB;AAEE,yBAAU;AACV,2BAAY;AAEZ,oBAAG,CAAI,GAAG,SAAV,EACE,WAAY,uBADd;AAGA,oBAAG,GAAG,oBAAqB,KAAG,EAA9B,EACE,SAAU,SAAS,GAAC,kCAAW,CAAC,GAAG,oBAAJ,CADjC;AAEA,wBAAS;AAET,sBAAO,YAA0K,GAA3J,uCAAgB,CAAC,GAAG,mBAAJ,CAAlB,GAA4C,QAAF,GAAW,WAAD,GAAa,KAAD,GAAO,aAAD,GAAgB,qBAAQ,CAAC,GAAG,mBAAJ,CAAV,GAAkC,IAAD,GAAQ,MAAF,GAAS,IAAD,GAAQ,GAAG,eAAL,GAAsB,YAAF;eAZnL;AAcA,kBAAI,UAAU,CAAC,GAAI,GAAE,GAAG,SAAL,CAAe,GAApB;aAGd,MAAA,IAAI,UAAU,CAAC,QAAS,GAAV;AAEhB,eAAG;AAEH,gBAAI,WAAY,KAAE,CAAlB;AACE,iBAAG,SAAC,CAAS,sCAAT;AAEA,kBAAJ,GAAG,SAAC,CAAS,oCAAT;AAEN,eAAG,oBAAC,CAAoB,IAApB;AACJ,eAAG,SAAQ,QAAC,CAAQ,CAAR;AACZ,eAAG,SAAQ,SAAC,CAAS,CAAT;AACZ,eAAG,SAAQ,UAAC,CAAU,CAAV;AAEZ,eAAG,WAAC,CAAY,WAAY,KAAE,CAA1B;AAEJ,eAAG;AAGH,gBAAI,WAAY,KAAE,CAAlB,EACE,GAAG,iBAAC,EAAa,cAAc,aAAa,CAAC,GAAG,iBAAC,GAAgB,IAArB,CAD9C;AAGA,eAAG,mBAAiB,MAAM,YAAY,CAAC,mBAAoB,kCAAW,CAAC,GAAG,OAAJ,CAAhC;WApDxC;;AAwDF,cAAO;AACP,YAAG,GAAI,KAAE,EAAT,EACE,MAAO,UADT;AAGA,iBAAS,SAAiC,QAA5B,mBAAS,WAAW,OAAQ,GAAE,CAAF,qBAA1C;AAAI;AAEF,cAAK,mBAAS,WAAW,MAAC,CAAD;AACzB,cAAW,CAAC,CAAD,SAAI,IAAyB,CAAT,CAAE,cAAC,IAAD,CAAO,KAAM,CAAJ,GAAI,GAAE,KAAF,CAAN,CAAxC,EACE,mBAAS,YAAY,CAAC,CAAD,CADvB;;AAIF,2BAAS,cAAC,QAAY,EAAb;AAET,YAAG,CAAI,aAAP;AACE,iCAAa,MAAM,YAAY,CAAC,iBAAkB,MAAnB;AAE/B,cAAA,uBAAa,MAAM,YAAY,CAAC,iBAAkB,MAAnB;AAEjC,YAAG,cAAH;AAEE,eAAM,QAAQ,cAAc,CAAC,IAAD;AAC5B,YAAE,cAAC,QAAY,sBAAb;AACF,YAAE,cAAC,KAAS,GAAI,GAAE,KAAhB;AAEF,cAAG,sBAAiB,KAAG,EAAvB;AACE,cAAE,cAAC,OAAW,SAAZ;;AAGc,cAAI,MAAM,YAAY,CAAC,kBAAmB,MAApB;AACtB,cAAI,MAAM,YAAY,CAAC,SAAU,GAAX;AACtB,cAAI,MAAM,YAAY,CAAC,UAAW,GAAZ;AACtB,cAAI,MAAM,YAAY,CAAC,UAAW,cAAZ;;AAGxC,6BAAS,YAAY,CAAC,EAAD;SAhBvB;AAmBA,iBAAS,SAAgB,QAAX,IAAI,SAAC,EAAM,GAAE,CAAF,qBAAzB;AAAI;AAEF,cAAK,IAAI,KAAC,CAAD;AACT,cAAM,CAAF,CAAE,KAAG,OAAH,CAAY,IAAI,cAAtB;AAEE,gBAAG,CAAE,KAAE,EAAP,EACE,IAAK,KAAM,GAAE,qBAAQ,CAAC,CAAD,CADvB;AAGA,iBAAM,QAAQ,cAAc,CAAC,IAAD;AAE5B,gBAAG,sBAAiB,KAAG,EAAvB;AAEE,kBAAG,6BAAwB,KAAE,EAA7B;AACE,kBAAE,cAAC,QAAY,UAAb;AAEA,oBAAF,EAAE,cAAC,QAAY,6BAAb;;AAIY,gBAAI,MAAM,YAAY,CAAC,QAAS,MAAV;AACtC,kBAAG,iBAAY,KAAG,0CAAlB,EACkB,EAAI,MAAM,YAAY,CAAC,gBAAiB,qBAAlB,CADxC;;AAIF,gBAAI,IAAI,UAAQ,CAAC,CAAD,CAAI,KAAE,IAAtB;AAEkB,gBAAI,MAAM,YAAY,CAAC,iBAAkB,MAAnB;AACtB,gBAAI,MAAM,YAAY,CAAC,QAAS,kCAAW,CAAC,uBAAD,CAArB;aAHxC;AAMA,gBAAG,cAAS,KAAE,4CAAd,EACE,EAAE,cAAC,YAAgB,MAAjB,CADJ;AAGA,qDAAkB,CAAgB,GAAK,WAAM,CAA6B,CAAN,CAAjB,sBAAiB,KAAE,EAAF,CAAM,IAAiB,CAAZ,iBAAY,KAAE,8CAAF,CAAjB,CAAxD;AAElB,cAAE,YAAY,CAAC,EAAD;AAEd,gBAAG,CAAI,aAAP;AACE,kBAAK,QAAQ,cAAc,CAAC,MAAD;;AAG3B,kBAAK,QAAQ,cAAc,CAAC,GAAD;AAC3B,kBAAG,aAAH,EACE,CAAC,cAAC,OAAW,GAAI,GAAE,CAAlB,CADH;;AAIF,gBAAG,cAAS,KAAE,4CAAd,EACE,CAAC,cAAC,YAAgB,OAAjB,CADH;AAGA,aAAC,UAAD,GAAe;AACf,aAAC,cAAC,KAAS,GAAU,GAAJ,GAAF,GAAQ,qBAAQ,CAAC,CAAD,CAA9B;AAED,gBAAG,sBAAiB,KAAG,EAAvB;AAEE,kBAAG,cAAS,KAAE,CAAd;AAEE,oBAAG,+BAA0B,KAAE,EAA/B;AACE,mBAAC,cAAC,QAAY,iBAAb;AAEA,sBAAD,CAAC,cAAC,QAAY,+BAAb;;AAIH,oBAAG,yBAAoB,KAAE,EAAzB;AACE,mBAAC,cAAC,QAAY,UAAb;AAEA,sBAAD,CAAC,cAAC,QAAY,yBAAb;;AAEL,eAAC,cAAC,OAAW,KAAZ;AAED,eAAC,cAAC,cAAkB,KAAnB;AACD,eAAC,cAAC,gBAAoB,CAArB;AAED,kBAAG,cAAS,KAAE,CAAd;AACE,iBAAC,cAAC,gBAAoB,MAArB;AAEA,oBAAD,CAAC,cAAC,gBAAoB,OAArB;;AAIa,eAAG,MAAM,YAAY,CAAC,UAAW,OAAZ;AACrB,eAAG,MAAM,YAAY,CAAC,aAAc,QAAf;AACrB,eAAG,MAAM,YAAY,CAAC,UAAW,UAAZ;AACrB,eAAG,MAAM,YAAY,CAAC,kBAAmB,MAApB;AACrB,eAAG,MAAM,YAAY,CAAC,YAAa,MAAd;AAErB,eAAG,MAAM,YAAY,CAAC,QAAS,SAAV;AACrB,eAAG,MAAM,YAAY,CAAC,cAAe,SAAhB;AACrB,eAAG,MAAM,YAAY,CAAC,aAAc,SAAf;AACrB,eAAG,MAAM,YAAY,CAAC,YAAa,SAAd;AAKrC,kBAAG,cAAS,KAAE,CAAd;AAEE,oBAAG,mBAAc,KAAG,EAApB,EACkB,CAAG,MAAM,YAAY,CAAC,mBAAoB,kCAAW,CAAC,mBAAD,CAAhC,CADvC;AAEA,oBAAG,uBAAkB,KAAG,EAAxB,EACkB,CAAG,MAAM,YAAY,CAAC,QAAS,kCAAW,CAAC,uBAAD,CAArB,CADvC;eAJF;;AASF,cAAE,YAAY,CAAC,CAAD;WApGhB;;AAwGF,iBAAS,SAAkB,QAAb,uBAAa,GAAE,CAAF,qBAA3B;AAAI;AAEF,cAAkB,cAAH,eAAZ,gBAAQ,CAAC,CAAD,CAAI,CAAf;AAEE,gBAAG,cAAH;AACE,mBAAM,UAAK,CAAiB,EAAI,aAArB,CAAoC,GAAE,CAAF;AAE/C,uBAAM;AAEE,4BAAQ,CAAC,CAAD,CAAI,SAAQ,OAAC,CAAO,EAAP;AACrB,4BAAQ,CAAC,CAAD,CAAI,iBAAC,EAAa,MAAM,YAAY,CAAC,cAAe,EAAhB;WARxD;;AAYF,YAAK,eAAL,IAAK;;AAIL,YAAG,CAAI,kBAAP;AAEE;AACA,cAAI,2CAAY,IAAG,oBAAnB;AAEE,gCAAe,CAAC,kBAAmB,oBAAW,KAAM,KpB50DwE,EoB40D7G;WAFjB;SAHF;;AAUF;AAEA,UAAY,GAAD,QAAX;AAEE,WAAG,SAAC,CAAS,oCAAT;AACJ,WAAG,SAAC,CAAS,sCAAT;OAHN;AAMA;AAEA,UAAG,CAAI,kBAAS,IAAkB,CAAb,uBAAa,KAAE,CAAF,CAAlC;AAEE,+BAAa,MAAM,YAAY,CAAC,SAAS,qBAAV;OAFjC;AA5RiC;AAkSE;AAEnC;AAAG;AAGH,eAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AAEF,YAAkB,cAAH,eAAZ,gBAAQ,CAAC,CAAD,CAAI,CAAf,EACG,gBAAQ,CAAC,CAAD,CAAG,WAAC,CAAW,KAAX,CADf;;AAKF,eAAS,SAAkB,QAAb,uBAAa,GAAE,CAAF,qBAA3B;AAAI;AAEF,YAAkB,cAAH,eAAZ,gBAAQ,CAAC,CAAD,CAAI,CAAf;AAEE,0BAAQ,CAAC,CAAD,CAAG,WAAC,CAAW,IAAX;AACZ,0BAAQ,CAAC,CAAD,CAAG,SAAC,CAAS,oCAAT;AACZ,0BAAQ,CAAC,CAAD,CAAG,SAAC,CAAS,sCAAT;AACZ,0BAAQ,CAAC,CAAD,CAAG,WAAC,CAAW,KAAX;SALd;;AASF,oBAAe;AAGf,eAAS,SAAkB,QAAb,uBAAa,GAAE,CAAF,qBAA3B;AAAI;AAEF,YAAiB,CAAb,4CAAa,IAAG,gBAAQ,CAAC,CAAD,CAAG,gBAAd,CAA+B,IAAO,CAAF,CAAE,IAAG,cAAH,CAAvD,EACM,WAAJ,IAAG,CADL;AAGA,YAAkB,cAAH,eAAZ,gBAAQ,CAAC,CAAD,CAAI,CAAf;AAEE,0BAAQ,CAAC,CAAD,CAAG,WAAC,CAAY,WAAY,KAAE,CAA1B;SAFd;;AA/BiC;AAjWR;AAE3B;AACA;AACA,uBAAY,cAAZ;AACA,yBAAe;AALY;AA0BQ;AAEnC;AACA,UAAG,gBAAY,KAAG,aAAlB;AAEE;AACA,2BAAe;OAHjB;AAHmC;AA4dF;AAEjC;AACA;AAGA,UAAc,CAAV,gBAAU,KAAE,CAAF,CAA2B,IAAL,CAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,CAAjB,IAA2D,CAAhC,uBAAa,kBAAmB,GAAE,CAAF,CAA9E;AAEE,+BAAa,YAAY,CAAC,uBAAa,WAAd;OAF3B;AAKA,eAAS,QAAkB,OAAb,WAAM,SAAC,EAAM,GAAE,CAAF,kBAA3B;AAAI;AAEF,YAAG,gBAAU,IAAG,CAAhB;AAEE,eAAM,cAAS,QAAC,YAAM,CAAC,WAAD,CAAN;AAChB,YAAE,UAAC,CAAU,IAAV;AACH,YAAE,QAAC,CAAQ,UAAe,GAAR,OAAF,GAAY,qBAAQ,CAAC,CAAE,GAAE,CAAL,CAAjC;SAJL;AAMA,oBAAK,CAAC,CAAD,CAAG,WAAC,CAAW,WAAM,KAAC,CAAD,CAAjB;;AAGX,eAAmB,MAAV,gBAAU,GAAE,CAAF,EAAY,eAA/B;AAAI;AAEF,YAAG,CAAE,IAAG,WAAK,SAAC,EAAd;AAEE,eAAM,YAAK,CAAC,CAAD;AACX,YAAG,eAAH,EAAG;SAHL;;AAOF;AA/BiC;AA3hBH;AAE9B;AACA;AAEA;AAEA,UAAG,kBAAH;AAEE,cAAO,iCAAa,CAAC,IAAD;AAEpB,6BAAe;AACf,aAAM,iBAAY,QAAC,YAAM,CAAC,GAAD,CAAN;AACnB,UAAE,UAAC,CAAU,IAAV;AACH,UAAE,WAAC,CAAW,OAAX;AACH,UAAE,QAAC,CAAQ,oBAAR;AAEH,aAAM,iBAAY,QAAC,YAAM,CAAC,GAAD,CAAN;AACnB,UAAE,UAAC,CAAU,IAAV;AACH,UAAE,WAAC,CAAW,OAAX;AACH,UAAE,QAAC,CAAQ,oBAAR;OAbL;AAgBA;AAvB8B;AA/DG;AAAb;AAEpB;AAAE;AACF;AACA;AAEA,WAAM;AAEN,cAAS,UAAK,GAAE,OAAF;AAEd;AACE,iBAAU,KAAM,GAAE,qBAAQ,CAAC,EAAD,CAAV;AAEhB,gBAAS;AAET,iBAAS,QAA0B,OAArB,WAAK,kBAAC,EAAe,GAAE,CAAF,kBAAnC;AAAI;AAEF,cAAG,WAAK,aAAW,CAAC,CAAD,CAAG,MAAM,KAAE,MAA9B;AAEE,oBAAS;AACL,cAAJ,IAAG;AACH;WAJF;;OAPJ,QAeM,MAfN;AAVoB;AAAa;AA2eF;;AACA;AAE7B;AACA;AAEA,iBAAS,QAA8B,OAAzB,QAAQ,SAAS,OAAQ,GAAE,CAAF,kBAAvC;AAAI;AAEF,eAAiB,QAAQ,SAAS,MAAC,CAAD,CAAI;AACtC,cAAG,EAAG,KAAE,IAAR;AAEa,oBAAQ,SAAS,MAAC,CAAD,CAAI,aAAM,CAAC,YAAgB,MAAjB;AACtC,iCAAqB,CAAY,QAAQ,SAAS,MAAC,CAAD,CAA7B;WAElB,UAAG,EAAG,KAAE,GAAR;AACQ,oBAAQ,SAAS,MAAC,CAAD,CAAI,aAAM,CAAC,YAAgB,OAAjB;AACnC,oBAAG,EAAG,KAAE,IAAR,EACH,qBAAqB,CAAY,QAAQ,SAAS,MAAC,CAAD,CAA7B,CADlB;;AAfsB;AAoB/B,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,2BAAqB,CAAC,mBAAD;AAxBU;AApnBC;;AACE;AAEhC;AACA;AAEA,iBAAS,QAA8B,OAAzB,QAAQ,SAAS,OAAQ,GAAE,CAAF,kBAAvC;AAAI;AAEF,eAAiB,QAAQ,SAAS,MAAC,CAAD,CAAI;AACtC,cAAG,EAAG,KAAE,IAAR;AAEa,oBAAQ,SAAS,MAAC,CAAD,CAAI,gBAAgB,CAAC,WAAD;AAChD,oCAAwB,CAAY,QAAQ,SAAS,MAAC,CAAD,CAA7B;WAErB,UAAG,EAAG,KAAE,GAAR;AACQ,oBAAQ,SAAS,MAAC,CAAD,CAAI,gBAAgB,CAAC,WAAD;AAC7C,oBAAG,EAAG,KAAE,IAAR,EACH,wBAAwB,CAAY,QAAQ,SAAS,MAAC,CAAD,CAA7B,CADrB;;AAfyB;AAoBlC,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,8BAAwB,CAAC,mBAAD;AAxBQ;AAtCK;AAErC;AAEA,2BAA4B,CAAZ,2CAAY,IAAG,oBAAH,CAAmB,IAAI,CACZ,CAAzB,CAAV,yCAAU,IAAG,WAAK,gBAAR,CAAyB,IAAc,CAAV,yCAAU,IAAG,WAAK,gBAAR,CAAd,CADQ;AAG/C,2BAA6B,aAAb,mBAAe,cAAC,2DAAD,CAAF;AAC7B,0BAAe,0CAAf;AACA,oBAAU,uBAAW,QAAC;AACtB,iBAAM,UAAN,GAAmB;AACnB,uBAAa;AACb,2BAAiB;AACjB,uBAAa;AACb,sBAAY;AACZ,sBAAW,KAAX;AACA,4BAAkB;AAClB,gCAAsB;AACtB,UAAI,2CAAY,IAAG,oBAAnB;AAEE,sBAAS,GAAT;AACA,uBAAU,GAAV;OAHF;AAKA,gCAAqB;AACrB,yBAAe;AAxBsB;AAgCR;AAEtB,eAAP,KAAO;AACP;AAH6B;AArCH;AAE1B,iBAAK;AAFqB;AA0rBI;AAE9B;AACA;AAH8B;AApnBK;AAEnC,UAAG,SAAH;AAEE,YAAG,cAAS,GAAY,CAAV,gBAAU,GAAE,CAAF,CAAxB;AACE,2BAAY,cAAS,GAAE,CAAvB;AAEA,+BAAY,CAAZ;;AAIF,YAAG,cAAS,GAAE,CAAd;AACE,2BAAY,cAAS,GAAE,CAAvB;AAEA,+BAAY,gBAAU,GAAE,CAAxB;;AAd+B;AAkBN;AAAT;AAEpB;AAEA,eAAU;AAEV,eAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AAEF,YAAmB,cAAH,eAAZ,gBAAQ,CAAC,CAAD,CAAI,CAAhB,EACM,MAAJ,IAAG,CADL;;AARkB;AAAS;AAcW;AAApB;AAEpB;AAAK;AACL;AAEA,eAAU,CAAC;AAEX,YAAO;AACP,UAAG,QAAQ,QAAS,KAAE,IAAtB,EACE,WAAuB,QAAQ,WADjC;AAGA,UAAG,QAAQ,aAAa,CAAC,IAAD,CAAxB,EACE,MAAO,QAAQ,aAAa,CAAC,IAAD,CAD9B;AAGA,UAAI,GAAI,KAAG,EAAX;AAEE,cAAO;AACP,YAAG,GAAI,KAAE,EAAT,EACE,MAAO,UADT;AAGA,cAAO,0BAAa,CAAC,IAAK,GAAI,GAAE,GAAF,CAAO,GAAI,EAArB;AACpB,YAAG,wBAAW,CAAC,IAAK;;;;YAAN,CAAd,EACE,SAAU,CADZ;OAPF;AAdoB;AAAoB;AA1zD5B;;;AA2DI,6BpBtTV,uCoBsTU;AACW;AACT,+BpBhTV,yCoBgTU,yBpB+TkD,uBAAC,0CAAQ,wCAAT,CoB/TlD;AACI,mCpBvTV,6CoBuTU;AACD;AACO,yCnBzDtB,uCmByDsB;AACT,gCpBhUV,0CoBgUU;AACQ,wCpBjTV,kDoBiTU;AACG,2CpBlTb,kDoBkTa;AACM,iDpBnTnB,kDoBmTmB;AACF,+CpBpTjB,kDoBoTiB;AACZ,mCpBnTV,6CoBmTU;AACF,iCpBrTV,2CoBqTU;AACM,uCpBpTV,iDoBoTU;AACR;AACH,4BnB8BV,sCmB9BU;AACE;AACO;AACF,mCpBrUZ,2CoBqUY;AACP;AACI;AACJ;AACG,+BpBnPV,yCoBmPU;AACG;AACD,iCR1OV,wCQ0OU;AACD;AACA;AACK,qCnB/ElB,uCmB+EkB;AACI,yCnBhFtB,uCmBgFsB;AACT;AACD;AACJ;AACI;AACA;AACF;AACO;AACF,kCpBvVX,2CoBuVW;AACF,gCpBtRP,6CoBsRO;AACD,+BpBvRN,6CoBuRM;AACG,kCpBxRT,6CoBwRS;AACD,iCpBnRX,0CoBmRW;AACC,kCpBnRP,+CoBmRO;AACH,+BpBrRT,0CoBqRS;AACI,mCpB3RX,4CoB2RW;AACF,iCpB5RT,4CoB4RS;AACE,mCpBzRP,gDoByRO;AACC,oCpB/RX,6CoB+RW;AACA,oCpBhSX,6CoBgSW;AACL,+BpBjSN,6CoBiSM;AACD,8BpBlSL,6CoBkSK;AACI,kCpBvRP,+CoBuRO;AACA,kCpBzRP,+CoByRO;AACD,iCpBvRP,8CoBuRO;AACE,mCpBzRP,gDoByRO;AAhHV;AAmHG;;;;AAEE;;AACA;;AAEL;;;AAEV;AACA;AACA;AACA;AACA;AACA;AACA;AARU;AAquFiB;AAE7B,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AAEV,YAAY,uBAAD,QAAX;AAEE,oCAAqB,CAAC,uBAAD;AACrB;SAHF;OAJF;AAF6B;AAzGc;AAE3C,kCAAwB;AACxB;AAH2C;AAuHd;AAE7B,oBAAU;AACV;AAH6B;AAMK;AAElC,UAAI,gBAAY,KAAG,KAAnB;AAEE,2BAAe;AACf;OAHF;AAFkC;AAnID;AAAb;AAEpB,eAAU,QAAQ,cAAc,CAAC,MAAD;AAChC,gCAAqB,CAAC,MAAD;AAHD;AAAa;AAYN;AAE3B,kBAAQ;AACR;AAH2B;AAMA;AAE3B,kBAAQ;AACR;AAH2B;AAoFK;AAEhC,UAAW,CAAP,MAAO,IAAG,SAAH,CAAQ,IAAY,CAAP,MAAO,IAAG,SAAH,CAA/B;AAEE,yBAAa;AACb;OAHF;AAFgC;AA9EH;AAE7B;AACA;AACA;AACA;AAEA,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,UAAG,SAAK,KAAG,SAAX;AACE,cAAO,UAAK,CAAmB,CAAP,CAAV,cAAU,GAAE,SAAF,CAAO,GAAO,CAAJ,SAAI,GAAE,SAAF,CAAP,CAAc,GAAE,GAAnC;AAEZ,kBAAO;AAGT,UAAG,kBAAH;AAEE,YAAG,uBAAa,QAAQ,KAAE,KAA1B;AAEE,cAAG,uBAAa,cAAC,MAAD,CAAS,KAAE,aAA3B;AACE,mCAAa,MAAM,YAAY,CAAC,QAAQ,qBAAQ,CAAC,GAAD,CAAK,GAAC,GAAvB;AAE/B,gBAAA,uBAAa,UAAb,GAA2B,qBAAQ,CAAC,GAAD;SAGrC,MAAA,uBAAa,aAAa,CAAC,QAAQ,qBAAQ,CAAC,GAAD,CAAjB;AAE5B;OAZF;AAgBA,UAAG,WAAM,KAAE,8BAAX;AAEE,aAAqB,uBAAa;AAElC,YAAG,sBAAiB,KAAG,EAAvB;AAEE,YAAE,aAAa,CAAC,QAAQ,sBAAT;AACf,iCAAa,gBAAgB,CAAC,OAAD;SAH/B;AAMA,UAAE,MAAM,YAAY,CAAC,SAAS,qBAAQ,CAAC,gBAAD,CAAQ,GAAC,IAA3B;AAEpB,YAAG,gBAAW,KAAE,4CAAhB,EACE,EAAE,MAAM,YAAY,CAAC,QAAQ,qBAAQ,CAAC,eAAD,CAAO,GAAC,IAAzB,CADtB;AAGA,aAAqB,EAAE;AACvB,UAAE,MAAM,YAAY,CAAC,mBAAmB,SAApB;AAEpB,YAAG,yBAAoB,KAAG,EAA1B,EACE,EAAE,aAAa,CAAC,QAAQ,yBAAT,CADjB;AAGA,UAAE,aAAa,CAAC,OAAO,aAAR;AACf,UAAE,MAAM,YAAY,CAAC,QAAQ,qBAAQ,CAAC,GAAD,CAAK,GAAC,GAAvB;AAEf;AACL,YADK,IACL;AAAe,YAAE,UAAF,GAAgB,qBAAQ,CAAC,GAAD,CAAK,GAAC,GAAD;AAC5C,kBAFK,IAEL;AAAa,YAAE,UAAF,GAAgB,qBAAQ,CAAC,cAAD;AACrC,kBAHK,IAGL,qCAAS,EAAE,UAAF,GAAgB,QAAzB;;AAKA,aAAqB,uBAAa;AAClC,UAAE,MAAM,YAAY,CAAC,QAAQ,MAAT;AACpB,UAAE,MAAM,YAAY,CAAC,SAAS,MAAV;AACpB,iBAAU,cAAU,GAAE,SAAF;AACpB,mBAAY,SAAK,GAAE,SAAF;AACjB,UAAE,cAAC,MAAU,qBAAQ,CAAC,QAAD,CAAnB;AAEF,YAAG,WAAM,KAAE,iCAAX;AACE,YAAE,cAAC,QAAY,qBAAQ,CAAC,MAAD,CAArB;AAEF,cAAA,EAAE,gBAAgB,CAAC,OAAD;;AA1EO;AAoHW;AAExC;AAGA;AACA,UAAI,gBAAW,KAAG,EAAlB;AAEE,YAAG,WAAM,KAAE,8BAAX;AAEE,eAAqB,uBAAa;AAClC,eAAqB,EAAE;AACvB,YAAE,MAAM,YAAY,CAAC,mBAAmB,kCAAW,CAAC,gBAAD,CAA/B;;AAIpB,eAAqB,uBAAa;AAClC,YAAE,MAAM,YAAY,CAAC,eAAe,kCAAW,CAAC,gBAAD,CAA3B;;OAXxB;AANwC;AApKE;AAE1C;AAEA,aAAe,QAAQ,WAAT,QAAd,EACE,QAAQ,YAAY,CAAC,QAAQ,WAAT;AAEtB,UAAG,WAAO,KAAE,8BAAZ;AAEE,YAAK,QAAQ,cAAc,CAAC,KAAD;AAC3B,SAAC,YAAY,CAAC,QAAQ,cAAc,CAAC,KAAD,CAAvB;OAGb,UAAK,QAAQ,cAAc,CAAC,UAAD;AAE7B,cAAQ,YAAY,CAAC,CAAD;AAfsB;AAVL;AAErC;AACA,kBAAQ;AACR,kBAAQ;AACR,uBAAa;AACb,oBAAU;AACV,yBAAe;AAPsB;AA4BE;AAEvC;AACA;AAHuC;AAhnF3B;;;AAyBI,6BpB5YV,uCoB4YU;AACW;AACT,+BpBtYV,yCoBsYU,yBpByOkD,uBAAC,0CAAQ,wCAAT,CoBzOlD;AACC,gCpBnZV,0CoBmZU;AACW;AACJ,uCpBlYV,iDoBkYU;AACT;AACO;AACF,mCpBjZZ,2CoBiZY;AACP;AACG,+BpB7TV,yCoB6TU;AACJ;AACA;AACM,iCRrTV,wCQqTU;AACD;AACH,6BA3CC,gCA2CD;AACF;AACE,6BA5CC,gCA4CD;AACK,kCnB5Jf,uCmB4Je;AACH;AACF;AACO;AACF,kCpB/ZX,2CoB+ZW;AACA,kCpBlVP,+CoBkVO;AACA,kCpBpVP,+CoBoVO;AACD,iCpBlVP,8CoBkVO;AACE,mCpBpVP,gDoBoVO;AAnDV;AAsDG;;;;AAEG,yEAAmB,UjCnb9B,2BiCmb8B,EAAe,QF/d3C,0CE+d2C,CAAlC;AACK,8EAAmB,UjCpbnC,2BiCobmC,EAAe,QFhehD,0CEgegD,EAAmB,sBAArD;AACA,8EAAmB,UjCrbnC,2BiCqbmC,EAAe,QFjehD,0CEiegD,EAAsB,uBAAxD;AAEC,+EAAmB,UjCvbpC,2BiCuboC,EAAe,QFnejD,0CEmeiD,EAAqB,YpBnY3D,oDoBmY2D,CAAvD;AAEf;;;AAEP;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAjBO;;;;;;;;;;;;;;;;;AAinHiB;AAE1B,iBAAM,OAAO,CAAC,KAAD;AAFa;AAtjBE;AAAX;AAEjB,eAAU;AAFO;AAAW;AA2jBC;AAE7B;AAEA,UAAY,cAAD,QAAX;AAEc,sBAAU;AAEtB,aAAM,mBAAc,CAAC,cAAD;AACpB,YAAY,EAAD,QAAX;AAEE,YAAE,UAAU,OAAO,CAAC,YAAD;AACnB,cAAG,kCAA6B,KAAG,EAAnC,EACE,EAAE,UAAU,OAAO,CAAC,kCAAD,CADrB;SAHF;OALF;AAaA,uBAAa;AAEb,UAAY,cAAD,QAAX,EACc,cAAU,SADxB;AAGA,WAAM,mBAAc,CAAC,cAAD;AACpB,UAAY,EAAD,QAAX;AAEE,UAAE,UAAU,OAAO,CAAC,YAAD;AACnB,YAAG,kCAA6B,KAAG,EAAnC,EACE,EAAE,UAAU,OAAO,CAAC,kCAAD,CADrB;OAHF;AAvB6B;AAxBY;AAEzC,UAAI,0BAAsB,KAAG,KAA7B;AAEE,qCAAyB;AACzB;OAHF;AAFyC;AASQ;AAGjD,UAAI,kCAA8B,KAAG,KAArC;AAEE,6CAAiC;AACjC;OAHF;AAHiD;AAviBtB;AAAV;AAEjB;AACA;AACA;AAGA,eAAU;AAEV,UAAG,WAAK,gBAAC,EAAa,KAAE,CAAxB,EACE,aADF;AAGA,UAAK,uBAAa,sBAAsB,EAAE;AAE1C,WAAM,WAAK,oBAAQ,CAAC,CAAD;AAEnB,aAAe,EAAD,QAAd;AAEE,aAAM,mBAAc,CAAC,EAAD;AACpB,YAAG,EAAE,sBAAsB,EAAE,IAAK,IAAG,CAArC;AAEE,mBAAU;AACV;SAHF;AAMA,aAAM,EAAE;;AAzBO;AAAU;AAqlBC;AAE5B;AACA;AAAE;AAGF,UAAG,CAAY,CAAC,KAAD,SAAf,EACE,MAAM,sBAAS,QAAC,YAAM,CAAC,uBAAD,CAAN,CADlB;AAGA,WAAM,mBAAc,CAAC,KAAD;AACpB,UAAK,EAAE,sBAAsB,EAAE,IAAK,GAAE,uBAAa,UAAf;AAEpC,WAAM,uBAAa,sBAAsB,EAAE;AAE3C,6BAAa,UAAb,GAA2B,UAAK,CAAC,CAAE,GAAE,EAAL;AAdJ;AAlvBE;AAE9B;AAEA,UAAY,kBAAD,QAAX;AAEE,mBAAW,QAAX,GAAuB;AACvB,0BAAY,CAAC,KAAM,MAAO,+DAAd;OAHd;AAJ8B;AA6eA;AAAb;AAGjB;AAAK;AACL;AAEA,YAAO;AACP,UAAG,KAAK,SAAR,EACE,MAAO,UADT;AAGA,cAAS;AAET,UAAY,KAAD;AACX,UAAG,cAAG,CAAC,IAAI,KAAL,CAAW,GAAE,CAAnB;AAEE,eAAO,KAAK,QAAC,KAAD,CAAI,KAAG,GAAnB;AAEM,WAAJ,IAAG;;AAGL,gBAAS,eAAI,CAAC,MAAM,EAAE,CAAC,GAAC,CAAX;OAPf;AAUU,iBAAL,KAAK;AACV,UADU,IACV;AAAY,iBAAU,wBAAiD,GAAvB,GAAF,GAAO,iBAAD,GAAqB,KAAK,MAAP;AACvE,gBAFU,IAEV;AAAe,iBAAU,qBAAmE,GAA5C,GAAF,GAAQ,SAAF,GAAa,KAAF,GAAU,kBAAF,GAAuB,KAAK,MAAP;AAC5F,gBAHU,IAGV,+CAAQ,SAAU,KAAK,MAAvB;AA1BiB;AAAa;AA8BH;AAAV;AAEjB,eAAyB,QAAQ,cAAc,CAAC,MAAD;AAC/C,UAAG,YAAa,KAAG,EAAnB,EACE,MAAM,aAAa,CAAC,KAAK,YAAN,CADrB;AAGA,YAAM,UAAN,GAAoB,kBAAa,CAAC,MAAO,YAAR;AAEjC,YAAM,UAAU,IAAI,CAAC,QAAD;AAEpB,UAAG,0BAAqB,KAAG,EAA3B,EACE,MAAM,UAAU,IAAI,CAAC,0BAAD,CADtB;AAGA,UAAY,kBAAD,QAAX;AAEE,YAAG,kBAAS,KAAE,KAAd;AAEE,gBAAM,UAAU,IAAI,CAAC,YAAD;AACpB,cAAG,kCAA6B,KAAG,EAAnC,EACE,MAAM,UAAU,IAAI,CAAC,kCAAD,CADtB;SAHF;OAFF;AAaA,UAAG,KAAK,MAAM,KAAG,EAAjB,EACE,MAAM,aAAa,CAAC,QAAS,KAAK,MAAf,CADrB;AA1BiB;AAAU;AA8BE;;AAEJ;AAEvB;AAAG;AAEH,aAAqB,QAAQ,cAAc,CAAC,MAAD;AAC3C,YAAG,YAAa,KAAG,EAAnB,EACE,EAAE,aAAa,CAAC,KAAM,YAAP,CADjB;AAGA,UAAE,iBAAiB,CAAC,QAAS,0CAAV;AACnB,UAAE,iBAAiB,CAAC,WAAY,8CAAb;AAEnB,aAAqB,QAAQ,cAAc,CAAC,MAAD;AAE3C,YAAG,iBAAH,EACE,EAAE,MAAM,YAAY,CAAC,iBAAkB,MAAnB,CADtB;AAGA,UAAE,UAAF,GAAgB,mBAAa,CAAC,MAAO,YAAR;AAE7B,UAAE,UAAU,IAAI,CAAC,QAAD;AAEhB,YAAG,2BAAqB,KAAG,EAA3B,EACE,EAAE,UAAU,IAAI,CAAC,2BAAD,CADlB;AAGA,YAAG,CAAI,iBAAP,EACE,EAAE,UAAU,IAAI,CAAC,YAAD,CADlB;AAGA,YAAY,mBAAD,QAAX;AAEE,cAAG,mBAAS,KAAE,KAAd;AAEE,cAAE,UAAU,IAAI,CAAC,YAAD;AAChB,gBAAG,mCAA6B,KAAG,EAAnC,EACE,EAAE,UAAU,IAAI,CAAC,mCAAD,CADlB;WAHF;SAFF;AAUA,YAAG,KAAK,MAAM,KAAG,EAAjB,EACE,EAAE,aAAa,CAAC,QAAS,KAAK,MAAf,CADjB;AAGA,mBAAW,YAAY,CAAC,EAAD;AACvB,UAAE,YAAY,CAAC,EAAD;AACd,YAAG,KAAK,YAAR;AACE,YAAE,aAAa,CAAC,QAAS,sBAAV;AAEf,cAAA,EAAE,aAAa,CAAC,QAAS,SAAV;AAEjB,0BAAY,CAAC,MAAO,EAAR;AA9CW;AAiDL;AAElB;AACA;AACA;AAAG;AACH;AAEA,aAAM,QAAQ,cAAc,CAAC,IAAD;AAC5B,UAAE,aAAa,CAAC,QAAQ,MAAT;AACf,UAAE,aAAa,CAAC,KAAK,UAAN;AACf,YAAG,eAAS,KAAE,4CAAd,EACE,EAAE,aAAa,CAAC,YAAa,MAAd,CADjB;AAEA,qBAAa,YAAY,CAAC,EAAD;AAEzB,YAAG,CAAY,CAAC,KAAD,SAAf;AAGE,mBAAS,QAAyB,OAApB,YAAM,gBAAC,EAAa,GAAE,CAAF,kBAAlC;AAAI;AAEF,iBAAM,UAAiB,GAAJ,GAAF,GAAQ,qBAAQ,CAAC,CAAD,CAAV;AAEvB,iBAAqB,QAAQ,cAAc,CAAC,IAAD;AAC3C,gBAAG,eAAS,KAAE,4CAAd,EACE,EAAE,aAAa,CAAC,YAAa,MAAd,CADjB;AAEA,cAAE,YAAY,CAAC,EAAD;AAEd,gBAAG,YAAM,oBAAQ,CAAC,CAAD,CAAG,SAAC,EAAM,GAAE,CAA7B;AAEE,6BAAe,CAAC,GAAI,YAAM,oBAAQ,CAAC,CAAD,EAAK,EAAxB;AACf,wBAAU,CAAC,GAAI,GAAI,YAAM,oBAAQ,CAAC,CAAD,CAAvB;;AAIV,mBAAM,gBAAU,CAAC,YAAM,oBAAQ,CAAC,CAAD,EAAK,EAApB;AAChB,gBAAE,YAAY,CAAC,EAAD;AACd,gCAAY,CAAC,YAAM,oBAAQ,CAAC,CAAD,EAAK,EAApB;AAEZ,gBAAE,iBAAiB,CAAC,QAAU,2CAAX;AACnB,gBAAE,iBAAiB,CAAC,WAAa,8CAAd;;;;AAOvB,cAAG,KAAK,YAAR;AACE,cAAE,aAAa,CAAC,QAAQ,wBAAT;AAEf,gBAAA,EAAE,aAAa,CAAC,QAAQ,eAAT;AAEjB,mBAAS,SAAiB,QAAZ,KAAK,SAAC,EAAM,GAAE,CAAF,qBAA1B;AAAI;AAEF,iBAAM,UAAiB,GAAJ,GAAF,GAAQ,qBAAQ,CAAC,CAAD,CAAV;AAEvB,iBAAqB,QAAQ,cAAc,CAAC,IAAD;AAC3C,gBAAG,eAAS,KAAE,4CAAd,EACE,EAAE,aAAa,CAAC,YAAa,MAAd,CADjB;AAEA,cAAE,YAAY,CAAC,EAAD;AAEd,gBAAG,KAAK,QAAK,CAAC,CAAD,CAAG,SAAC,EAAM,GAAE,CAAzB;AAEE,6BAAe,CAAC,GAAI,KAAK,QAAK,CAAC,CAAD,EAAK,EAApB;AACf,wBAAU,CAAC,GAAI,GAAI,KAAK,QAAK,CAAC,CAAD,CAAnB;;AAIV,mBAAM,gBAAU,CAAC,KAAK,QAAK,CAAC,CAAD,EAAK,EAAhB;AAChB,gBAAE,YAAY,CAAC,EAAD;AAEd,gCAAY,CAAC,KAAK,QAAK,CAAC,CAAD,EAAK,EAAhB;AAEZ,gBAAE,iBAAiB,CAAC,QAAU,2CAAX;AACnB,gBAAE,iBAAiB,CAAC,WAAa,8CAAd;;;;AAxEP;AA+EpB,UAAG,CAAY,CAAC,uBAAD,SAAf,EACE,MADF;AAIA,aAAM,uBAAa,WAAW,OAAQ,GAAE,CAAxC,EACE,uBAAa,YAAY,CAAC,uBAAa,WAAd;AAE3B,gBAAU,CAAC,wBAAe,iBAAW,GAAE,UAAF,CAAQ,IAAnC;AACV,6BAAa,MAAM,YAAY,CAAC,WAAW,MAAZ;AA1IF;AAvoBD;AAAX;AAEjB,eAAU,kCAAU,QAAC,YAAM,CAAC,IAAD,CAAN;AAFJ;AAAW;AAxFE;AAAb;AAEjB;AAEA,UAAI,2CAAY,IAAG,oBAAnB;AAEE;AAEA,aAAM,WAAK,MAAI,CAAC,qEAAD;AACf,mBAAK,SAAS,CAAC,GAAG,cAAJ;AAEd,aAAM,WAAK,MAAI,CAAC,qEAAD;AACf,mBAAK,SAAS,CAAC,GAAG,cAAJ;AAEd,aAAM,WAAK,MAAI,CAAC,qEAAD;AACf,mBAAK,SAAS,CAAC,GAAG,cAAJ;AAEd;OAbF;AAgBA,eAAU,QAAQ,cAAc,CAAC,KAAD;AApBf;AAAa;AAiLE;;AAtCG;AAEnC;AAAI;AACJ;AAEA,UAAG,KAAK,SAAC,EAAM,GAAE,CAAjB;AAEE,aAAM,mBAAc,CAAC,KAAD;AAEpB,YAAW,CAAC,EAAD,SAAoC,IAAnB,CAAC,EAAE,cAAH,SAAZ,IAA2C,CAAC,EAAE,cAAc,cAAjB,SAA3D;AAEE,eAAM,EAAE,cAAc,cAAc,cAAc,CAAC,WAAD;AAClD,cAAY,EAAD,QAAX;AAEE,gBAAG,KAAK,YAAR;AACE,gBAAE,UAAU,IAAI,CAAC,UAAD;AAEhB,kBAAA,EAAE,UAAU,OAAO,CAAC,UAAD;AAIrB,cAAE,cAAc,UAAU,OAAO,CAAC,cAAD;WATnC;SAHF;AAgBA,YAAG,gBAAH;AAEE,mBAAS,QAAiB,OAAZ,KAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,gBAAG,KAAK,QAAK,CAAC,CAAD,CAAG,SAAC,EAAM,GAAE,CAAzB;AAEE,mBAAK,QAAK,CAAC,CAAD,CAAG,cAAC,CAAY,KAAK,YAAjB;aAFhB;;SAJJ;OApBF;AALmC;AAsDC;AAGpC,UAAG,UAAH;AACE,yBAAY,KAAZ;AAEA,6BAAY,IAAZ;AANkC;AAyST;AAAV;AAEjB;AACA;AACA;AAGF;AAGE,UAAW,CAAC,EAAD,SAAK,IAAK,EAAE,aAAa,CAAC,IAAD,CAApC;AAEE,YAAK,kBAAa,CAAC,EAAE,cAAC,IAAD,CAAH;AAElB,gBAAS;AAET,YAAG,CAAC,YAAJ;AAEE,cAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAM,EAAG;;;;cAAV,CADd;;AAKA,cAAY,iBAAD,QAAX,EACE,iBAAW,CAAC,KAAM,EAAG;;;;cAAV,CADb;;AAIF,YAAG,KAAH;AAEE,WAAC,cAAC,CAAY,CAAI,CAAC,YAAjB;AAEF,cAAG,CAAC,YAAJ;AAEE,gBAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,KAAM,CAAP,CADZ;;AAKA,gBAAY,iBAAD,QAAX,EACE,iBAAW,CAAC,KAAM,CAAP,CADb;;SAXJ;AAgBA,8BAAiB,CAAC,CAAD;AAEjB,YAAY,iBAAD,QAAX,EACE,iBAAW,CAAC,KAAM,CAAP,CADb;AAGA,iBAAU;AACV,aAAK;;AAIL,YAAY,EAAD,QAAX;AAEE,eAAM,EAAE;AACR,cAAG,EAAE,aAAa,CAAC,IAAD,CAAlB;AAEE,gBAAK,kBAAa,CAAC,EAAE,cAAC,IAAD,CAAH;AAClB,kCAAiB,CAAC,CAAD;AAEjB,gBAAY,iBAAD,QAAX,EACE,iBAAW,CAAC,KAAM,CAAP,CADb;AAGA,qBAAU;AACV,iBAAK;WATP;SAHF;;AArDe;AAAU;AA1HC;AAAX;AAEjB;AACA;AAAG;AAEH,eAAU;AAEZ;AAGE,aAAc,CAAC,EAAD,SAAK,IAAgB,CAAX,EAAE,QAAS,KAAG,MAAH,CAAnC,EACG,KAAqB,EAAE;AAE1B,UAAY,EAAD,QAAX;AAEE,YAAG,EAAE,aAAa,CAAC,IAAD,CAAlB;AAEE,cAAK,kBAAa,CAAC,EAAE,cAAC,IAAD,CAAH;AAElB,cAAI,CAAC,UAAU,IAAG,cAAC,6CAAY,+CAAb,CAAlB;AAEE,kBAAsB,EAAE;AACxB,gBAAG,GAAG,QAAS,KAAE,OAAjB;AAEE,kBAAG,GAAG,cAAC,MAAD,CAAS,KAAE,OAAjB;AACE,+BAAU,CAAC,EAAuB,GAAI,QAA5B;AAEV,oBAAA,eAAU,CAAC,EAAuB,GAAI,QAA5B;AAEZ,eAAC,WAAC,CAA+B,GAAI,QAAnC;aAPJ;WAHF;AAcA,cAAY,aAAD,QAAX,EACE,aAAO,CAAC,IAAD,CADT;AAGA,cAAY,CAAD,QAAX;AAEE,kCAAiB,CAAC,CAAD;AAEjB,gBAAY,iBAAD,QAAX,EACE,iBAAW,CAAC,KAAM,CAAP,CADb;WAJF;SArBF;OAFF;AAbiB;AAAW;AAgDG;AAAd;AAEjB;AACA;AACA;AAEA,eAAU;AAGZ;AAGE,aAAc,CAAC,EAAD,SAAK,IAAgB,CAAX,EAAE,QAAS,KAAG,MAAH,CAAnC,EACG,KAAqB,EAAE;AAE1B,UAAY,EAAD,QAAX;AAEE,YAAG,CAAI,EAAE,aAAa,CAAC,IAAD,CAAtB,EACE,KAAM,EAAE,cADV;AAGA,YAAG,EAAE,aAAa,CAAC,IAAD,CAAlB;AAEE,cAAK,kBAAa,CAAC,EAAE,cAAC,IAAD,CAAH;AAElB,cAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,IAAD,CADZ;AAGA,cAAY,CAAD,QAAX;AAEE,kCAAiB,CAAC,CAAD;AAEjB,oBAAS;AAET,gBAAG,CAAC,YAAJ;AAEE,kBAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAM,EAAG;;;;kBAAV,CADd;;AAKA,kBAAY,iBAAD,QAAX,EACE,iBAAW,CAAC,KAAM,EAAG;;;;kBAAV,CADb;;AAIF,gBAAG,KAAH;AAEE,eAAC,cAAC,CAAY,CAAI,CAAC,YAAjB;AAEF,kBAAG,CAAC,YAAJ;AAEE,oBAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,KAAM,CAAP,CADZ;eAIF,UAAG,CAAI,CAAC,YAAR;AAEE,oBAAY,iBAAD,QAAX,EACE,iBAAW,CAAC,KAAM,CAAP,CADb;eAFF;aAVF;AAkBA,gBAAW,CAAC,CAAD,SAAI,IAAY,CAAC,oBAAD,SAA3B,EACE,oBAAc,CAAC,KAAM,CAAP,CADhB;WAnCF;SAPF;OALF;AAuDA,WAAK;AACL,eAAU;AAvEO;AAAc;AA5aH;AAE5B,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,MAAO,MAAd,CADjB;AAF4B;AAMA;AAE5B,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAM,MAAO,MAAd,CADd;AAF4B;AA+jBH;AAEzB;AAAG;AAAG;AAEN,WAAM;AAEN,UAAI,SAAI,KAAE,EAAV;AAEE,YAAY,WAAK,oBAAQ,CAAC,CAAD,CAAd,QAAX,EACE,sBAAiB,CAAC,WAAK,oBAAQ,CAAC,CAAD,CAAd,CADnB;OAFF;AAMA,UAAQ,CAAJ,SAAI,KAAE,EAAF,CAAU,IAAwB,CAAnB,WAAK,gBAAC,EAAa,GAAE,CAAF,CAA1C;AAEE,aAAM,WAAK,oBAAQ,CAAC,WAAK,gBAAC,EAAa,GAAE,CAAtB;AAEnB,eAAM,EAAE,YAAR;AAEE,cAAG,EAAE,SAAC,EAAM,GAAE,CAAd,EACE,KAAM,EAAE,QAAK,CAAC,EAAE,SAAC,EAAM,GAAC,CAAX,CADf;;AAIF,8BAAiB,CAAC,EAAD;OAVnB;AAaA,UAAI,SAAI,KAAE,EAAV;AAEE,YAAY,EAAD,QAAX;AAEE,cAAG,EAAE,YAAU,IAAc,CAAT,EAAE,SAAC,EAAM,GAAE,CAAF,CAA7B;AAEE,iBAAM,EAAE;WAGR,WAAM,EAAE;AAEV,cAAG,CAAY,CAAC,EAAD,SAAf;AAEE,iBAAM;AACN,iBAAM;AAEN,mBAAM,CAAY,CAAC,EAAE,iBAAH,SAAoB,IAAY,CAAC,EAAE,UAAC,EAAJ,SAAlD;AAEE,mBAAM,EAAE,UAAC;AACT,kBAAY,EAAD,QAAX,EACE,KAAM,EAAE,iBADV;AAGA,kBAAY,EAAD,QAAX;AAEE,qBAAM;eAFR;;WAXJ;AAkBA,cAAY,EAAD,QAAX,EACE,sBAAiB,CAAC,EAAD,CADnB;SA3BF;OAFF;AAkCA,UAAI,SAAI,KAAE,EAAV;AAEE,YAAY,EAAD,QAAX;AAEE,eAAM,EAAE;AACR,cAAY,EAAD,QAAX;AAEE,iBAAM;AACN,mBAAc,CAAC,EAAD,SAAqB,IAAZ,EAAE,YAAN,IAA8B,CAAT,EAAE,SAAC,EAAM,GAAE,CAAF,CAAjD;AAEE,mBAAM,EAAE,QAAK,CAAC,EAAE,SAAC,EAAM,GAAE,CAAZ;AACb,kBAAY,EAAD,QAAX,EACE,KAAM,EADR;;AAIF,kCAAiB,CAAC,EAAD;;AAIjB,iBAAM,kBAAQ,UAAC;AACf,gBAAY,EAAD,QAAX,EACE,sBAAiB,CAAC,EAAD,CADnB;;SAlBJ;OAFF;AA0BA,UAAI,SAAI,KAAE,EAAV;AAEE,YAAY,EAAD,QAAX,EACE,kBAAQ,cAAC,CAAY,IAAZ,CADX;OAFF;AAMA,UAAI,SAAI,KAAE,EAAV;AAEE,YAAY,EAAD,QAAX,EACE,kBAAQ,cAAC,CAAY,KAAZ,CADX;OAFF;AAMA,UAAI,SAAI,IAAG,cAAC,GAAS,GAAU,GAAS,EAA7B,CAAX;AAEE,gBAAO,CAAP;AACA;OAHF;AAMA;AAvGyB;AA/bU;AAEnC;AAEA,cAAS;AAET,UAAW,CAAC,gBAAD,SAAa,IAAa,CAAR,OAAQ,KAAG,kBAAH,CAArC,EACE,gBAAU,CAAC,KAAM,QAAS;;;;UAAhB,CADZ;AAGA,UAAG,KAAM,IAAc,CAAT,kBAAS,KAAG,OAAH,CAAvB;AAEE,yBAAY,OAAZ;AACA,YAAY,cAAD,QAAX,EACE,cAAQ,CAAC,KAAM,OAAP,CADV;OAHF;AATmC;AAgFP;;AACG;AAE7B;AAEA,iBAAS,QAA8B,OAAzB,QAAQ,SAAS,OAAQ,GAAE,CAAF,kBAAvC;AAAI;AAEF,cAAc,QAAQ,SAAS,MAAC,CAAD,CAAI,QAAS,KAAE,IAA9C;AAEa,oBAAQ,SAAS,MAAC,CAAD,CAAI,aAAM,CAAC,YAAgB,MAAjB;AACtC,iCAAqB,CAAY,QAAQ,SAAS,MAAC,CAAD,CAA7B;WAGrB,MAAA,qBAAqB,CAAY,QAAQ,SAAS,MAAC,CAAD,CAA7B;;AAZI;AAgB/B,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,2BAAqB,CAAC,mBAAD;AApBO;AAvGC;;AACK;AAEhC;AAEA,iBAAS,QAA8B,OAAzB,QAAQ,SAAS,OAAQ,GAAE,CAAF,kBAAvC;AAAI;AAEF,cAAc,QAAQ,SAAS,MAAC,CAAD,CAAI,QAAS,KAAE,IAA9C;AAEa,oBAAQ,SAAS,MAAC,CAAD,CAAI,gBAAgB,CAAC,WAAD;AAChD,oCAAwB,CAAY,QAAQ,SAAS,MAAC,CAAD,CAA7B;WAGxB,MAAA,wBAAwB,CAAY,QAAQ,SAAS,MAAC,CAAD,CAA7B;;AAZI;AAgBlC,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,8BAAwB,CAAC,mBAAD;AApBK;AAyIF;AAAV;AAEjB;AAEA,eAAU;AACV,YAAO,iCAAa,CAAC,IAAD;AACpB,UAAY,GAAD,QAAX,EACE,SAAU,GAAG,WADf;AANiB;AAAU;AAqUK;AAEhC,UAAI,QAAS,KAAE,+CAAf;AAEE,4BAAe,yCAAf;OAFF;AAFgC;AA1hBE;AAElC;AAEA;AACA,uBAAa;AACb,oBAAU;AACV,iBAAM,UAAN,GAAmB;AACnB,iBAAM,kBAAN,GAA2B;AACd,iBAAO,mBAApB,GAA0C;AAG1C,YAAO,SAyCe,GAxCpB,yBADe,GAEf,aAD0B,GAE1B,sBADc,GAEd,GADuB,GACjB,MAAF,GAEJ,aAFa,GAGb,oBADc,GAEd,sBADqB,GAErB,GADuB,GACjB,MAAF,GAEJ,oBAFa,GAGb,oBADqB,GAGrB,wBAFoB,GAGpB,oBADyB,GAEzB,GADqB,GACf,MAAF,GAEJ,yBAFa,GAGb,2BADyB,GAEzB,GAD2B,GACtB,MAAF,GAEH,aAFY,GAGZ,kBADc,GAEd,GADmB,GACb,MAAF,GAEJ,aAFa,GAGb,mBADc,GAEd,GADoB,GACd,MAAF,GAEJ,WAFa,GAGb,gBADY,GAEZ,yBADgB,GAEhB,GAD0B,GACpB,MAAF,GAEJ,eAFa,GAGb,mBADgB,GAEhB,GADmB,GACb,MAAF,GAEJ,eAFa,GAGb,8BADgB,GAEhB,mBAD+B,GAE/B,GADoB;AAGtB,0BAAe,CAAC,GAAD;AAEf,UAAI,2CAAY,IAAG,oBAAnB;AAEE,sBAAS,GAAT;AACA,uBAAU,GAAV;OAHF;AA1DkC;AAsER;AAEnB,eAAP,KAAO;AACP;AAH0B;AA9GG;AAE7B;AAF6B;AAkPF;AAE3B;AAEA,UAAG,CAAI,iBAAP;AAEE,yBAAY,IAAZ;AACA;OAHF;AAJ2B;AAyEG;AAAb;AAEjB;AACA;AACA;AACA;AAAE;AAAE;AAGJ,eAAU;AAEV,UAAK;AACL,UAAK,eAAI,CAAC,EAAS,CAAY,CAAX,iBAAW,GAAE,UAAF,CAAZ,QAAoB,GAAE,CAAF,CAAY,CAAD,OAAzC;AAET,UAAI,CAAE,KAAG,EAAT;AAEE,aAAM,uBAAW,QAAC;AAClB,UAAE,aAAC,CAAa,GAAb;AACH,UAAE,iBAAF,GAAsB;AACtB,UAAE,iBAAC,CAAiB,CAAjB;AAEH,YAAK;AACL,iBAAS,QAAc,OAAT,EAAE,SAAC,EAAM,GAAE,CAAF,kBAAvB;AAAI;AAEF,0BAAG,CAAC,EAAE,IAAQ,CAAC,CAAD,EAAK;;;;eAAG;;;;cAAnB;AAEH,cAAI,CAAE,KAAE,CAAR;AACE,gBAAM,WAAK,oBAAQ,CAAC,CAAD;AAEnB,oBAAK,CAAC,QAAK,CAAC,CAAD;;AAEf,UAAG,eAAH,EAAG;AAEH,iBAAU;OAnBZ;AAbiB;AAAa;AApCC;AAAd;AAEjB;AACA;AAEA,eAAU;AACV,WAAM;AAEN,UAAG,CAAY,CAAC,EAAD,SAAf,EACE,aADF;AAGA,UAAK;AAGL;AACE,YAAG,CAAE,KAAE,EAAP;AACE,cAAK,qBAAQ,CAAC,EAAE,SAAC,EAAJ;AAEb,kBAAK,qBAAQ,CAAC,EAAE,SAAC,EAAJ,CAAiB,GAAJ,GAAF,GAAQ,CAAF;AAEhC,aAAM,EAAE,UAAC;OANX,QASoB,EAAD,QATnB;AAWA,UAAK,iBAAwB,GAAX,UAAF,GAAS,GAAF,GAAQ,CAAF;AAE7B,eAAyB,QAAQ,eAAe,CAAC,CAAD;AAEhD,UAAY,MAAD,QAAX;AAEE,YAAG,MAAM,UAAU,SAAS,CAAC,SAAD,CAA5B,EACE,SAAyB,MAAM,WADjC;OAFF;AA7BiB;AAAc;AAsmBP;AAExB,sBAAW,CAAC,KAAD;AAFa;AAtnBI;AAE5B;AAEA,eAAS,QAAwB,OAAnB,WAAK,gBAAC,EAAa,GAAE,CAAF,kBAAjC;AAAI;AACF,mBAAK,oBAAQ,CAAC,CAAD,CAAG,OAAO,CAAC,IAAD;;AALG;AAQE;AAE9B;AAEA,eAAS,QAAwB,OAAnB,WAAK,gBAAC,EAAa,GAAE,CAAF,kBAAjC;AAAI;AACF,mBAAK,oBAAQ,CAAC,CAAD,CAAG,SAAS,CAAC,IAAD;;AALG;AA3+FrB;;;AA2DO,6BpB5eV,uCoB4eU;AACW;AACT,+BpBteV,yCoBseU,yBpByIkD,uBAAC,0CAAQ,wCAAT,CoBzIlD;AAEG;AACF,gCpBrfV,0CoBqfU;AACY,4CpBted,kDoBsec;AACQ,oDpBvetB,kDoBuesB;AACZ,wCpBxeV,kDoBweU;AACP,iCpBxeV,2CoBweU;AACE,mCpBxeV,6CoBweU;AACI,uCpBxeV,iDoBweU;AAEX,4BnBtJV,sCmBsJU;AACS;AACF,mCpBxfZ,2CoBwfY;AAEN,6BFrcN,4CEqcM;AACE,+BpBraV,yCoBqaU;AACG;AACD,iCR5ZV,wCQ4ZU;AACG;AACF,kCpB/fX,2CoB+fW;AACH,+BpB9bN,6CoB8bM;AACQ,uCAxFH,sCAwFG;AACH,oCAzFA,sCAyFA;AACF,kCpBjcT,6CoBicS;AACC,mCA5FJ,iCA4FI;AACG,sCA7FP,iCA6FO;AACF,oCA1FC,uCA0FD;AACJ,gCA/FD,iCA+FC;AACE,kCA9FE,sCA8FF;AAEC,mCAlGJ,iCAkGI;AACC,oCAjGA,sCAiGA;AACF,kCApGH,iCAoGG;AACC,mCAnGC,sCAmGD;AAED,kCpBjcP,+CoBicO;AACA,kCpBncP,+CoBmcO;AACD,iCpBjcP,8CoBicO;AACE,mCpBncP,gDoBmcO;AApGb;AAuGG;;;;AA/oBd,mBAmpBc;AAMD;;AACC;;AAyGQ;AAEpB;AACA;AAAG;AACH;AAEA,UAAI,IAAI,SAAU,KAAE,CAApB;AACE,aAAK,IAAI,CAAC,IAAD;;AAGT,mBAAY,IAAI;AAEhB,oBAAa,iBAAK,QAAC;AACnB,iBAAS,QAAqB,OAAhB,QAAQ,OAAQ,GAAE,CAAF,kBAA9B;AAAI;AAEF,4BAAY,CAAC,QAAQ,MAAC,CAAD,EAAK,SAAd;AACZ,mBAAS,SAAqB,QAAhB,SAAS,SAAC,EAAM,GAAE,CAAF,qBAA9B;AAAI;AACF,iBAAK,IAAI,CAAC,SAAS,KAAC,CAAD,CAAV;;;AAEb,iBAAU,eAAV,SAAU;;AAnBQ;AAhHR;AAnpBd,GAmpBc,+CAnpBd;ACEA,uBAES,6BAFT;;;;AAkP0B;AAAjB;AAGP,QAAY,sBAAD,QAAX;AACE,eAAQ,sBAAiB,CAAC,MAAM,MAAP;AAEzB,mBAAQ;AANH;AAAiB;AASD;AAAhB;AAEP,aAAQ,cAAG,CAAC,sBAAS,CAAC,QAAD,EAAW,sBAAS,CAAC,KAAD,CAA9B,CAAsC,GAAC,CAAD;AAF1C;AAAgB;AAMF;AAAd;AAEP,QAAkB,CAAP,KAAD,OAAQ,IAAU,QAAD,OAAT,CAAqB,IAAc,CAAT,QAAS,KAAG,EAAH,CAArD;AACE,eAAU,qBAAQ,CAAC,SAAS,eAAI,CAAC,MAAM,EAAS,QAAD,OAAf,CAAd;AAElB,mBAAU;AALL;AAAc;AASF;AAAZ;AAEP,QAAU,KAAD,OAAQ,IAAU,QAAD,OAA1B;AACE,eAAU,qBAAQ,CAAC,SAAS,aAAQ,CAAC,MAAa,QAAD,OAAb,CAAlB;AAElB,mBAAU;AALL;AAAY;AASG;AAAf;AAEP,aAAU,0BAAa,CAAC,MAAM,UAAU,QAAQ,cAAC,6CAAa,4CAAd,CAAzB;AAFhB;AAAe;AAMF;AAAb;AAEP,aAAS,kBAAa,CAAC,MAAM,OAAP,CAAe,KAAE,CAAC,CAAH;AAF9B;AAAa;AAMA;AAAb;AAGP;AAGA,aAAQ,CAAC;AACT,QAAiB,CAAT,YAAC,OAAD,MAAS,KAAC,CAAC,CAAF,CAAK,IAAiB,CAAT,YAAC,OAAD,MAAS,GAAC,UAAD,CAAvC,EACE,aADF;AAEA,aAAU,QAAiB,kBAAC,OAAD,uBAA3B;AAAI;AACD,UAAG,wBAAW,CAAC,OAAO,CAAC,CAAD,EAAI,KAAZ,CAAkB,KAAC,CAAjC,EACM,OAAC,CADP;;AAVI;AAAa;AAyxDH;AAAV;AAEP,aAAU,mBAAc,CAAC,SAAU,KAAX;AAFjB;AAAU;AAMF;AAAR;AAEP,aAAU,iBAAY,CAAC,SAAU,KAAX;AAFf;AAAQ;AAKK;AAAb;AAEP,QAAY,kBAAD,QAAX;AACE,eAAU,kBAAa,CAAC,MAAO,MAAR;AAEvB,mBAAU;AALL;AAAa;AAQD;AAAZ;AAEP,aAAU,qBAAgB,CAAC,MAAO,QAAR;AAFnB;AAAY;AAKH;AAAT;AAEP,aAAU,kBAAa,CAAC,MAAO,OAAR;AAFhB;AAAS;AAKA;AAAT;AAEP,aAAU,kBAAa,CAAC,MAAO,OAAR;AAFhB;AAAS;AAnyDM;AAAf;AAEP,aAAU,cAAG,CAAC,SAAS,KAAV,CAAgB,GAAC,CAAD;AAFtB;AAAe;AAMF;AAAb;AAEP,QAAkB,CAAP,KAAD,OAAQ,IAAU,QAAD,OAAT,CAAqB,IAAc,CAAT,QAAS,KAAG,EAAH,CAArD;AACE,eAAW,QAAQ,KAAC,eAAI,CAAC,MAAM,EAAS,QAAD,OAAf,CAAL;AAEnB,mBAAU;AALL;AAAa;AASF;AAAX;AAEP,QAAU,KAAD,OAAQ,IAAU,QAAD,OAA1B;AACE,eAAW,QAAQ,KAAC,aAAQ,CAAC,MAAa,QAAD,OAAb,CAAT;AAEnB,mBAAU;AALL;AAAW;AASG;AAAd;AAEP,aAAU,0BAAa,CAAC,MAAM,UAAU,QAAQ,cAAC,4CAAD,CAAzB;AAFhB;AAAc;AAMF;AAAZ;AAEP,aAAQ,iBAAY,CAAC,MAAM,OAAP,CAAe,KAAE,CAAC,CAAH;AAF5B;AAAY;AAMA;AAAZ;AAEP;AAEA,aAAQ,CAAC;AACT,QAAiB,CAAT,YAAC,OAAD,MAAS,KAAC,CAAC,CAAF,CAAK,IAAiB,CAAT,YAAC,OAAD,MAAS,GAAC,UAAD,CAAvC,EACE,aADF;AAEA,aAAU,QAAiB,kBAAC,OAAD,uBAA3B;AAAI;AACD,UAAI,OAAO,CAAC,CAAD,CAAG,KAAC,KAAf,EACM,OAAC,CADP;;AARI;AAAY;AAaJ;AAAR;AAEP,aAAU,aAAQ,CAAC,MAAM,OAAP,CAAgB,KAAG,CAAC,CAAJ;AAF3B;AAAQ;AAMA;AAAR;AAEP;AAEA,aAAU,CAAC;AACX,QAAkB,CAAV,YAAC,OAAD,MAAU,KAAE,CAAC,CAAH,CAAM,IAAkB,CAAV,YAAC,OAAD,MAAU,GAAE,UAAF,CAA1C,EACE,aADF;AAEA,aAAY,QAAiB,kBAAC,OAAD,uBAA7B;AAAI;AACD,UAAI,OAAO,CAAC,CAAD,CAAI,KAAE,KAAjB,EACM,OAAC,CADP;;AARI;AAAQ;AAivDG;AAAX;AAEP,aAAU,oBAAe,CAAC,MAAO,QAAR;AAFlB;AAAW;AAKF;AAAT;AAGP,aAAU,kBAAa,CAAC,SAAU,KAAX;AAHhB;AAAS;AAMF;AAAP;AAGP,aAAU,gBAAW,CAAC,SAAU,KAAX;AAHd;AAAO;AA5uDG;AAAV;AAEL;AAGH,aAAQ;AACR,aAAO,QAAK,+BAAZ;AAAI;AACF,eAAQ,MAAM,GAAC,KAAD;;AAPR;AAAU;AAUG;AAAb;AAGP;AAAE;AAGQ,UAAD,oBAAC,OAAc,KAAD,OAAd;AACT,QAAG;AAAG,QAAU,KAAD;AACf,WAAO,CAAC,IAAE,CAAV;AAEE,YAAM,iBAAN,OAAO,MAAI,KAAK,QAAI,CAAF,CAAD,CAAC,GAAC,CAAD,CAAE,GAAC,CAAD,KAAJ,CAAV;AACF,OAAJ,IAAG;;AAXE;AAAa;AAgBI;AAAjB;AAGP,aAAQ,kBAAa,CAAC,KAAD;AAHd;AAAiB;AAON;AAAX;AAEL;AAAE;AAAE;AAGN,QAAU,QAAD;AACT,QAAU,KAAD;AACT,QAAG,MAAM,GAAC,CAAV,EACE,SAAQ,CAAC,GAAC,CADZ;AAEA,QAAI,CAAD,CAAC,GAAC,CAAD,CAAE,GAAC,MAAD;AACN,QAAG,OAAO,GAAE,CAAZ,EACE,UAAS,CADX;AAEU,UAAD,oBAAC,OAAQ,CAAD,CAAC,GAAC,CAAD,CAAE,GAAC,OAAZ;AACT,aAAQ,eAAI,CAAC,MAAM,EAAE,MAAM,GAAC,CAAhB,CAAqC,GAAlB,eAAI,CAAC,SAAS,EAAE,CAAZ,CAAL,GAAoB,eAAI,CAAC,MAAM,MAAM,GAAC,OAAD,CAAU,CAAD,CAAC,GAAC,CAAD,CAAS,GAAN,MAAD,GAAQ,OAAjC,CAAL;AAb1C;AAAW;AAgBD;AAAV;AAGP,QAAO,YAAC,OAAD,MAAS,KAAC,CAAC,CAAlB,EAA6B,OAAC,EAA9B;AACA,aAAQ,OAAO,CAAC,iBAAM,CAAK,YAAC,OAAD,MAAS,GAAC,CAAf,CAAP;AAJR;AAAU;AAOJ;AAAN;AAGP,QAAG,MAAH;AACE,eAAQ;AAER,mBAAQ;AANH;AAAM;AA+JY;AAAlB;AAEP,aAAU,yBAAkB,CAAC,GAAI,GAAI,2BAAc,kBAAkB,2BAAc,kBAAvD;AAFrB;AAAkB;AAtJA;AAAlB;AAoBP;AAAM;AACN;AAAO;AACP;AAAM;AACN;AAAU;AACV,mBAAmB;AACnB,mBAAmB;AACnB;AACA;AAEa;AAAJ;AAGP,UAAG,MAAM,GAAC,CAAV;AACE,iBAAQ,CAAC;AACN,gBAAG,MAAM,GAAC,CAAV;AACH,iBAAQ;AAER,qBAAQ;AARH;AAAI;AAWI;AAAR;AAEP,eAAU,eAAG,IAAG,cAAI,KAAH,GAAK,EAAN,CAAH;AAFN;AAAQ;AAKE;AAAV;AAGP,eAAU;AACV,aAAU,CAAH,SAAG,IAAS,OAAD,OAAR,CAAmB,IAAI,QAAQ,CAAC,OAAO,QAAC,aAAD,CAAR,CAAzC;AAEE,iBAAwB,CAAN,CAAP,MAAO,GAAE,EAAF,CAAM,GAAM,OAAD,YAAS,SAAD,IAAR,CAAL,CAAoB,GAAK,EAAL;AANe,WAO3D,KAP2D,GAO3D,SAAG,CAAH;AAPyC,WAQzC,KARyC,GAQzC,SAAG,CAAH;;AARK;AAAU;AAYD;AAGhB,iBAAY;AACZ,aAAM,CAA4B,CAAvB,IAAI,YAAO,CAAN,KAAM,GAAE,QAAF,KAAP,CAAmB,IAAG,cAAI,KAAH,GAAK,EAAN,CAAH,CAAe,IAAuB,CAAX,CAAN,KAAM,GAAE,QAAF,CAAW,IAAS,IAAD,OAAR,CAAxE,EACM,QAAJ,IAAG;AACL,iBAAU;AACV,UAAK;AACL,UAAK;AACL,aAAM,CAAE,IAAG,QAAX;AAEE,mBAAY,QAAQ,GAAC,IAAI,QAAO,CAAN,KAAM,GAAE,CAAF,KAAP,CAAL;AAChB,SAAJ,IAAG;AACC,SAAJ,IAAG;;AAGL,iBAAY;AACZ,aAAM,CAA4B,CAAvB,IAAI,YAAO,CAAN,KAAM,GAAE,QAAF,KAAP,CAAmB,IAAG,cAAI,KAAH,GAAK,EAAN,CAAH,CAAe,IAAuB,CAAX,CAAN,KAAM,GAAE,QAAF,CAAW,IAAS,IAAD,OAAR,CAAxE,EACM,QAAJ,IAAG;AACL,UAAK;AACL,UAAK;AACL,aAAM,CAAE,IAAG,QAAX;AAEE,mBAAY,QAAQ,GAAC,IAAI,QAAO,CAAN,KAAM,GAAE,CAAF,KAAP,CAAL;AAChB,SAAJ,IAAG;AACC,SAAJ,IAAG;;AAzBW;AA8BlB,QAAS,CAAL,IAAK,KAAG,EAAH,CAAO,IAAU,CAAL,IAAK,KAAG,EAAH,CAA1B;AAEE,cAAS;AACT,cAAS;AACT,eAAU;AACV,aAAY,CAAL,KAAK,IAAS,IAAD,OAAR,CAAgB,IAAW,CAAN,KAAM,IAAS,IAAD,OAAR,CAAvC;AAEE,mBAAY;AACZ,mBAAY;AACZ,eAAQ;AACR,eAAQ;AACR,eAAO,IAAI,QAAC,SAAD,CAAQ,KAAE,GAArB;AAEM,eAAJ,IAAG;AACC,cAAJ,IAAG;;AAEL,eAAO,IAAI,QAAC,SAAD,CAAQ,KAAE,GAArB;AAEM,eAAJ,IAAG;AACC,cAAJ,IAAG;;AAEL,YAAG,QAAQ,CAAC,IAAI,QAAC,SAAD,CAAL,CAAc,IAAI,QAAQ,CAAC,IAAI,QAAC,SAAD,CAAL,CAArC;AAEG,iBAAQ,UAAU,CAAC,KAAK;;;;eAAO;;;;cAAb;AAClB,iBAAQ,UAAU,CAAC,KAAM;;;;eAAO;;;;cAAd;AACnB,cAAG,IAAK,GAAE,IAAV;AACE,qBAAU,CAAC;AACR,oBAAG,IAAK,GAAE,IAAV;AACH,qBAAU;;AAGV,qBAAU,IAAI,CAAC,IAAK,GAAE,IAAR;;AAEZ,eAAJ,IAAG;AACC,eAAJ,IAAG;;AAIH;AACA,cAAG,QAAS,KAAG,QAAf;AACE,qBAAU,wBAAW,CAAC,SAAU,QAAX;AAErB,yBAAU;;AAEd,YAAG,MAAO,KAAG,CAAb,EACE,KADF;AAEI,aAAJ,IAAW;AACP,aAAJ,IAAW;;KA/Cf;AAkDA,WAAa,IAAD;AACZ,WAAa,IAAD;AACZ,QAAW,CAAP,MAAO,KAAE,CAAF,CAAK,IAAU,CAAL,IAAK,KAAG,IAAH,CAA1B;AAEE,UAAG,IAAK,GAAE,IAAV;AACE,iBAAU,CAAC;AAEX,qBAAU;KALd;AAOA,QAAG,aAAa,KAAC,EAAjB;AACA,QAAG,kBAAkB,KAAC,EAAtB;AAnJO;AAAkB;AA+JX;AAAP;AAGP,aAAQ,eAAI,CAAC,MAAM,EAAE,MAAT;AAHL;AAAO;AAMC;AAAR;AAEL;AAAE;AAGJ,QAAU,KAAD;AACT,QAAG;AACH,QAAG,CAAC,GAAC,CAAL,EAAY,IAAG,CAAf;AACA,aAAQ,eAAI,CAAC,MAAO,CAAD,CAAC,GAAC,CAAD,CAAE,GAAC,CAAD,CAAG,CAAb;AARL;AAAQ;AAWF;AAAN;AAGP,QAAU,CAAN,MAAM,KAAC,CAAD,CAAI,IAAU,CAAN,MAAM,GAAQ,KAAD,OAAP,CAAxB,EACM,OAAC,EADP;AAEA,aAAQ,eAAI,CAAC,MAAM,OAAO,MAAd;AALL;AAAM;AAiBG;AAAT;AAEP,aAAQ,aAAQ,CAAC,MAAM,UAAP;AAFT;AAAS;AAMF;AAAP;AAEP,aAAQ,WAAM,CAAC,MAAM,WAAW,UAAlB;AAFP;AAAO;AAMI;AAAX;AAEP,aAAU,eAAI,CAAC,MAAM,EAAE,MAAT;AAFP;AAAW;AAMC;AAAZ;AAEP,aAAU,eAAI,CAAC,MAAmB,CAAN,KAAD,OAAO,GAAC,MAAD,CAAO,GAAC,CAAD,CAAG,MAA9B;AAFP;AAAY;AAMF;AAAV;AAEP,aAAQ,eAAI,CAAC,MAAM,OAAO,MAAd;AAFL;AAAU;AA/BF;AAAR;AAGP,aAAQ,YAAO,CAAC,MAAM,UAAP;AAHR;AAAQ;AAviBM;AAArB;AAGiB,2BAAM;AACH,8BAAG;AAGJ;;AACC,0CADD,2CACC;AAokBR;AAAL;AAIP,aAAwB,CAAN,IAAV,MAAU,CAAI,CAAJ,CAAM,SAAQ,CAAC,OAAO,MAAM,GAAC,CAAf,CAAiB,GAAC,CAAD;AAJ1C;AAAK;AAYA;AAAL;AAGP,aAAQ,UAAK,CAAC,OAAO,EAAE,CAAV;AAHN;AAAK;AALA;AAAL;AAEP,aAAwB,CAAN,IAAV,MAAU,CAAI,CAAJ,CAAM,SAAQ,CAAC,EAAE,MAAM,GAAC,CAAV,CAAY,GAAC,CAAD;AAFrC;AAAK;AAYS;AAAd;AAEL;AAAG;AAAI;AACP;AACA;AACA;AACA;AACA;AAGF,SAAY,WAAC,UAAD;AACZ,QAAG,EAAG,KAAS,WAAC,UAAD,CAAf,EACE,MAAM,sBAAS,QAAC,YAAM,CAAC,sBAAD,CAAN,CADlB;AAGI,MAAJ,IAAG;AAEH,QAAG,4CAAa,IAAG,KAAnB;AAEE,gBAAS,sBAAS,CAAC,CAAD;AAClB,eAAgB,QAAK,2BAArB;AAAI;AACF,kBAAU,CAAC,QAAD,CAAV,GAAwB,sBAAS,CAAC,UAAU,CAAC,QAAD,CAAX;;KAGnC,gBAAW;AAEb,aAAU;AACV,SAAM;AACN,UAAO;AACP,aAAU,EAAE,GAAQ,CAAD,OAAP;AAEZ,WAAM,EAAG,GAAE,MAAX;AAEE,cAAS;AACT,eAAgB,SAAK,+BAArB;AAAI;AAEF,YAAI,eAAI,CAAC,QAAQ,GAAU,UAAU,CAAC,QAAD,CAAX,OAAlB,CAAyC,KAAC,UAAU,CAAC,QAAD,CAA5D;AAEE,mBAAU,MAAO,GAAE,UAAU,CAAC,QAAD,CAAZ;AACjB,eAAM,EAAE,GAAQ,UAAU,CAAC,QAAD,CAAX,OAAP;AACR,gBAAO,GAAG,GAAQ,UAAU,CAAC,QAAD,CAAX,OAAP;AACV,kBAAS;SALX;;AAQF,UAAG,CAAI,KAAP;AAEE,iBAAU,MAAO,GAAE,CAAC,QAAC,OAAD,CAAH;AACb,UAAJ,IAAG;AACC,WAAJ,IAAG;OAEA,UAAG,CAAkB,CAAb,4CAAa,IAAG,KAAH,CAArB;AAEH,iBAAU,MAAO,GAAE,eAAI,CAAC,EAAE,IAAa,CAAF,CAAD,OAAG,GAAC,GAAD,CAAI,GAAC,CAArB,CAAN;AACjB;OAHG;;AAMP,aAAU;AAvDH;AAAc;AA8DJ;AAAV;AAEP,aAAQ,mBAAc,CAAC,MAAO,UAAW,OAAnB;AAFf;AAAU;AAKC;AAAX;AAEP,aAAQ,oBAAe,CAAC,MAAO,UAAW,OAAnB;AAFhB;AAAW;AAtoBJ;AA2pBA;AAAP;AAGP;AAAE;AACF;AAAE;AAGF,aAAQ;AACR,SAAI;AACJ,QAAU,KAAD,OAAO,GAAC,CAAjB;AAEE,eAAQ,iBAAM,CAAC,KAAK,QAAC,CAAD,CAAN;AACd,UAAG;AACH,UAAU,KAAD;AACT,aAAQ,CAAD,CAAC,IAAE,CAAF,CAAK,IAAmB,CAAP,MAAD,OAAQ,GAAC,OAAD,CAAhC;AAEE,YAAG,YAAM,QAAK,KAAD,YAAO,CAAD,IAAN,KAAJ;AACT,YAAG,CAAO,CAAF,cAAE,IAAG,cAAC,GAAI,IAAI,eAAT,CAAH,CAAV,EACE,SAAQ,MAAM,GAAC,CADjB;AAEA,YAAI,CAAC,KAAE,GAAP,EACE,KAAI,CADN;AAEI,SAAJ,IAAG;;KAZP;AAeA,QAAU,MAAD;AACT,QAAI,CAAC,GAAC,OAAN,EACE,SAAQ,MAAM,GAAC,uBAAY,CAAC,IAAI,OAAO,GAAC,CAAb,CAD7B;AAzBO;AAAO;AA+BA;AAAP;AAGP,aAAQ,YAAO,CAAC,MAAM,CAAP;AAHR;AAAO;AAprBG;AA8rBA;AAAV;AAGP;AACA;AAGA,aAAQ,CAAC;AACT,SAAI,YAAO,CAAC,MAAM,OAAP;AACX,QAAU,EAAD,OAAI,GAAC,CAAd;AAEE,eAAY,EAAD,YAAI,CAAD,IAAH,CAAO,GAAC,EAAD;AAClB,UAAG,OAAQ,GAAE,CAAb;AAEE,iBAAc,CAAN,MAAM,GAAC,EAAD,CAAG,GAAY,CAAN,EAAD,YAAI,CAAD,IAAH,CAAO,GAAC,EAAD,CAAZ;AACjB,iBAAO,QAAK,gCAAZ;AAAI;AACF,mBAAmB,CAAN,EAAD,YAAI,CAAD,IAAH,CAAO,GAAC,EAAD,CAAM,GAAO,CAAN,MAAM,GAAC,CAAD,CAAP;;OAJ7B;AAMA,eAAQ,OAAO,GAAO,CAAN,MAAM,GAAC,CAAD,CAAP;KATjB;AATO;AAAU;AAuBA;AAAV;AAEP,aAAQ,eAAU,CAAC,MAAM,CAAP;AAFX;AAAU;AAMM;AAAhB;AAGP;AAAG;AAGH,aAAU;AACV,UAAO,MAAO,GAAI,CAAJ;AACd,aAAiB,UAAP,MAAO,GAAI,CAAJ;AACjB,aAAO,UAAW,aAAlB;AAAI;AAEF,eAAW,oBAAC,EAAI,GAAS,CAAP,MAAO,GAAI,CAAJ,CAAd,CAAqB,GAAC,MAAD;AAChC,eAAe,UAAP,MAAO,GAAI,CAAJ;;AAEjB,QAAG,GAAG,GAAC,CAAP;AAEE,eAAW,oBAAC,EAAI,GAAS,CAAP,MAAO,GAAI,EAAJ,CAAd,CAAsB,GAAC,MAAD;AACjC,eAAe,UAAP,MAAO,GAAI,EAAJ;KAHjB;AAKA,aAAW,oBAAC,EAAI,GAAC,MAAN,CAAa,GAAC,MAAD;AAnBjB;AAAgB;AAuBL;AAAX;AAGP;AAGA,QAAG,YAAO,CAAC,MAAM,CAAP;AACV,aAAY,CAAD,YAAG,CAAD,IAAF,CAAM,GAAC,EAAD;AACjB,aAAiB,CAAH,CAAN,MAAM,GAAC,EAAD,CAAG,GAAK,CAAD,YAAG,CAAD,IAAF,CAAJ,CAAU,GAAC,EAAD;AAC3B,aAAgB,CAAF,CAAN,MAAM,GAAC,CAAD,CAAE,GAAK,CAAD,YAAG,CAAD,IAAF,CAAJ,CAAU,GAAC,EAAD;AAC1B,aAAgB,CAAF,CAAN,MAAM,GAAC,CAAD,CAAE,GAAK,CAAD,YAAG,CAAD,IAAF,CAAJ,CAAU,GAAC,EAAD;AAVnB;AAAW;AAcM;AAAjB;AAEP,aAAa,oBAAC,EAAI,GAAU,CAAP,MAAO,GAAI,CAAJ,CAAf;AACb,aAAiB,UAAP,MAAO,GAAI,CAAJ;AACjB,aAAa,oBAAC,EAAI,GAAU,CAAP,MAAO,GAAI,CAAJ,CAAf,CAAuB,GAAE,MAAF;AACpC,aAAiB,UAAP,MAAO,GAAI,CAAJ;AACjB,aAAU,qBAAQ,CAAC,MAAO,GAAI,EAAZ,CAAgB,GAAE,MAAF;AAClC,aAAiB,UAAP,MAAO,GAAI,EAAJ;AACjB,aAAa,oBAAC,EAAI,GAAC,MAAN,CAAc,GAAE,MAAF;AARpB;AAAiB;AAYH;AAAd;AAEP,aAAQ,YAAO,CAAC,MAAM,OAAP,CAAe,KAAC,YAAO,CAAC,OAAO,OAAR,CAAR;AAFvB;AAAc;AAMA;AAAd;AAEP,aAAQ,mBAAc,CAAC,MAAM,OAAO,CAAd;AAFf;AAAc;AAMA;AAAd;AAEP,aAAQ,2BAAc,CAAC,YAAO,CAAC,MAAM,OAAP,EAAgB,YAAO,CAAC,OAAO,OAAR,CAA/B;AAFf;AAAc;AAMA;AAAd;AAEP,aAAQ,mBAAc,CAAC,MAAM,OAAO,CAAd;AAFf;AAAc;AAMH;AAAX;AAEP,aAAQ,qBAAc,CAAC,MAAM,MAAP;AAFf;AAAW;AAtxBF,qEAAuB,uBAAQ,uBAA/B;AAGhB;AACA;AAMyB;;AAuxBR;AAAV;AAGP;AAAE;AAGF,QAAU,CAAD;AACT,QAAG;AACH,aAAQ;AACR,WAAM,MAAO,IAAM,CAAD,CAAC,IAAE,CAAF,CAAnB;AAEE,eAAQ,sBAAS,CAAC,CAAC,QAAC,KAAD,EAAI,UAAN;AACb,OAAJ,IAAG;;AAZE;AAAU;AAgBF;AAAR;AAGP,aAAQ,aAAQ,CAAC,EAAE,GAAH;AAHT;AAAQ;AAMA;AAAR;AAGP;AAAE;AAGF,aAAQ;AACR,QAAU,MAAD;AACT,WAAM,CAAC,GAAC,CAAR;AAEE,UAAG,MAAM,QAAC,KAAD,CAAG,KAAC,GAAb;AAEE,YAAG,CAAC,GAAC,CAAD;AACJ,eAAQ,CAAD,CAAC,GAAC,CAAD,CAAI,IAAc,CAAT,MAAM,QAAC,KAAD,CAAG,KAAC,GAAD,CAA1B,EACM,CAAJ,IAAG;AACL,yBAAM,CAAC;;;;aAAO,CAAC,GAAC,CAAD,CAAG,CAAC,GAAC,CAAd;AACN,YAAG,CAAC,GAAC,CAAD;OANN;AAQI,OAAJ,IAAG;;AAlBE;AAAQ;AAsBC;AAAT;AAGP;AAGA,aAAQ;AACR,aAAa,KAAC,MAAD,SAAgB,aAA7B;AAAI;AACF,UAAa,CAAT,MAAM,QAAC,KAAD,CAAG,KAAC,GAAD,CAAM,IAAgB,CAAX,MAAM,QAAC,CAAC,GAAC,CAAD,IAAF,CAAK,KAAC,GAAD,CAAnC,EACE,iBAAM,CAAC;;;;WAAO,EAAE,CAAV,CADR;;AARK;AAAS;AAYA;AAAT;AAGP;AAGA,QAAG;AACH,aAAQ;AACR,WAAM,CAAE,IAAU,MAAD,OAAjB,EACE,IAAG,MAAM,QAAC,KAAD,CAAG,KAAK,oBAAC,CAAD,CAAjB;AACM,OAAJ,IAAG;;AAGH,YAAM,iBAAN,OAAO,MAAI,GAAL;AACN,UAAI,IAAI,GAAC,CAAT,EACE,iBAAM,CAAC,uBAAY,CAAC,IAAI,IAAI,GAAC,CAAV,EAAa;;;;WAAO,CAAjC,CADR;AAEI,OAAJ,IAAM;;AAhBH;AAAS;AAoBL;AAAJ;AAGP;AAAE;AAAE;AAGJ,aAAQ;AACR,QAAG,CAAC,GAAC,CAAL,EACE,aADF;AAEA,QAAG;AACH,QAAG;AACH;AACE,UAAG,cAAG,CAAC,EAAE,CAAH;AACF,OAAJ,IAAM;AACN,UAAG,CAAC,GAAC,CAAL,EACE,iBAAM,CAAC;;;;WAAE,EAAE,CAAL,CADR;AAEI,OAAJ,IAAG;KALL,QAMY,EAAJ,CAAD,CAAC,GAAC,CAAD,CAAI,IAAK,CAAD,CAAC,KAAC,CAAD,CAAL,CANZ;AAOA,QAAI,CAAC,GAAC,CAAN,EACE,SAAQ,CADV;AAlBO;AAAI;AA+6BE;AAAN;AAGR,aAAwB,CAAN,IAAV,MAAU,CAAI,CAAJ,CAAM,aAAY,CAAC,EAAE,IAAI,GAAC,CAAR,CAAU,GAAC,CAAD;AAHtC;AAAM;AAiBA;AAAN;AAGP,aAA6B,CAAX,IAAV,MAAU,CAAI,MAAJ,CAAW,aAAY,CAAC,OAAO,IAAI,GAAC,CAAb,CAAe,GAAC,CAAD;AAHjD;AAAM;AAXF;AAAJ;AAGP,aAAQ,aAAM,CAAQ,EAAG,EAAS,CAAD,OAAnB;AAHP;AAAI;AAMA;AAAJ;AAEP,aAAQ,aAAM,CAAC,OAAO,OAAc,MAAD,OAArB;AAFP;AAAI;AAr6BG;AAAP;AAGP;AAGA,aAAQ;AACR,QAAU,MAAD;AACT,QAAG,CAAC,GAAC,CAAL,EACE,SAAQ,uBAAY,CAAC,EAAE,CAAC,GAAC,CAAL,CAAO,GAAC,MAD9B;AARO;AAAO;AAYC;AAAR;AAGP;AAGA,aAAQ;AACR,QAAU,MAAD;AACT,QAAG,CAAC,GAAC,CAAL,EACE,SAAQ,MAAM,GAAC,uBAAY,CAAC,EAAE,CAAC,GAAC,CAAL,CAD7B;AARO;AAAQ;AAmBD;AAAP;AAEP,aAAQ,YAAO,CAAC,IAAI,EAAE,CAAP;AAFR;AAAO;AANC;AAAR;AAEP,aAAQ,aAAQ,CAAC,IAAI,EAAE,CAAP;AAFT;AAAQ;AAwOC;AAAT;AAEP,QAAU,CAAD,OAAG,GAAC,GAAb;AAEE,eAAQ,uBAAY,CAAC,IAAS,UAAJ,GAAI,GAAI,CAAJ,CAAO,GAAY,UAAH,CAAD,OAAI,GAAI,CAAJ,CAA7B,CAAoC,GAAC,CAAD;AACxD,eAAQ,MAAM,GAAC,uBAAY,CAAC,IAAI,GAAG,GAAQ,MAAD,OAAf,CAAb;KAGd,eAAQ;AARH;AAAS;AA5NA;AAAT;AAGP;AAGA,QAAG,cAAG,CAAC,KAAK,CAAN;AACN,QAAG,CAAC,KAAC,CAAL,EACE,IAAU,CAAD,OAAG,GAAC,CADf;AAEA,aAAQ,eAAI,CAAC,EAAE,EAAE,CAAC,GAAC,CAAP;AATL;AAAS;AAYG;AAAZ;AAGP;AAGA,QAAG,cAAG,CAAC,KAAK,OAAN;AACN,QAAG,CAAC,KAAC,CAAL;AAEI,eAAQ;AACR,YAAG,EAAH;;AAIA,eAAQ,eAAI,CAAC,QAAE,EAAE,CAAC,GAAC,CAAP;AACZ,uBAAM,CAAC,EAAE,EAAE,CAAL;;AAfH;AAAY;AAmBF;AAAV;AAEP,aAAQ,cAAS,CAAC,EAAE,GAAH;AAFV;AAAU;AAKG;AAAb;AAEP,aAAQ,iBAAY,CAAC,EAAE,GAAH;AAFb;AAAa;AAKC;AAAd;AAGP;AAAE;AAGF,aAAQ,sBAAS,CAAC,CAAD;AACjB,QAAG;AACH,QAAU,MAAD;AACT,WAAO,CAAC,IAAE,CAAV;AAEE,aAAQ,CAAD,CAAC,IAAE,CAAF,CAAK,IAAK,sBAAS,CAAC,MAAM,QAAC,KAAD,EAAI,UAAX,CAA3B,EACM,CAAJ,IAAG;AACL,UAAI,CAAC,IAAE,CAAP,EACE,MAAM,iBAAN,OAAO,MAAI,iBAAM,CAAC,MAAM,QAAC,KAAD,CAAP,CAAX,CADR;AAEA,aAAQ,CAAD,CAAC,IAAE,CAAF,CAAK,IAAI,CAAI,sBAAS,CAAC,MAAM,QAAC,KAAD,EAAI,UAAX,CAA9B,EACM,CAAJ,IAAG;;AAhBA;AAAc;AAoBL;AAAT;AAGP;AAAE;AAGF,aAAQ;AACR,QAAG;AACH,QAAU,CAAD;AACT,WAAO,CAAC,IAAE,CAAV;AAEE,aAAQ,CAAD,CAAC,IAAE,CAAF,CAAK,IAAK,sBAAS,CAAC,CAAC,QAAC,KAAD,EAAI,UAAN,CAA3B,EACM,CAAJ,IAAG;AACL,UAAI,CAAC,IAAE,CAAP,EACM,MAAJ,IAAG,CADL;AAEA,aAAQ,CAAD,CAAC,IAAE,CAAF,CAAK,IAAI,CAAK,sBAAS,CAAC,CAAC,QAAC,KAAD,EAAI,UAAN,CAA/B,EACM,CAAJ,IAAG;;AAhBA;AAAS;AAoBG;AAAZ;AAGP;AAAG;AAAE;AAAG;AAGR,aAAQ;AACR,YAAO;AACP,SAAI;AACJ,SAAW,CAAD;AACV,QAAG;AACH,WAAQ,CAAD,CAAC,IAAE,EAAF,CAAM,IAAU,CAAL,KAAK,KAAE,CAAF,CAAxB;AAEE,aAAQ,CAAD,CAAC,IAAE,EAAF,CAAM,IAAI,sBAAS,CAAC,CAAC,QAAC,KAAD,EAAI,UAAN,CAA3B,EACM,CAAJ,IAAG;AACL,UAAI,CAAC,IAAE,EAAP,EACM,KAAJ,IAAG,CADL;AAEA,UAAI,KAAK,KAAE,CAAX;AACE,eAAQ,CAAD,CAAC,IAAE,EAAF,CAAM,IAAI,CAAI,sBAAS,CAAC,CAAC,QAAC,KAAD,EAAI,UAAN,CAA/B,EACM,CAAJ,IAAG;AAEL,qBAAU,CAAD,CAAC,GAAC,EAAD,CAAI,GAAC,CAAD;;AArBX;AAAY;AA0BD;AAAX;AAEP;AAEA,aAAQ,mBAAc,CAAC,EAAE,EAAE,WAAW;;;;QAAhB;AAJf;AAAW;AAQG;AAAd;AAGP;AAAE;AAAE;AAGJ,QAAG;AACH,QAAG,iBAAY,CAAC,EAAG,EAAG,UAAP;AACf,QAAI,CAAC,GAAC,UAAN;AAEE,eAAQ;AACR,cAAK,CAAC,CAAN;AACA;KAJF;AAMA,YAAK,CAAL;AACA,QAAI,CAAC,KAAE,CAAP;AAEE,UAAG;AACH,UAAU,CAAD;AACT,aAAQ,CAAD,CAAC,IAAE,CAAF,CAAK,IAAI,CAAI,sBAAS,CAAC,CAAC,QAAC,KAAD,EAAI,UAAN,CAA9B,EACM,CAAJ,IAAG;KALP;AAOA,aAAQ,eAAI,CAAC,EAAE,EAAE,CAAC,GAAC,CAAP;AAtBL;AAAc;AA0BE;AAAhB;AAEP;AAAE;AAAE;AAAE;AAEN,QAAG;AACH,QAAG;AACH,QAAG;AACH,UAAY,CAAD;AACD,UAAD,oBAAC,OAAQ,CAAT;AACT,WAAQ,CAAD,CAAC,IAAE,GAAF,CAAO,IAAM,CAAD,CAAC,KAAE,CAAF,CAArB;AAEE,UAAG,sBAAS,CAAC,CAAC,QAAC,KAAD,EAAI,MAAN,CAAZ;AACM,SAAJ,IAAG;;AAGH,YAAK,CAAD,CAAC,GAAC,CAAD,CAAG,KAAC,CAAT;AAEM,WAAJ,IAAG;AACH,mBAAQ,MAAM,GAAC,CAAC,QAAC,KAAD,CAAF;SAHhB;;AAME,OAAJ,IAAG;;AArBE;AAAgB;AA0BH;AAAb;AAGP;AAAE;AAGF,QAAG;AACH,QAAU,CAAD;AACT,WAAQ,CAAD,CAAC,IAAE,CAAF,CAAK,IAAI,CAAI,sBAAS,CAAC,CAAC,QAAC,KAAD,EAAI,MAAN,CAA9B,EACM,CAAJ,IAAG;AACL,aAAQ,eAAI,CAAC,EAAE,UAAI,CAAC,GAAC,SAAT;AACZ,WAAQ,CAAD,CAAC,IAAE,CAAF,CAAK,IAAI,sBAAS,CAAC,CAAC,QAAC,KAAD,EAAI,MAAN,CAA1B,EACM,CAAJ,IAAG;AACL,QAAG,CAAC,GAAC,UAAL;AACE,cAAK,UAAL;AAEA,kBAAK,CAAL;AAhBK;AAAa;AAmBA;AAAb;AAGP;AAAE;AAGF,aAAQ;AACR,YAAO,cAAS,CAAC,EAAG,UAAJ;AAChB,QAAG;AACH,WAAO,CAAI,MAAQ,IAAM,CAAD,CAAC,IAAE,KAAF,CAAzB;AAEE,eAAQ,gBAAW,CAAC,EAAE,EAAE,UAAL,CAAgB,KAAC,CAAD;AAC/B,OAAJ,IAAG;;AAZE;AAAa;AAggBL;AAAR;AAEP;AAAM;AAAG;AAGT,aAAQ;AACR,QAAG,cAAG,CAAC,IAAI,SAAL;AACN,QAAI,CAAC,KAAC,CAAN;AACE,eAAQ,cAAG,CAAC,UAAW,QAAZ;;AAGX,aAAa,QAAD,OAAW,GAAS,SAAD,OAAR;AACvB,eAAO,QAAK,6BAAZ;AAAI;AAEF,iBAAO,SAAW,QAAC,SAAD,4BAAlB;AAAI;AACF,cAAoB,CAAhB,QAAQ,QAAG,CAAF,CAAE,GAAE,CAAF,KAAH,CAAQ,KAAE,SAAS,QAAC,KAAD,CAAX,CAAgB,IAAiB,CAAb,SAAS,QAAC,KAAD,CAAI,KAAE,GAAF,CAArD;AAEE,gBAAI,CAAC,KAAQ,SAAD,OAAZ;AAEE,uBAAQ,CAAC,GAAC,CAAD;AACT;aAHF;WAOA;;;;AAxBD;AAAQ;AAsFF;AAAN;AAGP;AACA;AAAc;AACd;AAGA,aAAQ;AACR,QAAG,KAAM,KAAE,QAAX,EACE,aADF;AAGA,QAAG,cAAG,CAAC,KAAM,KAAP;AACN,WAAM,CAAE,GAAE,CAAV;AAEE,uBAAM,CAAC;;;;WAAO,EAAG,CAAX;AACN,UAAG,cAAG,CAAC,KAAM,KAAP;;AAER,QAAG,KAAM,KAAE,GAAX,EACE,aADF;AAEA,mBAAqB,QAAD;AACpB,eAAiB,KAAD;AAChB,QAAa,CAAT,QAAS,KAAE,CAAF,CAAK,IAAiB,CAAb,YAAa,KAAE,CAAF,CAAnC;AAEE,eAAQ;AACR;KAHF;AAKA,QAAG,UAAH;AAEE,iBAAU,sBAAS,CAAC,QAAD;AACnB,cAAO,sBAAS,CAAC,KAAD;KAHlB;AAKA,aAAQ,aAAO,CAAC,EAAE,SAAS,MAAM,EAAE,EAAE,aAAc,SAAS;;;;QAA7C;AAhCR;AAAM;AAoCG;AAAT;AAEP;AAEA,aAAQ;AACR,QAAU,GAAD,OAAM,GAAE,CAAjB,EACE,SAAO,QAAW,OAAC,GAAD,yBAAlB;AAAI;AACF,YAAM,iBAAN,OAAO,MAAO,oBAAK,GAAD,YAAO,CAAF,CAAE,GAAW,CAAL,CAAF,CAAE,GAAE,CAAF,CAAK,GAAW,GAAD,OAAV,CAAX,CAAH,IAAJ,CAAqC,GAAQ,GAAD,YAAK,CAAD,IAAJ,CAAhD,CAAR;KAFV;AALO;AAAS;AAUA;AAAT;AAGP;AACA;AAGA,aAAQ;AACR,aAAO,QAAW,OAAC,MAAD,yBAAlB;AAAI;AAEF,UAAU,GAAD,OAAM,GAAE,CAAjB;AACE,YAAO,GAAD,YAAO,CAAF,CAAE,GAAW,CAAL,CAAF,CAAE,GAAE,CAAF,CAAK,GAAW,GAAD,OAAV,CAAX,CAAH,IAAJ,CAAqC,GAAQ,MAAD,YAAQ,CAAD,IAAP,CAAP;AAE3C,gBAAO,MAAD,YAAQ,CAAD,IAAP;AACR,eAAQ,MAAM,GAAC,sBAAS,CAAC,qBAAQ,CAAC,EAAG,CAAJ,CAAT,CAAV;;AAdT;AAAS;AAkBA;AAAT;AAEP;AACA;AAEA,aAAQ;AACR,aAAO,QAA0B,OAAN,UAAR,MAAD,OAAS,GAAI,CAAJ,CAAM,GAAE,CAAF,kBAAjC;AAAI;AAEF,UAAM,oBAAC,wBAAW,CAAC,GAAI,GAAE,eAAI,CAAC,OAAW,CAAF,CAAE,GAAE,CAAF,CAAK,GAAE,CAAF,CAAK,CAAtB,CAAN,CAAmC,EAAxC,CAAZ;AACN,UAAU,GAAD,OAAM,GAAE,CAAjB,EACE,IAAM,oBAAK,GAAD,YAAO,CAAF,CAAE,GAAK,CAAF,CAAE,GAAW,GAAD,OAAV,CAAL,CAAH,IAAJ,CAA+B,GAAQ,CAAD,aAA1C,CADR;AAEA,eAAQ,MAAO,GAAE,CAAF;;AAXV;AAAS;AAeI;AAAb;AAEP;AACA;AAEA,QAAG;AACH,aAAQ;AACR,WAAa,CAAN,MAAM,KAAC,EAAD,CAAK,IAAM,CAAD,CAAC,IAAE,uBAAF,CAAxB;AAEE,UAAG,mBAAQ,CAAC,CAAD;AACX,UAAuB,CAAb,WAAC,WAAD,CAAa,KAAC,CAAD,CAAI,IAAqD,CAAjD,sBAAS,CAAC,CAAC,QAAC,CAAD,EAAI,WAAN,CAAwC,IAAN,CAAH,CAAD,OAAI,GAAE,CAAF,CAAf,IACd,CAAzC,wBAAW,CAAC,eAAI,CAAC,EAAE,EAAS,CAAD,OAAG,GAAC,CAAf,EAAkB,MAAvB,CAA8B,KAAC,CAAD,CADmC,CAAhF;AAGM,SAAJ,IAAG;AACH,YAAG,CAAC,IAAE,uBAAN,EACE,SAAQ,mBAAQ,CAAC,CAAD,CADlB;OAJF;AAOI,OAAJ,IAAG;;AAjBE;AAAa;AAppBL;AAAR;AAEP;AAAG;AAEH,QAAU,CAAD;AACT,aAAQ;AACR,SAAI;AACJ,WAAO,CAAE,GAAE,CAAX;AACE,UAAwC,CAAN,CAAN,CAAJ,CAAJ,CAAR,MAAD,OAAS,GAAE,CAAF,CAAI,GAAE,CAAF,CAAI,GAAE,EAAF,CAAM,GAAI,CAAJ,CAAM,KAAE,CAAF,CAAK,IAAO,CAAF,CAAE,KAAG,CAAH,CAApD;AAEE,yBAAM,CAAC,IAAK;;;;aAAQ,CAAd;AACF,UAAJ,IAAG;OAHL;AAKI,OAAJ,IAAG;;AAbE;AAAQ;AAvhCD;AAAP;AAEP;AAEA,QAAG,cAAG,CAAC,IAAI,CAAL,CAAO,KAAC,CAAd;AACE,eAAQ,GAAG,GAAE,CAAF;AAEX,mBAAQ;AACV,aAAQ,qBAAQ,CAAC,MAAD;AART;AAAO;AAojCC;AAAR;AAGP;AACA;AAGA,QAAG,CAAC,KAAC,CAAL;AACE,eAAQ;;AAGR,eAAQ;AACR,eAAQ;AACR,aAAM,MAAM,GAAC,CAAb;AAEE,YAAG,MAAO,GAAI,IAAJ;AACV,YAAG,CAAC,GAAC,CAAL;AACE,cAAG,CAAC,GAAC,EAAD;AAEJ,kBAAG,CAAC,GAAC,EAAD;AACN,iBAAW,oBAAC,CAAD,CAAG,GAAC,MAAD;AACd,iBAAe,UAAP,MAAO,GAAI,IAAJ;;;AAGnB,QAAI,MAAM,KAAE,EAAZ,EACE,SAAQ,YAAO,CAAC,IAAI,OAAO,GAAZ,CADjB;AAxBO;AAAQ;AA4BA;AAAR;AAGP;AAAG;AAGH,QAAU,CAAD;AACT,aAAQ;AACR,QAAG,sBAAS,CAAC,CAAD;AACZ,QAAG;AACH,WAAO,CAAC,IAAE,CAAV;AAEE,UAAI,CAAC,QAAC,KAAD,CAAG,GAAC,GAAT;AACE,iBAAQ,MAAM,GAAe,CAAJ,CAAL,CAAD,YAAG,CAAD,IAAF,CAAM,GAAC,EAAD,CAAI,GAAC,CAAD,CAAf;AAEd,qBAAQ,MAAM,GAAe,CAAJ,CAAL,CAAD,YAAG,CAAD,IAAF,CAAM,GAAC,EAAD,CAAI,GAAC,CAAD,CAAf;AACZ,OAAJ,IAAG;AACH,UAAG,CAAC,GAAC,IAAD;;AAjBC;AAAQ;AAkWA;AAAR;AAEL;AACA;AAAE;AACF;AAGF,aAAQ;AACR,QAAI,MAAM,GAAC,EAAX,EACE,SAAQ,EADV;AAEA,QAAI,MAAM,KAAC,CAAX;AAEG,eAAQ,eAAQ,CAAC,MAAM,MAAP;AAChB;KAHH;AAKA,aAAQ,MAAM,GAAa,UAAJ,CAAN,MAAM,GAAC,CAAD,CAAI,GAAI,MAAJ,CAAb;AACJ,UAAD,oBAAC,OAAO,MAAR;AACT,QAAG;AACH,SAAI;AACJ,QAAG;AACH,WAAO,CAAC,IAAE,EAAV;AAEI,UAAG,CAAC,KAAC,CAAL;AAEG,cAAM,iBAAN,OAAO,MAAI,GAAL;AACF,SAAJ,IAAG;AACH,YAAG;OAJN;AAMA,YAAM,iBAAN,OAAO,MAAO,oBAAC,EAAE,GAAkB,CAAR,CAAC,KAAD,OAAQ,GAAI,CAAJ,CAArB,CAAR;AACN,cAAuB,OAAR,CAAC,KAAD,OAAQ,KAAI,CAAJ;AACnB,OAAJ,IAAG;AACC,OAAJ,IAAG;;AA/BA;AAAQ;AAmCA;AAAR;AAGL;AAAE;AAGJ,aAAQ;AACR,QAAG,MAAM,IAAE,CAAX,EAAkB,aAAlB;AACU,UAAD,oBAAC,OAAO,MAAR;AACT,QAAG;AACH,SAAI;AAEJ,WAAQ,CAAD,CAAC,IAAE,EAAF,CAAM,IAAoB,CAAP,CAAC,KAAD,OAAO,GAAC,CAAD,CAAlC;AAEK,YAAM,iBAAN,OAAO,MAAO,oBAAC,EAAE,GAAkB,CAAR,CAAC,KAAD,OAAQ,GAAI,CAAJ,CAArB,CAAR;AACN,cAAuB,OAAR,CAAC,KAAD,OAAQ,KAAI,CAAJ;AACnB,OAAJ,IAAG;;AAER,aAAS,CAAD,CAAC,GAAC,EAAD,CAAG,GAAC,CAAD;AACZ,WAAM,MAAM,GAAC,CAAb;AAEE,YAAM,iBAAN,OAAO,WAAY,oBAAC,EAAD,CAAb;AACF,YAAJ,IAAG;;AAtBE;AAAQ;AA0BA;AAAR;AAEH;AAAE;AAEN,aAAQ;AACR,QAAG,MAAM,IAAE,CAAX,EAAkB,aAAlB;AACU,UAAD,oBAAC,OAAO,MAAR;AACT,QAAG;AACH,SAAI;AAGJ,WAAQ,CAAD,CAAC,IAAE,EAAF,CAAM,IAAU,CAAL,KAAK,GAAC,CAAD,CAAxB;AAEK,YAAM,iBAAN,OAAO,MAAO,oBAAC,EAAE,GAAkB,CAAR,CAAC,KAAD,OAAQ,GAAI,CAAJ,CAArB,CAAR;AACN,cAAa,UAAN,KAAM,GAAI,CAAJ;AACT,OAAJ,IAAG;;AAER,aAAS,CAAD,CAAC,GAAC,EAAD,CAAG,GAAC,CAAD;AACZ,WAAM,MAAM,GAAC,CAAb,EACE,MAAM,iBAAN,OAAO,WAAS,GAAV;AAnBD;AAAQ;AA/ER,iBACI,EAAE,EAAE,EAAE,EAAE,GAAG,GAAG,GAAG,GAAG,IAAI,IAAI,IAAI,IAAI,IADxC;AAED,gBACK,IAAI,KAAK,IAAI,KAAK,IAAI,KAAK,IAAI,KAAK,IAAI,KAAK,IAAI,KAAK,GAD3D;AALW;AAAV;AASP;AAGA,aAAQ;AACR,aAAO,SAAU,aAAjB;AAAI;AACF,aAAO,KAAM,IAAG,OAAO,CAAC,KAAD,CAAvB;AAEI,gBAAO,KAAK,GAAC,OAAO,CAAC,KAAD,CAAR;AACZ,iBAAQ,MAAM,GAAC,MAAM,CAAC,KAAD,CAAP;;;AAjBb;AAAU;AAnNG;AAAb;AAGP;AAAG;AACH;AAGA,aAAW;AACX,QAAK,sBAAS,CAAC,CAAD;AACd,UAAc,CAAD;AACb,QAAI,UAAW,KAAE,2CAAjB;AAEE,YAAK,wBAAkB,CAAC,CAAD,CAAvB;AACA,UAAI,OAAE,KAAE,CAAR;AAEE,iBAAW,GAAI,KAAE,CAAF;OAGf,eAAU;AACZ;KATF;AAWA,QAAI,GAAI,KAAE,CAAV,EAAkB,aAAlB;AACA,QAAK;AACL,UAAK,CAAL;AACA,iBAAc;AAEd,WAAS,CAAF,CAAE,IAAG,GAAH,CAAmD,IAAZ,CAAd,CAAX,UAAW,KAAG,yCAAH,CAAc,IAAM,CAAF,CAAE,GAAE,CAAF,CAAN,CAA/B,IAAqD,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,GAAF,CAAtE;AAGM,OAAJ,IAAG;AACH,YAAK,OAAE,GAAE,IAAT;;AAGF,QAAM,CAAF,CAAE,IAAG,GAAH,CAAQ,IAAU,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,GAAF,CAAxB;AAGM,OAAJ,IAAG;AACH,YAAK,OAAE,GAAE,GAAT;KAEG,UAAU,CAAJ,CAAF,CAAE,GAAE,CAAF,CAAI,IAAG,GAAH,CAAQ,IAAU,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,GAAF,CAA5B;AAEH,UAAI,CAAC,QAAE,CAAD,CAAC,GAAC,CAAD,KAAF,CAAM,KAAE,GAAb;AAGM,SAAJ,IAAM;AACN,cAAK,OAAE,GAAE,GAAT;OAEG,UAAI,CAAC,QAAE,CAAD,CAAC,GAAC,CAAD,KAAF,CAAM,KAAE,GAAb;AAGC,SAAJ,IAAM;AACN,cAAK,OAAE,GAAE,GAAT;OAJG;KARF;AAgBL,QAAM,CAAF,CAAE,IAAG,GAAH,CAAQ,IAAU,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,GAAF,CAAxB;AAIM,OAAJ,IAAG;AACH,YAAK,OAAE,GAAE,GAAT;AACA,UAAM,CAAF,CAAE,IAAG,GAAH,CAAQ,IAAU,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,GAAF,CAAxB;AAGM,SAAJ,IAAG;AACH,cAAK,OAAE,GAAE,GAAT;OAJF;AAMA,UAAM,CAAF,CAAE,IAAG,GAAH,CAAQ,IAAU,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,GAAF,CAAxB;AAGM,SAAJ,IAAG;AACH,cAAK,OAAE,GAAE,GAAT;OAJF;AAMA,UAAe,CAAX,UAAW,KAAG,yCAAH,CAA6B,IAAR,CAAF,CAAE,IAAG,GAAH,CAAP,IAAyB,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,GAAF,CAAtD;AAGM,SAAJ,IAAG;AACH,cAAK,OAAE,GAAE,GAAT;OAJF;KAlBF;AA2BA,QAAU,CAAJ,CAAF,CAAE,GAAE,CAAF,CAAI,IAAG,GAAH,CAAQ,IAAU,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,GAAF,CAA5B;AAEE,UAAI,CAAC,QAAE,CAAD,CAAC,GAAC,CAAD,KAAF,CAAM,KAAE,GAAb;AAGM,SAAJ,IAAM;AACN,cAAK,OAAE,GAAE,EAAT;OAEG,UAAK,CAAC,QAAE,CAAD,CAAC,GAAC,CAAD,KAAF,CAAM,KAAE,GAAd;AAGC,SAAJ,IAAM;AACN,cAAK,OAAE,GAAE,EAAT;OAJG;KARP;AAiBA,QAAM,CAAF,CAAE,IAAG,GAAH,CAAQ,IAAU,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,GAAF,CAAxB;AAGM,OAAJ,IAAG;AACH,YAAK,OAAE,GAAE,EAAT;KAJF;AAQA,QAAM,CAAF,CAAE,IAAG,GAAH,CAAQ,IAAU,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,GAAF,CAAxB;AAIM,OAAJ,IAAG;AACH,YAAK,OAAE,GAAE,EAAT;AACA,UAAM,CAAF,CAAE,IAAG,GAAH,CAAQ,IAAU,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,GAAF,CAAxB;AAGM,SAAJ,IAAG;AACH,cAAK,OAAE,GAAE,EAAT;OAJF;AAMA,UAAM,CAAF,CAAE,IAAG,GAAH,CAAQ,IAAU,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,GAAF,CAAxB;AAGM,SAAJ,IAAG;AACH,cAAK,OAAE,GAAE,EAAT;OAJF;AAMA,UAAe,CAAX,UAAW,KAAG,yCAAH,CAA6B,IAAR,CAAF,CAAE,IAAG,GAAH,CAAP,IAAyB,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,GAAF,CAAtD;AAGM,SAAJ,IAAG;AACH,cAAK,OAAE,GAAE,EAAT;OAJF;KAlBF;AA2BA,QAAU,CAAJ,CAAF,CAAE,GAAE,CAAF,CAAI,IAAG,GAAH,CAAQ,IAAU,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,GAAF,CAA5B;AAEE,UAAI,CAAC,QAAE,CAAD,CAAC,GAAC,CAAD,KAAF,CAAM,KAAE,GAAb;AAEE,qBAAe;AAEX,SAAJ,IAAM;AACN,cAAK,OAAE,GAAE,CAAT;OAEG,UAAI,CAAC,QAAE,CAAD,CAAC,GAAC,CAAD,KAAF,CAAM,KAAE,GAAb;AAEH,qBAAe;AAEX,SAAJ,IAAM;AACN,cAAK,OAAE,GAAE,CAAT;OALG;KATP;AAmBA,QAAI,CAAI,UAA2B,IAAR,CAAF,CAAE,IAAG,GAAH,CAAP,IAAyB,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,GAAF,CAA7C;AAGM,OAAJ,IAAG;AACH,YAAK,OAAE,GAAE,CAAT;KAJF;AASA,QAAI,CAAI,UAA2B,IAAR,CAAF,CAAE,IAAG,GAAH,CAAP,IAAyB,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,GAAF,CAA7C;AAEE,mBAAe;AAEX,OAAJ,IAAG;AACH,YAAK,OAAE,GAAE,CAAT;AAEA,UAAM,CAAF,CAAE,IAAG,GAAH,CAAQ,IAAU,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,GAAF,CAAxB;AAGM,SAAJ,IAAG;AACH,cAAK,OAAE,GAAE,CAAT;OAJF;AAMA,UAAM,CAAF,CAAE,IAAG,GAAH,CAAQ,IAAU,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,GAAF,CAAxB;AAGM,SAAJ,IAAG;AACH,cAAK,OAAE,GAAE,CAAT;OAJF;AAMA,UAAe,CAAX,UAAW,KAAG,yCAAH,CAA6B,IAAR,CAAF,CAAE,IAAG,GAAH,CAAP,IAAyB,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,GAAF,CAAtD;AAGM,SAAJ,IAAG;AACH,cAAK,OAAE,GAAE,CAAT;OAJF;KAnBF;AA4BA,aAAW,CAAE,GAAE,GAAF;AA9LN;AAAa;AAmMH;AAAV;AAEP,QAAG,CAAI,kBAAa,CAAC,EAAG;;;;SAAQ,UAAZ,CAApB,EACE,MAAM,0BAAa,QAAC,aAAS,CAAC,0BAAqB,mBAAC,IAAD,CAAtB,CAAT,CADtB;AAFO;AAAU;AAMG;AAAb;AAGP,QAAG,CAAI,kBAAa,CAAC,EAAG;;;;SAAQ,UAAZ,CAApB,EACE,SAAU,QADZ;AAHO;AAAa;AAp7CV,oBAAG,cAAI,KAAH,GAAK,EAAN;AACL,kBAAG,cAAC,GAAI,GAAI,GAAI,GAAI,IAAI,GAArB;AACE,uBAAkD,aAA/C,cAAG,KAAF,EAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAK,GAAI,EAA1C,EAAiD,aAAF;AACjD,wBAAG,cAAC,GAAI,EAAL;AA0xDJ;AAAN;AAGP,aAAQ,aAAQ,CAAC,EAAE,EAAE,CAAL;AAHT;AAAM;AAMA;AAAN;AAGP,aAAQ,eAAQ,CAAC,EAAE,EAAE,CAAL;AAHT;AAAM;AA3CE;AAAR;AAEL;AAAE;AAGJ,QAAG,CAAC,KAAC,EAAL;AACE,UAAG;;AAGH,UAAU,CAAD;AACT,UAAG;AACH,UAAG,CAAC,GAAC,CAAL;AAEE,iBAAQ;AACR;OAHF;AAKA,aAAQ,CAAD,CAAC,IAAE,CAAF,CAAK,IAAK,CAAI,sBAAS,CAAC,CAAC,QAAC,KAAD,EAAI,CAAN,CAA/B,EAAgD,CAAJ,IAAG;AAC/C,UAAI,CAAC,GAAC,CAAN,EACE,IAAG,CADL;;AAGH,aAAQ;AApBA;AAAQ;AAuBA;AAAR;AAGP;AACA;AAAE;AAEF,QAAU,CAAD;AACC,QAAD,sBAAC,YAAK,CAAN;AACT,QAAG,CAAC,GAAC,CAAL,EACE,SAAO,QAAK,0BAAZ;AAAI;AACF,UAAI,CAAC,CAAC,GAAC,CAAH,CAAJ,GAAW,CAAC,QAAC,KAAD;KAFhB;AAGA,aAAQ,aAAQ,CAAC,KAAK,EAAE,KAAR;AAXT;AAAQ;AA2BW;AAG1B;AAAE;AAGF,QAAU,OAAD;AACT,QAAI,CAAC,GAAC,CAAN;AAEE,UAAG;AACH,aAAQ,CAAD,CAAC,IAAE,CAAF,CAAK,IAAI,sBAAS,CAAC,OAAC,QAAC,KAAD,EAAI,IAAN,CAA1B,EACM,CAAJ,IAAG;AACL,UAAG,CAAC,GAAC,CAAL,EACE,iBAAM,CAAC,EAAE,EAAE,CAAC,GAAC,CAAP,CADR;KALF;AAP0B;AAyBC;AAG3B;AAAE;AAGF,QAAU,OAAD;AACT,QAAI,CAAC,GAAC,CAAN;AAEE,UAAG;AACH,aAAQ,CAAD,CAAC,GAAC,CAAD,CAAI,IAAI,sBAAS,CAAC,OAAC,QAAC,KAAD,EAAI,IAAN,CAAzB,EACM,CAAJ,IAAG;AACL,UAAG,CAAC,KAAE,CAAN,EACY,MAAD,iBAAC,QAAE,CAAH,CAAC,CADZ;KALF;AAP2B;AAwBL;AAGtB;AAAE;AAAE;AAGJ,QAAU,OAAD;AACT,QAAG,CAAC,KAAC,CAAL,EAAY,MAAZ;AACA,QAAG;AACH,WAAQ,CAAD,CAAC,GAAC,CAAD,CAAI,IAAI,sBAAS,CAAC,OAAC,QAAC,KAAD,EAAI,IAAN,CAAzB,EACM,CAAJ,IAAG;AACL,QAAG,CAAC,KAAC,CAAL;AAEE,YAAG,EAAH;AACA;KAHF;AAKU,UAAD,iBAAC,QAAE,CAAH,CAAC;AACV,QAAG;AACH,QAAG;AACH,WAAQ,CAAD,CAAC,IAAE,CAAF,CAAK,IAAI,sBAAS,CAAC,OAAC,QAAC,KAAD,EAAI,IAAN,CAA1B,EACM,CAAJ,IAAG;AACL,QAAG,CAAC,GAAC,CAAL,EACE,iBAAM,CAAC,EAAE,EAAE,CAAC,GAAC,CAAP,CADR;AArBsB;AA/BJ;AAAX;AAGP,aAAQ;AACR,2BAAkB,CAAC;;;;SAAO,IAAR;AAJX;AAAW;AAwBC;AAAZ;AAGP,aAAQ;AACR,4BAAmB,CAAC;;;;SAAO,IAAR;AAJZ;AAAY;AAgCL;AAAP;AAGP,aAAQ;AACR,uBAAc,CAAC;;;;SAAO,IAAR;AAJP;AAAO;AAOI;AAAX;AAEP,aAAS,sCAAD;;;;SAAQ,UAAP;AAFF;AAAW;AAt2DN;AA7Md,mBAgNc;AAwiBZ,mBACI,kCAQkC,GAPlC,kCADkC,GAElC,4BADkC,GAElC,QAD4B,GAE5B,4BADQ,GAER,kCAD4B,GAE5B,kCADkC,GAElC,kCADkC,GAElC,kCADkC,GAElC,OADkC;AAyClC,iBAAM;AACN,iBAAM;AAmhBQ;AAAX;AAGF;AACH,UADG,IACH;AAAM,iBAAQ;AACd,gBAFG,IAEH;AAAM,iBAAQ;AACd,gBAHG,IAGH;AAAM,iBAAQ;AACd,gBAJG,IAIH;AAAM,iBAAQ;AACd,gBALG,IAKH;AAAM,iBAAQ;AACd,gBANG,IAMH;AAAM,iBAAQ;AACd,gBAPG,IAOH;AAAM,iBAAQ;;AAEd,iBAAQ;;AAZH;AAAW;AAoBR,qBAAI,cAAC,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,EAAzB;AAJW;AAAlB;AAOP;AAAO;AACP;AAAE;AACF;AAGA,eAAQ;AACR,UAAG;AACH,iBAAoB,CAAF,CAAD,OAAG,GAAC,CAAD,CAAI,IAAS,CAAJ,CAAC,QAAC,CAAD,CAAG,KAAC,GAAD,CAAT;AACxB,UAAG,QAAH,EACM,CAAJ,IAAG,CADL;AAEA,UAAU,CAAD;AACT,aAAO,CAAC,GAAC,CAAT;AAEM,SAAJ,IAAG;AACH,gBAAO,iBAAM,CAAC,CAAC,QAAC,KAAD,CAAF;AACb,YAAG,kBAAM,IAAG,UAAZ;AAEE,cAAK,CAAD,CAAC,GAAC,CAAD,CAAG,IAAE,CAAV;AACE,mBAAM,iBAAM,CAAC,CAAC,QAAE,CAAD,CAAC,GAAC,CAAD,KAAF,CAAF;AAEZ,uBAAM;AACR,cAAS,CAAL,iBAAK,IAAG,UAAH,CAAe,IAAuB,CAAlB,iBAAW,CAAC,KAAD,CAAO,GAAC,iBAAW,CAAC,IAAD,CAAZ,CAA/C;AAEM,kBAAJ,IAAY,iBAAW,CAAC,IAAD;AACnB,kBAAJ,IAAY,iBAAW,CAAC,KAAD;AACnB,aAAJ,IAAG;WAGH,MAAI,MAAJ,IAAY,iBAAW,CAAC,KAAD;;AAIzB,mBAAQ;AACR;;;AAGJ,UAAG,QAAH,EACE,SAAQ,CAAC,MADX;AA3CO;AAAkB;AA8aX;AAAP;AAGP,cAAK,KAAL;AACA,eAAQ;AACR;AACE,YAAG,KAAK,QAAC,SAAD,CAAQ,KAAE,GAAlB;AAEM,eAAJ,IAAG;AACH,iBAAM,KAAK,QAAC,SAAD,CAAQ,KAAE,GAArB;AAGM,iBAAJ,IAAG;AACC,sBAAJ,IAAG;;AAGL;AACE,mBAA2B,CAApB,QAAQ,QAAC,cAAD,CAAY,KAAE,KAAK,QAAC,SAAD,CAAP,CAAgB,IAAgB,CAAX,UAAW,IAAG,YAAH,CAA3D,EACM,UAAJ,IAAG;AACL,qBAAQ,aAAO,CAAC,KAAK,GAAC,CAAD,CAAG,SAAS,MAAM,MAAO,WAAW,aAAa,SAAS,GAAhE;AACf,gBAAG,CAAI,MAAP,EACM,UAAJ,IAAG,CADL;WAJF,QAMa,EAAP,MAAO,IAAc,CAAV,UAAU,IAAE,YAAF,CAAd,CANb;AAOA,cAAG,MAAO,IAAI,SAAd,EACE,aADF;AAEA;SAnBF;AAqBA,YAAG,KAAK,QAAC,SAAD,CAAQ,KAAE,GAAlB;AAGM,eAAJ,IAAG;AACC,oBAAJ,IAAG;AACH;SALF;AAOA,YAAG,QAAQ,QAAC,cAAD,CAAa,KAAE,KAAK,QAAC,SAAD,CAA/B;AAGM,eAAJ,IAAG;AACC,oBAAJ,IAAG;AACH;SALF;AAOA,iBAAQ;AACR;OArCF,QAsCkC,EAAhB,CAAX,UAAW,GAAE,YAAF,CAAgB,IAAU,CAAN,KAAM,GAAE,QAAF,CAAV,CAtClC;AAwCA,UAAe,CAAX,UAAW,IAAG,YAAH,CAAiB,IAAU,CAAN,KAAM,GAAE,QAAF,CAA1C;AACE,iBAAQ;AACL,gBAAI,KAAK,GAAC,QAAV;AACH,gBAAK,KAAL;;AAGA,gBAAK,KAAK,QAAC,SAAD,CAAO,KAAC,GAAlB;AACA,YAAG,CAAI,SAAP,EACE,SAAQ,KADV;;AApDK;AAAO;AA5iDF;AA45Dd;AACE;AACA;AAFF;AA5mEA,GAgNc,KAhNd;ACFA,uBAES,UAFT;;;;AAKW;AAEP;AAkBA;AACA;AACA;AAEe,2BAAG,EAAG,GAAE,CAAF;AACF,+BAAG;AACR,0BAAG;AACH,0BAAG;AACL,wBAAG;AACJ,uBAAG;AACC,2BAAG;AACH,2BAAG,EAAG,GAAE,IAAF;AACR,yBAAG,EAAG,GAAE,KAAF;AACP,wBAAG,EAAG,GAAE,OAAF;AACR,sBAAG;AACH,sBAAG,CAAC;AACC,2BAAG;AACH,2BAAG,CAAC;AAEA,+BAAG;AACR,0BAAG,IAAK,GAAQ,KAAR;AACR,0BAAG,EAAG,GAAQ,QAAR;AACR,wBAAG,EAAG,GAAQ,SAAR;AACP,uBAAG,EAAG,GAAE,WAAF;AA3CV;aAEP;AAFO;;AAEP;AAFO;;AA0Xe;AAAP;AAEjB,eAAyB,UAAP,WAAO,GAAI,YAAJ,CAAR;AAFA;AAAO;AAKC;AAAR;AAEjB,eAA4C,CAAlB,UAAP,WAAO,GAAI,WAAJ,CAAkB,GAAI,EAAJ,CAA3B;AAFA;AAAQ;AAUE;AAAV;AAEjB,eAA8C,CAApB,UAAP,WAAO,GAAI,SAAJ,CAAoB,GAAI,EAAJ,CAA7B;AAFA;AAAU;AAKA;AAAV;AAEjB,eAA8C,CAApB,UAAP,WAAO,GAAI,QAAJ,CAAoB,GAAI,EAAJ,CAA7B;AAFA;AAAU;AAVK;AAAf;AAEjB,eAAmD,CAAzB,UAAP,WAAO,GAAI,KAAJ,CAAyB,GAAI,IAAJ,CAAlC;AAFA;AAAe;AAeH;AAAZ;AAEjB,eAAU,WAAO,GAAE,sBAAF;AAFA;AAAY;AAKC;AAAb;AAEjB,eAAU,WAAO,GAAE,sBAAF;AAFA;AAAa;AAeE;AAAf;AAEjB,eAAU,WAAO,GAAE,qBAAF;AAFA;AAAe;AAKA;AAAf;AAEjB,eAAU,WAAO,GAAE,IAAF;AAFA;AAAe;AAfK;AAApB;AAEjB,eAAU;AACV,eAAU,WAAO,GAAE,MAAF;AACjB,UAAG,MAAO,GAAE,eAAZ;AACE,iBAAU;AACP,gBAAG,MAAO,GAAE,gBAAZ,EACH,SAAU,gBADP;AANY;AAAoB;AA0BG;AAAjB;AAEvB;AAEA,UAAG,KAAK,CAAC,MAAD,CAAR,EACE,MAAM,+BAAkB,QAAC,YAAM,CAAC,+CAAD,CAAN,CAD3B;AAEA,kBAAa,MAAO,GAAE,MAAF;AACpB,UAAG,MAAO,IAAG,GAAb;AACE,oBAAa,SAAU,GAAE,GAAF;AAEvB,wBAAa,SAAU,GAAE,GAAF;AACzB,UAAc,CAAV,SAAU,GAAE,eAAF,CAAmB,IAAc,CAAV,SAAU,GAAE,gBAAF,CAA/C,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,6CAAD,CAAN,CADrC;AAEA,qBAAU,cAAS,KAAC,UAAO,gBAAK,CAAC,SAAD,CAAY,GAAE,KAA1B,CAApB;AAbuB;AAAiB;AAgBL;AAAZ;AAEvB,YAAM,OAAN,GAAiB;AAFM;AAAY;AAKA;AAAZ;AAEvB,YAAM,OAAN,GAAiB;AAFM;AAAY;AAKJ;AAAR;AAEvB,YAAM,OAAN,GAAiB;AAFM;AAAQ;AArKL;AAE1B,oBAAU;AAFgC;AAAhB;AAKA;AAE1B,oBAAwB,CAAR,MAAQ,GAAE,IAAF,CAA6C,GAAb,CAAV,QAAU,GAAE,EAAF,CAAlB,GAAiC,QAAF;AACrE,UAAW,CAAP,WAAO,GAAE,YAAF,CAAc,IAAW,CAAP,WAAO,GAAE,aAAF,CAApC,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,sCAAD,CAAN,CADrC;AAEA,oBAAU,WAAO,GAAE,QAAF;AALqD;AAA5C;AAQA;AAE1B,mBAAM,CAAC,MAAO,OAAQ,SAAU,SAAU,CAApC;AAFuE;AAAnD;AAKA;AAE1B;AAEA,eAA8G,CAAZ,CAA1E,CAAP,KAAO,GAAE,KAAF,CAA0E,GAA7C,CAAR,MAAQ,GAAE,IAAF,CAAhB,GAAgD,CAAV,QAAU,GAAE,EAAF,CAAlB,GAAiC,QAAF,CAAY,GAAE,IAAF,CAAkB,GAAE,aAAF;AAChI,UAAW,CAAP,MAAO,GAAE,eAAF,CAAmB,IAAW,CAAP,MAAO,GAAE,gBAAF,CAAzC,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,sCAAD,CAAN,CADrC;AAEA,oBAAU,MAAO,GAAE,KAAF;AAP2E;AAAlE;AAUN;AAAH;AAEjB;AAEA,kBAAa,WAAO,GAAE,SAAS,OAAX;AACpB,UAAiC,CAArB,WAAP,WAAO,oBAAqB,KAAoB,WAAjB,SAAS,OAAQ,oBAApB,CAA0C,IAAkC,CAArB,WAAP,WAAO,oBAAqB,KAAc,WAAV,SAAU,oBAAd,CAA7G,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,sCAAD,CAAN,CADrC;AAEA,qBAAU,cAAS,KAAC,UAAO,SAAP,CAApB;AAPiB;AAAG;AAUK;AAAR;AAEjB,UAAG,WAAO,KAAE,mBAAQ,OAApB,EACE,MAAM,yBAAY,QAAC,YAAM,CAAC,8CAAD,CAAN,CADrB;AAEA,UAAG,WAAO,GAAE,CAAZ;AACE,uBAAU,cAAS,KAAC,UAAO,CAAC,WAAR,CAApB;AAEA,2BAAU,cAAS,KAAC,UAAO,WAAP,CAApB;AAPe;AAAQ;AAoIF;AAAN;AAEjB,UAAG,WAAO,KAAE,mBAAQ,OAApB,EACE,MAAM,yBAAY,QAAC,YAAM,CAAC,2CAAD,CAAN,CADrB;AAEA,qBAAU,cAAS,KAAC,UAAO,CAAC,WAAR,CAApB;AAJiB;AAAM;AAcE;AAAR;AAEjB;AAEA,kBAAa,WAAO,GAAE,SAAS,OAAX;AACpB,UAAiC,CAArB,WAAP,WAAO,oBAAqB,KAAqB,WAAjB,SAAS,OAAQ,oBAArB,CAA2C,IAAkC,CAArB,WAAP,WAAO,oBAAqB,KAAc,WAAV,SAAU,oBAAd,CAA9G,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,sCAAD,CAAN,CADrC;AAEA,qBAAU,cAAS,KAAC,UAAO,SAAP,CAApB;AAPiB;AAAQ;AAUA;AAAR;AAEjB;AACA;AACA;AACA;AAEA,gBAAW;AACX,cAAgB,UAAP,WAAO,GAAI,YAAJ;AAChB,eAAU,WAAO,GAAI,YAAJ;AACjB,UAAG,WAAO,GAAE,CAAZ,EACE,SAAU,CAAC,MADb;AAEA,UAAG,KAAM,KAAG,CAAZ,EACE,UAAW,OAAQ,GAAE,OADvB;AAEA,qBAAgB,MAAO,GAAI,QAAJ;AACvB,UAAG,YAAa,KAAG,CAAnB,EACE,UAAW,OAAQ,GAAE,SADvB;AAEA,eAAgB,kCAAQ,QAAS,mBAAC,SAAiC,GAAlB,UAAP,MAAO,GAAI,WAAJ,CAAkB,GAAI,EAAJ,CACrC,GAApB,UAAP,MAAO,GAAI,SAAJ,CAAoB,GAAI,EAAJ,CAA6C,GAApB,UAAP,MAAO,GAAI,QAAJ,CAAoB,GAAI,EAAJ,CACzE,eAF+B,CAAjB;AAjBC;AAAQ;AAlJM;AAAR;AAEvB,qBAAU,gCAAiB,CAAC,OAAQ,QAAT,CAA3B;AAFuB;AAAQ;AAKC;AAAT;AAEvB,qBAAU,gCAAiB,CAAC,OAAQ,OAAT,CAA3B;AAFuB;AAAS;AAUE;AAAX;AAEvB,qBAAU,gCAAiB,CAAC,OAAQ,KAAT,CAA3B;AAFuB;AAAW;AAKA;AAAX;AAEvB,qBAAU,gCAAiB,CAAC,OAAQ,IAAT,CAA3B;AAFuB;AAAW;AAVK;AAAhB;AAEvB,qBAAU,gCAAiB,CAAC,OAAQ,CAAT,CAA3B;AAFuB;AAAgB;AAeP;AAAT;AAEvB,qBAAU,cAAS,KAAC,UAAO,MAAP,CAApB;AAFuB;AAAS;AA2JD;AAAR;AAEvB,qBAAU,cAAS,KAAC,UAAO,gBAAK,CAAC,6BAAgB,CAAC,gCAAmB,CAAC,aAAD,CAApB,CAAqC,GAAE,6BAAgB,CAAC,gCAAmB,CAAC,cAAD,CAApB,CAAxE,CAA+G,GAAE,KAA7H,CAApB;AAFuB;AAAQ;AAnDH;AAAL;AAEvB;AAEA,qBAAU,cAAS,KAAC,UAAO,OAAO,QAAQ,CAAC,MAAD,CAAtB,CAApB;AAJuB;AAAK;AAuCG;AAAR;AAEvB;AACA;AAEA,eAAU,OAAO,WAAW,CAAC,OAAQ;;;;UAAT,CAAiB,KAA8B,wCAA9B;AAC7C,UAAG,MAAH;AACE,0BAAa,cAAS,KAAC,UAAO,MAAP,CAAvB;AAEA,8BAAa,yBAAb;AATqB;AAAQ;AApgBtB;AA6CW,6BAAO,wBAAP;AACA,+BAAa,yBAAU,2BAAU,0BAAjC;AACA,+BAAY,wBAAQ,yBAAU,2BAAU,0BAAxC;AACA,+BAAY,wBAAQ,yBAAU,2BAAU,2BAAe,+BAAvD;AAEN,0BAAgB,aAlDrB,GAkDqB,EAAhB,EAlDL,EAkDK;AACK,iCAnDV,EAmDU;AACF,+BApDR,EAoDQ;AACE,+BAAgB,aArD1B,GAqD0B,EAAhB,EArDV,EAqDU;AACA;AAEM,+BAAa,uBAAb,EAxDhB,GAwDgB;AACC,gCAAa,uBAAb,EAzDjB,GAyDiB;AACE,kCAAa,uBAAb,EA1DnB,GA0DmB;AACA,kCAAa,uBAAb,EA3DnB,GA2DmB;AACK,uCAAa,uBAAb,EA5DxB,GA4DwB;AACP,gCAAa,0BAAb,EA7DjB,GA6DiB;AACD,iCAAoB,iBnCRpC,8BmCQoC,GAAgB,kBnCRpD,8BmCQoD,EAApC,EA9DhB,GA8DgB;AAEH,4BAAa,uBAAb,EAhEb,GAgEa;AACG,+BAAa,wBAAuB,aAjEpD,GAiEoD,EAApC;AAET;AACD;AACC;AACE;AACA;AACK;AACH;AACC;AACE;AACA;AACK;AAEH,gCA/EhB,GA+EgB;AACA,gCAhFhB,GAgFgB;AACJ,4BAjFZ,GAiFY;AAjFZ;AALX,mBAyFc;AAcG;AAEF;;AAEX;AACA;AALa;eAIb,sBACA;AALa;;AAIb;AACA;AALa;;AAmBmB;AAAX;AAEvB,YAAQ,CAAJ,SAAI,IAAM,CAAN,CAAgB,IAAU,CAAL,SAAK,IAAQ,SAAD,OAAP,CAAlC;AACE,mBAAU,SAAI,QAAC,aAAD;AAEd,uBAAU;AALW;AAAW;AAQH;AAAR;AAEvB,YAAG,SAAK,IAAQ,SAAD,OAAf,EACM,SAAJ,IAAG,CADL;AAEA,iBAAU;AAJa;AAAQ;AAOI;AAAZ;AAEvB;AAEA,iBAAc,gBAAY,OAAC,SAAD,yBAA1B;AAAI;AAEF,mBAAU,SAAI,QAAC,UAAD;AACd,cAAW,CAAP,MAAO,GAAE,GAAF,CAAO,IAAW,CAAP,MAAO,GAAE,GAAF,CAA7B,EACE,aADF;;AAGF,iBAAU;AAVa;AAAY;AAaL;AAAP;AAEvB,iBAAU;AACK,mBAAV,eAAU,CAAC,OAAQ;;;;YAAT;AACb,YADa,IACb;AACE,gBAAM,sBAAS,QAAC,YAAM,CAAC,4CAAD,CAAN;AAClB,kBAHa,IAGb;AACE,gBAAM,yBAAY,QAAC,YAAM,CAAC,sCAAD,CAAN;AACrB,kBALa,IAKb,sDACE,MAAM,yBAAY,QAAC,YAAM,CAAC,6CAAD,CAAN,CADrB;AARqB;AAAO;AAmGG;AAAV;AAEvB;AACA;AACA;AACA;AAEA,iBAAU;AACV,mBAAU,CAAV;AACA,oBAAQ;AACR,oBAAW;AACX;AACA,sBAAe;AACf,YAAG,kBAAY,KAAE,GAAjB;AAEE,wBAAe;AACf;SAHF;AAKA,YAAG,mBAAa,KAAE,GAAlB;AAEE,mBAAU,gBAAW,CAAC;;;;cAAD;AACrB,cAAG,MAAO,KAAG,wCAAb,EACE,aADF;;AAKA,mBAAU,YAAO,CAAC,SAAS;;;;cAAV;AACjB,cAAG,MAAO,KAAG,wCAAb,EACE,aADF;AAEA,mBAAU,KAAM,GAAY,YAAZ;AAChB,cAAG,kBAAY,KAAE,GAAjB;AAEE;AACA,qBAAU,gBAAW,CAAC;;;;gBAAD;AACrB,gBAAG,MAAO,KAAG,wCAAb,EACE,aADF;AAEA,qBAAU,MAAO,GAAE,QAAF;WANnB;;AASF,YAAG,WAAH;AAEE,mBAAU,CAAC;AACX,cAAG,MAAO,GAAE,CAAZ,EACM,OAAC,4CADP;SAGG,UAAG,MAAO,GAAE,CAAZ,EACC,OAAC,4CADF;AAEL;AACA,YAAG,SAAK,IAAQ,SAAD,OAAf,EACM,OAAC,0CADP;AAEA,mBAAU,MAAV;AACA,iBAAU;AAnDa;AAAU;AAtFH;AAAP;AAEvB;AACA;AAEA,mBAAU,CAAV;AACA,oBAAa;AACb,gBAAS;AACT,eAAa,CAAN,KAAM,IAAG,GAAH,CAAQ,IAAW,CAAN,KAAM,IAAG,GAAH,CAAhC;AAEE,cAAU,CAAP,YAAO,GAAI,UAAJ,CAAc,KAAG,CAA3B,EACM,OAAC,4CADP;AAEA,qBAAiB,CAAP,YAAO,GAAE,EAAF,CAAK,GAAc,CAAP,KAAD,aAAQ,GAAE,IAAF,CAApC;AACA,cAAG,YAAO,GAAE,CAAZ,EACM,OAAC,4CADP;AAEA,kBAAS;;AAEX,YAAG,SAAK,KAAE,SAAV,EACM,OAAC,0CADP;AAEA,YAAG,YAAO,GAAE,SAAZ,EACM,OAAC,4CADP;AAEA,iBAAU;AArBa;AAAO;AAwBI;AAAX;AAEvB;AACA;AAEA,kBAAS,CAAT;AACA,iBAAU,YAAO,CAAC,GAAI;;;;YAAL;AACjB,YAAG,MAAO,KAAG,wCAAb;AAEE,cAAG,MAAO,KAAE,4CAAZ,EACE,SAAU,+CADZ;AAEA;SAJF;AAMA,kBAAS,KAAM,GAAY,WAA3B;AACA,YAAG,kBAAY,KAAG,GAAlB,EACM,OAAC,0CADP;AAEA;AACA,iBAAU,YAAO,CAAC,GAAI;;;;YAAL;AACjB,YAAG,MAAO,KAAG,wCAAb;AAEE,cAAG,MAAO,KAAE,4CAAZ,EACE,SAAU,+CADZ;AAEA;SAJF;AAMA,kBAAS,WAAM,GAAQ,CAAN,KAAM,GAAY,SAAZ,CAAvB;AACA,YAAG,kBAAY,KAAE,GAAjB;AAEE,cAAG,eAAS,KAAG,GAAf;AAEE,qBAAU,YAAO,CAAC,GAAI;;;;gBAAL;AACjB,gBAAG,MAAO,KAAG,wCAAb;AAEE,kBAAG,MAAO,KAAE,4CAAZ,EACE,SAAU,+CADZ;AAEA;aAJF;AAMA,sBAAS,WAAM,GAAQ,CAAN,KAAM,GAAY,QAAZ,CAAvB;WATF;AAWA,cAAG,kBAAY,KAAE,GAAjB;AAEE,oBAAS;AACT,oBAAmB;AACnB,mBAAa,CAAN,KAAM,GAAE,CAAF,CAAK,IAAY,CAAN,KAAM,IAAG,GAAH,CAAQ,IAAW,CAAN,KAAM,IAAG,GAAH,CAAjD;AAEE,sBAAe,UAAN,KAAM,GAAI,EAAJ;AACf,wBAAS,WAAM,GAAqB,CAAP,CAAP,KAAD,aAAQ,GAAE,IAAF,CAAO,GAAE,KAAF,CAApC;AACA,sBAAS;;WARb;SAbF;AAyBA,iBAAU;AAlDa;AAAW;AAqDD;AAEjC;AAEA,gBAAS;AACT,eAAY,CAAL,KAAK,KAAE,GAAF,CAAO,IAAU,CAAN,KAAM,KAAE,IAAF,CAA7B,EACE,QAAS;AANsB;AAzIlB;AAOO;AACH;AACI;AACL,gCAAa,uBAAb;AACG,mCAAc,yBAAoB,0BAAlC,EATR,yCASQ;AACH,gCAAU,0BAAqB,wBAA/B,EAVL,yCAUK;AACI,oCAAU,yBAAV,EAXT,yCAWS;AACD;AAdN;AAdH,6BAMS,qFACG,uIACF,0DACC,6DACP,8CACS,uDAXb;;AAzFd;KAsbkC;AAEhC,iCAAiB;AACjB,iCAAgB;AAHgB,KAtblC;;GAyFc,kBAzFd;ACfA,gCAIS,UAJT;;;AAYW;;AAoCE;AAOA;AA3CF;AAoCE;AAOA;AA3CF;AAoCE;AAOA;AAPA;AAOA;AA3CF;AAoCE;AAOA;AA3CF;AAoCE;AAOA;AA3CF;AAoCE;AAOA;AA3CF;AAoCE;AAOA;AAnCF;AAaO;AAOQ;AA5Bf;AAoCE;AAOA;AA3CF,iHACS,SADT;;AACS,8BAAW,uBAAO,uBAAlB;AADT;gHACS,SADT;;AACS,8BAAW,sBAAO,sBAAlB;AADT;AAoCE,kHACU,aACF,WACF,OAHN;;AACU;AACF;AACF;AACC;AAJP;AAOA,kHACa,eADb;;AACa,sCARb,wCAQa;AADb;AA3CF,6HACS,SADT;;;AACS,gCAAW,QCAV,sDDAU,GAAO,SCAjB,sDDAiB,EAAlB;AADT;;AAoCE,+HACU,aACF,WACF,OAHN;;;AACU,qCCpCF,qDDoCE;AACF;AACF;AACC,iCCvCC,sDDuCD;AAJP;;AAOA,+HACa,eADb;;;AACa,wCARb,gEAQa;AADb;;AA3CF,iHACS,SADT;;AACS,8BAAW,QpCiHtB,4BoCjHsB,GAAO,SpCiH7B,4BoCjH6B,EAAlB;AADT;AAoCE,mHACU,aACF,WACF,OAHN;;AACU,mCpC6Ed,2BoC7Ec;AACF;AACF;AACC,+BpC0EX,4BoC1EW;AAJP;AAOA,mHACa,eADb;;AACa,sCARb,yCAQa;AADb;AAPA,mHACU,aACF,WACF,OAHN;;AACU;AACF;AACF;AACC;AAJP;AAOA,mHACa,eADb;;AACa,sCARb,yCAQa;AADb;AA3CF,gHACS,SADT;;AACS,8BAAW,sBAAO,sBAAlB;AADT;AAoCE,kHACU,aACF,WACF,OAHN;;AACU;AACF;AACF;AACC;AAJP;AAOA,kHACa,eADb;;AACa,sCARb,wCAQa;AADb;AA3CF,gIACS,SADT;;;AACS,gCAAW,QEuKP,gEFvKO,GAAO,SEuKd,gEFvKc,EAAlB;AADT;;AAoCE,kIACU,aACF,WACF,OAHN;;;AACU,qCEmIC,+DFnID;AACF;AACF;AACC,iCEgII,gEFhIJ;AAJP;;AAOA,kIACa,eADb;;;AACa,wCARb,0EAQa;AADb;;AA3CF,oIACS,SADT;;;AACS,gCAAW,QE8TH,oEF9TG,GAAO,SE8TV,oEF9TU,EAAlB;AADT;;AAoCE,sIACU,aACF,WACF,OAHN;;;AACU,qCE0RK,mEF1RL;AACF;AACF;AACC,iCEuRQ,oEFvRR;AAJP;;AAOA,sIACa,eADb;;;AACa,wCARb,8EAQa;AADb;;AA3CF,gIACS,SADT;;;AACS,gCAAW,QE8UP,gEF9UO,GAAO,SE8Ud,gEF9Uc,EAAlB;AADT;;AAoCE,kIACU,aACF,WACF,OAHN;;;AACU,qCE0SC,+DF1SD;AACF;AACF;AACC,iCEuSI,gEFvSJ;AAJP;;AAOA,kIACa,eADb;;;AACa,wCARb,0EAQa;AADb;;AAvCE;uCAAsC,QE2TzB,oEF3TyB,GAAO,SE2ThC,oEF3TgC,EAA7C;;AAIJ;;AAGG;AAHH;AA2CwB;;AAC9B;AAD8B;AAEjC,YAAG,iFAAe,KAAC,IAAnB,EACE,oFAAiB,wEAAmB,QAAC,UADvC;AAEA,qCAAQ,oKAAR;AAHG;AAD8B;AAC9B;AAD8B;;;AAOE;;AAEhC;AAFgC;AAGlC,qCAA4C,eAAlC,gFAA2B,QAAC,YAAM,CAAC,WAAD,CAAN,mEAAM,EAA5C;AADE;AAFgC;AAEhC;AAFgC;;;AAlD1B;;;AAaO;;;AA6CkB;;AAGpC;AACA;AAEE,eAAQ;AACR,UAAG,KAAM,KAAE,MAAX,EAAuB,aAAvB;;AAPkC;AA7ClB;;;AAOQ;;;;;AAEtB;AAFsB;;;;;AAkDkB;;AAG1C,eAAU,gBAAW,CAAC,MAAO,MAAR;;AAHqB;AAME;AAElC;AACV,yBAAe;AAH6D;AAAhC;AAxDpB;;;AA5Bf,0IACS,SADT;;;AACS,gCAAW,QGwTG,yEHxTH,GAAO,SGwTJ,yEHxTI,EAAlB;AADT;;AAoCE,4IACU,aACF,WACF,OAHN;;;AACU,qCGoRW,wEHpRX;AACF;AACF;AACC,iCGiRc,yEHjRd;AAJP;;AAOA,4IACa,eADb;;;AACa,wCARb,mFAQa;AADb;;AAvDb;AIAA,+BAIS,UAJT;;;AAIS,2BAGY,mDAHZ;AAJT;ACAA,mCAKS,+FALT;;;;AAuEa;AAWA;AAXA;AAWA;AAXA;AAWA;AAXA;;AAWA;;AAuRA;AAlSA;AAWA;AAxDO;AA8BN;AAwCD;AAwBU;AA+BhB;AAhFM;AAWA;AAxDO;AA8BN;AAwCD;AAwBU;AA+BhB;AAhFM;AAWA;AAXA;AAWA;AAuRA;AAlSA;AAWA;AAuRA;AAlSA;AAWA;AAuRA;AAlSA;AAWA;AAXA;AAWA;AAuRA;AAlSA;AAWA;AAXA;AAWA;AAuRA;AA/UO;AA8BN;AAwCD;AAwBU;AA+BhB;AAoEM;AAjMO;AA8BN;AAwCD;AAwBU;AA+BhB;AA7Ha;AA8BN;AAwCD;AAwBU;AA+BhB;AAhFM;AAWA;AAxDO;AA8BN;AAwCD;AAwBU;AA+BhB;AAoEM;AApJA;AAWA;AAxDO;AA8BN;AAwCD;AAwBU;AA+BhB;AAoEM;AApJA;AAWA;AAxDO;AA8BN;AAwCD;AAwBU;AA+BhB;AAoEM;AApJA;AAWA;AAXA;AAWA;AAuRA;AA4IQ;AA9aR;AAWA;AAxDO;AA8BN;AAwCD;AAwBU;AA+BhB;AAoEM;AA9MY;;AAMJ;AACjB;AAAY;AACZ;AAFiB;aACjB,kCAAY,IAAA,0CACZ,4CADY;AADK;;AACjB;AAAY;AACZ;AAFiB;;;AACjB;AAAY;AACZ;AAFiB;AAiIT;;AAmNC;;AAhSA;AA0nBmB;;AAE9B,eAAQ;;AAFsB;AA1nBnB;AAWA;AAsnBwB;;AAEnC,eAAQ;;AAF2B;AAKN;;AAE7B;AAEA,eAAQ;AACR,oBAAe;AACf;AACE,eAAM,WAAW,WAAjB,EACW,MAAO,KAAK,CAAY,0DAAX,WAAW,aAAC,EAAD,CAAZ;AAFzB;AAIE,mBAAY,eAAZ,WAAY;AAJd;;AAN6B;AA3nBlB;AA8ZW;;AACC,2CADD,4CACC;AA1aZ;AA0nBmB;;AAE9B,eAAQ;;AAFsB;AA1nBnB;AAWA;AAsnBwB;;AAEnC,eAAQ;;AAF2B;AAKN;;AAE7B;AAEA,eAAQ;AACR,oBAAe;AACf;AACE,eAAM,WAAW,WAAjB,EACW,MAAO,KAAK,CAAY,0DAAX,WAAW,aAAC,EAAD,CAAZ;AAFzB;AAIE,mBAAY,eAAZ,WAAY;AAJd;;AAN6B;AA3nBlB;AA4QN;AACH;AACA;AAFG;aACH,oBACA;AAFG;;AACH;AACA;AAFG;;AAk0B8B;AAEnC,iBAAK;AACL,mBAAO;AAHqE;AAAzC;AAl0B9B;AACH;AACA;AACkB,6BAAW,sBAAoB,uBAA/B;AAHf;;AACH;AADG;;gBAEH;AAFG;;;aACH,oBACA;AAFG;;AACH;AACA;AAFG;;AAk0B8B;AAEnC,iBAAK;AACL,yBAAO,MAAP;AAH4E;AAAzC;AAl0B9B;AACH;AACA,wBAFG,gDAEH;AACkB,6BAAW,uBAAoB,UAH9C,iDAG8C,EAA/B;AAHf;AAvRM;AA0nBmB;;AAE9B,eAAQ;;AAFsB;AA1nBnB;AAWA;AAsnBwB;;AAEnC,eAAQ;;AAF2B;AAKN;;AAE7B;AAEA,eAAQ;AACR,oBAAe;AACf;AACE,eAAM,WAAW,WAAjB,EACW,MAAO,KAAK,CAAY,yFAAX,WAAW,aAAC,EAAD,CAAZ;AAFzB;AAIE,mBAAY,eAAZ,WAAY;AAJd;;AAN6B;AA3nBlB;AAXA;AA0nBmB;;AAE9B,eAAQ;;AAFsB;AA1nBnB;;AA0nBmB;;AAE9B,eAAQ;;AAFsB;AA1nBnB;AAWA;AAsnBwB;;AAEnC,eAAQ;;AAF2B;AAKN;;AAE7B;AAEA,eAAQ;AACR,oBAAe;AACf;AACE,eAAM,WAAW,WAAjB,EACW,MAAO,KAAK,CAAY,4DAAX,WAAW,aAAC,EAAD,CAAZ;AAFzB;AAIE,mBAAY,eAAZ,WAAY;AAJd;;AAN6B;AA3nBlB;;AAsnBwB;;AAEnC,eAAQ;;AAF2B;AAKN;;AAE7B;AAEA,eAAQ;AACR,oBAAe;AACf;AACE,eAAM,WAAW,WAAjB,EACW,MAAO,KAAK,CAAC,WAAW,aAAC,EAAb;AAFzB;AAIE,mBAAY,eAAZ,WAAY;AAJd;;AAN6B;AA3nBlB;AApEW,6FAAuB,WzCgHtC,2ByChHsC,EAAsB,wBAC1D,WAFc,qCAEd,CADa;sIAAuB,WzCgHtC,2ByChHsC,EAAsB,SAgV9D,iDAhV8D,GAC1D,WAFc,qCAEd,CADa;AA2VX;AA0CQ;;;AAEb;AACA;AAHa;;;;;;AAuiCwC;;AAE3D,uBAAQ,iBAAY,EAApB;;AAF2D;AAKE;;AAG7D;AAGA,YAAoB,SAAI;AACxB,uBAAe,wFAAf;AACA,cAAM,OAAO,CAAK,UAAC,CAAC,CAAC,CAAD,CAAF,EAAa,cAAC,CAAC,CAAC,CAAD,CAAF,CAAlB;;AARgD;AAWF;;AAE3D,oBAAM,UAAK;AACX,iBAAQ,CAAI,SAAI;;AAH2C;AAMD;AAE1D,qBAAO,WAAW,KAAK;AAFgE;AAA7B;AAKD;;AAEzD,iBAAQ;;AAFiD;AAlkCtC;AAgBD;;;AAEZ;AACA;AAHY;;;;;;AAyjCwC;;AAE1D,iBAAQ,iBAAY;;AAFsC;AAKE;;AAE5D,iBAAY,UAAC,SAAI,MAAL;;AAFgD;AAKF;;AAE1D,oBAAM,UAAK;AACX,iBAAQ,CAAI,SAAI;;AAH0C;AAWD;AAEzD,qBAAO;AAF8E;AAA5B;AALA;AAEzD,qBAAM,CAAC,WAAW,KAAK,OAAjB;AAFgF;AAA7B;AAUD;;AAExD,iBAAQ;;AAFgD;AAnlCtC;AAiBE;;;AAEd;AACA;AAHc;;;;;;AAykCwC;;AAE5D,uBAAQ,iBAAY,EAApB;;AAF4D;AAKE;;AAE9D,uBAAc,cAAC,SAAI,MAAL,CAAd;;AAF8D;AAKF;;AAE5D,oBAAM,UAAK;AACX,iBAAQ,CAAI,SAAI;;AAH4C;AAWD;AAE3D,qBAAO;AAF+E;AAA3B;AALA;AAE3D,qBAAM,CAAC,WAAW,KAAK,SAAjB;AAFkF;AAA7B;AAUD;;AAE1D,iBAAQ;;AAFkD;AAnmCtC;AAiBA;;;AAEd;AAFc;;;;;AAylCsC;;AAE1D,iBAAQ,SAAI;;AAF8C;AAKO;;AAEjE,iBAAQ,wGAAgB,QAAC,YAAM,CAAC,SAAI,SAAL,CAAN;;AAFwC;AAKN;AAE3D,oBAAM,WAAW;AAFuE;AAA7B;AAKI;;AAE/D,iBAAyB;;AAFsC;AAKN;;AAGzD;AACA;AAGU,cAAD,sBAAC,4DAAO,SAAI,KAAZ;AACT,YAAS;AAAL;;;AAEF,kBAAM,CAAC,CAAD,UAAK,CAAL;AACF,aAAJ,IAAG;;AAHD;AAAK;AAAL;;AARqD;AA7mCrC;AAeF;;;AAEZ;AAFY;;;;;AA+mCsC;;AAExD,iBAAQ,SAAI;;AAF4C;AAKO;;AAE/D,iBAAQ;;AAFuD;AAKN;AAEzD,oBAAM,WAAW;AAFqE;AAA7B;AAKI;;AAE7D,iBAAQ,sGAAc,QAAC,YAAM,CAAC,SAAI,OAAL,CAAN;;AAFsC;AAKN;;AAEvD,iBAAkB;;AAFqC;AAnoCrC;AA3GP;;AAET;AACA;AAsHA;AACA;AACA;AACA;AA5HS;;;;;;;;;;AAm0BqC;;AAGhD;AACA;AAGA,UAAG,CAAY,CAAC,cAAD,SAAf,EACM,OAAC,GADP;AAEA,WAAI,SAAI;AACR,UAAG,EAAE;AACL,aAAM,CAAI,CAAC,KAAX;AAEE,iBAAY,UAAC,CAAC,MAAF;AACZ,YAAG,cAAS,QAAQ,CAAC,OAAO,GAAR,CAAY,KAAC,CAAjC,EACE,aADF;AAEA,YAAG,EAAE;;AAEP,eAAQ;;AAlBwC;AAqBR;;AAGxC;AAGA,UAAG,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB;AACX,UAAG,kBAAW,CAAC,CAAD,CAAd,EACE,MAAM,gBAAW,QAAC,YAAM,CAAC,yCAAD,CAAN,CADpB;AAEA,qBAAc,cAAC,CAAD,CAAd;;AATwC;AAYC;AAGzC;AAGA,UAAG,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB;AACX,UAAG,CAAI,kBAAW,CAAC,CAAD,CAAlB,EACE,gBAAW,CAAO,cAAC,CAAD,EAAI,sCAAX,CADb;AAEA,eAAI,IAAK,CAAC,IAAI,kEAAL;AACT,sBAAW,CAAC,MAAO,oCAAR;AAV8B;AAaF;AAEvC,eAAI,IAAK,CAAC,oBAAe,CAAC,GAAD,EAAM,kEAAtB;AACT,oBAAS,CAAC,IAAI,oCAAL;AACT,sBAAW,CAAC,MAAM,oCAAP;AAJ4B;AAQE;;AAEzC;AACA;AAGA,UAAG,oBAAe,CAAC,GAAD;AAClB,UAAG,SAAI,IAAI,CAAC,CAAD;AACX,UAAG,CAAI,kBAAW,CAAC,CAAD,CAAlB;AAEE,iBAAI,OAAO,CAAC,CAAD;AACX,uBAAc,cAAC,CAAD,CAAd;AACA,sBAAS,CAAC,IAAI,YAAL;AACT,wBAAW,CAAC,OAAO,YAAR;OALb;;AARyC;AAiBA;;AAEzC,eAAQ,SAAI;;AAF6B;AA2FG;;AAG5C,eAAqB,CAAZ,iBAAY,KAAC,IAAD,CAAM,IAAmB,CAAd,mBAAc,KAAC,IAAD,CAAnB;;AAHiB;AAtFI;;AAGhD,eAAQ,oBAAe,QAAC,YAAM,CAAC,IAAD,CAAN;;AAHwB;AAMJ;AAG5C,oBAAS,CAAC,IAAI,MAAL;AACT,sBAAW,CAAC,MAAM,MAAP;AAJiC;AAOD;AAE3C,UAAY,iBAAD,QAAX,EACE,iBAAY,CAAC,KAAK,IAAI,MAAV,CADd;AAF2C;AAME;AAE7C,UAAY,mBAAD,QAAX,EACE,mBAAc,CAAC,KAAK,MAAM,MAAZ,CADhB;AAF6C;AAMH;AAE1C,kBAAa,IAAP,GAAO;AACb,UAAG,SAAS,GAAC,CAAb;AAHmE;AAAzB;AAMA;AAG1C;AAGA,mBAAM,CAAC,CAAD;AACN,UAAa;AAAT;;;AACF,kBAAG,CAAC,KAAK,KAAK,KAAK,MAAhB;;AADD;AAAS;AAAT;AAP+E;AAAzC;AAWA;AAE1C,mBAAM,CAAC,CAAD;AACN,oCAAW,SAAX;AAH6E;AAAnC;AAMA;AAE1C,6BAAU,CAAC;;;;UAAD;AACV,6BAAU,CAAC;;;;UAAD;AACV;AACA,kBAAM;AACI;AANgC;AASL;AAErC,UAAG,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB,CAAX,EACE,MAAM,gBAAW,QAAC,YAAM,CAAC,0CAAD,CAAN,CADpB;AAEA,gBAAK,CAAC,IAAI,KAAL;AAJgC;AAOG;AAExC,mBAAQ,CAAC,IAAI,sCAAL;AAFgC;AAKI;;AAG5C;AAGA,qBAAe,wFAAf;AACA,UAAG,oBAAe,CAAC,GAAD;AAClB,UAAG,SAAI,IAAI,CAAC,CAAD,CAAX;AAEE,cAAM,OAAO,CAAC,IAAU,cAAC,SAAI,IAAI,CAAC,CAAD,CAAT,CAAX;AACb,iBAAI,OAAO,CAAC,CAAD;OAGX,MAAA,MAAM,OAAO,CAAC,IAAW,2DAAZ;;AAd6B;AAuBL;AAGvC;AACA;AACA;AACA;AACA;AAGA,UAAG,kBAAH;AACE,iBAAI;;AAGJ,eAAM,SAAI;AACV;AACE,iBAAM,IAAI;AACV,cAAG,CAAI,IAAI,KAAX;AAEE,gBAAoB,IAAI;AACxB,gBAAO,UAAC,CAAC,CAAC,CAAD,CAAF;AACP,sBAAS,cAAC,CAAC,CAAC,CAAD,CAAF,CAAT;AACA,qBAAI,OAAO,CAAC,CAAD;AACX,2BAAU,CAAC,EAAE,+DAAE,sCAAL;WANZ;SAFF,QAUU,CAAJ,IAAI,KAVV;;AAfqC;AA8BK;;AAG5C;AAEA,UAAG,oBAAe,CAAC,GAAD;AAClB,eAAQ,SAAI,IAAI,CAAC,CAAD;AAChB,UAAG,MAAH,EACE,cAAa,cAAC,SAAI,IAAI,CAAC,CAAD,CAAT,CAAb,CADF;;AAP4C;AAYG;AAG/C;AAGA,UAAG,oBAAe,CAAC,GAAD;AAClB,UAAG,CAAI,SAAI,IAAI,CAAC,CAAD,CAAf;AACE,kBAAK,CAAC,IAAI,KAAL;AAEL,YAAA,YAAO,CAAC,EAAE,KAAH;AAVsC;AAaH;;AAE5C,eAAQ,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB;;AAF4B;AAKE;;AAG9C;AACA;AAGA,eAAQ;AACR,WAAI,SAAI;AACR;AACE,cAAK,EAAE;AACP,YAAG,CAAI,GAAG,KAAV,EACE,SAAS,KAAK,KAAO,cAAC,GAAG,MAAJ,CAAP,CADhB;OAFF,QAIc,EAAP,MAAO,IAAG,GAAG,KAAN,CAJd;;AAT8C;AAgBN;;AAExC,eAAkB;;AAFsB;AAKA;;AAExC,UAAG,mBAAc,KAAC,IAAlB,EACE,sBAAgB,mBAAc,QAAC,YAAM,CAAC,IAAD,CAAN,CADjC;AAEA,eAAQ;;AAJgC;AAOE;;AAE1C,UAAG,qBAAgB,KAAC,IAApB,EACE,wBAAkB,qBAAgB,QAAC,YAAM,CAAC,IAAD,CAAN,CADrC;AAEA,eAAQ;;AAJkC;AAOI;;AAE9C,eAAQ,oBAAe,QAAC,YAAM,CAAC,IAAD,CAAN;;AAFsB;AA1kCnC;AAlSA;AA0nBmB;;AAE9B,eAAQ;;AAFsB;AA1nBnB;AAWA;AAsnBwB;;AAEnC,eAAQ;;AAF2B;AAKN;;AAE7B;AAEA,eAAQ;AACR,oBAAe;AACf;AACE,eAAM,WAAW,WAAjB,EACW,MAAO,KAAK,CAAC,WAAW,aAAC,EAAb;AAFzB;AAIE,mBAAY,eAAZ,WAAY;AAJd;;AAN6B;AA3nBlB;AApEW,4FAAuB,WzCgHtC,2ByChHsC,EAAsB,uBAC1D,WAFc,qCAEd,CADa;AAYJ;AA4esB;AAGxC,iBAAI,CAAC,QAAS,UAAc,EAAiB,WAAC,aAAD,CAAzC;AAHoC;AAMA;AAGxC,UAAG,MAAO,IAAG,CAAb,EACE,MADF;AAEA,oBAAS,CAAC,QAAS,OAAoB,CAAP,MAAO,GAAE,MAAF,CAAR,KAAmB,SAAzC;AAL+B;AAQO;;AAI/C,eAAU,mBAAY,CAAC,QAAS,MAAO,YAAa,UAC7B,EAAS,WAAC,OAAD,CADV;;AAJyB;AAQA;;AAI/C,eAAU,iBAAY,CAAC,QAAS,MAAO,cAAe,UAC/B,EAAS,WAAC,OAAD,CADV;;AAJyB;AAlgB7B;AA8BN;AA8e2B;AAGvC;AAAG;AACH;AAAG;AAEH,UAAqB,CAAT,CAAP,MAAO,GAAE,KAAF,CAAS,IAAG,CAAH,CAAM,IAAoB,CAAV,WAAC,aAAD,CAAU,KAAE,CAAF,CAA/C,EACE,MADF;AAEA;AACE,YAAK;AACL,YAAK;AACL,YAAK,aAAO,CAAC,KAAM,GAAmB,WAAT,CAAP,MAAO,GAAE,KAAF,CAAS,KAA1B;AACZ;AACE,iBAAM,SAAS,QAAQ,CAAC,aAAO,CAAC,CAAD,EAAK,CAAb,CAAgB,GAAE,CAAzC,EACM,CAAJ,IAAG;AACL,iBAAM,SAAS,QAAQ,CAAC,aAAO,CAAC,CAAD,EAAK,CAAb,CAAgB,GAAE,CAAzC,EACM,CAAJ,IAAG;AACL,cAAG,CAAE,IAAG,CAAR;AAEE,gBAAG,CAAE,KAAG,CAAR;AAEE,kBAAK,aAAO,CAAC,CAAD;AACZ,2BAAO,CAAC,CAAD,CAAP,GAAc,aAAO,CAAC,CAAD;AACrB,2BAAO,CAAC,CAAD,CAAP,GAAc;aAJhB;AAMI,aAAJ,IAAG;AACC,aAAJ,IAAG;WATL;SALF,QAgBQ,EAAF,CAAE,GAAE,CAAF,CAhBR;AAoBA,YAAK,CAAF,CAAE,GAAE,KAAF,CAAQ,GAAS,CAAP,MAAO,GAAE,CAAF,CAAtB;AAEE,cAAG,KAAM,GAAE,CAAX,EACE,cAAS,CAAC,QAAS,MAAO,EAAG,SAApB,CADX;AAEA,kBAAS;;AAIT,cAAG,CAAE,GAAE,MAAP,EACE,cAAS,CAAC,QAAS,EAAG,OAAQ,SAArB,CADX;AAEA,mBAAU;;OAlCd,QAoCY,EAAN,KAAM,IAAG,MAAH,CApCZ;AARuC;AA+CE;;AAIzC;AAAM;AAAM;AAAM;AAKlB,aAAQ;AACR,aAAoB,CAAP,MAAO,GAAE,MAAF,CAAR;AAEZ,YAAK,IAAK,GAAE,IAAF;AACV,aAAM,GAAG,GAAC,IAAD;AACT,aAAO,IAAK,GAAE,IAAd;AAEE,eAAoB,UAAP,CAAJ,IAAI,GAAC,IAAD,CAAO,GAAI,CAAJ;AAGpB,qBAAa,cAAb,GAA+B,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAEhD,YAAI,aAAa,cAAe,GAAE,CAAlC;AACE,iBAAQ,IAAK,GAAE,CAAF;;AAGb,cAAG,aAAa,cAAe,KAAE,CAAjC;AAEE,yBAAa,WAAb,GAA4B;AAC5B,yBAAa,eAAb,GAAgC;AAC5B,mBAAC;WAJP;AAMA,iBAAQ;;;AASZ,eAAS,IAAK,KAAE,IAAF;AACd,UAAG,MAAH;AAEE,qBAAa,cAAb,GAA+B,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAChD,qBAAa,eAAb,GAAgC;AAChC,iBAAS,aAAa,cAAe,KAAE,CAAF;AACrC,YAAG,MAAH;AACE,uBAAa,WAAb,GAA4B;AAE5B,cAAA,aAAa,WAAb,GAA4B,CAAC;;AAI/B,qBAAa,cAAb,GAA+B;AAC/B,qBAAa,WAAb,GAA4B,CAAC;AAC7B,qBAAa,eAAb,GAAgC,CAAC;;;AAvDM;AA2DA;;AAIzC;AAAM;AAAM;AACZ;AAGA,aAAQ;AACR,aAAoB,CAAP,MAAO,GAAE,MAAF,CAAR;AAGZ,aAAO,IAAK,GAAE,IAAd;AAEE,eAAsB,UAAR,CAAL,IAAK,GAAE,IAAF,CAAQ,GAAI,CAAJ;AAMtB,mBAAY,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAE7B,YAAI,QAAS,GAAE,CAAf;AACE,iBAAQ,IAAK,GAAE,CAAF;;AAGb,cAAG,QAAS,KAAE,CAAd;AAEE,4BAAe,IAAf;AACI,mBAAC;WAHP;AAKA,iBAAQ;;;AAQZ,iBAAY,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAC7B,eAAc,CAAL,IAAK,KAAE,IAAF,CAAQ,IAAc,CAAT,QAAS,KAAE,CAAF,CAAd;AACtB,UAAG,MAAH;AACE,wBAAe,IAAf;AAEA,4BAAe,CAAC,CAAhB;;AA5CuC;AAxlB7B;AAwCD;;;AAET;AAKA;AACA;AARS;;;;;;AA6nBsB;;AAEjC,eAAc,WAAC,WAAD;;AAFmB;AAKM;;AAEvC,UAAG,YAAO,KAAO,WAAC,WAAD,CAAjB,EACW,WAAO,KAAK,CAAQ,EAAR,CADvB;AAGA,eAAU;AACN,kBAAJ,IAAG;;AANoC;AASC;;AAExC;AAEA,UAAG,MAAO,GAAE,CAAZ,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAEA,UAAG,MAAO,KAAE,CAAZ,EACM,OAAC,YAAQ,GAAE,CADjB;AAGA,eAAqB,KAAR,WAAC,WAAD,CAAQ,GAAC,CAAD,EAAa,OAAP,YAAO,GAAC,MAAD,kBAAlC;AAAI;AACO,mBAAO,KAAK,CAAQ,EAAR;;AAEvB,eAAU;AACN,kBAAJ,IAAa;;AAb2B;AAgBX;AAG7B,UAAY,cAAD,QAAX,EACE,cAAS,CAAC,KAAM,OAAQ,uBAAf,CADX;AAH6B;AAOC;;AAG9B,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,eAAU,WAAM,CAAC,MAAD;AACZ,kBAAJ,IAAG;AAEH,iBAAM,CAAC,MAAD,CAAN,GAAyB;AAChB,iBAAO,OAAO,CAAC,OAAO,CAAR;AAEvB,iBAAM,CAAC,OAAQ,uBAAT;;AAZwB;AAeA;;AAE9B,eAAU;;AAFoB;AAjrBnB;AAQI;AARJ;AAwBU;;;AAEnB;AACA;AAHmB;;;;;AAiqBqB;;AAEtC,iBAAJ,IAAG;AACH,eAAyB,CAAd,UAAK,QAAS,GAAE,CAAF,CAAK,IAAY,CAAP,WAAO,GAAE,UAAK,QAAP,CAAZ;;AAHY;AAME;;AAE5C,eAAU;;AAFkC;AAKF;;AAE1C,eAAU,UAAK,OAAO,CAAC,WAAD;;AAFoB;AAKD;AAE/B;AACV,oBAAU,CAAC;AACX,mBAAS;AAJwD;AAAxB;AAjrBpB;AA+BhB;AAeU;;AAfV;;AAEH;AAFG;;;;;AA2pBoB;;AAEzB,UAAY,cAAD,QAAX;AACE,iBAAS,cAAS,QAAQ,CAAC,KAAM,KAAP,CAAc,KAAE,CAAF;AAExC,qBAAS,IAAK,KAAE,KAAF;;AALS;AAQG;AAE5B,UAAG,MAAO,GAAE,YAAZ,EACE,cAAS,MAAT,CADF;AAEU,iBAAD,sBAAC,eAAQ,MAAT;AAJmB;AAOH;AAEzB,UAAG,MAAO,GAAE,CAAZ,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAG,MAAO,GAAE,kBAAZ;AACE,yBAAY,MAAZ;AACG,gBAAG,MAAO,GAAE,YAAZ,EACH,gBAAW,CAAC,OAAQ,YAAM,GAAE,MAAjB,CADR;AAGL,qBAAW;AAVc;AAaM;;AAIA;AAE/B,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAES,iBAAO,OAAO,CAAC,OAAO,EAAE,MAAV;AACnB,kBAAJ,IAAG;AAEH,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;AARyB;AAWA;;AAE/B,eAAU;;AAFqB;AAKR;;AAEvB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,eAAU,WAAM,CAAC,MAAD;;AALO;AAQC;AAExB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAEA,iBAAM,CAAC,WAAM,CAAC,MAAD,EAAU,sCAAjB;AACN,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;AANkB;AASK;;AAE7B,eAAU,gBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;;AAFO;AAKJ;AAEzB;AAF0B;AAAD;AAKA;AAEzB;AACA,oCAAa,SAAb;AAHyD;AAAhC;AAMA;AAEzB;AAEA;AACA,UAAa;AAAT;;;AACF,kBAAG,CAAC,KAAD;;AADD;AAAS;AAAT;AALmD;AAA9B;AASA;AAEzB,sBAAW,CAAC,CAAD;AAFc;AAKN;;AAEnB,eAAU;AACV,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;;AAJa;AAOM;AAEzB,sBAAW,CAAC,aAAO,OAAR;AAFc;AAKA;AAEzB;AAEA,UAAc;AAAV;;;AACF,kBAAG,CAAC,MAAD;;AADD;AAAU;AAAV;AAJqB;AAQA;AAEzB;AAEA,UAAc;AAAV;;;AACF,kBAAG,CAAC,MAAD;;AADD;AAAU;AAAV;AAJqB;AAQF;AAEvB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,yBAAc,CAAC,OAAQ,MAAT;AALS;AAQK;AAE5B;AAAS;AACT;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,gBAAiB,WAAC,OAAD;AACjB,UAAG,OAAQ,KAAE,CAAb,EACE,MADF;AAGA,UAAG,MAAO,KAAG,uBAAkB,CAAC,OAAD,CAA/B;AAEE,iBAAS,aAA0B,OAAhB,YAAgB,GAAR,OAAF,GAAW,CAAD,kBAAnC;AAAI;AACF,qBAAM,CAAC,CAAC,GAAC,OAAH,CAAN,GAAqB,WAAM,CAAC,CAAD;;AAC7B,iBAAS,SAAa,QAAR,OAAQ,GAAC,CAAD,qBAAtB;AAAI;AACF,qBAAM,CAAC,MAAM,GAAC,CAAR,CAAN,GAA2B;;OAL/B;AAQA,eAAS,SAAS,QAAC,OAAD,yBAAlB;AAAI;AAEF,iBAAQ,OAAO,CAAC,CAAD;AACf,mBAAM,CAAC,CAAC,GAAC,MAAH,CAAN,GAAoB;AACpB,mBAAM,CAAC,OAAQ,oCAAT;;AAxBoB;AA4BA;AAE5B;AACA;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAK;AACL,UAAc;AAAV;;;AAEF,6BAAc,CAAC,MAAO,GAAE,CAAF,CAAK,MAAb;AACV,WAAJ,IAAG;;AAHD;AAAU;AAAV;AATwB;AAgBA;AAE5B;AACA;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAK;AACL,UAAc;AAAV;;;AAEF,6BAAc,CAAC,MAAO,GAAE,CAAF,CAAK,MAAb;AACV,WAAJ,IAAG;;AAHD;AAAU;AAAV;AATwB;AA2BN;;AAEtB,eAAU,YAAO,CAAC,MAAD;AACjB,UAAG,MAAO,IAAG,CAAb,EACE,aAAQ,CAAC,OAAQ,sCAAT,CADV;;AAHsB;AAXI;;AAG1B,UAAG,SAAS,KAAY,uBAAxB;AACE,iBAAU,gBAAW,CAAC,MAAD;AAErB,qBAAU,YAAO,CAAC,MAAD;AACnB,UAAG,MAAO,IAAG,CAAb,EACE,aAAQ,CAAC,OAAQ,sCAAT,CADV;;AAP0B;AAkBH;AAEvB,mBAAQ,CAAC,OAAQ,sCAAT;AAFe;AAKK;AAE5B;AACA;AAEA,UAAG,MAAO,KAAE,CAAZ,EACE,MADF;AAGA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAqB,IAAL,CAAP,MAAO,GAAE,CAAF,CAAX,IAAoC,CAAT,CAAP,MAAO,GAAE,MAAF,CAAS,GAAE,YAAF,CAApD,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,iBAA4B,WAAO,OAAO,CAAC,OAAO,YAAR;AACtC,kBAAJ,IAAa;AAEb,eAAS,QAAS,kBAAC,QAAD,uBAAlB;AAAI;AACF,mBAAM,CAAC,QAAQ,CAAC,CAAD,EAAK,sCAAd;;AAfoB;AAkBA;;AAE5B,eAAU,aAAQ,CAAC,OAAQ,wCAAT;;AAFU;AAKL;;AAEvB;AAEA,eAAU,YAAO,CAAC,MAAD;AACjB,UAAG,MAAO,GAAE,CAAZ;AACE,iBAAe;AAEf,qBAAU,aAAQ,CAAC,OAAQ,wCAAT;;AARG;AAWE;AAEzB;AAEA,cAAS,WAAM,CAAC,OAAD;AACf,iBAAM,CAAC,OAAD,CAAN,GAAmB,WAAM,CAAC,OAAD;AACzB,iBAAM,CAAC,OAAD,CAAN,GAAmB;AANM;AASJ;AAErB;AACA;AACA;AAEA,UAAG,SAAU,KAAE,MAAf,EACE,MADF;AAGA,UAAc,CAAV,SAAU,GAAE,CAAF,CAAK,IAAc,CAAV,SAAU,IAAG,YAAH,CAAjC,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,YAAgB;AAChB,cAAS,GAAI;AACb,UAAG,MAAO,GAAE,SAAZ;AACE,iBAAS,aAAmB,OAAT,SAAS,GAAC,CAAD,kBAA5B;AAAI;AACF,aAAI,GAAJ,GAAU,GAAK,CAAD,CAAC,GAAC,CAAD;;AAEjB,qBAAS,cAAuB,QAAT,SAAS,GAAC,CAAD,qBAAhC;AAAI;AACF,WAAI,GAAJ,GAAU,GAAK,CAAD,CAAC,GAAC,CAAD;;AACnB,SAAI,WAAJ,GAAkB;AApBG;AAuBA;;AAErB,eAAU,YAAK,CAAC,CAAD;;AAFM;AAKD;;AAEpB,eAAU,YAAK,CAAM,YAAD,IAAL;;AAFK;AAKE;AAEtB,mBAAQ,CAAC,CAAD;AACR,sBAAW,CAAC,CAAD;AAHW;AAME;;AAExB,eAAU,YAAO,CAAC,MAAD,CAAS,IAAG,CAAH;;AAFF;AAKD;;AAEvB;AAEA,eAAS,QAAW,OAAN,YAAM,GAAE,CAAF,kBAApB;AAAI;AACF,YAAG,cAAS,CAAC,OAAQ,WAAM,CAAC,CAAD,CAAf,CAAZ,EACM,OAAC,CADP;;AAEF,eAAQ,CAAC;;AAPc;AAUI;;AAE3B;AAEA,eAAe,KAAN,YAAM,GAAE,CAAF,EAAW,aAA1B;AAAI;AACF,YAAG,cAAS,CAAC,OAAQ,WAAM,CAAC,CAAD,CAAf,CAAZ,EACM,OAAC,CADP;;AAEF,eAAQ,CAAC;;AAPkB;AAUH;AAExB;AAAG;AACH;AAEA,UAAK;AACL,UAAK,YAAM,GAAE,CAAF;AACX,aAAM,CAAE,GAAE,CAAV;AAEE,gBAAS,WAAM,CAAC,CAAD;AACf,mBAAM,CAAC,CAAD,CAAN,GAAa,WAAM,CAAC,CAAD;AACnB,mBAAM,CAAC,CAAD,CAAN,GAAa;AACT,SAAJ,IAAG;AACC,SAAJ,IAAG;;AAbmB;AAiBG;AAE3B,sBAAW,CAAC,YAAD;AAFgB;AAKN;AAErB,yDAAc,OAAK,CAAC;;;;WAAQ,eAAW,EAAG,YAAvB;AAFE;AAKA;AAErB,yDAAc,OAAK,CAAC;;;;WAAQ,UAAW,EAAG,YAAvB;AAFE;AAKO;;AAE5B,eAAU,mDAAc,eAAa,CAAC,YAAQ,MAAO,OAAQ,eAAW,EAAG,YAAtC;;AAFT;AAKA;;AAG5B,eAAU,mDAAc,eAAa,CAAC,YAAQ,MAAO,OAAQ,UAAW,EAAG,YAAtC;;AAHT;AAjgCvB;AAhFM;;;AA0nBmB;;AAE9B,eAAQ;;AAFsB;AA1nBnB;AAWA;;;AAsnBwB;;AAEnC,eAAQ;;AAF2B;AAKN;;AAE7B;AAEA,eAAQ;AACR,oBAAe;AACf;AACE,eAAM,WAAW,WAAjB,EACW,MAAO,KAAK,CAAC,WAAW,aAAC,EAAb;AAFzB;AAIE,mBAAY,eAAZ,WAAY;AAJd;;AAN6B;AA3nBlB;AApEW;uCAAuB,WzCgHtC,2ByChHsC,EAAsB,SJDhD,sDICgD,GAC1D,WAFc,qCAEd,CADa;;AAYJ;;;AA4esB;AAGxC,iBAAI,CAAC,QAAS,UAAc,EAAiB,WAAC,aAAD,CAAzC;AAHoC;AAMA;AAGxC,UAAG,MAAO,IAAG,CAAb,EACE,MADF;AAEA,oBAAS,CAAC,QAAS,OAAoB,CAAP,MAAO,GAAE,MAAF,CAAR,KAAmB,SAAzC;AAL+B;AAQO;;AAI/C,eAAU,mBAAY,CAAC,QAAS,MAAO,YAAa,UAC7B,EAAS,WAAC,OAAD,CADV;;AAJyB;AAQA;;AAI/C,eAAU,iBAAY,CAAC,QAAS,MAAO,cAAe,UAC/B,EAAS,WAAC,OAAD,CADV;;AAJyB;AAlgB7B;AA8BN;;;AA8e2B;AAGvC;AAAG;AACH;AAAG;AAEH,UAAqB,CAAT,CAAP,MAAO,GAAE,KAAF,CAAS,IAAG,CAAH,CAAM,IAAoB,CAAV,WAAC,aAAD,CAAU,KAAE,CAAF,CAA/C,EACE,MADF;AAEA;AACE,YAAK;AACL,YAAK;AACL,YAAK,aAAO,CAAC,KAAM,GAAmB,WAAT,CAAP,MAAO,GAAE,KAAF,CAAS,KAA1B;AACZ;AACE,iBAAM,SAAS,QAAQ,CAAC,aAAO,CAAC,CAAD,EAAK,CAAb,CAAgB,GAAE,CAAzC,EACM,CAAJ,IAAG;AACL,iBAAM,SAAS,QAAQ,CAAC,aAAO,CAAC,CAAD,EAAK,CAAb,CAAgB,GAAE,CAAzC,EACM,CAAJ,IAAG;AACL,cAAG,CAAE,IAAG,CAAR;AAEE,gBAAG,CAAE,KAAG,CAAR;AAEE,kBAAK,aAAO,CAAC,CAAD;AACZ,2BAAO,CAAC,CAAD,CAAP,GAAc,aAAO,CAAC,CAAD;AACrB,2BAAO,CAAC,CAAD,CAAP,GAAc;aAJhB;AAMI,aAAJ,IAAG;AACC,aAAJ,IAAG;WATL;SALF,QAgBQ,EAAF,CAAE,GAAE,CAAF,CAhBR;AAoBA,YAAK,CAAF,CAAE,GAAE,KAAF,CAAQ,GAAS,CAAP,MAAO,GAAE,CAAF,CAAtB;AAEE,cAAG,KAAM,GAAE,CAAX,EACE,cAAS,CAAC,QAAS,MAAO,EAAG,SAApB,CADX;AAEA,kBAAS;;AAIT,cAAG,CAAE,GAAE,MAAP,EACE,cAAS,CAAC,QAAS,EAAG,OAAQ,SAArB,CADX;AAEA,mBAAU;;OAlCd,QAoCY,EAAN,KAAM,IAAG,MAAH,CApCZ;AARuC;AA+CE;;AAIzC;AAAM;AAAM;AAAM;AAKlB,aAAQ;AACR,aAAoB,CAAP,MAAO,GAAE,MAAF,CAAR;AAEZ,YAAK,IAAK,GAAE,IAAF;AACV,aAAM,GAAG,GAAC,IAAD;AACT,aAAO,IAAK,GAAE,IAAd;AAEE,eAAoB,UAAP,CAAJ,IAAI,GAAC,IAAD,CAAO,GAAI,CAAJ;AAGpB,qBAAa,cAAb,GAA+B,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAEhD,YAAI,aAAa,cAAe,GAAE,CAAlC;AACE,iBAAQ,IAAK,GAAE,CAAF;;AAGb,cAAG,aAAa,cAAe,KAAE,CAAjC;AAEE,yBAAa,WAAb,GAA4B;AAC5B,yBAAa,eAAb,GAAgC;AAC5B,mBAAC;WAJP;AAMA,iBAAQ;;;AASZ,eAAS,IAAK,KAAE,IAAF;AACd,UAAG,MAAH;AAEE,qBAAa,cAAb,GAA+B,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAChD,qBAAa,eAAb,GAAgC;AAChC,iBAAS,aAAa,cAAe,KAAE,CAAF;AACrC,YAAG,MAAH;AACE,uBAAa,WAAb,GAA4B;AAE5B,cAAA,aAAa,WAAb,GAA4B,CAAC;;AAI/B,qBAAa,cAAb,GAA+B;AAC/B,qBAAa,WAAb,GAA4B,CAAC;AAC7B,qBAAa,eAAb,GAAgC,CAAC;;;AAvDM;AA2DA;;AAIzC;AAAM;AAAM;AACZ;AAGA,aAAQ;AACR,aAAoB,CAAP,MAAO,GAAE,MAAF,CAAR;AAGZ,aAAO,IAAK,GAAE,IAAd;AAEE,eAAsB,UAAR,CAAL,IAAK,GAAE,IAAF,CAAQ,GAAI,CAAJ;AAMtB,mBAAY,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAE7B,YAAI,QAAS,GAAE,CAAf;AACE,iBAAQ,IAAK,GAAE,CAAF;;AAGb,cAAG,QAAS,KAAE,CAAd;AAEE,4BAAe,IAAf;AACI,mBAAC;WAHP;AAKA,iBAAQ;;;AAQZ,iBAAY,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAC7B,eAAc,CAAL,IAAK,KAAE,IAAF,CAAQ,IAAc,CAAT,QAAS,KAAE,CAAF,CAAd;AACtB,UAAG,MAAH;AACE,wBAAe,IAAf;AAEA,4BAAe,CAAC,CAAhB;;AA5CuC;AAxlB7B;AAwCD;;;AAQI,0FJ3FI,6DI2FJ;AARJ;;;AAET;AAKA;AACA;AARS;;;;;;AA6nBsB;;AAEjC,eAAc,WAAC,WAAD;;AAFmB;AAKM;;AAEvC,UAAG,YAAO,KAAO,WAAC,WAAD,CAAjB,EACW,WAAO,KAAK,CAAQ,IAAR,CADvB;AAGA,eAAU;AACN,kBAAJ,IAAG;;AANoC;AASC;;AAExC;AAEA,UAAG,MAAO,GAAE,CAAZ,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAEA,UAAG,MAAO,KAAE,CAAZ,EACM,OAAC,YAAQ,GAAE,CADjB;AAGA,eAAqB,KAAR,WAAC,WAAD,CAAQ,GAAC,CAAD,EAAa,OAAP,YAAO,GAAC,MAAD,kBAAlC;AAAI;AACO,mBAAO,KAAK,CAAQ,IAAR;;AAEvB,eAAU;AACN,kBAAJ,IAAa;;AAb2B;AAgBX;AAG7B,UAAY,cAAD,QAAX,EACE,cAAS,CAAC,KAAM,OAAQ,uBAAf,CADX;AAH6B;AAOC;;AAG9B,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,eAAU,WAAM,CAAC,MAAD;AACZ,kBAAJ,IAAG;AAEH,iBAAM,CAAC,MAAD,CAAN,GAAyB;AAChB,iBAAO,OAAO,CAAC,OAAO,CAAR;AAEvB,iBAAM,CAAC,OAAQ,uBAAT;;AAZwB;AAeA;;AAE9B,eAAU;;AAFoB;AAjrBnB;AAwBU;;;;;AAEnB;AACA;AAHmB;;;;;AAiqBqB;;AAEtC,iBAAJ,IAAG;AACH,eAAyB,CAAd,UAAK,QAAS,GAAE,CAAF,CAAK,IAAY,CAAP,WAAO,GAAE,UAAK,QAAP,CAAZ;;AAHY;AAME;;AAE5C,eAAU;;AAFkC;AAKF;;AAE1C,eAAU,UAAK,OAAO,CAAC,WAAD;;AAFoB;AAKD;AAE/B;AACV,oBAAU,CAAC;AACX,mBAAS;AAJwD;AAAxB;AAjrBpB;AA+BhB;;AAeU;;AAfV;;;AAEH;AAFG;;;;;AA2pBoB;;AAEzB,UAAY,cAAD,QAAX;AACE,iBAAS,cAAS,QAAQ,CAAC,KAAM,KAAP,CAAc,KAAE,CAAF;AAExC,qBAAS,IAAK,KAAE,KAAF;;AALS;AAQG;AAE5B,UAAG,MAAO,GAAE,YAAZ,EACE,cAAS,MAAT,CADF;AAEU,iBAAD,sBAAC,iBAAQ,MAAT;AAJmB;AAOH;AAEzB,UAAG,MAAO,GAAE,CAAZ,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAG,MAAO,GAAE,kBAAZ;AACE,yBAAY,MAAZ;AACG,gBAAG,MAAO,GAAE,YAAZ,EACH,gBAAW,CAAC,OAAQ,YAAM,GAAE,MAAjB,CADR;AAGL,qBAAW;AAVc;AAaM;;AAIA;AAE/B,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAES,iBAAO,OAAO,CAAC,OAAO,EAAE,MAAV;AACnB,kBAAJ,IAAG;AAEH,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;AARyB;AAWA;;AAE/B,eAAU;;AAFqB;AAKR;;AAEvB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,eAAU,WAAM,CAAC,MAAD;;AALO;AAQC;AAExB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAEA,iBAAM,CAAC,WAAM,CAAC,MAAD,EAAU,sCAAjB;AACN,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;AANkB;AASK;;AAE7B,eAAU,gBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;;AAFO;AAKJ;AAEzB;AAF0B;AAAD;AAKA;AAEzB;AACA,oCAAa,SAAb;AAHyD;AAAhC;AAMA;AAEzB;AAEA;AACA,UAAa;AAAT;;;AACF,kBAAG,CAAC,KAAD;;AADD;AAAS;AAAT;AALmD;AAA9B;AASA;AAEzB,sBAAW,CAAC,CAAD;AAFc;AAKN;;AAEnB,eAAU;AACV,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;;AAJa;AAOM;AAEzB,sBAAW,CAAC,aAAO,OAAR;AAFc;AAKA;AAEzB;AAEA,UAAc;AAAV;;;AACF,kBAAG,CAAC,MAAD;;AADD;AAAU;AAAV;AAJqB;AAQA;AAEzB;AAEA,UAAc;AAAV;;;AACF,kBAAG,CAAC,MAAD;;AADD;AAAU;AAAV;AAJqB;AAQF;AAEvB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,yBAAc,CAAC,OAAQ,MAAT;AALS;AAQK;AAE5B;AAAS;AACT;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,gBAAiB,WAAC,OAAD;AACjB,UAAG,OAAQ,KAAE,CAAb,EACE,MADF;AAGA,UAAG,MAAO,KAAG,uBAAkB,CAAC,OAAD,CAA/B;AAEE,iBAAS,aAA0B,OAAhB,YAAgB,GAAR,OAAF,GAAW,CAAD,kBAAnC;AAAI;AACF,qBAAM,CAAC,CAAC,GAAC,OAAH,CAAN,GAAqB,WAAM,CAAC,CAAD;;AAC7B,iBAAS,SAAa,QAAR,OAAQ,GAAC,CAAD,qBAAtB;AAAI;AACF,qBAAM,CAAC,MAAM,GAAC,CAAR,CAAN,GAA2B;;OAL/B;AAQA,eAAS,SAAS,QAAC,OAAD,yBAAlB;AAAI;AAEF,iBAAQ,OAAO,CAAC,CAAD;AACf,mBAAM,CAAC,CAAC,GAAC,MAAH,CAAN,GAAoB;AACpB,mBAAM,CAAC,OAAQ,oCAAT;;AAxBoB;AA4BA;AAE5B;AACA;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAK;AACL,UAAc;AAAV;;;AAEF,6BAAc,CAAC,MAAO,GAAE,CAAF,CAAK,MAAb;AACV,WAAJ,IAAG;;AAHD;AAAU;AAAV;AATwB;AAgBA;AAE5B;AACA;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAK;AACL,UAAc;AAAV;;;AAEF,6BAAc,CAAC,MAAO,GAAE,CAAF,CAAK,MAAb;AACV,WAAJ,IAAG;;AAHD;AAAU;AAAV;AATwB;AA2BN;;AAEtB,eAAU,YAAO,CAAC,MAAD;AACjB,UAAG,MAAO,IAAG,CAAb,EACE,aAAQ,CAAC,OAAQ,sCAAT,CADV;;AAHsB;AAXI;;AAG1B,UAAG,SAAS,KAAY,uBAAxB;AACE,iBAAU,gBAAW,CAAC,MAAD;AAErB,qBAAU,YAAO,CAAC,MAAD;AACnB,UAAG,MAAO,IAAG,CAAb,EACE,aAAQ,CAAC,OAAQ,sCAAT,CADV;;AAP0B;AAkBH;AAEvB,mBAAQ,CAAC,OAAQ,sCAAT;AAFe;AAKK;AAE5B;AACA;AAEA,UAAG,MAAO,KAAE,CAAZ,EACE,MADF;AAGA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAqB,IAAL,CAAP,MAAO,GAAE,CAAF,CAAX,IAAoC,CAAT,CAAP,MAAO,GAAE,MAAF,CAAS,GAAE,YAAF,CAApD,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,iBAA4B,WAAO,OAAO,CAAC,OAAO,YAAR;AACtC,kBAAJ,IAAa;AAEb,eAAS,QAAS,kBAAC,QAAD,uBAAlB;AAAI;AACF,mBAAM,CAAC,QAAQ,CAAC,CAAD,EAAK,sCAAd;;AAfoB;AAkBA;;AAE5B,eAAU,aAAQ,CAAC,OAAQ,wCAAT;;AAFU;AAKL;;AAEvB;AAEA,eAAU,YAAO,CAAC,MAAD;AACjB,UAAG,MAAO,GAAE,CAAZ;AACE,iBAAe;AAEf,qBAAU,aAAQ,CAAC,OAAQ,wCAAT;;AARG;AAWE;AAEzB;AAEA,cAAS,WAAM,CAAC,OAAD;AACf,iBAAM,CAAC,OAAD,CAAN,GAAmB,WAAM,CAAC,OAAD;AACzB,iBAAM,CAAC,OAAD,CAAN,GAAmB;AANM;AASJ;AAErB;AACA;AACA;AAEA,UAAG,SAAU,KAAE,MAAf,EACE,MADF;AAGA,UAAc,CAAV,SAAU,GAAE,CAAF,CAAK,IAAc,CAAV,SAAU,IAAG,YAAH,CAAjC,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,YAAgB;AAChB,cAAS,GAAI;AACb,UAAG,MAAO,GAAE,SAAZ;AACE,iBAAS,aAAmB,OAAT,SAAS,GAAC,CAAD,kBAA5B;AAAI;AACF,aAAI,GAAJ,GAAU,GAAK,CAAD,CAAC,GAAC,CAAD;;AAEjB,qBAAS,cAAuB,QAAT,SAAS,GAAC,CAAD,qBAAhC;AAAI;AACF,WAAI,GAAJ,GAAU,GAAK,CAAD,CAAC,GAAC,CAAD;;AACnB,SAAI,WAAJ,GAAkB;AApBG;AAuBA;;AAErB,eAAU,YAAK,CAAC,CAAD;;AAFM;AAKD;;AAEpB,eAAU,YAAK,CAAM,YAAD,IAAL;;AAFK;AAKE;AAEtB,mBAAQ,CAAC,CAAD;AACR,sBAAW,CAAC,CAAD;AAHW;AAME;;AAExB,eAAU,YAAO,CAAC,MAAD,CAAS,IAAG,CAAH;;AAFF;AAKD;;AAEvB;AAEA,eAAS,QAAW,OAAN,YAAM,GAAE,CAAF,kBAApB;AAAI;AACF,YAAG,cAAS,CAAC,OAAQ,WAAM,CAAC,CAAD,CAAf,CAAZ,EACM,OAAC,CADP;;AAEF,eAAQ,CAAC;;AAPc;AAUI;;AAE3B;AAEA,eAAe,KAAN,YAAM,GAAE,CAAF,EAAW,aAA1B;AAAI;AACF,YAAG,cAAS,CAAC,OAAQ,WAAM,CAAC,CAAD,CAAf,CAAZ,EACM,OAAC,CADP;;AAEF,eAAQ,CAAC;;AAPkB;AAUH;AAExB;AAAG;AACH;AAEA,UAAK;AACL,UAAK,YAAM,GAAE,CAAF;AACX,aAAM,CAAE,GAAE,CAAV;AAEE,gBAAS,WAAM,CAAC,CAAD;AACf,mBAAM,CAAC,CAAD,CAAN,GAAa,WAAM,CAAC,CAAD;AACnB,mBAAM,CAAC,CAAD,CAAN,GAAa;AACT,SAAJ,IAAG;AACC,SAAJ,IAAG;;AAbmB;AAiBG;AAE3B,sBAAW,CAAC,YAAD;AAFgB;AAKN;AAErB,sEAAc,OAAK,CAAC;;;;WAAQ,eAAW,EAAG,YAAvB;AAFE;AAKA;AAErB,sEAAc,OAAK,CAAC;;;;WAAQ,UAAW,EAAG,YAAvB;AAFE;AAKO;;AAE5B,eAAU,gEAAc,eAAa,CAAC,YAAQ,MAAO,OAAQ,eAAW,EAAG,YAAtC;;AAFT;AAKA;;AAG5B,eAAU,gEAAc,eAAa,CAAC,YAAQ,MAAO,OAAQ,UAAW,EAAG,YAAtC;;AAHT;AAjgCvB;AAuMA;AACH;AACA;AAFG;aACH,oBACA;AAFG;;AACH;AACA;AAFG;;AAk0B8B;AAEnC,iBAAK;AACL,mBAAO;AAHqE;AAAzC;AAl0B9B;AACH;AACA,wBzClOK,2ByCkOL;AACkB,6BAAW,sBAAoB,UzCnO5C,4ByCmO4C,EAA/B;AAHf;AAvRM;AA0nBmB;;AAE9B,eAAQ;;AAFsB;AA1nBnB;AAWA;AAsnBwB;;AAEnC,eAAQ;;AAF2B;AAKN;;AAE7B;AAEA,eAAQ;AACR,oBAAe;AACf;AACE,eAAM,WAAW,WAAjB,EACW,MAAO,KAAK,CAAY,6DAAX,WAAW,aAAC,EAAD,CAAZ;AAFzB;AAIE,mBAAY,eAAZ,WAAY;AAJd;;AAN6B;AA3nBlB;AAXA;AA0nBmB;;AAE9B,eAAQ;;AAFsB;AA1nBnB;AAWA;AAsnBwB;;AAEnC,eAAQ;;AAF2B;AAKN;;AAE7B;AAEA,eAAQ;AACR,oBAAe;AACf;AACE,eAAM,WAAW,WAAjB,EACW,MAAO,KAAK,CAAC,WAAW,aAAC,EAAb;AAFzB;AAIE,mBAAY,eAAZ,WAAY;AAJd;;AAN6B;AA3nBlB;AApEW,6FAAuB,WzCgHtC,2ByChHsC,EAAsB,SzCgH5D,4ByChH4D,GAC1D,WAFc,qCAEd,CADa;AA2VX;AA0CQ;;;AAEb;AACA;AAHa;;;;;;AAuiCwC;;AAE3D,uBAAQ,iBAAY,EAApB;;AAF2D;AAKE;;AAG7D;AAGA,YAAoB,SAAI;AACxB,uBAAe,4DAAf;AACA,cAAM,OAAO,CAAK,KAAC,CAAC,CAAC,CAAD,CAAF,CAAa,cAAC,CAAC,CAAC,CAAD,CAAF,CAAlB;;AARgD;AAWF;;AAE3D,oBAAM,UAAK;AACX,iBAAQ,CAAI,SAAI;;AAH2C;AAMD;AAE1D,qBAAO,WAAW,KAAK;AAFgE;AAA7B;AAKD;;AAEzD,iBAAQ;;AAFiD;AAlkCtC;AAgBD;;;AAEZ;AACA;AAHY;;;;;;AAyjCwC;;AAE1D,iBAAQ,iBAAY;;AAFsC;AAKE;;AAE5D,iBAAY,KAAC,SAAI,MAAL;;AAFgD;AAKF;;AAE1D,oBAAM,UAAK;AACX,iBAAQ,CAAI,SAAI;;AAH0C;AAWD;AAEzD,qBAAO;AAF8E;AAA5B;AALA;AAEzD,qBAAM,CAAC,WAAW,KAAK,OAAjB;AAFgF;AAA7B;AAUD;;AAExD,iBAAQ;;AAFgD;AAnlCtC;AAiBE;;;AAEd;AACA;AAHc;;;;;;AAykCwC;;AAE5D,iBAAQ,iBAAY;;AAFwC;AAKE;;AAE9D,iBAAc,cAAC,SAAI,MAAL;;AAFgD;AAKF;;AAE5D,oBAAM,UAAK;AACX,iBAAQ,CAAI,SAAI;;AAH4C;AAWD;AAE3D,qBAAO;AAF+E;AAA3B;AALA;AAE3D,qBAAM,CAAC,WAAW,KAAK,SAAjB;AAFkF;AAA7B;AAUD;;AAE1D,iBAAQ;;AAFkD;AAnmCtC;AAiBA;;;AAEd;AAFc;;;;;AAylCsC;;AAE1D,iBAAQ,SAAI;;AAF8C;AAKO;;AAEjE,iBAAQ,4EAAgB,QAAC,YAAM,CAAC,SAAI,SAAL,CAAN;;AAFwC;AAKN;AAE3D,oBAAM,WAAW;AAFuE;AAA7B;AAKI;;AAE/D,iBAAyB;;AAFsC;AAKN;;AAGzD;AACA;AAGU,cAAD,sBAAC,YAAO,SAAI,KAAZ;AACT,YAAS;AAAL;;;AAEF,kBAAM,CAAC,CAAD,CAAN,GAAW;AACP,aAAJ,IAAG;;AAHD;AAAK;AAAL;;AARqD;AA7mCrC;AAeF;;;AAEZ;AAFY;;;;;AA+mCsC;;AAExD,iBAAQ,SAAI;;AAF4C;AAKO;;AAE/D,iBAAQ;;AAFuD;AAKN;AAEzD,oBAAM,WAAW;AAFqE;AAA7B;AAKI;;AAE7D,iBAAQ,0EAAc,QAAC,YAAM,CAAC,SAAI,OAAL,CAAN;;AAFsC;AAKN;;AAEvD,iBAAkB;;AAFqC;AAnoCrC;AA3GP;;AAET;AACA;AAsHA;AACA;AACA;AACA;AA5HS;;;;;;;;;;AAm0BqC;;AAGhD;AACA;AAGA,UAAG,CAAY,CAAC,cAAD,SAAf,EACM,OAAC,GADP;AAEA,WAAI,SAAI;AACR,UAAG,EAAE;AACL,aAAM,CAAI,CAAC,KAAX;AAEE,iBAAY,KAAC,CAAC,MAAF;AACZ,YAAG,cAAS,QAAQ,CAAC,OAAO,GAAR,CAAY,KAAC,CAAjC,EACE,aADF;AAEA,YAAG,EAAE;;AAEP,eAAQ;;AAlBwC;AAqBR;;AAGxC;AAGA,UAAG,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB;AACX,UAAG,kBAAW,CAAC,CAAD,CAAd,EACE,MAAM,gBAAW,QAAC,YAAM,CAAC,yCAAD,CAAN,CADpB;AAEA,eAAc,cAAC,CAAD;;AAT0B;AAYC;AAGzC;AAGA,UAAG,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB;AACX,UAAG,CAAI,kBAAW,CAAC,CAAD,CAAlB,EACE,gBAAW,CAAO,cAAC,CAAD,EAAI,sCAAX,CADb;AAEA,eAAI,IAAK,CAAC,IAAI,KAAL;AACT,sBAAW,CAAC,MAAO,oCAAR;AAV8B;AAaF;AAEvC,eAAI,IAAK,CAAC,oBAAe,CAAC,GAAD,EAAM,KAAtB;AACT,oBAAS,CAAC,IAAI,oCAAL;AACT,sBAAW,CAAC,MAAM,oCAAP;AAJ4B;AAQE;;AAEzC;AACA;AAGA,UAAG,oBAAe,CAAC,GAAD;AAClB,UAAG,SAAI,IAAI,CAAC,CAAD;AACX,UAAG,CAAI,kBAAW,CAAC,CAAD,CAAlB;AAEE,iBAAI,OAAO,CAAC,CAAD;AACX,iBAAc,cAAC,CAAD;AACd,sBAAS,CAAC,IAAI,YAAL;AACT,wBAAW,CAAC,OAAO,YAAR;OALb;;AARyC;AAiBA;;AAEzC,eAAQ,SAAI;;AAF6B;AA2FG;;AAG5C,eAAqB,CAAZ,iBAAY,KAAC,IAAD,CAAM,IAAmB,CAAd,mBAAc,KAAC,IAAD,CAAnB;;AAHiB;AAtFI;;AAGhD,eAAQ,oBAAe,QAAC,YAAM,CAAC,IAAD,CAAN;;AAHwB;AAMJ;AAG5C,oBAAS,CAAC,IAAI,MAAL;AACT,sBAAW,CAAC,MAAM,MAAP;AAJiC;AAOD;AAE3C,UAAY,iBAAD,QAAX,EACE,iBAAY,CAAC,KAAK,IAAI,MAAV,CADd;AAF2C;AAME;AAE7C,UAAY,mBAAD,QAAX,EACE,mBAAc,CAAC,KAAK,MAAM,MAAZ,CADhB;AAF6C;AAMH;AAE1C,kBAAa,IAAP,GAAO;AACb,UAAG,SAAS,GAAC,CAAb;AAHmE;AAAzB;AAMA;AAG1C;AAGA,mBAAM,CAAC,CAAD;AACN,UAAa;AAAT;;;AACF,kBAAG,CAAC,KAAK,KAAK,KAAK,MAAhB;;AADD;AAAS;AAAT;AAP+E;AAAzC;AAWA;AAE1C,mBAAM,CAAC,CAAD;AACN,oCAAW,SAAX;AAH6E;AAAnC;AAMA;AAE1C,6BAAU,CAAC;;;;UAAD;AACV,6BAAU,CAAC;;;;UAAD;AACV;AACA,kBAAM;AACI;AANgC;AASL;AAErC,UAAG,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB,CAAX,EACE,MAAM,gBAAW,QAAC,YAAM,CAAC,0CAAD,CAAN,CADpB;AAEA,gBAAK,CAAC,IAAI,KAAL;AAJgC;AAOG;AAExC,mBAAQ,CAAC,IAAI,sCAAL;AAFgC;AAKI;;AAG5C;AAGA,qBAAe,4DAAf;AACA,UAAG,oBAAe,CAAC,GAAD;AAClB,UAAG,SAAI,IAAI,CAAC,CAAD,CAAX;AAEE,cAAM,OAAO,CAAC,IAAU,cAAC,SAAI,IAAI,CAAC,CAAD,CAAT,CAAX;AACb,iBAAI,OAAO,CAAC,CAAD;OAGX,MAAA,MAAM,OAAO,CAAC,IAAW,IAAZ;;AAd6B;AAuBL;AAGvC;AACA;AACA;AACA;AACA;AAGA,UAAG,kBAAH;AACE,iBAAI;;AAGJ,eAAM,SAAI;AACV;AACE,iBAAM,IAAI;AACV,cAAG,CAAI,IAAI,KAAX;AAEE,gBAAoB,IAAI;AACxB,gBAAO,KAAC,CAAC,CAAC,CAAD,CAAF;AACP,gBAAS,cAAC,CAAC,CAAC,CAAD,CAAF;AACT,qBAAI,OAAO,CAAC,CAAD;AACX,2BAAU,CAAC,EAAE,EAAE,sCAAL;WANZ;SAFF,QAUU,CAAJ,IAAI,KAVV;;AAfqC;AA8BK;;AAG5C;AAEA,UAAG,oBAAe,CAAC,GAAD;AAClB,eAAQ,SAAI,IAAI,CAAC,CAAD;AAChB,UAAG,MAAH,EACE,UAAa,cAAC,SAAI,IAAI,CAAC,CAAD,CAAT,CAAb,CADF;;AAP4C;AAYG;AAG/C;AAGA,UAAG,oBAAe,CAAC,GAAD;AAClB,UAAG,CAAI,SAAI,IAAI,CAAC,CAAD,CAAf;AACE,kBAAK,CAAC,IAAI,KAAL;AAEL,YAAA,YAAO,CAAC,EAAE,KAAH;AAVsC;AAaH;;AAE5C,eAAQ,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB;;AAF4B;AAKE;;AAG9C;AACA;AAGA,eAAQ;AACR,WAAI,SAAI;AACR;AACE,cAAK,EAAE;AACP,YAAG,CAAI,GAAG,KAAV,EACE,SAAS,KAAK,KAAO,cAAC,GAAG,MAAJ,CADvB;OAFF,QAIc,EAAP,MAAO,IAAG,GAAG,KAAN,CAJd;;AAT8C;AAgBN;;AAExC,eAAkB;;AAFsB;AAKA;;AAExC,UAAG,mBAAc,KAAC,IAAlB,EACE,sBAAgB,mBAAc,QAAC,YAAM,CAAC,IAAD,CAAN,CADjC;AAEA,eAAQ;;AAJgC;AAOE;;AAE1C,UAAG,qBAAgB,KAAC,IAApB,EACE,wBAAkB,qBAAgB,QAAC,YAAM,CAAC,IAAD,CAAN,CADrC;AAEA,eAAQ;;AAJkC;AAOI;;AAE9C,eAAQ,oBAAe,QAAC,YAAM,CAAC,IAAD,CAAN;;AAFsB;AA1kCnC;AAXN;AACH;AACA;AAFG;aACH,oBACA;AAFG;;AACH;AACA;AAFG;;AAk0B8B;AAEnC,iBAAK;AACL,mBAAO;AAHqE;AAAzC;AAl0B9B;AACH;AACA,wBzClOK,2ByCkOL;AACkB,6BAAW,uBAAoB,UzCnO5C,4ByCmO4C,EAA/B;AAHf;AAvRM;AA0nBmB;;AAE9B,eAAQ;;AAFsB;AA1nBnB;AAWA;AAsnBwB;;AAEnC,eAAQ;;AAF2B;AAKN;;AAE7B;AAEA,eAAQ;AACR,oBAAe;AACf;AACE,eAAM,WAAW,WAAjB,EACW,MAAO,KAAK,CAAY,8DAAX,WAAW,aAAC,EAAD,CAAZ;AAFzB;AAIE,mBAAY,eAAZ,WAAY;AAJd;;AAN6B;AA3nBlB;AAuRA;AA0CQ;;;AAEb;AACA;AAHa;;;;;;AAuiCwC;;AAE3D,uBAAQ,iBAAY,EAApB;;AAF2D;AAKE;;AAG7D;AAGA,YAAoB,SAAI;AACxB,uBAAe,6DAAf;AACA,cAAM,OAAO,CAAK,UAAC,CAAC,CAAC,CAAD,CAAF,EAAa,cAAC,CAAC,CAAC,CAAD,CAAF,CAAlB;;AARgD;AAWF;;AAE3D,oBAAM,UAAK;AACX,iBAAQ,CAAI,SAAI;;AAH2C;AAMD;AAE1D,qBAAO,WAAW,KAAK;AAFgE;AAA7B;AAKD;;AAEzD,iBAAQ;;AAFiD;AAlkCtC;AAgBD;;;AAEZ;AACA;AAHY;;;;;;AAyjCwC;;AAE1D,iBAAQ,iBAAY;;AAFsC;AAKE;;AAE5D,iBAAY,UAAC,SAAI,MAAL;;AAFgD;AAKF;;AAE1D,oBAAM,UAAK;AACX,iBAAQ,CAAI,SAAI;;AAH0C;AAWD;AAEzD,qBAAO;AAF8E;AAA5B;AALA;AAEzD,qBAAM,CAAC,WAAW,KAAK,OAAjB;AAFgF;AAA7B;AAUD;;AAExD,iBAAQ;;AAFgD;AAnlCtC;AAiBE;;;AAEd;AACA;AAHc;;;;;;AAykCwC;;AAE5D,iBAAQ,iBAAY;;AAFwC;AAKE;;AAE9D,iBAAc,cAAC,SAAI,MAAL;;AAFgD;AAKF;;AAE5D,oBAAM,UAAK;AACX,iBAAQ,CAAI,SAAI;;AAH4C;AAWD;AAE3D,qBAAO;AAF+E;AAA3B;AALA;AAE3D,qBAAM,CAAC,WAAW,KAAK,SAAjB;AAFkF;AAA7B;AAUD;;AAE1D,iBAAQ;;AAFkD;AAnmCtC;AAiBA;;;AAEd;AAFc;;;;;AAylCsC;;AAE1D,iBAAQ,SAAI;;AAF8C;AAKO;;AAEjE,iBAAQ,6EAAgB,QAAC,YAAM,CAAC,SAAI,SAAL,CAAN;;AAFwC;AAKN;AAE3D,oBAAM,WAAW;AAFuE;AAA7B;AAKI;;AAE/D,iBAAyB;;AAFsC;AAKN;;AAGzD;AACA;AAGU,cAAD,sBAAC,YAAO,SAAI,KAAZ;AACT,YAAS;AAAL;;;AAEF,kBAAM,CAAC,CAAD,CAAN,GAAW;AACP,aAAJ,IAAG;;AAHD;AAAK;AAAL;;AARqD;AA7mCrC;AAeF;;;AAEZ;AAFY;;;;;AA+mCsC;;AAExD,iBAAQ,SAAI;;AAF4C;AAKO;;AAE/D,iBAAQ;;AAFuD;AAKN;AAEzD,oBAAM,WAAW;AAFqE;AAA7B;AAKI;;AAE7D,iBAAQ,2EAAc,QAAC,YAAM,CAAC,SAAI,OAAL,CAAN;;AAFsC;AAKN;;AAEvD,iBAAkB;;AAFqC;AAnoCrC;AA3GP;;AAET;AACA;AAsHA;AACA;AACA;AACA;AA5HS;;;;;;;;;;AAm0BqC;;AAGhD;AACA;AAGA,UAAG,CAAY,CAAC,cAAD,SAAf,EACM,OAAC,GADP;AAEA,WAAI,SAAI;AACR,UAAG,EAAE;AACL,aAAM,CAAI,CAAC,KAAX;AAEE,iBAAY,UAAC,CAAC,MAAF;AACZ,YAAG,cAAS,QAAQ,CAAC,OAAO,GAAR,CAAY,KAAC,CAAjC,EACE,aADF;AAEA,YAAG,EAAE;;AAEP,eAAQ;;AAlBwC;AAqBR;;AAGxC;AAGA,UAAG,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB;AACX,UAAG,kBAAW,CAAC,CAAD,CAAd,EACE,MAAM,gBAAW,QAAC,YAAM,CAAC,yCAAD,CAAN,CADpB;AAEA,eAAc,cAAC,CAAD;;AAT0B;AAYC;AAGzC;AAGA,UAAG,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB;AACX,UAAG,CAAI,kBAAW,CAAC,CAAD,CAAlB,EACE,gBAAW,CAAO,cAAC,CAAD,EAAI,sCAAX,CADb;AAEA,eAAI,IAAK,CAAC,IAAI,KAAL;AACT,sBAAW,CAAC,MAAO,oCAAR;AAV8B;AAaF;AAEvC,eAAI,IAAK,CAAC,oBAAe,CAAC,GAAD,EAAM,KAAtB;AACT,oBAAS,CAAC,IAAI,oCAAL;AACT,sBAAW,CAAC,MAAM,oCAAP;AAJ4B;AAQE;;AAEzC;AACA;AAGA,UAAG,oBAAe,CAAC,GAAD;AAClB,UAAG,SAAI,IAAI,CAAC,CAAD;AACX,UAAG,CAAI,kBAAW,CAAC,CAAD,CAAlB;AAEE,iBAAI,OAAO,CAAC,CAAD;AACX,iBAAc,cAAC,CAAD;AACd,sBAAS,CAAC,IAAI,YAAL;AACT,wBAAW,CAAC,OAAO,YAAR;OALb;;AARyC;AAiBA;;AAEzC,eAAQ,SAAI;;AAF6B;AA2FG;;AAG5C,eAAqB,CAAZ,iBAAY,KAAC,IAAD,CAAM,IAAmB,CAAd,mBAAc,KAAC,IAAD,CAAnB;;AAHiB;AAtFI;;AAGhD,eAAQ,oBAAe,QAAC,YAAM,CAAC,IAAD,CAAN;;AAHwB;AAMJ;AAG5C,oBAAS,CAAC,IAAI,MAAL;AACT,sBAAW,CAAC,MAAM,MAAP;AAJiC;AAOD;AAE3C,UAAY,iBAAD,QAAX,EACE,iBAAY,CAAC,KAAK,IAAI,MAAV,CADd;AAF2C;AAME;AAE7C,UAAY,mBAAD,QAAX,EACE,mBAAc,CAAC,KAAK,MAAM,MAAZ,CADhB;AAF6C;AAMH;AAE1C,kBAAa,IAAP,GAAO;AACb,UAAG,SAAS,GAAC,CAAb;AAHmE;AAAzB;AAMA;AAG1C;AAGA,mBAAM,CAAC,CAAD;AACN,UAAa;AAAT;;;AACF,kBAAG,CAAC,KAAK,KAAK,KAAK,MAAhB;;AADD;AAAS;AAAT;AAP+E;AAAzC;AAWA;AAE1C,mBAAM,CAAC,CAAD;AACN,oCAAW,SAAX;AAH6E;AAAnC;AAMA;AAE1C,6BAAU,CAAC;;;;UAAD;AACV,6BAAU,CAAC;;;;UAAD;AACV;AACA,kBAAM;AACI;AANgC;AASL;AAErC,UAAG,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB,CAAX,EACE,MAAM,gBAAW,QAAC,YAAM,CAAC,0CAAD,CAAN,CADpB;AAEA,gBAAK,CAAC,IAAI,KAAL;AAJgC;AAOG;AAExC,mBAAQ,CAAC,IAAI,sCAAL;AAFgC;AAKI;;AAG5C;AAGA,qBAAe,6DAAf;AACA,UAAG,oBAAe,CAAC,GAAD;AAClB,UAAG,SAAI,IAAI,CAAC,CAAD,CAAX;AAEE,cAAM,OAAO,CAAC,IAAU,cAAC,SAAI,IAAI,CAAC,CAAD,CAAT,CAAX;AACb,iBAAI,OAAO,CAAC,CAAD;OAGX,MAAA,MAAM,OAAO,CAAC,IAAW,IAAZ;;AAd6B;AAuBL;AAGvC;AACA;AACA;AACA;AACA;AAGA,UAAG,kBAAH;AACE,iBAAI;;AAGJ,eAAM,SAAI;AACV;AACE,iBAAM,IAAI;AACV,cAAG,CAAI,IAAI,KAAX;AAEE,gBAAoB,IAAI;AACxB,gBAAO,UAAC,CAAC,CAAC,CAAD,CAAF;AACP,gBAAS,cAAC,CAAC,CAAC,CAAD,CAAF;AACT,qBAAI,OAAO,CAAC,CAAD;AACX,2BAAU,CAAC,EAAE,EAAE,sCAAL;WANZ;SAFF,QAUU,CAAJ,IAAI,KAVV;;AAfqC;AA8BK;;AAG5C;AAEA,UAAG,oBAAe,CAAC,GAAD;AAClB,eAAQ,SAAI,IAAI,CAAC,CAAD;AAChB,UAAG,MAAH,EACE,UAAa,cAAC,SAAI,IAAI,CAAC,CAAD,CAAT,CAAb,CADF;;AAP4C;AAYG;AAG/C;AAGA,UAAG,oBAAe,CAAC,GAAD;AAClB,UAAG,CAAI,SAAI,IAAI,CAAC,CAAD,CAAf;AACE,kBAAK,CAAC,IAAI,KAAL;AAEL,YAAA,YAAO,CAAC,EAAE,KAAH;AAVsC;AAaH;;AAE5C,eAAQ,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB;;AAF4B;AAKE;;AAG9C;AACA;AAGA,eAAQ;AACR,WAAI,SAAI;AACR;AACE,cAAK,EAAE;AACP,YAAG,CAAI,GAAG,KAAV,EACE,SAAS,KAAK,KAAO,cAAC,GAAG,MAAJ,CADvB;OAFF,QAIc,EAAP,MAAO,IAAG,GAAG,KAAN,CAJd;;AAT8C;AAgBN;;AAExC,eAAkB;;AAFsB;AAKA;;AAExC,UAAG,mBAAc,KAAC,IAAlB,EACE,sBAAgB,mBAAc,QAAC,YAAM,CAAC,IAAD,CAAN,CADjC;AAEA,eAAQ;;AAJgC;AAOE;;AAE1C,UAAG,qBAAgB,KAAC,IAApB,EACE,wBAAkB,qBAAgB,QAAC,YAAM,CAAC,IAAD,CAAN,CADrC;AAEA,eAAQ;;AAJkC;AAOI;;AAE9C,eAAQ,oBAAe,QAAC,YAAM,CAAC,IAAD,CAAN;;AAFsB;AA1kCnC;AAXN;AACH;AACA;AAFG;aACH,oBACA;AAFG;;AACH;AACA;AAFG;;AAk0B8B;AAEnC,iBAAK;AACL,mBAAO;AAHqE;AAAzC;AAl0B9B;AACH;AACA;AACkB,6BAAW,uBAAoB,wBAA/B;AAHf;AAvRM;AA0nBmB;;AAE9B,eAAQ;;AAFsB;AA1nBnB;AAWA;AAsnBwB;;AAEnC,eAAQ;;AAF2B;AAKN;;AAE7B;AAEA,eAAQ;AACR,oBAAe;AACf;AACE,eAAM,WAAW,WAAjB,EACW,MAAO,KAAK,CAAY,8DAAX,WAAW,aAAC,EAAD,CAAZ;AAFzB;AAIE,mBAAY,eAAZ,WAAY;AAJd;;AAN6B;AA3nBlB;AAuRA;AA0CQ;;;AAEb;AACA;AAHa;;;;;;AAuiCwC;;AAE3D,uBAAQ,iBAAY,EAApB;;AAF2D;AAKE;;AAG7D;AAGA,YAAoB,SAAI;AACxB,uBAAe,6DAAf;AACA,cAAM,OAAO,CAAK,UAAC,CAAC,CAAC,CAAD,CAAF,EAAa,UAAC,CAAC,CAAC,CAAD,CAAF,CAAlB;;AARgD;AAWF;;AAE3D,oBAAM,UAAK;AACX,iBAAQ,CAAI,SAAI;;AAH2C;AAMD;AAE1D,qBAAO,WAAW,KAAK;AAFgE;AAA7B;AAKD;;AAEzD,iBAAQ;;AAFiD;AAlkCtC;AAgBD;;;AAEZ;AACA;AAHY;;;;;;AAyjCwC;;AAE1D,iBAAQ,iBAAY;;AAFsC;AAKE;;AAE5D,iBAAY,UAAC,SAAI,MAAL;;AAFgD;AAKF;;AAE1D,oBAAM,UAAK;AACX,iBAAQ,CAAI,SAAI;;AAH0C;AAWD;AAEzD,qBAAO;AAF8E;AAA5B;AALA;AAEzD,qBAAM,CAAC,WAAW,KAAK,OAAjB;AAFgF;AAA7B;AAUD;;AAExD,iBAAQ;;AAFgD;AAnlCtC;AAiBE;;;AAEd;AACA;AAHc;;;;;;AAykCwC;;AAE5D,iBAAQ,iBAAY;;AAFwC;AAKE;;AAE9D,iBAAc,UAAC,SAAI,MAAL;;AAFgD;AAKF;;AAE5D,oBAAM,UAAK;AACX,iBAAQ,CAAI,SAAI;;AAH4C;AAWD;AAE3D,qBAAO;AAF+E;AAA3B;AALA;AAE3D,qBAAM,CAAC,WAAW,KAAK,SAAjB;AAFkF;AAA7B;AAUD;;AAE1D,iBAAQ;;AAFkD;AAnmCtC;AAiBA;;;AAEd;AAFc;;;;;AAylCsC;;AAE1D,iBAAQ,SAAI;;AAF8C;AAKO;;AAEjE,iBAAQ,6EAAgB,QAAC,YAAM,CAAC,SAAI,SAAL,CAAN;;AAFwC;AAKN;AAE3D,oBAAM,WAAW;AAFuE;AAA7B;AAKI;;AAE/D,iBAAyB;;AAFsC;AAKN;;AAGzD;AACA;AAGU,cAAD,sBAAC,SAAO,SAAI,KAAZ;AACT,YAAS;AAAL;;;AAEF,kBAAM,CAAC,CAAD,CAAN,GAAW;AACP,aAAJ,IAAG;;AAHD;AAAK;AAAL;;AARqD;AA7mCrC;AAeF;;;AAEZ;AAFY;;;;;AA+mCsC;;AAExD,iBAAQ,SAAI;;AAF4C;AAKO;;AAE/D,iBAAQ;;AAFuD;AAKN;AAEzD,oBAAM,WAAW;AAFqE;AAA7B;AAKI;;AAE7D,iBAAQ,2EAAc,QAAC,YAAM,CAAC,SAAI,OAAL,CAAN;;AAFsC;AAKN;;AAEvD,iBAAkB;;AAFqC;AAnoCrC;AA3GP;;AAET;AACA;AAsHA;AACA;AACA;AACA;AA5HS;;;;;;;;;;AAm0BqC;;AAGhD;AACA;AAGA,UAAG,CAAY,CAAC,cAAD,SAAf,EACM,OAAC,GADP;AAEA,WAAI,SAAI;AACR,UAAG,EAAE;AACL,aAAM,CAAI,CAAC,KAAX;AAEE,iBAAY,UAAC,CAAC,MAAF;AACZ,YAAG,cAAS,QAAQ,CAAC,OAAO,GAAR,CAAY,KAAC,CAAjC,EACE,aADF;AAEA,YAAG,EAAE;;AAEP,eAAQ;;AAlBwC;AAqBR;;AAGxC;AAGA,UAAG,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB;AACX,UAAG,kBAAW,CAAC,CAAD,CAAd,EACE,MAAM,gBAAW,QAAC,YAAM,CAAC,yCAAD,CAAN,CADpB;AAEA,eAAc,UAAC,CAAD;;AAT0B;AAYC;AAGzC;AAGA,UAAG,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB;AACX,UAAG,CAAI,kBAAW,CAAC,CAAD,CAAlB,EACE,gBAAW,CAAO,UAAC,CAAD,EAAI,sCAAX,CADb;AAEA,eAAI,IAAK,CAAC,IAAI,KAAL;AACT,sBAAW,CAAC,MAAO,oCAAR;AAV8B;AAaF;AAEvC,eAAI,IAAK,CAAC,oBAAe,CAAC,GAAD,EAAM,KAAtB;AACT,oBAAS,CAAC,IAAI,oCAAL;AACT,sBAAW,CAAC,MAAM,oCAAP;AAJ4B;AAQE;;AAEzC;AACA;AAGA,UAAG,oBAAe,CAAC,GAAD;AAClB,UAAG,SAAI,IAAI,CAAC,CAAD;AACX,UAAG,CAAI,kBAAW,CAAC,CAAD,CAAlB;AAEE,iBAAI,OAAO,CAAC,CAAD;AACX,iBAAc,UAAC,CAAD;AACd,sBAAS,CAAC,IAAI,YAAL;AACT,wBAAW,CAAC,OAAO,YAAR;OALb;;AARyC;AAiBA;;AAEzC,eAAQ,SAAI;;AAF6B;AA2FG;;AAG5C,eAAqB,CAAZ,iBAAY,KAAC,IAAD,CAAM,IAAmB,CAAd,mBAAc,KAAC,IAAD,CAAnB;;AAHiB;AAtFI;;AAGhD,eAAQ,oBAAe,QAAC,YAAM,CAAC,IAAD,CAAN;;AAHwB;AAMJ;AAG5C,oBAAS,CAAC,IAAI,MAAL;AACT,sBAAW,CAAC,MAAM,MAAP;AAJiC;AAOD;AAE3C,UAAY,iBAAD,QAAX,EACE,iBAAY,CAAC,KAAK,IAAI,MAAV,CADd;AAF2C;AAME;AAE7C,UAAY,mBAAD,QAAX,EACE,mBAAc,CAAC,KAAK,MAAM,MAAZ,CADhB;AAF6C;AAMH;AAE1C,kBAAa,IAAP,GAAO;AACb,UAAG,SAAS,GAAC,CAAb;AAHmE;AAAzB;AAMA;AAG1C;AAGA,mBAAM,CAAC,CAAD;AACN,UAAa;AAAT;;;AACF,kBAAG,CAAC,KAAK,KAAK,KAAK,MAAhB;;AADD;AAAS;AAAT;AAP+E;AAAzC;AAWA;AAE1C,mBAAM,CAAC,CAAD;AACN,oCAAW,SAAX;AAH6E;AAAnC;AAMA;AAE1C,6BAAU,CAAC;;;;UAAD;AACV,6BAAU,CAAC;;;;UAAD;AACV;AACA,kBAAM;AACI;AANgC;AASL;AAErC,UAAG,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB,CAAX,EACE,MAAM,gBAAW,QAAC,YAAM,CAAC,0CAAD,CAAN,CADpB;AAEA,gBAAK,CAAC,IAAI,KAAL;AAJgC;AAOG;AAExC,mBAAQ,CAAC,IAAI,sCAAL;AAFgC;AAKI;;AAG5C;AAGA,qBAAe,6DAAf;AACA,UAAG,oBAAe,CAAC,GAAD;AAClB,UAAG,SAAI,IAAI,CAAC,CAAD,CAAX;AAEE,cAAM,OAAO,CAAC,IAAU,UAAC,SAAI,IAAI,CAAC,CAAD,CAAT,CAAX;AACb,iBAAI,OAAO,CAAC,CAAD;OAGX,MAAA,MAAM,OAAO,CAAC,IAAW,WAAZ;;AAd6B;AAuBL;AAGvC;AACA;AACA;AACA;AACA;AAGA,UAAG,kBAAH;AACE,iBAAI;;AAGJ,eAAM,SAAI;AACV;AACE,iBAAM,IAAI;AACV,cAAG,CAAI,IAAI,KAAX;AAEE,gBAAoB,IAAI;AACxB,gBAAO,UAAC,CAAC,CAAC,CAAD,CAAF;AACP,gBAAS,UAAC,CAAC,CAAC,CAAD,CAAF;AACT,qBAAI,OAAO,CAAC,CAAD;AACX,2BAAU,CAAC,EAAE,EAAE,sCAAL;WANZ;SAFF,QAUU,CAAJ,IAAI,KAVV;;AAfqC;AA8BK;;AAG5C;AAEA,UAAG,oBAAe,CAAC,GAAD;AAClB,eAAQ,SAAI,IAAI,CAAC,CAAD;AAChB,UAAG,MAAH,EACE,UAAa,UAAC,SAAI,IAAI,CAAC,CAAD,CAAT,CAAb,CADF;;AAP4C;AAYG;AAG/C;AAGA,UAAG,oBAAe,CAAC,GAAD;AAClB,UAAG,CAAI,SAAI,IAAI,CAAC,CAAD,CAAf;AACE,kBAAK,CAAC,IAAI,KAAL;AAEL,YAAA,YAAO,CAAC,EAAE,KAAH;AAVsC;AAaH;;AAE5C,eAAQ,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB;;AAF4B;AAKE;;AAG9C;AACA;AAGA,eAAQ;AACR,WAAI,SAAI;AACR;AACE,cAAK,EAAE;AACP,YAAG,CAAI,GAAG,KAAV,EACE,SAAS,KAAK,KAAO,UAAC,GAAG,MAAJ,CADvB;OAFF,QAIc,EAAP,MAAO,IAAG,GAAG,KAAN,CAJd;;AAT8C;AAgBN;;AAExC,eAAkB;;AAFsB;AAKA;;AAExC,UAAG,mBAAc,KAAC,IAAlB,EACE,sBAAgB,mBAAc,QAAC,YAAM,CAAC,IAAD,CAAN,CADjC;AAEA,eAAQ;;AAJgC;AAOE;;AAE1C,UAAG,qBAAgB,KAAC,IAApB,EACE,wBAAkB,qBAAgB,QAAC,YAAM,CAAC,IAAD,CAAN,CADrC;AAEA,eAAQ;;AAJkC;AAOI;;AAE9C,eAAQ,oBAAe,QAAC,YAAM,CAAC,IAAD,CAAN;;AAFsB;AA1kCnC;AAXN;AACH;AACA;AAFG;aACH,oBACA;AAFG;;AACH;AACA;AAFG;;AAk0B8B;AAEnC,iBAAK;AACL,mBAAO;AAHqE;AAAzC;AAl0B9B;AACH;AACA;AACkB,6BAAW,uBAAoB,wBAA/B;AAHf;AAvRM;AA0nBmB;;AAE9B,eAAQ;;AAFsB;AA1nBnB;AAWA;AAsnBwB;;AAEnC,eAAQ;;AAF2B;AAKN;;AAE7B;AAEA,eAAQ;AACR,oBAAe;AACf;AACE,eAAM,WAAW,WAAjB,EACW,MAAO,KAAK,CAAY,8DAAX,WAAW,aAAC,EAAD,CAAZ;AAFzB;AAIE,mBAAY,eAAZ,WAAY;AAJd;;AAN6B;AA3nBlB;AAXA;AA0nBmB;;AAE9B,eAAQ;;AAFsB;AA1nBnB;AAWA;AAsnBwB;;AAEnC,eAAQ;;AAF2B;AAKN;;AAE7B;AAEA,eAAQ;AACR,oBAAe;AACf;AACE,eAAM,WAAW,WAAjB,EACW,MAAO,KAAK,CAAC,WAAW,aAAC,EAAb;AAFzB;AAIE,mBAAY,eAAZ,WAAY;AAJd;;AAN6B;AA3nBlB;AApEW,6FAAuB,WzCgHtC,2ByChHsC,EAAsB,wBAC1D,WAFc,qCAEd,CADa;AA2VX;AA0CQ;;;AAEb;AACA;AAHa;;;;;;AAuiCwC;;AAE3D,uBAAQ,iBAAY,EAApB;;AAF2D;AAKE;;AAG7D;AAGA,YAAoB,SAAI;AACxB,uBAAe,6DAAf;AACA,cAAM,OAAO,CAAK,UAAC,CAAC,CAAC,CAAD,CAAF,EAAa,EAAC,CAAC,CAAC,CAAD,CAAF,UAAlB;;AARgD;AAWF;;AAE3D,oBAAM,UAAK;AACX,iBAAQ,CAAI,SAAI;;AAH2C;AAMD;AAE1D,qBAAO,WAAW,KAAK;AAFgE;AAA7B;AAKD;;AAEzD,iBAAQ;;AAFiD;AAlkCtC;AAgBD;;;AAEZ;AACA;AAHY;;;;;;AAyjCwC;;AAE1D,iBAAQ,iBAAY;;AAFsC;AAKE;;AAE5D,iBAAY,UAAC,SAAI,MAAL;;AAFgD;AAKF;;AAE1D,oBAAM,UAAK;AACX,iBAAQ,CAAI,SAAI;;AAH0C;AAWD;AAEzD,qBAAO;AAF8E;AAA5B;AALA;AAEzD,qBAAM,CAAC,WAAW,KAAK,OAAjB;AAFgF;AAA7B;AAUD;;AAExD,iBAAQ;;AAFgD;AAnlCtC;AAiBE;;;AAEd;AACA;AAHc;;;;;;AAykCwC;;AAE5D,iBAAQ,iBAAY;;AAFwC;AAKE;;AAE9D,iBAAc,EAAC,SAAI,MAAL;;AAFgD;AAKF;;AAE5D,oBAAM,UAAK;AACX,iBAAQ,CAAI,SAAI;;AAH4C;AAWD;AAE3D,qBAAO;AAF+E;AAA3B;AALA;AAE3D,qBAAM,CAAC,WAAW,KAAK,SAAjB;AAFkF;AAA7B;AAUD;;AAE1D,iBAAQ;;AAFkD;AAnmCtC;AAiBA;;;AAEd;AAFc;;;;;AAylCsC;;AAE1D,iBAAQ,SAAI;;AAF8C;AAKO;;AAEjE,iBAAQ,6EAAgB,QAAC,YAAM,CAAC,SAAI,SAAL,CAAN;;AAFwC;AAKN;AAE3D,oBAAM,WAAW;AAFuE;AAA7B;AAKI;;AAE/D,iBAAyB;;AAFsC;AAKN;;AAGzD;AACA;AAGU,cAAD,sBAAC,aAAO,SAAI,KAAZ;AACT,YAAS;AAAL;;;AAEF,kBAAM,CAAC,CAAD,CAAN,GAAW;AACP,aAAJ,IAAG;;AAHD;AAAK;AAAL;;AARqD;AA7mCrC;AAeF;;;AAEZ;AAFY;;;;;AA+mCsC;;AAExD,iBAAQ,SAAI;;AAF4C;AAKO;;AAE/D,iBAAQ;;AAFuD;AAKN;AAEzD,oBAAM,WAAW;AAFqE;AAA7B;AAKI;;AAE7D,iBAAQ,2EAAc,QAAC,YAAM,CAAC,SAAI,OAAL,CAAN;;AAFsC;AAKN;;AAEvD,iBAAkB;;AAFqC;AAnoCrC;AA3GP;;AAET;AACA;AAsHA;AACA;AACA;AACA;AA5HS;;;;;;;;;;AAm0BqC;;AAGhD;AACA;AAGA,UAAG,CAAY,CAAC,cAAD,SAAf,EACM,OAAC,GADP;AAEA,WAAI,SAAI;AACR,UAAG,EAAE;AACL,aAAM,CAAI,CAAC,KAAX;AAEE,iBAAY,UAAC,CAAC,MAAF;AACZ,YAAG,cAAS,QAAQ,CAAC,OAAO,GAAR,CAAY,KAAC,CAAjC,EACE,aADF;AAEA,YAAG,EAAE;;AAEP,eAAQ;;AAlBwC;AAqBR;;AAGxC;AAGA,UAAG,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB;AACX,UAAG,kBAAW,CAAC,CAAD,CAAd,EACE,MAAM,gBAAW,QAAC,YAAM,CAAC,yCAAD,CAAN,CADpB;AAEA,eAAc,EAAC,CAAD;;AAT0B;AAYC;AAGzC;AAGA,UAAG,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB;AACX,UAAG,CAAI,kBAAW,CAAC,CAAD,CAAlB,EACE,gBAAW,CAAO,EAAC,CAAD,WAAI,sCAAX,CADb;AAEA,eAAI,IAAK,CAAC,IAAI,KAAL;AACT,sBAAW,CAAC,MAAO,oCAAR;AAV8B;AAaF;AAEvC,eAAI,IAAK,CAAC,oBAAe,CAAC,GAAD,EAAM,KAAtB;AACT,oBAAS,CAAC,IAAI,oCAAL;AACT,sBAAW,CAAC,MAAM,oCAAP;AAJ4B;AAQE;;AAEzC;AACA;AAGA,UAAG,oBAAe,CAAC,GAAD;AAClB,UAAG,SAAI,IAAI,CAAC,CAAD;AACX,UAAG,CAAI,kBAAW,CAAC,CAAD,CAAlB;AAEE,iBAAI,OAAO,CAAC,CAAD;AACX,iBAAc,EAAC,CAAD;AACd,sBAAS,CAAC,IAAI,YAAL;AACT,wBAAW,CAAC,OAAO,YAAR;OALb;;AARyC;AAiBA;;AAEzC,eAAQ,SAAI;;AAF6B;AA2FG;;AAG5C,eAAqB,CAAZ,iBAAY,KAAC,IAAD,CAAM,IAAmB,CAAd,mBAAc,KAAC,IAAD,CAAnB;;AAHiB;AAtFI;;AAGhD,eAAQ,oBAAe,QAAC,YAAM,CAAC,IAAD,CAAN;;AAHwB;AAMJ;AAG5C,oBAAS,CAAC,IAAI,MAAL;AACT,sBAAW,CAAC,MAAM,MAAP;AAJiC;AAOD;AAE3C,UAAY,iBAAD,QAAX,EACE,iBAAY,CAAC,KAAK,IAAI,MAAV,CADd;AAF2C;AAME;AAE7C,UAAY,mBAAD,QAAX,EACE,mBAAc,CAAC,KAAK,MAAM,MAAZ,CADhB;AAF6C;AAMH;AAE1C,kBAAa,IAAP,GAAO;AACb,UAAG,SAAS,GAAC,CAAb;AAHmE;AAAzB;AAMA;AAG1C;AAGA,mBAAM,CAAC,CAAD;AACN,UAAa;AAAT;;;AACF,kBAAG,CAAC,KAAK,KAAK,KAAK,MAAhB;;AADD;AAAS;AAAT;AAP+E;AAAzC;AAWA;AAE1C,mBAAM,CAAC,CAAD;AACN,oCAAW,SAAX;AAH6E;AAAnC;AAMA;AAE1C,6BAAU,CAAC;;;;UAAD;AACV,6BAAU,CAAC;;;;UAAD;AACV;AACA,kBAAM;AACI;AANgC;AASL;AAErC,UAAG,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB,CAAX,EACE,MAAM,gBAAW,QAAC,YAAM,CAAC,0CAAD,CAAN,CADpB;AAEA,gBAAK,CAAC,IAAI,KAAL;AAJgC;AAOG;AAExC,mBAAQ,CAAC,IAAI,sCAAL;AAFgC;AAKI;;AAG5C;AAGA,qBAAe,6DAAf;AACA,UAAG,oBAAe,CAAC,GAAD;AAClB,UAAG,SAAI,IAAI,CAAC,CAAD,CAAX;AAEE,cAAM,OAAO,CAAC,IAAU,EAAC,SAAI,IAAI,CAAC,CAAD,CAAT,UAAX;AACb,iBAAI,OAAO,CAAC,CAAD;OAGX,MAAA,MAAM,OAAO,CAAC,IAAW,KAAZ;;AAd6B;AAuBL;AAGvC;AACA;AACA;AACA;AACA;AAGA,UAAG,kBAAH;AACE,iBAAI;;AAGJ,eAAM,SAAI;AACV;AACE,iBAAM,IAAI;AACV,cAAG,CAAI,IAAI,KAAX;AAEE,gBAAoB,IAAI;AACxB,gBAAO,UAAC,CAAC,CAAC,CAAD,CAAF;AACP,gBAAS,EAAC,CAAC,CAAC,CAAD,CAAF;AACT,qBAAI,OAAO,CAAC,CAAD;AACX,2BAAU,CAAC,EAAE,EAAE,sCAAL;WANZ;SAFF,QAUU,CAAJ,IAAI,KAVV;;AAfqC;AA8BK;;AAG5C;AAEA,UAAG,oBAAe,CAAC,GAAD;AAClB,eAAQ,SAAI,IAAI,CAAC,CAAD;AAChB,UAAG,MAAH,EACE,UAAa,EAAC,SAAI,IAAI,CAAC,CAAD,CAAT,UAAb,CADF;;AAP4C;AAYG;AAG/C;AAGA,UAAG,oBAAe,CAAC,GAAD;AAClB,UAAG,CAAI,SAAI,IAAI,CAAC,CAAD,CAAf;AACE,kBAAK,CAAC,IAAI,KAAL;AAEL,YAAA,YAAO,CAAC,EAAE,KAAH;AAVsC;AAaH;;AAE5C,eAAQ,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB;;AAF4B;AAKE;;AAG9C;AACA;AAGA,eAAQ;AACR,WAAI,SAAI;AACR;AACE,cAAK,EAAE;AACP,YAAG,CAAI,GAAG,KAAV,EACE,SAAS,KAAK,KAAO,EAAC,GAAG,MAAJ,UADvB;OAFF,QAIc,EAAP,MAAO,IAAG,GAAG,KAAN,CAJd;;AAT8C;AAgBN;;AAExC,eAAkB;;AAFsB;AAKA;;AAExC,UAAG,mBAAc,KAAC,IAAlB,EACE,sBAAgB,mBAAc,QAAC,YAAM,CAAC,IAAD,CAAN,CADjC;AAEA,eAAQ;;AAJgC;AAOE;;AAE1C,UAAG,qBAAgB,KAAC,IAApB,EACE,wBAAkB,qBAAgB,QAAC,YAAM,CAAC,IAAD,CAAN,CADrC;AAEA,eAAQ;;AAJkC;AAOI;;AAE9C,eAAQ,oBAAe,QAAC,YAAM,CAAC,IAAD,CAAN;;AAFsB;AA1kCnC;AAXN;AACH;AACA;AAFG;aACH,oBACA;AAFG;;AACH;AACA;AAFG;;AAk0B8B;AAEnC,iBAAK;AACL,mBAAO;AAHqE;AAAzC;AAl0B9B;AACH;AACA;AACkB,6BAAW,uBAAoB,uBAA/B;AAHf;AAvRM;AA0nBmB;;AAE9B,eAAQ;;AAFsB;AA1nBnB;AAWA;AAsnBwB;;AAEnC,eAAQ;;AAF2B;AAKN;;AAE7B;AAEA,eAAQ;AACR,oBAAe;AACf;AACE,eAAM,WAAW,WAAjB,EACW,MAAO,KAAK,CAAY,6DAAX,WAAW,aAAC,EAAD,CAAZ;AAFzB;AAIE,mBAAY,eAAZ,WAAY;AAJd;;AAN6B;AA3nBlB;AAXA;AA0nBmB;;AAE9B,eAAQ;;AAFsB;AA1nBnB;AAWA;AAsnBwB;;AAEnC,eAAQ;;AAF2B;AAKN;;AAE7B;AAEA,eAAQ;AACR,oBAAe;AACf;AACE,eAAM,WAAW,WAAjB,EACW,MAAO,KAAK,CAAC,WAAW,aAAC,EAAb;AAFzB;AAIE,mBAAY,eAAZ,WAAY;AAJd;;AAN6B;AA3nBlB;AApEW,4FAAuB,WzCgHtC,2ByChHsC,EAAsB,uBAC1D,WAFc,qCAEd,CADa;AA2VX;AA0CQ;;;AAEb;AACA;AAHa;;;;;;AAuiCwC;;AAE3D,uBAAQ,iBAAY,EAApB;;AAF2D;AAKE;;AAG7D;AAGA,YAAoB,SAAI;AACxB,uBAAe,4DAAf;AACA,cAAM,OAAO,CAAK,UAAC,CAAC,CAAC,CAAD,CAAF,EAAa,cAAC,CAAC,CAAC,CAAD,CAAF,CAAlB;;AARgD;AAWF;;AAE3D,oBAAM,UAAK;AACX,iBAAQ,CAAI,SAAI;;AAH2C;AAMD;AAE1D,qBAAO,WAAW,KAAK;AAFgE;AAA7B;AAKD;;AAEzD,iBAAQ;;AAFiD;AAlkCtC;AAgBD;;;AAEZ;AACA;AAHY;;;;;;AAyjCwC;;AAE1D,iBAAQ,iBAAY;;AAFsC;AAKE;;AAE5D,iBAAY,UAAC,SAAI,MAAL;;AAFgD;AAKF;;AAE1D,oBAAM,UAAK;AACX,iBAAQ,CAAI,SAAI;;AAH0C;AAWD;AAEzD,qBAAO;AAF8E;AAA5B;AALA;AAEzD,qBAAM,CAAC,WAAW,KAAK,OAAjB;AAFgF;AAA7B;AAUD;;AAExD,iBAAQ;;AAFgD;AAnlCtC;AAiBE;;;AAEd;AACA;AAHc;;;;;;AAykCwC;;AAE5D,iBAAQ,iBAAY;;AAFwC;AAKE;;AAE9D,iBAAc,cAAC,SAAI,MAAL;;AAFgD;AAKF;;AAE5D,oBAAM,UAAK;AACX,iBAAQ,CAAI,SAAI;;AAH4C;AAWD;AAE3D,qBAAO;AAF+E;AAA3B;AALA;AAE3D,qBAAM,CAAC,WAAW,KAAK,SAAjB;AAFkF;AAA7B;AAUD;;AAE1D,iBAAQ;;AAFkD;AAnmCtC;AAiBA;;;AAEd;AAFc;;;;;AAylCsC;;AAE1D,iBAAQ,SAAI;;AAF8C;AAKO;;AAEjE,iBAAQ,4EAAgB,QAAC,YAAM,CAAC,SAAI,SAAL,CAAN;;AAFwC;AAKN;AAE3D,oBAAM,WAAW;AAFuE;AAA7B;AAKI;;AAE/D,iBAAyB;;AAFsC;AAKN;;AAGzD;AACA;AAGU,cAAD,sBAAC,WAAO,SAAI,KAAZ;AACT,YAAS;AAAL;;;AAEF,kBAAM,CAAC,CAAD,CAAN,GAAW;AACP,aAAJ,IAAG;;AAHD;AAAK;AAAL;;AARqD;AA7mCrC;AAeF;;;AAEZ;AAFY;;;;;AA+mCsC;;AAExD,iBAAQ,SAAI;;AAF4C;AAKO;;AAE/D,iBAAQ;;AAFuD;AAKN;AAEzD,oBAAM,WAAW;AAFqE;AAA7B;AAKI;;AAE7D,iBAAQ,0EAAc,QAAC,YAAM,CAAC,SAAI,OAAL,CAAN;;AAFsC;AAKN;;AAEvD,iBAAkB;;AAFqC;AAnoCrC;AA3GP;;AAET;AACA;AAsHA;AACA;AACA;AACA;AA5HS;;;;;;;;;;AAm0BqC;;AAGhD;AACA;AAGA,UAAG,CAAY,CAAC,cAAD,SAAf,EACM,OAAC,GADP;AAEA,WAAI,SAAI;AACR,UAAG,EAAE;AACL,aAAM,CAAI,CAAC,KAAX;AAEE,iBAAY,UAAC,CAAC,MAAF;AACZ,YAAG,cAAS,QAAQ,CAAC,OAAO,GAAR,CAAY,KAAC,CAAjC,EACE,aADF;AAEA,YAAG,EAAE;;AAEP,eAAQ;;AAlBwC;AAqBR;;AAGxC;AAGA,UAAG,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB;AACX,UAAG,kBAAW,CAAC,CAAD,CAAd,EACE,MAAM,gBAAW,QAAC,YAAM,CAAC,yCAAD,CAAN,CADpB;AAEA,eAAc,cAAC,CAAD;;AAT0B;AAYC;AAGzC;AAGA,UAAG,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB;AACX,UAAG,CAAI,kBAAW,CAAC,CAAD,CAAlB,EACE,gBAAW,CAAO,cAAC,CAAD,EAAI,sCAAX,CADb;AAEA,eAAI,IAAK,CAAC,IAAI,KAAL;AACT,sBAAW,CAAC,MAAO,oCAAR;AAV8B;AAaF;AAEvC,eAAI,IAAK,CAAC,oBAAe,CAAC,GAAD,EAAM,KAAtB;AACT,oBAAS,CAAC,IAAI,oCAAL;AACT,sBAAW,CAAC,MAAM,oCAAP;AAJ4B;AAQE;;AAEzC;AACA;AAGA,UAAG,oBAAe,CAAC,GAAD;AAClB,UAAG,SAAI,IAAI,CAAC,CAAD;AACX,UAAG,CAAI,kBAAW,CAAC,CAAD,CAAlB;AAEE,iBAAI,OAAO,CAAC,CAAD;AACX,iBAAc,cAAC,CAAD;AACd,sBAAS,CAAC,IAAI,YAAL;AACT,wBAAW,CAAC,OAAO,YAAR;OALb;;AARyC;AAiBA;;AAEzC,eAAQ,SAAI;;AAF6B;AA2FG;;AAG5C,eAAqB,CAAZ,iBAAY,KAAC,IAAD,CAAM,IAAmB,CAAd,mBAAc,KAAC,IAAD,CAAnB;;AAHiB;AAtFI;;AAGhD,eAAQ,oBAAe,QAAC,YAAM,CAAC,IAAD,CAAN;;AAHwB;AAMJ;AAG5C,oBAAS,CAAC,IAAI,MAAL;AACT,sBAAW,CAAC,MAAM,MAAP;AAJiC;AAOD;AAE3C,UAAY,iBAAD,QAAX,EACE,iBAAY,CAAC,KAAK,IAAI,MAAV,CADd;AAF2C;AAME;AAE7C,UAAY,mBAAD,QAAX,EACE,mBAAc,CAAC,KAAK,MAAM,MAAZ,CADhB;AAF6C;AAMH;AAE1C,kBAAa,IAAP,GAAO;AACb,UAAG,SAAS,GAAC,CAAb;AAHmE;AAAzB;AAMA;AAG1C;AAGA,mBAAM,CAAC,CAAD;AACN,UAAa;AAAT;;;AACF,kBAAG,CAAC,KAAK,KAAK,KAAK,MAAhB;;AADD;AAAS;AAAT;AAP+E;AAAzC;AAWA;AAE1C,mBAAM,CAAC,CAAD;AACN,oCAAW,SAAX;AAH6E;AAAnC;AAMA;AAE1C,6BAAU,CAAC;;;;UAAD;AACV,6BAAU,CAAC;;;;UAAD;AACV;AACA,kBAAM;AACI;AANgC;AASL;AAErC,UAAG,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB,CAAX,EACE,MAAM,gBAAW,QAAC,YAAM,CAAC,0CAAD,CAAN,CADpB;AAEA,gBAAK,CAAC,IAAI,KAAL;AAJgC;AAOG;AAExC,mBAAQ,CAAC,IAAI,sCAAL;AAFgC;AAKI;;AAG5C;AAGA,qBAAe,4DAAf;AACA,UAAG,oBAAe,CAAC,GAAD;AAClB,UAAG,SAAI,IAAI,CAAC,CAAD,CAAX;AAEE,cAAM,OAAO,CAAC,IAAU,cAAC,SAAI,IAAI,CAAC,CAAD,CAAT,CAAX;AACb,iBAAI,OAAO,CAAC,CAAD;OAGX,MAAA,MAAM,OAAO,CAAC,IAAW,GAAZ;;AAd6B;AAuBL;AAGvC;AACA;AACA;AACA;AACA;AAGA,UAAG,kBAAH;AACE,iBAAI;;AAGJ,eAAM,SAAI;AACV;AACE,iBAAM,IAAI;AACV,cAAG,CAAI,IAAI,KAAX;AAEE,gBAAoB,IAAI;AACxB,gBAAO,UAAC,CAAC,CAAC,CAAD,CAAF;AACP,gBAAS,cAAC,CAAC,CAAC,CAAD,CAAF;AACT,qBAAI,OAAO,CAAC,CAAD;AACX,2BAAU,CAAC,EAAE,EAAE,sCAAL;WANZ;SAFF,QAUU,CAAJ,IAAI,KAVV;;AAfqC;AA8BK;;AAG5C;AAEA,UAAG,oBAAe,CAAC,GAAD;AAClB,eAAQ,SAAI,IAAI,CAAC,CAAD;AAChB,UAAG,MAAH,EACE,UAAa,cAAC,SAAI,IAAI,CAAC,CAAD,CAAT,CAAb,CADF;;AAP4C;AAYG;AAG/C;AAGA,UAAG,oBAAe,CAAC,GAAD;AAClB,UAAG,CAAI,SAAI,IAAI,CAAC,CAAD,CAAf;AACE,kBAAK,CAAC,IAAI,KAAL;AAEL,YAAA,YAAO,CAAC,EAAE,KAAH;AAVsC;AAaH;;AAE5C,eAAQ,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB;;AAF4B;AAKE;;AAG9C;AACA;AAGA,eAAQ;AACR,WAAI,SAAI;AACR;AACE,cAAK,EAAE;AACP,YAAG,CAAI,GAAG,KAAV,EACE,SAAS,KAAK,KAAO,cAAC,GAAG,MAAJ,CADvB;OAFF,QAIc,EAAP,MAAO,IAAG,GAAG,KAAN,CAJd;;AAT8C;AAgBN;;AAExC,eAAkB;;AAFsB;AAKA;;AAExC,UAAG,mBAAc,KAAC,IAAlB,EACE,sBAAgB,mBAAc,QAAC,YAAM,CAAC,IAAD,CAAN,CADjC;AAEA,eAAQ;;AAJgC;AAOE;;AAE1C,UAAG,qBAAgB,KAAC,IAApB,EACE,wBAAkB,qBAAgB,QAAC,YAAM,CAAC,IAAD,CAAN,CADrC;AAEA,eAAQ;;AAJkC;AAOI;;AAE9C,eAAQ,oBAAe,QAAC,YAAM,CAAC,IAAD,CAAN;;AAFsB;AA1kCnC;AA/UO;AA4esB;AAGxC,iBAAI,CAAC,QAAS,UAAc,EAAiB,WAAC,aAAD,CAAzC;AAHoC;AAMA;AAGxC,UAAG,MAAO,IAAG,CAAb,EACE,MADF;AAEA,oBAAS,CAAC,QAAS,OAAoB,CAAP,MAAO,GAAE,MAAF,CAAR,KAAmB,SAAzC;AAL+B;AAQO;;AAI/C,eAAU,mBAAY,CAAC,QAAS,MAAO,YAAa,UAC7B,EAAS,WAAC,OAAD,CADV;;AAJyB;AAQA;;AAI/C,eAAU,iBAAY,CAAC,QAAS,MAAO,cAAe,UAC/B,EAAS,WAAC,OAAD,CADV;;AAJyB;AAlgB7B;AA8BN;AA8e2B;AAGvC;AAAG;AACH;AAAG;AAEH,UAAqB,CAAT,CAAP,MAAO,GAAE,KAAF,CAAS,IAAG,CAAH,CAAM,IAAoB,CAAV,WAAC,aAAD,CAAU,KAAE,CAAF,CAA/C,EACE,MADF;AAEA;AACE,YAAK;AACL,YAAK;AACL,YAAK,aAAO,CAAC,KAAM,GAAmB,WAAT,CAAP,MAAO,GAAE,KAAF,CAAS,KAA1B;AACZ;AACE,iBAAM,SAAS,QAAQ,CAAC,aAAO,CAAC,CAAD,EAAK,CAAb,CAAgB,GAAE,CAAzC,EACM,CAAJ,IAAG;AACL,iBAAM,SAAS,QAAQ,CAAC,aAAO,CAAC,CAAD,EAAK,CAAb,CAAgB,GAAE,CAAzC,EACM,CAAJ,IAAG;AACL,cAAG,CAAE,IAAG,CAAR;AAEE,gBAAG,CAAE,KAAG,CAAR;AAEE,kBAAK,aAAO,CAAC,CAAD;AACZ,2BAAO,CAAC,CAAD,CAAP,GAAc,aAAO,CAAC,CAAD;AACrB,2BAAO,CAAC,CAAD,CAAP,GAAc;aAJhB;AAMI,aAAJ,IAAG;AACC,aAAJ,IAAG;WATL;SALF,QAgBQ,EAAF,CAAE,GAAE,CAAF,CAhBR;AAoBA,YAAK,CAAF,CAAE,GAAE,KAAF,CAAQ,GAAS,CAAP,MAAO,GAAE,CAAF,CAAtB;AAEE,cAAG,KAAM,GAAE,CAAX,EACE,cAAS,CAAC,QAAS,MAAO,EAAG,SAApB,CADX;AAEA,kBAAS;;AAIT,cAAG,CAAE,GAAE,MAAP,EACE,cAAS,CAAC,QAAS,EAAG,OAAQ,SAArB,CADX;AAEA,mBAAU;;OAlCd,QAoCY,EAAN,KAAM,IAAG,MAAH,CApCZ;AARuC;AA+CE;;AAIzC;AAAM;AAAM;AAAM;AAKlB,aAAQ;AACR,aAAoB,CAAP,MAAO,GAAE,MAAF,CAAR;AAEZ,YAAK,IAAK,GAAE,IAAF;AACV,aAAM,GAAG,GAAC,IAAD;AACT,aAAO,IAAK,GAAE,IAAd;AAEE,eAAoB,UAAP,CAAJ,IAAI,GAAC,IAAD,CAAO,GAAI,CAAJ;AAGpB,qBAAa,cAAb,GAA+B,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAEhD,YAAI,aAAa,cAAe,GAAE,CAAlC;AACE,iBAAQ,IAAK,GAAE,CAAF;;AAGb,cAAG,aAAa,cAAe,KAAE,CAAjC;AAEE,yBAAa,WAAb,GAA4B;AAC5B,yBAAa,eAAb,GAAgC;AAC5B,mBAAC;WAJP;AAMA,iBAAQ;;;AASZ,eAAS,IAAK,KAAE,IAAF;AACd,UAAG,MAAH;AAEE,qBAAa,cAAb,GAA+B,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAChD,qBAAa,eAAb,GAAgC;AAChC,iBAAS,aAAa,cAAe,KAAE,CAAF;AACrC,YAAG,MAAH;AACE,uBAAa,WAAb,GAA4B;AAE5B,cAAA,aAAa,WAAb,GAA4B,CAAC;;AAI/B,qBAAa,cAAb,GAA+B;AAC/B,qBAAa,WAAb,GAA4B,CAAC;AAC7B,qBAAa,eAAb,GAAgC,CAAC;;;AAvDM;AA2DA;;AAIzC;AAAM;AAAM;AACZ;AAGA,aAAQ;AACR,aAAoB,CAAP,MAAO,GAAE,MAAF,CAAR;AAGZ,aAAO,IAAK,GAAE,IAAd;AAEE,eAAsB,UAAR,CAAL,IAAK,GAAE,IAAF,CAAQ,GAAI,CAAJ;AAMtB,mBAAY,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAE7B,YAAI,QAAS,GAAE,CAAf;AACE,iBAAQ,IAAK,GAAE,CAAF;;AAGb,cAAG,QAAS,KAAE,CAAd;AAEE,4BAAe,IAAf;AACI,mBAAC;WAHP;AAKA,iBAAQ;;;AAQZ,iBAAY,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAC7B,eAAc,CAAL,IAAK,KAAE,IAAF,CAAQ,IAAc,CAAT,QAAS,KAAE,CAAF,CAAd;AACtB,UAAG,MAAH;AACE,wBAAe,IAAf;AAEA,4BAAe,CAAC,CAAhB;;AA5CuC;AAxlB7B;AAwCD;;;AAET;AAKA;AACA;AARS;;;;;;AA6nBsB;;AAEjC,eAAc,WAAC,WAAD;;AAFmB;AAKM;;AAEvC,UAAG,YAAO,KAAO,WAAC,WAAD,CAAjB,EACW,WAAO,KAAK,CAAQ,IAAR,CADvB;AAGA,eAAU;AACN,kBAAJ,IAAG;;AANoC;AASC;;AAExC;AAEA,UAAG,MAAO,GAAE,CAAZ,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAEA,UAAG,MAAO,KAAE,CAAZ,EACM,OAAC,YAAQ,GAAE,CADjB;AAGA,eAAqB,KAAR,WAAC,WAAD,CAAQ,GAAC,CAAD,EAAa,OAAP,YAAO,GAAC,MAAD,kBAAlC;AAAI;AACO,mBAAO,KAAK,CAAQ,IAAR;;AAEvB,eAAU;AACN,kBAAJ,IAAa;;AAb2B;AAgBX;AAG7B,UAAY,cAAD,QAAX,EACE,cAAS,CAAC,KAAM,OAAQ,uBAAf,CADX;AAH6B;AAOC;;AAG9B,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,eAAU,WAAM,CAAC,MAAD;AACZ,kBAAJ,IAAG;AAEH,iBAAM,CAAC,MAAD,CAAN,GAAyB;AAChB,iBAAO,OAAO,CAAC,OAAO,CAAR;AAEvB,iBAAM,CAAC,OAAQ,uBAAT;;AAZwB;AAeA;;AAE9B,eAAU;;AAFoB;AAjrBnB;AAQI,iEzCsBR,mCyCtBQ;AARJ;AAwBU;;;AAEnB;AACA;AAHmB;;;;;AAiqBqB;;AAEtC,iBAAJ,IAAG;AACH,eAAyB,CAAd,UAAK,QAAS,GAAE,CAAF,CAAK,IAAY,CAAP,WAAO,GAAE,UAAK,QAAP,CAAZ;;AAHY;AAME;;AAE5C,eAAU;;AAFkC;AAKF;;AAE1C,eAAU,UAAK,OAAO,CAAC,WAAD;;AAFoB;AAKD;AAE/B;AACV,oBAAU,CAAC;AACX,mBAAS;AAJwD;AAAxB;AAjrBpB;AA+BhB;AAeU;;AAfV;;AAEH;AAFG;;;;;AA2pBoB;;AAEzB,UAAY,cAAD,QAAX;AACE,iBAAS,cAAS,QAAQ,CAAC,KAAM,KAAP,CAAc,KAAE,CAAF;AAExC,qBAAS,IAAK,KAAE,KAAF;;AALS;AAQG;AAE5B,UAAG,MAAO,GAAE,YAAZ,EACE,cAAS,MAAT,CADF;AAEU,iBAAD,sBAAC,iBAAQ,MAAT;AAJmB;AAOH;AAEzB,UAAG,MAAO,GAAE,CAAZ,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAG,MAAO,GAAE,kBAAZ;AACE,yBAAY,MAAZ;AACG,gBAAG,MAAO,GAAE,YAAZ,EACH,gBAAW,CAAC,OAAQ,YAAM,GAAE,MAAjB,CADR;AAGL,qBAAW;AAVc;AAaM;;AAIA;AAE/B,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAES,iBAAO,OAAO,CAAC,OAAO,EAAE,MAAV;AACnB,kBAAJ,IAAG;AAEH,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;AARyB;AAWA;;AAE/B,eAAU;;AAFqB;AAKR;;AAEvB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,eAAU,WAAM,CAAC,MAAD;;AALO;AAQC;AAExB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAEA,iBAAM,CAAC,WAAM,CAAC,MAAD,EAAU,sCAAjB;AACN,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;AANkB;AASK;;AAE7B,eAAU,gBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;;AAFO;AAKJ;AAEzB;AAF0B;AAAD;AAKA;AAEzB;AACA,oCAAa,SAAb;AAHyD;AAAhC;AAMA;AAEzB;AAEA;AACA,UAAa;AAAT;;;AACF,kBAAG,CAAC,KAAD;;AADD;AAAS;AAAT;AALmD;AAA9B;AASA;AAEzB,sBAAW,CAAC,CAAD;AAFc;AAKN;;AAEnB,eAAU;AACV,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;;AAJa;AAOM;AAEzB,sBAAW,CAAC,aAAO,OAAR;AAFc;AAKA;AAEzB;AAEA,UAAc;AAAV;;;AACF,kBAAG,CAAC,MAAD;;AADD;AAAU;AAAV;AAJqB;AAQA;AAEzB;AAEA,UAAc;AAAV;;;AACF,kBAAG,CAAC,MAAD;;AADD;AAAU;AAAV;AAJqB;AAQF;AAEvB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,yBAAc,CAAC,OAAQ,MAAT;AALS;AAQK;AAE5B;AAAS;AACT;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,gBAAiB,WAAC,OAAD;AACjB,UAAG,OAAQ,KAAE,CAAb,EACE,MADF;AAGA,UAAG,MAAO,KAAG,uBAAkB,CAAC,OAAD,CAA/B;AAEE,iBAAS,aAA0B,OAAhB,YAAgB,GAAR,OAAF,GAAW,CAAD,kBAAnC;AAAI;AACF,qBAAM,CAAC,CAAC,GAAC,OAAH,CAAN,GAAqB,WAAM,CAAC,CAAD;;AAC7B,iBAAS,SAAa,QAAR,OAAQ,GAAC,CAAD,qBAAtB;AAAI;AACF,qBAAM,CAAC,MAAM,GAAC,CAAR,CAAN,GAA2B;;OAL/B;AAQA,eAAS,SAAS,QAAC,OAAD,yBAAlB;AAAI;AAEF,iBAAQ,OAAO,CAAC,CAAD;AACf,mBAAM,CAAC,CAAC,GAAC,MAAH,CAAN,GAAoB;AACpB,mBAAM,CAAC,OAAQ,oCAAT;;AAxBoB;AA4BA;AAE5B;AACA;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAK;AACL,UAAc;AAAV;;;AAEF,6BAAc,CAAC,MAAO,GAAE,CAAF,CAAK,MAAb;AACV,WAAJ,IAAG;;AAHD;AAAU;AAAV;AATwB;AAgBA;AAE5B;AACA;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAK;AACL,UAAc;AAAV;;;AAEF,6BAAc,CAAC,MAAO,GAAE,CAAF,CAAK,MAAb;AACV,WAAJ,IAAG;;AAHD;AAAU;AAAV;AATwB;AA2BN;;AAEtB,eAAU,YAAO,CAAC,MAAD;AACjB,UAAG,MAAO,IAAG,CAAb,EACE,aAAQ,CAAC,OAAQ,sCAAT,CADV;;AAHsB;AAXI;;AAG1B,UAAG,SAAS,KAAY,uBAAxB;AACE,iBAAU,gBAAW,CAAC,MAAD;AAErB,qBAAU,YAAO,CAAC,MAAD;AACnB,UAAG,MAAO,IAAG,CAAb,EACE,aAAQ,CAAC,OAAQ,sCAAT,CADV;;AAP0B;AAkBH;AAEvB,mBAAQ,CAAC,OAAQ,sCAAT;AAFe;AAKK;AAE5B;AACA;AAEA,UAAG,MAAO,KAAE,CAAZ,EACE,MADF;AAGA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAqB,IAAL,CAAP,MAAO,GAAE,CAAF,CAAX,IAAoC,CAAT,CAAP,MAAO,GAAE,MAAF,CAAS,GAAE,YAAF,CAApD,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,iBAA4B,WAAO,OAAO,CAAC,OAAO,YAAR;AACtC,kBAAJ,IAAa;AAEb,eAAS,QAAS,kBAAC,QAAD,uBAAlB;AAAI;AACF,mBAAM,CAAC,QAAQ,CAAC,CAAD,EAAK,sCAAd;;AAfoB;AAkBA;;AAE5B,eAAU,aAAQ,CAAC,OAAQ,wCAAT;;AAFU;AAKL;;AAEvB;AAEA,eAAU,YAAO,CAAC,MAAD;AACjB,UAAG,MAAO,GAAE,CAAZ;AACE,iBAAe;AAEf,qBAAU,aAAQ,CAAC,OAAQ,wCAAT;;AARG;AAWE;AAEzB;AAEA,cAAS,WAAM,CAAC,OAAD;AACf,iBAAM,CAAC,OAAD,CAAN,GAAmB,WAAM,CAAC,OAAD;AACzB,iBAAM,CAAC,OAAD,CAAN,GAAmB;AANM;AASJ;AAErB;AACA;AACA;AAEA,UAAG,SAAU,KAAE,MAAf,EACE,MADF;AAGA,UAAc,CAAV,SAAU,GAAE,CAAF,CAAK,IAAc,CAAV,SAAU,IAAG,YAAH,CAAjC,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,YAAgB;AAChB,cAAS,GAAI;AACb,UAAG,MAAO,GAAE,SAAZ;AACE,iBAAS,aAAmB,OAAT,SAAS,GAAC,CAAD,kBAA5B;AAAI;AACF,aAAI,GAAJ,GAAU,GAAK,CAAD,CAAC,GAAC,CAAD;;AAEjB,qBAAS,cAAuB,QAAT,SAAS,GAAC,CAAD,qBAAhC;AAAI;AACF,WAAI,GAAJ,GAAU,GAAK,CAAD,CAAC,GAAC,CAAD;;AACnB,SAAI,WAAJ,GAAkB;AApBG;AAuBA;;AAErB,eAAU,YAAK,CAAC,CAAD;;AAFM;AAKD;;AAEpB,eAAU,YAAK,CAAM,YAAD,IAAL;;AAFK;AAKE;AAEtB,mBAAQ,CAAC,CAAD;AACR,sBAAW,CAAC,CAAD;AAHW;AAME;;AAExB,eAAU,YAAO,CAAC,MAAD,CAAS,IAAG,CAAH;;AAFF;AAKD;;AAEvB;AAEA,eAAS,QAAW,OAAN,YAAM,GAAE,CAAF,kBAApB;AAAI;AACF,YAAG,cAAS,CAAC,OAAQ,WAAM,CAAC,CAAD,CAAf,CAAZ,EACM,OAAC,CADP;;AAEF,eAAQ,CAAC;;AAPc;AAUI;;AAE3B;AAEA,eAAe,KAAN,YAAM,GAAE,CAAF,EAAW,aAA1B;AAAI;AACF,YAAG,cAAS,CAAC,OAAQ,WAAM,CAAC,CAAD,CAAf,CAAZ,EACM,OAAC,CADP;;AAEF,eAAQ,CAAC;;AAPkB;AAUH;AAExB;AAAG;AACH;AAEA,UAAK;AACL,UAAK,YAAM,GAAE,CAAF;AACX,aAAM,CAAE,GAAE,CAAV;AAEE,gBAAS,WAAM,CAAC,CAAD;AACf,mBAAM,CAAC,CAAD,CAAN,GAAa,WAAM,CAAC,CAAD;AACnB,mBAAM,CAAC,CAAD,CAAN,GAAa;AACT,SAAJ,IAAG;AACC,SAAJ,IAAG;;AAbmB;AAiBG;AAE3B,sBAAW,CAAC,YAAD;AAFgB;AAKN;AAErB,0DAAc,OAAK,CAAC;;;;WAAQ,eAAW,EAAG,YAAvB;AAFE;AAKA;AAErB,0DAAc,OAAK,CAAC;;;;WAAQ,UAAW,EAAG,YAAvB;AAFE;AAKO;;AAE5B,eAAU,oDAAc,eAAa,CAAC,YAAQ,MAAO,OAAQ,eAAW,EAAG,YAAtC;;AAFT;AAKA;;AAG5B,eAAU,oDAAc,eAAa,CAAC,YAAQ,MAAO,OAAQ,UAAW,EAAG,YAAtC;;AAHT;AAjgCvB;AAoEM;;;AAET;AAFS;AAo4CkB;AAMb,2EAAC,OAAQ,MAAT;AAChB,UAAG,kBAAc,IAAY,CAAP,MAAO,KAAE,sCAAF,CAA7B,EACE,MAAE,eAAF,MAAE,CADJ;AAP6B;AAWE;AAErB;AACV,2BAAiB;AAHsC;AAAxB;AAMA;AAEf,uEAAC,SAAD;AAChB,2BAAiB;AAHqE;AAAvD;AAMA;AAEf,uEAAC,WAAD;AAChB,2BAAiB;AAHyE;AAA3D;AA35CpB;AAjMO;AA4esB;AAGxC,iBAAI,CAAC,QAAS,UAAc,EAAiB,WAAC,aAAD,CAAzC;AAHoC;AAMA;AAGxC,UAAG,MAAO,IAAG,CAAb,EACE,MADF;AAEA,oBAAS,CAAC,QAAS,OAAoB,CAAP,MAAO,GAAE,MAAF,CAAR,KAAmB,SAAzC;AAL+B;AAQO;;AAI/C,eAAU,mBAAY,CAAC,QAAS,MAAO,YAAa,UAC7B,EAAS,WAAC,OAAD,CADV;;AAJyB;AAQA;;AAI/C,eAAU,iBAAY,CAAC,QAAS,MAAO,cAAe,UAC/B,EAAS,WAAC,OAAD,CADV;;AAJyB;AAlgB7B;AA8BN;AA8e2B;AAGvC;AAAG;AACH;AAAG;AAEH,UAAqB,CAAT,CAAP,MAAO,GAAE,KAAF,CAAS,IAAG,CAAH,CAAM,IAAoB,CAAV,WAAC,aAAD,CAAU,KAAE,CAAF,CAA/C,EACE,MADF;AAEA;AACE,YAAK;AACL,YAAK;AACL,YAAK,aAAO,CAAC,KAAM,GAAmB,WAAT,CAAP,MAAO,GAAE,KAAF,CAAS,KAA1B;AACZ;AACE,iBAAM,SAAS,QAAQ,CAAC,aAAO,CAAC,CAAD,EAAK,CAAb,CAAgB,GAAE,CAAzC,EACM,CAAJ,IAAG;AACL,iBAAM,SAAS,QAAQ,CAAC,aAAO,CAAC,CAAD,EAAK,CAAb,CAAgB,GAAE,CAAzC,EACM,CAAJ,IAAG;AACL,cAAG,CAAE,IAAG,CAAR;AAEE,gBAAG,CAAE,KAAG,CAAR;AAEE,kBAAK,aAAO,CAAC,CAAD;AACZ,2BAAO,CAAC,CAAD,CAAP,GAAc,aAAO,CAAC,CAAD;AACrB,2BAAO,CAAC,CAAD,CAAP,GAAc;aAJhB;AAMI,aAAJ,IAAG;AACC,aAAJ,IAAG;WATL;SALF,QAgBQ,EAAF,CAAE,GAAE,CAAF,CAhBR;AAoBA,YAAK,CAAF,CAAE,GAAE,KAAF,CAAQ,GAAS,CAAP,MAAO,GAAE,CAAF,CAAtB;AAEE,cAAG,KAAM,GAAE,CAAX,EACE,cAAS,CAAC,QAAS,MAAO,EAAG,SAApB,CADX;AAEA,kBAAS;;AAIT,cAAG,CAAE,GAAE,MAAP,EACE,cAAS,CAAC,QAAS,EAAG,OAAQ,SAArB,CADX;AAEA,mBAAU;;OAlCd,QAoCY,EAAN,KAAM,IAAG,MAAH,CApCZ;AARuC;AA+CE;;AAIzC;AAAM;AAAM;AAAM;AAKlB,aAAQ;AACR,aAAoB,CAAP,MAAO,GAAE,MAAF,CAAR;AAEZ,YAAK,IAAK,GAAE,IAAF;AACV,aAAM,GAAG,GAAC,IAAD;AACT,aAAO,IAAK,GAAE,IAAd;AAEE,eAAoB,UAAP,CAAJ,IAAI,GAAC,IAAD,CAAO,GAAI,CAAJ;AAGpB,qBAAa,cAAb,GAA+B,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAEhD,YAAI,aAAa,cAAe,GAAE,CAAlC;AACE,iBAAQ,IAAK,GAAE,CAAF;;AAGb,cAAG,aAAa,cAAe,KAAE,CAAjC;AAEE,yBAAa,WAAb,GAA4B;AAC5B,yBAAa,eAAb,GAAgC;AAC5B,mBAAC;WAJP;AAMA,iBAAQ;;;AASZ,eAAS,IAAK,KAAE,IAAF;AACd,UAAG,MAAH;AAEE,qBAAa,cAAb,GAA+B,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAChD,qBAAa,eAAb,GAAgC;AAChC,iBAAS,aAAa,cAAe,KAAE,CAAF;AACrC,YAAG,MAAH;AACE,uBAAa,WAAb,GAA4B;AAE5B,cAAA,aAAa,WAAb,GAA4B,CAAC;;AAI/B,qBAAa,cAAb,GAA+B;AAC/B,qBAAa,WAAb,GAA4B,CAAC;AAC7B,qBAAa,eAAb,GAAgC,CAAC;;;AAvDM;AA2DA;;AAIzC;AAAM;AAAM;AACZ;AAGA,aAAQ;AACR,aAAoB,CAAP,MAAO,GAAE,MAAF,CAAR;AAGZ,aAAO,IAAK,GAAE,IAAd;AAEE,eAAsB,UAAR,CAAL,IAAK,GAAE,IAAF,CAAQ,GAAI,CAAJ;AAMtB,mBAAY,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAE7B,YAAI,QAAS,GAAE,CAAf;AACE,iBAAQ,IAAK,GAAE,CAAF;;AAGb,cAAG,QAAS,KAAE,CAAd;AAEE,4BAAe,IAAf;AACI,mBAAC;WAHP;AAKA,iBAAQ;;;AAQZ,iBAAY,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAC7B,eAAc,CAAL,IAAK,KAAE,IAAF,CAAQ,IAAc,CAAT,QAAS,KAAE,CAAF,CAAd;AACtB,UAAG,MAAH;AACE,wBAAe,IAAf;AAEA,4BAAe,CAAC,CAAhB;;AA5CuC;AAxlB7B;AAwCD;;;AAET;AAKA;AACA;AARS;;;;;;AA6nBsB;;AAEjC,eAAc,WAAC,WAAD;;AAFmB;AAKM;;AAEvC,UAAG,YAAO,KAAO,WAAC,WAAD,CAAjB,EACW,WAAO,KAAK,CAAQ,WAAR,CADvB;AAGA,eAAU;AACN,kBAAJ,IAAG;;AANoC;AASC;;AAExC;AAEA,UAAG,MAAO,GAAE,CAAZ,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAEA,UAAG,MAAO,KAAE,CAAZ,EACM,OAAC,YAAQ,GAAE,CADjB;AAGA,eAAqB,KAAR,WAAC,WAAD,CAAQ,GAAC,CAAD,EAAa,OAAP,YAAO,GAAC,MAAD,kBAAlC;AAAI;AACO,mBAAO,KAAK,CAAQ,WAAR;;AAEvB,eAAU;AACN,kBAAJ,IAAa;;AAb2B;AAgBX;AAG7B,UAAY,cAAD,QAAX,EACE,cAAS,CAAC,KAAM,OAAQ,uBAAf,CADX;AAH6B;AAOC;;AAG9B,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,eAAU,WAAM,CAAC,MAAD;AACZ,kBAAJ,IAAG;AAEH,iBAAM,CAAC,MAAD,CAAN,GAAyB;AAChB,iBAAO,OAAO,CAAC,OAAO,CAAR;AAEvB,iBAAM,CAAC,OAAQ,uBAAT;;AAZwB;AAeA;;AAE9B,eAAU;;AAFoB;AAjrBnB;AAQI;AARJ;AAwBU;;;AAEnB;AACA;AAHmB;;;;;AAiqBqB;;AAEtC,iBAAJ,IAAG;AACH,eAAyB,CAAd,UAAK,QAAS,GAAE,CAAF,CAAK,IAAY,CAAP,WAAO,GAAE,UAAK,QAAP,CAAZ;;AAHY;AAME;;AAE5C,eAAU;;AAFkC;AAKF;;AAE1C,eAAU,UAAK,OAAO,CAAC,WAAD;;AAFoB;AAKD;AAE/B;AACV,oBAAU,CAAC;AACX,mBAAS;AAJwD;AAAxB;AAjrBpB;AA+BhB;AAeU;;AAfV;;AAEH;AAFG;;;;;AA2pBoB;;AAEzB,UAAY,cAAD,QAAX;AACE,iBAAS,cAAS,QAAQ,CAAC,KAAM,KAAP,CAAc,KAAE,CAAF;AAExC,qBAAS,IAAK,KAAE,KAAF;;AALS;AAQG;AAE5B,UAAG,MAAO,GAAE,YAAZ,EACE,cAAS,MAAT,CADF;AAEU,iBAAD,sBAAC,cAAQ,MAAT;AAJmB;AAOH;AAEzB,UAAG,MAAO,GAAE,CAAZ,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAG,MAAO,GAAE,kBAAZ;AACE,yBAAY,MAAZ;AACG,gBAAG,MAAO,GAAE,YAAZ,EACH,gBAAW,CAAC,OAAQ,YAAM,GAAE,MAAjB,CADR;AAGL,qBAAW;AAVc;AAaM;;AAIA;AAE/B,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAES,iBAAO,OAAO,CAAC,OAAO,EAAE,MAAV;AACnB,kBAAJ,IAAG;AAEH,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;AARyB;AAWA;;AAE/B,eAAU;;AAFqB;AAKR;;AAEvB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,eAAU,WAAM,CAAC,MAAD;;AALO;AAQC;AAExB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAEA,iBAAM,CAAC,WAAM,CAAC,MAAD,EAAU,sCAAjB;AACN,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;AANkB;AASK;;AAE7B,eAAU,gBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;;AAFO;AAKJ;AAEzB;AAF0B;AAAD;AAKA;AAEzB;AACA,oCAAa,SAAb;AAHyD;AAAhC;AAMA;AAEzB;AAEA;AACA,UAAa;AAAT;;;AACF,kBAAG,CAAC,KAAD;;AADD;AAAS;AAAT;AALmD;AAA9B;AASA;AAEzB,sBAAW,CAAC,CAAD;AAFc;AAKN;;AAEnB,eAAU;AACV,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;;AAJa;AAOM;AAEzB,sBAAW,CAAC,aAAO,OAAR;AAFc;AAKA;AAEzB;AAEA,UAAc;AAAV;;;AACF,kBAAG,CAAC,MAAD;;AADD;AAAU;AAAV;AAJqB;AAQA;AAEzB;AAEA,UAAc;AAAV;;;AACF,kBAAG,CAAC,MAAD;;AADD;AAAU;AAAV;AAJqB;AAQF;AAEvB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,yBAAc,CAAC,OAAQ,MAAT;AALS;AAQK;AAE5B;AAAS;AACT;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,gBAAiB,WAAC,OAAD;AACjB,UAAG,OAAQ,KAAE,CAAb,EACE,MADF;AAGA,UAAG,MAAO,KAAG,uBAAkB,CAAC,OAAD,CAA/B;AAEE,iBAAS,aAA0B,OAAhB,YAAgB,GAAR,OAAF,GAAW,CAAD,kBAAnC;AAAI;AACF,qBAAM,CAAC,CAAC,GAAC,OAAH,CAAN,GAAqB,WAAM,CAAC,CAAD;;AAC7B,iBAAS,SAAa,QAAR,OAAQ,GAAC,CAAD,qBAAtB;AAAI;AACF,qBAAM,CAAC,MAAM,GAAC,CAAR,CAAN,GAA2B;;OAL/B;AAQA,eAAS,SAAS,QAAC,OAAD,yBAAlB;AAAI;AAEF,iBAAQ,OAAO,CAAC,CAAD;AACf,mBAAM,CAAC,CAAC,GAAC,MAAH,CAAN,GAAoB;AACpB,mBAAM,CAAC,OAAQ,oCAAT;;AAxBoB;AA4BA;AAE5B;AACA;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAK;AACL,UAAc;AAAV;;;AAEF,6BAAc,CAAC,MAAO,GAAE,CAAF,CAAK,MAAb;AACV,WAAJ,IAAG;;AAHD;AAAU;AAAV;AATwB;AAgBA;AAE5B;AACA;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAK;AACL,UAAc;AAAV;;;AAEF,6BAAc,CAAC,MAAO,GAAE,CAAF,CAAK,MAAb;AACV,WAAJ,IAAG;;AAHD;AAAU;AAAV;AATwB;AA2BN;;AAEtB,eAAU,YAAO,CAAC,MAAD;AACjB,UAAG,MAAO,IAAG,CAAb,EACE,aAAQ,CAAC,OAAQ,sCAAT,CADV;;AAHsB;AAXI;;AAG1B,UAAG,SAAS,KAAY,uBAAxB;AACE,iBAAU,gBAAW,CAAC,MAAD;AAErB,qBAAU,YAAO,CAAC,MAAD;AACnB,UAAG,MAAO,IAAG,CAAb,EACE,aAAQ,CAAC,OAAQ,sCAAT,CADV;;AAP0B;AAkBH;AAEvB,mBAAQ,CAAC,OAAQ,sCAAT;AAFe;AAKK;AAE5B;AACA;AAEA,UAAG,MAAO,KAAE,CAAZ,EACE,MADF;AAGA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAqB,IAAL,CAAP,MAAO,GAAE,CAAF,CAAX,IAAoC,CAAT,CAAP,MAAO,GAAE,MAAF,CAAS,GAAE,YAAF,CAApD,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,iBAA4B,WAAO,OAAO,CAAC,OAAO,YAAR;AACtC,kBAAJ,IAAa;AAEb,eAAS,QAAS,kBAAC,QAAD,uBAAlB;AAAI;AACF,mBAAM,CAAC,QAAQ,CAAC,CAAD,EAAK,sCAAd;;AAfoB;AAkBA;;AAE5B,eAAU,aAAQ,CAAC,OAAQ,wCAAT;;AAFU;AAKL;;AAEvB;AAEA,eAAU,YAAO,CAAC,MAAD;AACjB,UAAG,MAAO,GAAE,CAAZ;AACE,iBAAe;AAEf,qBAAU,aAAQ,CAAC,OAAQ,wCAAT;;AARG;AAWE;AAEzB;AAEA,cAAS,WAAM,CAAC,OAAD;AACf,iBAAM,CAAC,OAAD,CAAN,GAAmB,WAAM,CAAC,OAAD;AACzB,iBAAM,CAAC,OAAD,CAAN,GAAmB;AANM;AASJ;AAErB;AACA;AACA;AAEA,UAAG,SAAU,KAAE,MAAf,EACE,MADF;AAGA,UAAc,CAAV,SAAU,GAAE,CAAF,CAAK,IAAc,CAAV,SAAU,IAAG,YAAH,CAAjC,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,YAAgB;AAChB,cAAS,GAAI;AACb,UAAG,MAAO,GAAE,SAAZ;AACE,iBAAS,aAAmB,OAAT,SAAS,GAAC,CAAD,kBAA5B;AAAI;AACF,aAAI,GAAJ,GAAU,GAAK,CAAD,CAAC,GAAC,CAAD;;AAEjB,qBAAS,cAAuB,QAAT,SAAS,GAAC,CAAD,qBAAhC;AAAI;AACF,WAAI,GAAJ,GAAU,GAAK,CAAD,CAAC,GAAC,CAAD;;AACnB,SAAI,WAAJ,GAAkB;AApBG;AAuBA;;AAErB,eAAU,YAAK,CAAC,CAAD;;AAFM;AAKD;;AAEpB,eAAU,YAAK,CAAM,YAAD,IAAL;;AAFK;AAKE;AAEtB,mBAAQ,CAAC,CAAD;AACR,sBAAW,CAAC,CAAD;AAHW;AAME;;AAExB,eAAU,YAAO,CAAC,MAAD,CAAS,IAAG,CAAH;;AAFF;AAKD;;AAEvB;AAEA,eAAS,QAAW,OAAN,YAAM,GAAE,CAAF,kBAApB;AAAI;AACF,YAAG,cAAS,CAAC,OAAQ,WAAM,CAAC,CAAD,CAAf,CAAZ,EACM,OAAC,CADP;;AAEF,eAAQ,CAAC;;AAPc;AAUI;;AAE3B;AAEA,eAAe,KAAN,YAAM,GAAE,CAAF,EAAW,aAA1B;AAAI;AACF,YAAG,cAAS,CAAC,OAAQ,WAAM,CAAC,CAAD,CAAf,CAAZ,EACM,OAAC,CADP;;AAEF,eAAQ,CAAC;;AAPkB;AAUH;AAExB;AAAG;AACH;AAEA,UAAK;AACL,UAAK,YAAM,GAAE,CAAF;AACX,aAAM,CAAE,GAAE,CAAV;AAEE,gBAAS,WAAM,CAAC,CAAD;AACf,mBAAM,CAAC,CAAD,CAAN,GAAa,WAAM,CAAC,CAAD;AACnB,mBAAM,CAAC,CAAD,CAAN,GAAa;AACT,SAAJ,IAAG;AACC,SAAJ,IAAG;;AAbmB;AAiBG;AAE3B,sBAAW,CAAC,YAAD;AAFgB;AAKN;AAErB,0DAAc,OAAK,CAAC;;;;WAAQ,eAAW,EAAG,YAAvB;AAFE;AAKA;AAErB,0DAAc,OAAK,CAAC;;;;WAAQ,UAAW,EAAG,YAAvB;AAFE;AAKO;;AAE5B,eAAU,oDAAc,eAAa,CAAC,YAAQ,MAAO,OAAQ,eAAW,EAAG,YAAtC;;AAFT;AAKA;;AAG5B,eAAU,oDAAc,eAAa,CAAC,YAAQ,MAAO,OAAQ,UAAW,EAAG,YAAtC;;AAHT;AAjgCvB;AA7Ha;AA4esB;AAGxC,iBAAI,CAAC,QAAS,UAAc,EAAiB,WAAC,aAAD,CAAzC;AAHoC;AAMA;AAGxC,UAAG,MAAO,IAAG,CAAb,EACE,MADF;AAEA,oBAAS,CAAC,QAAS,OAAoB,CAAP,MAAO,GAAE,MAAF,CAAR,KAAmB,SAAzC;AAL+B;AAQO;;AAI/C,eAAU,mBAAY,CAAC,QAAS,MAAO,YAAa,UAC7B,EAAS,WAAC,OAAD,CADV;;AAJyB;AAQA;;AAI/C,eAAU,iBAAY,CAAC,QAAS,MAAO,cAAe,UAC/B,EAAS,WAAC,OAAD,CADV;;AAJyB;AAlgB7B;AA8BN;AA8e2B;AAGvC;AAAG;AACH;AAAG;AAEH,UAAqB,CAAT,CAAP,MAAO,GAAE,KAAF,CAAS,IAAG,CAAH,CAAM,IAAoB,CAAV,WAAC,aAAD,CAAU,KAAE,CAAF,CAA/C,EACE,MADF;AAEA;AACE,YAAK;AACL,YAAK;AACL,YAAK,aAAO,CAAC,KAAM,GAAmB,WAAT,CAAP,MAAO,GAAE,KAAF,CAAS,KAA1B;AACZ;AACE,iBAAM,SAAS,QAAQ,CAAC,aAAO,CAAC,CAAD,EAAK,CAAb,CAAgB,GAAE,CAAzC,EACM,CAAJ,IAAG;AACL,iBAAM,SAAS,QAAQ,CAAC,aAAO,CAAC,CAAD,EAAK,CAAb,CAAgB,GAAE,CAAzC,EACM,CAAJ,IAAG;AACL,cAAG,CAAE,IAAG,CAAR;AAEE,gBAAG,CAAE,KAAG,CAAR;AAEE,kBAAK,aAAO,CAAC,CAAD;AACZ,2BAAO,CAAC,CAAD,CAAP,GAAc,aAAO,CAAC,CAAD;AACrB,2BAAO,CAAC,CAAD,CAAP,GAAc;aAJhB;AAMI,aAAJ,IAAG;AACC,aAAJ,IAAG;WATL;SALF,QAgBQ,EAAF,CAAE,GAAE,CAAF,CAhBR;AAoBA,YAAK,CAAF,CAAE,GAAE,KAAF,CAAQ,GAAS,CAAP,MAAO,GAAE,CAAF,CAAtB;AAEE,cAAG,KAAM,GAAE,CAAX,EACE,cAAS,CAAC,QAAS,MAAO,EAAG,SAApB,CADX;AAEA,kBAAS;;AAIT,cAAG,CAAE,GAAE,MAAP,EACE,cAAS,CAAC,QAAS,EAAG,OAAQ,SAArB,CADX;AAEA,mBAAU;;OAlCd,QAoCY,EAAN,KAAM,IAAG,MAAH,CApCZ;AARuC;AA+CE;;AAIzC;AAAM;AAAM;AAAM;AAKlB,aAAQ;AACR,aAAoB,CAAP,MAAO,GAAE,MAAF,CAAR;AAEZ,YAAK,IAAK,GAAE,IAAF;AACV,aAAM,GAAG,GAAC,IAAD;AACT,aAAO,IAAK,GAAE,IAAd;AAEE,eAAoB,UAAP,CAAJ,IAAI,GAAC,IAAD,CAAO,GAAI,CAAJ;AAGpB,qBAAa,cAAb,GAA+B,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAEhD,YAAI,aAAa,cAAe,GAAE,CAAlC;AACE,iBAAQ,IAAK,GAAE,CAAF;;AAGb,cAAG,aAAa,cAAe,KAAE,CAAjC;AAEE,yBAAa,WAAb,GAA4B;AAC5B,yBAAa,eAAb,GAAgC;AAC5B,mBAAC;WAJP;AAMA,iBAAQ;;;AASZ,eAAS,IAAK,KAAE,IAAF;AACd,UAAG,MAAH;AAEE,qBAAa,cAAb,GAA+B,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAChD,qBAAa,eAAb,GAAgC;AAChC,iBAAS,aAAa,cAAe,KAAE,CAAF;AACrC,YAAG,MAAH;AACE,uBAAa,WAAb,GAA4B;AAE5B,cAAA,aAAa,WAAb,GAA4B,CAAC;;AAI/B,qBAAa,cAAb,GAA+B;AAC/B,qBAAa,WAAb,GAA4B,CAAC;AAC7B,qBAAa,eAAb,GAAgC,CAAC;;;AAvDM;AA2DA;;AAIzC;AAAM;AAAM;AACZ;AAGA,aAAQ;AACR,aAAoB,CAAP,MAAO,GAAE,MAAF,CAAR;AAGZ,aAAO,IAAK,GAAE,IAAd;AAEE,eAAsB,UAAR,CAAL,IAAK,GAAE,IAAF,CAAQ,GAAI,CAAJ;AAMtB,mBAAY,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAE7B,YAAI,QAAS,GAAE,CAAf;AACE,iBAAQ,IAAK,GAAE,CAAF;;AAGb,cAAG,QAAS,KAAE,CAAd;AAEE,4BAAe,IAAf;AACI,mBAAC;WAHP;AAKA,iBAAQ;;;AAQZ,iBAAY,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAC7B,eAAc,CAAL,IAAK,KAAE,IAAF,CAAQ,IAAc,CAAT,QAAS,KAAE,CAAF,CAAd;AACtB,UAAG,MAAH;AACE,wBAAe,IAAf;AAEA,4BAAe,CAAC,CAAhB;;AA5CuC;AAxlB7B;AAwCD;;;AAET;AAKA;AACA;AARS;;;;;;AA6nBsB;;AAEjC,eAAc,WAAC,WAAD;;AAFmB;AAKM;;AAEvC,UAAG,YAAO,KAAO,WAAC,WAAD,CAAjB,EACW,WAAO,KAAK,CAAQ,GAAR,CADvB;AAGA,eAAU;AACN,kBAAJ,IAAG;;AANoC;AASC;;AAExC;AAEA,UAAG,MAAO,GAAE,CAAZ,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAEA,UAAG,MAAO,KAAE,CAAZ,EACM,OAAC,YAAQ,GAAE,CADjB;AAGA,eAAqB,KAAR,WAAC,WAAD,CAAQ,GAAC,CAAD,EAAa,OAAP,YAAO,GAAC,MAAD,kBAAlC;AAAI;AACO,mBAAO,KAAK,CAAQ,GAAR;;AAEvB,eAAU;AACN,kBAAJ,IAAa;;AAb2B;AAgBX;AAG7B,UAAY,cAAD,QAAX,EACE,cAAS,CAAC,KAAM,OAAQ,uBAAf,CADX;AAH6B;AAOC;;AAG9B,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,eAAU,WAAM,CAAC,MAAD;AACZ,kBAAJ,IAAG;AAEH,iBAAM,CAAC,MAAD,CAAN,GAAyB;AAChB,iBAAO,OAAO,CAAC,OAAO,CAAR;AAEvB,iBAAM,CAAC,OAAQ,uBAAT;;AAZwB;AAeA;;AAE9B,eAAU;;AAFoB;AAjrBnB;AAQI;AARJ;AAwBU;;;AAEnB;AACA;AAHmB;;;;;AAiqBqB;;AAEtC,iBAAJ,IAAG;AACH,eAAyB,CAAd,UAAK,QAAS,GAAE,CAAF,CAAK,IAAY,CAAP,WAAO,GAAE,UAAK,QAAP,CAAZ;;AAHY;AAME;;AAE5C,eAAU;;AAFkC;AAKF;;AAE1C,eAAU,UAAK,OAAO,CAAC,WAAD;;AAFoB;AAKD;AAE/B;AACV,oBAAU,CAAC;AACX,mBAAS;AAJwD;AAAxB;AAjrBpB;AA+BhB;AAeU;;AAfV;;AAEH;AAFG;;;;;AA2pBoB;;AAEzB,UAAY,cAAD,QAAX;AACE,iBAAS,cAAS,QAAQ,CAAC,KAAM,KAAP,CAAc,KAAE,CAAF;AAExC,qBAAS,IAAK,KAAE,KAAF;;AALS;AAQG;AAE5B,UAAG,MAAO,GAAE,YAAZ,EACE,cAAS,MAAT,CADF;AAEU,iBAAD,sBAAC,gBAAQ,MAAT;AAJmB;AAOH;AAEzB,UAAG,MAAO,GAAE,CAAZ,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAG,MAAO,GAAE,kBAAZ;AACE,yBAAY,MAAZ;AACG,gBAAG,MAAO,GAAE,YAAZ,EACH,gBAAW,CAAC,OAAQ,YAAM,GAAE,MAAjB,CADR;AAGL,qBAAW;AAVc;AAaM;;AAIA;AAE/B,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAES,iBAAO,OAAO,CAAC,OAAO,EAAE,MAAV;AACnB,kBAAJ,IAAG;AAEH,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;AARyB;AAWA;;AAE/B,eAAU;;AAFqB;AAKR;;AAEvB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,eAAU,WAAM,CAAC,MAAD;;AALO;AAQC;AAExB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAEA,iBAAM,CAAC,WAAM,CAAC,MAAD,EAAU,sCAAjB;AACN,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;AANkB;AASK;;AAE7B,eAAU,gBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;;AAFO;AAKJ;AAEzB;AAF0B;AAAD;AAKA;AAEzB;AACA,oCAAa,SAAb;AAHyD;AAAhC;AAMA;AAEzB;AAEA;AACA,UAAa;AAAT;;;AACF,kBAAG,CAAC,KAAD;;AADD;AAAS;AAAT;AALmD;AAA9B;AASA;AAEzB,sBAAW,CAAC,CAAD;AAFc;AAKN;;AAEnB,eAAU;AACV,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;;AAJa;AAOM;AAEzB,sBAAW,CAAC,aAAO,OAAR;AAFc;AAKA;AAEzB;AAEA,UAAc;AAAV;;;AACF,kBAAG,CAAC,MAAD;;AADD;AAAU;AAAV;AAJqB;AAQA;AAEzB;AAEA,UAAc;AAAV;;;AACF,kBAAG,CAAC,MAAD;;AADD;AAAU;AAAV;AAJqB;AAQF;AAEvB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,yBAAc,CAAC,OAAQ,MAAT;AALS;AAQK;AAE5B;AAAS;AACT;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,gBAAiB,WAAC,OAAD;AACjB,UAAG,OAAQ,KAAE,CAAb,EACE,MADF;AAGA,UAAG,MAAO,KAAG,uBAAkB,CAAC,OAAD,CAA/B;AAEE,iBAAS,aAA0B,OAAhB,YAAgB,GAAR,OAAF,GAAW,CAAD,kBAAnC;AAAI;AACF,qBAAM,CAAC,CAAC,GAAC,OAAH,CAAN,GAAqB,WAAM,CAAC,CAAD;;AAC7B,iBAAS,SAAa,QAAR,OAAQ,GAAC,CAAD,qBAAtB;AAAI;AACF,qBAAM,CAAC,MAAM,GAAC,CAAR,CAAN,GAA2B;;OAL/B;AAQA,eAAS,SAAS,QAAC,OAAD,yBAAlB;AAAI;AAEF,iBAAQ,OAAO,CAAC,CAAD;AACf,mBAAM,CAAC,CAAC,GAAC,MAAH,CAAN,GAAoB;AACpB,mBAAM,CAAC,OAAQ,oCAAT;;AAxBoB;AA4BA;AAE5B;AACA;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAK;AACL,UAAc;AAAV;;;AAEF,6BAAc,CAAC,MAAO,GAAE,CAAF,CAAK,MAAb;AACV,WAAJ,IAAG;;AAHD;AAAU;AAAV;AATwB;AAgBA;AAE5B;AACA;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAK;AACL,UAAc;AAAV;;;AAEF,6BAAc,CAAC,MAAO,GAAE,CAAF,CAAK,MAAb;AACV,WAAJ,IAAG;;AAHD;AAAU;AAAV;AATwB;AA2BN;;AAEtB,eAAU,YAAO,CAAC,MAAD;AACjB,UAAG,MAAO,IAAG,CAAb,EACE,aAAQ,CAAC,OAAQ,sCAAT,CADV;;AAHsB;AAXI;;AAG1B,UAAG,SAAS,KAAY,uBAAxB;AACE,iBAAU,gBAAW,CAAC,MAAD;AAErB,qBAAU,YAAO,CAAC,MAAD;AACnB,UAAG,MAAO,IAAG,CAAb,EACE,aAAQ,CAAC,OAAQ,sCAAT,CADV;;AAP0B;AAkBH;AAEvB,mBAAQ,CAAC,OAAQ,sCAAT;AAFe;AAKK;AAE5B;AACA;AAEA,UAAG,MAAO,KAAE,CAAZ,EACE,MADF;AAGA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAqB,IAAL,CAAP,MAAO,GAAE,CAAF,CAAX,IAAoC,CAAT,CAAP,MAAO,GAAE,MAAF,CAAS,GAAE,YAAF,CAApD,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,iBAA4B,WAAO,OAAO,CAAC,OAAO,YAAR;AACtC,kBAAJ,IAAa;AAEb,eAAS,QAAS,kBAAC,QAAD,uBAAlB;AAAI;AACF,mBAAM,CAAC,QAAQ,CAAC,CAAD,EAAK,sCAAd;;AAfoB;AAkBA;;AAE5B,eAAU,aAAQ,CAAC,OAAQ,wCAAT;;AAFU;AAKL;;AAEvB;AAEA,eAAU,YAAO,CAAC,MAAD;AACjB,UAAG,MAAO,GAAE,CAAZ;AACE,iBAAe;AAEf,qBAAU,aAAQ,CAAC,OAAQ,wCAAT;;AARG;AAWE;AAEzB;AAEA,cAAS,WAAM,CAAC,OAAD;AACf,iBAAM,CAAC,OAAD,CAAN,GAAmB,WAAM,CAAC,OAAD;AACzB,iBAAM,CAAC,OAAD,CAAN,GAAmB;AANM;AASJ;AAErB;AACA;AACA;AAEA,UAAG,SAAU,KAAE,MAAf,EACE,MADF;AAGA,UAAc,CAAV,SAAU,GAAE,CAAF,CAAK,IAAc,CAAV,SAAU,IAAG,YAAH,CAAjC,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,YAAgB;AAChB,cAAS,GAAI;AACb,UAAG,MAAO,GAAE,SAAZ;AACE,iBAAS,aAAmB,OAAT,SAAS,GAAC,CAAD,kBAA5B;AAAI;AACF,aAAI,GAAJ,GAAU,GAAK,CAAD,CAAC,GAAC,CAAD;;AAEjB,qBAAS,cAAuB,QAAT,SAAS,GAAC,CAAD,qBAAhC;AAAI;AACF,WAAI,GAAJ,GAAU,GAAK,CAAD,CAAC,GAAC,CAAD;;AACnB,SAAI,WAAJ,GAAkB;AApBG;AAuBA;;AAErB,eAAU,YAAK,CAAC,CAAD;;AAFM;AAKD;;AAEpB,eAAU,YAAK,CAAM,YAAD,IAAL;;AAFK;AAKE;AAEtB,mBAAQ,CAAC,CAAD;AACR,sBAAW,CAAC,CAAD;AAHW;AAME;;AAExB,eAAU,YAAO,CAAC,MAAD,CAAS,IAAG,CAAH;;AAFF;AAKD;;AAEvB;AAEA,eAAS,QAAW,OAAN,YAAM,GAAE,CAAF,kBAApB;AAAI;AACF,YAAG,cAAS,CAAC,OAAQ,WAAM,CAAC,CAAD,CAAf,CAAZ,EACM,OAAC,CADP;;AAEF,eAAQ,CAAC;;AAPc;AAUI;;AAE3B;AAEA,eAAe,KAAN,YAAM,GAAE,CAAF,EAAW,aAA1B;AAAI;AACF,YAAG,cAAS,CAAC,OAAQ,WAAM,CAAC,CAAD,CAAf,CAAZ,EACM,OAAC,CADP;;AAEF,eAAQ,CAAC;;AAPkB;AAUH;AAExB;AAAG;AACH;AAEA,UAAK;AACL,UAAK,YAAM,GAAE,CAAF;AACX,aAAM,CAAE,GAAE,CAAV;AAEE,gBAAS,WAAM,CAAC,CAAD;AACf,mBAAM,CAAC,CAAD,CAAN,GAAa,WAAM,CAAC,CAAD;AACnB,mBAAM,CAAC,CAAD,CAAN,GAAa;AACT,SAAJ,IAAG;AACC,SAAJ,IAAG;;AAbmB;AAiBG;AAE3B,sBAAW,CAAC,YAAD;AAFgB;AAKN;AAErB,yDAAc,OAAK,CAAC;;;;WAAQ,eAAW,EAAG,YAAvB;AAFE;AAKA;AAErB,yDAAc,OAAK,CAAC;;;;WAAQ,UAAW,EAAG,YAAvB;AAFE;AAKO;;AAE5B,eAAU,mDAAc,eAAa,CAAC,YAAQ,MAAO,OAAQ,eAAW,EAAG,YAAtC;;AAFT;AAKA;;AAG5B,eAAU,mDAAc,eAAa,CAAC,YAAQ,MAAO,OAAQ,UAAW,EAAG,YAAtC;;AAHT;AAjgCvB;AAhFM;;;AA0nBmB;;AAE9B,eAAQ;;AAFsB;AA1nBnB;AAWA;;;AAsnBwB;;AAEnC,eAAQ;;AAF2B;AAKN;;AAE7B;AAEA,eAAQ;AACR,oBAAe;AACf;AACE,eAAM,WAAW,WAAjB,EACW,MAAO,KAAK,CAAC,WAAW,aAAC,EAAb;AAFzB;AAIE,mBAAY,eAAZ,WAAY;AAJd;;AAN6B;AA3nBlB;AApEW;uCAAuB,WzCgHtC,2ByChHsC,EAAsB,SHsK7C,gEGtK6C,GAC1D,WAFc,qCAEd,CADa;;AAYJ;;;AA4esB;AAGxC,iBAAI,CAAC,QAAS,UAAc,EAAiB,WAAC,aAAD,CAAzC;AAHoC;AAMA;AAGxC,UAAG,MAAO,IAAG,CAAb,EACE,MADF;AAEA,oBAAS,CAAC,QAAS,OAAoB,CAAP,MAAO,GAAE,MAAF,CAAR,KAAmB,SAAzC;AAL+B;AAQO;;AAI/C,eAAU,mBAAY,CAAC,QAAS,MAAO,YAAa,UAC7B,EAAS,WAAC,OAAD,CADV;;AAJyB;AAQA;;AAI/C,eAAU,iBAAY,CAAC,QAAS,MAAO,cAAe,UAC/B,EAAS,WAAC,OAAD,CADV;;AAJyB;AAlgB7B;AA8BN;;;AA8e2B;AAGvC;AAAG;AACH;AAAG;AAEH,UAAqB,CAAT,CAAP,MAAO,GAAE,KAAF,CAAS,IAAG,CAAH,CAAM,IAAoB,CAAV,WAAC,aAAD,CAAU,KAAE,CAAF,CAA/C,EACE,MADF;AAEA;AACE,YAAK;AACL,YAAK;AACL,YAAK,aAAO,CAAC,KAAM,GAAmB,WAAT,CAAP,MAAO,GAAE,KAAF,CAAS,KAA1B;AACZ;AACE,iBAAM,SAAS,QAAQ,CAAC,aAAO,CAAC,CAAD,EAAK,CAAb,CAAgB,GAAE,CAAzC,EACM,CAAJ,IAAG;AACL,iBAAM,SAAS,QAAQ,CAAC,aAAO,CAAC,CAAD,EAAK,CAAb,CAAgB,GAAE,CAAzC,EACM,CAAJ,IAAG;AACL,cAAG,CAAE,IAAG,CAAR;AAEE,gBAAG,CAAE,KAAG,CAAR;AAEE,kBAAK,aAAO,CAAC,CAAD;AACZ,2BAAO,CAAC,CAAD,CAAP,GAAc,aAAO,CAAC,CAAD;AACrB,2BAAO,CAAC,CAAD,CAAP,GAAc;aAJhB;AAMI,aAAJ,IAAG;AACC,aAAJ,IAAG;WATL;SALF,QAgBQ,EAAF,CAAE,GAAE,CAAF,CAhBR;AAoBA,YAAK,CAAF,CAAE,GAAE,KAAF,CAAQ,GAAS,CAAP,MAAO,GAAE,CAAF,CAAtB;AAEE,cAAG,KAAM,GAAE,CAAX,EACE,cAAS,CAAC,QAAS,MAAO,EAAG,SAApB,CADX;AAEA,kBAAS;;AAIT,cAAG,CAAE,GAAE,MAAP,EACE,cAAS,CAAC,QAAS,EAAG,OAAQ,SAArB,CADX;AAEA,mBAAU;;OAlCd,QAoCY,EAAN,KAAM,IAAG,MAAH,CApCZ;AARuC;AA+CE;;AAIzC;AAAM;AAAM;AAAM;AAKlB,aAAQ;AACR,aAAoB,CAAP,MAAO,GAAE,MAAF,CAAR;AAEZ,YAAK,IAAK,GAAE,IAAF;AACV,aAAM,GAAG,GAAC,IAAD;AACT,aAAO,IAAK,GAAE,IAAd;AAEE,eAAoB,UAAP,CAAJ,IAAI,GAAC,IAAD,CAAO,GAAI,CAAJ;AAGpB,qBAAa,cAAb,GAA+B,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAEhD,YAAI,aAAa,cAAe,GAAE,CAAlC;AACE,iBAAQ,IAAK,GAAE,CAAF;;AAGb,cAAG,aAAa,cAAe,KAAE,CAAjC;AAEE,yBAAa,WAAb,GAA4B;AAC5B,yBAAa,eAAb,GAAgC;AAC5B,mBAAC;WAJP;AAMA,iBAAQ;;;AASZ,eAAS,IAAK,KAAE,IAAF;AACd,UAAG,MAAH;AAEE,qBAAa,cAAb,GAA+B,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAChD,qBAAa,eAAb,GAAgC;AAChC,iBAAS,aAAa,cAAe,KAAE,CAAF;AACrC,YAAG,MAAH;AACE,uBAAa,WAAb,GAA4B;AAE5B,cAAA,aAAa,WAAb,GAA4B,CAAC;;AAI/B,qBAAa,cAAb,GAA+B;AAC/B,qBAAa,WAAb,GAA4B,CAAC;AAC7B,qBAAa,eAAb,GAAgC,CAAC;;;AAvDM;AA2DA;;AAIzC;AAAM;AAAM;AACZ;AAGA,aAAQ;AACR,aAAoB,CAAP,MAAO,GAAE,MAAF,CAAR;AAGZ,aAAO,IAAK,GAAE,IAAd;AAEE,eAAsB,UAAR,CAAL,IAAK,GAAE,IAAF,CAAQ,GAAI,CAAJ;AAMtB,mBAAY,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAE7B,YAAI,QAAS,GAAE,CAAf;AACE,iBAAQ,IAAK,GAAE,CAAF;;AAGb,cAAG,QAAS,KAAE,CAAd;AAEE,4BAAe,IAAf;AACI,mBAAC;WAHP;AAKA,iBAAQ;;;AAQZ,iBAAY,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAC7B,eAAc,CAAL,IAAK,KAAE,IAAF,CAAQ,IAAc,CAAT,QAAS,KAAE,CAAF,CAAd;AACtB,UAAG,MAAH;AACE,wBAAe,IAAf;AAEA,4BAAe,CAAC,CAAhB;;AA5CuC;AAxlB7B;AAwCD;;;AAQI,oGH4EO,uEG5EP;AARJ;;;AAET;AAKA;AACA;AARS;;;;;;AA6nBsB;;AAEjC,eAAc,WAAC,WAAD;;AAFmB;AAKM;;AAEvC,UAAG,YAAO,KAAO,WAAC,WAAD,CAAjB,EACW,WAAO,KAAK,CAAQ,IAAR,CADvB;AAGA,eAAU;AACN,kBAAJ,IAAG;;AANoC;AASC;;AAExC;AAEA,UAAG,MAAO,GAAE,CAAZ,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAEA,UAAG,MAAO,KAAE,CAAZ,EACM,OAAC,YAAQ,GAAE,CADjB;AAGA,eAAqB,KAAR,WAAC,WAAD,CAAQ,GAAC,CAAD,EAAa,OAAP,YAAO,GAAC,MAAD,kBAAlC;AAAI;AACO,mBAAO,KAAK,CAAQ,IAAR;;AAEvB,eAAU;AACN,kBAAJ,IAAa;;AAb2B;AAgBX;AAG7B,UAAY,cAAD,QAAX,EACE,cAAS,CAAC,KAAM,OAAQ,uBAAf,CADX;AAH6B;AAOC;;AAG9B,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,eAAU,WAAM,CAAC,MAAD;AACZ,kBAAJ,IAAG;AAEH,iBAAM,CAAC,MAAD,CAAN,GAAyB;AAChB,iBAAO,OAAO,CAAC,OAAO,CAAR;AAEvB,iBAAM,CAAC,OAAQ,uBAAT;;AAZwB;AAeA;;AAE9B,eAAU;;AAFoB;AAjrBnB;AAwBU;;;;;AAEnB;AACA;AAHmB;;;;;AAiqBqB;;AAEtC,iBAAJ,IAAG;AACH,eAAyB,CAAd,UAAK,QAAS,GAAE,CAAF,CAAK,IAAY,CAAP,WAAO,GAAE,UAAK,QAAP,CAAZ;;AAHY;AAME;;AAE5C,eAAU;;AAFkC;AAKF;;AAE1C,eAAU,UAAK,OAAO,CAAC,WAAD;;AAFoB;AAKD;AAE/B;AACV,oBAAU,CAAC;AACX,mBAAS;AAJwD;AAAxB;AAjrBpB;AA+BhB;;AAeU;;AAfV;;;AAEH;AAFG;;;;;AA2pBoB;;AAEzB,UAAY,cAAD,QAAX;AACE,iBAAS,cAAS,QAAQ,CAAC,KAAM,KAAP,CAAc,KAAE,CAAF;AAExC,qBAAS,IAAK,KAAE,KAAF;;AALS;AAQG;AAE5B,UAAG,MAAO,GAAE,YAAZ,EACE,cAAS,MAAT,CADF;AAEU,iBAAD,sBAAC,iBAAQ,MAAT;AAJmB;AAOH;AAEzB,UAAG,MAAO,GAAE,CAAZ,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAG,MAAO,GAAE,kBAAZ;AACE,yBAAY,MAAZ;AACG,gBAAG,MAAO,GAAE,YAAZ,EACH,gBAAW,CAAC,OAAQ,YAAM,GAAE,MAAjB,CADR;AAGL,qBAAW;AAVc;AAaM;;AAIA;AAE/B,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAES,iBAAO,OAAO,CAAC,OAAO,EAAE,MAAV;AACnB,kBAAJ,IAAG;AAEH,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;AARyB;AAWA;;AAE/B,eAAU;;AAFqB;AAKR;;AAEvB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,eAAU,WAAM,CAAC,MAAD;;AALO;AAQC;AAExB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAEA,iBAAM,CAAC,WAAM,CAAC,MAAD,EAAU,sCAAjB;AACN,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;AANkB;AASK;;AAE7B,eAAU,gBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;;AAFO;AAKJ;AAEzB;AAF0B;AAAD;AAKA;AAEzB;AACA,oCAAa,SAAb;AAHyD;AAAhC;AAMA;AAEzB;AAEA;AACA,UAAa;AAAT;;;AACF,kBAAG,CAAC,KAAD;;AADD;AAAS;AAAT;AALmD;AAA9B;AASA;AAEzB,sBAAW,CAAC,CAAD;AAFc;AAKN;;AAEnB,eAAU;AACV,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;;AAJa;AAOM;AAEzB,sBAAW,CAAC,aAAO,OAAR;AAFc;AAKA;AAEzB;AAEA,UAAc;AAAV;;;AACF,kBAAG,CAAC,MAAD;;AADD;AAAU;AAAV;AAJqB;AAQA;AAEzB;AAEA,UAAc;AAAV;;;AACF,kBAAG,CAAC,MAAD;;AADD;AAAU;AAAV;AAJqB;AAQF;AAEvB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,yBAAc,CAAC,OAAQ,MAAT;AALS;AAQK;AAE5B;AAAS;AACT;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,gBAAiB,WAAC,OAAD;AACjB,UAAG,OAAQ,KAAE,CAAb,EACE,MADF;AAGA,UAAG,MAAO,KAAG,uBAAkB,CAAC,OAAD,CAA/B;AAEE,iBAAS,aAA0B,OAAhB,YAAgB,GAAR,OAAF,GAAW,CAAD,kBAAnC;AAAI;AACF,qBAAM,CAAC,CAAC,GAAC,OAAH,CAAN,GAAqB,WAAM,CAAC,CAAD;;AAC7B,iBAAS,SAAa,QAAR,OAAQ,GAAC,CAAD,qBAAtB;AAAI;AACF,qBAAM,CAAC,MAAM,GAAC,CAAR,CAAN,GAA2B;;OAL/B;AAQA,eAAS,SAAS,QAAC,OAAD,yBAAlB;AAAI;AAEF,iBAAQ,OAAO,CAAC,CAAD;AACf,mBAAM,CAAC,CAAC,GAAC,MAAH,CAAN,GAAoB;AACpB,mBAAM,CAAC,OAAQ,oCAAT;;AAxBoB;AA4BA;AAE5B;AACA;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAK;AACL,UAAc;AAAV;;;AAEF,6BAAc,CAAC,MAAO,GAAE,CAAF,CAAK,MAAb;AACV,WAAJ,IAAG;;AAHD;AAAU;AAAV;AATwB;AAgBA;AAE5B;AACA;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAK;AACL,UAAc;AAAV;;;AAEF,6BAAc,CAAC,MAAO,GAAE,CAAF,CAAK,MAAb;AACV,WAAJ,IAAG;;AAHD;AAAU;AAAV;AATwB;AA2BN;;AAEtB,eAAU,YAAO,CAAC,MAAD;AACjB,UAAG,MAAO,IAAG,CAAb,EACE,aAAQ,CAAC,OAAQ,sCAAT,CADV;;AAHsB;AAXI;;AAG1B,UAAG,SAAS,KAAY,uBAAxB;AACE,iBAAU,gBAAW,CAAC,MAAD;AAErB,qBAAU,YAAO,CAAC,MAAD;AACnB,UAAG,MAAO,IAAG,CAAb,EACE,aAAQ,CAAC,OAAQ,sCAAT,CADV;;AAP0B;AAkBH;AAEvB,mBAAQ,CAAC,OAAQ,sCAAT;AAFe;AAKK;AAE5B;AACA;AAEA,UAAG,MAAO,KAAE,CAAZ,EACE,MADF;AAGA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAqB,IAAL,CAAP,MAAO,GAAE,CAAF,CAAX,IAAoC,CAAT,CAAP,MAAO,GAAE,MAAF,CAAS,GAAE,YAAF,CAApD,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,iBAA4B,WAAO,OAAO,CAAC,OAAO,YAAR;AACtC,kBAAJ,IAAa;AAEb,eAAS,QAAS,kBAAC,QAAD,uBAAlB;AAAI;AACF,mBAAM,CAAC,QAAQ,CAAC,CAAD,EAAK,sCAAd;;AAfoB;AAkBA;;AAE5B,eAAU,aAAQ,CAAC,OAAQ,wCAAT;;AAFU;AAKL;;AAEvB;AAEA,eAAU,YAAO,CAAC,MAAD;AACjB,UAAG,MAAO,GAAE,CAAZ;AACE,iBAAe;AAEf,qBAAU,aAAQ,CAAC,OAAQ,wCAAT;;AARG;AAWE;AAEzB;AAEA,cAAS,WAAM,CAAC,OAAD;AACf,iBAAM,CAAC,OAAD,CAAN,GAAmB,WAAM,CAAC,OAAD;AACzB,iBAAM,CAAC,OAAD,CAAN,GAAmB;AANM;AASJ;AAErB;AACA;AACA;AAEA,UAAG,SAAU,KAAE,MAAf,EACE,MADF;AAGA,UAAc,CAAV,SAAU,GAAE,CAAF,CAAK,IAAc,CAAV,SAAU,IAAG,YAAH,CAAjC,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,YAAgB;AAChB,cAAS,GAAI;AACb,UAAG,MAAO,GAAE,SAAZ;AACE,iBAAS,aAAmB,OAAT,SAAS,GAAC,CAAD,kBAA5B;AAAI;AACF,aAAI,GAAJ,GAAU,GAAK,CAAD,CAAC,GAAC,CAAD;;AAEjB,qBAAS,cAAuB,QAAT,SAAS,GAAC,CAAD,qBAAhC;AAAI;AACF,WAAI,GAAJ,GAAU,GAAK,CAAD,CAAC,GAAC,CAAD;;AACnB,SAAI,WAAJ,GAAkB;AApBG;AAuBA;;AAErB,eAAU,YAAK,CAAC,CAAD;;AAFM;AAKD;;AAEpB,eAAU,YAAK,CAAM,YAAD,IAAL;;AAFK;AAKE;AAEtB,mBAAQ,CAAC,CAAD;AACR,sBAAW,CAAC,CAAD;AAHW;AAME;;AAExB,eAAU,YAAO,CAAC,MAAD,CAAS,IAAG,CAAH;;AAFF;AAKD;;AAEvB;AAEA,eAAS,QAAW,OAAN,YAAM,GAAE,CAAF,kBAApB;AAAI;AACF,YAAG,cAAS,CAAC,OAAQ,WAAM,CAAC,CAAD,CAAf,CAAZ,EACM,OAAC,CADP;;AAEF,eAAQ,CAAC;;AAPc;AAUI;;AAE3B;AAEA,eAAe,KAAN,YAAM,GAAE,CAAF,EAAW,aAA1B;AAAI;AACF,YAAG,cAAS,CAAC,OAAQ,WAAM,CAAC,CAAD,CAAf,CAAZ,EACM,OAAC,CADP;;AAEF,eAAQ,CAAC;;AAPkB;AAUH;AAExB;AAAG;AACH;AAEA,UAAK;AACL,UAAK,YAAM,GAAE,CAAF;AACX,aAAM,CAAE,GAAE,CAAV;AAEE,gBAAS,WAAM,CAAC,CAAD;AACf,mBAAM,CAAC,CAAD,CAAN,GAAa,WAAM,CAAC,CAAD;AACnB,mBAAM,CAAC,CAAD,CAAN,GAAa;AACT,SAAJ,IAAG;AACC,SAAJ,IAAG;;AAbmB;AAiBG;AAE3B,sBAAW,CAAC,YAAD;AAFgB;AAKN;AAErB,yEAAc,OAAK,CAAC;;;;WAAQ,eAAW,EAAG,YAAvB;AAFE;AAKA;AAErB,yEAAc,OAAK,CAAC;;;;WAAQ,UAAW,EAAG,YAAvB;AAFE;AAKO;;AAE5B,eAAU,mEAAc,eAAa,CAAC,YAAQ,MAAO,OAAQ,eAAW,EAAG,YAAtC;;AAFT;AAKA;;AAG5B,eAAU,mEAAc,eAAa,CAAC,YAAQ,MAAO,OAAQ,UAAW,EAAG,YAAtC;;AAHT;AAjgCvB;AAoEM;;;;;AAET;AAFS;AAo4CkB;AAMb,0FAAC,OAAQ,MAAT;AAChB,UAAG,kBAAc,IAAY,CAAP,MAAO,KAAE,sCAAF,CAA7B,EACE,MAAE,eAAF,MAAE,CADJ;AAP6B;AAWE;AAErB;AACV,2BAAiB;AAHsC;AAAxB;AAMA;AAEf,sFAAC,SAAD;AAChB,2BAAiB;AAHqE;AAAvD;AAMA;AAEf,sFAAC,WAAD;AAChB,2BAAiB;AAHyE;AAA3D;AA35CpB;AApJA;;;AA0nBmB;;AAE9B,eAAQ;;AAFsB;AA1nBnB;AAWA;;;AAsnBwB;;AAEnC,eAAQ;;AAF2B;AAKN;;AAE7B;AAEA,eAAQ;AACR,oBAAe;AACf;AACE,eAAM,WAAW,WAAjB,EACW,MAAO,KAAK,CAAC,WAAW,aAAC,EAAb;AAFzB;AAIE,mBAAY,eAAZ,WAAY;AAJd;;AAN6B;AA3nBlB;AApEW;uCAAuB,WzCgHtC,2ByChHsC,EAAsB,SH6TzC,oEG7TyC,GAC1D,WAFc,qCAEd,CADa;;AAYJ;;;AA4esB;AAGxC,iBAAI,CAAC,QAAS,UAAc,EAAiB,WAAC,aAAD,CAAzC;AAHoC;AAMA;AAGxC,UAAG,MAAO,IAAG,CAAb,EACE,MADF;AAEA,oBAAS,CAAC,QAAS,OAAoB,CAAP,MAAO,GAAE,MAAF,CAAR,KAAmB,SAAzC;AAL+B;AAQO;;AAI/C,eAAU,mBAAY,CAAC,QAAS,MAAO,YAAa,UAC7B,EAAS,WAAC,OAAD,CADV;;AAJyB;AAQA;;AAI/C,eAAU,iBAAY,CAAC,QAAS,MAAO,cAAe,UAC/B,EAAS,WAAC,OAAD,CADV;;AAJyB;AAlgB7B;AA8BN;;;AA8e2B;AAGvC;AAAG;AACH;AAAG;AAEH,UAAqB,CAAT,CAAP,MAAO,GAAE,KAAF,CAAS,IAAG,CAAH,CAAM,IAAoB,CAAV,WAAC,aAAD,CAAU,KAAE,CAAF,CAA/C,EACE,MADF;AAEA;AACE,YAAK;AACL,YAAK;AACL,YAAK,aAAO,CAAC,KAAM,GAAmB,WAAT,CAAP,MAAO,GAAE,KAAF,CAAS,KAA1B;AACZ;AACE,iBAAM,SAAS,QAAQ,CAAC,aAAO,CAAC,CAAD,EAAK,CAAb,CAAgB,GAAE,CAAzC,EACM,CAAJ,IAAG;AACL,iBAAM,SAAS,QAAQ,CAAC,aAAO,CAAC,CAAD,EAAK,CAAb,CAAgB,GAAE,CAAzC,EACM,CAAJ,IAAG;AACL,cAAG,CAAE,IAAG,CAAR;AAEE,gBAAG,CAAE,KAAG,CAAR;AAEE,kBAAK,aAAO,CAAC,CAAD;AACZ,2BAAO,CAAC,CAAD,CAAP,GAAc,aAAO,CAAC,CAAD;AACrB,2BAAO,CAAC,CAAD,CAAP,GAAc;aAJhB;AAMI,aAAJ,IAAG;AACC,aAAJ,IAAG;WATL;SALF,QAgBQ,EAAF,CAAE,GAAE,CAAF,CAhBR;AAoBA,YAAK,CAAF,CAAE,GAAE,KAAF,CAAQ,GAAS,CAAP,MAAO,GAAE,CAAF,CAAtB;AAEE,cAAG,KAAM,GAAE,CAAX,EACE,cAAS,CAAC,QAAS,MAAO,EAAG,SAApB,CADX;AAEA,kBAAS;;AAIT,cAAG,CAAE,GAAE,MAAP,EACE,cAAS,CAAC,QAAS,EAAG,OAAQ,SAArB,CADX;AAEA,mBAAU;;OAlCd,QAoCY,EAAN,KAAM,IAAG,MAAH,CApCZ;AARuC;AA+CE;;AAIzC;AAAM;AAAM;AAAM;AAKlB,aAAQ;AACR,aAAoB,CAAP,MAAO,GAAE,MAAF,CAAR;AAEZ,YAAK,IAAK,GAAE,IAAF;AACV,aAAM,GAAG,GAAC,IAAD;AACT,aAAO,IAAK,GAAE,IAAd;AAEE,eAAoB,UAAP,CAAJ,IAAI,GAAC,IAAD,CAAO,GAAI,CAAJ;AAGpB,qBAAa,cAAb,GAA+B,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAEhD,YAAI,aAAa,cAAe,GAAE,CAAlC;AACE,iBAAQ,IAAK,GAAE,CAAF;;AAGb,cAAG,aAAa,cAAe,KAAE,CAAjC;AAEE,yBAAa,WAAb,GAA4B;AAC5B,yBAAa,eAAb,GAAgC;AAC5B,mBAAC;WAJP;AAMA,iBAAQ;;;AASZ,eAAS,IAAK,KAAE,IAAF;AACd,UAAG,MAAH;AAEE,qBAAa,cAAb,GAA+B,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAChD,qBAAa,eAAb,GAAgC;AAChC,iBAAS,aAAa,cAAe,KAAE,CAAF;AACrC,YAAG,MAAH;AACE,uBAAa,WAAb,GAA4B;AAE5B,cAAA,aAAa,WAAb,GAA4B,CAAC;;AAI/B,qBAAa,cAAb,GAA+B;AAC/B,qBAAa,WAAb,GAA4B,CAAC;AAC7B,qBAAa,eAAb,GAAgC,CAAC;;;AAvDM;AA2DA;;AAIzC;AAAM;AAAM;AACZ;AAGA,aAAQ;AACR,aAAoB,CAAP,MAAO,GAAE,MAAF,CAAR;AAGZ,aAAO,IAAK,GAAE,IAAd;AAEE,eAAsB,UAAR,CAAL,IAAK,GAAE,IAAF,CAAQ,GAAI,CAAJ;AAMtB,mBAAY,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAE7B,YAAI,QAAS,GAAE,CAAf;AACE,iBAAQ,IAAK,GAAE,CAAF;;AAGb,cAAG,QAAS,KAAE,CAAd;AAEE,4BAAe,IAAf;AACI,mBAAC;WAHP;AAKA,iBAAQ;;;AAQZ,iBAAY,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAC7B,eAAc,CAAL,IAAK,KAAE,IAAF,CAAQ,IAAc,CAAT,QAAS,KAAE,CAAF,CAAd;AACtB,UAAG,MAAH;AACE,wBAAe,IAAf;AAEA,4BAAe,CAAC,CAAhB;;AA5CuC;AAxlB7B;AAwCD;;;AAQI,wGHmOW,2EGnOX;AARJ;;;AAET;AAKA;AACA;AARS;;;;;;AA6nBsB;;AAEjC,eAAc,WAAC,WAAD;;AAFmB;AAKM;;AAEvC,UAAG,YAAO,KAAO,WAAC,WAAD,CAAjB,EACW,WAAO,KAAK,CAAQ,IAAR,CADvB;AAGA,eAAU;AACN,kBAAJ,IAAG;;AANoC;AASC;;AAExC;AAEA,UAAG,MAAO,GAAE,CAAZ,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAEA,UAAG,MAAO,KAAE,CAAZ,EACM,OAAC,YAAQ,GAAE,CADjB;AAGA,eAAqB,KAAR,WAAC,WAAD,CAAQ,GAAC,CAAD,EAAa,OAAP,YAAO,GAAC,MAAD,kBAAlC;AAAI;AACO,mBAAO,KAAK,CAAQ,IAAR;;AAEvB,eAAU;AACN,kBAAJ,IAAa;;AAb2B;AAgBX;AAG7B,UAAY,cAAD,QAAX,EACE,cAAS,CAAC,KAAM,OAAQ,uBAAf,CADX;AAH6B;AAOC;;AAG9B,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,eAAU,WAAM,CAAC,MAAD;AACZ,kBAAJ,IAAG;AAEH,iBAAM,CAAC,MAAD,CAAN,GAAyB;AAChB,iBAAO,OAAO,CAAC,OAAO,CAAR;AAEvB,iBAAM,CAAC,OAAQ,uBAAT;;AAZwB;AAeA;;AAE9B,eAAU;;AAFoB;AAjrBnB;AAwBU;;;;;AAEnB;AACA;AAHmB;;;;;AAiqBqB;;AAEtC,iBAAJ,IAAG;AACH,eAAyB,CAAd,UAAK,QAAS,GAAE,CAAF,CAAK,IAAY,CAAP,WAAO,GAAE,UAAK,QAAP,CAAZ;;AAHY;AAME;;AAE5C,eAAU;;AAFkC;AAKF;;AAE1C,eAAU,UAAK,OAAO,CAAC,WAAD;;AAFoB;AAKD;AAE/B;AACV,oBAAU,CAAC;AACX,mBAAS;AAJwD;AAAxB;AAjrBpB;AA+BhB;;AAeU;;AAfV;;;AAEH;AAFG;;;;;AA2pBoB;;AAEzB,UAAY,cAAD,QAAX;AACE,iBAAS,cAAS,QAAQ,CAAC,KAAM,KAAP,CAAc,KAAE,CAAF;AAExC,qBAAS,IAAK,KAAE,KAAF;;AALS;AAQG;AAE5B,UAAG,MAAO,GAAE,YAAZ,EACE,cAAS,MAAT,CADF;AAEU,iBAAD,sBAAC,iBAAQ,MAAT;AAJmB;AAOH;AAEzB,UAAG,MAAO,GAAE,CAAZ,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAG,MAAO,GAAE,kBAAZ;AACE,yBAAY,MAAZ;AACG,gBAAG,MAAO,GAAE,YAAZ,EACH,gBAAW,CAAC,OAAQ,YAAM,GAAE,MAAjB,CADR;AAGL,qBAAW;AAVc;AAaM;;AAIA;AAE/B,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAES,iBAAO,OAAO,CAAC,OAAO,EAAE,MAAV;AACnB,kBAAJ,IAAG;AAEH,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;AARyB;AAWA;;AAE/B,eAAU;;AAFqB;AAKR;;AAEvB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,eAAU,WAAM,CAAC,MAAD;;AALO;AAQC;AAExB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAEA,iBAAM,CAAC,WAAM,CAAC,MAAD,EAAU,sCAAjB;AACN,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;AANkB;AASK;;AAE7B,eAAU,gBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;;AAFO;AAKJ;AAEzB;AAF0B;AAAD;AAKA;AAEzB;AACA,oCAAa,SAAb;AAHyD;AAAhC;AAMA;AAEzB;AAEA;AACA,UAAa;AAAT;;;AACF,kBAAG,CAAC,KAAD;;AADD;AAAS;AAAT;AALmD;AAA9B;AASA;AAEzB,sBAAW,CAAC,CAAD;AAFc;AAKN;;AAEnB,eAAU;AACV,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;;AAJa;AAOM;AAEzB,sBAAW,CAAC,aAAO,OAAR;AAFc;AAKA;AAEzB;AAEA,UAAc;AAAV;;;AACF,kBAAG,CAAC,MAAD;;AADD;AAAU;AAAV;AAJqB;AAQA;AAEzB;AAEA,UAAc;AAAV;;;AACF,kBAAG,CAAC,MAAD;;AADD;AAAU;AAAV;AAJqB;AAQF;AAEvB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,yBAAc,CAAC,OAAQ,MAAT;AALS;AAQK;AAE5B;AAAS;AACT;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,gBAAiB,WAAC,OAAD;AACjB,UAAG,OAAQ,KAAE,CAAb,EACE,MADF;AAGA,UAAG,MAAO,KAAG,uBAAkB,CAAC,OAAD,CAA/B;AAEE,iBAAS,aAA0B,OAAhB,YAAgB,GAAR,OAAF,GAAW,CAAD,kBAAnC;AAAI;AACF,qBAAM,CAAC,CAAC,GAAC,OAAH,CAAN,GAAqB,WAAM,CAAC,CAAD;;AAC7B,iBAAS,SAAa,QAAR,OAAQ,GAAC,CAAD,qBAAtB;AAAI;AACF,qBAAM,CAAC,MAAM,GAAC,CAAR,CAAN,GAA2B;;OAL/B;AAQA,eAAS,SAAS,QAAC,OAAD,yBAAlB;AAAI;AAEF,iBAAQ,OAAO,CAAC,CAAD;AACf,mBAAM,CAAC,CAAC,GAAC,MAAH,CAAN,GAAoB;AACpB,mBAAM,CAAC,OAAQ,oCAAT;;AAxBoB;AA4BA;AAE5B;AACA;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAK;AACL,UAAc;AAAV;;;AAEF,6BAAc,CAAC,MAAO,GAAE,CAAF,CAAK,MAAb;AACV,WAAJ,IAAG;;AAHD;AAAU;AAAV;AATwB;AAgBA;AAE5B;AACA;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAK;AACL,UAAc;AAAV;;;AAEF,6BAAc,CAAC,MAAO,GAAE,CAAF,CAAK,MAAb;AACV,WAAJ,IAAG;;AAHD;AAAU;AAAV;AATwB;AA2BN;;AAEtB,eAAU,YAAO,CAAC,MAAD;AACjB,UAAG,MAAO,IAAG,CAAb,EACE,aAAQ,CAAC,OAAQ,sCAAT,CADV;;AAHsB;AAXI;;AAG1B,UAAG,SAAS,KAAY,uBAAxB;AACE,iBAAU,gBAAW,CAAC,MAAD;AAErB,qBAAU,YAAO,CAAC,MAAD;AACnB,UAAG,MAAO,IAAG,CAAb,EACE,aAAQ,CAAC,OAAQ,sCAAT,CADV;;AAP0B;AAkBH;AAEvB,mBAAQ,CAAC,OAAQ,sCAAT;AAFe;AAKK;AAE5B;AACA;AAEA,UAAG,MAAO,KAAE,CAAZ,EACE,MADF;AAGA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAqB,IAAL,CAAP,MAAO,GAAE,CAAF,CAAX,IAAoC,CAAT,CAAP,MAAO,GAAE,MAAF,CAAS,GAAE,YAAF,CAApD,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,iBAA4B,WAAO,OAAO,CAAC,OAAO,YAAR;AACtC,kBAAJ,IAAa;AAEb,eAAS,QAAS,kBAAC,QAAD,uBAAlB;AAAI;AACF,mBAAM,CAAC,QAAQ,CAAC,CAAD,EAAK,sCAAd;;AAfoB;AAkBA;;AAE5B,eAAU,aAAQ,CAAC,OAAQ,wCAAT;;AAFU;AAKL;;AAEvB;AAEA,eAAU,YAAO,CAAC,MAAD;AACjB,UAAG,MAAO,GAAE,CAAZ;AACE,iBAAe;AAEf,qBAAU,aAAQ,CAAC,OAAQ,wCAAT;;AARG;AAWE;AAEzB;AAEA,cAAS,WAAM,CAAC,OAAD;AACf,iBAAM,CAAC,OAAD,CAAN,GAAmB,WAAM,CAAC,OAAD;AACzB,iBAAM,CAAC,OAAD,CAAN,GAAmB;AANM;AASJ;AAErB;AACA;AACA;AAEA,UAAG,SAAU,KAAE,MAAf,EACE,MADF;AAGA,UAAc,CAAV,SAAU,GAAE,CAAF,CAAK,IAAc,CAAV,SAAU,IAAG,YAAH,CAAjC,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,YAAgB;AAChB,cAAS,GAAI;AACb,UAAG,MAAO,GAAE,SAAZ;AACE,iBAAS,aAAmB,OAAT,SAAS,GAAC,CAAD,kBAA5B;AAAI;AACF,aAAI,GAAJ,GAAU,GAAK,CAAD,CAAC,GAAC,CAAD;;AAEjB,qBAAS,cAAuB,QAAT,SAAS,GAAC,CAAD,qBAAhC;AAAI;AACF,WAAI,GAAJ,GAAU,GAAK,CAAD,CAAC,GAAC,CAAD;;AACnB,SAAI,WAAJ,GAAkB;AApBG;AAuBA;;AAErB,eAAU,YAAK,CAAC,CAAD;;AAFM;AAKD;;AAEpB,eAAU,YAAK,CAAM,YAAD,IAAL;;AAFK;AAKE;AAEtB,mBAAQ,CAAC,CAAD;AACR,sBAAW,CAAC,CAAD;AAHW;AAME;;AAExB,eAAU,YAAO,CAAC,MAAD,CAAS,IAAG,CAAH;;AAFF;AAKD;;AAEvB;AAEA,eAAS,QAAW,OAAN,YAAM,GAAE,CAAF,kBAApB;AAAI;AACF,YAAG,cAAS,CAAC,OAAQ,WAAM,CAAC,CAAD,CAAf,CAAZ,EACM,OAAC,CADP;;AAEF,eAAQ,CAAC;;AAPc;AAUI;;AAE3B;AAEA,eAAe,KAAN,YAAM,GAAE,CAAF,EAAW,aAA1B;AAAI;AACF,YAAG,cAAS,CAAC,OAAQ,WAAM,CAAC,CAAD,CAAf,CAAZ,EACM,OAAC,CADP;;AAEF,eAAQ,CAAC;;AAPkB;AAUH;AAExB;AAAG;AACH;AAEA,UAAK;AACL,UAAK,YAAM,GAAE,CAAF;AACX,aAAM,CAAE,GAAE,CAAV;AAEE,gBAAS,WAAM,CAAC,CAAD;AACf,mBAAM,CAAC,CAAD,CAAN,GAAa,WAAM,CAAC,CAAD;AACnB,mBAAM,CAAC,CAAD,CAAN,GAAa;AACT,SAAJ,IAAG;AACC,SAAJ,IAAG;;AAbmB;AAiBG;AAE3B,sBAAW,CAAC,YAAD;AAFgB;AAKN;AAErB,6EAAc,OAAK,CAAC;;;;WAAQ,eAAW,EAAG,YAAvB;AAFE;AAKA;AAErB,6EAAc,OAAK,CAAC;;;;WAAQ,UAAW,EAAG,YAAvB;AAFE;AAKO;;AAE5B,eAAU,uEAAc,eAAa,CAAC,YAAQ,MAAO,OAAQ,eAAW,EAAG,YAAtC;;AAFT;AAKA;;AAG5B,eAAU,uEAAc,eAAa,CAAC,YAAQ,MAAO,OAAQ,UAAW,EAAG,YAAtC;;AAHT;AAjgCvB;AAoEM;;;;;AAET;AAFS;AAo4CkB;AAMb,8FAAC,OAAQ,MAAT;AAChB,UAAG,kBAAc,IAAY,CAAP,MAAO,KAAE,sCAAF,CAA7B,EACE,MAAE,eAAF,MAAE,CADJ;AAP6B;AAWE;AAErB;AACV,2BAAiB;AAHsC;AAAxB;AAMA;AAEf,0FAAC,SAAD;AAChB,2BAAiB;AAHqE;AAAvD;AAMA;AAEf,0FAAC,WAAD;AAChB,2BAAiB;AAHyE;AAA3D;AA35CpB;AApJA;;;AA0nBmB;;AAE9B,eAAQ;;AAFsB;AA1nBnB;AAWA;;;AAsnBwB;;AAEnC,eAAQ;;AAF2B;AAKN;;AAE7B;AAEA,eAAQ;AACR,oBAAe;AACf;AACE,eAAM,WAAW,WAAjB,EACW,MAAO,KAAK,CAAC,WAAW,aAAC,EAAb;AAFzB;AAIE,mBAAY,eAAZ,WAAY;AAJd;;AAN6B;AA3nBlB;AApEW;uCAAuB,WzCgHtC,2ByChHsC,EAAsB,SH6U7C,gEG7U6C,GAC1D,WAFc,qCAEd,CADa;;AAYJ;;;AA4esB;AAGxC,iBAAI,CAAC,QAAS,UAAc,EAAiB,WAAC,aAAD,CAAzC;AAHoC;AAMA;AAGxC,UAAG,MAAO,IAAG,CAAb,EACE,MADF;AAEA,oBAAS,CAAC,QAAS,OAAoB,CAAP,MAAO,GAAE,MAAF,CAAR,KAAmB,SAAzC;AAL+B;AAQO;;AAI/C,eAAU,mBAAY,CAAC,QAAS,MAAO,YAAa,UAC7B,EAAS,WAAC,OAAD,CADV;;AAJyB;AAQA;;AAI/C,eAAU,iBAAY,CAAC,QAAS,MAAO,cAAe,UAC/B,EAAS,WAAC,OAAD,CADV;;AAJyB;AAlgB7B;AA8BN;;;AA8e2B;AAGvC;AAAG;AACH;AAAG;AAEH,UAAqB,CAAT,CAAP,MAAO,GAAE,KAAF,CAAS,IAAG,CAAH,CAAM,IAAoB,CAAV,WAAC,aAAD,CAAU,KAAE,CAAF,CAA/C,EACE,MADF;AAEA;AACE,YAAK;AACL,YAAK;AACL,YAAK,aAAO,CAAC,KAAM,GAAmB,WAAT,CAAP,MAAO,GAAE,KAAF,CAAS,KAA1B;AACZ;AACE,iBAAM,SAAS,QAAQ,CAAC,aAAO,CAAC,CAAD,EAAK,CAAb,CAAgB,GAAE,CAAzC,EACM,CAAJ,IAAG;AACL,iBAAM,SAAS,QAAQ,CAAC,aAAO,CAAC,CAAD,EAAK,CAAb,CAAgB,GAAE,CAAzC,EACM,CAAJ,IAAG;AACL,cAAG,CAAE,IAAG,CAAR;AAEE,gBAAG,CAAE,KAAG,CAAR;AAEE,kBAAK,aAAO,CAAC,CAAD;AACZ,2BAAO,CAAC,CAAD,CAAP,GAAc,aAAO,CAAC,CAAD;AACrB,2BAAO,CAAC,CAAD,CAAP,GAAc;aAJhB;AAMI,aAAJ,IAAG;AACC,aAAJ,IAAG;WATL;SALF,QAgBQ,EAAF,CAAE,GAAE,CAAF,CAhBR;AAoBA,YAAK,CAAF,CAAE,GAAE,KAAF,CAAQ,GAAS,CAAP,MAAO,GAAE,CAAF,CAAtB;AAEE,cAAG,KAAM,GAAE,CAAX,EACE,cAAS,CAAC,QAAS,MAAO,EAAG,SAApB,CADX;AAEA,kBAAS;;AAIT,cAAG,CAAE,GAAE,MAAP,EACE,cAAS,CAAC,QAAS,EAAG,OAAQ,SAArB,CADX;AAEA,mBAAU;;OAlCd,QAoCY,EAAN,KAAM,IAAG,MAAH,CApCZ;AARuC;AA+CE;;AAIzC;AAAM;AAAM;AAAM;AAKlB,aAAQ;AACR,aAAoB,CAAP,MAAO,GAAE,MAAF,CAAR;AAEZ,YAAK,IAAK,GAAE,IAAF;AACV,aAAM,GAAG,GAAC,IAAD;AACT,aAAO,IAAK,GAAE,IAAd;AAEE,eAAoB,UAAP,CAAJ,IAAI,GAAC,IAAD,CAAO,GAAI,CAAJ;AAGpB,qBAAa,cAAb,GAA+B,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAEhD,YAAI,aAAa,cAAe,GAAE,CAAlC;AACE,iBAAQ,IAAK,GAAE,CAAF;;AAGb,cAAG,aAAa,cAAe,KAAE,CAAjC;AAEE,yBAAa,WAAb,GAA4B;AAC5B,yBAAa,eAAb,GAAgC;AAC5B,mBAAC;WAJP;AAMA,iBAAQ;;;AASZ,eAAS,IAAK,KAAE,IAAF;AACd,UAAG,MAAH;AAEE,qBAAa,cAAb,GAA+B,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAChD,qBAAa,eAAb,GAAgC;AAChC,iBAAS,aAAa,cAAe,KAAE,CAAF;AACrC,YAAG,MAAH;AACE,uBAAa,WAAb,GAA4B;AAE5B,cAAA,aAAa,WAAb,GAA4B,CAAC;;AAI/B,qBAAa,cAAb,GAA+B;AAC/B,qBAAa,WAAb,GAA4B,CAAC;AAC7B,qBAAa,eAAb,GAAgC,CAAC;;;AAvDM;AA2DA;;AAIzC;AAAM;AAAM;AACZ;AAGA,aAAQ;AACR,aAAoB,CAAP,MAAO,GAAE,MAAF,CAAR;AAGZ,aAAO,IAAK,GAAE,IAAd;AAEE,eAAsB,UAAR,CAAL,IAAK,GAAE,IAAF,CAAQ,GAAI,CAAJ;AAMtB,mBAAY,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAE7B,YAAI,QAAS,GAAE,CAAf;AACE,iBAAQ,IAAK,GAAE,CAAF;;AAGb,cAAG,QAAS,KAAE,CAAd;AAEE,4BAAe,IAAf;AACI,mBAAC;WAHP;AAKA,iBAAQ;;;AAQZ,iBAAY,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAC7B,eAAc,CAAL,IAAK,KAAE,IAAF,CAAQ,IAAc,CAAT,QAAS,KAAE,CAAF,CAAd;AACtB,UAAG,MAAH;AACE,wBAAe,IAAf;AAEA,4BAAe,CAAC,CAAhB;;AA5CuC;AAxlB7B;AAwCD;;;AAQI,oGHmPO,uEGnPP;AARJ;;;AAET;AAKA;AACA;AARS;;;;;;AA6nBsB;;AAEjC,eAAc,WAAC,WAAD;;AAFmB;AAKM;;AAEvC,UAAG,YAAO,KAAO,WAAC,WAAD,CAAjB,EACW,WAAO,KAAK,CAAQ,IAAR,CADvB;AAGA,eAAU;AACN,kBAAJ,IAAG;;AANoC;AASC;;AAExC;AAEA,UAAG,MAAO,GAAE,CAAZ,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAEA,UAAG,MAAO,KAAE,CAAZ,EACM,OAAC,YAAQ,GAAE,CADjB;AAGA,eAAqB,KAAR,WAAC,WAAD,CAAQ,GAAC,CAAD,EAAa,OAAP,YAAO,GAAC,MAAD,kBAAlC;AAAI;AACO,mBAAO,KAAK,CAAQ,IAAR;;AAEvB,eAAU;AACN,kBAAJ,IAAa;;AAb2B;AAgBX;AAG7B,UAAY,cAAD,QAAX,EACE,cAAS,CAAC,KAAM,OAAQ,uBAAf,CADX;AAH6B;AAOC;;AAG9B,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,eAAU,WAAM,CAAC,MAAD;AACZ,kBAAJ,IAAG;AAEH,iBAAM,CAAC,MAAD,CAAN,GAAyB;AAChB,iBAAO,OAAO,CAAC,OAAO,CAAR;AAEvB,iBAAM,CAAC,OAAQ,uBAAT;;AAZwB;AAeA;;AAE9B,eAAU;;AAFoB;AAjrBnB;AAwBU;;;;;AAEnB;AACA;AAHmB;;;;;AAiqBqB;;AAEtC,iBAAJ,IAAG;AACH,eAAyB,CAAd,UAAK,QAAS,GAAE,CAAF,CAAK,IAAY,CAAP,WAAO,GAAE,UAAK,QAAP,CAAZ;;AAHY;AAME;;AAE5C,eAAU;;AAFkC;AAKF;;AAE1C,eAAU,UAAK,OAAO,CAAC,WAAD;;AAFoB;AAKD;AAE/B;AACV,oBAAU,CAAC;AACX,mBAAS;AAJwD;AAAxB;AAjrBpB;AA+BhB;;AAeU;;AAfV;;;AAEH;AAFG;;;;;AA2pBoB;;AAEzB,UAAY,cAAD,QAAX;AACE,iBAAS,cAAS,QAAQ,CAAC,KAAM,KAAP,CAAc,KAAE,CAAF;AAExC,qBAAS,IAAK,KAAE,KAAF;;AALS;AAQG;AAE5B,UAAG,MAAO,GAAE,YAAZ,EACE,cAAS,MAAT,CADF;AAEU,iBAAD,sBAAC,iBAAQ,MAAT;AAJmB;AAOH;AAEzB,UAAG,MAAO,GAAE,CAAZ,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAG,MAAO,GAAE,kBAAZ;AACE,yBAAY,MAAZ;AACG,gBAAG,MAAO,GAAE,YAAZ,EACH,gBAAW,CAAC,OAAQ,YAAM,GAAE,MAAjB,CADR;AAGL,qBAAW;AAVc;AAaM;;AAIA;AAE/B,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAES,iBAAO,OAAO,CAAC,OAAO,EAAE,MAAV;AACnB,kBAAJ,IAAG;AAEH,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;AARyB;AAWA;;AAE/B,eAAU;;AAFqB;AAKR;;AAEvB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,eAAU,WAAM,CAAC,MAAD;;AALO;AAQC;AAExB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAEA,iBAAM,CAAC,WAAM,CAAC,MAAD,EAAU,sCAAjB;AACN,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;AANkB;AASK;;AAE7B,eAAU,gBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;;AAFO;AAKJ;AAEzB;AAF0B;AAAD;AAKA;AAEzB;AACA,oCAAa,SAAb;AAHyD;AAAhC;AAMA;AAEzB;AAEA;AACA,UAAa;AAAT;;;AACF,kBAAG,CAAC,KAAD;;AADD;AAAS;AAAT;AALmD;AAA9B;AASA;AAEzB,sBAAW,CAAC,CAAD;AAFc;AAKN;;AAEnB,eAAU;AACV,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;;AAJa;AAOM;AAEzB,sBAAW,CAAC,aAAO,OAAR;AAFc;AAKA;AAEzB;AAEA,UAAc;AAAV;;;AACF,kBAAG,CAAC,MAAD;;AADD;AAAU;AAAV;AAJqB;AAQA;AAEzB;AAEA,UAAc;AAAV;;;AACF,kBAAG,CAAC,MAAD;;AADD;AAAU;AAAV;AAJqB;AAQF;AAEvB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,yBAAc,CAAC,OAAQ,MAAT;AALS;AAQK;AAE5B;AAAS;AACT;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,gBAAiB,WAAC,OAAD;AACjB,UAAG,OAAQ,KAAE,CAAb,EACE,MADF;AAGA,UAAG,MAAO,KAAG,uBAAkB,CAAC,OAAD,CAA/B;AAEE,iBAAS,aAA0B,OAAhB,YAAgB,GAAR,OAAF,GAAW,CAAD,kBAAnC;AAAI;AACF,qBAAM,CAAC,CAAC,GAAC,OAAH,CAAN,GAAqB,WAAM,CAAC,CAAD;;AAC7B,iBAAS,SAAa,QAAR,OAAQ,GAAC,CAAD,qBAAtB;AAAI;AACF,qBAAM,CAAC,MAAM,GAAC,CAAR,CAAN,GAA2B;;OAL/B;AAQA,eAAS,SAAS,QAAC,OAAD,yBAAlB;AAAI;AAEF,iBAAQ,OAAO,CAAC,CAAD;AACf,mBAAM,CAAC,CAAC,GAAC,MAAH,CAAN,GAAoB;AACpB,mBAAM,CAAC,OAAQ,oCAAT;;AAxBoB;AA4BA;AAE5B;AACA;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAK;AACL,UAAc;AAAV;;;AAEF,6BAAc,CAAC,MAAO,GAAE,CAAF,CAAK,MAAb;AACV,WAAJ,IAAG;;AAHD;AAAU;AAAV;AATwB;AAgBA;AAE5B;AACA;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAK;AACL,UAAc;AAAV;;;AAEF,6BAAc,CAAC,MAAO,GAAE,CAAF,CAAK,MAAb;AACV,WAAJ,IAAG;;AAHD;AAAU;AAAV;AATwB;AA2BN;;AAEtB,eAAU,YAAO,CAAC,MAAD;AACjB,UAAG,MAAO,IAAG,CAAb,EACE,aAAQ,CAAC,OAAQ,sCAAT,CADV;;AAHsB;AAXI;;AAG1B,UAAG,SAAS,KAAY,uBAAxB;AACE,iBAAU,gBAAW,CAAC,MAAD;AAErB,qBAAU,YAAO,CAAC,MAAD;AACnB,UAAG,MAAO,IAAG,CAAb,EACE,aAAQ,CAAC,OAAQ,sCAAT,CADV;;AAP0B;AAkBH;AAEvB,mBAAQ,CAAC,OAAQ,sCAAT;AAFe;AAKK;AAE5B;AACA;AAEA,UAAG,MAAO,KAAE,CAAZ,EACE,MADF;AAGA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAqB,IAAL,CAAP,MAAO,GAAE,CAAF,CAAX,IAAoC,CAAT,CAAP,MAAO,GAAE,MAAF,CAAS,GAAE,YAAF,CAApD,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,iBAA4B,WAAO,OAAO,CAAC,OAAO,YAAR;AACtC,kBAAJ,IAAa;AAEb,eAAS,QAAS,kBAAC,QAAD,uBAAlB;AAAI;AACF,mBAAM,CAAC,QAAQ,CAAC,CAAD,EAAK,sCAAd;;AAfoB;AAkBA;;AAE5B,eAAU,aAAQ,CAAC,OAAQ,wCAAT;;AAFU;AAKL;;AAEvB;AAEA,eAAU,YAAO,CAAC,MAAD;AACjB,UAAG,MAAO,GAAE,CAAZ;AACE,iBAAe;AAEf,qBAAU,aAAQ,CAAC,OAAQ,wCAAT;;AARG;AAWE;AAEzB;AAEA,cAAS,WAAM,CAAC,OAAD;AACf,iBAAM,CAAC,OAAD,CAAN,GAAmB,WAAM,CAAC,OAAD;AACzB,iBAAM,CAAC,OAAD,CAAN,GAAmB;AANM;AASJ;AAErB;AACA;AACA;AAEA,UAAG,SAAU,KAAE,MAAf,EACE,MADF;AAGA,UAAc,CAAV,SAAU,GAAE,CAAF,CAAK,IAAc,CAAV,SAAU,IAAG,YAAH,CAAjC,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,YAAgB;AAChB,cAAS,GAAI;AACb,UAAG,MAAO,GAAE,SAAZ;AACE,iBAAS,aAAmB,OAAT,SAAS,GAAC,CAAD,kBAA5B;AAAI;AACF,aAAI,GAAJ,GAAU,GAAK,CAAD,CAAC,GAAC,CAAD;;AAEjB,qBAAS,cAAuB,QAAT,SAAS,GAAC,CAAD,qBAAhC;AAAI;AACF,WAAI,GAAJ,GAAU,GAAK,CAAD,CAAC,GAAC,CAAD;;AACnB,SAAI,WAAJ,GAAkB;AApBG;AAuBA;;AAErB,eAAU,YAAK,CAAC,CAAD;;AAFM;AAKD;;AAEpB,eAAU,YAAK,CAAM,YAAD,IAAL;;AAFK;AAKE;AAEtB,mBAAQ,CAAC,CAAD;AACR,sBAAW,CAAC,CAAD;AAHW;AAME;;AAExB,eAAU,YAAO,CAAC,MAAD,CAAS,IAAG,CAAH;;AAFF;AAKD;;AAEvB;AAEA,eAAS,QAAW,OAAN,YAAM,GAAE,CAAF,kBAApB;AAAI;AACF,YAAG,cAAS,CAAC,OAAQ,WAAM,CAAC,CAAD,CAAf,CAAZ,EACM,OAAC,CADP;;AAEF,eAAQ,CAAC;;AAPc;AAUI;;AAE3B;AAEA,eAAe,KAAN,YAAM,GAAE,CAAF,EAAW,aAA1B;AAAI;AACF,YAAG,cAAS,CAAC,OAAQ,WAAM,CAAC,CAAD,CAAf,CAAZ,EACM,OAAC,CADP;;AAEF,eAAQ,CAAC;;AAPkB;AAUH;AAExB;AAAG;AACH;AAEA,UAAK;AACL,UAAK,YAAM,GAAE,CAAF;AACX,aAAM,CAAE,GAAE,CAAV;AAEE,gBAAS,WAAM,CAAC,CAAD;AACf,mBAAM,CAAC,CAAD,CAAN,GAAa,WAAM,CAAC,CAAD;AACnB,mBAAM,CAAC,CAAD,CAAN,GAAa;AACT,SAAJ,IAAG;AACC,SAAJ,IAAG;;AAbmB;AAiBG;AAE3B,sBAAW,CAAC,YAAD;AAFgB;AAKN;AAErB,yEAAc,OAAK,CAAC;;;;WAAQ,eAAW,EAAG,YAAvB;AAFE;AAKA;AAErB,yEAAc,OAAK,CAAC;;;;WAAQ,UAAW,EAAG,YAAvB;AAFE;AAKO;;AAE5B,eAAU,mEAAc,eAAa,CAAC,YAAQ,MAAO,OAAQ,eAAW,EAAG,YAAtC;;AAFT;AAKA;;AAG5B,eAAU,mEAAc,eAAa,CAAC,YAAQ,MAAO,OAAQ,UAAW,EAAG,YAAtC;;AAHT;AAjgCvB;AAoEM;;;;;AAET;AAFS;AAo4CkB;AAMb,0FAAC,OAAQ,MAAT;AAChB,UAAG,kBAAc,IAAY,CAAP,MAAO,KAAE,sCAAF,CAA7B,EACE,MAAE,eAAF,MAAE,CADJ;AAP6B;AAWE;AAErB;AACV,2BAAiB;AAHsC;AAAxB;AAMA;AAEf,sFAAC,SAAD;AAChB,2BAAiB;AAHqE;AAAvD;AAMA;AAEf,sFAAC,WAAD;AAChB,2BAAiB;AAHyE;AAA3D;AA35CpB;AAmIN;;;AACH;AACA;AADA;AACA,0BCLO,2CDKP;AACkB,+BAAW,sBAAoB,UCN1C,4CDM0C,EAA/B;AAHf;;aACH,oBACA;AAFG;;AACH;AACA;AAFG;;AAk0B8B;AAEnC,iBAAK;AACL,mBAAO;AAHqE;AAAzC;AAl0B9B;AAvRM;AA0nBmB;;AAE9B,eAAQ;;AAFsB;AA1nBnB;AAWA;AAsnBwB;;AAEnC,eAAQ;;AAF2B;AAKN;;AAE7B;AAEA,eAAQ;AACR,oBAAe;AACf;AACE,eAAM,WAAW,WAAjB,EACW,MAAO,KAAK,CAAY,+DAAX,WAAW,aAAC,EAAD,CAAZ;AAFzB;AAIE,mBAAY,eAAZ,WAAY;AAJd;;AAN6B;AA3nBlB;AAXA;;;AA0nBmB;;AAE9B,eAAQ;;AAFsB;AA1nBnB;AAWA;;;AAsnBwB;;AAEnC,eAAQ;;AAF2B;AAKN;;AAE7B;AAEA,eAAQ;AACR,oBAAe;AACf;AACE,eAAM,WAAW,WAAjB,EACW,MAAO,KAAK,CAAC,WAAW,aAAC,EAAb;AAFzB;AAIE,mBAAY,eAAZ,WAAY;AAJd;;AAN6B;AA3nBlB;AApEW;uCAAuB,WzCgHtC,2ByChHsC,EAAsB,SC6U1D,4CD7U0D,GAC1D,WAFc,qCAEd,CADa;;AA2VX;;AA0CQ;;;AAEb;AACA;AAHa;;;;;;AAuiCwC;;AAE3D,yBAAQ,iBAAY,EAApB;;AAF2D;AAKE;;AAG7D;AAGA,cAAoB,SAAI;AACxB,yBAAe,8DAAf;AACA,gBAAM,OAAO,CAAK,KAAC,CAAC,CAAC,CAAD,CAAF,CAAa,cAAC,CAAC,CAAC,CAAD,CAAF,CAAlB;;AARgD;AAWF;;AAE3D,sBAAM,UAAK;AACX,mBAAQ,CAAI,SAAI;;AAH2C;AAMD;AAE1D,uBAAO,WAAW,KAAK;AAFgE;AAA7B;AAKD;;AAEzD,mBAAQ;;AAFiD;AAlkCtC;AAgBD;;;AAEZ;AACA;AAHY;;;;;;AAyjCwC;;AAE1D,mBAAQ,iBAAY;;AAFsC;AAKE;;AAE5D,mBAAY,KAAC,SAAI,MAAL;;AAFgD;AAKF;;AAE1D,sBAAM,UAAK;AACX,mBAAQ,CAAI,SAAI;;AAH0C;AAWD;AAEzD,uBAAO;AAF8E;AAA5B;AALA;AAEzD,uBAAM,CAAC,WAAW,KAAK,OAAjB;AAFgF;AAA7B;AAUD;;AAExD,mBAAQ;;AAFgD;AAnlCtC;AAiBE;;;AAEd;AACA;AAHc;;;;;;AAykCwC;;AAE5D,mBAAQ,iBAAY;;AAFwC;AAKE;;AAE9D,mBAAc,cAAC,SAAI,MAAL;;AAFgD;AAKF;;AAE5D,sBAAM,UAAK;AACX,mBAAQ,CAAI,SAAI;;AAH4C;AAWD;AAE3D,uBAAO;AAF+E;AAA3B;AALA;AAE3D,uBAAM,CAAC,WAAW,KAAK,SAAjB;AAFkF;AAA7B;AAUD;;AAE1D,mBAAQ;;AAFkD;AAnmCtC;AAiBA;;;AAEd;AAFc;;;;;AAylCsC;;AAE1D,mBAAQ,SAAI;;AAF8C;AAKO;;AAEjE,mBAAQ,8EAAgB,QAAC,YAAM,CAAC,SAAI,SAAL,CAAN;;AAFwC;AAKN;AAE3D,sBAAM,WAAW;AAFuE;AAA7B;AAKI;;AAE/D,mBAAyB;;AAFsC;AAKN;;AAGzD;AACA;AAGU,gBAAD,sBAAC,YAAO,SAAI,KAAZ;AACT,cAAS;AAAL;;;AAEF,oBAAM,CAAC,CAAD,CAAN,GAAW;AACP,eAAJ,IAAG;;AAHD;AAAK;AAAL;;AARqD;AA7mCrC;AAeF;;;AAEZ;AAFY;;;;;AA+mCsC;;AAExD,mBAAQ,SAAI;;AAF4C;AAKO;;AAE/D,mBAAQ;;AAFuD;AAKN;AAEzD,sBAAM,WAAW;AAFqE;AAA7B;AAKI;;AAE7D,mBAAQ,4EAAc,QAAC,YAAM,CAAC,SAAI,OAAL,CAAN;;AAFsC;AAKN;;AAEvD,mBAAkB;;AAFqC;AAnoCrC;AA3GP;;;AAET;AACA;AAsHA;AACA;AACA;AACA;AA5HS;;;;;;;;;;AAm0BqC;;AAGhD;AACA;AAGA,UAAG,CAAY,CAAC,cAAD,SAAf,EACM,OAAC,GADP;AAEA,WAAI,SAAI;AACR,UAAG,EAAE;AACL,aAAM,CAAI,CAAC,KAAX;AAEE,iBAAY,KAAC,CAAC,MAAF;AACZ,YAAG,cAAS,QAAQ,CAAC,OAAO,GAAR,CAAY,KAAC,CAAjC,EACE,aADF;AAEA,YAAG,EAAE;;AAEP,eAAQ;;AAlBwC;AAqBR;;AAGxC;AAGA,UAAG,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB;AACX,UAAG,kBAAW,CAAC,CAAD,CAAd,EACE,MAAM,gBAAW,QAAC,YAAM,CAAC,yCAAD,CAAN,CADpB;AAEA,eAAc,cAAC,CAAD;;AAT0B;AAYC;AAGzC;AAGA,UAAG,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB;AACX,UAAG,CAAI,kBAAW,CAAC,CAAD,CAAlB,EACE,gBAAW,CAAO,cAAC,CAAD,EAAI,sCAAX,CADb;AAEA,eAAI,IAAK,CAAC,IAAI,KAAL;AACT,sBAAW,CAAC,MAAO,oCAAR;AAV8B;AAaF;AAEvC,eAAI,IAAK,CAAC,oBAAe,CAAC,GAAD,EAAM,KAAtB;AACT,oBAAS,CAAC,IAAI,oCAAL;AACT,sBAAW,CAAC,MAAM,oCAAP;AAJ4B;AAQE;;AAEzC;AACA;AAGA,UAAG,oBAAe,CAAC,GAAD;AAClB,UAAG,SAAI,IAAI,CAAC,CAAD;AACX,UAAG,CAAI,kBAAW,CAAC,CAAD,CAAlB;AAEE,iBAAI,OAAO,CAAC,CAAD;AACX,iBAAc,cAAC,CAAD;AACd,sBAAS,CAAC,IAAI,YAAL;AACT,wBAAW,CAAC,OAAO,YAAR;OALb;;AARyC;AAiBA;;AAEzC,eAAQ,SAAI;;AAF6B;AA2FG;;AAG5C,eAAqB,CAAZ,iBAAY,KAAC,IAAD,CAAM,IAAmB,CAAd,mBAAc,KAAC,IAAD,CAAnB;;AAHiB;AAtFI;;AAGhD,eAAQ,oBAAe,QAAC,YAAM,CAAC,IAAD,CAAN;;AAHwB;AAMJ;AAG5C,oBAAS,CAAC,IAAI,MAAL;AACT,sBAAW,CAAC,MAAM,MAAP;AAJiC;AAOD;AAE3C,UAAY,iBAAD,QAAX,EACE,iBAAY,CAAC,KAAK,IAAI,MAAV,CADd;AAF2C;AAME;AAE7C,UAAY,mBAAD,QAAX,EACE,mBAAc,CAAC,KAAK,MAAM,MAAZ,CADhB;AAF6C;AAMH;AAE1C,kBAAa,IAAP,GAAO;AACb,UAAG,SAAS,GAAC,CAAb;AAHmE;AAAzB;AAMA;AAG1C;AAGA,mBAAM,CAAC,CAAD;AACN,UAAa;AAAT;;;AACF,kBAAG,CAAC,KAAK,KAAK,KAAK,MAAhB;;AADD;AAAS;AAAT;AAP+E;AAAzC;AAWA;AAE1C,mBAAM,CAAC,CAAD;AACN,oCAAW,SAAX;AAH6E;AAAnC;AAMA;AAE1C,6BAAU,CAAC;;;;UAAD;AACV,6BAAU,CAAC;;;;UAAD;AACV;AACA,kBAAM;AACI;AANgC;AASL;AAErC,UAAG,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB,CAAX,EACE,MAAM,gBAAW,QAAC,YAAM,CAAC,0CAAD,CAAN,CADpB;AAEA,gBAAK,CAAC,IAAI,KAAL;AAJgC;AAOG;AAExC,mBAAQ,CAAC,IAAI,sCAAL;AAFgC;AAKI;;AAG5C;AAGA,qBAAe,8DAAf;AACA,UAAG,oBAAe,CAAC,GAAD;AAClB,UAAG,SAAI,IAAI,CAAC,CAAD,CAAX;AAEE,cAAM,OAAO,CAAC,IAAU,cAAC,SAAI,IAAI,CAAC,CAAD,CAAT,CAAX;AACb,iBAAI,OAAO,CAAC,CAAD;OAGX,MAAA,MAAM,OAAO,CAAC,IAAW,IAAZ;;AAd6B;AAuBL;AAGvC;AACA;AACA;AACA;AACA;AAGA,UAAG,kBAAH;AACE,iBAAI;;AAGJ,eAAM,SAAI;AACV;AACE,iBAAM,IAAI;AACV,cAAG,CAAI,IAAI,KAAX;AAEE,gBAAoB,IAAI;AACxB,gBAAO,KAAC,CAAC,CAAC,CAAD,CAAF;AACP,gBAAS,cAAC,CAAC,CAAC,CAAD,CAAF;AACT,qBAAI,OAAO,CAAC,CAAD;AACX,2BAAU,CAAC,EAAE,EAAE,sCAAL;WANZ;SAFF,QAUU,CAAJ,IAAI,KAVV;;AAfqC;AA8BK;;AAG5C;AAEA,UAAG,oBAAe,CAAC,GAAD;AAClB,eAAQ,SAAI,IAAI,CAAC,CAAD;AAChB,UAAG,MAAH,EACE,UAAa,cAAC,SAAI,IAAI,CAAC,CAAD,CAAT,CAAb,CADF;;AAP4C;AAYG;AAG/C;AAGA,UAAG,oBAAe,CAAC,GAAD;AAClB,UAAG,CAAI,SAAI,IAAI,CAAC,CAAD,CAAf;AACE,kBAAK,CAAC,IAAI,KAAL;AAEL,YAAA,YAAO,CAAC,EAAE,KAAH;AAVsC;AAaH;;AAE5C,eAAQ,SAAI,IAAI,CAAC,oBAAe,CAAC,GAAD,CAAhB;;AAF4B;AAKE;;AAG9C;AACA;AAGA,eAAQ;AACR,WAAI,SAAI;AACR;AACE,cAAK,EAAE;AACP,YAAG,CAAI,GAAG,KAAV,EACE,SAAS,KAAK,KAAO,cAAC,GAAG,MAAJ,CADvB;OAFF,QAIc,EAAP,MAAO,IAAG,GAAG,KAAN,CAJd;;AAT8C;AAgBN;;AAExC,eAAkB;;AAFsB;AAKA;;AAExC,UAAG,mBAAc,KAAC,IAAlB,EACE,sBAAgB,mBAAc,QAAC,YAAM,CAAC,IAAD,CAAN,CADjC;AAEA,eAAQ;;AAJgC;AAOE;;AAE1C,UAAG,qBAAgB,KAAC,IAApB,EACE,wBAAkB,qBAAgB,QAAC,YAAM,CAAC,IAAD,CAAN,CADrC;AAEA,eAAQ;;AAJkC;AAOI;;AAE9C,eAAQ,oBAAe,QAAC,YAAM,CAAC,IAAD,CAAN;;AAFsB;AA1kCnC;AA4IQ;;;;;AAEf;AAFe;;;;;AAgtC+B;;AAElD,eAAmB,oFAAa,IAAgB,UAAX,iBAAY,EAAD,CAAhB;;AAFkB;AAKD;AAM9B,wFAAC,IAAK,MAAN;AACnB,UAAe,CAAX,oCAAW,IAAG,gBAAH,CAAgB,IAAY,CAAP,MAAO,KAAE,sCAAF,CAA3C,EACE,GAAE,eAAF,GAAE,CADJ;AAPiD;AAWE;AAM9B,0FAAC,MAAO,MAAR;AACrB,UAAiB,CAAb,sCAAa,IAAG,gBAAH,CAAgB,IAAY,CAAP,MAAO,KAAE,sCAAF,CAA7C,EACE,KAAE,eAAF,KAAE,CADJ;AAPmD;AAWH;AAEhD,yBAAa;AACG,uFAAC,SAAD;AAHyF;AAAzD;AAMA;AAEtC,uFA12C8B,CA02C9B;AACV,yBAAa;AAHwE;AAArC;AAjvC7B;AA9aR;;;AA0nBmB;;AAE9B,eAAQ;;AAFsB;AA1nBnB;AAWA;;;AAsnBwB;;AAEnC,eAAQ;;AAF2B;AAKN;;AAE7B;AAEA,eAAQ;AACR,oBAAe;AACf;AACE,eAAM,WAAW,WAAjB,EACW,MAAO,KAAK,CAAC,WAAW,aAAC,EAAb;AAFzB;AAIE,mBAAY,eAAZ,WAAY;AAJd;;AAN6B;AA3nBlB;AApEW;uCAAuB,WzCgHtC,2ByChHsC,EAAsB,SFuTnC,yEEvTmC,GAC1D,WAFc,qCAEd,CADa;;AAYJ;;;AA4esB;AAGxC,iBAAI,CAAC,QAAS,UAAc,EAAiB,WAAC,aAAD,CAAzC;AAHoC;AAMA;AAGxC,UAAG,MAAO,IAAG,CAAb,EACE,MADF;AAEA,oBAAS,CAAC,QAAS,OAAoB,CAAP,MAAO,GAAE,MAAF,CAAR,KAAmB,SAAzC;AAL+B;AAQO;;AAI/C,eAAU,mBAAY,CAAC,QAAS,MAAO,YAAa,UAC7B,EAAS,WAAC,OAAD,CADV;;AAJyB;AAQA;;AAI/C,eAAU,iBAAY,CAAC,QAAS,MAAO,cAAe,UAC/B,EAAS,WAAC,OAAD,CADV;;AAJyB;AAlgB7B;AA8BN;;;AA8e2B;AAGvC;AAAG;AACH;AAAG;AAEH,UAAqB,CAAT,CAAP,MAAO,GAAE,KAAF,CAAS,IAAG,CAAH,CAAM,IAAoB,CAAV,WAAC,aAAD,CAAU,KAAE,CAAF,CAA/C,EACE,MADF;AAEA;AACE,YAAK;AACL,YAAK;AACL,YAAK,aAAO,CAAC,KAAM,GAAmB,WAAT,CAAP,MAAO,GAAE,KAAF,CAAS,KAA1B;AACZ;AACE,iBAAM,SAAS,QAAQ,CAAC,aAAO,CAAC,CAAD,EAAK,CAAb,CAAgB,GAAE,CAAzC,EACM,CAAJ,IAAG;AACL,iBAAM,SAAS,QAAQ,CAAC,aAAO,CAAC,CAAD,EAAK,CAAb,CAAgB,GAAE,CAAzC,EACM,CAAJ,IAAG;AACL,cAAG,CAAE,IAAG,CAAR;AAEE,gBAAG,CAAE,KAAG,CAAR;AAEE,kBAAK,aAAO,CAAC,CAAD;AACZ,2BAAO,CAAC,CAAD,CAAP,GAAc,aAAO,CAAC,CAAD;AACrB,2BAAO,CAAC,CAAD,CAAP,GAAc;aAJhB;AAMI,aAAJ,IAAG;AACC,aAAJ,IAAG;WATL;SALF,QAgBQ,EAAF,CAAE,GAAE,CAAF,CAhBR;AAoBA,YAAK,CAAF,CAAE,GAAE,KAAF,CAAQ,GAAS,CAAP,MAAO,GAAE,CAAF,CAAtB;AAEE,cAAG,KAAM,GAAE,CAAX,EACE,cAAS,CAAC,QAAS,MAAO,EAAG,SAApB,CADX;AAEA,kBAAS;;AAIT,cAAG,CAAE,GAAE,MAAP,EACE,cAAS,CAAC,QAAS,EAAG,OAAQ,SAArB,CADX;AAEA,mBAAU;;OAlCd,QAoCY,EAAN,KAAM,IAAG,MAAH,CApCZ;AARuC;AA+CE;;AAIzC;AAAM;AAAM;AAAM;AAKlB,aAAQ;AACR,aAAoB,CAAP,MAAO,GAAE,MAAF,CAAR;AAEZ,YAAK,IAAK,GAAE,IAAF;AACV,aAAM,GAAG,GAAC,IAAD;AACT,aAAO,IAAK,GAAE,IAAd;AAEE,eAAoB,UAAP,CAAJ,IAAI,GAAC,IAAD,CAAO,GAAI,CAAJ;AAGpB,qBAAa,cAAb,GAA+B,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAEhD,YAAI,aAAa,cAAe,GAAE,CAAlC;AACE,iBAAQ,IAAK,GAAE,CAAF;;AAGb,cAAG,aAAa,cAAe,KAAE,CAAjC;AAEE,yBAAa,WAAb,GAA4B;AAC5B,yBAAa,eAAb,GAAgC;AAC5B,mBAAC;WAJP;AAMA,iBAAQ;;;AASZ,eAAS,IAAK,KAAE,IAAF;AACd,UAAG,MAAH;AAEE,qBAAa,cAAb,GAA+B,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAChD,qBAAa,eAAb,GAAgC;AAChC,iBAAS,aAAa,cAAe,KAAE,CAAF;AACrC,YAAG,MAAH;AACE,uBAAa,WAAb,GAA4B;AAE5B,cAAA,aAAa,WAAb,GAA4B,CAAC;;AAI/B,qBAAa,cAAb,GAA+B;AAC/B,qBAAa,WAAb,GAA4B,CAAC;AAC7B,qBAAa,eAAb,GAAgC,CAAC;;;AAvDM;AA2DA;;AAIzC;AAAM;AAAM;AACZ;AAGA,aAAQ;AACR,aAAoB,CAAP,MAAO,GAAE,MAAF,CAAR;AAGZ,aAAO,IAAK,GAAE,IAAd;AAEE,eAAsB,UAAR,CAAL,IAAK,GAAE,IAAF,CAAQ,GAAI,CAAJ;AAMtB,mBAAY,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAE7B,YAAI,QAAS,GAAE,CAAf;AACE,iBAAQ,IAAK,GAAE,CAAF;;AAGb,cAAG,QAAS,KAAE,CAAd;AAEE,4BAAe,IAAf;AACI,mBAAC;WAHP;AAKA,iBAAQ;;;AAQZ,iBAAY,SAAS,QAAQ,CAAC,OAAO,CAAC,IAAD,EAAQ,KAAhB;AAC7B,eAAc,CAAL,IAAK,KAAE,IAAF,CAAQ,IAAc,CAAT,QAAS,KAAE,CAAF,CAAd;AACtB,UAAG,MAAH;AACE,wBAAe,IAAf;AAEA,4BAAe,CAAC,CAAhB;;AA5CuC;AAxlB7B;AAwCD;;;AAQI,6GF6NiB,gFE7NjB;AARJ;;;AAET;AAKA;AACA;AARS;;;;;;AA6nBsB;;AAEjC,eAAc,WAAC,WAAD;;AAFmB;AAKM;;AAEvC,UAAG,YAAO,KAAO,WAAC,WAAD,CAAjB,EACW,WAAO,KAAK,CAAQ,IAAR,CADvB;AAGA,eAAU;AACN,kBAAJ,IAAG;;AANoC;AASC;;AAExC;AAEA,UAAG,MAAO,GAAE,CAAZ,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAEA,UAAG,MAAO,KAAE,CAAZ,EACM,OAAC,YAAQ,GAAE,CADjB;AAGA,eAAqB,KAAR,WAAC,WAAD,CAAQ,GAAC,CAAD,EAAa,OAAP,YAAO,GAAC,MAAD,kBAAlC;AAAI;AACO,mBAAO,KAAK,CAAQ,IAAR;;AAEvB,eAAU;AACN,kBAAJ,IAAa;;AAb2B;AAgBX;AAG7B,UAAY,cAAD,QAAX,EACE,cAAS,CAAC,KAAM,OAAQ,uBAAf,CADX;AAH6B;AAOC;;AAG9B,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,eAAU,WAAM,CAAC,MAAD;AACZ,kBAAJ,IAAG;AAEH,iBAAM,CAAC,MAAD,CAAN,GAAyB;AAChB,iBAAO,OAAO,CAAC,OAAO,CAAR;AAEvB,iBAAM,CAAC,OAAQ,uBAAT;;AAZwB;AAeA;;AAE9B,eAAU;;AAFoB;AAjrBnB;AAwBU;;;;;AAEnB;AACA;AAHmB;;;;;AAiqBqB;;AAEtC,iBAAJ,IAAG;AACH,eAAyB,CAAd,UAAK,QAAS,GAAE,CAAF,CAAK,IAAY,CAAP,WAAO,GAAE,UAAK,QAAP,CAAZ;;AAHY;AAME;;AAE5C,eAAU;;AAFkC;AAKF;;AAE1C,eAAU,UAAK,OAAO,CAAC,WAAD;;AAFoB;AAKD;AAE/B;AACV,oBAAU,CAAC;AACX,mBAAS;AAJwD;AAAxB;AAjrBpB;AA+BhB;;AAeU;;AAfV;;;AAEH;AAFG;;;;;AA2pBoB;;AAEzB,UAAY,cAAD,QAAX;AACE,iBAAS,cAAS,QAAQ,CAAC,KAAM,KAAP,CAAc,KAAE,CAAF;AAExC,qBAAS,IAAK,KAAE,KAAF;;AALS;AAQG;AAE5B,UAAG,MAAO,GAAE,YAAZ,EACE,cAAS,MAAT,CADF;AAEU,iBAAD,sBAAC,iBAAQ,MAAT;AAJmB;AAOH;AAEzB,UAAG,MAAO,GAAE,CAAZ,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAG,MAAO,GAAE,kBAAZ;AACE,yBAAY,MAAZ;AACG,gBAAG,MAAO,GAAE,YAAZ,EACH,gBAAW,CAAC,OAAQ,YAAM,GAAE,MAAjB,CADR;AAGL,qBAAW;AAVc;AAaM;;AAIA;AAE/B,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAES,iBAAO,OAAO,CAAC,OAAO,EAAE,MAAV;AACnB,kBAAJ,IAAG;AAEH,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;AARyB;AAWA;;AAE/B,eAAU;;AAFqB;AAKR;;AAEvB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,eAAU,WAAM,CAAC,MAAD;;AALO;AAQC;AAExB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,YAAH,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAEA,iBAAM,CAAC,WAAM,CAAC,MAAD,EAAU,sCAAjB;AACN,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;AANkB;AASK;;AAE7B,eAAU,gBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;;AAFO;AAKJ;AAEzB;AAF0B;AAAD;AAKA;AAEzB;AACA,oCAAa,SAAb;AAHyD;AAAhC;AAMA;AAEzB;AAEA;AACA,UAAa;AAAT;;;AACF,kBAAG,CAAC,KAAD;;AADD;AAAS;AAAT;AALmD;AAA9B;AASA;AAEzB,sBAAW,CAAC,CAAD;AAFc;AAKN;;AAEnB,eAAU;AACV,iBAAM,CAAC,MAAD,CAAN,GAAkB;AAClB,iBAAM,CAAC,OAAQ,oCAAT;;AAJa;AAOM;AAEzB,sBAAW,CAAC,aAAO,OAAR;AAFc;AAKA;AAEzB;AAEA,UAAc;AAAV;;;AACF,kBAAG,CAAC,MAAD;;AADD;AAAU;AAAV;AAJqB;AAQA;AAEzB;AAEA,UAAc;AAAV;;;AACF,kBAAG,CAAC,MAAD;;AADD;AAAU;AAAV;AAJqB;AAQF;AAEvB,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,yBAAc,CAAC,OAAQ,MAAT;AALS;AAQK;AAE5B;AAAS;AACT;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,gBAAiB,WAAC,OAAD;AACjB,UAAG,OAAQ,KAAE,CAAb,EACE,MADF;AAGA,UAAG,MAAO,KAAG,uBAAkB,CAAC,OAAD,CAA/B;AAEE,iBAAS,aAA0B,OAAhB,YAAgB,GAAR,OAAF,GAAW,CAAD,kBAAnC;AAAI;AACF,qBAAM,CAAC,CAAC,GAAC,OAAH,CAAN,GAAqB,WAAM,CAAC,CAAD;;AAC7B,iBAAS,SAAa,QAAR,OAAQ,GAAC,CAAD,qBAAtB;AAAI;AACF,qBAAM,CAAC,MAAM,GAAC,CAAR,CAAN,GAA2B;;OAL/B;AAQA,eAAS,SAAS,QAAC,OAAD,yBAAlB;AAAI;AAEF,iBAAQ,OAAO,CAAC,CAAD;AACf,mBAAM,CAAC,CAAC,GAAC,MAAH,CAAN,GAAoB;AACpB,mBAAM,CAAC,OAAQ,oCAAT;;AAxBoB;AA4BA;AAE5B;AACA;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAK;AACL,UAAc;AAAV;;;AAEF,6BAAc,CAAC,MAAO,GAAE,CAAF,CAAK,MAAb;AACV,WAAJ,IAAG;;AAHD;AAAU;AAAV;AATwB;AAgBA;AAE5B;AACA;AAEA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,GAAE,YAAF,CAA3B,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,UAAK;AACL,UAAc;AAAV;;;AAEF,6BAAc,CAAC,MAAO,GAAE,CAAF,CAAK,MAAb;AACV,WAAJ,IAAG;;AAHD;AAAU;AAAV;AATwB;AA2BN;;AAEtB,eAAU,YAAO,CAAC,MAAD;AACjB,UAAG,MAAO,IAAG,CAAb,EACE,aAAQ,CAAC,OAAQ,sCAAT,CADV;;AAHsB;AAXI;;AAG1B,UAAG,SAAS,KAAY,uBAAxB;AACE,iBAAU,gBAAW,CAAC,MAAD;AAErB,qBAAU,YAAO,CAAC,MAAD;AACnB,UAAG,MAAO,IAAG,CAAb,EACE,aAAQ,CAAC,OAAQ,sCAAT,CADV;;AAP0B;AAkBH;AAEvB,mBAAQ,CAAC,OAAQ,sCAAT;AAFe;AAKK;AAE5B;AACA;AAEA,UAAG,MAAO,KAAE,CAAZ,EACE,MADF;AAGA,UAAW,CAAP,MAAO,GAAE,CAAF,CAAqB,IAAL,CAAP,MAAO,GAAE,CAAF,CAAX,IAAoC,CAAT,CAAP,MAAO,GAAE,MAAF,CAAS,GAAE,YAAF,CAApD,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,iBAA4B,WAAO,OAAO,CAAC,OAAO,YAAR;AACtC,kBAAJ,IAAa;AAEb,eAAS,QAAS,kBAAC,QAAD,uBAAlB;AAAI;AACF,mBAAM,CAAC,QAAQ,CAAC,CAAD,EAAK,sCAAd;;AAfoB;AAkBA;;AAE5B,eAAU,aAAQ,CAAC,OAAQ,wCAAT;;AAFU;AAKL;;AAEvB;AAEA,eAAU,YAAO,CAAC,MAAD;AACjB,UAAG,MAAO,GAAE,CAAZ;AACE,iBAAe;AAEf,qBAAU,aAAQ,CAAC,OAAQ,wCAAT;;AARG;AAWE;AAEzB;AAEA,cAAS,WAAM,CAAC,OAAD;AACf,iBAAM,CAAC,OAAD,CAAN,GAAmB,WAAM,CAAC,OAAD;AACzB,iBAAM,CAAC,OAAD,CAAN,GAAmB;AANM;AASJ;AAErB;AACA;AACA;AAEA,UAAG,SAAU,KAAE,MAAf,EACE,MADF;AAGA,UAAc,CAAV,SAAU,GAAE,CAAF,CAAK,IAAc,CAAV,SAAU,IAAG,YAAH,CAAjC,EACE,MAAM,yCAA4B,QAAC,YAAM,CAAC,4DAAD,CAAN,CADrC;AAGA,YAAgB;AAChB,cAAS,GAAI;AACb,UAAG,MAAO,GAAE,SAAZ;AACE,iBAAS,aAAmB,OAAT,SAAS,GAAC,CAAD,kBAA5B;AAAI;AACF,aAAI,GAAJ,GAAU,GAAK,CAAD,CAAC,GAAC,CAAD;;AAEjB,qBAAS,cAAuB,QAAT,SAAS,GAAC,CAAD,qBAAhC;AAAI;AACF,WAAI,GAAJ,GAAU,GAAK,CAAD,CAAC,GAAC,CAAD;;AACnB,SAAI,WAAJ,GAAkB;AApBG;AAuBA;;AAErB,eAAU,YAAK,CAAC,CAAD;;AAFM;AAKD;;AAEpB,eAAU,YAAK,CAAM,YAAD,IAAL;;AAFK;AAKE;AAEtB,mBAAQ,CAAC,CAAD;AACR,sBAAW,CAAC,CAAD;AAHW;AAME;;AAExB,eAAU,YAAO,CAAC,MAAD,CAAS,IAAG,CAAH;;AAFF;AAKD;;AAEvB;AAEA,eAAS,QAAW,OAAN,YAAM,GAAE,CAAF,kBAApB;AAAI;AACF,YAAG,cAAS,CAAC,OAAQ,WAAM,CAAC,CAAD,CAAf,CAAZ,EACM,OAAC,CADP;;AAEF,eAAQ,CAAC;;AAPc;AAUI;;AAE3B;AAEA,eAAe,KAAN,YAAM,GAAE,CAAF,EAAW,aAA1B;AAAI;AACF,YAAG,cAAS,CAAC,OAAQ,WAAM,CAAC,CAAD,CAAf,CAAZ,EACM,OAAC,CADP;;AAEF,eAAQ,CAAC;;AAPkB;AAUH;AAExB;AAAG;AACH;AAEA,UAAK;AACL,UAAK,YAAM,GAAE,CAAF;AACX,aAAM,CAAE,GAAE,CAAV;AAEE,gBAAS,WAAM,CAAC,CAAD;AACf,mBAAM,CAAC,CAAD,CAAN,GAAa,WAAM,CAAC,CAAD;AACnB,mBAAM,CAAC,CAAD,CAAN,GAAa;AACT,SAAJ,IAAG;AACC,SAAJ,IAAG;;AAbmB;AAiBG;AAE3B,sBAAW,CAAC,YAAD;AAFgB;AAKN;AAErB,mFAAc,OAAK,CAAC;;;;WAAQ,eAAW,EAAG,YAAvB;AAFE;AAKA;AAErB,mFAAc,OAAK,CAAC;;;;WAAQ,UAAW,EAAG,YAAvB;AAFE;AAKO;;AAE5B,eAAU,6EAAc,eAAa,CAAC,YAAQ,MAAO,OAAQ,eAAW,EAAG,YAAtC;;AAFT;AAKA;;AAG5B,eAAU,6EAAc,eAAa,CAAC,YAAQ,MAAO,OAAQ,UAAW,EAAG,YAAtC;;AAHT;AAjgCvB;AAoEM;;;;;AAET;AAFS;AAo4CkB;AAMb,oGAAC,OAAQ,MAAT;AAChB,UAAG,kBAAc,IAAY,CAAP,MAAO,KAAE,sCAAF,CAA7B,EACE,MAAE,eAAF,MAAE,CADJ;AAP6B;AAWE;AAErB;AACV,2BAAiB;AAHsC;AAAxB;AAMA;AAEf,gGAAC,SAAD;AAChB,2BAAiB;AAHqE;AAAvD;AAMA;AAEf,gGAAC,WAAD;AAChB,2BAAiB;AAHyE;AAA3D;AA35CpB;AA3Nb,mBAkgBc;6BAuqBO,mDACC,kDAxqBR;;AAlgBd;AEeA,+BAIS,qDAJT;;;AAYkB;;;AAEd;AAFc;;;;;AAgCR,mBAAG;AACF,oBAAG;AAHsB;AAAV;AAKxB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEA,eAAU;AACV,WAAI,SAAU,GAAV,MAAsB,QAAtB,MAAsB,EAA1B;AAEE,iBAAY,QAAiC,OAA5B,sBAAS,CAAW,CAAV,uBAAU,CAAC,KAAD,CAAX,CAAmB,CAAQ,CAAP,MAAO,GAAE,CAAF,KAAR,mBAA7C;AAAI;AAEF,eAAI,QAAS,GAAT,KAA0B,QAA1B,KAA0B,EAA9B;AAEE,oBAAiB,IAAR,IAAQ,CAAI,MAAO,OAAQ,KAAM,MxCwIK,EAA2B,EAC/C,CwCzIV;AACjB,sBAAW,KAAK;AAEhB,iBAAK,SAAC,CAAS,KAAK,SAAC,EAAM,GAAE,CAAvB;AACN,0BAAe,KAAK;AAEpB,gBAAG,OAAQ,KAAG,WAAd;AAEE,0BAAa,uBAAU,CAAC,MAAO,MAAO,GAAE,CAAF,CAAK,IAApB;AACvB,kBAAG,MAAH;AACE,sBAAM,IAAN,GAAc,SAAU,GAAE,uBAAU,CAAC,KAAM,GAAE,CAAF,CAAK,EAAG,EAAG,CAAlB,CAAZ;AAExB,oBAAA,MAAM,MAAN,GAAgB,SAAU,GAAE,uBAAU,CAAC,MAAO,EAAG,EAAG,CAAd,CAAZ;AAC5B,uBAAU;aAPZ;;;;AAYN,eAAU,CAAI;AACd,UAAG,MAAH,EACE,WAAM,IAAI,CAAC,MAAO,MAAR,CADZ;AAxCwB;AAAU;AA4CN;AAAJ;AAExB,eAAU,WAAM,YAAY,CAAC,MAAO,OAAR;AAFJ;AAAI;AAxDK;AAEvB;AACV,oBAAU,8GAAgC,QAAC,aF8UH,CE9UG;AAHT;AAAD;AAMA;AAE1B,eAAP,KAAO;AACG;AAHuB;AAuDJ;AAAL;AAExB,eAAU,SAAI,CAAC,MAAO,MAAR;AACd,UAAG,CAAI,MAAP,EACE,SAAU,eAAU,CAAC,MAAO,MAAR,CADtB;AAHwB;AAAK;AA/Eb;AAZlB,GAuBc,gBAvBd;ACEA,wBAES,0DAFT;;;;AAYa,qBAAU;AACJ,2BAAI;AACR,uBAAQ;AACP,wBAAO;AACN,yBAAM;AACH,4BAAG;AAGZ,mBAAM;AACL,oBAAK;AACH,sBAAG;AACJ,qBAAI;AACN,mBAAM;AACJ,qBAAI;AACN,mBAAM;AAGR,iBAAoB,CAAE,GAAC,EAAD;AACpB,mBAAkB,CAAE,GAAC,IAAD;AACpB,mBAAkB,CAAE,GAAC,KAAD;AACf,wBAAa,CAAE,GAAC,QAAD;AAGjB,kDAAQ,CAAR;AAAD,sBAA6B,IAAK,GAAlC;AAIS,8BAAG;AASL,4BAAW;AACZ,2BAAY;AAqgBhB;AAAN;AAEP,aAAQ,gBAAK,CAAC,MAAD;AAFN;AAAM;AAMA;AAAN;AAEP,aAAQ,eAAI,CAAC,MAAD;AAFL;AAAM;AAWM;AAAZ;AAEP,aAAQ,uBAAU,CAAC,WAAM,CAAC,MAAD,CAAP;AAFX;AAAY;AAMR;AAAJ;AAEP,aAAS,WAAM,CAAC,MAAD,CAAQ,IAAE,EAAF;AAFhB;AAAI;AAwBO;AAAX;AAEP,aAAc,CAAL,KAAK,KAAE,CAAF,CAEQ,IAFO,CAAL,KAAK,GAAC,KAAD,CAAV,IACP,kBAAY,CAAC,MAAD,CAAhB,IACS,CAAJ,IAAI,KAAE,CAAF,CAAT,IAAuB,CAAJ,IAAI,IAAE,sBAAS,CAAW,CAAV,uBAAU,CAAC,KAAD,CAAX,EAAmB,UAAnB,CAAX,CAAT;AAJf;AAAW;AAQA;AAAX;AAEP,aAAc,CAAL,KAAK,KAAC,EAAD,CAA8C,IAApB,CAAP,OAAO,KAAC,CAAD,CAAZ,IAA4B,CAAP,OAAO,KAAC,CAAD,CAAZ,IAAiC,CAAZ,YAAY,KAAC,CAAD,CAAjB;AAC5D,aAAQ,MAAO,IACiE,CAAjE,CAAL,KAAK,GAAC,EAAD,CAAiE,IAAvC,CAAP,OAAO,GAAC,EAAD,CAAZ,IAAsC,CAAP,OAAO,GAAC,EAAD,CAAZ,IACjC,CAAZ,YAAY,GAAC,IAAD,CAD0D,CADjE;AAHR;AAAW;AASI;AAAf;AAEP,aAAQ,gBAAW,CAAC,MAAM,OAAO,IAAd,CAAoB,IAC/B,gBAAW,CAAC,MAAM,QAAQ,QAAQ,YAAvB,CADoB;AAFhC;AAAe;AAOD;AAAd;AAEP,aAAc,CAAL,KAAK,KAAE,CAAF,CAA2C,IAAvB,CAAV,UAAU,KAAE,CAAF,CAAf,IAA8B,CAAL,KAAK,GAAC,KAAD,CAAV,IACpB,CAAV,UAAU,IAAE,gBAAW,CAAW,CAAV,uBAAU,CAAC,KAAD,CAAX,CAAb,CADsC;AAFlD;AAAc;AAOC;AAAf;AAEP,aAAc,CAAL,KAAK,KAAE,CAAF,CAGN,IAHqB,CAAL,KAAK,GAAC,KAAD,CAAV,IACP,sBAAgB,CAAC,UAAD,CAApB,IACgB,CAAX,WAAW,KAAE,CAAF,CAAhB,IACgB,CAAX,WAAW,IAAE,iBAAY,CAAC,KAAD,CAAd,CAAhB;AALD;AAAe;AAWK;AAApB;AAGP,aAAc,CAAL,KAAK,KAAE,CAAF,CAGN,IAHqB,CAAL,KAAK,GAAC,KAAD,CAAV,IACP,kBAAY,CAAC,MAAD,CAAhB,IACI,wBAAkB,CAAC,YAAD,CAAtB,IACI,sBAAgB,CAAC,UAAD,CAApB;AAND;AAAoB;AAaT;AAAX;AAEP,aAAQ,iBAAY,CAAC,WAAM,CAAC,MAAD,CAAP;AAFb;AAAW;AAMC;AAAZ;AAGP;AAGA,aAAQ;AACR,UAAK,iBAAY,CAAC,iBAAY,CAAC,KAAD,CAAb;AACjB,QAAO,CAAH,GAAG,KAAC,CAAD,CAAI,IAAY,CAAJ,CAAH,GAAG,KAAC,CAAD,CAAI,IAAI,uBAAU,CAAC,KAAD,CAAd,CAAvB,EACM,MAAJ,IAAG,CADL;AARO;AAAY;AAaF;AAAV;AAEP,aAAQ,gBAAW,CAAW,CAAV,uBAAU,CAAC,WAAM,CAAC,MAAD,CAAP,CAAX;AAFZ;AAAU;AAMC;AAAX;AAEP,aAAQ,gBAAW,CAAW,CAAV,uBAAU,CAAC,KAAD,CAAX;AAFZ;AAAW;AAMA;AAAX;AAGP;AAAE;AAAE;AAGJ,2BAAU,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;QAAZ;AACV,aAAQ,sBAAS,CAAW,CAAV,uBAAU,CAAC,CAAD,CAAX,EAAe,KAAf;AAPV;AAAW;AAWC;AAAZ;AAEP,aAAQ,sBAAS,CAAW,CAAV,uBAAU,CAAC,KAAD,CAAX,EAAmB,UAAnB;AAFV;AAAY;AAWP;AAAL;AAEP,aAAQ,iBAAI;AAFL;AAAK;AAMI;AAAT;AAEP,aAAQ,iBAAI,EAAE,GAAC,CAAD;AAFP;AAAS;AAMD;AAAR;AAEP,aAAQ,iBAAI,EAAE,GAAC,CAAD;AAFP;AAAQ;AAMD;AAAP;AAEP,aAAQ,cAAS,CAAC,OAAO,iBAAI,EAAZ;AAFV;AAAO;AAME;AAAT;AAGP;AAGA,QAAG,MAAM,GAAC,gBAAK,CAAC,MAAD,CAAN;AACT,aAAU,CAAD,CAAC,IAAE,CAAF,CAAK,IAAM,CAAD,CAAC,GAAC,CAAD,CAAN;AAPR;AAAS;AAUE;AAAX;AAEJ,aAAU,WAAM,CAAC,MAAD,CAAS,KAAE,WAAM,CAAC,MAAD,CAAR;AACzB,aAAQ,MAAO,IAAsB,CAAhB,YAAO,CAAC,MAAD,CAAS,KAAE,YAAO,CAAC,MAAD,CAAT,CAAtB;AAHX;AAAW;AASM;AAAjB;AAGP,QAAG,CAAI,sBAAgB,CAAC,SAAD,CAAvB,EACE,MAAM,0BAAa,QAAC,aAAS,CAAC,oDAAqB,mBAAC,WAAD,CAAtB,CAAT,CADtB;AAEA,aAAQ,YAAM,CAAC,aAAD;AALP;AAAiB;AAeX;AAAN;AAGP;AAAE;AAGF,2BAAU,CAAC,OAAO;;;;SAAO;;;;SAAE;;;;QAAjB;AANH;AAAM;AAUC;AAAP;AAGP;AAAE;AAGF,2BAAU,CAAC,OAAO;;;;SAAE;;;;SAAO;;;;QAAjB;AANH;AAAO;AAUD;AAAN;AAEP,aAAQ,kBAAa,CAAC,MAAD;AAFd;AAAM;AAMD;AAAL;AAGP;AAAE;AAGF,2BAAU,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;QAAZ;AANH;AAAK;AAUC;AAAN;AAGP;AAAE;AAAE;AAGJ,2BAAU,CAAC,OAAO;;;;SAAO;;;;SAAE;;;;SAAE;;;;QAAnB;AANH;AAAM;AAUE;AAAR;AAGP;AAAE;AAAE;AAGJ,2BAAU,CAAC,OAAO;;;;SAAE;;;;SAAO;;;;SAAE;;;;QAAnB;AANH;AAAQ;AAUA;AAAR;AAGP;AAAE;AAAE;AAGJ,2BAAU,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;SAAO;;;;QAAnB;AANH;AAAQ;AAUK;AAAb;AAGP;AAAE;AAAE;AAGJ,2BAAU,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;SAAE;;;;QAAd;AANH;AAAa;AAeC;AAAd;AAEP,aAAQ,uBAAU,CAAC,WAAM,CAAC,MAAD,EAAS,EAAE,CAAlB;AAFX;AAAc;AAMF;AAAZ;AAEP,aAAQ,mBAAc,CAAC,WAAM,CAAC,MAAD,EAAS,GAAG,GAAG,GAAG,GAAG,GAAG,GAA/B;AAFf;AAAY;AAMA;AAAZ;AAEP,aAAQ,uBAAU,CAAC,MAAM,EAAE,CAAT;AAFX;AAAY;AAMF;AAAV;AAGP,aAAS,mBAAc,CAAC,MAAM,GAAG,GAAG,GAAG,GAAG,GAAG,GAAtB;AAHhB;AAAU;AAUK;AAAf;AAGP;AAAE;AAAE;AAGJ,2BAAU,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;QAAZ;AACV,aAAQ,uBAAU,CAAC,EAAE,EAAE,CAAL;AAPX;AAAe;AAYF;AAAb;AAGP;AAAE;AAAE;AAGJ,2BAAU,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;QAAZ;AACV,aAAQ,mBAAc,CAAC,EAAE,EAAE,sBAAS,CAAW,CAAV,uBAAU,CAAC,CAAD,CAAX,EAAe,KAAf,EAAkB,GAAG,GAAG,GAAG,GAAzC;AAPf;AAAa;AAWA;AAAb;AAEP,aAAQ,uBAAU,CAAC,MAAM,OAAO,CAAd;AAFX;AAAa;AAMF;AAAX;AAGP,aAAQ,mBAAc,CAAC,MAAM,OAAO,sBAAS,CAAW,CAAV,uBAAU,CAAC,KAAD,CAAX,EAAmB,UAAnB,EAA2B,GAAG,GAAG,GAAG,GAA3D;AAHf;AAAW;AAYG;AAAd;AAEP,aAAqB,CAAb,gBAAK,CAAC,MAAD,CAAQ,GAAC,iBAAY,CAAC,MAAD,CAAb,CAAqB,GAAC,CAAD;AAFnC;AAAc;AAMF;AAAZ;AAEP,aAAQ,gBAAW,CAAO,CAAN,MAAM,GAAC,iBAAY,CAAC,MAAD,CAAb,CAAqB,GAAC,CAA7B;AAFZ;AAAY;AAMA;AAAZ;AAEP,aAAQ,mBAAc,CAAC,MAAM,YAAY,UAAnB;AAFf;AAAY;AAMA;AAAZ;AAEP,aAAQ,iBAAY,CAAC,MAAM,YAAY,CAAnB;AAFb;AAAY;AAMF;AAAV;AAEP,aAAU,gBAAW,CAAC,mBAAc,CAAC,MAAO,YAAa,UAArB,CAAf;AAFd;AAAU;AAMA;AAAV;AAIP,aAAQ,eAAU,CAAC,MAAM,YAAY,CAAnB;AAJX;AAAU;AAWG;AAAb;AAEP,aAAQ,gBAAK,CAAC,MAAD;AAFN;AAAa;AAMF;AAAX;AAGP;AAAE;AAAE;AAGJ,2BAAU,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;QAAZ;AACV,aAAQ,mBAAc,CAAC,EAAE,EAAE,EAAE,GAAG,GAAG,GAAG,GAAhB;AAPf;AAAW;AAWA;AAAX;AAEP,aAAQ,uBAAU,CAAC,MAAM,OAAO,IAAd;AAFX;AAAW;AAMA;AAAX;AAEP,aAA2B,CAAnB,iBAAY,CAAC,KAAD,CAAO,GAAC,UAAD,CAAW,GAAC,CAAD;AAF/B;AAAW;AAMF;AAAT;AAEP,aAAQ,gBAAW,CAAC,uBAAU,CAAC,MAAM,OAAO,IAAd,CAAX;AAFZ;AAAS;AAMA;AAAT;AAIP,aAAsC,CAAX,CAAnB,iBAAY,CAAC,KAAD,CAAO,GAAC,UAAD,CAAW,GAAC,CAAD,CAAE,GAAC,uBAAU,CAAC,GAAG,GAAG,GAAG,GAAV,CAAX;AAJjC;AAAS;AAYK;AAAd;AAEP,aAAQ,YAAO,CAAC,MAAD;AAFR;AAAc;AAMD;AAAb;AAGP;AAAE;AAGF,uBAAc,CAAC,OAAO;;;;SAAE;;;;SAAO;;;;QAAjB;AANP;AAAa;AAUA;AAAb;AAGP;AAGA,uBAAc,CAAC,OAAO,MAAM;;;;SAAO;;;;QAArB;AANP;AAAa;AAUD;AAAZ;AAEP,aAAQ,gBAAK,CAAO,CAAN,MAAM,GAAC,mBAAc,CAAC,MAAD,CAAf,CAAuB,GAAC,CAA/B;AAFN;AAAY;AAMC;AAAb;AAGP;AAAE;AAAE;AAAE;AAGN,2BAAU,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;SAAE;;;;QAAd;AACV,aAAQ,CAAC,GAA0B,CAAH,CAApB,iBAAY,CAAC,MAAD,CAAQ,GAAC,CAAD,CAAG,GAAC,EAAD,CAA1B;AAPF;AAAa;AAWE;AAAf;AAGP;AAAE;AAAE;AAAE;AAGN,2BAAU,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;SAAE;;;;QAAd;AACV,aAAQ,CAAC,GAAkC,CAA/B,CAAD,CAAC,GAA0B,CAAH,CAApB,iBAAY,CAAC,MAAD,CAAQ,GAAC,CAAD,CAAG,GAAC,EAAD,CAA1B,CAA+B,GAAC,EAAD,CAAlC;AAPF;AAAe;AAWA;AAAf;AAGP;AAAE;AAAE;AAAE;AAGN,2BAAU,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;SAAE;;;;QAAd;AACV,aAAgD,CAAtC,CAAD,CAAC,GAAkC,CAA/B,CAAD,CAAC,GAA0B,CAAH,CAApB,iBAAY,CAAC,MAAD,CAAQ,GAAC,CAAD,CAAG,GAAC,EAAD,CAA1B,CAA+B,GAAC,EAAD,CAAlC,CAAsC,GAAC,EAAD,CAAG,GAAC,CAAD;AAP5C;AAAe;AAWK;AAApB;AAGP;AAAE;AAAE;AAAE;AAGN,2BAAU,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;SAAE;;;;QAAd;AACV,aAAuE,CAAH,CAAH,CAAtD,CAAD,CAAC,GAAkD,CAA/C,CAAD,CAAC,GAA0C,CAAH,CAArB,iBAAY,CAAC,MAAD,CAAS,GAAC,CAAD,CAAG,GAAC,EAAD,CAA1C,CAA+C,GAAC,EAAD,CAAlD,CAAsD,GAAC,EAAD,CAAG,GAAC,CAAD,CAAG,GAAC,IAAD,CAAK,GAAC,EAAD;AAPrE;AAAoB;AAgBN;AAAd;AAGP;AAAE;AAAE;AAGJ,4BAAmB,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;SAAO;;;;QAAnB;AANZ;AAAc;AAUA;AAAd;AAGP;AAGA,4BAAmB,CAAC,OAAO,MAAM,OAAO;;;;SAAO;;;;QAA5B;AANZ;AAAc;AAUD;AAAb;AAGP;AAAE;AAGF,2BAAU,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;QAAZ;AANH;AAAa;AAUC;AAAd;AAGP;AAAE;AAAE;AAAE;AAAE;AAAE;AAAE;AAGZ,uBAAc,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;SAAE;;;;SAAE;;;;SAAE;;;;SAAE;;;;QAApB;AACd,aAAa,CAAH,CAAD,CAAC,GAAC,CAAD,CAAG,GAAC,EAAD,CAAG,GAAC,CAAD;AAPT;AAAc;AAWE;AAAhB;AAGP;AAAE;AAAE;AAAE;AAAE;AAAE;AAAE;AAGZ,uBAAc,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;SAAE;;;;SAAE;;;;SAAE;;;;SAAE;;;;QAApB;AACd,aAAoB,CAAH,CAAH,CAAH,CAAD,CAAC,GAAC,CAAD,CAAG,GAAC,EAAD,CAAG,GAAC,CAAD,CAAG,GAAC,EAAD,CAAG,GAAC,CAAD;AAPhB;AAAgB;AAWA;AAAhB;AAGP;AAAE;AAAE;AAAE;AAAE;AAAE;AAAE;AAGZ,uBAAc,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;SAAE;;;;SAAE;;;;SAAE;;;;SAAE;;;;QAApB;AACd,aAA2B,CAAH,CAAH,CAAH,CAAH,CAAH,CAAD,CAAC,GAAC,CAAD,CAAG,GAAC,EAAD,CAAG,GAAC,CAAD,CAAG,GAAC,EAAD,CAAG,GAAC,CAAD,CAAG,GAAC,EAAD,CAAG,GAAC,CAAD;AAPvB;AAAgB;AAWK;AAArB;AAGP;AAAE;AAAE;AAAE;AAAE;AAAE;AAAE;AAGZ,uBAAc,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;SAAE;;;;SAAE;;;;SAAE;;;;SAAE;;;;QAApB;AACd,aAAkC,CAAH,CAAH,CAAH,CAAH,CAAH,CAAH,CAAH,CAAD,CAAC,GAAC,CAAD,CAAG,GAAC,EAAD,CAAG,GAAC,CAAD,CAAG,GAAC,EAAD,CAAG,GAAC,CAAD,CAAG,GAAC,EAAD,CAAG,GAAC,CAAD,CAAG,GAAC,IAAD,CAAK,GAAC,EAAD;AAPhC;AAAqB;AAeT;AAAZ;AAGP,aAAQ,YAAM,CAAC,sBAAS,CAAC,MAAD,KAAV;AAHP;AAAY;AAOC;AAAb;AAGP;AAAE;AAAE;AAAE;AAGN,2BAAU,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;SAAE;;;;QAAd;AACV,aAAgC,CAAH,CAApB,iBAAY,CAAC,MAAD,CAAQ,GAAC,CAAD,CAAG,GAAC,EAAD,CAAG,GAAC,CAAD;AAP5B;AAAa;AAWE;AAAf;AAGP;AAAE;AAAE;AAAE;AAGN,2BAAU,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;SAAE;;;;QAAd;AACV,aAAuC,CAAH,CAAH,CAAH,CAApB,iBAAY,CAAC,MAAD,CAAQ,GAAC,CAAD,CAAG,GAAC,EAAD,CAAG,GAAC,CAAD,CAAG,GAAC,EAAD,CAAG,GAAC,CAAD;AAPnC;AAAe;AAWA;AAAf;AAGP;AAAE;AAAE;AAAE;AAGN,2BAAU,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;SAAE;;;;QAAd;AACV,aAA8C,CAAH,CAAH,CAAH,CAAH,CAAH,CAApB,iBAAY,CAAC,MAAD,CAAQ,GAAC,CAAD,CAAG,GAAC,EAAD,CAAG,GAAC,CAAD,CAAG,GAAC,EAAD,CAAG,GAAC,CAAD,CAAG,GAAC,EAAD,CAAG,GAAC,CAAD;AAP1C;AAAe;AAWK;AAApB;AAIP;AAAE;AAAE;AAAE;AAGN,2BAAU,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;SAAE;;;;QAAd;AACV,aAAqD,CAAH,CAAH,CAAH,CAAH,CAAH,CAAH,CAAH,CAApB,iBAAY,CAAC,MAAD,CAAQ,GAAC,CAAD,CAAG,GAAC,EAAD,CAAG,GAAC,CAAD,CAAG,GAAC,EAAD,CAAG,GAAC,CAAD,CAAG,GAAC,EAAD,CAAG,GAAC,CAAD,CAAG,GAAC,IAAD,CAAK,GAAC,EAAD;AARnD;AAAoB;AAgBR;AAAZ;AAEP,aAAQ,WAAM,CAAC,MAAD;AAFP;AAAY;AAME;AAAd;AAGP;AAAE;AAAE;AAAE;AAGN,2BAAU,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;SAAE;;;;QAAd;AACV,aAAU,CAAD,CAAC,GAAC,EAAD,CAAI,GAAC,CAAD;AAPP;AAAc;AAWA;AAAd;AAGP;AAAE;AAAE;AAAE;AAGN,2BAAU,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;SAAE;;;;QAAd;AACV,aAAkB,CAAH,CAAJ,CAAD,CAAC,GAAC,EAAD,CAAI,GAAC,CAAD,CAAG,GAAC,EAAD,CAAG,GAAC,CAAD;AAPd;AAAc;AAWK;AAAnB;AAGP;AAAE;AAAE;AAAE;AAGN,2BAAU,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;SAAE;;;;QAAd;AACV,aAAyB,CAAH,CAAH,CAAH,CAAJ,CAAD,CAAC,GAAC,EAAD,CAAI,GAAC,CAAD,CAAG,GAAC,EAAD,CAAG,GAAC,CAAD,CAAG,GAAC,IAAD,CAAK,GAAC,EAAD;AAPvB;AAAmB;AAeJ;AAAf;AAEP,aAAQ,aAAQ,CAAC,MAAD;AAFT;AAAe;AAMA;AAAf;AAGP;AAAE;AAAE;AAAE;AAGN,2BAAU,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;SAAE;;;;QAAd;AACV,aAAS,CAAD,CAAC,GAAC,EAAD,CAAG,GAAC,CAAD;AAPL;AAAe;AAWK;AAApB;AAGP;AAAE;AAAE;AAAE;AAGN,2BAAU,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;SAAE;;;;QAAd;AACV,aAAgB,CAAH,CAAH,CAAD,CAAC,GAAC,EAAD,CAAG,GAAC,CAAD,CAAG,GAAC,IAAD,CAAK,GAAC,EAAD;AAPd;AAAoB;AAeH;AAAjB;AAEP,aAAQ,aAAQ,CAAC,MAAD;AAFT;AAAiB;AAMK;AAAtB;AAGP;AAAE;AAAE;AAAE;AAGN,2BAAU,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;SAAE;;;;QAAd;AACV,aAAS,CAAD,CAAC,GAAC,IAAD,CAAK,GAAC,EAAD;AAPP;AAAsB;AAcA;AAAtB;AAEP,aAAQ,kBAAa,CAAC,MAAD;AAFd;AAAsB;AASP;AAAf;AAEP,aAAQ,iBAAY,CAAC,KAAK,MA7kC2C,KA6kCjD,CAAY,IAAE,MAAF;AAFzB;AAAe;AAMC;AAAhB;AAEP,aAAQ,kBAAa,CAAC,KAAK,MAllC2C,KAklCjD,CAAY,IAAE,OAAF;AAF1B;AAAgB;AAMD;AAAf;AAEP,aAAQ,iBAAY,CAAC,KAAK,KAAN,CAAY,IAAE,MAAF;AAFzB;AAAe;AAMD;AAAd;AAEP,aAAQ,gBAAW,CAAC,KAAK,KAAN,CAAY,IAAE,KAAF;AAFxB;AAAc;AAMC;AAAf;AAEP,aAAQ,iBAAY,CAAC,KAAK,KAAN,CAAY,IAAE,MAAF;AAFzB;AAAe;AAME;AAAjB;AAEP,aAAQ,mBAAc,CAAC,KAAK,KAAN,CAAY,IAAE,QAAF;AAF3B;AAAiB;AAMA;AAAjB;AAEP,aAAQ,mBAAc,CAAC,KAAK,KAAN,CAAY,IAAE,QAAF;AAF3B;AAAiB;AAMK;AAAtB;AAEP,aAAQ,wBAAmB,CAAC,KAAK,KAAN,CAAY,IAAE,aAAF;AAFhC;AAAsB;AA4BV;AAAZ;AAGP;AAAI;AAAI;AAGR,QAAG,MACsB,IADL,CAAL,IAAK,IAAG,CAAC,MAAJ,CAAV,IAAoC,CAAN,KAAM,IAAG,CAAC,MAAJ,CAAX,IAC1B,CAAL,IAAK,IAAG,wBAAH,CADoD,IACzB,CAAN,KAAM,IAAG,wBAAH,CADpC;AAGE,wBAAa,CAAC,KAAM,MAAO;;;;WAAK;;;;WAAI;;;;UAAvB;AACb,eAAU;KAGV,eAAQ,gBAAK,CAA+B,CAA7B,QAAG,CAAC,kBAAY,CAAC,KAAK,KAAN,CAAb,CAA0B,GAAC,qBAAD,CAAiB,GAAC,sBAAjD;AAbR;AAAY;AAiBC;AAAb;AAGP;AAAG;AAAG;AAGN,QAAG,MACsB,IADL,CAAL,IAAK,IAAG,CAAC,MAAJ,CAAV,IAAoC,CAAN,KAAM,IAAG,CAAC,MAAJ,CAAX,IAC1B,CAAL,IAAK,IAAG,wBAAH,CADoD,IACzB,CAAN,KAAM,IAAG,wBAAH,CADpC;AAGE,wBAAa,CAAC,KAAM,MAAO;;;;WAAG;;;;WAAG;;;;UAApB;AACb,eAAW,CAAD,CAAC,GAAC,EAAD,CAAI,GAAE,CAAF;KAGf,eAAQ,gBAAK,CAA+B,CAA7B,QAAG,CAAC,kBAAY,CAAC,KAAK,KAAN,CAAb,CAA0B,GAAC,qBAAD,CAAiB,GAAC,uBAAjD;AAbR;AAAa;AAiBD;AAAZ;AAEP,aAA6D,UAArD,gBAAK,CAAC,QAAG,CAAC,kBAAY,CAAC,KAAK,KAAN,CAAb,CAA0B,GAAC,qBAA/B,CAAgD,GAAI,CAAJ;AAFtD;AAAY;AAMD;AAAX;AAEP,aAAQ,gBAAK,CAAC,QAAG,CAAC,kBAAY,CAAC,KAAK,KAAN,CAAb,CAA0B,GAAC,qBAA/B;AAFN;AAAW;AAMC;AAAZ;AAEP,aAAQ,gBAAK,CAA+B,CAA7B,QAAG,CAAC,kBAAY,CAAC,KAAK,KAAN,CAAb,CAA0B,GAAC,qBAAD,CAAiB,GAAC,EAAjD;AAFN;AAAY;AAME;AAAd;AAEP,aAAQ,gBAAK,CAA+B,CAA7B,QAAG,CAAC,kBAAY,CAAC,KAAK,KAAN,CAAb,CAA0B,GAAC,qBAAD,CAAiB,GAAC,IAAjD;AAFN;AAAc;AAMA;AAAd;AAEP,aAAQ,gBAAK,CAA+B,CAA7B,QAAG,CAAC,kBAAY,CAAC,KAAK,KAAN,CAAb,CAA0B,GAAC,qBAAD,CAAiB,GAAC,KAAjD;AAFN;AAAc;AAMK;AAAnB;AAEP,aAAQ,gBAAK,CAA+B,CAA7B,QAAG,CAAC,kBAAY,CAAC,KAAK,KAAN,CAAb,CAA0B,GAAC,qBAAD,CAAiB,GAAC,QAAjD;AAFN;AAAmB;AAKL;AAGrB;AAAI;AAAI;AAAI;AAAI;AAAI;AAGpB,QAAI,KAAK,GAAC,IAAV;AAEE,6BAAU,CAAC,KAAK;;;;WAAG;;;;WAAG;;;;UAAZ;AACV,6BAAU,CAAC,MAAM;;;;WAAG;;;;WAAG;;;;UAAb;;AAIV,6BAAU,CAAC,MAAM;;;;WAAG;;;;WAAG;;;;UAAb;AACV,6BAAU,CAAC,KAAK;;;;WAAG;;;;WAAG;;;;UAAZ;;AAEZ,cAAO,EAAE,GAAC,EAAV;AACA,QAAM,CAAF,EAAE,GAAC,EAAD,CAAK,IAAY,CAAL,CAAF,EAAE,KAAC,EAAD,CAAK,IAAO,CAAF,EAAE,GAAC,EAAD,CAAP,CAAvB,EA/tC6D,KA+tCpB,KA/tCoB,KA+tCpB,SAAG,CAAH,CAAzC;AACA,QAAI,EAAE,GAAC,EAAP,EAAoB,EAAJ,IAAO,EAAvB;AACA,eAAQ,EAAE,GAAC,EAAX;AACA,QAAI,EAAE,IAAE,EAAR;AACE,eAAM,EAAE,GAAC,EAAT;;AAGA,UAAI,YAAM,KAAC,CAAX;AACE,mBAAQ,EAAR;AAEA,YAzuCiE,MAyuCjE,KAzuCiE,MAyuCjE,SAAG,CAAH;AACF,eAA0B,CAAnB,iBAAY,CAAC,GAAG,EAAJ,CAAO,GAAC,EAAD,CAAI,GAAC,EAA/B;;AA5BmB;AAoCN;AAAR;AAEP,aAAQ,QAAG,CAAC,kBAAY,CAAC,KAAK,KAAN,CAAb,CAA0B,GAAC,sBAAD;AAF9B;AAAQ;AAMC;AAAT;AAEP,aAAQ,QAAG,CAAC,kBAAY,CAAC,KAAK,KAAN,CAAb,CAA0B,GAAC,uBAAD;AAF9B;AAAS;AAMD;AAAR;AAEP,aAAQ,QAAG,CAAC,kBAAY,CAAC,KAAK,KAAN,CAAb,CAA2B,GAAE,CAAF;AAF/B;AAAQ;AAMD;AAAP;AAEP,aAAQ,QAAG,CAAC,kBAAY,CAAC,KAAK,KAAN,CAAb;AAFJ;AAAO;AAMC;AAAR;AAEP,aAAQ,QAAG,CAAC,kBAAY,CAAC,KAAK,KAAN,CAAb,CAA0B,GAAC,EAAD;AAF9B;AAAQ;AAME;AAAV;AAEP,aAAQ,QAAG,CAAC,kBAAY,CAAC,KAAK,KAAN,CAAb,CAA0B,GAAC,IAAD;AAF9B;AAAU;AAMA;AAAV;AAEP,aAAQ,QAAG,CAAC,kBAAY,CAAC,KAAK,KAAN,CAAb,CAA0B,GAAC,KAAD;AAF9B;AAAU;AAMK;AAAf;AAEP,aAAQ,QAAG,CAAC,kBAAY,CAAC,KAAK,KAAN,CAAb,CAA0B,GAAC,QAAD;AAF9B;AAAe;AAgDR;AAAP;AAGP;AAAE;AAAE;AAAE;AAAE;AAAE;AAAE;AAEZ,uBAAc,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;SAAE;;;;SAAE;;;;SAAE;;;;SAAE;;;;QAApB;AACd,QAAG,CAAC,GAAC,cAAD;AACJ,QAAK,CAAD,CAAC,KAAC,CAAD,CAAe,IAAL,CAAD,CAAC,KAAC,EAAD,CAAN,IAAgB,CAAI,uBAAU,CAAC,CAAD,CAAvC,EACE,IAAG,EADL;AAEA,aAAQ,mBAAc,CAAC,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAb;AATf;AAAO;AAaA;AAAP;AAEP,aAAQ,YAAO,CAAC,OAAO,CAAR;AAFR;AAAO;AAMA;AAAP;AAEP,aAAQ,MAAM,GAAe,CAAd,cAAc,GAAC,CAAD,CAAf;AACd,2BAAiB,CAAC,OAAO;;;;QAAR;AAHV;AAAO;AAOA;AAAP;AAEP,aAAQ,YAAO,CAAC,OAAO,CAAR;AAFR;AAAO;AAMD;AAAN;AAEP,aAAQ,MAAM,GAAC,aAAD;AACd,2BAAiB,CAAC,OAAO;;;;QAAR;AAHV;AAAM;AAOA;AAAN;AAEP,aAAQ,WAAM,CAAC,OAAO,CAAR;AAFP;AAAM;AAMC;AAAP;AAEP,QAAG,MAAM,IAAE,CAAX;AACE,eAAQ,MAAM,GAAe,CAAd,cAAc,GAAC,EAAD,CAAf;AAEd,mBAAQ,qBAAe,CAAC,OAAO,cAAc,GAAC,EAAvB;AACzB,2BAAiB,CAAC,OAAO;;;;QAAR;AANV;AAAO;AAUA;AAAP;AAEP,aAAQ,YAAO,CAAC,OAAO,CAAR;AAFR;AAAO;AAME;AAAT;AAEP,QAAG,MAAM,IAAE,CAAX;AACE,eAAQ,MAAM,GAAiB,CAAhB,gBAAgB,GAAC,IAAD,CAAjB;AAEd,mBAAQ,qBAAe,CAAC,OAAO,gBAAgB,GAAC,IAAzB;AACzB,2BAAiB,CAAC,OAAO;;;;QAAR;AANV;AAAS;AAUA;AAAT;AAEP,aAAQ,cAAS,CAAC,OAAO,CAAR;AAFV;AAAS;AAMA;AAAT;AAEP,QAAG,MAAM,IAAE,CAAX;AACE,eAAQ,MAAM,GAAiB,CAAhB,gBAAgB,GAAC,KAAD,CAAjB;AAEd,mBAAQ,qBAAe,CAAC,OAAO,gBAAgB,GAAC,KAAzB;AACzB,2BAAiB,CAAC,OAAO;;;;QAAR;AANV;AAAS;AAUA;AAAT;AAEP,aAAQ,cAAS,CAAC,OAAO,CAAR;AAFV;AAAS;AAMK;AAAd;AAEP,QAAG,MAAM,IAAE,CAAX;AACE,eAAQ,MAAM,GAAsB,CAArB,qBAAqB,GAAC,QAAD,CAAtB;AAEd,mBAAQ,qBAAe,CAAC,OAAO,qBAAqB,GAAC,QAA9B;AACzB,2BAAiB,CAAC,OAAO;;;;QAAR;AANV;AAAc;AAUA;AAAd;AAEP,aAAQ,mBAAc,CAAC,OAAO,CAAR;AAFf;AAAc;AAWA;AAAd;AAEP,QAAG,CAAI,sBAAiB,CAAC,MAAO,OAAQ,KAAM,MAAO,QAAS,QAAS,aAAa;;;;QAA5D,CAAxB,EACE,2BAAoB,CAAC,MAAO,OAAQ,KAAM,MAAO,QAAS,QAAS,YAA/C,CADtB;AAFO;AAAc;AAOC;AAEtB,2BAAU,CAAC,OAAO,MAAM,QAAQ,QAAQ,YAA9B;AACV,QAAG,WAAK,KAAC,EAAT;AAEI,gBAAO,CAAP;AACA,6BAAU,CAAC,UAAK,CAAC,MAAD,EAAS,MAAM,OAAO,IAA5B;KAGZ,MAAA,uBAAU,CAAC,OAAO,MAAM,OAAO,IAArB;AATU;AAaE;AAAjB;AAGR;AAGC,aAAQ,0BAAa,CAAC,MAAM,OAAO,KAAK,MAAnB;AACrB,aAAQ,MAAO,IAAI,0BAAa,CAAC,MAAM,QAAQ,QAAQ,aAAa;;;;QAApC,CAAjB;AACf,QAAG,MAAH,EACE,WAAQ,4BAAe,CAAC,aAAO,GAAR,CAAvB,CADF;AARO;AAAiB;AAgBH;AAAd;AAEP,QAAG,CAAI,sBAAiB,CAAC,MAAM,YAAY;;;;SAAO,UAA1B,CAAxB,EACE,yBAAoB,CAAC,MAAM,YAAY,UAAnB,CADtB;AAFO;AAAc;AAOA;AAAd;AAEP,aAAU,mBAAc,CAAC,MAAM,YAAY,CAAnB;AAFjB;AAAc;AAMC;AAGtB;AACA;AACA;AACA;AAAO;AAGP,cAAO,WAAM,CAAC,MAAD,CAAb;AAEA,mBAAY,sBAAS,CAAC,MAAD,CAAQ,GAAC,CAA9B;AACA,QAAG,gBAAU,KAAC,CAAd,EACE,eAAY,CAAZ,CADF;AAEA,SAAI,iBAAY,CAAC,WAAD;AAChB,UAAK,gBAAK,CAAC,MAAM,GAAC,EAAR,CAAW,GAAC,CAAD;AACrB,YAAO,iBAAY,CAAC,EAAD;AAEnB,QAAI,KAAK,GAAC,CAAV;AACM,SAAJ,IAAQ,KAAK,GAAC,CAAD;AAEb,UAAI,GAAJ,IAAQ,CAAC,GAAC,KAAD;AACX,QAAI,GAAG,IAAE,CAAT;AACE,yBAAc,CAAC,EAAE,GAAC,CAAD,CAAG,MAAM,YAAY;;;;UAAxB;;AAGd,sBAAiB,UAAJ,GAAI,GAAI,CAAJ,CAAjB;AACA,UAAS,CAAJ,GAAI,GAAI,CAAJ,CAAM,KAAE,CAAjB,EAx9CoE,WAy9ClE,KAz9CkE,WAy9ClE,SAAG,CAAH,CADF;AAEA,UAAI,iBAAW,GAAC,EAAhB;AAEE,gBAAO;AACP,YAAG,uBAAU,CAAC,WAAD,CAAb;AAEM,eAAJ,IAAG;AACH,cAAI,KAAK,GAAC,CAAV,EACE,QAAO,CADT;SAHF;AAMA,YAAI,KAAK,GAAC,CAAV;AAn+CqD,eAq+CnD,KAr+CmD,KAq+CnD,SAAG,CAAH;AACA,0BAAa,CAAb;SAHF;OATF;;AA7BoB;AAiDE;AAAjB;AAGP;AACA;AAGA,aAAQ,oBAAe,CAAC,MAAM,YAAY,UAAnB;AACvB,QAAG,MAAH;AAEE,iBAAQ,uBAAU,CAAC,MAAM,EAAE,CAAT,CAAW,GAAG,CAAD,CAAC,GAAa,CAAX,WAAW,GAAC,CAAD,CAAb,CAAhC;AACA,YAAK,iBAAY,CAAC,YAAD;AACjB,aAAM,UAAU,GAAC,GAAD;AAChB,UAAI,GAAG,GAAC,CAAR,EACM,IAAJ,IAAS,CADX;AAEA,iBAAQ,YAAM,GAAC,IAAf;KAPF;AARO;AAAiB;AAoBA;AAAjB;AAEP,aAAQ,sBAAiB,CAAC,MAAM,YAAY,OAAO,CAA1B;AAFlB;AAAiB;AASJ;AAAb;AAEP,QAAG,CAAI,qBAAgB,CAAC,MAAM,WAAW;;;;QAAlB,CAAvB,EACE,wBAAmB,CAAC,MAAM,UAAP,CADrB;AAFO;AAAa;AAOC;AAGrB;AAAE;AAGF,2BAAU,CAAC,OAAO,MAAM;;;;SAAE;;;;QAAhB;AACV,mBAAY,gBAAK,CAAC,MAAM,GAAC,uBAAU,CAAC,YAAM,EAAE,CAAT,CAAlB,CAA8B,GAAC,CAAhD;AAPqB;AAWE;AAAhB;AAEP,aAAmB,CAAV,UAAU,KAAE,CAAF,CAAK,IAAe,CAAV,UAAU,IAAE,gBAAY,CAAW,CAAV,uBAAU,CAAC,KAAD,CAAX,CAAd,CAAf;AACxB,QAAG,MAAH,EACE,WAA6B,CAArB,uBAAU,CAAC,MAAM,EAAE,CAAT,CAAW,GAAC,UAAD,CAAW,GAAC,CAAzC,CADF;AAHO;AAAgB;AAaG;AAAnB;AAEP,QAAG,CAAI,2BAAsB,CAAC,MAAM,OAAO,aAAa,WAAW;;;;QAAtC,CAA7B,EACE,8BAAyB,CAAC,MAAM,OAAO,aAAa,UAA3B,CAD3B;AAFO;AAAmB;AAMC;AAG3B;AAAE;AAAK;AACP;AACA;AAEA,2BAAU,CAAC,OAAO,MAAM,OAAO;;;;QAArB;AACV,mBAAY,iBAAY,CAAC,MAAD,CAAxB;AACA,UAAK,uBAAU,CAAC,YAAM,aAAO,CAAd;AACf,WAAM,iBAAY,CAAC,GAAD;AAClB,UAAM,CAAD,CAAC,GAAC,CAAD,CAAE,GAAC,IAAD;AACR,QAAG,IAAI,GAAC,CAAR,EACM,GAAJ,IAAQ,CADV;AAGA,QAAG,GAAG,IAAE,CAAR;AACE,8BAAmB,CAAC,GAAG,GAAC,CAAD,CAAG,MAAM,OAAO,aAAa;;;;UAAjC;;AAGnB,uBAAmB,UAAJ,GAAI,GAAI,CAAJ,CAAnB;AACA,UAAQ,CAAJ,GAAI,GAAI,CAAJ,CAAM,KAAE,CAAhB,EAnjDkF,YAojDhF,KApjDgF,YAojDhF,SAAG,CAAH,CADF;AAEA,aAAM,iBAAY,CAAC,gBAAW,CAAC,YAAM,YAAP,CAAZ;AAElB,UAAQ,CAAJ,IAAI,GAAC,CAAD,CAAI,IAAmC,CAAH,CAA1B,iBAAY,CAAC,YAAM,YAAP,CAAc,GAAC,CAAD,CAAG,GAAC,IAAD,CAA/C;AAEE,yBAAc,CAAd;AAzjDkE,cA0jDlE,KA1jDkE,MA0jDlE,SAAG,CAAH;AACA,YAAI,YAAM,KAAC,EAAX;AAEE,qBAAQ,CAAR;AA7jDwD,eA8jDxD,KA9jDwD,KA8jDxD,SAAG,CAAH;SAHF;OAJF;;AAxByB;AAqCE;AAAtB;AAGP;AACA;AAGA,aAAQ,yBAAoB,CAAC,MAAM,OAAO,aAAa,UAA3B;AAC5B,QAAG,MAAH;AAEE,iBAAQ,uBAAU,CAAC,MAAM,OAAO,CAAd,CAAlB;AACA,YAAuB,CAAF,CAAH,CAAZ,YAAY,GAAC,CAAD,CAAG,GAAC,CAAD,CAAE,GAAC,UAAD,CAAW,GAAC,CAAD;AAElC,UAAG,iBAAY,CAAC,YAAD;AACX,SAAJ,IAAQ,CAAC,GAAC,CAAD;AACT,UAAK,CAAD,CAAC,KAAC,CAAD,CAA+B,IAAd,CAAD,CAAC,KAAC,CAAD,CAAL,IAAwB,CAAD,CAAC,KAAC,CAAD,CAAzC,EACM,GAAJ,IAAQ,CADV;AAEA,iBAAQ,YAAM,GAAC,GAAf;KATF;AARO;AAAsB;AAyBD;AAArB;AAER,aAAa,CAAH,GAAG,GAAC,EAAD,CAAkB,IAAL,CAAH,GAAG,GAAC,EAAD,CAAR,IAAsB,CAAJ,IAAI,GAAC,IAAD,CAAT;AAC/B,QAAG,MAAH,EACE,SAA6E,CAA/C,CAAL,IAAK,GAAC,OAAD,CAA+C,GAAzB,CAAJ,GAAI,GAAC,KAAD,CAAd,GAAkC,CAAJ,GAAI,GAAC,IAAD,CAAd,GAAoB,IAAD,CAAM,GAAC,QAApF,CADF;AAHQ;AAAqB;AAOH;AAAlB;AAEN,QAAG,CAAI,0BAAqB,CAAC,KAAK,OAAO,OAAO,YAAY;;;;QAAhC,CAA5B,EACE,MAAM,0BAAa,QAAC,aAAS,CAAC,4DACJ,mBAAC,OAAK,SAAO,SAAO,aAApB,CADG,CAAT,CADtB;AAFM;AAAkB;AAqBR;AAAV;AAGP,aAAU,mBAAc,CAAC,OAAO,MAAM,MAAK,MAAK,MAAK,MAAK,MAAK,KAAvC;AAHjB;AAAU;AAOC;AAAX;AAEP,aAAU,mBAAc,CAAC,OAAO,MAAK,OAAO,MAAK,MAAK,MAAK,MAAK,KAAxC;AAFjB;AAAW;AAMF;AAAT;AAEP,aAAU,mBAAc,CAAC,OAAO,MAAK,MAAK,KAAK,MAAK,MAAK,MAAK,KAAtC;AAFjB;AAAS;AAMC;AAAV;AAEP,aAAU,mBAAc,CAAC,OAAO,MAAK,MAAK,MAAK,MAAM,MAAK,MAAK,KAAvC;AAFjB;AAAU;AAME;AAAZ;AAEP,aAAU,mBAAc,CAAC,OAAO,MAAK,MAAK,MAAK,MAAK,QAAQ,MAAK,KAAzC;AAFjB;AAAY;AAMA;AAAZ;AAEP,aAAU,mBAAc,CAAC,OAAO,MAAK,MAAK,MAAK,MAAK,MAAK,QAAQ,KAAzC;AAFjB;AAAY;AAMK;AAAjB;AAEP,aAAU,mBAAc,CAAC,OAAO,MAAK,MAAK,MAAK,MAAK,MAAK,MAAK,YAAtC;AAFjB;AAAiB;AAMP;AAAV;AAEP,aAAU,mBAAc,CAAC,OAAO,MAAM,OAAO,KAAK,MAAK,MAAK,MAAK,KAAzC;AAFjB;AAAU;AAMA;AAAV;AAEP,aAAU,mBAAc,CAAC,OAAO,MAAK,MAAK,MAAK,MAAM,QAAQ,QAAQ,YAA7C;AAFjB;AAAU;AAMI;AAAd;AAEP,QAAG,CAAI,sBAAiB,CAAC,OAAO,MAAM,OAAO,KAAK,MAAM,QAAQ,QAAQ,aAAa;;;;QAA7D,CAAxB,EACE,yBAAoB,CAAC,MAAM,OAAO,KAAK,MAAM,QAAQ,QAAQ,aAAa,MAAtD,CADtB;AAFO;AAAc;AAOG;AAAjB;AAEK;AAGV,UAAI,GAAG,KAAE,KAAT,EACE,OAAI,GAAJ,CADF;AAHU;AAQZ;AAAE;AAAE;AAAE;AAAE;AAAE;AAAE;AAGZ,uBAAc,CAAC,OAAO;;;;SAAE;;;;SAAE;;;;SAAE;;;;SAAE;;;;SAAE;;;;SAAE;;;;QAApB;AACd,MAAE,CAAC;;;;SAAE,KAAH;AACF,MAAE,CAAC;;;;SAAE,MAAH;AACF,MAAE,CAAC;;;;SAAE,IAAH;AACF,MAAE,CAAC;;;;SAAE,KAAH;AACF,MAAE,CAAC;;;;SAAE,OAAH;AACF,MAAE,CAAC;;;;SAAE,OAAH;AACF,MAAE,CAAC;;;;SAAG,YAAJ;AACF,aAAQ,sBAAiB,CAAC,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,GAAG,OAAhB;AArBlB;AAAiB;AA6BF;AAAf;AAEP,QAAG,iBAAY,CAAC,EAAE,CAAH,CAAf;AACE,eAAQ;AACL,cAAG,gBAAK,CAAC,CAAD,CAAG,KAAC,gBAAK,CAAC,CAAD,CAAjB;AAEH,UAAG,QAAG,CAAC,eAAI,CAAC,CAAD,CAAL,CAAS,GAAC,QAAG,CAAC,eAAI,CAAC,CAAD,CAAL,CAAnB;AACE,iBAAQ;AAER,qBAAQ;;AAIV,UAAG,CAAC,GAAC,CAAL;AACE,iBAAQ;AAER,qBAAQ;;AAhBL;AAAe;AAqBJ;AAAX;AAEP,QAAG,aAAQ,CAAC,EAAE,CAAH,CAAX;AACE,eAAQ;AACL,cAAG,CAAC,GAAC,CAAL;AACH,eAAQ;AAER,mBAAQ;AAPH;AAAW;AAWA;AAAX;AAGP,QAAG,aAAQ,CAAC,EAAE,CAAH,CAAX;AACE,eAAQ;AACL,cAAG,eAAI,CAAC,CAAD,CAAG,GAAC,eAAI,CAAC,CAAD,CAAf;AACH,eAAQ;AAER,mBAAQ;AARH;AAAW;AAYC;AAAZ;AAEP,aAAQ,QAAG,CAAC,CAAC,GAAC,CAAH,CAAK,GAAC,qBAAD;AAFT;AAAY;AAMJ;AAAR;AAEP,aAAQ,gBAAK,CAAC,CAAD,CAAG,KAAC,gBAAK,CAAC,CAAD,CAAN;AAFT;AAAQ;AAMA;AAAR;AAGP,aAAQ,eAAI,CAAC,QAAG,CAAC,CAAC,GAAC,CAAH,CAAJ,CAAU,GAAC,qBAAD;AAHf;AAAQ;AAaI;AAAZ;AAGP,aAAQ,0BAAoB,CAAC,kBAAa,CAAC,MAAD,CAAd;AAHrB;AAAY;AAOW;AAG9B;AAGA,2BAAU,CAAC,OAAO,MAAM,OAAO;;;;QAArB;AACV,mBAAY,iBAAY,CAAC,MAAD,CAAxB;AACA,sBAAe,0BAAoB,CAAC,CAAD,CAAnC;AAR8B;AAYD;AAAtB;AAEP,QAAG,CAAI,8BAAyB,CAAC,MAAM,OAAO,cAAc,WAAW;;;;QAAvC,CAAhC,EACE,iCAA4B,CAAC,MAAM,OAAO,cAAc,UAA5B,CAD9B;AAFO;AAAsB;AAOG;AAAzB;AAGP;AAAI;AAGJ,UAAK,iBAAY,CAAC,uBAAU,CAAC,MAAM,OAAO,CAAd,CAAX;AACjB,QAAe,CAAX,CAAD,CAAC,GAAC,UAAD,CAAW,GAAC,GAAD,CAAI,GAAE,CAAD,CAAC,GAAe,CAAb,aAAa,GAAC,CAAD,CAAf,CAAF;AACnB,QAAG,GAAG,GAAC,UAAP,EACE,IAAG,CAAC,GAAC,CADP;AAEA,aAAQ,0BAAa,CAAC,MAAM,OAAO,EAAE,MAAhB;AAVd;AAAyB;AAmBJ;AAEZ;AAAP;AAGP,UAAG,GAAG,KAAC,CAAP;AACA,UAAI,GAAG,KAAE,KAAT;AACE,iBAAQ,mBAAM,CAAC,OAAO,mBAAO,GAAC,OAAD,QAAU,KAAjB,CAAR;AACX,gBAAI,SAAS,KAAC,CAAd;AACH,iBAAQ;AAER,qBAAQ,mBAAM,CAAC,OAAO,mBAAO,GAAC,OAAD,QAAU,KAAjB,CAAR;AATT;AAAO;AAahB;AAAE;AAAE;AAAE;AAAE;AAAE;AAAE;AACZ;AAGA,uBAAc,CAAC,UAAU;;;;SAAE;;;;SAAE;;;;SAAE;;;;SAAE;;;;SAAE;;;;SAAE;;;;QAAvB;AACd,UAAK,OAAO,CAAC,MAAM,EAAE,MAAT;AACZ,UAAK,GAAgC,GAA5B,2BAAc,cAAf,GAA8B,OAAO,CAAC,OAAO,EAAE,IAAV,CAAR;AACrC,UAAK,GAAgC,GAA5B,2BAAc,cAAf,GAA8B,OAAO,CAAC,KAAK,EAAE,IAAR,CAAR;AACrC,UAAK,GAAO,GAAH,GAAD,GAAK,OAAO,CAAC,MAAM,EAAE,IAAT,CAAR;AACZ,UAAK,GAAgC,GAA5B,2BAAc,cAAf,GAA8B,OAAO,CAAC,QAAQ,EAAE,IAAX,CAAR;AACrC,UAAK,GAAgC,GAA5B,2BAAc,cAAf,GAA8B,OAAO,CAAC,QAAQ,EAAE,IAAX,CAAR;AACrC,UAAK,GAAmC,GAA/B,2BAAc,iBAAf,GAAiC,OAAO,CAAC,aAAa,GAAG,KAAjB,CAAR;AACxC,UAAM,0BAAa,QAAC,aAAS,CAAC,oDAAqB,mBAAC,MAAD,CAAtB,CAAT;AA3BQ;AA+BA;AAE5B,6BAAoB,CAAC,MAAM,OAAO,KAAK,MAAM,QAAQ,QAAQ,aAAa,CAAtD;AAFQ;AAMA;AAE5B,UAAM,0BAAa,QAAC,aAAS,CAAC,mDAAoB,mBAAC,QAAM,cAAY,YAAnB,CAArB,CAAT;AAFQ;AAMD;AAE3B,UAAM,0BAAa,QAAC,aAAS,CAAC,oDAAqB,mBAAC,QAAM,YAAP,CAAtB,CAAT;AAFO;AAMM;AAEjC,UAAM,0BAAa,QAAC,aAAS,CAAC,wDAAyB,mBAAC,QAAM,SAAO,eAAa,YAA3B,CAA1B,CAAT;AAFa;AAMG;AAGpC,UAAM,0BAAa,QAAC,aAAS,CAAC,2DAA4B,mBAAC,QAAM,SAAO,gBAAc,YAA5B,CAA7B,CAAT;AAHgB;AAeT;AAApB;AAEP;AAAI;AAAM;AACV;AAAE;AAAE;AAEJ,2BAAW,CAAE,OAAQ;;;;SAAM;;;;SAAO;;;;QAAvB;AACX,QAAgB,UAAR,CAAF,EAAE,GAAC,KAAD,CAAQ,GAAI,EAAJ;AAChB,QAAU,CAAL,IAAK,GAAE,IAAF,CAAO,GAAE,CAAF;AACjB,QAAW,CAAN,KAAM,GAAK,CAAF,EAAE,GAAC,CAAD,CAAL,CAAS,GAAE,CAAF;AACpB,aAC0C,CAAd,CAAd,CAAZ,CADQ,GACR,GADyB,UAAJ,CAAF,CAAH,GAAG,GAAC,CAAD,CAAE,GAAC,CAAD,CAAI,GAAI,CAAJ,CAAb,GAA0B,CAAH,GAAG,GAAC,CAAD,CAAN,GAC3B,UAAF,CAAE,GAAI,CAAJ,CAAL,CAAY,GAAK,UAAF,CAAE,GAAI,GAAJ,CAAL,CAAc,GAAK,UAAF,CAAE,GAAI,GAAJ,CAAL,CAAc,GAAE,OAAF,CAAU,GAAE,eAAI,CAAC,MAAD,CAAN;AAV7C;AAAoB;AAcA;AAApB;AAEP,QAAG,CAAI,4BAAuB,CAAC,OAAQ;;;;QAAT,CAA9B,EACE,MAAM,0BAAa,QAAC,aAAS,CAAC,kDAAoB,mBAAC,QAAD,CAArB,CAAT,CADtB;AAFO;AAAoB;AAOG;AAAvB;AAEP;AAAE;AAAE;AAAE;AAAE;AAAE;AACV;AAAI;AAAM;AAEV,QAAK,gBAAK,CAAC,MAAO,GAAE,OAAV;AACV,QAAe,UAAL,CAAH,CAAD,CAAC,GAAC,CAAD,CAAG,GAAE,CAAF,CAAK,GAAI,MAAJ;AACf,QAAK,CAAE,GAAY,UAAH,CAAN,MAAM,GAAC,CAAD,CAAG,GAAI,CAAJ,CAAZ;AACP,QAAe,UAAL,CAAH,CAAD,CAAC,GAAC,CAAD,CAAG,GAAE,CAAF,CAAK,GAAI,IAAJ;AACf,QAAK,CAAE,GAAU,UAAH,CAAJ,IAAI,GAAC,CAAD,CAAG,GAAI,CAAJ,CAAV;AACP,QAAa,UAAJ,CAAF,CAAD,CAAC,GAAC,CAAD,CAAE,GAAC,CAAD,CAAI,GAAI,GAAJ;AACb,UAAS,CAAF,CAAE,GAAe,UAAL,CAAH,CAAH,GAAG,GAAC,CAAD,CAAG,GAAE,CAAF,CAAK,GAAI,CAAJ,CAAf,CAAsB,GAAE,CAAF;AAC/B,YAAW,CAAF,CAAE,GAAE,CAAF,CAAI,GAAK,CAAH,EAAG,GAAO,UAAF,CAAE,GAAI,EAAJ,CAAP,CAAL;AACf,WAAoB,CAAJ,CAAJ,CAAH,GAAG,GAAC,CAAD,CAAI,GAAE,CAAF,CAAI,GAAE,IAAF,CAAO,GAAM,UAAF,CAAE,GAAI,EAAJ,CAAN;AAC3B,aAAU,0BAAc,CAAE,KAAM,MAAO,IAAK,SAApB;AACxB,QAAG,MAAH,EAEE,cAAW,eAAS,GAAC,eAAI,CAAC,MAAM,GAAC,GAAR,CAAzB,CAFF;AAfO;AAAuB;AAoBK;AAA5B;AAEP,aAAU,yBAAoB,CAAC,MAAD,CAAS,GAAE,SAAF;AAFhC;AAA4B;AAMA;AAA5B;AAEP,aAAU,yBAAoB,CAAC,MAAO,GAAE,SAAV;AAFvB;AAA4B;AAMG;AAA/B;AAEP,aAAQ,4BAAuB,CAAC,MAAO,GAAE,SAAF,CAAa,SAArB;AAFxB;AAA+B;AAWjB;AAAd;AAGP,aAAQ,UAAK,CAAC,kBAAY,CAAC,sBAAiB,CAAC,OAAO,CAAR,EAAW,KAA7B,CAAuC,GAAC,KAArD;AAHN;AAAc;AAOA;AAAd;AAEP,QAAG,UAAH;AACE,eAAU,cAAS,CAAC,MAAW,MAAZ;AAEnB,mBAAU,cAAS,SAAC,EAAK,YAAY,CAAC,cAAS,CAAC,MAAW,MAAZ,CAAV;AALhC;AAAc;AAWhB,cAAC,KAAW,GAAH,EAAF,GAAO,IAAF;AAFQ;AAAlB;AAIP,aAAQ,MAAO,GAAE,UAAF;AAJR;AAAkB;AAWL;AAAb;AAEP;AAEA,YAAO,mBAAc,CAAE,KAAM,EAAG,EAAG,EAAG,EAAG,EAAG,CAAvB;AACrB,aAAQ,mBAAc,CAAE,MAAO,MAAT;AALf;AAAa;AASA;AAAb;AAEP;AAEA,YAAO,mBAAc,CAAE,KAAM,EAAG,EAAG,EAAG,EAAG,EAAG,CAAvB;AACrB,aAAQ,cAAS,CAAE,MAAO,MAAT;AALV;AAAa;AAWf,gBAAC,KAAW,GAAH,EAAF,GAAO,IAAF;AAFQ;AAAlB;AAIP,aAAQ,MAAO,GAAE,UAAF;AAJR;AAAkB;AAOG;AAArB;AACL;AAAK;AAAM;AAAI;AAAK;AAAI;AAAI;AAC5B;AAEF,uBAAc,CAAC,OAAO;;;;SAAK;;;;SAAM;;;;SAAI;;;;SAAK;;;;SAAI;;;;SAAI;;;;QAApC;AACd,aAAQ,CAAC;AACT,aAAQ,MAAM,GAAM,CAAL,IAAK,GAAI,GAAJ,CAAN;AACd,aAAQ,MAAO,IAAI,CAAJ;AACf,aAAQ,MAAM,GAAC,KAAD;AACd,aAAQ,MAAO,IAAI,CAAJ;AACf,aAAQ,MAAM,GAAC,GAAD;AACd,aAAQ,MAAO,IAAI,EAAJ;AACf,SAAI;AACJ,SAAI,EAAG,IAAI,CAAJ;AACP,SAAI,EAAE,GAAC,GAAD;AACN,SAAI,EAAG,IAAI,CAAJ;AACP,SAAI,EAAE,GAAK,UAAJ,GAAI,GAAI,CAAJ,CAAL;AACN,aAAQ,MAAM,GAAK,CAAH,EAAG,GAAI,MAAJ,CAAL;AAjBP;AAAqB;AAoBA;AAArB;AACL;AAAK;AAAM;AAAI;AAAK;AAAI;AAE1B,UAAa,CAAP,MAAO,GAAI,EAAJ,CAAQ,GAAE,CAAF;AACrB,aAAQ,MAAO,KAAI,CAAJ;AACf,UAAK,MAAO,GAAI,EAAJ;AACZ,aAAQ,MAAO,KAAI,CAAJ;AACf,WAAM,MAAO,GAAI,EAAJ;AACb,aAAQ,MAAO,KAAI,CAAJ;AACf,UAAK,MAAO,GAAI,EAAJ;AACZ,aAAQ,MAAO,KAAI,CAAJ;AACf,YAAO,MAAO,GAAI,EAAJ;AACd,aAAQ,MAAO,KAAI,CAAJ;AACf,WAAM,MAAM,GAAC,IAAD;AACZ,aAAQ,mBAAc,CAAC,KAAK,MAAM,IAAI,KAAK,IAAI,IAAI,CAA7B;AAdf;AAAqB;AAyCD;AAApB;AAGP,aAAQ,2BAAoB,CAAC,GAAG,CAAC,0BAAL;AAHrB;AAAoB;AAMA;AAApB;AAGP,QAAI,QAAS,GAAE,CAAf;AACE,eAAU,EAAG,GAAE,uBAAU,CAAU,UAAT,QAAS,GAAI,EAAJ,EAAQ,QAAS,GAAI,EAAJ,CAAQ,EAAG,CAAtC,CAAZ;AACV,cAAI,QAAS,GAAE,CAAf;AACH,eAAU,EAAG,GAAE,uBAAU,CAAe,UAAd,QAAG,CAAC,QAAD,CAAW,GAAI,EAAJ,EAAQ,QAAG,CAAC,QAAD,CAAW,GAAI,EAAJ,CAAQ,EAAG,CAAhD,CAAZ;AAEb,mBAAU;AARL;AAAoB;AAWA;AAApB;AAGP,aAAQ,2BAAoB,CAAC,GAAG,CAAC,0BAAL;AAHrB;AAAoB;AAMA;AAApB;AAGP,QAAI,QAAS,GAAE,CAAf;AACE,eAAU,EAAG,GAAE,uBAAU,CAAU,UAAT,QAAS,GAAI,EAAJ,EAAQ,QAAS,GAAI,EAAJ,CAAQ,EAAG,CAAtC,CAAZ;AACV,cAAI,QAAS,GAAE,CAAf;AACH,eAAU,EAAG,GAAE,uBAAU,CAAe,UAAd,QAAG,CAAC,QAAD,CAAW,GAAI,EAAJ,EAAQ,QAAG,CAAC,QAAD,CAAW,GAAI,EAAJ,CAAQ,EAAG,CAAhD,CAAZ;AAEb,mBAAU;AARL;AAAoB;AAcH;AAAjB;AAGP,aAAQ,2BAAc,CAAC,qCAAqC,KAAtC;AAHf;AAAiB;AAMJ;AAAb;AAEP,aAAQ,2BAAc,CAAC,aAAa,KAAd;AAFf;AAAa;AAKA;AAAb;AAGP,aAAQ,2BAAc,CAAC,qBAAqB,KAAtB;AAHf;AAAa;AAaZ;AAIP,WAAW,GAAG,EAAE,EAAE,EAAE,GAAG,GAAG,GAAG,EAA7B;AAX0B;AAApB;AAcP;AAAI;AAAI;AAAI;AAAI;AAAK;AAAI;AAGzB,QAAG,iBAAI,CAAC,MAAD,CAAS,KAAE,EAAlB;AAEE,eAAQ;AACR,oBAAW,CAAX;KAHF;AAKA,SAAI,wBAAW,CAAC,eAAI,CAAC,OAAO,CAAC,CAAC,eAAD,EAAS,CAAlB,EAAqB,CAAC,CAA3B;AACf,SAAI,wBAAW,CAAC,eAAI,CAAC,OAAO,CAAC,CAAC,gBAAD,EAAU,CAAnB,EAAsB,CAAC,CAA5B;AACf,SAAI,wBAAW,CAAC,eAAI,CAAC,OAAO,CAAC,CAAC,cAAD,EAAQ,CAAjB,EAAoB,CAAC,CAA1B;AACf,QAAW,MAAD,OAAQ,IAAE,CAAC,CAAC,eAAD,CAArB;AAEE,WAAI,wBAAW,CAAC,eAAI,CAAC,OAAO,CAAC,CAAC,eAAD,EAAS,CAAlB,EAAqB,CAAC,CAA3B;AACf,YAAK,wBAAW,CAAC,eAAI,CAAC,OAAO,CAAC,CAAC,iBAAD,EAAW,CAApB,EAAuB,CAAC,CAA7B;AAEhB,UAAW,MAAD,OAAQ,IAAE,CAAC,CAAC,cAAD,CAArB;AACE,aAAI,wBAAW,CAAC,eAAI,CAAC,OAAO,CAAC,CAAC,cAAD,EAAQ,CAAjB,EAAoB,CAAC,CAA1B;AAEf,iBAAI;AACN,UAAW,MAAD,OAAQ,IAAE,CAAC,CAAC,eAAD,CAArB,EACE,MAAO,wBAAW,CAAC,eAAI,CAAC,OAAO,CAAC,CAAC,eAAD,EAAS,CAAlB,EAAqB,CAAC,CAA3B,CADpB;;AAKA,WAAI;AACJ,YAAK;AACL,WAAI;AACJ,YAAK;;AAEP,aAAW,CAAF,EAAE,IAAE,CAAF,CAAkE,IAAtD,CAAF,EAAE,IAAE,CAAF,CAAP,IAAmB,CAAF,EAAE,IAAE,CAAF,CAAP,IAAmB,CAAF,EAAE,IAAE,CAAF,CAAP,IAAoB,CAAH,GAAG,IAAE,CAAF,CAAR,IAAoB,CAAF,EAAE,IAAE,CAAF,CAAP,IAAoB,CAAH,GAAG,IAAE,CAAF,CAAR;AAC7E,QAAG,CAAI,MAAP;AACE,oBAAW,CAAX;AAGA,cAAO,CAAH,EAAG,KAAE,CAAF,CAAiB,IAAL,CAAH,EAAG,KAAE,CAAF,CAAP,IAAmB,CAAH,EAAG,KAAE,CAAF,CAA/B;AACE,oBAAW,uBAAU,CAAC,GAAI,IAAK,GAAI,CAAd,CAArB;AAEA,wBAAW,uBAAU,CAAC,GAAI,GAAI,EAAT,CAAa,GAAE,uBAAU,CAAC,GAAI,IAAK,GAAI,GAAd,CAA9C;AApDG;AAAoB;AAuDH;AAAjB;AAGP,QAAG,CAAI,yBAAoB,CAAC,OAAO;;;;QAAR,CAA3B,EACE,SAAQ,CADV;AAHO;AAAiB;AAunBK;AAAtB;AAEP;AAEA,uBAAc,gCAAmB,CAAC,SAAD,CAAjC;AACA,aAAU,UAAU;AACpB,aAAkB,CAAP,MAAO,GAAE,QAAF,CAAe,GAAE,UAAU,KAAZ;AAN1B;AAAsB;AASJ;AAAlB;AAEP,aAAU,UAAK,CAAC,QAAG,CAAC,WAAM,CAAC,KAAD,CAAP,CAAgB,GAAE,QAAtB;AAFR;AAAkB;AAlqFT;;;AAEd;AACA;AACA;AACA;AAAK;AACL;AAAY;AACZ;AAAG;AAAG;AACN;AARc;AAmjEwB;AAGxC,0BAAc,CAAC,mBAAM,CAAC,oBAAc,mBAAY,EAAX,gBAAW,GAAC,CAAD,CAAG,WAAf,CAAf,CAAP;AAH0B;AA+LL;AAGnC,uBAAY,CAAC,2BAAc,gBAAf;AACZ,uBAAY,CAAC,IAAD;AACZ,uBAAY,CAAC,2BAAc,eAAf;AACR,sBAAJ,IAAG;AANgC;AAzLA;AAEnC,UAAG,aAAQ,KAAC,MAAZ,EAAwB,MAAxB;AACA,sBAAU;AACV,yBAAoB,aAAD;AAJgB;AAOH;AAEhC,UAAG,UAAK,KAAC,MAAT,EAAqB,MAArB;AACA,mBAAO;AACP,kBAAa,UAAD;AAJoB;AAOI;AAAZ;AAGxB;AAAE;AACF;AAGA,eAAQ;AACR,WAAI;AACJ,UAAG,aAAQ,QAAC,oBAAD;AACX,aAAkB,CAAX,gBAAW,IAAE,gBAAF,CAAe,IAA0B,CAArB,aAAQ,QAAC,oBAAD,CAAa,KAAC,CAAD,CAA3D,EACM,gBAAJ,IAAG;AACL,UAAG,UAAK,QAAC,aAAD;AACR,aAAW,CAAJ,IAAI,GAAC,CAAD,CAAqB,IAAR,CAAJ,SAAI,IAAE,SAAF,CAAT,IAAwB,CAAF,cAAE,IAAG,cAAI,KAAH,GAAK,EAAN,CAAH,CAAvC;AAEE,iBAAmB,CAAJ,CAAN,MAAM,GAAC,EAAD,CAAI,GAAK,CAAD,aAAJ,CAAO,GAAC,EAAD;AACtB,iBAAJ,IAAG;AACC,YAAJ,IAAG;AACH,YAAG,SAAI,IAAE,SAAT,EACE,IAAG,UAAK,QAAC,aAAD,CADV;;AAGF,UAAI,EAAE,KAAC,SAAP,EACE,oBAAc,CAAC,mBAAM,CAAC,2BAAqB,mBAAC,IAAE,IAAH,CAAtB,CAAP,CADhB;AArBwB;AAAY;AAyEK;AAAjB;AAGxB;AACA;AAGA,eAAQ;AACR,UAAG;AACH,UAAG,aAAQ,QAAC,KAAD;AACX,aAAQ,CAAD,CAAC,IAAE,gBAAF,CAAe,IAAgB,CAAX,aAAQ,QAAC,KAAD,CAAG,KAAC,CAAD,CAAvC,EACM,CAAJ,IAAG;AACL,eAAQ,CAAC,GAAC,MAAD;AAZe;AAAiB;AAhBP;AAGlC;AAGA,UAAI,SAAI,IAAE,SAAV;AACE,YAAG,UAAK,QAAC,aAAD;AAER,gBAAG;AACL,UAAI,CAAC,KAAE,CAAP,EACE,oBAAc,CAAC,mBAAM,CAAC,mBAAa,mBAAC,IAAE,IAAa,EAAX,gBAAW,GAAC,mBAAD,CAAgB,WAAhC,CAAd,CAAP,CADhB;AAEI,sBAAJ,IAAG;AACC,eAAJ,IAAG;AAb+B;AAhCA;AAAV;AAGxB;AAAE;AAGF,eAAQ,CAAC;AACT,UAAO,WAAC,MAAD;AACP,UAAG;AACH,aAAQ,CAAD,CAAC,IAAE,CAAF,CAAK,IAAW,CAAN,MAAM,KAAC,CAAC,CAAF,CAAxB;AAEE,YAAG,qBAAQ,CAAC,eAAI,CAAC,MAAM,EAAS,MAAM,CAAC,CAAD,CAAP,OAAf,EAA4B,MAAM,CAAC,CAAD,CAAvC,CAAX,EACE,SAAQ,CADV;AAEI,SAAJ,IAAG;;AAbmB;AAAU;AAiBD;AAAT;AAGxB,eAAQ,eAAU,CAAC,OAAO,eAAI,CAAC,WAAM,UAAS,CAAJ,SAAI,GAAC,SAAD,CAAK,GAAC,CAAtB,CAAZ;AAClB,UAAG,MAAM,KAAC,CAAC,CAAX;AACE;;AAGI,iBAAJ,IAAgB,MAAM,CAAC,MAAD,CAAP,OAAgB,GAAC,CAAD;AAC3B,wBAAJ,IAAuB,MAAM,CAAC,MAAD,CAAP,OAAgB,GAAC,CAAD;AAClC,cAAJ,IAAG;;AAVmB;AAAS;AA8CI;AAGrC;AACA;AAGA,UAAG;AACH,aAAM;AACN,4BAAgB;AAChB,sBAAU;AACV,yBAAoB,QAAD;AACnB;AACE,kBAnpEkC,CAAC;AAkpErC;AAGE,wBAAU;AACV,2BAAoB,QAAD;AACnB,2BAAa;AACb,8BAAgB;AANlB;AAZqC;AAsCN;AAG/B;AACA;AAGA,UAAG;AACH,gBAAI,iBAAY,CAAC,CAAD;AAChB,UAAG,CAAC,IAAE,CAAN;AAEE,gBAAO,WAAM,CAAC,kBAAD,CAAK,GAAC,sCAAD;AACd,eAAJ,IAAc,UAAN,KAAM,GAAI,GAAJ,CAAQ,GAAE,GAAF;AACtB,YAA8B,CAA1B,sCAA0B,GAAE,CAAF,CAAK,IAAQ,CAAH,OAAG,GAAE,KAAF,CAA3C,EACM,OAAJ,IAAQ,GADV;OAJF;AAT+B;AAkBC;AAGhC;AAGA,UAAG;AACE;AACL,WADK,IACL,WAAE,CADG,IACH,OAAF;AAAK,kBAAI,iBAAY,CAAC,CAAD;AACrB,gBAFK,IAEL;AAAK,kBAAI,cAAS,CAAC,2BAAc,gBAAf;AAClB,gBAHK,IAGL,QAAK,UAAI,cAAS,CAAC,2BAAc,eAAf,CAAlB;AAVgC;AAlCF;AAG9B;AAGA,UAAG;AACE;AACL,WADK,IACL,WAAE,CADG,IACH,OAAF;AAAM,kBAAI,iBAAY,CAAC,CAAD;AACtB,gBAFK,IAEL;AAAM,kBAAI,cAAS,CAAC,2BAAc,cAAf;AACnB,gBAHK,IAGL;AAAM,kBAAI,cAAS,CAAC,2BAAc,aAAf;AACnB,gBAJK,IAIL;AAAM,yBAAY,CAAC,2BAAc,gBAAf;AAClB,gBALK,IAKL,QAAM,iBAAY,CAAC,2BAAc,eAAf,CAAlB;AAZ8B;AAgDC;AAG/B;AAGA,UAAG;AACE;AACH,UADG,IACH;AAAG,yBAAY,CAAC,2BAAc,gBAAf;AACf,gBAFG,IAEH,QAAG,iBAAY,CAAC,2BAAc,eAAf,CAAf;AAT6B;AAsBA;AAG/B;AAGA,UAAG,eAAU,CAAC,qBAAe,eAAI,CAAC,cAAS,iBAAY,CAAtB,CAApB;AACR;AACL,UADK,IACL;AAEE,YAAG,eAAU,CAAC,CAAC,KAAK,IAAN,EAAY,eAAI,CAAC,WAAM,UAAK,CAAZ,CAAjB;AACR;AACH,YADG,KACH,QACA;iBAFG,KAEH;AAAG,0BAAU,aAAQ,GAAG,CAAF,EAAE,GAAC,oBAAD,CAAH;;AAErB;;AAEE,wBAAJ,IAAuB,oBAAc,CAAC,CAAD,CAAf;AAClB,iBAAJ,IAAS;OAEX,UAbK,IAaL;AAEa,oBAAN,iBAAM,CAAC,UAAK,QAAC,aAAD,CAAN;AACT,YADS,KACT,UACA;iBAFS,KAET;AAAM,0BAAU,aAAQ,GAAG,CAAF,EAAE,GAAC,oBAAD,CAAH;;AAExB;;AAEE,wBAAJ,IAAuB,oBAAc,CAAC,CAAD,CAAf;AAClB,iBAAJ,IAAG;OAEL,UAxBK,IAwBL;AAEE,YAAG,eAAU,CAAC,CAAC,2BAAc,cAAc,2BAAc,aAA3C,EAA0D,eAAI,CAAC,WAAM,UAAK,CAAZ,CAA/D;AACR;AACL,YADK,KACL;AAAO,mBAAJ,IAAgB,2BAAc,aAAf;AAClB,kBAFK,KAEL;AACG,0BAAU,aAAQ,GAAG,CAAF,EAAE,GAAC,oBAAD,CAAH;AACd,mBAAJ,IAAgB,2BAAc,aAAf;;AAGhB;;AAEE,wBAAJ,IAAuB,oBAAc,CAAC,CAAD,CAAf;AAClB,wBAAJ,IAAgB;AACZ,iBAAJ,IAAS;;AAGR,sBAAS,CAAC,aAAQ,QAAC,oBAAD,CAAT;;AAhDmB;AAoDH;AAAJ;AAGxB;AACA;AACA;AACA;AAGA,UAAG,QAAQ,GAAC,CAAZ,EACE,WAAU,CADZ;AAEA,UAAG,SAAI,GAAC,QAAR,EACE,YAAM,QADR;AAEA,yBAAa;AACb,oBAAa;AACb,kBAAW;AACX,aAAW,CAAJ,SAAI,IAAE,SAAF,CAAQ,IAAgB,CAAX,gBAAW,IAAE,gBAAF,CAAnC;AAEE,cAAK,iBAAM,CAAC,aAAQ,QAAC,oBAAD,CAAT;AACX,YAAG,WAAW,KAAE,MAAhB;AAEE,cAAI,WAAW,KAAE,GAAjB;AACE,0BAAS,CAAC,GAAD;;AAGT,0BAAa;AACT,4BAAJ,IAAG;;;AAKL,cAAO,CAAH,GAAG,KAAC,GAAD,CAAM,IAAc,CAAT,SAAS,KAAC,GAAD,CAA3B;AAEE,gBAAG;AACH,gBAAG,CAAC,GAAC,CAAL,EACG,oBAAc,CAAC,mBAAM,CAAC,iBAAW,mBAA2B,EAA1B,mBAA0B,GAAX,gBAAD,GAAa,CAA5B,CAAZ,CAAP,CADjB;AAEA,4BAAU,aAAQ,GAAgB,CAAf,iBAAY,CAAC,CAAD,CAAG,GAAE,qBAAF,CAAhB;;AAGb;AACL,gBADK,IACL;AAAK;AACL,sBAFK,IAEL;AAAK;AACL,sBAHK,IAGL;AAAK;AACL,sBAJK,IAIL;AAAK;AACL,sBALK,IAKL;AAAK,8BAAU,aAAQ,GAAgB,CAAf,iBAAY,CAAC,CAAD,CAAG,GAAE,oBAAF,CAAhB;AACvB,sBANK,IAML;AAAK,8BAAU,aAAQ,GAAgB,CAAf,iBAAY,CAAC,CAAD,CAAG,GAAE,qBAAF,CAAhB;AACvB,sBAPK,IAOL;AAAK,8BAAU,aAAQ,GAAgB,CAAf,iBAAY,CAAC,CAAD,CAAG,GAAE,qBAAF,CAAhB;AACvB,sBARK,IAQL;AAAK,8BAAU,aAAQ,GAAgB,CAAf,iBAAY,CAAC,CAAD,CAAG,GAAE,qBAAF,CAAhB;AACvB,sBATK,IASL;AAAK;AACL,sBAVK,IAUL;AAAK,4BAAS,CAAC,2BAAc,cAAf;AACd,sBAXK,IAWL;AACK,4BAAS,CAAC,2BAAc,cAAf;AACT,oBAAK;aAEV,WAfK,IAeL,aAAI,CAfC,IAeD,SAAJ;AAEK,4BAAa;AACT,8BAAJ,IAAG;aAER,UApBK,IAoBL;AAAK;AACL,sBArBK,IAqBL;AACS,8BAAJ,IAAG;AACC,uBAAJ,IAAG;aAER,UAzBK,IAyBL;AACI,qBAAW,CAAJ,SAAI,IAAE,SAAF,CAAQ,IAAiB,CAAZ,UAAK,YAAC,aAAD,CAAO,IAAG,gBAAH,CAApC,EACM,SAAJ,IAAG;AACD,8BAAJ,IAAG;;AAGL,4BAAS,CAAC,aAAQ,QAAC,oBAAD,CAAT;;;AAEb,sBAAW;;;AAKf,eAAQ;AACR,UAAM,CAAF,OAAE,GAAC,CAAD,CAAe,IAAJ,CAAF,OAAE,GAAC,CAAD,CAAP,IAAkB,CAAF,OAAE,GAAC,CAAD,CAA5B,EACE,SAAQ,MAAM,GAAC,uBAAU,CAAC,QAAG,QAAG,OAAP,CAD3B;AA9EwB;AAAI;AA/yEZ;AAi4EG;AAAZ;AAGP;AAGA,QAAG,qBAAgB,QAAC;AACpB;AACE,OAAC,WAAC,CAAS,QAAT;AACF,OAAC,QAAC,CAAM,MAAN;AACF,eAAQ,CAAC,KAAK,CAAC,IAAD;AAHhB;AAKE,OAAE,eAAF,CAAE;AALJ;AAPO;AAAY;AA90EL;;AAEG;;AACC;;AAET;AAEP;AA+3EoC;AAArB;AAEjB,eAAU,oBAAe,CAAC,mBAr3E6D,KAq3E9D;AAFR;AAAqB;AAKF;AAAnB;AAEjB,qBAAU,iBAAY,CAAC,mBAv3E6D,KAu3E9D,CAAtB;AAFiB;AAAmB;AAaC;AAApB;AAEjB,eAAU,mBAAc,CAAC,mBAt4E6D,KAs4E9D;AAFP;AAAoB;AAKN;AAAR;AAEvB,UAAG,CAAY,CAAC,WAAD,SAAf,EACE,wBAAU,mBAAc,QAAC,YAD3B;AAEA,eAAU;AAJa;AAAQ;AAoBO;AAArB;AAEjB;AACA;AACA;AAEA,8BAAmB,CAAC,UAAW;;;;WAAS;;;;WAAU;;;;UAA/B;AAEnB,UAAI,KAAM,KAAE,8BAAZ;AACE,cAAM,sBAAiB,QAAC,aAAS,CAAC,wCAAmB,mBAAc,GAAb,0BAAa,CAAC,UxCt5EA,KwCs5ED,CAAd,CAApB,CAAT;AACrB,gBAAU,CAAN,KAAM,KAAE,+BAAF,CAAe,IAA2B,CAAhB,CAAN,KAAM,KAAE,gCAAF,CAAgB,IAAI,cAAJ,CAApD;AACH,iBAAU,OAAQ,GAAE,QAAF;AAElB,qBAAU;AAbK;AAAqB;AA9Eb,oCAAG;AACD,sCAAG;AAC1B,eAAG;AACD,iBAAG;AACJ,gBAAG;AANwB;AAAf;AAQjB;AACA;AACA;AACA;AACA;AAEA,gBAAW,0BAAqB,CAAC,UAAW,cAAZ;AAEhC,UAAG,OAAQ,KAAE,CAAb;AACE,iBAAU;;AAGV,qBAAc,QAAG,CAAC,OAAD;AAEjB,iBAAqB,UAAX,UAAW,GAAI,IAAJ;AACrB,mBAAyC,UAAjB,CAAX,UAAW,GAAI,IAAJ,CAAiB,GAAI,EAAJ;AAEzC,YAAG,OAAQ,GAAE,CAAb;AACE,sBAAa;AAEb,0BAAa;AAEf,YAAG,QAAS,GAAE,CAAd;AACE,mBAAU,mBAAM,CAAC,4BAA6B,mBAAC,QAAM,YAAW,SAAQ,UAA1B,CAA9B;AAEhB,uBAAU,mBAAM,CAAC,0BAA2B,mBAAC,QAAM,YAAW,QAAlB,CAA5B;;AAjCH;AAAe;AA+CD;AAAd;AAEjB,UAAG,qBAAgB,CAAC,SAAD,CAAY,KAAE,8BAAjC,EACE,MAAM,sBAAiB,QAAC,aAAS,CAAC,wCAAmB,mBAAc,GAAb,0BAAa,CAAC,UxC/2EA,KwC+2ED,CAAd,CAApB,CAAT,CAD1B;AAGA,eAAU,qBAAgB,CAAC,UAAW,cAAZ;AALT;AAAc;AAoBE;AAAhB;AAEjB;AACA;AAEA,8BAAmB,CAAC,UAAW;;;;WAAS;;;;WAAU;;;;UAA/B;AALF;AAAgB;AAQJ;AAAZ;AAEjB,qBAAoB,kCAAW,CAAC,0BAAqB,CAAC,UAAW,cAAZ,CAAtB,CAA/B;AAFiB;AAAY;AAqBN;AAAN;AAEjB,eAAU,aAAM,CAAC,kBAAD;AAFC;AAAM;AAKA;AAAN;AAEjB;AACA;AACA;AAEA,8BAAmB,CAAC,MAAO;;;;WAAS;;;;WAAU;;;;UAA3B;AACnB,eAAU,QAAS,KAAG,CAAH;AAPF;AAAM;AAUQ;AAAd;AAEjB;AACA;AAEA,yBAAc,gCAAmB,CAAC,MAAD,CAAjC;AACA,kBAAa,6BAAgB,CAAC,UAAD;AAC7B,kBAAa,SAAU,GAAE,qBAAF;AACvB,yBAAc,6BAAgB,CAAC,SAAD,CAA9B;AACA,eAAU,gCAAmB,CAAC,UAAD;AATZ;AAAc;AAYL;AAAT;AAEjB,eAAU,mBAAc,CAAC,OAAQ,gBAAiB,GAAE,IAA5B;AAFP;AAAS;AAKM;AAAf;AAEjB,eAAU,qBAAgB,CAAC,SAAD,CAAY,KAAE,gCAAF;AAFrB;AAAe;AAKD;AAAd;AAEI,iBAAhB,qBAAgB,CAAC,SAAD;AACnB,UADmB,IACnB;AAAa,iBAAU;AACvB,gBAFmB,IAEnB;AAAc,iBAAU;;AAExB,iBAAU;;AANK;AAAc;AAUD;AAAb;AAEjB,eAAU,qBAAgB,CAAC,SAAD,CAAY,KAAE,8BAAF;AAFrB;AAAa;AAKC;AAAd;AAEI,iBAAhB,qBAAgB,CAAC,SAAD;AACnB,UADmB,IACnB;AAAa,iBAAU;AACvB,gBAFmB,IAEnB;AAAc,iBAAU,CAAI;;AAE5B,iBAAU;;AANK;AAAc;AAUH;AAAX;AAEjB;AACA;AACA;AAEA,8BAAmB,CAAC,UAAW;;;;WAAS;;;;WAAU;;;;UAA/B;AACnB,eAAU,cAAS,CAAC,UAAW,OAAZ;AAEnB,8BAAmB,CAAC,OAAQ;;;;WAAS;;;;WAAU;;;;UAA5B;AAEnB,UAAG,KAAM,IAAG,cAAC,+BAAY,+BAAb,CAAZ,EACE,SAAU,cAAS,CAAC,OAAQ,QAAT,CADrB;AAXiB;AAAW;AAeI;AAAf;AAEjB;AAEA,gBAAW,0BAAqB,CAAC,UAAW,cAAZ;AAEhC,eAAU,cAAS,CAAC,UAAW,CAAC,OAAb;AANF;AAAe;AAzgFvB;AAmCK;;;AAEZ;AAFY;;;;;AA6/EwB;AAAhB;AAEtB;AACA;AAGF;AAEE,kBAAa,mBAAc,CAAC,SAAD,CAAY,GAAE,IAAF;AACvC,eAAgC,CAAd,IAAR,IAAQ,CAAI,SAAJ,CAAc,oBAAmB,CAAC,QAAS,UAAG,CAAC,CAAC,MAAO,UAAW,eAAgB,MAAnC,CAAD,CAAb;AACnD,eAAgB,0CAAN;;;;WAAiB,CAAX;AAVM;AAAgB;AAaT;AAAP;AAEtB;AAGF;AAEE,eAAuB,CAAL,IAAR,IAAQ,EAAK,oBAAmB,CAAC,QAAS,UAAG,CAAC,CAAC,MAAO,UAAW,eAAgB,aAAnC,CAAD,CAAb;AAC1C,eAAgB,0CAAN;;;;WAAiB,CAAX;AARM;AAAO;AAahB,wBAAG;AACN,qBAAG;AAH6B;AAK1C;AACA;AACA;AACA;AACA;AAEA,cAAiB,IAAR,IAAQ,CAAI,mBAAc,CAAC,SAAD,CAAY,GAAE,IAAhC;AAEjB,sBAA2D,CAAlC,IAAR,IAAQ,CAAI,WAAM,CAAC,SAAD,EAAa,EzCz3FgC,EACtD,EAA2B,EAA2B,EAC/C,CyCu3FR,CAAkC;AAC3D,sBAA8D,CAArC,IAAR,IAAQ,CAAI,WAAM,CAAC,SAAD,EAAa,EzC13FgC,EACtD,EAA2B,EAA2B,EAC/C,CyCw3FR,CAAqC;AAE9D,mBAAc,QAAG,CAAC,cAAe,aAAhB;AACjB,kBAAW,CAAC,UAAW,GAAE,EAAzB;AACA,mBAAY,QAAG,CAAC,aAAc,GAAE,aAAjB,CAAgC,GAAE,EAAjD;AAEA,UAAG,SAAI,MAAM,CAAC,WAAM,CAAC,SAAD,EAAa,IAApB,CAAb;AAEE,YAAc,CAAV,SAAU,GAAE,IAAI,IAAN,CAAY,IAAe,CAAV,SAAU,GAAE,cAAO,CAAC,IAAI,IAAL,CAAT,CAAzC;AAEE,oBAAwB,8BAAxB;AACA;SAHF;AAMA,YAAc,CAAV,SAAU,GAAE,IAAI,MAAN,CAAc,IAAe,CAAV,SAAU,GAAE,cAAO,CAAC,IAAI,MAAL,CAAT,CAA3C;AAEE,oBAAwB,gCAAxB;AACA;SAHF;OARF;AAeA,UAAG,KAAK,oBAAmB,KAAE,UAA7B;AACE,kBAAwB,+BAAxB;AAEA,sBAAwB,+BAAxB;AAtCwC;AApCX;AAErB;AACV,kBAAQ,wCAAgB,QAAC;AAHO;AAAD;AAMA;AAE1B,eAAL,KAAK;AACK;AAHqB;AAv/EjB;AA3hBhB,mBAuiBc;AAKI,6BAAG;AACJ,4BAAG,qBAAe,GAAC,CAAD;AAsCd;AAAZ;AAGP,eAAe,CAAN,MAAM,IAAE,CAAF,CAAK,IAAW,CAAN,MAAM,IAAE,EAAF,CAAX;AAHb;AAAY;AAMI;AAAhB;AAGP,eAAmB,CAAV,UAAU,IAAE,CAAF,CAAK,IAAe,CAAV,UAAU,IAAE,CAAF,CAAf;AAHjB;AAAgB;AAME;AAAlB;AAGP,eAAqB,CAAZ,YAAY,IAAE,CAAF,CAAK,IAAiB,CAAZ,YAAY,IAAE,CAAF,CAAjB;AAHnB;AAAkB;AA2JlB,+CAAS,CAAT;AAAD,oBAA0B,EAAG,EAAG,EAAG,EAAG,EAAG,EAAG,CAA5C;AA0nBa;AAAZ;AAEP,eAAS,IAAK,GAAE,KAAF;AACd,UAAQ,CAAJ,IAAI,GAAC,CAAD,CAAI,IAAU,CAAL,KAAK,GAAC,CAAD,CAAtB;AACE,iBAAQ,MAAM,GAAC,GAAD;AACX,gBAAQ,CAAJ,IAAI,GAAC,CAAC,GAAF,CAAO,IAAU,CAAL,KAAK,GAAC,CAAC,GAAF,CAAzB,EACH,SAAQ,MAAM,GAAC,GADZ;AALE;AAAY;AA2KM;AAEzB,UAAW,CAAP,OAAO,IAAE,CAAF,CAAK,IAAY,CAAP,aAAO,GAAC,CAAC,gBAAF,CAA5B;AACE,oBAAS,cAAG,CAAQ,CAAP,aAAO,GAAC,GAAD,CAAI,GAAC,gBAAb,CAA8B,GAAC,eAAI,CAAC,GAAG,GAAC,eAAI,CAAC,aAAD,CAAT,CAA/C;AACG,gBAAW,CAAP,OAAO,IAAE,CAAC,GAAH,CAAQ,IAAY,CAAP,aAAO,GAAK,CAAJ,CAAC,GAAG,GAAC,gBAAD,CAAL,CAA/B,EACH,YAAS,cAAG,CAAQ,CAAP,aAAO,GAAC,GAAD,CAAI,GAAC,gBAAb,CAA8B,GAAC,eAAI,CAAC,GAAG,GAAC,QAAG,CAAC,eAAI,CAAC,GAAG,GAAC,aAAL,CAAL,CAAR,CAA/C,CADG;AAJoB;AASH;AAAf;AAEP;AAEA,gBAAS,CAAC,eAAI,CAAC,MAAD,CAAQ,GAAC,eAAI,CAAC,MAAD,CAAL;AAEtB,UAAG,kBAAS,CAAC,QAAQ,cAAG,CAAC,OAAD,CAAS,GAAC,CAAD,CAAG,gBAAxB,CAAZ;AACE,kBAAS,cAAG,CAAC,OAAD,CAAS,GAAC,CAAD;AAClB,gBAAG,kBAAS,CAAC,QAAQ,cAAG,CAAC,OAAD,EAAU,gBAAtB,CAAZ,EACH,UAAS,cAAG,CAAC,OAAD,CADT;AAGL,UAAG,OAAO,GAAC,CAAC,gBAAZ;AAEI,kBAAS,GAAG,GAAC,OAAD;AACZ,iBAAQ,cAAG,CAAC,MAAD,CAAQ,GAAC,CAAD;OAGlB,UAAG,OAAO,IAAK,CAAH,GAAG,GAAC,gBAAD,CAAf;AAED,kBAAS,OAAO,GAAC,GAAD;AAChB,iBAAQ,cAAG,CAAC,MAAD,CAAQ,GAAC,CAAD;OAHlB;AAKL,eAAmB,CAAX,cAAG,CAAC,MAAD,CAAQ,GAAC,cAAG,CAAC,MAAD,CAAJ,CAAY,GAAC,OAAD;AAtBxB;AAAe;AAgYlB,iBAAG;AAmKoB;AAApB;AAGP,eAAgB,UAAJ,CAAH,GAAG,GAAC,CAAD,CAAI,GAAI,CAAJ,CAAM,GAAC,CAAD;AAHf;AAAoB;AAoRb,uBAAI,cAAC,GAAI,GAAI,EAAT;AACN,qBAAM,CAAC,GAAE,EAAF;AACN,sBAAK,CAAC,GAAI,CAAF,EAAE,GAAC,EAAD,CAAJ;AACN,sBAAK,CAAC,GAAO,CAAL,EAAK,GAAF,EAAD,GAAI,EAAD,CAAP;AACJ,wBAAG,CAAC,GAAU,CAAR,EAAQ,GAAL,EAAD,GAAI,EAAD,GAAI,IAAD,CAAV;AAEC,uDAAQ,CAAR;AAAF,4BAA2B,QAAQ,MAAM,MAAzC;AAEI;AAGtB,YAAM,0BAAa,QAAC,YAAM,CAAC,CAAD,CAAN;AAHE;AAQG;AAAlB;AAGP,eAAmB,CAAH,IAAR,IAAQ,EAAG,mBAAkB;AAH9B;AAAkB;AA4HL,iCAAG;AACX,yBAAW;AACb,uBAAa;AACV,0BAAU;AAv8DX,6BASK,mHATL;;AAviBd,GAuiBc,iBAviBd;ACFA,2BAIS,oHAJT;;;AAWa;;;AAET;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAvBS;;;;;;;;;;;AAoRoB;AAE/B,UAAI,cAAU,KAAG,KAAjB;AAEE,yBAAa;AACb;OAHF;AAF+B;AASK;AAEpC,UAAI,mBAAe,KAAG,KAAtB;AAEE,8BAAkB;AAClB;OAHF;AAFoC;AAST;AAE3B,UAAI,UAAM,KAAG,KAAb;AAEE,qBAAS;AACT;OAHF;AAF2B;AASK;AAEhC,UAAI,eAAW,KAAG,KAAlB;AAEE,0BAAc;AACd;OAHF;AAFgC;AAlHG;AAAhB;AAEnB,eAAU;AACV;AAHmB;AAAgB;AAMM;AAAtB;AAEnB,eAAU;AACV,UAAI,KAAK,IAAK,KAAE,OAAhB,EACE,cADF;AAHmB;AAAsB;AAtBX;AAAX;AAEnB,UAAY,mBAAD,QAAX;AACE,iBAA0B,UAAf,oBAAkB,gBAAH,CAAuB;AAEjD,qBAAU;AALO;AAAW;AAQJ;AAAP;AAEnB,UAAY,eAAD,QAAX;AACE,iBAAsB,UAAX,gBAAc,gBAAH,CAAuB;AAE7C,qBAAU;AALO;AAAO;AAqBQ;AAElC,UAAI,mBAAa,KAAG,KAApB;AAEE,8BAAgB;AAChB;OAHF;AAFkC;AASC;AAEnC,UAAI,kBAAc,KAAG,KAArB;AAEE,6BAAiB;AACjB;OAHF;AAFmC;AASU;AAE7C,qCAA2B;AAFkB;AAKC;AAE9C,sCAA4B;AAFkB;AAKP;AAEvC,iCAAqB;AAFkB;AAKK;AAE5C,oCAA0B;AAFkB;AAuBf;AAE7B,UAAI,YAAQ,KAAG,KAAf;AAEE,uBAAW;AACX;OAHF;AAF6B;AASC;AAE9B,UAAI,aAAS,KAAG,KAAhB;AAEE,wBAAY;AACZ;OAHF;AAF8B;AA3Bc;AAE5C,UAAI,2BAAuB,KAAG,KAA9B;AAEE,sCAA0B;AAC1B;OAHF;AAF4C;AASX;AAEjC,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf;OAHF;AAFiC;AAlFN;AAE3B,UAAY,aAAD,QAAX,EACE,aAAO,CAAC,IAAD,CADT;AAF2B;AAxDK;AAAb;AAEnB;AACA;AAEA,sBAAY;AACZ,eAAU,QAAQ,cAAc,CAAC,MAAD;AAEhC,wBAA2B,QAAQ,cAAc,CAAC,KAAD;AAEjD,wBAA6B,QAAQ,cAAc,CAAC,OAAD;AACnD,qBAAU,cAAC,KAAS,UAAK,GAAE,MAAjB;AACV,4BAAiC,QAAQ,cAAc,CAAC,OAAD;AACvD,yBAAc,aAAa,CAAC,OAAO,UAAR;AAC3B,yBAAc,cAAC,KAAS,UAAK,GAAE,MAAjB;AAEd,4BAAiC,QAAQ,cAAc,CAAC,KAAD;AACvD,gCAAqC,QAAQ,cAAc,CAAC,KAAD;AAE3D,eAAU;AAEV,+CAAkB,CAAC,gBAAU,WAAM,MAAjB;AAClB,+CAAkB,CAAC,oBAAgB,WAAM,MAAvB;AAClB,+CAAkB,CAAC,gBAAY,WAAM,MAAnB;AAClB,+CAAkB,CAAC,wBAAoB,WAAM,MAA3B;AAClB,+CAAkB,CAAC,oBAAgB,WAAM,MAAvB;AAElB,YAAM,YAAY,CAAC,eAAD;AAClB,YAAM,YAAY,CAAC,mBAAD;AAClB,YAAM,YAAY,CAAC,eAAD;AAClB,YAAM,YAAY,CAAC,uBAAD;AAClB,YAAM,YAAY,CAAC,mBAAD;AAElB,WAAM,QAAQ,cAAc,CAAC,IAAD;AAC5B,YAAM,YAAY,CAAC,EAAD;AAElB,qBAA0B,QAAQ,cAAc,CAAC,QAAD;AAChD,kBAAO,cAAC,KAAS,UAAK,GAAE,MAAjB;AACP,YAAM,YAAY,CAAC,YAAD;AAtCC;AAAa;AA0NO;AAEvC;AAAW;AACX;AAEA;AAEA,UAAY,uBAAD,QAAX;AAEE,iBAAU;AAEV,qBAAc,qBAAQ,CAAC,aAAD,CAAS,GAAC,IAAD;AAC/B,oBAAa,qBAAQ,CAAC,YAAD,CAAQ,GAAC,IAAD;AAE7B,+BAAa,aAAa,CAAC,QAAQ,wBAAT;AAE1B,YAAI,wBAAiB,KAAE,EAAvB;AAEE,iCAAa,MAAM,YAAY,CAAC,SAAU,YAAY,GAAC,kCAAW,CAAC,mBAAD,CAAnC;AAC/B,iCAAa,MAAM,YAAY,CAAC,UAAU,UAAX;SAHjC;AAMA,YAAG,aAAH,EACE,uBAAa,MAAM,YAAY,CAAC,UAAU,OAAX,CADjC;AAGA,uBAAQ,aAAa,CAAC,QAAQ,6BAAT;AAErB,YAAI,6BAAwB,KAAE,EAA9B;AAEE,yBAAQ,MAAM,YAAY,CAAC,aAAa,SAAd;AAC1B,yBAAQ,MAAM,YAAY,CAAC,gBAAgB,SAAjB;AAC1B,yBAAQ,MAAM,YAAY,CAAC,cAAc,MAAf;AAE1B,mDAAkB,CAAC,gBAAU,WAAM,MAAjB;SANpB;AASA,uBAAU,aAAa,CAAC,QAAQ,2BAAT;AACvB,2BAAc,aAAa,CAAC,QAAQ,2BAAT;AAE3B,YAAI,2BAAsB,KAAE,EAA5B;AAEE,yBAAU,MAAM,YAAY,CAAC,aAAa,SAAd;AAC5B,yBAAU,MAAM,YAAY,CAAC,gBAAgB,SAAjB;AAC5B,6BAAc,MAAM,YAAY,CAAC,aAAa,SAAd;AAChC,6BAAc,MAAM,YAAY,CAAC,gBAAgB,SAAjB;AAEhC,mDAAkB,CAAC,gBAAY,WAAM,MAAnB;AAClB,mDAAkB,CAAC,oBAAgB,WAAM,MAAvB;SARpB;AAWA,uBAAU,MAAM,YAAY,CAAC,QAAQ,MAAT;AAC5B,uBAAU,MAAM,YAAY,CAAC,UAAU,YAAX;AAE5B,2BAAc,MAAM,YAAY,CAAC,QAAQ,MAAT;AAChC,2BAAc,MAAM,YAAY,CAAC,UAAU,YAAX;AAEhC,2BAAc,aAAa,CAAC,QAAQ,2BAAT;AAC3B,+BAAkB,aAAa,CAAC,QAAQ,2BAAT;AAE/B,YAAI,2BAAsB,KAAE,EAA5B;AAEE,6BAAc,MAAM,YAAY,CAAC,aAAa,SAAd;AAChC,6BAAc,MAAM,YAAY,CAAC,gBAAgB,SAAjB;AAChC,iCAAkB,MAAM,YAAY,CAAC,aAAa,SAAd;AACpC,iCAAkB,MAAM,YAAY,CAAC,gBAAgB,SAAjB;AAEpC,mDAAkB,CAAC,oBAAgB,WAAM,MAAvB;AAClB,mDAAkB,CAAC,wBAAoB,WAAM,MAA3B;SARpB;AAWA,oBAAO,aAAa,CAAC,QAAQ,4BAAT;AAEpB,YAAI,4BAAuB,KAAE,EAA7B;AAEE,sBAAO,MAAM,YAAY,CAAC,aAAa,SAAd;AACzB,sBAAO,MAAM,YAAY,CAAC,gBAAgB,SAAjB;AAEzB,mDAAkB,CAAC,aAAS,WAAM,MAAhB;SALpB;AAQA,oBAAO,MAAM,YAAY,CAAC,QAAQ,OAAT;OAzE3B;AAPuC;AAXF;AAErC;AACA,yBAAc,UAAd,GAA4B;AAC5B,6BAAkB,UAAlB,GAAgC;AAChC,kBAAO,UAAP,GAAqB;AACrB,qBAAQ,UAAR,GAAsB;AACV,gBAAX,gBAAc,gBAAH,CAAuB,MAAnC,GAA6C;AAC7B,gBAAf,oBAAkB,gBAAH,CAAuB,MAAvC,GAAiD;AARZ;AAzOP;AAE9B;AAEA;AAEA,UAAG,aAAH;AAEE,oBAAO,iBAAiB,CAAC,QAAU,2CAAX;AACxB,2BAAc,iBAAiB,CAAC,WAAa,iDAAd;AAC/B,wBAAY;;AAIZ,YAAK,YAAM,GAAE,MAAF;AACX,uBAA0B,QAAQ,eAAe,CAAC,CAAD;AACjD,oBAAO,iBAAiB,CAAC,QAAU,2CAAX;AAExB,YAAK,YAAM,GAAE,MAAF;AACX,0BAA6B,QAAQ,eAAe,CAAC,CAAD;AACpD,YAAK,YAAM,GAAE,MAAF;AACX,8BAAiC,QAAQ,eAAe,CAAC,CAAD;AACxD,2BAAc,iBAAiB,CAAC,WAAa,iDAAd;;AAtBH;AAmOE;AAEhC;AACA,kBAAO,oBAAoB,CAAC,QAAS,2CAAV;AAHK;AAhKI;AAEpC;AACA,oBAAS,QAAT;AACA,2BAAiB;AACjB,4BAAgB;AAChB,wBAAc;AACd,4BAAkB;AAClB,yBAAe;AACf,sBAAY;AACZ,qBAAW;AACX,qBAAU,GAAV;AACA,oBAAS,GAAT;AAZoC;AAxJzB;;;AAoDK,6BhCwDV,uCgCxDU;AACW;AACT,+BhC8DV,yCgC9DU,yBhC6qBkD,uBAAC,0CAAQ,wCAAT,CgC7qBlD;AACI,mC/BuThB,uC+BvTgB;AACC;AACN,8BhCiKV,wCgCjKU;AACU;AACL,mChC+DV,6CgC/DU;AACF,iChC6DV,2CgC7DU;AACM,uChC8DV,iDgC9DU;AACQ;AACF;AACC;AACD;AACjB,4B/B6YV,sC+B7YU;AACM;AACJ;AACC;AACC;AACK;AACT;AACK;AACF,+BhCuGN,6CgCvGM;AACA,+BhCsGN,6CgCtGM;AA3EP;AA+EG;;;;AA1FhB;ACCA,sBAES,UAFT;;;AAES,2BAGO,6EACI,gEACG,8DACX,4EACM,kDACE,gEACC,0DACD,sFACA,qDACG,wDACE,+EACL,oFACG,oEACN,iDACO,6DACH,mDACG,wFACE,gGACA,uEACD,qEACF,8DACL,0DACD,oFACH,+EACE,iDACE,iFACK,0EACJ,wDACD,6CACC,qDACK,4EACZ,8DACI,6CACJ,4DACU,kEACT,gEACE,8DACW,0EACT,wEACH,oDACF,gDACG,qDACA,mFACF,8FACO,uDACP,0DACG,wEACQ,wEACP,sFACF,uEACI,qDACK,wEACF,yFACN,iDACA,+CACU,2EACH,sFACL,yDACA,8EACF,oDACH,+DACK,4EACK,+DACC,wEACU,+FACT,mFACV,8CACD,0CACE,uFACO,+FACP,+HACC,qIACF,6EACM,uEACR,gEACA,0DACG,kEAEE,qDACE,6DACH,qDACD,2EACU,iEACF,oFACF,yEACI,+GACiB,qGAC9B,8CACC,iDACI,6DACE,iEACC,6GACM,+EACZ,+EACgB,wGACP,wFACG,yFACE,8HACR,sFACK,qFACD,iFACD,4EACQ,mGACE,6EAClB,sDACK,8DACD,gEACU,iFACA,gFACT,mEACF,8DAjHV;AAFT;ACDA,iBAMS,wDANT;;;;AAYkB,0BAAU,UAAP,UAAO,GAAI,CAAJ;AACX,yBAAG;AAIN,iDAAO,CAAP;AAAF,qBAA6B,IAAK,GAAlC;AAEY,gCAAG,cAAC,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,CAA7B;AAMZ;;AAIH;;AAKG;;AACG,sCADH,qCACG;AAEF;;AACG,uCADH,sCACG;AAEN;;AACM;;AAEJ;;AACC,oCADD,qCACC;AAkGL;AAmCC;AAyDJ;AAynBC;AAuOC;AAueG;AAjHF;AA+PC;AArGE;AAgCW;AAgCI;AAWT;AAtmDJ;;AAEF;;;AAEV;AACA;AACA;AACA;AALU;;;;;AA25DiB;AAIV,iDAAC,YAAY,mBAAC,UAAD,CAAb;AACnB,sBAAY;AACZ,wBAAc;AACd,4BAAkB;AAClB,gCAAsB;AAPoD;AAD7C;AAWA;AAGV,eAAnB,KAAmB;AACnB;AAJ6B;AAt6DjB;AAmBD,sCAsJL,kCAtJK;AAGD;;AAWI,wBAAG,cAAC,wBAAS,2BAAY,uBAAQ,uBAAQ,0BAAW,0BAChE,6BAAc,2BAAY,8BAAe,yBAAU,sBAAO,wBAC1D,4BAAa,yBAFE;AAQF;;AACC,sCADD,uCACC;AAIN;;;AAER;AAFQ;AAi4DsB;AAAd;AAElB,eAAU;AAFQ;AAAc;AAKC;AAC/B;AAEF,UAAG,UAAK,KAAC,KAAT,EAAoB,MAApB;AACA,UAAU,CAAN,KAAM,KAAG,EAAH,CAAO,IAAmB,eAAH,eAAX,gBAAW,CAAjC;AAEE,iBAA2B,gBAAW,QAAQ,CAAC,KAAD;AAC9C,YAAW,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,KAAG,eAAH,CAA7B,EACE,qBAAgB,CAAC,4CAAgB,mBAAC,SAAiB,GAAV,gBAAU,WAAlB,CAAjB,CADlB;OAHF;AAMA,mBAAO;AACiB,2DAAC,KAAD;AAXS;AAt4DvB;AASK;AATL;AAcI;;;AAEZ;AACA;AAHY;;;;;AAw4DoB;AAGlC;AACA;AAGA,UAAQ,OAAL,KAAQ,eAAH;AACR,UAAG,CAAC,MAAM,KAAE,EAAZ;AAEE,aAAI,eAAI,CAAC,gBAAW,EAAG,CAAf,CAAkB,GAAE,qBAAQ,CAAC,CAAC,IAAG,GAAC,CAAN,CAAV;AAC1B,YAAY,aAAD,QAAX,EACE,KAAI,aAAO,MAAK,GAAC,EADnB;AAEA,SAAC,eAAC,CAAM,EAAN;OAGF,MAAqB,8CAAC,IAAD;AAhBW;AAmBH;AAGf,sDAAC,OAAO,MAAR;AAChB,sBAAY;AAHkB;AADC;AAOL;AAAJ;AACpB;AAEF,eAAU;AACV,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AACF,YAAG,yBAAY,CAAY,YAAK,CAAC,CAAD,CAAI,OAAO,KAA5B,CAAf;AAEA,mBAAqB,YAAK,CAAC,CAAD;AAC1B;SAHA;;AALoB;AAAI;AAYS;AACjC;AAEF,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AACF,YAAI,IAAI,CAAY,YAAK,CAAC,CAAD,CAAI,MAArB;;AAJyB;AAON;AAAP;AACpB;AAEF,eAAU,CAAC;AACX,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AACF,YAAG,yBAAY,CAAY,YAAK,CAAC,CAAD,CAAI,OAAO,KAA5B,CAAf;AAEA,mBAAU;AACV;SAHA;;AALoB;AAAO;AAr7Df;AAOM,+BAAS,YAs8BrB,sBAt8BqB,EAAkB,UtCkDpC,gCsClDoC,EAAqB,UtCiVhD,yCsCjVgD,CAAhD;AAPN;AAiBL;;;AAEP;AACA;AACA;AACA;AACA;AACA;AACA;AARO;;;;;AAoiKqB;AAAb;AAKjB,UAAW,CAAC,gBAAD,SACmB,IAAZ,eAAH,eAAX,gBAAW,CADS,IAEb,CAAY,gBAAW,SAAvB,SAFX;AAGE,iBAAmB,gBAAW,SAAQ,cAAc,CAAC,cAAD;AAEpD,qBAAQ;AAVO;AAAa;AA9BC;AAE/B,yBAAe;AACf,kBAAO,CAAC,KAAD;AAHwB;AAMF;AAE7B,uBAAa;AACb,kBAAO,CAAC,KAAD;AAHsB;AAMC;AAE9B,wBAAc;AACd,kBAAO,CAAC,KAAD;AAHuB;AAML;AAEzB,mBAAS;AACT,kBAAO,CAAC,KAAD;AAHkB;AAMI;AAE7B,uBAAa;AACb,kBAAO,CAAC,KAAD;AAHsB;AA5GH;AAGV,qDAAC,WAAD;AAChB,sBAAU,eAAK,GAAC,CAAD;AAJsC;AAA3B;AAOA;AAMV,qDAAC,MAAD;AAChB,0BAAM,KAAN;AACA,uBAAW;AACX,mBAAO;AACP,uBAAW;AACX,wBAAY,CAAC;AACb,sBAAU;AAXS;AADO;AAeA;AAGhB;AAHgB;AAMF;AACtB;AAEF,WAAM;AACN,UAAa,cAAH,eAAP,MAAO,CAAV,EACE,KAAa,OAAP,OAAU,cAAH,CADf;AAEA,UAAY,EAAD,QAAX;AACE,wBAAU;AACV;AACE,8BAAQ,EAAE,MAAV;AACA,2BAAY,EAAE,UAAd;AACA,uBAAQ,EAAE,MAAV;AACA,4BAAa,EAAE,WAAf;AACA,2BAAa,EAAE;AALjB;AAOE,0BAAU;AAPZ;OAWA,MAAgB,yCAAC,MAAD;AAnBM;AAsBI;AAAX;AAEf;AAMF,iBAAU;AACV,UAAG,QAAQ,KAAC,IAAZ,EACE,qBAAgB,CAAC,+CAAkB,mBAAC,aAAD,CAAnB,CADlB;AAEA,eAAQ,QAAQ,QAAC,YAAM,CAAC,MAAD,CAAN;AACjB;AACE,cAAM,UAAN,GAAkB;AAClB,cAAM,QAAC,CAAM,UAAN;AACP,cAAM,UAAN,GAAiB;AACjB,cAAM,WAAN,GAAmB;AACnB,cAAM,cAAN,GAAsB;AACtB,cAAM,SAAN,GAAiB,IAAI;AACrB,cAAM,aAAa,CAAC,cAAD;AACnB,cAAM,UAAN,GAAmB,+BAAW,IAAG,gBAAH;AAK9B,cAAM,WAAC,CAAoB,gBAAW,SAA/B;AACR,YAAc,gBAAH,eAAP,MAAO,CAAX,EACe,MAAO,aAAC,CAAa,eAAb,CADvB;AAdD;AAiBE,cAAO,eAAP,MAAO;AACP;AAlBF;AAZiB;AAAW;AAp+JnB;AAgBW,+BAAY,etC4TrB,gCsC5TqB,CAAZ;AACA,+BAAO,UAkBjB,wBAlBiB,EAAyB,uBAAoB,aAxE9D,wBAwE8D,EAAmB,sBAAoB,0BAAmB,wBAA9G;AASC,kCA7DL,+BA6DK,+BAAgE,WAAhE;AACF,gCAlFT,yBAkFS;AACC;AACL;AA7BN;AA+BK,yCA/BL,qCA+BK;AAIJ;;;AAER;AAFQ;AA8jKe;AAAP;AAGlB,eAA8B,YAAK,CAAC,KAAD;AAHjB;AAAO;AAMC;AAEhB,kBAAK,CAAC,MAAU,MAAX;AAFW;AAKW;AAAb;AAExB,eAAQ;AAFgB;AAAa;AAKV;AAEX,6CAAC,SAAU,aAAO,2BAAlB;AAFgC;AAArB;AAKN;AAAH;AAGlB,eAAQ,2BAAa,QAAC,YAAM,CAAC,KAAM,mBAAc,CAAC,KAAD,EAAS,UAAW,MAAO,UAAW,QAA3D,CAAN;AACtB,UAAG,SAAH,EACE,MAAM,cAAC,CAAgC,aAAlB,MAAM,aAAc,cAAC,+BAAD,CAAF,CAAhC,CADT;AAJkB;AAAG;AAQA;AAAH;AAElB,eAAQ,2BAAa,QAAC,YAAM,CAAC,KAAK,MAAM,UAAU,MAAM,UAAU,QAAtC,CAAN;AAFJ;AAAG;AAlDC;AAItB,UAAU,KAAD,OAAO,KAAC,CAAjB,EACE,oBAAa,CAAC,4CAAe,aAAhB,CADf;AAIA;AACA;AACE,kBAAG,CAAC,MAAM,UAAU,MAAM,UAAU,eAAK,GAAC,CAAvC;AADL;AAGE;AAHF;AATsB;AANA;AAGtB,gBAAG,CAAC,MAAM,UAAU,MAAM,KAAvB;AAHmB;AANA;AAGtB,gBAAG,CAAC,MAAM,UAAU,EAAE,KAAnB;AAHmB;AA4BD;AAAH;AAElB,eAA8B;AAFZ;AAAG;AA2FQ;AAAX;AAGlB,eAAQ,2BAAa,QAAC,YAAM,CAAC,KAAK,GAAG,0BAAU,EAAE,MAAM,eAAK,GAAC,CAAjC,CAAN;AAHJ;AAAW;AApDJ;AAEvB;AAGF;AACA,eAAO,QAAoB,OAAf,SAAS,SAAC,EAAK,GAAC,CAAD,kBAA3B;AAAI;AACY,oBAAT,SAAS,WAAC,CAAD;AACZ,kBAAG,CAAC,YAAK,gBAAS,YAAK,eAApB;;AARkB;AAWH;AAAJ;AAElB,eAAkC,OAAT,mCAAC,KAAD,EAAY,cAAH;AAClC,UAAG,MAAM,KAAC,IAAV,EAAmB,uBAAgB,CAAC,4CAAe,mBAAC,QAAD,EAAQ,aAAxB,CAAnC;AAHkB;AAAI;AAkBG;AAGzB,UAAG,CAAI,aAAP;AAEE,YAAY,aAAD,QAAX,EACE,aAAO,gBADT;AAEA,wBAAW;OAJb;AAHyB;AAWO;AAAd;AAChB;AAEF,sBAAiB;AACjB,eAAU;AACV,aAA6B,mCAAC,MAAD,CAAf,QAAd;AAEM,qBAAJ,IAAG;AACH,iBAAU,KAAY,GAAJ,GAAF,GAAQ,qBAAQ,CAAC,aAAD,CAAV;;AARN;AAAc;AAxoKtB;AAQU,+BAAS,YAi5BrB,sBAj5BqB,CAAT;AARV;AA0BK,0CA1BL,sCA0BK;AAIL;;AACC,iCADD,kCACC;AAEM,wEAAmB,UAwB9B,oBAxB8B,CAAnB;AACC,yEAAmB,UAuB/B,oBAvB+B,EAAmB,uBAC3C,2BADK;AAEA,yEAAmB,UAqB/B,oBArB+B,EAAqB,sBAAxC;AACP;AAIK;;AACL;;;AAET;AAFS;;;;;AAwiEiB;AAG5B,mBAAS,mBAAO,QAAC;AAHY;AAAD;AAMA;AAG5B;AACA,gBAAK,SAAC;AACI;AALkB;AAQL;AAErB;AAGF,kBAAW,UAAG,CAAC,CAAC,MAAM,KAAK,QAAQ,MAApB,CAAD;AACd,gBAAK,IAAI,CAAC,SAAD;AANc;AASE;AAGzB,gBAAK;AAHoB;AAMS;AAAf;AAEnB;AAEA,eAAS,QAAiB,OAAZ,UAAK,OAAO,GAAE,CAAF,kBAA1B;AAAI;AACY,oBAAC,UAAK,KAAC,CAAD;AAClB,YAAG,KAAW,SAAS,IAAE,MAAzB;AAEE,mBAAU,KAAW;AACrB;SAHF;;AAKJ,eAAU;AAXS;AAAe;AAcL;;AAAV;AAEQ;AAAlB;AAIL;AAEF,iBAAU;AACV,YAAU,WAAC,SAAD,CAAW,KAAQ,WAAC,SAAD,CAA7B,EACE,aADF;AAEA,iBAAS,QAAW,kBAAC,SAAD,mBAApB;AAAI;AAEF,cAAG,SAAS,CAAC,CAAD,CAAG,IAAE,SAAS,CAAC,CAAD,CAA1B;AAEE,qBAAU;AACV;WAHF;;AAXK;AAAkB;AAmBzB;AAEF,eAAU;AACV,UAAG,aAAM,CAAC,IAAD,CAAT,EAAqB,aAArB;AACA,UAAK,UAAK,OAAO,GAAE,CAAF;AACjB,UAAG,WAAO,CAAC,IAAD,CAAV;AACE,eAAS,CAAF,CAAE,IAAG,CAAH,CAAM,IAAI,CAAI,kBAAkB,CAA4B,UAAK,IAAM,CAAC,CAAD,CAAgB,QAAyB,IAAhF,CAAzC,EAAuI,CAAJ,IAAG;AAEtI,mBAAS,CAAF,CAAE,IAAG,CAAH,CAAM,IAA2C,CAA5B,UAAK,KAAC,CAAD,CAAgB,OAAO,IAAG,IAAH,CAA1D,EAA0E,CAAJ,IAAG;AAC3E,UAAG,CAAE,IAAG,CAAR,EAAe,SAAoB,UAAK,KAAC,CAAD,CAAgB,SAAxD;AA9BmB;AAAU;AAiCM;AAGnC;AACA;AAGA,cAAQ;AACR,eAAS,QAAiB,OAAZ,UAAK,OAAO,GAAE,CAAF,kBAA1B;AAAI;AAEF,YAAe,UAAK,KAAC,CAAD;AACpB,gBAAQ,UAAU,CAAO,KAAC,CAAa,SAAd,CAAiC,CAAxC;;AAXe;AApnExB;AAeL;;;AAEJ;AACA;AACA;AACA;AACA;AACA;AACA;AAEA;AACA;AACA;AACA;AAEA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAzCI;;;;;;;;;;;;;;;AAo9KgB;AAAR;AAGd,UAAY,aAAD,QAAX;AACE,iBAAQ,aAAQ,WAAW,QAAQ,CAAC,IAAD;AAEnC,qBAAQ,CAAC;AANG;AAAQ;AASC;AAAT;AAEd,eAAU,eAAU,KAAE,wBAAF;AAFN;AAAS;AAKI;AAE3B,UAAG,eAAW,KAAG,MAAjB;AAEE,0BAAc;AACd,4BAAe,CAAC,KAAD;OAHjB;AAF2B;AASJ;AAEvB,UAAG,YAAQ,KAAG,IAAd,EAAuB,YAAO,cAAc,CAAC,KAAM,MAAP,CAA5C;AAFuB;AA2PK;AAAd;AAEJ,YAAD,oBAAC,OAAQ,CAAT;AACT,UAAY,eAAD,QAAX;AACE,uBAAS,CAAC,KAAM;;;;aAAQ,IAAf;AAET,YAAA,YAAO,CAAC;;;;WAAQ,IAAT;AANK;AAAc;AATH;AAAX;AAEJ,YAAD,oBAAC,OAAQ,CAAT;AACT,UAAY,eAAD,QAAX;AACE,uBAAS,CAAC,KAAM;;;;aAAQ,KAAf;AAET,YAAA,YAAO,CAAC;;;;WAAQ,KAAT;AANK;AAAW;AARC;AAE1B,UAAY,eAAD,QAAX;AACE,uBAAS,CAAC,KAAM,MAAP;AAET,YAAA,YAAO,CAAC,MAAD;AALiB;AA0BI;AAE9B,UAAG,kBAAa,KAAE,MAAlB;AAEE,6BAAe;AACf,4BAAe,CAAC,IAAD;OAHjB;AAF8B;AASA;AAE9B,UAAG,kBAAa,KAAE,MAAlB;AAEE,6BAAe;AACf,4BAAe,CAAC,IAAD;OAHjB;AAF8B;AASD;AAAf;AAEd,UAAG,kBAAa,KAAC,CAAjB;AACE,iBAAQ;AAER,qBAAQ;AALI;AAAe;AAUb,4BAAkC,uBAAQ,wBAA1C;AAFQ;AAIxB,wBAAa,gBAAgB,CAAC,OAAD;AAJL;AAOE;AAE1B,UAAI,cAAS,KAAE,MAAf;AAEE,yBAAW;AACX,4BAAe,CAAC,IAAD;OAHjB;AAF0B;AASD;AAEzB,UAAG,aAAQ,KAAE,MAAb;AAEE,wBAAU;AACV,4BAAe,CAAC,IAAD;OAHjB;AAFyB;AApWS;AAApB;AAGd,eAAS,qBAAY,KAAE,eAAF;AAHP;AAAoB;AAMA;AAApB;AAGd,eAAS,kBAAa,KAAE,CAAF;AAHR;AAAoB;AAMP;AAAb;AAEd,UAAG,CAAY,CAAC,gBAAD,SAAf,EACE,mBAAe,gBAAW,QAAC,YAD7B;AAEA,eAAU;AAJI;AAAa;AAOG;AAM9B,UAAW,CAAC,mBAAD,SAAiB,IAAI,mBAAc,UAAC,EAA/C;AACE,0BAAS,mBAAc,OAAO,CAAC,sBAAkB,aAAQ,eAAY,CAAC,eAAD,EAAc,uBAArD,CAA9B;AAEA,8BAAO,IAAP;AAT4B;AA5TC;AAG/B;AAGA,UAAG,gBAAW,CAAC,QAAD;AACd,YAAM;AAPyB;AAUN;AAAX;AAGd,eAAQ,mBAAc,QAAC,aAAS,CAAC,oDAAuB,mBAAC,YAAS,kBAAV,CAAxB,CAAT;AAHT;AAAW;AAkFG;AAG5B,UAAY,aAAD,QAAX,EACE,aAAQ,gBADV;AAH4B;AAoeM;AAGlC,UAAU,CAAN,MAAM,KAAE,CAAF,CAAK,IAAI,CAAI,aAAvB,EACE,qBAAgB,CAAC,+CAAkB,mBAAC,QAAD,CAAnB,CADlB;AAHkC;AA3eb;AAGrB,UAAY,cAAD,QAAX,EACE,cAAS,CAAC,IAAD,CADX;AAHqB;AAjBF;AAGnB,UAAG,OAAQ,IAAc,CAAT,eAAS,KAAC,wBAAD,CAAzB;AAEE,YAAoB,CAAf,mBAAe,KAAE,IAAF,CACS,IADmB,CAAjB,qBAAiB,KAAE,EAAF,CAArB,IACJ,CAAnB,uBAAmB,KAAE,EAAF,CAD+B,IACV,CAAX,eAAW,KAAE,EAAF,CAD5C,EAEE,qBAAgB,CAAC,8CAAkB,mBAAC,wBAAD,CAAnB,CAFlB;AAGA,oBAAO,gBAAgB,CAAC,eAAD;AACvB,2BAAc;AACd,2BAAc,WAAO,gBAAgB,CAAC,qBAAD;AACrC,2BAAc,YAAY,CAAC,uBAAD;AAC1B,YAAG,iBAAH,EACE,wBADF;OATF;AAHmB;AAqCO;AAG1B,mBAAQ,UAAU,CAAC,8BAAc,IAAf;AAHQ;AAcA;AAAZ;AAEd,2BAAgB,CAAC,cAAD;AAChB,eAAQ;AAHM;AAAY;AAMF;AAAV;AAGd,2BAAgB,CAAC,YAAD;AAChB,eAAQ;AAJM;AAAU;AAsBG;AAAb;AAEd,2BAAgB,CAAC,eAAD;AAChB,eAAQ;AAHM;AAAa;AAdA;AAAb;AAGd,2BAAgB,CAAC,eAAD;AAChB,eAAQ;AAJM;AAAa;AAOH;AAAV;AAGd,2BAAgB,CAAC,eAAD;AAChB,eAAQ;AAJM;AAAU;AAaE;AAAZ;AAGd,eAAQ;AAHM;AAAY;AAMA;AAAZ;AAGd,2BAAgB,CAAC,cAAD;AAChB,eAAQ;AAJM;AAAY;AAOA;AAAZ;AAGd,eAAQ;AAHM;AAAY;AAYD;AAAX;AAEZ;AAGF,kBAAa,aAAQ;AACrB;AACE,qBAAQ,aAAa,CAAC,6BAAD;AACrB,iBAAU;AAFZ;AAIE,qBAAQ,aAAa,CAAC,SAAD;AAJvB;AANc;AAAW;AALA;AAAX;AAEd,eAAU;AAFI;AAAW;AA6DC;AAAZ;AAGd,eAAQ,CAAI;AACZ,UAAG,MAAH;AAEE,iBAAU,eAAU,IAAG,cAAC,uBAAQ,8BAAT,CAAH;AACpB,YAAG,MAAH;AAEE,mBAAgB,CAAC,aAAD,SAAU,IAAI,aAAO,UAAC,EAAZ;AAC1B,cAAG,MAAH,EACE,SAAS,aAAO,aAAC,EADnB;SAHF;OAHF;AAJc;AAAY;AAgBA;AAAZ;AACZ;AAEF,eAAU,eAAI,CAAC,gBAAU,EAAE,cAAG,CAAC,QAAQ,eAAT,CAAmB,GAAC,CAApC;AACd,UAAG,gBAAH;AACE,iBAAU,GAAwB,GAAlB,sBAAS,CAAC,MAAD,CAAX,GAAsB,GAAF;AAElC,qBAAU,GAAwB,GAAlB,sBAAS,CAAC,MAAD,CAAX,GAAsB,GAAF;AAPtB;AAAY;AA0BD;AAAX;AAGd,eAAQ;AAHM;AAAW;AAMI;AAAf;AAGd,eAAQ;AAHM;AAAe;AAMD;AAAd;AAGd,UAAG,kBAAa,KAAE,EAAlB;AACE,iBAAQ;AAER,qBAAQ;AANI;AAAc;AApEH;AAAX;AAEZ;AAGF,kBAAa,aAAQ;AACrB;AACE,qBAAQ,aAAa,CAAC,6BAAD;AACrB,iBAAU;AAFZ;AAIE,qBAAQ,aAAa,CAAC,SAAD;AAJvB;AANc;AAAW;AA5BA;AAAX;AAEZ;AAGF,kBAAa,aAAQ;AACrB;AACE,qBAAQ,aAAa,CAAC,6BAAD;AACrB,iBAAU;AAFZ;AAIE,qBAAQ,aAAa,CAAC,SAAD;AAJvB;AANc;AAAW;AAoKF;AAAT;AAGd,eAAW,aAAM,CAAC,cAAD;AAHH;AAAS;AAYD;AAGtB,gBAAO,kBAAP;AAHsB;AAmDK;AAGL,oDAAC,WAAW,SAAZ;AACtB,UAAc,CAAV,SAAU,KAAE,+BAAF,CAAY,IAAgB,CAAX,UAAW,KAAE,mBAAF,CAA1C,EACE,sBAAkB,IADpB;AAJ2B;AAQG;AAG9B,UAAY,CAAR,aAAQ,KAAE,IAAF,CAAO,IAAK,aAAQ,UAAC,EAAjC,EACE,IAAG,cAAH;AACE,qBAAQ,UAAU,CAAC,+BAAe,CAAhB;AAElB,YAAA,aAAQ,UAAU,CAAC,gCAAgB,CAAjB,CAJtB;AAH8B;AAgBH;AAG3B,2BAAgB,CAAC,cAAD;AAHW;AAMC;AAG5B,2BAAgB,CAAC,eAAD;AAHY;AAMH;AAGzB,2BAAgB,CAAC,YAAD;AAHS;AAqBE;AAE3B,uBAAY,CAAC,MAAD;AAFe;AAKA;AAE3B,2BAAgB,CAAC,cAAD;AAFW;AAKC;AAE5B,2BAAgB,CAAC,eAAD;AAFY;AAzBD;AAG3B,UAAM,aAAM,CAAC,MAAD,CAAZ;AACE;AAEA;AACE,wBAAW,CAAC,MAAD;AADb;AAGE;AACE,+BAAgB,CAAC,8CAAkB,mBAAC,wBAAD,CAAnB;AAJpB;;AANyB;AA8BD;AAE1B,2BAAgB,CAAC,aAAD;AAFU;AAaD;AAMzB,UAAG,MAAM,KAAC,aAAV,EAAwB,MAAxB;AACA,UAAY,aAAD,QAAX;AAEE,qBAAQ;AACR,qBAAQ,WAAW,OAAO,CAAC,IAAD;OAH5B;AAKA,UAAY,MAAD,QAAX;AAEE,cAAM;AACN,cAAM,WAAW,IAAI,CAAC,IAAD;OAHvB;AAKA,sBAAU;AAjBe;AAoBC;AAE1B,uBAAa;AAFa;AA9TA;AAExB;AAGF,kBAAa,aAAQ;AACrB;AACE,qBAAQ,aAAa,CAAC,6BAAD;AACrB,yBAAY,CAAC,MAAD;AAFd;AAIE,qBAAQ,aAAa,CAAC,SAAD;AAJvB;AAN0B;AA8UJ;AAEtB;AACA,+BAAa,CAAC,MAAD;AACb,mBAAO;AAJe;AAOA;AAEtB,sBAAW,CAAC,MAAD;AAFW;AAKI;AAE1B,2BAAgB,CAAC,cAAD;AAFU;AAlHD;AAEzB,2BAAgB,CAAC,YAAD;AAFS;AAtaM;;AACL;AAExB,cAAM;AAFkB;AAKC;AAEzB,cAAM;AAFmB;AAKN;AAEnB,YAAG,MAAM,KAAC,IAAV;AAFmB;AAMrB,WAAK,eAAe,CAAC,4CAAiD,KAAlD;AACpB,WAAK,eAAe,CAAC,2CAAgD,KAAjD;AACpB,WAAK,eAAe,CAAC,uCAA4C,KAA7C;AAnBW;AA5CR;AAMP,gDAAC,MAAD;AAChB,sBAAU;AACA,sBAAD,sBAAC,wBAAY,GAAb;AAIT,4BAAkB,cAAC,8BAAW,4BAAZ;AAZ0B;AAArB;AAeA;AAGvB,UAAY,aAAD,QAAX;AAEE,qBAAQ,UAAC,CAAQ,KAAR;AACT,YAAY,YAAD,QAAX,EACE,YAAO,OAAO,CAAC,IAAD,CADhB;OAHF;AAMY,eAAZ,KAAY;AACF;AAVa;AAuXS;AAAlB;AAGd,eAAU;AAHI;AAAkB;AA4KC;AAG/B,sBAAiB,OAAN,MAAS,aAAH,CAAjB;AAH+B;AAhKV;AAAT;AAGd,eAAW;AAHG;AAAS;AAhVF;AAGrB,UAAG,MAAO,KAAE,IAAZ;AAAqB;AAChB,gBAAa,WAAH,eAAP,MAAO,CAAV;AACH,0BAAgB,MAAO,aAAC,EAAxB;OAEA,MAAgB,yCAAC,MAAD;AAPG;AAUK;;AAEX;AAEb,6BAAgB,CAAC,8CAAkB,mBAAC,yBAAD,CAAnB;AAFH;AAME,iBAAZ,mBAAY,CAAC,MAAD;AACf,UADe,IACf;AAAU;AACV,gBAFe,IAEf;AAAa,0BAAkB,EAAC,MAAD,UAAlB;AACb,gBAHe,IAGf;AAAa,2BAAqB,UAAC,MAAD,CAArB;AACb,gBAJe,IAIf;AAAW,wBAAe,cAAC,MAAD,CAAf;AACX,gBALe,IAKf;AAAY,yBAAgB,KAAC,MAAjB;AACZ,gBANe,IAMf;AAAW,uBAAU,CAAQ,MAAR;;AAErB;;AAhBwB;AAmDN;AAGpB,kBAAO,CAAC,IAAD;AAHa;AAYO;AAE3B;AAEA,eAAU;AACV,mBAAQ,UAAU,CAAC,+BAAe,MAAhB;AALS;AAsJN;AAAP;AAGd,UAAG,aAAQ,KAAC,IAAZ,EACE,qBAAgB,CAAC,wCAAW,mBAAC,kBAAD,CAAZ,CADlB;AAEA,UAAG,gBAAH;AACE,iBAAQ;;AAGR,iBAAQ,aAAQ,aAAa,CAAC,IAAD;AAC7B,YAAG,kBAAW,CAAC,MAAD,CAAd,EACE,SAAQ,IADV;;AAVY;AAAO;AAsTK;AAAN;AAEpB,eAAQ;AAFY;AAAM;AA/LD;AAAX;AAId,eAAQ,sBAAS,CAAC,UAAU,gBAAX;AAJH;AAAW;AAOO;AAEhC;AAEA,UAAG,CAAY,CAAC,mBAAD,SACqB,IADyB,CAAlB,qBAAD,OAAmB,KAAE,CAAF,CAA7B,IACD,CAApB,uBAAD,OAAqB,KAAE,CAAF,CAA/B,IAA2D,CAAZ,eAAD,OAAa,KAAE,CAAF,CAD3D,EAEE,MAFF;AAIA,kBAAa,mBAAc,UAAC;AAC5B;AACE,2BAAc,UAAC,CAAU,IAAV;AACf,oBAAO,gBAAgB,CAAC,eAAD;AACvB,2BAAc,WAAO,gBAAgB,CAAC,qBAAD;AACrC,2BAAc,YAAY,CAAC,uBAAD;AAC1B,4BAAU;AAEV,2BAAc;AACd;AACE,6BAAc;AACd,iBAAM,CAAI,mBAAc,OAAC,EAAzB;AAGE,+BAAc;;AALlB;AAQE,6BAAc;AARhB;AARF;AAmBE,2BAAc,UAAC,CAAU,SAAV;AAnBjB;AATgC;AA6GV;AAGtB,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,qBAAgB,CAAC,wCAAW,mBAAC,kBAAD,CAAZ,CADlB;AAEA,mBAAQ,aAAa,CAAC,KAAK,MAAN;AALC;AAiCK;;AA4BJ;AAEvB,UAAY,gBAAD,QAAX;AAEE,4BAAc;AACd,2BAAa;AACb;AACE,0BAAU,CAAC,IAAD;AADZ;AAGE,6BAAa;AAHf;OAJF;AAFuB;AAzrLjB;;AAyGc,+BAAO,UtC6NjB,+BsC7NiB,CAAP;AAgDA,iCtC7VV,gCsC6VU;AACO;AACM;AACL;AACL;AACA;AACH,iCA1LV,yBA0LU;AACA;AACK;AACT;AACa;AACT;AACE;AACE,qCA0rBhB,uBA1rBgB;AACE;AACE;AACX;AACO,qCAxWV,6BAwWU;AACL;AACA;AACD;AACC,gCAtMF,gCAsME;AACC,iCAtMF,iCAsME;AACA,iCArMF,iCAqME;AACC,kCAzMJ,gCAyMI;AAjLf;AAsLM;;;AAEV;AACA;AAHU;AAkoL4B;AAMxC,UAAI,MAAM,GAAC,CAAX,EACE,qBAAgB,CAAC,+CAAkB,mBAAC,QAAD,CAAnB,CADlB;AANwC;AAUR;AAAZ;AAElB;AAGF,UAAG;AACH,eAAoB,CAAF,CAAD,OAAG,GAAC,CAAD,CAAI,IAAkB,CAAb,iBAAM,CAAC,CAAC,QAAC,CAAD,CAAF,cAAO,IAAG,cAAC,GAAI,eAAU,CAAC,CAAD,cAAf,CAAH,CAAlB;AANJ;AAAY;AASC;AAAb;AAGpB,eAAQ,0BAAa,CAAC,kBAAD;AAHD;AAAa;AAMH;AAAV;AAGpB,eAAQ,uBAAU,CAAC,kBAAD;AAHE;AAAU;AAME;AAAZ;AAGpB,eAAQ,qBAAQ,CAAC,kBAAD;AAHI;AAAY;AAMC;AAAb;AAGpB,eAAQ,uBAAU,CAAC,kBAAD;AAHE;AAAa;AAMF;AAAX;AAGpB;AAGA,UAAG;AACH,UAAG,YAAQ,CAAC,CAAD,CAAX;AACE,iBAAgB,KAAC,CAAD;AAEhB,qBAAQ;AAVU;AAAW;AAcC;AAAZ;AAGpB,eAAQ;AAHY;AAAY;AAOG;AAAf;AAGpB,eAAQ;AAHY;AAAe;AAMP;AAG1B,gBAAO,kBAAP;AAH0B;AAOK;AAGjC,UAAG,MAAH;AACE,wBAAW,CAAC,GAAD;AAEX,YAAA,gBAAW,CAAC,GAAD;AANoB;AASC;AAGlC,sBAAW,CAAC,0BAAa,CAAC,O3ClmL4C,K2CkmL7C,CAAd;AAHuB;AAMH;AAG/B,sBAAW,CAAC,uBAAU,CAAC,MAAD,CAAX;AAHoB;AAME;AAGjC,sBAAW,CAAC,qBAAQ,CAAC,MAAD,CAAT;AAHsB;AAMC;AAGlC,sBAAW,CAAC,qBAAQ,CAAC,MAAD,CAAT;AAHuB;AAOF;AAEhC,kBAAO,CAAC,MAAD;AAFyB;AAMA;AAEhC,UAAG,YAAQ,CAAC,MAAD,CAAX;AACE,wBAAW,CAAO,KAAC,MAAR;AAEX,YAAA,qBAAgB,CAAC,6CAAD;AALc;AArIH;AAGb,qCAAC,MAAD;AAChB,sBAAW,CAAC,wBAAD;AACX,wBAAc;AACd,4BAAkB;AAClB,mBAAS;AAPyC;AAArB;AAUI;AAEjC,UAAG,MAAO,IAAG,cAAC,yBAAU,4BAAa,4BAAxB,CAAb,EACE,gBAAW,CAAC,MAAD,CADb;AAFiC;AA5nLrB;;AAuBQ,+BAAO,UtCyHjB,+BsCzHiB,CAAP;AAML;AA7BH;AAmCC;;;AAEX;AACA;AAHW;AAyuL4B;AAKzC,UAAI,MAAM,GAAC,EAAX,EACE,qBAAgB,CAAC,+CAAkB,mBAAC,QAAD,CAAnB,CADlB;AALyC;AAST;AAGhC,2BAAgB,CAAC,yCAAY,mBAAC,SAAO,MAAI,MAAI,kBAAhB,CAAb;AAHgB;AAMM;AAGvC,UAAG,mBAAc,KAAE,MAAnB;AAEE,8BAAgB;AAChB,4BAAe,CAAC,IAAD;OAHjB;AAHuC;AAUH;AAGnC,UAAG,gBAAW,KAAE,MAAhB;AAEE,2BAAa;AACb,4BAAe,CAAC,IAAD;OAHjB;AAHmC;AAUF;AAAZ;AAErB,eAAQ,mBAAY,KAAE,CAAF;AAFC;AAAY;AAKC;AAElC,uBAAY,CAAK,MAAD,IAAJ;AAFsB;AA/CJ;AAGd,qCAAC,MAAD;AAChB,wBAAW,qCAAX;AAJmD;AAArB;AAluLjB;;AAYO,+BAAO,UtCiGjB,+BsCjGiB,CAAP;AAEA,iCtC3aV,gCsC2aU;AACI;AACH;AAhBR;AAqBA;;;AAEX;AACA;AACA;AACA;AALW;AA45LoB;AAGjC,UAAU,CAAN,MAAM,IAAE,cAAF,CAAa,IAAW,CAAN,MAAM,IAAE,cAAF,CAAlC;AACE,yBAAW;AAEX,YAAA,eAAU,CAAC,OAAO,eAAU,cAAlB;AANqB;AATA;AAGjC,UAAU,CAAN,MAAM,IAAE,cAAF,CAAa,IAAW,CAAN,MAAM,IAAE,cAAF,CAAlC;AACE,yBAAW;AAEX,YAAA,eAAU,CAAC,OAAO,eAAU,cAAlB;AANqB;AAlIF;AAAV;AAGrB,eAAQ;AAHa;AAAU;AAWE;AAAZ;AAGrB,UAAG,CAAI,aAAQ,CAAC;;;;UAAD,CAAf,EACE,SAAQ,CADV;AAHqB;AAAY;AAkBD;AAAX;AAEnB;AAGF,UAAG,aAAQ,CAAC;;;;UAAD,CAAX;AACE,iBAAQ,qBAAQ,CAAC,CAAD;AAEhB,qBAAQ;AARW;AAAW;AAXC;AAAZ;AAEnB;AAGF,UAAG,aAAQ,CAAC;;;;UAAD,CAAX;AACE,iBAAQ;AAER,qBAAQ;AARW;AAAY;AAuBJ;AAE3B;AACA;AAGF,gBAAO,EAAP;AACA,UAAG,CAAI,aAAQ,CAAC;;;;UAAD,CAAf,EAAwB,MAAxB;AACA,UAAG,YAAa,IAAe,CAAX,gBAAW,KAAC,EAAD,CAA/B;AACE,cAAK;AAEL,kBAAK;AACP,UAAU,GAAD,OAAK,KAAE,CAAhB;AACE,kBAAO,wBAAW,CAAC,IAAI,CAAL,CAAlB;AAEA,YAAM,UAAF,MAAE;AAfqB;AAkBA;AAAR;AAGrB;AAGA,UAAG;AACH,eAAQ,gBAAS,CAAC,CAAD;AACjB,UAAG,MAAH,EACE,WAAe,UAAC,CAAD,CAAf,CADF;AARqB;AAAQ;AAoBG;AAGhC,uBAAY,CAAC,UAAK,CAAC,MAAD,CAAN;AAHoB;AAME;AAElC,UAAG,eAAU,CAAC,MAAD,CAAb;AACE,oBAAO,CAAC,MAAD;AAEP,gBAAa,CAAT,cAAS,KAAE,CAAF,CAAK,IAAa,CAAT,cAAS,KAAE,CAAF,CAA/B;AACE,uBAAU,CAAC,OAAO,eAAU,cAAlB;AAEV,YAAA,eAAU,CAAC,OAAO,eAAU,cAAlB;AARoB;AAmBD;AAE/B;AAAE;AAGJ,UAAU,MAAD,OAAQ,KAAC,CAAlB;AACE;;AAGA,wBAAG,CAAC,OAAO;;;;aAAE;;;;YAAV;AACH,YAAG,IAAI,KAAC,CAAR;AACE,2BAAY,CAAC,CAAD;AAEZ,cAAA,qBAAgB,CAAC,2CAAc,mBAAC,SAAD,CAAf;;AAba;AARA;AAEjC,UAAG,gBAAS,CAAC,MAAD,CAAZ;AACE,yBAAY,CAAQ,UAAC,MAAD,CAAR;AAEZ,YAAA,qBAAgB,CAAC,cAAD;AALe;AA1FC;AAAb;AAErB,eAAQ;AAFa;AAAa;AAiEC;AAEnC,UAAU,CAAN,MAAM,IAAE,cAAF,CAAa,IAAW,CAAN,MAAM,IAAE,cAAF,CAAlC;AACE,yBAAY,CAAC,MAAD;AAEZ,YAAA,eAAU,CAAC,OAAO,eAAU,cAAlB;AALuB;AAlFL;AAGd,4CAAC,MAAD;AAChB,sBAAW,CAAC,yBAAD;AACX,uBAAc;AACd,uBAAe;AANoC;AAArB;AAoIC;AAAV;AAGrB,UAAa,CAAT,cAAS,KAAE,CAAF,CAAK,IAAa,CAAT,cAAS,KAAE,CAAF,CAA/B;AACE,iBAAiB,CAAN,MAAM,IAAE,cAAF,CAAa,IAAW,CAAN,MAAM,IAAE,cAAF,CAAX;AAE9B,qBAAiB,CAAN,MAAM,IAAE,cAAF,CAAa,IAAW,CAAN,MAAM,IAAE,cAAF,CAAX;AANX;AAAU;AA14LlB;;AAsBO,+BAAO,UtCkEjB,+BsClEiB,CAAP;AAID;AACA;AA3BN;AA8BC;;;AAEJ;AA04LkB;AAE5B,uBAAY,CAAC,MAAD;AAFgB;AAKD;AAAT;AAElB;AAEA,UAAG,CAAI,aAAQ,CAAC;;;;UAAD,CAAf;AACE,iBAAU;AAEV,qBAAU;AAPM;AAAS;AA/4LjB;;AAUI;;;AAEZ;AACA;AACA;AACA;AALY;AAuiMoB;AAGlC,UAAU,CAAN,MAAM,IAAE,cAAF,CAAa,IAAW,CAAN,MAAM,IAAE,cAAF,CAAlC;AACE,yBAAW;AAEX,YAAA,eAAU,CAAC,OAAO,eAAU,cAAlB;AANsB;AATA;AAGlC,UAAU,CAAN,MAAM,IAAE,cAAF,CAAa,IAAW,CAAN,MAAM,IAAE,cAAF,CAAlC;AACE,yBAAW;AAEX,YAAA,eAAU,CAAC,OAAO,eAAU,cAAlB;AANsB;AA/HF;AAAV;AAGtB,eAAQ;AAHc;AAAU;AAwBE;AAAZ;AAGtB,eAAQ;AAHc;AAAY;AAlBC;AAAb;AAGtB,UAAG,CAAI,aAAQ,CAAC;;;;UAAD,CAAf,EACE,SAAQ,CADV;AAHsB;AAAa;AAwBF;AAAX;AAEpB;AAGF,UAAG,aAAQ,CAAC;;;;UAAD,CAAX;AACE,iBAAQ,qBAAQ,CAAC,CAAD;AAEhB,qBAAQ;AARY;AAAW;AAjBC;AAAZ;AAEpB;AAGF,UAAG,aAAQ,CAAC;;;;UAAD,CAAX;AACE,iBAAQ;AAER,qBAAQ;AARY;AAAY;AA4BJ;AAE5B;AACA;AAGF,gBAAO,EAAP;AACA,UAAG,CAAI,aAAQ,CAAC;;;;UAAD,CAAf,EAAwB,MAAxB;AACA,UAAG,YAAa,IAAe,CAAX,gBAAW,KAAC,EAAD,CAA/B;AACE,cAAK;AAEL,kBAAK;AACP,UAAU,GAAD,OAAK,KAAE,CAAhB;AACE,kBAAO,wBAAW,CAAC,IAAI,CAAL,CAAlB;AAEA,YAAM,UAAF,MAAE;AAfsB;AAkBA;AAAR;AAGtB;AAGA,UAAG;AACH,eAAQ,gBAAS,CAAC,CAAD;AACjB,UAAG,MAAH,EACE,WAAiB,UAAC,CAAD,CAAjB,CADF;AARsB;AAAQ;AAYG;AAGjC,wBAAa,CAAC,UAAK,CAAC,MAAD,CAAN;AAHoB;AAeE;AAGnC,wBAAa,CAAC,MAAD;AAHsB;AATC;AAGpC,UAAG,eAAU,CAAC,MAAD,CAAb;AACE,oBAAO,CAAC,MAAD;AAEP,YAAA,eAAU,CAAC,OAAO,eAAU,cAAlB;AANwB;AAeF;AAEhC;AACA;AAGF,UAAU,MAAD,OAAQ,KAAC,CAAlB;AACE;;AAGA,sBAAG,CAAC,OAAO;;;;aAAE;;;;YAAV;AACH,YAAG,IAAI,KAAC,CAAR;AACE,4BAAa,CAAC,CAAD;AAEb,cAAA,qBAAgB,CAAC,2CAAc,mBAAC,SAAD,CAAf;;AAdc;AAkBA;AAElC,UAAG,gBAAS,CAAC,MAAD,CAAZ;AACE,0BAAa,CAAU,UAAC,MAAD,CAAV;AAEb,YAAA,qBAAgB,CAAC,eAAD;AALgB;AAzHH;AAGf,4CAAC,MAAD;AAChB,sBAAW,CAAC,0BAAD;AACX,uBAAc;AACd,uBAAe;AANqC;AAArB;AAiIC;AAAV;AAGtB,UAAa,CAAT,cAAS,KAAE,CAAF,CAAK,IAAa,CAAT,cAAS,KAAE,CAAF,CAA/B;AACE,iBAAiB,CAAN,MAAM,IAAE,cAAF,CAAa,IAAW,CAAN,MAAM,IAAE,cAAF,CAAX;AAE9B,qBAAiB,CAAN,MAAM,IAAE,cAAF,CAAa,IAAW,CAAN,MAAM,IAAE,cAAF,CAAX;AANV;AAAU;AArhMlB;;AAsBM,+BAAO,UtCwBjB,+BsCxBiB,CAAP;AAID;AACA;AA3BL;AAgCD;AA0hMqB;AAQlC;AARkC;AAPJ;AAGd,4CAAC,MAAD;AAChB,sBAAW,CAAC,yBAAD;AAJwC;AAArB;AAnhMjB;;AAIO,+BAAO,UtCUjB,+BsCViB,CAAP;AAJP;AASF;;;AAET;AACA;AACA;AACA;AALS;AA8hMoB;AAE/B,UAAG,cAAS,KAAC,MAAb,EAAyB,MAAzB;AACA,uBAAW;AAHoB;AAMC;AAEhC,UAAW,CAAP,MAAO,KAAE,CAAC,CAAH,CAAM,IAAW,CAAP,MAAO,GAAE,CAAF,CAA5B;AACE,0BAAc;AAEd,8BAAc;AALgB;AAQH;AAAV;AAGnB;AAGA,UAAG;AACH,UAAG,YAAQ,CAAC,CAAD,CAAX;AACE,iBAAc,cAAC,CAAD;AAEd,qBAAQ;AAVS;AAAU;AA0BG;AAAb;AAEnB,eAAQ,UAAK,CAAC,iBAAD;AAFM;AAAa;AAKD;AAAZ;AAGnB,eAAQ,UAAK,CAAC,iBAAD;AAHM;AAAY;AAlBA;AAAZ;AAGnB;AAGA,UAAG;AACH,UAAG,YAAQ,CAAC,CAAD,CAAX;AACE,iBAAQ;AAER,qBAAQ;AAVS;AAAY;AAwBD;AAAX;AAGnB;AAGA,UAAG;AACH,UAAG,YAAQ,CAAC,CAAD,CAAX;AACE,iBAAQ,uBAAU,CAAO,cAAC,CAAD,CAAP;AAElB,qBAAQ;AAVS;AAAW;AAaH;AAG3B;AACA;AACA;AACA;AACA;AAGA,gBAAO,EAAP;AACA,UAAG;AACH,UAAG,CAAI,YAAQ,CAAC,CAAD,CAAf,EACE,MADF;AAEA,UAAS,cAAC,CAAD;AACT,UAAG,YAAa,IAAwB,CAAb,gBAAD,OAAc,KAAE,CAAF,CAAxC;AACE,cAAK;AAEL,kBAAK;AAEP,eAAU;AACV,UAAG,CAAI,cAAP;AACE,aAAM;;AAGN,iBAAU;AACV,aAAM;;AAIR,UAAG,GAAG,KAAE,EAAR;AACE,kBAAO,wBAAW,CAAC,IAAI,CAAL,CAAlB;AAEA,sBAAO,wBAAW,CAAC,EAAE,GAAG,gBAAW,MAAjB,CAAlB;AAjCyB;AAoCG;AAG9B,UAAG,eAAU,CAAC,MAAD,CAAb;AACE,oBAAO,CAAC,MAAD;AAEP,YAAA,eAAU,CAAC,OAAO,eAAU,cAAlB;AANkB;AASG;AAEjC,qBAAU,CAAC,MAAD;AAFuB;AAKD;AAGhC,qBAAU,CAAC,MAAD;AAHsB;AAMD;AAE7B;AAGF,UAAI,MAAM,KAAC,EAAX;AACE;;AAGA,YAAG,CAAI,4BAAa,CAAC,OAAO;;;;YAAR,CAApB,EACE,qBAAgB,CAAC,wCAAY,mBAAC,SAAD,CAAb,CADlB;AAEA,uBAAU,CAAC,CAAD;;AAXmB;AAeA;AAE/B,UAAG,YAAQ,CAAC,MAAD,CAAX;AACE,uBAAU,CAAO,cAAC,MAAD,CAAP;AAEV,YAAA,qBAAgB,CAAC,OAAD;AALa;AAQH;AAGZ,4CAAC,MAAD;AAChB,sBAAW,CAAC,uBAAD;AACX,wBAAY;AALqC;AAArB;AAUC;AAAV;AAGnB,UAAa,CAAT,cAAS,KAAE,CAAF,CAAK,IAAa,CAAT,cAAS,KAAE,CAAF,CAA/B;AACE,iBAAe,CAAN,MAAM,IAAE,cAAF,CAAa,IAAW,CAAN,MAAM,IAAE,cAAF,CAAX;AAE5B,qBAAQ;AANS;AAAU;AAvrMlB;;AAqBS,+BAAO,UtChBjB,+BsCgBiB,CAAP;AAKD;AACA;AACA;AACC;AA7BT;AAmCE;AAIM;;;;;;AAJN;;AAEX;AAEA;AAJW;;;;;AA8vMyB;AAEpC;AAGF,UAAG,mBAAc,KAAE,MAAnB;AAEE,YAAG,cAAG,CAAC,IAAI,MAAL;AACN,YAAK,CAAD,CAAC,GAAC,CAAD,CAAI,IAAK,CAAD,CAAC,KAAQ,MAAD,OAAP,CAAd,EACE,qBAAgB,CAAC,mDAAsB,mBAAC,SAAD,CAAvB,CADlB;AAEA,8BAAgB;AAEhB,sBAAS,CAAC,CAAD,EAAO,CAAP,CAAT,GAAuB,eAAI,CAAC,OAAO,EAAE,CAAC,GAAC,CAAZ;AAC3B,sBAAS,CAAC,CAAD,EAAM,CAAN,CAAT,GAAsB,sBAAS,CAAC,cAAS,CAAC,CAAD,EAAO,CAAP,CAAV;AAC/B,sBAAS,CAAC,CAAD,EAAO,CAAP,CAAT,GAAwB,eAAI,CAAC,OAAO,CAAC,GAAC,CAAD,CAAU,MAAD,OAAQ,GAAC,CAA3B;AAC5B,sBAAS,CAAC,CAAD,EAAM,CAAN,CAAT,GAAuB,sBAAS,CAAC,cAAS,CAAC,CAAD,EAAO,CAAP,CAAV;AAChC,4BAAe,CAAC,IAAD;OAXjB;AALsC;AA/FL;AAAZ;AAGrB;AAGA,UAAG;AACH,UAAG,gBAAS,CAAC,CAAD,CAAZ;AACE,iBAAe,EAAC,CAAD;AAEf,qBAAQ;AAVW;AAAY;AA0BD;AAAX;AAGrB;AAGA,UAAG;AACH,UAAG,gBAAS,CAAC,CAAD,CAAZ;AACE,iBAAQ,cAAS,CAAC,CAAD,EAAc,GAAC,CAAD,UAAd;AAEjB,qBAAQ;AAVW;AAAW;AAbC;AAAZ;AAGrB;AAGA,UAAG;AACH,UAAG,gBAAS,CAAC,CAAD,CAAZ;AACE,iBAAe,EAAC,CAAD;AAEf,qBAAQ;AAVW;AAAY;AAkCA;AAAZ;AAErB,eAAc,mBAAD;AAFQ;AAAY;AARG;AAAf;AAGrB,eAAe,cAAS,CAAC,CAAD,EAAO,CAAP,CAAV;AACd,UAAG,MAAM,GAAQ,cAAS,CAAC,CAAD,EAAO,CAAP,CAAV,OAAhB,EACE,SAAe,cAAS,CAAC,CAAD,EAAO,CAAP,CAAV,OADhB;AAJqB;AAAe;AAkBF;AAGlC,kBAAO,CAAC,MAAD;AAH2B;AAMD;AAE/B;AAGF,aAAM,sBAAS,CAAC,MAAD;AACf,UAAG,IAAI,KAAC,EAAR;AACE;AACG,gBAAG,cAAG,CAAC,KAAM,cAAS,CAAC,CAAD,EAAM,CAAN,CAAhB,CAA4B,KAAC,CAAnC;AACH,yBAAY,CAAC,IAAD;AACT,gBAAG,cAAG,CAAC,KAAM,cAAS,CAAC,CAAD,EAAM,CAAN,CAAhB,CAA6B,KAAC,CAApC;AACH,yBAAY,CAAC,KAAD;AAEZ,YAAA,qBAAgB,CAAC,0CAAa,mBAAC,SAAD,CAAd;AAbe;AAXC;AAElC,uBAAY,CAAC,MAAM,KAAE,CAAT;AAFsB;AA2BD;AAEjC,UAAG,gBAAS,CAAC,MAAD,CAAZ;AACE,yBAAY,CAAQ,EAAC,MAAD,UAAR;AACT,gBAAG,YAAQ,CAAC,MAAD,CAAX,EACH,iBAAY,CAAO,cAAC,MAAD,CAAQ,KAAE,CAAjB,CADT;AAJ4B;AAQH;AAGd,qCAAC,MAAD;AAChB,sBAAW,CAAC,yBAAD;AACX,4BAAe,YAAf;AALmD;AAArB;AAtvMjB;;AAIM,gEAAC,EAAQ,CAAT;AAaC,+BAAO,UtC/CjB,+BsC+CiB,CAAP;AAGI;AApBX;AAyBC;;;AAEZ;AAFY;AA2vMyB;AAEvC,UAAG,mBAAc,KAAE,MAAnB;AACE,8BAAgB;AAChB,4BAAe,CAAC,IAAD;OAFjB;AAFuC;AAQA;AAAjB;AAEtB,UAAM,aAAM,CAAC,MAAD,CAAZ;AACE,iBAAQ;AACL,gBAAY,aAAD,QAAX;AACH,iBAAQ,aAAO,kBAAkB,CAAC,KAAK,OAAO,WAAb;AAEjC,qBAAQ,aAAQ,yBAAyB,CAAC,KAAK,OAAO,WAAb;AAPrB;AAAiB;AAUO;AAAxB;AAEtB,UAAY,aAAD,QAAX;AACE,iBAAQ,aAAO,wBAAwB,CAAC,KAAK,MAAN;AAEvC,qBAAQ,aAAQ,+BAA+B,CAAC,KAAK,MAAN;AAL3B;AAAwB;AAQX;AAAb;AAGtB,eAAQ,sBAAiB,CAAC,eAAQ,KAAT;AAHH;AAAa;AAyBH;AAAV;AAGtB,eAAQ;AAHc;AAAU;AAOC;AAAX;AAGtB,kBAAO,CAAC;;;;WAAO,KAAR;AAHe;AAAW;AApBC;AAAZ;AAGtB,eAAQ;AACR,UAAG,CAAI,YAAQ,CAAC,MAAD,CAAf,EACE,SAAQ,IADV;AAJsB;AAAY;AAQD;AAAX;AAEtB,eAAkB;AAFI;AAAW;AAmBH;AAG9B;AACA;AAGA,UAAG,sBAAiB,CAAC,eAAQ,KAAT;AACpB,UAAI,CAAC,KAAC,CAAN;AACE,kBAAO,EAAP;;AAGA,YAAI,YAAc,IAA2B,CAAf,mBAAD,OAAgB,KAAE,CAAF,CAA7C;AACE,cAAG;;AAEE;AACJ,cADI,IACJ;AAAS,gBAAG,2BAAc;AAC1B,oBAFI,IAEJ;AAAS,gBAAG,2BAAc;;AAE1B,gBAAG;;;AAEN,kBAAO,2BAAc,CAAC,EAAE,CAAH,CAArB;;AArB4B;AA0BM;AAGpC,kBAAO,CAAC,6BAAwB,CAAC,MAAD,CAAzB;AAH6B;AAOH;AAGjC,wBAAa,CAAC,MAAD;AAHoB;AAOC;AAEhC;AAGF,UAAG,MAAM,KAAE,EAAX;AAEE,YAAG,0BAAa,CAAC,MAAD;AAChB,oBAAO,CAAC,6BAAwB,CAAC,CAAD,CAAzB;OAGP,MAAA,YAAO,CAAC,IAAD;AAXyB;AAzEA;AAGlC,wBAAa,CAAC,sBAAiB,CAAC,OAAO,IAAR,CAAlB;AAHqB;AAwFH;AAGf,qCAAC,MAAD;AAChB,sBAAW,CAAC,0BAAD;AAJyC;AAArB;AAn3MjB;;AAkBM,+BAAO,UtCzEjB,+BsCyEiB,CAAP;AAGI;AArBV;AA0BJ;AAm2MiB;AAGX,6CAAC,MAAD;AAChB,sBAAW,CAAC,sBAAD;AAJqC;AAArB;AAn2MjB;;AAEU,+BAAO,UtCnFjB,+BsCmFiB,CAAP;AAFV;AAOA;AA62MoB;AAG9B;AAGA,UAAG,MAAM,KAAE,EAAX;AAEE,YAAG,sBAAS,CAAC,MAAD;AACZ,oBAAO,CAAC,6BAAwB,CAAC,CAAD,CAAzB;OAGP,MAAA,YAAO,CAAC,IAAD;AAZqB;AAPH;AAGX,6CAAC,MAAD;AAChB,sBAAW,CAAC,sBAAD;AAJqC;AAArB;AAt2MjB;;AAIU,+BAAO,UtC5FjB,+BsC4FiB,CAAP;AAJV;AASE;AAu3M4B;AAKxC,UAAG,MAAM,GAAC,CAAV,EACE,qBAAgB,CAAC,+CAAkB,mBAAC,QAAD,CAAnB,CADlB;AALwC;AAST;AAAX;AAGpB,UAAY,aAAD,QAAX;AACE,iBAAQ,aAAO,gBAAgB,CAAC,MAAD;AAE/B,qBAAQ,aAAQ,uBAAuB,CAAC,MAAD;AANrB;AAAW;AASA;AAAX;AAGpB,UAAY,aAAD,QAAX;AACE,iBAAQ,aAAO,gBAAgB,CAAC,oBAAD;AAE/B,qBAAQ,aAAQ,uBAAuB,CAAC,oBAAD;AANrB;AAAW;AASA;AAAX;AAGpB;AACA;AACA;AAGA,eAAU;AACV,UAAG;AACH,UAAG,CAAC,IAAE,IAAN,EACE,IAAI,cAAS,IAAG,cAAC,uBAAQ,yBAAT,CAAhB;AACE,iBAAc,KAAC,CAAD;;AAGd,YAAG,gBAAW,CAAC,CAAD;AACd,iBAAO,QAAc,OAAH,WAAC,CAAD,CAAG,GAAC,CAAD,kBAArB;AAAI;AACD,mBAAkB,MAAO,OAAO,CAAC,MAAS,aAAa,CAAC,CAAC,CAAC,CAAD,CAAF,CAAvB;;OAPvC;AAVoB;AAAW;AAsBC;AAAZ;AAGpB,eAAQ;AAHY;AAAY;AAOJ;AAAR;AAEpB;AAEA,UAAG;AACH,eAAS,CAAC,IAAE,IAAF;AACV,UAAG,MAAH;AACE,mBAAQ,gBAAW,CAAC,CAAD,CAAnB;AAEA,YAAU,WAAD,mBAAC,eAAO,CAAR,CAAC;AATQ;AAAQ;AAcI;AAGhC;AACA;AAGA,UAAG,cAAS,IAAG,cAAC,uBAAQ,yBAAT,CAAf;AACE,oBAAO,CAAC,MAAD;;AAGG,SAAD,sBAAC,IAAU,MAAD,OAAV;AACT,iBAAO,QAAW,OAAC,MAAD,yBAAlB;AAAI;AACF,WAAC,CAAC,CAAC,GAAC,CAAH,CAAD,GAAY,MAAD,YAAQ,CAAD,IAAP;;AACb,uBAAU,CAAC,CAAD;;AAdoB;AAmBA;AAGhC;AACA;AAAE;AAGF,UAAG,WAAO,CAAC,MAAD,CAAV;AAEE,cAAW,WAAkB,MAAlB;AACD,SAAD,sBAAC,IAAG,GAAJ;AACT,iBAAO,QAAQ,OAAH,GAAG,GAAC,CAAD,kBAAf;AAAI;AACF,WAAC,CAAC,CAAD,CAAD,GAAa,MAAO,CAAC,CAAD;;AACtB,uBAAU,CAAC,CAAD;OAEP,UAAG,YAAQ,CAAC,MAAD,CAAX;AACH,wBAAW,CAAO,KAAC,MAAR;AAEX,YAAA,qBAAgB,CAAC,MAAD;AAlBc;AAqBF;AAAV;AAGpB;AAGA,UAAG;AACH,UAAG,mBAAQ,CAAC,CAAD,CAAX;AACE,iBAAQ,gBAAW,CAAC,CAAD;AAEnB,YAAU,MAAD,sBAAC,SAAO,CAAR;AAVS;AAAU;AAaC;AAE/B,kBAAO,CAAC,gBAAW,CAAC,oBAAD,CAAZ;AAFwB;AAMF;AAGb,qCAAC,MAAD;AAHkC;AAArB;AAx/MjB;;AAaQ,+BAAO,UtC9GjB,+BsC8GiB,CAAP;AAEL;AAfH;AAsBK;;AACF;;AACN;AAEC;;;AAER;AACA;AAHQ;AAq/MmB;AAAX;AAElB,eAAoB;AAFF;AAAW;AAKC;AAE9B,UAAG,kBAAS,KAAG,MAAf;AAEE,yBAAY,CAAC,MAAD;AACZ,4BAAe,CAAC,IAAD;OAHjB;AAF8B;AASI;AAElC,UAAG,kBAAa,KAAC,MAAjB,EAA6B,MAA7B;AACA,2BAAe;AACf,0BAAe,CAAC,KAAD;AAJmB;AAOI;AAEtC,UAAG,MAAM,GAAC,CAAV,EACE,qBAAgB,CAAC,+CAAkB,mBAAC,QAAD,CAAnB,CADlB;AAFsC;AAMT;AAAX;AAGlB;AAGA,UAAG;AACH,eAAc,WAAC,CAAD;AAPI;AAAW;AAWF;AAAT;AAGlB,UAAG,CAAI,cAAP;AACE,iBAAmB;AAEnB,qBAAQ,kBAAW,KAAC,CAAD;AANH;AAAS;AASD;AAErB;AACL,UADK,IACL;AACE,kBAAO,mBAAP;AACF,gBAHK,IAGL;AACE,kBAAO,kBAAP;AACF,gBALK,IAKL;AAEE,kBAAO,kBAAP;AACA,YAAG,YAAa,IAAkB,CAAN,WAAD,OAAO,GAAC,sBAAD,CAAlC,EACE,UAAO,eAAI,CAAC,mBAAK,EAAE,sBAAR,CAAsB,GAAE,KAAnC,CADF;OAGF,UAXK,IAWL;AAEE,kBAAO,kBAAP;AACA,YAAG,YAAa,IAAkB,CAAN,WAAD,OAAO,GAAC,sBAAD,CAAlC,EACE,UAAO,mBAAP,CADF;OAHF;AAb0B;AA5DC;AAGX,2CAAC,MAAD;AAChB,sBAAW,CAAC,sBAAD;AAJqC;AAArB;AAOH;AAExB,kBAAO,CAAC,IAAD;AAFiB;AA2EM;AAAN;AAGxB,eAAQ;AAHgB;AAAM;AAMC;AAE/B,UAAG,MAAO,IAAG,cAAe,KApkNhB,uBAAQ,0BAokNP,CAAb,EACE,gBAAW,CAAC,MAAD,CADb;AAF+B;AAhkNrB;;AAeU,+BAAO,UtC1IjB,+BsC0IiB,CAAP;AAQG,oCA3BN,gCA2BM;AACJ,gCA1BV,wBA0BU;AACJ;AAzBL;AA8BA;AAwjNgB;AAE1B,gBAAmB,wCAAnB;AAF0B;AANC;AAEX,yCAAC,MAAD;AAChB,sBAAW,CAAC,sBAAD;AAHqC;AAArB;AAljNjB;;AAIU,+BAAO,UtC7JjB,+BsC6JiB,CAAP;AAJV;AASG;AAiiNiB;AAEd,yCAAC,MAAD;AAChB,sBAAW,CAAC,yBAAD;AAHwC;AAArB;AAjiNjB;;AAEO,+BAAO,UtCpKjB,+BsCoKiB,CAAP;AAFP;AAOA;AAsjN4B;;AAKR;AAAZ;AAErB,eAAS,mBAAY,IAAC,IAAD;AAFA;AAAY;AAqEC;AAElC,sBAAW,CAAC,MAAD;AAFuB;AAhEA;AAAb;AAGrB;AAGA,UAAG;AACH,UAAY,aAAD,QAAX;AACE,iBAAQ,aAAO,kBAAkB,CAAC,KAAK,EAAE,IAAR;AAEjC,qBAAQ,aAAQ,yBAAyB,CAAC,KAAK,EAAE,IAAR;AAVtB;AAAa;AAqEC;AAEnC,sBAAW,CAAC,MAAD;AAFwB;AAxDJ;AAAV;AAGrB;AAGA,UAAG;AACH,UAAG,YAAQ,CAAC,CAAD,CAAX;AACE,iBAAc,cAAC,CAAD;AACX,gBAAG,YAAQ,CAAC,CAAD,CAAX;AACH,iBAAQ,UAAU,CAAO,KAAC,CAAR;AAElB,YAAA,qBAAgB,CAAC,SAAD;AAZG;AAAU;AA6DC;AAEhC,sBAAW,CAAC,MAAD;AAFqB;AA9CC;AAAZ;AAErB;AAGA,UAAG;AACH,UAAG,gBAAS,CAAC,CAAD,CAAZ;AACE,iBAAe,UAAC,CAAD;AACZ,gBAAG,YAAQ,CAAC,CAAD,CAAX;AACH,iBAAQ,QAAQ,CAAO,KAAC,CAAR;AAEhB,YAAA,qBAAgB,CAAC,SAAD;AAXG;AAAY;AAmDC;AAElC,sBAAW,CAAC,MAAD;AAFuB;AArCF;AAAX;AAErB;AAGA,UAAG;AACH,UAAG,gBAAS,CAAC,CAAD,CAAZ;AACE,iBAAQ,qBAAQ,CAAQ,UAAC,CAAD,CAAR;AACb,gBAAG,YAAQ,CAAC,CAAD,CAAX;AACD,iBAAQ,uBAAU,CAAO,cAAC,CAAD,CAAP;AACjB,gBAAG,YAAQ,CAAC,CAAD,CAAX;AACH,iBAAc,KAAC,CAAD;AAEd,YAAA,qBAAgB,CAAC,SAAD;AAbG;AAAW;AA0CC;AAEjC,sBAAW,CAAC,MAAD;AAFsB;AAzBA;AAAZ;AAErB,eAAQ;AAFa;AAAY;AA8BA;AAEjC,kBAAO,CAAC,MAAD;AAF0B;AAzGH;AAEd,qCAAC,MAAD;AAChB,sBAAW,CAAC,yBAAD;AAHwC;AAArB;AAhjNjB;;AAwBO,+BAAO,UtCjMjB,+BsCiMiB,CAAP;AAxBP;AA2BA;;;AAEX;AAFW;;;;;AAw2Q4B;AAEzC,UAAY,mBAAD,QAAX;AAEE,2BAAc;AACd,2BAAc,cAAd,GAAgC;AAChC,YAAY,aAAD,QAAX,EACE,aAAO,kBAAC,EAAc,OAAO,CAAC,mBAAD,CAD/B;OAJF;AAQA,UAAY,KAAD,QAAX,EACE,aAAO,kBAAC,EAAc,IAAI,CAAC,KAAD,CAD5B;AAGA,4BAAkB;AAbuB;AAbf;AAE1B;AACA,UAAY,mBAAD,QAAX,EACE,IAAG,OAAH;AAEE,YAAG,mBAAc,OAAO,KAAE,6BAA1B,EACE,mBAAc,OADhB;OAIA,MAAA,mBAAc,QAPlB;AAH0B;AAPI;AAE9B;AAEA,sBAAW,CAAC,yBAAD;AAJwC;AAArB;AAoCA;AAE9B,8BAAmB,CAAC,IAAD;AAEnB;AAJ8B;AAx3QjB;;AAOO,+BAAO,UtC3MjB,+BsC2MiB,CAAP;AAPP;AAgDH;AAhCE;;AAEC,mCAFD,oCAEC;AAEJ;;;AAEP;AACA;AACA;AACA;AACA;AACA;AAPO;;;;;AAm1CqB;AAAb;AAEjB,eAAU;AAFO;AAAa;AAUI;AAElC,UAAG,mBAAc,KAAC,MAAlB,EAA8B,MAA9B;AACA,UAAG,MAAO,KAAG,EAAb,EAAqB,gBAAmB,aAAT,cAAW,cAAC,mCAAD,CAAF,CAAxC;AACA,4BAAgB;AAJkB;AArCH;AAE/B,UAAG,gBAAW,KAAC,MAAf,EAA2B,MAA3B;AACA,UAAG,MAAO,KAAG,EAAb,EAAqB,gBAAmB,aAAT,cAAW,cAAC,8BAAD,CAAF,CAAxC;AACA,yBAAa;AAJkB;AAgCA;AAE/B,yBAAe;AAFgB;AAYL;AAI1B,mBAAS;AACO,qDAAC,KAAD;AAChB,qBAAW;AACX,sBAAY;AANmB;AADL;AArCF;AACtB;AAEF,aAAQ;AACR,UAAa,cAAH,eAAP,MAAO,CAAV,EACE,OAAe,OAAP,OAAU,cAAH,CADjB;AAEA,UAAY,IAAD,QAAX;AAEG,qBAAS,IAAI;AACb,uBAAW,IAAI;AACf,wBAAgB,WAAJ,IAAI;AAChB,8BAAkB,IAAI;AACtB,2BAAe,IAAI;AACnB,uBAAW,IAAI;AACf,2BAAe,IAAI,cAAC;OAGrB,MAAgB,yCAAC,MAAD;AAjBM;AA/zCf;AAcW,+BAAM,SAchB,wBAdgB,EAAyB,uBAAW,2BAChD,cAjBD,2BAiBC,CADM;AAIC;AACJ;AACO;AACH;AACH,+BAxBL,4BAwBK;AACD;AAvBR;AAyBK,yCAzBL,qCAyBK;AAGJ;AAq1Ce;AAAP;AAGlB,eAAmC,OAAT,0CAAC,KAAD,EAAY,cAAH;AAHjB;AAAO;AAMC;AAET,gDAAC,MAAM,KAAP;AAFS;AAKC;AAGX,6CAAC,SAAU,aAAO,cAAlB;AAHgC;AAArB;AAcL;AAGP,UAAI,WAAW,QAAC,YAAM,CAAC,KAAK,KAAK,OAAO,mBAAlB,CAAN;AAHT;AAPO;AAAX;AAIlB,eAAuB,IAAI,WAAW,QAAC,YAAM,CAAC,KAAK,GAAG,GAAG,EAAZ,CAAN;AAJrB;AAAW;AAaP;AAAJ;AAElB,eAAsC,OAAb,mCAAC,SAAD,EAAgB,cAAH;AACtC,UAAI,MAAM,KAAC,IAAX,EACE,uBAAgB,CAAC,4CAAgB,mBAAC,YAAD,EAAa,aAA9B,CADlB;AAHkB;AAAI;AAOc;AAAlB;AAIlB,eAAQ;AAJU;AAAkB;AAQD;AAAjB;AAIlB;AAAG;AACH;AAEA,aAAQ;AACR,kBAAoB,MAAD;AACnB,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,iBAAU,cAAK,CAAC,CAAD;AACf,YAAkD,UAA/B,iBAAf,MAAM,UAAW,cAAC,+BAAc,8BAAf,CAAF,EAAiC,EAAF,CACgB,IAA1C,CAApB,CAAI,eAAgB,IAAsB,CAAlB,mCAAkB,IAAG,MAAM,SAAT,CAAtB,CADgC,IAErD,yBAAY,CAAC,OAAQ,MAAM,QAAf,CAFf;AAIE;SAEF,UAAG,yBAAY,CAAC,OAAQ,eAAI,CAAC,MAAM,SAAS,EAAG,SAAnB,CAAb,CAA4C,IACnB,CAAb,CAAf,MAAM,QAAP,OAAgB,KAAE,SAAF,CAAa,IACP,CAA7B,MAAM,QAAO,QAAW,CAAV,SAAU,GAAE,CAAF,KAAX,CAAgB,KAAE,GAAF,CADO,CADxC;AAIE,cAAS,CAAL,IAAK,KAAE,IAAF,CAAO,IACE,CAAR,CAAL,IAAK,KAAG,IAAH,CAAQ,IAAyB,CAAb,IAAI,QAAL,OAAc,GAAS,MAAM,QAAP,OAAR,CAAzB,CADlB,EAEK,OAAQ,MAFb;SAJF;;AASF,eAAU;AA3BQ;AAAiB;AA8BV;AAGzB,UAAI,CAAI,aAAS,IAAY,CAAC,aAAD,SAA7B;AAEE,qBAAO;AACP,wBAAW;OAHb;AAHyB;AAj6Cf;AAKU,+BAAS,YAiSrB,sBAjSqB,CAAT;AALV;AAkBM;;;AAEd;AACA;AACA;AACA;AALc;AA25Ce;;AA35Cf;AAUW;AACJ;AACE;AACI;AAbb;AAkBC;AAm5Ce;AAAP;AAIzB,eAAU;AAJe;AAAO;AAQC;;AAOA;AAAR;AAIzB,eAAU;AAJe;AAAQ;AAQC;AAIlB,iDAAC,qBAAD;AAJwC;AAAtB;AAQN;AAAH;AAIzB,eAAU;AAJe;AAAG;AAl7CX;AAOG,+BAAO,UtCzpBhB,gCsCypBgB,CAAP;AAPH;AAcA;;;AAEf;AACA;AAHe;;;;;AAmiNkB;AAAV;AAEzB,eAAU,YAAO,UAAC,cAAD;AAFQ;AAAU;AAKD;AAExB;AACV,qBAAW;AACX,uBAAa,CAAC;AAJuC;AAAnB;AAOD;AAAR;AAErB,oBAAJ,IAAG;AACH,eAAU,cAAU,GAAE,YAAO,SAAC,EAAV;AAHK;AAAQ;AA/iNhB;AAaV;;;AAEL;AACA;AACA;AACA;AALK;;;;;;;;AA2jNuB;AAG9B;AAGA,eAAO,QAAU,OAAL,eAAK,GAAC,CAAD,kBAAjB;AAAI;AACF,qBAAM,CAAC,CAAD,CAAG,UAAT,GAAqB;;AAPO;AAUP;AAIvB,UAAa,CAAT,aAAS,KAAG,IAAH,CAAQ,IAAI,CAAkB,CAAb,4CAAa,IAAG,aAAQ,gBAAX,CAA3C,EACE,aAAQ,UAAU,CAAC,kCAAmB,CAApB,CADpB;AAEA,UAAY,cAAD,QAAX,EACE,cAAS,CAAC,IAAD,CADX;AANuB;AAUO;AAG9B,UAAG,CAAe,CAAV,SAAU,IAAG,qBAAH,CAAlB,EACE,qBAAgB,CAAC,+CAAkB,mBAAM,GAAL,KAAK,WAAN,CAAnB,CADlB;AAH8B;AAOP;AAAR;AAGf,eAAQ,eAAU;AAHH;AAAQ;AAOA;AAAR;AAGf,eAAc,cAAC,eAAU,KAAC,KAAD,CAAX;AAHC;AAAQ;AAMC;AAExB,mBAAM,CAAC,KAAD,CAAO,OAAO,CAAC,KAAD;AAFI;AAKK;AAC3B;AAEF,YAAO,eAAU,QAAQ,CAAC,KAAD;AACzB,UAAG,GAAG,KAAC,CAAC,CAAR,EACE,MADF;AAGA,UAAG,KAAK,GAAC,CAAT,EAAgB,QAAO,CAAvB;AACA,UAAG,KAAK,IAAE,eAAV,EAAqB,QAAO,eAAK,GAAC,CAAlC;AACA,UAAG,KAAK,KAAE,GAAV;AAEE,uBAAU,OAAO,CAAC,GAAD;AACjB,uBAAU,OAAO,CAAC,MAAM,KAAP;AACjB,aAAK,gBAAgB,CAAC,IAAD;AACrB;OALF;AAT6B;AA9DL;AAGxB,sBAAU;AACV,wBAAY,mBAAO,QAAC;AACpB,8BAAkB,cAAO,KAAN,uBAAQ,8BAAT;AAL2B;AAArB;AAQA;AAGxB,UAAY,eAAD,QAAX,EACE,YADF;AAEA,6BAAU,CAAC;;;;UAAD;AACA;AANc;AAwEL;AAGnB,yBAAc,CAAC,KAAK,WAAN;AACd,qBAAU,IAAI,CAAC,KAAD;AACd,WAAK,QAAL,GAAe;AACf;AANmB;AASW;AAG9B,UAAG,cAAS,CAAC,KAAD,CAAO,KAAE,IAArB,EACE,uBAAgB,CAAC,iDAAoB,mBAAC,QAAD,EAAQ,aAA7B,CADlB;AAH8B;AAOC;AAG/B;AACA;AAGA,UAAG,KAAM,KAAE,EAAX,EACE,MADF;AAEA,eAAU;AACV;AACE,YAAK,qBAAgB,CAAC,MAAO;;;;YAAR;AAErB,wBAAW,CAAC,CAAD;OAHb,QAIa,EAAP,MAAO,GAAS,KAAD,OAAR,CAJb;AAV+B;AAiBV;AAErB;AAEA,aAAM,eAAU,OAAO,GAAE,CAAzB;AAEE,iBAAgB,cAAC,eAAU,OAAX;AAChB,cAAM,SAAN,GAAmB;AACnB,cAAO,eAAP,MAAO;AACP,uBAAU,OAAO,CAAC,eAAU,OAAO,GAAE,CAApB;;AAEnB;AAXqB;AAcG;AAAT;AACb;AACA;AAEF,UAAG,sBAAS,CAAC,KAAD;AACZ,eAAO,QAAqB,OAAhB,eAAU,OAAM,GAAC,CAAD,kBAA5B;AAAI;AAEF,iBAAc,cAAC,eAAU,KAAC,CAAD,CAAX;AACd,YAAG,CAAC,KAAC,sBAAS,CAAC,MAAM,WAAP,CAAd;AAKE;SALF;;AAQF,eAAQ;AAhBO;AAAS;AAmBE;AAAX;AAGf,eAAQ,cAAS,CAAC,KAAD;AACjB,UAAG,MAAM,KAAC,IAAV,EACE,uBAAgB,CAAC,4CAAe,mBAAC,QAAD,EAAQ,aAAxB,CADlB;AAJe;AAAW;AAQE;AAAb;AACb;AAEF,eAAO,QAAqB,OAAhB,eAAU,OAAM,GAAC,CAAD,kBAA5B;AAAI;AAEF,iBAAc,cAAC,eAAU,KAAC,CAAD,CAAX;AACd,YAAG,OAAO,KAAC,MAAM,SAAjB,EACE,aADF;;AAGF,eAAQ;AATO;AAAa;AAYA;AAAb;AAGf,eAAQ,sBAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AAHX;AAAa;AAMC;AAC3B;AAEF,YAAM;AACN,eAAO,QAAqB,OAAhB,eAAU,OAAM,GAAC,CAAD,kBAA5B;AAAI;AACF,cAAM,IAAI,CAAO,cAAC,eAAU,KAAC,CAAD,CAAX,CAAe,WAAtB;;AALiB;AAQP;AAAP;AAGf,eAAQ,eAAU,QAAQ,CAAC,KAAD;AAHX;AAAO;AAMA;AAGtB,qBAAU,OAAO,CAAC,KAAD;AACjB,WAAK,QAAL,GAAiB;AACjB;AALsB;AApuNf;AAkCK,uCAlCL,mCAkCK;AAMC;AAEH;;AACC,iCADD,kCACC;AAEA;;AAmFJ;AA/ED;;;AAEJ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATI;AAgxPkB;AAAV;AAEd,UAAW,CAAC,gBAAD,SAAa,IAAmB,YAAH,eAAX,gBAAW,CAAxC;AACE,iBAAgB,gBAAW;AAE3B,qBAAQ;AALI;AAAU;AAQG;AAAb;AAEd,eAAQ;AAFM;AAAa;AAKD;AAE1B,UAAG,CAAY,CAAC,KAAD,SAAf;AAEE;AACA,yBAAW;AACX,0BAAY;AACZ,qBAAM;AACN,qBAAM;AACN,0BAAW;AACX,6BAAc;;AAId,yBAAW,KAAK;AAChB,YAAG,KAAK,UAAC,EAAT;AACE;AAEA,4BAAQ,KAAK;AACf,sBAAQ,KAAK;AACb,qBAAM,KAAK;AACX,YAAI,eAAS,KAAC,yBAAd,EACE,kBAAW,KAAK,WADlB;AAEA,qBAAM,KAAK;AACX,0BAAW,KAAK;AAChB,6BAAc,KAAK;;AAzBK;AA6BH;AAEvB,UAAY,WAAH,eAAL,IAAK,CAAT;AACE,0BAAa,CAAQ,IAAR;AAEb,YAAkB,2CAAC,IAAD;AALG;AAQG;AAAZ;AAEd,UAAG,CAAI,gBAAO,IAAe,CAAV,cAAU,KAAE,wBAAF,CAA7B;AAEE,iBAAU,sBAAS,CAAO,KAAC,WAAR;;AAInB,YAAG,gBAAH;AACE,mBAAQ;AAER,uBAAQ,WAAM,IAAC,IAAD;;AAXJ;AAAY;AAeF;AAAV;AAEd,UAAG,gBAAH;AACE,iBAAQ;AACL,gBAAG,WAAO,CAAC,WAAD,CAAV,EACH,SAAiB,WADd;AAJS;AAAU;AAQG;AAAb;AAEd,UAAG,CAAI,gBAAO,IAAe,CAAV,cAAU,KAAE,wBAAF,CAA7B;AAEE,iBAAU,0BAAa,CAAO,KAAC,WAAR;;AAIvB,YAAG,gBAAH;AACE,mBAAU;AAEV,uBAAmB,cAAC,WAAD;;AAXT;AAAa;AAeH;AAAV;AAEd,UAAG,CAAI,gBAAO,IAAe,CAAV,cAAU,KAAE,wBAAF,CAA7B;AAEE,iBAAU,uBAAU,CAAO,KAAC,WAAR;;AAIpB,YAAG,gBAAH;AACE,mBAAU;AAEV,uBAAgB,cAAC,WAAD;;AAXN;AAAU;AAeE;AAAZ;AAEd,UAAG,CAAI,gBAAO,IAAe,CAAV,cAAU,KAAE,wBAAF,CAA7B;AAEE,iBAAU,qBAAQ,CAAO,KAAC,WAAR;;AAIlB,YAAG,gBAAO,IAAG,CAAI,gBAAS,CAAC,WAAD,CAA1B;AACE,mBAAU;AAEV,uBAAiB,UAAC,WAAD;;AAXP;AAAY;AAeC;AAAb;AAEd,UAAG,CAAI,gBAAO,IAAe,CAAV,cAAU,KAAE,wBAAF,CAA7B;AAEE,iBAAU,qBAAQ,CAAO,KAAC,WAAR;;AAIlB,YAAG,gBAAO,IAAG,CAAI,gBAAS,CAAC,WAAD,CAA1B;AACE,mBAAQ;AAER,uBAAiB,UAAC,WAAD;;AAXP;AAAa;AAgBJ;AAAT;AAEd,UAAG,gBAAO,IAAG,CAAI,YAAQ,CAAC,WAAD,CAAzB;AACE,iBAAQ;AAER,qBAAc,KAAC,WAAD;AALF;AAAS;AAQE;AAAX;AAGd,UAAG,gBAAO,IAAG,CAAI,YAAQ,CAAC,WAAD,CAAzB;AACE,iBAAQ;AAER,qBAAc,KAAC,WAAD;AANF;AAAW;AASC;AAAZ;AAEd,UAAG,gBAAH;AACE,iBAAQ;AAER,qBAAQ;AALI;AAAY;AAOE;AAAd;AAEd,UAAI,UAAK,KAAE,EAAX;AACE,iBAAQ;AAER,qBAAkB;AALN;AAAc;AAQL;AAAT;AAEd,eAAY,aAAM,CAAC,WAAD;AAFJ;AAAS;AAKF;AAAP;AAEd,eAAa,CAAJ,UAAI,KAAC,MAAM,MAAP,CAML,IALW,CAAN,gBAAM,KAAC,MAAM,UAAC,EAAR,CAAX,IACU,CAAL,WAAK,KAAC,MAAM,OAAP,CAAV,IACa,CAAR,cAAQ,KAAC,MAAM,UAAP,CAAb,IACc,CAAT,eAAS,KAAC,MAAM,WAAP,CAAd,IACyB,CAApB,mBAAY,CAAC,WAAD,CAAQ,KAAC,mBAAY,CAAC,MAAM,OAAP,CAAb,CAAzB,IACW,CAAN,WAAM,IAAC,MAAM,OAAP,CAAX;AARM;AAAO;AAWG;AAExB,uBAAW;AACX,wBAAO,MAAP;AAHwB;AAMG;AAE3B,uBAAW;AACX,wBAAO,MAAP;AAH2B;AAMF;;AAKD;AAExB,uBAAW;AACX,wBAAO,MAAP;AAHwB;AAMI;AAE5B,uBAAW;AACX,wBAAO,MAAP;AAH4B;AAMH;AAEzB,uBAAW;AACX,wBAAO,MAAP;AAHyB;AAME;AAE3B,uBAAW;AACX,wBAAO,MAAP;AAH2B;AAMC;AAE5B,uBAAW;AACX,wBAAO,MAAP;AAH4B;AAMJ;AAExB,uBAAW;AACX,wBAAO,MAAP;AAHwB;AAME;AAE1B,UAAG,cAAU,KAAG,2BAAhB,EACE,iBAAa,wBADf;AAEA,wBAAO,MAAP;AAJ0B;AAQF;AAExB,uBAAW;AACX,wBAAO,MAAP;AAHwB;AAMG;AAG3B,oBAAQ;AACR,oBAAQ,CAAO,aAAM,CAAC,MAAD;AACrB,UAAG,WAAH;AACmB,mBAAZ,mBAAY,CAAC,MAAD;AACf,YADe,IACf;AAAa,2BAAW;AACxB,kBAFe,IAEf;AAAa,2BAAW;AACxB,kBAHe,IAGf;AAAW,2BAAW;AACtB,mBAJe,IAIf,uCAAU,CAJK,IAIL,kCAAV,EAAqB,iBAAW,sBAAhC;OALJ;AAL2B;AAcD;AAI1B,uBAAW;AAJe;AAQJ;AAEtB,wBAAO,MAAP;AAFsB;AAKC;AAEP,qDAAC,WAAD;AAChB,wBAAW;AACX,uBAAU,yBAAV;AACA,oBAAQ;AAL0C;AAA3B;AAQA;AAEvB,mBAAM,CAAC,OAAD;AACN,wBAAW;AAHuD;AAA3C;AAMF;AAErB,UAAc,WAAH,eAAP,MAAO,CAAX;AACE,wBAAW,CAAQ,MAAR;AACR,gBAAc,WAAH,eAAP,MAAO,CAAX;AACH,wBAAW,CAAQ,MAAR;AACR,gBAAc,oBAAH,eAAP,MAAO,CAAX;AACH,uBAAiB,MAAO,WAAC,EAAzB;AAEA,YAAgB,yCAAC,MAAD;AATG;AAYK;AAE1B,UAAY,KAAD,QAAX;AAGE,6BAAgB,CAAC,MAAM,KAAK,aAAC,EAAb;AAChB,qBAAM,KAAK;;AAIX;AACA,qBAAM;;AAXkB;AAeE;AAG5B,UAAY,KAAD,QAAX;AACO;AACH,YADG,IACH;AAAa,iCAAgB,CAAC,oDAAuB,mBAAC,aAAD,EAAO,iBAA/B;AAG7B,mBAJG,IAIH,mCACA,CALG,IAKH,+BADA;AACa,eAAK,aAAC,CAAW,mBAAX;AACnB,kBANG,IAMH;AAAa,eAAK,WAAC,CAAS,iBAAT;AACnB,kBAPG,IAOH;AAAa,eAAK,aAAC,CAAW,mBAAX;AACnB,mBARG,IAQH,gCACA,CATG,IASH,8BADA,IAEA,CAVG,IAUH,kCAFA,IAGA,CAXG,IAWH,4BAHA,IAIA,CAZG,IAYH,iCAJA;AAIa,eAAK,YAAC,CAAU,kBAAV;AACnB,mBAbG,IAaH,gCACA,CAdG,IAcH,4BADA,IAEA,CAfG,IAeH,gCAFA,EAEa,KAAK,cAAC,CAAY,oBAAZ,CAFnB;OAdJ;AAH4B;AA+CG;AAG/B,UAAY,KAAD,QAAX;AAGE,YAAmB,CAAf,KAAK,UAAU,KAAE,wBAAF,CAAY,IAAiB,KAAM,WAAtD;AACE,2BAAa;AACV,kBAAmB,CAAf,KAAK,UAAU,KAAE,sBAAF,CAAU,IAAgB,CAAX,KAAK,MAAM,GAAE,GAAF,CAA7C;AACH,2BAAa;AAEb,+BAAa,KAAK;AACpB,YAAM,aAAM,CAAC,MAAD,CAAZ;AACE;AAEA,gCAAO,MAAP;AAEF,qBAAM,KAAK,YAAC;AACZ,sBAAQ;OAfV;AAH+B;AAxBD;AAG9B,UAAY,KAAD,QAAX;AAEE,yBAAW,KAAK;AACN,mBAAL,KAAK;AACR,YADQ,IACR;AAAa,iCAAgB,CAAC,oDAAuB,mBAAC,aAAD,EAAO,iBAA/B;AAC7B,mBAFQ,IAER,mCACA,CAHQ,IAGR,+BADA;AACa,4BAAW,KAAK,aAAC,EAAjB;AACb,kBAJQ,IAIR;AAAa,0BAAS,KAAK,WAAC,EAAf;AACb,kBALQ,IAKR;AAAa,4BAAW,KAAK,aAAC,EAAjB;AACb,mBANQ,IAMR,gCACA,CAPQ,IAOR,8BADA,IAEA,CARQ,IAQR,kCAFA,IAGA,CATQ,IASR,4BAHA,IAIA,CAVQ,IAUR,iCAJA;AAIa,2BAAU,KAAK,YAAC,EAAhB;AACb,mBAXQ,IAWR,gCACA,CAZQ,IAYR,4BADA,IAEA,CAbQ,IAaR,gCAFA,EAEa,mBAAY,KAAK,cAAC,EAAlB,CAFb;OAdJ;AAH8B;AA+CV;AAEpB,oBAAQ;AAFY;AAnpQd;AA0Cc,+BAAY,etCperB,gCsCoeqB,CAAZ;AACA,+BAAQ,WAoCrB,qBApCqB,EAAqB,cAlDvC,wBAkDuC,CAA7B;AAwBD,gCAh4BT,yBAg4BS;AACJ;AACQ;AACH,iCA7EV,yBA6EU;AACA;AACL;AACC;AAzEV;AA2EK,sCA3EL,kCA2EK;AAIJ;;;AAEL;AAFK;;;;;AAwyOe;AAAP;AAEf,eAAmC,OAAT,0CAAC,KAAD,EAAY,WAAH;AAFpB;AAAO;AAKM;AAAb;AAEf,eAAQ,gBAAW,CAAC,SAAD,CAAW,aAAC;AAFhB;AAAa;AAKL;AAEN,gDAAC,MAAM,KAAP;AAFM;AAKM;AAE7B,sBAAW,CAAC,SAAD,CAAW,aAAC,CAAO,KAAP;AAFM;AAKL;AAEzB,UAAY,YAAH,eAAL,IAAK,CAAT;AACU,YAAK,OAAO,CAAC,IAAD;AAEpB,YAAkB,2CAAC,IAAD;AALK;AAQC;AAAV;AAEf,UAAc,aAAH,eAAP,WAAO,CAAX;AACE,iBAAiB;AAEjB,qBAAQ;AALK;AAAU;AAQF;AAAR;AAEf,eAAQ;AAFO;AAAQ;AAKQ;AAAV;AAErB,eAAQ;AAFa;AAAU;AAKP;AAGR,iDAAC,UAAD;AAChB,oBAAQ;AAHN;AADsB;AAQA;AAExB,mBAAM,CAAC,OAAO,wBAAR;AAFwC;AAAtB;AAKA;AAExB,mBAAM,CAAC,IAAD;AAFmB;AAAD;AAKA;AAExB,WAAK,cAAC,CAAY,IAAZ;AAFkB;AAKI;AAG5B;AACA;AAAE;AAGF,eAAO,QAAgB,OAAX,KAAK,SAAC,EAAK,GAAC,CAAD,kBAAvB;AAAI;AAEF,aAAI,KAAK,WAAC,CAAD;AACT,YAAG,cAAS,CAAC,EAAE,MAAH;AACZ,YAAY,CAAD,QAAX,EACE,CAAC,OAAO,CAAC,EAAD,CADV;;AAX0B;AAgBF;AAAX;AAIf,eAAY,OAAJ,aAAO,WAAH;AACZ,YAAM,MAAN,GAAa;AACb,YAAM,YAAC,CAAU,OAAV;AACP,YAAM,WAAN,GAAkB;AAPH;AAAW;AAUF;AAAT;AAGf;AAGA,eAAQ;AACR,UAAG,eAAK,GAAC,CAAD;AACR,aAAa,CAAN,MAAM,KAAC,IAAD,CAAM,IAAM,CAAD,CAAC,IAAE,CAAF,CAAzB,EACE,IAAI,wBAAW,CAAC,MAAM,cAAK,CAAC,CAAD,CAAG,MAAf,CAAqB,KAAC,CAArC;AACE,iBAAQ,cAAK,CAAC,CAAD;AAEb,YAAI,CAAJ,IAAG;AAZQ;AAAS;AAeI;AAG5B;AACA;AACA;AAGA,UAAe,CAAX,UAAW,KAAE,EAAF,CAAM,IAAS,CAAL,IAAK,KAAE,IAAF,CAA9B,EACE,MADF;AAEA,eAAU;AACV;AACE,YAAK,qBAAgB,CAAC,WAAY;;;;YAAb;AACrB,YAAK,gBAAW,CAAC,CAAD;AAChB,YAAI,IAAI,CAAC,CAAD;OAHV,QAIa,EAAP,MAAO,GAAS,UAAD,OAAR,CAJb;AAX4B;AAkBN;AAAP;AAGf;AAGA,eAAS,KAAK,SAAC,EAAK,KAAC,eAAD;AACpB,UAAG,eAAK,GAAC,CAAD;AACR,aAAM,MAAO,IAAM,CAAD,CAAC,IAAE,CAAF,CAAnB;AAEE,iBAAQ,cAAK,CAAC,CAAD,CAAG,QAAQ,CAAC,KAAK,WAAC,CAAD,CAAN;AACpB,SAAJ,IAAG;;AAXU;AAAO;AAeI;AAAX;AAEf,eAAQ,cAAS,CAAC,KAAD;AACjB,UAAI,MAAM,KAAC,IAAX,EACE,uBAAgB,CAAC,gDAAmB,mBAAC,QAAD,EAAQ,iBAA5B,CADlB;AAHe;AAAW;AAOH;AAAR;AAEb;AACA;AAGF,eAAU,eAAQ,CAAC,IAAI,SAAS,KAAK,KAAK,6BAAa;;;;WAAI;;;;UAAzC;AANH;AAAQ;AASA;AAAR;AAGb;AACA;AAGF,eAAU,eAAQ,CAAC,IAAI,SAAS,YAAY,aAAa,eAAe;;;;WAAI;;;;UAA1D;AAPH;AAAQ;AAUA;AAAR;AAIb;AAGF,eAAU,eAAQ,CAAC,IAAI,SAAS,YAAa,aAAc,eAAe,aAAc;;;;UAAtE;AAPH;AAAQ;AAgEZ;AACT;AAAM;AADG;eACT,wBAAM;AADG;;AACT;AAAM;AADG;;;AAKO,6BAAG;AACN,2BAAoB,IAAI,IAAI,IAAI,IAAI,IAAI,KAAI,KAAI,KAAG,OAAG,IAAI,IAAI,IAAI,IAAI,KAAI,IAAI,IAAI,IAAI,GAAtF;AAZQ;AAAR;AAef;AACA;AAAE;AAAe;AACjB;AACA;AAAuB;AAAe;AACtC;AAGA;AACA;AACA;AACA;AAAc;AAAS;AAAQ;AAC/B;AAGA,UAAG,QAAH,EAAiB,YAAjB;AAEA,mBAAY;AACZ,uBAAuB,GAAD;AACZ,eAAD,sBAAC,sBAAU,CAAX;AACC,uBAAD,mBAAC,qBAAa,CAAd,CAAC;AACV,+BAAwB;AAExB,wBAAiB,GAAjB;AACA,UAAG,cAAe,KAAE,4BAApB,EACE,OAAM,cAAG,CAAC,oBAAc,GAAf,CAAoB,GAAE,CAA/B,EAAoC,kBAAiB,mBAAa,GAAC,GAA/B,CADtC;AAGA,UAAG;AACH,iBAAU;AACV;AACE,eAAM,kBAAY,CAAC,IAAI;;;;aAAE,YAAY,YAAnB,CAAlB;;AACQ,mBAAH,GAAG,QAAC,KAAD;AACR,aADQ,IACR,aAAI,CADI,IACJ,SAAJ;AAEE,uBAAc;AACd,cAAG,GAAG,QAAC,KAAD,CAAG,KAAC,GAAV;AAEM,aAAJ,IAAG;AACH,gBAAG,sBAAS,CAAC,GAAG,QAAC,KAAD,EAAI,CAAC,IAAI,IAAI,GAAT,CAAR,CAAZ;AAEE,2BAAc;AACV,eAAJ,IAAG;;AAIH,kBAAI,GAAG,QAAC,KAAD,CAAG,KAAC,GAAX;AAEG,iCAAgB;AAChB,sCAAgB,CAAC,IAAI;;;;qBAAE,IAAI,YAAY,YAAvB;AAGhB,4BAAW,eAAI,CAAC,IAAI,cAAc,GAAC,CAAD,CAAG,CAAgB,GAAd,cAAD,GAAgB,CAAvC;;AAIf,iCAAgB;AAChB,uBAAM,CAAI,sBAAS,CAAC,GAAG,QAAC,KAAD,EAAK,eAAT,CAAnB,EACM,CAAJ,IAAG;AACL,4BAAW,eAAI,CAAC,IAAI,eAAe,CAAC,GAAC,cAAtB;;;;AAMhB,aAAJ,IAAG;AACH,6BAAgB;AAChB,wBAAW;;AAEb,cAAG,CAAI,UAAP;AAEM,sBAAJ,IAAG;AACH,gBAAG,UAAU,GAAO,WAAC,SAAD,CAApB;AAEE,0BAAiB,WAAC,SAAD,CAAW,GAAC,CAAD;AAClB,uBAAD,sBAAC,sBAAU,SAAX;AACC,+BAAD,mBAAC,qBAAa,SAAd,CAAC;aAJZ;AAMA,gBAAG,QAAH;AAGE,yBAAY,cAAS,CAAC,SAAD;AAErB,kBAAG,CAAY,CAAC,QAAD,SAAf;AACE,iCAAkB,gBAAW,CAAC,0BAAW,UAAW,uBAAvB,CAA+B,SAAC;AAE7D,qCAAkB,QAAQ,SAAC;;AAK7B,kBAAG,SAAS,KAAE,EAAd;AACE,iCAAgB,gBAAW,CAAC,SAAD,CAAW,SAAC;;AAGvC,iCAAgB;AACZ,sCAAJ,IAAG;;;AAGP,gBAAG,cAAe,IAAG,cAAC,8BAAa,4BAAd,CAArB;AAEE,kBAAG,cAAc,GAAC,CAAD;AACjB;AACM,8BAAJ,IAAG;AACH,oBAAK,UAAF,CAAE,GAAI,EAAJ;eAFP,QAGO,EAAD,CAAC,KAAC,CAAD,CAHP;aAHF;AASA,8BAAY,CAAC,UAAU,GAAC,CAAZ,CAAZ,GAA4B;AAC5B,qBAAS,CAAC,UAAU,GAAC,CAAZ,CAAc,MAAvB,GAA+B,cAAc,GAAC,QAAD;AAC7C,qBAAS,CAAC,UAAU,GAAC,CAAZ,CAAc,KAAvB,GAA+B,CAAD,CAAC,GAAC,QAAD,CAAS,GAAC,CAAD;AAEpC,0BAAJ,IAAmB,CAAC,GAAC,cAAD;WA3CtB;SA8CF,UAnFQ,IAmFR;AACE;;AAEI,WAAJ,IAAG;;OAxFP,QA0FM,MA1FN;AA2FU,eAAD,sBAAC,sBAAU,UAAX;AACC,uBAAD,mBAAC,qBAAa,UAAd,CAAC;AACV,UAAG,UAAU,IAAE,CAAf;AACE,mBAAU;;AAKV,YAAmB,CAAf,cAAe,KAAE,4BAAF,CAAe,IAA2B,CAAf,mBAAD,OAAgB,GAAE,CAAF,CAA7D,EACM,cAAJ,IAAoB,UAAW,GAAuB,CAAd,mBAAD,OAAe,GAAC,CAAD,CADxD;AAGU,gBAAD,oBAAC,SAAS,cAAV;AACT,wBAAe;AACf,mBAAU;AACV,iBAAO,QAAS,kBAAC,SAAD,uBAAhB;AAAI;AAEF,oBAAS,SAAS,CAAC,CAAD,CAAG,MAAM,GAAC,QAAD;AAC3B,qBAAU,QAAQ,GAAC,eAAI,CAAC,IAAI,SAAS,OAAd,CAAL;AACd,uBAAJ,IAAkB;AACb;AACH,cADG,KACH;AACgB,uBAAU,QAAQ,GAAC,GAAD;AACd,yBAAJ,IAAG;WAEnB,WALG,KAKH,uCACA,CANG,KAMH,kCADA;AAEc,wBAAa,qBAAQ,CAAC,kBAAY,CAAC,CAAD,CAAG,GAAC,CAAjB;AACrB,uBAAU,uBAAY,CAAC,IAAW,mBAAD,OAAX;AACtB,uBAAU,QAAQ,GAAC,SAAD;WAJhC;AAOF,qBAAU,SAAS,CAAC,CAAD,CAAG;;AAExB,kBAAoB,CAAJ,GAAD,OAAK,GAAC,CAAD,CAAE,GAAC,QAAD;AACtB,YAAI,OAAO,GAAC,CAAZ,EACE,WAAU,QAAQ,GAAC,eAAI,CAAC,IAAI,SAAS,OAAd,CADzB;;AAGF,eAAQ;AA3KO;AAAQ;AA+KI;AAE1B,WAAK,cAAC,CAAY,IAAZ;AAFoB;AAgZe;AAI1C;AACA;AACA;AAGA,UAAY,QAAD,QAAX,EACE,SAAO,QAAU,OAAL,eAAK,GAAC,CAAD,kBAAjB;AAAI;AAEH,YAAG,cAAK,CAAC,CAAD;AACR,YAAG,SAAU,IAAI,CAAI,CAAC,OAAtB;AAIE,cAAG,QAAQ,YAAY,CAAC,CAAC,MAAF;AACvB,WAAC,YAAY,CAAC,CAAD;AACb,cAAG,CAAI,SAAP,EACE,CAAC,OAAD,GAAS,KADX;SANF;OAJH;AAT0C;AAvyBxB;AAAH;AAEf,eAA2B;AAFZ;AAAG;AAnyOX;AAaa,+BAAO,UtC1zBhB,gCsC0zBgB,EAAyB,ctC3hBhC,yCsC2hBgC,CAAhC;AACA,+BAAO,UtC3zBhB,gCsC2zBgB,CAAP;AACA;AAfb;AAqCM;;AACJ;AACP;AACA;AAFO;aACP,sBACA;AAFO;;AACP;AACA;AAFO;;;AACP;AACA,uBAHW,2BAGX;AAFO;AAMD;;AACE;;AAEU;;AAAT,iCAAS,qCAAT;AACA;;AACE;;AACF;;AAEE;;AACC,oCADD,qCACC;AACA;AAEK,0EAAoB,WA+C/B,sBA/C+B,CAApB;AACD,yEAAoB,WA8C9B,sBA9C8B,EAAa,KA79BrC,4BA69BqC,EACnC,cAVL,0BAUK,EADE;AAGL;;AACC,oCADD,qCACC;AAEH;;AACC,kCADD,mCACC;AACK,wEAAoB,WAsC7B,sBAtC6B,EAAgB,oBAApC;AACI,4EAAoB,WAqCjC,sBArCiC,EAAc,mBAA0B,yBAA5D;AAEH,yEAAoB,WAmC9B,sBAnC8B,EAC1B,wBADM;AAEL,wCAiCL,oCAjCK;AAED;;AACD;AACT;AACA;AACA;AACA;AAJS;aACT,sBACA,IAAA,wBACA,IAAA,8BACA,0CAFA;AAFS;;AACT;AACA;AACA;AACA;AAJS;;;AACT;AACA,wBAHU,0BAGV;AACA;AACA,+BAxCW,2BAwCX;AAJS;AAMH,mCANG,iCAMH;AAEI;AACV;AACA;AACA;AACA;AAEA;AANU;;mBAKV;AALU;;;aACV,sBACA,IAAA,0BACA,IAAA,wCACA,IAAA,wBACA,IAAA,6BACA,kCAJA;AAFU;;AACV;AACA;AACA;AACA;AACA;AACA;AANU;;;AACV;AACA,yBAphCW,2BAohCX;AACA,gCAlhCY,4BAkhCZ;AACA;AACA,2BAhDO,uBAgDP;AACA;AANU;AAQK,4CARL,kCAQK;AAGF;;;kBACb;AADa;;;aACb;AADa;;AACb;AADa;;;AACb,0BAJe,+BAIf;AADa;AAIM,4EAAoB,UAOjC,sBAPiC,EAAiB,QAf9C,0BAe8C,CAArC;AACH,yEAAoB,UAM9B,sBAN8B,EAAiB,QALxC,6BAKwC,CAArC;AAMV;;;AAEN;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAzEM;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAwpGuB;;AAGb;AAGhB;AACA;AACA;AAKF,YAAG,kBAAa,GAAE,CAAlB,EACE,yBAAkB,mBAAlB,CADF;AAGA,YAAG,CAAI,QAAP;AAEE,cAAG,kBAAa,GAAE,CAAlB;AAEE,4BAAW,cAAQ,CAAC,kBAAD,CAAnB;AACA,qBAAO,yBAAiC,OAAb,mBAAa,GAAC,CAAD,kBAAxC;AAAI;AACF,4BAAQ,CAAC,CAAD,UAAK,cAAQ,CAAC,CAAC,GAAC,CAAH,CAAb;;AACV,0BAAQ,CAAC,mBAAD,UAAiB,OAAjB;WALV;SAQG,UAAG,kBAAY,KAAC,kBAAhB;AACH;;AAGA,cAAG,kBAAY,GAAC,CAAhB,EACM,mBAAJ,IAAG,CADL;;AAKF,wBAAU,CAAC,cAAQ,CAAC,mBAAD,CAAT;AACV;AAGA,YAAG,kBAAY,KAAC,CAAhB;AACE,+BAAe,CAAC,cAAQ,CAAC,mBAAD,EAAgB,wBAAzB;;AAGf,uBAAQ;AAMR,cAAG,kBAAa,GAAE,CAAlB;AAEE,iCAAe,CAAC,cAAQ,CAAC,mBAAD,EAAgB,uCAAzB;AACf,8BAAY,CAAC,uCAAD;WAHd;;AAOF;AAGA,YAAG,kBAAY,GAAC,kBAAhB,EACM,kBAAJ,IAAG,CADL;AAxDkB;AA6DlB;AACA,UAAG,CAAI,mBAAP,EACE,oBAAa,CAAC,8CAAiB,KAAlB,CADf;AAEA;AACA;AACA,UAAG,CAAI,QAAP;AAKE,gBAAQ,CAAC,KAAD;;AAOR;AACA;AACA;AACA,YAAG,iBAAY,GAAC,CAAhB,EACE,qBAAe,iBAAY,GAAC,CAD9B;AAEA,gBAAQ,CAAC,IAAD;AACR,4BAAe,CAAC,aAAQ,CAAC,kBAAD,EAAgB,wBAAzB;AACf,oBAAO;AACP,oBAAQ;;AAEV,mBAAQ,CAAC,2BAAD;AACR;AACE;AADF;AAGE,6BAAgB,CAAC,kBAAD;AAChB,mBAAM,CAAC,EAAD;AACN;AALF;AAQA,uBAAW;AAEX,oBAAS,CAAC,gCAAgB,CAAjB;AACT;AACA;AAxG+B;AA//CA;AAG/B;AACA,mCAAyB;AAOzB,0BAAgB;AAChB;AACA,kBAAQ;AACR,kBAAS,iBAAa,KAAE,CAAF;AAEpB;AAhB6B;AAuFN;AAAT;AAGhB,qBAAQ,aAAQ,CAAC,KAAD,CAAhB;AAHgB;AAAS;AA4PG;AAAZ;AAGhB,UAAI,eAAU,KAAC,IAAf,EACE,kBAAW,qBAAX,CADF;AAEA,eAAQ;AALQ;AAAY;AAQA;AAAZ;AAGhB,eAAS,eAAU,GAAC,CAAD;AAHH;AAAY;AAwuDO;AAGnC,uBAAY,IAAI,CAAC,WAAD;AAChB;AAJmC;AA0JJ;AAE/B,uBAAY,OAAO,CAAC,KAAD;AAFY;AAKF;AAE7B,UAAG,MAAM,KAAC,eAAV,EACE,MADF;AAEA,UAAY,eAAD,QAAX,EACE,eAAU,uBAAuB,CAAC,IAAD,CADnC;AAEA,wBAAY;AACZ,UAAY,eAAD,QAAX,EACE,eAAU,iBAAiB,CAAC,IAAD,CAD7B;AAP6B;AA8BO;AAGpC;AACA;AAGA,sBAAW,aAAQ,CAAC,iBAAD,CAAnB;AACA,eAAO,wBAAoB,aAA3B;AAAI;AACF,qBAAQ,CAAC,CAAD,UAAK,aAAQ,CAAC,CAAC,GAAC,CAAH,CAAb;;AACV,mBAAQ,CAAC,CAAD,UAAK,OAAL;AAV4B;AAbC;AAGrC;AACA;AAGA,sBAAW,aAAQ,CAAC,CAAD,CAAnB;AACA,eAAO,QAAK,0CAAZ;AAAI;AACF,qBAAQ,CAAC,CAAC,GAAC,CAAH,UAAO,aAAQ,CAAC,CAAD,CAAf;;AACV,mBAAQ,CAAC,iBAAD,UAAgB,OAAhB;AAV6B;AAjGb;AAAR;AAEd;AAOF,eAAQ;AACR,cAAO;AACP,aAAM,KAAK,KAAC,wBAAZ,EACE;AAIE;AAIA,SAAC;AACD;AATF;AAWE;;AAEE,kBAAO;AACP,cAAY,EAAD,QAAX,EACE,EAAE,CAAC,KAAK,EAAE;;;;cAAR,CADJ;AAEK;AACH,cADG,IACH;AAAS;AACT,oBAFG,IAEH,+BAAU,oBAAV;;AAIJ;;AAtBF;AAZc;AAAQ;AA90CC;AAAT;AAGhB,eAAkB,CAAP,WAAO,KAAG,6BAAH,CAAe,IAAY,CAAP,WAAO,KAAG,4BAAH,CAAZ;AAHjB;AAAS;AA+gDY;AAGrC,uBAAY,OAAO,CAAC,WAAD;AAHkB;AA1pDJ;AAIjC,4BAAkB;AAClB,UAAG,MAAO,GAAE,CAAZ;AAEE;AACA,qBAAQ,CAAC,8BAAD;;AAKR,YAAG,WAAO,KAAE,8BAAZ,EACE,aAAQ,CAAC,2BAAD,CADV;;AAb+B;AAkBJ;AAG7B,qBAAM;AACN,qBAAU,SAAO,CAAC,UAAD;AAJY;AAOQ;AACnC;AACA;AAEF,mBAAkB,WAAC,MAAD;AAClB,UAAG,UAAU,GAAC,oBAAd,EAA8B,oBAAa,CAAC,4CAAe,IAAhB,CAA3C;AACA,UAAG,QAAH;AACE;AAEA;AACF,eAAS,QAAe,OAAV,UAAU,GAAC,CAAD,kBAAxB;AAAI;AACF,uBAAM,UAAC,CAAD,CAAG,YAAY,CAAC,MAAM,CAAC,CAAD,CAAP;;AACvB;AAZqC;AAngBF;AAAnB;AAMhB;AACE,iBAAQ,0BAAqB,CAAC,QAAD;AAC7B,YAAG,CAAI,MAAP,EACE,QAAQ,iBAAiB,CAAC,mCAAD,CAD3B;AAFF;AAKE;;AAEE,kBAAQ,cAAc,CAAC,CAAC,WAAe,GAAJ,IAAD,GAAM,CAAC,SAAnB;AACtB,mBAAQ;SARZ;;AAWA,6BAAkB,CAAC,QAAD;AAjBF;AAAmB;AAwJG;AAGtC;AAGA,UAAG,CAAY,CAAC,QAAD,SAAf,EACE,MADF;AAGA,UAAG,QAAQ,WAAW,IAAE,eAAxB;AAEE,gBAAQ,SAAC;AACT;OAHF;AAKI,qBAAJ,IAAG;AAEU,iBAAR,QAAQ;AACb,UADa,IACb;AAEE,YAAY,gBAAD,QAAX,EACE,gBAAW,CAAC,KAAK,QAAQ,YAAW,QAAQ,UAAjC,CADb;OAGF,WANa,IAMb,uCACA,CAPa,IAOb,kCADA;AAGE,oBAAW;AAEX,YAAY,QAAQ,OAAT,QAAX,EACE,QAAQ,OAAM,CAAC,KAAK,QAAQ,MAAd,CADhB;AAIA,YAAI,QAAQ,SAAQ,KAAE,6BAAtB,EACE,YAAW,uBAAkB,CAAC,QAAD,CAD/B;AAGA,YAAG,CAAY,CAAP,gBAAO,IAAa,CAAT,yBAAS,IAAG,QAAQ,aAAX,CAAb,CAAf;AAGE,cAAG,CAAgB,CAAX,2BAAW,IAAG,QAAQ,aAAX,CAAnB,EACE,kBADF;AAEA;;AAIA,cAAY,CAAR,wBAAQ,IAAG,QAAQ,aAAX,CAAyB,IAAI,SAAzC,EACE,YAAM,KADR;AAEA,cAAG,CAAgB,CAAX,2BAAW,IAAG,QAAQ,aAAX,CAAnB,EACE,kBADF;;OAvBJ;AA4BA,cAAQ,SAAC;AAlD6B;AAmJL;AAAjB;AAEhB,UAAG,CAAY,CAAC,oBAAD,SAAf,EACE,uBAAmB,mBAAmB,QAAC,UADzC;AAEA,eAAU;AAJM;AAAiB;AA7QE;AAGnC;AAGA,UAAG,CAAY,CAAC,sBAAD,SAAf,EAAuC,MAAvC;AACA,mBAAM,wCAAmC,CAAC,QAAD,CAAzC;AACA,4BAAgB,CAAC,KAAK,8BAAN;AARmB;AAVgB;AAAnC;AAGhB,YAAM,SAAC,SAAU,QAAQ,UAAlB;AACP,YAAM,KAAN,GAAa,QAAQ;AACrB,YAAM,OAAN,GAAe,QAAQ;AACvB,YAAM,cAAN,GAAsB,QAAQ;AAC9B,YAAM,MAAN,GAAc,QAAQ;AAPN;AAAmC;AAyLd;AAArB;AAEhB,eAAQ;AAFQ;AAAqB;AA1NL;AAAhB;AAGhB;AAAE;AAGF,iBAAU;AACV,eAAO,eAA6B,OAAjB,gBAAW,OAAM,GAAC,CAAD,kBAApC;AAAI;AACF,YAA0B,cAAC,gBAAW,KAAC,CAAD,CAAZ,CAAgB,eAAc,KAAC,gCAAzD,EACE,KAAK,IAAI,CAAC,gBAAW,KAAC,CAAD,CAAZ,CADX;;AAEF,eAAQ,gBAAW;AAVH;AAAgB;AAsDG;AAGnC;AAAG;AAAG;AACN;AACA;AACA;AAGA,UAAW,CAAC,eAAD,SAAa,IAAmB,CAAd,MAAM,SAAQ,KAAC,IAAD,CAA3C;AACE,aAAI,eAAU,QAAQ,CAAC,MAAD;AAEtB,iBAAI,CAAC;AACP,UAAI,EAAE,KAAC,CAAC,CAAR,EACE,MADF;AAEA,qBAAU,OAAO,CAAC,EAAD;AACP,aAAO,QAAR,sBAAC,OAAO,2BAAU,MAAM,MAAK,OAA7B;AACT,eAAQ,QAAsB,OAAjB,MAAM,MAAK,OAAM,GAAC,CAAD,kBAA9B;AAAI;AAEF,cAAK,MAAM,MAAK,WAAC,EAAD;AAChB,eAAO,QAAQ,CAAC,EAAD,UAAM,wCAAmC,CAAC,GAAD,CAAzC;AACf,cAAM,MAAK,IAAM,CAAC,GAAK,IAAN;AACjB,cAAK,sBAAiB,CAAI,sBAAH,GAAG,WAAJ;AACtB,YAAI,GAAG,KAAE,CAAC,CAAV;AAEE,qBAAU;AACV,cAAI,GAAG,eAAc,KAAC,8BAAtB;AACE,uBAAU,wBAAmB,CAAC,GAAD;AAG7B,2BAAW,GAAG,eAAc,KAAC,8BAAD;AAC9B,cAAG,QAAH;AAEE,eAAI,eAAJ,GAAI;AACJ,4BAAW,OAAO,CAAC,GAAD;WAGlB,MAAA,GAAG;SAdP;;AAiBF,UAAI,eAAU,OAAM,KAAC,CAArB,EACE,uBAAU,CAAC;;;;UAAD,CADZ;AAEA,8BAAmB,CAAC,OAAD;AA1CgB;AAyGD;AAAlB;AAGhB,eAAQ;AAHQ;AAAkB;AAsgDZ;AAAN;AAGhB;AAGA,UAAG,CAAgB,CAAX,2BAAW,IAAG,QAAH,CAAnB,EACE,mBADF;AAEA,eAAQ,mBAAS,KAAE,IAAF;AACjB,UAAG,CAAI,MAAP,EACE,aADF;AAEA,gBAAS,mBAAS,eAAe,CAAC,qBAAU,iDAAsB,UAAjC;AACjC,aAAO,SAAP,GAAkB;AAClB,UAAG,gBAAH,EACE,OAAO,UAAC,SAAW,kBAAX,CADV;AAEI,yBAAJ,IAAG;AACH,aAAO,WAAP,GAAoB;AACpB,UAAG,mBAAS,UAAU,CAAC,OAAD,CAAtB;AACM,uBAAJ,IAAG;AAEH,YAAA,OAAQ,eAAR,OAAQ;AApBM;AAAM;AA1wDQ;AAAd;AAGhB,eAAQ;AAHQ;AAAc;AAMC;AAG/B;AACA,yBAAa,mBAAO,QAAC;AAJU;AAyOA;AAG/B;AACA,6BAAU,CAAC;;;;UAAD;AAJqB;AAlOC;AAGhC;AAGA,UAAG,CAAY,CAAC,gBAAD,SAAf,EACE,MADF;AAEA,eAAO,QAAsB,OAAjB,gBAAW,OAAM,GAAC,CAAD,kBAA7B;AAAI;AAEK,sBAAC,gBAAW,KAAC,CAAD,CAAZ,CAAgB,SAAC;AACxB,wBAAW,KAAC,EAAI,IAAL;;AAXmB;AAeO;AAGvC;AAGA,eAAO,QAAsB,OAAjB,gBAAW,OAAM,GAAC,CAAD,kBAA7B;AAAI;AACqB,sBAAC,gBAAW,KAAC,CAAD,CAAZ,CAAgB;;AAPF;AAqBL;AAAlB;AAGhB,eAAQ,OAAO;AAHC;AAAkB;AAXD;AAAjB;AAGhB,eAAQ,CAAC;AACT,UAAG,CAAY,CAAC,gBAAD,SAAf,EACE,aADF;AAEA,eAAQ,gBAAW,OAAM,GAAC,CAAD;AACzB,aAAa,CAAN,MAAM,IAAE,CAAF,CAAK,IAAsF,CAAjF,qBAAgB,CAAC,iCAAsD,sBAArB,cAAC,gBAAW,KAAC,MAAD,CAAZ,CAAqB,WAAvD,CAAiE,KAAE,CAAF,CAAxG,EACM,MAAJ,IAAG;AARW;AAAiB;AAiBF;AAAf;AAGhB;AACA;AACA;AAGA,eAAQ;AACR,UAAG,CAAY,CAAC,gBAAD,SAAf,EACE,aADF;AAEA,gBAAG,kBAAH;AACA,UAAG,sBAAiB,CAAC,wBAAD;AACpB,UAAI,CAAC,KAAC,CAAC,CAAP;AAEE,gBAAO,uBAAkB,CAAC,4CAAD;AACzB,YAAY,mBAAD,QAAX;AACE,mBAAQ,mBAAS,oBAAoB,CAAC,KAAK,yBAAE,MAAM,OAAd;AAErC,uBAAQ,4BAAuB,QAAC,YAAM,CAAC,KAAI,KAAK,yBAAE,MAAM,OAAlB,CAAN;AAClC,wBAAW,IAAI,CAAC,MAAD;;AAIf,iBAA+B,cAAC,gBAAW,KAAC,CAAD,CAAZ;AAC1B;AACH,YADG,IACH;AAEE,cAAG,MAAM,QAAS,KAAE,6BAApB;AACE,4BAAW,OAAO,CAAC,CAAD;AAElB,gBAAA,MAAM,QAAN,GAAgB;SAEpB,UARG,IAQH;AAAa,8BAAa,CAAC,0DAA6B,IAA9B;AAC1B,kBATG,IASH,oCAAa,MAAM,MAAN,GAAc,uBAAkB,CAAC,4CAAD,CAA7C;;AAlCY;AAAe;AAuCM;AAGrC,UAAG,CAAiB,CAAJ,CAAC,CAAD,SAAI,IAAY,CAAC,gBAAD,SAAZ,CAApB,EACE,MADF;AAHqC;AA0GN;AAG/B;AACA;AACA;AAGA,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,oBAAa,CAAC,0DAA6B,IAA9B,CADf;AAEA,UAAG,oBAAH,EACE,MADF;AAEA;AACE,+BAAiB;AACjB,YAAG,CAA2B,CAAd,CAAC,gBAAD,SAAc,IAAsB,CAAjB,gBAAW,OAAM,GAAC,CAAD,CAAtB,CAA9B,EACE,MADF;AAEA,YAAG,gCAA2B,QAAC;AAC/B;AACE,cAAG,qBAAgB,CAAC,CAAD;AADrB;AAGE,WAAE,eAAF,CAAE;AACF;AAJF;AAMI,2BAAJ,IAAG;AACH,iBAAO,QAAY,OAAP,CAAC,OAAM,GAAC,CAAD,kBAAnB;AAAI;AACsB,WAAC,WAAC,CAAD,CAAI,iBAAiB,CAAC,+BAAD;;AAChD,YAAG,mBAAS,qBAAqB,CAAC,oBAAe,EAAE,IAAlB;AACjC,SAAC,SAAD,GAAY;AACZ,SAAC,iBAAD,GAAoB;AACpB,SAAC,WAAD,GAAc;AACd,YAAG,CAAY,CAAC,eAAD,SAAf,EACE,kBAAY,mBAAO,QAAC,UADtB;AAEA,uBAAU,IAAI,CAAC,CAAD;AACd,2BAAS,mBAAmB,CAAC,CAAD;AArB9B;AAuBE,+BAAiB;AAvBnB;AAZ+B;AAiqBG;AAGlC;AAAG;AAAG;AACN;AAMA,UAAG,CAAI,mBAAP,EACE,MADF;AAKA,UAAG,sBAAH;AACE,uBAAgB;AAEhB,2BAAgB;AAIlB,eAAS,QAAwB,OAAnB,iBAAY,OAAO,GAAE,CAAF,kBAAjC;AAAI;AACF,iBAAS,SAAkD,QAAlC,cAAC,iBAAY,KAAC,CAAD,CAAb,CAAiB,WAAU,SAAC,EAAM,GAAE,CAAF,qBAA3D;AAAI;AAEF,qBAAmB,cAAY,cAAC,iBAAY,KAAC,CAAD,CAAb,CAAiB,WAAU,KAAC,CAAD,CAAvC;AACnB,cAAG,YAAY,GAAC,QAAQ,eAAC,EAAzB,EACE,eAAc,QAAQ,eAAC,EADzB;;;AAOJ,UAAI,iBAAY,KAAC,YAAjB,EACE,MADF;AAMA,yBAAc,CAAC,YAAD;AAId;AACA,UAAiB,CAAb,iBAAa,GAAE,iBAAF,CAAgB,IAAI,CAAI,sBAAzC;AAEE,6BAAiB,kBAAc,GAAE,sBAAF;AAC/B;OAHF;AA5CkC;AAtxCF;AAGhC,kBAAM;AACN,kBAAM;AACN,2BAAe;AALiB;AAQL;AAEzB;AAAG;AACH;AACA;AAKF,8BAAoB;AACpB,6BAAmB;AACnB,eAAS,QAAkB,OAAb,eAAM,SAAC,EAAM,GAAE,CAAF,kBAA3B;AAAI;AAEF,gBAAS,eAAM,UAAC,CAAD;AACf,aAAK,UAAL,GAAmB;AACnB,YAAG,CAAI,OAAP;AACE,eAAK,SAAL,GAAkB;AACf,kBAAG,KAAK,WAAW,IAAG,cAAC,6BAAc,wBAAf,CAAtB;AAEH,eAAK,SAAL,GAAkB,CAAC;AACf,+BAAJ,IAAG;;AAIH,uBAAc,eAAS,QAAQ,CAAC,KAAK,WAAN;AAC/B,cAAG,UAAW,KAAE,CAAC,CAAjB;AACE,mCAAgB,CAAC,4CAAe,mBAAM,GAAL,KAAK,WAAN,EAAkB,IAAlC;;AAGhB,uBAAY,eAAS,WAAC,UAAD;AACrB,iBAAK,UAAL,GAAmB;AACnB,iBAAK,SAAL,GAAkB,QAAQ;AAC1B,gBAAG,QAAQ,mBAAX,EACE,2BAAuB,IADzB;AAEA,gBAAG,KAAK,OAAC,SAAT;AAEE,mBAAK,MAAL,GAAe,QAAQ;AACnB,kCAAJ,IAAG;aAHL;;;AASJ,aAAK,KAAK,CAAC,OAAD;;AA3Ce;AAo0EG;AAE9B,iBAAM,CAAC,CAAD;AAFwB;AAnxEZ,yBAAG,cAAC,4BAAS,0BAAO,2BAAjB;AAFY;AAAjB;AAKhB,eAAS,CAAI,cACL,IADmB,CAAI,sBAAT,IAAsC,CAAN,WAAM,IAAG,cAAH,CAAX,IACP,CAA7B,oBAAe,CAAC,4CAAD,CAAc,KAAC,4BAAD,CAAlC;AANQ;AAAiB;AASD;AAEhC;AAEA,+BAAe,MAAf;AAEA,UAAG,WAAO,KAAG,iCAAb;AAEE,4BAAe,CAAC,gBAAD;AAEf,YAAG,CAAI,sBAAP,EACE,SAAS,QAAsB,OAAjB,eAAU,SAAC,EAAM,GAAE,CAAF,kBAA/B;AAAI;AACF,cAAG,eAAU,UAAC,CAAD,CAAG,WAAW,KAAE,wBAA7B,EACE,eAAU,UAAC,CAAD,CAAG,kBADf;SAFJ;OAJF;AAUA;AAhBgC;AAmBJ;AAG5B,UAAG,CAAI,gBAAP,EACE,oBAAa,CAAC,8CAAiB,IAAlB,CADf;AAH4B;AAOE;AAG9B,UAAG,gBAAH,EACE,oBAAa,CAAC,4CAAe,IAAhB,CADf;AAH8B;AAi0CK;AAGnC,UAAG,sBAAH,EAA0B,oBAAa,CAAC,6CAAgB,IAAjB,CAAvC;AAHmC;AArJZ;AAGvB;AACA;AACE,YAAG,mBAAH,EAAuB,cAAS,CAAC,IAAD,CAAhC;AADF;AAGE;;AACE,cAAG,2CAAY,IAAG,oBAAlB,EACE,4BAAuB,CAAC,CAAD,CADzB;;AAGE;;AAPN;AAJuB;AArqCM;AAG7B,0BAAc;AACd,2BAAe;AACf,4BAAgB,CAAC;AACjB,kBAAM;AACN,kBAAM;AAPuB;AAUG;;AAMN;;AAME;AAG5B;AACA,yBAAc,CAAC,CAAD;AACd,qBAAM;AACN;AACA,mCAAyB;AAPG;AAUC;AAE3B;AASF,eAAO,QAAoB,OAAf,eAAS,SAAC,EAAK,GAAC,CAAD,kBAA3B;AAAI;AACkB,oBAAf,eAAS,UAAM,CAAC,CAAD;AAClB,YAAG,eAAQ,KAAE,yBAAb;AAKE,2BAAW,CAAC,IAAD;SALb;;AAbyB;AAsBH;;AAEC;AAEzB,YAAG,MAAM,WAAW,IAAG,cAAC,uBAAQ,8BAAT,CAAvB,EACE,iBAAW,CAAC,IAAD,CADb;AAGA,YAAG,YAAM,KAAG,2BAAZ;AACE,cAAG,MAAM,WAAW,KAAE,sBAAtB;AACE,gBAAG,yBAAH;AACE,6CAAyB,CAAC,cAAQ,CAAC,mBAAD,CAAT;AACtB,sBAAG,qBAAgB,IAAsB,CAAjB,sBAAiB,KAAG,CAAH,CAAzC,EACH,qBAAe,CAAC,cAAQ,CAAC,mBAAD,CAAT,CADZ;WAHP;AAMA,gBAAM;SAPR;AALyB;AAgBG;AAE5B;AACA;AAGA,YAAG,YAAM,KAAG,2BAAZ,EACE,uBADF;AAGA,YAAY,qBAAD,QAAX,EACE,SAAS,QAAS,OAAC,yBAAc,OAAf,sBAAlB;AAAI;AAEF,0BAAyB,cAAC,yBAAc,KAAC,CAAD,CAAf;AAEzB,cAAG,aAAa,UAAC,EAAjB,EACE,aAAa,UAAU,CAAC,+BAAgB,CAAjB,CADzB;SALJ;AAT4B;AAoB9B;AAEK;AACH,UADG,IACH;AAAkB,yBAAiB,CAAO,cAAC,IAAD,CAAP;AACnC,iBAFG,IAEH,yCACA,CAHG,IAGH,qCADA;AACkB;AAClB,gBAJG,IAIH,qCAAkB,4BAAsB,8BAAxC;AAGF,UAAG,CAAI,uBAAiB,IAAY,CAAP,WAAO,KAAG,8BAAH,CAApC;AACE,iBAAS,QAAwB,OAAnB,iBAAY,OAAO,GAAE,CAAF,kBAAjC;AAAI;AACS,wBAAC,iBAAY,KAAC,CAAD,CAAb,CAAiB,aAAa,CAAC,MAAO,IAAR;;OAF7C;AA/C0B;AAqDI;AAG9B,qBAAU;AAHoB;AAMA;AAG/B,UAAY,iBAAD,QAAX,EACE,iBAAY,CAAC,IAAD,CADd;AAH+B;AAOD;AAG9B,UAAW,CAAC,gBAAD,SAAc,IAAI,CAAkB,CAAb,4CAAa,IAAG,oBAAH,CAA/C,EACE,gBAAW,CAAC,IAAD,CADb;AAH8B;AAOC;AAG/B,UAAY,iBAAD,QAAX,EACE,iBAAY,CAAC,IAAD,CADd;AAH+B;AAOF;AAG7B,UAAY,eAAD,QAAX,EACE,eAAU,CAAC,IAAD,CADZ;AAH6B;AAOE;AAG/B,UAAY,iBAAD,QAAX,EACE,iBAAY,CAAC,IAAD,CADd;AAH+B;AAOF;AAG7B,UAAY,eAAD,QAAX,EACE,eAAU,CAAC,IAAD,CADZ;AAH6B;AAOA;AAG7B,UAAY,eAAD,QAAX,EACE,eAAU,CAAC,IAAD,CADZ;AAH6B;AAOE;AAG/B,UAAY,iBAAD,QAAX,EACE,iBAAY,CAAC,IAAD,CADd;AAH+B;AAOC;AAGhC,UAAY,kBAAD,QAAX,EACE,kBAAa,CAAC,IAAD,CADf;AAHgC;AAOA;AAGhC,UAAY,kBAAD,QAAX,EACE,kBAAa,CAAC,IAAD,CADf;AAHgC;AAOD;AAG/B,UAAW,CAAC,iBAAD,SAAe,IAAI,CAAkB,CAAb,4CAAa,IAAG,oBAAH,CAAhD,EACE,iBAAY,CAAC,IAAD,CADd;AAH+B;AAOC;AAGhC,UAAY,kBAAD,QAAX,EACE,kBAAa,CAAC,IAAD,CADf;AAHgC;AAOF;AAG9B,UAAY,gBAAD,QAAX,EACE,gBAAW,CAAC,IAAD,CADb;AAH8B;AAOE;AAGhC,UAAY,kBAAD,QAAX,EACE,kBAAa,CAAC,IAAD,CADf;AAHgC;AAOF;AAG9B,UAAY,gBAAD,QAAX,EACE,gBAAW,CAAC,IAAD,CADb;AAH8B;AAOA;AAG9B,UAAY,gBAAD,QAAX,EACE,gBAAW,CAAC,IAAD,CADb;AAH8B;AAOE;AAGhC,UAAY,kBAAD,QAAX,EACE,kBAAa,CAAC,IAAD,CADf;AAHgC;AAOC;AAGjC,UAAY,mBAAD,QAAX,EACE,mBAAc,CAAC,IAAD,CADhB;AAHiC;AA0BD;AAGhC,UAAY,kBAAD,QAAX,EACE,kBAAa,CAAC,IAAD,CADf;AAHgC;AAOD;AAG/B,UAAY,iBAAD,QAAX,EACE,iBAAY,CAAC,IAAD,CADd;AAH+B;AAOD;AAE7B,UAAY,gBAAD,QAAX,EACE,gBAAW,CAAC,IAAD,CADb;AAF6B;AAMD;AAE5B,UAAY,eAAD,QAAX,EACE,eAAU,CAAC,IAAD,CADZ;AAF4B;AAMS;AAGrC,UAAY,wBAAD,QAAX,EACE,wBAAmB,CAAC,IAAD,CADrB;AAHqC;AAOD;AAGpC,UAAY,uBAAD,QAAX,EACE,uBAAkB,CAAC,KAAK,wCAAN,CADpB;AAHoC;AAOP;AAAb;AAGhB,eAAQ,eAAU,cAAc,CAAC,OAAD;AAHhB;AAAa;AAMH;AAAV;AAIhB,eAAQ;AAJQ;AAAU;AAQI;AAAd;AAGhB;AAGA,eAAQ;AACR,UAAG,wBAAH;AAEE,4BAAe,CAAC,6CAAa,CAAd;AACf,iBAAQ,IAAO,UAAU,CAAC,wBAAD;OAH3B;AAPgB;AAAc;AAwVA;AAE9B;AAEA,UAAqB,CAAjB,qBAAiB,GAAE,CAAF,CAAK,IAAG,wBAA7B;AAEE,mBAAY;AACZ,sBAAU;AACV;AACE,8BAAe,CAAC,MAAD;AADjB;AAGE,wBAAU;AAHZ;OAJF;AAJ8B;AAgBF;AAAZ;AAGhB,eAAS,CAAI;AAHG;AAAY;AAMA;AAG7B;AACA;AAGA,eAAS,QAAkB,OAAb,eAAM,SAAC,EAAM,GAAE,CAAF,kBAA3B;AAAI;AACF,gBAAS,eAAM,UAAC,CAAD;AACf,YAAI,KAAK,OAAO,KAAE,IAAlB,EACE,IAAI,CAAC,KAAD,CADN;;AAT2B;AAoGC;AAAb;AAGhB,eAAU,wBAAmB,CAAC,SAAD;AAHb;AAAa;AAktDA;AAAb;AAGhB,eAAQ,eAAU,SAAC;AAHH;AAAa;AAgCC;AAAd;AAGhB;AACA;AACA;AAGA,kBAAa,iBAAK,QAAC;AACnB;AACE,yBAAY,CAAC,UAAW,SAAZ;AACZ,YAAG,SAAS,SAAC,EAAK,GAAC,CAAnB;AAEY,WAAD,sBAAC,YAAE,SAAS,SAAC,EAAb;AACT,mBAAS,QAAqB,OAAhB,SAAS,SAAC,EAAM,GAAE,CAAF,kBAA9B;AAAI;AACF,aAAC,CAAC,CAAD,CAAD,GAAc,cAAC,SAAS,KAAC,CAAD,CAAV,CAAc,aAAC;;AAC/B,mBAAQ;SAGR,eAAU,gBAAW,CAAC,SAAD,CAAW,aAAC;AAVrC;AAYE,iBAAU,eAAV,SAAU;AAZZ;AATgB;AAAc;AA5uDC;AAAf;AAGhB,eAAQ;AAHQ;AAAe;AAMH;AAAZ;AAGd;AAAE;AACF;AAGF,eAAS;AACT,eAAU,eAAU,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,YAAM,OAAO,CAAC,SAAD;AACb,UAAK;AACL,oBAAe,uBAAW,QAAC;AAC3B,aAAM,CAAE,GAAE,MAAM,SAAC,EAAjB;AAEE,YAAI,CAAuB,CAAN,UAAX,WAAa,EAAF,CAAM,IAAuB,UAAlB,MAAM,WAAC,CAAD,CAAG,UAAW,EAAF,CAAvB,CAA+B,IACrB,UAArB,iBAAX,WAAa,MAAM,WAAC,CAAD,CAAG,SAAX,EAAuB,EAAF,CADrC;AAGE,gBAAM,OAAO,CAAC,CAAD;AACT,WAAJ,IAAG;;AAKH,mBAAS,QAAsB,OAAjB,WAAW,SAAC,EAAK,GAAC,CAAD,kBAA/B;AAAI;AACF,gBAAG,cAAS,CAAC,WAAW,KAAC,CAAD,CAAZ,CAAiB,KAAE,IAA/B;AAEA,oBAAM,OAAO,CAAC,CAAD;AACT,eAAJ,IAAG;AACH;aAJA;;;AAOA,SAAJ,IAAG;;AAEL,iBAAY,eAAZ,WAAY;AAjCI;AAAY;AAsEE;AAAd;AAGhB,eAAQ;AAIR,aAAmB,CAAZ,iBAAY,GAAC,iBAAD,CAAe,IAAI,oBAAtC,EACM,MAAJ,IAAG;AARW;AAAc;AAlCD;AAAb;AAGf;AAOD,UAAG,iBAAY,GAAC,CAAhB,EACE,qBAAgB,CAAC,iBAAY,GAAC,CAAd,CADlB;AAEA,eAAQ,cAAS,CAAC,aAAQ,CAAC,iBAAD,EAAe,qBAAO,IAA/B,CAAoC,KAAC,oBAAD;AACrD,UAAG,MAAH;AAEE,YAAG,iBAAY,KAAC,CAAhB,EAAuB,sBAAvB;AACA,YAAG,iBAAY,KAAC,iBAAhB;AACE;;AAGI,2BAAJ,IAAG;AACH,gCAAgB,iBAAa,GAAE,CAAF;AAC7B,oBAAG,aAAQ,CAAC,mBAAD,CAAX;AACA,uBAAQ,CAAC,mBAAD,UAAkB,aAAQ,CAAC,iBAAD,CAA1B;AACR,uBAAQ,CAAC,iBAAD,UAAgB,CAAhB;;OAIV;AA5Bc;AAAa;AAwEE;AAAf;AAGhB,eAAQ;AAIR,aAAmB,CAAZ,iBAAY,GAAC,iBAAD,CAAe,IAAI,qBAAtC,EACM,MAAJ,IAAG;AARW;AAAe;AAxBD;AAAd;AAMhB;AACA,UAAG,iBAAY,GAAC,CAAhB,EAAuB,qBAAgB,CAAC,CAAD,CAAvC;AACA,eAAQ,cAAS,CAAC,aAAQ,CAAC,iBAAD,EAAe,sBAAQ,IAAhC,CAAqC,KAAC,oBAAD;AACtD,UAAG,MAAH;AAEI,YAAG,iBAAY,KAAC,CAAhB,EAAuB,sBAAvB;AACA;AAEA,YAAG,iBAAY,GAAC,iBAAhB,EACM,iBAAJ,IAAG,CADL;OAIF;AAlBc;AAAc;AAyCA;AAAd;AAGhB,eAAU,CAAC;AAHK;AAAc;AANN;AAAR;AAGhB,eAAU,CAAC;AAHK;AAAQ;AAYM;AAG9B,UAAG,mBAAH;AACE;;AAGA;AACE,yBAAU,CAAC,IAAD;AADZ;AAGE;AAHF;;AAP4B;AAuDU;AACtC;AAGF,UAAG,eAAS,SAAC,EAAM,KAAE,CAArB;AAEE,uBAAS;AACT;AACE,mBAAS,QAAiB,OAAZ,eAAM,SAAC,EAAK,GAAC,CAAD,kBAA1B;AAAI;AAAuC,wBAAN,eAAM,UAAC,CAAD;AACzC,gBAAG,CAAe,CAAV,gBAAU,IAAG,cAAC,6BAAa,wBAAd,CAAH,CAAlB;AAEE,gCAAW,eAAS,OAAC,gBAAa,QAAC,YAAM,CAAC,gBAAU,iBAAU,gBAAS,YAAK,gBAAS,eAAS,SAAC,EAAK,GAAC,CAA5D,CAAN;AAC9B;AAEH,kBAAG,gBAAH,EAAiB,qBAAyB,aAAX,mBAAa,cAAC,+BAAD,CAAF,CAAzB,CAAjB;AACA,kBAAG,eAAH,EAAiB,qBAAyB,aAAX,mBAAa,cAAC,+BAAD,CAAF,CAAzB,CAAjB;aANJ;;AAFJ;AAYE,yBAAS;AAZX;OAHF;AAJwC;AAwBb;AAG3B,6BAAkB,CAAC,MAAD;AAClB,0BAAe,CAAC,MAAD;AAJY;AAOI;;AAMF;;AAyeE;;AAneC;;AAML;AAG3B,UAAG,SAAH;AACE;AACG,gBAAG,WAAM,KAAG,4BAAZ,EACH,qBADG;AALsB;AASQ;AAEnC;AACE,YAAG,WAAO,KAAE,4BAAZ,EAA2B,qBAA3B;AADF;AAGE,YAAG,0BAAH;AAEE,uBAAQ,CAAC,2BAAD;AACR;AACA,cAAG,CAAI,cAAP,EACE,oBADF;;AAKA,uBAAQ,CAAC,6BAAD;AACR;;AAbJ;AAFmC;AAoBO;;AAcb;AAG7B,oBAAU;AACN,gCAAJ,IAAG;AAJ0B;AAqFH;AAG1B,UAAG,KAAM,IAAY,CAAP,WAAO,KAAE,6BAAF,CAArB;AAEE,YAAG,yCAAU,IAAG,oBAAhB;AAEE,gCAAkB;AAClB;;AAIA;AACA,sCAAsB;AACtB,qCAAqB;AACrB;AACE,kCAAgB,oBAAU,KAAC,CAAD;AAC1B,2BAAU,CAAC,KAAD;AAFZ;AAIE,gBAAG,WAAO,KAAG,4BAAb,EAA4B,yBAA5B;AAJF;;AAOF,yBAAW;OAER,UAAG,CAAI,KAAM,IAAY,CAAP,WAAO,KAAG,6BAAH,CAAzB;AAEH;AACA,qBAAQ,CAAC,6BAAD;AACR,8BAAgB;AAChB;AACA;AACA;AACA,yBAAW;OARR;AAxBqB;AA8GK;AAG/B;AACA;AAGA,UAAG,IAAO,MAAY,CAAC,KAAD;AACtB,OAAC,KAAD,GAAsB,CAAa;AACnC,OAAC,KAAD,GAAQ,CAAa;AACrB,uBAAY,CAAC,CAAD;AAVmB;AAaA;AAG/B;AAGA,UAAG,KAAM,GAAE,CAAX,EAAkB,QAAS,CAA3B;AACA,UAAG,KAAK,KAAC,iBAAT,EACE,MADF;AAGA,UAAG,KAAK,GAAC,iBAAT;AAEY,qBAAD,sBAAC,+BAAS,KAAK,GAAC,CAAhB;AACT,iBAAO,wBAAgB,8BAAvB;AAAI;AACF,uBAAQ,CAAC,CAAD,UAAK,wBAAL;;OAEP,UAAG,KAAK,GAAC,iBAAT,EACH,IAAS,CAAL,KAAK,IAAE,CAAF,CAAK,IAAkB,CAAb,kBAAa,GAAM,CAAL,KAAK,GAAC,CAAD,CAAN,CAAhC;AAEE,iBAAS,SAAmB,QAAb,kBAAa,GAAC,KAAD,qBAA5B;AAAI;AACF;;AACF,6BAAiB,KAAM,GAAC,CAAD;OALtB;AAOK,mBAAD,sBAAC,+BAAS,KAAK,GAAC,CAAhB;AACT,0BAAc;AACd,UAAG,iBAAa,GAAE,iBAAlB,EACE,oBAAgB,iBADlB;AAzB+B;AA8BD;AAG9B;AAEA,cAAe,OAAN,MAAS,WAAH;AACf,UAAG,eAAM,QAAQ,CAAC,KAAD,CAAQ,IAAG,CAA5B,EACE,KAAK,SAAC,CAAS,KAAT,CADR;AAN8B;AAUG;AAGjC,UAAG,mBAAc,KAAE,KAAnB;AAKE,YAAG,CAAI,sBAAP;AAAkD,qBAAf,oBAAe,CAAS,wBAAR,aAAQ,CAAC,KAAD,EAAT;AAChD,cADgD,IAChD;AAAY,oCAAmB,CAAS,wBAAR,aAAQ,CAAC,KAAD,EAAT;AAC/B,oBAFgD,IAEhD;AAAQ;AACR,oBAHgD,IAGhD,+BAAQ,mBAAR;SAHF;AAKA,8BAAgB;OAVlB;AAHiC;AAiBA;AAEjC,4BAAkB;AAFe;AAwBL;AAG5B,UAAG,KAAH,EAAc,yBAAd;AACA,uBAAa;AAJe;AAbK;AAGjC;AACA,4BAAkB;AAJe;AAOH;AAG9B,yBAAe;AAHe;AA8sCC;AAG/B;AACA;AACA;AAGA,UAAG,WAAO,CAAC,KAAD,CAAV;AAEE,oBAAa,iBAAK,QAAC;AACnB;AACE,2BAAY,CAAC,UAAW,SAAZ;AACZ,cAAoB;AACpB,cAAoB,CAAhB,SAAS,SAAC,EAAM,KAAE,CAAF,CAAK,IAAc,CAAH,WAAC,CAAD,CAAG,GAAC,CAAD,CAAvC;AAEE,4BAAW,CAAC,SAAD,CAAW,aAAC,CAAS,KAAT;AAEvB,yBAAS,QAAqB,OAAhB,SAAS,SAAC,EAAM,GAAE,CAAF,kBAA9B;AAAI;AACI,0BAAC,SAAS,KAAC,CAAD,CAAV,CAAc,aAAC,CAAS,CAAC,CAAC,CAAD,CAAV;;AAR3B;AAUE,mBAAU,eAAV,SAAU;AAVZ;OAcuB,MAAvB,gBAAW,CAAC,SAAD,CAAW,aAAC,CAAS,KAAT;AAzBM;AAjsCN;AAEzB,oBAAU;AAFe;AAKG;AAG5B,uBAAa;AAHe;AAMJ;;AAEN;AAAT;AACL;AAAE;AAEJ,iBAAU;AACV,YAAK;AACL,YAAK;AACL,eAAO,CAAE,GAAE,gBAAM,SAAC,EAAlB;AACE,cAAG,MAAO,KAAE,gBAAM,UAAC,CAAD,CAAG,WAArB;AACM,aAAJ,IAAG;AACH,qBAAU,SAAU,GAAE,qBAAQ,CAAC,CAAD,CAAV;WACb,MAAI,CAAJ,IAAG;;AAVP;AAAS;AAelB;AACA;AACA;AAGA,UAAG,KAAI,MAAM,KAAE,OAAf,EAA4B,MAA5B;AACA,YAAO,KAAI;AACM,+CAAC,OAAD;AACjB,UAAI,2CAAY,IAAG,oBAAnB,EACE,SAAS,QAAkB,OAAb,eAAM,SAAC,EAAM,GAAE,CAAF,kBAA3B;AAAI;AACF,aAAM,GAAI,GAAE,eAAM,UAAC,CAAD,CAAG,WAAX;AACV,YAAG,eAAI,CAAC,eAAM,UAAC,CAAD,CAAG,OAAO,EAAU,EAAD,OAA1B,CAAgC,KAAE,EAAzC,EACE,eAAM,UAAC,CAAD,CAAG,QAAC,CAAQ,SAAS,CAAC,OAAQ,GAAE,eAAM,UAAC,CAAD,CAAG,WAApB,CAAjB,CADZ;OAHJ;AAzBwB;AAiCU;AAGlC;AACA,6BAAmB;AAJe;AAOT;;AAMA;AAGzB,UAAG,KAAK,KAAE,WAAV;AAEE,sBAAQ;AACR,YAAG,KAAK,KAAC,2BAAT,EACE,iBAAW,KADb;AAEA,sBAAS,CAAC,8BAAc,CAAf;OALX;AAHyB;AAzWG;AAAZ;AAGhB,eAAU;AACV,oBAAU;AACN,gCAAJ,IAAG;AALa;AAAY;AAqXF;AAAV;AAGhB,qBAAU,aAAQ,CAAC,iBAAD,CAAlB;AAHgB;AAAU;AAMM;;AAMC;AAAjB;AAEhB,YAAM,KAAN,GAAa;AACb,YAAM,MAAN,GAAc;AAHE;AAAiB;AAOA;;AAKD;;AAMD;AAAf;AAEhB,eAAU;AAFM;AAAe;AAnwBF;AAAb;AAEhB,eAAQ;AAFQ;AAAa;AAKA;AAAb;AAEhB,eAAU;AAFM;AAAa;AAKK;;AAKH;;AAKD;;AAKO;;AA4WG;AAGxC,gCAAa,CAAC,EAAE,IAAH;AAH2B;AAML;;AAKN;;AAKA;;AAEA;AAEzB;AAGF,iBAAO,QAAqB,OAAhB,gBAAU,SAAC,EAAK,GAAC,CAAD,kBAA5B;AAAI;AACa,sBAAV,gBAAU,UAAC,CAAD;AAEb,cAAG,eACgD,IADnC,CAAI,eAAR,IACC,CAAT,gBAAS,KAAC,sBAAD,CADgB,IACH,CAAa,CAAR,eAAQ,KAAC,yBAAD,CAAjB,IAAiC,iBADvD,EAEE,uBAAgB,CAAC,wCAAW,mBAAC,yBAAD,EAAc,KAA1B,CAFlB;;AARuB;AAc7B;AAhB6B;AAmBO;;AAKJ;;AAKA;;AAKE;AAElC,+BAAqB;AAFa;AAKL;AAEP,oDAAC,WAAY,SAAb;AACtB,UAAa,CAAT,SAAS,KAAC,+BAAD,CAAW,IAAe,CAAV,UAAU,KAAC,eAAD,CAAvC,EACE,kBAAY,IADd;AAH6B;AA9ZG;AAEhC,UAAG,KAAM,KAAE,kBAAX,EACE,MADF;AAEA,UAAU,CAAN,KAAM,KAAG,IAAH,CAAQ,IAA4B,CAAR,CAAd,KAAK,SAAS,KAAE,IAAF,CAAQ,IACL,CAAR,CAA5B,KAAK,SAAQ,gBAAe,KAAG,IAAH,CAAQ,IACA,CAApC,KAAK,SAAQ,gBAAc,SAAS,KAAE,IAAF,CADA,CADK,CAA9C,EAGE,oBAAa,CAAC,+CAAmB,IAApB,CAHf;AAIA,UAAW,CAAC,KAAD,SAAQ,IAAI,CAAI,wBAAY,CAAC,KAAK,SAAQ,oBAAd,CAAvC,EACE,uBAAgB,CAAC,iDAAqB,mBAAkC,GAAjC,KAAK,SAAQ,oBAAoB,WAAlC,EAA+C,IAArE,CADlB;AAEA,UAAG,gBAAH,EACE,YADF;AAEA,UAAY,kBAAD,QAAX,EACE,kBAAa,oBAAoB,CAAC,IAAD,CADnC;AAEA,2BAAiB;AACjB,UAAY,KAAD,QAAX;AAEE,aAAK,oBAAoB,CAAC,IAAD;AACzB,YAAG,KAAK,SAAQ,UAAC,EAAjB,EACE,WADF;OAHF;AAfgC;AA4vBJ;AAAZ;AAEhB,eAAQ,mBAAY,CAAC,MAAM,4CAAP;AAFJ;AAAY;AAKC;AAE7B,yBAAY,CAAC,MAAM,aAAQ,CAAC,kBAAD,EAAgB,MAA/B;AAFiB;AAztBD;AAAZ;AAGhB,eAAkB,MAAM,KAAuB,CAAL,KAAK;AAC/C,UAAG,kBAAW,CAAC,MAAD,CAAd,EACE,SAAQ,IADV;AAJgB;AAAY;AASC;AAGnB,YAAM,KAAuB,CAAL,KAAK,YAAvC,GAAoD;AAHvB;AAoXO;AAAd;AAEtB,eAAQ;AAFc;AAAc;AAKH;AAAX;AAEtB,eAAQ;AAFc;AAAW;AA5YX;AAAN;AAEhB,eAAU;AAFM;AAAM;AAKA;AAAN;AAEhB,eAAU;AAFM;AAAM;AAp4BG;AAGT,gDAAC,MAAD;AAChB,wBAAY,4BAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,wBAAY,yBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,0BAAc,mBAAO,QAAC;AACtB,0BAAc,sBAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,mBAAD,sBAAC,+BAAS,CAAV;AACT,2BAAiB;AACjB,kBAAQ;AACR,kBAAQ;AACR,+BAAqB;AACrB,6BAAmB;AACnB,4BAAgB;AAChB,iCAAqC,IAAI,OAAC;AAfI;AAArB;AAmBA;AAGzB;AAGA,qBAAQ,KAAR;AAEA,0BAAe,CAAC,IAAD;AAEJ,eAAX,KAAW;AACA,eAAX,KAAW;AACK,eAAhB,KAAgB;AACX;AAEH,aAAM,YAAK,GAAC,CAAZ,EACa,cAAC,SAAK,CAAC,YAAM,GAAE,CAAT,CAAN,CAAkB,WAAC,CAAS,IAAT;AAChC;AAEF,eAAS,QAAK,0CAAd;AAAI;AACF,6BAAgB,CAAC,aAAQ,CAAC,CAAD,CAAT;;AACL,eAAb,KAAa;AACH,mBAAD,sBAAC,+BAAS,CAAV;AACC;AAvBe;AA8jDG;AAAZ;AAMhB,UAAG,kBAAa,KAAE,CAAC,CAAnB;AACE,uBAAQ,aAAQ,CAAC,kBAAD,CAAhB;AAEA,2BAAe,uBAAf;AATc;AAAY;AAsBL;AAGvB,yBAAc,CAAC,IAAD;AAHS;AAYM;AAG7B,+BAAoB,CAAC,OAAO,IAAR;AAHS;AAMG;AAAhB;AAEhB,eAAU;AAFM;AAAgB;AAKH;AAAb;AAKhB,eAAQ;AALQ;AAAa;AAUI;AAAjB;AAEhB,eAAQ,oCAAwB,CAAC,OAAO,OAAO,eAAf;AAFhB;AAAiB;AAmBM;AAAvB;AAGhB,eAAQ,0CAA8B,CAAC,OAAQ,MAAT;AAHtB;AAAuB;AAdO;AAAxB;AAEtB,eAAQ;AACR,UAAG,YAAQ,CAAC,MAAD,CAAX;AAEE,YAAG,CAAI,kCAAoB,CAAO,KAAC,MAAD,CAAS;;;;YAAhB,CAA3B,EACE,MAAM,0BAAa,QAAC,aAAS,CAAC,iDAAoB,mBAAO,QAAC,MAAR,CAArB,CAAT,CADtB;OAGG,UAAG,YAAQ,CAAC,MAAD,CAAX;AACH,iBAAiB,cAAC,MAAD;AACd,gBAAG,aAAM,CAAC,MAAD,CAAT,EACH,SAAU,6BAAgB,CAAS,MAAT,CADvB;AAViB;AAAwB;AAoBM;AAA9B;AAGtB,eAAQ,+BAAiB,CAAC,MAAD;AAHH;AAA8B;AAMrB;AAAf;AAEhB,eAAQ,kCAAsB,CAAC,MAAD;AAFd;AAAe;AAKa;AAAtB;AAGtB;AACA;AAAE;AAAE;AAEM,YAAD,sBAAC,SAAO,CAAR;AAET,UAAG,YAAQ,CAAC,MAAD,CAAX;AAEE,YAAS,KAAC,MAAD;AACT,YAAU,CAAD;AACC,cAAD,sBAAC,SAAa,UAAJ,CAAD,CAAC,GAAC,CAAD,CAAI,GAAI,CAAJ,CAAd;AACT,YAAG;AACH,YAAG;AACH,eAAO,CAAC,GAAC,CAAT;AAEE;AACE,kBAAM,CAAC,CAAD,CAAN,GAAW,qBAAQ,CAAC,GAAG,GAAC,eAAI,CAAC,EAAE,EAAE,CAAL,CAAT;AACf,aAAJ,IAAM;AACF,aAAJ,IAAM;AAHR;AAKE,kBAAM,CAAC,CAAD,CAAN,GAAe,CAAD,YAAG,CAAD,IAAF;AACV,aAAJ,IAAG;AACC,aAAJ,IAAG;AAPL;;OATJ;AARsB;AAAsB;AA8Bb;AAAf;AAGhB,eAAQ,kCAAsB,CAAC,oBAAD;AAHd;AAAe;AAMa;AAAtB;AAGtB;AACA;AAGA,UAAS,WAAC,MAAD,CAAQ,KAAC,CAAlB;AACE,iBAAQ;;AAGR,YAAG;AACH,iBAAO,QAAmB,OAAR,WAAC,MAAD,CAAQ,GAAE,CAAF,kBAA1B;AAAI;AACF,cAAa,CAAE,OAAO,CAAC,qBAAQ,CAAC,MAAM,CAAC,CAAD,EAAI,CAAX,CAAT;;AACxB,iBAAQ;;AAdY;AAAsB;AAkBrB;AAGvB,UAAG,WAAM,IAAG,cAAC,0BAAO,2BAAR,CAAZ;AAEE,sBAAS,CAAC,kCAAkB,CAAnB;AACT;AACA;AACA;AACA,YAAU,CAAN,WAAM,KAAE,2BAAF,CAAY,IAAkB,CAAb,iBAAa,KAAE,CAAF,CAAxC;AAEE,sBAAQ;AACR,sBAAQ;AACR,8BAAgB;AAChB,yBAAU,CAAC,aAAQ,CAAC,kBAAD,CAAT;AACV,uBAAQ,CAAC,2BAAD;AACR,wBAAS,CAAC,gCAAgB,CAAjB;;AAIT,uBAAQ,CAAC,2BAAD;AACR,+BAAgB,CAAC,kBAAD;AAChB,qBAAM,CAAC,EAAD;;AAER;OArBF;AAHuB;AA4BS;AAGhC;AACA,oBAAS,CAAC,kCAAkB,CAAnB;AACJ;AACH,WADG,IACH,mCAAO,CADJ,IACI,iCAAP;AAEE;AACA,YAAG,cAAH;AACE;AAEA;OAEJ,UATG,IASH,kCAAU,WAAV;AAd8B;AAkBJ;AAI5B,oBAAS,CAAC,kCAAmB,CAApB;AACT,6BAAkB,CAAC,aAAQ,CAAC,kBAAD,CAAT;AAClB,UAAG,WAAM,KAAG,2BAAZ,EACE,kBAAa,CAAC,aAAQ,CAAC,kBAAD,CAAT,CADf;AAEA,oBAAS,CAAC,+BAAgB,CAAjB;AARmB;AAWN;AAGtB,qBAAQ,KAAR;AAHsB;AAMQ;AAAd;AAGhB;AAGA,eAAQ;AACR,UAAG,CAAY,CAAC,gBAAD,SAAf,EACE,aADF;AAEA,UAAG,CAAI,cAAP;AACE,iBAAQ,gBAAW;AAEnB,qBAAO,QAAsB,OAAjB,gBAAW,OAAM,GAAC,CAAD,kBAA7B;AAAI;AACF,YAA0B,cAAC,gBAAW,KAAC,CAAD,CAAZ,CAAgB,eAAc,KAAC,gCAAzD,EACM,MAAJ,IAAG,CADL;;AAbY;AAAc;AAiBD;AAE7B;AACA;AAH6B;AAvOG;AAAhB;AAGhB,eAAW,0BAAsB,GAAE,CAAF;AAHjB;AAAgB;AA6OA;AAAhB;AAGhB,eAAQ;AAHQ;AAAgB;AAMC;AAIjC,4BAAgB,CAAC;AAJgB;AAOV;AAGvB;AAGA,UAAG,CAAI,mBAAP,EACE,oBAAa,CAAC,8CAAiB,IAAlB,CADf;AAEA,UAAG,cAAH,EACE,oBAAa,CAAC,2CAAc,IAAf,CADf;AAEA,UAAG,WAAM,IAAG,cAAC,2BAAD,CAAZ;AAEE;;AAEA,sBAAS,CAAC,kCAAkB,CAAnB;AAIT;AACA;AACA,YAAG,oBAAe,CAAC,4BAAD;AAClB,YAAG,CAAI,aAAQ,CAAE,0CAAe,mBAAjB,CAAf;AAEE,cAAY,CAAD,QAAX,EACE,yBAAoB,CAAC,CAAD,CADtB;AAEA;SAJF;AASA,qBAAQ,CAAC,2BAAD;AAIR,6BAAgB,CAAC,kBAAD;AAChB,mBAAM,CAAC,EAAD;AACN;AACA;;AArCqB;AAyCS;AAIhC,UAAG,0BAAqB,KAAC,CAAzB;AAKE,qCAAuB;AACvB,oCAAsB;OANxB;AAQI,gCAAJ,IAAG;AAZ6B;AA6HX;AAGrB,UAAG,WAAM,IAAG,cAAC,0BAAO,2BAAR,CAAZ,EAAmC,MAAnC;AACA;AACA,UAAG,CAAI,mBAAP,EACE,oBAAa,CAAC,8CAAiB,IAAlB,CADf;AAEA,UAAG,iBAAa,KAAE,CAAlB;AAEE;AACA;OAHF;AAKA;AACA,UAAG,CAAI,aAAQ,CAAE,wCAAa,iBAAf,CAAf,EAAgD,MAAhD;AACA,wBAAa,CAAC,aAAQ,CAAC,kBAAD,CAAT;AACb,mBAAQ,CAAC,yBAAD;AACR,oBAAS,CAAC,+BAAe,CAAhB;AACT;AAjBqB;AAoBU;AAI/B,UAAG,0BAAsB,GAAE,CAA3B,EACM,0BAAJ,IAAG,CADL;AAGA,UAAG,0BAAsB,KAAE,CAA3B;AACE,YAAG,WAAO,KAAG,0BAAb,EACE,cAAS,CAAC,8BAAe,CAAhB,CADX;AAGA,YAAW,CAAP,WAAO,KAAG,6BAAH,CAAe,IAA2B,CAAtB,0BAAsB,KAAG,6BAAH,CAArD,EACE,cAAS,CAAC,0BAAsB,CAAvB,CADX;OAJF;AAP+B;AAgBJ;AAAX;AAIhB,eAAQ,cAAS,CAAC,SAAD;AACjB,UAAG,MAAM,KAAC,IAAV,EACE,uBAAgB,CAAC,4CAAe,mBAAC,YAAD,EAAY,IAA5B,CADlB;AALgB;AAAW;AASF;AAAT;AAIhB,eAAQ,eAAU,UAAU,CAAC,SAAD;AAJZ;AAAS;AAOA;AAAT;AAIhB,eAAQ;AAJQ;AAAS;AAOD;AAAR;AAIhB,eAAQ;AAJQ;AAAQ;AAOA;AAAR;AAIhB,eAAQ;AAJQ;AAAQ;AAOC;AAAT;AAIhB,eAAQ;AAJQ;AAAS;AAOH;AAItB;AACA;AACA,UAAG,CAAI,sBAAP;AACE;AACG,gBAAG,CAAI,SAAP;AAEH,uBAAU,KAAV;AACA,uBAAU,IAAV;OAHG;AAKL;AACE;AACA,YAAG,CAAI,sBAAP,EAA8B,qBAA9B;AAFF;AAIE,oBAAM;AACN,sBAAS,CAAC,gCAAgB,CAAjB;AACT;AANF;AAbsB;AAuBO;;AASF;AAAX;AAIhB,UAAG,wBAAH;AACE,4BAAe,CAAC,6CAAa,MAAd;AAEf,YAAA,MAAM,KAAN,GAAa;AAPC;AAAW;AAUK;AAAhB;AAIhB,eAAQ;AAJQ;AAAgB;AAOH;AAG7B;AACA;AACA;AAGA,UAAe,CAAX,UAAW,KAAE,EAAF,CAAM,IAAS,CAAL,IAAK,KAAE,IAAF,CAA9B,EACE,MADF;AAEA,eAAU;AACV;AACE,YAAK,qBAAgB,CAAC,WAAY;;;;YAAb;AACrB,YAAK,gBAAW,CAAC,CAAD;AAChB,YAAI,IAAI,CAAC,CAAD;OAHV,QAIa,EAAP,MAAO,GAAS,UAAD,OAAR,CAJb;AAX6B;AAkBA;AAE7B;AACA;AACA;AAGA,UAAe,CAAX,UAAW,KAAE,EAAF,CAAM,IAAS,CAAL,IAAK,KAAE,IAAF,CAA9B,EACE,MADF;AAEA,eAAU;AACV;AACE,YAAK,qBAAgB,CAAC,WAAY;;;;YAAb;AACrB,YAAK,gBAAW,CAAC,CAAD;AAChB,YAAI,IAAI,CAAC,CAAD;OAHV,QAIa,EAAP,MAAO,GAAS,UAAD,OAAR,CAJb;AAV6B;AAiBC;AAI9B,qBAAU,cAAc,CAAC,IAAD;AAJM;AAOD;AAI7B,UAAG,CAAI,aAAM,CAAC,SAAS,KAAV,CAAb;AAEE;AACA;AAIA,iCAAoB,CAAC,gCAAD;AACpB,mBAAM,CAAC,cAAC,2BAAQ,2BAAT,CAAD;AACN;OATF;AAJ6B;AAiBN;AAGvB,yBAAc,CAAC,KAAD;AAHS;AAMM;AAG7B,+BAAoB,CAAC,OAAO,KAAR;AAHS;AAMN;AAAP;AAGhB,eAAS,SAAe,IAAN,SAAJ,IACL,CAAW,CAAN,WAAM,KAAE,2BAAF,CADI;AAHR;AAAO;AAOG;AAAV;AAIhB,UAAgB,CAAZ,WAAY,KAAE,IAAF,CAAO,IAAwB,CAApB,WAAW,SAAS,KAAE,IAAF,CAA/C;AACE,iBAAU;OACH,UAAG,WAAW,SAAS,KAAE,IAAzB;AACP,iBAAU;;AAEV,iBAAU,WAAW,SAAQ,WAAW,CAAC,WAAW,SAAQ,cAAC,EAArB;;AAT1B;AAAU;AAcC;AAAX;AAGhB,eAAU;AAHM;AAAW;AAMN;AAGrB;AACA;AACA;AACA;AACA;AAEE;AAEA;AAEA,YAAG,iBAAY,GAAC,CAAhB,EACE,qBAAe,iBAAY,GAAC,CAD9B;AANF;AAUE,oBAAM;AACN,sBAAS,CAAC,gCAAiB,CAAlB;AACT;AAZF;AAPqB;AAgDD;AAAJ;AAGhB,UAAG,wBAAQ,IAAG,QAAd,EACE,oBAAa,CAAC,gDAAmB,IAApB,CADf;AAEA,UAAG,gCAAgB,IAAG,QAAtB,EACE,oBADF;AAEA,eAAQ,WAAM,CAAC,qBAAS,UAAV;AAPE;AAAI;AAkcE;AAAN;AAIhB;AACA,eAAU;AALM;AAAM;AAQA;AAAN;AAIhB;AACA,eAAU;AALM;AAAM;AAhcA;;AAAN;AAEhB;AAEsB;AAAb;AAEP,iBAAQ;AAOR,qBAAM;AACN,eAAe,CAAR,QAAQ,GAAC,CAAD,CAAI,IAAI,CAAI,UAA3B;AAEE,cAAG,mBAAa,GAAa,CAAZ,kBAAY,GAAC,CAAD,CAA7B;AAEM,+BAAJ,IAAG;AACC,oBAAJ,IAAG;AACC,qBAAJ,IAAG;;AAOH,gBAAG,qBAAH;AAEM,sBAAJ,IAAG;AACC,oBAAJ,IAAG;AACC,uBAAJ,IAAG;;AAIH,2BAAM;AAEN,0BAAM,CAAC,cAAC,0BAAS,wBAAV,EAAmB,IAApB;;;;AAjCL;AAAa;AAuCC;AAAd;AAEP;AACA,iBAAQ;AAOR,qBAAM;AACN,eAAe,CAAR,QAAQ,GAAC,CAAD,CAAI,IAAI,CAAI,UAA3B;AAEE,cAAG,mBAAa,GAAC,CAAjB;AAEM,+BAAJ,IAAG;AACC,oBAAJ,IAAG;AACC,qBAAJ,IAAG;;AAOH,gBAAG,sBAAH;AAEM,sBAAJ,IAAG;AACC,oBAAJ,IAAG;AACC,uBAAJ,IAAG;aAGH,mBAAM;;;AA/BL;AAAc;AAqCvB;AAGA;AACA,eAAQ;AAAG,kBAAW;AACtB;AACA,UAAa,CAAT,QAAS,KAAE,CAAF,CACc,IAAV,CAAJ,CAAR,QAAQ,GAAC,CAAD,CAAI,IAAI,SAAJ,CADC,IAED,CAAJ,CAAR,QAAQ,GAAC,CAAD,CAAI,IAAI,SAAJ,CAFjB,EAGE,aAHF;AAIA;AACE,mBAAY;AACZ,YAAG,QAAQ,GAAC,CAAZ;AACE,qBAAU;AAEV,yBAAU;AALd;AAUE,sBAAS,CAAC,gCAAgB,QAAjB;AACT;AACA,iBAAQ;AAZV;AA1FgB;AAAM;AA0GD;AAErB,UAAG,mBAAa,GAAC,CAAjB;AACE;AAEA,YAAA,WAAM,CAAC,CAAD;AALa;AAaA;AAErB,qBAAQ,IAAR;AAFqB;AAQT,wBAAsC,8BAAW,6BAAjD;AAHS;AAMrB;AACA;AAGA;AACA,UAAG,WAAM,IAAG,cAAC,0BAAO,2BAAR,CAAZ;AAEE,sBAAS,CAAC,kCAAkB,CAAnB;AAIT;AACA,oBAAW,WAAK,KAAC,2BAAD;AAChB,YAAG,CAAI,aAAQ,CAAE,wCAAa,iBAAf,CAAf,EAAgD,MAAhD;AACA;AAMA,qBAAQ,CAAC,2BAAD;AACR,mBAAM,CAAC,EAAD;AAEN,YAAG,oBAAe,CAAC,YAAY,CAAC,UAAD,CAAb;AAClB,YAAY,CAAD,QAAX,EACE,CAAC,UAAC,SAAW,kBAAX,CADJ;AAKA;OAEG,UAAG,WAAK,KAAE,2BAAV,EACH,uBAAgB,CAAC,yCAAa,mBAAC,aAAD,EAAQ,IAAtB,CADb;AArCgB;AAyCC;AAGtB,iBAAM,CAAC,CAAC,CAAF;AAHgB;AAME;AAGxB;AACA;AACA;AACA;AAIA,iBAAM,CAAC,EAAD;AACN;AAXwB;AAsBD;AAErB;AAAE;AAOJ,UAAG,sBAAH,EAA0B,MAA1B;AAKA,UAAG,cAAS,CAAC,aAAQ,CAAC,CAAD,EAAI,wBAAU,KAAvB,CAA6B,KAAE,oBAA3C,EAEE,IAAG,0BAAQ,IAAG,IAAd;AACE,4BAAa,CAAC,2CAAc,IAAf;AAEV,gBAAsC,CAAlC,cAAS,CAAC,aAAQ,CAAC,CAAD,EAAI,qBAAO,IAApB,CAAyB,KAAE,oBAAF,CAAQ,IACP,CAAnC,cAAS,CAAC,aAAQ,CAAC,CAAD,EAAI,sBAAQ,IAArB,CAA0B,KAAE,oBAAF,CADvC;AAOH;AAEA,+BAAkB,CAAC,aAAQ,CAAC,kBAAD,CAAT;AAClB,sBAAS,CAAC,gCAAgB,CAAjB;AACT;OAhBJ;AAkBA,4BAAkB;AAClB,kBAAQ;AACR,kBAAQ;AAGR,UAAI,2BAAS,IAAG,IAAhB;AACE,gBAAuB,UAAb,iBAAa,GAAI,CAAJ;AAEvB,oBAAS;AACX,UAAK;AACL,0BAAgB;AAChB,2BAAiB;AAGjB,aAAS,CAAF,CAAE,GAAE,KAAF,CAAS,IAAI,qBAAtB,EACM,CAAJ,IAAG;AACL,2BAAiB;AAEjB;AAEA,UAAG,iBAAa,GAAE,iBAAlB,EAAoC,qBAAe,kBAAa,GAAC,sBAAjE;AAEA,oBAAS,CAAC,gCAAgB,CAAjB;AAtDc;AAyDO;AAE9B,wBAAY;AACZ,wBAAY;AAHkB;AAMJ;AAExB;AAEF,eAAO,QAAS,kBAAC,MAAD,uBAAhB;AAAI;AACF,uBAAM,UAAC,CAAD,CAAG,YAAY,CAAC,MAAM,CAAC,CAAD,CAAP;;AALG;AAiDM;AAGhC,UAAG,iBAAY,GAAC,CAAhB,EACE,qBAAgB,CAAC,kBAAD,CADlB;AAHgC;AAOH;AAG7B,UAAG,CAAW,CAAN,WAAM,IAAG,gBAAH,CAAd,EACE,uBAAgB,CAAC,yCAAa,mBAAC,aAAD,EAAQ,IAAtB,CADlB;AAEA,oBAAS,CAAC,+BAAgB,CAAjB;AALoB;AAQI;AAAjB;AAGhB;AACA;AAGA,UAAG,gCAA2B,QAAC;AAC/B;AACY,cAAD,sBAAC,yBAAO,qBAAgB,CAAC,CAAD,CAAxB;AACT,iBAAO,QAAY,OAAP,CAAC,OAAM,GAAC,CAAD,kBAAnB;AAAI;AACF,gBAAM,CAAC,CAAD,UAAK,wCAAmC,CAAC,CAAC,WAAC,CAAD,CAAF,CAAxC;;AAHV;AAKE,SAAE,eAAF,CAAE;AALJ;AARgB;AAAiB;AAn2HzB;;AA4PY,+BAAO,UtCtxBjB,+BsCsxBiB,CAAP;AA5PZ;AAsXC;;;AAEP;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAVO;;;;;AA0sMuB;AAAf;AAEjB,UAAG,gBAAU,SAAQ,cAAe,GAAsC,CAAf,CAArB,iBAAqB,GAAN,KAAF,GAAU,iBAAF,CAAe,GAAE,CAAF,CAA1E;AACE,iBAAU,gBAAU,SAAQ,cAAe,GAAuC,CAAf,CAArB,iBAAqB,GAAN,KAAF,GAAU,iBAAF,CAAe,GAAE,CAAF,CAAvC;AACxC,gBAAG,gBAAU,SAAQ,cAAe,GAAe,CAAb,iBAAa,GAAE,KAAF,CAAnD;AACH,iBAAU,gBAAU,SAAQ,cAAe,GAAgB,CAAb,iBAAa,GAAE,KAAF,CAAhB;AACxC,qBAAU;AAEX,uBAAJ,IAAkB,KAAM,GAAE,MAAF;AARP;AAAe;AAYL;AAEzB;AAAM;AAER,aAA6B,CAAtB,iBAAO,cAAe,GAAE,iBAAF,CAAe,GAAE,CAAF;AAC5C,UAAG,IAAK,GAAE,CAAV,EAAiB,OAAO,CAAxB;AACA,aAAO,iBAAO,aAAc,GAAE,iBAAF;AAC5B,UAAG,IAAK,GAAE,CAAV,EAAiB,OAAO,CAAxB;AAEA,UAAG,IAAI,GAAC,iBAAO,cAAf,EAAmC,OAAM,iBAAO,cAAhD;AACA,UAAG,iBAAa,GAAE,IAAlB,EAA4B,oBAAe,IAA3C;AACA,UAAG,iBAAa,GAAE,IAAlB,EAA4B,oBAAe,IAA3C;AAEA,UAAgB,CAAZ,iBAAY,KAAE,CAAF,CAAK,IACoB,CAAf,CAAtB,iBAAO,cAAe,GAAE,iBAAF,CAAe,GAAe,CAAb,iBAAa,GAAC,CAAD,CAAf,CADzC,EAEM,iBAAJ,IAAkB,CAFpB;AAb2B;AAvCY;AAGvC;AAGA,UAAW,CAAC,gBAAD,SAAa,IAAI,CAAsB,CAAjB,gBAAU,OAAO,IAAG,cAAC,8BAAW,4BAAZ,CAAH,CAA1B;AACxB,UAAG,CAAC,KAAE,YAAN;AAEE,uBAAS;AACT;OAHF;AAKA,UAAW,CAAC,gBAAD,SAAmD,IAAhB,CAAjB,gBAAU,OAAO,IAAG,gBAAH,CAAtB,IAA0C,CAAI,cAAR;AAC9D,UAAG,CAAC,KAAE,aAAN;AAEE,wBAAU;AACV;OAHF;AAbuC;AAoHZ;AAAV;AAGjB,UAAY,gBAAD,QAAX;AACE,iBAAQ,gBAAU;AAElB,qBAAQ;AANO;AAAU;AAmFA;AAE3B,UAAG,YAAO,KAAG,OAAb;AAEE,uBAAW;AAEX;OAJF;AAF2B;AAUI;AAG/B,UAAG,gBAAY,KAAE,KAAjB,EACE,MADF;AAEA,UAAG,CAAI,qBAAP;AAEE,YAAY,gBAAD,QAAX;AAEE,0BAAU,mBAAmB,CAAC,IAAD;AAC7B,6BAAe;AACf;SAJF;AAMA,2BAAe;AACf,YAAY,gBAAD,QAAX;AAEE,0BAAU,iBAAiB,CAAC,IAAD;AAC3B;SAHF;OATF;AAL+B;AAsBF;AAG7B,UAAG,cAAS,KAAE,KAAd;AAEE,yBAAW;AACX;OAHF;AAH6B;AA7OE;AAG/B,0BAAgB;AAHe;AA2BE;;AAqCN;AAE3B,UAAG,KAAM,KAAE,6BAAX;AACE;AACG,gBAAG,YAAH;AACE;AACH,aADG,IACH,uCAAe,CADZ,IACY,oCAAf;AACE,cAAG,CAAI,oBAAP,EACE,kBAAa,CAAO,cAAC,IAAD,CAAP,CADf;AAEF,kBAJG,IAIH;AAEE,wBAAS,CAAC,gBAAU,SAAQ,UAAC,EAApB;AACT;AACA,8BAAe,CAAQ,UAAC,IAAD,CAAR;AACf;SAEF,UAXG,IAWH;AAAiB,8BAAe,CAAC,oBAAe,CAAQ,UAAC,IAAD,CAAR,CAAhB;AAChC,kBAZG,IAYH;AAEE,8BAAe,CAAQ,UAAC,IAAD,CAAR;AACf;SAEF,UAjBG,IAiBH;AAAgB;AAChB,kBAlBG,IAkBH;AAAmB;AACnB,kBAnBG,IAmBH,qCAAgB,iBAAY,CAAC,IAAD,CAA5B;OApBC;AAJsB;AA4BK;AAEhC,wBAAa,CAAC,IAAD;AAFmB;AAKC;AAGjC;AAHiC;AAOD;;AAMF;;AAME;AAAf;AAGjB,eAAQ,iBAAO,cAAe,GAAE,iBAAF;AAHb;AAAe;AAgBT;AAAN;AAGjB,eAAQ,iBAAO,OAAC;AAHC;AAAM;AAOQ;AAAd;AAGjB,eAAQ;AAHS;AAAc;AAOR;AAAN;AAGjB,eAAQ,iBAAO,OAAC;AAHC;AAAM;AAOQ;AAAd;AAGjB,eAAQ,iBAAO;AACf,UAAG,MAAM,GAAC,qBAAV,EACE,SAAQ,qBADV;AAJiB;AAAc;AASA;AAG/B;AAH+B;AAOR;AAAN;AAGjB,eAAQ,iBAAO,OAAO,CAAC,QAAD;AAHL;AAAM;AAOQ;;AAME;AAMjC,uBAAO,cAAP,GAAuB,KAAM,GAAE,iBAAF;AANI;AAUD;AAGhC,UAAG,iBAAY,KAAE,KAAjB;AAEI,4BAAc;AACd,YAAG,YAAH;AACE,2BAAO;AACP;SAFF;OAHJ;AAHgC;AAuDJ;;AA7QF;AAGhB;AACV,0BAAc;AACd,0BAAgB;AAChB,yBAAe;AACf,8BAAkB;AAPS;AAAD;AAWA;AAG1B,qBAAS;AACT,sBAAU;AACV,8BAAkB;AAClB,yBAAY,IAAZ;AACU;AAPgB;AAyQL;AAAJ;AAGjB,UAAG,CAAI,cAAP,EACE,gBAAU,OADZ;AAGA,eAAQ;AANS;AAAI;AAUS;AAG9B,6BAAiB;AACjB;AACE;AADF;AAGE,+BAAiB;AAHnB;AAJ8B;AAj7MrB;AAwCW;AAxCX;AA2DM;AAs4MwB;AAAhB;AAGvB,eAAU;AAHa;AAAgB;AAt4MxB;AASA;;;AAEb;AACA;AACA;AACA;AACA;AANa;;;;;;;;AA08MsB;AAGrC,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf;OAHF;AAHqC;AAjDA;AAGrC,kBAAO;AACP,UAAG,YAAH,EACE;AACE,yBAAO,aAAa,CAAC,aAAS,gBAAV;AADtB;AAGE,oBAAO;AACP;AAJF,OADF;AAOA,UAAG,mBAAc,UAAC,EAAO,IAAI,CAAkB,CAAb,4CAAa,IAAG,mBAAc,gBAAjB,CAA/C,EACE,IAAG,YAAO,IAAmB,CAAd,YAAO,SAAC,EAAM,GAAE,CAAF,CAA7B;AACE;AAEA,kCAJJ;AAXqC;AAmBE;AAGvC,UAAG,mBAAc,UAAC,EAAlB,EAA8B,mBAAc,kBAA5C;AAHuC;AAOA;AAAhB;AAGvB,eAAU;AAHa;AAAgB;AAOF;AAGrC;AAHqC;AAOA;AAGrC,UAAqB,CAAjB,gBAAU,OAAO,KAAG,2BAAH,CACE,IADe,mBAAc,UAAC,EAAnB,IAChB,CAAd,YAAO,SAAC,EAAM,GAAE,CAAF,CAD0C,IAClB,CAAP,CAAN,KAAM,KAAE,IAAF,CAAO,IACf,CAAvB,YAAO,QAAQ,CAAC,KAAD,CAAQ,IAAG,CAAH,CADe,CAD1C,EAGE,qBAHF;AAHqC;AAmBE;AAGvC,UAAY,qBAAD,QAAX,EACE,qBAAgB,CAAC,IAAD,CADlB;AAHuC;AAOD;AAGtC,UAAY,oBAAD,QAAX,EACE,oBAAe,CAAC,IAAD,CADjB;AAHsC;AAnFN;AAGtB;AACV,4BAAgB;AAChB,qBAAS,iBAAK,QAAC;AALsC;AAArB;AASA;AAGxB,eAAR,KAAQ;AACE;AAJsB;AAj5MjB;AAiBK,+BAAS,YA3crB,sBA2cqB,CAAT;AAjBL;AA2BM;;;AAEnB;AAFmB;;;;;AA29MkB;AAGvC,qBAAS;AACT,UAAI,MAAM,KAAE,IAAZ,EACE,wBADF;AAJuC;AAkDM;AAG7C;AAH6C;AAQD;AAG5C;AACA,UAAW,CAAC,YAAD,SAAqC,IAAhB,CAAC,uBAAD,SAAZ,IAAgC,uBAAa,UAAC,EAAlE;AAEE,+BAAa;AACb,+BAAa;AACb,+BAAa;OAJf;AAJ4C;AA1EN;AAGtC;AAGgB,8CAAC,QAAD;AAChB,UAAI,QAAQ,KAAE,IAAd;AAEE,YAAW,2BAAa,CAAC,SAAS,SAAS,YAAnB;AACxB,YAAI,CAAC,KAAE,IAAP,EACE,eAAQ,CAAR,CADF;OAHF;AAP2D;AAArB;AAwBS;AAG/C;AACA;AACA;AACA;AACA;AAIA,WAAI;AACJ,WAAI;AACJ,UAAY,YAAD,QAAX;AAEE,YAAG;AACH,iBAAO,QAAkB,OAAb,YAAO,SAAC,EAAK,GAAC,CAAD,kBAAzB;AAAI;AAEF,cAAG,YAAO,WAAC,CAAD;AACV,cAAG,CAAI,CAAC,OAAR;AAEE,gBAAY,EAAD,QAAX,EACE,IAAG,EAAE,UAAU,CAAC,CAAC,MAAF,CADjB;AAEA,gBAAI,CAAY,CAAC,EAAD,SAAyB,IAAf,CAAI,EAAE,UAAC,EAAX,IAAwB,CAAD,CAAC,KAAE,IAAF,CAA9C;AAEE,kBAAI,EAAE,KAAE,EAAR,EACE,KAAI,EAAE,GAAC,GADT;AAEA,mBAAI,EAAE,GAAC,CAAC,MAAF;aAJR;WAJF;;OANJ;AAmBA,yBAAY,EAAZ;AAhC+C;AAmCG;AAGlD,UAAY,YAAD,QAAX,EACE,YAAO,2BAA2B,CAAC,kBAAQ,SAAT,CADpC;AAHkD;AAtgN7B;AAQD,+BAAS,YA7drB,sBA6dqB,CAAT;AARC;AAgBL,uEAAmB,U/Ch8C5B,2B+Cg8C4B,EAAgB,SAr0C7C,oBAq0C6C,CAAnC;AAEL;;;AAET;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATS;;;;;;;;;AAyjNwB;AAInC;AAGK;AAEH,eAAO,QAAU,OAAL,gBAAK,GAAC,CAAD,kBAAjB;AAAI;AACY,mCAAC,SAAK,CAAC,CAAD,CAAN;AACZ,YAAG,CAAI,qBAAP,EACE,gBAAS,CAAC,MAAM,IAAP,CADX;;AAEJ,eAAO,SAAU,QAAL,gBAAK,GAAC,CAAD,qBAAjB;AAAI;AACY,mCAAC,SAAK,CAAC,CAAD,CAAN;AACZ,YAAG,qBAAH,EACE,gBAAS,CAAC,MAAM,IAAP,CADX;;AAf6B;AAoBC;AAGpC,qBAAU,IAAI,CAAC,QAAD;AACd,UAAY,aAAD,QAAX,EACE,aAAO,oBADT;AAJoC;AAmEhB,6BAAG,cAAC,+BAAgB,gCAAiB,gCACjC,+BAAe,6BADhB;AAHS;AAOhC;AACA;AAIA,UAAG,KAAK,KAAC,6BAAT;AAEE,yBAAiB,WAAM,KAAC,6BAAD;AACvB,qBAAY;AACZ,YAAW,CAAC,aAAD,SAAU,IAAI,aAAzB;AACE,wBAAQ,aAAO;AAEf,4BAAQ;AAEV,YAAG,WAAM,KAAC,UAAV,EACE,MADF;OAIA,uBAAgB;AAClB,0BAAe,CAAC,MAAM,IAAP;AAEf,UAAG,CAAkB,CAAb,4CAAa,IAAG,oBAAH,CAArB;AAEE,YAAI,KAAK,KAAC,6BAAV,EACE,oBADF;AAEA,YAAU,CAAN,KAAM,IAAG,kBAAH,CAAuB,IAC9B,cADH,EAEE,iBAAY,CAAC,IAAD,CAFd;AAGA,YAAI,KAAM,KAAE,6BAAZ,EACE,iBAAY,CAAS,IAAT,CADd;AAEA,YAAI,KAAK,KAAC,8BAAV,EACE,mBADF;OATF;AA5BgC;AAvDF;AAE9B,UAAG,aAAQ,KAAE,IAAb;AAEE,qBAAQ,qBAAqB,CAAC,IAAD;AAC7B,wBAAU;AACV,yBAAY,CAAC,8BAAc,CAAf;OAJd;AAMA,UAAG,QAAQ,KAAE,IAAb;AAEE,gBAAQ,mBAAmB,CAAC,IAAD;AAC3B,wBAAU;AACV,yBAAY,CAAC,8BAAc,CAAf;OAJd;AAR8B;AAiBA;AAE9B,sBAAU;AACV,uBAAY,CAAC,8BAAc,CAAf;AAHkB;AA4BQ;AAGtC,qBAAU,OAAO,CAAC,QAAD;AACjB,UAAG,aAAO,KAAE,IAAZ,EACE,aAAO,oBADT;AAJsC;AAtBN;AAEhC,UAAY,kBAAD,QAAX,EACE,IAAY,IAAD,QAAX;AACE,0BAAY,CAAC,KAAa,IAAd;AAEZ,YAAA,kBAAY,CAAC,KAAM,IAAP,CAJhB;AAFgC;AASC;AAEjC,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,IAAD,CADf;AAFiC;AAMD;AAEhC,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,IAAD,CADd;AAFgC;AAzGJ;AAGZ,gDAAC,MAAD;AAChB,wBAAc,iBAAK,QAAC;AACpB,sBAAY;AACZ,uBAAa;AANoC;AAArB;AAUA;AAG5B,4BAAgB;AAChB,sBAAS,IAAT;AACK;AACH,aAAM,gBAAK,GAAC,CAAZ,EACW,cAAC,SAAK,CAAC,gBAAM,GAAE,CAAT,CAAN,CAAkB,cAAC,CAAY,IAAZ;AACrB,eAAX,KAAW;AACD;AATkB;AAaJ;AAGxB,UAAS,CAAL,WAAK,KAAC,2BAAD,CAAW,IAAI,cAAxB,EACE,aAAO,OADT;AAHwB;AAQK;AAAV;AAGnB,eAAQ;AAHW;AAAU;AAljNlB;;AAsBS,+BAAO,UtCvhCjB,+BsCuhCiB,CAAP;AAMD;AACD,+BApgBV,uBAogBU;AACA;AACM,qCtCzkDZ,kCsCykDY;AACD,oCAlCP,+BAkCO;AACA,oCtC3kDX,kCsC2kDW;AAjCZ;AAsCO;;AACD,wEAAsB,YAE3B,0BAF2B,CAAtB;AAEL;;;AAEV;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAZU;;;;;;;;;;;AAwUuB;AAEnC,UAAY,kBAAD,QAAX,EACE,kBAAa,CAAC,IAAD,CADf;AAFmC;AAMN;AAE7B,wBAAY;AACZ,0BAAc;AACd,oBAAQ;AACR,2BAAe;AALiI;AAAnH;AA9UjB;AA4BK,4CA5BL,wCA4BK;AAIM;;;AAErB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATqB;;;;;;;AAmQyB;AAEhD,4BAAgB;AAFgC;AAKX;AAErC,4BAAgB;AAChB,2BAAe;AACf,yBAAa;AAJwB;AAOG;AAGxC,sBAAU;AACV,6BAAW,SAAX;AACA,mBAAO;AACP,qBAAS;AACT,oBAAQ;AANgB;AADgB;AAWD;AAEvC,2BAAgB,CAAC,8BAAD;AAChB,yBAAa;AAH0B;AAMM;AAE7C,2BAAgB,CAAC,mCAAD;AAChB,2BAAe;AAH8B;AAhStB;AA4BK,uDA5BL,mDA4BK;AAID;AA4NiB;AAAT;AAEnC,eAA+B,cAAC,QAAK,CAAC,MAAD,CAAN;AAFI;AAAS;AA5NjB;AAQT;;AACA,yEAAoB,U/CpjD/B,2B+CojD+B,EAAoB,YAExC,gCAFwC,CAAxC;AAEA;;;AAEhB;AACA;AACA;AACA;AACA;AACA;AACA;AARgB;;;;;;;AA2LiB;AAEnC,sBAAU;AACV,mBAAO;AACP,uBAAW;AACX,qBAAS;AALuG;AAA7E;AAQA;AAEnC,UAAG,cAAH,EACE,eADF;AAEU;AAJyB;AAOA;AAEnC,6BAAU,CAAC;;;;UAAD;AAFyB;AA1MjB;AAsBK,kDAtBL,8CAsBK;AAIb;AAmP2B;AAAnB;AAElB,eAAQ;AAFU;AAAmB;AAKK;AAAxB;AAElB,eAAQ;AAFU;AAAwB;AAKL;AAAnB;AAElB,eAAQ;AAFU;AAAmB;AAKN;AAE/B;AACE,YAAY,MAAM,WAAP,QAAX,EACE,MAAM,WAAW,CAAC,KAAK,MAAN,CADnB;AADF;AAIE,cAAO,eAAP,MAAO;AAJT;AAF+B;AAUC;AAAd;AAElB,eAAQ,0BAAmB,QAAC,YAAM,CAAC,KAAK,qBAAS,cAAc,UAA7B,CAAN;AAFV;AAAc;AAKK;AAAnB;AAElB,eAAQ,+BAAwB,QAAC,YAAM,CAAC,KAAK,SAAU,iCAAU,MAAM,OAAhC,CAAN;AAFf;AAAmB;AAKC;AAApB;AAElB,eAAQ,0BAAmB,QAAC,YAAM,CAAC,SAAS,MAAM,SAAhB,CAAN;AAFV;AAAoB;AAtR5B;;AA2BK,qDAAO,EAAP;AAAD,yBACZ,UAAW,SAAU,WAAY,UAAW,OAAQ,UAAW,QAC/D,WAAY,MAAO,OAAQ,OAAQ,WAAY,QAAS,WACxD,UAAW,OAAQ,OAAQ,UAAW,UAAW,aACjD,WAAY,cAAe,SAAU,YAAa,aAClD,WAAY,MAAO,QAAS,YAAa,UAAW,UAAW,UAC/D,UAAW,YAAa,YAAa,OAAQ,YAAa,SAC1D,gBAAiB,WAAY,eAAgB,cAC7C,WAAY,WAAY,OAAQ,WAAY,aAAc,SAAU,SACpE,kBAAmB,SAAU,QATjB;AAWM,0DAAO,EAAP,GAjpDT,iCAipDS;AAAD,8BACjB,KACA,kBACA,oBACA,mBACA,gBACA,mBACA,iBACA,KACA,KACA,gBACA,gBACA,oBACA,KACA,KACA,mBACA,gBACA,gBACA,mBACA,gBACA,gBACA,gBACA,gBACA,KACA,kBACA,KACA,oBACA,KACA,KACA,KACA,mBACA,gBACA,gBACA,mBACA,KACA,KACA,KACA,KACA,KACA,KACA,KACA,KACA,kBACA,KACA,KACA,KACA,KACA,KACA,KACA,KACA,KACA,KACA,IApDiB;AAsDR,qBAAG,cAAC,0BAAQ,4BAAU,2BAAnB;AACF,sBAAG,cAAC,0BAAQ,4BAAU,4BAAU,gCAAc,4BAC1C,8BAAY,kCAAgB,kCAD7B;AAuBM;AAGrB,UAAM,mBAAc,QAAC,YAAM,CAAC,GAAD,CAAN;AAHA;AAMA;AAGrB,QAAW,CAAC,IAAD,SAAO,IAAe,CAAV,IAAI,MAAM,KAAG,EAAH,CAAjC;AACE,YAAM,mBAAc,QAAC,aAAS,CAAC,UAAU,mBAAK,GAAJ,IAAI,OAAM,MAAX,CAAX,CAAT;AAErB,UAAA,kBAAa,CAAC,GAAD;AANM;AASG;AAGxB,UAAM,mBAAc,QAAC,aAAS,CAAC,IAAI,IAAL,CAAT;AAHG;AAMA;AAGxB,QAAY,IAAD,QAAX;AACE,YAAM,mBAAc,QAAC,aAAS,CAAC,mBAAM,CAAC,UAAU,mBAAK,GAAJ,IAAI,OAAM,MAAX,CAAX,EAA4B,IAAnC,CAAT;AAErB,UAAA,qBAAgB,CAAC,IAAK,IAAN;AANM;AASD;AAAhB;AAEP;AACA;AAEA,QAAG;AACH,mBAAqB,MAAD;AACpB,WAAQ,CAAD,CAAC,IAAE,YAAF,CAAgB,IAAc,CAAT,MAAM,QAAC,KAAD,CAAG,KAAE,GAAF,CAAtC,EAAoD,CAAJ,IAAG;AACnD,aAAQ,iBAAI,CAAC,eAAI,CAAC,OAAO,UAAI,CAAC,GAAC,SAAd,CAAL;AACZ,QAAK,CAAD,CAAC,IAAE,YAAF,CAAgB,IAAc,CAAT,MAAM,QAAC,KAAD,CAAG,KAAC,GAAD,CAAnC,EAAkD,CAAJ,IAAG,CAAjD;AACA,YAAK,CAAL;AAVO;AAAgB;AAj1DzB,mBA2yDc;AAwjBM,+BAAG;AA8+Fb,qBAAG;AACF,sBAAG;AACN,mBAAG;AACD,qBAAG;AACF,sBAAG;AACJ,qBAAG;AACJ,oBAAG;AACJ,mBAAG;AAi5Fe;AAEtB;AAFwC,OAI1C,KAJ0C,CAI1C,SAAG,CAAH;AACA;AACE,2BAAoB;AACpB,eAAM,CAAI,sBAAS,CAAC,CAAC,QAAC,WAAD,EAAI,CAAC,OAAI,SAAL,CAAN,CAAnB;AAEE,cAAG,WAA2B,IAAN,CAAJ,CAAC,QAAC,WAAD,CAAG,KAAC,IAAD,CAAT,IAAqB,CAAD,OAAC,GAAQ,CAAD,OAAP,CAApC;AATsC,aAUpC,KAVoC,CAUpC,SAAM,CAAN;AAEA,gBAZoC,CAYpC,KAZoC,CAYpC,SAAG,CAAH;;AAEJ,YAAG,CAAC,QAAC,WAAD,CAAG,KAAC,SAAR;AAdwC,WAgBtC,KAhBsC,CAgBtC,SAAG,CAAH;AACA,cAAQ,CAAJ,CAAC,QAAC,WAAD,CAAG,KAAC,SAAD,CAAY,IAAI,YAAxB;AAEE,+BAAoB;AAnBgB,aAoBpC,KApBoC,CAoBpC,SAAG,CAAH;WAHF;SAHF;OATF,QAkBM,iBAlBN;AALwB;AAqNL;AAAZ;AAGP,eAAU;AACJ,iBAAD,CAAC,QAAC,WAAD;AACN,WADM,IACN,aAAM,CADA,IACA,SAAN,IAAW,CADL,IACK,SAAX;AAEE,iBAAU;AAEV,8BAAgB,CAAC,EAAE,EAAG,CAAC,QAAC,WAAD,EAAK,YAAa,YAAzB;OAElB,UAPM,IAON;AAXqC,SAanC,KAbmC,CAanC,SAAG,CAAH;AACA,YAAG,CAAC,QAAC,WAAD,CAAG,KAAC,GAAR;AAEE,mBAAU;AACV;AAjBiC,aAkB/B,KAlB+B,CAkB/B,SAAG,CAAH;WADF,QAEe,CAAT,sBAAS,CAAC,CAAC,QAAC,WAAD,EAAI,CAAC,KAAK,KAAK,MAAX,CAAN,CAFf;AAGA,iBAAM,sBAAS,CAAC,CAAC,QAAC,WAAD,EAAI,CAAC,KAAK,IAAN,CAAN,CAAf,EApBiC,CAqB/B,KArB+B,CAqB/B,SAAG,CAAH;SAPJ;OAUF,UApBM,IAoBN;AAxBqC,SA0BnC,KA1BmC,CA0BnC,SAAG,CAAH;AACA,YAAG,CAAC,QAAC,WAAD,CAAG,KAAC,GAAR;AAEE,mBAAU;AA7BuB,WA8BjC,KA9BiC,CA8BjC,SAAG,CAAH;AACA,iBAAM,OAAC,IAAS,CAAD,OAAf;AAEE,gBAAG,CAAC,QAAC,WAAD,CAAG,KAAC,GAAR;AAjC+B,eAmC7B,KAnC6B,CAmC7B,SAAG,CAAH;AACA,kBAAG,CAAC,QAAC,WAAD,CAAG,KAAC,GAAR,EAAiB,KAAjB;aAGA,MAvC6B,CAuC7B,KAvC6B,CAuC7B,SAAG,CAAH;;AAEJ,cAAK,CAAD,OAAC,IAAS,CAAD,OAAR,CAAa,IAAS,CAAJ,CAAC,QAAC,WAAD,CAAG,KAAC,GAAD,CAA3B,EAzCiC,CA0C/B,KA1C+B,CA0C/B,SAAG,CAAH,CADF;SAdF;OAHF;AAxBO;AAAY;AAnpNP;AA3yDd,GA2yDc,oBA3yDd;ACCA,yBAMS,8CANT;;;;AAiBY;;AASE,sBAAG,cAAC,uBAAQ,wBAAS,2BAAY,6BAAc,wBAAS,sBACpD,sBAAO,uBAAQ,wBAAS,gCAAiB,kCACzC,0BAAW,uBAFZ;AAGF,uBAAG,cAAC,6BAAa,2BACb,kCAAkB,gCAClB,wBAAQ,0BAAW,sBAFpB;AA8pBG;AAyEA;AAnKJ;AA3jBK,+CA2jBL,2CA3jBK;AAET;;AAIS;;;AAClB;AACA;AACA;AACA;AACA;AACA;AAEA;AARkB;AA8wCsB;AAAd;AAE5B,eAAQ;AAFoB;AAAc;AAtCJ;AAGtC,YAAM,iBAAY,QAAC,YAAM,CAAC,GAAD,CAAN;AAHmB;AAnGA;AAEtC,qBAAS;AACT,qBAAgB,YAAD;AACf,wBAAY;AACZ,UAAG,YAAO,KAAC,CAAX;AAEE,oBAAM;AACN,qBAAO;;AAIP,oBAAM;AACN,qBAAO,YAAO,QAAC,CAAD;;AAEhB,oBAAQ;AAf8B;AAiNE;AAAZ;AAE5B;AACA;AACA;AAEA,UAAG;AACH,kBAAa;AACb,aAA2B,CAApB,CAAI,gBAAW,CAAC,CAAD,CAAK,IAAM,CAAD,CAAC,KAAE,WAAF,CAAN,CAAe,IAAc,CAAV,SAAU,IAAO,CAAF,CAAE,KAAE,GAAF,CAAP,CAAxD;AAEE,YAAI,CAAC,KAAC,GAAN,EACE,YAAa,IADf;AAEA,YAAI,CAAC,KAAC,GAAN,EACE,YAAa,KADf;AAGA,YAAI,CAAC,KAAE,GAAP;AACE,wBAAQ,WAAM,GAAC,CAAD;;AAGd,cAAG;AACH,iBAAM,CAAO,CAAF,cAAE,IAAG,cAAC,yBAAM,EAAP,CAAH,CAAb;AAEE,0BAAQ,WAAM,GAAC,CAAD;AACd,gBAAG;;AAEL,cAAI,CAAC,KAAE,GAAP,EACE,cAAS,CAAC,mBAAM,CAAC,iDAA2B,mBAAC,cAAD,CAA5B,CAAP,CADX;;AAGF,YAAG;;AAEL,UAAG,sBAAS,CAAC,WAAD;AACZ,UAAI,CAAC,KAAC,IAAN;AACE,iBAAQ;AACL,gBAAI,CAAC,KAAC,KAAN;AACH,iBAAQ;AACL,gBAAI,CAAC,KAAC,KAAN;AACH,iBAAQ;AACL,gBAAI,CAAC,KAAC,MAAN;AACH,iBAAQ;AACL,gBAAI,CAAC,KAAC,OAAN;AACH,iBAAQ;AACL,gBAAI,CAAC,KAAC,KAAN;AACH,iBAAQ;AACL,gBAAI,CAAC,KAAC,IAAN;AACH,iBAAQ;AACL,gBAAI,CAAC,KAAC,MAAN;AACH,iBAAQ;AACL,gBAAI,CAAC,KAAC,KAAN;AACH,iBAAQ;AACL,gBAAK,CAAD,CAAC,KAAC,MAAD,CAAS,IAAI,eAAlB;AACH,iBAAQ;AAER,qBAAQ;AApDkB;AAAY;AAnDJ;;AAAR;AAG5B;AACA;AACA;AACA;AAEmB;AAAV;AAEP,iBAAU,aAAO,CAAC,EAAG,KAAJ;AACjB,YAAI,CAAI,MAAR;AACO;AACH,cADG,IACH;AACE,qBAA0B,CAAP,CAAP,YAAO,KAAG,EAAH,CAAO,IAAc,CAAT,iBAAM,CAAC,CAAD,CAAG,KAAC,GAAD,CAAd,CAAqB,IACA,CAA5B,CAAP,YAAO,KAAG,EAAH,CAA4B,IAAd,CAAF,cAAE,IAAG,cAAC,GAAI,EAAL,CAAH,CAAP,IAA+B,CAAL,KAAK,KAAC,GAAD,CAAV,CADA;AAEjD,oBAJG,IAIH;AACE,qBAAa,CAAF,CAAE,KAAE,oBAAF,CAAkB,IAAW,CAAN,KAAM,KAAE,MAAF,CAAX;AACjC,oBANG,IAMH;AACE,qBAAa,CAAF,CAAE,KAAE,sBAAF,CAAoB,IAAW,CAAN,KAAM,KAAE,MAAF,CAAX;AACnC,oBARG,IAQH,gCACE,SAAa,CAAF,CAAE,KAAE,uBAAF,CAAqB,IAAW,CAAN,KAAM,KAAE,MAAF,CAD/C;SATJ;AAHO;AAAU;AAkBnB,UAAG;AACH,cAAS;AACT,aAAO,CAAE,KAAG,WAAZ;AAEE,YAAG,gBAAW,CAAC,CAAD,CAAd;AACO;AACH,cADG,IACH;AACE,gBAAG,CAAW,CAAN,kBAAM,IAAG,cAAC,GAAI,GAAI,EAAT,CAAH,CAAd,EAAqC,KAArC;AACF,qBAHG,IAGH,gCAAO,CAHJ,IAGI,8BAAP;AACE;AACF,oBALG,IAKH,gCACE,IAAI,KAAM,KAAG,MAAb,EAAsB,KADxB;SANJ;AASA,YAAG,CAAI,UAAU,CAAC,EAAG,KAAJ,CAAjB,EACE,cAAS,CAAC,mBAAM,CAAC,4CAAsB,mBAAC,GAAD,CAAvB,CAAP,CADX;AAEA,sBAAU,WAAM,GAAC,CAAD;AAChB,gBAAS,iBAAM,CAAC,CAAD;AACf,YAAG;;AAEL,sBAAG,CAAC,YAAO;;;;WAAE;;;;UAAV;AACH,UAAI,CAAC,KAAE,CAAP,EACE,cAAS,CAAC,mBAAM,CAAC,wCAAkB,mBAAC,cAAD,CAAnB,CAAP,CADX;AAEA,eAAQ;AAhDoB;AAAQ;AAtGG;AAAX;AAG5B;AACA;AAAE;AAGF,UAAG;AACH,oBAAQ;AACR,UAAG,cAAE,IAAG,cAAC,GAAI,EAAL,CAAH;AACL,UAAG;AACH,UAAG;AAEH,UAAG,CAAE,IAAO,CAAF,cAAE,IAAG,cAAC,GAAI,EAAL,CAAH,CAAZ;AAEE,sBAAQ,WAAM,GAAC,CAAD;AACd;AACA,YAAI,CAAC,KAAC,GAAN;AACE,mBAAQ;AACL,kBAAI,CAAC,KAAC,GAAN;AACH,mBAAQ;AAER,uBAAQ;;AAGL;AACH,YADG,IACH;AAAM,mBAAU;AAChB,kBAFG,IAEH;AAAM,mBAAU;AAChB,kBAHG,IAGH;AAAM,mBAAU;AAChB,kBAJG,IAIH;AAAM,mBAAU;AAChB,kBALG,IAKH;AAAM,mBAAU;AAChB,kBANG,IAMH;AAAM,mBAAU;AAChB,kBAPG,IAOH;AAAM,mBAAU;AAChB,kBARG,IAQH;AAAM,mBAAU;AAChB,kBATG,IASH;AAAM,mBAAU;AAChB,kBAVG,IAUH;AAAM,mBAAU;AAChB,kBAXG,IAWH;AAAM,mBAAU;;AAEhB,wBAAS,CAAC,mBAAM,CAAC,wCAAkB,mBAAC,GAAD,CAAnB,CAAP;;;AAtCe;AAAW;AAkDH;;AAAR;AAEJ;AAAf;AAGP,iBAAU,CAAD,CAAC,KAAC,WAAD,CAAQ,IACQ,CAAf,CAAD,CAAC,KAAC,kBAAD,CAAe,IAChB,CAAoB,CAAV,CAAJ,UAAI,GAAC,aAAD,CAAU,IAAoB,CAAf,aAAO,QAAK,CAAJ,UAAI,GAAC,CAAD,KAAL,CAAQ,KAAC,kBAAD,CAApB,CADJ,CADR;AAHX;AAAe;AAUxB;AAGA,oBAAU;AACV,UAAG;AACH,aAAM,CAAI,eAAe,CAAC,CAAD,CAAzB;AAEE,sBAAQ,WAAM,GAAC,CAAD;AACd,YAAG,CAAC,KAAC,kBAAL,EACE,cADF;AAEA,YAAG;;AAEL,UAAI,CAAC,KAAC,WAAN,EACE,cAAS,CAAC,gCAAD,CADX;AAEA,eAAU;AACV,wBAAY;AACZ;AA5B4B;AAAQ;AAxFD;AAAP;AAExB,eAAJ,IAAG;AACH,UAAG,SAAI,GAAQ,YAAD,OAAd;AACE,qBAAO;AAEP,yBAAO,YAAO,QAAC,aAAD;AAChB,eAAQ;AAPoB;AAAO;AA+BQ;AAG3C,aAAa,CAAN,uBAAM,IAAG,gBAAH,CAAe,IAAS,CAAJ,SAAI,IAAE,YAAF,CAArC,EACE;AAJyC;AApBJ;AAAX;AAE5B,eAAQ,cAAE,IAAG,oBAAH;AAFkB;AAAW;AAKJ;AAAP;AAE5B,eAAQ,cAAE,IAAG,gBAAH;AAFkB;AAAO;AAKA;AAAP;AAEvB;AACH,UADG,IACH;AAAW,iBAAU,cAAE,IAAG,YAAH;AACvB,gBAFG,IAEH;AAAW,iBAAU,cAAE,IAAG,eAAH;AACvB,gBAHG,IAGH;AAAW,iBAAU,cAAE,IAAG,iBAAH;AACvB,gBAJG,IAIH,gCAAW,SAAU,cAAE,IAAG,kBAA1B;AAN0B;AAAO;AAlDA;AAAP;AAE5B,eAAU,cAAE,IAAG,cAAI,KAAH,GAAK,GAAQ,KAAH,GAAK,GAAhB,CAAH;AAFgB;AAAO;AAKE;AAErC,qBAAQ,EAAR;AAFsC;AAAD;AA8QD;AAAR;AAG5B;AAGA,oBAAU;AACV;AACA,UAAG;AACH,UAAG,CAAC,KAAC,WAAL;AACE,iBAAQ;AACL,gBAAG,YAAO,CAAC,CAAD,CAAV;AACH,iBAAQ;AACL,gBAAI,CAAC,KAAC,kBAAN;AACH,iBAAQ;AACL,gBAAI,CAAC,KAAC,oBAAN;AACH,iBAAU,aAAQ,CAAC,sBAAD;AACf,gBAAI,CAAC,KAAC,sBAAN;AACH,iBAAU,aAAQ,CAAC,wBAAD;AACf,gBAAI,CAAC,KAAC,uBAAN;AACH,iBAAU,aAAQ,CAAC,yBAAD;AACf,gBAAG,YAAO,CAAC,EAAG,0BAAJ,CAAV;AACH,iBAAQ,aAAQ,CAAC,0BAAD;AACb,gBAAG,YAAO,CAAC,CAAD,CAAqC,IAA5B,CAAD,CAAC,KAAC,GAAD,CAAL,IAAgB,CAAD,CAAC,KAAC,GAAD,CAAL,IAAgB,CAAD,CAAC,KAAC,GAAD,CAAL,IAAgB,CAAD,CAAC,KAAC,GAAD,CAApD;AACH,iBAAQ;AAER,YAAA,cAAS,CAAC,mBAAM,CAAC,2CAAqB,mBAAC,YAAK,GAAN,CAAtB,CAAP;AACX,wBAAY;AA3BgB;AAAQ;AA74ChB;AAkCR;;AAED;;AACC,kCADD,mCACC;AAEO;AACjB;AACA;AAFiB;aACjB,kCACA;AAFiB;;AACjB;AACA;AAFiB;;;AACjB,6BAJS,yBAIT;AACA;AAFiB;AAIA,6CAJA,0CAIA;AACA,8CALA,yCAKA;AAIR;AA6wFsB;AAGjC;AACA;AAGA,UAAI,KAAK,KAAC,IAAV,EACE,sBAAgB,CAAC,uCAAD,CADlB;AAEA,UAAG,CAAoB,CAAf,KAAK,WAAU,IAAG,OAAH,CAAvB;AAEE,YAAG;AACH,aAAI,IAAM,GAAN,CAA2B,OAA3B,CAA2B,EAA/B,EACE,IAAG,CAAE,IAAG,OAAR;AAEE,cAAG,CAAC,KAAE,EAAN,EACE,IAAG,CAAC,GAAC,GADP;AAEA,cAAG,CAAC,GAAC,mBAAc,CAAC,CAAD,CAAf;SAJN;AAMF,gCAAgB,CAAC,uCAAiB,mBAAe,GAAd,mBAAc,CAAC,KAAK,WAAN,EAAiB,KAAO,GAAL,KAAK,WAAvC,CAAlB;OAVlB;AATiC;AAuBA;;AAKE;;AAUC;AAAX;AAEzB,eAAQ;AAFiB;AAAW;AALL;AAAZ;AAEnB,eAAQ;AAFW;AAAY;AAUH;AAAT;AAEnB,qBAAQ,mBAAR;AAFmB;AAAS;AAxzFjB;AAgBO,6CAhBP,iCAgBO;AAIA;;;AAEhB;AACA;AAHgB;;;;;;AA6gF2B;AAG7C;AAAG;AAIH,WAAI,UAAI;AACR,WAAI,WAAK;AACT,UAAI,EAAE,KAAE,EAAR,EACE,wBAAgB,CAAC,0CAAoB,mBAAe,GAAd,mBAAc,CAAC,EAAD,EAAmB,GAAd,mBAAc,CAAC,EAAD,EAAS,GAAJ,UAAI,YAAe,GAAL,WAAK,WAA1D,CAArB,CADlB;AAT6C;AAaV;AAEnC,mBAAO;AACP,oBAAQ;AAHwD;AAA7B;AAMA;AAEnC,6BAAU,CAAC;;;;UAAD;AACV,6BAAU,CAAC;;;;UAAD;AACA;AAJyB;AAOK;AAE9B;AACV,UAAY,UAAD,QAAX,EACE,UAAI,gBADN;AAEA,UAAY,WAAD,QAAX,EACE,WAAK,gBADP;AALwC;AASE;AAEhC;AACV,UAAY,UAAD,QAAX,EACE,UAAI,kBADN;AAEA,UAAY,WAAD,QAAX,EACE,WAAK,kBADP;AAL0C;AASJ;AAAZ;AAE1B,eAAkB;AAClB,UAAY,UAAD,QAAX,EACE,SAAQ,MAAO,IAAG,UAAI,eADxB;AAEA,UAAY,WAAD,QAAX,EACE,SAAQ,MAAO,IAAG,WAAK,eADzB;AAL0B;AAAY;AASN;AAEhC,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,wBAAgB,CAAC,wCAAkB,mBAAC,kBAAD,CAAnB,CADlB;AAEA,UAAG,CAAY,CAAC,WAAD,SAAf,EACE,wBAAgB,CAAC,yCAAmB,mBAAC,kBAAD,CAApB,CADlB;AAJgC;AAlkFd;AAgBK,kDAhBL,8CAgBK;AAKJ;AAksFc;AAEvB;AACV,wBAAa,CAAC,WAAK,cAAC,2BAAU,0BAAX,CAAN;AACb,wBAAa,CAAC,YAAM,cAAC,2BAAU,0BAAX,CAAP;AACb;AALiC;AAQE;AAAR;AAE3B,eAAQ,UAAI;AAFe;AAAQ;AA1sFhB;AAOE;AAwsFoB;AAAZ;AAG7B;AAGA,qBAAQ,UAAI,eAAZ;AACA,mBAAM,WAAK,eAAX;AACW,iBAAN,MAAM;AACT,UADS,IACT;AAAY,cAAM,SAAN,GAAwB,EAAC,MAAM,SAAP,UAAkB,IAAW,EAAC,IAAI,SAAL,UAAX;AACtD,gBAFS,IAET,iCAAY,MAAM,SAAN,GAA4C,QAAlB,UAAC,MAAM,SAAP,EAA+B,UAAC,IAAI,SAAL,CAAb,CAAxD;AAV2B;AAAY;AAcJ;AAAR;AAE7B,eAAQ,UAAI,WAAiB,GAAP,OAAD,GAAS,WAAK,WAAN;AAFA;AAAQ;AAttFhB;AASD;AA2wFoB;AAAZ;AAG5B;AAGA,qBAAQ,UAAI,eAAZ;AACA,mBAAM,WAAK,eAAX;AACW,iBAAN,MAAM;AACT,UADS,IACT;AAAY,cAAM,SAAN,GAAwB,EAAC,MAAM,SAAP,UAAkB,IAAU,EAAC,IAAI,SAAL,UAAV;AACtD,gBAFS,IAET,iCAAY,MAAM,SAAN,GAA4C,OAAlB,UAAC,MAAM,SAAP,EAA8B,UAAC,IAAI,SAAL,CAAZ,CAAxD;AAV0B;AAAY;AALJ;AAAR;AAE5B,eAAQ,UAAI,WAAgB,GAAN,MAAD,GAAQ,WAAK,WAAN;AAFA;AAAQ;AAtwFhB;AASC;AAuxFoB;AAAZ;AAG7B;AAGA,qBAAQ,UAAI,eAAZ;AACA,mBAAM,WAAK,eAAX;AACW,iBAAN,MAAM;AACT,UADS,IACT;AAAY,cAAM,SAAN,GAAwB,EAAC,MAAM,SAAP,UAAkB,GAAW,EAAC,IAAI,SAAL,UAAX;AACtD,gBAFS,IAET,iCAAY,MAAM,SAAN,GAA4C,QAAlB,UAAC,MAAM,SAAP,EAA+B,UAAC,IAAI,SAAL,CAAb,CAAxD;AAV2B;AAAY;AALJ;AAAR;AAE7B,eAAQ,UAAI,WAAiB,GAAP,OAAD,GAAS,WAAK,WAAN;AAFA;AAAQ;AAlxFhB;AASI;AAygGc;AAE7B;AACV;AAHuC;AAME;AAAR;AAEjC,eAAQ;AAFyB;AAAQ;AA/gGhB;AAKK,yDALL,qDAKK;AAKb;AAihGoB;AAAZ;AAGzB;AAGA,qBAAQ,UAAI,eAAZ;AACA,mBAAM,WAAK,eAAX;AACA,YAAM,SAAN,GAAiB,MAAM,SAAS,IAAC,IAAI,SAAL;AAChC,YAAM,WAAN,GAAmB;AATM;AAAY;AALJ;AAAR;AAEzB,eAAQ,UAAI,WAAe,GAAL,KAAD,GAAO,WAAK,WAAN;AAFF;AAAQ;AA5gGhB;AAWD;;;AAEd;AACA;AAHc;;;;;AAuhGN,qBAAG;AAHuB;AAAZ;AAMxB;AACA;AAIA,UAAS,KAAC,WAAK,YAAU,SAAhB;AACT,UAAS,CAAL,UAAK,KAAE,EAAF,CAAM,IAAM,CAAD,CAAC,KAAC,UAAD,CAArB;AACE,aAAI;;AAGJ,qBAAO;AACP,YAAa,CAAE,QAAQ,CAAW,IAAV,MAAU,CAAI,WAAW,GAAf,EAAoB,MAA/B;AACvB,YAAG,0BAAa,CAAC,EAAE,IAAI,OAAO,cAAC,4CAAD,CAAd;AAChB,YAAG,0BAAa,CAAC,EAAE,IAAI,MAAM,cAAC,4CAAD,CAAb;AAChB,YAAG,GAAK,GAAD,CAAD,GAAG,GAAD;AACR;AAEE,qBAAe,IAAV,MAAU,CAAI,EAAE,GAAN;AACf,eAAI;AAHN;AAKE,gBAAM,SAAN,GAAiB;AACjB;AANF;;AASF,YAAM,SAAN,GAAiB,EAAE,KAAK,CAAO,KAAC,UAAI,YAAU,SAAtB;AA9BA;AAAY;AAmCN;AAE9B,UAAG,UAAI,WAAS,KAAE,yBAAlB,EACE,wBAAgB,CAAC,6CAAuB,mBAAe,GAAd,mBAAc,CAAC,UAAI,WAAL,EAAoB,GAAJ,UAAI,WAAnC,CAAxB,CADlB;AAEA,UAAG,WAAK,WAAS,KAAE,yBAAnB,EACE,wBAAgB,CAAC,6CAAuB,mBAAe,GAAd,mBAAc,CAAC,WAAK,WAAN,EAAsB,GAAL,WAAK,WAArC,CAAxB,CADlB;AAEU;AANoB;AASE;AAAR;AAExB,eAAQ,UAAI,WAAkB,GAAR,QAAD,GAAU,WAAK,WAAN;AAFN;AAAQ;AAhkGhB;AAaG;AA+jGoB;AAAZ;AAE3B,qBAAkB,8CAAlB;AACA,YAAM,SAAN,GAAiB,CAAI,MAAM;AAHA;AAAY;AALJ;AAAR;AAE3B,eAAQ,UAAI,WAAgB,GAAN,MAAD,GAAQ,WAAK,WAAN;AAFD;AAAQ;AA1jGhB;AASC;AAypGR,uBAAE,cAAC,2BAAU,yBAAQ,4BAAW,4BAAW,yBAAzC;AAHoB;AAMlC,wBAAa,CAAC,WAAK,YAAN;AACb,wBAAa,CAAC,YAAM,YAAP;AACH;AARwB;AAtpGd;AAOA;AA6jGoB;AAAZ;AAE5B;AAGA,qBAAQ,UAAI,eAAZ;AACA,mBAAM,WAAK,eAAX;AACW,iBAAN,MAAM;AACT,UADS,IACT;AAAa,cAAM,SAAN,GAA0B,UAAC,MAAM,SAAP,CAAiB,GAAU,UAAC,IAAI,SAAL,CAAV;AACxD,gBAFS,IAET;AAAa,cAAM,SAAN,GAA2B,cAAC,MAAM,SAAP,CAAiB,GAAW,cAAC,IAAI,SAAL,CAAX;AACzD,gBAHS,IAGT;AAAa,cAAM,SAAN,GAAyB,UAAC,MAAM,iBAAP,CAAiB,GAAS,UAAC,IAAI,iBAAL,CAAT;AACvD,gBAJS,IAIT;AAAa,cAAM,SAAN,GAA0B,cAAC,MAAM,SAAP,CAAiB,GAAU,cAAC,IAAI,SAAL,CAAV;AACxD,gBALS,IAKT,gCAAa,MAAM,SAAN,GAAuB,MAAC,MAAM,SAAP,CAAiB,GAAO,MAAC,IAAI,SAAL,CAA5D;AAEF,YAAM,WAAN,GAAmB;AAdS;AAAY;AALJ;AAAR;AAE5B,eAAQ,UAAI,WAAe,GAAL,KAAD,GAAO,WAAK,WAAN;AAFC;AAAQ;AAxjGhB;AASG;AA4kGoB;AAAZ;AAG/B;AAGA,qBAAQ,UAAI,eAAZ;AACA,mBAAM,WAAK,eAAX;AACW,iBAAN,MAAM;AACT,UADS,IACT;AAAsB,oBAAL,WAAK;AACR,YADQ,KACR;AAAY,gBAAM,SAAN,GAA0B,UAAC,MAAM,SAAP,CAAiB,GAAU,UAAC,IAAI,SAAL,CAAV;AACvD,kBAFQ,KAER;AAAU,gBAAM,SAAN,GAA0B,UAAC,MAAM,SAAP,CAAiB,GAAW,cAAC,IAAI,SAAL,CAAX;AACrD,kBAHQ,KAGR,kCAAa,MAAM,SAAN,GAA2C,CAAjB,UAAC,MAAM,SAAP,CAAiB,YAAS,UAAC,IAAI,iBAAL,CAAjE;OAEd,UANS,IAMT;AAAsB,oBAAL,WAAK;AACR,YADQ,KACR;AAAY,gBAAM,SAAN,GAA2B,cAAC,MAAM,SAAP,CAAiB,GAAU,UAAC,IAAI,SAAL,CAAV;AACxD,kBAFQ,KAER;AAAU,gBAAM,SAAN,GAA2B,cAAC,MAAM,SAAP,CAAiB,GAAW,cAAC,IAAI,SAAL,CAAX;AACtD,kBAHQ,KAGR,kCAAa,MAAM,SAAN,GAA4C,CAAjB,cAAC,MAAM,SAAP,CAAiB,YAAS,UAAC,IAAI,iBAAL,CAAlE;OAEd,UAXS,IAWT;AAAyB,oBAAL,WAAK;AACX,YADW,KACX;AAAY,gBAAM,SAAN,GAAyB,UAAC,MAAM,iBAAP,CAAiB,IAAU,UAAC,IAAI,SAAL,CAAV;AACtD,kBAFW,KAEX;AAAU,gBAAM,SAAN,GAAyB,UAAC,MAAM,iBAAP,CAAiB,IAAW,cAAC,IAAI,SAAL,CAAX;AACpD,kBAHW,KAGX,kCAAa,MAAM,SAAN,GAAyB,UAAC,MAAM,iBAAP,CAAiB,GAAS,UAAC,IAAI,iBAAL,CAAhE;OAEd,UAhBS,IAgBT;AAAa,cAAM,SAAN,GAA0B,cAAC,MAAM,SAAP,CAAiB,GAAU,cAAC,IAAI,SAAL,CAAV;AACxD,gBAjBS,IAiBT,gCAAa,MAAM,SAAN,GAAuB,MAAC,MAAM,SAAP,CAAiB,GAAO,MAAC,IAAI,SAAL,CAA5D;AAEF,YAAM,WAAN,GAAmB;AA3BY;AAAY;AALJ;AAAR;AAE/B,eAAQ,UAAI,WAAe,GAAL,KAAD,GAAO,WAAK,WAAN;AAFI;AAAQ;AAvkGhB;AASE;AAqnGoB;AAAZ;AAEjC,qBAAkB,oDAAlB;AACA,YAAM,SAAN,GAAiB,CAAI,MAAM;AAHM;AAAY;AALJ;AAAR;AAEjC,eAAQ,UAAI,WAAgB,GAAN,MAAD,GAAQ,WAAK,WAAN;AAFK;AAAQ;AAhnGhB;AAUG;AA8lGoB;AAAZ;AAEpC,qBAAkB,iDAAlB;AACA,YAAM,SAAN,GAAiB,CAAI,MAAM;AAHS;AAAY;AALJ;AAAR;AAEpC,eAAQ,UAAI,WAAgB,GAAN,MAAD,GAAQ,WAAK,WAAN;AAFQ;AAAQ;AAzlGhB;AAShB;;;AAEV;AAFU;;;;;AA8uFoB;AAAZ;AAGpB,qBAAQ,eAAU,eAAlB;AACA,UAAU,EAAC,MAAM,SAAP,UAAV;AACE,uBAAQ,UAAI,eAAZ;AAEA,2BAAQ,WAAK,eAAb;AAPkB;AAAY;AAUN;AAEhB;AACV,UAAI,eAAS,WAAS,KAAE,0BAAxB,EACE,wBAAgB,CAAC,yCAAmB,mBAAU,GAAT,eAAS,WAAV,CAApB,CADlB;AAEA;AAL0B;AAQQ;AAExB;AACV,UAAY,eAAD,QAAX,EACE,eAAU,gBADZ;AAHkC;AAOE;AAE1B;AACV,UAAY,eAAD,QAAX,EACE,eAAU,kBADZ;AAHoC;AAOJ;AAAZ;AAEpB,eAAkB;AAClB,UAAY,eAAD,QAAX,EACE,SAAQ,MAAO,IAAG,eAAS,eAD7B;AAHoB;AAAY;AAOJ;AAAR;AAEpB,eAAQ,UAAI;AAFQ;AAAQ;AAnDC;AAEb,iDAAC,MAAM,MAAP;AAChB,wBAAY;AAH0D;AAAzC;AAMA;AAE7B,6BAAU,CAAC;;;;UAAD;AACA;AAHmB;AAkDD;AAAR;AAEpB,eAAQ,mBAAM,CAAC,mBAAmB,mBAAU,GAAT,eAAS,YAAc,GAAJ,UAAI,YAAe,GAAL,WAAK,WAAvC,CAApB;AAFM;AAAQ;AA1xFhB;AAmBE;;;AAEZ;AACA;AAHY;;;;;;AA8wFoB;AAAZ;AAGtB;AAAE;AACF;AACA;AAAG;AAGH,iBAAI,UAAK,CAAC,CAAD,CAAG,eAAZ;AACA,UAAS,WAAC,UAAD;AACT,UAAG;AACH,UAAG;AACH,aAAO,CAAI,CAAG,IAAM,CAAD,CAAC,GAAC,CAAD,CAApB;AAEE,uBAAQ,UAAK,CAAC,CAAD,CAAG,eAAhB;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAAa,cAAG,EAAE,SAAS,IAAC,EAAE,SAAH;AAC3B,kBAFK,IAEL;AAAa,cAAG,EAAE,SAAS,IAAC,EAAE,SAAH;AAC3B,kBAHK,IAGL;AAAa,cAAG,EAAE,SAAS,IAAC,EAAE,SAAH;AAC3B,kBAJK,IAIL;AAAa,cAAG,EAAE,SAAS,IAAC,EAAE,SAAH;AAC3B,kBALK,IAKL;AAAa,cAAG,EAAE,SAAS,IAAC,EAAE,SAAH;AAC3B,kBANK,IAML,gCAAa,IAAG,EAAE,SAAS,IAAC,EAAE,SAA9B;AAEF,YAAG,CAAI,CAAP,EACM,CAAJ,IAAM,CADR;;AAIF,YAAM,WAAN,GAAmB,UAAK,CAAC,CAAD,CAAG;AAC3B,UAAG,CAAH;AACE,uBAAQ,UAAK,CAAC,CAAC,GAAC,CAAH,CAAK,eAAlB;AACG,gBAAO,CAAF,CAAE,GAAI,CAAJ,CAAM,KAAC,CAAd,EACH,eAAQ,UAAK,CAAC,CAAD,CAAG,eAAhB,CADG;AA9BiB;AAAY;AAkCN;AAG5B;AAAE;AACF;AACA;AAGA,UAAU,WAAC,UAAD,CAAO,GAAC,CAAlB,EACE,sBAAgB,CAAC,oCAAD,CADlB;AAEA,UAAmB,CAAR,WAAC,UAAD,CAAQ,GAAI,CAAJ,CAAM,KAAC,CAA1B,EACE,sBAAgB,CAAC,uCAAD,CADlB;AAEA,UAAG,UAAK,CAAC,CAAD,CAAG;AACX,UAAG,UAAK,CAAC,CAAD,CAAG;AACX,eAAO,QAAkB,OAAP,WAAC,UAAD,CAAO,GAAC,CAAD,kBAAzB;AAAI;AAEF,YAAG,UAAK,CAAC,CAAD;AAER,YAAO,CAAF,CAAE,GAAI,CAAJ,CAAM,KAAC,CAAd;AAEE,cAAG,CAAU,uBAAH,eAAF,CAAE,CAAV,EACE,wBAAgB,CAAC,6CAAuB,mBAAG,YAAF,CAAE,GAAI,CAAJ,EAAO,GAAD,CAAC,WAAV,CAAxB,CADlB;AAEA,cAAI,CAAC,WAAS,KAAE,CAAhB,EACE,wBAAgB,CAAC,wCAAkB,mBAAG,YAAF,CAAE,GAAI,CAAJ,EAAO,GAAD,CAAC,YAAwB,GAAd,mBAAc,CAAC,CAAD,EAAkB,GAAd,mBAAc,CAAC,CAAC,WAAF,CAApD,CAAnB,CADlB;;AAKA,cAAI,CAAC,WAAS,KAAE,CAAhB,EACE,wBAAgB,CAAC,wCAAkB,mBAAM,YAAH,CAAD,CAAC,GAAC,CAAD,CAAG,GAAI,CAAJ,EAAO,GAAD,CAAC,YAAwB,GAAd,mBAAc,CAAC,CAAD,EAAkB,GAAd,mBAAc,CAAC,CAAC,WAAF,CAAvD,CAAnB,CADlB;;;AA3BwB;AAiCQ;AAGpC;AAGU;AACV,UAAY,eAAD,QAAX,EACE,eAAU,gBADZ;AAEA,eAAO,QAAkB,OAAP,WAAC,UAAD,CAAO,GAAC,CAAD,kBAAzB;AAAI;AACF,kBAAK,CAAC,CAAD,CAAG;;AAV0B;AAaE;AAEtC;AAEU;AACV,UAAY,eAAD,QAAX,EACE,eAAU,kBADZ;AAEA,eAAO,QAAkB,OAAP,WAAC,UAAD,CAAO,GAAC,CAAD,kBAAzB;AAAI;AACF,kBAAK,CAAC,CAAD,CAAG;;AAR4B;AAWH;AAAZ;AAGvB;AAAE;AAEF,eAAkB;AAClB,UAAS,WAAC,UAAD;AACT,UAAG;AACH,aAAO,CAAI,MAAQ,IAAM,CAAD,CAAC,GAAC,CAAD,CAAzB;AAEE,iBAAQ,MAAO,IAAG,UAAK,CAAC,CAAD,CAAG,eAAX;AACX,SAAJ,IAAG;;AAXkB;AAAY;AAeL;AAAR;AAEtB,eAAQ,UAAK,CAAC,CAAD,CAAG;AAFM;AAAQ;AAKC;AAE/B,mBAAO;AAFmD;AAA3B;AAKA;AAG/B;AAGA,eAAO,QAAkB,OAAP,WAAC,UAAD,CAAO,GAAC,CAAD,kBAAzB;AAAI;AACF,+BAAU,CAAM,CAAC,MAAN,eAAK;;;;YAAN;;AACF;AARqB;AAWD;AAAR;AAGtB;AAGA,eAAQ;AACR,eAAO,QAAkB,OAAP,WAAC,UAAD,CAAO,GAAC,CAAD,kBAAzB;AAAI;AAEF,YAAI,MAAM,KAAE,EAAZ,EACE,SAAQ,MAAM,GAAC,IADjB;AAEA,iBAAQ,MAAM,GAAC,UAAK,CAAC,CAAD,CAAG,WAAT;;AAEhB,eAAQ,OAAc,GAAN,MAAD,GAAQ,GAAD;AAbA;AAAQ;AA74FhB;AAoBA;AAmlGF,uBAAE,cAAC,2BAAU,yBAAQ,4BAAW,4BAAW,yBAAzC;AAHc;AAMlB;AACV,wBAAa,CAAC,WAAK,YAAN;AACb,wBAAa,CAAC,YAAM,YAAP;AACb;AAT4B;AAYE;AAAR;AAEtB,eAAQ,UAAI;AAFU;AAAQ;AA5lGhB;AAQC;AAgmGoB;AAAZ;AAGvB;AAGA,qBAAQ,UAAI,eAAZ;AACA,mBAAM,WAAK,eAAX;AACW,iBAAN,MAAM;AACT,UADS,IACT;AAAa,cAAM,SAAN,GAA0B,UAAC,MAAM,SAAP,CAAiB,GAAU,UAAC,IAAI,SAAL,CAAV;AACxD,gBAFS,IAET;AAAa,cAAM,SAAN,GAAuB,EAAiB,GAAhB,MAAM,SAAP,GAAwB,MAAC,IAAI,SAAL,CAAP;AACrD,gBAHS,IAGT;AAAa,cAAM,SAAN,GAA0B,cAAC,MAAM,SAAP,CAAiB,GAAU,cAAC,IAAI,SAAL,CAAV;AACxD,gBAJS,IAIT;AAAa,cAAM,SAAN,GAA2B,cAAC,MAAM,SAAP,CAAiB,GAAW,cAAC,IAAI,SAAL,CAAX;AACzD,gBALS,IAKT,kCAAa,MAAM,SAAN,GAA0C,CAAjB,UAAC,MAAM,iBAAP,CAAiB,GAAS,UAAC,IAAI,iBAAL,CAAT,CAA1C,QAAb;AAEF,YAAM,WAAN,GAAmB;AAfI;AAAY;AALJ;AAAR;AAEvB,eAAQ,UAAI,WAAe,GAAL,KAAD,GAAO,WAAK,WAAN;AAFJ;AAAQ;AA3lGhB;AASK;AA8mGR,yBAAE,cAAC,2BAAU,yBAAQ,4BAAW,2BAA9B;AAHoB;AAMlC,wBAAa,CAAC,WAAK,cAAN;AACb,wBAAa,CAAC,YAAM,cAAP;AACH;AARwB;AAgBM;AAAZ;AAG5B;AAGA,qBAAQ,UAAI,eAAZ;AACA,mBAAM,WAAK,eAAX;AACW,iBAAN,MAAM;AACT,UADS,IACT;AAAa,cAAM,SAAN,GAA0B,UAAC,MAAM,SAAP,CAAiB,GAAU,UAAC,IAAI,SAAL,CAAV;AACxD,gBAFS,IAET;AAAa,cAAM,SAAN,GAA0B,cAAC,MAAM,SAAP,CAAiB,GAAU,cAAC,IAAI,SAAL,CAAV;AACxD,gBAHS,IAGT;AAAa,cAAM,SAAN,GAA2B,cAAC,MAAM,SAAP,CAAiB,GAAW,cAAC,IAAI,SAAL,CAAX;AACzD,gBAJS,IAIT,kCAAa,MAAM,SAAN,GAA0C,CAAjB,UAAC,MAAM,iBAAP,CAAiB,GAAS,UAAC,IAAI,iBAAL,CAAT,CAA1C,QAAb;AAZ0B;AAAY;AALJ;AAAR;AAE5B,eAAQ,UAAI,WAAe,GAAL,KAAD,GAAO,WAAK,WAAN;AAFC;AAAQ;AAtnGhB;AASA;AAuoGR,yBAAE,cAAC,2BAAU,4BAAW,wBAAtB;AAHoB;AAMlC,wBAAa,CAAC,WAAK,cAAN;AACb,wBAAa,CAAC,YAAM,cAAP;AACb;AARkC;AAWE;AAAR;AAE5B,eAAQ,UAAI,WAAe,GAAL,KAAD,GAAO,WAAK,WAAN;AAFC;AAAQ;AAKI;AAAZ;AAE5B;AAGA,qBAAQ,UAAI,eAAZ;AACA,mBAAM,WAAK,eAAX;AACW,iBAAN,MAAM;AACT,UADS,IACT;AAAa,cAAM,SAAN,GAA0B,UAAC,MAAM,SAAP,CAAiB,GAAU,UAAC,IAAI,SAAL,CAAV;AACxD,gBAFS,IAET;AAAa,cAAM,SAAN,GAA2B,cAAC,MAAM,SAAP,CAAiB,GAAW,cAAC,IAAI,SAAL,CAAX;AACzD,gBAHS,IAGT,kCAAa,MAAM,SAAN,GAA0C,EAAjB,UAAC,MAAM,iBAAP,CAAiB,GAAS,UAAC,IAAI,iBAAL,CAAT,UAA1C,QAAb;AAV0B;AAAY;AAppGpB;AASF;AA6pGN,yBAAE,cAAC,2BAAU,4BAAW,wBAAtB;AAFkB;AAKhC,wBAAa,CAAC,WAAK,cAAN;AACb,wBAAa,CAAC,YAAM,cAAP;AACH;AAPsB;AAUE;AAAR;AAE1B,eAAQ,UAAI,WAAe,GAAL,KAAD,GAAO,WAAK,WAAN;AAFD;AAAQ;AAKA;AAAR;AAG1B,UAAiB,CAAb,UAAI,WAAS,KAAC,2BAAD,CAAa,IAAmB,CAAd,WAAK,WAAS,KAAC,2BAAD,CAAjD;AACE,iBAAQ;AAER,qBAAQ;AANgB;AAAQ;AASI;AAAZ;AAG1B;AAGA,qBAAQ,UAAI,eAAZ;AACA,mBAAM,WAAK,eAAX;AACW,iBAAN,MAAM;AACT,UADS,IACT;AAAa,cAAM,SAAN,GAA0B,UAAC,MAAM,SAAP,CAAiB,GAAU,UAAC,IAAI,SAAL,CAAV;AACxD,gBAFS,IAET;AAAa,cAAM,SAAN,GAA2B,cAAC,MAAM,SAAP,CAAiB,GAAW,cAAC,IAAI,SAAL,CAAX;AACzD,gBAHS,IAGT,kCACI,IAAG,eAAQ,KAAC,2BAAZ;AACE,cAAM,SAAN,GAA0C,WAAjB,UAAC,MAAM,iBAAP,CAAiB,GAAS,UAAC,IAAI,iBAAL,CAAT,UAA1C;AAEA,YAAA,MAAM,SAAN,GAA2B,cAAC,MAAM,SAAP,CAAiB,GAAW,cAAC,IAAI,SAAL,CAJ7D;AAMF,YAAM,WAAN,GAAmB;AAjBO;AAAY;AAnrGpB;AAUA;AAynBc;AAEhC,wBAAa,CAAC,WAAK,cAAC,0BAAD,CAAN;AACb,wBAAa,CAAC,YAAM,cAAC,0BAAD,CAAP;AACH;AAJsB;AAOE;AAAR;AAE1B,eAAQ,UAAI,WAAiB,GAAP,OAAD,GAAS,WAAK,WAAN;AAFH;AAAQ;AAKA;AAAR;AAE1B,eAAQ;AAFkB;AAAQ;AAKI;AAAZ;AAG1B;AAGA,qBAAQ,UAAI,eAAZ;AACA,mBAAM,WAAK,eAAX;AACA,YAAM,SAAN,GAA0B,UAAC,MAAM,SAAP,CAAkB,GAAa,UAAC,IAAI,SAAL,CAAb;AAC5C,YAAM,WAAN,GAAmB;AATO;AAAY;AA1oBpB;AAUD;AAurGL,yBAAG,cAAC,2BAAW,4BAAY,wBAAxB;AAFgB;AAI/B,wBAAa,CAAC,WAAM,cAAP;AACb,wBAAa,CAAC,YAAO,cAAR;AALkB;AAQE;AAAR;AAEzB,eAAU,UAAI,WAAgB,GAAJ,GAAF,GAAQ,WAAK,WAAP;AAFL;AAAQ;AAKA;AAAR;AAEzB,eAAU;AAFe;AAAQ;AAwBI;AAAZ;AAEzB;AAEA,qBAAQ,UAAI,eAAZ;AACA,mBAAM,WAAK,eAAX;AACA,YAAM,SAAN,GAAmB,WAAK,CAAC,eAAU,CAAC,uCAAD,EAAU,eAAU,CAAC,qCAAD,CAA/B;AACxB,YAAM,WAAN,GAAqB;AAPI;AAAY;AA1tGpB;AAWD;;;AAEd;AAFc;;;;;AAq1EiB;AAEjC,sBAAU;AAF+C;AAAxB;AAKA;AAEjC,6BAAU,CAAC;;;;UAAD;AACA;AAHuB;AAMK;AAE5B;AACV,UAAY,aAAD,QAAX,EACE,aAAQ,gBADV;AAHsC;AAQE;AAE9B;AACV,UAAY,aAAD,QAAX,EACE,aAAQ,kBADV;AAHwC;AAOJ;AAAZ;AAExB,eAAkB;AAClB,UAAY,aAAD,QAAX,EACE,SAAQ,MAAO,IAAG,aAAQ,eAD5B;AAHwB;AAAY;AAON;AAE9B,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,wBAAgB,CAAC,oCAAc,mBAAK,GAAJ,IAAI,WAAL,CAAf,CADlB;AAF8B;AAt3Ed;AAeF;AA4sGgB;AAAR;AAEtB,eAAQ,aAAO;AAFO;AAAQ;AA5sGhB;AAMJ;AAykFc;AAExB,UAAG,CAAsB,CAAjB,aAAO,WAAU,IAAG,cAAC,2BAAU,0BAAX,CAAH,CAAzB,EACE,wBAAgB,CAAC,yCAAmB,mBAAe,GAAd,mBAAc,CAAC,aAAO,WAAR,EAA0B,GAAP,aAAO,WAAzC,CAApB,CADlB;AAFwB;AAME;AAAR;AAElB,eAAQ,aAAO;AAFG;AAAQ;AAKI;AAAZ;AAElB,qBAAQ,aAAO,eAAf;AACW,iBAAN,MAAM;AACT,UADS,IACT;AAAY,cAAM,SAAN,GAAiB,CAAI,MAAM;AACvC,gBAFS,IAET,iCAAY,MAAM,SAAN,GAAiB,CAAI,MAAM,SAAvC;AALgB;AAAY;AASJ;AAAR;AAElB,eAAQ,MAAM,GAAC,aAAO,WAAR;AAFI;AAAQ;AA7lFhB;AAQK;AAqsGc;AAEnB;AACV,wBAAa,CAAC,cAAQ,cAAC,0BAAD,CAAT;AAHgB;AArsGd;AAOA;AAosGgB;AAAR;AAEvB,eAAQ;AAFe;AAAQ;AAKI;AAAZ;AAEvB,qBAAQ,aAAO,eAAf;AACA,YAAM,SAAN,GAAiB,MAAM;AACvB,YAAM,WAAN,GAAmB;AAJI;AAAY;AAzsGpB;AAQG;AA0iBgB;AAAR;AAE1B,eAAQ;AAFkB;AAAQ;AAKI;AAAZ;AAE1B,qBAAQ,aAAO,eAAf;AACA,YAAM,SAAN,GAAiB,MAAM;AACvB,YAAM,WAAN,GAAmB;AAJO;AAAY;AA/iBpB;AAQA;AAmsGgB;AAAR;AAE1B,eAAQ;AAFkB;AAAQ;AAKI;AAAZ;AAE1B,qBAAQ,aAAO,eAAf;AACA,YAAM,WAAN,GAAmB;AAHO;AAAY;AAxsGpB;AAQE;AAwsGc;AAExB;AACV,wBAAa,CAAC,cAAQ,cAAC,wBAAD,CAAT;AAHqB;AAME;AAAR;AAE5B,eAAQ;AAFoB;AAAQ;AAKI;AAAZ;AAE5B,qBAAQ,aAAO,eAAf;AACA,YAAM,WAAN,GAAmB;AAHS;AAAY;AAntGpB;AASA;AA8fc;AAElC,wBAAa,CAAC,cAAQ,cAAC,wBAAD,CAAT;AAFqB;AAKE;AAAR;AAE5B,eAAQ;AAFoB;AAAQ;AAKI;AAAZ;AAE5B,qBAAQ,aAAO,eAAf;AACA,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,MAAM;AAJK;AAAY;AAxgBpB;AASG;AAysGc;AAG3B;AACV,wBAAa,CAAC,cAAQ,cAAC,2BAAD,CAAT;AAJwB;AAOE;AAAR;AAE/B,eAAQ;AAFuB;AAAQ;AAKI;AAAZ;AAG/B;AAEA,gBAAG,aAAO,eAAV;AACA,YAAM,SAAN,GAAyB,UAAC,CAAC,iBAAF,CAAzB;AACA,YAAM,WAAN,GAAmB;AAPY;AAAY;AArtGpB;AASH;AAwtGc;AAExB;AACV,wBAAa,CAAC,cAAQ,cAAC,2BAAD,CAAT;AAHqB;AAME;AAAR;AAE5B,eAAQ;AAFoB;AAAQ;AAKI;AAAZ;AAG5B,qBAAQ,aAAO,eAAf;AACA,YAAM,SAAN,GAAyB,UAAC,MAAM,iBAAP,CAAzB;AACA,YAAM,WAAN,GAAmB;AALS;AAAY;AAnuGpB;AAUF;AAk2Ec;AAEhC;AACA,UAAG,CAAsB,CAAjB,aAAO,WAAU,IAAG,cAAC,2BAAU,yBAAQ,2BAAnB,CAAH,CAAzB,EACE,wBAAgB,CAAC,qCAAe,mBAAe,GAAd,mBAAc,CAAC,aAAO,WAAR,EAA0B,GAAP,aAAO,WAAzC,CAAhB,CADlB;AAHgC;AAOE;AAAR;AAE1B,eAAQ,aAAO;AAFW;AAAQ;AAKI;AAAZ;AAE1B,qBAAQ,aAAO,eAAf;AACW,iBAAN,MAAM;AACT,UADS,IACT;AAAY,cAAM,SAAN,GAAiB,CAAU,UAAC,MAAM,SAAP;AACvC,gBAFS,IAET;AAAU,cAAM,SAAN,GAAiB,CAAW,cAAC,MAAM,SAAP;AACtC,gBAHS,IAGT,kCAAa,MAAM,SAAN,GAAiB,CAAS,UAAC,MAAM,iBAAP,CAA1B,QAAb;AANwB;AAAY;AAUJ;AAAR;AAE1B,eAAQ,GAAG,GAAC,qBAAQ,CAAC,aAAO,WAAR,CAAT;AAFe;AAAQ;AAx3EhB;AAUA;;;AAEhB;AAFgB;;;;;AAmxEuB;AAEzC,iBAAM,WAAN,GAAmB;AACnB,iBAAM,SAAN,GAAiB;AAHyC;AAAjB;AAMC;AAE1C,iBAAM,WAAN,GAAmB;AACnB,iBAAM,SAAN,GAAiB;AAH6C;AAApB;AAMC;AAE3C,iBAAM,WAAN,GAAmB;AACnB,iBAAM,SAAN,GAAiB;AAH8C;AAApB;AAMH;AAE9B;AACV,iBAAM,WAAN,GAAmB;AACnB,iBAAM,SAAN,GAAiB;AAJ4C;AAArB;AAcE;AAE1C,iBAAM,WAAN,GAAmB;AACnB,iBAAM,SAAN,GAAiB;AAH2C;AAAlB;AAPC;AAEjC;AACV,iBAAM,WAAN,GAAmB;AACnB,iBAAM,SAAN,GAAiB,MAAjB;AAJ8D;AAAnB;AAaX;;AAKE;AAAR;AAE1B,eAAQ,WAAM;AAFY;AAAQ;AAKI;AAAZ;AAE1B,qBAAQ,WAAR;AAF0B;AAAY;AAKJ;AAAR;AAGrB;AACH,UADG,IACH;AAAY,iBAAQ,GAA4B,GAAjB,MAAC,WAAM,SAAP,CAAP,GAAyB,GAAD;AAChD,gBAFG,IAEH;AAAY,iBAAQ,qBAAQ,CAAU,UAAC,WAAM,SAAP,CAAV;AAC5B,gBAHG,IAGH;AAAa,iBAAQ,GAAsD,GAAjD,2BAAc,CAAC,OAAgB,cAAC,WAAM,SAAP,CAAjB,CAAf,GAAmD,GAAD;AAC3E,gBAJG,IAIH;AAAY,YAAU,EAAC,WAAM,SAAP,UAAV;AAAiC,mBAAQ;AAAY,uBAAQ;AACzE,gBALG,IAKH;AAA0C,cAA7B,GAAW,6BAAC,WAAM,SAAP;AACxB,gBANG,IAMH,kCAA2C,MAA3B,GAAS,yBAAC,WAAM,iBAAP,UAAzB;AATwB;AAAQ;AAx0EhB;AAmBH;;AACK,8EAAoC,QA9YrC,kCA8YqC,EAApC,EAnZD,iCAmZC;AACA,8EAAqC,sBAArC,EApZD,iCAoZC;AAIA;;;AAElB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATkB;;;;;;;;AA0/DoB;AAAZ;AAE5B,0BAAe,CAAC,0BAAD;AACf;AACA,eAAe,EAAC,WAAM,SAAP;AAJa;AAAY;AAOC;AAAb;AAE5B,0BAAe,CAAC,2BAAD;AACf;AACA,eAAiB,cAAC,WAAM,SAAP;AAJW;AAAa;AArBH;AAAV;AAE5B,0BAAe,CAAC,wBAAD;AACf;AACA,eAAkB,cAAC,WAAM,SAAP;AAJU;AAAU;AAOG;AAAb;AAE5B,0BAAe,CAAC,2BAAD;AACf;AACA,eAAgB,UAAC,WAAM,iBAAP;AAJY;AAAa;AAqBD;AAAZ;AAE5B,0BAAe,CAAC,0BAAD;AACf;AACA,eAAiB,UAAC,WAAM,SAAP;AAJW;AAAY;AAOD;AAAX;AAE5B,0BAAe,CAAC,yBAAD;AACf;AACA,eAAc,KAAC,WAAM,SAAP;AAJc;AAAW;AAxCE;AAAb;AAE5B,eAAQ,WAAM;AAFc;AAAa;AArDL;AAAR;AAEjB,iBAAN,WAAM;AACT,UADS,IACT;AAAa,YAAG,WAAM,SAAT;AACE,mBAAQ;AAER,uBAAQ;AACvB,gBALS,IAKT;AAAa,iBAAQ,qBAAQ,CAAU,UAAC,WAAM,SAAP,CAAV;AAC7B,gBANS,IAMT;AAAa,iBAAQ,uBAAU,CAAW,cAAC,WAAM,SAAP,CAAX;AAC/B,gBAPS,IAOT;AAAa,iBAAQ,sBAAS,CAAS,UAAC,WAAM,iBAAP,CAAT;AAC9B,gBARS,IAQT;AAAa,iBAAQ,2BAAc,CAAC,OAAiB,cAAC,WAAM,SAAP,CAAlB;AACnC,gBATS,IAST,gCAAa,SAAc,KAAC,WAAM,SAAlC;AAX0B;AAAQ;AAtDS;AAG7C;AAGA,UAAG,mBAAc,KAAC,MAAlB,EAA8B,MAA9B;AACA,eAAO,QAAW,OAAC,MAAD,yBAAlB;AAAI;AACF,6BAAgB,CAAC,MAAM,QAAC,KAAD,CAAP;;AAClB,4BAAgB;AAT6B;AAYJ;AAEzC;AACA,0BAAe,CAAC,0BAAD;AACf,iBAAM,SAAN,GAAiB;AAJwB;AAOC;AAE1C;AACA,0BAAe,CAAC,2BAAD;AACf,iBAAM,SAAN,GAAiB;AAJyB;AAOH;AAEvC;AACA,0BAAe,CAAC,wBAAD;AACf,iBAAM,SAAN,GAAiB;AAJsB;AAOG;AAE1C;AACA,0BAAe,CAAC,2BAAD;AACf,iBAAM,SAAN,GAAiB,MAAjB;AAJ0C;AAOD;AAEzC;AACA,0BAAe,CAAC,0BAAD;AACf,iBAAM,SAAN,GAAiB;AAJwB;AAOD;AAExC;AACA,0BAAe,CAAC,yBAAD;AACf,iBAAM,SAAN,GAAiB;AAJuB;AAjIJ;AAEpC,UAAG,UAAK,KAAC,MAAT,EAAqB,MAArB;AACA,UAAI,MAAM,KAAE,EAAZ,EACE,IAAW,CAAC,gBAAD,SAAa,IAAgE,CAArC,gBAAW,kBAAkB,CAAC,MAAD,CAAQ,KAAE,CAAC,CAAH,CAAxF,EACE,wBAAgB,CAAC,8CAAwB,mBAAC,SAAD,CAAzB,CAFpB;AAGA,mBAAO;AAN6B;AASM;AAG1C,UAAG,MAAM,KAAE,WAAM,WAAjB;AAEE,mBAAM,WAAN,GAAmB;AACnB,qBAAQ,CAAC,iBAAD;OAHV;AAH0C;AAUL;AAErC,0BAAc;AACd,UAAI,MAAM,KAAE,EAAZ;AACa,mBAAN,WAAM;AACT,YADS,IACT;AAAa,qBAAM,SAAN,GAAiB,iBAAY,KAAC,MAAD;AAC1C,kBAFS,IAET;AAAa,qBAAM,SAAN,GAAiB,qBAAQ,CAAC,MAAD;AACtC,kBAHS,IAGT;AAAa,qBAAM,SAAN,GAAiB,uBAAU,CAAC,MAAD;AACxC,kBAJS,IAIT;AAAa,qBAAM,SAAN,GAAiB,sBAAS,CAAC,MAAD,CAA1B;AACb,kBALS,IAKT;AAAa,qBAAM,SAAN,GAAiB,0BAAa,CAAC,MAAD;AAC3C,kBANS,IAMT,gCAAa,WAAM,SAAN,GAAiB,MAA9B;;AAGS,oBAAN,WAAM;AACT,YADS,KACT;AAAa,qBAAM,SAAN,GAAiB;AAC9B,kBAFS,KAET;AAAa,qBAAM,SAAN,GAAiB;AAC9B,kBAHS,KAGT;AAAa,qBAAM,SAAN,GAAiB;AAC9B,kBAJS,KAIT;AAAa,qBAAM,SAAN,GAAiB;AAC9B,kBALS,KAKT;AAAa,qBAAM,SAAN,GAAiB;AAC9B,kBANS,KAMT,gCAAa,WAAM,SAAN,GAAiB,EAA9B;;AAnBiC;AAuBO;AAE5C,UAAG,WAAM,WAAW,KAAE,KAAtB,EACE,wBAAgB,CAAC,4CAAsB,mBAAe,GAAd,mBAAc,CAAC,KAAD,CAAf,CAAvB,CADlB;AAF4C;AAMF;AAE1C,UAAG,YAAc,KAAE,+BAAnB,EACE,wBAAgB,CAAC,sCAAgB,mBAAC,aAAD,CAAjB,CADlB;AAEA,UAAG,yBAAH,EACE,iBADF;AAJ0C;AAuGH;AAGvC;AAAG;AACH;AAGA,WAAI;AACJ,UAAY,mBAAD,QAAX,EACE,oBAAQ,mBAAc,CAAC,UAAD,CAAtB,CADF;AAEA,YAAK,WAAM;AACX,UAAG,GAAG,KAAE,EAAR;AAGE,YAAO,CAAH,GAAG,KAAC,0BAAD,CAAY,IAAO,CAAF,EAAE,KAAC,wBAAD,CAA1B;AAEE,qBAAM,WAAN,GAAmB;AACnB,cAAY,UAAC,WAAM,SAAP;AACZ,qBAAM,SAAN,GAAiB;;AAKjB,qBAAM,WAAN,GAAmB;AACnB,gBAAM,gBAAW,QAAC,aAAS,CAAC,6EAA6E,mBACvG,cACW,GAAX,uBAAW,CAt3EN,0BAs3EiC,EAA3B,EACA,GAAX,uBAAW,CAv3EN,0BAu3EiC,GAA3B,CAH4F,CAA9E,CAAT;;OAbtB;AAXuC;AA/FE;AAAb;AAE5B,eAAe,mBAAD;AAFc;AAAa;AAKN;AAGnC;AAGA,UAAc,yBAAH,eAAP,MAAO,CAAX;AAEE,cAAY,OAAP,OAAU,yBAAH;AACZ,4BAAc,GAAG;AACjB,4BAAQ,GAAG,OAAX;AACA,8BAAgB,GAAG;AACnB,uBAAS,GAAG;AACZ,qBAAO,GAAG;AACV,2BAAa,GAAG;AAChB,8BAAgB,GAAG;OAGnB,MAAgB,yCAAC,MAAD;AAlBiB;AA2HW;AAAlB;AAE5B,eAAiB,mBAAD;AAFY;AAAkB;AAl+D1B;AA2CK,sCAjDV,8BAiDU;AACV;AACC;AACS;AACJ,kCA1cV,0BA0cU;AACQ,0CArDT,mCAqDS;AACA,0CArDT,mCAqDS;AACV,gCAvfC,mCAufD;AAlDC;AAsDJ;;AACE,wCADF,wCACE;AAIS;;;AAEzB;AAFyB;AAu5He;AAE1B,iDAAC,MAAD;AAChB,UAAa,gCAAH,eAAP,MAAO,CAAV,EACE,iBAAmB,OAAP,OAAU,gCAAH,CAA+B,UADpD;AAH0C;AAv5Hf;AAMR,gCAXH,+BAWG;AANQ;AAWN;;;AAEnB;AAFmB;;;;;AAskDY;AAAJ;AAE7B,eAA6B,YAAK,CAAC,MAAD;AAFL;AAAI;AAKC;AAGlC,kBAAK,CAAC,OAAS,MAAV;AAH6B;AAME;AAEpB,+CAAC,IAAD;AAChB,UAAY,YAAD,QAAX,EACE,YAAO,OAAP,GAAgB,IADlB;AAHoC;AAOU;AAAjB;AAG7B,eAAQ,eAAK,GAAC,CAAD;AACb,aAAa,CAAN,MAAM,IAAE,CAAF,CAAK,IAAyC,CAApC,wBAAW,CAAC,SAAI,CAAC,MAAD,CAAQ,OAAM,KAAnB,CAAyB,KAAE,CAAF,CAA3D,EACM,MAAJ,IAAG;AALwB;AAAiB;AAQH;AAAd;AAI7B;AAGA,UAAG,sBAAiB,CAAC,KAAD;AACpB,UAAI,CAAC,KAAC,CAAC,CAAP;AACE,iBAAQ;AAER,qBAAQ,SAAI,CAAC,CAAD;AAXe;AAAc;AAcE;AAAhB;AAG7B,eAAQ,mBAAc,CAAC,KAAD;AACtB,UAAI,MAAM,KAAC,IAAX,EACE,wBAAgB,CAAC,4CAAsB,mBAAC,QAAD,CAAvB,CADlB;AAJ6B;AAAgB;AASL;AAAX;AAI7B,eAAY,OAAJ,WAAO,yBAAH;AACZ,YAAM,QAAN,GAAuB;AACvB,YAAM,QAAC,CAAM,KAAN;AACP,YAAM,cAAC,CAAY,WAAZ;AACP,YAAM,eAAN,GAA2B;AARE;AAAW;AAWA;AAAX;AAG7B,eAAY,OAAJ,WAAO,yBAAH;AACZ,YAAM,QAAN,GAAuB;AACvB,YAAM,QAAC,CAAM,KAAN;AACP,YAAM,cAAC,CAAY,WAAZ;AACP,YAAM,SAAC,CAAO,MAAP;AAPsB;AAAW;AAUO;AAAlB;AAG7B,eAAY,OAAJ,WAAO,yBAAH;AACZ,YAAM,QAAN,GAAuB;AACvB,YAAM,QAAC,CAAM,KAAN;AACP,YAAM,cAAC,CAAY,0BAAZ;AACP,YAAM,OAAO,SAAb,GAAwB;AAPK;AAAkB;AAUA;AAAlB;AAG7B,eAAY,OAAJ,WAAO,yBAAH;AACZ,YAAM,QAAN,GAAuB;AACvB,YAAM,QAAC,CAAM,KAAN;AACP,YAAM,cAAC,CAAY,0BAAZ;AACP,YAAM,OAAO,SAAb,GAAwB;AAPK;AAAkB;AAUF;AAAhB;AAG7B,eAAY,OAAJ,WAAO,yBAAH;AACZ,YAAM,QAAN,GAAuB;AACvB,YAAM,QAAC,CAAM,KAAN;AACP,YAAM,cAAC,CAAY,wBAAZ;AACP,YAAM,OAAO,SAAb,GAAwB;AAPK;AAAgB;AAUG;AAAnB;AAE7B,eAAY,OAAJ,WAAO,yBAAH;AACZ,YAAM,QAAN,GAAuB;AACvB,YAAM,QAAC,CAAM,KAAN;AACP,YAAM,cAAC,CAAY,2BAAZ;AACP,YAAM,OAAO,SAAb,GAAwB,MAAxB;AAN6B;AAAmB;AASF;AAAjB;AAG7B,eAAY,OAAJ,WAAO,yBAAH;AACZ,YAAM,QAAN,GAAuB;AACvB,YAAM,QAAC,CAAM,KAAN;AACP,YAAM,cAAC,CAAY,yBAAZ;AACP,YAAM,OAAO,SAAb,GAAwB;AAPK;AAAiB;AAUE;AAAnB;AAG7B,eAAY,OAAJ,WAAO,yBAAH;AACZ,YAAM,QAAN,GAAuB;AACvB,YAAM,QAAC,CAAM,KAAN;AACP,YAAM,cAAC,CAAY,2BAAZ;AACP,YAAM,OAAO,SAAb,GAAwB;AAPK;AAAmB;AAWR;AAAX;AAI7B,eAAY,OAAJ,WAAO,yBAAH;AACZ,YAAM,QAAC,CAAM,KAAN;AACP,YAAM,QAAN,GAAuB;AACvB,YAAM,iBAAC,CAAgB,WAAhB;AACP,YAAM,cAAC,CAAY,qBAAgB,CAAC,WAAD,CAA5B;AACP,YAAM,YAAN,GAAoB;AATS;AAAW;AAYA;AAAX;AAI7B,eAAY,OAAJ,WAAO,yBAAH;AACZ,YAAM,QAAC,CAAM,KAAN;AACP,YAAM,QAAN,GAAuB;AACvB,YAAM,iBAAC,CAAgB,WAAhB;AACP,YAAM,cAAC,CAAY,qBAAgB,CAAC,WAAD,CAA5B;AACP,YAAM,UAAN,GAAkB;AATW;AAAW;AAptDnB;AA2BA;;;AAEnB;AACA;AACA;AAJmB;;;;;AA+lG2B;AAEtC;AACV,iBAAK;AACL,qBAAU,QAAG;AACb,yBAAa,QAAG,cAAC;AAL2D;AAA5B;AAQX;AAAR;AAE7B,eAAQ;AAFqB;AAAQ;AAKI;AAAZ;AAE7B,UAAG,QAAU,qBAAb;AAEE,gBAAU;AACV,uBAAU,QAAG;OAHf;AAKA,qBAAQ,YAAR;AACA,YAAM,WAAN,GAAmB;AARU;AAAY;AA5mGpB;AAcN;AA2mGc;;AAKE;AAAR;AAEvB,eAAQ,QAAG;AAFY;AAAQ;AAhnGhB;AAOA;;;AAEb;AACA;AAHa;;;;;;AAgnGmB;AAGlC;AAGA,eAAO,QAA4B,OAAjB,WAAC,oBAAD,CAAiB,GAAC,CAAD,kBAAnC;AAAI;AAEF,4BAAe,CAAC,CAAD,UAAK,mBAAc,CAAC,CAAD,CAAG,eAAtB;;AARiB;AAYI;AAAf;AAGvB;AAIA,UAAG,wBAAmB,YAAY,CAAC,MAAM,KAAP;AAClC,UAAI,KAAK,KAAC,CAAV,EAEE,wBAAgB,CAAC,8CAAwB,mBAAC,SAAqB,GAAd,mBAAc,CAAC,KAAD,EAAsB,GAAd,mBAAc,CAAC,KAAK,WAAN,CAA5C,CAAzB,CAFlB;AAGA,eAAQ;AAXe;AAAe;AA2BT;AAG7B;AACA;AAAI;AAGJ,UAAS,WAAC,mBAAD,CAAgB,KAAE,QAAG,gBAA9B,EACE,wBAAgB,CAAC,8CAAwB,mBAAI,GAAH,QAAG,MAAJ,CAAzB,CADlB;AAEA,eAAO,QAA2B,OAAhB,WAAC,mBAAD,CAAgB,GAAC,CAAD,kBAAlC;AAAI;AAEF,cAAK,qBAAgB,CAAC,QAAG,eAAe,QAAE,CAAD,CAAC,GAAC,CAAD,KAAF,CAAnB;AACrB,cAAK,mBAAc,CAAC,CAAD,CAAG;AACtB,YAAI,GAAG,KAAE,GAAT,EACE,mBAAc,CAAC,CAAD,CAAd,GAAmB,oBAAe,CAAC,CAAC,GAAC,CAAD,CAAG,mBAAc,CAAC,CAAD,EAAI,GAAvB,CADpC;;AAb2B;AAkBW;AAGd,4DAAC,GAAD;AAC1B,4BAAgB;AACN,0BAAD,sBAAC,8CAAsB,WAAC,IAAD,CAAvB;AAL2F;AAA5D;AAQR;AAGhC;AAGA,eAAO,QAA2B,OAAhB,WAAC,mBAAD,CAAgB,GAAC,CAAD,kBAAlC;AAAI;AACF,+BAAU,CAAe,CAAC,MAAf,wBAAc;;;;YAAf;;AACF;AARsB;AAWK;AAErC;AAEA,eAAO,QAA2B,OAAhB,WAAC,mBAAD,CAAgB,GAAC,CAAD,kBAAlC;AAAI;AACF,2BAAc,CAAC,CAAD,CAAG;;AALkB;AAQE;AAEvC;AAEA,eAAO,QAA2B,OAAhB,WAAC,mBAAD,CAAgB,GAAC,CAAD,kBAAlC;AAAI;AACF,2BAAc,CAAC,CAAD,CAAG;;AALoB;AA1DJ;AAAZ;AAEvB;AAEA,eAAU;AACV,UAAG,yBAAH,EACE,aADF;AAEA,eAAO,QAA2B,OAAhB,WAAC,mBAAD,CAAgB,GAAC,CAAD,kBAAlC;AAAI;AACF,YAAG,mBAAc,CAAC,CAAD,CAAG,eAApB,EACE,aADF;;AAEF,eAAU;AAVa;AAAY;AAkEJ;AAAR;AAGvB;AACA;AAGA,UAAG;AACH,eAAO,QAA2B,OAAhB,WAAC,mBAAD,CAAgB,GAAC,CAAD,kBAAlC;AAAI;AAEF,YAAI,CAAC,KAAE,EAAP,EACE,IAAG,CAAC,GAAC,GADP;AAEA,YAAG,CAAC,GAAC,mBAAc,CAAC,CAAD,CAAG,WAAlB;;AAEN,UAAI,CAAC,KAAE,EAAP,EACE,IAAG,GAAK,GAAD,CAAD,GAAG,GADX;AAEA,eAAQ,QAAG,MAAK,GAAC,CAAD;AAhBO;AAAQ;AA5sGhB;AAqBD;;;AAEZ;AAFY;;;;;AAggByB;AAAX;AAE5B,eAAQ;AAFoB;AAAW;AAKL;AAAZ;AAEtB,qBAAQ,YAAR;AAFsB;AAAY;AArgBpB;AAUD;;;AAEX;AAFW;AAoZsB;AAEzB;AACV,oBAAQ;AACR,kBAAO,WAAP,GAAoB,mBAAc,CAAC,CAAD,CAAG;AACzB,iBAAP,YAAO;AACV,UADU,IACV;AAAU,oBAAO,SAAP,GAAkB;AAC5B,gBAFU,IAEV;AAAa,oBAAO,SAAP,GAAkB;AAC/B,gBAHU,IAGV,iCAAY,YAAO,SAAP,GAAkB,CAA9B;AARiC;AAYE;AAGrC;AACA;AAGA,gBAAG,mBAAc,CAAC,CAAD,CAAG,eAApB;AACA,UAAG,WAAH;AAEE,sBAAQ;AACR,aAAI;;AAGE,mBAAD,CAAC;AACJ,YADI,IACJ;AAAS,eAAc,cAAC,CAAC,SAAF,CAAY,GAAW,cAAC,YAAO,SAAR,CAAX;AACnC,kBAFI,IAEJ;AAAY,eAAY,UAAC,CAAC,iBAAF,CAAY,GAAS,UAAC,YAAO,iBAAR,CAAT;AACpC,kBAHI,IAGJ,iCAAW,KAAa,UAAC,CAAC,SAAF,CAAY,GAAU,UAAC,YAAO,SAAR,CAA9C;;AAEJ,UAAG,EAAH;AACc,oBAAP,YAAO;AACV,YADU,KACV;AAAS,sBAAO,SAAP,GAAkB,CAAC;AAC5B,kBAFU,KAEV;AAAY,sBAAO,SAAP,GAAkB,CAAC;AAC/B,kBAHU,KAGV,iCAAW,YAAO,SAAP,GAAkB,CAAC,SAA9B;OAJJ;AAMU;AAzB2B;AAhaxB;AAUA;;;AAEX;AAFW;AAgWsB;AAEzB;AACV,oBAAQ;AACR,kBAAO,WAAP,GAAoB,mBAAc,CAAC,CAAD,CAAG;AACzB,iBAAP,YAAO;AACV,UADU,IACV;AAAU,oBAAO,SAAP,GAAkB;AAC5B,gBAFU,IAEV;AAAa,oBAAO,SAAP,GAAkB;AAC/B,gBAHU,IAGV,iCAAY,YAAO,SAAP,GAAkB,CAA9B;AARiC;AAYE;AAGrC;AACA;AAGA,gBAAG,mBAAc,CAAC,CAAD,CAAG,eAApB;AACA,UAAG,WAAH;AAEE,oBAAO,WAAP,GAAoB,CAAC;AACrB,sBAAQ;AACR,aAAI;;AAGE,mBAAD,CAAC;AACJ,YADI,IACJ;AAAS,eAAc,cAAC,CAAC,SAAF,CAAY,GAAW,cAAC,YAAO,SAAR,CAAX;AACnC,kBAFI,IAEJ;AAAY,eAAY,UAAC,CAAC,iBAAF,CAAY,GAAS,UAAC,YAAO,iBAAR,CAAT;AACpC,kBAHI,IAGJ,iCAAW,KAAa,UAAC,CAAC,SAAF,CAAY,GAAU,UAAC,YAAO,SAAR,CAA9C;;AAEJ,UAAG,EAAH;AACQ,oBAAD,CAAC;AACJ,YADI,KACJ;AAAS,sBAAO,SAAP,GAAkB,CAAC;AAC5B,kBAFI,KAEJ;AAAW,sBAAO,SAAP,GAAkB,CAAC;AAC9B,kBAHI,KAGJ,kCAAY,YAAO,SAAP,GAAkB,CAAC,SAA/B;OAJJ;AApBqC;AA5WxB;AAUA;AA8euB;AAAf;AAErB,UAAG,CAAoB,CAAf,KAAK,WAAU,IAAG,cAAC,yBAAQ,2BAAU,2BAAnB,CAAH,CAAvB,EACE,wBAAgB,CAAC,8CAAwB,mBAAC,SAAqB,GAAd,mBAAc,CAAC,KAAD,EAAsB,GAAd,mBAAc,CAAC,KAAK,WAAN,CAA5C,CAAzB,CADlB;AAEA,eAAQ;AAJa;AAAe;AAOD;AAGnC,kBAAO,WAAP,GAAoB,mBAAc,CAAC,CAAD,CAAG;AACzB,iBAAP,YAAO;AACV,UADU,IACV;AAAS,oBAAO,SAAP,GAAkB;AAC3B,gBAFU,IAEV;AAAa,oBAAO,SAAP,GAAkB;AAC/B,gBAHU,IAGV,iCAAW,YAAO,SAAP,GAAkB,CAA7B;AAPiC;AAWE;AAGrC;AAGA,gBAAG,mBAAc,CAAC,CAAD,CAAG,eAApB;AACY,iBAAP,YAAO;AACV,UADU,IACV;AAAS,oBAAO,SAAP,GAA4B,cAAC,YAAO,SAAR,CAAkB,GAAW,cAAC,CAAC,SAAF,CAAX;AACvD,gBAFU,IAEV;AAAY,oBAAO,SAAP,GAA4C,CAAlB,UAAC,YAAO,iBAAR,CAAkB,GAAS,UAAC,CAAC,iBAAF,CAAT,CAA5C;AACZ,gBAHU,IAGV,iCAAW,YAAO,SAAP,GAA2B,UAAC,YAAO,SAAR,CAAkB,GAAU,UAAC,CAAC,SAAF,CAAlE;AAVmC;AAhgBxB;AASA;;;AAEX;AAFW;AAiasB;AAEzB;AAFyB;AAKE;AAE3B;AACN,iBAAJ,IAAG;AAHkC;AAMJ;AAAZ;AAErB,qBAAkB,2CAAlB;AACA,YAAM,WAAN,GAAmB,YAAO;AAC1B,UAAG,WAAM,KAAC,CAAV;AACc,mBAAP,YAAO;AACV,YADU,IACV;AAEE,gBAAM,WAAN,GAAmB;AACnB,gBAAM,SAAN,GAAiB;SAEnB,UANU,IAMV;AACE,gBAAM,SAAN,GAAiB;AACnB,kBARU,IAQV,kCACE,MAAM,SAAN,GAAiB,GADnB;;AAIU,oBAAP,YAAO;AACV,YADU,KACV;AAEE,gBAAM,WAAN,GAAmB;AACnB,gBAAM,SAAN,GAA0B,UAAC,YAAO,SAAR,CAAkB,GAAC,WAAD;SAE9C,UANU,KAMV;AACE,gBAAM,SAAN,GAA2B,cAAC,YAAO,SAAR,CAAkB,GAAC,WAAD;AAC/C,kBARU,KAQV,kCACE,MAAM,SAAN,GAA2C,UAAlB,UAAC,YAAO,iBAAR,CAAkB,GAAC,WAAD,CAA3C,QADF;;AAzBiB;AAAY;AA5apB;AAWE;AAicsB;AAErC,kBAAO,WAAP,GAAoB;AACpB,kBAAO,SAAP,GAAkB;AAHmB;AAME;AAEvC,kBAAO,SAAP,GAA2B,UAAC,YAAO,SAAR,CAAkB,GAAC,CAAD;AAFN;AAvcxB;AAQQ;;;AAErB;AAFqB;;;;;AAkpGyB;AAGhD;AACA,uBAAW,GAAG;AAHmB;AADe;AAOL;AAAZ;AAE/B,UAAS,WAAC,oBAAD,CAAiB,GAAC,CAA3B,EACE,iBADF;AAEA,qBAAQ,cAAS,CAAC,oBAAD,CAAjB;AACA,YAAM,WAAN,GAAmB;AALY;AAAY;AAzpGpB;AAWJ;;;AAEjB;AACA;AACA;AACA;AACA;AACA;AACA;AARiB;;;;;;;;;AAy4BiB;AAGpC,UAAI,gBAAS,KAAC,qBAAd,EACE,gBAAW,CAAC,mDAAD,CADb;AAHoC;AAwEG;AAAZ;AAG3B;AAGA,6BAAkB,CAAC,GAAD;AAClB,0BAAe,CAAC,IAAI,0BAAL;AACf,eAAe,EAAC,GAAG,SAAJ;AARY;AAAY;AAWC;AAAb;AAE3B;AAGA,6BAAkB,CAAC,GAAD;AAClB,0BAAe,CAAC,IAAI,2BAAL;AACf,eAAiB,cAAC,GAAG,SAAJ;AAPU;AAAa;AAUH;AAAV;AAG3B;AAGA,6BAAkB,CAAC,GAAD;AAClB,2BAAgB,CAAC,IAAI,cAAC,yBAAQ,4BAAW,0BAApB,CAAL;AACR,iBAAH,GAAG;AACN,UADM,IACN;AAAY,iBAAiB,UAAC,GAAG,SAAJ;AAC7B,gBAFM,IAEN;AAAU,iBAAkB,cAAC,GAAG,SAAJ;AAC5B,gBAHM,IAGN,kCAAa,SAAgB,UAAC,GAAG,iBAAJ,CAAhB,QAAb;AAXyB;AAAU;AAeG;AAAb;AAE3B;AAGA,6BAAkB,CAAC,GAAD;AAClB,2BAAgB,CAAC,IAAI,cAAC,yBAAQ,4BAAW,0BAApB,CAAL;AACR,iBAAH,GAAG;AACN,UADM,IACN;AAAY,iBAAiB,UAAC,GAAG,SAAJ,CAAjB;AACZ,gBAFM,IAEN;AAAU,2BAAkB,cAAC,GAAG,SAAJ,CAAlB;AACV,gBAHM,IAGN,kCAAa,SAAgB,UAAC,GAAG,iBAAJ,CAA7B;AAVyB;AAAa;AAcD;AAAZ;AAG3B;AAGA,6BAAkB,CAAC,GAAD;AAClB,0BAAe,CAAC,IAAI,0BAAL;AACf,eAAiB,UAAC,GAAG,SAAJ;AARU;AAAY;AAWD;AAAX;AAG3B;AAGA,6BAAkB,CAAC,GAAD;AAClB,0BAAe,CAAC,IAAI,yBAAL;AACf,eAAc,KAAC,GAAG,SAAJ;AARa;AAAW;AAWC;AAAZ;AAE3B,eAAQ,aAAQ;AAFW;AAAY;AAWF;AAAV;AAG3B;AAAS;AAGT,eAAQ;AACR,iBAAU,IAAI;AACd,eAAQ,KAAK;AACb,UAAI,QAAQ,KAAE,MAAd;AACO;AACL,YADK,IACL;AACE,cAAI,MAAO,IAAG,cAAC,yBAAQ,4BAAW,2BAApB,CAAd,EACE,SAAQ,uBAAW,CAAC,KAAK,MAAN,CADrB;AAEF,kBAJK,IAIL;AACE,cAAI,MAAO,IAAG,cAAC,4BAAW,2BAAZ,CAAd,EACE,SAAQ,uBAAW,CAAC,KAAK,MAAN,CADrB;AAEF,kBAPK,IAOL,kCACE,IAAI,MAAO,IAAG,cAAC,yBAAQ,2BAAT,CAAd,EACE,SAAQ,uBAAW,CAAC,KAAK,MAAN,CAFvB;OARF;AAT2B;AAAU;AA2BC;AAGtC,eAAM,eAAU,CAAC,WAAK,WAAN,CAAhB;AACA,gBAAO,eAAU,CAAC,YAAM,UAAP,CAAjB;AAJsC;AAOC;AAEvC,UAAY,UAAT,eAAU,MAAD,CAAZ,EAAyB,MAAzB;AACA,uBAAW;AACX,oBAAQ;AAJ+B;AAtLG;AAG1C,uBAAY,OAAO,CAAC,MAAD;AAHuB;AAMF;AAExC,mBAAQ,WAAR,GAAoB;AAFoB;AA+BD;AAEvC,YAAM,gBAAW,QAAC,YAAM,CAAC,GAAD,CAAN;AAFqB;AAocE;AAEzC,UAAG,gBAAW,KAAC,MAAf,EAA2B,MAA3B;AACA,yBAAa;AACb,mBAAQ,UAAC,CAAQ,MAAR;AACT,UAAY,cAAD,QAAX,EACE,uBAAU,CAAC;;;;UAAD,CADZ;AAEA,UAAI,gBAAW,KAAE,EAAjB;AAEE;AACA,yBAAW;AACX,YAAI,gBAAS,KAAE,qBAAf,EACE,gBAAW,CAAC,mBAAM,CAAC,iDAA2B,mBAAQ,EAAP,aAAO,MAAK,sBAAb,CAA5B,CAAP,CADb;AAEA,sBAAS;OAGT,uBAAW;AAhB4B;AAmBE;AAG3C,UAAI,GAAG,WAAW,KAAE,KAApB,EACE,wBAAgB,CAAC,4CAAsB,mBAAe,GAAd,mBAAc,CAAC,GAAG,WAAJ,CAAf,CAAvB,CADlB;AAH2C;AAOC;AAE5C,UAAG,CAAoB,CAAf,GAAG,WAAY,IAAG,MAAH,CAAvB,EACE,wBAAgB,CAAC,4CAAsB,mBAAe,GAAd,mBAAc,CAAC,GAAG,WAAJ,CAAf,CAAvB,CADlB;AAF4C;AAzdA;AAAX;AAEjC,eAAQ;AACC,iBAAJ,IAAI;AACP,UADO,IACP;AACO;AACH,YADG,KACH;AAAa,mBAAQ,oBAAe,QAAC,YAAM,CAAC,MAAD,CAAN;AACrC,kBAFG,KAEH;AAAa,mBAAQ,uBAAkB,QAAC,YAAM,CAAC,MAAD,CAAN;AACxC,kBAHG,KAGH,kCAAa,SAAQ,uBAAkB,QAAC,YAAM,CAAC,MAAD,CAAN,CAAxC;OAEJ,UAPO,IAOP;AACO;AACH,YADG,KACH;AAAa,mBAAQ,yBAAoB,QAAC,YAAM,CAAC,MAAD,CAAN;AAC1C,kBAFG,KAEH,kCAAa,SAAQ,yBAAoB,QAAC,YAAM,CAAC,MAAD,CAAN,CAA1C;OAEJ,UAZO,IAYP;AACO;AACH,YADG,KACH;AAAa,mBAAQ,yBAAoB,QAAC,YAAM,CAAC,MAAD,CAAN;AAC1C,kBAFG,KAEH,kCAAa,SAAQ,4BAAuB,QAAC,YAAM,CAAC,MAAD,CAAN,CAA7C;OAHJ;AAf+B;AAAW;AA+dI;AAAf;AAEjC,eAAQ;AAFyB;AAAe;AA5Uf;AAAN;AAG3B;AACA;AAIA,UAAG,gBAAU,KAAE,qBAAf;AAEE;AACA;AACA,gBAAO;AACP,iBAAQ,eAAU,QAAC,YAAM,CAAC,KAAD,CAAN;OAGnB,eAAQ;AACV;AACE,eAAO,gBAAU,IAAG,cAAC,sBAAM,qBAAK,qBAAZ,CAApB;AAEE,eAAI;AACJ;AACA;AACA,kBAAO;AACF;AACH,cADG,IACH;AAAQ,qBAAQ,yBAAoB,QAAC,YAAM,CAAC,OAAO,KAAR,CAAN;AACrC,oBAFG,IAEH;AAAQ,qBAAQ,0BAAqB,QAAC,YAAM,CAAC,OAAO,KAAR,CAAN;AACtC,oBAHG,IAGH;AAAQ,qBAAQ,0BAAqB,QAAC,YAAM,CAAC,OAAO,KAAR,CAAN;;AAEtC,4BAAW,CAAC,0CAAD;;;AAZjB;AAgBE,cAAO,eAAP,MAAO;AACP;AAjBF;AAjB2B;AAAM;AAsCA;AAAN;AAG3B;AACA;AACA;AAIA,eAAQ;AACR;AACE,YAAI,gBAAU,IAAG,kBAAjB;AAEE,eAAI;AACJ;AACA;AACA,kBAAO;AACP,yBAAU,CAAC;;;;eAAO;;;;cAAR;AACL;AACH,cADG,IACH;AAAqB,gBAAG;AACxB,oBAFG,IAEH;AAAqB,gBAAG;AACxB,oBAHG,IAGH;AAAqB,gBAAG;AACxB,oBAJG,IAIH;AAAqB,gBAAG;AACxB,oBALG,IAKH;AAAqB,gBAAG;AACxB,oBANG,IAMH;AAAqB,gBAAG;AACxB,oBAPG,IAOH;AAAqB,gBAAG;;AAExB,4BAAW,CAAC,2CAAD;;AAEb,mBAAQ,CAAC,QAAC,YAAM,CAAC,OAAO,KAAR,CAAN;SAlBZ;AADF;AAsBE,cAAO,eAAP,MAAO;AACP;AAvBF;AAV2B;AAAM;AAqCA;AAAN;AAG3B;AACA;AAIA,eAAQ;AACR;AACE,eAAM,gBAAU,IAAG,cAAC,uBAAO,uBAAR,CAAnB;AAEE,eAAI;AACJ;AACA;AACA,kBAAO;AACP,yBAAU,CAAC;;;;eAAO;;;;cAAR;AACL;AACH,cADG,IACH;AAAU,qBAAQ,oBAAe,QAAC,YAAM,CAAC,OAAO,KAAR,CAAN;AAClC,oBAFG,IAEH,8BAAU,SAAQ,yBAAoB,QAAC,YAAM,CAAC,OAAO,KAAR,CAAN,CAAvC;;AAVN;AAcE,cAAO,eAAP,MAAO;AACP;AAfF;AAT2B;AAAM;AA+BA;AAAN;AAG3B;AACA;AAIA,eAAQ;AACR;AACE,eAAO,gBAAU,IAAG,cAAC,sBAAM,sBAAM,qBAAb,CAApB;AAEE,eAAI;AACJ;AACA,kBAAO;AACP,yBAAU,CAAC;;;;eAAO;;;;cAAR;AACL;AACH,cADG,IACH;AAAQ,qBAAQ,yBAAoB,QAAC,YAAM,CAAC,OAAO,KAAR,CAAN;AACrC,oBAFG,IAEH;AAAQ,qBAAQ,uBAAkB,QAAC,YAAM,CAAC,OAAO,KAAR,CAAN;AACnC,oBAHG,IAGH,4BAAQ,SAAQ,uBAAkB,QAAC,YAAM,CAAC,OAAO,KAAR,CAAN,CAAnC;;AAVN;AAcE,cAAO,eAAP,MAAO;AACP;AAfF;AAT2B;AAAM;AA4BA;AAAN;AAG3B;AAIA,UAAG;AACH,UAAI,gBAAU,IAAG,cAAC,uBAAO,uBAAR,CAAjB;AAEE,YAAG,gBAAS,KAAC,uBAAD;AACZ;OAHF;AAKA,eAAQ;AACR,UAAG,CAAH,EACE,SAAQ,uBAAkB,QAAC,YAAM,CAAC,MAAD,CAAN,CAD7B;AAd2B;AAAM;AAkBA;AAAN;AAE3B;AAGA,eAAU;AACV;AACE,eAAO,gBAAU,KAAE,uBAAnB;AAEE;AACA,kBAAS;AACT,yBAAU,CAAC;;;;eAAQ;;;;cAAT;AACV,mBAAU,sBAAiB,QAAC,YAAM,CAAC,OAAQ,KAAT,CAAN;;AANhC;AASE,cAAO,eAAP,MAAO;AACP;AAVF;AAN2B;AAAM;AAoBA;AAAN;AAG3B,UAAI,gBAAS,KAAC,sBAAd;AAEE;AACA,iBAAQ;AACR;AACE,cAAI,gBAAS,KAAE,uBAAf,EACE,gBAAW,CAAC,mBAAM,CAAC,0CAAoB,mBAAQ,EAAP,aAAO,MAAK,sBAAb,CAArB,CAAP,CADb;AAEA;AAHF;AAKE,gBAAO,eAAP,MAAO;AACP;AANF;OAUA,eAAQ;AAjBiB;AAAM;AAoBG;AAAT;AAG3B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAIU,UAAD,sBAAC,UAAK,CAAN;AACT,UAAI,gBAAS,KAAC,wBAAd;AAEE,YAAG,0BAAa,CAAC,oBAAa;;;;YAAd,CAAhB;AACE,mBAAQ,uBAAkB,QAAC,iBAAa,CAAC,CAAD,CAAb;;AAG3B,0BAAG,CAAC,oBAAa;;;;eAAE;;;;cAAhB;AACH,cAAI,CAAC,KAAC,CAAN;AACE,qBAAQ,uBAAkB,QAAC,eAAW,CAAC,CAAD,CAAX;AAE3B,gBAAA,gBAAW,CAAC,mBAAM,CAAC,uCAAiB,mBAAC,sBAAD,CAAlB,CAAP;;OAGZ,UAAI,gBAAS,KAAC,wBAAd;AACH,iBAAQ,uBAAkB,QAAC,gBAAY,CAAC,mBAAD,CAAZ;AACxB,gBAAI,gBAAU,IAAG,cAAC,uBAAO,uBAAR,CAAjB;AACH,iBAAQ,uBAAkB,QAAC,iBAAa,CAAC,gBAAS,KAAC,sBAAX,CAAb;AACxB,gBAAG,CAAe,CAAV,gBAAU,IAAG,cAAC,6BAAa,qBAAK,sBAAnB,CAAH,CAAlB;AACH,wBAAW,CAAC,mBAAM,CAAC,4CAAsB,mBAAQ,EAAP,aAAO,MAAK,sBAAb,CAAvB,CAAP;;AAGX,cAAK,gBAAS,KAAC,oBAAD;AACd,cAAK,gBAAS,KAAC,sBAAD;AACd,YAAG,CAAS,CAAJ,GAAI,IAAG,GAAH,CAAZ;AAEE,eAAI,IAAI,iBAAiB,CAAC,mBAAD;AACzB,cAAI,EAAE,KAAC,IAAP,EACE,gBAAW,CAAC,mBAAM,CAAC,4CAAsB,mBAAC,sBAAD,CAAvB,CAAP,CADb;SAHF;AAOA,YAAG,GAAH;AACE,mBAAQ;AACL,kBAAG,GAAH;AACH,mBAAQ,CAAC;AACN,kBAAI,EAAE,QAAgB,IAAG,cAAC,uCAAkB,mCAAnB,CAAzB;AACH,mBAAQ,EAAE;AAEV,uBAAQ;AAGV,YAAI,MAAM,KAAE,CAAZ;AAEE;AACA,cAAI,gBAAS,KAAE,sBAAf,EACG,gBAAW,CAAC,mBAAM,CAAC,8CAAwB,mBAAQ,EAAP,aAAO,MAAK,sBAAb,CAAzB,CAAP,CADd;AAEU,cAAD,sBAAC,UAAK,QAAG,CAAC,MAAD,CAAT;AACT,eAAI;AACJ;AACE;AACE;AAEA,kBAAU,CAAN,MAAM,GAAC,CAAD,CAAI,IAAO,CAAF,EAAE,KAAO,WAAC,IAAD,CAAP,CAArB;AAEY,oBAAD,sBAAC,UAAK,EAAE,GAAC,CAAT;AACT,oBAAI,CAAC,EAAD,CAAJ,GAAU;eAHZ;AAKA,kBAAI,CAAC,EAAD,CAAJ,GAAU;AACN,gBAAJ,IAAG;AACH,kBAAI,gBAAS,KAAE,uBAAf,EACE,IAAI,EAAE,GAAC,QAAG,CAAC,MAAD,CAAV,EACE,gBAAW,CAAC,mBAAM,CAAC,wCAAkB,mBAAQ,EAAP,aAAO,MAAK,sBAAb,CAAnB,CAAP,CAFf;aAVF,QAakB,EAAT,CAAF,EAAE,KAAC,MAAD,CAAS,IAAe,CAAJ,CAAN,MAAM,GAAC,CAAD,CAAI,IAAc,CAAT,gBAAS,KAAC,uBAAD,CAAd,CAAf,CAblB;AAcA,gBAAG,gBAAS,KAAE,uBAAd,EACE,gBAAW,CAAC,mBAAM,CAAC,0CAAoB,mBAAQ,EAAP,aAAO,MAAK,sBAAb,CAArB,CAAP,CADb;AAfF;AAkBE;;AAEM,gBAAJ,IAAG;AACH,qBAAO,EAAE,IAAE,CAAX;AAEE,uCAAU,CAAK,CAAC,OAAL,SAAI;;;;oBAAL;AACN,kBAAJ,IAAG;;AAEL;aA1BJ;;SAPF;AAqCA,YAAG,GAAH;AACE,mBAAQ,iBAAY,QAAC,YAAM,CAAC,IAAI,CAAC,CAAD,EAAI,IAAI,CAAC,CAAD,EAAI,IAAI,CAAC,CAAD,CAArB,CAAN;AAClB,kBAAG,GAAH;AACH,mBAAQ,mBAAc,QAAC,YAAM,CAAC,kBAAD,CAAN;;AAEhB,qBAAF,EAAE;AACL,cADK,IACL;AAAqB,qBAAS,oBAAe,QAAC,oBAAgB,CAAC,EAAD,CAAhB;AAC9C,oBAFK,IAEL;AAAqB,qBAAS,4BAAuB,QAAC,kBAAc,CAAC,GAAG,IAAJ,CAAd;AACtD,oBAHK,IAGL,0CAAqB,SAAS,EAAE,UAAS,QAAC,kBAAc,CAAC,GAAG,IAAJ,CAAd,CAA1C;;;AAGN;AAxG2B;AAAS;AA1YD;AAAR;AAG3B,eAAQ,aAAQ;AAHW;AAAQ;AAnGC;AAAT;AAG3B,eAAQ,aAAQ;AAHW;AAAS;AAMG;AAAZ;AAE3B,eAAQ,aAAQ;AAFW;AAAY;AAKG;AAG1C;AACA;AACA;AACA;AAGA,oBAAS;AAET,UAAG;AACH,UAAa,UAAT,eAAW,EAAF,CAAM,IAAY,CAAC,CAAD,SAA/B,EACE,SAAO,QAAsB,OAAjB,CAAC,SAAC,EAAe,GAAC,CAAD,kBAA7B;AAAI;AAEF,cAAK,CAAC,KAAY,CAAC,CAAD;AAClB,YAAG,GAAG,UAAU,IAAG,cAAnB,EACE,cAAS,IAAI,CAAC,sBAAS,CAAC,GAAG,MAAJ,EAAW,GAArB,CADf;OAJJ;AAQA,eAAO,SAAuB,QAAlB,iBAAY,SAAC,EAAK,GAAC,CAAD,qBAA9B;AAAI;AAEF,aAAI,iBAAY,MAAC,CAAD;AAChB,sBAAS,IAAI,CAAC,sBAAS,CAAC,EAAE,MAAH,EAAU,EAApB;;AAEf,oBAAQ;AAzBkC;AAsEN;AAEpB,gDAAC,MAAD;AAChB,0BAAc,0BAAqB,QAAC,YAAM,CAAC,yBAAD,CAAN;AACpC,uBAAY,QAAZ,GAAsB;AACtB,sBAAU,yBAAoB,QAAC;AAC/B,uBAAW,8BAAkB,QAAC,YAAM,CAAC,KAAD,CAAN;AAN2B;AAArB;AASA;AAEpC,6BAAU,CAAC;;;;UAAD;AACV,6BAAU,CAAC;;;;UAAD;AACV,6BAAU,CAAC;;;;UAAD;AACV,6BAAU,CAAC;;;;UAAD;AACA;AAN0B;AAnDO;AAAhB;AAE3B;AAEA,UAAG,WAAH,EACE,qBADF;AAGA,UAAK;AACL,UAAW,CAAD,OAAI,GAAE,CAAhB;AAEE,YAAS,CAAL,CAAC,QAAC,CAAD,CAAI,KAAE,GAAF,CAAO,IAAkB,CAAb,CAAC,QAAQ,CAAD,WAAP,CAAY,KAAE,GAAF,CAAlC;AAEE,2BAAM,CAAC;;;;eAAE,EAAE,CAAL;AACN,2BAAM,CAAC;;;;eAAS,CAAD,QAAI,CAAb;SAHR;OAFF;AASA,eAA6B,cAAS,SAAC,sBAAS,CAAC,CAAD,CAAV;AAjBX;AAAgB;AAoBV;AAEjC,yBAAa;AACb,oBAAS;AACC,eAAV,KAAU;AAJuB;AAOQ;AAAR;AAGjC;AAGA,UAAG,wBAAmB,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB;AACE,SAAC,cAAC,CAAY,WAAZ;AACF,uBAAQ,CAAC,aAAT;AAFF;AAIE,SAAE,eAAF,CAAE;AAJJ;AAPiC;AAAQ;AAmEK;AAE9C,qBAAQ,iBAAR;AAF8C;AAKR;AAAX;AAE3B,eAAiB,cAAD;AAChB,UAAG,MAAH;AAEE,cAAG,cAAH;AACA,yBAAW;AACX,2BAAa;OAJf;AAH2B;AAAW;AAfH;AAAR;AAE3B,UAAI,gBAAW,KAAC,EAAhB,EACE,gBAAW,CAAC,2CAAD,CADb;AAEA,UAAG,CAAY,CAAC,cAAD,SAAf,EACE,gBAAW,CAAC,sCAAD,CADb;AAEA,qBAAQ,cAAS,eAAjB;AAN2B;AAAQ;AAqgBE;AAAV;AAE3B,UAAG,CAAY,CAAC,cAAD,SAAf,EACE,gBAAW,CAAC,sCAAD,CADb;AAEA,eAAQ,cAAS;AAJU;AAAU;AAOE;AAAZ;AAE3B,eAAgB,CAAC,cAAD,SAAY,IAAI,cAAS,eAAb;AAFD;AAAY;AAKE;AAEzC,UAAY,cAAD,QAAX,EACE,cAAS,gBADX;AAFyC;AAME;AAE3C,UAAY,cAAD,QAAX,EACE,cAAS,kBADX;AAF2C;AAl7CxB;;AA6CC,+BAAO,UvCzLjB,+BuCyLiB,CAAP;AAqBC;AACC,mCA7MD,oCA6MC;AACH,gCA7ND,iCA6NC;AApEA;AAsEK,mDAtEL,+CAsEK;AAGL;;;AAEjB;AAFiB;;;;;AAiwDgB;AAAR;AAE3B,eAAQ,UAAK,SAAC;AAFa;AAAQ;AAKJ;AAAJ;AAG3B,eAAoC,UAAK,MAAC,MAAD;AAHd;AAAI;AAMK;AAEpB,gDAAC,MAAD;AAChB,mBAAO,0BAAqB,QAAC,YAAM,CAAC,gCAAD,CAAN;AAH4B;AAArB;AAMA;AAEpC,6BAAU,CAAC;;;;UAAD;AACA;AAH0B;AAMQ;AAAjB;AAG3B,eAAQ,UAAK,kBAAkB,CAAC,KAAD;AAHJ;AAAiB;AAMH;AAAd;AAG3B,eAAoC,UAAK,eAAe,CAAC,KAAD;AAH7B;AAAc;AAME;AAAhB;AAG3B,eAAoC,UAAK,iBAAiB,CAAC,KAAD;AAH/B;AAAgB;AAML;AAAX;AAI3B,eAAoC,UAAK,cAAY,CAAC,MAAM,YAAY,MAAnB;AACrD,YAAM,UAAN,GAAiB;AALU;AAAW;AAQO;AAAlB;AAI3B,eAAoC,UAAK,mBAAmB,CAAC,MAAM,MAAP;AAC5D,YAAM,UAAN,GAAiB;AALU;AAAkB;AAQA;AAAlB;AAI3B,eAAoC,UAAK,mBAAmB,CAAC,MAAM,MAAP;AAC5D,YAAM,UAAN,GAAiB;AALU;AAAkB;AAQF;AAAhB;AAI3B,eAAoC,UAAK,iBAAiB,CAAC,MAAM,MAAP;AAC1D,YAAM,UAAN,GAAiB;AALU;AAAgB;AAQG;AAAnB;AAG3B,eAAoC,UAAK,oBAAoB,CAAC,MAAM,MAAP;AAC7D,YAAM,UAAN,GAAiB;AAJU;AAAmB;AAOF;AAAjB;AAI3B,eAAoC,UAAK,kBAAkB,CAAC,MAAM,MAAP;AAC3D,YAAM,UAAN,GAAiB;AALU;AAAiB;AAQE;AAAnB;AAI3B,eAAoC,UAAK,oBAAoB,CAAC,MAAM,MAAP;AAC7D,YAAM,UAAN,GAAiB;AALU;AAAmB;AASR;AAAX;AAI3B,eAAoC,UAAK,YAAY,CAAC,MAAM,YAAY,YAAY,SAA/B;AACrD,YAAM,UAAN,GAAiB;AALU;AAAW;AAQA;AAAX;AAI3B,eAAoC,UAAK,cAAY,CAAC,MAAM,YAAY,YAAY,UAA/B;AACrD,YAAM,UAAN,GAAkB;AALS;AAAW;AA12DnB;;AAQC,+BAAO,UvC7NjB,+BuC6NiB,CAAP;AARD;AA0BR;;AAGA,qBAAG,cAAC,gCAAU,iCAAW,6BAAO,gCAAU,mCAAa,6BAAO,8BAAQ,6BAAO,iCAA1E;AAiGE;AAAT;AAGP,aAAQ,uBAAW,CAp3BT,yBAo3BmC,MAA1B;AAHZ;AAAS;AAMK;AAAd;AAGP,aAAQ,uBAAW,CA3zBR,0BA2zBmC,OAA3B;AAHZ;AAAc;AAME;AAAhB;AAEI,eAAN,iBAAM,CAAC,CAAD;AACT,QADS,IACT;AAAM,eAAQ;AACd,cAFS,IAET;AAAM,eAAQ;AACd,cAHS,IAGT;AAAM,eAAQ;AACd,cAJS,IAIT;AAAM,eAAQ;AACd,cALS,IAKT;AAAM,eAAQ;AACd,cANS,IAMT;AAAM,eAAQ;;AAEd,8BAAgB,CAAC,iDAA2B,mBAAC,GAAD,CAA5B;;AAVX;AAAgB;AAiBE;AAAlB;AAGP,QAAI,cAAQ,KAAC,IAAb,EACE,iBAAU,wBAAmB,QAAC,YAAM,CAAC,IAAD,CAAN,CADhC;AAEA,aAAQ;AALD;AAAkB;AAu7GE;AAKzB,QAAG,4BAAO,IAAG,UAAb;AAEE,+BAAgB,CAAC,6BAAO,KAAK,OAAb;AAEhB,0BAAW,CAAC,6BAAO,MAAM,IAAI,oBAAlB;AACX,0BAAW,CAAC,6BAAO,MAAM,IAAI,oBAAlB;AAEX,0BAAW,CAAC,6BAAO,MAAM,IAAI,oBAAlB;AACX,0BAAW,CAAC,6BAAO,MAAM,IAAI,oBAAlB;AACX,0BAAW,CAAC,6BAAO,OAAO,IAAI,qBAAnB;AACX,0BAAW,CAAC,6BAAO,MAAM,IAAI,oBAAlB;AACX,0BAAW,CAAC,6BAAO,KAAK,IAAI,mBAAjB;AACX,0BAAW,CAAC,6BAAO,MAAM,IAAI,oBAAlB;AACX,0BAAW,CAAC,6BAAO,OAAO,IAAI,qBAAnB;AACX,0BAAW,CAAC,6BAAO,MAAM,IAAI,oBAAlB;AACX,0BAAW,CAAC,6BAAO,QAAQ,IAAI,sBAApB;AACX,0BAAW,CAAC,6BAAO,QAAQ,IAAI,sBAApB;KAhBb;AAkBA,QAAG,+BAAU,IAAG,UAAhB;AAGE,0BAAW,CAAC,gCAAU,SAAS,IAAI,uBAAxB;AACX,0BAAW,CAAC,gCAAU,OAAO,IAAI,uBAAtB;AACX,0BAAW,CAAC,gCAAU,SAAS,IAAI,yBAAxB;AACX,0BAAW,CAAC,gCAAU,MAAM,IAAI,qBAArB;AACX,0BAAW,CAAC,gCAAU,YAAY,IAAI,0BAA3B;AACX,0BAAW,CAAC,gCAAU,YAAY,IAAI,0BAA3B;AACX,0BAAW,CAAC,gCAAU,gBAAgB,IAAI,kCAA/B;AACX,0BAAW,CAAC,gCAAU,cAAc,IAAI,6BAA7B;KAVb;AAYA,QAAG,gCAAW,IAAG,UAAjB;AAGE,0BAAW,CAAC,iCAAW,OAAO,IAAI,oBAAvB;AACX,0BAAW,CAAC,iCAAW,OAAO,IAAI,oBAAvB;AACX,0BAAW,CAAC,iCAAW,MAAM,IAAI,mBAAtB;AACX,0BAAW,CAAC,iCAAW,YAAY,IAAI,0BAA5B;AACX,0BAAW,CAAC,iCAAW,cAAc,IAAI,4BAA9B;AACX,0BAAW,CAAC,iCAAW,eAAe,IAAI,6BAA/B;AACX,0BAAW,CAAC,iCAAW,aAAa,IAAI,2BAA7B;AACX,0BAAW,CAAC,iCAAW,cAAc,IAAI,4BAA9B;AACX,0BAAW,CAAC,iCAAW,aAAa,IAAI,2BAA7B;AACX,0BAAW,CAAC,iCAAW,aAAa,IAAI,2BAA7B;AACX,0BAAW,CAAC,iCAAW,cAAc,IAAI,4BAA9B;AACX,0BAAW,CAAC,iCAAW,aAAa,IAAI,6BAA7B;AACX,0BAAW,CAAC,iCAAW,aAAa,IAAI,8BAA7B;AACX,0BAAW,CAAC,iCAAW,iBAAiB,IAAI,qCAAjC;AACX,0BAAW,CAAC,iCAAW,eAAe,IAAI,6BAA/B;AACX,0BAAW,CAAC,iCAAW,iBAAiB,IAAI,+BAAjC;AACX,0BAAW,CAAC,iCAAW,cAAc,IAAI,4BAA9B;AACX,0BAAW,CAAC,iCAAW,gBAAgB,IAAI,8BAAhC;KApBb;AAsBA,QAAG,+BAAU,IAAG,UAAhB;AAGE,0BAAW,CAAC,gCAAU,MAAM,IAAI,qBAArB;AACX,0BAAW,CAAC,gCAAU,MAAM,IAAI,qBAArB;AACX,0BAAW,CAAC,gCAAU,MAAM,IAAI,sBAArB;AACX,0BAAW,CAAC,gCAAU,MAAM,IAAI,sBAArB;AACX,0BAAW,CAAC,gCAAU,MAAM,IAAI,sBAArB;AACX,0BAAW,CAAC,gCAAU,MAAM,IAAI,sBAArB;KARb;AAUA,QAAI,kCAAa,IAAG,UAApB;AAGE,0BAAW,CAAC,mCAAa,WAAW,IAAI,yBAA7B;AACX,0BAAW,CAAC,mCAAa,WAAW,IAAI,yBAA7B;AACX,0BAAW,CAAC,mCAAa,cAAc,IAAI,6BAAhC;AACX,0BAAW,CAAC,mCAAa,aAAa,IAAI,2BAA/B;AACX,0BAAW,CAAC,mCAAa,aAAa,IAAI,2BAA/B;AACX,0BAAW,CAAC,mCAAa,gBAAgB,IAAI,+BAAlC;AACX,0BAAW,CAAC,mCAAa,YAAY,IAAI,0BAA9B;AACX,0BAAW,CAAC,mCAAa,YAAY,IAAI,0BAA9B;AACX,0BAAW,CAAC,mCAAa,eAAe,IAAI,8BAAjC;AACX,0BAAW,CAAC,mCAAa,YAAY,IAAI,0BAA9B;AACX,0BAAW,CAAC,mCAAa,YAAY,IAAI,0BAA9B;AACX,0BAAW,CAAC,mCAAa,YAAY,IAAI,0BAA9B;AACX,0BAAW,CAAC,mCAAa,eAAe,IAAI,8BAAjC;AACX,0BAAW,CAAC,mCAAa,YAAY,IAAI,0BAA9B;AACX,0BAAW,CAAC,mCAAa,eAAe,IAAI,8BAAjC;AACX,0BAAW,CAAC,mCAAa,gBAAgB,IAAI,8BAAlC;AACX,0BAAW,CAAC,mCAAa,mBAAmB,IAAI,kCAArC;AACX,0BAAW,CAAC,mCAAa,cAAc,IAAI,6BAAhC;AACX,0BAAW,CAAC,mCAAa,iBAAiB,IAAI,gCAAnC;KArBb;AAuBA,QAAG,iCAAY,IAAG,UAAlB;AAEE,4BAAW,CAAC,kCAAY,QAAQ,IAAI,GAAG,oBAA5B;AACX,4BAAW,CAAC,kCAAY,MAAM,IAAI,IAAI,kBAA3B;AACX,4BAAW,CAAC,kCAAY,MAAM,IAAI,IAAI,kBAA3B;AACX,4BAAW,CAAC,kCAAY,MAAM,IAAI,IAAI,kBAA3B;AACX,4BAAW,CAAC,kCAAY,MAAM,IAAI,IAAI,kBAA3B;KANb;AA1FyB;AAzfV;AAAV;AAKP,QAAG,GAAG,WAAY,KAAE,0BAApB;AACE,eAAmB,UAAC,GAAG,SAAJ;AAChB,cAAG,GAAG,WAAY,KAAE,2BAApB;AACH,eAAkB,UAAC,GAAG,iBAAJ,CAAlB;AAEA,mBAAoB,cAAC,GAAG,SAAJ;AAVf;AAAU;AA71HnB,mBA4yBc;AAYP,kBAAC;AACM,yBAAG;AACD,2BAAG;AACD,6BAAG;AACF,8BAAG;AAEd,mBAAU,cAAI,KAAH,GAAK,GAAI,EAAV;AACP,sBAAO,cAAI,KAAH,GAAK,GAAQ,KAAH,GAAK,GAAQ,KAAH,GAAK,GAA1B;AACL,wBAAK,cAAI,KAAH,GAAK,EAAN;AACJ,yBAAI,cAAC,GAAK,EAAN;AACN,uBAAM,cAAC,GAAI,GAAI,GAAI,CAAb;AACP,sBAAO,cAAC,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,EAA7B;AACN,uBAAe,aAAT,gBAAU,cAAC,GAAI,GAAI,EAAT,CAAD;AAClB,oBAAc,aAAL,cAAC,EAAD,EAAM,gBAAD;AACP,2BAAc,aAAX,iBAAa,aAAF;AAG5B;AA+CwB;AAExB,YAAM,gBAAW,QAAC,YAAM,CAAC,GAAD,CAAN;AAFM;AAKA;AAExB,YAAM,gBAAW,QAAC,aAAS,CAAC,IAAI,IAAL,CAAT;AAFM;AAgCxB;AAsoFY;AAAL;AAGP;AAEA,UAAG,QAAS,KAAE,GAAd;AACE,iBAAU;AACP,gBAAS,CAAL,IAAK,KAAE,GAAF,CAAO,IAAc,CAAT,QAAS,GAAE,GAAF,CAA9B;AACH,iBAAU;AACP,gBAAS,CAAL,IAAK,GAAE,GAAF,CAAO,IAAoB,CAAf,eAAI,CAAC,QAAD,CAAW,KAAE,GAAF,CAApC;AAEH,aAAM,UAAK,CAAC,QAAD;AACX,iBAAU,QAAG,CAAE,QAAS,GAAE,QAAE,CAAC,CAAC,IAAF,CAAf;AACb,YAAG,cAAG,CAAC,EAAD,CAAN,EAAgB,SAAU,CAAC,MAA3B;OAGA,eAAU,QAAG,CAAE,QAAS,GAAE,QAAE,CAAC,IAAD,CAAf;AAhBR;AAAK;AAyUK;AAAV;AAEP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,QAAG,CAAC,eAAU,CAAK,gCAAJ,IAAI,CAAC,CAAD,EAAL,CAAX;AAHb;AAAU;AAMA;AAAV;AAEP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,QAAG,CAAC,eAAU,CAAK,gCAAJ,IAAI,CAAC,CAAD,EAAL,CAAX;AAHb;AAAU;AAaA;AAAV;AAEP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,QAAG,CAAC,eAAU,CAAK,gCAAJ,IAAI,CAAC,CAAD,EAAL,CAAX;AAHb;AAAU;AAMA;AAAV;AAEP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,gBAAG,CAAC,eAAU,CAAK,gCAAJ,IAAI,CAAC,CAAD,EAAL,CAAX;AAHb;AAAU;AAMC;AAAX;AAEP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,SAAI,CAAC,eAAU,CAAK,gCAAJ,IAAI,CAAC,CAAD,EAAL,CAAX;AAHd;AAAW;AAMD;AAAV;AAEP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,QAAG,CAAC,eAAU,CAAK,gCAAJ,IAAI,CAAC,CAAD,EAAL,CAAX;AAHb;AAAU;AAMD;AAAT;AAEP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,QAAE,CAAC,eAAU,CAAK,gCAAJ,IAAI,CAAC,CAAD,EAAL,CAAX;AAHZ;AAAS;AAOhB;AAEiB;AAAV;AAEP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,QAAE,CAAC,eAAU,CAAK,gCAAJ,IAAI,CAAC,CAAD,EAAL,CAAX,CAAqB,GAAC,SAAD;AAHjC;AAAU;AAME;AAAZ;AAEP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,UAAK,CAAC,eAAU,CAAK,gCAAJ,IAAI,CAAC,CAAD,EAAL,CAAX;AAHf;AAAY;AAMA;AAAZ;AAEP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,gBAAK,CAAC,eAAU,CAAK,gCAAJ,IAAI,CAAC,CAAD,EAAL,CAAX;AAHf;AAAY;AAMF;AAAV;AAEP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,cAAG,CAAC,eAAU,CAAK,gCAAJ,IAAI,CAAC,CAAD,EAAL,CAAX;AAHb;AAAU;AAMC;AAAX;AAEP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,eAAI,CAAC,eAAU,CAAK,gCAAJ,IAAI,CAAC,CAAD,EAAL,CAAX;AAHd;AAAW;AAQE;AAAb;AAEP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAuB,CAAO,KAAC,IAAI,CAAC,CAAD,CAAG,SAAf;AAHhB;AAAa;AAMF;AAAX;AAEP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,eAAI,CAAO,KAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAA4B,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,EAA4B,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAA/D;AAHd;AAAW;AAME;AAAb;AAGP;AAGA,YAAM,WAAN,GAAmB;AACnB,UAAS,KAAC,IAAI,CAAC,CAAD,CAAG,SAAR;AACT,uBAAM,CAAC;;;;WAAW,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,EAA4B,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAAxC;AACN,YAAM,SAAN,GAAiB;AATV;AAAa;AAYH;AAAV;AAEP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,cAAG,CAAO,KAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAAyB,KAAC,IAAI,CAAC,CAAD,CAAG,SAAxC;AAHb;AAAU;AAMM;AAAhB;AAEP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,sBAAS,CAAO,KAAC,IAAI,CAAC,CAAD,CAAG,SAAf;AAHnB;AAAgB;AAMA;AAAhB;AAEP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,sBAAS,CAAO,KAAC,IAAI,CAAC,CAAD,CAAG,SAAf;AAHnB;AAAgB;AAMI;AAApB;AAGP;AAGA,YAAM,WAAN,GAAmB;AACnB,UAAG;AACH,UAAU,EAAC,IAAI,CAAC,CAAD,CAAG,SAAR,UAAV,EACU,CAAD,kBAAC,EAAE,4CAAH,CADT;AAEA,UAAU,EAAC,IAAI,CAAC,CAAD,CAAG,SAAR,UAAV,EACU,CAAD,kBAAC,EAAE,4CAAH,CADT;AAEA,YAAM,SAAN,GAAiB,0BAAa,CAAO,KAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAAyB,KAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAAyB,KAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAAmB,aAA5E;AAZvB;AAAoB;AAeF;AAAlB;AAEP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,wBAAW,CAAO,KAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAAyB,KAAC,IAAI,CAAC,CAAD,CAAG,SAAxC;AAHrB;AAAkB;AAQP;AAAX;AAEP,UAAO,WAAJ,IAAI,OAAP;AACA,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB;AAJV;AAAW;AAOA;AAAX;AAEP,UAAO,WAAJ,IAAI,OAAP;AACA,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB;AAJV;AAAW;AAOD;AAAV;AAEP,UAAO,WAAJ,IAAI,OAAP;AACA,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB;AAJV;AAAU;AAOM;AAAhB;AAEP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,sBAAS,CAAU,cAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAAV;AAHnB;AAAgB;AAME;AAAlB;AAGP;AAAE;AAAE;AAGJ,YAAM,WAAN,GAAmB;AACnB,6BAAU,CAAU,cAAC,IAAI,CAAC,CAAD,CAAG,SAAR,EAAmB;;;;WAAE;;;;WAAE;;;;UAAjC;AACV,YAAM,SAAN,GAAiB;AARV;AAAkB;AAWC;AAAnB;AAGP;AAAE;AAAE;AAGJ,YAAM,WAAN,GAAmB;AACnB,6BAAU,CAAU,cAAC,IAAI,CAAC,CAAD,CAAG,SAAR,EAAmB;;;;WAAE;;;;WAAE;;;;UAAjC;AACV,YAAM,SAAN,GAAiB;AARV;AAAmB;AAWF;AAAjB;AAGP;AAAE;AAAE;AAGJ,YAAM,WAAN,GAAmB;AACnB,6BAAU,CAAU,cAAC,IAAI,CAAC,CAAD,CAAG,SAAR,EAAmB;;;;WAAE;;;;WAAE;;;;UAAjC;AACV,YAAM,SAAN,GAAiB;AARV;AAAiB;AAWC;AAAlB;AAGP;AAAE;AAAE;AAAE;AAGN,YAAM,WAAN,GAAmB;AACnB,6BAAU,CAAU,cAAC,IAAI,CAAC,CAAD,CAAG,SAAR,EAAmB;;;;WAAE;;;;WAAE;;;;WAAE;;;;UAAnC;AACV,YAAM,SAAN,GAAiB;AARV;AAAkB;AAWD;AAAjB;AAGP;AAAE;AAAE;AAAE;AAGN,YAAM,WAAN,GAAmB;AACnB,6BAAU,CAAU,cAAC,IAAI,CAAC,CAAD,CAAG,SAAR,EAAmB;;;;WAAE;;;;WAAE;;;;WAAE;;;;UAAnC;AACV,YAAM,SAAN,GAAiB;AARV;AAAiB;AAWA;AAAjB;AAGP;AAAE;AAAE;AAAE;AAGN,YAAM,WAAN,GAAmB;AACnB,6BAAU,CAAU,cAAC,IAAI,CAAC,CAAD,CAAG,SAAR,EAAmB;;;;WAAE;;;;WAAE;;;;WAAE;;;;UAAnC;AACV,YAAM,SAAN,GAAiB;AARV;AAAiB;AAWC;AAAlB;AAGP;AAAE;AAAE;AAAE;AAGN,YAAM,WAAN,GAAmB;AACnB,6BAAU,CAAU,cAAC,IAAI,CAAC,CAAD,CAAG,SAAR,EAAmB;;;;WAAE;;;;WAAE;;;;WAAE;;;;UAAnC;AACV,YAAM,SAAN,GAAiB;AARV;AAAkB;AAWD;AAAjB;AAGP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,uBAAU,CAAU,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,EAA4B,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,EAA4B,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAAlE;AAJpB;AAAiB;AAOA;AAAjB;AAGP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,uBAAU,CAAU,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,EAA4B,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,EAA4B,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,EAA4B,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAA9F;AAJpB;AAAiB;AAOI;AAArB;AAGP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,uBAAU,CAAU,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,EAA4B,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,EAA4B,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAAlE,CACR,GAAC,uBAAU,CAAU,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,EAA4B,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,EAA4B,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,EAA4B,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAA9F,CAAX;AALZ;AAAqB;AAQF;AAAnB;AAGP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,2BAAc,cAAc,CAAU,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,KAAV;AAJtC;AAAmB;AAOE;AAArB;AAGP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,2BAAc,gBAAgB,CAAU,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,KAAV;AAJxC;AAAqB;AAMH;AAAlB;AAGP,YAAM,SAAN,GAAiB,2BAAc,aAAa,CAAU,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,KAAV;AAHrC;AAAkB;AAME;AAApB;AAGP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,2BAAc,eAAe,CAAU,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,KAAV;AAJvC;AAAoB;AAOC;AAArB;AAGP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,2BAAc,CAAO,KAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAA4B,cAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAAnC;AAJxB;AAAqB;AASN;AAAf;AAGP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,qBAAQ,CAAU,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAAV;AAJlB;AAAe;AAOA;AAAf;AAGP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,qBAAQ,CAAO,KAAC,IAAI,CAAC,CAAD,CAAG,SAAf;AAJlB;AAAe;AAOG;AAAlB;AAGP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,0BAAW,CAAO,KAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAA4B,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAAnC;AAJrB;AAAkB;AAOD;AAAjB;AAGP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,uBAAU,CAAW,cAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAAX;AAJpB;AAAiB;AAOA;AAAjB;AAGP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,uBAAU,CAAO,KAAC,IAAI,CAAC,CAAD,CAAG,SAAf;AAJpB;AAAiB;AAOG;AAApB;AAGP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,0BAAa,CAAO,KAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAA6B,cAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAApC;AAJvB;AAAoB;AAOJ;AAAhB;AAGP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,sBAAS,CAAU,cAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAAV;AAJnB;AAAgB;AAOA;AAAhB;AAGP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,sBAAS,CAAU,cAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAAV;AAJnB;AAAgB;AAOA;AAAhB;AAGP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,sBAAS,CAAO,KAAC,IAAI,CAAC,CAAD,CAAG,SAAf;AAJnB;AAAgB;AAOG;AAAnB;AAGP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,yBAAY,CAAO,KAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAA4B,cAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAAnC;AAJtB;AAAmB;AAOH;AAAhB;AAGP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,sBAAS,CAAO,KAAC,IAAI,CAAC,CAAD,CAAG,SAAf;AAJnB;AAAgB;AAOG;AAAnB;AAGP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,yBAAY,CAAO,KAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAA4B,cAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAAnC;AAJtB;AAAmB;AAOC;AAApB;AAGP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,0BAAa,CAAO,KAAC,IAAI,CAAC,CAAD,CAAG,SAAf;AAJvB;AAAoB;AAOG;AAAvB;AAGP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,6BAAgB,CAAO,KAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAA4B,cAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAAnC;AAJ1B;AAAuB;AAOL;AAAlB;AAEP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAmB,wBAAW,CAAO,KAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAA8B,cAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAArC;AAHvB;AAAkB;AAMF;AAAhB;AAGP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,sBAAS,CAAQ,EAAC,IAAI,CAAC,CAAD,CAAG,SAAR,W5C96He,K4C86HvB;AAJnB;AAAgB;AAOA;AAAhB;AAGP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,sBAAS,CAAO,KAAC,IAAI,CAAC,CAAD,CAAG,SAAf;AAJnB;AAAgB;AAOG;AAAnB;AAGP,YAAM,SAAN,GAAiB,yBAAY,CAAO,KAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAA0B,EAAC,IAAI,CAAC,CAAD,CAAG,SAAR,UAAjC;AAC7B,YAAM,WAAN,GAAmB;AAJZ;AAAmB;AAQT;AAAV;AAGP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAA6C,QAAnB,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,EAAgC,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAAb;AAJtC;AAAU;AAOA;AAAV;AAGP,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAA6C,QAAnB,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,EAAgC,UAAC,IAAI,CAAC,CAAD,CAAG,SAAR,CAAb;AAJtC;AAAU;AAOA;AAAV;AAGP,YAAM,WAAN,GAAmB;AACnB,UAAU,EAAC,IAAI,CAAC,CAAD,CAAG,SAAR,UAAV;AACE,cAAM,SAAN,GAAiB,IAAI,CAAC,CAAD,CAAG;AAExB,YAAA,MAAM,SAAN,GAAiB,IAAI,CAAC,CAAD,CAAG;AAPnB;AAAU;AAUA;AAAV;AAGP,YAAM,WAAN,GAAmB;AACnB,UAAU,EAAC,IAAI,CAAC,CAAD,CAAG,SAAR,UAAV;AACE,cAAM,SAAN,GAAiB,IAAI,CAAC,CAAD,CAAG;AAExB,YAAA,MAAM,SAAN,GAAiB,IAAI,CAAC,CAAD,CAAG;AAPnB;AAAU;AAUA;AAAV;AAGP,YAAM,WAAN,GAAmB;AACnB,UAAU,EAAC,IAAI,CAAC,CAAD,CAAG,SAAR,UAAV;AACE,cAAM,SAAN,GAAiB,IAAI,CAAC,CAAD,CAAG;AAExB,YAAA,MAAM,SAAN,GAAiB,IAAI,CAAC,CAAD,CAAG;AAPnB;AAAU;AAUA;AAAV;AAGP,YAAM,WAAN,GAAmB;AACnB,UAAU,EAAC,IAAI,CAAC,CAAD,CAAG,SAAR,UAAV;AACE,cAAM,SAAN,GAAiB,IAAI,CAAC,CAAD,CAAG;AAExB,YAAA,MAAM,SAAN,GAAiB,IAAI,CAAC,CAAD,CAAG;AAPnB;AAAU;AAwHa;AAE9B,uCAAsB,2BAAtB;AACA,8BAAkB,iBAAlB,GAAuC;AACvC,8BAAkB,cAAlB,GAAoC;AACpC,8BAAkB,cAAlB,GAAoC;AACpC,8BAAkB,gBAAlB,GAAsC;AACtC,8BAAkB,eAAlB,GAAqC;AAPP;AAxpHlB,6BAgCF,0CACO,+DACG,kEACS,sEACR,oEACD,0EACD,6EACE,8DACE,iFACP,mEACK,wDACL,iEACK,mEACJ,2EACI,qEACJ,0DACS,yEACb,2DACI,qEACC,uEACJ,mEACI,gFACC,oFACF,gEACD,wFACU,mGACH,gFACG,gFACH,0EACA,qFACF,yDACN,2DACG,+EACJ,4EACG,sFACK,kFACL,+EACA,+EACK,sFAtEV;;AAkqHd;AACE,gBAAK,QAAE,CAAC,EAAD;AACP,4BAAmB,CAAC,0BAzqH0E,gBAyqH3E;AACnB;AAHF;AA98IA,GA4yBc,UA5yBd;ACAA,0BAKS,wEALT;;;AAkQkB;AA5BH;AAnND;;AAMI;AAy/Be;AAAP;AAExB,eAAQ,IAAO,MAAM,CAAC,IAAO,UAAU,CAAC,IAAD,CAAlB;AAFG;AAAO;AAKY;AAAnB;AAGxB,eAAQ,wBAAmB,CAAC,CAAC,YAAW,CAAC,SAAC,GAAM,GAArB;AAHH;AAAmB;AAMC;AAE5C,8BAAmB,CAAC,CAAC,YAAW,CAAC,SAAC,GAAM,IAAI,IAAzB;AAFyB;AApgC5B;AAsBF;;;AAEZ;AAFY;;;AAIO;AAJP;AASA;;;AAEZ;AAFY;;;AAIO;AAJP;AASI;;;AAEhB;AAFgB;;;AAIO;AAJP;AASJ;;;AAEZ;AACA;AACA;AACA;AACA;AANY;;;;;;;AAyqBiB;AAG/B,oBAAQ;AACR,oBAAQ;AACR,sBAAU;AACV,sBAAU;AAN6G;AAAxF;AASI;AAAb;AAEtB,eAAQ,aAAQ,aAAY,sBAAoB,CAAC,YAAO,aAAQ,MAAO,UAAvB;AAF1B;AAAa;AAKF;AAAX;AAEtB,eAAQ,YAAO,CAAC,UAAU,kBAAa,CAAC,SAAD,CAAxB;AAFO;AAAW;AAKJ;AAAP;AAEtB,eAAQ,YAAO,CAAC,SAAS,WAAV;AAFO;AAAO;AA5rBf;AAoBK,8CApBL,0CAoBK;AAIC;AA+nBe;AAAP;AAG5B;AAAG;AAGH,WAAU,KAAC,kBAAa,CAAC,QAAD,CAAd;AACV,WAAU,KAAC,MAAD;AACV,UAAG,iCAAa,IAAG,aAAnB,EACE,KAAI,eAAI,CAAC,GAAG,EAAS,EAAD,OAAZ,CADV;AAEA,UAAG,sCAAkB,IAAG,aAAxB;AACE,iBAAU,wBAAW,CAAC,GAAG,EAAJ;AAErB,qBAAU,uBAAU,CAAC,GAAG,EAAJ;AAbM;AAAO;AA/nBf;AAMG;AA4mBe;AAAP;AAG/B;AAAG;AAGH,WAAa,UAAC,kBAAa,CAAC,QAAD,CAAd;AACb,WAAa,UAAC,MAAD;AACb,eAAQ,EAAE,GAAC,EAAD;AARqB;AAAO;AA5mBf;AAMF;AAylBe;AAAP;AAG7B;AAAG;AAGH,WAAW,EAAC,kBAAa,CAAC,QAAD,CAAd;AACX,WAAW,EAAC,MAAD;AACX,eAAW,CAAC,EAAD,KAAI,GAAI,CAAC,EAAD,KAAJ;AARc;AAAO;AAzlBf;AAMC;AA6jBe;;AAAP;AAG9B;AAAG;AAEY;AAAN;AAGP,YAAG,aAAM,CAAC,CAAD,CAAT;AACE,mBAAS,6BAAgB,CAAS,CAAT;AAEzB,uBAAQ,cAAO,qBAAqB,CAAO,KAAC,CAAD,CAAI,KAAI,OAAf;AAN/B;AAAM;AAUf,WAAI,MAAM,CAAC,kBAAa,CAAC,QAAD,CAAd;AACV,WAAI,MAAM,CAAC,MAAD;AACV,eAAQ,UAAK,CAAC,EAAE,GAAC,EAAJ;AAjBiB;AAAO;AA7jBf;AAMH;AA2iBe;AAAP;AAE3B;AAAG;AAGH,WAAU,cAAC,kBAAa,CAAC,QAAD,CAAd;AACV,WAAU,cAAC,MAAD;AACV,eAAQ,UAAK,CAAC,EAAE,GAAC,EAAJ;AAPc;AAAO;AA3iBf;AAMJ;;;AAEb;AACA;AACA;AACA;AACA;AANa;;;;;;;;AA6oBwB;AAAhB;AAEvB,UAAS,CAAL,KAAK,GAAC,CAAD,CAAI,IAAS,CAAL,KAAK,IAAQ,WAAC,WAAD,CAAR,CAAtB,EACE,MAAM,sBAAU,QAAC,aAAS,CAAC,yCAAyC,mBAAC,QAAM,IAAgB,GAAR,WAAC,WAAD,CAAQ,GAAC,CAAxB,CAA1C,CAAT,CADnB;AAEA,eAAQ,qBAAK,CAAC,KAAD;AAJU;AAAgB;AAOD;AAGtC;AACA;AACA;AACA;AAIA,UAAG,mBAAO,QAAC;AACX;AACE,qBAAO,eAAa,CAAC,EAAE,OAAH;AACpB,YAAG,CAAI,gBAAW,IAAY,CAAP,CAAC,OAAM,KAAQ,WAAC,YAAD,CAAR,CAA9B,EACG,MAAM,qBAAc,QAAC,aAAS,CAAC,sEAAsE,mBAAO,cAAC,YAAD,EAAY,EAAD,CAAC,OAAnB,CAAvE,CAAT,CADxB;AAEU,mBAAD,sBAAC,iBAAO,CAAC,OAAT;AACT,iBAAO,QAAY,OAAP,CAAC,OAAM,GAAC,CAAD,kBAAnB;AAAI;AAEF,cAAS,cAAC,CAAC,KAAC,CAAD,CAAF;AACT,gBAAK,4BAAuB,CAAC,CAAC,UAAF;AAC5B,cAAG,GAAG,KAAC,IAAP,EACE,MAAM,qBAAc,QAAC,aAAS,CAAC,wCAAwC,mBAAE,GAAD,CAAC,YAAsB,GAAX,uBAAW,CFntB3F,2BEmtBqH,CAAC,UAA3B,CAAxB,CAAzC,CAAT,CADvB;AAEA,cAAG,gBAAH;AACE,uBAAM,CAAC,CAAD,CAAN,GAAW,GAAG,QAAC,YAAM,CAAC,cAAS,EAAE,KAAK,yBAAjB,CAAN;AAEf,gBAAA,WAAM,CAAC,CAAD,CAAN,GAAW,GAAG,QAAC,YAAM,CAAC,cAAS,EAAE,YAAO,CAAC,CAAD,EAAI,yBAAvB,CAAN;;AAdrB;AAiBE,SAAE,eAAF,CAAE;AAjBJ;AAXsC;AAgCQ;AAAvB;AAGlB;AACH,WADG,IACH,kCAAQ,CADL,IACK,mCAAR,IAAoB,CADjB,IACiB,gCAApB;AACE,iBAAQ;AACV,iBAHG,IAGH,qCAAW,CAHR,IAGQ,iCAAX,IAAsB,CAHnB,IAGmB,kCAAtB;AACE,iBAAQ;AACV,gBALG,IAKH;AACE,iBAAQ;AACV,gBAPG,IAOH;AACE,iBAAQ;AACV,iBATG,IASH,kCAAQ,CATL,IASK,8BAAR,IAAgB,CATb,IASa,kCAAhB;AACE,iBAAQ;;AAEX,iBAAQ;;AAfc;AAAuB;AAmBhB;AAAP;AAGvB;AAAE;AAGF,eAAQ;AACR,UAAG;AACH,UAAS,WAAC,WAAD;AACT,aAAa,CAAN,MAAM,KAAC,CAAD,CAAI,IAAM,CAAD,CAAC,GAAC,CAAD,CAAvB;AAEE,iBAAQ,WAAM,CAAC,CAAD,CAAG,UAAQ,CAAC,SAAD;AACrB,SAAJ,IAAG;;AAZkB;AAAO;AAgBI;AAAX;AAGvB;AAAE;AAGF,eAAQ;AACR,UAAG;AACH,UAAS,WAAC,WAAD;AACT,aAAa,CAAN,MAAM,KAAC,CAAD,CAAI,IAAM,CAAD,CAAC,GAAC,CAAD,CAAvB;AAEE,iBAAQ,WAAM,CAAC,CAAD,CAAG,YAAY,CAAC,WAAW,UAAZ;AAC7B,YAAU,CAAN,MAAM,KAAE,CAAF,CAAK,IAAI,WAAM,CAAC,CAAD,CAAG,MAA5B,EACE,SAAQ,CAAC,MADX;AAEI,SAAJ,IAAG;;AAdkB;AAAW;AAkBK;AAGvC;AACA;AAGA,UAAG,mBAAO,QAAC;AACX;AACE,YAAI,MAAM,eAAc,KAAE,EAA1B;AAEE,uBAAO,eAAa,CAAC,EAAE,MAAM,eAAT;AACpB,mBAAO,QAAmB,OAAR,WAAC,WAAD,CAAQ,GAAC,CAAD,kBAA1B;AAAI;AACF,gBAAG,CAAC,QAAQ,CAAC,WAAM,CAAC,CAAD,CAAG,OAAV,CAAiB,KAAE,CAAC,CAAhC,EACE,WAAM,CAAC,CAAD,CAAG,SAAT,GAAoC,aAAjB,WAAM,CAAC,CAAD,CAAG,UAAS,cAAC,sCAAD,CAAD,CADtC;;SAJJ;AAOA,SAAC;AACD,qBAAO,eAAa,CAAC,EAAE,MAAM,YAAT;AACpB,iBAAO,SAAmB,QAAR,WAAC,WAAD,CAAQ,GAAC,CAAD,qBAA1B;AAAI;AACF,qBAAM,CAAC,CAAD,CAAG,MAAT,GAA8B,CAAb,gCAAa,IAAG,MAAM,SAAT,CAAmB,IAA8B,CAA1B,CAAC,QAAQ,CAAC,WAAM,CAAC,CAAD,CAAG,OAAV,CAAiB,KAAE,CAAC,CAAH,CAA9B;;AAXrD;AAaE,SAAE,eAAF,CAAE;AAbJ;AARuC;AAyBP;AAEhC,sBAAU;AACV,UAAG,WAAO,CAAC,OAAD,CAAV;AACE,uBAA0B;;AAGhB,oBAAD,sBAAC,uBAAQ,CAAT;AACT,oBAAO,CAAC,CAAD,CAAP,GAAY;;AAEd,sBAAU;AACV,yBAAc,CAAC,OAAD;AAX4G;AAA1F;AAcA;AAEhC,sBAAU;AACV,yBAAa;AACb,UAAG,qCAAkB,IAAG,MAAM,SAA9B,EACE,gBAAU,cAAC,sCAAD,CADZ;AAEA,yBAAc,CAAC,MAAM,QAAP;AACd,0BAAe,CAAC,MAAD;AAPqE;AAApD;AAUA;AAGhC;AAGA,eAAO,QAAmB,OAAR,WAAC,WAAD,CAAQ,GAAC,CAAD,kBAA1B;AAAI;AACQ,iBAAV,YAAO,CAAG;;AACF;AARsB;AA1xBjB;AAIC,qDA1DF,oCA0DE;AAJD;AAwBK,+CAxBL,2CAwBK;AAMV;;;AACR;AACA;AACA;AAHQ;;;;;;;AAw2BsB;AAAd;AAElB,UAAG,kBAAW,CAAC,UAAM,YAAP,CAAd;AACE,iBAAQ,CAAC;AAET,qBAAiB,UAAC,UAAM,YAAP;AALD;AAAc;AAVN;AAAR;AAElB,eAAQ,UAAK;AAFK;AAAQ;AAKG;AAE7B,gBAAK,OAAL,GAAc;AAFe;AA3CF;AAE3B,mBAAO;AACP,mBAAgB,IAAT,KAAS,CAAI,UAAK,OAAT;AAChB,sBAAU;AACV;AALyE;AAA9C;AAQH;AAAN;AAGlB;AAGA,UAAG,UAAK,OAAO,CAAC,WAAW,CAAZ;AACf,UAAG,CAAC,OAAO,GAAC,CAAZ;AACE,iBAAe,UAAC,CAAE,GAAH;AAEf,qBAAQ,CAAC;AAVO;AAAM;AAaU;AAAhB;AAElB,eAAQ,eAAU,CAAC,SAAD;AAClB,UAAG,MAAM,KAAE,CAAC,CAAZ,EACE,UAAK,OAAO,CAAC,OAAO,CAAR,CADd;AAHkB;AAAgB;AAOV;AAAN;AAElB,eAAQ,WAAM,CAAC,YAAD;AAFI;AAAM;AAKI;AAAV;AAElB,eAAQ,UAAK,QAAQ,CAAC,SAAD;AAFH;AAAU;AAz1BlB;AAuCO;AAkuBoB;AAGrC;AAGA,eAAO,QAAiB,OAAZ,UAAK,OAAO,GAAC,CAAD,kBAAxB;AAAI;AACF,kBAAM,GAAN,GAAU;;AAPyB;AAUE;AAGvC;AAAE;AAGF,UAAG,UAAK;AACR,gBAAK,OAAL,GAAc,UAAK;AACnB,eAAO,QAAiB,OAAZ,UAAK,OAAO,GAAC,CAAD,kBAAxB;AAAI;AACF,kBAAM,GAAN,GAAU;;AAT2B;AAYR;AAAN;AAEzB,eAAQ,UAAK,KAAK,CAAC,YAAD,CAAc,GAAC,CAAD;AAFP;AAAM;AAKA;AAAN;AAGzB,gBAAK,OAAO,CAAC,cAAe,EAAG,YAAnB;AACZ,eAAQ;AAJiB;AAAM;AAOI;AAAV;AAEzB,eAAQ,UAAK,QAAQ,CAAC,YAAD;AAFI;AAAU;AAKJ;AAAN;AAGzB,eAAQ;AAHiB;AAAM;AAzwBd;AAYD;;;AAEd;AACA;AAHc;;;;;AAwZe;AAAP;AAGxB;AAAE;AAAE;AAAG;AAGP,UAAG,CAAY,CAAC,cAAD,SAAf,EACE,aADF;AAEA,UAAK;AACL,UAAK,eAAM,GAAE,CAAF;AACX,aAAO,CAAC,IAAE,CAAV;AAEE,YAAK,CAAE,GAAU,UAAL,CAAF,CAAE,GAAE,CAAF,CAAK,GAAI,CAAJ,CAAV;AACP,qBAAc,cAAS,YAAY,CAAC,aAAqB,UAAC,UAAM,GAAP,CAAtB;AACnC,YAAI,UAAU,GAAC,CAAf;AACE,cAAK,CAAC,GAAC,CAAD;;AAGN,cAAK,CAAC,GAAC,CAAD;AACN,cAAI,UAAU,KAAC,CAAf;AAEE,gBAAG,YAAH,EACE,IAAK,CADP;WAFF;;;AAOJ,eAAQ;AA1BgB;AAAO;AA1GE;AAAT;AAGxB;AACA;AAAE;AAAE;AAAE;AAAE;AACR;AAAQ;AAAS;AAAO;AAGxB,UAAG,KAAK,KAAC,IAAT,EACM,OAAC,IADP;AAEA,UAAG,KAAK;AACR,eAAiB,IAAT,KAAS,CAAI,CAAJ;AACjB,UAAG,CAAC,KAAC,CAAL,EAAY,aAAZ;AACA,eAAQ;AACR;AACE,YAAG;AACH,eAAM;AACN,kBAAW;AACX,eAAO,CAAC,GAAC,CAAT;AAEM,iBAAJ,IAAG;AAEH,kBAAO,CAAC,GAAC,CAAD;AACR,cAAG,MAAM,GAAC,KAAV,EACE,QAAO,MADT;AAEA,cAAG,CAAC,GAAC,KAAD;AACJ,kBAAO;AAEP,iBAAY,CAAL,KAAK,GAAC,CAAD,CAAI,IAAgB,CAAL,CAAN,KAAM,GAAE,CAAF,CAAK,IAAM,CAAD,CAAC,GAAC,CAAD,CAAN,CAAhC;AAEE,gBAAI,KAAK,KAAC,CAAV;AAEE,kBAAK;AAAO,eAAJ,IAAG;AAAS,mBAAJ,IAAG;aAEhB,UAAW,CAAN,KAAM,KAAE,CAAF,CAAK,IAAK,CAAD,CAAC,IAAE,CAAF,CAArB;AAEH,kBAAK;AAAO,eAAJ,IAAG;AAAS,mBAAJ,IAAG;aAEhB,UAAI,cAAS,YAAY,CAAQ,UAAC,KAAM,GAAP,EAAkB,UAAC,KAAM,GAAP,CAA1B,CAAsC,IAAG,CAAlE;AAEH,kBAAG;AAAO,eAAJ,IAAG;AAAS,mBAAJ,IAAG;;AAIjB,kBAAK;AAAO,eAAJ,IAAG;AAAS,mBAAJ,IAAG;;AAErB,kBAAO,MAAP,GAAc,KAAM;AAChB,gBAAJ,IAAG;;AAEL,cAAG;;AAGL,YAAI,OAAQ,IAAG,CAAf,EACE,aADF;AAGA,iBAAQ,MAAO,GAAE,CAAF;AAEf,eAAM;AACN,iBAAQ;AACR,gBAAO;OA7CT,QA8CM,MA9CN;AAdwB;AAAS;AA+DA;AAEjC,6BAAU,CAAC;;;;UAAD;AACV;AAHiC;AAMM;AAEvC,6BAAU,CAAC;;;;UAAD;AACV,uBAAW,oBAAe,QAAC,YAAM,CAAC,cAAQ,MAAT,CAAN;AAHY;AAMH;AAGpC;AACA;AAAE;AAAO;AAGT,UAAG,cAAS,KAAC,IAAb,EACE,MADF;AAEA,eAAQ,UAAK;AAEH,SAAD,sBAAC,MAAI,MAAL;AACT,gBAAS;AACT,eAAO,QAAW,OAAN,MAAM,GAAC,CAAD,kBAAlB;AAAI;AAEF,YAAG,CAAI,kBAAW,CAAC,UAAM,GAAP,CAAlB;AAEE,aAAG,CAAC,OAAD,CAAH,GAAc;AACV,iBAAJ,IAAG;SAHL;;AAMQ,SAAD,sBAAC,MAAI,OAAL;AACT,mBAAO,cAAS,CAAU,GAAV;AAtBoB;AAyBE;AAGtC;AAHsC;AAmCR;AAAN;AAIxB,eAAQ,YAAO,CAAC,YAAD;AAEf,gBAAK,OAAO,CAAC,OAAO,EAAE,YAAV;AANY;AAAM;AAUI;AAAV;AAExB,eAAQ,UAAK,QAAQ,CAAC,YAAD;AAFG;AAAU;AAKJ;AAAN;AAGxB;AAIA,sBAAe,eAAU,CAAC,YAAD;AAEzB,eAAQ,YAAO,CAAC,YAAD;AACf,UAAG,MAAM,KAAE,aAAX,EACE,UAAK,OAAO,CAAC,OAAO,EAAE,UAAK,OAAO,CAAC,cAAc,CAAf,CAAkB,GAAxC,CADd;AAVwB;AAAM;AApcd;AAqBH;;;AAEX;AAFW;;;;;AAsPmB;AAEhC,6BAAU,CAAC;;;;UAAD;AAFsB;AAKA;AAGhC,UAAG,WAAM,KAAC,IAAV;AACE,sBAAQ,qBAAgB,QAAC,YAAM,CAAC,SAAS,QAAQ,MAAlB,CAAN;AAEzB,YAAA,WAAM;AACR,iBAAM,eAAe,CAAC,IAAD;AACrB,iBAAM;AAR0B;AA3PnB;AAYC;AA4PY;AAAJ;AAEtB,eAAsB,OAAd,cAAK,CAAC,MAAD,EAAY,kBAAH;AAFA;AAAI;AAKC;AAE3B,oBAAK,CAAC,OAAS,MAAV;AAFsB;AAKU;AAAf;AAEtB,eAAY,OAAJ,WAAO,kBAAH;AAFU;AAAe;AAtQvB;AASH;;AACC,kCADD,mCACC;AAEW,8EAAoB,UF20BnC,wBE30BmC,EAAmB,uBAAqB,S7C7N7E,6B6C6N6E,EAA5D;AACA,8EAAoB,UF00BnC,wBE10BmC,EAAkB,S7C9NvD,4B6C8NuD,EAAqB,wBAA3D;AAGP;;;AAEd;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEA;AAEA;AAEA;AACA;AAEA;AACA;AAEA;AACA;AACA;AACA;AA1Bc;;;;;;;;;;;;;;AAkmCsB;AAAd;AAGxB;AACA;AAGA,UAAG,gBAAW,CAAC,KAAD;AACd,YAAM,WAAN,GAAmB,8BAAyB,CAAC,CAAC,UAAF;AACjC,iBAAN,MAAM;AACT,UADS,IACT;AAAY,cAAM,SAAN,GAAiB,CAAC,aAAC;AAC/B,gBAFS,IAET;AAAY,cAAM,SAAN,GAAiB,CAAC,cAAC;AAC/B,gBAHS,IAGT;AAAU,cAAM,SAAN,GAAiB,CAAC,WAAC;AAC7B,gBAJS,IAIT;AAAa,cAAM,SAAN,GAAiB,CAAC,cAAC;AAChC,gBALS,IAKT;AAAW,cAAM,SAAN,GAAiB,CAAC,YAAC;AAC9B,gBANS,IAMT;AAEE,YAAY,CAAC,WAAC,EAAD;AACb,cAAM,SAAN,GAAiB,CAAjB;OAHF;AAfsB;AAAc;AAnQC;AAIvC,UAAG,iBAAY,KAAC,MAAhB,EAA4B,MAA5B;AACA,0BAAc;AACd,UAAI,yCAAU,IAAG,oBAAjB,EACE,MADF;AAEA,wBAAa,CAAC,gBAAD;AAR0B;AARJ;AAEnC,UAAG,aAAQ,KAAC,MAAZ,EAAwB,MAAxB;AACA,mBAAQ,OAAO,CAAC,MAAD;AACf,UAAG,gBAAH,EACE,mBADF;AAJmC;AANC;AAEpC;AACA,uBAAW;AAHyB;AA2DJ;AAEhC,UAAG,MAAM,KAAC,UAAV,EAAqB,MAArB;AACA;AACA,mBAAO;AACP,oBAAS,CAAC,MAAD;AALuB;AAQG;AAEnC,UAAG,aAAQ,KAAC,MAAZ,EAAwB,MAAxB;AACA;AACA,sBAAU;AAJyB;AA6YM;AAGzC;AAGA,eAAO,QAAiB,OAAZ,eAAM,SAAC,EAAK,GAAC,CAAD,kBAAxB;AAAI;AACF,YAAG,eAAM,UAAC,CAAD,CAAG,WAAW,IAAG,cAAC,+BAAa,iCAAe,0BAA7B,CAA1B,EACE,iBAAW,YAAY,CAAC,eAAM,UAAC,CAAD,CAAG,YAAW,eAAM,UAAC,CAAD,CAAG,SAAC,GAAM,GAArC,CADzB;;AAPuC;AAvbH;AAGtC;AAGA,UAAI,iBAAY,KAAE,EAAlB;AACE,cAAiC,OAA5B,aAAQ,OAAK,CAAC,iBAAD,EAAkB,kBAAH;AAEjC,kBAAK;AACP,UAAG,GAAG,KAAC,IAAP;AACE,6BAAe;;AAGf,YAAa,CAAT,GAAG,OAAM,KAAC,IAAD,CAAM,IAAI,KAAvB,EACE,GAAG,WAAW,CAAC,IAAD,CADhB;AAEA,6BAAe,GAAG;;AAEpB,UAAG,gBAAH,EACE,WAAM,CAAC,cAAC,6BAAD,CAAD,CADR;AAlBsC;AAoOW;AAAzB;AAGnB;AACH,WADG,IACH,kCACA,CAFG,IAEH,mCADA,IAEA,CAHG,IAGH,gCAFA;AAEW,iBAAQ;AACnB,iBAJG,IAIH,qCACA,CALG,IAKH,iCADA,IAEA,CANG,IAMH,kCAFA;AAEa,iBAAQ;AACrB,gBAPG,IAOH;AAAY,iBAAQ;AACpB,gBARG,IAQH;AAAU,iBAAQ;AAClB,iBATG,IASH,kCACA,CAVG,IAUH,8BADA,IAEA,CAXG,IAWH,kCAFA;AAEa,iBAAQ;;AAErB,iCAAgB,CAAC,6DAA6D,mBAAe,GAAd,qBAAc,CAAC,SAAD,CAAf,EAA4B,IAA1F;;AAhBM;AAAyB;AAPV;AAAf;AAGxB,YAAM,WAAN,GAAmB;AACnB,YAAM,SAAN,GAAiB,gBAAW,CAAO,KAAC,IAAI,CAAC,CAAD,CAAG,SAAf,CAA0B,UAAC;AAJ/B;AAAe;AANM;AAArB;AAGxB,eAAQ;AAHgB;AAAqB;AA0DC;AAAtB;AAGxB;AAGA,eAAQ,4BAAqB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,YAAM,aAAC,CAAW,IAAX;AACP,eAAO,QAAiB,OAAZ,eAAM,SAAC,EAAK,GAAC,CAAD,kBAAxB;AAAI;AACF,YAAG,CAAwB,CAAnB,eAAM,UAAC,CAAD,CAAG,UAAU,IAAG,cAAC,yBAAO,wBAAR,CAAH,CAA3B,EACE,MAAM,aAAY,YAAY,CAAC,eAAM,UAAC,CAAD,CAAG,YAAW,8BAAyB,CAAC,eAAM,UAAC,CAAD,CAAG,UAAV,EAAsB,yCAApE,CADhC;;AAEF,YAAM,aAAY,YAAY,CAAC,SAAS,IAAI,IAAK,0CAAnB;AAC9B,YAAM,cAAC,CAAY,gBAAZ;AAZiB;AAAsB;AAeR;AAAd;AAGxB;AAIA,eAAQ;AACR,WAAI,iBAAY,CAAC,6BAAD;AAChB;AACE,YAAY,oBAAD,QAAX;AAEE,8BAAc,CAAC,KAAK;;;;cAAN;AACd,cAAG,CAAI,MAAP,EACE,aADF;SAHF;AAMA,YAAG,CAAI,cAAS,IAAU,CAAN,gBAAM,KAAC,EAAD,CAA1B,EACE,aADF;AAEA,YAAI,sBAAiB,KAAC,IAAtB,EACE,yBAAmB,6BADrB;AAEA,iBAAQ,sBAAiB,aAAC;AAX5B;AAaE,yBAAY,CAAC,EAAD;AAbd;AATwB;AAAc;AAsfC;AAAf;AAGxB,eAAQ,mBAAc,QAAC,YAAM,CAAC,KAAK,KAAK,kBAAX,CAAN;AAHC;AAAe;AAiBI;AAAnB;AAGxB,eAAQ;AAHgB;AAAmB;AAMF;AAAjB;AAGxB;AACA;AAAG;AAGH,eAAQ,CAAC;AACT,aAAM,0BAAmB,QAAC,YAAM,CAAC,KAAK,UAAU,UAAU,mBAA1B,CAAN;AAC1B;AACE,YAAG,kCAAc,IAAG,OAApB;AACE,cAAG;AAEH,kBAAG;AACL,aAAI,kBAAa,eAAe,CAAC,CAAD;AAChC,eAAa,CAAN,MAAM,KAAC,CAAC,CAAF,CAAK,IAAO,CAAF,EAAE,KAAE,CAAC,CAAH,CAAzB;AAEE,cAAG,IAAI,QAAQ,CAAC,EAAD,CAAI,KAAC,CAApB,EACE,SAAQ,EADV;AAEI,WAAJ,IAAG;AACH,eAAI,kBAAa,eAAe,CAAC,CAAD;;AAXpC;AAcE,YAAK,eAAL,IAAK;AAdP;AATwB;AAAiB;AA7sBA;AAAjB;AAExB,YAAM,KAAN,GAAuB,IAAV,MAAU;AACvB,YAAM,SAAN,GAAiB;AACjB,YAAM,MAAN,GAAc;AAJU;AAAiB;AAgBA;AAEzC,YAAM,KAAN,GAAa;AACb,YAAM,SAAN,GAAiB;AACjB,YAAM,MAAN,GAAc;AAJ2B;AARE;AAG3C,YAAM,KAAN,GAAa,iBAAY;AACzB,YAAM,SAAN,GAAiB;AACjB,YAAM,MAAN,GAAc;AAL6B;AAkNV;AAAT;AAGxB;AACA;AAEA,eAAU;AACV;AACE,yBAAgB;AACX;AACH,YADG,IACH;AACE,cAAG,aAAS,GAAsB,CAApB,kBAAa,SAAC,EAAM,GAAE,CAAF,CAAlC;AACO,yBAAL,IAAI;AAEJ,yBAAU;AACd,kBANG,IAMH;AACE,cAAG,aAAS,GAAE,CAAd;AACO,yBAAL,IAAI;AAEJ,yBAAU;AACd,kBAXG,IAWH,gCACE,IAAY,CAAR,aAAQ,GAAC,CAAD,CAAI,IAAa,CAAT,aAAS,IAAG,kBAAa,SAAC,EAAjB,CAA7B,EACE,SAAU,uBAFd;AAIF,YAAG,MAAO,KAAE,sBAAZ;AAEE,mBAAQ,kBAAa,eAAY,CAAC,aAAD;AACjC,gBAAM,KAAN,GAAa,UAAM;AACnB,gBAAM,aAAN,GAAuB;AACvB,gBAAM,SAAN,GAAiB;AACjB,4BAAa,CAAC,MAAD;AACb,cAAG,cAAH;AAEE,8BAAY,MAAM;AAClB,6BAAgB;AAChB,gBAAG,CAAI,cAAe,IAAY,CAAP,OAAO,KAAC,yBAAD,CAAlC;AAGE,+BAAgB;AAChB,uBAAQ;aAJV;WAJF;SAPF;OAjBF,QAoCM,eApCN;AAPwB;AAAS;AAuDI;AAAb;AAExB,eAAU;AAFc;AAAa;AA3VH;AAGlC,UAAG,UAAK,KAAC,IAAT;AACE,qBAAO;;AAGP,qBAAO,UAAK,OAAO,CAAC,MAAD;AACnB;;AARgC;AAiWI;AAGtC,qBAAW,CAAC,KAAD;AACX,UAAG,mBAAH,EACE,oBADF;AAEA;AANsC;AASC;AAGvC;AAAE;AACF;AAGA,eAAQ,kBAAa,OAAO,CAAC,aAAD;AAC5B,UAAI,MAAM,KAAE,CAAC,CAAb;AAEE,iBAAO,QAAmB,OAAd,aAAQ,SAAC,EAAK,GAAC,CAAD,kBAA1B;AAAI;AAEF,mBAAQ,aAAQ,MAAC,CAAD,CAAG;AACnB,cAAG,MAAM,KAAE,kBAAX,EACE,MAAM,iBAAiB,CAAC,MAAD,CADzB;;AAKF,YAAG,CAAY,CAAC,iBAAD,SAAf;AACE,8BAAuB,IAAT,KAAS,CAAI,UAAM,QAAV;AAEvB,cAAA,iBAAY,KAAK,CAAC,UAAM,QAAP;AACnB,kBAAM,QAAN,GAAe;OAdjB;AARuC;AA0BD;AAEtC,sBAAY,CAAC;AAFyB;AA8DD;AAGrC,sBAAU,kBAAa,SAAC;AAHa;AAYA;AAErC,6BAAU,CAAC;;;;UAAD;AACV,0BAAc;AACd,UAAI,UAAK,KAAC,IAAV;AAEE,qBAAgB,IAAT,KAAS;AAChB,yBAAU;OAHZ;AAKA;AACA;AACA,UAAG,mBAAH,EACE,mBADF;AAEA,qBAAW,CAAC,IAAD;AACX;AACA,UAAG,iBAAY,KAAE,EAAjB,EACE,kBAAa,CAAC,IAAD,CADf;AAEA,sBAAY,CAAC;AAjBwB;AAoBA;AAGrC;AAAE;AAAO;AAAW;AACpB;AAGA;AACA,mBAAY,CAAC;AACb,0BAAe,CAAC,+CAAa,CAAd;AACf,UAAI,WAAK,KAAC,6BAAV;AAEE,cAAK,UAAK,KAAK,CAAC,aAAD,CAAU,GAAC,CAAD;AACzB,YAAG,oBAAe,CAAC,8CAAD,CAAc,KAAC,0BAAjC;AAEE,4BAAa,OAAO,CAAC,GAAD;AACpB,mBAAO,QAAmB,OAAd,aAAQ,SAAC,EAAK,GAAC,CAAD,kBAA1B;AAAI;AACF,gBAAY,aAAQ,MAAC,CAAD,CAAG,OAAZ,QAAX;AAEE,uBAAQ,aAAQ,MAAC,CAAD,CAAG,OAAO,OAAO,CAAC,GAAD;AACjC,kBAAG,aAAQ,MAAC,CAAD,CAAG,OAAO,KAAC,kBAAtB,EACE,aAAY,MADd;aAHF;;;AASF,0BAAU,kBAAa,OAAO,CAAC,cAAS,GAAV;AAC9B,mBAAO,SAAmB,QAAd,aAAQ,SAAC,EAAK,GAAC,CAAD,qBAA1B;AAAI;AACL,gBAAY,aAAQ,MAAC,CAAD,CAAG,OAAZ,QAAX;AAEK,uBAAQ,aAAQ,MAAC,CAAD,CAAG,OAAO,OAAO,CAAC,GAAD;AACjC,kBAAG,aAAQ,MAAC,CAAD,CAAG,OAAO,KAAC,kBAAtB,EACE,aAAY,MADd;aAHL;;;;AAUD,YAAI,aAAQ,KAAC,CAAC,CAAd,EACE,uBAAgB,CAAC,gDAAgD,mBAAC,eAAD,CAAjD,CADlB;AAGA,cAAK;AACL,kBAAM,KAAN,GAAY;AACZ,0BAAa,OAAO,CAAC,GAAD;AAGpB,iBAAO,SAAmB,QAAd,aAAQ,SAAC,EAAK,GAAC,CAAD,qBAA1B;AAAI;AAGF,mBAAQ,kBAAa,OAAO,CAAC,GAAD;AAC5B,cAAY,aAAQ,MAAC,CAAD,CAAG,OAAZ,QAAX,EACE,IAAG,aAAQ,MAAC,CAAD,CAAG,OAAO,KAAC,kBAAtB,EACE,aAAY,MAFhB;;;AAMJ,UAAG,UAAU,KAAE,CAAC,CAAhB,EACE,gBAAU,UADZ;AAEA,sBAAU,CAAC;AACX,sBAAU;AA3D2B;AAjFE;AAGvC;AACA;AAIA,sBAAU,mBAAY;AACtB,eAAO,QAAoB,OAAf,eAAS,SAAC,EAAK,GAAC,CAAD,kBAA3B;AAAI;AAEF,YAAG,eAAS,WAAC,CAAD;AACZ,yBAAY,oBAAoB,CAAC,CAAC,OAAM,CAAC,SAAC,GAAM,cAAS,IAAzB;;AAZK;AA4BF;AAIrC,sBAAU,kBAAa,eAAY,CAAC,aAAD;AACnC,UAAG,CAAI,kBAAW,CAAC,UAAK,eAAN,CAAlB;AAEE,wBAAU,iBAAW,QAAQ,CAAC,UAAK,eAAN;OAI7B,sBAAU,iBAAY;AAXa;AAeE;AAEvC,sBAAU,CAAC;AACX,sBAAU;AAH6B;AA5SO;AAE9C,UAAY,cAAD,QAAX,EACE,0BADF;AAEA,UAAI,eAAS,SAAC,EAAM,KAAE,CAAtB,EACE,MAAM,iBAAY,QAAC,YAAM,CAAC,iBAAD,CAAN,CADrB;AAJ8C;AAgZF;AAE5C,sBAAU,kBAAa,WAAW,CAAQ,UAAC,MAAM,SAAP,CAAR;AAFU;AAKN;AAEf,8CAAC,KAAD;AACvB,6BAAU,CAAC;;;;UAAD;AACV,UAAG,gBAAH,EACE,WAAM,CAAC,cAAC,6BAAD,CAAD,CADR;AAJsC;AAQF;AAEf,4CAAC,KAAD;AACrB,6BAAU,CAAC;;;;UAAD;AACV,UAAG,gBAAH,EACE,WAAM,CAAC,cAAC,6BAAD,CAAD,CADR;AAJoC;AAQC;AAAb;AAExB,UAAG,6BAAwB,IAAe,CAAV,SAAU,IAAG,cAAC,yBAAO,6BAAW,wBAAnB,CAAH,CAA1C;AACO;AACH,YADG,IACH;AAAS,mBAAQ;AACjB,kBAFG,IAEH;AAAa,mBAAQ;AACrB,kBAHG,IAGH,+BAAS,SAAQ,mBAAjB;OAGF,eAA+B,wCAAC,SAAD;AATT;AAAa;AAYK;AAAlB;AAExB,eAAQ,iBAAW,QAAQ,CAAC,MAAM,KAAP;AAC3B,2BAAgB,CAAC,MAAD;AAHQ;AAAkB;AAMN;AAAZ;AAExB,eAAmB,kBAAD;AAFM;AAAY;AAteI;AAEvC,UAAI,KAAJ,GAAW,MAAM;AAFsB;AAKD;AAAf;AAExB,eAAS,MAAM;AAFS;AAAe;AAmSM;AAE7C,UAAG,YAAQ,CAAC,SAAS,KAAV,CAAX,EACE,gBAAU,kBAAa,WAAW,CAAQ,UAAC,SAAS,KAAV,CAAR,CADpC;AAF6C;AAkTL;AAGxC,YAAM,aAAN,GAAuB;AAHiB;AA1GA;AAExC,YAAM,SAAN,GAAiB,IAAI;AAFmB;AA/PF;AAAd;AAGxB,UAAY,kBAAD,QAAX;AACE,iBAAQ,kBAAa,SAAC;AAEtB,qBAAQ;AANc;AAAc;AAiZL;AAEjC;AACA;AACA,UAAU,CAAN,KAAM,GAAE,CAAF,CAAK,IAAU,CAAN,KAAM,GAAE,kBAAa,SAAC,EAAhB,CAAzB,EACE,MAAM,iBAAY,QAAC,aAAS,CAAC,sCAAsC,mBAAC,cAAK,OAAN,CAAvC,CAAT,CADrB;AAEA,sBAAY,KAAM,GAAE,CAAF;AAClB,iBAAM,CAAC,EAAD;AACN;AARiC;AA5lBD;AAAR;AAExB;AAGA,eAAiB,UAAC,mBAAY,SAAb;AACjB,eAAU,kBAAa,WAAW,CAAC,MAAD,CAAQ,GAAC,CAAD;AANlB;AAAQ;AAgoBK;AAGrC;AAGA,eAAO,QAAmB,OAAd,aAAQ,SAAC,EAAK,GAAC,CAAD,kBAA1B;AAAI;AACF,qBAAQ,MAAC,CAAD,CAAG,WAAW,CAAC,IAAD;;AAPa;AA/mBJ;AAGlC;AAGC,UAAG,cAAH;AAEE,qBAAO;AACP,yBAAW;OAHb;AAKA,eAAO,QAAmB,OAAd,aAAQ,SAAC,EAAK,GAAC,CAAD,kBAA1B;AAAI;AACF,qBAAQ,MAAC,CAAD,CAAG;;AACb,2BAAe;AACf,6BAAU,CAAC;;;;UAAD;AACV,6BAAU,CAAC;;;;UAAD;AACV,2BAAe;AACf,0BAAc;AAjBmB;AAoBO;AAGxC,wBAAa;AACb,UAAW,CAAC,kBAAD,SAAgB,IAAkB,CAAb,kBAAa,KAAE,kBAAF,CAA7C,EACE,kBAAa,gBADf;AAJwC;AAqhBV;AAE9B,UAAG,MAAM,WAAU,SAAC,EAAM,GAAE,CAA5B;AAEE,uBAAS,SAAO,CAAC,MAAM,WAAP;AAChB;;AAIA,cAAM;AACN,uBAAS,SAAO,CAAC,MAAM,WAAP;AAChB;;AAEF,mBAAQ,MAAM,MAAd;AAb8B;AA7gBQ;AAGtC,2BAAe,sBAAiB,QAAC,YAAM,CAAC,KAAK,UAAN,CAAN;AACjC;AACA,UAAG,kBAAa,KAAC,IAAjB,EACE,qBAAe,kBADjB;AALsC;AASM;;AA2QD;;AA+IC;AAApB;AAGxB;AAGA,eAAQ;AACR,aAAM;AACA,iBAAD,CAAC;AACJ,UADI,IACJ;AAAS,YAAQ,mBAAH,eAAF,CAAE,CAAL,EACE,OAAS,OAAF,EAAK,mBAAH,CAAkB,YAD7B;AAET,gBAHI,IAGJ;AAAS,YAAQ,mBAAH,eAAF,CAAE,CAAL,EACE,OAAS,OAAF,EAAK,mBAAH,CAAkB,YAD7B;AAET,gBALI,IAKJ,mCAAa,IAAQ,uBAAH,eAAF,CAAE,CAAL,EACF,OAAS,OAAF,EAAK,uBAAH,CAAsB,gBAD1C;AAGF,UAAI,IAAI,KAAC,EAAT;AACE,iBAAU,oCAAwB,CAAC,EAAE,EAAE,IAAL;AAElC,qBAAQ,0BAAY,CAAC,KAAK,EAAE,CAAR;AAnBE;AAAoB;AAsBD;AAAnB;AAIxB;AAEA,eAAQ;AACR,aAAM;AACA,iBAAD,CAAC;AACJ,UADI,IACJ;AAAS,YAAQ,mBAAH,eAAF,CAAE,CAAL,EACG,OAAqB,CAAE,YAD1B;AAET,gBAHI,IAGJ;AAAS,YAAQ,mBAAH,eAAF,CAAE,CAAL,EACG,OAAqB,CAAE,YAD1B;AAET,gBALI,IAKJ,mCAAa,IAAQ,uBAAH,eAAF,CAAE,CAAL,EACD,OAAyB,CAAE,gBADvC;AAGF,UAAI,IAAI,KAAC,EAAT;AACE,iBAAU,+BAAiB,CAAC,EAAD;AAE3B,qBAAQ,2BAAc,CAAC,KAAK,EAAN;AAnBA;AAAmB;AAsBF;AAAjB;AAExB,UAAG,aAAQ,KAAC,6BAAZ;AACE,iBAAQ,0BAAqB,QAAC;AAE9B,qBAAQ,2BAAsB,QAAC;AALT;AAAiB;AA2GR;AAEjC;AACA,uBAAW;AACX,sCAAyB;AACzB,sBAAU,CAAC;AACX,sBAAU;AAN4C;AAArB;AASA;AAEjC;AACA,6BAAU,CAAC;;;;UAAD;AACV,6BAAU,CAAC;;;;UAAD;AACV,sBAAU,CAAC;AACX;AANiC;AA1tBM;AAAf;AAGxB,eAAQ;AACH;AACL,UADK,IACL;AACE,iBAAQ,kCAAsB,CAAC,MAAD;AAChC,gBAHK,IAGL;AACE,iBAAQ,oBAAO,CAAC,IAAI,CAAO,KAAC,MAAR,CAAL;AACjB,gBALK,IAKL;AACE,iBAAe;AACjB,gBAPK,IAOL,gCACE,IAAY,uBAAD,QAAX,EACE,uBAAkB,CAAC,KAAK,OAAO;;;;UAAb,CAFtB;AAXwB;AAAe;AAiBA;AAAf;AAGxB,eAAQ;AACH;AACL,UADK,IACL;AACE,iBAAQ,kCAAsB,CAAC,oBAAD;AAChC,gBAHK,IAGL;AAEE,iBAAQ,IAAI,CAAC,qBAAQ,CAAC,MAAD,CAAT;OAEd,UAPK,IAOL;AACE,iBAAe;AACjB,gBATK,IASL,gCACE,IAAY,uBAAD,QAAX,EACE,uBAAkB,CAAC,KAAK,qBAAO;;;;UAAb,CAFtB;AAbwB;AAAe;AAmBQ;AAAvB;AAExB,UAAG,KAAO,CAAC,MAAD,CAAV;AACE,iBAAQ;AAER,qBAAQ,wBAAmB,CAAC,OAAO,MAAR;AALL;AAAuB;AAivBjB;AAAN;AAGxB;AACA;AAGA,eAAQ;AACR,UAAG,sBAAiB,CAAC,UAAU,UAAU,mBAArB;AACpB,eAAQ,CAAC,KAAE,CAAC,CAAH;AACT,UAAG,MAAH;AAIE,UAAE,KAAF,GAAS;AACT,UAAE,KAAF,GAAS;AACT,yBAAY,CAAC,EAAD;OANd;AAVwB;AAAM;AAoBA;AAAN;AAGxB;AAAG;AACH;AACA;AAGA,eAAQ;AACR,UAAG,mBAAO,QAAC;AACX;AACE,2BAAY,CAAC,EAAE,YAAH;AACZ,iBAAwB,iCAAC,UAAW,UAAW,YAAvB;AACxB,aAAI,sBAAiB,CAAC,UAAU,UAAU,EAArB;AACrB,YAAG,EAAE,KAAE,CAAC,CAAR;AAEY,cAAD,sBAAC,eAAK,CAAC,OAAP;AACT,mBAAO,QAAY,OAAP,CAAC,OAAM,GAAC,CAAD,kBAAnB;AAAI;AACF,gBAAI,CAAC,CAAD,CAAJ,GAAS,iBAAY,sBAAoB,CAAO,cAAC,CAAC,KAAC,CAAD,CAAF,EAAO,UAAM,IAApB;;AAC3C,cAAG,CAAC,OAAM,KAAC,CAAX;AACE,qBAAQ,IAAI,CAAC,CAAD;AAEZ,yBAAQ;SARZ;AAJF;AAeE,SAAE,eAAF,CAAE;AAfJ;AAVwB;AAAM;AA3LM;AAAZ;AAGxB;AAGA,UAAG,WAAM,IAAG,cAAC,kCAAa,mCAAd,CAAZ;AACE,YAAG,gBAAU;AACV,gBAAI,WAAK,KAAC,6BAAV;AACH,YAAG;AACA,gBAAI,aAAQ,IAAC,MAAM,SAAnB;AAEH,YAAG,WAAK,KAAC,+BAAT;AACE,cAAG,MAAM;AAET,kBAAG;;AAIL,YAAG,WAAK,KAAC,+BAAT;AACM,iBAAC;AAEL,kBAAG,MAAM;;AAEb,eAAQ,iBAAY,sBAAoB,CAAC,MAAM,CAAP;AACxC,UAAG,kBAAW,CAAC,MAAD,CAAd,EACE,SAAQ,IADV;AAzBwB;AAAY;AA6BC;AAGrC;AAGA,UAAG,WAAM,IAAG,cAAC,kCAAa,mCAAd,CAAZ;AACE,YAAG,gBAAU;AAEb,gBAAG;AACL,uBAAY,sBAAoB,CAAC,MAAM,EAAE,MAAT;AAEhC,UAAG,CAAU,CAAN,WAAM,IAAG,cAAC,kCAAc,oCAAgB,8BAAU,+BAAzC,CAAH,CAAb,EACE,cAAS,CAAC,gCAAe,KAAhB,CADX;AAGA,sBAAW,CAAC,IAAD;AAf0B;AA7jBG;AAAhB;AAExB;AAEA,eAAU,qBAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B;AACE,aAAa,OAAP,OAAU,qBAAH;AACb,YAAG,YAAH;AAEE,YAAE,cAAC,CAAU,gBAAV;AACH,YAAE,kBAAC,CAAkB,oBAAlB;AACH,YAAE,iBAAC,CAAiB,+BAAjB;AACH,YAAE,YAAC,CAAY,cAAZ;SALL;AAaA,UAAE,MAAM,CAAC,IAAD;AACR,UAAE,UAAC,CAAU,gBAAV;AAhBL;AAkBE,cAAO,eAAP,MAAO;AACP;AAnBF;AALwB;AAAgB;AAieH;AAAb;AAExB,eAAQ,YAAQ,CAAC,SAAS,KAAV;AAFQ;AAAa;AAqIG;AAAhB;AAGxB,UAAG,YAAQ,CAAC,SAAS,KAAV,CAAiB,IAAI,YAAQ,CAAC,SAAS,KAAV,CAAxC;AACE,iBAAiB,UAAC,SAAS,KAAV,CAAiB,GAAS,UAAC,SAAS,KAAV,CAAT;;AAGlC,YAAG,YAAQ,CAAC,SAAS,KAAV,CAAX;AACE,mBAAU,CAAC;AAEb,kBAAG,YAAQ,CAAC,SAAS,KAAV,CAAX;AACE,mBAAU;AAEV,uBAAU;;AAbU;AAAgB;AAjlDxB;;AAmII,+BAAQ,UxC0KlB,+BwC1KkB,CAAR;AAnIJ;AAiJJ;;;AAEQ,iCFrOV,2BEqOU;AACF,+BAnYN,2BAmYM;AACgB;AAChB,+BAtKJ,6BAsKI;AACI;AACL;AACI,kCF+nBF,oCE/nBE;AACD,iCF8nBD,oCE9nBC;AACE,mCF6nBH,oCE7nBG;AACD,kCF4nBF,oCE5nBE;AACE,oCF2nBJ,oCE3nBI;AACD,mCF0nBH,oCE1nBG;AACD,kCFynBF,oCEznBE;AACD,iCFwnBD,oCExnBC;AACC,kCFunBF,oCEvnBE;AACD,iCFsnBD,oCEtnBC;AACG,oCFqnBJ,oCErnBI;AACD,mCFonBH,oCEpnBG;AACC,oCFmnBJ,oCEnnBI;AACD,mCFknBH,oCElnBG;AACC,oCFinBJ,oCEjnBI;AACD,mCFgnBH,oCEhnBG;AACC,oCF+mBJ,oCE/mBI;AACC,qCF+mBN,mCE/mBM;AACF,mCF8mBJ,mCE9mBI;AACG,sCFwnBP,mCExnBO;AACH,mCF2mBH,oCE3mBG;AACA,mCF2mBJ,mCE3mBI;AACK,wCFipBN,sCEjpBM;AACN,kCFknBA,sCElnBA;AACA,kCAxLV,0BAwLU;AACO,yCAtLL,sCAsLK;AACA,yCAtLL,sCAsLK;AAlChB;AAuCU;AAmoBoB;AAE1C,qBAAQ,CAAC,IAAI,SAAL;AAFkC;AAKQ;AAGxC,SAAgB,WAA1B,GAAsC;AAHY;AAMD;AAAnB;AAG9B,eAAkB,GAAgB;AAHJ;AAAmB;AAMV;AAAT;AAE9B,eAAkB,IAAV,MAAU;AAFY;AAAS;AAppBjB;AAUD;AAimBoB;AAEhC,SAAI,OAAO,CAAC,WAAW,CAAZ;AAFqB;AAKQ;AAGhC,SAAI,CAAC,UAAD,CAArB,GAAmC;AAHc;AAMD;AAAnB;AAE7B,eAAyB,GAAI,CAAC,UAAD;AAFA;AAAmB;AAKV;AAAT;AAG7B,eAAiB,IAAT,KAAS;AAHY;AAAS;AAjnBjB;AAQT;;AA5cd,GA8cc,YA9cd;AChBA,wBAIS,mDAJT;;;;AAgBoB,uDAAU,EAAV;AAEL;;AAEA;AACX;AACA;AACA;AACA;AAJW;aACX,4BACA,IAAA,0BACA,IAAA,oCACA,4BAFA;AAFW;;AACX;AACA;AACA;AACA;AAJW;;AAk/Ca;AAE1B,qBAAW;AACX,oBAAU;AACV,yBAAe;AACf,mBAAS;AALiB;AAl/Cb;AACX;AACA;AACA;AACA;AACc;AALH;AAQJ;AA2xBiC;AAG1C,iBAAsB,qCAAtB;AAH0C;AA1IF;;AAAjB;AAGvB;AAEqB;AAAZ;AAEP,iBAAqB,CAAV,eAAU,IAAG,OAAH,CAAY,IAAI,aAAO,CAAC,IAAI,QAAC,mBAAD,CAAL,CAAX;AACjC,YAAG,MAAH;AAEE,oBAAa,IAAD,YAAM,eAAD,IAAL,CAAkB,GAAK,EAAnC;AAL+B,mBAM/B,KAN+B,SAM/B,SAAG,CAAH;SAHF;AAHO;AAAY;AAUM;AAAlB;AAEP;AAAK;AAEL,iBAAU,YAAY,CAAC,UAAW;;;;YAAZ,CAAiB,IAAI,YAAY,CAAC,UAAW;;;;YAAZ,CAAhB;AACvC,YAAG,MAAH,EACE,UAAa,CAAJ,GAAI,GAAE,EAAF,CAAK,GAAE,CAApB,CADF;AALO;AAAkB;AASP;AAAX;AAEP,iBAAqB,CAAV,eAAU,IAAG,OAAH,CAAY,IAAqB,CAAhB,IAAI,QAAC,mBAAD,CAAY,KAAE,CAAF,CAArB;AACjC,YAAG,MAAH,EAHgC,SAI9B,KAJ8B,SAI9B,SAAG,CAAH,CADF;AAHO;AAAW;AAOS;AAApB;AAEP,YAAG,CAAI,kBAAkB,CAAC,UAAW,OAAZ,CAAzB,EAAuD,OAAC,KAAxD;AACA,mBAAW,CAAC,UAAW,GAAZ;AACX,YAAG,CAAI,kBAAkB,CAAC,UAAW,MAAZ,CAAzB,EAAsD,OAAC,KAAvD;AACA,iBAAW,eAAU,GAAE,OAAF;AALd;AAAoB;AAQL;AAAf;AAEP,oBAAW,CAAX;AACA,mBAAU,CAAV;AACA,YAAG,WAAW,CAAC,UAAW,GAAZ,CAAd;AAEE,mBAAU,eAAU,GAAE,OAAF;SAGtB,UAAG,WAAW,CAAC,UAAW,GAAZ,CAAd;AAEE,mBAAU,oBAAoB,CAAC,UAAW,QAAS,MAArB;SAGhC,UAAG,WAAW,CAAC,UAAW,GAAZ,CAAd;AAEE,mBAAU,oBAAoB,CAAC,UAAW,QAAS,MAArB;AAC9B,sBAAW,CAAC,aAAZ;AACA,qBAAU,CAAC,YAAX;SAGA,eAAU;AArBL;AAAe;AAwBR;AAAP;AAEP;AAEA,YAAG,eAAU,IAAG,OAAhB;AACE,cAAK,IAAI,QAAC,mBAAD;AAET,kBAAK;AACP,iBAAa,CAAF,CAAE,KAAE,MAAF,CAAgC,IAApB,CAAF,CAAE,KAAE,GAAF,CAAN,IAAmB,CAAF,CAAE,KAAE,GAAF,CAAN,IAAmB,CAAF,CAAE,KAAE,GAAF,CAAN;AAC7C,wBAAe,CAAE,KAAG,MAApB;AACA,kBAAS,CAAE,KAAE,GAAb;AAVO;AAAO;AAchB;AAAM;AAAK;AAAK;AAAM;AACtB;AAAS;AACT;AACA;AACA;AACA;AACA;AAEA,mBAAY,CAAZ;AACA,UAAG,IAAK,KAAE,EAAV;AAEE,iBAAU;;AAGV,eAAQ;AACR,cAAO;AACP,cAAO;AACP,eAAQ;AACR,kBAAW;AACX,iBAAU;AACV,sBAAe;AACf,gBAAS;AAET,kBAAkB,IAAD;AACjB,oBAAa;AACb,YAAG,CAAI,kBAAkB,CAAC;;;;aAAW;;;;YAAZ,CAAzB,EAAoD,OAAC,KAArD;AACA,sBAAe,WAAW,CAAC;;;;aAAW,GAAZ;AAC1B,YAAG,CAAI,kBAAkB,CAAC;;;;aAAW;;;;YAAZ,CAAzB,EAAmD,OAAC,KAApD;AACA,YAAG,CAAI,OAAO,CAAC;;;;aAAW;;;;aAAa;;;;YAAzB,CAAd;AAEE,cAAG,WAAY,IAAI,CAAI,WAAW,CAAC;;;;eAAW,GAAZ,CAAlC,EAA4D,OAAC,KAA7D;AACA,cAAG,CAAI,kBAAkB,CAAC;;;;eAAW;;;;cAAZ,CAAzB,EAAmD,OAAC,KAApD;AACA,cAAG,CAAI,OAAO,CAAC;;;;eAAW;;;;eAAa;;;;cAAzB,CAAd;AAGE,gBAAG,CAAI,WAAW,CAAC;;;;iBAAW,GAAZ,CAAlB,EACM,OAAC,KADP;AAEA,kBAAO;AACP;AACE,kBAAG,CAAI,YAAY,CAAC;;;;mBAAW;;;;kBAAZ,CAAnB,EAAmD,OAAC,KAApD;AACA,qBAAQ,IAAK,GAAY,CAAV,SAAU,GAAE,GAAF,CAAZ;AACb,oBAAW,UAAJ,GAAI,GAAI,EAAJ;aAHb,QAIa,CAAP,OAAO,CAAC;;;;iBAAW;;;;iBAAa;;;;gBAAzB,CAJb;WANF;SAJF;AAiBA,YAAG,WAAH;AAEE,cAAG,CAAI,eAAe,CAAC;;;;eAAW;;;;eAAS;;;;cAArB,CAAtB,EAA4D,OAAC,KAA7D;SAFF;AAKA,iBAAU,0BAAa,CAAC,KAAM,IAAK,IAAK,KAAM,QAAvB;AACvB,YAAG,MAAH;AAEE,kBAAQ,QAAR,GAAoB;AACpB,kBAAQ,OAAR,GAAmB;AACnB,kBAAQ,YAAR,GAAwB;AACxB,kBAAQ,MAAR,GAAkB;SALpB;;AAhIqB;AAAiB;AA/RH;;AAAd;AAGJ;AAAV;AAEP;AAEA,iBAAU;AACV,gBAAS,uBAAU,CAAC,QAAG,CAAC,OAAD,EAAW,QAAG,CAAC,MAAD,EAAU,EAAG,CAA/B;AACnB,YAA4B,CAAf,CAAR,OAAQ,GAAE,EAAF,CAAe,GAAE,MAAF,CAAU,GAAE,CAAxC;AACE,mBAAU,MAAO,GAAE,KAAF;AAEjB,uBAAU,MAAO,GAAE,KAAF;AATZ;AAAU;AAad;AACH,UADG,IACU,KAAC,wBAAd;AAEE,YAAG,QAAQ,YAAX,EAAiC,OAAC,KAAlC;AAEF,gBALG,IAKU,KAAC,yBAAd,EAGA;eARG,IAQU,KAAC,wBAAd;AACE,YAAG,QAAQ,YAAX;AACE,uBAAY,UAAU,CAAC,eAAU,QAAQ,SAAU,QAAQ,OAArC,CAAtB;;AAIA,uBAAY,uBAAS,CAAC,eAAU,6BAAgB,CAAC,cAAD,CAAU,oBAArC,CAArB;;AAMJ,gBApBG,IAoBU,KAAC,0BAAd,EACE,IAAG,QAAQ,YAAX;AAEE,qBAAY,UAAU,CAAC,eAAU,QAAQ,SAAU,QAAQ,OAArC,CAAtB;AAEA,qBAAY,uBAAS,CAAC,eAAU,CAAC,6BAAgB,CAAC,cAAD,CAAU,oBAAtC,CAArB;OALJ;AAWF,eAAU;AA/Ca;AAAc;AAoFD;AAAb;AAEvB;AAAM;AAAO;AAAK;AAAM;AAAQ;AAAQ;AAExC,UAAG,CAAI,YAAa,IAAW,CAAN,KAAM,KAAE,oBAAM,CAAC,KAAD,CAAR,CAA/B;AACE,iBAAU,cAAS,CAAC,KAAD;;AAGnB,oCAAc,CAAC,MAAO;;;;aAAM;;;;aAAO;;;;aAAK;;;;aAAM;;;;aAAQ;;;;aAAQ;;;;YAAhD;AACd,YAAG,YAAa,IAAkB,CAAd,oBAAM,CAAC,KAAD,CAAQ,KAAG,CAAH,CAAlC;AACE,mBAAU,mBAAM,CAAC,QAAS,mBAAU,GAAT,cAAS,CAAC,KAAD,EAAkB,GAAT,cAAS,CAAC,KAAD,CAA5B,CAAV;AAEhB,uBAAU,mBAAM,CAAC,KAAM,mBAAU,GAAT,cAAS,CAAC,KAAD,CAAV,CAAP;;AAZG;AAAa;AAs0BG;AAAhB;AAGvB,eAAU,uBAAgB,CAAC,MAAO,SAAU,wBAAlB;AAHH;AAAgB;AAqMA;AAAhB;AAGvB;AAEA,eAAU,uBAAgB,CAAC,MAAO,SAAU,SAAU,YAA5B;AALH;AAAgB;AAxFA;AAAhB;AAIvB;AACA;AACA;AAEA,cAAQ;AACR,mBAAY,CAAZ;AACA,UAAG,KAAM,KAAE,EAAX;AAEE,iBAAU;;AAGV,iBAAU;AACV,iBAAU,cAAG,CAAC,IAAK,KAAN;AACb,YAAG,MAAO,GAAE,CAAZ;AAEE,mBAAU,iBAAY,CAAC,eAAI,CAAC,MAAO,EAAG,MAAO,GAAE,CAApB,EAAwB;;;;cAA7B,CAAuC,IAC3D,sBAAiB,CAAC,eAAI,CAAC,MAAO,MAAO,GAAE,CAAF,CAAK,UAApB,EAA6B;;;;eAAU,QAA5C,CAD0C;AAE7D,cAAG,MAAH,EACE,aAAY,QAAS,GAAE,QAAvB,CADF;SAIF,UAAG,iBAAY,CAAC,MAAO;;;;YAAR,CAAf;AAEE,mBAAU;AACV,uBAAY,QAAZ;SAGF,UAAG,sBAAiB,CAAC,MAAO;;;;aAAU,QAAlB,CAApB;AAEE,mBAAU;AACV,uBAAY,QAAZ;SAHF;AAKA,YAAG,MAAH,EACE,SAAU,mBAAc,CAAC,SAAU,SAAU,YAArB,CAD1B;;AApCqB;AAAgB;AA3TP;AAAT;AAEvB;AAAM;AAAO;AAAK;AAAM;AAAQ;AAAQ;AAExC,kCAAc,CAAC,MAAO;;;;WAAM;;;;WAAO;;;;WAAK;;;;WAAM;;;;WAAQ;;;;WAAQ;;;;UAAhD;AACd,UAAO,CAAH,EAAG,KAAG,CAAH,CAAM,IAAG,wBAAhB;AACE,iBAAU,mBAAM,CAAC,sBAAuB,mBAAC,OAAM,SAAQ,SAAQ,IAAvB,CAAxB;AAElB,gBAAG,MAAO,KAAG,CAAb;AACE,iBAAU,mBAAM,CAAC,iBAAkB,mBAAC,OAAM,SAAQ,QAAf,CAAnB;AAEhB,qBAAU,mBAAM,CAAC,YAAa,mBAAC,OAAM,QAAP,CAAd;AAXK;AAAS;AAoNG;AAAZ;AAEvB,eAAU,mBAAY,CAAC,MAAO,SAAU,wBAAlB;AAFC;AAAY;AAtMA;AAAZ;AAGvB;AACA;AAEA,eAAU,sBAAiB,CAAC,MAAO;;;;WAAU,QAAlB;AAC3B,UAAG,MAAH;AAEE,mBAAY,mBAAK,GAAE,QAAF;AACjB,iBAAU,mBAAc,CAAC;;;;aAAU,SAAU,YAArB;AACxB,mBAAY,eAAI,CAAC,QAAD;OAJlB;AAMA,mBAAY,QAAZ;AAbuB;AAAY;AAoZH;AAAT;AAEvB;AAAM;AAAO;AAEb,6BAAU,CAAC,MAAO;;;;WAAM;;;;WAAO;;;;UAArB;AACV,eAAU,mBAAM,CAAC,iBAAkB,mBAAC,OAAM,QAAO,KAAd,CAAnB;AALO;AAAS;AAzLG;;AAAZ;AAEvB;AAEqB;AAAZ;AAEP,iBAAqB,CAAV,eAAU,IAAG,OAAH,CAAY,IAAI,aAAO,CAAC,IAAI,QAAC,mBAAD,CAAL,CAAX;AACjC,YAAG,MAAH;AAEE,oBAAa,IAAD,YAAM,eAAD,IAAL,CAAkB,GAAK,EAAnC;AAL+B,mBAM/B,KAN+B,SAM/B,SAAG,CAAH;SAHF;AAHO;AAAY;AAUM;AAAlB;AAEP;AAAK;AAEL,iBAAU,YAAY,CAAC,UAAW;;;;YAAZ,CAAiB,IAAI,YAAY,CAAC,UAAW;;;;YAAZ,CAAhB;AACvC,YAAG,MAAH,EACE,UAAa,CAAJ,GAAI,GAAE,EAAF,CAAK,GAAE,CAApB,CADF;AALO;AAAkB;AASD;AAAjB;AAEP;AAAO;AAAM;AAAK;AAElB,iBAAU,YAAY,CAAC,UAAW;;;;YAAZ,CACa,IADU,YAAY,CAAC,UAAW;;;;YAAZ,CAAhB,IACnC,YAAY,CAAC,UAAW;;;;YAAZ,CAAhB,IAAqC,YAAY,CAAC,UAAW;;;;YAAZ,CAAhB;AACnC,YAAG,MAAH,EACE,UAAe,CAAN,KAAM,GAAE,IAAF,CAA+B,GAAjB,CAAL,IAAK,GAAE,GAAF,CAAP,GAAmB,CAAJ,GAAI,GAAE,EAAF,CAAN,GAAa,CAAhD,CADF;AANO;AAAiB;AAUN;AAAX;AAEP,iBAAqB,CAAV,eAAU,IAAG,OAAH,CAAY,IAAqB,CAAhB,IAAI,QAAC,mBAAD,CAAY,KAAE,CAAF,CAArB;AACjC,YAAG,MAAH,EAHgC,SAI9B,KAJ8B,SAI9B,SAAG,CAAH,CADF;AAHO;AAAW;AAOJ;AAAP;AAEP;AAEA,YAAG,eAAU,IAAG,OAAhB;AACE,cAAK,IAAI,QAAC,mBAAD;AAET,kBAAK;AACP,iBAAW,CAAE,KAAE,MAAF;AARN;AAAO;AAYhB;AAAM;AAAO;AACb;AACA;AACA;AAEA,mBAAY,CAAZ;AACA,UAAG,IAAK,KAAE,EAAV;AAEE,iBAAU;;AAGV,eAAQ;AACR,gBAAS;AAET,kBAAkB,IAAD;AACjB,oBAAa;AACb,YAAG,CAAI,iBAAiB,CAAC;;;;aAAW;;;;YAAZ,CAAxB,EAAmD,OAAC,KAApD;AACA,sBAAe,WAAW,CAAC;;;;aAAW,GAAZ;AAC1B,YAAG,CAAI,kBAAkB,CAAC;;;;aAAW;;;;YAAZ,CAAzB,EAAqD,OAAC,KAAtD;AACA,YAAG,WAAY,IAAI,CAAI,WAAW,CAAC;;;;aAAW,GAAZ,CAAlC,EAA4D,OAAC,KAA7D;AACA,YAAG,CAAI,kBAAkB,CAAC;;;;aAAW;;;;YAAZ,CAAzB,EAAmD,OAAC,KAApD;AACA,YAAG,CAAI,OAAO,CAAC;;;;YAAD,CAAd,EAAmC,OAAC,KAApC;AAEA,iBAAU,0BAAa,CAAC,KAAM,MAAO,IAAK;;;;YAAnB;AACvB,YAAG,MAAH,EACE,aAAY,QAAZ,CADF;;AA5EqB;AAAY;AAnDH;AAAT;AAEvB,UAAG,CAAI,iBAAY,CAAC,MAAO;;;;UAAR,CAAnB,EACE,MAAM,0BAAa,QAAC,aAAS,CAAC,yBAAoB,mBAAC,QAAD,CAArB,CAAT,CADtB;AAFuB;AAAS;AAYI;AAAb;AAEvB,UAAG,CAAI,qBAAgB,CAAC,MAAO;;;;UAAR,CAAvB,EACE,MAAM,0BAAa,QAAC,aAAS,CAAC,yBAAoB,mBAAC,QAAD,CAArB,CAAT,CADtB;AAFuB;AAAa;AANA;AAAb;AAEvB,UAAG,CAAI,uBAAgB,CAAC,MAAO;;;;WAAQ,YAAhB,CAAvB,EACE,MAAM,0BAAa,QAAC,aAAS,CAAC,yBAAoB,mBAAC,QAAD,CAArB,CAAT,CADtB;AAFuB;AAAa;AAYJ;AAAT;AAEvB,UAAG,CAAI,iBAAY,CAAC,MAAO;;;;UAAR,CAAnB,EACE,MAAM,0BAAa,QAAC,aAAS,CAAC,yBAAoB,mBAAC,QAAD,CAArB,CAAT,CADtB;AAFuB;AAAS;AA9yBxB,oBAA2B,MAAO,MAAO,MAAO,MAAO,MAAO,MAAO,KAArE;AACE,sBAA4B,MAAO,MAAO,MAAO,MAAO,MAAO,MAAO,MAC9E,MAAO,MAAO,MAAO,MAAO,KADpB;AAHgC;AAAnB;AAMvB;AAAG;AAAG;AACN;AAAG;AAAI;AAAG;AAEV,6BAAU,CAAC,MAAO;;;;WAAG;;;;WAAG;;;;UAAd;AACV,6BAAU,CAAC,MAAO;;;;WAAG;;;;WAAI;;;;WAAG;;;;UAAlB;AACV,eAAU,mBAAM,CAAC,sCACf,mBAAS,GAAR,QAAQ,CAAC,sBAAS,CAAC,KAAD,KAAV,EAAoB,IAAa,GAAV,UAAU,CAAC,KAAD,EAAK,IAAG,IAAG,KAAI,GAAzD,CADc;AAXO;AAAmB;AA4F/B,sBAEoB;AAJI;AAAZ;AAOvB,eAAU,yBAAoB,CAAC,MAAO,qBAAa,IAArB;AAPP;AAAY;AAwBxB,wBAEoB;AAJO;AAAf;AAOvB,eAAU,yBAAoB,CAAC,MAAO,uBAAa,KAArB;AAPP;AAAe;AA7E3B,uBACT,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAC5D,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAC5D,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAC5D,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAC5D,GAAK,EAAI,EAAI,EAAI,EAAI,EAAI,EAAI,EAAI,EAAI,EAAI,EAAG,GAAI,GAAI,GAAI,GAAI,GAC5D,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAC5D,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAC5D,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,EARnD;AAJwB;;AAAZ;AAEvB;AAYqB;AAAZ;AAEP,cAAM,EAAE,CAAC,CAAD,CAAR,GAA4C,CAA5B,WAAW,CAAC,KAAK,QAAK,CAAJ,GAAI,GAAE,CAAF,KAAL,cAAN,CAAiB,IAAI,CAAJ,CAAO,GACpB,CAA5B,WAAW,CAAC,KAAK,QAAK,CAAJ,GAAI,GAAE,CAAF,KAAL,cAAN,CAAiB,KAAI,CAAJ,CADoB;AAEnD,mBAAU,CAAV;AACA,YAAY,CAAJ,CAAJ,GAAI,GAAE,CAAF,CAAI,IAAG,MAAH,CAAW,IAAoB,CAAf,KAAK,QAAK,CAAJ,GAAI,GAAE,CAAF,KAAL,CAAU,KAAG,GAAH,CAA3C;AAL4C,gBAO1C,KAP0C,MAO1C,SAAG,CAAH;AACA,gBAAM,EAAE,CAAC,CAAD,CAAR,GAAoD,CAAP,CAA5B,WAAW,CAAC,KAAK,QAAK,CAAJ,GAAI,GAAE,CAAF,KAAL,cAAN,CAAiB,IAAI,CAAJ,CAAO,GAAgC,CAA5B,WAAW,CAAC,KAAK,QAAK,CAAJ,GAAI,GAAE,CAAF,KAAL,cAAN,CAAiB,KAAI,CAAJ,CAAhC,CAAwC,GAAI,IAAJ;SAH9F;AAKA,YAAY,CAAJ,CAAJ,GAAI,GAAE,CAAF,CAAI,IAAG,MAAH,CAAW,IAAoB,CAAf,KAAK,QAAK,CAAJ,GAAI,GAAE,CAAF,KAAL,CAAU,KAAG,GAAH,CAA3C;AAV4C,gBAY1C,KAZ0C,MAY1C,SAAG,CAAH;AACA,gBAAM,EAAE,CAAC,CAAD,CAAR,GAAoD,CAAP,CAA5B,WAAW,CAAC,KAAK,QAAK,CAAJ,GAAI,GAAE,CAAF,KAAL,cAAN,CAAiB,IAAI,CAAJ,CAAO,GAAG,WAAW,CAAC,KAAK,QAAK,CAAJ,GAAI,GAAE,CAAF,KAAL,cAAN,CAAd,CAAgC,GAAI,IAAJ;SAHtF;AAVO;AAAY;AAkBrB;AAAG;AAAG;AACN;AACA;AAEU,YAAD,sBAAC,SAA6B,UAAL,CAAP,KAAD,OAAQ,GAAE,CAAF,CAAK,GAAI,CAAJ,CAAO,GAAE,CAAvC;AACT,eAAiB,KAAD;AAChB,YAAO;AACP,eAAS,QAAkB,iBAAL,CAAP,MAAO,GAAE,CAAF,CAAK,GAAI,CAAJ,mBAA3B;AAAI;AAEF,uBAAU,YAAY,CAAS,CAAL,CAAF,CAAE,GAAE,CAAF,CAAK,GAAE,CAAF,CAAI,GAAE,CAAF,CAAK;;;;YAAlB,CAAtB;AACA,YAAK;AACL,eAAM,CAAE,GAAE,CAAV;AAEE,gBAAM,CAAC,GAAD,CAAN,GAAe,MAAM,EAAE,CAAC,CAAD;AACnB,aAAJ,IAAG;AACC,WAAJ,IAAG;AACC,WAAJ,IAAG;;;AAGG,YAAD,sBAAC,SAAQ,GAAT;AAnDc;AAAY;AAsDG;AAAf;AAEvB,eAAU,iBAAY,CAAC,KAAD;AAFC;AAAe;AAyYJ;AAEpC;AACA;AAHoC;AAiBC;AAAZ;AAEvB,eAAU,oBAAe,CAAC,gBAAW,CAAC,UAAD,CAAZ;AAFF;AAAY;AA7hB1B;;;;;;AAAD,oBACN,mBACA,kBAFM;AAJyB;AAAV;AASvB;AACA;AACA;AAEA,YAAa,WAAC,KAAD;AACH,YAAD,oBAAC,OAAQ,GAAI,GAAE,CAAf;AACT,iBAAY;AACZ,eAAiB,QAAS,OAAJ,GAAI,GAAE,CAAF,kBAA1B;AAAI;AAEF,cAAM,iBAAN,OAAO,aAAa,QAAQ,CAAC,YAAD,CAAa,CAAC,KAAK,CAAC,SAAD,CAAY,KAAI,CAAtB,CAAnC;AACN,cAAM,iBAAN,OAAgB,CAAT,QAAS,GAAE,CAAF,MAAQ,QAAQ,CAAC,YAAD,CAAa,CAAC,KAAK,CAAC,SAAD,CAAY,GAAI,GAAtB,CAAvC;AACF,gBAAJ,IAAc;;AApBO;AAAU;AAxDH;AAAP;AAEvB,eAAa,CAAF,CAAE,IAAG,GAAH,CAAQ,IAAO,CAAF,CAAE,IAAG,GAAH,CAAP;AAFE;AAAO;AAgFO;AAAd;AAIvB,eAAU;AACV,UAAmB,CAAR,MAAD,OAAS,GAAE,CAAF,CAAK,IAA4B,CAAvB,MAAM,QAAQ,MAAD,WAAP,CAAiB,KAAG,GAAH,CAApD,EACE,SAAU,MAAO,GAAE,GADrB;AAEA,eAAU,MAAO,GAAE,WAAF;AAPM;AAAc;AAoJM;;AAApB;AAGvB;AAEsB;AAEpB,cAAM,iBAAN,OAAW,CAAJ,GAAI,GAAE,CAAF,MAAQ,WAAW,CAAC,MAAM,EAAE,CAAC,CAAD,CAAI,KAAI,CAAjB,CAAxB;AACN,cAAM,iBAAN,OAAW,CAAJ,GAAI,GAAE,CAAF,MAAQ,WAAW,CAAsB,CAAP,CAAZ,MAAM,EAAE,CAAC,CAAD,CAAI,IAAI,CAAJ,CAAO,GAAgB,CAAZ,MAAM,EAAE,CAAC,CAAD,CAAI,KAAI,CAAJ,CAAhB,CAAwB,GAAI,IAAlD,CAAxB;AAEN,YAAG,QAAS,GAAE,CAAd;AACE,gBAAM,iBAAN,OAAW,CAAJ,GAAI,GAAE,CAAF,MAAQ,GAAb;AAEA,cAAN,MAAM,iBAAN,OAAW,CAAJ,GAAI,GAAE,CAAF,MAAQ,WAAW,CAAsB,CAAP,CAAZ,MAAM,EAAE,CAAC,CAAD,CAAI,IAAI,CAAJ,CAAO,GAAgB,CAAZ,MAAM,EAAE,CAAC,CAAD,CAAI,KAAI,CAAJ,CAAhB,CAAwB,GAAI,IAAlD,CAAxB;AAER,YAAG,QAAS,GAAE,CAAd;AACE,gBAAM,iBAAN,OAAW,CAAJ,GAAI,GAAE,CAAF,MAAQ,GAAb;AAEA,cAAN,MAAM,iBAAN,OAAW,CAAJ,GAAI,GAAE,CAAF,MAAQ,WAAW,CAAC,MAAM,EAAE,CAAC,CAAD,CAAI,GAAI,IAAjB,CAAxB;AAbY;AAiBtB;AAAG;AAAG;AACN;AAEA,eAAU;AACV,UAAoB,UAAR,WAAC,KAAD,CAAQ,GAAI,CAAJ,CAAO,GAAE,CAAF;AAC3B,UAAiB,CAAR,WAAC,KAAD,CAAQ,GAAI,CAAJ,CAAM,GAAE,CAAzB,EAAoC,CAAJ,IAAO,CAAvC;AACU,YAAD,oBAAC,OAAQ,CAAT;AACT,UAAK;AACL,eAAS,QAAmB,iBAAR,WAAC,KAAD,CAAQ,GAAI,CAAJ,mBAA5B;AAAI;AAEF,cAAM,EAAE,CAAC,CAAD,CAAR,GAAe,KAAK,CAAI,CAAF,CAAE,GAAE,CAAF,CAAK,GAAE,CAAX;AACpB,cAAM,EAAE,CAAC,CAAD,CAAR,GAAe,KAAK,CAAS,CAAL,CAAF,CAAE,GAAE,CAAF,CAAK,GAAE,CAAF,CAAI,GAAE,CAAf;AACpB,cAAM,EAAE,CAAC,CAAD,CAAR,GAAe,KAAK,CAAS,CAAL,CAAF,CAAE,GAAE,CAAF,CAAK,GAAE,CAAF,CAAI,GAAE,CAAf;AACpB,cAAM,EAAE,CAAC,CAAD,CAAR,GAAe;AACf,oBAAY,CAAC,OAAQ,EAAG,CAAZ;AACR,SAAJ,IAAO;;AAET,UAAK;AAEL,YAAM,EAAE,CAAC,CAAD,CAAR,GAAe;AACf,YAAM,EAAE,CAAC,CAAD,CAAR,GAAe;AACf,YAAM,EAAE,CAAC,CAAD,CAAR,GAAe;AACf,YAAM,EAAE,CAAC,CAAD,CAAR,GAAe;AAEf,eAA+C,MAAxB,CAAR,WAAC,KAAD,CAAQ,GAAiB,CAAR,WAAC,KAAD,CAAQ,GAAI,CAAJ,CAAjB,CAAwB,GAAE,CAAF,EAAa,mBAAC,KAAD,sBAA5D;AAAI;AAEF,cAAM,EAAE,CAAC,CAAD,CAAR,GAAoB,KAAK,CAAC,CAAE,GAAE,CAAL;AACrB,SAAJ,IAAG;AACH,YAAG,CAAE,KAAQ,WAAC,KAAD,CAAb,EACE,YAAY,CAAC,OAAc,WAAC,KAAD,CAAQ,GAAI,CAAJ,CAAO,CAA9B,CADd;;AAIF,UAAG,CAAI,OAAQ,IAAoB,CAAR,MAAD,OAAS,IAAG,CAAH,CAAnC;AAEE,YAAG,MAAM,QAAQ,MAAD,OAAS,GAAE,CAAF,IAAhB,CAAqB,KAAE,GAAhC;AACY,gBAAD,oBAAC,OAAe,MAAD,OAAS,GAAE,CAA1B;AAEX,kBAAG,MAAM,QAAQ,MAAD,WAAP,CAAiB,KAAE,GAA5B,EACY,MAAD,oBAAC,OAAe,MAAD,OAAS,GAAE,CAA1B,CADX;OALF;AAQA,eAAU;AA9Da;AAAoB;AA0SP;AAAb;AAGvB,eAAU,kBAAkB,CAAC,CAAD;AAHL;AAAa;AAjDA;AAAb;AAGvB,eAAU,kBAAkB,CAAC,CAAD;AAHL;AAAa;AAz0B3B;AA4GM;AAef,2BAAU,CAAC,GAAD;AAfK;AAhBf;AACA;AAzHF,mBA2Hc;AASM,+BAAG;AAyYd;;;cACL;AADK;;;eACL;AADK;;AACL;AADK;;;AACG,oDAAE,CAAF;AAAR,sBAAQ,yBAAR;AADK;AAlZK;AAw9Cd;AAIE,+BAAqC;AACrC,+BAAuB;AALzB;AAnlDA,GA2Hc,YA3Hd;ACAA,oCAES,uDAFT;;;;AAWyB;AA+HoB;AAAZ;AAG/B;AACA;AAAM;AAEN,UAAG,GAAI,KAAE,IAAT,EAAsB,OAAC,IAAvB;AACA,qBAAS,CAAC,UAAW;;;;WAAM;;;;UAAlB;AAYT,cAAS,GAAe;AACxB,UAAG,YAAQ,CAAC,KAAD,CAAX;AAEE,YAAG,OAAQ,KAAE,EAAb;AACE,mBAAU;AAEV,uBAAU,iBAAY,CAAC,QAAmB,KAApB;;AAIxB,YAAG,OAAQ,KAAE,EAAb;AACE,mBAAU;AAKR,uBAAU;;AAnCe;AAAY;AAuCQ;AAGnD;AAHmD;AA9DD;AAAnB;AAG/B,eAAU,iBAAY,CAAC,UAAqB,GAAtB;AAHS;AAAmB;AAxG3B;AAQH;AAgFmB;AAAX;AAE5B;AAEA,UAAK;AACL,UAAG,YAAQ,CAAC,CAAD,CAAX;AACE,iBAAU;AAEZ,gBAAM,aAAM,CAAC,CAAD,CAAI,IAAM,kBAAW,CAAC,CAAD,CAAjC;AACE,iBAAU;AAEV,qBAAoB;AAXM;AAAW;AAhFnB;;AAYC;AAgNmB;AAAX;AAE7B;AAEA,UAAK;AACL,UAAG,WAAO,CAAC,CAAD,CAAV;AACE,iBAAU;AAEZ,gBAAM,aAAM,CAAC,CAAD,CAAI,IAAM,kBAAW,CAAC,CAAD,CAAjC;AACE,iBAAU;AAEV,qBAAoB;AAXO;AAAW;AAhNnB;;AAKC;AA2NiB;AAEvC;AACA,uBAAY,IAAZ;AAH4D;AAArB;AA3NjB;;AAEF,+BAAO,U1CyhBjB,+B0CzhBiB,CAAP;AAED;AAJG;AAUA;;AAGL;AA6K4B;;AAZP;AAAb;AAEpB;AACH,UADG,IACH;AAAW,iBAAU;AACrB,gBAFG,IAEH;AAAW,iBAAU;;AAIrB,iBAAiC,yDAAC,SAAD;;AARV;AAAa;AALI;AAAjB;AAEzB,eAAU,4BAAuB,QAAC;AAFT;AAAiB;AAqBL;AAErC;AAEA,UAAG,WAAO,CAAC,IAAD,CAAV;AACE,oBAAsB;AAEtB,wBAAsB,IAAT,KAAS,CAAI,IAAJ;AACxB,mBAAQ,SAAR;AARqC;AAnCK;AAAjB;AAGzB,eAAU;AACV,UAAM,YAAQ,CAAC,MAAD,CAAd;AAEE,YAAG,CAAI,0BAAS,iBAAiB,CAAO,KAAC,MAAD,CAAU;;;;YAAjB,CAAyB,IAAI,eAA9D,EACE,MAAM,0BAAa,QAAC,aAAS,CAAC,iDAAoB,mBAAO,QAAC,MAAR,CAArB,CAAT,CADtB;OAIF,UAAM,YAAQ,CAAC,MAAD,CAAd,EACE,SAAmB,cAAC,MAAD,CADrB;AAVyB;AAAiB;AALM;AAAvB;AAEzB,eAAU,0BAAS,cAAc,CAAC,OAAQ,KAAT;AAFR;AAAuB;AAzI/B;;AAaC,+BFoMJ,wCEpMI;AACD;AACE;AAES,yCJihCV,mCIjhCU;AACP,kCJu+BF,oCIv+BE;AACD,iCJs+BD,oCIt+BC;AACE,mCJq+BH,oCIr+BG;AACD,kCJo+BF,oCIp+BE;AACE,oCJm+BJ,oCIn+BI;AACD,mCJk+BH,oCIl+BG;AACD,kCJi+BF,oCIj+BE;AACD,iCJg+BD,oCIh+BC;AACC,kCJ+9BF,oCI/9BE;AACD,iCJ89BD,oCI99BC;AACG,oCJ69BJ,oCI79BI;AACD,mCJ49BH,oCI59BG;AACC,oCJ29BJ,oCI39BI;AACD,mCJ09BH,oCI19BG;AACC,oCJy9BJ,oCIz9BI;AACD,mCJw9BH,oCIx9BG;AACC,oCJu9BJ,oCIv9BI;AACC,qCJu9BN,mCIv9BM;AACF,mCJs9BJ,mCIt9BI;AACG,sCJg+BP,mCIh+BO;AACH,mCJm9BH,oCIn9BG;AACA,mCJm9BJ,mCIn9BI;AAvCL;AAjDnB,mBA2Fc;AA+BK;AAEjB;AAEA,UAAK,cAAG,CAAC,IAAK,KAAN;AACR,UAAG,CAAE,KAAE,CAAP;AAEE,kBAAS,KAAT;AACA,qBAAY,EAAZ;;AAGA,kBAAS,eAAI,CAAC,MAAO,EAAG,CAAE,GAAE,CAAf,CAAb;AACA,qBAAY,eAAI,CAAC,MAAO,CAAE,GAAE,CAAF,CAAK,UAAf,CAAhB;;AAZe;AA/BL;AA3Fd,GA2Fc,sBA3Fd;ACAA,8BAIS,0BAJT;;;AA2BgB;AA+BiB;AAEZ,iDAAC,kCAClB,mBAAgB,GAAf,oBAAe,CAAC,KAAD,EAAS,WAAzB,CADiB;AAFoD;AAAxC;AA/BjB;AAkDO;AAAd;AAGP,aAAa,WAAO,CAAC,KAAD;AAHb;AAAc;AASO;AAArB;AAGP,aAAmB,KAAM;AAHlB;AAAqB;AASC;AAAtB;AAGP,aAAmB,KAAO;AAHnB;AAAsB;AASP;AAAf;AAGP,QAAG,CAAO,YAAQ,CAAC,KAAD,CAAlB,EACE,MAAM,mBAAc,QAAC,YAAM,CAAC,MAAO,QAAR,CAAN,CADvB;AAEA,aAAgB,KAAC,KAAD;AALT;AAAe;AAWC;AAAhB;AAGP,aAAU;AAEZ;AAEE,QAAW,CAAP,MAAO,IAAG,KAAH,CAAU,IAAoB,CAAhB,MAAQ,CAAC,KAAD,CAAQ,KAAG,QAAH,CAAzC,EACE,MAAM,mBAAc,QAAC,YAAM,CAAC,MAAO,SAAR,CAAN,CADvB;AAPO;AAAgB;AAeA;AAAhB;AAEP,aAAU,qBAAgB,CAAC,KAAD;AAFnB;AAAgB;AAWA;AAAhB;AAGP,aAAU;AACV,QAAG,CAAO,gBAAS,CAAC,KAAD,CAAnB,EACE,MAAM,mBAAc,QAAC,YAAM,CAAC,MAAO,SAAR,CAAN,CADvB;AAGF;AAPS;AAAgB;AAcC;AAAjB;AAGP,aAAU;AACV,QAAG,CAAO,YAAQ,CAAC,KAAD,CAAlB,EACE,MAAM,mBAAc,QAAC,YAAM,CAAC,MAAO,QAAR,CAAN,CADvB;AAGF;AAPS;AAAiB;AAyCF;AAAf;AAGP,aAAU,sBAAiB,CAAC,KAAD;AAHpB;AAAe;AASD;AAAd;AAGP,aAAiB;AAHV;AAAc;AAkBA;AAAd;AAGP,aAAU,KAAM,IAAE,IAAF;AAHT;AAAc;AAtDK;AAAnB;AAGP,aAAU;AAHH;AAAmB;AASJ;AAAf;AAGP,aAAU;AAHH;AAAe;AASA;AAAf;AAGP,aAAU;AAHH;AAAe;AA2BC;AAAhB;AAGP,aAAU;AAHH;AAAgB;AApJD;AAExB;AAFwB;AAlExB;ACAA,8BAIS,uBAJT;;;AAkDe;AAAN;AAGP,aAAU;AAHH;AAAM;AASA;AAAN;AAGP,aAAU;AAHH;AAAM;AAgBA;AAAN;AAGP,aAAU;AAHH;AAAM;AASA;AAAN;AAGP,aAAU;AAHH;AAAM;AAkBA;AAAN;AAGP,aAAiB,UAAC,KAAD;AAHV;AAAM;AASA;AAAN;AAGP,aAAgB,KAAC,KAAD;AAHT;AAAM;AAlBC;AAAP;AAGP,aAAiB,EAAC,KAAD;AAHV;AAAO;AA2BE;AAAT;AAGP,aAAa,YAAQ,CAAC,KAAD;AAHd;AAAS;AA2BD;AAAR;AAGP,aAAa,WAAO,CAAC,KAAD;AAHb;AAAQ;AAlBE;AAAV;AAGP,aAAa,gBAAS,CAAC,KAAD;AAHf;AAAU;AASH;AAAP;AAGP,aAAa,gBAAS,CAAC,KAAD;AAHf;AAAO;AAkBE;AAAT;AAGP,aAAmB;AAHZ;AAAS;AASD;AAAR;AAGP,aAAkB;AAHX;AAAQ;AAkBQ;AAAhB;AAEP,QAAG,cAAS,CAAC,OAAD,CAAZ;AACE,eAAU,WAAM,CAAC,OAAD;AAEhB,mBAAU;AALL;AAAgB;AAQC;AAAjB;AAEP,QAAG,eAAU,CAAC,OAAD,CAAb;AACE,eAAU,WAAM,CAAC,OAAD;AAEhB,mBAAU;AALL;AAAiB;AAQA;AAAjB;AAEP,QAAG,YAAO,CAAC,OAAD,CAAV;AACE,eAAU,YAAO,CAAC,OAAD;AAEjB,mBAAU;AALL;AAAiB;AAzBN;AAAX;AAGP,aAAU,MAAS,KAAK,CAAC,KAAD;AAHjB;AAAW;AA9KpB;ACAA,kCAIS,2CAJT;;;AAegB;;AACK;;AAEK,mDAFL,+CAEK;AACJ;;AAEK,oDAFL,gDAEK;AAMJ;;;AAEnB;AAFmB;AA2DiB;AAEtC,mBAAM,CAAC,EAAD;AAFiC;AAAD;AALA;AAEtC,mBAAS;AAFmD;AAAtB;AAtDjB;AASF;;AAGC;;;AAElB;AAFkB;AAsDiB;AAErC,4BAAkB;AAFoD;AAAjC;AAtDjB;AAQO;;;AAEzB;AAFyB;;;;;AAqDiB;AAE5C,4BAAkB;AAFqE;AAA3C;AArDjB;AAQJ;;;AAErB;AAFqB;;;;;AAoDiB;AAExC;AACA;AAEA,yBAAe,mEAAa,QAAC;AAE7B,aAAQ,uBAAW,QAAC;AACpB;AAIE,iBAAS,QAAgB,OAAX,IAAI,SAAC,EAAM,GAAE,CAAF,kBAAzB;AAAI;AACF,0BAAW,IAAI,CAAC,IAAI,KAAC,CAAD,CAAL;;AALnB;AAOE,YAAK,eAAL,IAAK;AAPP;AARoE;AAA5B;AAmBA;AAE5B,eAAZ,KAAY;AACZ;AAHwC;AAvEjB;AASD;;;AAEpB;AAFoB;;;;;AA4E0B;AAGhD,6BAAmB;AAH6B;AANT;AAGvC,6BAAmB;AAFyB;AADL;AAtEjB;AAUF;;AA1EtB;ACAA,qCAIS,oDAJT;;;AAiBY;;;AAGR;AAHQ;;;;;AA2Fe;AAAP;AAGlB,eAAiB,cAAC,SAAK,KAAN;AAHC;AAAO;AASA;AAAP;AAGlB,eAAU,MAAS,KAAK,CAAC,SAAD;AAHN;AAAO;AAlCE;AAG3B,kBAAkB,IAAV,MAAU;AAHiC;AAAxB;AAgBA;AAM3B;AAN2B;AAvCH;AAGxB;AAEA,eAAsB,KAAP,WAAC,cAAD,CAAO,GAAE,CAAF,EAAW,aAAjC;AAAI;AACF,mBAAM,CAAC,cAAI,CAAC,CAAD,CAAL;;AANgB;AAlBF;AAGtB,eAAK,KAAL,GAAa;AAHS;AASU;AAGhC,eAAK,KAAL,GAAa;AAHmB;AAuBH;AAAX;AAGlB,eAAU,SAAI,eAAe,CAAC,GAAD;AAHX;AAAW;AA+DJ;AAGzB;AAHyB;AAxHf;AAjBZ;ACAA,2BAIS,UAJT;;;AAkBuB;AAAd;AAGP;AAEA,QAAK,UAAU,CAAC,CAAD;AACf,aAAU,CAAI,KAAO,CAAC,CAAD;AACrB,QAAG,MAAH,EACE,UAAe,cAAC,CAAD,CAAf,CADF;AAPO;AAAc;AAqBH;AAEpB;AAFoB;AAvCpB,GASc,KATd;AnBAA,gCAIS,0GAJT;;;AAaqB;AAi+BiB;AAKpC;AALoC;AAj+BjB;AAKH;AA6Xe;AAAP;AAExB,eAAU;AAFc;AAAO;AAKI;AAAX;AAExB,eAAqB;AAFG;AAAW;AAYG;AAAd;AAGxB,kBAAW,0BAAS,aAAa,CAAC,KAAD,CAAjC;AACA,eAAU;AAJc;AAAc;AAPA;AAAd;AAGxB,gBAAS,0BAAS,aAAa,CAAC,OAAD,CAA/B;AACA,eAAU;AAJc;AAAc;AAvYtB;AASC;AA8Ye;AAAP;AAEzB,eAAU;AAFe;AAAO;AAKI;AAAX;AAEzB,eAAqB;AAFI;AAAW;AAuBG;AAAd;AAEzB,UAAG,KAAH;AACE,oBAAW,MAAX;AAEA,wBAAW,OAAX;AACF,eAAU;AANe;AAAc;AAlBA;AAAd;AAGzB,UAAG,qBAAQ,CAAC,QAAS,MAAV,CAAX;AAEE,kBAAS,IAAT;AACA,iBAAU;OAGZ,UAAG,qBAAQ,CAAC,QAAS,OAAV,CAAX;AAEE,kBAAS,KAAT;AACA,iBAAU;OAGV,eAAU;AAfa;AAAc;AAxZtB;AASH;AA4ae;AAAP;AAEtB,eAAU;AAFY;AAAO;AAKI;AAAX;AAEtB,eAAqB;AAFC;AAAW;AAaG;AAAd;AAEtB,kBAAW,qBAAQ,CAAC,KAAD,CAAnB;AACA,eAAU;AAHY;AAAc;AARA;AAAd;AAEtB;AAEA,eAAU,wBAAW,CAAC,QAAS;;;;UAAV;AACrB,gBAAc,CAAD,MAAb;AALsB;AAAc;AAtbtB;AASI;AA6be;AAAP;AAE1B,eAAU;AAFgB;AAAO;AAKI;AAAX;AAE1B,eAAqB;AAFK;AAAW;AAWG;AAAd;AAG1B,eAAU;AACV,kBAAW,0BAAS,cAAc,CAAC,MAAO,KAAR,CAAlC;AAJ0B;AAAc;AANA;AAAd;AAG1B,eAAU,0BAAS,iBAAiB,CAAC,QAAS,KAAV;AAHV;AAAc;AAvctB;AASJ;AAsuBe;AAAP;AAEtB,eAAU;AAFY;AAAO;AAKI;AAAX;AAEtB,eAAqB;AAFC;AAAW;AAUG;AAAd;AAEtB,eAAU;AACV,kBAAW,0BAAS,UAAU,CAAC,KAAD,CAA9B;AAHsB;AAAc;AALA;AAAd;AAEtB,eAAU,0BAAS,aAAa,CAAC,QAAS,KAAV;AAFV;AAAc;AAhvBtB;AASI;AA8ce;AAAP;AAE1B,eAAU;AAFgB;AAAO;AAKI;AAAX;AAE1B,eAAqB;AAFK;AAAW;AAndnB;AAcF;AA2de;AAAP;AAExB,eAAU;AAFc;AAAO;AAKI;AAAX;AAExB,eAAqB;AAFG;AAAW;AAWG;AAAd;AAGxB,kBAAW,+BAAW,CAAC,KAAD,CAAtB;AACA,eAAU;AAJc;AAAc;AANA;AAAd;AAGxB,eAAU,kCAAc,CAAC,QAAS,KAAV;AAHA;AAAc;AAretB;AASF;AA2ee;AAAP;AAEtB,eAAU;AAFY;AAAO;AAKI;AAAX;AAEtB,eAAqB;AAFC;AAAW;AAkBG;AAAd;AAGtB,eAAU;AACC,iBAAC,KAAD;AACT,UADS,IACT;AAAI,oBAAW,KAAX;AACJ,gBAFS,IAET;AAAI,oBAAW,eAAI,CAAC,MAAO,EAAG,EAAX,CAAf;;AAEJ,iBAAU;;AARU;AAAc;AAZA;AAAd;AAGtB,eAAU;AACC,iBAAC,OAAD;AACT,UADS,IACT;AAAI,kBAAS,OAAT;AACJ,gBAFS,IAET;AAAI,kBAAS,eAAI,CAAC,QAAS,EAAG,EAAb,CAAb;;AAEJ,iBAAU;;AARU;AAAc;AAtftB;AAcG;AA+sBe;AAAP;AAEzB,eAAU;AAFe;AAAO;AAKI;AAAX;AAEzB,eAAqB;AAFI;AAAW;AAuCG;AAAd;AAGzB;AAEA,UAAK,yBAAoB;AACzB,eAAU;AACO,iBAAZ,mBAAY,CAAC,KAAD;AACf,UADe,IACf;AACE,oBAAW,MAAX;AACF,gBAHe,IAGf;AACE,iBAAU,CAAC,aAAY,eAAe,CAAQ,EAAC,KAAD,WAAS,OAAjB;AACxC,gBALe,IAKf;AACE,iBAAU,CAAC,WAAU,eAAe,CAAU,UAAC,KAAD,EAAS,OAAnB;AACtC,gBAPe,IAOf;AACE,iBAAU,CAAC,YAAW,eAAe,CAAO,cAAC,KAAD,EAAS,OAAhB;AACvC,gBATe,IASf;AAEI,iBAAU,CAAC,YAAW,eAAe,CAAO,KAAC,KAAD,CAAS,OAAhB;AACrC,oBAAW,iBAAY,CAAC,aAAD,CAAvB;;AAGJ,iBAAU;;AAtBa;AAAc;AAjCA;AAAd;AAGzB;AACA;AACA;AACA;AACA;AACA;AAEA,UAAK,yBAAoB;AACzB,eAAU;AACV,UAAG,OAAQ,KAAE,MAAb;AACE,kBAAS,IAAT;AAEF,gBAAG,CAAC,aAAY,eAAe,CAAC,QAAS;;;;UAAV,CAA/B;AACE,kBAAS,SAAT;AAEF,gBAAG,CAAC,WAAU,eAAe,CAAC,QAAS;;;;UAAV,CAA7B;AACE,kBAAS,UAAT;AAEF,gBAAG,CAAC,WAAU,eAAe,CAAC,QAAS;;;;UAAV,CAA7B;AACE,kBAAS,UAAT;AAEF,gBAAG,CAAC,YAAW,eAAe,CAAC,QAAS;;;;UAAV,CAA9B;AACE,kBAAS,WAAT;AAEF,gBAAG,CAAC,YAAW,eAAe,CAAC,QAAS;;;;UAAV,CAAuB,IAAI,mBAAc,CAAC;;;;UAAD,CAAvE;AACE,kBAAS,WAAT;AAEA,qBAAU;AA9Ba;AAAc;AA1tBtB;AAcF;AAkgBe;AAAP;AAEvB,eAAU;AAFa;AAAO;AAKI;AAAX;AAEvB,eAAqB;AAFE;AAAW;AAWG;AAAd;AAGvB,kBAAW,qBAAQ,CAAC,KAAD,CAAnB;AACA,eAAU;AAJa;AAAc;AANA;AAAd;AAGvB,eAAU,wBAAW,CAAC,QAAS,KAAV;AAHE;AAAc;AA5gBtB;AASA;AAkhBe;AAAP;AAEvB,eAAU;AAFa;AAAO;AAKI;AAAX;AAEvB,eAAqB;AAFE;AAAW;AAWG;AAAd;AAGvB,kBAAW,qBAAQ,CAAC,KAAD,CAAnB;AACA,eAAU;AAJa;AAAc;AANA;AAAd;AAGvB,eAAU,wBAAW,CAAC,QAAS,KAAV;AAHE;AAAc;AA5hBtB;AASA;AAkiBe;AAAP;AAEvB,eAAU;AAFa;AAAO;AAKI;AAAX;AAEvB,eAAqB;AAFE;AAAW;AAYG;AAAd;AAGvB,kBAAW,qBAAQ,CAAC,KAAD,CAAnB;AACA,eAAU;AAJa;AAAc;AANA;AAAd;AAGvB,eAAU,wBAAW,CAAC,QAAS,KAAV;AAHE;AAAc;AA7iBtB;AAcA;AA4jBe;AAAP;AAEvB,eAAU;AAFa;AAAO;AAKI;AAAX;AAEvB,eAAqB;AAFE;AAAW;AAaG;AAAd;AAEvB,kBAAW,qBAAQ,CAAC,KAAD,CAAnB;AACA,eAAU;AAHa;AAAc;AARA;AAAd;AAEvB;AAEA,eAAU,wBAAW,CAAC,QAAS;;;;UAAV;AACrB,gBAAiB,EAAC,CAAD,oBAAjB;AALuB;AAAc;AAtkBtB;AASC;AA6kBe;AAAP;AAExB,eAAU;AAFc;AAAO;AAKI;AAAX;AAExB,eAAqB;AAFG;AAAW;AAYG;AAAd;AAIxB,kBAAW,KAAX;AACA,eAAU;AALc;AAAc;AAPA;AAAd;AAGxB,gBAAS,OAAT;AACA,eAAU;AAJc;AAAc;AAvlBtB;AASF;AA+lBe;AAAP;AAEtB,eAAU;AAFY;AAAO;AAKI;AAAX;AAEtB,eAAqB;AAFC;AAAW;AAWG;AAAd;AAGtB,eAAU;AACV,kBAAW,0BAAS,UAAU,CAAC,KAAD,CAA9B;AAJsB;AAAc;AANA;AAAd;AAGtB,eAAU,0BAAS,aAAa,CAAC,QAAS,KAAV;AAHV;AAAc;AAzmBtB;AASE;AAsNe;AAAP;AAExB,eAAU;AAFc;AAAO;AAKI;AAAX;AAExB,eAAqB;AAFG;AAAW;AA3NnB;AAMH;AA+yBe;AAAP;AAErB,eAAU;AAFW;AAAO;AAKI;AAAX;AAErB,eAAqB;AAFA;AAAW;AApzBnB;AAQO;AAGhB;AAHgB;;AAKlB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAvBkB;;;;;;;;;;;;;;;;;;;;;;;AAqIsB;AAE1C,oBAAU,wCAAa,QAAC,YAAM,CAAC,KAAD,CAAN;AACxB,uBAAa,gFAA0B,QAAC;AAExC,yBAAe,qBAAgB,QAAC;AAChC,0BAAgB,sBAAiB,QAAC;AAClC,uBAAa,mBAAc,QAAC;AAC5B,2BAAiB,uBAAkB,QAAC;AACpC,uBAAa,mBAAc,QAAC;AAC5B,yBAAe,qBAAgB,QAAC;AAChC,wBAAc,oBAAe,QAAC;AAC9B,wBAAc,oBAAe,QAAC;AAC9B,wBAAc,oBAAe,QAAC;AAC9B,wBAAc,oBAAe,QAAC;AAC9B,yBAAe,qBAAgB,QAAC;AAChC,uBAAa,mBAAc,QAAC;AAC5B,yBAAe,qBAAgB,QAAC;AAChC,sBAAY,kBAAa,QAAC;AAC1B,uBAAa,mBAAc,QAAC;AAC5B,2BAAiB,uBAAkB,QAAC;AACpC,0BAAgB,sBAAiB,QAAC;AAElC,kBAAO,CAAC,sBAAS,CAAC,gBAAW,QAAC,EAAb,EAAoB,gBAA9B;AACP,kBAAO,CAAC,sBAAS,CAAC,iBAAY,QAAC,EAAd,EAAqB,iBAA/B;AACP,kBAAO,CAAC,sBAAS,CAAC,cAAS,QAAC,EAAX,EAAkB,cAA5B;AACP,kBAAO,CAAC,sBAAS,CAAC,kBAAa,QAAC,EAAf,EAAsB,kBAAhC;AACP,kBAAO,CAAC,sBAAS,CAAC,cAAS,QAAC,EAAX,EAAkB,cAA5B;AACP,kBAAO,CAAC,sBAAS,CAAC,gBAAW,QAAC,EAAb,EAAoB,gBAA9B;AACP,kBAAO,CAAC,sBAAS,CAAC,eAAU,QAAC,EAAZ,EAAmB,eAA7B;AACP,kBAAO,CAAC,sBAAS,CAAC,eAAU,QAAC,EAAZ,EAAmB,eAA7B;AACP,kBAAO,CAAC,sBAAS,CAAC,eAAU,QAAC,EAAZ,EAAmB,eAA7B;AACP,kBAAO,CAAC,sBAAS,CAAC,eAAU,QAAC,EAAZ,EAAmB,eAA7B;AACP,kBAAO,CAAC,sBAAS,CAAC,gBAAW,QAAC,EAAb,EAAoB,gBAA9B;AACP,kBAAO,CAAC,sBAAS,CAAC,cAAS,QAAC,EAAX,EAAkB,cAA5B;AACP,kBAAO,CAAC,sBAAS,CAAC,gBAAW,QAAC,EAAb,EAAoB,gBAA9B;AACP,kBAAO,CAAC,sBAAS,CAAC,aAAQ,QAAC,EAAV,EAAiB,aAA3B;AACP,kBAAO,CAAC,sBAAS,CAAC,cAAS,QAAC,EAAX,EAAkB,cAA5B;AACP,kBAAO,CAAC,sBAAS,CAAC,kBAAa,QAAC,EAAf,EAAsB,kBAAhC;AACP,kBAAO,CAAC,sBAAS,CAAC,iBAAY,QAAC,EAAd,EAAqB,iBAA/B;AAvCmC;AA0CC;AAEjC,eAAV,KAAU;AACH,eAAP,KAAO;AACM,eAAb,KAAa;AACC,eAAd,KAAc;AACJ,eAAV,KAAU;AACE,eAAZ,KAAY;AACC,eAAb,KAAa;AACH,eAAV,KAAU;AACI,eAAd,KAAc;AACJ,eAAV,KAAU;AACE,eAAZ,KAAY;AACD,eAAX,KAAW;AACA,eAAX,KAAW;AACA,eAAX,KAAW;AACA,eAAX,KAAW;AACC,eAAZ,KAAY;AACF,eAAV,KAAU;AACE,eAAZ,KAAY;AACH,eAAT,KAAS;AApBkC;AAvFP;AAGpC,iBAAM,IAAI,CAAC,IAAK,KAAN;AACV,oBAAS,IAAI,CAAC,KAAD;AAJuB;AA8BA;AAAR;AAE5B,eAAU;AAFkB;AAAQ;AAKM;AAAR;AAElC,UAAG,cAAU,KAAE,IAAf;AAEE,8CAAa,yBAAoB,QAAC;AAClC,sBAAS;OAHX;AAKA,eAAU;AAPwB;AAAQ;AAtBK;AAE/C,UAAG,cAAU,KAAG,IAAhB;AAEY,iBAAV,KAAU;AACV,8CAAa;OAHf;AAF+C;AASf;AAAJ;AAE5B,UAAG,WAAM,YAAY,CAAC,sBAAS,CAAC,KAAD,CAAV,CAArB;AACE,iBAA8B,WAAM,SAAC,sBAAS,CAAC,KAAD,CAAV;AAEpC,qBAAU;AALgB;AAAI;AAfK;AAErC;AACA;AAHqC;AA/FjB;AAgFD;AAAZ;AAEP,aAAU,0BAAa,CAAC,IAAK,IAAM,KAAQ,cAAC,4CAAD,CAApB;AACvB,aAAU,GAAc,GAAP,MAAF,GAAW,GAAF;AAHjB;AAAY;AAbE;AAAd;AAEP;AAEA,aAAU;AACV,UAAc,SAAD;AACb,QAAQ,CAAJ,GAAI,IAAG,CAAH,CAA0B,IAAR,CAAP,SAAG,QAAC,CAAD,CAAI,KAAE,GAAF,CAAZ,IAAkC,CAAT,SAAG,QAAC,OAAD,CAAM,KAAE,GAAF,CAAhD;AAEE,cAAO,eAAI,CAAC,UAAK,EAAG,GAAI,GAAE,CAAf,CAAX;AACA,cAAO,0BAAa,CAAC,UAAK,KAAQ,IAAM,cAAC,4CAAD,CAApB,CAApB;KAHF;AANO;AAAc;AA9PvB,GAoPc,iBApPd;AoBAA,qCAIS,kEAJT;;;;AAiByB;;AAGH;AA2LoB;AAAZ;AAE5B,eAAU,6CAAoB,WAAS;AAFX;AAAY;AAaC;AAAb;AAE5B,eAAU,6CAAoB,WAAS,WAAU,eAAe,CAC9D,uCAAgB,CAAC,KAAD,EAAS,OADqC;AAFpC;AAAa;AARA;AAAb;AAE5B;AAEA,eAAU,6CAAoB,WAAS,WAAU,eAAe,CAAC,QAAS;;;;UAAV;AAChE,gBAAS,QAAT;AAL4B;AAAa;AAhMrB;AAQA;AAwMoB;AAAZ;AAE5B,eAAU,6CAAoB,WAAS;AAFX;AAAY;AAaC;AAAb;AAE5B,eAAU,6CAAoB,WAAS,WAAU,eAAe,CAC9D,uCAAgB,CAAC,KAAD,EAAS,OADqC;AAFpC;AAAa;AARA;AAAb;AAE5B;AAEA,eAAU,6CAAoB,WAAS,WAAU,eAAe,CAAC,QAAS;;;;UAAV;AAChE,gBAAS,QAAT;AAL4B;AAAa;AA7MrB;AAoBE;AAiOoB;AAAZ;AAE9B,eAAU,6CAAoB,WAAS;AAFT;AAAY;AAcC;AAAb;AAE9B,eAAU,6CAAoB,WAAS,aAAY,eAAe,CAChE,uCAAgB,CAAC,KAAD,EAAS,OADuC;AAFpC;AAAa;AATA;AAAb;AAE9B;AAEA,eAAU,6CAAoB,WAAS,aAAY,eAAe,CAAC,QAAS;;;;UAAV;AAClE,UAAG,MAAH,EACE,UAAS,SAAT,CADF;AAL8B;AAAa;AAtOrB;AAQD;AA+OoB;AAAZ;AAE7B,eAAU,6CAAoB,WAAS;AAFV;AAAY;AAcC;AAAb;AAE7B,eAAU,6CAAoB,WAAS,YAAW,eAAe,CAC/D,wCAAiB,CAAC,KAAD,EAAS,OADqC;AAFpC;AAAa;AATA;AAAb;AAE7B;AAEA,eAAU,6CAAoB,WAAS,YAAW,eAAe,CAAC,QAAS;;;;UAAV;AACjE,UAAG,MAAH,EACE,UAAS,WAAT,CADF;AAL6B;AAAa;AApPrB;AAkBE;AAmPoB;AAAZ;AAE/B,eAAU,6CAAoB,WAAS;AAFR;AAAY;AAcC;AAAb;AAI/B,UAAM,YAAQ,CAAC,KAAD,CAAd;AAEE,iBAAU;AACV,oBAAiB,KAAC,KAAlB;OAIF,eAAU,6CAAoB,WAAS,cAAa,eAAe,CACvD,sCAAe,CAAC,KAAD,EAAU,OAD8B;AAXpC;AAAa;AATA;AAAb;AAE/B;AAEA,eAAU,6CAAoB,WAAS,cAAa,eAAe,CAAC,QAAS;;;;UAAV;AACnE,UAAG,MAAH,EACE,UAAS,0CAAmB,CAAC,SAAD,CAA5B,CADF;AAL+B;AAAa;AAxPrB;AAQJ;AA4doB;AAAZ;AAE3B,eAAU,6CAAoB,WAAS;AAFZ;AAAY;AAcC;AAAb;AAI3B,UAAM,YAAQ,CAAC,KAAD,CAAd;AAEE,iBAAU;AACV,oBAAiB,KAAC,KAAlB;OAIF,eAAU,6CAAoB,WAAS,UAAS,eAAe,CACvD,sCAAe,CAAC,KAAD,EAAU,OAD8B;AAXpC;AAAa;AATA;AAAb;AAE3B;AAEA,eAAU,6CAAoB,WAAS,UAAS,eAAe,CAAC,QAAS;;;;UAAV;AAC/D,UAAG,MAAH,EACE,UAAS,sCAAe,CAAC,SAAD,CAAxB,CADF;AAL2B;AAAa;AAjerB;AAQA;AAkQoB;AAAZ;AAE3B,eAAU,6CAAoB,WAAS;AAFZ;AAAY;AAcC;AAAb;AAI3B,UAAM,YAAQ,CAAC,KAAD,CAAd;AAEE,iBAAU;AACV,oBAAiB,KAAC,KAAlB;OAIF,eAAU,6CAAoB,WAAS,UAAS,eAAe,CACvD,sCAAe,CAAC,KAAD,EAAU,OAD8B;AAXpC;AAAa;AATA;AAAb;AAE3B;AAEA,eAAU,6CAAoB,WAAS,UAAS,eAAe,CAAC,QAAS;;;;UAAV;AAC/D,UAAG,MAAH,EACE,UAAS,sCAAe,CAAC,SAAD,CAAxB,CADF;AAL2B;AAAa;AAvQrB;AAQE;AAyRoB;AAAZ;AAE7B,eAAU,6CAAoB,WAAS;AAFV;AAAY;AAiBC;AAAb;AAE7B;AAEA,cAAS,qCAAc,CAAC,KAAD;AACvB,eAAU,6CAAoB,WAAS,YAAW,eAAe,CAAC,oBAAO,OAAR;AACjE,kBAAW,qCAAY,CAAC,aAAD,CAAvB;AAN6B;AAAa;AAZA;AAAb;AAE7B;AACA;AAEA,oBAAe;AACf,6CAAc,CAAC;;;;UAAD;AACd,eAAU,6CAAoB,WAAS,YAAW,eAAe,CAAC,YAAa;;;;UAAd;AACjE,UAAG,MAAH,EACE,UAAS,uCAAgB,CAAC,KAAD,CAAzB,CADF;AAR6B;AAAa;AA9RrB;AAQA;AA6SoB;AAAZ;AAE7B,eAAU,6CAAoB,WAAS;AAFV;AAAY;AAeC;AAAb;AAE7B,eAAU,6CAAoB,WAAS,YAAW,eAAe,CAC/D,qCAAY,CAAC,sCAAe,CAAC,KAAD,CAAhB,EAA0B,OADyB;AAFpC;AAAa;AAVA;AAAb;AAE7B;AAEA,eAAU,6CAAoB,WAAS,YAAW,eAAe,CAAC,QAAS;;;;UAAV,CAC/D,IAAI,uCAAc,CAAC;;;;UAAD,CAAlB;AACF,UAAG,MAAH,EACE,UAAS,WAAT,CADF;AAN6B;AAAa;AAlTrB;AAQQ;AA6fqB;AAAb;AAErC,eAAU,6CAAoB,WAAS,YAAW,eAAe,CAAC,sCAAe,CAAC,KAAD,EAAS,OAAzB;AAF5B;AAAa;AA7frB;AAKV;AAuToB;AAAZ;AAE3B,eAAU,6CAAoB,WAAS;AAFZ;AAAY;AAeC;AAAb;AAE3B,eAAU,6CAAoB,WAAS,YAAW,eAAe,CAC/D,qCAAY,CAAC,sCAAe,CAAC,KAAD,CAAhB,EAA0B,OADyB;AAFtC;AAAa;AAVA;AAAb;AAE3B;AAEA,eAAU,6CAAoB,WAAS,YAAW,eAAe,CAAC,QAAS;;;;UAAV,CAC/D,IAAI,uCAAc,CAAC;;;;UAAD,CAAlB;AACF,UAAG,MAAH,EACE,UAAS,WAAT,CADF;AAN2B;AAAa;AA5TrB;AAQA;AAsUoB;AAAZ;AAE3B,eAAU,6CAAoB,WAAS;AAFZ;AAAY;AAsBC;AAAb;AAG3B,eAAU,6CAAoB,WAAS,UAAS,eAAe,CAAC,sCAAe,CAAC,KAAD,EAAS,OAAzB;AAHpC;AAAa;AAbA;AAAb;AAE3B;AAEA,eAAU,6CAAoB,WAAS,UAAS,eAAe,CAAC,QAAS;;;;UAAV;AAC/D,UAAG,MAAH,EAEE,UAAS,SAAT,CAFF;AAL2B;AAAa;AA/UrB;AAQG;AAscoB;AAAZ;AAE9B,eAAU,6CAAoB,WAAS;AAFT;AAAY;AAqBC;AAAb;AAE9B,eAAU,6CAAoB,WAAS,aAAY,eAAe,CAEhE,MAIA,OANgE;AAFpC;AAAa;AAXA;AAAb;AAE9B;AAEA,eAAU,6CAAoB,WAAS,aAAY,eAAe,CAAC,QAAS;;;;UAAV;AAJpC;AAAa;AAhdrB;AAQH;;;AAGjB;AAHiB;;;;;AAuXoB;AAAZ;AAE3B,eAAU;AAFiB;AAAY;AAqBC;AAAb;AAE3B;AACA;AAEA,kBAAa,uCAAgB,CAAC,KAAD;AAC7B,eAAU;AACV,eAAS,QAA6B,OAAxB,cAAS,SAAQ,SAAC,EAAM,GAAE,CAAF,kBAAtC;AAAI;AACF,YAAG,SAAU,KAAE,cAAS,SAAQ,WAAC,CAAD,CAAG,OAAnC;AAEE,mBAAU,6CAAoB,WAAS,YAAW,eAAe,CAC/D,cAAS,SAAQ,WAAC,CAAD,CAAG,OACpB,OAF+D;AAGjE;SALF;;AARyB;AAAa;AAhBA;AAAb;AAE3B;AACA;AAEA,oBAAe;AACf,eAAU;AACV,UAAG,uCAAc,CAAC;;;;UAAD,CAAjB,EACE,SAAS,QAA6B,OAAxB,cAAS,SAAQ,SAAC,EAAM,GAAE,CAAF,kBAAtC;AAAI;AACF,YAAG,WAAY,KAAE,cAAS,SAAQ,WAAC,CAAD,CAAG,MAArC;AAEE,oBAAS,cAAS,SAAQ,WAAC,CAAD,CAAG,OAA7B;AACI,iBAAC;SAHP;OAFJ;AAP2B;AAAa;AAVJ;AAEpC,uBAAa;AAFmD;AAA5B;AAlXjB;AA/IrB,mBA4Jc;AAKmB;AAE/B;AAEA,cAAS,6CAAoB;AAG7B,WAAK,WAAU,cAAf,GAAgC,yBAAoB,QAAC;AACrD,WAAK,WAAU,cAAf,GAAgC,yBAAoB,QAAC;AACrD,WAAK,WAAU,cAAf,GAAgC,yBAAoB,QAAC;AAGrD,WAAK,aAAY,cAAjB,GAAkC,2BAAsB,QAAC;AAGzD,WAAK,YAAW,cAAhB,GAAiC,0BAAqB,QAAC;AAEvD,WAAK,cAAa,cAAlB,GAAmC,0BAAqB,QAAC;AAMzD,WAAK,cAAa,cAAlB,GAAmC,4BAAuB,QAAC;AAC3D,WAAK,UAAS,cAAd,GAA+B,wBAAmB,QAAC;AACnD,WAAK,UAAS,cAAd,GAA+B,wBAAmB,QAAC;AAGnD,WAAK,YAAW,cAAhB,GAAiC,0BAAqB,QAAC;AACvD,WAAK,YAAW,cAAhB,GAAiC,0BAAqB,QAAC;AAGvD,WAAK,YAAW,cAAhB,GAAiC,0BAAqB,QAAC;AAMvD,WAAK,UAAS,cAAd,GAA+B,wBAAmB,QAAC;AAGnD,WAAK,aAAY,cAAjB,GAAkC,2BAAsB,QAAC;AAzC1B;AALnB;AAwdd;AACE;AADF;AApnBA,GA4Jc,oBA5Jd;ACAA,0BAIS,qBAJT;;;AAUa;AAgE2B;AAAb;AAEzB;AACA;AACA;AAEA,WAAM,cAAG,CAAC,IAAK,KAAN;AACT,YAAc,KAAD;AACb,eAAU,GAAS,GAAH,EAAF,GAAO,CAAF;AACnB,eACM,CAAH,EAAG,GAAE,CAAF,CAGJ,IAFS,CAAJ,GAAI,IAAG,CAAH,CAAT,IACgB,CAAX,KAAK,QAAC,OAAD,CAAM,KAAE,GAAF,CAAhB,IACY,CAAP,MAAO,GAAE,CAAF,CAAZ;AACF,UAAG,MAAH;AAEE,iBAAQ,eAAI,CAAC,MAAO,EAAG,EAAG,GAAE,CAAhB,CAAZ;AACA,gBAAO,eAAI,CAAC,MAAO,EAAG,GAAE,CAAF,CAAK,MAAhB,CAAX;OAHF;AAdyB;AAAa;AAqBI;AAG1C;AAAG;AAEH,YAAc,cAAD;AACb,UAAK;AACL,aAAM,CAAE,GAAE,CAAV;AAEE,YAAG,cAAc,QAAC,KAAD,CAAI,KAAE,GAAvB,EACE,KADF;AAEI,SAAJ,IAAG;;AAEL,UAAG,CAAE,GAAE,CAAP;AAEE,oBAAW,eAAI,CAAC,eAAgB,EAAG,CAAE,GAAE,CAAxB,CAAf;AACA,kBAAS,eAAI,CAAC,eAAgB,CAAE,GAAE,CAAF,CAAK,UAAxB,CAAb;;AAIA,oBAAW,EAAX;AACA,kBAAS,cAAT;;AArBwC;AAwFR;AAAT;AAEzB,UAAG,CAAE,KAAE,EAAP,EACM,OAAC,QADP;AAEA,eAAa,CAAF,CAAE,KAAE,MAAF,CAAuB,IAAP,CAAF,CAAE,KAAE,GAAF,CAAN,IAAmB,CAAF,CAAE,KAAE,KAAF,CAAN;AAJX;AAAS;AAzJK;AAAd;AAIzB,eAAU;AACV,UAAmB,CAAR,MAAD,OAAS,GAAE,CAAF,CAAK,IAA4B,CAAvB,MAAM,QAAQ,MAAD,WAAP,CAAiB,KAAG,GAAH,CAApD,EACE,SAAU,MAAO,GAAE,GADrB;AAEA,eAAU,MAAO,GAAE,WAAF;AAPQ;AAAc;AAoCA;AAAd;AAKzB,eAAU,UAAK,CAAQ,CAAN,KAAM,GAAE,KAAF,CAAiB,GAAE,KAA3B;AALU;AAAc;AANA;AAAd;AAEzB,eAAU,mBAAM,CAAC,iBAAgB,mBAAuB,EAAtB,mBAAc,CAAC,KAAD,CAAQ,GAAE,IAAzB,CAAjB;AAFS;AAAc;AAlD5B;AAVb;ACAA,kCAIS,uIAJT;;;;AAwckB;AAvEI;AAiBF;AApXR;;AAq0BE;AA8FD;AAyFQ;AAz9BF;;;AAGf;AAEA;AACA;AAGA;AATe;;;;;AAuoEiB;AAQlC;AARkC;AAvoEjB;;;AAyBF;;;AAIb;AAJa;;;;;AA0nFe;AAK9B,UAAG,WAAO,KAAE,IAAZ,EAAqB,MAArB;AAEA,UAAG,MAAO,KAAE,qCAAZ;AACmB,sBAAC,GAAD,CAAK,QAAtB,GAAiC;AAEjC,YAAiB,cAAC,GAAD,CAAK,QAAtB,GAAiC;AACnC;AAX8B;AAPE;AAEhB,iDAAC,MAAO,KAAG,IAAX;AAChB,oBAAU;AAHkD;AAA5B;AALA;AAEhC,mBAAM,CAAC,IAAD;AAF2B;AAAD;AA9mFjB;AAoBL;;;AAER;AACa;AAHL;;;;;AA4mEe;AAAP;AAElB,eAAU;AAFQ;AAAO;AALQ;AAAf;AAElB,eAAU;AAFQ;AAAe;AAgBD;AAAd;AAElB,eAAU;AAFQ;AAAc;AALH;AAAX;AAElB,eAAqB;AAFH;AAAW;AAUE;AAAb;AAElB,eAAU;AAFQ;AAAa;AA5nErB;AA+EgB;AA3DV;;;AAGd;AAHc;;;;;AAqnEqB;AAAb;AAExB,UAAG,gBAAY,KAAE,IAAjB;AAEE,2BAAe,+BAA0B,QAAC;AAC1C,wBAAW,UAAX,GAAwB;OAH1B;AAKA,eAAU;AAPc;AAAa;AANJ;AAErB,eAAZ,KAAY;AACZ;AAHiC;AA/mEjB;AAWA;;;AAEd;AACA;AAHc;;AAYI;AA2nFe;AAAP;AAE5B,eAAqC,YAAK,CAAC,KAAD;AAFd;AAAO;AA3nFf;AASN;;;AAEZ;AAFY;;;;;AA+mDiB;AAAT;AAEtB,eAAiC;AAFX;AAAS;AAKE;AAAX;AAEtB,eAAqB;AAFC;AAAW;AAKE;AAAb;AAEtB,eAAU,IAAI,QAAC;AACf,UAAG,IAAI,UAAC,EAAO,KAAG,IAAlB;AAEE,YAAG,IAAI,UAAC,EAAM,OAAO,KAAG,EAAxB;AACE,mBAAU,IAAI,UAAC,EAAM,OAAa,GAAJ,GAAF,GAAQ,IAAI,QAAC,EAAP;AAEpC,kBAAG,IAAI,UAAC,EAAM,WAAW,KAAG,EAA5B,EACE,SAAU,IAAI,UAAC,EAAM,WAAiB,GAAJ,GAAF,GAAQ,IAAI,QAAC,EAD/C;OALF;AAHsB;AAAa;AAzBJ;AAK/B,sBAAY,yBAAoB,QAAC;AALD;AAAD;AASA;AAEtB,eAAT,KAAS;AACT;AAH+B;AAjBA;AAAT;AAEtB,eAAU,qBAAgB,QAAC;AAC3B,mBAAO,MAAI,CAAC,MAAD;AACX,YAAM,MAAN,GAAe;AACf,YAAM,OAAN,GAAgB;AALM;AAAS;AAxlDjB;;;AAmBI;AAslFe;AAAP;AAE1B,eAAmC,YAAK,CAAC,KAAD;AAFd;AAAO;AAtlFf;AAQQ;;;AAIxB;AAJwB;;;;;AAskEuB;AAAf;AAElC,eAAU;AAFwB;AAAe;AAYR;AAAP;AAElC,UAAG,cAAS,KAAG,IAAf;AACE,iBAAU,mBAAM,CAAC,iBAAkB,mBAAS,GAAR,cAAQ,QAAC,EAAV,CAAnB;AAEhB,qBAAU;AALsB;AAAO;AAaO;AAAd;AAElC,eAAU;AAFwB;AAAc;AALH;AAAX;AAElC,eAAqB;AAFa;AAAW;AAUE;AAAb;AAElC,UAAG,cAAS,KAAG,IAAf;AACE,iBAAU,mBAAM,CAAC,iBAAkB,mBAAS,GAAR,cAAQ,gBAAT,CAAnB;AAEhB,qBAAU;AALsB;AAAa;AApmErB;AAed;;AAGE;;;AAEZ;AACA;AAEA;AALY;AAquCiB;AAAT;AAEtB,eAAyC;AAFnB;AAAS;AAVA;AAE/B;AAFgC;AAAD;AAKA;AAE/B;AAF+B;AAUI;AAAb;AAEtB,UAAG,gBAAO,KAAG,IAAb;AACE,iBAAU,gBAAM,gBAAqB,GAAJ,GAAF,GAAQ,IAAI,MAAN;AAErC,qBAAU,IAAI;AALM;AAAa;AA1uCrB;;;AA2BI;AAwhFe;AAAP;AAE1B,eAAmC,YAAK,CAAC,KAAD;AAFd;AAAO;AAxhFf;AASE;;;AAEL;AACb;AACA;AACA;AAIa;AAIb;AAEA;AAfkB;;;;;AA67CgB;AAOpC,mBAAS;AAP2B;AAxBO;AAAf;AAE5B,UAAG,UAAa,KAAG,IAAnB;AACE,iBAAU,UAAY;AAEtB,qBAAU;AALgB;AAAe;AARL;AAAV;AAE5B,UAAG,UAAM,KAAG,IAAZ;AACE,iBAAU,UAAK,QAAC;AAEhB,qBAAU;AALgB;AAAU;AA0BM;AAE5C,2BAAiB;AACjB,8BAAoB;AAHwB;AAlCL;AAAX;AAE5B,UAAG,UAAa,KAAE,IAAlB;AACE,iBAAqB;AAErB,qBAAU,UAAY,YAAC;AALG;AAAW;AAwBC;AAAZ;AAE5B,eAAU;AAFkB;AAAY;AAKJ;AAAR;AAE5B,eAAU;AAFkB;AAAQ;AAl7ChB;;;AAiCA;AAw6CiB;AAAT;AAE5B,eAAqC;AAFT;AAAS;AAKD;AAGpC,UAAG,aAAS,KAAG,EAAf;AAEE,qBAAgB,kBAAM,UAAC,EAAM,eAAe,CAAC,aAAD,CAA5C;AACA,YAAG,UAAa,KAAE,IAAlB,EACE,MAAM,4BAAuB,QAAC,aAAS,CAAC,gDACtC,mBAAC,iBAAgB,GAAN,kBAAM,QAAC,GAAM,aAAxB,CADqC,CAAT,CADhC;AAGA,wBAAY;OANd;AAUA,UAAG,UAAY,cAAc,KAAE,IAA/B,EACE,MAAM,0BAAqB,QAAC,YAAM,CAAC,UAAD,CAAN,CAD9B;AAboC;AA76ChB;AASQ;AA0+FiB;AAAT;AAEpC,eAAuC;AAFH;AAAS;AAKD;AAG5C,UAAG,aAAS,KAAG,EAAf;AAEE,qBAAgB,kBAAM,UAAC,EAAM,eAAe,CAAC,aAAD,CAA5C;AACA,wBAAY;OAHd;AAH4C;AA/+FhB;AAYJ;AAwhFe;AAAP;AAEhC,eAAyC,YAAK,CAAC,KAAD;AAFd;AAAO;AAxhFf;AAWQ;AAq+Fe;AAAP;AAExC,eAAiD,YAAK,CAAC,KAAD;AAFd;AAAO;AAr+Ff;AASR;;;AAET;AAFS;AA24FoB;AAAZ;AAEhC,UAAG,gBAAO,KAAG,IAAb;AACE,iBAAU,gBAAM,QAAC;AAEjB,qBAAU;AALoB;AAAY;AAQA;AAAZ;AAEhC,eAAU;AAFsB;AAAY;AAKJ;AAAR;AAEhC,eAAU;AAFsB;AAAQ;AAx5FhB;;;AAeQ;;;AAEjB;AAFiB;;;;;AAg5FiB;AAAT;AAExC,eAAuC;AAFC;AAAS;AA8BD;AAEhD,UAAG,eAAW,KAAG,EAAjB;AAEE,uBAAU,kBAAM,UAAC,EAAM,eAAe,CAAC,eAAD;AACtC,YAAG,YAAO,KAAE,IAAZ,EACE,eAAU,kBAAM,UAAC,EAAM,iBAAiB,CAAC,eAAD,CAD1C;AAEA,0BAAc;OALhB;AAFgD;AApBG;AAAX;AAExC,UAAG,YAAO,KAAE,IAAZ,EAAyB,OAAY,2BAArC;AAEA,UAAa,qBAAH,eAAP,YAAO,CAAV;AAEE,YAAG,YAAM,gBAAC,EAAV;AACE,mBAAqB;AAErB,uBAAqB;;AAIvB,YAAG,YAAM,gBAAC,EAAV;AACE,mBAAqB;AAErB,uBAAqB;;AAhBe;AAAW;AALF;AAAT;AAExC,eAAU;AAF8B;AAAS;AAr5FjB;;;AAeR;;;AAET;AAFS;;;;;AA40EiB;AAAT;AAEhC,eAAqC;AAFL;AAAS;AAkBD;AAExC,UAAG,eAAW,KAAG,EAAjB;AAEE,uBAAU,kBAAM,UAAC,EAAM,eAAe,CAAC,eAAD;AACtC,YAAG,YAAO,KAAE,IAAZ,EACE,MAAM,4BAAuB,QAAC,aAAS,CAAC,oDACtC,mBAAC,mBAAkB,GAAN,kBAAM,QAAC,GAAM,aAA1B,CADqC,CAAT,CADhC;AAGA,0BAAc;OANhB;AAFwC;AARG;AAAX;AAEhC,UAAW,CAAP,YAAO,KAAG,IAAH,CAAQ,IAAK,YAAM,gBAAC,EAA/B;AACE,iBAAqB;AAErB,qBAAqB;AALS;AAAW;AALF;AAAT;AAEhC,eAAU;AAFsB;AAAS;AAj1EjB;;;AAiBI;AAqgFe;AAAP;AAGpC,eAA6C,YAAK,CAAC,KAAD;AAHd;AAAO;AArgFf;AAWQ;AA26Fe;AAAP;AAE5C,eAAqD,YAAK,CAAC,KAAD;AAFd;AAAO;AA36Ff;AAQX,oDA3GL,0CA2GK;AAEL;AA48FiB;AAAT;AAE5B,eAAiC;AAFL;AAAS;AA5BS;AAAlB;AAE5B;AACA;AAEA,eAAS,QAAyB,OAApB,0BAAoB,GAAE,CAAF,kBAAlC;AAAI;AAEF,eAAQ,sBAAiB,CAAC,CAAD;AACzB,YAAG,qBAAQ,CAAC,MAAO,IAAI,MAAZ,CAAX,EACM,OAAC,IADP;;AAGF,eAAU;AAXkB;AAAkB;AAcI;AAAtB;AAE5B;AACA;AAEA,eAAS,QAA6B,OAAxB,8BAAwB,GAAE,CAAF,kBAAtC;AAAI;AAEF,eAAQ,0BAAqB,CAAC,CAAD;AAC7B,YAAG,qBAAQ,CAAC,MAAO,IAAI,MAAZ,CAAX,EACM,OAAC,IADP;;AAGF,eAAU;AAXkB;AAAsB;AArBP;AAAf;AAE5B,eAAU,uBAAkB,CAAC,KAAD;AAC5B,UAAG,MAAO,KAAE,IAAZ,EACE,SAAU,2BAAsB,CAAC,KAAD,CADlC;AAH4B;AAAe;AAz6FvB;AAoDQ;AAnCV;;;AAGhB;AACA;AACA;AAEA;AAGA;AAVgB;;;;;;;;AAssFsB;AAAd;AAE1B,UAAG,cAAU,KAAG,IAAhB;AACE,iBAAU,cAAS,QAAC;AAEpB,qBAAU;AALc;AAAc;AAuCN;AAElC;AAEA,UAAG,iBAAa,KAAG,EAAnB;AAEE,yBAAY,gBAAM,iBAAiB,CAAC,iBAAD;AACnC,YAAG,cAAS,KAAE,IAAd,EACE,MAAM,4BAAuB,QAAC,aAAS,CAAC,6CAA8C,mBAAC,qBAAc,iBAAf,CAA/C,CAAT,CADhC;AAEA,4BAAgB;OALlB;AAOA,UAAG,cAAS,KAAG,IAAf,EACE,cAAQ,UADV;AAGA,eAAS,QAAsB,OAAjB,gBAAU,SAAC,EAAM,GAAE,CAAF,kBAA/B;AAAI;AACF,wBAAU,WAAC,CAAD,CAAG;;AACf,eAAS,SAAgC,QAA3B,0BAAoB,SAAC,EAAM,GAAE,CAAF,qBAAzC;AAAI;AACF,kCAAoB,WAAC,CAAD,CAAG;;AAjBS;AA/BK;AAAb;AAE1B,UAAG,gBAAY,KAAE,IAAjB;AAEE,2BAAe,iCAA4B,QAAC;AAC5C,wBAAW,UAAX,GAAwB;AACxB,wBAAW,QAAX,GAAsB,IAAI;OAJ5B;AAMA,eAAU;AARgB;AAAa;AAqBF;AAAX;AAE1B,eAAqB;AAFK;AAAW;AA8BQ;AAAnB;AAE1B,eAAU,gBAAU,SAAC;AAFK;AAAmB;AAnCF;AAAjB;AAE1B,eAAU,gBAAU,WAAC,KAAD;AAFM;AAAiB;AAUM;AAAvB;AAE1B,eAAU,0BAAoB,SAAC;AAFL;AAAuB;AAfF;AAArB;AAE1B,eAAU,0BAAoB,WAAC,KAAD;AAFJ;AAAqB;AA6CR;AAAb;AAE1B,eAAU,IAAI,QAAC;AACf,UAAG,IAAI,UAAC,EAAO,KAAG,IAAlB;AAEE,YAAG,IAAI,UAAC,EAAM,OAAO,KAAG,EAAxB;AACE,mBAAU,IAAI,UAAC,EAAM,OAAa,GAAJ,GAAF,GAAQ,IAAI,QAAC,EAAP;AAEpC,kBAAG,IAAI,UAAC,EAAM,WAAW,KAAG,EAA5B,EACE,SAAU,IAAI,UAAC,EAAM,WAAiB,GAAJ,GAAF,GAAQ,IAAI,QAAC,EAD/C;OALF;AAH0B;AAAa;AApFJ;AAEnC;AAKA,yBAAe,qCAAgC,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,mCAAyB,yCAAoC,QAAC,YAAM,CAAC,IAAD,CAAN;AAR1B;AAAD;AAYA;AAEb,eAAtB,KAAsB;AACV,eAAZ,KAAY;AACA,eAAZ,KAAY;AACZ;AALmC;AA9rFjB;;;AAmCU;;;AAI1B;AAJ0B;;;;;AAuvFe;AAAP;AAEpC,UAAG,cAAS,KAAG,IAAf;AACE,iBAAU,mBAAM,CAAC,iBAAkB,mBAAS,GAAR,cAAQ,QAAC,EAAV,CAAnB;AAEhB,qBAAU;AALwB;AAAO;AALQ;AAAf;AAEpC,eAAU;AAF0B;AAAe;AAkBD;AAAd;AAEpC,eAAU;AAF0B;AAAc;AALH;AAAX;AAEpC,eAAqB;AAFe;AAAW;AAUE;AAAb;AAEpC,UAAG,cAAS,KAAG,IAAf;AACE,iBAAU,mBAAM,CAAC,iBAAkB,mBAAS,GAAR,cAAQ,gBAAT,CAAnB;AAEhB,qBAAU;AALwB;AAAa;AAzwFrB;AA0EF;AAkBX;AAzEC;;;AAGd;AAEA;AACA;AACA;AAEA;AAGA;AAGA;AAEA;AAjBc;;;;;;;;;;;AA0iCsB;AAAd;AAExB,UAAG,cAAU,KAAG,IAAhB;AACE,iBAAU,cAAS,QAAC;AAEpB,qBAAU;AALY;AAAc;AAmBL;AAAT;AAExB;AAEU,YAAD,sBAAC,UAAQ,SAAG,SAAC,EAAb;AACT,eAAS,QAAe,OAAV,SAAG,SAAC,EAAM,GAAE,CAAF,kBAAxB;AAAI;AACF,cAAM,CAAC,CAAD,CAAN,GAAa,SAAG,WAAC,CAAD,CAAG;;AANG;AAAS;AAsFD;AAEhC;AACA;AACA;AAEA,UAAG,iBAAa,KAAG,EAAnB;AAEE,yBAAY,gBAAM,eAAe,CAAC,iBAAD;AACjC,YAAG,cAAS,KAAE,IAAd,EACE,MAAM,4BAAuB,QAAC,aAAS,CAAC,2CAA4C,mBAAC,qBAAc,iBAAf,CAA7C,CAAT,CADhC;AAEA,4BAAgB;OALlB;AAOA,UAAG,cAAS,KAAG,IAAf,EACE,cAAQ,UADV;AAGA,UAAS,WAAC,YAAD,CAAU,GAAE,CAArB;AAEE,iBAAG;AACH,iBAAS,QAAqB,OAAV,WAAC,YAAD,CAAU,GAAE,CAAF,kBAA9B;AAAI;AAEF,oBAAW,YAAO,CAAC,CAAD;AAClB,qBAAY,iBAAY,CAAC,OAAD;AACxB,cAAG,QAAS,KAAE,IAAd,EACE,WAAY,2BAAsB,CAAC,OAAD,CADpC;AAEA,cAAG,QAAS,KAAE,IAAd,EACE,MAAM,4BAAuB,QAAC,aAAS,CAAC,8CAA+C,mBAAC,WAAS,iBAAV,CAAhD,CAAT,CADhC;AAEA,mBAAG,MAAI,CAAC,QAAD;;AAEC,oBAAD,sBAAC,gBAAS,CAAV;OAbX;AAgBA,eAAS,SAAsB,QAAjB,gBAAU,SAAC,EAAM,GAAE,CAAF,qBAA/B;AAAI;AACF,wBAAU,WAAC,CAAD,CAAG;;AACf,eAAS,SAAgC,QAA3B,0BAAoB,SAAC,EAAM,GAAE,CAAF,qBAAzC;AAAI;AACF,kCAAoB,WAAC,CAAD,CAAG;;AAnCO;AAjGK;AAAb;AAExB,UAAG,gBAAY,KAAE,IAAjB;AAEE,2BAAe,+BAA0B,QAAC;AAC1C,wBAAW,UAAX,GAAwB;AACxB,wBAAW,QAAX,GAAsB,IAAI;OAJ5B;AAMA,eAAU;AARc;AAAa;AA8BF;AAAX;AAExB,eAAqB;AAFG;AAAW;AAyGQ;AAAnB;AAExB,eAAU,gBAAU,SAAC;AAFG;AAAmB;AA9GF;AAAjB;AAExB,eAAU,gBAAU,WAAC,KAAD;AAFI;AAAiB;AA+CM;AAAvB;AAExB,eAAU,0BAAoB,SAAC;AAFP;AAAuB;AApDF;AAArB;AAExB,eAAU,0BAAoB,WAAC,KAAD;AAFN;AAAqB;AAyDR;AAAb;AAExB,eAAU,IAAI,QAAC;AACf,UAAG,IAAI,UAAC,EAAO,KAAG,IAAlB;AAEE,YAAG,IAAI,UAAC,EAAM,OAAO,KAAG,EAAxB;AACE,mBAAU,IAAI,UAAC,EAAM,OAAa,GAAJ,GAAF,GAAQ,IAAI,QAAC,EAAP;AAEpC,kBAAG,IAAI,UAAC,EAAM,WAAW,KAAG,EAA5B,EACE,SAAU,IAAI,UAAC,EAAM,WAAiB,GAAJ,GAAF,GAAQ,IAAI,QAAC,EAD/C;OALF;AAHwB;AAAa;AA5FK;AAAlB;AAExB,eAAsC,uDAAC,KAAD;AACtC,UAAW,CAAP,MAAO,KAAE,IAAF,CAAO,IAAc,CAAT,cAAS,KAAG,IAAH,CAAhC,EACE,SAAU,cAAQ,mBAAmB,CAAC,KAAD,CADvC;AAHwB;AAAkB;AAPI;AAAtB;AAExB,eAA0C,2DAAC,KAAD;AAC1C,UAAW,CAAP,MAAO,KAAE,IAAF,CAAO,IAAc,CAAT,cAAS,KAAG,IAAH,CAAhC,EACE,SAAU,cAAQ,uBAAuB,CAAC,KAAD,CAD3C;AAHwB;AAAsB;AALV;AAAZ;AAExB,eAA+B,uBAAkB,CAAC,KAAD;AAFzB;AAAY;AALU;AAAtB;AAExB,eAAmC,2BAAsB,CAAC,KAAD;AAFjC;AAAsB;AAmEP;AAAf;AAExB,UAAG,KAAM,KAAE,IAAX;AACE,iBAAU;AAEV,qBAAoB,CAAT,cAAS,KAAG,IAAH,CAAQ,IAAI,cAAQ,gBAAgB,CAAC,KAAD,CAA5B;AALN;AAAe;AAuDP;AAAR;AAExB,eAAU;AACV,aAAM,MAAM,UAAU,KAAG,IAAzB,EACE,SAAU,MAAM;AAJM;AAAQ;AA/CW;;AAAnB;AAEG;AAEzB;AACA;AAEA,gBAAS,KAAK;AACd,iBAAS,QAAqB,OAAhB,KAAK,KAAI,SAAC,EAAM,GAAE,CAAF,kBAA9B;AAAI;AAEF,gBAAO,KAAK,KAAI,WAAC,CAAD;AAChB,cAAG,GAAG,WAAN;AAEY,yBAAD,mBAAC,oBAAgB,WAAC,cAAD,CAAW,GAAE,CAA9B,CAAC;AACV,0BAAQ,CAAO,WAAC,cAAD,CAAW,GAAE,CAApB,CAAR,GAAuD;WAGvD,MAAA,iBAAiB,CAA0B,GAAI,SAAS,QAAvC;;AAfI;AAoB3B;AAEU,cAAD,sBAAC,cAAU,CAAX;AACT,uBAAiB,CAAC,MAAM;;;;UAAP;AACjB,eAAU;AA1Bc;AAAmB;AAlGV;AAEjC;AAMA,kBAAQ,uBAAkB,QAAC,YAAM,CAAC,KAAD,CAAN;AAC3B,yBAAe,6BAAwB,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,mCAAyB,iCAA4B,QAAC,YAAM,CAAC,IAAD,CAAN;AAVpB;AAAD;AAcA;AAE5B,eAAL,KAAK;AACiB,eAAtB,KAAsB;AACV,eAAZ,KAAY;AACA,eAAZ,KAAY;AACZ;AANiC;AAzgCjB;;;AAuDU;;;AAIxB;AAJwB;;;;;AA0yDe;AAAP;AAElC,UAAG,cAAS,KAAG,IAAf;AACE,iBAAU,mBAAM,CAAC,iBAAkB,mBAAS,GAAR,cAAQ,QAAC,EAAV,CAAnB;AAEhB,qBAAU;AALsB;AAAO;AA/BQ;AAAf;AAElC,eAAU;AAFwB;AAAe;AA4CD;AAAd;AAElC,eAAU;AAFwB;AAAc;AALH;AAAX;AAElC,eAAqB;AAFa;AAAW;AAUE;AAAb;AAElC,UAAG,cAAS,KAAG,IAAf;AACE,iBAAU,mBAAM,CAAC,iBAAkB,mBAAS,GAAR,cAAQ,gBAAT,CAAnB;AAEhB,qBAAU;AALsB;AAAa;AA5zDrB;AAyDL;AAvCN;;;AAEb;AAEA;AAEA;AAEA;AAIA;AAZa;;;;;AAozDoB;AAAZ;AAEvB,eAA0C;AAFnB;AAAY;AAKI;AAAhB;AAEvB,UAAG,gBAAW,KAAG,IAAjB;AACE,iBAAU,gBAAU,QAAC;AAErB,qBAAU;AALW;AAAgB;AAQR;AAE/B,UAAG,mBAAe,KAAG,EAArB;AAEE,2BAAc,mBAAS,UAAC,EAAM,eAAe,CAAC,mBAAD;AAC7C,YAAG,gBAAW,KAAE,IAAhB,EACE,MAAM,4BAAuB,QAAC,aAAS,CAAC,2BAA4B,mBAAC,sBAAD,CAA7B,CAAT,CADhC;AAEA,8BAAkB;OALpB;AAF+B;AAj0DhB;;;AA8BI;AAyzEe;AAAP;AAE3B,eAAoC,YAAK,CAAC,KAAD;AAFd;AAAO;AAzzEf;AASE;;;AAEnB;AACA;AAHmB;;;;;AA2rCiB;AAAT;AAE7B,eAAiC;AAFJ;AAAS;AA/BA;AAEtC;AAIA,yBAAe,wBAAmB,QAAC,YAAM,CAAC,IAAD,CAAN;AANI;AAAD;AAUA;AAE1B,eAAZ,KAAY;AACZ;AAHsC;AAMI;AAAb;AAG7B;AACA;AAEA,eAAS,QAAsB,OAAjB,gBAAU,SAAC,EAAM,GAAE,CAAF,kBAA/B;AAAI;AAEF,oBAAa,gBAAU,WAAC,CAAD;AACvB,YAAG,qBAAQ,CAAC,SAAS,OAAO,KAAjB,CAAX,EACM,OAAC,SADP;;AAGF,eAAU;AAZmB;AAAa;AA5qCrB;;;AAkBI;AAqqEe;AAAP;AAGjC,eAA0C,YAAK,CAAC,KAAD;AAHd;AAAO;AArqEf;AAoIb;AA1HA;;AAGE;;;AAEZ;AAIA;AAEA;AAEA;AAYA;AACA;AACA;AACA;AAEA;AAEA;AA7BY;;;;;AAggEuB;AAAf;AAEtB,UAAG,UAAU,KAAG,IAAhB;AACE,iBAAU,UAAS;AAEnB,qBAAU;AALU;AAAe;AAVL;AAAV;AAItB,UAAU,CAAN,UAAM,KAAG,IAAH,CAAwC,IAAlB,qBAAH,eAAN,UAAM,CAAX,IAAoC,CAAI,UAAK,gBAAC,EAAhE;AACE,iBAAU,UAAK,QAAC;AAEhB,qBAAU;AAPU;AAAU;AARI;AAAd;AAEtB,UAAU,CAAN,UAAM,KAAG,IAAH,CAAQ,IAAgB,CAAX,iBAAW,KAAE,EAAF,CAAlC;AACE,iBAAU,UAAK,QAAC;AAEhB,qBAAU;AALU;AAAc;AA+BN;AAG9B,UAAG,aAAS,KAAG,EAAf;AAEE,qBAAa,gBAAM,cAAC,EAAU,UAAC,EAAM,SAAS,CAAC,aAAD;AAC9C,YAAG,UAAU,KAAE,IAAf,EACE,MAAM,4BAAuB,QAAC,aAAS,CAAC,6CACtC,mBAAC,iBAAgB,GAAN,gBAAM,OAAO,aAAxB,CADqC,CAAT,CADhC;AAGA,wBAAY;OANd;AAQA,UAAG,iBAAa,KAAG,EAAnB;AAEE,qBAAa,gBAAM,cAAC,EAAU,UAAC,EAAM,SAAS,CAAC,iBAAD;AAC9C,4BAAgB;OAHlB;AAX8B;AAkBQ;AAEtC,2BAAiB;AACjB,8BAAoB;AAHkB;AAtDP;AAAT;AAEtB,eAAiC;AAFX;AAAS;AA+BJ;AAAL;AAEtB,eAAU,gBAAM,QAAQ,CAAC,IAAD;AAFF;AAAK;AAxgEb;;;AAyDI;AAslEe;AAAP;AAE1B,eAAmC,YAAK,CAAC,KAAD;AAFd;AAAO;AAtlEf;AAQS;AAkuEiB;AAE5C;AAEA,UAAG,MAAM,MAAW,KAAG,IAAvB;AACE,wBAAiB,MAAM,MAAU,QAAC;AAElC,4BAAiB;AAEA,iDAAC,+EAClB,mBAAc,GAAb,MAAM,UAAC,EAAM,OAAO,iBAAqB,GAAN,MAAM,MAA1C,CADiB;AATkD;AAAzB;AAluEjB;AA4IX;AAnIE;;;AAEhB;AACA;AACA;AACA;AALgB;AAk4EiB;AAEnC,oBAAU;AAIV,UAAkB,CAAP,WAAD,OAAQ,IAAG,CAAH,CAA2B,IAAP,CAAT,WAAK,QAAC,CAAD,CAAI,KAAE,GAAF,CAAd,IAA+C,CAArB,WAAK,QAAQ,WAAD,WAAP,CAAgB,KAAE,GAAF,CAAvE;AAEE,wBAAY;AACZ,0BAAc,eAAI,CAAC,YAAO,EAAU,WAAD,OAAQ,GAAE,CAA3B;OAHpB;AAN0D;AAAvB;AAl4EjB;AAmBI;AAw4Ee;AAAP;AAE9B,eAAuC,YAAK,CAAC,KAAD;AAFd;AAAO;AAx4Ef;AAQP;;;AAEb;AACA;AACA;AAJa;;;;;AAiwEkB;AAAV;AAEvB,eAAU,cAAS,WAAC,KAAD;AAFI;AAAU;AAKK;AAAf;AAEvB,eAAU,cAAS,SAAC;AAFG;AAAe;AAhBN;AAEhC,uBAAa,2BAAsB,QAAC;AAFH;AAAD;AAKA;AAEtB,eAAV,KAAU;AACV;AAHgC;AA2ED;AAE/B;AACA;AAGA,oBAAe,iBAAW,CAAC,OAAQ,GAAT;AAC1B,eAAS,QAAyB,OAAd,WAAC,WAAD,CAAc,GAAE,CAAF,kBAAlC;AAAI;AACF,YAAG,WAAW,CAAC,CAAD,CAAI,KAAG,EAArB,EACE,cAAS,MAAI,CAAC,uBAAkB,QAAC,YAAM,CAAC,WAAW,CAAC,CAAD,CAAZ,CAAN,CAApB,CADf;;AAYF,uBAAa;AACb,yBAAe;AACf,eAAS,SAAkB,QAAb,sBAAa,GAAE,CAAF,qBAA3B;AAAI;AAEF,YAAG,eAAQ,CAAC,CAAD,CAAG,SAAd;AACM,0BAAJ,IAAG;AAEH,+BAAa,cAAU,GAAM,CAAF,CAAE,IAAQ,CAAH,EAAG,GAAE,CAAF,CAAR,CAAN;;AA3BI;AAt0EhB;AAkBH;;;AAEV;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEA;AAEA;AAEA;AAEA;AAKA;AAvBU;;;;;;;AAiuDkB;AAAV;AAEpB;AAEA,eAAU;AACV,eAAS,QAAsB,OAAjB,gBAAU,SAAC,EAAM,GAAE,CAAF,kBAA/B;AAAI;AACF,YAAG,gBAAU,WAAC,CAAD,CAAG,aAAa,KAAE,OAA/B,EACM,MAAJ,IAAG,CADL;;AANkB;AAAU;AA0GF;AAAR;AAEpB;AAAG;AAEH,eAAU;AACV,iBAAY,CAAC;AACb,eAAS,QAAsB,OAAjB,gBAAU,SAAC,EAAM,GAAE,CAAF,kBAA/B;AAAI;AACF,YAAG,gBAAU,WAAC,CAAD,CAAG,aAAa,KAAE,OAA/B;AAEM,kBAAJ,IAAG;AACH,cAAG,KAAM,KAAE,QAAX;AAEE,qBAAU,gBAAU,WAAC,CAAD;AACpB;WAHF;SAHF;;AASF;AAhBoB;AAAQ;AA6BQ;AAAhB;AAEpB,UAAG,gBAAY,KAAG,IAAlB;AACE,iBAAU,gBAAW,QAAC;AAEtB,qBAAU;AALQ;AAAgB;AAxHR;AAE5B;AACA;AACA;AACA;AAEA,eAAqB,QAAsB,OAAjB,gBAAU,SAAC,EAAM,GAAE,CAAF,kBAA3C;AAAI;AAEF,mBAAY,gBAAU,WAAC,aAAD;AACtB,gBAAQ;;AAIV,UAAG,mBAAe,KAAG,EAArB;AAEE,2BAAc,oBAAU,UAAC,EAAM,SAAS,CAAC,mBAAD;AACxC,YAAG,gBAAW,KAAE,IAAhB,EACE,MAAM,4BAAuB,QAAC,aAAS,CAAC,4CACtC,mBAAC,uBAA0B,GAAV,oBAAU,OAAO,aAAlC,CADqC,CAAT,CADhC;AAGA,8BAAkB;OANpB;AAUA,6BAAU,CAAC;;;;UAAD;AACV,wBAAc,oBAAe,QAAC;AAC9B,qBAAU,QAAQ,CAAC,oBAAU,MAAY,GAAJ,GAAF,GAAQ,IAAI,MAA7B;AAGlB,eAAS,SAA6B,QAAxB,eAAU,gBAAC,EAAa,GAAE,CAAF,qBAAtC;AAAI;AAEF,kBAAW,eAAU,WAAS,CAAC,CAAD;AAC9B,YAAG,OAAO,SAAV;AAEE,iBAAO,YAAP,GAAsB,CAAC;AAEvB,mBAAqB,SAAoB,QAAf,qBAAe,GAAE,CAAF,qBAAzC;AAAI;AACF,gBAAG,qBAAQ,CAAC,iBAAU,CAAC,aAAD,CAAe,OAAO,OAAO,WAAxC,CAAX;AAEE,qBAAO,YAAP,GAAsB;AACtB;aAHF;;AAKF,cAAG,OAAO,YAAY,KAAE,CAAC,CAAzB,EACE,MAAM,4BAAuB,QAAC,YAAM,CAAC,KAAM,OAAO,OAAd,CAAN,CADhC;SAVF;;AAhC0B;AAiFI;AAAZ;AAEpB,eAAU,aAAQ,CAAc,2BAAU,KAAxB;AAFE;AAAY;AA6BA;AAAZ;AAEpB,eAAU,aAAQ,CAAc,2BAAU,KAAxB;AAFE;AAAY;AAKC;AAAb;AAEpB,eAAU,aAAQ,CAAc,0BAAS,KAAvB;AAFE;AAAa;AA7BA;AAAb;AAEpB,eAAqC;AAFjB;AAAa;AA5IE;AAAf;AAEpB;AACA;AAEA,eAAS,QAAsB,OAAjB,gBAAU,SAAC,EAAM,GAAE,CAAF,kBAA/B;AAAI;AAEF,mBAAY,gBAAU,WAAC,CAAD;AACtB,YAAG,QAAQ,QAAX,EACM,OAAC,IADP;;AAGF,eAAU;AAXU;AAAe;AA6BF;AAAb;AAEpB,eAAU,qBAAQ,CAAC,eAAU,mCAAX;AAFE;AAAa;AAKA;AAAb;AAEpB,eAAoB,CAAT,cAAS,KAAE,EAAF,CAAM,IAAG,qBAAQ,CAAC,eAAU,kBAAX,CAAX;AAFN;AAAa;AA9DJ;AAE7B,yBAAe;AAIf,yBAAe,uBAAkB,QAAC,YAAM,CAAC,IAAD,CAAN;AANJ;AAAD;AAUA;AAEjB,eAAZ,KAAY;AACD,eAAX,KAAW;AACX;AAJ6B;AAOI;AAAb;AAEpB;AAEA,UAAK,qBAAgB,CAAC,KAAD;AACrB,UAAG,CAAE,IAAG,CAAR;AACE,iBAAU,gBAAU,WAAC,CAAD;AAEpB,qBAAU;AARQ;AAAa;AA8BG;AAAhB;AAEpB;AAEA,eAAS,QAAsB,OAAjB,gBAAU,SAAC,EAAM,GAAE,CAAF,kBAA/B;AAAI;AACF,YAAG,qBAAQ,CAAC,gBAAU,WAAC,CAAD,CAAG,OAAO,KAArB,CAAX,EACM,OAAC,CADP;;AAEF,eAAU,CAAC;AAPS;AAAgB;AALT;AAAP;AAEpB,eAAU,gBAAW,UAAQ,CAAC,KAAD;AAFT;AAAO;AAwGS;AAAhB;AAEpB;AAEA,eAAS,QAAsB,OAAjB,gBAAU,SAAC,EAAM,GAAE,CAAF,kBAA/B;AAAI;AACF,YAAW,CAAC,gBAAU,WAAC,CAAD,CAAG,MAAd,SAA0B,IAAsC,CAAjC,gBAAU,WAAC,CAAD,CAAG,MAAU,YAAC,EAAS,KAAa,qBAAb,CAA3E;AAEE,mBAAU;AACV;SAHF;;AAMF,UAAG,mBAAH;AACE,iBAAU;AAEV,qBAAU,CAAC;AAdO;AAAgB;AAvJF;AAAd;AAEpB,eAAU,eAAU,CAAc,0BAAd;AAFA;AAAc;AAuIC;AAAf;AAEpB,eAAU,eAAU,CAAc,yBAAd;AAFA;AAAe;AAKO;AAAtB;AAEpB;AAEA,eAAU;AACV,eAAS,QAAsB,OAAjB,gBAAU,SAAC,EAAM,GAAE,CAAF,kBAA/B;AAAI;AACF,YAAG,gBAAU,WAAC,CAAD,CAAG,aAAa,KAAe,0BAA5C,EACE,IAAG,CAAI,gBAAU,WAAC,CAAD,CAAG,iBAApB,EACM,MAAJ,IAAG,CAFP;;AANkB;AAAsB;AA1DR;AAAd;AAEpB,eAAU,eAAU,CAAc,0BAAd;AAFA;AAAc;AA3uDtB;;;AA6EI;AA6hEe;AAAP;AAExB,eAAiC,YAAK,CAAC,KAAD;AAFd;AAAO;AA7hEf;AASA;;;AAEd;AACA;AAEA;AAEA;AAEA;AAEA;AAXc;;;;;;;AA02DiB;AAAT;AAExB,eAAiC;AAFT;AAAS;AAKD;AAEhC;AACA;AAGA,6BAAU,CAAC;;;;UAAD;AACV,wBAAc,oBAAe,QAAC;AAC9B,qBAAU,QAAQ,CAAC,UAAD;AAGlB,eAAmB,QAAmB,OAAd,aAAO,SAAC,EAAM,GAAE,CAAF,kBAAtC;AAAI;AAEF,iBAAU,aAAO,WAAC,WAAD;AACjB,cAAM;;AAdwB;AArBC;AAKjC,sBAAY,qBAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AALK;AAAD;AASA;AAExB,eAAT,KAAS;AACE,eAAX,KAAW;AACX;AAJiC;AAn2DjB;;;AAgCI;AAy9De;AAAP;AAE5B,eAAqC,YAAK,CAAC,KAAD;AAFd;AAAO;AAz9Df;AAWE;AAu9De;AAAP;AAE9B,eAAuC,YAAK,CAAC,KAAD;AAFd;AAAO;AAv9Df;AAWF;AAq9De;AAAP;AAE5B,eAAqC,YAAK,CAAC,KAAD;AAFd;AAAO;AAr9Df;AASR;;;AAEV;AACA;AAIA;AACA;AACA;AACA;AACA;AAXU;;;;;;;;;AAwjBgB;AAAR;AAEpB,eAAgC;AAFZ;AAAQ;AAKQ;AAAhB;AAEpB;AAEA,eAAU,8BAAW,cAAc,CAAC,KAAM;;;;WAAS,OAAhB,CAAyB,IACjD,CAAR,OAAQ,KAAE,YAAF,CADiD;AAJxC;AAAgB;AAhNP;AAE7B;AAQA,0BAAgB,yBAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,4BAAkB,2BAAsB,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,wBAAc,uBAAkB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,+BAAqB,8BAAyB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,0BAAgB,yBAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAdP;AAAD;AAkBA;AAEhB,eAAb,KAAa;AACE,eAAf,KAAe;AACJ,eAAX,KAAW;AACO,eAAlB,KAAkB;AACL,eAAb,KAAa;AACb;AAP6B;AA4IY;AAArB;AAGpB,UAAG,KAAM,KAAE,IAAX,EAAwB,OAAC,IAAzB;AACA,UAAG,KAAK,cAAc,KAAG,IAAzB,EAAsC,OAAC,KAAK,cAA5C;AAEA,eAAU,eAAK,eAAe,KAAK,CAAC,KAAK,QAAC,EAAP;AACnC,UAAG,MAAO,KAAE,IAAZ;AAEE,YAAY,mBAAH,eAAN,KAAM,CAAT;AAEE,mBAAU,iDAAmB,QAAC,YAAM,CAAgB,KAAhB,CAAN;AAC9B,yBAAK,eAAe,kBAAkB,CAAC,KAAK,QAAC,GAAM,MAAb;SAHxC;OAFF;AAPoB;AAAqB;AAtGP;AAAd;AAEpB;AACA;AACA;AAGA,UAAG,qBAAgB,CAAC,MAAO;;;;UAAR,CAAnB;AAEE,qBAAc,mBAAc,CAAC,OAAD;AAC5B,YAAG,UAAW,KAAG,IAAjB;AACE,mBAAU,UAAU,cAAC;AAErB,uBAAU;;AAIZ,iBAAS,QAAuB,OAAlB,iBAAW,SAAC,EAAM,GAAE,CAAF,kBAAhC;AAAI;AAEF,uBAAc,iBAAW,WAAC,CAAD;AACzB,cAAG,qBAAQ,CAAC,UAAU,QAAC,GAAM,KAAlB,CAAX,EACM,OAAC,UADP;;AAIF,iBAAU;;AAxBQ;AAAc;AA0EE;AAAhB;AAEpB;AACA;AACA;AAGA,UAAG,qBAAgB,CAAC,MAAO;;;;UAAR,CAAnB;AAEE,uBAAgB,qBAAgB,CAAC,OAAD;AAChC,YAAG,YAAa,KAAG,IAAnB;AACE,mBAAU,YAAY,cAAC;AAEvB,uBAAU;;AAIZ,iBAAS,QAAyB,OAApB,mBAAa,SAAC,EAAM,GAAE,CAAF,kBAAlC;AAAI;AAEF,yBAAgB,mBAAa,WAAC,CAAD;AAC7B,cAAG,qBAAQ,CAAC,YAAY,QAAC,GAAM,KAApB,CAAX,EACM,OAAC,YADP;;AAIF,iBAAU;;AAxBQ;AAAgB;AA3BJ;AAAZ;AAEpB;AACA;AAcE,eAAS,QAAqB,OAAhB,eAAS,SAAC,EAAM,GAAE,CAAF,kBAA9B;AAAI;AAEF,mBAAY,eAAS,WAAC,CAAD;AACrB,YAAG,qBAAQ,CAAC,QAAQ,QAAC,GAAM,KAAhB,CAAX,EACM,OAAC,QADP;;AAGF,eAAU;AAvBQ;AAAY;AAnBE;AAAd;AAEpB;AACA;AACA;AAAG;AAEH,eAAS,QAAqB,OAAhB,eAAS,SAAC,EAAM,GAAE,CAAF,kBAA9B;AAAI;AAEF,mBAAY,eAAS,WAAC,CAAD;AACrB,iBAAS,SAA4B,QAAvB,QAAQ,SAAQ,SAAC,EAAM,GAAE,CAAF,qBAArC;AAAI;AAEF,uBAAc,QAAQ,SAAQ,WAAC,CAAD;AAC9B,cAAG,qBAAQ,CAAC,UAAU,OAAO,KAAlB,CAAX,EACM,OAAC,UADP;;;AAIJ,eAAU;AAhBU;AAAc;AA2FA;AAAd;AAEpB;AAEA,eAAU,iBAAY,CAAC,IAAD;AACtB,UAAG,MAAO,KAAE,IAAZ;AAGE,YAAG,qBAAgB,CAAC,KAAM;;;;YAAP,CAAnB;AAEE,mBAAU,6CAAoB,WAAS,KAAK,CAAC,OAAD;AAC5C,cAAG,MAAO,KAAG,IAAb,EACE,SAAU,MAAM,cAAC,EADnB;SAIA,eAAU,6CAAoB,WAAS,KAAK,CAAC,IAAD;OAVhD;AALoB;AAAc;AAmBN;AAAR;AAEpB,eAAU,mBAAc,CAAC,IAAD;AACxB,UAAG,MAAO,KAAE,IAAZ,EACE,SAAU,mBAAc,CAAC,IAAD,CAD1B;AAEA,UAAG,MAAO,KAAE,IAAZ,EACE,SAAU,qBAAgB,CAAC,IAAD,CAD5B;AALoB;AAAQ;AAxJK;AAAb;AAEpB;AACA;AAEA,eAAS,QAA4B,OAAvB,sBAAgB,SAAC,EAAM,GAAE,CAAF,kBAArC;AAAI;AAEF,oBAAa,sBAAgB,WAAC,CAAD;AAC7B,YAAG,qBAAQ,CAAC,SAAS,OAAO,KAAjB,CAAX,EACM,OAAC,SADP;;AAGF,eAAU;AAXU;AAAa;AAdC;AAAd;AAEpB;AACA;AAEA,eAAS,QAAuB,OAAlB,iBAAW,SAAC,EAAM,GAAE,CAAF,kBAAhC;AAAI;AAEF,qBAAc,iBAAW,WAAC,CAAD;AACzB,YAAG,qBAAQ,CAAC,UAAU,OAAO,KAAlB,CAAX,EACM,OAAC,UADP;;AAGF,eAAU;AAXU;AAAc;AAzYtB;;;AAsCI;AAg3De;AAAP;AAExB,eAAiC,YAAK,CAAC,KAAD;AAFd;AAAO;AAh3Df;AAQG;;;AAEjB;AAFiB;;;;;AAqgEiB;AAE1B;AACV,2BAAiB,wCAAU,QAAC,YAAM,CAAC,IAAD,CAAN;AAHS;AAAD;AAMA;AAEtB,eAAd,KAAc;AACd;AAHoC;AAML;AAAJ;AAE3B,UAAG,kBAAa,YAAY,CAAC,SAAD,CAA5B;AACE,iBAA8B,kBAAa,SAAC,SAAD;AAE3C,qBAAU;AALe;AAAI;AAQc;AAG7C,wBAAa,cAAc,CAAC,UAAW,UAAZ;AAHkB;AAzhE1B;AAWJ;;;AAEb;AACA;AACA;AAGA;AAPa;;;;;;AAgjCiC;AAAzB;AAEvB,UAAkB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAK,IAAuC,CAAlC,aAAO,WAAC,CAAD,CAAG,kBAAiB,SAAC,EAAM,GAAE,CAAF,CAA9D;AACE,iBAAU,aAAO,WAAC,CAAD,CAAG,kBAAiB,WAAC,CAAD;AAErC,qBAAU;AALW;AAAyB;AAwBjB;AAE/B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEA,eAAmB,QAAmB,OAAd,aAAO,SAAC,EAAM,GAAE,CAAF,kBAAtC;AAAI;AAEF,iBAAU,aAAO,WAAC,WAAD;AASjB,iBAAuB,SAA+C,QAA1C,6CAAoB,WAAS,SAAC,EAAK,QAAO,GAAE,CAAF,qBAAtE;AAAI;AAEF,uBAAc,6CAAoB,WAAS,SAAC,EAAK,SAAC,eAAD;AACjD,oBAAU,cAAV,GAA2B,MAAM,sBAAsB,CAAC,UAAD;AACvD,oBAAU,cAAC,EAAU,cAArB,GAAsC,MAAM,sBAAsB,CAAC,UAAU,cAAC,EAAZ;;AAEpE,iBAAuB,SAA4B,QAAvB,MAAM,WAAU,SAAC,EAAM,GAAE,CAAF,qBAAnD;AAAI;AAEF,uBAAc,MAAM,WAAU,WAAC,eAAD;AAC9B,oBAAU,cAAV,GAA2B,MAAM,sBAAsB,CAAC,UAAD;;AAEzD,iBAAuB,SAA8B,QAAzB,MAAM,aAAY,SAAC,EAAM,GAAE,CAAF,qBAArD;AAAI;AAEF,uBAAc,MAAM,aAAY,WAAC,eAAD;AAChC,oBAAU,cAAV,GAA2B,MAAM,sBAAsB,CAAC,UAAD;AACvD,oBAAU,cAAC,EAAU,cAArB,GAAsC,MAAM,sBAAsB,CAAC,UAAU,cAAC,EAAZ;;AAEpE,iBAAyB,SAAgC,QAA3B,MAAM,eAAc,SAAC,EAAM,GAAE,CAAF,qBAAzD;AAAI;AAEF,yBAAgB,MAAM,eAAc,WAAC,iBAAD;AACpC,sBAAY,cAAZ,GAA6B,MAAM,sBAAsB,CAAC,YAAD;AACzD,sBAAY,cAAC,EAAU,cAAvB,GAAwC,MAAM,sBAAsB,CAAC,YAAY,cAAC,EAAd;;AAGtE,iBAAsB,SAAmC,QAA9B,MAAM,kBAAiB,SAAC,EAAM,GAAE,CAAF,qBAAzD;AAAI;AAEF,sBAAa,MAAM,kBAAiB,WAAC,cAAD;AACpC,mBAAsB,SAAgC,QAA3B,SAAS,YAAW,SAAC,EAAM,GAAE,CAAF,qBAAtD;AAAI;AAEF,wBAAa,SAAS,YAAW,WAAC,cAAD;AACjC,qBAAS;;;AAIb,iBAAuB,SAA8B,QAAzB,MAAM,aAAY,SAAC,EAAM,GAAE,CAAF,qBAArD;AAAI;AAEF,uBAAc,MAAM,aAAY,WAAC,eAAD;AAChC,oBAAU;;AAGZ,iBAAyB,SAAgC,QAA3B,MAAM,eAAc,SAAC,EAAM,GAAE,CAAF,qBAAzD;AAAI;AAEF,yBAAgB,MAAM,eAAc,WAAC,iBAAD;AACpC,sBAAY;;AAGd,iBAAuB,SAA8B,QAAzB,MAAM,aAAY,SAAC,EAAM,GAAE,CAAF,qBAArD;AAAI;AAEF,uBAAc,MAAM,aAAY,WAAC,eAAD;AAChC,oBAAU;;;AA7EiB;AA1LC;AAEhC,oBAAU;AACV,sBAAY;AAIZ,sBAAY,qBAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAE7B,4BAAkB,wBAAmB,QAAC;AATL;AAAD;AAgDA;AAEvB,eAAT,KAAS;AACM,eAAf,KAAe;AACf;AAJgC;AAoGC;AAAV;AAEvB;AACA;AAEA,eAAS,QAAmB,OAAd,aAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AAEF,sBAAe,aAAO,WAAC,CAAD;AACtB,YAAG,qBAAQ,CAAC,QAAS,WAAW,WAArB,CAAiC,IAAG,qBAAQ,CAAC,QAAS,WAAW,OAArB,CAAvD,EACM,OAAC,WADP;;AAGF,eAAU;AAXa;AAAU;AA8BG;AAAb;AAGvB,eAAU,mBAAc,CAAC,aAAD;AACxB,UAAG,MAAO,KAAE,IAAZ,EACE,MAAM,6BAAwB,QAAC,YAAM,CAAC,aAAD,CAAN,CADjC;AAJuB;AAAa;AAvDC;AAAd;AAGvB;AAAQ;AACR;AAEA,eAAU;AACV,oCAAW,iBAAiB,CAAC,cAAe;;;;WAAQ;;;;UAAxB;AAC5B,eAAU,eAAU,CAAC,MAAD;AACpB,UAAG,MAAO,KAAG,IAAb,EACE,SAAU,MAAM,eAAe,CAAC,SAAD,CADjC;AATuB;AAAc;AA+CF;AAAZ;AAGvB,eAAU,kBAAa,CAAC,aAAD;AACvB,UAAG,MAAO,KAAE,IAAZ,EACE,MAAM,4BAAuB,QAAC,YAAM,CAAC,aAAD,CAAN,CADhC;AAJuB;AAAY;AA1EC;AAAb;AAEvB;AAAQ;AACR;AACA;AACA;AAEA,eAAU;AACV,oCAAW,iBAAiB,CAAC,cAAe;;;;WAAQ;;;;UAAxB;AAC5B,kBAAa;AACb,UAAG,MAAO,KAAE,EAAZ;AAEE,oBAAa;;AAGb,iBAAS,QAAmB,OAAd,aAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AAEF,mBAAU,aAAO,WAAC,CAAD;AACjB,sBAAa,MAAM,cAAc,CAAC,MAAD;AACjC,cAAG,SAAU,KAAG,IAAhB,EACE,KADF;;;AAIJ,UAAG,SAAU,KAAG,IAAhB,EACE,SAAU,SAAS,cAAc,CAAC,SAAD,CADnC;AAvBuB;AAAa;AAwCG;AAAhB;AAEvB;AAAQ;AACR;AAEA,eAAU;AACV,oCAAW,iBAAiB,CAAC,cAAe;;;;WAAQ;;;;UAAxB;AAC5B,eAAU,eAAU,CAAC,MAAD;AACpB,UAAG,MAAO,KAAG,IAAb,EACE,SAAU,MAAM,iBAAiB,CAAC,SAAD,CADnC;AARuB;AAAgB;AAvDF;AAAd;AAEvB;AACA;AAEA,eAAU;AACV,eAAS,QAAmB,OAAd,aAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AAEF,iBAAU,aAAO,WAAC,CAAD;AACjB,iBAAU,MAAM,eAAe,CAAC,KAAD;AAC/B,YAAG,MAAO,KAAG,IAAb,EACE,KADF;;AAVqB;AAAc;AA1BS;AAAvB;AAGvB;AACA;AACA;AACA;AAAG;AAAG;AAEN,eAAU;AACV,eAAS,QAAmB,OAAd,aAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AAEF,iBAAU,aAAO,WAAC,CAAD;AACjB,iBAAS,SAA8B,QAAzB,MAAM,aAAY,SAAC,EAAM,GAAE,CAAF,qBAAvC;AAAI;AAEF,uBAAc,MAAM,aAAY,WAAC,CAAD;AAChC,mBAAS,SAA8B,QAAzB,UAAU,SAAQ,SAAC,EAAM,GAAE,CAAF,qBAAvC;AAAI;AAEF,qBAAU,UAAU,SAAQ,WAAC,CAAD;AAE5B,gBAAG,qBAAQ,CAAC,MAAM,cAAc,YAArB,CAAX,EACM,OAAC,MADP;;;;AAnBiB;AAAuB;AA3CP;AAAhB;AAEvB;AACA;AACA;AACA;AAAa;AAAgB;AAE7B,UAAG,KAAK,kBAAkB,KAAG,IAA7B,EACM,OAAC,KAAK,kBADZ;AAGA,eAAmB,QAAmB,OAAd,aAAO,SAAC,EAAM,GAAE,CAAF,kBAAtC;AAAI;AAEF,iBAAU,aAAO,WAAC,WAAD;AACjB,iBAAsB,SAAmC,QAA9B,MAAM,kBAAiB,SAAC,EAAM,GAAE,CAAF,qBAAzD;AAAI;AAEF,sBAAa,MAAM,kBAAiB,WAAC,cAAD;AACpC,mBAAsB,SAAgC,QAA3B,SAAS,YAAW,SAAC,EAAM,GAAE,CAAF,qBAAtD;AAAI;AAEF,wBAAa,SAAS,YAAW,WAAC,cAAD;AACjC,gBAAG,SAAS,YAAY,KAAE,KAA1B;AAEE,yCAAsB,CAAC,MAAO,SAAR;AAClB,qBAAC;aAHP;;;;AAQN,eAAU;AA3Ba;AAAgB;AA8BO;AAG9C,WAAK,kBAAL,GAA0B;AAHoB;AAx7B/B;;;AAiCO,gFAA+B,uBAAc,QAzqB/C,kCAyqB+C,CAA7C;AACG,mFAA+B,uBAAiB,WAnmBjD,sCAmmBiD,CAAhD;AAGd;AA0nCwB;;AAAhB;AAGI;AAErB;AACA;AAEA,gBAAS,KAAK;AACd,iBAAS,QAAqB,OAAhB,KAAK,KAAI,SAAC,EAAM,GAAE,CAAF,kBAA9B;AAAI;AAEF,gBAAO,KAAK,KAAI,WAAC,CAAD;AAChB,cAAG,GAAG,WAAN;AAEY,uBAAD,mBAAC,uBAAc,WAAC,YAAD,CAAS,GAAE,CAA1B,CAAC;AACV,wBAAM,CAAO,WAAC,YAAD,CAAS,GAAE,CAAlB,CAAN,GAA8B,YAAY,CAAC,OAA6B,GAA9B;WAG1C,MAAA,aAAa,CACX,eAAe,CAAC,OAAiC,GAAlC,EACU,GAAI,SAC7B,MAHW;;AAfI;AAwBvB;AACA;AAEA,cAAS,KAAK;AACd,UAAG,KAAK,KAAI,SAAC,EAAM,KAAE,CAArB,EACM,OAAC,EADP;AAGA,UAAoB,CAAhB,KAAK,KAAI,SAAC,EAAM,KAAE,CAAF,CAAK,IAAI,KAAK,KAAI,WAAC,CAAD,CAAG,WAAzC;AAEE,oBAAkC,KAAK,KAAI,WAAC,CAAD;AAC3C,iBAAU,SAAS,gBAAC,EAAY,WAAW,CACzC,YAAY,CAAC,OAAQ,SAAT,EACZ,SAAS,MAFgC;;AAOjC,iBAAD,sBAAC,oBAAW,CAAZ;AACT,qBAAa,CAAC,OAAQ,MAAO;;;;YAAhB;AAEb,iBAAU,uBAAgB,CAAC,MAAO,SAAR;;AA/CT;AAAgB;AA8FA;AAAhB;AAGnB;AACA;AAAO;AACP;AACA;AAEA,cAAS,KAAK;AACd,UAAG,KAAK,KAAI,SAAC,EAAM,KAAE,CAArB,EACM,OAAC,EADP;AAEA,UAAoB,CAAhB,KAAK,KAAI,SAAC,EAAM,KAAE,CAAF,CAAK,IAAI,KAAK,KAAI,WAAC,CAAD,CAAG,WAAzC;AACE,iBAA+B,KAAK,KAAI,WAAC,CAAD,CAAI,gBAAC,EAAY,WAAW,CAAC,GAAI,KAAK,KAAI,WAAC,CAAD,CAAG,MAAjB;;AAIpE,mBAAY,KAAK;AACjB,kBAAW,qCAAc,CAAC,EAAD;AACzB,YAAG,OAAQ,IAA+B,CAA1B,4CAAqB,CAAC,EAAD,CAAK,KAAS,WAAC,QAAD,CAAT,CAA1C,EACE,MAAM,6CAAwC,QAAC,YAAM,CAAC,KAAD,CAAN,CADjD;AAEA,YAAG,CAAI,OAAQ,IAAsB,CAAX,WAAC,QAAD,CAAW,KAAG,CAAH,CAArC,EACE,MAAM,6CAAwC,QAAC,YAAM,CAAC,KAAD,CAAN,CADjD;AAGA,iBAAS,QAAsB,OAAX,WAAC,QAAD,CAAW,GAAE,CAAF,kBAA/B;AAAI;AAEF,cAAG,OAAH;AACE,oBAAS,6CAAsB,CAAC,GAAI,CAAL;AAE/B,wBAAS;AAEX,sBAAa;AAQb,cAAG,MAAO,KAAG,EAAb,EACE,SAAU,MAAO,GAAE,GADrB;AAEA,mBAAU,MAAO,GAAE,QAAQ,CAAC,CAAD,CAAG,gBAAC,EAAY,WAAW,CAAC,UAAW,QAAQ,CAAC,CAAD,CAAG,MAAvB,CAArC;;;AAxCF;AAAgB;AAzBE;AAAlB;AAEnB;AAEA,kBAAa,qBAAgB,CAAC,UAAD;AAC7B,UAAG,SAAU,KAAE,IAAf,EACE,MAAM,6BAAwB,QAAC,YAAM,CAAC,UAAD,CAAN,CADjC;AAEA,eAAU,mBAAM,CAAC,SAAU,mBAAa,GAAZ,iBAAY,CAAC,SAAD,EAA6B,GAAhB,uBAAgB,CAAC,WAAY,EAAb,CAA1C,CAAX;AAPG;AAAkB;AAfI;AAAtB;AAInB;AAEA,kBAAa,qBAAgB,CAAC,UAAD;AAC7B,UAAG,SAAU,KAAE,IAAf,EACE,MAAM,6BAAwB,QAAC,YAAM,CAAC,UAAD,CAAN,CADjC;AAEA,eAAU,mBAAM,CAAC,SAAU,mBACb,GAAZ,iBAAY,CAAC,SAAD,EACI,GAAhB,qBAAgB,CAAC,OAAQ,WAAY,aAAc,eAAnC,CAFS,CAAX;AATG;AAAsB;AAiCV;AAAZ;AAInB,eAAU,UAAU;AAJD;AAAY;AARC;AAAb;AAEnB,UAAG,aAAO,SAAC,EAAM,IAAG,CAApB;AACE,iBAAU,aAAO,WAAC,CAAD;AAEjB,qBAAU;AALO;AAAa;AAzsCrB;;;AAoFO;AA00CiB;AAEhB,iDAAC,gDAClB,mBAAK,GAAJ,IAAI,iBAAwB,GAAR,qBAAQ,CAAK,KAAL,CAA7B,CADiB;AAF0D;AAA1C;AA10CjB;AAKC;AA0FqB;AAAb;AAE3B,eAAU;AAFiB;AAAa;AALA;AAAb;AAE3B,eAAU;AAFiB;AAAa;AALJ;AAEpC;AAFoC;AAeC;AAAV;AAO3B,UAAG,KAAM,IAAE,IAAX;AACM,eAAC;;AAIL,YAAG,CAAI,kBAAa,CAAC,MAAO;;;;YAAR,CAApB,EACE,MAAM,uBAAkB,QAAC,YAAM,CAAC,SAAU,KAAX,CAAN,CAD3B;;AAZyB;AAAU;AArBA;AAAV;AAE3B,UAAG,CAAI,kBAAa,CAAC,QAAS;;;;UAAV,CAApB,EACE,MAAM,yBAAoB,QAAC,YAAM,CAAC,SAAU,OAAX,CAAN,CAD7B;AAF2B;AAAU;AA1ElB;AAaD;AAqGiB;AAEnC,UAAG,QAAS,KAAG,EAAf;AACqB,mDAAC,oDAAqD,mBAIxD,GAAf,sCAAe,CAAC,KAAD,EAEb,WANqE,CAAtD;AASnB,YAAmB,2CAAC,qCAIlB,mBAAgB,GAAf,sCAAe,CAAC,KAAD,CAAhB,CAJiB;AAZsD;AAAxC;AArGjB;AAKE;AAuHiB;AAErC,UAAG,QAAS,KAAG,EAAf;AACqB,mDAAC,wDAAyD,mBAAC,WAAS,WAAV,CAA1D;AAEnB,YAAmB,2CAAC,yCAA0C,mBAAC,UAAD,CAA3C;AALkD;AAAlC;AAvHjB;AAKF;;AAEK;;AAEC;AAoxDiB;AAEtB,iDAAC,sCAAuC,mBAAC,QAAD,CAAxC;AAF4C;AAAtB;AApxDjB;AAKD;AAsxDiB;AAErB,iDAAC,4BAA6B,mBAAC,QAAD,CAA9B;AAF2C;AAAtB;AAtxDjB;AAKiB;AAwxDiB;AAGtC,iDAAC,4CAA6C,GAC/D,2EAD+D,CACc,mBAAM,GAAL,KAAK,gBAAN,CAD5D;AAFM;AADgC;AAxxDjB;AAKhB;AA4xDiB;AAEtB,iDAAC,4CAA6C,mBAAM,GAAL,KAAK,gBAAN,CAA9C;AAFgD;AAA1B;AA5xDjB;AAKH;AAg0DiB;AAEtC;AAEA,UAAG,KAAM,KAAE,IAAX;AACE,oBAAa;AAEb,wBAAa,KAAK,QAAC;AACF,iDAAC,6CAA8C,mBAAC,YAAD,CAA/C;AARuC;AAApB;AAh0DjB;AAKL;;AAGO;AAi+DiB;AAGrB,iDAAC,6CAClB,mBAAC,aAAiB,GAAN,MAAM,aAAlB,CADiB;AAFM;AADe;AAj+DjB;AAjlCzB,mBAslCc;AAOW;AAEvB,YAAM,qBAAgB,QAAC,YAAM,CAAC,oBAAD,CAAN;AAFA;AA49BZ;AA+4BS;AAAb;AAEP;AACA;AAEA,eAAU;AAEV,YAAc,CAAD;AACb,aAAQ;AACR,aAAO,CAAI,IAAM,IAAc,CAAT,QAAS,IAAG,GAAH,CAA/B,EACE,IAAG,CAAC,QAAC,YAAD,CAAW,KAAE,GAAjB;AAEE,iBAAU;AACV,eAAQ;OAGR,MAAI,QAAJ,IAAG;AAhBA;AAAa;AAmBF;AAAX;AAEP;AACA;AACA;AACA;AACA;AAEA,eAAU;AAEV,UAAG,CAAE,KAAG,EAAR;AAGE,sBAAe;AACf,iBAAS,QAAW,OAAC,CAAD,yBAApB;AAAI;AACF,cAAG,CAAC,QAAC,KAAD,CAAI,KAAE,GAAV,EACM,WAAJ,IAAG,CADL;;AAGQ,cAAD,sBAAC,UAAQ,WAAY,GAAE,CAAvB;AAGT,mBAAY;AACZ,uBAAgB;AAChB;AACE,qBAAY,mBAAa,CAAC,EAAG,QAAJ;AACzB,cAAG,QAAS,KAAG,CAAf;AAEE,kBAAM,CAAC,YAAD,CAAN,GAAwB,eAAI,CAAC,EAAG,SAAU,QAAS,GAAE,QAAzB;AACxB,wBAAJ,IAAG;AACH,uBAAY,QAAS,GAAE,CAAF;WAJvB;SAFF,QAQmB,EAAb,YAAa,KAAE,WAAF,CARnB;AAWA,cAAM,CAAC,WAAD,CAAN,GAAuB,eAAI,CAAC,EAAG,SAAoB,CAAH,CAAD,OAAI,GAAE,QAAF,CAAW,GAAE,CAArC;OAxB7B;AAVO;AAAW;AAr4DN;AAtlCd,GAslCc,2DAtlCd;ACAA,gCAES,sDAFT;;;AAQiB;;;AAEb;AACA;AAHa;AAgCiB;AAEhC,mBAAS;AACT,oBAAU;AAHoD;AAA9B;AAhCjB;AAUH;;;AAEV;AAFU;;;;;AAmEsB;AAAd;AAEpB,eAAU,aAAQ,QAAC;AAFC;AAAc;AAxBL;AAE7B,sBAAY,wCAAU,QAAC,YAAM,CAAC,IAAD,CAAN;AAFO;AAAD;AAKA;AAEpB,eAAT,KAAS;AACT;AAH6B;AAsCA;AAE7B,UAAG,UAAW,KAAG,EAAjB,EACE,aAAQ,cAAc,CAAC,sBAAS,CAAC,UAAD,EAC9B,oBAAe,QAAC,YAAM,CAAC,sBAAS,CAAC,UAAD,EAAc,iBAAI,CAAC,WAAD,CAA5B,CAAN,CADI,CADxB;AAF6B;AAxDA;AAE7B,UAAG,WAAM,CAAC,UAAD,CAAT;AACE,qBAAQ,CAAC,WAAY,QAAG,CAAC,UAAD,CAAmB,GAAJ,GAAF,GAAQ,WAArC;AAER,YAAA,aAAQ,CAAC,WAAY,WAAb;AALmB;AA6BN;AAAH;AAEpB,UAAG,aAAQ,YAAY,CAAC,sBAAS,CAAC,UAAD,CAAV,CAAvB;AACE,iBAA0B,aAAQ,SAAC,sBAAS,CAAC,UAAD,CAAV,CAAwB;AAE1D,qBAAU;AALQ;AAAG;AALG;AAAN;AAEpB,eAAU,aAAQ,YAAY,CAAC,sBAAS,CAAC,UAAD,CAAV;AAFV;AAAM;AAkBK;AAAX;AAGpB,eAAU,WAAM,CAAC,UAAD;AAChB,UAAG,MAAH,EACE,gBAAe,QAAG,CAAC,UAAD,CAAlB,CADF;AAJoB;AAAW;AAQJ;AAE3B,UAAG,aAAQ,YAAY,CAAC,sBAAS,CAAC,UAAD,CAAV,CAAvB,EACE,aAAQ,OAAO,CAAC,sBAAS,CAAC,UAAD,CAAV,CADjB;AAF2B;AA1CD;AAE1B,mBAAQ;AAFkB;AAtCd;AAlBd;ACAA,gCAES,8BAFT;;;AAQc,oFAEQ,YACC,YACJ,SACC,SACG,aACC,aACD,aACA,aACC,aACI,kBACC,iBAZf;;AAEQ;AACC,gCAAY,sBAAZ;AACJ;AACC,6BAAY,sBAAZ;AACG;AACC,iCAAY,uBAAZ;AACD,mCDET,8CCFS;AACA;AACC,iCAAY,uBAAZ;AACI;AACC,sCAAY,sBAAZ;AACV;AACH;AACI,+BDLN,+CCKM;AACA;AACA;AACK;AAlBX;AAqBA;;;AAEV;AACA;AACA;AACA;AACA;AACA;AAPU;;;;;AAyEiB;AAAT;AAEpB,eAAU;AAFU;AAAS;AAyBC;AAE9B,qBAAW,sBAAS,CAAC,KAAD;AAFU;AAVJ;AAAN;AAEpB,eAAU;AAFU;AAAM;AAyBC;AAE3B,kBAAQ;AAFmB;AA9BG;AAAV;AAEpB,eAAU;AAFU;AAAU;AAyBC;AAE/B,sBAAY;AAFmB;AAxCD;AAAV;AAEpB,eAAU;AAFU;AAAU;AALA;AAAV;AAEpB,eAAU;AAFU;AAAU;AA8BC;AAE/B,sBAAY;AAFmB;AAfI;AAAf;AAEpB,eAAU;AAFU;AAAe;AAyBC;AAEpC,2BAAiB;AAFmB;AAhEP;AAE7B,mBAAM,CAAC,GAAI,KAAL;AAFwB;AAAD;AAaA;AAE7B,mBAAM,CAAC,KAAM,KAAP;AAF4C;AAArB;AARA;AAE7B,sBAAY,qCAAY,QAAC;AACzB,kBAAQ;AACR,qBAAW;AACX,sBAAY;AAL+C;AAA9B;AAaA;AAEpB,eAAT,KAAS;AACT;AAH6B;AAzDjB;;;AA7Bd,GA6Dc,WA7Dd;ACAA,iCAES,oCAFT;;;AASe,qFAEW,gBACE,kBACL,aACM,mBACN,YANR;;AAEW;AACE;AACL,mCFKT,8CELS;AACM;AACN;AACA;AACE;AACL,+BFAN,+CEAM;AACM;AACN;AAXL;AAcA;;;AAEX;AAGA;AALW;;;;;AAiEkB;AAAV;AAErB;AACA,eAAU;AAHW;AAAU;AAMM;AAErC,UAAG,cAAH,EACE,MADF;AAEA,uBAAa;AACb,wBAAa,CAAC,aAAD;AALwB;AAjBP;AAE9B,sBAAY,qCAAY,QAAC;AAFM;AAAD;AAKA;AAErB,eAAT,KAAS;AACT;AAH8B;AA3DjB;;;AAwBG;;;AAEd;AAFc;;;;;AAyEqB;AAAb;AAExB,eAAU,SAAI;AAFU;AAAa;AAKE;AAAf;AAExB,eAAU,SAAI;AAFU;AAAe;AAQD;AAEtC;AACA;AACA;AAEA,qBAA0B,iBAAI,CAAC,SAAI,wBAAL,CAA6B,MAAM,CAAC,MAAD;AACjE,mBAAQ;AACR,eAAS,QAA0B,OAAf,WAAC,YAAD,CAAe,GAAE,CAAF,kBAAnC;AAAI;AAEF,qBAAwB,YAAY,CAAC,CAAD,CAAI,MAAM,CAAC,GAAD;AAC9C,qBAAQ,SAAS,CAAC,iBAAI,CAAC,UAAU,CAAC,CAAD,CAAX,EAAiB,iBAAI,CAAC,UAAU,CAAC,CAAD,CAAX,CAA1B;;AAXmB;AAlBE;AAAhB;AAExB,eAAU,SAAI;AAFU;AAAgB;AALN;AAAV;AAExB,eAAU,SAAI;AAFU;AAAU;AAND;AAEvB;AACV,kBAAQ;AAHmD;AAA1B;AAzDjB;;;AAcE;AAoGqB;AAAb;AAE1B,eAAU;AAFgB;AAAa;AAKE;AAAf;AAE1B,eAAU;AAFgB;AAAe;AAKD;;AAfE;AAAhB;AAE1B,eAAU;AAFgB;AAAgB;AALN;AAAV;AAE1B,eAAa;AAFa;AAAU;AA1FlB;;;AA7DpB,GAsEc,wBAtEd;ACAA,iCAIS,oBAJT;;;AAuBqB;AAAZ;AAGP,aAAU,QAAQ;AAHX;AAAY;AASA;AAAZ;AAGP,aAAwB,QAAS,SAAoB;AAH9C;AAAY;AASC;AAAb;AAGP,aAAwB,QAAS,SAAoB;AAH9C;AAAa;AAzCtB;ACAA,uCAIS,yGAJT;;;AAmB4B;;AAEH;;;AAErB;AACA;AAHqB;;;;;;AAwCiB;AAExC,oBAAU;AAEV,mBAAS,IAAO,MAAY,CAAC,IAAD;AAJsD;AAA1C;AAsBA;AAKxC;AALwC;AA+FJ;AAEpC,oBAAS,CAAC,YAAQ,UAAT;AACT,iBAAM;AAH8B;AAwDI;AAGxC;AACA;AACA;AAEA,aAAQ,kCAAW,CAAC,IAAD;AACnB,eAAgB,QAAkB,OAAP,WAAC,IAAD,CAAO,GAAE,CAAF,kBAAlC;AAAI;AAEF,cAAO,IAAI,CAAC,QAAD;AACX,YAAG,GAAI,KAAE,aAAT,EACE,IAAI,aAAJ,GAAoB,6BAAM,CAAC,IAAK,KAAN,CAD5B;;AAXsC;AA+VA;AAGxC;AACA;AACA;AAEA,mBAAQ,CAAC,UAAW,IAAZ;AACR,aAAQ,kCAAW,CAAC,IAAD;AACnB,eAAgB,QAAkB,OAAP,WAAC,IAAD,CAAO,GAAE,CAAF,kBAAlC;AAAI;AAEF,cAAO,IAAI,CAAC,QAAD;AACX,YAAG,GAAI,KAAE,MAAT,EACE,SAAS,MAAT,GAAkB,6BAAM,CAAC,IAAK,KAAN,CAD1B;;AAZsC;AANU;AAGlD,mBAAQ,CAAC,eAAgB,IAAjB;AAH0C;AA9FJ;AAG9C,mBAAQ,CAAC,WAAY,IAAb;AAHsC;AA1YL;AAEzC;AACA;AACA;AACA;AACA;AAEA,mBAAQ,CAAC,MAAO,IAAR;AACR,WAAK,SAAQ;AACb,aAAQ,kCAAW,CAAC,IAAD;AACnB,eAAgB,QAAkB,OAAP,WAAC,IAAD,CAAO,GAAE,CAAF,kBAAlC;AAAI;AAEF,cAAO,IAAI,CAAC,QAAD;AACX,YAAG,GAAI,KAAE,OAAT;AACE,eAAK,OAAL,GAAe,6BAAM,CAAC,IAAK,KAAN;AAEvB,kBAAG,GAAI,KAAE,SAAT;AACE,eAAK,SAAL,GAAiB,6BAAM,CAAC,IAAK,KAAN;AAEzB,kBAAG,GAAI,KAAE,SAAT;AAEE,qBAAY,+BAAQ,CAAC,IAAK,KAAN;AACpB,mBAAS,SAAqB,QAAhB,QAAQ,OAAQ,GAAE,CAAF,qBAA9B;AAAI;AACF,2BAAU,CAAC,KAAK,SAAQ,WAAC,KAAK,SAAQ,MAAI,CAAC,uCAAY,QAAC,YAAd,CAAlB,EAA0C,gCAAS,CAAC,QAAS,GAAV,CAAjE;;SAJd;;AApBuC;AAgZC;AAG1C;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEA,mBAAQ,CAAC,OAAQ,IAAT;AACR,YAAM,aAAY;AAClB,YAAM,eAAc;AACpB,YAAM,kBAAiB;AACvB,YAAM,WAAU;AAChB,YAAM,aAAY;AAClB,aAAQ,kCAAW,CAAC,IAAD;AACnB,eAAgB,QAAkB,OAAP,WAAC,IAAD,CAAO,GAAE,CAAF,kBAAlC;AAAI;AAEF,cAAO,IAAI,CAAC,QAAD;AACX,YAAG,GAAI,KAAE,WAAT;AACE,gBAAM,WAAN,GAAoB,6BAAM,CAAC,IAAK,KAAN;AAE5B,kBAAG,GAAI,KAAE,OAAT;AACE,gBAAM,OAAN,GAAgB,6BAAM,CAAC,IAAK,KAAN;AAExB,kBAAG,GAAI,KAAE,aAAT;AAEE,yBAAgB,+BAAQ,CAAC,IAAK,KAAN;AACxB,mBAAS,SAAyB,QAApB,YAAY,OAAQ,GAAE,CAAF,qBAAlC;AAAI;AACF,+BAAc,CAAC,MAAM,aAAY,WAAC,MAAM,aAAY,MAAI,CAAC,2CAAgB,QAAC,YAAlB,CAAvB,EAAmD,gCAAS,CAAC,YAAa,GAAd,CAA/E;;SAGlB,UAAG,GAAI,KAAE,eAAT;AAEE,2BAAkB,+BAAQ,CAAC,IAAK,KAAN;AAC1B,mBAAS,SAA2B,QAAtB,cAAc,OAAQ,GAAE,CAAF,qBAApC;AAAI;AACF,iCAAgB,CAAC,MAAM,eAAc,WAAC,MAAM,eAAc,MAAI,CAAC,6CAAkB,QAAC,YAApB,CAAzB,EAAuD,gCAAS,CAAC,cAAe,GAAhB,CAArF;;SAGpB,UAAG,GAAI,KAAE,kBAAT;AAEE,8BAAqB,+BAAQ,CAAC,IAAK,KAAN;AAC7B,mBAAS,SAA8B,QAAzB,iBAAiB,OAAQ,GAAE,CAAF,qBAAvC;AAAI;AACF,oCAAmB,CAAC,MAAM,kBAAiB,WAAC,MAAM,kBAAiB,MAAI,CAAC,gDAAqB,QAAC,YAAvB,CAA5B,EAA6D,gCAAS,CAAC,iBAAkB,GAAnB,CAA9F;;SAGvB,UAAG,GAAI,KAAE,WAAT;AAEE,uBAAc,+BAAQ,CAAC,IAAK,KAAN;AACtB,mBAAS,SAAuB,QAAlB,UAAU,OAAQ,GAAE,CAAF,qBAAhC;AAAI;AACF,6BAAY,CAAC,MAAM,WAAU,WAAC,MAAM,WAAU,MAAI,CAAC,yCAAc,QAAC,YAAhB,CAArB,EAA+C,gCAAS,CAAC,UAAW,GAAZ,CAAzE;;SAGhB,UAAG,GAAI,KAAE,aAAT;AAEE,yBAAgB,+BAAQ,CAAC,IAAK,KAAN;AACxB,mBAAS,SAAyB,QAApB,YAAY,OAAQ,GAAE,CAAF,qBAAlC;AAAI;AACF,+BAAc,CAAC,MAAM,aAAY,WAAC,MAAM,aAAY,MAAI,CAAC,2CAAgB,QAAC,YAAlB,CAAvB,EAAmD,gCAAS,CAAC,YAAa,GAAd,CAA/E;;SAJlB;;AAzDwC;AAzKI;AAG9C;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEA,6BAAkB,CAAC,WAAY,IAAb;AACR,gBAAD,sBAAC,cAAY,CAAb;AACT,gBAAU,YAAW;AACrB,gBAAU,sBAAqB;AAC/B,aAAQ,kCAAW,CAAC,IAAD;AACnB,eAAgB,QAAkB,OAAP,WAAC,IAAD,CAAO,GAAE,CAAF,kBAAlC;AAAI;AAEF,cAAO,IAAI,CAAC,QAAD;AACX,YAAG,GAAI,KAAE,YAAT;AAEE,wBAAe,+BAAQ,CAAC,IAAK,KAAN;AACvB,mBAAS,SAAwB,QAAnB,WAAW,OAAQ,GAAE,CAAF,qBAAjC;AAAI;AACF,mCAAkB,CAAC,UAAU,YAAW,WAAC,UAAU,YAAW,MAAI,CAAC,+CAAoB,QAAC,YAAtB,CAA1B,EAA0D,gCAAS,CAAC,WAAY,GAAb,CAAzF;;SAGtB,UAAG,GAAI,KAAE,sBAAT;AAEE,kCAAyB,+BAAQ,CAAC,IAAK,KAAN;AACjC,mBAAS,SAAkC,QAA7B,qBAAqB,OAAQ,GAAE,CAAF,qBAA3C;AAAI;AACF,uCAAsB,CAAC,UAAU,sBAAqB,WAAC,UAAU,sBAAqB,MAAI,CAAC,mDAAwB,QAAC,YAA1B,CAApC,EAAwE,gCAAS,CAAC,qBAAsB,GAAvB,CAAjH;;SAG1B,UAAG,GAAI,KAAE,UAAT;AACE,oBAAU,aAAV,GAA0B,6BAAM,CAAC,IAAK,KAAN;AAElC,kBAAG,GAAI,KAAE,KAAT;AAEE,iBAAQ,+BAAQ,CAAC,IAAK,KAAN;AACN,oBAAD,sBAAC,cAAY,IAAI,OAAjB;AACT,mBAAS,SAAiB,QAAZ,IAAI,OAAQ,GAAE,CAAF,qBAA1B;AAAI;AACF,sBAAU,CAAC,CAAD,CAAV,GAAiB,6BAAM,CAAC,IAAK,GAAN;;AACzB,oBAAU,QAAV,GAAqB;SANvB;;AArC4C;AAuGE;AAEhD;AACA;AACA;AACA;AACA;AACA;AAEA,6BAAkB,CAAC,aAAc,IAAf;AAClB,kBAAY,YAAW;AACvB,kBAAY,sBAAqB;AACjC,aAAQ,kCAAW,CAAC,IAAD;AACnB,eAAgB,QAAkB,OAAP,WAAC,IAAD,CAAO,GAAE,CAAF,kBAAlC;AAAI;AAEF,cAAO,IAAI,CAAC,QAAD;AACX,YAAG,GAAI,KAAE,YAAT;AAEE,wBAAe,+BAAQ,CAAC,IAAK,KAAN;AACvB,mBAAS,SAAwB,QAAnB,WAAW,OAAQ,GAAE,CAAF,qBAAjC;AAAI;AACF,2CAA0B,CAAC,YAAY,YAAW,WAAC,YAAY,YAAW,MAAI,CAAC,uDAA4B,QAAC,YAA9B,CAA5B,EAAoE,gCAAS,CAAC,WAAY,GAAb,CAArG;;SAG9B,UAAG,GAAI,KAAE,sBAAT;AAEE,kCAAyB,+BAAQ,CAAC,IAAK,KAAN;AACjC,mBAAS,SAAkC,QAA7B,qBAAqB,OAAQ,GAAE,CAAF,qBAA3C;AAAI;AACF,+CAA8B,CAAC,YAAY,sBAAqB,WAAC,YAAY,sBAAqB,MAAI,CAAC,2DAAgC,QAAC,YAAlC,CAAtC,EAAkF,gCAAS,CAAC,qBAAsB,GAAvB,CAA7H;;SAGlC,UAAG,GAAI,KAAE,UAAT,EACE,YAAY,aAAZ,GAA4B,6BAAM,CAAC,IAAK,KAAN,CADpC;;AA9B8C;AAmCE;AAElD;AACA;AACA;AAEA,uBAAY,CAAC,eAAgB,IAAjB;AACZ,aAAQ,kCAAW,CAAC,IAAD;AACnB,eAAgB,QAAkB,OAAP,WAAC,IAAD,CAAO,GAAE,CAAF,kBAAlC;AAAI;AAEF,cAAO,IAAI,CAAC,QAAD;AACX,YAAG,GAAI,KAAE,QAAT;AACE,wBAAc,QAAd,GAAyB,6BAAM,CAAC,IAAK,KAAN;AAEjC,kBAAG,GAAI,KAAE,WAAT;AACE,wBAAc,WAAd,GAA4B,6BAAM,CAAC,IAAK,KAAN;AAEpC,kBAAG,GAAI,KAAE,OAAT;AACE,wBAAc,OAAd,GAAwB,6BAAM,CAAC,IAAK,KAAN;AAEhC,kBAAG,GAAI,KAAE,MAAT,EACE,cAAc,SAAd,GAA0B,6BAAM,CAAC,IAAK,KAAN,CADlC;;AApBgD;AAiGA;AAGlD,6BAAkB,CAAC,eAAgB,IAAjB;AAHgC;AA1IQ;AAG1D,6BAAkB,CAAC,eAAgB,IAAjB;AAHwC;AAgJJ;AAEtD;AACA;AACA;AAEA,uBAAY,CAAC,mBAAoB,IAArB;AACZ,aAAQ,kCAAW,CAAC,IAAD;AACnB,eAAgB,QAAkB,OAAP,WAAC,IAAD,CAAO,GAAE,CAAF,kBAAlC;AAAI;AAEF,cAAO,IAAI,CAAC,QAAD;AACX,YAAG,GAAI,KAAE,QAAT,EACE,kBAAkB,WAAlB,GAAgC,6BAAM,CAAC,IAAK,KAAN,CADxC;;AAXoD;AA3bA;AAGtD,iCAAsB,CAAC,mBAAoB,IAArB;AAHgC;AAqSQ;AAG9D,iCAAsB,CAAC,mBAAoB,IAArB;AAHwC;AA/PlB;AAG5C;AACA;AACA;AAEA,mBAAQ,CAAC,KAAM,IAAP;AACR,aAAQ,kCAAW,CAAC,IAAD;AACnB,eAAgB,QAAkB,OAAP,WAAC,IAAD,CAAO,GAAE,CAAF,kBAAlC;AAAI;AAEF,cAAO,IAAI,CAAC,QAAD;AACX,YAAG,GAAI,KAAE,MAAT;AACE,cAAI,MAAJ,GAAa,6BAAM,CAAC,IAAK,KAAN;AAErB,kBAAG,GAAI,KAAE,UAAT,EACE,IAAI,UAAJ,GAAiB,8BAAO,CAAC,IAAK,KAAN,CAD1B;;AAf0C;AAsHO;AAGnD;AACA;AACA;AACA;AACA;AAEA,mBAAQ,CAAC,UAAW,IAAZ;AACR,aAAQ,kCAAW,CAAC,IAAD;AACnB,eAAgB,QAAkB,OAAP,WAAC,IAAD,CAAO,GAAE,CAAF,kBAAlC;AAAI;AAEF,cAAO,IAAI,CAAC,QAAD;AACX,YAAG,GAAI,KAAE,MAAT;AACE,mBAAS,MAAT,GAAkB,6BAAM,CAAC,IAAK,KAAN;AAE1B,kBAAG,GAAI,KAAE,YAAT;AAEE,wBAAe,+BAAQ,CAAC,IAAK,KAAN;AACvB,mBAAS,SAAwB,QAAnB,WAAW,OAAQ,GAAE,CAAF,qBAAjC;AAAI;AACF,8BAAa,CAAC,SAAS,YAAW,WAAC,SAAS,YAAW,MAAI,CAAC,0CAAe,QAAC,UAAjB,CAAzB,EAAoD,gCAAS,CAAC,WAAY,GAAb,CAAlF;;SAJjB;;AAjBiD;AA0BN;AAG7C;AACA;AACA;AAEA,mBAAQ,CAAC,UAAW,IAAZ;AACR,aAAQ,kCAAW,CAAC,IAAD;AACnB,eAAgB,QAAkB,OAAP,WAAC,IAAD,CAAO,GAAE,CAAF,kBAAlC;AAAI;AAEF,cAAO,IAAI,CAAC,QAAD;AACX,YAAG,GAAI,KAAE,MAAT;AACE,mBAAS,MAAT,GAAkB,6BAAM,CAAC,IAAK,KAAN;AAE1B,kBAAG,GAAI,KAAE,YAAT,EACE,SAAS,eAAT,GAA2B,6BAAM,CAAC,IAAK,KAAN,CADnC;;AAf2C;AAwFD;AAG5C;AACA;AACA;AACA;AACA;AAEA,yBAAc,CAAC,SAAU,IAAX;AACd,aAAQ,kCAAW,CAAC,IAAD;AACnB,eAAgB,QAAkB,OAAP,WAAC,IAAD,CAAO,GAAE,CAAF,kBAAlC;AAAI;AAEF,cAAO,IAAI,CAAC,QAAD;AACX,YAAG,GAAI,KAAE,SAAT;AAEE,qBAAY,+BAAQ,CAAC,IAAK,KAAN;AACpB,mBAAS,SAAqB,QAAhB,QAAQ,OAAQ,GAAE,CAAF,qBAA9B;AAAI;AACF,+BAAc,CAAC,QAAQ,SAAQ,WAAC,QAAQ,SAAQ,MAAI,CAAC,2CAAgB,QAAC,UAAlB,CAArB,EAAiD,gCAAS,CAAC,QAAS,GAAV,CAA3E;;SAJlB;;AAd0C;AApBE;AAG9C;AACA;AACA;AAEA,mBAAQ,CAAC,WAAY,IAAb;AACR,aAAQ,kCAAW,CAAC,IAAD;AACnB,eAAgB,QAAkB,OAAP,WAAC,IAAD,CAAO,GAAE,CAAF,kBAAlC;AAAI;AAEF,cAAO,IAAI,CAAC,QAAD;AACX,YAAG,GAAI,KAAE,MAAT;AACE,oBAAU,MAAV,GAAmB,6BAAM,CAAC,IAAK,KAAN;AAE3B,kBAAG,GAAI,KAAE,OAAT,EACE,UAAU,OAAV,GAAoB,6BAAM,CAAC,IAAK,KAAN,CAD5B;;AAf4C;AAxHA;AAG9C;AACA;AACA;AACA;AACA;AAEA,mBAAQ,CAAC,WAAY,IAAb;AACR,aAAQ,kCAAW,CAAC,IAAD;AACnB,eAAgB,QAAkB,OAAP,WAAC,IAAD,CAAO,GAAE,CAAF,kBAAlC;AAAI;AAEF,cAAO,IAAI,CAAC,QAAD;AACX,YAAG,GAAI,KAAE,MAAT;AACE,oBAAU,MAAV,GAAmB,6BAAM,CAAC,IAAK,KAAN;AAE3B,kBAAG,GAAI,KAAE,SAAT;AAEE,qBAAY,+BAAQ,CAAC,IAAK,KAAN;AACpB,mBAAS,SAAqB,QAAhB,QAAQ,OAAQ,GAAE,CAAF,qBAA9B;AAAI;AACF,2BAAU,CAAC,UAAU,SAAQ,WAAC,UAAU,SAAQ,MAAI,CAAC,uCAAY,QAAC,YAAd,CAAvB,EAA+C,gCAAS,CAAC,QAAS,GAAV,CAA3E;;SAJd;;AAjB4C;AAlEJ;AAG1C;AACA;AACA;AACA;AACA;AAEA,mBAAQ,CAAC,OAAQ,IAAT;AACR,aAAQ,kCAAW,CAAC,IAAD;AACnB,eAAgB,QAAkB,OAAP,WAAC,IAAD,CAAO,GAAE,CAAF,kBAAlC;AAAI;AAEF,cAAO,IAAI,CAAC,QAAD;AACX,YAAG,GAAI,KAAE,MAAT;AACE,gBAAM,MAAN,GAAe,6BAAM,CAAC,IAAK,KAAN;AAEvB,kBAAG,GAAI,KAAE,YAAT;AAEE,uBAAc,+BAAQ,CAAC,IAAK,KAAN;AACtB,mBAAS,SAAuB,QAAlB,UAAU,OAAQ,GAAE,CAAF,qBAAhC;AAAI;AACF,6BAAY,CAAC,MAAM,YAAW,WAAC,MAAM,YAAW,MAAI,CAAC,yCAAc,QAAC,UAAhB,CAAtB,EAAgD,gCAAS,CAAC,UAAW,GAAZ,CAA3E;;SAGhB,UAAG,GAAI,KAAE,YAAT;AACE,gBAAM,YAAN,GAAqB,6BAAM,CAAC,IAAK,KAAN;AAE7B,kBAAG,GAAI,KAAE,eAAT;AACE,gBAAM,eAAN,GAAwB,8BAAO,CAAC,IAAK,KAAN;AAEjC,kBAAG,GAAI,KAAE,gBAAT;AACE,gBAAM,gBAAN,GAAyB,8BAAO,CAAC,IAAK,KAAN;AAElC,kBAAG,GAAI,KAAE,kBAAT;AACE,gBAAM,kBAAN,GAA2B,8BAAO,CAAC,IAAK,KAAN;AAEpC,kBAAG,GAAI,KAAE,sBAAT;AACE,gBAAM,sBAAN,GAA+B,8BAAO,CAAC,IAAK,KAAN;AAExC,kBAAG,GAAI,KAAE,aAAT;AACE,gBAAM,aAAN,GAAsB,6BAAM,CAAC,IAAK,KAAN;AAE9B,kBAAG,GAAI,KAAE,YAAT;AACE,gBAAM,eAAN,GAAwB,6BAAM,CAAC,IAAK,KAAN;AAEhC,kBAAG,GAAI,KAAE,UAAT,EACE,MAAM,UAAN,GAAmB,6BAAM,CAAC,IAAK,KAAN,CAD3B;;AA7CwC;AA1DE;AAG5C;AACA;AACA;AAEA,mBAAQ,CAAC,SAAU,IAAX;AACR,aAAQ,kCAAW,CAAC,IAAD;AACnB,eAAgB,QAAkB,OAAP,WAAC,IAAD,CAAO,GAAE,CAAF,kBAAlC;AAAI;AAEF,cAAO,IAAI,CAAC,QAAD;AACX,YAAG,GAAI,KAAE,MAAT;AACE,kBAAQ,MAAR,GAAiB,6BAAM,CAAC,IAAK,KAAN;AAEzB,kBAAG,GAAI,KAAE,aAAT;AACE,kBAAQ,aAAR,GAAqC,uCAAa,CLsc1C,iDKtcmE,6BAAM,CAAC,IAAK,KAAN,CAA/B;AAEpD,kBAAG,GAAI,KAAE,QAAT;AACE,kBAAQ,QAAR,GAAmB,8BAAO,CAAC,IAAK,KAAN;AAE5B,kBAAG,GAAI,KAAE,OAAT;AACE,kBAAQ,OAAR,GAAkB,8BAAO,CAAC,IAAK,KAAN;AAE3B,kBAAG,GAAI,KAAE,MAAT;AACE,kBAAQ,SAAR,GAAoB,6BAAM,CAAC,IAAK,KAAN;AAE5B,kBAAG,GAAI,KAAE,UAAT,EACE,QAAQ,aAAR,GAAwB,6BAAM,CAAC,IAAK,KAAN,CADhC;;AA3B0C;AAvDK;AAEjD;AAEA,qBAAgB,4BAAuB,QAAC,YAAM,CAAC,OAAQ,IAAT,CAAN;AACxC;AACE,oBAAY;AADd;AAGE,oBAAa,eAAb,YAAa;AAHf;AALiD;AAlD1B;AArBzB;ACAA,mCAOS,iHAPT;;;AAuFqB;AAgDU;AApHZ,2EAAkC,YHVtC,gDGUsC,CAAlC;AACH;AACA,wEAA+B,qBAA/B;AACE,0EAAiC,WJdrC,8CIcqC,CAAjC;AAEU;;;AAExB;AACA;AACA;AACA;AALwB;;;;;;;AAygBiB;AAG3C,yBAAe;AACf,mCAAY,QAAZ;AAHwB;AADmB;AAzgBjB;AAeC;;;AAEzB;AACA;AACA;AACA;AACA;AANyB;;;;;;;;AAijBiB;AAG5C,yBAAe;AACf,mCAAY,QAAZ;AACA,oCAAa,SAAb;AAJkD;AADN;AAjjBjB;AAkBH;;;AAEtB;AACA;AACA;AACA;AALsB;;;;;;AAifiB;AAGzC,yBAAe;AACf,oCAAa,SAAb;AACA,2BAAiB;AACjB,yBAAe;AALuD;AAD7B;AAjfjB;AAgBI;;;AAE1B;AAF0B;;;;;AAyhBiB;AAG7C,oBAAU;AACS,iDAAC,yBAA0B,mBAAO,GAAN,MAAM,YAAP,CAA3B;AAHe;AADW;AAzhBjB;AAQG,sFAAiB,QAzDtB,wCAyDsB,CAAjB;AACC,uFAAiB,QA3CtB,yCA2CsB,CAAjB;AACH,oFAAkB,SA1BvB,sCA0BuB,CAAlB;AACD,sFAA+B,SA3BnC,sCA2BmC,CAA/B;AACE;AAEX;;;AAEjB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATiB;;;;;;;;;;AA2RoB;AAAZ;AAE3B,eAAmB,WAAD;AAFS;AAAY;AA8IC;AAExC,UAAc,CAAV,yCAAU,IAAG,oBAAH,CAAmB,IAAI,KAArC;AACE,kCAAsB;;AAEtB,YAAG,KAAM,KAAE,mBAAX,EAA6B,MAA7B;AACA,YAAG,KAAH;AAEE,wBAAS,CAAC,KAAK,IAAN;;AAGT;;;AAXoC;AAzIK;AAAlB;AAE3B,eAAU,gBAAW;AAFM;AAAkB;AAyJJ;AAGzC,sBAAW,OAAO,CAAC,KAAD;AAHuB;AA7KN;AAGnC;AAEA,cAAS,6BAAwB,QAAC,YAAM,CAAC,KAAM,SAAU,WAAY,YAA7B,CAAN;AAClC,UAAY,SAAD,QAAX;AACE,iBAAS,CAAC,KAAD;AAEX,gBAAY,aAAD,QAAX;AACE,qBAAQ,CAAC,KAAD;AAER,kBAAM,sBAAS,QAAC,YAAM,CAAC,wBAAyB,GAAE,YAA5B,CAAN;AAZiB;AAmLD;AAElC,UAAG,SAAK,KAAG,KAAX;AAEE,oBAAQ;AACR;OAHF;AAFkC;AArPG;;AAGrC;AAEmB;AAEjB;AAEA,YAAG,IAAI,cAAC,EAAW,KAAE,GAArB;AAEE,uBAAc,sCAAW,QAAC;AAC1B;AACE,mEAAuB,YAAY,CAAC,WAAY,IAAI,iBAAC,EAAlB;AACnC,2BAAU;AAFZ;AAIE,sBAAW,eAAX,UAAW;AACX;AALF;AASA,cAAY,WAAD,QAAX;AACE,uBAAW;AAEb,oBAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,KAAD,CADZ;SAIA,MAAA,aAAO,CAAC,KAAM,SACZ,mBAAM,CAAC,2DAA4D,mBAAK,EAAJ,IAAI,cAAC,GAAY,WAAlB,CAA7D,EACN,SAFK;AAvBQ;AA6BC;AAElB;AAFkB;AAIlB,mCAA0B,eAAlB,4CAAkB,QAAC,oDAAD,EAA1B;AACA,uBAAO,CAAC,KAAM,SAAU,mCAAoC,SAArD;AALW;AAElB;AAFkB;;AASpB;AACA;AA5CqC;AA+C9B,iBAAP,KAAO;AACP,sBAAU;AAEV,mBAAY,0BAAS,eAAe,CAAC,KAAI,MAAM,QAAX;AAEpC,+BAA0B,eAAnB,qCAAY,QAAC,YAAM,CAAC,QAAD,CAAN,uCAAM,EAA1B;AACA,iBAAS,QAA8B,OAAzB,gBAAU,SAAQ,SAAC,EAAM,GAAE,CAAF,kBAAvC;AAAI;AACF,cAAG,gBAAU,SAAQ,QAAM,CAAC,CAAD,CAAI,KAAG,EAAlC,EACE,GAAG,WAAC,EAAO,SAAS,CAAC,gBAAU,SAAQ,QAAM,CAAC,CAAD,EAAK,gBAAU,SAAQ,kBAAe,CAAC,CAAD,CAA/D,CADtB;;AAGF,wBAAW,CAAC,wBAAD;AAzD0B;AA2CrC;AA3CqC;;AA4DG;AAEjC,eAAP,KAAO;AACP,oBAAU;AAH8B;AAqCH;AAErC,oBAAS,CAAC,KAAK,IAAN;AAF4B;AAkCE;;AAGjB;AAEpB;AACA;AAH6B;AAAT;AAKpB,kBAAS;AACT,cAAY,iBAAD,QAAX;AAEE,2BAAgB,gCAA2B,QAAC,YAAM,CAAC,MAAM,QAAS,QAAhB,CAAN;AAC5C;AACE,0BAAY,aAAZ,GACE;AAEE,2BAAW,CAAC,QAAD;AAFb;AAIF,+BAAW,CAAC,YAAD;AACX,sBAAS,YAAY;AACrB,kBAAG,CAAI,KAAP,EACE,iCAAY,YAAY,UAAxB,CADF;AARF;AAWE,kBAAG,CAAI,KAAP,EACE,YAAa,eAAb,YAAa,CADf;AAXF;WAHF;AAkBA,cAAG,CAAI,KAAP,EACE,WAAW,CAAC,QAAD,CADb;AAxBoB;AAAS;AAAT;;AA6BtB;AACA;AAEA,cAAS;AAET,UAAY,eAAD,QAAX;AAEE,sBAAe,+BAA0B,QAAC,YAAM,CAAC,MAAM,OAAP,CAAN;AAC1C;AACE,qBAAW,aAAX,GACE;AAEE,oCAAmB,CAAC,qBAClB;AAEE,uBAAS;AAFX,aADiB;AAFrB;AAQF,yBAAU,CAAC,WAAD;AACV,kBAAS,WAAW;AAXtB;AAaE,cAAG,CAAI,KAAP,EACE,WAAY,eAAZ,WAAY,CADd;AAbF;OAHF;AAoBA,UAAG,CAAI,KAAP,EACE,wBAAmB,CAAC,qBAClB;AAEE,iBAAS;AAFX,OADiB,CADrB;AAzDuC;AAkEI;;AAAhB;AAG3B;AAEA,gBAAsB,IAAX,OAAW,CACpB;AAEE,yBAAW,CACT,QACA;AAEE,kBAAQ;AACR,iBAAO,CAAC,QAAD;AAHT,UAKA;AAEE,gBAAM,CAAC,sBAAS,QAAC,YAAM,CAAC,iBAAkB,GAAE,OAAO,OAAC,EAA7B,CAAN,CAAX;AAFR,SAPS;AAFb,OADoB;AAiBlB,aAAC;AAtBsB;AAAgB;AA5NL;AAAX;AAE3B,eAAU,0BAAS,eAAe,CAAC,IAAI,MAAM,WAAX;AAFP;AAAW;AAUF;AAEpB,gDAAC,MAAD;AAChB,yBAAe,kCAA6B,QAAC;AAHY;AAArB;AAMA;AAExB,eAAZ,KAAY;AACL,eAAP,KAAO;AACP;AAJoC;AA6GJ;AAEhC,UAAG,CAAI,mBAAP,EACE,cAAS,CAAC,YAAa,SAAd,CADX;AAFgC;AAOI;;AAAT;AAE3B,eAAqB,IAAX,OAAW,CACnB;AAEE,uBAAS,CACP;AAEE,cAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,KAAD,CADZ;AAEA,iBAAO,CAAC,IAAD;AAJT,UAMA;AAEE,gBAAM,CAAC,iCAA4B,QAAC,YAAM,CAAC,KAAD,CAAN,CAA9B;AAFR,SAPO;AAFX,OADmB;AAFM;AAAS;AA/HH;AAEjC,uBAAY,CAAC,KAAD;AAFqB;AA6GC;AAExB;AACV,UAAG,uBAAH,EAA2B,iBAAY,CAAC,IAAD,CAAvC;AAHkC;AArSf;;AA8BC,+BAAO,UxD0cjB,+BwD1ciB,CAAP;AASN;AACO,mCAQQ,4CARR;AACD;AACA,iCxD3GR,kCwD2GQ;AACF,+BA/CW,4CA+CX;AACE,iCAlDW,8CAkDX;AACC,kCAlDW,+CAkDX;AA7CF;AAgDU;;;AAE3B;AACA;AAH2B;;;;;AAqcgB;AAAR;AAErC,eAAU;AAF2B;AAAQ;AAKG;AAEhD,mBAAQ,OAAO,CAAC,KAAD;AAFiC;AAjBF;AAEpC;AACV,sBAAY,uBAAW,QAAC;AAHuB;AAAD;AAMA;AAErC,eAAT,KAAS;AACT;AAH8C;AAjBF;AAE5C,UAAa,kCAAH,eAAP,MAAO,CAAV;AAEE,wBAAyC,MAAO;AAChD,wBAAyC,MAAO,SAAhD;OAGA,MAAgB,yCAAC,MAAD;AAR0B;AA9af;AAOT;AAIF,gCxDoGV,8BwDpGU;AACA;AAZW;AAed;;;AAEb;AAFa;AA4GiB;AAEhB,gDAAC,GAAD;AAChB,oBAAU;AAH2D;AAArC;AA5GjB;AAkBY;AAG3B;AAEiB;AAEf;AAFe;AAIf,iCAA+B,eAAvB,0CAAgB,QAAC,YAAM,CAAC,GAAD,CAAN,yCAAM,EAA/B;AACA,YAAY,WAAD,QAAX,EACE,WAAW,CAAC,IAAD,CADb;AALe;AAEf;AAFe;;AASC;AAEhB,UAAY,SAAD,QAAX,EACE,SAAS,CAAC,KAAD,CADX;AAFgB;AAOlB;AACA;AAEA,UAAyB,IAAlB,cAAkB;AACzB,OAAG,KAAK,CAAC,GAAG,UAAC,GAAQ,GAAG,OAAC,GAAK,IAAtB;AACR,kBAAe,GAAG,WAAC,EAAO,eAAC;AAC3B,aAAS,QAAyB,OAAd,WAAC,WAAD,CAAc,GAAE,CAAF,kBAAlC;AAAI;AACF,SAAG,iBAAiB,CAAC,WAAW,CAAC,CAAD,EAAK,GAAG,WAAC,EAAO,IAAI,CAAC,WAAW,CAAC,CAAD,CAAZ,CAAhC;;AAEtB,OAAG,iBAAiB,CAAC,cAAD;AACpB,OAAG,iBAAiB,CAAC,gBAAD;AACpB,OAAG,iBAAiB,CAAC,kBAAD;AACpB,QAAG,GAAG,WAAC,EAAQ,GAAE,CAAjB,EACE,GAAG,QAAH,GAAe,GAAG,WAAC,EADrB;AAEA,QAAG,GAAG,gBAAC,EAAa,KAAG,EAAvB,EACE,GAAG,aAAH,GAAoB,GAAG,gBAAC,EAD1B;AAEA,QAAG,CAAO,aAAM,CAAC,GAAG,WAAC,EAAL,CAAhB;AACE,SAAG,KAAK,CAAC,GAAG,WAAC,EAAL;AAER,UAAA,GAAG;AAxCsB;AA2CI;AAAxB;AAGP,aAAqB,IAAX,OAAW,CACnB;AAEE,8BAAmB,CAAC,IAClB;AAEE,eAAO,CAAC,QAAD;AAFT,QAIA;AAEE,cAAM,CAAC,oBAAe,QAAC,YAAM,CAAC,qBAAsB,KAAvB,CAAN,CAAjB;AAFR,OALiB;AAFrB,KADmB;AAHd;AAAwB;AAnNjC,GAkKc,uCAlKd;ACAA,mCAES,qDAFT;;;AAauB;AAAd;AAGP,aAAU,YAAY,WAAW,CAAC,MAAO,QAAR;AAH1B;AAAc;AAbvB;ACAA,+BAQS,sKART;;;AAiGiB;AA5EQ;;AAEH;;;AAElB;AACA;AACA;AACA;AACA;AACA;AAPkB;;;;;;AAu+BuB;AAAf;AAE5B,eAAU,cAAQ,iBAAC;AAFS;AAAe;AAKF;AAAb;AAE5B,eAAU,cAAQ,cAAC;AAFS;AAAa;AAKG;AAAhB;AAE5B,eAAa,cAAO,CAAC,IAAI,QAAL;AAFQ;AAAgB;AAKC;AAAjB;AAE5B,eAAa,eAAQ,CAAC,IAAI,QAAL;AAFO;AAAiB;AA1BR;AAGrC,oCAAa,SAAb;AACA,qBAAW;AACX,0BAAgB;AAChB,wBAAc;AACd,oBAAU;AACV,qBAAW;AAPuF;AAD7D;AA59BjB;AA4BD;;;AAEjB;AACA;AACA;AACA;AALiB;;;;;;AAmgCiB;AAIpC,mCAAY,QAAZ;AACA,0BAAgB;AAChB,wBAAc;AACd,qBAAW;AALS;AAFgB;AAngCjB;AAgBF;;;AAEf;AACA;AACA;AACA;AACA;AACA;AAPe;;;;;;AA4+BqB;AAAb;AAEzB,eAAU,cAAQ,cAAC;AAFM;AAAa;AAXJ;AAGlC,oCAAa,SAAb;AACA,wBAAc;AACd,2BAAiB;AACjB,wBAAc;AACd,yBAAe;AACf,qBAAW;AAPuD;AADhC;AAj+BjB;AAqBI,4EAAqB,YAjEtB,kCAiEsB,CAArB;AACD,8EAAkC,YAlElC,kCAkEkC,CAAlC;AACE,6EAAkB,SAvBvB,+BAuBuB,CAAlB;AACD,+EAA+B,SAxBnC,+BAwBmC,CAA/B;AACG,+EAAoB,WAzCzB,iCAyCyB,CAApB;AACP,2EAAkC,YLpFtC,gDKoFsC,CAAlC;AAEI;;AAEN;;;AAEb;AACA;AACA;AAEA;AACA;AAPa;;;;;;;;AA0R+B;AAAvB;AAGvB,eAAU;AACV,eAAU,YAAK,aAAa,CAAC,aAAD,CAAe;AAE3C,UAAG,MAAO,KAAE,IAAZ,EACE,MAAM,0BAAqB,QAAC,aAAS,CAAC,0BAA2B,mBAAC,gBAAD,CAA5B,CAAT,CAD9B;AANuB;AAAuB;AAsdT;AAErC,UAAG,KAAM,KAAG,gBAAZ;AAEE,YAAG,gBAAY,KAAG,IAAlB,EACE,gBAAW,uBAAuB,CAAC,IAAD,CADpC;AAEA,2BAAe;AACf,YAAG,gBAAY,KAAG,IAAlB,EACE,gBAAW,iBAAiB,CAAC,IAAD,CAD9B;OALF;AAFqC;AApKT;AAAL;AAEvB;AACA,UAAG,CAAY,CAAC,gBAAU,OAAX,SAAf,EACE,MAAM,0BAAqB,QAAC,YAAM,CAAC,sCAAD,CAAN,CAD9B;AAEA,eAAU,gBAAU;AALG;AAAK;AAuPF;AAAH;AAEvB;AACA,eAAU,gBAAU;AAHG;AAAG;AAnqBa;AAEvC,UAAG,CAAY,CAAC,gBAAD,SAAf,EACE,MAAM,0BAAqB,QAAC,YAAM,CAAC,0BAAD,CAAN,CAD9B;AAFuC;AA4bL;AAGlC;AACA;AAEA,oBAAa,EAAb;AACA,uBAAgB,QAAQ,gBAAC,EAAzB;AACA,UAAG,qBAAQ,CAAC,QAAQ,WAAC,EAAO,IAAI,CAAC,cAAD,EAAkB,kBAAvC,CAAX;AAEE,sBAAkB;AAClB;AACE,wBAAe,IAAO,MAAM,CAAC,QAAQ,iBAAC,EAAV;AAD9B;;AAIA,YAAG,YAAQ,CAAC,WAAD,CAAc,IAAI,YAAQ,CAAW,WAAa,SAAxB,CAArC;AAEE,wBAAmC,WAAa;AAChD,wBAAgB,eAAQ,CAAC,WAAY,QAAb,CAAxB;AACA,2BAAmB,eAAQ,CAAC,WAAY,WAAb,CAA3B;SAJF;OAPF;AARkC;AA0LK;AAEzC;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA1CyC;AAriBT;AAG9B;AACO;AACH,YADG,IACH,uCAAO,oBAAe,CAAC,QAAQ,QAAT,CAAtB;AAGF,YAAG,SAAH;AAEE,cAAY,YAAD,QAAX,EACE,YAAO,CAAC,QAAD,CADT;AAEA,cAAY,WAAD,QAAX,EACE,WAAW,CAAC,QAAD,CADb;;AAKA,cAAY,WAAD,QAAX;AAEE,uBAAW,CAAC,QAAD;AACX;WAHF;AAKA,cAAY,YAAD,QAAX,EACE,YAAO,CAAC,QAAD,CADT;;AAnBJ;AAuBE,YAAG,CAAI,SAAP,EACE,QAAS,eAAT,QAAS,CADX;AAvBF;AAH8B;AAtCC;AAG/B;AACA;AA5L4B;AAwLG;AAM/B,YAAG,QAAS,KAAE,IAAd,EACE,iCAA8B,eAAlB,4CAAkB,QAAC,oDAAD,EAA9B,KADF;AAGA,oBAAa;AACb,YAAG,YAAa,KAAE,EAAlB,EACE,eAAU,CAAC,SAAU;;;;aAAW;;;;YAAtB,CADZ;AAEA,sBAAe,sBAAiB,QAAC,YAAM,CAAC,KAAM,SAAU,WAAY,UAAW,aAAc,SAAtD,CAAN;AAEjC,YAAG,SAAH;AAEE,cAAY,aAAD,QAAX,EACE,aAAQ,CAAC,WAAD,CADV;AAEA,cAAY,SAAD,QAAX;AACE,qBAAS,CAAC,WAAD;AAET,sBAAM,iCAA4B,QAAC,YAAM,CAAC,WAAD,CAAN;;AAIrC,cAAY,SAAD,QAAX;AAEE,qBAAS,CAAC,WAAD;AACT;WAHF;AAMA,cAAY,aAAD,QAAX;AACE,yBAAQ,CAAC,WAAD;AAER,sBAAM,iCAA4B,QAAC,YAAM,CAAC,WAAD,CAAN;;AAlCR;AAxLH;AAwLG;;AA0hBE;AAAV;AAEvB,eAAU,8BAAW,eAAe,CAAC,IAAI,OAAM,WAAX;AAFb;AAAU;AA/aK;AAAf;AAGvB,eAAoB,MAAY,CAAJ,IAAI;AAHT;AAAe;AAMH;AAAZ;AAGvB,eAAoB,MAAY,CAAJ,IAAI;AAHT;AAAY;AAoCA;;AAInC;AAEsB;AAEpB;AAEA,YAAG,IAAI,cAAC,EAAW,KAAE,GAArB;AAEE,uBAAc,IAAO,MAAM,CAAC,IAAI,iBAAC,EAAN;AAC3B,cAAG,YAAQ,CAAC,UAAD,CAAX;AACE,wBAAM,CAAC,yBAAoB,QAAC,YAAM,CAAC,MAAM,KAAM,WAAY,mCAAO,UAxaS,CAwazC,CAAN,EAAkD,YAAa,SAArF;AAEN,gBAAA,aAAO,CAAC,KAAM,WAAY,UAAW,uCAAwC,UAAW,SAAjF;SAGX,UAAG,IAAI,cAAC,EAAW,KAAE,GAArB;AACE,sBAAM,CAAC,yBAAoB,QAAC,YAAM,CAAC,MAAM,KAAS,KAAM,mCAAO,UA9ac,CA8a3C,CAAN,EAA+C,YAAa,SAAlF;AAEN,cAAA,aAAO,CAAC,KAAM,WAAY,UAAW,GAAI,UAAW,SAA7C;AAhBW;AAmBF;AAElB,qBAAO,CAAC,KAAK,WAAY,UAAW,GAAI,UAAW,SAA5C;AAFW;AAMpB;AA/BmC;AAiCnC,qBAAc,eAAU,CAAC,0BAAS,cAAc,CAC9C,YAAK,mBAAmB,CAAC,4BAAuB,CAAC,SAAD,EAAa,EAArC,CADsB,CAAxB;AAExB,YAAG,WAAY,KAAG,EAAlB,EACE,aAAc,UAAiB,GAAJ,GAAF,GAAQ,WADnC;AAGA,+BAA0B,eAAnB,qCAAY,QAAC,YAAM,CAAC,UAAD,CAAN,uCAAM,EAA1B;AACA,sBAAS,CAAC,wBAAmB,QAAC,YAAM,CAAC,MAAM,IAAK,mCAAO,SAAnB,CAAN,CAArB;AACT,iBAAI,CAAC,2BAAD;AAxC+B;AA+BnC;AA/BmC;;AAoJA;;AAInC;AAEsB;AAEpB,YAAG,IAAI,cAAC,EAAW,KAAE,GAArB;AACE,sBAAM,CAAC,yBAAoB,QAAC,YAAM,CAAC,MAAM,KAAS,KAAM,mCAAO,UAvjBc,CAujB3C,CAAN,EAA+C,YAAa,SAAlF;AAEN,cAAA,aAAO,CAAC,KAAM,WAAY,UAAW,GAAI,UAAW,SAA7C;AALW;AAQF;AAElB,qBAAO,CAAC,KAAK,WAAY,UAAW,GAAI,UAAW,SAA5C;AAFW;AAMpB;AApBmC;AAsBnC,qBAAc,eAAU,CAAC,0BAAS,cAAc,CAC9C,YAAK,uBAAuB,CAAC,4BAAuB,CAAC,SAAD,EAAa,OAC9D,yCAAe,2CADU,CADkB,CAAxB;AAIxB,+BAA0B,eAAnB,qCAAY,QAAC,YAAM,CAAC,WAAY,KAAb,CAAN,uCAAM,EAA1B;AACA,WAAG,WAAC,EAAO,SAAS,CAAC,eAAgB,kBAAjB;AACpB,WAAG,WAAC,CAAW,IAAO,UAAU,CAAC,MAAD,CAA5B;AACJ,sBAAS,CAAC,wBAAmB,QAAC,YAAM,CAAC,MAAM,IAAK,mCAAO,SAAnB,CAAN,CAArB;AACT,iBAAI,CAAC,2BAAD;AA9B+B;AAoBnC;AApBmC;;AAxDC;;AAIpC;AAEsB;AAEpB;AACA;AACA;AACA;AACA;AAGA,YAAG,IAAI,cAAC,EAAW,KAAE,GAArB;AAGE,kBAAS,IAAO,MAAM,CAAC,IAAI,iBAAC,EAAN;AACtB,cAAG,YAAQ,CAAC,KAAD,CAAX;AAEE,kBAAO,eAAQ,CAAC,KAAD;AACf,yBAAc,6BAAuB,CAAC,SAAD;AACrC,qBAAS,QAA0B,OAArB,UAAU,KAAI,SAAC,EAAM,GAAE,CAAF,kBAAnC;AAAI;AAEF,qBAAQ,UAAU,KAAI,WAAC,CAAD,CAAG;AACzB,kBAAG,CAAI,aAAM,CAAC,GAAI,MAAL,CAAb,EACE,MAAO,MAAP,GAAgB,GAAI,MADtB;;WAPJ;AAYA,sBAAM,CAAC,yBAAoB,QAAC,YAAM,CAAC,MAAM,KAAM,IAAO,MAAM,CAAC,IAAI,iBAAC,EAAN,EAAsB,oCAAQ,UArhBb,CAqhB3C,CAAN,EAA0E,YAAa,SAA7G;SAGN,MAAA,aAAO,CAAC,KAAM,WAAY,UAAW,GAAI,UAAW,SAA7C;AA5BW;AA+BF;AAElB,qBAAO,CAAC,KAAK,WAAY,UAAW,GAAI,UAAW,SAA5C;AAFW;AAMpB;AA3CoC;AA6CpC,qBAAc,eAAU,CAAC,0BAAS,cAAc,CAC9C,YAAK,aAAa,CAAC,YAAK,aAAa,CAAC,SAAD,CAAnB,CAD4B,CAAxB;AAIxB,+BAA0B,eAAnB,qCAAY,QAAC,YAAM,CAAC,WAAY,MAAb,CAAN,uCAAM,EAA1B;AACA,WAAG,WAAC,EAAO,SAAS,CAAC,eAAgB,kBAAjB;AACpB,WAAG,WAAC,CAAW,IAAO,UAAU,CAAC,MAAD,CAA5B;AACJ,sBAAS,CAAC,wBAAmB,QAAC,YAAM,CAAC,MAAM,IAAK,oCAAQ,SAApB,CAAN,CAArB;AACT,iBAAI,CAAC,2BAAD;AArDgC;AA2CpC;AA3CoC;;AA1HE;;AAItC;AACA;AAEsB;AAEpB,YAAG,IAAI,cAAC,EAAW,KAAE,GAArB;AACE,sBAAM,CAAC,yBAAoB,QAAC,YAAM,CAAC,MAAM,KAAS,KAAM,sCAAU,UAtYW,CAsY3C,CAAN,EAAkD,YAAa,SAArF;AAEN,cAAA,aAAO,CAAC,KAAM,WAAY,UAAW,GAAI,UAAW,SAA7C;AALW;AAQF;AAElB,qBAAO,CAAC,KAAK,WAAY,UAAW,GAAI,UAAW,SAA5C;AAFW;AAfkB;AAqBtC,qBAAc,eAAU,CAAC,0BAAS,cAAc,CAC9C,YAAK,uBAAuB,CAAC,4BAAuB,CAAC,SAAD,EAAa,OAC9D,yCAAe,2CADU,CADkB,CAAxB;AAIxB,+BAA0B,eAAnB,qCAAY,QAAC,YAAM,CAAC,WAAY,QAAb,CAAN,uCAAM,EAA1B;AACA,sBAAS,CAAC,wBAAmB,QAAC,YAAM,CAAC,MAAM,IAAK,sCAAU,SAAtB,CAAN,CAArB;AACT,iBAAI,CAAC,2BAAD;AA3BkC;AAItC;AAJsC;;AAyEF;;AAIpC;AAEsB;AAEpB;AACA;AACA;AAEA,YAAG,IAAI,cAAC,EAAW,KAAE,GAArB;AAEE,uBAAc,IAAO,MAAM,CAAC,IAAI,iBAAC,EAAN;AAC3B,cAAG,YAAQ,CAAC,UAAD,CAAa,IAAI,WAAO,CAAW,UAAY,SAAvB,CAAnC;AAEE,wBAAuB;AACvB,gBAAG,SAAS,eAAe,CAAC,cAAD,CAA3B;AACE,sBAAgB,UAAC,SAAU,gBAAX;AAEhB,0BAAS;AACX,wBAAM,CAAC,yBAAoB,QAAC,YAAM,CAAC,MAAM,KAAM,SAAU,UAAU,oCAAQ,UAAW,KAApD,CAAN,EAAkE,YAAa,SAArG;WAGN,MAAA,aAAO,CAAC,KAAM,WAAY,UAAW,uCAAwC,UAAW,SAAjF;SAGT,MAAA,aAAO,CAAC,KAAM,WAAY,UAAW,GAAI,UAAW,SAA7C;AAtBW;AAyBF;AAElB,qBAAO,CAAC,KAAK,WAAY,UAAW,GAAI,UAAW,SAA5C;AAFW;AAMpB;AArCoC;AAuCpC,qBAAc,eAAU,CAAC,0BAAS,cAAc,CAC9C,YAAK,aAAa,CAAC,YAAK,aAAa,CAAC,SAAD,CAAnB,CAD4B,CAAxB;AAExB,YAAG,KAAM,KAAG,EAAZ,EACE,aAAc,UAAiB,GAAJ,GAAF,GAAQ,KADnC;AAGA,+BAA0B,eAAnB,qCAAY,QAAC,YAAM,CAAC,UAAD,CAAN,uCAAM,EAA1B;AACA,sBAAS,CAAC,wBAAmB,QAAC,YAAM,CAAC,MAAM,IAAK,oCAAQ,SAApB,CAAN,CAArB;AACT,iBAAI,CAAC,2BAAD;AA9CgC;AAqCpC;AArCoC;;AA0IK;AAIzC;AACA;AAEA,UAAG,SAAU,KAAE,EAAf,EACE,YAAa,WADf;AAGA,eAAU,YAAK,wBAAwB,CAAC,WAAD;AACvC,UAAG,MAAO,KAAE,IAAZ,EACE,MAAM,0BAAqB,QAAC,aAAS,CAAC,2BAA4B,mBAAC,cAAD,CAA7B,CAAT,CAD9B;AAGA,gBAAW,qBAAgB,QAAC,YAAM,CAAC,KAAM,OAAQ,YAAa,UAAW,SAAvC,CAAN;AAC5B,aAAO,WAAP,GAAqB;AACrB,aAAO,QAAQ,CAAC,KAAM,KAAP;AAhB0B;AArQR;AAEjC;AACE,YAAY,eAAD,QAAX,EACE,eAAU,CAAC,OAAD,CADZ;AADF;AAIE,eAAQ,eAAR,OAAQ;AAJV;AAFiC;AA0dL;AAG5B,sBAAU,YAAY,CAAC,IAAK,YAAa,SAAnB;AAHM;AAtJQ;AAGpC;AACA,UAAc,CAAV,SAAU,KAAE,+BAAF,CAAY,IAAgB,CAAX,UAAW,KAAE,gBAAF,CAA1C,EACE,mBAAc,IAAd,CADF;AAJoC;AAhTT;AAG3B,gBAAG,CAAC,UAAW,GAAI,GAAI,SAApB;AAHwB;AAYA;AAG3B,sBAAW,CAAC,UAAW,GAAI,GAAI,MAAO,YAAa,UAzR2C,KAyRnF;AAHgB;AANA;AAG3B,sBAAW,CAAC,UAAW,YAAa,GAAI,UAAW,KAAK,KAnRsC,KAmRnF;AAHgB;AA+hBA;AAG3B,sBAAW,CAAC,UAAW,YAAa,GAAI,MAAO,YAAa,UAlzBkC,KAkzBnF;AAHgB;AAOI;;AAAR;AAGvB;AAEA,gBAAsB,IAAX,OAAW,CACpB;AAEE,yBAAW,CAAC,UAAW,YAAa,GAAI,MACtC;AAEE,iBAAO,CAAC,QAAD;AAFT,UAIA;AAEE,gBAAM,CAAC,iCAA4B,QAAC,YAAM,CAAC,KAAD,CAAN,CAA9B;AAFR,UAIA,IATS;AAFb,OADoB;AAgBlB,aAAC;AArBkB;AAAQ;AA0BA;AAAR;AAGvB,eAAe,MAAC,aAAQ,CAAC,UAAW,GAAI,EAAhB;AAHD;AAAQ;AAjNJ;AAG3B,sBAAW,CAAC,UAAW,OAAQ,UAAW,KAAK,KAhoB+C,KAgoBnF;AAHgB;AAwNA;AAG3B,sBAAW,CAAC,UAAW,OAAQ,MAAO,YAAa,UAx1B2C,KAw1BnF;AAHgB;AAOI;;AAAR;AAEvB;AAEA,gBAAsB,IAAX,OAAW,CACpB;AAEE,yBAAW,CAAC,UAAW,OAAQ,MAC7B;AAEE,iBAAO,CAAC,QAAD;AAFT,UAIA;AAEE,gBAAM,CAAC,iCAA4B,QAAC,YAAM,CAAC,KAAD,CAAN,CAA9B;AAFR,UAIA,IATS;AAFb,OADoB;AAgBlB,aAAC;AApBkB;AAAQ;AA9PH;AAG5B,uBAAY,CAAC,UAAW,OAAQ,UAAW,KAAK,KA/lB8C,KA+lBlF;AAHgB;AANA;AAG5B,uBAAY,CAAC,UAAW,OAAQ,OAAQ,YAAa,UAzlByC,KAylBlF;AAHgB;AAaI;;AAAT;AAEvB;AAEA,gBAAsB,IAAX,OAAW,CACpB;AAEE,0BAAY,CAAC,UAAW,OAAQ,OAC9B;AAEE,iBAAO,CAAC,QAAD;AAFT,UAIA;AAEE,gBAAM,CAAC,iCAA4B,QAAC,YAAM,CAAC,KAAD,CAAN,CAA9B;AAFR,UAIA,IATU;AAFd,OADoB;AAgBlB,aAAC;AApBkB;AAAS;AA3dF;AAG9B,yBAAc,CAAC,UAAW,OAAQ,UAAW,KAAK,KAzI4C,KAyIhF;AAHgB;AAMA;AAG9B,yBAAc,CAAC,UAAW,OAAQ,SAAU,YAAa,UA/IqC,KA+IhF;AAHgB;AAOI;;AAAX;AAEvB;AAEA,gBAAsB,IAAX,OAAW,CACpB;AAEE,4BAAc,CAAC,UAAW,OAAQ,SAChC;AAEE,iBAAO,CAAC,QAAD;AAFT,UAIA;AAEE,gBAAM,CAAC,iCAA4B,QAAC,YAAM,CAAC,KAAD,CAAN,CAA9B;AAFR,UAIA,IATY;AAFhB,OADoB;AAgBlB,aAAC;AApBkB;AAAW;AA2XN;AAE5B,uBAAY,CAAC,UAAW,MAAO,UAAW,KAAK,KA9gB+C,KA8gBlF;AAFgB;AANA;AAG5B,uBAAY,CAAC,UAAW,MAAO,OAAQ,YAAa,UAzgB0C,KAygBlF;AAHgB;AAYI;;AAAT;AAEvB;AAEA,gBAAsB,IAAX,OAAW,CACpB;AAEE,0BAAY,CAAC,UAAW,MAAO,OAC7B;AAEE,iBAAO,CAAC,QAAD;AAFT,UAIA;AAEE,gBAAM,CAAC,iCAA4B,QAAC,YAAM,CAAC,KAAD,CAAN,CAA9B;AAFR,UAIA,IATU;AAFd,OADoB;AAgBlB,aAAC;AApBkB;AAAS;AA2GC;AAIjC,4BAAiB,CAAC,YAAa,KAAM,MAAO,GAAI,YAAa,UA9nBF,KA8nB1C;AAJgB;AAOA;AAGjC,4BAAiB,CAAC,YAAa,KAAM,GAAI,UAAW,KAAK,KApoBE,KAooB1C;AAHgB;AAMA;AAIjC,4BAAiB,CAAC,YAAa,KAAM,GAAI,GAAI,YAAa,UA3oBC,KA2oB1C;AAJgB;AAQI;;AAAd;AAGvB;AAEA,gBAAsB,IAAX,OAAW,CACpB;AAEE,+BAAiB,CAAC,YAAa,KAAM,GAAI,GACvC;AAEE,iBAAO,CAAC,QAAD;AAFT,UAIA;AAEE,gBAAM,CAAC,iCAA4B,QAAC,YAAM,CAAC,KAAD,CAAN,CAA9B;AAFR,UAIA,IATe;AAFnB,OADoB;AAgBlB,aAAC;AArBkB;AAAc;AAwBA;;AAAd;AAGvB;AAEA,gBAAsB,IAAX,OAAW,CACpB;AAEE,+BAAiB,CAAC,YAAa,KAAM,MAAO,GAC1C;AAEE,iBAAO,CAAC,QAAD;AAFT,UAIA;AAEE,gBAAM,CAAC,iCAA4B,QAAC,YAAM,CAAC,KAAD,CAAN,CAA9B;AAFR,UAIA,IATe;AAFnB,OADoB;AAgBlB,aAAC;AArBkB;AAAc;AA5sBtB;;AAuFM,kCFjGF,yDEiGE;AACJ,8BAjGI,oCAiGJ;AACC,+BAhGI,qCAgGJ;AACE,iCA/FI,uCA+FJ;AACW,4CA7FV,oCA6FU;AA3FhB;AA8FC;;;AAEd;AACA;AACA;AACA;AACA;AACA;AAPc;;;;;;;;AA8gCe;AAE/B,kBAAO,OAAO,CAAC,SAAU,kBAAc,eAAzB;AAFiB;AANC;AAGhC,kBAAO,QAAQ,CAAC,SAAU,WAAY,UAAW,aAAc,gBAAY,eAA5D;AAHiB;AALS;AAAjB;AACrB;AADsC;AAEzC,qCAAsB,eAAZ,qCAAY,QAAC,kDAAD,EAAtB;AADG;AADsC;AACtC;AADsC;AAAjB;AAAiB;AA0HP;AAAV;AAExB,eAAU,YAAO,WAAW,CAAC,WAAD;AAFJ;AAAU;AA1LM;;AAAhB;AAExB;AAEyB;AAEvB,YAAG,WAAY,KAAG,EAAlB,EACE,cAAe,WAAY,GAAE,GAD/B;AAEA,sBAAe,WACT,GADuB,0BAAS,cAAc,CAAC,IAAD,CAAzB,GACzB,GADyD,GACnD,0BAAS,cAAc,CAAC,KAAD,CAAzB;AALiB;AAQG;AAE1B;AACA;AACA;AAEA,YAAG,GAAI,KAAE,IAAT,EAAkB,MAAlB;AAEA,iBAAS,QAA+B,OAA1B,KAAK,sBAAqB,GAAE,CAAF,kBAAxC;AAAI;AAEF,iBAAQ,KAAK,kBAAkB,CAAC,CAAD;AAC/B,kBAAS,GAAQ,CAAJ,IAAI;AACjB,cAAG,CAAO,kBAAW,CAAC,KAAD,CAArB,EACE,eAAe,CAAC,IAAI,OAClB,0CAAc,CAAC,MAAO,IAAI,OAAO,KAAyC,IAAI,gBAAC,EAAjE,CADD,CADjB;;AAZwB;AAmB5B;AACA;AAGA,oBAAe;AACf,eAAS,QAA6B,OAAxB,YAAM,YAAW,SAAC,EAAM,GAAE,CAAF,kBAAtC;AAAI;AACF,YAAG,YAAM,YAAW,WAAC,CAAD,CAAG,aAAa,KAAE,iBAAtC;AAEE,kBAAS,YAAM,YAAW,WAAC,CAAD;AAC1B,cAAG,KAAK,OAAO,IAAO,CAAF,CAAE,IAAS,WAAC,IAAD,CAAT,CAAtB;AAEE,gBAAsB,+CAAH,eAAhB,KAAK,MAAW,CAAnB;AAGE,gCAAkB,CAAI,eAAQ,CAAC,IAAI,CAAC,CAAD,CAAL,EAAgC,KAAK,MAAjD;aAGlB,MAAA,eAAe,CAAC,KAAK,OAAO,0CAAc,CAAC,IAAI,CAAC,CAAD,EAAK,KAAK,OAAO,KAA6B,KAAK,gBAAC,EAAzD,CAA3B;WARnB;SAHF;;AAcF,eAAU;AAnDc;AAAgB;AAhEE;AAAlB;AAExB;AACA;AACA;AAEA,mBAAc;AACJ,YAAD,sBAAC,UAAQ,YAAM,YAAW,SAAC,EAA3B;AACT,eAAS,QAA6B,OAAxB,YAAM,YAAW,SAAC,EAAM,GAAE,CAAF,kBAAtC;AAAI;AACF,YAAG,YAAM,YAAW,WAAC,CAAD,CAAG,aAAa,KAAe,gDAAnD;AAEE,kBAAS,YAAM,YAAW,WAAC,CAAD;AAC1B,cAAG,KAAK,OAAO,IAAO,CAAF,CAAE,IAAS,WAAC,IAAD,CAAT,CAAtB;AAEE,kBAAM,CAAC,UAAD,CAAN,GACE,0BAAS,cAAc,CACrB,0CAAc,CAAC,IAAI,CAAC,CAAD,EAAK,KAAK,OAAO,KAA6B,KAAK,gBAAC,EAAzD,CADO;AAGrB,sBAAJ,IAAG;WANL;SAHF;;AAYF,eAAc,gBAAC,OAAQ,EAAG,UAAZ;AArBU;AAAkB;AAwBL;;AAAb;AAExB;AACA;AAE0B;AAExB;AAEA,iBAAS,QAA4B,OAAvB,SAAS,gBAAC,EAAa,GAAE,CAAF,kBAArC;AAAI;AAEF,cAAG,SAAS,WAAS,CAAC,CAAD,CAAG,SAAxB;AAGE,gBAAG,SAAS,WAAS,CAAC,CAAD,CAAG,YAAY,GAAQ,WAAC,eAAD,CAA5C;AACE,uBAAU,MAAO,GAAE,eAAe,CAAC,SAAS,WAAS,CAAC,CAAD,CAAG,YAAtB,CAAjB;AAEjB,wBAAM,2BAAsB,QAAC,YAAM,CAAC,aAAD,CAAN;AAC/B,2BAAe,CAAC,SAAS,WAAS,CAAC,CAAD,CAAG,YAAtB,CAAf,GAAqD;WAGrD,eAAU,MAAO,GAAE,SAAS,WAAS,CAAC,CAAD,CAAG,OAAvB;AACnB,mBAAU,MAAO,GAAE,GAAF;;AAjBK;AAsB1B;AAEA,wBAAmB,uBAAkB,CAAC,IAAD;AAC3B,qBAAD,sBAAC,sBAAuB,WAAC,eAAD,CAAxB;AACT,eAAU;AAEV,sBAAgB,CAAC,YAAM,WAAP;AAEhB,eAAS,QAA6B,OAAlB,WAAC,eAAD,CAAkB,GAAE,CAAF,kBAAtC;AAAI;AACF,YAAG,CAAI,eAAe,CAAC,CAAD,CAAtB,EACE,SAAU,MAA4B,GAAnB,eAAe,CAAC,CAAD,CAAjB,GAAuB,GAD1C;;AApCsB;AAAa;AAiRM;AAG3C,UAAG,QAAS,IAAS,WAAC,IAAD,CAArB,EACE,MAAM,8BAAyB,QAAC,YAAM,CAAC,aAAQ,QAAS,GAAE,CAApB,CAAN,CADlC;AAEA,SAAG,WAAC,CAAW,IAAI,CAAC,QAAD,CAAf;AALuC;AAvBD;AAG1C;AACA;AACA;AACA;AAEA,iBAAsB,IAAV,MAAU;AACtB,eAAS,QAA6B,OAAxB,YAAM,YAAW,SAAC,EAAM,GAAE,CAAF,kBAAtC;AAAI;AACF,YAAG,YAAM,YAAW,WAAC,CAAD,CAAG,aAAa,KAAe,gDAAnD;AAEE,kBAAS,YAAM,YAAW,WAAC,CAAD;AAC1B,cAAG,KAAK,OAAO,IAAO,CAAF,CAAE,GAAQ,WAAC,IAAD,CAAR,CAAtB;AAEE,yBAAc,IAAI,CAAC,CAAD;AAClB,+BAAc,CAAC,MAAO;;;;gBAAR;AACd,oBAAc,CAAL,KAAK,OAAd,GAAwB;WAJ1B;SAHF;;AAUF,SAAG,WAAC,CAAW,IAAO,UAAU,CAAC,QAAD,CAA5B;AApBsC;AAbA;AAG1C;AAIA,mBAAc,YAAM,aAAW,CAAC,CAAD,CAAG;AAClC,UAAS,WAAC,IAAD,CAAO,IAAG,UAAnB,EACE,MAAM,8BAAyB,QAAC,YAAM,CAAC,aAAQ,UAAW,GAAE,CAAtB,CAAN,CADlC;AAEA,SAAG,WAAC,CAAW,IAAO,UAAU,CAAC,IAAI,CAAC,UAAD,CAAL,CAA5B;AAVsC;AANN;AAGpC,SAAG,WAAC,CAAW,qBAAgB,CAAC,KAAmB,iDAnnCwD,EAmnC5E,CAA3B;AAHgC;AAkDG;;AA3LN;AAGjC,qBAAW;AACX,qBAAW;AACX,0BAAgB;AAChB,wBAAc;AACd,wBAAc;AAN8E;AAD3D;AA0BD;;AAEhC;AAEmB;AAEjB;AACA;AAGA,YAAoB,CAAhB,IAAI,cAAC,EAAW,KAAG,GAAH,CAAqC,IAAR,CAAhB,IAAI,cAAC,EAAW,KAAG,GAAH,CAArB,IAAkD,CAAhB,IAAI,cAAC,EAAW,KAAG,GAAH,CAA9E;AAEE,uBAAO,CAAC,KAAM,WAAY,iBAAW,EAA9B;AACP;SAHF;AAOA,YAAG,aAAM,gBAAT;AAEE,cAAG,IAAI,cAAC,EAAW,KAAE,GAArB;AACE,yBAAO,CAAC,KAAM,WAAY,iBAAW,EAA9B;;AAGP,0BAAe,IAAI,WAAC;AACpB,wBAAM,CAAC,yBAAoB,QAAC,YAAM,CAAC,cAAS,KAAM,YAAa,yCAAa,iBAnsCD,CAmsCzC,CAAN,CAAtB;;SAIV,UAAG,aAAM,kBAAT;AAEE,uBAAO,CAAC,KAAM,WAAY,iBAAW,oDAA9B;;AAIP,cAAI,IAAI,cAAC,EAAW,KAAG,GAAvB;AAEE,yBAAc,IAAO,MAAM,CAAC,IAAI,iBAAC,EAAN;WAG3B,mBAAiB;AACnB,sBAAM,CAAC,yBAAoB,QAAC,YAAM,CAAC,cAAS,KAAM,WAAY,yCAAa,iBAntCE,CAmtC3C,CAAN,CAAtB;;AApCS;AAwCC;AAElB,qBAAO,CAAC,KAAK,WAAY,iBAAW,EAA7B;AAFW;AAMpB;AACA;AACA;AApDgC;AA4DhC,+BAAO,yBAAP;AAIE,sBAAe,qBAAgB,CAAC,KAAmB,gDAAS,KAA7B;AACjC,qBAAc,kBAAa,CAAC,IAAD;AAC3B,YAAG,WAAY,KAAG,EAAlB,EACE,aAAc,UAAiB,GAAJ,GAAF,GAAQ,WADnC;AAEA,qBAAc,KAAI,WAAW,CAAC,UAAD;AAC7B,WAAG,OAAC,CAAO,UAAP;AACJ,WAAG,UAAC,CAAU,YAAM,YAAhB;AAEJ,YAAG,YAAM,gBAAT,EACE,GAAG,gBAAC,CAAgB,MAAhB,CADN;AAGA,YAAG,YAAM,eAAT;AACE,iCAAkB,CAAC,IAAK,KAAM,YAAM,mBAAlB;AAEpB,kBAAG,YAAM,iBAAgB,GAAE,CAA3B;AAGE,cAAG,YAAM,gBAAT;AACE,4BAAW,CAAC,IAAK,IAAN;;AAOX,mCAAwB,YAAM,aAAW,CAAC,CAAD,CAAG;AAC5C,gBAA0B,CAAtB,YAAM,iBAAgB,KAAE,CAAF,CAA+C,IAAxB,CAAP,WAAC,IAAD,CAAO,GAAE,oBAAF,CAAlB,IAAkD,YAAQ,CAAC,IAAI,CAAC,oBAAD,CAAL,CAAzF;AACE,oCAAiB,CAAC,IAAK,IAAN;AAEjB,kBAAA,sBAAiB,CAAC,IAAK,IAAN;;AAGrB,cAAG,YAAM,UAAU,KAAG,EAAtB;AACE,eAAG,WAAC,EAAO,SAAS,CAAC,eAAgB,YAAM,UAAvB;AAEpB,gBAAA,GAAG,WAAC,EAAO,SAAS,CAAC,eAAgB,kBAAjB;SArBxB;AAwBA,oBAAO,UAAU,CAAC,wBAAmB,QAAC,YAAM,CAAC,aAAS,IAAK,yCAAa,eAA5B,CAAN,CAArB;AACjB,oBAAO,KAAK,CAAC,wBAAD;AAvGoB;AAkDhC;AAlDgC;;AAnhChB;AAiCK;;AAGO;;;AAE1B;AAF0B;;;;;AAizBiB;AAE7C;AAEA,0BAAgB;AAChB,YAAO,6BAAqD,GAArB,qBAAF,GAAe,OAAF,GAAY,YAAY,YAAd;AAC5D,YAAO,GAAmC,GAA7B,qBAAF,GAAe,eAAF,GAAoB,qBAAQ,CAAC,YAAY,cAAC,EAAd,CAAV;AAC1C,UAAG,YAAY,WAAW,KAAG,EAA7B,EACE,MAAO,GAAkC,GAA5B,qBAAF,GAAe,cAAF,GAAmB,YAAY,WADzD;AAEA,UAAG,YAAY,cAAc,KAAG,EAAhC,EACE,MAAO,GAAiB,GAAX,qBAAF,GAAe,YAAY,cADxC;AAEgB,gDAAC,GAAD;AAX+D;AAAlC;AAjzBjB;AAQG;;AAGN;AA4pCiB;AAGvB,iDAAC,kFAClB,mBAAO,GAAN,MAAM,cAA+B,EAAjB,MAAM,YAAW,SAAC,GAAO,kBAA9C,CADiB;AAFQ;AADe;AA5pCjB;AAKH;AAgqCiB;AAEpB,iDAAC,qDAAsD,GACxE,mCADwE,CAExE,mBAAO,GAAN,MAAM,cAA8B,EAAhB,MAAM,WAAU,aAAmB,EAAN,MAAM,iBAAxD,CAFiB;AAF2C;AAAvB;AAhqCjB;AAnPxB,GAwPc,iDAxPd;ACAA,sCAES,qCAFT;;;;AAoNqC;AAGnC,QAAG,UAAW,KAAE,IAAhB;AAEE,aAAO,WAAU;AACjB;KAHF;AAMA,oCAA0B,CAAC,QAAS,cAAe,GAAI,WAAY,EAAG,YAA5C;AATS;AApNrC,mBAec;AAKI,6BAAG,cAAC,4BAAW,4BAAW,0BACxC,yBAAQ,yBAAQ,6BAAY,4BAAW,4BADtB;AAIQ;AAApB;AAGP;AACA;AACA;AAEU,iBAAL,KAAK,YAAC;AACT,UADQ,IACE,KAAC,4CAAX;AAEI,iBAAU,aAAQ,GAAE,KAAF;AAClB,YAAG,MAAH;AAGE,mBAAqB;;AAWrB,mBAAqB;;OAS3B,UA3BQ,IA2BE,KAAC,6CAAX;AACE,iBAAU;AACZ,gBA7BQ,IA6BE,KAAC,6CAAX;AACE,iBAAU;AACZ,gBA/BQ,IA+BE,KAAC,8CAAX;AACE,iBAAU;AACZ,gBAjCQ,IAiCE,KAAC,+CAAX;AACE,iBAAU;AACZ,gBAnCQ,IAmCE,KAAC,gDAAX;AACE,iBAAU;AACZ,gBArCQ,IAqCE,KAAC,4CAAX;AACE,iBAAU;AACZ,gBAvCQ,IAuCE,KAAC,4CAAX;AACE,iBAAU;AACZ,gBAzCQ,IAyCE,KAAC,gDAAX;AAEE,iBAAU;AAIZ,gBA/CQ,IA+CE,KAAC,4CAAX;AAEE,iBAAU;AAIZ,gBArDQ,IAqDE,KAAC,+CAAX;AACE,iBAAU;AACZ,gBAvDQ,IAuDE,KAAC,8CAAX;AACE,iBAAU;AACZ,gBAzDQ,IAyDE,KAAC,8CAAX;AACE,iBAAU;AACZ,gBA3DQ,IA2DE,KAAC,6CAAX;AAEE,iBAAU;AAIZ,gBAjEQ,IAiEE,KAAC,4CAAX;AAEE,iBAAU;AAIZ,gBAvEQ,IAuEE,KAAC,6CAAX;AAEE,iBAAU;AAIZ,gBA7EQ,IA6EE,KAAC,4CAAX;AACE,YAAG,YAAH;AAEE,mBAAU;AACV,cAAY,CAAR,aAAQ,KAAE,CAAF,CAAK,IAAc,yCAAH,eAAN,KAAM,CAA5B,EACE,SAAS,QAAyC,OAArB,KAAM,SAAQ,SAAC,EAAM,GAAE,CAAF,kBAAlD;AAAI;AAEF,yBAA6B,KAAM,SAAQ,WAAC,CAAD;AAC3C,gBAAU,UAAU,MAAX,OAAkB,GAAE,aAA7B,EACE,YAAkB,UAAU,MAAX,OAAjB,CADF;WAJJ;SASA,eAAU;;AAEd,iBAAU;;AAnGL;AAAoB;AAuGO;AAGlC;AACA;AACA;AACA;AACA;AACA;AAEA,UAAG,UAAU,UAAU,KAAG,IAA1B,EACE,gCAA0B,CAAC,QAAS,cAAe,QAAS,UAAU,WAAW,OAAQ,YAA/D,CAD5B;AAGA,eAAS,QAA2C,OAAtC,UAAU,sBAAqB,SAAC,EAAM,GAAE,CAAF,kBAApD;AAAI;AAEF,kBAAW,UAAU,sBAAqB,WAAC,CAAD;AAC1C,YAAG,OAAO,QAAQ,KAAG,IAArB;AAEE,cAAG,CAAI,OAAO,QAAO,gBAAC,EAAtB;AAEE,uBAAY,OAAO,WAAU;AAC7B,oBAAQ,eAAC,CAAQ,OAAQ,GAAE,OAAO,MAAzB;AACT,oBAAQ,YAAC,CAAY,2BAAZ;AACT,oBAAQ,YAAC,CAAY,OAAO,UAAU,IAAY,CAAP,MAAO,KAAE,CAAF,CAAzC;AAKT,gBAAG,MAAO,GAAE,aAAZ,EACE,gCAA0B,CAAC,QAAS,cAAe,OAAuB,GAAb,OAAO,MAAT,GAAiB,GAAF,CAAO,OAAO,SAAS,MAAO,GAAE,CAAF,CAAK,YAAnF,CAD5B;;AAIA,uBAAY,OAAO,WAAU;AAC7B,oBAAQ,eAAC,CAAQ,OAAQ,GAAE,OAAO,MAAzB;AACT,oBAAQ,YAAC,CAAY,2BAAZ;AACT,oBAAQ,YAAC,CAAY,KAAZ;AACT,oBAAQ,cAAC,CAAkC,aAApB,QAAQ,aAAc,cAAiB,iCAAjB,CAAF,CAAlC;;SApBb;;AAyBF,eAAS,SAAiC,QAA5B,UAAU,YAAW,SAAC,EAAM,GAAE,CAAF,qBAA1C;AAAI;AAEF,eAAQ,UAAU,YAAW,WAAC,CAAD;AAC7B,YAAG,IAAI,MAAc,KAAG,IAAxB;AAEE,gBAAO,IAAI;AACX,qBAAY,0BAAoB,CAAC,IAAI,OAAe;;;;eAAK,KAAM,YAA/B;AAIhC,cAAQ,CAAJ,GAAI,KAAE,CAAF,CAAK,IAAc,CAAT,QAAS,IAAG,cAAC,0BAAD,CAAH,CAA3B,EACE,MAAO,GADT;AASA,qBAAY,OAAO,WAAU;AAC7B,kBAAQ,eAAC,CAAQ,OAAQ,GAAE,IAAI,MAAtB;AACT,kBAAQ,YAAC,CAAY,QAAZ;AAMT,cAAG,CAAuB,CAAlB,QAAQ,UAAU,IAAG,sBAAH,CAA1B,EACE,QAAQ,QAAC,CAAQ,GAAR,CADX;AAGA,kBAAQ,YAAC,CAAY,IAAI,UAAhB;AAET,kBAAQ,YAAC,CAAY,QAAQ,UAAU,IAAY,CAAP,MAAO,KAAE,CAAF,CAA1C;SA7BX;;AA5CgC;AAhHtB;AAfd;ACAA,gCAES,mKAFT;;;AAawB;;AACjB;AAEW;;;AAEd;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAXc;;;;;AA8NsB;AAEtC,UAAG,KAAM,KAAG,gBAAZ;AAEE,uBAAU,KAAV;AACA,YAAG,gBAAY,KAAG,IAAlB,EACE,gBAAW,uBAAuB,CAAC,IAAD,CADpC;AAEA,2BAAe;AACf,YAAG,gBAAY,KAAG,IAAlB,EACE,gBAAW,iBAAiB,CAAC,IAAD,CAD9B;AAEA,uBAAS,SAAT,GAAqB;OARvB;AAFsC;AA1GC;AAEvC;AACA,UAAG,CAAI,gBAAU,aAAC,EAAlB,EACE,oBAAa,CAAC,uBAAD,CADf;AAHuC;AAOC;AAExC,UAAG,gBAAW,KAAE,IAAhB,EACE,oBAAa,CAAC,yBAAD,CADf;AAFwC;AAMG;AAE3C,UAAG,mBAAc,KAAE,EAAnB,EACE,oBAAa,CAAC,8BAAD,CADf;AAF2C;AA4BH;;AAEvB;AAEf,YAAI;AAFW;AAMjB;AACA,UAAG,gBAAU,aAAC,EAAd;AACE,YAAI;AAEJ,YAAA,gBAAU,KAAK,SJlE6F,IIkE7F;AAZuB;AA2FC;AAEzC,UAAG,mBAAe,KAAG,KAArB;AAEE,8BAAkB;AAClB,uBAAS,SAAT,GAAqB;OAHvB;AAFyC;AASA;AAEzC,UAAG,mBAAe,KAAG,KAArB;AAEE,8BAAkB;AAClB,uBAAS,SAAT,GAAqB;OAHvB;AAFyC;AArBH;AAEtC,UAAG,KAAM,KAAG,gBAAZ;AAEE,2BAAe;AACf,YAAG,KAAH;AACE;AAEA;OANJ;AAFsC;AAtBD;AAGrC;AACA,UAAc,CAAV,SAAU,KAAE,+BAAF,CAAY,IAAgB,CAAX,UAAW,KAAE,gBAAF,CAA1C,EACE,mBAAc,IAAd,CADF;AAJqC;AAvBS;AAE9C,qBAAS;AACT,UAAG,CAAgB,CAAZ,2CAAY,IAAG,oBAAH,CAAmB,IAAgB,CAAX,oBAAW,GAAE,CAAF,CAAtD;AAEE;AACA;OAHF;AAMA;AAT8C;AAdK;AAEnD;AACA;AACA,gEAA2B,CAAC,KAAM,gBAAU,OAAM,aAAa,CAAC,mBAAD,CAAe,aAC5E,oBAAe,CAAI,mBADM;AAJwB;AALb;AAAd;AAExB,eAAU,mBAAY;AAFE;AAAc;AAaA;AAEtC,gCAAsB;AACtB;AAHsC;AAlDI;AAAlB;AAExB;AAEA,eAAU;AACV,UAAG,aAAM,CAAC,QAAQ,MAAT,CAAT,EACE,aADF;AAGA,UAAG,WAAO,CAAC,QAAQ,MAAT,CAAV;AACE,YAAc,QAAQ;AAEtB,YAAA,oBAAa,CAAC,2BAAD;AAEf,eAAU,CAAC,OAAQ,GAAE,CAAF;AACnB,oBAAS,CAAC,CAAD;AAde;AAAkB;AAiBJ;AAAd;AAExB,eAAU,oBAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAFF;AAAc;AAmDT;;AAEP;AAEN,wCAAC,GAAI,IAAL;AAFM;AAMtB,0BAAe;AARc;AA3Mb;;AAkCK;AACG;AACH,kCJmCF,yDInCE;AACG;AACF;AACH;AACC;AACY,6CA5CV,qCA4CU;AACR;AA1CR;AA6CD;;;AAEb;AAFa;;;;;AAqRqB;AAAb;AAEvB,eAAU,aAAQ;AAFK;AAAa;AAxCM;AAE1C;AACA;AAEA,gBAAW;AACX,UAAK,MAAM,MAAK,OAAO,GAAE,CAAF;AACvB,aAAM,OAAQ,IAAO,CAAF,CAAE,IAAG,CAAH,CAArB;AAEE,kBAAW,MAAM,MAAK,WAAC,CAAD,CAAG,eAAe,IAAG,cAAC,iCAAY,qCAAb,CAAH;AACpC,SAAJ,IAAG;;AAEL,UAAG,OAAQ,IAAY,CAAC,MAAM,WAAP,SAAvB,EACE,MAAM,WAAU,CAAC,KAAM,MAAP,CADlB;AAZ0C;AA2GN;AAAb;AAEvB;AACA;AACA;AAEA,eAAoB,IAAV,MAAU;AACpB,eAAoB,KAAM,MAAM,CAAC,GAAD;AAChC,eAAS,QAAoB,OAAT,WAAC,MAAD,CAAS,GAAE,CAAF,kBAA7B;AAAI;AAEF,YAAK,cAAG,CAAC,IAAK,MAAM,CAAC,CAAD,CAAZ;AACR,YAAG,CAAE,GAAE,CAAP,EACE,MAAW,CAAJ,eAAI,CAAC,MAAM,CAAC,CAAD,EAAK,EAAG,CAAE,GAAE,CAAnB,EAAX,GAAqC,eAAI,CAAC,MAAM,CAAC,CAAD,EAAK,CAAE,GAAE,CAAF,CAAK,UAAnB,CAD3C;;AAXqB;AAAa;AAlDA;AAAb;AAEvB;AAEA,eAAU;AACV,eAAyB,MAAd,MAAS,KAAK,CAAC,GAAD,uDAAzB;AAAI,cAAqB,GAArB;AAEF,YAAG,MAAO,KAAG,EAAb,EACE,SAAU,MAAO,GAAE,GADrB;AAEA,iBAAU,MAAmB,GAAV,GAAF,GAAQ,GAAF,GAAW,eAAQ,CAAC,GAAI,KAAL,CAAb;;AATR;AAAa;AAvEG;AAAhB;AAEvB;AAEA,cAAS,kBAAa,CAAC,IAAI,SAAS,aAAd;AACtB,UAAG,IAAI,SAAS,UAAU,KAAG,CAA7B,EACE,KAAM,QAAN,GAAiB,qBAAQ,CAAC,IAAI,SAAS,UAAd,CAD3B;AAEA,UAAG,IAAI,SAAS,WAAW,KAAG,CAA9B,EACE,KAAM,SAAN,GAAkB,qBAAQ,CAAC,IAAI,SAAS,WAAd,CAD5B;AAEA,UAAG,IAAI,SAAS,uBAAuB,KAAE,yCAAzC,EACE,KAAM,gBAAN,GAAyB,UAD3B;AAEA,eAAU,kBAAa,CAAC,KAAD;AAXA;AAAgB;AAkEQ;AAAxB;AAEvB,eAAU;AAFa;AAAwB;AAkBN;AAAlB;AAEvB;AACA;AACA;AACA;AAEA,UAAK;AACL,aAAM,CAAE,IAAqB,CAAlB,MAAM,MAAK,OAAO,GAAE,CAAF,CAA7B;AAEE,YAAoB,OAAf,MAAM,MAAK,WAAC,CAAD,EAAO,2BAAH;AACpB,YAAG,CAAC,UAAJ;AACE,gBAAM,MAAK,OAAO,CAAC,CAAD;;AAGd,WAAJ,IAAG;AACH,WAAC,OAAD,GAAY;AACZ,WAAC,UAAD,GAAe;AAEf,oBAAW,uCAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,iBAAO,cAAC,CAAc,IAAI,cAAC,EAAnB;AACR,iBAAO,QAAP,GAAoB,mBAAD,EAAC;AACpB,iBAAO,SAAP,GAAqB,mBAAD,EAAC;AACrB,mBAAoB,CAAC;AACf,qBAAD,CAAC;AACJ,cADI,IACJ;AACI,mBAAO,KAAK,CAAC,aAAO,gBAAgB,OF/OwC,ME+OhE;AAChB,oBAHI,IAGJ;AACI,mBAAO,IAAI,CAAC,aAAO,gBAAgB,OFvPwC,KEuPhE;AACf,oBALI,IAKJ,qCACI,OAAO,OAAO,CAAC,aAAO,gBAAgB,OF7OwC,QE6OhE,CADlB;;;AAKN,eAAU;AAlCa;AAAkB;AA7CT;AAAT;AAEvB;AAEA,UAAG,CAAa,CAAR,0BAAQ,IAAG,QAAQ,aAAX,CAAhB;AAEE,kBAAW,uCAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,eAAO,cAAC,CAAc,IAAI,SAAS,YAA3B;AACR,eAAO,OAAK,CAAC,IAAI,SAAS,gBAAgB,wBACZ,mBAAT,SAAS,aFpKqG,IEmKvH;OAJd;AAQA,eAAU;AAZa;AAAS;AAoBK;AAAd;AAIvB,eAAU,sBAAiB,QAAC,YAAM,CAAC,KAAM,qBAAU,cAAe,UAAhC,CAAN;AAJL;AAAc;AA7BL;AAEhB,gDAAC,MAAD;AAChB,UAAa,qBAAH,eAAP,MAAO,CAAV;AACE,wBAAmB,OAAP,OAAU,qBAAH;AAEnB,kBAAM,mDAAsB,QAAC,YAAM,CAAC,oCAAD,CAAN;AANsB;AAArB;AA7PjB;;AAiBK,+BAAO,U5DifjB,+B4DjfiB,CAAP;AAjBL;AAsBE;AAkBkB;AAEnC,UAAI,IAAI,cAAC,EAAW,KAAE,GAAtB;AAEkB,uBAAU,SAAS,mBAAnC,GAA0D,IAAI;AAC9D,qBAAQ,IAAI;AACZ,YAAG,WAAO,CAAC,UAAD,CAAV;AAEE,cAAa,UAAK,OAAQ,KAAE,CAA5B;AACE,4BAAW;AAEX,gCAAW;;AAIb,0BAAW;AACX,2BAAY;;;AAKE,uBAAU,SAAS,mBAAnC,GAA0D;AAC1D,qBAAQ;AACR,wBAAW;AACX,yBAAY,IAAI,UAAS,gBAAC;;AAE5B;AA1BmC;AAlBlB;AAKK;;;AAEpB;AACA;AAHoB;;;;;AAsVe;AAErC,kBAAO,CAAC,QAAQ,QAAT;AACP,uBAAa;AACN,aAAN,YAAS,oBAAH,CAAmB,mBAAmB,CAAC,WAAD;AAJR;AAPC;AAEtC,wBAAa,CAAC,KAAK,cAAN;AACb,uBAAa;AACN,aAAN,YAAS,oBAAH,CAAmB,mBAAmB,CAAC,WAAD;AAJP;AA/UhB;AAxFxB;ACeA,wBAIS,uCAJT;;;AAUgB;;;AAVhB;ACAA,8BAIS,6FAJT;;;;AAUqB;;AAGC,0CAHD,2CAGC;AAEE;;AAEL,wEAAmB,UvE8F7B,2BuE9F6B,EAAiB,UjE0a7C,yBiE1a6C,CAApC;AAEF;;;AAEb;AACA;AACA;AACA;AACA;AANa;;;;;;AAq8Ee;AAE9B;AAEA,kBAAQ;AACR,WAAM;AACN,QAAE,aAAa,CAAC,MAAM,KAAP;AANe;AANI;AAElC,sBAAY;AACZ;AAHkC;AAPO;AAGzC,6BAAmB;AACnB;AAJyC;AAnBX;AAE9B,UAAY,YAAD,QAAX,EACE,YAAM,CAAC,KAAM,KAAP,CADR;AAF8B;AA3BM;AAAb;AAEvB,eAAU,QAAQ,cAAc,CAAC,QAAD;AAFT;AAAa;AAgFO;;AAE3C;AAEmB;AAEjB,YAAG,OAAE,KAAE,EAAP;AACE,gBAAK,MAAL;AAEA,oBAAK,OAAQ,GAAJ,GAAF,GAAQ,MAAf;AALe;AASnB;AAGA,UAAG,iBAAY,KAAE,4CAAjB;AACE,+BAAa,MAAM,YAAY,CAAC,SAAS,kBAAV;AAE/B,YAAA,uBAAa,MAAM,YAAY,CAAC,SAAS,KAAV;AAEjC,mBAAc;AAEd,UAAG,qCAAa,IAAG,aAAnB,EACE,SAAS,CAAC;;;;WAAY,aAAb,CADX;AAEA,UAAG,sCAAc,IAAG,aAApB,EACE,SAAS,CAAC;;;;WAAY,cAAb,CADX;AAEA,UAAG,+CAAuB,IAAG,aAA7B,EACE,SAAS,CAAC;;;;WAAY,wBAAb,CADX;AAEA,UAAG,2CAAmB,IAAG,aAAzB,EACE,SAAS,CAAC;;;;WAAY,oBAAb,CADX;AAEA,UAAG,sCAAc,IAAG,aAApB,EACE,SAAS,CAAC;;;;WAAY,cAAb,CADX;AAEA,UAAG,qDAA6B,IAAG,aAAnC,EACE,SAAS,CAAC;;;;WAAY,gCAAb,CADX;AAEA,UAAG,4CAAoB,IAAG,aAA1B,EACE,SAAS,CAAC;;;;WAAY,oBAAb,CADX;AAEA,UAAG,0CAAkB,IAAG,aAAxB,EACE,SAAS,CAAC;;;;WAAY,mBAAb,CADX;AAEA,UAAG,uCAAe,IAAI,aAAtB,EACE,SAAS,CAAC;;;;WAAY,eAAb,CADX;AAEA,UAAG,6CAAqB,IAAI,aAA5B,EACE,SAAS,CAAC;;;;WAAY,sBAAb,CADX;AAEA,UAAG,6DAAqC,IAAI,aAA5C,EACE,SAAS,CAAC;;;;WAAY,yCAAb,CADX;AAGA,UAAG,UAAW,KAAG,EAAjB;AAEE,+BAAa,aAAa,CAAC,UAAU,UAAX;OAF5B;AAKK;AACH,UADG,IACH;AAAc,+BAAa,aAAa,CAAC,iBAAiB,aAAlB;AACxC,gBAFG,IAEH;AAA2B,+BAAa,aAAa,CAAC,iBAAiB,4BAAlB;AACrD,gBAHG,IAGH;AAAU,+BAAa,aAAa,CAAC,iBAAiB,QAAlB;AACpC,gBAJG,IAIH;AAAyB,+BAAa,aAAa,CAAC,iBAAiB,0BAAlB;AACnD,gBALG,IAKH,8CAAa,uBAAa,aAAa,CAAC,iBAAiB,YAAlB,CAAvC;AAxDyC;AAlGT;AAElC;AAEA;AACA,UAAY,2BAAD,QAAX;AAEE,aAAM;AACN,UAAE,iBAAiB,CAAC,OAAQ,aAAT;OAHrB;AALkC;AAsFE;AAEpC;AAEA;AACA,UAAY,2BAAD,QAAX;AAEE,aAAM;AACN,UAAE,oBAAoB,CAAC,OAAQ,aAAT;OAHxB;AALoC;AA1EO;AAE3C;AACA,sBAAY;AAH+B;AAuCF;AAEzC;AACA,sBAAa;AAH4B;AA5BD;AAExC;AACA,oBAAS,GAAT;AACA,qBAAU,GAAV;AAJwC;AAoCR;AAEhC,kBAAO,IAAP;AAFgC;AA5BC;AAAV;AAEvB;AACA;AAEA,WAAM;AAGR;AAGE,eAAU;AAXa;AAAU;AAv5ElB;;;AAuBC,6B1D6EV,uC0D7EU;AACW;AACT,+B1DmFV,yC0DnFU,yB1DksBkD,uBAAC,0CAAQ,wCAAT,C0DlsBlD;AACI,mC1D4EV,6C0D5EU;AACG,sCA/BH,qCA+BG;AACP,+BAlCE,mCAkCF;AACJ;AACI;AACA,+B1D0IN,6C0D1IM;AACG,kC1DyIT,6C0DzIS;AACJ,8BAnCA,gCAmCA;AACK,mC1DwIX,4C0DxIW;AACA,mC1D2IP,gD0D3IO;AACF,iC1DsIT,4C0DtIS;AApCL;AAuCG;;;;AAEV;;;AAEN;AACA;AACA;AAJM;AAmuB2B;AAEnC,8BAAoB;AACpB;AAHmC;AAMR;AAE3B,sBAAY;AACZ;AAH2B;AA7GE;AAAb;AAGhB;AAEA,UAAI,2CAAY,IAAG,oBAAnB;AAEE,eAAuB,QAAQ,cAAc,CAAC,KAAD;AAY7C,YAAI,MAAM,YAAY,CAAC,mBAAmB,WAApB;AACtB,YAAI,MAAM,YAAY,CAAC,oBAAoB,WAArB;AACtB,YAAI,MAAM,YAAY,CAAC,wBAAwB,QAAzB;AACtB,YAAI,MAAM,YAAY,CAAC,mBACpB,4IAS4I,GAR5I,4IAD4I,GAE5I,4IAD4I,GAE5I,4IAD4I,GAE5I,4IAD4I,GAE5I,4IAD4I,GAE5I,4IAD4I,GAE5I,4IAD4I,GAE5I,4IAD4I,GAE5I,4IAD4I,GAE5I,iIAXmB;AAYtB,YAAI,MAAM,YAAY,CAAC,wBAAwB,QAAzB;AACtB,YAAI,MAAM,YAAY,CAAC,kBAAkB,OAAnB;AACtB,iBAAU;;AAIV,iBAAU,QAAQ,cAAc,CAAC,QAAD;AAChC,cAAM,aAAa,CAAC,KAAM,YAAP;AACnB,cAAM,aAAa,CAAC,cAAc,GAAf;;AA1CL;AAAa;AA8CC;AAE9B;AAEA;AAEA,UAAG,iBAAH,EACE,MADF;AAGA,UAAI,2CAAY,IAAG,oBAAnB;AAEE,YAAY,uBAAD,QAAX;AAEiB,iCAAc,MAAM,YAAY,CAAC,mBAAmB,WAApB;SAFjD;OAFF;AAQA,UAAY,mBAAD,QAAX;AAEE,YAAG,aAAS,KAAG,EAAf;AAEE,iBAAQ,gCAAiC,GAAE,aAAF;AACzC,cAAG,cAAH,EACE,OAAQ,IAAK,GAAE,aADjB;AAEA,6BAAS,aAAa,CAAC,MAAO,IAAR;SALxB;AAOA,YAAG,qBAAH;AACE,6BAAS,aAAa,CAAC,kBAAkB,iBAAnB;AAEtB,cAAA,mBAAS,gBAAgB,CAAC,iBAAD;OAZ7B;AAjB8B;AAiCM;AAEpC;AAEA,UAAG,iBAAH,EACE,MADF;AAGA,UAAI,2CAAY,IAAG,oBAAnB;AAEE,YAAY,uBAAD,QAAX;AAEiB,iCAAc,MAAM,YAAY,CAAC,mBAAmB,WAApB;SAFjD;OAFF;AAPoC;AAiBH;AAEjC;AACA,oBAAS,GAAT;AACA,qBAAU,GAAV;AAJiC;AA5tBzB;;;AAcQ,6B1D6CV,uC0D7CU;AACU;AACP;AACF,8B1DwJV,wC0DxJU;AACC;AAlBV;AAqBG;;;;AAEG,qEAAmB,UvE4B1B,2BuE5B0B,EAAc,mBAAK,kBAAtC;AACD,oEAAmB,UvE2BzB,2BuE3ByB,EAAoB,yBAAvC;AACO,2EAAmB,UvE0BhC,2BuE1BgC,EAAiB,uBAAkB,W1DkF3D,+C0DlF2D,CAAtD;AACC,4EAAmB,UvEyBjC,2BuEzBiC,EAAiB,uBAAmB,Y1DiF7D,+C0DjF6D,CAAvD;AACC,6EAAmB,UvEwBlC,2BuExBkC,EAAiB,uBAAoB,a1DgF/D,+C0DhF+D,CAAxD;AACF,2EAAmB,UvEuBhC,2BuEvBgC,EAAiB,uBAAkB,W1D+E3D,+C0D/E2D,CAAtD;AACG,8EAAmB,UvEsBnC,2BuEtBmC,EAAiB,uBAAqB,c1D8EjE,+C0D9EiE,CAAzD;AACN,wEAAmB,UvEqB7B,2BuErB6B,EAAiB,uBAAe,Q1D6ErD,+C0D7EqD,CAAnD;AAEC;;AACA;;AACD;;AACH;;AACC;;AA+BJ;AA3BO;;;AAEhB;AACA;AACA;AACA;AACA;AACA;AAPgB;;;;;;AAivFuB;AAEzC,uBAAY,OAAO,CAAC,KAAD;AAFsB;AAqCH;AAEtC;AACA;AACA;AAEA,uBAAa;AACb,YAAO,WAAM;AAEb,UAAG,CAAY,CAAC,GAAD,SAAf,EACE,MADF;AAGA,UAAG,cAAU,KAAE,iCAAf;AAGF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;OAGO,UAAc,CAAV,cAAU,KAAE,8BAAF,CAAa,IAAsB,CAAjB,iBAAW,WAAC,EAAK,KAAG,EAAH,CAAjD;AAEH,iBAAU,iBAAW,WAAC;AACtB;AACE,mBAAoB,IAAO,MAAM,CAAC,MAAD;AAEvC;AAHI;;;AAYJ;;AApMwC;AAhCO;AAE7C,UAAG,qBAAiB,KAAG,KAAvB;AAEE,gCAAoB;AACpB,mBAAM;AACN,mBAAM,MAAM,CAAC,sBAAiB,sBAAlB;OAJd;AAF6C;AAUC;AAE9C,UAAG,sBAAkB,KAAG,KAAxB;AAEE,iCAAqB;AACrB,mBAAM;AACN,mBAAM,MAAM,CAAC,sBAAiB,sBAAlB;OAJd;AAF8C;AAUA;AAE9C,UAAsB,CAAlB,sBAAkB,KAAG,KAAH,CAA2B,IAAN,CAAN,KAAM,IAAG,CAAH,CAAX,IAA4B,CAAN,KAAM,IAAG,EAAH,CAA5D;AAEE,iCAAqB;AACrB,mBAAM;AACN,mBAAM,QAAQ,CAAC,KAAD;OAJhB;AAF8C;AA1CX;AAEzB;AACV,0BAAgB,uBAAW,QAAC;AAC5B,uBAAa;AACb,8BAAoB,CAAC;AACrB,+BAAqB;AACrB,+BAAqB;AACrB,oBAAU;AARoD;AAA3B;AAWA;AAEtB,eAAb,KAAa;AACb;AAHmC;AArBF;AAEjC;AACA,0BAAwB,OAAP,OAAU,uBAAH,CAAsB;AAC9C,uBAAqB,OAAP,OAAU,uBAAH,CAAsB;AAC3C,8BAA4B,OAAP,OAAU,uBAAH,CAAsB;AAClD,+BAA6B,OAAP,OAAU,uBAAH,CAAsB;AACnD,+BAA6B,OAAP,OAAU,uBAAH,CAAsB;AAPlB;AAttFf;AAcE,+BAAY,eAarB,yBAbqB,CAAZ;AAIE,mC9DwPX,iC8DxPW;AACH,gCAvBJ,8BAuBI;AACO;AACC;AACA;AAtBT;AAyBD;;AAEN;;;AAET;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA1BS;;;;;;;;;;;;;;;;;;;;;;AAymDkB;AAE7B,UAAG,YAAQ,KAAG,KAAd;AAEE,uBAAW;AACX;OAHF;AAF6B;AAxQD;AAAT;AAEnB;AAGF;AAGE,eAAU;AARS;AAAS;AAlBA;AAAT;AAEnB;AAGF;AAGE,eAAU;AARS;AAAS;AAmDG;AAAZ;AAEnB;AAGF;AAGE,eAAU;AARS;AAAY;AAtBF;AAAV;AAEnB;AAGF;AAGE,eAAU;AARS;AAAU;AAWC;AAAX;AAEnB;AAGF;AAGE,eAAU;AARS;AAAW;AAgTF;AAE5B,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACV;OAHF;AAF4B;AASI;AAEhC,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd;OAHF;AAFgC;AAvbP;AAAN;AAEnB;AACA;AAEA,UAAY,SAAD,QAAX;AACE,iBAAU;;AAGV,cAAO;AAEP,aAAM;AAEV;AACA;AACA;AACA;AAGI,iBAAU;AACV,YAAY,GAAD,QAAX,EACE,YAAQ,MADV;;AApBiB;AAAM;AA5HO;AAAb;AAEnB,gCAAsB;AACtB,gCAAsB;AAEtB,eAAU,QAAQ,cAAc,CAAC,KAAD;AAChC,YAAM,aAAa,CAAC,KAAM,YAAP;AACnB,kBAAQ;AAPW;AAAa;AAo9BC;AAEjC;AACA;AACA;AACA;AACA;AACA;AACA;AAAI;AACJ;AAGA;AAEA,UAAG,iBAAH,EACE,MADF;AAGA,UAAG,mBAAa,GAAE,CAAlB,EACE,MADF;AAGA,UAAG,kBAAS,IAAe,CAAV,yCAAU,IAAG,oBAAH,CAA3B,EACE,MADF;AAGA,UAAgB,CAAX,CAAI,UAAO,IAAa,CAAR,YAAQ,KAAG,EAAH,CAAb,CAAqB,IAAY,CAAR,YAAQ,KAAG,eAAH,CAAjD;AAEE,qBAAS;AACT,aAAM;AACN,0BAAc;AAEd,cAAO,QAAQ,eAAe,CAAC,eAAD;AAC9B,YAAY,GAAD,QAAX;AAEE,kBAAQ,KAAK,YAAY,CAAC,GAAD;SAF3B;AAKA,eAAQ,QAAQ,eAAe,CAAC,gBAAD;AAC/B,YAAY,IAAD,QAAX;AAEE,kBAAQ,KAAK,YAAY,CAAC,IAAD;SAF3B;AAKA,YAAc,CAAV,eAAU,KAAE,+BAAF,CAAY,IAAW,CAAN,WAAM,KAAG,EAAH,CAArC,EACE,UAAW,SADb;AAGA,mBAAY;AACZ,YAAG,WAAM,KAAG,EAAZ,EACE,WAAY,SAAsB,GAAX,WAAD,GAAO,IAAD,GAAO,MADrC;AAGA,iBAAU,0CAAyF,GAA9C,OAAD,GAAS,MAAD,GAAU,YAAF,GAAY,mBAAF,GAAsB,EAAD;AAEnG,oBAAa,yBAQe,GARW,MAAD,GACjC,kBADwC,GACrB,EAAD,GAAI,OAAD,GAAS,MAAD,GAC7B,oCADoC,GACC,EAAD,GAAI,KAAD,GAAO,MAAD,GAC7C,0EADoD,GACuB,MAAD,GAC1E,iCADiF,GAC/C,MAAD,GACjC,gBADwC,GACrB,0BAAa,CAAC,uBAAU,CAAC,aAAO,iBAAR,EAA2B,IAAK,IAAK,cAAC,4CAAD,CAAhD,CAAf,GAAiF,SAAF,GAAc,0BAAa,CAAC,uBAAU,CAAC,aAAO,kBAAR,EAA4B,IAAK,IAAK,cAAC,4CAAD,CAAjD,CAAf,GAAkF,IAAF,GAAO,MAAD,GAClM,QADyM,GAEzM,QADQ,GACG,qBAAQ,CAAC,aAAO,kBAAR,CAAV,GAAuC,KAAF,GAAQ,MAAD,GACrD,gBAD4D,GAC3C,MAAD,GAChB,GADuB;AAG5B,cAAO,QAAQ,cAAc,CAAC,QAAD;AAC7B,WAAG,iBAAiB,CAAC,OAAQ,uCAAT;AAExB;AACA;AACA;AACA;AAGI,gBAAQ,KAAK,YAAY,CAAC,GAAD;AACzB,WAAG,cAAC,KAAS,eAAV;AAEH,eAAQ,QAAQ,cAAc,CAAC,QAAD;AACf,YAAK,UAApB,GAAkC;AAClC,gBAAQ,KAAK,YAAY,CAAC,IAAD;AACzB,YAAI,cAAC,KAAS,gBAAV;OAGD,UAAY,uBAAD,QAAX;AAEH,+BAAa,MAAM,YAAY,CAAC,SAAU,gBAAX;AAC/B,+BAAa,MAAM,YAAY,CAAC,mBAAoB,MAArB;AAC/B,YAAI,uBAAa,kBAAmB,KAAE,CAAtC;AAEE,eAAqB,QAAQ,cAAc,CAAC,MAAD;AAE3C,mBAAU,kGAAkG,GAClG,qHADkG;AAE5G,YAAE,UAAF,GAAgB;AAChB,iCAAa,YAAY,CAAC,EAAD;SAP3B;OAJG;AA/E4B;AAhMG;AAEpC;AACA;AAEA;AAEA,YAAO;AACP,UAAG,KAAM,KAAE,CAAX;AACE,YAAK;AAEL,gBAAK,wCAAiB,CAAC,KAAD;AAExB,UAAY,GAAD,QAAX;AAGF;OAHE;AAboC;AAn4BN;AAE9B;AACA;AAAK;AAAK;AAAK;AAAK;AACpB;AAAQ;AAER;AAEA,UAAG,iBAAH,EACE,MADF;AAGA,YAAO;AAEP,UAAW,CAAC,GAAD,SAAqB,IAAX,CAAI,WAAR,IAAmB,CAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAArD;AAEE,eAAS;AACT,eAAS;AACT,eAAS;AACT,eAAS;AACT,eAAS;AAGb;AACA;AACA;AACA;AACA;AACA;AAKA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGI,kCAAsB;AACtB,kCAAsB;AAEtB,sBAAU;OAhCZ;AAb8B;AAqcI;AAElC;AAAI;AAGN;AACA;AAGE,UAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,KAAM,IAAK,GAAZ,CADZ;AATkC;AAaG;AAErC;AAAI;AAGN;AACA;AAGE,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,IAAK,GAAZ,CADf;AATqC;AAmBL;AAEhC;AAAI;AAGN;AACA;AACA;AAGE,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,KAAM,IAAK,GAAZ,CADV;AAVgC;AAcC;AAEjC;AACA;AAEA,YAAO;AAET;AAEE,UAAY,eAAD,QAAX,EACE,eAAS,CAAC,KAAM,IAAP,CADX;AATiC;AApBA;AAEjC,UAAY,eAAD,QAAX,EACE,eAAS,CAAC,IAAD,CADX;AAFiC;AAiCI;AAErC;AACA;AAGF;AAGE,UAAY,mBAAD,QAAX;AAEE,eAAO,SAAP,GAA8B;AAC9B,2BAAa,CAAC,KAAM,IAAK,sDAAZ;OAHf;AATqC;AAiBC;AAEtC;AACA;AAGF;AAGE,UAAY,oBAAD,QAAX;AAEE,eAAO,SAAP,GAA8B;AAC9B,4BAAc,CAAC,KAAM,IAAK,sDAAZ;OAHhB;AATsC;AAgBC;AAEvC;AACA;AAGF;AAGE,UAAY,qBAAD,QAAX;AAEE,eAAO,SAAP,GAA8B;AAC9B,6BAAe,CAAC,KAAM,IAAK,sDAAZ;OAHjB;AATuC;AA5IF;AAErC;AACA;AAGF;AAGE,UAAY,mBAAD,QAAX;AAEE,eAAO,SAAP,GAA8B;AAC9B,2BAAa,CAAC,KAAM,IAAK,sDAAZ;OAHf;AATqC;AAgCG;AAExC;AACA;AAGF;AAGE,UAAY,sBAAD,QAAX;AAEE,eAAO,SAAP,GAA8B;AAC9B,8BAAgB,CAAC,KAAM,IAAK,sDAAZ;OAHlB;AATwC;AAhBN;AAElC;AACA;AAGF;AAGE,UAAY,gBAAD,QAAX;AAEE,eAAO,SAAP,GAA8B;AAC9B,wBAAU,CAAC,KAAM,IAAK,sDAAZ;OAHZ;AATkC;AA4ID;AAAd;AAEnB;AACA;AAAQ;AAER,eAAU;AACV,YAAO;AAGT;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,UAAG,GAAI,IAAY,CAAC,gBAAD,SAAnB;AAEE,wBAAU,CAAC,KAAM,OAAQ,MAAf;OAFZ;AApBmB;AAAc;AAlKH;AAAX;AAGnB,eAAU;AAHS;AAAW;AAyqBE;AAAb;AAEnB,eAAU;AACL;AACH,UADG,IACH;AAAW,iBAAU;AACrB,gBAFG,IAEH;AAAW,iBAAU;AACrB,gBAHG,IAGH;AAAa,iBAAU;AACvB,gBAJG,IAIH,uCAAW,SAAU,SAArB;AAPiB;AAAa;AAz6BL;AAAR;AAEnB;AACA,eAAU;AAEV,mBAAO,YAAY,CAAC,aAAO,UAAR;AAEnB,UAAG,YAAO,KAAG,CAAb,EACE,qBAAgB,CAAC,YAAD,CADlB;AAGA,UAAY,iBAAD,QAAX,EACE,iBAAW,CAAC,IAAD,CADb;AAVmB;AAAQ;AAgCD;AAE1B;AAF0B;AAgNK;AAAZ;AAEnB;AAEA,YAAO;AAGT;AACA;AACA;AACA;AAGE,eAAU;AAbS;AAAY;AAtQK;AAEpC;AACA,sBAAY,uBAAkB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,oBAAS,GAAT;AACA,qBAAU,GAAV;AALoC;AA4eP;AAE7B;AAEA,YAAO;AACP,UAAY,GAAD,QAAX;AAGF;OAHE;AAL6B;AAzTD;AAAT;AAEnB;AAAM;AAEN,eAAU;AACV,cAAO,CAAC,CAAR;AACA,cAAO,CAAC,CAAR;AAGF;AACA;AAGE,UAAS,CAAL,IAAK,KAAG,EAAH,CAAO,IAAU,CAAL,IAAK,KAAG,EAAH,CAA1B;AAEE,gBAAO,uBAAU,CAAC,IAAD,CAAjB;AACA,gBAAO,uBAAU,CAAC,IAAD,CAAjB;AACA,iBAAU;OAJZ;AAbmB;AAAS;AAxCA;AAAT;AAGnB;AAAO;AAAO;AAAO;AAErB,eAAU;AACV,uBAAgB,CAAC,CAAjB;AACA,uBAAgB,CAAC,CAAjB;AACA,uBAAgB,CAAC,CAAjB;AACA,uBAAgB,CAAC,CAAjB;AAGF;AACA;AACA;AACA;AAGE,UAAU,CAAN,KAAM,KAAG,EAAH,CAA2C,IAAzB,CAAN,KAAM,KAAG,EAAH,CAAX,IAA6B,CAAN,KAAM,KAAG,EAAH,CAAX,IAA6B,CAAN,KAAM,KAAG,EAAH,CAAhE;AAEE,yBAAgB,uBAAU,CAAC,KAAD,CAA1B;AACA,yBAAgB,uBAAU,CAAC,KAAD,CAA1B;AACA,yBAAgB,uBAAU,CAAC,KAAD,CAA1B;AACA,yBAAgB,uBAAU,CAAC,KAAD,CAA1B;AACA,iBAAU;OANZ;AAlBmB;AAAS;AA8WU;AAEtC;AAEA,YAAO;AACP,UAAY,GAAD,QAAX;AAGF;OAHE;AALsC;AAaN;AAEhC;AAEA,YAAO;AACP,UAAY,GAAD,QAAX;AAGF;OAHE;AALgC;AAyRE;AAElC;AAEA,YAAO;AAET;AANoC;AA7OJ;AAE9B;AACA;AAEA,YAAO;AAEF;AACH,UADG,IACH;AAAW,cAAO;AAClB,gBAFG,IAEH;AAAa,cAAO;AACpB,gBAHG,IAGH;AAAU,cAAO;AACjB,gBAJG,IAIH,oCAAW,MAAO,SAAlB;AAIJ;AAfgC;AAoQH;AAE3B;AAEA,YAAO;AACP,UAAY,GAAD,QAAX;AAGF;OAHE;AAL2B;AAnSG;AAE9B;AAEA,YAAO;AACP,UAAY,GAAD,QAAX;AAGF;OAHE;AAL8B;AAsRH;AAE3B;AAEA,YAAO;AACP,UAAY,GAAD,QAAX;AAGF;OAHE;AAL2B;AAntBF;AAEzB;AAEA,YAAO;AACP,UAAW,CAAC,GAAD,SAAM,IAAI,mBAArB;AAGF;OAHE;AALyB;AAaM;AAE/B;AACA;AAEA,YAAO;AACP,UAAW,CAAC,GAAD,SAAM,IAAI,mBAArB;AAEE,iBAAU,YAAO,CAAC,KAAK,KAAK,KAAK,IAAhB;AAErB;OAJE;AAN+B;AAhVL;AAG1B;AACA;AAAO;AAAO;AAAO;AAErB,eAAmB,IAAT,KAAS;AAErB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,sBAAW,CAAC,OAAQ,OAAQ,OAAQ,QAAzB;AACX,oBAAS,CAAC,OAAQ,OAAQ,OAAQ,MAAzB;AAtCiB;AAyCA;AAE1B;AACA;AACA;AAEA,YAAQ;AACR,YAAO;AAGT;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAlB4B;AApRK;AAE/B;AACA;AACA;AAEA,YAAQ;AACR,YAAO;AACP,YAAO,kCAAW,CAAC,MAAD;AAGpB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AArBiC;AAyDD;AAE9B;AACA;AAAK;AACL;AAEA,YAAQ;AACR,YAAO;AACP,aAAQ,kCAAW,CAAC,UAAD;AACnB,aAAQ,kCAAW,CAAC,YAAD;AAGrB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAxBgC;AA4BD;AAG7B;AACA;AAAK;AACL;AAEA,YAAQ;AACR,YAAO;AACP,aAAQ,kCAAW,CAAC,UAAD;AACnB,aAAQ,kCAAW,CAAC,YAAD;AAGrB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA3B+B;AA5DG;AAIhC;AACA;AAAK;AACL;AAEA,YAAQ;AACR,YAAO;AACP,aAAQ,kCAAW,CAAC,UAAD;AACnB,aAAQ,kCAAW,CAAC,YAAD;AAGrB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA5BkC;AA2FH;AAE7B;AACA;AAEA,YAAQ;AACR,YAAO;AAET;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAhB+B;AAoBA;AAE7B;AACA;AACA;AAEA,YAAQ;AAEH;AACL,UADK,IACL;AAAW,cAAO;AAClB,gBAFK,IAEL;AAAO,cAAO;AACd,gBAHK,IAGL;AAAS,cAAO;AAChB,gBAJK,IAIL;AAAU,cAAO;AACjB,gBALK,IAKL;AAAU,cAAO;AACjB,gBANK,IAML,qCAAQ,MAAO,cAAf;AAGA,YAAO;AAET;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAjC+B;AAqCA;AAE7B;AACA;AAAI;AACJ;AACA;AAEA,YAAQ;AAER,YAAO,kCAAW,CAAC,KAAD;AAClB,uBAAM,CAAC;;;;WAAI,EAAE,CAAP;AACN,YAAO;AAET;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA5B+B;AAgCA;AAE7B;AACA;AAEA,YAAQ;AAER,YAAO;AAET;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AApB+B;AAwBA;AAG5B,sBAAS,CAAC,IAAK,IAAK,MAAO,MAAO,EAAS,EAAG,MAn0BsI,EAm0B3K;AAHmB;AAqEA;AAG7B;AACA;AACA;AACA;AACA;AACA;AAEA,YAAQ;AACR,YAAO;AACP,YAAO,kCAAW,CAAC,KAAD;AAClB,aAAQ,kCAAW,CAAC,WAAD;AACnB,YAAO,0BAAa,CAAC,uBAAU,CAAC,KAAD,EAAS,IAAK,IAAK,EAA9B;AAEf;AACL,UADK,IACL;AAAO,cAAM;AACb,gBAFK,IAEL;AAAU,cAAO;AACjB,gBAHK,IAGL;AAAS,cAAO;AAChB,gBAJK,IAIL;AAAY,cAAO;AACnB,gBALK,IAKL;AAAa,cAAO;AACpB,gBANK,IAML;AAAQ,cAAO;AACf,gBAPK,IAOL;AAAY,cAAO;AACnB,gBARK,IAQL;AAAQ,cAAO;AACf,gBATK,IASL,uCAAU,MAAO,WAAjB;AAIF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAjD+B;AA+zBK;AAGpC;AACA;AACA;AACA;AANoC;AAVG;AAGvC;AACA;AACA;AACA;AANuC;AAVJ;AAGnC;AACA;AACA;AACA;AANmC;AA0GE;AAGrC;AACA;AACA;AACA;AANqC;AAyBA;AAGrC;AACA;AACA;AACA;AANqC;AAfA;AAGnC;AAAM;AAEN,aAAQ,kCAAW,CAAC,UAAD;AACnB,aAAQ,kCAAW,CAAC,YAAD;AAErB;AACA;AACA;AACA;AAXqC;AAvBK;AAI1C;AACA;AACA;AACA;AACA;AACA;AAT0C;AAfF;AAGtC;AAAM;AAEN,aAAQ,kCAAW,CAAC,UAAD;AACnB,aAAQ,kCAAW,CAAC,YAAD;AAErB;AACA;AACA;AACA;AAXwC;AAvBF;AAEpC;AAEA,YAAO,kCAAW,CAAC,MAAD;AAEpB;AACA;AACA;AACA;AATsC;AAaC;AAGvC;AACA;AACA;AACA;AANuC;AAtCD;AAGpC;AAAM;AAEN,aAAQ,kCAAW,CAAC,UAAD;AACnB,aAAQ,kCAAW,CAAC,YAAD;AAErB;AACA;AACA;AACA;AAXsC;AAeA;AAGtC;AACA;AACA;AACA;AANsC;AAroBP;AAE7B;AAEA,YAAO;AAEP,UAAW,CAAC,GAAD,SAAM,IAAI,mBAArB;AAGF;AACA;AACA;AACA;OANE;AAN6B;AAvFG;AAGlC;AACA;AACA;AACA;AANkC;AAVH;AAG/B;AACA;AACA;AACA;AAN+B;AA8BK;AAGpC;AACA;AACA;AACA;AANoC;AAVD;AAGnC;AACA;AACA;AACA;AANmC;AA9BD;AAGlC;AACA;AACA;AACA;AANkC;AAkDG;AAGrC;AACA;AACA;AACA;AANqC;AAu6BD;AAIlC;AAAO;AAAS;AAChB;AACA;AACA;AAEA,UAAG,CAAY,CAAC,uBAAD,SAAf,EACE,iBADF;AAGA,eAAU;AACV,iBAAY;AACZ,YAAO;AACP,WAAM,kBAAa,CAAC,WAAD;AACnB,WAAe,IAAT,KAAS;AACf,UAAG,SAAU,KAAG,IAAhB;AAEE,iBAAS,QAAqB,OAAhB,SAAS,SAAC,EAAM,GAAE,CAAF,kBAA9B;AAAI;AACF,YAAE,KAAK,CAAC,UAAG,CAAC,CAAC,WAAY,SAAS,KAAC,CAAD,CAAtB,CAAD,CAAJ;;OAHX;AAOF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAxCoC;AAhFA;AAKlC;AAAO;AAAS;AAChB;AACA;AACA;AAEA,UAAG,CAAY,CAAC,uBAAD,SAAf,EACE,iBADF;AAGA,eAAU;AACV,iBAAY;AACZ,YAAO;AACP,WAAM,kBAAa,CAAC,WAAD;AACnB,WAAe,IAAT,KAAS;AACf,UAAG,SAAU,KAAG,IAAhB;AAEE,iBAAS,QAAqB,OAAhB,SAAS,SAAC,EAAM,GAAE,CAAF,kBAA9B;AAAI;AACF,YAAE,KAAK,CAAC,UAAG,CAAC,CAAC,WAAY,SAAS,KAAC,CAAD,CAAtB,CAAD,CAAJ;;OAHX;AAOF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA3CoC;AAyDA;AAGlC;AACA;AAEA,YAAO;AACP,cAAS;AAEX;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAnBoC;AAVA;AAElC;AAEA,YAAO;AAET;AANoC;AAvzBJ;AAE9B;AAEA,eAAU,cAAO,CAAC,MAAD;AAEnB;AACA;AAPgC;AAuZM;AAEpC;AAEA,UAAG,CAAY,CAAC,uBAAD,SAAf,EACE,iBADF;AAGA,iBAAY;AAGd;AAVsC;AA+HJ;AAGlC;AACA;AACA;AACA;AACA;AAPkC;AAWC;AAGnC;AACA;AACA;AACA;AACA;AAPmC;AAWC;AAGpC;AACA;AACA;AACA;AACA;AAPoC;AAlCF;AAGlC;AACA;AACA;AACA;AACA;AAPkC;AA6CG;AAGrC;AACA;AACA;AACA;AACA;AAPqC;AA1iBR;AAE3B;AAEA,kBAA0B,IAAlB,cAAkB;AAC1B,eAAI,iBAAiB,CAAC,OAAS,6CAAV;AACrB,eAAI,iBAAiB,CAAC,QAAS,0CAAV;AAErB,aAAQ,4DAAoG,GAArC,kBAAkB,CAAC,OAAD,CAApB,GAA+B,OAAD,GAAW,YAAF;AAC5G,eAAI,KAAK,CAAC,MAAO,IAAR;AACT,eAAI;AAVuB;AA2IA;AAAR;AAGrB;AAHqB;AAAQ;AA3MA;AAAR;AAEnB,eAAU;AAEZ;AACA;AACA;AACA;AACA;AACA;AACA;AAVqB;AAAQ;AA+JD;AAAP;AAEnB;AAAG;AAEH,WAAM,aAAQ,CAAC,KAAK,IAAN;AACd,WAAM,aAAQ,CAAC,KAAK,IAAN;AAGhB;AARqB;AAAO;AA9yCf;;;AA8HK,6B1DtIV,uC0DsIU;AACC;AACA,8B1D1BV,wC0D0BU;AACD;AACI,iCApIH,gCAoIG;AACF,+BA9JA,iCA8JA;AACG,kCAhLP,6BAgLO;AACD,iC1DlEX,0C0DkEW;AACF,+B1DnET,0C0DmES;AACG,kC1DnEP,+C0DmEO;AACA,kCApLP,6BAoLO;AACG,qCArLV,6BAqLU;AACJ,iC1D7ER,6C0D6EQ;AACD,gCAvLL,6BAuLK;AACG,mC1D/EV,6C0D+EU;AACF,iCAxLP,4BAwLO;AACI,qCAxLJ,mCAwLI;AACC,sCAxLJ,oCAwLI;AACC,uCAxLJ,qCAwLI;AACF,qCAxLJ,mCAwLI;AACG,wCAxLJ,sCAwLI;AACN,kCAxLJ,gCAwLI;AAnJV;AAsJG;;;;AA+BF;AA3BO,0EAAmB,UvE1K/B,2BuE0K+B,EAAc,mBAAK,mBAAY,iBAAlD;AAEP;;AAEO;;;AAEjB;AACA;AACA;AACA;AACA;AANiB;;;;;AAutH2B;AAE9C,8BAAoB;AACpB,UAAY,WAAD,QAAX,EACE,WAAM,UAAU,CAAC,sBAAkB,sBAAnB,CADlB;AAH8C;AAOC;AAE/C,+BAAqB;AACrB,UAAY,WAAD,QAAX,EACE,WAAM,UAAU,CAAC,sBAAkB,sBAAnB,CADlB;AAH+C;AAOA;AAE/C,+BAAqB;AACrB,UAAY,WAAD,QAAX,EACE,WAAM,QAAQ,CAAC,sBAAD,CADhB;AAH+C;AAOL;AAE1C,0BAAgB;AAChB,UAAY,WAAD,QAAX,EACE,WAAM,eAAe,CAAC,KAAD,CADvB;AAH0C;AA9BN;AAEpC,oBAAU;AACV,8BAAoB,CAAC;AACrB,+BAAqB;AACrB,+BAAqB;AACrB,0BAAgB;AAN2C;AAAvB;AAXF;AAElC,UAAc,wBAAH,eAAP,MAAO,CAAX;AAEE,gCAA4B,OAAP,OAAU,wBAAH,CAAuB;AACnD,iCAA6B,OAAP,OAAU,wBAAH,CAAuB;AACpD,iCAA6B,OAAP,OAAU,wBAAH,CAAuB;AACpD,4BAAwB,OAAP,OAAU,wBAAH,CAAuB;OALjD;AAFkC;AAnsHf;AAaC,+BAAO,UAUf,0BAVe,CAAP;AAIE,mCAnBV,2BAmBU;AACI;AACC;AACA;AApBR;AAuBP;;;AAEV;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AApBU;;;;;;;;;;;;;;;AAwjHmB;AAE/B,mBAAQ,OAAO,CAAC,KAAD;AAFgB;AA7GL;AAAN;AAEpB,eAAU;AAFU;AAAM;AAlIO;AAAb;AAEpB,eAAU,QAAQ,cAAc,CAAC,KAAD;AAChC,YAAM,aAAa,CAAC,KAAM,YAAP;AACnB,kBAAQ;AAJY;AAAa;AA9EF;AAE/B;AAF+B;AAkQA;AAE/B;AACA;AAEA;AAEA,WAAM;AACN,WAAM,QAAQ,eAAe,CAAC,EAAD;AAC7B,UAAG,CAAY,CAAC,EAAD,SAAf,EACE,MADF;AAGA,UAAG,CAAI,mBAAQ,CAAC,eAAD,CACZ,IADqC,CAAC,gBAAD,SAAZ,IAAsC,CAAC,eAAD,SAAZ,IAAqC,CAAC,iBAAD,SAAZ,IAAuC,CAAC,oBAAD,SAAZ,IAC3F,CAAC,oBAAD,SADf;AAIF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;OAvBE;AAZ+B;AAnCM;AAAjB;AAEpB;AAGF;AAEE,UAAG,CAAY,CAAC,EAAD,SAAf,EAC6B,4DAAC,KAAD,CAD7B;AAPoB;AAAiB;AAuBF;AAAf;AAEpB;AAGF;AAGE,UAAG,CAAY,CAAC,EAAD,SAAf,EAC2B,0DAAC,KAAD,CAD3B;AARoB;AAAe;AAZE;AAAjB;AAEpB;AAGF;AAGE,UAAG,CAAY,CAAC,EAAD,SAAf,EAC6B,4DAAC,KAAD,CAD7B;AARoB;AAAiB;AAnHA;AAErC;AAAI;AAGN;AACA;AAGE,UAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,KAAK,IAAI,GAAV,CADZ;AATqC;AAaG;AAExC;AAAI;AAGN;AACA;AAGE,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAK,IAAI,GAAV,CADf;AATwC;AAaL;AAEnC;AAAI;AAGN;AACA;AACA;AAGE,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,KAAK,IAAI,GAAV,CADV;AAVmC;AAcC;AAEpC;AAGF;AAGE,UAAY,eAAD,QAAX,EACE,eAAS,CAAC,KAAM,IAAP,CADX;AARoC;AAYI;AAExC;AAAI;AACJ;AAIF;AACA;AACA;AAGE,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,IAAK,IAAK,EAAjB,CADf;AAZwC;AAjJA;AAExC;AACA,0BAAgB;AAChB,6BAAmB;AACnB,wBAAc;AACd,yBAAe;AACf,6BAAmB;AAPqB;AA2LF;AAEtC;AACA,0BAAiB;AACjB,6BAAoB;AACpB,wBAAe;AACf,yBAAgB;AAChB,6BAAoB;AAPkB;AAqFL;AAEjC;AACA,UAAG,mBAAQ,CAAC,eAAD,CAAX;AAGF;OAHE;AAHiC;AAwEE;AAEnC;AAEA,UAAG,CAAI,mBAAQ,CAAC,eAAD,CAAf,EACE,MADF;AAGA,UAAG,CAAI,mBAAQ,CAAC,iBAAD,CAAf,EACE,MADF;AAGK;AACL,UADK,IACL;AAAW,YAAK;AAChB,gBAFK,IAEL;AAAY,YAAK;AACjB,gBAHK,IAGL;AAAc,YAAK;AACnB,gBAJK,IAIL,sCAAe,IAAK,aAApB;AAIF;AAGE,UAAG,KAAM,KAAG,wBAAZ;AAGF;AACA;AACA;AACA;AACA;OAPE;AArBmC;AA7RE;AAErC;AACA,sBAAY,iBAAK,QAAC;AAClB,yBAAe,iBAAK,QAAC;AACrB,uBAAa,iBAAK,QAAC;AACnB,wBAAc,iBAAK,QAAC;AACpB,sBAAY,wBAAmB,QAAC,YAAM,CAAC,IAAD,CAAN;AAPK;AAUR;AAEpB,eAAT,KAAS;AACG,eAAZ,KAAY;AACF,eAAV,KAAU;AACC,eAAX,KAAW;AACF,eAAT,KAAS;AACT;AAP6B;AAsNC;AAGhC;AACA;AAJgC;AA1HD;AAAT;AAEpB;AAAG;AAEH,eAAU;AAEV,UAAG,CAAI,mBAAQ,CAAC,eAAD,CAAf,EACE,aADF;AAIF;AACA;AACA;AAGE,cAAO,EAAP;AACA,cAAO,EAAP;AAEA,eAAU;AAlBU;AAAS;AAuID;AAG9B;AACA;AAJ8B;AAlYE;AAE9B,UAAG,mBAAQ,CAAC,iBAAD,CAAX;AAIF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;OAXE;AAF8B;AAmFG;AAGnC;AAHmC;AAlDD;AAGhC;AACA;AAEA,oBAAe,kCAAW,CAAC,MAAD;AAE5B;AAEE,qBAAU,IAAI,CAAC,QAAD;AAVkB;AAdD;AAG/B;AAAU;AACV;AAEA,oBAAe,kCAAW,CAAC,YAAD;AAC1B,kBAAa,kCAAW,CAAC,UAAD;AAE1B;AAEE,oBAAS,IAAI,CAAC,IAAD;AAXkB;AArCD;AAG9B;AAAU;AACV;AAEA,kBAAa,kCAAW,CAAC,UAAD;AACxB,oBAAe,kCAAW,CAAC,YAAD;AAG5B;AACA;AACA;AAEE,mBAAQ,IAAI,CAAC,MAAD;AAdkB;AAgEG;AAIjC;AAAU;AACV;AAEA,kBAAa,kCAAW,CAAC,UAAD;AACxB,oBAAe,kCAAW,CAAC,YAAD;AAE5B;AACA;AACA;AAEE,sBAAW,IAAI,CAAC,IAAD;AAdkB;AAoEE;AAEnC;AACA;AAEA,eAAS,QAAsB,OAAjB,eAAU,SAAC,EAAM,GAAE,CAAF,kBAA/B;AAAI;AAEF,YAAa,eAAU,IAAM,CAAC,CAAD;AAEjC;;AATqC;AAdD;AAElC;AACA;AAEA,eAAS,QAAqB,OAAhB,cAAS,SAAC,EAAM,GAAE,CAAF,kBAA9B;AAAI;AAEF,YAAa,cAAS,IAAM,CAAC,CAAD;AAEhC;;AAToC;AA/BD;AAEjC;AACA;AAEA,eAAS,QAAoB,OAAf,aAAQ,SAAC,EAAM,GAAE,CAAF,kBAA7B;AAAI;AAEF,YAAa,aAAQ,IAAM,CAAC,CAAD;AAE/B;;AATmC;AA2DG;AAEpC;AACA;AAEA,eAAS,QAAuB,OAAlB,gBAAW,SAAC,EAAM,GAAE,CAAF,kBAAhC;AAAI;AAEF,YAAa,gBAAW,IAAM,CAAC,CAAD;AAElC;;AATsC;AA0QL;AAE/B;AAAG;AAEH,UAAG,mBAAQ,CAAC,eAAD,CAAX;AAGF;AACA;AACA;AACA;AAGI,cAAK,EAAL;AACA,cAAK,EAAL;OAGA,YAAM,sBAAS,QAAC,YAAM,CAAC,oBAAD,CAAN;AAjBa;AAoBA;AAE/B;AAAG;AAEH,UAAG,mBAAQ,CAAC,eAAD,CAAX;AAGF;AACA;AACA;AACA;AAGI,gBAAO,EAAP;AACA,gBAAO,EAAP;OAGA,YAAM,sBAAS,QAAC,YAAM,CAAC,oBAAD,CAAN;AAjBa;AArPH;AAAR;AAEpB,UAAG,mBAAQ,CAAC,eAAD,CAAX;AAGF;AACA;AACA;OAII,YAAM,sBAAS,QAAC,YAAM,CAAC,oBAAD,CAAN;AAXE;AAAQ;AAp2GhB;;;AA6DK,8B1D5IV,wC0D4IU;AACC,+BArFC,kCAqFD;AACA,+B1DjLT,0C0DiLS;AACE,iC1DlLX,0C0DkLW;AACC,kC1DlLP,+C0DkLO;AACA,kCAnSP,6BAmSO;AACG,qCApSV,6BAoSU;AACL,gCArSL,6BAqSK;AACC,iCArSP,4BAqSO;AACI,qCAjGL,kCAiGK;AACF,mC1D9LX,4C0D8LW;AACA,mC1D3LP,gD0D2LO;AACF,iC1DhMT,4C0DgMS;AAzER;AA4EG;;;;AAEL;;AAEE;;;AAEV;AACA;AACA;AAJU;;;;;AAsrEoB;AAEhC,UAAI,cAAU,KAAG,KAAjB;AAEE,yBAAa;AACb;OAHF;AAFgC;AASJ;AAE5B,UAAI,UAAM,KAAG,KAAb;AAEE,qBAAS;AACT;OAHF;AAF4B;AAxBK;AAAb;AAEpB,eAAU,QAAQ,cAAc,CAAC,KAAD;AAChC,0BAAgB,QAAQ,cAAc,CAAC,QAAD;AACtC,YAAM,YAAY,CAAC,iBAAD;AAClB,uBAAY,aAAa,CAAC,cAAc,GAAf;AALL;AAAa;AAiCC;AAElC;AAAG;AAEH;AAEK;AACL,UADK,IACL;AAAQ,aAAM;AACd,gBAFK,IAEL,6BAAQ,KAAM,MAAd;AAGA,UAAY,uBAAD,QAAX;AAEE,YAAG,cAAS,KAAG,EAAf;AAEE,2BAAY,aAAa,CAAC,MAAM,iDAAgF,GAA7B,cAAF,GAAa,iBAAF,GAAsB,EAAzF;AACV,2BAAa,MAAM,YAAY,CAAC,SAAS,GAAV;;AAK5C,gBAAO,uMAIuM,GAHvM,uMADuM,GAEvM,uMADuM,GAEvM,uMADuM,GAEvM,uMADuM,GAEvM,uLADuM;AAG9M,8BAAe,CAAC,gBAAW,oBAAW,KAAM,KAAM,GAAnC;;OAjBrB;AAXkC;AAzBG;AAErC;AACA,oBAAS,GAAT;AACA,qBAAU,GAAV;AAJqC;AA/qEzB;;;AAaO;AACJ,4BAhBL,yBAgBK;AAdH;AAiBG;;;;AAEH;;;AAEV;AACA;AACA;AAJU;AAu6DgB;AAE5B,mBAAS;AACT,0BAAgB;AAChB;AAJ4B;AAOQ;AAEpC,2BAAiB;AACjB;AAHoC;AAnBH;AAAb;AAEpB,eAAU,QAAQ,cAAc,CAAC,MAAD;AAFZ;AAAa;AA0BC;AAElC;AAAO;AACP;AAEA;AAEA,UAAW,CAAC,uBAAD,SAAgB,IAAI,CAAI,iBAAnC;AAEE,iBAAU;AAEV,iBAAU,QAAQ,eAAe,CAAC,qBAAD;AAEjC,YAAG,CAAY,CAAC,MAAD,SAAf;AAEE,mBAAU,QAAQ,cAAc,CAAC,QAAD;AAChC,gBAAM,cAAC,KAAS,qBAAV;AAEZ;AAEM,gBAAM,cAAC,OAAW,iBAAZ;AACN,gBAAM,cAAC,UAAc,OAAf;AACN,gBAAM,cAAC,MAAU,MAAX;AACN,kBAAQ,KAAK,YAAY,CAAC,MAAD;SAV3B;OANF;AAoBA,UAAW,CAAC,uBAAD,SAAmC,IAAf,CAAI,iBAAR,IAAuB,CAAI,iBAAtD;AAEE,YAAS,CAAL,UAAK,KAAG,EAAH,CAAO,IAAI,CAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAArC;AAEE,mBAAU,wDAAqH,GAA1D,UAAF,GAAQ,qCAAD,GAAwC,kBAAF,GAAiB,MAAF;AAE/H,8BAAe,0CAAf;AACA,iCAAa,UAAb,GAA2B;AAEjC;AACA;AAEM,8BAAgB;;AAIhB,gBAAO,0LAM0L,GAL1L,0LAD0L,GAE1L,0LAD0L,GAE1L,0LAD0L,GAE1L,0LAD0L,GAE1L,0LAD0L,GAE1L,0LAD0L,GAE1L,gGAD0L;AAGjM,8BAAe,CAAC,gBAAW,oBAAW,KAAM,KAAM,GAAnC;;OAzBnB;AA6BA,UAAY,uBAAD,QAAX,EACE,uBAAa,MAAM,YAAY,CAAC,aAAa,MAAd,CADjC;AAxDkC;AArBG;AAErC;AACA,oBAAS,GAAT;AACA,qBAAU,GAAV;AAJqC;AAh6DzB;;;AAaK,8B1D/LV,wC0D+LU;AACF;AACQ;AACL;AAhBN;AAmBG;;;;AAEP;;;AAEN;AACA;AAHM;;;;;AAuuEgB;AAExB,gBAAK,OAAO,CAAC,KAAD;AAFY;AAKU;AAElC;AACA,UAAY,uBAAD,QAAX;AAEE,YAAa,CAAT,aAAS,KAAG,EAAH,CAAO,IAAe,CAAX,UAAK,WAAC,EAAK,KAAG,EAAH,CAAnC,EACE,uBAAa,UAAb,GAA2B,UAAK,WAAC,EADnC;AAEA,wBAAY,UAAK,WAAC;;AAIlB,YAAG,CAAI,kBAAS,IAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAAjC,EACE,oBAAe,CAAC,gBAAW,oBAAW,KAAM,K1Dt0DkF,E0Ds0D/G,CADjB;;AAXgC;AAVN;AAE5B;AAF4B;AA9BC;AAAb;AAEhB,eAAU,QAAQ,cAAc,CAAC,KAAD;AAFhB;AAAa;AAKI;AAEjC,mBAAS,uBAAW,QAAC;AACrB,gBAAK,qBAAC,CAAqB,IAArB;AACC,aAAN,WAAS,uBAAH,CAAe,UAAtB,GAAmC;AAEnC;AAEA,2BAA6B,aAAb,mBAAe,cAAC,2DAAD,CAAF;AAC7B,2BAAgB,KAAhB;AACA,sBAAW,KAAX;AAEA,UAAI,2CAAY,IAAG,oBAAnB;AAEE,sBAAS,GAAT;AACA,uBAAU,GAAV;OAHF;AAZiC;AAmBR;AAEnB,eAAN,KAAM;AACN;AAHyB;AA5tEjB;;;AAaQ,6B1DlUV,uC0DkUU;AACW;AACT,+B1D5TV,yC0D4TU,yB1DmTkD,uBAAC,0CAAQ,wCAAT,C0DnTlD;AACD,8B1DvNV,wC0DuNU;AACI;AACF,gC1D3UV,0C0D2UU;AACQ,wC1D5TV,kD0D4TU;AACL,mC1D3TV,6C0D2TU;AACF,iC1D7TV,2C0D6TU;AACM,uC1D5TV,iD0D4TU;AACF;AACF,mC1D1UZ,2C0D0UY;AACP,4B9D9NP,8B8D8NO;AACA;AACG;AACK;AACF,kC1D/UX,2C0D+UW;AACH,+B1D9QN,6C0D8QM;AACG,kC1D/QT,6C0D+QS;AACC,mC1D/QX,4C0D+QW;AACF,iC1DhRT,4C0DgRS;AACE,mC1D7QP,gD0D6QO;AACC,oC1DnRX,6C0DmRW;AACA,oC1DpRX,6C0DoRW;AACA,oC1D7QZ,4C0D6QY;AACF,kC1D9QV,4C0D8QU;AACC,mC1D/QX,4C0D+QW;AACE,qC1DhRb,4C0DgRa;AACH,kC1D7QP,+C0D6QO;AACA,kC1D/QP,+C0D+QO;AACD,iC1D7QP,8C0D6QO;AACE,mC1D/QP,gD0D+QO;AA5Cd;AA+CG;;;;AAEF;;;AAEP;AACA;AAHO;;;;;AA+uEgB;AAEzB,gBAAK,OAAO,CAAC,KAAD;AAFa;AAKU;AAEnC;AAEA,UAAY,uBAAD,QAAX;AAEE,YAAa,CAAT,aAAS,KAAG,EAAH,CAAO,IAAe,CAAX,UAAK,WAAC,EAAK,KAAG,EAAH,CAAnC,EACE,uBAAa,UAAb,GAA2B,UAAK,WAAC,EADnC;AAEA,wBAAY,UAAK,WAAC;;AAIlB,YAAG,CAAI,kBAAS,IAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAAjC,EACE,oBAAe,CAAC,gBAAW,oBAAW,KAAM,K1Dh4DkF,E0Dg4D/G,CADjB;;AAZiC;AAVN;AAE7B;AAF6B;AA7BC;AAAb;AAEjB,eAAU,QAAQ,cAAc,CAAC,MAAD;AAFf;AAAa;AAKI;AAElC,mBAAS,uBAAW,QAAC;AACd,aAAN,WAAS,uBAAH,CAAe,UAAtB,GAAmC;AAEnC;AAEA,2BAA6B,aAAb,mBAAe,cAAC,2DAAD,CAAF;AAC7B,sBAAW,KAAX;AACA,2BAAgB,KAAhB;AAEA,UAAI,2CAAY,IAAG,oBAAnB;AAEE,sBAAS,GAAT;AACA,uBAAU,GAAV;OAHF;AAXkC;AAkBR;AAEpB,eAAN,KAAM;AACN;AAH0B;AApuEjB;;;AAaO,6B1DnXV,uC0DmXU;AACW;AACT,+B1D7WV,yC0D6WU,yB1DkQkD,uBAAC,0CAAQ,wCAAT,C0DlQlD;AACD,8B1DxQV,wC0DwQU;AACI;AACF,gC1D5XV,0C0D4XU;AACQ,wC1D7WV,kD0D6WU;AACL,mC1D5WV,6C0D4WU;AACF,iC1D9WV,2C0D8WU;AACM,uC1D7WV,iD0D6WU;AACF;AACF,mC1D3XZ,2C0D2XY;AACP,4B9D/QP,8B8D+QO;AACA;AACG;AACK;AACF,kC1DhYX,2C0DgYW;AACH,+B1D/TN,6C0D+TM;AACG,kC1DhUT,6C0DgUS;AACC,mC1DhUX,4C0DgUW;AACF,iC1DjUT,4C0DiUS;AACE,mC1D9TP,gD0D8TO;AACC,oC1DpUX,6C0DoUW;AACA,oC1DrUX,6C0DqUW;AACA,oC1D9TZ,4C0D8TY;AACF,kC1D/TV,4C0D+TU;AACC,mC1DhUX,4C0DgUW;AACE,qC1DjUb,4C0DiUa;AACH,kC1D9TP,+C0D8TO;AACA,kC1DhUP,+C0DgUO;AACD,iC1D9TP,8C0D8TO;AACE,mC1DhUP,gD0DgUO;AA5Cb;AA+CG;;;;AAED;;;AAET;AACA;AAHS;AAovEgB;AAE3B,mBAAS;AACT;AAH2B;AAME;AAE7B,qBAAW;AACX;AAH6B;AAZC;AAEV,iEAAC,KAAD;AACpB;AAH8B;AAbE;AAAb;AAEnB,UAAY,aAAD,QAAX;AAEE,aAAK,eAAe;AACpB;AACA,iBAAU;AACV,qBAAO,CAAC,IAAD;OAGP,eAAU;AAVO;AAAa;AAXA;AAAb;AAEnB,eAAU,QAAQ,cAAc,CAAC,GAAD;AAFb;AAAa;AA0CK;AAErC;AAEA,UAAY,uBAAD,QAAX;AAEE,YAAG,aAAQ,KAAG,EAAd,EACC,uBAAa,UAAb,GAA2B,aAD5B;AAEA,+BAAa,aAAa,CAAC,OAAQ,UAAT;AAC1B,+BAAa,aAAa,CAAC,SAAU,YAAX;OAL5B;AAJqC;AArCD;AAEpC;AACA,sBAAW,eAAX;AAHoC;AA3tEzB;;;AAcK,6B1DraV,uC0DqaU;AACW;AACT,+B1D/ZV,yC0D+ZU,yB1DgNkD,uBAAC,0CAAQ,wCAAT,C0DhNlD;AACA;AACD,8B1D3TV,wC0D2TU;AACI;AACM,wC1D/ZV,kD0D+ZU;AACL,mC1D9ZV,6C0D8ZU;AACF,iC1DhaV,2C0DgaU;AACM,uC1D/ZV,iD0D+ZU;AACF;AACF,mC1D7aZ,2C0D6aY;AACP;AACE;AACF;AACG;AACK;AACF,kC1DnbX,2C0DmbW;AACH,+B1DlXN,6C0DkXM;AACG,kC1DnXT,6C0DmXS;AACC,mC1DnXX,4C0DmXW;AACF,iC1DpXT,4C0DoXS;AACE,mC1DjXP,gD0DiXO;AACC,oC1DvXX,6C0DuXW;AACA,oC1DxXX,6C0DwXW;AAtCZ;AAyCG;;;;AAEI,yEAAmB,UvE1c9B,2BuE0c8B,EAAkB,uBAArC;AAEL;;;AAEX;AACA;AAHW;;;;;AAkuEqB;AAElC,UAAY,iBAAD,QAAX,EACE,iBAAW,CAAC,KAAM,OAAP,CADb;AAFkC;AAOJ;AAE9B;AACA;AAEA,UAAK;AACL,YAAQ;AAEV;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAfgC;AAzuEjB;;AASC;AACQ,mCAZJ,iCAYI;AAVT;AAaG;;;AAGA,2CjEoiEL,oCiEpiEK;AAEV;;;AAEJ;AACA;AACA;AAJI;AA8gFa;AAAL;AAEd;AAEA,YAAO;AAET;AACA;AACA;AACA;AACA;AACA;AACA;AAEE,eAAU;AAdI;AAAK;AAsBA;AAAL;AAEd;AAEA,YAAO;AAGT;AACA;AACA;AACA;AACA;AACA;AACA;AAEE,eAAU;AAfI;AAAK;AAzCQ;AAAb;AAEd;AAEA,YAAO;AAET;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEE,eAAU;AAhBI;AAAa;AAoCN;AAAP;AAEd,eAAU,UAAK,CAAC,YAAQ,WAAO,SAAhB;AAFD;AAAO;AA/hFf;;AAWU;AACD;AACD;AAbR;AAgBG;;;AAEc;;AAEA,8EAAmB,UvElfnC,2BuEkfmC,EAAkB,sBAArC;AACK,mFAAmB,UvEnfxC,2BuEmfwC,EAAiB,UAHzC,qCAGyC,CAApC;AAEV;;;AAEhB;AACA;AACA;AACA;AAEA;AAPgB;;;;;;;AAkiFgC;AAAxB;AAE1B;AACA;AAEA,UAAK;AAEP;AACA;AACA;AAGE,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,CAAP,CADjB;AAZ0B;AAAwB;AAgBjB;AAAP;AAG5B;AAH4B;AAAO;AAOD;;AAEhC;AACA;AAEoB;AAElB,YAAY,cAAD,QAAX,EACE,cAAO,CAAC,MAAM,qCAAP,CADT;AAFkB;AAMC;AAEnB,YAAY,cAAD,QAAX,EACE,cAAO,CAAC,MAAM,2CAAP,CADT;AAFmB;AAME;AAErB,yBAAY;AACZ,YAAY,oBAAD,QAAX,EACE,oBAAa,CAAC,KAAD,CADf;AAHqB;AAQvB,WAAM;AAEN,6BAAoB;AAEpB,YAAO;AAEP,UAAI,EAAG,IAAG,cAAC,8CAAM,+CAAP,CAAV;AAGF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;;AAMA;AACA;;AApDkC;AAzjFd;;AAcQ,uCAjBH,sCAiBG;AACF,qC1DvbZ,6C0DubY;AACN,+BAlBU,2CAkBV;AAhBA;AAmBG;;;AAEL;;;AAEd;AACA;AACA;AACA;AACA;AACA;AAPc;;;;;;AA4rFkB;AAElC,UAAU,CAAN,KAAM,IAAG,CAAH,CAAM,IAAW,CAAN,KAAM,IAAG,CAAH,CAA3B,EACE,eAAW,KADb;AAFkC;AAjBD;AAEjC,UAAU,CAAN,KAAM,IAAE,CAAF,CAAK,IAAW,CAAN,KAAM,IAAG,EAAH,CAA1B,EACE,cAAU,KADZ;AAFiC;AAMD;AAEhC,UAAU,CAAN,KAAM,IAAG,CAAH,CAAM,IAAW,CAAN,KAAM,IAAG,CAAH,CAA3B,EACC,aAAS,KADV;AAFgC;AAMC;AAEjC,oBAAU;AAFuB;AA/EA;AAEjC;AACA,qBAAW;AACX,mBAAS;AACT,oBAAU;AACV,qBAAW,uBAAW,QAAC;AAEvB,UAAG,gBAAH,EACE,gBADF;AARsD;AAArB;AAYA;AAEzB,eAAR,KAAQ;AACR;AAHiC;AA8EH;AAE9B;AAAE;AAAE;AACJ;AAEA,UAAK;AACL,UAAK;AACL,UAAK;AACL,eAAU;AAEZ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA5BgC;AAjGC;AAGjC;AAHiC;AA2BE;;AAAT;AAExB;AAEqB;AAEnB,YAAY,oBAAD,QAAX,EACE,oBAAa,CAAC,KAAD,CADf;AAFmB;AAOrB,WAAM;AAEN,UAAI,CAAC,GAAC,CAAN,EACE,aADF;AAIF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAhC0B;AAAS;AAoCC;AAAV;AAExB;AAGF;AAGE,eAAU;AARc;AAAU;AAkED;AAAT;AAExB;AAEA,YAAO;AAET;AAEE,eAAU;AARc;AAAS;AAluFjB;;AAaI,+BAAO,U9DtFjB,+B8DsFiB,CAAP;AASJ;AACD;AACC;AACC;AACO,qC1DvdZ,6C0DudY;AA1BR;AA6BG;;;AAER;;;AAET;AACA;AACA;AAJS;;;;;AAutFqB;AAAb;AAEnB;AAAG;AACH;AAEA,oBAAe;AACf,WAAqB,QAAQ,cAAc,CAAC,KAAD;AAC3C,cAAwB,QAAQ,cAAc,CAAC,KAAD;AAC9C,QAAE,YAAY,CAAC,KAAD;AAEd,eAAU;AACV,kBAAQ;AAER,UAAI,2CAAY,IAAG,oBAAnB,EACE,aADF;AAGA,0BAAe,CACb,6BAGiC,GAHH,2BAAD,GAC7B,2BADkC,GACN,2BAAD,GAC3B,8BADgC,GACD,2BAAD,GAC9B,4BADmC,GACN,2BAAD,GAC5B,8CALa;AAQf,iCAAsB,CACtB,uCA6Ce,GA7C2B,2BAAF,GACxC,gDAD+C,GACI,2BAAF,GACjD,IADwD,GACnD,2BAAD,GACJ,4BADS,GACsB,2BAAF,GAC7B,8BADoC,GACH,2BAAF,GAC/B,gCADsC,GACH,2BAAF,GACjC,+BADwC,GACN,2BAAF,GAChC,gCADuC,GACJ,2BAAF,GACjC,+BADwC,GACN,2BAAF,GAChC,GADuC,GACjC,2BAAF,GACJ,+EADW,GACuE,2BAAF,GAChF,4BADuF,GACxD,2BAAF,GAC7B,8BADoC,GACH,2BAAF,GAC/B,6BADsC,GACN,2BAAF,GAC9B,8BADqC,GACJ,2BAAF,GAC/B,6BADsC,GACN,2BAAF,GAC9B,EADqC,GAChC,2BAAF,GACH,qCADU,GAC8B,2BAAF,GACtC,gDAD6C,GACM,2BAAF,GACjD,kDADwD,GACH,2BAAF,GACnD,4DAD0D,GACK,2BAAF,GAC7D,wCADoE,GACzB,2BAAF,GACzC,EADgD,GAC3C,2BAAF,GACH,+BADU,GACwB,2BAAF,GAChC,6DADuC,GACyB,2BAAF,GAC9D,0IADqE,GACwE,2BAAF,GAC3I,sDADkJ,GACzF,2BAAF,GACvD,2CAD8D,GAChB,2BAAF,GAC5C,8GADmD,GAC8D,2BAAF,GAC/G,mBADsH,GAChG,2BAAF,GACpB,sBAD2B,GACF,2BAAF,GACvB,sDAD8B,GAC2B,2BAAF,GACvD,eAD8D,GAC5C,2BAAF,GAChB,EADuB,GAClB,2BAAF,GACH,gEADU,GACyD,2BAAF,GACjE,YADwE,GACzD,2BAAF,GACb,OADoB,GACV,2BAAF,GACR,EADe,GACV,2BAAF,GACH,yCADU,GACkC,2BAAF,GAC1C,8CADiD,GACA,2BAAF,GAC/C,6BADsD,GACtB,2BAAF,GAC9B,kFADqC,GAC8C,2BAAF,GACjF,uGADwF,GACkB,2BAAF,GACxG,kCAD+G,GAC1E,2BAAF,GACnC,iBAD0C,GACtB,2BAAF,GAClB,OADyB,GACf,2BAAF,GACR,GA/CsB;AAmDxB;AAGE,mBAAS;AA9EU;AAAa;AAoGC;AAEjC;AACA,UAAY,uBAAD,QAAX,EACE,uBAAa,MAAM,YAAY,CAAC,WAAW,MAAZ,CADjC;AAHiC;AAlBG;AAEpC;AACA,yBAAe;AAHqB;AAMR;AAE5B,UAAG,UAAH;AAGF;OAHE;AAOA;AAT4B;AA9FH;AAEzB,eAAI,UAAJ,GAAkB;AAFO;AAjtFd;;;AAaU;AAbV;AAgBG;;;;AA0xGS;AAAhB;AAEP,aAAU;AAEZ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAxBS;AAAgB;AAl8HzB,mBA4qBc;AAMG,4BAAG;AACJ,2BAAG;AAPL;AA5qBd,GA4qBc,mCA5qBd;ACAA,6BAES,UAFT;;;;ACAA,0BAIS,oFAJT;;;;AAUuB;;AAAT,kCAAS,sCAAT;AAED;AACF;AAEM;;;AAEb;AACA;AACA;AACA;AACA;AACA;AACA;AARa;;;;;AAqmBmB;AAAX;AAEvB,eAAU,qBAAgB,CAAW,cAAX;AAFH;AAAW;AAyVC;AAEnC,uBAAa,kBAAa,CAAC,MAAO,IAAR;AAChB,mBAAQ,cAAR;AAHyB;AAvnBC;AAAb;AAGvB,UAAG,CAAI,MAAP;AACE,iBAAU,sBAAgB,CAAC,eAAU,MAAO,GAAlB;AAE1B,qBAAU,sBAAgB,CAAC,eAAU,MAAO,eAAlB;AANL;AAAa;AAshBG;AAAhB;AAEvB;AACA;AACA;AAAQ;AACR;AACA;AAEA,eAAU;AACV,eAAU;AACV,eAAkB,QAAW,OAAC,cAAD,yBAA7B;AAAI;AAEF,gBAAS,qBAAe,CAAC,eAAU,UAAX;AAExB,YAAG,KAAM,IAAG,cAAC,8BAAW,iCAAZ,CAAZ,EACE,SAAU,eAAI,CAAC,OAAQ,EAAG,MAAO,GAAE,CAArB,CAAwB,GACpC,eAAI,CAAC,OAAQ,MAAO,GAAE,CAAF,CAAY,MAAD,OAAS,GAAE,MAAtC,CAFR;AAGA,YAAG,KAAM,IAAG,cAAC,2BAAQ,6BAAT,CAAZ,EAAyC,MAAJ,IAAG,CAAxC;;AAGF,YAA0B,WAAnB,yBAAmB,CAAC,eAAU,CAAX;AAC1B,UAAG,sCAAa,IAAG,GAAnB;AAEE,iBAAU;AACV,iBAAS,SAAW,QAAC,MAAD,4BAApB;AAAI;AAEF,cAAG,MAAM,QAAC,KAAD,CAAI,KAAE,eAAf;AACM,kBAAJ,IAAG;AAEH;;AAEJ,YAAG,MAAO,KAAG,CAAb,EACE,SAAU,eAAI,CAAC,OAAQ,OAAuB,CAAR,MAAD,OAAS,GAAE,MAAF,CAAS,GAAE,CAA3C,CADhB;;AAIA,iBAAiB,MAAD;AAChB,iBAAS,SAAK,mCAAd;AAAI;AAEF,cAAG,MAAM,QAAY,CAAJ,CAAP,MAAO,GAAE,CAAF,CAAI,GAAE,CAAF,KAAZ,CAAiB,KAAE,eAA5B;AACY,kBAAD,oBAAC,OAAe,MAAD,OAAS,GAAE,CAA1B;AACN;;;AAGT,UAAG,eAAW,KAAG,GAAjB;AAEE,iBAAiB,MAAD;AAChB,iBAAS,SAAK,mCAAd;AAAI;AAEF,cAAG,MAAM,QAAC,KAAD,CAAI,KAAE,eAAf,EACE,MAAM,iBAAN,OAAO,MAAM,GAAP,CADR;AAEA,cAAG,CAAE,GAAE,MAAP,EAAmB,KAAnB;;OAPJ;AA3CuB;AAAgB;AA7gBN;AAEjC;AAAW;AAEX,UAAI,gCAAO,IAAG,KAAd,EAA0B,MAA1B;AACA,iBAAM,CAAC;;;;WAAW;;;;UAAZ;AACN,UAAI,iCAAQ,IAAG,KAAf;AAEE,YAAI,QAAS,KAAE,EAAf;AAEM,wBAAJ,IAAG;AACH,cAAI,QAAS,KAAY,CAAV,SAAU,GAAE,CAAF,CAAzB;AAEE,uBAAM,CAAC,UAAW,QAAZ;AACF,0BAAJ,IAAG;WAHL;AAKA,cAAG,cAAU,GAAE,cAAf,EAA8B,iBAAa,cAA3C;;AAII,wBAAJ,IAAG;AACH,cAAa,CAAT,QAAS,KAAY,CAAV,SAAU,GAAE,CAAF,CAAZ,CAAiB,IACjB,CAAV,cAAU,GAAE,SAAF,CADb;AAGE,uBAAM,CAAC,SAAU,GAAE,CAAF,CAAK,SAAU,GAAE,CAA5B;AACF,0BAAJ,IAAG;WAJL;AAMA,cAAG,cAAU,GAAE,CAAf,EAAsB,iBAAa,CAAnC;;;AAKF,YAAa,CAAT,QAAS,GAAE,SAAF,CAAa,GAAE,CAA5B;AAEE,cAAG,QAAS,KAAE,cAAd,EACM,cAAJ,IAAG,CADL;AAEA,wBAAS,CAAC,cAAD;SAEN,UAAI,QAAS,KAAE,EAAf;AACH,wBAAS,CAAC,SAAD;;AAGT,cAAG,QAAS,KAAE,SAAd;AACE,0BAAS,CAAC,SAAD;AAET,gBAAA,cAAS,CAAC,UAAW,CAAZ;;;AA7CkB;AAkHA;AAEjC;AAEA,UAAI,SAAU,GAAS,cAAD,OAAtB;AAEE,gBAAS,SAAU,GAAE,IAAF;AACnB,gBAAS,oBAAe,CAAC,KAAD;AACxB,YAAG,mBAAa,CAAC,eAAU,KAAX,CAAhB,EACE,QAAS,SADX;AAEA,sBAAS,CAAC,KAAD;OANX;AAJiC;AAhBD;AAAT;AAEvB;AAEA,eAAU;AAEV,UAAG,SAAU,GAAE,CAAf;AAEE,gBAAS;AACL,aAAJ,IAAG;AACH,gBAAS,qBAAgB,CAAC,KAAD;AACzB,sBAAS,CAAC,KAAD;AACT,iBAAU;OANZ;AANuB;AAAS;AA8BE;AAElC;AAAW;AACX;AAAK;AAEL,iBAAM,CAAC;;;;WAAW;;;;UAAZ;AAEN,UAAa,CAAT,QAAS,GAAE,SAAF,CAAa,GAAE,CAA5B,EAAmC,MAAnC;AAEA,YAAO;AACP,aAAQ;AAER,0BAAe,CAAC;;;;WAAK,UAAW,QAAS,GAAE,SAA5B;AAEf,YAAO,eAAI,CAAC,IAAK,SAAU,GAAE,CAAF,CAAK,QAAS,GAAE,SAAhC;AAEX,YAAO,eAAI,CAAC,KAAM,EAAG,SAAV,CAA2B,GAAJ,GAAF,GAAQ,eAAI,CAAC,KAAM,QAAS,GAAE,CAAF,CAAY,IAAD,OAA3B,CAAN;AAEtC,mBAAQ,GAAR;AAEA,oBAAS,CAAC,SAAD;AACT;AArBkC;AAwBI;AAAf;AAGvB;AACA;AAAW;AAAY;AACvB;AAEA,eAAU;AACV,UAAG,GAAI,KAAE,CAAT,EAAgB,aAAhB;AAEA,kBAAa,MAAO,GAAE,CAAF;AACpB,eAAU,SAAU,GAAE,GAAF;AACpB,aAAQ,wBAAkB,CAAC,eAAU,MAAX;AAC1B,UAAG,IAAK,GAAE,CAAV,EAAkB,aAAlB;AACA,eAAkB,WAAc,OAAC,cAAD,yBAAhC;AAAI;AAEF,gBAAS,qBAAe,CAAC,eAAU,UAAX;AACxB,YAAG,KAAM,IAAG,cAAC,8BAAW,iCAAZ,CAAZ;AACM,mBAAJ,IAAG;AACA,kBAAG,KAAM,IAAG,cAAC,2BAAQ,6BAAT,CAAZ;AAEH,oBAAK,cAAL,YAAM,cAAc,eAAf,CAAL;AACI,mBAAJ,IAAG;SAHA;AAKL,YAAG,SAAU,IAAG,MAAhB,EAA4B,KAA5B;;AAxBqB;AAAe;AAwLH;AAEnC;AAAW;AAEX,iBAAM,CAAC;;;;WAAW;;;;UAAZ;AACN,UAAI,QAAS,KAAE,EAAf;AAEE,YAAI,iCAAQ,IAAG,KAAf;AAEE,cAAc,CAAV,SAAU,KAAG,cAAH,CAAc,IAAc,CAAT,QAAS,KAAc,CAAV,SAAU,GAAE,CAAF,CAAd,CAA1C,EACE,WAAY,SAAU,GAAE,CAD1B;AAEA,qBAAM,CAAC,EAAG,QAAJ;AACN;SAGA,MAAA,cAAS,CAAC,CAAD;AACX,yBAAa;;AAIb,YAAI,iCAAQ,IAAG,KAAf;AAEE,cAAa,CAAT,QAAS,KAAG,cAAH,CAAc,IAAc,CAAT,QAAS,KAAc,CAAV,SAAU,GAAE,CAAF,CAAd,CAAzC,EACE,YAAa,QAAS,GAAE,CAD1B;AAEA,qBAAM,CAAC,UAAW,cAAZ;AACN;SAGA,MAAA,cAAS,CAAC,cAAU,GAAE,CAAb;AACX,yBAAa;;AA7BoB;AA7RJ;AAAR;AAEvB;AAAW;AACX;AAEA,eAAU;AAEV,iBAAM,CAAC;;;;WAAW;;;;UAAZ;AAEN,UAAa,CAAT,QAAS,GAAE,SAAF,CAAa,GAAE,CAA5B;AAEE,uBAAU,CAAC,EAAD;AACV,oBAAa,oBAAe,CAAC,SAAD;AAC5B,sBAAS,CAAC,SAAD;OAJX;AAOA,eAAU,cAAS,CAAC,SAAU,SAAX;AAEnB,UAAG,MAAH;AAEE,cAAO;AAEP,qBAAQ,eAAI,CAAC,eAAM,EAAG,SAAV,CAA2B,GAAJ,GAAF,GAAQ,eAAI,CAAC,eAAM,QAAS,GAAE,CAAF,CAAY,cAAD,OAA3B,CAA7C;AAEA,sBAAS,CAAC,UAAW,CAAZ;OANX;AAlBuB;AAAQ;AAyUC;AAAT;AAEvB;AACA;AACA;AAEA,eAAU;AAEV,UAAG,cAAS,KAAG,EAAf;AAEE,iBAAU;AACV,YAAG,MAAO,GAAE,cAAZ;AAEE,uBAAc,wBAAkB,CAAC,eAAU,MAAX;AAChC,cAAG,UAAW,IAAG,CAAjB;AAEE,oBAAS,qBAAe,CAAC,eAAU,UAAX;AACxB,qBAAU;AACV,qBAAU,gBAAW,CAAC,QAAS,UAAV;AACrB,gBAAG,CAAI,MAAO,IAAW,CAAN,KAAM,IAAG,cAAC,2BAAQ,6BAAT,CAAH,CAAzB;AAEE,2BAAc,oBAAgB,CAAC,WAAY,MAAb;AAC9B,kBAAG,UAAW,GAAE,CAAhB;AAEE,6BAAc,wBAAkB,CAAC,eAAU,UAAX;AAChC,8BAAU,CAAC,UAAD;AACV;eAJF;aAHF;WALF;SAHF;OAHF;AAwBA,UAAG,CAAI,MAA4B,IAAR,CAAR,aAAQ,KAAG,IAAH,CAAb,IAAkC,CAAR,aAAQ,KAAG,MAAH,CAAhD;AAEE,0CAAW,CAAC,CAAD;OAGX;AArCqB;AAAS;AAjME;AAAX;AAGvB;AACA;AACA;AAGA,eAAU;AACV,cAAS,qBAAe,CAAC,eAAU,UAAX;AACxB,UAAG,KAAM,IAAG,cAAC,8BAAW,iCAAZ,CAAZ;AACE,oBAAW,2BAAqB,CAAC,cAAQ,QAAC,cAAD,CAAT,CAAhC;;AAGA,gBAA4B,WAAnB,yBAAmB,CAAC,eAAU,UAAX;AACf,mBAAR,cAAQ,QAAC,cAAD;AACX,aADW,IACX,4BAAc,CADH,IACG,2BAAd;AAEI,cAAG,CAAsB,CAAR,CAAR,aAAQ,IAAG,GAAH,CAAQ,IAAa,CAAR,aAAQ,IAAG,GAAH,CAAb,CAAzB,EACE,SAAU,KADZ;SAGJ,UANW,IAMX;AAEI,cAAG,CACsC,CADf,CAAR,CAAR,aAAQ,IAAG,GAAH,CAAQ,IAAa,CAAR,aAAQ,IAAG,GAAH,CAAb,CACe,IAAzB,CAAR,aAAQ,KAAE,GAAF,CADgC,IACd,CAAR,aAAQ,KAAE,GAAF,CAAX,IAA6B,CAAR,aAAQ,KAAE,GAAF,CAAX,CADzC,EAEE,SAAU,KAFZ;SAIJ,WAZW,IAYX,0BAAY,CAZD,IAYC,yBAAZ;AAEI,cAAG,iBAAW,CAAC,aAAD,CAAd;AAEE,kBAAO;AACP,eAAG,iBAAH,IAAI,EAAM,aAAP;AACH,gBAAI,qCAAY,IAAG,KAAnB;AACE,oBAAO,sBAAS,CAAC,GAAD;AACb,sBAAG,qCAAY,IAAG,KAAlB,EACH,MAAO,sBAAS,CAAC,GAAD,CADb;AAEL,wBAAW,GAAG,QAAC,CAAD,CAAd;WARF;SAWJ,WAzBW,IAyBX,0BAAY,CAzBD,IAyBC,yBAAZ,IAA2B,CAzBhB,IAyBgB,yBAA3B,IAA0C,CAzB/B,IAyB+B,4BAA1C;AAEI,gBAAO;AACP,aAAG,iBAAH,IAAI,EAAM,aAAP;AACH,cAAG,CAAI,iBAAW,CAAC,aAAD,CAAlB;AAEE,qBAAU;AACV,gBAA2C,CAAjB,CAArB,cAAQ,QAAC,cAAD,CAAa,KAAE,mBAAF,CAAiB,IACjB,CAArB,cAAQ,QAAC,cAAD,CAAa,KAAE,sBAAF,CADiB,CACI,IAC1C,wBAAkB,CAAC,aAAD,CAFvB,EAGE,SAAU,IAHZ;WAKG,UAAG,qCAAY,IAAG,KAAlB;AACH,kBAAO,sBAAS,CAAC,GAAD;AACb,oBAAG,qCAAY,IAAG,KAAlB,EACH,MAAO,sBAAS,CAAC,GAAD,CADb;AAEL,sBAAW,GAAG,QAAC,CAAD,CAAd;SAhBJ;;AAxCmB;AAAW;AAmEI;AAAf;AAGvB;AACA;AAEA,eAAU,CAAC;AACX,aAAM,UAAW,GAAS,cAAD,OAAzB;AAEM,kBAAJ,IAAG;AACH,gBAAS,qBAAe,CAAC,eAAU,UAAX;AACxB,YAAG,KAAM,IAAG,cAAC,8BAAW,iCAAZ,CAAZ;AAEE,oBAAW,cAAQ,QAAC,cAAD;AACnB,cAAG,KAAM,KAAE,iCAAX,EACE,UAAW,2BAAqB,CAAC,OAAD,CADlC;AAEA,cAAG,OAAQ,KAAE,MAAb,EACE,SAAU,UADZ;AAEA;SAPF;;AAXqB;AAAe;AAiVH;AAEnC;AAAU;AAEV,UAAG,KAAM,KAAG,cAAZ;AAEE,YAAgB,CAAZ,2CAAY,IAAG,oBAAH,CAAqC,IAAP,CAAN,KAAM,KAAG,EAAH,CAAX,IACjC,CAAe,CAAV,yCAAU,IAAG,oBAAH,CADjB,EAEE,iBAAY,EAAZ,CAFF;AAIA,YAAG,sBAAH,EAAwB,WAAM,CAAC;;;;aAAU;;;;YAAX,CAA9B;AAEA,yBAAY,CAAC,KAAD;AACJ,uBAAD,kBAAC,gBAAY,gCAAb;AAEP,YAAG,cAAS,KAAG,EAAf,EACU,eAAD,kBAAC,gBAAY,gCAAb,CADT;AAGU,0BAAa,CAAb;AAEV,YAAG,gBAAS,IAAe,CAAV,cAAU,GAAE,CAAF,CAA3B;AAEY,4BAAa,cAAb;SAFZ;AAKA,YAAG,sBAA4B,IAAR,cAAJ,IAChB,CAAiB,CAAZ,2CAAY,IAAG,oBAAH,CADpB,EAEE,cAAS,CAAC,QAAD,CAFX;OArBF;AAJmC;AAvSH;AAAT;AAEvB,eAAU,cAAS,KAAG,EAAH;AAFI;AAAS;AAmCC;AAAV;AAEvB,eAAiB,cAAD;AAFO;AAAU;AAlFG;AAAb;AAEvB,eAAU,CAAI;AAFS;AAAa;AAwQA;AAEpC;AAEA,gBAAW,qBAAgB,CAAC,kBAAD;AAC3B,uBAAa;AACb,uBAAc,wBAAkB,CAAC,eAAiB,OAAD,OAAjB;AAChC,wBAAc,kBAAY,CAAC,OAAD;AAE1B,uBAAY,OAAZ;AAToC;AA7FL;AAEd,wDAAC,IAAK,iBAAN;AAEjB,UAAI,SAAI,IAAG,cAAC,GAAS,GAAU,GAAS,EAA7B,CAAX;AAEE;AACA;OAHF;AAMA,UAAG,gBAAwB,IAAN,CAAJ,SAAI,KAAG,CAAH,CAAT,IAAmB,CAAW,CAAN,+BAAM,IAAG,KAAH,CAA1C;AAEE,YAAG,CAAS,CAAJ,SAAI,IAAG,cAAC,GAAS,GAAU,GAAS,EAA7B,CAAH,CAAZ;AAEE,cAAG,mBAAU,GAAE,CAAf;AAEE,6BAAY,CAAZ;AACA,8BAAa,CAAb;WAHF;SAFF;AASA,YAAQ,CAAJ,SAAI,KAAE,EAAF,CAAW,IAAO,CAAJ,SAAI,KAAE,EAAF,CAA1B;AAEE,wBAAS,CAAC,UAAK,iBAAN;AACT,cAAG,CAAwB,CAAV,CAAR,iCAAQ,IAAG,KAAH,CAAU,IAAW,CAAP,gCAAO,IAAG,KAAH,CAAX,CAA3B,EACE,QAAO,CAAP,CADF;AAEA;SAEG,UAAQ,CAAJ,SAAI,KAAE,EAAF,CAAS,IAAO,CAAJ,SAAI,KAAE,EAAF,CAAxB;AAEH,kBAAO,CAAP;AACA;SAEG,UAAQ,CAAJ,SAAI,KAAE,EAAF,CAAW,IAAO,CAAJ,SAAI,KAAE,EAAF,CAA1B;AAEH,0BAAW,CAAC,UAAK,iBAAN;AACX,kBAAO,CAAP;AACA;SAEG,UAAsB,CAAb,CAAJ,SAAI,KAAE,EAAF,CAAa,IAAI,CAAa,CAAR,iCAAQ,IAAG,KAAH,CAAjB,CAA4B,IAChD,CAAJ,SAAI,KAAE,CAAF,CADF;AAGH,cAAG,oBAAH,EACE,eAAU,CAAC,SAAD,CADZ;AAGA,cAAG,CAAS,CAAJ,SAAI,KAAE,CAAF,CAAZ;AAEE,oBAAO,CAAP;AACA;AACA;WAJF;AAMA;SAZG;AAcL;OA3CF;AAV+B;AAsEF;AAEd,sDAAC,IAAK,iBAAN;AAEf,UAAG,gBAAS,IAAS,CAAJ,SAAI,KAAG,CAAH,CAArB;AAEE,YAAoB,CAAX,CAAJ,SAAI,KAAE,EAAF,CAAW,IAAO,CAAJ,SAAI,KAAE,EAAF,CAAP,CAAoB,IAAY,CAAP,gCAAO,IAAG,KAAH,CAApD,EACE,kBADF;OAFF;AAJ6B;AAbG;AAEd,4DAAC,GAAD;AAElB,UAAG,gBAAyB,IAAP,CAAJ,SAAI,KAAG,MAAH,CAAT,IAAoB,CAAI,sBAAS,CAAC,UAAK,CAAC,OAAI,OAAI,OAAI,IAAb,CAAN,CAA7C;AAEE,qBAAQ,CAAC,GAAD;AACR,gBAAO,MAAP;AACA;AACA;OALF;AAJgC;AA8BD;AAG/B;AAH+B;AA5aI;AAEnC;AAAW;AAEX,UAAG,CAAI,sBAAP,EAA4B,MAA5B;AACA,UAAI,gBAAJ;AAEE,mBAAM,CAAC;;;;aAAW;;;;YAAZ;AACN,YAAG,SAAU,KAAE,QAAf,EACE,cAAS,CAAC,SAAD,CADX;OAHF;AALmC;AAsfN;AAE7B,uBAAY,cAAZ;AAF6B;AAhFC;AAE9B;AAF8B;AAjUC;AAE/B;AACA,uBAAY,CAAZ;AACA,wBAAa,CAAb;AAJ+B;AA8LO;AAEtC,UAAI,QAAS,KAAE,+CAAf;AAEE,iCAAoB,cAApB;AACA,4BAAe,yCAAf;AACA,4BAAe,wCAAf;OAJF;AAFsC;AAtRE;AAExC;AACA,qBAAU,EAAV;AAHwC;AAyOV;AAE9B,oBAAa,kBAAb;AACA,mBAAY,kBAAS,GAAE,mBAAvB;AAH8B;AA+SA;AAE9B,uBAAY,SAAZ;AACA,wBAAa,QAAG,CAAC,EAAE,QAAS,GAAE,SAAd,CAAhB;AAH8B;AA1CG;AAEjC,iBAAM,CAAC,IAAI,GAAI,GAAE,CAAX;AAF2B;AAhTM;AAAhB;AAEvB,eAAU;AACV,UAAG,gBAAH,EACE,SAAU,oBAAe,CAAC,CAAD,CAD3B;AAHuB;AAAgB;AAOD;AAAf;AAEvB,eAAU;AACV,UAAG,gBAAH,EACE,SAAU,qBAAgB,CAAC,MAAO,GAAE,CAAV,CAD5B;AAHuB;AAAe;AAoBA;AAAf;AAEvB,eAAU;AACV,aAAc,CAAP,MAAO,GAAE,cAAF,CAAa,IAAK,mBAAa,CAAC,eAAU,MAAX,CAA7C,EACM,MAAJ,IAAG;AAJkB;AAAe;AAOC;AAAhB;AAEvB,eAAU;AACV,aAAc,CAAP,MAAO,IAAG,CAAH,CAAM,IAAK,mBAAa,CAAC,eAAU,MAAX,CAAtC,EACM,MAAJ,IAAG;AACL,UAAG,MAAO,GAAE,CAAZ,EACE,SAAU,oBAAe,CAAC,MAAD,CAD3B;AALuB;AAAgB;AAfL;AAAX;AAEvB,UAAG,gBAAH;AACE,iBAAU;AAEV,qBAAU;AALW;AAAW;AA7nBnB;;;AAwDN;;;;AAEU,gCA5DV,wBA4DU;AACQ,wC5DyDV,kD4DzDU;AACP,iC5DyDV,2C4DzDU;AACE,mC5DyDV,6C4DzDU;AACI,uC5DyDV,iD4DzDU;AANjB;AASG;;;;AAhFd,mBAkFc;AAMC;;AAGa;;AAAT,yCAAS,2CAAT;AAIL,yBAAG;AACD,2BAAG;AACH,2BAAG;AACL,yBAAG;AAEL,uBAAG;AACA,0BAAG;AACH,0BAAG;AACA,6BAAI;AACV,uBAAG;AACA,0BAAG;AACJ,yBAAG;AACA,4BAAG;AACJ,2BAAG;AACC,+BAAG;AACH,+BAAG;AACT,yBAAG;AACP,qBAAG;AAEO;AAAX;AAEP,eAA0B,CAAR,CAAN,KAAM,IAAG,GAAH,CAAQ,IAAW,CAAN,KAAM,IAAG,GAAH,CAAX,CAAoB,IAC3B,CAAR,CAAN,KAAM,IAAG,GAAH,CAAQ,IAAW,CAAN,KAAM,IAAG,GAAH,CAAX,CAD2B;AAFvC;AAAW;AAMO;AAAlB;AAEP,eAA0B,CAAR,CAAN,KAAM,IAAG,GAAH,CAAQ,IAAW,CAAN,KAAM,IAAG,GAAH,CAAX,CACa,IAApB,CAAR,CAAN,KAAM,IAAG,GAAH,CAAQ,IAAW,CAAN,KAAM,IAAG,GAAH,CAAX,CAD2B,IAE3B,CAAR,CAAN,KAAM,IAAG,GAAH,CAAQ,IAAW,CAAN,KAAM,IAAG,GAAH,CAAX,CADoB;AAHhC;AAAkB;AAOH;AAAf;AAEP;AAEA,eAAU;AACV,iBAAY;AACZ,UAAG,UAAW,IAAU,QAAD,OAAvB,EACE,WAAY,QAAQ,QAAC,cAAD,CADtB;AAEA,UAAG,UAAW,GAAS,QAAD,OAAtB;AACE,iBAAU;AACP,gBAAe,CAAX,UAAW,GAAE,CAAF,CAAmD,IAAhB,CAAzB,QAAQ,QAAC,UAAW,GAAE,CAAF,IAAZ,CAAiB,KAAE,kBAAF,CAA9B,IACrB,CAAsB,CAAL,CAAX,UAAW,GAAE,CAAF,CAAK,IAA8B,CAAzB,QAAQ,QAAC,UAAW,GAAE,CAAF,IAAZ,CAAiB,KAAE,kBAAF,CAA9B,CADrB;AAEH,iBAAU;AACP,gBAAa,CAAT,QAAS,KAAE,kBAAF,CACa,IAAN,CAAV,QAAD,OAAW,IAAG,CAAH,CADS,IAEf,CAAX,UAAW,GAAmB,CAAV,QAAD,OAAW,GAAE,CAAF,CAAnB,CAFd;AAGH,iBAAU;AACP,gBAAqB,CAAV,QAAD,OAAW,IAAG,CAAH,CAEuB,IAD9B,CAAX,UAAW,GAAoB,CAAV,QAAD,OAAW,GAAE,CAAF,CAApB,CADa,IAEC,CAAzB,QAAQ,QAAC,UAAW,GAAE,CAAF,IAAZ,CAAiB,KAAE,kBAAF,CADY,IAEtC,CAAsB,CAAL,CAAX,UAAW,GAAE,CAAF,CAAK,IAA8B,CAAzB,QAAQ,QAAC,UAAW,GAAE,CAAF,IAAZ,CAAiB,KAAE,kBAAF,CAA9B,CAHxB;AAIH,iBAAU;AAEP,gBAAG,qBAAS,IAAG,cAAC,sCAAoB,qCAArB,CAAf;AACH,iBAAU;AAEP,gBAAG,qBAAS,IAAG,cAAC,gCAAc,kCAAgB,kCAC/C,+BADgB,CAAf;AAEH,iBAAU;AAEP,gBAAG,qBAAS,IAAG,cAAC,iCAAe,oCAAkB,iCAClD,kCAAgB,kCADA,CAAf;AAEH,iBAAU;AAEP,gBAAG,qBAAS,IAAG,cAAC,8BAAY,iCAAe,8BAAY,+BAAxC,CAAf,EACH,SAAU,0BADP;AAlCE;AAAe;AAuCI;AAAnB;AAEP;AACA;AAEA,eAAU;AACV,eAAS,QAAsB,OAAV,QAAD,OAAW,GAAE,CAAF,kBAA/B;AAAI;AAEF,mBAAY,QAAQ,QAAE,CAAD,CAAC,GAAC,CAAD,KAAF;AACpB,YAAI,QAAS,KAAE,kBAAf;AACE,mBAAiB,aAAP,OAAS,cAAC,sCAAD,CAAF;AAEnB,kBAAa,CAAT,QAAS,KAAE,oBAAF,CAAkB,IAAO,CAAF,CAAE,GAAY,CAAV,UAAU,GAAC,CAAD,CAAZ,CAAtC;AAEE,mBAAiC,aAAhB,YAAP,OAAS,cAAC,qCAAD,CAAF,EAAkB,cAAC,qCAAD,CAAF;SAGnC,UAAa,CAAT,QAAS,KAAE,oBAAF,CAAkB,IAAO,CAAF,CAAE,GAAY,CAAV,UAAU,GAAC,CAAD,CAAZ,CAAtC;AAEE,mBAAiB,YAAP,OAAS,cAAC,qCAAD,CAAF;AACjB,cAAG,CAAa,CAAL,CAAF,CAAE,GAAE,CAAF,CAAK,IAAiB,CAAZ,QAAQ,QAAC,KAAD,CAAI,KAAE,oBAAF,CAAjB,CAAhB,EACE,SAAiB,aAAP,OAAS,cAAC,qCAAD,CAAF,CADnB;SAHF;;AAOF,UAAG,qBAAe,CAAC,SAAU,UAAX,CAAuB,KAAE,6BAA3C,EACE,SAAiB,aAAP,OAAS,cAAC,uCAAD,CAAF,CADnB;AAxBO;AAAmB;AA4BE;AAArB;AAEP,eAAU;AACL;AACH,UADG,IACH;AAAoB,iBAAe,2BAAc;AACjD,gBAFG,IAEH,+BAAoB,SAAe,2BAAc,cAAjD;AALK;AAAqB;AASH;AAAlB;AAEP;AACA;AAEA,eAAU;AACV,eAAS,QAAK,mCAAd;AAAI;AAEF,gBAAS,qBAAe,CAAC,SAAU,CAAX;AACxB,YAAG,CAAW,CAAN,KAAM,IAAG,cAAC,gCAAa,4BAAS,oCAAvB,CAAH,CAAd,EACE,SAAU,MAAO,GAAE,QAAQ,QAAC,KAAD,CAD7B;;AATK;AAAkB;AAcA;AAAlB;AAEP,eAAiB,wBAAkB,CAAC,SAAU,UAAX,CAAnB;AAFT;AAAkB;AAKA;AAAlB;AAEP;AACA;AACA;AAEA,iBAAY,wBAAkB,CAAC,SAAiB,QAAD,OAAjB;AAC9B,UAAG,MAAO,GAAE,QAAZ;AAEE,iBAAU,CAAC;AACX;OAHF;AAMA,eAAU;AACV,cAAS;AACT,eAAS,QAAW,OAAC,QAAD,yBAApB;AAAI;AAEE,cAAJ,IAAG;AACH,YAAG,CAAiB,CAAZ,+BAAY,KAAE,qBAAe,CAAC,SAAU,CAAX,CAAjB,CAApB;AAEM,eAAJ,IAAG;AACH,cAAG,KAAM,GAAE,CAAX,EACE,aADF;SAHF;;AAlBK;AAAkB;AA2BF;AAAhB;AAEP;AACA;AAAQ;AACR;AACA;AAEA,eAAU;AACV,YAA0B,WAAnB,yBAAmB,CAAC,SAAU,CAAX;AAE1B,UAAG,CAAkB,CAAb,sCAAa,IAAG,GAAH,CAArB;AAIE,iBAAU;AACV,iBAAkB,QAAW,OAAC,QAAD,yBAA7B;AAAI;AAEF,kBAAS,qBAAe,CAAC,SAAU,UAAX;AAExB,cAAG,KAAM,IAAG,cAAC,8BAAW,iCAAZ,CAAZ;AAEE,qBAAU,eAAI,CAAC,OAAQ,EAAG,MAAO,GAAE,CAArB,CACgC,GAA5C,2BAAqB,CAAC,QAAQ,QAAC,cAAD,CAAT,CADe,GAEpC,eAAI,CAAC,OAAS,OAAuB,CAAR,MAAD,OAAS,GAAE,MAAF,CAAS,GAAE,CAA5C,CADwC;AAE1C,kBAAJ,IAAG;WAEA,UAAG,KAAM,IAAG,cAAC,2BAAQ,6BAAT,CAAZ;AAEH,gBAAG,MAAO,GAAS,MAAD,OAAlB,EACE,SAAU,MAAO,GAAE,KADrB;AAEI,kBAAJ,IAAG;WAJA;;;AAYP,iBAAiB,MAAD;AAChB,iBAAS,SAAuB,QAAV,QAAD,OAAW,GAAE,CAAF,qBAAhC;AAAI;AAEF,uBAAqB,QAAD,OAAW,GAAE,CAAF;AAC/B,kBAAS,qBAAe,CAAC,SAAU,UAAX;AAExB,cAAG,KAAM,IAAG,cAAC,8BAAW,iCAAZ,CAAZ;AAEE,qBAAU,eAAI,CAAC,OAAQ,EAAG,MAAZ,CACqC,GAA5C,2BAAqB,CAAC,QAAQ,QAAC,cAAD,CAAT,CADM,GAE3B,eAAI,CAAC,OAAQ,MAAO,GAAE,CAAF,CAAY,MAAD,OAAS,GAAE,MAAtC,CADwC;WAGhD,UAAG,KAAM,IAAG,cAAC,2BAAQ,6BAAT,CAAZ;AAEH,gBAAG,MAAO,GAAE,CAAZ;AACE,uBAAU,KAAM,GAAE,MAAF;AAEhB,kBAAI,MAAJ,IAAG;WALF;;;AAlDF;AAAgB;AA6DH;AAAb;AAEP;AACA;AAEA,eAAU;AACV,mBAAc,wBAAkB,CAAC,SAAU,MAAX;AAChC,UAAG,UAAW,IAAG,CAAjB;AAEE,gBAAS,qBAAe,CAAC,SAAU,UAAX;AACxB,iBAAU,KAAM,IAAG,cAAC,8BAAW,iCAAZ,CAAH;OAHlB;AAPO;AAAa;AAcD;AAAZ;AAEP,eAAU;AACV,UAAU,QAAD,OAAW,IAAG,CAAvB;AAEE,YAAI,qBAAe,CAAC,SAAiB,QAAD,OAAW,GAAE,CAA9B,CAAiC,KAAE,oCAAtD;AAEE,cAAoD,CAAhD,qBAAe,CAAC,SAAiB,QAAD,OAAW,GAAE,CAA9B,CAAiC,KAAE,oCAAF,CAAoB,IACrB,CAAhD,qBAAe,CAAC,SAAiB,QAAD,OAAW,GAAE,CAA9B,CAAiC,KAAE,oCAAF,CADnD;AAGE,qBAAU,QAAQ,QAAQ,QAAD,WAAP;WAHpB;SAFF;OAFF;AAHO;AAAY;AAlPP;AAlFd,GAkFc,yBAlFd;ACfA,+BAES,UAFT;;;AAKa,qBAAG,mIAEmI,GAD/I,+IAD+I,GAE/I,+IAD+I,GAE/I,6BAD+I;AAGlI,yBAAG,+HAI+H,GAH/I,+IAD+I,GAE/I,+IAD+I,GAE/I,+IAD+I,GAE/I,+IAD+I,GAE/I,+CAD+I;AAGtI,qBAAG,mIAEmI,GAD/I,+IAD+I,GAE/I,+IAD+I,GAE/I,qCAD+I;AAGlI,yBAAG,gIAO+H,GAN/I,+IADgJ,GAEhJ,+IAD+I,GAE/I,+IAD+I,GAE/I,+IAD+I,GAE/I,+IAD+I,GAE/I,+IAD+I,GAE/I,+IAD+I,GAE/I,uFAD+I;AAGzI,kBAAG,sIAEsI,GAD/I,+IAD+I,GAE/I,+IAD+I,GAE/I,kDAD+I;AAIrI,sBAAG,kIAMkI,GAL/I,+IAD+I,GAE/I,+IAD+I,GAE/I,+IAD+I,GAE/I,+IAD+I,GAE/I,+IAD+I,GAE/I,+IAD+I,GAE/I,8BAD+I;AA5CnJ;ACeA,2BAIS,mKAJT;;;;AAsBa;;AAEF;AACP;AAAM;AAAK;AAAO;AADX;aACP,sBAAM,IAAA,oBAAK,IAAA,wBAAO,8BAAZ;AADC;;AACP;AAAM;AAAK;AAAO;AADX;;;AACP;AAAM;AAAK;AAAO;AADX;AAIC;AACR;AACA;AAFQ;aACR,gBACA;AAFQ;;AACR;AACA;AAFQ;;;AACR;AACA;AAFQ;AAKC;;AAKY;;AAAT,oCAAS,wCAAT;AAGI;;AAEH;;AAEH,kCAZD,mCAYC;AAES,4EAAmB,U3EgEjC,2B2EhEiC,EAAe,qBAAK,qBAAiB,U5B2LvE,sB4B3LuE,EAAoB,uBAA5E;AAEC,6EAAmB,U3E8DlC,2B2E9DkC,EAAe,qBAAK,qBAAiB,U5ByLxE,sB4BzLwE,EAAgB,sBAAwB,2BAAhG;AAEG,gFAAmB,U3E4DrC,2B2E5DqC,EAAe,qBAAK,qBAAiB,U5BuL3E,sB4BvL2E,EAAgB,sBAAkB,Y9DgH/F,oD8DhH+F,CAA1F;AAEF,8EAAmB,U3E0DnC,2B2E1DmC,EAAe,qBAAK,qBAAsB,WAVrE,8BAUqE,EAA7D;AAEN,wEAAmB,U3EwD7B,2B2ExD6B,EAAmB,Y9D+FhC,uD8D/FgC,CAAtC;AAEE,0EAAmB,U3EsD/B,2B2EtD+B,EAAe,qBAAK,qBAAyB,kBAhBjE,gCAgBiE,CAAhE;AAEL,qEAAmB,U3EoD1B,2B2EpD0B,EAAe,qBAAM,qBAAe,QzE3BhE,wByE2BgE,EAAc,SArBrE,4BAqBqE,CAArE;AAED,oEAAmB,U3EkDzB,2B2ElDyB,EAAe,qBAAM,qBAAoB,sBAA5D;AACA,oEAAmB,U3EiDzB,2B2EjDyB,EAAe,qBAAM,qBAAsB,sBAA9D;AAEY,gFAAmB,U3E+CrC,2B2E/CqC,EAAe,qBAAM,qBAAmB,Y9DmN5E,wC8DnN4E,EAAuB,sBAAlF;AACA,gFAAmB,U3E8CrC,2B2E9CqC,EAAe,qBAAM,qBAAmB,Y9DkN5E,wC8DlN4E,EAAqB,sBAAhF;AAEd;;;AAET;AACA;AAHS;AAirNgB;AAAR;AAEnB,eAAU;AAFS;AAAQ;AAwCC;;AAnCI;AAAb;AAEnB;AAAE;AACF;AACA;AAEA,eAAmB,IAAT,KAAS;AAEnB,eAAS,uBAAsB,OAAT,cAAS,GAAE,CAAF,kBAA/B;AAAI;AAEF,cAAgB,IAAT,KAAS;AAEhB,iBAAS,wBAAsB,QAAT,cAAS,GAAE,CAAF,qBAA/B;AAAI;AAEF,cAAK,aAAK,CAAC,EAAE,CAAH;AACV,aAAG,KAAK,CAAC,CAAD;;AAEV,cAAM,KAAK,CAAC,GAAD;;AAjBM;AAAa;AAwEC;AAEjC;AAAE;AACF;AACA;AAEA,UAAgB,CAAb,KAAK,OAAQ,GAAE,gBAAF,CAAY,GAAE,cAA9B,EACE,iBAAY,KAAK,OAAQ,GAAE,gBAA3B,CADF;AAGA,eAAS,QAAkB,OAAb,KAAK,OAAQ,GAAE,CAAF,kBAA3B;AAAI;AAEF,aAAe,KAAe;AAC9B,YAAO,UAAH,GAAM,KAAH,CAAP;AAEE,cAAa,CAAV,EAAE,OAAQ,GAAE,gBAAF,CAAY,GAAE,cAA3B,EACE,iBAAY,EAAE,OAAQ,GAAE,gBAAxB,CADF;AAGA,mBAAS,SAAe,QAAV,EAAE,OAAQ,GAAE,CAAF,qBAAxB;AAAI;AAEF,iBAAM,EAAY;AAClB,yBAAK,CAAC,CAAE,GAAE,gBAAF,CAAY,CAAE,GAAE,gBAAF,CAAmB,eAAQ,CAAC,EAAD,CAA5C;;SART;;AAZ+B;AAlFL;AAAT;AAEnB,eAAU;AAFS;AAAS;AAwCA;AAAT;AAEnB,eAAU;AAFS;AAAS;AAUG;AAE/B;AAEA,UAAc,CAAV,cAAU,KAAG,KAAH,CAAU,IAAW,CAAN,KAAM,IAAG,CAAH,CAAnC;AAEE,gBAAS,KAAM,GAAE,cAAF;AACf,yBAAa;AACb,YAAY,uBAAD,QAAX;AAEE,8BAAe,CAAC,KAAD;AACf;SAHF;OAJF;AAJ+B;AAgBA;AAE/B;AAEA,UAAc,CAAV,cAAU,KAAG,KAAH,CAAU,IAAW,CAAN,KAAM,IAAG,CAAH,CAAnC;AAEE,gBAAS,KAAM,GAAE,cAAF;AACf,yBAAa;AACb,YAAY,uBAAD,QAAX;AAEE,8BAAe,CAAC,KAAD;AACf;SAHF;OAJF;AAJ+B;AAnCA;;AAKI;;AAxCA;;AALV;;AAnqNd;;;AA2BM;;AAEP,iEAAmB,U3EetB,2B2EfsB,EAAe,qBAAM,oBAAxC;AACK,sEAAmB,U3Ec3B,2B2Ed2B,EAAe,qBAAM,qBAAkB,uBAA1D;AACE,wEAAmB,U3Ea7B,2B2Eb6B,EAAe,qBAAK,qBAAsB,yBAA7D;AAED,uEAAmB,U3EW5B,2B2EX4B,EAAe,qBAAM,qBAAwB,2BAAhE;AACC,wEAAmB,U3EU7B,2B2EV6B,EAAe,oBAAlC;AAEP;;;AAER;AACA;AACA;AAJQ;AA88ViB;AAE3B;AACA,kBAAQ;AACR,kBAAQ;AACR,mBAAS;AALmB;AAAD;AAVF;AAEzB,UAAc,eAAH,eAAP,MAAO,CAAX;AAEE,oBAAgB,OAAP,OAAU,eAAH,CAAc;AAC9B,oBAAgB,OAAP,OAAU,eAAH,CAAc;AAC9B,qBAAiB,OAAP,OAAU,eAAH,CAAc;OAJjC;AAFyB;AAp8Vf;AAMU;AAGN;AACA;AACC;AAXL;AAgBO;;;AAEf;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAhGe;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAkxEgB;AAAR;AAEzB;AAEA,WAAM,oBAAe,CAAC,KAAK,IAAN;AAErB,UAAG,CAAY,CAAC,EAAD,SAAf;AAEE,iBAAU;AACV;OAHF;AAMD,UAAG,cAAH;AAEG,YAAY,EAAE,WAAH,QAAX,EACE,KAAqB,EAAE,WADzB;OAFH;AAMC,eAAU,EAAE;AAlBa;AAAQ;AAqzFC;AAElC;AAAG;AAAG;AACN;AAAQ;AACR;AAGA,UAAS,CAAL,IAAK,GAAE,CAAF,CAAK,IAAS,CAAL,IAAK,GAAE,CAAF,CAAvB,EACE,MADF;AAGA,eAAU;AACV,UAAG,cAAG,CAAC,KAAK,KAAN,CAAa,GAAE,CAArB;AAEE,iBAAU,0BAAa,CAAC,OAAQ,KAAK,OAAQ,cAAC,4CAAD,CAAtB;AACvB,iBAAU,0BAAa,CAAC,OAAQ,KAAK,OAAQ,cAAC,4CAAD,CAAtB;OAGzB,UAAG,cAAG,CAAC,KAAK,KAAN,CAAa,GAAE,CAArB;AAEE,iBAAU,0BAAa,CAAC,OAAQ,KAAK,OAAQ,cAAC,4CAAD,CAAtB;OAFzB;AAKA,UAAG,cAAH;AAEE,aAAM,kBAAU,CAAC,IAAD,CAAO,GAAE,CAAF;AACvB,iBAAU,kCAA8F,GAAzD,iDAAF;;;;YAAE,CAAH,GAAa,gBAAD,GAAsB,iDAAF;;;;YAAE,CAAJ,GAAc,MAAD,GAAU,MAAF,GAAY,QAAH;OAH1G;AAMA,WAAM,oBAAe,CAAC,KAAK,IAAN;AACrB,UAAY,EAAD,QAAX;AAEE,UAAE,UAAF,GAAgB;AAEhB,aAAM;AACN,6BAAgB,CAAC,KAAM,KAAM,KAAK,OAAQ;;;;YAA1B;AAChB,YAAG,EAAG,KAAG,EAAT,EACE,EAAE,aAAa,CAAC,QAAQ,EAAT,CADjB;OANF;AA8DA,UAAG,IAAK,KAAE,CAAV,EACE,sBADF;AA3FkC;AA6XI;AAEtC,UAAI,eAAW,KAAG,KAAlB;AAEE,0BAAc;AAEd,YAAG,CAAI,iBAAP,EACE,mBADF;OAJF;AAFsC;AAgBA;AAEtC,UAAI,eAAW,KAAG,KAAlB;AAEE,0BAAc;AAEd,YAAG,CAAI,iBAAP,EACE,mBADF;OAJF;AAFsC;AAWJ;AAElC,UAAI,WAAO,KAAG,MAAd;AAEE,sBAAU;AACV;OAHF;AAFkC;AA/kGG;AAAZ;AAEzB,UAAG,IAAK,GAAE,eAAU,SAAC,EAArB;AACE,iBAAiB,UAAC,eAAU,IAAM,CAAC,IAAD,CAAjB;AAEjB,qBAAU;AALa;AAAY;AAyJC;AAAb;AAEzB,UAAG,IAAK,GAAE,gBAAW,SAAC,EAAtB;AACE,iBAAiB,UAAC,gBAAW,IAAM,CAAC,IAAD,CAAlB;AAEjB,qBAAU;AALa;AAAa;AA4sFA;AAEtC;AACA;AAAI;AAAO;AACX;AAEA,aAAM,eAAU,SAAC,EAAM,IAAG,IAA1B,EACE,eAAU,IAAI,CAAC,qBAAD;AAEhB,qBAAU,KAAC,KAAS,KAAV;AAEV,UAAG,iBAAH,EACE,MADF;AAGA,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,MADF;AAGA,mBAAc,gBAAW,KAAE,wCAAF;AACzB,WAAM;AACN,cAAS,eAAM,GAAE,oBAAF;AACf,sBAAiB,KAAM,GAAE,0CAAF;AAEvB,UAAG,IAAK,GAAE,eAAV;AAEE,cAAO;AAEX;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;OAvCE;AA2CA,UAAG,IAAK,IAAG,eAAX;AAEE,eAAQ,IAAK,GAAE,eAAF;AAGjB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;OAjBE;AAsBF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGE;AAzGsC;AAwYC;AAEvC;AAAI;AACJ;AAAI;AAAI;AAAO;AAEf,aAAM,gBAAW,SAAC,EAAM,IAAG,IAA3B,EACE,gBAAW,IAAI,CAAC,sBAAD;AAEjB,sBAAW,KAAC,KAAS,KAAV;AAEX,UAAG,iBAAH,EACE,MADF;AAGA,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,MADF;AAGA,WAAM;AAEN,WAAM;AAEN,cAAS,gBAAO,GAAE,qBAAF;AAEhB,sBAAiB,KAAM,GAAE,2CAAF;AAEvB,UAAG,IAAK,GAAE,eAAV;AAEE,cAAO;AAEX;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;OA9BE;AAmCA,UAAG,IAAK,IAAG,eAAX;AAEE,eAAQ,IAAK,GAAE,eAAF;AAEb,aAAM;AACN,YAAG,uBAAsC,IAAjB,uBAAJ,IAA+B,CAAL,IAAK,KAAW,CAAT,cAAS,GAAE,CAAF,CAAX,CAAnD,EACE,KAAM,KAAM,GAAE,iBAAY,cAAc,aAD1C;AAIJ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;OAhBE;AAqBF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA1FyC;AA1PK;AAE5C;AAEA,8BAAoB;AAEpB,eAAS,QAAc,OAAT,cAAS,GAAE,CAAF,kBAAvB;AAAI;AACF,yBAAS,CAAC,EAAM,KAAP;;AAPiC;AAUC;AAE7C;AAEA,+BAAqB;AACrB,eAAS,QAAc,OAAT,cAAS,GAAE,CAAF,kBAAvB;AAAI;AACF,0BAAU,CAAC,EAAM,KAAP;;AANiC;AArhGd;AAAN;AAEzB;AAEA,YAAO,CAAC;AACR,UAAa,kBAAD,QAAZ;AAGF;AAEI,cAAO,GAAI,GAAE,eAAF;OALb;AAQA,eAAU;AAbe;AAAM;AAiKA;AAAN;AAEzB;AAEA,YAAO,CAAC;AACR,UAAY,kBAAD,QAAX;AAGF;AAEI,cAAO,GAAI,GAAE,eAAF;OALb;AAQA,eAAU;AAbe;AAAM;AA4qFC;AAEhC;AAAE;AACF;AAEA,UAAU,CAAN,KAAM,GAAE,cAAF,CAAY,IAAW,CAAN,KAAM,IAAG,eAAH,CAAjC;AAEG,YAAY,kBAAD,QAAX;AAEE,8BAAe,CAAC,kBAAD;SAFjB;AAKA,YAAK,KAAM,GAAE,eAAF;AACX,YAAK,aAAI,GAAE,eAAF;AACT,YAAG,CAAE,GAAE,CAAP,EACE,IAAK,CADP;AAIL;AACA;AAGK,yBAAY,CAAC,EAAD;AACZ,6BAAiB;AAGtB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;OA7BE;AALgC;AAqXA;AAEhC;AAAE;AAAE;AACJ;AACA;AAAG;AAEH,UAAU,CAAN,KAAM,GAAE,cAAF,CAAY,IAAW,CAAN,KAAM,IAAG,eAAH,CAAjC;AAEE,kBAAY,4BAAY,IAAG,aAAH;AAExB,YAAW,CAAC,kBAAD,SAAgB,IAAI,OAA/B;AAEE,eAAM,kBAAa;AACnB,8BAAe,CAAC,EAAD;SAHjB;AAMA,YAAY,kBAAD,QAAX;AAEE,8BAAe,CAAC,kBAAD;SAFjB;AAKA,YAAK,aAAI,GAAE,eAAF;AACT,YAAG,CAAE,GAAE,CAAP,EACE,IAAK,CADP;AAGA,YAAK,KAAM,GAAE,eAAF;AAEX,YAAiB,CAAd,oBAAc,GAAE,qBAAF,CAAiB,GAAE,eAApC;AACE,eAAM;AAEN,mBAAM;AAGZ;AACA;AAGI,YAAI,OAAJ;AAEE,cAAG,CAAI,kBAAW,CAAC,kBAAD,CAAlB,EACE,oBAAe,CAAC,kBAAD,CADjB;AAGA,2BAAY,CAAC,EAAD;AACZ,+BAAiB;;AAIjB,+BAAiB;AACjB,2BAAY,CAAC,kBAAD;;AAIlB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;OAxDE;AANgC;AAj5GQ;AAAf;AAOzB,eAAU,oBAAe,CAAC,KAAK,IAAN;AAPA;AAAe;AA8HA;AAAf;AAEzB;AAEA,eAAU;AAEV,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAiB,oBAAY,CAAC,KAAK,IAAN,CAAW;AACxC,YAAW,CAAC,EAAD,SAAK,IAAQ,UAAH,GAAM,OAAH,CAAxB;AAEE,cAAG,EAAE,aAAa,CAAC,MAAD,CAAS,IAA2B,CAAtB,sBAAS,CAAC,EAAE,cAAC,MAAD,CAAH,CAAa,KAAE,UAAF,CAAtD;AAEE,qBAAyB;WAF3B;SAFF;OAHF;AANyB;AAAe;AAmBC;AAAhB;AAEzB;AAEA,eAAU;AAEV,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAiB,oBAAY,CAAC,KAAK,IAAN,CAAW;AAExC,YAAW,CAAC,EAAD,SAAK,IAAQ,UAAH,GAAM,OAAH,CAAxB;AAEE,cAAG,sBAAS,CAAC,EAAE,QAAH,CAAa,KAAE,QAA3B;AAEE,qBAAyB;WAF3B;SAFF;OAJF;AANyB;AAAgB;AAvMA;AAAhB;AAGzB;AAEA,eAAU;AAEV,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAiB,oBAAY,CAAC,KAAK,IAAN,CAAW;AACxC,YAAW,CAAC,EAAD,SAAK,IAAQ,UAAH,GAAM,OAAH,CAAxB;AAEE,cAAI,sBAAS,CAAC,EAAE,QAAH,CAAa,KAAE,QAA5B;AAEE,qBAAyB;WAF3B;SAFF;OAHF;AAPyB;AAAgB;AAkZE;AAAlB;AAGzB;AAEA,eAAU;AAEV,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAiB,oBAAY,CAAC,KAAK,IAAN,CAAW;AACxC,YAAW,CAAC,EAAD,SAAK,IAAQ,UAAH,GAAM,OAAH,CAAxB;AAEE,cAAI,sBAAS,CAAC,EAAE,QAAH,CAAa,KAAE,UAA5B;AAEE,qBAAyB;WAF3B;SAFF;OAHF;AAPyB;AAAkB;AA6DN;AAAZ;AAEzB,qBAAU,eAAV;AAFyB;AAAY;AAyqGC;AAEtC;AAAE;AAAE;AAAG;AACP;AACA;AAAK;AAAM;AAAI;AACf;AAAG;AAGH,8BAAc,KAAd;AAEA,aAAQ,KAAK;AACb,cAAS,KAAK;AAEd,UAAG,KAAK,KAAM,GAAE,KAAK,MAArB;AAEE,eAAQ,KAAK;AACb,gBAAS,KAAK;OAHhB;AAMA,YAAO,KAAK;AACZ,eAAU,KAAK;AAEf,UAAG,KAAK,IAAK,GAAE,KAAK,OAApB;AAEE,cAAO,KAAK;AACZ,iBAAU,KAAK;OAHjB;AAMA,eAAS,sBAAsB,OAAT,cAAS,GAAE,CAAF,kBAA/B;AAAI;AAEF,YAAG,4BAAY,IAAG,aAAlB;AAEE,eAAM,CAAE,GAAE,eAAF;AACR,gBAAU,CAAF,CAAE,IAAG,GAAH,CAAQ,IAAO,CAAF,CAAE,IAAG,MAAH,CAAP;AAElB,cAAG,GAAH;AAGN;AAEQ,6BAAY,CAAC,EAAD;;AAKpB;AAEQ,gCAAe,CAAC,EAAD;;SAInB,eAAS,uBAAsB,QAAT,cAAS,GAAE,CAAF,qBAA/B;AAAI;AAEF,eAAM,CAAE,GAAE,eAAF;AACR,eAAM,CAAE,GAAE,eAAF;AAER,gBAAU,CAAF,CAAE,IAAG,IAAH,CAAyC,IAAzB,CAAF,CAAE,IAAG,KAAH,CAAP,IAAwB,CAAF,CAAE,IAAG,GAAH,CAAP,IAAsB,CAAF,CAAE,IAAG,MAAH,CAAP;AAEnD,cAAG,GAAH;AAGN;AAEQ,gBAAY,EAAD,QAAX,EACE,iBAAY,CAAC,EAAD,CADd;;AAMR;AAEQ,gBAAY,EAAD,QAAX,EACE,oBAAe,CAAC,EAAD,CADjB;;;;AAvEgC;AA1xGH;AAAV;AAEzB;AAAE;AAAE;AAEJ,eAAU;AAEV,UAAY,iBAAD,QAAX;AAEE,YAAK,iBAAY,cAAc,cAAc;AAC7C,YAAK;AACL,iBAAS,sBAAsB,OAAT,cAAS,GAAE,CAAF,kBAA/B;AAAI;AAEH,cAAG,CAAE,IAAG,CAAR;AAEE,qBAAU;AACV;WAHF;AAKC,cAAsB,CAAjB,CAAiB,GAAb,iBAAS,CAAC,CAAD,CAAX,GAAiB,CAAF,CAAI,GAAE,CAAF;;OAX9B;AANyB;AAAU;AAsHD;AAAT;AAEzB;AAEA,eAAU;AAEV,UAAW,CAAC,iBAAD,SAAe,IAAY,CAAP,MAAO,IAAG,CAAH,CAAtC;AAEE,iBAAU,iBAAY,cAAc,cAAc;AAElD,iBAAU,eAAU,GAAS,UAAP,MAAO,GAAI,sBAAJ,CAAT;OAJtB;AANyB;AAAS;AAy7FE;AAEpC;AAAE;AAEF,UAAK;AACL,eAAS,sBAAmB,OAAN,KAAM,GAAE,CAAF,kBAA5B;AAAI;AACF,YAAsB,CAAjB,CAAiB,GAAb,iBAAS,CAAC,CAAD,CAAX,GAAiB,CAAF,CAAI,GAAE,CAAF;;AAE5B,UAAY,iBAAD,QAAX;AAEE,yBAAY,cAAc,cAAc,WAAxC,GAAuD;AACvD,YAAG,eAAU,GAAE,CAAf,EACE,cAAS,cAAc,cAAc,WAArC,GAAoD,CADtD;OAHF;AARoC;AAiXD;AAEnC;AAEA,eAAiB,CAAN,KAAM,GAAE,eAAF,CAAa,GAAE,sBAAF;AAC9B,UAAW,CAAC,iBAAD,SAAe,IAAY,CAAP,MAAO,IAAG,CAAH,CAAtC;AAEE,yBAAY,cAAc,cAAc,UAAxC,GAAsD;AACtD,YAAG,eAAU,GAAE,CAAf,EACE,cAAS,cAAc,cAAc,UAArC,GAAmD,MADrD;OAHF;AALmC;AAlcI;AAEvC,UAAI,gBAAY,KAAG,KAAnB;AAEE,2BAAe;AACf;OAHF;AAFuC;AAyDI;AAE3C,UAAI,eAAS,OAAO,KAAG,KAAvB;AAEE,uBAAS,SAAC,CAAS,KAAT;AACV;OAHF;AAF2C;AA5jGD;AAAjB;AAEzB,eAAU,eAAU;AAFK;AAAiB;AAyKC;AAAlB;AAEzB;AACA;AACA;AAAG;AAEH,UAAK;AAEL,WAAM,uBAAa;AAEnB,aAAM,CAAE,GAAE,cAAV;AAEE,aAAM,oBAAY,CAAC,EAAE,eAAH;AAClB,aAAM,EAAE;AACR,YAAG,EAAE,MAAO,GAAE,EAAE,MAAhB,EACE,KADF;AAEI,SAAJ,IAAG;;AAGL,eAAU,CAAE,GAAE,iBAAF;AAnBa;AAAkB;AAsBA;AAAlB;AAEzB;AACA;AACA;AAAG;AAEH,UAAK;AAEL,WAAM,uBAAa;AAEnB,aAAM,CAAE,GAAE,cAAV;AAEE,aAAM,oBAAY,CAAC,gBAAU,CAAX;AAClB,aAAM,EAAE;AACR,YAAG,EAAE,OAAQ,GAAE,EAAE,OAAjB,EACE,KADF;AAEI,SAAJ,IAAG;;AAGL,eAAU,CAAE,GAAE,gBAAF;AAnBa;AAAkB;AA1DX;AAAP;AAEzB;AAEA,UAAU,CAAN,KAAM,IAAG,CAAH,CAAM,IAAW,CAAN,KAAM,GAAE,cAAF,CAA3B;AAEE,0BAAc;AACd,kBAAK;AACL,iBAAS,QAAc,OAAT,cAAS,GAAE,CAAF,kBAAvB;AAAI;AACF,oBAAK,IAAI,CAAC,aAAK,CAAC,EAAE,KAAH,CAAN;;AAEX,iBAAU;OAGV,YAAM,sBAAS,QAAC,YAAM,CAAC,mBAAD,CAAN;AAdO;AAAO;AA0qGC;AAEjC;AAEA,UAAU,CAAN,KAAM,IAAG,CAAH,CAAM,IAAW,CAAN,KAAM,GAAE,cAAF,CAA3B;AAEE,iBAAS,QAAc,OAAT,cAAS,GAAE,CAAF,kBAAvB;AAAI;AAEF,cAAG,CAAE,GAAE,KAAK,SAAC,EAAb,EACE,aAAK,CAAC,EAAE,MAAU,KAAK,KAAC,CAAD,CAAlB,CADP;;OAKF,YAAM,sBAAS,QAAC,YAAM,CAAC,mBAAD,CAAN;AAbe;AArtBI;AAErC,kBAAO,CAAC,gBAAY,UAAb;AAF8B;AAvrFC;AAAb;AAEzB;AACA;AAEA,eAAU;AAEV,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAM,oBAAe,CAAC,KAAK,IAAN;AACrB,YAAY,EAAD,QAAX;AAGJ;AAEM,mBAAU;SALZ;OAHF;AAPyB;AAAa;AAu1FC;AAGvC;AAEA,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAM,oBAAe,CAAC,KAAK,IAAN;AAEzB;OAJE;AALuC;AAn0FC;AAAf;AAEzB;AACA;AAEA,eAAU;AAEV,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAM,oBAAe,CAAC,KAAK,IAAN;AACrB,YAAY,EAAD,QAAX;AAGJ;AAEM,mBAAU,CAAI;SALhB;OAHF;AAPyB;AAAe;AAi1FC;AAGzC;AACA;AAEA,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,YAAK,CAAI;AACT,aAAM,oBAAe,CAAC,KAAK,IAAN;AAEzB;OALE;AANyC;AAiYP;AAElC,iBAAM,OAAO,CAAC,KAAD;AAFqB;AAjJgB;AAElD,UAAI,2BAAuB,KAAG,KAA9B;AAEE,sCAA0B;AAE1B,YAAG,CAAI,iBAAP,EACE,mBADF;OAJF;AAFkD;AAmFR;AAE1C,UAAI,mBAAe,KAAG,KAAtB;AAEE,8BAAkB;AAClB;OAHF;AAF0C;AAkUC;AAE3C,UAAI,oBAAgB,KAAG,KAAvB;AAEE,+BAAmB;AACnB;OAHF;AAF2C;AASI;AAE/C,UAAI,wBAAoB,KAAG,KAA3B;AAEE,mCAAuB;AACvB;OAHF;AAF+C;AA17GN;AAAhB;AAEzB,UAAG,IAAK,GAAE,mBAAc,SAAC,EAAzB;AACE,iBAAqB,mBAAc,IAAM,CAAC,IAAD;AAEzC,qBAAU;AALa;AAAgB;AAo2FC;AAG1C,aAAM,mBAAc,SAAC,EAAM,IAAG,IAA9B,EACE,mBAAc,IAAI,CAAC,oCAAD;AACpB,yBAAc,KAAC,KAAS,KAAV;AACd;AAN0C;AA/KJ;AAGjC;AACL,UADK,IACL;AAAe,gBAAQ,gBAAgB,CAAC,OAAD;AACvC,gBAFK,IAEL;AAAU,gBAAQ,cAAC,QAAY,QAAb;AAClB,gBAHK,IAGL,4CAAgB,QAAQ,cAAC,QAAY,OAAb,CAAxB;AANsC;AA8wBA;AAEtC;AAEA,wBAAc;AACd,eAAS,QAAc,OAAT,cAAS,GAAE,CAAF,kBAAvB;AAAI;AAEF,gCAAmB,CAAC,EAAG,EAAG,CAAE,KAAE,eAAX;;AAPiB;AAldU;AAEhD,UAAI,yBAAqB,KAAG,KAA5B;AAEE,oCAAwB;AACxB,YAAG,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAlB,EACE,mBADF;OAHF;AAFgD;AAl4Fb;AAAV;AAEzB;AAEA,eAAU;AAEV,UAAG,gBAAW,SAAC,EAAM,GAAE,IAAvB;AAEE,gBAAmB,cAAC,gBAAW,KAAC,IAAD,CAAZ;AACnB,YAAG,KAAK,SAAC,EAAM,GAAE,IAAjB,EACE,SAAiB,cAAC,KAAK,KAAC,IAAD,CAAN,CADnB;OAHF;AANyB;AAAU;AAyhGC;AAGpC;AAEA,aAAM,gBAAW,SAAC,EAAM,IAAG,IAA3B;AAEE,gBAAS,iBAAU,QAAC;AACpB,wBAAW,IAAI,CAAC,KAAD;;AAGjB,cAAmB,cAAC,gBAAW,KAAC,IAAD,CAAZ;AAEnB,aAAM,KAAK,SAAC,EAAM,IAAG,IAArB;AAEE,aAAK,IAAI,CAAC,IAAD;;AAGX,WAAK,KAAC,KAAS,KAAV;AAlB+B;AAjEE;AAEtC,qBAAU,OAAO,CAAC,KAAD;AAFqB;AAvjGE;AAAf;AAEzB,eAAU,cAAS,GAAE,eAAF;AAFM;AAAe;AAv8BL;AAEnC;AACA,uBAAY,eAAU,GAAE,CAAxB;AACA,uBAAY,eAAU,GAAE,CAAxB;AAJmC;AAk5HS;AAE5C,uBAAY,eAAU,GAAE,MAAxB;AAF4C;AAWH;AAEzC,uBAAY,eAAU,GAAE,MAAxB;AAFyC;AAKH;AAGtC,mBAAK,CAAC,OAAQ,GAAE,eAAF,CAAa,IAAK,GAAE,eAAF,CAAgB,MAA3C;AAHiC;AAXC;AAEvC,UAAG,eAAU,GAAE,CAAf,EACE,aAAK,CAAC,OAAQ,GAAE,eAAF,CAAa,eAAU,GAAE,CAAF,CAAQ,MAAxC,CADP;AAFuC;AA1sHE;;AAIF;;AAIA;AAEvC,oBAAS,CAAC,eAAD;AAF8B;AAucF;AAErC;AACA;AAHqC;AAgjIC;AAEtC;AAEA,UAAY,iBAAD,QAAX;AAEE,yBAAY,oBAAoB,CAAC,YAAY,wBAAb;AAChC,yBAAY,oBAAoB,CAAC,UAAU,sBAAX;AAChC,yBAAY,oBAAoB,CAAC,YAAY,wBAAb;AAChC,yBAAY,oBAAoB,CAAC,QAAQ,oBAAT;OALlC;AAQA,UAAY,cAAD,QAAX,EACE,cAAS,oBAAoB,CAAC,QAAQ,yBAAT,CAD/B;AAGA,UAAY,cAAD,QAAX,EACE,cAAS,oBAAoB,CAAC,QAAQ,yBAAT,CAD/B;AAGA,UAAY,iBAAD,QAAX,EACE,iBAAY,oBAAoB,CAAC,QAAQ,yBAAT,CADlC;AAlBsC;AArkII;AAE1C,oCAAgB,CAAC,kBAAY,GAAE,YAAF,CAAW,eAAU,CAAC,YAAQ,GAAE,KAAX,CAAlC;AAChB;AAH0C;AAqjIN;AAAX;AAEzB;AAEA,eAAU;AACV,YAAO,iCAAa,CAAC,IAAD;AACpB,UAAY,GAAD,QAAX,EACE,SAAU,GAAG,WADf;AANyB;AAAW;AAziJF;AAAT;AAEzB,eAAU;AAFe;AAAS;AA65GA;AAAT;AAEzB,eAAU;AAFe;AAAS;AA/sHE;AAAX;AAEzB;AACA;AACA;AAEA,eAAU;AAEV,WAAM,oBAAe,CAAC,KAAK,IAAN;AACrB,UAAY,EAAD,QAAX;AAEE,YAAK,EAAE,cAAC,SAAD;AACP,wBAAG,CAAC,EAAE;;;;aAAO;;;;YAAV;OAHL;AATyB;AAAW;AA0HA;AAAX;AAEzB;AACA;AACA;AAEA,eAAU;AAEV,WAAM,oBAAe,CAAC,KAAK,IAAN;AACrB,UAAY,EAAD,QAAX;AAEE,YAAK,EAAE,cAAC,SAAD;AACP,wBAAG,CAAC,EAAE;;;;aAAO;;;;YAAV;OAHL;AATyB;AAAW;AAzGI;AAAf;AAEzB;AACA;AACA;AAAE;AAEF,UAAS,CAAL,IAAK,GAAE,eAAF,CAAa,IAAU,CAAL,IAAK,GAAE,eAAF,CAAhC;AAEE,YAAK;AACL,YAAK;AACL,YAAK;OAGP,UAAS,CAAL,IAAK,GAAE,eAAF,CAAa,IAAU,CAAL,IAAK,IAAG,eAAH,CAAhC;AAEE,YAAK;AACL,YAAK;AACL,YAAK,IAAK,GAAE,eAAF;OAGZ,UAAS,CAAL,IAAK,IAAG,eAAH,CAAc,IAAU,CAAL,IAAK,GAAE,eAAF,CAAjC;AAEE,YAAK;AACL,YAAK,IAAK,GAAE,eAAF;AACV,YAAK;;AAIL,YAAK;AACL,YAAK,IAAK,GAAE,eAAF;AACV,YAAK,IAAK,GAAE,eAAF;;AAGZ,WAAM;AAEN,UAAG,oBAAH;AAGF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;;AAMA;;AAIE,eAAU;AArEe;AAAe;AAwEA;AAExC;AACA;AACA;AAAE;AAEF,eAAQ,CAAC,CAAT;AACA,eAAQ,CAAC,CAAT;AAEU,cAAD,sBAAC,cAAU,eAAU,cAArB;AAET,eAAS,QAAc,OAAT,cAAS,GAAE,CAAF,kBAAvB;AAAI;AAEF,iBAAS,SAAc,QAAT,cAAS,GAAE,CAAF,qBAAvB;AAAI;AAEF,kBAAQ,CAAC,CAAD,EAAG,CAAH,CAAR,GAAiB,oBAAe,CAAC,EAAE,CAAH;;;AAIpC,eAAS,SAAc,QAAT,cAAS,GAAE,CAAF,qBAAvB;AAAI;AAEF,iBAAS,SAAc,QAAT,cAAS,GAAE,CAAF,qBAAvB;AAAI;AAEF,cAAG,QAAQ,CAAC,CAAD,EAAG,CAAH,CAAM,KAAE,QAAnB;AAEE,qBAAQ,CAAE,GAAE,eAAZ;AACA,qBAAQ,CAAE,GAAE,eAAZ;AACA;WAJF;;;AAvBoC;AAq1BM;AAArB;AAEzB;AAAG;AACH;AAEA,YAAO;AAEP,UAAS,CAAL,IAAK,GAAE,eAAF,CAAa,IAAU,CAAL,IAAK,IAAG,eAAH,CAAhC;AAEE,aAAM,IAAK,GAAE,eAAF;AACX,aAAM;AAGV;OANE;AAUA,UAAS,CAAL,IAAK,GAAE,eAAF,CAAa,IAAU,CAAL,IAAK,IAAG,eAAH,CAAhC;AAEE,aAAM,IAAK,GAAE,eAAF;AACX,aAAM;AAGV;OANE;AAUA,UAAS,CAAL,IAAK,GAAE,eAAF,CAAa,IAAU,CAAL,IAAK,GAAE,eAAF,CAAhC;AAEE,aAAM;AACN,aAAM;AAEV;OALE;AASA,UAAS,CAAL,IAAK,IAAG,eAAH,CAA4D,IAApC,CAAL,IAAK,IAAG,eAAH,CAAV,IAAkC,CAAL,IAAK,GAAE,cAAF,CAAV,IAAgC,CAAL,IAAK,GAAE,cAAF,CAA/E;AAEE,aAAM,IAAK,GAAE,eAAF;AACX,aAAM,IAAK,GAAE,eAAF;AAEf;OALE;AASA,eAAU;AA7Ce;AAAqB;AAg0DX;AAEnC;AACA,UAAiB,CAAb,eAAU,EAAG,KAAG,CAAC,CAAJ,CAAO,IAAkB,CAAb,eAAU,EAAG,KAAG,CAAC,CAAJ,CAA1C;AAEE,YAAI,CAAE,GAAS,CAAP,gBAAO,GAAE,EAAF,CAAf;AAEE,yBAAU,gBAAO,GAAE,CAAnB;AACA,4BAAa,aAAQ,CAAC,mBAAS,MAAO,QAAG,CAAC,mBAAS,KAAM,mBAAS,OAAzB,EAAmC,mBAAS,OAAQ,QAAG,CAAC,mBAAS,KAAM,mBAAS,OAAzB,CAAkC,GAAE,CAA/G,CAArB;SAHF;AAMA,YAAc,CAAV,eAAU,GAAE,CAAF,CAA6B,IAAjB,CAAF,CAAE,GAAE,kBAAU,CAAC,CAAD,CAAZ,CAAP,IAAoC,CAAP,gBAAO,GAAE,eAAF,CAAvD;AAEE,yBAAU,gBAAO,GAAE,CAAnB;AACA,4BAAa,aAAQ,CAAC,mBAAS,MAAO,QAAG,CAAC,mBAAS,KAAM,mBAAS,OAAzB,CAAkC,GAAE,CAAF,CAAK,mBAAS,OAAQ,QAAG,CAAC,mBAAS,KAAM,mBAAS,OAAzB,CAA/E,CAArB;SAHF;AAMA,YAAI,CAAE,GAAQ,CAAN,eAAM,GAAE,EAAF,CAAd;AAEE,0BAAW,iBAAQ,GAAE,CAArB;AACA,4BAAa,aAAQ,CAAC,QAAG,CAAC,mBAAS,MAAO,mBAAS,MAA1B,EAAmC,mBAAS,KAAM,QAAG,CAAC,mBAAS,MAAO,mBAAS,MAA1B,CAAkC,GAAE,CAAF,CAAK,mBAAS,OAAzG,CAArB;SAHF;AAMA,YAAc,CAAV,eAAU,GAAE,CAAF,CAA4B,IAAhB,CAAF,CAAE,GAAE,iBAAS,CAAC,CAAD,CAAX,CAAP,IAAoC,CAAR,iBAAQ,GAAE,eAAF,CAAvD;AAEE,0BAAW,iBAAQ,GAAE,CAArB;AACA,4BAAa,aAAQ,CAAC,QAAG,CAAC,mBAAS,MAAO,mBAAS,MAA1B,CAAkC,GAAE,CAAF,CAAK,mBAAS,KAAM,QAAG,CAAC,mBAAS,MAAO,mBAAS,MAA1B,EAAmC,mBAAS,OAAzG,CAArB;SAHF;OApBF;AAHmC;AAlwCC;AAAX;AAEzB;AAAO;AACP;AACA;AACA;AACA;AAAI;AAEJ,eAAU;AAEV,UAAG,CAAI,aAAP,EACE,aADF;AAGA,gBAAY,4BAAY,IAAG,aAAH;AACxB,eAAU,CAAC;AACX,eAAU,CAAC;AAGb;AACA;AAGE,UAAa,CAAT,QAAS,KAAE,IAAF,CAAQ,IAAa,CAAT,QAAS,KAAE,OAAF,CAAlC,EACE,aADF;AAGA;AAEF;AACA;AACA;AACA;AACA;OANE,QAQmB,EAAR,CAAJ,GAAI,KAAE,IAAF,CAAQ,IAAQ,CAAJ,GAAI,KAAE,IAAF,CAAR,CARnB;AAWF;AACA;AACA;AACA;AACA;AACA;AAGE,UAAQ,CAAJ,GAAI,KAAE,IAAF,CAAQ,IAAI,oBAApB;AAEE,2BAAc,CAAC,IAAK;;;;aAAQ;;;;YAAd;OAFhB;AAKA,UAAW,CAAP,MAAO,KAAE,CAAC,CAAH,CAAM,IAAW,CAAP,MAAO,KAAE,CAAC,CAAH,CAA5B,EACE,aADF;AAGA,UAAG,CAAI,cAAS,CAAC,MAAO,GAAE,eAAF,CAAa,MAAO,GAAE,eAA9B,CAAhB;AAEE;OAFF;AAKA,qBAAU,CAAC,MAAO,GAAE,eAAF,CAAa,MAAO,GAAE,eAA9B;AAEV,UAAW,CAAC,iBAAD,SAAc,IAAI,aAA7B;AAEE,yBAAW,CAAC,KAAM,MAAO,GAAE,eAAF,CAAa,MAAO,GAAE,eAApC;OAFb;AAKA,UAAY,kBAAD,QAAX;AAEE,YAAG,kBAAH;AAEE,cAAc,CAAV,0BAAU,IAAG,aAAH,CAAY,IAAI,gBAAW,CAAC,cAAI,aAAL,CAAzC;AAEE;AACA;WAHF;;AAQA,cAAG,OAAH;AAEE,iBAAM,kBAAa;AACnB,gCAAe,CAAC,EAAD;WAGf,MAAA,oBAAe,CAAC,kBAAD;;OAlBrB;AAsBA,UAAI,GAAI,KAAE,IAAV;AAEE,aAAM,GAAG;AACT,6BAAiB;AAEjB,YAAI,OAAJ;AACE,2BAAY,CAAC,EAAD;AAEZ,cAAA,iBAAY,CAAC,GAAD;OARhB;AAtFyB;AAAW;AA1FK;AAAhB;AAEzB;AAAO;AACP;AACA;AACA;AAAK;AACL;AACA;AACA;AAGA,eAAU;AAEV,gBAAY,4BAAY,IAAG,aAAH;AACxB,eAAU,CAAC;AACX,eAAU,CAAC;AAEX,WAAM;AAGR;AAGE,UAAG,GAAG,QAAS,KAAE,MAAjB;AAEE,YAAG,GAAG,cAAC,MAAD,CAAQ,KAAE,IAAhB;AAEE,eAAM;SAGR,UAAG,GAAG,cAAC,MAAD,CAAQ,KAAE,IAAhB;AAEE,eAAM;SAFR;OAPF;AAaA;AAEF;AACA;AACA;AACA;AACA;OANE,QAQmB,EAAR,CAAJ,GAAI,KAAE,IAAF,CAAQ,IAAQ,CAAJ,GAAI,KAAE,IAAF,CAAR,CARnB;AAYF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,UAAW,CAAP,MAAO,KAAE,CAAC,CAAH,CAAM,IAAW,CAAP,MAAO,KAAE,CAAC,CAAH,CAA5B,EACE,aADF;AAGA,aAAQ;AACR,aAAQ;AAER,UAAG,GAAI,KAAE,cAAT;AAEE,eAAQ,MAAO,GAAE,eAAF;OAFjB;AAKA,UAAG,GAAI,KAAE,cAAT;AAEE,eAAQ,MAAO,GAAE,eAAF;OAFjB;AAKA,UAAG,EAAG,KAAE,mCAAR;AAEE,wBAAW,CAAC,KAAK,KAAK,oCAAX;AACX,6BAAgB,CAAC,KAAK,KAAM,oCAAZ;OAGlB,UAAG,EAAG,KAAE,oCAAR;AAEE,wBAAW,CAAC,KAAK,KAAM,mCAAZ;AACX,6BAAgB,CAAC,KAAK,KAAM,mCAAZ;OAHlB;AAMA,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,KAAM,IAAb,CADlB;AAtFyB;AAAgB;AA2nBD;AAAf;AAEzB;AAAQ;AACR;AAAG;AACH;AACA;AACA;AACA;AAEA,eAAU;AAEV,UAAG,CAAI,aAAP,EACE,aADF;AAGA,WAAM,wBAAmB,CAAC,KAAD;AAEzB,UAAG,EAAG,KAAG,0CAAT,EACE,aADF;AAGA,eAAU,CAAC;AACX,eAAU,CAAC;AAEX,WAAqB,KAAK;AAC1B,WAAM;AAEN,UAAG,EAAG,IAA0B,CAArB,sBAAS,CAAC,EAAE,QAAH,CAAY,KAAE,KAAF,CAAhC;AAEE,aAAqB,EAAE;OAFzB;AAMF;AACA;AACA;AACA;AACA;AACA;AAGE,2BAAiB,EAAG,KAAE,kBAAF;AAEpB,UAAW,CAAC,kBAAD,SAAyD,IAArC,CAAI,kBAAR,IAAkC,CAAP,MAAO,KAAG,CAAC,CAAJ,CAAZ,IAA+B,CAAP,MAAO,KAAG,CAAC,CAAJ,CAAhF;AAEE,sBAxlGsC;OAslGxC;AAKA,UAAG,CAAI,cAAS,CAAC,MAAO,GAAE,eAAF,CAAa,MAAO,GAAE,eAA9B,CAAhB,EACE,aADF;AAGA,UAAW,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,IAAG,CAAH,CAA7B;AAEE,YAAI,4BAAY,IAAG,aAAnB;AACE,4BAAa,aAAQ,CAAC,gBAAW,MAAO,GAAE,eAAF,CAAa,cAAS,GAAE,CAAF,CAAK,MAAO,GAAE,eAAvD,CAArB;AAEA,gCAAa,aAAQ,CAAC,MAAO,GAAE,eAAF,CAAa,MAAO,GAAE,eAAF,CAAa,MAAO,GAAE,eAAF,CAAa,MAAO,GAAE,eAAtE,CAArB;AAEF,YAAI,8BAAc,IAAG,aAArB;AAEE,yBAAU,EAAV,GAAgB,MAAO,GAAE,eAAF;AACvB,yBAAU,EAAV,GAAgB,MAAO,GAAE,eAAF;;AAIvB,yBAAU,EAAV,GAAgB,CAAC;AACjB,yBAAU,EAAV,GAAgB,CAAC;;OAfrB;AAmBA,qBAAU,CAAC,KAAK,SAAU,KAAK,SAAU;;;;WAAG;;;;UAAlC;AAEV,WAA6B,WAAvB,4BAAuB,CAAC,KAAD;AAE7B,oBAAS,CAAC,GAAI,eAAI,gBAAK,CAAC,CAAD,EAAK,gBAAK,CAAC,CAAD,CAAxB;AAxEgB;AAAe;AAsvGA;AAAf;AAEzB;AAAQ;AACR;AAAG;AACH;AAEA,eAAU,CAAC;AACX,eAAU,CAAC;AAGb;AACA;AACA;AACA;AACA;AACA;AAGE,UAAW,CAAP,MAAO,IAAG,CAAH,CAAgD,IAA9B,CAAP,MAAO,IAAG,CAAH,CAAZ,IAAoC,CAAb,eAAU,EAAG,IAAG,CAAH,CAAlB,IAA0C,CAAb,eAAU,EAAG,IAAG,CAAH,CAA7E,EACE,kBAAa,aAAQ,CAAC,eAAU,GAAI,eAAU,GAAI,MAAO,GAAE,eAAF,CAAa,MAAO,GAAE,eAA1D,CAArB,CADF;AAGA,eAAU;AAEV,qBAAU,CAAC,KAAK,SAAU,KAAK,SAAU;;;;WAAG;;;;UAAlC;AAEV,WAA6B,WAAvB,4BAAuB,CAAC,KAAD;AAE7B,oBAAS,CAAC,eAAI,gBAAK,CAAC,CAAD,EAAK,gBAAK,CAAC,CAAD,CAApB;AA3BgB;AAAe;AA8BF;AAAb;AAEzB;AAAG;AACH;AACA;AAGF;AAGE,qBAAU,EAAV,GAAgB,CAAC;AACjB,qBAAU,EAAV,GAAgB,CAAC;AACjB,eAAU;AAEV,WAAK;AACL,WAAK,aAAL,GAAsB;AAEtB,qBAAU,CAAC,KAAK,SAAU,KAAK,SAAU;;;;WAAG;;;;UAAlC;AAEV,WAA6B,WAAvB,4BAAuB,CAAC,KAAD;AAC7B,WAAM,wBAAmB,CAAC,KAAD;AAEzB,kBAAO,CAAC,GAAI,eAAI,gBAAK,CAAC,CAAD,EAAK,gBAAK,CAAC,CAAD,CAAxB;AAtBkB;AAAa;AAtkHA;AAAb;AAEzB;AACA;AAAO;AACP;AACA;AACA;AAEA,eAAU;AACV,UAAG,CAAI,aAAP,EACE,aADF;AAGA,WAAK,aAAL,GAAsB;AAEtB,WAAK;AAEL,UAAK;AACL,eAAU;AAGZ;AAGE,UAAI,sBAAS,CAAC,KAAK,IAAN,CAAY,KAAE,cAA3B,EACE,aADF;AAGA,UAAG,CAAI,KAAP;AAEE,YAAK,eAAU,CAAC,KAAK,K9D5kFqC,I8D4kF3C;AAEf,iBAAiB,KAAK,IAAN,OAAY,KAAE,CAAF;AAE5B,aAAgC,WAA1B,+BAA0B,CAAC,KAAD;AAEhC,YAAY,eAAD,QAAX,EACE,eAAS,CAAC,KAAM;;;;aAAG,cAAV,CADX;OARF;AAYA,eAAU;AACV,eAAU;AAEV,UAAW,CAAP,MAAO,KAAE,CAAC,CAAH,CAAmD,IAAjC,CAAP,MAAO,KAAE,CAAC,CAAH,CAAZ,IAAgC,CAAT,cAAS,GAAE,eAAF,CAAd,IAAyC,CAAT,cAAS,GAAE,eAAF,CAA5E;AAEE,iBAAU;AACV,iBAAU;AACV,oBAAO,eAAP;AACA,oBAAO,eAAP;AACe,yBAAa;OAN9B;AAYA,UAAM,CAAF,CAAE,IAAG,cAAC,GAAI,GAAI,GAAI,EAAb,CAAH,CAAqB,IAAI,CAAI,MAAnC;AAEE,aAAK;AACL,sBAnzFsC;AAozFtC;OAJF;AAQA,UAAG,CAAI,cAAqC,IAArB,CAAF,CAAE,IAAG,cAAC,GAAI,GAAI,GAAI,EAAb,CAAH,CAAP,IAAgC,CAAI,MAApD;AAEE,aAAK;AACL,sBA3zFsC;OAwzFxC;AAOA,UAAM,CAAF,CAAE,KAAE,EAAF,CAAM,IAAI,CAAI,MAApB;AAEE;OAFF;AAKA,UAAG,CAAI,cAA8E,IAAjE,CAAI,MAAR,IAAmB,KAAK,SAAT,IAAuB,CAAe,CAAP,CAAF,CAAE,IAAG,EAAH,CAAO,IAAO,CAAF,CAAE,IAAG,GAAH,CAAP,CAAnB,IAAsD,CAAd,8BAAc,IAAG,aAAH,CAAxG;AAGE,YAAI,CAAE,KAAE,EAAR;AAEE,sBAAO,cAAS,GAAE,CAAlB;AACA,4BAAa,aAAQ,CAAC,cAAK,OAAQ,cAAK,aAAnB,CAArB;AAEA,cAAG,aAAI,IAAU,CAAP,gBAAO,GAAE,yBAAF,CAAjB,EACE,eAAU,aAAI,GAAE,yBAAhB,CADF;SALF;AAUA,YAAI,CAAE,KAAE,EAAR;AAEE,sBAAO,eAAP;AACA,4BAAa,aAAQ,CAAC,cAAK,OAAQ,cAAK,aAAnB,CAArB;AAEA,cAAG,aAAI,GAAE,gBAAT,EACE,eAAU,eAAV,CADF;SALF;AAUA,YAAM,CAAF,CAAE,KAAE,EAAF,CAAM,IAAS,CAAJ,aAAI,GAAE,eAAF,CAArB;AAEE,cAAG,aAAI,KAAE,QAAG,CAAC,mBAAS,KAAM,mBAAS,OAAzB,CAAZ;AACE,qBAAU,QAAG,CAAC,mBAAS,KAAM,mBAAS,OAAzB;AAEb,yBAAU,QAAG,CAAC,mBAAS,KAAM,mBAAS,OAAzB;AAEf,sBAAO,aAAI,GAAE,CAAb;AACA,4BAAa,aAAQ,CAAC,mBAAS,MAAO,OAAQ,mBAAS,OAAQ,aAA1C,CAArB;AAEA,cAAG,aAAI,GAAE,gBAAT,EACE,eAAU,gBAAO,GAAE,CAAnB,CADF;SAVF;AAeA,YAAM,CAAF,CAAE,KAAE,EAAF,CAAM,IAAS,CAAJ,aAAI,GAAW,CAAT,cAAS,GAAE,CAAF,CAAX,CAArB;AAEE,cAAG,aAAI,KAAE,QAAG,CAAC,mBAAS,KAAM,mBAAS,OAAzB,CAAZ;AACE,qBAAU,QAAG,CAAC,mBAAS,KAAM,mBAAS,OAAzB;AAEb,yBAAU,QAAG,CAAC,mBAAS,KAAM,mBAAS,OAAzB;AAEf,sBAAO,aAAI,GAAE,CAAb;AACA,4BAAa,aAAQ,CAAC,mBAAS,MAAO,OAAQ,mBAAS,OAAQ,aAA1C,CAArB;AAEA,cAAG,aAAI,GAAS,CAAP,gBAAO,GAAE,yBAAF,CAAhB,EACE,eAAU,gBAAO,GAAE,CAAnB,CADF;SAVF;AAeA,YAAM,CAAF,CAAE,KAAE,EAAF,CAAM,IAAS,CAAJ,aAAI,GAAE,eAAF,CAArB;AAEE,cAAG,aAAI,KAAE,QAAG,CAAC,mBAAS,MAAO,mBAAS,MAA1B,CAAZ;AACE,qBAAU,QAAG,CAAC,mBAAS,MAAO,mBAAS,MAA1B;AAEb,yBAAU,QAAG,CAAC,mBAAS,MAAO,mBAAS,MAA1B;AAEf,sBAAO,aAAI,GAAE,CAAb;AACA,4BAAa,aAAQ,CAAC,OAAQ,mBAAS,KAAM,cAAK,mBAAS,OAAtC,CAArB;AAEA,cAAG,aAAI,GAAE,iBAAT,EACE,gBAAW,iBAAQ,GAAE,CAArB,CADF;SAVF;AAeA,YAAM,CAAF,CAAE,KAAE,EAAF,CAAM,IAAS,CAAJ,aAAI,GAAW,CAAT,cAAS,GAAE,CAAF,CAAX,CAArB;AAEE,cAAG,aAAI,KAAE,QAAG,CAAC,mBAAS,MAAO,mBAAS,MAA1B,CAAZ;AACE,qBAAU,QAAG,CAAC,mBAAS,MAAO,mBAAS,MAA1B;AAEb,yBAAU,QAAG,CAAC,mBAAS,MAAO,mBAAS,MAA1B;AAEf,sBAAO,aAAI,GAAE,CAAb;AAEA,4BAAa,aAAQ,CAAC,OAAQ,mBAAS,KAAM,cAAK,mBAAS,OAAtC,CAArB;AAEA,cAAG,aAAI,IAAW,CAAR,iBAAQ,GAAE,yBAAF,CAAlB,EACE,gBAAW,iBAAQ,GAAE,CAArB,CADF;SAXF;;AAkBA,YAAM,CAAF,CAAE,KAAE,EAAF,CAAM,IAAI,CAAI,MAApB;AAEE,mBAAU,cAAS,GAAE,CAAF;SAFrB;AAMA,YAAM,CAAF,CAAE,KAAE,EAAF,CAAM,IAAI,CAAI,MAApB;AAEE,mBAAU;SAFZ;AAMA,YAAM,CAAF,CAAE,KAAE,EAAF,CAAM,IAAI,CAAI,MAApB;AAEE,cAAQ,CAAJ,aAAI,GAAE,CAAF,CAAI,IAAY,CAAT,cAAS,GAAE,CAAF,CAAxB;AAEE,qBAAU,aAAI,GAAE,CAAF;;AAId,qBAAU,cAAS,GAAE,CAAF;;SARvB;AAaA,YAAM,CAAF,CAAE,KAAE,EAAF,CAAM,IAAI,CAAI,MAApB;AAEE,cAAO,CAAJ,aAAI,GAAE,CAAF,CAAI,GAAE,eAAb;AAEE,qBAAU,aAAI,GAAE,CAAF;;AAId,qBAAU;;SARd;AAaA,YAAG,CAAI,cAA4C,IAA5B,CAAF,CAAE,KAAE,EAAF,CAAP,IAAsB,CAAJ,aAAI,GAAE,eAAF,CAAT,IAA0B,CAAI,MAA3D;AAEE,mBAAU,aAAI,GAAE,CAAF;SAFhB;AAMA,YAAG,CAAI,cAA+C,IAA/B,CAAF,CAAE,KAAE,EAAF,CAAP,IAAsB,CAAJ,aAAI,GAAW,CAAT,cAAS,GAAE,CAAF,CAAX,CAAT,IAA6B,CAAI,MAA9D;AAEE,mBAAU,aAAI,GAAE,CAAF;SAFhB;AAMA,YAAG,CAAI,cAA4C,IAA5B,CAAF,CAAE,KAAE,EAAF,CAAP,IAAsB,CAAJ,aAAI,GAAE,eAAF,CAAT,IAA0B,CAAI,MAA3D;AAEE,mBAAU,aAAI,GAAE,CAAF;SAFhB;AAMA,YAAG,CAAI,cAA+C,IAA/B,CAAF,CAAE,KAAE,EAAF,CAAP,IAAsB,CAAJ,aAAI,GAAW,CAAT,cAAS,GAAE,CAAF,CAAX,CAAT,IAA6B,CAAI,MAA9D;AAEE,mBAAU,aAAI,GAAE,CAAF;SAFhB;AAKA,YAAG,CAAI,cAAsC,IAAzB,cAAS,CAAC,OAAO,MAAR,CAAb,IAAiC,CAAI,MAArD;AAEE,yBAAU,CAAC,OAAO,MAAR;AAEV,cAAM,CAAF,CAAE,KAAE,EAAF,CAAM,IAAS,CAAJ,aAAI,GAAE,gBAAF,CAArB,EACG,eAAU,gBAAO,GAAE,CAAnB,CADH;AAGA,cAAM,CAAF,CAAE,KAAE,EAAF,CAAM,IAAS,CAAJ,aAAI,GAAE,gBAAF,CAArB,EACG,eAAU,aAAV,CADH;AAGA,cAAM,CAAF,CAAE,KAAE,EAAF,CAAM,IAAS,CAAJ,aAAI,IAAU,CAAP,gBAAO,GAAE,yBAAF,CAAV,CAArB,EACG,eAAU,aAAV,CADH;AAGA,cAAM,CAAF,CAAE,KAAE,EAAF,CAAM,IAAS,CAAJ,aAAI,IAAU,CAAP,gBAAO,GAAE,yBAAF,CAAV,CAArB,EACG,eAAU,gBAAO,GAAE,CAAnB,CADH;AAGA,cAAM,CAAF,CAAE,KAAE,EAAF,CAAM,IAAS,CAAJ,aAAI,GAAE,iBAAF,CAArB,EACG,gBAAW,iBAAQ,GAAE,CAArB,CADH;AAGA,cAAM,CAAF,CAAE,KAAE,EAAF,CAAM,IAAS,CAAJ,aAAI,IAAW,CAAR,iBAAQ,GAAE,yBAAF,CAAX,CAArB,EACG,gBAAW,iBAAQ,GAAE,CAArB,CADH;AAGA,cAAI,CAAE,KAAE,EAAR,EACG,eAAU,aAAI,GAAE,yBAAhB,CADH;AAGA,cAAI,CAAE,KAAE,EAAR,EACG,eAAU,eAAV,CADH;SAzBF;AA8BA,YAAM,CAAF,CAAE,KAAE,GAAF,CAAmD,IAAxC,CAAI,cAAR,IAAgC,CAAV,0BAAU,IAAG,aAAH,CAAf,IAA+B,gBAAW,CAAC,cAAI,aAAL,CAAxE;AAEE;SAFF;AAKA,YAAO,CAAF,CAAE,IAAG,EAAH,CAA8E,IAAhE,CAAF,CAAE,IAAG,GAAH,CAAP,IAAoB,MAAJ,IAAe,CAAI,cAAR,IAAgC,CAAV,0BAAU,IAAG,aAAH,CAAf,IAA+B,gBAAW,CAAC,cAAI,aAAL,CAApG;AAEE,wBAAS,CAAC,KAAK,IAAN;SAFX;AAKA,YAAM,CAAF,CAAE,KAAE,EAAF,CAAiC,IAAZ,CAAV,0BAAU,IAAG,aAAH,CAAf,IAA+B,gBAAW,CAAC,cAAI,aAAL,CAAtD;AAEE,cAAG,cAAH;AAEE,yBAAQ,CAAC,iBAAD;WAGR;SAPJ;;AApQuB;AAAa;AAoZG;AAAhB;AAEzB,eAAU;AACV,UAAG,CAAI,aAAP,EACE,aADF;AAGA,UAAW,CAAC,aAAD,SAAU,IAAI,CAAI,gBAA7B,EACE,aAAO,CAAC,IAAD,CADT;AAGA,yBAAe;AAEf,UAAQ,CAAJ,aAAI,KAAE,CAAC,CAAH,CAAgG,IAAjF,CAAJ,aAAI,KAAE,CAAC,CAAH,CAAT,IAAmB,CAAI,mBAAR,IAAoC,CAAV,eAAU,GAAE,cAAF,CAAf,IAA0C,CAAV,eAAU,GAAE,cAAF,CAAf,IAA+B,cAAS,CAAC,gBAAW,eAAZ,CAArH;AAEE,uBAAU,CAAC,gBAAW,eAAZ;OAFZ;AAXyB;AAAgB;AARD;AAAf;AAEzB,eAAU;AAEV,UAAW,CAAC,YAAD,SAAS,IAAI,CAAI,cAA5B,EACE,YAAM,CAAC,IAAD,CADR;AAJyB;AAAe;AAfH;AAAZ;AAEzB,UAAG,eAAU,GAAE,CAAf;AAEE,sBAAS,cAAc,UAAvB,GAAqC,iBAAY,cAAc,cAAc;OAF/E;AAKA,UAAG,eAAU,GAAE,CAAf,EACE,cAAS,cAAc,cAAc,WAArC,GAAoD,iBAAY,cAAc,cAAc,WAD9F;AAGA;AAEA,eAAU;AAZe;AAAY;AAtZE;AAAd;AAEzB,UAAG,cAAH;AAEE,sBAtuFsC;OAouFxC;AAIA,eAAU;AANe;AAAc;AASI;AAAlB;AAEzB;AAEA,WAAK,aAAL,GAAsB;AACtB,WAAK;AACL,eAAU;AAEV,UAAG,mBAAc,CAAC,KAAK,IAAN,CAAjB;AAEE,YAAQ,oBAAC,eAAU,CAAC,KAAK,KAAM,KAAZ,CAAX;AACR,YAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,KAAM;;;;YAAP,CADZ;OAHF;AARyB;AAAkB;AA7HF;AAEzC,UAAG,cAAH,EACE,cAjnFsC,MAgnFxC;AAFyC;AAMI;AAE7C,UAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,KAAM,GAAP,CADZ;AAGA,UAAQ,SAAD,aAAM,KAAE,EAAf,EACE,iBADF;AAEA,UAAQ,SAAD,aAAM,KAAE,EAAf,EACE,aAAQ,CAAC,iBAAD,CADV;AAP6C;AAuZL;AAExC,UAAG,cAAH,EACE,cA9gGsC,MA6gGxC;AAFwC;AAaI;AAE5C,UAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,KAAM,GAAP,CADZ;AAGA,UAAQ,SAAD,aAAM,KAAE,EAAf,EACE,iBADF;AAGA,UAAQ,SAAD,aAAM,KAAE,EAAf,EACE,aAAQ,CAAC,iBAAD,CADV;AAR4C;AAPJ;AAExC,UAAG,cAAH,EACE,cAphGsC,MAmhGxC;AAFwC;AAmBI;AAE5C,UAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,KAAM,GAAP,CADZ;AAGA,UAAQ,SAAD,aAAM,KAAE,EAAf,EACE,iBADF;AAL4C;AAnpBA;AAAnB;AAEzB;AAAQ;AACR;AAEA,eAAU,CAAC;AACX,eAAU,CAAC;AAGb;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,UAAW,CAAP,MAAO,KAAG,CAAC,CAAJ,CAAO,IAAY,CAAP,MAAO,KAAG,CAAC,CAAJ,CAA9B;AAEE,YAAG,CAAI,gBAAW,CAAC,MAAO,GAAE,eAAF,CAAa,MAAO,GAAE,eAA9B,CAAlB;AAGJ;AACA;SAGM,MAAA,iBAAY,CAAC,MAAO,GAAE,eAAF,CAAa,MAAO,GAAE,eAAF,CAAa,GAAzC;OAThB;AApByB;AAAmB;AAzBF;AAAjB;AAEzB;AAAQ;AACR;AAEA,eAAU,CAAC;AACX,eAAU,CAAC;AAGb;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,UAAW,CAAP,MAAO,KAAG,CAAC,CAAJ,CAAO,IAAY,CAAP,MAAO,KAAG,CAAC,CAAJ,CAA9B;AAEE,0BAAa,CAAC,MAAO,GAAE,eAAF,CAAa,MAAO,GAAE,eAA9B;OAFf;AAnByB;AAAiB;AAqVF;AAAf;AAEzB;AAEA;AAGF;AACA;AACA;AACA;AAGE,UAAG,GAAI,IAAG,CAAV,EACE,kBAAa,CAAC,GAAD,CADf;AAGA,eAAU;AAhBe;AAAe;AAxBE;AAAjB;AAEzB;AACA;AAEA;AAEA,iBAAY,YAAM,GAAE,KAAF;AAClB,oBAAgB,gBAAW,IAAG,cAAC,wCAAD,CAAH;AAE7B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,eAAU;AArBe;AAAiB;AAtDJ;AAAb;AAEzB,eAAU;AACV,UAAG,CAAI,cAAS,IAAY,CAAC,iBAAD,SAA5B,EACiB,iBAAa,MAAM,EADpC;AAHyB;AAAa;AAOG;AAAhB;AAEzB;AAAE;AAAE;AAAG;AACP;AAAG;AAEH;AAEA,WAAM,KAAK;AAEX,aAAc,CAAC,EAAD,SAAoC,IAAvB,CAAH,EAAG,KAAG,IAAI,iBAAC,EAAR,CAAR,IACb,CAAyB,CAAR,CAAX,EAAE,QAAS,KAAE,IAAF,CAAQ,IAAe,CAAX,EAAE,QAAS,KAAE,IAAF,CAAf,CAD/B,EAEE,KAAM,EAAE;AAEV,UAAgB,CAAL,CAAC,EAAD,SAAK,IAAgB,CAAX,EAAE,QAAS,KAAE,IAAF,CAAhB,CAAwB,IAAe,CAAX,EAAE,QAAS,KAAE,IAAF,CAAvD;AAGF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGI,YAAG,CAAK,EAAE,UAAU,SAAS,CAAC,OAAD,CAA7B;AAEE,eAAM;AACN,eAAM;SAHR;AAMA,YAAY,GAAD,QAAX;AAEE,cAAG,cAAG,CAAC,iBAAkB,GAAG,GAAtB,CAA2B,GAAE,CAAnC,EACE,KAAM,eADR;AAEA,cAAG,cAAG,CAAC,gBAAiB,GAAG,GAArB,CAA0B,GAAE,CAAlC,EACE,KAAM,eADR;SAJF;AAQA,YAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,CAAE,GAAE,EAAF,CAAM,CAAE,GAAE,EAAnB,CADhB;OA3BF;AA8BA,eAAU;AA3Ce;AAAgB;AAh/BF;AAAd;AAEzB;AACA;AAEA,YAAyB,KAAK;AAE9B,UAAe,CAAX,GAAG,OAAQ,IAAG,GAAH,CAAQ,IAAgB,CAAX,GAAG,OAAQ,IAAG,GAAH,CAAvC;AAEE,YAAK,IAAO,MAAY,CAAC,GAAG,aAAJ;AAExB,2BAAY,CAAC,EAAG,cAAJ;AAEZ,YAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,IAAD,CADtB;OANF;AAUA,eAAU;AAjBe;AAAc;AA1MD;AAAb;AAEzB;AACA;AAEA,YAAyB,KAAK;AAE9B,UAAe,CAAX,GAAG,OAAQ,IAAG,GAAH,CAAQ,IAAgB,CAAX,GAAG,OAAQ,IAAG,GAAH,CAAvC;AAEE,aAAM,uBAAW,QAAC;AAElB,UAAE,WAAC,CAAQ,GAAG,aAAX;AAEH;AACE,iCAAkB,CAAC,EAAD;AADpB;AAGE,YAAG,eAAH,EAAG;AAHL;AAMA,YAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,IAAD,CADtB;OAZF;AAgBA,eAAU;AAvBe;AAAa;AAwWF;AAAX;AAEzB,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,IAAD,CADpB;AAGA,eAAU;AALe;AAAW;AAzIG;AAEvC;AAEA,UAAY,mBAAD,QAAX;AAEE,mBAAW,IAAX,GAAmB;AACnB,2BAAa,CAAC,KAAM,kEAAP;OAHf;AAJuC;AA8GD;AAEtC,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAM,KAAM,KAAM,OAAnB,CADd;AAFsC;AANC;AAEvC,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,KAAM,IAAb,CADf;AAFuC;AA7FF;AAGtC;AAEC,wBAAc;AAEd,eAAS,QAAc,OAAT,cAAS,GAAE,CAAF,kBAAvB;AAAI;AAEF,gCAAmB,CAAC,EAAE,KAAK,CAAE,KAAE,IAAZ;;AAGrB,4BAAkB;AAElB,UAAY,iBAAD,QAAX,EACE,iBAAW,CAAC,KAAM,KAAM,KAAM,cAAnB,CADb;AAGA,eAAI,CAAC,KAAM,cAAP;AAjBiC;AA4dD;AAAX;AAEzB,eAAU,aAAK,CAAC,KAAK,IAAN;AAEf,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,KAAM,KAAM;;;;UAAnB,CADf;AAJyB;AAAW;AAy/FC;AAGrC,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,KAAM,KAAM,MAAnB,CADf;AAHqC;AAPQ;AAG7C,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,KAAM,KAAM,SAAU,MAA7B,CADvB;AAH6C;AAz/FA;AAG7C,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,KAAM,KAAM,SAAU,MAA7B,CADvB;AAH6C;AAtWF;AAE3C,oBAvyDwC;AAqyDG;AAmGN;AAGrC,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,KAAM,KAAM,OAAQ,MAA3B,CADf;AAHqC;AAPK;AAG1C,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,KAAM,KAAM,OAAQ,OAAQ,UAAnC,CADhB;AAH0C;AAZD;AAGzC;AAEA,UAAY,uBAAD,QAAX;AAEE,mBAAW,QAAX,GAAuB;AACvB,+BAAiB,CAAC,KAAM,KAAM,KAAM,OAAQ,OAAQ,+DAAnC;OAHnB;AALyC;AA2BF;AAGvC,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,KAAM,KAAM,OAAnB,CADjB;AAHuC;AArgCD;AAEtC,UAAG,mBAAH;AAEE,aAAK,UAAU,IAAI,CAAC,UAAD;OAFrB;AAFsC;AA2mGG;AAEzC,UAAG,mBAAH,EACE,KAAK,UAAU,OAAO,CAAC,UAAD,CADxB;AAFyC;AAlkGC;AAE1C;AAEA,WAAqB,QAAQ;AAE7B,UAAW,CAAC,EAAD,SAAK,IAAgB,CAAX,EAAE,QAAS,KAAE,OAAF,CAAhC;AAEE,YAAG,EAAE,aAAa,CAAC,MAAD,CAAS,IAAuC,CAAlC,sBAAS,CAAC,EAAE,aAAa,CAAC,MAAD,CAAhB,CAAyB,KAAE,UAAF,CAAlE;AAEE,YAAE,iBAAiB,CAAC,QAAS,yBAAV;SAFrB;OAFF;AAN0C;AAeE;AAE5C;AAEA,WAAqB,QAAQ;AAE7B,UAAW,CAAC,EAAD,SAAK,IAAgB,CAAX,EAAE,QAAS,KAAE,OAAF,CAAhC;AAEE,YAAG,EAAE,aAAa,CAAC,MAAD,CAAS,IAAuC,CAAlC,sBAAS,CAAC,EAAE,aAAa,CAAC,MAAD,CAAhB,CAAyB,KAAE,UAAF,CAAlE;AAEE,YAAE,oBAAoB,CAAC,QAAS,yBAAV;SAFxB;OAFF;AAN4C;AAuzBJ;AAExC;AAAG;AAAG;AAAM;AAGZ;AAEA,UAAY,uBAAD,QAAX;AAEE;AAEA,aAAM;AACN,aAAM;AAEN,gBAAS,eAAM,GAAE,EAAF;AACf,gBAAS,gBAAO,GAAE,EAAF;AAEhB,YAAY,iBAAD,QAAX;AAEiB,2BAAY,cAAc,cAAe,MAAM,YAAY,CAAC,QAAQ,qBAAQ,CAAC,KAAD,CAAO,GAAC,IAAzB;AAC3D,2BAAY,cAAc,cAAe,MAAM,YAAY,CAAC,SAAS,qBAAQ,CAAC,KAAD,CAAO,GAAC,IAA1B;SAH5E;OAVF;AAPwC;AAqCD;AAEvC,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,OAAP,CADf;AAFuC;AAnNK;AAE5C;AACA;AAAE;AAAE;AACJ;AAAG;AACH;AAAI;AACJ;AAGA,UAAG,eAAH;AACE,yBAAY,QAAQ,SAAC,EAArB;AAEA,6BAAY,QAAQ,SAAC,EAAM,GAAE,eAA7B;AAEF,aAAQ,uBAAW,QAAC;AAEpB,WAAM;AACN,WAAM;AAEN,UAAG,eAAH;AAEE,aAAM;AACN,aAAM;OAHR;AAMA,eAAU;AAEV;AACE,iBAAS,QAAoB,OAAf,QAAQ,SAAC,EAAM,GAAE,CAAF,kBAA7B;AAAI;AAEA,cAAI,iBAAJ,GAAwB;AACxB,cAAI,aAAC,CAAa,eAAb;AACL,cAAI,iBAAC,CAAiB,QAAQ,IAAQ,CAAC,CAAD,CAAjC;AAEL,cAAG,IAAI,SAAC,EAAM,GAAE,MAAhB,EACE,SAAU,IAAI,SAAC,EADjB;AAGA,cAAG,IAAI,SAAC,EAAM,GAAW,CAAT,cAAS,GAAE,EAAF,CAAzB,EACE,iBAAY,IAAI,SAAC,EAAM,GAAE,EAAzB,CADF;AAGA,mBAAS,SAAgB,QAAX,IAAI,SAAC,EAAM,GAAE,CAAF,qBAAzB;AAAI;AAEF,iBAAM,IAAI,IAAQ,CAAC,CAAD;AAClB,4BAAW,CAAC,CAAE,GAAE,EAAF,CAAM,CAAE,GAAE,EAAF,CAAM,KAAK;;;;gBAAtB;AACX,yBAAK,CAAC,CAAE,GAAE,EAAF,CAAM,CAAE,GAAE,EAAF,CAAS,EAApB;AAEL,iBAAM,oBAAY,CAAC,CAAE,GAAE,EAAF,CAAM,CAAE,GAAE,EAAb;AAElB,gCAAe,CAAC,CAAE,GAAE,EAAF,CAAM,CAAE,GAAE,EAAF,CAAM,KAAK,GAAI,EAA1B;AAEf,iBAAM;AACN,iCAAgB,CAAC,CAAE,GAAE,EAAF,CAAM,CAAE,GAAE,EAAF,CAAM,KAAK,GAAI;;;;gBAA1B;AAChB,gBAAG,EAAG,KAAG,EAAT,EACE,EAAE,aAAa,CAAC,QAAQ,EAAT,CADjB;;;AAzBR;AA8BE,YAAK,eAAL,IAAK;AA9BP;AAiCA,UAAG,MAAO,GAAW,CAAT,cAAS,GAAE,EAAF,CAArB,EACE,iBAAY,MAAO,GAAE,EAArB,CADF;AA5D4C;AAmlBT;AAAV;AAEzB;AAEA,eAAU;AAEV,UAAG,2BAAsB,KAAG,EAA5B,EACE,aADF;AAGA,UAAG,CAAgB,CAAX,2BAAW,IAAG,aAAH,CAAnB,EACE,SAAU,sCADZ;AAGA,UAAG,CAAgB,CAAX,2BAAW,IAAG,aAAH,CAAnB,EACE,SAAU,MAAO,GAAE,sCADrB;AAGA,UAAG,iBAAY,KAAE,8CAAjB;AAEE,iBAAU,MAAO,GAAE,8BAAO,CAAC,UAAD,CAAT;AACjB,aAAM,8BAAO,CAAC,eAAD;OAHf;AAMA,eAAU,QAQkB,GARP,EAAF,GAAO,yFAAF,GAA6F,kCAAW,CAAC,mBAAD,CAAb,GAA8B,iBAAD,GAAqB,MAAF,GAAW,IAAF,GAAO,IAAD,GACjK,QADqK,GAC5J,EAAD,GAAI,aAAD,GAAgB,EAAF,GAAO,IAAF,GAAO,IAAD,GACpC,QADwC,GAC/B,EAAD,GAAI,mCAAD,GAAsC,kCAAW,CAAC,oBAAD,CAAb,GAA+B,WAAF,GAAe,kCAAW,CAAC,wBAAD,CAAb,GAAkC,KAAD,GAAO,IAAD,GAChI,QADoI,GAC3H,EAAD,GAAI,mCAAD,GAAsC,kCAAW,CAAC,oBAAD,CAAb,GAA+B,WAAF,GAAe,kCAAW,CAAC,wBAAD,CAAb,GAAkC,KAAD,GAAO,IAAD,GAKhI,QALoI,GAK3H,EAAD,GAAI,4EAAD;AA7BH;AAAU;AA22DC;AAEpC;AACA;AAAE;AAAE;AAAE;AAAG;AAAG;AAAG;AAAG;AAAM;AAAM;AAAc;AAC5C;AAAI;AAAI;AAAM;AACd;AAAO;AACP;AACA;AAAQ;AACR;AAAY;AACZ;AAEA,aAAM,eAAU,SAAC,EAAM,IAAG,cAA1B,EACE,eAAU,IAAI,CAAC,qBAAD;AAEhB,UAAG,YAAQ,KAAE,EAAb;AAEE,uBAAW;AACX,YAAG,YAAQ,KAAE,EAAb,EACE,eAAW,UADb;OAHF;AAOA,UAAG,CAAY,CAAC,UAAD,SAAf;AAEE,YAAG,kBAAS,IAAY,CAAC,uBAAa,kBAAd,SAAxB;AAEE,gBAAsB,uBAAa;SAGnC,YAAsB,QAAQ,cAAc,CAAC,OAAD;AAE9C,WAAG,aAAa,CAAC,KAAM,YAAQ,GAAE,KAAjB;AAEhB,YAAG,2BAAsB,KAAE,EAA3B;AAEE,aAAG,aAAa,CAAC,QAAQ,QAAuB,GAAZ,kBAAF,GAAgB,UAAlC;AAChB,aAAG,MAAM,YAAY,CAAC,kBAAkB,UAAnB;AACrB,aAAG,MAAM,YAAY,CAAC,iBAAiB,KAAlB;AACrB,aAAG,MAAM,YAAY,CAAC,SAAS,KAAV;SAGrB,MAAA,GAAG,aAAa,CAAC,QAAQ,2BAAT;AAElB,qBAAS;AAET,iDAAkB,CAAC,IAAK,WAAM,CAA6B,CAAN,CAAjB,sBAAiB,KAAE,EAAF,CAAM,IAAiB,CAAZ,iBAAY,KAAE,8CAAF,CAAjB,CAAzC;AAElB,sCAAgB,CAAC,kBAAY,GAAE,YAAF,CAAW,eAAU,CAAC,YAAQ,GAAE,KAAX,CAAlC;OAGhB;AAEF,mBAAc,gBAAW,KAAE,wCAAF;AACzB,mBAAc,iBAAY,KAAE,wCAAF;AAC1B,oBAAe,YAAQ,GAAE,KAAF;AAGzB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAIE,uBAAY,aAAa,CAAC,WAAW,qBAAQ,CAAC,cAAD,CAApB;AACV,uBAAa,MAAM,YAAY,CAAC,UAAU,MAAX;AAC9C,uBAAY,iBAAiB,CAAC,QAAQ,oBAAT;AAC7B,uBAAY,iBAAiB,CAAC,YAAY,wBAAb;AAC7B,uBAAY,iBAAiB,CAAC,YAAY,wBAAb;AAC7B,uBAAY,iBAAiB,CAAC,UAAU,sBAAX;AAE7B,oBAAS,iBAAiB,CAAC,QAAQ,yBAAT;AAC1B,oBAAS,iBAAiB,CAAC,QAAQ,yBAAT;AAC1B,uBAAY,iBAAiB,CAAC,QAAQ,yBAAT;AAE7B,6BAAa,YAAY,CAAC,GAAD;AAEzB,WAAM;AACN,WAAM;AAEN,WAAM;AACN,WAAM;AAEN,cAAS,eAAM,GAAE,oBAAF;AACf,cAAS,gBAAO,GAAE,qBAAF;AAEhB,UAAG,iBAAY,KAAE,4CAAjB;AAEE,gBAAS,KAAM,GAAE,CAAF;AACf,gBAAS,KAAM,GAAE,CAAF;OAHjB;AAMA,sBAAiB,KAAM,GAAE,0CAAF;AAEvB,UAAiB,CAAd,oBAAc,GAAE,qBAAF,CAAiB,GAAE,eAApC;AACE,wBAAiB;AAEjB,4BAAiB,KAAM,GAAE,2CAAF;AAEzB,UAAG,gBAAY,KAAG,EAAlB,EACE,SAAU,kCAAW,CAAC,gBAAD,CADvB;AAEA,UAAG,wBAAe,KAAG,EAArB,EACE,YAAa,kCAAW,CAAC,wBAAD,CAD1B;AAKF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAIE,UAAG,eAAU,GAAE,CAAf;AAEE,YAAK;AAGL,YAAG,eAAU,GAAE,CAAf;AAEE,cAAK;AAEX;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;;AAMA;AACA;AACA;AACA;;AAOA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGI,YAAI,eAAU,GAAE,CAAhB;AAEE,mBAAS,QAAe,OAAV,eAAU,GAAE,CAAF,kBAAxB;AAAI;AAGV;AAGQ,qBAAS,SAAe,QAAV,eAAU,GAAE,CAAF,qBAAxB;AAAI;AAGZ;AACA;AAGU,+BAAY,CAAC,qBAAa,CAAC,CAAD,EAAK,EAAnB;;;SAflB;AAqBA,iBAAS,SAAe,QAAV,eAAU,GAAE,CAAF,qBAAxB;AAAI;AAGR;AAGM,mBAAS,uBAAsB,QAAT,cAAS,GAAE,CAAF,qBAA/B;AAAI;AAEF,gBAAK,CAAE,GAAE,eAAF;AAEf;AACA;AAGQ,6BAAY,CAAC,qBAAa,CAAC,CAAD,EAAK,EAAnB;;;OA9FlB;AAmGA,UAAK;AAGL,UAAG,eAAU,GAAE,CAAf;AAEE,YAAK;AAET;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAII,yBAAY,CAAC,qBAAa,CAAC,CAAD,EAAK,EAAnB;AAEZ,iBAAS,uBAAsB,QAAT,cAAS,GAAE,CAAF,qBAA/B;AAAI;AAEF,cAAK,CAAE,GAAE,eAAF;AAEb;AAGM,mBAAS,SAAe,QAAV,eAAU,GAAE,CAAF,qBAAxB;AAAI;AAGV;AACA;AAGQ,6BAAY,CAAC,qBAAa,CAAC,CAAD,EAAK,EAAnB;;;OA7ClB;AAoDA,UAAG,eAAU,KAAE,CAAf;AAGF;AACA;AACA;;AAMA;AACA;AACA;;AAIE,gBAAwB,CAAX,8CAAW,KAAE,gBAAF,CAAc,IAAW,CAAP,0CAAO,KAAE,gBAAF,CAAX;AACtC,gBAA0B,CAAb,gDAAa,KAAE,gBAAF,CAAc,IAAW,CAAP,0CAAO,KAAE,gBAAF,CAAX;AAG1C;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,UAAI,iBAAiB,CAAC,SAAU,2CAAX;AAErB,eAAS,uBAAsB,QAAT,cAAS,GAAE,CAAF,qBAA/B;AAAI;AAEF,YAAK,CAAE,GAAE,eAAF;AAEX;AAGI,iBAAS,uBAAsB,QAAT,cAAS,GAAE,CAAF,qBAA/B;AAAI;AAEF,cAAK,CAAE,GAAE,eAAF;AAGb;AAGM,2BAAY,CAAC,qBAAa,CAAC,CAAD,EAAK,EAAnB;;;AAIhB,uBAAY,cAAc,cAAc,iBAAiB,CAAC,UAAW,wCAAZ;AACzD,uBAAY,iBAAiB,CAAC,QAAQ,oBAAT;AAC7B,uBAAY,iBAAiB,CAAC,OAAO,mBAAR;AAE7B;AAEA,UAAG,cAAS,KAAE,4CAAd,EACE,iBADF;AA1XoC;AA4pCE;AAEtC,UAAG,CAAI,kBAA6B,IAAR,CAAC,UAAD,SAAZ,IAAgC,CAAC,UAAK,kBAAN,SAAhD;AAEE,kBAAK,YAAY,CAAC,UAAK,WAAN;OAFnB;AAIA,mBAAS;AACT;AACA;AACA;AATsC;AArlBE;AAExC;AAAG;AAAG;AAAG;AAAG;AAAM;AAAM;AAAc;AAGtC,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,MADF;AAGA,WAAM;AACN,WAAM;AAEN,WAAM;AACN,WAAM;AAEN,cAAS,eAAM,GAAE,oBAAF;AACf,cAAS,gBAAO,GAAE,qBAAF;AAEhB,UAAG,iBAAY,KAAE,4CAAjB;AAEE,gBAAS,KAAM,GAAE,CAAF;AACf,gBAAS,KAAM,GAAE,CAAF;OAHjB;AAMA,sBAAiB,KAAM,GAAE,0CAAF;AAEvB,UAAiB,CAAd,oBAAc,GAAE,qBAAF,CAAiB,GAAE,eAApC;AACE,wBAAiB;AAEjB,4BAAiB,KAAM,GAAE,2CAAF;AAEzB,UAAc,CAAV,eAAU,GAAE,CAAF,CAAK,IAAgB,CAAX,gBAAW,KAAE,4CAAF,CAAnC;AAGF;AACA;AACA;AACA;AACA;AACA;OARE;AAYA,UAAc,CAAV,eAAU,GAAE,CAAF,CAAK,IAAiB,CAAZ,iBAAY,KAAE,4CAAF,CAApC;AAGF;AACA;AACA;AACA;AACA;AACA;OARE;AA1CwC;AAzME;AAE1C,iCAAsB,CACtB,2PAiMI,GAhMJ,8GAD2P,GAE3P,iCAD8G,GAE9G,0BADiC,GAEjC,wBAD0B,GAG1B,mDAFwB,GAGxB,iBADmD,GAEnD,+CADiB,GAEjB,iDAD+C,GAE/C,wCADiD,GAEjD,0CADwC,GAExC,6CAD0C,GAE1C,SAD6C,GAE7C,OADS,GAET,GADO,GAGP,yCAFG,GAGH,uFADyC,GAGzC,+CAFuF,GAIvF,uDAF+C,GAG/C,2BADuD,GAEvD,yBAD2B,GAG3B,wDAFyB,GAIzB,6DAFwD,GAGxD,6EAD4D,GAE5D,mHAD4E,GAE5E,uEADmH,GAEnH,wEADuE,GAGvE,uFAFwE,GAGxE,iFADuF,GAEvF,cADiF,GAGjF,qFAFc,GAGd,uFADqF,GAGrF,wDAFuF,GAGvF,8DADwD,GAExD,8EAD6D,GAE7D,0EAD6E,GAE7E,2EAD0E,GAE1E,oGAD2E,GAE3E,wFADoG,GAEpG,oFADwF,GAGxF,6DAFoF,GAGpF,yEAD8D,GAE9D,uFADyE,GAGzE,0EAFuF,GAGvF,wFAD0E,GAE1E,SADwF,GAExF,QADS,GAET,OADQ,GAER,MADO,GAEP,IADM,GAGN,oCAFI,GAGJ,qFADoC,GAEpC,MADqF,GAErF,uDADO,GAEP,QADuD,GAEvD,8DADS,GAET,QAD8D,GAE9D,WADS,GAET,QADW,GAEX,6CADS,GAET,QAD6C,GAE7C,MADS,GAET,wBADM,GAEN,MADwB,GAGxB,uCAFO,GAGP,0BADuC,GAEvC,wCAD0B,GAE1B,6BADwC,GAExC,qCAD6B,GAE7B,qCADqC,GAErC,oCADqC,GAErC,0CADoC,GAEpC,0CAD0C,GAE1C,oCAD0C,GAE1C,gCADoC,GAEpC,mCADgC,GAEhC,kCADmC,GAEnC,iCADkC,GAElC,+BADiC,GAEjC,+BAD+B,GAE/B,IAD+B,GAG/B,6BAFI,GAGJ,sCAD6B,GAE7B,kDADsC,GAEtC,kEADkD,GAElD,kCADkE,GAGlE,2FAFkC,GAGlC,oEAD2F,GAG3F,gEAFoE,GAGpE,6BADgE,GAEhE,iEAD6B,GAE7B,IADiE,GAC5D,MAAD,GACJ,6BADW,GAEX,uDAD6B,GAC2B,MAAD,GAEvD,4BAF8D,GAG9D,sCAD4B,GACW,MAAD,GAEtC,2BAF6C,GAG7C,kDAD2B,GACwB,MAAD,GAClD,iCADyD,GACvB,MAAD,GAEjC,2DAFwC,GAGxC,4DAD2D,GAE3D,sBAD4D,GAE5D,iDADuB,GAEvB,yCADiD,GAEjD,qBADyC,GAEzC,mCADqB,GAErB,gEADmC,GAGnC,iBAFgE,GAGhE,2DADiB,GAEjB,2DAD2D,GAE3D,yDAD2D,GAE3D,uDADyD,GAEzD,uCADuD,GAGvD,kBAFuC,GAGvC,4BADkB,GAElB,+BAD4B,GAE5B,0CAD+B,GAE/B,qCAD0C,GAE1C,wBADqC,GAErC,KADwB,GAExB,IADK,GAGL,8BAFI,GAGJ,oDAD8B,GAE9B,oDADoD,GAEpD,kDADoD,GAEpD,gDADkD,GAiClD,IAhCgD,GAkChD,wBAFI,GAGJ,4CADwB,GAExB,sBAD4C,GAE5C,wBADsB,GAEtB,6BADwB,GAExB,oCAD6B,GAE7B,oCADoC,GAEpC,kCADoC,GAEpC,8BADkC,GAGlC,6BAF8B,GAG9B,eAD6B,GAE7B,IADe,GAGf,IApMsB;AAFoB;AA4uDF;AAExC;AAAE;AAAE;AAAE;AAAE;AAAG;AAAG;AAGd,UAAG,CAAY,CAAC,uBAAD,SAAf,EACE,MADF;AAGA,UAAG,CAAY,CAAC,YAAD,SAAf,EACE,MADF;AAGA,UAAG,iBAAH,EACE,MADF;AAGA,UAAa,CAAT,cAAS,KAAE,CAAF,CAAK,IAAa,CAAT,cAAS,KAAE,CAAF,CAA/B,EACE,MADF;AAGA,eAAS,QAAe,OAAV,eAAU,GAAE,CAAF,kBAAxB;AAAI;AAEF,aAAM,iBAAS,CAAC,CAAD,CAAI,GAAE,CAAF;AAEnB,YAAc,CAAV,eAAU,GAAE,CAAF,CAAK,IAAe,CAAV,eAAU,GAAE,CAAF,CAAlC;AAGJ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;SAZI;AAgBA,YAAI,eAAU,GAAE,CAAhB;AAGJ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;SAZI;;AAiBF,eAAS,SAAe,QAAV,eAAU,GAAE,CAAF,qBAAxB;AAAI;AAEF,aAAM,kBAAU,CAAC,CAAD;AAEhB,YAAG,eAAU,GAAE,CAAf;AAGJ;AACA;AACA;AACA;SANI;AAWJ;AACA;AACA;AACA;;AAIE,eAAS,uBAAsB,QAAT,cAAS,GAAE,CAAF,qBAA/B;AAAI;AAEF,aAAM,iBAAS,CAAC,CAAD,CAAI,GAAE,CAAF;AAEnB,YAAK,CAAE,GAAE,eAAF;AAEP,YAAI,eAAU,GAAE,CAAhB;AAGJ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;SAbI;AAkBJ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;;AAIE,eAAS,uBAAsB,QAAT,cAAS,GAAE,CAAF,qBAA/B;AAAI;AAEF,YAAK,CAAE,GAAE,eAAF;AACP,aAAM,kBAAU,CAAC,CAAD;AAEhB,iBAAS,uBAAsB,QAAT,cAAS,GAAE,CAAF,qBAA/B;AAAI;AAEF,cAAK,CAAE,GAAE,eAAF;AACP,eAAM,iBAAS,CAAC,CAAD,CAAI,GAAE,CAAF;AAEnB,gBAAO;AAEP,cAAM,CAAF,CAAE,KAAW,CAAT,cAAS,GAAE,CAAF,CAAX,CAAqC,IAAjB,uBAAJ,IAAyB,uBAA/C;AAEE,kBAAO,EAAG,GAAE,EAAF;WAFZ;AAKA,cAAG,eAAU,GAAE,CAAf;AAGN;AACA;AACA;AACA;AAGQ,gBAAM,CAAF,CAAE,KAAW,CAAT,cAAS,GAAE,CAAF,CAAX,CAAqC,IAAjB,uBAAJ,IAAyB,uBAA/C;AAGR;AACA;AACA;AACA;aANQ;WATF;AAqBN;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;;;AA/J0C;AA5FK;AAE7C;AAAE;AAAE;AAAE;AAAE;AAAG;AACX;AAGA,UAAG,CAAY,CAAC,uBAAD,SAAf,EACE,MADF;AAGA,UAAG,iBAAH,EACE,MADF;AAGA,UAAa,CAAT,cAAS,KAAE,CAAF,CAAK,IAAa,CAAT,cAAS,KAAE,CAAF,CAA/B,EACE,MADF;AAGA,UAAG,mBAAc,SAAC,EAAM,KAAE,CAA1B,EACE,MADF;AAGA,eAAS,QAAe,OAAV,eAAU,GAAE,CAAF,kBAAxB;AAAI;AAEF,aAAM,qBAAa,CAAC,CAAD;AACnB,YAAK;AAEL,YAAc,CAAV,eAAU,GAAE,CAAF,CAAK,IAAe,CAAV,eAAU,GAAE,CAAF,CAAlC;AAIJ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;SAZI;AAgBA,YAAI,eAAU,GAAE,CAAhB;AAGJ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;SAXI;;AAgBF,eAAS,uBAAsB,QAAT,cAAS,GAAE,CAAF,qBAA/B;AAAI;AAEF,aAAM,qBAAa,CAAC,CAAD;AAEnB,YAAK,CAAE,GAAE,eAAF;AACP,YAAK;AAEL,YAAI,eAAU,GAAE,CAAhB;AAGJ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;SAZI;AAiBJ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;;AAvF+C;AArkKT;AAEpC;AACA;AAHoC;AAqrHJ;AAEhC;AACA;AAHgC;AA91FC;;AAKD;;AAgkBK;AAErC;AACA,2BAAiB;AACjB;AACA;AALqC;AAlhCC;AAAb;AAEzB,eAAU,QAAQ,cAAc,CAAC,MAAD;AAChC,mBAAS;AAHgB;AAAa;AAykJC;AAEvC;AAEA;AAEA,UAAG,iBAAH,EACE,MADF;AAGA,UAAY,uBAAD,QAAX;AAEE,YAAU,CAAN,WAAM,KAAG,QAAH,CAAa,IAAW,CAAN,WAAM,KAAG,EAAH,CAAlC,EACE,uBAAa,MAAM,YAAY,CAAC,mBAAoB,kCAAW,CAAC,WAAD,CAAhC,CADjC;AAGA,YAAY,UAAD,QAAX;AAEE,mDAAkB,CAAgB,WAAQ,WAAM,CAA6B,CAAN,CAAjB,sBAAiB,KAAE,EAAF,CAAM,IAAiB,CAAZ,iBAAY,KAAE,8CAAF,CAAjB,CAA3D;SAFpB;AAKA,+BAAa,MAAM,YAAY,CAAC,WAAY,QAAb;AAE/B,YAAgB,CAAZ,iBAAY,KAAE,4CAAF,CAAuE,IAAvD,CAAiB,CAAZ,iBAAY,KAAE,EAAF,CAArB,IAAqD,CAAjB,sBAAiB,KAAE,EAAF,CAAtB,IAAgC,CAAI,kBAA/F;AAEE,iCAAa,MAAM,YAAY,CAAC,SAAU,YAAY,GAAE,kCAAW,CAAC,iBAAD,CAApC;;AAK/B,iCAAa,MAAM,YAAY,CAAC,SAAU,EAAX;;AAIjC;AAEA,cAAO,kCAAW,CAAC,WAAD;AAElB,YAAG,WAAM,KAAG,QAAZ;AAIJ;AACA;AACA;AACA;AACA;SARI;AAYA,YAAG,YAAQ,KAAE,EAAb;AAEE,yBAAW;AACX,cAAG,YAAQ,KAAE,EAAb,EACE,eAAW,UADb;SAHF;AAOA,sCAAgB,CAAC,kBAAY,GAAE,YAAF,CAAW,eAAU,CAAC,YAAQ,GAAE,KAAX,CAAlC;AAEhB;AACA;OAjDF;AATuC;AA8DM;AAE7C;AAAO;AAEP;AAEA,UAAG,iBAAH,EACE,MADF;AAGA,UAAW,CAAC,uBAAD,SAAgB,IAAY,CAAC,UAAD,SAAvC;AAEE,iBAAU,kCAAW,CAAC,gBAAD;AACrB,oBAAa,kCAAW,CAAC,wBAAD;AAExB,YAAc,CAAV,eAAU,GAAE,CAAF,CAAK,IAAe,CAAV,eAAU,GAAE,CAAF,CAAlC;AAGJ;AACA;SAJI;AAQA,YAAI,eAAU,GAAE,CAAhB;AAGJ;AACA;AACA;AACA;AACA;AACA;AACA;SATI;AAaA,YAAI,eAAU,GAAE,CAAhB;AAGJ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;SAVI;OA1BF;AAT6C;AAxqIP;AAAb;AAEzB;AAEA,eAAU;AAEV,eAAS,QAAe,OAAV,eAAU,GAAE,CAAF,kBAAxB;AAAI;AACF,iBAAiB,CAAP,MAAO,GAAE,iBAAS,CAAC,CAAD,CAAX,CAAe,GAAE,CAAF;;AAPT;AAAa;AAgBC;AAAd;AAEzB;AAEA,eAAU;AAEV,eAAS,QAAe,OAAV,eAAU,GAAE,CAAF,kBAAxB;AAAI;AACF,iBAAU,MAAO,GAAE,kBAAU,CAAC,CAAD,CAAZ;;AAPM;AAAc;AAk+DA;AAAd;AAEzB;AAEA,eAAU;AAEV,eAAS,sBAAsB,OAAT,cAAS,GAAE,CAAF,kBAA/B;AAAI;AACF,iBAAgC,CAAtB,MAAsB,GAAb,iBAAS,CAAC,CAAD,CAAX,GAAiB,CAAF,CAAI,GAAE,CAAF;;AAPb;AAAc;AAUC;AAAf;AAEzB;AAEA,eAAU;AAEV,eAAS,sBAAsB,OAAT,cAAS,GAAE,CAAF,kBAA/B;AAAI;AACF,iBAAU,MAAO,GAAE,kBAAU,CAAC,CAAD,CAAZ;;AAPM;AAAe;AAl+DJ;AAAX;AAEzB,eAAU;AAFe;AAAW;AA7zBF;AAAT;AAEzB,eAAU;AACV,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAM,KAAM,KAAM;;;;UAAnB,CADd;AAHyB;AAAS;AALI;AAAb;AAEzB,eAAU;AAFe;AAAa;AAktED;AAAZ;AAEzB,eAAU,CAA4E,CAAvD,CAAf,mBAAS,KAAM,KAAE,CAAF,CAAuD,IAA/B,CAAd,mBAAS,IAAK,KAAE,CAAF,CAAnB,IAA6C,CAAhB,mBAAS,MAAO,KAAE,CAAF,CAArB,IAAgD,CAAjB,mBAAS,OAAQ,KAAE,CAAF,CAAtB;AAF7D;AAAY;AA2rFD;;AAyXE;AAGtC,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,KAAM,KAAM,MAAnB,CADhB;AAHsC;AArZE;AAExC,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,IAAD,CADlB;AAFwC;AAvvCC;;AAEzC;AACA;AAAG;AACH;AAEqB;AAEnB,0BAAY,CAAC,sBAAa,CAAC,MAAD,EAAU,EAAxB;AAFO;AAMrB,UAAG,iBAAW,IAAe,CAAV,yCAAU,IAAG,oBAAH,CAA7B,EACE,MADF;AAGA,UAAG,CAAY,CAAC,iBAAD,SAAf,EACE,MADF;AAGA,WAAM;AACN,WAAM;AAEN,WAAM;AAEN,UAAI,CAAE,GAAE,CAAR,EACE,WAAW,CAAC,EAAE,IAAH,CADb;AAIA,UAAG,KAAM,GAAE,CAAX;AAIF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGI;AAEA,iBAAS,QAAK,8BAAd;AAAI;AAEF,4BAAU,CAAC,cAAS,GAAE,CAAF,CAAQ,sBAAlB;;AAGZ,YAAG,cAAS,KAAE,4CAAd,EACE,iBADF;AAGA;OA3CF;AA8CA,UAAG,KAAM,GAAE,CAAX;AAGF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGI,YAAG,cAAS,GAAE,CAAd,EACE,kBAAU,CAAC,cAAS,GAAE,CAAF,CAAQ,kBAAU,CAAC,cAAS,GAAE,CAAZ,CAA5B,CADZ;OAnBF;AAzEyC;AAj6GA;AAEzC;AAEA,UAAG,iBAAW,IAAe,CAAV,yCAAU,IAAG,oBAAH,CAA7B,EACE,MADF;AAGA,UAAG,CAAY,CAAC,iBAAD,SAAf,EACE,MADF;AAGA,UAAG,KAAM,GAAE,CAAX;AAIF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGI,iBAAS,QAAK,8BAAd;AAAI;AAEF,2BAAS,CAAC,cAAS,GAAE,CAAF,CAAQ,qBAAlB;;AAGX,YAAG,cAAS,KAAE,4CAAd,EACE,iBADF;OAhDF;AAoDA,UAAG,KAAM,GAAE,CAAX;AAIF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGI,YAAG,cAAS,GAAE,CAAd,EACE,iBAAS,CAAC,cAAS,GAAE,CAAF,CAAQ,iBAAS,CAAC,cAAS,GAAE,CAAZ,CAA3B,CADX;OAlCF;AA9DyC;AAvCI;AAE7C;AACA,gCAAsB;AACtB,oCAA0B;AAC1B,kCAAwB;AACxB,mCAAyB;AACzB,iCAAuB;AACvB,+BAAqB;AACrB,iCAAuB;AACvB,kCAAwB;AACxB,4BAAkB;AAClB,6BAAmB;AACnB,6BAAmB;AAb0B;AA+gCF;AAE3C;AACA,gCAAuB;AACvB,oCAA2B;AAC3B,kCAAyB;AACzB,mCAA0B;AAC1B,iCAAwB;AACxB,+BAAsB;AACtB,iCAAwB;AACxB,kCAAyB;AACzB,6BAAoB;AACpB,4BAAmB;AACnB,6BAAoB;AAbuB;AAq7GR;AAEnC;AACA;AACA;AACA;AAIA,UAAG,cAAH;AACE,yBAAa;AAEb,6BAAa;AAEf,wBAAa,CAAC,cAAI,cAAK;;;;UAAV;AAEb,UAAG,cAAU,KAAE,2BAAf,EACE,MADF;AAGA,WAAM;AAEN,sBAAY;AACZ,sBAAY;AAEZ,uBAAa;AAEb,UAAK,gBAAW,CAAC,cAAI,aAAL;AAEhB,sBAAY;AAEZ,UAAG,cAAU,KAAE,4BAAf;AAEE,YAAG,CAAY,CAAC,WAAD,SAAf;AAEE,wBAAU,mCAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,qBAAM,mBAAC,CAAmB,kDAAnB;AACP,qBAAM,cAAC,CAAc,2CAAd;AACP,qBAAM,gBAAC,CAAgB,GAAhB;AACP,qBAAM,eAAC,CAAe,2CAAf;AACP,qBAAM,iBAAC,CAAiB,GAAjB;AACP,qBAAM,UAAC,CAAU,IAAV;AACP,qBAAM,QAAN,GAAiB;AACjB,qBAAM,YAAN,GAAqB;SAVvB;AAaA,mBAAM,OAAM,OAAO,CAAC,mBAAD;AACnB,mBAAM,QAAC,CAAQ,CAAR;AACP,0BAAa,UAAb,GAA2B;AAC3B,0BAAa,YAAY,CAAC,WAAM,iBAAC,EAAR;AACzB,mBAAM;AACN,4BAAe,CAAC,kBAAD;AACf;OArBF;AAwBA,UAAG,cAAU,KAAE,2BAAf;AAEE,YAAG,CAAY,CAAC,UAAD,SAAf;AAEE,uBAAS,+BAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AAClB,oBAAK,mBAAC,CAAmB,kDAAnB;AACN,oBAAK,cAAC,CAAc,2CAAd;AACN,oBAAK,gBAAC,CAAgB,GAAhB;AACN,oBAAK,eAAC,CAAe,0CAAf;AACN,oBAAK,UAAC,CAAU,IAAV;AACN,oBAAK,iBAAC,EAAa,MAAM,YAAY,CAAC,UAAU,MAAX;AACrC,oBAAK,QAAL,GAAgB;AAChB,oBAAK,YAAL,GAAoB;SAVtB;AAaA,kBAAK,UAAC,CAAU,kBAAU,CAAC,aAAD,CAAW,GAAE,CAAjC;AACN,kBAAK,OAAM,WAAC,CAAQ,CAAR;AACZ,0BAAa,UAAb,GAA2B;AACZ,0BAAc,MAAM,YAAY,CAAC,kBAAkB,KAAnB;AAChC,0BAAc,MAAM,YAAY,CAAC,iBAAiB,KAAlB;AAC/C,0BAAa,YAAY,CAAC,UAAK,iBAAC,EAAP;AACzB,kBAAK;AACL,4BAAe,CAAC,kBAAD;AACf;OAvBF;AA0BA,UAAG,cAAU,KAAE,6BAAf;AAEE,yBAAY,mBAAC,CAAmB,kDAAnB;AACb,yBAAY,cAAC,CAAc,2CAAd;AACb,yBAAY,gBAAC,CAAgB,GAAhB;AACb,yBAAY,UAAC,CAAU,IAAV;AACb,yBAAY,QAAZ,GAAuB;AAEvB,gCAAmB,CAAC,cAAU,cAAU,kBAAc,CAAnC;AAEnB,0BAAa,UAAb,GAA2B;AACZ,0BAAc,MAAM,YAAY,CAAC,kBAAkB,KAAnB;AAChC,0BAAc,MAAM,YAAY,CAAC,iBAAiB,KAAlB;AAC/C,0BAAa,YAAY,CAAC,iBAAY,iBAAC,EAAd;AACzB,4BAAe,CAAC,kBAAD;AACf;OAfF;AAmBA,UAAG,cAAU,KAAE,2BAAf;AAEE,YAAG,CAAY,CAAC,UAAD,SAAf;AAEE,uBAAS,+BAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,oBAAK,mBAAC,CAAmB,kDAAnB;AACN,oBAAK,cAAC,CAAc,2CAAd;AACN,oBAAK,gBAAC,CAAgB,GAAhB;AACN,oBAAK,eAAC,CAAe,2CAAf;AACN,oBAAK,iBAAC,CAAiB,GAAjB;AACN,oBAAK,UAAC,CAAU,IAAV;AACN,oBAAK,QAAL,GAAgB;AAChB,oBAAK,YAAL,GAAoB;SAVtB;AAaA,kBAAK,YAAC,CAAY,cAAZ;AACN,kBAAK,QAAC,CAAQ,CAAR;AACN,0BAAa,UAAb,GAA2B;AAC3B,0BAAa,YAAY,CAAC,UAAK,iBAAC,EAAP;AACzB,kBAAK;AACL,kBAAK,aAAa,CAAC,EAAS,CAAD,OAAT;AAClB,4BAAe,CAAC,kBAAD;AACf;OAtBF;AAyBA,gBAAW;AAGb;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGO;AACL,UADK,IACL;AAAO,kBAAK,cAAC,OAAW,KAAZ;AACZ,gBAFK,IAEL;AAAQ,kBAAK,cAAC,OAAW,MAAZ;AACb,gBAHK,IAGL;AAAQ,kBAAK,cAAC,OAAW,MAAZ;AACb,gBAJK,IAIL;AAEI,kBAAK,cAAC,OAAW,OAAZ;AACL,kBAAK,cAAC,MAAU,mCAAY,CAAC,WAAS,KAAV,CAAvB;AACL,kBAAK,cAAC,MAAU,mCAAY,CAAC,WAAS,KAAV,CAAvB;AACL,kBAAK,cAAC,OAAW,mCAAY,CAAC,WAAS,MAAV,CAAxB;OAET,UAXK,IAWL;AAAS,kBAAK,cAAC,OAAW,OAAZ;AACd,gBAZK,IAYL;AAAU,kBAAK,cAAC,OAAW,QAAZ;AACf,gBAbK,IAaL;AAAO,kBAAK,cAAC,OAAW,KAAZ;AACZ,gBAdK,IAcL,mCAAS,UAAK,cAAC,OAAW,OAAZ,CAAd;AAGA,gBAAY,cAAU,KAAE,2BAAF;AAGxB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAIA;AAGE,0BAAe,CAAC,kBAAD;AAEf,UAAG,OAAH;AAEE,kBAAK,iBAAiB,CAAC,OAAQ,uBAAT;AACtB,kBAAK,iBAAiB,CAAC,WAAY,2BAAb;OAHxB;AA9LmC;AAqMF;AAAR;AAEzB;AACA;AAEA,eAAU;AAEV,UAAG,cAAH;AAEE,yBAAa;AAEb,YAAG,cAAU,KAAE,4BAAf;AAEE,gBAAO,WAAM,QAAC;AACd,eAAM,WAAM,iBAAC;SAGf,UAAG,cAAU,KAAE,2BAAf;AAEE,gBAAO,UAAK,QAAC;AACb,eAAM,UAAK,iBAAC;;AAIZ,gBAAc,UAAN,WAAS,gBAAH,CAAuB;AACrC,eAAM;;AAGR,yBAAY,CAAC,cAAU,cAAU;;;;YAArB;AAEZ,YAAG,kBAAa,SAAS,CAAC,EAAD,CAAzB,EACE,kBAAa,YAAY,CAAC,EAAD,CAD3B;AAGA,0BAAa,UAAb,GAA2B;AAC3B,iBAAU;AAEV,uBAAU,CAAC,cAAU,cAAU;;;;YAArB;AACV,YAAG,CAAiB,CAAZ,4BAAY,IAAG,aAAH,CAApB;AAEE,2BAAY,CAAC,kBAAD;SAFd;OA9BF;AAPyB;AAAQ;AAt0JG;AAAX;AAEzB;AAEA,gBAAW;AACX,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,KAAM,KAAM;;;;UAAnB,CADf;AAGA,eAAU;AARe;AAAW;AAiKD;;AAgiBM;AAEzC;AACA;AAEA,UAAG,CAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAApB;AAEE,oBAAa,YAAM,GAAE,cAAF;AAEnB,wBAAkB,4BAAY,IAAG,aAAH;AAGlC;AAGI,oBAAa,YAAM,GAAE,mBAAF;AACnB,wBAAkB,4BAAY,IAAG,aAAH;AAElC;OAbE;AALyC;AAuBL;;AACL;AAE7B;AAEA,iBAAS,QAA8B,OAAzB,QAAQ,SAAS,OAAQ,GAAE,CAAF,kBAAvC;AAAI;AAEF,cAAc,QAAQ,SAAS,MAAC,CAAD,CAAI,QAAS,KAAE,IAA9C;AAEa,oBAAQ,SAAS,MAAC,CAAD,CAAI,aAAM,CAAC,YAAgB,MAAjB;AACtC,iCAAqB,CAAY,QAAQ,SAAS,MAAC,CAAD,CAA7B;WAGrB,MAAA,qBAAqB,CAAY,QAAQ,SAAS,MAAC,CAAD,CAA7B;;AAZI;AAgB/B,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,2BAAqB,CAAC,mBAAD;AApBe;AA5SC;;AACH;AAEhC;AAEA,iBAAS,QAA8B,OAAzB,QAAQ,SAAS,OAAQ,GAAE,CAAF,kBAAvC;AAAI;AAEF,cAAc,QAAQ,SAAS,MAAC,CAAD,CAAI,QAAS,KAAE,IAA9C;AAEa,oBAAQ,SAAS,MAAC,CAAD,CAAI,gBAAgB,CAAC,WAAD;AAChD,oCAAwB,CAAY,QAAQ,SAAS,MAAC,CAAD,CAA7B;WAGxB,MAAA,wBAAwB,CAAY,QAAQ,SAAS,MAAC,CAAD,CAA7B;;AAZI;AAgBlC,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,8BAAwB,CAAC,mBAAD;AApBa;AA7gBG;AAGxC;AAEA,WAAqB,QAAQ;AAC7B,UAAW,CAAC,EAAD,SAAK,IAAgB,CAAX,EAAE,QAAS,KAAE,QAAF,CAAhC;AAEE,UAAE,iBAAiB,CAAC,QAAS,0BAAV;OAFrB;AANwC;AA07EA;AAExC,UAAI,QAAS,KAAE,+CAAf;AAEE,4BAAe,yCAAf;OAFF;AAFwC;AA3gEN;AAElC;AACA,2BAAgB;AAHuC;AAArB;AAkEA;AAElC;AACA;AAEO,eAAP,KAAO;AACI,eAAX,KAAW;AACI,eAAf,KAAe;AACH,eAAZ,KAAY;AACN,eAAN,KAAM;AACK,eAAX,KAAW;AAEX,eAAS,QAAuB,OAAlB,gBAAW,SAAC,EAAM,GAAE,CAAF,kBAAhC;AAAI;AAEF,gBAAmB,cAAC,gBAAW,KAAC,CAAD,CAAZ;AACnB,aAAM,eAAN,KAAM;;AAER,sBAAW;AAEC,eAAZ,KAAY;AACG,eAAf,KAAe;AACf,UAAY,WAAD,QAAX,EACS,SAAP,KAAO,SADT;AAEA,UAAY,UAAD,QAAX,EACQ,SAAN,KAAM,QADR;AAEA;AAzBkC;AAtDQ;AAE1C;AACA,0BAAgB;AAChB,wBAAc,iBAAK,QAAC;AACpB,yBAAe,iBAAK,QAAC;AACrB,4BAAkB,iBAAK,QAAC;AACxB,yBAAe,iBAAK,QAAC;AACrB,mBAAS,uBAAW,QAAC;AACrB,gBAAK,UAAL,GAAkB;AAClB,4BAAkB,uBAAW,QAAC;AAC9B,oBAAU,eAAU,QAAC;AACrB,6BAAmB;AACnB,kCAAwB;AACxB,qBAAU,EAAV,GAAgB,CAAC;AACjB,qBAAU,EAAV,GAAgB,CAAC;AACjB,yBAAe;AACf,uBAAa;AACb,uBAAa;AACb,oBAAU;AACV,wBAAc;AACd,wBAAc;AACd,8BAAoB;AACpB,+BAAqB;AACrB,4BAAkB;AAClB,0BAAe,8CAAf;AACA,8BAAmB,kDAAnB;AACA,yBAAc;AACd,4BAAkB;AAClB,6BAAmB;AACnB,iCAAuB;AACvB,sBAAW,cAAC,4BAAY,4BAAY,8BAAzB;AACX,wBAAc,4BAAK,QAAC;AACpB,qBAAU,UAAV,GAAuB;AACvB,UAAI,2CAAY,IAAG,oBAAnB;AAEE,sBAAS,GAAT;AACA,uBAAU,GAAV;OAHF;AAlC0C;AA43HR;AAElC,UAAY,iBAAD,QAAX,EACiB,iBAAa,MAAM,EADpC;AAFkC;AA6YA;AAElC,oBAAS,CAAC,EAAD;AAFyB;AA32EA;AAElC;AAAI;AACJ;AACA;AAEA,UAAG,cAAH;AAEE,yBAAa;AAEb,YAAG,cAAU,KAAE,4BAAf;AAEE,gBAAO,WAAM,QAAC;AACd,eAAM,WAAM,iBAAC;SAGf,UAAG,cAAU,KAAE,2BAAf;AAEE,gBAAO,UAAK,OAAM,WAAC;AACnB,eAAM,UAAK,iBAAC;SAGd,UAAG,cAAU,KAAE,2BAAf;AAEE,gBAAO,UAAK,QAAC;AACb,eAAM,UAAK,iBAAC;SAGd,UAAG,cAAU,KAAE,6BAAf;AAEE,kCAAmB,CAAC,cAAU,cAAU,kBAAc;;;;cAAnC;AACnB,eAAM,iBAAY,iBAAC;AACJ,4BAAc,MAAM,eAAe,CAAC,gBAAD;;AAIlD,gBAAc,UAAN,WAAS,gBAAH,CAAuB;AACrC,eAAM;;AAGR,yBAAY,CAAC,cAAU,cAAU;;;;YAArB;AAEZ,YAAG,kBAAa,SAAS,CAAC,EAAD,CAAzB,EACE,kBAAa,YAAY,CAAC,EAAD,CAD3B;AAGA,eAAQ;AAER,YAAG,cAAH;AAEE,eAAM,kBAAU,CAAC,aAAD,CAAW,GAAE,CAAF;AAC3B,iBAAQ,kCAAyF,GAApD,iDAAF;;;;cAAE,CAAH,GAAa,gBAAD,GAAoB,iDAAF;;;;cAAE,CAAH,GAAa,MAAD,GAAS,IAAF,GAAS,QAAF;SAHnG;AAMA,0BAAa,UAAb,GAA2B;AAE3B,uBAAU,CAAC,cAAU,cAAU;;;;YAArB;AAEV,YAAG,CAAiB,CAAZ,4BAAY,IAAG,aAAH,CAApB,EACE,iBAAY,CAAC,kBAAD,CADd;AAGA,wBAAW,CAAC,cAAU,cAAU,GAArB;AAEX,2BAAe;AAEA,yBAAa,MAAM;AAElC,YAAG,OAAH;AAEE,8BAAe,CAAC,kBAAD;AACf,cAAG,aAAI,GAAW,CAAT,cAAS,GAAE,CAAF,CAAlB;AACE,wBAAO,aAAI,GAAE,CAAb;;AAGA,gBAAG,oBAAH;AAEE,kBAAG,aAAI,GAAW,CAAT,cAAS,GAAE,CAAF,CAAlB;AAEE,4BAAO,eAAP;AACA,4BAAO,aAAI,GAAE,CAAb;;AAIA,4BAAO,eAAP;AACA,4BAAO,eAAP;;aAIF;;AAGJ,cAAG,gBAAW,CAAC,cAAI,aAAL,CAAd,EACE,cAAS,CAAC,EAAD,CADX;SAxBF;OA5DF;AANkC;AAxyEE;AAEpC;AAEA,UAAG,cAAH;AAEE,YAAG,cAAU,KAAE,4BAAf;AAEE,eAAM,WAAM,iBAAC;SAGf,UAAG,cAAU,KAAE,2BAAf;AAEE,eAAM,UAAK,iBAAC;SAGd,UAAG,cAAU,KAAE,2BAAf;AAEE,eAAM,UAAK,iBAAC;;AAIZ,eAAM;;AAGR,yBAAa;AAEb,yBAAY,CAAC,cAAU,cAAU;;;;YAArB;AAEZ,YAAG,kBAAa,SAAS,CAAC,EAAD,CAAzB,EACE,kBAAa,YAAY,CAAC,EAAD,CAD3B;AAGA,0BAAa,UAAb,GAA2B;AAC3B,uBAAU,CAAC,cAAU,cAAU;;;;YAArB;AAEV,YAAG,CAAiB,CAAZ,4BAAY,IAAG,aAAH,CAApB;AAEE,2BAAY,CAAC,kBAAD;SAFd;AAKA,wBAAW,CAAC,cAAU,cAAU,aAArB;AAEX,2BAAe;AAEA,yBAAa,MAAM;OAxCpC;AAJoC;AAsNL;AAE/B;AAAE;AAEF,eAAS,QAAc,OAAT,cAAS,GAAE,CAAF,kBAAvB;AAAI;AACF,iBAAS,SAAc,QAAT,cAAS,GAAE,CAAF,qBAAvB;AAAI;AAEF,cAAG,cAAS,CAAC,EAAE,CAAH,CAAZ,EACE,iBAAY,CAAC,EAAE,CAAH,CADd;AAEA,cAAG,gBAAW,CAAC,EAAE,CAAH,CAAd,EACE,mBAAc,CAAC,EAAE,CAAH,CADhB;AAGA,uBAAK,CAAC,EAAE,EAAM,EAAT;;;AAZsB;AAwCS;AAExC;AACA;AAEA,gBAAY,4BAAY,IAAG,aAAH;AAExB,UAAW,CAAC,kBAAD,SAAgB,IAAI,OAA/B;AAEE,aAAM,kBAAa;AACnB,4BAAe,CAAC,EAAD;OAHjB;AAMA,wBAAa,aAAQ,CAAC,EAAE,EAAE,EAAE,CAAP,CAArB;AAEA,UAAY,kBAAD,QAAX;AAEE,4BAAe,CAAC,kBAAD;OAFjB;AAfwC;AAmpEJ;AAEpC;AAAE;AAEF,eAAS,QAAc,OAAT,cAAS,GAAE,CAAF,kBAAvB;AAAI;AAEF,iBAAS,SAAc,QAAT,cAAS,GAAE,CAAF,qBAAvB;AAAI;AAEE;AACL,cADK,IACL;AACE,yBAAK,CAAC,EAAE,EAAM,qBAAQ,CAAC,iBAAM,CAAC,GAAD,CAAP,CAAjB;AACP,oBAHK,IAGL,gCACE,aAAK,CAAC,EAAE,EAAM,qBAAQ,CAAC,CAAD,CAAO,GAAH,GAAD,GAAK,qBAAQ,CAAC,CAAD,CAAjC,CADP;;;AAXiC;AAwwEN;AAG9B;AACA;AACA;AAEA,aAAQ;AACR,YAAO,UAAW,KAAE,mCAAF;AAClB,eAAU,OAAQ,GAAE,eAAF;AAGpB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AApBgC;AA3lEO;AAErC;AAAK;AACL;AACA;AAAO;AACP;AAEA,eAAU,CAAC;AACX,eAAU,CAAC;AAEX,qBAAU,CAAC,EAAE,EAAE;;;;WAAK;;;;UAAV;AAEV,YAAO,iCAAa,CAAC,IAAD;AACpB,UAAG,GAAG,OAAN;AAEE,eAAQ,IAAK,GAAE,GAAG,QAAC,EAAN;AACb,eAAQ,IAAK,GAAE,GAAG,OAAC,EAAN;OAHf;AAMA,WAAqB,QAAQ,iBAAiB,CAAC,UAAK,CAAC,IAAD,EAAO,UAAK,CAAC,IAAD,CAAlB;AAE9C,UAAY,EAAD,QAAX;AAGF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;OAtBE;AA0BA,YAAK,MAAL;AACA,YAAK,MAAL;AAhDqC;AAyJC;AAEtC,uBAAa;AACb,kBAA0B,IAAlB,cAAkB;AAC1B,eAAI,iBAAiB,CAAC,OAAQ,6CAAT;AACrB,eAAI,iBAAiB,CAAC,QAAS,0CAAV;AACrB,eAAI,KAAK,CAAC,MAAO,IAAR;AACT,wBAAa,CAAC,SAAD;AACb,eAAI;AARkC;AA1sEA;AAEtC;AACA;AACA;AAAE;AACF;AACA;AACA;AACA;AAAI;AAGJ,UAAG,SAAU,KAAG,EAAhB;AACE,aAAe,KAAiB;AAEhC,iBAAe;AAEjB,UAAY,EAAD,QAAX;AAEE,aAAM,uBAAW,QAAC;AAElB;AAEA,yBAAY,EAAE,OAAQ,GAAG,eAAzB;AAEA,iBAAS,QAAe,OAAV,EAAE,OAAQ,GAAE,CAAF,kBAAxB;AAAI;AAEF,eAAM,EAAY;AAElB,cAAK;AACL,iBAAQ;AAGd;AACA;AACA;AACA;AACA;AAGM,2BAAM,CAAC;;;;eAAM,EAAG,CAAV;AACN,YAAE,iBAAF,GAAsB;AACtB,YAAE,aAAC,CAAa,GAAb;AACH,YAAE,iBAAC,CAAiB,IAAjB;AACH,cAAG,cAAS,GAAE,EAAE,SAAC,EAAjB,EACE,iBAAY,EAAE,SAAC,EAAM,GAAE,eAAvB,CADF;AAGA,mBAAS,SAAc,QAAT,EAAE,SAAC,EAAM,GAAE,CAAF,qBAAvB;AAAI;AAEF,iBAAM,EAAE,IAAQ,CAAC,CAAD;AAChB,4BAAW,CAAC,eAAU,GAAE,CAAF,CAAK,eAAU,GAAE,CAAF,CAAK,KAAK;;;;gBAApC;AACX,yBAAK,CAAC,eAAU,GAAE,CAAF,CAAK,eAAU,GAAE,CAAF,CAAQ,EAAlC;AAEL,iBAAM;AACN,iBAAM,oBAAY,CAAC,eAAU,GAAE,CAAF,CAAK,eAAU,GAAE,CAA5B;AAClB,gCAAe,CAAC,eAAU,GAAE,CAAF,CAAK,eAAU,GAAE,CAAF,CAAK,KAAK,GAAI,EAAxC;AACf,iCAAgB,CAAC,eAAU,GAAE,CAAF,CAAK,eAAU,GAAE,CAAF,CAAK,KAAK,GAAI;;;;gBAAxC;AAChB,gBAAG,EAAG,KAAG,EAAT,EACE,EAAE,aAAa,CAAC,QAAQ,EAAT,CADjB;;;AAKJ,UAAG,eAAH,EAAG;OA7CL;AAgDA;AACA;AAjEsC;AAoEI;;AAAjB;AAEzB,eAAqB,IAAX,OAAW,CACnB;AAEiB;AAAN;AAEP,cAAG,oBAAc,CAAC,KAAD,CAAjB;AACE,oBAAQ,CAAmB,KAAK,OAAxB;AAER,gBAAA,OAAO,CAAmB,KAAK,OAAxB;AACT,mBAAU;AANH;AAAM;AASC;AAAP;AAEP,iBAAO,CAAmB,KAAK,OAAxB;AACP,mBAAU;AAHH;AAAO;AAOhB,0BAAa;AACb,qBAA0B,IAAlB,cAAkB;AAC1B,kBAAI,iBAAiB,CAAC,OAAO,mCAAR;AACrB,kBAAI,iBAAiB,CAAC,QAAQ,oCAAT;AACrB,kBAAI,iBAAiB,CAAC,UAAU,oCAAX;AACrB,kBAAI,iBAAiB,CAAC,QAAQ,oCAAT;AAErB,kBAAI,KAAK,CAAC,MAAO,IAAR;AACT,2BAAa,CAAC,UAAD;AACb,kBAAI;AA3BN,OADmB;AAFI;AAAiB;AAqlEL;AAErC,wBAAc;AACd,wBAAc;AAEd,kBAA0B,IAAlB,cAAkB;AAC1B,eAAI,iBAAiB,CAAC,OAAQ,4CAAT;AACrB,eAAI,iBAAiB,CAAC,QAAS,0CAAV;AACrB,eAAI,KAAK,CAAC,MAAO,IAAR;AACT,wBAAa,CAAC,SAAD;AACb,eAAI;AAViC;AAaI;;AAAhB;AAEzB,eAAqB,IAAX,OAAW,CACnB;AAEiB;AAAN;AAEP,cAAG,mBAAa,CAAC,KAAD,CAAhB;AACE,oBAAQ,CAAmB,KAAK,OAAxB;AAER,gBAAA,OAAO,CAAmB,KAAK,OAAxB;AACT,mBAAU;AANH;AAAM;AASC;AAAP;AAEP,iBAAO,CAAmB,KAAK,OAAxB;AACP,mBAAU;AAHH;AAAO;AAOhB,2BAAc;AACd,2BAAc;AACd,qBAA0B,IAAlB,cAAkB;AAC1B,kBAAI,iBAAiB,CAAC,OAAO,mCAAR;AACrB,kBAAI,iBAAiB,CAAC,QAAQ,oCAAT;AACrB,kBAAI,iBAAiB,CAAC,UAAU,oCAAX;AACrB,kBAAI,iBAAiB,CAAC,QAAQ,oCAAT;AAErB,kBAAI,KAAK,CAAC,MAAO,IAAR;AACT,2BAAa,CAAC,UAAD;AACb,kBAAI;AA5BN,OADmB;AAFI;AAAgB;AAhgEA;AAGzC,wBAAc;AACd,wBAAc;AAEd,6BAAkB,CAAC,QAAD;AANuB;AAq+DN;AAEnC;AAEA,WAAM,uBAAW,QAAC;AAClB;AACE,0BAAa,CAAC,GAAI,UAAW,SAAhB;AACb,UAAE,WAAW,CAAC,SAAD;AAFf;AAIE,UAAG,eAAH,EAAG;AAJL;AALmC;AAvCI;AAEvC;AAAE;AACF;AAAG;AACH;AAAE;AAEF,WAAM;AACN,WAAM;AACN,UAAG,CAAI,SAAP,EACE,KAAM,eADR;AAGA,UAAG,CAAI,SAAP,EACE,KAAM,eADR;AAGA,eAAS,SAAe,OAAT,cAAS,GAAE,CAAF,kBAAxB;AAAI;AAEF,iBAAU;AACV,iBAAS,UAAe,QAAT,cAAS,GAAE,CAAF,qBAAxB;AAAI;AAEF,cAAK,aAAK,CAAC,EAAE,CAAH;AACV,cAAK,0BAAa,CAAC,EAAE,IAAI,KAAK,cAAC,4CAAD,CAAZ;AAElB,cAAqB,CAAjB,cAAG,CAAC,UAAU,CAAX,CAAc,GAAE,CAAF,CAAK,IAAgB,CAAZ,cAAG,CAAC,KAAK,CAAN,CAAS,GAAE,CAAF,CAA1C;AAEE,gBAAK,GAAS,GAAF,CAAH,GAAQ,GAAH;WAFhB;AAKA,cAAG,CAAE,KAAE,EAAP,EACE,IAAK,IADP;AAGA,cAAG,MAAO,KAAE,EAAZ;AACE,qBAAU;AAEV,yBAAU,MAAmB,GAAV,SAAF,GAAc,CAAF;;AAEjC,gBAAQ,IAAI,CAAC,MAAD;;AAnCyB;AA+qCH;AAEpC;AAAG;AAEH,wBAAa,aAAQ,CAAC,KAAM,KAAM,KAAM,IAAnB,CAArB;AAEA,WAAM,IAAK,GAAE,eAAF;AACX,WAAM,IAAK,GAAE,eAAF;AAEX,UAAO,CAAH,EAAG,IAAG,CAAH,CAAM,IAAQ,CAAH,EAAG,IAAG,CAAH,CAArB;AAGF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;;AAMA;;AAzBsC;AAzzCD;AAEnC;AAAE;AAGF,WAAM;AAGR;AACA;AAGE,UAAG,KAAM,GAAE,eAAX;AAEE,YAAG,eAAU,GAAE,CAAf;AAGJ;AACA;AAGM,mBAAS,QAAe,OAAV,eAAU,GAAE,CAAF,kBAAxB;AAAI;AAGV;;SAVI;AAgBJ;AAEI,iBAAS,uBAAsB,QAAT,cAAS,GAAE,CAAF,qBAA/B;AAAI;AAGR;;AAGI,0BAAc,eAAW,GAAE,CAAF;OAGzB,UAAG,KAAM,IAAG,eAAZ;AAEE,YAAG,eAAU,GAAE,CAAf;AAGN;AAGQ,mBAAS,SAAe,QAAV,eAAU,GAAE,CAAF,qBAAxB;AAAI;AAGZ;;SATM;AAeN;AAGM,iBAAS,uBAAsB,QAAT,cAAS,GAAE,CAAF,qBAA/B;AAAI;AAGV;;OAvBI;AA4BF,uBAAa,cAAU,GAAE,CAAF;AACvB,wBAAU,CAAC,MAAU,sBAAX;AAEV;AACA;AAzEmC;AAogBA;AAEnC;AAAG;AACH;AACA;AAEA,UAAG,KAAM,IAAG,cAAZ,EACE,MAAM,sBAAS,QAAC,YAAM,CAAC,mBAAD,CAAN,CADlB;AAGA,WAAM;AAEN,UAAG,KAAM,GAAE,eAAX;AAEE,YAAG,eAAU,GAAE,CAAf;AAGJ;SAHI;AAQJ;;AAMI,YAAG,eAAU,GAAE,CAAf;AAGJ;SAHI;AAQJ;;AAIE,UAAG,gBAAW,SAAC,EAAM,KAAE,cAAvB,EACE,gBAAW,OAAO,CAAC,KAAD,CADpB;AAGA,uBAAa,cAAU,GAAE,CAAF;AAEvB,wBAAU,CAAC,EAAM,kBAAU,CAAC,CAAD,CAAjB;AAEV;AACA;AA/CmC;AAvkBG;AAEtC;AAAE;AAEF,WAAM;AAGR;AACA;AAGE,UAAG,KAAM,GAAE,eAAX;AAEE,YAAG,eAAU,GAAE,CAAf;AAEE,mBAAS,QAAe,OAAV,eAAU,GAAE,CAAF,kBAAxB;AAAI;AAGV;AACA;;SANI;AAWA,iBAAS,SAAkB,QAAb,cAAa,GAAF,CAAF,GAAM,eAAF,qBAA3B;AAAI;AAGR;AACA;;AAII,0BAAc,eAAU,GAAE,CAAF;;AAIxB,YAAG,eAAU,GAAE,CAAf;AAEE,mBAAS,SAAe,QAAV,eAAU,GAAE,CAAF,qBAAxB;AAAI;AAGV;AACA;;SANI;AAWA,iBAAS,SAAkB,QAAb,cAAa,GAAF,CAAF,GAAM,eAAF,qBAA3B;AAAI;AAGR;AACA;;;AAKE,uBAAa,cAAU,GAAE,CAAF;AAEvB,eAAkB,MAAT,cAAS,GAAE,CAAF,EAAW,kCAA7B;AAAI;AAEF,YAAG,KAAM,GAAE,CAAX,EACE,iBAAS,CAAC,EAAM,iBAAS,CAAC,CAAE,GAAE,CAAL,CAAhB,CADX;;AAIF,uBAAS,CAAC,MAAU,qBAAX;AAhE6B;AA0fA;AAEtC;AAAE;AAEF,WAAM;AAGR;AACA;AAGE,UAAG,KAAM,GAAE,eAAX;AAEE,YAAG,eAAU,GAAE,CAAf;AAEE,mBAAS,QAAe,OAAV,eAAU,GAAE,CAAF,kBAAxB;AAAI;AAGV;AACA;;SANI;AAWA,iBAAS,SAAkB,QAAb,cAAa,GAAF,CAAF,GAAM,eAAF,qBAA3B;AAAI;AAGR;AACA;;AAII,0BAAc,eAAU,GAAE,CAAF;;AAIxB,YAAG,eAAU,GAAE,CAAf;AAEE,mBAAS,SAAe,QAAV,eAAU,GAAE,CAAF,qBAAxB;AAAI;AAGV;AACA;;SANI;AAWA,iBAAS,SAAkB,QAAb,cAAa,GAAF,CAAF,GAAM,eAAF,qBAA3B;AAAI;AAGR;AACA;;;AAKE,uBAAa,cAAU,GAAE,CAAF;AAEvB,eAAS,aAAkB,QAAT,cAAS,GAAE,CAAF,qBAA3B;AAAI;AAEF,yBAAS,CAAC,EAAM,iBAAS,CAAC,CAAE,GAAE,CAAL,CAAhB;;AA5D2B;AA1iGD;AAErC;AAEA,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,YAAG,CAAI,gBAAW,CAAC,KAAK,IAAN,CAAlB;AAEE,gBAAO,QAAQ,cAAc,CAAC,OAAD;AAC7B,aAAG,cAAC,OAAW,UAAZ;AAGT;AAGM,8BAAY,CAAC,KAAK,IAAN,CAAW,aAAa,CAAC,IAAK,oBAAY,CAAC,KAAK,IAAN,CAAW,WAA7B;AACpC,aAAG,iBAAiB,CAAC,QAAQ,yBAAT;SAVtB;OAFF;AAJqC;AAyhGG;AAExC;AAEA,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAM,oBAAe,CAAC,KAAK,IAAN;AACrB,YAAY,EAAD,QAAX;AAEE,YAAE,oBAAoB,CAAC,QAAQ,yBAAT;AAE5B;SAJI;OAHF;AAJwC;AA1rBJ;AAAX;AAEzB;AAEA,eAAU;AACV,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAM,oBAAe,CAAC,KAAK,IAAN;AACrB,iBAAmB,EAAD;OAHpB;AALyB;AAAW;AAz3ED;AAGnC;AAAG;AACH;AAEA,UAAS,CAAL,IAAK,IAAG,CAAH,CAAsB,IAAN,CAAL,IAAK,IAAG,CAAH,CAAV,IAAoB,CAAI,gBAAW,CAAC,KAAK,IAAN,CAAlD;AAEE,aAAM,aAAK,CAAC,KAAM,IAAP;AACX,YAAG,EAAG,KAAG,EAAT,EACE,KAAM,QAAS,GAAE,EADnB;AAGA,YAAK;AAEL,YAAG,MAAO,KAAG,EAAb,EACE,IAAK,CAAqB,GAAjB,UAAF,GAAa,MAAD,GAAQ,GAD7B;AAGA,YAAK,CAAa,GAAT,GAAF,GAAM,KAAD,GAAO,WAAD;AAElB,qBAAK,CAAC,KAAK,KAAS,CAAE,GAAE,EAAnB;AAEL,aAAM,oBAAY,CAAC,KAAM,IAAP;AAClB,2BAAc,CAAC,KAAM,KAAM,EAAb;OAhBhB;AANmC;AAihGG;AAEtC;AAEA,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAM,qBAAgB,CAAC,KAAK,IAAN;AACtB,YAAY,EAAD,QAAX;AAEE,YAAE,oBAAoB,CAAC,QAAQ,yBAAT;AAE5B;SAJI;OAHF;AAJsC;AApqBJ;AAAT;AAEzB;AAEA,eAAU;AACV,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAM,qBAAgB,CAAC,KAAK,IAAN;AACtB,iBAAmB,EAAD;OAHpB;AALyB;AAAS;AA9zEC;AAEnC;AACA;AAAE;AAEF,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,YAAG,CAAI,cAAS,CAAC,KAAK,IAAN,CAAhB;AAEE,cAAK,iBAAS,CAAC,IAAD;AACd,cAAK,kBAAU,CAAC,IAAD;AACf,eAAqB,QAAQ,cAAc,CAAC,QAAD;AAC3C,YAAE,cAAC,QAAa,iDAAD;;;;cAAC,CAAS,GAAC,IAAxB;AACF,YAAE,cAAC,SAAkB,iDAAH,IAAD,CAAC,GAAC,CAAD;;;;cAAG,CAAS,GAAC,IAA7B;AACF,YAAE,MAAM,YAAY,CAAC,UAAU,OAAX;AACpB,8BAAY,CAAC,KAAK,IAAN,CAAW,aAAa,CAAC,GAAI,oBAAY,CAAC,KAAK,IAAN,CAAW,WAA5B;SARtC;OAFF;AALmC;AAm/FG;AAEtC;AAEA,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAM,qBAAgB,CAAC,KAAK,IAAN;AACtB,YAAY,EAAD,QAAX;AAGJ;SAHI;OAHF;AAJsC;AA7pBJ;AAAT;AAEzB;AAEA,eAAU;AACV,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAM,qBAAgB,CAAC,KAAK,IAAN;AACtB,iBAAmB,EAAD;OAHpB;AALyB;AAAS;AAYA;AAAT;AAEzB;AAEA,eAAU;AACV,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAM,qBAAgB,CAAC,KAAK,IAAN;AACtB,YAAY,EAAD,QAAX,EACE,SAA+B,EADjC;OAHF;AALyB;AAAS;AAjzEQ;AAG1C;AAAE;AACF;AAEA,UAAK,aAAK,CAAC,KAAK,IAAN;AACV,WAAM,cAAG,CAAC,QAAS,CAAV;AAET,UAAG,EAAG,GAAE,CAAR,EACE,IAAK,eAAI,CAAC,EAAG,EAAG,EAAG,GAAE,CAAZ,CADX;AAGA,YAAO,UAA6B,GAAtB,IAAF,GAAW,iDAAJ;;;;UAAI,CAAL,GAAe,GAAD,GAAS,iDAAJ;;;;UAAI,CAAL;AAE/B;AACL,UADK,IACL;AAAQ,qBAAK,CAAC,KAAK,KAAS,CAAf;AACb,gBAFK,IAEL;AAAa,qBAAK,CAAC,KAAK,KAAS,CAAyF,GAArF,+CAAF,GAAoD,GAAF,GAAQ,cAAF,GAAiB,oBAAD,GAAgB,SAAzG;AAClB,gBAHK,IAGL,2CAAc,aAAK,CAAC,KAAK,KAAS,CAAyF,GAArF,+CAAF,GAAmD,GAAF,GAAQ,cAAF,GAAiB,qBAAD,GAAiB,SAAzG,CAAnB;AAjB0C;AAo4HG;AAG7C;AACA;AAGA,YAAO,UAA6B,GAAtB,IAAF,GAAW,iDAAJ;;;;UAAI,CAAL,GAAe,GAAD,GAAS,iDAAJ;;;;UAAI,CAAL;AAEpC,WAAM,QAAQ,eAAe,CAAC,GAAD;AAE7B,UAAY,EAAD,QAAX;AAEE,YAAG,OAAH;AACiB,YAAG,MAAM,YAAY,CAAC,QAAQ,kCAAW,CAAC,oBAAD,CAApB;AAEpC,cAAe,EAAG,MAAM,eAAe,CAAC,OAAD;OAL3C;AAX6C;AA6yBH;AAG1C;AACA;AAGA,YAAO,UAA6B,GAAtB,IAAF,GAAW,iDAAJ;;;;UAAI,CAAL,GAAe,GAAD,GAAS,iDAAJ;;;;UAAI,CAAL;AAEpC,WAAM,QAAQ,eAAe,CAAC,GAAD;AAE7B,UAAY,EAAD,QAAX;AAEE,YAAG,UAAW,KAAE,mCAAhB;AAEiB,YAAG,UAAlB,GAAgC;AAChC,YAAE,cAAC,OAAW,IAAZ;;AAIa,YAAG,UAAlB,GAAgC;AAChC,YAAE,cAAC,OAAW,IAAZ;;OAVN;AAX0C;AAz1ED;AAAhB;AAEzB;AACA;AAGA,YAAO,UAA6B,GAAtB,IAAF,GAAW,iDAAJ;;;;UAAI,CAAL,GAAe,GAAD,GAAS,iDAAJ;;;;UAAI,CAAL;AAEpC,WAAM,QAAQ,eAAe,CAAC,GAAD;AAE7B,eAAmB,EAAD;AAVO;AAAgB;AAixBI;AAE7C;AACA;AAGA,YAAO,UAA6B,GAAtB,IAAF,GAAW,iDAAJ;;;;UAAI,CAAL,GAAe,GAAD,GAAS,iDAAJ;;;;UAAI,CAAL;AAEpC,WAAM,QAAQ,eAAe,CAAC,GAAD;AAE7B,UAAY,EAAD,QAAX,EACG,EAAE,cAAc,YAAY,CAAC,EAAD,CAD/B;AAV6C;AAroGR;AAGrC;AAEA,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,YAAG,CAAI,gBAAW,CAAC,KAAK,IAAN,CAAlB;AAEE,iBAAQ,QAAQ,cAAc,CAAC,UAAD;AAC9B,cAAI,cAAC,MAAU,KAAX;AACJ,cAAI,cAAC,QAAqB,iDAAT;;;;cAAS,CAAtB;AACW,cAAK,MAAM,YAAY,CAAC,QAAQ,MAAT;AACtC,cAAG,MAAO,KAAG,EAAb,EACE,IAAI,cAAC,QAAY,MAAb,CADN;AAEA,8BAAY,CAAC,KAAK,IAAN,CAAW,aAAa,CAAC,KAAM,oBAAY,CAAC,KAAK,IAAN,CAAW,WAA9B;SARtC;OAFF;AALqC;AA45IA;AAErC;AAEA,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAM,uBAAkB,CAAC,KAAK,IAAN;AACxB,YAAY,EAAD,QAAX;AAEE,YAAE,cAAC,QAAqB,iDAAT;;;;cAAS,CAAtB;SAFJ;OAHF;AAJqC;AA51CG;AAExC;AAEA,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAM,uBAAkB,CAAC,KAAK,IAAN;AAE5B;OAJE;AAJwC;AA7tBJ;AAAX;AAEzB;AAEA,eAAU;AACV,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAM,uBAAkB,CAAC,KAAK,IAAN;AACxB,iBAAmB,EAAD;OAHpB;AALyB;AAAW;AA8BK;AAAhB;AAEzB,eAAU;AACV,UAAY,iBAAY,cAAb,QAAX;AAEE,iBAAW,iBAAY,cAAc,cAAc,aAAc,GAAE,iBAAY,cAAc,aAA5B;OAFnE;AAHyB;AAAgB;AAvCA;AAAhB;AAEzB,eAAU;AACV,UAAY,iBAAY,cAAb,QAAX;AAEE,iBAAW,iBAAY,cAAc,cAAc,YAAa,GAAE,iBAAY,cAAc,YAA5B;OAFlE;AAHyB;AAAgB;AA2eL;AAGpC;AACA;AACA;AAAG;AACH;AAEA,6BAAmB;AACnB,YAAO,oBAAe,CAAC,KAAK,IAAN;AAEtB,eAAS,aAAc,aAAvB;AAAI;AAEF,iBAAS,cAAc,eAAvB;AAAI;AAEF,cAAK,CAAD,CAAC,GAAC,CAAD,CAAI,IAAK,CAAD,CAAC,GAAC,CAAD,CAAd;AAEE,iBAAM,oBAAe,CAAM,CAAL,IAAK,GAAE,CAAF,CAAI,GAAE,CAAF,CAAS,CAAL,IAAK,GAAE,CAAF,CAAI,GAAE,CAAzB;AAE7B;WAJM;;;AAUJ,UAAG,MAAO,GAAE,CAAZ,EACE,GAAG,cAAC,UAAoB,iDAAN;;;;UAAM,CAArB,CADL;AAEA,UAAG,MAAO,GAAE,CAAZ,EACE,GAAG,cAAC,UAAoB,iDAAN;;;;UAAM,CAArB,CADL;AAGA,UAAG,IAAK,IAAG,cAAC,EAAE,CAAH,CAAX;AAEE,aAAM;AACN,iBAAS,YAAsB,OAAT,CAAL,IAAK,GAAE,MAAF,CAAS,GAAE,CAAF,oBAA/B;AAAI;AAEF,eAAS,CAAH,EAAG,GAAE,iBAAS,CAAC,CAAD,CAAX,CAAe,GAAE,CAAF;AACxB,cAAe,CAAL,CAAL,IAAK,KAAE,CAAF,CAAK,IAAqB,CAAhB,gCAAgB,IAAG,aAAH,CAArB,CAAkC,IAClC,CAAL,CAAL,IAAK,KAAE,CAAF,CAAK,IAAgB,CAAX,2BAAW,IAAG,aAAH,CAAhB,CADf,EAEE,IAAG,MAAO,GAAG,CAAb,EACM,EAAJ,IAAG,CAHP;;AAMF,WAAG,MAAM,YAAY,CAAC,QAAW,iDAAF;;;;YAAE,CAAS,GAAC,IAAtB;AACrB,WAAG,MAAM,YAAY,CAAC,YAAe,iDAAF;;;;YAAE,CAAS,GAAC,IAA1B;OAbvB;AA9BoC;AAgDA;AAEpC;AAAG;AAAG;AACN;AAAE;AAAE;AAAO;AAEX,UAAG,iBAAY,CAAC,KAAK,KAAM;;;;WAAO;;;;UAAnB,CAAf;AAEE,gBAAS,oBAAe,CAAC,KAAK,IAAN;AAExB,iBAAS,QAAQ,OAAH,QAAG,CAAC,EAAE,MAAH,mBAAjB;AAAI;AAEF,eAAM,oBAAe,CAAC,IAAK,GAAE,MAAF,CAAc,CAAL,IAAK,GAAE,CAAF,CAAI,GAAE,CAA1B;AAErB,mBAAS,SAAQ,QAAH,QAAG,CAAC,EAAE,MAAH,sBAAjB;AAAI;AAEF,gBAAM,CAAF,CAAE,KAAE,CAAF,CAAK,IAAO,CAAF,CAAE,KAAE,CAAF,CAAlB,EACE,QADF;AAEA,iBAAM,QAAQ,cAAc,CAAC,IAAD;AAC5B,cAAE,WAAW,aAAa,CAAC,GAAG,EAAJ;;;AAI9B,aAAK,cAAC,UAAc,EAAf;AACL,aAAK,cAAC,UAAc,EAAf;AAEL,YAAG,IAAK,KAAE,CAAV;AAEE,mBAAS,YAAsB,QAAT,CAAL,IAAK,GAAE,MAAF,CAAS,GAAE,CAAF,qBAA/B;AAAI;AACF,6BAAS,CAAC,EAAM,iBAAS,CAAC,CAAD,CAAhB;;SAHb;OApBF;AALoC;AAhOC;AAAZ;AAGzB,iBAAU,gBAAW,CAAC,KAAK,IAAN,CAArB;AACA,iBAAU,gBAAW,CAAC,KAAK,IAAN,CAArB;AAEA,eAAkB,CAAP,YAAO,GAAE,CAAF,CAAK,IAAW,CAAP,YAAO,GAAE,CAAF,CAAX;AANE;AAAY;AA9xHpB;;;;AA6QG,+BAAO,UlE4KjB,+BkE5KiB,CAAP;AA2FJ,6B9DxWV,uC8DwWU;AACW;AACT,+B9DlWV,yC8DkWU,yB9D6QkD,uBAAC,0CAAQ,wCAAT,C8D7QlD;AACC,gC9D7RV,0C8D6RU;AACG,mC7D1GhB,uC6D0GgB;AACA,mC9D3WV,6C8D2WU;AACN,6B7D5GV,uC6D4GU;AACG,gC9DnXV,0C8DmXU;AACW,2ClEjcpB,gCkEicoB;AACJ;AACC;AACL;AACH,gCF9dV,sCE8dU;AAEC,iC9DzWV,2C8DyWU;AACO,wC9D3WV,kD8D2WU;AACL,mC9D1WV,6C8D0WU;AACI,uC9D1WV,iD8D0WU;AACM;AACZ;AACA;AACC,kC7D3Hf,uC6D2He;AACD,iC7D3Bf,sC6D2Be;AACL,4B7D5BV,sC6D4BU;AACS,qC7D9HlB,uC6D8HkB;AACP;AACO;AACF,mC9DhYZ,2C8DgYY;AACJ,+B9D3SV,yC8D2SU;AACA,+BA/cN,2BA+cM;AACG;AACI;AACL,iClDpSV,wCkDoSU;AACA,iCAzZV,yBAyZU;AACC,kC9DtYT,6C8DsYS;AACI,sC7DzInB,uC6DyImB;AACI,0C7D1IvB,uC6D0IuB;AACL;AACA,qC9DzYV,+C8DyYU;AACL;AAED;AACF;AACO;AACF,kC9DjZX,2C8DiZW;AACF;AAED,+B9DlVN,6C8DkVM;AACI,mCA/aZ,yBA+aY;AACD,kC9DpVT,6C8DoVS;AACI,sCAjbf,yBAibe;AACP,+B9DtVN,6C8DsVM;AACD,8B9DvVL,6C8DuVK;AACU,wC9DrVL,uD8DqVK;AACF,sC9DtVH,uD8DsVG;AACD,qCApbP,gCAobO;AACA,qCAlbP,gCAkbO;AACA,qCAzeH,oCAyeG;AACI,yCAteH,wCAseG;AACH,sCAzeH,qCAyeG;AACC,uCAteH,sCAseG;AACF,qCA5bd,yBA4bc;AACD,oCA5bR,8BA4bQ;AACI,wCA9bjB,yBA8biB;AACH,qCAleX,4BAkeW;AACA,qCAleX,4BAkeW;AAEQ,6CAleP,wCAkeO;AACA,6CAleP,wCAkeO;AAET,oCAjcP,+BAicO;AACD,mCA7eH,kCA6eG;AACK,wC9D3Wf,6C8D2We;AACF,sCA3eZ,4BA2eY;AACJ,kC9DjWP,+C8DiWO;AACA,kC9DnWP,+C8DmWO;AACD,iC9DjWP,8C8DiWO;AACE,mC9DnWP,gD8DmWO;AArbL;AAwbN;;;;;AAEQ;AACA;AACU,0C9DvXjB,6C8DuXiB;AACE,4C9DxXnB,6C8DwXmB;AALpB;AAQG;;;;;AAiIK;AA7HR;;AACK;;AAEG;;;AAEjB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA9BiB;;;;;;;;;;;;AAioVmB;AAEtC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ,mBAAM;OAHR;AAFsC;AA2BA;AAEtC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ,mBAAM;OAHR;AAFsC;AAlBF;AAEpC,UAAI,WAAO,KAAG,KAAd;AAEE,sBAAU;AACV,mBAAM,CAAC,WAAM,QAAO,OAAO,WAAM,WAAW,WAAM,QAAO,YAAnD;OAHR;AAFoC;AASK;AAEzC,UAAI,gBAAY,KAAG,KAAnB;AAEE,2BAAe;AACf,mBAAM;OAHR;AAFyC;AA3HN;AAEnC,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAFmC;AA6ID;AAElC;AACA;AAAI;AAAI;AACR;AAAE;AACF;AAEA,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA,UAAY,mBAAD,QAAX;AAEE,2BAAc,cAAc,YAAY,CAAC,mBAAD;AACxC,8BAAkB;OAHpB;AAKA,UAAY,mBAAD,QAAX;AAEE,2BAAc,cAAc,YAAY,CAAC,mBAAD;AACxC,8BAAkB;OAHpB;AAMA,UAAG,YAAH;AAEE,8BAAiC,QAAQ,cAAc,CAAC,KAAD;AACvD,2BAAc,MAAM,YAAY,CAAC,QAAQ,MAAT;AAChC,4BAA+B,QAAQ,cAAc,CAAC,OAAD;AACrD,YAAG,2BAAsB,KAAG,EAA5B,EACE,iBAAY,cAAC,QAAY,2BAAb,CADd;AAEA,yBAAY,MAAM,YAAY,CAAC,UAAU,QAAX;AAC9B,yBAAY,MAAM,YAAY,CAAC,QAAQ,MAAT;AAE9B,cAAsB,QAAQ,cAAc,CAAC,KAAD;AAC5C,WAAG,cAAC,MAAU,mCAAX;AACH,WAAG,MAAM,YAAY,CAAC,iBAAiB,QAAlB;AACrB,WAAG,MAAM,YAAY,CAAC,eAAe,MAAhB;AACrB,2BAAc,YAAY,CAAC,iBAAD;AAC1B,2BAAc,YAAY,CAAC,GAAD;AAC1B,qBAAQ,YAAY,CAAC,mBAAD;AACpB,WAAG,iBAAiB,CAAC,QAAQ,oBAAT;AACA,yBAAa,MAAjC,GAA2C;OAlB7C;AAqBA,UAAG,YAAH;AAEE,8BAAiC,QAAQ,cAAc,CAAC,KAAD;AACvD,2BAAc,MAAM,YAAY,CAAC,QAAQ,MAAT;AAChC,4BAA+B,QAAQ,cAAc,CAAC,OAAD;AACrD,YAAG,2BAAsB,KAAG,EAA5B,EACE,iBAAY,cAAC,QAAY,2BAAb,CADd;AAEA,yBAAY,MAAM,YAAY,CAAC,UAAU,QAAX;AAC9B,yBAAY,MAAM,YAAY,CAAC,QAAQ,MAAT;AAE9B,cAAsB,QAAQ,cAAc,CAAC,KAAD;AAC5C,WAAG,cAAC,MAAU,mCAAX;AACH,WAAG,MAAM,YAAY,CAAC,iBAAiB,QAAlB;AACrB,WAAG,MAAM,YAAY,CAAC,eAAe,MAAhB;AACrB,2BAAc,YAAY,CAAC,iBAAD;AAC1B,2BAAc,YAAY,CAAC,GAAD;AAC1B,qBAAQ,YAAY,CAAC,mBAAD;AACpB,WAAG,iBAAiB,CAAC,QAAQ,oBAAT;AACA,yBAAa,MAAjC,GAA2C;OAlB7C;AAqBA,YAAO;AACP,UAAG,WAAM,WAAT,EACM,GAAJ,IAAG,CADL;AAGA,iBAA6B,UAAP,CAAT,QAAS,GAAE,GAAF,CAAO,GAAI,QAAJ;AAE7B,UAAoB,CAAP,CAAT,QAAS,GAAE,GAAF,CAAO,GAAI,QAAJ,CAAa,GAAE,CAAnC,EACM,QAAJ,IAAG,CADL;AAGA,iBAAM,QAAO,WAAb,GAA4B;AAE5B,UAAY,kBAAD,QAAX;AAEE,0BAAa,cAAc,YAAY,CAAC,kBAAD;AACvC,6BAAiB;OAHnB;AAMA,UAAG,CAAI,WAAM,QAAO,SAApB,EACE,MADF;AAGA,UAAG,WAAO,KAAE,2BAAZ;AAEE,6BAAgC,QAAQ,cAAc,CAAC,QAAD;AAEtD,YAAG,8BAAyB,KAAG,EAA/B,EACE,kBAAa,cAAC,QAAY,8BAAb,CADf;AAGA,0BAAa,iBAAiB,CAAC,SAAS,kBAAV;AAE9B,iBAAS,QAAc,OAAT,QAAS,GAAE,CAAF,kBAAvB;AAAI;AAEF,gBAA4B,QAAQ,cAAc,CAAC,QAAD;AAClD,aAAG,KAAH,GAAmB,iDAAJ,IAAF,CAAE,GAAE,CAAF;;;;cAAI;AACnB,aAAG,cAAC,OAAY,iDAAD;;;;cAAC,CAAb;AACH,cAAG,CAAE,KAAE,UAAP,EACE,GAAG,cAAC,WAAe,UAAhB,CADL;AAGqB,4BAAc,IAAI,CAAC,GAAD;;AAGpC;AACL,YADK,IACL;AAAS,4BAAa,MAAM,YAAY,CAAC,QAAQ,OAAT;AACxC,kBAFK,IAEL;AAAQ,4BAAa,MAAM,YAAY,CAAC,QAAQ,MAAT;AACvC,kBAHK,IAGL;AAEI,4BAAa,MAAM,eAAe,CAAC,OAAD;AAClC,4BAAa,MAAM,YAAY,CAAC,YAAY,SAAb;AAC/B,4BAAa,MAAM,YAAY,CAAC,cAAc,MAAf;AAC/B,4BAAa,MAAM,YAAY,CAAC,eAAe,MAAhB;SALnC;AASA,0BAAa,MAAM,YAAY,CAAC,UAAU,QAAX;AAC/B,0BAAa,MAAM,YAAY,CAAC,QAAQ,MAAT;AAC/B,qBAAQ,YAAY,CAAC,kBAAD;OAlCtB;AAqCA,UAAG,WAAO,KAAE,uBAAZ;AAEE,6BAAgC,QAAQ,cAAc,CAAC,KAAD;AAEtD,iBAAS,SAAc,QAAT,QAAS,GAAE,CAAF,qBAAvB;AAAI;AAEF,gBAA4B,QAAQ,cAAc,CAAC,GAAD;AAClD,aAAG,UAAH,GAAwB,iDAAJ,IAAF,CAAE,GAAE,CAAF;;;;cAAI;AACxB,aAAG,cAAC,OAAW,GAAZ;AACH,cAAG,0BAAqB,KAAG,EAA3B;AAGE,gBAAM,CAAF,CAAE,KAAE,UAAF,CAAc,IAAgC,CAA3B,gCAA2B,KAAG,EAAH,CAApD;AACE,iBAAG,cAAC,QAAY,gCAAb;AAEA,kBAAH,GAAG,cAAC,QAAY,0BAAb;WANP;AAQA,aAAG,MAAM,YAAY,CAAC,eAAe,KAAhB;AACrB,aAAG,MAAM,YAAY,CAAC,UAAU,QAAX;AACrB,aAAG,cAAC,OAAY,iDAAD;;;;cAAC,CAAb;AAEH,aAAG,iBAAiB,CAAC,QAAQ,kBAAT;AACpB,4BAAa,YAAY,CAAC,GAAD;;AAGtB;AACL,YADK,KACL;AAAS,4BAAa,MAAM,YAAY,CAAC,QAAQ,OAAT;AACxC,kBAFK,KAEL;AAAQ,4BAAa,MAAM,YAAY,CAAC,QAAQ,MAAT;AACvC,kBAHK,KAGL;AAEI,4BAAa,MAAM,eAAe,CAAC,OAAD;AAClC,4BAAa,MAAM,YAAY,CAAC,YAAY,SAAb;AAC/B,4BAAa,MAAM,YAAY,CAAC,cAAc,MAAf;AAC/B,4BAAa,MAAM,YAAY,CAAC,eAAe,MAAhB;SALnC;AAQA,qBAAQ,YAAY,CAAC,kBAAD;OApCtB;AAuCA,UAAG,WAAO,KAAE,yBAAZ;AAEE,6BAAgC,QAAQ,cAAc,CAAC,KAAD;AAEtD,iBAAS,SAAc,QAAT,QAAS,GAAE,CAAF,qBAAvB;AAAI;AAEF,gBAA4B,QAAQ,cAAc,CAAC,QAAD;AAClD,aAAG,UAAH,GAAwB,iDAAJ,IAAF,CAAE,GAAE,CAAF;;;;cAAI;AACxB,cAAG,4BAAuB,KAAG,EAA7B;AAEE,gBAAM,CAAF,CAAE,KAAE,UAAF,CAAc,IAAkC,CAA7B,kCAA6B,KAAG,EAAH,CAAtD;AACE,iBAAG,cAAC,QAAY,kCAAb;AAEA,kBAAH,GAAG,cAAC,QAAY,4BAAb;WALP;AAOA,aAAG,cAAC,OAAY,iDAAD;;;;cAAC,CAAb;AACH,aAAG,iBAAiB,CAAC,QAAQ,kBAAT;AACpB,aAAG,MAAM,YAAY,CAAC,eAAe,KAAhB;AACrB,4BAAa,YAAY,CAAC,GAAD;;AAGtB;AACL,YADK,KACL;AAAS,4BAAa,MAAM,YAAY,CAAC,QAAQ,OAAT;AACxC,kBAFK,KAEL;AAAQ,4BAAa,MAAM,YAAY,CAAC,QAAQ,MAAT;AACvC,kBAHK,KAGL;AAEI,4BAAa,MAAM,eAAe,CAAC,OAAD;AAClC,4BAAa,MAAM,YAAY,CAAC,YAAY,SAAb;AAC/B,4BAAa,MAAM,YAAY,CAAC,cAAc,MAAf;AAC/B,4BAAa,MAAM,YAAY,CAAC,eAAe,MAAhB;SALnC;AASA,qBAAQ,YAAY,CAAC,kBAAD;OAjCtB;AAoCA,UAAG,WAAO,KAAE,2BAAZ;AAEE,6BAAgC,QAAQ,cAAc,CAAC,KAAD;AAEtD,cAA4B,QAAQ,cAAc,CAAC,QAAD;AAClD,WAAG,UAAH,GAAiB;AACjB,WAAG,cAAC,OAAW,GAAZ;AACD,YAAG,4BAAuB,KAAG,EAA7B,EACE,GAAG,cAAC,QAAY,4BAAb,CADL;AAEF,WAAG,iBAAiB,CAAC,QAAQ,kBAAT;AACpB,WAAG,MAAM,YAAY,CAAC,eAAe,KAAhB;AAErB,YAAG,WAAM,QAAO,YAAY,KAAE,CAA9B,EACE,GAAG,aAAa,CAAC,WAAW,EAAZ,CADlB;AAGA,0BAAa,YAAY,CAAC,GAAD;AAEzB,cAA4B,QAAQ,cAAc,CAAC,QAAD;AAClD,WAAG,UAAH,GAAiB;AACjB,WAAG,cAAC,OAAW,GAAZ;AACD,YAAG,4BAAuB,KAAG,EAA7B,EACE,GAAG,cAAC,QAAY,4BAAb,CADL;AAEF,WAAG,iBAAiB,CAAC,QAAQ,kBAAT;AACpB,WAAG,MAAM,YAAY,CAAC,eAAe,KAAhB;AAErB,YAAG,WAAM,QAAO,YAAY,KAAE,CAA9B,EACE,GAAG,aAAa,CAAC,WAAW,EAAZ,CADlB;AAGA,0BAAa,YAAY,CAAC,GAAD;AAEzB,cAA4B,QAAQ,cAAc,CAAC,QAAD;AAClD,WAAG,UAAH,GAAiB;AACjB,WAAG,cAAC,OAAW,GAAZ;AACD,YAAG,4BAAuB,KAAG,EAA7B,EACE,GAAG,cAAC,QAAY,4BAAb,CADL;AAEF,WAAG,iBAAiB,CAAC,QAAQ,kBAAT;AACpB,WAAG,MAAM,YAAY,CAAC,eAAe,KAAhB;AAErB,YAAG,WAAM,QAAO,YAAY,KAAE,WAAM,QAAO,WAA3C,EACE,GAAG,aAAa,CAAC,WAAW,EAAZ,CADlB;AAGA,0BAAa,YAAY,CAAC,GAAD;AAEzB,cAA4B,QAAQ,cAAc,CAAC,QAAD;AAClD,WAAG,UAAH,GAAiB;AACjB,WAAG,cAAC,OAAW,GAAZ;AACH,WAAG,iBAAiB,CAAC,QAAQ,kBAAT;AAClB,YAAG,4BAAuB,KAAG,EAA7B,EACE,GAAG,cAAC,QAAY,4BAAb,CADL;AAEF,WAAG,MAAM,YAAY,CAAC,eAAe,KAAhB;AACrB,0BAAa,YAAY,CAAC,GAAD;AACpB;AACL,YADK,KACL;AAAS,4BAAa,MAAM,YAAY,CAAC,QAAQ,OAAT;AACxC,kBAFK,KAEL;AAAQ,4BAAa,MAAM,YAAY,CAAC,QAAQ,MAAT;AACvC,kBAHK,KAGL;AAEI,4BAAa,MAAM,eAAe,CAAC,OAAD;AAClC,4BAAa,MAAM,YAAY,CAAC,YAAY,SAAb;AAC/B,4BAAa,MAAM,YAAY,CAAC,cAAc,MAAf;AAC/B,4BAAa,MAAM,YAAY,CAAC,eAAe,MAAhB;SALnC;AAUA,YAAG,WAAM,QAAO,YAAY,KAAE,WAAM,QAAO,WAA3C,EACE,GAAG,aAAa,CAAC,WAAW,EAAZ,CADlB;AAGA,qBAAQ,YAAY,CAAC,kBAAD;OAnEtB;AAuEA,UAAG,WAAO,KAAE,uBAAZ;AAEE,6BAAgC,QAAQ,cAAc,CAAC,IAAD;AAEtD,YAAG,0BAAqB,KAAG,EAA3B,EACE,kBAAa,cAAC,QAAY,0BAAb,CADf;AAGA,0BAAa,MAAM,YAAY,CAAC,SAAS,KAAV;AAE/B,iBAAS,SAAc,QAAT,QAAS,GAAE,CAAF,qBAAvB;AAAI;AAEF,gBAA4B,QAAQ,cAAc,CAAC,IAAD;AAClD,cAAG,8BAAyB,KAAG,EAA/B;AAEE,gBAAG,CAAE,KAAE,UAAP;AACE,iBAAG,cAAC,QAAY,8BAAyB,GAAE,SAAxC;AAEA,kBAAH,GAAG,cAAC,QAAY,8BAAb;WALP;AAQA,gBAA4B,QAAQ,cAAc,CAAC,GAAD;AAClD,aAAG,UAAH,GAAwB,iDAAJ,IAAF,CAAE,GAAE,CAAF;;;;cAAI;AACxB,aAAG,cAAC,OAAW,GAAZ;AACH,aAAG,cAAC,OAAY,iDAAD;;;;cAAC,CAAb;AACH,aAAG,iBAAiB,CAAC,QAAQ,kBAAT;AAEpB,cAAG,8BAAyB,KAAG,EAA/B,EACE,GAAG,cAAC,QAAY,8BAAb,CADL;AAGA,aAAG,YAAY,CAAC,GAAD;AAEf,4BAAa,YAAY,CAAC,GAAD;;AAGtB;AACL,YADK,KACL;AAAS,4BAAa,MAAM,YAAY,CAAC,QAAQ,OAAT;AACxC,kBAFK,KAEL;AAAQ,4BAAa,MAAM,YAAY,CAAC,QAAQ,MAAT;AACvC,kBAHK,KAGL;AAEI,4BAAa,MAAM,eAAe,CAAC,OAAD;AAClC,4BAAa,MAAM,YAAY,CAAC,YAAY,SAAb;AAC/B,4BAAa,MAAM,YAAY,CAAC,cAAc,MAAf;AAC/B,4BAAa,MAAM,YAAY,CAAC,eAAe,MAAhB;SALnC;AASA,qBAAQ,YAAY,CAAC,kBAAD;OA9CtB;AA1QkC;AA1GS;AAAhB;AAE3B;AACA;AAEA,WAAK;AACL,WAAK;AAEL,eAAU;AAEV,UAAG,WAAM,KAAE,2BAAX;AAGF;OAIE,UAAG,WAAM,KAAE,2BAAX;AAEE,YAAgB,KAAK,OAAQ,aAAa,CAAC,MAAD;AAC1C,cAAO,qBAAQ,CAAC,CAAD;AAEV;AACL,YADK,IACL;AAAG,cAAG,WAAM,QAAO,YAAY,GAAE,CAA9B;AACE,kBAAO;AAEP;AACL,kBALK,IAKL;AAAG,cAAG,WAAM,QAAO,YAAY,GAAE,CAA9B;AACE,kBAAO,WAAM,QAAO,YAAY,GAAE,CAAF;AAEhC;AACL,kBATK,IASL;AAAG,cAAG,WAAM,QAAO,YAAY,GAA0B,CAAxB,WAAM,QAAO,WAAW,GAAE,CAAF,CAAtD;AACE,kBAAO,WAAM,QAAO,YAAY,GAAE,CAAF;AAEhC;AACL,kBAbK,IAaL,QAAG,IAAG,WAAM,QAAO,YAAY,GAA0B,CAAxB,WAAM,QAAO,WAAW,GAAE,CAAF,CAAtD;AACE,gBAAO,WAAM,QAAO,WAAW,GAAE,CAAF;AAE/B,2BAHL;;AAQA,YAAgB,KAAK,OAAQ,aAAa,CAAC,MAAD;AAC1C,cAAO,qBAAQ,CAAC,CAAD;;AAGjB,iBAAM,aAAa,CAAC,GAAD;AA/CQ;AAAgB;AAkDC;AAAjB;AAE3B;AAGF;AAGE,UAAS,CAAL,IAAK,KAAG,EAAH,CAAO,IAAU,CAAL,IAAK,KAAG,iBAAH,CAA1B;AAEE,4BAAgB;AAChB,mBAAM,SAAS,CAAC,kBAr0U8C,KAA0B,KAq0UzE;OAGf,MAAA,WAAM;AAGR,eAAU;AAjBiB;AAAiB;AApEA;AAAjB;AAE3B;AAGF;AAEE,UAAS,CAAL,IAAK,KAAE,EAAF,CAAM,IAAS,CAAL,IAAK,KAAG,iBAAH,CAAxB,EACE,WAAM,eADR;AAGA,UAAI,IAAK,KAAG,EAAZ;AAEE,4BAAgB;AAChB,mBAAM,UAAU,CAAC,mBAAc,kBAvwUkD,IAuwUjE;OAHlB;AAKA,eAAU;AAfiB;AAAiB;AAXR;AAE1B;AACV,oBAAU;AACV,2BAAiB;AACjB,yBAAe;AACf,2BAAkB;AAClB,6BAAoB;AACpB,6BAAoB;AAR8C;AAA9B;AA7BF;AAElC,UAAc,wBAAH,eAAP,MAAO,CAAX;AAEE,wBAAoB,OAAP,OAAU,wBAAH,CAAuB;AAC3C,wBAAoB,OAAP,OAAU,wBAAH,CAAuB;AAC3C,sBAAkB,OAAP,OAAU,wBAAH,CAAuB;AACzC,2BAAuB,OAAP,OAAU,wBAAH,CAAuB;AAC9C,6CAAyC,OAAP,OAAU,wBAAH,CAAuB;AAChE,uCAAmC,OAAP,OAAU,wBAAH,CAAuB;AAC1D,2CAAuC,OAAP,OAAU,wBAAH,CAAuB;AAC9D,qCAAiC,OAAP,OAAU,wBAAH,CAAuB;AACxD,yCAAqC,OAAP,OAAU,wBAAH,CAAuB;AAC5D,sCAAkC,OAAP,OAAU,wBAAH,CAAuB;AACzD,6BAAyB,OAAP,OAAU,wBAAH,CAAuB;AAChD,uBAAmB,OAAP,OAAU,wBAAH,CAAuB;AAC1C,uBAAmB,OAAP,OAAU,wBAAH,CAAuB;AAC1C,qCAAiC,OAAP,OAAU,wBAAH,CAAuB;AACxD,yCAAqC,OAAP,OAAU,wBAAH,CAAuB;AAC5D,yCAAqC,OAAP,OAAU,wBAAH,CAAuB;OAjB9D;AAFkC;AAjgVf;AA0CC,+BAAO,UAgFR,iCAhFQ,CAAP;AAKG;AACN;AACA;AACsB,oD9D7etB,kD8D6esB;AACN,8C9D9ehB,kD8D8egB;AACE,gD9D/elB,kD8D+ekB;AACH,6C9Dhff,kD8Dgfe;AACK,kD9DjfpB,kD8DifoB;AACN,4C9Dlfd,kD8Dkfc;AACA,4C9Dnfd,kD8Dmfc;AACI,gD9DpflB,kD8DofkB;AACA,gD9DrflB,kD8DqfkB;AACjB;AACF,6BA/DL,0BA+DK;AACK,kCA/DL,+BA+DK;AACH;AA9DC;AAiEA;;;AAEjB;AACA;AACA;AACA;AACA;AACA;AAPiB;;;;;AA28ViB;AAEpC,UAAW,CAAP,WAAO,KAAG,KAAH,CAAU,IAAW,CAAN,KAAM,IAAG,CAAH,CAAhC;AAEE,YAAG,WAAM,QAAO,MAAM,KAAG,CAAzB,EACE,IAAG,CAAW,CAAN,KAAM,GAAkB,UAAhB,WAAM,UAAU,GAAI,WAAM,QAAO,MAAjB,CAAlB,CAAd,EACE,MAFJ;AAIA,2BAAe;AACf,sBAAU;AACV,mBAAM,aAAa,CAAC,WAAD;OARrB;AAFoC;AAcD;AAEnC;AAEA,UAAI,UAAM,KAAG,KAAb;AAEE,mBAAY;AACZ,qBAAS;AACT,mBAAM,gBAAgB,CAAC,UAAM,GAAE,QAAT;AACtB,mBAAM;OALR;AAJmC;AArCG;AAEtC;AAEA,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AAEZ,aAAM;AAEN,YAAG,WAAM,WAAT,EACE,KAAM,CADR;AAGA,YAAG,aAAH;AACE,qBAAM,gBAAgB,CAAO,CAAN,UAAM,GAAE,EAAF,CAAK,GAAE,WAAM,UAApB;AAEtB,cAAA,WAAM,gBAAgB,CAAC,WAAM,UAAkB,GAAN,UAAF,GAAU,EAA3B;AAExB,mBAAM;OAdR;AAJsC;AARF;AAE1B;AACV,oBAAU;AACV,mBAAS;AACT,oBAAU;AALwD;AAA9B;AAVF;AAElC,UAAc,wBAAH,eAAP,MAAO,CAAX;AAEE,wBAAoB,OAAP,OAAU,wBAAH,CAAuB;AAC3C,qBAAiB,OAAP,OAAU,wBAAH,CAAuB;AACxC,sBAAkB,OAAP,OAAU,wBAAH,CAAuB;OAJ3C;AAFkC;AAl6Vf;AAYC,+BAAO,UA6CR,iCA7CQ,CAAP;AAKF;AACF;AACD;AAnBI;AAsBC;;;AAElB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAZkB;;;;;AAw4UyB;AAE7C,4BAAkB;AAClB,iBAAM;AAHuC;AAZE;AAE/C,8BAAoB;AACpB,iBAAM;AAHyC;AAMJ;AAE3C,0BAAgB;AAChB,iBAAM;AAHqC;AAYG;AAE9C,6BAAmB;AACnB,iBAAM;AAHwC;AA3BT;AAGrC,oBAAU;AACV,8BAAoB;AACpB,yBAAe;AACf,yBAAe;AANoD;AAA9B;AAjBF;AAEnC,UAAc,yBAAH,eAAP,MAAO,CAAX;AAEE,+BAA2B,OAAP,OAAU,yBAAH,CAAwB;AACnD,8BAA0B,OAAP,OAAU,yBAAH,CAAwB;AAClD,4BAAwB,OAAP,OAAU,yBAAH,CAAwB;AAChD,8BAA0B,OAAP,OAAU,yBAAH,CAAwB;AAClD,8BAA0B,OAAP,OAAU,yBAAH,CAAwB;AAClD,6BAAyB,OAAP,OAAU,yBAAH,CAAwB;AACjD,4BAAwB,OAAP,OAAU,yBAAH,CAAwB;AAChD,gCAA4B,OAAP,OAAU,yBAAH,CAAwB;AACpD,2BAAuB,OAAP,OAAU,yBAAH,CAAwB;AAC/C,2BAAuB,OAAP,OAAU,yBAAH,CAAwB;OAXjD;AAFmC;AAl2Uf;AAkBA,+BAAO,UAiBR,iCAjBQ,CAAP;AAGI;AACF;AACE;AACD;AACD;AACI,uC7DtTpB,uC6DsToB;AACL,kClE1oBX,gCkE0oBW;AACA;AACI;AACD;AA9BJ;AAiCJ,uEAAmB,U3EvkB5B,2B2EukB4B,EAAkB,wBAAoB,wBAA4B,+BAArF;AAEG;;;AAEjB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAAU;AACV;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA3CiB;;;;;;;;;;;;;;;;;;;;;;;;AA45NgB;AAAR;AAE3B;AACA;AAAI;AAEJ,eAAU;AAEV,YAAO;AACP,UAAG,YAAM,SAAT,EACE,MAAO,CADT;AAGA,YAAO;AACP,UAAG,eAAH,EACM,GAAJ,IAAG,CADL;AAGA,UAAQ,CAAJ,GAAI,IAAG,CAAH,CAA4D,IAA7C,CAAJ,GAAI,IAAG,CAAH,CAAT,IAAwB,CAAJ,GAAI,GAAE,cAAF,CAAT,IAAgD,CAAJ,GAAI,GAAE,CAAF,CAA7E;AAGF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGI,iBAAU;OAhBZ;AAf2B;AAAQ;AAuqDC;AAEpC;AACA;AAEA,UAAG,CAAY,CAAC,WAAD,SAAf,EACE,MADF;AAGA,YAAO;AACP,UAAG,eAAH,EACM,GAAJ,IAAG,CADL;AAGA,UAAQ,CAAJ,GAAI,IAAG,CAAH,CAA0C,IAA3B,CAAJ,GAAI,IAAG,CAAH,CAAT,IAAwB,CAAJ,GAAI,GAAE,cAAF,CAAT,IAA8B,CAAJ,GAAI,IAAG,GAAH,CAA3D;AAEE,YAAI,GAAI,KAAE,CAAV,EACE,sBADF;AAIJ;AACA;AACA;AAGI,YAAG,eAAH,EACE,MAAO,GAAI,GAAE,CADf;AAGA,YAAG,kBAAa,CAAC;;;;YAAD,CAAM,IAAe,CAAN,CAAJ,GAAI,KAAE,CAAC,CAAH,CAAM,IAAI,eAAJ,CAArC;AAEE,cAAG,YAAM,SAAT,EACM,GAAJ,IAAG,CADL;AAEA,cAAG,eAAH,EACE,MAAO,GAAI,GAAE,CADf;AAIN;AAGM,2BAAY,CAAC,IAAI,IAAI,GAAI,KAAb;SAXd;OAdF;AAZoC;AApkDM;AAAf;AAE3B;AAEA,YAAO;AAEP,UAAQ,CAAJ,GAAI,IAAG,CAAH,CAAM,IAAS,CAAJ,GAAI,GAAE,cAAF,CAAvB;AAGF;AACA;OAJE;AAQA,eAAU;AAdiB;AAAe;AA00DC;AAE3C,UAAQ,CAAJ,GAAI,IAAG,CAAH,CAAM,IAAS,CAAJ,GAAI,GAAE,cAAF,CAAvB;AAGF;AACA;OAJE;AAF2C;AAx8DF;AAAd;AAE3B;AACA;AAAG;AAEH,YAAO;AAEP,WAAM;AACN,UAAG,YAAM,SAAT,EACE,KAAM,CADR;AAGA,WAAM;AACN,UAAG,eAAH,EACE,KAAM,CADR;AAGA,UAAQ,CAAJ,GAAI,IAAG,CAAH,CAAgF,IAAjE,CAAJ,GAAI,IAAG,CAAH,CAAT,IAAwB,CAAJ,GAAI,GAAE,cAAF,CAAT,IAA8B,CAAJ,GAAI,IAAuB,CAApB,qBAAoB,GAAH,EAAF,GAAO,EAAF,CAAvB,CAAT,IAAkD,CAAC,WAAD,SAApG;AAGF;AACA;AACA;OALE;AASA,eAAU;AAxBiB;AAAc;AA8DC;AAAf;AAG3B;AACA;AAEA,eAAU;AAEV,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAiB,mBAAY,CAAC,KAAK,IAAN,CAAW;AAExC,YAAW,CAAC,EAAD,SAA4B,IAAf,UAAH,GAAM,OAAH,CAAR,IAAkD,CAAtB,sBAAS,CAAC,EAAE,QAAH,CAAa,KAAE,KAAF,CAAlE,EACE,KAAiB,EAAE,WADrB;AAGA,YAAW,CAAC,EAAD,SAAK,IAAQ,UAAH,GAAM,OAAH,CAAxB;AAEE,cAAK;AACL,cAAG,EAAE,aAAa,CAAC,MAAD,CAAlB,EACE,IAAK,EAAE,aAAa,CAAC,MAAD,CADtB;AAGA,cAAK,CAAD,CAAC,KAAE,EAAF,CAAM,IAAkB,CAAb,sBAAS,CAAC,CAAD,CAAI,KAAE,UAAF,CAA7B;AAEE,qBAAyB;WAF3B;SANF;OAPF;AAR2B;AAAe;AA7GC;AAAhB;AAG3B;AAEA,eAAU;AAEV,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAM,mBAAY,CAAC,KAAK,IAAN;AAClB,aAAiB,EAAE;AACnB,YAAW,CAAC,EAAD,SAAK,IAAgB,CAAX,EAAE,QAAS,KAAE,KAAF,CAAhC,EACE,KAAiB,EAAE,WADrB;AAGA,YAAW,CAAC,EAAD,SAAK,IAAgB,CAAX,EAAE,QAAS,KAAE,QAAF,CAAhC;AAEE,mBAAyB;SAF3B;OAPF;AAP2B;AAAgB;AAyJE;AAAlB;AAG3B;AAEA,eAAU;AAEV,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAiB,mBAAY,CAAC,KAAK,IAAN,CAAW;AACxC,YAAW,CAAC,EAAD,SAAK,IAAQ,UAAH,GAAM,OAAH,CAAxB;AAEE,cAAI,sBAAS,CAAC,EAAE,QAAH,CAAa,KAAE,UAA5B;AAEE,qBAAyB;WAF3B;SAFF;OAHF;AAP2B;AAAkB;AAs0DP;AAEtC,mBAAQ,OAAO,CAAC,KAAD;AAFuB;AA7Ge;AAGrD;AAEA,UAAI,4BAAwB,KAAG,KAA/B;AAEE,uCAA2B;AAC3B,YAAY,WAAD,QAAX;AAEE,iBAAuB,WAAM;AAC7B,cAAW,CAAC,IAAD,SAAO,IAAkB,CAAb,IAAI,QAAS,KAAE,OAAF,CAApC,EACE,IAAI,aAAa,CAAC,QAAQ,4BAAT,CADnB;SAHF;OAHF;AALqD;AAiBD;AAGpD,UAAI,2BAAuB,KAAG,KAA9B;AAEE,sCAA0B;AAC1B,YAAY,WAAD,QAAX,EACE,WAAM,aAAa,CAAC,QAAQ,2BAAT,CADrB;OAHF;AAHoD;AA5EZ;AAExC,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd,YAAY,WAAD,QAAX;AAEE,cAAG,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAlB,EACE,mBADF;SAFF;OAHF;AAFwC;AA8QA;AAExC,UAAI,eAAW,KAAG,KAAlB;AAEE,0BAAc;AACd,YAAY,WAAD,QAAX;AAEE,cAAG,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAlB,EACE,mBADF;SAFF;OAHF;AAFwC;AAuEA;AAExC,wBAAc;AAF0B;AA1DD;AAEvC;AAEA,UAAG,cAAU,KAAG,CAAC,CAAjB;AAEE,aAAM,mBAAY,CAAC,EAAE,cAAH;AAClB,YAAY,EAAD,QAAX;AAEE,cAAG,+BAA0B,KAAE,EAA/B;AAEiB,cAAE,cAAe,MAAM,eAAe,CAAC,OAAD;AACtC,cAAE,cAAe,MAAM,eAAe,CAAC,kBAAD;WAGrD,MAAA,EAAE,cAAc,UAAhB,GAA8B;SARlC;OAHF;AAeA,uBAAa;AAEb,UAAI,cAAU,KAAG,CAAC,CAAlB;AAEE,aAAM,mBAAY,CAAC,EAAE,cAAH;AAElB,YAAY,EAAD,QAAX;AAEE,cAAG,+BAA0B,KAAE,EAA/B;AAEE,gBAAI,wBAAmB,KAAG,EAA1B,EACiB,EAAE,cAAe,MAAM,YAAY,CAAC,QAAS,kCAAW,CAAC,wBAAD,CAArB,CADpD;AAEA,gBAAI,oBAAe,KAAG,EAAtB,EACiB,EAAE,cAAe,MAAM,YAAY,CAAC,mBAAmB,kCAAW,CAAC,oBAAD,CAA/B,CADpD;WAIA,MAAe,EAAE,cAAe,UAAU,IAAI,CAAC,+BAAD;SAVlD;OAJF;AArBuC;AAwCM;AAE7C,UAAI,oBAAgB,KAAG,KAAvB;AAEE,+BAAmB;AACnB;OAHF;AAF6C;AASI;AAEjD,UAAI,wBAAoB,KAAG,KAA3B;AAEE,mCAAuB;AACvB;OAHF;AAFiD;AA9KZ;AAErC,kBAAO,OAAO,CAAC,KAAD;AAFuB;AAKA;AAErC,kBAAO,OAAO,CAAC,KAAD;AAFuB;AAUA;AAErC,kBAAO,OAAO,CAAC,KAAD;AAFuB;AAiUG;;AAGxC;AAAI;AAAG;AACP;AAEgB;AAAP;AAEP;AAGJ;AACA;AAEI,iBAAU;AARH;AAAO;AAWC;AAAR;AAEP;AAGJ;AAEI,iBAAU;AAPH;AAAQ;AAUM;AAAd;AAGX;AACA;AACA;AACA;AACA;AACA;AARW;AAAc;AAYT;AAAL;AAGX;AACA;AACA;AALW;AAAK;AAUd,UAAgB,CAAZ,2CAAY,IAAG,oBAAH,CAAoD,IAAN,CAAtB,2BAAsB,KAAE,EAAF,CAA3B,IAAqC,CAAI,aAAO,aAAnF;AAGF;AACA;AACA;AAEI;OAPF;AAUA,UAAG,aAAO,eAAe,IAAI,OAAO,CAAC,KAAD,CAApC;AACE,aAAM,kBAAmC,GAAhB,KAAD,GAAO,IAAD,GAAM,KAAD,GAAO,MAAD;AAEzC,gBAAG,aAAO,eAAe,IAAI,QAAQ,CAAC,KAAD,CAArC;AAEE,YAAG,aAAO,YAAY,GAAE,CAAxB;AACE,eAAM,YAA2D,GAA9C,KAAD,GAAO,WAAD,GAAgC,iDAAC,CAAnB,kBAAmB;;;;cAAD,CAApB,GAA8B,MAAD;AAEjE,mBAAM,YAAkB,GAAL,KAAD,GAAO,IAAD;AAEd,mBAAP,aAAO;AACZ,YADY,IACZ;AAAU,eAAK,cAAC,QAAY,QAAb;AACf,kBAFY,IAEZ,4CAAgB,KAAK,cAAC,QAAY,OAAb,CAArB;OAKA,UAAG,aAAO,aAAa,IAAI,cAAc,CAAC,KAAD,CAAzC;AACE,aAAM,WAA4B,GAAhB,KAAD,GAAO,IAAD,GAAM,KAAD,GAAO,MAAD;;AAGlC,aAAM;AACN,YAAG,aAAO,cAAc,IAAI,KAAK,CAAC,KAAD,CAAjC,EACE,KAAK,cAAC,QAAY,OAAb,CADP;;AAIN,UAAG,cAAH;AACE,aAAK,UAAL,GAAmB;AAEnB,YAAA,KAAK,UAAL,GAAmB,8EAAiF,GAAF,EAAD,GAAI,QAAD;AAItG,UAA0B,CAAtB,2BAAsB,KAAE,EAAF,CAAM,IAAI,aAAO,aAA3C;AAEE,cAAO,kCAAW,CAAC,aAAO,iBAAR;AAEtB;AACA;OALE;AASA,WAAM;AACN,2BAAgB,CAAC,KAAK,KAAM,KAAK,MAAO;;;;UAAxB;AAChB,UAAG,EAAG,KAAG,EAAT,EACE,KAAK,aAAa,CAAC,QAAQ,EAAT,CADpB;AAvGwC;AA3FF;AAAX;AAE3B;AACA;AAEA,eAAU;AAEV,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,IAAG,CAAH,CAA/B;AAEE,aAAM,mBAAY,CAAC,KAAK,CAAN;AAEtB;AAGI,iBAAU;OAPZ;AAP2B;AAAW;AA/BC;AAEvC;AAAG;AACH;AAEA,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,IAAG,CAAH,CAA/B;AAEE,YAAG,MAAO,GAAE,CAAZ;AAEE,mBAAS,QAAK,8CAAd;AAAI;AAEF,iBAAM;AACN,iBAAM,mBAAY,CAAC,KAAK,CAAN;AAClB,gBAAY,EAAD,QAAX;AAEE,gBAAE,MAAM,YAAY,CAAC,QAAe,iDAAN;;;;kBAAM,CAAS,GAAC,IAA1B;AACpB,gBAAE,MAAM,YAAY,CAAC,YAAmB,iDAAN;;;;kBAAM,CAAS,GAAC,IAA9B;AACpB,mBAAqB,EAAE;AACvB,kBAAW,CAAC,EAAD,SAAK,IAAgB,CAAX,EAAE,QAAS,KAAE,KAAF,CAAhC;AAEE,kBAAE,MAAM,YAAY,CAAC,QAAe,iDAAN;;;;oBAAM,CAAS,GAAC,IAA1B;AACpB,kBAAE,MAAM,YAAY,CAAC,YAAmB,iDAAN;;;;oBAAM,CAAS,GAAC,IAA9B;eAHtB;aALF;;SANJ;OAFF;AALuC;AAhZA;AAEvC,UAAG,cAAU,KAAG,MAAhB;AAEE,yBAAa;AACb,YAAY,WAAD,QAAX;AAEE,cAAG,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAlB,EACE,mBADF;SAFF;OAHF;AAFuC;AAjpDG;AAAf;AAE3B,UAAG,eAAU,IAAmB,CAAf,YAAM,SAAS,KAAE,KAAF,CAAhC;AACE,iBAAU,cAAS,GAAE,CAAF;AAEnB,qBAAU;AALe;AAAe;AA7oBL;AAErC;AAFqC;AAu0ES;AAE9C,UAAG,eAAH;AACE,yBAAY,MAAO,GAAE,CAArB;AAEA,6BAAY,MAAZ;AAL4C;AAsBH;AAE3C,UAAG,eAAH;AACE,yBAAY,MAAO,GAAE,CAArB;AAEA,6BAAY,MAAZ;AALyC;AAQH;AAGxC;AAAG;AAEH,WAAM;AACN,WAAM;AAEN,UAAG,eAAH,EACE,KAAM,CADR;AAEA,UAAG,eAAH,EACE,KAAM,CADR;AAGA,mBAAK,CAAC,OAAQ,GAAE,EAAF,CAAM,IAAK,GAAE,EAAF,CAAS,MAA7B;AAbmC;AAtBC;AAEzC;AAEA,UAAG,CAAI,eAAP,EACE,MADF;AAGA,UAAK;AACL,UAAG,eAAH,EACE,IAAK,CADP;AAGA,mBAAK,CAAC,OAAQ,GAAE,CAAF,CAAK,EAAM,MAApB;AAXoC;AA3oEE;;AAKF;;AAKA;AAEzC,oBAAS,CAAC,eAAD;AAFgC;AAzMM;AAE/C;AACA,kCAAwB;AACxB,mCAAyB;AAJsB;AAgpBF;AAE7C;AACA,kCAAyB;AACzB,mCAA0B;AAJmB;AA2OF;AAAhB;AAE3B;AAEA,eAAU;AAJiB;AAAgB;AAlwBP;AAAT;AAE3B,UAAG,eAAH;AACE,iBAAU;AAEV,qBAAU;AALe;AAAS;AAi8DA;AAAT;AAE3B,UAAG,eAAH;AACE,iBAAU;AAEV,qBAAU;AALe;AAAS;AAzzCI;AAAb;AAE3B;AAAE;AACF;AACA;AACA;AAAI;AAGJ,YAAO,KAAK;AAEZ,UAAG,sBAAS,CAAC,GAAG,QAAJ,CAAc,KAAE,QAA5B;AAIE;OAJF;AAOA,UAAG,sBAAS,CAAC,GAAG,QAAJ,CAAc,KAAE,OAA5B;AAEE,YAAK,GAAG,cAAC,MAAD;AACR,YAAG,mBAAQ,CAAC,CAAD,CAAI,IAAkB,CAAb,sBAAS,CAAC,CAAD,CAAI,KAAE,UAAF,CAAjC;AAIE;SAJF;OAHF;AAYA,WAAM;AAEN,UAAG,GAAG,QAAS,KAAE,MAAjB;AAEE,YAAG,GAAG,cAAC,MAAD,CAAQ,KAAE,IAAhB;AAEE,eAAM;SAGR,UAAG,GAAG,cAAC,MAAD,CAAQ,KAAE,IAAhB;AAEE,eAAM;SAFR;OAPF;AAaA;AAEF;AAEI,YAAQ,CAAJ,GAAI,KAAG,IAAH,CAAS,IAAS,CAAJ,GAAI,KAAG,IAAH,CAA1B,EACE,MAAO,GAAG,cADZ;OAJF,QAMmC,EAAxB,CAAJ,GAAI,KAAE,IAAF,CAAwB,IAAR,CAAJ,GAAI,KAAE,IAAF,CAAR,IAAwB,CAAJ,GAAI,KAAE,IAAF,CAAR,CANnC;AAQA,UAAQ,CAAJ,GAAI,KAAE,IAAF,CAAQ,IAAQ,CAAJ,GAAI,KAAE,IAAF,CAAxB;AAGF;AACA;AACA;AAGI,YAAG,YAAM,SAAT,EACM,CAAJ,IAAG,CADL;AASA,YAAG,YAAM,SAAT;AAEE,cAAK,CAAE,GAAe,CAAb,YAAM,YAAO,GAAE,YAAM,MAAR,CAAf;SAFT;AAKA,YAAW,CAAC,iBAAD,SAAgC,IAAV,CAAH,EAAG,KAAE,8BAAF,CAAR,IAAsB,aAA/C,EACE,iBAAW,CAAC,KAAM,EAAG,CAAV,CADb;OAtBF;AA0BA,UAAG,EAAG,KAAE,mCAAR;AAEE,wBAAW,CAAC,EAAE,EAAE,oCAAL;AACX,6BAAgB,CAAC,EAAE,EAAG,oCAAN;OAGlB,UAAG,EAAG,KAAE,oCAAR;AAEE,wBAAW,CAAC,EAAE,EAAG,mCAAN;AACX,6BAAgB,CAAC,EAAE,EAAG,mCAAN;OAHlB;AAMA,UAAY,aAAD,QAAX,EACE,aAAO,CAAC,IAAD,CADT;AAGA,eAAU;AA7FiB;AAAa;AAgGG;AAAhB;AAE3B;AAAE;AACF;AAEA,WAAM,KAAK;AAEX,UAAe,CAAX,EAAE,QAAS,KAAE,IAAF,CAAQ,IAAe,CAAX,EAAE,QAAS,KAAE,IAAF,CAAtC;AAGF;AACA;AACA;AAGI,YAAG,YAAM,SAAT;AAEE,cAAK,CAAE,GAAe,CAAb,YAAM,YAAO,GAAE,YAAM,MAAR,CAAf;SAFT;AAKA,YAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,EAAG,CAAV,CADhB;OAbF;AAgBA,eAAU;AAvBiB;AAAgB;AApIG;AAAnB;AAE3B;AAAQ;AACR;AAEA,eAAU;AACV,eAAU,CAAC;AACX,eAAU,CAAC;AAGb;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,UAAG,YAAM,SAAT;AAEE,iBAAU,MAAO,GAAe,CAAb,YAAM,YAAO,GAAE,YAAM,MAAR,CAAf;OAFnB;AAKA,UAAW,CAAP,MAAO,KAAG,CAAC,CAAJ,CAAO,IAAY,CAAP,MAAO,KAAG,CAAC,CAAJ,CAA9B;AAEE,yBAAY,CAAC,OAAQ,OAAQ,GAAjB;OAFd;AA9B2B;AAAmB;AAjCF;AAAjB;AAE3B;AAAQ;AAER,eAAU;AACV,eAAU,CAAC;AACX,eAAU,CAAC;AAGb;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,UAAG,YAAM,SAAT;AAEE,iBAAU,MAAO,GAAe,CAAb,YAAM,YAAO,GAAE,YAAM,MAAR,CAAf;OAFnB;AAKA,UAAW,CAAP,MAAO,KAAG,CAAC,CAAJ,CAAO,IAAY,CAAP,MAAO,KAAG,CAAC,CAAJ,CAA9B;AAEE,0BAAa,CAAC,OAAQ,MAAT;OAFf;AA3B2B;AAAiB;AA8QF;AAAf;AAE3B;AAGF;AAGE,eAAU;AARiB;AAAe;AAhBE;AAAjB;AAE3B;AAEA;AAEA,oBAAgB,gBAAW,IAAG,cAAC,wCAAD,CAAH;AAE7B;AACA;AAGE,eAAU;AAZiB;AAAiB;AAvDA;AAAjB;AAE3B;AAAE;AACF;AAAI;AACJ;AACA;AAGA,eAAU;AAEV,UAAG,CAAI,aAAP,EACE,aADF;AAGA,YAAO,KAAK;AACZ,YAAO;AACP,WAAM;AACN,WAAM;AAEN;AAEF;AAEI,YAAQ,CAAJ,GAAI,KAAG,IAAH,CAAS,IAAS,CAAJ,GAAI,KAAG,IAAH,CAA1B,EACE,MAAO,GAAG,cADZ;OAJF,QAMmC,EAAxB,CAAJ,GAAI,KAAE,IAAF,CAAwB,IAAR,CAAJ,GAAI,KAAE,IAAF,CAAR,IAAwB,CAAJ,GAAI,KAAE,IAAF,CAAR,CANnC;AAQA,UAAQ,CAAJ,GAAI,KAAE,IAAF,CAAQ,IAAQ,CAAJ,GAAI,KAAE,IAAF,CAAxB;AAGF;AACA;AAEK,YAAG,YAAM,SAAT,EACM,CAAJ,IAAG,CADL;AAGA,YAAG,YAAM,SAAT;AACE,iBAAQ,YAAM;AAEd,qBAAQ;AAEV,YAAG,CAAE,GAAE,IAAP,EACE,aADF;AAIA,YAAQ,CAAJ,GAAI,KAAE,IAAF,CAAQ,IAAgB,CAAR,CAAJ,GAAI,KAAE,IAAF,CAAQ,IAAI,aAAJ,CAAhC;AAGL;AAEO,cAAG,GAAI,KAAG,OAAV,EACE,iBAAY,CAAZ,CADF;SALF;OAlBH;AA1B2B;AAAiB;AA9oBJ;AAGxC,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAM,KAAM,KAAM,OAAnB,CADd;AAHwC;AANC;AAEzC,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,KAAM,IAAb,CADf;AAFyC;AAqHF;AAGxC;AAEC,wBAAc;AAEd,eAAS,QAAc,OAAT,cAAS,GAAE,CAAF,kBAAvB;AAAI;AAEF,gCAAmB,CAAC,EAAE,KAAK,CAAE,KAAE,IAAZ;;AAGrB,4BAAkB;AAElB,UAAY,iBAAD,QAAX,EACE,iBAAW,CAAC,KAAM,KAAM,KAAM,cAAnB,CADb;AAGA,eAAI,CAAC,KAAM,cAAP;AAjBmC;AAtEE;AAAd;AAE3B;AACA;AAGA,YAAyB,KAAK;AAE9B,UAAe,CAAX,GAAG,OAAQ,IAAG,GAAH,CAAQ,IAAgB,CAAX,GAAG,OAAQ,IAAG,GAAH,CAAvC;AAEE,YAAK,IAAO,MAAY,CAAC,GAAG,aAAJ;AAExB,2BAAY,CAAC,EAAG,cAAJ;AAEZ,YAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,IAAD,CADtB;OANF;AAUA,eAAU;AAlBiB;AAAc;AAqBI;AAAlB;AAE3B;AACA;AAGA,YAAyB,KAAK;AAE9B,UAAe,CAAX,GAAG,OAAQ,IAAG,GAAH,CAAQ,IAAgB,CAAX,GAAG,OAAQ,IAAG,GAAH,CAAvC;AAEE,YAAK,IAAO,MAAY,CAAC,GAAG,aAAJ;AAExB,+BAAgB,CAAC,EAAG,cAAJ;AAEhB,YAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,IAAD,CADtB;OANF;AAUA,eAAU;AAlBiB;AAAkB;AA/CL;AAAb;AAE3B;AACA;AAEA,YAAyB,KAAK;AAE9B,UAAe,CAAX,GAAG,OAAQ,IAAG,GAAH,CAAQ,IAAgB,CAAX,GAAG,OAAQ,IAAG,GAAH,CAAvC;AAEE,aAAM,uBAAW,QAAC;AAClB,UAAE,WAAC,CAAQ,GAAG,aAAX;AAEH;AACE,iCAAkB,CAAC,EAAD;AADpB;AAGE,YAAG,eAAH,EAAG;AAHL;AAMA,YAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,IAAD,CADtB;OAXF;AAeA,eAAU;AAtBiB;AAAa;AARF;AAAX;AAE3B,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,IAAD,CADpB;AAGA,eAAU;AALiB;AAAW;AA6EG;AAEzC;AAEA,UAAY,mBAAD,QAAX;AAEE,mBAAW,IAAX,GAAmB;AACnB,2BAAa,CAAC,KAAM,kEAAP;OAHf;AAJyC;AA6NF;AAGvC,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,KAAM,KAAM,OAAQ,MAA3B,CADf;AAHuC;AAPK;AAG5C,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,KAAM,KAAM,OAAQ,OAAQ,UAAnC,CADhB;AAH4C;AAZD;AAG3C;AAEA,UAAY,uBAAD,QAAX;AAEE,mBAAW,QAAX,GAAuB;AACvB,+BAAiB,CAAC,KAAM,KAAM,KAAM,OAAQ,OAAQ,+DAAnC;OAHnB;AAL2C;AA7jBC;AAG5C;AAEA,WAAqB,QAAQ;AAE7B,UAAW,CAAC,EAAD,SAAK,IAAgB,CAAX,EAAE,QAAS,KAAE,KAAF,CAAhC,EACE,KAAqB,EAAE,WADzB;AAGA,UAAW,CAAC,EAAD,SAAK,IAAgB,CAAX,EAAE,QAAS,KAAE,OAAF,CAAhC;AAEE,YAAI,sBAAS,CAAC,EAAE,aAAa,CAAC,MAAD,CAAhB,CAAyB,KAAE,UAAxC;AAEE,YAAE,iBAAiB,CAAC,QAAS,yBAAV;SAFrB;OAFF;AAV4C;AAfF;AAG1C;AAEA,WAAqB,QAAQ;AAC7B,UAAW,CAAC,EAAD,SAAK,IAAgB,CAAX,EAAE,QAAS,KAAE,KAAF,CAAhC,EACE,KAAqB,EAAE,WADzB;AAGA,UAAW,CAAC,EAAD,SAAK,IAAgB,CAAX,EAAE,QAAS,KAAE,QAAF,CAAhC;AAEE,UAAE,iBAAiB,CAAC,QAAS,0BAAV;OAFrB;AAT0C;AAsuDJ;AAEtC;AACA;AAAM;AAAM;AACZ;AAAO;AAAO;AAAI;AAClB;AAAG;AACH;AAAU;AAAG;AACb;AAGA,UAAG,CAAY,CAAC,WAAD,SAAf;AAEE,sBAAU,QAAQ,cAAc,CAAC,OAAD;AAChC,+BAAa,YAAY,CAAC,WAAD;AAEzB,iDAAkB,CAAgB,YAAS,WAAM,CAA6B,CAAN,CAAjB,sBAAiB,KAAE,EAAF,CAAM,IAAiB,CAAZ,iBAAY,KAAE,8CAAF,CAAjB,CAA5D;AAElB,gBAAwB;AACxB,aAAK,aAAa,CAAC,KAAM,UAAK,GAAE,OAAd;AAClB,aAAK,MAAM,YAAY,CAAC,iBAAiB,QAAlB;AAEvB,gBAAS;AAET,gBAAS;AACT,aAAM;AACN,aAAM;AACN,aAAM;AAEN,aAAM;AACN,eAAQ;AACR,cAAO;AAEP,YAAI,2BAAsB,KAAE,EAA5B;AAEE,eAAK,MAAM,YAAY,CAAC,kBAAkB,UAAnB;AACvB,eAAK,aAAa,CAAC,SAAS,GAAV;AAClB,eAAK,aAAa,CAAC,cAAc,GAAf;AAClB,eAAK,aAAa,CAAC,cAAc,GAAf;AAClB,eAAK,aAAa,CAAC,QAAQ,MAAT;AAClB,eAAK,aAAa,CAAC,eAAe,OAAhB;AAClB,eAAK,aAAa,CAAC,SAAS,MAAV;;AAIlB,eAAK,aAAa,CAAC,QAAQ,2BAAT;;AAGpB,oBAAa;AAGjB;AACA;AACA;AAGI,oBAAM,SAAN,GAAmB;AAEnB,YAAG,YAAM,SAAT;AAEM,cAAJ,IAAG;AACH,wBAAe,YAAM;AAG3B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEM,sBAAM,SAAN,GAAmB;SArBrB;AA0BJ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGI,qBAAS;AAET,oBAAM,SAAN,GAAmB;AAEnB,YAAG,YAAM,SAAT;AAEM,cAAJ,IAAG;AACH,wBAAe,YAAM;AAE3B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEM,sBAAM,SAAN,GAAmB;SAnBrB;AAsBA,YAAG,cAAS,KAAE,4CAAd,EACE,iBADF;OAlKF;AAsKA,UAAG,CAAI,aAAO,eAAd;AAOA;AAEA,UAAG,gBAAW,SAAC,EAAM,GAAE,CAAvB;AAEE,iBAAS,QAAc,OAAT,cAAS,GAAE,CAAF,kBAAvB;AAAI;AAEF,cAAG,mBAAc,CAAC,CAAD,CAAjB,EACE,eAAU,CAAC,CAAD,CADZ;;OAJJ;AAzLsC;AAuUE;AAExC,UAAG,CAAY,CAAC,uBAAD,SAAgB,IAAG,iBAAlC,EACE,MADF;AAGA,UAAY,WAAD,QAAX,EACE,WAAM,cAAc,YAAY,CAAC,WAAD,CADlC;AAGA,oBAAU;AACV;AACA;AAVwC;AAsuBK;AAE7C;AAAE;AACF;AACA;AAEA,eAAS,QAAc,OAAT,cAAS,GAAE,CAAF,kBAAvB;AAAI;AACF,iBAAS,SAAK,kDAAd;AAAI;AAEF,eAAM,mBAAY,CAAC,EAAE,CAAH;AAClB,cAAY,EAAD,QAAX;AAEE,gBAAG,aAAO,aAAV;AAEE,oBAAO,kCAAW,CAAC,aAAO,iBAAR;AAE5B;AACA;;AAMA;AACA;;WAdM;;;AAVyC;AA12BH;AAE1C;AAAE;AAEF,eAAS,QAAc,OAAT,cAAS,GAAE,CAAF,kBAAvB;AAAI;AACF,iBAAS,SAAc,QAAT,cAAS,GAAE,CAAF,qBAAvB;AAAI;AACF,uBAAK,CAAC,EAAE,EAAM,aAAK,CAAC,EAAE,CAAH,CAAd;;;AANiC;AAkBE;AAE5C,iCAAsB,CACtB,mFA6FI,GA5FJ,oBADmF,GAGnF,4BAFoB,GAGpB,kBAD4B,GAE5B,kCADkB,GAElB,oCADkC,GAElC,uDADkC,GAElC,aADqD,GAGrD,MAFa,GAGb,yCADM,GAEN,0BADyC,GAEzC,uBAD0B,GAE1B,8CADuB,GAEvB,MAD6C,GAE7C,IADM,GAGN,0BAFI,GAGJ,wBAD0B,GAE1B,wBADwB,GAExB,uBADwB,GAExB,6BADuB,GAEvB,6BAD6B,GAE7B,0BAD6B,GAE7B,+BAD0B,GAE1B,IAD+B,GAG/B,mDAFI,GAGJ,4DADmD,GAEnD,sBAD4D,GAE5D,oDADuB,GAEvB,yCADoD,GAEpD,qBADyC,GAGzC,mCAFqB,GAGrB,gEADmC,GAGnC,eAFgE,GAGhE,sBADe,GAGf,kBAFsB,GAGtB,4BADkB,GAElB,+BAD4B,GAE5B,0CAD+B,GAE/B,qCAD0C,GAE1C,wBADqC,GAErC,KADwB,GAExB,IADK,GAGL,8BAFI,GAIJ,oDAF8B,GAG9B,qCADoD,GAEpD,wCADqC,GAErC,qBADwC,GAGxC,sCAFqB,GAGrB,iEADsC,GAEtC,0CADiE,GAEjE,gBAD0C,GAE1C,uCADgB,GAEhB,OADuC,GAGvC,oDAFO,GAGP,sDADoD,GAEpD,OADsD,GAGtD,mDAFO,GAGP,qCADmD,GAEnD,OADqC,GAGrC,yDAFO,GAGP,qBADyD,GAEzD,OADqB,GAGrB,uDAFO,GAGP,oBADuD,GAEvD,OADoB,GAEpB,IADO,GAGP,wBAFI,GAGJ,4CADwB,GAExB,sBAD4C,GAE5C,wBADsB,GAEtB,6BADwB,GAExB,oCAD6B,GAE7B,oCADoC,GAEpC,kCADoC,GAEpC,8BADkC,GAElC,6BAD8B,GAG9B,eAF6B,GAG7B,IADe,GAGf,IAhGsB;AAFsB;AATE;AAE9C,UAAG,YAAM,SAAT,EACE,YAAM,OAAO,CAAC,YAAM,OAAO,eAAU,YAAM,YAA9B,CADf;AAGA,UAAG,YAAM,SAAT,EACE,YAAM,OAAO,CAAC,YAAM,OAAO,eAAU,YAAM,YAA9B,CADf;AAL8C;AA/4DR;AAEtC;AACA;AAHsC;AAmrCH;AAEnC;AAEA;AAEA,UAAG,CAAI,aAAP,EACE,MADF;AAGA,WAAM;AACN,UAAG,eAAH,EACE,KAAM,CADR;AAGA,UAAG,SAAI,KAAE,EAAT,EACE,iBAAY,QAAG,CAAC,GAAI,cAAS,GAAE,CAAhB,CAAf,CADF;AAGA,UAAG,SAAI,KAAE,EAAT,EACE,iBAAY,QAAG,CAAC,cAAS,GAAE,CAAF,CAAK,cAAS,GAAE,CAA1B,CAAf,CADF;AAGA,UAAG,SAAI,KAAE,EAAT,EACE,iBAAY,EAAZ,CADF;AAGA,UAAG,SAAI,KAAE,EAAT,EACE,iBAAY,cAAS,GAAE,CAAvB,CADF;AAGA,UAAG,SAAI,KAAE,EAAT,EACE,iBAAY,QAAG,CAAC,cAAS,GAAE,CAAF,CAAK,cAAS,GAAE,CAA1B,CAAf,CADF;AAGA,UAAG,SAAI,KAAE,EAAT,EACE,iBAAY,QAAG,CAAC,GAAI,cAAS,GAAE,CAAhB,CAAf,CADF;AA5BmC;AAnhCK;AAAb;AAE3B,eAAU,QAAQ,cAAc,CAAC,KAAD;AAChC,oBAAU;AAHiB;AAAa;AAk0FC;AAEzC;AAEA,UAAG,iBAAH,EACE,MADF;AAGA,UAAY,uBAAD,QAAX;AAEE,YAAG,aAAO,gBAAV;AACE,iCAAa,MAAM,YAAY,CAAC,aAAa,QAAd;AAE/B,cAAA,uBAAa,MAAM,YAAY,CAAC,SAAS,EAAV;AAEjC,YAAI,2CAAY,IAAG,oBAAnB;AAEE,iCAAa,MAAM,YAAY,CAAC,QAAS,qBAAQ,CAAC,eAAD,CAAQ,GAAE,IAA5B;AAC/B,iCAAa,MAAM,YAAY,CAAC,SAAU,qBAAQ,CAAC,gBAAD,CAAS,GAAE,IAA9B;SAHjC;AAOA,+BAAa,MAAM,YAAY,CAAC,cAAe,EAAhB;AAG/B,YAAG,YAAO,KAAE,CAAZ,EACE,uBAAa,MAAM,YAAY,CAAC,SAAU,EAAX,CADjC;AAGA,YAAgB,CAAZ,iBAAY,KAAE,4CAAF,CAAqG,IAAxE,CAAZ,iBAAY,KAAG,EAAH,CAAjB,IAAkD,CAAjB,sBAAiB,KAAE,EAAF,CAAtB,IAAuD,CAAtB,2BAAsB,KAAE,EAAF,CAA3B,IAAqC,CAAI,kBAA7H;AACE,iCAAa,MAAM,YAAY,CAAC,SAAU,MAAiC,GAAxB,kCAAW,CAAC,iBAAD,CAAb,GAA2B,QAA7C;AAE/B,cAAA,uBAAa,MAAM,YAAY,CAAC,SAAU,EAAX;AAEjC,YAAU,CAAN,WAAM,KAAG,EAAH,CAAW,IAAW,CAAN,WAAM,KAAG,QAAH,CAAhC;AACE,iCAAa,MAAM,YAAY,CAAC,mBAAoB,kCAAW,CAAC,WAAD,CAAhC;AAE/B,cAAA,uBAAa,MAAM,YAAY,CAAC,mBAAoB,EAArB;AAEjC;OA9BF;AAPyC;AA3cF;AAEvC;AACA;AAAI;AAAI;AAGR,UAAc,CAAV,cAAU,KAAG,KAAH,CAAU,IAAW,CAAN,KAAM,IAAG,CAAH,CAAnC;AAEE,cAAO;AAMX;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAWM,gBAAS,KAAM,GAAE,cAAF;AAEjB,YAAc,CAAV,cAAU,KAAE,CAAF,CAAK,IAAI,eAAvB,EACE,QAAS,KAAM,GAAE,CADnB;AAGA,yBAAa;AACb,4BAAe,CAAC,KAAD;AACf;AAEA,YAAG,YAAM,SAAT;AAEE,gBAAO;AACP,gBAAO;AACP,cAAG,eAAH,EACM,GAAJ,IAAG,CADL;AAEA,cAAG,YAAM,SAAT,EACM,GAAJ,IAAG,CADL;AAGA,mBAA2B,KAAlB,YAAM,MAAY,GAAJ,GAAF,GAAQ,GAAF,EAAsB,OAAJ,CAAT,cAAS,GAAE,CAAF,CAAI,GAAE,GAAF,kBAAjD;AAAI;AAEF,wBAAO,CAAC,CAAD;;SAXX;AAeA,YAAI,YAAM,OAAO,KAAG,uBAApB,EACE,YAAM,OAAO,CAAC,YAAM,OAAO,eAAU,YAAM,YAA9B,CADf;AAGA,YAAI,YAAM,OAAO,KAAG,uBAApB,EACE,YAAM,OAAO,CAAC,YAAM,OAAO,eAAU,YAAM,YAA9B,CADf;OAtDF;AANuC;AA3NA;AAEvC;AAGF;AACA;AACA;AACA;AACA;AACA;AACA;AAXyC;AArSI;AAE3C;AACA;AAEA,UAAG,CAAY,CAAC,WAAD,SAAf,EACE,MADF;AAGA,cAAS;AAET,UAAI,KAAM,GAAE,CAAZ;AAIF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGI,YAAG,cAAS,KAAE,4CAAd,EACE,iBADF;OA7BF;AAiCA,UAAG,KAAM,GAAE,CAAX;AAGF;AACA;AACA;AACA;AACA;AACA;OARE;AA3C2C;AA1/DA;AAE3C;AAAE;AAAS;AACX;AAAI;AAGJ,UAAG,iBAAW,IAAG,CAAY,CAAC,WAAD,SAA7B,EACE,MADF;AAGA,WAAM;AACN,YAAO;AACP,UAAI,2CAAY,IAAG,oBAAnB;AAEE,cAAO;AACP,aAAM;OAHR;AAMA,gBAAW;AACX,cAAS;AAET,UAAG,eAAH,EACE,QAAS,KAAM,GAAE,CADnB;AAGA,UAAG,YAAM,SAAT;AAEE,oBAAM,SAAS,aAAa,CAAC,UAAkB,iDAAC,CAAT,SAAS;;;;YAAD,CAAnB;AAC5B,kBAAW;AACX,gBAAS,KAAM,GAAE,CAAF;OAJjB;AAOA,UAAG,YAAM,SAAT;AAEE,oBAAM,SAAS,aAAa,CAAC,UAAkB,iDAAC,CAAT,SAAS;;;;YAAD,CAAnB;OAF9B;AAKA,UAAG,KAAM,GAAE,CAAX;AAGF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGI,YAAG,cAAS,KAAE,4CAAd,EACE,iBADF;OA9CF;AAkDA,UAAG,KAAM,GAAE,CAAX;AAGF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;OAtBE;AArF2C;AAwrCG;AAE9C;AACA;AACA;AAAE;AAAE;AACJ;AAAI;AACJ;AAGA,UAAG,eAAU,IAAI,CAAI,eAArB;AACE,mBAAY;AAEZ,uBAAY;AAEd,uBAAY,QAAQ,SAAC,EAAM,GAAE,QAA7B;AAEA,aAAQ,uBAAW,QAAC;AAEpB;AACE,iBAAS,QAAoB,OAAf,QAAQ,SAAC,EAAM,GAAE,CAAF,kBAA7B;AAAI;AAEA,cAAI,iBAAJ,GAAwB;AACxB,cAAI,aAAC,CAAa,eAAb;AACL,cAAI,iBAAC,CAAiB,QAAQ,IAAQ,CAAC,CAAD,CAAjC;AAEL,cAAG,IAAI,SAAC,EAAM,GAAE,cAAhB,EACE,iBAAY,IAAI,SAAC,EAAjB,CADF;AAGA,mBAAS,SAAgB,QAAX,IAAI,SAAC,EAAM,GAAE,CAAF,qBAAzB;AAAI;AAEF,iBAAM,IAAI,IAAQ,CAAC,CAAD;AAClB,4BAAW,CAAC,EAAG,CAAE,GAAE,QAAF,CAAY,KAAK;;;;gBAAvB;AAEX,yBAAK,CAAC,EAAG,CAAE,GAAE,QAAF,CAAe,EAArB;AAEL,iBAAM,CAAE,GAAE,QAAF;AACR,gBAAG,kBAAa,CAAC;;;;gBAAD,CAAhB;AAEE,mBAAM,mBAAY,CAAC,EAAG,EAAJ;AAElB,kCAAe,CAAC,EAAG,GAAI,KAAK,GAAI,EAAjB;AAEf,mBAAM;AACN,mCAAgB,CAAC,EAAG,GAAI,KAAK,GAAI;;;;kBAAjB;AAChB,kBAAG,EAAG,KAAG,EAAT,EACE,EAAE,aAAa,CAAC,QAAQ,EAAT,CADjB;aARF;;;AAlBR;AAgCE,YAAK,eAAL,IAAK;AAhCP;AAlB8C;AAv0BH;AAE3C;AACA;AACA;AAEA,kBAAa;AACb,sBAAiB,aAAO;AAExB,UAAG,CAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAApB;AAEE,YAAG,YAAM,SAAT;AACE,iBAAQ;AAER,qBAAQ;AAGd;OARE;AAT2C;AAsBL;;AACP;AAE7B;AAEA,iBAAS,QAA8B,OAAzB,QAAQ,SAAS,OAAQ,GAAE,CAAF,kBAAvC;AAAI;AAEF,cAAc,QAAQ,SAAS,MAAC,CAAD,CAAI,QAAS,KAAE,IAA9C;AAEa,oBAAQ,SAAS,MAAC,CAAD,CAAI,aAAM,CAAC,YAAgB,MAAjB;AACtC,iCAAqB,CAAY,QAAQ,SAAS,MAAC,CAAD,CAA7B;WAGrB,MAAA,qBAAqB,CAAY,QAAQ,SAAS,MAAC,CAAD,CAA7B;;AAZI;AAgB/B,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,2BAAqB,CAAC,mBAAD;AApBiB;AAtLC;;AACL;AAEhC;AAEA,iBAAS,QAA8B,OAAzB,QAAQ,SAAS,OAAQ,GAAE,CAAF,kBAAvC;AAAI;AAEF,cAAc,QAAQ,SAAS,MAAC,CAAD,CAAI,QAAS,KAAE,IAA9C;AAEa,oBAAQ,SAAS,MAAC,CAAD,CAAI,gBAAgB,CAAC,WAAD;AAChD,oCAAwB,CAAY,QAAQ,SAAS,MAAC,CAAD,CAA7B;WAGxB,MAAA,wBAAwB,CAAY,QAAQ,SAAS,MAAC,CAAD,CAA7B;;AAZI;AAgBlC,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,8BAAwB,CAAC,mBAAD;AApBe;AAiOJ;AAAR;AAE3B;AAAE;AAAE;AAAE;AACN;AAAG;AACH;AACA;AAEA,WAAM;AAEN,YAAM,EAAN,GAAY,CAAC;AACb,YAAM,EAAN,GAAY,CAAC;AAEb,eAAS,WAAiB,OAAT,cAAS,GAAE,CAAF,kBAA1B;AAAI;AAEF,iBAAS,UAAe,QAAT,cAAS,GAAE,CAAF,qBAAxB;AAAI;AAGR;AACA;AAGM,cAAG,KAAM,IAAI,4BAAQ,CAAC,GAAgB,GAAV,SAAF,GAAc,GAAF,CAAO,GAAI,aAA5B,CAArB;AAEE,kBAAM,EAAN,GAAY;AACZ,kBAAM,EAAN,GAAY;AACZ,4BAAY;AACZ,4BAAY;AAEZ,gBAAG,YAAM,SAAT;AAEE,mBAAiB,UAAR,CAAF,CAAE,GAAE,IAAF,CAAQ,GAAI,YAAM,MAAV;AACjB,6BAAU,CAAC,GAvqN0C,IAuqN3C;AACV,8BAAY,CAAE,GAAI,YAAM,MAAV;AACd,kBAAG,aAAS,GAAE,IAAd,EACE,gBAAY,YAAM,MADpB;AAEA,oBAAM,EAAN,GAAY;aAPd;AAUA,gCAAe,CAAC,aAAD;AACf,2BAAU,CAAC,EAAE,aAAH;AACV;WAnBF;;AAuBF,YAAG,eAAU,IAAI,CAAI,QAArB;AACE,eAAM;AAEN,mBAAM;;AA/CiB;AAAQ;AA8iDM;AAAd;AAE3B,UAAG,YAAM,SAAS,IAAiB,CAAZ,YAAM,MAAM,GAAE,CAAF,CAAnC;AACE,iBAAU,YAAM;;AAGhB,YAAG,eAAH;AACE,mBAAU,cAAS,GAAE,CAAF;AAEnB,uBAAU;;AATa;AAAc;AAr1BD;AAAb;AAE3B,UAAG,YAAM,SAAT;AAEE,iBAAgB,CAAL,UAAK,IAAe,CAAZ,YAAM,MAAM,GAAE,YAAM,YAAR,CAAf,CAA+B,IAAU,CAAL,UAAK,GAAc,CAAZ,YAAM,MAAM,GAAgB,CAAb,YAAM,YAAO,GAAE,CAAF,CAAhB,CAAd,CAAV;AAC/C,iBAAQ,UAAK,GAAe,CAAZ,YAAM,MAAM,GAAE,YAAM,YAAR,CAA5B;OAGA,eAAU,UAAK,IAAG,cAAH;AARU;AAAa;AA9zBA;AAExC;AACA;AAGA,cAAS;AACT,kBAAa;AAEb,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAM,OAAQ;;;;WAAO;;;;UAAtB,CADd;AAGA,UAAG,KAAH,EACE,eAAU,CAAC,OAAQ,SAAT,CADZ;AAZwC;AA+zDF;AAEtC;AAAE;AAAE;AAAM;AAAO;AACjB;AAAG;AACH;AAGA,UAAG,YAAM,SAAT;AAEE,oBAAM,YAAN,GAAsB;AACtB,aAAM;AACN;AAEA,YAAG,SAAH;AAEE,cAAG,eAAH;AACE,oBAAS;AAET,wBAAS;AAEX,cAAG,YAAM,SAAT;AACE,kBAAO;AAEP,sBAAO;AAET,mBAAU,MAAO,GAAE,YAAM,MAAR;AAEjB,mBAAS,QAAiB,OAAZ,YAAM,MAAM,GAAE,CAAF,kBAA1B;AAAI;AAGV;AAEQ,gBAAY,EAAD,QAAX;AAEE,kBAAe,CAAX,MAAW,GAAF,CAAF,GAAM,KAAF,CAAQ,IAAG,cAA1B;AAGV;AAEY;eALF;AAQA,kBAAK;AAEL,uBAAS,SAAc,QAAT,cAAS,GAAE,CAAF,qBAAvB;AAAI;AAGd;AACA;AACA;AACA;AACA;AACA;;aApBQ;;SAnBJ;OANF;AAPsC;AAr5BJ;AAElC;AAFkC;AAggDQ;AAE1C,UAAI,QAAS,KAAE,+CAAf;AAEE,4BAAe,yCAAf;AAEA,uCAA0B,aAA1B;AACA,sCAAyB,iDAAzB;AAEA,YAAG,CAAY,CAAC,YAAD,SAAf,EACE,eAAW,wBAAmB,QAAC,YAAM,CAAC,IAAD,CAAN,CADjC;AAGA,oBAAO,8BAAP,GAAwC;AACxC,oBAAO,wBAAP,GAAkC;AAClC,oBAAO,4BAAP,GAAsC;AACtC,oBAAO,sBAAP,GAAgC;AAChC,oBAAO,sBAAP,GAAgC;AAChC,oBAAO,0BAAP,GAAoC;AACpC,oBAAO,0BAAP,GAAoC;AACpC,oBAAO,0BAAP,GAAoC;AACpC,oBAAO,uBAAP,GAAiC;AAEjC,YAAG,CAAY,CAAC,YAAD,SAAf,EACE,eAAW,wBAAmB,QAAC,YAAM,CAAC,IAAD,CAAN,CADjC;AAGA,oBAAO,8BAAP,GAAwC;AACxC,oBAAO,wBAAP,GAAkC;AAClC,oBAAO,4BAAP,GAAsC;AACtC,oBAAO,sBAAP,GAAgC;AAChC,oBAAO,sBAAP,GAAgC;AAChC,oBAAO,0BAAP,GAAoC;AACpC,oBAAO,0BAAP,GAAoC;AACpC,oBAAO,0BAAP,GAAoC;AACpC,oBAAO,uBAAP,GAAiC;OA/BnC;AAF0C;AA7nFN;AAEpC,qBAAW;AACX,qBAAW;AAEX;AACA,sBAAW,KAAX;AANyD;AAArB;AAeQ;AAE5C;AACA,sBAAY,yBAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAEjC,mBAAS;AACT,yBAAe;AACf,UAAI,UAAM,IAAE,IAAZ;AAEE,YAAG,CAAY,CAAC,YAAD,SAAf,EACE,eAAW,wBAAmB,QAAC,YAAM,CAAC,IAAD,CAAN,CADjC;AAEA,YAAG,CAAY,CAAC,YAAD,SAAf,EACE,eAAW,wBAAmB,QAAC,YAAM,CAAC,IAAD,CAAN,CADjC;AAGA,uBAAW,wBAAmB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,2BAAe,uBAAW,QAAC;AAC3B,wBAAW,YAAX,GAA0B;OAT5B;AAYF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAKE,uBAAa;AACb,uBAAa;AACb,wBAAc;AACd,wBAAc;AACd,uBAAa,CAAC;AACd,6BAAmB;AACnB,iCAAuB;AACvB,sBAAW,IAAX;AAEA,UAAI,2CAAY,IAAG,oBAAnB;AAEE,sBAAS,GAAT;AACA,uBAAU,GAAV;OAHF;AAxC4C;AA8DR;AAExB,eAAZ,KAAY;AACH,eAAT,KAAS;AACD,eAAR,KAAQ;AACA,eAAR,KAAQ;AACA,eAAR,KAAQ;AACR;AAPoC;AAq7BE;AAEtC;AAEA,UAAG,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAlB,EACE,MADF;AAGA;AACA,UAAG,YAAM,SAAT,EACE,YAAM,OAAO,CAAC,YAAM,OAAO,eAAU,YAAM,YAA9B,CADf;AAGA,UAAG,YAAM,SAAT,EACE,YAAM,OAAO,CAAC,YAAM,OAAO,eAAU,YAAM,YAA9B,CADf;AAXsC;AAsnDH;AAEnC,oBAAO,IAAI,CAAC,UAAD;AAFwB;AA9vDG;AAEtC;AAAE;AACF;AAEA,YAAO;AAEP,UAAG,eAAH,EACM,GAAJ,IAAG,CADL;AAGA,eAAS,QAAS,OAAJ,GAAI,GAAE,CAAF,kBAAlB;AAAI;AAEF,iBAAS,SAAc,QAAT,cAAS,GAAE,CAAF,qBAAvB;AAAI;AAEE;AACL,cADK,IACL;AACE,yBAAK,CAAC,EAAE,EAAM,qBAAQ,CAAC,iBAAM,CAAC,GAAD,CAAP,CAAjB;AACP,oBAHK,IAGL,gCACE,aAAK,CAAC,EAAE,EAAM,qBAAQ,CAAC,CAAD,CAAO,GAAH,GAAD,GAAK,qBAAQ,CAAC,CAAD,CAAjC,CADP;;;AAjBmC;AAwTE;AAExC,uBAAa;AACb,kBAA0B,IAAlB,cAAkB;AAC1B,eAAI,iBAAiB,CAAC,OAAQ,6CAAT;AACrB,eAAI,iBAAiB,CAAC,QAAS,0CAAV;AACrB,eAAI,KAAK,CAAC,MAAO,IAAR;AACT,wBAAa,CAAC,SAAD;AACb,eAAI;AARoC;AA6FA;AAExC;AACA;AACA;AAAE;AAAE;AAAG;AACP;AACA;AACA;AAAG;AACH;AACA;AAEA,UAAG,SAAU,KAAG,EAAhB;AACE,aAAe,KAAiB;AAEhC,iBAAe;AAEjB,UAAY,EAAD,QAAX;AAEE,YAAK,YAAM;AACX,oBAAM,WAAC,CAAW,KAAX;AAEP,aAAM,uBAAW,QAAC;AAElB,mBAAY;AAEZ,YAAG,eAAH,EACE,WAAY,CADd;AAGA,yBAAY,EAAE,OAAQ,GAAE,QAAxB;AAEA,iBAAS,QAAe,OAAV,EAAE,OAAQ,GAAE,CAAF,kBAAxB;AAAI;AAEF,eAAM,EAAY;AAClB,cAAK;AACL,iBAAQ;AAGd;AACA;AACA;AACA;AACA;AAGM,2BAAM,CAAC;;;;eAAM,EAAG,CAAV;AACN,YAAE,iBAAF,GAAsB;AACtB,YAAE,aAAC,CAAa,GAAb;AACH,YAAE,iBAAC,CAAiB,IAAjB;AACH,cAAG,cAAS,GAAE,EAAE,SAAC,EAAjB,EACE,iBAAY,EAAE,SAAC,EAAf,CADF;AAGA,mBAAS,SAAc,QAAT,EAAE,SAAC,EAAM,GAAE,CAAF,qBAAvB;AAAI;AAEF,iBAAM,EAAE,IAAQ,CAAC,CAAD;AAChB,4BAAW,CAAC,EAAG,CAAE,GAAE,QAAF,CAAY,KAAK;;;;gBAAvB;AAEX,yBAAK,CAAC,EAAG,CAAE,GAAE,QAAF,CAAe,EAArB;AAEL,iBAAM;AAEN,gBAAG,kBAAa,CAAC;;;;gBAAD,CAAhB;AAEE,mBAAM,EAAG,GAAE,QAAF;AACT,mBAAM,mBAAY,CAAC,EAAG,EAAJ;AAElB,kCAAe,CAAC,EAAG,GAAI,KAAK,GAAI,EAAjB;AAEf,mBAAM;AACN,mCAAgB,CAAC,EAAG,GAAI,KAAK,GAAI;;;;kBAAjB;AAChB,kBAAG,EAAG,KAAG,EAAT,EACE,EAAE,aAAa,CAAC,QAAQ,EAAT,CADjB;aATF;;AAcF,sBAAM,WAAC,CAAW,CAAX;;AAGT,UAAG,eAAH,EAAG;OA7DL;AAhBwC;AAvEI;;AAAjB;AAE3B,eAAqB,IAAX,OAAW,CACnB;AAEiB;AAAN;AAEP,cAAG,oBAAc,CAAC,KAAD,CAAjB;AACE,oBAAQ,CAAmB,KAAK,OAAxB;AAER,gBAAA,OAAO,CAAmB,KAAK,OAAxB;AACT,mBAAU;AANH;AAAM;AASC;AAAP;AAEP,iBAAO,CAAmB,KAAK,OAAxB;AACP,mBAAU;AAHH;AAAO;AAOhB,0BAAa;AACb,qBAA0B,IAAlB,cAAkB;AAC1B,kBAAI,iBAAiB,CAAC,OAAO,mCAAR;AACrB,kBAAI,iBAAiB,CAAC,QAAQ,oCAAT;AACrB,kBAAI,iBAAiB,CAAC,UAAU,oCAAX;AACrB,kBAAI,iBAAiB,CAAC,QAAQ,oCAAT;AAErB,kBAAI,KAAK,CAAC,MAAO,IAAR;AACT,2BAAa,CAAC,UAAD;AACb,kBAAI;AA3BN,OADmB;AAFM;AAAiB;AAXA;AAE5C,uBAAa;AACb,kBAA0B,IAAlB,cAAkB;AAC1B,eAAI,iBAAiB,CAAC,OAAQ,iDAAT;AACrB,eAAI,iBAAiB,CAAC,QAAS,0CAAV;AACrB,eAAI,KAAK,CAAC,MAAO,IAAR;AACT,wBAAa,CAAC,SAAD;AACb,eAAI;AARwC;AAmKA;AAE5C;AACA;AACA;AAAE;AAAE;AAAG;AACP;AACA;AACA;AAAG;AACH;AACA;AAEA,UAAG,SAAU,KAAG,EAAhB;AACE,aAAe,KAAiB;AAEhC,iBAAe;AAEjB,UAAY,EAAD,QAAX;AAEE,aAAM,uBAAW,QAAC;AAElB,mBAAY,YAAM,YAAO,GAAE,YAAM,MAAR;AAEzB,YAAG,eAAH,EACE,WAAY,QAAS,GAAE,CADzB;AAGA,iBAAS,QAAe,OAAV,EAAE,OAAQ,GAAE,CAAF,kBAAxB;AAAI;AAEF,eAAM,EAAY;AAClB,cAAK;AACL,iBAAQ;AAGd;AACA;AACA;AACA;AACA;AAGM,2BAAM,CAAC;;;;eAAM,EAAG,CAAV;AACN,YAAE,iBAAF,GAAsB;AACtB,YAAE,aAAC,CAAa,GAAb;AACH,YAAE,iBAAC,CAAiB,IAAjB;AACH,cAAG,cAAS,GAAE,EAAE,SAAC,EAAjB,EACE,iBAAY,EAAE,SAAC,EAAf,CADF;AAGA,mBAAS,SAAc,QAAT,EAAE,SAAC,EAAM,GAAE,CAAF,qBAAvB;AAAI;AAEF,iBAAM,EAAE,IAAQ,CAAC,CAAD;AAChB,4BAAW,CAAC,EAAG,CAAE,GAAE,QAAF,CAAY,KAAK;;;;gBAAvB;AAEX,yBAAK,CAAC,EAAG,CAAE,GAAE,QAAF,CAAe,EAArB;AAEL,iBAAM;AAEN,gBAAG,kBAAa,CAAC;;;;gBAAD,CAAhB;AAEE,mBAAM,EAAG,GAAE,QAAF;AACT,mBAAM,mBAAY,CAAC,EAAG,EAAJ;AAElB,kCAAe,CAAC,EAAG,GAAI,KAAK,GAAI,EAAjB;AAEf,mBAAM;AACN,mCAAgB,CAAC,EAAG,GAAI,KAAK,GAAI;;;;kBAAjB;AAChB,kBAAG,EAAG,KAAG,EAAT,EACE,EAAE,aAAa,CAAC,QAAQ,EAAT,CADjB;aATF;;;AAeJ,UAAG,eAAH,EAAG;OAtDL;AAhB4C;AAtHI;;AAArB;AAE3B,eAAqB,IAAX,OAAW,CACnB;AAEiB;AAAN;AAEP,cAAG,wBAAkB,CAAC,KAAD,CAArB;AACE,oBAAQ,CAAmB,KAAK,OAAxB;AAER,gBAAA,OAAO,CAAmB,KAAK,OAAxB;AACT,mBAAU;AANH;AAAM;AASC;AAAP;AAEP,iBAAO,CAAmB,KAAK,OAAxB;AACP,mBAAU;AAHH;AAAO;AAOhB,0BAAa;AACb,qBAA0B,IAAlB,cAAkB;AAC1B,kBAAI,iBAAiB,CAAC,OAAO,mCAAR;AACrB,kBAAI,iBAAiB,CAAC,QAAQ,oCAAT;AACrB,kBAAI,iBAAiB,CAAC,UAAU,oCAAX;AACrB,kBAAI,iBAAiB,CAAC,QAAQ,oCAAT;AAErB,kBAAI,KAAK,CAAC,MAAO,IAAR;AACT,2BAAa,CAAC,UAAD;AACb,kBAAI;AA3BN,OADmB;AAFM;AAAqB;AAxGT;AAEvC,wBAAc;AACd,wBAAc;AAEd,kBAA0B,IAAlB,cAAkB;AAC1B,eAAI,iBAAiB,CAAC,OAAQ,4CAAT;AACrB,eAAI,iBAAiB,CAAC,QAAS,0CAAV;AACrB,eAAI,KAAK,CAAC,MAAO,IAAR;AACT,wBAAa,CAAC,SAAD;AACb,eAAI;AAVmC;AAaI;;AAAhB;AAE3B,eAAqB,IAAX,OAAW,CACnB;AAEiB;AAAN;AAEP,cAAG,mBAAa,CAAC,KAAD,CAAhB;AACE,oBAAQ,CAAmB,KAAK,OAAxB;AAER,gBAAA,OAAO,CAAmB,KAAK,OAAxB;AACT,mBAAU;AANH;AAAM;AASC;AAAP;AAEP,iBAAO,CAAmB,KAAK,OAAxB;AACP,mBAAU;AAHH;AAAO;AAOhB,2BAAc;AACd,2BAAc;AACd,qBAA0B,IAAlB,cAAkB;AAC1B,kBAAI,iBAAiB,CAAC,OAAO,mCAAR;AACrB,kBAAI,iBAAiB,CAAC,QAAQ,oCAAT;AACrB,kBAAI,iBAAiB,CAAC,UAAU,oCAAX;AACrB,kBAAI,iBAAiB,CAAC,QAAQ,oCAAT;AAErB,kBAAI,KAAK,CAAC,MAAO,IAAR;AACT,2BAAa,CAAC,UAAD;AACb,kBAAI;AA5BN,OADmB;AAFM;AAAgB;AA1BA;AAE3C,wBAAc;AACd,wBAAc;AAEd,6BAAkB,CAAC,QAAD;AALyB;AA40BN;AAGrC;AAEA,WAAM,uBAAW,QAAC;AAClB;AACE,0BAAa,CAAC,GAAI,UAAW,SAAhB;AACb,UAAE,WAAW,CAAC,SAAD;AAFf;AAIE,UAAG,eAAH,EAAG;AAJL;AANqC;AAcI;AAGzC;AAAE;AACF;AAAG;AACH;AAAE;AAEF,WAAM;AACN,WAAM;AAEN,UAAG,CAAI,SAAU,IAAI,eAArB,EACE,KAAM,CADR;AAGA,UAAG,CAAI,SAAU,IAAI,eAArB,EACE,KAAM,CADR;AAGA,eAAS,SAAe,OAAT,cAAS,GAAE,CAAF,kBAAxB;AAAI;AAEF,iBAAU;AACV,iBAAS,UAAe,QAAT,cAAS,GAAE,CAAF,qBAAxB;AAAI;AAEF,cAAK,aAAK,CAAC,EAAE,CAAH;AACV,cAAK,0BAAa,CAAC,EAAE,IAAI,KAAK,cAAC,4CAAD,CAAZ;AAElB,cAAqB,CAAjB,cAAG,CAAC,UAAU,CAAX,CAAc,GAAE,CAAF,CAAK,IAAgB,CAAZ,cAAG,CAAC,KAAK,CAAN,CAAS,GAAE,CAAF,CAA1C;AAEE,gBAAK,GAAS,GAAF,CAAH,GAAQ,GAAH;WAFhB;AAKA,cAAG,CAAE,KAAE,EAAP,EACE,IAAK,IADP;AAGA,cAAG,MAAO,KAAE,EAAZ;AACE,qBAAU;AAEV,yBAAU,MAAmB,GAAV,SAAF,GAAc,CAAF;;AAEjC,gBAAQ,IAAI,CAAC,MAAD;;AArC2B;AAvtEF;AAGvC;AAAG;AACH;AAEA,UAAS,CAAL,IAAK,IAAG,CAAH,CAAsB,IAAN,CAAL,IAAK,IAAG,CAAH,CAAV,IAAoB,CAAI,gBAAW,CAAC,KAAK,IAAN,CAAlD;AAEE,aAAM,aAAK,CAAC,KAAM,IAAP;AACX,YAAG,EAAG,KAAG,EAAT,EACE,KAAM,QAAS,GAAE,EADnB;AAGA,YAAK;AACL,YAAG,OAAH,EACE,IAAK,CAAE,GAAE,UADX;AAEA,YAAK,CAAE,GAAE,GAAF;AACP,qBAAK,CAAC,KAAK,KAAS,CAAE,GAAE,EAAnB;AAEL,aAAM,mBAAY,CAAC,KAAM,IAAP;AAClB,6BAAgB,CAAC,KAAM,KAAM,EAAb;OAblB;AANuC;AAotDG;AAE1C;AAEA,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAM,oBAAe,CAAC,KAAK,IAAN;AACrB,YAAY,EAAD,QAAX;AAEE,YAAE,oBAAoB,CAAC,QAAQ,yBAAT;AAE5B;SAJI;OAHF;AAJ0C;AA7rDG;AAG7C;AAAE;AAEF,UAAK;AACL,UAAG,eAAH,EACE,IAAK,CADP;AAGA,eAAS,QAAc,OAAT,cAAS,GAAE,CAAF,kBAAvB;AAAI;AACF,wBAAW,CAAC,KAAM,EAAG,OAAV;;AAVgC;AAqkCP;AAAX;AAE3B;AAEA,eAAU;AACV,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAM,oBAAe,CAAC,KAAK,IAAN;AACrB,iBAAmB,EAAD;OAHpB;AAL2B;AAAW;AAnoCD;AAErC;AAAG;AACH;AAEA,UAAS,CAAL,IAAK,IAAG,CAAH,CAAsB,IAAN,CAAL,IAAK,IAAG,CAAH,CAAV,IAAoB,CAAI,gBAAW,CAAC,KAAK,IAAN,CAAlD;AAEE,aAAM,aAAK,CAAC,KAAM,IAAP;AACX,YAAG,EAAG,KAAG,EAAT,EACE,KAAM,QAAS,GAAE,EADnB;AAGA,YAAK;AAEL,YAAG,MAAO,KAAG,EAAb,EACE,IAAK,CAAqB,GAAjB,UAAF,GAAa,MAAD,GAAQ,GAD7B;AAGA,YAAK,CAAa,GAAT,GAAF,GAAM,KAAD,GAAO,WAAD;AAElB,qBAAK,CAAC,KAAK,KAAS,CAAE,GAAE,EAAnB;AAEL,aAAM,mBAAY,CAAC,KAAM,IAAP;AAClB,2BAAc,CAAC,KAAM,KAAM,EAAb;OAhBhB;AALqC;AA0BM;AAG3C;AAAE;AAEF,UAAK;AACL,UAAG,eAAH,EACE,IAAK,CADP;AAGA,eAAS,QAAc,OAAT,cAAS,GAAE,CAAF,kBAAvB;AAAI;AACF,sBAAS,CAAC,KAAM,EAAG,MAAO,MAAjB;;AAVgC;AAgtDH;AAExC;AAEA,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAM,qBAAgB,CAAC,KAAK,IAAN;AACtB,YAAY,EAAD,QAAX;AAEE,YAAE,oBAAoB,CAAC,QAAQ,yBAAT;AAE5B;SAJI;OAHF;AAJwC;AAhBJ;AAAT;AAE3B;AAEA,eAAU;AAEV,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAM,qBAAgB,CAAC,KAAK,IAAN;AACtB,YAAY,EAAD,QAAX;AAEE,mBAAU;SAFZ;OAHF;AAN2B;AAAS;AA3nDQ;AAG5C;AAAE;AACF;AAEA,UAAK,aAAK,CAAC,KAAK,IAAN;AACV,WAAM,cAAG,CAAC,QAAS,CAAV;AAET,UAAG,EAAG,GAAE,CAAR,EACE,IAAK,eAAI,CAAC,EAAG,EAAG,EAAG,GAAE,CAAZ,CADX;AAGA,YAAO,UAA6B,GAAtB,IAAF,GAAW,iDAAJ;;;;UAAI,CAAL,GAAe,GAAD,GAAS,iDAAJ;;;;UAAI,CAAL;AAE/B;AACL,UADK,IACL;AAAQ,qBAAK,CAAC,KAAK,KAAS,CAAf;AACb,gBAFK,IAEL;AAAa,qBAAK,CAAC,KAAK,KAAS,CAAyF,GAArF,+CAAF,GAAoD,GAAF,GAAQ,cAAF,GAAiB,oBAAD,GAAgB,SAAzG;AAClB,gBAHK,IAGL,2CAAc,aAAK,CAAC,KAAK,KAAS,CAAyF,GAArF,+CAAF,GAAmD,GAAF,GAAQ,cAAF,GAAiB,qBAAD,GAAiB,SAAzG,CAAnB;AAjB4C;AAgyEG;AAG/C;AACA;AAGA,YAAO,UAA6B,GAAtB,IAAF,GAAW,iDAAJ;;;;UAAI,CAAL,GAAe,GAAD,GAAS,iDAAJ;;;;UAAI,CAAL;AAEpC,WAAM,QAAQ,eAAe,CAAC,GAAD;AAE7B,UAAY,EAAD,QAAX;AAEE,YAAG,+BAA0B,KAAE,EAA/B;AAEE,cAAG,OAAH;AACiB,cAAG,MAAM,YAAY,CAAC,QAAQ,kCAAW,CAAC,QAAD,CAApB;AAEpC,gBAAe,EAAG,MAAM,eAAe,CAAC,OAAD;;AAIzC,cAAG,OAAH;AACiB,cAAG,UAAU,IAAI,CAAC,+BAAD;AAEhC,gBAAe,EAAG,UAAU,OAAO,CAAC,+BAAD;;OAdzC;AAX+C;AA8bH;AAG5C;AACA;AAGA,YAAO,UAA6B,GAAtB,IAAF,GAAW,iDAAJ;;;;UAAI,CAAL,GAAe,GAAD,GAAS,iDAAJ;;;;UAAI,CAAL;AAEpC,WAAM,QAAQ,eAAe,CAAC,GAAD;AAE7B,UAAY,EAAD,QAAX;AAEE,YAAG,UAAW,KAAE,mCAAhB;AAEiB,YAAG,UAAlB,GAAgC;AAChC,YAAE,cAAC,OAAW,IAAZ;;AAIa,YAAG,UAAlB,GAAgC;AAChC,YAAE,cAAC,OAAW,IAAZ;;OAVN;AAX4C;AAlqDD;AAAhB;AAG3B;AACA;AAGA,YAAO,UAA6B,GAAtB,IAAF,GAAW,iDAAJ;;;;UAAI,CAAL,GAAe,GAAD,GAAS,iDAAJ;;;;UAAI,CAAL;AAEpC,WAAM,QAAQ,eAAe,CAAC,GAAD;AAE7B,eAAmB,EAAD;AAXS;AAAgB;AAkrBI;AAE/C;AACA;AAGA,YAAO,UAA6B,GAAtB,IAAF,GAAW,iDAAJ;;;;UAAI,CAAL,GAAe,GAAD,GAAS,iDAAJ;;;;UAAI,CAAL;AAEpC,WAAM,QAAQ,eAAe,CAAC,GAAD;AAE7B,UAAY,EAAD,QAAX,EACE,EAAE,cAAc,YAAY,CAAC,EAAD,CAD9B;AAV+C;AAlwDR;AAGvC;AAEA,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,YAAG,CAAI,gBAAW,CAAC,KAAK,IAAN,CAAlB;AAEE,iBAAQ,QAAQ,cAAc,CAAC,UAAD;AAC9B,cAAI,cAAC,MAAU,KAAX;AACJ,cAAI,cAAC,QAAqB,iDAAT;;;;cAAS,CAAtB;AACW,cAAK,MAAM,YAAY,CAAC,QAAQ,MAAT;AACtC,cAAG,MAAO,KAAG,EAAb,EACE,IAAI,cAAC,QAAY,MAAb,CADN;AAEA,6BAAY,CAAC,KAAK,IAAN,CAAW,aAAa,CAAC,KAAM,mBAAY,CAAC,KAAK,IAAN,CAAW,WAA9B;SARtC;OAFF;AALuC;AA0kFA;AAEvC;AAEA,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAM,uBAAkB,CAAC,KAAK,IAAN;AACxB,YAAY,EAAD,QAAX;AAEE,YAAE,cAAC,QAAqB,iDAAT;;;;cAAS,CAAtB;SAFJ;OAHF;AAJuC;AAh2BG;AAE1C;AAEA,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAM,uBAAkB,CAAC,KAAK,IAAN;AAE5B;OAJE;AAJ0C;AAtqBJ;AAAX;AAE3B;AAEA,eAAU;AACV,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAM,uBAAkB,CAAC,KAAK,IAAN;AACxB,iBAAmB,EAAD;OAHpB;AAL2B;AAAW;AAj/BL;AAEjC;AAAE;AAEF,eAAS,QAAc,OAAT,cAAS,GAAE,CAAF,kBAAvB;AAAI;AACF,iBAAS,SAAc,QAAT,cAAS,GAAE,CAAF,qBAAvB;AAAI;AAEA,uBAAK,CAAC,EAAE,EAAM,EAAT;;;AAPsB;AAsnCI;AAErC;AAAE;AACF;AAEA,UAAU,CAAN,KAAM,GAAC,CAAD,CAAI,IAAU,CAAN,KAAM,GAAE,cAAF,CAAxB,EACE,MADF;AAGA,YAAO;AACP,WAAM;AAGR;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAzBuC;AA8iBA;AAErC,UAAU,CAAN,KAAM,GAAC,CAAD,CAAI,IAAU,CAAN,KAAM,IAAG,cAAH,CAAxB,EACE,MADF;AAIF;AANuC;AAwvBA;AAErC;AAAE;AAAG;AAAI;AACT;AACA;AAEA,UAAY,WAAD,QAAX;AAEE,YAAG,SAAU,KAAE,EAAf;AAEE;AACA;SAHF;AAMA,cAAO;AACP,aAAM;AAEN,YAAG,eAAH,EACE,KAAM,CADR;AAGA,YAAG,YAAM,SAAT,EACE,MAAO,CADT;AAGA,YAAG,YAAM,SAAT;AAEE,cAAG,CAAI,mBAAQ,CAAC,gBAAD,CAAf;AAGN;WAHM;AAOA,mBAAkB,KAAT,cAAS,GAAE,CAAF,EAAW,2BAA7B;AAAI;AAGV;AAGQ,gBAAG,CAAI,4BAAQ,CAAC,UAAW,EAAG,aAAf,CAA8B,IAAS,CAAJ,GAAI,GAAE,CAAF,CAAtD;AAGR;aAHQ;;AASR;AAGM,2BAAY,CAAZ;AAEA,yBAAU,CAAC,YAAM,aAAa,IAApB;;AAKV,mBAAS,UAAe,QAAT,cAAS,GAAE,CAAF,qBAAxB;AAAI;AAEF,gBAAG,CAAI,4BAAQ,CAAC,UAAW,aAAK,CAAC,OAAQ,CAAT,EAAa,aAA9B,CAA6C,IAAS,CAAJ,GAAI,GAAE,CAAF,CAArE;AAGR;AAEU,gBAAE,MAAM,YAAY,CAAC,UAAU,MAAX;aALtB;;;OArDN;AANqC;AA9yBG;AAExC;AAAE;AAAG;AACL;AAEA,UAAY,WAAD,QAAX;AAEE,YAAG,eAAH;AACE,eAAM;AAEN,mBAAM;AAER,YAAG,YAAM,SAAT;AAEE,cAAG,mBAAQ,CAAC,gBAAD,CAAX;AAGN;AAEQ,+BAAe;WALjB;AAQN;AAGM,2BAAY,CAAZ;AACA,yBAAU,CAAC,YAAM,aAAa,IAApB;;AAIV,mBAAS,SAAe,OAAT,cAAS,GAAE,CAAF,kBAAxB;AAAI;AAGV;AAEQ,cAAE,MAAM,eAAe,CAAC,SAAD;;;OA9B7B;AALwC;AA2hBG;AAE3C,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAY,CAAC,WAAD,SAAjC;AAGF;AACA;AACA;AACA;OANE;AAF2C;AAaL;AAEtC;AAEA,UAAS,CAAL,IAAK,GAAE,cAAF,CAAY,IAAU,CAAL,IAAK,GAAE,cAAF,CAA/B;AAEE,aAAM,mBAAY,CAAC,KAAK,IAAN;AAClB,YAAY,EAAD,QAAX,EACE,yCAAqB,CAAC,EAAD,CADvB;OAHF;AAJsC;AAjuDH;AAAR;AAE3B;AAAE;AAEF,UAAG,eAAU,IAAI,CAAI,QAArB;AACE,YAAK;AAEL,gBAAK;AAEP,UAAG,eAAH;AACE,YAAK;AAEL,gBAAK;AAEP,uBAAa;AACb,4BAAkB;AAElB,qBAAU,aAAQ,CAAC,EAAE,EAAE,UAAW,cAAe,QAA/B,CAAlB;AAjB2B;AAAQ;AAuEA;AAAR;AAE3B,UAAY,CAAT,aAAS,GAAE,CAAF,CAAI,KAAE,cAAlB;AAEE,YAAG,eAAH;AACE,0BAAY;AAEZ,8BAAY;AACd,wBAAY,aAAS,GAAE,CAAF;OAGrB,sBAAY,aAAS,GAAE,CAAF;AAEvB,qBAAU,aAAQ,CAAC,cAAU,cAAU,oBAAgB,eA5sNuD,KA4sN5F,CAAlB;AAb2B;AAAQ;AAwiBG;AAEtC;AAAE;AACF;AAAG;AAGH,UAAU,CAAN,KAAM,GAAC,CAAD,CAAI,IAAU,CAAN,KAAM,GAAE,cAAF,CAAxB,EACE,MADF;AAGA,UAAG,YAAM,SAAT;AACE,aAAM;AAEN,iBAAM;AAGV;AACA;AACA;AACA;AACA;AACA;AAGE,sBAAW,IAAI,CAAM,iDAAL;;;;UAAK,CAAN;AAvBuB;AA+BE;AAExC;AAAE;AACF;AAAG;AAEH,UAAU,CAAN,KAAM,GAAC,CAAD,CAAI,IAAU,CAAN,KAAM,GAAE,cAAF,CAAxB,EACE,MADF;AAGA,YAAO,gBAAW,QAAQ,CAAM,iDAAL;;;;UAAK,CAAN;AAE1B,UAAG,GAAI,KAAE,CAAC,CAAV,EACE,MADF;AAGA,sBAAW,OAAO,CAAC,GAAD;AAGpB;AACA;AACA;AACA;AACA;AACA;AArB0C;AALC;AAAd;AAE3B,eAAU,gBAAW,QAAQ,CAAM,iDAAL;;;;UAAK,CAAN,CAAiB,KAAG,CAAC,CAAJ;AAFnB;AAAc;AA+BN;AAEnC,UAAU,CAAN,KAAM,GAAC,CAAD,CAAI,IAAU,CAAN,KAAM,GAAE,cAAF,CAAxB,EACE,MADF;AAGA,UAAG,CAAY,CAAC,WAAD,SAAf,EACE,MADF;AAIF;AACA;AAVqC;AAcE;AAErC,UAAU,CAAN,KAAM,GAAC,CAAD,CAAI,IAAU,CAAN,KAAM,GAAE,cAAF,CAAxB,EACE,MADF;AAIF;AACA;AAPuC;AAozDL;AAGhC;AACA;AACA;AAAI;AACJ;AAEA,UAAG,CAAY,CAAC,WAAD,SAAf,EACE,MADF;AAGA,aAAmB,WAAM,SAAS,MAAC,CAAD;AAElC,YAAO,UAAW,KAAE,mCAAF;AAKhB,eAAU;AAEZ,UAAG,YAAM,SAAT;AAEE,aAAM;AAGV;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGI,uBAAU,CAAC,YAAM,aAAa,IAApB;;AAMd;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;;AAtDkC;AAnuSb;;;;AAyIC,+BAAO,UlEjRjB,+BkEiRiB,CAAP;AA8DJ,6B9DxwBV,uC8DwwBU;AACW;AACT,+B9DlwBV,yC8DkwBU,yB9DnJkD,uBAAC,0CAAQ,wCAAT,C8DmJlD;AACI,mC7DzgBhB,uC6DygBgB;AACA,mC9D1wBV,6C8D0wBU;AACN,6B7D3gBV,uC6D2gBU;AACG,gC9DlxBV,0C8DkxBU;AACQ,wC9DnwBV,kD8DmwBU;AACL,mC9DlwBV,6C8DkwBU;AACF,iC9DpwBV,2C8DowBU;AACM,uC9DnwBV,iD8DmwBU;AACO,8C9DvwBhB,kD8DuwBgB;AACG,iD9DxwBnB,kD8DwwBmB;AACA,iD9DzwBnB,kD8DywBmB;AACJ,6C9D1wBf,kD8D0wBe;AACd;AACH,4B7DrbV,sC6DqbU;AACE,8BAlVE,kCAkVF;AACA,8BAnVE,kCAmVF;AACA;AACO;AACF,mC9D1xBZ,2C8D0xBY;AACJ,+B9DrsBV,yC8DqsBU;AACE;AACA;AACF,+BAnQE,mCAmQF;AACD,8BA1RE,kCA0RF;AACQ;AACL,iClDhsBV,wCkDgsBU;AACK,sC7DniBnB,uC6DmiBmB;AACI,0C7DpiBvB,uC6DoiBuB;AACX;AACF;AACO;AACF,kC9DvyBX,2C8DuyBW;AACF;AACK,qCAn0Bd,yBAm0Bc;AACD,oCAn0BR,8BAm0BQ;AACL,+B9DzuBN,6C8DyuBM;AACI,mCAt0BZ,yBAs0BY;AACG,sCAv0Bf,yBAu0Be;AACJ,kC9D5uBT,6C8D4uBS;AACG,qCA13BH,oCA03BG;AACI,yCAv3BH,wCAu3BG;AACH,sCA13BH,qCA03BG;AACH,mCAn3BH,kCAm3BG;AACD,kC9DruBP,+C8DquBO;AACA,kC9DvuBP,+C8DuuBO;AACD,iC9DruBP,8C8DquBO;AACG,oCA1PP,+BA0PO;AACD,mC9DxuBP,gD8DwuBO;AAzPH;AA4PN;;;;;AAEM;AACA;AACU,0C9D5vBjB,6C8D4vBiB;AACE,4C9D7vBnB,6C8D6vBmB;AALlB;AAQG;;;;;AAEG;;;AAEjB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATiB;;;;;;AAgmSgB;AAEnC,mBAAS;AACT,kBAAO,CAAC,KAAD;AAH4B;AAoBG;AAEtC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ,YAAY,mBAAD,QAAX;AAEE,cAAG,aAAH;AACE,+BAAa,MAAM,eAAe,CAAC,SAAD;AAElC,gBAAA,mBAAa,MAAM,YAAY,CAAC,UAAU,MAAX;SALnC;OAHF;AAFsC;AAjCQ;AAAnB;AAE3B;AACA;AAEA,WAAM;AAER;AAEE,eAAU;AATiB;AAAmB;AAmBP;AAEvC;AAEA,uBAAa;AAEb,mBAA0B,OAAX,iBAAc,yBAAH,CAAwB,MAAK;AAEvD,UAAG,cAAH;AACE,2BAAa,UAAU,IAAI,CAAC,UAAU,GAAC,WAAZ;AAE3B,YAAA,mBAAa,UAAU,OAAO,CAAC,UAAU,GAAC,WAAZ;AAXO;AAhCH;AAEpC;AACA,sBAAY;AAHmD;AAA3B;AAMA;AAExB,aAAX,iBAAc,yBAAH,CAAwB,aAAa,CAAC,eAAD;AACjD;AAHoC;AA5kSjB;AAiBC,+BAAY,elErfrB,gCkEqfqB,CAAZ;AAQL;AACD;AACI;AA3BC;AA8BK,+EAAmB,U3E72BpC,2B2E62BoC,EAAgB,qBAAnC;AAEQ,uFAAmB,U3E/2B5C,2B2E+2B4C,EAAgB,sBAAmB,wBAAuB,0BAA7E;AAEE,yFAAmB,U3Ej3B9C,2B2Ei3B8C,EAAgB,sBAAqB,0BAAoB,uBAA5E;AAgGnB;AA5FK;;;AAElB;AACA;AACA;AACA;AACA;AACA;AAPkB;;;;;;;;;;AA2pSe;AAAP;AAE5B,eAAwC,YAAK,CAAC,KAAD;AAFjB;AAAO;AAWC;AAG1B,kBAAK,CAAC,MAAU,KAAX;AAHqB;AAnCI;AAExC,UAAY,iBAAD,QAAX,EACE,iBAAW,CAAC,IAAD,CADb;AAFwC;AANF;AAEtC,UAAY,eAAD,QAAX,EACE,eAAS,CAAC,KAAM,KAAP,CADX;AAFsC;AAYG;AAEzC,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAM,KAAP,CADd;AAFyC;AAMA;AAEzC,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAM,KAAP,CADd;AAFyC;AAMA;AAEzC,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAM,KAAP,CADd;AAFyC;AAuBN;AAEnC;AACA,UAAY,IAAD,QAAX,EACE,iBAAY,CAAC,IAAI,SAAC,EAAN,CADd;AAHmC;AA1DE;AAErB,sDAAC,OAAQ,wBAAT;AAChB,mBAAyB;AAHiC;AAArB;AANH;AAExB;AACV;AAHkC;AAYC;AAEnB,+CAAC,KAAD;AAFmB;AAzBJ;AAAH;AAE5B,eAAwC;AACxC,oBAAS,CAAC,MAAM,SAAC,EAAR;AAHmB;AAAG;AAMA;AAAH;AAE5B,eAAwC;AACxC,YAAM,MAAN,GAAgB;AAChB,oBAAS,CAAC,MAAM,SAAC,EAAR;AAJmB;AAAG;AA2DG;AAAN;AAE5B,eAA8C,yCAAC,KAAD;AAC9C,uBAAY,CAAC,MAAM,SAAC,EAAR;AAHgB;AAAM;AAhqSd;AAwBA,+BAAO,UlE5cjB,+BkE4ciB,CAAP;AAxBA;AAiCQ;;AAEN;;;AAEpB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAlBoB;;;;;AAs3T2B;AAEjD,UAAI,qBAAiB,KAAG,KAAxB;AAEE,gCAAoB;AACpB;OAHF;AAFiD;AASN;AAE3C,UAAI,eAAW,KAAG,KAAlB;AAEE,0BAAc;AACd;OAHF;AAF2C;AASF;AAEzC,UAAI,aAAS,KAAG,KAAhB;AAEE,wBAAY;AACZ;OAHF;AAFyC;AASG;AAE5C,UAAI,gBAAY,KAAG,KAAnB;AAEE,2BAAe;AACf;OAHF;AAF4C;AASU;AAEtD,UAAI,0BAAsB,KAAG,KAA7B;AAEE,qCAAyB;AACzB;OAHF;AAFsD;AASN;AAEhD,UAAI,oBAAgB,KAAG,KAAvB;AAEE,+BAAmB;AACnB;OAHF;AAFgD;AAuDF;AAE9C,UAAI,kBAAc,KAAG,KAArB;AAEE,6BAAiB;AACjB;OAHF;AAF8C;AASE;AAEhD,UAAI,oBAAgB,KAAG,KAAvB;AAEE,+BAAmB;AACnB;OAHF;AAFgD;AAvDH;AAE7C,UAAI,iBAAa,KAAG,KAApB;AAEE,4BAAgB;AAChB;OAHF;AAF6C;AAqCC;AAE9C,UAAI,kBAAc,KAAG,KAArB;AAEE,6BAAiB;AACjB;OAHF;AAF8C;AA5BW;AAGzD,UAAG,6BAAyB,KAAG,KAA/B;AAEE,wCAA4B;AAC5B;OAHF;AAHyD;AAUN;AAEnD,UAAI,uBAAmB,KAAG,KAA1B;AAEE,kCAAsB;AACtB;OAHF;AAFmD;AASI;AAEvD,UAAI,2BAAuB,KAAG,KAA9B;AAEE,sCAA0B;AAC1B;OAHF;AAFuD;AAzGjB;AAEtC,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAFsC;AAMC;AAEvC;AACA,2BAAiB;AACjB,yBAAe;AACf,sBAAY;AACZ,6BAAmB;AACnB,wBAAc;AACd,8BAAoB;AACpB,6BAAmB;AACnB,mCAAyB;AACzB,gCAAsB;AACtB,sCAA4B;AAC5B,oCAA0B;AAC1B,oBAAU;AAd8B;AAAD;AAjBF;AAErC,UAAc,2BAAH,eAAP,MAAO,CAAX;AAEE,6BAAyB,OAAP,OAAU,2BAAH,CAA0B;AACnD,2BAAuB,OAAP,OAAU,2BAAH,CAA0B;AACjD,4BAAwB,OAAP,OAAU,2BAAH,CAA0B;AAClD,sBAAkB,OAAP,OAAU,2BAAH,CAA0B;OAL9C;AAFqC;AAp1Tf;AAmCF;AAGI;AACJ,iC7DrrBd,uC6DqrBc;AACM,uC7DtrBpB,uC6DsrBoB;AACR;AACG;AACI,sC7DzrBnB,uC6DyrBmB;AACM,4C7D1rBzB,uC6D0rByB;AACH,yC7D3rBtB,uC6D2rBsB;AACM,+C7D5rB5B,uC6D4rB4B;AACF,6C7D7rB1B,uC6D6rB0B;AACV;AACC;AACA;AACD;AACN,6BAtDY,2CAsDZ;AACS;AACN,gC9Dj4BP,6C8Di4BO;AAtDG;AAyDP;;;AAEb;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAjBa;;;;;;;;;;;;;;;;AAqrTmB;AAElC,mBAAQ,OAAO,CAAC,KAAD;AAFmB;AALF;AAEhC,iBAAM,OAAO,CAAC,KAAD;AAFmB;AAzBI;AAEpC;AACA;AACA;AAEA,wBAAc;AAEd,UAAI,yCAAU,IAAG,oBAAjB,EACE,MADF;AAGA,mBAAc;AAEd,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,aAAqB,wBAAiB,SAAS,KAAM,CAAC,CAAD;AACrD,YAAI,CAAE,KAAE,eAAR;AAEE,YAAE,aAAa,CAAC,QAAQ,aAAO,eAAiC,GAAhB,GAAF,GAAQ,UAAF,GAAa,WAAlD;SAGf,MAAA,EAAE,aAAa,CAAC,QAAQ,aAAO,eAAhB;;AArBiB;AAvaC;AAAd;AAEvB;AACA;AAGA,YAAyB,KAAK;AAE9B,UAAe,CAAX,GAAG,OAAQ,IAAG,GAAH,CAAQ,IAAgB,CAAX,GAAG,OAAQ,IAAG,GAAH,CAAvC;AAEE,mBAAK;AAEL,YAAK,IAAO,MAAY,CAAC,GAAG,aAAJ;AAExB,2BAAY,CAAC,EAAG,cAAJ;AAEZ,YAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,IAAD,CADtB;OARF;AAYA,eAAU;AApBa;AAAc;AAhFD;AAAb;AAEvB;AAAG;AAAK;AACR;AAAE;AACF;AACA;AAAM;AAAM;AACZ;AAGA,YAAyB,KAAK;AAE9B,UAAe,CAAX,GAAG,OAAQ,IAAG,GAAH,CAAQ,IAAgB,CAAX,GAAG,OAAQ,IAAG,GAAH,CAAvC;AAEE,aAAM,uBAAW,QAAC;AAClB,UAAE,WAAC,CAAQ,GAAG,aAAX;AAEH,eAAQ,uBAAW,QAAC;AACpB,YAAI,iBAAJ,GAAwB;AACxB,YAAI,aAAC,CAAa,eAAb;AAEL,YAAG,EAAE,SAAC,EAAM,GAAE,CAAd;AAEE,oBAAW,uBAAW,QAAC;AACvB,iBAAO,iBAAP,GAA2B;AAC3B,iBAAO,aAAC,CAAa,eAAb;AACR,iBAAO,iBAAC,CAAiB,EAAE,IAAQ,CAAC,CAAD,CAA3B;AAER,mBAAS,QAAc,OAAT,EAAE,SAAC,EAAM,GAAE,CAAF,kBAAvB;AAAI;AAEF,gBAAI,iBAAC,CAAiB,EAAE,IAAQ,CAAC,CAAD,CAA3B;AAEL,gBAAG,aAAO,cAAc,KAAE,EAA1B;AAEE,yBAAK,QAAI,QAAC,CAAQ,IAAI,aAAC,EAAb;;AAIV,oBAAO,WAAK,MAAI,CAAC,QAAD;AAEhB,qBAAQ,aAAO;AAEf,oCAAiB,CAAC,EAAG,IAAI,aAAC,GAAW;;;;kBAApB;AAEjB,sBAAS;AACT,kBAAG,cAAG,CAAC,MAAO,IAAR,CAAc,GAAE,CAAtB;AAEE,uBAAQ,0BAAa,CAAC,KAAM,MAAO,qBAAQ,CAAC,GAAG,SAAC,EAAL,EAAa,cAAC,4CAAD,CAAnC;eAFvB;AAKA,uBAAS,SAAgB,QAAX,IAAI,SAAC,EAAM,GAAE,CAAF,qBAAzB;AAAI;AAEF,wBAAS,IAA0B,GAAnB,OAAO,IAAQ,CAAC,CAAD,CAAjB,GAAuB,IAAF;AACnC,oBAAG,cAAG,CAAC,MAAO,IAAR,CAAc,GAAE,CAAtB;AAEE,8BAAa;AACb,sBAAG,CAAE,GAAE,IAAI,SAAC,EAAZ,EACE,YAAa,IAAI,IAAQ,CAAC,CAAD,CAD3B;AAGA,0CAAmB,CAAC,GAAG,SAAC,GAAO,OAAO,IAAQ,CAAC,CAAD,EAAK;;;;sBAAhC;AACnB,yBAAQ,0BAAa,CAAC,KAAM,MAAO,UAAW,cAAC,4CAAD,CAAzB;iBAPvB;;AAWF,iBAAG,QAAC,CAAQ,IAAR;AAEJ,gCAAa,CAAC,GAAG,SAAC,EAAL;;;AAIjB,iBAAQ,eAAR,OAAQ;SAjDV;AAoDA,YAAK,eAAL,IAAK;AACL,UAAG,eAAH,EAAG;OA9DL;AAiEA,eAAU;AA5Ea;AAAa;AAPF;AAAX;AAEvB,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,IAAD,CADpB;AAEA,eAAU;AAJa;AAAW;AA8GG;AAErC;AAEA,UAAY,mBAAD,QAAX;AAEE,mBAAW,IAAX,GAAmB;AACnB,2BAAa,CAAC,KAAM,kEAAP;OAHf;AAJqC;AAaA;AAErC,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,KAAP,CADf;AAFqC;AAMM;AAG3C,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,MAAO,WAAY,MAA1B,CADrB;AAH2C;AAOF;AAGzC,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,MAAO,SAAU,SAAxB,CADnB;AAHyC;AAoGA;AAEzC,UAAY,iBAAD,QAAX,EACE,iBAAW,CAAC,KAAM,KAAP,CADb;AAFyC;AAMG;AAE5C,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,KAAP,CADhB;AAF4C;AArFP;AAAd;AAEvB;AAEA,eAAU;AACV,WAAM;AACN;AACE,YAAG,EAAG,KAAE,EAAR;AAEE,mBAAU;AACV;SAHF;AAKA,aAAM,EAAE;OANV,QAQmB,EAAD,QARlB;AANuB;AAAc;AA2FI;AAAlB;AAEvB,eAAsC,6DAAC,KAAD;AAFf;AAAkB;AA1EL;AAAb;AAEvB;AACA;AACA;AAEA,eAAiC,wDAAC,KAAD;AAEjC,mBAAc;AAEd,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,aAAqB,wBAAiB,SAAS,KAAM,CAAC,CAAD;AACrD,YAAY,EAAD,QAAX;AAGE,cAAG,mBAAc,CAAC,KAAK,QAAgB,EAAtB,CAAjB;AAEE,gBAAG,aAAO,aAAV;AAEE,kBAAG,WAAK,WAAC,CAAD,CAAG,UAAX;AAEE,kBAAE,UAAU,OAAO,CAAC,UAAU,GAAC,WAAZ;;AAInB,kBAAE,UAAU,IAAI,CAAC,UAAU,GAAC,WAAZ;;AAElB,yBAAK,WAAC,CAAD,CAAG,UAAR,GAAsB,CAAI,WAAK,WAAC,CAAD,CAAG;;AAIlC,gCAAc;AACd,gBAAE,UAAU,IAAI,CAAC,UAAU,GAAC,WAAZ;;AAElB,kCAAiB,CAAC,CAAD;WAGjB,UAAG,CAAI,aAAO,aAAd,EACE,EAAE,UAAU,OAAO,CAAC,UAAU,GAAC,WAAZ,CADrB;SAzBJ;;AAbqB;AAAa;AA4CG;AAAhB;AAEvB;AACA;AAEA,eAAiC,wDAAC,KAAD;AAEjC,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,aAAqB,wBAAiB,SAAS,KAAM,CAAC,CAAD;AAErD,YAAG,mBAAc,CAAC,KAAK,QAAgB,EAAtB,CAAjB;AAEE,mCAAoB,CAAC,CAAD;SAFtB;;AAXqB;AAAgB;AAmCF;AAErC;AAEA,UAAG,WAAK,UAAM,CAAC,KAAD,CAAO,MAAO,KAAE,EAA9B,EACE,WAAK,UAAM,CAAC,KAAD,CAAO,MAAlB,GAA4B,aAAO,cADrC;AAGA,WAAqB,QAAQ,cAAc,CAAC,KAAD;AAC3C,iBAAK,UAAM,CAAC,KAAD,CAAO,eAAlB,GAAqC;AAErC,8BAAiB,YAAY,CAAC,EAAD;AAG7B,UAAG,cAAG,CAAC,KAAK,WAAK,UAAM,CAAC,KAAD,CAAO,MAAxB,CAA+B,KAAE,CAAvC,EACE,EAAE,UAAF,GAAgB,WAAK,UAAM,CAAC,KAAD,CAAO,MADpC;AAGA,UAAG,aAAO,eAAe,KAAG,EAA5B,EACE,EAAE,aAAa,CAAC,QAAQ,aAAO,eAAhB,CADjB;AAhBqC;AAyDG;AAExC;AAEA,UAAY,wBAAD,QAAX;AAEE,aAAqB,wBAAiB,SAAS,KAAM,CAAC,KAAD;AACrD,YAAG,CAAY,CAAC,EAAD,SAAf;AAEE,+BAAgB,CAAC,KAAM,KAAP;SAGhB,MAAA,EAAE,UAAF,GAAgB,WAAK,UAAM,CAAC,KAAD,CAAO;OARtC;AAJwC;AA3BA;AAExC,UAAY,wBAAD,QAAX;AAEE,gCAAiB,YAAY,CAAC,wBAAiB,SAAS,KAAM,CAAC,KAAD,CAAjC;OAF/B;AAFwC;AAQA;AAExC;AAEA,iBAAK,UAAM,CAAC,KAAD,CAAO,MAAlB,GAA4B,aAAO;AAEnC,WAAqB,QAAQ,cAAc,CAAC,KAAD;AAC3C,iBAAK,UAAM,CAAC,KAAD,CAAO,eAAlB,GAAqC;AAErC,UAAG,WAAK,SAAC,EAAM,IAAG,CAAlB;AACE,gCAAiB,YAAY,CAAC,EAAD;AAE7B,YAAA,wBAAiB,aAAa,CAAC,GAAI,wBAAiB,SAAS,KAAM,CAAC,KAAD,CAArC;AAEhC,QAAE,UAAF,GAAgB,WAAK,UAAM,CAAC,KAAD,CAAO;AAClC,UAAG,aAAO,eAAe,KAAG,EAA5B,EACE,EAAE,aAAa,CAAC,QAAQ,aAAO,eAAhB,CADjB;AAfwC;AAlBD;AAEvC;AAEA,eAA6C,KAApC,wBAAiB,kBAAmB,GAAE,CAAF,EAAW,aAAxD;AAAI;AAEF,gCAAiB,YAAY,CAAC,wBAAiB,SAAS,KAAM,CAAC,CAAD,CAAjC;;AANQ;AA0MD;AAEtC;AAFsC;AA5UH;AAEnC;AACA;AAHmC;AArMC;AAAb;AAEvB,eAAU,QAAQ,cAAc,CAAC,KAAD;AAFT;AAAa;AA0CC;AAErC;AAFqC;AApDF;AAEnC;AAFmC;AAmmBvB,uBAAG;AAFsB;AAIrC;AAAG;AACH;AACA;AACA;AACA;AAAW;AAAgB;AAC3B;AACA;AAEA;AAEA,UAAG,iBAAH,EACE,MADF;AAGA,UAAI,yCAAU,IAAG,oBAAjB,EACE,MADF;AAGA,UAAY,uBAAD,QAAX;AAEE,sBAAe,qBAAQ,CAAC,aAAO,cAAR;AACvB,oBAAa,qBAAQ,CAAC,aAAO,YAAR;AACrB,iBAAU,qBAAQ,CAAC,aAAO,SAAR;AAElB,qBAAc;AAEd,gCAAiB,aAAa,CAAC,QAAS,UAAV;AAE9B,aAAM;AAEN,YAAqB,CAAjB,sBAAiB,KAAE,EAAF,CAAM,IAAiB,CAAZ,iBAAY,KAAE,8CAAF,CAA5C,EACE,KAAM,8BAAO,CAAC,IAAI,MAAL,CADf;AAGA,oBAAa;AACb,yBAAkB;AAClB,4BAAqB;AAErB,YAAG,aAAO,WAAW,KAAG,EAAxB;AAEE,sBAAa,mBAAkD,GAA9B,kCAAW,CAAC,aAAO,WAAR,CAAZ,GAAgC,GAAD;SAFjE;AAKA,YAAgB,CAAZ,2CAAY,IAAG,oBAAH,CAAmB,IAA6B,CAAxB,aAAO,iBAAiB,KAAE,EAAF,CAAhE;AACI,sBAAa,SAAU,GAAE,4BAAF;AACtB,kBAAI,aAAO,iBAAiB,KAAG,EAA/B,EACH,YAAa,SAAuE,GAA3D,oBAAF,GAAyB,kCAAW,CAAC,aAAO,iBAAR,CAAb,GAAuC,GADlF;AAGL,YAAG,aAAO,aAAa,KAAG,CAA1B,EACE,YAAa,SAAuD,GAA1C,UAAH,GAAgB,qBAAQ,CAAC,aAAO,aAAR,CAAV,GAAgC,KADvE;AAGA,YAAG,aAAO,gBAAgB,KAAG,EAA7B,EACE,iBAAkB,mBAA0D,GAApC,kCAAW,CAAC,aAAO,gBAAR,CAAb,GAAwC,YADhF;AAGA,YAAG,aAAO,sBAAsB,KAAG,EAAnC,EACE,iBAAkB,cAAgF,GAA/D,oBAAF,GAAuB,kCAAW,CAAC,aAAO,sBAAR,CAAZ,GAA6C,YADtG;AAGA,YAAG,aAAO,mBAAmB,KAAG,EAAhC,EACE,oBAAqB,mBAA6D,GAAvC,kCAAW,CAAC,aAAO,mBAAR,CAAb,GAA2C,YADtF;AAGA,YAAG,aAAO,yBAAyB,KAAG,EAAtC,EACE,oBAAqB,iBAAqF,GAAjE,oBAAF,GAAuB,kCAAW,CAAC,aAAO,yBAAR,CAAZ,GAA8C,GAD7G;AAGA,YAAG,aAAO,uBAAuB,KAAG,EAApC,EACE,oBAAqB,iBAAuE,GAAnD,QAAF,GAAW,kCAAW,CAAC,aAAO,uBAAR,CAAZ,GAA4C,GAD/F;AAGA,YAAG,aAAO,gBAAV;AACE,iCAAa,MAAM,eAAe,CAAC,YAAD;AAElC,cAAA,uBAAa,MAAM,YAAY,CAAC,aAAa,QAAd;AAEjC,YAAG,aAAO,OAAO,KAAE,0CAAnB;AACE,sBAAa;;AAGb,sBAAa,kCAAqD,GAAV,iDAAC,CAAP,qBAAO;;;;cAAD,CAAR,GAAoB,wBAAF;AAClE,wBAAe,qBAAQ,CAAC,aAAO,YAAR;AACvB,iCAAa,MAAM,YAAY,CAAC,aAAa,MAAd;;AAGjC,YAAK,GAM2F,GANvF,UAAD,GAAY,IAAD,GAChB,iBADqB,GACD,SAAF,GAAc,6BAAF,GAAiC,WAAF,GAAe,YAAD,GAC3E,aADwF,GACzE,MAAF,GAAW,KAAF,GACtB,GAD6B,GACvB,IAAF,GACF,GAAF,GAAM,UAAD,GAAY,WAAD,GAAe,SAAF,GAAa,UAAD,GAAa,SAAF,GAAc,MAAF,GAAW,EAAF,GAAM,IAAD,GAAM,IAAD,GACjF,GAAF,GAAM,UAAD,GAAY,gBAAD,GAAoB,cAAF,GAAmB,GAAF,GAAO,EAAF,GAAO,IAAF,GAAO,IAAD,GACjE,GAAF,GAAM,UAAD,GAAY,aAAD,GAAiB,iBAAF,GAAsB,UAAF,GAAc,SAAF,GAAc,KAAF,GAAU,EAAF,GAAO,GAAF,GAAM,IAAD;AAEhG,sCAAgB,CAAC,UAAU,GAAC,QAAD,CAAW,CAAtB;OArElB;AAwEA;AA5FqC;AAjEH;AAElC;AACA;AAEA,UAAI,4CAAa,IAAG,oBAApB,EACE,MADF;AAGA,UAAG,CAAY,CAAC,wBAAD,SAAf,EACE,MADF;AAIA,aAAM,wBAAiB,kBAAmB,GAAE,CAA5C;AAEE,gCAAiB,YAAY,CAAC,wBAAiB,WAAlB;;AAI/B,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,aAAqB,QAAQ,cAAc,CAAC,KAAD;AAC3C,UAAE,MAAM,YAAY,CAAC,WAAY,UAAb;AACpB,mBAAK,WAAC,CAAD,CAAG,eAAR,GAA2B;AAC3B,gCAAiB,YAAY,CAAC,EAAD;AAC7B,UAAE,UAAF,GAAgB,WAAK,WAAC,CAAD,CAAG;AACxB,YAAG,aAAO,eAAe,KAAG,EAA5B,EACE,EAAE,aAAa,CAAC,QAAQ,aAAO,eAAhB,CADjB;;AAzBgC;AArHJ;AAE9B;AACA;AAH8B;AAtNK;AAAZ;AAEvB,UAAY,YAAD,QAAX;AACE,iBAAU,YAAM,MAAY,GAAJ,GAAF,GAAQ,UAAF;AAE5B,qBAAU;AALW;AAAY;AAiLG;AAEtC,UAAI,QAAS,KAAE,+CAAf;AAEE,4BAAe,yCAAf;OAFF;AAFsC;AAjYN;AAEhC;AAFqD;AAArB;AAUQ;AAExC;AAEA,2BAA4B,CAAZ,2CAAY,IAAG,oBAAH,CAAmB,IAAI,CACZ,CAAzB,CAAV,yCAAU,IAAG,WAAK,gBAAR,CAAyB,IAAc,CAAV,yCAAU,IAAG,WAAK,gBAAR,CAAd,CADQ;AAG/C,0BAAgB;AAChB,wBAAc,CAAC;AAEf,sBAAY,2BAAsB,QAAC;AACnC,mBAAQ,UAAR,GAAqB;AACrB,oBAAU,yBAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,iBAAM,UAAN,GAAmB;AAEnB,UAAG,kBAAH;AAEE,mBAAK;AACL,mBAAK;AACL,mBAAK;AACL,mBAAK;OALP;AAQA,iBAAM,WAAN,GAAoB;AACpB,iBAAM,cAAN,GAAuB;AACvB,iBAAM,cAAN,GAAuB;AACvB,iBAAM,cAAN,GAAuB;AACvB,iBAAM,aAAN,GAAsB;AAEtB,UAAI,2CAAY,IAAG,oBAAnB;AAEE,sBAAS,GAAT;AACA,uBAAU,GAAV;OAHF;AA7BwC;AA0CR;AAEvB,eAAT,KAAS;AACF,eAAP,KAAO;AACP;AAJgC;AAoYI;AAEpC,uBAAa;AACb,kBAA0B,IAAlB,cAAkB;AAC1B,eAAI,iBAAiB,CAAC,OAAQ,6CAAT;AACrB,eAAI,iBAAiB,CAAC,QAAS,0CAAV;AACrB,eAAI,KAAK,CAAC,MAAO,IAAR;AACT,wBAAa,CAAC,SAAD;AACb,eAAI;AARgC;AAWA;AAEpC;AACA;AACA;AAAE;AACF;AAAK;AAAM;AAAM;AACjB;AACA;AAGA,UAAG,SAAU,KAAG,EAAhB;AACE,aAAe,KAAiB;AAEhC,iBAAe;AAEjB,UAAY,EAAD,QAAX;AAEE,aAAM,uBAAW,QAAC;AAIlB,iBAAS,QAAe,OAAV,EAAE,OAAQ,GAAE,CAAF,kBAAxB;AAAI;AAGF,eAAM,EAAY;AAElB,cAAK;AACL,iBAAQ;AAGd;AACA;AACA;AACA;AACA;AAGM,2BAAM,CAAC;;;;eAAM,EAAG,CAAV;AACN,YAAE,iBAAF,GAAsB;AACtB,YAAE,aAAC,CAAa,GAAb;AACH,YAAE,iBAAC,CAAiB,IAAjB;AAEH,gBAAO,WAAK;AACZ,aAAG,YAAH,GAAmB;AAEnB,cAAG,aAAO,cAAc,KAAE,EAA1B;AAEE,eAAG,QAAC,CAAQ,EAAE,aAAC,EAAX;;AAIJ,mBAAQ,aAAO;AAEf,kCAAiB,CAAC,EAAG,EAAE,aAAC,GAAW;;;;gBAAlB;AAEjB,oBAAS;AACT,gBAAG,cAAG,CAAC,MAAO,IAAR,CAAc,GAAE,CAAtB;AAEE,qBAAQ,0BAAa,CAAC,KAAM,MAAO,qBAAQ,CAAC,GAAG,SAAC,EAAL,EAAa,cAAC,4CAAD,CAAnC;aAFvB;AAKA,qBAAS,SAAc,QAAT,EAAE,SAAC,EAAM,GAAE,CAAF,qBAAvB;AAAI;AAEF,sBAAS,IAAmB,GAAZ,EAAE,QAAM,CAAC,CAAD,CAAV,GAAgB,IAAF;AAE5B,kBAAG,cAAG,CAAC,MAAO,IAAR,CAAc,GAAE,CAAtB;AAEE,4BAAa,EAAE,SAAO,CAAC,EAAE,QAAM,CAAC,CAAD,CAAT;AACtB,wCAAmB,CAAC,GAAG,SAAC,GAAO,EAAE,QAAM,CAAC,CAAD,EAAK;;;;oBAAzB;AACnB,uBAAQ,0BAAa,CAAC,KAAM,MAAO,UAAW,cAAC,4CAAD,CAAzB;eAJvB;;AAQF,eAAG,QAAC,CAAQ,IAAR;AAEJ,8BAAa,CAAC,GAAG,SAAC,EAAL;;;AAIjB,UAAG,eAAH,EAAG;OAhEL;AAfoC;AAvBD;AAEnC,wBAAc;AAEd,kBAA0B,IAAlB,cAAkB;AAC1B,eAAI,iBAAiB,CAAC,OAAQ,4CAAT;AACrB,eAAI,iBAAiB,CAAC,QAAS,0CAAV;AACrB,eAAI,KAAK,CAAC,MAAO,IAAR;AACT,wBAAa,CAAC,SAAD;AACb,eAAI;AAT+B;AAnBK;AAAjB;AAEvB,UAAG,CAAY,CAAC,iBAAD,SAAf;AAEE,4BAA+B,QAAQ,cAAc,CAAC,KAAD;AACrD,yBAAY,cAAC,QAAY,MAAb;AACZ,+BAAa,YAAY,CAAC,iBAAD;AACzB,iBAAU;OAGV,eAAU;AAVW;AAAiB;AAhBR;AAAT;AAEvB;AAEA,eAAU;AAEV,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,YAAG,WAAK,WAAC,CAAD,CAAG,KAAK,KAAE,IAAlB;AAEE,mBAAU,WAAK,WAAC,CAAD;AACf;SAHF;;AARqB;AAAS;AAv+SjB;;;AAoDK,+BAAO,UlEpkBjB,+BkEokBiB,CAAP;AASJ,6B9DtgCV,uC8DsgCU;AACW;AACT,+B9DhgCV,yC8DggCU,yB9DjZkD,uBAAC,0CAAQ,wCAAT,C8DiZlD;AACE,iC9D5/BV,2C8D4/BU;AACO,wC9D9/BV,kD8D8/BU;AACL,mC9D7/BV,6C8D6/BU;AACI,uC9D7/BV,iD8D6/BU;AACX,4B7D1qBV,sC6D0qBU;AACE;AACO;AACF,mC9D7gCZ,2C8D6gCY;AAEF;AACJ,6BAtKI,mCAsKJ;AACE,+B9D37BV,yC8D27BU;AACA,+BArII,qCAqIJ;AACG;AACD,iClDn7BV,wCkDm7BU;AACF;AACF;AACO;AACF,kC9DxhCX,2C8DwhCW;AACH,+B9Dv9BN,6C8Du9BM;AACG,kC9Dx9BT,6C8Dw9BS;AACC,mC9Dx9BX,4C8Dw9BW;AACF,iC9Dz9BT,4C8Dy9BS;AACE,mC9Dt9BP,gD8Ds9BO;AACC,oC9D59BX,6C8D49BW;AACA,oC9D79BX,6C8D69BW;AACC,qCA9LA,uCA8LA;AACM,2CA3LI,iDA2LJ;AACF,yCA9LI,+CA8LJ;AACN,mCAjME,uCAiMF;AACG,sCAlMD,uCAkMC;AACI,0C9Dn+BjB,6C8Dm+BiB;AACE,4C9Dp+BnB,6C8Do+BmB;AACP,qCA1mCP,gCA0mCO;AAjGT;AAoGG;;;;AAcH;AAAR;AAEP,UAAM,KAAN,GAAe;AACf,UAAM,IAAN,GAAc;AACd,UAAM,MAAN,GAAgB;AAChB,UAAM,OAAN,GAAiB;AALV;AAAQ;AAlrCjB,mBAwqCc;AAME,2BAAG;AACF,4BAAG;AACP,wBAAG;AARF;AAxqCd,GAwqCc,kEAxqCd;ACAA,sCAMS,wGANT;;;AAa6B;;AAES;;;AAElC;AACA;AAHkC;;;;;;AASJ,uFAAmB,U5EuF5C,2B4EvF4C,EAAe,QAT9B,kDAS8B,CAAlC;AACE,yFAAmB,U5EsF9C,2B4EtF8C,EAAgB,SzEoV7D,wByEpV6D,EAAkB,qBAArD;AAGF;;;AAE9B;AAF8B;;AAOJ,mFAAmB,U5E4ExC,2B4E5EwC,EAAe,QAP9B,8CAO8B,CAAlC;AAEX;;;AAEf;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AApBe;;;;;;;;;;AAmakB;AAGrC;AACA;AACA;AALqC;AAnNH;AAAP;AAEzB;AAEA,eAAU;AAEV,UAAG,CAAY,CAAC,uBAAD,SAAf,EACE,aADF;AAGA,cAA6B,uBAAa,WAAW,MAAC,CAAD;AACrD,UAAY,KAAD,QAAX,EACE,SAAU,KAAK,MADjB;AAVyB;AAAO;AAiMC;AAEjC,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACT;OAHF;AAFiC;AA5DC;AAElC,iBAAM,OAAO,CAAC,KAAD;AAFqB;AA/IG;AAAZ;AAEzB,eAAU;AAEV,UAAG,CAAY,CAAC,uBAAD,SAAf,EACE,aADF;AAGA,eAAU,WAAK,QAAQ,CAAC,cAAD;AAPE;AAAY;AA2HC;AAEtC,UAAe,CAAX,eAAW,KAAG,KAAH,CAAU,IAAW,CAAN,KAAM,GAAE,WAAK,SAAC,EAAR,CAApC;AAEE,0BAAc;AACd,YAAG,eAAW,IAAG,CAAjB;AACE,uBAAQ,WAAK,KAAC,eAAD,CAAb;AAEA,2BAAQ,EAAR;AACF;OAPF;AAUA,UAAG,KAAM,KAAE,CAAC,GAAZ;AAEE,6BAAgB,CAAC,KAAI,CAAC,GAAN;AAChB,yBAAY,CAAC,CAAC,GAAF;OAHd;AAZsC;AA8DE;AAExC,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;AAChB;OAHF;AAFwC;AAtGQ;AAEhD,UAAG,yBAAqB,KAAG,KAA3B;AAEE,oCAAwB;AACxB;OAHF;AAFgD;AA+BN;AAE1C,UAAG,mBAAe,KAAG,KAArB;AAEE,8BAAkB;AAClB;OAHF;AAF0C;AA8DC;AAE3C,UAAG,oBAAgB,KAAG,KAAtB;AAEE,+BAAmB;AACnB;OAHF;AAF2C;AAoCN;AAErC,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAFqC;AAlBA;AAErC,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAFqC;AAtGA;AAErC,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAFqC;AAjGS;AAArB;AAEzB,eAA8B,uBAAa,WAAW,MAAC,CAAD;AAF7B;AAAqB;AAyJE;AAEhD,UAAG,yBAAqB,KAAG,KAA3B;AAEE,oCAAwB;AACxB;OAHF;AAFgD;AASJ;AAE5C,UAAqB,CAAjB,qBAAiB,KAAG,KAAH,CAAU,IAAW,CAAN,KAAM,GAAE,CAAF,CAA1C;AAEE,gCAAoB;AACpB;OAHF;AAF4C;AASL;AAGvC,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf;OAHF;AAHuC;AAjND;AAAb;AAEzB,eAAU,QAAQ,cAAc,CAAC,KAAD;AAFP;AAAa;AAkRC;AAEvC;AAAM;AACN;AAAY;AAAW;AACvB;AACA;AACA;AACA;AAAQ;AACR;AAGA;AAEA,UAAG,iBAAH,EACE,MADF;AAGA,UAAG,CAAY,CAAC,uBAAD,SAAf,EACE,MADF;AAGA,aAAQ,YAAU,GAAE,QAAF;AAElB,UAAG,oBAAe,KAAE,EAApB;AACE,qBAAc,YAAU,GAAE,qBAAF;AAExB,yBAAc;AAEhB,UAAG,mBAAc,KAAE,EAAnB;AACE,oBAAa,YAAU,GAAE,oBAAF;AAEvB,wBAAa;AAEf,UAAG,yBAAoB,KAAE,EAAzB;AACE,sBAAe,YAAU,GAAE,cAAF;AAEzB,0BAAe;AAEjB,6BAAa,MAAM,YAAY,CAAC,WAAY,SAAb;AAC/B,6BAAa,aAAa,CAAC,WAAY,IAAb;AAC1B,6BAAa,gBAAgB,CAAC,OAAD;AAC7B,aAAM,uBAAa,gBAAnB,EACE,uBAAa,YAAY,CAAC,uBAAa,WAAd;AAE3B,cAAwB,QAAQ,cAAc,CAAC,OAAD;AAE9C,2BAAqC;AAErC,UAAG,sBAAiB,KAAG,EAAvB,EACE,KAAK,aAAa,CAAC,QAAS,sBAAV,CADpB;AAEA,WAAK,aAAa,CAAC,OAAQ,MAAT;AAClB,WAAK,aAAa,CAAC,KAAM,IAAP;AAClB,WAAK,aAAa,CAAC,eAAe,KAAhB;AAClB,WAAK,MAAM,YAAY,CAAC,QAAS,MAAV;AACvB,WAAK,MAAM,YAAY,CAAC,SAAU,MAAX;AAEvB,UAAG,aAAH;AACE,aAAK,gBAAgB,CAAC,UAAD;AAErB,YAAA,KAAK,aAAa,CAAC,WAAY,MAAb;AAEpB,UAAG,cAAH;AACE,aAAK,aAAa,CAAC,WAAY,MAAb;AAElB,YAAA,KAAK,gBAAgB,CAAC,UAAD;AAEvB,UAAG,aAAH;AACE,mBAAY,qBAAQ,CAAC,cAAD;AAEpB,uBAAY;AACd,WAAK,aAAa,CAAC,WAAY,QAAb;AAElB,WAAK,aAAa,CAAC,cAAe,cAAhB;AAElB,WAAK,MAAM,YAAY,CAAC,mBAAoB,kCAAW,CAAC,WAAD,CAAhC;AAEvB,UAAG,sBAAiB,KAAE,EAAtB;AAEE,YAAG,aAAQ,IAAiB,CAAZ,iBAAY,KAAE,8CAAF,CAA5B,EACE,KAAK,MAAM,YAAY,CAAC,QAAS,kCAAW,CAAC,UAAI,OAAL,CAArB,CADzB;OAFF;AAMA,+CAAkB,CAAC,MAAO,WAAM,CAA6B,CAAN,CAAjB,sBAAiB,KAAE,EAAF,CAAM,IAAiB,CAAZ,iBAAY,KAAE,8CAAF,CAAjB,CAA3C;AAEb;AACH,UADG,IACH;AAAc,aAAK,MAAM,YAAY,CAAC,iBAAkB,WAAnB;AACrC,gBAFG,IAEH;AAAc,aAAK,MAAM,YAAY,CAAC,iBAAkB,WAAnB;AACrC,gBAHG,IAGH;AAAc,aAAK,MAAM,YAAY,CAAC,iBAAkB,YAAnB;AACrC,gBAJG,IAIH,qDAAW,KAAK,MAAM,YAAY,CAAC,iBAAkB,SAAnB,CAAlC;AAKF,WAAK,MAAM,YAAY,CAAC,aAAc,YAAf;AACvB,WAAK,aAAa,CAAC,QAAS,cAAV;AAClB,6BAAa,YAAY,CAAC,KAAD;AAEzB,cAAwB,QAAQ,cAAc,CAAC,OAAD;AAC9C,WAAK,aAAa,CAAC,OAAQ,QAAT;AAClB,WAAK,aAAa,CAAC,KAAM,IAAK,GAAE,OAAd;AAClB,6BAAa,YAAY,CAAC,KAAD;AAEzB;AAEA,UAAG,iBAAY,GAAE,CAAjB;AAEE,iBACE,gBACoB,GADD,qBAAQ,CAAC,iBAAD,CAAV,GAA0B,KAAF,GAAU,IAAF,GACjD,mBADuD,GACjC,IAAF;OAJxB;AAOA,eACE,GAUmB,GAVb,YAAF,GAAc,qBAAF,GAA0B,IAAF,GACxC,gBAD8C,GAC3B,IAAF,GACjB,GADuB,GACjB,IAAF,GAEJ,GAFU,GAEJ,UAAF,GAAe,IAAF,GAAS,IAAF,GACxB,uBAD8B,GACJ,IAAF,GACxB,gBAD8B,GACX,IAAF,GACjB,cADuB,GACN,IAAF,GACf,oBADqB,GACE,IAAF,GAErB,YAF2B,GAEZ,IAAF,GAEb,MAFmB;AAIrB,UAAG,oBAAe,KAAE,EAApB;AAEE,iBAAU,MAC0B,GAAlC,2BADe,GACe,IAAF,GAC5B,8BADkC;OAHtC;AAOA,eAAU,MACJ,GAAJ,GADe,GACT,IAAF;AAEN,UAAG,mBAAc,KAAE,EAAnB;AAEE,iBAAU,MASJ,GARJ,GADe,GACT,SAAF,GAAc,IAAF,GAAS,IAAF,GACvB,kBAD6B,GACR,IAAF,GACnB,oBADyB,GACF,IAAF,GACrB,qCAD2B,GACa,IAAF,GACtC,GAD4C,GACtC,IAAF,GAEJ,GAFU,GAEJ,SAAF,GAAc,UAAF,GAAe,IAAF,GAC7B,yCADmC,GACS,IAAF,GAC1C,GADgD,GAC1C,IAAF;OAXR;AAcA,UAAG,yBAAoB,KAAE,EAAzB;AAEE,iBAAU,MAGe,GAFvB,GADe,GACT,WAAF,GAAgB,IAAF,GAAS,IAAF,GACzB,yCAD+B,GACa,IAAF,GAC1C,gBADgD,GAC7B,IAAF,GACjB,GADuB;OAL3B;AASA,2BAAgB,CAAC,MAAD;AAEhB,oBAAS,CACP,yDAqHc,GArH8C,IAAF,GAC1D,qBADgE,GACxC,IAAF,GACtB,+CAD4B,GACsB,IAAF,GAChD,uEADsD,GACoB,IAAF,GACxE,iBAD8E,GAC1D,qBAAQ,CAAK,gBAAL,CAAV,GAA8B,GAAF,GAAQ,IAAF,GACpD,oBAD0D,GACnC,qBAAQ,CAAC,qBAAD,CAAV,GAA8B,GAAF,GAAQ,IAAF,GACvD,aAD6D,GAC7C,sBAAS,CAAC,0BxEvRqB,KwEuRtB,CAAX,GAAmC,GAAF,GAAQ,IAAF,GAErD,QAF2D,GAEhD,IAAF,GAAS,kBAAF,GAAuB,IAAF,GAErC,kCAF2C,GAEN,IAAF,GACnC,oDADyC,GACc,IAAF,GAErD,0BAF2D,GAE9B,IAAF,GAC3B,0CADiC,GACY,IAAF,GAC3C,4DADiD,GACc,IAAF,GAC7D,iCADmE,GAC/B,UAAF,GAAe,KAAF,GAAU,IAAF,GACvD,sDAD6D,GACJ,IAAF,GACvD,gCAD6D,GAC1B,IAAF,GACjC,WADuC,GACzB,IAAF,GACZ,uCADkB,GACwB,IAAF,GACxC,sCAD8C,GACP,IAAD,GACtC,0CAD0C,GACG,IAAF,GAC3C,sBADiD,GACxB,IAAF,GACvB,yBAD6B,GACD,IAAF,GAC1B,oBADgC,GACT,IAAF,GACrB,oBAD2B,GACJ,IAAF,GACrB,gCAD2B,GACQ,IAAF,GACjC,gCADuC,GACJ,IAAF,GACjC,WADuC,GACzB,IAAF,GAEZ,wBAFkB,GAES,IAAF,GACzB,8DAD+B,GACkC,IAAF,GAC/D,yBADqE,GACzC,IAAF,GAC1B,wEADgC,GAC2C,IAAF,GACzE,2CAD+E,GACjC,IAAF,GAC5C,WADkD,GACpC,IAAF,GACZ,0DADkB,GAC2C,IAAF,GAC3D,yBADiE,GACrC,IAAF,GAC1B,+CADgC,GACkB,IAAF,GAChD,oFADsD,GACiC,IAAF,GACrF,0DAD2F,GAC9B,IAAF,GAC3D,WADiE,GACnD,IAAF,GAEZ,sBAFkB,GAEO,IAAF,GACvB,8CAD6B,GACoB,IAAF,GAC/C,oDADqD,GACE,IAAF,GACrD,qCAD2D,GACnB,SAAF,GAAc,KAAF,GAAU,IAAF,GAC1D,4BADgE,GACjC,IAAF,GAC7B,+CADmC,GAEnC,qDAD+C,GACS,IAAF,GACtD,2FAD4D,GACkC,IAAF,GAC5F,yCADkG,GACtD,IAAF,GAC1C,4BADgD,GACjB,IAAF,GAC7B,sCADmC,GACM,IAAF,GACvC,+CAD6C,GAE7C,gBAD+C,GAC5B,IAAF,GAAS,kBAAF,GAAuB,IAAF,GAC7C,eADmD,GACjC,IAAF,GAChB,6BADsB,GACU,IAAF,GAC9B,WADoC,GACtB,IAAF,GACZ,SADkB,GACN,IAAF,GACV,sCADgB,GACyB,IAAF,GAAS,kBAAF,GAC9C,OADkE,GACxD,IAAF,GAER,8CAFc,GAEmC,IAAF,GAC/C,SADqD,GACzC,IAAF,GAAS,gCAAF,GAAqC,IAAF,GACpD,OAD0D,GAChD,IAAF,GAER,iDAFc,GAEsC,IAAF,GAClD,2EADwD,GACsB,IAAF,GAC5E,cADkF,GACjE,IAAF,GACf,yDADqB,GACuC,IAAF,GAC1D,gBADgE,GAC7C,IAAF,GACjB,gCADuB,GACY,IAAF,GACjC,WADuC,GACzB,IAAF,GAAS,gCAAF,GAAqC,IAAF,GACtD,uCAD4D,GAClB,IAAF,GACxC,2BAD8C,GAChB,IAAF,GAC5B,YADkC,GACnB,IAAF,GAAS,eAAF,GAAoB,IAAF,GACtC,oHAD4C,GAE5C,kHADqH,GACA,IAAF,GACnH,wCADyH,GAC9E,IAAF,GACzC,2BAD+C,GACjB,IAAF,GAC5B,YADkC,GACnB,IAAF,GAAS,eAAF,GAAoB,IAAF,GACtC,gEAD4C,GAE5C,4DADiE,GACF,IAAF,GAC7D,uCADmE,GACzB,IAAF,GACxC,+BAD8C,GACZ,IAAF,GAChC,oCADsC,GACC,IAAF,GACrC,6CAD2C,GACK,IAAF,GAC9C,qBADoD,GAC9B,IAAD,GAAO,gCAAD,GAAoC,IAAF,GAC7D,WADmE,GACrD,IAAF,GACZ,SADkB,GACN,IAAF,GACV,OADgB,GACN,IAAF,GACR,aADc,GACE,IAAF,GAAS,gBAAF,GAAqB,IAAF,GACxC,2BAD8C,GAChB,IAAF,GAC5B,MADkC,GACzB,IAAF,GAAS,kBAAF,GAAuB,IAAF,GACnC,gEADyC,GAC0B,IAAF,GACjE,6CADuE,GACvB,IAAF,GAC9C,qCADoD,GACZ,WAAF,GAAgB,KAAF,GAAU,IAAF,GAC5D,KADkE,GAC1D,IAAF,GACN,aADY,GACI,IAAF,GAAS,mBAAF,GAAwB,IAAF,GAC3C,0CADiD,GACJ,IAAF,GAC3C,+BADiD,GACf,WAAF,GAAgB,KAAF,GAAU,IAAF,GACtD,OAD4D,GAClD,IAAF,GACR,KADc,GACN,IAAF,GACN,aADY,GACI,IAAF,GAAS,gCAAF,GAAqC,IAAF,GACxD,+CAD8D,GACZ,UAAF,GAAe,KAAF,GAAU,IAAF,GACrE,mCAD2E,GACrC,IAAF,GACpC,2CAD0C,GACI,IAAF,GAC5C,0CADkD,GACL,IAAF,GAC3C,uCADiD,GACP,IAAF,GACxC,4CAD8C,GACC,IAAF,GAC7C,SADmD,GACvC,IAAF,GACV,OADgB,GACN,IAAF,GACR,KADc,GACN,IAAF,GACN,qDADY,GAC4C,IAAF,GACtD,SAD4D,GAChD,IAAF,GAAS,0BAAF,GAA+B,IAAF,GAC9C,OADoD,GAC1C,IAAF,GACR,GAvHO;AA0HT,iBAAqB,IAAT,KAAS;AACrB,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,gBAAQ,KAAK,CAAC,WAAK,KAAC,CAAD,CAAN;;AAGf,WAAM;AAER;AACA;AACA;AACA;AACA;AArSyC;AA/ME;AAEzC,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,MAAO,MAAd,CADhB;AAFyC;AApGL;AAEpC;AAEA,UAAY,4BAAD,QAAX;AAEE,aAAM;AAEN,UAAE,iBAAiB,CAAC,QAAS,yCAAV;AACnB,UAAE,iBAAiB,CAAC,QAAS,wCAAV;AACnB,UAAE,iBAAiB,CAAC,WAAY,2CAAb;AACnB,UAAE,iBAAiB,CAAC,YAAa,4CAAd;AACnB,UAAE,iBAAiB,CAAC,UAAW,0CAAZ;AACnB,UAAE,iBAAiB,CAAC,YAAa,4CAAd;AACnB,UAAE,iBAAiB,CAAC,aAAc,6CAAf;AACnB,UAAE,iBAAiB,CAAC,aAAc,6CAAf;AACnB,UAAE,iBAAiB,CAAC,UAAW,0CAAZ;AACnB,UAAE,iBAAiB,CAAC,QAAS,wCAAV;AACnB,UAAE,iBAAiB,CAAC,WAAY,2CAAb;AACnB,UAAE,iBAAiB,CAAC,QAAS,wCAAV;AACnB,UAAE,iBAAiB,CAAC,OAAQ,2CAAT;OAhBrB;AAJoC;AAgHK;AAAhB;AAEzB;AAEA,UAAY,kBAAD,QAAX;AAEE,eAAQ,yCAAoC,QAAC;AAC7C,YAAI,aAAJ,GAAoB;AACpB,YAAI,WAAJ,GAAkB;AAClB,0BAAY,CAAC,KAAM,IAAP;AACZ,YAAK,eAAL,IAAK;OANP;AAQA,eAAU;AAZe;AAAgB;AAeJ;AAAZ;AAEzB;AAEA,UAAY,cAAD,QAAX;AAEE,eAAQ,qCAAgC,QAAC;AACzC,YAAI,WAAJ,GAAkB;AAClB,sBAAQ,CAAC,KAAM,IAAP;AACR,YAAK,eAAL,IAAK;OALP;AAOA,UAAG,gBAAH,EACE,kBAAa,SADf;AAGA,eAAU;AAde;AAAY;AArBE;AAAd;AAEzB;AACA,eAAU;AAHe;AAAc;AAsCC;AAExC,UAAI,QAAS,KAAE,+CAAf;AAEE,iCAAoB,cAApB;AACA,4BAAe,yCAAf;AACA,4BAAe,wCAAf;OAJF;AAFwC;AA1GE;AAE1C,oBAAU,uBAAW,QAAC;AACtB,mBAAS;AACT,wBAAc,CAAC;AACf,0BAAgB;AAChB,6BAAmB;AACnB,4BAAkB;AAClB,kCAAwB;AACxB,yBAAe;AACf,8BAAoB;AACpB,kCAAwB;AACxB,yBAAe;AAEf;AAEA,sBAAW,IAAX;AACA,uBAAY,KAAZ;AACA,0BAAe,8CAAf;AACA,uBAAY,8CAAZ;AACA,oBAAS,GAAT;AACA,qBAAU,EAAV;AAEA,UAAI,CAAE,GAAE,CAAR,EACE,oBAAe,CAAC,KAAI,EAAL,CADjB;AAvB0C;AA2BR;AAE3B,eAAP,KAAO;AACP;AAHkC;AAgHA;AAElC;AAEA,cAA6B,uBAAa,WAAW,MAAC,CAAD;AACrD,UAAY,KAAD,QAAX;AAEE,aAAK,MAAM;OAGX;AAVgC;AAzJF;AAEhC,UAAY,uBAAD,QAAX,EACE,aAAS,4BAAkB,MAD7B;AAGA,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AALgC;AAkIC;;AApRhB;;;AAuDD,6B/D2BV,uC+D3BU;AACW;AACT,+B/DiCV,yC+DjCU,yB/DgpBkD,uBAAC,0CAAQ,wCAAT,C+DhpBlD;AACG;AACC,mC/DyBV,6C+DzBU;AACN,6B9DwRV,uC8DxRU;AACG,gC/CtFN,8C+CsFM;AACQ,wC/DgCV,kD+DhCU;AACP,iC/DgCV,2C+DhCU;AACE,mC/DgCV,6C+DhCU;AACI,uC/DgCV,iD+DhCU;AACR;AACH,4B9DkXV,sC8DlXU;AACE;AACO;AACF,mC/DeZ,2C+DfY;AACP;AACA;AACG,+B/DkGV,yC+DlGU;AACC;AACC;AACD;AACA;AACD;AACC;AACD;AACF;AACO;AACF,kC/DEX,2C+DFW;AACF,gC/DmEP,6C+DnEO;AACD,+B/DkEN,6C+DlEM;AACG,kC/DiET,6C+DjES;AACD,iC/DsEX,0C+DtEW;AACC,kC/DsEP,+C+DtEO;AACH,+B/DoET,0C+DpES;AACI,mC/D8DX,4C+D9DW;AACF,iC/D6DT,4C+D7DS;AACE,mC/DgEP,gD+DhEO;AACC,oC/D0DX,6C+D1DW;AACA,oC/DyDX,6C+DzDW;AACL,+B/DwDN,6C+DxDM;AACD,8B/DuDL,6C+DvDK;AAED,6BnEuOL,iCmEvOK;AACI;AACL;AACO;AACG;AACD;AACM;AACT,kCAjIM,0CAiIN;AACS;AACJ;AAGH,oCA3HS,+CA2HT;AACJ,gCAjHS,2CAiHT;AACM,sCA5HS,iDA4HT;AAhHR;AAmHG;;;;AAxJtB;ACAA,2BAIS,4EAJT;;;AAsBW;AA6DC;AAoBE;AAzFF;;AAEY,6EAAmB,U7E+FlC,2B6E/FkC,EAAgB,SAMhD,uBANgD,EAA2B,2BAA9D;AAEG,gFAAmB,U7E6FrC,2B6E7FqC,EAAgB,SAInD,uBAJmD,EAAqB,YhEiJ7D,oDgEjJ6D,CAAxD;AAEX,qEAAmB,U7E2F1B,2B6E3F0B,EAAoB,aAE5C,uBAF4C,CAAvC;AAEL;;;AAEP;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAnBO;;;;;;;;AAsaiB;AAE1B,iBAAM,OAAO,CAAC,KAAD;AAFa;AAKD;AAEzB,mBAAS;AACT,kBAAO,CAAC,KAAD;AAHkB;AAMA;AAEzB,mBAAS;AACT,kBAAO,CAAC,KAAD;AAHkB;AAnCE;AAE3B,qBAAW;AACX,kBAAO,CAAC,KAAD;AAHoB;AAYC;AAE5B,sBAAY;AACZ,kBAAO,CAAC,KAAD;AAHqB;AANI;AAEhC,0BAAgB;AAChB,kBAAO,CAAC,KAAD;AAHyB;AAYP;AAEzB,mBAAS;AACT,kBAAO,CAAC,KAAD;AAHkB;AAuCQ;AAEjC,kBAAO,CAAC,KAAD;AAF0B;AAvKP;AAE1B;AAEA,oBAAU,eAAU,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,iBAAM,UAAN,GAAmB;AACnB,iBAAM,UAAN,GAAmB;AACnB;AACA,qBAAW;AACX,sBAAY;AACZ,4BAAkB;AAClB,aAAoB,OAAX,WAAc,eAAH,CAAc,eAAC;AAEnC,UAAY,IAAD,QAAX;AAEE,8BAAkB,IAAI;AACtB,8BAAkB,IAAI;OAHxB;AAboD;AAA1B;AAoBA;AAEnB,eAAP,KAAO;AACG;AAHgB;AApDF;AAExB,UAAc,cAAH,eAAP,MAAO,CAAX;AAEE,8BAA0B,OAAP,OAAU,cAAH,CAAa;AACvC,qBAAiB,OAAP,OAAU,cAAH,CAAa;AAC9B,qBAAiB,OAAP,OAAU,cAAH,CAAa;AAC9B,8BAA0B,OAAP,OAAU,cAAH,CAAa;AACvC,2BAAwB,OAAP,OAAU,cAAH,CAAa;AACrC,mBAAM,OAAO,CAAS,OAAP,OAAU,cAAH,CAAa,OAAtB;AACb,oBAAgB,OAAP,OAAU,cAAH,CAAa;AAC7B,wBAAoB,OAAP,OAAU,cAAH,CAAa;AACjC,uBAAmB,OAAP,OAAU,cAAH,CAAa;AAChC,qBAAiB,OAAP,OAAU,cAAH,CAAa;OAXhC;AAFwB;AA6FD;;AAAN;AAEjB;AAEkB;AAAT;AAEP,iBAAU;AAEV,YAAW,CAAC,KAAK,YAAN,SAAmB,IAAY,CAAC,KAAK,YAAW,QAAjB,SAA1C;AAEE,mBAAoC,cAAH,eAAvB,KAAK,YAAW,QAAO;SAFnC;AAJO;AAAS;AAWlB,eAAU,qBAAQ,CAAC,eAAD;AAElB,YAAO;AAEP,aAAM,SAAS,CAAC,GAAD,CAAf;AAEE,cAA4B,OAArB,GAAG,YAAW,SAAU,cAAH;AAC5B,iBAAU,MAAa,GAAJ,GAAF,GAAQ,qBAAQ,CAAC,eAAD,CAAV;;AAtBR;AAAM;AA0FA;AAEvB,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,sBAAkB,QAAQ,cAAc,CAAC,MAAD,CAD1C;AAGA,6BAAmB;AAEnB,UAAY,iBAAD,QAAX,EACE,OAAM,iBAAY,kBAAmB,GAAE,CAAvC;AAEE,2BAAc,YAAY,CAAC,iBAAY,kBAAb;OAH9B;AAMA,iBAAK;AAbkB;AAhEE;AAEzB;AAEA,UAAW,CAAC,iBAAD,SAAe,IAAY,CAAC,mBAAD,SAAtC;AAEE,YAAK;AAEL,eAAM,mBAAc,kBAAmB,GAAE,CAAzC;AAEE,cAAG,CAAE,IAAG,gBAAR;AACE,6BAAY,YAAY,CAAC,mBAAc,kBAAf;AAExB,gBAAA,mBAAc,YAAY,CAAC,mBAAc,kBAAf;;OAThC;AAaA,UAAG,CAAI,oBAAP,EACE,aADF;AAGA,iBAAK;AApBoB;AApIA;AAEzB,oBAAO,CAAC,KAAM,QAAS,EAAhB;AAFkB;AAKA;AAEzB,mBAAS;AACT,yBAAe;AACf,4BAAkB;AAClB,kBAAO,CAAC,KAAD;AALkB;AAgGF;AAAN;AAEjB,eAAW,UAAK,KAAG,EAAH;AAFC;AAAM;AAfK;AAAX;AAEjB;AAEA,eAAU;AACV,UAAY,iBAAD,QAAX;AAEE,aAAM,iBAAY;AAClB,YAAW,CAAC,EAAD,SAAK,IAAgB,CAAX,EAAE,QAAS,KAAE,KAAF,CAAhC;AAEE,mBAAU,CAAI,EAAE,UAAU,SAAS,CAAC,MAAD;SAFrC;OAHF;AALiB;AAAW;AAfJ;AAExB;AAEA,UAAY,iBAAD,QAAX;AAEE,aAAM,iBAAY;AAClB,YAAW,CAAC,EAAD,SAAK,IAAgB,CAAX,EAAE,QAAS,KAAE,KAAF,CAAhC;AAEE,cAAG,CAAI,EAAE,UAAU,SAAS,CAAC,MAAD,CAA5B,EACE,EAAE,UAAU,IAAI,CAAC,MAAD,CADlB;SAFF;OAHF;AAJwB;AAzCE;AAE1B;AAEA,UAAY,iBAAD,QAAX;AAEE,aAAM,iBAAY;AAClB,YAAW,CAAC,EAAD,SAAK,IAAgB,CAAX,EAAE,QAAS,KAAE,KAAF,CAAhC;AAEE,cAAG,EAAE,UAAU,SAAS,CAAC,MAAD,CAAxB,EACE,EAAE,UAAU,OAAO,CAAC,MAAD,CADrB;SAFF;OAHF;AAJ0B;AAjRjB;AA+BW,+BAAW,cpEqapB,gCoEraoB,CAAX;AAiBH;AACK;AACJ;AACH;AACS,qChEyDP,kDgEzDO;AACR,6BAQN,yBARM;AACD;AACS,qChEsDP,kDgEtDO;AACH;AACP;AACC;AA1DN;AA6DC;;;AAER;AAFQ;;;;;AA0He;AAAP;AAElB,eAA8B,YAAK,CAAC,KAAD;AAFjB;AAAO;AAuCC;AAEhB,kBAAK,CAAC,MAAU,KAAX;AAFW;AAlCM;;AAAd;AAEM;AAAf;AAEP,iBAAU;AAEV,YAAa,iBAAH,eAAP,MAAO,CAAV;AACE,mBAAiB,OAAP,OAAU,iBAAH;;AAGjB,cAAW,CAAC,MAAD,SAAS,IAAe,cAAH,eAAP,MAAO,CAAhC;AAEE,qBAAU,eAAe,CAAS,OAAP,OAAU,cAAH,CAAa,YAAW,QAAjC;WAF3B;;AARK;AAAe;AAgBxB,eAAU,eAAe,CAAC,KAAI,QAAL;AAlBP;AAAc;AA+CP;AAEzB;AACA;AAHyB;AA1DG;AAE5B,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAF4B;AAkDJ;AAExB;AAEA,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AACF,sBAAK,CAAC,CAAD,CAAG;;AALc;AAbE;AAE1B;AAEA,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AACF,sBAAK,CAAC,CAAD,CAAG;;AALgB;AA1CC;AAEX,sDAAC,OAAQ,cAAT;AAFiC;AAAtB;AALN;AAAH;AAElB,eAA8B;AAFZ;AAAG;AA0CG;AAAN;AAElB,eAAoC,yCAAC,KAAD;AAFlB;AAAM;AApJd;AAYU,+BAAO,UpEuFhB,gCoEvFgB,CAAP;AAZV;AAoBE;;;AAEV;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAZU;;;;;;;;;AAg2BiB;AAE7B,oBAAU;AAFmB;AAKI;AAEjC,wBAAc;AAEd,UAAG,iBAAH,EACE,MADF;AAGK;AACH,UADG,IACH;AAEI,qCAAwB;AACxB,yCAA4B;AAC5B,qCAAwB,YAAxB;OAEJ,UAPG,IAOH;AAEI,qCAAwB;AACxB,yCAA4B;AAC5B,qCAAwB,cAAxB;OAEJ,UAbG,IAaH;AAEI,qCAAwB;AACxB,yCAA4B;AAC5B,qCAAwB,YAAxB;OAEJ,UAnBG,IAmBH;AAEI,qCAAwB;AACxB,yCAA4B;AAC5B,qCAAwB,YAAxB;OAEJ,UAzBG,IAyBH;AAEI,qCAAwB;AACxB,yCAA4B;AAC5B,qCAAwB,kCAAxB;OAEJ,UA/BG,IA+BH;AAEI,qCAAwB;AACxB,yCAA4B;AAC5B,qCAAwB,2BAAxB;OAEJ,UArCG,IAqCH;AAEI,qCAAwB;AACxB,yCAA4B;AAC5B,qCAAwB,eAAxB;OAJJ;AA5C+B;AAlDW;AAE5C,mCAAyB;AACzB;AAH4C;AAxUZ;AAAZ;AAEpB;AAEA,eAAU,CAAC;AAEX,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,YAAG,WAAK,WAAC,CAAD,CAAG,QAAX;AAEE,mBAAU;AACV;SAHF;;AARkB;AAAY;AA4VC;AAEjC;AAAE;AAAE;AAEJ;AAEA,UAAK;AAEL,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,mBAAK,WAAC,CAAD,CAAG,UAAC,CAAW,KAAM,KAAE,CAAnB;AACL,SAAJ,IAAG;AACH,YAAG,WAAK,WAAC,CAAD,CAAG,OAAM,SAAC,EAAM,GAAE,CAA1B;AAEE,mBAAS,SAA0B,QAArB,WAAK,WAAC,CAAD,CAAG,OAAM,SAAC,EAAM,GAAE,CAAF,qBAAnC;AAAI;AAEF,uBAAK,WAAC,CAAD,CAAG,OAAM,WAAC,CAAD,CAAG,UAAC,CAAW,KAAM,KAAE,CAAnB;AACd,aAAJ,IAAG;;SALP;;AAUF;AAtBiC;AAhUA;AAAb;AAEpB;AAEA,UAAY,iBAAD,QAAX;AAEE,aAAK;AACL,aAAK;OAHP;AAMA,WAAM,sBAAiB,CAAC,KAAK,OAAN;AAEvB,UAAY,EAAD,QAAX;AAGE,YAAG,gBAAH;AAEE,cAAG,iBAAH;AACE,cAAE,UAAC,CAAU,CAAI,EAAE,QAAhB;;AAGH,8BAAa,EAAE,UAAf;;SANJ;AAUA,YAAY,EAAD,QAAX,EACE,cAAS,CAAC,EAAD,CADX;OAbF;AAiBA,eAAU;AA7BU;AAAa;AAgCG;AAAhB;AAEpB;AAEA,WAAM,sBAAiB,CAAC,KAAK,OAAN;AAEvB,UAAY,EAAD,QAAX,EACE,iBAAY,CAAC,EAAD,CADd;AAGA,eAAU;AATU;AAAgB;AA5CG;AAAnB;AAEpB;AAEA,WAAM,sBAAiB,CAAY,KAAK,OAAc,WAA/B;AAEvB,UAAY,EAAD,QAAX,EACE,cAAS,CAAC,EAAD,CADX;AAGA,eAAU;AATU;AAAmB;AAgFN;AAEjC;AACA;AAEA,UAAG,iBAAH,EACE,MADF;AAGA,UAAY,uBAAD,QAAX;AAEE,aAAM;AAEN,YAAY,EAAD,QAAX;AAEE,cAAG,eAAM,KAAE,2BAAX,EACE,WAAK,QADP;AAGA,iBAAe,EAAE,WAAH,QAAd,EACE,EAAE,YAAY,CAAC,EAAE,WAAH;AAEhB,cAAG,0BAAqB,KAAG,EAA3B,EACE,EAAE,aAAa,CAAC,QAAS,0BAAV,CADjB;AAGA,gBAAO;AACP,yBAAU,CAAC,GAAI,YAAO;;;;cAAZ;AAEV,cAAG,eAAM,KAAE,2BAAX,EACE,WAAK,UADP;SAdF;AAkBA,YAAI,2CAAY,IAAG,oBAAnB,EACE,oBADF;OAtBF;AARiC;AAZH;AAE9B,UAAY,iBAAD,QAAX,EACE,iBAAW,CAAC,KAAM,KAAP,CADb;AAF8B;AAMG;AAEjC,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,KAAP,CADhB;AAFiC;AAhGA;AAEjC,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,KAAM,MAAb,CADhB;AAFiC;AAVG;AAGpC;AAEA,iBAAW,QAAX,GAAuB;AACvB,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,KAAM,+DAAb,CADnB;AANoC;AAlFH;AAAb;AAEpB,UAAG,eAAM,KAAE,0BAAX;AACE,iBAAU,QAAQ,cAAc,CAAC,IAAD;;AAGhC,iBAAU,QAAQ,cAAc,CAAC,KAAD;AAChC,cAAM,YAAY,CAAC,QAAQ,cAAc,CAAC,IAAD,CAAvB;;AAPA;AAAa;AAihBC;AAElC;AACA;AACA;AACA;AAGA;AAEA,UAAG,iBAAH,EACE,MADF;AAGA,UAAY,uBAAD,QAAX;AAEE,YAAG,WAAK,SAAC,EAAM,GAAE,CAAjB;AAEE,iCAAa,MAAM,eAAe,CAAC,oCAAD;AAElC,mBAAyB,uBAAa;AACtC,sBAAqB,CAAC,MAAD,SAAsC,IAAT,CAAf,MAAM,QAAS,KAAE,KAAF,CAApB,IAAqE,CAAnC,MAAM,aAAa,CAAC,aAAD,CAAgB,KAAE,GAAF,CAAxC;AAC3D,cAAG,SAAH;AAEE,mCAAa,YAAY,CAAC,MAAD;WAF3B;AAKA,eAAM;AAEN,cAAY,EAAD,QAAX;AAEE,gBAAG,eAAM,KAAE,2BAAX,EACE,WAAK,QADP;AAGA,mBAAe,EAAE,WAAH,QAAd,EACE,EAAE,YAAY,CAAC,EAAE,WAAH;AAEhB,gBAAG,0BAAqB,KAAG,EAA3B,EACE,EAAE,aAAa,CAAC,QAAS,0BAAV,CADjB;AAGA,mCAAa,MAAM,eAAe,CAAC,UAAD;AAElC,kBAAO;AAEP,2BAAU,CAAC,GAAI,YAAO;;;;gBAAZ;AAEV,gBAAG,eAAM,KAAE,2BAAX,EACE,WAAK,UADP;WAjBF;;AAuBA,cAAG,CAAI,kBAAS,IAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAAjC;AAEE,gCAAe,CAAC,kBAAmB,oBAAW,KAAM,KhExNwE,EgEwN7G;;AAIf,iBAAM;AACN,gBAAY,EAAD,QAAX,EACE,OAAe,EAAE,WAAH,QAAd,EACE,EAAE,YAAY,CAAC,EAAE,WAAH,CAFlB;;;AAOJ,YAAI,eAAM,IAAG,cAAC,2BAAD,CAAb,EACiB,uBAAc,MAAM,YAAY,CAAC,WAAW,MAAZ,CADjD;OApDF;AAbkC;AAjOH;AAE/B;AACA;AAAG;AAAG;AAAE;AACR;AAAO;AAAW;AAClB;AACA;AAEA,UAAG,CAAY,CAAC,QAAD,SAAf,EACE,MADF;AAGA,UAAG,+BAAW,oBAAC,EAAiB,KAAG,yCAAnC;AAEE,qBAAc;AACd,qBAAc;;AAId,qBAAc;AACd,qBAAc;;AAGhB,eAAS,QAAiB,OAAZ,KAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEA,aAAM,QAAQ,cAAc,CAAC,IAAD;AAE5B,YAAG,cAAS,KAAE,4CAAd,EACE,EAAE,cAAC,YAAgB,MAAjB,CADJ;AAGA,aAAK,WAAC,CAAD,CAAG,aAAR,GAAyB;AACzB,aAAK,WAAC,CAAD,CAAG,YAAR,GAAwB;AAExB,iBAAU,KAAK,WAAC,CAAD,CAAG;AAElB,yBAAY,CAAC,KAAK,WAAC,CAAD,EAAK;;;;YAAX;AAEZ,YAAG,KAAK,WAAC,CAAD,CAAG,QAAQ,IAAsC,CAAN,eAAM,KAAG,0BAAH,CAAzD,EACE,SAAU,MAAO,GAAE,SADrB;AAGA,YAAG,CAAI,KAAK,WAAC,CAAD,CAAG,SAAf,EACE,SAAU,MAAO,GAAE,WADrB;AAGA,YAAG,MAAO,KAAG,EAAb,EACE,EAAE,aAAa,CAAC,QAAQ,MAAT,CADjB;AAGA,YAAG,KAAK,WAAC,CAAD,CAAG,MAAM,KAAG,EAApB,EACE,EAAE,aAAa,CAAC,QAAQ,KAAK,WAAC,CAAD,CAAG,MAAjB,CADjB;AAGA,YAAG,KAAK,WAAC,CAAD,CAAG,SAAQ,IAAU,CAAN,eAAM,KAAE,4BAAF,CAA7B;AAEE,kBAAS,CAAY,CAAC,KAAK,WAAC,CAAD,CAAG,aAAT;AACrB,cAAG,KAAM,IAAG,CAAI,KAAK,WAAC,CAAD,CAAG,SAAxB,EACE,KAAK,WAAC,CAAD,CAAG,aAAR,GAAyB,QAAQ,cAAc,CAAC,GAAD,CADjD;AAGA,cAAK,KAAK,WAAC,CAAD,CAAG;AAEb,WAAC,UAAD,GAAe,KAAK,WAAC,CAAD,CAAG;AAEvB,mBAAU,KAAK,WAAC,CAAD,CAAG;AAClB,cAAG,KAAK,WAAC,CAAD,CAAG,QAAX,EACE,SAAU,MAAO,GAAE,SADrB;AAGA,cAAI,KAAK,WAAC,CAAD,CAAG,eAAe,KAAG,EAA9B,EACE,CAAC,aAAa,CAAC,QAAQ,MAAT,CADhB;AAGA,cAAI,KAAK,WAAC,CAAD,CAAG,MAAM,KAAE,EAApB;AACE,aAAC,aAAa,CAAC,OAAO,GAAR;AAEd,gBAAA,CAAC,aAAa,CAAC,OAAO,KAAK,WAAC,CAAD,CAAG,MAAhB;AAEhB,cAAI,KAAK,WAAC,CAAD,CAAG,YAAY,KAAG,EAA3B,EACE,CAAC,aAAa,CAAC,SAAS,KAAK,WAAC,CAAD,CAAG,YAAlB,CADhB;AAGA,WAAC,iBAAiB,CAAC,QAAS,kDAAV;AAElB,cAAG,KAAM,IAAG,CAAI,KAAK,WAAC,CAAD,CAAG,SAAxB,EACE,EAAE,YAAY,CAAC,CAAD,CADhB;;AAKA,YAAE,UAAF,GAAgB,KAAK,WAAC,CAAD,CAAG;AAExB,eAAK,WAAC,CAAD,CAAG,YAAR,GAAwB,EAAE;;AAG5B,aAAqB;AAErB,4BAAe,CAAC,KAAK,WAAC,CAAD,EAAK,EAAX;AAEf,gBAAQ,YAAY,CAAC,EAAD;AAEpB,aAAK,WAAC,CAAD,CAAG,UAAR,GAAqB;AAvvBiD,cAwvBtE,KAxvBsE,MAwvBtE,SAAG,CAAH;AAEA,YAAG,eAAM,KAAG,sBAAZ;AAGE,cAAI,KAAK,WAAC,CAAD,CAAG,OAAM,SAAC,EAAM,GAAE,CAA3B;AAEE,iBAAM,QAAQ,cAAc,CAAC,KAAD;AAE5B,gBAAG,KAAK,WAAC,CAAD,CAAG,aAAX,EACE,EAAE,aAAa,CAAC,QAAQ,UAAT,CADjB;AAGA,cAAE,aAAa,CAAC,KAAM,YAAM,GAAE,KAAK,WAAC,CAAD,CAAG,SAAvB;AACf,oBAAQ,YAAY,CAAC,EAAD;AAEpB,gBAAG,KAAK,WAAC,CAAD,CAAG,aAAX;AAEE,gBAAE,aAAa,CAAC,WAAW,UAAZ;AACf,gBAAE,aAAa,CAAC,WAAW,GAAY,GAAN,YAAF,GAAU,KAAK,WAAC,CAAD,CAAG,SAAlC;aAHjB;AAMA,iBAAM,QAAQ,cAAc,CAAC,IAAD;AAC5B,cAAE,YAAY,CAAC,EAAD;AAEd,2BAAU,CAAC,GAAI,KAAK,WAAC,CAAD,CAAG,QAAQ,MAArB;WAnBZ;SAHF;;AA9F2B;AA1CM;;AAAjB;AAEE;AAAb;AAEN;AAED,iBAAU;AAEV,iBAAS,QAAkB,OAAb,MAAM,SAAC,EAAM,GAAE,CAAF,kBAA3B;AAAI;AAGF,cAAG,MAAM,WAAC,CAAD,CAAG,aAAa,KAAE,QAA3B;AAEE,qBAAU,MAAM,WAAC,CAAD;AAChB;WAHF;AAMA,cAAG,MAAM,WAAC,CAAD,CAAG,OAAM,SAAC,EAAM,GAAE,CAA3B;AAEE,qBAAU,aAAa,CAAC,MAAM,WAAC,CAAD,CAAG,OAAV;AACvB,gBAAY,MAAD,QAAX,EACE,KADF;WAHF;;AAfK;AAAa;AAyBtB,eAAU,aAAa,CAAC,WAAD;AA3BH;AAAiB;AA3MN;;AACA;AAE7B;AAEA,iBAAS,QAA8B,OAAzB,QAAQ,SAAS,OAAQ,GAAE,CAAF,kBAAvC;AAAI;AAEF,cAAc,QAAQ,SAAS,MAAC,CAAD,CAAI,QAAS,KAAE,IAA9C;AAEa,oBAAQ,SAAS,MAAC,CAAD,CAAI,aAAM,CAAC,YAAgB,MAAjB;AACtC,iCAAqB,CAAY,QAAQ,SAAS,MAAC,CAAD,CAA7B;WAGrB,MAAA,qBAAqB,CAAY,QAAQ,SAAS,MAAC,CAAD,CAA7B;;AAZI;AAgB/B,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,2BAAqB,CAAC,mBAAD;AApBU;AAvBC;;AACE;AAEhC;AAEA,iBAAS,QAA8B,OAAzB,QAAQ,SAAS,OAAQ,GAAE,CAAF,kBAAvC;AAAI;AAEF,cAAc,QAAQ,SAAS,MAAC,CAAD,CAAI,QAAS,KAAE,IAA9C;AAEa,oBAAQ,SAAS,MAAC,CAAD,CAAI,gBAAgB,CAAC,WAAD;AAChD,oCAAwB,CAAY,QAAQ,SAAS,MAAC,CAAD,CAA7B;WAGxB,MAAA,wBAAwB,CAAY,QAAQ,SAAS,MAAC,CAAD,CAA7B;;AAZI;AAgBlC,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,8BAAwB,CAAC,mBAAD;AApBQ;AAsIG;AAEnC,UAAI,QAAS,KAAE,+CAAf;AAEE,qCAAwB;AACxB,qCAAwB,YAAxB;AACA,4BAAe,yCAAf;AACA,4BAAe,wCAAf;AACA,0BAAS,2BAAT;OANF;AAFmC;AAtLN;AAE7B;AACA,sBAAW,KAAX;AACA,yBAAc,4CAAd;AACA,0BAAe,4CAAf;AACA,2BAAgB,GAAhB;AACA,4BAAiB,GAAjB;AACA,8BAAmB,kDAAnB;AACA,wBAAS,sBAAT;AATkD;AAArB;AA0CA;AAEtB,eAAP,KAAO;AACP;AAH6B;AAnBQ;AAErC;AAEA,oBAAU,eAAU,QAAC,YAAM,CAAC,IAAD,CAAN;AAErB,oBAAS,GAAT;AACA,qBAAU,GAAV;AAEA,UAAG,gBAAH;AAEE,mBAAM,QAAI,QAAC,CAAQ,QAAR;AACX,mBAAM,QAAI,QAAC,CAAQ,QAAR;AACX,mBAAM,QAAI,QAAC,CAAQ,QAAR;OAJb;AAOA,iBAAM,UAAN,GAAmB;AAhBkB;AA0NN;AAAX;AAEpB,eAAU;AAEV,UAAY,uBAAD,QAAX;AAEE,YAAI,uBAAa,QAAS,KAAE,IAA5B;AAEE,mBAAU;AACV;SAHF;AAMA,YAAG,kBAAH;AAEE,cAAG,uBAAa,QAAS,KAAE,IAA3B;AAEE,qBAAU;AACV;WAHF;SAFF;AASA,YAAI,uBAAa,kBAAmB,GAAE,CAAtC;AAEE,mBAAyB,uBAAa;;AAItC,mBAAyB,QAAQ,cAAc,CAAC,IAAD;AAC/C,iCAAa,sBAAsB,CAAC,aAAa,MAAd;;OAxBvC;AAJoB;AAAW;AA2MD;AAE9B;AACA;AAEA,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAED,aAAqB,WAAK,WAAC,CAAD,CAAG;AAC7B,YAAG,CAAI,4BAAQ,CAAC,UAAW,WAAK,WAAC,CAAD,CAAG,OAAO,aAA3B,CAAf,EACE,EAAE,MAAM,YAAY,CAAC,UAAU,MAAX,CADtB;;AAR2B;AA5IG;AAEjC;AACA;AAEA,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAED,aAAqB,WAAK,WAAC,CAAD,CAAG;AAC7B,UAAE,MAAM,eAAe,CAAC,SAAD;;AARO;AA7qBrB;;;AAmCQ,+BAAO,UpEsajB,+BoEtaiB,CAAP;AAQJ,6BhE3BV,uCgE2BU;AACW;AACT,+BhErBV,yCgEqBU,yBhE0lBkD,uBAAC,0CAAQ,wCAAT,CgE1lBlD;AACG;AACA;AACU;AACI;AAChB,gChEtCV,0CgEsCU;AACQ,wChEvBV,kDgEuBU;AACL,mChEtBV,6CgEsBU;AACF,iChExBV,2CgEwBU;AACM,uChEvBV,iDgEuBU;AACK,4ChE3Bd,kDgE2Bc;AACP;AACF,mChEtCZ,2CgEsCY;AACN,6BA9EN,yBA8EM;AACE,+BhE8CV,yCgE9CU;AACI;AACF,iCpDuDV,wCoDvDU;AACJ,6BAvJN,yBAuJM;AACE;AACK;AACF,kChE9CX,2CgE8CW;AAEO,yCAxJH,wCAwJG;AACH,sCA3JH,qCA2JG;AACH,mCAxJR,6BAwJQ;AACG,sCAzJX,6BAyJW;AACJ,kChE0BP,+CgE1BO;AACA,kChEwBP,+CgExBO;AACD,iChE0BP,8CgE1BO;AACE,mChEwBP,gDgExBO;AA1EV;AA6EG;;;;AApLjB,GAsLc,yCAtLd;ACDA,8BAIS,gHAJT;;;AAcwB;;;AAEpB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AApBoB;;;;;;;;;;;AAgegB;AAEtC,mBAAS;AAET,UAAG,cAAH;AAGF;;AAKI,YAAG,KAAM,KAAG,EAAZ;AACE,2BAAY,UAAZ,GAA0B;AAE1B,cAAA,iBAAY,UAAZ,GAA0B;;AAfQ;AArCD;AAAP;AAE9B,eAAU;AAEV,UAAG,cAAH;AAGF;OAHE;AAJ8B;AAAO;AAfO;AAAd;AAE9B,eAAU,cAAS,MAAM,iBAAiB,CAAC,SAAD,CAAY,KAAG,MAAH;AAFxB;AAAc;AA2BI;AAEhD,UAAI,oBAAgB,KAAG,KAAvB;AAEE,+BAAmB;AACnB;OAHF;AAFgD;AAgBN;AAE1C,UAAI,cAAU,KAAG,KAAjB;AAEE,yBAAa;AACb;OAHF;AAF0C;AAPD;AAEzC,sBAAY;AACZ,UAAW,CAAC,aAAD,SAAW,IAAI,CAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAA3C,EACE,aAAQ,WAAC,CAAW,KAAX,CADX;AAHyC;AAsHS;AAElD;AACA;AAEA;AAEA,UAAG,CAAI,cAAQ,IAAiB,CAAZ,iBAAY,KAAE,4CAAF,CAAhC,EACE,uBAAa,MAAM,YAAY,CAAC,SAAS,kBAAV,CADjC;AAGA,UAAG,cAAH;AAEE,aAAM;AAEV;OAJE;AAQA,6BAAa,MAAM,eAAe,CAAC,UAAD;AAElC,UAAK,gBAAO,GAAE,CAAF;AAGZ,+CAAkB,CAAC,kBAAc,WAAM,iBAAY,KAAE,yCAAnC;AAEH,uBAAa,MAAM,YAAY,CAAC,cAAgB,4CAAD;;;;UAAC,CAAU,GAAC,IAA5B;AAC/B,uBAAa,MAAM,YAAY,CAAC,SAAW,4CAAD;;;;UAAC,CAAU,GAAC,IAAvB;AAE/B,kBAAQ,MAAM,YAAY,CAAC,SAAW,4CAAD;;;;UAAC,CAAU,GAAC,IAAvB;AAC1B,kBAAQ,MAAM,YAAY,CAAC,cAAgB,4CAAD;;;;UAAC,CAAU,GAAC,IAA5B;AAC1B,kBAAQ,aAAa,CAAC,QAAS,4BAAV;AACrB,kBAAQ,MAAM,YAAY,CAAC,UAAW,KAAZ;AAEzC,UAAG,4BAAwB,KAAG,EAA9B,EACiB,YAAQ,MAAM,eAAe,CAAC,kBAAD,CAD9C;AAGA,UAAG,oBAAe,KAAG,EAArB;AACE,oBAAO,UAAP,GAAqB,YAA4B,GAAd,oBAAF,GAAiB,IAAD;AAEjD,YAAA,YAAO,UAAP,GAAqB;AAEvB,UAAG,2BAAuB,KAAG,EAA7B;AACE,yBAAY,UAAU,IAAI,CAAC,2BAAD;AAE1B,gBAAG,iBAAY,UAAU,SAAS,CAAC,2BAAD,CAAlC,EACE,iBAAY,UAAU,OAAO,CAAC,2BAAD,CAD/B;AA5CgD;AAhLH;AAE/C;AACA,2BAAiB;AACjB,4BAAkB;AAClB,4BAAkB;AAClB,6BAAmB;AACnB,6BAAmB;AAP4B;AAuOC;AAAlB;AAE9B;AACA,eAAU;AAHoB;AAAkB;AANF;AAAhB;AAE9B;AACA,eAAU;AAHoB;AAAgB;AApUV;AAEpC;AAEA,UAAwB,CAApB,sBAAY,OAAQ,KAAE,YAAF,CAAW,IAAkD,CAAnC,sBAAY,OAAQ,cAAe,KAAE,YAAF,CAArF;AAEE;OAGA,UAAG,kBAAH,EACE,qBADF;AATkC;AAgVC;AAAP;AAE9B,eAAU;AAFoB;AAAO;AAnUa;AAElD;AAEA,UAAG,cAAH;AAEE,4BAA+B,QAAQ,cAAc,CAAC,OAAD;AACrD,yBAAY,cAAC,OAAW,MAAZ;AACZ,YAAG,iBAAY,KAAE,8CAAjB,EACE,yCAAkB,CAAC,kBAAc,WAAM,iBAAY,KAAE,yCAAnC,CADpB;;AAKA,4BAA+B,QAAQ,cAAc,CAAC,KAAD;AACrD,yBAAY,cAAC,OAAW,MAAZ;AACZ,yBAAY,MAAM,YAAY,CAAC,eAAe,KAAhB;AAC9B,yBAAY,MAAM,YAAY,CAAC,gBAAgB,KAAjB;AAC9B,yBAAY,MAAM,YAAY,CAAC,gBAAgB,UAAjB;AAC9B,YAAG,iBAAY,KAAE,8CAAjB,EACE,yCAAkB,CAAC,kBAAc,WAAM,iBAAY,KAAE,yCAAnC,CADpB;;AAIF,qBAA0B,QAAQ,cAAc,CAAC,KAAD;AAGjC,uBAAa,MAAM,YAAY,CAAC,UAAU,cAAX;AAC/B,uBAAa,MAAM,YAAY,CAAC,QAAQ,mBAAT;AAE9C,UAAK,UAAU;AACf,UAAG,CAAC,OAAQ,KAAE,CAAd,EACE,CAAC,OAAD,GAAY,EADd;AAGe,uBAAa,MAAM,YAAY,CAAC,SAAiB,2CAAP,CAAD,MAAC;;;;UAAO,CAAS,GAAC,IAA5B;AAC/B,uBAAa,MAAM,YAAY,CAAC,aAAa,YAAd;AAC/B,uBAAa,MAAM,YAAY,CAAC,cAAuB,2CAAP,CAAD,MAAC;;;;UAAO,CAAU,GAAE,IAApC;AAC/B,uBAAa,MAAM,YAAY,CAAC,iBAAiB,QAAlB;AAE/B,kBAAQ,MAAM,YAAY,CAAC,mBAAmB,QAApB;AAC1B,kBAAQ,MAAM,YAAY,CAAC,UAAU,cAAX;AAC1B,kBAAQ,MAAM,YAAY,CAAC,QAAQ,MAAT;AAC1B,kBAAQ,MAAM,YAAY,CAAC,SAAkB,2CAAP,CAAD,MAAC;;;;UAAO,CAAU,GAAC,IAA9B;AAC1B,kBAAQ,MAAM,YAAY,CAAC,cAAuB,2CAAP,CAAD,MAAC;;;;UAAO,CAAU,GAAE,IAApC;AAC1B,kBAAQ,MAAM,YAAY,CAAC,aAAa,QAAd;AAC1B,kBAAQ,MAAM,YAAY,CAAC,iBAAiB,QAAlB;AAC1B,kBAAQ,MAAM,YAAY,CAAC,UAAU,eAAX;AAEzC,uBAA4B,QAAQ,cAAc,CAAC,KAAD;AACnC,oBAAU,MAAM,YAAY,CAAC,WAAW,UAAZ;AAC5B,oBAAU,MAAM,YAAY,CAAC,UAAU,MAAX;AAC5B,oBAAU,MAAM,YAAY,CAAC,mBAAmB,SAApB;AAE5B,oBAAU,MAAM,YAAY,CAAC,aAAa,iCAAd;AAC5B,oBAAU,MAAM,YAAY,CAAC,UAAU,GAAX;AAI3C,uBAAY,UAAZ,GAA0B;AAG1B,gBAAU,YAAY,CAAC,iBAAD;AACtB,gBAAU,YAAY,CAAC,YAAD;AAEtB,sBAAyB,QAAQ,cAAc,CAAC,MAAD;AAC/C,mBAAM,MAAM,YAAY,CAAC,MAAO,GAAR;AACxB,mBAAM,MAAM,YAAY,CAAC,OAAQ,GAAT;AACxB,mBAAM,MAAM,YAAY,CAAC,QAAS,GAAV;AACxB,mBAAM,MAAM,YAAY,CAAC,SAAU,GAAX;AAExB,mBAAM,MAAM,YAAY,CAAC,qBAAsB,MAAvB;AACxB,mBAAM,MAAM,YAAY,CAAC,kBAAmB,MAApB;AACxB,mBAAM,MAAM,YAAY,CAAC,oBAAqB,MAAtB;AACxB,mBAAM,MAAM,YAAY,CAAC,iBAAkB,MAAnB;AACxB,mBAAM,MAAM,YAAY,CAAC,cAAe,MAAhB;AACxB,mBAAM,MAAM,YAAY,CAAC,WAAY,UAAb;AAExB,2BAAgB,CAAC,kGAAyG,GAAN,MAAD,GAChH,uEADa;AAGhB,kBAAO,UAAP,GAAqB;AA9E6B;AAiFP;AAAb;AAE9B,eAAU,QAAQ,cAAc,CAAC,KAAD;AAFF;AAAa;AArGO;AAElD;AACA,2BAAiB;AACjB,yBAAe;AAJmC;AAqIF;AAEhD;AACA,UAAG,kBAAc,KAAE,IAAnB;AAEE,6BAAkB;AAClB,2BAAgB;OAHlB;AAHgD;AAXP;AAEzC,UAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,IAAD,CADZ;AAFyC;AAND;AAExC,UAAY,eAAD,QAAX,EACE,eAAS,CAAC,IAAD,CADX;AAFwC;AA5HC;AAEzC;AAEA,UAAG,cAAQ,IAAY,CAAC,YAAD,SAAvB,EACE,YAAO,iBAAiB,CAAC,QAAQ,gBAAT,CAD1B;AAJyC;AAyRE;AAE3C;AAEA,UAAG,cAAQ,IAAY,CAAC,YAAD,SAAvB,EACE,YAAO,oBAAoB,CAAC,QAAQ,gBAAT,CAD7B;AAJ2C;AA1EA;AAE3C;AACA;AAAE;AAEF,UAAG,CAAY,CAAC,uBAAD,SAAf,EACE,MADF;AAGA,mBAAM,MAAM,YAAY,CAAC,UAAW,+BAAW,eAAvB;AACxB,cAAQ,KAAK,YAAY,CAAC,aAAD;AAEzB,mBAAM,iBAAiB,CAAC,QAAQ,kBAAT;AAEvB,mBAAM,YAAY,CAAC,cAAD;AAElB,oBAAS,MAAM,YAAY,CAAC,UAAU,OAAX;AAE3B,UAAY,aAAD,QAAX;AAEE,qBAAO,QAAC,CAAQ,CAAR;AACR,qBAAO,OAAC,CAAO,CAAP;AACR,qBAAO,mBAAC,CAAmB,kDAAnB;AACR,qBAAO,eAAC,CAAe,iBAAf;AACR,qBAAO,WAAC,CAAW,IAAX;AAER,aAAM,uBAAa;AAEnB,sBAAS,MAAM,YAAY,CAAC,OAAe,2CAAL,CAAF,OAAE;;;;YAAK,CAAU,GAAE,IAA5B;AAC3B,sBAAS,MAAM,YAAY,CAAC,MAAgB,2CAAP,CAAF,OAAE;;;;YAAO,CAAU,GAAE,IAA7B;AAE3B,aAAM,aAAO,iBAAC,EAAa;AAE3B,YAAG,mBAAc,GAAE,CAAnB;AACE,cAAK;;AAGL,cAAY,aAAD,QAAX;AAEE,gBAAK,QAAG,CAAC,EAAE,OAAQ,aAAO,SAAC,EAAnB;WAGR,UAAK,EAAE;;AAGX,YAAG,mBAAc,GAAE,CAAnB,EACE,cAAS,MAAM,YAAY,CAAC,QAAU,2CAAD;;;;YAAC,CAAU,GAAE,IAAvB,CAD7B;AAGA,YAAG,oBAAe,GAAE,CAApB;AACE,cAAK;AAEL,kBAAK,QAAG,CAAC,EAAE,QAAS,aAAO,UAAC,EAApB;AAEV,sBAAS,MAAM,YAAY,CAAC,SAAW,2CAAD;;;;YAAC,CAAU,GAAE,IAAxB;AAE3B,YAAG,mBAAc,KAAG,EAApB,EACE,cAAS,MAAM,YAAY,CAAC,mBAAoB,kCAAW,CAAC,mBAAD,CAAhC,CAD7B;AAGA,sBAAS,YAAY,CAAC,aAAO,iBAAC,EAAT;OAxCvB;AA2CA,UAAG,oBAAH,EACiB,cAAU,MAAM,YAAY,CAAC,aAAa,iCAAd,CAD7C;AAGA;AA/D2C;AAqJA;AAE3C;AACA,mBAAM,oBAAoB,CAAC,QAAQ,kBAAT;AAC1B,mBAAM,cAAc,YAAY,CAAC,aAAD;AAChC,oBAAS,MAAM,YAAY,CAAC,UAAU,MAAX;AAC3B,oBAAS,cAAc,YAAY,CAAC,cAAD;AANQ;AAnFE;AAE7C,UAAG,cAAS,MAAM,iBAAiB,CAAC,SAAD,CAAY,KAAE,MAAjD;AACE;AAEA;AAL2C;AArjBvB;;;AAsDC;AACC,qChEqTlB,uCgErTkB;AACA;AACC;AACA;AACN;AACE,kCjEmHT,6CiEnHS;AACD,iCjEkHR,6CiElHQ;AA7DE;AAgEN;;;;AAEA,6BjEwCV,uCiExCU;AACW;AACT,+BjE8CV,yCiE9CU,yBjE6pBkD,uBAAC,0CAAQ,wCAAT,CiE7pBlD;AACC,gCjEmHV,0CiEnHU;AACG,mCjEsCV,6CiEtCU;AACG;AACJ;AACL,6BhEmSV,uCgEnSU;AACE,+BjEqvBJ,+CiErvBI;AACC,gCjE2BV,0CiE3BU;AACJ,4BhEiYV,sCgEjYU;AACkB,8CjEyChB,kDiEzCgB;AACN,wCjEwCV,kDiExCU;AACP,iCjEwCV,2CiExCU;AACE,mCjEwCV,6CiExCU;AACI,uCjEwCV,iDiExCU;AACR;AACD;AACO;AACF,mCjEwBZ,2CiExBY;AACP;AACA;AACO;AACD;AACD,iCrDoHV,wCqDpHU;AACD;AACJ;AACK;AACD;AACA;AACD;AACH;AACS,qCjE4BV,+CiE5BU;AACV;AACI;AACF;AACO;AACF,kCjEMX,2CiENW;AACH,+BjEuEN,6CiEvEM;AACE,iCjEsER,6CiEtEQ;AACC,kCjEqET,6CiErES;AACA,kCjEoET,6CiEpES;AACD,iCjEyEX,0CiEzEW;AACC,kCjEyEP,+CiEzEO;AACH,+BjEuET,0CiEvES;AACI,mCjEiEX,4CiEjEW;AACF,iCjEgET,4CiEhES;AACE,mCjEmEP,gDiEnEO;AACC,oCjE6DX,6CiE7DW;AACA,oCjE4DX,6CiE5DW;AACA,oCjE6DP,iDiE7DO;AACL,+BjE0DN,6CiE1DM;AACD,8BjEyDL,6CiEzDK;AACI,kCjEoEP,+CiEpEO;AACA,kCjEkEP,+CiElEO;AACD,iCjEoEP,8CiEpEO;AACE,mCjEkEP,gDiElEO;AA1DN;AA6DG;;;;AAEC;AAohBsB;AAAd;AAE5B,eAAyB;AAFG;AAAc;AAeN;AAEpC;AACA,UAAG,SAAI,KAAE,GAAT,EACE,qBADF;AAHoC;AAVY;AAApB;AAE5B,eAAyB;AAFG;AAAoB;AAKb;AAAP;AAE5B,eAAU;AAFkB;AAAO;AA9hBf;;;AAUJ,6BjE/BV,uCiE+BU;AACW;AACT,+BjEzBV,yCiEyBU,yBjEslBkD,uBAAC,0CAAQ,wCAAT,CiEtlBlD;AACC,gCjE4CV,0CiE5CU;AACG,mCjEjCV,6CiEiCU;AACG;AACJ;AACL,6BhE4NV,uCgE5NU;AACE,+BjE8qBJ,+CiE9qBI;AACC,gCjE5CV,0CiE4CU;AACJ,4BhE0TV,sCgE1TU;AACkB,8CjE9BhB,kDiE8BgB;AACN,wCjE/BV,kDiE+BU;AACK,6CjEhCf,kDiEgCe;AACZ,iCjEhCV,2CiEgCU;AACE,mCjEhCV,6CiEgCU;AACI,uCjEhCV,iDiEgCU;AACR;AACD;AACO;AACF,mCjEhDZ,2CiEgDY;AACP;AACA;AACO;AACD;AACD,iCrD4CV,wCqD5CU;AACL;AACK;AACD;AACA;AACD;AACH;AACS,qCjE3CV,+CiE2CU;AACV;AACI;AACF;AACO;AACF,kCjEjEX,2CiEiEW;AACH,+BjEAN,6CiEAM;AACE,iCjEDR,6CiECQ;AACC,kCjEFT,6CiEES;AACA,kCjEHT,6CiEGS;AACD,iCjEEX,0CiEFW;AACC,kCjEEP,+CiEFO;AACH,+BjEAT,0CiEAS;AACI,mCjENX,4CiEMW;AACF,iCjEPT,4CiEOS;AACE,mCjEJP,gDiEIO;AACC,oCjEVX,6CiEUW;AACA,oCjEXX,6CiEWW;AACA,oCjEVP,iDiEUO;AACL,+BjEbN,6CiEaM;AACD,8BjEdL,6CiEcK;AACI,kCjEHP,+CiEGO;AACA,kCjELP,+CiEKO;AACD,iCjEHP,8CiEGO;AACE,mCjELP,gDiEKO;AAlEF;AAqEG;;;;AAEV;;;AAEX;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAxBW;;;;;;;;AAypBkB;AAE/B,kBAAO,OAAO,CAAC,KAAD;AAFiB;AAKA;AAE/B,kBAAO,OAAO,CAAC,KAAD;AAFiB;AAKA;AAE/B,kBAAO,OAAO,CAAC,KAAD;AAFiB;AA5DH;AAE5B,UAAc,kBAAH,eAAP,MAAO,CAAX;AAEE,4BAAwB,OAAP,OAAU,kBAAH,CAAiB;AACzC,8BAA0B,OAAP,OAAU,kBAAH,CAAiB;AAC3C,8BAA0B,OAAP,OAAU,kBAAH,CAAiB;AAC3C,iCAA6B,OAAP,OAAU,kBAAH,CAAiB;AAC9C,4BAAwB,OAAP,OAAU,kBAAH,CAAiB;AACzC,uCAAmC,OAAP,OAAU,kBAAH,CAAiB;AACpD,0CAAsC,OAAP,OAAU,kBAAH,CAAiB;AACvD,0CAAsC,OAAP,OAAU,kBAAH,CAAiB;AACvD,sCAAkC,OAAP,OAAU,kBAAH,CAAiB;AACnD,oBAAO,OAAO,CAAS,OAAP,OAAU,kBAAH,CAAiB,QAA1B;AACd,oBAAO,OAAO,CAAS,OAAP,OAAU,kBAAH,CAAiB,QAA1B;AACd,oBAAO,OAAO,CAAS,OAAP,OAAU,kBAAH,CAAiB,QAA1B;AACd,8BAA0B,OAAP,OAAU,kBAAH,CAAiB;AAC3C,0BAAsB,OAAP,OAAU,kBAAH,CAAiB;AACvC,0BAAsB,OAAP,OAAU,kBAAH,CAAiB;AACvC,+BAA2B,OAAP,OAAU,kBAAH,CAAiB;AAC5C,+BAA2B,OAAP,OAAU,kBAAH,CAAiB;AAC5C,mCAA+B,OAAP,OAAU,kBAAH,CAAiB;AAChD,4BAAwB,OAAP,OAAU,kBAAH,CAAiB;AACzC,gCAA4B,OAAP,OAAU,kBAAH,CAAiB;AAC7C,2BAAuB,OAAP,OAAU,kBAAH,CAAiB;AACxC,2BAAuB,OAAP,OAAU,kBAAH,CAAiB;OAvB1C;AAF4B;AA6BE;AAE9B,oBAAU;AACV,qBAAW,uCAAmB,QAAC,YAAM,CAAQ,OAAP,OAAU,uCAAH,CAAR,CAAN;AAC/B,qBAAW,uCAAmB,QAAC,YAAM,CAAQ,OAAP,OAAU,uCAAH,CAAR,CAAN;AAC/B,qBAAW,uCAAmB,QAAC,YAAM,CAAQ,OAAP,OAAU,uCAAH,CAAR,CAAN;AAC/B,wBAAc;AACd,wBAAc;AACd,iCAAuB;AACvB,6BAAmB;AACnB,8BAAoB;AAV+B;AAArB;AAaA;AAEtB,eAAR,KAAQ;AACA,eAAR,KAAQ;AACA,eAAR,KAAQ;AACR;AAL8B;AAjpBjB;AA8BO,+BAAO,UrE+TjB,+BqE/TiB,CAAP;AAII;AACF;AACE;AACF;AACI,uChEgIpB,uCgEhIoB;AACN;AACO,wCjExHV,kDiEwHU;AACL,mCjEvHV,6CiEuHU;AACW,8CjE1HhB,kDiE0HgB;AACG,iDjE3HnB,kDiE2HmB;AACA,iDjE5HnB,kDiE4HmB;AACJ,6CjE7Hf,kDiE6He;AACX,kCrE3NX,gCqE2NW;AACA;AACJ,8BH2TE,iDG3TF;AACA,8BH0TE,iDG1TF;AACA,8BH0XE,iDG1XF;AACO;AACJ;AACK;AACA,sChEgHnB,uCgEhHmB;AACI,0ChE+GvB,uCgE/GuB;AAvDhB;AA0DY;;;AAEvB;AACA;AACA;AAJuB;;;;;;AA0dwB;AAEjD,wBAAa,OAAO,CAAC,KAAD;AAF6B;AA3BL;AAAX;AAEjC,eAAU,oCAAgB,QAAC,YAAM,CAAC,WAAD,CAAN;AAFM;AAAW;AAYI;AAAf;AAEjC,eAA2B;AAFM;AAAe;AA3BE;AAElD;AACA,2BAAiB,gBAAW,CAAC,WAAD;AAC5B,wBAAa,WAAC,CAAW,KAAX;AACd,wBAAa,SAAQ,kBAAC,CAAkB,IAAlB;AACtB,wBAAa,aAAb,GAA6B;AAC7B,wBAAa,YAAb,GAA4B;AAC5B,wBAAa,WAAb,GAA2B;AAC3B,wBAAa,cAAC,CAAc,wCAAd;AACd,sBAAW,kBAAX;AAEA,2BAAiB,kBAAa,QAAC,YAAM,CAAC,kBAAD,CAAN;AAZmB;AAgCP;AAE3C;AACA,UAAW,CAAC,kBAAD,SAAgB,IAAI,CAAkB,CAAb,4CAAa,IAAG,oBAAH,CAAjD;AAEE,0BAAa,UAAC,CAAU,MAAV;AACd,0BAAa,WAAW,CAAC,wCAAD;OAH1B;AAH2C;AAgEK;AAGhD,mBAAQ,kBAAa,SAAM,CAAC,iBAAY,IAAb,CAA3B;AACA;AACA,2BAAW;AALqC;AAkBD;AAG/C,UAAG,WAAM,KAAE,IAAX;AAEE,2BAAc,CAAC,mBAAe,iBAAY,kBAAa,UAAzC;OAFhB;AAH+C;AAVD;AAG9C,UAAG,UAAK,KAAE,GAAV;AAEE;AACA,6BAAW;OAHb;AAH8C;AA7GJ;AAE1C;AAF+D;AAArB;AAoDI;AAE9C;AAEA;AAEA,UAAG,mBAAc,KAAE,CAAnB;AACE,0BAAa,cAAC,CAAc,wCAAd;AAEA,YAAd,kBAAa,SAAC,CAAS,mBAAT;AAEhB,UAAG,oBAAe,KAAE,CAApB;AACE,0BAAa,eAAC,CAAe,wCAAf;AAEA,YAAd,kBAAa,UAAC,CAAU,oBAAV;AAEhB,wBAAa,SAAQ,eAArB,GAAuC,kBAAY;AACnD,wBAAa,SAAQ,aAArB,GAAqC,kBAAY;AACjD,wBAAa,SAAQ,eAArB,GAAuC,kBAAY;AACnD,wBAAa,SAAQ,kBAAC,CAAkB,kBAAY,gBAA9B;AACtB,wBAAa,SAAQ,iBAAC,CAAiB,kBAAY,eAA7B;AACtB,wBAAa,SAAQ,eAAC,CAAe,kBAAY,aAA3B;AACtB,wBAAa,SAAQ,mBAAC,CAAmB,kBAAY,iBAA/B;AACtB,wBAAa,SAAQ,YAArB,GAAoC,kBAAY;AAChD,wBAAa,SAAQ,YAArB,GAAoC,kBAAY;AAEhD,wBAAa,oBAAC,CAAoB,kBAAY,kBAAhC;AACd,wBAAa,eAAC,CAAe,kBAAY,aAA3B;AACd,wBAAa,yBAAC,CAAyB,kBAAY,uBAArC;AACd,wBAAa,2BAAb,GAA2C,kBAAY;AACvD,wBAAa,0BAAC,CAA0B,kBAAY,wBAAtC;AACd,wBAAa,2BAAb,GAA2C,kBAAY;AAEvD,wBAAa,QAAO,OAAO,CAAC,kBAAY,QAAb;AAC3B,wBAAa,QAAO,OAAO,CAAC,kBAAY,QAAb;AAC3B,wBAAa,QAAO,OAAO,CAAC,kBAAY,QAAb;AAE3B,wBAAa;AAEb,iBAAM,kBAAa,SAAS,CAAC,eAAM,MAAO,IAAd,CAA5B;AAEA,UAAS,CAAL,EAAE,EAAG,KAAG,CAAC,CAAJ,CAAM,IAAU,CAAL,EAAE,EAAG,KAAG,CAAC,CAAJ,CAAzB;AAEE,0BAAa,YAAC,CAAY,EAAE,EAAd;OAFhB;AAKA,wBAAa;AA9CiC;AA3BJ;AAE5B,eAAd,KAAc;AACA,eAAd,KAAc;AACd;AAJ0C;AApcjB;;;AAgBL,+BAAO,UrEmRjB,+BqEnRiB,CAAP;AAMC;AACE,oCAjFV,4BAiFU;AAvBE;AA0BG;;;;AAxS9B,GA2Sc,kBA3Sd;ACCA,6BAIS,yOAJT;;;;AAYc;;AAEA;;AAGC,mCAHD,oCAGC;AAEH;AAEI;;;AAEZ;AACA;AACA;AACA;AACA;AACA;AACA;AARY;;;;;;;;;AAuhCoB;AAElC,oBAAU;AACV,UAAW,CAAC,gBAAD,SAA8C,IAArB,CAAC,gBAAU,SAAX,SAAZ,IAAgD,CAAV,eAAU,KAAG,EAAH,CAAxE;AAEE,YAAG,gBAAU,SAAQ,UAAC,EAAtB;AAEE;AACE,0BAAU,gBAAU,SAAQ,YAAY,CAAC,eAAD;AAD1C;AAGE,0BAAU;AAHZ;SAFF;OAFF;AAHkC;AAgBE;AAEpC,UAAG,CAAI,YAAP;AACE,sBAAU;AAEV;AAEF,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,IAAD,CADhB;AAPoC;AA8BC;AAErC;AACA,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,IAAD,CADlB;AAHqC;AAnBD;AAEpC,UAAU,CAAN,KAAM,KAAE,IAAF,CAAO,IAAU,CAAN,KAAM,KAAE,WAAF,CAA3B;AAEE,YAAY,kBAAD,QAAX,EACE,kBAAa,CAAC,IAAD,CADf;OAFF;AAFoC;AASH;AAEjC,UAAG,cAAH;AAEE,YAAU,CAAN,WAAM,KAAG,IAAH,CAAQ,IAAY,CAAC,kBAAD,SAA9B,EACE,kBAAa,CAAC,IAAD,CADf;AAEA,yBAAa;OAJf;AAFiC;AAiBF;AAE/B,uBAAa;AAFkB;AA5kCjB;AAoBM;AACG,oClEkJX,6CkElJW;AACA,oClEiJX,6CkEjJW;AACE,sClEgJb,6CkEhJa;AACE,wClE+If,6CkE/Ie;AAxBb;AA2BE,uEAAmB,U/E+D5B,2B+E/D4B,EAAmB,wBAAtC;AAEL;;;AAET;AACA;AACA;AACA;AACA;AACA;AAPS;;;;;;;;;AAghHuB;AAElC;AACA,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,IAAD,CADd;AAHkC;AAdD;AAEjC;AACA,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,IAAD,CADhB;AAHiC;AAqBA;AAEjC;AACA,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,IAAD,CADhB;AAHiC;AAdE;AAEnC;AACA,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAM,QAAP,CADd;AAHmC;AAqBL;AAE9B;AACA,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,IAAD,CADd;AAH8B;AA9hHnB;AAiBc,sClEyHb,6CkEzHa;AACF,oClEwHX,6CkExHW;AACA,oCArBP,+BAqBO;AACE,sClEsHb,6CkEtHa;AACF,oClEqHX,6CkErHW;AArBZ;AAwBS,2EAAmB,U/EqChC,2B+ErCgC,EAAqB,wBAAmB,uBAA3D;AAEb;;;AAEL;AACA;AACA;AAJK;;;;;;AAiiCqB;AAE5B,oBAAS,WAAT,GAAuB;AACvB,oBAAS;AACT,uBAAY,CAAC,IAAD;AAJgB;AA8BC;AAE7B,oBAAS,cAAC,CAAc,KAAd;AAFmB;AAvBD;AAAb;AAEf,eAAU,cAAS;AAFJ;AAAa;AAZD;AAAZ;AAEf,eAAU,cAAS;AAFJ;AAAY;AAoHD;AAE1B;AACA;AAEA,eAAU;AACV,eAAU;AAEV,UAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,KAAM;;;;WAAQ;;;;UAAf,CADZ;AAGA,UAAG,MAAH;AAEE,YAAY,cAAS,OAAV,QAAX;AAEE,cAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,wBAAS,OAAM,YAAC,CAAY,MAAZ;SALlB;OAFF;AAX0B;AAuBA;AAE1B,UAAG,gBAAH,EACE,MADF;AAGA;AAEA,UAAG,CAAY,CAAC,cAAS,WAAC,EAAX,SAAf,EACE,MADF;AAGA,UAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,UAAW,CAAC,cAAS,OAAV,SAAkB,IAAI,CAAI,cAAS,WAAC,EAAO,UAAtD;AACE,qBAAQ,cAAS,OAAM,eAAC,EAAxB;AAEA,yBAAQ,EAAR;AAhBwB;AAmBE;AAE5B;AAEA,UAAY,cAAS,WAAC,EAAX,QAAX;AAEE,YAAG,CAAI,cAAS,WAAC,EAAO,UAAC,EAAO,IAAG,CAAI,oBAAU,SAAjD;AACE,uBAAQ,EAAR;AAEA,cAAA,eAAU,CAAC,IAAD;OALd;AAJ4B;AA0FD;AAAZ;AAEf,eAAU,aAAO,CAAC,qBAAY,oBAAW,cAAxB;AAFF;AAAY;AAKC;AAAb;AAEf,UAAY,oBAAD,QAAX;AACE,iBAAU,CAAI,cAAS,WAAC,EAAO,mBAA+F,IAApD,CAApB,oBAAU,UAAU,IAA6B,CAAzB,oBAAU,SAAQ,OAAO,IAAG,cAAC,4BAAO,6BAAR,CAAH,CAA7B,CAAzB,IAAiF,cAAS,OAAb;AAE9H,qBAAU;AALG;AAAa;AA/NH;AAAV;AAEf,eAAU,cAAS,IAAG,CAAI,mBAAP;AAFJ;AAAU;AALD;AAAT;AAEf,eAAU,aAAQ,IAAI,mBAAJ;AAFH;AAAS;AARK;AAAd;AAEf,UAAG,CAAI,mBAAP;AACE,iBAAU;AAEV,qBAAoB;AALP;AAAc;AA0JN;AAEvB;AAGA,UAAG,CAAI,mBAAP,EACE,MADF;AAGA,UAAQ,CAAJ,SAAI,KAAE,EAAF,CAAgC,IAAX,CAAJ,SAAI,KAAE,CAAF,CAAR,IAAyC,CAAb,CAAJ,SAAI,KAAE,EAAF,CAAa,IAAa,CAAR,iCAAQ,IAAG,KAAH,CAAb,CAA9D;AAEE,2BAAe;AACf,kBAAW;AACX,2BAAe;AAEf,YAAG,CAAI,OAAP;AAEE,kBAAO,CAAP;AACA;AACA;;AAIA;AACA,wBAAS;;OAIX;AA3BqB;AA8BC;AAExB;AAEA,UAAG,CAAI,mBAAa,IAAG,cAAvB;AAEE;AACA;OAHF;AAMA,UAAG,cAAS,WAAC,EAAO,mBAApB;AAEE;AACA;AACA;OAJF;AAOA,yBAAe;AACf,gBAAW;AACX,yBAAe;AAEf,UAAG,CAAI,OAAP;AAEE,gBAAO,MAAP;AACA;OAHF;AAMA,UAC6C,cAAS,UADtD;AAGE,gBAAO,MAAP;OAHF;AAMkB,4DAAC,GAAD;AAjCM;AA7IF;AAEtB,UAAG,CAAI,cAAS,UAAhB;AAGI,2BAAe;AACf,sBAAS;OAJb;AAeU;AAEV,yBAAe;AAnBO;AAmDC;AAAR;AAEf,eAAU;AAFK;AAAQ;AA7BF;AAAN;AAEf;AAEA,UAAG,CAAI,mBAAP,EACE,aADF;AAGA,UAAG,cAAH;AAEE,iBAAU;AACV;OAHF;AAMA,yBAAe;AACf,gBAAW;AACX,yBAAe;AAEf,UAAG,CAAI,OAAP;AAEE,iBAAU;AACV;;AAIA,iBAAU;AACV,sBAAS;;AAzBI;AAAM;AA1CW;AAEhC,UAAG,CAAY,CAAC,cAAD,SAAf;AAEE,yBAAa,mBAAc,QAAC;AAC5B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,gBAAT,GAA4B;AAC5B,2BAAe;OANjB;AASA;AAXgC;AAcR;AAEd,eAAV,KAAU;AACV;AAHwB;AAuLF;AAEtB;AAEA,UAAG,CAAI,mBAAP,EACE,MADF;AAGA,UAAG,oBAAU,UAAU,IAA6B,CAAzB,oBAAU,SAAQ,OAAO,IAAG,cAAC,4BAAO,6BAAR,CAAH,CAApD,EACE,cAAS,WADX;AAPsB;AAzwCf;;;AA4Ba,iCArFV,yBAqFU;AACC,kChCw8CV,4BgCx8CU;AACA,kCAhCD,mCAgCC;AA9Bd;AAiCG;;;;AAEA;;;AAER;AACA;AAHQ;;;;;AA2+LqB;AAE/B,oBAAS,WAAT,GAAuB;AACvB,oBAAS;AACT,uBAAY,CAAC,IAAD;AAJmB;AAOC;AAEhC,oBAAS,cAAC,CAAc,KAAd;AAFsB;AAhGD;AAAb;AAElB,eAAU,cAAS;AAFD;AAAa;AALD;AAAZ;AAElB,eAAU,cAAS;AAFD;AAAY;AAtCD;AAE7B,UAAY,cAAS,OAAV,QAAX;AAEE,YAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,sBAAS,OAAM,YAAC,CAAY,cAAZ;OALlB;AAF6B;AAnBA;AAE7B,UAAG,gBAAH,EACE,MADF;AAGA;AAEA,UAAG,CAAY,CAAC,cAAS,WAAC,EAAX,SAAf,EACE,MADF;AAGA,UAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,UAAW,CAAC,cAAS,OAAV,SAAkB,IAAI,CAAI,cAAS,WAAC,EAAO,UAAtD;AACE,qBAAQ,cAAS,OAAM,eAAC,EAAxB;AAEA,yBAAQ,EAAR;AAhB2B;AA7EE;AAE/B;AAEA,UAAY,cAAS,WAAC,EAAX,QAAX;AAEE,YAAG,CAAI,cAAS,WAAC,EAAO,UAAC,EAAO,IAAG,CAAI,oBAAU,SAAjD;AACE,uBAAQ,EAAR;AAEA,cAAA,eAAU,CAAC,IAAD;OALd;AAJ+B;AA0DD;AAAZ;AAElB,eAAU,aAAO,CAAC,qBAAY,oBAAW,cAAxB;AAFC;AAAY;AAoEC;AAAb;AAElB,UAAY,oBAAD,QAAX;AACE,iBAAU,CAAI,cAAS,WAAC,EAAO,mBAA+F,IAApD,CAApB,oBAAU,UAAU,IAA6B,CAAzB,oBAAU,SAAQ,OAAO,IAAG,cAAC,4BAAO,6BAAR,CAAH,CAA7B,CAAzB,IAAiF,cAAS,OAAb;AAE9H,qBAAU;AALM;AAAa;AA+BH;AAAV;AAElB,eAAU,cAAS,IAAG,CAAI,mBAAP;AAFD;AAAU;AALD;AAAT;AAElB,eAAU,aAAQ,IAAI,mBAAJ;AAFA;AAAS;AARK;AAAd;AAElB,UAAG,CAAI,mBAAP;AACE,iBAAU;AAEV,qBAAoB;AALJ;AAAc;AAkBN;AAE1B;AAGA,UAAG,CAAI,mBAAP,EACE,MADF;AAGA,UAAQ,CAAJ,SAAI,KAAE,EAAF,CAAgC,IAAX,CAAJ,SAAI,KAAE,CAAF,CAAR,IAAyC,CAAb,CAAJ,SAAI,KAAE,EAAF,CAAa,IAAa,CAAR,iCAAQ,IAAG,KAAH,CAAb,CAA9D;AAEE,2BAAe;AACf,kBAAW;AACX,2BAAe;AAEf,YAAG,CAAI,OAAP;AAEE,kBAAO,CAAP;AACA;AACA;;AAIA;AACA,wBAAS;;OAIX;AA3BwB;AA8BC;AAE3B;AAEA,UAAG,CAAI,mBAAa,IAAG,cAAvB;AAEE;AACA;OAHF;AAMA,UAAG,cAAS,WAAC,EAAO,mBAApB;AAEE;AACA;AACA;OAJF;AAOA,yBAAe;AACf,gBAAW;AACX,yBAAe;AAEf,UAAG,CAAI,OAAP;AAEE,gBAAO,MAAP;AACA;OAHF;AAMA,UAC6C,cAAS,UADtD;AAGE,gBAAO,MAAP;OAHF;AAMkB,4DAAC,GAAD;AAjCS;AA/EF;AAEzB,UAAG,CAAI,cAAS,UAAhB;AAEE,2BAAe;AACf,sBAAS;OAHX;AAMU;AAEV,yBAAe;AAVU;AAvEC;AAAR;AAElB,eAAU;AAFQ;AAAQ;AA7BF;AAAN;AAElB;AAEA,UAAG,CAAI,mBAAP,EACE,aADF;AAGA,UAAG,cAAH;AAEE,iBAAU;AACV;OAHF;AAMA,yBAAe;AACf,gBAAW;AACX,yBAAe;AAEf,UAAG,CAAI,OAAP;AAEE,iBAAU;AACV;;AAIA,iBAAU;AACV,sBAAS;;AAzBO;AAAM;AAkDW;AAEnC,UAAG,CAAY,CAAC,cAAD,SAAf;AAEE,yBAAa,mBAAc,QAAC;AAC5B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,gBAAT,GAA4B;AAC5B,2BAAe;OANjB;AASA;AAXmC;AA4CR;AAEjB,eAAV,KAAU;AACV;AAH2B;AA5DF;AAEzB;AAEA,UAAG,CAAI,mBAAP,EACE,MADF;AAGA,UAAG,oBAAU,UAAU,IAA6B,CAAzB,oBAAU,SAAQ,OAAO,IAAG,cAAC,4BAAO,6BAAR,CAAH,CAApD,EACE,cAAS,WADX;AAPyB;AAtzLf;;;AA2BU,iCAvHV,yBAuHU;AACC,kChCs6CV,4BgCt6CU;AA5BX;AA+BG;;;;AAEF;;;AAET;AACA;AACA;AAJS;;;;;AAw6JoB;AAAZ;AAEnB,eAAU,cAAS;AAFA;AAAY;AAKC;AAAb;AAEnB,eAAU,cAAS;AAFA;AAAa;AAuFA;AAEhC,oBAAS,WAAT,GAAuB;AACvB,oBAAS;AACT,uBAAY,CAAC,IAAD;AAJoB;AAOC;AAEjC,oBAAS,cAAC,CAAc,KAAd;AACV,oBAAS;AAHwB;AAzIH;AAE9B,UAAY,cAAS,OAAV,QAAX;AAEE,YAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,sBAAS,OAAM,YAAC,CAAY,kBAAZ;OALlB;AAF8B;AAnBA;AAE9B,UAAG,gBAAH,EACE,MADF;AAGA,UAAG,CAAY,CAAC,cAAS,WAAC,EAAX,SAAf,EACE,MADF;AAGA,UAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,UAAW,CAAC,cAAS,OAAV,SAAkB,IAAK,CAAI,cAAS,WAAC,EAAO,UAAvD;AACE,0BAAc,cAAS,OAAM,eAAC;AAE9B,8BAAc;AAEhB,uBAAY,eAAZ;AAhB8B;AA/EE;AAEhC;AAEA,UAAY,cAAS,WAAC,EAAX,QAAX;AAEE,YAAG,CAAI,cAAS,WAAC,EAAO,UAAC,EAAO,IAAG,CAAI,oBAAU,SAAjD;AACE,2BAAY,EAAZ;AAEA,cAAA,eAAU,CAAC,IAAD;OALd;AAJgC;AA4DD;AAAZ;AAEnB,eAAU,aAAO,CAAC,qBAAY,oBAAW,cAAxB;AAFE;AAAY;AAoEC;AAAb;AAEnB,UAAY,oBAAD,QAAX;AACE,iBAAU,CAAI,cAAS,WAAC,EAAO,mBAA+F,IAApD,CAApB,oBAAU,UAAU,IAA4B,CAAxB,cAAS,WAAC,EAAO,OAAO,IAAG,cAAC,4BAAQ,6BAAT,CAAH,CAA5B,CAAzB,IAAiF,cAAS,OAAb;AAE9H,qBAAU;AALO;AAAa;AAiCH;AAAV;AAEnB,eAAU,cAAS,IAAG,CAAI,mBAAP;AAFA;AAAU;AALD;AAAT;AAEnB,eAAU,aAAQ,IAAI,mBAAJ;AAFC;AAAS;AAVK;AAAd;AAEnB,UAAG,CAAI,mBAAP;AAEE,iBAAU;OAGV,eAAoB;AAPH;AAAc;AAoBN;AAE3B;AAEA,UAAG,CAAI,mBAAP,EACE,MADF;AAGA,UAAQ,CAAJ,SAAI,KAAE,EAAF,CAAgC,IAAX,CAAJ,SAAI,KAAE,CAAF,CAAR,IAAyC,CAAb,CAAJ,SAAI,KAAE,EAAF,CAAa,IAAa,CAAR,iCAAQ,IAAG,KAAH,CAAb,CAA9D;AAEE,2BAAe;AACf,kBAAW;AACX,2BAAe;AAEf,YAAG,CAAI,OAAP;AAEE,kBAAO,CAAP;AACA;AACA;;AAIA;AACA,wBAAS;;OAIX;AA1ByB;AA6BC;AAE5B;AAEA,UAAG,CAAI,mBAAa,IAAG,cAAvB;AAEE;AACA;OAHF;AAMA,UAAG,cAAS,WAAC,EAAO,mBAApB;AAEE;AACA;AACA;OAJF;AAOA,yBAAe;AACf,gBAAW;AACX,yBAAe;AAEf,UAAG,CAAI,OAAP,EACE,MADF;AAGA,UAC4C,cAAS,UADrD;AAGE,gBAAO,MAAP;OAHF;AAMkB,4DAAC,GAAD;AA9BU;AAhFF;AAE1B,UAAG,CAAI,cAAS,UAAhB;AAEE,2BAAe;AACf,sBAAS;OAHX;AAMU;AAEV,yBAAe;AAVW;AAzEC;AAAR;AAEnB,eAAU;AAFS;AAAQ;AA7BF;AAAN;AAEnB;AAEA,UAAG,CAAI,mBAAP,EACE,aADF;AAGA,UAAG,cAAH;AAEE,iBAAU;AACV;OAHF;AAMA,yBAAe;AACf,gBAAW;AACX,yBAAe;AAEf,UAAG,CAAI,OAAP;AAEE,iBAAU;AACV;;AAIA,iBAAU;AACV,sBAAS;;AAzBQ;AAAM;AAoDW;AAEpC,UAAG,CAAY,CAAC,cAAD,SAAf;AAEE,yBAAa,mBAAc,QAAC;AAC5B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,gBAAT,GAA4B;AAC5B,2BAAe;OANjB;AASA;AAXoC;AA4CR;AAElB,eAAV,KAAU;AACV;AAH4B;AA9DF;AAE1B;AAEA,UAAG,CAAI,mBAAP,EACE,MADF;AAGA,UAAG,oBAAU,UAAU,IAA6B,CAAzB,oBAAU,SAAQ,OAAO,IAAG,cAAC,8BAAU,2BAAX,CAAH,CAApD;AAEE,sBAAS;OAFX;AAP0B;AA/0Jf;;;AA4BS,iCAzJV,yBAyJU;AACC,kChCo4CV,4BgCp4CU;AA7BV;AAgCG;;;;AAGN;;;AAEN;AAFM;;;;;AAisCqB;AAE7B,oBAAS,WAAT,GAAuB;AACvB,oBAAS;AACT,uBAAY,CAAC,IAAD;AAJiB;AAwBC;AAE9B,oBAAS,cAAC,CAAc,KAAd;AAFoB;AAjBD;AAAb;AAEhB,eAAU,cAAS;AAFH;AAAa;AAZD;AAAZ;AAEhB,eAAU,cAAS;AAFH;AAAY;AAkCA;AAAZ;AAEhB,eAAU,aAAO,CAAC,qBAAY,oBAAW,cAAxB;AAFD;AAAY;AAhBE;AAAd;AAEhB,UAAG,mBAAH;AACE,iBAAoB;;AAGpB,YAAI,2CAAY,IAAG,oBAAnB,EACE,SAAU,IAAI,MADhB;;AANc;AAAc;AAwCH;;AAOA;AAE3B,UAAG,CAAY,CAAC,cAAS,WAAC,EAAX,SAAf,EACE,MADF;AAGA,UAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,UAAW,CAAC,cAAS,OAAV,SAAkB,IAAI,CAAI,cAAS,WAAC,EAAO,UAAtD;AACE,wBAAW,cAAS,OAAM,eAAC,EAA3B;AAEA,4BAAW,EAAX;AAXyB;AAcE;AAE5B,UAAY,cAAS,WAAC,EAAX,QAAX;AAEE,YAAG,CAAI,cAAS,WAAC,EAAO,UAAC,EAAO,IAAG,CAAI,oBAAU,SAAjD;AACE,0BAAW,EAAX;AAEA,cAAA,eAAU,CAAC,IAAD;OALd;AAF4B;AAxCI;AAEjC,UAAG,CAAY,CAAC,cAAD,SAAf;AAEE,yBAAa,mBAAc,QAAC;AAC5B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,gBAAT,GAA4B;OAL9B;AAQA;AAViC;AAaR;AAEf,eAAV,KAAU;AACV;AAHyB;AAhvCjB;;;AAiBY,iCAjLV,yBAiLU;AACC,kChC42CV,4BgC52CU;AAlBb;AAqBG;;;;AAEA;;;AAET;AACA;AAHS;;;;;AA+nDqB;AAEhC,oBAAS,WAAT,GAAuB;AACvB,oBAAS;AACT,uBAAY,CAAC,IAAD;AAJoB;AA8BC;AAEjC,oBAAS,cAAC,CAAc,KAAd;AAFuB;AAvBD;AAAb;AAEnB,eAAU,cAAS;AAFA;AAAa;AAZD;AAAZ;AAEnB,eAAU,cAAS;AAFA;AAAY;AA0FD;AAE9B,UAAY,cAAS,OAAV,QAAX;AAEE,YAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,sBAAS,OAAM,aAAC,CAAa,eAAb;OALlB;AAF8B;AAWA;AAE9B,UAAG,gBAAH,EACE,MADF;AAGA,UAAG,CAAY,CAAC,cAAS,WAAC,EAAX,SAAf,EACE,MADF;AAGA;AAEA,UAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,UAAW,CAAC,cAAS,OAAV,SAAkB,IAAI,CAAI,cAAS,WAAC,EAAO,UAAtD;AACE,sBAAS,cAAS,OAAM,aAAC,EAAzB;AAEA,0BAAS,CAAT;AAhB4B;AAmBE;AAE/B,UAAY,cAAS,WAAC,EAAX,QAAX;AAEE,YAAG,CAAI,cAAS,WAAC,EAAO,UAAC,EAAO,IAAG,CAAI,oBAAU,SAAjD;AAEE,uBAAQ,EAAR;AACA,wBAAS,CAAT;SAGA,MAAA,eAAU,CAAC,IAAD;OARd;AAF+B;AAtCA;AAAb;AAEnB,UAAY,oBAAD,QAAX;AACE,iBAAU,CAAI,cAAS,WAAC,EAAO,mBAA+F,IAApD,CAApB,oBAAU,UAAU,IAA4B,CAAxB,cAAS,WAAC,EAAO,OAAO,IAAG,cAAC,8BAAU,2BAAX,CAAH,CAA5B,CAAzB,IAAiF,cAAS,OAAb;AAE9H,qBAAU;AALO;AAAa;AApDH;AAAV;AAEnB,eAAU,cAAS,IAAG,CAAI,mBAAP;AAFA;AAAU;AALD;AAAT;AAEnB,eAAU,aAAyB,IAAb,mBAAJ,IAA0C,CAApB,oBAAU,UAAU,IAA6B,CAAzB,oBAAU,SAAQ,OAAO,IAAG,cAAC,4BAAO,6BAAR,CAAH,CAA7B,CAAzB;AAFhB;AAAS;AA6MG;AAAZ;AAEnB,eAAU,aAAO,CAAC,qBAAY,oBAAW,cAAxB;AAFE;AAAY;AArNE;AAAd;AAEnB,UAAG,CAAI,mBAAP;AACE,iBAAU;AAEV,qBAAoB;AALH;AAAc;AAqHN;AAE3B;AAGA,UAAG,CAAY,CAAC,oBAAD,SAAf;AAEE;AACA;OAHF;AAMA,UAAG,CAAI,cAAS,WAAC,EAAO,UAAC,EAAO,IAAG,CAAI,oBAAU,SAAjD;AAEE;AACA;OAHF;AAMA,UAAQ,CAAJ,SAAI,KAAE,EAAF,CAAgC,IAAX,CAAJ,SAAI,KAAE,CAAF,CAAR,IAAyC,CAAb,CAAJ,SAAI,KAAE,EAAF,CAAa,IAAa,CAAR,iCAAQ,IAAG,KAAH,CAAb,CAA9D;AAEE,2BAAe;AACf,kBAAW;AACX,2BAAe;AAEf,YAAG,CAAI,OAAP;AAEE,kBAAO,CAAP;AACA;AACA;;AAIA;AACA,wBAAS;;OAfb;AAjB2B;AAqCC;AAE5B;AAEA,UAAG,CAAI,mBAAa,IAAG,cAAvB;AAEE;AACA;OAHF;AAMA,UAAG,cAAS,WAAC,EAAO,mBAApB;AAEE;AACA;AACA;OAJF;AAOA,UAAG,CAAI,cAAS,WAAC,EAAO,UAAC,EAAO,IAAG,CAAI,oBAAU,SAAjD;AAEE;AACA;OAHF;AAMA,yBAAe;AACf,gBAAW;AACX,yBAAe;AAEf,UAAG,CAAI,OAAP,EACE,MADF;AAGA,UAC4C,cAAS,UADrD;AAGE,gBAAO,MAAP;OAHF;AAMkB,0DAAC,GAAD;AApCU;AAuCF;AAE1B;AAEA;AAEA,UAAG,CAAI,mBAAP,EACE,MADF;AAGA,yBAAe;AACf,gBAAW;AACX,yBAAe;AAEf,UAAG,OAAH;AAEE,sBAAS;AACT,sBAAS;OAHX;AAb0B;AAtJA;AAE1B,UAAG,CAAI,cAAS,UAAhB;AAGI,2BAAe;AACf,sBAAS;OAJb;AAeU;AAEV,yBAAe;AAnBW;AApBU;AAEpC,UAAG,CAAY,CAAC,cAAD,SAAf;AAEE,yBAAa,mBAAc,QAAC;AAC5B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,gBAAT,GAA4B;AAC5B,2BAAe;OANjB;AASA;AAXoC;AAcR;AAElB,eAAV,KAAU;AACV;AAH4B;AAhrDjB;;;AAyBS,iCAhNV,yBAgNU;AACC,kChC60CV,4BgC70CU;AA1BV;AA6BG;;;;AAEH;;;AAET;AACA;AACA;AACA;AALS;;;;;AAw0DqB;AAEhC,oBAAS,WAAT,GAAuB;AACvB,oBAAS;AACT,uBAAY,CAAC,IAAD;AAJoB;AAOC;AAEjC,oBAAS,cAAC,CAAc,KAAd;AAFuB;AAKD;AAAb;AAEnB,eAAU,cAAS;AAFA;AAAa;AAUD;AAAZ;AAEnB,eAAU,cAAS;AAFA;AAAY;AA2GA;AAAZ;AAElB,eAAU,aAAO,CAAC,qBAAY,oBAAW,cAAxB;AAFC;AAAY;AA5DC;AAAb;AAEnB,UAAY,oBAAD,QAAX;AACE,iBAAU,CAAI,cAAS,WAAC,EAAO,mBAA+F,IAApD,CAApB,oBAAU,UAAU,IAA4B,CAAxB,cAAS,WAAC,EAAO,OAAO,IAAG,cAAC,4BAAQ,6BAAT,CAAH,CAA5B,CAAzB,IAAiF,cAAS,OAAb;AAE9H,qBAAU;AALO;AAAa;AA1CF;AAE9B,UAAY,cAAS,OAAV,QAAX;AAEE,YAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,YAAG,cAAS,OAAM,UAAU,KAAE,0BAA9B;AAEE,cAAG,iBAAH;AACE,0BAAS,OAAM,YAAC,CAAY,kBAAZ;AAEA,gBAAhB,cAAS,OAAM,YAAC,CAAY,oBAAZ;SAGF,MAAhB,cAAS,OAAM,aAAC,CAAa,iBAAb;OAbpB;AAF8B;AAmBA;AAE9B;AACA,UAAG,gBAAH,EACE,MADF;AAGA,UAAG,CAAY,CAAC,cAAS,WAAC,EAAX,SAAf,EACE,MADF;AAGA,UAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,UAAW,CAAC,cAAS,OAAV,SAAkB,IAAI,CAAI,cAAS,WAAC,EAAO,UAAtD;AAEE,YAAG,cAAS,OAAM,UAAU,KAAE,0BAA9B;AACE,0BAAW,cAAS,OAAM,YAAC,EAAS,KAAE,kBAAtC;AAEA,8BAAW,cAAS,OAAM,aAAC,EAA3B;OAGF,sBAAW,KAAX;AApB4B;AAgDE;AAEhC;AACA,UAAY,cAAS,WAAC,EAAX,QAAX;AAEE,YAAG,CAAI,cAAS,WAAC,EAAO,UAAC,EAAO,IAAG,CAAI,oBAAU,SAAjD;AACE,0BAAW,KAAX;AAEA,cAAA,eAAU,CAAC,IAAD;OALd;AAHgC;AAjBE;AAElC,UAAW,CAAC,cAAS,OAAV,SAAkB,IAAI,CAAI,cAAS,WAAC,EAAO,UAAtD;AAEE,YAA6B,CAAzB,cAAS,OAAM,UAAU,KAAE,0BAAF,CAAqC,IAAP,CAAb,kBAAa,KAAG,EAAH,CAAlB,IAA6C,CAAf,oBAAe,KAAG,EAAH,CAAtF;AAEE,cAAI,cAAS,OAAM,YAAC,EAAS,KAAE,EAA/B;AAEE,gBAAG,iBAAH;AACE,4BAAS,OAAM,YAAC,CAAY,kBAAZ;AAEA,kBAAhB,cAAS,OAAM,YAAC,CAAY,oBAAZ;WALpB;SAFF;OAFF;AAFkC;AA5DN;AAAT;AAEnB,eAAU,aAAyB,IAAb,mBAAJ,IAA0C,CAApB,oBAAU,UAAU,IAA6B,CAAzB,oBAAU,SAAQ,OAAO,IAAG,cAAC,4BAAO,6BAAR,CAAH,CAA7B,CAAzB;AAFhB;AAAS;AAqHH;AAEzB;AAEA;AAEA,UAAG,CAAY,CAAC,oBAAD,SAAf,EACE,MADF;AAGA,UAAG,CAAI,cAAS,WAAC,EAAO,UAAC,EAAO,IAAG,CAAI,oBAAU,SAAjD,EACE,MADF;AAGA,yBAAe;AACf,gBAAW;AACX,yBAAe;AAEf,UAAG,OAAH;AAEE,sBAAS;AACT,sBAAS;OAHX;AAhByB;AA5BW;AAEpC,UAAG,CAAY,CAAC,cAAD,SAAf;AAEE,yBAAa,mBAAc,QAAC;AAC5B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,gBAAT,GAA4B;AAC5B,sBAAS,kBAAT,GAA8B;AAC9B,2BAAe;AACf,6BAAiB;AACjB,+BAAmB;OATrB;AAYA;AAdoC;AAiBR;AAElB,eAAV,KAAU;AACA;AAHkB;AAn8DjB;;;AAuBS,iCA7OV,yBA6OU;AACC,kChCgzCV,4BgChzCU;AACE;AACE;AA1Bd;AA6BG;;;;AAEG;;;AAEf;AACA;AAHe;;;;;AAw8DqB;AAEtC,oBAAS,WAAT,GAAuB;AACvB,oBAAS;AACT,uBAAY,CAAC,IAAD;AAJ0B;AAOC;AAEvC,oBAAS,cAAC,CAAc,KAAd;AAF6B;AAKD;AAAb;AAEzB,eAAU,cAAS;AAFM;AAAa;AAsED;AAAZ;AAEzB,eAAU,cAAS;AAFM;AAAY;AAgGA;AAAZ;AAEzB,eAAU,aAAO,CAAC,qBAAY,oBAAW,cAAxB;AAFQ;AAAY;AAxCC;AAAb;AAEzB,UAAY,oBAAD,QAAX;AACE,iBAAU,CAAI,cAAS,WAAC,EAAO,mBAA+F,IAApD,CAApB,oBAAU,UAAU,IAA4B,CAAxB,cAAS,WAAC,EAAO,OAAO,IAAG,cAAC,4BAAQ,6BAAT,CAAH,CAA5B,CAAzB,IAAiF,cAAS,OAAb;AAE9H,qBAAU;AALa;AAAa;AA/GL;AAEjC;AAGA,UAAG,CAAI,mBAAP;AAEE;AACA;OAHF;AAMA,UAAG,CAAI,cAAS,WAAC,EAAO,UAAC,EAAO,IAAG,CAAI,oBAAU,SAAjD;AAEE;AACA;OAHF;AAMA,UAAQ,CAAJ,SAAI,KAAE,EAAF,CAAgC,IAAX,CAAJ,SAAI,KAAE,CAAF,CAAR,IAAyC,CAAb,CAAJ,SAAI,KAAE,EAAF,CAAa,IAAa,CAAR,iCAAQ,IAAG,KAAH,CAAb,CAA9D;AAEE,2BAAe;AACf,kBAAW;AACX,2BAAe;AAEf,YAAG,CAAI,OAAP;AAEE,kBAAO,CAAP;AACA;AACA;;AAIA;AACA,wBAAS;;OAfb;AAjBiC;AAqCC;AAElC,UAAG,CAAI,mBAAa,IAAG,cAAvB;AAEE;AACA;OAHF;AAMA,UAAG,cAAS,WAAC,EAAO,mBAApB;AAEE;AACA;AACA;OAJF;AAOA;AAfkC;AAuBE;AAEpC,UAAY,cAAS,OAAV,QAAX;AAEE,YAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,2BAAe;AAEf,sBAAS,OAAM,cAAC,CAAc,kBAAd;OAPlB;AAUA,yBAAe;AAZqB;AAeA;AAEpC;AAEA;AAEA,UAAG,gBAAH,EACE,MADF;AAGA,UAAG,CAAY,CAAC,cAAS,WAAC,EAAX,SAAf,EACE,MADF;AAGA,UAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,UAAW,CAAC,cAAS,OAAV,SAAkB,IAAI,CAAI,cAAS,WAAC,EAAO,UAAtD;AAEE,YAAG,cAAS,OAAM,YAAC,EAAS,KAAE,EAA9B;AACE;AAEA,kBAAG,8BAAW,cAAc,CAAC,cAAS,OAAM,YAAC,EAAjB,CAA5B;AACE,2BAAY,8BAAW,cAAc,CAAC,cAAS,OAAM,YAAC,EAAjB,CAArC;AAEA,kBAAG,6BAAgB,CAAC,cAAS,OAAM,YAAC,GAAU;;;;YAA3B,CAAnB;AACE,2BAAY,EAAZ;AAEA;;AAIN,qBAAQ,CAAR;AACA,qBAAQ,CAAR;;AA/BkC;AA6CE;AAEtC;AAEA,UAAY,cAAS,WAAC,EAAX,QAAX;AAEE,YAAG,CAAI,cAAS,WAAC,EAAO,UAAC,EAAO,IAAG,CAAI,oBAAU,SAAjD;AAEE,uBAAQ,kBAAR;SAGA,MAAA,eAAU,CAAC,IAAD;OAPd;AAJsC;AAeN;AAEhC;AAEA,UAAG,CAAI,mBAAP,EACE,MADF;AAGA,UAAG,oBAAU,UAAU,IAA6B,CAAzB,oBAAU,SAAQ,OAAO,IAAG,cAAC,4BAAQ,6BAAT,CAAH,CAApD;AAEE,2BAAe;AACf,sBAAS;AACT,sBAAS;AACT,2BAAe;OALjB;AAPgC;AA5IG;AAAV;AAEzB,eAAU,cAAS,IAAG,CAAI,mBAAP;AAFM;AAAU;AALD;AAAT;AAEzB,eAAU,aAAyB,IAAb,mBAAJ,IAA0C,CAApB,oBAAU,UAAU,IAA6B,CAAzB,oBAAU,SAAQ,OAAO,IAAG,cAAC,4BAAO,6BAAR,CAAH,CAA7B,CAAzB;AAFV;AAAS;AA2LF;AAEhC,UAAG,CAAI,cAAS,UAAhB;AAGI,2BAAe;AACf,sBAAS;OAJb;AAeU;AAEV,yBAAe;AAnBiB;AArBU;AAE1C,UAAG,CAAY,CAAC,cAAD,SAAf;AAEE,yBAAa,mBAAc,QAAC;AAC5B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,gBAAT,GAA4B;AAC5B,2BAAe;OANjB;AASA;AAX0C;AAcR;AAExB,eAAV,KAAU;AACA;AAHwB;AA7oEjB;;;AAwBG,iCA7QV,yBA6QU;AACC,kChCgxCV,4BgChxCU;AAzBJ;AA4BG;;;;AAGE;;;AAEpB;AACA;AAHoB;;;;;AAyiMqB;AAE3C,oBAAS,WAAT,GAAuB;AACvB,oBAAS;AACT,uBAAY,CAAC,IAAD;AAJ+B;AAOC;AAE5C,oBAAS,cAAC,CAAc,KAAd;AAFkC;AAlGD;AAAb;AAE9B,eAAU,cAAS;AAFW;AAAa;AALD;AAAZ;AAE9B,eAAU,cAAS;AAFW;AAAY;AAtCD;AAEzC,UAAY,cAAS,OAAV,QAAX;AAEE,YAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,sBAAS,OAAM,YAAC,CAAY,cAAZ;OALlB;AAFyC;AAnBA;AAEzC,UAAG,gBAAH,EACE,MADF;AAGA;AAEA,UAAG,CAAY,CAAC,cAAS,WAAC,EAAX,SAAf,EACE,MADF;AAGA,UAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,UAAW,CAAC,cAAS,OAAV,SAAkB,IAAI,CAAI,cAAS,WAAC,EAAO,UAAtD;AACE,qBAAQ,cAAS,OAAM,eAAC,EAAxB;AAEA,yBAAQ,EAAR;AAhBuC;AA/EE;AAE3C;AAEA,UAAY,cAAS,WAAC,EAAX,QAAX;AAEE,YAAG,CAAI,cAAS,WAAC,EAAO,UAAC,EAAO,IAAG,CAAI,oBAAU,SAAjD;AACE,uBAAQ,EAAR;AAEA,cAAA,eAAU,CAAC,IAAD;OALd;AAJ2C;AA4DD;AAAZ;AAE9B,eAAU,aAAO,CAAC,qBAAY,oBAAW,cAAxB;AAFa;AAAY;AAoEC;AAAb;AAE9B,UAAY,oBAAD,QAAX;AACE,iBAAU,CAAI,cAAS,WAAC,EAAO,mBAA+F,IAApD,CAApB,oBAAU,UAAU,IAA6B,CAAzB,oBAAU,SAAQ,OAAO,IAAG,cAAC,4BAAO,6BAAR,CAAH,CAA7B,CAAzB,IAAiF,cAAS,OAAb;AAE9H,qBAAU;AALkB;AAAa;AAiCH;AAAV;AAE9B,eAAU,cAAS,IAAG,CAAI,mBAAP;AAFW;AAAU;AALD;AAAT;AAE9B,eAAU,aAAQ,IAAI,mBAAJ;AAFY;AAAS;AAUD;AAEtC;AAGA,UAAG,CAAI,mBAAP,EACE,MADF;AAGA,UAAQ,CAAJ,SAAI,KAAE,EAAF,CAAgC,IAAX,CAAJ,SAAI,KAAE,CAAF,CAAR,IAAyC,CAAb,CAAJ,SAAI,KAAE,EAAF,CAAa,IAAa,CAAR,iCAAQ,IAAG,KAAH,CAAb,CAA9D;AAEE,2BAAe;AACf,kBAAW;AACX,2BAAe;AAEf,YAAG,CAAI,OAAP;AAEE,kBAAO,CAAP;AACA;AACA;;AAIA;AACA,wBAAS;;OAIX;AA3BoC;AA8BC;AAEvC;AAEA,UAAG,CAAI,mBAAP;AAEE;AACA;OAHF;AAMA,UAAG,cAAS,WAAC,EAAO,mBAApB;AAEE;AACA;AACA;OAJF;AAOA,yBAAe;AACf,gBAAW;AACX,yBAAe;AAEf,UAAG,CAAI,OAAP;AAEE,gBAAO,MAAP;AACA;OAHF;AAMA,UAC6C,cAAS,UADtD;AAGE,gBAAO,MAAP;OAHF;AAMkB,yDAAC,GAAD;AAjCqB;AAjFF;AAErC,UAAG,CAAI,cAAS,UAAhB;AAEE,2BAAe;AACf,sBAAS;OAHX;AAMU;AAEV,yBAAe;AAVsB;AAlDU;AAE/C,UAAG,CAAY,CAAC,cAAD,SAAf;AAEE,yBAAa,mBAAc,QAAC;AAC5B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,gBAAT,GAA4B;AAC5B,2BAAe;OANjB;AASA;AAX+C;AA4CR;AAE7B,eAAV,KAAU;AACV;AAHuC;AA96LjB;;;AA2BF,iCA/SV,yBA+SU;AACC,kChC8uCV,4BgC9uCU;AA5BC;AA+BG;;;;AAGd;;;AAET;AACA;AACA;AACA;AACA;AANS;;;;;;AAunEqB;AAEhC,oBAAS,WAAT,GAAuB;AACvB,2BAAgB,CAAC,IAAD;AAHgB;AAMC;AAEjC,oBAAS,cAAC,CAAc,KAAd;AAFuB;AAUF;AAAZ;AAEnB,eAAU,cAAS;AAFA;AAAY;AAKC;AAAb;AAEnB,eAAU,cAAS;AAFA;AAAa;AAjCA;AAEhC,oBAAS,WAAT,GAAuB;AACvB,oBAAS;AACT,uBAAY,CAAC,IAAD;AAJoB;AAOC;AAEjC,oBAAS,cAAC,CAAc,KAAd;AAFuB;AAgBD;AAAb;AAEnB,eAAU,cAAS;AAFA;AAAa;AA+DD;AAAZ;AAEnB,eAAU,cAAS;AAFA;AAAY;AA8DC;AAAb;AAEnB,UAAY,oBAAD,QAAX;AACE,iBAAU,CAAI,cAAS,WAAC,EAAO,mBAA+F,IAApD,CAApB,oBAAU,UAAU,IAA4B,CAAxB,cAAS,WAAC,EAAO,OAAO,IAAG,cAAC,4BAAQ,6BAAT,CAAH,CAA5B,CAAzB,IAAiF,cAAS,OAAb;AAE9H,qBAAU;AALO;AAAa;AA+BD;AAAZ;AAEnB,eAAU,aAAO,CAAC,qBAAY,oBAAW,cAAxB;AAFE;AAAY;AAxFD;AAE9B;AAEA,UAAY,cAAS,OAAV,QAAX;AAEE,YAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,YAAK;AAEL,YAAqC,CAAjC,cAAG,CAAC,WAAK,sBAAC,GAAoB,CAA3B,CAA8B,GAAE,CAAF,CAA+D,IAAtD,CAAY,CAAC,oBAAD,SAAhB,IAAwC,CAAN,WAAM,KAAE,oDAAF,CAAX,IAA4C,CAAV,mBAAU,IAAG,CAAH,CAAnH;AAEE,cAAK,WAAK,QAAM,CAAC,mBAAD;SAFlB;AAKA,sBAAS,OAAM,YAAC,CAAY,CAAZ;OAZlB;AAJ8B;AAoBA;AAE9B;AAEA,UAAG,gBAAH,EACE,MADF;AAGA,UAAG,CAAY,CAAC,oBAAD,SAAf,EACE,MADF;AAGA,UAAG,CAAY,CAAC,cAAS,WAAC,EAAX,SAAf,EACE,MADF;AAGA,UAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,UAAW,CAAC,cAAS,OAAV,SAAkB,IAAI,CAAI,cAAS,WAAC,EAAO,UAAtD;AAEE,YAAG,WAAM,KAAE,gDAAX;AACE,uBAAQ,cAAS,OAAM,eAAC,EAAxB;;AAGA,cAAgB,CAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,CAAuD,IAAL,CAAxC,cAAG,CAAC,WAAK,sBAAC,GAAoB,WAAK,KAAC,CAAD,CAAhC,CAAqC,GAAE,CAAF,CAA7C,IAAsD,CAAY,CAAC,oBAAD,SAAvF;AAEE,8BAAa,WAAK,YAAY,CAAC,cAAS,OAAM,eAAC,EAAjB,CAA9B;;AAIA,8BAAa,WAAK,QAAQ,CAAC,cAAS,OAAM,eAAC,EAAjB,CAA1B;;;OAKJ,wBAAa,CAAC,CAAd;AAjC4B;AAyEE;AAEhC;AAEA,UAAY,cAAS,WAAC,EAAX,QAAX;AAGE,YAAG,CAAI,cAAS,WAAC,EAAO,UAAC,EAAO,IAAG,CAAI,oBAAU,SAAjD;AAEE,uBAAQ,EAAR;SAGA,MAAA,eAAU,CAAC,IAAD;OARd;AAJgC;AAnII;AAEpC;AACA;AAEA,UAAG,CAAY,CAAC,oBAAD,SAAf,EACE,MADF;AAGA,UAAW,CAAC,cAAS,OAAV,SAA+E,IAAjD,CAAC,cAAS,WAAC,EAAX,SAAZ,IAAoC,cAAS,WAAC,EAAO,UAAC,EAAtB,IAAiC,CAAI,cAAS,WAAC,EAAO,UAAnH;AAEE,cAAO,cAAS,WAAC,EAAO,YAAY,CAAC,cAAS,WAAV;AAEpC,YAAY,GAAD,QAAX;AAEE,wBAAS,WAAC,EAAO;AACjB,qBAAM,cAAS,WAAC,EAAO,cAAvB;AACA,qBAAK;AACL,wBAAS,WAAC,EAAO;AAEjB,iBAAM,CAAI,cAAS,WAAC,EAAO,OAAC,EAA5B;AAEE,uBAAK,IAAI,CAAC,GAAG,eAAC,EAAL;AACT,0BAAS,WAAC,EAAO;;AAGnB,wBAAS,WAAC,EAAO,aAAa,CAAC,EAAD;AAC9B,yBAAU,CAAC,IAAD;AACV,wBAAS,WAAC,EAAO;SAfnB;OAJF;AARoC;AAVF;AAElC,UAAW,CAAC,cAAS,OAAV,SAA4H,IAA9F,CAAC,cAAS,WAAC,EAAX,SAAZ,IAAoC,cAAS,WAAC,EAAO,UAAC,EAAtB,IAAiC,CAA6B,CAAxB,cAAS,WAAC,EAAO,OAAO,KAAE,6BAAF,CAAjC,IAAiD,CAAI,gBAA/I;AAEE,2BAAe;AACf,6BAAgB,CAAC,IAAD;AAChB,2BAAe;OAJjB;AAFkC;AAiHR;AAE1B;AAEA,UAAG,CAAI,mBAAP,EACE,MADF;AAGA,UAAG,oBAAU,UAAU,IAA6B,CAAzB,oBAAU,SAAQ,OAAO,IAAG,cAAC,4BAAQ,6BAAT,CAAH,CAApD;AAEE,2BAAe;AACf,sBAAS;AACT,sBAAS;AAET,YAAc,CAAV,mBAAU,KAAG,CAAC,CAAJ,CAAyH,IAAvG,CAAN,WAAM,KAAE,oDAAF,CAAX,IAAyC,CAAC,cAAD,SAAZ,IAAoC,CAAC,cAAS,WAAC,EAAX,SAAZ,IAAoC,cAAS,WAAC,EAAO,UAAC,EAAtB,IAAiC,cAA3I;AAEE,wBAAS,WAAC,EAAO;AACjB,wBAAS,WAAC,EAAO,OAAO,CAAC,mBAAD;SAH1B;AAMA,2BAAe;OAZjB;AAP0B;AAtHE;AAAT;AAEnB,eAAU,aAAyB,IAAb,mBAAJ,IAA0C,CAApB,oBAAU,UAAU,IAA6B,CAAzB,oBAAU,SAAQ,OAAO,IAAG,cAAC,4BAAO,6BAAR,CAAH,CAA7B,CAAzB;AAFhB;AAAS;AA4LF;AAE1B,UAAG,CAAI,cAAS,UAAhB;AAGI,2BAAe;AACf,sBAAS;OAJb;AAeU;AAEV,yBAAe;AAnBW;AA1BU;AAEpC,UAAG,CAAY,CAAC,cAAD,SAAf;AAEE,yBAAa,mBAAc,QAAC;AAC5B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,gBAAT,GAA4B;AAE5B,yBAAa,mBAAc,QAAC;AAC5B,sBAAS,gBAAT,GAA4B;AAC5B,sBAAS,cAAT,GAA0B;AAE1B,2BAAe;OAXjB;AAcA;AAhBoC;AAmBR;AAElB,eAAV,KAAU;AACA,eAAV,KAAU;AACA;AAJkB;AAt0EjB;;;AA8BS,iCApVV,yBAoVU;AACC,kChCysCV,4BgCzsCU;AACD;AACC,kChCusCV,4BgCvsCU;AACF;AAlCR;AAqCG;;;;AAEG;;;AAEf;AACA;AACA;AACA;AACA;AACA;AACA;AARe;;;;;;AAwqKoB;AAAZ;AAEzB,eAAU,cAAS;AAFM;AAAY;AAKC;AAAb;AAEzB,eAAU,cAAS;AAFM;AAAa;AAgHA;AAEtC,oBAAS,WAAT,GAAuB;AAFe;AAKC;AAEvC,oBAAS,cAAC,CAAc,KAAd;AAF6B;AA1BD;AAEtC,oBAAS,WAAT,GAAuB;AACvB,oBAAS;AACT,uBAAY,CAAC,IAAD;AAJ0B;AAOC;AAEvC,UAAG,cAAS,YAAY,KAAG,KAA3B;AAEE,sBAAS,cAAC,CAAc,KAAd;AACV;OAHF;AAFuC;AA5GD;AAAb;AAEzB,eAAU,cAAS;AAFM;AAAa;AALD;AAAZ;AAEzB,eAAU,cAAS;AAFM;AAAY;AA0HA;AAErC,uBAAa;AAFwB;AAeH;AAElC;AACA,yBAAe;AAHmB;AAjGM;AAExC;AAAK;AACL;AAAM;AACN;AACA;AAEA,UAAW,CAAC,oBAAD,SAAyH,IAAhG,CAAC,oBAAU,SAAX,SAAZ,IAAsC,oBAAU,SAAQ,UAAC,EAAxB,IAA8C,CAAT,cAAS,KAAG,EAAH,CAAd,IAAoC,CAAV,mBAAU,KAAG,EAAH,CAAf,IAA0B,CAAI,kBAA5I;AAEE,6BAAiB;AACjB;AACE,iBAAQ,oBAAU,SAAQ,YAAY,CAAC,cAAD;AACtC,iBAAQ,oBAAU,SAAQ,YAAY,CAAC,mBAAD;AAFxC;AAIE,iBAAQ;AACR,iBAAQ;AALV;AAQA,YAAW,CAAC,IAAD,SAAO,IAAY,CAAC,IAAD,SAA9B;AAEE,kBAAS,oBAAU,SAAQ,OAAC;AAC5B,kBAAS,oBAAU,SAAQ,OAAC;AAE5B,8BAAU,SAAQ;AAElB,qBAAM,oBAAU,SAAQ,cAAxB;AAEA,4BAAY;AACZ,4BAAY;AAEZ,8BAAU,SAAQ;AAElB,iBAAM,CAAI,oBAAU,SAAQ,OAAC,EAA7B;AAEE,8BAAY,QAAQ,CAAC,IAAI,eAAC,GAAa,IAAI,eAAC,EAAxB;AACpB,gCAAU,SAAQ;;AAGpB,4BAAY;AAEZ,cAAG,oBAAU,SAAQ,cAAc,CAAC,2BAAD,CAAnC,EACC,oBAAU,SAAQ,aAAa,CAAC,EAAD,CADhC;AAGA,eAAM,oBAAU,SAAQ;AACxB,8BAAU,SAAQ,aAAlB,GAAkC;AAGlC,cAAG,KAAH,EACE,oBAAU,SAAQ,QADpB;AAGA,cAAG,KAAH,EACE,oBAAU,SAAQ,OADpB;AAGA;AAEA,8BAAU,SAAQ,aAAlB,GAAkC;AAClC,8BAAU,SAAQ;SAtCpB;AAwCA,6BAAiB;OAnDnB;AAuDA,UAAG,gBAAY,KAAG,EAAlB,EACE,cAAS,gBAAT,CADF;AA9DwC;AAhJH;AAAZ;AAEzB,eAAU,aAAO,CAAC,qBAAY,oBAAW,cAAxB;AAFQ;AAAY;AAKI;AAAhB;AAEzB,eAAkB,CAAC,cAAS,OAAV,SAAkD,IAApB,CAAC,cAAS,WAAC,EAAX,SAAZ,IAAoC,cAAS,WAAC,EAAO,UAAC,EAAtB;AAF3C;AAAgB;AA2FH;AAAb;AAEzB,UAAY,oBAAD,QAAX;AACE,iBAAU,CAAI,cAAS,WAAC,EAAO,mBAA+F,IAApD,CAApB,oBAAU,UAAU,IAA4B,CAAxB,cAAS,WAAC,EAAO,OAAO,IAAG,cAAC,4BAAQ,6BAAT,CAAH,CAA5B,CAAzB,IAAiF,cAAS,OAAb;AAE9H,qBAAU;AALa;AAAa;AAxCF;AAEpC,UAAY,cAAS,OAAV,QAAX;AAEE,YAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,sBAAS,OAAM,YAAC,CAAY,eAAZ;OALlB;AAFoC;AA1BA;AAEpC;AAEA,UAAG,gBAAH,EACE,MADF;AAGA,UAAG,CAAY,CAAC,oBAAD,SAAf,EACE,MADF;AAGA,UAAG,CAAY,CAAC,cAAS,WAAC,EAAX,SAAf,EACE,MADF;AAGA,UAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,UAAW,CAAC,cAAS,OAAV,SAAkB,IAAI,CAAI,cAAS,WAAC,EAAO,UAAtD;AAEE,sBAAS,cAAS,OAAM,eAAC,EAAzB;OAGA,wBAAa,CAAC,CAAd;AAEF;AAvBoC;AA/FE;AAEtC;AAEA,UAAY,cAAS,WAAC,EAAX,QAAX;AAEE,YAAG,CAAI,cAAS,WAAC,EAAO,UAAC,EAAO,IAAG,CAAI,oBAAU,SAAjD;AAEE,4BAAa,CAAC,CAAd;SAGA,MAAA,eAAU,CAAC,IAAD;OAPd;AAJsC;AAwME;AAExC,UAAG,iBAAH,EACE,MADF;AAGA,UAAG,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAlB,EACE,qBADF;AALwC;AANE;AAE1C,UAAG,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAlB,EACE,qBADF;AAF0C;AAnLV;AAEhC;AACA;AACA;AAEA,YAAO;AAEP,UAAG,CAAI,mBAAP;AAEE;AACA;OAHF;AAMA,YAAO;AACP,uBAAY;AAEZ;AAEA,UAAG,uBAAH,EACE,cAAS,WAAC,EAAO,kBADnB;AAGA,UAAG,oBAAU,UAAU,IAA6B,CAAzB,oBAAU,SAAQ,OAAO,IAAG,cAAC,4BAAQ,6BAAT,CAAH,CAApD;AAEE,2BAAe;AACf,sBAAS;AACT,cAAO;AACP;AACE,gBAAO,cAAS,WAAC,EAAO,YAAY,CAAC,mBAAD;AACpC,aAAG,YAAC,CAAY,eAAZ;AACJ,wBAAS;AAHX;;AAMA,2BAAe;OAXjB;AAcA;AAEA,uBAAY;AAEZ,UAAG,uBAAH,EACE,cAAS,WAAC,EAAO,iBADnB;AAIA,wBAAa,GAAb;AAEA,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AA9CgC;AA8KE;AAAT;AAEzB,eAAU,aAAQ,IAAI,mBAAJ;AAFO;AAAS;AAlDF;AAEhC,UAAG,CAAI,cAAS,UAAhB;AAGI,2BAAe;AACf,sBAAS;OAJb;AAeU;AAEV,yBAAe;AAnBiB;AA6KQ;AAExC,UAAW,CAAC,cAAS,OAAV,SAAiH,IAAnF,CAAC,cAAS,WAAC,EAAX,SAAZ,IAAoC,cAAS,WAAC,EAAO,UAAC,EAAtB,IAAiC,CAAI,cAAS,WAAC,EAAO,UAAzB,IAAiD,CAAV,mBAAU,IAAG,CAAH,CAA3I;AAEE,4BAAgB;AAChB,sBAAS,WAAC,EAAO;AACjB,sBAAS,WAAC,EAAO,OAAO,CAAC,mBAAD;AACxB,4BAAgB;OALlB;AAFwC;AA7OE;AAE1C,UAAG,CAAY,CAAC,cAAD,SAAf;AAEE,yBAAa,mBAAc,QAAC;AAC5B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,gBAAT,GAA4B;AAE5B,yBAAa,mBAAc,QAAC;AAC5B,sBAAS,gBAAT,GAA4B;AAC5B,sBAAS,cAAT,GAA0B;AAC1B,6BAAiB;AACjB,2BAAe;AACf,4BAAgB;OAZlB;AAeA;AAjB0C;AAyDR;AAExB,eAAV,KAAU;AACA,eAAV,KAAU;AACA;AAJwB;AAznKjB;;;AAqCG,iCAlYV,yBAkYU;AACC,kChC2pCV,4BgC3pCU;AACF,gCApYT,yBAoYS;AACC,iCArYV,yBAqYU;AACC,kChCwpCV,4BgCxpCU;AAzCJ;AA4CG;;;;AAED;;;AAEjB;AACA;AAHiB;;;;;AAy7JqB;AAExC,oBAAS,WAAT,GAAuB;AACvB,oBAAS;AACT,uBAAY,CAAC,IAAD;AAJ4B;AAOC;AAEzC,oBAAS,cAAC,CAAc,KAAd;AAF+B;AA1ED;AAAb;AAE3B,eAAU,cAAS;AAFQ;AAAa;AALD;AAAZ;AAE3B,eAAU,cAAS;AAFQ;AAAY;AARC;AAAb;AAE3B,UAAY,oBAAD,QAAX;AACE,iBAAU,CAAI,cAAS,WAAC,EAAO,mBAA+F,IAApD,CAApB,oBAAU,UAAU,IAA4B,CAAxB,cAAS,WAAC,EAAO,OAAO,IAAG,cAAC,4BAAQ,6BAAT,CAAH,CAA5B,CAAzB,IAAiF,cAAS,OAAb;AAE9H,qBAAU;AALe;AAAa;AAvED;AAAZ;AAE3B,eAAU,aAAO,CAAC,qBAAY,oBAAW,cAAxB;AAFU;AAAY;AAyCD;AAEtC,UAAY,cAAS,OAAV,QAAX;AAEE,YAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,sBAAS,OAAM,YAAC,CAAY,cAAZ;OALlB;AAFsC;AAtBA;AAEtC;AAEA,UAAG,gBAAH,EACE,MADF;AAGA,UAAG,CAAY,CAAC,oBAAD,SAAf,EACE,MADF;AAGA,UAAG,CAAY,CAAC,cAAS,WAAC,EAAX,SAAf,EACE,MADF;AAGA,UAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,UAAW,CAAC,cAAS,OAAV,SAAkB,IAAI,CAAI,cAAS,WAAC,EAAO,UAAtD;AACE,qBAAQ,cAAS,OAAM,eAAC,EAAxB;AAEA,yBAAQ,EAAR;AAnBoC;AAhDE;AAExC;AAEA,UAAY,cAAS,WAAC,EAAX,QAAX;AAEE,YAAG,CAAI,cAAS,WAAC,EAAO,UAAC,EAAO,IAAG,CAAI,oBAAU,SAAjD;AAEE,uBAAQ,EAAR;SAGA,MAAA,eAAU,CAAC,IAAD;OAPd;AAJwC;AAsHL;AAEnC;AAGA,UAAG,CAAI,mBAAP,EACE,MADF;AAGA,UAAQ,CAAJ,SAAI,KAAE,EAAF,CAAgC,IAAX,CAAJ,SAAI,KAAE,CAAF,CAAR,IAAyC,CAAb,CAAJ,SAAI,KAAE,EAAF,CAAa,IAAa,CAAR,iCAAQ,IAAG,KAAH,CAAb,CAA9D;AAEE,2BAAe;AACf,kBAAW;AACX,2BAAe;AAEf,YAAG,CAAI,OAAP;AAEE,kBAAO,CAAP;AACA;AACA;;AAIA;AACA,wBAAS;;OAIX;AA3BiC;AA8BC;AAEpC;AAEA,UAAG,CAAI,mBAAa,IAAG,cAAvB;AAEE;AACA;OAHF;AAMA,UAAG,cAAS,WAAC,EAAO,mBAApB;AAEE;AACA;AACA;OAJF;AAOA,yBAAe;AACf,gBAAW;AACX,yBAAe;AAEf,UAAG,CAAI,OAAP,EACE,MADF;AAGA,UAAI,cAAS,UAAb;AAEE,gBAAO,MAAP;OAFF;AAKkB,yDAAC,GAAD;AA7BkB;AA7DF;AAElC,UAAG,CAAI,cAAS,UAAhB;AAEE,2BAAe;AACf,sBAAS;OAHX;AAMU;AAEV,yBAAe;AAVmB;AArDU;AAE5C,UAAG,CAAY,CAAC,cAAD,SAAf;AAEE,yBAAa,mBAAc,QAAC;AAC5B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,gBAAT,GAA4B;AAC5B,2BAAe;OANjB;AASA;AAX4C;AA+CR;AAE1B,eAAV,KAAU;AACV;AAHoC;AAlEF;AAElC;AAEA,UAAG,CAAI,mBAAP,EACE,MADF;AAGA,UAAG,oBAAU,UAAU,IAA6B,CAAzB,oBAAU,SAAQ,OAAO,IAAG,cAAC,4BAAO,6BAAR,CAAH,CAApD;AAEE,sBAAS;AACT,sBAAS;OAHX;AAPkC;AApxJf;;;AAsBC,iCAjaV,yBAiaU;AACC,kChC4nCV,4BgC5nCU;AAvBF;AA0BG;;;;AAGT;;;AAEX;AACA;AACA;AAJW;;;;;;AAi4EkB;AAE/B,kBAAO,OAAO,CAAC,KAAD;AAFiB;AA7IG;AAElC,oBAAS,WAAT,GAAuB;AACvB,oBAAS;AACT,uBAAY,CAAC,IAAD;AAJsB;AAOC;AAEnC,oBAAS,cAAC,CAAc,KAAd;AAFyB;AAKD;AAAb;AAErB,eAAU,cAAS;AAFE;AAAa;AAUD;AAAZ;AAErB,eAAU,cAAS;AAFE;AAAY;AAyDA;AAAZ;AAErB,eAAU,aAAO,CAAC,qBAAY,oBAAW,cAAxB;AAFI;AAAY;AARC;AAAb;AAErB,UAAY,oBAAD,QAAX;AACE,iBAAU,CAAI,cAAS,WAAC,EAAO,mBAA+F,IAApD,CAApB,oBAAU,UAAU,IAA4B,CAAxB,cAAS,WAAC,EAAO,OAAO,IAAG,cAAC,4BAAQ,6BAAT,CAAH,CAA5B,CAAzB,IAAiF,cAAS,OAAb;AAE9H,qBAAU;AALS;AAAa;AA5CF;AAEhC,UAAY,cAAS,OAAV,QAAX;AAEE,YAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,YAAG,cAAS,OAAM,UAAU,KAAE,0BAA9B;AAEE,cAAG,YAAM,SAAC,EAAM,GAAE,mBAAlB,EACE,cAAS,OAAM,YAAC,CAAY,YAAM,KAAC,mBAAD,CAAlB,CADlB;SAIgB,MAAhB,cAAS,OAAM,aAAC,CAAa,mBAAU,GAAE,CAAzB;OAXpB;AAFgC;AAiBA;AAEhC;AAEA,UAAG,gBAAH,EACE,MADF;AAGA,UAAG,CAAY,CAAC,cAAS,WAAC,EAAX,SAAf,EACE,MADF;AAGA,UAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,UAAW,CAAC,cAAS,OAAV,SAAkB,IAAI,CAAI,cAAS,WAAC,EAAO,UAAtD;AAEE,YAAG,cAAS,OAAM,UAAU,KAAE,0BAA9B;AAEG,4BAAa,YAAM,QAAQ,CAAC,cAAS,OAAM,YAAC,EAAjB,CAA3B;SAGD,wBAAa,cAAS,OAAM,aAAC,EAAU,GAAE,CAAzC;OAGF,wBAAa,CAAC,CAAd;AAvB8B;AAwDE;AAElC;AAEA,UAAY,cAAS,WAAC,EAAX,QAAX;AAEE,YAAG,CAAI,cAAS,WAAC,EAAO,UAAC,EAAO,IAAG,CAAI,oBAAU,SAAjD;AAEE,4BAAa,CAAC,CAAd;SAGA,MAAA,eAAU,CAAC,IAAD;OAPd;AAJkC;AAhBP;AAE3B;AAEA,UAAG,CAAI,mBAAP,EACE,MADF;AAGA,UAAG,oBAAU,UAAU,IAA6B,CAAzB,oBAAU,SAAQ,OAAO,IAAG,cAAC,4BAAQ,6BAAT,CAAH,CAApD;AAEE,2BAAe;AACf,sBAAS;AACT,sBAAS;AACT,2BAAe;OALjB;AAP2B;AAnEG;AAAT;AAErB,eAAU,aAAyB,IAAb,mBAAJ,IAA0C,CAApB,oBAAU,UAAU,IAA4B,CAAxB,cAAS,WAAC,EAAO,OAAO,IAAG,cAAC,4BAAQ,6BAAT,CAAH,CAA5B,CAAzB;AAFd;AAAS;AAkGQ;AAEtC,UAAG,CAAY,CAAC,cAAD,SAAf;AAEE,yBAAa,mBAAc,QAAC;AAC5B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,gBAAT,GAA4B;AAC5B,2BAAe;OANjB;AAQA,UAAG,CAAY,CAAC,YAAD,SAAf;AAEE,uBAAW,uBAAW,QAAC;AACvB,oBAAO,qBAAC,CAAqB,IAArB;OAHV;AAMA;AAhBsC;AAmBR;AAEtB,eAAR,KAAQ;AACE,eAAV,KAAU;AACA;AAJoB;AA13EjB;;;AAsBO,iCA9bV,yBA8bU;AACC,kChC+lCV,4BgC/lCU;AACJ,8BtErGN,iCsEqGM;AAxBJ;AA2BG;;;;AAEJ;;;AAEV;AACA;AACA;AAJU;;;;;AA42EqB;AAEjC,oBAAS,WAAT,GAAuB;AACvB,oBAAS;AACT,uBAAY,CAAC,IAAD;AAJqB;AAOC;AAElC,oBAAS,cAAC,CAAc,KAAd;AAFwB;AAKD;AAAb;AAEpB,eAAU,cAAS;AAFC;AAAa;AAgBD;AAAZ;AAEpB,eAAU,cAAS;AAFC;AAAY;AAuDA;AAAZ;AAEpB,eAAU,aAAO,CAAC,qBAAY,oBAAW,cAAxB;AAFG;AAAY;AAlEE;AAAd;AAEpB,UAAG,mBAAH;AACE,iBAAoB;;AAGpB,YAAI,2CAAY,IAAG,oBAAnB,EACE,SAAU,IAAI,MADhB;;AANkB;AAAc;AA6DD;AAAb;AAEpB,eAAU;AAFU;AAAa;AA7CF;AAE/B,UAAY,cAAS,OAAV,QAAX;AAEE,YAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;OAFF;AAF+B;AASA;AAE/B;AAAK;AAAU;AAEf,UAAG,gBAAH,EACE,MADF;AAGA,UAAG,CAAY,CAAC,cAAS,WAAC,EAAX,SAAf,EACE,MADF;AAGA,UAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,UAAW,CAAC,cAAS,OAAV,SAAkB,IAAI,CAAI,cAAS,WAAC,EAAO,UAAtD;AAEO;AACL,YADK,IACL;AAAQ,qBAAY;AACpB,kBAFK,IAEL;AAAS,qBAAY;AACrB,kBAHK,IAGL;AAAQ,qBAAY;AACpB,kBAJK,IAIL,8BAAO,WAAY,QAAnB;AAGA,cAAO;AAEP,YAAG,YAAO,KAAE,2CAAZ,EACE,MAAO,kBADT;AAGA,cAAO,WAAoG,GAAtF,QAAF,GAAa,cAAS,OAAM,eAAC,EAAlB,GAAgC,GAAF,GAAO,GAAF,GAAQ,GAAF,GAAQ,cAAS,OAAM,eAAC,EAAlB,GAAgC,MAAF;AAE3G,wBAAW,GAAX;OAGA,sBAAW,EAAX;AAhC6B;AAmDE;AAEhC,UAAY,cAAS,WAAC,EAAX,QAAX;AAEE,YAAG,CAAI,cAAS,WAAC,EAAO,UAAC,EAAO,IAAG,CAAI,oBAAU,SAAjD;AAEE,0BAAW,EAAX;SAGA,MAAA,eAAU,CAAC,IAAD;OAPd;AAFgC;AALP;AAE1B;AAF0B;AAkBW;AAErC,UAAG,CAAY,CAAC,cAAD,SAAf;AAEE,yBAAa,mBAAc,QAAC;AAC5B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,gBAAT,GAA4B;AAC5B,2BAAe;AACf,yBAAa;OAPf;AAUA;AAZqC;AAeR;AAEnB,eAAV,KAAU;AACA;AAHmB;AAr+EjB;;;AAqBQ,iCA1dV,yBA0dU;AACC,kChCmkCV,4BgCnkCU;AACF,gCAneP,2BAmeO;AACE;AAxBT;AA2BG;;;;AAER;;;AAEL;AACA;AAHK;;;;;AAitFqB;AAE5B,oBAAS,WAAT,GAAuB;AACvB,oBAAS;AACT,uBAAY,CAAC,IAAD;AAJgB;AAOC;AAE7B,oBAAS,cAAC,CAAc,KAAd;AAFmB;AAxFD;AAAb;AAEf,eAAU,cAAS;AAFJ;AAAa;AALD;AAAZ;AAEf,eAAU,cAAS;AAFJ;AAAY;AARC;AAAb;AAEf,UAAY,oBAAD,QAAX;AACE,iBAAU,CAAI,cAAS,WAAC,EAAO,mBAA+F,IAApD,CAApB,oBAAU,UAAU,IAA4B,CAAxB,cAAS,WAAC,EAAO,OAAO,IAAG,cAAC,4BAAQ,6BAAT,CAAH,CAA5B,CAAzB,IAAiF,cAAS,OAAb;AAE9H,qBAAU;AALG;AAAa;AA+BH;AAAV;AAEf,eAAU,cAAS,IAAG,CAAI,mBAAP;AAFJ;AAAU;AALD;AAAT;AAEf,eAAU,aAAQ,IAAI,mBAAJ;AAFH;AAAS;AA5HG;AAAZ;AAEf,eAAU,aAAO,CAAC,qBAAY,oBAAW,cAAxB;AAFF;AAAY;AAoHE;AAAd;AAEf,UAAG,CAAI,mBAAP;AACE,iBAAU;AAEV,qBAAoB;AALP;AAAc;AAjEH;AAE1B,UAAY,cAAS,OAAV,QAAX;AAEE,YAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,YAAuB,iBAAH,eAAhB,cAAS,OAAO,CAAe,IAAI,CAAwB,iBAAH,eAAhB,cAAS,OAAO,CAA5D;AAEE,wBAAS,OAAM,aAAC,CAAa,MAAM,KAAK,CAAC,WAAK,WAAC,EAAP,CAAxB;;AAIhB,qBAAK,OAAC,CAAsB,qCAAtB;AACN,wBAAS,OAAM,YAAC,CAAY,WAAK,WAAC,EAAlB;;OAZpB;AAF0B;AAhCA;AAE1B,UAAG,gBAAH,EACE,MADF;AAGA;AAEA,UAAG,CAAY,CAAC,cAAS,WAAC,EAAX,SAAf,EACE,MADF;AAGA,UAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,UAAW,CAAC,cAAS,OAAV,SAAkB,IAAI,CAAI,cAAS,WAAC,EAAO,UAAtD;AAEE,YAAuB,iBAAH,eAAhB,cAAS,OAAO,CAAe,IAAI,CAAwB,iBAAH,eAAhB,cAAS,OAAO,CAA5D;AAEE;AACE,uBAAK,WAAC,CAAQ,MAAM,KAAK,CAAO,KAAC,cAAS,OAAM,aAAC,EAAxB,CAAnB;AADR;AAGE,uBAAK,WAAC,CAAQ,cAAS,OAAM,eAAC,EAAxB;AAHR;;AAQA,qBAAK,WAAC,CAAQ,cAAS,OAAM,eAAC,EAAxB;;OAIF,MAAN,WAAK,WAAC,CAAQ,EAAR;AA7BkB;AAlFE;AAE5B;AAEA,UAAY,cAAS,WAAC,EAAX,QAAX;AAEE,YAAG,CAAI,cAAS,WAAC,EAAO,UAAC,EAAO,IAAG,CAAI,oBAAU,SAAjD;AACE,qBAAK,WAAC,CAAQ,EAAR;AAEN,cAAA,eAAU,CAAC,IAAD;OALd;AAJ4B;AAqML;AAEvB;AAGA,UAAG,CAAI,mBAAP,EACE,MADF;AAGA,UAAQ,CAAJ,SAAI,KAAE,EAAF,CAAgC,IAAX,CAAJ,SAAI,KAAE,CAAF,CAAR,IAAyC,CAAb,CAAJ,SAAI,KAAE,EAAF,CAAa,IAAa,CAAR,iCAAQ,IAAG,KAAH,CAAb,CAA9D;AAEE,2BAAe;AACf,kBAAW;AACX,2BAAe;AAEf,YAAG,CAAI,OAAP;AAEE,kBAAO,CAAP;AACA;AACA;;AAIA;AACA,wBAAS;;OAfb;AARuB;AA4BC;AAExB;AAEA,UAAG,CAAI,mBAAa,IAAG,cAAvB,EACE,MADF;AAGA,UAAG,cAAS,WAAC,EAAO,mBAApB;AAEE;AACA;AACA;OAJF;AAOA,yBAAe;AACf,gBAAW;AACX,yBAAe;AAEf,UAAG,CAAI,OAAP,EACE,MADF;AAGA,UAC4C,cAAS,UADrD;AAGE,gBAAO,MAAP;OAHF;AAMkB,yDAAC,GAAD;AA3BM;AAvLD;AAAR;AAEf,eAAU;AAFK;AAAQ;AA7BF;AAAN;AAEf;AAEA,UAAG,CAAI,mBAAP,EACE,aADF;AAGA,UAAG,cAAH;AAEE,iBAAU;AACV;OAHF;AAMA,yBAAe;AACf,gBAAW;AACX,yBAAe;AAEf,UAAG,CAAI,OAAP;AAEE,iBAAU;AACV;;AAIA,iBAAU;AACV,sBAAS;;AAzBI;AAAM;AA8HC;AAEtB,UAAG,CAAI,cAAS,UAAhB;AAGI,2BAAe;AACf,sBAAS;OAJb;AAeU;AAEV,yBAAe;AAnBO;AA5FA;AAEtB;AAEA,UAAG,CAAI,mBAAP,EACE,MADF;AAGA,UAAG,oBAAU,UAAU,IAA6B,CAAzB,oBAAU,SAAQ,OAAO,IAAG,cAAC,4BAAO,6BAAR,CAAH,CAApD;AAEE,2BAAe;AACf,sBAAS;AACT,sBAAS;AACT,2BAAe;OALjB;AAPsB;AAqBU;AAEhC,UAAG,CAAY,CAAC,cAAD,SAAf;AAEE,yBAAa,mBAAc,QAAC;AAC5B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,gBAAT,GAA4B;AAC5B,2BAAe;OANjB;AASA;AAXgC;AAiER;AAEd,eAAV,KAAU;AACV;AAHwB;AAvlFjB;;;AA2Ba,iCA7fV,yBA6fU;AACC,kChCgiCV,4BgChiCU;AA5Bd;AA+BG;;;;AAEE,mEAAmB,U/EvaxB,2B+EuawB,EAAmB,qBAAtC;AAEG;;;AAEb;AACA;AACA;AAJa;;;;;;AAyqGoB;AAAZ;AAEvB,eAAU,cAAS;AAFI;AAAY;AAKC;AAAb;AAEvB,eAAU,cAAS;AAFI;AAAa;AAKA;AAEpC,oBAAS,WAAT,GAAuB;AACvB,oBAAS;AACT,uBAAY,CAAC,IAAD;AAJwB;AAOC;AAErC,oBAAS,cAAC,CAAc,KAAd;AAF2B;AA1DH;AAElC;AAAM;AAEN,UAAG,CAAY,CAAC,cAAS,WAAC,EAAX,SAAf,EACE,MADF;AAGA,UAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,UAAW,CAAC,cAAS,OAAV,SAAkB,IAAI,CAAI,cAAS,WAAC,EAAO,UAAtD;AAEE,YAAuB,iBAAH,eAAhB,cAAS,OAAO,CAApB;AAEE,sBAAmB,KAAC,cAAS,OAAM,aAAC,EAAjB;AACnB,cAAsB,CAAX,SAAD,OAAY,GAAE,CAAF,CAAK,IAAe,CAAV,SAAU,KAAG,MAAH,CAA1C;AAEE,mBAAQ,yBAA0B,GAAE,SAAF;;AAIlC,mBAAQ;;;AAKV,iBAAQ,aAAQ,GAAE,cAAS,OAAM,eAAC,EAAlB;;AAGlB,YAAY,cAAD,QAAX,EACE,cAAQ,CAAC,KAAM;;;;YAAP,CADV;AAEA,oBAAO,IAAP;OArBF;AAVkC;AAvBE;AAEpC,UAAY,cAAS,WAAC,EAAX,QAAX;AAEE,YAAG,CAAI,cAAS,WAAC,EAAO,UAAC,EAAO,IAAG,CAAI,oBAAU,SAAjD;AACE,sBAAO,EAAP;AAEA,cAAA,eAAU,CAAC,IAAD;OALd;AAFoC;AAWI;AAExC,UAAG,CAAY,CAAC,cAAD,SAAf;AAEE,yBAAa,mBAAc,QAAC;AAC5B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,gBAAT,GAA4B;OAJ9B;AAOA;AATwC;AA+CR;AAEtB,eAAV,KAAU;AACV;AAHgC;AAnqGjB;;;AAgBG;AACE,iCAthBV,yBAshBU;AACC,kChCugCV,4BgCvgCU;AACF,gCArBP,2BAqBO;AAnBJ;AAsBG;;;;AAEN;;;AAEV;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAxBU;;;;;;;;;;;;;;;;;;;;;;;;;AAwjC0B;AAEtC,6BAAmB;AACnB;AAHsC;AArBT;AAE7B,iBAAM,OAAO,CAAC,KAAD;AACb;AAH6B;AAMC;AAE9B,kBAAO,OAAO,CAAC,KAAD;AACd;AAH8B;AAMY;AAE1C,UAAI,wBAAoB,KAAG,KAA3B;AAEE,mCAAuB;AACvB;OAHF;AAF0C;AAkDR;AAElC,UAAW,CAAC,cAAD,SAA0F,IAAlE,CAAC,cAAS,YAAV,SAAZ,IAA+C,CAAC,cAAS,YAAW,SAArB,SAAZ,IAA+C,mBAAQ,CAAC,cAAS,YAAW,SAAQ,UAAC,EAA9B,CAAjH;AAEE,sBAAS,WAAC,CAAW,aAAQ,IAAK,cAAS,WAAC,EAAO,UAAC,EAAO,IAAI,CAAI,cAAS,WAAC,EAAO,OAAC,EAA3E;AACV,sBAAS,WAAC,CAAW,aAAQ,IAAK,cAAS,WAAC,EAAO,UAAC,EAAO,IAAI,CAAI,cAAS,WAAC,EAAO,OAAC,EAA3E;AACV,qBAAQ,WAAC,CAAW,aAAQ,IAAK,cAAS,WAAC,EAAO,UAAC,EAAO,IAAI,CAAI,cAAS,WAAC,EAAO,OAAC,EAA3E;AACT,qBAAQ,WAAC,CAAW,aAAQ,IAAK,cAAS,WAAC,EAAO,UAAC,EAAO,IAAI,CAAI,cAAS,WAAC,EAAO,OAAC,EAA3E;AACT,qBAAQ,WAAC,CAAW,aAAQ,IAAK,cAAS,WAAC,EAAO,UAAC,EAAQ,IAA6B,CAAxB,cAAS,WAAC,EAAO,OAAO,IAAG,cAAC,4BAAQ,6BAAT,CAAH,CAA/E;AACT,qBAAQ,WAAC,CAAW,aAAQ,IAAK,cAAS,WAAC,EAAO,UAAC,EAAiD,IAAZ,CAAxB,cAAS,WAAC,EAAO,OAAO,KAAE,6BAAF,CAA7B,IAA6C,CAAI,cAAS,WAAC,EAAO,UAApH;AACT,uBAAU,WAAC,CAAW,aAAQ,IAAK,cAAS,WAAC,EAAO,UAAC,EAAO,IAAI,CAA6B,CAAxB,cAAS,WAAC,EAAO,OAAO,KAAE,6BAAF,CAAlF;AACX,uBAAU,WAAC,CAAW,aAAQ,IAAK,cAAS,WAAC,EAAO,UAAC,EAAO,IAAI,CAAI,cAAS,WAAC,EAAO,UAA1E;AACX,uBAAU,WAAC,CAAW,aAAQ,IAAK,cAAS,WAAC,EAAO,UAAC,EAAO,IAA6B,CAAxB,cAAS,WAAC,EAAO,OAAO,IAAG,cAAC,8BAAU,2BAAX,CAAH,CAA9E;;AAIX,sBAAS,WAAC,CAAW,KAAX;AACV,sBAAS,WAAC,CAAW,KAAX;AACV,qBAAQ,WAAC,CAAW,KAAX;AACT,qBAAQ,WAAC,CAAW,KAAX;AACT,qBAAQ,WAAC,CAAW,KAAX;AACT,qBAAQ,WAAC,CAAW,KAAX;AACT,uBAAU,WAAC,CAAW,KAAX;AACX,uBAAU,WAAC,CAAW,KAAX;AACX,uBAAU,WAAC,CAAW,KAAX;;AAGb,oBAAS,WAAC,CAAW,yBAAQ,IAAG,oBAAtB;AACV,oBAAS,WAAC,CAAW,yBAAQ,IAAG,oBAAtB;AACV,mBAAQ,WAAC,CAAW,wBAAO,IAAG,oBAArB;AACT,mBAAQ,WAAC,CAAW,wBAAO,IAAG,oBAArB;AACT,mBAAQ,WAAC,CAAW,wBAAO,IAAG,oBAArB;AACT,mBAAQ,WAAC,CAAW,wBAAO,IAAG,oBAArB;AACT,qBAAU,WAAC,CAAW,0BAAS,IAAG,oBAAvB;AACX,qBAAU,WAAC,CAAW,0BAAS,IAAG,oBAAvB;AACX,qBAAU,WAAC,CAAW,0BAAS,IAAG,oBAAvB;AAEX,oBAAS,qBAAC,CAAsB,wBAAtB;AACV,oBAAS,qBAAC,CAAsB,wBAAtB;AACV,mBAAQ,qBAAC,CAAsB,wBAAtB;AACT,mBAAQ,qBAAC,CAAsB,wBAAtB;AACT,mBAAQ,qBAAC,CAAsB,wBAAtB;AACT,mBAAQ,qBAAC,CAAsB,wBAAtB;AACT,qBAAU,qBAAC,CAAsB,wBAAtB;AACX,qBAAU,qBAAC,CAAsB,wBAAtB;AACX,qBAAU,qBAAC,CAAsB,wBAAtB;AAEX,aAAM,WAAM,SAAC,EAAM,GAAE,CAArB,EACE,WAAM,IAAI,CAAC,EAAD;AAEZ,oBAAS,QAAC,CAAQ,WAAK,IAAQ,CAAC,CAAD,CAArB;AACV,oBAAS,QAAC,CAAQ,WAAK,IAAQ,CAAC,CAAD,CAArB;AACV,mBAAQ,QAAC,CAAQ,WAAK,IAAQ,CAAC,CAAD,CAArB;AACT,mBAAQ,QAAC,CAAQ,WAAK,IAAQ,CAAC,CAAD,CAArB;AACT,mBAAQ,QAAC,CAAQ,WAAK,IAAQ,CAAC,CAAD,CAArB;AACT,mBAAQ,QAAC,CAAQ,WAAK,IAAQ,CAAC,CAAD,CAArB;AACT,qBAAU,QAAC,CAAQ,WAAK,IAAQ,CAAC,CAAD,CAArB;AACX,qBAAU,QAAC,CAAQ,WAAK,IAAQ,CAAC,CAAD,CAArB;AACX,qBAAU,QAAC,CAAQ,WAAK,IAAQ,CAAC,CAAD,CAArB;AAEX,sBAAW,CAAC,eAAW,WAAY,CAAxB;AACX,sBAAW,CAAC,eAAW,WAAY,CAAxB;AACX,sBAAW,CAAC,cAAU,WAAY,CAAvB;AACX,sBAAW,CAAC,cAAU,WAAY,CAAvB;AAEX,sBAAW,CAAC,cAAU,WAAY,CAAvB;AACX,sBAAW,CAAC,cAAU,WAAY,CAAvB;AACX,sBAAW,CAAC,gBAAY,WAAY,CAAzB;AACX,sBAAW,CAAC,gBAAY,WAAY,CAAzB;AACX,sBAAW,CAAC,gBAAY,WAAY,CAAzB;AArEuB;AAsKH;AAE/B;AAF+B;AAKE;AAEjC;AAFiC;AApPC;AAElC,oBAAS,cAAC,CAAc,KAAd;AAFwB;AA2CD;AAAb;AAEpB,eAAU,cAAS;AAFC;AAAa;AAKA;AAEjC,cAAO,kCAAY,QAAC,YAAM,CAAC,KAAD,CAAN,CAApB;AACA,eAAG,QAAC,CAAQ,IAAR;AACJ,eAAG,UAAC,CAAU,IAAV;AAEJ,UAAkB,CAAd,YAAO,SAAC,EAAM,GAAE,KAAF,CAAS,IAAoB,CAAf,YAAO,KAAC,KAAD,CAAQ,KAAG,EAAH,CAA/C;AACE,iBAAG,YAAC,CAAY,YAAO,KAAC,KAAD,CAAnB;AAEA,YAAJ,SAAG,iBAAC,CAAiB,KAAjB;AAEN,eAAG,SAAC,CAAS,EAAT;AACJ,eAAG,UAAC,CAAU,EAAV;AACJ,eAAG,SAAC,CAAS,oCAAT;AAEJ,UAAG,WAAM,SAAC,EAAM,GAAE,KAAlB;AAEE,iBAAG,QAAC,CAAQ,WAAM,KAAC,KAAD,CAAd;OAFN;AAIA,eAAG,YAAC,CAA0B,CAAb,WAAM,SAAC,EAAM,GAAE,KAAF,CAAS,IAAc,CAAT,SAAG,MAAM,KAAG,EAAH,CAAjD;AACJ,eAAG,SAAH,GAAe;AACf,eAAG,aAAH,GAAmB;AACnB,eAAG,qBAAC,CAAsB,wBAAtB;AAtB6B;AAwGD;AAEhC,UAAkB,CAAd,YAAO,SAAC,EAAM,GAAE,KAAF,CAAS,IAAoB,CAAf,YAAO,KAAC,KAAD,CAAQ,KAAG,EAAH,CAA/C;AAEE,WAAG,iBAAC,CAAiB,EAAjB;AACJ,WAAG,YAAC,CAAY,YAAO,KAAC,KAAD,CAAnB;;AAIJ,WAAG,iBAAC,CAAiB,KAAjB;AACJ,WAAG,YAAC,CAAY,EAAZ;;AAV0B;AAcW;AAE3C;AAEA,UAAW,CAAC,oBAAD,SAAa,IAAY,CAAC,oBAAU,SAAX,SAApC;AAEE,cAAgB,MAAO;AAEvB,YAAG,GAAI,KAAS,CAAP,WAAO,GAAE,QAAF,CAAhB;AAEE;AACA,wBAAS,WAAC,EAAO;SAHnB;AAMA,YAAG,GAAI,KAAS,CAAP,WAAO,GAAE,QAAF,CAAhB;AAEE;AACA,wBAAS,WAAC,EAAO;SAHnB;AAMA,YAAG,GAAI,KAAS,CAAP,WAAO,GAAE,OAAF,CAAhB;AAEE;AACA,wBAAS,WAAC,EAAO;SAHnB;AAMA,YAAG,GAAI,KAAS,CAAP,WAAO,GAAE,OAAF,CAAhB;AAEE;AACA,wBAAS,WAAC,EAAO;SAHnB;AAMA,YAAG,GAAI,KAAS,CAAP,WAAO,GAAE,OAAF,CAAhB;AAEE;AACA,wBAAS,WAAC,EAAO;SAHnB;AAMA,YAAG,GAAI,KAAS,CAAP,WAAO,GAAE,SAAF,CAAhB;AAEE;AACA,wBAAS,WAAC,EAAO;SAHnB;AAMA,YAAG,GAAI,KAAS,CAAP,WAAO,GAAE,SAAF,CAAhB;AAEE;AACA,wBAAS,WAAC,EAAO;SAHnB;AAMA,YAAG,GAAI,KAAS,CAAP,WAAO,GAAE,OAAF,CAAhB;AAEE;AACA,wBAAS,WAAC,EAAO;SAHnB;AAMA,YAAG,GAAI,KAAS,CAAP,WAAO,GAAE,SAAF,CAAhB,EACE,cAAS,WAAC,EAAO,SADnB;OApDF;AAJ2C;AA6DI;AAG/C;AAH+C;AAlFb;AAElC;AACA,UAAG,CAAI,iBAAP,EACE,mBAAc,CAAC,iBAAkB,yDAAnB,CADhB;AAHkC;AAwFP;AAE3B;AACA;AAH2B;AAnMK;;AAjCD;AAE/B;AACA;AAH+B;AAjBJ;AAE3B,UAAY,YAAD,QAAX,EACE,YAAM,CAAC,IAAD,CADR;AAF2B;AArCE;AAE7B,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAF6B;AAmBA;AAE7B,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAF6B;AAND;AAE5B,UAAY,aAAD,QAAX,EACE,aAAO,CAAC,IAAD,CADT;AAF4B;AAYD;AAE3B,UAAY,YAAD,QAAX,EACE,YAAM,CAAC,IAAD,CADR;AAF2B;AAnBA;AAE3B,UAAY,YAAD,QAAX,EACE,YAAM,CAAC,IAAD,CADR;AAF2B;AAyBA;AAE3B,UAAY,YAAD,QAAX,EACE,YAAM,CAAC,IAAD,CADR;AAF2B;AAYC;AAE5B,UAAY,aAAD,QAAX,EACE,aAAO,CAAC,IAAD,CADT;AAF4B;AAtHS;AAErC;AAEA;AAEA,2BAA6B,YAAb,mBAAe,cAAC,2DAAD,CAAF;AAE7B,YAEE,4CAU6D,GAT7D,4CAD4C,GAE5C,4CAD4C,GAE5C,4CAD4C,GAI5C,yDAH4C,GAI5C,oEADyD,GAIzD,6DAHoE,GAIpE,yEAD6D;AAG/D,0BAAe,CAAC,GAAD;AAEf,oBAAS,EAAE,GAAC,CAAZ;AACA,iCAAuB;AAEvB,qBAAW,uBAAW,QAAC;AAEvB,oBAAU,uBAAW,QAAC;AACtB,iBAAM,IAAI,CAAC,OAAD;AACV,iBAAM,IAAI,CAAC,OAAD;AACV,iBAAM,IAAI,CAAC,MAAD;AACV,iBAAM,IAAI,CAAC,MAAD;AACV,iBAAM,IAAI,CAAC,MAAD;AACV,iBAAM,IAAI,CAAC,MAAD;AACV,iBAAM,IAAI,CAAC,QAAD;AACV,iBAAM,IAAI,CAAC,QAAD;AACV,iBAAM,IAAI,CAAC,QAAD;AAEV,UAAG,CAAY,CAAC,cAAD,SAAf;AAEE,yBAAa,mBAAc,QAAC;AAC5B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,gBAAT,GAA4B;OAJ9B;AAOA,oBAAU,qCAAc,CAAC,UAAD;AAExB,uBAAY,CAAC;;;;WAAW,WAAO,GAAE,QAAF,CAAY,WAAW,CAA1C;AACZ,uBAAY,CAAC;;;;WAAW,WAAO,GAAE,QAAF,CAAY,WAAW,CAA1C;AACZ,uBAAY,CAAC;;;;WAAU,WAAO,GAAE,OAAF,CAAW,WAAW,CAAxC;AACZ,uBAAY,CAAC;;;;WAAU,WAAO,GAAE,OAAF,CAAW,WAAW,CAAxC;AAEZ,uBAAY,CAAC;;;;WAAU,WAAO,GAAE,OAAF,CAAW,WAAW,CAAxC;AACZ,uBAAY,CAAC;;;;WAAU,WAAO,GAAE,OAAF,CAAW,WAAW,CAAxC;AACZ,uBAAY,CAAC;;;;WAAY,WAAO,GAAE,SAAF,CAAa,WAAW,CAA5C;AACZ,uBAAY,CAAC;;;;WAAY,WAAO,GAAE,SAAF,CAAY,WAAW,CAA3C;AACZ,uBAAY,CAAC;;;;WAAY,WAAO,GAAE,SAAF,CAAY,WAAW,CAA3C;AAEZ,6BAAmB,cAAC,0BAAS,0BAAS,yBAAQ,yBAC9B,2BAAU,2BAAU,yBAAQ,yBAAQ,0BADjC;AAGnB;AAhEqC;AAmER;AAEnB,eAAV,KAAU;AACH,eAAP,KAAO;AACC,eAAR,KAAQ;AACE;AALmB;AA/9BjB;;;AAuDM;AACF,6BtE1PL,iCsE0PK;AACC,8BtE3PN,iCsE2PM;AACY,0CjEjPvB,uCiEiPuB;AACR,kChCs8BV,4BgCt8BU;AACI,sCA3lBZ,4BA2lBY;AACN,gClEjbP,6CkEibO;AACF,8BlElbL,6CkEkbK;AACC,+BlEnbN,6CkEmbM;AACC,gClEpbP,6CkEobO;AACF,8BlErbL,6CkEqbK;AACA,8BlEtbL,6CkEsbK;AACA,8BlEvbL,6CkEubK;AACC,+BlExbN,6CkEwbM;AApEN;AAuEG;;;;AAES,+EAAmB,U/E1gBpC,2B+E0gBoC,EAAgB,sBAAqB,0BAAoB,uBAA5E;AAEV;;;AAEZ;AACA;AACA;AACA;AALY;;;;;;;AAkmKqB;AAAb;AAEtB,eAAU,cAAS;AAFG;AAAa;AAUA;AAAb;AAEtB,eAAU,cAAS;AAFG;AAAa;AAkHA;AAEnC,oBAAS,WAAT,GAAuB;AACvB,uBAAY,CAAC,IAAD;AAHuB;AAMC;AAEpC,oBAAS,cAAC,CAAc,KAAd;AAF0B;AAUD;AAEnC,oBAAS,WAAT,GAAuB;AACvB,uBAAY,CAAC,IAAD;AAHuB;AAMC;AAEpC,oBAAS,cAAC,CAAc,KAAd;AAF0B;AAXE;AAEtC,2BAAiB;AAFqB;AA5IJ;AAAZ;AAEtB,eAAU,cAAS;AAFG;AAAY;AAUA;AAAZ;AAEtB,eAAU,cAAS;AAFG;AAAY;AAmFC;AAEnC;AACA;AAEA,UAAG,gBAAH;AAEE,YAAW,CAAC,cAAS,WAAC,EAAX,SAAiD,IAAzB,cAAS,WAAC,EAAO,UAAC,EAAtB,IAAiC,CAAI,cAAS,WAAC,EAAO,UAArF;AAEE,cAAI,oBAAW,KAAE,oBAAjB;AACE,8BAAa,cAAS,WAAC,EAAO,SAAC,EAAM,GAAE,CAAvC;AAEF,oBAAI,mBAAU,KAAG,EAAjB;AAEE,iBAAM,cAAS,WAAC,EAAO,YAAY,CAAC,mBAAD,CAAW,eAAC;AAE/C,qBAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,kBAAG,WAAK,WAAC,CAAD,CAAG,MAAM,KAAE,EAAnB;AAEE,kCAAa,CAAb;AACA;eAGF,UAAI,WAAK,WAAC,CAAD,CAAG,MAAM,KAAE,EAApB;AAEE,kCAAa,CAAb;AACA;eAHF;;WAZJ;SALF;OAFF;AALmC;AAhHF;;AALA;;AAtBE;;AAkEI;AAEvC;AACA;AACA;AAAS;AAAM;AAAK;AACpB;AACA;AACA;AAEA,UAAG,CAAY,CAAC,oBAAD,SAAf,EACE,MADF;AAGA,UAAW,CAAC,cAAS,WAAC,EAAX,SAAiD,IAAzB,cAAS,WAAC,EAAO,UAAC,EAAtB,IAAiC,CAAI,cAAS,WAAC,EAAO,UAArF;AAEE,cAAO;AACP,YAAG,cAAS,WAAW,KAAG,EAA1B,EACE,MAAO,cAAS,WAAC,EAAO,YAAY,CAAC,cAAS,WAAV,CADtC;AAGA,YAAW,CAAC,GAAD,SAAM,IAAiB,CAAb,kBAAa,KAAG,EAAH,CAAlC;AAEE,wBAAS,WAAC,EAAO;AACjB,qBAAM,cAAS,WAAC,EAAO,cAAvB;AACA,qBAAK;AAEL,eAAM,cAAS,WAAC,EAAO;AACvB,wBAAS,WAAC,EAAO,aAAjB,GAAiC;AAEjC,wBAAS,WAAC,EAAO;AAEjB,iBAAM,CAAI,cAAS,WAAC,EAAO,OAAC,EAA5B;AAEE,kBAAO,WAAK;AAEZ,gBAAG,kBAAa,KAAG,EAAnB;AAEE,qBAAQ;AAER,kBAAY,GAAD,QAAX;AAEE,mBAAG,MAAH,GAAY,GAAG,eAAC;eAFlB;AAKA,uBAAS,QAA+C,OAA1C,cAAS,YAAW,SAAQ,WAAO,SAAC,EAAM,GAAE,CAAF,kBAAxD;AAAI;AAEF,wBAAS,IAAyD,GAAjD,cAAS,YAAW,SAAQ,WAAO,UAAC,CAAD,CAAG,WAAzC,GAAsD,IAAF;AAClE,oBAAG,cAAG,CAAC,sBAAS,CAAC,KAAD,EAAS,sBAAS,CAAC,IAAD,CAA5B,CAAoC,GAAE,CAA5C;AAEE,8BAAa,cAAS,YAAW,SAAQ,WAAO,UAAC,CAAD,CAAG,eAAC;AACpD,0CAAmB,CAAC,GAAG,SAAC,GAAO,cAAS,YAAW,SAAQ,WAAO,UAAC,CAAD,CAAG,YAAY;;;;sBAA9D;AACnB,yBAAQ,0BAAa,CAAC,KAAM,MAAO,UAAW,cAAC,6CAAc,4CAAf,CAAzB;iBAJvB;;AAQF,yBAAY;;AAIZ,yBAAY,GAAG,eAAC;;AAGlB,eAAG,QAAC,CAAQ,QAAR;AACJ,0BAAS,WAAC,EAAO;;AAGnB,wBAAS,WAAC,EAAO,aAAa,CAAC,EAAD;AAE9B,wBAAS,WAAC,EAAO,aAAjB,GAAiC;AACjC,wBAAS,WAAC,EAAO;SAjDnB;OANF;AAZuC;AA3BG;AAG1C,UAAY,6BAAD,QAAX,EACE,6BAAuB,CAAC,KAAM,MAAO,WAAY,MAA1B,CADzB;AAH0C;AAlCH;AAEvC;AAEA,UAAG,CAAY,CAAC,cAAD,SAAf;AAEE,yBAAa,gBAAW,QAAC;AACzB,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,gBAAT,GAA4B;AAC5B,sBAAS,gBAAT,GAA4B;AAE5B,yBAAa,gBAAW,QAAC;AACzB,sBAAS,gBAAT,GAA4B;OAT9B;AAJuC;AA2BR;AAErB,eAAV,KAAU;AACA,eAAV,KAAU;AACV;AAJ+B;AA/kKjB;;;AAkCG;;;;AAEF;;AA4CA;AAxCI;;;AAEjB;AACA;AACA;AACA;AACA;AACA;AACA;AARiB;AAo8FqB;AAExC,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACF,eAAX,iBAAc,yBAAH,CAAwB,OAAO,CAAC,IAAD;OAH7C;AAFwC;AASJ;AAEpC,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACE,eAAX,iBAAc,yBAAH,CAAwB,OAAO,CAAC,IAAD;OAH7C;AAFoC;AASA;AAEpC,oBAAU;AACkC,aAA/B,OAAX,iBAAc,yBAAH,CAAwB,SAAU,oBAAH,CAAmB,YAAU,CAAC,gBAAU,WAAX;AAHrC;AAhCF;AAElC,UAAc,wBAAH,eAAP,MAAO,CAAX;AAEE,4BAAsB,OAAP,OAAU,wBAAH,CAAuB;AAC7C,0BAAsB,OAAP,OAAU,wBAAH,CAAuB;AAC7C,sBAAkB,OAAP,OAAU,wBAAH,CAAuB;AACzC,+BAA2B,OAAP,OAAU,wBAAH,CAAuB;AAClD,yBAAqB,OAAP,OAAU,wBAAH,CAAuB;AAC5C,oBAAgB,OAAP,OAAU,wBAAH,CAAuB;AACvC,sBAAkB,OAAP,OAAU,wBAAH,CAAuB;OAR3C;AAFkC;AAt7Ff;AAeQ;AACP,iCAhqBV,yBAgqBU;AACJ;AACgB;AACb,gCAvBJ,8BAuBI;AACL;AACE;AArBG;AAwBC;;;AAElB;AAFkB;;;;;AAi2Fe;AAAP;AAE5B,eAAwC,YAAK,CAAC,KAAD;AAFjB;AAAO;AAUC;AAG1B,kBAAK,CAAC,MAAU,KAAX;AAHqB;AArBA;AAEpC,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAFoC;AA2BD;AAEnC;AACA;AAHmC;AArBE;AAErB,sDAAC,OAAQ,wBAAT;AAF0C;AAArB;AAXN;AAAH;AAE3B,eAAwC;AAFb;AAAG;AAqBG;AAAN;AAE5B,eAA8C,yCAAC,KAAD;AAFlB;AAAM;AAt2Fd;AASA,+BAAO,UtEpJjB,+BsEoJiB,CAAP;AATA;AAgBL;;;AAEb;AACA;AACA;AACA;AALa;;;;;;AAqzFmB;AAElC,mBAAQ,OAAO,CAAC,KAAD;AAFmB;AA9MF;AAEhC;AAAE;AAAE;AACJ;AACA;AACA;AAAG;AACH;AACA;AACA;AAAO;AACP;AAEA,cAAS,oBAAU,SAAQ,OAAC;AAC5B,cAAS,oBAAU,SAAQ,OAAC;AAE5B,iBAAM,oBAAU,SAAQ,cAAxB;AAEA,0BAAU,SAAQ;AAElB,oBAAe,oBAAU,SAAQ;AACjC,0BAAU,SAAQ,aAAlB,GAAkC;AAElC,0BAAU,SAAQ;AAElB,UAAG,eAAH;AACE,YAAK;AAEL,gBAAK;AAEP,eAAU;AAEV,eAAS,QAAmB,OAAd,aAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AAEF,YAAG,aAAO,WAAC,CAAD,CAAG,WAAW,KAAG,EAA3B,EACE,SAAU,KADZ;;AAIF,4BAAkB;AAElB,UAAG,MAAO,IAAmB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAA7B;AAEE,iBAAS,SAAmC,QAA9B,oBAAU,SAAQ,cAAC,EAAW,GAAE,CAAF,qBAA5C;AAAI;AAEF,cAAG,CAAE,IAAG,aAAO,SAAC,EAAhB,EACE,aAAO,QADT;AAGY,sBAAP,aAAO,WAAC,CAAD;AAEV,cAAG,gBAAU,KAAE,EAAf,EACE,mBAAa,oBAAU,SAAQ,WAAO,UAAC,CAAD,CAAG,WAAzC,CADF;AAEA,cAAG,YAAM,KAAE,EAAX,EACE,eAAU,oBAAU,SAAQ,WAAO,UAAC,CAAD,CAAG,eAAC,EAAvC,CADF;;OAXN;AAiBA,UAAG,aAAO,SAAC,EAAM,KAAE,CAAnB;AAEE,iBAAS,SAAmC,QAA9B,oBAAU,SAAQ,cAAC,EAAW,GAAE,CAAF,qBAA5C;AAAI;AAEU,uBAAP,aAAO;AAEV,mBAAU,oBAAU,SAAQ,WAAO,UAAC,CAAD;AACnC,8BAAa,MAAM,WAAnB;AACA,0BAAS,iBAAT;AACA,cAAc,iBAAH,eAAP,MAAO,CAAe,IAAI,CAAe,iBAAH,eAAP,MAAO,CAA1C;AAEE,+BAAY;WAFd;;OATN;AAiBA,uBAAY,aAAO,SAAC,EAApB;AACA,uBAAY,oBAAU,SAAQ,eAAC,EAAY,GAAE,CAA7C;AAEA,UAAG,eAAH;AAEE,iBAAS,SAAc,QAAT,cAAS,GAAE,CAAF,qBAAvB;AAAI;AAEF,mBAAU;AAEV,cAAI,aAAO,WAAC,CAAD,CAAG,WAAW,KAAG,EAA5B;AAEE;AACE,uBAAU,oBAAU,SAAQ,YAAY,CAAC,aAAO,WAAC,CAAD,CAAG,WAAX;AAD1C;AAGE,uBAAU;AAHZ;WAFF;AASA,eAAM,aAAO,WAAC,CAAD,CAAG;AAEhB,0BAAW,CAAC,EAAG,EAAG,KAAK;;;;cAAZ;AACX,uBAAK,CAAC,EAAG,EAAM,EAAV;AAEL,eAAM,aAAO,WAAC,CAAD,CAAG;AAEhB,eAAqB,mBAAY,CAAC,EAAE,CAAH;AAEjC,8BAAe,CAAC,EAAG,EAAG,OAAQ,GAAI,EAAnB;AAEf,+BAAgB,CAAC,EAAG,EAAG,OAAQ,GAAI;;;;cAAnB;AAEhB,cAAW,CAAC,EAAD,SAAK,IAAQ,CAAH,EAAG,KAAG,EAAH,CAAxB,EACE,EAAE,aAAa,CAAC,QAAQ,EAAT,CADjB;;OA5BJ;AAmCA,aAAM,CAAI,oBAAU,SAAQ,OAAC,EAA7B;AAEE,oBAAO,CAAC,CAAD;AACH,SAAJ,IAAG;AACH,4BAAU,SAAQ;;AAGpB,UAAG,oBAAU,SAAQ,UAArB,EACE,iBAAY,CAAZ,CADF;AAGA,UAAG,oBAAU,SAAQ,cAAc,CAAC,2BAAD,CAAnC,EACE,oBAAU,SAAQ,aAAa,CAAC,EAAD,CADjC;AAGA,UAAG,KAAH,EACE,oBAAU,SAAQ,QADpB;AAGA,UAAG,KAAH,EACE,oBAAU,SAAQ,OADpB;AAGA,0BAAU,SAAQ;AAClB,0BAAU,SAAQ,aAAlB,GAAkC;AAlIF;AAkJD;AAE/B;AAAE;AAAE;AACJ;AACA;AAAG;AAAG;AACN;AAGA,UAAK;AACL,UAAK;AAEL,eAAS,QAAc,OAAT,cAAS,GAAE,CAAF,kBAAvB;AAAI;AAEF,iBAAU;AACV,aAAM;AACN,eAAQ;AAER,aAAM;AAEN,YAAG,aAAO,WAAC,CAAD,CAAG,OAAO,GAAE,CAAtB,EACE,OAAQ,QAAmH,GAA1F,4CAAC,CAAV,GAAP,aAAO,WAAC,CAAD,GAAU;;;;YAAD,CAAjB,GAA2B,sDAAD,GAAwE,4CAAC,CAAV,GAAP,aAAO,WAAC,CAAD,GAAU;;;;YAAD,CAAjB,GAA2B,uBAD9H;AAGA,YAAI,aAAO,WAAC,CAAD,CAAG,WAAW,KAAG,EAA5B;AAEE;AACE,qBAAU,oBAAU,SAAQ,YAAY,CAAC,aAAO,WAAC,CAAD,CAAG,WAAX;AAD1C;AAGE,qBAAU;AAHZ;AAKA,cAAY,MAAD,QAAX,EACE,KAAM,0BAAoB,CAAC,GAAI,OAAQ,aAAO,WAAC,CAAD,CAAG,WAAW,MAvhFqF,KAA0B,CAuhFjJ,CAD5B;SAPF;AAWA,wBAAW,CAAC,EAAE,EAAE,OAAO;;;;YAAZ;AAEX,qBAAK,CAAC,EAAE,EAAM,EAAT;AAEL,aAAM,aAAO,WAAC,CAAD,CAAG;AAEhB,YAAG,kBAAa,CAAC;;;;YAAD,CAAhB;AAEE,eAAqB,mBAAY,CAAC,EAAE,EAAH;AAEjC,cAAY,EAAD,QAAX;AAGE,gBAAG,IAAK,KAAG,EAAX,EACE,EAAE,cAAC,QAAY,IAAb,CADJ;AAGA,gCAAe,CAAC,EAAG,EAAG,OAAQ,GAAI,EAAnB;AAEf,iCAAgB,CAAC,EAAG,EAAG,OAAQ,GAAI;;;;gBAAnB;AAEhB,gBAAW,CAAC,EAAD,SAAK,IAAQ,CAAH,EAAG,KAAG,EAAH,CAAxB,EACE,EAAE,aAAa,CAAC,QAAQ,EAAT,CADjB;WAVF;SAJF;;AAvC6B;AAhMG;AAElC,UAAG,kBAAH,EACE,MADF;AAGA,2BAAiB;AAEjB,UAAW,CAAC,cAAS,YAAV,SAA0G,IAAvE,CAAC,cAAS,YAAW,SAArB,SAAZ,IAA+C,cAAS,YAAW,SAAQ,UAAC,EAAjC,IAAgF,CAAnC,cAAS,YAAW,SAAQ,OAAO,KAAE,6BAAF,CAA7J;AAEE;OAFF;AAKA,2BAAiB;AAZiB;AAeE;AAEpC;AAEA,UAAW,CAAC,cAAS,YAAV,SAA0G,IAAvE,CAAC,cAAS,YAAW,SAArB,SAAZ,IAA+C,cAAS,YAAW,SAAQ,UAAC,EAAjC,IAAgF,CAAnC,cAAS,YAAW,SAAQ,OAAO,KAAE,6BAAF,CAA7J;AAEE,YAAK,cAAS,YAAW,SAAQ,SAAC,EAAM,GAAE,CAAF;AAExC,YAAG,CAAE,KAAE,CAAC,CAAR,EACE,MADF;AAGA,YAAG,eAAH,EACM,CAAJ,IAAG,CADL;AAGA,YAAG,CAAE,GAAE,cAAP,EACE,YAAO,CAAC,CAAD,CADT;OAVF;AAJoC;AA/DA;AAGpC,UAAG,CAAY,CAAC,oBAAD,SAAf,EACE,MADF;AAGA,UAAG,CAAY,CAAC,oBAAU,SAAX,SAAf,EACE,MADF;AAGA,UAAG,oBAAU,SAAQ,mBAArB,EACE,MADF;AAGA,UAAG,oBAAU,SAAQ,UAAC,EAAtB;AAEE,6BAAiB;AACjB;AACA,6BAAiB;;AAIjB,yBAAY,CAAZ;AACA;AACA,YAAG,mBAAH,EACE,aAAO,QADT;;AAtBkC;AAiTC;AAErC,oBAAS,cAAC,CAAc,KAAd;AAF2B;AAxND;AAAb;AAEvB,eAAU,cAAS;AAFI;AAAa;AA0IN;AAE9B;AACA,uBAAY,aAAO,SAAC,EAApB;AAEA,UAAW,CAAC,oBAAD,SAA8C,IAArB,CAAC,oBAAU,SAAX,SAAZ,IAAqC,oBAAU,SAAQ,UAAC,EAAhF;AAEE,6BAAiB;AACjB;AACA,6BAAiB;OAJnB;AAL8B;AAxMU;AAExC;AACA,uBAAY,CAAZ;AAEA,UAAG,CAAY,CAAC,cAAD,SAAf;AAEE,yBAAa,gBAAW,QAAC;AACzB,sBAAS,gBAAT,GAA4B;AAC5B,sBAAS,gBAAT,GAA4B;AAC5B,sBAAS,cAAT,GAA0B;OAL5B;AAOA,UAAG,CAAY,CAAC,aAAD,SAAf;AAEE,wBAAY,yBAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,qBAAQ,UAAR,GAAqB;OAHvB;AAKA,4BAAkB;AAClB,2BAAiB;AAlBuB;AAuDR;AAEtB,eAAV,KAAU;AACD,eAAT,KAAS;AACT;AAJgC;AA3lFjB;;;;AAoBG,+BApCE,mCAoCF;AACG,kChCi1BV,4BgCj1BU;AACC,mClE5lBV,6CkE4lBU;AACK,wClE/lBV,kDkE+lBU;AACP,iClE/lBV,2CkE+lBU;AACM,uClE9lBV,iDkE8lBU;AAzBX;AA4BG;;;;;AAES;;;AAEzB;AACA;AAHyB;;;;;AAmuLsB;AAAd;AAEnC,eAAU,wBAAiB,cAAC;AAFO;AAAc;AAqEC;AAElD,8BAAiB,cAAC,CAAc,KAAd;AAFgC;AA1EE;AAAjB;AAEnC,eAA0B;AAFS;AAAiB;AAVL;AAAZ;AAEnC,eAAU,cAAS;AAFgB;AAAY;AAKC;AAAb;AAEnC,eAAU,cAAS;AAFgB;AAAa;AAmEA;AAEhD,oBAAS,WAAT,GAAuB;AACvB,oBAAS;AACT,uBAAY,CAAC,IAAD;AAJoC;AAOC;AAEjD,oBAAS,cAAC,CAAc,KAAd;AAFuC;AA9IH;AAAX;AAGnC,eAAU,uBAAkB,QAAC,YAAM,CAAC,MAAD,CAAN;AAHM;AAAW;AAyBA;AAE9C,UAAY,cAAS,OAAV,QAAX;AAEE,YAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,sBAAS,OAAM,YAAC,CAAY,cAAZ;OALlB;AAF8C;AAnBA;AAE9C,UAAG,gBAAH,EACE,MADF;AAGA;AAEA,UAAG,CAAY,CAAC,cAAS,WAAC,EAAX,SAAf,EACE,MADF;AAGA,UAAG,CAAY,CAAC,cAAS,OAAV,SAAf,EACE,cAAS,cADX;AAGA,UAAW,CAAC,cAAS,OAAV,SAAkB,IAAI,CAAI,cAAS,WAAC,EAAO,UAAtD;AACE,qBAAQ,cAAS,OAAM,eAAC,EAAxB;AAEA,yBAAQ,EAAR;AAhB4C;AAtCE;AAEhD;AAEA,UAAY,cAAS,WAAC,EAAX,QAAX;AAEE,YAAG,CAAI,cAAS,WAAC,EAAO,UAAC,EAAO,IAAG,CAAI,oBAAU,SAAjD;AACE,uBAAQ,EAAR;AAEA,cAAA,eAAU,CAAC,IAAD;OALd;AAJgD;AAaD;AAAZ;AAEnC,eAAU,aAAO,CAAC,qBAAY,oBAAW,cAAxB;AAFkB;AAAY;AA0EC;AAAb;AAEnC,UAAY,oBAAD,QAAX;AACE,iBAAU,CAAI,cAAS,WAAC,EAAO,mBAA+F,IAApD,CAApB,oBAAU,UAAU,IAA6B,CAAzB,oBAAU,SAAQ,OAAO,IAAG,cAAC,4BAAO,6BAAR,CAAH,CAA7B,CAAzB,IAAiF,cAAS,OAAb;AAE9H,qBAAU;AALuB;AAAa;AAiCH;AAAV;AAEnC,eAAU,cAAS,IAAG,CAAI,mBAAP;AAFgB;AAAU;AALD;AAAT;AAEnC,eAAU,aAAQ,IAAI,mBAAJ;AAFiB;AAAS;AAUD;AAG3C;AAH2C;AAMC;AAE5C;AAEA,UAAG,CAAI,mBAAP;AAEE;AACA;OAHF;AAMA,UAAG,cAAS,WAAC,EAAO,mBAApB;AAEE;AACA;AACA;OAJF;AAOA,yBAAe;AACf,gBAAW;AACX,yBAAe;AAEf,UAAG,CAAI,OAAP;AAEE,gBAAO,MAAP;AACA;OAHF;AAMA,UAC6C,cAAS,UADtD;AAGE,gBAAO,MAAP;OAHF;AAMkB,yDAAC,GAAD;AAjC0B;AAzDF;AAE1C,UAAG,CAAI,cAAS,UAAhB;AAEE,2BAAe;AACf,sBAAS;OAHX;AAMU;AAEV,yBAAe;AAV2B;AAxDU;AAEpD,UAAG,CAAY,CAAC,cAAD,SAAf;AAEE,yBAAa,mBAAc,QAAC;AAC5B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,gBAAT,GAA4B;AAC5B,2BAAe;OANjB;AASA;AAXoD;AAkDR;AAElC,eAAV,KAAU;AACV;AAH4C;AAzrLjB;;;AAiCL,mChCuyBX,4BgCvyBW;AACF,iCAxvBV,yBAwvBU;AACC,kChCqyBV,4BgCryBU;AAnCM;AAsCG;;;;AAGb;;;AAEf;AACA;AACA;AACA;AACA;AANe;;;;;AAg+FmB;AAEpC;AACA;AAEA,UAAW,CAAC,cAAS,YAAV,SAA0G,IAAvE,CAAC,cAAS,YAAW,SAArB,SAAZ,IAA+C,cAAS,YAAW,SAAQ,UAAC,EAAjC,IAA4C,CAAI,eAA7H;AAEE,iBAAU;AACV,yBAAa,cAAS,WAAC,EAAO;AAE9B,YAAG,CAAI,kBAAc,IAAkB,CAAb,iBAAa,KAAG,cAAS,WAAC,EAAO,eAAC,EAArB,CAAvC;AAEE,+BAAiB;AACjB;AACA,+BAAiB;SAGnB,UAAG,CAAI,kBAAoC,IAAV,CAAP,MAAO,KAAE,2BAAF,CAAZ,IAAmD,CAAxB,cAAS,WAAC,EAAO,OAAO,KAAE,6BAAF,CAAxE;AAEE,+BAAiB;AACjB;AACA,+BAAiB;SAJnB;AAOA,iBAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,cAAyB,WAAK,WAAC,CAAD,CAAI,OAAO,KAAE,cAAS,YAAW,SAAQ,SAAC,EAAxE;AAEE,8BAAa,CAAb;AACA;WAHF;;OArBJ;AALoC;AAzBE;AAEtC,UAAW,CAAC,cAAS,YAAV,SAAkE,IAA/B,CAAC,cAAS,YAAW,SAArB,SAAZ,IAA+C,cAAS,YAAW,SAAQ,UAAC,EAA9G;AAEE,6BAAiB;AACjB;AACA,6BAAiB;OAGjB,MAAA,WAAK;AAT+B;AAoKC;AAEvC,oBAAS,cAAC,CAAc,KAAd;AACV;AAHuC;AAjGD;AAAb;AAEzB,eAAU,cAAS;AAFM;AAAa;AAKK;AAE3C,UAAW,CAAC,cAAS,YAAV,SAAkE,IAA/B,CAAC,cAAS,YAAW,SAArB,SAAZ,IAA+C,cAAS,YAAW,SAAQ,UAAC,EAA9G;AAEE,0BAAc;AAEd,YAAU,CAAN,KAAM,IAAG,CAAH,CAAM,IAAW,CAAN,KAAM,GAAE,WAAK,SAAC,EAAR,CAA3B,EACE,cAAS,YAAW,SAAQ,SAAC,CAA+B,WAAK,WAAC,KAAD,CAAQ,OAA5C,CAD/B;AAEA,0BAAc;OANhB;AAQA;AAV2C;AAkBT;AAElC;AAAM;AAAO;AACb;AACA;AACA;AACA;AAIA,UAAW,CAAC,cAAS,YAAV,SAAkE,IAA/B,CAAC,cAAS,YAAW,SAArB,SAAZ,IAA+C,cAAS,YAAW,SAAQ,UAAC,EAA9G;AAEE,sBAAS,YAAW,SAAQ;AAE5B,sBAAe,oBAAU,SAAQ;AACjC,4BAAU,SAAQ,aAAlB,GAAkC;AAElC,mBAAM,cAAS,WAAC,EAAO,cAAvB;AAEA,mBAAK;AAEL,sBAAS,YAAW,SAAQ;AAE5B,eAAM,CAAI,cAAS,YAAW,SAAQ,OAAC,EAAvC;AAEE,gBAAO,WAAK;AAEU,aAAI,OAA1B,GAAoC,cAAS,YAAW,SAAQ,SAAC;AAEjE,iBAAQ,aAAO;AAEf,kBAAS;AACT,cAAG,cAAG,CAAC,MAAO,IAAR,CAAc,GAAE,CAAtB;AAEE,mBAAQ,0BAAa,CAAC,KAAM,MAAO,qBAAQ,CAAC,GAAG,SAAC,EAAL,EAAa,cAAC,4CAAD,CAAnC;WAFvB;AAKA,mBAAS,QAA+C,OAA1C,cAAS,YAAW,SAAQ,WAAO,SAAC,EAAM,GAAE,CAAF,kBAAxD;AAAI;AAEF,oBAAS,IAAyD,GAAjD,cAAS,YAAW,SAAQ,WAAO,UAAC,CAAD,CAAG,WAAzC,GAAsD,IAAF;AAClE,gBAAG,cAAG,CAAC,sBAAS,CAAC,KAAD,EAAS,sBAAS,CAAC,IAAD,CAA5B,CAAoC,GAAE,CAA5C;AAEE,0BAAa,cAAS,YAAW,SAAQ,WAAO,UAAC,CAAD,CAAG,eAAC;AACpD,sCAAmB,CAAC,GAAG,SAAC,GAAO,cAAS,YAAW,SAAQ,WAAO,UAAC,CAAD,CAAG,YAAY;;;;kBAA9D;AACnB,qBAAQ,0BAAa,CAAC,KAAM,MAAO,UAAW,cAAC,6CAAc,4CAAf,CAAzB;aAJvB;;AAQF,aAAG,QAAC,CAAQ,IAAR;AAEJ,4BAAa,CAAC,GAAG,SAAC,EAAL;AAEb,wBAAS,YAAW,SAAQ;;AAG9B,4BAAgB,cAAS,WAAC,EAAO,eAAC;AAElC,YAAG,oBAAU,SAAQ,cAAc,CAAC,2BAAD,CAAnC,EACE,cAAS,WAAC,EAAO,aAAa,CAAC,EAAD,CADhC;AAGA,sBAAS,YAAW,SAAQ;AAE5B,4BAAU,SAAQ,aAAlB,GAAkC;OAGlC,MAAA,WAAK;AAjE2B;AAoEM;AAExC;AACA;AAHwC;AAlJE;AAE1C;AACA,2BAAiB;AACjB,UAAG,CAAY,CAAC,cAAD,SAAf;AAEE,yBAAa,gBAAW,QAAC;AACzB,sBAAS,gBAAT,GAA4B;AAC5B,sBAAS,gBAAT,GAA4B;OAJ9B;AAMA,wBAAc;AAV4B;AAiDR;AAExB,eAAV,KAAU;AACV;AAHkC;AAwBD;AAEjC;AAFiC;AA5hGhB;;;AAoBI,kChC2wBV,4BgC3wBU;AACC,mClElqBV,6CkEkqBU;AACK,wClErqBV,kDkEqqBU;AACP,iClErqBV,2CkEqqBU;AACM,uClEpqBV,iDkEoqBU;AAxBT;AA2BG;;;;AAET;;;AAET;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAhBS;;;;;;AA4pGqB;AAEhC,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACF,eAAX,iBAAc,iBAAH,CAAgB,OAAO,CAAC,IAAD;AACnC,wBAAY;OAJd;AAFgC;AA8BJ;AAE5B,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACE,eAAX,iBAAc,iBAAH,CAAgB,OAAO,CAAC,IAAD;OAHrC;AAF4B;AAUA;AAE5B,UAAI,WAAO,KAAG,KAAd;AAEE,sBAAU;AACE,eAAX,iBAAc,iBAAH,CAAgB,OAAO,CAAC,IAAD;OAHrC;AAF4B;AA9BQ;AAEpC;AAEA,eAAS,QAAwC,OAAvB,OAAX,iBAAc,iBAAH,CAAgB,SAAC,EAAM,GAAE,CAAF,kBAAjD;AAAI;AAEF,YAAe,OAAX,iBAAc,iBAAH,CAAgB,UAAM,CAAC,CAAD,CAAG,eAAgB,KAAG,6CAA3D;AAEc,iBAAX,iBAAc,iBAAH,CAAgB,UAAM,CAAC,CAAD,CAAG,eAArC,GAAwD;AACxD,cAAwB,OAAX,iBAAc,iBAAH,CAAgB,uBAA7B,QAAX,EACc,OAAX,iBAAc,iBAAH,CAAgB,uBAAsB,CAAa,OAAX,iBAAc,iBAAH,EAAkB,EAAG,6CAAlC,CADpD;SAHF;;AAQF,4BAAkB;AAElB,UAAwB,OAAX,iBAAc,iBAAH,CAAgB,uBAA7B,QAAX,EACc,OAAX,iBAAc,iBAAH,CAAgB,uBAAsB,CAAa,OAAX,iBAAc,iBAAH,EAAkB,gBAAO,mBAAtC,CADpD;AAhBoC;AAfA;AAEpC,4BAAkB;AAFkB;AATJ;AAEhC;AAEA,wBAAc;AACd,YAA2B,OAAX,iBAAc,iBAAH,CAAgB;AAC3C,SAAG,iBAAc,CAAC,eAAM,GAAE,GAAG,WAAL,CAAoB,eAA3B;AANe;AAnBH;AAAV;AAEnB;AAEA,UAAc,CAAV,eAAU,KAAG,EAAH,CAAO,IAAa,CAAR,aAAQ,KAAE,IAAF,CAAlC;AAEE,cAA2B,OAAX,iBAAc,iBAAH,CAAgB;AAC3C,YAAW,CAAC,GAAD,SAAmC,IAAjB,CAAC,GAAG,cAAC,EAAL,SAAZ,IAAyC,CAAC,GAAG,cAAC,EAAU,SAAf,SAA1D,EAEA;AACE,0BAAW,GAAG,cAAC,EAAU,SAAQ,YAAY,CAAC,eAAD;AAD/C;AAGE,0BAAW;AAHb,SAFA;OAHF;AAYA,eAAU;AAhBS;AAAU;AApCH;AAE1B,UAAc,wBAAH,eAAP,MAAO,CAAX;AAEE,4BAAsB,OAAP,OAAU,gBAAH,CAAe;AACrC,0BAAsB,OAAP,OAAU,gBAAH,CAAe;AACrC,sBAAkB,OAAP,OAAU,gBAAH,CAAe;AACjC,+BAA2B,OAAP,OAAU,gBAAH,CAAe;AAC1C,yBAAqB,OAAP,OAAU,gBAAH,CAAe;AACpC,sBAAkB,OAAP,OAAU,gBAAH,CAAe;AACjC,uBAAmB,OAAP,OAAU,gBAAH,CAAe;AAClC,yBAAqB,OAAP,OAAU,gBAAH,CAAe;AACpC,2BAAc,OAAO,CAAS,OAAP,OAAU,gBAAH,CAAe,eAAxB;AACrB,oBAAgB,OAAP,OAAU,gBAAH,CAAe;AAC/B,wBAAoB,OAAP,OAAU,gBAAH,CAAe;AACnC,2BAAuB,OAAP,OAAU,gBAAH,CAAe;AACtC,0BAAsB,OAAP,OAAU,gBAAH,CAAe;AACrC,mCAA+B,OAAP,OAAU,gBAAH,CAAe;OAfhD;AAF0B;AAqBE;AAE5B;AACA,oBAAU;AACV,uBAAa;AACb,4BAAkB,uBAAW,QAAC;AAC9B,iCAAuB;AAN+B;AAA1B;AASA;AAEb,eAAf,KAAe;AACf;AAH4B;AArnGjB;AA4BS,+BAAW,ctEjXpB,gCsEiXoB,CAAX;AAIA,iCtEzyBV,gCsEyyBU;AACS;AACL,qCtE1mBhB,8BsE0mBgB;AACJ,iCA/zBV,yBA+zBU;AACD,gCApLJ,8BAoLI;AACA,gCNv0BV,sCMu0BU;AACF,8BJ1yBF,6CI0yBE;AACU;AACN;AACP;AACE;AACgB;AAChB;AA5CL;AA+CU,4EAAmB,U/E/uBjC,2B+E+uBiC,EAAe,qBAAqB,cJrzB1D,+CIqzB0D,CAAvD;AAET;;;AAEV;AACA;AAHU;;;;;;AA8qGe;AAAP;AAEpB,eAAgC,YAAK,CAAC,KAAD;AAFjB;AAAO;AAUC;AAGlB,kBAAK,CAAC,MAAU,KAAX;AAHa;AArBA;AAE5B,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAF4B;AA2BD;AAE3B;AACA;AAH2B;AArBE;AAEb,sDAAC,OAAQ,gBAAT;AAFkC;AAArB;AAXN;AAAH;AAEnB,eAAgC;AAFb;AAAG;AAqBG;AAAN;AAEpB,eAAsC,yCAAC,KAAD;AAFlB;AAAM;AAnrGd;AAWQ,+BAAO,UtE3TjB,+BsE2TiB,CAAP;AAXR;AAmBL;;;AAEL;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAVK;;;;;;AAyiHqB;AAAb;AAEf,eAAU,cAAS;AAFJ;AAAa;AAgWF;AAE1B,mBAAQ,OAAO,CAAC,KAAD;AAFW;AAKG;AAE7B,oBAAS,cAAC,CAAc,KAAd;AAFmB;AAKG;AAEhC,4BAAkB;AAClB,0BAAe,CAAC,aAAD;AAHiB;AArcJ;;AAIC;;AAIG;AAEN,wDAAC,MAAD;AAC1B,YAAM,eAAe,CAAC,YAAc,wCAAe,yCAAe,KAA7C;AACrB,YAAM,eAAe,CAAC,aAAe,wCAAe,yCAAe,KAA9C;AACrB,YAAM,eAAe,CAAC,eAAiB,wCAAe,yCAAe,KAAhD;AALW;AA0IR;AAExB;AAAE;AAAE;AAAE;AACN;AACA;AACA;AAAM;AACN;AAAO;AAAI;AACX;AACA;AACA;AAEA,eAAU;AACV,UAAK;AAEL,eAAS,QAAmB,OAAd,aAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AAEF,YAAG,aAAO,WAAC,CAAD,CAAG,WAAW,KAAG,EAA3B,EACE,SAAU,KADZ;;AAIF,4BAAkB;AAIlB,UAAG,MAAO,IAAmB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAA7B;AAEE,qBAAO;AAEP,iBAAS,SAAkC,QAA7B,cAAS,WAAC,EAAO,cAAC,EAAW,GAAE,CAAF,qBAA3C;AAAI;AAGF,cAA0C,CAAtC,cAAS,WAAC,EAAO,WAAO,UAAC,CAAD,CAAG,WAAW,KAAE,wBAAF,CAAU,IAAiB,CAAZ,kCAAY,IAAG,cAAS,WAAC,EAAO,WAAO,UAAC,CAAD,CAAG,UAAS,YAAvC,CAArE,EACE,QADF;AAGA,cAAG,CAAI,cAAS,WAAC,EAAO,WAAO,UAAC,CAAD,CAAG,SAAlC,EACE,QADF;AAGA,cAAG,CAAE,IAAG,aAAO,SAAC,EAAhB,EACE,aAAO,QADT;AAGY,sBAAP,aAAO,WAAC,CAAD;AAEV,6BAAc,cAAS,WAAC,EAAO,WAAO,UAAC,CAAD,CAAG;AACzC,yBAAW,cAAS,WAAC,EAAO,WAAO,UAAC,CAAD,CAAG,eAAC;AAEvC,cAAG,cAAS,WAAC,EAAO,WAAO,UAAC,CAAD,CAAG,WAAW,KAAE,0BAA3C;AAEE,4BAAU;AACV,+BAAc,CAAC,EAAG,cAAS,WAAC,EAAO,WAAO,UAAC,CAAD,CAA5B;WAHhB;AAMA,cAAI,cAAS,WAAC,EAAO,WAAO,UAAC,CAAD,CAAG,UAAU,IAAG,cAAC,yBAAQ,4BAAT,CAA5C,EACE,gBAAU,0CADZ;AAGA,cAAI,cAAS,WAAC,EAAO,WAAO,UAAC,CAAD,CAAG,UAAU,IAAG,cAAC,wBAAD,CAA5C,EACE,gBAAU,0CADZ;AAGA,cAAI,cAAS,WAAC,EAAO,WAAO,UAAC,CAAD,CAAG,UAAU,IAAG,cAAC,2BAAD,CAA5C;AAEE,8BAAY;WAFd;;AAQJ,eAAO,aAAO,SAAC,EAAM,GAAE,cAAS,WAAC,EAAO,cAAC,EAAzC;AAEE,uBAAO,OAAO,CAAC,aAAO,SAAC,EAAM,GAAE,CAAjB;;OA3ClB;AA+CA,UAAI,aAAO,SAAC,EAAM,KAAE,CAApB;AAEE,iBAAS,SAAkC,QAA7B,cAAS,WAAC,EAAO,cAAC,EAAW,GAAE,CAAF,qBAA3C;AAAI;AAEF,cAAI,kCAAY,IAAG,cAAS,WAAC,EAAO,WAAO,UAAC,CAAD,CAAG,UAAS,YAAvD,EACE,QADF;AAGY,uBAAP,aAAO;AAEV,8BAAc,cAAS,WAAC,EAAO,WAAO,UAAC,CAAD,CAAG;AACzC,0BAAW,cAAS,WAAC,EAAO,WAAO,UAAC,CAAD,CAAG,eAAC;;AAG3C,qBAAO;OAbT;AAiBA,uBAAY,aAAO,SAAC,EAAM,GAAE,eAA5B;AAEA,uBAAY,cAAS,YAAW,SAAQ,eAAC,EAAY,GAAE,eAAvD;AAEA;AAEA,cAAS,cAAS,WAAC,EAAO,OAAC;AAC3B,cAAS,cAAS,WAAC,EAAO,OAAC;AAE3B,oBAAS,YAAW,SAAQ;AAE5B,iBAAM,cAAS,WAAC,EAAO,cAAvB;AAEA,WAAM,cAAS,WAAC,EAAO;AACvB,oBAAS,WAAC,EAAO,aAAjB,GAAiC;AAEjC,oBAAS,YAAW,SAAQ;AAE5B,UAAG,eAAU,GAAE,CAAf;AAEE,iBAAS,SAAmB,QAAd,aAAO,SAAC,EAAM,GAAE,CAAF,qBAA5B;AAAI;AAEF,mBAAU,aAAO,WAAC,CAAD,CAAG;AACL,qBAAV,aAAO,WAAC,CAAD,CAAG;AACf,cADe,IACf;AAAa,qBAAU,MAAO,GAAE,gBAAF;AAC9B,oBAFe,IAEf,0DAAc,SAAU,MAAO,GAAE,eAAjC;AAGA,uBAAK,CAAC,CAAE,GAAE,eAAF,CAAa,EAAM,MAAtB;AAEL,cAAG,aAAO,WAAC,CAAD,CAAG,gBAAuB,KAAG,EAAvC;AAEE,iBAAM,0BAAqB,CAAC,CAAE,GAAE,eAAF,CAAa,CAAhB;AAE3B,gBAAY,EAAD,QAAX;AAEE,yBAAY,aAAO,WAAC,CAAD,CAAG;AACtB;AACE,uBAAQ,cAAG,CAAC,IAAK,QAAN;AACX,oBAAG,IAAK,GAAE,CAAV;AAEE,oBAAE,UAAU,IAAI,CAAC,eAAI,CAAC,SAAS,EAAE,IAAK,GAAE,CAAnB,CAAL;AAChB,mCAAM,CAAC;;;;uBAAS,EAAE,IAAZ;iBAGN,MAAA,EAAE,UAAU,IAAI,CAAC,QAAD;eARpB,QASW,EAAL,IAAK,KAAE,CAAF,CATX;aAHF;WAJF;AAoBA,gBAAO,aAAO,WAAC,CAAD,CAAG;AAEjB,eAAM,0BAAqB,CAAC,CAAE,GAAE,eAAF,CAAa,CAAhB;AAE3B,8BAAe,CAAC,CAAE,GAAE,eAAF,CAAa,EAAG,IAAK,OAAQ,EAAhC;AAEf,+BAAgB,CAAC,CAAE,GAAE,eAAF,CAAa,EAAG,EAAnB;AAEhB,eAAM,aAAO,WAAC,CAAD,CAAG;AAEhB,+BAAgB,CAAC,CAAE,GAAE,eAAF,CAAa,EAAG,IAAK,OAAQ;;;;cAAhC;AAEhB,cAAW,CAAC,EAAD,SAAK,IAAQ,CAAH,EAAG,KAAG,EAAH,CAAxB,EACE,EAAE,aAAa,CAAC,QAAQ,EAAT,CADjB;;OA5CJ;AAiDA,UAAK;AAcL,aAAM,CAAI,cAAS,YAAW,SAAQ,OAAC,EAAvC;AAEE,oBAAO,CAAC,CAAD;AACH,SAAJ,IAAG;AACH,sBAAS,YAAW,SAAQ;;AAG9B,UAAG,cAAS,YAAW,SAAQ,UAA/B,EACE,iBAAY,CAAZ,CADF;AAGA,UAAG,oBAAU,SAAQ,cAAc,CAAC,2BAAD,CAAnC,EACE,cAAS,YAAW,SAAQ,aAAa,CAAC,EAAD,CAD3C;AAGA,UAAG,KAAH,EACE,cAAS,YAAW,SAAQ,QAD9B;AAGA,UAAG,KAAH,EACE,cAAS,YAAW,SAAQ,OAD9B;AAGA,oBAAS,WAAC,EAAO,aAAjB,GAAiC;AACjC,oBAAS,YAAW,SAAQ;AA7LJ;AAyND;AAEvB;AAAE;AACF;AACA;AAAG;AACH;AAGA,UAAG,IAAK,GAAE,eAAV,EACE,MADF;AAGA,UAAK;AAEL,eAAS,QAAmB,OAAd,aAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AAEF,YAAG,cAAmC,IAAnB,CAAF,CAAE,KAAM,CAAJ,aAAI,GAAE,eAAF,CAAN,CAAP,IAAoC,CAAL,IAAK,KAAE,aAAF,CAAhD,EACE,QADF;AAGA,aAAM;AACN,aAAM,0BAAqB,CAAC,CAAE,GAAE,eAAF,CAAa,CAAhB;AAE3B,+BAAkB,CAAC,EAAE,EAAE,EAAL;AAElB,cAAO,aAAO,WAAC,CAAD,CAAG;AAEjB,YAAY,GAAD,QAAX;AAEE,eAAM,qBAAe,CAAC,GAAI,IAAK,aAAO,WAAC,CAAD,EAAK,yCAAU,IAAG,aAAnC;SAFvB;AAKA,wBAAW,CAAC,EAAG,EAAG,IAAK;;;;YAAZ;AAEX,qBAAK,CAAC,CAAE,GAAE,eAAF,CAAa,EAAM,EAAtB;AAEL,aAAM,aAAO,WAAC,CAAD,CAAG;AAEhB,4BAAe,CAAC,EAAG,EAAG,IAAK,GAAI,EAAhB;AAEf,6BAAgB,CAAC,EAAG,EAAG,EAAP;AAEhB,6BAAgB,CAAC,EAAG,EAAG,IAAK,GAAI;;;;YAAhB;AAEhB,YAAG,EAAG,KAAG,EAAT,EACE,EAAE,aAAa,CAAC,QAAQ,EAAT,CADjB;;AA1CqB;AAnBG;AAE1B;AACA;AAGA,eAAkB,KAAT,cAAS,GAAE,CAAF,EAAgB,OAAL,IAAK,GAAE,CAAF,kBAAlC;AAAI;AAEF,iBAAS,SAAc,QAAT,cAAS,GAAE,CAAF,qBAAvB;AAAI;AAEF,cAAM,CAAF,CAAE,KAAE,CAAF,CAAK,IAAe,CAAV,eAAU,GAAE,CAAF,CAA1B;AACE,yBAAK,CAAC,EAAG,EAAM,QAAV;AAEA,gBAAL,aAAK,CAAC,EAAG,EAAM,aAAK,CAAC,EAAG,CAAC,GAAC,CAAN,CAAf;;;AAGX,kBAAO,CAAC,IAAD;AAhBmB;AA1gBA;AAE1B;AACA;AAAQ;AACR;AAAa;AAEb,UAAG,kBAAH,EACE,MADF;AAGA,UAAc,CAAV,cAAU,KAAG,cAAS,YAAW,SAAQ,OAA/B,CAAuC,IAAI,CAAI,eAA7D;AAEE,YAAG,cAAS,IAAe,CAAV,cAAU,IAAG,cAAC,4BAAQ,6BAAT,CAAH,CAA3B;AAEE;SAFF;AAMA,YAAc,CAAV,cAAU,IAAG,cAAC,+BAAD,CAAH,CAAiB,IAAwC,CAAnC,cAAS,YAAW,SAAQ,OAAO,KAAE,6BAAF,CAAvE;AAII,+BAAiB;AACjB;AACA,+BAAiB;AACjB,2BAAa,cAAS,YAAW,SAAQ;AAG3C;SAVF;AAcA,YAAI,cAAU,IAAG,cAAC,6BAAD,CAAjB;AAEE,+BAAiB;AACjB;AACA,+BAAiB;AACjB,2BAAa,cAAS,YAAW,SAAQ;AACzC;SANF;OAtBF;AAiCA,UAAc,CAAV,cAAU,IAAG,cAAC,6BAAD,CAAH,CAAe,IAAwC,CAAnC,cAAS,YAAW,SAAQ,OAAO,KAAE,6BAAF,CAArE;AAEE,6BAAiB;AACjB;AACA,6BAAiB;AACjB,yBAAa,cAAS,YAAW,SAAQ;AACzC;OANF;AASA,uBAAa,cAAS,YAAW,SAAQ;AAEzC,UAAI,cAAU,IAAG,cAAa,2BAAb,CAAjB,EACE,MADF;AAGA,2BAAiB;AAEjB,UAAW,CAAC,cAAS,YAAV,SAA6H,IAA1F,CAAC,cAAS,YAAW,SAArB,SAAZ,IAA+C,cAAS,YAAW,SAAQ,UAAC,EAAjC,IAA4C,CAAI,eAAR,IAAuB,CAAI,cAAhJ;AAEE,uBAAiB,iBAAa,KAAG,cAAS,YAAW,SAAQ,UAA/B;AAE9B,YAAa,CAAT,cAAS,KAA4C,CAAzC,cAAS,YAAW,SAAQ,eAAC,EAAY,GAAE,eAAF,CAA5C,CAAyD,IAAG,YAAzE;AAEE,8BAAgB,cAAS,YAAW,SAAQ;AAC5C,4BAAc;AAEd,oBAAW;AACX,oBAAW;AAEX,+BAAiB;AACjB;AACA,+BAAiB;AACjB,cAAG,YAAH;AAEE,0BAAS,YAAW,SAAQ;AAC5B,gBAAG,cAAS,GAAE,eAAd,EACE,YAAO,eAAP,CADF;WAHF;AAOA,4BAAc;AACd,yBAAU,CAAC,QAAQ,OAAT;;AAIV,cAAe,CAAV,eAAU,GAAE,cAAS,YAAW,SAAQ,SAAC,EAA/B,CAAqC,GAAE,CAAF;AAEpD,cAAI,cAAU,KAAE,6BAAhB;AAEE,sBAAW;AACX,6BAAY,cAAS,GAAE,CAAvB;AACA,wBAAO,QAAG,CAAC,EAAG,eAAJ,CAAV;AACA,wBAAO,OAAP;AAGA,yBAAc,CAAI,cAAS,OAAC,EAAI,IAAI,cAAS,OAAC,EAAd;AAChC,gBAAG,CAAI,UAAP,EACE,eAAU,CAAC,aAAD,CADZ;;AAQA,gBAAc,CAAV,cAAU,KAAG,6BAAH,CAAa,IAAuC,CAAnC,cAAS,YAAW,SAAQ,OAAO,KAAG,6BAAH,CAAlE,EACE,eADF;AAGA,wBAAO,CAAP;;AAGF,8BAAe,CAAC,CAAD;;OApDnB;AAwDA,2BAAiB;AAlHS;AAqHA;AAE1B,UAAW,CAAC,cAAS,YAAV,SAAkE,IAA/B,CAAC,cAAS,YAAW,SAArB,SAAZ,IAA+C,cAAS,YAAW,SAAQ,UAA7G;AAEE,oBAAO,aAAI,GAAE,QAAb;AACA,4BAAe,CAAC,aAAD;OAHjB;AAF0B;AASE;AAE5B;AAEA,UAAW,CAAC,cAAS,YAAV,SAAkE,IAA/B,CAAC,cAAS,YAAW,SAArB,SAAZ,IAA+C,cAAS,YAAW,SAAQ,UAAC,EAA9G;AAEE,YAAG,CAAI,eAAW,IAAI,CAAI,cAA1B;AAEE,cAAG,CAAI,cAAS,YAAW,SAAQ,UAAnC,EACE,IAAe,CAAV,eAAU,GAAE,cAAS,YAAW,SAAQ,SAAC,EAA/B,CAAqC,GAAE,CADxD;AAGA,2BAAa;AAEb,cAAG,cAAS,YAAW,SAAQ,OAAO,KAAE,6BAAxC,EAKA;mBAAM,CAAF,CAAE,IAAY,CAAT,cAAS,GAAE,CAAF,CAAZ,CAAiB,IAAI,CAAI,cAAS,YAAW,SAAQ,UAA3D;AAEE,wBAAO,CAAP;AACA,wBAAO,CAAC,CAAD;;AAIP,8BAAc;AACd;AAEA,gBAAG,CAAI,cAAS,YAAW,SAAQ,UAAnC,EACE,YAAO,CAAP,CADF;AAGA,8BAAc;;AAGhB,cAAG,CAAI,cAAS,YAAW,SAAQ,UAAnC;AAEE,gCAAe,CAAC,CAAD;WAFjB;;AAOA,cAAG,cAAH,EACE,YAAO,CAAC,aAAD,CADT;;OArCJ;AAJ4B;AAvOA;AAE5B;AAEA,UAAW,CAAC,cAAS,YAAV,SAAkE,IAA/B,CAAC,cAAS,YAAW,SAArB,SAAZ,IAA+C,cAAS,YAAW,SAAQ,UAAC,EAA9G;AAEE,6BAAiB;AACjB;AACA,6BAAiB;;AAIjB;AACA,yBAAY,eAAZ;AACA,YAAG,mBAAH,EACE,aAAO,QADT;AAEA,iBAAS,QAAmB,OAAd,aAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AACF,uBAAO,WAAC,CAAD,CAAG,SAAV,GAAsB;;AAExB,6BAAiB,CAAC;;AAnBQ;AA2DE;AAE9B;AAEA,UAAG,CAAY,CAAC,uBAAD,SAAgB,IAAG,iBAAlC,EACE,MADF;AAGA,uBAAY,aAAO,SAAC,EAAM,GAAE,eAA5B;AAEA,UAAc,CAAV,eAAU,GAAE,CAAF,CAAK,IAAc,CAAT,cAAS,GAAE,CAAF,CAAjC;AAEE,iBAAS,QAAmB,OAAd,aAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AAEF,uBAAK,CAAC,CAAE,GAAE,eAAF,CAAa,EAAM,aAAO,WAAC,CAAD,CAAG,OAAhC;AACL,2BAAS,CAAC,CAAE,GAAE,eAAF,CAAgB,aAAO,WAAC,CAAD,CAAG,OAA7B;;OALb;AAT8B;AAiyBJ;AAE1B,UAAG,cAAS,YAAW,SAAQ,OAAO,KAAE,6BAAxC;AAEE,sBAp+HsC;OAk+HxC;AAF0B;AAvDA;AAE1B;AAAS;AACT;AACA;AAEA;AAEA,UAAW,CAAC,cAAS,YAAV,SAAkE,IAA/B,CAAC,cAAS,YAAW,SAArB,SAAZ,IAA+C,cAAS,YAAW,SAAQ,UAAC,EAA9G;AAEE,oBAAa,cAAS,YAAW,SAAQ,OAAO,IAAG,kBAAH;AAChD,kBAAW,aAAO,WAAC,IAAK,GAAE,eAAR,CAAkB;AAEpC,YAAG,OAAQ,KAAG,EAAd;AAEE,cAAG,CAAI,SAAP;AAEE,0BAAS,YAAW,SAAQ;WAF9B;AAKA,gBAAO;AAEP;AACE,kBAAO,cAAS,YAAW,SAAQ,YAAY,CAAC,OAAD;AAE/C,gBAAY,GAAD,QAAX;AAEE,kBAAG,GAAG,WAAW,KAAE,0BAAnB;AAEE,2BAAY,iBAAY,CAAC,IAAK,GAAE,eAAF,CAAa,YAAnB;AACxB,8BAAS,YAAW,SAAQ,YAAY,CAAC,GAAG,WAAJ,CAAe,YAAC,CAAY,QAAZ;eAG1D,UAAG,GAAG,WAAW,KAAG,8BAApB;AAEE,oBAAG,GAAG,UAAU,IAAG,cAAC,yBAAQ,4BAAT,CAAnB;AAEE,qBAAG,cAAC,CAAc,uCAAgB,CAAC,YAAD,CAA9B;;AAIJ,sBAAG,GAAG,YAAC,EAAS,KAAG,YAAnB;AAEE,uBAAG,YAAC,CAAY,YAAZ;mBAFN;;eARJ;aARF;AAHF;AA2BE,kBAAO;AA3BT;SATF;OALF;AAR0B;AAhHA;AAE1B;AAAQ;AAER,gBAAW;AAEX;AAEA,UAAW,CAAC,cAAS,YAAV,SAAkE,IAA/B,CAAC,cAAS,YAAW,SAArB,SAAZ,IAA+C,cAAS,YAAW,SAAQ,UAAC,EAA9G;AAEE,YAAS,CAAL,IAAK,KAAE,OAAF,CAAW,IAAY,CAAR,OAAQ,GAAE,CAAF,CAAhC,EACE,MADF;AAGA,0BAAc;AAEd,YAAK,cAAS,OAAO,CAAC,IAAK,GAAE,OAAR;AAErB,YAAG,CAAE,KAAG,CAAR;AAEE,8BAAe,CAAC,IAAD;;AAKf,sBAAO,CAAC,OAAD;AACP,8BAAe,CAAC,OAAD;AACf,sBAAO,OAAP;;AAGF,0BAAc;OArBhB;AAR0B;AA/nBD;AAEzB;AAFyB;AA8yBM;AAE/B;AAEA,UAAG,eAAU,KAAE,CAAf,EACE,MADF;AAGA,UAAkB,CAAd,kBAAc,KAAG,IAAH,CAAS,IAAG,CAAI,mBAAlC;AAEE,YAAkB,CAAd,kBAAc,IAAG,CAAH,CAAM,IAAmB,CAAd,kBAAc,GAAE,cAAF,CAA3C,EACE,aAAK,CAAC,EAAG,mBAAkB,EAAtB,CADP;OAFF;AAMA,UAAG,mBAAH;AAEE,YAAW,CAAC,cAAS,YAAV,SAA0G,IAAvE,CAAC,cAAS,YAAW,SAArB,SAAZ,IAA+C,cAAS,YAAW,SAAQ,UAAC,EAAjC,IAAiD,CAAJ,aAAI,IAAG,eAAH,CAA9H;AAEE,cAAG,cAAS,IAAuC,CAAnC,cAAS,YAAW,SAAQ,OAAO,KAAE,2BAAF,CAAnD;AAEE,mBAAQ;;AAIR,gBAAG,cAAS,YAAW,SAAQ,OAAO,KAAE,6BAAxC;AACE,qBAAQ;AAER,yBAAQ;;AAGZ,uBAAK,CAAC,EAAG,KAAS,QAAS,GAAE,IAAxB;SAdP;OAFF;AAoBA,2BAAiB;AAjCc;AAljBH;AAE5B;AACA;AACA;AAEA;AAEA,qBAAU,CAAC,KAAK,IAAN;AAEV,UAAW,CAAC,cAAS,YAAV,SAA0G,IAAvE,CAAC,cAAS,YAAW,SAArB,SAAZ,IAA+C,cAAS,YAAW,SAAQ,UAAC,EAAjC,IAAuD,CAAV,yCAAU,IAAG,aAAH,CAApI;AAEE,oBAAa,cAAS,YAAW,SAAQ,OAAO,IAAG,kBAAH;AAChD,kBAAW,aAAO,WAAC,IAAK,GAAE,eAAR,CAAkB;AAEpC,YAAG,OAAQ,KAAG,EAAd;AAEE,gBAAO;AACP;AACE,kBAAO,cAAS,YAAW,SAAQ,YAAY,CAAC,OAAD;AAE/C,gBAAG,CAAI,GAAG,UAAV;AAEE,kBAAG,CAAI,SAAP,EACE,cAAS,YAAW,SAAQ,OAD9B;AAGA,iBAAG,aAAC,CAAa,OAAb;aALN;AAHF;AAWE,kBAAO;AAXT;SAHF;OALF;AAV4B;AAoCS;AAGrC;AAEA,UAAK,aAAO,WAAC,IAAD,CAAM;AACb;AACL,UADK,IACL;AAAa,YAAK,CAAE,GAAE,gBAAF;AACpB,gBAFK,IAEL,0DAAc,IAAK,CAAE,GAAE,gBAAvB;AAEA,mBAAK,CAAC,IAAK,GAAE,eAAF,CAAa,EAAM,CAAzB;AAVgC;AAycd;AAAR;AAEf,eAAoB;AACpB,0BAAe,CAAC,aAAD;AAHA;AAAQ;AAxwBG;AAE1B;AACA,UAAW,CAAC,cAAS,YAAV,SAAkE,IAA/B,CAAC,cAAS,YAAW,SAArB,SAAZ,IAA+C,cAAS,YAAW,SAAQ,UAAC,EAA9G;AAEE,sBAAS,YAAW,SAAQ;OAF9B;AAH0B;AA6uBD;AAEzB;AAEA,UAAQ,CAAJ,aAAI,GAAE,CAAF,CAAK,IAAS,CAAJ,aAAI,IAAG,aAAO,SAAC,EAAX,CAAtB,EACE,IAAG,aAAO,WAAC,aAAI,GAAE,CAAP,CAAS,UAAU,IAAG,cAAC,6BAAS,4BAAV,CAAhC,EACE,MAFJ;AAIA,UAAI,aAAO,WAAC,aAAI,GAAE,eAAP,CAAiB,QAAQ,KAAE,2CAAtC;AAEE,YAAW,CAAC,oBAAD,SAA8E,IAArD,CAAC,oBAAU,SAAX,SAAZ,IAAsC,oBAAU,SAAQ,UAAC,EAAxB,IAAwE,CAAnC,aAAO,WAAC,aAAI,GAAE,eAAP,CAAiB,WAAW,KAAG,EAAH,CAAjI;AAEE;AACE,qBAAU,oBAAU,SAAQ,YAAY,CAAC,aAAO,WAAC,aAAI,GAAE,eAAP,CAAiB,WAAzB;AAD1C;AAGE,qBAAU;AAHZ;AAMA,cAAY,MAAD,QAAX,EACE,mBAAc,CAAC,aAAI,GAAE,eAAF,CAAa,MAAlB,CADhB;SARF;OAFF;AAemB,gEAAC,EAAD;AACnB,0BAAe,CAAC,aAAD;AAxBU;AAvJH;AAEtB;AACA,yBAAc,CAAC,IAAD;AAHQ;AA5kBI;AAAX;AAEf;AAEA,eAAU;AAEV,UAAG,MAA8C,IAAjB,CAAZ,CAAL,IAAK,GAAE,eAAF,CAAY,GAAE,aAAO,SAAC,EAAV,CAAtB,IAAiD,CAAL,IAAK,IAAG,eAAH,CAA3D;AAEE,cAAO,aAAO,WAAC,IAAK,GAAE,eAAR,CAAkB;AAChC,YAAW,CAAC,GAAD,SAAM,IAAI,GAAG,UAAxB;AAEE,mBAAU;SAFZ;OAHF;AANe;AAAW;AAgBE;AAAb;AAEf,eAAU;AAFK;AAAa;AAwTC;AAG7B,UAAqB,CAAZ,CAAL,IAAK,GAAE,eAAF,CAAY,GAAE,aAAO,SAAC,EAAV,CAAiB,IAAU,CAAL,IAAK,IAAG,eAAH,CAAhD;AAEE,oBAAW,aAAO,WAAC,IAAK,GAAE,eAAR,CAAkB,QAApC;AACA,2BAAa,OAAO,CAAC,aAAO,WAAC,IAAK,GAAE,eAAR,CAAkB,eAA1B;AACpB,yBAAa,aAAO,WAAC,IAAK,GAAE,eAAR,CAAkB;OAJxC;AAOA;AAV6B;AAwBC;AAE9B;AAAE;AACF;AAEA,UAAG,MAAM,WAAW,KAAE,0BAAtB;AAEE,mBAAM,MAAM,eAAc,cAA1B;AACA,cAAM,eAAc;AACpB,cAAM,eAAc;AAEpB,qBAAO,WAAC,QAAD,CAAU,eAAc;AAC/B,eAAM,CAAI,MAAM,eAAc,OAAC,EAA/B;AAEE,cAAK,MAAM,eAAc,YAAY,CAAC,MAAM,mBAAP,CAA0B,YAAC;AAChE,cAAK,MAAM,eAAc,YAAY,CAAC,MAAM,iBAAP,CAAwB,YAAC;AAC9D,uBAAO,WAAC,QAAD,CAAU,eAAc,QAAQ,CAAC,EAAE,CAAH;AACvC,gBAAM,eAAc;;AAEtB,cAAM,eAAc,aAAa,CAAC,EAAD;AACjC,cAAM,eAAc;OAftB;AAL8B;AAyBH;AAAZ;AAEf;AACA;AAAO;AAEP,eAAU;AAEV,eAAS,QAA2C,OAAtC,aAAO,WAAC,QAAD,CAAU,eAAc,SAAC,EAAM,GAAE,CAAF,kBAApD;AAAI;AAEF,qBAAO,WAAC,QAAD,CAAU,eAAc,aAAa,CAAC,EAAG;;;;aAAO;;;;YAAX;AAE5C,YAAG,KAAM,KAAE,MAAX;AAEE,mBAAU;AACV;SAHF;;AAXa;AAAY;AA3UK;AAEhC;AACA,UAAG,CAAY,CAAC,cAAD,SAAf;AAEE,yBAAa,gBAAW,QAAC;AACzB,sBAAS,gBAAT,GAA4B;AAC5B,sBAAS,gBAAT,GAA4B;AAC5B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,cAAT,GAA0B;OAP5B;AASA,UAAG,CAAY,CAAC,aAAD,SAAf;AAEE,wBAAY,iBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzB,qBAAQ,UAAR,GAAqB;AACrB,qBAAQ,uBAAR,GAAkC;AAClC,qBAAQ,UAAR,GAAqB;OALvB;AAOA,wBAAc;AACd,4BAAkB;AAClB,2BAAiB;AACjB,2BAAiB,CAAC;AAClB,4BAAkB;AAvBc;AA4NR;AAEd,eAAV,KAAU;AACD,eAAT,KAAS;AACT;AAJwB;AArBD;AAEvB;AAFuB;AAqGC;AAExB;AACA,0BAAe,CAAC,aAAD;AAHS;AA2WA;AAExB;AACA;AAEA,UAAW,CAAC,cAAS,YAAV,SAAkE,IAA/B,CAAC,cAAS,YAAW,SAArB,SAAZ,IAA+C,cAAS,YAAW,SAAQ,UAAC,EAA9G;AAEE,kBAAW,aAAO,WAAC,aAAI,GAAE,eAAP,CAAiB;AAEnC,YAAI,OAAQ,KAAG,EAAf;AAEE,gBAAO;AAEP;AACE,kBAAO,cAAS,YAAW,SAAQ,YAAY,CAAC,OAAD;AADjD;AAGE,kBAAO;AAHT;AAMA,cAAW,CAAC,GAAD,SAAM,IAAI,CAAI,GAAG,UAA5B;AAEE,0BAAS,YAAW,SAAQ;AAC5B;WAHF;SAOA;OArBJ;AALwB;AAnYC;AAEzB,yBAAc,CAAC,IAAD;AACd;AAHyB;AAthHlB;;;;AAoDY,gClEpzBV,0CkEozBU;AACD,+BAxEN,2BAwEM;AACG,kChCwoBV,4BgCxoBU;AACC,mClEryBV,6CkEqyBU;AACK,wClExyBV,kDkEwyBU;AACP,iClExyBV,2CkEwyBU;AACM,uClEvyBV,iDkEuyBU;AACN,iCjEpdf,sCiEode;AACL,4BjErdV,sCiEqdU;AACM;AACG;AACH,kClE1uBP,+CkE0uBO;AACA,kClE5uBP,+CkE4uBO;AACD,iClE1uBP,8CkE0uBO;AACE,mClE5uBP,gDkE4uBO;AAlEf;AAqEG;;;;;AAx7BZ,mBA07Bc;AAMS;;AAEP;AAAP;AAEP,eAAU;AACV,UAAW,CAAC,WAAD,SAAwC,IAArB,WAAW,SAAhB,IAA0C,CAAX,UAAW,KAAG,EAAH,CAAnE;AAEE,iBAAkB,CAAC,SAAS,WAAC,EAAX,SAAmD,IAA1B,SAAS,WAAC,EAAO,UAAC,EAAvB,IAAwE,CAAL,CAA9B,SAAS,WAAC,EAAO,eAAC,EAAY,GAAE,CAAF,CAAK,IAA4B,CAAxB,SAAS,WAAC,EAAO,OAAO,KAAE,6BAAF,CAA5B,CAAzC;OAFvE;AAHO;AAAO;AASa;AAApB;AAEP;AACA;AAAG;AAAE;AAAE;AACP;AAEA,eAAU;AAEL;AACL,WADK,IACL,qCAAO,CADF,IACE,iCAAP;AAEI,YAAoB,CAAhB,MAAM,UAAU,KAAG,wBAAH,CAA0D,IAA3C,8BAAW,cAAc,CAAC,MAAM,YAAC,EAAR,CAA7B,IAAmD,kBAAlF;AAEE,eAAM,8BAAW,cAAc,CAAC,MAAM,YAAC,EAAR;AAE/B,cAAG,eAAI,CAAC,EAAD,CAAK,KAAE,CAAd;AACE,qBAAU,sBAAS,CAAC,EAAD;AAEnB,oBAAG,cAAG,CAAC,EAAD,CAAK,KAAE,CAAb;AACE,qBAAU,sBAAS,CAAC,EAAD;AAEnB,yBAAU,sBAAS,CAAC,EAAD,CAAW,GAAL,IAAD,GAAQ,sBAAS,CAAC,EAAD,CAAX;;AAIlC,cAAG,cAAe,KAAE,2BAApB;AAEE;AACE,uBAAU,MAAM,KAAK,CAAO,KAAC,MAAM,aAAC,EAAf;AADvB;AAGE,uBAAU,MAAM,eAAC;AAHnB;;AAQA,gBAAoB,CAAhB,MAAM,UAAU,IAAG,cAAC,yBAAO,4BAAR,CAAH,CAAwB,IAA8C,CAAjC,OAAP,OAAU,qBAAH,CAAkB,eAAe,KAAE,EAAF,CAA1F;AAEE,mBAAM,MAAM,cAAC;AACb,kBAAG,eAAI,CAAC,EAAD,CAAK,KAAE,CAAd;AACE,yBAAU,2BAAc,CAAC,aAAc,EAAf;AAExB,6BAAU,2BAAc,CAAC,sBAAuB,EAAxB;aAG1B,eAAU,MAAM,eAAC;;;OAI3B,UAxCK,IAwCL;AAEI,eAAQ,MAAM,eAAC;AACf,YAAI,IAAK,KAAG,EAAZ;AAEE,cAAG,QAAS,GAAE,CAAd;AACE,qBAAU,YAA+C,GAAlC,IAAD,GAAM,WAAD,GAAqB,4CAAR;;;;gBAAQ,CAAT,GAAmB,IAAD;AAEzD,yBAAU,YAAiB,GAAJ,IAAD,GAAM,IAAD;SAL/B;OAQJ,UAnDK,IAmDL;AAAQ,iBAAU,WAAuD,GAA3C,MAAM,eAAC,EAAR,GAAoB,IAAD,GAAO,MAAM,eAAC,EAAT,GAAqB,MAAD;AACzE,gBApDK,IAoDL;AAAgB,iBAAU,WAAuE,GAA3D,MAAM,eAAC,EAAR,GAAoB,oBAAD,GAAuB,MAAM,eAAC,EAAT,GAAqB,MAAD;AACjG,iBArDK,IAqDL,sCAAS,CArDJ,IAqDI,kCAAT;AAEI,YAAG,MAAM,UAAU,KAAE,2BAArB;AACE,cAAK,MAAM,aAAC;;AAGZ,eAAM,sBAAS,CAAC,MAAM,YAAC,EAAR;AACf,cAAS,CAAH,EAAG,KAAE,GAAF,CAAwB,IAAV,CAAH,EAAG,KAAE,MAAF,CAAP,IAAwB,CAAH,EAAG,KAAE,GAAF,CAAP;;AAGnC,YAAG,cAAe,KAAE,4BAApB;AACE,cAAK;AAEL,kBAAK;AAEP,YAAG,CAAI,OAAP;AACE,cAAK;AAEL,kBAAK;AAEP,YAAG,CAAH;AACE,mBAAU,eAAqC,GAAnB,CAAF,GAAM,WAAF,GAAe,CAAF,GAAM,GAAF;AAE/C,uBAAU,eAA8B,GAAZ,CAAF,GAAM,GAAF,GAAQ,CAAF,GAAM,GAAF;OAvB9C;AA7DO;AAAoB;AAyFL;AAAf;AAEP,eAAU,0BAAoB,CAAC,SAAU,OAAQ,MAAM,WAAW,QAAS,MAAM,qBAAqB,MAAM,YAA9E;AAFvB;AAAe;AA1GV;AA17Bd,GA07Bc,yBA17Bd;ACAA,wCAES,wCAFT;;;;AAOc;;AAGC,mCAHD,oCAGC;AAMP;AAEJ;AACA;AAHI;aAEJ,0BACA;AAHI;;AAEJ;AACA;AAHI;;AAiJiB;AAEvB,oBAAU;AACV,sBAAY;AAHqD;AAA1C;AAjJjB;AAMU;AACE;AAPZ;AA6BoB;AAjBf,sCAZL,4BAYK;AAEK;AAGd;AAHc;;gBAEd;AAFc;;;aAEd,wBACA;AAHc;;AAEd;AACA;AAHc;;AA2IiB;AAAH;AAE9B;AAAa;AACb;AACA;AAEU,YAAM,MAAP,sBAAC,MAAM,mBAAQ,CAAf;AACT,YAAM,aAAN,GAAiC,IAAV,MAAU;AACjC,UAAmB,WAAhB,eAAgB,OAAnB,EACE,aADF;AAEA,kBAAuB;AACvB,oBAAsB,UAAC,SAAU,UAAX;AACZ,YAAM,MAAP,sBAAC,MAAM,mBAAQ,WAAf;AACT,eAAS,QAAiB,OAAZ,WAAY,GAAE,CAAF,kBAA1B;AAAI;AAGF,YAAG,CAAI,kBAAW,CAAC,eAAe,CAAC,CAAD,CAAhB,CAAlB;AACE,mBAAU,eAAe,CAAC,CAAD;AAEzB,uBAAU;AAIZ,cAAM,MAAM,CAAC,CAAD,UAAO,WAAM,KAAC,UAAO,OAAQ,IAAf,CAAd;;AAEd,UAAG,CAAI,kBAAW,CAAC,SAAU,UAAX,CAAlB;AAEE,cAAM,aAAN,GAAiC,SAAU;OAF7C;AAzB8B;AAAG;AAgCD;AAAR;AAExB,eAAgB,WAAC,UAAD;AAFQ;AAAQ;AAUD;AAAP;AAExB;AAEiB,iBAAZ,mBAAY,CAAC,KAAD;AACf,UADe,IACf;AAEI,YAAG,kBAAW,CAAC,iBAAmB,MAAC,KAAD,CAApB,CAAd;AACE,yBAAU,WAAM,KAAC,UAAO,GAAI,KAAX,CAAjB;AAEA,6BAAU,WAAM,KAAC,UAAa,KAAC,iBAAmB,MAAC,KAAD,CAApB,CAA+B,IAA5C,CAAjB;OAEN,UARe,IAQf;AAEI,iBAAiB,UAAC,KAAD;AACjB,uBAAU,UAAK,CAAC,MAAD,CAAf;;AAGJ,cAAM,sBAAS,QAAC,YAAM,CAAC,4BAAD,CAAN;;AAlBM;AAAO;AALM;AAAb;AAExB,eAAU,+BAA0B,QAAC,YAAM,CAAC,IAAD,CAAN;AAFb;AAAa;AAhLrB;AAUQ,sCAKE,wCALF;AACR;AACD,4BA1BT,qBA0BS;AAZC;AAeU;;;AAExB;AACA;AAHwB;;;;;AA8LiB;AAE3C,+BAAe,WAAf;AACA,oBAAU,CAAC;AAHsE;AAAtC;AAMC;AAAV;AAElC,qBAAU,gBAAW,QAAK,CAAC,WAAD,CAA1B;AAFkC;AAAU;AAKF;AAAR;AAElC,eAAU,WAAO,GAAoB,CAAlB,gBAAW,SAAC,EAAM,GAAE,CAAF,CAApB;AACjB,UAAG,MAAH,EACM,WAAJ,IAAG,CADL;AAHkC;AAAQ;AAzMhB;AAWpB;AAEJ;AACA;AACA;AAEA;AACA;AACA;AARI;;kBAKJ;AALI;;;aAEJ,0BACA,IAAA,4BACA,IAAA,8BACA,IAAA,2BACA,IAAA,0BACA,IAAA,0BACA,oCALA;AAHI;;AAEJ;AACA;AACA;AACA;AACA;AACA;AACA;AARI;;AAsMiB;AAEvB;AACA;AAEA,uBAAa;AACb,UAAmB,WAAhB,eAAgB,OAAnB;AAEE,sBAAU;AACV,sBAAU;AACV,uBAAW;AACX,wBAAY;;AAIZ,oBAAuB;AACvB,sBAAgB,KAAC,SAAU,SAAX;AAChB,cAAO,eAAe,CAAC,CAAD;AAEtB,sBAAU;AACV,sBAAiB,UAAC,SAAU,SAAX,CAAqB,GAAE,CAAF;AACtC,uBAAyB,GAAD;AACxB,wBAAY;;AAEd,2BAA4B,yBAAG,CAAC,6BAAD,CAA/B;AAxBgF;AAAzD;AA4BA;AAAH;AAEpB,YAAM,OAAN,GAAiB;AACjB,YAAM,OAAN,GAAiB;AACjB,YAAM,QAAN,GAAkB;AAClB,YAAM,SAAN,GAAmB;AALC;AAAG;AAQA;AAAT;AAEd,qBAAU,YAAV;AAFc;AAAS;AAKA;AAAT;AAEd;AAEA,UAAG,cAAU,KAAE,IAAf;AAEE,uBAAiB,UAAjB;AACA;OAHF;AAKA,wBAAmB,cAAS,KAAK,CAAC,WAAD;AACjC,qBAAU,WAAM,KAAC,UAAO,eAAW,6BAAlB,CAAjB;AAVc;AAAS;AA/OjB;AAac,kCAbd,EAac;AACH,8BAxCD,+BAwCC;AACD;AACC;AACC;AACF;AAlBV;AAsCoB;AAff,sCAvBL,4BAuBK;AAEK;;;gBAEd;AAFc;;;aAEd;AAFc;;AAEd;AAFc;;AAqOiB;AAAH;AAE9B;AAEA,cAAS;AACC,YAAM,MAAP,sBAAC,MAAM,mBAAQ,CAAf;AACT,UAAG,CAAI,MAAM,SAAb,EACE,aADF;AAEA,aAAM,MAAM,SAAZ;AAEE,YAAS,CAAN,KAAM,GAAI,EAAJ,CAAO,KAAE,CAAlB,EACY,MAAM,MAAP,sBAAC,MAAM,mBAAc,WAAC,MAAM,MAAP,CAAe,GAAE,EAAtC,CADX;AAEA,cAAM,MAAM,CAAC,KAAD,UAAW,MAAX;AACZ,uBAAU,MAAM,YAAhB;AACI,aAAJ,IAAG;;AAEL,UAAS,WAAC,MAAM,MAAP,CAAe,GAAE,KAA1B,EACY,MAAM,MAAP,sBAAC,MAAM,mBAAQ,KAAf,CADX;AAhB8B;AAAG;AAoBD;AAAR;AAExB,eAAgB,WAAC,UAAD;AAFQ;AAAQ;AAUD;AAAP;AAExB,UAAU,CAAN,KAAM,IAAG,CAAH,CAAM,IAAW,CAAN,KAAM,GAAQ,WAAC,UAAD,CAAR,CAA3B;AACE,uBAAU,UAAK,CAAC,KAAD,CAAf;AAEA,kBAAM,sBAAS,QAAC,YAAM,CAAC,wCAAD,CAAN;AALM;AAAO;AALM;AAAb;AAExB,eAAU,+BAA0B,QAAC,YAAM,CAAC,IAAD,CAAN;AAFb;AAAa;AA9PrB;AAQQ,sCAKE,wCALF;AACR;AACD,4BAnCT,qBAmCS;AAVC;AAaU;;;AAExB;AACA;AAHwB;;;;;AAgQiB;AAE3C,+BAAe,WAAf;AACA,oBAAU,CAAC;AAHsE;AAAtC;AAMC;AAAV;AAElC,qBAAU,gBAAW,QAAK,CAAC,WAAD,CAA1B;AAFkC;AAAU;AAKF;AAAR;AAElC,eAAU,WAAO,GAAoB,CAAlB,gBAAW,SAAC,EAAM,GAAE,CAAF,CAApB;AACjB,UAAG,MAAH,EACM,WAAJ,IAAG,CADL;AAHkC;AAAQ;AA3QhB;AAWX,sEAAuB,SAjDhC,qBAiDgC,EAAvB;AAET;AAEJ;AACA;AAEA;AALI;;mBAIJ;AAJI;;;aAEJ,gCACA,IAAA,8BACA,IAAA,mCACA,0DAFA;AAHI;;AAEJ;AACA;AACA;AACA;AALI;;AA8RuB;AAAf;AAOd,eAAU,GAAI,GAAE,UAAF;AACd,UAAI,8BAAa,IAAG,aAApB,EACE,SAAU,MAAO,GAAE,GADrB;AAEA,UAAI,6BAAY,IAAG,aAAnB,EACE,SAAU,MAAO,GAAE,GADrB;AAEA,UAAI,8BAAa,IAAG,aAApB,EACE,SAAU,MAAO,GAAE,GADrB;AAEA,UAAI,6BAAY,IAAG,aAAnB,EACE,SAAU,MAAO,GAAE,GADrB;AAdc;AAAe;AA6MJ;AAAX;AAEd;AACA;AAAG;AACH;AAkBA,gBAAW,SAAW;AACZ,qBAAD,sBAAC,mBAAiB,OAAO,GAAC,CAA1B;AACT,eAAS,QAA4B,OAAjB,WAAC,eAAD,CAAiB,GAAC,CAAD,kBAArC;AAAI;AACF,uBAAe,CAAC,CAAD,CAAf,GAA4B,KAAC,SAAY,GAAb;;AACpB,qBAAiB,SAA3B,GAA8C,UAAC,SAAmB,CAAP,OAAO,GAAC,CAAD,CAApB;AACpC,qBAAiB,SAA3B,GAA6C,KAAC,SAAmB,CAAP,OAAO,GAAC,CAAD,CAApB;AAE7C,qBAAU,WAAM,KAAC,UAAO,eAAW,6BAAlB,CAAjB;AACA,eAAU,oBAAe,CAAC,MAAD;AA9BX;AAAW;AA3LF;AAEvB,mBAAM,CAAC,QAAS,EAAV;AAFyC;AAAxB;AAWA;AAEvB;AACA;AAAS;AAET,sBAAY,sBAAgB,CAAC,OAAD;AAC5B,sBAAY;AACZ;AACE,yBAAuB,IAAV,MAAU,CAAI,cAAU,qBA5TO,GA4TrB;AADzB;AAIF;AAEI,YAAG,CAAI,2BAAqB,CAAC,IAAK;;;;aAAS;;;;YAAf,CAA5B,EACE,MAAM,GADR;AAEA,iBAAU,wBAAkB,CAAC,QAAS,MAAV;AAC5B,cAAM,sBAAS,QAAC,YAAM,CAAC,MAAD,CAAN;AATlB;AAPiF;AAA1D;AAoBF;AAAP;AAEd,eAAU,cAAO,CAAC,MAAO,CAAR;AAFH;AAAO;AAKA;AAAP;AAEd;AACA;AAAS;AAET;AAEE,yBAAuB,IAAV,MAAU,CAAI,cAAU,oBAAe,CAAC,GAAD,CAA7B;AACvB,sBAAS,UAAT,GAAuB,QAAS,GAAE,CAAF;AAGhC,iBAAgC,WAAtB,cAAS,KAAK,CAAC,KAAD,CAAQ;AANlC;AASF;AAEI,YAAG,CAAI,2BAAqB,CAAC,IAAK;;;;aAAS;;;;YAAf,CAA5B,EACE,MAAM,GADR;AAEA,iBAAU,wBAAkB,CAAC,QAAS,MAAV;AAC5B,cAAM,sBAAS,QAAC,YAAM,CAAC,MAAD,CAAN;AAdlB;AALc;AAAO;AAuBM;AAAP;AAEpB;AAEA,qBAAU,WAAM,KAAC,UAAO,OAAP,CAAjB;AACA,eAAU,MAAM,QAAQ,CAAC,KAAD;AALJ;AAAO;AAQA;AAAP;AAEpB;AAEA,qBAAU,WAAM,KAAC,YAAO,QAAS,mBAAhB,CAAjB;AACA,eAAU,MAAM,QAAQ,CAAC,KAAD;AALJ;AAAO;AAWpB,mBAA+B,KAAK,IAAK,IAAK,IAAK,IAAK,IAAK,IAAK,IACvE,IAAK,IAAK,IAAK,IAAK,IAAK,GADpB;AAFmB;AAAN;AAKpB;AAEA,eAAU;AACV,WAAI,IAAQ,GAAR,CAAyB,QAAzB,CAAyB,EAA7B;AAEE,iBAAU,0BAAa,CAAC,OAAQ,OAAO,CAAC,KAAD,EAAK,IAAI,GAAE,OAAO,CAAC,KAAD,CAAT,CAAc,cAAC,4CAAD,CAAvC;;AAGzB,eAAU,0BAAa,CAAC,OAAQ,OAAQ,SAAQ,cAAC,4CAAD,CAAzB;AAEvB,eAAU,0BAAa,CAAC,OAAQ,KAAK,MAAM,cAAC,4CAAD,CAApB;AAGvB,UAAG,YAAH;AAGE,iBAAU,0BAAa,CAAC,OAAQ,MAAM,OAAQ,cAAC,4CAAD,CAAvB;AAEvB,iBAAU,0BAAa,CAAC,OAAQ,MAAM,MAAO,cAAC,4CAAD,CAAtB;AAIvB,iBAAU,0BAAa,CAAC,OAAQ,WAAY,MAAM,cAAC,4CAAD,CAA3B;AACvB,iBAAU,0BAAa,CAAC,OAAQ,SAAU,MAAM,cAAC,4CAAD,CAAzB;OAVzB;AAlBoB;AAAM;AAgCP;AAAL;AAEd,qBAAU,YAAK,CAAC,MAAO,CAAR,CAAf;AAFc;AAAK;AAKA;AAAL;AAEd;AAEA,oBAAS,UAAT,GAAuB,QAAS,GAAE,CAAF;AAChC,wBAAmB,cAAS,KAAK,CAAC,KAAD;AACjC,qBAAU,WAAM,KAAC,UAAO,eAAW,6BAAlB,CAAjB;AANc;AAAK;AASA;AAAL;AAEd;AAEA,eAAU,eAAI,CAAC,MAAO,EAAY,CAAT,QAAS,GAAE,MAAF,CAAQ,GAAC,CAA7B;AACd,qBAAU,YAAK,CAAC,OAAQ,QAAT,CAAf;AALc;AAAK;AAQM;AAAL;AAEpB;AAEA,qBAAU,WAAM,KAAC,UAAO,OAAP,CAAjB;AACA,qBAAU,MAAM,MAAM,CAAC,KAAD,CAAtB;AALoB;AAAK;AAQA;AAAL;AAEpB;AAEA,qBAAU,WAAM,KAAC,YAAO,QAAS,mBAAhB,CAAjB;AACA,qBAAU,MAAM,MAAM,CAAC,KAAD,CAAtB;AALoB;AAAK;AAQJ;AAAP;AAEd,qBAAU,cAAO,CAAC,MAAO,CAAR,CAAjB;AAFc;AAAO;AAKA;AAAP;AAEd;AAEA,qBAAU,YAAK,CAAC,MAAO,QAAR,CAAf;AACA,qBAA2B,yBAAG,CAAC,0BAAD,CAA9B;AALc;AAAO;AAQM;AAAP;AAEpB;AAEA,qBAAU,WAAM,KAAC,UAAO,OAAP,CAAjB;AACA,qBAAU,MAAM,QAAQ,CAAC,KAAD,CAAxB;AALoB;AAAO;AAQA;AAAP;AAEpB;AAEA,qBAAU,WAAM,KAAC,YAAO,QAAS,mBAAhB,CAAjB;AACA,qBAAU,MAAM,QAAQ,CAAC,KAAD,CAAxB;AALoB;AAAO;AAQN;AAAP;AAEd;AAEA,cAAmB,IAAV,MAAU,CAAI,KAAJ;AACnB,eAAU,KAAK,QAAQ,CAAC,eAAW,WAAZ;AALT;AAAO;AA6CA;AAAP;AAEd;AAEA,cAAmB,IAAV,MAAU,CAAI,KAAJ;AACnB,6BAAmB;AACnB;AACE,iBAAU,KAAK,QAAQ,CAAC,eAAY,sCAAb;AADzB;AAGE,+BAAmB;AAHrB;AANc;AAAO;AAaM;AAAP;AAEpB;AAEA,qBAAU,WAAM,KAAC,UAAO,OAAP,CAAjB;AACA,eAAU,MAAM,QAAQ,CAAC,MAAO,WAAR;AALJ;AAAO;AAQA;AAAP;AAEpB;AAEA,qBAAU,WAAM,KAAC,UAAO,OAAP,CAAjB;AACA,eAAU,MAAM,UAAQ,CAAC,MAAO,SAAR;AALJ;AAAO;AAQA;AAAP;AAEpB;AAEA,qBAAU,WAAM,KAAC,YAAO,QAAS,mBAAhB,CAAjB;AACA,eAAU,MAAM,QAAQ,CAAC,MAAO,WAAR;AALJ;AAAO;AAQA;AAAP;AAEpB;AAEA,qBAAU,WAAM,KAAC,YAAO,QAAS,mBAAhB,CAAjB;AACA,eAAU,MAAM,UAAQ,CAAC,MAAO,SAAR;AALJ;AAAO;AAQR;AAAL;AAEd;AAEA,cAAmB,IAAV,MAAU,CAAI,KAAJ;AACnB,eAAU,KAAK,MAAM,CAAC,cAAD;AALP;AAAK;AAQM;AAAL;AAEpB;AAEA,qBAAU,WAAM,KAAC,UAAO,OAAP,CAAjB;AACA,eAAU,MAAM,MAAM,CAAC,KAAD;AALF;AAAK;AAQA;AAAL;AAEpB;AAEA,qBAAU,WAAM,KAAC,YAAO,QAAS,mBAAhB,CAAjB;AACA,eAAU,MAAM,MAAM,CAAC,KAAD;AALF;AAAK;AAzkBnB;AAUc,6BAAc,wBAAd;AACA,+BAAc,yBAAiB,WA5GtC,2BA4GsC,CAA/B;AAEF,8BAAY,sBAAZ;AACA,gCAAY,uBAAkB,wBAA9B;AACM,gCAAY,uBAAS,wBAArB;AACA,gCAAY,uBAAS,yBAAiB,WAjHjD,2BAiHiD,CAAtC;AAED,6BAAU,qBAAsB,4BAAhC;AAEP,4BAAY,sBAAZ,EAvEV,oBAuEU;AACA,8BAAY,uBAAkB,wBAA9B,EAxEV,oBAwEU;AACA,8BAAY,uBAAkB,yBAAQ,sBAAtC,EAzEV,oBAyEU;AACM,8BAAY,uBAAS,wBAArB,EA1EhB,qBA0EgB;AACA,8BAAY,uBAAS,yBAAiB,WAzH/C,2BAyH+C,CAAtC,EA3EhB,qBA2EgB;AAEJ,8BAAY,sBAAZ,EApDF,8BAoDE;AACA,gCAAY,uBAAkB,wBAA9B,EArDF,8BAqDE;AACM,gCAAY,uBAAS,wBAArB,EAtDR,+BAsDQ;AACA,gCAAY,uBAAS,yBAAiB,WA9HjD,2BA8HiD,CAAtC,EAvDR,+BAuDQ;AAEN,8BAAY,uBAAa,4BAAzB;AACA,gCAAY,uBAAmB,aAlClC,6BAkCkC,CAA/B;AAEM,gCAAY,uBAAS,yBAAa,4BAAlC;AACA,gCAAY,uBAAS,yBAAmB,aArCjD,6BAqCiD,CAAxC;AACA,gCAAY,uBAAS,yBAAa,6BAAiB,WArI9D,2BAqI8D,CAAnD;AACA,gCAAY,uBAAS,yBAAmB,aAvCjD,6BAuCiD,EAA0B,WAtI7E,2BAsI6E,CAAlE;AAER,4BAAY,sBAAZ,E9EvID,kC8EuIC;AAEM,8BAAY,uBAAS,wBAArB,E9EzIP,mC8EyIO;AACA,8BAAY,uBAAS,yBAAiB,WA3I/C,2BA2I+C,CAAtC,E9E1IP,mC8E0IO;AA1ChB;AA3GR,mBAwJc;AA0NgB;AAArB;AAEP;AAAQ;AAER,eAAU;AACV,UAAmB,sBAAH,eAAb,YAAa,CAAhB,EACE,aADF;AAEA,eAAU;AAEZ;AACA;AAEE,oBAAa,MAAb;AACA,mBAAY,KAAZ;AAbO;AAAqB;AAgBH;AAAlB;AAEP,eAAU,mBAAM,CAAC,SACA,mBAAC,aAAW,eAAZ,CADD;AAFT;AAAkB;AA8BF;AAAhB;AAEP,eAAU,yBAAY,CAAC,SAAU,CAAC,KAAK,IAAN,CAAX;AACtB,eAAU,wBAAW,CAAC,OAAQ,CAAC,KAAK,IAAN,CAAT;AAHd;AAAgB;AAxQX;AAxJd,GAwJc,WAxJd;ACAA,yBAIS,kFAJT;;;;AAiJsB;AArIH;;;AAGC,yEAAmB,UjFgG9B,2BiFhG8B,EAAoB,yBAAvC;AAEV;;AAEoB,mFAAmB,UjF4FxC,2BiF5FwC,EAAkB,WlCujCzD,wBkCvjCyD,EAAoB,WAF7E,sBAE6E,EAAoB,oBAA7E;AAEN,6EAAmB,UjF0FlC,2BiF1FkC,EAAmB,WlCqjCpD,wBkCrjCoD,EAAoB,WAJxE,sBAIwE,EAAiB,qBAAwB,yBAAnG;AAEF,2EAAmB,UjFwFhC,2BiFxFgC,EAAmB,WlCmjClD,wBkCnjCkD,EAAoB,WANtE,sBAMsE,EAAyB,0BAAnF;AAEC,4EAAoB,UjFsFlC,2BiFtFkC,EAAmB,WlCijCpD,wBkCjjCoD,EAAsB,alCwJxE,0BkCxJwE,EAAwB,a9EWjG,yB8EXiG,CAArF;AAEH,yEAAmB,UjFoF9B,2BiFpF8B,EAAmB,YpE2HjC,uDoE3HiC,EAAwC,0BAA9E;AAGF;;;AAEC;;;AAEf;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA7Be;;;;;;;;;;;;;;;;;AAogCmB;AAEpC,mBAAQ,OAAO,CAAC,KAAD;AAFqB;AAkQD;AAAV;AAEzB;AAGA,YAAO,mBAAc,CAAC,QAAD;AACrB,UAAI,eAAU,KAAG,EAAjB;AAEE,YAAG,cAAG,CAAC,IAAI,GAAL,CAAS,KAAE,CAAjB;AACE,gBAAO,GAAI,GAAE,GAAF;AAEX,oBAAO,GAAI,GAAE,GAAF;AACb,cAAO,GAAsB,GAAhB,eAAF,GAAc,GAAF,GAAQ,qBAAQ,CAAC,QAAQ,WAAU,GAAC,CAApB,CAAV;OAN/B;AAQA,eAAU;AAde;AAAU;AA0FQ;AAAlB;AAEzB;AACA;AAAK;AAAS;AAAS;AAGvB,iBAAY;AACZ,eAAU;AACV,aAAQ,qBAAgB,CAAC,QAAD;AAExB,UAAG,CAAoB,CAAf,oBAAe,IAAqB,CAAhB,QAAQ,QAAQ,IAAG,cAAC,gCAAW,8BAAZ,CAAH,CAArB,CAAvB,EACM,OAAC,IADP;AAGA,UAAK,cAAG,CAAC,IAAI,IAAL;AACR,UAAG,CAAE,GAAE,CAAP;AAEE,cAAO,eAAI,CAAC,KAAK,EAAc,CAAL,IAAD,OAAM,GAAC,CAAD,CAAE,GAAC,CAAvB;AACX,eAAQ,eAAI,CAAC,KAAK,EAAE,CAAC,GAAC,CAAV;OAHd;AAQA,iBAA8B,OAAjB,QAAQ,UAAY,mBAAH,CAAkB;AAChD,UAAK,QAAQ,SAAQ,WAAO,SAAC,EAAM,GAAE,CAAF;AAEnC,aAAgB,CAAT,QAAS,KAAE,EAAF,CAAM,IAAO,CAAF,CAAE,IAAG,CAAH,CAA7B;AAEE,YAAG,4BAAQ,IAAG,QAAQ,SAAQ,WAAO,UAAC,CAAD,CAAG,eAAxC,EACE,WAAU,QAAQ,SAAQ,WAAO,UAAC,CAAD,CAAG,WADtC;AAEI,SAAJ,IAAG;;AAGL,UAAI,QAAS,KAAE,EAAf,EACE,sBAAa,CAAC,eAAe,QAAQ,SAAxB,CADf;AAGA,iBAAY,IAAO,UAAU,CAAW,QAAQ,MAAO,UAA1B;AAC7B,UAAQ,CAAJ,IAAI,KAAE,EAAF,CAAM,IAAuB,CAAlB,IAAI,QAAQ,IAAD,WAAP,CAAc,KAAE,GAAF,CAArC,EACE,OAAQ,IAAK,GAAE,GADjB;AAGA,eAAU,IAAgB,GAAT,QAAF,GAAa,GAAF;AAvCD;AAAkB;AAzJN;AAAZ;AAEzB,UAAI,eAAU,KAAC,IAAf,EACE,kBAAc,qBADhB;AAEA,eAAU;AAJe;AAAY;AApRA;AAErC,UAAc,CAAV,cAAU,KAAG,KAAH,CAAU,IAAkB,CAAb,iBAAa,KAAE,CAAF,CAA1C,EACE,eAAU,KAAV,CADF;AAGA,uBAAa;AALwB;AAyTL;AAEhC,UAAS,CAAL,SAAK,KAAG,KAAH,CAAU,IAAkB,CAAb,iBAAa,KAAE,CAAF,CAArC,EACE,eAAU,KAAV,CADF;AAGA,kBAAQ;AALwB;AAwEA;AAAP;AAEzB,UAAY,oBAAD,QAAX;AAEE,4BAAc,CAAC,KAAM,SAAI,OAAX;OAFhB;AAIA,eAAU;AANe;AAAO;AATA;AAAP;AAEzB,UAAY,oBAAD,QAAX;AAEE,4BAAc,CAAC,KAAM,SAAI,OAAX;OAFhB;AAIA,eAAU;AANe;AAAO;AAkBD;AAAN;AAEzB;AACA;AAEA,UAAY,oBAAD,QAAX;AAEE,WAAG,IAAH,GAAW;AACX,YAAK,SAAI;AACT,4BAAc,CAAC,KAAM,2DAAK;;;;YAAZ;OAJhB;AAMA,eAAU;AAXe;AAAM;AAhaI;AAEnC,UAAI,YAAQ,KAAG,KAAf;AAEE,uBAAW;AAEX,YAAG,iBAAa,GAAE,CAAlB,EACE,MADF;AAGA,YAAI,yCAAU,IAAG,oBAAjB,EACE,MADF;AAGA,YAAG,KAAH;AAEE,cAAI,SAAK,KAAG,EAAZ,EACE,gBADF;SAIA;OAhBJ;AAFmC;AA6bM;AAEzC,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAK,QAAQ,UAAU,SAAxB,CADnB;AAFyC;AA3FF;AAAd;AAEzB,eAAU;AACV,UAAY,cAAD,QAAX,EACE,cAAS,CAAC,KAAM,QAAQ,UAAS,oBAAM;;;;UAA9B,CADX;AAHyB;AAAc;AAwBE;AAAhB;AAEzB,eAAU;AACV,UAAY,cAAD,QAAX,EACE,cAAS,CAAC,KAAK,QAAQ,UAAS,2BAAe,CAAC,QAAQ,QAAT,EAAkB;;;;UAAxD,CADX;AAHyB;AAAgB;AA9QA;AAEzC,iBAAO;AAFkC;AA1DF;AAEvC,UAAY,kBAAD,QAAX,EACE,kBAAa,CAAC,OAAD,CADf;AAFuC;AAMF;AAErC,wBAAa,CAAC,IAAD;AAFwB;AAKF;AAEnC;AAEA,kBAA0B,IAAlB,cAAkB;AAC1B,eAAI,iBAAiB,CAAC,OAAS,qCAAV;AACrB,eAAI,iBAAiB,CAAC,QAAU,sCAAX;AACrB,eAAI,iBAAiB,CAAC,QAAU,sCAAX;AAErB,YAAO,8BAAW,CAAC,cAAU,mBAAX;AAElB,eAAI,KAAK,CAAC,IAAI,SAAL;AACT,uBAAY,CAAC,SAAD;AACZ,eAAI,iBAAiB,CAAC,eAAe,kBAAhB;AAErB,UAAG,cAAS,KAAG,EAAf;AACE,iBAAI,KAAK,CAAC,cAAD;AAET,YAAA,SAAI,KAAK;AAlBwB;AA/BA;AAEnC,UAAY,QAAD,QAAX;AAEE;AACA,YAAG,cAAH;AAEE,kBAAG,UAAC,CAAU,KAAV;AACJ,kBAAG,WAAH,GAAiB;AACjB,kBAAG,KAAK,CAAC,GAAI,IAAL;;AAIR;;OAIF;AAjBiC;AAgEG;AAEtC,UAAY,QAAD,QAAX;AAEG,YAAG,cAAH,EACE,QAAG,UAAC,CAAU,KAAV,CADN;OAFH;AAFsC;AA+DG;AAEzC,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,IAAD,CADf;AAFyC;AAND;AAExC,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,IAAD,CADd;AAFwC;AAYP;AAEjC,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,SAAP,CADhB;AAGA,wBAAa,CAAC,KAAD;AAEb,YAAM,sBAAS,QAAC,YAAM,CAAC,0BAA2B,GAAE,SAA9B,CAAN;AAPiB;AAjFO;AAGxC;AAEA,UAAY,oBAAD,QAAX;AAEE,mBAAW,IAAX,GAAmB;AACnB,4BAAc,CAAC,KAAM,mEAAa,SAApB;OAHhB;AALwC;AAuOF;AAEtC;AACA;AAAU;AAIV,UAAG,UAAK,KAAG,EAAX,EACE,IAAI,iBAAiB,CAAC,mBAAoB,gBAArB,CADvB;AAGA,eAAS,QAAoB,OAAf,aAAQ,SAAC,EAAM,GAAE,CAAF,kBAA7B;AAAI;AAEF,qBAAQ,aAAa,CAAC,EAAG;;;;aAAU;;;;YAAd;AACrB,YAAI,iBAAiB,CAAC,SAAU,SAAX;;AAKvB,UAAI,UAAI,KAAE,EAAV,EACE,IAAI,iBAAiB,CAAC,gBAAiB,QAAQ,GAAC,MAAM,KAAK,CAAC,UAAQ,GAAH,GAAD,GAAK,cAAV,CAAtC,CADvB;AAlBsC;AAtBF;AAAX;AAEzB,eAAU;AACV,UAAG,MAAO,KAAE,EAAZ,EACE,SAAU,MADZ;AAHyB;AAAW;AAeI;AAAf;AAEzB,eAAU;AACV,UAAG,MAAO,KAAE,EAAZ,EACE,SAAU,UADZ;AAHyB;AAAe;AA2LD;AAAd;AAEzB,eAAU,wBAAmB,QAAC,YAAM,CAAC,IAAD,CAAN;AAFL;AAAc;AA5GE;AAAhB;AAEzB,UAAY,wBAAD,QAAX;AACE,gCAAmB,CAAC,KAAK,SAAS,SAAS,MAAM;;;;YAA9B;;AAGnB,YAAG,QAAS,IAAG,cAAC,qBAAO,mBAAR,CAAf;AACE,mBAAU,IAAO,UAAU,CAAC,KAAD;AAE3B,uBAAU;;AATW;AAAgB;AA7PP;AAElC;AACA,qBAAW;AACX,iBAAO;AACP,uBAAa;AACb,sBAAY;AACZ,sBAAY,uBAAW,QAAC;AACxB,wBAAc;AACd,+BAAqB;AACrB,6BAAkB;AAVqC;AAArB;AAaA;AAEzB,eAAT,KAAS;AACT;AAHkC;AAxBG;AAErC;AACI,uBAAJ,IAAG;AAHkC;AAoDF;AAEnC;AACA,UAAI,iBAAa,GAAE,CAAnB,EACM,iBAAJ,IAAG,CADL;AAHmC;AAiQN;;AAAJ;AAEzB,eAAqB,IAAX,OAAW,CACnB;AAEE,8BAAiB;AAEjB,YAAiB,CAAb,kBAAa,GAAE,CAAF,CAAK,IAAc,CAAV,yCAAU,IAAG,qBAAH,CAApC;AACE,kBAAQ,CAAC,KAAD;AAER,cAAA,eAAS,CAAC,IAAD;AAPb,OADmB;AAFI;AAAI;AA/SE;AAE/B,oBAAS,CAAC,KAAD;AAFsB;AAda;AAE5C;AAEA,UAAG,YAAQ,IAAS,CAAJ,SAAI,KAAG,EAAH,CAApB,EACE,gBADF;AAJ4C;AAsOE;AAAf;AAE1B;AACH,UADG,IACH;AAAa,iBAAU;AACvB,gBAFG,IAEH;AAAY,iBAAU;AACtB,gBAHG,IAGH;AAAa,iBAAU;;AAEvB,iBAAU;;AAPmB;AAAe;AApvC7B;;AA4DG,+BAAO,UxEodjB,+BwEpdiB,CAAP;AAUH;AACQ;AACC;AACR,+B9D3FN,yC8D2FM;AACM;AACL;AACC;AACG;AACH;AACD;AACD,+BxE8PP,iCwE9PO;AACC;AACQ;AACZ;AACD;AACS,oCpEuEX,6CoEvEW;AACC,qCpEsEZ,6CoEtEY;AACC,sCAxGP,iCAwGO;AACA,sCA7FP,iCA6FO;AACN,gCAtGS,2CAsGT;AACU,0CArGP,qCAqGO;AACF,wCApGP,mCAoGO;AACC,yCAnGP,oCAmGO;AA5FX;AA+FG;;;AAED;;;AAEjB;AAFiB;;;;;AAgzC2B;AAE9C;AACA;AAGA,gBAAW;AACX,UAAK,MAAM,MAAK,OAAO,GAAE,CAAF;AACvB,aAAM,OAAQ,IAAO,CAAF,CAAE,IAAG,CAAH,CAArB;AAEE,kBAAW,MAAM,MAAK,WAAC,CAAD,CAAG,eAAe,IAAG,cAAC,iCAAY,qCAAb,CAAH;AACpC,SAAJ,IAAG;;AAGL,UAAG,OAAQ,IAAY,CAAC,MAAM,WAAP,SAAvB;AAEE,cAAM,WAAU,CAAC,KAAM,MAAP;OAFlB;AAd8C;AAoBK;AAAxB;AAE3B,eAAU;AAFiB;AAAwB;AAKN;AAAlB;AAG3B;AACA;AACA;AAAO;AACP;AAGA,eAAU;AACV,eAAS,QAAuB,OAAlB,MAAM,MAAK,OAAO,GAAE,CAAF,kBAAhC;AAAI;AAEF,YAAoB,OAAf,MAAM,MAAK,WAAC,CAAD,EAAO,6BAAH;AACpB,SAAC,YAAD,GAAiB,IAAI;AACrB,SAAC,OAAD,GAAY;AACZ,SAAC,KAAD,GAA4B,IAAlB,cAAkB;AAC5B,SAAC,KAAK,iBAAiB,CAAC,OAAS,uBAAD,EAAC,SAAV;AACvB,SAAC,KAAK,iBAAiB,CAAC,QAAU,uBAAD,EAAC,UAAX;AACvB,SAAC,KAAK,iBAAiB,CAAC,QAAU,uBAAD,EAAC,UAAX;AACvB,cAAO,gBAAW,mBAAmB,CAAC,CAAD;AAE/B,mBAAD,CAAC;AACN,YADM,IACN;AAAY,mBAAU;AACtB,kBAFM,IAEN;AAAY,mBAAU;AACtB,kBAHM,IAGN,qCAAW,SAAU,QAArB;AAEA,SAAC,KAAK,KAAK,CAAC,OAAO,GAAR;AACX,wBAAU,aAAa,CAAC,CAAC,KAAF;AACvB,SAAC,KAAK,iBAAiB,CAAC,eAAe,kBAAhB;AACvB,YAAK,gBAAU,iBAAiB,CAAC,sBAAiB,gBAAgB,CAAC,CAAC,QAAF,EAAW,CAAC,UAAS,CAAC,MAAxD;AAEhC,YAAG,CAAC,QAAQ,IAAG,cAAC,gCAAW,+BAAZ,CAAf;AACE,WAAC,KAAK,KAAK,CAAC,CAAD;AAEX,cAAA,CAAC,KAAK,KAAK,CAAC,CAAD;;AAEf,eAAQ;AApCmB;AAAkB;AAuCT;AAAT;AAE3B;AACA;AAAI;AAGJ,eAAU;AACV,UAAc,OAAT,SAAY,2BAAH;AACd,OAAC,KAAD,GAA4B,IAAlB,cAAkB;AAC5B,YAAO,gBAAU,WAAW,CAAC,QAAD;AAE5B,UAAI,GAAI,KAAE,EAAV;AAEE,YAAG,0BAAQ,IAAG,CAAC,aAAf;AACE,WAAC,SAAD,GAAa;;AAGb,WAAC,SAAD,GAAa;AACb,WAAC,UAAD,GAAc;AACd,WAAC;;;AAKD,YAAY,CAAR,0BAAQ,IAAG,CAAC,aAAJ,CAAkB,IAAyB,CAApB,gBAAU,WAAU,KAAC,EAAD,CAAvD;AACE,WAAC,SAAD,GAAa;;AAOf,gBAAO,8BAAW,CAAC,gBAAU,UAAU,gBAAU,eAA/B;AAElB,WAAC,KAAK,KAAK,CAAC,IAAK,IAAK,IAAX;AACX,0BAAU,aAAa,CAAC,CAAC,KAAF;AAGvB,WAAC,KAAK,iBAAiB,CAAC,OAAS,uBAAD,EAAC,SAAV;AACvB,WAAC,KAAK,iBAAiB,CAAC,QAAU,uBAAD,EAAC,UAAX;AACvB,WAAC,KAAK,iBAAiB,CAAC,QAAU,uBAAD,EAAC,UAAX;AAIvB,cAAG,gBAAU,UAAU,KAAG,EAA1B;AACE,aAAC,KAAK,KAAK,CAAC,gBAAU,UAAX;AAEX,gBAAA,CAAC,KAAK;;AAEV,iBAAU;;AAjDe;AAAS;AAqDK;AAAd;AAE3B,eAAU,2BAAqB,QAAC,YAAM,CAAC,KAAK,qBAAU,cAAc,UAA9B,CAAN;AACV,YAAO,YAA7B,GAA2C,IAAI;AAHpB;AAAc;AAML;AAEpC;AAEA,UAAa,sBAAH,eAAP,MAAO,CAAV,EACE,mBAAiC,MADnC;AAJyD;AAArB;AA36CjB;;AAUC,+BAAO,UxEqajB,+BwEraiB,CAAP;AAVD;AAcD,yEAAmB,UjFhC9B,2BiFgC8B,EAAsB,elC2+CpC,uCkC3+CoC,CAAzC;AAEE;;;AAElB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAZkB;;;;;;;;;;;;AAwpBkB;AAEtC,kBAAO,OAAO,CAAC,KAAD;AAFwB;AAuGE;AAAZ;AAE5B,eAAU;AAFkB;AAAY;AAKA;AAAZ;AAE5B,eAAU;AAFkB;AAAY;AAjHC;AAEzC,0BAAe,KAAf;AAFyC;AAsHO;AAApB;AAE5B;AAAE;AACF;AAGA,eAAU;AACV,UAAK,CAAa;AAClB,UAAG,CAAI,KAAO,CAAC,eAAQ,CAAC,CAAD,CAAT,CAAd;AAEE,iBAAU,gBAAK,CAAC,eAAQ,CAAC,CAAD,CAAT;AACf,YAAI,MAAO,IAAG,CAAd,EACE,yBAAgB,CAAC,gDAAgD,mBAAC,QAAD,EAAQ,IAAzD,CADlB;;AAKA,iBAAS,QAAiB,OAAZ,UAAI,OAAQ,GAAE,CAAF,kBAA1B;AAAI;AAEF,cAAK,iBAAW,oBAAoB,CAAC,MAAM,OAAO,UAAK,GAAnB;AACpC,cAAG,YAAQ,CAAC,CAAD,CAAX;AAEE,gBAAW,CAAO,KAAC,CAAR;AACX,gBAAG,CAAE,GAAE,MAAP,EACE,SAAU,CADZ;WAHF;;;AASJ,UAAI,MAAO,KAAE,CAAb,EACE,SAAU,EADZ;AA5B4B;AAAoB;AA5GH;AAAjB;AAE5B,UAAI,CAAE,KAAE,KAAR;AACE,iBAAU;AACP,gBAAI,CAAE,KAAE,QAAR;AACH,iBAAU;AACP,gBAAI,CAAE,KAAE,OAAR;AACH,iBAAU;AACP,gBAAI,CAAE,KAAE,MAAR;AACH,iBAAU;AACP,gBAAI,CAAE,KAAE,MAAR;AACH,iBAAU;AACP,gBAAI,CAAE,KAAE,UAAR;AACH,iBAAU;AACP,gBAAI,CAAE,KAAE,MAAR;AACH,iBAAU;AACP,gBAAI,CAAE,KAAE,MAAR;AACH,iBAAU;AACP,gBAAI,CAAE,KAAE,QAAR;AACH,iBAAU;AAEV,qBAAU;AArBgB;AAAiB;AAraI;AAArB;AAE5B;AACA;AACA;AACA;AAAE;AACF;AAAK;AAAG;AAGR,eAAU;AAEV,UAAG,QAAQ,QAAQ,KAAE,8BAArB,EACE,aADF;AAGA,UAAK,QAAQ;AAEb,UAAG,aAAM,CAAC,CAAD,CAAT,EACE,aADF;AAGA,UAAG,CAAI,YAAQ,CAAC,QAAQ,UAAS,KAAlB,CAAf,EACM,OAAC,KADP;AAGA,oBAAsB,UAAC,QAAQ,UAAS,KAAlB;AAEtB,UAAG,YAAQ,CAAC,CAAD,CAAX;AACE,YAAe,IAAO,MAAM,CAAO,KAAC,CAAR;AACzB,gBAAG,YAAQ,CAAC,CAAD,CAAX;AACH,YAAe;AAEf,YAAI,OAAC;AAEP,aAAQ,gBAAU;AAElB,aAAM,cAAG,CAAC,KAAK,IAAN,CAAY,GAAE,CAAvB;AAEE,eAAQ,eAAI,CAAC,KAAM,EAAG,cAAG,CAAC,KAAK,IAAN,CAAY,GAAE,CAA3B;AACZ,eAAQ,eAAI,CAAC,KAAM,cAAG,CAAC,KAAI,IAAL,CAAW,GAAE,CAAF,CAAY,IAAD,OAAhC;AACZ,YAAe,CAAE;;AAGnB,UAAG,CAAI,WAAO,CAAC,CAAE,MAAH,CAAd,EACM,OAAC,KADP;AAGA,UAAc,CAAE;AAChB,UAAG,CAAC,OAAQ,KAAE,CAAd;AAEE,YAAe,CAAE;AACjB,iBAAS,QAAkB,OAAb,eAAM,SAAC,EAAM,GAAE,CAAF,kBAA3B;AAAI;AAEF,eAAM,eAAM,UAAC,CAAD,CAAG;AACf,cAAG,CAAC,eAAe,CAAC,EAAD,CAAnB,EACE,iBAAW,sBAAoB,CAAC,eAAM,UAAC,CAAD,EAAI,UAAK,cAAa,CAAE,IAA/B,CADjC;;OANJ;AA5C4B;AAAqB;AAlBF;AAE/C;AACA;AAEA;AAEA,YAAO,MAAM,MAAK,OAAO,GAAE,CAAF;AAEzB,eAAS,QAAuB,OAAlB,MAAM,MAAK,OAAO,GAAE,CAAF,kBAAhC;AAAI;AAEF,YAAW,CAAC,MAAM,MAAK,WAAC,CAAD,CAAZ,SAAiB,IAAmC,CAA7B,MAAM,MAAK,WAAC,CAAD,CAAG,eAAe,KAAG,gCAAH,CAA/D,EACE,MAAO,KADT;;AAIF,0BAAe,CAAC,GAAD;AAfgC;AA0ED;AAAlB;AAE5B;AAAE;AACF;AACA;AACA;AAAU;AAAK;AAAK;AACpB;AACA;AAAG;AACH;AAAG;AAAE;AAAE;AAGP,eAAU;AACV,UAAG,aAAM,CAAC,QAAQ,MAAT,CAAT,EACE,aADF;AAGA,UAAK;AACL,UAAK;AAEL,UAAG,YAAQ,CAAC,QAAQ,MAAT,CAAX;AAEE,iBAAU;AACV,YAAK,iBAAI,CAAO,KAAC,QAAQ,MAAhB;AACT,YAAW,CAAD,OAAI,GAAE,CAAhB;AAEE,cAAS,CAAL,CAAC,QAAC,CAAD,CAAI,KAAG,GAAH,CAAQ,IAAU,CAAL,CAAC,QAAC,CAAD,CAAI,KAAG,GAAH,CAA3B,EACE,SAAU,KADZ;SAFF;AAMA,YAAG,CAAI,MAAP;AAEE,eAAM,uBAAW,QAAC;AAClB,kBAAS,uBAAW,QAAC;AACrB,eAAK,aAAC,CAAa,gBAAU,WAAvB;AACN,eAAK,iBAAL,GAAyB;AACzB,YAAE,WAAC,CAAc,KAAC,QAAQ,MAAvB;AACH,cAAc,IAAT,KAAS;AACd,WAAC,OAAD,GAAY,EAAE,SAAC;AACf,eAAM;AACN,cAAG,gBAAU,kBAAb,EACE,KAAM,CADR;AAGA,mBAAS,SAAe,OAAT,EAAE,SAAC,EAAM,GAAE,CAAF,kBAAxB;AAAI;AAEF,aAAE,GAAF,GAAiB,IAAT,KAAS;AACjB,iBAAK,iBAAC,CAAiB,EAAE,IAAQ,CAAC,CAAD,CAA3B;AACN,mBAAQ,KAAK,SAAC;AAEd,gBAAe,IAAV,MAAU;AACf,qBAAS,SAAiB,QAAZ,KAAK,SAAC,EAAM,GAAE,CAAF,qBAA1B;AAAI;AAEF,eAAqB,CAAR,QAAQ,GAAE,4CAAD;;;;kBAAC,CAAF,CAArB,GAAqC,KAAK,KAAC,CAAD;;AAG5C,aAAE,GAAF,GAAQ;;AAGV,mBAAa,CAAF,CAAE,KAAG,IAAH,CAAQ,IAAc,CAAT,CAAC,OAAQ,GAAE,CAAF,CAAd;AAErB,cAAW,CAAC,CAAD,SAA+C,IAA7B,CAAT,CAAC,OAAQ,GAAE,CAAF,CAAd,IAA+B,CAAC,eAAD,SAAZ,IAA6C,CAAhB,eAAS,SAAC,EAAM,KAAE,CAAF,CAA/E;AAEE,qBAAS,SAAU,QAAL,IAAK,GAAE,CAAF,qBAAnB;AAAI;AACF,6BAAS,MAAI,CAAC,QAAQ,GAAE,4CAAD;;;;kBAAC,CAAF,CAAa,2BAAU,GAAhC;;AAEf,0BAAS,CAAC,CAAD;WALX;AAQA,eAAM,eAAN,KAAM;AACN,YAAG,eAAH,EAAG;AACH;SAxCF;OAVF;AAuDA,UAAG,YAAQ,CAAC,QAAQ,MAAT,CAAX;AAEE,YAAK,IAAO,MAAM,CAAO,KAAC,QAAQ,MAAhB;AAClB,YAAG,WAAO,CAAC,CAAD,CAAV;AAEE,cAAc;SAGd,UAAG,YAAQ,CAAC,CAAD,CAAX,EACG,IAAe,CADlB;OAIF,UAAG,WAAO,CAAC,QAAQ,MAAT,CAAV;AAEE,YAAc,QAAQ;OAEnB,UAAG,YAAQ,CAAC,QAAQ,MAAT,CAAX;AAEH,YAAe,QAAQ;OAGvB,MAAA,oBAAa,CAAC,2BAAD;AAIjB,UAAY,CAAD,QAAX;AAGE,eAAQ,gBAAU;AAClB,oBAAa,gBAAU;AAEvB,eAAM,cAAG,CAAC,KAAK,IAAN,CAAY,GAAE,CAAvB;AAEE,iBAAQ,eAAI,CAAC,KAAM,EAAG,cAAG,CAAC,KAAK,IAAN,CAAY,GAAE,CAA3B;AACZ,iBAAQ,eAAI,CAAC,KAAM,cAAG,CAAC,KAAI,IAAL,CAAW,GAAE,CAAF,CAAY,IAAD,OAAhC;AACZ,cAAe,CAAE;;AAGnB,YAAI,aAAO,KAAC,EAAZ,EACE,gBAAW,IADb;AAIA,YAAG,uBAAkD,IAA5B,CAAC,eAAe,CAAC,SAAD,CAApB,IAAoC,YAAQ,CAAC,CAAE,WAAH,CAAjE;AAEE,eAAgB,CAAE;AAClB,cAAG,CAAI,gBAAP,EACE,iBAAY,EAAZ,CADF;AAGA,cAAG,EAAE,eAAe,CAAC,MAAD,CAAS,IAAI,YAAQ,CAAC,EAAG,QAAJ,CAAzC,EACE,OAAc,KAAC,cAAS,QAD1B;AAEA,cAAG,EAAE,eAAe,CAAC,SAAD,CAAY,IAAI,YAAQ,CAAC,EAAG,WAAJ,CAA5C,EACE,gBAAiB,KAAC,EAAG,WADvB;SARF;AAYA,YAAS,CAAL,IAAK,KAAG,EAAH,CAAkC,IAAvB,CAAC,eAAe,CAAC,IAAD,CAApB,IAA+B,WAAO,CAAC,CAAE,MAAH,CAAtD,EACE,IAAc,CAAE,MADlB;OA7BF;AAiCA,UAAW,CAAC,CAAD,SAA+C,IAA7B,CAAT,CAAC,OAAQ,GAAE,CAAF,CAAd,IAA+B,CAAC,eAAD,SAAZ,IAA6C,CAAhB,eAAS,SAAC,EAAM,KAAE,CAAF,CAA/E;AAEE,8BAAiB,CAAC,CAAD;OAFnB;AAMA,eAAa,CAAF,CAAE,KAAG,IAAH,CAAQ,IAAc,CAAT,CAAC,OAAQ,GAAE,CAAF,CAAd;AAErB,UAAG,MAAH,EACE,cAAS,CAAC,CAAD,CADX;AA3I4B;AAAkB;AAyKJ;AAE1C,UAAY,kBAAD,QAAX;AAEE,0BAAa,CAAC,OAAD;AACb,6BAAiB;OAHnB;AAF0C;AASA;AAE1C,UAAY,kBAAD,QAAX,EACE,kBAAa,CAAC,OAAD,CADf;AAF0C;AArBE;AAE5C,UAAY,oBAAD,QAAX,EACE,oBAAe,CAAC,OAAD,CADjB;AAF4C;AAMA;AAE5C,UAAY,oBAAD,QAAX,EACE,oBAAe,CAAC,OAAD,CADjB;AAF4C;AAqBA;AAE5C,UAAY,oBAAD,QAAX,EACE,oBAAe,CAAC,OAAD,CADjB;AAF4C;AAMD;AAE3C,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,WAAP,CADhB;AAF2C;AAuMK;AAEhD;AACA;AACA;AAAE;AACF;AACA;AACA;AAGA,qBAAS;AAGT,sBAAU,gBAAgB,CAAC,KAAK,gBAAU,cAAhB;AAE1B,UAAG,eAAS,SAAC,EAAM,GAAE,CAArB,EACE,MADF;AAGA,UAAK,cAAoB;AAEzB,UAAG,CAAI,WAAO,CAAC,CAAD,CAAd,EACE,MAAM,4BAAY,QAAC,YAAM,CAAC,yBAAD,CAAN,CADrB;AAGA,UAAc;AACd,eAAS,QAAc,OAAT,CAAC,OAAQ,GAAE,CAAF,kBAAvB;AAAI;AAEF,YAAG,CAAI,YAAQ,CAAC,CAAE,GAAH,CAAf,EACE,MAAM,4BAAY,QAAC,aAAS,CAAC,mDAAmD,mBAAC,GAAD,CAApD,CAAT,CADrB;AAGA,YAAe,CAAE;AACjB,YAAK,CAAa;AAClB,YAAG,CAAI,YAAQ,CAAC,CAAD,CAAf,EACE,MAAM,4BAAY,QAAC,aAAS,CAAC,yDAAyD,mBAAC,GAAD,CAA1D,CAAT,CADrB;AAGA,YAAW,KAAC,CAAD;AACX,YAAK,CAAa;AAElB,YAAG,aAAM,CAAC,CAAD,CAAI,IAAG,kBAAW,CAAC,CAAD,CAA3B;AACE,eAAM;AAEN,kBAAG,CAAI,YAAQ,CAAC,CAAD,CAAf;AAEE,gBAAM,4BAAY,QAAC,aAAS,CAAC,mDAAmD,mBAAC,GAAD,CAApD,CAAT;;AAInB,eAAM,sBAAiB,CAAO,KAAC,CAAR;;AAG3B,YAAI,EAAG,KAAE,0BAAT;AACE,eAAM,yBAAoB,CAAC,EAAE,EAAE,CAAL;AAE1B,mBAAM;AACR,uBAAS,MAAI,CAAC,EAAE,GAAG,EAAN;;AArDiC;AAzCN;AAE1C,yBAAe;AACf,UAAY,KAAD,QAAX,EACE,KAAK,gBAAgB,CAAC,IAAD,CADvB;AAH0C;AA9dG;AAAjB;AAE5B,eAAU,sCAAsB,QAAC;AAFL;AAAiB;AAuXH;;AAEhB;AAExB,YAAY,mBAAH,eAAN,KAAM,CAAT,EACE,gBAAS,MAAI,CAAQ,OAAN,MAAS,mBAAH,CAAgB,YAAY,2BAAiB,OAAN,MAAS,mBAAH,CAAgB,MAArE,CADf;AAGA,YAAY,oBAAH,eAAN,KAAM,CAAT,EACE,gBAAS,MAAI,CAAQ,OAAN,MAAS,oBAAH,CAAiB,YAAY,4BAAW,CAAhD,CADf;AAGA,YAAY,oBAAH,eAAN,KAAM,CAAT;AACE,0BAAS,MAAI,CAAQ,OAAN,MAAS,oBAAH,CAAiB,YAAY,4BAAW,CAAhD;AAEb,kBAAY,oBAAH,eAAN,KAAM,CAAT;AACE,0BAAS,MAAI,CAAQ,OAAN,MAAS,oBAAH,CAAiB,YAAY,4BAAW,CAAhD;AAEf,kBAAY,qBAAH,eAAN,KAAM,CAAT;AACE,0BAAS,MAAI,CAAQ,OAAN,MAAS,qBAAH,CAAkB,YAAY,6BAAY,CAAlD;AAEf,kBAAY,kBAAH,eAAN,KAAM,CAAT;AACE,0BAAS,MAAI,CAAQ,OAAN,MAAS,kBAAH,CAAe,YAAY,0BAAS,CAA5C;AAEf,kBAAY,oBAAH,eAAN,KAAM,CAAT,EACE,gBAAS,MAAI,CAAQ,OAAN,MAAS,oBAAH,CAAiB,YAAY,4BAAW,CAAhD,CADf;AAIF,YAAY,iBAAH,eAAN,KAAM,CAAT;AACE,0BAAS,MAAI,CAAQ,OAAN,MAAS,iBAAH,CAAc,YAAY,yBAAQ,CAA1C;AACV,kBAAY,iBAAH,eAAN,KAAM,CAAT;AACH,0BAAS,MAAI,CAAQ,OAAN,MAAS,iBAAH,CAAc,YAAY,yBAAQ,CAA1C;AACV,kBAAY,qBAAH,eAAN,KAAM,CAAT,EACH,gBAAS,MAAI,CAAQ,OAAN,MAAS,qBAAH,CAAkB,YAAY,6BAAY,CAAlD,CADV;AAGL,YAAY,iBAAH,eAAN,KAAM,CAAT;AACE,0BAAS,MAAI,CAAQ,OAAN,MAAS,iBAAH,CAAc,YAAY,yBAAQ,CAA1C;AAEb,kBAAY,iBAAH,eAAN,KAAM,CAAT,EACE,gBAAS,MAAI,CAAQ,OAAN,MAAS,iBAAH,CAAc,YAAY,yBAAQ,CAA1C,CADf;AAlCsB;AAuC1B,qBAAS;AACT,sBAAW,kBAAoB,KAApB;AA1C+B;AA6CQ;AAElD,UAAoB,CAAhB,eAAS,SAAC,EAAM,KAAE,CAAF,CAAwB,IAAP,CAAC,UAAD,SAAZ,IAAoC,CAAZ,UAAI,OAAQ,GAAE,CAAF,CAA7D;AAEE,8BAAiB,CAAC,UAAD;OAFnB;AAKA;AAPkD;AAhFJ;AAE9C;AACA;AACA;AACA;AAGA,UAAoB,CAAhB,eAAS,SAAC,EAAM,KAAE,CAAF,CAAyB,IAAR,CAAC,KAAD,SAAZ,IAAsC,CAAb,KAAK,OAAQ,GAAE,CAAF,CAA/D;AAEE,YAAe,KAAe;AAC9B,iBAAU,MAAS,oBAAoB,CAAC,CAAD;AAEvC,iBAAS,QAAoB,OAAT,WAAC,MAAD,CAAS,GAAE,CAAF,kBAA7B;AAAI;AAEF,eAAM,CAAmB,CAAN,MAAM,CAAC,CAAD;AAEzB,cAAG,YAAQ,CAAC,EAAD,CAAX,EACE,eAAS,MAAI,CAAC,MAAM,CAAC,CAAD,EAAI,2BAAS,GAApB,CADf;AAGA,cAAG,YAAQ,CAAC,EAAD,CAAX,EACE,eAAS,MAAI,CAAC,MAAM,CAAC,CAAD,EAAI,yBAAX,CADf;AAGA,cAAG,gBAAS,CAAC,EAAD,CAAZ,EACE,eAAS,MAAI,CAAC,MAAM,CAAC,CAAD,EAAI,2BAAX,CADf;AAGA,cAAG,aAAM,CAAC,EAAD,CAAT,EACE,eAAS,MAAI,CAAC,MAAM,CAAC,CAAD,EAAI,wBAAX,CADf;AAGA,cAAG,aAAM,CAAC,EAAD,CAAT,EACE,eAAS,MAAI,CAAC,MAAM,CAAC,CAAD,EAAI,2BAAS,GAApB,CADf;;OArBJ;AAR8C;AAuGN;AAExC;AAEA,wBAAa,CAAC,IAAD;AAEb,UAAW,CAAC,gBAAD,SAAa,IAAI,gBAAU,UAAtC;AAEE,wBAAU;OAFZ;AANwC;AAYA;AAExC;AACA,wBAAa,CAAC,IAAD;AAH2B;AAnBE;AAE1C;AAEA,0BAAe,CAAC,IAAD;AAJ2B;AANA;AAE1C;AACA,0BAAe,CAAC,IAAD;AAH2B;AAvJA;AAAd;AAE5B,UAAY,gBAAD,QAAX;AACE,iBAAU,gBAAU,aAAC;AAErB,qBAAU;AALgB;AAAc;AA4LJ;AAEtC,UAAI,yCAAU,IAAG,oBAAjB,EACE,MADF;AAMA;AARsC;AAzdD;AAErC;AACA,qBAAW,cAAO,QAAC,YAAM,CAAC,aAAD,CAAN;AAHuC;AAArB;AAuRA;AAErC,6BAAU,CAAC;;;;UAAD;AACV;AAHqC;AA5QA;;AAAT;AAE5B,eAAqB,IAAX,OAAW,CACnB;AAEE,8BAAiB;AACjB,aAAI;AAHN,OADmB;AAFO;AAAS;AAUA;;AAAT;AAE5B,eAAqB,IAAX,OAAW,CACnB;AAEE,8BAAiB;AACjB,aAAI;AAHN,OADmB;AAFO;AAAS;AAqBE;;AAAX;AAE5B,eAAqB,IAAX,OAAW,CACnB;AAEE,gCAAmB;AACnB,aAAI;AAHN,OADmB;AAFO;AAAW;AA1DA;;AAAX;AAE5B,eAAqB,IAAX,OAAW,CACnB;AAEE,gCAAmB;AACnB,aAAI;AAHN,OADmB;AAFO;AAAW;AA+CA;;AAAX;AAE5B,eAAqB,IAAX,OAAW,CACnB;AAEE,gCAAmB;AACnB,aAAI;AAHN,OADmB;AAFO;AAAW;AAqBM;;AAAjB;AAE5B,eAAqB,IAAX,OAAW,CACnB;AAEE,gCAAmB;AACnB,aAAI;AAHN,OADmB;AAFO;AAAiB;AA1DL;AAExC;AACI,uBAAJ,IAAG;AAHqC;AAyVF;AAEtC;AACA,UAAG,iBAAa,GAAE,CAAlB,EACM,iBAAJ,IAAG,CADL;AAHsC;AA1WS;AAE/C;AAEA;AAJ+C;AA6lBP;AAGxC;AAEA,eAAS,QAAkB,OAAb,eAAM,SAAC,EAAM,GAAE,CAAF,kBAA3B;AAAI;AAEF,YAAoB,CAAhB,eAAM,UAAC,CAAD,CAAG,OAAO,KAAE,IAAF,CAAsC,IAAR,CAAlB,eAAM,UAAC,CAAD,CAAG,SAAS,KAAE,IAAF,CAAtB,IAAuC,CAAL,IAAK,KAAE,IAAF,CAAnE;AAEE,cAAG,eAAM,UAAC,CAAD,CAAG,MAAM,KAAE,EAApB,EACE,eAAM,UAAC,CAAD,CAAG,QAAC,CAAQ,UAAK,GAAE,eAAM,UAAC,CAAD,CAAG,WAAxB,CADZ;AAGA,cAAI,CAAC,eAAM,UAAC,CAAD,CAAP;SALN;;AAPsC;AA1PC;AAEzC;AACA,aAAM,CAAI,aAAV,EACE;AAJuC;AAuIL;AAEpC,UAAY,gBAAD,QAAX,EACE,gBAAU,YADZ;AAFoC;AA3nBhB;;AA+CA,+BAAO,UxEgXjB,+BwEhXiB,CAAP;AA/CA;AAwEN;;;AAIG;AACI,kCA9LJ,gCA8LI;AACJ,8BlCowBV,wBkCpwBU;AAEI,kClC0zBF,oCkC1zBE;AACD,iClCyzBD,oCkCzzBC;AACE,mClCwzBH,oCkCxzBG;AACD,kClCuzBF,oCkCvzBE;AACE,oClCszBJ,oCkCtzBI;AACD,mClCqzBH,oCkCrzBG;AACD,kClCozBF,oCkCpzBE;AACD,iClCmzBD,oCkCnzBC;AACC,kClCkzBF,oCkClzBE;AACD,iClCizBD,oCkCjzBC;AACG,oClCgzBJ,oCkChzBI;AACD,mClC+yBH,oCkC/yBG;AACC,oClC8yBJ,oCkC9yBI;AACD,mClC6yBH,oCkC7yBG;AACC,oClC4yBJ,oCkC5yBI;AACD,mClC2yBH,oCkC3yBG;AACC,oClC0yBJ,oCkC1yBI;AACC,qClC0yBN,mCkC1yBM;AACF,mClCyyBJ,mCkCzyBI;AACG,sClCmzBP,mCkCnzBO;AACH,mClCsyBH,oCkCtyBG;AACA,mClCsyBJ,mCkCtyBI;AACG,sCAxGP,iCAwGO;AA9BX;AAkCG;;;AA3PnB,mBA6Pc;AAQS;;;AAEnB;AACA;AAHmB;;;;;;AAo7Be;AAAP;AAE7B,wBAAW;AAEX,YAAY,gBAAD,QAAX,EACE,gBAAU,QAAQ,CAAC,SAAI,OAAL,CADpB;AAGA;AACA,iBAAU;AARmB;AAAO;AAXA;AAAP;AAE7B,wBAAW;AAEX,YAAY,gBAAD,QAAX,EACE,gBAAU,QAAQ,CAAC,SAAI,OAAL,CADpB;AAGA;AACA,iBAAU;AARmB;AAAO;AAsBD;AAAN;AAE7B,YAAI,SAAI,OAAQ,KAAE,GAAlB;AAEE,uBAAQ;AACR,0BAAW;;AAIX,uBAAQ;AACR,cAAY,CAAR,0BAAQ,IAAG,iBAAH,CAAgB,IAAiB,CAAZ,SAAI,OAAQ,KAAE,GAAF,CAA7C;AACE,4BAAW;;AAGX,4BAAW;AACX,6BAAY,SAAI;;AAGlB,cAAY,gBAAD,QAAX,EACE,gBAAU,QAAQ,CAAC,SAAI,OAAL,CADpB;;AAIF;AACA,iBAAU;AAvBmB;AAAM;AA1CS;AAAf;AAE7B;AAEA,iBAAU,SAAI;AAEd,YAAW,CAAC,gBAAD,SAAa,IAAY,CAAC,gBAAU,gBAAX,SAApC;AAGF;AAEI,0BAAW,eAAe,CAAC,UAAM;;;;cAAP;SAL5B;AAQA,YAAW,CAAC,gBAAD,SAAa,IAAY,CAAC,gBAAU,kBAAX,SAApC;AAEE,0BAAW,kBAAiB,CAAC,iBAAY,cAAS,oBAAO;;;;cAA7B;SAF9B;AAd6B;AAAe;AAr5BvB;AAcE;;;AAErB;AACA;AACA;AAJqB;;;;;;;AA83BuB;AAAf;AAE/B,iBAAU,SAAI;AACd,YAAW,CAAC,gBAAD,SAAa,IAAY,CAAC,gBAAU,kBAAX,SAApC,EACE,gBAAW,kBAAiB,CAAC,iBAAY,cAAQ,sBAAiB,gBAAgB,CAAC,IAAI,QAAL,EAAc;;;;YAApE,CAD9B;AAH+B;AAAe;AArBR;AAAP;AAE/B,YAAY,gBAAD,QAAX,EACE,gBAAU,QAAQ,CAAC,SAAI,OAAL,CADpB;AAEA,0BAAa,CAAC,SAAI,WAAL;AACb,iBAAU;AALqB;AAAO;AATA;AAAP;AAE/B,YAAY,gBAAD,QAAX,EACE,gBAAU,QAAQ,CAAC,SAAI,OAAL,CADpB;AAGA,0BAAa,CAAC,SAAI,WAAL;AACb,iBAAU;AANqB;AAAO;AAiBD;AAAN;AAE/B,YAAgB,UAAZ,SAAI,OAAQ,GAAI,GAAJ,CAAS,KAAE,CAA3B;AAEE,sBAAO,CAAC,sBAAD;AACP,mBAAU;SAGV,MAAA,kBAAa,CAAC,SAAI,WAAL;AAER,eAAN,YAAS,wBAAH,CAAuB,mBAAmB,CAAC,WAAD;AAVlB;AAAM;AAj3Bd;AAtBX;AA7Pd,GA6Pc,oCA7Pd;ACAA,iCAyCS,yJAzCT;;;;AA0HQ,gBAAmC;AAE1B,yBAAG;AAIC;AAIH;AACd;AACA;AAFc;aACd,sBACA;AAFc;;AACd;AACA;AAFc;;;AACd,uB/E8aW,6B+E9aX;AACA;AAFc;AAUiB,wFAAgE,SAVjF,+BAUiF,EAAhE;AAOJ,oFAAgE,uBAAuB,yBAAvF;AAEjB;AAotC8B;AAwB1C;AAAM;AACN;AAuCF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,gBAAS,IAAT;AACA,mBAAY,OAAZ;AACA,sBAAe,UAAf;AAjF0C;AAw/CR;AA8CpC;AA9CoC;AAhGC;;AAwfA;AAEnC,cAAQ;AACR,cAAQ,IAAI,CAAC,OAAD;AACZ,cAAQ,IAAI,CAAC,QAAD;AACZ,cAAQ,IAAI,CAAC,QAAD;AACZ,cAAQ,IAAI,CAAC,kBAAD;AACZ,cAAQ,IAAI,CAAC,WAAD;AACZ,cAAQ,IAAI,CAAC,iBAAD;AACZ,cAAQ,IAAI,CAAC,OAAD;AACZ,cAAQ,IAAI,CAAC,aAAD;AACZ,cAAQ,IAAI,CAAC,SAAD;AACZ,cAAQ,IAAI,CAAC,SAAD;AACZ,cAAQ,IAAI,CAAC,SAAD;AACZ,cAAQ,IAAI,CAAC,UAAD;AACZ,cAAQ,IAAI,CAAC,UAAD;AACZ,cAAQ,IAAI,CAAC,SAAD;AACZ,cAAQ,IAAI,CAAC,eAAD;AACZ,cAAQ,IAAI,CAAC,cAAD;AACZ,cAAQ,IAAI,CAAC,aAAD;AACZ,cAAQ,IAAI,CAAC,QAAD;AACZ,cAAQ,IAAI,CAAC,QAAD;AACZ,cAAQ;AACR,cAAQ;AAvB2B;AA2IG;AAMtC,WAAK,QAAC,CAAQ,UAAK,CAAO,CAAN,KAAM,GAAE,EAAF,CAAK,GAAE,EAAd,CAAb;AANgC;AA1xBO;AA8B7C,UAAY,KAAD,QAAX;AA9B6C;AAZP;;AAqpBA;AAAZ;AAE1B,eAAU;AAFgB;AAAY;AAjgBC;AAAb;AAM1B,eAAU,WAAM,CAAC,MAAD;AANU;AAAa;AAUP;AAAN;AAE1B,eAA6B,CAAlB,cAAG,CAAC,KAAM,MAAP,CAAe,GAAE,CAAF,CAAiC,IAAL,CAAnB,cAAG,CAAC,KAAM,MAAP,CAAgB,GAAE,CAAF,CAAvB,IAA+D,CAA/B,cAAG,CAAC,OAAQ,sBAAS,CAAC,MAAD,CAAlB,CAA4B,GAAE,CAAF,CAAnC;AAFpC;AAAM;AAnOU;AAAhB;AAiB1B,eAAU;AAjBgB;AAAgB;AAVN;AAAV;AAG1B,eAAU;AAHgB;AAAU;AAZC;AAAX;AAG1B,eAAU;AAHgB;AAAW;AA2CA;AAAX;AAO1B;AAGA,qBAAU,gCAAM,CAAC,CAAC,EAAG,CAAC,CAAN,CAAhB;AASA,gBAAqB,oCAArB;AACA,qBAAU,gCAAM,CAAC,CAAC,GAAI,CAAC,EAAP,CAAhB;AApB0B;AAAW;AA+LG;AAAd;AAE1B,eAAU,gBAAW,CAAC,OAAQ,WAAT,CAAsB,GAAE,CAAF;AAFjB;AAAc;AAlFH;AAAX;AA8E1B,eAAU;AA9EgB;AAAW;AAzEC;AAAZ;AAK1B,UAAmB,CAAR,MAAD,OAAS,IAAG,CAAH,CAAM,IAA4B,CAAvB,MAAM,QAAQ,MAAD,WAAP,CAAiB,KAAG,WAAH,CAArD;AAEE,iBAAU,MAAO,GAAE,WAAF;AAEjB,qBAAU;AATc;AAAY;AAZG;AAAf;AAK1B,UAAmB,CAAR,MAAD,OAAS,IAAG,CAAH,CAAM,IAA4B,CAAvB,MAAM,QAAQ,MAAD,WAAP,CAAiB,KAAG,GAAH,CAArD;AAEE,iBAAU,MAAO,GAAE,GAAF;AAEjB,qBAAU;AATc;AAAe;AAu6FE;AAAjB;AAE1B,eAAU,wBAAiB,CAAC,cAAe,mBAAhB;AAFD;AAAiB;AAKA;AAlzKwB;AAkzKzC;AAG1B,eAAU;AAHgB;AAAiB;AAnhGZ;AAAL;AAG1B,eAAU;AACV,YAAM,sBAAS,QAAC,YAAM,CAAC,iBAAD,CAAN;AAJU;AAAK;AAq/FI;AAAT;AAE1B;AAEA,eAAU;AAEV,aAAO,cAAG,CAAC,OAAO,sBAAS,CAAC,KAAD,CAAjB,CAAyB,GAAC,CAApC,EACE,QAAS,0BAAa,CAAC,MAAM,OAAU,oBAAC,EAAD,CAAI,GAAI,oBAAC,EAAD,CAAJ,CAAS,cAAC,4CAAD,CAA9B;AAExB,aAAO,cAAG,CAAC,OAAO,sBAAS,CAAC,KAAD,CAAjB,CAAyB,GAAC,CAApC,EACE,QAAS,0BAAa,CAAC,MAAM,OAAU,oBAAC,EAAD,CAAI,GAAI,oBAAC,EAAD,CAAJ,CAAS,cAAC,4CAAD,CAA9B;AAExB,eAAU;AAEV,aAAO,WAAM,CAAC,IAAI,MAAM;;;;;UAAX,CAAmB,GAAE,CAAlC;AAEE,iBAAU,MAAO,GAAE,eAAI,CAAC,MAAM,EAAE,MAAM,GAAC,CAAhB,CAAN;AACjB,YAAI,WAAM,CAAC,IAAI,MAAM;;;;;YAAX,CAAkB,GAAC,CAA7B;AACE,2BAAM,CAAC;;;;eAAM,EAAE,MAAT;AAEN;;AAEJ,eAAU,MAAO,GAAE,KAAF;AAtBS;AAAS;AAbH;AApwK8B;AAowKpC;AAE1B,kBAAW,cAAG,CAAC,UAAW,MAAZ,CAAd;AACA,sBAAU,oCAAV;AAH0B;AAAM;AAMM;AAzwK8B;AAywK1C;AAG1B,kBAAW,cAAG,CAAC,sBAAS,CAAC,SAAD,EAAa,sBAAS,CAAC,MAAD,CAAhC,CAAd;AACA,sBAAU,oCAAV;AAJ0B;AAAY;AA1/FH;AAAT;AAE1B,eAAU;AACV,UAAU,CAAN,KAAM,GAAE,CAAF,CAAK,IAAW,CAAN,KAAM,IAAU,CAAD,OAAT,CAA1B;AAKE,iBAAU,CAAC,QAAC,SAAD;OALb;AAH0B;AAAS;AAyiEI;AAAb;AAE1B;AAAI;AACJ;AAEA,eAAU;AACA,OAAD,sBAAC,IAAkB,UAAR,MAAD,OAAS,GAAI,CAAJ,CAAnB;AACT,WAAM;AACN,YAAO;AACP,aAAM,EAAG,IAAU,MAAD,OAAlB;AAEE,SAAC,CAAC,GAAD,CAAD,GAAU,qBAAQ,CAAC,GAAmD,GAA7C,MAAM,QAAC,MAAD,CAAR,GAAiD,MAAM,QAA6B,CAA5B,EAA4B,GAAE,CAAF,KAA7B,CAA5D;AAClB,aAAM,EAAG,GAAE,CAAF;AACT,cAAO,GAAI,GAAE,CAAF;;AAEb,eAAU;AAfgB;AAAa;AAnHJ;AAAT;AAY1B,UAAG,IAAK,KAAE,EAAV;AAEE,iBAAU;AACV;OAHF;AAOA,eAAU,kBAAkB,CAAC,IAAD;AAnBF;AAAS;AAkFA;AAAT;AAS1B,eAAU,kBAAkB,CAAC,IAAD;AATF;AAAS;AA/9GA;AAAT;AAE1B;AACA;AACA;AACA;AAEA,UAAK;AAIL,eAAS,QAAW,OAAC,MAAD,yBAApB;AAAI;AAGF,YAAS,MAAD,YAAQ,CAAD,IAAP;AACR,YAAQ,CAAF,CAAE,GAAI,IAAJ,CAAS,GAAe,CAAT,CAAF,CAAE,GAAI,IAAJ,CAAS,GAAI,CAAJ,CAAf;AACjB,YAAQ,oBAAC,CAAD;AACR,YAAK,CAAE,GAAE,CAAF;;AAGT,eAAU;AApBgB;AAAS;AAilFS;AAAlB;AAE1B;AACA;AAEA;AACA;AAGA,WAAM,yBAAa,QAAC;AACpB;AACE,YAAK;AAYL,YAAG,CAAI,OAAO,QAAd;AAEE,gBAAO,OAAO;AAEpB;AACA;AACA;AACA;AACA;AACA;AACA;AAGM,eAAM,yBAAa,QAAC,YAAM,CAAC,CAAD,CAAN;AACpB;AACE,gBAAK,uBAAkB,CAAC,EAAD;AADzB;AAGE,cAAG,eAAH,EAAG;AAHL;SAdF;AAwBA,iBAAU;AArCZ;AAuCE,UAAG,eAAH,EAAG;AAvCL;AAV0B;AAAkB;AAhEA;AAAlB;AAE1B;AACA;AACA;AAEA,UAAK;AACL,aAAO,YAAC,CAAY,CAAZ;AACR,eAAS,QAAY,OAAP,OAAO,QAAC,IAAD,gBAArB;AAAI;AAEQ,UAAD,sBAAC,KAAI,CAAL;AACT,eAAO,KAAK,CAAC;;;;aAAI,CAAL;AACZ,YAAK,CAAE,GAAE,qBAAQ,CAAC,EAAE,CAAC,CAAD,EAAK,CAAR,CAAV;;AAET,eAAU;AAdgB;AAAkB;AAkBA;AAAlB;AAE1B;AACA;AAEA;AACA;AAGA,WAAM,yBAAa,QAAC;AACpB;AACE,YAAK;AAYL,YAAG,CAAI,OAAO,QAAd;AAEE,gBAAO,OAAO;AAEpB;AACA;AACA;AACA;AACA;AACA;AACA;SAVI;AAiBA,iBAAU;AA9BZ;AAgCE,UAAG,eAAH,EAAG;AAhCL;AAV0B;AAAkB;AA7DA;AAAlB;AAE1B;AACA;AAOA,UAAK;AACL,eAAU;AACV,UAAI,OAAO,QAAC,EAAK,GAAE,CAAnB,EACE,aADF;AAGA,aAAO,YAAC,CAAY,CAAZ;AACE,OAAD,sBAAC,IAAG,OAAO,QAAC,EAAZ;AACT,aAAO,KAAK,CAAC;;;;WAAG,OAAO,QAAC,EAAZ;AAGZ,eAAU,iBAAY,WAAS,CAAC,EAAG,IAAJ;AApBL;AAAkB;AAwLI;AAAtB;AAE1B,eAAU,uCAAa,QAAC;AACxB,+BAAoB,CAAC,QAAS,MAAV;AAHM;AAAsB;AAMA;AAAtB;AAE1B,eAAU,uCAAa,QAAC;AACxB,+BAAoB,CAAC,QAAS,OAAQ,IAAlB;AAHM;AAAsB;AArBb;;AAAT;AACR;AAAT;AAEP,YAAG,MAAO,IAAG,CAAb;AACE,mBAAU,gBAAK,CAAC,MAAO,GAAE,GAAV;AAEf,uBAAU,gBAAK,CAAC,MAAO,GAAE,GAAV;AALV;AAAS;AAQlB,UAAG,YAAa,KAAE,CAAlB;AACE,iBAAU,CAAC;AAEX,qBAAU,SAAS,CAAgB,CAAT,OAAS,GAAQ,UAAR,CAAoB,GAAE,YAAtC;AAZK;AAAS;AARG;AAAZ;AAE1B,UAAG,YAAa,KAAE,CAAlB;AACE,iBAAU,CAAC;AAEX,qBAAkB,CAAR,OAAQ,GAAE,UAAF,CAAa,GAAE,YAAF;AALP;AAAY;AA9zC/B,mBAA2B,QAAS,KAAM,KAAM,KAAM,IAAtD;AAFsC;AAAnB;AAI1B;AACA;AAEA,eAAU;AAEV,UAAG,KAAM,GAAE,CAAC,CAAZ;AAEE,YAAK;AACL,kBAAW;AAEX,eAAO,OAAQ,IAAG,IAAlB;AAEE,oBAAW,OAAQ,GAAE,IAAF;AACf,WAAJ,IAAG;;AAGA;AACH,YADG,IACH;AAAG,mBAAU,uBAAU,CAAC,OAAD;AACvB,mBAFG,IAEH,WAAG,CAFA,IAEA,OAAH,IAAM,CAFH,IAEG,OAAN,IAAS,CAFN,IAEM,OAAT;AAAY,mBAAU,wBAAW,CAAC,OAAQ,OAAT;;AAEjC,mBAAU,uBAAU,CAAC,OAAD;;AAGtB,iBAAU,MAAa,GAAJ,GAAF,GAAQ,OAAO,CAAC,CAAD,CAAT;OAlBzB;AAT0B;AAAmB;AA5DP;AAAZ;AAG1B,eAAU;AACV,YAAM,sBAAS,QAAC,YAAM,CAAC,wBAAD,CAAN;AAJU;AAAY;AAq+CS;AAE/C;AAAK;AACL;AACA;AACA;AAQA;AAEA,YAAO,yBAAa,QAAC,YAAM,CAAC,OAAD,CAAN;AACrB,YAAO,wBAAY,QAAC;AACpB;AACE,iBAAS,QAAc,iBAAT,GAAG,QAAC,EAAK,GAAI,CAAJ,mBAAvB;AAAI;AAEF,eAAM,kBAAa,CAAC,GAAG,WAAW,CAAC,CAAD,CAAf;AAoBnB,aAAG,MAAM,CAAC,GAAU,WAAC,EAAD,CAAX;;AAIX,WAAG,YAAC,CAAY,CAAZ;AAEJ,aAAM;AACN,aAAM,yBAAa,QAAC,YAAM,CAAC,EAAD,CAAN;AACpB;AACE,YAAE,SAAS,CAAC,IAAK,GAAG,QAAC,EAAV;AACX,eAAM,EAAE,cAAC;AAFX;AAIE,YAAG,eAAH,EAAG;AAJL;AAOA,YAAG,CAAyB,CAApB,cAAG,CAAC,WAAY,EAAb,CAAiB,GAAE,CAAF,CAA5B;AAaI,iBAAO,eAAe,CAAC,GAAD;;AAaxB,iBAAO,iBAAiB,CAAC,EAAD;;AAhE5B;AAwEE,WAAI,eAAJ,GAAI;AACJ,WAAI,eAAJ,GAAI;AAzEN;AAjB+C;AAmIA;AAG/C;AACA;AACA;AACA;AAKA,YAAO,yBAAa,QAAC,YAAM,CAAC,OAAD,CAAN;AACrB,YAAO,wBAAY,QAAC;AACpB;AACE,iBAAS,QAAc,iBAAT,GAAG,QAAC,EAAK,GAAI,CAAJ,mBAAvB;AAAI;AAEF,eAAM,kBAAa,CAAC,GAAG,WAAW,CAAC,CAAD,CAAf;AAoBnB,aAAG,MAAM,CAAC,GAAU,WAAC,EAAD,CAAX;;AAIX,WAAG,YAAC,CAAY,CAAZ;AACJ,eAAO,SAAS,CAAC,IAAK,GAAG,QAAC,EAAV;AA5BlB;AA8BE,WAAI,eAAJ,GAAI;AACJ,WAAI,eAAJ,GAAI;AA/BN;AAb+C;AArCA;AAK/C;AAEA,UAAK;AAEL,UAAG,CAAwB,CAAnB,cAAG,CAAC,WAAY,CAAb,CAAgB,GAAE,CAAF,CAA3B,EACE,IAAK,wBAAyB,GAAE,CADlC;AAGA,aAAO,iBAAiB,CAAC,CAAD;AAZuB;AA6BA;AAE/C;AAEA,UAAK,iBAAY,gBAAgB,CAAC,QAAS,IAAV;AACjC,aAAO,MAAM,CAAC,EAAS,WAAC,CAAD,CAAV;AALkC;AA80BI;AAAzB;AAE1B,eAAU;AACV,YAAM,sBAAS,QAAC,YAAM,CAAC,2BAAD,CAAN;AAHU;AAAyB;AAiwBnB;AAxsKQ;AA0sKxC;AAEA,cAAQ;AACR,cAAQ,aAAC,CAAa,UAAb;AACT,cAAQ,iBAAR,GAA4B;AAC5B,cAAQ,iBAAC,CAAiB,MAAjB;AAET,UAAG,kBAAH;AAEE,iBAAwB,KAAf,QAAQ,SAAC,EAAM,GAAE,CAAF,EAAW,aAAnC;AAAI;AACF,cAAG,QAAQ,KAAC,CAAD,CAAI,KAAE,EAAjB,EACE,QAAQ,OAAO,CAAC,CAAD,CADjB;;OAHJ;AATgC;AAngDF;AAO9B;AAoBA,UAAK;AAEP;AA7BgC;AApBW;AAAf;AAE1B;AAEA,WAAM,qBAAQ,CAAC,MAAD;AACd,eAAU,4BAAc,CAAC,GtC9hHiD,IsC8hHlD;AALE;AAAe;AAk+CN;AA9oKyE;AAgpK5G;AAAG;AAAK;AAER,iBAAK,cAAG,CAAC,IAAK,IAAN,wBAAR;AACA,UAAG,CAAE,GAAE,CAAP;AAEE,mBAAU,eAAI,CAAC,KAAM,CAAE,GAAE,CAAF,CAAY,IAAD,OAApB,CAAd;AACA,eAAQ,eAAI,CAAC,KAAM,EAAG,CAAE,GAAE,CAAd;OAGZ,iBAAU,EAAV;AAEF,UAAI,cAAG,CAAC,OAAQ,sBAAS,CAAC,IAAD,CAAlB,CAA0B,KAAE,CAAnC,EACE,OAAQ,UAAW,GAAE,IADvB;AAEA,YAAO;AAGP,iBAAK,gBAAG,CAAC,IAAK,KAAM,GAAZ,wBAAR;AAKA,UAAG,CAAE,GAAE,CAAP;AAEE,kBAAS,eAAI,CAAC,KAAM,EAAU,IAAD,OAAhB,CAAb;AACA,eAAQ,eAAI,CAAC,KAAM,EAAG,CAAE,GAAE,CAAd;OAGZ,gBAAS,EAAT;AAGF,iBAAK,gBAAG,CAAC,IAAK,KAAM,GAAZ,wBAAR;AAMA,UAAG,CAAE,GAAE,CAAP;AAEE,kBAAW;AACX,gCAAW,CAAC,eAAI,CAAC,KAAM,CAAE,GAAE,CAAF,CAAY,IAAD,OAApB,EAA6B;;;;;YAAlC;AACX,kBAAS,OAAT;AACA,eAAY,4CAAJ;;;;aAAe,EAAG,CAAE,GAAE,CAAlB;OAGZ,gBAAS,CAAT;AAEF,gBAAS,IAAT;AAhDmC;AA1+EC;AAgBpC;AAQA;AA0BE,cAAO;AACP;AAEJ;AACA;AAHI;;AA3BF;;AAxBoC;AAvsCG;;AAAb;AAE1B;AAAI;AAAI;AAAI;AAAI;AAAI;AAAI;AACxB;AAAI;AAAI;AAEU;AAAT;AAEP;AAEA,cAAO,qBAAQ,CAAC,CAAD;AACf,eAAa,GAAD,OAAM,GAAE,CAApB,EACE,MAAO,GAAI,GAAE,GAAF;AAEb,iBAAU;AARH;AAAS;AAWlB,UAAG,cAAH;AAEE,aAAM;AACN,aAAM;OAHR;AAMA,6BAAU,CAAC,UAAW;;;;WAAI;;;;WAAI;;;;UAApB;AACV,6BAAU,CAAC,UAAW;;;;WAAI;;;;WAAI;;;;WAAI;;;;UAAxB;AAEV,UAAG,gBAAH,EACE,OAAQ,GAAuB,GAAjB,SAAS,CAAC,GAAI,CAAL,CAAX,GAAqB,GADnC;AAGA,eAAU,SAAS,CAAC,GAAG,CAAJ,CACqD,GAD5C,EAAF,GAAO,SAAS,CAAC,GAAG,CAAJ,CAAX,GAAoB,EAAF,GAAO,SAAS,CAAC,GAAG,CAAJ,CAAX,GAAoB,GAAF,GAC9D,SAAS,CAAC,GAAG,CAAJ,CAD2D,GAClD,EAAF,GAAO,SAAS,CAAC,GAAG,CAAJ,CAAX,GAAoB,EAAF,GAAO,SAAS,CAAC,GAAG,CAAJ,CAAX,GAAoB,IAAF;AA7B9C;AAAa;AAxBJ;;AAAT;AAE1B;AAAI;AAAI;AACR;AAEkB;AAAT;AAEP;AAEA,cAAO,qBAAQ,CAAC,CAAD;AACf,eAAa,GAAD,OAAM,GAAE,CAApB,EACE,MAAO,GAAI,GAAE,GAAF;AAEb,iBAAU;AARH;AAAS;AAWlB,UAAG,cAAH,EACE,KAAM,GADR;AAGA,6BAAU,CAAC,MAAO;;;;WAAI;;;;WAAI;;;;UAAhB;AAEV,eAAU,SAAS,CAAC,GAAG,CAAJ,CAAmC,GAA1B,EAAF,GAAO,SAAS,CAAC,GAAG,CAAJ,CAAX,GAAoB,EAAF,GAAO,SAAS,CAAC,GAAG,CAAJ,CAAX;AArB5B;AAAS;AA9JxB,sBAAS;AAFmB;;AAAb;AAI1B;AAAY;AACZ;AAAc;AACd;AAAG;AAAG;AAAG;AAAG;AAAG;AACf;AAAY;AACZ;AACA;AACA;AACA;AAAI;AAEmB;AAAd;AAEP;AACA;AACA;AACA;AACA;AACA;AAUA,iBAAU;AACV,YAAG,MAAH;AAGE,cAAgB,CAAZ,WAAY,KAAG,CAAH,CAAM,IAAkB,CAAd,aAAc,KAAG,CAAH,CAAxC;AAEE,uBAAY,uBAAU,CAAC,QAAG,CAAC,WAAD,EAAe,QAAG,CAAC,aAAD,EAAiB,EAAG,CAA1C;AACtB,gBAAgC,CAAf,CAAZ,WAAY,GAAE,EAAF,CAAe,GAAE,aAAF,CAAiB,GAAE,CAAnD;AACE,uBAAU,MAAO,GAAE,QAAF;AAEjB,2BAAU,MAAO,GAAE,QAAF;WANrB;;AA0BN;AACA;AAIM,qBAA0B,CAAZ,WAAY,GAAE,EAAF,CAAe,GAAE,aAAF;AACzC,cAAc,CAAV,SAAU,GAAE,QAAF,CAAY,KAAE,CAA5B,EACE,aADF;AAGA,sBAAa,SAAU,GAAE,QAAF;AACvB,qBAA2B,UAAf,QAAG,CAAC,SAAD,CAAY,GAAI,EAAJ;AAC3B,qBAAY,QAAG,CAAC,SAAD,CAAY,GAAI,EAAJ;AAC3B,mBAAU,uBAAU,CAAC,SAAU,SAAU,EAAG,CAAxB;AACpB,cAAI,SAAU,GAAE,CAAhB;AACE,qBAAU,MAAO,GAAE,MAAF;AAEjB,yBAAU,MAAO,GAAE,MAAF;;AA/Dd;AAAc;AAmEvB,eAAU;AAEV,UAAK;AAEL,mBAAc;AACd,qBAAgB;AAChB,qBAAgB,cAAG,CAAC,YAAa,CAAd;AACnB,UAAG,YAAa,IAAG,CAAnB;AAEE,qBAAc,eAAI,CAAC,EAAG,EAAG,YAAP;AAClB,qBAAc,eAAI,CAAC,EAAG,YAAa,GAAE,CAAF,CAAY,CAAD,OAA5B;OAHpB;AAMA,sBAAG,CAAC,eAAI,CAAC,EAAE,EAAE,CAAL,EAAQ;;;;WAAG;;;;UAAhB;AACH,UAAG,GAAI,GAAE,CAAT,EACE,aADF;AAGA,sBAAG,CAAC,eAAI,CAAC,EAAE,EAAE,CAAL,EAAQ;;;;WAAG;;;;UAAhB;AACH,UAAG,GAAI,GAAE,CAAT,EACE,aADF;AAGA,sBAAG,CAAC,eAAI,CAAC,EAAE,EAAE,CAAL,EAAQ;;;;WAAG;;;;UAAhB;AACH,UAAG,GAAI,GAAE,CAAT,EACE,aADF;AAGA,sBAAG,CAAC,eAAI,CAAC,EAAE,GAAG,CAAN,EAAS;;;;WAAG;;;;UAAjB;AACH,UAAG,GAAI,GAAE,CAAT,EACE,aADF;AAGA,sBAAG,CAAC,eAAI,CAAC,EAAE,GAAG,CAAN,EAAS;;;;WAAG;;;;UAAjB;AACH,UAAG,GAAI,GAAE,CAAT,EACE,aADF;AAGA,sBAAG,CAAC,eAAI,CAAC,EAAE,GAAG,CAAN,EAAS;;;;WAAG;;;;UAAjB;AACH,UAAG,GAAI,GAAE,CAAT,EACE,aADF;AAGA,UAAG,EAAG,GAAE,CAAR,EACE,KAAM,CADR;AAEA,UAAG,EAAG,GAAE,CAAR,EACE,KAAM,CADR;AAEA,UAAG,EAAG,GAAE,CAAR,EACE,KAAM,CADR;AAIA,UAAG,cAAG,CAAC,IAAK,CAAN,CAAS,GAAE,CAAjB;AACE,uBAAgB;AAEhB,2BAAgB;AAElB,UAAU,CAAD,OAAI,GAAE,YAAf;AAEE,eAAQ,eAAI,CAAC,EAAE,aAAa,CAAhB;AAEZ,YAAS,CAAL,IAAK,KAAE,GAAF,CAAO,IAAS,CAAL,IAAK,KAAE,GAAF,CAAzB;AAEE,0BAAG,CAAC,eAAI,CAAC,EAAE,YAAa,GAAE,CAAF,CAAI,CAApB,EAAwB;;;;eAAY;;;;cAAzC;AACH,cAAG,GAAI,GAAE,CAAT,EACE,aADF;AAGA,0BAAG,CAAC,eAAI,CAAC,EAAE,YAAa,GAAE,CAAF,CAAI,CAApB,EAAwB;;;;eAAc;;;;cAA3C;AACH,cAAG,GAAI,GAAE,CAAT,EACE,aADF;AAGA,cAAG,IAAK,KAAE,GAAV;AAEE,yBAAc,UAAW,GAAE,CAAC,CAAH;AACzB,2BAAgB,YAAa,GAAE,CAAC,CAAH;WAH/B;SAVF;OAJF;AAsBA,UAAG,0BAAa,CAAC,GAAI,GAAI,GAAI;;;;UAAb,CAAiB,IAAI,0BAAa,CAAC,GAAI,GAAI,GAAI,EAAG;;;;UAAhB,CAAlD;AAEE,iBAAU,EAAG,GAAE,GAAF;AACb,iBAAU,cAAc,CAAC,OAAQ,WAAY,YAArB;OAH1B;AAxJ0B;AAAa;AAtBJ;AAAT;AAE1B;AAAG;AAAG;AACN;AACA;AAEA,UAAK;AACL,sBAAG,CAAC,eAAI,CAAC,EAAE,EAAE,CAAL,EAAQ;;;;WAAG;;;;UAAhB;AACH,sBAAG,CAAC,eAAI,CAAC,EAAE,EAAE,CAAL,EAAQ;;;;WAAG;;;;UAAhB;AACH,sBAAG,CAAC,eAAI,CAAC,EAAE,EAAE,CAAL,EAAQ;;;;WAAG;;;;UAAhB;AAEH,UAAG,EAAG,GAAE,CAAR,EACE,KAAM,CADR;AAEA,UAAG,EAAG,GAAE,CAAR,EACE,KAAM,CADR;AAEA,UAAG,EAAG,GAAE,CAAR,EACE,KAAM,CADR;AAGA,eAAU,uBAAU,CAAC,GAAG,GAAG,EAAP,CAAW,GAAE,uBAAU,CAAC,EAAE,EAAE,EAAE,CAAP,CAAZ;AAlBL;AAAS;AAjDI;;AAAb;AAE1B;AAAG;AAAG;AAAG;AAAG;AAAG;AAAG;AAClB;AACA;AACA;AAEkB;AAAT;AAEP;AAEA,cAAO,qBAAQ,CAAC,CAAD;AACf,eAAa,GAAD,OAAK,GAAC,CAAlB,EACE,MAAO,GAAI,GAAE,GAAF;AAEb,iBAAU;AARH;AAAS;AAWlB,aAAQ;AACR,gBAAW;AACX,mBAAc;AACd,0BAAe,CAAC,UAAW;;;;WAAM;;;;WAAS;;;;UAA3B;AAEf,6BAAU,CAAC,UAAU;;;;WAAG;;;;WAAG;;;;UAAjB;AACV,6BAAU,CAAC,UAAU;;;;WAAG;;;;WAAG;;;;WAAG;;;;UAApB;AACV,eAAU,qBAAQ,CAAC,EAAD,CACsC,GAD/B,GAAF,GAAQ,SAAS,CAAC,GAAG,CAAJ,CAAX,GAAoB,GAAF,GAAQ,SAAS,CAAC,GAAG,CAAJ,CAAX,GAAoB,GAAF,GAC7D,SAAS,CAAC,GAAG,CAAJ,CAD0D,GACjD,GAAF,GAAQ,SAAS,CAAC,GAAG,CAAJ,CAAX,GAAoB,GAAF,GAAQ,SAAS,CAAC,GAAG,CAAJ,CAAX;AAExD,UAAG,UAAH;AAEE,YAAI,IAAM,IAAG,CAAb;AACE,mBAAU,MAAqD,GAA5C,GAAF,GAAQ,SAAS,CAAmB,UAAX,CAAN,CAAC,IAAK,GAAE,OAAF,CAAW,GAAI,EAAJ,EAAO,CAA1B,CAAX,GAA0C,KAAF;AAE/D,uBAAU,MAAoD,GAA3C,GAAF,GAAQ,SAAS,CAAkB,UAAX,CAAL,IAAK,GAAE,OAAF,CAAW,GAAI,EAAJ,EAAO,CAAzB,CAAX,GAAyC,KAAF;;AAIhE,YAAG,IAAK,KAAG,CAAX;AAEE,cAAG,IAAK,IAAG,CAAX;AACE,qBAAU,MAA2C,GAAlC,GAAF,GAAQ,SAAS,CAAS,UAAP,CAAC,IAAM,GAAI,EAAJ,EAAO,CAAhB,CAAX,GAAgC,KAAF;AAErD,yBAAU,MAA0C,GAAjC,GAAF,GAAQ,SAAS,CAAQ,UAAN,IAAM,GAAI,EAAJ,EAAO,CAAf,CAAX,GAA+B,KAAF;SAGtD,eAAU,MAAO,GAAE,QAAF;;AA7CK;AAAa;AAb1B,wBAAc;AANqB;AAAtB;AAE1B;AACA;AACA;AAIA,aAAQ;AACR,gBAAW;AACX,mBAAc;AACd,0BAAe,CAAC,UAAW;;;;WAAM;;;;WAAS;;;;UAA3B;AAEf,UAAG,UAAH;AACE,iBAAU,iCAAmB,CAAC,qBAAO,CAAC,UAA4B,UAAX,CAAL,IAAK,GAAE,OAAF,CAAW,GAAI,EAAJ,CAA7B,EAAsC,aAA9C;AAE7B,qBAAU,iCAAmB,CAAC,qBAAO,CAAC,UAAgB,UAAL,IAAK,GAAI,EAAJ,CAAjB,EAA0B,aAAlC;AAhBL;AAAsB;AAulFX;AAAX;AAE1B;AAEA,UAAK,2BAAc,CAAC,KAAD;AACnB,UAAK,sBAAS,CAAC,iBAAI,CAAC,CAAD,CAAL;AACd,UAAM,CAAF,CAAE,KAAG,EAAH,CAAO,IAAkD,CAA7C,CAAC,QAAiC,CAAjC,CAA4C,KAAE,GAAF,CAA/D,EACE,IAAK,eAAI,CAAC,EAAG,EAAU,CAAD,OAAI,GAAE,CAAnB,CADX;AAGA,eAAU;AACV,UAAY,gBAAD,QAAX,EACE,SAAU,gBAAU,SAAO,CAAC,CAAD,CAD7B;AAGA,UAAG,MAAO,KAAE,EAAZ,EACE,SAAU,0BADZ;AAb0B;AAAW;AA9DA;AAAX;AAG1B,eAAU;AACV,YAAM,sBAAS,QAAC,YAAM,CAAC,uBAAD,CAAN;AAJU;AAAW;AA+EK;AAAhB;AAE1B;AACA;AAEA,UAAK,sBAAS,CAAC,KAAD;AACd,eAAU;AACV,UAAY,gBAAD,QAAX;AAEE,iBAAS,QAAsB,OAAjB,gBAAU,SAAC,EAAM,GAAE,CAAF,kBAA/B;AAAI;AAEF,cAAG,gBAAU,kBAAe,CAAC,CAAD,CAAI,KAAE,CAAlC;AAEE,qBAAU,gBAAU,QAAM,CAAC,CAAD;AAC1B;WAHF;;OAJJ;AAP0B;AAAgB;AA6IJ;AAAZ;AAE1B;AAQF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAgBE,eAAU;AAjCgB;AAAY;AAqCH;AAGnC;AACA;AACA;AAUA,UAAI,CAAE,GAAE,CAAR,EACE,qBAAgB,CAAC,OAAQ,EAAT,CADlB;AAIA,UAAK;AACL,UAAK;AAEP;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAhCqC;AA+HD;AAAR;AAE1B;AASA,eAAU;AACV,UAAU,MAAD,OAAS,KAAE,CAApB,EACE,aADF;AAGA,UAAK;AACL,UAAG,IAAH;AAEE,YAAK,CAAE,GAAE,uBAAY,CAAC,IAAa,CAAD,OAAI,GAAI,CAArB,CAAd;AACP,YAAK,0BAAa,CAAC,EAAG,IAAK,IAAK,cAAC,4CAAD,CAAd;AAClB,YAAK,0BAAa,CAAC,EAAG,IAAK,IAAK,cAAC,4CAAD,CAAd;OAJpB;AAuBF;AACA;AACA;AACA;AACA;AA3C4B;AAAQ;AArNA;AAAR;AAE1B;AAAG;AAOH,eAAU;AACV,UAAU,MAAD,OAAS,KAAE,CAApB,EACE,aADF;AAGA,UAAK;AAgBP;AACA;AACA;AACA;AACA;AACA;AACA;AAIE,UAAG,IAAH;AAEE,YAAK,0BAAa,CAAC,EAAG,IAAK,IAAK,cAAC,6CAAc,4CAAf,CAAd;AAClB,YAAK,0BAAa,CAAC,EAAG,IAAK,IAAK,cAAC,6CAAc,4CAAf,CAAd;AAClB,YAAK,0BAAa,CAAC,EAAG,IAAK,GAAI,cAAC,6CAAc,4CAAf,CAAb;OAJpB;AAMA,eAAU;AA7CgB;AAAQ;AAvEA;AAAR;AAE1B;AACA;AAWA,eAAU;AACV,UAAS,WAAC,MAAD,CAAS,KAAE,CAApB,EACE,aADF;AAGA,UAAK;AA0BL,UAAK;AAEP;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAIE,UAAG,IAAH;AAEE,YAAK,0BAAa,CAAC,EAAG,IAAK,IAAK,cAAC,6CAAc,4CAAf,CAAd;AAClB,YAAK,0BAAa,CAAC,EAAG,IAAK,IAAK,cAAC,6CAAc,4CAAf,CAAd;AAClB,YAAK,0BAAa,CAAC,EAAG,IAAK,GAAI,cAAC,6CAAc,4CAAf,CAAb;OAJpB;AAMA,eAAU;AAlEgB;AAAQ;AAlJJ;AAG9B,oBAAO,IAAI,CAAC,OAAD;AAHmB;AAlsBO;AAAX;AAG1B;AAEA,eAAU;AACV,UAAK,iBAAY,CAAC,WAAY,aAAb;AACjB,UAAW,CAAC,CAAD,SAAI,IAAI,CAAU,4BAAH,eAAF,CAAE,CAA1B,EACE,SAAU,CAAC,YAAC,EADd;AAP0B;AAAW;AA3LU;AAArB;AAE1B,eAAU;AACV,UAAY,UAAD,QAAX;AAME,iBAAyB,4BAAH,eAAX,UAAW;OANxB;AAH0B;AAAqB;AAcD;AAApB;AAE1B,eAAU;AACV,UAAY,UAAD,QAAX;AAME,iBAAU,UAAU;OANtB;AAH0B;AAAoB;AA8CR;AAAZ;AAG1B,eAAU;AACV;AACE,YAAiB,8BAAH,eAAX,UAAW,CAAd;AASE,mBAAsB,OAAX,WAAc,8BAAH,CAAe,WAAS,CAAC,aAAD;SAThD;AADF;;AAJ0B;AAAY;AAvBC;AAAb;AAG1B,eAAU;AACV;AACE,YAAY,UAAD,QAAX;AASE,mBAAU,iBAAY,CAAC,WAAY,KAAb;SATxB;AADF;;AAJ0B;AAAa;AA7DK;AAAlB;AAE1B,eAAU,yBAAoB,CAAC,iBAAY,CAAC,WAAY,aAAb,CAAb;AAFJ;AAAkB;AAhBE;AAApB;AAE1B;AAEA,eAAU;AACV,UAAK;AACL,UAAW,CAAC,CAAD,SAAI,IAAU,8BAAH,eAAF,CAAE,CAAtB;AAKE,iBAAa,OAAF,EAAK,8BAAH,CAAe;OAL9B;AAN0B;AAAoB;AAmCD;AAAnB;AAE1B,eAAU,0BAAqB,CAAC,iBAAY,CAAC,WAAY,aAAb,CAAb;AAFL;AAAmB;AAnDE;AAArB;AAE1B;AAEA,eAAU;AACV,UAAK;AACL,UAAW,CAAC,CAAD,SAAI,IAAU,8BAAH,eAAF,CAAE,CAAtB;AAKE,iBAAa,OAAF,EAAK,8BAAH,CAAe;OAL9B;AAN0B;AAAqB;AAqCX;AAAV;AAE1B,eAAU;AACV,UAAY,UAAD,QAAX,EACE,SAAU,UAAU,YAAC,EAAM,KAAE,MAD/B;AAH0B;AAAU;AAOC;AAAX;AAE1B,eAAU;AACV,UAAY,UAAD,QAAX,EACE,SAAU,UAAU,YAAC,EAAM,KAAE,OAD/B;AAH0B;AAAW;AA+FK;AAAhB;AAW1B,eAAU,UAAU,SAAC;AAXK;AAAgB;AAeA;AAAhB;AAE1B,eAAU;AACV,UAAW,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,IAAgC,CAA7B,qBAAgB,CAAC,UAAD,CAAa,GAAE,CAAF,CAAhC,CAA7B;AAWE,iBAAU,UAAU,QAAM,CAAC,MAAD;OAX5B;AAH0B;AAAgB;AAmBC;AAAjB;AAW1B,eAAU,WAAW,SAAC;AAXI;AAAiB;AA6CA;AAAjB;AAM1B,eAAU;AACV,UAAW,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,IAAkC,CAA/B,sBAAiB,CAAC,WAAD,CAAc,GAAE,CAAF,CAAlC,CAA7B;AAGE,iBAAU,WAAW,QAAM,CAAC,MAAD;OAH7B;AAP0B;AAAiB;AA9BA;AAAjB;AAG1B;AAGA,eAAU;AACV,UAAW,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,IAAkC,CAA/B,sBAAiB,CAAC,WAAD,CAAc,GAAE,CAAF,CAAlC,CAA7B;AAME,YAAK,WAAW,MAAI,CAAC,MAAD;AAWpB,YAAY,CAAD,QAAX,EACE,SAAU,CAAC,IAAW,YAAC,EADzB;OAjBF;AAP0B;AAAiB;AArMR;AAAT;AAK1B,eAAU,8BAAW,eAAe,CAAC,KAAD;AALV;AAAS;AAbH;AAAN;AAE1B;AAEA,UAAK,cAAS,CAAC,KAAD;AACd,eAAU;AACV,UAAY,CAAD,QAAX;AAEE,iBAAU;AACV,SAAE,eAAF,CAAE;OAHJ;AAN0B;AAAM;AAsyCO;AAAb;AAE1B,eAAU,yBAAU,CAAC,OAAQ,sBAAT;AAFM;AAAa;AAKA;AAAb;AAE1B,eAAU,yBAAU,CAAC,OAAQ,sBAAT;AAFM;AAAa;AAVG;AAAhB;AAE1B,eAAU,4BAAa,CAAC,OAAQ,QAAS,sBAAlB;AAFG;AAAgB;AAeD;AAAf;AAE1B;AASA;AAMA,eAAU;AACV,UAAU,MAAD,OAAS,KAAE,CAApB,EACE,aADF;AAGA,UAAK;AACL,UAAG,IAAH;AAEE,YAAK,CAAE,GAAE,uBAAY,CAAC,IAAa,CAAD,OAAI,GAAI,CAArB,CAAd;AACP,YAAK,0BAAa,CAAC,EAAG,IAAK,IAAK,cAAC,4CAAD,CAAd;AAClB,YAAK,0BAAa,CAAC,EAAG,IAAK,IAAK,cAAC,4CAAD,CAAd;OAJpB;AAyBF;AACA;AACA;AACA;AACA;AAGE,WAAM,yBAAa,QAAC,YAAM,CAAC,GAAmB,sBAAS,QAAC,GzE78GmC,IyE68GjE,CAAN;AACpB;AACE,UAAE,YAAY,CAAC,CAAD;AAOd,iBAAY,4DAAF,EAAE;AARd;AAWE,UAAG,eAAH,EAAG;AAXL;AAvD0B;AAAe;AA+hCL;AAAV;AAE1B;AAAG;AACH;AAAI;AACJ;AAAI;AACJ;AAEA,gBAAW,iBAAI,CAAC,OAAD;AACf,gBAAW,qBAAgB,CAAC,OAAD;AAE3B,mBAAO,CAAC,EAAD,sBAAP;AACA,UAAG,iBAAY,OAAO,CAAC,IAAK,QAAS;;;;;UAAf,CAAoB,KAAE,CAA5C,EACE,iBAAM,CAAC;;;;WAAS,IAAK,CAAf,CADR;AAGA,eAAU;AACV,YAAO;AAEG,eAAD,sBAAC,iBAAU,CAAX;AACT,eAAS,CAAC,CAAD,CAAT,GAAgB;AAChB,eAAS,CAAC,CAAD,CAAT,GAAgB;AAChB,eAAS,CAAC,CAAD,CAAT,GAAgB;AAChB,eAAS,CAAC,CAAD,CAAT,GAAgB;AAChB,eAAS,CAAC,CAAD,CAAT,GAAgB;AAEhB,UAAI,OAAQ,KAAE,EAAd;AAEE,iBAAW,OAAQ,KAAE,EAAF;AACnB;OAHF;AAMA,UAAY,CAAR,OAAQ,KAAG,GAAH,CAAQ,IAAa,CAAR,OAAQ,KAAE,EAAF,CAAjC;AAEE,iBAAU;AACV;OAHF;AAMA;AACE,qBAAM,cAAS,CAAC,wBAAW,QAAS;;;;;YAArB,SAAf;AACA,YAAG,EAAG,KAAG,MAAT;AAKE,cAAoB,CAAT,OAAD,OAAU,GAAE,CAAF,CAA4B,IAAP,CAAJ,aAAP,QAAQ,CAAD,CAAI,KAAE,GAAF,CAAhB,IAA6C,CAAjB,cAAG,CAAC,IAAI,OAAL,CAAc,GAAE,CAAF,CAAtE;AAGE,wBAAM,uBAAkB,CAAC,OAAD,wBAAxB;AACA,qBAAU,eAAU,CAAC,eAAI,CAAC,QAAQ,EAAE,EAAG,GAAE,CAAhB,EAAmB,QAAQ,cAAhC;AACpB,6BAAM,CAAC;;;;iBAAQ,EAAE,EAAX;;AAIN,qBAAU,aAAQ,CAAC,eAAI,CAAC,QAAQ,EAAE,GAAI,GAAE,CAAjB,EAAoB,QAAQ,cAAjC;AAClB,6BAAM,CAAC;;;;iBAAQ,EAAE,GAAX;;AAGR,cAAG,MAAO,KAAE,MAAZ;AACE,kBAAO;;AAEF;AACL,iBADK,IACL,aAAI,CADC,IACD,SAAJ,IAAQ,CADH,IACG,SAAR;AAAY,oBAAO,GAAI,IAAG,MAAH;AACvB,sBAFK,IAEL,UAAI,MAAO,GAAI,IAAI,MAAnB;;AAGF,2BAAU,UAAV;SA1BF;OAFF,QA+BU,EAAH,EAAG,KAAE,MAAF,CA/BV;AAiCA,eAAU,aAAQ,CAAC,QAAS,QAAS,cAAnB;AAElB,UAAG,MAAO,KAAE,MAAZ;AACE,cAAO;;AAEF;AACL,aADK,KACL,aAAI,CADC,KACD,SAAJ,IAAQ,CADH,KACG,SAAR;AAAY,gBAAO,GAAI,IAAG,MAAH;AACvB,kBAFK,KAEL,UAAI,MAAO,GAAI,IAAI,MAAnB;;AAGF,eAAU;AA/EgB;AAAU;AALA;AAAV;AAE1B,eAAU,cAAS,CAAC,OAAQ,OAAQ,eAAgB,WAAjC,CAA8C,KAAG,CAAC,CAAJ;AAFvC;AAAU;AARF;AAAR;AAE1B,UAAG,cAAH;AACE,iBAAU,YAAO,CAAO,QAAe,OAAtB;AAEjB,qBAAU,YAAO,CAAO,uCAAa,CAAC,OAAD,EAAiB,uCAAa,CAAC,OAAD,CAAlD;AALO;AAAQ;AAtwGC;AAAT;AAE1B;AAEA,eAAU,CAAC;AACX,eAAY,QAAgB,kBAAC,MAAD,uBAA5B;AAAI;AAEF,YAAG,CAAI,WAAP;AAEE,cAAmB,CAAf,cAAe,IAAY,CAAP,MAAO,KAAE,MAAM,CAAC,CAAD,CAAR,CAAZ,CAA0B,IAA6B,CAAT,CAAf,cAAe,KAAE,KAAF,CAAS,IAAuB,CAAlB,sBAAS,CAAC,MAAD,CAAS,KAAE,sBAAS,CAAC,MAAM,CAAC,CAAD,CAAP,CAAX,CAAvB,CAA1E;AAEE,qBAAU;AACV;WAHF;SAMG,UAAG,aAAQ,CAAC,OAAQ,MAAM,CAAC,CAAD,EAAK,cAApB,CAAX;AAEH,mBAAU;AACV;SAHG;;AAfmB;AAAS;AAmlFO;AAAhB;AAE1B;AAAG;AACH;AAEA,UAAK;AAKL,UAAK;AACL,UAAY,MAAD;AAEX,eAAU;AAEV,aAAO,CAAE,IAAG,CAAZ;AAEE,YAAG,MAAM,QAAC,KAAD,CAAI,KAAE,GAAf,EACM,CAAJ,IAAG,CADL;AAGA,YAAI,MAAM,QAAC,KAAD,CAAI,KAAE,GAAhB;AAEE,cAAG,cAAG,CAAC,CAAD,CAAN,EACE,SAAU,MAAO,GAAE,MAAM,QAAC,KAAD,CAD3B;SAIA,eAAU,MAAO,GAAE,MAAM,QAAC,KAAD,CAAR;AAEf,SAAJ,IAAG;;AA5BqB;AAAgB;AA/BP;AAAT;AAE1B;AACA;AACA;AAKA,UAAK;AAEL,UAAK;AACL,UAAK;AACL,eAAQ,CAAC,CAAT;AACA,eAAU;AAEV,aAAM,CAAE,IAAU,MAAD,OAAjB;AAEE,YAAG,MAAM,QAAC,CAAE,GAAE,CAAF,IAAH,CAAQ,KAAE,GAAnB,EACM,CAAJ,IAAG,CADL;AAGA,YAAI,cAAS,CAAC,MAAM,QAAC,CAAE,GAAE,CAAF,IAAH,EAAS,sBAAhB,CAA2B,IAAI,CAAI,cAAG,CAAC,CAAD,CAAnD;AAEE,mBAAQ,CAAR;AACA,mBAAU,MAAM,QAAC,CAAE,GAAE,CAAF,IAAH;AAChB;SAJF;AAMI,SAAJ,IAAG;;AA3BqB;AAAS;AAfA;AAAT;AAE1B;AAEA,eAAU;AACV,eAAS,QAAS,kBAAC,QAAD,uBAAlB;AAAI;AAEF,YAAG,EAAG,KAAE,QAAQ,CAAC,CAAD,CAAhB;AAEE,mBAAU;AACV;SAHF;;AAPwB;AAAS;AAjDC;AAAV;AAG1B;AAAE;AAEF,UAAW,WAAC,SAAD,CAAW,GAAO,WAAC,SAAD,CAAP;AACZ,YAAD,sBAAC,cAAO,CAAR;AACT,UAAK;AAEL,eAAS,QAAS,kBAAC,SAAD,uBAAlB;AAAI;AAEF,cAAM,CAAC,CAAD,CAAN,GAAa,SAAS,CAAC,CAAD;AAClB,SAAJ,IAAG;;AAGL,eAAS,SAAS,mBAAC,SAAD,0BAAlB;AAAI;AAEF,cAAM,CAAC,CAAD,CAAN,GAAa,SAAS,CAAC,CAAD;AAClB,SAAJ,IAAG;;AAlBqB;AAAU;AAkRA;AAAV;AAG1B;AAAE;AAAE;AACJ;AAEA,UAAK;AACK,YAAD,sBAAC,cAAO,CAAR;AAET,eAAS,QAAuB,OAAZ,WAAC,SAAD,CAAY,GAAE,CAAF,kBAAhC;AAAI;AAEF,gBAAS;AACT,iBAAS,SAAuB,QAAZ,WAAC,SAAD,CAAY,GAAE,CAAF,qBAAhC;AAAI;AAEA,cAAG,SAAS,CAAC,CAAD,CAAI,KAAE,SAAS,CAAC,CAAD,CAA3B;AAEE,oBAAS;AACT;WAHF;;AAOJ,YAAG,CAAI,KAAP;AAEM,WAAJ,IAAG;AACO,gBAAD,sBAAC,cAAO,CAAR;AACT,gBAAM,CAAC,CAAE,GAAE,CAAL,CAAN,GAAiB,SAAS,CAAC,CAAD;SAJ5B;;AArBwB;AAAU;AA5PK;AAAf;AAE1B,eAAU,iBAAY,UAAU,CAAC,MAAO,qBAAR,CAAwB,IAAG,iBAAY,UAAU,CAAC,MAAO,mBAAR,CAAzB;AAF9B;AAAe;AAKH;AAAZ;AAE1B;AACA;AAEU,YAAD,sBAAC,cAAO,EAAR;AACT,UAAK;AAEL,eAAU,SAAO,eAAjB;AAAI;AAEF,cAAM,CAAC,CAAD,CAAN,GAAa;AACT,SAAJ,IAAG;;AAGL,eAAU,UAAO,gBAAjB;AAAI;AAEF,cAAM,CAAC,CAAD,CAAN,GAAa;AACT,SAAJ,IAAG;;AAjBqB;AAAY;AA9uGE;AAAd;AAE1B;AACA;AAEU,YAAD,sBAAC,cAAO,EAAR;AACT,UAAK;AAEL,eAAU,SAAO,cAAjB;AAAI;AAEF,cAAM,CAAC,CAAD,CAAN,GAAa;AACT,SAAJ,IAAG;;AAXqB;AAAc;AAeD;AAAb;AAE1B;AAEU,YAAD,sBAAC,cAAe,MAAD,OAAf;AAET,eAAS,QAAW,OAAC,MAAD,yBAApB;AAAI;AAEF,cAAM,CAAC,CAAE,GAAE,CAAL,CAAN,GAAiB,cAAS,CAAC,OAAQ,CAAT;;AARF;AAAa;AAo/GP;AAAN;AAE1B;AAAI;AACJ;AAAG;AAAG;AAAG;AAAG;AAAG;AACf;AACA;AAAG;AAAG;AAAG;AAET,eAAU;AAEV,WAAM;AAEN,WAAM,sBAAS,CAAC,2BAAc,gBAAf;AACf,WAAM,cAAG,CAAC,IAAI,EAAL;AACT,WAAM,cAAG,CAAC,IAAI,EAAL;AACT,WAAM,cAAG,CAAC,IAAI,EAAL;AAET,WAAM;AACN,WAAM;AACN,WAAM;AACN,WAAM;AACN,WAAM;AACN,WAAM;AAEN,WAAM,CAAC;AACP,UAAG,iBAAY,OAAO,CAAC,2BAAc,eAAe,OAAO;;;;UAArC,CAAwC,GAAC,CAA/D;AAEE,aAAM,eAAI,CAAC,OAAO,EAAE,EAAG,GAAE,CAAf;AAEV,YAAM,CAAF,EAAE,GAAC,EAAD,CAAK,IACL,CAAF,EAAE,GAAC,EAAD,CADN;AAEG,0BAAG,CAAC,GAAG;;;;eAAG;;;;cAAP;AAEN,kBAAM,CAAF,EAAE,GAAC,EAAD,CAAK,IACL,CAAF,EAAE,GAAC,EAAD,CADN;AAEG,0BAAG,CAAC,GAAG;;;;eAAG;;;;cAAP;AAEN,kBAAM,CAAF,EAAE,GAAC,EAAD,CAAK,IACL,CAAF,EAAE,GAAC,EAAD,CADN,EAEG,gBAAG,CAAC,GAAG;;;;aAAG;;;;YAAP,CAFN;AAIA,YAAG,GAAG,KAAE,CAAR,EAAe,aAAf;AACA,yBAAM,CAAC;;;;aAAO,EAAE,EAAV;AAEN,YAAG,iBAAY,OAAO,CAAC,2BAAc,eAAe,OAAO;;;;YAArC,CAAwC,GAAC,CAA/D;AAEE,eAAM,eAAI,CAAC,OAAO,EAAE,EAAG,GAAE,CAAf;AAEV,cAAY,CAAL,CAAF,EAAE,GAAC,EAAD,CAAK,IAAO,CAAF,EAAE,GAAC,EAAD,CAAP,CAAa,IACb,CAAL,CAAF,EAAE,GAAC,EAAD,CAAK,IAAO,CAAF,EAAE,GAAC,EAAD,CAAP,CADZ;AAEG,4BAAG,CAAC,GAAG;;;;iBAAG;;;;gBAAP;AAEN,oBAAY,CAAL,CAAF,EAAE,GAAC,EAAD,CAAK,IAAO,CAAF,EAAE,GAAC,EAAD,CAAP,CAAa,IACb,CAAL,CAAF,EAAE,GAAC,EAAD,CAAK,IAAO,CAAF,EAAE,GAAC,EAAD,CAAP,CADZ;AAEG,4BAAG,CAAC,GAAG;;;;iBAAG;;;;gBAAP;AAEN,oBAAY,CAAL,CAAF,EAAE,GAAC,EAAD,CAAK,IAAO,CAAF,EAAE,GAAC,EAAD,CAAP,CAAa,IACb,CAAL,CAAF,EAAE,GAAC,EAAD,CAAK,IAAO,CAAF,EAAE,GAAC,EAAD,CAAP,CADZ,EAEG,gBAAG,CAAC,GAAG;;;;eAAG;;;;cAAP,CAFN;AAIA,cAAG,GAAG,KAAE,CAAR,EAAe,aAAf;AACA,2BAAM,CAAC;;;;eAAO,EAAE,EAAV;AAEN,mBAAU,iBAAI,CAAC,MAAD;AAEd,cAAG,iBAAY,OAAO,CAAC,IAAI,OAAQ;;;;cAAb,CAAiB,GAAE,CAAzC;AAEE,iBAAM,eAAI,CAAC,OAAQ,GAAW,MAAD,OAAnB;AACV,qBAAU,eAAI,CAAC,OAAQ,EAAG,EAAG,GAAE,CAAjB;WAHhB;AAMA,cAAM,CAAF,EAAE,GAAC,EAAD,CAAK,IACL,CAAF,EAAE,GAAC,EAAD,CADN;AAEG,4BAAG,CAAC,OAAO;;;;iBAAG;;;;gBAAX;AAEN,oBAAM,CAAF,EAAE,GAAC,EAAD,CAAK,IACL,CAAF,EAAE,GAAC,EAAD,CADN;AAEG,4BAAG,CAAC,OAAO;;;;iBAAG;;;;gBAAX;AAEN,oBAAM,CAAF,EAAE,GAAC,EAAD,CAAK,IACL,CAAF,EAAE,GAAC,EAAD,CADN,EAEG,gBAAG,CAAC,OAAO;;;;eAAG;;;;cAAX,CAFN;AAIA,cAAG,GAAG,KAAE,CAAR,EAAe,aAAf;AACA,cAAI,EAAE,GAAC,EAAP,EAAgB,aAAhB;AACA,cAAI,EAAE,GAAC,EAAP,EAAgB,aAAhB;AAEA,cAAI,EAAG,KAAG,EAAV;AAEE,gBAAG,iBAAY,OAAO,CAAC,2BAAc,eAAe,GAAG;;;;gBAAjC,CAAoC,GAAC,CAA3D;AAEE,mBAAM,eAAI,CAAC,GAAG,EAAE,EAAG,GAAE,CAAX;AACV,8BAAG,CAAC,GAAG;;;;mBAAG;;;;kBAAP;AAEH,kBAAI,GAAI,KAAG,CAAX,EAAmB,aAAnB;AACA,kBAAI,EAAG,GAAE,EAAT,EAAkB,aAAlB;AAEA,+BAAM,CAAC;;;;mBAAG,EAAE,EAAN;AAEN,kBAAG,iBAAY,OAAO,CAAC,2BAAc,eAAe,GAAG;;;;kBAAjC,CAAoC,GAAC,CAA3D;AAEE,qBAAM,eAAI,CAAC,GAAG,EAAE,EAAG,GAAE,CAAX;AACV,gCAAG,CAAC,GAAG;;;;qBAAG;;;;oBAAP;AAEH,oBAAG,GAAI,KAAG,CAAV,EAAiB,aAAjB;AACA,iCAAM,CAAC;;;;qBAAG,EAAE,EAAN;AAEN,gCAAG,CAAC,GAAG;;;;qBAAG;;;;oBAAP;AACH,oBAAI,GAAI,KAAG,CAAX,EAAmB,aAAnB;AACA,oBAAI,EAAG,GAAE,EAAT,EAAkB,aAAlB;;AAIA,gCAAG,CAAC,GAAG;;;;qBAAG;;;;oBAAP;AACH,oBAAI,GAAI,KAAG,CAAX,EAAmB,aAAnB;;AAGF,kBAAI,EAAG,GAAE,EAAT,EAAkB,aAAlB;AAEA,uBAAU;aA9BZ;WAkCA,eAAU;AAEZ;AACE,sBAAS,uBAAU,CAAC,GAAG,GAAG,EAAP,CAAW,GAAE,uBAAU,CAAC,GAAG,GAAG,GAAG,CAAV,CAA1C;AADF;AAGE,qBAAU;AAHZ;SAjFF;OAnBF;AAxB0B;AAAM;AA97HF;AAAJ;AAE1B,eAAU,cAAG,CAAC,sBAAS,CAAC,EAAD,EAAK,sBAAS,CAAC,CAAD,CAAxB;AAFa;AAAI;AAirCO;AAAX;AAE1B;AAEA,UAAG,CAAI,gBAAP;AAEE,eAAM,cAAG,CAAC,OAAO,EAAR,CAAY,GAAE,CAAvB;AAEE,+BAAgB,CAAC,OAAO,IAAI;;;;cAAZ;;AAGlB,eAAM,cAAG,CAAC,OAAO,EAAR,CAAY,GAAE,CAAvB;AAEE,+BAAgB,CAAC,OAAO,IAAI;;;;cAAZ;;AAGlB,eAAM,cAAG,CAAC,QAAQ,EAAT,CAAa,GAAE,CAAxB;AAEE,+BAAgB,CAAC,QAAQ,IAAI;;;;cAAb;;AAGlB,eAAM,cAAG,CAAC,SAAS,EAAV,CAAc,GAAE,CAAzB;AAEE,+BAAgB,CAAC,SAAS,IAAI;;;;cAAd;;OAnBpB;AAuBA,UAAG,YAAH;AAEE,aAAI,IAAK,GAAL,CAAU,QAAV,CAAU,EAAd;AAEE,iBAAM,cAAG,CAAQ,qBAAe,CAAC,KAAD,EAAK,EAA5B,CAAgC,GAAE,CAA3C;AAEE,iCAAgB,CAAQ,qBAAe,CAAC,KAAD,EAAY,qBAAe,CAAC,KAAD,EAAK;;;;gBAAvD;;;OANtB;AAWA,eAAU;AAtCgB;AAAW;AAyCF;AAAT;AAE1B;AACA;AAEA;AAoFA,aAAM,cAAG,CAAC,IAAI,EAAL,CAAS,GAAE,CAApB;AAEE,6BAAgB,CAAC,IAAI,QAAQ;;;;YAAb;;AAGlB,aAAM,cAAG,CAAC,QAAQ,EAAT,CAAa,GAAE,CAAxB;AAEE,6BAAgB,CAAC,QAAQ,QAAQ;;;;YAAjB;;AAGlB,aAAM,cAAG,CAAC,IAAI,EAAL,CAAS,GAAE,CAApB;AAEE,6BAAgB,CAAC,IAAI,SAAS;;;;YAAd;;AAGlB,aAAM,cAAG,CAAC,IAAI,EAAL,CAAS,GAAE,CAApB;AAEE,6BAAgB,CAAC,IAAI,OAAO;;;;YAAZ;;AAGlB,aAAM,cAAG,CAAC,IAAI,EAAL,CAAS,GAAE,CAApB;AAEE,6BAAgB,CAAC,IAAI,OAAO;;;;YAAZ;;AAGlB,UAAG,YAAH;AAEE,aAAI,IAAK,GAAL,CAAU,QAAV,CAAU,EAAd;AAEE,iBAAM,cAAG,CAAQ,qBAAe,CAAC,KAAD,EAAK,EAA5B,CAAgC,GAAE,CAA3C;AAEE,iCAAgB,CAAQ,qBAAe,CAAC,KAAD,EAAY,qBAAe,CAAC,KAAD,EAAK;;;;gBAAvD;;;AAIpB,cAAO;AAkBP,iBAAS,QAAW,OAAC,EAAD,yBAApB;AAAI;AAEF,eAAM,cAAS,CAAC,GAAI,CAAL;AACf,cAAO,EAAD,aAAK,GAAE,GAAb;AACE,kBAAO,GAA4B,GAAtB,IAAF,GAAO,qBAAQ,CAAK,EAAD,aAAJ,CAAT,GAAmB,GAAD;AAEnC,sBAAO,GAAI,GAAE,EAAF;;AAIf,aAAM;OAtCR;AAyCA,eAAU;AA3JgB;AAAS;AArtCO;AAAhB;AAE1B;AAEA,UAAK,SAAI,CAAC,KAAK,UAAN;AACT,UAAG,CAAE,GAAE,CAAP;AAEE,iBAAU;AACV,yBAAM,CAAC,KAAK,EAAS,IAAD,OAAd;AACN,iBAAQ,eAAI,CAAC,WAAK,EAAE,CAAC,GAAC,CAAV,CAAoB,GAAL,IAAF,GAAS,eAAI,CAAC,WAAK,EAAS,UAAD,OAAd,CAAtC;OAGA,eAAU;AAZc;AAAgB;AAukIpC,iBAAG;AACF,kBAAG;AACJ,iBAAI;AACL,gBAAK;AACH,kBAAG;AACL,gBAAG;AACA,mBAAG;AAfsB;AAAP;AAkB1B;AACA;AACA;AACA;AACA;AAAG;AAAG;AAAG;AACT;AAAU;AAAS;AACnB;AACA;AAAM;AAAM;AACZ;AACA;AAAG;AACH;AAAO;AACP;AAAI;AACJ;AAAG;AAOH,UAAK;AAGL,kBAAa;AACb,iBAAY;AACZ,cAAS;AACT,cAAS;AACT,cAAS;AACT,gBAAW;AACX,cAAS;AAMT,kBAAM,cAAG,CAAC,OAAO,GAAR,wBAAT;AAEA,UAAG,EAAG,KAAG,CAAT;AAEM,UAAJ,IAAG;AACH,YAAO,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAE,GAAlB;AAEE,kBAAS;AACL,YAAJ,IAAG;SAHL;AAMA,eAAU,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAE,GAArB,EACM,EAAJ,IAAG;AAEL,oBAAM,yBAAN;AACA,cAAO;AAEP,mBAAY;AAEZ,YAAK;AAEL,eAAe,CAAJ,CAAH,EAAG,GAAE,CAAF,CAAI,IAAU,GAAD,OAAT,CAAkE,IAAjC,CAAT,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAG,GAAH,CAAjB,IAAkC,CAAH,EAAG,IAAU,GAAD,OAAT,CAAR,IAAoC,CAAP,cAAG,CAAC,CAAD,CAAI,IAAyB,CAAR,CAAT,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAG,GAAH,CAAQ,IAAiB,CAAT,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAG,GAAH,CAAjB,CAAzB,CAA7F;AAEE,cAAO,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAE,GAAlB,EACM,CAAJ,IAAG,CADL;AAGA,cAAQ,CAAJ,GAAI,KAAE,CAAF,CAAK,IAAiB,CAAT,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAE,GAAF,CAA9B;AACM,cAAJ,IAAG;AAEH,gBAAI,GAAJ,IAAG;AAEL,6BAAe,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,SAAf;AACI,YAAJ,IAAG;AAEH,cAAW,CAAJ,CAAH,EAAG,GAAE,CAAF,CAAI,IAAU,GAAD,OAAT,CAAwC,IAAP,CAAT,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAE,GAAF,CAAjB,IAA4B,cAAG,CAAC,CAAD,CAA1D;AAEE,+BAAe,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,SAAf;AACI,cAAJ,IAAG;WAHL;;AAOF,YAAQ,CAAJ,GAAI,GAAE,CAAF,CAAK,IAAc,CAAT,QAAS,KAAE,GAAF,CAA3B,EACM,GAAJ,IAAG,CADL;AAGA,kBAAW,eAAI,CAAC,IAAI,GAAG,GAAR;AAIf,wBAAG,CAAC,iBAAY,iBAAiB,CAAC,GAAD,EAAM;;;;aAAG;;;;;YAAvC;AACH,wBAAG,CAAC,iBAAY,iBAAiB,CAAC,OAAD,EAAU;;;;aAAG;;;;;YAA3C;AAEH,cAAO;AACP,YAAG,iBAAY,OAAO,CAAC,QAAQ;;;;YAAT,CAAtB,EACE,QAAS,CADX;AAGA,cAAO;AACP,YAAG,iBAAY,OAAO,CAAC,IAAI;;;;YAAL,CAAtB,EACE,QAAS,CADX;AAGA,YAAU,CAAN,KAAM,KAAE,CAAF,CAAK,IAAW,CAAN,KAAM,KAAE,CAAF,CAA1B;AAEE,cAAG,KAAH;AACE,uBAAY,EAAG,IAAG,EAAH;AAEf,2BAAY,EAAG,GAAE,EAAF;;AAIjB,cAAG,iBAAY,OAAO,CAAC,QAAQ;;;;cAAT,CAAc,IAAI,iBAAY,OAAO,CAAC,IAAI;;;;cAAL,CAA3D;AAEE,gBAAG,KAAH;AACC,yBAAY,GAAI,IAAG,GAAH;AAEhB,6BAAY,GAAI,GAAE,GAAF;;AAIjB,gBAAG,KAAH;AACC,yBAAa,uBAAU,CAAC,QAAQ,GAAT,CAAa,IAAE,CAAF;AAEpC,6BAAa,uBAAU,CAAC,QAAQ,GAAT,CAAa,GAAC,CAAD;;;AAGzC,gBAAS;OAjFX;AAoFA,cAAS;AAGT,kBAAM,cAAG,CAAC,QAAS,GAAV,wBAAT;AACA,UAAI,EAAG,KAAG,CAAV;AAEM,UAAJ,IAAG;AACH,YAAO,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAE,GAAlB;AAEG,kBAAS;AACL,YAAJ,IAAG;SAHN;AAMA,mBAAY;AAEZ,eAAc,CAAJ,CAAH,EAAG,GAAE,CAAF,CAAI,IAAU,GAAD,OAAT,CAAgB,IAAiB,CAAT,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAC,GAAD,CAA/C,EAA4D,EAAJ,IAAG;AAC3D,oBAAM,yBAAN;AACA,cAAO;AACP,YAAK;AAEL,eAAc,CAAJ,CAAH,EAAG,GAAE,CAAF,CAAI,IAAU,GAAD,OAAT,CAAiE,IAAhC,CAAT,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAG,GAAH,CAAjB,IAAiC,CAAH,EAAG,IAAU,GAAD,OAAT,CAAR,IAAoC,CAAP,cAAG,CAAC,CAAD,CAAI,IAAyB,CAAR,CAAT,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAG,GAAH,CAAQ,IAAiB,CAAT,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAG,GAAH,CAAjB,CAAzB,CAA3F;AAEE,cAAM,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAE,GAAjB,EACM,CAAJ,IAAG,CADL;AAGA,cAAQ,CAAJ,GAAI,KAAE,CAAF,CAAK,IAAiB,CAAT,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAE,GAAF,CAA9B;AACM,cAAJ,IAAG;AAEH,gBAAI,GAAJ,IAAG;AAEL,6BAAe,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,SAAf;AACI,YAAJ,IAAG;;AAGL,YAAQ,CAAJ,GAAI,GAAE,CAAF,CAAK,IAAc,CAAT,QAAS,KAAE,GAAF,CAA3B,EACM,GAAJ,IAAG,CADL;AAGA,kBAAW,eAAI,CAAC,IAAK,GAAI,GAAV;AAEf,wBAAG,CAAC,iBAAY,iBAAiB,CAAC,GAAD,EAAM;;;;aAAG;;;;;YAAvC;AACH,wBAAG,CAAC,iBAAY,iBAAiB,CAAC,OAAD,EAAU;;;;aAAG;;;;;YAA3C;AACH,YAAG,iBAAY,OAAO,CAAC,QAAQ;;;;YAAT,CAAtB,EAAyC,QAAS,CAAlD;AACA,YAAG,iBAAY,OAAO,CAAC,IAAI;;;;YAAL,CAAtB,EAAqC,QAAS,CAA9C;AAEA,YAAU,CAAN,KAAM,KAAE,CAAF,CAAK,IAAW,CAAN,KAAM,KAAE,CAAF,CAA1B;AAEE,cAAG,KAAH;AACC,wBAAa,EAAG,IAAG,EAAH;AAEhB,4BAAa,EAAG,GAAE,EAAF;;AAKjB,cAAG,iBAAY,OAAO,CAAC,QAAS;;;;cAAV,CAAe,IAAI,iBAAY,OAAO,CAAC,IAAK;;;;cAAN,CAA5D;AAEE,gBAAG,KAAH;AACC,0BAAa,GAAI,IAAG,GAAH;AAEjB,8BAAa,GAAI,GAAE,GAAF;;AAIlB,gBAAG,KAAH;AACE,0BAAc,uBAAU,CAAC,QAAQ,GAAT,CAAa,IAAE,CAAF;AAErC,8BAAc,uBAAU,CAAC,QAAQ,GAAT,CAAa,GAAC,CAAD;;;AAI3C,gBAAS;OAlEX;AAqEA,kBAAM,cAAG,CAAC,SAAU,GAAX,wBAAT;AAEA,UAAI,EAAG,KAAG,CAAV;AAEM,UAAJ,IAAG;AACH,eAAU,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAE,GAArB,EACM,EAAJ,IAAG;AACL,oBAAM,yBAAN;AACA,cAAO;AAEP,mBAAY;AACZ,YAAK;AAEL,eAAmB,CAAT,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAG,GAAH,CAAgC,IAAhB,CAAH,EAAG,IAAU,GAAD,OAAT,CAAR,IAAoC,CAAP,cAAG,CAAC,CAAD,CAAI,IAAyB,CAAR,CAAT,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAG,GAAH,CAAQ,IAAiB,CAAT,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAG,GAAH,CAAjB,CAAzB,CAA/D;AAEE,cAAO,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAE,GAAlB,EACM,CAAJ,IAAG,CADL;AAGA,cAAQ,CAAJ,GAAI,KAAE,CAAF,CAAK,IAAiB,CAAT,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAE,GAAF,CAA9B;AACM,cAAJ,IAAG;AAEH,gBAAI,GAAJ,IAAG;AAEL,6BAAe,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,SAAf;AACI,YAAJ,IAAG;;AAGL,YAAQ,CAAJ,GAAI,GAAE,CAAF,CAAK,IAAc,CAAT,QAAS,KAAE,GAAF,CAA3B,EACM,GAAJ,IAAG,CADL;AAGA,kBAAW,eAAI,CAAC,IAAK,GAAI,GAAV;AACf,gBAAS;OA7BX;AAgCA,UAAI,KAAJ;AAEE,YAAG,cAAG,CAAC,OAAQ,GAAT,CAAc,KAAE,CAAtB,EACE,QAAS,KADX;AAEA,YAAG,cAAG,CAAC,QAAS,GAAV,CAAe,KAAE,CAAvB,EACE,QAAS,KADX;OAJF;AAQA,UAAI,cAAG,CAAC,MAAO,GAAR,CAAa,KAAG,CAAvB,EACE,IAAG,KAAM,IAAG,KAAZ;AAEE,iBAAW,SAAU,IAAG,QAAH;AACrB;OAJJ;AAOA,UAAI,cAAG,CAAC,OAAQ,GAAT,CAAc,KAAG,CAAxB,EACE,IAAG,KAAM,IAAI,KAAb;AAEE,iBAAW,SAAU,IAAI,QAAJ;AACrB;OAJJ;AAOA,UAA4B,CAAN,CAAjB,cAAG,CAAC,OAAQ,GAAT,CAAc,KAAG,CAAH,CAAM,IAAK,QAAL,CAAgB,IACf,CAAN,CAAlB,cAAG,CAAC,QAAS,GAAV,CAAe,KAAG,CAAH,CAAM,IAAK,SAAL,CAD7B;AAGE,iBAAW;AACX;OAJF;AAOA,WAAM;AACN,WAAM;AAEN,aAAa,CAAJ,GAAI,KAAE,EAAF,CAAM,IAAQ,CAAJ,GAAI,KAAE,EAAF,CAAR;AAEnB,iBAAY;AAEZ,aAAM,CAAI,IAAK,IAAI,QAAnB;AAEU,gCAAH,IAAI,EAAG,GAAE,CAAF,IAAJ;AACR,YADQ,IACR;AAEI,qBAAY,EAAG,IAAU,GAAD,OAAT;AACf,cAAG,QAAH;AAEM,cAAJ,IAAG;AACC,cAAJ,IAAG;WAHL;SAMJ,UAVQ,IAUR;AAEI,oBAAS;AACL,YAAJ,IAAG;SAEP,UAfQ,IAeR;AAEQ,YAAJ,IAAG;SAEP,UAnBQ,IAmBR;AAEI;AACM,cAAJ,IAAG;WADL,QAE6B,EAAf,CAAJ,CAAH,EAAG,GAAE,CAAF,CAAI,GAAS,GAAD,OAAR,CAAe,IAAgB,CAAT,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAG,OAAH,CAAhB,CAF7B;AAGA,uBAAc,GAAD,OAAM,GAAE,EAAF,uBAAnB;AACI,YAAJ,IAAO;AACP,qBAAY,YAAO,CAAC,eAAI,CAAC,IAAI,GAAU,GAAD,OAAd,EAAqB,eAAI,CAAC,IAAK,GAAW,GAAD,OAAhB,CAA9B;AAEnB,iBAAW,CAAJ,GAAI,IAAG,CAAH,CAAM,IAAI,CAAI,QAAzB;AAEK,cAAJ,IAAG;AACC,eAAJ,IAAG;AACH,uBAAY,YAAO,CAAC,eAAI,CAAC,IAAI,GAAU,GAAD,OAAd,EAAqB,eAAI,CAAC,IAAK,GAAW,GAAD,OAAhB,CAA9B;;AAErB,cAAG,QAAH;AAEE,wBAAa,GAAD,OAAK,GAAC,CAAD,uBAAjB;AACA,wBAAa,GAAD,OAAK,GAAC,CAAD,uBAAjB;WAHF;;AAQA,cAAO,CAAH,EAAG,IAAU,GAAD,OAAT,CAAgB,IAAQ,CAAH,EAAG,IAAU,GAAD,OAAT,CAA/B;AACE,uBAAe,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,CAAS,KAAK,aAAH,IAAI,EAAG,GAAE,CAAF,IAAJ,CAAL;AAExB,2BAAY;AAEd,cAAG,QAAH;AAEM,cAAJ,IAAG;AACC,cAAJ,IAAG;WAHL;;AAQJ,eAAY,CAAH,EAAG,GAAS,GAAD,OAAR,CAAe,IAAQ,CAAH,EAAG,GAAS,GAAD,OAAR,CAAR;;AAG5B,UAAG,OAAH;AACE,iBAAW,CAAI;AAEf,qBAAW;AAxVa;AAAO;AAnLS;AAAhB;AAE1B;AACA;AAEA,eAAU;AACV,UAAK;AACL,eAAS,QAAW,OAAC,CAAD,yBAApB;AAAI;AAEF,YAAG,CAAC,QAAC,KAAD,CAAI,KAAE,2BAAc,iBAAxB;AACE,mBAAU,MAAO,GAAE,GAAF;AACjB,kBAAG,CAAC,QAAC,KAAD,CAAI,KAAG,2BAAc,kBAAzB,EACE,SAAU,MAAO,GAAE,CAAC,QAAC,KAAD,CADtB;;AAXsB;AAAgB;AAnIE;AAAlB;AAE1B;AAAE;AAAE;AAAE;AAEN,UAAK;AACL,UAAK;AACL,UAAK;AAIL,UAAK;AAGL,aAAO,CAAE,IAAU,EAAD,OAAlB;AAEE,YAAI,EAAE,QAAC,KAAD,CAAI,KAAE,GAAZ,EACM,CAAJ,IAAG,CADL;AAGA,YAAI,EAAE,QAAC,KAAD,CAAI,KAAE,GAAZ,EACM,CAAJ,IAAG,CADL;AAGA,YAAU,CAAN,EAAE,QAAC,KAAD,CAAI,KAAE,GAAF,CAAO,IAAO,CAAF,CAAE,KAAE,CAAF,CAAxB;AAEE,cAAK;AACL;SAHF;AAMI,SAAJ,IAAG;;AAGL,eAAU;AA9BgB;AAAkB;AA7nFJ;AAAd;AAE1B,eAAU,uBAAkB,CAAC,OAAQ,qBAAT;AAFF;AAAc;AAKA;AAAd;AAE1B,eAAU,qBAAe,CAAC,SAAD;AAFC;AAAc;AA7BI;AAAlB;AAE1B;AAEA,eAAU,CAAC;AACX,eAAY,QAAiB,kBAAC,OAAD,uBAA7B;AAAI;AACF,YAAG,qBAAQ,CAAC,MAAO,OAAO,CAAC,CAAD,CAAf,CAAX;AAEE,cAAuB,CAAnB,cAAG,CAAC,OAAQ,KAAT,CAAgB,GAAE,CAAF,CAAkJ,IAArH,CAApB,cAAG,CAAC,QAAS,KAAV,CAAiB,GAAE,CAAF,CAAxB,IAAmD,CAAlB,cAAG,CAAC,MAAO,KAAR,CAAe,GAAE,CAAF,CAAtB,IAAkD,CAAnB,cAAG,CAAC,OAAQ,KAAT,CAAgB,GAAE,CAAF,CAAvB,IAAoD,CAApB,cAAG,CAAC,QAAS,KAAV,CAAiB,GAAE,CAAF,CAAxB,IAAoD,CAAnB,cAAG,CAAC,OAAQ,KAAT,CAAgB,GAAE,CAAF,CAAvB,IAAoD,CAApB,cAAG,CAAC,QAAS,KAAV,CAAiB,GAAE,CAAF,CAAjM;AAEE,gBAAI,KAAM,KAAE,OAAO,CAAC,CAAD,CAAnB;AAEE,uBAAU;AACV;aAHF;;AAQA,qBAAU;AACV;;SAbJ;;AANwB;AAAkB;AAkYL;AAAb;AAE1B;AAsBA,eAAU;AACV,UAAK;AACL,UAAG,CAAY,CAAC,CAAD,SAAf,EACE,aADF;AAGA,UAAe,+BAAH,eAAT,CAAC,QAAQ,CAAZ;AACE,iBAAmB,OAAT,CAAC,SAAW,+BAAH;AAEnB,qBAAU,kBAAa,CAAC,CAAC,QAAF;AAhCC;AAAa;AAxBD;AAAZ;AAE1B;AAEA,eAAU;AACV,UAAK;AACL,UAAG,CAAY,CAAC,CAAD,SAAf,EACE,aADF;AAGA,UAAc,+BAAH,eAAR,CAAC,OAAO,CAAX;AACE,iBAAkB,OAAR,CAAC,QAAU,+BAAH;AAElB,qBAAU,iBAAY,CAAC,CAAC,OAAF;AAZE;AAAY;AAnmCJ;AAAP;AAE3B,eAAU,iBAAY,UAAS,CAAC,SAAsB,gDAAe,cAAY,qCAAZ,EAAmB,CAAzD;AAFJ;AAAO;AAKA;AAAP;AA+B3B,eAAU;AACV,UAAkC,CAAb,CAAL,qCAAK,IAAG,QAAH,CAAa,IAAyB,CAAT,yCAAS,IAAG,QAAH,CAAzB,CAAuC,IAAmC,CAAb,CAAN,sCAAM,IAAG,QAAH,CAAa,IAAqB,CAAL,qCAAK,IAAG,QAAH,CAArB,CAA5G;AAGF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;;AAMA;AACA;;AAjD6B;AAAO;AAhGE;AAAV;AAqF1B,eAAU;AACV,UAAY,SAAD,QAAX,EACE,SAAS,CAAC,gBAAW,MAAZ,CADX;AAtF0B;AAAU;AAhRF;AAAR;AAoG1B,eAAU;AApGgB;AAAQ;AA+HI;;AAAZ;AAE1B;AACA;AACA;AAE0B;AAAjB;AAEP;AAEA,iBAAU;AACV,cAAK,EAAL;AAEA,aAAI,IAAK,GAAL,CAAU,OAAV,CAAU,EAAd;AAEE,cAAG,EAAG,KAAE,qBAAe,CAAC,KAAD,CAAvB;AAEE,kBAAK,4BAAsB,CAAC,KAAD,CAA3B;AACA,qBAAU;AACV;WAJF;;AATK;AAAiB;AAmB1B,eAAU;AACV,eAAS,QAAW,OAAC,MAAD,yBAApB;AAAI;AAEF,aAAM,cAAS,CAAC,OAAQ,CAAT;AAEf,YAAG,EAAG,GAAE,GAAR;AACE,mBAAU,MAAc,GAAL,KAAF,GAAS,qBAAQ,CAAK,EAAD,cAAK,CAAT,CAAV;;AAGxB,gBAAO;AACP,cAAG,iBAAiB,CAAC,GAAI;;;;cAAL,CAApB;AACE,qBAAU,MAAO,GAAE,GAAF;AAEjB,yBAAU,MAAO,GAAE,EAAF;;;AAtCG;AAAY;AA2CE;AAAd;AAE1B;AACA;AACA;AACA;AACA;AACA;AAEU,OAAD,oBAAC,EAAU,MAAD,OAAV;AAKT,UAAK;AAEL,UAAK;AACL,UAAK;AACL,aAAM,CAAE,IAAU,MAAD,OAAjB;AAEE,YAAG,MAAM,QAAC,CAAE,GAAE,CAAF,IAAH,CAAQ,KAAE,IAAnB;AAEE,cAAG,CAAE,GAAS,MAAD,OAAb;AAEE,gBAAG,MAAM,QAAG,CAAF,CAAE,GAAE,CAAF,CAAI,GAAE,CAAF,IAAP,CAAY,KAAE,IAAvB;AAEE,kBAAK,CAAE,GAAE,CAAF;AACP,eAAC,iBAAD,EAAE,MAAM,IAAP;AACG,eAAJ,IAAO;aAEJ,UAAG,MAAM,QAAG,CAAF,CAAE,GAAE,CAAF,CAAI,GAAE,CAAF,IAAP,CAAY,KAAE,GAAvB;AAEH,kBAAK,CAAE,GAAE,CAAF;AACP,eAAC,iBAAD,EAAE,MAAM,GAAP;AACG,eAAJ,IAAO;aAEJ,UAAG,MAAM,QAAG,CAAF,CAAE,GAAE,CAAF,CAAI,GAAE,CAAF,IAAP,CAAY,KAAE,GAAvB;AAEH,kBAAK,CAAE,GAAE,CAAF;AACP,eAAC,iBAAD,EAAE,MAAM,IAAP;AACG,eAAJ,IAAO;aAEJ,UAAG,MAAM,QAAG,CAAF,CAAE,GAAE,CAAF,CAAI,GAAE,CAAF,IAAP,CAAY,KAAE,GAAvB;AAEH,kBAAK,CAAE,GAAE,CAAF;AACP,eAAC,iBAAD,EAAE,MAAM,IAAP;AACG,eAAJ,IAAO;aAEJ,UAAG,MAAM,QAAG,CAAF,CAAE,GAAE,CAAF,CAAI,GAAE,CAAF,IAAP,CAAY,KAAE,GAAvB;AAEH,kBAAK,CAAE,GAAE,CAAF;AACP,eAAC,iBAAD,EAAE,MAAM,IAAP;AACG,eAAJ,IAAO;aAEJ,UAAG,MAAM,QAAG,CAAF,CAAE,GAAE,CAAF,CAAI,GAAE,CAAF,IAAP,CAAY,KAAE,GAAvB;AAEH,kBAAK,CAAE,GAAE,CAAF;AACP,eAAC,iBAAD,EAAE,MAAM,IAAP;AACG,eAAJ,IAAO;aAEJ,UAAG,MAAM,QAAG,CAAF,CAAE,GAAE,CAAF,CAAI,GAAE,CAAF,IAAP,CAAY,KAAE,GAAvB;AAEH,kBAAK,CAAE,GAAE,CAAF;AACP,eAAC,iBAAD,EAAE,MAAM,IAAP;AACG,eAAJ,IAAO;aAEJ,UAAG,MAAM,QAAG,CAAF,CAAE,GAAE,CAAF,CAAI,GAAE,CAAF,IAAP,CAAY,KAAE,GAAvB;AAEH,kBAAK,CAAE,GAAE,CAAF;AACP,eAAC,iBAAD,EAAE,MAAM,GAAP;AACG,eAAJ,IAAO;aAEJ,UAAsB,CAAlB,MAAM,QAAG,CAAF,CAAE,GAAE,CAAF,CAAI,GAAE,CAAF,IAAP,CAAY,KAAE,GAAF,CAAyC,IAAnB,CAAJ,CAAN,CAAM,GAAF,CAAF,GAAM,CAAF,CAAI,IAAU,MAAD,OAAT,CAAf,IAAsC,wBAAW,CAAC,GAAI,GAAS,eAAI,CAAC,OAAQ,CAAE,GAAE,CAAF,CAAK,CAAhB,CAAb,CAAkC;;;;gBAAvC,CAA9E;AAEC,eAAJ,IAAO;AACP,kBAAK,CAAE,GAAE,CAAF;AAEP,eAAC,iBAAD,EAAE,MAAS,oBAAC,CAAD,CAAV;aAOD,YAAM,sBAAS,QAAC,aAAS,CAAC,8BAA+B,mBAAS,GAAR,qBAAQ,CAAC,CAAD,CAAT,CAAhC,CAAT;WAGlB,YAAM,sBAAS,QAAC,YAAM,CAAC,0BAAD,CAAN;;AAIlB,cAAK,CAAE,GAAE,CAAF;AACP,WAAC,iBAAD,EAAE,MAAM,MAAM,QAAC,CAAE,GAAE,CAAF,IAAH,CAAb;AACG,WAAJ,IAAG;;AAED,SAAJ,IAAG;;AAEK,OAAD,oBAAC,EAAG,CAAE,GAAE,CAAR;AAET,eAAU;AAnGgB;AAAc;AA+uBD;AAAb;AAuK1B,eAAU;AAvKgB;AAAa;AAzD1B,yBAA0B,IAAI,IAAI,IAAI,KAAG,IAAI,IAAI,IAAI,IAAI,IAAI,GAA7D;AAF6B;AAAhB;AAI1B;AACA;AAAQ;AACR;AAAU;AACV;AAAK;AAAW;AAChB;AAEA,YAAO;AACP,kBAAa;AACb,eAAU,CAAC;AACX,iBAAY;AACZ,kBAAa;AAEb,WAAI,IAAK,GAAL,CAAgB,QAAhB,CAAgB,EAApB;AAEE,oBAAa,aAAa,CAAC,KAAD;AAC1B,YAAK,uBAAW,QAAC;AACjB;AACE,2BAAY,MAAM,CAAC,UAAW,OAAQ,EAzhDoF,KAyhDxG;AAClB,mBAAU,CAAC,SAAC;AAEZ,cAAI,MAAO,KAAG,EAAd;AAEE,6BAAY,MAAM,CAAC,UAAW,OAAQ,EA9hDkF,KA8hDtG;AAClB,qBAAU,CAAC,SAAC;WAHd;AAKA,cAAG,CAAI,sBAAuB,IAAc,CAAV,SAAU,KAAG,2BAAc,iBAAjB,CAA5C;AAEE,gBAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAY,CAAP,MAAO,KAAE,MAAF,CAA5B;AAEE,kBAAI,MAAO,GAAE,QAAb;AAEE,sBAAO;AACP,2BAAY;eAHd;;AAQA,kBAAI,MAAO,GAAE,SAAb;AAEE,4BAAa;AACb,4BAAa;eAHf;;WAZJ;AATF;AA6BE,WAAE,eAAF,CAAE;AA7BJ;;AAiCF,UAAG,GAAI,KAAG,MAAV;AACE,iBAAU;AAEV,qBAAU;AAxDc;AAAgB;AA7lD9B;AA4MU;;AAEN;AAGJ;AAmwM2B;AAltML;AAktMJ;AAE9B,eAAU;AAFoB;AAAS;AAghBC;AAAV;AAE9B,eAAU,cAAS,CAAwB,kCAAxB,CAKnB,IAJG,cAAS,CAAwB,iCAAxB,CAAZ,IACG,cAAS,CAAwB,oCAAxB,CAAZ,IACG,cAAS,CAAwB,uCAAxB,CAAZ,IACG,cAAS,CAAwB,4CAAxB,CAAZ,IACG,cAAS,CAAwB,oCAAxB,CAAZ;AAP8B;AAAU;AAphBJ;;AATE;AAEtC,6CAAkB;AAGpB;AALwC;AALD;AAAP;AAE9B,eAAU;AAFoB;AAAO;AA3BG;AAExC,YAAM,sBAAS,QAAC,YAAM,CAAC,yBAAD,CAAN;AAFwB;AAND;AAAT;AAE9B,eAAU;AACV,YAAM,sBAAS,QAAC,YAAM,CAAC,yBAAD,CAAN;AAHc;AAAS;AAhBC;AAExC,YAAM,sBAAS,QAAC,YAAM,CAAC,yBAAD,CAAN;AAFwB;AAND;AAAT;AAE9B,eAAU;AACV,YAAM,sBAAS,QAAC,YAAM,CAAC,yBAAD,CAAN;AAHc;AAAS;AAiBS;AAEhD,YAAM,sBAAS,QAAC,YAAM,CAAC,iCAAD,CAAN;AAFgC;AAND;AAAjB;AAE9B,eAAU;AACV,YAAM,sBAAS,QAAC,YAAM,CAAC,iCAAD,CAAN;AAHc;AAAiB;AA4BV;AAErC,YAAM,sBAAS,QAAC,YAAM,CAAC,sBAAD,CAAN;AAFqB;AAND;AAAN;AAE9B,eAAU;AACV,YAAM,sBAAS,QAAC,YAAM,CAAC,sBAAD,CAAN;AAHc;AAAM;AAiBE;AAEtC,YAAM,sBAAS,QAAC,YAAM,CAAC,uBAAD,CAAN;AAFsB;AAND;AAAP;AAE9B,eAAU;AACV,YAAM,sBAAS,QAAC,YAAM,CAAC,uBAAD,CAAN;AAHc;AAAO;AAzuMrB;AAsRH;AAAN;AAEP,aAAY,OAAF,CAAE,KAAI,EAAJ;AAFL;AAAM;AAKA;AAAN;AAEP,aAAU,CAAE,GAAI,MAAJ;AAFL;AAAM;AAKE;AAAR;AAEP,aAAU,EAAG,GAAM,CAAH,EAAG,IAAI,CAAJ,CAAN;AAFN;AAAQ;AAKA;AAAR;AAEP,aAAU,EAAG,GAAM,CAAH,EAAG,IAAI,EAAJ,CAAN;AAFN;AAAQ;AAOQ;AAAhB;AAEP,UAAM,KAAN,GAAe;AACf,UAAM,KAAN,GAAe;AAHR;AAAgB;AA3CC;AAAjB;AAMP,aAAU,KAAK;AANR;AAAiB;AAUJ;AAAb;AAMP,aAAU,iBAAY,YAAY,CAAC,KAAK,KAAN;AAN3B;AAAa;AA9KpB;AACA;AACA;AACA;AAIA;AACA;AA1cF,mBA4cc;AA0FM,+BAAG;AACH,+BAAG;AAGE,wDAAE,EAAF;AAAvB,6BAAmE,IAAI,IAAI,IAAI,IAAI,IAChC,KAAK,KAAK,KAAK,KACf,KAAK,KAAK,KAAK,KACf,KAAK,KAAK,KAAK,KACf,KAAK,KAAK,KAAK,KACf,KAAK,KAAK,KAAK,KACf,KAAK,KAAK,KAAK,KACf,KAAK,KAAK,KAAK,KACf,KAAK,KAAK,KAAK,KACf,KAAK,KAAK,KAAK,KACf,KAAK,KAAK,KAAK,KACf,KAAK,KAAK,KAAK,KACf,KAAK,KAAK,KAAK,KACf,MAAM,KAAK,KAAK,KAChB,KAAK,KAAK,KAAK,MACf,KAAK,KAAK,KAAK,KACf,IAAI,KAAK,MAAM,KACf,IAAK,KAAK,KAAK,KACf,KAAK,KAAK,KAAK,KAAK,KACpB,KAAK,KAAK,KAAK,KACf,KAAK,KAAK,KAAK,KACzD,KAAK,KAAK,KAAK,KAAK,KAAK,IArBlC;AAuBuB,wDAAE,EAAF;AAAvB,6BAA4D,QAAQ,OAAO,OAAO,SAAS,SAChD,WAAW,WAAW,SAAS,UAC/B,WAAW,WAAW,SAAS,UAC/B,WAAW,WAAW,SAAS,UAC/B,WAAW,WAAW,SAAS,UAC/B,WAAW,WAAW,SAAS,UAC/B,WAAW,WAAW,SAAS,UAC/B,WAAW,WAAW,SAAS,UAC/B,WAAW,WAAW,SAAS,UAC/B,WAAW,WAAW,SAAS,UAC/B,WAAW,WAAW,SAAS,UAC/B,WAAW,WAAW,WAAW,WACjC,UAAU,UAAU,SAAS,QAC7B,SAAS,UAAU,UAAU,WAC7B,WAAW,WAAW,UACtB,UAAU,SAAS,SAAS,UAC5B,UAAU,QAAQ,SAClB,WAAW,SAAS,QACpB,QAAQ,WAAW,SAAS,WAC5B,UAAU,QAAQ,WAAW,SAC7B,WAAY,WAAY,WAAW,UACnC,UAAU,WAAW,WAAW,QAChC,UAAU,UAAU,SACpB,UAAU,SAAS,QAvB9D;AAyBsB,wDAAE,CAAF;AAAtB,6BAAyD,IAAI,KAAI,KAAG,KAAI,KAAI,KAAI,IAAhF;AAE6B,+DAAE,CAAF;AAA7B,oCAAkE,UAAS,UAAS,UAAS,UAAS,UAAS,UAAS,SAAxH;AAQA;AA4pNyB;AACR;AAEf,wBAAU,IAAI,CAAC,IAAqC,GAA9B,gBAAU,sBAAC,EAAb,GAAkC,SAAxC;AAFC;AAKjB,aAAO,CAAC,KAAM,0BAAP;AACP,aAAO,CAAC,KAAM,wBAAP;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,UAAW,yBAAZ;AACP,aAAO,CAAC,UAAW,yBAAZ;AACP,aAAO,CAAC,OAAQ,kBAAT;AACP,aAAO,CAAC,QAAS,uBAAV;AACP,aAAO,CAAC,QAAS,6BAAV;AACP,aAAO,CAAC,QAAS,4BAAV;AACP,aAAO,CAAC,QAAS,yBAAV;AACP,aAAO,CAAC,QAAS,yBAAV;AACP,aAAO,CAAC,QAAS,wBAAV;AACP,aAAO,CAAC,KAAM,sBAAP;AACP,aAAO,CAAC,WAAY,0BAAb;AACP,aAAO,CAAC,MAAO,yBAAR;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,QAAS,sBAAV;AACP,aAAO,CAAC,OAAQ,wBAAT;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,MAAO,iBAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,MAAO,iBAAR;AACP,aAAO,CAAC,MAAO,yBAAR;AACP,aAAO,CAAC,MAAO,uBAAR;AACP,aAAO,CAAC,QAAS,uBAAV;AACP,aAAO,CAAC,QAAS,mBAAV;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,oCAAR;AACP,aAAO,CAAC,QAAS,qBAAV;AACP,aAAO,CAAC,KAAM,wBAAP;AACP,aAAO,CAAC,OAAQ,kBAAT;AACP,aAAO,CAAC,SAAU,yBAAX;AACP,aAAO,CAAC,UAAW,sBAAZ;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,4BAAR;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,MAAO,kBAAR;AACP,aAAO,CAAC,OAAQ,yBAAT;AACP,aAAO,CAAC,KAAM,yBAAP;AACP,aAAO,CAAC,KAAM,yBAAP;AACP,aAAO,CAAC,KAAM,yBAAP;AACP,aAAO,CAAC,SAAU,wBAAX;AACP,aAAO,CAAC,OAAQ,kBAAT;AACP,aAAO,CAAC,QAAS,oCAAV;AACP,aAAO,CAAC,WAAY,0BAAb;AACP,aAAO,CAAC,QAAS,2BAAV;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,MAAO,kBAAR;AACP,aAAO,CAAC,OAAQ,kBAAT;AACP,aAAO,CAAC,OAAQ,iBAAT;AACP,aAAO,CAAC,MAAO,oBAAR;AACP,aAAO,CAAC,MAAO,oBAAR;AACP,aAAO,CAAC,MAAO,iBAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,QAAS,0BAAV;AACP,aAAO,CAAC,SAAU,0BAAX;AACP,aAAO,CAAC,OAAQ,0BAAT;AACP,aAAO,CAAC,QAAS,0BAAV;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,OAAQ,0BAAT;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,KAAM,0BAAP;AACP,aAAO,CAAC,MAAO,iBAAR;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,MAAO,iBAAR;AACP,aAAO,CAAC,QAAS,uBAAV;AACP,aAAO,CAAC,SAAU,qBAAX;AACP,aAAO,CAAC,UAAW,qBAAZ;AACP,aAAO,CAAC,SAAU,qBAAX;AACP,aAAO,CAAC,SAAU,qBAAX;AACP,aAAO,CAAC,OAAQ,kBAAT;AACP,aAAO,CAAC,MAAO,iCAAR;AACP,aAAO,CAAC,MAAO,iBAAR;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,oBAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,KAAM,mBAAP;AACP,aAAO,CAAC,KAAM,4BAAP;AACP,aAAO,CAAC,MAAO,uBAAR;AACP,aAAO,CAAC,MAAO,sBAAR;AACP,aAAO,CAAC,UAAW,0BAAZ;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,KAAM,wBAAP;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,KAAM,wBAAP;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,UAAW,sBAAZ;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,MAAO,yBAAR;AACP,aAAO,CAAC,MAAO,qCAAR;AACP,aAAO,CAAC,KAAM,gCAAP;AACP,aAAO,CAAC,MAAO,qCAAR;AACP,aAAO,CAAC,KAAM,8BAAP;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,MAAO,sBAAR;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,MAAO,iBAAR;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,iBAAR;AACP,aAAO,CAAC,SAAU,oCAAX;AACP,aAAO,CAAC,SAAU,yCAAX;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,MAAO,sBAAR;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,KAAM,0BAAP;AACP,aAAO,CAAC,MAAO,gCAAR;AACP,aAAO,CAAC,OAAQ,kBAAT;AACP,aAAO,CAAC,QAAS,sBAAV;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,YAAa,qBAAd;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,mCAAR;AACP,aAAO,CAAC,MAAO,mCAAR;AACP,aAAO,CAAC,MAAO,iCAAR;AACP,aAAO,CAAC,OAAQ,4BAAT;AACP,aAAO,CAAC,MAAO,kCAAR;AACP,aAAO,CAAC,MAAO,mCAAR;AACP,aAAO,CAAC,MAAO,mCAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,yBAAR;AACP,aAAO,CAAC,QAAS,yBAAV;AACP,aAAO,CAAC,MAAO,6DAAR;AACP,aAAO,CAAC,OAAQ,yCAAT;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,OAAQ,2BAAT;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,OAAQ,4BAAT;AACP,aAAO,CAAC,QAAS,6BAAV;AACP,aAAO,CAAC,MAAO,uCAAR;AACP,aAAO,CAAC,MAAO,uCAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,sCAAR;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,MAAO,yCAAR;AACP,aAAO,CAAC,MAAO,wDAAR;AACP,aAAO,CAAC,MAAO,qDAAR;AACP,aAAO,CAAC,MAAO,sCAAR;AACP,aAAO,CAAC,OAAQ,qCAAT;AACP,aAAO,CAAC,OAAQ,+BAAT;AACP,aAAO,CAAC,MAAO,oCAAR;AACP,aAAO,CAAC,OAAQ,uCAAT;AACP,aAAO,CAAC,MAAO,4BAAR;AACP,aAAO,CAAC,MAAO,mCAAR;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,MAAO,iCAAR;AACP,aAAO,CAAC,QAAS,8BAAV;AACP,aAAO,CAAC,MAAO,sCAAR;AACP,aAAO,CAAC,MAAO,4BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,SAAU,8CAAX;AACP,aAAO,CAAC,SAAU,kDAAX;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,UAAW,8BAAZ;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,OAAQ,+BAAT;AACP,aAAO,CAAC,OAAQ,wCAAT;AACP,aAAO,CAAC,OAAQ,uCAAT;AACP,aAAO,CAAC,OAAQ,wCAAT;AACP,aAAO,CAAC,OAAQ,wCAAT;AACP,aAAO,CAAC,MAAO,uCAAR;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,QAAS,4BAAV;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,MAAO,iCAAR;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,OAAQ,2BAAT;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,OAAQ,2BAAT;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,OAAQ,+BAAT;AACP,aAAO,CAAC,MAAO,kCAAR;AACP,aAAO,CAAC,OAAQ,kCAAT;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,OAAQ,0BAAT;AACP,aAAO,CAAC,YAAa,wCAAd;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,MAAO,yBAAR;AACP,aAAO,CAAC,OAAQ,8BAAT;AACP,aAAO,CAAC,OAAQ,6BAAT;AACP,aAAO,CAAC,MAAO,yBAAR;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,MAAO,yBAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,yBAAR;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,MAAO,kCAAR;AACP,aAAO,CAAC,MAAO,4BAAR;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,QAAS,4BAAV;AACP,aAAO,CAAC,OAAQ,2BAAT;AACP,aAAO,CAAC,WAAY,2BAAb;AACP,aAAO,CAAC,OAAQ,8BAAT;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,MAAO,4BAAR;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,KAAM,4BAAP;AACP,aAAO,CAAC,QAAS,4BAAV;AACP,aAAO,CAAC,QAAS,4BAAV;AACP,aAAO,CAAC,OAAQ,4BAAT;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,MAAO,gCAAR;AACP,aAAO,CAAC,MAAO,gCAAR;AACP,aAAO,CAAC,MAAO,iCAAR;AACP,aAAO,CAAC,MAAO,kCAAR;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,MAAO,qCAAR;AACP,aAAO,CAAC,MAAO,4CAAR;AACP,aAAO,CAAC,MAAO,4BAAR;AACP,aAAO,CAAC,MAAO,kCAAR;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,MAAO,mCAAR;AACP,aAAO,CAAC,MAAO,mCAAR;AACP,aAAO,CAAC,MAAO,yBAAR;AACP,aAAO,CAAC,MAAO,yBAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,MAAO,sCAAR;AACP,aAAO,CAAC,MAAO,kCAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,gCAAR;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,MAAO,yCAAR;AACP,aAAO,CAAC,MAAO,iCAAR;AACP,aAAO,CAAC,MAAO,qCAAR;AACP,aAAO,CAAC,MAAO,sCAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,yBAAR;AACP,aAAO,CAAC,MAAO,4CAAR;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,MAAO,mCAAR;AACP,aAAO,CAAC,OAAQ,yBAAT;AACP,aAAO,CAAC,OAAQ,yBAAT;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,yBAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,QAAS,0BAAV;AACP,aAAO,CAAC,YAAa,sCAAd;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,MAAO,4BAAR;AACP,aAAO,CAAC,UAAW,4BAAZ;AACP,aAAO,CAAC,WAAY,4BAAb;AACP,aAAO,CAAC,MAAO,uCAAR;AACP,aAAO,CAAC,KAAM,sCAAP;AACP,aAAO,CAAC,MAAO,4BAAR;AACP,aAAO,CAAC,MAAO,4BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,iCAAR;AACP,aAAO,CAAC,MAAO,iCAAR;AACP,aAAO,CAAC,MAAO,4BAAR;AACP,aAAO,CAAC,MAAO,kCAAR;AACP,aAAO,CAAC,MAAO,kCAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,YAAa,uCAAd;AACP,aAAO,CAAC,MAAO,yCAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,MAAO,uCAAR;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,OAAQ,oCAAT;AACP,aAAO,CAAC,MAAO,yBAAR;AACP,aAAO,CAAC,MAAO,yBAAR;AACP,aAAO,CAAC,SAAU,4BAAX;AACP,aAAO,CAAC,OAAQ,4BAAT;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,MAAO,gCAAR;AACP,aAAO,CAAC,MAAO,gCAAR;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,OAAQ,4BAAT;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,uBAAR;AACP,aAAO,CAAC,MAAO,uBAAR;AACP,aAAO,CAAC,MAAO,sBAAR;AACP,aAAO,CAAC,MAAO,sBAAR;AACP,aAAO,CAAC,MAAO,sBAAR;AACP,aAAO,CAAC,MAAO,sBAAR;AACP,aAAO,CAAC,MAAO,kCAAR;AACP,aAAO,CAAC,SAAU,6BAAX;AACP,aAAO,CAAC,MAAO,oDAAR;AACP,aAAO,CAAC,MAAO,yDAAR;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,MAAO,gCAAR;AACP,aAAO,CAAC,MAAO,iCAAR;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,MAAO,iCAAR;AACP,aAAO,CAAC,MAAO,iCAAR;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,UAAW,kCAAZ;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,QAAS,oCAAV;AACP,aAAO,CAAC,MAAO,sBAAR;AACP,aAAO,CAAC,MAAO,sBAAR;AACP,aAAO,CAAC,MAAO,gCAAR;AACP,aAAO,CAAC,MAAO,gCAAR;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,MAAO,4BAAR;AACP,aAAO,CAAC,MAAO,4BAAR;AACP,aAAO,CAAC,MAAO,4BAAR;AACP,aAAO,CAAC,MAAO,4BAAR;AACP,aAAO,CAAC,MAAO,4BAAR;AACP,aAAO,CAAC,MAAO,4BAAR;AACP,aAAO,CAAC,MAAO,4BAAR;AACP,aAAO,CAAC,MAAO,oCAAR;AACP,aAAO,CAAC,MAAO,oCAAR;AACP,aAAO,CAAC,MAAO,iCAAR;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,MAAO,mCAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,OAAQ,gDAAT;AACP,aAAO,CAAC,OAAQ,uDAAT;AACP,aAAO,CAAC,OAAQ,gDAAT;AACP,aAAO,CAAC,OAAQ,mDAAT;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,OAAQ,gCAAT;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,MAAO,4BAAR;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,OAAQ,qDAAT;AACP,aAAO,CAAC,OAAQ,4DAAT;AACP,aAAO,CAAC,OAAQ,qDAAT;AACP,aAAO,CAAC,OAAQ,yDAAT;AACP,aAAO,CAAC,OAAQ,wDAAT;AACP,aAAO,CAAC,MAAO,4BAAR;AACP,aAAO,CAAC,MAAO,4BAAR;AACP,aAAO,CAAC,OAAQ,kDAAT;AACP,aAAO,CAAC,OAAQ,kDAAT;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,gCAAR;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,OAAQ,6BAAT;AACP,aAAO,CAAC,SAAU,uBAAX;AACP,aAAO,CAAC,MAAO,mCAAR;AACP,aAAO,CAAC,MAAO,sBAAR;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,MAAO,oCAAR;AACP,aAAO,CAAC,MAAO,iCAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,QAAS,mCAAV;AACP,aAAO,CAAC,SAAU,8CAAX;AACP,aAAO,CAAC,OAAQ,oCAAT;AACP,aAAO,CAAC,OAAQ,qCAAT;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,OAAQ,+BAAT;AACP,aAAO,CAAC,MAAO,0CAAR;AACP,aAAO,CAAC,MAAO,mDAAR;AACP,aAAO,CAAC,MAAO,6CAAR;AACP,aAAO,CAAC,MAAO,4CAAR;AACP,aAAO,CAAC,OAAQ,qDAAT;AACP,aAAO,CAAC,MAAO,6CAAR;AACP,aAAO,CAAC,MAAO,sDAAR;AACP,aAAO,CAAC,MAAO,0CAAR;AACP,aAAO,CAAC,MAAO,mDAAR;AACP,aAAO,CAAC,MAAO,iDAAR;AACP,aAAO,CAAC,MAAO,0DAAR;AACP,aAAO,CAAC,MAAO,gDAAR;AACP,aAAO,CAAC,MAAO,yDAAR;AACP,aAAO,CAAC,MAAO,yCAAR;AACP,aAAO,CAAC,MAAO,gDAAR;AACP,aAAO,CAAC,MAAO,kDAAR;AACP,aAAO,CAAC,MAAO,6CAAR;AACP,aAAO,CAAC,KAAM,4BAAP;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,MAAO,yCAAR;AACP,aAAO,CAAC,OAAQ,2EAAT;AACP,aAAO,CAAC,OAAQ,oEAAT;AACP,aAAO,CAAC,OAAQ,wEAAT;AACP,aAAO,CAAC,OAAQ,uEAAT;AACP,aAAO,CAAC,OAAQ,mEAAT;AACP,aAAO,CAAC,OAAQ,sEAAT;AACP,aAAO,CAAC,OAAQ,yEAAT;AACP,aAAO,CAAC,OAAQ,yEAAT;AACP,aAAO,CAAC,MAAO,wCAAR;AACP,aAAO,CAAC,KAAM,yBAAP;AACP,aAAO,CAAC,MAAO,gCAAR;AACP,aAAO,CAAC,MAAO,sBAAR;AACP,aAAO,CAAC,MAAO,sBAAR;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,OAAQ,wBAAT;AACP,aAAO,CAAC,KAAM,4BAAP;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,MAAO,oCAAR;AACP,aAAO,CAAC,MAAO,kCAAR;AACP,aAAO,CAAC,MAAO,uCAAR;AACP,aAAO,CAAC,OAAQ,2BAAT;AACP,aAAO,CAAC,MAAO,mCAAR;AACP,aAAO,CAAC,MAAO,mCAAR;AACP,aAAO,CAAC,MAAO,mCAAR;AACP,aAAO,CAAC,MAAO,mCAAR;AACP,aAAO,CAAC,MAAO,mCAAR;AACP,aAAO,CAAC,MAAO,mCAAR;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,MAAO,oCAAR;AACP,aAAO,CAAC,WAAY,wCAAb;AACP,aAAO,CAAC,aAAc,gCAAf;AACP,aAAO,CAAC,MAAO,yBAAR;AACP,aAAO,CAAC,KAAM,8BAAP;AACP,aAAO,CAAC,OAAQ,kCAAT;AACP,aAAO,CAAC,SAAU,oCAAX;AACP,aAAO,CAAC,KAAM,sCAAP;AACP,aAAO,CAAC,MAAO,yBAAR;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,MAAO,yCAAR;AACP,aAAO,CAAC,MAAO,6CAAR;AACP,aAAO,CAAC,MAAO,4CAAR;AACP,aAAO,CAAC,MAAO,wCAAR;AACP,aAAO,CAAC,MAAO,oCAAR;AACP,aAAO,CAAC,OAAQ,oCAAT;AACP,aAAO,CAAC,MAAO,sBAAR;AACP,aAAO,CAAC,UAAW,+BAAZ;AACP,aAAO,CAAC,OAAQ,iCAAT;AACP,aAAO,CAAC,OAAQ,iCAAT;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,mCAAR;AACP,aAAO,CAAC,MAAO,mCAAR;AACP,aAAO,CAAC,MAAO,sCAAR;AACP,aAAO,CAAC,MAAO,mCAAR;AACP,aAAO,CAAC,MAAO,qCAAR;AACP,aAAO,CAAC,MAAO,qCAAR;AACP,aAAO,CAAC,MAAO,4CAAR;AACP,aAAO,CAAC,QAAS,mCAAV;AACP,aAAO,CAAC,KAAM,qCAAP;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,uCAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,uCAAR;AACP,aAAO,CAAC,MAAO,iCAAR;AACP,aAAO,CAAC,MAAO,0CAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,gCAAR;AACP,aAAO,CAAC,MAAO,uCAAR;AACP,aAAO,CAAC,MAAO,yCAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,OAAQ,8BAAT;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,MAAO,iCAAR;AACP,aAAO,CAAC,OAAQ,iCAAT;AACP,aAAO,CAAC,MAAO,4BAAR;AACP,aAAO,CAAC,MAAO,iCAAR;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,MAAO,2CAAR;AACP,aAAO,CAAC,OAAQ,8BAAT;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,gCAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,yBAAR;AACP,aAAO,CAAC,MAAO,sBAAR;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,WAAY,uBAAb;AACP,aAAO,CAAC,OAAQ,0BAAT;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,MAAO,uBAAR;AACP,aAAO,CAAC,MAAO,uBAAR;AACP,aAAO,CAAC,MAAO,uBAAR;AACP,aAAO,CAAC,MAAO,uBAAR;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,QAAS,2BAAV;AACP,aAAO,CAAC,OAAQ,0BAAT;AACP,aAAO,CAAC,QAAS,gCAAV;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,gCAAR;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,sBAAR;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,MAAO,kCAAR;AACP,aAAO,CAAC,MAAO,iCAAR;AACP,aAAO,CAAC,MAAO,wCAAR;AACP,aAAO,CAAC,SAAU,mDAAX;AACP,aAAO,CAAC,MAAO,mCAAR;AACP,aAAO,CAAC,MAAO,oCAAR;AACP,aAAO,CAAC,MAAO,yCAAR;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,OAAQ,qBAAT;AACP,aAAO,CAAC,MAAO,gCAAR;AACP,aAAO,CAAC,OAAQ,0BAAT;AACP,aAAO,CAAC,MAAO,oBAAR;AACP,aAAO,CAAC,MAAO,oBAAR;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,WAAY,0BAAb;AACP,aAAO,CAAC,KAAM,6BAAP;AACP,aAAO,CAAC,MAAO,uBAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,QAAS,qBAAV;AACP,aAAO,CAAC,UAAW,0BAAZ;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,QAAS,qBAAV;AACP,aAAO,CAAC,KAAM,oBAAP;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,MAAO,mBAAR;AACP,aAAO,CAAC,MAAO,mBAAR;AACP,aAAO,CAAC,MAAO,mBAAR;AACP,aAAO,CAAC,MAAO,mBAAR;AACP,aAAO,CAAC,MAAO,mBAAR;AACP,aAAO,CAAC,MAAO,sBAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,OAAQ,oBAAT;AACP,aAAO,CAAC,MAAO,yBAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,OAAQ,oBAAT;AACP,aAAO,CAAC,MAAO,mBAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,OAAQ,8BAAT;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,oBAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,MAAO,mBAAR;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,MAAO,mBAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,gCAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,OAAQ,yBAAT;AACP,aAAO,CAAC,MAAO,uBAAR;AACP,aAAO,CAAC,MAAO,4BAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,WAAY,wBAAb;AACP,aAAO,CAAC,SAAU,0BAAX;AACP,aAAO,CAAC,OAAQ,oBAAT;AACP,aAAO,CAAC,MAAO,mBAAR;AACP,aAAO,CAAC,UAAW,oCAAZ;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,OAAQ,8BAAT;AACP,aAAO,CAAC,QAAS,qBAAV;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,mBAAR;AACP,aAAO,CAAC,MAAO,gCAAR;AACP,aAAO,CAAC,OAAQ,gCAAT;AACP,aAAO,CAAC,cAAe,8BAAhB;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,MAAO,sBAAR;AACP,aAAO,CAAC,MAAO,sBAAR;AACP,aAAO,CAAC,OAAQ,uBAAT;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,sBAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,uBAAR;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,uBAAR;AACP,aAAO,CAAC,KAAM,sBAAP;AACP,aAAO,CAAC,MAAO,sBAAR;AACP,aAAO,CAAC,MAAO,mBAAR;AACP,aAAO,CAAC,MAAO,sBAAR;AACP,aAAO,CAAC,MAAO,sBAAR;AACP,aAAO,CAAC,MAAO,kCAAR;AACP,aAAO,CAAC,MAAO,kCAAR;AACP,aAAO,CAAC,MAAO,iCAAR;AACP,aAAO,CAAC,MAAO,8BAAR;AACP,aAAO,CAAC,MAAO,qCAAR;AACP,aAAO,CAAC,KAAM,kBAAP;AACP,aAAO,CAAC,OAAQ,oBAAT;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,MAAO,+BAAR;AACP,aAAO,CAAC,MAAO,mBAAR;AACP,aAAO,CAAC,MAAO,uBAAR;AACP,aAAO,CAAC,OAAQ,wBAAT;AACP,aAAO,CAAC,MAAO,sBAAR;AACP,aAAO,CAAC,UAAW,uBAAZ;AACP,aAAO,CAAC,SAAU,sBAAX;AACP,aAAO,CAAC,KAAM,0BAAP;AACP,aAAO,CAAC,MAAO,oBAAR;AACP,aAAO,CAAC,MAAO,mBAAR;AACP,aAAO,CAAC,MAAO,mBAAR;AACP,aAAO,CAAC,MAAO,mBAAR;AACP,aAAO,CAAC,MAAO,uBAAR;AACP,aAAO,CAAC,UAAW,uBAAZ;AACP,aAAO,CAAC,OAAQ,uBAAT;AACP,aAAO,CAAC,MAAO,oBAAR;AACP,aAAO,CAAC,QAAS,qBAAV;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,MAAO,4BAAR;AACP,aAAO,CAAC,MAAO,4BAAR;AACP,aAAO,CAAC,MAAO,oBAAR;AACP,aAAO,CAAC,MAAO,yBAAR;AACP,aAAO,CAAC,MAAO,yBAAR;AACP,aAAO,CAAC,KAAM,kBAAP;AACP,aAAO,CAAC,KAAM,wBAAP;AACP,aAAO,CAAC,KAAM,wBAAP;AACP,aAAO,CAAC,KAAM,wBAAP;AACP,aAAO,CAAC,KAAM,wBAAP;AACP,aAAO,CAAC,KAAM,wBAAP;AACP,aAAO,CAAC,KAAM,wBAAP;AACP,aAAO,CAAC,KAAM,wBAAP;AACP,aAAO,CAAC,KAAM,wBAAP;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,QAAS,uBAAV;AACP,aAAO,CAAC,MAAO,uBAAR;AACP,aAAO,CAAC,MAAO,iBAAR;AACP,aAAO,CAAC,MAAO,iBAAR;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,MAAO,uBAAR;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,OAAQ,oBAAT;AACP,aAAO,CAAC,QAAS,oBAAV;AACP,aAAO,CAAC,OAAQ,oBAAT;AACP,aAAO,CAAC,MAAO,oBAAR;AACP,aAAO,CAAC,OAAQ,kBAAT;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,MAAO,iBAAR;AACP,aAAO,CAAC,MAAO,aAAR;AACP,aAAO,CAAC,KAAM,aAAP;AACP,aAAO,CAAC,MAAO,aAAR;AACP,aAAO,CAAC,MAAO,YAAR;AACP,aAAO,CAAC,OAAQ,YAAT;AACP,aAAO,CAAC,MAAO,YAAR;AACP,aAAO,CAAC,MAAO,YAAR;AACP,aAAO,CAAC,OAAQ,WAAT;AACP,aAAO,CAAC,OAAQ,YAAT;AACP,aAAO,CAAC,MAAO,YAAR;AACP,aAAO,CAAC,OAAQ,YAAT;AACP,aAAO,CAAC,MAAO,YAAR;AACP,aAAO,CAAC,MAAO,YAAR;AACP,aAAO,CAAC,MAAO,YAAR;AACP,aAAO,CAAC,MAAO,WAAR;AACP,aAAO,CAAC,MAAO,WAAR;AACP,aAAO,CAAC,MAAO,WAAR;AACP,aAAO,CAAC,MAAO,WAAR;AACP,aAAO,CAAC,MAAO,YAAR;AACP,aAAO,CAAC,MAAO,sBAAR;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,MAAO,yBAAR;AACP,aAAO,CAAC,MAAO,eAAR;AACP,aAAO,CAAC,MAAO,eAAR;AACP,aAAO,CAAC,QAAS,kBAAV;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,kCAAR;AACP,aAAO,CAAC,YAAa,2BAAd;AACP,aAAO,CAAC,YAAa,2BAAd;AACP,aAAO,CAAC,YAAa,2BAAd;AACP,aAAO,CAAC,MAAO,eAAR;AACP,aAAO,CAAC,OAAQ,YAAT;AACP,aAAO,CAAC,MAAO,WAAR;AACP,aAAO,CAAC,MAAO,cAAR;AACP,aAAO,CAAC,OAAQ,cAAT;AACP,aAAO,CAAC,OAAQ,cAAT;AACP,aAAO,CAAC,MAAO,aAAR;AACP,aAAO,CAAC,OAAQ,cAAT;AACP,aAAO,CAAC,MAAO,kBAAR;AACP,aAAO,CAAC,MAAO,iBAAR;AACP,aAAO,CAAC,MAAO,gBAAR;AACP,aAAO,CAAC,MAAO,gBAAR;AACP,aAAO,CAAC,MAAO,sBAAR;AACP,aAAO,CAAC,KAAM,sBAAP;AACP,aAAO,CAAC,MAAO,6BAAR;AACP,aAAO,CAAC,MAAO,aAAR;AACP,aAAO,CAAC,KAAM,UAAP;AACP,aAAO,CAAC,MAAO,gBAAR;AACP,aAAO,CAAC,MAAO,gBAAR;AACP,aAAO,CAAC,OAAQ,iBAAT;AACP,aAAO,CAAC,MAAO,gBAAR;AACP,aAAO,CAAC,OAAQ,iBAAT;AACP,aAAO,CAAC,MAAO,gBAAR;AACP,aAAO,CAAC,MAAO,WAAR;AACP,aAAO,CAAC,MAAO,WAAR;AACP,aAAO,CAAC,KAAM,aAAP;AACP,aAAO,CAAC,MAAO,WAAR;AACP,aAAO,CAAC,MAAO,WAAR;AACP,aAAO,CAAC,OAAQ,YAAT;AACP,aAAO,CAAC,MAAO,YAAR;AACP,aAAO,CAAC,MAAO,YAAR;AACP,aAAO,CAAC,MAAO,WAAR;AACP,aAAO,CAAC,MAAO,WAAR;AACP,aAAO,CAAC,OAAQ,gBAAT;AACP,aAAO,CAAC,MAAO,WAAR;AACP,aAAO,CAAC,MAAO,eAAR;AACP,aAAO,CAAC,OAAQ,eAAT;AACP,aAAO,CAAC,OAAQ,YAAT;AACP,aAAO,CAAC,MAAO,YAAR;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,OAAQ,wBAAT;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,OAAQ,wBAAT;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,OAAQ,gBAAT;AACP,aAAO,CAAC,MAAO,gBAAR;AACP,aAAO,CAAC,MAAO,eAAR;AACP,aAAO,CAAC,MAAO,eAAR;AACP,aAAO,CAAC,MAAO,wBAAR;AACP,aAAO,CAAC,MAAO,eAAR;AACP,aAAO,CAAC,MAAO,eAAR;AACP,aAAO,CAAC,MAAO,gCAAR;AACP,aAAO,CAAC,MAAO,gCAAR;AACP,aAAO,CAAC,MAAO,mBAAR;AACP,aAAO,CAAC,MAAO,oBAAR;AACP,aAAO,CAAC,MAAO,mBAAR;AACP,aAAO,CAAC,OAAQ,oBAAT;AACP,aAAO,CAAC,MAAO,gBAAR;AACP,aAAO,CAAC,OAAQ,YAAT;AACP,aAAO,CAAC,MAAO,aAAR;AACP,aAAO,CAAC,MAAO,oBAAR;AACP,aAAO,CAAC,MAAO,aAAR;AACP,aAAO,CAAC,KAAM,kBAAP;AACP,aAAO,CAAC,MAAO,kBAAR;AACP,aAAO,CAAC,MAAO,kBAAR;AACP,aAAO,CAAC,MAAO,kBAAR;AACP,aAAO,CAAC,MAAO,kBAAR;AACP,aAAO,CAAC,MAAO,cAAR;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,MAAO,aAAR;AACP,aAAO,CAAC,MAAO,cAAR;AACP,aAAO,CAAC,MAAO,cAAR;AACP,aAAO,CAAC,MAAO,yBAAR;AACP,aAAO,CAAC,MAAO,yBAAR;AACP,aAAO,CAAC,MAAO,0BAAR;AACP,aAAO,CAAC,MAAO,yBAAR;AACP,aAAO,CAAC,MAAO,aAAR;AACP,aAAO,CAAC,MAAO,aAAR;AACP,aAAO,CAAC,MAAO,iBAAR;AACP,aAAO,CAAC,MAAO,iBAAR;AACP,aAAO,CAAC,MAAO,qBAAR;AACP,aAAO,CAAC,MAAO,gBAAR;AACP,aAAO,CAAC,OAAQ,gBAAT;AACP,aAAO,CAAC,MAAO,YAAR;AACP,aAAO,CAAC,OAAQ,YAAT;AACP,aAAO,CAAC,MAAO,YAAR;AACP,aAAO,CAAC,OAAQ,YAAT;AACP,aAAO,CAAC,OAAQ,YAAT;AACP,aAAO,CAAC,MAAO,uBAAR;AACP,aAAO,CAAC,MAAO,eAAR;AACP,aAAO,CAAC,MAAO,eAAR;AACP,aAAO,CAAC,MAAO,eAAR;AACP,aAAO,CAAC,MAAO,eAAR;AACP,aAAO,CAAC,MAAO,eAAR;AACP,aAAO,CAAC,MAAO,YAAR;AACP,aAAO,CAAC,OAAQ,YAAT;AACP,aAAO,CAAC,OAAQ,kBAAT;AACP,aAAO,CAAC,QAAS,kBAAV;AACP,aAAO,CAAC,OAAQ,gBAAT;AACP,aAAO,CAAC,QAAS,gBAAV;AACP,aAAO,CAAC,MAAO,eAAR;AACP,aAAO,CAAC,OAAQ,eAAT;AACP,aAAO,CAAC,WAAY,qBAAb;AACP,aAAO,CAAC,MAAO,eAAR;AACP,aAAO,CAAC,MAAO,eAAR;AACP,aAAO,CAAC,MAAO,UAAR;AACP,aAAO,CAAC,MAAO,UAAR;AACP,aAAO,CAAC,MAAO,UAAR;AACP,aAAO,CAAC,OAAQ,WAAT;AACP,aAAO,CAAC,MAAO,WAAR;AACP,aAAO,CAAC,KAAM,SAAP;AACP,aAAO,CAAC,MAAO,YAAR;AACP,aAAO,CAAC,OAAQ,YAAT;AACP,aAAO,CAAC,OAAQ,YAAT;AACP,aAAO,CAAC,MAAO,YAAR;AACP,aAAO,CAAC,OAAQ,YAAT;AACP,aAAO,CAAC,MAAO,YAAR;AACP,aAAO,CAAC,KAAM,YAAP;AACP,aAAO,CAAC,KAAM,YAAP;AACP,aAAO,CAAC,MAAO,oBAAR;AACP,aAAO,CAAC,MAAO,eAAR;AACP,aAAO,CAAC,OAAQ,WAAT;AACP,aAAO,CAAC,MAAO,WAAR;AACP,aAAO,CAAC,MAAO,2BAAR;AACP,aAAO,CAAC,IAAK,YAAN;AACP,aAAO,CAAC,KAAM,YAAP;AACP,aAAO,CAAC,OAAQ,YAAT;AACP,aAAO,CAAC,MAAO,YAAR;AACP,aAAO,CAAC,KAAM,YAAP;AACP,aAAO,CAAC,KAAM,YAAP;AACP,aAAO,CAAC,MAAO,aAAR;AACP,aAAO,CAAC,MAAO,eAAR;AACP,aAAO,CAAC,OAAQ,eAAT;AACP,aAAO,CAAC,OAAQ,eAAT;AACP,aAAO,CAAC,QAAS,YAAV;AACP,aAAO,CAAC,OAAQ,eAAT;AACP,aAAO,CAAC,QAAS,qBAAV;AACP,aAAO,CAAC,QAAS,qBAAV;AACP,aAAO,CAAC,QAAS,qBAAV;AACP,aAAO,CAAC,MAAO,uBAAR;AACP,aAAO,CAAC,MAAO,cAAR;AACP,aAAO,CAAC,MAAO,uBAAR;AACP,aAAO,CAAC,KAAM,mBAAP;AACP,aAAO,CAAC,OAAQ,oBAAT;AACP,aAAO,CAAC,OAAQ,oBAAT;AACP,aAAO,CAAC,MAAO,kCAAR;AACP,aAAO,CAAC,MAAO,kBAAR;AACP,aAAO,CAAC,OAAQ,wBAAT;AACP,aAAO,CAAC,IAAK,YAAN;AACP,aAAO,CAAC,MAAO,YAAR;AACP,aAAO,CAAC,IAAK,UAAN;AACP,aAAO,CAAC,KAAM,UAAP;AACP,aAAO,CAAC,MAAO,UAAR;AACP,aAAO,CAAC,MAAO,UAAR;AACP,aAAO,CAAC,IAAK,UAAN;AACP,aAAO,CAAC,KAAM,UAAP;AACP,aAAO,CAAC,MAAO,UAAR;AACP,aAAO,CAAC,IAAK,gBAAN;AACP,aAAO,CAAC,MAAO,gBAAR;AACP,aAAO,CAAC,MAAO,gBAAR;AACP,aAAO,CAAC,MAAO,gBAAR;AACP,aAAO,CAAC,OAAQ,oBAAT;AACP,aAAO,CAAC,OAAQ,aAAT;AACP,aAAO,CAAC,IAAK,eAAN;AACP,aAAO,CAAC,MAAO,eAAR;AACP,aAAO,CAAC,MAAO,YAAR;AACP,aAAO,CAAC,MAAO,eAAR;AACP,aAAO,CAAC,MAAO,YAAR;AACP,aAAO,CAAC,KAAM,iBAAP;AACP,aAAO,CAAC,MAAO,kBAAR;AACP,aAAO,CAAC,MAAO,cAAR;AACP,aAAO,CAAC,MAAO,UAAR;AACP,aAAO,CAAC,MAAO,UAAR;AACP,aAAO,CAAC,MAAO,cAAR;AACP,aAAO,CAAC,MAAO,YAAR;AACP,aAAO,CAAC,MAAO,aAAR;AACP,aAAO,CAAC,OAAQ,YAAT;AACP,aAAO,CAAC,OAAQ,YAAT;AACP,aAAO,CAAC,OAAQ,YAAT;AACP,aAAO,CAAC,OAAQ,YAAT;AACP,aAAO,CAAC,MAAO,WAAR;AACP,aAAO,CAAC,OAAQ,WAAT;AACP,aAAO,CAAC,MAAO,WAAR;AACP,aAAO,CAAC,OAAQ,WAAT;AACP,aAAO,CAAC,MAAO,WAAR;AACP,aAAO,CAAC,OAAQ,WAAT;AACP,aAAO,CAAC,OAAQ,WAAT;AACP,aAAO,CAAC,OAAQ,YAAT;AACP,aAAO,CAAC,MAAO,YAAR;AACP,aAAO,CAAC,MAAO,YAAR;AACP,aAAO,CAAC,MAAO,YAAR;AACP,aAAO,CAAC,MAAO,YAAR;AACP,aAAO,CAAC,MAAO,WAAR;AACP,aAAO,CAAC,KAAM,iBAAP;AACP,aAAO,CAAC,MAAO,iBAAR;AACP,aAAO,CAAC,MAAO,mBAAR;AACP,aAAO,CAAC,OAAQ,mBAAT;AACP,aAAO,CAAC,MAAO,uBAAR;AACP,aAAO,CAAC,OAAQ,uBAAT;AACP,aAAO,CAAC,MAAO,mBAAR;AACP,aAAO,CAAC,OAAQ,mBAAT;AACP,aAAO,CAAC,MAAO,mBAAR;AACP,aAAO,CAAC,OAAQ,mBAAT;AACP,aAAO,CAAC,MAAO,sBAAR;AACP,aAAO,CAAC,OAAQ,sBAAT;AACP,aAAO,CAAC,MAAO,oBAAR;AACP,aAAO,CAAC,MAAO,eAAR;AACP,aAAO,CAAC,MAAO,mBAAR;AACP,aAAO,CAAC,MAAO,mBAAR;AACP,aAAO,CAAC,MAAO,kCAAR;AACP,aAAO,CAAC,MAAO,oBAAR;AACP,aAAO,CAAC,OAAQ,oBAAT;AACP,aAAO,CAAC,MAAO,gBAAR;AACP,aAAO,CAAC,OAAQ,YAAT;AACP,aAAO,CAAC,MAAO,aAAR;AACP,aAAO,CAAC,MAAO,aAAR;AACP,aAAO,CAAC,MAAO,aAAR;AACP,aAAO,CAAC,MAAO,aAAR;AACP,aAAO,CAAC,MAAO,kBAAR;AACP,aAAO,CAAC,OAAQ,kBAAT;AACP,aAAO,CAAC,MAAO,kBAAR;AACP,aAAO,CAAC,MAAO,aAAR;AACP,aAAO,CAAC,MAAO,gBAAR;AACP,aAAO,CAAC,MAAO,gBAAR;AACP,aAAO,CAAC,MAAO,gBAAR;AACP,aAAO,CAAC,KAAM,eAAP;AACP,aAAO,CAAC,MAAO,gBAAR;AACP,aAAO,CAAC,MAAO,gBAAR;AACP,aAAO,CAAC,MAAO,gBAAR;AACP,aAAO,CAAC,MAAO,iBAAR;AACP,aAAO,CAAC,QAAS,mBAAV;AACP,aAAO,CAAC,MAAO,aAAR;AACP,aAAO,CAAC,MAAO,yBAAR;AA3+BkB;AApzNb;AA4yPd;AAaE,mCAAqC,qCAArC;AAIA,0BAAiB,iBAAjB,GAAsC;AACtC,0BAAiB,kBAAjB,GAAuC;AAGvC,uBAAc,uBAAW,QAAC;AAC1B;AAtBF;AAxvQA,GA4cc,YA5cd;ACAA,uBAES,UAFT;;;;ACAA,sCAeS,oDAfT;;;;AAwByB;AAGF;AA4iCqC;AAE1C,kDAAC,oBAAD;AAF2C;AAAD;AA5iCrC;AAIH;AA+iCqC;AAEvC,kDAAC,mCAAD;AAFwC;AAAD;AA/iCrC;AAII;AAkjCqC;AAE3C,kDAAC,4BAAD;AAF4C;AAAD;AAljCrC;AAXC;;AAiBrB;AACA;AAlBqB;;;;;;AA25BiB;AAExC,qBAAW;AACX,yBAAe,yBAAa,QAAC,YAAM,CAAC,GAAmB,sBAAS,QAAC,G3E7D0B,I2E6DxD,CAAN;AAC7B,sBAAW,SAAS,CAAC,aAAS,YAAO,QAAC,EAAlB;AACpB,sBAAW,YAAC,CAAY,CAAZ;AALqD;AAAzB;AAQA;AAE5B,eAAZ,KAAY;AACZ;AAHwC;AAMD;AAAR;AAE/B,UAAI,UAAJ,EACE,MAAM,uBAAkB,QAAC,YAD3B;AAEA,eAAU;AAJqB;AAAQ;AAOA;AAAR;AAE/B;AAEA,UAAK,gBAAW,YAAC;AACjB,eAAU;AACV,sBAAW,YAAC,CAAY,CAAZ;AANmB;AAAQ;AASA;AAAR;AAE/B;AACA;AAEA,eAAU;AAIV,UAAK;AAEL,UAAG,gBAAW,YAAC,EAAS,GAAE,gBAAW,QAAC,EAAtC;AAEE,YAAK,gBAAW,WAAW,CAAC,CAAD;AAa3B,YAAM,CAAF,CAAE,KAAG,EAAH,CAAuB,IAAI,mBAAQ,CAAC,CAAD,CAAzC,EACE,SAAU,CAAC,QAAC,KAAD,CADb;OAfF;AAX+B;AAAQ;AA+BD;AAEtC,sBAAW,YAAC,CAAY,gBAAW,YAAC,EAAS,GAAE,CAAnC;AAF0B;AAKE;AAExC,sBAAW,YAAC,CAAY,gBAAW,YAAC,EAAS,GAAE,KAAnC;AAF4B;AAKN;AAAH;AAE/B,eAAU,gBAAW,YAAC,EAAS,KAAE,gBAAW,QAAC,EAAd;AAFA;AAAG;AAl+BX;AA8BP;;AAGC;AAGG;;AAEM;;AACN;;AAIM;AA87B+B;AAEtC,mDAAC,gDAAiD,mBAAI,EAAC,MAAL,CAAlD;AAFuE;AAAjC;AA97B/B;AAIJ;AAi8B+B;AAErC,kDAAC,oBAAD;AAFsC;AAAD;AAj8B/B;AAIC;AAo8B+B;AAEtC,kDAAC,qBAAD;AAFuC;AAAD;AAp8B/B;AAIN;AAu8B+B;AAEhC,kDAAC,eAAD;AAFiC;AAAD;AAv8B/B;AAIC;AA08B+B;AAEjC,kDAAC,gBAAD;AAFkC;AAAD;AA18B/B;AAID;AA68B+B;AAEhC,kDAAC,uBAAD;AAFiC;AAAD;AA78B/B;AAIU;AAg9B+B;AAE1C,kDAAC,kCAAD;AAF2C;AAAD;AAh9B/B;AAIT;AAm9B+B;AAEjC,kDAAC,4CAAD;AAFkC;AAAD;AAn9B/B;AAIQ;AAs9B+B;AAEzC,kDAAC,6CAAD;AAF0C;AAAD;AAt9B/B;AAIH;AAy9B+B;AAEtC,kDAAC,6CAAD;AAFuC;AAAD;AAz9B/B;AAIJ;AAi/B+B;AAElC,kDAAC,0BAAD;AAFmC;AAAD;AAj/B/B;AAKA,2BAAG;AACN,wBAAG;AAxDF;;AA0Df;AACA;AACA;AACA;AACA;AACA;AACA;AAhEe;;;;;;;AAqcgB;AAAR;AAEzB,UAAG,YAAQ,KAAmB,+CAA9B,EACE,eAAW,aADb;AAEA,eAAU;AAJe;AAAQ;AA8MG;AAEpC,UAAG,eAAS,KAAG,KAAf,EACE,MAAM,2BAAsB,QAAC,YAAM,CAAC,KAAD,CAAN,CAD/B;AAFoC;AArKF;AAElC,kBAAO,UAvfqC;AAwf5C,aAAU,YAAO,WAAR,aAAmB,IAAG,YAA/B,EACE,YAAO,UAzfmC;AAqfV;AAvEA;AAAT;AAEzB,eAAU,CAAI,sCAAY,UAAU,CAAC,EAAG,sCAAY,cAAc,CAAC,uBAAD,CAA9B;AAFX;AAAS;AALF;AAAP;AAEzB,eAAa,CAAF,CAAE,IAAG,IAAH,CAAS,IAAI,sCAAY,CAAC,CAAD,CAAhB;AAFG;AAAO;AAmFD;AAAN;AAEzB;AACA;AAEA,mBAAc,WAAM,CAAC,eAAW,GAAE,CAAd;AACpB,UAAG,UAAW,KAAmB,qDAAjC;AACE,mBAAM,CAAC,eAAW,GAAE,CAAd,CAAN,GAA2C;AAE7C,gBAAG,UAAW,KAAmB,wDAAjC;AAEE,YAAK;AACA;AACH,YADG,IACH;AAEI,iBAAU,YAAO,WAAR,aAAmB,IAAG,YAA/B,EACE,YAAO,UA5gB2B;AA8gBpC;AACA,yBAA4B;AACxB,iBAAC;SAET,UAVG,IAUH;AACG;;AAEH,gBAAM,uBAAkB,QAAC;;OAI7B,UAAG,UAAW,IAAG,cAAkB,uDAAiC,yDAAnD,CAAjB;AAEE,mBAAM,CAAC,eAAW,GAAE,CAAd,CAAN,GAA2C;AAC3C,YAAG,UAAW,KAAmB,yDAAjC;AAEE,cAAK;AACA;AACH,cADG,KACH;AAEI,mBAAU,YAAO,WAAR,aAAmB,IAAG,YAA/B,EACE,YAAO,UAniByB;AAqiBlC;AACA,2BAA4B;AACxB,mBAAC;WAET,UAVG,KAUH;AAAK;;AAEL,kBAAM,wBAAmB,QAAC;;SAf9B;AAkBA,YAAK;AACA;AACH,YADG,KACH;AAEI;AACA,yBAA4B;AACxB,iBAAC;SAET,UAPG,KAOH;AACE,cAAG,UAAW,KAAoB,yDAAlC;AAEE;AACA,2BAA4B;AACxB,mBAAC;WAEL,YAAM,kBAAa,QAAC;;AAExB,gBAAM,kBAAa,QAAC;;OAIxB,UAAG,UAAW,KAAmB,uDAAjC;AAEE,mBAAM,CAAC,eAAW,GAAE,CAAd,CAAN,GAA2C;AAC3C,YAAK;AACL,YAAG,CAAE,KAAE,GAAP;AACE;AAEA,oBAAM,mBAAc,QAAC;OAGzB,UAAG,UAAW,KAAmB,wDAAjC;AACE,mBAAM,CAAC,eAAW,GAAE,CAAd,CAAN,GAA2C;AAE7C,gBAAG,UAAW,KAAmB,2DAAjC;AAEE,YAAG,6BAAH;AAEE,yBAA4B;AACxB,iBAAC;SAEL,YAAM,4BAAuB,QAAC;OAPlC;AAUA,UAAK;AACA;AACH,UADG,KACH;AACE,YAAG,UAAW,KAAmB,qDAAjC;AAEE;AACA,yBAA4B;AACxB,iBAAC;SAEL,YAAM,mBAAc,QAAC;AACzB,gBATG,KASH;AAEI,YAAG,eAAW,KAAE,CAAhB,EACE,MAAM,2BAAsB,QAAC,YAD/B;AAEA;AACA,uBAA4B;AACxB,eAAC;OAET,UAjBG,KAiBH;AAEI;AACA,uBAA4B;AACxB,eAAC;OAET,UAvBG,KAuBH;AAEI;AACA,uBAA4B;AACxB,eAAC;OAJT;AAQF,UAAG,eAAW,KAAE,CAAhB,EACE,MAAM,2BAAsB,QAAC,YAD/B;AAGA,eAAU;AACV,UAAG,MAAO,KAAoB,+CAA9B,EACE,aADF;AAEA,eAAU;AACV,UAAG,MAAO,KAAoB,+CAA9B,EACE,aADF;AAEA,YAAM,mBAAc,QAAC;AAvII;AAAM;AApHI;AAEnC,UAAG,eAAW,GAAE,GAAhB,EACE,MAAM,wBAAmB,QAAC,YAD5B;AAEA,iBAAM,CAAC,eAAD,CAAN,GAAsB;AAClB,qBAAJ,IAAG;AALgC;AAgDO;AAAjB;AAEzB;AACA;AAEA,UAAK,YAAO,YAAY,YAAC;AACzB,eAAU;AACV,UAAK;AACL;AACE,YAAM,CAAF,CAAE,GAAE,GAAF,CAAO,IAAG,CAAY,CAAH,CAAD,aAAI,IAAG,YAAH,CAA5B;AAEE,sBAAO,YAAY,YAAC,CAAY,CAAZ;AAChB,iBAAC;SAHP;AAMA,YAAK;OAPP,QAQa,CAAP,YAAO,MARb;AASA,kBAAO,YAAY,YAAC,CAAY,CAAZ;AAjBK;AAAiB;AAmQT;AAAR;AAEzB,eAAU,YAAO;AAFQ;AAAQ;AAxeG;AAAX;AAEb,iBAAP,YAAO;AACV,WADU,IACV,aAAK,CADK,IACL,SAAL;AAEI,oBAAO,UAxN+B;AAyN1B,oBAAP,YAAO;AACV,aADU,KACV,aAAK,CADK,KACL,SAAL;AAAsB,sBAAP,YAAO;AACpB,eADoB,KACpB,aAAK,CADe,KACf,SAAL;AAAsB,wBAAP,YAAO;AACpB,iBADoB,KACpB,aAAK,CADe,KACf,SAAL,EACE,IAAG,YAAO,MAAK,IAAG,CAAI,cAAS,CAAC,YAAO,WAAR,CAA/B,EACM,OAAkB,+CAF1B;WADF;SADF;OASN,WAdU,IAcV,aAAK,CAdK,IAcL,SAAL;AAEI,oBAAO,UArO+B;AAsO1B,oBAAP,YAAO;AACV,aADU,KACV,aAAK,CADK,KACL,SAAL;AAAsB,sBAAP,YAAO;AACpB,eADoB,KACpB,aAAK,CADe,KACf,SAAL;AAAsB,wBAAP,YAAO;AACpB,iBADoB,KACpB,aAAK,CADe,KACf,SAAL;AAAsB,0BAAP,YAAO;AACpB,mBADoB,KACpB,aAAK,CADe,KACf,SAAL,EACE,IAAG,YAAO,MAAK,IAAG,CAAI,cAAS,CAAC,YAAO,WAAR,CAA/B,EACM,OAAkB,gDAF1B;aADF;WADF;SADF;OAWN,WA7BU,IA6BV,aAAK,CA7BK,IA6BL,SAAL;AAEI,oBAAO,UApP+B;AAqP1B,oBAAP,YAAO;AACV,aADU,KACV,aAAK,CADK,KACL,SAAL;AAAsB,sBAAP,YAAO;AACpB,eADoB,KACpB,aAAK,CADe,KACf,SAAL;AAAsB,yBAAP,YAAO;AACpB,iBADoB,MACpB,aAAK,CADe,MACf,SAAL,EACE,IAAG,YAAO,MAAK,IAAG,CAAI,cAAS,CAAC,YAAO,WAAR,CAA/B,EACM,OAAkB,+CAF1B;WADF;SADF;;AAUF,eAAkB;;AAExB,YAAM,mBAAc,QAAC;AA/CI;AAAW;AA6DhB,+BAAc,UAAR,iBAAQ,GAAI,EAAJ;AAFC;AAAV;AAIzB;AACA;AACA;AACA;AACA;AACA;AACA;AAEA,UAAK,YAAO;AACZ,UAAM,CAAF,CAAE,KAAG,GAAH,CAAQ,IAAI,CAAI,YAAO,CAAC,CAAD,CAA7B,EACM,OAAkB,+CADxB;AAGA,iBAAY;AACZ,oBAAe;AACf,aAA+B;AAC/B,iBAAY;AACZ,cAAS,CAAC;AACV;AACE,YAAG,QAAS,IAAG,GAAf,EACE,MAAM,mBAAc,QAAC,YADvB;AAEA,YAAK,YAAO;AACZ,0BAAa,CAAC,QAAD,CAAb,GAA2B;AACvB,gBAAJ,IAAG;AACE;AACH,YADG,IACH;AACE,cAAG,IAAK,KAAyB,sDAAjC;AAEE,uBAAY;AACZ,mBAA+B;AAC/B;WAGF,UAAG,IAAK,KAAyB,sDAAjC;AAEE,mBAA+B;AAC/B;WAGA,YAAM,mBAAc,QAAC;AACzB,kBAhBG,IAgBH;AACE,cAAG,IAAK,KAAyB,sDAAjC;AAEE,mBAA+B;AAC/B;WAGA,YAAM,mBAAc,QAAC;AACzB,mBAxBG,IAwBH,aAAK,CAxBF,IAwBE,SAAL;AACE,cAAG,IAAK,IAAG,cAAwB,wDAAkC,0DAA1D,CAAX;AAEE,mBAA+B;AAC/B;WAGA,YAAM,mBAAc,QAAC;AACzB,kBAhCG,IAgCH;AACE,cAAG,IAAK,KAAyB,uDAAjC;AAEE,mBAA+B;AAC/B;WAGA,YAAM,mBAAc,QAAC;;AAEzB,cAAG,CAAI,YAAO,CAAC,CAAD,CAAd,EACE,IAAG,CAAI,cAAS,CAAC,CAAD,CAAhB;AAEE,wBAAO,OAAO,CAAC,CAAD;AACV,oBAAJ,IAAG;AACH;WAGA,YAAM,mBAAc,QAAC,YARzB;AAUA,cAAG,IAAK,IAAG,cAAwB,uDAAiC,sDAAzD,CAAX;AAEE,oBAAS,CAAS,CAAH,CAAD,aAAI,GAAE,EAAF;AAClB,mBAA+B;WAGjC,UAAG,IAAK,KAAyB,uDAAjC;AAEE,gBAAG,KAAM,KAAE,CAAX,EACE,MAAM,mBAAc,QAAC,YADvB;AAEA,uBAAkB,CAAN,KAAM,GAAE,EAAF,CAAK,GAAU,CAAH,CAAD,aAAI,GAAE,EAAF,CAAV;AACvB,0BAAe,WAAY,IAEtB,CADM,CAAN,KAAM,GAAE,gBAAF,CACN,IAAmC,CAAxB,CAAN,KAAM,KAAE,gBAAF,CAAwB,IAAc,CAAT,QAAS,GAAE,KAAF,CAAd,CAAnC,CAFsB;AAI3B,oBAAS;WAGX,UAAG,IAAK,KAAyB,yDAAjC;AACE,mBAA+B;AAEjC,oBAAG,IAAK,IAAG,cAAwB,uDAAiC,yDAAzD,CAAX,EACE,OAA+B,0DADjC;;OA9EJ,QAiFM,MAjFN;AAmFA,UAAS,CAAL,IAAK,KAAyB,uDAAzB,CAAoD,IAAZ,WAAJ,IAA2C,CAAf,CAAN,KAAM,KAAM,iBAAN,CAAe,IAAG,QAAH,CAAxF;AAEE,YAAG,QAAH;AACE,8BAAgB;AAEhB,kCAAgB,CAAC;AACf,eAAkB;OAGxB,UAAG,IAAK,IAAG,cAAwB,wDAAkC,2DAAqC,0DAA/F,CAAX;AAEE,0BAAa,CAAC,QAAD,CAAb,GAA2B;AACvB,eAAkB;OAGtB,YAAM,mBAAc,QAAC;AAvHE;AAAU;AAukBQ;AAAlB;AAEzB;AAAI;AACJ;AAEA,eAAU;AACV,UAAK;AACL,WAAM;AACN,aAAM,CAAI,YAAO,MAAjB;AAEE,YAAK;AACL,YAAM,CAAF,CAAE,KAAE,GAAF,CAAO,IAAQ,CAAH,EAAG,KAAG,IAAH,CAArB;AACE;AAEA,kBAAK,CAAE,GAAE,CAAF;AAET,aAAM;;AAGR,UAAG,WAAH,EACE,SAAU,CADZ;AAnByB;AAAkB;AALR;AAAV;AAEzB,eAAU,uBAAkB,CAAC,IAAD;AAFH;AAAU;AA7XC;AAEpC,6BAAkB,CAAC,KAAD;AAFkB;AAmLW;AAAtB;AAEzB;AACA;AAEA,UAAK,YAAO,YAAY,YAAC;AACzB,eAAU;AACV,UAAK;AACL;AACE,YAAM,CAAF,CAAE,GAAE,GAAF,CAAO,IAAG,CAAY,CAAH,CAAD,aAAI,IAAG,YAAH,CAA5B;AAEE,sBAAO,YAAY,YAAC,CAAY,CAAZ;AAChB,iBAAC;SAHP;AAMA,YAAK;OAPP,QAQa,CAAP,YAAO,MARb;AASA,kBAAO,YAAY,YAAC,CAAY,CAAZ;AAjBK;AAAsB;AAhfb;AAExB;AACV,qBAAW,4BAAuB,QAAC,YAAM,CAAC,OAAD,CAAN;AACnC,qBAA4B;AAC5B,iBAAM,CAAC,CAAD,CAAN,GAA8B;AAC9B,wBAAc;AAN6C;AAAzB;AASA;AAE1B,eAAR,KAAQ;AACR;AAHkC;AAigBM;AAExC,qBAAU,CAAkB,qDAAlB;AACV,oBAAS,CAAkB,qDAAlB;AACT,qBAA4B;AAJY;AAOF;AAEtC,qBAAU,CAAkB,mDAAlB;AACN,qBAAJ,IAAG;AACH,qBAA4B;AAJU;AA2JG;AAEzC,qBAAU,CAAkB,sDAAlB;AACV,oBAAS,CAAkB,sDAAlB;AACT,qBAA4B;AAJa;AAOF;AAEvC,qBAAU,CAAkB,oDAAlB;AACN,qBAAJ,IAAG;AACH,qBAA4B;AAJW;AApkBN;AAAR;AAEzB;AAEA,UAAK,YAAO,YAAY,YAAC;AACzB,eAAU;AACV,kBAAO,YAAY,YAAC,CAAY,CAAZ;AANK;AAAQ;AAgjBA;AAAR;AAEzB,qBAAU,CAAkB,2DAAlB;AACV,qBAA4B;AAC5B,eAAU;AAJe;AAAQ;AAuDE;AAAV;AAEpB;AACH,UADG,IACa,KAAC,uDAAjB;AACE,iBAAU;AACZ,gBAHG,IAGa,KAAC,gDAAjB;AACE,iBAAU,qBAAQ,CAAC,iBAAD;AACpB,gBALG,IAKa,KAAC,iDAAjB;AACE,iBAAU,yBAAmB,CAAC,2BAAD;AAC/B,gBAPG,IAOa,KAAC,mDAAjB;AACE,iBAAU;;AAEZ,cAAM,2BAAsB,QAAC,YAAM,CAAkB,uDAAlB,CAAN;;AAE/B,qBAA4B;AAE5B,eAAU,sCAAY,eAAe,CAAC,MAAD;AAhBZ;AAAU;AA9LC;AAAX;AAEpB;AACH,UADG,IACa,KAAC,+CAAjB;AACE,iBAAU;AACZ,gBAHG,IAGa,KAAC,gDAAjB;AACE,iBAAU;;AAEZ,cAAM,2BAAsB,QAAC,YAAM,CAAkB,+CAAlB,CAAN;;AAE/B,qBAA4B;AAVH;AAAW;AAkBD;AAAV;AAEpB;AACH,UADG,IACa,KAAC,gDAAjB;AAEI,uBAA4B;AACxB,eAAC;OAET,UANG,IAMa,KAAC,iDAAjB;AAEI,YAAG,sCAAY,iBAAiB,CAAC,yBAAmB,CAAC,2BAAD,EAAiB;;;;YAArC,CAAhC;AAEE,yBAA4B;AAC5B;SAEA,2BAAiB,yBAAmB,CAAC,2BAAD;OAE1C,UAfG,IAea,KAAC,uDAAjB;AACE,6BAAiB;AACnB,gBAjBG,IAiBa,KAAC,mDAAjB;;AAEA,cAAM,2BAAsB,QAAC,YAAM,CAAkB,iDAAlB,CAAN;;AAG/B,qBAA4B;AAC5B,eAAU,sCAAY,cAAc,CAAC,kBAAD;AACpC,2BAAiB;AACjB,qBAA4B;AA3BH;AAAU;AA8BD;AAAT;AAEzB;AAEK;AACH,UADG,IACa,KAAC,gDAAjB;AAEI,uBAA4B;AACxB,eAAC;OAET,UANG,IAMa,KAAC,iDAAjB;AAEI,YAAG,0BAAa,CAAC,yBAAmB,CAAC,2BAAD,EAAiB;;;;YAArC,CAAhB;AAEE,yBAA4B;AAC5B;SAEA,2BAAiB,yBAAmB,CAAC,2BAAD;OAE1C,UAfG,IAea,KAAC,uDAAjB;AAEI,6BAAiB;AACjB,YAAG,0BAAa,CAAC,mBAAe;;;;YAAhB,CAAhB;AAEE,yBAA4B;AAC5B;SAHF;OAMJ,UAxBG,IAwBa,KAAC,mDAAjB;;AAEA,cAAM,2BAAsB,QAAC,YAAM,CAAkB,gDAAlB,CAAN;;AAG/B,qBAA4B;AAC5B,iBAAY,sCAAY,cAAc,CAAC,kBAAD;AACtC,eAAU,UAAK,CAAC,QAAD;AACf,UAAG,QAAS,KAAG,MAAf,EACE,MAAM,2BAAsB,QAAC,YAAM,CAAkB,gDAAlB,CAAN,CAD/B;AAEA,2BAAiB;AACjB,qBAA4B;AAvCH;AAAS;AA0CE;AAAX;AAEzB;AAEK;AACH,UADG,IACa,KAAC,gDAAjB;AAEI,iBAAkB,iBAAD;AACjB,YAAG,MAAO,KAAG,iBAAb,EACE,MAAM,2BAAsB,QAAC,YAAM,CAAkB,gDAAlB,CAAN,CAD/B;AAEA,uBAA4B;AAC5B;OAEJ,UATG,IASa,KAAC,iDAAjB;AAEI,YAAG,wBAAW,CAAC,yBAAmB,CAAC,2BAAD,EAAiB;;;;YAArC,CAAd;AAEE,yBAA4B;AAC5B;SAEA,2BAAiB,yBAAmB,CAAC,2BAAD;OAE1C,UAlBG,IAkBa,KAAC,uDAAjB;AAEI,6BAAiB;AACjB,YAAG,wBAAW,CAAC,mBAAe;;;;YAAhB,CAAd;AAEE,yBAA4B;AAC5B;SAHF;OAMJ,UA3BG,IA2Ba,KAAC,mDAAjB;;AAEA,cAAM,2BAAsB,QAAC,YAAM,CAAkB,gDAAlB,CAAN;;AAG/B,qBAA4B;AAC5B,iBAAY,sCAAY,cAAc,CAAC,kBAAD;AACtC,eAAU,UAAK,CAAC,QAAD;AACf,UAAG,QAAS,KAAG,MAAf,EACE,MAAM,2BAAsB,QAAC,YAAM,CAAkB,gDAAlB,CAAN,CAD/B;AAEA,2BAAiB;AACjB,qBAA4B;AA1CH;AAAW;AAhTD;AAEnC;AAEA,cAAS;AACT;AACO;AACH,YADG,IACa,KAAC,qDAAjB;AAEI,wBAAS,CAAkB,qDAAlB;AACL,eAAJ,IAAG;SAEP,UANG,IAMa,KAAC,sDAAjB;AAEI,wBAAS,CAAkB,sDAAlB;AACL,eAAJ,IAAG;SAEP,UAAgB,CAXb,IAWa,KAAC,mDAAD,CAAhB,IAA8C,CAX3C,IAW2C,KAAC,oDAAD,CAA9C;AAEQ,yBAAJ,IAAG;AACC,eAAJ,IAAG;SAEP,UAAgB,CAhBb,IAgBa,KAAC,uDAAD,CAAhB,IAAkD,CAhB/C,IAgB+C,KAAC,2DAAD,CAAlD,EACE,iBADF;AAGF,uBAA4B;OApB9B,QAqBY,EAAN,KAAM,IAAG,CAAH,CArBZ;AALmC;AAoWD;AAElC,qBAAU,CAAkB,+CAAlB;AACV,qBAA4B;AAHM;AA7ZF;AAAP;AAEzB,eAAU,CAAc,CAAT,eAAS,IAAG,cAAkB,qDAA+B,mDAAjD,CAAH;AAFC;AAAO;AALC;AAAR;AAEzB,eAAW,eAAS,IAAG,cAAkB,gDAAlB,CAAH;AAFK;AAAQ;AALC;AAAT;AAEzB,eAAW,eAAS,IAAG,cAAkB,iDAAlB,CAAH;AAFK;AAAS;AALC;AAAV;AAEzB,eAAW,WAAK,IAAG,cAAkB,iCAAlB,CAAH;AAFS;AAAU;AAoBD;AAAT;AAEzB,eAAW,WAAK,IAAG,cAAkB,8BAAlB,CAAH;AAFS;AAAS;AA1PL;AAAJ;AAEpB;AACH,UADG,IACa,KAAC,sDAAjB;AACE,iBAA2B;AAE7B,gBAJG,IAIa,KAAC,oDAAjB;AACE,iBAA2B;AAE7B,gBAPG,IAOa,KAAC,qDAAjB;AACE,iBAA2B;AAE7B,gBAVG,IAUa,KAAC,mDAAjB;AACE,iBAA2B;AAE7B,gBAbG,IAaa,KAAC,2DAAjB;AACE,iBAA2B;AAE7B,gBAAgB,CAhBb,IAgBa,KAAC,+CAAD,CAAhB,IACgB,CAjBb,IAiBa,KAAC,gDAAD,CADhB;AAEE,iBAA2B;AAE7B,gBApBG,IAoBa,KAAC,+CAAjB;AACE,iBAA2B;AAE7B,gBAAgB,CAvBb,IAuBa,KAAC,uDAAD,CAAhB,IACgB,CAxBb,IAwBa,KAAC,mDAAD,CADhB;AAEE,iBAA2B;AAE7B,gBAAgB,CA3Bb,IA2Ba,KAAC,gDAAD,CAAhB,IACgB,CA5Bb,IA4Ba,KAAC,iDAAD,CADhB;AAEE,iBAA2B;AAE7B,gBA/BG,IA+Ba,KAAC,8CAAjB;AACE,iBAA2B;;AAG7B,iBAA2B;;AArCJ;AAAI;AAyQE;AAAN;AAEzB,eAAW,WAAK,KAAmB,8BAAnB;AAFS;AAAM;AA9QH;AAAH;AAEzB,eAAW,WAAK,KAAmB,6BAAnB;AAFS;AAAG;AA9JX;AA2DF,iEAAE,GAAF,GArDK,wDAqDL;AAIO,wEAAE,GAAF;AA/DL;AAzDnB,mBAoKc;AAML;AAAD,mBAAgB,cAAC,KAAK,IAAI,IAAI,IAAI,GAAlB;AAOI;AAAnB;AAGP;AAIA,eAAU;AACV,eAAS,QAAoB,OAAT,WAAC,MAAD,CAAS,GAAE,CAAF,kBAA7B;AAAI;AAEF,YAAG,MAAM,CAAC,CAAD,CAAI,KAAE,MAAf,EACE,KADF;AAGA,iBAAU,MAAO,GAAE,MAAM,CAAC,CAAD,CAAR;;AAbZ;AAAmB;AAbd;AApKd,GAoKc,qBApKd;ACAA,sCAcS,oDAdT;;;AAuByB;;;AAGrB;AACA;AAJqB;;;;;;AAuViB;AAExC,qBAAW;AACX,0BAAgB,yBAAa,QAAC,YAAM,CAAC,GAAmB,sBAAS,QAAC,G5EwgByB,I4ExgBvD,CAAN;AAH6B;AAAnB;AAMA;AAExC;AACE,yBAAY,YAAC,CAAY,CAAZ;AACb,oBAAO,SAAS,CAAC,kBAAc,iBAAY,QAAC,EAA5B;AAFlB;AAIe,iBAAb,KAAa;AAJf;AAMA;AARwC;AAWH;AAErC,uBAAY,YAAY,CAAC,KAAD;AAFa;AAxWd;AAWN;AAGG;AAiW+B;AAEnC,kDAAC,yCAAD;AAFoC;AAAD;AAjW/B;AAIO;AAoW+B;AAE1C,kDAAC,kCAAD;AAF2C;AAAD;AApW/B;AAID;AAuW+B;AAEzC,kDAAC,6CAAD;AAF0C;AAAD;AAvW/B;AAIP;AA0W+B;AAElC,kDAAC,+DAAD;AAFmC;AAAD;AA1W/B;AAIF;AA6W+B;AAEhC,kDAAC,oBAAD;AAFiC;AAAD;AA7W/B;AAIM;AAgX+B;AAEtC,kDAAC,6CAAD;AAFuC;AAAD;AAhX/B;AAIT;AAmX+B;AAE7B,kDAAC,gDAAD;AAF8B;AAAD;AAnX/B;AAIA;AAsX+B;AAE7B,kDAAC,yBAAD;AAF8B;AAAD;AAtX/B;AAMM;;AAGJ,wBAAG;AAxCF;;AA0Cf;AACA;AACA;AACA;AACA;AACA;AA/Ce;;;;;;AAgNwB;AAEzC,UAAG,KAAM,IAAG,CAAZ;AAEE,uBAAW;AACX,0BAAc;;AAGd,uBAAW,uBAAY,CAAC,IAAK,KAAN;AACvB,0BAAc;;AATyB;AAaD;AAAf;AAEzB,eAAiB,YAAD;AAFS;AAAe;AA5CP;AAAR;AAGzB,sBAAW,CAAC,IAAD;AACX,oBAAS,CAAC,KAAD;AACT,kBAAO,MAAM,CAAC,WAAD;AACb,eAAU;AANe;AAAQ;AAjDC;AAAT;AAGzB;AAEA,gBAAW;AACX,UAAG,CAAa,CAAR,OAAQ,IAAG,cAAC,MAAO,QAAR,CAAH,CAAhB,EACE,MAAM,oBAAe,QAAC,YADxB;AAEA,UAAG,kBAAc,KAAG,EAApB,EACE,MAAM,kBAAa,QAAC,YADtB;AAEI,qBAAJ,IAAG;AACH,UAAG,OAAQ,KAAE,QAAb,EACE,cADF;AAEA,kBAAO,MAAM,CAAC,YAAD;AACb,eAAU;AAde;AAAS;AAiEC;AAEnC,UAAG,eAAW,GAAE,GAAhB,EACE,MAAM,wBAAmB,QAAC,YAD5B;AAEA,iBAAM,CAAC,eAAD,CAAN,GAAsB;AAClB,qBAAJ,IAAG;AALgC;AAPD;AAAT;AAEzB,UAAG,eAAW,KAAE,CAAhB,EACE,MAAM,eAAU,QAAC,YADnB;AAEA,eAAU,WAAM,CAAC,eAAW,GAAE,CAAd;AAJS;AAAS;AAeE;AAEpC,UAAG,eAAW,KAAE,CAAhB,EACE,MAAM,eAAU,QAAC,YADnB;AAEA,iBAAM,CAAC,eAAW,GAAE,CAAd,CAAN,GAA0B;AAJU;AAyEO;AAE3C,UAAG,kBAAc,KAAG,EAApB;AAEE;AACA,gCAAmB,CAAC,kBAAD;AACnB,6BAAiB;OAJnB;AAF2C;AAhDE;AAE7C,kBAAO,MAAM,CAAC,GAAD;AACb,kBAAO,MAAM,CAAC,sCAAY,aAAa,CAAC,KAAD,CAA1B;AACb,kBAAO,MAAM,CAAC,GAAD;AAJgC;AA7DZ;AAEjC;AAEA,UAAG,YAAQ,KAAG,EAAd;AAEE,oBAAO,MAAM,CAAC,MAAD;AACb,iBAAS,QAAgB,OAAX,eAAW,GAAE,CAAF,kBAAzB;AAAI;AACF,sBAAO,MAAM,CAAC,YAAD;;OAJjB;AAJiC;AAhFG;AAE/B;AACH,UADG,IACa,KAAC,yDAAjB;AAAoC,oBAAO,MAAM,CAAC,GAAD;AACjD,gBAFG,IAEa,KAAC,sDAAjB;;AAEA,cAAM,qBAAgB,QAAC;;AAEzB;AACA,qBAAU,CAAkB,uDAAlB;AAT0B;AAYC;AAEhC;AACH,UADG,IACa,KAAC,2DAAjB;AACE,cAAM,4BAAuB,QAAC;AAChC,gBAHG,IAGa,KAAC,wDAAjB;AAEI,YAAG,CAAI,IAAP,EACG,MAAM,2BAAsB,QAAC,YADhC;AAEA,uBAAU,CAAkB,2DAAlB;OAEd,UATG,IASa,KAAC,qDAAjB;AAEI,uBAAU,CAAkB,wDAAlB;AACV;OAEJ,UAdG,IAca,KAAC,wDAAjB;AAEI,oBAAO,MAAM,CAAC,GAAD;AACb;OAEJ,UAnBG,IAmBa,KAAC,uDAAjB;AAEI,oBAAO,MAAM,CAAC,eAAD;AACb,uBAAU,CAAkB,yDAAlB;;AAGd,cAAM,oBAAe,QAAC;;AA3Ba;AAsDH;AAExB;AACV,qBAAW,4BAAuB,QAAC,YAAM,CAAC,OAAD,CAAN;AACnC,wBAAc;AACd,oBAAS,CAAkB,wDAAlB;AALkD;AAAzB;AAQA;AAE1B,eAAR,KAAQ;AACR;AAHkC;AA4FM;AAAf;AAEzB;AACA,eAAU,aAAQ,CAAkB,sDAAe,GAAjC;AAHO;AAAe;AAVF;AAAb;AAEzB,eAAU,cAAS,CAAkB,sDAAgC,yDAAkB,GAApE;AAFM;AAAa;AAgBG;AAAhB;AAEzB;AACA,eAAU,aAAQ,CAAkB,uDAAgB,GAAlC;AAHO;AAAgB;AAXF;AAAd;AAEzB,eAAU,cAAS,CAAkB,uDAAiC,0DAAmB,GAAtE;AAFM;AAAc;AA8CL;AAAT;AAEzB,UAAG,IAAK,KAAE,EAAV,EACE,MAAM,eAAU,QAAC,YADnB;AAEA,UAAG,kBAAc,KAAG,EAApB,EACE,MAAM,kBAAa,QAAC,YADtB;AAEA,UAAG,eAAW,KAAE,CAAhB,EACE,MAAM,eAAU,QAAC,YADnB;AAEA,2BAAiB;AACjB,eAAU;AATe;AAAS;AA3DE;AAAX;AAEzB;AACA,sBAAW,CAAC,KAAD;AACX,8BAAmB,CAAC,KAAD;AACnB,eAAU;AALe;AAAW;AA+EG;AAAd;AAEzB;AACA,sBAAW,CAAC,KAAD;AACX,kBAAO,MAAM,CAAC,GAAD;AACb,kBAAO,MAAM,CAAC,KAAD;AACb,kBAAO,MAAM,CAAC,GAAD;AACb,eAAU;AAPe;AAAc;AAjDF;AAAZ;AAEzB;AACA,sBAAW,CAAC,KAAD;AACX,UAAG,KAAH;AACE,oBAAO,MAAM,CAAC,MAAD;AAEb,YAAA,YAAO,MAAM,CAAC,OAAD;AACb,eAAU;AARa;AAAY;AAyCH;AAAT;AAEzB;AACA,sBAAW,CAAC,KAAD;AACX,kBAAO,MAAM,CAAC,MAAD;AACb,eAAU;AALe;AAAS;AApBE;AAAX;AAEzB;AACA,sBAAW,CAAC,KAAD;AACX,kBAAO,MAAM,CAAC,sCAAY,cAAc,CAAC,KAAD,CAA3B;AACb,eAAU;AALe;AAAW;AAsCC;AAAZ;AAEzB;AACA,sBAAW,CAAC,KAAD;AACX,kBAAO,MAAM,CAAC,qBAAQ,CAAC,KAAD,CAAT;AACb,eAAU;AALe;AAAY;AAjLN;AAE/B,UAAe,CAAX,eAAW,GAAE,CAAF,CAAK,IAAqB,CAAL,CAAX,eAAW,KAAE,CAAF,CAAK,IAAe,CAAV,gBAAU,KAAoB,2DAApB,CAAf,CAAzC,EACE,MAAM,oBAAe,QAAC,YADxB;AAF+B;AAjJd;AA2CF,iEAAE,GAAF,GANK,wDAML;AA3CE;AAlCnB,GAgHc,qBAhHd;A/CAA,uCAeS,kKAfT;;;;AAmDoB,0FAEY,qBACE,uBACA,uBACE,yBACR,kBACA,iBAPR;;AAEY,yCAAU,yBAAyB,+BAAnC;AACE,2CAAU,wBAAV;AACA,2CAAQ,W7B6lBjC,4B6B7lBiC,EAA0B,+BAAlC;AACE,6CAAQ,W7B4lBnC,4B6B5lBmC,CAAR;AACR,sCAAQ,WtCsD3B,2BsCtD2B,EAAwB,6BAAuB,iBtCiMxE,6BsCjMwE,CAAvD;AACA,sCAAQ,WtCqD3B,2BsCrD2B,EAAwB,6BAAuB,iBtCgMxE,6BsChMwE,CAAvD;AAPR;AAUM,gGAEO,sBACD,oBAHN;;AAEO,0CAAQ,WtCgDhC,2BsChDgC,EAAwB,6BAAuB,iBtC2L7E,6BsC3L6E,EAAoB,W+C7BzF,yD/C6ByF,EAAkC,2BAA7G;AACD,yCAAQ,WtC+C/B,2BsC/C+B,EAAwB,6BAAuB,iBtC0L5E,6BsC1L4E,EAAoB,W8CPxF,yD9COwF,EAAiC,0BAA5G;AAHN;AAMP,yFAEM,cAFN;;AAEM,qCtCoCjB,0BsCpCiB;AAFN;AAKO,gGAED,cAFC;;AAED,mCAAiB,4BAA0B,ctC+B5D,2BsC/B4D,EAA3C,EtCqChB,2BsCrCgB;AAFC;AAKD,+FAEL,SAFK;;AAEL,8BAAc,WtCgCzB,4BsChCyB,EAAd,E7BmWH,oC6BnWG;AAFK;AAKH,4FAEW,uBACF,qBACR,aACA,WALD;;AAEW,2CAAa,UtCqBtC,2BsCrBsC,EAAb;AACF,yCAAc,WtC0BpC,4BsC1BoC,EAAd;AACR,iCAAiB,2BAAjB,EtCyBd,2BsCzBc;AACA,gCAAc,WtCwB5B,4BsCxB4B,GAA4B,etCwBxD,4BsCxBwD,EAA1C;AALD;AAQE;;AAUO;;AACC;;AACC;;AACA;;AACD;;AACb;;AACA;;AACC;;AACD;;AAEC,6CtCCX,mCsCDW;AAEmB,4FAAoB,WtCDlD,2BsCCkD,EAAwB,6BAAuB,iBtC0I/F,6BsC1I+F,EAAoB,W+C9E3G,yD/C8E2G,EAAkC,2BAAzH;AACO,mGAAoB,WtCFzD,2BsCEyD,EAAwB,6BAA2B,+BAAvE;AAEb;AAElB;;;AAEX;AACA;AACA;AACA;AACA;AACA;AACA;AARW;;;;;;;;;;AAmlBsB;AAEnC,yBAAe;AACG,yCAAlB,GAAiC;AAHE;AAbO;AAG1C,gCAAsB;AACJ,gDAAlB,GAAwC;AAJE;AAON;AAEpC,0BAAgB;AACE,0CAAlB,GAAkC;AAHE;AAwVI;AAExC;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGA;AAMA,UAAG,uBAAkB,YAAY,CAAC,SAAD,CAAjC;AAEE,oBAAM;AACN;OAHF;AAMA,UAAK;AACL,UAAK;AACL,UAAK,uBAAkB,gBAAgB,CAAC,CAAD;AACvC,cAAS,uBAAkB,gBAAgB,CAAC,CAAD;AAEtC;AACH,UADG,IACH;AAEE,aAAM,uBAAkB,oBAAoB,CAAC,CAAD;AAC5C,YAAO,CAAH,EAAG,KAAE,aAAF,CAAoC,IAAZ,CAAH,EAAG,KAAE,QAAF,CAAP,IAA0B,CAAH,EAAG,KAAE,gBAAF,CAAlD;AAEE,cAAG,wBAAU,CAAC,EAAG,CAAJ,CAAO,KAAE,EAAtB;AACE,wBAAM,YAAY,CAAC,QAAD;;AAGlB,gBAA6B,wBAAU,CAAC,EAAG,CAAJ;AACvC,wBAAM,YAAY,CAAC,mBAAa,CAAC,CAAD,CAAd;;SAIpB,MAAA,YAAM,aAAa,CAAC,wBAAU,CAAC,EAAG,CAAJ,CAAX;OAE+B,WAjBnD,IAiBmD,qCAAQ,CAjB3D,IAiB2D,mCAAR;AAAmD,oBAAM,YAAY,CAAC,wBAAU,CAAC,EAAG,CAAJ,CAAX;AAC3H,gBAlBG,IAkBH;AACE,YAAG,uBAAkB,wBAAwB,CAAC,CAAD,CAAI,gBAAjD;AACE,sBAAM,aAAa,CAAS,wBAAU,CAAC,EAAG,CAAJ,CAAX,KAAR;AAEnB,cAAA,YAAM,aAAa,CAAC,wBAAU,CAAC,EAAG,CAAJ,CAAX;AAKvB,gBA3BG,IA2BH;AAAQ,oBAAM,aAAa,CAAC,yBAAW,CAAC,EAAG,CAAJ,CAAZ;AAE3B,gBA7BG,IA6BH;AAAS,oBAAM,YAAY,CAAC,0BAAY,CAAC,EAAG,CAAJ,CAAb;AAI3B,gBAjCG,IAiCH;AAAO,oBAAM,aAAa,CAAC,wBAAU,CAAC,EAAG,CAAJ,CAAX;AAG1B,gBApCG,IAoCH;AAEE,aAAM,4BAAc,CAAC,EAAG,CAAJ;AACpB,YAAG,kBAAW,CAAC,EAAD,CAAK,IAAG,aAAM,CAAC,EAAD,CAA5B;AACE,sBAAM;AACH,kBAAG,YAAQ,CAAC,EAAD,CAAX;AAEH,cAAG,eAAI,CAAO,cAAC,EAAD,CAAP,CAAY,KAAC,CAApB;AACE,wBAAM,aAAa,CAAU,UAAC,EAAD,CAAV;AAEnB,gBAAA,YAAM,YAAY,CAAO,cAAC,EAAD,CAAP;SAEjB,UAAG,gBAAS,CAAC,EAAD,CAAZ;AACH,sBAAM,aAAa,CAAQ,EAAC,EAAD,UAAR;AAChB,kBAAG,YAAQ,CAAC,EAAD,CAAX;AACH,sBAAM,YAAY,CAAO,KAAC,EAAR;AAElB,cAAA,YAAM;OA8BV,UAnFG,IAmFH;AAEE,kBAAK,yBAAa,CAAC,EAAG,CAAJ,CAAlB;AACA,YAAG,CAAC,KAAM,KAAE,IAAZ;AACE,sBAAM;;AAGN,cAAY,uBAAkB,YAAnB,QAAX;AACE,wBAAM,YAAY,CAAC,uBAAkB,YAAW,OAAC,WAAU,CAAC,CAAC,KAAF,CAAzC;AAElB,gBAAA,YAAM;;;AAKV,aAAM,uBAAkB,YAAY,CtC/5B/B,8BsC+5B6D,CAA9B;AACpC,oBAAM;;AAIV,UAAS,4BAAH,eAAF,CAAE,CAAU,IAAW,CAAN,KAAM,KAAE,MAAF,CAA3B;AAEE,oBAAM,UAAU,CAAC,OAAD;AAChB,oBAAM,aAAa,CAA2B,KAA3B;OAHrB;AApIwC;AA4IH;AAQrC;AACA;AAEA;AAEA,UAAY,OAAD,QAAX;AAQE,aAAe,OAAD;AAEd;AAOE,cAAK,uBAAW,CAAC,GAAI,iBjCz1B+D,IiCy1BpE;AAChB,mBAAS,QAAe,OAAJ,WAAC,CAAD,CAAI,GAAE,CAAF,kBAAxB;AAAI;AACF,8BAAa,CAAC,QAAS,CAAC,CAAC,CAAD,CAAX;;AATjB;;OAVF;AAbqC;AA0CF;AAEnC;AACA;AACA;AAAG;AAAG;AACN;AACA;AACA;AAPmC;AASnC,YAAG,CAAY,CAAC,KAAD,SAAf,EACE,MADF;AAGA,gBAAS,uBAAkB,gBAAgB,CAAC,KAAD;AAC3C,YAAK,uBAAkB,gBAAgB,CAAC,KAAD;AAEvC,YAAK,sCAAY,mBAAmB,CAAC,MAAO,uBAAkB,mBAA1B,CAA8C,KAAE,CAAC,CAAH;AAClF,YAAG,uBAAQ,CAAC,QAAS,8BAAoB;;;;YAA9B,CAAX,EACE,IAAK,CAAC,gBAAgB,CAAC,QAAS,MAAO,CAAjB,CADxB;AAGA,YAAG,CAAH;AAEE,cAAK;AACL,cAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,QAAS,MAAO,EAAG,aAAQ;;;;cAA5B,CADvB;AAGA,cAAG,CAAE,IAAI,uBAAQ,CAAC,QAAS,oCAA0B;;;;cAApC,CAAjB,EACE,GAAG,oBAAoB,CAAC,QAAS,MAAO,EAAG,aAAQ;;;;cAA5B,CADzB;AAGA,cAAG,CAAH;AAEE,wBAAM,UAAU,CAAC,KAAD;AAEhB,gBAAG,CAAE,IAAG,cAAC,4BAAD,CAAR;AAEE,kBAAK,yBAAa,CAAC,QAAS,KAAV;AAElB,mBAAM,uBAAkB,qBAAqB,CAAC,QAAS,KAAV;AAE7C,kBAAY,kCAAD,QAAX,EACE,kCAA4B,CAAC,QAAS,MAAO;;;;kBAAjB,CAD9B;AAGA,kBAAG,EAAH;AAEE,oBAAQ,sBAAH,eAAF,CAAE,CAAL;AACE,8BAAM,YAAY,CAAI,OAAF,EAAK,sBAAH,CAAc,MAAlB;AAElB,sBAAA,YAAM,YAAY,CAAC,EAAD;eAGpB,MAAA,gBAAW,CAAC,CAAD;aAGb,MAAA,uBAAkB,CAAC,QAAS,KAAV;WAxBtB;SATF;AAnBmC;AAKnC;AACA;AANmC;;AA7VS;AAE5C;AAEA,kBAAM;AACN,eAAS,QAAiB,OAAZ,KAAK,QAAO,GAAE,CAAF,kBAA1B;AAAI;AACF,8BAAiB,CAAC,KAAK,SAAC,CAAD,CAAN;;AACnB,kBAAM;AAPsC;AAUA;AAE5C;AAEA,kBAAM;AACN,eAAS,QAAiB,OAAZ,KAAK,QAAO,GAAE,CAAF,kBAA1B;AAAI;AACF,oBAAM,YAAY,CAAC,KAAK,SAAC,CAAD,CAAN;;AACpB,kBAAM;AAPsC;AApBC;AAE7C;AAEA,kBAAM;AACN,eAAS,QAAiB,OAAZ,KAAK,QAAO,GAAE,CAAF,kBAA1B;AAAI;AACF,oBAAM,aAAa,CAAC,KAAK,SAAC,CAAD,CAAN;;AACrB,kBAAM;AAPuC;AAVD;AAE5C;AAEA,kBAAM;AACN,eAAS,QAAiB,OAAZ,KAAK,QAAO,GAAE,CAAF,kBAA1B;AAAI;AACF,oBAAM,YAAY,CAAC,KAAK,SAAC,CAAD,CAAN;;AACpB,kBAAM;AAPsC;AAgLV;AAElC;AAEA,kBAAM;AACN,eAAS,QAAiB,OAAZ,KAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AACF,oBAAM,YAAY,CAAC,KAAK,KAAC,CAAD,CAAN;;AACpB,kBAAM;AAP4B;AAjUsB;AAQxD;AAGA,kBAAM;AAON,UAAsB,MAAX,WAAW,QAAC,EAAD;AAAlB;;;AAGF,sBAAM;AACN,sBAAM,UAAU,CAAC,GAAD;AAChB,gCAAiB,CAAC,WAAW,SAAC,GAAD,CAAZ;AACjB,sBAAM;;AANJ;AAAkB;AAAlB;AAQJ,kBAAM;AA1BkD;AA6BC;AAQzD;AAGA,kBAAM;AAON,UAAsB,MAAX,WAAW,QAAC,EAAD;AAAlB;;;AAGF,sBAAM;AACN,sBAAM,UAAU,CAAC,qBAAQ,CAAC,GAAD,CAAT;AAChB,gCAAiB,CAAC,WAAW,SAAC,GAAD,CAAZ;AACjB,sBAAM;;AANJ;AAAkB;AAAlB;AAQJ,kBAAM;AA1BmD;AA6BC;AAQ1D;AAGA,kBAAM;AAON,UAAsB,MAAX,WAAW,QAAC,EAAD;AAAlB;;;AAGF,sBAAM;AACN,sBAAM,UAAU,CAAC,qBAAQ,CAAC,GAAD,CAAT;AAChB,sBAAM,aAAa,CAAC,WAAW,SAAC,GAAD,CAAZ;AACnB,sBAAM;;AANJ;AAAkB;AAAlB;AAQJ,kBAAM;AA1BoD;AA6BA;AAQ1D;AAGA,kBAAM;AAON,UAAsB,MAAX,WAAW,QAAC,EAAD;AAAlB;;;AAGF,sBAAM;AACN,sBAAM,UAAU,CAAC,qBAAQ,CAAC,GAAD,CAAT;AAChB,sBAAM,aAAa,CAAC,WAAW,SAAC,GAAD,CAAZ;AACnB,sBAAM;;AANJ;AAAkB;AAAlB;AAQJ,kBAAM;AA1BoD;AA6BD;AAQzD;AAGA,kBAAM;AAON,UAAsB,MAAX,WAAW,QAAC,EAAD;AAAlB;;;AAGF,sBAAM;AACN,sBAAM,UAAU,CAAC,qBAAQ,CAAC,GAAD,CAAT;AAChB,sBAAM,YAAY,CAAC,WAAW,SAAC,GAAD,CAAZ;AAClB,sBAAM;;AANJ;AAAkB;AAAlB;AAQJ,kBAAM;AA1BmD;AAkHpB;AAErC;AAEA,kBAAM;AACN,eAAS,QAAuB,OAAlB,WAAW,SAAC,EAAM,GAAE,CAAF,kBAAhC;AAAI;AACF,8BAAiB,CAAC,WAAW,QAAM,CAAC,CAAD,CAAlB;;AACnB,kBAAM;AAP+B;AAUN;AAE/B;AAEA,kBAAM;AACN,eAAS,QAAiB,OAAZ,KAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AACF,8BAAiB,CAAQ,cAAC,KAAK,KAAC,CAAD,CAAN,CAAR;;AACnB,kBAAM;AAPyB;AArCE;AAMjC,UAAG,uCAAa,CAAC,OAAD,CAAhB;AAEE,oBAAO,YAAY,CAAC,EAAD;AACnB;OAHF;AAiBA,kBAAO,YAAY,CAAC,OAAO,QAAC,EAAT;AAvBc;AA0GM;AAEvC,kBAAM;AACN,UAAG,uBAAkB,kBAAmB,KAAG,EAA3C;AAEE,oBAAM,UAAU,CAAC,uBAAkB,kBAAnB;AAChB,oBAAM,YAAY,CAAC,OAAO,WAAR;OAHpB;AAKA,0BAAe,CAAC,OAAD;AACf,kBAAM;AATiC;AA3DN;AAEjC;AAFiC;AAIjC,YAAG,OAAQ,KAAE,IAAb;AACE,sBAAM;;AAGN,cAAG,uBAAkB,cAAc,CAAC,OAAO,OAAC,aAAW,QAApB,CAAnC;AACE,uCAAsB,CAAmB,OAAnB;AACnB,oBAAG,uBAAkB,cAAc,CAAC,OAAO,OAAC,aAAW,SAApB,CAAnC;AACH,wCAAuB,CAAoB,OAApB;AACpB,oBAAG,uBAAkB,cAAc,CAAC,OAAO,OAAC,aAAW,QAApB,CAAnC;AACH,uCAAsB,CAAmB,OAAnB;AACnB,oBAAG,uBAAkB,cAAc,CAAC,OAAO,OAAC,aAhsBY,EAgsBrB,CAAnC;AACH,uCAAsB,CAAmB,OAAnB;AACnB,oBAAG,uBAAkB,0BAA0B,CAAC,OAAO,OAAC,YAAT,CAA/C;AAEH,gBAAG,uBAAkB,mCAAmC,CAAC,OAAO,OAAC,YAAT,CAAxD;AACE,qDAAkC,CAA+B,OAA/B;AAElC,kBAAA,YAAM;WAEL,UAAG,uBAAkB,2BAA2B,CAAC,OAAO,OAAC,YAAT,CAAhD;AAEH,gBAAG,uBAAkB,mCAAmC,CAAC,OAAO,OAAC,YAAT,CAAxD;AACE,sDAAmC,CAAgC,OAAhC;AAChC,sBAAG,uBAAkB,oCAAoC,CAAC,OAAO,OAAC,YAAT,CAAzD;AACH,uDAAoC,CAAiC,OAAjC;AACjC,sBAAG,uBAAkB,oCAAoC,CAAC,OAAO,OAAC,YAAT,CAAzD;AACH,uDAAoC,CAAiC,OAAjC;AACjC,sBAAG,uBAAkB,mCAAmC,CAAC,OAAO,OAAC,YAAT,CAAxD;AACH,sDAAmC,CAAgC,OAAhC;AAEnC,kBAAA,YAAM;WAEL,UAAG,uBAAkB,OAAO,CAAC,OAAO,OAAC,YAAT,CAA5B;AACH,0BAAS,CAAO,OAAP;AACN,oBAAG,uBAAkB,aAAa,CAAC,OAAO,OAAC,YAAT,CAAlC;AACH,gCAAe,CAAa,OAAb;AACZ,oBAAG,uBAAkB,SAAS,CAAC,OAAO,OAAC,YAAT,CAA9B;AACH,4BAAW,CAAe,OAAf;AACR,oBAAG,uBAAkB,kBAAkB,CAAC,OAAO,OAAC,aAAW,CAAC,UAAD,CAApB,CAAvC;AACH,6BAAY,CAAU,OAAV;;AAGZ,gBAAW,CAAC,iBAAD,SAAc,IAAI,uBAAQ,CAAC,kBAAa,gCAAsB;;;;gBAApC,CAArC;AAEE,kBAAG,CAAC,qBAAqB,CAAC,OAAO,OAAC,YAAT,CAAzB;AACE,4BAAM,YAAY,CAAC,CAAC,mBAAmB,CAAC,OAAD,CAArB;AAElB,oBAAA,sBAAiB,CAAC,OAAD;aAGnB,MAAA,sBAAiB,CAAC,OAAD;;;AAtDU;AAEjC;AAFiC;;AAlSH;AAE9B,qBAAW,gDAAiB,QAAC,YAAM,CAAC,OAAD,CAAN;AAC7B,wBAAc;AAHmC;AAAnB;AAMA;AAE9B,qBAAW;AACX,wBAAc;AAH6C;AAA7B;AAMA;AAE9B,UAAG,eAAH;AACE,uBAAW;AAEX,YAAQ,SAAR,KAAQ;AACV;AAN8B;AAqNH;AAE3B,sBAAW,CAAC,OAAD;AAFgB;AAKK;AAEhC;AAEA,kBAAM;AACN,kBAAM,UAAU,CAAC,KAAD;AAChB,kBAAM;AACN,eAAS,QAAoB,OAAT,WAAC,MAAD,CAAS,GAAE,CAAF,kBAA7B;AAAI;AACF,8BAAiB,CAAC,MAAM,CAAC,CAAD,CAAP;;AACnB,kBAAM;AACN,kBAAM;AAV0B;AAvxBnB;AA8CuB,2FAAoB,WtCpDjD,2BsCoDiD,EAAwB,6BAAuB,iBtCuF9F,6BsCvF8F,EAAoB,W8C1G1G,yD9C0G0G,EAAiC,0BAAxH;AAEd;;;AAEpB;AACA;AACA;AAJoB;;;;;;AA6lEiB;AAGvC,sBAAY;AACZ,kBAAQ;AACR,gBAAM;AAJyC;AADR;AA7lEjB;AAUT;;;AAEX;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATW;;;;;;;;;;;AAqnCwB;AAAhB;AAErB;AACA;AACA;AAJqC;AAMrC,oBAAM;AACN,YAAG,uBAAkB,kBAAmB,KAAG,EAA3C;AAEE,cAAG,CAAI,YAAM,UAAS,IAAoB,CAAhB,YAAM,WAAU,KAAG,uBAAkB,kBAArB,CAA1C,EACE,MAAM,2BAAsB,QAAC,YAAM,CAAC,GAAwC,GAApC,uBAAkB,kBAAnB,GAAsC,4CAA1C,CAAN,CAD/B;AAGA,eAAM,YAAM;SALd;AAQA,YAAG,EAAG,KAAE,EAAR,EACE,KAAM,UAAU,WADlB;AAGA,iBAAU;AAEV,YAAY,iBAAD,QAAX;AAEE,cAAG,uBAAQ,CAAC,kBAAc,oCAA0B;;;;cAAzC,CAAX;AACE,qBAAU,CAAC,aAAa,CAAC,GAAI,UAAL;AACrB,oBAAG,uBAAQ,CAAC,kBAAc,gCAAsB;;;;cAArC,CAAX,EACH,SAAU,CAAC,aAAa,CAAC,GAAI,UAAL,CADrB;SAJP;AAQA,YAAG,CAAY,CAAC,MAAD,SAAf,EACE,SAAU,uBAAkB,aAAa,CAAC,GAAI,UAAL,CAD3C;AAGA;AACE,6BAAc,CAAC,MAAD;AACd,sBAAM;AAFR;AAIE,gBAAO,eAAP,MAAO;AACP;AALF;AA/BqC;AAGrC;AACA;AAJqC;AAAhB;AAAgB;AAo8BF;AAEnC,yBAAe;AACG,yCAAlB,GAAiC;AAHE;AAbO;AAG1C,gCAAsB;AACJ,gDAAlB,GAAwC;AAJE;AAON;AAEpC,0BAAgB;AACE,0CAAlB,GAAkC;AAHE;AA5CE;AAEtC,kBAAM;AACN,UAAG,uBAAkB,kBAAmB,KAAG,EAA3C;AAEE,YAAG,CAAI,YAAM,UAAS,IAAoB,CAAhB,YAAM,WAAU,KAAG,uBAAkB,kBAArB,CAA1C,EACE,MAAM,2BAAsB,QAAC,YAAM,CAAC,GAAwC,GAApC,uBAAkB,kBAAnB,GAAsC,4CAA1C,CAAN,CAD/B;AAEA,oBAAM;OAJR;AAOA;AACE,2BAAc,CAAC,OAAD;AACd,oBAAM;AAFR;AAIE;AAJF;AAVsC;AA/UF;AAEpC;AAEA,aAAM,YAAM,UAAZ;AAEE,YAAG,CAAI,YAAM,SAAb;AAEE,iBAAQ;AACR,cAAY,OAAD,QAAX,EACE,OAAQ,yBAAW,CAAC,QAAS,YAAM,WAAhB,CADrB;AAEA,cAAY,IAAD,QAAX;AACE,6BAAY,CAAC,QAAS,IAAV;AAEZ,gBAAA,YAAM;SAGR,MAAA,YAAM;;AAjB0B;AAqBF;AAElC;AACA;AACA;AACA;AACA;AACA;AACA;AAAG;AACH;AACA;AACA;AAXkC;AAalC,YAAG,CAAY,CAAC,KAAD,SAAf,EACE,MADF;AAGA,YAAK,uBAAkB,gBAAgB,CAAC,KAAD;AACvC,gBAAS,uBAAkB,gBAAgB,CAAC,KAAD;AAE3C,YAAK,sCAAY,mBAAmB,CAAC,MAAO,uBAAkB,mBAA1B,CAA8C,KAAE,CAAC,CAAH;AAClF,YAAG,uBAAQ,CAAC,QAAS,8BAAoB;;;;YAA9B,CAAX,EACE,IAAK,CAAC,gBAAgB,CAAC,QAAS,MAAO,CAAjB,CADxB;AAGA,YAAG,CAAH;AAEE,cAAK;AACL,cAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,QAAS,MAAO,EAAG,aAAQ;;;;cAA5B,CADtB;AAGA,cAAG,CAAE,IAAI,uBAAQ,CAAC,QAAS,oCAA0B;;;;cAApC,CAAjB,EACE,GAAG,mBAAmB,CAAC,QAAS,MAAO,EAAG,aAAQ;;;;cAA5B,CADxB;AAGA,cAAG,CAAH;AAEE,gBAAG,CAAE,IAAG,cAAC,4BAAD,CAAR;AAEE,mBAAM,uBAAkB,iCAAiC,CAAC,KAAD;AACzD,kBAAG,uBAAkB,cAAc,CAAC,GAAI,QAAL,CAAnC;AACE,0CAAqB,CAAmB,yBAAa,CAAC,QAAS,KAAV,CAAhC;AAClB,wBAAG,uBAAkB,cAAc,CAAC,GAAI,QAAL,CAAnC;AACH,0CAAqB,CAAmB,yBAAa,CAAC,QAAS,KAAV,CAAhC;AAClB,wBAAG,uBAAkB,cAAc,CAAC,GAAI,SAAL,CAAnC;AACH,2CAAsB,CAAoB,yBAAa,CAAC,QAAS,KAAV,CAAjC;AACnB,wBAAG,uBAAkB,cAAc,CAAC,GAjpDgB,EAipDjB,CAAnC;AACH,0CAAqB,CAAmB,yBAAa,CAAC,QAAS,KAAV,CAAhC;AAClB,wBAAG,uBAAkB,0BAA0B,CAAC,EAAD,CAA/C;AAEH,oBAAG,uBAAkB,mCAAmC,CAAC,EAAD,CAAxD;AACE,wDAAiC,CAA+B,yBAAa,CAAC,QAAS,KAAV,CAA5C;AAEjC,sBAAA,YAAM;eAEL,UAAG,uBAAkB,2BAA2B,CAAC,EAAD,CAAhD;AAEH,oBAAG,uBAAkB,mCAAmC,CAAC,EAAD,CAAxD;AACE,yDAAkC,CAAgC,yBAAa,CAAC,QAAS,KAAV,CAA7C;AAC/B,0BAAG,uBAAkB,oCAAoC,CAAC,EAAD,CAAzD;AACH,0DAAmC,CAAiC,yBAAa,CAAC,QAAS,KAAV,CAA9C;AAChC,0BAAG,uBAAkB,oCAAoC,CAAC,EAAD,CAAzD;AACH,0DAAmC,CAAiC,yBAAa,CAAC,QAAS,KAAV,CAA9C;AAChC,0BAAG,uBAAkB,mCAAmC,CAAC,EAAD,CAAxD;AACH,yDAAkC,CAAgC,yBAAa,CAAC,QAAS,KAAV,CAA7C;AAElC,sBAAA,YAAM;eAEL,UAAG,uBAAkB,OAAO,CAAC,EAAD,CAA5B;AACH,6BAAQ,CAAO,yBAAa,CAAC,QAAS,KAAV,CAApB;AACL,wBAAG,uBAAkB,aAAa,CAAC,EAAD,CAAlC;AACH,mCAAc,CAAa,yBAAa,CAAC,QAAS,KAAV,CAA1B;AACX,wBAAG,uBAAkB,SAAS,CAAC,EAAD,CAA9B;AACH,+BAAU,CAAe,yBAAa,CAAC,QAAS,KAAV,CAA5B;AACP,wBAAG,uBAAkB,kBAAkB,CAAC,GAAI,CAAC,UAAD,CAAL,CAAvC;AACH,gCAAW,CAAU,yBAAa,CAAC,QAAS,KAAV,CAAvB;;AAGX,oBAAK;AACL,oBAAW,CAAC,iBAAD,SAAc,IAAI,uBAAQ,CAAC,kBAAa,gCAAsB;;;;oBAApC,CAArC,EACE,IAAK,GAAG,qBAAqB,CAAC,EAAD,CAD/B;AAGA,oBAAG,CAAH;AAEE,sBAAG,YAAM,SAAT;AAEE,gCAAM;AACN,6CAAa,CAAC,QAAS,MAAO,IAAjB;mBAGb,MAAA,gBAAW,IAAI,CAAC,2BAAsB,QAAC,YAAM,CAAC,QAAS,MAAO,YAAM,aAAvB,CAAN,CAAxB;;AAIjB,sBAAK,yBAAa,CAAC,QAAS,KAAV;AAElB,uBAAM,uBAAkB,qBAAqB,CAAC,QAAS,KAAV;AAC7C,sBAAY,kCAAD,QAAX,EACE,kCAA4B,CAAC,QAAS,MAAO;;;;sBAAjB,CAD9B;AAGA,sBAAG,EAAH;AAEE,wBAAK,YAAM;AACX,wBAAW,CAAC,gBAAD,SAAc,IAAoB,sBAAH,eAAZ,gBAAY,CAA1C,EACE,yBAAa,CAAC,QAAS,MAAoB,OAAZ,iBAAe,sBAAH,CAAc,cAAc,CAAC,CAAD,CAA1D,CADf;mBAIA,MAAA,uBAAkB,CAAC,CAAD;;;aAKxB,MAAA,sBAAiB,CAAC,QAAS,KAAV;WA7ErB;SAiFA,MAAA,YAAM;AAjH0B;AAKlC;AAMA;AALA;AANkC;;AAqHK;AAEvC;AAAO;AAAI;AAAK;AAChB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGA;AAMA,UAAG,uBAAkB,YAAY,CAAC,SAAD,CAAY,IAAG,YAAM,SAAtD;AAEE,oBAAM;AACN;OAHF;AAMA,UAAK;AACL,UAAK;AACL,cAAS,uBAAkB,gBAAgB,CAAC,CAAD;AAC3C,iBAAK,uBAAkB,gBAAgB,CAAC,CAAD,MAAvC;AAEK;AACH,UADG,IACH;AAEE,aAAM,uBAAkB,oBAAoB,CAAC,CAAD;AAC5C,YAAO,CAAH,EAAG,KAAE,aAAF,CAAoC,IAAZ,CAAH,EAAG,KAAE,QAAF,CAAP,IAA0B,CAAH,EAAG,KAAE,gBAAF,CAAlD;AAEE,gBAAO,YAAM;AACb,cAAG,CAAI,uBAAkB,WAAW,CAAC,CAAD,CAApC;AAEE,gBAAG,GAAI,KAAE,QAAT;AACE,oCAAU,CAAC,EAAG,MAAO,EAAX;;AAIV,oCAAU,CAAC,EAAG,MAAO,mBAAa,CAAC,GAAD,CAAxB;;WAPd;;AAcA,qBAAK,YAAM,qCAAX;AACA,cAAG,CAAI,uBAAkB,WAAW,CAAC,CAAD,CAApC,EACE,wBAAU,CAAC,EAAG,EAAG,CAAP,CADZ;;OAIkD,WA1BnD,IA0BmD,qCAAQ,CA1B3D,IA0B2D,mCAAR;AAEpD,YAAK,YAAM;AACX,YAAG,CAAI,uBAAkB,WAAW,CAAC,CAAD,CAApC,EACE,wBAAU,CAAC,EAAG,EAAG,CAAP,CADZ;OAGF,UAhCG,IAgCH;AACE,YAAG,uBAAkB,wBAAwB,CAAC,CAAD,CAAI,gBAAjD;AAEE,cAAK,YAAM;AACX,cAAG,CAAI,uBAAkB,WAAW,CAAC,CAAD,CAApC,EACE,wBAAU,CAAC,EAAG,EAAU,CAAC,IAAD,MAAd,CADZ;;AAKA,qBAAK,YAAM,qCAAX;AACA,cAAG,CAAI,uBAAkB,WAAW,CAAC,CAAD,CAApC,EACE,wBAAU,CAAC,EAAG,EAAG,CAAP,CADZ;;AAIJ,gBA9CG,IA8CH;AAEE,YAAK,YAAM;AACX,YAAG,CAAI,uBAAkB,WAAW,CAAC,CAAD,CAApC;AAKE,mCAAW,CAAC,EAAG,EAAG,CAAP;SALb;OAUF,UA3DG,IA2DH;AAEE,YAAK,YAAM;AACX,YAAG,CAAI,uBAAkB,WAAW,CAAC,CAAD,CAApC,EACE,0BAAY,CAAC,EAAG,EAAG,CAAP,CADd;OAWF,UAzEG,IAyEH;AAEE,mBAAK,YAAM,qCAAX;AACA,YAAG,CAAI,uBAAkB,WAAW,CAAC,CAAD,CAApC,EACE,wBAAU,CAAC,EAAG,EAAG,CAAP,CADZ;OAIa,UAhFZ,IAgFY;AAGb,aAAM;AAKN,YAAG,YAAM,YAAT;AACE,eAAM,YAAM;AACT,kBAAG,YAAM,WAAT;AACH,eAAM,YAAM;AACT,kBAAG,YAAM,aAAT;AACH,eAAM,YAAM;AACT,kBAAG,YAAM,YAAT;AACH,eAAM,YAAM;AAEZ,cAAA,YAAM;AAER,YAAG,CAAI,uBAAkB,WAAW,CAAC,CAAD,CAApC;AAGE,sCAAc,CAAC,EAAG,EAAG,EAAP;SAHhB;OAUF,UA7GG,IA6GH;AAEE,SAAC,KAAD,GAAU;AACV,SAAC,KAAD,GAAU;AACV,YAAG,YAAM,SAAT;AACE,sBAAM;;AAGN,cAAY,uBAAkB,YAAnB,QAAX;AAEE,gBAAK,YAAM;AACX,aAAC,KAAD,GAAU,uBAAkB,YAAW,OAAC,cAAa,CAAC,CAAD;AACrD,gBAAG,CAAC,KAAM,KAAG,IAAb,EACE,CAAC,KAAD,GAAU,uBAAkB,YAD9B;WAIA,MAAA,YAAM;;AAGV,iCAAa,CAAC,EAAG,EAAG,CAAP;;AAIb,aAAM,uBAAkB,YAAY,CtC55D/B,8BsC45D6D,CAA9B;AACpC,oBAAM;;AAIV,UAAS,4BAAH,eAAF,CAAE,CAAU,IAAW,CAAN,KAAM,KAAE,MAAF,CAA3B;AAEE,YAAG,YAAM,UAAT;AAEE,cAAK,YAAM;AACX,cAAG,CAAE,KAAE,OAAP;AAEE,wBAAM;AACN,kBAAO,YAAM;AACb,gBAAG,GAAH;AAGK,qBAAF,EAAK,4BAAH,CAAS,QAAC,CAAQ,UAAK,CAAoB,CAAf,OAAF,EAAK,4BAAH,CAAS,MAAM,GAAE,EAAF,CAAM,GAAE,EAA5B,CAAb;aAHf;WAJF;SAHF;OAFF;AA1KuC;AArqBC;AAExC,UAAY,OAAD,QAAX;AAEE,YAAG,CAAI,YAAM,SAAb;AAEE,sBAAM;AACN,cAAG,uBAAkB,kBAAmB,KAAG,EAA3C;AAEE,gBAAG,CAAI,YAAM,UAAS,IAAoB,CAAhB,YAAM,WAAU,KAAG,uBAAkB,kBAArB,CAA1C,EACE,MAAM,2BAAsB,QAAC,YAAM,CAAC,GAAwC,GAApC,uBAAkB,kBAAnB,GAAsC,4CAA1C,CAAN,CAD/B;AAGA,wBAAM;WALR;AAQA,6BAAc,CAAC,OAAD;AACd,sBAAM;SAGN,MAAA,YAAM;OAGR,MAAA,YAAM;AAtBgC;AAiOG;AAE3C;AAEA,WAAK;AACL,kBAAM;AACN,aAAM,YAAM,UAAZ;AAEE,YAAG,CAAI,YAAM,SAAb;AAEE,gBAAO,YAAM;AACb,eAAK,IAAI,CAAC,GAAD;SAGT,MAAA,YAAM;;AAEV,kBAAM;AAhBqC;AAsCA;AAE3C;AAEA,WAAK;AACL,kBAAM;AACN,aAAM,YAAM,UAAZ;AAEE,YAAG,CAAI,YAAM,SAAb;AAEE,gBAAO,YAAM;AACb,eAAK,IAAI,CAAC,GAAD;SAGT,MAAA,YAAM;;AAEV,kBAAM;AAhBqC;AAnBC;AAE5C;AAEA,WAAK;AACL,kBAAM;AACN,aAAM,YAAM,UAAZ;AAEE,YAAG,CAAI,YAAM,SAAb;AAEE,gBAAO,YAAM;AACb,eAAK,IAAI,CAAC,GAAD;SAGT,MAAA,YAAM;;AAEV,kBAAM;AAhBsC;AAwoBX;AAEjC;AAEA,WAAK;AACL,kBAAM;AACN,aAAM,YAAM,UAAZ;AAEE,YAAG,CAAI,YAAM,SAAb;AAEE,gBAAO,YAAM;AACb,eAAK,IAAI,CAAC,GAAD;SAGT,MAAA,YAAM;;AAEV,kBAAM;AAhB2B;AAlmBU;AAE3C;AACA;AACA;AACA;AACA;AAN2C;AAQ3C,YAAG,uBAAQ,CAAC,MAAO,6BAAmB;;;;YAA3B,CAAX;AACE,cAAK,CAAC;AAEN,kBAAK,uBAAkB,mBAAmB,CAAC,KAAK,OAAC,YAAP;AAE5C,aAAM;AACN,oBAAM;AACN,YAAG,CAAI,YAAM,UAAb;AACE,eAAK;;AAGL,iBAAM,YAAM,UAAZ;AAEE,gBAAG,CAAI,YAAM,SAAb;AAEE,oBAAO,qBAAgB,CAAC,CAAD;AACvB,kBAAY,GAAD,QAAX;AAEE,oBAAG,CAAI,EAAP;AAEE,uBAAK;AACL,uBAAM;iBAHR;AAMA,oBAAW,CAAC,iBAAD,SAAc,IAAI,uBAAQ,CAAC,kBAAa,gCAAsB;;;;oBAApC,CAArC,EACE,CAAC,UAAU,CAAC,IAAK,KAAN,CADb;AAGA,qBAAK,IAAI,CAAC,GAAD;eAXX;aAeA,MAAA,YAAM;;;AAGZ,oBAAM;AA1CqC;AAK3C;AAFA;AAH2C;;AAjQY;AAEvD;AACA;AACA;AACA;AACA;AANuD;AAQvD,YAAG,uBAAQ,CAAC,YAAa,6BAAmB;;;;YAAjC,CAAX;AACE,cAAK,CAAC;AAEN,kBAAK,uBAAkB,8BAA8B,CAAC,WAAW,OAAC,YAAb;AAEvD,aAAM;AACN,mBAAW;AACX,oBAAM;AACN,YAAG,CAAI,YAAM,UAAb;AACE,qBAAW;;AAGX,iBAAM,YAAM,UAAZ;AAEE,gBAAG,CAAI,YAAM,SAAb;AAEE,0BAAM;AACN,kBAAK,YAAM;AACX,oBAAO,qBAAgB,CAAC,CAAD;AACvB,kBAAY,GAAD,QAAX;AAEE,oBAAG,CAAI,EAAP;AAEE,6BAAW;AACX,uBAAM;iBAHR;AAMA,2BAAW,IAAI,CAAC,EAAG,GAAJ;eARjB;AAUA,0BAAM;aAGN,MAAA,YAAM;;;AAGZ,oBAAM;AA3CiD;AAKvD;AALuD;;AA8CC;AAExD;AACA;AACA;AACA;AACA;AANwD;AAQxD,YAAG,uBAAQ,CAAC,YAAa,6BAAmB;;;;YAAjC,CAAX;AACE,cAAK,CAAC;AAEN,kBAAK,uBAAkB,8BAA8B,CAAC,WAAW,OAAC,YAAb;AAEvD,aAAM;AACN,mBAAW;AACX,oBAAM;AACN,YAAG,CAAI,YAAM,UAAb;AACE,qBAAW;;AAGX,iBAAM,YAAM,UAAZ;AAEE,gBAAG,CAAI,YAAM,SAAb;AAEE,0BAAM;AACN,sCAAW,CAAC,YAAM,YAAW;;;;kBAAlB;AACX,oBAAO,qBAAgB,CAAC,CAAD;AACvB,kBAAY,GAAD,QAAX;AAEE,oBAAG,CAAI,EAAP;AAEE,6BAAW;AACX,uBAAM;iBAHR;AAMA,2BAAW,IAAI,CAAC,EAAG,GAAJ;eARjB;AAUA,0BAAM;aAGN,MAAA,YAAM;;;AAGZ,oBAAM;AA3CkD;AAKxD;AALwD;;AAsHC;AAEzD;AACA;AACA;AAEA,WAAM;AACN,iBAAW;AACX,kBAAM;AACN,UAAG,CAAI,YAAM,UAAb;AACE,mBAAW;;AAGX,eAAM,YAAM,UAAZ;AAEE,cAAG,CAAI,YAAM,SAAb;AAEE,wBAAM;AACN,oCAAW,CAAC,YAAM,YAAW;;;;gBAAlB;AACX,kBAAO,YAAM;AACb,gBAAG,CAAI,EAAP;AAEE,yBAAW;AACX,mBAAM;aAHR;AAMA,uBAAW,IAAI,CAAC,EAAG,GAAJ;AACf,wBAAM;WAGN,MAAA,YAAM;;;AAGZ,kBAAM;AAjCmD;AApCA;AAEzD;AACA;AACA;AAEA,WAAM;AACN,iBAAW;AACX,kBAAM;AACN,UAAG,CAAI,YAAM,UAAb;AACE,mBAAW;;AAGX,eAAM,YAAM,UAAZ;AAEE,cAAG,CAAI,YAAM,SAAb;AAEE,wBAAM;AACN,oCAAW,CAAC,YAAM,YAAW;;;;gBAAlB;AACX,kBAAO,YAAM;AACb,gBAAG,CAAI,EAAP;AAEE,yBAAW;AACX,mBAAM;aAHR;AAMA,uBAAW,IAAI,CAAC,EAAG,GAAJ;AACf,wBAAM;WAGN,MAAA,YAAM;;;AAGZ,kBAAM;AAjCmD;AApCD;AAExD;AACA;AACA;AAEA,WAAM;AACN,iBAAW;AACX,kBAAM;AACN,UAAG,CAAI,YAAM,UAAb;AACE,mBAAW;;AAGX,eAAM,YAAM,UAAZ;AAEE,cAAG,CAAI,YAAM,SAAb;AAEE,wBAAM;AACN,oCAAW,CAAC,YAAM,YAAW;;;;gBAAlB;AACX,kBAAO,YAAM;AACb,gBAAG,CAAI,EAAP;AAEE,yBAAW;AACX,mBAAM;aAHR;AAMA,uBAAW,IAAI,CAAC,EAAG,GAAJ;AACf,wBAAM;WAGN,MAAA,YAAM;;;AAGZ,kBAAM;AAjCkD;AAwPpB;AAEpC;AACA;AACA;AACA;AACA;AANoC;AAQpC,YAAG,uBAAQ,CAAC,YAAa,6BAAmB;;;;YAAjC,CAAX;AACE,cAAK,CAAC;AAEN,kBAAK,WAAW;AAElB,+BAAQ,CAAC,YAAa,mCAAyB;;;;YAAvC;AAER,aAAM;AAEN,oBAAM;AACN,YAAG,CAAI,YAAM,UAAb;AACE,qBAAW;;AAGX,iBAAM,YAAM,UAAZ;AAEE,gBAAG,CAAI,YAAM,SAAb;AAEE,oBAAO,qBAAgB,CAAC,CAAD;AACvB,kBAAY,GAAD,QAAX;AAEE,oBAAG,CAAI,EAAP;AAEE,6BAAW;AACX,uBAAM;iBAHR;AAMA;AACE,sBAAU,uBAAH,eAAJ,GAAI,CAAP;AAEE,wBAAY,EAAD,QAAX;AACE,wBAAE,QAAQ,CAAC,GAAD,CAAK,OAAO,CAAK,OAAJ,IAAO,uBAAH,CAAL;AAEtB,0BAAA,WAAW,MAAI,OAAO,CAAK,OAAJ,IAAO,uBAAH,CAAL;mBAL1B;AADF;AASE,qBAAI,eAAJ,GAAI;AATN;eARF;aAsBA,MAAA,YAAM;;;AAGZ,oBAAM;AApD8B;AAIpC;AACA;AALoC;;AAmFN;AAE9B;AACA;AACA;AACA;AACA;AAN8B;AAQ9B,YAAK;AACL,YAAG,uBAAQ,CAAC,MAAO,6BAAmB;;;;YAA3B,CAAX,EACE,IAAK,CAAC,eADR;AAGA,aAAM;AAEN,oBAAM;AACN,YAAG,CAAI,YAAM,UAAb;AACE,eAAK;;AAGL,iBAAM,YAAM,UAAZ;AAEE,gBAAG,CAAI,YAAM,SAAb;AAEE,oBAAO,qBAAgB,CAAC,CAAD;AACvB,kBAAY,GAAD,QAAX;AAEE,oBAAG,CAAI,EAAP;AAEE,uBAAK;AACL,uBAAM;iBAHR;AAMA,oBAAW,CAAC,iBAAD,SAAc,IAAI,uBAAQ,CAAC,kBAAa,gCAAsB;;;;oBAApC,CAArC,EACE,CAAC,UAAU,CAAC,IAAK,KAAN,CADb;AAEA,qBAAK,IAAI,CAAC,GAAD;eAVX;aAcA,MAAA,YAAM;;;AAGZ,oBAAM;AAzCwB;AAK9B;AAFA;AAH8B;;AA/GE;AAEhC;AAKA,UAAG,YAAM,SAAT,EACE,MADF;AAGA,UAAK,YAAM;AACX,UAAG,CAAE,KAAG,EAAR;AAYE,eAAO,QAAC,CAAQ,CAAR;OAZV;AAXgC;AA2JA;AAEhC,UAAG,OAAQ,KAAE,IAAb;AACE,oBAAM;;AAGN,YAAG,uBAAkB,cAAc,CAAC,OAAO,OAAC,aAAW,QAApB,CAAnC;AACE,oCAAqB,CAAmB,OAAnB;AAClB,kBAAG,uBAAkB,cAAc,CAAC,OAAO,OAAC,aAAW,QAApB,CAAnC;AACH,oCAAqB,CAAmB,OAAnB;AAClB,kBAAG,uBAAkB,cAAc,CAAC,OAAO,OAAC,aAAW,SAApB,CAAnC;AACH,qCAAsB,CAAoB,OAApB;AACnB,kBAAG,uBAAkB,cAAc,CAAC,OAAO,OAAC,aA9iDY,EA8iDrB,CAAnC;AACH,oCAAqB,CAAmB,OAAnB;AAClB,kBAAG,uBAAkB,0BAA0B,CAAC,OAAO,OAAC,YAAT,CAA/C;AAEH,cAAG,uBAAkB,mCAAmC,CAAC,OAAO,OAAC,YAAT,CAAxD;AACE,kDAAiC,CAA+B,OAA/B;AAEjC,gBAAA,YAAM;SAEL,UAAG,uBAAkB,2BAA2B,CAAC,OAAO,OAAC,YAAT,CAAhD;AAEH,cAAG,uBAAkB,mCAAmC,CAAC,OAAO,OAAC,YAAT,CAAxD;AACE,mDAAkC,CAAgC,OAAhC;AAC/B,oBAAG,uBAAkB,oCAAoC,CAAC,OAAO,OAAC,YAAT,CAAzD;AACH,oDAAmC,CAAiC,OAAjC;AAChC,oBAAG,uBAAkB,oCAAoC,CAAC,OAAO,OAAC,YAAT,CAAzD;AACH,oDAAmC,CAAiC,OAAjC;AAChC,oBAAG,uBAAkB,mCAAmC,CAAC,OAAO,OAAC,YAAT,CAAxD;AACH,mDAAkC,CAAgC,OAAhC;AAElC,gBAAA,YAAM;SAEL,UAAG,uBAAkB,OAAO,CAAC,OAAO,OAAC,YAAT,CAA5B;AACH,uBAAQ,CAAO,OAAP;AACL,kBAAG,uBAAkB,aAAa,CAAC,OAAO,OAAC,YAAT,CAAlC;AACH,6BAAc,CAAa,OAAb;AACX,kBAAG,uBAAkB,SAAS,CAAC,OAAO,OAAC,YAAT,CAA9B;AACH,yBAAU,CAAe,OAAf;AACP,kBAAG,uBAAkB,kBAAkB,CAAC,OAAO,OAAC,aAAW,CAAC,UAAD,CAApB,CAAvC;AACH,0BAAW,CAAU,OAAV;AAEX,cAAA,uBAAgB,CAAC,OAAD;;AA3CY;AA7iBF;AAE9B,qBAAW,gDAAiB,QAAC,YAAM,CAAC,OAAD,CAAN;AAC7B,wBAAc;AACd,yBAAe,yFAAuB,QAAC,YAAM,CAAC,IAAD,CAAN;AAJU;AAAnB;AAOA;AAE9B,qBAAW;AACX,wBAAc;AACd,yBAAe,yFAAuB,QAAC,YAAM,CAAC,IAAD,CAAN;AAJoB;AAA7B;AAOA;AAE9B,UAAG,eAAH;AACE,uBAAW;AAEX,YAAQ,SAAR,KAAQ;AAEE,eAAZ,KAAY;AACZ;AAR8B;AA0XL;AAAJ;AAErB,eAAU,qBAAgB,CAAC,MAAD;AAFL;AAAI;AAKC;AAE1B,qBAAU,CAAC,OAAD;AAFgB;AAwFI;AAAT;AAErB;AAEA,kBAAM;AACN,aAAM,YAAM,UAAZ;AAEE,YAAG,CAAI,YAAM,SAAb;AAEE,iBAAQ,YAAM;AACd,cAAG,IAAK,KAAE,KAAV;AAEE,wBAAM;AACN,mBAAM,YAAM,UAAZ;AAEY,oBAAD,sBAAC,YAAc,WAAC,MAAD,CAAS,GAAE,CAA1B;AACT,oBAAM,CAAO,WAAC,MAAD,CAAS,GAAE,CAAlB,CAAN,GAA8B,qBAAgB,CAAC,kBAAD;;AAEhD,wBAAM;WAGN,MAAA,YAAM;SAGR,MAAA,YAAM;;AAxBW;AAAS;AA8fO;AAErC;AACA;AACA;AACA;AALqC;AAOrC,YAAW,CAAC,iBAAD,SAAc,IAAI,uBAAQ,CAAC,kBAAa,gCAAsB;;;;YAApC,CAArC;AAEE,mBAAS,QAAuB,OAAlB,gBAAW,QAAO,GAAE,CAAF,kBAAhC;AAAI;AAEF,iBAAM,gBAAW,SAAC,CAAD;AACjB,gBAAK,CAAC,WAAW,CAAC,EAAE,GAAH;AACjB,uCAAa,CAAC,EAAE,UAAW,EAAE,MAAO,CAAvB;;SANjB;AAPqC;AAErC;AAFqC;;AA/jExB;AAyDW;AAiyFgC;AAAlB;AAGtC;AAEA,WAAM,yBAAa,QAAC,YAAM,CAAC,GAAmB,sBAAS,QAAC,G7BrpEmC,I6BqpEjE,CAAN;AACpB;AACE,+BAAkB,qBAAqB,CAAC,QAAS,EAAV;AACvC,UAAE,YAAC,CAAY,CAAZ;AACH,iBAAU,EAAE,cAAC;AAHf;AAKE,UAAG,eAAH,EAAG;AALL;AANsC;AAAkB;AAZG;AAE3D;AAEA,WAAM,yBAAa,QAAC,YAAM,CAAC,QAAwB,sBAAS,QAAC,G7BxoE8B,I6BwoEjE,CAAN;AACpB;AACE,+BAAkB,uBAAuB,CAAC,QAAS,EAAV;AAD3C;AAGE,UAAG,eAAH,EAAG;AAHL;AAL2D;AArxFnC;AAMN;AAEhB;AACA;AAEU;AACA;AACA;AACA;AACA;AAw/EyC;AAv/EwC;AA2/E7F,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,QAAS,cAAe,cAAe,QAAS,QAAjD,CADtB;AAJqD;AAQC;AA9/EwC;AAkgF9F,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,QAAS,cAAe,cAAe,QAAS,SAAjD,CADvB;AAJsD;AA5cH;AAGnD;AAEA,WAAM,yBAAa,QAAC;AACpB;AACE,iCAAoB,CAAC,QAAS,EAAV;AAClB,sEAAF,GAAc,SAAZ;AAFJ;AAIE,UAAG,eAAH,EAAG;AAJL;AANmD;AA/BE;AAErD;AAEA,WAAM,yBAAa,QAAC;AACpB;AAIE,mCAAsB,CAAC,QAAS,EAAV;AAJxB;AAME,UAAG,eAAH,EAAG;AANL;AALqD;AA6CA;AAGrD;AAEA,eAAU,kBAAa,QAAC,YAAM,CAAC,OAAD,CAAN;AACxB;AACE,cAAM,eAAC,CAAe,uBAAkB,aAAjC;AACP,cAAM,cAAC,CAAc,uBAAkB,YAAhC;AACP,cAAM,uBAAN,GAAgC;AAChC,cAAM,MAAM,CAAC,OAAD;AAJd;AAME,cAAO,eAAP,MAAO;AANT;AANqD;AA9BE;AAEvD;AAEA,aAAO,YAAC,CAAY,CAAZ;AACR,eAAU,kBAAa,QAAC,YAAM,CAAC,OAAD,CAAN;AACxB;AACE,cAAM,eAAC,CAAe,uBAAkB,aAAjC;AACP,cAAM,cAAC,CAAc,uBAAkB,YAAhC;AACP,cAAM,sBAAN,GAA+B;AAC/B,cAAM,OAAK,CAAC,OAAD;AAJb;AAME,cAAO,eAAP,MAAO;AANT;AANuD;AA+CT;AAE9C;AAWA;AACA;AAEA;AACA;AAEA,UAAK,mBAAa,CAAC,SAAD;AA6BlB,UAAW,CAAC,CAAD,SAAI,IAAO,UAAF,EAAK,gBAAH,CAAtB,EACE,IAAkB,CAAE,SADtB;AAGA,UAAW,CAAC,CAAD,SAAI,IAAO,UAAF,EAAK,oBAAH,CAAtB;AAEC,aAAuB;AACvB,iBAAW,KAAF,EAAE,WAAe,OAAF,EAAE,2BAA1B;AAAI;AACF,iBAAO,IAAI,CAAC,uBAAkB,YAAY,CAAC,EAAG,CAAJ,CAA/B;;OAJd;AAnD8C;AAmoBF;AAAZ;AAGhC;AAEA,gBAAW,oBAAQ,CAAC,UAAD;AACnB,UAAI,OAAQ,KAAE,IAAd;AAEE,YAAG,uBAAkB,iBAArB;AAEE,mBAAU;AACV;SAGA,YAAM,2BAAsB,QAAC,aAAS,CAAC,sBAAuB,mBAAC,aAAD,CAAxB,CAAT;OARjC;AAWA,UAAG,CAAI,uBAAkB,iBAAzB;AAEE,YAAG,CAAI,OAAO,aAAa,CAAC,kBAAD,CAA3B,EACE,MAAM,2BAAsB,QAAC,YAAM,CAAC,gCAAD,CAAN,CAD/B;AAGA,YAAG,SAAU,KAAG,IAAhB,EACE,IAAG,CAAI,OAAO,aAAa,CAAC,SAAD,CAA3B,EACE,MAAM,2BAAsB,QAAC,aAAS,CAAC,qCACrC,mBAAC,cAAqB,GAAT,SAAS,WAAtB,CADoC,CAAT,CAFjC;OALF;AAYA,UAAG,OAAO,aAAa,CAAC,qCAAD,CAAvB;AACE,iBAA8B,OAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AAMpC,gBAAG,OAAO,aAAa,CAAC,sBAAD,CAAvB;AACH,iBAA0B,OAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,gBAAG,OAAO,aAAa,CAAC,2BAAD,CAAvB;AACH,iBAA+B,OAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,gBAAG,OAAO,aAAa,CAAC,uBAAD,CAAvB;AACH,iBAA2B,OAAQ,QAAC;AAEpC,kBAAM,2BAAsB,QAAC,aAAS,CAAC,0BAA2B,mBAAC,aAAD,CAA5B,CAAT;AA3CC;AAAY;AAlQW;AAAvB;AAOhC,eAAU;AACV,UAAY,SAAD,QAAX,EACE,SAAU,SAAS,SADrB;AARgC;AAAuB;AAxBS;AAAhC;AAGhC;AAOA,eAAU;AACV,UAAW,CAAC,SAAD,SAAY,IAAY,CAAC,SAAS,SAAV,SAAnC;AAEE,YAAK,SAAS;AAElB;AACA;AACA;OANE;AAXgC;AAAgC;AA+CjB;AAAf;AAMhC,UAAY,SAAS,SAAV,QAAX;AACE,wBAAU,SAAS,SAAS,UAA5B;AAEA,4BAAU,mCAAV;AAT8B;AAAe;AAVA;AAAf;AAMhC,eAAU,SAAS;AANa;AAAe;AAiDI;AAAnB;AAMhC,eAAU;AACV,UAAY,SAAS,SAAV,QAAX,EACE,SAAU,SAAS,SAAS,KAD9B;AAPgC;AAAmB;AAVR;AAz/Ec;AAy/EzB;AAMhC,eAAwB,SAAU,SAAoB;AANtB;AAAW;AA2EA;AAAX;AAMhC,eAAU,SAAS,OAAQ,KAAE,EAAF;AANK;AAAW;AA1BD;AAAV;AAOhC,eAAU,SAAS,OAAQ,KAAE,EAAF;AAPK;AAAU;AAtBU;AAApB;AAGhC;AACA;AACA;AAEA,eAAU;AACV,iBAAK,oBAAe,CAAC,SAAD,MAApB;AACA,UAAG,CAAE,IAAG,cAAC,4BAAD,CAAR;AAEE,gBAAS,oBAAe,CAAC,SAAD;AACxB,gBAAS,yBAAa,CAAC,QAAS,KAAV;AACtB,iBAA2B,CAAR,CAAC,KAAD,SAAQ,IAAI,gBAAW,CAAC,KAAK,OAAC,YAAP,CAAf,CAAkC,IAAG,CAAY,CAAC,KAAD,SAAf;OAJ/D;AATgC;AAAoB;AA+Db;AAAP;AAEhC,eAAyB,CAAd,aAAc,KAAE,aAAF,CAA+C,IAAZ,CAAd,aAAc,KAAE,QAAF,CAAlB,IAAgD,CAAd,aAAc,KAAE,gBAAF,CAAlB;AAFxC;AAAO;AAzBK;AAAZ;AAEhC,eAAW,aAAc,KAAE,2BAAF;AAFO;AAAY;AAsEF;AAAV;AAEhC,eAAW,aAAc,KAAE,yBAAF;AAFO;AAAU;AA9BJ;AAAN;AAEhC,eAAW,aAAc,KAAE,OAAF;AAFO;AAAM;AAKI;AAAV;AAEhC,eAAW,aAAc,KAAE,WAAF;AAFO;AAAU;AAxCJ;AAAN;AAEhC,eAAW,aAAc,KAAE,OAAF;AAFO;AAAM;AAhMY;AAAlB;AAEhC;AACA;AAAI;AACJ;AACA;AACA;AAAG;AACH;AAEA,UAAG,CAAY,CAAC,MAAD,SAAf,EACM,OAAQ,kBADd;AAEA;AACE,aAAM,MAAM;AACZ,YAAG,0BAAa,CAAC,SAAU,EAAX,CAAe,IAAG,0BAAa,CAAC,eAAgB,EAAjB,CAA/C;AAEE,sBAAM,cAAG,CAAC,IAAK,EAAN,wBAAT;AACA,sBAAM,cAAG,CAAC,IAAK,EAAN,wBAAT;AACA,cAAO,CAAH,EAAG,GAAE,CAAF,CAAK,IAAQ,CAAH,EAAG,GAAE,CAAF,CAApB;AAEE,iBAAM,eAAI,CAAC,GAAI,EAAE,GAAC,CAAD,CAAI,EAAQ,GAAH,EAAF,GAAO,CAArB;AAEV,iBAAM,uBAAW,QAAC;AAClB;AACE,gBAAE,aAAC,CAAa,GAAb;AACH,gBAAE,iBAAC,CAAiB,EAAjB;AAEH,qBAAM,EAAE,SAAC,EAAM,GAAE,CAAjB;AAEE,qBAAM,EAAE,iBAAC;AACT,oBAAK,oBAAQ,CAAC,EAAD;AACb,oBAAY,CAAD,QAAX,EACM,OAAC,CADP;AAGA,kBAAE,OAAO,CAAC,CAAD;;AAXb;AAeE,gBAAG,eAAH,EAAG;AAfL;WALF;SAJF;AA4BA,iBAAU,MAAM;OA9BlB,QA+BmB,MAAD,QA/BlB;AAgCA,eAAiB;AA3Ce;AAAkB;AA/PW;AAA7B;AAGhC;AACA;AAAI;AAAI;AACR;AACA;AACA;AAAG;AACH;AAEA,UAAG,CAAY,CAAC,MAAD,SAAf,EACM,OAAQ,kBADd;AAEA;AACE,aAAM,MAAM;AACZ,YAAG,0BAAa,CAAC,eAAgB,EAAjB,CAAqB,IAAG,0BAAa,CAAC,qBAAsB,EAAvB,CAArD;AAEE,sBAAM,cAAG,CAAC,IAAK,EAAN,wBAAT;AACA,sBAAM,cAAG,CAAC,IAAK,EAAN,wBAAT;AACA,cAAO,CAAH,EAAG,GAAE,CAAF,CAAK,IAAQ,CAAH,EAAG,GAAE,CAAF,CAApB;AAEE,iBAAM,eAAI,CAAC,GAAI,EAAE,GAAC,CAAD,CAAI,EAAQ,GAAH,EAAF,GAAO,CAArB;AACV,yBAAO,cAAG,CAAC,IAAK,EAAN,wBAAV;AAEA,gBAAG,GAAI,GAAE,CAAT;AAEE,mBAAM,eAAI,CAAC,GAAI,GAAI,GAAE,CAAF,CAAY,EAAD,OAAK,GAAE,GAA3B;AACV,mBAAM,uBAAW,QAAC;AAClB;AACE,kBAAE,aAAC,CAAa,GAAb;AACH,kBAAE,iBAAC,CAAiB,EAAjB;AAEH,uBAAM,EAAE,SAAC,EAAM,GAAE,CAAjB;AAEE,uBAAM,EAAE,iBAAC;AACT,sBAAK,oBAAQ,CAAC,EAAD;AACb,sBAAY,CAAD,QAAX,EACM,OAAC,CADP;AAGA,oBAAE,OAAO,CAAC,CAAD;;AAXb;AAeE,kBAAG,eAAH,EAAG;AAfL;aAJF;WALF;SAJF;AAiCA,iBAAU,MAAM;OAnClB,QAoCmB,MAAD,QApClB;AAqCA,eAAiB;AAjDe;AAA6B;AA2MK;AAAlC;AAGhC;AACA;AAAI;AAAI;AACR;AACA;AACA;AAAG;AACH;AAEA,UAAG,CAAY,CAAC,MAAD,SAAf,EACM,OAAC,KADP;AAEA;AACE,aAAM,MAAM;AACZ,YAAG,0BAAa,CAAC,eAAgB,EAAjB,CAAqB,IAAG,0BAAa,CAAC,qBAAsB,EAAvB,CAArD;AAEE,sBAAM,cAAG,CAAC,IAAK,EAAN,wBAAT;AACA,sBAAM,cAAG,CAAC,IAAK,EAAN,wBAAT;AACA,cAAO,CAAH,EAAG,GAAE,CAAF,CAAK,IAAQ,CAAH,EAAG,GAAE,CAAF,CAApB;AAEE,iBAAM,eAAI,CAAC,GAAI,EAAE,GAAC,CAAD,CAAI,EAAQ,GAAH,EAAF,GAAO,CAArB;AACV,yBAAO,cAAG,CAAC,IAAK,EAAN,wBAAV;AAEA,gBAAG,GAAI,GAAE,CAAT;AAEE,mBAAM,eAAI,CAAC,GAAI,GAAI,GAAE,CAAF,CAAY,EAAD,OAAK,GAAE,GAA3B;AACV,mBAAM,uBAAW,QAAC;AAClB;AACE,kBAAE,aAAC,CAAa,GAAb;AACH,kBAAE,iBAAC,CAAiB,EAAjB;AAEH,uBAAM,EAAE,SAAC,EAAM,GAAE,CAAjB;AAEE,uBAAM,EAAE,iBAAC;AACT,sBAAK,oBAAQ,CAAC,EAAD;AACb,sBAAY,CAAD,QAAX,EACM,OAAC,IADP;AAGA,oBAAE,OAAO,CAAC,CAAD;;AAXb;AAeE,kBAAG,eAAH,EAAG;AAfL;aAJF;WALF;SAJF;AAiCA,iBAAU,MAAM;OAnClB,QAoCmB,MAAD,QApClB;AAqCA,eAAU;AAjDsB;AAAkC;AAnDC;AAAnC;AAGhC;AACA;AAAI;AAAI;AACR;AACA;AACA;AAAG;AAEH,UAAG,CAAY,CAAC,MAAD,SAAf,EACM,OAAC,KADP;AAEA;AACE,aAAM,MAAM;AACZ,YAAG,0BAAa,CAAC,eAAgB,EAAjB,CAAqB,IAAG,0BAAa,CAAC,qBAAsB,EAAvB,CAArD;AAEE,sBAAM,cAAG,CAAC,IAAK,EAAN,wBAAT;AACA,sBAAM,cAAG,CAAC,IAAK,EAAN,wBAAT;AACA,cAAO,CAAH,EAAG,GAAE,CAAF,CAAK,IAAQ,CAAH,EAAG,GAAE,CAAF,CAApB;AAEE,iBAAM,eAAI,CAAC,GAAI,EAAE,GAAC,CAAD,CAAI,EAAQ,GAAH,EAAF,GAAO,CAArB;AACV,yBAAO,cAAG,CAAC,IAAK,EAAN,wBAAV;AAEA,gBAAG,GAAI,GAAE,CAAT;AAEE,mBAAM,eAAI,CAAC,GAAI,GAAI,GAAE,CAAF,CAAY,EAAD,OAAK,GAAE,GAA3B;AACV,mBAAM,uBAAW,QAAC;AAClB;AACE,kBAAE,aAAC,CAAa,GAAb;AACH,kBAAE,iBAAC,CAAiB,EAAjB;AAEH,uBAAM,EAAE,SAAC,EAAM,GAAE,CAAjB;AAEE,uBAAM,EAAE,iBAAC;AACT,sBAAkB,CAAd,sBAAS,CAAC,EAAD,CAAK,KAAE,SAAF,CACe,IADgB,CAAd,sBAAS,CAAC,EAAD,CAAK,KAAE,gBAAF,CAAlB,IACX,CAAd,sBAAS,CAAC,EAAD,CAAK,KAAE,SAAF,CAAlB,IAAiD,CAAd,sBAAS,CAAC,EAAD,CAAK,KAAE,gBAAF,CADnD,EAEQ,OAAC,IAFT;AAIA,oBAAE,OAAO,CAAC,CAAD;;AAXb;AAeE,kBAAG,eAAH,EAAG;AAfL;aAJF;WALF;SAJF;AAiCA,iBAAU,MAAM;OAnClB,QAoCmB,MAAD,QApClB;AAqCA,eAAU;AAhDsB;AAAmC;AApGA;AAAnC;AAGhC;AACA;AAAI;AAAI;AACR;AACA;AACA;AAAG;AAEH,UAAG,CAAY,CAAC,MAAD,SAAf,EACM,OAAC,KADP;AAEA;AACE,aAAM,MAAM;AACZ,YAAG,0BAAa,CAAC,eAAgB,EAAjB,CAAqB,IAAG,0BAAa,CAAC,qBAAsB,EAAvB,CAArD;AAEE,sBAAM,cAAG,CAAC,IAAK,EAAN,wBAAT;AACA,sBAAM,cAAG,CAAC,IAAK,EAAN,wBAAT;AACA,cAAO,CAAH,EAAG,GAAE,CAAF,CAAK,IAAQ,CAAH,EAAG,GAAE,CAAF,CAApB;AAEE,iBAAM,eAAI,CAAC,GAAI,EAAE,GAAC,CAAD,CAAI,EAAQ,GAAH,EAAF,GAAO,CAArB;AACV,yBAAO,cAAG,CAAC,IAAK,EAAN,wBAAV;AAEA,gBAAG,GAAI,GAAE,CAAT;AAEE,mBAAM,eAAI,CAAC,GAAI,GAAI,GAAE,CAAF,CAAY,EAAD,OAAK,GAAE,GAA3B;AACV,mBAAM,uBAAW,QAAC;AAClB;AACE,kBAAE,aAAC,CAAa,GAAb;AACH,kBAAE,iBAAC,CAAiB,EAAjB;AAEH,uBAAM,EAAE,SAAC,EAAM,GAAE,CAAjB;AAEE,uBAAM,EAAE,iBAAC;AACT,sBAAkB,CAAd,sBAAS,CAAC,EAAD,CAAK,KAAE,SAAF,CAAa,IAAkB,CAAd,sBAAS,CAAC,EAAD,CAAK,KAAE,gBAAF,CAAjD,EACM,OAAC,IADP;AAGA,oBAAE,OAAO,CAAC,CAAD;;AAVb;AAcE,kBAAG,eAAH,EAAG;AAdL;aAJF;WALF;SAJF;AAgCA,iBAAU,MAAM;OAlClB,QAmCmB,MAAD,QAnClB;AAoCA,eAAU;AA/CsB;AAAmC;AAkDD;AAAlC;AAGhC;AACA;AAAI;AAAI;AACR;AACA;AACA;AAAG;AAEH,UAAG,CAAY,CAAC,MAAD,SAAf,EACM,OAAC,KADP;AAEA;AACE,aAAM,MAAM;AACZ,YAAG,0BAAa,CAAC,eAAgB,EAAjB,CAAqB,IAAG,0BAAa,CAAC,qBAAsB,EAAvB,CAArD;AAEE,sBAAM,cAAG,CAAC,IAAK,EAAN,wBAAT;AACA,sBAAM,cAAG,CAAC,IAAK,EAAN,wBAAT;AACA,cAAO,CAAH,EAAG,GAAE,CAAF,CAAK,IAAQ,CAAH,EAAG,GAAE,CAAF,CAApB;AAEE,iBAAM,eAAI,CAAC,GAAI,EAAE,GAAC,CAAD,CAAI,EAAQ,GAAH,EAAF,GAAO,CAArB;AACV,yBAAO,cAAG,CAAC,IAAK,EAAN,wBAAV;AAEA,gBAAG,GAAI,GAAE,CAAT;AAEE,mBAAM,eAAI,CAAC,GAAI,GAAI,GAAE,CAAF,CAAY,EAAD,OAAK,GAAE,GAA3B;AACV,mBAAM,uBAAW,QAAC;AAClB;AACE,kBAAE,aAAC,CAAa,GAAb;AACH,kBAAE,iBAAC,CAAiB,EAAjB;AAEH,uBAAM,EAAE,SAAC,EAAM,GAAE,CAAjB;AAEE,uBAAM,EAAE,iBAAC;AACT,sBAAkB,CAAd,sBAAS,CAAC,EAAD,CAAK,KAAE,QAAF,CAAY,IAAkB,CAAd,sBAAS,CAAC,EAAD,CAAK,KAAE,eAAF,CAAhD,EACM,OAAC,IADP;AAGA,oBAAE,OAAO,CAAC,CAAD;;AAVb;AAcE,kBAAG,eAAH,EAAG;AAdL;aAJF;WALF;SAJF;AAgCA,iBAAU,MAAM;OAlClB,QAmCmB,MAAD,QAnClB;AAoCA,eAAU;AA/CsB;AAAkC;AA+crB;AAAb;AAEhC;AAEA,UAAG,CAAY,CAAC,MAAD,SAAf,EACM,OAAC,KADP;AAEA;AACE,aAAM,MAAM;AACZ,YAAG,0BAAa,CAAC,SAAU,EAAX,CAAe,IAAG,0BAAa,CAAC,eAAgB,EAAjB,CAA/C;AAEE,cAAU,CAAN,KAAM,KAAE,EAAF,CAAM,IAAkB,CAAP,CAAN,KAAM,KAAG,EAAH,CAAO,IAA0C,CAArC,cAAG,CAAC,sBAAS,CAAC,KAAD,EAAS,sBAAS,CAAC,EAAD,CAA5B,CAAkC,GAAE,CAAF,CAA1C,CAA+C,IAAyC,CAArC,cAAG,CAAC,sBAAS,CAAC,KAAD,EAAS,sBAAS,CAAC,EAAD,CAA5B,CAAkC,GAAE,CAAF,CAA1H,EACM,OAAC,IADP;SAFF;AAKA,iBAAU,MAAM;OAPlB,QAQmB,MAAD,QARlB;AASA,eAAU;AAfsB;AAAa;AAhDM;AAAnB;AAEhC;AAEA,UAAG,CAAY,CAAC,MAAD,SAAf,EACM,OAAC,KADP;AAEA;AACE,aAAM,MAAM;AACZ,YAAG,0BAAa,CAAC,eAAgB,EAAjB,CAAqB,IAAG,0BAAa,CAAC,qBAAsB,EAAvB,CAArD,EACM,OAAC,IADP;AAEA,iBAAU,MAAM;OAJlB,QAKmB,MAAD,QALlB;AAMA,eAAU;AAZsB;AAAmB;AAeM;AAAzB;AAEhC;AAEA,UAAG,CAAY,CAAC,MAAD,SAAf,EACM,OAAC,KADP;AAEA;AACE,aAAM,MAAM;AACZ,YAAG,0BAAa,CAAC,qBAAsB,EAAvB,CACiC,IADH,0BAAa,CAAC,2BAA4B,EAA7B,CAAhB,IACzC,0BAAa,CAAC,4BAA6B,EAA9B,CAD6E,IACxC,0BAAa,CAAC,kCAAmC,EAApC,CADjE,EAEQ,OAAC,IAFT;AAGA,iBAAU,MAAM;OALlB,QAMmB,MAAD,QANlB;AAOA,eAAU;AAbsB;AAAyB;AAgBC;AAA1B;AAEhC;AAEA,UAAG,CAAY,CAAC,MAAD,SAAf,EACM,OAAC,KADP;AAEA;AACE,aAAM,MAAM;AACZ,YAAG,0BAAa,CAAC,sBAAuB,EAAxB,CAEoC,IAFL,0BAAa,CAAC,4BAA6B,EAA9B,CAAhB,IAC1C,0BAAa,CAAC,6BAA8B,EAA/B,CAD+E,IACzC,0BAAa,CAAC,mCAAoC,EAArC,CAAhB,IAC9C,0BAAa,CAAC,6BAA8B,EAA/B,CAD0F,IACpD,0BAAa,CAAC,mCAAoC,EAArC,CAFpE,EAGU,OAAC,IAHX;AAIA,iBAAU,MAAM;OANlB,QAOmB,MAAD,QAPlB;AAQA,eAAU;AAdsB;AAA0B;AAtFd;AAAZ;AAEhC,eAAU,sBAAiB,CAAC,OAAQ,CAAC,aAAD,CAAT;AAFK;AAAY;AAUD;AAAX;AAEhC,eAAU,sBAAiB,CAAC,OAAQ,CAAC,aAAc,wBAAf,CAAT;AAFK;AAAW;AAKF;AAAT;AAEhC,eAAU,sBAAiB,CAAC,OAAQ,CAAC,UAAD,CAAT;AAFK;AAAS;AA9EH;AAAN;AAEhC,eAAU,sBAAiB,CAAC,OAAQ,CAAC,OAAD,CAAT;AAFK;AAAM;AA6FW;AAAjB;AAGhC;AACA;AAEA,UAAG,CAAY,CAAC,MAAD,SAAf,EACM,OAAC,KADP;AAEA;AACE,aAAM,MAAM;AACZ,iBAAS,QAA8B,OAAnB,WAAC,gBAAD,CAAmB,GAAE,CAAF,kBAAvC;AAAI;AAEF,cAAI,EAAG,KAAkB,WAAhB,iBAAiB,CAAD,CAAzB,EACM,OAAC,IADP;;AAGF,iBAAU,MAAM;OAPlB,QAQmB,MAAD,QARlB;AASA,eAAU;AAjBsB;AAAiB;AAvET;AAAR;AAEhC,eAAU,sBAAiB,CAAC,OAAQ,CAAC,UAAW,WAAY,gBAAgC,UAAxD,CAAT;AAFK;AAAQ;AAgBC;AAAT;AAEhC,eAAU,sBAAiB,CAAC,OAAQ,CAAC,UAAD,CAAT;AAFK;AAAS;AA7kFvB;AA2DY;;AAGH;;AAEF;AACvB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATuB;aACvB,0CACA,IAAA,sCACA,IAAA,4DACA,IAAA,0CACA,IAAA,wCACA,IAAA,gCACA,IAAA,4BACA,IAAA,gCACA,oDAPA;AAFuB;;AACvB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATuB;;;AACvB;AACA;AACA;AACA;AACA;AACA;AACA;AACA,4BAVyB,yCAUzB;AACA;AATuB;AAYI,uFAAmE,+BAA2B,iBAjB7F,6CAiB6F,EAA9F;AAEH;;;AAExB;AACA;AAHwB;AAqwGzB,aAA4B,MAAM,QAAS,KAAM,MAAO,QAC5B,OAAQ,QAAS,QAAS,cAAe,aACzC,gBAAiB,MAAO,KAAM,SAAU,OACxC,MAAO,SAAU,UAAW,OAAQ,eACpC,UAAW,MAAO,WAAY,OAAQ,KACtC,iBAAkB,KAAM,YAAa,iBAAkB,SACvD,YAAa,KAAM,QAAS,UAAW,MACvC,MAAO,MAAO,SAAU,KAAM,KAC9B,MAAO,SAAU,YAAa,UAAW,WACzC,QAAS,SAAU,SAAU,iBAAkB,MAC/C,MAAO,MAAO,SAAU,OAAQ,YAChC,KAAM,MAAO,OAAQ,OAAQ,QAC7B,OAAQ,MAAO,QAAS,OAAQ,KAZ5D;AAF2C;AAAV;AAgBlC,eAAU;AACV,UAAG,sCAAY,mBAAmB,CAAC,sBAAS,CAAC,MAAD,EAAU,CAApB,CAAuB,KAAG,CAAC,CAA7D,EACE,SAAU,GAAI,GAAE,MADlB;AAjBkC;AAAU;AAqBF;AAAR;AAElC,eAAW,UAAK,IAAG,cAAC,8CAAW,mDAAgB,mDAAgB,oDAAiB,qDAAkB,mDAAgB,oDAAiB,qDAAhH,CAAH;AAFkB;AAAQ;AA/GE;AAAV;AAElC;AAAG;AACH;AACA;AACA;AACA;AACA;AAEA,eAAU;AACV,UAAU,UAAD,OAAO,GAAE,CAAlB;AAEE,YAAK;AACL,oBAAO,eAAP;AAEA,YAAY,SAAD,QAAX,EACE,SAAS,CAAC;;;;aAAG;;;;;YAAJ,CADX;AAGA,aAAM,uBAAW,QAAC;AAClB;AAEE,cAAG,QAAQ,wBAAX;AAEE,gBAAK;AACL,gBAAK;AAEL,qBAAS,wDAAT;AAAI,kBAAK,GAAL;AAEF,kBAAG,sCAAY,gBAAgB,CAAC,CAAD,CAA/B;AACE,oBAAK,CAAE,GAAE,CAAF;AAEP,wBAAK,CAAE,GAAE,GAAF;;WAVb;AAcA,gDAAY,MAAM,CAAC,IAAK,EAAG,G4CxxG+F,K5CwxGxG;AAElB,mBAAS,SAAc,QAAT,EAAE,SAAC,EAAM,GAAE,CAAF,qBAAvB;AAAI;AAEF,gBAAK,EAAE,KAAC,CAAD;AAEP,gBAAU,CAAD,OAAI,GAAE,CAAf;AAEE,kBAAG,QAAQ,aAAX,EACE,IAAK,sBAAS,CAAE,aAAD,EAA2B,CAA1B,CAAF,CAAgD,GAAE,eAAI,CAAC,EAAG,EAAU,CAAD,OAAI,GAAE,CAAnB,CADtE;aAFF;AAMA,qBAAU,MAAO,GAAE,CAAF;;AAGnB,cAAG,WAAH,EACE,SAAU,eAAU,CAAC,MAAD,CADtB;AA/BF;AAmCE,YAAG,eAAH,EAAG;AAnCL;OATF;AAVkC;AAAU;AA2DA;AAAV;AAElC;AACA;AAEA,eAAU;AAEV,UAAK;AACL,iBAAK,eAAL;AACA,UAAY,SAAD,QAAX,EACE,SAAS,CAAC;;;;WAAG;;;;;UAAJ,CADX;AAGK;AACH,UADG,IACH;AAAc,iBAAU;AACxB,gBAFG,IAEH;AAAW,iBAAU;AACrB,gBAHG,IAGH;AAAY,iBAAU;AACtB,gBAJG,IAIH;AAAa,iBAAU;AACvB,gBALG,IAKH;AAAW,iBAAU,GAAI,GAAE,eAAU,CAAC,UAAW,gDAAU,KAAtB,CAAZ;AACzB,gBANG,IAMH;AAAW,iBAAU;AACrB,gBAPG,IAOH;AAAY,iBAAU;AACtB,gBARG,IAQH;AAAc,iBAAU;AACxB,gBATG,IASH;AAAgB,iBAAU,cAA8D,GAA7C,GAAF,GAAQ,eAAU,CAAC,UAAW,gDAAU,KAAtB,CAAZ,GAA2C,GAAF;AACxF,gBAVG,IAUH;AAAgB,iBAAU;AAC1B,gBAXG,IAWH;AAAgB,iBAAU;AAC1B,gBAZG,IAYH;AAAiB,iBAAU;AAC3B,gBAbG,IAaH;AAAkB,iBAAU;AAC5B,gBAdG,IAcH;AAAiB,iBAAU;AAC3B,gBAfG,IAeH,4DAAmB,SAAU,cAA7B;AA3BgC;AAAU;AAlED;AAzpGF;AA4pGzC,mBAAS;AACT,0BAAS,UAAT;AAHuC;AADI;AAlqGjB;AAcE;;AAEN;;;AAEpB;AACA;AAHoB;;;;;;AAwoGqB;AAAb;AAE9B,UAAG,CAAY,CAAC,gBAAD,SAAf,EACE,mBAAe,iCAA4B,QAAC,aGrwGD,IHqwGC,EAD9C;AAGA,eAAU;AALoB;AAAa;AAPD;AAAZ;AAE9B,eAAU;AACV,UAAY,oBAAD,QAAX,EACE,SAAU,GAAI,GAAE,oBAAc,WAAW,CAAC,UAAW,gDAAU,KAAtB,CAD3C;AAH8B;AAAY;AAbH;AAGvC,6BAAmB;AAF0B;AADN;AAMA;AAEvC,UAAY,gBAAD,QAAX,EACc,SAAZ,KAAY,cADd;AAEA;AAJuC;AA1nGjB;AAaC;;AAEL;AAEN;AA+rFqC;AAEjD;AACA;AACA;AACA;AACA;AACA;AACA;AAEA,UAAiB,8BAAH,eAAX,UAAW,CAAd;AAEE,aAAM,2BAAsB,QAAC,YAAM,CAAC,eAAD,CAAN;AAC7B,qBAAQ,IAAI,CAAC,EAAD;AAEZ,oBAAM,sCAAY,kBAAkB,CAAY,OAAX,WAAc,8BAAH,CAAZ,wBAApC;AACA,iBAAS,QAAQ,OAAH,EAAG,GAAE,CAAF,kBAAjB;AAAI;AAEF,cAAK,sCAAY,kBAAkB,CAAY,OAAX,WAAc,8BAAH,EAAgB,CAA5B;AACnC,cAAK,sCAAY,aAAa,CAAC,WAAY,CAAb;AAE9B,cAAK;AACL,cAAY,CAAD,QAAX;AAEE,uBAAK,4BAAuB,CAAC,CAAD,MAA5B;AACA,gBAAG,CAAE,KAAG,gDAAR;AAEE,kBAAK,+BAA0B,QAAC,YAAM,CAAC,EAAG,CAAJ,CAAN;AAChC,gBAAE,cAAC,EAAU,IAAI,CAAC,CAAD;aAHnB;WAHF;AAUA,+BAAgB,CAAC,EAAG,CAAJ;;OAGf,UAAiB,6BAAH,eAAX,UAAW,CAAd;AAEH,YAAG,sCAAY,iBAAiB,CAAY,OAAX,WAAc,6BAAH,CAAZ,CAA2B,GAAE,CAA7D;AAEE,qBAAK,4BAAuB,CAAC,UAAD,MAA5B;AACA,cAAK,sCAAY,iBAAiB,CAAY,OAAX,WAAc,6BAAH,EAAe,CAA3B;AAClC,cAAG,CAAY,CAAC,eAAD,SAAkB,IAAO,CAAF,CAAE,KAAG,gDAAH,CAAxC;AAEE,iBAAM,2BAAsB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,gBAAK,+BAA0B,QAAC,YAAM,CAAC,QAAS,CAAV,CAAN;AAChC,cAAE,cAAC,EAAU,IAAI,CAAC,CAAD;AACjB,yBAAQ,IAAI,CAAC,EAAD;AACZ,8BAAmB;WANrB;AASA,+BAAgB,CAAC,gBAAiB,CAAlB;;AAIhB,eAAM,2BAAsB,QAAC,YAAM,CAAC,eAAD,CAAN;AAC7B,uBAAQ,IAAI,CAAC,EAAD;;OApBX;AAnC4C;AAgEM;AAAvB;AAGhC;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEA,sBAAU,qDAAV;AACA,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,UAAiB,8BAAH,eAAX,UAAW,CAAd;AACE,wBAAU,kDAAV;AACG,gBAAiB,6BAAH,eAAX,UAAW,CAAd;AAEH,wBAAU,uDAAV;AACA,YAAG,sCAAY,iBAAiB,CAAY,OAAX,WAAc,6BAAH,CAAZ,CAA2B,GAAE,CAA7D;AAEE,cAAK,sCAAY,iBAAiB,CAAY,OAAX,WAAc,6BAAH,EAAe,CAA3B;AAClC,cAAY,CAAD,QAAX;AAEE,uBAAK,4BAAuB,CAAC,CAAD,MAA5B;AACK;AACH,gBADG,IACH;AAAW,8BAAU,uDAAV;AACX,sBAFG,IAEH;AAAY,8BAAU,wDAAV;AACZ,sBAHG,IAGH;AAAa,8BAAU,yDAAV;AACb,sBAJG,IAIH;AAAW,8BAAU,uDAAV;AACX,sBALG,IAKH;AAAW,8BAAU,uDAAV;AACX,sBANG,IAMH;AAAY,8BAAU,wDAAV;AACZ,sBAPG,IAOH,uDAAc,gBAAU,0DAAV,CAAd;WAVJ;SAHF;OAkBG,UAAiB,8BAAH,eAAX,UAAW,CAAd;AAEH,YAAK,UAAU,YAAC;AAChB,YAAG,wBAAW,CAAC,EAAG;;;;;YAAJ,CAAd;AACE,0BAAU,mDAAV;AACG,kBAAG,0BAAa,CAAC,EAAG;;;;;YAAJ,CAAhB;AACH,0BAAU,qDAAV;AACG,kBAAG,CAAI,sCAAY,iBAAiB,CAAC,EAAG;;;;YAAJ,CAApC;AACH,0BAAU,kDAAV;AAEA,8BAAU,kDAAV;OAOC,UAAkB,4BAAH,eAAX,UAAW,CAAc,IAAkB,6BAAH,eAAX,UAAW,CAA5C;AACH,wBAAU,mDAAV;AAEG,gBAAiB,8BAAH,eAAX,UAAW,CAAd;AAEH,YAAK,UAAU,YAAC;AAEhB,YAAG,sCAAY,iBAAiB,CAAC,EAAG;;;;YAAJ,CAAhC;AACE,0BAAU,kDAAV;AACG,kBAAG,sCAAY,OAAO,CAAC,EAAG;;;;YAAJ,CAAoE,IAAL,CAApC,sCAAY,cAAc,CAAC,EAAG,IAAJ,CAAU,GAAE,CAAF,CAAvD,IAAuE,6BAAgB,CAAC,EAAG;;;;YAAJ,CAArH;AACH,0BAAU,oDAAV;AACG,kBAAG,yBAAY,CAAC,EAAG;;;;YAAJ,CAAf;AACH,0BAAU,mDAAV;AAEA,8BAAS,kDAAT;OAXC;AA3D2B;AAAuB;AAkHT;;AAAd;AAEhC;AACA;AAAG;AACH;AACA;AACA;AACA;AACA;AACA;AAEkB;AAKb;AALa;AAkBhB,eAAK,OAAK,CAAgD,UAA/C,qFAAqC,UAAU,CACxD;;AAEE,4BAAU,wBAAW,CAAC,KAAK,OAAO,MAAM,MAAnB,wBAArB;AAFF;WADwD,EAAhD;AAlBM;AAKb;AALa;;AA0BlB,aAAQ,sCAAY,UAAU,CAAC,WAAD;AAC9B,UAAY,IAAD,QAAX;AAEE;AACE,6CAAY,4BAAuB,QAAC,aGriGK,IHqiGL;AACpC;AACE,iCAAgB,CAAC,KAAK,IAAN;AAEhB,iBAAM,uBAAW,QAAC;AAClB,yBAAc,uBAAW,QAAC;AAC1B;AASE,oBAAO;AACP,kBAAG,QAAQ,QAAX;AAEE,kBAAE,IAAI,CAAC,oBAAD;AACN,kBAAE,IAAI,CAAC,EAAD;AACN,kBAAE,IAAI,CAAC,WAAD;AACN,kBAAE,IAAI,CAAC,EAAD;AACN,kBAAE,IAAI,CAAC,MAAD;AACN,kBAAE,IAAI,CAAC,yCAAD;AACN,kBAAE,IAAI,CAAC,EAAD;AACN,kBAAE,IAAI,CAAC,MAAD;AACN,sBAAO;eAVT;AAaA,uBAAwB,KAAf,aAAQ,QAAO,GAAE,CAAF,EAAW,aAAnC;AAAI;AAEF,oBAAK,aAAQ,SAAC,CAAD;AACb,qBAAM,CAAC,aAAa,CAAC,UAAW,+CAAZ;AACpB,oBAAG,UAAU,QAAQ,CAAC,EAAD,CAAK,KAAE,CAAC,CAA7B;AAEe,6BAAR,QAAQ;AACX,sBADW,IACX;AAAS,sBAAE,IAAI,CAAC,GAAS,GAAH,EAAF,GAAO,UAAZ;AACf,4BAFW,IAEX,qDAAe,EAAE,IAAI,CAAC,GAAS,GAAH,EAAF,GAAO,uBAAZ,CAArB;AAGF,sBAAG,QAAQ,eAAX,EACE,QAAQ,CAAC,CAAC,cAAC,EAAH,CADV;AAIA,sBAAG,CAAC,cAAC,EAAU,QAAO,GAAE,CAAxB;AAEE,sBAAE,IAAI,CAAC,GAAI,GAAE,SAAP;AACN,6BAAS,SAAwB,OAAnB,CAAC,cAAC,EAAU,QAAO,GAAE,CAAF,oBAAjC;AAAI;AAEF,0BAAK,CAAC,cAAC,EAAU,SAAC,CAAD;AACjB,wBAAE,IAAI,CAAC,GAAkG,GAA5F,KAAF,GAAU,CAAC,WAAW,CAAC,UAAW,gDAAU,KAAtB,CAAd,GAA6C,IAAF,GAAS,CAAC,WAAW,CAAC,UAAW,+CAAZ,CAAd,GAAsC,GAArG;;mBANV;AAUA,sBAAG,QAAQ,eAA0C,IAAvB,QAAQ,cAAX,IAA6B,QAAQ,UAAhE;AAEE,sBAAE,IAAI,CAAC,GAAI,GAAE,QAAP;AAEN,wBAAG,QAAQ,UAAX;AAEe,kCAAR,QAAQ;AACX,0BADW,KACX;AAAS,0BAAE,IAAI,CAAC,GAAI,GAAE,sCAAP;AACf,gCAFW,KAEX,qDAAe,EAAE,IAAI,CAAC,GAAI,GAAE,oDAAP,CAArB;qBAJJ;AAQA,wBAAG,QAAQ,eAAX,EACE,EAAE,IAAI,CAAC,GAAI,GAAE,uBAAP,CADR;AAGA,wBAAG,QAAQ,cAAX,EACE,EAAE,IAAI,CAAC,GAAI,GAAE,iCAAP,CADR;mBAfF;AAmBA,sBAAG,CAAC,cAAC,EAAU,QAAO,GAAE,CAAxB;AAEE,sBAAE,IAAI,CAAC,GAAI,GAAE,WAAP;AACN,6BAAS,SAAwB,QAAnB,CAAC,cAAC,EAAU,QAAO,GAAE,CAAF,qBAAjC;AAAI;AAEF,0BAAK,CAAC,cAAC,EAAU,SAAC,CAAD;AACjB,wBAAE,IAAI,CAAC,GAAkN,GAA5M,aAAF,GAAkB,CAAC,WAAW,CAAC,UAAW,gDAngGuD,IAmgGnE,CAAd,GAAsC,IAAF,GAAS,CAAC,WAAW,CAAC,UAAW,+CAAZ,CAAd,GAAsC,SAAF,GAAc,CAAC,WAAW,CAAC,UAAW,gDAAU,KAAtB,CAAd,GAA6C,UAAF,GAAe,CAAC,WAAW,CAAC,UAAW,gDAAU,KAAtB,CAAd,GAA6C,GAArN;;mBANV;AAUA,oBAAE,IAAI,CAAC,GAAI,GAAE,MAAP;AACN,oBAAE,IAAI,CAAC,EAAD;AAEN,4BAAU,IAAI,CAAC,EAAD;iBArDhB;;AAyDF,wBAAU;AAEV,kBAAG,QAAQ,QAAX;AAEE,kBAAE,IAAI,CAAC,gBAAD;AACN,kBAAE,IAAI,CAAC,EAAD;AACN,oBAAG,QAAQ,kBAAX;AAEE,4BAAU;AAEV,2BAAwB,MAAf,aAAQ,QAAO,GAAE,CAAF,EAAW,eAAnC;AAAI;AAEF,wBAAK,aAAQ,SAAC,CAAD;AAEb,yBAAM,CAAC,aAAa,CAAC,UAAU,+CAAX;AACpB,wBAAG,UAAU,QAAQ,CAAC,EAAD,CAAK,KAAE,CAAC,CAA7B;AAEE,0BAAG,QAAQ,eAA0C,IAAvB,QAAQ,cAAX,IAA6B,QAAQ,UAAhE;AAEE,0BAAE,IAAI,CAAC,IAA4C,GAArC,CAAC,aAAa,CAAC,UAAW,+CAAZ,CAAhB,GAAyC,IAA/C;AACN,0BAAE,IAAI,CAAC,EAAD;AAEN,4BAAG,QAAQ,UAAX;AAEe,sCAAR,QAAQ;AACX,8BADW,KACX;AAAS,8BAAE,IAAI,CAAC,YAAkB,GAAH,EAAF,GAAO,2BAArB;AACf,oCAFW,KAEX,qDAAe,EAAE,IAAI,CAAC,YAAkB,GAAH,EAAF,GAAO,+BAArB,CAArB;AAGF,4BAAE,IAAI,CAAC,OAAD;AACN,4BAAE,IAAI,CAAC,kBAAwB,GAAH,EAAF,GAAO,QAA3B;AACN,4BAAE,IAAI,CAAC,SAAD;AACN,mCAAS,SAAwB,QAAnB,CAAC,cAAC,EAAU,QAAO,GAAE,CAAF,qBAAjC;AAAI;AAEF,gCAAK,CAAC,cAAC,EAAU,SAAC,CAAD;AACjB,gCAAI,CAAC,MAAO,KAAE,6CAAd;AACE,gCAAE,IAAI,CAAC,OAAiI,GAAvH,CAAC,WAAW,CAAC,UAAW,gDAAU,KAAtB,CAAd,GAA6C,qBAAF,GAA0B,EAAF,GAAO,IAAF,GAAS,CAAC,WAAW,CAAC,UAAW,gDAAU,IAAtB,CAAd,GAA4C,IAApI;AACH,sCAAG,CAAI,CAAC,WAAR;AACH,gCAAE,IAAI,CAAC,OAA6H,GAAnH,CAAC,WAAW,CAAC,UAAW,gDAAU,KAAtB,CAAd,GAA6C,iBAAF,GAAsB,EAAF,GAAO,IAAF,GAAS,CAAC,WAAW,CAAC,UAAW,gDAAU,IAAtB,CAAd,GAA4C,GAAhI;AAEN,kCAAA,EAAE,IAAI,CAAC,SAA+H,GAAnH,CAAC,WAAW,CAAC,UAAW,gDAAU,KAAtB,CAAd,GAA6C,iBAAF,GAAsB,EAAF,GAAO,IAAF,GAAS,CAAC,WAAW,CAAC,UAAW,gDAAU,IAAtB,CAAd,GAA4C,yBAAlI;;AAEV,4BAAE,IAAI,CAAC,QAAD;AACN,4BAAE,IAAI,CAAC,MAAD;AACN,4BAAE,IAAI,CAAC,EAAD;yBAtBR;AAyBA,4BAAG,QAAQ,eAAX;AAEE,4BAAE,IAAI,CAAC,cAAoB,GAAH,EAAF,GAAO,UAAvB;AACN,4BAAE,IAAI,CAAC,OAAD;AACN,4BAAE,IAAI,CAAC,cAAD;AACN,mCAAS,SAAwB,QAAnB,CAAC,cAAC,EAAU,QAAO,GAAE,CAAF,qBAAjC;AAAI;AAEF,gCAAK,CAAC,cAAC,EAAU,SAAC,CAAD;AACjB,gCAAG,CAAC,WAAJ,EACE,EAAE,IAAI,CAAC,KAA8F,GAAtF,CAAC,WAAW,CAAC,UAAW,gDAAU,KAAtB,CAAd,GAA6C,MAAF,GAAW,CAAC,WAAW,CAAC,UAAW,+CAAZ,CAAd,GAAsC,UAAjG,CADR;;AAGF,4BAAE,IAAI,CAAC,MAAD;AACN,4BAAE,IAAI,CAAC,EAAD;yBAZR;AAeA,4BAAG,QAAQ,cAAX;AAEE,4BAAE,IAAI,CAAC,aAAmB,GAAH,EAAF,GAAO,WAAtB;AACN,4BAAE,IAAI,CAAC,OAAD;AACN,mCAAS,SAAwB,QAAnB,CAAC,cAAC,EAAU,QAAO,GAAE,CAAF,qBAAjC;AAAI;AAEF,gCAAK,CAAC,cAAC,EAAU,SAAC,CAAD;AACjB,gCAAG,CAAC,WAAJ,EACE,EAAE,IAAI,CAAC,KAAiD,GAAzC,CAAC,WAAW,CAAC,UAAW,gDAAU,KAAtB,CAAd,GAA6C,QAApD,CADR;;AAGF,4BAAE,IAAI,CAAC,cAAD;AACN,4BAAE,IAAI,CAAC,MAAD;AACN,4BAAE,IAAI,CAAC,EAAD;yBAZR;AAeA,kCAAU,IAAI,CAAC,EAAD;uBA5DhB;qBAFF;;iBATJ;AA6EA,kBAAE,IAAI,CAAC,MAAD;eAjFR;AAoFA,qBAAM,EAAE,SAAC,EAAM,GAAE,CAAjB;AAEE,oBAAG,EAAE,KAAC,EAAE,SAAC,EAAM,GAAE,CAAZ,CAAe,KAAE,EAAtB;AACE,oBAAE,OAAO,CAAC,EAAE,SAAC,EAAM,GAAE,CAAZ;AAET;;AAGJ,uBAAU,EAAE,WAAC;AAlLf;AAoLE,wBAAW,eAAX,UAAW;AACX,gBAAG,eAAH,EAAG;AArLL;AALF;AA8LW,qBAAT,KAAS;AA9LX;AAFF;AAmME,cAAK,eAAL,IAAK;AAnMP;OAFF;AAtCgC;AAAc;AAnCA;AAAd;AAEhC,eAAU,mBAAc,CAAC,YAAa,wEAA2B,SAAzC;AAFQ;AAAc;AA8BA;AAAd;AAEhC,eAAU,mBAAc,CAAC,UAAU,YAAW,gDAAU,SAAhC;AAFQ;AAAc;AAzBA;AAAd;AAEhC,eAAU,mBAAc,CAAC,UAAU,YAAW,wEAA2B,SAAjD;AAFQ;AAAc;AAVQ;AAAtB;AAEhC,eAAU,6BAAsB,CAAC,UAAW,wEAA2B,SAAvC;AAFA;AAAsB;AAeA;AAAtB;AAEhC;AAEA,WAAM,uBAAW,QAAC;AAClB;AACE,UAAE,aAAa,CAAC,SAAD;AACf,iBAAU,mBAAc,CAAC,EAAE,WAAC,GAAM,gDAAU,SAApB;AAF1B;AAIE,UAAG,eAAH,EAAG;AAJL;AALgC;AAAsB;AA11FpC;AAiBQ,0DAAE,EAAF;AAA1B,8BACG,QACA,aACA,UACA,aACA,aACA,YACA,aACA,aACA,WACA,kBACA,gBACA,iBACA,eACA,aACA,cACA,QACA,qBACA,iBACA,aACA,WACA,WACA,UACA,sBACA,SACA,OACA,UACA,SACA,UACA,OACA,UACA,UACA,iBACA,cACA,cACA,uBACA,aACA,iBACA,YACA,WACA,gBACA,iBACA,QACA,WACA,OACA,gBACA,YACA,WACA,UACA,MACA,QACA,uBACA,UACA,OArDH;AA0SgC;AAAzB;AAEP,UAAM,QAAN,GAAkB;AAClB,UAAM,kBAAN,GAA4B;AAC5B,UAAM,eAAN,GAAyB;AACzB,UAAM,cAAN,GAAwB;AACxB,UAAM,UAAN,GAAoB;AACpB,UAAM,UAAN,GAAoB;AACpB,UAAM,eAAN,GAAyB;AACzB,UAAM,aAAN,GAAuB;AACvB,UAAM,wBAAN,GAAkC;AAV3B;AAAyB;AAtpBlC,mBAuac;AA0BN,mBAAG,CAAC;AAyBS,gDzBkXL,4DyBlXK;AA0DC;AAAb;AAMP,eAAU,SAAS;AANZ;AAAa;AAUF;AAAX;AAMP,eAAU,iCAAU,CAAC,MAAD;AACpB,eAAU,gCAAS,CAAC,MAAD;AAPZ;AAAW;AAWE;AAAb;AAMP,eAAU,iCAAU,CAAC,MAAD;AACpB,eAAU,gCAAS,CAAC,MAAD;AAPZ;AAAa;AAWD;AAAZ;AAMP,eAAU,iCAAU,CAAC,MAAD;AACpB,eAAU,gCAAS,CAAC,MAAD;AAPZ;AAAY;AAWC;AAAb;AAEM;AAAN;AAEP;AAAE;AACF;AAAI;AAEJ,YAAU,CAAD,OAAI,GAAE,CAAf;AAEE,mBAAU;AACV;SAHF;AAUA,aAAM;AACN,aAAM;AAGN,YAAG,CAAC,QAAC,MAAD,CAAK,IAAG,GAAZ;AACE,cAAgB,CAAP,CAAD,YAAG,EAAD,IAAF,CAAQ,GAAK,EAAL,CAAW,GAAE,EAAF;AAE3B,kBAAS,CAAD,YAAG,EAAD,IAAF,CAAQ,GAAK,EAAL;AAElB,YAAG,CAAC,QAAC,MAAD,CAAK,IAAG,GAAZ;AACE,cAAgB,CAAP,CAAD,YAAG,EAAD,IAAF,CAAQ,GAAK,EAAL,CAAW,GAAE,EAAF;AAE3B,kBAAS,CAAD,YAAG,EAAD,IAAF,CAAQ,GAAK,EAAL;AAElB,iBAAY,CAAF,CAAE,IAAI,CAAJ,CAAM,GAAE,CAAF;AA7BX;AAAM;AAkCb;AAAE;AAAE;AAEJ,UAAK,MAAM,CAAC,eAAI,CAAC,MAAM,EAAE,CAAT,CAAL;AACX,UAAK,MAAM,CAAC,eAAI,CAAC,MAAM,EAAE,CAAT,CAAL,CAAkB,IAAI,CAAJ;AAC7B,UAAK,MAAM,CAAC,eAAI,CAAC,MAAM,EAAE,CAAT,CAAL,CAAkB,IAAI,EAAJ;AAC7B,eAAW,CAAM,GAAF,CAAF,GAAM,CAAF;AAzCV;AAAa;AA2DR,uBAAG;AACP,mBAAyB;AAHb;AAAb;AAKP;AACA;AAKA,UAAK;AAOL,UAAK,iCAAU,CAAC,MAAD;AAEf,eAAU;AACV,YAAM,iBAAN,OAAS,CAAF,CAAE,GAAE,CAAF,MAAQ,QAAQ,CAAC,iBAAW,CAAC,CAAD,CAAI,KAAI,CAApB,CAAnB;AACN,YAAM,iBAAN,OAAS,CAAF,CAAE,GAAE,CAAF,MAAQ,QAAQ,CAAC,iBAAW,CAAC,CAAD,CAAI,GAAI,GAApB,CAAnB;AACN,YAAM,iBAAN,OAAS,CAAF,CAAE,GAAE,CAAF,MAAQ,QAAQ,CAAC,mBAAa,CAAC,CAAD,CAAI,KAAI,CAAtB,CAAnB;AACN,YAAM,iBAAN,OAAS,CAAF,CAAE,GAAE,CAAF,MAAQ,QAAQ,CAAC,mBAAa,CAAC,CAAD,CAAI,GAAI,GAAtB,CAAnB;AACN,YAAM,iBAAN,OAAS,CAAF,CAAE,GAAE,CAAF,MAAQ,QAAQ,CAAC,kBAAY,CAAC,CAAD,CAAI,KAAI,CAArB,CAAnB;AACN,YAAM,iBAAN,OAAS,CAAF,CAAE,GAAE,CAAF,MAAQ,QAAQ,CAAC,kBAAY,CAAC,CAAD,CAAI,GAAI,GAArB,CAAnB;AA1BC;AAAa;AAjNR;AA8rGd;AAEoB,6CAAlB,GAAwC;AACtB,4CAAlB,GAAuC;AAHzC;AArmHA,GAuac,gHAvad;AgDAA,iCAoES,gGApET;;;AAkHoB,0FAEG,aACD,YACC,YAJH;;AAEG;AACD;AACC;AAJH;AAQD,2BAAG;AACF,4BAAG;AAQf,gBAAG;AA6DA,mBAAG;AACO,6BAAG;AACV,sBAAG;AACA,yBAAG;AACI,gCAAG;AASf,oBAAG;AACF,qBAAG;AACL,mBAAG;AACF,oBAAG;AACH,oBAAG;AACH,oBAAG;AACN,iBAAG;AACE,sBAAG;AACR,iBAAG;AACE,sBAAG;AACL,oBAAG;AACJ,mBAAG;AACJ,kBAAG;AACL,gBAAG;AACD,kBAAG;AACF,mBAAG;AACJ,kBAAG;AACH,kBAAG;AACJ,iBAAG;AACA,oBAAG;AACJ,mBAAG;AACJ,kBAAG;AACH,kBAAG;AACL,gBAAG;AACH,gBAAG;AACH,gBAAG;AACH,gBAAG;AACH,gBAAG;AACH,gBAAG;AACH,gBAAG;AACH,gBAAG;AACH,gBAAG;AACF,iBAAG;AACH,iBAAG;AACH,iBAAG;AAKA,oBAAG;AACF,qBAAG;AAOU;AAEL;AAo0DgB;AAAR;AAE3B;AACA;AAEA,UAAK;AACL,uBAAY,CAAZ;AACU,OAAD,sBAAC,IAAG,cAAJ;AACT,iBAAI,CAAC,gBAAG,EAAS,WAAC,CAAD,CAAb;AACJ,eAAU;AACV,uBAAY,CAAZ;AAV2B;AAAQ;AAcC;AAEpC;AACA;AACA;AAGA,UAAK,MAAO,GAAE,sCAAY,iBAAiB,CAAC,QAAD,CAA/B;AAaV,UAAK;AACL,UAAK;AAET;AACA;AACA;AACA;AACA;AACA;AACA;AA7BsC;AAkCE;AAEtC;AACA;AAKA,UAAK;AACL,UAAK;AAKP;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AApCwC;AAp3DnB;AAsBb;AACJ;AACA;AAFI;aACJ,kBACA;AAFI;;AACJ;AACA;AAFI;;;AACJ;AACA;AAFI;AAcC;AAEL;AAAG;AAFE;aAEL,gBAAG;AAFE;;AAEL;AAAG;AAFE;;;AAEL;AAAG;AAFE;AAiBD;AA4BJ;AAAM;AAAK;AAAO;AA5Bd;aA4BJ,sBAAM,IAAA,oBAAK,IAAA,wBAAO,8BAAZ;AA5BF;;AA4BJ;AAAM;AAAK;AAAO;AA5Bd;;;AA4BJ;AAAM;AAAK;AAAO;AA5Bd;AA4OO;AAlMG;;;AAEd;AACA;AACA;AACA;AACA;AACA;AACA;AARc;;;;;AAyqEiB;AAEjC,4BAAkB;AAClB,4BAAkB,CAAC;AAOnB,8BAAoB,CAAC;AACrB,gCAAsB,CAAC;AACvB,wBAAc,CAAC;AAZmB;AAAD;AAzqEjB;AAaI;AAUA;AACM,uCxEIpB,uCwEJoB;AACE,yCxEGtB,uCwEHsB;AACR,iCxEEd,uCwEFc;AACI;AACA;AA5BR;AAkMH;AAkqD2B;AAExC;AACA,yBAAc,CAAC,OAAD;AAHmD;AAAzB;AAlqD3B;AAEiB,uCAAc,W7EmHrC,6B6EnHqC,EAAd;AAFjB;AAkDwB;AAElB;AAu3DmB;AAAX;AAE3B,eAAU,sCAAY,UAAU,CAAC,4CAAD;AAFL;AAAW;AAML;AAAN;AAG3B;AACA;AACA;AACA;AACA;AAEU,SAAD,sBAAC,OAAW,WAAC,mBAAD,CAAZ;AACT,eAAS,QAAiC,OAAtB,WAAC,mBAAD,CAAsB,GAAE,CAAF,kBAA1C;AAAI;AACF,WAAG,CAAC,CAAD,CAAH,GAAU,mBAAmB,CAAC,CAAD;;AAE/B,UAAK,yBAAa,QAAC,YAAM,CAAC,GAAmB,sBAAS,QAAC,G7EpmDoC,I6EomDlE,CAAN;AAEnB,UAAK,kDAAkB,QAAC;AACxB;AACE,aAAM,CAAC;AACN,6EAAD,GAAuB;AACvB,SAAC,OAAC,qBAAoB,CAAC,KAAM,CAAP;AACrB,6EAAD,GAAuB;AACvB,iBAAU,CAAC,cAAC;AALd;AAOE,SAAE,eAAF,CAAE;AACF,SAAE,eAAF,CAAE;AARJ;AAhB2B;AAAM;AAsCA;AAAN;AAE3B;AAEA,UAAK,yBAAa,QAAC,YAAM,CAAC,GAAmB,sBAAS,QAAC,G7EjoDoC,I6EioDlE,CAAN;AACnB;AACE,0DAAkB,qBAAqB,CAAC,KAAM,CAAP;AACvC,iBAAU,CAAC,cAAC;AAFd;AAIE,SAAE,eAAF,CAAE;AAJJ;AAL2B;AAAM;AAhFG;AAEpC;AACA;AACA;AAEA,UAAK,yBAAa,QAAC,YAAM,CAAC,MAAsB,sBAAS,QAAC,G7EnjDiC,I6EmjDlE,CAAN;AACnB;AACE,cAAO,kDAAkB;AACzB,aAAM,kDAAkB;AACN,4EAAlB,GAAwC;AACtB,uEAAlB,GAAkC;AAClC,0DAAkB,uBAAuB,CAAC,KAAM,CAAP;AACvB,4EAAlB,GAAwC;AACtB,uEAAlB,GAAkC;AAPpC;AASE,SAAE,eAAF,CAAE;AATJ;AAPoC;AAoBL;AAE/B,4CAAY,IAAI,CAAC,4CAAD;AAFe;AAuDW;AAE1C,wDAAkB,mBAAmB,CAAC,KAAM,SAAP;AAFK;AALE;AAE5C,wDAAkB,qBAAqB,CAAC,KAAM,SAAP;AAFK;AAxCA;AAE5C,wDAAkB,qBAAqB,CAAC,KAAM,OAAP;AAFK;AALE;AAE9C,wDAAkB,uBAAuB,CAAC,KAAM,OAAP;AAFK;AA52D3B;AAqBG;AAwwDqB;AAAb;AAE9B,eAAU,sCAAY,aAAa,CAAC,KAAM,KAAP;AAFL;AAAa;AAgCH;AAAV;AAE9B,eAAU;AACV,UAAW,6BAAH,eAAL,IAAK,CAAR,EACE,SAAgB,OAAL,KAAQ,6BAAH,CADlB;AAH8B;AAAU;AA3BC;AAAX;AAE9B,eAAU;AACV,UAAY,IAAD,QAAX,EACE,SAAU,IAAI,YAAC,EADjB;AAH8B;AAAW;AAsBA;AAAX;AAE9B,eAAU,sCAAY,qBAAqB,CAAC,IAAD;AAFb;AAAW;AALC;AAAZ;AAE9B,eAAU,sCAAY,sBAAsB,CAAC,IAAD;AAFd;AAAY;AALA;AAAZ;AAE9B,eAAU,sCAAY,sBAAsB,CAAC,IAAD;AAFd;AAAY;AALR;AAAJ;AAE9B,eAAU,sCAAY,cAAc,CAAC,KAAM,KAAP;AAFN;AAAI;AApxDZ;AAkBA;AAoyDiB;AAAT;AAE9B,eAAU,sCAAY,iBAAiB,CAAC,KAAM,MAAP;AAFT;AAAS;AALA;AAAT;AAE9B,eAAU,sCAAY,iBAAiB,CAAC,IAAD;AAFT;AAAS;AA/xDjB;AAWR;;;AAEZ;AACA;AACA;AACA;AACA;AANY;;;;;AA+mCkB;AAEhC,UAAG,YAAQ,KAAG,KAAd;AAEE,uBAAW;AACX;OAHF;AAFgC;AASF;AAE9B,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACT;OAHF;AAF8B;AASC;AAE/B,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACV;OAHF;AAF+B;AASF;AAE7B,UAAG,SAAK,KAAG,KAAX;AAEE,oBAAQ;AACR;OAHF;AAF6B;AASK;AAAZ;AAEtB,eAAU,UAAK,KAAG,CAAH;AAFO;AAAY;AAKD;AAAX;AAEtB,eAAU,SAAI,KAAG,CAAH;AAFQ;AAAW;AAoBE;AAAb;AAEtB,eAAU,WAAM,KAAG,CAAH;AAFM;AAAa;AALC;AAAd;AAEtB,eAAU,YAAO,KAAG,CAAH;AAFK;AAAc;AA3FN;AAE9B,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAF8B;AAcC;AAE/B,mBAAS;AACT,qBAAW;AACX,oBAAU;AACV,kBAAQ;AALwB;AAAD;AARA;AAE/B,mBAAS,KAAK;AACd,qBAAW,KAAK;AAChB,oBAAU,KAAK;AACf,kBAAQ,KAAK;AALwC;AAAtB;AAjBF;AAE7B,UAAa,mBAAH,eAAP,MAAO,CAAV;AAEE,qBAAiB,OAAP,OAAU,mBAAH,CAAkB;AACnC,oBAAgB,OAAP,OAAU,mBAAH,CAAkB;AAClC,sBAAkB,OAAP,OAAU,mBAAH,CAAkB;AACpC,uBAAmB,OAAP,OAAU,mBAAH,CAAkB;OALvC;AAF6B;AAiCF;AAAL;AAEtB;AAEA,gBAAK,UAAK,CAAC,WAAM,UAAK,YAAO,YAAnB,CAAV;AAEA,eAAU,gBAAW,CAAC,CAAD;AANC;AAAK;AAgED;AAAJ;AAEtB,qBAAU,UAAK,CAAC,WAAM,UAAK,YAAO,YAAnB,CAAf;AAFsB;AAAI;AALO;AAAX;AAEtB,qBAAU,UAAK,CAAC,CAAC,KAAM,GAAE,UAAF,CAAS,CAAC,IAAK,GAAE,SAAF,CAAQ,CAAC,MAAO,GAAE,WAAF,CAAU,CAAC,OAAQ,GAAE,YAA5D,CAAf;AAFsB;AAAW;AA7pCnB;AAkBM;AACA,+BAAY,SArW1B,qBAqW0B,EAAZ;AAML;AACD;AACE;AACC;AACE,gCzEteP,6CyEseO;AA7BL;AAgCF;;;AAEV;AACA;AACA;AAJU;;;;;AA8qCa;AAEzB,UAAG,OAAG,KAAG,KAAT;AAEE,kBAAM;AACN;OAHF;AAFyB;AASA;AAEzB,UAAG,OAAG,KAAG,KAAT;AAEE,kBAAM;AACN;OAHF;AAFyB;AASI;AAAT;AAEpB,eAAU,OAAE,KAAG,CAAH;AAFQ;AAAS;AAKA;AAAT;AAEpB,eAAU,OAAE,KAAG,CAAH;AAFQ;AAAS;AAzCD;AAE5B,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAF4B;AAYC;AAE7B,gBAAM;AACN,gBAAM;AAHwB;AAAD;AANA;AAE7B,gBAAM,MAAM;AACZ,gBAAM,MAAM;AAHyC;AAAxB;AAfF;AAE3B,UAAa,iBAAH,eAAP,MAAO,CAAV;AAEE,kBAAc,OAAP,OAAU,iBAAH,CAAgB;AAC9B,kBAAc,OAAP,OAAU,iBAAH,CAAgB;OAHhC;AAF2B;AAnpCf;AAYQ;AACA,+BAAa,UAhZ1B,sBAgZ0B,EAAb;AAGR;AACA;AACO,gCzE3fP,6CyE2fO;AAlBP;AAsBO;;;AAEjB;AACA;AACA;AAJiB;;;;;AAqtCqB;AAAb;AAE3B,eAAU,WAAM,KAAG,GAAH;AAFW;AAAa;AAKH;AAErC,UAAG,YAAQ,KAAG,KAAd;AAEE,oBAAO,OAAO,CAAC,KAAD;AACd,oBAAO,CAAC,KAAD;OAHT;AAFqC;AAkBD;AAEpC,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACV,oBAAO,CAAC,KAAD;OAHT;AAFoC;AATK;AAEzC,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf,oBAAO,CAAC,KAAD;OAHT;AAFyC;AAjCA;AAEzC,kBAAO,CAAC,KAAD;AAFkC;AAKL;AAEpC;AACA,qBAAW,kBAAa,QAAC;AACzB,kBAAO,UAAP,GAAqB;AACrB,oBAAU;AALqD;AAA3B;AAQA;AAE5B,eAAR,KAAQ;AACR;AAHoC;AAvBF;AAElC,UAAa,wBAAH,eAAP,MAAO,CAAV;AAEE,oBAAO,OAAO,CAAS,OAAP,OAAU,wBAAH,CAAuB,QAAhC;AACd,2BAAuB,OAAP,OAAU,wBAAH,CAAuB;AAC9C,sBAAkB,OAAP,OAAU,wBAAH,CAAuB;OAJ3C;AAFkC;AAxrCf;AAYC,+BAAY,e7E7OrB,gC6E6OqB,CAAZ;AAIH,8BA5KJ,4BA4KI;AACI;AACL;AAlBG;AAqBC;;;AAElB;AAFkB;;;;;AAs0CgB;AAAR;AAE5B,eAAwC,YAAK,CAAC,KAAD;AAFjB;AAAQ;AA6BC;AAE3B,kBAAK,CAAC,MAAU,KAAX;AAFsB;AA1EA;AAAT;AAE5B,eAAU,qBAAgB,CAAC,KAAD;AAFE;AAAS;AA8DC;AAGtC;AAEA,UAAK,mBAAc,CAAC,KAAD;AACnB,UAAG,CAAY,CAAC,CAAD,SAAf,EACE,IAAK,UAAG,CAAC,KAAD,CADV;AAGA,OAAC,QAAO,OAAO,CAAC,KAAD;AATuB;AAiBH;AAEnC;AACA,UAAY,cAAD,QAAX,EACE,cAAS,CAAC,IAAD,CADX;AAHmC;AApFE;AAErB,sDAAC,OAAQ,wBAAT;AAF2C;AAAtB;AAlDN;AAAH;AAE5B,eAAwC;AACxC,YAAM,SAAC,CAAS,KAAT;AAHqB;AAAG;AAqBkB;AAArB;AAG5B,eAAU,4BAAqB,CAAC,aAAc,EAAG,KAAlB;AAHH;AAAqB;AAUA;AAArB;AAE5B,eAAU,UAAG,CAAC,KAAD;AACb,YAAM,QAAO,mBAAiB,CAAC,aAAc,SAAf;AAHF;AAAqB;AAzBZ;AAAT;AAE5B,eAAU,UAAG,CAAC,KAAD;AACb,YAAM,QAAO,OAAO,CAAC,MAAD;AAHQ;AAAS;AA+BI;AAAb;AAE5B,eAAU,UAAG,CAAC,KAAD;AACb,YAAM,cAAC,CAAc,UAAd;AAHqB;AAAa;AAMA;AAAb;AAG5B,eAAU,UAAG,CAAC,KAAD;AACb,YAAM,QAAO,OAAO,CAAC,MAAD;AAJQ;AAAa;AAqEP;AAAN;AAE5B,eAA8C,yCAAC,KAAD;AAFlB;AAAM;AAPA;AAAN;AAG5B,eAA8C,yCAAC,KAAD;AAC9C,YAAM,SAAC,CAAS,KAAT;AAJqB;AAAM;AA7CU;AAAhB;AAG5B;AAEA,eAAU;AACV,WAAM,mBAAc,CAAC,KAAD;AACpB,UAAY,EAAD,QAAX,EACE,SAAU,EAAE,QADd;AAP4B;AAAgB;AAWF;AAAd;AAE5B;AACA;AACA;AACA;AAEA,eAAU;AACV,WAAM;AACN,WAAM;AACN,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,aAAM,aAAK,CAAC,CAAD;AACX,YAAG,EAAE,OAAO,KAAE,KAAd;AAEE,mBAAU;AACV;SAEG,UAAa,CAAT,EAAE,OAAO,KAAG,KAAH,CAAU,IAAc,CAAT,EAAE,OAAO,GAAE,EAAF,CAArC;AAEH,eAAM;AACN,eAAM,EAAE;SAHL;;AAOP,UAAG,MAAO,KAAE,IAAZ,EACE,SAAU,EADZ;AAzB4B;AAAc;AAzyCtB;AAUA,+BAAO,U7EpiBhB,gC6EoiBgB,CAAP;AAVA;AA8BA;;AAED,2FAEA,UACI,cACC,eACA,eALL;;AAEA,8BAAO,qBAAP;AACI,kCAAO,sBAAP;AACC,mCAAO,sBAAP;AACA;AALL;AA4BG;;AAOL;;AAilBI;AAErB,KAAC,KAAD,GAAU,CAAC,KAAM,GAAE,EAAF;AACjB,KAAC,MAAD,GAAW,CAAC,MAAO,GAAE,EAAF;AACnB,KAAC,IAAD,GAAS,CAAC,IAAK,GAAE,EAAF;AACf,KAAC,OAAD,GAAY,CAAC,OAAQ,GAAE,EAAF;AALA;AA4SA;AAAd;AAEP,UAAM,KAAN,GAAe,IAAI;AACnB,UAAM,IAAN,GAAc,IAAI;AAClB,UAAM,MAAN,GAAgB,IAAI;AACpB,UAAM,OAAN,GAAiB,IAAI;AALd;AAAc;AALA;AAAd;AAEP,mBAAU,IAAV;AAFO;AAAc;AARD;AAAb;AAEP,UAAM,KAAN,GAAe,UAAK,CAAC,IAAI,KAAL;AACpB,UAAM,IAAN,GAAc,UAAK,CAAC,IAAI,IAAL;AACnB,UAAM,MAAN,GAAgB,UAAK,CAAC,IAAI,MAAL;AACrB,UAAM,OAAN,GAAiB,UAAK,CAAC,IAAI,OAAL;AALf;AAAa;AALA;AAAb;AAEP,mBAAU,IAAV;AAFO;AAAa;AAgEC;AAAd;AAEP,UAAM,GAAN,GAAa,IAAI;AACjB,UAAM,GAAN,GAAa,IAAI;AAHV;AAAc;AALA;AAAd;AAEP,mBAAU,IAAV;AAFO;AAAc;AAND;AAAb;AAEP,UAAM,GAAN,GAAa,UAAK,CAAC,IAAI,GAAL;AAClB,UAAM,GAAN,GAAa,UAAK,CAAC,IAAI,GAAL;AAHX;AAAa;AALA;AAAb;AAEP,mBAAU,IAAV;AAFO;AAAa;AANE;AAAf;AAEP,UAAM,EAAN,GAAY,KAAK;AACjB,UAAM,EAAN,GAAY,KAAK;AAHV;AAAe;AALA;AAAf;AAEP,mBAAU,KAAV;AAFO;AAAe;AAND;AAAd;AAEP,UAAM,EAAN,GAAY,UAAK,CAAC,KAAK,EAAN;AACjB,UAAM,EAAN,GAAY,UAAK,CAAC,KAAK,EAAN;AAHV;AAAc;AALA;AAAd;AAEP,mBAAU,KAAV;AAFO;AAAc;AAhWF;AAAZ;AAML,KAAC,KAAD,GAAU,CAAC,KAAM,GAAE,EAAF;AACjB,KAAC,MAAD,GAAW,CAAC,MAAO,GAAE,EAAF;AACnB,KAAC,IAAD,GAAS,CAAC,IAAK,GAAE,EAAF;AACf,KAAC,OAAD,GAAY,CAAC,OAAQ,GAAE,EAAF;AACrB,aAAU;AAVL;AAAY;AAkBA;AAAZ;AAML,KAAC,KAAD,GAAU,CAAC,KAAM,GAAE,EAAF;AACjB,KAAC,MAAD,GAAW,CAAC,MAAO,GAAE,EAAF;AACnB,KAAC,IAAD,GAAS,CAAC,IAAK,GAAE,EAAF;AACf,KAAC,OAAD,GAAY,CAAC,OAAQ,GAAE,EAAF;AACrB,aAAU;AAVL;AAAY;AA9BF;AAAV;AAEP,aAAe,CAAJ,CAAC,EAAG,IAAG,IAAI,KAAP,CACb,IADoC,CAAJ,CAAC,EAAG,GAAE,IAAI,MAAN,CAAT,IAAgC,CAAJ,CAAC,EAAG,IAAG,IAAI,IAAP,CAAT,IACzC,CAAJ,CAAC,EAAG,GAAE,IAAI,OAAN,CAAT;AAHK;AAAU;AAgEK;AAAf;AAEP,aAAsB,CAAX,KAAK,KAAM,GAAE,KAAK,MAAP,CAGhB,IAFiB,CAAZ,KAAK,MAAO,GAAE,KAAK,KAAP,CAAjB,IACe,CAAV,KAAK,IAAK,GAAE,KAAK,OAAP,CAAf,IACkB,CAAb,KAAK,OAAQ,GAAE,KAAK,IAAP,CAAlB;AALC;AAAe;AAmMA;AAAf;AAEP;AAEA,oBAAW,EAAX;AACA,QAAG,EAAE,KAAM,GAAE,EAAE,KAAf,EAA0B,OAAO,KAAP,GAAgB,EAAE,KAA5C;AACA,QAAG,EAAE,IAAK,GAAE,EAAE,IAAd,EAAwB,OAAO,IAAP,GAAe,EAAE,IAAzC;AACA,QAAG,EAAE,MAAO,GAAE,EAAE,MAAhB,EAA4B,OAAO,MAAP,GAAiB,EAAE,MAA/C;AACA,QAAG,EAAE,OAAQ,GAAE,EAAE,OAAjB,EAA8B,OAAO,OAAP,GAAkB,EAAE,OAAlD;AAEA,aAAU,CAAI,gBAAW,CAAC,OAAD;AAKzB,QAAG,CAAI,MAAP;AAEE,aAAO,IAAP,GAAe;AACf,aAAO,OAAP,GAAkB;AAClB,aAAO,KAAP,GAAgB;AAChB,aAAO,MAAP,GAAiB;KALnB;AAOA,iBAAQ,OAAR;AAtBO;AAAe;AArLJ;AAAX;AAEP,aAAmB,CAAR,EAAE,KAAM,KAAE,EAAE,KAAJ,CACC,IADwB,CAAT,EAAE,MAAO,KAAE,EAAE,MAAJ,CAAd,IACpB,CAAP,EAAE,IAAK,KAAE,EAAE,IAAJ,CAD8C,IACrB,CAAV,EAAE,OAAQ,KAAE,EAAE,OAAJ,CAAf;AAHb;AAAW;AANA;AAAX;AAEP,aAAmB,CAAR,EAAE,KAAM,KAAE,EAAE,KAAJ,CACC,IADwB,CAAT,EAAE,MAAO,KAAE,EAAE,MAAJ,CAAd,IACpB,CAAP,EAAE,IAAK,KAAE,EAAE,IAAJ,CAD8C,IACrB,CAAV,EAAE,OAAQ,KAAE,EAAE,OAAJ,CAAf;AAHb;AAAW;AAsGA;AAAX;AAEP,aAAU,IAAI,MAAO,GAAE,IAAI,KAAN;AAFd;AAAW;AAUA;AAAX;AAEP,aAAU,IAAI,MAAO,GAAE,IAAI,KAAN;AAFd;AAAW;AALC;AAAZ;AAEP,aAAU,IAAI,OAAQ,GAAE,IAAI,IAAN;AAFf;AAAY;AAUA;AAAZ;AAEP,aAAU,IAAI,OAAQ,GAAE,IAAI,IAAN;AAFf;AAAY;AAsDA;AAAZ;AAEP,qBAAY,CAAC,EAAG,CAAC,CAAC,MAAO,CAAC,CAAC,IAAf;AACZ,qBAAY,CAAC,EAAqC,UAAlB,CAAf,gBAAW,CAAC,CAAD,CAAI,GAAE,gBAAW,CAAC,CAAD,CAAb,CAAkB,GAAI,CAAJ,EAA2C,UAAnB,CAAhB,iBAAY,CAAC,CAAD,CAAI,GAAE,iBAAY,CAAC,CAAD,CAAd,CAAmB,GAAI,CAAJ,CAAjF;AACZ,qBAAY,CAAC,EAAG,CAAC,MAAO,CAAC,IAAb;AACZ,mBAAU,CAAV;AALO;AAAY;AAQA;AAAZ;AAEP,uBAAY,CAAC,EAAG,CAAC,CAAC,MAAO,CAAC,CAAC,IAAf;AACZ,uBAAY,CAAC,EAAG,UAAK,CAAiB,CAAf,kBAAW,CAAC,CAAD,CAAI,GAAE,kBAAW,CAAC,CAAD,CAAb,CAAkB,GAAE,CAArC,EAAyC,UAAK,CAAkB,CAAhB,mBAAY,CAAC,CAAD,CAAI,GAAE,mBAAY,CAAC,CAAD,CAAd,CAAmB,GAAE,CAAvC,CAAvD;AACZ,uBAAY,CAAC,EAAG,CAAC,MAAO,CAAC,IAAb;AACZ,mBAAU,CAAV;AALO;AAAY;AAzDE;AAAd;AAEP,mBAAU,IAAV;AACA,uBAAY,CAAC,OAAQ,eAAT;AAHL;AAAc;AAMG;AAAjB;AAEP;AAAQ;AAER,QAAG,MAAO,IAAG,CAAb;AACE,eAAU;AAEV,mBAAU;AACZ,UAAM,KAAN,GAAe,gBAAK,CAAC,IAAI,KAAM,GAAE,MAAb,CAAqB,GAAE,MAAF;AACzC,UAAM,IAAN,GAAc,gBAAK,CAAC,IAAI,IAAK,GAAE,MAAZ,CAAoB,GAAE,MAAF;AACvC,UAAM,MAAN,GAAgB,MAAM,KAAM,GAA2C,CAAzC,UAAK,CAAa,CAAX,IAAI,MAAO,GAAE,IAAI,KAAN,CAAa,GAAE,MAA5B,CAAoC,GAAE,MAAF,CAA3C;AAC5B,UAAM,OAAN,GAAiB,MAAM,IAAK,GAA2C,CAAzC,UAAK,CAAc,CAAZ,IAAI,OAAQ,GAAE,IAAI,IAAN,CAAY,GAAE,MAA5B,CAAoC,GAAE,MAAF,CAA3C;AAC5B,QAAG,mBAAH;AAEE,kBAAa,CAAE,GAAK,CAAF,CAAE,GAAE,MAAF,CAAL;AACf,yBAAY,CAAC,OAAQ,UAAW,SAApB;KAHd;AAZO;AAAiB;AAmBJ;AAAb;AAEP,QAAiD,CAAvB,CAAtB,eAAe,MAAO,GAAE,eAAe,KAAjB,CAAuB,IAAG,CAAH,CAAM,IAAiD,CAAtB,CAAvB,eAAe,OAAQ,GAAE,eAAe,IAAjB,CAAsB,IAAG,CAAH,CAAxG;AAEE,gBAAS,CAAT;AACI,aAAC;KAHP;AAMA,QAA6B,CAAb,CAAX,IAAI,MAAO,GAAE,IAAI,KAAN,CAAa,GAAyB,CAAtB,eAAe,MAAO,GAAE,eAAe,KAAjB,CAAzB,CAAkD,GAA4B,CAAZ,CAAZ,IAAI,OAAQ,GAAE,IAAI,IAAN,CAAY,GAA0B,CAAvB,eAAe,OAAQ,GAAE,eAAe,IAAjB,CAA1B,CAA3G;AACE,gBAAqB,CAAX,IAAI,MAAO,GAAE,IAAI,KAAN,CAAa,GAAyB,CAAtB,eAAe,MAAO,GAAE,eAAe,KAAjB,CAA3D;AAEA,oBAAsB,CAAZ,IAAI,OAAQ,GAAE,IAAI,IAAN,CAAY,GAA0B,CAAvB,eAAe,OAAQ,GAAE,eAAe,IAAjB,CAA5D;AAEF,mBAAU,UAAK,CAAC,EAAG,EAAe,CAAX,IAAI,MAAO,GAAE,IAAI,KAAN,CAAa,GAAE,WAAF,CAAsB,CAAZ,IAAI,OAAQ,GAAE,IAAI,IAAN,CAAY,GAAE,WAApE,CAAf;AACA,uBAAY,CAAC,OAAQ,eAAT;AAdL;AAAa;AAiBA;AAAb;AAEP;AAEA,mBAAU,kBAAa,CAAC,KAAM,gBAAiB;;;;QAAxB,CAAvB;AAJO;AAAa;AAiGC;AAAd;AAEP,aAAU,SAAI,CAAC,gBAAG,CAAC,KAAK,EAAN,CAAU,GAAE,gBAAG,CAAC,KAAK,EAAN,CAAnB;AAFP;AAAc;AAdL;AAAT;AAEP,UAAM,KAAN,GAAe;AACf,UAAM,IAAN,GAAc;AAEd,UAAM,MAAN,GAAgB,IAAK,GAAE,KAAF;AACrB,UAAM,OAAN,GAAiB,GAAI,GAAE,MAAF;AANd;AAAS;AANI;AAAb;AAEP,UAAM,EAAN,GAA+B,CAAV,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,GAAF,CAAM,GAAE,CAAC,KAAH;AACrC,UAAM,EAAN,GAA+B,CAAT,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,GAAF,CAAM,GAAE,CAAC,IAAH;AAH9B;AAAa;AAlBC;AAAd;AAEP,QAAG,kBAAS,CAAC,EAAG,EAAG,OAAP,CAAZ;AACE,eAAU;AACP,cAAG,CAAE,GAAE,CAAP;AACH,eAAU;AAEV,mBAAU;AAPL;AAAc;AANH;AAAX;AAEP,aAAmB,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CACU,IADG,kBAAS,CAAC,CAAC,OAAQ,CAAC,MvE7gDG,GuE6gDd,CAAZ,IACT,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAb,IAAyB,kBAAS,CAAC,CAAC,QAAS,CAAC,KvE9gDE,GuE8gDd,CAAZ;AAHtB;AAAW;AALF;AAAT;AAEP,mBAAU,UAAK,CAAC,EAAG,EAAG,EAAG,CAAV,CAAf;AAFO;AAAS;AAqBW;AAApB;AAEP,aAAsB,CAAX,KAAK,KAAM,GAAE,CAAC,MAAH,CAGhB,IAFiB,CAAZ,KAAK,MAAO,GAAE,CAAC,KAAH,CAAjB,IACe,CAAV,KAAK,IAAK,GAAE,CAAC,OAAH,CAAf,IACkB,CAAb,KAAK,OAAQ,GAAE,CAAC,IAAH,CAAlB;AALC;AAAoB;AAjQf;AAAL;AAEP,UAAM,KAAN,GAAe;AACf,UAAM,IAAN,GAAc;AACd,UAAM,OAAN,GAAiB;AACjB,UAAM,MAAN,GAAgB;AALT;AAAK;AA1CC;AAAN;AAEP,UAAM,EAAN,GAAY;AACZ,UAAM,EAAN,GAAY;AAHL;AAAM;AA/RY;AAAlB;AAEP,aAAU;AACV,QAAY,OAAD,QAAX;AAME,eAAU;KANZ;AAHO;AAAkB;AAvBL;AAAb;AAEP;AAEA,aAAU;AACV,QAAY,OAAD,QAAX;AAEE,UAAK,uBAAkB,CAAC,OAAD;AACvB,UAAY,CAAD,QAAX;AAME,iBAAU,CAAC;OANb;KAHF;AALO;AAAa;AAjBF;AAAX;AAEP;AACA;AAEA,aAAU;AACV,aAAS,QAAwB,OAAb,WAAC,UAAD,CAAa,GAAE,CAAF,kBAAjC;AAAI;AAEF,WAAM,UAAU,CAAC,CAAD;AAChB,UAAG,EAAG,KAAE,KAAR;AAEE,iBAAU;AACV;OAHF;;AATK;AAAW;AAvBC;AAAZ;AAcP,aAAW,kBAAM,IAAG,cAAI,KAAH,GAAK,EAAN,CAAH;AAdV;AAAY;AAlBA;AAAZ;AAcP,aAAiB,CAAN,kBAAM,IAAG,cAAI,KAAH,GAAK,GAAN,CAAH,CAAe,IAAU,CAAN,kBAAM,IAAG,cAAI,KAAH,GAAK,EAAN,CAAH,CAAV;AAdzB;AAAY;AAlBH;AAAT;AAcP,aAAiB,CAAN,kBAAM,IAAG,cAAI,KAAH,GAAK,EAAN,CAAH,CAAwC,IAAf,CAAN,kBAAM,IAAG,cAAI,KAAH,GAAK,GAAN,CAAH,CAAV,IAAmC,CAAN,kBAAM,IAAG,cAAI,KAAH,GAAK,EAAN,CAAH,CAAV;AAdlD;AAAS;AAsDW;AAApB;AAEP,aAAU,iBAAY,CAAC,KAAD,CAAQ,IAAG,iBAAY,CAAC,KAAD,CAAf;AAFvB;AAAoB;AApGZ;AAAR;AAEP,aAAU;AAFH;AAAQ;AAKK;AAAb;AAEP,aAAU,0BAAa,CAAC,CAAD;AAFhB;AAAa;AAoBN;AAAP;AAEP,aAAU,cAAG,CAAC,OAAQ,CAAT;AAFN;AAAO;AAVM;AAAb;AAEP,aAAU,sBAAS,CAAC,CAAD;AAFZ;AAAa;AAKA;AAAb;AAEP,aAAU,sBAAS,CAAC,CAAD;AAFZ;AAAa;AAVJ;AAAT;AAEP,aAAU;AAFH;AAAS;AAqBI;AAAb;AAGP;AAOA,2BAAU,CAAC,CAAD;AACV,aAAU,yBAAY,CAAC,CAAD;AAXf;AAAa;AAj6BtB,GAk1Bc,qDAl1Bd;ACAA,yCAiCS,mEAjCT;;;;AAuDiB,yBAAG;AAET,mBAAG;AACA,sBAAG;AACH,sBAAG;AACN,mBAAG;AAgKD,qBAAG;AACA,wBAAG;AACX,gBAAG;AACG,sBAAG;AACR,iBAAG;AACH,iBAAG;AACF,kBAAG;AACJ,iBAAG;AACM,0BAAG;AACb,gBAAG;AACG,sBAAG;AACR,iBAAG;AACC,qBAAG;AACH,qBAAG;AACF,sBAAG;AACJ,qBAAG;AACP,iBAAG;AACM,0BAAG;AACT,oBAAG;AACJ,mBAAG;AACN,gBAAG;AACC,oBAAG;AACH,oBAAG;AACE,yBAAG;AACR,oBAAG;AACF,qBAAG;AACJ,oBAAG;AACF,qBAAG;AACD,uBAAG;AACA,0BAAG;AACP,sBAAG;AACH,sBAAG;AACN,mBAAG;AACA,sBAAG;AACD,wBAAG;AACF,yBAAG;AACH,yBAAG;AACH,yBAAG;AACH,yBAAG;AACN,sBAAG;AACL,oBAAG;AACA,uBAAG;AACP,mBAAG;AACH,mBAAG;AACA,sBAAG;AACJ,qBAAG;AACD,uBAAG;AACH,uBAAG;AACP,mBAAG;AACD,qBAAG;AACF,sBAAG;AACT,gBAAG;AACE,qBAAG;AACR,gBAAG;AACF,iBAAG;AACG,uBAAG;AACV,gBAAG;AACC,oBAAG;AACJ,mBAAG;AACD,qBAAG;AACN,kBAAG;AACJ,iBAAG;AACH,iBAAG;AACA,oBAAG;AACE,yBAAG;AACP,qBAAG;AACA,wBAAG;AACN,qBAAG;AACF,sBAAG;AACJ,qBAAG;AACQ,gCAAG;AACd,qBAAG;AACF,sBAAG;AACJ,qBAAG;AACH,qBAAG;AACD,uBAAG;AACD,yBAAG;AACJ,wBAAG;AACD,0BAAG;AACH,0BAAG;AACH,0BAAG;AACN,uBAAG;AACR,kBAAG;AACF,mBAAG;AACJ,kBAAG;AACC,sBAAG;AACA,yBAAG;AACX,iBAAG;AACJ,gBAAG;AACE,qBAAG;AACP,iBAAG;AACD,mBAAG;AACJ,kBAAG;AACO,4BAAG;AACT,sBAAG;AACD,wBAAG;AACH,wBAAG;AACD,0BAAG;AACF,2BAAG;AACD,6BAAG;AACL,2BAAG;AACH,2BAAG;AACN,wBAAG;AACN,qBAAG;AACH,qBAAG;AACJ,oBAAG;AACA,uBAAG;AACV,gBAAG;AACA,mBAAG;AACL,iBAAG;AACC,qBAAG;AACN,kBAAG;AACA,qBAAG;AACN,kBAAG;AACI,yBAAG;AACP,qBAAG;AACC,yBAAG;AACH,yBAAG;AACN,sBAAG;AACJ,qBAAG;AACR,gBAAG;AACH,gBAAG;AACH,gBAAG;AACG,sBAAG;AACP,kBAAG;AACN,eAAG;AACG,qBAAG;AACH,qBAAG;AACD,uBAAG;AACR,kBAAG;AACC,sBAAG;AACL,oBAAG;AACH,oBAAG;AACL,kBAAG;AACH,kBAAG;AACF,mBAAG;AACD,qBAAG;AACH,qBAAG;AACH,qBAAG;AACR,gBAAG;AACI,uBAAG;AACL,qBAAG;AACT,eAAG;AACF,gBAAG;AACA,mBAAG;AACJ,kBAAG;AACA,qBAAG;AACN,kBAAG;AACJ,iBAAG;AACH,iBAAG;AACE,sBAAG;AACP,kBAAG;AACE,uBAAG;AACV,gBAAG,CAAC;AAWe;AACvB;AACA;AAFuB;aACvB,wBACA;AAFuB;;AACvB;AACA;AAFuB;;;AACvB,wBzERI,sCyEQJ;AACA;AAFuB;AAMD,kCAAG;AAgKF;;AACC;;AACH;;AACQ;;AACA;;AACD;;AACN;;AACG;;AACR;;AACC,0CADD,2CACC;AACM;;AAGlB,kBAAG,cAAC,gCAAQ,+BAAO,iCAAS,iCAAzB;AACJ,iBAAW;AA8CG;AACnB;AAAK;AAAK;AACV;AAAK;AAAK;AACV;AAAK;AAAK;AAHS;aACnB,oBAAK,IAAA,oBAAK,IAAA,oBACV,IAAA,oBAAK,IAAA,oBAAK,IAAA,oBACV,IAAA,oBAAK,IAAA,oBAAK,wBAFL;AADc;;AACnB;AAAK;AAAK;AACV;AAAK;AAAK;AACV;AAAK;AAAK;AAHS;;;AACnB;AAAK;AAAK;AACV;AAAK;AAAK;AACV;AAAK;AAAK;AAHS;AAkTA;AA5IF;AA4BA;AAvLK;;;AAGtB;AAKA;AACA;AACA;AACA;AAXsB;;;;;;;AA0hCkB;AAE1C,kBAAO,OAAO,CAAC,KAAD;AAF4B;AAVF;AAExC,gBAAK,OAAO,CAAC,KAAD;AAF4B;AAKA;AAExC,gBAAK,aAAa,CAAC,KAAD;AAFsB;AArBC;AAEzC;AACA,mBAAS,wBAAmB,QAAC,aAj3B+B,sCAA+C,SAAgD,QAAmD,GAAqD,EAi3BtO;AAC7B,qBAAW,0BAAqB,QAAC,aAnuB6B,wCAA+C,QAmuB5E;AACjC,mBAAS,wBAAmB,QAAC;AALa;AAAD;AAQA;AAEnC,eAAN,KAAM;AACE,eAAR,KAAQ;AACF,eAAN,KAAM;AACN;AALyC;AAxgCjB;AAgBJ;AAhBI;AA8BO;;;AAE7B;AACA;AACA;AAJ6B;AA8uEwB;AAAhB;AAEvC,eAAU,cAAS,KAAG,GAAH;AAFoB;AAAgB;AAKP;AA7uEhB;AAgvEhC,UAAG,WAAO,KAAG,KAAb;AAEE,6BAAU,wCAAV;AACA;OAHF;AAHgD;AAmBG;AAEnD,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAFmD;AA7BG;AAAf;AAEvC,eAAU,aAAQ,KAAG,GAAH;AAFqB;AAAe;AAoBJ;AAElD,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAFkD;AAkBI;AAEtD,UAAkB,qCAAH,eAAX,gBAAW,CAAf,EACc,OAAX,iBAAc,qCAAH,CAAoC,iBADlD;AAFsD;AA9CN;AAEhD;AACA,oBAAU;AACV,uBAAa;AACb,sBAAY;AAL+D;AAA3B;AAZF;AAE9C,UAAa,oCAAH,eAAP,MAAO,CAAV;AAEE,6BAAkB,OAAP,OAAU,oCAAH,CAAmC,0CAArD;AACA,wBAAoB,OAAP,OAAU,oCAAH,CAAmC;AACvD,yBAAqB,OAAP,OAAU,oCAAH,CAAmC;OAGxD;AAT4C;AArtEf;AAaX,+BAAY,e9E9LrB,gC8E8LqB,CAAZ;AAGF;AACF,6BzEnSV,uCyEmSU;AACG;AAlBY;AA+CN;AAvBO;;;AAU9B;AAV8B;;;;;AAoyCiB;AAzxCvB;AAyxCc;AAExC,eAAoD,YAAK,CAAC,KAAD;AAFjB;AAAS;AAUC;AAlyCvB;AAoyCV,gDAAC,MAAO,KAAR;AAFiC;AAKK;AAEvD,UAAY,aAAD,QAAX,EACE,aAAM,UADR;AAFuD;AApBC;AAAhB;AAExC,eAAU;AAF8B;AAAgB;AANP;AAEjC,sDAAC,OAAQ,uBAAT;AAChB,sBAAU;AAH2E;AAApC;AALN;AAAH;AAExC,eAAoD;AAFZ;AAAG;AAqBG;AAtxCvB;AAsxCiB;AAExC,eAA0D,yCAAC,KAAD;AAFlB;AAAM;AAzyCd;AAiBZ,+BAAO,UAMF,uCANE,CAAP;AAjBY;AAuBP;;;AAEvB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAxBuB;;;;;;;;;AAqqCgB;AA5oCV;AA8oC/B,UAAG,UAAM,KAAG,KAAZ;AAEE,4BAAS,SAAT;AACA;OAHF;AAFyC;AASO;AAppCV;AAspCtC,UAAG,iBAAa,KAAG,KAAnB;AAEE,mCAAgB,SAAhB;AACA;OAHF;AAFgD;AAzHN;AA1hCV;AA4hChC,UAAG,WAAO,KAAG,KAAb;AAEE,6BAAU,wCAAV;AAEA,YAAG,WAAO,KAAE,EAAZ;AACE,wBAAU;AACP,kBAAG,WAAO,KAAE,SAAZ,EACH,cAAU,QADP;AAGL;OATF;AAF0C;AAeE;AAxiCV;AA0iClC,UAAG,aAAS,KAAG,KAAf;AAEE,+BAAY,wCAAZ;AAEA,YAAG,aAAS,KAAE,EAAd;AACE,0BAAY;AACT,kBAAG,aAAS,KAAE,SAAd,EACH,gBAAY,QADT;AAGL;OATF;AAF4C;AAmEI;AA1mCV;AA4mCtC,UAAG,iBAAa,KAAG,KAAnB;AAEE,mCAAgB,wCAAhB;AAEA,YAAG,iBAAa,KAAE,EAAlB;AACE,8BAAgB;AACb,kBAAG,iBAAa,KAAE,SAAlB,EACH,oBAAgB,QADb;AAGL;OATF;AAFgD;AAeE;AAxnCV;AA0nCxC,UAAG,mBAAe,KAAG,KAArB;AAEE,qCAAkB,wCAAlB;AAEA,YAAG,mBAAe,KAAE,EAApB;AACE,gCAAkB;AACf,kBAAG,mBAAe,KAAE,SAApB,EACH,sBAAkB,QADf;AAGL;OATF;AAFkD;AAyDN;AAE5C,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAF4C;AAuCI;AAAf;AAEjC,eAAU,aAAQ,KAAG,CAAH;AAFe;AAAe;AA/DJ;AAE5C,UAAG,aAAS,KAAG,KAAf;AAEE,qBAAQ,OAAO,CAAC,KAAD;AACf;OAHF;AAF4C;AASI;AA9pCV;AAiqCtC,UAAG,iBAAa,KAAG,KAAnB;AAEE,mCAAgB,SAAhB;AACA;OAHF;AAHgD;AAnFE;AAGlD,yBAAc,OAAO,CAAC,KAAD;AAH6B;AAMD;AA/kCV;AAklCvC,UAAG,kBAAc,KAAG,KAApB;AAEE,oCAAiB,SAAjB;AACA;OAHF;AAHiD;AAUA;AAxlCV;AA2lCvC,UAAG,kBAAc,KAAG,KAApB;AAEE,oCAAiB,SAAjB;AACA;OAHF;AAHiD;AA+GK;AAArB;AAEjC,eAAU,mBAAc,KAAG,CAAH;AAFS;AAAqB;AAzJJ;AAElD,UAAG,mBAAe,KAAG,KAArB;AAEE,8BAAkB;AAClB;OAHF;AAFkD;AAmBM;AAGxD,wCAAwB,KAAxB;AACA;AAJwD;AAVA;AAnjCV;AAsjC9C,UAAG,yBAAqB,KAAG,KAA3B;AAEE,2CAAwB,wCAAxB;AACA;OAHF;AAHwD;AAsIV;AAAb;AAEjC,eAAU,WAAM,KAAG,kBAAH;AAFiB;AAAa;AAeD;AAAZ;AAEjC,eAAU,UAAK,KAAG,iBAAH;AAFkB;AAAY;AAzBO;AAAnB;AAEjC,eAAU,iBAAY,KAAG,wBAAH;AAFW;AAAmB;AAKE;AAArB;AAEjC,eAAU,mBAAc,KAAG,0BAAH;AAFS;AAAqB;AAUN;AAAf;AAEjC,eAAU,aAAQ,KAAG,oBAAH;AAFe;AAAe;AApOP;AAEzC,UAAW,CAAC,eAAD,SAAY,IAAkB,CAAb,iBAAa,KAAE,CAAF,CAAzC,EACE,eAAS,CAAC,IAAD,CADX;AAFyC;AAuMO;AAEhD;AAFgD;AA5LN;AAz8BV;AAAkD;AAAgD;AAAmD;AAAqD;AA28B1O,4BAAkB,qCAAgC,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,0BAAS,SAAT;AACA,iCAAgB,SAAhB;AACA,mCAAmB,qBAAnB;AACA,kCAAwB;AACxB,kCAAiB,oDAAjB;AACA,4BAAkB;AAClB,wCAAwB,gCAAM,CAAC,EAAG,CAAJ,CAA9B;AACA,kCAAiB,mDAAjB;AACA,2BAAU,yCAAV;AACA,kCAAiB,yCAAjB;AACA,sBAAY;AACZ,iCAAgB,mDAAhB;AACA,6BAAY,2CAAZ;AACA,iCAAgB,+CAAhB;AACA,mCAAkB,iDAAlB;AACA,oCAAmB,2CAAnB;AACA,wCAAuB,+CAAvB;AACA,0CAAyB,iDAAzB;AACA,iCAAgB,8CAAhB;AACA,sBAAY,uCAAa,QAAC;AAC1B,mBAAQ,UAAR,GAAsB;AAvB2Q;AAAvP;AA0BA;AAEjC,eAAT,KAAS;AACM,eAAf,KAAe;AACf;AAJ0C;AA3EF;AAExC,UAAa,8BAAH,eAAP,MAAO,CAAV;AAEE,6BAAkB,OAAP,OAAU,8BAAH,CAA6B,0CAA/C;AACA,+BAAoB,OAAP,OAAU,8BAAH,CAA6B,4CAAjD;AACA,mCAAwB,OAAP,OAAU,8BAAH,CAA6B,gDAArD;AACA,qCAA0B,OAAP,OAAU,8BAAH,CAA6B,kDAAvD;AACA,4BAAiB,OAAP,OAAU,8BAAH,CAA6B,UAA9C;AACA,mCAAwB,OAAP,OAAU,8BAAH,CAA6B,iBAArD;AACA,wBAAoB,OAAP,OAAU,8BAAH,CAA6B;AACjD,qBAAQ,OAAO,CAAS,OAAP,OAAU,8BAAH,CAA6B,SAAtC;AACf,mCAAwB,OAAP,OAAU,8BAAH,CAA6B,iBAArD;AACA,oCAAyB,OAAP,OAAU,8BAAH,CAA6B,kBAAtD;AACA,8BAA0B,OAAP,OAAU,8BAAH,CAA6B;AACvD,0CAAgC,OAAP,OAAU,8BAAH,CAA6B,qBAA7D;AACA,2BAAc,OAAO,CAAS,OAAP,OAAU,8BAAH,CAA6B,eAAtC;AACrB,oCAAyB,OAAP,OAAU,8BAAH,CAA6B,kBAAtD;AACA,2CAAgC,OAAP,OAAU,8BAAH,CAA6B,wDAA7D;OAEG,UAAa,gCAAH,eAAP,MAAO,CAAV;AAEH,6BAAkB,OAAP,OAAU,gCAAH,CAA+B,0CAAjD;AACA,wBAAY;AACZ,4BAAgB;AAChB,8BAAkB;AAClB,4BAAS,yCAAT;AACA,mCAAgB,mDAAhB;AACA,wBAAY;OART;AAUL;AA9BwC;AAiCK;AAEzC,uBAAJ,IAAG;AAF0C;AAiDF;AAEvC,uBAAJ,IAAG;AACH;AAH2C;AAtCS;AAEpD,yBAAa;AAFuC;AArDJ;AAz4Bf;AAy4BA;AAGjC,eAAU,mBAAa;AACvB,YAAM,SAAC,CAAS,MAAT;AACP,YAAM,YAAC,CAAY,SAAZ;AACP,YAAM,WAAC,CAAW,QAAX;AAN0B;AAAe;AAp9BvB;AAqEL,+BAAY,SAvNT,sCAuNS,GAAkD,UzEtY5E,uCyEsY4E,GAAgD,YzEtY5H,uCyEsY4H,GAAmD,gBzEtY/K,uCyEsY+K,GAAqD,kBzEtYpO,uCyEsYoO,EAAtN;AArEK;AA8EN;;AAcC,iC9E/wBR,kC8E+wBQ;AACL,6BA/OQ,sCA+OR;AACO,mCA7OQ,6CA6OR;AACN,8BzEhaV,uCyEgaU;AACE,gCzEjaZ,uCyEiaY;AACI,oCzElahB,uCyEkagB;AACE,sCzEnalB,uCyEmakB;AACF,mCAtPI,yCAsPJ;AACJ,+BD/PL,iDC+PK;AAtBC;AA4BA;;;AAEjB;AACA;AAHiB;;;;;AAixBkB;AAErC,UAAW,CAAC,eAAD,SAAY,IAAkB,CAAb,iBAAa,KAAE,CAAF,CAAzC,EACE,eAAS,CAAC,IAAD,CADX;AAFqC;AA7BD;AAE1B;AAMV,qBAAU,CAAC,EAAX;AACA,uBAAa;AATwB;AAAD;AAwCF;AAElB,oDAAC,MAAD;AAKhB,oBAAS,CAAC,IAAD;AAPyB;AALM;AAExC,iBAAM,CAAC,MAAD;AAFkC;AAxCD;AAEnC,uBAAJ,IAAG;AAFoC;AAkBF;AAEjC,uBAAJ,IAAG;AACH,oBAAS,CAAC,IAAD;AAH4B;AAjwBlB;AAqBC;AArBD;AAuCY;;AAEJ,mGAEP,UAFO;;AAEP,+BAAS,YAJE,6CAIF,CAAT;AAFO;AAKA;;;AAEzB;AACA;AACA;AACA;AACA;AACA;AACA;AARyB;;;;;;AAsoEiB;AA7nEZ;AA+nEhC,UAAG,WAAO,KAAG,KAAb;AAEE,6BAAU,wCAAV;AAEA,qBAAQ,CAAC,6CAAD;OAJV;AAF4C;AAUD;AAE3C,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AAET,qBAAQ,CAAC,4CAAD;OAJV;AAF2C;AAUA;AAE3C,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AAET,qBAAQ,CAAC,4CAAD;OAJV;AAF2C;AAUC;AAE5C,UAAG,WAAO,KAAG,KAAb;AAEE,yBAAa;AACb,sBAAU;AAEV,qBAAQ,CAAC,6CAAD;OALV;AAF4C;AAWA;AAE5C,UAAU,UAAP,YAAU,KAAH,CAAV;AAEE,sBAAU;AAEV,qBAAQ,CAAC,6CAAD;OAJV;AAF4C;AA3EG;AAAZ;AAEnC,eAAU,UAAK,KAAG,EAAH;AAFoB;AAAY;AAKC;AAAb;AAEnC,eAAU,WAAM,KAAG,CAAH;AAFmB;AAAa;AAKD;AAAZ;AAEnC,eAAU,UAAK,KAAG,CAAH;AAFoB;AAAY;AAKC;AAAb;AAEnC,eAAgB,UAAN,YAAS,EAAH;AAFmB;AAAa;AA4FJ;AA5rEf;AA8rE7B;AAF4C;AAI5C,YAAG,uBAAQ,CAAC,YAAQ,uCAA6B;;;;YAAtC,CAAX,EACE,EAAE,SAAS,CAAC,QAAD,CADb;AAJ4C;AAE5C;AAF4C;;AA/HA;AAE5C,oBAAU;AACV,oBAAU;AACV,mBAAS;AACT,oBAAU;AACV,mBAAS;AACT,oBAAU;AAPwD;AAAtB;AAUA;AAE5C;AAF4C;AA8BF;AAE1C,UAAc,gCAAH,eAAP,MAAO,CAAX;AAEE,sBAAiB,OAAP,OAAU,gCAAH,CAA+B,OAAhD;AACA,qBAAgB,OAAP,OAAU,gCAAH,CAA+B,MAA/C;AACA,qBAAgB,OAAP,OAAU,gCAAH,CAA+B,MAA/C;AACA,sBAAiB,OAAP,OAAU,gCAAH,CAA+B,OAAhD;AACA,sBAAgD,WAA/B,OAAP,OAAU,gCAAH,CAA+B,QAAhD;OAGA;AAXwC;AAiEK;AAjqEa;AAmqE5D,UAAY,KAAD,QAAX;AAEO;AACH,YADG,IACH;AAAU,eAAK,SAAC,CAAS,WAAT;AAChB,kBAFG,IAEH;AAAS,eAAK,QAAC,CAAwB,UAAK,CAAS,UAAT,CAA7B;AACf,kBAHG,IAGH;AAAS,eAAK,QAAC,CAAQ,UAAR;AACf,kBAJG,IAIH;AAME,eAAK,UAAC,CAAU,UAAK,CAAc,CAAb,KAAK,QAAQ,GAAE,WAAF,CAAS,GAAE,cAAzB,CAAf;SAGR,UAbG,IAaH,oDAAU,KAAK,SAAC,CAAS,uBAAT,CAAhB;OAfJ;AAF+C;AA1FD;AAAX;AAEnC,eAAU;AAFyB;AAAW;AA/lEnB;AAqBP,+BAAO,U9EjrBhB,gC8EirBgB,CAAP;AAMJ,6BzEpfV,uCyEofU;AACD;AACA;AACC;AACA,8BzEpeL,4CyEoeK;AA/BW;AAkCA;;;AAEzB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATyB;;;;;AA4qCgB;AAlqCZ;AAoqC/B,UAAG,UAAM,KAAG,KAAZ;AAEE,4BAAS,SAAT;AACA;OAHF;AAF2C;AAfC;AAlpCZ;AAopChC,UAAG,WAAO,KAAG,KAAb;AAEE,6BAAU,wCAAV;AAEA,YAAG,WAAO,KAAE,EAAZ;AACE,wBAAU;AACP,kBAAG,WAAO,KAAE,SAAZ,EACH,cAAU,QADP;AAGL;OATF;AAF4C;AAgDA;AAE5C,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACV;OAHF;AAF4C;AAxBE;AAE9C,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAF8C;AAmBI;AAAf;AAEnC,eAAU,aAAQ,KAAG,CAAH;AAFiB;AAAe;AAhDF;AAAb;AAEnC,eAAU,WAAM,KAAG,CAAH;AAFmB;AAAa;AA2CD;AAAZ;AAEnC,eAAU,UAAK,KAAG,iBAAH;AAFoB;AAAY;AALC;AAAb;AAEnC,eAAU,WAAM,KAAG,kBAAH;AAFmB;AAAa;AA5DL;AAE3C,UAAW,CAAC,eAAD,SAAY,IAAkB,CAAb,iBAAa,KAAE,CAAF,CAAzC,EACE,eAAS,CAAC,IAAD,CADX;AAF2C;AAMC;AA9mCZ;AAAoD;AAgnCpF,0BAAS,SAAT;AACA,iCAAgB,SAAhB;AACA,2BAAU,yCAAV;AACA,kCAAiB,yCAAjB;AACA,sBAAY;AACZ,oBAAU;AAPqI;AAAnG;AA9BF;AAE1C,UAAa,gCAAH,eAAP,MAAO,CAAV;AAEE,6BAAkB,OAAP,OAAU,gCAAH,CAA+B,0CAAjD;AACA,4BAAiB,OAAP,OAAU,gCAAH,CAA+B,UAAhD;AACA,wBAAoB,OAAP,OAAU,gCAAH,CAA+B;AACnD,sBAAkB,OAAP,OAAU,gCAAH,CAA+B;OAE9C,UAAa,8BAAH,eAAP,MAAO,CAAV;AAEH,6BAAkB,OAAP,OAAU,8BAAH,CAA6B,0CAA/C;AACA,4BAAS,2CAAT;AACA,wBAAY;AACZ,sBAAU;OALP;AAOL;AAhB0C;AAmBK;AAE3C,uBAAJ,IAAG;AAF4C;AAqBF;AAEzC,uBAAJ,IAAG;AACH;AAH6C;AAlpClB;AA0BP,+BAAY,SAxWP,wCAwWO,GAAoD,UzErhB9E,uCyEqhB8E,EAAhE;AA1BO;AAgCN;;AAMD,iC9En5BR,kC8Em5BQ;AACL,6BArXU,wCAqXV;AACC,8BzEniBV,uCyEmiBU;AACA;AATK;AAeK,qDDjoBnB,kDCioBmB;AAEE;;AAEE;;;;;;mEAAU,CAAV,GDroBvB,kDCqoBuB;AAEN;AACtB;AADsB;;gBAWtB;AAXsB;;;aACtB,sBAUA;AAXsB;;AACtB;AAUA;AAXsB;;;AACtB,uBAL0B,0CAK1B;AAUA,wBDlpBK,0CCkpBL;AAXsB;AAiBG;;AAGF;AA44De;AA14DhB;AA04DS;AAEjC,qBAAkC,cAAW,QAAK,CAAC,KAAD,CAAhB,CAAlC;AAFiC;AAAO;AAKC;AA94DhB;AAg5DzB;AAEA,gBAAK,KAAL;AACU,cAAK,CAAC,MAAU,CAAX;AAL0B;AAj5DhB;AAYJ;;AACC,4CADD,6CACC;AAEH;;;AAEjB;AACA;AACA;AAJiB;;;;;;AA+0CoC;AAEvD,aAAM,CAAE,GAAe,CAAZ,MAAM,CAAC,CAAD,CAAG,EAAG,GAAE,MAAM,CAAC,CAAD,CAAG,EAAX,CAAvB;AACA,aAAM,CAAE,GAAe,CAAZ,MAAM,CAAC,CAAD,CAAG,EAAG,GAAE,MAAM,CAAC,CAAD,CAAG,EAAX,CAAvB;AACA,aAAQ,CAAF,CAAE,GAAe,CAAZ,MAAM,CAAC,CAAD,CAAG,EAAG,GAAE,MAAM,CAAC,CAAD,CAAG,EAAX,CAAf,CAA8B,GAAE,QAAxC;AACA,aAAQ,CAAF,CAAE,GAAe,CAAZ,MAAM,CAAC,CAAD,CAAG,EAAG,GAAE,MAAM,CAAC,CAAD,CAAG,EAAX,CAAf,CAA8B,GAAE,QAAxC;AACA,aAAM,MAAM,CAAC,CAAD,CAAG,EAAsB,GAAjB,MAAM,CAAC,CAAD,CAAG,EAAX,GAAgB,QAAF,GAAO,QAAvC;AACA,aAAM,MAAM,CAAC,CAAD,CAAG,EAAsB,GAAjB,MAAM,CAAC,CAAD,CAAG,EAAX,GAAgB,QAAF,GAAO,QAAvC;AAPuD;AA7IpB;AAAR;AAE3B,sBAAU,YAAO,SAAC,GAAD,sBAAjB;AAF2B;AAAQ;AAKA;AAhsCT;AAgsCC;AAE3B,qBAAmC,YAAO,SAAC,MAAD,CAA1C;AAF2B;AAAQ;AAvEC;AAE1B;AACV,qBAAW,8BAAyB,QAAC;AAHA;AAAD;AAMA;AAE5B,eAAR,KAAQ;AACR;AAHoC;AAMF;AAElC;AAEA,UAAa,wBAAH,eAAP,MAAO,CAAV;AAEE,oBAAO,SAAC,CAA6B,MAAO,SAAC,EAArC;AACR,iBAAS,QAAuC,OAAd,MAAO,SAAC,EAAM,GAAE,CAAF,kBAAhD;AAAI;AACF,sBAAO,SAAC,EAA0B,MAAO,UAAC,CAAD,CAAlC;;OAGT;AAXgC;AAuFE;AAAT;AAE3B,UAAG,eAAM,GAAE,CAAX;AACE,uBAAU,YAAO,SAAC,YAAO,SAAC,EAAM,GAAE,CAAjB,CAAmB,MAApC;;AAGA,uBAAU,gCAAM,CAAC,EAAG,CAAJ,CAAhB;;AANyB;AAAS;AAlBK;AAAd;AAE3B;AAEU,QAAD,sBAAC,qCAAI,CAAL;AACT,2BAAgB,CAAC;;;;WAprC8E,IAorC/E;AAChB,eAAU,gBAAW,CAAC,4CAAG,gBAAJ;AANM;AAAc;AASD;AAAb;AAE3B;AAEU,QAAD,sBAAC,qCAAI,CAAL;AACT,2BAAgB,CAAC;;;;WA7rC8E,IA6rC/E;AAChB,eAAU,eAAU,CAAC,iBAAI,0CAAL;AANO;AAAa;AA+HA;AAAb;AAE3B;AAAS;AAET,gBAAW,CAAE,GAAE,CAAF;AACb,cAAS,OAAQ,GAAE,CAAF;AACjB,YAAM,EAAN,GAAgB,CAAH,EAAG,GAAE,KAAF,CAAqC,GAAtB,CAAH,EAAG,GAAE,OAAF,CAAN,GAAuB,CAAH,EAAG,GAAE,CAAF,CAAN,GAAa,UAAU,EAAZ;AACrD,YAAM,EAAN,GAAgB,CAAH,EAAG,GAAE,KAAF,CAAqC,GAAtB,CAAH,EAAG,GAAE,OAAF,CAAN,GAAuB,CAAH,EAAG,GAAE,CAAF,CAAN,GAAa,UAAU,EAAZ;AAP1B;AAAa;AAUD;AAn1C+C;AAm1C3D;AAE3B;AAAI;AAAI;AAAI;AAAI;AAAI;AAAI;AAAI;AAC5B;AAEA,UAAG,UAAW,KAAE,CAAhB,EACE,aADF;AAEA,WAAM,CAAE,GAAkB,CAAb,CAAF,CAAE,GAAE,UAAF,CAAa,GAAE,CAAF,CAAlB;AACR,UAAK;AACK,YAAD,sBAAC,yCAAQ,UAAT;AACT,sCAA2B,CAAC,OAAQ;;;;WAAI;;;;WAAI;;;;WAAI;;;;WAAI;;;;WAAI;;;;UAA7B;AAC3B,eAAS,QAAgB,OAAX,UAAW,GAAE,CAAF,kBAAzB;AAAI;AAEI,mBAAN,OAAO,CAAD,UAAO,kBAAa,CAAC,MAAM,CAAC,CAAD,EAAK,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,CAApC,CAApB;AACN,YAAK,CAAE,GAAE,EAAF;;AAdkB;AAAY;AAvM5B,sBAAG;AAFsB;AAAT;AAI3B;AACA;AAEA,UAAG,YAAQ,SAAC,EAAM,GAAE,CAApB,EACM,OAAC,+BAAK,CAAC,EAAG,EAAG,EAAG,CAAV,CADZ;AAEA,qBAAU,+BAAK,CAAC,OAAO,OAAO,CAAC,OAAO,CAAC,MAAxB,CAAf;AACA,eAAS,QAAoB,OAAf,YAAQ,SAAC,EAAM,GAAE,CAAF,kBAA7B;AAAI;AAEF,mBAAM,YAAQ,SAAC,CAAD,CAAd;AACA,YAAG,EAAE,KAAM,KAA+B,0CAA1C,EACE,QADF;AAGA,YAAG,EAAE,MAAM,EAAG,GAAE,MAAM,KAAtB,EACE,MAAM,KAAN,GAAe,EAAE,MAAM,EADzB;AAEA,YAAG,EAAE,MAAM,EAAG,GAAE,MAAM,MAAtB,EACE,MAAM,MAAN,GAAgB,EAAE,MAAM,EAD1B;AAEA,YAAG,EAAE,MAAM,EAAG,GAAE,MAAM,IAAtB,EACE,MAAM,IAAN,GAAc,EAAE,MAAM,EADxB;AAEA,YAAG,EAAE,MAAM,EAAG,GAAE,MAAM,OAAtB,EACE,MAAM,OAAN,GAAiB,EAAE,MAAM,EAD3B;;AAKF,UAAG,kBAAS,CAAC,MAAM,MAAO,GAAE,MAAM,KAAR,CAAe,EAAG,IAAhC,CAAZ,EACE,MAAM,MAAN,GAAgB,MAAM,KAAM,GAAE,IADhC;AAEA,UAAG,kBAAS,CAAC,MAAM,OAAQ,GAAE,MAAM,IAAR,CAAc,EAAG,IAAhC,CAAZ,EACE,MAAM,OAAN,GAAiB,MAAM,IAAK,GAAE,IADhC;AA7B2B;AAAS;AAkDE;AAAX;AAE3B,eAAU;AAFiB;AAAW;AAiCJ;AAElC;AAEA,QAAE,KAAF,UAAW,+CAAX;AACA,QAAE,MAAC,SAAS,CAAT;AACH,kBAAO,IAAI,CAAC,wCAAD;AACX,+BAAe,YAAO,SAAC,YAAO,SAAC,EAAM,GAAE,CAAjB,CAAmB,MAAzC;AAPkC;AAUA;AAElC;AAEA,QAAE,KAAF,UAAW,+CAAX;AACA,QAAE,MAAC,SAAS,CAAT;AACH,kBAAO,IAAI,CAAC,wCAAD;AACX,UAAQ,CAAJ,CAAC,EAAG,KAAE,gBAAW,EAAb,CAAiB,IAAS,CAAJ,CAAC,EAAG,KAAE,gBAAW,EAAb,CAAlC,EACE,kBAAc,IADhB;AAPkC;AA0BC;AAEnC;AAEA,QAAE,KAAF,UAAW,gDAAX;AACA,QAAE,MAAC,SAAS,aAAT;AACH,kBAAO,IAAI,CAAC,wCAAD;AACX,QAAE,KAAF,UAAW,gDAAX;AACA,QAAE,MAAC,SAAS,aAAT;AACH,kBAAO,IAAI,CAAC,wCAAD;AACX,QAAE,KAAF,UAAW,gDAAX;AACA,QAAE,MAAC,SAAS,QAAT;AACH,kBAAO,IAAI,CAAC,wCAAD;AAZwB;AAeM;AAEzC;AAEA,UAAG,eAAM,GAAE,CAAX;AAEE,qBAAa,EAAb,GAAmB,gBAAS,EAAG,GAAe,CAAZ,gBAAS,EAAG,GAAE,YAAO,SAAC,YAAO,SAAC,EAAM,GAAE,CAAjB,CAAmB,MAAM,EAAlC,CAAf;AAC/B,qBAAa,EAAb,GAAmB,gBAAS,EAAG,GAAe,CAAZ,gBAAS,EAAG,GAAE,YAAO,SAAC,YAAO,SAAC,EAAM,GAAE,CAAjB,CAAmB,MAAM,EAAlC,CAAf;OAG/B,4BAAiB,aAAjB;AACF,kBAAO,CAAC,cAAe,cAAe,QAA/B;AAXkC;AA5BjC,mBAAG,CAAE,GAAE,CAAF;AACJ,oBAAG,CAAE,GAAE,CAAF;AAHyB;AAKvC;AAAI;AAAK;AAET,iBAAM,gBAAN;AACA,SAAG,EAAH,GAAkB,CAAT,mBAAS,GAAE,EAAE,EAAJ,CAAO,GAAY,CAAV,mBAAU,GAAE,YAAY,EAAd,CAAZ;AACzB,SAAG,EAAH,GAAkB,CAAT,mBAAS,GAAE,EAAE,EAAJ,CAAO,GAAY,CAAV,mBAAU,GAAE,YAAY,EAAd,CAAZ;AACzB,SAAG,EAAH,GAAmB,CAAV,mBAAU,GAAE,YAAY,EAAd,CAAiB,GAAW,CAAT,mBAAS,GAAE,QAAQ,EAAV,CAAX;AACpC,SAAG,EAAH,GAAmB,CAAV,mBAAU,GAAE,YAAY,EAAd,CAAiB,GAAW,CAAT,mBAAS,GAAE,QAAQ,EAAV,CAAX;AACpC,kBAAO,CAAC,IAAK,IAAK,QAAX;AAZgC;AA+DD;AAGtC;AAEA,eAAS,QAAsB,OAAX,WAAC,QAAD,CAAW,GAAE,CAAF,kBAA/B;AAAI;AACF,mBAAM,CAAS,WAAR,SAAS,CAAD,CAAT;;AAN8B;AAnBD;AAErC;AAEA,QAAE,KAAF,UAAW,8CAAX;AACA,QAAE,MAAC,SAAS,gBAAT;AACH,kBAAO,IAAI,CAAC,wCAAD;AACX,wBAAc;AAPuB;AA+OF;AAEnC,UAAG,eAAM,KAAE,CAAX;AACE,mBAAM,CAAC,UAAD;AAEN,YAAA,WAAM,CAAC,UAAD;AAER,iBAAM,CAAC,QAAD;AAP6B;AAlBG;AAEtC;AAAI;AAAI;AAAI;AACZ;AAEA,UAAK;AACL,WAAkB,CAAX,KAAK,KAAM,GAAE,KAAK,MAAP,CAAe,GAAE,CAAF;AACjC,WAAiB,CAAV,KAAK,IAAK,GAAE,KAAK,OAAP,CAAgB,GAAE,CAAF;AACjC,WAAM,CAAE,GAA8B,CAAd,CAAZ,KAAK,MAAO,GAAE,KAAK,KAAP,CAAc,GAAE,CAAF,CAA9B;AACR,WAAM,CAAE,GAA8B,CAAb,CAAb,KAAK,OAAQ,GAAE,KAAK,IAAP,CAAa,GAAE,CAAF,CAA9B;AACR,iBAAM,CAAC,gCAAM,CAAC,KAAK,MAAO,EAAb,CAAP;AACN,kBAAO,CAAC,gCAAM,CAAC,KAAK,MAAO,EAAG,GAAE,EAAlB,EAAuB,gCAAM,CAAC,EAAG,GAAE,EAAF,CAAM,KAAK,IAAf,EAAsB,gCAAM,CAAC,GAAI,KAAK,IAAV,CAAhE;AACP,kBAAO,CAAC,gCAAM,CAAC,EAAG,GAAE,EAAF,CAAM,KAAK,IAAf,EAAsB,gCAAM,CAAC,KAAK,OAAQ,EAAG,GAAE,EAAnB,EAAwB,gCAAM,CAAC,KAAK,OAAQ,EAAd,CAAjE;AACP,kBAAO,CAAC,gCAAM,CAAC,KAAK,OAAQ,EAAG,GAAE,EAAnB,EAAwB,gCAAM,CAAC,EAAG,GAAE,EAAF,CAAM,KAAK,OAAf,EAAyB,gCAAM,CAAC,GAAI,KAAK,OAAV,CAApE;AACP,kBAAO,CAAC,gCAAM,CAAC,EAAG,GAAE,EAAF,CAAM,KAAK,OAAf,EAAyB,gCAAM,CAAC,KAAK,MAAO,EAAG,GAAE,EAAlB,EAAuB,gCAAM,CAAC,KAAK,MAAO,EAAb,CAAnE;AACP,wBAAc;AAfwB;AA4BE;AAExC,UAAe,CAAX,UAAW,KAAE,GAAF,CAAO,IAAgB,CAAX,UAAW,KAAE,GAAF,CAAtC;AAEE,mBAAM,CAAC,gCAAM,CAAC,KAAK,MAAO,KAAK,IAAlB,CAAP;AACN,mBAAM,CAAC,gCAAM,CAAC,KAAK,OAAQ,KAAK,IAAnB,CAAP;AACN,mBAAM,CAAC,gCAAM,CAAC,KAAK,OAAQ,KAAK,OAAnB,CAAP;AACN,mBAAM,CAAC,gCAAM,CAAC,KAAK,MAAO,KAAK,OAAlB,CAAP;;AAIN,YAAG,uCAAa,IAAG,QAAnB;AAEE,qBAAM,CAAC,gCAAM,CAAC,KAAK,KAAM,GAAE,UAAF,CAAc,KAAK,OAA/B,CAAP;AACN,qBAAM,CAAC,gCAAM,CAAC,KAAK,KAAM,GAAE,UAAF,CAAc,KAAK,OAAQ,GAAE,UAAzC,EAAsD,gCAAM,CAAC,WAAY,UAAb,EAA0B,CAAC,IAAK,EAAnG;AACN,qBAAM,CAAC,gCAAM,CAAC,KAAK,MAAO,KAAK,OAAQ,GAAE,UAA5B,CAAP;;AAIN,qBAAM,CAAC,gCAAM,CAAC,KAAK,MAAO,KAAK,OAAlB,CAAP;;AAGR,YAAG,oCAAU,IAAG,QAAhB;AAEE,qBAAM,CAAC,gCAAM,CAAC,KAAK,MAAO,KAAK,IAAK,GAAE,UAAzB,CAAP;AACN,qBAAM,CAAC,gCAAM,CAAC,KAAK,KAAM,GAAE,UAAF,CAAc,KAAK,IAAK,GAAE,UAAtC,EAAmD,gCAAM,CAAC,WAAY,UAAb,EAA0B,CAAC,IAAK,EAAhG;AACN,qBAAM,CAAC,gCAAM,CAAC,KAAK,KAAM,GAAE,UAAF,CAAc,KAAK,IAA/B,CAAP;SAGN,MAAA,WAAM,CAAC,gCAAM,CAAC,KAAK,MAAO,KAAK,IAAlB,CAAP;AAER,YAAG,qCAAW,IAAG,QAAjB;AAEE,qBAAM,CAAC,gCAAM,CAAC,KAAK,MAAO,GAAE,UAAF,CAAc,KAAK,IAAhC,CAAP;AACN,qBAAM,CAAC,gCAAM,CAAC,KAAK,MAAO,GAAE,UAAF,CAAc,KAAK,IAAK,GAAE,UAAvC,EAAoD,gCAAM,CAAC,WAAY,UAAb,EAA0B,CAAC,GAAI,EAAhG;AACN,qBAAM,CAAC,gCAAM,CAAC,KAAK,OAAQ,KAAK,IAAK,GAAE,UAA1B,CAAP;SAGN,MAAA,WAAM,CAAC,gCAAM,CAAC,KAAK,OAAQ,KAAK,IAAnB,CAAP;AAER,YAAG,wCAAc,IAAG,QAApB;AAEE,qBAAM,CAAC,gCAAM,CAAC,KAAK,OAAQ,KAAK,OAAQ,GAAE,UAA7B,CAAP;AACN,qBAAM,CAAC,gCAAM,CAAC,KAAK,MAAO,GAAE,UAAF,CAAc,KAAK,OAAQ,GAAE,UAA1C,EAAuD,gCAAM,CAAC,WAAY,UAAb,EAA0B,EAAG,EAAjG;AACN,qBAAM,CAAC,gCAAM,CAAC,KAAK,MAAO,GAAE,UAAF,CAAc,KAAK,OAAhC,CAAP;SAGN,MAAA,WAAM,CAAC,gCAAM,CAAC,KAAK,OAAQ,KAAK,OAAnB,CAAP;AAER,YAAG,uCAAa,IAAG,QAAnB;AACE,qBAAM,CAAC,gCAAM,CAAC,KAAK,KAAM,GAAE,UAAF,CAAc,KAAK,OAA/B,CAAP;AAEN,cAAA,WAAM,CAAC,gCAAM,CAAC,KAAK,MAAO,KAAK,OAAlB,CAAP;;AAGV;AACA,wBAAc;AAxD0B;AA+InB,gCAAG;AACX,wBAAG;AAHkB;AAKlC;AACA;AACA;AACA;AAAY;AAAY;AACxB;AAEA,mBAAc,iBAAQ,CAAC,UAAD;AACtB,mBAAc,iBAAQ,CAAC,UAAD;AACtB,iBAAK,gBAAK,CAAC,UAAW,GAAK,CAAF,CAAE,GAAE,OAAF,CAAjB,wBAAV;AACA,UAAK,UAAW,GAAS,CAAN,CAAM,GAAF,CAAF,GAAM,OAAF,CAAT;AAChB,mBAAc;AACd,UAAG,UAAW,IAAK,CAAF,CAAE,GAAE,OAAF,CAAnB,EACE,aAAc,CAAE,GAAE,OADpB;AAEA,UAAG,UAAW,IAAM,CAAH,CAAC,CAAE,GAAE,OAAF,CAApB,EACE,aAAc,CAAC,CAAE,GAAE,OADrB;AAEA,UAAG,QAAG,CAAC,UAAD,CAAa,GAAE,KAArB,EACE,MADF;AAEA,mBAAc;AACd,aAAQ;AACR,kBAAa;AACb;AACE,YAAG,UAAW,GAAE,CAAhB;AAEE,sBAAa;AACb,uBAAc,CAAC,OAAG,GAAE,CAAF;AAClB,uBAAc,UAAW,GAAM,CAAH,OAAG,GAAE,CAAF,CAAN;AACzB,cAAG,UAAW,IAAc,CAAX,UAAW,GAAE,IAAF,CAA5B;AAEE,yBAAc,UAAW,GAAE,SAAF;AACzB,mBAAQ;WAHV;;AAQA,sBAAa;AACb,uBAAc,OAAG,GAAE,CAAF;AACjB,uBAAc,UAAW,GAAM,CAAH,OAAG,GAAE,CAAF,CAAN;AACzB,cAAG,UAAW,IAAc,CAAX,UAAW,GAAE,IAAF,CAA5B;AAEE,yBAAc,UAAW,GAAE,SAAF;AACzB,mBAAQ;WAHV;;AAMF,+BAAiB,CAAC,KAAM,MAAM,GAAI,MAAM,GAAI,MAAM,GAAI,MAAM,GAAI,WAAY,WAAY,SAAvE;AACjB,oBAAa;AACb,qBAAc,UAAW,GAAE,UAAF;OAzB3B,QA0BM,KA1BN;AAzBkC;AA5XC;AAEnC;AAEA,kBAAO,YAAC,CAAY,YAAO,SAAC,EAAM,GAAE,KAAK,SAAC,EAAlC;AACR,eAAS,QAAiB,OAAZ,KAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AACF,oBAAO,IAAI,CAAa,qCAAZ,KAAK,SAAO,CAAC,CAAD,EAAb;;AANsB;AA0SI;AAEvC;AACA;AAEA,UAAG,YAAQ,SAAC,EAAM,GAAE,CAApB;AAEE,iBAAS,QAAoB,OAAf,YAAQ,SAAC,EAAM,GAAE,CAAF,kBAA7B;AAAI;AAEF,cAAG,YAAQ,SAAC,CAAD,CAAG,KAAM,IAAG,cAA8B,4CAAwC,4CAAwC,4CAA9G,CAAvB;AAEE,uBAAM,YAAQ,SAAC,CAAD,CAAd;AACA,cAAE,MAAC,SAAS,qBAAc,CAAC,EAAE,OAAQ,OAAX,CAAvB;AACH,wBAAQ,SAAC,EAAM,EAAP;WAJV;;OAJJ;AALuC;AAxRN;AAEjC,kBAAO;AAF0B;AA2CE;AAEnC;AAAG;AACH;AACA;AACA;AAAG;AACH;AACA;AACA;AACA;AAEA,UAAG,YAAO,SAAC,EAAM,GAAE,CAAnB;AAEE,YAAK,QAAG,CAAC,SAAU,IAAX;AACR,sBAAe,8BAAyB,QAAC;AACzC;AACE,qBAAW,SAAC,CAAS,YAAO,SAAC,EAAjB;AACZ,mBAAS,QAAmB,OAAd,YAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AACF,uBAAW,IAAI,CAAQ,qCAAP,YAAO,SAAC,CAAD,EAAR;;AACjB,sBAAO;AACP,cAAK;AACL,iBAAM,CAAE,GAAE,WAAW,SAAC,EAAtB;AAEqB,uBAAd,WAAW,SAAC,CAAD,CAAG;AACjB,gBADiB,IACjB;AAEI,yBAAM,CAAC,WAAW,SAAC,CAAD,CAAG,MAAf;AACN,+BAAY,WAAW,SAAC,CAAD,CAAG,MAA1B;aAEJ,UANiB,IAMjB;AAEI,yBAAM,CAAC,WAAW,SAAC,CAAD,CAAG,MAAf;AACN,+BAAY,WAAW,SAAC,CAAD,CAAG,MAA1B;aAEJ,UAXiB,IAWjB;AAEI,eAAC,CAAC,CAAD,UAAO,QAAP;AACD,eAAC,CAAC,CAAD,UAAO,WAAW,SAAC,CAAD,CAAG,MAArB;AACG,eAAJ,IAAG;AACH,eAAC,CAAC,CAAD,UAAO,WAAW,SAAC,CAAD,CAAG,MAArB;AACG,eAAJ,IAAG;AACH,eAAC,CAAC,CAAD,UAAO,WAAW,SAAC,CAAD,CAAG,MAArB;AACD,qBAAQ,iBAAY,CAAC,EAAG,CAAJ;AACpB,oBAAO;AACP,uBAAS,SAAgB,QAAP,WAAC,IAAD,CAAO,GAAP,IAAS,CAAF,qBAAzB;AAAI;AAEF,iBAAC,EAAD,GAAW,WAAJ,KAAK,CAAD,CAAG,EAAG,GAAM,WAAJ,KAAK,CAAE,GAAE,CAAL,CAAO,EAAb;AACjB,iBAAC,EAAD,GAAW,WAAJ,KAAK,CAAD,CAAG,EAAG,GAAM,WAAJ,KAAK,CAAE,GAAE,CAAL,CAAO,EAAb;AACjB,sBAAO,GAAI,GAAE,wCAAc,CAAC,CAAD,CAAhB;;AAEb,gCAAY,UAAK,CAAC,GAAI,GAAE,CAAP,wBAAjB;AACA,kBAAG,QAAS,GAAE,CAAd;AACE,2BAAM,CAAC,CAAC,CAAC,CAAD,CAAF;;AAGN,uBAAQ,iBAAY,CAAC,EAAG,QAAJ;AACpB,yBAAS,SAAS,mBAAC,IAAD,0BAAlB;AAAI;AACF,6BAAM,CAAK,WAAJ,KAAK,CAAD,CAAL;;AACR,iCAAY,WAAW,SAAC,CAAD,CAAG,MAA1B;;aAGN,UAtCiB,IAsCjB,iDACE,gBADF;AAGE,aAAJ,IAAG;;AAjDP;AAoDE,qBAAY,eAAZ,WAAY;AApDd;OAJF;AAXmC;AAwES;;AAE1B;AAEhB,YAAoB,CAAV,WAAC,aAAD,CAAU,GAAE,CAAF,CAAK,IAAK,kBAAS,CAAC,CAAC,GAAW,WAAP,cAAY,WAAC,aAAD,KAAL,CAAe,GAAI,IAAhC,CAA8C,IAAI,kBAAS,CAAC,CAAC,GAC3F,WAAP,cAAY,WAAC,aAAD,KAAL,CAAe,GAAI,IADsE,CAAlG,EAEE,MAFF;AAGU,oBAAD,mBAAC,gDAAe,WAAC,aAAD,CAAU,GAAE,CAA5B,CAAC;AACH,mBAAP,cAAY,WAAC,aAAD,KAAL,UAAmB,CAAnB;AANS;AAUlB;AAAG;AACH;AACA;AACA;AAAI;AAAU;AACd;AAAG;AACH;AAEU,kBAAD,mBAAC,gDAAS,CAAV,CAAC;AACV,UAAG,YAAO,SAAC,EAAM,GAAE,CAAnB;AAEE,YAAK,QAAG,CAAC,SAAU,IAAX;AACR,YAAK;AACL,eAAM,CAAE,GAAE,YAAO,SAAC,EAAlB;AAEiB,qBAAV,YAAO,SAAC,CAAD,CAAG;AACb,cADa,IACb;AAEI,oBAAQ,CAAC,YAAO,SAAC,CAAD,CAAG,MAAX;AACR,6BAAY,YAAO,SAAC,CAAD,CAAG,MAAtB;AACA,uBAAM,QAAN;WAEJ,UAPa,IAOb;AAEI,oBAAQ,CAAC,YAAO,SAAC,CAAD,CAAG,MAAX;AACR,6BAAY,YAAO,SAAC,CAAD,CAAG,MAAtB;WAEJ,UAZa,IAYb;AAEI,aAAC,CAAC,CAAD,UAAO,QAAP;AACD,aAAC,CAAC,CAAD,UAAO,YAAO,SAAC,CAAD,CAAG,MAAjB;AACG,aAAJ,IAAG;AACH,aAAC,CAAC,CAAD,UAAO,YAAO,SAAC,CAAD,CAAG,MAAjB;AACG,aAAJ,IAAG;AACH,aAAC,CAAC,CAAD,UAAO,YAAO,SAAC,CAAD,CAAG,MAAjB;AACD,mBAAQ,iBAAY,CAAC,EAAG,CAAJ;AACpB,kBAAO;AACP,qBAAS,QAAgB,OAAP,WAAC,IAAD,CAAO,GAAP,IAAS,CAAF,kBAAzB;AAAI;AAEF,eAAC,EAAD,GAAW,WAAJ,KAAK,CAAD,CAAG,EAAG,GAAM,WAAJ,KAAK,CAAE,GAAE,CAAL,CAAO,EAAb;AACjB,eAAC,EAAD,GAAW,WAAJ,KAAK,CAAD,CAAG,EAAG,GAAM,WAAJ,KAAK,CAAE,GAAE,CAAL,CAAO,EAAb;AACjB,oBAAO,GAAI,GAAE,wCAAc,CAAC,CAAD,CAAhB;;AAEb,8BAAY,UAAK,CAAC,GAAI,GAAE,CAAP,wBAAjB;AACA,gBAAG,QAAS,GAAE,CAAd;AAEE,sBAAQ,CAAC,CAAC,CAAC,CAAD,CAAF;AACR,sBAAQ,CAAC,CAAC,CAAC,CAAD,CAAF;;AAIR,qBAAQ,iBAAY,CAAC,EAAG,QAAJ;AACpB,uBAAS,SAAS,mBAAC,IAAD,0BAAlB;AAAI;AACF,wBAAQ,CAAK,WAAJ,KAAK,CAAD,CAAL;;;AAEZ,6BAAY,YAAO,SAAC,CAAD,CAAG,MAAtB;WAEJ,UA1Ca,IA0Cb;AAEE,oBAAQ,CAAC,EAAD;WAFV;AAKE,WAAJ,IAAG;;OArDP;AApB4C;AA77CzB;AASC;AATD;AAyCO;;;AAExB;AAFwB;AAo2DiB;AAh2DhB;AAk2D3B,2BAAU,yCAAV;AAF0E;AAA/B;AAp2DjB;AAQG;;AAGC;;AACF;;AACD;;AAGH;AA4iEsB;AAG9C;AACA;AAEA,WAAM;AACN,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,YAAG,IAAK,KAAE,IAAI,KAAC,CAAD,CAAd;AAEE,eAAM,cAAO,CAAC,CAAD;AACb;SAHF;;AAOF,UAAG,CAAY,CAAC,EAAD,SAAf;AAEE,sBAAS,CAAC,KAAM,MAAP;OAGF,MAAP,cAAO,CAAC,EAAM,MAAP;AArBqC;AAwBH;AAAX;AAGhC;AAEA,eAAU;AACV,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,YAAG,IAAK,KAAE,IAAI,KAAC,CAAD,CAAd;AAEE,qBAAqB,OAAX,cAAO,CAAC,CAAD,EAAO,+BAAH,CAArB;AACA,mBAAU;AACV;SAJF;;AAR8B;AAAW;AApkEnB;AA4IP;AAAV;AAEP,mBAAU,KAAV;AAEK;AACH,QADG,IACH;AAAe,qBAAU,+BAAK,CAAC,cAAG,CAAC,MAAM,KAAP,CAAc,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,IAAP,CAAa,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,MAAP,CAAe,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,OAAP,CAAgB,GAAE,GAA9F,CAAf;AACf,cAFG,IAEH;AAAe,qBAAU,+BAAK,CAAC,cAAG,CAAC,MAAM,KAAP,CAAc,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,IAAP,CAAa,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,MAAP,CAAe,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,OAAP,CAAgB,GAAE,GAA9F,CAAf;AACf,cAHG,IAGH;AAA+B,qBAAU,+BAAK,CAAC,cAAG,CAAC,MAAM,KAAP,CAAc,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,IAAP,CAAa,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,MAAP,CAAe,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,OAAP,CAAgB,GAAE,GAA9F,CAAf;AAC/B,cAJG,IAIH;AAAoB,qBAAU,+BAAK,CAAC,cAAG,CAAC,MAAM,KAAP,CAAc,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,IAAP,CAAa,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,MAAP,CAAe,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,OAAP,CAAgB,GAAE,GAA9F,CAAf;AACpB,cALG,IAKH;AAA+B,qBAAU,+BAAK,CAAC,cAAG,CAAC,MAAM,KAAP,CAAc,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,IAAP,CAAa,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,MAAP,CAAe,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,OAAP,CAAgB,GAAE,GAA9F,CAAf;AAC/B,cANG,IAMH;AAA6B,qBAAU,+BAAK,CAAC,cAAG,CAAC,MAAM,KAAP,CAAc,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,IAAP,CAAa,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,MAAP,CAAe,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,OAAP,CAAgB,GAAE,GAA9F,CAAf;AAC7B,cAPG,IAOH;AAA2B,qBAAU,+BAAK,CAAC,cAAG,CAAC,MAAM,KAAP,CAAc,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,IAAP,CAAa,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,MAAP,CAAe,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,OAAP,CAAgB,GAAE,GAA9F,CAAf;AAC3B,cARG,IAQH;AAAkB,qBAAU,+BAAK,CAAC,cAAG,CAAC,MAAM,KAAP,CAAc,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,IAAP,CAAa,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,MAAP,CAAe,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,OAAP,CAAgB,GAAE,GAA9F,CAAf;AAClB,cATG,IASH;AAAiB,qBAAU,+BAAK,CAAC,cAAG,CAAC,MAAM,KAAP,CAAc,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,IAAP,CAAa,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,MAAP,CAAe,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,OAAP,CAAgB,GAAE,GAA9F,CAAf;AACjB,cAVG,IAUH;AAAmB,qBAAU,+BAAK,CAAC,cAAG,CAAC,MAAM,KAAP,CAAc,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,IAAP,CAAa,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,MAAP,CAAe,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,OAAP,CAAgB,GAAE,GAA9F,CAAf;AACnB,cAXG,IAWH,sEAA8B,eAAU,+BAAK,CAAC,cAAG,CAAC,MAAM,KAAP,CAAc,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,IAAP,CAAa,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,MAAP,CAAe,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,OAAP,CAAgB,GAAE,GAA9F,CAAf,CAA9B;AAfK;AAAU;AAoBC;AAAX;AAEP,mBAAU,MAAV;AAEK;AACH,QADG,IACH;AAAe,qBAAU,gCAAM,CAAC,cAAG,CAAC,MAAM,EAAP,CAAW,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,EAAP,CAAW,GAAE,GAAtC,CAAhB;AACf,cAFG,IAEH;AAAY,qBAAU,gCAAM,CAAC,cAAG,CAAC,MAAM,EAAP,CAAW,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,EAAP,CAAW,GAAE,GAAtC,CAAhB;AACZ,cAHG,IAGH;AAAa,qBAAU,gCAAM,CAAC,cAAG,CAAC,MAAM,EAAP,CAAW,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,EAAP,CAAW,GAAE,GAAtC,CAAhB;AACb,cAJG,IAIH,uDAAc,eAAU,gCAAM,CAAC,cAAG,CAAC,MAAM,EAAP,CAAW,GAAE,GAAF,CAAO,cAAG,CAAC,MAAM,EAAP,CAAW,GAAE,GAAtC,CAAhB,CAAd;AARK;AAAW;AA4VM;AAjfK;AAAQ;AAAO;AAifrC;AAYP,oBAAU,0BAAG,CAAC,KAAM,OAAQ,KAAf,oCAAb;AAZO;AAAiB;AA9NV;AAlRO;AAAgC;AAkR9C;AAEP;AAAG;AAAG;AAGN,oBAAU,iCAAU,CAAC,MAAD,oCAApB;AACA,eAAK,gCAAS,CAAC,MAAD,OAAd;AACA,eAAK,gCAAS,CAAC,MAAD,OAAd;AACA,eAAK,gCAAS,CAAC,MAAD,OAAd;AASA,eAAK,CAAE,GAAE,QAAG,CAAC,IAAK,sCAAY,UAAU,CAAC,GAAI,GAAE,CAAF,CAAK,SAAU,GAApB,CAA5B,CAAL,MAAP;AACA,eAAK,CAAE,GAAE,QAAG,CAAC,IAAK,sCAAY,UAAU,CAAC,GAAI,GAAE,CAAF,CAAK,SAAU,GAApB,CAA5B,CAAL,MAAP;AACA,eAAK,CAAE,GAAE,QAAG,CAAC,IAAK,sCAAY,UAAU,CAAC,GAAI,GAAE,CAAF,CAAK,SAAU,GAApB,CAA5B,CAAL,MAAP;AAQA,oBAAU,sBAAiB,CAAC,EAAG,EAAG,CAAP,oCAA3B;AA3BO;AAAO;AA+BD;AAhTO;AAAgC;AAgT7C;AAEP;AAAG;AAAG;AAGN,oBAAU,iCAAU,CAAC,MAAD,oCAApB;AACA,eAAK,gCAAS,CAAC,MAAD,OAAd;AACA,eAAK,gCAAS,CAAC,MAAD,OAAd;AACA,eAAK,gCAAS,CAAC,MAAD,OAAd;AASA,eAAK,CAAE,GAAE,QAAG,CAAC,EAAG,sCAAY,UAAU,CAAC,GAAI,GAAE,CAAF,CAAK,SAAU,GAApB,CAA1B,CAAL,MAAP;AACA,eAAK,CAAE,GAAE,QAAG,CAAC,EAAG,sCAAY,UAAU,CAAC,GAAI,GAAE,CAAF,CAAK,SAAU,GAApB,CAA1B,CAAL,MAAP;AACA,eAAK,CAAE,GAAE,QAAG,CAAC,EAAG,sCAAY,UAAU,CAAC,GAAI,GAAE,CAAF,CAAK,SAAU,GAApB,CAA1B,CAAL,MAAP;AAQA,oBAAU,sBAAiB,CAAC,EAAG,EAAG,CAAP,oCAA3B;AA3BO;AAAM;AA9DD;AAAL;AAEP;AAAI;AACJ;AAAG;AAAG;AAAG;AAAI;AAEb,aAAU,UAAK,CAAC,IAAK,GAAE,MAAR;AAEf,SAAM,iCAAU,CAAC,OAAD;AAChB,SAAM,iCAAU,CAAC,OAAD;AAMhB,SAAW,EAAD;AACV,SAAW,EAAD;AACV,QAAK,QAAG,CAAC,EAAG,QAAG,CAAC,IAAwB,CAAZ,CAAP,MAAO,GAAM,CAAH,EAAG,GAAE,EAAF,CAAN,CAAY,KAAI,CAAJ,CAAM,GAAE,EAAjC,CAAP;AACR,SAAc,WAAH,EAAG,OAAJ;AACV,SAAc,WAAH,EAAG,OAAJ;AACV,QAAK,QAAG,CAAC,EAAG,QAAG,CAAC,IAAwB,CAAZ,CAAP,MAAO,GAAM,CAAH,EAAG,GAAE,EAAF,CAAN,CAAY,KAAI,CAAJ,CAAM,GAAE,EAAjC,CAAP;AACR,SAAc,WAAH,EAAG,SAAJ;AACV,SAAc,WAAH,EAAG,SAAJ;AACV,QAAK,QAAG,CAAC,EAAG,QAAG,CAAC,IAAwB,CAAZ,CAAP,MAAO,GAAM,CAAH,EAAG,GAAE,EAAF,CAAN,CAAY,KAAI,CAAJ,CAAM,GAAE,EAAjC,CAAP;AAER,aAAa,CAAF,CAAE,IAAI,EAAJ,CAAoB,GAAP,CAAF,CAAE,IAAI,CAAJ,CAAL,GAAc,CAAF;AAxB1B;AAAK;AAlFM;AAAX;AAEP,aAAU;AAFH;AAAW;AA4BA;AAAX;AAEP;AAAM;AAAM;AAAM;AAClB;AAAG;AACH;AACA;AAAI;AACJ;AAAQ;AACR;AACA;AAEA,aAAU;AACV,QAAS,WAAC,QAAD,CAAW,KAAE,CAAtB,EACE,aADF;AAGA,WAAQ,QAAQ,CAAC,CAAD,CAAG;AACnB,WAAQ,QAAQ,CAAC,CAAD,CAAG;AACnB,WAAQ,QAAQ,CAAC,CAAD,CAAG;AACnB,WAAQ,QAAQ,CAAC,CAAD,CAAG;AAEnB,aAAS,QAAsB,OAAX,WAAC,QAAD,CAAW,GAAE,CAAF,kBAA/B;AAAI;AAEF,gBAAK,QAAQ,CAAC,CAAD,CAAb;AACA,aAAQ,QAAG,CAAC,CAAC,GAAI,IAAN;AACX,aAAQ,QAAG,CAAC,CAAC,GAAI,IAAN;AACX,aAAQ,QAAG,CAAC,CAAC,GAAI,IAAN;AACX,aAAQ,QAAG,CAAC,CAAC,GAAI,IAAN;;AAGb,QAAa,CAAT,MAAM,EAAG,GAAE,IAAF,CAAkD,IAA7B,CAAT,MAAM,EAAG,GAAE,IAAF,CAAb,IAAkC,CAAT,MAAM,EAAG,GAAE,IAAF,CAAb,IAAkC,CAAT,MAAM,EAAG,GAAE,IAAF,CAA5E;AAEE,eAAU;AACV;KAHF;AAMA,aAAU;AACV,QAAW,WAAC,QAAD,CAAW,GAAE,CAAF;AACtB,aAAS,SAAsB,QAAX,WAAC,QAAD,CAAW,GAAE,CAAF,qBAA/B;AAAI;AAEF,iBAAM,QAAQ,CAAC,CAAD,CAAd;AACA,kBAAO,QAAQ,CAAC,CAAD,CAAf;AACA,YAAa,CAAL,EAAE,EAAG,GAAE,MAAM,EAAR,CAAY,KAAU,CAAN,GAAG,EAAG,GAAE,MAAM,EAAR,CAAV;AACzB,UAAU,CAAN,GAAG,EAAG,GAAE,EAAE,EAAJ,CAAQ,KAAG,CAArB;AAEE,eAA2C,CAApB,CAAR,CAAN,GAAG,EAAG,GAAE,EAAE,EAAJ,CAAQ,GAAY,CAAT,MAAM,EAAG,GAAE,EAAE,EAAJ,CAAZ,CAAoB,GAAS,CAAN,GAAG,EAAG,GAAE,EAAE,EAAJ,CAAT,CAAiB,GAAE,EAAE,EAAJ;AAC5D,eAAQ,MAAM,EAAG,GAAE,IAAF;AACjB,YAAG,GAAI,IAAI,IAAX,EACE,SAAU,CAAI,MADhB;OAJF;AAQA,UAAK;;AAEP,aAAU;AAnDH;AAAW;AARD;AAAV;AAEP,aAAU,gBAAW,CAAO,yCAAN,gCAAM,CAAC,KAAK,MAAO,KAAK,IAAlB,GAAyB,sBAAhC,CAGnB,IAFG,gBAAW,CAAO,yCAAN,gCAAM,CAAC,KAAK,OAAQ,KAAK,IAAnB,GAA0B,sBAAjC,CAAd,IACG,gBAAW,CAAO,yCAAN,gCAAM,CAAC,KAAK,MAAO,KAAK,OAAlB,GAA4B,sBAAnC,CAAd,IACG,gBAAW,CAAO,yCAAN,gCAAM,CAAC,KAAK,OAAQ,KAAK,OAAnB,GAA6B,sBAApC,CAAd;AALK;AAAU;AAfA;AAAV;AAEP;AAEA,aAAU;AACV,aAAS,QAAsB,OAAX,WAAC,QAAD,CAAW,GAAE,CAAF,kBAA/B;AAAI;AAEF,UAAG,oCAAU,CAAC,MAAO,QAAQ,CAAC,CAAD,CAAhB,CAAb;AAEE,iBAAU;AACV;OAHF;;AAPK;AAAU;AA4KG;AAzUyB;AAAU;AAiVvD;AAAM;AAAO;AACb;AAAM;AAAO;AACb;AAAM;AAAO;AACb;AACA;AAAO;AAAO;AAAO;AACrB;AAAE;AACF;AAAM;AACN;AAEA;AAAG;AACH;AAMA;AACA;AACA;AAEA,cAAK,KAAL;AAGA,QAAG,UAAH;AACE,qBAAS,UAAK,CAAC,CAAC,MAAO,GAAE,CAAC,KAAZ,wBAAd;AAEA,yBAAS,UAAK,CAAC,CAAC,OAAQ,GAAE,CAAC,IAAb,wBAAd;AASF,QAAG,KAAM,KAAE,CAAX,EACE,QAAS,CADX;AAGA,oBAAU,iCAAU,CAAC,MAAD,oCAApB;AACA,sBAAY,iCAAU,CAAC,QAAD,oCAAtB;AAEA,oBAAW,MAAO,GAAI,IAAJ,uBAAlB;AACA,oBAA+B,WAAb,CAAP,MAAO,GAAI,MAAJ,CAAa,8BAA/B;AACA,oBAA+B,WAAb,CAAP,MAAO,GAAI,QAAJ,CAAa,gCAA/B;AAEA,kBAAS,QAAS,GAAI,IAAJ,uBAAlB;AACA,kBAA+B,WAAb,CAAT,QAAS,GAAI,MAAJ,CAAa,8BAA/B;AACA,kBAA+B,WAAb,CAAT,QAAS,GAAI,QAAJ,CAAa,gCAA/B;AAEA,mBAAS,IAAK,GAAE,MAAF,uBAAd;AACA,mBAAS,IAAK,GAAE,MAAF,uBAAd;AACA,mBAAS,IAAK,GAAE,MAAF,uBAAd;AAEA,aAAU,KAAM,GAAE,KAAF;AAChB,aAAU,KAAM,GAAE,KAAF;AAChB,aAAU,KAAM,GAAE,KAAF;AAEhB,QAAG,UAAH;AACE,eAAmB,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,KAAF;AAE7B,mBAAoB,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,KAAF;AAI7B,kBAAQ,cAAK,0CAAb;AACA,mBAAS,cAAK,WAAd;AACA,kBAAQ,YAAG,0CAAX;AACA,mBAAS,YAAG,WAAZ;AACA,gBAAG,OAAH,UAAa,4CAAb;AACA,kBAAK,OAAL,UAAe,8CAAf;AACA,aAAS,QAAW,OAAN,KAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,oBAAQ,MAAO,GAAE,UAAK,CAAC,MAAM,GAAC,CAAR,CAAP,uBAAf;AACA,oBAAQ,MAAO,GAAE,UAAK,CAAC,MAAM,GAAC,CAAR,CAAP,uBAAf;AACA,oBAAQ,MAAO,GAAE,UAAK,CAAC,MAAM,GAAC,CAAR,CAAP,uBAAf;AACA,qBAAS,UAAK,CAAC,CAAC,GAAC,MAAH,SAAd;AACA,kBAAG,SAAC,CAAS,IAAoB,GAAP,CAAL,IAAK,IAAI,CAAJ,CAAR,GAAuB,CAAL,IAAK,IAAI,EAAJ,CAArC;AACJ,oBAAK,OAAL,UAAe,YAAG,0CAAlB;AAEA,UAAG,UAAH;AAEE,oBAAM,gBAAK,CAAC,MAAD,wBAAX;AACA,eAAQ,CAAC,KAAc,GAAN,KAAF,GAAU,EAAF;AACvB,eAAQ,QAAG,CAAC,KAAM,CAAC,MAAR;AAEX,mBAAM,CAAN;AAEA,YAAM,CAAF,CAAE,IAAG,SAAH,CAAc,IAA6B,CAAb,CAAV,oCAAU,IAAG,QAAH,CAAa,IAAiB,CAAb,uCAAa,IAAG,QAAH,CAAjB,CAAjD;AAEE,cAAK,SAAI,CAAC,QAAK,CAAC,UAAW,CAAZ,CAAe,GAAE,QAAK,CAAC,SAAU,GAAE,CAAF,CAAK,CAAhB,CAA5B;AAET,cAAI,oCAAU,IAAG,QAAjB,EACE,EAAE,IAAF,GAAU,EAAE,IAAK,GAAE,UAAK,CAAC,SAAU,GAAE,CAAb,CAD1B;AAGA,cAAI,uCAAa,IAAG,QAApB,EACE,EAAE,OAAF,GAAa,EAAE,OAAQ,GAAE,UAAK,CAAC,SAAU,GAAE,CAAb,CADhC;SAGG,UAAM,CAAF,CAAE,IAAS,CAAN,KAAM,GAAE,SAAF,CAAT,CAAsB,IAAiC,CAAb,CAAd,wCAAc,IAAG,QAAH,CAAa,IAAe,CAAX,qCAAW,IAAG,QAAH,CAAf,CAA7D;AAEH,cAAK,SAAI,CAAC,QAAK,CAAC,UAAW,CAAZ,CAAe,GAAE,QAAK,CAAC,SAAU,GAAS,CAAN,KAAM,GAAE,CAAF,CAAT,CAAe,CAA1B,CAA5B;AAET,cAAI,qCAAW,IAAG,QAAlB,EACE,EAAE,IAAF,GAAU,EAAE,IAAK,GAAE,UAAK,CAAC,SAAU,GAAE,CAAb,CAD1B;AAGA,cAAI,wCAAc,IAAG,QAArB,EACE,EAAE,OAAF,GAAa,EAAE,OAAQ,GAAE,UAAK,CAAC,SAAU,GAAE,CAAb,CADhC;SAPG;AAWL,yBAAS,CAAC,EAAE,KAAM,GAAE,KAAF,CAAS,EAAE,KAAM,KAAM,EAAE,OAAlC;;AAIT,oBAAM,gBAAK,CAAC,MAAD,wBAAX;AACA,eAAQ,CAAC,IAAa,GAAN,KAAF,GAAU,EAAF;AACtB,eAAQ,QAAG,CAAC,KAAM,CAAC,OAAR;AAEX,mBAAM,CAAN;AAEA,YAAM,CAAF,CAAE,IAAG,SAAH,CAAc,IAA6B,CAAb,CAAV,oCAAU,IAAG,QAAH,CAAa,IAAe,CAAX,qCAAW,IAAG,QAAH,CAAf,CAAjD;AAEE,cAAK,SAAI,CAAC,QAAK,CAAC,UAAW,CAAZ,CAAe,GAAE,QAAK,CAAC,SAAU,GAAE,CAAF,CAAK,CAAhB,CAA5B;AAET,cAAI,oCAAU,IAAG,QAAjB,EACE,EAAE,KAAF,GAAW,EAAE,KAAM,GAAE,UAAK,CAAC,SAAU,GAAE,CAAb,CAD5B;AAGA,cAAI,qCAAW,IAAG,QAAlB,EACE,EAAE,MAAF,GAAY,EAAE,MAAO,GAAE,UAAK,CAAC,SAAU,GAAE,CAAb,CAD9B;SAGG,UAAM,CAAF,CAAE,IAAS,CAAN,KAAM,GAAE,SAAF,CAAT,CAAsB,IAAgC,CAAb,CAAb,uCAAa,IAAG,QAAH,CAAa,IAAkB,CAAd,wCAAc,IAAG,QAAH,CAAlB,CAA5D;AAEH,cAAK,SAAI,CAAC,QAAK,CAAC,UAAW,CAAZ,CAAe,GAAE,QAAK,CAAC,SAAU,GAAS,CAAN,KAAM,GAAE,CAAF,CAAT,CAAe,CAA1B,CAA5B;AAET,cAAI,uCAAa,IAAG,QAApB,EACE,EAAE,KAAF,GAAW,EAAE,KAAM,GAAE,UAAK,CAAC,SAAU,GAAE,CAAb,CAD5B;AAGA,cAAI,wCAAc,IAAG,QAArB,EACE,EAAE,MAAF,GAAY,EAAE,MAAO,GAAE,UAAK,CAAC,SAAU,GAAE,CAAb,CAD9B;SAPG;AAWL,yBAAS,CAAC,EAAE,MAAO,EAAE,IAAK,GAAE,KAAF,CAAS,EAAE,OAAQ,IAApC;;;AAGb,kBAAK,OAAL,UAAe,uCAAf;AACA,kBAAK,OAAL,UAAe,SAAf;AACA,gBAAG,SAAC,CAAS,IAAT;AACJ,gBAAG,OAAH,UAAa,SAAb;AAzJkB;AAxSA;AAAb;AAEP,aAAuB,CAAZ,OAAO,IAAK,KAAE,CAAF,CAOK,IANL,CAAZ,OAAO,IAAK,KAAE,CAAF,CADK,IAEL,CAAZ,OAAO,IAAK,KAAE,CAAF,CADK,IAEL,CAAZ,OAAO,IAAK,KAAE,CAAF,CADK,IAEL,CAAZ,OAAO,IAAK,KAAE,CAAF,CADK,IAEL,CAAZ,OAAO,IAAK,KAAE,CAAF,CADK,IAEL,CAAZ,OAAO,IAAK,KAAE,CAAF,CADK,IAEL,CAAZ,OAAO,IAAK,KAAE,CAAF,CADK,IAEL,CAAZ,OAAO,IAAK,KAAE,CAAF,CADK;AATrB;AAAa;AA2BF;AAAX;AAEP,UAAM,IAAN,GAAc;AACd,UAAM,IAAN,GAAc;AACd,UAAM,IAAN,GAAc;AACd,UAAM,IAAN,GAAc;AACd,UAAM,IAAN,GAAc;AACd,UAAM,IAAN,GAAc;AACd,UAAM,IAAN,GAAc;AACd,UAAM,IAAN,GAAc;AACd,UAAM,IAAN,GAAc;AAVP;AAAW;AAbG;AAAd;AAEP,UAAM,IAAN,GAAc;AACd,UAAM,IAAN,GAAc;AACd,UAAM,IAAN,GAAc;AACd,UAAM,IAAN,GAAc;AACd,UAAM,IAAN,GAAc;AACd,UAAM,IAAN,GAAc;AACd,UAAM,IAAN,GAAc;AACd,UAAM,IAAN,GAAc;AACd,UAAM,IAAN,GAAc;AAVP;AAAc;AA0BM;AAApB;AAEP;AAAG;AAEH,QAAK,QAAG,CAAC,MAAD;AACR,QAAK,QAAG,CAAC,MAAD;AACR,mBAAU,qBAAV;AACA,UAAM,IAAN,GAAc;AACd,UAAM,IAAN,GAAc;AACd,UAAM,IAAN,GAAc,CAAC;AACf,UAAM,IAAN,GAAc;AAVP;AAAoB;AAaD;AAAnB;AAEP,mBAAU,qBAAV;AACA,UAAM,IAAN,GAAc;AACd,UAAM,IAAN,GAAc;AAJP;AAAmB;AAOI;AAAvB;AAEP,mBAAU,qBAAV;AACA,UAAM,IAAN,GAAc;AACd,UAAM,IAAN,GAAc;AAJP;AAAuB;AAaT;AAAd;AAEP,UAAM,IAAN,GAA2B,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAA6C,GAAf,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf,GAA6C,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf;AACxE,UAAM,IAAN,GAA2B,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAA6C,GAAf,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf,GAA6C,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf;AACxE,UAAM,IAAN,GAA2B,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAA6C,GAAf,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf,GAA6C,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf;AACxE,UAAM,IAAN,GAA2B,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAA6C,GAAf,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf,GAA6C,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf;AACxE,UAAM,IAAN,GAA2B,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAA6C,GAAf,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf,GAA6C,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf;AACxE,UAAM,IAAN,GAA2B,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAA6C,GAAf,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf,GAA6C,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf;AACxE,UAAM,IAAN,GAA2B,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAA6C,GAAf,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf,GAA6C,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf;AACxE,UAAM,IAAN,GAA2B,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAA6C,GAAf,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf,GAA6C,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf;AACxE,UAAM,IAAN,GAA2B,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAA6C,GAAf,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf,GAA6C,CAAb,QAAQ,IAAK,GAAE,QAAQ,IAAV,CAAf;AAVjE;AAAc;AANA;AAAd;AAEP,UAAM,EAAN,GAAqB,CAAT,MAAM,EAAG,GAAE,OAAO,IAAT,CAAuC,GAAd,CAAT,MAAM,EAAG,GAAE,OAAO,IAAT,CAAX,GAA2B,OAAO,IAAT;AAC5D,UAAM,EAAN,GAAqB,CAAT,MAAM,EAAG,GAAE,OAAO,IAAT,CAAuC,GAAd,CAAT,MAAM,EAAG,GAAE,OAAO,IAAT,CAAX,GAA2B,OAAO,IAAT;AAHrD;AAAc;AA9nCvB,mBA0iCc;AAeZ;AAwgDyB;AAGzB;AACA;AACA;AAAG;AAAG;AAIN;AAAG;AAAG;AAAI;AAEV;AAEA,UAAG,UAAW,KAAE,CAAhB;AAEE,YAAG,SAAH;AAEE,cAAG,IAAI,QAAQ,SAAC,EAAM,GAAE,CAAxB;AACE,gBAAI,OAAO,CAAC,gCAAM,CAAC,OAAQ,GAAU,CAAR,OAAQ,GAAE,QAAG,CAAC,UAAD,CAAL,CAAV,CAA6B,OAAQ,GAAU,CAAR,OAAQ,GAAE,QAAG,CAAC,UAAD,CAAL,CAAxD,CAAP;AAEX,gBAAA,IAAI,OAAO,CAAC,gCAAM,CAAC,OAAQ,GAAU,CAAR,OAAQ,GAAE,QAAG,CAAC,UAAD,CAAL,CAAV,CAA6B,OAAQ,GAAU,CAAR,OAAQ,GAAE,QAAG,CAAC,UAAD,CAAL,CAAxD,CAAP;SALf;AAOA,YAAI,OAAO,CAAC,gCAAM,CAAC,OAAQ,GAAU,CAAR,OAAQ,GAAE,QAAG,CAAC,UAAD,CAAL,CAAV,CAA6B,OAAQ,GAAU,CAAR,OAAQ,GAAE,QAAG,CAAC,UAAD,CAAL,CAAxD,CAAP;AACX;OAVF;AAaA,UAAK,QAAG,CAAC,UAAW,GAAE,CAAd;AACR,UAAK,QAAG,CAAC,UAAW,GAAE,CAAd;AAKR,UAAK,CAAE,GAAE,CAAF;AACP,UAAO,CAAF,CAAE,GAAE,CAAF,CAAI,GAAE,CAAF;AACX,UAAK,CAAE,GAAQ,CAAJ,CAAF,CAAE,GAAE,CAAF,CAAI,GAAE,CAAF,CAAR;AAEP,WAAM,QAAG,CAAC,UAAW,GAAa,CAAX,UAAW,GAAE,CAAF,CAAzB;AACT,WAAM,QAAG,CAAC,UAAW,GAAa,CAAX,UAAW,GAAE,CAAF,CAAzB;AAKC,WAAD,sBAAC,wCAAO,CAAR;AACT,WAAK,CAAC,CAAD,UAAO,gCAAM,CAAC,EAAG,CAAC,CAAL,CAAb;AACL,WAAK,CAAC,CAAD,UAAO,gCAAM,CAAC,CAAE,GAAE,CAAF,CAAK,CAAC,CAAT,CAAb;AACL,WAAK,CAAC,CAAD,UAAO,gCAAM,CAAC,CAAE,GAAE,CAAF,CAAK,CAAR,CAAb;AACL,WAAK,CAAC,CAAD,UAAO,gCAAM,CAAC,EAAG,CAAJ,CAAb;AACK,SAAD,sBAAC,sCAAK,CAAN;AACT,WAAI,IAAK,GAAL,CAAU,OAAV,CAAU,EAAd;AAEK,mBAAH,IAAI,CAAD,UAAO,gCAAM,CAAC,OAAQ,GAAU,CAAR,OAAQ,GAAmB,CAAL,CAAN,WAAL,MAAM,CAAD,CAAG,EAAG,GAAE,EAAF,CAAK,GAAa,CAAN,WAAL,MAAM,CAAD,CAAG,EAAG,GAAE,EAAF,CAAb,CAAnB,CAAV,CAAiD,OAAQ,GAAU,CAAR,OAAQ,GACvF,CADqG,CAAN,WAAL,MAAM,CAAD,CAAG,EAAG,GACxG,EADwG,CACrG,GAAa,CAAN,WAAL,MAAM,CAAD,CAAG,EAAG,GAAE,EAAF,CAAb,CADuF,CAA5E,CAAb;;AAGL,UAAG,SAAH;AAEE,YAAG,IAAI,QAAQ,SAAC,EAAM,GAAE,CAAxB;AACE,cAAI,OAAO,CAAC,GAAG,CAAC,CAAD,CAAJ;AAEX,cAAA,IAAI,OAAO,CAAC,GAAG,CAAC,CAAD,CAAJ;OALf;AAOA,UAAI,QAAQ,CAAC,GAAG,CAAC,CAAD,EAAK,GAAG,CAAC,CAAD,EAAK,GAAG,CAAC,CAAD,CAApB;AA5Da;AAvhDb;AAkjEd;AAEE,yBAAgB,6BAAwB,QAAC;AACzC,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,eAAgB,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA5C;AAC1B,sBAAY,cAAc,CAAC,OAAQ,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAApC;AAC1B,sBAAY,cAAc,CAAC,aAAc,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA1C;AAC1B,sBAAY,cAAc,CAAC,QAAS,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAArC;AAC1B,sBAAY,cAAc,CAAC,QAAS,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAArC;AAC1B,sBAAY,cAAc,CAAC,SAAU,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAtC;AAC1B,sBAAY,cAAc,CAAC,QAAS,+BAA0B,QAAC,YAAM,CAAC,CAAD,CAAN,CAArC;AAC1B,sBAAY,cAAc,CAAC,iBAAkB,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA9C;AAC1B,sBAAY,cAAc,CAAC,OAAQ,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAApC;AAC1B,sBAAY,cAAc,CAAC,aAAc,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA1C;AAC1B,sBAAY,cAAc,CAAC,QAAS,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAArC;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,aAAc,+BAA0B,QAAC,YAAM,CAAC,KAAD,CAAN,CAA1C;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,QAAS,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAArC;AAC1B,sBAAY,cAAc,CAAC,iBAAkB,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA9C;AAC1B,sBAAY,cAAc,CAAC,WAAY,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAxC;AAC1B,sBAAY,cAAc,CAAC,UAAW,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAAvC;AAC1B,sBAAY,cAAc,CAAC,OAAQ,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAApC;AAC1B,sBAAY,cAAc,CAAC,WAAY,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAAxC;AAC1B,sBAAY,cAAc,CAAC,WAAY,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAAxC;AAC1B,sBAAY,cAAc,CAAC,gBAAiB,+BAA0B,QAAC,YAAM,CAAC,MAAD,CAAN,CAA7C;AAC1B,sBAAY,cAAc,CAAC,WAAY,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAxC;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,KAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,WAAY,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAxC;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,cAAe,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAA3C;AAC1B,sBAAY,cAAc,CAAC,iBAAkB,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAA9C;AAC1B,sBAAY,cAAc,CAAC,aAAc,+BAA0B,QAAC,YAAM,CAAC,KAAD,CAAN,CAA1C;AAC1B,sBAAY,cAAc,CAAC,aAAc,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA1C;AAC1B,sBAAY,cAAc,CAAC,UAAW,+BAA0B,QAAC,YAAM,CAAC,GAAD,CAAN,CAAvC;AAC1B,sBAAY,cAAc,CAAC,aAAc,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAA1C;AAC1B,sBAAY,cAAc,CAAC,eAAgB,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAA5C;AAC1B,sBAAY,cAAc,CAAC,gBAAiB,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAA7C;AAC1B,sBAAY,cAAc,CAAC,gBAAiB,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAA7C;AAC1B,sBAAY,cAAc,CAAC,gBAAiB,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAA7C;AAC1B,sBAAY,cAAc,CAAC,gBAAiB,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA7C;AAC1B,sBAAY,cAAc,CAAC,aAAc,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA1C;AAC1B,sBAAY,cAAc,CAAC,WAAY,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAAxC;AAC1B,sBAAY,cAAc,CAAC,cAAe,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA3C;AAC1B,sBAAY,cAAc,CAAC,UAAW,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAAvC;AAC1B,sBAAY,cAAc,CAAC,UAAW,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAAvC;AAC1B,sBAAY,cAAc,CAAC,aAAc,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA1C;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,cAAe,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA3C;AAC1B,sBAAY,cAAc,CAAC,cAAe,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAA3C;AAC1B,sBAAY,cAAc,CAAC,UAAW,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAvC;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,aAAc,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA1C;AAC1B,sBAAY,cAAc,CAAC,OAAQ,+BAA0B,QAAC,YAAM,CAAC,KAAD,CAAN,CAApC;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,OAAQ,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAApC;AAC1B,sBAAY,cAAc,CAAC,QAAS,+BAA0B,QAAC,YAAM,CAAC,KAAD,CAAN,CAArC;AAC1B,sBAAY,cAAc,CAAC,cAAe,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAA3C;AAC1B,sBAAY,cAAc,CAAC,OAAQ,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAApC;AAC1B,sBAAY,cAAc,CAAC,WAAY,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAxC;AAC1B,sBAAY,cAAc,CAAC,UAAW,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAvC;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,SAAU,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAAtC;AAC1B,sBAAY,cAAc,CAAC,QAAS,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAArC;AAC1B,sBAAY,cAAc,CAAC,QAAS,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAArC;AAC1B,sBAAY,cAAc,CAAC,WAAY,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAxC;AAC1B,sBAAY,cAAc,CAAC,gBAAiB,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA7C;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,KAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,eAAgB,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA5C;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,aAAc,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAA1C;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,uBAAwB,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAApD;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,aAAc,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAA1C;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,cAAe,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAA3C;AAC1B,sBAAY,cAAc,CAAC,gBAAiB,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA7C;AAC1B,sBAAY,cAAc,CAAC,eAAgB,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA5C;AAC1B,sBAAY,cAAc,CAAC,iBAAkB,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA9C;AAC1B,sBAAY,cAAc,CAAC,iBAAkB,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA9C;AAC1B,sBAAY,cAAc,CAAC,iBAAkB,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA9C;AAC1B,sBAAY,cAAc,CAAC,cAAe,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA3C;AAC1B,sBAAY,cAAc,CAAC,OAAQ,+BAA0B,QAAC,YAAM,CAAC,KAAD,CAAN,CAApC;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,QAAS,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAArC;AAC1B,sBAAY,cAAc,CAAC,UAAW,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAvC;AAC1B,sBAAY,cAAc,CAAC,SAAU,+BAA0B,QAAC,YAAM,CAAC,GAAD,CAAN,CAAtC;AAC1B,sBAAY,cAAc,CAAC,mBAAoB,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAhD;AAC1B,sBAAY,cAAc,CAAC,aAAc,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA1C;AAC1B,sBAAY,cAAc,CAAC,eAAgB,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA5C;AAC1B,sBAAY,cAAc,CAAC,eAAgB,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA5C;AAC1B,sBAAY,cAAc,CAAC,iBAAkB,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAA9C;AAC1B,sBAAY,cAAc,CAAC,kBAAmB,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA/C;AAC1B,sBAAY,cAAc,CAAC,oBAAqB,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAjD;AAC1B,sBAAY,cAAc,CAAC,kBAAmB,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA/C;AAC1B,sBAAY,cAAc,CAAC,kBAAmB,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAA/C;AAC1B,sBAAY,cAAc,CAAC,eAAgB,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAA5C;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,WAAY,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAxC;AAC1B,sBAAY,cAAc,CAAC,cAAe,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA3C;AAC1B,sBAAY,cAAc,CAAC,OAAQ,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAApC;AAC1B,sBAAY,cAAc,CAAC,UAAW,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAvC;AAC1B,sBAAY,cAAc,CAAC,QAAS,+BAA0B,QAAC,YAAM,CAAC,KAAD,CAAN,CAArC;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,SAAU,+BAA0B,QAAC,YAAM,CAAC,KAAD,CAAN,CAAtC;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,KAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,SAAU,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAtC;AAC1B,sBAAY,cAAc,CAAC,gBAAiB,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA7C;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,gBAAiB,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA7C;AAC1B,sBAAY,cAAc,CAAC,gBAAiB,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAA7C;AAC1B,sBAAY,cAAc,CAAC,aAAc,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA1C;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,OAAQ,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAApC;AAC1B,sBAAY,cAAc,CAAC,OAAQ,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAApC;AAC1B,sBAAY,cAAc,CAAC,OAAQ,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAApC;AAC1B,sBAAY,cAAc,CAAC,aAAc,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA1C;AAC1B,sBAAY,cAAc,CAAC,SAAU,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAAtC;AAC1B,sBAAY,cAAc,CAAC,MAAO,+BAA0B,QAAC,YAAM,CAAC,GAAD,CAAN,CAAnC;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,cAAe,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAA3C;AAC1B,sBAAY,cAAc,CAAC,SAAU,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAAtC;AAC1B,sBAAY,cAAc,CAAC,aAAc,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAA1C;AAC1B,sBAAY,cAAc,CAAC,WAAY,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAAxC;AAC1B,sBAAY,cAAc,CAAC,WAAY,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAxC;AAC1B,sBAAY,cAAc,CAAC,SAAU,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAAtC;AAC1B,sBAAY,cAAc,CAAC,UAAW,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAvC;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,OAAQ,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAApC;AAC1B,sBAAY,cAAc,CAAC,cAAe,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAA3C;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,SAAU,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAtC;AAC1B,sBAAY,cAAc,CAAC,UAAW,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAvC;AAC1B,sBAAY,cAAc,CAAC,MAAO,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAAnC;AAC1B,sBAAY,cAAc,CAAC,SAAU,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAAtC;AAC1B,sBAAY,cAAc,CAAC,YAAa,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAzC;AAC1B,sBAAY,cAAc,CAAC,QAAS,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAArC;AAC1B,sBAAY,cAAc,CAAC,aAAc,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAA1C;AAC1B,sBAAY,cAAc,CAAC,cAAe,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAA3C;AAC1B,sBAAY,cAAc,CAAC,MAAO,+BAA0B,QAAC,YAAM,CAAC,GAAD,CAAN,CAAnC;AAC1B,sBAAY,cAAc,CAAC,QAAS,+BAA0B,QAAC,YAAM,CAAC,CAAD,CAAN,CAArC;AAC1B,sBAAY,cAAc,CAAC,OAAQ,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAApC;AAC1B,sBAAY,cAAc,CAAC,QAAS,+BAA0B,QAAC,YAAM,CAAC,KAAD,CAAN,CAArC;AAC1B,sBAAY,cAAc,CAAC,OAAQ,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAApC;AAC1B,sBAAY,cAAc,CAAC,SAAU,+BAA0B,QAAC,YAAM,CAAC,KAAD,CAAN,CAAtC;AAC1B,sBAAY,cAAc,CAAC,UAAW,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAvC;AAC1B,sBAAY,cAAc,CAAC,QAAS,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAArC;AAC1B,sBAAY,cAAc,CAAC,OAAQ,+BAA0B,QAAC,YAAM,CAAC,KAAD,CAAN,CAApC;AAC1B,sBAAY,cAAc,CAAC,SAAU,+BAA0B,QAAC,YAAM,CAAC,QAAD,CAAN,CAAtC;AAC1B,sBAAY,cAAc,CAAC,OAAQ,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAApC;AAC1B,sBAAY,cAAc,CAAC,QAAS,+BAA0B,QAAC,YAAM,CAAC,KAAD,CAAN,CAArC;AAC1B,sBAAY,cAAc,CAAC,OAAQ,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAApC;AAC1B,sBAAY,cAAc,CAAC,SAAU,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAAtC;AAC1B,sBAAY,cAAc,CAAC,OAAQ,+BAA0B,QAAC,YAAM,CAAC,OAAD,CAAN,CAApC;AAC1B,sBAAY,cAAc,CAAC,SAAU,+BAA0B,QAAC,YAAM,CAAC,KAAD,CAAN,CAAtC;AAC1B,sBAAY,cAAc,CAAC,SAAU,+BAA0B,QAAC,YAAM,CAAC,GAAD,CAAN,CAAtC;AAlK5B;AA5lGA,GA0iCc,uCA1iCd;A7CAA,gCAES,uEAFT;;;;AAyDW;AA/CC,kFAIQ,UAGD,SACF,OACM,aACL,QAEC,QAEC,UAIG,aAGA,eAIH,UAEG,aACA,cA5BX;;AAIQ,8BAAM,qBAAN,EA2CT,uBA3CS;AAGD,6BAAY,S1C8JrB,6B0C9JqB,EAAZ;AACF,2BAAe,Y1CuDpB,+B0CvDoB,EAAf,EAuCN,uBAvCM;AACM,iCAAY,sBAAZ,EAsCZ,uBAtCY;AACL;AACA,6BAoCP,wBApCO;AACC;AAEC,8BAAe,Y1CiDvB,+B0CjDuB,GAAuB,ajBN/C,sCiBM+C,EAC5C,yBAAU,yBAAmB,YjClB7B,iCiCkB6B,EACjC,QjBVI,yCiBUJ,EAA+B,sBAFrB,EAiCT,uBAjCS;AAIG,iCAAe,Y1C6C1B,+B0C7C0B,GACvB,ajBXJ,sCiBWI,EAAqB,yBAAU,yBAAmB,YjCtBnD,iCiCsBmD,EACvD,QjBdI,yCiBcJ,EAA+B,sBAFlB,EA6BZ,uBA7BY;AAGA,mCAAM,sBAAyB,Y1C0C1C,+B0C1C0C,GACvC,ajBdJ,sCiBcI,EAAqB,yBAAU,yBAAmB,YjCzBnD,iCiCyBmD,EACvD,QjBjBI,yCiBiBJ,EAA+B,sBAFlB,EA0BZ,uBA1BY;AAIH,8BAAY,sBAAZ,EAsBT,uBAtBS;AAEG,iCAAY,sBAAZ,EAoBZ,uBApBY;AACA,mCAAM,sBAAsB,sBAA5B,EAmBZ,uBAnBY;AA5BX;AA+BL,6EAEW,OAFX;;AAEW,8BAjCN,wBAiCM;AAFX;AAKI;;AAIC,kFAGO,QACQ,gBAJf;;AAGO,4BAAE,kBAAG,iBAAL;AACQ,uCjC0ff,+BiC1fe;AAJf;AAOD,iFAIY,aACC,aACD,aACC,aACD,aACC,aACE,gBACC,gBACA,iBACC,iBACR,UACC,UACI,eACC,eACF,cACC,cAEN,SACC,SACG,aACC,aAGP,OACK,YACH,SACG,YACH,QA/BR;;AAIY,mC1CYX,8B0CZW;AACC,iCAAe,Y1CW3B,+B0CX2B,EAAf;AACD;AACC,iCAAS,wBAAT;AACD;AACC,iCAAS,wBAAT;AACE;AACC,oCAAY,wBAAZ;AACA,uCjBrDb,yCiBqDa;AACC,qCAAa,gBjBtD3B,yCiBsD2B,CAAb;AACR;AACC,8BAAY,sBAAZ;AACI;AACC,mCAAW,0BAAX;AACF,oCjBzDb,sCiByDa;AACC,kCAAU,ajB1DxB,sCiB0DwB,CAAV;AAEN;AACC,6BAAO,sBAAP;AACG;AACC,iCAAS,wBAAT;AAGP,6BjC6cD,mCiC7cC;AACK;AACH,+BA7BR,EA6BQ;AACG;AACH;AAEC,+B1CjBR,+B0CiBQ;AACA;AACA;AACG;AACC,mCjB9EV,0CiB8EU;AACP;AACK;AACD,gCjB/EV,uCiB+EU;AAEL;AACI;AA3CT;AA8CC,kFAEO,OAFP;;AAEO;AAFP;AAKa,8EAA4B,8BAA5B;AACC,+EAAmB,UpCmoB9B,8BoCnoB8B,CAAnB;AAET,0CjCicL,6CiCjcK;AAEL;AAEU,+CAJL,qCAIK;AAEA;;;AAElB;AACA;AACA;AAJkB;;;;;AAosBiB;AAErC,mBAAS;AACT,oBAAU;AACV,mBAAS;AAJyF;AAA7D;AApsBjB;AAYD,2FACL,MACA,MACK,UAHA;;AACL,0BAAW,QjCoDd,iCiCpDc,EAAX;AACA,0BAAM,qBAAN,EjCmDH,gCiCnDG;AACK;AACH;AACA,6BjCgDL,iCiChDK;AALG;AAQR,gEAAsB,wBAAtB;AAEK;AAurBsB;;AAvrBtB;AAKK,gDALL,4CAKK;AAEK;;;AAExB;AACA;AAHwB;;;;;;AAurBiB;AAGjC;AACV,oBAAU;AACV,qBAAW;AAJ0B;AADM;AAvrBjB;AAUA;AAi3B0B;;AAj3B1B;AAKK,0DALL,sDAKK;AAEK;;;AAElC;AACA;AAHkC;;;;;;AA2rBiB;AAE3C;AACV,oBAAU;AACV,qBAAW;AAJmH;AAAzE;AA3rBjB;AAUlB;;AAEC,yCAFD,0CAEC;AAEJ;;;AAEb;AACA;AACA;AACA;AALa;;;;;;;AAmvBmB;AAAX;AAEvB,eAAU,kBAAa,CAAC,CAAD;AAFA;AAAW;AASE;AAAb;AAEvB,eAAU,wBAAU,CAAC,gBAAY,kBAAb;AAFG;AAAa;AAKD;AAEnC,8BAAU,CAAC,gBAAY,mBAAe,KAA5B;AAFyB;AATH;;AA9CA;AAEhC,2BAAiB;AACjB,2BAAiB;AAHgB;AAAD;AAgBJ;AAE5B,iBAAI,CAAC,IAAD;AAFwB;AAKA;AAE5B,yBAAe;AAFa;AAKQ;AAAb;AAEvB,eAAU,cAAC,gCAAD;AAFa;AAAa;AAKL;AAAR;AAEvB,eAAU;AAFa;AAAQ;AAzBI;AAAZ;AAEvB,eAAU;AAFa;AAAY;AAKA;AAAZ;AAEvB,eAAU;AAFa;AAAY;AAyBF;;AA6BD;;AA3EE;AAAX;AAEvB,eAAU,kBAAa,CAAC,CAAD;AAFA;AAAW;AAKE;AAAb;AAEvB,eAAU,wBAAU,CAAC,gBAAY,kBAAb;AAFG;AAAa;AAfC;AAAd;AAEvB,eAAU,qBAAgB,CAAC,CAAD;AAFH;AAAc;AAKE;AAAhB;AAEvB,eAAU,2BAAa,CAAC,gBAAY,kBAAb;AAFA;AAAgB;AA2EJ;AAEnC,8BAAU,CAAC,gBAAY,mBAAe,KAA5B;AAFyB;AAtwBpB;AAgCA;AAkvBgB;AAAR;AAEvB,eAAU;AAFa;AAAQ;AAKC;AAEhC,sBAAW,CAAC,KAAD;AAFqB;AAvvBjB;AAMC;;AAEF;;AAEM,+CA1CL,2CA0CK;AAEK;;;AAEvB;AACA;AACA;AACA;AALuB;;;;;;AAqyBiB;AAEhC;AAEV,oBAAU;AACV,2BAAiB;AACjB,2BAAiB;AACjB,qBAAW;AAPqI;AAAtG;AAryBjB;AAcC;;;AAExB;AACA;AAHwB;;;;;AAmdiB;AAEjC;AAEV,oBAAU;AACV,2BAAiB;AALuE;AAA7C;AAndjB;AAUV;;;AAEd;AACA;AACA;AAJc;;;;;;;AA0tBa;AAE7B,iBAAI,CAAC,IAAD;AAFyB;AAKA;AAE7B,yBAAe;AAFc;AAKO;AAEpC,wBAAW,CAAC,MAAO,IAAR;AAFyB;AASA;AAEpC,6BAAmB;AAFiB;AAJA;;AASL;AAAP;AAExB,eAAU;AAFc;AAAO;AAKK;AAAZ;AAExB,eAAU;AAFc;AAAY;AAKA;AAAZ;AAExB,eAAU;AAFc;AAAY;AAKA;AAAZ;AAExB,eAAU;AAFc;AAAY;AAKM;AAAlB;AAExB,eAAU;AAFc;AAAkB;AAtwB1B;AAsBK,gDAtBL,4CAsBK;AAEK;;;AAExB;AACA;AAHwB;;;;;;AAskBiB;AAGjC;AACV,oBAAU;AACV,qBAAW;AAJ0B;AADM;AAtkBjB;AAUZ;;AAEH,gEAAuB,uBAAiB,qBAAxC;AACA,gEAAe,oBAAoB,sBAAnC;AAEU;;;AAEnB;AACA;AACA;AAJmB;;;;;;AAiXiB;AAGtC,2BAAiB;AACjB,yBAAe;AACf,yBAAe;AALsG;AAA/E;AAjXjB;AA6Ed,gBAAG;AAFgB;AAI1B;AACA;AACA;AAEA,aAAS,QAA8B,OAAnB,WAAC,gBAAD,CAAmB,GAAE,CAAF,kBAAvC;AAAI;AAEF,UAAK,gBAAgB,CAAC,CAAD;AACrB,UAAW,WAAC,KAAD,KAAX;AACE,aAAM,KAAK,CAAC,CAAD;AAEX,iBAAM;AACR,UAAG,EAAG,KAAE,EAAR,EACE,KAAM,mBAAa,KAAK,CAAC,CAAC,WAAW,GAAE,OAAf,CAD1B;AAEA,UAAG,EAAG,KAAE,EAAR,EACE,KAAM,mBAAa,KAAK,CAAC,CAAC,WAAF,CAD1B;AAGA,mCAAyB,CAAD,CAAC,YAAzB,GAAwC,yBAAoB,QAAC,YAAM,CAAC,KAAM,EAAG,EAAV,CAAN;;AApBrC;AA2FK;AAE/B,uCAAoC,CAAN,MAAM,YAApC,GAAmD,+BAA0B,QAAC,YAAM,CAAC,OAAQ,YAAT,CAAN;AAF/C;AAgHD;AAE9B;AAAM;AAAO;AAEb,YAAS;AACT,QAAY,YAAD,QAAX,EACE,QAAmB,YAAa,KADlC;AAGA,aAAU;AACV,QAAY,cAAD,QAAX,EACE,SAAU,cAAc,WAD1B;AAGA,WAAQ,KAA2B,GAAnB,GAAF,GAAQ,MAAF,GAAW,GAAF,GAAQ,YAAF;AACnC,sCAA6B,MAA7B,GAAsC,8BAAyB,QAAC,YAAM,CAAC,aAA8B,eAAiB,aAAc,WAA9D,CAAN;AAblC;AAsIC;AAE/B,uCAAoC,CAAN,MAAM,YAApC,GAAmD,+BAA0B,QAAC,YAAM,CAAC,OAAQ,eAAT,CAAN;AAF/C;AAcA;AAE/B;AAAM;AAEN,aAAU;AACV,QAAY,cAAD,QAAX,EACE,SAAU,cAAc,WAD1B;AAGA,WAAQ,MAAa,GAAJ,GAAF,GAAQ,YAAF;AACrB,uCAA8B,MAA9B,GAAuC,+BAA0B,QAAC,YAAM,CAAiB,eAAiB,YAAlC,CAAN;AATnC;AAjMU;AAEzC,iDAA8C,CAAN,MAAM,YAA9C,GAA6D,yCAAoC,QAAC,YAAM,CAAC,OAAQ,YAAT,CAAN;AAFzD;AAKrB;AAEpB,uBAAa,IAAI,CAAC,eAAgB,UAAW,SAA5B;AAFG;AArFW;AAGjC;AACA;AACA;AACA;AACA;AACA;AACA;AATiC;AAhBL;AAG5B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAZ4B;AAmCC;AAG7B;AACA;AACA;AACA;AACA;AACA;AACA;AAT6B;AA8UQ;AAGrC;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA7BqC;AA5BM;AAEzC;AAEA,QAAG,oCAA+B,CAAC,cAAD,CAAlC;AAEE,YAAO;AAEX;AACA;AACA;AACA;KAPE;AAJyC;AA/VP;AAA3B;AAEP;AAEA,aAAU;AACV,QAAK,2BAAsB,CAAC,kBAAD;AAC3B,QAAY,CAAD,QAAX,EACE,SAAU,CAAC,OADb;AANO;AAA2B;AA5BL;AAAtB;AAEP;AAEA,aAAU;AACV,QAAG,kBAAmB,KAAE,EAAxB,EACE,aADF;AAGA,UAAO;AAIT;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,aAAU;AAvBH;AAAsB;AAsFM;AAA5B;AAEP;AACA;AAEA,aAAU;AACV,QAAG,kBAAmB,KAAE,EAAxB,EACE,aADF;AAGA,QAAK,oBAAQ,CAAC,kBAAD;AAEb,QAAG,CAAY,CAAC,CAAD,SAAf;AAEE,UAAK,gCAA2B,CAAC,kBAAD;AAChC,UAAG,CAAY,CAAC,CAAD,SAAf,EACM,OAAC,IADP;KAHF;AAMA;AACE,WAAM,CAAC;AACP,eAAoC,cAAC,mCAA8B,IAA/B;AACpC,UAAY,MAAD,QAAX,EACE,aADF;AAEA,UAAK,CAAC;KALR,QAMmB,CAAD,QANlB;AAjBO;AAA4B;AA0DU;AAAtC;AAEP;AACA;AAEA,aAAU;AACV,QAAG,kBAAmB,KAAE,EAAxB,EACE,aADF;AAGA,QAAK,oBAAQ,CAAC,kBAAD;AAEb,QAAG,CAAY,CAAC,CAAD,SAAf,EACM,OAAC,IADP;AAEA;AACE,WAAM,CAAC;AACP,eAA8C,cAAC,6CAAwC,IAAzC;AAC9C,UAAY,MAAD,QAAX,EACE,aADF;AAEA,UAAK,CAAC;KALR,QAMmB,CAAD,QANlB;AAbO;AAAsC;AAmDX;AAA3B;AAEP;AAAM;AACN;AACA;AACA;AACA;AAEA,aAAU;AAEV,YAAmB,YAAa;AAEhC,WAAQ,KAAM,GAAE,IAAF;AACd,kBAAwC,cAAC,kCAA6B,MAA9B;AAExC,QAAY,WAAD,QAAX,EACE,SAAU,WADZ;AAGA,QAAG,CAAY,CAAC,MAAD,SAA8B,IAAT,CAAC,MAAD,SAAZ,IAAoC,CAAV,SAAU,KAAG,EAAH,CAA5D;AAEE,UAAK;AACL;AACE,eAAQ,KAAgC,GAAxB,GAAF,GAAQ,CAAC,WAAH,GAAgB,GAAF,GAAQ,SAAF;AACxC,sBAAwC,cAAC,kCAA6B,MAA9B;AACxC,YAAY,WAAD,QAAX;AAEE,mBAAU;AACV;SAHF;AAMA,YAAK,CAAC;OATR,QAUmB,CAAD,QAVlB;KAHF;AAgBA,QAAG,CAAY,CAAC,MAAD,SAAf;AAEE,cAAkB,iBAAK,QAAC;AACxB,8BAAkB,CAAC,KAAD;AAElB,eAAS,QAAiB,OAAZ,KAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,sBAAwC,cAAC,KAAK,IAAM,CAAC,CAAD,CAAZ;AAExC,YAAI,WAAW,cAAc,KAAE,YAA/B;AAEE,cAA6B,CAAzB,WAAW,cAAc,KAAE,EAAF,CAAM,IAA6B,CAAzB,WAAW,cAAc,KAAE,SAAF,CAAhE;AAEE,gBAAG,CAAY,CAAC,WAAW,OAAZ,SAAf;AAEE,uBAAU;AACV;aAEG,UAAY,MAAD,QAAX;AAEH,kBAAK;AACL;AACE,oBAAI,WAAW,OAAO,WAAW,KAAE,CAAC,WAApC;AAEE,2BAAU;AACV;iBAHF;AAMA,oBAAK,CAAC;eAPR,QAQmB,CAAD,QARlB;AAUA,kBAAY,MAAD,QAAX,EACE,KADF;aAbG;WAPP;SAFF;;AA4BF,WAAM,eAAN,KAAM;KArCR;AAlCO;AAA2B;AAnFC;AAA5B;AAEP;AACA;AAEA,aAAU;AACV,QAAG,CAAY,CAAC,MAAD,SAAf,EACE,aADF;AAGA,QAAK;AAEL,QAAG,CAAY,CAAC,CAAD,SAAf,EACM,OAAC,IADP;AAEA;AACE,WAAM,CAAC;AACP,eAAoC,cAAC,mCAA8B,IAA/B;AACpC,UAAY,MAAD,QAAX,EACE,aADF;AAEA,UAAK,CAAC;KALR,QAMmB,CAAD,QANlB;AAbO;AAA4B;AA2RG;AAA/B;AAEP;AAEA,UAAO;AAET;AACA;AAPS;AAA+B;AAxDd;AAAjB;AAEP;AACA;AAGA,aAAU;AAEV,QAAG,CAAY,CAAC,MAAD,SAAf;AAEE,aAAQ,GAAI,GAAE,SAAF;AACZ,yBAA8C,cAAC,mCAA8B,MAA/B;AAC9C,UAAY,gBAAD,QAAX;AAEE,iBAAU;OAFZ;KAMF,UAAW,CAAC,MAAD,SAAS,IAAe,CAAV,SAAU,KAAG,EAAH,CAAnC;AAEE,aAAQ,MAAM,WAAiB,GAAJ,GAAF,GAAQ,SAAF;AAC/B,yBAA8C,cAAC,mCAA8B,MAA/B;AAC9C,UAAY,gBAAD,QAAX;AAEE,iBAAU;;AAIV,eAAQ,GAAI,GAAE,SAAF;AACZ,2BAA8C,cAAC,mCAA8B,MAA/B;AAC9C,YAAY,gBAAD,QAAX;AAEE,mBAAU;SAFZ;;KAZJ;AAlBO;AAAiB;AA7DK;AAE7B;AAEA,WAAkB,mBAAoB;AACtC,kCAAyB,MAAzB,GAAkC,0BAAqB,QAAC,YAAM,CAAC,oBAAqB,YAAa,WAAnC,CAAN;AAL3B;AAQC;AAAvB;AAEP;AACA;AAEA,aAAU;AAEV,WAAkB,mBAAoB;AAEtC,SAA2B,cAAC,8BAAyB,MAA1B;AAC3B,QAAY,EAAD,QAAX,EACE,SAAU,EAAE,YADd;AAVO;AAAuB;AAcA;AAAvB;AAEP;AACA;AAEA,aAAU;AACV,WAAkB,mBAAoB;AAEtC,SAA2B,cAAC,8BAAyB,MAA1B;AAC3B,QAAY,EAAD,QAAX,EACE,SAAU,EAAE,YADd;AATO;AAAuB;AA3qBhC,mBAsUc;AAMH;;;AAEP;AACA;AAHO;;AASI;AAED;AAksBmB;AAE/B;AAEA,YAAG,UAAM,KAAE,IAAX,EACE,4BAAS,0FAAoC,QAAC,YAAM,CAAC,cAAC,6DAAD,CAAD,CAAN,CADhD;AAEA,YAAG,UAAK,YAAY,CAAe,wCAAd;;;;YAAc,EAAU;;;;YAAzB,CAApB,EACE,MADF;AAGA,gBAAS,eAAS,QAAC;AACnB;AACE,eAAK,WAAL,GAAmB;AACnB,eAAK,UAAL,GAAkB;AAGlB,cAAkB,wCAAC,CAAhB,UAAgB;;;;cAAD,CAAlB;AACA,cAAiB,wCAAC,CAAf,UAAe;;;;cAAD,CAAjB;AAEA,oBAAK,IAAI,CAAe,wCAAd;;;;cAAc,EAAU,KAAzB;AACT,kBAAS;AATX;AAWE,eAAM,eAAN,KAAM;AAXR;AAV+B;AAyBA;AAAJ;AAE3B;AAEA,iBAAiB;AACjB,YAAU,CAAN,UAAM,KAAE,IAAF,CAAO,IAAI,CAAI,UAAK,YAAY,CAAe,wCAAd;;;;YAAc,EAAU;;;;YAAzB,CAA1C,EACE,aADF;AAIF;AAT6B;AAAI;AA7tBlB;AAUb;AACA;AACA;AACA;AACA;AACA;AACA;AAgM0B;AAG5B;AACA;AACA;AACA;AACA;AACA;AACA;AAT4B;AA/Nd;AAyvBd;AA/jCA,KAohCsC;AAE9B,eAAN,oBAAM;AAF8B,KAphCtC;AAikCE,oCAA2B,MAAS,OAAO,CAAC,IAAD;AAC3C,0CAAiC,MAAS,OAAO,CAAC,IAAD;AACjD,yCAAgC,MAAS,OAAO,CAAC,IAAD;AAChD,0CAAiC,MAAS,OAAO,CAAC,IAAD;AACjD,oDAA2C,MAAS,OAAO,CAAC,IAAD;AAC3D,0CAAiC,MAAS,OAAO,CAAC,IAAD;AACjD,qCAA4B,MAAS,OAAO,CAAC,IAAD;AAR9C;AA/jCA,GAsUc,kCAtUd;A8CAA,2CAmBS,gGAnBT;;;AAqC4C,iGAAmB,UxF0EtD,2BwF1EsD,EAAkB,WxF0ExE,2BwF1EwE,EAAwB,6BAAuB,iBxFqNrH,6BwFrNqH,EAAyB,0BAA7G;AACA,iGAAmB,UxFyEtD,2BwFzEsD,EAAkB,WxFyExE,2BwFzEwE,EAAwB,6BAAuB,iBxFoNrH,6BwFpNqH,EAAyB,0BAA7G;AAG1B;AAsiBe;AAAP;AAExB,eAAU;AACV,UAAY,WAAD,QAAX,EACE,SAAU,WAAK,MADjB;AAHwB;AAAO;AAOD;AAE9B;AAEA;AACA,UAAK,4CAAe,QAAC,YAAM,CAAC,iBCha8B,KDga/B,CAAN;AACrB;AACE,SAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,SAAC,QAAO,SAAC,CAAS,CAAT;AACT,SAAC,MAAK,QAAC,CAAQ,kEAAR;AACP,SAAC,MAAK,SAAC,CAAS,QAAT;AAEP,SAAC,gBAAc,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,gBAAO,gBAAd,GC7XwE,6ED6X9E;AAEf,YAAW,CAAC,WAAD,SAAQ,IAAc,2BAAH,eAAN,WAAM,CAA9B,EACE,CAAC,MAAK,UAAC,CAAU,sCAAY,UAAU,CAAC,CAAC,MAAK,SAAgB,OAAN,YAAS,2BAAH,CAA0B,8BAA+B,EAAhF,CAAhC,CADT;AAGA,SAAC,WAAS,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,gBAAO,gBAAd,GAAuB,eAAM,MAAO,qEAAW,qECnSyK,sEAA0B,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CDkSlK;AAXZ;AAcE,SAAE,eAAF,CAAE;AAdJ;AAN8B;AApDI;AAGlC;AAAG;AAAG;AAAG;AACT;AACA;AACA;AACA;AAEA,UAAK,4CAAe,QAAC,sBAAkB,CC9WY,EAAsB,EAAsB,MAAgC,ID8WxF,CAAlB;AACrB;AACE,aAAM;AACN,YAAW,CAAC,WAAD,SAAQ,IAAc,2BAAH,eAAN,WAAM,CAA9B;AAEE,WAAC,MAAK,UAAC,CAAU,sCAAY,UAAU,CAAC,CAAC,MAAK,SAAgB,OAAN,YAAS,2BAAH,CAA0B,8BAA+B,EAAhF,CAAhC;AACP,eAAM,sCAAY,UAAU,CAAC,GAAW,OAAN,YAAS,2BAAH,CAA0B,8BAA+B,EAArE;SAH9B;AAMA,mBAAM,CAAC,oBAAkB,CAAC,cAAD,CAAzB;AACA,YAAK,EAAE,GAAI,GAAE,EAAF;AACX,YAAK,EAAE,GAAI,GAAE,EAAF;AAVb;AAYE,SAAE,eAAF,CAAE;AAZJ;AAeA,UAAW,CAAC,WAAD,SAAQ,IAAc,+BAAH,eAAN,WAAM,CAA9B;AAEE,YAAY,OAAN,YAAS,+BAAH;AAKZ,YAAa,CAAR,CAAC,SAAC,EAAM,GAAE,CAAF,CAAI,GAAI,CAAF,CAAE,GAAE,CAAF,CAAJ;AACjB,YAAK,CAAC,UAAC;;AAKP,YAAK;AACL,YAAK;;AAGY,0DAAC,UAAK,CAAC,CAAD,EAAK,UAAK,CAAC,CAAD,EAAK,UAAK,CAAC,CAAD,EAAK,UAAK,CAAC,CAAD,CAApC;AA1Ce;AAzflB;;;AAoBM;AAOV;AAPU;;AAEpB;AAOA;AACA;AACA;AACA;AACA;AACA;AAdoB;;;;;;;AAiK8B;AAAhB;AAEpC,eAAU;AAF0B;AAAgB;AAyEJ;AAGhD,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,QAAS,cAAe,cAAe,QAA9C,CADnB;AAHgD;AAPA;AAGhD,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,QAAS,cAAe,cAAe,QAA9C,CADnB;AAHgD;AA5DE;AAApB;AAE9B,eAAU;AAFoB;AAAoB;AAKL;AAAf;AAE9B,UAAY,CAAR,OAAQ,KAAE,IAAF,CAAQ,IAAI,CAAI,+BAA5B;AACE,iBAAW,sCAAY,mBAAmB,CAAC,cAAe,mDAAhB,CAAqC,KAAE,CAAC,CAAH;AAE/E,qBAAU;AAEZ,UAAG,0BAAH,EACE,SAAU,MAAO,IAAI,yBAAoB,CAAC,QAAS,cAAe,aAAzB,CAD3C;AAGA,4BAAiB,CAAC,QAAS,cAAe,cAAe;;;;UAAxC;AAVa;AAAe;AAaA;AAAf;AAE9B,UAAY,CAAR,OAAQ,KAAE,IAAF,CAAQ,IAAI,CAAI,+BAA5B;AACE,iBAAW,sCAAY,mBAAmB,CAAC,cAAe,mDAAhB,CAAqC,KAAE,CAAC,CAAH;AAE/E,qBAAU;AAEZ,4BAAiB,CAAC,QAAS,cAAe,cAAe;;;;UAAxC;AAPa;AAAe;AAuEL;AAAV;AAE9B,eAAU;AAFoB;AAAU;AAfD;AAAT;AAE9B,eAAU;AAFoB;AAAS;AAUC;AAAV;AAE9B,eAAU;AAFoB;AAAU;AALC;AAAX;AAE9B,eAAU;AAFoB;AAAW;AA1FI;;AAwRC;AAE9C,2BAAiB;AAF6B;AA5EV;AAKpC;AACA;AACA;AAEA;AAMA;AACA,UAAK;AACL,YAAO,uCAAa,QAAC;AAIrB,UAAK,4CAAe,QAAC,YAAM,CAAC,iBC/P8B,KD+P/B,CAAN;AACrB;AACE,SAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,SAAC,QAAO,SAAC,CAAS,CAAT;AACT,SAAC,gBAAc,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,gBAAO,gBAAd,GCzNwE,6EDyN9E;AAuBf,aAAM,+CAAsB,CAAC,eAAD;AAC5B,YAAY,EAAD,QAAX,EACE,GAAG,iBAAiB,CAAC,EAAE,MAAH,CADtB;AAIA,SAAC,aAAW,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,eAAM,GAAE,CAAF,CAAK,gBAAO,GAAE,CAA3B,GAA+B,IAAK,KAAM,KClOZ,KAA2B,KDkO/D;AA/Bd;AAiCE,YAAY,CAAD,QAAX,EACE,CAAE,eAAF,CAAE,CADJ;AAGA,WAAI,eAAJ,GAAI;AAIJ,SAAE,eAAF,CAAE;AAxCJ;AAtBoC;AAxEC;AAErC;AACA;AAEA,UAAG,CAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAApB,EACE,gBAAW,KAAX,CADF;AALqC;AA0IM;AAE3C,UAAY,eAAD,QAAX,EACE,eAAU,UAAU,CAAC,eAAM,cAAK,gBAAO,gBAAnB,CADtB;AAF2C;AAMU;;AA/GV;AAG3C;AAEA,UAAe,CAAX,UAAW,KAAE,eAAF,CAAc,IAAe,CAAV,SAAU,KAAE,+BAAF,CAA5C,EACE,kBAAc,IADhB;AAL2C;AA9HJ;AAEvC;AASA;AACA,YAAO;AAWP,0CAAgC;AAEhC,oBAAS,EAAT;AACA,qBAAU,EAAV;AAEA,UAAG,CAAI,kBAAP,EACE,6BADF;AA5B4D;AAArB;AAsPD;AAEtC;AACA,UAAG,CAAY,CAAC,eAAD,SAAiD,IAAnB,CAAZ,2CAAY,IAAG,oBAAH,CAAjB,IAAkD,+BAAH,eAAN,WAAM,CAA3E;AAEE,0BAAc,qBAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAK/B,uBAAU,UAAC,CAAU,IAAV;AAGX,uBAAU,WAAC,CAAW,KAAX;OAVb;AAiBA;AApBsC;AA2BE;AAGxC;AAEA,WAAM,iCAA6B,GAAE,EAAF;AAChB,0DAAC,EAAG,EAAG,UAAK,CAAC,EAAG,GAAE,EAAN,EAAW,UAAK,CAAC,EAAG,GAAE,EAAN,CAA5B;AAEnB;AARwC;AA3HE;AAG1C;AAH0C;AAOF;AAGxC;AAHwC;AA3FE;AAAZ;AAE9B,eAAU;AACV,UAAY,WAAD,QAAX,EACE,SAAU,kBAAY,IAAI,CAAyC,CAAzB,CAAV,yCAAU,IAAG,WAAK,gBAAR,CAAyB,IAAc,CAAV,yCAAU,IAAG,WAAK,gBAAR,CAAd,CADrE;AAH8B;AAAY;AAsBH;AAAT;AAE9B,eAAW,yCAAU,IAAG,WAAK,gBAAR;AAFS;AAAS;AAfA;AAAT;AAE9B,eAAW,yCAAU,IAAG,WAAK,gBAAR;AAFS;AAAS;AAKE;AAAX;AAE9B,eAAwB,CAAZ,2CAAY,IAAG,oBAAH,CAAkC,IAAW,CAAC,yBAAD,SAAX;AAF5B;AAAW;AAKC;AAAZ;AAE9B,eAAW,4CAAa,IAAG,oBAAH;AAFM;AAAY;AAmBO;AAEjD,mCAAyB;AACzB,wDAAkB,mBAAmB,CAAC,KAAM,SAAP;AACrC,mCAAyB;AAJwB;AAOE;AAEnD,wDAAkB,qBAAqB,CAAC,KAAM,SAAP;AAFY;AAKA;AAEnD,mCAAyB;AACzB,wDAAkB,qBAAqB,CAAC,KAAM,OAAP;AACvC,mCAAyB;AAJ0B;AAOE;AAErD,wDAAkB,uBAAuB,CAAC,KAAM,OAAP;AAFY;AA5T/B;;;;;AA8CF,+BAAO,U/EqcjB,+B+ErciB,CAAP;AA+CF;AACF;AACC;AACW,yCAxHc,yDAwHd;AACA,yCAxHc,yDAwHd;AAjGN;AAoGK,sDApGL,kDAoGK;AAjK7B,GAmKc,kJAnKd;AEAA,2CAIS,0FAJT;;;AAmBS,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AAqEY;AA9CL;AAbK,8FAEQ,qBACD,oBAHP;;AAEQ,yCAAY,SAyDpB,qCAzDoB,EAAZ;AACD,2CAwDP,oCAxDO;AACH,uCAuDJ,qCAvDI;AAJJ;AAOO,qGAET,YACF,SAHW;;AAET;AACF,8BAAO,sBAAP,EAGD,+BAHC;AAHW;AAMZ;;;AAEf;AACA;AACA;AAJe;;;;;AAgKkB;AAEnC,kBAAO,OAAO,CAAC,KAAD;AAFqB;AArCD;AAElC;AACA,qBAAW,uCAAa,QAAC;AACzB,kBAAO,UAAP,GAAqB;AACrB,mBAAS,MAAO,GAAE,qBAAQ,CAAC,gBAAU,SAAC,EAAZ,CAAV;AAL6C;AAA3B;AAQA;AAE1B,eAAR,KAAQ;AACR;AAHkC;AAMO;AAEzC,UAAkB,4BAAH,eAAX,gBAAW,CAAf;AAEE,YAAwB,OAAX,iBAAc,4BAAH,CAA2B,SAAxC,QAAX,EACc,OAAX,iBAAc,4BAAH,CAA2B,SAAO,gBAAgB,CAAC,IAAD,CADhE;OAFF;AAFyC;AArBT;AAEhC,mBAAgB,OAAP,OAAU,sBAAH,CAAqB;AACrC,kBAAe,OAAP,OAAU,sBAAH,CAAqB;AACpC,kBAAM,OAAO,CAAS,OAAP,OAAU,sBAAH,CAAqB,QAA9B;AAJmB;AA8BO;AAAd;AAEzB,UAAG,UAAM,KAAG,EAAZ;AACE,iBAAU;AAGV,qBAAU;AANa;AAAc;AAlJtB;AAOG,+BAAY,ejFsarB,gCiFtaqB,CAAZ;AAMH,8BJqeJ,iDIreI;AACF;AACD;AAfG;AAkBM;;;AAErB;AAFqB;;;;;AAqKiB;AAAT;AAE/B,eAAsC,YAAK,CAAC,KAAD;AAFZ;AAAS;AAUC;AAExB,gDAAC,MAAO,KAAR;AAFwB;AAfQ;AAAlB;AAE/B,eAAU;AAFqB;AAAkB;AANT;AAExB,sDAAC,OAAQ,yBAAT;AAChB,sBAAU;AAH+D;AAAjC;AALN;AAAH;AAE/B,eAAsC;AAFP;AAAG;AAqBG;AAAN;AAE/B,eAA4C,yCAAC,KAAD;AAFb;AAAM;AA1Kd;AAQH,+BAAO,UAoBL,oCApBK,CAAP;AARG;AAeX;;AAaU;;;AAEpB;AACA;AACA;AAJoB;;;;;;;AAmTiB;AAEvC,iBAAM,OAAO,CAAC,KAAD;AAF0B;AAYI;AAAb;AAE9B,eAAU;AACV,UAAW,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,IAAe,CAAZ,eAAK,SAAC,EAAM,GAAE,CAAF,CAAf,CAA7B,EACE,SAAU,eAAK,WAAC,MAAD,CAAQ,MADzB;AAH8B;AAAa;AAPJ;AAAT;AAE9B,eAAU;AACV,UAAW,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,IAAe,CAAZ,eAAK,SAAC,EAAM,GAAE,CAAF,CAAf,CAA7B,EACE,SAAU,eAAK,WAAC,MAAD,CAAQ,QADzB;AAH8B;AAAS;AA0BD;AAAR;AAE9B,eAAU;AAFoB;AAAQ;AAZG;AAAX;AAE9B,eAAU;AAFoB;AAAW;AAiBD;AAAV;AAE9B,eAAU,4BAAgB,CAAC,EAAS,EAAS,EAAS,CAA5B;AAFI;AAAU;AAzFC;AAAX;AAE9B,eAAU,4BAAuB,QAAC,YAAM,CAAC,IAAD,CAAN;AAFJ;AAAW;AAoJY;AAErD,+BAAa,CAAC,2BAAD;AAFwC;AAhCV;AAG3C;AAEA;AACA,UAAc,CAAV,SAAU,KAAE,+BAAF,CAAY,IAAY,CAAC,gBAAD,SAAtC;AAEE,iBAAyB,KAAhB,gBAAS,SAAC,EAAM,GAAE,CAAF,EAAW,aAApC;AAAI;AAEF,cAAI,gBAAS,IAAM,CAAC,CAAD,CAAI,IAAE,UAAzB,EACE,gBAAS,OAAO,CAAC,CAAD,CADlB;;OAJJ;AAN2C;AAxGG;AAE9C;AACA;AAEA,UAAK,sCAAY,cAAc,CAAC,IAAD;AAC/B,UAAY,CAAD,QAAX;AAEE,iBAAS,QAAoB,OAAf,CAAC,iBAAC,EAAa,GAAE,CAAF,kBAA7B;AAAI;AACF,cAAoB,kCAAH,eAAd,CAAC,YAAS,CAAC,CAAD,CAAI,CAAjB,EACE,sBAAiB,CAAe,OAAd,CAAC,YAAS,CAAC,CAAD,EAAO,kCAAH,CAAf,CADnB;;OAHJ;AAOA,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,IAAD,CADjB;AAb8C;AAkFE;AAEhD;AAEA,UAAG,CAAY,CAAC,QAAD,SAAf,EACE,MADF;AAGA,UAAY,yBAAW,CAAC,SAAU,iBAAX,CAAZ,QAAX,EACE,QAAQ,aADV;AAGA,eAAS,QAA2B,OAAtB,QAAQ,iBAAC,EAAa,GAAE,CAAF,kBAApC;AAAI;AAEF,YAA2B,kCAAH,eAArB,QAAQ,YAAS,CAAC,CAAD,CAAI,CAAxB,EACE,sBAAiB,CAAsB,OAArB,QAAQ,YAAS,CAAC,CAAD,EAAO,kCAAH,CAAtB,CADnB;;AAZ8C;AAnGT;AAEvC,mBAAM,CAAC,IAAD;AAFkC;AAAD;AAPA;AAEvC;AACA,oBAAU;AACV,yBAAa,iBAAY,QAAC;AAJkC;AAArB;AAiBA;AAEvC,6BAAU,CAAC;;;;UAAD;AACH,eAAP,KAAO;AACP;AAJuC;AAtDF;AAErC,UAAc,2BAAH,eAAP,MAAO,CAAX;AAEE,mBAAM,OAAO,CAAS,OAAP,OAAU,2BAAH,CAA0B,SAAC,EAApC;OAGb;AAPmC;AAwBC;AAEtC;AAEA,eAAS,QAAqB,OAAhB,gBAAS,SAAC,EAAM,GAAE,CAAF,kBAA9B,EAAI;AAJkC;AAuKQ;AAG9C,sBAAS,IAAI,CAAC,QAAD;AAHiC;AAjHL;AAEzC,UAAM,CAAF,CAAE,IAAG,CAAH,CAAM,IAAO,CAAF,CAAE,IAAe,CAAZ,eAAK,SAAC,EAAM,GAAE,CAAF,CAAf,CAAnB,EACE,OAAO,OAAO,CAAC,eAAK,WAAC,CAAD,CAAG,QAAT,CADhB;AAFyC;AAgDJ;AAAP;AAE9B,eAAU;AACV,UAAW,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,IAAa,CAAV,gBAAU,GAAE,CAAF,CAAb,CAA7B,EACE,SAAU,eAAK,WAAC,MAAD,CADjB;AAH8B;AAAO;AA1CG;AAAV;AAE9B;AAEA,eAAU;AACV,UAAK,sBAAS,CAAC,CAAD;AACd,UAAK;AACL,aAAM,CAAE,IAAG,eAAK,SAAC,EAAjB;AAEE,YAAG,sBAAS,CAAC,eAAK,WAAC,CAAE,GAAE,CAAL,CAAO,MAAb,CAAoB,KAAE,CAAlC;AAEE,mBAAU,eAAK,WAAC,CAAE,GAAE,CAAL,CAAO;AACtB;SAHF;AAKI,SAAJ,IAAG;;AAdyB;AAAU;AA4ED;AAAT;AAE9B,eAAU,eAAK,SAAC;AAFc;AAAS;AA0BO;AAAhB;AAE9B,eAAU,kBAAW,CAAC,iBAAM,CAAC,gBAAD,CAAP;AAFS;AAAgB;AALJ;AAAZ;AAE9B,eAAU,cAAO,CAAC,iBAAM,CAAC,gBAAD,CAAP;AAFa;AAAY;AAlMD;AAGzC;AAIA,aAAQ,IAAI,SAAC,EAAK;AAClB,UAAI,QAAO,YAAY,CAAC,I5E+Q2C,I4E/Q5C;AACvB,UAAI,MAAJ,GAAa;AAT4B;AAuBK;AAE9C;AAEA,aAAQ,eAAK;AACb,UAAI,QAAO,mBAAiB,CAAC,aAAc,SAAf;AAC5B,UAAI,MAAJ,GAAa;AANiC;AASA;AAE9C,0BAAe,CAAC,aAAc,WAAY,kBAA3B;AAF+B;AAtEJ;AAE1C;AAEA,aAAQ,eAAK;AACb,UAAI,QAAO,aAAa,CAAC,S5E0TgD,I4E1TjD;AACxB,UAAI,MAAJ,GAAa;AAN6B;AA1JpB;;;;;;AAkBF;AACA,+BAAO,UjFkcjB,+BiFlciB,CAAP;AAqBJ,6BApEO,sCAoEP;AACE;AACQ,uC7EuDd,6C6EvDc;AA1CJ;;AA3FxB,GAwIc,yDAxId;ACDA,sCAYS,uJAZT;;;;AA8BE,qCAAoC;AAknFnB;AAAV;AAcP;AACA;AACA;AACA;AAEA,UAAO;AACP,SAAM;AACN,SAAM;AACN,eAAM,+BAAK,CAAC,EAAG,EAAG,EAAG,CAAV,CAAX;AACA,aAAU,iBAAU,CAAC,UAAW,EAAG,4CAAI,KAAM,KAAM,UAAW,UAAW,aAAc,aAAc,YAAa,MAAO,SAAU,MAAO,WAAY,SAAU,MAAO,GACrK,UAAW,SAAU,WAAY,eAAgB,YAAa,UAAW,SAAU,YAAa,MAAO,MAAO,WAAY,UAAW,UAAW,GAAI;;;;SAAK;;;;SAAI;;;;SAAI,UAAW,YAAa,gBACzL,QAAS,mBAAsD,eAAgB,mBAAoB,8BAFjF;AAvBb;AAAU;AAlzDN;AAhBM;AAAV;AAmBP;AACA;AAAE;AACF;AAAG;AACH;AAAU;AAAW;AAAW;AAChC;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAAQ;AACR;AACA;AACA;AAAS;AACT;AAAO;AAAU;AAAc;AAC/B;AACA;AAAU;AAAS;AAAU;AAAO;AACpC;AAAW;AAAa;AACxB;AACA;AAAM;AAAM;AAAO;AACnB;AAAQ;AACR;AACA;AAAM;AACN;AACA;AACA;AACA;AACA;AACA;AACA;AAAO;AAAO;AACd;AAAK;AACL;AAAK;AACL;AACA;AACA;AACA;AAAS;AACT;AAEqB;AAAZ;AAIP;AAAG;AAAI;AAAQ;AAAK;AAAK;AAAS;AAClC;AAAI;AACJ;AAIA;AAAU;AAAS;AACnB;AAAO;AAAK;AAAK;AAAK;AACtB;AACA;AAAI;AAAI;AACR;AACA;AAAO;AAAS;AAAE;AAClB;AACA;AACA;AACA;AAAS;AAAU;AACnB;AACA;AACA;AACA;AAAK;AACL;AAAS;AAAS;AAClB;AAAY;AAAa;AAAc;AAAU;AAAa;AAAY;AAE1E,eAAU;AACV,iBAAY;AACZ,kBAAa;AACb,OAAC,OAAD,GAAY,CAAC,OAAQ,GAAE,UAAF;AAErB,YAAK,CAAL;AACA,WAAM;AAEN,kBAAa;AACb,iBAAY;AACZ,kBAAa;AACb,kBAAW,KAAX;AACA,uBAAgB,KAAhB;AAIA,iBAAM,CAAN;AACA,YAAO;AAEP,UAAG,CAAI,IAAP,EACE,EAAE,KAAF,GAAW,EAAE,KAAM,GAAE,OADvB;AAGA,UAAG,MAAO,IAAI,CAAI,IAAlB;AAEE,mBAAY,SAAS,QAAO;AAC5B,iBAAS,QAAO,SAAC,CAAS,SAAS,MAAK,OAAvB;AAEjB,iBAAS,QAAO,QAAC,CAAQ,oEAAR;AAEjB,iBAAS,gBAAc,CAAM,wCAAL,+BAAK,CAAC,EAAE,MAAM,CAAC,KAAK,EAAE,OAAO,CAAC,IAAK,GAAE,OAAhC,GFjuB8D,6EEiuBpE;OAPzB;AAUA,aAAiB,CAAH,OAAD,OAAI,GAAE,CAAF,CAAuB,IAAd,CAAI,SAAR,IAAsB,CAAI,QAAhD;AAGE,iBAAU,cAAG,CAAC,IAAI,OAAL;AAEb,YAAG,QAAH;AACE,qBAAY,cAAQ,CAAC,OAAD;AAGpB,yBAAY;AAEd,YAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAyB,CAAV,CAAT,QAAS,GAAE,MAAF,CAAU,IAAa,CAAT,QAAS,KAAE,CAAF,CAAb,CAAzC;AACE,eAAM,eAAI,CAAC,QAAE,EAAE,MAAO,GAAE,CAAd;;AAGV,cAAG,QAAS,GAAE,CAAd;AACE,iBAAM,eAAI,CAAC,QAAE,EAAE,QAAL;AAEV,qBAAM;;AAGV,kBAAkB,EAAD;AAEjB,eAAM,cAAG,CAAC,SAAS,EAAV,CAAc,GAAE,CAAzB;AAEE,gDAAY,iBAAiB,CAAC,SAAS,IAAI;;;;cAAd;;AAG/B,eAAM,cAAG,CAAC,OAAO,EAAR,CAAY,GAAE,CAAvB;AAEE,gDAAY,iBAAiB,CAAC,OAAO,IAAI;;;;cAAZ;;AAG/B,eAAM,cAAG,CAAC,OAAO,EAAR,CAAY,GAAE,CAAvB;AAEE,gDAAY,iBAAiB,CAAC,OAAO,IAAI;;;;cAAZ;;AAK/B,YAAG,OAAQ,GAAE,CAAb;AAEE,qBAAM,SAAS,cAAc,CAAC,GAAS,wCAAL,+BAAK,CAAC,EAAG,EAAG,MAAO,KAAd,GAAsB,MAAO,KAAvC,CAA7B;AACA,eAAM,EAAE,OAAQ,GAAE,EAAE,IAAJ;AAEhB,cAAG,KAAM,IAAU,CAAL,UAAK,GAAM,CAAH,EAAG,GAAE,CAAF,CAAN,CAAnB,EAAoC,SAAQ,EAAG,GAAE,CAAb,CAApC;AACA,cAAG,KAAM,IAAU,CAAL,UAAK,GAAM,CAAH,EAAG,GAAE,CAAF,CAAN,CAAnB,EAAoC,SAAQ,EAAG,GAAE,CAAb,CAApC;AAEA,cAAG,EAAG,GAAE,OAAR,EACE,MAAK,EAAL,CADF;AAGA,uBAAY,cAAS,GAAE,EAAvB;AAEA,cAAG,SAAH,EACE,iBAAM,CAAC,EAAE,EAAE,OAAL,CADR;AAGA,cAAG,CAAI,SAAP;AAGE,gBAAG,CAAI,IAAP;AAEE,kBAAG,KAAH,EACE,EAAE,OAAF,GAAa,EAAE,OAAQ,GAAE,UAD3B;AAGA,kBAAG,KAAH,EACE,EAAE,OAAF,GAAa,EAAE,OAAQ,GAAE,UAD3B;AAGA,gBAAE,OAAF,GAAa,EAAE,OAAQ,GAAE,YAAF;AAEvB,yBAAM,SAAS,cAAc,CAAC,GAAS,wCAAL,+BAAK,CAAC,EAAG,EAAG,MAAO,KAAd,GAAsB,MAAO,KAAvC,CAA7B;AACA,qBAAQ,EAAE,MAAO,GAAE,EAAE,KAAJ;AAEjB,kBAAG,OAAQ,KAAG,EAAd;AAEE,yBAAS,MAAK,SAAC,CAAS,OAAT;AACf,yBAAS,QAAO,SAAC,CAAS,OAAT;AACjB,yBAAS,MAAK,QAAC,CAAQ,kEAAR;AACf,yBAAS,QAAO,QAAC,CAAQ,oEAAR;AACjB,2BAAM,SAAS,gBAAc,CAAC,IAAD,CAA7B;AACA,yBAAS,gBAAc,CAAM,wCAAL,+BAAK,CAAC,EAAE,MAAO,EAAE,KAAM,EAAE,KAAM,GAAE,IAAF,CAAQ,EAAE,IAAK,GAAa,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAtD,GFnzBsD,6EEmzB5D;eAPzB;AAUA,wBAAW;AAEX,kBAAG,MAAH;AAEE,wDAAY,CAAC,GAAG,aAAa,YAAjB;AACZ,yBAAS,MAAK,SAAC,CAAS,WAAT;AACf,yBAAS,WAAS,CAAC,4CAAI,GAAI,MAAO,sEAAY,qEAAW,sEAAS,EAAG,CAAC,EAAG,CAAC,EAAgC,MF5tBiB,MAAoB,CAAC,EAAgB,CAAE,CE4tBhJ;AAClB,wDAAY,CAAC,GAAG,CAAC,aAAa,CAAC,YAAnB;AACZ,yBAAS,MAAK,SAAC,CAAS,YAAT;eANjB;AAcA,kBAAO,CAAH,EAAG,KAAG,EAAH,CAAkC,IAAP,CAAf,EAAE,QAAQ,EAAD,WAAP,CAAa,KAAE,GAAF,CAApB,IAA+B,MAA7C;AAEE,sBAAO,EAAG,GAAE,MAAF;AAEV,0BAAO;AAET,uBAAS,MAAK,SAAC,CAAS,SAAT;AACf,uBAAS,WAAS,CAAC,4CAAI,IAAK,MAAO,sEAAY,qEAAW,sEAAS,EAAG,CAAC,EAAG,CAAC,EAAgC,MF7uBkB,MAAoB,CAAC,EAAgB,CAAE,CE6uBlJ;AAElB,gBAAE,MAAF,GAAY,EAAE,KAAM,GAAE,IAAF;AAEpB,kBAAG,MAAO,IAAoB,CAAJ,CAAX,gBAAW,GAAE,CAAF,CAAI,KAAE,SAAF,CAA9B,EACE,gBAAe,UAAf,CADF;AAGA,kBAAG,KAAH;AAEE,yBAAS,QAAO,SAAC,CAAS,GAAT;AACjB,yBAAS,QAAO,QAAC,CAAQ,oEAAR;AACjB,yBAAS,QAAO,SAAC,CAAS,CAAT;AAEjB,oBAAK,UAAK,CAAU,CAAR,EAAE,KAAM,GAAE,CAAF,CAAK,GAAE,CAAjB;AACV,oBAAM,CAAF,CAAE,GAAI,CAAJ,CAAM,KAAC,CAAb;AAAoB,sBAAK;AAAO,0BAAK;AAErC,uBAAM,CAAE,GAAE,EAAE,MAAZ;AAEE,+BAAQ,gCAAM,CAAC,EAAW,CAAT,CAAC,OAAQ,GAAE,CAAF,CAAI,GAAE,CAAlB,CAAd;AACA,sBAAG,CAAE,KAAE,CAAP;AAAc,wBAAK;AAAO,4BAAK;AAC/B,+BAAQ,gCAAM,CAAC,CAAE,GAAE,CAAF,CAAc,CAAT,CAAC,OAAQ,GAAE,CAAF,CAAI,GAAE,CAAvB,CAAd;AACA,2BAAS,WAAS,CAAC,+CAAM,+CFh3BkF,+EAAyE,8EEg3BlK;AACd,mBAAJ,IAAM;;eAfV;AAmBA,gBAAE,KAAF,GAAW,EAAE;AACb,gBAAE,MAAF,GAAY,CAAC;AACb,gBAAE,OAAF,GAAa,CAAC;AACd,gBAAE,IAAF,GAAU,CAAC;;AAIX,yBAAM,CAAN;AAEA,yBAAM,SAAS,cAAc,CAAC,GAAS,wCAAL,+BAAK,CAAC,EAAG,EAAG,MAAO,KAAd,GAAsB,MAAO,KAAvC,CAA7B;AACA,gBAAE,MAAF,GAAY,EAAE,KAAM,GAAY,CAAT,EAAE,MAAO,GAAE,EAAE,KAAJ,CAAZ;AAGpB,kBAAS,CAAL,IAAK,GAAE,EAAE,IAAJ,CAAiC,IAAb,CAAL,IAAK,GAAE,EAAE,OAAJ,CAAV,IAAiC,CAAL,IAAK,GAAE,OAAF,CAApD;AAGE,wBAAS;AACT,oBAAG,KAAM,KAAE,OAAX;AACE,6BAAY,QAAS,GAAE,OAAF;AAErB,iCAAY,QAAS,GAAE,KAAF;eAPzB;AAaA,0BAAa,EAAE,MAAO,GAAE,EAAE,KAAJ;AACtB,oBAAK,OAAE,GAAE,SAAT;AAKA,kBAAoB,CAAX,CAAL,IAAK,GAAE,EAAE,KAAJ,CAAW,IAAK,CAAF,OAAE,GAAE,SAAF,CAAL,CAA4C,IAAN,CAAV,CAAL,IAAK,GAAE,EAAE,KAAJ,CAAU,IAAG,OAAH,CAApB,IAA8B,MAApE;AAEE,4BAAW,IAAX;AACA,oBAAI,IAAK,GAAE,EAAE,IAAb;AAEE,gCAAa,UAAb;AACA,kCAAiB;iBAHnB;eAHF;;AAWF,yBAA2B,CAAV,CAAF,OAAE,GAAE,aAAF,CAAU,GAA0B,CAAP,CAAjB,CAAC,MAAgB,GAAP,CAAC,KAAH,GAAW,IAAF,CAAO,GAAE,CAAF,CAA1B,CAA+B,IAA4B,CAAP,CAAjB,CAAC,MAAgB,GAAP,CAAC,KAAH,GAAW,IAAF,CAAO,IAAG,SAAH,CAA5B;AAM1D,uBAAY,QAAS,GAAE,EAAF;AAOrB,gBAAG,UAAW,IAAG,CAAI,QAArB;AAEE,oBAAO,GAAI,GAAE,eAAI,CAAC,QAAE,EAAE,OAAL,CAAN;AAKX,+BAAM,CAAC,EAAE,EAAE,OAAL;AAEN,kBAAU,EAAD,OAAK,IAAG,OAAjB;AAGE,oBAAG,eAAI,CAAC,GAAI,QAAS,CAAd,CAAiB,KAAE,GAA1B;AAEE,6BAAM,SAAS,gBAAc,CAAC,GAAD,CAA7B;AACA,uBAAO,EAAE,MAAO,GAAE,EAAE,KAAJ;iBAGhB,WAAM;eAGR,WAAM;;AAIR,0BAAa;AACb,oBAAK,OAAE,GAAE,SAAT;;WA7JJ;SAhBF;AAkLA,iBAAU,cAAG,CAAC,IAAI,OAAL;AAEb,YAAW,CAAP,MAAO,KAAE,CAAF,CAAK,IAAe,CAAH,OAAD,OAAI,IAAG,CAAH,CAA/B,EACE,MAAK,EAAL,CADF;AAGA,YAAG,CAAI,SAA2B,IAAL,CAAP,MAAO,KAAE,CAAF,CAAZ,IAAgC,CAAH,OAAD,OAAI,GAAE,CAAF,CAAjD;AAKE,cAAS,CAAL,OAAC,QAAC,CAAD,CAAI,KAAE,GAAF,CAAO,IAAe,CAAH,OAAD,OAAI,GAAE,CAAF,CAA/B;AAMa,uBAAN,iBAAM,CAAC,OAAC,QAAC,CAAD,CAAF;AAEX,gBAFW,IAEX;AACM,kBAAmB,CAAf,CAAI,UAAW,IAAc,CAAV,SAAU,KAAE,gBAAF,CAAd,CAA6B,IAAI,CAAI,IAAxD;AAEE,yBAAS,MAAK,SAAC,CAA8B,YAArB,SAAS,MAAK,QAAS,cAAY,6CAAZ,CAAF,CAA9B;AACf,oBAAG,UAAW,KAAG,EAAjB,EACE,UAAW,UADb;AAEA,oBAAG,cAAe,KAAG,EAArB,EACE,YAAa,cADf;eALF;AASA,kBAAG,CAAI,QAAP,EACE,YAAa,YADf;AAGA,uBAAU;AAEV,kBAAG,aAAH;AAEE,kBAAE,OAAF,GAAa,CAAC;AACd,kBAAE,MAAF,GAAY,CAAC,KAAM,GAAE,OAAF;AACnB,oBAAG,CAAC,IAAK,KAAG,EAAE,IAAd;AAEE,oBAAE,KAAF,GAAW,CAAC;AACZ,oBAAE,IAAF,GAAU,CAAC;iBAHb;AAMA,kCAAa,EAAb;AACA,8BAAa,gBAAb;AACA,gCAAiB;eAZnB;AAeA,kBAAG,SAAU,KAAa,CAAX,gBAAW,GAAE,CAAF,CAA1B;AAEE,kBAAE,MAAF,GAAY,EAAE;AACd,kBAAE,OAAF,GAAa,EAAE,OAAQ,GAAE,YAAF;AACvB,2BAAM,SAAS,gBAAc,CAAC,IAAD,CAA7B;AACA,kBAAE,IAAF,GAAU,EAAE,OAAQ,GAAa,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAb;AACpB,uDAAa,CAAC,GAAG,EAAE,CAAN;eANf;aAUN,UA1CW,IA0CX;AACM,kBAAG,CAAI,IAAP,EACE,QAAS,KADX;aAGN,UA9CW,IA8CX;AAIM,kBAAG,OAAC,QAAC,CAAD,CAAI,KAAG,GAAX;AAEE,4BAAa;AAEE,oBAAf,SAAS,MAAK,SAAC,CAA8B,YAArB,SAAS,MAAK,QAAS,cAAY,wCAAZ,CAAF,CAA9B;aAEvB,UAxDW,IAwDX;AAIM,wBAAW,iBAAM,CAAC,OAAC,QAAC,CAAD,CAAF;AAGjB,kBAAI,OAAQ,KAAE,GAAd;AAEE,wBAAS;AACT,wBAAS;eAGV,UAAI,OAAQ,KAAE,GAAd;AACC,yBAAU;AAEK,oBAAf,SAAS,MAAK,SAAC,CAA8B,YAArB,SAAS,MAAK,QAAS,cAAY,6CAAZ,CAAF,CAA9B;aAEvB,UA1EW,IA0EX;AACM,uBAAS,MAAK,QAAC,CAAQ,OAAO,MAAf;AACf,uBAAS,MAAK,QAAC,CAAQ,OAAO,MAAf;AACf,kBAAG,CAAI,IAAK,IAAI,CAAI,QAApB;AAEE,4BAAa;AACb,yBAAS,MAAK,SAAC,CAAS,OAAT;eAHjB;aAMN,UAnFW,IAmFX;AACM,kBAAG,CAAI,IAAP;AAEE,4BAAa;AACb,0BAAW;AACX,yBAAS,MAAK,SAAC,CAAS,qBAAT;AACf,yBAAS,MAAK,SAAC,CAAS,MAAT;eALjB;aAQN,UA5FW,IA4FX;AACM,uBAAS,MAAK,SAAC,CAA8B,YAArB,SAAS,MAAK,QAAS,cAAY,0CAAZ,CAAF,CAA9B;aAErB,UA/FW,IA+FX;AACM,0BAAa;aAEnB,UAlGW,IAkGX;AACM,6BAAc,CAAd;aAEN,UArGW,IAqGX;AACM,0BAAa;AACb,kBAAG,CAAI,IAAP;AAEE,yBAAS,MAAK,SAAC,CAAS,SAAT;AACf,yBAAU;eAHZ;aAMN,UA7GW,IA6GX;AAIM,kBAAS,CAAL,OAAC,QAAC,CAAD,CAAI,KAAG,GAAH,CAAQ,IAAe,CAAV,SAAU,GAAE,CAAF,CAAhC;AAEM,yBAAJ,IAAG;AAEY,oBAAf,SAAS,MAAK,SAAC,CAA8B,YAArB,SAAS,MAAK,QAAS,cAAY,6CAAZ,CAAF,CAA9B;aAEvB,UAvHW,IAuHX,UAGA;qBA1HW,IA0HX,UAAI,YAAa,KAAjB;;AAQW,wBAAN,iBAAM,CAAC,OAAC,QAAC,CAAD,CAAF;AAEX,gBAFW,KAEX;AAEM,kBAAc,CAAV,SAAU,KAAE,gBAAF,CAAc,IAAI,CAAI,IAApC;AAEE,kBAAE,KAAF,GAAW,EAAE;AACb,kBAAE,IAAF,GAAU,EAAE;eAHd;AArwC2C,wBA2wC3C,KA3wC2C,UA2wC3C,SAAG,CAAH;AACA,kBAAmB,CAAf,CAAI,UAAW,IAAc,CAAV,SAAU,KAAE,gBAAF,CAAd,CAA6B,IAAI,CAAI,IAAxD;AAEE,oBAAG,kBAAH,EACE,SAAS,MAAK,SAAC,CAA8B,aAArB,SAAS,MAAK,QAAS,cAAY,6CAAZ,CAAF,CAA9B,CADjB;AAGA,oBAAe,CAAX,UAAW,KAAG,EAAH,CAAW,IAAI,CAAI,IAAlC,EACE,UAAW,UADb;AAGA,oBAAG,cAAe,KAAG,EAArB,EACE,YAAa,cADf;eARF;AAYA,kBAAG,CAAI,QAAS,IAA4D,CAAvC,CAAf,cAAe,KAAE,EAAF,CAAuC,IAAf,CAAV,SAAU,KAAG,gBAAH,CAAd,IAAgC,CAAI,UAAP,CAA5E;AAEE,+BAAgB;AAChB,4BAAa;eAHf;AAMA,wBAAW,eAAI,CAAC,QAAE,EAAE,cAAG,CAAC,IAAI,OAAL,CAAQ,GAAE,CAAlB;AACf,qBAAQ,eAAI,CAAC,QAAQ,cAAG,CAAC,IAAI,OAAL,CAAc,GAAE,CAAF,CAAW,OAAD,OAApC;AACZ,qBAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAxB;AACZ,2BAAc;AACd,uBAAU;AAEV,gBAAE,KAAF,GAAW;AACX,gBAAE,IAAF,GAAU,CAAC;aAEjB,UAtCW,KAsCX;AAIM,wBAAW,iBAAM,CAAC,OAAC,QAAC,CAAD,CAAF;AAEZ;AACL,kBADK,KACL;AAAK,yBAAS,MAAK,SAAC,CAA8B,aAArB,SAAS,MAAK,QAAS,cAAY,wCAAZ,CAAF,CAA9B;AACpB,wBAFK,KAEL;AAEI,4BAAa;AACb,6BAAY,cAAS,GAAE,IAAvB;eAEJ,UAPK,KAOL;AAAK,oBAAG,CAAI,KAAP,EACF,YAAa,SADX;AAEL,wBATK,KASL;AAGI,uBAAQ;AACR,sBAAO,GAAI,GAAE,eAAI,CAAC,QAAE,EAAE,cAAG,CAAC,IAAI,OAAL,CAAR,CAAN;AACX,oBAAG,CAAI,IAAK,IAAI,CAAI,QAApB;AAEE,4BAAW,sBAAS,CAAC,eAAI,CAAC,QAAE,EAAE,cAAG,CAAC,IAAI,OAAL,CAAO,GAAC,CAAhB,CAAL;AAEpB,sBAAI,cAAG,CAAC,aAAa,OAAd,CAAuB,GAAE,CAAhC;AAEE,2BAAQ,eAAI,CAAC,QAAQ,cAAG,CAAC,aAAa,OAAd,CAAsB,GAAC,EAAD,CAAW,OAAD,OAA5C;AACZ,2BAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAU,GAAC,CAAD,CAAU,IAAD,OAA5B;AACZ,2BAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAU,GAAC,CAAtB;AAEZ,wBAAG,cAAG,CAAC,OAAQ,sBAAS,CAAC,IAAD,CAAlB,CAA0B,GAAE,CAAlC;AAEI,uCAAM,CAAC;;;;2BAAM,EAAG,CAAV;qBAFV;AA2BA,0BAAO;AACP,iCAAc;AAEd,wBAAkB,CAAd,cAAG,CAAC,IAAI,IAAL,CAAW,KAAE,CAAF,CAAK,IAAY,CAAC,eAAD,SAAnC;AAEE,4BAAqB,eAAe,aAAW,CAAC,IAAD;qBAFjD;AAmBA,wBAAI,cAAG,CAAC,SAAS,sBAAS,CAAC,IAAD,CAAnB,CAA2B,GAAE,CAApC;AAEE,uCAAM,CAAC;;;;2BAAK,EAAE,CAAR;AACN,4BAAqB,uCAAa,cAAc,CAAC,IAAD;AAChD,mCAAc;qBAJhB;AAQA,wBAAY,GAAD,QAAX;AAEE,0BAAG,CAAI,uCAAa,CAAC,GAAD,CAA0B,IAAL,CAAV,GAAG,SAAC,EAAM,GAAE,CAAF,CAAf,IAAoC,CAAX,GAAG,UAAC,EAAO,GAAE,CAAF,CAA9D;AAKE,+BAAO,IAAK,GAAW,CAAT,EAAE,OAAO,GAAC,EAAE,IAAH,CAAvB;AAEE,iCAAQ;AACR,iCAAO,IAAK,GAAW,CAAT,EAAE,MAAO,GAAE,EAAE,KAAJ,CAAvB;AAEE,qCAAS,aAAW,CAAM,wCAAL,+BAAK,CAAC,UAAK,CAAC,EAAE,KAAK,GAAC,IAAT,EAAe,UAAK,CAAC,EAAE,IAAI,GAAC,IAAR,EAAe,UAAK,CAAC,EAAE,KAAM,GAAE,IAAX,CAAiB,GAAE,GAAG,SAAC,EAAN,CAAY,UAAK,CAAC,EAAE,IAAI,GAAC,IAAR,CAAc,GAAE,GAAG,UAAC,EAApG,GAA6G,IFvsCpE,KACzE,MAA0B,KAA2B,KEssC3B;AAEpB,mCAAQ,IAAK,GAAE,GAAG,SAAC,EAAN;;AAEf,iCAAQ,IAAK,GAAE,GAAG,UAAC,EAAN;;uBAdjB;AAoBA,0BAAG,UAAH,EACE,GAAI,eAAJ,GAAI,CADN;qBAtBF;mBA/DF;AA0FA,sBAAI,cAAG,CAAC,YAAa,OAAd,CAAuB,GAAE,CAAhC;AAEI,2BAAQ,eAAI,CAAC,QAAS,cAAG,CAAC,YAAa,OAAd,CAAuB,GAAE,EAAF,CAAa,OAAD,OAAhD;AACZ,2BAAQ,eAAI,CAAC,KAAM,cAAG,CAAC,IAAK,IAAN,CAAY,GAAE,CAAF,CAAY,IAAD,OAAjC;AACZ,2BAAQ,eAAI,CAAC,KAAM,EAAG,cAAG,CAAC,IAAK,IAAN,CAAY,GAAE,CAA3B;AAEZ,0BAAO;AAEP,wBAAmB,CAAf,cAAG,CAAC,IAAK,IAAN,CAAY,KAAE,CAAF,CAAK,IAAY,CAAC,eAAD,SAApC;AAEI,4BAAqB,eAAe,aAAW,CAAC,IAAD;qBAFnD;AAKA,wBAAY,GAAD,QAAX;AAEE,0BAAG,CAAI,uCAAa,CAAC,GAAD,CAA0B,IAAL,CAAV,GAAG,SAAC,EAAM,GAAE,CAAF,CAAf,IAAoC,CAAX,GAAG,UAAC,EAAO,GAAE,CAAF,CAA9D;AAEE,iCAAS,aAAW,CAAM,wCAAL,+BAAK,CAAC,UAAK,CAAC,EAAE,KAAH,EAAW,UAAK,CAAC,EAAE,IAAK,GAAE,IAAV,EAAgB,UAAK,CAAC,EAAE,KAAH,CAAU,GAAE,GAAG,SAAC,EAAN,CAAa,UAAK,CAAC,EAAE,IAAH,CAAS,GAAE,GAAG,UAAC,EAAtF,GAA+F,IFvuCpD,KACzE,MAA0B,KAA2B,KEsuC7B;uBAFtB;qBAFF;mBAbJ;AAsBA,sBAAI,cAAG,CAAC,aAAc,OAAf,CAAwB,GAAE,CAAjC;AAEI,2BAAQ,eAAI,CAAC,QAAS,cAAG,CAAC,aAAc,OAAf,CAAwB,GAAE,EAAF,CAAa,OAAD,OAAjD;AACZ,2BAAQ,eAAI,CAAC,KAAM,cAAG,CAAC,IAAK,IAAN,CAAY,GAAE,CAAF,CAAY,IAAD,OAAjC;AACZ,2BAAQ,eAAI,CAAC,KAAM,EAAG,cAAG,CAAC,IAAK,IAAN,CAAY,GAAE,CAA3B;AAEZ,0BAAO;AAEP,wBAAmB,CAAf,cAAG,CAAC,IAAK,IAAN,CAAY,KAAE,CAAF,CAAK,IAAY,CAAC,eAAD,SAApC;AAEI,4BAAqB,eAAe,aAAW,CAAC,IAAD;qBAFnD;AAMA,wBAAY,GAAD,QAAX;AAEE,0BAAG,CAAI,uCAAa,CAAC,GAAD,CAA0B,IAAL,CAAV,GAAG,SAAC,EAAM,GAAE,CAAF,CAAf,IAAoC,CAAX,GAAG,UAAC,EAAO,GAAE,CAAF,CAA9D;AAEE,iCAAS,aAAW,CAAM,wCAAL,+BAAK,CAAC,UAAK,CAAC,EAAE,MAAH,CAAW,GAAE,GAAG,SAAC,EAAN,CAAa,UAAK,CAAC,EAAE,IAAK,GAAE,IAAV,EAAiB,UAAK,CAAC,EAAE,MAAH,EAAY,UAAK,CAAC,EAAE,IAAH,CAAS,GAAE,GAAG,UAAC,EAAzF,GAAmG,IF9vCxD,KACzE,MAA0B,KAA2B,KE6vC7B;uBAFtB;qBAFF;mBAdJ;AAuBA,sBAAG,sCAAY,OAAO,CAAC,UAAU,QAAQ;;;;sBAAnB,CAA2B,GAAE,CAAnD;AAEE,2BAAQ,eAAI,CAAC,QAAQ,MAAO,GAAE,CAAF,CAAW,OAAD,OAA1B;AACZ,2BAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAF,CAAW,IAAD,OAA9B;AACZ,2BAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAxB;AAEZ,+BAAY;AAEZ,wBAAU,IAAD,OAAO,GAAE,CAAlB;AAKE,0BAAG,IAAI,QAAC,CAAD,CAAI,KAAE,GAAb;AAEE,mCAAY,4CAAe,YAAY,CAAC,IAAD;;AAIvC,mCAAY,4CAAe,YAAY,CAAC,sBAAS,CAAC,IAAD,CAAV;;qBAX3C;AAmBA,wBAAG,sCAAY,OAAO,CAAC,YAAY,QAAQ;;;;wBAArB,CAA6B,GAAE,CAArD;AAEE,6BAAQ,eAAI,CAAC,QAAQ,MAAO,GAAE,CAAF,CAAW,OAAD,OAA1B;AACZ,6BAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAF,CAAW,IAAD,OAA9B;AACZ,6BAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAxB;AAEZ,6BAAQ;AACR,0BAAG,sCAAY,OAAO,CAAC,MAAM,QAAQ;;;;0BAAf,CAAuB,GAAE,CAA/C;AAEE,+BAAQ,eAAI,CAAC,QAAQ,MAAO,GAAE,CAAF,CAAW,OAAD,OAA1B;AACZ,+BAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAF,CAAW,IAAD,OAA9B;AACZ,+BAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAxB;uBAJd;AAOA,+BAAS,QAAO,SAAC,CAAS,QAAT;;AAMjB,gCAAW,SAAS,MAAK;AACzB,+BAAS,MAAK,SAAC,CAAS,QAAT;AACf,iCAAU,SAAS,QAAO;AAC1B,+BAAS,QAAO,SAAC,CAAS,QAAT;AACjB,+BAAS,MAAK,QAAC,CAAQ,kEAAR;AACf,+BAAS,QAAO,QAAC,CAAQ,oEAAR;AACjB,+BAAS,gBAAc,CAAM,wCAAL,+BAAK,CAAC,EAAE,KAAM,GAAE,CAAF,CAAI,EAAE,KAAK,EAAE,OAAO,EAAE,OAA/B,GF10C0C,6EE00ChD;AACvB,+BAAS,QAAO,SAAC,CAAS,QAAT;;mBAtDrB;iBA3IF;eALJ;aA6MN,UAlQW,KAkQX;AACM,kBAAG,CAAI,IAAP,EACE,QAAS,IADX;aAGN,UAtQW,KAsQX;AACM,wBAAW,eAAI,CAAC,QAAE,EAAE,cAAG,CAAC,IAAI,OAAL,CAAO,GAAC,CAAhB;AACf,4BAAe;AACf,0BAAa;AACb,6BAAgB;AAChB,6BAAgB;AAChB,8BAAiB;AACjB,4BAAe;AACf,2BAAc;AACd,+BAAY,CAAC,QAAQ;;;;mBAAY;;;;mBAAU;;;;mBAAa;;;;mBAAa;;;;mBAAc;;;;mBAAY;;;;kBAAnF;AAEZ,mBAAM;AAEN,kBAAG,aAAc,KAAG,EAApB;AAEE,gCAAG,CAAC,cAAc;;;;qBAAG;;;;oBAAlB;AACH,oBAAG,GAAI,KAAG,CAAV,EACE,KAAM,EADR;eAHF;AAOA,kBAAiB,CAAb,YAAa,KAAG,EAAH,CAAkC,IAAX,CAAZ,WAAY,KAAE,OAAF,CAAhB,IAA2C,CAAZ,WAAY,KAAE,OAAF,CAAnE;AAEE,gCAAG,CAAC,aAAa;;;;qBAAO;;;;oBAArB;AAEH,oBAAG,GAAI,KAAE,CAAT;AAEE,yBAAO,EAAP,GAAa;AACb,yBAAO,EAAP,GAAa,UAAK,CAAC,SAAS,sBAAoB,CAAC,IAAD,CAA9B,CAAsC,GAAE,EAAF;iBAH1D;AAMA,oBAAgB,CAAZ,WAAY,KAAE,OAAF,CAAW,IAAgB,CAAZ,WAAY,KAAE,OAAF,CAA3C;AACE,wBAAK,EAAL;AAEA,4BAAK,EAAL;AAEF,oBAAI,EAAG,GAAE,EAAT,EACE,MAAK,EAAG,GAAE,CAAV,CADF;AAGA,oBAAG,CAAI,IAAP;AAEE,sBAAgB,CAAZ,WAAY,KAAE,MAAF,CAAwC,IAAd,CAAZ,WAAY,KAAE,UAAF,CAAhB,IAA8C,CAAZ,WAAY,KAAE,MAAF,CAAxE;AAIA,sBAAG,WAAY,KAAE,OAAjB;AAIA,sBAAG,WAAY,KAAE,OAAjB;AAEE,2BAAO,EAAP,GAAa,UAAK,CAAC,EAAG,GAAE,SAAN,CAAiB,GAAE,CAAF;AACnC,2BAAO,EAAP,GAAa,OAAO;AACpB,6BAAU,OAAO;AACjB,+BAAM,+BAAK,CAAC,EAAE,KAAM,GAAE,CAAF,CAAK,EAAE,IAAK,GAA2C,CAAnB,CAApB,EAAE,OAAkB,GAAR,EAAE,IAAJ,GAAuB,CAAV,OAAO,EAAG,GAAE,CAAF,CAAb,CAAmB,GAAE,CAAF,CAA3C,CAAwD,CAAR,EAAE,KAAM,GAAE,OAAO,EAAT,CAAY,GAAE,CAAF,CAAK,EAAE,IAAoD,GAAJ,CAAnB,CAApB,EAAE,OAAkB,GAAR,EAAE,IAAJ,GAAuB,CAAV,OAAO,EAAG,GAAE,CAAF,CAAb,CAAmB,GAAE,CAAF,CAA3C,GAA4D,CAAV,OAAO,EAAG,GAAE,CAAF,CAAjK,CAAX;AACA,+BAAM,+BAAK,CAAC,UAAK,CAAC,EAAE,KAAH,EAAW,UAAK,CAAC,EAAE,IAAH,EAAU,UAAK,CAAC,EAAE,MAAH,EAAY,UAAK,CAAC,EAAE,OAAH,CAAtD,CAAX;AACA,6BAAS,aAAa,CAAC,4CAAI,sBAAS,CAAC,YAAD,CAAe,KAAE,MAAF,CAAW,IAAK,IAAY,CAAP,MAAO,KAAE,SAAF,CAAZ,CAA2B,KF92C6B,GE82CrG;mBAPxB;AAUA,sBAAG,WAAY,KAAE,OAAjB;AAEE,2BAAO,EAAP,GAAa,UAAK,CAAC,EAAG,GAAE,SAAN,CAAiB,GAAE,CAAF;AACnC,2BAAO,EAAP,GAAa,OAAO;AACpB,6BAAU,OAAO;AACjB,+BAAM,+BAAK,CAAC,EAAE,KAAM,GAAE,CAAF,CAAK,EAAE,IAAK,GAA2C,CAAnB,CAApB,EAAE,OAAkB,GAAR,EAAE,IAAJ,GAAuB,CAAV,OAAO,EAAG,GAAE,CAAF,CAAb,CAAmB,GAAE,CAAF,CAA3C,CAAwD,CAAR,EAAE,KAAM,GAAE,OAAO,EAAT,CAAY,GAAE,CAAF,CAAK,EAAE,IAAoD,GAAJ,CAAnB,CAApB,EAAE,OAAkB,GAAR,EAAE,IAAJ,GAAuB,CAAV,OAAO,EAAG,GAAE,CAAF,CAAb,CAAmB,GAAE,CAAF,CAA3C,GAA4D,CAAV,OAAO,EAAG,GAAE,CAAF,CAAjK,CAAX;AACA,+BAAM,+BAAK,CAAC,UAAK,CAAC,EAAE,KAAH,EAAW,UAAK,CAAC,EAAE,IAAH,EAAU,UAAK,CAAC,EAAE,MAAH,EAAY,UAAK,CAAC,EAAE,OAAH,CAAtD,CAAX;AACA,6BAAS,gBAAgB,CAAC,4CAAI,sBAAS,CAAC,YAAD,CAAe,KAAE,MAAF,CAAW,IAAK,IAAY,CAAP,MAAO,KAAE,SAAF,CAAZ,CAA2B,KFl3C6B,GEk3CrG;mBAP3B;AAUA,sBAAG,WAAY,KAAE,QAAjB;AAEE,2BAAO,EAAP,GAAa;AACb,+BAAM,+BAAK,CAAC,EAAE,KAAM,GAAE,CAAF,CAAI,EAAE,IAAK,GAAqC,CAAb,CAApB,EAAE,OAAkB,GAAR,EAAE,IAAJ,GAAY,OAAO,EAAT,CAAa,GAAE,CAAF,CAArC,CAAiD,CAAR,EAAE,KAAM,GAAE,MAAF,CAAS,GAAC,CAAD,CAAI,EAAE,IAA6C,GAAH,CAAb,CAApB,EAAE,OAAkB,GAAR,EAAE,IAAJ,GAAY,OAAO,EAAT,CAAa,GAAE,CAAF,CAArC,GAA0C,OAAO,EAA1I,CAAX;AACA,2BAAQ,oCAAU,CAAC,GAAI,gCAAM,CAAC,KAAM,IAAP,CAAX;AAClB,+BAAM,+BAAK,CAAC,UAAK,CAAC,EAAE,KAAH,EAAW,UAAK,CAAC,EAAE,IAAH,EAAU,UAAK,CAAC,EAAE,MAAH,EAAY,UAAK,CAAC,EAAE,OAAH,CAAtD,CAAX;AACA,6BAAS,WAAW,CAAC,4CAAI,IAAK,IAAY,CAAP,MAAO,KAAE,SAAF,CAAZ,CAA0B,KAAM,KFh4C0D,KAA6B,GEg4CjI;AACpB,2DAAa,CAAC,GAAG,CAAC,EAAE,CAAC,CAAR;AACb,6BAAS,WAAS,CAAC,4CAAI,aAAc,MAAO,qEAAW,qEFn0C+J,sEAA0B,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CEk0CxI;mBARpB;iBA9BF;AA0CA,oBAAI,WAAY,KAAE,QAAlB,EACE,OAAO,EAAP,GAAa,EADf;AAGA,oBAAI,WAAY,KAAE,OAAlB,EACG,OAAO,EAAP,GAAa,EADhB;AAGA,oBAAgB,CAAZ,WAAY,KAAE,OAAF,CAAW,IAAgB,CAAZ,WAAY,KAAE,OAAF,CAA3C;AAEE,yBAAO,EAAP,GAAa,UAAK,CAAC,EAAG,GAAE,SAAN,CAAiB,GAAE,CAAF;AACnC,yBAAO,EAAP,GAAa,OAAO;iBAHtB;AAMA,oBACmB,CADA,CAAT,CAAL,IAAK,GAAE,CAAC,KAAH,CAAS,GAAE,OAAF,CACA,IADwB,CAAT,CAAL,IAAK,GAAE,CAAC,KAAH,CAAS,GAAI,CAAF,OAAE,GAAE,OAAO,EAAT,CAAJ,CAAnB,IACf,CAAL,IAAK,GAAE,EAAE,IAAJ,CADmD,IAC/B,CAAL,IAAK,GAAS,CAAP,EAAE,IAAK,GAAE,OAAO,EAAT,CAAT,CAAV,CAAiC,IACnC,CAAb,YAAa,IAAS,CAAJ,SAAI,KAAE,SAAF,CAAT,CAFjB;AAIE,mCAAgB,IAAhB;AACA,gCAAa,MAAb;AACA,2BAAU;AAEV,oBAAE,KAAF,GAAW,CAAC,KAAM,GAAE,OAAF;AAClB,oBAAE,MAAF,GAAY,EAAE,KAAM,GAAE,OAAO,EAAT;AACpB,oBAAE,IAAF,GAAU,EAAE;AACZ,oBAAE,OAAF,GAAa,EAAE,IAAK,GAAE,OAAO,EAAT;AAEpB,sCAAe,EAAf;AACA,yBAAM,YAAN;AACA,0BAAO,SAAP;AACA,yBAAM,WAAN;iBAhBF;AAmBA,oBAAkB,CAAZ,CAAF,OAAE,GAAE,OAAO,EAAT,CAAY,GAAS,CAAP,CAAC,MAAM,GAAC,CAAC,KAAF,CAAT,CAAkB,IACtB,CAAV,OAAO,EAAG,GAAU,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAV,CADd;AAGE,6BAAY;;AAIZ,wBAAK,OAAE,GAAE,OAAO,EAAhB;AACA,oBAAE,KAAF,GAAW,EAAE,KAAM,GAAE,OAAO,EAAT;AACnB,sBAAG,OAAO,EAAG,GAAE,OAAf,EACE,MAAK,OAAO,EAAZ,CADF;;eApGJ;aAyGN,UAnYW,KAmYX;AAIiB,0BAAN,iBAAM,CAAC,OAAC,QAAC,CAAD,CAAF;AAEX,kBAFW,KAEX;AAEE,4BAAa;AACb,oBAAG,CAAI,IAAP;AAEE,4BAAW,eAAI,CAAC,QAAE,EAAE,cAAG,CAAC,IAAI,OAAL,CAAQ,GAAE,CAAlB;AAEf,6BAAY;AAEZ,sBAAG,sCAAY,OAAO,CAAC,QAAQ,sBAAS,CAAC,OAAD,EAAU;;;;sBAA5B,CAAoC,GAAE,CAA5D;AAEE,2BAAQ,eAAI,CAAC,QAAQ,MAAM,GAAC,CAAD,CAAU,OAAD,OAAxB;AACZ,2BAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAU,GAAC,CAAD,CAAU,IAAD,OAA5B;AACZ,2BAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAU,GAAC,CAAtB;AAEZ,wBAAU,IAAD,OAAO,GAAE,CAAlB;AAKE,0BAAG,IAAI,QAAC,CAAD,CAAI,KAAE,GAAb;AAEE,mCAAY,4CAAe,YAAY,CAAC,IAAD;;AAIvC,mCAAY,4CAAe,YAAY,CAAC,sBAAS,CAAC,IAAD,CAAV;;qBAX3C;mBANF;AA0BA,2BAAS,QAAO,QAAC,CAAQ,oEAAR;AACjB,6BAAY,SAAS,QAAO;AAC5B,2BAAS,QAAO,SAAC,CAAS,QAAT;AACjB,+BAAQ,gCAAM,CAAC,CAAC,MAAO,EAAE,OAAS,GAAE,CAAtB,CAAd;AACA,+BAAQ,gCAAM,CAAC,CAAC,OAAQ,EAAE,OAAQ,GAAE,CAAtB,CAAd;AACA,2BAAS,QAAO,QAAC,CAAQ,oEAAR;AACjB,2BAAS,WAAS,CAAC,+CAAK,+CFhhD+E,+EAAyE,8EEghD9J;AAClB,2BAAS,QAAO,SAAC,CAAS,QAAT;iBAvCnB;eA0CF,UA/CW,KA+CX;AAEE,oBAAG,CAAI,IAAP;AAEE,2BAAU;AACV,2BAAU;AACV,8BAA2B,WAAd,SAAS,MAAK;AAC3B,4BAAW;AACX,8BAAa;iBANf;AAQA,yBAAS,MAAK,SAAC,CAAS,8BAAT;eAVjB;aAcN,UApcW,KAocX;AAIM,wBAAW,iBAAM,CAAC,OAAC,QAAC,CAAD,CAAF;AAGjB,kBAAG,OAAQ,KAAE,GAAb;AACE,yBAAS,MAAK,SAAC,CAA8B,aAArB,SAAS,MAAK,QAAS,cAAY,0CAAZ,CAAF,CAA9B;AAEjB,wBAAG,OAAQ,KAAE,GAAb;AAEE,0BAAW,eAAI,CAAC,QAAE,EAAE,cAAG,CAAC,IAAI,OAAL,CAAQ,GAAE,CAAlB;AAEf,uBAAQ,eAAI,CAAC,QAAQ,sCAAY,KAAK,CAAC,IAAI,OAAL,CAAc,GAAE,CAAF,CAAW,OAAD,OAAlD;AACZ,uBAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAF,CAAW,IAAD,OAA9B;AACZ,uBAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAxB;AAEZ,gCAAG,CAAC,KAAK;;;;qBAAO;;;;oBAAb;AACH,oBAAG,GAAI,KAAE,CAAT;AAEE,sBAAG,MAAO,GAAE,OAAZ;AAEG,0BAAK,MAAL;AACA,sBAAE,KAAF,GAAW,EAAE,KAAM,GAAE,MAAF;mBAHtB;iBAFF;eAUA,UAAG,OAAQ,KAAE,GAAb;AAEE,2BAAY;AACZ,0BAAW;AACX,2BAAY;AACZ,wBAAS,UAAK,CAAC,SAAS,sBAAoB,CAAC,IAAD,CAA9B;AACV,sBAAJ,IAAG;AAEH,2BAAM,EAAN;AAEA,0BAAW,eAAI,CAAC,QAAE,EAAE,cAAG,CAAC,IAAI,OAAL,CAAQ,GAAE,CAAlB;AACf,uBAAQ,eAAI,CAAC,QAAQ,cAAG,CAAC,MAAM,sBAAS,CAAC,OAAD,CAAhB,CAA2B,GAAE,CAAF,CAAW,OAAD,OAAjD;AACZ,uBAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAF,CAAW,IAAD,OAA9B;AACZ,uBAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAxB;AAEZ,0BAAW,sBAAS,CAAC,OAAD;AAEpB,oBAAuB,CAAnB,cAAG,CAAC,MAAM,OAAP,CAAgB,GAAE,CAAF,CAAK,IAAY,CAAP,MAAO,KAAE,MAAF,CAAxC;AAEE,yBAAQ,eAAI,CAAC,QAAQ,cAAG,CAAC,MAAM,OAAP,CAAgB,GAAE,CAAF,CAAW,OAAD,OAAtC;AACZ,yBAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAF,CAAW,IAAD,OAA9B;AACZ,yBAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAxB;iBAJd;AAOA,2BAAY;AACZ,4BAAa;AAEb,oBAAG,cAAG,CAAC,QAAQ,OAAT,CAAkB,GAAE,CAA1B;AAEE,yBAAQ,eAAI,CAAC,QAAQ,cAAG,CAAC,QAAQ,OAAT,CAAkB,GAAE,CAAF,CAAW,OAAD,OAAxC;AACZ,yBAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAF,CAAW,IAAD,OAA9B;AACZ,yBAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAxB;AACZ,kCAAG,CAAC,KAAK;;;;uBAAS;;;;sBAAf;AACH,sBAAG,cAAG,CAAC,IAAK,IAAN,CAAY,GAAE,CAApB,EACE,WAAY,UAAK,CAAU,CAAT,QAAS,GAAE,GAAF,CAAM,GAAY,CAAT,EAAE,MAAO,GAAE,EAAE,KAAJ,CAA5B,CADnB;iBANF;AAUA,oBAAG,cAAG,CAAC,SAAS,OAAV,CAAmB,GAAE,CAA3B;AAEE,yBAAQ,eAAI,CAAC,QAAQ,sCAAY,KAAK,CAAC,SAAS,OAAV,CAAmB,GAAE,CAAF,CAAW,OAAD,OAAvD;AACZ,yBAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAF,CAAW,IAAD,OAA9B;AACZ,yBAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAxB;AACZ,kCAAG,CAAC,KAAK;;;;uBAAU;;;;sBAAhB;AACH,sBAAG,cAAG,CAAC,IAAK,IAAN,CAAY,GAAE,CAApB,EACE,YAAa,UAAK,CAAW,CAAV,SAAU,GAAE,GAAF,CAAM,GAAa,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAA9B,CADpB;iBANF;AAUA,oBAAG,cAAG,CAAC,QAAQ,OAAT,CAAkB,GAAE,CAA1B;AAEE,yBAAQ,eAAI,CAAC,QAAQ,sCAAY,KAAK,CAAC,QAAQ,OAAT,CAAkB,GAAE,CAAF,CAAW,OAAD,OAAtD;AACZ,yBAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAF,CAAW,IAAD,OAA9B;AACZ,yBAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAxB;AAEZ,sBAAG,IAAK,KAAE,QAAV,EACE,WAAY,CADd;AAGA,sBAAG,IAAK,KAAE,KAAV,EACE,WAAY,CADd;iBATF;AAaA,oBAAG,cAAG,CAAC,QAAQ,OAAT,CAAkB,GAAE,CAA1B;AAEE,yBAAQ,eAAI,CAAC,QAAQ,sCAAY,KAAK,CAAC,QAAQ,OAAT,CAAkB,GAAE,CAAF,CAAW,OAAD,OAAtD;AACZ,yBAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAF,CAAW,IAAD,OAA9B;AACZ,yBAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAxB;AAEZ,sBAAG,IAAK,KAAE,MAAV;AAEE,+BAAY;AACZ,sBAAE,KAAF,GAAW,EAAE;mBAHf;AAMA,sBAAG,IAAK,KAAE,OAAV,EACE,WAAY,mBADd;iBAZF;AAgBA,uBAAO,EAAP,GAAa;AACb,uBAAO,EAAP,GAAa;AAEb,oBAAG,cAAG,CAAC,OAAO,sBAAS,CAAC,IAAD,CAAjB,CAAyB,GAAE,CAAjC;AAEE,mCAAM,CAAC;;;;uBAAK,EAAE,CAAR;iBAFR;AAqCA,sBAAO;AACP,6BAAc;AAEd,oBAAkB,CAAd,cAAG,CAAC,IAAI,IAAL,CAAW,KAAE,CAAF,CAAK,IAAY,CAAC,eAAD,SAAnC;AAEE,wBAAqB,eAAe,aAAW,CAAC,IAAD;iBAFjD;AAmBA,oBAAI,cAAG,CAAC,SAAS,sBAAS,CAAC,IAAD,CAAnB,CAA2B,GAAE,CAApC;AAEE,mCAAM,CAAC;;;;uBAAK,EAAE,CAAR;AACN,wBAAqB,uCAAa,cAAc,CAAC,IAAD;AAChD,+BAAc;iBAJhB;AAQA,oBAAG,cAAG,CAAC,QAAQ,sBAAS,CAAC,IAAD,CAAlB,CAA0B,GAAE,CAAlC;AAEE,sBAAG,cAAG,CAAC,UAAW,sBAAS,CAAC,IAAD,CAArB,CAA6B,GAAE,CAArC;AAEE,qCAAM,CAAC;;;;yBAAM,EAAG,cAAG,CAAC,UAAW,sBAAS,CAAC,IAAD,CAArB,CAA6B,GAAE,CAA5C;AACN,0BAAO,uCAAa,QAAC;AACrB,0DAAY,qBAAqB,CAAC,KAAM,IT1sD+D,KS0sDtE;AACjC,iCAAc;mBALhB;iBAFF;AAWA,uBAAQ;AACR,uBAAQ;AAEN,oBAAY,GAAD,QAAX;AAEE,sBAAG,CAAI,uCAAa,CAAC,GAAD,CAApB;AAEE,wBAAa,CAAT,QAAS,GAAE,CAAF,CAAK,IAAe,CAAV,SAAU,GAAE,CAAF,CAAjC;AAEE,6BAAQ;AACR,6BAAQ;qBAHV;AAKA,wBAAa,CAAT,QAAS,GAAE,CAAF,CAAK,IAAe,CAAV,SAAU,KAAE,CAAF,CAAjC;AAEE,6BAAQ;AACR,6BAAQ,UAAK,CAAS,CAAR,QAAQ,GAAC,GAAG,SAAC,EAAL,CAAW,GAAE,GAAG,UAAC,EAA1B;qBAHf;AAKA,wBAAa,CAAT,QAAS,KAAE,CAAF,CAAK,IAAe,CAAV,SAAU,GAAE,CAAF,CAAjC;AAEE,6BAAQ,UAAK,CAAU,CAAT,SAAS,GAAC,GAAG,UAAC,EAAL,CAAY,GAAE,GAAG,SAAC,EAA5B;AACb,6BAAQ;qBAHV;AAKA,wBAAa,CAAT,QAAS,KAAE,CAAF,CAAK,IAAe,CAAV,SAAU,KAAE,CAAF,CAAjC;AAEE,6BAAQ,GAAG,SAAC;AACZ,6BAAQ,GAAG,UAAC;qBAHd;AAMA,wBAAG,QAAS,KAAE,mBAAd,EACE,EAAE,KAAF,GAAW,CAAC,MAAO,GAAE,IADvB;AAGA,wBAAG,CAAI,IAAP;AAEE,0BAAa,CAAT,QAAS,GAAE,CAAF,CAAK,IAAc,CAAV,SAAU,GAAE,CAAF,CAAhC;AAEE,iCAAS,aAAW,CAAM,wCAAL,+BAAK,CAAC,UAAK,CAAC,EAAE,KAAH,EAAU,UAAK,CAAC,EAAE,IAAH,EAAS,UAAK,CAAC,EAAE,KAAH,CAAU,GAAE,IAAF,CAAO,UAAK,CAAC,EAAE,IAAH,CAAS,GAAE,IAApE,GAA2E,IF/tDhC,KACzE,MAA0B,KAA2B,KE8tD7B;uBAGtB,UAAa,CAAT,QAAS,GAAE,CAAF,CAAK,IAAe,CAAV,SAAU,KAAE,CAAF,CAAjC;AAEE,iCAAS,aAAW,CAAM,wCAAL,+BAAK,CAAC,UAAK,CAAC,EAAE,KAAH,EAAU,UAAK,CAAC,EAAE,IAAH,EAAS,UAAK,CAAC,EAAE,KAAH,CAAU,GAAE,QAAF,CAAW,UAAK,CAAC,EAAE,IAAH,CAAS,GAAE,SAAxE,GAAmF,IFpuDxC,KACzE,MAA0B,KAA2B,KEmuD7B;;AAIpB,iCAAS,aAAW,CAAM,wCAAL,+BAAK,CAAC,UAAK,CAAC,EAAE,KAAH,EAAU,UAAK,CAAC,EAAE,IAAH,EAAS,UAAK,CAAC,EAAE,KAAH,CAAU,GAAE,GAAG,SAAC,EAAN,CAAa,UAAK,CAAC,EAAE,IAAH,CAAS,GAAE,GAAG,UAAC,EAA9E,GAAsF,IFxuD3C,KACzE,MAA0B,KAA2B,KEuuD7B;;qBAbxB;AAiBA,wBAAa,CAAT,QAAS,GAAE,CAAF,CAAK,IAAc,CAAV,SAAU,GAAE,CAAF,CAAhC;AAEE,6BAAO,EAAP,GAAa;AACb,6BAAO,EAAP,GAAa;;AAIb,6BAAO,EAAP,GAAa,GAAG,SAAC;AACjB,6BAAO,EAAP,GAAa,GAAG,UAAC;;mBAnDrB;AAuDA,sBAAG,UAAH,EACE,GAAI,eAAJ,GAAI,CADN;iBAzDF;AA6DF,oBAAkB,CAAT,CAAL,IAAK,GAAE,CAAC,KAAH,CAAS,GAAE,OAAF,CACiC,IADT,CAAT,CAAL,IAAK,GAAE,CAAC,KAAH,CAAS,GAAI,CAAF,OAAE,GAAE,OAAO,EAAT,CAAJ,CAAnB,IACd,CAAL,IAAK,GAAE,EAAE,IAAJ,CADkD,IAC9B,CAAL,IAAK,GAAS,CAAP,EAAE,IAAK,GAAE,OAAO,EAAT,CAAT,CAAV,IAAoC,MADvD;AAGE,mCAAgB,IAAhB;AACA,gCAAa,UAAb;AACA,2BAAU;iBALZ;AAQA,oBAAkB,CAAZ,CAAF,OAAE,GAAE,OAAO,EAAT,CAAY,GAAS,CAAP,CAAC,MAAM,GAAC,CAAC,KAAF,CAAT,CAAkB,IACtB,CAAV,OAAO,EAAG,GAAU,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAV,CADd;AAGE,6BAAY;;AAIV,wBAAK,OAAc,GAAV,OAAO,EAAT,GAAc,CAArB;AACA,oBAAE,KAAF,GAAW,EAAE,KAAkB,GAAV,OAAO,EAAT,GAAc,CAAF;AAC/B,sBAAG,OAAO,EAAG,GAAE,OAAf,EACE,MAAK,OAAO,EAAZ,CADF;;AAIJ,oBAAG,cAAG,CAAC,QAAQ,OAAT,CAAkB,GAAE,CAA1B;AAEE,sBAAG,cAAG,CAAC,OAAO,OAAR,CAAiB,GAAE,CAAzB;AAEE,+BAAM,SAAS,gBAAc,CAAC,IAAD,CAA7B;AACA,+BAAU,OAAE,GAAa,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAzB;;AAIA,wBAAG,cAAG,CAAC,UAAU,OAAX,CAAoB,GAAE,CAA5B;AAEE,iCAAM,SAAS,gBAAc,CAAC,IAAD,CAA7B;AACA,iCAAa,CAAF,OAAE,GAAa,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAb,CAAwB,GAAE,CAAvC;qBAHF;;iBATJ;AAiBA,oBAAI,cAAG,CAAC,OAAO,OAAR,CAAiB,GAAE,CAA1B;AAEE,6BAAM,SAAS,gBAAc,CAAC,IAAD,CAA7B;AACA,wBAAK,EAAE,OAAQ,GAAE,EAAE,IAAnB;AACA,6BAAU,CAAV;iBAJF;AAOA,oBAAG,QAAS,KAAE,kBAAd;AAEE,6BAAM,SAAS,gBAAc,CAAC,IAAD,CAA7B;AACA,6BAAU,OAAE,GAAa,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAzB;AACA,2BAAS,KAAT,GAAkB;AAClB,2BAAS,OAAT,GAAoB;AACpB,sBAAG,CAAI,IAAP;AAEE,+BAAM,SAAS,gBAAc,CAAC,IAAD,CAA7B;AACA,0BAAM,EAAE,OAAQ,GAAE,EAAE,IAApB;mBAHF;iBANF;AAaA,oBAAG,QAAS,KAAE,mBAAd;AAEE,6BAAM,SAAS,gBAAc,CAAC,IAAD,CAA7B;AACA,6BAAU,OAAE,GAAa,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAzB;AACA,2BAAS,MAAT,GAAmB;AACnB,2BAAS,OAAT,GAAoB;AACpB,sBAAG,CAAI,IAAP;AAEE,+BAAM,SAAS,gBAAc,CAAC,IAAD,CAA7B;AACA,0BAAK,EAAE,OAAQ,GAAE,EAAE,IAAnB;mBAHF;AAKA,wBAAK,EAAE,MAAP;iBAXF;eAvRF;aAuSR,UAxwBW,KAwwBX;AACM,yBAAY;AACZ,sBAAS;AAET,kBAAI,sCAAY,OAAO,CAAC,IAAI,QAAE;;;;kBAAP,CAAc,GAAC,CAAtC;AAEE,0BAAW,sBAAS,CAAC,eAAI,CAAC,QAAE,EAAE,MAAM,GAAC,CAAZ,CAAL;AAEpB,oBAAG,sCAAY,OAAO,CAAC,OAAO,QAAQ;;;;oBAAhB,CAAwB,GAAE,CAAhD;AAEE,yBAAQ,eAAI,CAAC,QAAQ,MAAM,GAAC,CAAD,CAAU,OAAD,OAAxB;AACZ,yBAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAU,GAAC,CAAD,CAAU,IAAD,OAA5B;AACZ,yBAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAU,GAAC,CAAtB;AACZ,0BAAS;iBALX;AAOA,oBAAG,sCAAY,OAAO,CAAC,QAAQ,QAAQ;;;;oBAAjB,CAAyB,GAAE,CAAjD;AAEE,yBAAQ,eAAI,CAAC,QAAQ,MAAM,GAAC,CAAD,CAAU,OAAD,OAAxB;AACZ,yBAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAU,GAAC,CAAD,CAAU,IAAD,OAA5B;AACZ,yBAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAU,GAAC,CAAtB;AAEZ,sBAAU,IAAD,OAAO,GAAE,CAAlB;AAKE,wBAAG,IAAI,QAAC,CAAD,CAAI,KAAE,GAAb;AAEE,iCAAY,4CAAe,YAAY,CAAC,IAAD;AAEvC,qCAAY,4CAAe,YAAY,CAAC,IAAD;mBAT3C;iBANF;eAXF;AA+BA,oBAAK,OAAE,GAAK,CAAH,EAAG,GAAE,SAAF,CAAZ;AACA,kBAAG,SAAH;AACE,2BAAY;AAAU,gCAAa;AAErC,gBAAE,KAAF,GAAW,EAAE,KAAM,GAAK,CAAH,EAAG,GAAa,CAAV,SAAU,GAAE,CAAF,CAAb,CAAL;AAEnB,kBAAG,CAAI,IAAK,IAAI,CAAI,SAApB;AAEE,oBAAG,KAAM,KAAE,EAAX;AAEE,sBAAI,QAAS,KAAG,EAAhB;AAEE,2BAAQ,SAAS,MAAK;AACtB,gCAAa;mBAHf;AAKA,yBAAQ,SAAS,MAAK;AACtB,uBAAoB,WAAd,SAAS,MAAK;AACpB,2BAAS,MAAK,SAAC,CAAS,EAAT;AAEf,sBAAG,cAAG,CAAC,SAAD,CAAN;AACE,6BAAS,WAAS,CAAC,4CAAuC,MAAe,MAAO,sEAAY,qEAAW,sEAAS,EAAG,CAAC,EAAG,CAAC,EAAgC,MF/yDrC,MAAoB,CAAC,EAAgB,CAAE,CE+yDxI;AAElB,wBAAA,SAAS,WAAS,CAAC,4CAAI,IAAK,MAAO,sEAAY,qEAAW,sEAAS,EAAG,CAAC,EAAG,CAAC,EAAgC,MFjzDQ,MAAoB,CAAC,EAAgB,CAAE,CEizDxI;AAEpB,2BAAS,MAAK,QAAC,CAAQ,IAAR;AACf,2BAAS,MAAK,SAAC,CAAS,cAAT;AACf,sBAAG,QAAS,KAAG,EAAf,EACE,YAAa,IADf;;AAKA,yBAAQ;AAER,sBAAG,KAAM,KAAE,QAAX;AAEE,2BAAQ,SAAS,MAAK;AACtB,6BAAS,QAAO,SAAC,CAAS,QAAT;AACjB,6BAAS,MAAK,SAAC,CAAS,QAAT;AACf,6BAAS,MAAK,QAAC,CAAQ,kEAAR;AACf,6BAAS,QAAO,QAAC,CAAQ,oEAAR;AACjB,6BAAS,gBAAc,CAAM,wCAAL,+BAAK,CAAC,EAAE,MAAO,EAAE,IAAK,GAAE,CAAF,CAAK,EAAE,KAAM,GAAE,CAAF,CAAK,EAAE,IAAK,GAAE,EAA5C,GFn6D8C,6EEm6DpD;AACvB,6BAAS,MAAK,SAAC,CAAS,IAAT;mBARjB;AAWA,sBAAG,KAAM,KAAE,QAAX;AAEE,2BAAQ,SAAS,MAAK;AACtB,6BAAS,QAAO,SAAC,CAAS,QAAT;AACjB,6BAAS,MAAK,SAAC,CAAS,QAAT;AACf,6BAAS,MAAK,QAAC,CAAQ,kEAAR;AACf,6BAAS,QAAO,QAAC,CAAQ,oEAAR;AACjB,6BAAS,cAAY,CAAM,wCAAL,+BAAK,CAAC,EAAE,MAAO,EAAE,IAAK,GAAE,CAAF,CAAK,EAAE,KAAM,GAAE,CAAF,CAAK,EAAE,IAAK,GAAE,EAA5C,GFn6D8C,6EEm6DpD;AACrB,6BAAS,MAAK,SAAC,CAAS,IAAT;mBARjB;;eAtCJ;AAkDA,gBAAE,KAAF,GAAW,EAAE,KAAM,GAAE,EAAF;aAEzB,UAr2BW,KAq2BX;AAIM,kBAAG,OAAC,QAAC,CAAD,CAAI,KAAG,GAAX;AAGM,yBAAJ,IAAG;AACH,oBAAG,OAAE,GAAE,CAAP,EACE,YAAa,IADf;eAIe,MAAf,SAAS,MAAK,SAAC,CAA8B,aAArB,SAAS,MAAK,QAAS,cAAY,6CAAZ,CAAF,CAA9B;aAEvB,UAn3BW,KAm3BX;AAIM,wBAAW,iBAAM,CAAC,OAAC,QAAC,CAAD,CAAF;AAEjB,kBAAG,OAAQ,KAAE,GAAb;AAEE,0BAAW,eAAI,CAAC,QAAE,EAAE,cAAG,CAAC,IAAI,OAAL,CAAQ,GAAE,CAAlB;AACf,uBAAQ,eAAI,CAAC,QAAQ,sCAAY,KAAK,CAAC,IAAI,OAAL,CAAc,GAAE,CAAF,CAAW,OAAD,OAAlD;AACZ,uBAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAF,CAAW,IAAD,OAA9B;AACZ,uBAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAxB;AACZ,gCAAG,CAAC,KAAK,WAAW;;;;oBAAjB;AACH,kBAAE,KAAF,GAAW;AACX,sBAAK,gBAAL;eARF;aAWN,UAp4BW,KAo4BX;AACM,kBAAI,sCAAY,OAAO,CAAC,IAAI,QAAE;;;;kBAAP,CAAc,GAAC,CAAtC;AAEE,0BAAW,sBAAS,CAAC,eAAI,CAAC,QAAE,EAAE,MAAM,GAAC,CAAZ,CAAL;AAEpB,oBAAG,sCAAY,OAAO,CAAC,QAAQ,QAAQ;;;;oBAAjB,CAAyB,GAAE,CAAjD;AAEE,yBAAQ,eAAI,CAAC,QAAQ,MAAM,GAAC,CAAD,CAAU,OAAD,OAAxB;AACZ,yBAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAU,GAAC,CAAD,CAAU,IAAD,OAA5B;AACZ,yBAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAU,GAAC,CAAtB;AAEZ,sBAAG,cAAG,CAAC,QAAQ,IAAT,CAAe,GAAE,CAAvB,EAA8B,UAAS,qCAAT,CAA9B;AACA,sBAAG,cAAG,CAAC,OAAO,IAAR,CAAc,GAAE,CAAtB,EAA6B,UAAS,oCAAT,CAA7B;AACA,sBAAG,cAAG,CAAC,SAAS,IAAV,CAAgB,GAAE,CAAxB,EAA+B,UAAS,+BAAT,CAA/B;iBARF;AAWA,oBAAG,sCAAY,OAAO,CAAC,SAAS,QAAQ;;;;oBAAlB,CAA0B,GAAE,CAAlD;AAEE,yBAAQ,eAAI,CAAC,QAAQ,MAAM,GAAC,CAAD,CAAU,OAAD,OAAxB;AACZ,yBAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAU,GAAC,CAAD,CAAU,IAAD,OAA5B;AACZ,yBAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAU,GAAC,CAAtB;AACZ,8BAAW,eAAS,CAAC,IAAD,CAApB;iBALF;AAQA,oBAAG,sCAAY,OAAO,CAAC,QAAQ,QAAQ;;;;oBAAjB,CAAyB,GAAE,CAAjD;AAEE,yBAAQ,eAAI,CAAC,QAAQ,MAAM,GAAC,CAAD,CAAU,OAAD,OAAxB;AACZ,yBAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAU,GAAC,CAAD,CAAU,IAAD,OAA5B;AACZ,yBAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAU,GAAC,CAAtB;AAEZ,sBAAG,IAAK,KAAE,MAAV,EACE,aAAY,kBAAZ,CADF;AAGA,sBAAG,IAAK,KAAE,OAAV,EACE,aAAY,mBAAZ,CADF;AAGA,kCAAW,eAAK,CAAC,UAAK,CAAC,CAAC,KAAF,EAAU,UAAK,CAAC,CAAC,IAAF,CAArB,CAAhB;iBAZF;AAeA,oBAAG,sCAAY,OAAO,CAAC,UAAU,QAAQ;;;;oBAAnB,CAA2B,GAAE,CAAnD;AAEE,yBAAQ,eAAI,CAAC,QAAQ,MAAO,GAAE,CAAF,CAAW,OAAD,OAA1B;AACZ,yBAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAF,CAAW,IAAD,OAA9B;AACZ,yBAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAxB;AAEZ,6BAAY;AAEZ,sBAAU,IAAD,OAAO,GAAE,CAAlB;AAKE,wBAAG,IAAI,QAAC,CAAD,CAAI,KAAE,GAAb;AAEE,iCAAY,4CAAe,YAAY,CAAC,IAAD;AAEvC,qCAAY,4CAAe,YAAY,CAAC,IAAD;mBAT3C;AAYA,sBAAG,sCAAY,OAAO,CAAC,YAAY,QAAQ;;;;sBAArB,CAA6B,GAAE,CAArD;AAEE,2BAAQ,eAAI,CAAC,QAAQ,MAAO,GAAE,CAAF,CAAW,OAAD,OAA1B;AACZ,2BAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAF,CAAW,IAAD,OAA9B;AACZ,2BAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAxB;AAEZ,wBAAG,CAAI,IAAP;AAEE,+BAAU;AACV,+BAAS,QAAO,SAAC,CAAS,QAAT;qBAHnB;;AAWA,wBAAG,CAAI,IAAP;AAEE,+BAAU;AACV,kCAAa,SAAS,MAAK;AAE3B,+BAAS,MAAK,SAAC,CAAS,QAAT;AACf,iCAAY,SAAS,QAAO;AAC5B,+BAAS,QAAO,SAAC,CAAS,QAAT;AACjB,+BAAS,MAAK,QAAC,CAAQ,kEAAR;AACf,+BAAS,QAAO,QAAC,CAAQ,oEAAR;AACjB,+BAAS,gBAAc,CAAM,wCAAL,+BAAK,CAAC,EAAE,MAAM,CAAC,KAAK,EAAE,OAAO,CAAC,OAAzB,GF1iE4C,6EE0iElD;qBAVzB;;iBArCJ;eAtCF;aA2FR,UAh+Ba,KAg+Bb;AACM,kBAAI,sCAAY,OAAO,CAAC,IAAI,QAAE;;;;kBAAP,CAAc,GAAC,CAAtC;AAEE,oBAAG,SAAS,MAAK,MAAM,KAAE,iEAAzB;AACE,4BAAW;AAEX,gCAAW,SAAS,MAAK;AAE3B,0BAAW,sBAAS,CAAC,eAAI,CAAC,QAAE,EAAE,MAAM,GAAC,CAAZ,CAAL;AAEpB,oBAAI,sCAAY,OAAO,CAAC,OAAO,QAAQ;;;;oBAAhB,CAAwB,GAAE,CAAjD;AAEE,yBAAQ,eAAI,CAAC,QAAQ,MAAM,GAAC,CAAD,CAAU,OAAD,OAAxB;AACZ,yBAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAU,GAAC,CAAD,CAAU,IAAD,OAA5B;AACZ,yBAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAU,GAAC,CAAtB;AACZ,2BAAS,MAAK,QAAC,CAAQ,IAAR;iBALjB;AAQA,oBAAiD,CAA7C,sCAAY,OAAO,CAAC,SAAS,QAAQ;;;;oBAAlB,CAA0B,GAAE,CAAF,CAAK,IAAI,CAAI,QAA9D;AAEE,yBAAQ,eAAI,CAAC,QAAQ,MAAM,GAAC,CAAD,CAAU,OAAD,OAAxB;AACZ,yBAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAU,GAAC,CAAD,CAAU,IAAD,OAA5B;AACZ,yBAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAU,GAAC,CAAtB;AACZ,sBAAG,SAAS,MAAK,OAAO,KAAG,EAA3B;AACE,mCAAgB,SAAS,MAAK;AAE9B,uCAAgB;AAElB,sBAAU,IAAD,OAAO,GAAE,CAAlB;AAKE,wBAAG,IAAI,QAAC,CAAD,CAAI,KAAE,GAAb;AAEE,kCAAa,4CAAe,YAAY,CAAC,IAAD;AAExC,sCAAa,4CAAe,YAAY,CAAC,IAAD;mBAT5C;iBAVF;AAuBA,oBAAiD,CAA7C,sCAAY,OAAO,CAAC,UAAU,QAAQ;;;;oBAAnB,CAA0B,GAAC,CAAD,CAAiB,IAAT,CAAI,IAAR,IAAiB,CAAI,QAA1E;AAEE,yBAAQ,eAAI,CAAC,QAAQ,MAAM,GAAC,CAAD,CAAU,OAAD,OAAxB;AACZ,yBAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAU,GAAC,CAAD,CAAU,IAAD,OAA5B;AACZ,yBAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAU,GAAC,CAAtB;AAEZ,sBAAU,IAAD,OAAO,GAAE,CAAlB;AAKE,wBAAG,IAAI,QAAC,CAAD,CAAI,KAAE,GAAb;AAEE,gCAAW,4CAAe,YAAY,CAAC,IAAD;AAEtC,oCAAW,4CAAe,YAAY,CAAC,IAAD;mBAT1C;iBANF;AAmBA,oBAAI,sCAAY,OAAO,CAAC,QAAQ,QAAQ;;;;oBAAjB,CAAwB,GAAC,CAAhD;AAEE,yBAAQ,eAAI,CAAC,QAAQ,MAAM,GAAC,CAAD,CAAU,OAAD,OAAxB;AACZ,yBAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAU,GAAC,CAAD,CAAU,IAAD,OAA5B;AACZ,yBAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAU,GAAC,CAAD,CAAU,IAAD,OAA5B;AAEZ,sBAAG,cAAG,CAAC,aAAc,sBAAS,CAAC,IAAD,CAAxB,CAAgC,GAAE,CAAxC;AAEE,qCAAM,CAAC;;;;yBAAM,EAAG,EAAV;AAEN,wBAAG,cAAG,CAAC,KAAM,sBAAS,CAAC,IAAD,CAAhB,CAAwB,GAAE,CAAhC;AAEE,6BAAQ,iBAAI,CAAC,eAAI,CAAC,KAAK,EAAG,cAAG,CAAC,KAAK,sBAAS,CAAC,IAAD,CAAf,CAAsB,GAAC,CAAnC,CAAL;AACZ,4DAAY,YAAY,CAAC,SAAS,OAAO,eAAS,CAAC,IAAD,ET3qEY,CS2qEtC;qBAH1B;mBAJF;;AAaA,sBAAI,sCAAY,OAAO,CAAC,OAAO,QAAQ;;;;sBAAhB,CAAuB,GAAC,CAA/C;AAEE,2BAAQ,eAAI,CAAC,QAAQ,MAAM,GAAC,CAAD,CAAU,OAAD,OAAxB;AACZ,2BAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAU,GAAC,CAAD,CAAU,IAAD,OAA5B;AACZ,2BAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAU,GAAC,CAAD,CAAU,IAAD,OAA5B;AACZ,2BAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAW,GAAE,CAAxB;AAEE,gCAAT,eAAS,CAAC,IAAD;AACd,wBADc,KACd;AAAG,4DAAY,YAAY,CAAC,SAAS,OAAO,ETzrEoB,CSyrErC;AAC3B,8BAFc,KAEd;AAAG,4DAAY,YAAY,CAAC,SAAS,OAAO,GT1rEoB,CS0rErC;AAC3B,8BAHc,KAGd;AAAG,4DAAY,YAAY,CAAC,SAAS,OAAO,GT3rEoB,CS2rErC;AAC3B,8BAJc,KAId;AAAG,4DAAY,YAAY,CAAC,SAAS,OAAO,GT5rEoB,CS4rErC;AAC3B,8BALc,KAKd;AAAG,4DAAY,YAAY,CAAC,SAAS,OAAO,GT7rEoB,CS6rErC;;AAEzB,4DAAY,YAAY,CAAC,SAAS,OAAO,eAAS,CAAC,IAAD,ET/rEY,CS+rEtC;;mBAd5B;;eA9EJ;aAkGN,UAnkCa,KAmkCb;AAIM,wBAAW,iBAAM,CAAC,OAAC,QAAC,CAAD,CAAF;AAGjB,kBAAG,OAAQ,KAAE,GAAb;AACE,yBAAS,MAAK,SAAC,CAA8B,aAArB,SAAS,MAAK,QAAS,cAAY,6CAAZ,CAAF,CAA9B;;AAGf,oBAAG,OAAQ,KAAE,GAAb;AACE,2BAAU;;AAGV,sBAAG,sCAAY,KAAK,CAAC,QAAQ,OAAT,CAAW,KAAC,CAAhC;AACE,4BAAS;AAET,4BAAG,sCAAY,KAAK,CAAC,QAAQ,OAAT,CAAW,KAAC,CAAhC,EACE,QAAS,IADX;;;aAKZ,UA1lCa,KA0lCb;AACM,wBAAW,eAAI,CAAC,QAAE,EAAE,cAAG,CAAC,IAAI,OAAL,CAAO,GAAC,CAAhB;AACf,qBAAQ,eAAI,CAAC,QAAQ,sCAAY,KAAK,CAAC,IAAI,OAAL,CAAa,GAAC,CAAD,CAAU,OAAD,OAAhD;AACZ,qBAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,IAAI,IAAL,CAAU,GAAC,CAAD,CAAU,IAAD,OAA5B;AACZ,qBAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAU,GAAC,CAAtB;aAGlB,UAjmCa,KAimCb,UAAI,YAAa,IAAjB;;AAIF,cAAqC,CAAjC,sCAAY,OAAO,CAAC,IAAI,QAAE;;;;cAAP,CAAc,GAAC,CAAD,CAAI,IAAI,CAAI,QAAjD;AAEE,kBAAO,GAAI,GAAE,eAAI,CAAC,QAAE,EAAE,MAAL,CAAN;AACX,6BAAM,CAAC,EAAE,EAAE,MAAL;WAGN,UAAG,CAAI,QAAP,EACE,iBAAM,CAAC,EAAE,EAAS,OAAD,OAAX,CADR;SAxvCF;;AA6vCF,YAAK,OAAE,GAAE,EAAT;AAEA,UAAG,OAAE,GAAE,WAAP,EACE,UAAS,OAAE,GAAE,CAAb,CADF;AAGA,UAAc,CAAV,SAAU,KAAa,CAAX,gBAAW,GAAE,CAAF,CAAb,CAA6B,IAAP,MAAJ,IAAe,CAAI,IAAnD;AAEE,UAAE,MAAF,GAAY,EAAE;AACd,UAAE,OAAF,GAAa,EAAE;AACf,+CAAa,CAAC,GAAG,EAAE,CAAN;AAGb,UAAE,KAAF,GAAW,CAAC,KAAM,GAAE,CAAF;AAClB,UAAE,IAAF,GAAU,EAAE;OARd;AAWA,eAAU;AAviDH;AAAY;AA2iDrB,aAAU;AACV,YAAS;AACT,cAAW,qDAAmB,QAAC;AAC/B,WAAO,aAAa,CAAC,SAAS,MAAV;AACpB,mBAAgB,SAAS,MAAK;AAC9B,eAAY,qDAAmB,QAAC;AAChC,YAAQ,aAAa,CAAC,SAAS,MAAV;AACrB,oBAAiB,SAAS,MAAK;AAC/B,eAAY,qDAAmB,QAAC;AAChC,YAAQ,aAAa,CAAC,SAAS,MAAV;AACrB,oBAAiB,SAAS,MAAK;AAC/B,kBAAe,qDAAmB,QAAC;AACnC,eAAW,aAAa,CAAC,SAAS,MAAV;AACxB,uBAAoB,SAAS,MAAK;AAClC,kBAAe,qDAAmB,QAAC;AACnC,eAAW,aAAa,CAAC,SAAS,MAAV;AACxB,uBAAoB,SAAS,MAAK;AAClC,gBAAa,SAAS,MAAK;AAC3B,kBAAe,SAAS,QAAO;AAC/B,eAAY,SAAS,MAAK;AAC1B,iBAAc,SAAS,QAAO;AAC9B,cAAW;AACX,cAAW;AACX,gBAAa;AACb,aAAU;AACV,aAAU;AACV,gBAAa;AAEb,wBAAe,+BAAK,CAAC,EAAE,EAAE,EAAE,CAAP,CAApB;AACA,WAAM,EAAN;AACA,WAAM,EAAN;AACA,QAAG,CAAI,YAAP,EACE,QAAO,EAAP,CADF;AAGA,WAAQ;AACR,cAAW;AAEX,eAAY;AACZ,sBAAa,cAAI,CAAC,EAAE,EAAE,EAAE,CAAP,CAAjB;AAEA,aAAU;AAEV,cAAK,EAAL;AAEA,YAAS;AACT,cAAW;AAEX,cAAS,CAAT;AACA,cAAS,CAAT;AACA,mBAAc,CAAd;AACA,cAAW;AACX,gBAAa;AACb,cAAW;AACX,iBAAY,EAAZ;AACA,oBAAe,EAAf;AACA,kBAAa,CAAC,CAAd;AACA,oBAAiB;AAEjB,aAAU;AACV,aAAU,CAAC;AAEX,QAAG,cAAG,CAAC,IAAI,CAAL,CAAQ,GAAE,CAAhB;AAEE,UAAM,sCAAY,YAAY,CAAC,EAAG,KAAM,IAAV;AAC9B;AACE,mBAAY;AACZ,YAAG,sCAAY,iBAAiB,CAAC,QAAQ,IAAI;;;;YAAb,CAAhC,EAAqD,WAAY,IAAjE;OAFF,QAGU,QAHV;KAHF;AASA,QAAK,gBAAU,CAAC,CAAD;AACf,QAAK,qBAAe,CAAC,CAAD;AACpB,QAAK,eAAS,CAAC,EAAE,IAAH;AAEd,eAAY;AACZ,kBAAa,CAAb;AAEA,WAAa,CAAD,OAAI,GAAE,CAAlB;AAGE,aAAO,aAAa,CAAC,WAAD;AACpB,qBAAgB;AAChB,eAAS,MAAK,aAAa,CAAC,QAAD;AAC3B,kBAAa;AACb,kBAAa;AACb,qBAAgB;AAChB,aAAQ;AACR,aAAQ;AACR,eAAU;AACV,cAAS;AACT,cAAS;AACT,gBAAW;AACX,qBAAgB;AAChB,kBAAa;AACb,iBAAM,SAAS,gBAAc,CAAC,IAAD,CAA7B;AACA,mBAAc,EAAE,OAAQ,GAAE,EAAE,IAAJ;AACxB,kBAAa;AAEb,kBAAa;AAEb,UAAK,iBAAI,CAAC,CAAD;AAET,uBAAkB;AAElB,WAAM,YAAY,CAAC,UAAU;;;;WAAE,2CAAE,KAAK;;;;WAAU;;;;WAAW;;;;WAAK;;;;WAAK;;;;WAAO;;;;WAAM;;;;WAAQ,KAAK,KAAK;;;;WAAQ;;;;WAAa,KAAK;;;;WAAS,UAAU;;;;UAA/H;AA5+EoE,eA6+EtF,KA7+EsF,SA6+EtF,SAAG,CAAH;AAEA,eAAU;AACV,mBAAc;AAEd,cAAQ,aAAa,CAAC,SAAS,MAAV;AACrB,sBAAiB,SAAS,MAAK;AAC/B,iBAAW,aAAa,CAAC,OAAD;AACxB,yBAAoB;AAEpB,mBAAc,UAAW,GAAE,WAAF;AAEzB,iBAAM,CAAN;AAEK;AACL,UADK,IACL;AAAS,YAAqB,CAAjB,CAAC,MAAgB,GAAP,CAAC,KAAH,GAAW,SAAF,CAAY,GAAE,CAAnC,EACE,EAAE,KAAF,GAAW,CAAC,KAAK,GAAiC,CAAb,CAAjB,CAAC,MAAgB,GAAP,CAAC,KAAH,GAAW,SAAF,CAAa,GAAE,CAAF,CADpD;AAET,gBAHK,IAGL,4CAAe,IAAW,CAAR,CAAC,MAAO,GAAE,SAAF,CAAY,GAAE,CAAC,KAA1B,EACI,EAAE,KAAF,GAAW,CAAC,MAAO,GAAE,SADxC;AAIA,QAAE,KAAF,GAAW,EAAE,KAAM,GAAE,OAAF;AACnB,QAAE,MAAF,GAAY,EAAE,MAAO,GAAE,OAAF;AAErB,QAAE,OAAF,GAAa,EAAE,IAAyB,GAAlB,UAAF,GAAe,IAAF,GAAS,IAAF;AAExC,UAAG,CAAI,WAAP;AAEE,eAAO,aAAa,CAAC,WAAD;AACpB,uBAAgB;AAChB,iBAAS,MAAK,aAAa,CAAC,QAAD;AAC3B,oBAAa;AAEb,uBAAc,OAAd;AACA,oBAAa;AACb,iBAAU;AAEV,oBAAY,CAAC,UAAU;;;;aAAG,4CAAG,aAAa;;;;aAAU;;;;aAAW;;;;aAAK;;;;aAAK;;;;aAAO;;;;aAAM;;;;aAAQ,KAAK,KAAK;;;;aAAQ;;;;aAAa,KAAK;;;;aAAS,UAAU;;;;YAAzI;AAEZ,kBAAW;AACX,kBAAW;AAEX,SAAC,KAAD,GAAU,EAAE,KAAM,GAAE,SAAS,KAAX;AAElB,SAAC,MAAD,GAAW,EAAE,MAAO,GAAE,SAAS,MAAX;AAEpB,YAAG,EAAE,IAAK,GAAE,SAAS,OAArB;AAEE,mBAAS,KAAT,GAAkB;AAClB,mBAAS,MAAT,GAAmB;AACnB,WAAC,KAAD,GAAU,EAAE;SAJd;AAOA,mBAAM,SAAS,gBAAc,CAAC,IAAD,CAA7B;AAEA,YACsD,CADlD,OACkD,IAA7C,CAAL,IAAK,GAAqB,CAAnB,EAAE,OAAiB,GAAP,MAAF,GAAsB,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAb,CAArB,CADG,IAEH,CAAL,IAAK,GAAY,CAAV,EAAE,OAAQ,GAAE,MAAF,CAAZ,CAD6C,CACtB,IAAG,YAFnC;AAIE,mBAAU;SAJZ;AAOA,eAAQ;AAER,gBAAQ,aAAa,CAAC,SAAS,MAAV;AACrB,wBAAiB;AACjB,mBAAW,aAAa,CAAC,OAAD;AACxB,2BAAoB;OAzCtB;AA4CA,UAAa,CAAT,QAAS,KAAG,kBAAH,CAAW,IAAc,CAAT,QAAS,KAAG,cAAH,CAAtC;AAEE,SAAC,KAAD,GAAU,OAAO;AACjB,SAAC,IAAD,GAAS,OAAO;AAChB,mBAAY;;AAIZ,SAAC,IAAD,GAAS,CAAC,IAAyB,GAAlB,UAAF,GAAe,IAAF,GAAS,IAAF;AACnC,kBAAS,WAA0B,GAAlB,UAAF,GAAe,IAAF,GAAS,IAArC;;AAIF,UAAsB,CAAZ,CAAN,CAAC,IAAK,GAAE,SAAF,CAAY,GAAW,CAAT,CAAC,OAAQ,GAAE,CAAF,CAAX,CAAgB,IAAI,CAAI,WAA9C,EACE,IAAK,EADP;;AAIF,QAAI,WAAM,KAAE,CAAZ;AAEE,iBAAM,SAAS,gBAAc,CAAC,IAAD,CAA7B;AACA,gBAAS,EAAE,OAAQ,GAAE,EAAE,IAAvB;KAHF;AAQA,eAAY,QAAS,KAAI,CAAJ;AAErB,aAAS,QAAO,QAAC,CAAQ,UAAR;AACjB,aAAS,MAAK,QAAC,CAAQ,QAAR;AACf,aAAS,QAAO,SAAC,CAAS,WAAT;AACjB,aAAS,MAAK,SAAC,CAAS,SAAT;AACf,aAAS,MAAK,aAAa,CAAC,OAAD;AAC3B,WAAQ,eAAR,OAAQ;AACR,YAAS,eAAT,QAAS;AACT,YAAS,eAAT,QAAS;AACT,eAAY,eAAZ,WAAY;AACZ,eAAY,eAAZ,WAAY;AA/zDL;AAAU;AAxtBH;AAAP;AAEP;AACA;AAAE;AAAE;AACJ;AAOA,UAAO,sBAAS,CAAC,GAAD;AAChB,SAAM,sBAAS,CAAC,CAAD;AAKf,QAAK,cAAG,CAAC,GAAU,GAAJ,GAAF,GAAQ,GAAF,CAAM,EAAjB;AACR,WAAO,CAAE,GAAE,CAAX;AAEE,uBAAM,CAAC;;;;WAAG,EAAU,GAAD,OAAM,GAAE,CAArB;AACN,uBAAM,CAAC;;;;WAAI,EAAU,GAAD,OAAM,GAAE,CAAtB;AACN,UAAK,cAAG,CAAC,GAAU,GAAJ,GAAF,GAAQ,GAAF,CAAM,EAAjB;;AAIV,QAAK,cAAG,CAAC,IAAW,GAAJ,GAAF,GAAQ,GAAF,CAAM,EAAlB;AACR,WAAO,CAAE,GAAE,CAAX;AAEE,uBAAM,CAAC;;;;WAAG,EAAU,GAAD,OAAM,GAAE,CAArB;AACN,uBAAM,CAAC;;;;WAAI,EAAU,GAAD,OAAM,GAAE,CAAtB;AACN,UAAK,cAAG,CAAC,IAAW,GAAJ,GAAF,GAAQ,GAAF,CAAM,EAAlB;;AAUV,QAAG,CAAI,MAAP,EACE,IAAK,uCAAa,CAAC,CAAD,CADpB;AAGA,aAAW,cAAG,CAAC,KAAM,CAAP,CAAU,GAAE,CAAF;AAGxB,QAAG,MAAH;AACE,WAAM,sCAAY,YAAY,CAAC,kBAAY,CAAC,CAAD,EAAK,KT0IgD,KS1IlE;AAE3B,eAAM;AAEX,QAAG,CAAI,MAAP,EACE,KAAM,uCAAa,CAAC,EAAD,CADrB;AAIA,aAAU;AAIV,QAAG,QAAH;AAKE,UAAI,CAAE,KAAE,EAAR,EACE,IAAI,MAAJ;AAAiB,YAAK,GAAiC,GAA3B,GAAF,GAAQ,GAAF,GAAQ,CAAF,GAAM,IAAF,GAAS,GAAF,GAAQ,GAAF;AAClD,gBAAK,GAAyD,GAAnD,GAAF,GAAQ,GAAF,GAAQ,sCAAY,UAAU,CAAC,ETwHM,ISxHP,CAAxB,GAA8B,IAAF,GAAS,GAAF,GAAQ,GAFvE;KAKF,UAAG,CAAI,MAAP;AAKE,UAAK,cAAG,CAAC,EAAG,EAAJ;AACR,UAAI,CAAE,GAAE,CAAR;AAEE;AACE,mBAAU,MAAgJ,GAAvI,sCAAY,UAAU,CAAC,eAAI,CAAC,EAAG,EAAG,CAAE,GAAE,CAAX,EAAe,KAApB,CAAxB,GAAqD,GAAF,GAAQ,GAAF,GAAQ,GAAF,GAAQ,sCAAY,UAAU,CAAC,eAAI,CAAC,EAAG,EAAU,CAAD,OAAb,EAAmB,KAAxB,CAAxB,GAAyD,IAAF,GAAS,GAAF,GAAQ,GAAF;AAC1J,2BAAM,CAAC;;;;eAAG,EAAK,CAAF,CAAE,GAAS,CAAD,OAAR,CAAY,GAAE,CAAvB;AACN,2BAAM,CAAC;;;;eAAI,EAAK,CAAF,CAAE,GAAS,CAAD,OAAR,CAAY,GAAE,CAAxB;AACN,cAAK,cAAG,CAAC,EAAG,EAAJ;SAJV,QAKS,EAAF,CAAE,KAAE,CAAF,CALT;AAMA,YAAK,sCAAY,UAAU,CAAC,EAAG,KAAJ;OAR7B;;AAkBA,UAAK,cAAG,CAAC,EAAG,EAAJ;AACR,aAAO,CAAE,GAAE,CAAX;AAIE,yBAAM,CAAC;;;;aAAI,EAAK,CAAF,CAAE,GAAS,CAAD,OAAR,CAAY,GAAE,CAAxB;AAGN;AAEE,cAAK,cAAG,CAAC,IAAK,CAAN;AACR,cAAK,cAAG,CAAC,IAAK,CAAN;AAKR,iBAAe,CAAL,CAAF,CAAE,GAAE,CAAF,CAAK,IAAO,CAAF,CAAE,IAAG,CAAH,CAAP,CAAc,IAAY,CAAL,CAAF,CAAE,GAAE,CAAF,CAAK,IAAO,CAAF,CAAE,GAAE,CAAF,CAAP,CAAzC;AAIE,gBAAM,CAAF,CAAE,GAAE,CAAF,CAAK,IAAc,CAAN,CAAF,CAAE,IAAG,CAAH,CAAM,IAAM,CAAF,CAAE,GAAE,CAAF,CAAN,CAAzB;AAEE,uBAAU,MAAO,GAAE,eAAI,CAAC,EAAG,EAAG,CAAE,GAAE,CAAX,CAAN;AACjB,+BAAM,CAAC;;;;mBAAG,EAAG,CAAE,GAAE,CAAX;AACN,kBAAK,CAAE,GAAK,CAAF,CAAE,GAAE,CAAF,CAAL;AACP,kBAAK,CAAE,GAAK,CAAF,CAAE,GAAE,CAAF,CAAL;AACP,kBAAK,cAAG,CAAC,IAAK,CAAN;AACR,kBAAI,CAAE,KAAE,CAAR,EAAgB,IAAY,CAAD,OAA3B;AACA,uBAAU,MAAO,GAAE,eAAI,CAAC,EAAG,EAAG,CAAP,CAAN;AACjB,+BAAM,CAAC;;;;mBAAG,EAAG,CAAP;AACN,kBAAK,CAAE,GAAE,CAAF;AACP,kBAAK,cAAG,CAAC,IAAK,CAAN;;AAIR,uBAAU,MAAO,GAAE,eAAI,CAAC,EAAG,EAAG,CAAE,GAAE,CAAX,CAAN;AACjB,+BAAM,CAAC;;;;mBAAG,EAAG,CAAE,GAAE,CAAX;AACN,kBAAK,CAAY,GAAL,CAAF,CAAE,GAAE,CAAF,CAAL,GAAY,CAAF;AACjB,kBAAK,CAAE,GAAK,CAAF,CAAE,GAAE,CAAF,CAAL;AACP,kBAAK,cAAG,CAAC,IAAK,CAAN;AACR,kBAAO,CAAF,CAAE,GAAE,CAAF,CAAI,GAAE,CAAF;AACX,kBAAI,CAAE,KAAE,CAAR,EAAgB,IAAY,CAAD,OAA3B;AACA,uBAAU,MAAO,GAAE,eAAI,CAAC,EAAG,EAAG,CAAP,CAAN;AACjB,+BAAM,CAAC;;;;mBAAG,EAAG,CAAP;AACN,kBAAK,CAAE,GAAE,CAAF;AACP,kBAAK,cAAG,CAAC,IAAK,CAAN;;;AAMZ,mBAAU,MAAuC,GAA9B,eAAI,CAAC,EAAG,EAAG,CAAE,GAAE,CAAX,CAAN,GAAsB,GAAF,GAAQ,GAAF,GAAQ,GAAF;AACjD,2BAAM,CAAC;;;;eAAG,EAAG,CAAE,GAAE,CAAX;AAGN,cAAK,CAAE,GAAK,CAAF,CAAE,GAAE,CAAF,CAAL;AACP,cAAK,CAAE,GAAK,CAAF,CAAE,GAAE,CAAF,CAAL;AAEP,cAAY,CAAD;AAIX,iBAA8B,CAAd,CAAL,CAAF,CAAE,GAAE,CAAF,CAAK,IAAO,CAAF,CAAE,IAAG,CAAH,CAAP,CAAc,IAAY,CAAL,CAAF,CAAE,GAAE,CAAF,CAAK,IAAO,CAAF,CAAE,IAAG,CAAH,CAAP,CAAZ,CAAuC,IAAL,CAAF,CAAE,GAAE,CAAF,CAAP,IAAmB,CAAF,CAAE,KAAG,EAAH,CAA5E;AAEE,gBAAM,CAAF,CAAE,GAAE,CAAF,CAAK,IAAc,CAAN,CAAF,CAAE,IAAG,CAAH,CAAM,IAAM,CAAF,CAAE,GAAE,CAAF,CAAN,CAAzB;AAEE,uBAAU,MAAO,GAAE,eAAI,CAAC,EAAG,EAAG,CAAE,GAAE,CAAX,CAAN;AACjB,+BAAM,CAAC;;;;mBAAG,EAAG,CAAE,GAAE,CAAX;AACN,kBAAK,CAAE,GAAK,CAAF,CAAE,GAAE,CAAF,CAAL;AACP,kBAAK,CAAE,GAAK,CAAF,CAAE,GAAE,CAAF,CAAL;AACP,kBAAK,cAAG,CAAC,IAAK,CAAN;AACR,kBAAI,CAAE,KAAE,CAAR,EAAgB,IAAY,CAAD,OAA3B;AACA,uBAAU,MAAO,GAAE,eAAI,CAAC,EAAG,EAAG,CAAP,CAAN;AAEjB,kBAAI,sBAAS,CAAC,eAAI,CAAC,EAAG,EAAG,CAAP,CAAL,CAAgB,KAAE,QAA/B,EACE,SAAU,MAAiC,GAAxB,IAAF,GAAS,GAAF,GAAQ,IAAF,GAAS,GAAF,GAAQ,GAD/C;AAEA,+BAAM,CAAC;;;;mBAAG,EAAG,CAAP;AACN,kBAAK,CAAE,GAAE,CAAF;AACP,kBAAK,cAAG,CAAC,IAAK,CAAN;;AAIR,uBAAU,MAAO,GAAE,eAAI,CAAC,EAAG,EAAG,CAAE,GAAE,CAAX,CAAN;AACjB,+BAAM,CAAC;;;;mBAAG,EAAG,CAAE,GAAE,CAAX;AACN,kBAAK,CAAY,GAAL,CAAF,CAAE,GAAE,CAAF,CAAL,GAAY,CAAF;AACjB,kBAAK,CAAE,GAAK,CAAF,CAAE,GAAE,CAAF,CAAL;AACP,kBAAK,cAAG,CAAC,IAAK,CAAN;AACR,kBAAI,CAAE,KAAE,CAAR,EAAgB,IAAY,CAAD,OAA3B;AACA,uBAAU,MAAO,GAAE,eAAI,CAAC,EAAG,EAAG,CAAP,CAAN;AACjB,+BAAM,CAAC;;;;mBAAG,EAAG,CAAP;AACN,kBAAK,CAAE,GAAE,CAAF;AACP,kBAAK,cAAG,CAAC,IAAK,CAAN;;;AAIZ,cAAI,CAAE,GAAE,CAAR;AAEE,qBAAU,MAAO,GAAE,eAAI,CAAC,EAAG,EAAG,CAAP,CAAN;AACjB,6BAAM,CAAC;;;;iBAAG,EAAG,CAAP;WAHR;AAMA,mBAAU,MAAoB,GAAX,IAAF,GAAS,GAAF,GAAQ,GAAF;AAC9B,cAAK;SA9FP,QAiGS,EAAF,CAAE,KAAE,CAAF,CAjGT;AAmGA,YAAK,cAAG,CAAC,EAAG,EAAJ;;;AAMZ,aAAU,MAAO,GAAE,CAAF;AA/MV;AAAO;AAkNE;AAAT;AAEP;AAAQ;AAER,aAAU;AAEV,cAAY,cAAG,CAAC,KAAM,CAAP,CAAU,GAAE,CAAF;AAEzB,UAAO,sBAAS,CAAC,GAAD;AAChB,WAAM,cAAG,CAAC,GAAU,GAAJ,GAAF,GAAQ,GAAF,CAAO,sBAAS,CAAC,CAAD,CAA3B,CAAgC,GAAE,CAA3C,EAAgD,IAAK,0BAAa,CAAC,EAAE,GAAU,GAAJ,GAAF,GAAQ,GAAF,CAAM,GAAG,cAAC,4CAAD,CAAtB;AAClE,WAAM,cAAG,CAAC,IAAW,GAAJ,GAAF,GAAQ,GAAF,CAAO,sBAAS,CAAC,CAAD,CAA5B,CAAiC,GAAE,CAA5C,EAAiD,IAAK,0BAAa,CAAC,EAAE,IAAW,GAAJ,GAAF,GAAQ,GAAF,CAAM,GAAG,cAAC,4CAAD,CAAvB;AAEnE,aAAW,cAAG,CAAC,KAAM,CAAP,CAAU,GAAE,CAAF;AACxB,QAAG,OAAQ,IAAI,CAAI,MAAnB,EACE,IAAK,sCAAY,YAAY,CAAC,EAAG,MTtC+D,KSsCnE,CAD/B;AAGA,aAAU;AAhBH;AAAS;AA6TM;AAAf;AAEP;AACA;AAAI;AAAM;AAAI;AAAG;AAAG;AAAG;AAAG;AAE1B,aAAU;AACV,SAAM;AACN,WAAM,aAAO,CAAC,YAAY,KAAK;;;;QAAlB,CAAsB,GAAE,CAArC;AAEE,uBAAM,CAAC;;;;WAAK,EAAE,EAAR;AACN,YAAO,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAX;AACX,cAAS;AACT,YAAO;AACP,WAAM;AACN,WAAM;AACN,WAAM;AACN,WAAM;AACN,WAAM;AACN,uBAAY,CAAC,IAAI;;;;WAAM;;;;WAAI;;;;WAAG;;;;WAAG;;;;WAAG;;;;WAAG;;;;UAA3B;AACZ,UAAI,SAAU,KAAE,GAAhB;AAEE,yBAAgB,EAAhB;AACA,iBAAU;AACV;OAJF;;AAnBK;AAAe;AA4BD;AAAd;AAEP;AACA;AAAI;AAAM;AAAI;AAAG;AAAG;AAAG;AAAG;AAE1B,aAAU;AACV,SAAM;AACN,WAAM,aAAO,CAAC,YAAY,KAAK;;;;QAAlB,CAAsB,GAAE,CAArC;AAEE,uBAAM,CAAC;;;;WAAK,EAAE,EAAR;AACN,YAAO,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAX;AACX,cAAS;AACT,YAAO;AACP,WAAM;AACN,WAAM;AACN,WAAM;AACN,WAAM;AACN,WAAM;AACN,uBAAY,CAAC,IAAI;;;;WAAM;;;;WAAI;;;;WAAG;;;;WAAG;;;;WAAG;;;;WAAG;;;;UAA3B;AACZ,UAAI,SAAU,KAAE,GAAhB;AAEE,iBAAU;AACV;OAHF;;AAnBK;AAAc;AA2BE;AAAhB;AAEP;AAAS;AACT;AAAI;AAAM;AAAI;AAAG;AAAG;AAAG;AAAG;AAE1B,aAAU;AACV,SAAM;AACN,QAAK;AACL,WAAM,aAAO,CAAC,YAAY,KAAK;;;;QAAlB,CAAsB,GAAE,CAArC;AAEE,uBAAM,CAAC;;;;WAAK,EAAE,EAAR;AACN,YAAO,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAX;AACX,cAAS;AACT,YAAO;AACP,WAAM;AACN,WAAM;AACN,WAAM;AACN,WAAM;AACN,WAAM;AACN,uBAAY,CAAC,IAAI;;;;WAAM;;;;WAAI;;;;WAAG;;;;WAAG;;;;WAAG;;;;WAAG;;;;UAA3B;AAEZ,UAAI,SAAU,KAAE,GAAhB;AAEE,wBAAG,CAAC,GAAG;;;;aAAO;;;;YAAX;AACH;OAHF;;AArBK;AAAgB;AA6BD;AAAf;AAEP;AACA;AAAI;AAAK;AAAM;AAAI;AAAG;AAAG;AAAG;AAAG;AAE/B,aAAU;AACV,WAAQ;AACR,mBAAgB,sCAAY,UAAU,CAAC,aT/asB,IS+avB;AACtC,SAAM;AACN,WAAM,aAAO,CAAC,YAAY,WAAK;;;;QAAlB,CAAsB,GAAE,CAArC;AAEE,aAAQ,IAAK,GAAE,eAAI,CAAC,WAAK,EAAE,EAAR,CAAN;AACb,uBAAM,CAAC,KAAK,EAAE,EAAR;AACN,YAAO,eAAI,CAAC,WAAK,EAAE,cAAG,CAAC,IAAI,UAAL,CAAX;AACX,cAAS;AACT,YAAO;AACP,WAAM;AACN,WAAM;AACN,WAAM;AACN,WAAM;AACN,WAAM;AACN,uBAAY,CAAC,IAAI;;;;WAAM;;;;WAAI;;;;WAAG;;;;WAAG;;;;WAAG;;;;WAAG;;;;UAA3B;AACZ,UAAI,SAAU,KAAE,GAAhB;AAEE,eAAQ,IAAwR,GAAjR,aAAF,GAAgB,gCAAD,GAA6B,SAAD,GAAW,gCAAD,GAA6B,SAAD,GAAW,gCAAD,GAA6B,YAAD,GAAc,gCAAD,GAA6B,SAAD,GAAW,gCAAD,GAA6B,EAAD,GAAI,gCAAD,GAA6B,QAAD,GAAY,gCAAF,GAA+B,KAAD,GAAO,gCAAD;AAChS,YAAI,EAAG,KAAG,EAAV,EACE,OAAQ,IAAsE,GAA/D,QAAF,GAAW,gCAAD,GAA6B,sCAAY,UAAU,CAAC,GTlcpB,ISkcmB,CAAvB,GAA4B,gCADjF;AAEA,YAAI,EAAG,KAAG,EAAV,EACE,OAAQ,IAAgD,GAAzC,UAAF,GAAa,gCAAD,GAA6B,EAAD,GAAI,gCAD3D;AAGA,eAAQ,IAAK,GAAE,GAAF;AACb,iBAAQ,IAAK,GAAE,eAAI,CAAC,WAAK,cAAG,CAAC,IAAI,UAAL,CAAU,GAAC,CAAD,CAAU,UAAD,OAA5B,CAAnB;AACA,iBAAU;AACV;OAXF;;AAtBK;AAAe;AAsCG;AAAlB;AAEP;AACA;AAAI;AAAM;AAAI;AAAG;AAAG;AAAG;AAAG;AAC1B;AACA;AAEA,aAAU;AAEV,QAAK;AAEL,SAAM,uBAAW,QAAC;AAClB,SAAM;AACN,WAAM,aAAO,CAAC,YAAY,KAAK;;;;QAAlB,CAAsB,GAAE,CAArC;AAEE,uBAAM,CAAC;;;;WAAK,EAAE,EAAR;AACN,YAAO,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAX;AACX,cAAS;AACT,YAAO;AACP,WAAM;AACN,WAAM;AACN,WAAM;AACN,WAAM;AACN,WAAM;AACN,uBAAY,CAAC,IAAI;;;;WAAM;;;;WAAI;;;;WAAG;;;;WAAG;;;;WAAG;;;;WAAG;;;;UAA3B;AAEZ,UAAG,KAAM,KAAE,OAAX,EACE,EAAE,IAAI,CAAC,GAAD,CADR;;AAIF,aAAU,QAAc,OAAT,EAAE,SAAC,EAAM,GAAE,CAAF,kBAAxB;AAAI;AAEF,0BAAe,CAAC;;;;WAAG,EAAE,IAAQ,CAAC,EAAD,EAAM,OAApB;;AAGjB,MAAG,eAAH,EAAG;AACH,aAAU;AApCH;AAAkB;AA5JF;AAAhB;AAEP;AACA;AAAI;AAAM;AAAI;AAAG;AAAG;AAAG;AAAG;AAC1B;AAEA,aAAU;AACV,UAAO,SAAU,KAAE,EAAF;AAEjB,SAAM;AACN,WAAM,aAAO,CAAC,YAAY,KAAK;;;;QAAlB,CAAsB,GAAE,CAArC;AAEE,uBAAM,CAAC;;;;WAAK,EAAE,EAAR;AACN,YAAO,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,IAAI,IAAL,CAAX;AACX,cAAS;AACT,YAAO;AACP,WAAM;AACN,WAAM;AACN,WAAM;AACN,WAAM;AACN,WAAM;AACN,uBAAY,CAAC,IAAI;;;;WAAM;;;;WAAI;;;;WAAG;;;;WAAG;;;;WAAG;;;;WAAG;;;;UAA3B;AAEZ,UAAG,GAAmD,IAApC,CAAN,KAAM,KAAG,QAAH,CAAX,IAAmC,CAAN,KAAM,KAAG,OAAH,CAAX,IAAkC,CAAN,KAAM,KAAG,OAAH,CAAjE;AAEE,iBAAU;AACV;OAHF;AAMA,UAAI,SAAU,KAAE,GAAhB,EACE,MAAO,IADT;;AA7BK;AAAgB;AARF;AAAd;AAEP;AAEA,SAAM;AACN,aAAU,aAAO,CAAC,WAAY,KAAK;;;;QAAlB,CAAsB,GAAE,CAAF;AALhC;AAAc;AAvED;AAEpB;AACA;AAEA,oBAAe,EAAf;AACA,qBAAgB,EAAhB;AACA,sBAAiB,EAAjB;AACA,qBAAgB,EAAhB;AACA,kBAAa,EAAb;AACA,oBAAe,EAAf;AACA,mBAAc,EAAd;AAEA,SAAM;AACN,QAAG,aAAO,CAAC,QAAQ,IAAI;;;;QAAb,CAAiB,GAAE,CAA7B;AAEE,aAAQ,eAAI,CAAC,IAAI,EAAG,GAAE,CAAF,CAAW,GAAD,OAAlB;AACZ,aAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,iCAA4B,IAA7B,CAAmC,GAAE,CAAF,CAAW,IAAD,OAAtD;AACZ,aAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,iCAA4B,IAA7B,CAAmC,GAAE,CAAhD;AACZ,sBAAe,sBAAS,CAAC,IAAD,CAAxB;KALF;AAQA,QAAG,aAAO,CAAC,SAAS,IAAI;;;;QAAd,CAAkB,GAAE,CAA9B;AAEE,aAAQ,eAAI,CAAC,IAAI,EAAG,GAAE,CAAF,CAAW,GAAD,OAAlB;AACZ,aAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,iCAA4B,IAA7B,CAAmC,GAAE,CAAF,CAAW,IAAD,OAAtD;AACZ,aAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,iCAA4B,IAA7B,CAAmC,GAAE,CAAhD;AACZ,uBAAgB,IAAhB;KALF;AAQA,QAAG,aAAO,CAAC,UAAU,IAAI;;;;QAAf,CAAmB,GAAE,CAA/B;AAEE,aAAQ,eAAI,CAAC,IAAI,EAAG,GAAE,CAAF,CAAW,GAAD,OAAlB;AACZ,aAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,iCAA4B,IAA7B,CAAmC,GAAE,CAAF,CAAW,IAAD,OAAtD;AACZ,aAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,iCAA4B,IAA7B,CAAmC,GAAE,CAAhD;AACZ,wBAAiB,IAAjB;KALF;AAQA,QAAG,aAAO,CAAC,MAAM,IAAI;;;;QAAX,CAAe,GAAE,CAA3B;AAEE,aAAQ,eAAI,CAAC,IAAI,EAAG,GAAE,CAAF,CAAW,GAAD,OAAlB;AACZ,aAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,iCAA4B,IAA7B,CAAmC,GAAE,CAAF,CAAW,IAAD,OAAtD;AACZ,aAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,iCAA4B,IAA7B,CAAmC,GAAE,CAAhD;AACZ,oBAAa,IAAb;KALF;AAQA,QAAG,aAAO,CAAC,SAAS,IAAI;;;;QAAd,CAAkB,GAAE,CAA9B;AAEE,aAAQ,eAAI,CAAC,IAAI,EAAG,GAAE,CAAF,CAAW,GAAD,OAAlB;AACZ,aAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,iCAA4B,IAA7B,CAAmC,GAAE,CAAF,CAAW,IAAD,OAAtD;AACZ,aAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,iCAA4B,IAA7B,CAAmC,GAAE,CAAhD;AACZ,uBAAgB,sCAAY,YAAY,CAAC,KTvRqB,KAAkC,KSuRxD,CAAxC;KALF;AAQA,QAAG,aAAO,CAAC,QAAQ,IAAI;;;;QAAb,CAAiB,GAAE,CAA7B;AAEE,aAAQ,eAAI,CAAC,IAAI,EAAG,GAAE,CAAF,CAAW,GAAD,OAAlB;AACZ,aAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,iCAA4B,IAA7B,CAAmC,GAAE,CAAF,CAAW,IAAD,OAAtD;AACZ,aAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,iCAA4B,IAA7B,CAAmC,GAAE,CAAhD;AACZ,sBAAe,sCAAY,YAAY,CAAC,KT/RsB,KAAkC,KS+RzD,CAAvC;KALF;AAQA,QAAG,aAAO,CAAC,UAAU,IAAI;;;;QAAf,CAAmB,GAAE,CAA/B;AAEE,aAAQ,eAAI,CAAC,IAAI,EAAG,GAAE,CAAF,CAAW,GAAD,OAAlB;AACZ,aAAQ,eAAI,CAAC,KAAK,cAAG,CAAC,iCAA4B,IAA7B,CAAmC,GAAE,CAAF,CAAW,IAAD,OAAtD;AACZ,aAAQ,eAAI,CAAC,KAAK,EAAE,cAAG,CAAC,iCAA4B,IAA7B,CAAmC,GAAE,CAAhD;AACZ,qBAAc,IAAd;KALF;AA9DoB;AAphBtB,mBAwEc;AAmBE;AAAP;AAEP,cAAO,cAAG,CAAC,GAAI,sBAAS,CAAC,CAAD,CAAd,CAAV;AACA,eAAU;AAHH;AAAO;AAMK;AAAZ;AAEP;AAAQ;AAER,eAAU;AAGV,aAAO,sCAAY,OAAO,CAAC,IAAI,EAAE;;;;UAAP,CAAc,GAAC,CAAzC;AAEE,cAAO;AACP,YAAI,sCAAY,OAAO,CAAC,IAAI,EAAE;;;;YAAP,CAAe,GAAE,GAAxC;AAEE,mBAAU,MAAO,GAAE,eAAI,CAAC,EAAE,EAAE,GAAI,GAAE,CAAX,CAAN;AACjB,2BAAM,CAAC;;;;eAAE,EAAE,MAAL;SAGN;;AAEJ,eAAU,MAAO,GAAE,CAAF;AAlBV;AAAY;AA0PH;AAAT;AAEF;AAAI;AAET,sBAAG,CAAC,EAAE;;;;WAAI;;;;UAAP;AACH,eAAU;AALH;AAAS;AAQC;AAAV;AAEP;AAAE;AAEF,UAAK,cAAG,CAAC,KAAK,CAAN;AACR,UAAG,CAAE,GAAE,CAAP;AAEE,iBAAU,eAAI,CAAC,EAAE,EAAE,CAAE,GAAE,CAAT;AACd,yBAAM,CAAC;;;;aAAE,EAAE,CAAL;AACN,YAAK,cAAG,CAAC,IAAI,CAAL;AACR,YAAG,CAAE,GAAE,CAAP,EACE,iBAAM,CAAC;;;;aAAE,EAAE,CAAL,CADR;AAEA,iBAAU,MAAO,GAAE,CAAF;OAGjB,eAAU;AAfL;AAAU;AAkBJ;AAAN;AAEP;AAAE;AAEF,UAAU,CAAD,OAAI,GAAE,CAAf;AAEE,iBAAU;AACV;OAHF;AAiBA,UAAG,CAAC,QAAC,CAAD,CAAI,IAAG,GAAX;AACE,YAAe,CAAN,CAAD,YAAG,CAAD,IAAF,CAAO,GAAK,EAAL,CAAW,GAAE,EAAF;AAE1B,gBAAS,CAAD,YAAG,CAAD,IAAF,CAAO,GAAK,EAAL;AAEjB,UAAG,CAAC,QAAC,CAAD,CAAI,IAAG,GAAX;AACE,YAAe,CAAN,CAAD,YAAG,CAAD,IAAF,CAAO,GAAK,EAAL,CAAW,GAAE,EAAF;AAE1B,gBAAS,CAAD,YAAG,CAAD,IAAF,CAAO,GAAK,EAAL;AAGjB,eAAY,CAAF,CAAE,IAAI,CAAJ,CAAM,GAAE,CAAF;AAhCX;AAAM;AAmCS;AAAf;AAEP;AAAE;AAAE;AAAE;AAAE;AACR;AAAG;AACH;AACA;AAEe;AAAN;AAEP;AAAE;AAEF,YAAG,KAAH;AACE,gBAAO;AAEP,oBAAO;AAET,iBAAU;AAEV,iBAAS,UAAa,OAAC,IAAD,yBAAtB;AAAI;AAEA,cAAG,CAA0D,CAAR,CAA5C,IAAI,QAAC,KAAD,CAAwC,IAAG,GAAH,CAAQ,IAAiD,CAA5C,IAAI,QAAC,KAAD,CAAwC,IAAG,GAAH,CAAjD,CAA7D;AAEE,qBAAU;AACV;WAHF;AAMA,cAAI,KACF,IADY,CAA0D,CAAR,CAA5C,IAAI,QAAC,KAAD,CAAwC,IAAG,GAAH,CAAQ,IAAiD,CAA5C,IAAI,QAAC,KAAD,CAAwC,IAAE,GAAF,CAAjD,CAA9D,IACH,KAAM,IAAI,CAA0D,CAAR,CAA5C,IAAI,QAAC,KAAD,CAAwC,IAAG,GAAH,CAAQ,IAAiD,CAA5C,IAAI,QAAC,KAAD,CAAwC,IAAE,GAAF,CAAjD,CAD3E;AAGE,qBAAU;AACV;WAJF;;AAnBG;AAAM;AA8Bf,YAAO;AACP;AACE,YAAK,cAAG,CAAC,KAAK,CAAN;AACR,YAAK,cAAG,CAAC,MAAM,CAAP;AACR,YAAM,CAAF,CAAE,KAAI,CAAF,CAAE,GAAE,CAAF,CAAJ,CAAS,IAAO,CAAF,CAAE,KAAG,CAAH,CAAtB,EACE,IAAK,CADP;AAGA,YAAI,CAAE,GAAE,CAAR;AAEE,gBAAO,GAAI,GAAE,eAAI,CAAC,EAAE,EAAE,CAAE,GAAE,CAAT,CAAN;AACX,2BAAM,CAAC;;;;eAAE,EAAE,CAAE,GAAE,CAAT;AACN,kBAAS,cAAG,CAAC,MAAM,CAAP,CAAU,KAAE,CAAF;AAEtB,cAAK,cAAG,CAAC,IAAI,CAAL;AAER,cAAG,CAAE,GAAE,CAAP;AAEE,iBAAM,MAAM,CAAC,EAAG,KAAJ;AACZ,gBAAK;WAHP;AAMA,cAAI,CAAE,GAAE,CAAR;AAEE,gBAAG,KAAH;AAEE,mBAAM,eAAI,CAAC,EAAE,EAAE,CAAE,GAAE,CAAT;AACV;AACE,oBAAK,YAAM,CAAC,EAAD;AACX,oBAAK;AAFP;AAIE,oBAAK;AAJP;;AASA,mBAAM,eAAI,CAAC,EAAE,EAAE,CAAE,GAAE,CAAT;AACV,8BAAG,CAAC,GAAI;;;;mBAAG;;;;kBAAR;;AAGL,gBAAc,CAAH,EAAD,OAAI,GAAE,CAAF,CAA2B,IAAN,CAAJ,EAAD,OAAK,IAAG,CAAH,CAAhB,IAA6B,CAAF,CAAE,KAAE,CAAF,CAAhD;AAWI,oBAAO,GAAI,GAAK,oBAAC,CAAD,CAAL;AAEb,+BAAM,CAAC;;;;mBAAE,EAAE,CAAL;aAbR;;AAkBA,kBAAO,GAAI,GAAE,IAAF;AACX,6BAAM,CAAC;;;;iBAAE,EAAE,CAAL;;SAIR,YAAO,GAAI,GAAE,CAAF;OA7Df,QA8DQ,EAAF,CAAE,IAAG,CAAH,CA9DR;AAgEA,eAAU;AAtGH;AAAe;AAyGN;AAAT;AAEP;AAEA,eAAU;AAIV,eAAS,QAAW,OAAC,CAAD,yBAApB;AAAI;AAGF,YAAG,CAAmB,CAAP,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,IAAF,CAAO,IAAS,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,IAAF,CAAT,CAAtB;AACE,mBAAU,MAAO,GAAE,CAAC,QAAC,KAAD,CAAH;AAEjB,kBAAS,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,IAAF,CAAO,IAAI,KAApB,EACE,SAAU,MAAO,GAAE,MADrB;;AAdG;AAAS;AAqSA;AAAT;AAEP,eAAU;AACV,UAAG,CAAE,GAAE,KAAP,EAAmB,aAAnB;AAEY,iBAAC,CAAD;AACV,UAAK,EADK,IACL,IAAL,MAAK,MADK,IACL,IAAE,MAAF,EAAL,IACK,EAFK,IAEL,IAAL,MAAK,MAFK,IAEL,IAAE,MAAF,EADL,IAEM,EAHI,IAGJ,IAAN,OAAM,MAHI,IAGJ,IAAE,OAAF,EAFN,IAGM,EAJI,IAIJ,IAAN,OAAM,MAJI,IAIJ,IAAE,OAAF,EAHN,IAIM,EALI,IAKJ,IAAN,OAAM,MALI,IAKJ,IAAE,OAAF,EAJN,IAKM,EANI,IAMJ,IAAN,OAAM,MANI,IAMJ,IAAE,OAAF,EALN,IAMK,EAPK,IAOL,IAAL,MAAK,MAPK,IAOL,IAAE,MAAF,EANL,IAOM,EARI,IAQJ,IAAN,OAAM,MARI,IAQJ,IAAE,OAAF,EAPN,EAOgB,SAAU,IAP1B;AANK;AAAS;AAiBD;AAAR;AAEP;AACA;AAEA,eAAU;AAKV,eAAS,QAAW,OAAC,CAAD,yBAApB;AAAI;AAGF,YAAK,CAAC,QAAC,KAAD;AACN,YAAG,sCAAY,UAAU,CAAC,EAAG,sCAAY,cAAc,CAAC,GAAD,CAA9B,CAAqC,IAAG,eAAS,CAAC,CAAD,CAA1E;AAEE,mBAAU;AACV;SAHF;;AAdK;AAAQ;AA/uBH;AAxEd,GAwEc,gCAxEd;ACCA,4CAgCS,wHAhCT;;;AAsD+B;;;AAE3B;AAQA;AACA;AAX2B;AAkjEuB;AAAf;AAErC,eAAU;AAF2B;AAAe;AAtnDC;AAMrD;AAAI;AACJ;AACA;AACA;AAAI;AAAI;AAER;AACA;AACA;AAGA,UAAK;AACL,cAAS,CAAC,EAAG,GAAE,MAAF;AAMb,WAAM,KAAK;AACX,WAAM,KAAK;AACX,WAAM,OAAO,UAAU,CAAC,CAAD;AACvB,WAAM,OAAO,WAAW,CAAC,CAAD;AAgCnB;AACH,UADG,IACH;AAAY,aAAM;AAClB,gBAFG,IAEH;AAAW,aAAM;AACjB,gBAHG,IAGH,6EAAa,KAAM,qCAAnB;AAGG;AACH,UADG,KACH;AAAW,aAAM;AACjB,gBAFG,KAEH;AAAY,aAAM;AAClB,gBAHG,KAGH,6EAAa,KAAM,uDAAnB;AAGF,gBAAK,wCAAiB,CAAC,KAAK,MAAO,KAAK,KAAM,KAAK,OAAQ,KAAK,OAA1C,CAAtB;AAEA,aAAO,WAAS,CAAC,8CAAG,EAAG,MAAO,MAAO,GAAI,EAAzB;AAxEqC;AA4UP;AAU9C;AAV8C;AA2wCG;AAAZ;AAMrC,eAAU,gBAAM,OAAM;AANe;AAAY;AAv4CC;AAAb;AAarC;AA8BA,gBAAK,wCAAiB,CAAC,KAAK,MAAO,KAAK,KAAM,KAAK,OAAQ,KAAK,OAA1C,CAAtB;AACA,gBAAK,gBAAM,WAAS,CAAC,8CAAG,MAAO,cAAe,K9E/E2H,qCAA8D,oD8E+EnN,CAApB;AA4BA,qBAAU,+BAAK,CAAC,CAAC,MAAO,CAAC,KAAM,CAAC,OAAQ,CAAC,OAA1B,CAAf;AAxEqC;AAAa;AAglDD;AAAZ;AAGrC;AACA;AAIA;AAAG;AACH;AAAG;AAAI;AAAG;AAGV,qBAAU,KAAV;AAEA,UAAG,MAAO,KAAG,CAAb;AAEE,aAAM,iBAAQ,CAAC,MAAD;AACd,UAAE,EAAF,GAAQ,MAAM,KAAM,GAA+B,CAAf,CAAb,MAAM,MAAO,GAAE,MAAM,KAAR,CAAe,GAAE,CAAF,CAA/B;AACpB,UAAE,EAAF,GAAQ,MAAM,IAAK,GAA+B,CAAd,CAAd,MAAM,OAAQ,GAAE,MAAM,IAAR,CAAc,GAAE,CAAF,CAA/B;AAOnB,wBAAM,UAAU,CAAC,QAAG,CAAC,EAAD,EAAM,QAAG,CAAC,EAAD,EAAM,CAAC,QAAG,CAAC,EAAD,EAAM,QAAG,CAAC,EAAD,EAAM,EAAE,GAAI,EAAE,EAA9C;AAGhB,YAAK,MAAM,MAAO,GAAE,MAAM,KAAR;AAClB,YAAK,MAAM,OAAQ,GAAE,MAAM,IAAR;AACnB,YAAK,QAAG,CAAC,EAAD;AACR,YAAK,QAAG,CAAC,EAAD;AAER,aAAO,QAAG,CAAC,CAAE,GAAE,CAAL,CAAQ,GAAE,QAAG,CAAC,CAAE,GAAE,CAAL,CAAL;AAClB,aAAO,QAAG,CAAC,CAAE,GAAE,CAAL,CAAQ,GAAE,QAAG,CAAC,CAAE,GAAE,CAAL,CAAL;AAElB,uBAAU,+BAAK,CAAC,CAAC,EAAG,GAAE,CAAF,CAAK,CAAC,EAAG,GAAE,CAAF,CAAK,EAAG,GAAE,CAAF,CAAK,EAAG,GAAE,CAAhC,CAAf;OAtBF;AAdqC;AAAY;AAn+CF;AAAV;AAWrC,eAAU;AAX2B;AAAU;AAoyCD;AAAT;AAMrC,qBAAU,kDAAV;AANqC;AAAS;AA8EF;;AALE;;AAhBE;AAYhD,sBAAM,aAAW,CAAC,MAAM,GAAI,MAAM,EAAjB;AAZ+B;AAhBA;AAYhD,sBAAM,aAAW,CAAC,MAAM,GAAI,MAAM,EAAjB;AAZ+B;AAfD;AAW/C,sBAAM;AAXyC;AA4EK;AAMpD,sBAAM,aAAa,CAAC,EAAG,EAAG,EAAG,EAAG,EAAG,CAAhB;AANiC;AAnBL;AAG/C,uBAAY,CAAC,IAAD;AAHmC;AA4FK;AAGpD;AAQA,gBAAK,qDAAmB,CAAC,GAAI,EAAL,CAAxB;AACA,sBAAM,UAAU,CAAC,CAAC,KAAM,CAAC,KAAM,CAAC,KAAM,CAAC,KAAM,CAAC,KAAM,CAAC,IAArC;AAZoC;AAnCC;AAGrD;AAQA,gBAAK,sDAAoB,CAAC,iBAAQ,CAAC,MAAD,CAAT,CAAzB;AACA,sBAAM,UAAU,CAAC,CAAC,KAAM,CAAC,KAAM,CAAC,KAAM,CAAC,KAAM,CAAC,KAAM,CAAC,IAArC;AAZqC;AAtKG;AAGxD;AAQA,gBAAK,yDAAuB,CAAC,GAAI,EAAL,CAA5B;AACA,sBAAM,UAAU,CAAC,CAAC,KAAM,CAAC,KAAM,CAAC,KAAM,CAAC,KAAM,CAAC,KAAM,CAAC,IAArC;AAZwC;AAkQJ;;AAgBC;;AAPO;;AAJf;;AAnJO;AAOpD,UAAG,MAAO,KAAG,CAAb,EACE,gBAAM,aAAa,CAAC,EAAG,EAAG,EAAG,EAAG,EAAG,CAAhB,CADrB;AAPoD;AAhmDJ;AAGhD,UAAY,gBAAD,QAAX;AAEE,wBAAM;AAIN,wBAAM;OANR;AAHgD;AA0hCF;AAG9C,sBAAM;AAHwC;AA/hCK;AAEnD,uBAAa;AAFsC;AAyhCF;AAEjD,UAAG,cAAH,EACE,iBAAa,KADf;AAFiD;AAiaI;AAcnD,0BAAgB,gBAAM,KAAI;AAC1B,0BAAgB,gBAAM,KAAI;AAC1B,sBAAM,KAAI,OAAV,GAAoB;AACpB,sBAAM,KAAI,OAAV,GAAoB;AAjB+B;AAkCD;AAOlD,sBAAM,KAAI,OAAV,GAAoB;AACpB,sBAAM,KAAI,OAAV,GAAoB;AAR8B;AA+JF;AAUlD,UAAY,MAAD,QAAX,EACE,MAAM,QAAN,GAAiB,CADnB;AAQA,sBAAM;AAKN,sBAAM;AAvB4C;AA4CH;AAG/C,sBAAM;AAYN,sBAAM;AAfyC;AAqQA;;AAJD;;AAVG;AAEjD,sBAAM,MAAK,QAAC,CAAQ,KAAR;AAFqC;AApBC;AAMlD,sBAAM,MAAK,SAAC,CAAS,MAAT;AANsC;AAUD;AAMjD,sBAAM,MAAK,QAAC,CAAQ,KAAR;AANqC;AAfJ;AAE7C,sBAAM,MAAK,OAAO,CAAC,KAAD;AAF2B;AA8BM;AAEnD,sBAAM,MAAK,SAAC,CAAS,kBAAT;AAFuC;AA5JN;AAiE7C,sBAAM,OAAM,OAAZ,GAAsB,KAAK;AAE3B,sBAAM,OAAM,UAAZ,GAAyB;AACzB,sBAAM,OAAM;AAEF,iBAAL,KAAK;AAER,UAFQ,IAER;AAAU,wBAAM,OAAM,OAAZ,GAAsB;AAChC,gBAHQ,IAGR;AAEE,wBAAM,OAAM;AAEZ,YAAsB,CAAlB,KAAK,aAAa,KAAG,EAAH,CAAW,IAAyB,CAApB,KAAK,eAAe,KAAG,EAAH,CAA1D;AAEE,0BAAM,OAAM,iBAAiB,CAAC,KAAK,QAAQ,CAAd;AAC7B,0BAAM,OAAM,iBAAiB,CAAC,KAAK,UAAU,GAAhB;AAC7B,0BAAM,OAAM,iBAAiB,CAAC,KAAK,cAAc,GAApB;AAC7B,0BAAM,OAAM,iBAAiB,CAAC,KAAK,gBAAgB,CAAtB;;AAI7B,0BAAM,OAAM,iBAAiB,CAAC,KAAK,QAAQ,CAAd;AAC7B,0BAAM,OAAM,iBAAiB,CAAC,KAAK,UAAU,CAAhB;;AAGrB,oBAAL,KAAK;AACR,YADQ,KACR;AAAe,0BAAM,OAAM,UAAZ,GAAyB;AACxC,kBAFQ,KAER,mFAAa,gBAAM,OAAM,UAAZ,GAAyB,kDAAtC;OAMJ,UA5BQ,IA4BR,wEAAS,gBAAM,OAAM,OAAZ,GAAsB,0CAA/B;AAlG2C;AAiHI;AAM5C;AACH,UADG,IACH;AAAS,wBAAM,OAAM,OAAZ,GAAsB;AAC/B,iBAFG,IAEH,4EAAU,CAFP,IAEO,2EAAV,EAAuB,gBAAM,OAAM,OAAZ,GAAsB,0CAA7C;AAR+C;AAVC;AAMlD,sBAAM,OAAM,OAAZ,GAAsB;AAN4B;AAoFH;AAwB/C,sBAAM,KAAI,SAAC,CAAS,OAAO,OAAhB;AACX,sBAAM,KAAI,OAAV,GAAoB,UAAK,CAAC,OAAO,OAAR;AACb,iBAAP,OAAO;AACV,UADU,IACV;AAAU,wBAAM,KAAI,OAAV,GAAoB;AAC9B,gBAFU,IAEV;AAAS,wBAAM,KAAI,OAAV,GAAoB;AAC7B,gBAHU,IAGV;AAAS,wBAAM,KAAI,OAAV,GAAoB;AAC7B,gBAJU,IAIV;AAAQ,wBAAM,KAAI,OAAV,GAAoB;AAC5B,gBALU,IAKV;AAAY,wBAAM,KAAI,OAAV,GAAoB;AAChC,gBANU,IAMV,gFAAe,gBAAM,KAAI,OAAV,GAAoB,6CAAnC;AAhC6C;AA+CI;AAgE9C;AACH,UADG,IACH;AAAS,wBAAM,KAAI,OAAV,GAAoB;AAC7B,gBAFG,IAEH;AAAU,wBAAM,KAAI,OAAV,GAAoB;AAC9B,gBAHG,IAGH;AAAS,wBAAM,KAAI,OAAV,GAAoB;AAC7B,gBAJG,IAIH;AAAQ,wBAAM,KAAI,OAAV,GAAoB;AAC5B,gBALG,IAKH;AAAY,wBAAM,KAAI,OAAV,GAAoB;AAChC,gBANG,IAMH,gFAAe,gBAAM,KAAI,OAAV,GAAoB,6CAAnC;AAtEiD;AAVC;AAMpD,sBAAM,KAAI,SAAC,CAAS,MAAT;AANyC;AAqFA;AAMpD,sBAAM,KAAI,OAAV,GAAoB,UAAK,CAAC,MAAD;AAN2B;AA3oDN;AAU9C,sBAAM,SAAO,CAAC,UAAU,GAAI,UAAU,EAAzB;AACb,sBAAM,SAAO,CAAC,QAAQ,GAAI,QAAQ,EAArB;AAXiC;AAmEG;AAIjD;AAKA;AACA;AACA;AAOU,SAAD,sBAAC,yCAAW,WAAC,QAAD,CAAZ;AACT,eAAS,QAAsB,OAAX,WAAC,QAAD,CAAW,GAAE,CAAF,kBAA/B;AAAI;AAGF,WAAG,CAAC,CAAD,UAAO,yCAAkB,CAAC,QAAQ,CAAC,CAAD,CAAG,GAAI,QAAQ,CAAC,CAAD,CAAG,EAA3B,CAAzB;;AAOL,UAAK,gBAAM,OAAM;AACjB,WAAM,gBAAM,OAAM;AAClB,sBAAM,OAAM,OAAZ,GAAsB;AACtB,sBAAM,UAAQ,CAAC,GAAD;AACd,sBAAM,OAAM,OAAZ,GAAsB;AACtB,sBAAM,OAAM,OAAZ,GAAsB;AAlC2B;AAyqBA;AAIjD;AAKA;AACA;AAOU,SAAD,sBAAC,yCAAW,WAAC,QAAD,CAAZ;AACT,eAAS,QAAsB,OAAX,WAAC,QAAD,CAAW,GAAE,CAAF,kBAA/B;AAAI;AAGF,WAAG,CAAC,CAAD,UAAO,yCAAkB,CAAC,QAAQ,CAAC,CAAD,CAAG,GAAI,QAAQ,CAAC,CAAD,CAAG,EAA3B,CAAzB;;AAOL,WAAM,gBAAM,KAAI;AAChB,sBAAM,KAAI,OAAV,GAAoB;AACpB,sBAAM,UAAQ,CAAC,GAAD;AACd,sBAAM,KAAI,OAAV,GAAoB;AA/B6B;AAnoBC;AAElD;AAGA;AAKA;AACA;AAQU,SAAD,sBAAC,yCAAW,WAAC,SAAD,CAAZ;AACT,eAAS,QAAuB,OAAZ,WAAC,SAAD,CAAY,GAAE,CAAF,kBAAhC;AAAI;AAGF,WAAG,CAAC,CAAD,UAAO,yCAAkB,CAAC,SAAS,CAAC,CAAD,CAAG,GAAI,SAAS,CAAC,CAAD,CAAG,EAA7B,CAAzB;;AAOL,UAAK,gBAAM,OAAM;AACjB,WAAM,gBAAM,OAAM;AAClB,sBAAM,OAAM,OAAZ,GAAsB;AACtB,sBAAM,WAAS,CAAC,GAAD;AACf,sBAAM,OAAM,OAAZ,GAAsB;AACtB,sBAAM,OAAM,OAAZ,GAAsB;AAnC4B;AAsqBA;AAIlD;AAKA;AACA;AAOU,SAAD,sBAAC,yCAAW,WAAC,SAAD,CAAZ;AACT,eAAS,QAAuB,OAAZ,WAAC,SAAD,CAAY,GAAE,CAAF,kBAAhC;AAAI;AAGF,WAAG,CAAC,CAAD,UAAO,yCAAkB,CAAC,SAAS,CAAC,CAAD,CAAG,GAAI,SAAS,CAAC,CAAD,CAAG,EAA7B,CAAzB;;AAOL,WAAM,gBAAM,KAAI;AAChB,sBAAM,KAAI,OAAV,GAAoB;AACpB,sBAAM,WAAS,CAAC,GAAD;AACf,sBAAM,KAAI,OAAV,GAAoB;AA/B8B;AA1JL;AAM7C;AAmBA,WAAM,gBAAM,KAAI;AAChB,sBAAM,KAAI,OAAV,GAAoB;AAKpB,sBAAM,WAAS,CAAC,OAAO,GAAI,OAAO,GAAI,OAAO,GAAI,iBAAQ,CAAC,WAAD,EAAe,iBAAQ,CAAC,WAAD,CAAjE;AAEf,sBAAM,KAAI,OAAV,GAAoB;AAjCyB;AAnyBA;AAM7C;AACA;AAkBA,UAAK,gBAAM,OAAM;AACjB,WAAM,gBAAM,OAAM;AAClB,sBAAM,OAAM,OAAZ,GAAsB;AAKtB,sBAAM,WAAS,CAAC,OAAO,GAAI,OAAO,GAAI,OAAO,GAAI,iBAAQ,CAAC,WAAD,EAAe,iBAAQ,CAAC,WAAD,CAAjE;AAEf,sBAAM,OAAM,OAAZ,GAAsB;AACtB,sBAAM,OAAM,OAAZ,GAAsB;AAnCuB;AAg+BC;AAO9C;AAKA;AACA;AACA;AAGA,oBAAS,4CAAU,CAAC,MAAO,eAAR,CAAnB;AAOA,gBAAK,+BAAK,CAAC,KAAK,MAAO,KAAK,KAAM,KAAK,OAAQ,KAAK,OAA1C,CAAV;AAMA,UAAK;AACL,WAAM;AACN,UAAI,KAAK,MAAM,KAAE,qEAAjB;AAEE,YAAgB,CAAZ,KAAK,OAAO,KAAG,EAAH,CAAW,IAAmB,CAAd,KAAK,SAAS,KAAG,EAAH,CAA9C;AAEE,cAAsB,CAAlB,KAAK,aAAa,KAAG,EAAH,CAAW,IAAyB,CAApB,KAAK,eAAe,KAAG,EAAH,CAA1D;AAEY,uBAAL,KAAK;AACR,gBADQ,IACR;AAGE,4DAAY,CAAC,iBAAQ,KAAK,QAAQ,KAAK,UAAe,wCAAL,+BAAK,CAAC,CAAC,MAAO,CAAC,KAAM,CAAC,KAAM,GAAqB,CAAV,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAF,CAArB,CAA0B,CAAC,OAAlD,GAA4D,EAAG,GAAI,IAA7G;AACZ,4DAAY,CAAC,iBAAQ,KAAK,cAAc,KAAK,gBAAqB,wCAAL,+BAAK,CAAC,CAAC,KAAM,GAAqB,CAAV,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAF,CAArB,CAA0B,CAAC,KAAM,CAAC,OAAQ,CAAC,OAAnD,GAA6D,EAAG,GAAI,IAA1H;aAOd,UAZQ,IAYR;AAGE,4DAAY,CAAC,iBAAQ,KAAK,QAAQ,KAAK,UAAe,wCAAL,+BAAK,CAAC,CAAC,MAAO,CAAC,KAAM,CAAC,OAAQ,CAAC,IAAK,GAAqB,CAAT,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,CAAF,CAApD,GAA0D,EAAG,GAAI,KAA3G;AACZ,4DAAY,CAAC,iBAAQ,KAAK,cAAc,KAAK,gBAAqB,wCAAL,+BAAK,CAAC,CAAC,MAAO,CAAC,IAAK,GAAqB,CAAT,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,CAAF,CAArB,CAA0B,CAAC,OAAQ,CAAC,OAAnD,GAA6D,EAAG,GAAI,KAA1H;aAJd;WAcF,MAAA,8CAAY,CAAC,iBAAQ,KAAK,QAAQ,KAAK,UAAU,2CAAG,EAAG,GAAI,KAAK,aAAa,KAAE,8EAAnE;SA9BhB;AAiCA,YAAK,gBAAM,OAAM;AACjB,aAAM,gBAAM,OAAM;AAClB,wBAAM,OAAM,OAAZ,GAAsB;OArCxB;AAwCA,WAAM,gBAAM,KAAI;AAChB,sBAAM,KAAI,OAAV,GAAoB;AACpB,UAAgB,CAAZ,KAAK,OAAO,KAAG,EAAH,CAAW,IAAgB,CAAX,KAAK,MAAM,KAAE,kEAAF,CAA3C;AAGE,wBAAM,YAAU,CAAC,wCAAiB,CAAC,CAAC,MAAO,CAAC,KAAM,CAAC,OAAQ,CAAC,OAA1B,CAAlB;OAHlB;AASA,sBAAM,KAAI,OAAV,GAAoB;AAEpB,UAAG,KAAK,MAAM,KAAE,qEAAhB;AAEE,wBAAM,OAAM,OAAZ,GAAsB;AACtB,wBAAM,OAAM,OAAZ,GAAsB;OAHxB;AArF8C;AAlqBA;AAG9C;AAMA,oBAAS,4CAAU,CAAC,MAAO,eAAR,CAAnB;AAEA,gBAAK,KAAL;AACA,UAAG,2DAAM,IAAG,MAAZ,EACE,aAAQ,CAAC,QAAe,yCAAN,gCAAM,CAAC,CAAC,MAAO,CAAC,IAAV,GAAuB,yCAAN,gCAAM,CAAC,CAAC,OAAQ,CAAC,IAAX,GA7gC6G,+EAAyE,8EA6gC7N,CADV;AAEA,UAAG,4DAAO,IAAG,MAAb,EACE,aAAQ,CAAC,QAAe,yCAAN,gCAAM,CAAC,CAAC,MAAO,CAAC,IAAV,GAAuB,yCAAN,gCAAM,CAAC,CAAC,MAAO,CAAC,OAAV,GA/gC6G,+EAAyE,8EA+gC7N,CADV;AAEA,UAAG,8DAAS,IAAG,MAAf,EACE,aAAQ,CAAC,QAAe,yCAAN,gCAAM,CAAC,CAAC,MAAO,CAAC,OAAV,GAA0B,yCAAN,gCAAM,CAAC,CAAC,OAAQ,CAAC,OAAX,GAjhC0G,+EAAyE,8EAihC7N,CADV;AAEA,UAAG,6DAAQ,IAAG,MAAd,EACE,aAAQ,CAAC,QAAe,yCAAN,gCAAM,CAAC,CAAC,OAAQ,CAAC,IAAX,GAAwB,yCAAN,gCAAM,CAAC,CAAC,OAAQ,CAAC,OAAX,GAnhC4G,+EAAyE,8EAmhC7N,CADV;AAlB8C;AA+vBK;AASnD;AAAG;AAKH;AAGA,oBAAS,4CAAU,CAAC,MAAO,eAAR,CAAnB;AAqBA,gBAAK,+BAAK,CAAC,KAAK,MAAO,KAAK,KAAM,KAAK,OAAQ,KAAK,OAA1C,CAAV;AAMA,iBAAM,CAAN;AACA,QAAE,OAAF,GAAa,EAAE,OAAQ,GAAE,CAAF;AACvB,QAAE,MAAF,GAAY,EAAE,MAAO,GAAE,CAAF;AAErB,UAAI,KAAK,MAAM,KAAE,qEAAjB;AAEE,YAAgB,CAAZ,KAAK,OAAO,KAAG,EAAH,CAAW,IAAmB,CAAd,KAAK,SAAS,KAAG,EAAH,CAA9C;AAEE,cAAsB,CAAlB,KAAK,aAAa,KAAG,EAAH,CAAW,IAAyB,CAApB,KAAK,eAAe,KAAG,EAAH,CAA1D;AAEY,uBAAL,KAAK;AACR,gBADQ,IACR;AAEE,kBAAK;AACL,kBAAG,iEAAU,IAAG,QAAhB,EACE,IAAO,aAAF,EAAI,cAAC,iEAAD,CAAF,CADT;AAEA,kBAAG,oEAAa,IAAG,QAAnB,EACE,IAAO,aAAF,EAAI,cAAC,oEAAD,CAAF,CADT;AAIA,4DAAY,CAAC,iBAAQ,KAAK,QAAQ,KAAK,UAAe,wCAAL,+BAAK,CAAC,EAAE,MAAO,EAAE,KAAM,EAAE,KAAM,GAAuB,CAAX,CAAT,EAAE,MAAO,GAAE,EAAE,KAAJ,CAAW,GAAE,CAAF,CAAvB,CAA4B,CAAC,OAAvD,GAAiE,UAAW,cAAG,IAAzH;AAMZ,kBAAK;AACL,kBAAG,kEAAW,IAAG,QAAjB,EACE,IAAO,aAAF,EAAI,cAAC,kEAAD,CAAF,CADT;AAEA,kBAAG,qEAAc,IAAG,QAApB,EACE,IAAO,aAAF,EAAI,cAAC,qEAAD,CAAF,CADT;AAIA,4DAAY,CAAC,iBAAQ,KAAK,cAAc,KAAK,gBAAqB,wCAAL,+BAAK,CAAC,EAAE,KAAM,GAAsB,CAAV,CAAT,EAAE,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAF,CAAtB,CAA2B,EAAE,KAAM,EAAE,OAAQ,EAAE,OAAxD,GAAkE,UAAW,cAAG,IAAtI;aAMd,UA7BQ,IA6BR;AAEE,kBAAK;AACL,kBAAG,iEAAU,IAAG,QAAhB,EACE,IAAO,aAAF,EAAI,cAAC,iEAAD,CAAF,CADT;AAEA,kBAAG,kEAAW,IAAG,QAAjB,EACE,IAAO,aAAF,EAAI,cAAC,kEAAD,CAAF,CADT;AAIA,4DAAY,CAAC,iBAAQ,KAAK,QAAQ,KAAK,UAAe,wCAAL,+BAAK,CAAC,EAAE,MAAO,EAAE,KAAM,EAAE,OAAQ,EAAE,IAAK,GAAuB,CAAV,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAU,GAAE,CAAF,CAA1D,GAAgE,UAAW,cAAG,KAAxH;AAMZ,kBAAK;AACL,kBAAG,oEAAa,IAAG,QAAnB,EACE,IAAO,aAAF,EAAI,cAAC,oEAAD,CAAF,CADT;AAEA,kBAAG,qEAAc,IAAG,QAApB,EACE,IAAO,aAAF,EAAI,cAAC,qEAAD,CAAF,CADT;AAIA,4DAAY,CAAC,iBAAQ,KAAK,cAAc,KAAK,gBAAqB,wCAAL,+BAAK,CAAC,EAAE,MAAO,EAAE,IAAK,GAAuB,CAAV,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAU,GAAE,CAAF,CAAvB,CAA4B,EAAE,OAAQ,EAAE,OAAzD,GAAmE,UAAW,cAAG,KAAvI;aAtBd;WA+BF,MAAA,8CAAY,CAAC,iBAAQ,KAAK,QAAQ,KAAK,UAAU,4CAAI,UAAW,qBAAU,KAAK,aAAa,KAAE,8EAAlF;SAhEhB;OAmEG,UAAgB,CAAZ,KAAK,OAAO,KAAG,EAAH,CAAW,IAAgB,CAAX,KAAK,MAAM,KAAE,kEAAF,CAA3C,EACH,8CAAY,CAAC,iBAAQ,KAAK,QAAQ,KAAK,QAAQ,2CAAG,UAAW,qBAAU,KAAK,aAAa,KAAE,8EAA/E,CADT;AArH8C;AA7tBA;;AASnD;AAAG;AACH;AAMA;AACA;AAGmB;AAEjB,eAAO,WAAS,CAAC,MAAM,GAAI,MAAM,GAAI,MAAM,GAAI,iBAAQ,CAAC,UAAD,EAAc,iBAAQ,CAAC,UAAD,CAA7D;AAFC;AAwBnB,oBAAS,4CAAU,CAAC,MAAO,eAAR,CAAnB;AAqBA,gBAAK,wCAAiB,CAAC,KAAK,MAAO,KAAK,KAAM,KAAK,OAAQ,KAAK,OAA1C,CAAtB;AAMA,iBAAM,CAAN;AACA,QAAE,OAAF,GAAa,EAAE,OAAQ,GAAE,CAAF;AACvB,QAAE,MAAF,GAAY,EAAE,MAAO,GAAE,CAAF;AAErB,WAAM,gBAAM,OAAM;AAClB,WAAM,gBAAM,OAAM;AAClB,sBAAM,OAAM,OAAZ,GAAsB;AAEtB,WAAM,UAAK,CAAC,SAAD;AACX,UAAY,UAAT,SAAW,cAAC,kEAAW,mEAAY,qEAAc,qEAAtC,CAAF,CAAZ;AACE,wBAAM,YAAU,CAAC,EAAG,EAAG,GAAE,CAAF,CAAK,EAAG,GAAE,CAAjB;AACb,gBAAY,UAAT,SAAW,EAAF,CAAZ;AACH,wBAAM,YAAU,CAAC,CAAD;;AAQhB,YAAG,oEAAa,IAAG,QAAnB;AAEE,0BAAM,SAAO,CAAC,CAAC,KAAM,GAAE,EAAF,CAAM,CAAC,OAAf;AAEb,mBAAS,CAAC,iBAAc,yCAAN,gCAAM,CAAC,CAAC,KAAM,GAAE,EAAF,CAAM,CAAC,OAAQ,GAAE,EAAzB,GAAoC,yCAAN,gCAAM,CAAC,GAAI,EAAL,GAAU,CAAC,IAAK,EAAnE;AAKT,0BAAM,SAAO,CAAC,CAAC,MAAO,CAAC,OAAQ,GAAE,EAApB;;AAIb,0BAAM,SAAO,CAAC,CAAC,MAAO,CAAC,OAAV;;AAGf,YAAG,iEAAU,IAAG,QAAhB;AAGE,0BAAM,SAAO,CAAC,CAAC,MAAO,CAAC,IAAK,GAAE,EAAjB;AACb,mBAAS,CAAC,iBAAc,yCAAN,gCAAM,CAAC,CAAC,KAAM,GAAE,EAAF,CAAM,CAAC,IAAK,GAAE,EAAtB,GAAiC,yCAAN,gCAAM,CAAC,GAAI,EAAL,GAAU,CAAC,IAAK,EAAhE;AAMT,0BAAM,SAAO,CAAC,CAAC,KAAM,GAAE,EAAF,CAAM,CAAC,IAAf;SAGb,MAAA,gBAAM,SAAO,CAAC,CAAC,MAAO,CAAC,IAAV;AAEf,YAAG,kEAAW,IAAG,QAAjB;AAEE,0BAAM,SAAO,CAAC,CAAC,MAAO,GAAE,EAAF,CAAM,CAAC,IAAhB;AAEb,mBAAS,CAAC,iBAAc,yCAAN,gCAAM,CAAC,CAAC,MAAO,GAAE,EAAF,CAAM,CAAC,IAAK,GAAE,EAAvB,GAAkC,yCAAN,gCAAM,CAAC,GAAI,EAAL,GAAU,CAAC,GAAI,EAAhE;AAKT,0BAAM,SAAO,CAAC,CAAC,OAAQ,CAAC,IAAK,GAAE,EAAlB;SAGb,MAAA,gBAAM,SAAO,CAAC,CAAC,OAAQ,CAAC,IAAX;AAEf,YAAG,qEAAc,IAAG,QAApB;AAGE,0BAAM,SAAO,CAAC,CAAC,OAAQ,CAAC,OAAQ,GAAE,EAArB;AACb,mBAAS,CAAC,iBAAc,yCAAN,gCAAM,CAAC,CAAC,MAAO,GAAE,EAAF,CAAM,CAAC,OAAQ,GAAE,EAA1B,GAAqC,yCAAN,gCAAM,CAAC,GAAI,EAAL,GAAU,EAAG,EAAjE;AAMT,0BAAM,SAAO,CAAC,CAAC,MAAO,GAAE,EAAF,CAAM,CAAC,OAAhB;;AAIb,0BAAM,SAAO,CAAC,CAAC,OAAQ,CAAC,OAAX;;AAGf,YAAG,oEAAa,IAAG,QAAnB;AAGE,0BAAM,SAAO,CAAC,CAAC,KAAM,GAAE,EAAF,CAAM,CAAC,OAAf;SAOb,MAAA,gBAAM,SAAO,CAAC,CAAC,MAAO,CAAC,OAAV;;AAGjB,sBAAM,OAAM,OAAZ,GAAsB;AACtB,sBAAM,OAAM,OAAZ,GAAsB;AAvK6B;AAweF;AAOjD;AAKA;AAGA,oBAAS,4CAAU,CAAC,MAAO,eAAR,CAAnB;AAOA,gBAAK,wCAAiB,CAAC,KAAK,MAAO,KAAK,KAAM,KAAK,OAAQ,KAAK,OAA1C,CAAtB;AAMA,WAAM,gBAAM,KAAI;AAChB,sBAAM,KAAI,OAAV,GAAoB;AACpB,sBAAM,UAAQ,CAAC,CAAD;AACd,sBAAM,KAAI,OAAV,GAAoB;AA/B6B;AAlxBA;AAQjD;AAKA;AACA;AAGA,oBAAS,4CAAU,CAAC,MAAO,eAAR,CAAnB;AAOA,gBAAK,wCAAiB,CAAC,KAAK,MAAO,KAAK,KAAM,KAAK,OAAQ,KAAK,OAA1C,CAAtB;AAKA,UAAK,gBAAM,OAAM;AACjB,WAAM,gBAAM,OAAM;AAClB,sBAAM,OAAM,OAAZ,GAAsB;AACtB,sBAAM,UAAQ,CAAC,CAAD;AACd,sBAAM,OAAM,OAAZ,GAAsB;AACtB,sBAAM,OAAM,OAAZ,GAAsB;AAlC2B;AAfD;AAOhD,sBAAM,cAAY,CAAkB,2CAAjB,wCAAiB,CAAC,QAAQ,MAAO,QAAQ,KAAM,QAAQ,OAAQ,QAAQ,OAAtD,GAAgE,OAAlF;AAP8B;AAtFF;AAc9C,sBAAM,YAAC,CAAY,wCAAiB,CAAC,KAAK,MAAO,KAAK,KAAM,KAAK,OAAQ,KAAK,OAA1C,CAA7B;AAduC;AAdA;AAE9C,UAAY,KAAD,QAAX;AAGE,wBAAM;AACN,0BAAa,CAAC,MHrtB8D,IGqtB/D;AACb,wBAAM;OALR;AAF8C;AAyJK;AAGnD;AACA;AAgBA,UAAK,gBAAM,OAAM;AACjB,WAAM,gBAAM,OAAM;AAClB,sBAAM,OAAM,OAAZ,GAAsB;AACtB,sBAAM,KAAI,SAAC,CAAS,MAAT;AACX;AACA,mBAAQ,CAAC,QAAS,MApyB6G,wEAoyBvH;AACR;AACA,sBAAM,OAAM,OAAZ,GAAsB;AACtB,sBAAM,OAAM,OAAZ,GAAsB;AA5B6B;AAgCK;AAOxD;AAKA;AACA;AAGA,oBAAS,4CAAU,CAAC,MAAO,eAAR,CAAnB;AAiBA,gBAAK,wCAAiB,CAAC,KAAK,MAAO,KAAK,KAAM,KAAK,OAAQ,KAAK,OAA1C,CAAtB;AAKA,UAAK,gBAAM,OAAM;AACjB,WAAM,gBAAM,OAAM;AAClB,sBAAM,OAAM,OAAZ,GAAsB;AACtB,sBAAM,KAAI,SAAC,CAAS,MAAT;AACX;AACA,sBAAM,YAAU,CAAC,CAAD;AAChB;AACA,sBAAM,OAAM,OAAZ,GAAsB;AACtB,sBAAM,OAAM,OAAZ,GAAsB;AA9CkC;AA+YV;AAM9C;AACA;AAEA;AACA;AAcA;AACA;AA8EA,UAAK,gBAAM,OAAM;AACjB,WAAM,gBAAM,OAAM;AAClB,sBAAM,OAAM,OAAZ,GAAsB;AAGtB,gBAAK,+BAAK,CAAC,KAAK,MAAO,KAAK,KAAM,KAAK,OAAQ,KAAK,OAA1C,CAAV;AA+DA,UAAG,aAAH;AAEO;AACH,YADG,IACH;AAEE,wBAAS,kBAAa,CAAC,MAAO,+CAAO,aAAf,CAAtB;AACA,eAAM,UAAK,CAAC,KAAK,OAAQ,GAAE,KAAK,IAArB;AAEX,WAAC,IAAD,GAAS,CAAC,IAAK,GAAE,QAAG,CAAC,EAAuB,CAAlB,CAAC,OAAiB,GAAP,CAAC,IAAH,GAAW,EAAF,CAAM,GAAE,CAAhC,CAAL;AAKf,WAAC,OAAD,GAAY,QAAG,CAAC,EAAG,QAAG,CAAC,UAAK,CAAC,KAAK,OAAN,EAAgB,CAAC,IAAK,GAAE,EAA9B,CAAP;SAEjB,UAbG,IAaH;AAEE,wBAAS,kBAAa,CAAC,MAAO,+CAAO,aAAf,CAAtB;AACA,eAAM,UAAK,CAAC,KAAK,OAAQ,GAAE,KAAK,IAArB;AACX,WAAC,IAAD,GAAS,CAAC,OAAQ,GAAE,EAAF;AAClB,WAAC,OAAD,GAAY,CAAC,IAAK,GAAE,EAAF;SALpB;OAfJ;AAyBA,UAAG,MAAO,KAAG,CAAb;AACE,4BAAe,CAAC,iBAAQ,2CAAG,MAAO,OAAQ,iBAAkB,cAA7C;;AAkBf,aAAM,0DAAwB,QAAC;AAC/B;AACE,wBAAS,CAAC,EAAD;AACT,uBAAQ,CAAC,0CAAD;AACH;AACH,cADG,KACH;AAEO;AACH,gBADG,KACH;AAAY,8BAAM,WAAS,CAAkB,2CAAjB,wCAAiB,CAAC,CAAC,MAAO,CAAC,KAAM,CAAC,OAAQ,CAAC,OAA1B,GAAoC,MAAO,cAAe,MAAO,qCAAe,oDAAlG;AAC3B,sBAFG,KAEH;AAAW,8BAAM,WAAS,CAAkB,2CAAjB,wCAAiB,CAAC,CAAC,MAAO,CAAC,KAAM,CAAC,OAAQ,CAAC,OAA1B,GAAoC,MAAO,cAAe,MAAO,qCAAe,0DAAlG;AAC1B,sBAHG,KAGH,6EAAa,gBAAM,WAAS,CAAkB,2CAAjB,wCAAiB,CAAC,CAAC,MAAO,CAAC,KAAM,CAAC,OAAQ,CAAC,OAA1B,GAAoC,MAAO,cAAe,MAAO,qCAAe,uDAAlG,CAA5B;WAGJ,UATG,KASH;AAEO;AACH,gBADG,KACH;AAAY,8BAAM,WAAS,CAAkB,2CAAjB,wCAAiB,CAAC,CAAC,MAAO,CAAC,KAAM,CAAC,OAAQ,CAAC,OAA1B,GAAoC,MAAO,cAAe,MAAO,gCAAU,oDAA7F;AAC3B,sBAFG,KAEH;AAAW,8BAAM,WAAS,CAAkB,2CAAjB,wCAAiB,CAAC,CAAC,MAAO,CAAC,KAAM,CAAC,OAAQ,CAAC,OAA1B,GAAoC,MAAO,cAAe,MAAO,gCAAU,0DAA7F;AAC1B,sBAHG,KAGH,6EAAa,gBAAM,WAAS,CAAkB,2CAAjB,wCAAiB,CAAC,CAAC,MAAO,CAAC,KAAM,CAAC,OAAQ,CAAC,OAA1B,GAAoC,MAAO,cAAe,MAAO,gCAAU,uDAA7F,CAA5B;WAGJ,UAjBG,KAiBH;AAEO;AACH,gBADG,KACH;AAAY,8BAAM,WAAS,CAAkB,2CAAjB,wCAAiB,CAAC,CAAC,MAAO,CAAC,KAAM,CAAC,OAAQ,CAAC,OAA1B,GAAoC,MAAO,cAAe,MAAO,sCAAgB,oDAAnG;AAC3B,sBAFG,KAEH;AAAW,8BAAM,WAAS,CAAkB,2CAAjB,wCAAiB,CAAC,CAAC,MAAO,CAAC,KAAM,CAAC,OAAQ,CAAC,OAA1B,GAAoC,MAAO,cAAe,MAAO,sCAAgB,0DAAnG;AAC1B,sBAHG,KAGH,6EAAa,gBAAM,WAAS,CAAkB,2CAAjB,wCAAiB,CAAC,CAAC,MAAO,CAAC,KAAM,CAAC,OAAQ,CAAC,OAA1B,GAAoC,MAAO,cAAe,MAAO,sCAAgB,uDAAnG,CAA5B;WALJ;AApBJ;AA8BE,2BAAY,CAAC,EAAD;AA9Bd;;AA8CF,sBAAM,OAAM,OAAZ,GAAsB;AACtB,sBAAM,OAAM,OAAZ,GAAsB;AAvQwB;AAzUA;AAG9C;AAKA,UAAY,KAAD,QAAX;AAEE,YAAG,SAAU,KAAE,qEAAf;AAoBE,0BAAM;AACN,4BAAa,CAAC,MH7+B4D,IG6+B7D;AACb,0BAAM;;AAKI,WAAD,sBAAC,oCAAG,CAAJ;AACT,eAAK,iBAAiB,CAAC;;;;eLrEoE,IKqErE;AACjB;AACH,cADG,IACH;AAAY,4BAAW,CAAC,QAAS,eAAV;AACvB,oBAFG,IAEH,gFAAa,iBAAY,CAAC,QAAS,eAAV,CAAzB;;OAjCN;AAR8C;AAyqBA;AAG9C;AAKA,UAAY,KAAD,QAAX;AAEE,YAAG,SAAU,KAAE,qEAAf;AAoBE,0BAAM;AACN,4BAAa,CAAC,MHtpD4D,IGspD7D;AACb,0BAAM;;AAKI,WAAD,sBAAC,oCAAG,CAAJ;AACT,eAAK,iBAAiB,CAAC;;;;eL9uBoE,IK8uBrE;AACjB;AACH,cADG,IACH;AAAY,4BAAW,CAAC,MAAO,eAAR;AACvB,qBAFG,IAEH,mFAAa,CAFV,IAEU,2EAAb,EAAsB,iBAAY,CAAC,MAAO,eAAR,CAAlC;;OAjCN;AAR8C;AAhoDjB;AAwlFD;AAArB;AAEP,aAAU;AAFH;AAAqB;AA9oF9B,GAkKc,OAlKd;ACAA,wCAIS,6IAJT;;;AAa2B;;;AAEvB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAVuB;;;;;;;;;;AAk3BuB;AAAf;AAEjC,eAAU;AAFuB;AAAe;AAjlBE;AAElD,UAAY,aAAD,QAAX;AAEE;AAEA,wBAAY;OAJd;AAOA,UAAY,YAAD,QAAX;AAEU,iBAAR,KAAQ;AACR,uBAAW;OAHb;AATkD;AAgqBD;;AAAhB;AAEjC;AACA;AAAG;AAEH;AACA;AAAG;AACH;AAEA;AACA;AACA;AACA;AACA;AAImB;;AA+BE;AAAZ;AAEP;AACA;AAEA,iBAAU;AAEV,YAAY,KAAD;AACX,YAAG,UAAK,GAAE,CAAV,EACE,aADF;AAGA,YAAK;AACL,eAAM,IAAN;AAEE,cAAqB,CAAP,CAAT,KAAK,QAAC,KAAD,CAAI,KAAE,IAAF,CAAO,IAAkB,CAAb,KAAK,QAAC,CAAE,GAAE,CAAF,IAAH,CAAQ,KAAE,IAAF,CAAlB,CAAyE,IAA1B,CAAP,CAAT,KAAK,QAAC,KAAD,CAAI,KAAE,IAAF,CAAO,IAAkB,CAAb,KAAK,QAAC,CAAE,GAAE,CAAF,IAAH,CAAQ,KAAE,IAAF,CAAlB,CAArB,IAA4D,CAAT,KAAK,QAAC,KAAD,CAAI,KAAE,GAAF,CAA3G;AAEE,gBAAG,KAAK,QAAC,KAAD,CAAI,KAAE,GAAd;AACE,uBAAU,eAAI,CAAC,MAAO,WAAM,CAAE,GAAQ,CAAL,UAAK,GAAE,CAAF,CAAxB;AAEd,2BAAU,eAAI,CAAC,MAAO,WAAM,CAAE,GAAE,UAAlB;AAEhB;WAEG,UAAa,CAAT,KAAK,QAAC,KAAD,CAAI,KAAE,IAAF,CAA2B,IAAP,CAAT,KAAK,QAAC,KAAD,CAAI,KAAE,IAAF,CAAb,IAAiC,CAAT,KAAK,QAAC,KAAD,CAAI,KAAE,GAAF,CAArD;AAEH,qBAAU,eAAI,CAAC,MAAO,WAAM,CAAE,GAAQ,CAAL,UAAK,GAAE,CAAF,CAAxB;AACd;WAEG,UAAG,CAAE,IAAG,CAAR;AAEH,qBAAU,eAAI,CAAC,MAAO,WAAM,CAAE,GAAQ,CAAL,UAAK,GAAE,CAAF,CAAxB;AACd;WAGA,MAAI,CAAJ,IAAG;;AAGP,iBAAQ,CAAE,GAAE,CAAZ;AArCO;AAAY;AAwCrB;AACA,UAAG,CAAI,SAAP;AAGE,YAAG,CAAI,UAAP;;AAaA,mBAAM,KAAN;AAEA,aAAM;AACN,YAAK;AAEL,eAAQ;AACR,cAAO;AACP,aAAM;AACN,YAAK,YAAY,CAAC,MAAO;;;;YAAR;AAKjB,aAAM,EAAG,GAAE,CAAF;AACT,YAAc,CAAH,CAAD,OAAI,GAAE,CAAF,CAAK,IAAkB,CAAb,CAAC,QAAQ,CAAD,WAAP,CAAY,KAAE,GAAF,CAArC,EACE,KAAM,EAAG,GAAE,GADb;AAGA,eAAM,CAAE,IAAU,KAAD,OAAjB;AAEE,cAAY,CAAD;AACX,cAAM,CAAF,CAAE,IAAG,CAAH,CAAM,IAAyC,CAAtB,CAAP,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,IAAF,CAAO,IAAc,CAAT,CAAC,QAAC,CAAE,GAAE,CAAF,IAAH,CAAQ,KAAE,IAAF,CAAd,CAAsB,IAAiB,CAAP,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,IAAF,CAAO,IAAc,CAAT,CAAC,QAAC,CAAE,GAAE,CAAF,IAAH,CAAQ,KAAE,IAAF,CAAd,CAAjB,CAArD;AAEE,gBAAK,eAAI,CAAC,EAAG,EAAG,CAAE,GAAE,CAAX;AACT,gBAAK;WAEF,UAAM,CAAF,CAAE,IAAG,CAAH,CAAM,IAAkB,CAAP,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,IAAF,CAAO,IAAS,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,IAAF,CAAT,CAA9B;AAEH,gBAAK,eAAI,CAAC,EAAG,EAAG,CAAE,GAAE,CAAX;AACT,gBAAK;WAGL,UAAK;AAEP,eAAM,YAAY,CAAC,MAAO;;;;cAAR;AAKlB,cAAwB,CAAJ,CAAhB,KAAK,KAAW,GAAH,EAAF,GAAO,CAAF,CAAI,GAAE,KAAK,MAAP,CAAe,IAAG,CAA1C;AAEE,gBAAG,CAAE,KAAG,EAAR;AAKM,kBAAJ,IAAG;AACH,kBAAG,EAAG,GAAE,EAAR,EACE,KAAM,EADR;AAGA,kBAAG,CAAI,UAAP;AAUA,mBAAM;aAnBR;AAsBA,gBAAK;AAEL,iBAAK,IAAL,GAAa,KAAK,IAAK,GAAE,EAAF;AACvB,gBAAqB,CAAjB,gBAAK,CAAC,KAAK,IAAN,CAAY,GAAE,gBAAK,CAAC,KAAK,OAAQ,GAAE,EAAhB,CAAP,CAA4B,IAAI,CAAI,UAAzD,EACE,KADF;WA3BF;AA+BA,eAAM,EAAG,GAAE,CAAF;AACT,cAAe,CAAJ,EAAD,OAAK,GAAE,CAAF,CAAK,IAAoB,CAAf,EAAE,QAAQ,EAAD,WAAP,CAAa,KAAE,GAAF,CAAxC,EACE,KAAM,EAAG,GAAE,GADb;AAEA,cAAK,CAAE,GAAE,EAAF;;AAGT,YAAG,CAAE,KAAG,EAAR;AAIM,cAAJ,IAAG;AACH,cAAG,EAAG,GAAE,EAAR,EACE,KAAM,EADR;AAGA,cAAG,CAAI,UAAP;SARF;AAmBA,uBAAU,+BAAK,CAAC,EAAE,MAAO,EAAE,KAAM,EAAE,KAAM,GAAE,EAAF,CAAM,EAAE,IAAK,GAAO,CAAL,IAAK,GAAE,EAAF,CAA9C,CAAf;;AAvM+B;AAAgB;AA9gBG;AAIpD,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGU,iBAAL,UAAK;AACR,UADQ,IACR,qFACA;eAFQ,IAER;AAGF,UAAkB,CAAd,UAAK,SAAS,KAAG,EAAH,CAAW,IAAuB,CAAlB,UAAK,aAAa,KAAG,EAAH,CAApD,EAOK;eAAG,UAAK,SAAS,KAAG,EAApB;AAnB+C;AAsbP;;AAjNA;AAE7C,UAAG,CAAY,CAAC,aAAD,SAAf,EACG,MADH;AAGA;AAL6C;AAutBE;AAE/C,UAAG,CAAY,CAAC,aAAD,SAAf,EACG,MADH;AAGA;AAL+C;AA3NC;AAEhD,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAFgD;AARH;AAE7C,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAF6C;AAngCA;AAI7C,UAAG,CAAY,CAAC,aAAD,SAAf,EACG,MADH;AAJ6C;AA5BF;AAE3C,UAAG,CAAY,CAAC,aAAD,SAAf,EACG,MADH;AAGU,iBAAL,UAAK;AACR,UADQ,IACR;AANyC;AAoID;AAE1C;AACA,oBAAU,sCAAY,aXnEiC,KAA4B,CAAC;AWoEpF,6BAAmB;AACnB,uBAAY,GAAZ,GAAmB;AACnB,uBAAY,GAAZ,GAAmB;AACnB,mBAAS,qDAAmB,QAAC;AAC7B,gBAAK,WAAL,GAAoB;AACpB,qBAAW,uDAAqB,QAAC,aNuoB6B,qEAA+C,QMvoB5E;AACjC,kBAAO,WAAP,GAAsB;AACtB,mBAAS,qDAAmB,QAAC,aNsf+B,mEAA+C,SAAgD,QAAmD,GAAqD,EMtftO;AAC7B,gBAAK,WAAL,GAAoB;AAZyD;AAAnC;AAsBA;AAE1C;AAEA,UAAY,UAAD,QAAX;AAEQ,iBAAN,KAAM;AACN,qBAAS;OAHX;AAMA,UAAY,UAAD,QAAX;AAEQ,iBAAN,KAAM;AACN,qBAAS;OAHX;AAMA,UAAY,YAAD,QAAX;AAEU,iBAAR,KAAQ;AACR,uBAAW;OAHb;AAMA;AACA;AAvB0C;AAsmBG;AAAZ;AAEjC,eAAU,kBAAQ,MAAK;AAFU;AAAY;AApqBC;AAAb;AAGjC,qBAAU,+BAAK,CAAC,EAAG,EAAG,EAAG,CAAV,CAAf;AACA,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,aADF;AAGA;AACA,qBAAU,qBAAgB,CAAC,MAAO,+CAAO,cAAe,sEAAY,IAA1C,CAA1B;AACA;AATiC;AAAa;AAwnCD;AAAZ;AAGjC;AACA;AACA;AAAG;AAAG;AAAG;AAAG;AAAI;AAEhB,qBAAU,KAAV;AACA,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,aADF;AAGA,UAAG,MAAO,KAAG,CAAb;AAEE,aAAM,iBAAQ,CAAC,MAAD;AACd,UAAE,EAAF,GAAQ,MAAM,KAAM,GAA+B,CAAf,CAAb,MAAM,MAAO,GAAE,MAAM,KAAR,CAAe,GAAE,CAAF,CAA/B;AACpB,UAAE,EAAF,GAAQ,MAAM,IAAK,GAA+B,CAAd,CAAd,MAAM,OAAQ,GAAE,MAAM,IAAR,CAAc,GAAE,CAAF,CAA/B;AAEnB;AAKA,YAAK,MAAM,MAAO,GAAE,MAAM,KAAR;AAClB,YAAK,MAAM,OAAQ,GAAE,MAAM,IAAR;AACnB,YAAK,QAAG,CAAC,EAAD;AACR,YAAK,QAAG,CAAC,EAAD;AAER,aAAO,QAAG,CAAC,CAAE,GAAE,CAAL,CAAQ,GAAE,QAAG,CAAC,CAAE,GAAE,CAAL,CAAL;AAClB,aAAO,QAAG,CAAC,CAAE,GAAE,CAAL,CAAQ,GAAE,QAAG,CAAC,CAAE,GAAE,CAAL,CAAL;AAElB,uBAAU,+BAAK,CAAC,CAAC,EAAG,GAAE,CAAF,CAAK,CAAC,EAAG,GAAE,CAAF,CAAK,EAAG,GAAE,CAAF,CAAK,EAAG,GAAE,CAAhC,CAAf;OAnBF;AAXiC;AAAY;AAjkCF;AAAV;AAEjC,eAAU;AAFuB;AAAU;AArID;AAAT;AAEjC,qBAAU,+CAAV;AAFiC;AAAS;AA+wBF;AAExC,UAAG,CAAI,oBAAP,EACE,MADF;AAMA,6BAAmB;AACnB;AATwC;AAJE;;AALE;;AALA;;AALD;;AA+BA;AAE3C,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA;AAL2C;AAiBK;AAEhD,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA;AACA;AANgD;AA6PA;AAEhD,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAFgD;AA3OC;AAEjD,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAFiD;AA8bG;AAEpD,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAFoD;AAlLJ;;AAQC;AAEjD,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAFiD;AAJO;;AA7Bf;AAEzC,uBAAY,GAAZ,GAAmB;AACnB,uBAAY,GAAZ,GAAmB;AAEnB;AAEA,qBAAW,8BAAO,QAAC;AAcnB,yBAAc,CAAC,YAAQ,WAAT;AACd;AAtByC;AAviCE;;AALD;AAE1C,oBAAU;AAFgC;AA8xBM;AAEhD,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA,UAAG,MAAO,KAAG,CAAb,EACE,qBADF;AALgD;AA3tBJ;AAE5C,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAF4C;AAqbF;AAE1C,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA;AAL0C;AA7bK;;AAIF;;AAoqCI;AAEjD,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAFiD;AAMD;AAEhD,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAFgD;AAzbF;AAG9C,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA;AAN8C;AA4OH;AAE3C,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA;AAL2C;AAmHE;AAE7C,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA,gBAAK,QAAC,CAAQ,KAAR;AALuC;AAhBC;AAE9C,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA,gBAAK,SAAC,CAAS,MAAT;AALwC;AAQD;AAE7C,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA,gBAAK,QAAC,CAAQ,KAAR;AALuC;AAhBJ;AAEzC,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA,gBAAK,aAAa,CAAC,KAAD;AALuB;AAgCM;AAE/C,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA,gBAAK,SAAC,CAAS,kBAAT;AALyC;AAxDN;AAEzC,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA,gBAAK,OAAO,CAAC,KAAD;AAL6B;AAgBI;AAE7C,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA,gBAAK,QAAC,CAAQ,KAAR;AALuC;AARC;AAE9C,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA,gBAAK,SAAC,CAAS,MAAT;AALwC;AAwDH;AAE3C,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA,kBAAO,OAAO,CAAC,OAAD;AAL6B;AAiBI;AAG/C,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA,kBAAO,QAAC,CAAQ,KAAR;AANuC;AATC;AAGhD,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA,kBAAO,SAAC,CAAS,MAAT;AANwC;AAkBA;AAEhD,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA,kBAAO,SAAC,CAAS,MAAT;AALwC;AAt5BN;AAK1C,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA;AAKA;AAb0C;AAiEG;AAK7C,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA,UAAS,WAAC,QAAD,CAAW,KAAE,CAAtB,EACE,MADF;AAGA;AAMA;AAEA;AAnB6C;AAyOA;AAK7C,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA,UAAS,WAAC,QAAD,CAAW,KAAE,CAAtB,EACE,MADF;AAGA;AAMU,iBAAL,KAAK;AACR,UADQ,IACR;AAEE;OAGF,UANQ,IAMR;AAGE,YAAY,gBAAD,QAAX,EACE,uBAAkB,CAAY,wCAAX,gBAAW,aAAZ,CADpB;OAHF;AAOF;AA9B6C;AAnNC;AAK9C,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA,UAAS,WAAC,SAAD,CAAY,KAAE,CAAvB,EACE,MADF;AAGA;AAKA;AAEA;AAlB8C;AAoPA;AAK9C,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA,UAAS,WAAC,SAAD,CAAY,KAAE,CAAvB,EACE,MADF;AAGA;AAKU,iBAAL,KAAK;AACR,UADQ,IACR;AAEE;OAGF,UANQ,IAMR;AAGE,YAAY,gBAAD,QAAX,EACE,uBAAkB,CAAY,wCAAX,gBAAW,aAAZ,CADpB;OAHF;AAOF;AA7B8C;AA9GL;AAGzC,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA;AAGU,iBAAL,KAAK;AACR,UADQ,IACR;AAEE;OAGF,UANQ,IAMR;AAGE,+BAAkB,CAAM,wCAAL,+BAAK,CAAC,OAAO,EAAG,GAAE,OAAO,EAAT,CAAa,OAAO,EAAG,GAAE,OAAO,EAAT,CAAa,OAAO,EAAG,GAAE,OAAO,EAAT,CAAa,OAAO,EAAG,GAAE,OAAO,EAAzF,EAAN;OAHpB;AAMF;AArByC;AA/UA;AAGzC,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA;AAGA;AAEA;AAXyC;AA6dC;AAG1C;AAEA,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA,gBAAK,KAAL;AACA;AAGU,iBAAL,KAAK;AACR,UADQ,IACR;AAEE;OAGF,UANQ,IAMR;AAGE,+BAAkB,CAAC,0CAAD;OAHpB;AAMF;AAxB0C;AA/PA;AAI1C;AAEA,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA,gBAAK,KAAL;AACA,UAAG,2DAAM,IAAG,MAAZ,EACE,aAAQ,CAAC,QAAe,yCAAN,gCAAM,CAAC,CAAC,MAAO,CAAC,IAAV,GAAuB,yCAAN,gCAAM,CAAC,CAAC,OAAQ,CAAC,IAAX,GAtd6G,+EAAyE,8EAsd7N,CADV;AAEA,UAAG,4DAAO,IAAG,MAAb,EACE,aAAQ,CAAC,QAAe,yCAAN,gCAAM,CAAC,CAAC,MAAO,CAAC,IAAV,GAAuB,yCAAN,gCAAM,CAAC,CAAC,MAAO,CAAC,OAAV,GAxd6G,+EAAyE,8EAwd7N,CADV;AAEA,UAAG,8DAAS,IAAG,MAAf,EACE,aAAQ,CAAC,QAAe,yCAAN,gCAAM,CAAC,CAAC,MAAO,CAAC,OAAV,GAA0B,yCAAN,gCAAM,CAAC,CAAC,OAAQ,CAAC,OAAX,GA1d0G,+EAAyE,8EA0d7N,CADV;AAEA,UAAG,6DAAQ,IAAG,MAAd,EACE,aAAQ,CAAC,QAAe,yCAAN,gCAAM,CAAC,CAAC,OAAQ,CAAC,IAAX,GAAwB,yCAAN,gCAAM,CAAC,CAAC,OAAQ,CAAC,OAAX,GA5d4G,+EAAyE,8EA4d7N,CADV;AAhB0C;AA0RK;AAI/C;AACA;AACA;AAEA,gBAAK,KAAL;AACA,WAAM;AAEN,YAAO,qDAAmB,QAAC;AAC3B;AACE,YAAG,oEAAa,IAAG,QAAnB;AAEE,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,KAAM,GAAE,EAAF,CAAM,CAAC,OAAf,CAAP;AACV,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,KAAM,GAAE,EAAF,CAAM,CAAC,OAAQ,GAAE,EAAzB,EAA8B,gCAAM,CAAC,GAAI,EAAL,EAAU,CAAC,IAAK,EAA3D;AACV,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,CAAC,OAAQ,GAAE,EAApB,CAAP;;AAIV,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,CAAC,OAAV,CAAP;;AAGZ,YAAG,iEAAU,IAAG,QAAhB;AAEE,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,CAAC,IAAK,GAAE,EAAjB,CAAP;AACV,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,KAAM,GAAE,EAAF,CAAM,CAAC,IAAK,GAAE,EAAtB,EAA2B,gCAAM,CAAC,GAAI,EAAL,EAAU,CAAC,IAAK,EAAxD;AACV,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,KAAM,GAAE,EAAF,CAAM,CAAC,IAAf,CAAP;SAGV,MAAA,GAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,CAAC,IAAV,CAAP;AAEZ,YAAG,kEAAW,IAAG,QAAjB;AAEE,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,GAAE,EAAF,CAAM,CAAC,IAAhB,CAAP;AACV,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,GAAE,EAAF,CAAM,CAAC,IAAK,GAAE,EAAvB,EAA4B,gCAAM,CAAC,GAAI,EAAL,EAAU,CAAC,GAAI,EAAxD;AACV,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,OAAQ,CAAC,IAAK,GAAE,EAAlB,CAAP;SAGV,MAAA,GAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,OAAQ,CAAC,IAAX,CAAP;AAEZ,YAAG,qEAAc,IAAG,QAApB;AAEE,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,OAAQ,CAAC,OAAQ,GAAE,EAArB,CAAP;AACV,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,GAAE,EAAF,CAAM,CAAC,OAAQ,GAAE,EAA1B,EAA+B,gCAAM,CAAC,GAAI,EAAL,EAAU,EAAG,EAAzD;AACV,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,GAAE,EAAF,CAAM,CAAC,OAAhB,CAAP;SAGV,MAAA,GAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,OAAQ,CAAC,OAAX,CAAP;AAEZ,YAAG,oEAAa,IAAG,QAAnB;AACE,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,KAAM,GAAE,EAAF,CAAM,CAAC,OAAf,CAAP;AAEV,cAAA,GAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,CAAC,OAAV,CAAP;AAEZ,WAAG;AAEH,qBAAQ,CAAC,WAAO,IA3wByG,wEA2wBjH;AA9CV;AAgDE,WAAI,eAAJ,GAAI;AAhDN;AAZ+C;AAtQA;AAK/C;AACA;AACA;AAEA,gBAAK,KAAL;AACA,WAAM;AAEN,YAAO,qDAAmB,QAAC;AAC3B;AACE,YAAG,oEAAa,IAAG,QAAnB;AAEE,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,KAAM,GAAE,EAAF,CAAM,CAAC,OAAf,CAAP;AACV,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,KAAM,GAAE,EAAF,CAAM,CAAC,OAAQ,GAAE,EAAzB,EAA8B,gCAAM,CAAC,GAAI,EAAL,EAAU,CAAC,IAAK,EAA3D;AACV,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,CAAC,OAAQ,GAAE,EAApB,CAAP;;AAIV,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,CAAC,OAAV,CAAP;;AAGZ,YAAG,iEAAU,IAAG,QAAhB;AAEE,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,CAAC,IAAK,GAAE,EAAjB,CAAP;AACV,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,KAAM,GAAE,EAAF,CAAM,CAAC,IAAK,GAAE,EAAtB,EAA2B,gCAAM,CAAC,GAAI,EAAL,EAAU,CAAC,IAAK,EAAxD;AACV,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,KAAM,GAAE,EAAF,CAAM,CAAC,IAAf,CAAP;SAGV,MAAA,GAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,CAAC,IAAV,CAAP;AAEZ,YAAG,kEAAW,IAAG,QAAjB;AAEE,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,GAAE,EAAF,CAAM,CAAC,IAAhB,CAAP;AACV,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,GAAE,EAAF,CAAM,CAAC,IAAK,GAAE,EAAvB,EAA4B,gCAAM,CAAC,GAAI,EAAL,EAAU,CAAC,GAAI,EAAxD;AACV,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,OAAQ,CAAC,IAAK,GAAE,EAAlB,CAAP;SAGV,MAAA,GAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,OAAQ,CAAC,IAAX,CAAP;AAEZ,YAAG,qEAAc,IAAG,QAApB;AAEE,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,OAAQ,CAAC,OAAQ,GAAE,EAArB,CAAP;AACV,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,GAAE,EAAF,CAAM,CAAC,OAAQ,GAAE,EAA1B,EAA+B,gCAAM,CAAC,GAAI,EAAL,EAAU,EAAG,EAAzD;AACV,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,GAAE,EAAF,CAAM,CAAC,OAAhB,CAAP;SAGV,MAAA,GAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,OAAQ,CAAC,OAAX,CAAP;AAEZ,YAAG,oEAAa,IAAG,QAAnB;AACE,aAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,KAAM,GAAE,EAAF,CAAM,CAAC,OAAf,CAAP;AAEV,cAAA,GAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,CAAC,OAAV,CAAP;AAEZ,WAAG;AAEH,qBAAQ,CAAC,aAAS,IAvgB2G,wEAugBrH;AA9CV;AAgDE,WAAI,eAAJ,GAAI;AAhDN;AAb+C;AA6HF;AAG7C;AAEA,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA,gBAAK,KAAL;AACA;AAGU,iBAAL,KAAK;AACR,UADQ,IACR;AAEE;OAGF,UANQ,IAMR;AAGE,+BAAkB,CAAC,0CAAD;OAHpB;AAMF;AAxB6C;AA/RA;AAK7C,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAIA;AAGA;AAEA;AAd6C;AAlED;AAiD5C,UAAG,CAAY,CAAC,OAAD,SAAU,IAAG,CAAY,CAAC,aAAD,SAAxC,EACE,MADF;AAGA;AAGA;;AAQA;AA/D4C;AAzFF;AAE1C,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA;AAL0C;AAjBA;AAI1C,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAIA;AACE;AADF;;AAR0C;AA6LK;AAI/C,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAJ+C;AAQK;AAIpD,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAJoD;AA0MV;AAK1C;AAEA,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAGA;AACA,gBAAK,qBAAgB,CAAC,MAAO,+CAAO,cAAe,iBAAkB,IAAhD,CAArB;AACK;AACH,UADG,IACH;AAAW,6BAAgB,CAAC,MAAY,wCAAL,+BAAK,CAAC,KAAK,MAAO,KAAK,IAAK,GAAoD,CAAtB,CAA1B,KAAK,OAAqB,GAAX,KAAK,IAAP,GAAyB,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAZ,CAAsB,GAAE,CAAF,CAApD,CAAyD,KAAK,OAAQ,KAAK,IAA6D,GAAJ,CAAtB,CAA1B,KAAK,OAAqB,GAAX,KAAK,IAAP,GAAyB,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAZ,CAAsB,GAAE,CAAF,CAApD,GAAoE,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAA3K,GAAsL,cAAe,iBAAkB,KAApO;AAC3B,gBAFG,IAEH;AAAY,6BAAgB,CAAC,MAAY,wCAAL,+BAAK,CAAC,KAAK,MAAO,KAAK,KAAM,KAAK,OAAQ,KAAK,IAAK,GAAY,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAA3D,GAAsE,cAAe,iBAAkB,KAApH;AAC5B,gBAHG,IAGH,6EAAa,qBAAgB,CAAC,MAAY,wCAAL,+BAAK,CAAC,KAAK,MAAO,KAAK,OAAQ,GAAY,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAZ,CAAsB,KAAK,OAAQ,KAAK,OAAlE,GAA4E,cAAe,iBAAkB,KAA1H,CAA7B;AAEF;AAjB0C;AAlJA;AAG1C;AAEA,UAAY,KAAD,QAAX;AAEE,2BAAe;AACL,SAAD,sBAAC,oCAAG,CAAJ;AACT,aAAK,iBAAiB,CAAC;;;;aNsgBsE,IMtgBvE;AACjB;AACH,YADG,IACH;AAAY,0BAAW,CAAC,QAAS,eAAV;AACvB,kBAFG,IAEH,gFAAa,iBAAY,CAAC,QAAS,eAAV,CAAzB;AAEF,2BAAe;OATjB;AAL0C;AAyOA;AAG1C;AAEA,UAAY,KAAD,QAAX;AAEE,2BAAe;AACL,SAAD,sBAAC,oCAAG,CAAJ;AACT,aAAK,iBAAiB,CAAC;;;;aN6RsE,IM7RvE;AACjB;AACH,YADG,IACH;AAAY,0BAAW,CAAC,MAAO,eAAR;AACvB,kBAFG,IAEH,gFAAa,iBAAY,CAAC,MAAO,eAAR,CAAzB;AAEF,2BAAe;OATjB;AAL0C;AA3rBjB;AAsGG;AAArB;AAEP,aAAU;AAFH;AAAqB;AAnH9B,GA4Gc,kBA5Gd;AJAA,oCAoBS,oIApBT;;;AAqIiB;AApFO;;;AAKpB;AALoB;;;;;AA+jGiB;AAAT;AAE9B,eAAU;AACV,UAAY,kBAAD,QAAX,EACE,SAAU,kBAAQ,UAAC,EADrB;AAH8B;AAAS;AALE;AAAX;AAE9B,eAAU;AAFoB;AAAW;AALF;AAEvC,uBAAa;AAF6D;AAAnC;AA/DI;AAAb;AAE9B;AAAG;AACH;AACA;AACA;AAAG;AACH;AACA;AACA;AAEA,eAAU;AACV,UAAG,KAAK,SAAC,EAAM,GAAE,CAAjB;AAEE,YAAK,QAAG,CAAC,SAAU,IAAX;AACR,YAAK;AACL,eAAM,CAAE,GAAE,KAAK,SAAC,EAAhB;AAEe,qBAAR,KAAK,UAAC,CAAD,CAAG;AACX,cADW,IACX;AAEI,yBAAQ,CAAC,MAAD;AACR,2BAAU,CAAC,OAAgB,yCAAR,KAAK,UAAC,CAAD,CAAG,OAAjB;AACV,6BAAY,KAAK,UAAC,CAAD,CAAG,MAApB;WAEJ,UAPW,IAOX;AAEI,2BAAU,CAAC,OAAgB,yCAAR,KAAK,UAAC,CAAD,CAAG,OAAjB;AACV,6BAAY,KAAK,UAAC,CAAD,CAAG,MAApB;WAEJ,UAZW,IAYX;AAEI,aAAC,CAAC,CAAD,UAAO,QAAP;AACD,aAAC,CAAC,CAAD,UAAO,KAAK,UAAC,CAAD,CAAG,MAAf;AACG,aAAJ,IAAG;AACH,aAAC,CAAC,CAAD,UAAO,KAAK,UAAC,CAAD,CAAG,MAAf;AACG,aAAJ,IAAG;AACH,aAAC,CAAC,CAAD,UAAO,KAAK,UAAC,CAAD,CAAG,MAAf;AACD,mBAAQ,KAAK,aAAa,CAAC,EAAG,CAAJ;AAC1B,kBAAO;AACP,qBAAS,QAAgB,OAAP,WAAC,IAAD,CAAO,GAAP,IAAS,CAAF,kBAAzB;AAAI;AAEF,eAAC,EAAD,GAAO,IAAI,CAAC,CAAD,CAAG,EAAG,GAAE,IAAI,CAAC,CAAE,GAAE,CAAL,CAAO,EAAb;AACjB,eAAC,EAAD,GAAO,IAAI,CAAC,CAAD,CAAG,EAAG,GAAE,IAAI,CAAC,CAAE,GAAE,CAAL,CAAO,EAAb;AACjB,oBAAO,GAAI,GAAE,wCAAc,CAAC,CAAD,CAAhB;;AAEb,uBAAY,UAAK,CAAC,GAAI,GAAE,CAAP;AACjB,gBAAG,QAAS,GAAE,CAAd;AACE,6BAAU,CAAC,OAAS,yCAAD,CAAC,CAAC,CAAD,EAAV;;AAGV,qBAAQ,KAAK,aAAa,CAAC,EAAG,QAAJ;AAC1B,uBAAS,SAAS,mBAAC,IAAD,0BAAlB;AAAI;AACF,+BAAU,CAAC,OAAY,yCAAJ,IAAI,CAAC,CAAD,EAAb;;AACZ,+BAAY,KAAK,UAAC,CAAD,CAAG,MAApB;;WAGN,UAvCW,IAuCX,8EAAU,cAAS,CAAC,MAAD,CAAnB;AAEE,WAAJ,IAAG;;OA/CP;AAX8B;AAAa;AAt/FrB;AAkFK,sDAlFL,kDAkFK;AAEZ;AA2Cb;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AApDa;;AAEb;AACA;AACA;AACA;AACA;AAAgB;AAChB;AACA;AACA;AACA;AAEA;AACA;AACA;AACA;AACA;AACA;AACA;AAlBa;;;;;;;;;;;;;;AAy0DiB;AAAT;AAEvB,eAAU;AAFa;AAAS;AARC;AAAV;AAEvB,UAAG,YAAH;AACE,iBAAU;AAEV,qBAAU;AALW;AAAU;AA+QE;AAEnC,kBAAO,CAAQ,OAAP,OAAU,qDAAH,CAAR;AAF4B;AAUA;AAEnC,kBAAO,CAAQ,OAAP,OAAU,qDAAH,CAAR;AAF4B;AALE;AAErC,oBAAS,CAAQ,OAAP,OAAU,uDAAH,CAAR;AAF4B;AAoDc;AAGnD,uBAAa;AACb,2BAAiB;AAEjB,kBAAO,CAAC,UAAD;AACP,oBAAS,CAAC,YAAD;AACT,kBAAO,CAAC,UAAD;AAR4C;AA3jBF;;AAA1B;AAIvB;AAAG;AAMH,eAAU;AACV,gBAAK,+BAAK,CAAC,iBAAkB,gBAAiB,kBAAmB,kBAAvD,CAAV;AACA,iBAAM,+BAAK,CAAC,YAAa,WAAY,aAAc,aAAxC,CAAX;AACA,UAAG,qCAAW,CAAC,CAAD,CAAI,IAAG,qCAAW,CAAC,EAAD,CAAhC,EACE,aADF;AAIA,UAAG,CAAI,WAAM,CAAC,OAAD,CAAb;AAIE,iBAAqB,IAAX,OAAW,CACrB;AAEE;AACA;AAGA,cAAK,oBAAe,QAAC,sBAAkB,CAAC,UAAK,CAAC,YAAa,GAAE,WAAhB,EAA8B,UAAK,CAAC,aAAc,GAAE,UAAjB,EAA8B,cAljDa,IAkjDpF,CAAlB;AACrB;AACE,aAAC;AACD,aAAC,WAAW,CAAC,CAAC,YAAa,CAAC,WAAY,CAAC,WAAY,GAAE,CAAC,QAAO,SAAC,EAAX,CAAkB,CAAC,UAAW,GAAE,CAAC,QAAO,UAAC,EAAX,CAAmB,QAAS,MAAO,MAAO,MAAO,KAAxH;AACZ,aAAC;AACD,kBAAO,uCAAa,QAAC;AACrB,eAAG,OAAO,CAAC,CAAC,QAAF;AAEV,oBAAQ,CAAC,GAAD;AAPV;AAYE,aAAE,eAAF,CAAE;AAZJ;AAPF,SADqB;OAJvB;AAjBuB;AAA0B;AA0wCL;AAArB;AAIvB;AAAG;AACH;AACA;AAAO;AACP;AAAI;AACJ;AAAI;AACJ;AACA;AAAY;AAAc;AAG1B,qBAAU,KAAV;AAEA,UAAG,UAAK,CAAC,MAAM,MAAO,GAAE,MAAM,KAAtB,CAA6B,IAAG,CAAxC;AAEE,cAAM,OAAN,GAAiB,MAAM;AACvB;OAHF;AAMA,UAAG,KAAM,KAAG,EAAZ;AAGE,YAAG,YAAa,IAAuD,CAAhC,CAAjB,cAAG,CAAC,KAAM,KAAP,CAAc,GAAE,CAAF,CAAgC,IAAL,CAAlB,cAAG,CAAC,KAAM,KAAP,CAAe,GAAE,CAAF,CAAtB,IAA6D,CAA9B,cAAG,CAAC,OAAQ,sBAAS,CAAC,KAAD,CAAlB,CAA2B,GAAE,CAAF,CAAlC,CAAvE;AAEE,qBAAM,+BAAK,CAAC,EAAG,EAAG,EAAG,CAAV,CAAX;AACA,kBAAS;AACT,kBAAS;AACT,eAAM,CAAC;AACP,eAAM,CAAC;AACP,eAAM;AACN,cAAK;AACL,cAAK;AACL,eAAM;AACN,qBAAM,+BAAK,CAAC,EAAG,EAAG,EAAG,CAAV,CAAX;AACA,uBAAc;AACd,0BAAiB;AACjB,yBAAgB;AAChB,qDAAU,CAAC,KAAM,MAAO,+CAAO,EAAG,EAAE,CAAC,EAAE,CAAC,EAAE,EAAE,MAAM,KAAK,MAAM,MAAM,MAAM,MAAM,cAAc,MAAO,GAAI,IAAI,eAC1G,GAAO,GAAO,GAAO;;;;eAAE;;;;eAAE;;;;eAAG;;;;eAAM;;;;eAAM;;;;eAAG;;;;eAAG,GAAG,GAAI;;;;eAAY;;;;eAAe;;;;eAAc;;;;eAAI,EAAG,sBAAkB,EAAG,mBAC1H,qBAAgB,yBAAoB,qCAF5B;AAIV,kBAAS,KAAM,GAAE,CAAF;AAEf,gBAAM,MAAN,GAAgB,MAAM,KAAM,GAAE,KAAF;AAC5B,gBAAM,OAAN,GAAiB,MAAM,IAAK,GAAE,KAAF;;AAK5B,yBAAU,iBAAO,cAAc,CAAC,MAAO,+CAAO,aAAf,CAA/B;AACA,gBAAM,OAAN,GAAiB,MAAM,OAAQ,GAAE,CAAF;;;AAKjC,cAAM,MAAN,GAAgB,MAAM;AACtB,cAAM,OAAN,GAAiB,MAAM;;AA1DF;AAAqB;AAnbL;AAAhB;AAKvB;AAAG;AACH;AACA;AAAO;AACP;AAAI;AACJ;AAAI;AACJ;AAAI;AACJ;AACA;AACA;AACA;AAEA;AAIA,aAAQ,iBAAO;AACf,uBAAO,aAAa,CAAC,UAAK,OAAN;AAGpB,UAAe,CAAX,UAAW,GAAE,CAAC,CAAH,CAAM,IAA8B,CAAZ,CAAb,KAAK,OAAQ,GAAE,KAAK,IAAP,CAAY,GAAE,UAAF,CAAnD,EACE,KAAK,OAAL,GAAgB,KAAK,IAAK,GAAE,UAD9B;AAGA,UAAc,CAAV,SAAU,GAAE,CAAC,CAAH,CAAM,IAA8B,CAAb,CAAZ,KAAK,MAAO,GAAE,KAAK,KAAP,CAAa,GAAE,SAAF,CAAlD,EACE,KAAK,MAAL,GAAe,KAAK,KAAM,GAAE,SAD9B;AAWA,oBAAS,iBAAO,aAAa,CAAC,+CAAO,MAAR,CAA7B;AAEA,eAAU;AAGV,UAAsD,CAAhC,CAAjB,cAAG,CAAC,KAAM,KAAP,CAAc,GAAE,CAAF,CAAgC,IAAL,CAAlB,cAAG,CAAC,KAAM,KAAP,CAAe,GAAE,CAAF,CAAtB,IAA6D,CAA9B,cAAG,CAAC,OAAQ,sBAAS,CAAC,KAAD,CAAlB,CAA2B,GAAE,CAAF,CAAlC,CAAwC,IAAI,YAAlG;AAEE,mBAAM,+BAAK,CAAC,EAAG,EAAG,EAAG,CAAV,CAAX;AACA,gBAAS;AACT,gBAAS;AACT,aAAM,CAAC;AACP,aAAM,CAAC;AACP,aAAM;AACN,YAAK;AACL,YAAK;AACL,aAAM;AACN,mBAAM,+BAAK,CAAC,EAAG,EAAG,EAAG,CAAV,CAAX;AACA,uBAAc,EAAd;AACA,0BAAiB,EAAjB;AACA,yBAAgB,EAAhB;AACA,mDAAU,CAAC,KAAM,MAAO,+CAAM,EAAG,EAAE,CAAC,EAAE,CAAC,EAAE,EAAE,MAAM,KAAK,MAAM,MAAM,MAAM,MAAM,cAAc,MAAO,GAAI,IAAI,eACvG,GAAO,GAAO,GAAO;;;;aAAE;;;;aAAE;;;;aAAG;;;;aAAM;;;;aAAM;;;;aAAG;;;;aAAG,GAAI,GAAI,WAAY,cAAe,aAAc;;;;aAAI,EAAG,sBAAkB,EAAG,mBAC3H,qBAAgB,yBAAoB,qCAF9B;AAIV,gBAAS,KAAM,GAAE,CAAF;AACf,gBAAS,KAAM,GAAE,CAAF;AAEf,YAAkB,CAAd,aAAc,IAAQ,CAAH,EAAG,IAAG,CAAH,CAAR,CAAe,IAAI,CAAI,aAAzC;AAEE,eAAM,KAAK;AACX,eAAM,KAAK;AAEN;AACH,cADG,IACH;AAAW,iBAAM,EAAG,GAAuC,CAAT,CAA1B,KAAK,MAAqB,GAAZ,KAAK,KAAP,GAAgB,KAAF,CAAS,GAAE,CAAF,CAAvC;AACpB,oBAFG,IAEH,6EAAa,KAAiB,CAAX,KAAK,KAAM,GAAe,CAAZ,KAAK,MAAO,GAAE,KAAK,KAAP,CAAf,CAA6B,GAAE,KAA7D;AAGG;AACH,cADG,KACH;AAAW,iBAAM,EAAG,GAAuC,CAAT,CAA1B,KAAK,OAAqB,GAAX,KAAK,IAAP,GAAe,KAAF,CAAS,GAAE,CAAF,CAAvC;AACpB,oBAFG,KAEH,6EAAa,KAAS,CAAH,EAAG,GAAgB,CAAb,KAAK,OAAQ,GAAE,KAAK,IAAP,CAAhB,CAA6B,GAAE,KAArD;AAGF,wBAAS,+BAAK,CAAC,GAAI,GAAI,EAAG,GAAE,KAAF,CAAS,EAAG,GAAE,KAA1B,CAAd;SAGA,oBAAS,KAAT;AAEF,aAAM,cAAS,CAAC,IAAD;AACf,qBAAQ,CAAC,8CAAD;AACR,mBAAY,2CAAU,CAAC,KAAM,MAAO,+CAAM,UAAK,CAAC,EAAD,EAAM,UAAK,CAAC,EAAD,EAAK,CAAC,EAAE,CAAC,EAAE,EAAE,YAAY,MAAM,MAAM,MAAM,MAAM,MAAM,cAAc,MAAO,GAAI,IAAI,eAC1I,GAAO,GAAO,GAAO;;;;aAAE;;;;aAAE;;;;aAAG;;;;aAAM;;;;aAAM;;;;aAAG;;;;aAAG,GAAG,GAAI,WAAY,cAAe,aAAc;;;;aAAI,EAAG,sBAAkB,EAAG,mBAC1H,qBAAgB,yBAAoB,qCAFlB;AAGtB,yBAAY,CAAC,GAAI,IAAL;AAEZ,YAAG,QAAH,EACE,SAAU,CADZ;OAGG,UAAG,CAAI,WAAP,EAEH,iBAAO,SAAS,CAAC,MAAO,+CAAO,cAAe,iBAAkB,eAAgB,UAAW,MAA3E,CAFb;AAIL,uBAAO,eAAe,CAAC,MAAD;AACtB,uBAAO,aAAa,CAAC,IAAD;AApGG;AAAgB;AArJJ;AAEnC;AAAI;AAAG;AACP;AAAG;AAEH,UAAG,uCAAa,CAAC,QAAD,CAAhB,EACE,MADF;AAGA,iBAAM,KAAN;AACK;AACH,UADG,IACH;AAEE,kBAAK,+BAAK,CAAC,KAAK,MAAO,KAAK,KAAM,KAAK,KAAM,GAAE,QAAQ,SAAC,EAAX,CAAkB,KAAK,IAAK,GAAE,QAAQ,UAAC,EAA1E,CAAV;AACA,mDAAe,CAAC,GAAI,GAAI,CAAT;AACf,6BAAc,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAI,EAAE,MAAO,GAAE,EAAE,KAAJ,CAAa,EAAE,OAAQ,GAAE,EAAE,IAA5C,GAAyD,wCAAL,+BAAK,CAAC,CAAC,MAAO,CAAC,KAAM,CAAC,KAAM,GAAY,CAAT,EAAE,MAAO,GAAE,EAAE,KAAJ,CAAZ,CAAwB,CAAC,IAAK,GAAa,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAlE,GAA8E,SAAU,MAAO,MAAO,MAAO,KAA5K;OAEhB,UAPG,IAOH;AAEE,kBAAK,+BAAK,CAAC,EAAG,EAAG,QAAQ,SAAC,GAAO,QAAQ,UAAC,EAAhC,CAAV;AACA,kBAAK,2CAAiB,CAAC,yCAAa,CAAC,EAAG,KAAJ,EAAY,EAAG,KAA7B,CAAtB;AACA,6BAAc,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,QAAQ,SAAC,GAAO,QAAQ,UAAC,EAAhC,GAAyC,2CAAG,SAAU,MAAO,KAAM,MAAO,KAAhF;OAEhB,UAbG,IAaH;AAAY,6BAAc,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,QAAQ,SAAC,GAAO,QAAQ,UAAC,EAAhC,GAAyC,+CAAO,SAAU,MAAO,KAAM,MAAO,KAApF;AAC1B,gBAdG,IAcH;AAEE,iBAAS,QAAkD,OAA7C,gBAAK,CAAW,CAAT,EAAE,MAAO,GAAE,EAAE,KAAJ,CAAW,GAAE,QAAQ,SAAC,EAAjC,CAAwC,GAAE,CAAF,kBAA3D;AAAI;AAEF,mBAAS,SAAmD,QAA9C,gBAAK,CAAY,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAU,GAAE,QAAQ,UAAC,EAAjC,CAAyC,GAAE,CAAF,qBAA5D;AAAI;AAEF,sBAAK,+BAAK,CAAC,EAAE,MAAO,EAAE,KAAM,EAAE,KAAM,GAAE,QAAQ,SAAC,EAAX,CAAkB,EAAE,IAAK,GAAE,QAAQ,UAAC,EAA9D,CAAV;AACA,oDAAY,CAAC,EAAG,CAAE,GAAE,QAAQ,SAAC,EAAX,CAAkB,CAAE,GAAE,QAAQ,UAAC,EAArC;AACZ,uDAAe,CAAC,GAAI,GAAI,CAAT;AACf,gBAAG,yCAAe,CAAC,GAAI,CAAL,CAAlB,EACE,iBAAU,CAAM,wCAAL,+BAAK,CAAC,CAAC,MAAO,CAAC,KAAO,CAAC,KAAM,GAAY,CAAT,EAAE,MAAO,GAAE,EAAE,KAAJ,CAAZ,CAA0B,CAAC,IAAK,GAAa,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAArE,GAAkF,SAAU,MAAO,MAAO,MAAO,KAAvH,CADZ;;;OAKN,UA5BG,IA4BH;AAEE,kBAAK,+BAAK,CAAC,EAAG,EAAG,QAAQ,SAAC,GAAO,QAAQ,UAAC,EAAhC,CAAV;AACA,kBAAK,2CAAiB,CAAC,wCAAc,CAAC,EAAG,KAAJ,EAAY,EAAG,KAA9B,CAAtB;AACA,6BAAc,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,QAAQ,SAAC,GAAO,QAAQ,UAAC,EAAhC,GAAyC,2CAAG,SAAU,KAAM,MAAO,KAAM,KAA/E;OAJhB;AArCiC;AAnSL;AAAP;AAOvB,eAAU;AAPa;AAAO;AA1BD;AAAN;AAMvB,eAAU;AANa;AAAM;AA2mBE;AAFuB;;AAIrC;AAAR;AAEP,iBAAU,QAAG,CAAC,EAAG,QAAG,CAAC,EAAG,CAAJ,CAAP;AAFN;AAAQ;AAKA;AAAR;AAEP,iBAAU,QAAG,CAAC,EAAG,QAAG,CAAC,EAAG,CAAJ,CAAP;AAFN;AAAQ;AAKG;AAAX;AAEP;AAAG;AAAG;AAAG;AAET;AAcK;AACH,YADG,IACH;AAAc,cAA6C,UAArB,CAAlB,QAAQ,CAAC,EAAG,EAAG,CAAP,CAAU,GAAE,QAAQ,CAAC,EAAG,EAAG,CAAP,CAAV,CAAqB,GAAI,CAAJ;AAC3D,kBAFG,IAEH;AAAY,cAAiB,UAAL,CAAN,CAAM,GAAF,CAAF,GAAM,CAAF,CAAK,GAAI,CAAJ;AAC7B,kBAHG,IAGH;AAAe,cAAK,UAAK,CAAM,CAAL,IAAK,GAAC,CAAD,CAAY,GAAH,CAAJ,IAAI,GAAC,CAAD,CAAN,GAAe,CAAJ,IAAI,GAAC,CAAD,CAAxB;;AAEvB,cAAK;;AAvBF;AAAW;AAkCpB;AAAG;AAKH,UAAW,CAAC,OAAD,SAAU,IAAI,CAAI,uCAAa,CAAC,OAAD,CAA1C;AAYI,iBAAS,QAAmB,OAAd,OAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AAEF,mBAAS,SAAoB,QAAf,OAAO,UAAC,EAAO,GAAE,CAAF,qBAA7B;AAAI;;;OAdV;AArDsD;AAllEtB;AAEhC,qBAAW;AACX,2BAAiB;AACjB,UAAG,CAAI,OAAP;AAEE,+BAAmB,kEAA6B,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,4BAAe,QAAQ,CAAC,EAAG,CAAJ;;AAIvB,8BAAkB,wDAAqB,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,2BAAc,QAAQ,CAAC,EAAG,CAAJ;;AAGxB,uBAAa,qDAAmB,QAAC;AACjC,UAAY,OAAD,QAAX,EACE,cAAS,OAAO,CAAC,OAAO,MAAR,CADlB;AAGA,mBAAS,qDAAmB,QAAC,aF6H+B,mEAA+C,SAAgD,QAAmD,GAAqD,EE7HtO;AAC7B,gBAAK,WAAL,GAAoB;AACpB,qBAAW,uDAAqB,QAAC,aF0Q6B,qEAA+C,QE1Q5E;AACjC,kBAAO,WAAP,GAAsB;AACtB,mBAAS,qDAAmB,QAAC;AAC7B,gBAAK,WAAL,GAAoB;AAEpB,6BAAmB;AACnB,iCAAuB;AACvB,kCAAwB;AAGxB;AA/B6E;AAA7C;AALM;AAEtC,mBAAM,CAAC,QAAS,IAAV;AAFmD;AAAnB;AA/BM;AAE5C,qBAAW;AACX,qBAAW,8BAAO,QAAC;AAKnB,kBAAO,SAAC,CAAS,MAAT;AACR,kBAAO,UAAC,CAAU,OAAV;AACR,2BAAiB,YAAO,UAAC;AACzB,UAAG,CAAI,OAAP;AAEE,+BAAmB,kEAA6B,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,4BAAe,QAAQ,CAAC,OAAQ,OAAT;;AAIvB,8BAAkB,wDAAqB,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,2BAAc,QAAQ,CAAC,OAAQ,OAAT;;AAGxB,mBAAS,qDAAmB,QAAC,aF8J+B,mEAA+C,SAAgD,QAAmD,GAAqD,EE9JtO;AAC7B,gBAAK,WAAL,GAAoB;AACpB,qBAAW,uDAAqB,QAAC,aF2S6B,qEAA+C,QE3S5E;AACjC,kBAAO,WAAP,GAAsB;AACtB,mBAAS,qDAAmB,QAAC;AAC7B,gBAAK,WAAL,GAAoB;AACpB;AA5B4I;AAAhG;AALM;AAElD,6BAAkB,CAAC,OAAQ,QAAS,KA3Y2F,IA2Y7G;AAF4E;AAA5C;AAqgBlB;AAEhC,UAAY,mBAAD,QAAX;AAEiB,iBAAf,KAAe;AACf,8BAAkB;OAHpB;AAMA,UAAY,oBAAD,QAAX;AAEkB,iBAAhB,KAAgB;AAChB,+BAAmB;OAHrB;AAMA,UAAY,UAAD,QAAX;AAEQ,iBAAN,KAAM;AACN,qBAAS;OAHX;AAMA,UAAW,CAAC,cAAD,SAAY,IAAY,CAAC,kBAAD,SAAnC;AAEE,0BAAa,MAAK,OAAO,CAAC,cAAD;AACf,iBAAV,KAAU;AACV,yBAAa;OAJf;AAOA,UAAY,UAAD,QAAX;AAEE,kBAAK,WAAL,GAAmB;AACb,iBAAN,KAAM;AACN,qBAAS;OAJX;AAOA,UAAY,YAAD,QAAX;AAEE,oBAAO,WAAP,GAAqB;AACb,iBAAR,KAAQ;AACR,uBAAW;OAJb;AAQA,8BAAoB;AAMpB,UAAY,YAAD,QAAX;AAEU,iBAAR,KAAQ;AACR,uBAAW;OAHb;AAMA;AAtDgC;AAtDA;AAAT;AAEvB,qBAAU,iBAAO,YAAjB;AAFuB;AAAS;AAnWO;AAEvC,uBAAO;AAFgC;AALD;AAEtC,uBAAO;AAF+B;AAjHD;AAErC,uBAAO;AAF8B;AAVF;AAEnC,uBAAO;AAF4B;AAeD;AAElC,uBAAO;AAF2B;AAVF;AAEhC,uBAAO;AAFyB;AAmeC;AAEjC,uBAAO,UAAU,CAAC,uEAAD;AAFgB;AAnWH;AAE9B,UAAa,oBAAH,eAAP,MAAO,CAAV;AAEE,kBAAK;AACL,kBAAK,OAAO,CAAS,OAAP,OAAU,oBAAH,CAAmB,MAA5B;AACZ,kBAAK;AACL,oBAAO;AACP,oBAAO,OAAO,CAAS,OAAP,OAAU,oBAAH,CAAmB,QAA5B;AACd,oBAAO;AACP,kBAAK;AACL,kBAAK,aAAa,CAAS,OAAP,OAAU,oBAAH,CAAmB,MAA5B;AAClB,kBAAK;OAVP;AAF8B;AAgBC;AAE/B,UAAG,iBAAa,GAAE,CAAlB,EACE,MADF;AAGI,uBAAJ,IAAG;AACH,uBAAO,QAAQ,CAAC,KAAD;AACf,gBAAK,OAAO,CAAC,KAAD;AACR,uBAAJ,IAAG;AAR4B;AA4CE;AAEjC,UAAG,iBAAa,GAAE,CAAlB,EACE,MADF;AAGI,uBAAJ,IAAG;AACH,uBAAO,UAAU,CAAC,OAAD;AACjB,kBAAO,OAAO,CAAC,OAAD;AACV,uBAAJ,IAAG;AAR8B;AAlGG;AAEpC,UAAG,CAAI,WAAP;AAEE,oBAAO,CAAC,MAAM,MAAP;AACP,sBAAS,CAAC,MAAM,QAAP;AACT,oBAAO,CAAC,MAAM,MAAP;OAJT;AAOA,uBAAO,aAAa,CAAC,MAAD;AAEpB,YAAO,eAAP,MAAO;AAX6B;AAiED;AAEnC,UAAG,iBAAa,GAAE,CAAlB,EACE,MADF;AAGI,uBAAJ,IAAG;AACH,uBAAO,YAAY,CAAC,KAAD;AACnB,gBAAK,QAAC,CAAQ,KAAR;AACF,uBAAJ,IAAG;AARgC;AAWC;AAEpC,UAAG,iBAAa,GAAE,CAAlB,EACE,MADF;AAGI,uBAAJ,IAAG;AACH,uBAAO,aAAa,CAAC,MAAD;AACpB,gBAAK,SAAC,CAAS,MAAT;AACF,uBAAJ,IAAG;AARiC;AAkUA;AAEpC,UAAG,iBAAa,GAAE,CAAlB,EACE,MADF;AAGI,uBAAJ,IAAG;AACH,uBAAO,aAAa,CAAC,MAAD;AACpB,gBAAK,SAAC,CAAS,MAAT;AACF,uBAAJ,IAAG;AARiC;AAWD;AAEnC,UAAG,iBAAa,GAAE,CAAlB,EACE,MADF;AAGI,uBAAJ,IAAG;AACH,uBAAO,YAAY,CAAC,KAAD;AACnB,gBAAK,QAAC,CAAQ,KAAR;AACF,uBAAJ,IAAG;AARgC;AAWJ;AAE/B,UAAG,iBAAa,GAAE,CAAlB,EACE,MADF;AAGI,uBAAJ,IAAG;AACH,uBAAO,QAAQ,CAAC,KAAD;AACf,gBAAK,aAAa,CAAC,KAAD;AACd,uBAAJ,IAAG;AAR4B;AA3CI;AAEnC,UAAG,iBAAa,GAAE,CAAlB,EACE,MADF;AAGI,uBAAJ,IAAG;AACH,uBAAO,YAAY,CAAC,KAAD;AACnB,gBAAK,QAAC,CAAQ,KAAR;AACF,uBAAJ,IAAG;AARgC;AAsDE;AAErC,UAAG,iBAAa,GAAE,CAAlB,EACE,MADF;AAGI,uBAAJ,IAAG;AACH,uBAAO,cAAc,CAAC,kBAAD;AACrB,gBAAK,SAAC,CAAS,kBAAT;AACF,uBAAJ,IAAG;AARkC;AAxVA;AAErC,UAAG,iBAAa,GAAE,CAAlB,EACE,MADF;AAGI,uBAAJ,IAAG;AACH,uBAAO,cAAc,CAAC,KAAD;AACrB,kBAAO,QAAC,CAAQ,KAAR;AACJ,uBAAJ,IAAG;AARkC;AAiCC;AAEtC,UAAG,iBAAa,GAAE,CAAlB,EACE,MADF;AAGI,uBAAJ,IAAG;AACH,uBAAO,eAAe,CAAC,MAAD;AACtB,kBAAO,SAAC,CAAS,MAAT;AACJ,uBAAJ,IAAG;AARmC;AAXA;AAEtC,UAAG,iBAAa,GAAE,CAAlB,EACE,MADF;AAGI,uBAAJ,IAAG;AACH,uBAAO,eAAe,CAAC,MAAD;AACtB,kBAAO,SAAC,CAAS,MAAT;AACJ,uBAAJ,IAAG;AARmC;AAsBN;AAGhC,qBAAQ,CAAgB,yCAAf,yCAAe,CAAC,UAAD,GAA6B,yCAAf,yCAAe,CAAC,QAAD,GAAY,qBAAsB,kBAA/E;AAHwB;AAMA;AAGhC,UAAkB,CAAd,YAAO,OAAO,KAAG,EAAH,CAAW,IAAkB,CAAb,YAAO,MAAM,KAAG,mEAAH,CAA/C,EACE,iBAAO,SAAS,CAAC,aAAS,qDAAY,mDAAU,qBAAsB,kBAAtD,CADlB;AAHgC;AAo6CU;AAE1C,+BAAkB,CAAK,uBAAJ,cAAI,CAAC,MAAO,KAAM,OAAQ,OAAtB,GAAgC,OAAQ,eAA7C;AAFwB;AAaA;AAE1C,+BAAkB,CAAe,wCAAd,wCAAc,CAAC,KAAD,GAAS,OAAQ,eAAhC;AAFwB;AARA;AAE1C;AAEA,gBAAK,+BAAK,CAAC,MAAO,KAAM,OAAQ,OAAtB,CAAV;AACA,uBAAO,mBAAmB,CAAC,aAAS,2CAAG,OAAQ,eAArB;AALgB;AAaA;AAE1C,+BAAkB,CAAC,KAAK,MAAO,KAAK,KAAM,KAAK,OAAQ,KAAK,QAAS,OAAQ,eAA3D;AAFwB;AAvBL;AAErC,uBAAO,cAAc,CAAC,aAAS,MAAO,MAAjB;AAFgB;AA/4CF;AAEnC;AAEA,UAA4B,CAAX,CAAZ,UAAK,OAAO,KAAG,EAAH,CAAW,IAAgB,CAAX,UAAK,MAAM,KAAG,iEAAH,CAAhB,CAA6B,IAAe,CAAX,UAAK,MAAM,KAAE,oEAAF,CAAxE;AAEY,mBAAL,UAAK;AACR,YADQ,IACR;AAEE,gBAAO,qDAAmB,QAAC;AAC3B;AACE,eAAG,WAAW,CAAC,QAAD;AACd,4BAAW,CAAI,wCAAH,GAAG,cAAY,UAAK,UAAU,UAAK,aAApC;AAFb;AAIE,eAAI,eAAJ,GAAI;AAJN;;AAQA,2BAAO,YAAY,CAAC,WAAO,sBAAR;;OAdzB;AAkBA,UAAkB,CAAd,YAAO,OAAO,KAAG,EAAH,CAAW,IAAkB,CAAb,YAAO,MAAM,KAAG,mEAAH,CAA/C,EACE,iBAAO,YAAY,CAAC,aAAS,sBAAV,CADrB;AAtBmC;AATC;AAEpC,UAAgB,CAAZ,UAAK,OAAO,KAAG,EAAH,CAAW,IAAgB,CAAX,UAAK,MAAM,KAAG,iEAAH,CAA3C,EACE,iBAAO,aAAa,CAAC,WAAO,uBAAR,CADtB;AAGA,UAAkB,CAAd,YAAO,OAAO,KAAG,EAAH,CAAW,IAAkB,CAAb,YAAO,MAAM,KAAG,mEAAH,CAA/C,EACE,iBAAO,aAAa,CAAC,aAAS,uBAAV,CADtB;AALoC;AAmCJ;AAEhC,UAA4B,CAAX,CAAZ,UAAK,OAAO,KAAG,EAAH,CAAW,IAAgB,CAAX,UAAK,MAAM,KAAG,iEAAH,CAAhB,CAA6B,IAAe,CAAX,UAAK,MAAM,KAAE,oEAAF,CAAxE;AAEY,mBAAL,UAAK;AACR,YADQ,IACR;AAAY,0BAAW,CAAM,wCAAL,KAAK,cAAY,UAAK,UAAU,UAAK,aAAtC;;AAErB,2BAAO,SAAS,CAAC,WAAO,MAAO,SAAf;;OALtB;AASA,UAAkB,CAAd,YAAO,OAAO,KAAG,EAAH,CAAW,IAAkB,CAAb,YAAO,MAAM,KAAG,mEAAH,CAA/C,EACE,iBAAO,SAAS,CAAC,aAAS,MAAO,SAAjB,CADlB;AAXgC;AAoBD;AAE/B;AAEA,UAAgB,CAAZ,UAAK,OAAO,KAAG,EAAH,CAAW,IAAgB,CAAX,UAAK,MAAM,KAAG,iEAAH,CAA3C;AAEY,mBAAL,UAAK;AACR,YADQ,IACR;AAEE,gBAAO,qDAAmB,QAAC;AAC3B;AACE,eAAG,OAAO,CAAC,OAAQ,OAAQ,WAAY,UAA7B;AACV,4BAAW,CAAI,wCAAH,GAAG,cAAY,UAAK,UAAU,UAAK,aAApC;AAFb;AAIE,eAAI,eAAJ,GAAI;AAJN;;AAQA,2BAAO,QAAQ,CAAC,WAAO,iDAAQ,iDAAQ,WAAY,UAApC;;OAdrB;AAkBA,UAAkB,CAAd,YAAO,OAAO,KAAG,EAAH,CAAW,IAAkB,CAAb,YAAO,MAAM,KAAG,mEAAH,CAA/C,EACE,iBAAO,QAAQ,CAAC,aAAS,iDAAQ,iDAAQ,WAAY,UAAtC,CADjB;AAtB+B;AALA;AAE/B,kBAAO,CAAC,yCAAe,CAAC,MAAD,EAAU,yCAAe,CAAC,MAAD,EAAU,WAAY,UAA/D;AAFwB;AA8CM;AAErC,0BAAa,CAAC,MAAO,KAAM,OAAQ,QAAS,2CAAU,eAAzC;AAFwB;AAUA;AAErC;AACA;AAEA,gBAAK,+BAAK,CAAC,MAAO,KAAM,OAAQ,OAAtB,CAAV;AACA,UAA4B,CAAX,CAAZ,UAAK,OAAO,KAAG,EAAH,CAAW,IAAgB,CAAX,UAAK,MAAM,KAAG,iEAAH,CAAhB,CAA6B,IAAe,CAAX,UAAK,MAAM,KAAE,oEAAF,CAAxE;AAEY,mBAAL,UAAK;AACR,YADQ,IACR;AAEE,gBAAO,qDAAmB,QAAC;AAC3B;AACE,eAAG,aAAa,CAAC,EFgF0C,IAA0B,IAAwC,cAAC,kEAAW,mEAAY,qEAAc,qEAAtC,CEhF7G;AAChB,4BAAW,CAAC,2CAAG,UAAK,UAAU,UAAK,aAAxB;AAFb;AAIE,eAAI,eAAJ,GAAI;AAJN;;AAQA,2BAAO,SAAS,CAAC,WAAO,2CAAG,eAAX;;OAdtB;AAkBA,UAAkB,CAAd,YAAO,OAAO,KAAG,EAAH,CAAW,IAAkB,CAAb,YAAO,MAAM,KAAG,mEAAH,CAA/C,EACE,iBAAO,SAAS,CAAC,aAAS,2CAAG,mBAAQ,eAArB,CADlB;AAxBqC;AA2wDF;AAEnC;AACA;AAEA,gBAAK,+BAAK,CAAC,MAAO,KAAM,OAAQ,OAAtB,CAAV;AACA,UAA4B,CAAX,CAAZ,UAAK,OAAO,KAAG,EAAH,CAAW,IAAgB,CAAX,UAAK,MAAM,KAAG,iEAAH,CAAhB,CAA6B,IAAe,CAAX,UAAK,MAAM,KAAE,oEAAF,CAAxE;AAEY,mBAAL,UAAK;AACR,YADQ,IACR;AAEE,gBAAO,qDAAmB,QAAC;AAC3B;AACE,eAAG,WAAW,CAAC,CAAD;AACd,4BAAW,CAAC,2CAAG,UAAK,UAAU,UAAK,aAAxB;AAFb;AAIE,eAAI,eAAJ,GAAI;AAJN;;AAQA,2BAAO,YAAY,CAAC,WAAO,2CAAG,eAAX;;OAdzB;AAkBA,UAAkB,CAAd,YAAO,OAAO,KAAG,EAAH,CAAW,IAAkB,CAAb,YAAO,MAAM,KAAG,mEAAH,CAA/C,EACE,iBAAO,YAAY,CAAC,aAAS,2CAAG,eAAb,CADrB;AAxBmC;AAjpDE;AAErC,wBAAa,CAAC,KAAK,MAAO,KAAK,KAAM,KAAK,OAAQ,KAAK,QAAS,eAAnD;AAFwB;AAVA;AAErC,0BAAa,CAAC,KAAK,MAAO,KAAK,KAAM,KAAK,OAAQ,KAAK,QAAS,mBAAQ,eAA3D;AAFwB;AA/HA;AAErC,0BAAa,CAAM,wCAAL,+BAAK,CAAC,MAAO,KAAM,OAAQ,OAAtB,GAAgC,eAAtC;AAFwB;AAUA;AAErC,0BAAa,CAAM,wCAAL,+BAAK,CAAC,MAAO,KAAM,OAAQ,OAAtB,GAAgC,mBAAQ,eAA9C;AAFwB;AA2wDF;AAEnC,wBAAW,CAAM,wCAAL,+BAAK,CAAC,MAAO,KAAM,OAAQ,OAAtB,GAAgC,eAAtC;AAFwB;AAjpDE;AAErC,0BAAa,CAAe,wCAAd,wCAAc,CAAC,KAAD,GAAS,eAAxB;AAFwB;AAVA;AAErC,0BAAa,CAAe,wCAAd,wCAAc,CAAC,KAAD,GAAS,mBAAQ,eAAhC;AAFwB;AA1EK;AAE1C;AACA;AACA;AAEA,gBAAK,+BAAK,CAAC,MAAO,KAAM,OAAQ,OAAtB,CAAV;AACA,UAA4B,CAAX,CAAZ,UAAK,OAAO,KAAG,EAAH,CAAW,IAAgB,CAAX,UAAK,MAAM,KAAG,iEAAH,CAAhB,CAA6B,IAAe,CAAX,UAAK,MAAM,KAAE,oEAAF,CAAxE;AAEY,mBAAL,UAAK;AACR,YADQ,IACR;AAEE,gBAAO,qDAAmB,QAAC;AAC3B;AACE,iBAAM;AACN,gBAAG,oEAAa,IAAG,QAAnB;AAEE,iBAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,KAAM,GAAE,EAAF,CAAM,CAAC,OAAf,CAAP;AACV,iBAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,KAAM,GAAE,EAAF,CAAM,CAAC,OAAQ,GAAE,EAAzB,EAA8B,gCAAM,CAAC,GAAI,EAAL,EAAU,CAAC,IAAK,EAA3D;AACV,iBAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,CAAC,OAAQ,GAAE,EAApB,CAAP;;AAIV,iBAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,CAAC,OAAV,CAAP;;AAGZ,gBAAG,iEAAU,IAAG,QAAhB;AAEE,iBAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,CAAC,IAAK,GAAE,EAAjB,CAAP;AACV,iBAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,KAAM,GAAE,EAAF,CAAM,CAAC,IAAK,GAAE,EAAtB,EAA2B,gCAAM,CAAC,GAAI,EAAL,EAAU,CAAC,IAAK,EAAxD;AACV,iBAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,KAAM,GAAE,EAAF,CAAM,CAAC,IAAf,CAAP;aAGV,MAAA,GAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,CAAC,IAAV,CAAP;AAEZ,gBAAG,kEAAW,IAAG,QAAjB;AAEE,iBAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,GAAE,EAAF,CAAM,CAAC,IAAhB,CAAP;AACV,iBAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,GAAE,EAAF,CAAM,CAAC,IAAK,GAAE,EAAvB,EAA4B,gCAAM,CAAC,GAAI,EAAL,EAAU,CAAC,GAAI,EAAxD;AACV,iBAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,OAAQ,CAAC,IAAK,GAAE,EAAlB,CAAP;aAGV,MAAA,GAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,OAAQ,CAAC,IAAX,CAAP;AAEZ,gBAAG,qEAAc,IAAG,QAApB;AAEE,iBAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,OAAQ,CAAC,OAAQ,GAAE,EAArB,CAAP;AACV,iBAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,GAAE,EAAF,CAAM,CAAC,OAAQ,GAAE,EAA1B,EAA+B,gCAAM,CAAC,GAAI,EAAL,EAAU,EAAG,EAAzD;AACV,iBAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,GAAE,EAAF,CAAM,CAAC,OAAhB,CAAP;aAGV,MAAA,GAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,OAAQ,CAAC,OAAX,CAAP;AAEZ,gBAAG,oEAAa,IAAG,QAAnB;AACE,iBAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,KAAM,GAAE,EAAF,CAAM,CAAC,OAAf,CAAP;AAEV,kBAAA,GAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,CAAC,OAAV,CAAP;AAEZ,eAAG;AAEH,4BAAW,CAAC,2CAAG,UAAK,UAAU,UAAK,aAAxB;AA/Cb;AAiDE,eAAI,eAAJ,GAAI;AAjDN;;AAqDA,2BAAO,cAAc,CAAC,WAAO,2CAAG,UAAW,qBAAU,eAAhC;;OA3D3B;AA+DA,UAAkB,CAAd,YAAO,OAAO,KAAG,EAAH,CAAW,IAAkB,CAAb,YAAO,MAAM,KAAG,mEAAH,CAA/C,EACE,iBAAO,cAAc,CAAC,aAAS,2CAAG,UAAW,qBAAU,eAAlC,CADvB;AAtE0C;AArDA;AAE1C,6BAAkB,CAAC,KAAK,MAAO,KAAK,KAAM,KAAK,OAAQ,KAAK,QAAS,UAAW,qBAAU,eAAxE;AAFwB;AAgDA;AAE1C,+BAAkB,CAAM,wCAAL,+BAAK,CAAC,MAAO,KAAM,OAAQ,OAAtB,GAAgC,UAAW,qBA5rBkJ,6EA4rBnM;AAFwB;AArDA;AAE1C,+BAAkB,CAAe,wCAAd,wCAAc,CAAC,KAAD,GAAS,UAAW,qBAvoBgK,6EAuoBnM;AAFwB;AA8qEP;AAEnC,sBAAW,CAAC,KAAK,MAAO,KAAK,KAAM,KAAK,OAAQ,KAAK,QAAS,eAAnD;AAFwB;AAhwCG;AAItC;AAAG;AACH;AACA;AAEA,gBAAK,+BAAK,CAAC,iBAAkB,gBAAiB,kBAAmB,kBAAvD,CAAV;AACA,iBAAM,+BAAK,CAAC,YAAa,WAAY,aAAc,aAAxC,CAAX;AACA,UAAG,qCAAW,CAAC,CAAD,CAAI,IAAG,qCAAW,CAAC,EAAD,CAAhC,EACE,MADF;AAIA,UAAG,CAAI,YAAO,CAAC,QAAS,0CAAV,CAAd;AAGE,YAAK,oBAAe,QAAC,sBAAkB,CAAC,UAAK,CAAC,YAAa,GAAE,WAAhB,EAA8B,UAAK,CAAC,aAAc,GAAE,UAAjB,EAA8B,aApnDe,IAonDtF,CAAlB;AACrB;AACE,WAAC;AACD,WAAC,WAAW,CAAC,CAAC,YAAa,CAAC,WAAY,CAAC,WAAY,GAAE,CAAC,QAAO,SAAC,EAAX,CAAkB,CAAC,UAAW,GAAE,CAAC,QAAO,UAAC,EAAX,CAAmB,QAAS,MAAO,MAAO,MAAO,KAAxH;AACZ,WAAC;AACD,gBAAO,uCAAa,QAAC;AACrB;AACE,eAAG,OAAO,CAAC,CAAC,QAAF;AACV,6BAAU,CAAC,2CAAG,IAAK,aAAc,SAAU,QAAS,SAA1C;AAFZ;AAIE,eAAI,eAAJ,GAAI;AAJN;AALF;AAYE,WAAE,eAAF,CAAE;AAZJ;OAJF;AAdsC;AAdA;AAGtC,yBAAc,CAAC,WAAW,MAAO,WAAW,KAAM,WAAW,OAAQ,WAAW,QAAS,gBAAgB,MAAO,gBAAgB,KAAM,gBAAgB,OAAQ,gBAAgB,QAC5K,QAAS,aAAc,SAAU,QAAS,SAD9B;AAHwB;AAhFJ;AAGlC;AAEA,UAAG,CAAY,CAAC,OAAD,SAAf,EACE,MADF;AAGA,gBAAK,+BAAK,CAAC,MAAO,KAAM,OAAQ,OAAtB,CAAV;AACA,gBAAK,6BAAsB,CAAC,2CAAG,QAAS,aAAc,SAAU,QAAS,SAA9C,CAA3B;AAGA,UAAG,CAAI,YAAO,CAAC,QAAS,0CAAV,CAAd,EAEE,iBAAO,WAAW,CAAC,4CAAkB,CAAC,OAAD,EAAgB,wCAAL,+BAAK,CAAC,EAAG,EAAG,OAAO,SAAC,GAAO,OAAO,UAAC,EAA9B,GAAuC,2CAAG,CAA7E,CAFpB;AAZkC;AAZA;AAGlC,qBAAU,CAAC,KAAK,MAAO,KAAK,KAAM,KAAK,OAAQ,KAAK,QAAS,QAAS,aAAc,SAAU,QAAS,SAA7F;AAHwB;AAq2CC;AAEnC,wBAAW,CAAe,wCAAd,wCAAc,CAAC,KAAD,GAAS,eAAxB;AAFwB;AAlwCG;AAItC,2BAAc,CAAM,wCAAL,+BAAK,CAAC,YAAa,WAAY,aAAc,aAAxC,GAA6D,wCAAL,+BAAK,CAAC,iBAAkB,gBAAiB,kBAAmB,kBAAvD,GAA4E,QAAS,aAAc,SAAU,QAAS,SAAzL;AAJwB;AAbA;AAGtC,2BAAc,CAAe,wCAAd,wCAAc,CAAC,WAAD,GAA6B,wCAAd,wCAAc,CAAC,gBAAD,GAAoB,QAAS,aAAc,SAAU,QAAS,SAA1G;AAHwB;AAhFJ;AAGlC,uBAAU,CAAM,wCAAL,+BAAK,CAAC,MAAO,KAAM,OAAQ,OAAtB,GAAgC,QAAS,aAAc,SAAU,QAAS,SAAhF;AAHwB;AAZA;AAGlC,uBAAU,CAAe,wCAAd,wCAAc,CAAC,KAAD,GAAS,QAAS,aAAc,SAAU,QAAS,SAAlE;AAHwB;AALA;AAElC,uBAAU,CAAK,uBAAJ,cAAI,CAAC,MAAO,KAAM,KAAM,GAAE,OAAO,SAAC,EAAV,CAAiB,IAAK,GAAE,OAAO,UAAC,EAApD,GAA6D,QA76CoB,KACxE,MAA0B,KAA2B,KA46CnE;AAFwB;AALA;AAElC,uBAAU,CAAM,wCAAL,+BAAK,CAAC,MAAO,KAAM,KAAM,GAAE,OAAO,SAAC,EAAV,CAAiB,IAAK,GAAE,OAAO,UAAC,EAApD,GAA6D,QAj7CoB,KACzE,MAA0B,KAA2B,KAg7CnE;AAFwB;AAzIE;AAEpC;AACA;AAEA,gBAAK,KAAL;AACA,6CAAa,CAAC,EAAG,CAAC,EAAG,CAAC,CAAT;AAEb,UAAG,QAAH;AAEE,YAAG,QAAH;AACE,cAAK;AAEL,kBAAK;OAGP,UAAK;AAEP,gBAAI,QAAC,CAAQ,kEAAR;AACL,UAAG,QAAH;AACE,kBAAI,SAAC,CAAS,yCAAO,CAAC,SAAa,EAAd,CAAhB;AAEA,YAAL,UAAI,SAAC,CAAS,QAAT;AAEP,kBAAM,SAAC,CAAS,CAAT;AACP,kBAAM,QAAC,CAAQ,oEAAR;AACP,kBAAM,SAAC,CAAS,CAAT;AACP,0BAAa,CAAC,2CAn1CiF,6EAm1ClF;AACb,6CAAa,CAAC,EAAG,CAAU,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAF,CAAK,CAAW,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,CAAnD;AACb,kBAAM,SAAC,CAAS,CAAT;AACP,kBAAM,SAAC,CAAS,CAAT;AACP,UAAG,QAAH;AAOE,uBAAQ,CAAO,yCAAN,gCAAM,CAAC,CAAC,MAAO,CAAC,IAAV,GAAuB,yCAAN,gCAAM,CAAC,CAAC,MAAO,GAAE,CAAF,CAAK,CAAC,OAAQ,GAAE,CAAzB,GA52CiF,+EAAyE,8EA42CxL;AACR,uBAAQ,CAAO,yCAAN,gCAAM,CAAC,CAAC,MAAO,GAAE,CAAF,CAAK,CAAC,IAAf,GAA4B,yCAAN,gCAAM,CAAC,CAAC,MAAO,CAAC,OAAQ,GAAE,CAApB,GA72C4E,+EAAyE,8EA62CxL;OARV;AA/BoC;AArEF;AAElC;AAEA,gBAAK,KAAL;AACA,kBAAM,QAAC,CAAQ,oEAAR;AACP,kBAAM,SAAC,CAAS,CAAT;AACP,gBAAI,QAAC,CAAQ,kEAAR;AAEL,UAAG,aAAH;AAEE,YAAG,QAAH;AAEE,cAAG,CAAI,QAAP;AAEE,wBAAM,SAAC,CAAS,oBAAe,yBAAxB;AACP,sBAAI,SAAC,CAAS,oBAAe,uBAAxB;;AAIL,wBAAM,SAAC,CAAS,oBAAe,gCAAxB;AACP,sBAAI,SAAC,CAAS,oBAAe,8BAAxB;;;AAKP,sBAAM,SAAC,CAAS,oBAAe,iCAAxB;AACP,oBAAI,SAAC,CAAS,oBAAe,+BAAxB;;;AAKP,YAAG,QAAH;AAEE,cAAG,CAAI,QAAP;AAEE,wBAAM,SAAC,CAAS,QAAT;AACP,sBAAI,SAAC,CAAS,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAA1B;;AAIL,wBAAM,SAAC,CAAS,mDAAiB,CAAC,GAAI,IAAK,GAAV,CAA1B;AACP,sBAAI,SAAC,CAAS,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAA1B;;;AAKP,sBAAM,SAAC,CAAS,QAAT;AACP,oBAAI,SAAC,CAAS,QAAT;;;AAIT,0BAAa,CAAC,2CAvyCiF,6EAuyClF;AACb,6CAAa,CAAC,EAAG,CAAC,EAAG,CAAC,CAAT;AACb,gBAAI,QAAC,CAAQ,iEAAR;AAEL,UAAG,CAAI,KAAP;AACE,oBAAM,SAAC,CAAS,UAAI,OAAb;AAEA,YAAP,YAAM,SAAC,CAAS,yCAAO,CAAC,YAAM,QAAQ,EAAf,CAAhB;AAET,0BAAa,CAAC,2CAhzCiF,6EAgzClF;AA7DqB;AA/UK;AAEvC;AACA;AACA;AACA;AAEA,qBAAU,CAAC,+CAAO,MAAO,SAAU,SAAU,cAAe,YAAlD;AACV,UAAG,aAAH;AAEE,eAAQ,8BAAO,QAAC;AAChB,YAAI,QAAQ,CAAC,UAAK,CAAC,EAAG,GAAE,YAAN,EAAqB,UAAK,CAAC,EAAG,GAAE,YAAN,CAAhC;AAMZ,YAAK,oBAAe,QAAC,YAAM,CAAC,IAAI,UAAC,GA/9BuB,KA+9B7B,CAAN;AACrB;AACE,WAAC;AAQD,WAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,WAAC,QAAO,SAAC,CAAS,oBAAe,0BAAxB;AACT,WAAC,QAAO,SAAC,CAAS,CAAT;AACT,WAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,CAAE,GAAE,YAAF,CAAgB,CAAE,GAAE,YAAvB,GAA4C,yCAAN,gCAAM,CAAC,EAAG,GAAE,YAAF,CAAgB,EAAG,GAAE,YAAzB,GAAwC,+EAh9ByF,8EAg9BpL;AACV,WAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,CAAE,GAAE,YAAF,CAAgB,EAAG,GAAE,YAAxB,GAA6C,yCAAN,gCAAM,CAAC,EAAG,GAAE,YAAF,CAAgB,CAAE,GAAE,YAAxB,GAAuC,+EAj9ByF,8EAi9BpL;AAbZ;AAeE,WAAC;AACD,WAAE,eAAF,CAAE;AAhBJ;AAmBA;AACE,oBAAK,KAAL;AACA,gBAAO,uCAAa,QAAC;AACrB;AACE,eAAG,OAAO,CAAC,IAAD;AACV,6BAAU,CAAC,2CAAG,IA57B6E,KACzE,MAA0B,KAA2B,KA27B7D;AAFZ;AAIE,eAAI,eAAJ,GAAI;AAJN;AAHF;AAUE,cAAK,eAAL,IAAK;AAVP;;AAeD,cAAO,uCAAa,mBAAmB,CAAC,2BAAD;AAEtC;AACE,oBAAK,KAAL;AACA,iDAAa,CAAC,EAAG,CAAE,CAAE,GAAE,YAAF,CAAgB,CAAE,CAAE,GAAE,YAA9B;AACb,2BAAU,CAAC,2CAAG,IA38B+E,KACzE,MAA0B,KAA2B,KA08B/D;AAHZ;AAKE,aAAI,eAAJ,GAAI;AALN;;AAtDqC;AAqEG;AAE1C;AACA;AACA;AACA;AAEA,qBAAU,CAAC,+CAAO,MAAO,SAAU,SAAU,cAAe,YAAlD;AACV,UAAG,aAAH;AAEE,eAAQ,8BAAO,QAAC;AAChB,YAAI,QAAQ,CAAC,UAAK,CAAC,EAAG,GAAE,YAAN,EAAqB,UAAK,CAAC,EAAG,GAAE,YAAN,CAAhC;AAMZ,YAAK,oBAAe,QAAC,YAAM,CAAC,IAAI,UAAC,GApiCuB,KAoiC7B,CAAN;AACrB;AACE,WAAC;AAQD,WAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,WAAC,QAAO,SAAC,CAAS,CAAT;AACT,WAAC,QAAO,SAAC,CAAS,oBAAe,0BAAxB;AACJ;AACH,cADG,IACH;AAEE,aAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,CAAE,GAAE,YAAF,CAAgB,CAAE,GAAE,YAAvB,GAA4C,yCAAN,gCAAM,CAAC,CAAE,GAAE,YAAF,CAAgB,CAAE,GAAE,YAAvB,GAAsC,+EAxhCuF,8EAwhChL;AACV,aAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,CAAE,GAAE,YAAF,CAAgB,CAAE,GAAE,YAAvB,GAA4C,yCAAN,gCAAM,CAAC,EAAG,GAAE,YAAF,CAAgB,CAAE,GAAE,YAAxB,GAAuC,+EAzhCsF,8EAyhChL;WAEZ,UANG,IAMH;AAEE,aAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,CAAE,GAAE,YAAF,CAAgB,CAAE,GAAE,YAAvB,GAA4C,yCAAN,gCAAM,CAAC,CAAE,GAAE,YAAF,CAAgB,CAAE,GAAE,YAAvB,GAAsC,+EA7hCuF,8EA6hChL;AACV,aAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,CAAE,GAAE,YAAF,CAAgB,CAAE,GAAE,YAAvB,GAA4C,yCAAN,gCAAM,CAAC,EAAG,GAAE,YAAF,CAAgB,CAAE,GAAE,YAAxB,GAAuC,+EA9hCsF,8EA8hChL;WAHZ;AAlBJ;AAyBE,WAAC;AACD,WAAE,eAAF,CAAE;AA1BJ;AA6BA,YAAY,IAAD,QAAX;AAEE;AACE,sBAAK,KAAL;AACA,kBAAO,uCAAa,QAAC;AACrB;AACE,iBAAG,OAAO,CAAC,IAAD;AACV,+BAAU,CAAC,2CAAG,IA7gC2E,KACzE,MAA0B,KAA2B,KA4gC3D;AAFZ;AAIE,iBAAI,eAAJ,GAAI;AAJN;AAHF;AAUE,gBAAK,eAAL,IAAK;AAVP;SAFF;;AAkBK;AACH,YADG,KACH;AAAc,gBAAO,uCAAa,mBAAmB,CAAC,0BAAD;AACrD,kBAFG,KAEH;AAAa,gBAAO,uCAAa,mBAAmB,CAAC,wBAAD;;AAElD,gBAAO;;AAGX,YAAY,GAAD,QAAX;AAEE;AACE,sBAAK,KAAL;AACA,mDAAa,CAAC,EAAG,CAAC,CAAE,GAAE,YAAF,CAAgB,CAAC,CAAE,GAAE,YAA5B;AACb,6BAAU,CAAC,2CAAG,IApiC6E,KACzE,MAA0B,KAA2B,KAmiC7D;AAHZ;AAKE,eAAI,eAAJ,GAAI;AALN;SAFF;;AAxEwC;AA0FD;AAEzC;AACA;AACA;AACA;AAEA,qBAAU,CAAC,+CAAO,MAAO,SAAU,SAAU,cAAe,YAAlD;AACV,UAAG,aAAH;AAEE,eAAQ,8BAAO,QAAC;AAChB,YAAI,QAAQ,CAAC,UAAK,CAAC,EAAG,GAAE,YAAN,EAAqB,UAAK,CAAC,EAAG,GAAE,YAAN,CAAhC;AAMZ,YAAK,oBAAe,QAAC,YAAM,CAAC,IAAI,UAAC,GA9nCuB,KA8nC7B,CAAN;AACrB;AACE,WAAC;AAQD,WAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,WAAC,QAAO,SAAC,CAAS,CAAT;AACT,WAAC,QAAO,SAAC,CAAS,oBAAe,0BAAxB;AACJ;AACH,cADG,IACH;AAEE,aAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,CAAE,GAAE,YAAF,CAAgB,CAAE,GAAE,YAAvB,GAA4C,yCAAN,gCAAM,CAAC,CAAE,GAAE,YAAF,CAAgB,CAAE,GAAE,YAAvB,GAAsC,+EAlnCuF,8EAknChL;AACV,aAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,CAAE,GAAE,YAAF,CAAgB,CAAE,GAAE,YAAvB,GAA4C,yCAAN,gCAAM,CAAC,CAAE,GAAE,YAAF,CAAgB,EAAG,GAAE,YAAxB,GAAuC,+EAnnCsF,8EAmnChL;WAEZ,UANG,IAMH;AAEE,aAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,CAAE,GAAE,YAAF,CAAgB,CAAE,GAAE,YAAvB,GAA4C,yCAAN,gCAAM,CAAC,CAAE,GAAE,YAAF,CAAgB,CAAE,GAAE,YAAvB,GAAsC,+EAvnCuF,8EAunChL;AACV,aAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,CAAE,GAAE,YAAF,CAAgB,CAAE,GAAE,YAAvB,GAA4C,yCAAN,gCAAM,CAAC,CAAE,GAAE,YAAF,CAAgB,EAAG,GAAE,YAAxB,GAAuC,+EAxnCsF,8EAwnChL;WAHZ;AAlBJ;AAyBE,WAAC;AACD,WAAE,eAAF,CAAE;AA1BJ;AA6BA,YAAY,IAAD,QAAX;AAEE;AACE,sBAAK,KAAL;AACA,kBAAO,uCAAa,QAAC;AACrB;AACE,iBAAG,OAAO,CAAC,IAAD;AACV,+BAAU,CAAC,2CAAG,IAvmC2E,KACzE,MAA0B,KAA2B,KAsmC3D;AAFZ;AAIE,iBAAI,eAAJ,GAAI;AAJN;AAHF;AAUE,gBAAK,eAAL,IAAK;AAVP;SAFF;;AAkBK;AACH,YADG,KACH;AAAc,gBAAO,uCAAa,mBAAmB,CAAC,2BAAD;AACrD,kBAFG,KAEH;AAAa,gBAAO,uCAAa,mBAAmB,CAAC,0BAAD;;AAElD,gBAAO;;AAGX,YAAY,GAAD,QAAX;AAEE;AACE,sBAAK,KAAL;AACA,mDAAa,CAAC,EAAG,CAAC,CAAE,GAAE,YAAF,CAAgB,CAAC,CAAE,GAAE,YAA5B;AACb,6BAAU,CAAC,2CAAG,IA9nC6E,KACzE,MAA0B,KAA2B,KA6nC7D;AAHZ;AAKE,eAAI,eAAJ,GAAI;AALN;SAFF;;AAxEuC;AA0FC;AAE1C;AACA;AACA;AACA;AAEA,qBAAU,CAAC,+CAAO,MAAO,SAAU,SAAU,cApoC4H,GAooC/J;AACV,UAAG,aAAH;AAEE,eAAQ,8BAAO,QAAC;AAChB,YAAI,QAAQ,CAAC,UAAK,CAAC,CAAE,GAAE,YAAL,EAAoB,UAAK,CAAC,CAAE,GAAE,YAAL,CAA/B;AAMZ,YAAK,oBAAe,QAAC,YAAM,CAAC,IAAI,UAAC,GAxtCuB,KAwtC7B,CAAN;AACrB;AACE,WAAC;AAQD,WAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,WAAC,QAAO,SAAC,CAAS,oBAAe,0BAAxB;AACT,WAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,EAAG,CAAE,GAAE,YAAR,GAA6B,yCAAN,gCAAM,CAAC,CAAE,GAAE,YAAF,CAAgB,CAAE,GAAE,YAAvB,GAAsC,+EAxsC0G,8EAwsCpL;AACV,WAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,EAAG,CAAE,GAAE,YAAR,GAA6B,yCAAN,gCAAM,CAAC,CAAE,GAAE,YAAF,CAAgB,CAAE,GAAE,YAAvB,GAAsC,+EAzsC0G,8EAysCpL;AACV,WAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,CAAE,GAAE,YAAF,CAAgB,CAAE,GAAE,YAAvB,GAA4C,yCAAN,gCAAM,CAAC,CAAE,GAAE,YAAF,CAAgB,CAAE,GAAE,YAAvB,GAAsC,+EA1sC2F,8EA0sCpL;AACV,WAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,CAAE,GAAE,YAAF,CAAgB,CAAE,GAAE,YAAvB,GAA4C,yCAAN,gCAAM,CAAC,CAAE,GAAE,YAAF,CAAgB,CAAE,GAAE,YAAvB,GAAsC,+EA3sC2F,8EA2sCpL;AACV,WAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,CAAE,GAAE,YAAF,CAAgB,CAAE,GAAE,YAAvB,GAA4C,yCAAN,gCAAM,CAAC,CAAE,GAAE,YAAF,CAAgB,CAAE,GAAE,YAAvB,GAAsC,+EA5sC2F,8EA4sCpL;AAfZ;AAiBE,WAAC;AACD,WAAE,eAAF,CAAE;AAlBJ;AAqBA;AACE,cAAiD,CAApB,CAAzB,KAAK,MAAoB,GAAX,IAAI,SAAC,EAAP,GAAkB,CAAH,EAAG,GAAE,YAAF,CAAL,CAAoB,GAAE,KAAK,KAAP,CAAc,IAAI,CAAI,OAAvE;AACE,sBAAK,+BAAK,CAAC,KAAK,MAAoB,GAAX,IAAI,SAAC,EAAP,GAAkB,CAAH,EAAG,GAAE,YAAF,CAAL,CAAqB,KAAK,KAAM,KAAK,OAAQ,KAAK,OAA5E,CAAV;AAEA,0BAAK,KAAL;AAEF,gBAAO,uCAAa,QAAC;AACrB;AACE,eAAG,OAAO,CAAC,IAAD;AACV,6BAAU,CAAC,2CAAG,IA3rC6E,KACzE,MAA0B,KAA2B,KA0rC7D;AAFZ;AAIE,eAAI,eAAJ,GAAI;AAJN;AAPF;AAcE,cAAK,eAAL,IAAK;AAdP;;AAmBA,cAAO,uCAAa,QAAC;AACrB,WAAG,iBAAiB,CAAC,4BAAD;AAEpB;AACE,cAAG,CAAI,OAAP;AAEE,sBAAK,+BAAK,CAAC,KAAK,MAAO,GAAM,CAAH,EAAG,GAAE,YAAF,CAAN,CAAuB,KAAK,KAAM,KAAK,MAAO,GAAI,CAAF,CAAE,GAAE,YAAF,CAAJ,CAAoB,KAAK,OAApF,CAAV;AACA,mDAAa,CAAC,EAAG,CAAE,CAAE,GAAE,YAAF,CAAgB,CAAE,CAAE,GAAE,YAA9B;;AAIb,sBAAK,KAAL;AACA,mDAAa,CAAC,EAAG,CAAE,CAAE,GAAE,YAAF,CAAgB,CAAE,CAAE,GAAE,YAA9B;;AAGf,2BAAU,CAAC,2CAAG,IAptC+E,KACzE,MAA0B,KAA2B,KAmtC/D;AAZZ;AAcE,aAAI,eAAJ,GAAI;AAdN;;AA7DwC;AA+PH;AAEvC;AACA;AAEA,gBAAK,KAAL;AACA,6CAAa,CAAC,EAAG,CAAC,EAAG,CAAC,CAAT;AAEb,UAAG,QAAH;AAEE,YAAG,QAAH;AACE,cAAK;AAEL,kBAAK;OAGP,UAAK;AAEP,gBAAI,QAAC,CAAQ,kEAAR;AACL,UAAG,QAAH;AACE,kBAAI,SAAC,CAAS,yCAAO,CAAC,SAAa,EAAd,CAAhB;AAEA,YAAL,UAAI,SAAC,CAAS,QAAT;AAEP,kBAAM,QAAC,CAAQ,oEAAR;AACP,kBAAM,SAAC,CAAS,CAAT;AACP,kBAAM,SAAC,CAAS,CAAT;AACP,wBAAW,CAAC,2CA56CiF,6EA46ClF;AACX,6CAAa,CAAC,EAAG,CAAU,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAF,CAAK,CAAW,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,CAAnD;AACb,gBAAI,QAAC,CAAQ,kEAAR;AACL,gBAAI,SAAC,CAAS,CAAT;AACL,UAAG,QAAH;AAEE,0BAAW,CAAC,2CAl7C+E,6EAk7ChF;OAFb;AA/BuC;AAnDA;AAEvC;AAAG;AACH;AACA;AAAI;AAEJ,gBAAK,KAAL;AACA,iBAAM,CAAN;AAEA,WAAM,UAAI;AACV,UAAG,QAAH;AACE,kBAAI,SAAC,CAAS,yCAAO,CAAC,SAAa,EAAd,CAAhB;AAEA,YAAL,UAAI,SAAC,CAAS,QAAT;AAEP,gBAAI,QAAC,CAAQ,kEAAR;AACL,kBAAM,QAAC,CAAQ,oEAAR;AACP,kBAAM,SAAC,CAAS,QAAT;AAEP,0BAAa,CAAC,2CA53CiF,6EA43ClF;AAEb,UAAK,QAAG,CAAC,EAAG,QAAG,CAAC,OAAQ,IAAT,CAAP;AAER,UAAM,CAAF,CAAE,IAAG,CAAH,CAAsB,IAAT,CAAF,CAAE,IAAG,IAAH,CAAP,IAA0B,CAAL,IAAK,GAAE,CAAF,CAAtC;AAEE,+CAAa,CAAC,GAAI,CAAC,EAAG,CAAC,CAAV;AACb,UAAE,MAAF,GAAY,EAAE,KAAM,GAA0B,CAAJ,CAAV,CAAT,EAAE,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAF,CAAI,GAAE,IAAF,CAA1B;AAEpB,kBAAI,SAAC,CAAS,MAAT;AACL,oBAAM,SAAC,CAAS,UAAI,OAAb;AAEP,4BAAa,CAAC,4CAx4C+E,6EAw4ChF;AAEb,YAAG,SAAH;AAEE,eAAM,UAAI;AACV,oBAAI,SAAC,CAAS,UAAT;AACL,yBAAQ,CAAC,2CAAG,mBAAM,CAAC,QAAS,mBAAU,EAAP,CAAF,CAAE,GAAE,IAAF,CAAO,GAAE,GAAZ,CAAV,EAA6B,MAAO,qEAAW,qEA/yCqK,sEAA0B,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CA8yClK;AACR,oBAAI,SAAC,CAAS,EAAT;SALP;OAVF;AAmBA,gBAAI,SAAC,CAAS,EAAT;AA1CkC;AAtDH;AAEpC,uBAAY,CAAe,wCAAd,wCAAc,CAAC,KAAD,GAAS,SAAU,SAAU,SAAU,YAAtD;AAFwB;AArEF;AAElC,qBAAU,CAAe,wCAAd,wCAAc,CAAC,KAAD,GAAS,MAAO,SAAU,SAAU,cAAe,YAAlE;AAFwB;AA/UK;AAEvC,0BAAe,CAAe,wCAAd,wCAAc,CAAC,KAAD,GAAS,MAAO,SAAU,SAAU,cAAe,YAAlE;AAFwB;AAqEG;AAE1C,6BAAkB,CAAe,wCAAd,wCAAc,CAAC,KAAD,GAAS,OAAQ,MAAO,SAAU,SAAU,cAAe,YAA1E;AAFwB;AA0FD;AAEzC,4BAAiB,CAAe,wCAAd,wCAAc,CAAC,KAAD,GAAS,OAAQ,MAAO,SAAU,SAAU,cAAe,YAA1E;AAFwB;AA0FC;AAE1C,6BAAkB,CAAe,wCAAd,wCAAc,CAAC,KAAD,GAAS,MAAO,SAAU,SAAU,QAAS,cAAe,YAA3E;AAFwB;AA+PH;AAEvC,0BAAe,CAAe,wCAAd,wCAAc,CAAC,KAAD,GAAS,SAAU,SAAU,SAAU,YAAtD;AAFwB;AAnDA;AAEvC,0BAAe,CAAe,wCAAd,wCAAc,CAAC,KAAD,GAAS,OAAQ,QAAS,KAAM,OAAQ,WAAY,UAAW,SAAU,YAAxF;AAFwB;AA0dG;AAI1C;AAEA,UAAK,wCAA4B,CAAC,sBAAkB,YAAa,YAAa,MAA7C;AACjC,UAAY,CAAD,QAAX,EACE,eAAU,CAAC,MAAO,KAAM,OAAQ,QAAS,EAAG,aAAc,SAAU,QAAS,SAAnE,CADZ;AAP0C;AAjBA;AAG1C;AAEA,UAAK,wCAA4B,CAAC,sBAAkB,YAAa,YAAa,MAA7C;AACjC,UAAY,CAAD,QAAX,EACE,iBAAU,CAAC,+CAAO,EAAG,aAAc,SAAU,QAAS,SAA5C,CADZ;AAN0C;AAkCF;AAGxC;AACA;AAEA,UAAY,QAAD,QAAX;AAEE,YAAG,MAAO,GAAE,CAAZ;AACE,cAAK,QAAQ,eAAe,CAAC,MAAD;AAE5B,kBAAK,QAAQ,eAAe,CAAC,sCAAY,aPj4DU,KAA4B,CAAC,EOi4DpD;AAE9B,YAAY,CAAD,QAAX;AAEE,cAAW,CAAC,CAAC,QAAF,SAAW,IAAI,CAAI,uCAAa,CAAC,CAAC,QAAF,CAA3C;AACE,6BAAU,CAAC,+CAAO,CAAC,SAAS,aAAc,SAAU,QAAS,SAAnD;;AAGV,kBAAO,wCAA4B,CAAC,sBAAkB,CAAC,aAAa,KAAM,MAAvC;AACnC,gBAAW,CAAC,GAAD,SAAM,IAAI,CAAI,uCAAa,CAAC,GAAD,CAAtC;AACE,+BAAU,CAAC,+CAAO,IAAK,aAAc,SAAU,QAAS,SAA9C;AAEV,kBAAA,yBAAkB,CAAC,+CAAO,CAAC,aAAa,MAAO,CAAC,QAAQ,aAAc,SAAU,QAAS,SAAvE;;SAVxB;OAPF;AANwC;AA6FA;AAGxC;AACA;AAEA,UAAY,QAAD,QAAX;AAEE,YAAG,MAAO,GAAE,CAAZ;AACE,cAAK,QAAQ,eAAe,CAAC,MAAD;AAE5B,kBAAK,QAAQ,eAAe,CAAC,sCAAY,aP99DU,KAA4B,CAAC,EO89DpD;AAE9B,YAAY,CAAD,QAAX;AAEE,cAAW,CAAC,CAAC,QAAF,SAAW,IAAI,CAAI,uCAAa,CAAC,CAAC,QAAF,CAA3C;AACE,2BAAU,CAAC,MAAO,KAAM,OAAQ,QAAS,CAAC,SAAS,aAAc,SAAU,QAAS,SAA1E;;AAGV,kBAAO,wCAA4B,CAAC,sBAAkB,CAAC,aAAa,KAAM,MAAvC;AACnC,gBAAW,CAAC,GAAD,SAAM,IAAI,CAAI,uCAAa,CAAC,GAAD,CAAtC;AACE,6BAAU,CAAC,MAAO,KAAM,OAAQ,QAAS,IAAK,aAAc,SAAU,QAAS,SAArE;AAEV,kBAAA,uBAAkB,CAAC,MAAO,KAAM,OAAQ,QAAS,CAAC,aAAa,MAAO,CAAC,QAAQ,aAAc,SAAU,QAAS,SAA9F;;SAVxB;OAPF;AANwC;AArHE;AAI1C,+BAAkB,CAAM,wCAAL,+BAAK,CAAC,MAAO,KAAM,OAAQ,OAAtB,GAAgC,YAAa,YAAa,OAAQ,aAAc,SAAU,QAAS,SAAzG;AAJwB;AAhBA;AAG1C,+BAAkB,CAAe,wCAAd,wCAAc,CAAC,KAAD,GAAS,YAAa,YAAa,OAAQ,aAAc,SAAU,QAAS,SAA3F;AAHwB;AAkCF;AAGxC,2BAAgB,CAAe,wCAAd,wCAAc,CAAC,KAAD,GAAS,SAAU,OAAQ,aAAc,SAAU,QAAS,SAA3E;AAHwB;AAmCA;AAGxC,2BAAgB,CAAM,wCAAL,+BAAK,CAAC,MAAO,KAAM,OAAQ,OAAtB,GAAgC,SAAU,OAAQ,aAAc,SAAU,QAAS,SAAzF;AAHwB;AAnLK;AAAtB;AAGvB;AACA;AACA;AAAG;AACH;AAAG;AAEH,qBAAU,+BAAK,CAAC,EAAG,EAAG,EAAG,CAAV,CAAf;AACA,YAAO;AACP,UAAY,GAAD,QAAX;AAEE,YAAK;AACL,YAAK;AACL,YAAK;AACL,YAAK;AACL,iCAAa,CAAC;;;;aAAG;;;;aAAG,GAAG,SAAC,GAAO,GAAG,UAAC,GAAQ,MAAO,GAAE,KAAF,CAAS,OAAQ,GAAE,IAAF,CAAQ,aAAc,SAAU,SAAtF;AACb,YAAG,OAAQ,IAAG,SAAd;AAEE,cAAK,UAAK,CAAiB,CAAf,MAAe,GAAN,KAAF,GAAU,CAAF,CAAK,GAAE,CAAxB;AACV,cAAK,UAAK,CAAiB,CAAf,OAAe,GAAL,IAAF,GAAS,CAAF,CAAK,GAAE,CAAxB;SAHZ;AAMA,sBAAS,+BAAK,CAAC,KAAM,GAAE,CAAF,CAAK,IAAK,GAAE,CAAF,CAAK,KAAU,GAAF,CAAF,GAAM,CAAF,CAAK,IAAS,GAAF,CAAF,GAAM,CAAhD,CAAd;AACA,uBAAU,KAAV;OAdF;AAVuB;AAAsB;AAkCA;AAAtB;AAGvB,qBAAU,2BAAsB,CAAC,KAAK,MAAO,KAAK,KAAM,KAAK,OAAQ,KAAK,QAAS,QAAS,aAAc,SAAU,QAAS,SAA7F,CAAhC;AAHuB;AAAsB;AAxCA;AAAtB;AAGvB,qBAAU,uCAAa,CAAC,6BAAsB,CAAM,wCAAL,+BAAK,CAAC,MAAO,KAAM,OAAQ,OAAtB,GAAgC,QAAS,aAAc,SAAU,QAAS,SAAhF,CAAvB,CAAvB;AAHuB;AAAsB;AAkCA;AAAtB;AAGvB,qBAAU,uCAAa,CAAC,6BAAsB,CAAe,wCAAd,wCAAc,CAAC,KAAD,GAAS,QAAS,aAAc,SAAU,QAAS,SAAlE,CAAvB,CAAvB;AAHuB;AAAsB;AA0Pb;AAEhC,uBAAO,SAAS,CAAC,8CAAD;AAFgB;AAhbS;AAAlB;AAIvB,eAA8B,MAAwB,+BAA0B,CAAC,YAAa,WAAY,aAAc,cACtH,iBAAkB,gBAAiB,kBAAmB,mBAAoB,QAAS,aAAc,SAAU,QAAS,SADtC;AAJzD;AAAkB;AA+mCD;AAAjB;AAEvB;AAEA,gBAAK,kBAAa,CAAC,MAAO,+CAAO,cAA4C,YAA3D,CAAlB;AACA,YAAM,GAAN,GAAa,CAAC,MAAO,GAAE,CAAC,KAAH;AACrB,YAAM,GAAN,GAAa,CAAC,OAAQ,GAAE,CAAC,IAAH;AANC;AAAiB;AA2BC;AAAlB;AAEvB;AAEA,gBAAK,kBAAa,CAAC,MAAO,+CAAO,cAA4C,YAA3D,CAAlB;AACA,eAAU,CAAC,MAAO,GAAE,CAAC,KAAH;AALK;AAAkB;AAbC;AAAnB;AAEvB;AAEA,gBAAK,kBAAa,CAAC,MAAO,+CAAO,cAA4C,YAA3D,CAAlB;AACA,eAAU,CAAC,OAAQ,GAAE,CAAC,IAAH;AALI;AAAmB;AA8CvC,iBAA2B,OAAQ,OAAnC;AATiC;AAAb;AAGvB;AACA;AAAG;AAAG;AACN;AACA;AACA;AAIA,qBAAU,KAAV;AAGA,UAAK,0BAAqB,IAAI,sCAAY,OAAO,CAAC,KAAD,CAAvB;AAK1B,UAAG,CAAH;AAEE,aAAI,IAAK,GAAL,CAAsB,OAAtB,CAAsB,EAA1B;AAEE,cAAK,cAAG,CAAC,KAAG,CAAC,CAAD,EAAK,sBAAS,CAAC,KAAD,CAAlB;AACR,cAAY,KAAG,CAAC,CAAD,CAAJ;;AAGb,YAAM,CAAF,CAAE,GAAE,CAAF,CAAK,IAAO,CAAF,CAAE,GAAE,CAAF,CAAlB;AAEE,gBAAO,uBAAW,QAAC;AACnB;AACE,eAAG,aAAC,CAAa,eAAI,CAAC,MAAO,EAAG,CAAX,CAAjB;AACJ,eAAG,WAAC,CAAQ,KAAR;AAEJ,gBAAK;AACL,qBAAS,QAAe,OAAV,GAAG,SAAC,EAAM,GAAE,CAAF,kBAAxB;AAAI;AAEF,wBAAK,0BAAqB,CAAC,GAAG,KAAC,CAAD,EAAK,+CAAO,cAA4C,YAA5D,CAA1B;AACA,kBAAK,CAAE,GAAY,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAZ;;AAGT,kBAAM,OAAN,GAAiB,MAAM,IAAK,GAAE,CAAF;AAX9B;AAcE,eAAI,eAAJ,GAAI;AAdN;SAkBA,UAAK;OA7BT;AAgCA,UAAG,CAAI,CAAP,EACE,eAAU,0BAAqB,CAAC,MAAO,+CAAO,cAA4C,YAA3D,CAA/B,CADF;AAnDuB;AAAa;AAjFI;AAAjB;AAEvB,qBAAU,sBAAiB,CAAC,MAAY,wCAAL,+BAAK,CAAC,EAAG,EAAG,MAAO,KAAd,GAriF4C,MAA4D,IAqiFrH,CAA3B;AAFuB;AAAiB;AAoBC;AAAlB;AAEvB,eAAU,uBAAkB,CAAC,MAAY,wCAAL,+BAAK,CAAC,EAAG,EAAG,MAAO,KAAd,GAxjF4C,MAA4D,IAwjFrH;AAFL;AAAkB;AAVC;AAAnB;AAEvB,eAAU,wBAAmB,CAAC,MAAY,wCAAL,+BAAK,CAAC,EAAG,EAAG,MAAO,KAAd,GA7iF4C,MAA4D,IA6iFrH;AAFN;AAAmB;AA4DN;AAAb;AAEvB,qBAAU,kBAAa,CAAC,MAAY,wCAAL,+BAAK,CAAC,EAAG,EAAG,MAAO,KAAd,GAxmF4C,MAA4D,IAwmFrH,CAAvB;AAFuB;AAAa;AA5uBJ;AAEhC,qBAAQ,CAAc,uBAAb,yCAAa,CAAC,KAAD,EAAd;AAFwB;AA+rBQ;AAAjB;AAEvB,qBAAU,uCAAa,CAAC,sBAAiB,CAAC,MAAqB,wCAAd,wCAAc,CAAC,KAAD,GAAS,cAA4C,YAA3E,CAAlB,CAAvB;AAFuB;AAAiB;AA2BC;AAAlB;AAEvB,eAAU,UAAK,CAAC,uBAAkB,CAAC,MAAqB,wCAAd,wCAAc,CAAC,KAAD,GAAS,cAA4C,YAA3E,CAAnB;AAFQ;AAAkB;AAbC;AAAnB;AAEvB,eAAU,UAAK,CAAC,wBAAmB,CAAC,MAAqB,wCAAd,wCAAc,CAAC,KAAD,GAAS,cAA4C,YAA3E,CAApB;AAFQ;AAAmB;AAoCN;AAAb;AAGvB,qBAAU,uCAAa,CAAC,kBAAa,CAAC,MAAqB,wCAAd,wCAAc,CAAC,KAAD,GAAS,cAA4C,YAA3E,CAAd,CAAvB;AAHuB;AAAa;AAhFO;AAApB;AAEvB,qBAAU,uCAAa,CAAC,wBAAiB,CAAC,KAAD,CAAlB,CAAvB;AAFuB;AAAoB;AAoBC;AAArB;AAEvB,eAAU,UAAK,CAAC,yBAAkB,CAAC,KAAD,CAAnB;AAFQ;AAAqB;AAVC;AAAtB;AAEvB,eAAU,UAAK,CAAC,0BAAmB,CAAC,KAAD,CAApB;AAFQ;AAAsB;AA4DN;AAAhB;AAEvB,qBAAU,uCAAa,CAAC,oBAAa,CAAC,KAAD,CAAd,CAAvB;AAFuB;AAAgB;AAhcR;AAAR;AAEvB;AAAY;AAAe;AAE3B,mBAAc;AACd,sBAAiB;AACjB,qBAAgB;AAEhB,eAAU,eAAQ,CAAM,wCAAL,+BAAK,CAAC,MAAM,GAAI,MAAM,GAAI,MAAM,EAAG,GAAE,KAAF,CAAS,MAAM,EAAG,GAAE,KAAlD,GAA0D,MAAO;;;;WAAY;;;;WAAe;;;;WAAc,MAAO,sEAAY,sEAAY,sEAAS,OAAQ,CAAC,EAAG,CAAC,EAAgC,aAAc,YAAa,GAAI,EAApO;AARK;AAAQ;AAWA;AAAR;AAIvB;AAAY;AAAe;AAE3B,mBAAc;AACd,sBAAiB;AACjB,qBAAgB;AAChB,eAAU,eAAQ,CAAC,+CAAO,MAAO;;;;WAAY;;;;WAAe;;;;WAAc,cAAe,iBAAkB,eAAgB,UAAW,OAAQ,UAAW,WAAyC,aAAc,YAAa,GAAI,EAA/M;AATK;AAAQ;AAhPA;AAAR;AAIvB;AAAY;AAAe;AAE3B,mBAAc;AACd,sBAAiB;AACjB,qBAAgB;AAChB,eAAU,eAAQ,CAAM,wCAAL,+BAAK,CAAC,MAAO,KAAM,OAAQ,OAAtB,GAAgC,MAAO;;;;WAAY;;;;WAAe;;;;WAAc,cAAe,iBAAkB,eAAgB,UACvJ,OAAQ,UAAW,WAAyC,aAAc,YAAa,GAAI,EAD3E;AATK;AAAQ;AAkNA;AAAR;AAIvB;AAAY;AAAe;AAE3B,mBAAc;AACd,sBAAiB;AACjB,qBAAgB;AAChB,eAAU,eAAQ,CAAe,wCAAd,wCAAc,CAAC,KAAD,GAAS,MAAO;;;;WAAY;;;;WAAe;;;;WAAc,cAAe,iBAAkB,eAAgB,UAAW,OAAQ,UAAW,WAAyC,aAAc,YAAa,GAAI,EAA/N;AATK;AAAQ;AA/NA;AAAR;AAIvB;AAAY;AAAe;AAE3B,mBAAc;AACd,sBAAiB;AACjB,qBAAgB;AAChB,eAAU,eAAQ,CAAM,wCAAL,+BAAK,CAAC,MAAO,KAAM,OAAQ,OAAtB,GAAgC,MAAO;;;;WAAY;;;;WAAe;;;;WAAc,cAAe,iBAAkB,eAAgB,UACvJ,OAAQ,UAAW,WAAyC,aAAc,YAAa,GAAI,EAD3E;AATK;AAAQ;AAkR5B,eAA2B,OAAQ,OAAnC;AAT4B;AAAR;AAIvB;AACA;AAAG;AAAG;AACN;AACA;AAAG;AAIH,iBAAM,KAAN;AAGA,UAAM,CAAI,WAAa,IAAI,0BAAJ;AAKvB,UAAK,CAAE,IAAI,sCAAY,OAAO,CAAC,KAAD,CAAvB;AAEP,UAAG,CAAH;AAEE,aAAI,IAAK,GAAL,CAAsB,OAAtB,CAAsB,EAA1B;AAEE,cAAK,cAAG,CAAC,GAAG,CAAC,CAAD,EAAK,sBAAS,CAAC,KAAD,CAAlB;AACR,cAAY,GAAG,CAAC,CAAD,CAAJ;;AAGb,YAAM,CAAF,CAAE,GAAE,CAAF,CAAK,IAAO,CAAF,CAAE,GAAE,CAAF,CAAlB;AAEE,gBAAO,uBAAW,QAAC;AACnB;AACE,eAAG,aAAC,CAAa,eAAI,CAAC,MAAO,EAAG,CAAX,CAAjB;AACJ,eAAG,WAAC,CAAQ,KAAR;AAEJ,qBAAS,QAAe,OAAV,GAAG,SAAC,EAAM,GAAE,CAAF,kBAAxB;AAAI;AAEF,wBAAK,kBAAa,CAAC,GAAG,KAAC,CAAD,EAAK,4CAAI,cAA4C,YAAzD,CAAlB;AACA,mCAAgB,CAAM,wCAAL,+BAAK,CAAC,CAAC,MAAO,CAAC,KAAM,CAAC,MAAO,GAAE,CAAF,CAAK,CAAC,OAA9B,GAAwC,GAAG,KAAC,CAAD,EAAK,WAAY,cAAe,aAAc,cAAe,iBAAkB,eAC9I,UAAW,OAAQ,UAAW,WAAyC,aAAc,YAAa,GAAI,EADxF;AAGhB,gBAAE,IAAF,GAAU,EAAE,IAAK,GAAY,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAZ;AACjB,gBAAE,OAAF,GAAa,EAAE,OAAQ,GAAY,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAZ;;AAX3B;AAeE,eAAI,eAAJ,GAAI;AAfN;SAmBA,UAAK;OA9BT;AAiCA,UAAG,CAAI,CAAP;AAEE,iBAAU,qBAAgB,CAAC,+CAAO,MAAO,WAAY,cAAe,aAAc,cAAe,iBAAkB,eACjH,UAAW,OAAQ,UAAW,WAAyC,aAAc,YAAa,GAAI,EAD9E;OAF5B;AAtDuB;AAAQ;AAvOA;AAAR;AAIvB,eAAU,eAAQ,CAAM,wCAAL,+BAAK,CAAC,MAAO,KAAM,OAAQ,OAAtB,GAAgC,MAAO,WAAY,cAAe,aAAc,cAAe,iBAAkB,eAAgB,UACvJ,OAAQ,UAAW,WAAyC,aAAc,YAAa,GAAI,EAD3E;AAJK;AAAQ;AAyMA;AAAR;AAIvB,eAAU,eAAQ,CAAe,wCAAd,wCAAc,CAAC,KAAD,GAAS,MAAO,WAAY,cAAe,aAAc,cAAe,iBAAkB,eAAgB,UAAW,OAAQ,UAAW,WAAyC,aAAc,YAAa,GAAI,EAA/N;AAJK;AAAQ;AAjNA;AAAR;AAIvB,eAAU,eAAQ,CAAM,wCAAL,+BAAK,CAAC,MAAO,KAAM,OAAQ,OAAtB,GAAgC,MAAO,WAAY,cAAe,aAAc,cAAe,iBAAkB,eAAgB,UACvJ,OAAQ,UAAW,WAAyC,aAAc,YAAa,GAAI,EAD3E;AAJK;AAAQ;AA/lDC;AAAT;AAEvB,eAAU,0DAAwB,QAAC;AAEnC,UAAG,CAAI,WAAP;AAEE,cAAM,MAAK,OAAO,CAAC,UAAD;AAClB,cAAM,QAAO,OAAO,CAAC,YAAD;AACpB,cAAM,MAAK,aAAa,CAAC,UAAD;OAJ1B;AAOA,uBAAO,UAAU,CAAC,MAAD;AAXM;AAAS;AAs1CS;AAAZ;AAE7B,eAAU,sCAAO,CAAC,MAAO,SAAU,KAAM,QAAS,KAAjC;AAFY;AAAY;AAKgB;AAA5B;AAE7B,eAAU;AACV,UAAW,CAAC,gBAAD,SAAmB,IAAW,CAAN,KAAM,KAAG,EAAH,CAAzC;AAEE,YAAG,WAAH;AAEE,cAAG,MAAO,GAAE,CAAZ;AACE,qBAAwB,gBAAgB,aAAW,CAAC,KAAY,GAAJ,GAAF,GAAQ,uBAAU,CAAC,MAAD,CAAzB;AAEnD,yBAAwB,gBAAgB,aAAW,CAAC,KAAY,GAAJ,GAAF,GAAQ,uBAAU,CAAC,sCAAY,aPt0DxC,KAA4B,CAAC,EOs0DF,CAAzB;SALvD;AAQA,YAAG,CAAY,CAAC,MAAD,SAAf,EACE,SAAwB,gBAAgB,aAAW,CAAC,KAAD,CADrD;OAVF;AAH6B;AAA4B;AAtCb;AAAf;AAE7B;AACA;AAEA,eAAU;AACV,UAAY,QAAD,QAAX;AAEE,YAAG,MAAO,GAAE,CAAZ;AACE,cAAK,QAAQ,eAAe,CAAC,MAAD;AAE5B,kBAAK,QAAQ,eAAe,CAAC,sCAAY,aPjyDU,KAA4B,CAAC,EOiyDpD;AAE9B,YAAY,CAAD,QAAX;AAEE,cAAW,CAAC,CAAC,QAAF,SAAW,IAAI,CAAI,uCAAa,CAAC,CAAC,QAAF,CAA3C;AACE,qBAAU,CAAC;;AAGX,kBAAO,iCAA4B,CAAC,iBAAkB,CAAC,aAAa,KAAM,MAAvC;AACnC,gBAAW,CAAC,GAAD,SAAM,IAAI,CAAI,uCAAa,CAAC,GAAD,CAAtC;AACE,uBAAU;;AAGV,oBAAO,iCAA4B,CAAC,iBAAkB,CAAC,aAAa,MAroD0E,CAqoD3G;AACnC,kBAAW,CAAC,GAAD,SAAM,IAAI,CAAI,uCAAa,CAAC,GAAD,CAAtC,EACE,SAAU,GADZ;;;SAZN;OAPF;AAN6B;AAAe;AAjJD;AAG3C;AAAK;AAEL,UAAG,YAAH;AAEE,YAAmB,CAAf,cAAe,GAAE,CAAF,CAAmD,IAAzB,CAAhB,eAAgB,GAAE,CAAF,CAArB,IAAyC,CAAV,SAAU,GAAE,CAAF,CAAf,IAAoC,CAAX,UAAW,GAAE,CAAF,CAAtF;AAEE,cAAmB,CAAf,cAAe,GAAE,SAAF,CAAgD,IAAd,CAAhB,eAAgB,GAAE,UAAF,CAArB,IAAwC,CAAI,QAA5E;AAEE,uBAAU,cAAV;AACA,wBAAW,eAAX;;AAIA,gBAAkB,CAAf,cAAe,GAAE,eAAF,CAAkB,GAAY,CAAV,SAAU,GAAE,UAAF,CAAhD;AAEE,0BAAW,UAAX;AACA,yBAAqB,CAAX,UAAW,GAAE,cAAF,CAAiB,GAAE,eAAxC;;AAIA,yBAAU,SAAV;AACA,0BAAqB,CAAV,SAAU,GAAE,eAAF,CAAkB,GAAE,cAAzC;;;;AAMJ,qBAAU,CAAV;AACA,sBAAW,CAAX;;;AAKF,YAAG,QAAH;AAEE,qBAAU,SAAV;AACA,sBAAW,UAAX;;AAIA,qBAAU,cAAV;AACA,sBAAW,eAAX;AAEA,cAAG,SAAH;AAEE,gBAAW,CAAP,YAAO,IAAG,aAAH,CAAY,IAAY,CAAP,YAAO,GAAE,CAAF,CAAnC;AAEE,0BAA0B,CAAf,cAAe,GAAE,YAAF,CAAS,GAAE,aAArC;AACA,yBAAU,cAAV;aAGF,UAAY,CAAR,aAAQ,IAAG,YAAH,CAAW,IAAa,CAAR,aAAQ,GAAE,CAAF,CAApC;AAEE,yBAA0B,CAAhB,eAAgB,GAAE,aAAF,CAAU,GAAE,YAAtC;AACA,0BAAW,eAAX;aAHF;AAMA,gBAAG,aAAQ,KAAE,CAAb;AACE,mBAAM;AAEN,uBAAM,YAAO,GAAE,aAAF;AAEf,gBAAG,eAAgB,KAAE,CAArB;AACE,oBAAO;AAEP,wBAAO,cAAe,GAAE,eAAF;AAExB,gBAAO,CAAH,EAAG,GAAE,CAAF,CAAK,IAAQ,CAAJ,GAAI,GAAE,EAAF,CAApB;AAEE,0BAAW,cAAe,GAAE,EAA5B;AACA,yBAAU,cAAV;;AAIA,yBAAU,EAAG,GAAE,eAAf;AACA,0BAAW,eAAX;;WAhCJ;;;AA9CuC;AAm9BH;AAExC;AAEA,UAAK,oBAAe,QAAC,YAAM,CAAC,QA/lF8B,KA+lF/B,CAAN;AACrB;AACE,SAAC,MAAK,QAAC,CAAQ,aAAR;AACP,SAAC,MAAK,QAAC,CAAQ,EAAR;AACP,SAAC,MAAK,SAAC,CAAS,QAAT;AACP,SAAC,MAAK,QAAC,CAAQ,qEAAR;AACP,SAAC,MAAK,SAAC,CAAS,KAAT;AACP,SAAC,MAAK,WAAC,CAAW,QAAX;AACP,SAAC,QAAO,SAAC,CAAS,OAAT;AACT,SAAC,gBAAc,CAAC,+CA9jF6E,6EA8jF9E;AACf,SAAC,WAAS,CAAC,+CAAO,SAAU,MAAO,qEAh+EiJ,qEAAoD,sEAA0B,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CA+9ElK;AATZ;AAWE,SAAE,eAAF,CAAE;AAXJ;AALwC;AApGa;AAEtC,gDAAf,GAAyC;AAC1B,kDAAf,GAA2C;AAC5B,iDAAf,GAA0C,mDAAiB,CAAC,IAAK,IAAK,GAAX;AAC5C,mDAAf,GAA4C;AAC7B,+CAAf,GAAwC;AACzB,oDAAf,GAA6C;AAC9B,wDAAf,GAAiD,mDAAiB,CAAC,IAAK,IAAK,GAAX;AACnD,0DAAf,GAAmD,mDAAiB,CAAC,GAAI,IAAK,GAAV;AACrD,2DAAf,GAAoD;AACrC,yDAAf,GAAkD;AAXG;AA4IX;AAAb;AAE7B,UAAG,OAAQ,GAAE,CAAb;AACE,iBAAgD,CAAtC,gBAAG,CAAW,CAAT,MAAM,EAAG,GAAE,OAAO,EAAT,CAAa,GAAE,OAA1B,CAAmC,GAAE,gBAAG,CAAW,CAAT,MAAM,EAAG,GAAE,OAAO,EAAT,CAAa,GAAE,OAA1B,CAAL,CAAwC,IAAG,CAAH;AAExF,qBAAU;AALiB;AAAa;AAaF;AAAX;AAE7B,eAAU,KAAK,eAAe,CAAC,MAAD;AAFD;AAAW;AALA;AAAX;AAE7B,eAAU,gBAAW,CAAgB,yCAAf,yCAAe,CAAC,MAAD,GAAU,KAA1B;AAFQ;AAAW;AAvBG;AAAd;AAE7B,eAAU,6CAAW,CAAC,iDAAQ,sBAAT;AAFQ;AAAc;AALA;AAAd;AAE7B,eAAU,mBAAc,CAAgB,yCAAf,yCAAe,CAAC,MAAD,GAAU,sBAA1B;AAFK;AAAc;AAeH;AAAX;AAE7B,eAAU,oCAAU,CAAC,MAAO,MAAR;AAFS;AAAW;AALA;AAAX;AAE7B,eAAU,gBAAW,CAAgB,yCAAf,yCAAe,CAAC,MAAD,GAAwB,wCAAd,wCAAc,CAAC,KAAD,EAAxC;AAFQ;AAAW;AAphBA;AAAX;AAM7B,eAAU,iCAAU,CAAC,MAAD;AACpB,eAAU,gCAAS,CAAC,MAAD;AAPU;AAAW;AAWE;AAAb;AAM7B,eAAU,iCAAU,CAAC,MAAD;AACpB,eAAU,gCAAS,CAAC,MAAD;AAPU;AAAa;AAWD;AAAZ;AAM7B,eAAU,iCAAU,CAAC,MAAD;AACpB,eAAU,gCAAS,CAAC,MAAD;AAPU;AAAY;AAoE7B,uBAAG;AACP,mBAAyB;AAHO;AAAX;AAK7B;AACA;AAKA,UAAK;AAOL,UAAK,iCAAU,CAAC,MAAD;AAEf,eAAU;AACV,YAAM,iBAAN,OAAS,CAAF,CAAE,GAAE,CAAF,MAAQ,QAAQ,CAAC,gBAAW,CAAC,CAAD,CAAI,KAAI,CAApB,CAAnB;AACN,YAAM,iBAAN,OAAS,CAAF,CAAE,GAAE,CAAF,MAAQ,QAAQ,CAAC,gBAAW,CAAC,CAAD,CAAI,GAAI,GAApB,CAAnB;AACN,YAAM,iBAAN,OAAS,CAAF,CAAE,GAAE,CAAF,MAAQ,QAAQ,CAAC,kBAAa,CAAC,CAAD,CAAI,KAAI,CAAtB,CAAnB;AACN,YAAM,iBAAN,OAAS,CAAF,CAAE,GAAE,CAAF,MAAQ,QAAQ,CAAC,kBAAa,CAAC,CAAD,CAAI,GAAI,GAAtB,CAAnB;AACN,YAAM,iBAAN,OAAS,CAAF,CAAE,GAAE,CAAF,MAAQ,QAAQ,CAAC,iBAAY,CAAC,CAAD,CAAI,KAAI,CAArB,CAAnB;AACN,YAAM,iBAAN,OAAS,CAAF,CAAE,GAAE,CAAF,MAAQ,QAAQ,CAAC,iBAAY,CAAC,CAAD,CAAI,GAAI,GAArB,CAAnB;AA1BuB;AAAW;AA5BA;AAAX;AAE7B;AAAE;AAAE;AAEJ,eAAU;AACV,UAAG,KAAM,KAAE,EAAX,EACE,aADF;AAGA,UAAU,KAAD,OAAQ,KAAE,CAAnB;AAEE,YAAK,qBAAQ,CAAC,GAAsB,GAAhB,eAAI,CAAC,MAAM,EAAE,CAAT,CAAN,GAAoB,eAAI,CAAC,MAAM,EAAE,CAAT,CAA7B;AACb,YAAK,qBAAQ,CAAC,GAAsB,GAAhB,eAAI,CAAC,MAAM,EAAE,CAAT,CAAN,GAAoB,eAAI,CAAC,MAAM,EAAE,CAAT,CAA7B;AACb,YAAK,qBAAQ,CAAC,GAAsB,GAAhB,eAAI,CAAC,MAAM,EAAE,CAAT,CAAN,GAAoB,eAAI,CAAC,MAAM,EAAE,CAAT,CAA7B;;AAIb,YAAK,qBAAQ,CAAC,GAAI,GAAE,eAAI,CAAC,MAAM,EAAE,CAAT,CAAX;AACb,YAAK,qBAAQ,CAAC,GAAI,GAAE,eAAI,CAAC,MAAM,EAAE,CAAT,CAAX;AACb,YAAK,qBAAQ,CAAC,GAAI,GAAE,eAAI,CAAC,MAAM,EAAE,CAAT,CAAX;;AAIf,eAAU,0BAAG,CAAC,EAAG,EAAG,CAAP;AAtBgB;AAAW;AA3BA;AAAX;AAE7B;AACA;AACA;AAEA,UAAK;AAEL,UAAK,sBAAS,CAAC,CAAD;AACd,UAAG,cAAG,CAAC,KAAK,CAAN,CAAS,KAAE,CAAjB,EACE,iBAAM,CAAC;;;;WAAE,EAAE,CAAL,CADR;AAGA,UAAG,cAAG,CAAC,MAAM,CAAP,CAAU,KAAE,CAAlB,EACE,iBAAM,CAAC;;;;WAAE,EAAE,CAAL,CADR;AAGA,UAAG,cAAG,CAAC,KAAK,CAAN,CAAS,KAAE,CAAjB,EACE,iBAAM,CAAC;;;;WAAE,EAAE,CAAL,CADR;AAGA,eAAU;AACV,UAAK;AACL,UAAY,CAAD,QAAX;AAEE,YAAG,CAAC,YAAY,CAAC,EAAG;;;;YAAJ,CAAhB,EACE,SAAU,CAAC,OADb;OAFF;AApB6B;AAAW;AA5rEzB;AA2PM,6FAEF,SACS,mBACA,mBACH,eALJ;;AAEF,6BAAe,aA7PnB,6BA6PmB,EAA6B,SH/EzD,yCG+EyD,CAA5C;AACS,uCAAO,qBAAP;AACA;AACH,oCAAY,eHlF/B,yCGkF+B,CAAZ;AALJ;AAUF,6BAAG,gHAE0F,GAD1F,0FADgH,GAEhH,0FAD0F,GAE1F,0CAD0F;AAE9F,4BAAG,iHAC2F,GAA3F,2FADiH,GAEjH,wFAD2F;AAE7F,6BAAG,0FAG0F,GAF1F,0FAD0F,GAE1F,0FAD0F,GAE1F,0FAD0F,GAE1F,oBAD0F;AAEhG,0BAAG,mHAC6F,GAA7F,6FADmH,GAEnH,wCAD6F;AAE/F,2BAAG,4FAG6F,GAF7F,4FAD4F,GAE5F,4FAD4F,GAE5F,6FAD4F,GAE5F,OAD6F;AAEhG,2BAAG,6FAK6F,GAJ7F,6FAD6F,GAE7F,6FAD6F,GAE7F,6FAD6F,GAE7F,6FAD6F,GAE7F,6FAD6F,GAE7F,sEAD6F;AAE/F,4BAAG,4FAK4F,GAJ5F,4FAD4F,GAE5F,4FAD4F,GAE5F,4FAD4F,GAE5F,4FAD4F,GAE5F,4FAD4F,GAE5F,gBAD4F;AAE9F,6BAAG,gHAC0F,GAA1F,0FADgH,GAEhH,8DAD0F;AAE9F,4BAAG,iHAC2F,GAA3F,2FADiH,GAEjH,gDAD2F;AAE5F,8BAAG,+GACyF,GAAzF,yFAD+G,GAE/G,oDADyF;AAGzF,iCAAG,2GAUxB,GATC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,wCAAD;AAEmB,+BAAG,2GAUtB,GATC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,wCAAD;AAEiB,6BAAG,4GAWpB,GAVC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,gBAAD;AAEoB,gCAAG,4GAUvB,GATC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,uFAAD;AAEmB,+BAAG,4GAUtB,GATC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,mDAAD;AAEoB,gCAAG,qIAavB,GAZC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,qGAAD,GACC,aAAD;AAwnFJ;AAEE,2CAAa,mBAAmB,CAAC,wBAAD;AAChC,2CAAa,mBAAmB,CAAC,uBAAD;AAChC,2CAAa,mBAAmB,CAAC,wBAAD;AAChC,2CAAa,mBAAmB,CAAC,uBAAD;AAChC,2CAAa,mBAAmB,CAAC,yBAAD;AAChC,2CAAa,mBAAmB,CAAC,sBAAD;AAChC,2CAAa,mBAAmB,CAAC,uBAAD;AAChC,2CAAa,mBAAmB,CAAC,uBAAD;AAChC,2CAAa,mBAAmB,CAAC,wBAAD;AAChC,2CAAa,mBAAmB,CAAC,qBAAD;AAChC,2CAAa,mBAAmB,CAAC,sBAAD;AAChC,2CAAa,mBAAmB,CAAC,4BAAD;AAChC,2CAAa,mBAAmB,CAAC,wBAAD;AAChC,2CAAa,mBAAmB,CAAC,2BAAD;AAChC,2CAAa,mBAAmB,CAAC,0BAAD;AAChC,2CAAa,mBAAmB,CAAC,0BAAD;AAChC,2CAAa,mBAAmB,CAAC,2BAAD;AAlBlC;AAxnGA,GAqgBc,6HArgBd;AKAA,kCAWS,2KAXT;;;AA6CqB,2FAEO,kBACC,iBAHR;;AAEO;AACC,sCAAY,uBAAZ;AACJ;AAJJ;AAON;AAg4B0B;;AAAZ;AAE3B;AAAG;AACH;AACA;AAAG;AAEgB;AAAV;AAEP,iBAAU,qBAAQ,CAAC,iBAAI,CAAC,0BAAa,CAAC,OAAQ,OAAQ,GAAI,cAAC,4CAAD,CAArB,CAAd,CAAL;AAFX;AAAU;AAKnB,eAAU;AACV,UAAG,MAAO,KAAG,EAAb;AAEE,YAAK,sBAAS,CAAC,0BAAa,CAAC,OAAQ,IAAK,GAAI,cAAC,4CAAD,CAAlB,CAAd;AACd,YAAG,cAAG,CAAC,kBAAmB,CAApB,CAAuB,KAAE,CAA/B;AAEE,cAAK,cAAG,CAAC,MAAO,CAAR;AACR,cAAG,CAAE,KAAE,CAAP,EACE,IAAK,cAAG,CAAC,IAAK,CAAN,CADV;AAEA,eAAM,gBAAG,CAAC,IAAK,EAAG,CAAT;AACT,eAAM,eAAI,CAAC,EAAG,EAAM,CAAH,EAAG,GAAE,CAAF,CAAI,GAAE,CAAhB;AACV,cAAK,gBAAG,CAAC,MAAO,EAAG,EAAX;AACR,cAAG,CAAE,KAAE,CAAP,EACE,IAAK,cAAG,CAAC,IAAK,CAAN,CADV;AAEA,eAAM,gBAAG,CAAC,IAAK,EAAG,CAAT;AACT,mBAAU,iBAAY,CAAC,EAAD;SAEnB,UAAG,cAAG,CAAC,MAAO,CAAR,CAAW,KAAE,CAAnB;AAEH,eAAM,uBAAW,QAAC;AAClB;AACE,cAAE,aAAC,CAAa,GAAb;AACH,cAAE,iBAAC,CAAiB,CAAjB;AACH,qBAAU,mDAAiB,CAAC,UAAU,CAAC,EAAE,KAAC,CAAD,CAAH,EAAS,UAAU,CAAC,EAAE,KAAC,CAAD,CAAH,EAAS,UAAU,CAAC,EAAE,KAAC,CAAD,CAAH,CAAjD;AAH7B;AAKE,cAAG,eAAH,EAAG;AALL;SAQG,UAAG,cAAG,CAAC,IAAK,CAAN,CAAS,KAAE,CAAjB,EACH,SAAU,iCAAU,CAAC,CAAD,CADjB;OA3BP;AAZ2B;AAAY;AA4CE;;AAAd;AAE3B;AAAG;AACH;AACA;AAAG;AAEgB;AAAV;AAEP,iBAAU,qBAAQ,CAAC,iBAAI,CAAC,0BAAa,CAAC,OAAQ,OAAQ,GAAI,cAAC,4CAAD,CAArB,CAAd,CAAL;AAFX;AAAU;AAKnB,eAAU;AACV,UAAG,MAAO,KAAG,EAAb;AAEE,YAAK,sBAAS,CAAC,0BAAa,CAAC,OAAQ,IAAK,GAAI,cAAC,4CAAD,CAAlB,CAAd;AACd,YAAG,cAAG,CAAC,kBAAmB,CAApB,CAAuB,KAAE,CAA/B;AAEE,cAAK,cAAG,CAAC,MAAO,CAAR;AACR,cAAG,CAAE,KAAE,CAAP,EACE,IAAK,cAAG,CAAC,IAAK,CAAN,CADV;AAEA,eAAM,gBAAG,CAAC,IAAK,EAAG,CAAT;AAET,cAAK,gBAAG,CAAC,MAAO,EAAG,EAAX;AACR,cAAG,CAAE,KAAE,CAAP,EACE,IAAK,cAAG,CAAC,IAAK,CAAN,CADV;AAEA,eAAM,gBAAG,CAAC,IAAK,EAAG,CAAT;AACT,eAAM,eAAI,CAAC,EAAG,EAAM,CAAH,EAAG,GAAE,CAAF,CAAI,GAAE,CAAhB;AACV,mBAAU,iBAAY,CAAC,EAAD;SAEnB,UAAG,cAAG,CAAC,MAAO,CAAR,CAAW,KAAE,CAAnB;AAEH,eAAM,uBAAW,QAAC;AAClB;AACE,cAAE,aAAC,CAAa,GAAb;AACH,cAAE,iBAAC,CAAiB,CAAjB;AACH,qBAAU,mDAAiB,CAAC,UAAU,CAAC,EAAE,KAAC,CAAD,CAAH,EAAS,UAAU,CAAC,EAAE,KAAC,CAAD,CAAH,EAAS,UAAU,CAAC,EAAE,KAAC,CAAD,CAAH,CAAjD;AAH7B;AAKE,cAAG,eAAH,EAAG;AALL;SAQG,UAAG,cAAG,CAAC,IAAK,CAAN,CAAS,KAAE,CAAjB,EACH,SAAU,iCAAU,CAAC,CAAD,CADjB;OA5BP;AAZ2B;AAAc;AA6CC;AAAf;AAE3B,eAAU;AAFiB;AAAe;AAnLO;AAAtB;AAE3B,eAAU,yBAAoB,CAAC,mBAAoB,YAArB;AAFH;AAAsB;AAKE;AAAxB;AAE3B,eAAU,yBAAoB,CAAC,mBAAoB,cAArB;AAFH;AAAwB;AAKC;AAAzB;AAE3B,eAAU,yBAAoB,CAAC,qBAAsB,YAAvB;AAFH;AAAyB;AAKE;AAA3B;AAE3B,eAAU,yBAAoB,CAAC,qBAAsB,cAAvB;AAFH;AAA2B;AAKN;AAArB;AAE3B,eAAU,yBAAoB,CAAC,mBAAoB,cAArB;AAFH;AAAqB;AAKL;AAAhB;AAE3B,eAAU,yBAAoB,CAAC,mBAAoB,YAArB;AAFH;AAAgB;AAKE;AAAlB;AAE3B,eAAU,yBAAoB,CAAC,eAAgB,cAAjB;AAFH;AAAkB;AAKA;AAAlB;AAE3B,eAAU,yBAAoB,CAAC,yBAA0B,YAA3B;AAFH;AAAkB;AAKE;AAApB;AAE3B,eAAU,yBAAoB,CAAC,yBAA0B,cAA3B;AAFH;AAAoB;AAKC;AAArB;AAE3B,eAAU,yBAAoB,CAAC,mBAAoB,aAArB;AAFH;AAAqB;AAKW;AAAhC;AAE3B,eAAU,yBAAoB,CAAC,mBAAoB,aAArB;AAFH;AAAgC;AAKC;AAAjC;AAE3B,eAAU,yBAAoB,CAAC,mBAAoB,YAArB;AAFH;AAAiC;AAKE;AAAnC;AAE3B,eAAU,yBAAoB,CAAC,mBAAoB,cAArB;AAFH;AAAmC;AAKlB;AAAjB;AAE3B,eAAU,yBAAoB,CAAC,mBAAoB,SAArB;AAFH;AAAiB;AAKD;AAAhB;AAE3B,eAAU,yBAAoB,CAAC,mBAAoB,YAArB;AAFH;AAAgB;AAKA;AAAhB;AAE3B,eAAU,yBAAoB,CAAC,yBAA0B,aAA3B;AAFH;AAAgB;AAKC;AAAjB;AAE3B,eAAU,yBAAoB,CAAC,yBAA0B,OAA3B;AAFH;AAAiB;AAKc;AAA/B;AAE3B,eAAU,yBAAoB,CAAC,mBAAoB,4BAArB;AAFH;AAA+B;AAsHf;AAAhB;AAE3B;AAAG;AAEH,eAAU;AACV,UAAK;AACL,UAAK;AAEP;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAtB6B;AAAgB;AAlBI;AAApB;AAE3B;AACA;AACA;AAEA,eAAU;AACV,UAAK,qBAAgB,CAAC,SAAD;AACrB,UAAY,CAAD,QAAX;AAEE,YAAK;AAET;AAEI,iBAAU;OANZ;AAR2B;AAAoB;AA4wBA;AAApB;AAO3B,eAAU;AAPiB;AAAoB;AAxOC;AAArB;AAa3B;AACA;AAGA,eAAU;AACV,UAAG,2BAAH;AAmBE,YAAK;AACL,YAAG,CAAE,KAAG,EAAR;AAEE,cAAK,iBAAY,CAAC,CAAD;AACjB,qBAAU,CAAV;AACA,mBAAU,CAAE,KAAG,EAAH;SAJd;OApBF;AAlB2B;AAAqB;AAxdM;AAA3B;AAY3B;AACA;AAGA,eAAU;AACV,UAAG,2BAAH;AAsBE,YAAK;AACL,YAAG,CAAE,KAAG,EAAR;AAEE,cAAK,iBAAY,CAAC,CAAD;AACjB,qBAAU,CAAV;AACA,mBAAU,CAAE,KAAG,EAAH;SAJd;OAvBF;AAjB2B;AAA2B;AAkDE;AAA7B;AAY3B;AACA;AAGA,eAAU;AACV,UAAG,2BAAH;AAsBE,YAAK;AACL,YAAG,CAAE,KAAG,EAAR;AAEE,cAAK,mBAAc,CAAC,CAAD;AACnB,qBAAU,CAAV;AACA,mBAAU,CAAE,KAAG,EAAH;SAJd;OAvBF;AAjB2B;AAA6B;AAkDS;AAAtC;AAY3B;AACA;AAGA,eAAU;AACV,UAAG,2BAAH;AAkBE,YAAK;AACL,YAAG,CAAE,KAAG,EAAR;AAEE,cAAK,iBAAY,CAAC,CAAD;AACjB,qBAAU,CAAV;AACA,mBAAU,CAAE,KAAG,EAAH;SAJd;OAnBF;AAjB2B;AAAsC;AA8CE;AAAxC;AAY3B;AACA;AAGA,eAAU;AACV,UAAG,2BAAH;AAmBE,YAAK;AACL,YAAG,CAAE,KAAG,EAAR;AAEE,cAAK,mBAAc,CAAC,CAAD;AACnB,qBAAU,CAAV;AACA,mBAAU,CAAE,KAAG,EAAH;SAJd;OApBF;AAjB2B;AAAwC;AA+CX;AAA7B;AAY3B;AACA;AAGA,eAAU;AACV,UAAG,2BAAH;AAmBE,YAAK;AACL,YAAG,CAAE,KAAG,EAAR;AAEE,cAAK,iBAAY,CAAC,CAAD;AACjB,qBAAU,CAAV;AACA,mBAAU,CAAE,KAAG,EAAH;SAJd;OApBF;AAjB2B;AAA6B;AA4IN;AAAvB;AAY3B;AACA;AAGA,eAAU;AACV,UAAG,2BAAH;AAkBE,YAAK;AACL,YAAG,CAAE,KAAG,EAAR;AAEE,cAAK,iBAAY,CAAC,CAAD;AACjB,qBAAU,CAAV;AACA,mBAAU,CAAE,KAAG,EAAH;SAJd;OAnBF;AAjB2B;AAAuB;AA8CE;AAAzB;AAY3B;AACA;AAGA,eAAU;AACV,UAAG,2BAAH;AAkBE,YAAK;AACL,YAAG,CAAE,KAAG,EAAR;AAEE,cAAK,mBAAc,CAAC,CAAD;AACnB,qBAAU,CAAV;AACA,mBAAU,CAAE,KAAG,EAAH;SAJd;OAnBF;AAjB2B;AAAyB;AA8CA;AAAzB;AAY3B;AACA;AAGA,eAAU;AACV,UAAG,2BAAH;AAmBE,YAAK;AACL,YAAG,CAAE,KAAG,EAAR;AAEE,cAAK,iBAAY,CAAC,CAAD;AACjB,qBAAU,CAAV;AACA,mBAAU,CAAE,KAAG,EAAH;SAJd;OApBF;AAjB2B;AAAyB;AA+FC;AAA1B;AAY3B;AACA;AAGA,eAAU;AACV,UAAG,2BAAH;AAoBE,YAAK;AACL,YAAG,CAAE,KAAG,EAAR;AAEE,cAAK,iBAAY,CAAC,CAAD;AACjB,qBAAU,CAAV;AACA,mBAAU,CAAE,KAAG,EAAH;SAJd;OArBF;AAjB2B;AAA0B;AAgDE;AAA5B;AAY3B;AACA;AAGA,eAAU;AACV,UAAG,2BAAH;AAoBE,YAAK;AACL,YAAG,CAAE,KAAG,EAAR;AAEE,cAAK,mBAAc,CAAC,CAAD;AACnB,qBAAU,CAAV;AACA,mBAAU,CAAE,KAAG,EAAH;SAJd;OArBF;AAjB2B;AAA4B;AAgDP;AAArB;AAQ3B;AACA;AAGA,eAAU;AACV,UAAG,2BAAH;AAeE,YAAK;AACL,YAAG,CAAE,KAAG,EAAR;AAEE,cAAK,iBAAY,CAAC,CAAD;AACjB,qBAAU,CAAV;AACA,mBAAU,CAAE,KAAG,EAAH;SAJd;OAhBF;AAb2B;AAAqB;AAuCW;AAAhC;AAQ3B;AACA;AAGA,eAAU;AACV,UAAG,2BAAH;AAeE,YAAK;AACL,YAAG,CAAE,KAAG,EAAR;AAEE,cAAK,iBAAY,CAAC,CAAD;AACjB,qBAAU,CAAV;AACA,mBAAU,CAAE,KAAG,EAAH;SAJd;OAhBF;AAb2B;AAAgC;AA/ZF;AAA9B;AAY3B;AACA;AAGA,eAAU;AACV,UAAG,2BAAH;AAkBE,YAAK;AACL,YAAG,CAAE,KAAG,EAAR;AAEE,cAAK,iBAAY,CAAC,CAAD;AACjB,qBAAU,CAAV;AACA,mBAAU,CAAE,KAAG,EAAH;SAJd;OAnBF;AAjB2B;AAA8B;AA8CE;AAAhC;AAY3B;AACA;AAGA,eAAU;AACV,UAAG,2BAAH;AAmBE,YAAK;AACL,YAAG,CAAE,KAAG,EAAR;AAEE,cAAK,iBAAY,CAAC,CAAD;AACjB,qBAAU,CAAV;AACA,mBAAU,CAAE,KAAG,EAAH;SAJd;OApBF;AAjB2B;AAAgC;AAz0C9C;AAyFwB,4FAAmB,U9F9BjD,2B8F8BiD,EAAiB,sBAAoB,crFmanF,+BqFnamF,EAA+B,+BAAvF;AACD,2FAAmB,U9F/BhD,2B8F+BgD,EAAiB,sBAAoB,crFkalF,+BqFlakF,CAAxD;AAEP;AAEK,6DrF8ZxB,uCqF9ZwB;AAEd,4FAEW,sBAFX;;AAEW,6CAJG,gDAIH;AAFX;AAKO;;;AAEzB;AAFyB;AAijEiB;AAE5C,6BAAmB;AAF0B;AAAD;AAjjEjB;AAIP;AAEK;AANE;AAYP;;;AAGlB;AAEA;AACA;AACA;AACA;AACA;AACA;AAVkB;;;;;;;;;AAygEiB;AAErC,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACV,8BAAiB,CAAC,WAAD;OAHnB;AAFqC;AAcQ;AAE7C,UAAG,mBAAe,KAAG,KAArB;AAEE,8BAAkB;AAClB,YAAG,mBAAe,KAAG,EAArB;OAHF;AAF6C;AALN;AAEvC,mBAAQ,OAAO,CAAC,KAAD;AAFwB;AAnXF;AAAT;AAE5B,eAAU,2CAAkB,GAAE,sCAAF;AAFA;AAAS;AAyFsB;;AAG3D;AACA;AAAG;AACH;AACA;AACA;AACA;AACA;AACA;AACA;AAE2B;AAAlB;AAEP;AAEA,YAAyB,CAAd,YAAC,WAAD,MAAc,IAAyB,CAAd,WAAC,WAAD,CAAc,KAAE,CAAF,CAAzB,CAA8B,IAAG,CAAY,YAAC,WAAD,MAAtE;AACE,mBAAU;;AAGV,mBAAU;AACV,mBAAS,QAAyB,OAAd,WAAC,WAAD,CAAc,GAAE,CAAF,kBAAlC;AAAI;AAEF,gBAAG,WAAW,CAAC,CAAD,CAAI,KAAE,UAApB;AAEE,uBAAU;AACV;aAHF;;;AAXG;AAAkB;AAoBI;AAC1B;AAD0B;AAE7B,cAAG,CAAY,CAAC,UAAD,SAAf,EACE,MADF;AAGA,cAAyB,CAArB,UAAU,WAAW,KAAE,EAAF,CAAM,IAAI,kBAAkB,CAAC,UAAD,CAArD;AAEE,gBAAG,uBAAQ,CAAC,0DAAY,qEAAoB;;;;gBAAjC,CAAX;AAEE,mBAAM,sCAAY,qBAAqB,CAAC,UAAD;AACvC,kBAAK;AACL,kCAAc,CAAC,GAAI,WAAY;;;;kBAAjB;AACd,kBAAG,CAAH;AAEE,oBAAK,yBAAa,QAAC,YAAM,CAAC,GAAmB,sBAAS,QAAC,GrFnlC4B,IqFmlC1D,CAAN;AACnB;AACE,oBAAE,uBAAuB,CAAC,CAAD;AAD3B;AAGE,mBAAE,eAAF,CAAE;AAHJ;AAMA,mCAAa,CAAC,GAAI,UAAL;eATf;aALF;WAFF;AAL6B;AAC1B;AA5BL;AA2B+B;;AA0B5B;AA3DwD;AA4D3D,YAAK;AACL,YAAG,CAAY,CAAC,CAAD,SAAf,EACE,IAAK,sCAAY,aAAa,CAAC,KAAD,CADhC;AAGA,YAAG,CAAY,CAAC,CAAD,SAAf,EACE,MADF;AAGA,YAAY,UAAD,QAAX;AAEE,eAAM,sCAAY,YAAY,CAAC,WAAY,kDAAkB,kBAA/B;AAC9B,cAAG,EAAG,KAAG,EAAT;AAEE,qBAA0B,KAAjB,CAAC,kBAAC,EAAe,GAAE,CAAF,EAAW,aAArC;AAAI;AAEF,mCAAqB,CAAC,CAAC,aAAW,CAAC,CAAD,CAAb;AACrB,kBAAG,uBAAQ,CAAa,yBAAZ,CAAC,aAAW,CAAC,CAAD,wBAAK,4CAAsB;;;;kBAAxC,CAAX;AAEE,sBAAO,EAAE;AACT,yBAAS,SAAiB,OAAN,WAAC,GAAD,CAAM,GAAE,CAAF,oBAA1B;AAAI;AACF,uCAAqB,CAAC,GAAG,CAAC,CAAD,CAAJ;;eAJzB;;WALJ;SAHF;AAnE2D;AA2DxD;AAjDH;AAV2D;;AA1Db;AAE9C;AAAG;AAAI;AAAI;AACX;AACA;AACA;AACA;AACA;AAEA,UAAK,sCAAY,UAAU,CAAC,MAAD;AAC3B,UAAY,CAAD,QAAX;AAEE;AACE,cAAG,aAAO,gBAAV;AAEE,iBAAM,sCAAY,aAAa,CAAC,EAAG,WAAJ;AAC/B,gBAAY,EAAD,QAAX;AAEE,oBAAO,sCAAY,YAAY,CAAC,EAAG,WAAJ;AAC/B,kBAAK;AACL,kBAAG,CAAY,CAAC,CAAD,SAAf,EACE,IAAK,sCAAY,aAAa,CAAC,IAAD,CADhC;AAGA,kBAAY,CAAD,QAAX;AAEE,oBAAK,4CAAe,YAAY,CAAC,GAAD;AAKhC,iBAAC,SAAC,CAAS,CAAT;eAPJ;aAPF;WAHF;AAuBA,eAAM,sCAAY,aAAa,CAAC,EAAG,QAAJ;AAC/B,cAAS,6BAAH,eAAH,EAAG,CAAN;AAEE,iBAAS,OAAH,GAAM,6BAAH;AACT,qBAAS,QAAuC,OAAlC,sCAAY,iBAAiB,CAAC,EAAD,CAAK,GAAE,CAAF,kBAAhD;AAAI;AAEF,mBAAM,sCAAY,iBAAiB,CAAC,GAAI,CAAL;AACnC,kBAAY,EAAD,QAAX,EACE,mCAA8B,CAAC,GAAI,yBAAL,CADhC;;;AAMF,gBAAY,CAAD,QAAX,EACE,mCAA8B,CAAC,EAAG,yBAAJ,CADhC;;AArCJ;AAyCE,WAAE,eAAF,CAAE;AAzCJ;OAFF;AAV8C;AA1BH;AAG3C,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,OAAQ,WAAY,aAA3B,CADhB;AAH2C;AAmBD;AAG1C,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,OAAQ,UAAf,CADf;AAH0C;AAZL;AAErC;AACA,sBAAY,gCAA2B,QAAC;AAHkB;AAArB;AAMA;AAE5B,eAAT,KAAS;AACT;AAHqC;AA2US;AAE9C;AAEU,OAAD,sBAAC,OAAG,CAAJ;AACT,4BAAiB,CAAC,MAAO,eAAR;AAL6B;AArBE;AAEhD;AAEU,OAAD,sBAAC,OAAG,CAAJ;AACT,gCAAmB,CAAC,QAAS,eAAV;AAL6B;AAnCF;AAE9C;AAEU,OAAD,sBAAC,OAAG,CAAJ;AACT,8BAAiB,CAAC,MAAO,eAAR;AAL6B;AAgEA;AAE9C,4BAAiB,CAAC,MAAO,yBAAR;AAF6B;AArBE;AAEhD;AAEA,WAAuC,yBAAqB,QAAC;AAC7D;AACE,UAAE,eAAe,CAAC,OAAD;AACjB,8BAAiB,CAA8B,EAAE,cAAC,GAAoB,yBAArD;AAFnB;AAIE,UAAG,eAAH,EAAG;AAJL;AALgD;AAnCF;;AAE9C;AAOA,WAAuC,yBAAqB,QAAC;AAC7D;AAEE,6BAAe;AAEf,UAAE,aAAa,CAAC,MAAuB;AACvC,iCAAiB,CAA8B,EAAE,cAAC,GAAoB,yBAArD;AAEjB,YAAG,eAAH,EAAG;AAHoC,UrFjzCoE,IqFizC5F;AAJjB;;AAV8C;AAdD;AAE7C,8BAAiB,CAAC,KAAM,yBAAP;AAF4B;AARA;AAE7C;AAEU,OAAD,sBAAC,OAAG,CAAJ;AACT,8BAAiB,CAAC,KAAM,eAAP;AAL4B;AAt7DzB;;;;;AAqBA,+BAAO,UrFsXjB,+BqFtXiB,CAAP;AAoBF,+BArDS,0CAqDT;AACF;AACQ;AACC,sCApEY,oDAoEZ;AACD,qCApEY,mDAoEZ;AA7CJ;;AAkDpB,0BAA2B;AAvN7B,GAyNc,mFAzNd;ACAA,gCAIS,yCAJT;;;AAUsB;;;AAElB;AACA;AACA;AAJkB;;;;;;AAyCiB;AAErB,qDAAC,WAAD;AAChB,oBAAU,yBAAa,QAAC;AAHwC;AAA3B;AAMA;AAE9B,eAAP,KAAO;AACP;AAHqC;AA/CjB;AAMA,+BAAY,etF0crB,gCsF1cqB,CAAZ;AANA;AAaF;;;AAEhB;AACA;AACA;AAJgB;;;;;AAmEoB;AAAZ;AAE1B,eAAU;AACV,UAAU,CAAN,KAAM,GAAE,CAAC,CAAH,CAAM,IAAW,CAAN,KAAM,GAAE,eAAF,CAA3B,EACE,SAA+B,YAAK,CAAC,KAAD,CADtC;AAH0B;AAAY;AAOE;AAAd;AAE1B,eAAU;AACV,UAAa,CAAT,aAAS,GAAE,CAAC,CAAH,CAAM,IAAc,CAAT,aAAS,GAAE,eAAF,CAAjC,EACE,SAA+B,YAAK,CAAC,aAAD,CAAW,YADjD;AAH0B;AAAc;AAOA;AAAd;AAE1B,eAAU;AACV,UAAa,CAAT,aAAS,IAAG,CAAC,CAAJ,CAAO,IAAc,CAAT,aAAS,GAAQ,CAAN,eAAM,GAAE,CAAF,CAAR,CAAlC,EACE,SAA+B,YAAK,CAAC,aAAS,GAAE,CAAZ,CAAe,YADrD;AAH0B;AAAc;AAlCP;AAAP;AAE1B,eAAoB,CAAT,aAAS,GAAE,CAAF,CAAK,IAAW,CAAN,eAAM,GAAE,CAAF,CAAX;AAFC;AAAO;AALA;AAAP;AAE1B,eAAoB,CAAT,aAAS,GAAQ,CAAN,eAAM,GAAE,CAAF,CAAR,CAAa,IAAW,CAAN,eAAM,GAAE,CAAF,CAAX;AAFP;AAAO;AA8CF;AAE/B;AAF+B;AAI/B,YAAa,CAAT,aAAS,GAAE,CAAF,CAAK,IAAc,CAAT,aAAS,IAAG,eAAH,CAAhC;AAE2B,sBAAC,YAAK,CAAC,aAAS,GAAE,CAAZ;AAE7B,sBAAM,YAAC,CAAY,CAAZ;AACP,cAAG,uBAAQ,CAAC,aAAS,yDAAoB;;;;cAA9B,CAAX;AACE,aAAC,uBAAuB,CAAC,YAAD;AAExB,gBAAA,kDAAkB,uBAAuB,CAAC,aAAS,YAAV;AAEzC,uBAAJ,IAAG;SAVL;AAJ+B;AAE/B;AAF+B;;AAkBA;AAE/B;AAF+B;AAI/B,YAAa,CAAT,aAAS,IAAG,CAAC,CAAJ,CAAO,IAAc,CAAT,aAAS,GAAQ,CAAN,eAAM,GAAE,CAAF,CAAR,CAAlC;AAE2B,sBAAC,YAAK,CAAC,aAAS,GAAE,CAAZ;AAE7B,sBAAM,YAAC,CAAY,CAAZ;AACP,cAAG,uBAAQ,CAAC,aAAS,yDAAoB;;;;cAA9B,CAAX;AACE,aAAC,uBAAuB,CAAC,YAAD;AAExB,gBAAA,kDAAkB,uBAAuB,CAAC,aAAS,YAAV;AAEzC,uBAAJ,IAAG;SAVL;AAJ+B;AAE/B;AAF+B;;AAtDU;AAEzC;AACA,sBAAY,CAAC;AACb,oBAAS,CAAC,EAAD;AAJgC;AAwEL;AAEpC;AACA;AAHoC;AAKpC,eAAM,aAAS,GAAQ,CAAN,eAAM,GAAE,CAAF,CAAvB;AAEE,eAAM,YAAK,CAAC,eAAM,GAAE,CAAT;AACX,YAAG,eAAH,EAAG;;AAGoB,oBAAC;AAExB,4BAAc;AACd,YAAG,uBAAQ,CAAC,aAAS,yDAAoB;;;;YAA9B,CAAX;AACE,WAAC,qBAAqB,CAAC,azD3GmD,KyD2GpD;AAEtB,cAAA,kDAAkB,qBAAqB,CAAC,aAAS,YAAV;AACrC,qBAAJ,IAAG;AAEL,YAAG,eAAM,GAAE,mBAAX;AAEE,qBAAM,CAAC,CAAD;AACF,uBAAJ,IAAG;SAHL;AApBoC;AAEpC;AAFoC;;AAjED;AAEnB,iDAAC,yBAAD;AAChB,qBAAW;AACX,4BAAkB;AAClB,sBAAY,CAAC;AALyC;AAAnB;AA3DjB;AAeE,+BAAQ,W/FyErB,2B+FzEqB,CAAR;AAfF;AAvBpB,GA2Cc,sCA3Cd;ACAA,yCA8CS,uPA9CT;;;AA4FiB,yBAAG;AAuCO;;;;AA+TL;AA3TG;;AACD;;AAQO;;;AAE3B;AAF2B;;;;;AAwsBgB;AAAR;AAErC,UAAG,CAAY,CAAC,WAAD,SAAf,EACE,cAAU,uBAAW,QAAC,YADxB;AAGA,eAAU;AAL2B;AAAQ;AALC;AAE9C,6BAAU,CAAC;;;;UAAD;AAFoC;AAnsBjB;AAaC;;;AAQ5B;AACA;AACA;AAEA;AAGA;AAMA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAnC4B;;;;;;;;AAk8BqB;AAAb;AAMtC,eAAU;AAN4B;AAAa;AAgCE;AAAf;AAEtC,eAAU;AAF4B;AAAe;AA+LI;AAAnB;AAEtC,eAAU;AAYL;AACH,UADG,IACH;AAAQ,iBAAU;AAClB,gBAFG,IAEH;AAAO,iBAAU;AACjB,gBAHG,IAGH;AAAU,iBAAU;AACpB,gBAJG,IAIH;AAAQ,iBAAU;AAClB,gBALG,IAKH;AAAS,iBAAU;AACnB,gBANG,IAMH,6CAAU,SAAU,qCAApB;AApBoC;AAAmB;AArNA;AAEzD,UAAG,qBAAiB,KAAG,KAAvB;AAEE,gCAAoB;OAFtB;AAFyD;AAWL;AAMpD,yBAAe;AANqC;AAmOM;AAarD;AACH,UADG,IACH;AAAQ,sBAAS,oCAAT;AACR,gBAFG,IAEH;AAAO,sBAAS,mCAAT;AACP,gBAHG,IAGH;AAAU,sBAAS,sCAAT;AACV,gBAJG,IAIH;AAAQ,sBAAS,oCAAT;AACR,gBALG,IAKH;AAAS,sBAAS,qCAAT;AACT,gBANG,IAMH,4CAAU,cAAS,sCAAT,CAAV;AAnBwD;AApDJ;AAEtD,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;AACjB;OAHF;AAFsD;AASQ;AAE9D,UAAG,0BAAsB,KAAG,KAA5B;AAEE,qCAAyB;AACzB;OAHF;AAF8D;AASD;AAE7D,UAAG,yBAAqB,KAAG,KAA3B;AAEE,oCAAwB;AACxB;OAHF;AAF6D;AA3BP;AAEtD,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;AACjB;OAHF;AAFsD;AATD;AAErD,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;AAChB;OAHF;AAFqD;AA7IC;AAEtD,2BAAiB;AAFqC;AAjKN;AAAV;AAEtC,eAAU;AAF4B;AAAU;AAKD;AAAT;AAEtC,eAAU;AAF4B;AAAS;AAUC;AAAV;AAEtC,eAAU;AAF4B;AAAU;AALS;AAAnB;AAEtC,eAAU;AAF4B;AAAmB;AAUF;AAAjB;AAEtC,qBAAU,0BAAqB,CAAa,yCAAZ,sCAAY,eAAb,CAA/B;AAFsC;AAAiB;AAuBI;AAArB;AAEtC;AAEA,gBAAK,mBAAc,CAAC,eAAK,CAAC,UAAK,CAAC,MAAM,EAAP,EAAY,UAAK,CAAC,MAAM,EAAP,CAAvB,CAAN,CAAnB;AACA,qBAAU,gCAAM,CAAC,CAAC,GAAI,CAAC,EAAP,CAAhB;AALsC;AAAqB;AAjBA;AAArB;AAEtC;AAEA,gBAAK,mBAAc,CAAC,eAAK,CAAC,UAAK,CAAC,MAAM,EAAP,EAAY,UAAK,CAAC,MAAM,EAAP,CAAvB,CAAN,CAAnB;AACA,qBAAU,gCAAM,CAAC,CAAC,GAAI,CAAC,EAAP,CAAhB;AALsC;AAAqB;AA+0GE;AAAvB;AAEtC,eAAU;AAF4B;AAAuB;AAj8GR;AAAf;AAEtC,eAAU;AAF4B;AAAe;AAg1GJ;AAGjD;AAEA;AALiD;AA/1GA;AAEjD,kCAAwB,sCAAY,YAAY,CAAC,KAAM,EAAP;AAIhD,+BAAqB;AAN4B;AAUI;;AAoBS;AAE9D;AAEA,UAAK;AACL,UAAG,wCAAa,4BAA4B,CAAC;;;;UAAD,CAA5C;AACiB,0EAAf,GAAyC;AAEzC,YAAe,kEAAf,GAAyC;AAE3C,UAAK;AACL,UAAG,wCAAa,8BAA8B,CAAC;;;;UAAD,CAA9C;AACiB,4EAAf,GAA2C;AAE3C,YAAe,oEAAf,GAA2C;AAE7C,UAAK;AACL,UAAG,wCAAa,+BAA+B,CAAC;;;;UAAD,CAA/C;AACiB,2EAAf,GAA0C;AAE1C,YAAe,mEAAf,GAA0C,mDAAiB,CAAC,IAAK,IAAK,GAAX;AAE7D,UAAK;AACL,UAAG,wCAAa,sBAAsB,CAAC;;;;UAAD,CAAtC;AACiB,6EAAf,GAA4C;AAE5C,YAAe,qEAAf,GAA4C;AAE9C,UAAK;AACL,UAAG,wCAAa,sBAAsB,CAAC;;;;UAAD,CAAtC;AACiB,yEAAf,GAAwC;AAExC,YAAe,iEAAf,GAAwC;AAE1C,UAAK;AACL,UAAG,wCAAa,2BAA2B,CAAC;;;;UAAD,CAA3C;AAEiB,8EAAf,GAA6C;AAC9B,kFAAf,GAAiD,uCAAK,CAAC,EAAG,4CAAe,wBAAyB,EAA5C;AACvC,oFAAf,GAAmD,uCAAK,CAAC,EAAG,4CAAe,0BAA2B,EAA9C;;AAIzC,8EAAf,GAA6C;AAC9B,kFAAf,GAAiD,mDAAiB,CAAC,IAAK,IAAK,GAAX;AACnD,oFAAf,GAAmD,mDAAiB,CAAC,GAAI,IAAK,GAAV;;AAGvD,mFAAf,GAAoD;AACrC,iFAAf,GAAkD;AAjDY;AAxDR;AAEtD,2BAAiB;AACjB;AAHsD;AAg/GL;;AAlDD;;AAl1GM;AAKtD;AACA;AACA,UAAG,sBAAH;AAEE,+BAAmB;AACnB;OAEG,UAAG,oBAAH;AAEH;AACA,+BAAmB;OAHhB;AAML;AAlBsD;AA9DL;;AAKS;;AAieH;;AAKA;;AAKD;;AAKA;;AAKD;;AAcD;;AAWC;;AAKD;;AAKE;;AAKJ;;AAKK;;AAxCF;;AAKA;;AAtXN;AAE/C;AASA;AACA,YAAO;AAWP,0CAAgC;AAEhC,+BAAqB;AACrB,kCAAwB;AAMxB;AACA,2BAAiB;AACjB,6BAAmB;AACnB,8BAAoB;AACpB,0BAAgB;AAChB,2BAAiB;AACjB,+BAAqB;AACrB,2BAAiB;AACjB,mCAAyB;AACzB,kCAAwB;AACxB,0BAAgB;AAEhB,yBAAe;AA5CqD;AAArB;AAgDA;AAc/C;AAd+C;AA2rGS;AASxD,+BAAoB,IAApB;AACA,mBAAO,QAAC,CAAQ,UAAK,CAAC,KAAD,CAAb;AACR,mBAAO,OAAC,CAAO,UAAK,CAAC,IAAD,CAAZ;AACR,mBAAO,SAAC,CAAS,UAAK,CAAC,MAAD,CAAd;AACR,mBAAO,UAAC,CAAU,UAAK,CAAC,OAAD,CAAf;AAbgD;AApBA;AAIxD,UAAG,CAAI,sBAAP,EACE,MADF;AAGA,gBAAS,aAAO,MAAhB;AACA,eAAQ,aAAO,KAAf;AACA,iBAAU,aAAO,OAAjB;AACA,kBAAW,aAAO,QAAlB;AAVwD;AAxCA;AAAlB;AAEtC,eAAU,sCAAY,UAAU,CAAC,MAAO,UAAK,CAAC,yBAAqB,GAAE,GAAxB,EAA8B,GAA3C;AAFM;AAAkB;AAKA;AAAlB;AAEtC,eAAU,KAAM,GAAE,yBAAF;AAFsB;AAAkB;AAiBH;AAAf;AAKtC,eAAU,sCAAY,UAAU,CAAC,MAAO,UAAK,CAAC,sBAAkB,GAAE,GAArB,EAA2B,GAAxC;AALM;AAAe;AASA;AAAf;AAKtC,eAAU,KAAM,GAAE,sBAAF;AALsB;AAAe;AA/kIvB;;;;;AAuIV,+BAAO,UvF4QjB,+BuF5QiB,CAAP;AAvIU;AAyMN;;;AAEtB;AACA;AAHsB;AAopDmB;AAE3C;AACA,2BAAgB,CAAC,kBAAO,WAAY,OAApB;AAH2B;AANE;AAE7C;AACA;AAH6C;AANA;AAE7C;AACA;AAH6C;AAkMD;AAAZ;AAEhC,qBAAU,+BAAK,CAAC,EAAG,EAAG,gBAAO,gBAAd,CAAf;AAFgC;AAAY;AAyqEC;AAAb;AAEhC,eAAU;AAFsB;AAAa;AAKN;AAAP;AAEhC,eAAU;AAFsB;AAAO;AAvlFG;AAG1C;AACA,0BAAe,CAAC,OAAQ,kBAAO,EAAG,CAAnB;AACf,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,IAAD,CADrB;AAL0C;AASA;AAE1C;AACA,0BAAe,CAAC,kBAAO,EAAG,CAAX;AACf,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,IAAD,CADrB;AAJ0C;AAQF;AAGxC;AACA,wBAAa,CAAC,OAAQ,kBAAO,EAAG,CAAnB;AACb,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,IAAD,CADnB;AALwC;AA7BC;AAEzC;AACA,yBAAc,CAAC,OAAQ,gCAAM,CAAC,EAAG,CAAJ,EAAQ,MAAvB;AAH2B;AArCD;AAMxC;AACA,0BAAe,CAAC,IAAK,iBAAN;AACf,wBAAa,CAAC,IAAK,iBAAN;AACb,UAAG,SAAI,KAAE,CAAT;AATwC;AANC;AAEzC;AACA,yBAAc,CAAC,GAAD;AAH2B;AAqCH;AAEtC;AACA,sBAAW,CAAC,IAAK,iBAAN;AAH2B;AAzEG;AAEzC;AAEA;AACA,iBAAM,0BAAqB,CAAa,yCAAZ,sCAAY,eAAb,CAA3B;AACA,yBAAc,CAAC,EAAE,GAAI,EAAE,EAAT;AACd,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,IAAD,CADpB;AAPyC;AAygBA;AAEzC;AACA,sBAAY;AACZ,qBAAW;AAIX,2BAA6B,aAAb,mBAAe,cAAC,2DAAD,CAAF;AARiC;AAArB;AAnBG;AAG5C;AAH4C;AAOF;AAG1C;AAH0C;AAxaD;AAEzC;AACA,yBAAc,CAAC,OAAQ,gCAAM,CAAC,EAAG,CAAJ,CAAf;AAH2B;AA2ZD;AAAR;AAEhC,eAAoB;AACpB,eAAU,MAAO,IAAI,oBAAJ;AAHe;AAAQ;AAtzDhB;;;;;AAsEJ,+BAAO,UvFoIjB,+BuFpIiB,CAAP;AAtEI;AAuFW,0FAAmB,UhG9U/C,2BgG8U+C,EAAoB,aPxT3D,qDOwT2D,EAAwB,SV1I5F,yCU0I4F,EAA0B,8BAAzF;AACD,yFAAmB,UhG/U9C,2BgG+U8C,EAAoB,aPzT1D,qDOyT0D,EAAwB,SV3I3F,yCU2I2F,CAA/D;AACM,+FAAmB,UhGhVpD,2BgGgVoD,EAAkB,WhGhVtE,2BgGgVsE,EAAwB,6BAAuB,iBhGrMnH,6BgGqMmH,EAAyB,0BAA7G;AACA,+FAAmB,UhGjVpD,2BgGiVoD,EAAkB,WhGjVtE,2BgGiVsE,EAAwB,6BAAuB,iBhGtMnH,6BgGsMmH,EAAyB,0BAA7G;AAEpB;AAER;AAFQ;;AAIlB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAIA;AAAa;AAAe;AAAkB;AAAoB;AAAqB;AACvF;AAAY;AAAc;AAAiB;AAAmB;AAAoB;AAClF;AAAU;AAAY;AAAe;AAAiB;AACtD;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAzBkB;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAy/DsB;AAAd;AAE5B,UAAG,CAAY,CAAC,iBAAD,SAAf,EACE,oBAAgB,2CAAkB,QAAC,YAAM,CAAC,IAAD,CAAN,CADrC;AAGA,eAAU;AALkB;AAAc;AAQN;AAEpC,gBAAK,OAAO,CAAC,KAAD;AAFwB;AAKE;AAEtC,kBAAO,OAAO,CAAC,KAAD;AAFwB;AA7PY;AAAhB;AAElC,eAAU;AAFwB;AAAgB;AA22DF;AAApB;AAE5B;AACA;AAAO;AAEP,eAAU;AACV,aAAQ,yBAAW,CAAC,QAAS,aAAV;AACnB,UAAY,IAAD,QAAX;AAEE,gBAAS,kDAAkB,gBAAgB,CAAC,IAAD;AAE3C,aAAM,kDAAkB,oBAAoB,CAAC,IAAD;AAC5C,iBAAc,CAAH,EAAG,KAAE,aAAF,CACmD,IAD3B,CAAH,EAAG,KAAE,QAAF,CAAP,IAA0B,CAAH,EAAG,KAAE,gBAAF,CAAP,IAC5C,CAAH,EAAG,KAAE,qBAAF,CADuE,IACvC,CAAH,EAAG,KAAE,uBAAF,CAAP,IAA+D,CAAzB,cAAG,CAAC,aAAc,KAAf,CAAsB,GAAE,CAAF,CAA7B;AAEjE,iBAAU,MAAiE,IAAxC,CAAd,aAAc,KAAE,MAAF,CAAlB,IAA8C,CAAd,aAAc,KAAE,QAAF,CAAlB,IAAgD,CAAd,aAAc,KAAE,MAAF,CAAlB;OAR7E;AAP4B;AAAoB;AAmBL;AAAf;AAE5B,UAAY,CAAR,OAAQ,KAAE,IAAF,CAAQ,IAAI,CAAI,+BAA5B;AACE,iBAAW,sCAAY,mBAAmB,CAAC,cAAe,mDAAhB,CAAqC,KAAE,CAAC,CAAH;AAE/E,qBAAU;AAEZ,UAAG,0BAAH,EACE,SAAU,MAAO,IAAI,yBAAoB,CAAC,QAAS,cAAe,aAAzB,CAD3C;AAGA,4BAAiB,CAAC,QAAS,cAAe,cAAe;;;;UAAxC;AAVW;AAAe;AAaA;AAAf;AAE5B,UAAY,CAAR,OAAQ,KAAE,IAAF,CAAQ,IAAI,CAAI,+BAA5B;AACE,iBAAW,sCAAY,mBAAmB,CAAC,cAAe,mDAAhB,CAAqC,KAAE,CAAC,CAAH;AAE/E,qBAAU;AAEZ,4BAAiB,CAAC,QAAS,cAAe,cAAe;;;;UAAxC;AAPW;AAAe;AArCL;AAAV;AAE5B,eAAU;AAFkB;AAAU;AA6EK;AAAf;AAG5B;AAOA,iBAAM,mBAAc,CAAC,eAAK,CAAC,UAAK,CAAC,MAAM,EAAP,EAAY,UAAK,CAAC,MAAM,EAAP,CAAvB,CAAN,CAApB;AACA,qBAAU,gCAAM,CAAC,EAAE,GAAI,EAAE,EAAT,CAAhB;AAX4B;AAAe;AAeA;AAAf;AAG5B;AAOA,iBAAM,mBAAc,CAAC,eAAK,CAAC,UAAK,CAAC,MAAM,EAAP,EAAY,UAAK,CAAC,MAAM,EAAP,CAAvB,CAAN,CAApB;AACA,qBAAU,gCAAM,CAAC,EAAE,GAAI,EAAE,EAAT,CAAhB;AAX4B;AAAe;AAjGD;AAAd;AAE5B,qBAAU,qBAAV;AAF4B;AAAc;AARA;AAAd;AAE5B,UAAG,kBAAH;AACE,uBAAU,gBAAV;AAEA,2BAAU,+BAAK,CAAC,EAAG,EAAG,gBAAO,gBAAd,CAAf;AAL0B;AAAc;AARF;AAAZ;AAE5B,UAAG,kBAAH;AACE,uBAAU,gBAAV;AAEA,2BAAU,qDAAV;AAL0B;AAAY;AALD;AAAX;AAE5B,eAAU;AAFkB;AAAW;AApyDF;AAErC;AACA,UAAY,UAAD,QAAX,EACE,UAAI,SAAC,CAAS,MAAT,CADP;AAEA;AALqC;AA+nDM;AAE3C;AACA,UAAG,CAAI,gBAAP;AAEE;AACA;OAHF;AAH2C;AAUQ;;AAkBf;AAEpC,wBAAc;AACd,wBAAa,CAAC,8CAAD;AACb;AACA,eAAI,CAAC,UAAW,8CAAZ;AACJ,wBAAc;AACd;AAPoC;AALM;AAE1C,+BAAe,KAAf;AAF0C;AARG;;AAIA;;AA8IJ;;AAJD;;AAvHD;AAEvC;AAEA;AACA,UAAK;AACL,UAAG,wCAAa,4BAA4B,CAAC;;;;UAAD,CAA5C,EACE,UAAI,SAAC,CAAS,CAAT,CADP;AAGA,UAAK;AACL,UAAG,wCAAa,sBAAsB,CAAC;;;;UAAD,CAAtC,EACE,YAAM,SAAC,CAAS,CAAT,CADT;AAVuC;AA7CS;AAEhD;AACA,gBAAI,SAAC,CAAS,QAAT;AACL,kBAAM,SAAC,CAAS,QAAT;AAJyC;AA2DG;AAEnD,UAAY,aAAD,QAAX;AAEW,iBAAT,KAAS;AACT,wBAAY;OAHd;AAMA,UAAY,eAAD,QAAX;AAEa,iBAAX,KAAW;AACX,0BAAc;OAHhB;AAMA,UAAY,kBAAD,QAAX;AAEgB,iBAAd,KAAc;AACd,6BAAiB;OAHnB;AAMA,UAAY,oBAAD,QAAX;AAEkB,iBAAhB,KAAgB;AAChB,+BAAmB;OAHrB;AAMA,UAAY,uBAAD,QAAX;AAEqB,iBAAnB,KAAmB;AACnB,kCAAsB;OAHxB;AAMA,UAAY,gBAAD,QAAX;AAEc,iBAAZ,KAAY;AACZ,2BAAe;OAHjB;AAMA,UAAY,qBAAD,QAAX;AAEmB,iBAAjB,KAAiB;AACjB,gCAAoB;OAHtB;AAMA,UAAY,0BAAD,QAAX;AAEwB,iBAAtB,KAAsB;AACtB,qCAAyB;OAH3B;AAMA,UAAY,wBAAD,QAAX;AAEsB,iBAApB,KAAoB;AACpB,mCAAuB;OAHzB;AAMA,UAAY,kBAAD,QAAX;AAEgB,iBAAd,KAAc;AACd,6BAAiB;OAHnB;AAMA,UAAY,uBAAD,QAAX;AAEqB,iBAAnB,KAAmB;AACnB,kCAAsB;OAHxB;AAMA,UAAY,eAAD,QAAX;AAEa,iBAAX,KAAW;AACX,0BAAc;OAHhB;AAMA,UAAY,oBAAD,QAAX;AAEkB,iBAAhB,KAAgB;AAChB,+BAAmB;OAHrB;AAMA,UAAY,iBAAD,QAAX;AAEe,iBAAb,KAAa;AACb,4BAAgB;OAHlB;AAMA,UAAY,sBAAD,QAAX;AAEoB,iBAAlB,KAAkB;AAClB,iCAAqB;OAHvB;AAMA,UAAY,yBAAD,QAAX;AAEuB,iBAArB,KAAqB;AACrB,oCAAwB;OAH1B;AAMA,UAAY,uBAAD,QAAX;AAEqB,iBAAnB,KAAmB;AACnB,kCAAsB;OAHxB;AAlGmD;AAtzCE;;AA2BH;AAelD;AAKA;AACA;AAIA,WAAM;AAGN,UAAY,qBAAD,QAAX;AAEmB,iBAAjB,KAAiB;AACjB,gCAAoB;OAHtB;AAMA,UAAY,kBAAD,QAAX;AAEgB,iBAAd,KAAc;AACd,6BAAiB;OAHnB;AAMA,UAAY,gBAAD,QAAX;AAEc,iBAAZ,KAAY;AACZ,2BAAe;OAHjB;AAMA,UAAY,uBAAD,QAAX;AAEqB,iBAAnB,KAAmB;AACnB,kCAAsB;OAHxB;AAMA,UAAY,0BAAD,QAAX;AAEwB,iBAAtB,KAAsB;AACtB,qCAAyB;OAH3B;AAMA,UAAY,wBAAD,QAAX;AAEsB,iBAApB,KAAoB;AACpB,mCAAuB;OAHzB;AAiDA,YAAO,8BAAO,QAAC;AAKf,UAAK,4CAAe,QAAC,YAAM,CAAC,GAAG,UAAC,GPhkF0B,KOgkF/B,CAAN;AAErB;AAOE,WAAG,QAAQ,CAAC,UAAK,CAAC,EAAG,GAAE,EAAN,EAAW,UAAK,CAAC,EAAG,GAAE,EAAN,CAAtB;AAEX,6BAAiB,uCAAa,QAAC;AAC/B,0BAAa,UAAb,GAA2B;AAgC3B,SAAC,MAAK,QAAC,CAAQ,kEAAR;AACP,SAAC,MAAK,SAAC,CAAS,QAAT;AACP,SAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,SAAC,QAAO,SAAC,CAAS,QAAT;AACT,SAAC,gBAAc,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GPtkFwE,6EOskF9E;AACf,SAAC,aAAa,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GAA+B,MAAO,MAAO,KPxiF4E,GOwiF/H;AAGd,0BAAa,OAAO,CAAC,GAAD;AAEpB,2BAAe,uCAAa,QAAC;AAC7B,wBAAW,UAAX,GAAyB;AAgCzB,SAAC,MAAK,QAAC,CAAQ,kEAAR;AACP,SAAC,MAAK,SAAC,CAAS,QAAT;AACP,SAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,SAAC,QAAO,SAAC,CAAS,QAAT;AACT,SAAC,gBAAc,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GPjnFwE,6EOinF9E;AACf,SAAC,aAAa,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GAA+B,KAAM,MAAO,KPnlF6E,GOmlF/H;AAGd,wBAAW,OAAO,CAAC,GAAD;AAElB,kCAAsB,uCAAa,QAAC;AACpC,+BAAkB,UAAlB,GAAgC;AAgChC,SAAC,MAAK,QAAC,CAAQ,kEAAR;AACP,SAAC,MAAK,SAAC,CAAS,QAAT;AACP,SAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,SAAC,QAAO,SAAC,CAAS,QAAT;AACT,SAAC,gBAAc,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GP5pFwE,6EO4pF9E;AACf,SAAC,aAAa,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GAA+B,MAAO,KAAM,KP9nF6E,GO8nF/H;AAGd,+BAAkB,OAAO,CAAC,GAAD;AAEzB,gCAAoB,uCAAa,QAAC;AAClC,6BAAgB,UAAhB,GAA8B;AAgC9B,SAAC,MAAK,QAAC,CAAQ,kEAAR;AACP,SAAC,MAAK,SAAC,CAAS,QAAT;AACP,SAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,SAAC,QAAO,SAAC,CAAS,QAAT;AACT,SAAC,gBAAc,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GPvsFwE,6EOusF9E;AACf,SAAC,aAAa,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GAA+B,KAAM,KAAM,KPzqF8E,GOyqF/H;AAGd,6BAAgB,OAAO,CAAC,GAAD;AAEvB,qCAAyB,uCAAa,QAAC;AACvC,kCAAqB,UAArB,GAAmC;AAgCnC,SAAC,MAAK,QAAC,CAAQ,kEAAR;AACP,SAAC,MAAK,SAAC,CAAS,QAAT;AACP,SAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,SAAC,QAAO,SAAC,CAAS,QAAT;AACT,SAAC,gBAAc,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GPlvFwE,6EOkvF9E;AACf,SAAC,aAAa,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GAA+B,MAAO,MAAO,MPptF4E,GOotF/H;AAGd,kCAAqB,OAAO,CAAC,GAAD;AAE5B,mCAAuB,uCAAa,QAAC;AACrC,gCAAmB,UAAnB,GAAiC;AAgCjC,SAAC,MAAK,QAAC,CAAQ,kEAAR;AACP,SAAC,MAAK,SAAC,CAAS,QAAT;AACP,SAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,SAAC,QAAO,SAAC,CAAS,QAAT;AACT,SAAC,gBAAc,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GP7xFwE,6EO6xF9E;AACf,SAAC,aAAa,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GAA+B,KAAM,MAAO,MP/vF6E,GO+vF/H;AAGd,gCAAmB,OAAO,CAAC,GAAD;AAzQ5B;AA4QE,SAAE,eAAF,CAAE;AAEF,WAAI,eAAJ,GAAI;AA9QN;AAlHkD;AAotBG;AAerD;AAKA;AACA;AAIA,WAAM;AAGN,UAAY,oBAAD,QAAX;AAEkB,iBAAhB,KAAgB;AAChB,+BAAmB;OAHrB;AAMA,UAAY,iBAAD,QAAX;AAEe,iBAAb,KAAa;AACb,4BAAgB;OAHlB;AAMA,UAAY,eAAD,QAAX;AAEa,iBAAX,KAAW;AACX,0BAAc;OAHhB;AAMA,UAAY,sBAAD,QAAX;AAEoB,iBAAlB,KAAkB;AAClB,iCAAqB;OAHvB;AAMA,UAAY,yBAAD,QAAX;AAEuB,iBAArB,KAAqB;AACrB,oCAAwB;OAH1B;AAMA,UAAY,uBAAD,QAAX;AAEqB,iBAAnB,KAAmB;AACnB,kCAAsB;OAHxB;AAiDA,YAAO,8BAAO,QAAC;AAKf,UAAK,4CAAe,QAAC,YAAM,CAAC,GAAG,UAAC,GPpxG0B,KOoxG/B,CAAN;AAErB;AAOE,WAAG,QAAQ,CAAC,UAAK,CAAC,EAAG,GAAE,EAAN,EAAW,UAAK,CAAC,EAAG,GAAE,EAAN,CAAtB;AAEX,4BAAgB,uCAAa,QAAC;AAC9B,yBAAY,UAAZ,GAA0B;AAgC1B,SAAC,MAAK,QAAC,CAAQ,kEAAR;AACP,SAAC,MAAK,SAAC,CAAS,QAAT;AACP,SAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,SAAC,QAAO,SAAC,CAAS,QAAT;AACT,SAAC,gBAAc,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GP1xGwE,6EO0xG9E;AACf,SAAC,gBAAgB,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GAA+B,MAAO,MAAO,KPtvG4E,GOsvG/H;AAGjB,yBAAY,OAAO,CAAC,GAAD;AAEnB,0BAAc,uCAAa,QAAC;AAC5B,uBAAU,UAAV,GAAwB;AAgCxB,SAAC,MAAK,QAAC,CAAQ,kEAAR;AACP,SAAC,MAAK,SAAC,CAAS,QAAT;AACP,SAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,SAAC,QAAO,SAAC,CAAS,QAAT;AACT,SAAC,gBAAc,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GPr0GwE,6EOq0G9E;AACf,SAAC,gBAAgB,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GAA+B,KAAM,MAAO,KPjyG6E,GOiyG/H;AAGjB,uBAAU,OAAO,CAAC,GAAD;AAEjB,iCAAqB,uCAAa,QAAC;AACnC,8BAAiB,UAAjB,GAA+B;AAgC/B,SAAC,MAAK,QAAC,CAAQ,kEAAR;AACP,SAAC,MAAK,SAAC,CAAS,QAAT;AACP,SAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,SAAC,QAAO,SAAC,CAAS,QAAT;AACT,SAAC,gBAAc,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GPh3GwE,6EOg3G9E;AACf,SAAC,gBAAgB,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GAA+B,MAAO,KAAM,KP50G6E,GO40G/H;AAGjB,8BAAiB,OAAO,CAAC,GAAD;AAExB,+BAAmB,uCAAa,QAAC;AACjC,4BAAe,UAAf,GAA6B;AAgC7B,SAAC,MAAK,QAAC,CAAQ,kEAAR;AACP,SAAC,MAAK,SAAC,CAAS,QAAT;AACP,SAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,SAAC,QAAO,SAAC,CAAS,QAAT;AACT,SAAC,gBAAc,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GP35GwE,6EO25G9E;AACf,SAAC,gBAAgB,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GAA+B,KAAM,KAAM,KPv3G8E,GOu3G/H;AAGjB,4BAAe,OAAO,CAAC,GAAD;AAEtB,oCAAwB,uCAAa,QAAC;AACtC,iCAAoB,UAApB,GAAkC;AAgClC,SAAC,MAAK,QAAC,CAAQ,kEAAR;AACP,SAAC,MAAK,SAAC,CAAS,QAAT;AACP,SAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,SAAC,QAAO,SAAC,CAAS,QAAT;AACT,SAAC,gBAAc,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GPt8GwE,6EOs8G9E;AACf,SAAC,gBAAgB,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GAA+B,MAAO,MAAO,MPl6G4E,GOk6G/H;AAGjB,iCAAoB,OAAO,CAAC,GAAD;AAE3B,kCAAsB,uCAAa,QAAC;AACpC,+BAAkB,UAAlB,GAAgC;AAgChC,SAAC,MAAK,QAAC,CAAQ,kEAAR;AACP,SAAC,MAAK,SAAC,CAAS,QAAT;AACP,SAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,SAAC,QAAO,SAAC,CAAS,QAAT;AACT,SAAC,gBAAc,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GPj/GwE,6EOi/G9E;AACf,SAAC,gBAAgB,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GAA+B,KAAM,MAAO,MP78G6E,GO68G/H;AAGjB,+BAAkB,OAAO,CAAC,GAAD;AAzQ3B;AA4QE,SAAE,eAAF,CAAE;AAEF,WAAI,eAAJ,GAAI;AA9QN;AAlHqD;AA/UL;AAehD;AAKA;AACA;AAIA,WAAM;AAGN,UAAY,aAAD,QAAX;AAEW,iBAAT,KAAS;AACT,wBAAY;OAHd;AAMA,UAAY,eAAD,QAAX;AAEa,iBAAX,KAAW;AACX,0BAAc;OAHhB;AAMA,UAAY,kBAAD,QAAX;AAEgB,iBAAd,KAAc;AACd,6BAAiB;OAHnB;AAMA,UAAY,oBAAD,QAAX;AAEkB,iBAAhB,KAAgB;AAChB,+BAAmB;OAHrB;AAMA,UAAY,uBAAD,QAAX;AAEqB,iBAAnB,KAAmB;AACnB,kCAAsB;OAHxB;AA4CA,YAAO,8BAAO,QAAC;AAKf,UAAK,4CAAe,QAAC,YAAM,CAAC,GAAG,UAAC,GP17F0B,KO07F/B,CAAN;AAErB;AAOE,WAAG,QAAQ,CAAC,UAAK,CAAC,MAAO,GAAE,EAAV,EAAe,UAAK,CAAC,OAAQ,GAAE,EAAX,CAA1B;AAEX,0BAAc,uCAAa,QAAC;AAC5B,uBAAU,UAAV,GAAwB;AAgCxB,SAAC,MAAK,QAAC,CAAQ,kEAAR;AACP,SAAC,MAAK,SAAC,CAAS,QAAT;AACP,SAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,SAAC,QAAO,SAAC,CAAS,QAAT;AACT,SAAC,gBAAc,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GPh8FwE,6EOg8F9E;AACf,SAAC,WAAW,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GAA+B,MAAO,MAAO,KAAM,uBPj6FkG,GOi6F3J;AAGZ,uBAAU,OAAO,CAAC,GAAD;AAEjB,wBAAY,uCAAa,QAAC;AAC1B,qBAAQ,UAAR,GAAsB;AAgCtB,SAAC,MAAK,QAAC,CAAQ,kEAAR;AACP,SAAC,MAAK,SAAC,CAAS,QAAT;AACP,SAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,SAAC,QAAO,SAAC,CAAS,QAAT;AACT,SAAC,gBAAc,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GP3+FwE,6EO2+F9E;AACf,SAAC,WAAW,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GAA+B,KAAM,MAAO,KAAM,uBP58FmG,GO48F3J;AAGZ,qBAAQ,OAAO,CAAC,GAAD;AAEf,+BAAmB,uCAAa,QAAC;AACjC,4BAAe,UAAf,GAA6B;AAgC7B,SAAC,MAAK,QAAC,CAAQ,kEAAR;AACP,SAAC,MAAK,SAAC,CAAS,QAAT;AACP,SAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,SAAC,QAAO,SAAC,CAAS,QAAT;AACT,SAAC,gBAAc,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GPthGwE,6EOshG9E;AACf,SAAC,WAAW,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GAA+B,KAAM,KAAM,KAAM,uBPv/FoG,GOu/F3J;AAGZ,4BAAe,OAAO,CAAC,GAAD;AAEtB,6BAAiB,uCAAa,QAAC;AAC/B,0BAAa,UAAb,GAA2B;AAgC3B,SAAC,MAAK,QAAC,CAAQ,kEAAR;AACP,SAAC,MAAK,SAAC,CAAS,QAAT;AACP,SAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,SAAC,QAAO,SAAC,CAAS,QAAT;AACT,SAAC,gBAAc,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GPjkGwE,6EOikG9E;AACf,SAAC,WAAW,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GAA+B,MAAO,KAAM,KAAM,uBPliGmG,GOkiG3J;AAGZ,0BAAa,OAAO,CAAC,GAAD;AAEpB,kCAAsB,uCAAa,QAAC;AACpC,+BAAkB,UAAlB,GAAgC;AAgChC,SAAC,MAAK,QAAC,CAAQ,kEAAR;AACP,SAAC,MAAK,SAAC,CAAS,QAAT;AACP,SAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,SAAC,QAAO,SAAC,CAAS,QAAT;AACT,SAAC,gBAAc,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GP5mGwE,6EO4mG9E;AACf,SAAC,WAAW,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GAA+B,MAAO,MAAO,MAAO,uBP7kGiG,GO6kG3J;AAGZ,+BAAkB,OAAO,CAAC,GAAD;AA9N3B;AAiOE,SAAE,eAAF,CAAE;AAEF,WAAI,eAAJ,GAAI;AAnON;AAvGgD;AAvjBP;AAEzC,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAM,UAAW,+CAAO,YAAzB,CADd;AAFyC;AAMD;AAExC,UAAY,iBAAD,QAAX,EACE,iBAAW,CAAC,KAAM,UAAW,8CAAlB,CADb;AAFwC;AAlBM;AAE9C,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,QAAS,cAAe,cAAe,QAA9C,CADnB;AAF8C;AAMA;AAE9C,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,QAAS,cAAe,cAAe,QAA9C,CADnB;AAF8C;AAkBH;AAE3C,eAAS,MAAK,OAAO,CAAC,UAAD;AACrB,eAAS,MAAK,SAAC,CAAS,WAAT;AACf,eAAS,QAAO,OAAO,CAAC,YAAD;AACvB,eAAS,gBAAc,CAAC,+CPrwEuE,6EOqwExE;AALoB;AAoHD;AAE1C;AAF0C;AAKF;AAMxC,UAAc,CAAV,UAAI,MAAM,KAAG,iEAAH,CAA0C,IAAf,CAAV,UAAI,MAAM,KAAG,oEAAH,CAAf,IAA8C,CAAX,UAAI,OAAO,KAAG,EAAH,CAAxE;AACE,sBAAS,UAAI,OAAb;AAGA,0BAAS,EAAT;AAKF;AAfwC;AAnBP;;AA5EO;AAExC;AAAG;AACH;AACA;AACA;AAKA,UAAG,sBAAH;AAOE,YAAK,4CAAe,QAAC,sBAAkB,CAAC,gBAAO,iBAAQ,mBPn1EsE,IOm1EtF,CAAlB;AAErB,SAAC;OAGD,UAAK,4CAAe,QAAC,YAAM,CAAC,iBAAQ,kBAAT,CAAN;AAGvB,OAAC,sBAAD,GAA0B;AAE1B,OAAC,WAAC,EAAO,QAAQ,CAAC,gBAAO,gBAAR;AACjB,OAAC,WAAC,EAAO,gBAAgB,CAAC,kBAAD;AACzB,OAAC,WAAC,EAAO,uBAAuB,CAAC,yBAAD;AAChC,OAAC,WAAC,EAAO,eAAe,CAAC,iBAAD;AACxB;AACE,kBAAK,+BAAK,CAAC,EAAG,EAAG,gBAAO,gBAAd,CAAV;AACA,aAAM;AACN,yBAAY,CAAC,EAAG,2CAAG;;;;YAAP;AACZ,YAAG,EAAH;AAEE,6BAAc,CAAC,EAAG,0CAAJ;AACd,mBAAI,CAAC,EAAG,0CAAJ;AACJ,0BAAW,CAAC,EAAG,0CAAJ;SAJb;AAYA,YAAG,sBAAH,EACE,CAAC,WADH;AAGA,SAAC,WAAC,EAAO;AAET,YAAG,sBAAH;AAEE,gBAAO,uCAAa,QAAC;AACrB;AACE,eAAG,OAAO,CAAC,CAAC,QAAF;AACV,mBAAQ,4CAAe,QAAC,YAAM,CAAC,iBAAQ,KAAT,CAAN;AACxB;AACE,kBAAI,WAAC,EAAO,QAAQ,CAAC,gBAAO,gBAAR;AACpB,kBAAI,WAAC,EAAO,gBAAgB,CAAC,kBAAD;AAC5B,kBAAI,WAAC,EAAO,uBAAuB,CAAC,yBAAD;AACnC,kBAAI,WAAC,EAAO,eAAe,CAAC,iBAAD;AAC3B,kBAAI,aAAW,CAAC,2CAAG,IPv0EsE,KACzE,MAA0B,KAA2B,KOs0EtD;AALjB;AAOE,kBAAK,eAAL,IAAK;AAPP;AAHF;AAaE,eAAI,eAAJ,GAAI;AAbN;SAHF;AArBF;AAyCE,SAAE,eAAF,CAAE;AAzCJ;AA/BwC;AAsHI;AAG5C,UAAG,qBAAH,EACE,MADF;AAEA,8BAAoB;AACpB;AACA,8BAAoB;AAPwB;AAyjDN;AAYtC;AAZsC;AAgBO;AAW7C;AAX6C;AA/5DV;AAEnC,UAAa,yBAAH,eAAP,MAAO,CAAV;AAEE,kBAAK,OAAO,CAAS,OAAP,OAAU,yBAAH,CAAwB,MAAjC;AACZ,oBAAO,OAAO,CAAS,OAAP,OAAU,yBAAH,CAAwB,QAAjC;OAGd;AARiC;AAWE;AAErC;AAWA,oBAAS,QAAT;AAGA,8BAAmB;AACnB,yBAAc;AAEd,sBAAW,IAAX;AACA,mBAAS,qDAAmB,QAAC,aT/jD+B,mEAA+C,SAAgD,QAAmD,GAAqD,ES+jDtO;AAC7B,qBAAW,uDAAqB,QAAC,aTj7C6B,qEAA+C,QSi7C5E;AACjC,gBAAK,WAAL,GAAoB;AACpB,kBAAO,WAAP,GAAsB;AAEtB,UAAG,CAAI,qBAAP,EACE,6BADF;AAzB0D;AAArB;AA6BA;AAErC,UAAY,iBAAD,QAAX;AAEe,iBAAb,KAAa;AACb,4BAAgB;OAHlB;AAMA,UAAY,aAAD,QAAX;AAEW,iBAAT,KAAS;AACT,wBAAY;OAHd;AAMA,UAAY,eAAD,QAAX;AAEa,iBAAX,KAAW;AACX,0BAAc;OAHhB;AAMA,UAAY,kBAAD,QAAX;AAEgB,iBAAd,KAAc;AACd,6BAAiB;OAHnB;AAMA,UAAY,oBAAD,QAAX;AAEkB,iBAAhB,KAAgB;AAChB,+BAAmB;OAHrB;AAMA,UAAY,uBAAD,QAAX;AAEqB,iBAAnB,KAAmB;AACnB,kCAAsB;OAHxB;AAMA,UAAY,gBAAD,QAAX;AAEc,iBAAZ,KAAY;AACZ,2BAAe;OAHjB;AAMA,UAAY,qBAAD,QAAX;AAEmB,iBAAjB,KAAiB;AACjB,gCAAoB;OAHtB;AAMA,UAAY,0BAAD,QAAX;AAEwB,iBAAtB,KAAsB;AACtB,qCAAyB;OAH3B;AAMA,UAAY,wBAAD,QAAX;AAEsB,iBAApB,KAAoB;AACpB,mCAAuB;OAHzB;AAMA,UAAY,kBAAD,QAAX;AAEgB,iBAAd,KAAc;AACd,6BAAiB;OAHnB;AAMA,UAAY,uBAAD,QAAX;AAEqB,iBAAnB,KAAmB;AACnB,kCAAsB;OAHxB;AAMA,UAAY,eAAD,QAAX;AAEa,iBAAX,KAAW;AACX,0BAAc;OAHhB;AAMA,UAAY,oBAAD,QAAX;AAEkB,iBAAhB,KAAgB;AAChB,+BAAmB;OAHrB;AAMA,UAAY,iBAAD,QAAX;AAEe,iBAAb,KAAa;AACb,4BAAgB;OAHlB;AAMA,UAAY,sBAAD,QAAX;AAEoB,iBAAlB,KAAkB;AAClB,iCAAqB;OAHvB;AAMA,UAAY,yBAAD,QAAX;AAEuB,iBAArB,KAAqB;AACrB,oCAAwB;OAH1B;AAMA,UAAY,uBAAD,QAAX;AAEqB,iBAAnB,KAAmB;AACnB,kCAAsB;OAHxB;AAMM,eAAN,KAAM;AACE,eAAR,KAAQ;AAER;AAjHqC;AA27CQ;AAAjB;AAE5B,UAAI,CAAY,CAAC,gBAAD,SAC2D,IAD1C,CAAY,CAAC,qBAAD,SAAf,IAAqC,CAAY,CAAC,kBAAD,SAAf,IAC3D,CAAY,CAAC,uBAAD,SAAf,IAAuC,CAAY,CAAC,wBAAD,SAAf,IAAwC,CAAY,CAAC,0BAAD,SAD1F,EAEE,4BAFF;AAIA,UAAG,QAAH;AAEE,YAAG,QAAH;AAEE,cAAG,QAAH;AACE,qBAAU;AAEV,yBAAU;SAGZ,eAAU;;AAIZ,YAAG,QAAH;AAEE,cAAG,QAAH;AACE,qBAAU;AAEV,yBAAU;SAGZ,eAAU;;AA5Bc;AAAiB;AAgCG;AAApB;AAE5B,UAAI,CAAY,CAAC,eAAD,SACyD,IADzC,CAAY,CAAC,oBAAD,SAAf,IAAoC,CAAY,CAAC,iBAAD,SAAf,IACzD,CAAY,CAAC,sBAAD,SAAf,IAAsC,CAAY,CAAC,uBAAD,SAAf,IAAuC,CAAY,CAAC,yBAAD,SADxF,EAEE,+BAFF;AAIA,UAAG,QAAH;AAEE,YAAG,QAAH;AAEE,cAAG,QAAH;AACE,qBAAU;AAEV,yBAAU;SAGZ,eAAU;;AAIZ,YAAG,QAAH;AAEE,cAAG,QAAH;AACE,qBAAU;AAEV,yBAAU;SAGZ,eAAU;;AA5Bc;AAAoB;AA9DL;AAAf;AAE5B,8BAAmB,CAAC,OAAQ,OAAT;AAEnB,UAAG,KAAH;AAEE,YAAG,QAAH;AAEE,cAAG,QAAH;AACE,qBAAU;AAEV,yBAAU;SAGZ,eAAU;;AAIZ,YAAG,QAAH;AAEE,cAAG,QAAH;AACE,qBAAU;AAEV,yBAAU;SAGZ,eAAU;;AA1Bc;AAAe;AA8FH;AAAZ;AAE5B,eAAU;AACV,UAAY,WAAD,QAAX,EACE,SAAU,kBAAY,IAAI,CAAyC,CAAzB,CAAV,yCAAU,IAAG,WAAK,gBAAR,CAAyB,IAAc,CAAV,yCAAU,IAAG,WAAK,gBAAR,CAAd,CADrE;AAH4B;AAAY;AAkCH;AAAT;AAE5B,eAAU;AACV,UAAY,WAAD,QAAX,EACE,SAAW,yCAAU,IAAG,WAAK,gBAD/B;AAH4B;AAAS;AA3BA;AAAT;AAE5B,eAAU;AACV,UAAY,WAAD,QAAX,EACE,SAAW,yCAAU,IAAG,WAAK,gBAD/B;AAH4B;AAAS;AAOE;AAAX;AAE5B,eAAwB,CAAZ,2CAAY,IAAG,oBAAH,CAAkC,IAAW,CAAC,yBAAD,SAAX;AAF9B;AAAW;AAKG;AAAd;AAE5B;AAEA,YAAO,sCAAY,aAAa,CAAC,IAAD;AAChC,eAAU;AACV,UAAY,GAAD,QAAX,EACE,SAAU,MAAO,IAAW,8BAAH,eAAJ,GAAI,CAD3B;AAN4B;AAAc;AAUF;AAAZ;AAE5B,eAAW,4CAAa,IAAG,oBAAH;AAFI;AAAY;AAiQO;AAE/C,mCAAyB;AACzB,wDAAkB,mBAAmB,CAAC,KAAM,SAAP;AACrC,mCAAyB;AAJsB;AAOE;AAEjD;AACA,wDAAkB,qBAAqB,CAAC,KAAM,SAAP;AACvC;AACA;AALiD;AAQA;AAEjD,mCAAyB;AACzB,wDAAkB,qBAAqB,CAAC,KAAM,OAAP;AACvC,mCAAyB;AAJwB;AAOE;AAEnD;AACA,wDAAkB,uBAAuB,CAAC,KAAM,OAAP;AACzC;AACA;AALmD;AAr6DL;AAE9C,gBAAK,QAAC,CAAQ,iEAAR;AACN,kBAAO,QAAC,CAAQ,mEAAR;AAMR,oBAAS,EAAT;AAT8C;AAaD;AAE7C,gBAAK,QAAC,CAAQ,kEAAR;AACN,kBAAO,QAAC,CAAQ,oEAAR;AAHqC;AAuDL;AAExC,gBAAK,QAAC,CAAQ,iEAAR;AAFkC;AAKD;AAEvC,gBAAK,QAAC,CAAQ,kEAAR;AAFiC;AAtDG;AAE1C,kBAAO,QAAC,CAAQ,mEAAR;AAFkC;AA4CD;AAEzC,kBAAO,QAAC,CAAQ,oEAAR;AAFiC;AARN;AAEnC;AAEA;AAJmC;AAwUD;AAKlC;AACA;AANkC;AA9oEd;;;;;;;AAiGA,+BAAO,UvFajB,+BuFbiB,CAAP;AAgCG;AACF;AA4HL,6BnFzkBV,uCmFykBU;AACW;AACT,+BnFnkBV,yCmFmkBU,yBnF4CkD,uBAAC,0CAAQ,wCAAT,CmF5ClD;AACC,gCnF9fV,0CmF8fU;AACG,mCnF3kBV,6CmF2kBU;AACL,8BnFheV,wCmFgeU;AACI;AACL,6BlF9UV,uCkF8UU;AACG,gCnFrlBV,0CmFqlBU;AACM;AACE,wCnFvkBV,kDmFukBU;AACP,iCnFvkBV,2CmFukBU;AACE,mCnFvkBV,6CmFukBU;AACI,uCnFvkBV,iDmFukBU;AACR;AACH,4BlFrPV,sCkFqPU;AACE;AACO;AACF,mCnFxlBZ,2CmFwlBY;AACP;AACA;AACG,+BnFrgBV,yCmFqgBU;AACE,iCvE3fV,wCuE2fU;AACW;AACV;AACN;AACG;AACC;AACA;AACL;AACE;AACO;AACF,kCnFtmBX,2CmFsmBW;AACH;AACA,+BnFtiBN,6CmFsiBM;AACG,kCnFviBT,6CmFuiBS;AACH,+BnFxiBN,6CmFwiBM;AACD,8BnFziBL,6CmFyiBK;AACG,iCnFpiBX,0CmFoiBW;AACC,kCnFpiBP,+CmFoiBO;AACH,+BnFtiBT,0CmFsiBS;AACI,mCnF5iBX,4CmF4iBW;AACC,oCnF9iBX,6CmF8iBW;AACA,oCnF/iBX,6CmF+iBW;AACD,mCnF3iBP,gDmF2iBO;AACF,iCnFhjBT,4CmFgjBS;AACG,oCnFhjBP,iDmFgjBO;AACE,sCnFhjBH,uDmFgjBG;AACE,wCnFjjBL,uDmFijBK;AACN,kCnF1iBP,+CmF0iBO;AACA,kCnF1iBP,+CmF0iBO;AACF,gCnFvjBP,6CmFujBO;AAEW;AACP,oCAzTY,kDAyTZ;AACD,mCAzTY,iDAyTZ;AACM,yCAzTY,uDAyTZ;AACA,yCAzTY,uDAyTZ;AAvTR;AA0TK,oDA1TL,gDA0TK;AAEX;AAsoH+B;AAE7C;AACA,+BAAa,CAAC,mBAAD;AAHgC;AAtoH/B;;;;;;;AAyEU;AAAjB;AAEP,aAAqB,kCAAH,eAAR,OAAQ;AAFX;AAAiB;AAKA;AAAjB;AAEP,aAAkB,OAAR,QAAW,kCAAH;AAFX;AAAiB;AA50B1B,GAswBc,kDAtwBd;ACAA,qCAWS,+JAXT;;;AAgKwB;AA/HI;;;AAExB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAjCwB;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAikB2B;AAGrD,UAAG,qBAAiB,KAAG,KAAvB;AAEE,gCAAoB;AACpB;OAHF;AAHqD;AAlKL;AAEhD,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf;OAHF;AAFgD;AATA;AAEhD,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf;OAHF;AAFgD;AAkBc;AAG9D,oCAAyB,OAAO,CAAC,KAAD;AAH8B;AAME;AAGhE,sCAA2B,OAAO,CAAC,KAAD;AAH8B;AAMN;AAG1D,gCAAqB,OAAO,CAAC,KAAD;AAH8B;AAMK;AAG/D,qCAA0B,OAAO,CAAC,KAAD;AAH8B;AAME;AAGjE,uCAA4B,OAAO,CAAC,KAAD;AAH8B;AAML;AAG5D,kCAAuB,OAAO,CAAC,KAAD;AAH8B;AAMG;AAG/D,qCAA0B,OAAO,CAAC,KAAD;AAH8B;AAME;AAGjE,uCAA4B,OAAO,CAAC,KAAD;AAH8B;AAMN;AAG3D,iCAAsB,OAAO,CAAC,KAAD;AAH8B;AAMK;AAGhE,sCAA2B,OAAO,CAAC,KAAD;AAH8B;AAME;AAGlE,wCAA6B,OAAO,CAAC,KAAD;AAH8B;AAML;AAG7D,mCAAwB,OAAO,CAAC,KAAD;AAH8B;AAMP;AAEtD,UAAG,sBAAkB,KAAG,KAAxB;AAEE,iCAAqB;AACrB;OAHF;AAFsD;AASO;AAG7D,mCAAwB,OAAO,CAAC,KAAD;AAH8B;AAME;AAG/D,qCAA0B,OAAO,CAAC,KAAD;AAH8B;AAMN;AAGzD,+BAAoB,OAAO,CAAC,KAAD;AAH8B;AAMK;AAG9D,oCAAyB,OAAO,CAAC,KAAD;AAH8B;AAME;AAGhE,sCAA2B,OAAO,CAAC,KAAD;AAH8B;AAML;AAG3D,iCAAsB,OAAO,CAAC,KAAD;AAH8B;AAMG;AAG9D,oCAAyB,OAAO,CAAC,KAAD;AAH8B;AAME;AAGhE,sCAA2B,OAAO,CAAC,KAAD;AAH8B;AAMN;AAG1D,gCAAqB,OAAO,CAAC,KAAD;AAH8B;AAMK;AAG/D,qCAA0B,OAAO,CAAC,KAAD;AAH8B;AAME;AAGjE,uCAA4B,OAAO,CAAC,KAAD;AAH8B;AAML;AAG5D,kCAAuB,OAAO,CAAC,KAAD;AAH8B;AAgBb;AAG/C,qBAAU,OAAO,CAAC,KAAD;AAH8B;AAME;AAGjD,uBAAY,OAAO,CAAC,KAAD;AAH8B;AArMS;AAAxB;AAElC,eAAU,sBAAiB,KAAG,EAAH;AAFO;AAAwB;AAKD;AAAvB;AAElC,eAAU,qBAAgB,KAAG,EAAH;AAFQ;AAAuB;AAxHf;AAE1C,iBAAM;AAFoC;AAsGI;AAE9C;AAF8C;AAwNE;AAEhD;AAFgD;AAzTL;AAE3C,oBAAU;AACV,wBAAc,qDAAmB,QAAC,YAAM,CAAC,mEAAU,mDAAiB,CAAC,IAAK,IAAK,GAAX,EV6buF,QAAmD,GAAqD,EU7b3N,CAAN;AAClC,qBAAU,WAAV,GAAyB;AACzB,kCAAwB,qDAAmB,QAAC,YAAM,CAAC,mEAAU,mDAAiB,CAAC,IAAK,IAAK,GAAX,EV2b6E,QAAmD,GAAqD,EU3bjN,CAAN;AAC5C,+BAAoB,WAApB,GAAmC;AACnC,mCAAyB,qDAAmB,QAAC,YAAM,CAAC,mEAAU,mDAAiB,CAAC,IAAK,IAAK,GAAX,EVyb4E,QAAmD,GAAqD,EUzbhN,CAAN;AAC7C,gCAAqB,WAArB,GAAoC;AACpC,uCAA6B,qDAAmB,QAAC,YAAM,CAAC,mEAAU,mDAAiB,CAAC,IAAK,IAAK,GAAX,EVubwE,QAAmD,GAAqD,EUvb5M,CAAN;AACjD,oCAAyB,WAAzB,GAAwC;AACxC,wCAA8B,qDAAmB,QAAC,YAAM,CAAC,mEAAU,mDAAiB,CAAC,IAAK,IAAK,GAAX,EVqbuE,QAAmD,GAAqD,EUrb3M,CAAN;AAClD,qCAA0B,WAA1B,GAAyC;AACzC,sCAA4B,qDAAmB,QAAC,YAAM,CAAC,mEAAU,wCAAM,CAAC,mDAAiB,CAAC,IAAK,IAAK,GAAX,EAAiB,EAAnC,EVmboF,QAAmD,GAAqD,EUnb7M,CAAN;AAChD,mCAAwB,WAAxB,GAAuC;AACvC,uCAA6B,qDAAmB,QAAC,YAAM,CAAC,mEAAU,wCAAM,CAAC,mDAAiB,CAAC,IAAK,IAAK,GAAX,EAAiB,EAAnC,EVibmF,QAAmD,GAAqD,EUjb5M,CAAN;AACjD,oCAAyB,WAAzB,GAAwC;AAExC,mCAAyB,qDAAmB,QAAC,YAAM,CAAC,mEAAU,mDAAiB,CAAC,IAAK,IAAK,GAAX,EV8a4E,QAAmD,GAAqD,EU9ahN,CAAN;AAC7C,gCAAqB,WAArB,GAAoC;AACpC,oCAA0B,qDAAmB,QAAC,YAAM,CAAC,mEAAU,mDAAiB,CAAC,IAAK,IAAK,GAAX,EV4a2E,QAAmD,GAAqD,EU5a/M,CAAN;AAC9C,iCAAsB,WAAtB,GAAqC;AACrC,wCAA8B,qDAAmB,QAAC,YAAM,CAAC,mEAAU,mDAAiB,CAAC,IAAK,IAAK,GAAX,EV0auE,QAAmD,GAAqD,EU1a3M,CAAN;AAClD,qCAA0B,WAA1B,GAAyC;AACzC,yCAA+B,qDAAmB,QAAC,YAAM,CAAC,mEAAU,mDAAiB,CAAC,IAAK,IAAK,GAAX,EVwasE,QAAmD,GAAqD,EUxa1M,CAAN;AACnD,sCAA2B,WAA3B,GAA0C;AAC1C,uCAA6B,qDAAmB,QAAC,YAAM,CAAC,mEAAU,wCAAM,CAAC,mDAAiB,CAAC,IAAK,IAAK,GAAX,EAAiB,EAAnC,EVsamF,QAAmD,GAAqD,EUta5M,CAAN;AACjD,oCAAyB,WAAzB,GAAwC;AACxC,wCAA8B,qDAAmB,QAAC,YAAM,CAAC,mEAAU,wCAAM,CAAC,mDAAiB,CAAC,IAAK,IAAK,GAAX,EAAiB,EAAnC,EVoakF,QAAmD,GAAqD,EUpa3M,CAAN;AAClD,qCAA0B,WAA1B,GAAyC;AAEzC,0BAAgB,uDAAqB,QAAC,YAAM,CAAC,qEAAU,wCAAM,CAAC,SAAY,EAAb,CAAjB,CAAN;AACtC,uBAAY,WAAZ,GAA2B;AAC3B,oCAA0B,uDAAqB,QAAC,YAAM,CAAC,qEAAU,wCAAM,CAAC,SAAY,EAAb,CAAjB,CAAN;AAChD,iCAAsB,WAAtB,GAAqC;AACrC,qCAA2B,uDAAqB,QAAC,YAAM,CAAC,qEAAU,wCAAM,CAAC,SAAY,EAAb,CAAjB,CAAN;AACjD,kCAAuB,WAAvB,GAAsC;AACtC,yCAA+B,uDAAqB,QAAC,YAAM,CAAC,qEAAU,mDAAiB,CAAC,GAAI,IAAK,GAAV,CAA5B,CAAN;AACrD,sCAA2B,WAA3B,GAA0C;AAC1C,0CAAgC,uDAAqB,QAAC,YAAM,CAAC,qEAAU,mDAAiB,CAAC,GAAI,IAAK,GAAV,CAA5B,CAAN;AACtD,uCAA4B,WAA5B,GAA2C;AAC3C,wCAA8B,uDAAqB,QAAC,YAAM,CAAC,qEAAU,mDAAiB,CAAC,GAAI,IAAK,GAAV,CAA5B,CAAN;AACpD,qCAA0B,WAA1B,GAAyC;AACzC,yCAA+B,uDAAqB,QAAC,YAAM,CAAC,qEAAU,mDAAiB,CAAC,GAAI,IAAK,GAAV,CAA5B,CAAN;AACrD,sCAA2B,WAA3B,GAA0C;AAE1C,qCAA2B,uDAAqB,QAAC,YAAM,CAAC,qEAAU,wCAAM,CAAC,SAAY,EAAb,CAAjB,CAAN;AACjD,kCAAuB,WAAvB,GAAsC;AACtC,sCAA4B,uDAAqB,QAAC,YAAM,CAAC,qEAAU,wCAAM,CAAC,SAAY,EAAb,CAAjB,CAAN;AAClD,mCAAwB,WAAxB,GAAuC;AACvC,0CAAgC,uDAAqB,QAAC,YAAM,CAAC,qEAAU,mDAAiB,CAAC,GAAI,IAAK,GAAV,CAA5B,CAAN;AACtD,uCAA4B,WAA5B,GAA2C;AAC3C,2CAAiC,uDAAqB,QAAC,YAAM,CAAC,qEAAU,mDAAiB,CAAC,GAAI,IAAK,GAAV,CAA5B,CAAN;AACvD,wCAA6B,WAA7B,GAA4C;AAC5C,yCAA+B,uDAAqB,QAAC,YAAM,CAAC,qEAAU,mDAAiB,CAAC,GAAI,IAAK,GAAV,CAA5B,CAAN;AACrD,sCAA2B,WAA3B,GAA0C;AAC1C,0CAAgC,uDAAqB,QAAC,YAAM,CAAC,qEAAU,mDAAiB,CAAC,GAAI,IAAK,GAAV,CAA5B,CAAN;AACtD,uCAA4B,WAA5B,GAA2C;AAE3C,yBAAe;AAEf,yBAAe;AACf,8BAAoB;AACpB,+BAAqB;AA/DuD;AAAjC;AAkEA;AAEhC,eAAX,KAAW;AACW,eAAtB,KAAsB;AACC,eAAvB,KAAuB;AACI,eAA3B,KAA2B;AACC,eAA5B,KAA4B;AACF,eAA1B,KAA0B;AACC,eAA3B,KAA2B;AACN,eAArB,KAAqB;AACC,eAAtB,KAAsB;AACI,eAA1B,KAA0B;AACC,eAA3B,KAA2B;AACF,eAAzB,KAAyB;AACC,eAA1B,KAA0B;AACb,eAAb,KAAa;AACW,eAAxB,KAAwB;AACC,eAAzB,KAAyB;AACI,eAA7B,KAA6B;AACC,eAA9B,KAA8B;AACF,eAA5B,KAA4B;AACC,eAA7B,KAA6B;AACN,eAAvB,KAAuB;AACC,eAAxB,KAAwB;AACI,eAA5B,KAA4B;AACC,eAA7B,KAA6B;AACF,eAA3B,KAA2B;AACC,eAA5B,KAA4B;AAC5B;AA5B2C;AA3GF;AAEzC,UAAc,+BAAH,eAAP,MAAO,CAAX;AAEE,uBAAU,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,WAAvC;AACjB,iCAA6B,OAAP,OAAU,+BAAH,CAA8B;AAC3D,gCAA4B,OAAP,OAAU,+BAAH,CAA8B;AAC1D,yBAAY,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,aAAvC;AACnB,iCAAoB,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,qBAAvC;AAC3B,sCAAyB,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,0BAAvC;AAChC,qCAAwB,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,yBAAvC;AAC/B,kCAAqB,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,sBAAvC;AAC5B,sCAAyB,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,0BAAvC;AAChC,uCAA0B,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,2BAAvC;AACjC,kCAAqB,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,sBAAvC;AAC5B,uCAA0B,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,2BAAvC;AACjC,sCAAyB,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,0BAAvC;AAChC,mCAAsB,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,uBAAvC;AAC7B,uCAA0B,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,2BAAvC;AACjC,wCAA2B,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,4BAAvC;AAClC,mCAAsB,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,uBAAvC;AAC7B,wCAA2B,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,4BAAvC;AAClC,uCAA0B,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,2BAAvC;AACjC,oCAAuB,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,wBAAvC;AAC9B,wCAA2B,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,4BAAvC;AAClC,yCAA4B,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,6BAAvC;AACnC,oCAAuB,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,wBAAvC;AAC9B,yCAA4B,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,6BAAvC;AACnC,wCAA2B,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,4BAAvC;AAClC,qCAAwB,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,yBAAvC;AAC/B,yCAA4B,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,6BAAvC;AACnC,0CAA6B,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,8BAAvC;AACpC;OA9BF;AAFyC;AA+IW;AAAlB;AAElC,UAAG,gBAAH;AACE,iBAAU;AAEV,qBAAU;AALsB;AAAkB;AApY1B;AA2EN,+BAAO,UAoDL,oCApDK,CAAP;AAKA,iCVupBD,+DUvpBC;AACW,4CVspBZ,+DUtpBY;AACC,6CVqpBb,+DUrpBa;AACI,iDVopBjB,+DUppBiB;AACC,kDVmpBlB,+DUnpBkB;AACF,gDVkpBhB,+DUlpBgB;AACC,iDVipBjB,+DUjpBiB;AACN,2CVgpBX,+DUhpBW;AACC,4CV+oBZ,+DU/oBY;AACI,gDV8oBhB,+DU9oBgB;AACC,iDV6oBjB,+DU7oBiB;AACF,+CV4oBf,+DU5oBe;AACC,gDV2oBhB,+DU3oBgB;AACb,mCVsxBD,iEUtxBC;AACW,8CVqxBZ,iEUrxBY;AACC,+CVoxBb,iEUpxBa;AACI,mDVmxBjB,iEUnxBiB;AACC,oDVkxBlB,iEUlxBkB;AACF,kDVixBhB,iEUjxBgB;AACC,mDVgxBjB,iEUhxBiB;AACN,6CV+wBX,iEU/wBW;AACC,8CV8wBZ,iEU9wBY;AACI,kDV6wBhB,iEU7wBgB;AACC,mDV4wBjB,iEU5wBiB;AACF,iDV2wBf,iEU3wBe;AACC,kDV0wBhB,iEU1wBgB;AACX;AACC;AACN;AACA,kCnF2Of,uCmF3Oe;AACF,gCpF6CP,6CoF7CO;AA9GO;AAiHN;;AAES;;AAEH;;AAED;;AAEG,mFAAmB,UjG3CxC,2BiG2CwC,EAAgB,oBAAnC;AAEG,sFAAmB,UjG7C3C,2BiG6C2C,EAAmB,uBAAtC;AAEX;;AAEE;;;AAEpB;AACA;AACA;AACA;AAAa;AAAW;AACxB;AAAK;AAAK;AAAK;AACf;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAAQ;AACR;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAvBoB;;;;;;;;AA4tCsB;AAG5C,UAAG,gBAAY,KAAG,KAAlB;AAEE,wBAAW,OAAO,CAAC,KAAD;AAClB;OAHF;AAH4C;AAUN;AAEtC,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AAIP,sBAAS,CAAC,eAAM,cAAK,iBAAQ,eAApB;AAKX;OAXF;AAFsC;AAiBD;AAErC,UAAG,SAAK,KAAG,KAAX;AAEE,oBAAQ;AACR;OAHF;AAFqC;AASA;AAErC,UAAG,SAAK,KAAG,KAAX;AAEE,oBAAQ;AACR;OAHF;AAFqC;AAoCE;AAEvC,UAAG,iBAAH,EACE,MADF;AAGA,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAe,QAAG,CAAM,QAAG,CAAC,MAAO,SAAR,EAAe,SAAK,GAAE,cAA/B;AAClB,0BAAc;AACd,YAAY,mBAAD,QAAX;AAEE,8BAAgB;AAChB,6BAAc,CAAC,KAAM,IAAI,OAAX;AACd,8BAAgB;SAJlB;AAMA;OAVF;AALuC;AA3BG;AAE1C,UAAG,iBAAH,EACE,MADF;AAGA,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAkB,QAAG,CAAM,QAAG,CAAC,gBAAU,KAAX,EAAmB,CAA5B;AACrB,YAAY,uBAAD,QAAX;AAEE,8BAAgB;AAChB,iCAAkB,CAAC,KAAM,cAAP;AAClB,8BAAgB;SAJlB;AAMA;OATF;AAL0C;AAlFO;AAAnB;AAE9B,eAAU,iBAAY,KAAG,EAAH;AAFQ;AAAmB;AAKR;AAAX;AAE9B,eAAU,SAAI,KAAG,GAAH;AAFgB;AAAW;AAKA;AAAX;AAE9B,eAAU,SAAI,KAAG,CAAH;AAFgB;AAAW;AAKK;AAAhB;AAE9B,eAAU,cAAS,KAAG,EAAH;AAFW;AAAgB;AAKG;AAAnB;AAE9B,eAAU,iBAAY,KAAG,CAAH;AAFQ;AAAmB;AAKN;AAAb;AAE9B,eAAU,WAAM,KAAG,CAAH;AAFc;AAAa;AA2ED;AAE1C,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAF0C;AAlvBG;AAE7C;AACA;AAEA,sBAAW,kBAAX,GAAiC,sCAAY,aAAa,CAAC,gBAAW,mBAAmB,EAAG,CAAlC;AAC1D,sBAAW,iBAAX,GAAgC,sCAAY,aAAa,CAAC,gBAAW,kBAAmB,EAAG,CAAlC;AAEzD;AAR6C;AAvEJ;AAEzC;AAEA;AAEA,UAAK;AACL,UAAG,wCAAa,4BAA4B,CAAC;;;;UAAD,CAA5C;AAEE,wBAAU,WAAU,SAAC,CAAS,CAAT;AACrB,wBAAU,qBAAoB,SAAC,CAAS,CAAT;AAC/B,wBAAU,sBAAqB,SAAC,CAAS,CAAT;AAChC,wBAAU,sBAAqB,SAAC,CAAS,CAAT;AAChC,wBAAU,uBAAsB,SAAC,CAAS,CAAT;OANnC;AASA,UAAK;AACL,UAAG,wCAAa,sBAAsB,CAAC;;;;UAAD,CAAtC;AAEE,wBAAU,aAAY,SAAC,CAAS,CAAT;AACvB,wBAAU,uBAAsB,SAAC,CAAS,CAAT;AACjC,wBAAU,wBAAuB,SAAC,CAAS,CAAT;AAClC,wBAAU,wBAAuB,SAAC,CAAS,CAAT;AAClC,wBAAU,yBAAwB,SAAC,CAAS,CAAT;AACnC,wBAAU,4BAA2B,SAAC,CAAS,CAAT;AACtC,wBAAU,6BAA4B,SAAC,CAAS,CAAT;AACvC,wBAAU,6BAA4B,SAAC,CAAS,CAAT;AACvC,wBAAU,8BAA6B,SAAC,CAAS,CAAT;AACxC,wBAAU,2BAA0B,SAAC,CAAS,CAAT;AACrC,wBAAU,4BAA2B,SAAC,CAAS,CAAT;AACtC,wBAAU,4BAA2B,SAAC,CAAS,CAAT;AACtC,wBAAU,6BAA4B,SAAC,CAAS,CAAT;OAdzC;AAiBA,UAAK;AACL,UAAG,wCAAa,2BAA2B,CAAC;;;;UAAD,CAA3C;AAEE,wBAAU,0BAAyB,SAAC,CAAS,uCAAK,CAAC,UAAI,QAAQ,EAAG,EAAhB,CAAd;AACpC,wBAAU,2BAA0B,SAAC,CAAS,uCAAK,CAAC,UAAI,QAAQ,EAAG,EAAhB,CAAd;AACrC,wBAAU,2BAA0B,SAAC,CAAS,uCAAK,CAAC,UAAI,QAAQ,EAAG,EAAhB,CAAd;AACrC,wBAAU,4BAA2B,SAAC,CAAS,uCAAK,CAAC,UAAI,QAAQ,EAAG,EAAhB,CAAd;AACtC,wBAAU,yBAAwB,SAAC,CAAS,uCAAK,CAAC,UAAI,QAAQ,EAAG,EAAhB,CAAd;AACnC,wBAAU,0BAAyB,SAAC,CAAS,uCAAK,CAAC,UAAI,QAAQ,EAAG,EAAhB,CAAd;AACpC,wBAAU,0BAAyB,SAAC,CAAS,uCAAK,CAAC,UAAI,QAAQ,EAAG,EAAhB,CAAd;AACpC,wBAAU,2BAA0B,SAAC,CAAS,uCAAK,CAAC,UAAI,QAAQ,EAAG,EAAhB,CAAd;AACrC,wBAAU,cAAC,CAAc,CAAd;OAVb;AAnCyC;AA8pBS;AAElD;AAEA;AACA,WAAM,+BAA0B,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC;AACE,wBAAU,OAAO,CAAC,EAAD;AADnB;AAGE,UAAG,eAAH,EAAG;AAHL;AANkD;AAlLN;AAE5C;AACK;AACH,WADG,IACH,YAAQ,CADL,IACK,QAAR;AAAkB,sBAAS,WAAM,GAAE,iBAAjB;AAClB,iBAFG,IAEH,YAAU,CAFP,IAEO,QAAV;AAAqB,sBAAS,WAAM,GAAE,iBAAjB;AACrB,gBAHG,IAGH;AAAU,sBAAS,SAAT;AACV,gBAJG,IAIH;AAAS,sBAAS,SAAT;AACT,gBALG,IAKH;AAAW,sBAAS,WAAM,GAAE,iBAAjB;AACX,gBANG,IAMH,SAAU,cAAS,WAAM,GAAE,iBAAjB,CAAV;AAT0C;AAaE;AAG9C;AACA,UAAY,YAAD,QAAX,EACE,gBADF;AAGA,iBAAO,QAAG,CAAG,CAAF,CAAE,GAAE,wBAAiB,KAAnB,CAAyB,GAAE,yBAAkB,KAAhD;AACV,iBAAO,QAAG,CAAG,CAAF,CAAE,GAAE,wBAAiB,IAAnB,CAAwB,GAAE,yBAAkB,IAA/C;AACV,iBAAO;AACP,iBAAO;AACP,4BAAkB;AAClB,mBAAS;AACT,iBAAM,WAAC,CAAW,IAAX;AACP,UAAG,wBAAmB,CAAC,EAAG,CAAJ,CAAtB;AAEE,8BAAkB;AAClB,yBAAa,oCAAU,CAAC,yBAAmB,gCAAM,CAAC,EAAG,CAAJ,CAA1B;AACvB,yBAAa,oCAAU,CAAC,yBAAmB,gCAAM,CAAC,EAAG,CAAJ,CAA1B;OAEpB,UAAG,iBAAY,CAAC,EAAG,CAAJ,CAAf;AACH,8BAAkB;AACf,gBAAG,oCAAU,CAAC,0BAAoB,gCAAM,CAAC,EAAG,CAAJ,CAA3B,CAAb;AACH,mCAAuB;AACpB,gBAAG,oCAAU,CAAC,0BAAoB,gCAAM,CAAC,EAAG,CAAJ,CAA3B,CAAb;AACH,mCAAuB;AACpB,gBAAG,oCAAU,CAAC,wBAAkB,gCAAM,CAAC,EAAG,CAAJ,CAAzB,CAAb;AACH,mCAAuB;AACpB,gBAAG,oCAAU,CAAC,wBAAkB,gCAAM,CAAC,EAAG,CAAJ,CAAzB,CAAb,EACH,2BAAuB,0CADpB;AAGL,UAAG,oCAAU,CAAC,yBAAmB,gCAAM,CAAC,EAAG,CAAJ,CAA1B,CAAkC,IAAI,CAAiB,CAAZ,gBAAY,KAAE,2CAAF,CAApE;AAEE,2BAAe;AACf;OAEG,UAAG,oCAAU,CAAC,yBAAmB,gCAAM,CAAC,EAAG,CAAJ,CAA1B,CAAkC,IAAI,CAAiB,CAAZ,gBAAY,KAAE,2CAAF,CAApE;AAEH,2BAAe;AACf;OAEG,UAAG,oCAAU,CAAC,0BAAoB,gCAAM,CAAC,EAAG,CAAJ,CAA3B,CAAmC,IAAI,CAAiB,CAAZ,gBAAY,KAAE,4CAAF,CAArE;AAEH,2BAAe;AACf;OAEG,UAAG,oCAAU,CAAC,0BAAoB,gCAAM,CAAC,EAAG,CAAJ,CAA3B,CAAmC,IAAI,CAAiB,CAAZ,gBAAY,KAAE,4CAAF,CAArE;AAEH,2BAAe;AACf;OAHG;AA9CyC;AA2DA;AAE9C;AACA;AAEA;AAEE,UAAG,mBAAe,KAAE,2CAApB;AAEO;AACH,YADG,IACH;AAAe,gCAAU,CAAV;AACf,kBAFG,IAEH,4CAAa,sBAAU,CAAV,CAAb;AAGG;AACH,YADG,KACH;AAAe,gBAAgB,CAAT,eAAS,GAA4B,CAAzB,yBAAkB,MAAO,GAAE,yBAAkB,KAApB,CAA5B,CAAuD,GAAK,CAAF,CAAE,GAAE,QAAF,CAAL;AACtF,kBAFG,KAEH;AAAa,gBAAgB,CAAT,eAAS,GAA6B,CAA1B,yBAAkB,OAAQ,GAAE,yBAAkB,IAApB,CAA7B,CAAuD,GAAK,CAAF,CAAE,GAAE,QAAF,CAAL;;AAElF,gBAAO;;AAGX,YAAG,cAAH;AAEE,cAAS,CAAN,WAAM,GAAE,SAAF,CAAM,GAAE,CAAjB;AACE,6BAAY,mBAAe,GAAM,CAAJ,GAAI,GAAY,CAAT,eAAS,GAAS,CAAN,WAAM,GAAE,SAAF,CAAT,CAAZ,CAAjC;AAEA,iCAAY,mBAAe,GAAE,GAA7B;SAEC,UAAG,cAAH;AAEH,cAAS,CAAN,WAAM,GAAE,SAAF,CAAM,GAAE,eAAjB;AACE,6BAAY,mBAAe,GAAM,CAAJ,GAAI,GAAY,CAAT,eAAS,GAAO,CAAJ,SAAI,GAAE,WAAF,CAAP,CAAZ,CAAjC;AAEA,iCAAY,mBAAe,GAAE,GAA7B;SALC;OAQF,UAAI,mBAAe,KAAE,mCAArB;AAEE;AACH,YADG,KACH;AAAe,gBAAO,CAAE,GAAE,QAAF;AACxB,kBAFG,KAEH;AAAa,gBAAO,CAAE,GAAE,QAAF;;AAEpB,gBAAO;;AAGX,YAAK,eAAQ,CAAC,GAAD;AACb,YAAG,cAAH;AACE,wBAAS,CAAT;;AAGA,4BAAc;AACd;;OAGC,UAAG,wBAAmB,CAAC,EAAG,CAAJ,CAAtB;AAEE;AACH,YADG,KACH;AAAe,gCAAU,CAAV;AACf,kBAFG,KAEH,4CAAa,sBAAU,CAAV,CAAb;;AAKF,8BAAU,CAAV;;AAIJ,UAAG,oCAAU,CAAC,yBAAmB,gCAAM,CAAC,EAAG,CAAJ,CAA1B,CAAkC,IAAI,CAAoB,CAAf,mBAAe,KAAE,8CAAF,CAAvE;AAEE,8BAAkB;AAClB;OAEG,UAAG,oCAAU,CAAC,yBAAmB,gCAAM,CAAC,EAAG,CAAJ,CAA1B,CAAkC,IAAI,CAAoB,CAAf,mBAAe,KAAE,8CAAF,CAAvE;AAEH,8BAAkB;AAClB;OAEG,UAAG,oCAAU,CAAC,0BAAoB,gCAAM,CAAC,EAAG,CAAJ,CAA3B,CAAmC,IAAI,CAAoB,CAAf,mBAAe,KAAE,+CAAF,CAAxE;AAEH,8BAAkB;AAClB;OAEG,UAAG,oCAAU,CAAC,0BAAoB,gCAAM,CAAC,EAAG,CAAJ,CAA3B,CAAmC,IAAI,CAAoB,CAAf,mBAAe,KAAE,+CAAF,CAAxE;AAEH,8BAAkB;AAClB;OAEG,UAAG,CAAI,oCAAU,CAAC,yBAAmB,gCAAM,CAAC,EAAG,CAAJ,CAA1B,CACiC,IADK,CAAI,oCAAU,CAAC,yBAAmB,gCAAM,CAAC,EAAG,CAAJ,CAA1B,CAAlB,IAAwD,CAAI,oCAAU,CAAC,0BAAoB,gCAAM,CAAC,EAAG,CAAJ,CAA3B,CAAlB,IACtG,CAAI,oCAAU,CAAC,0BAAoB,gCAAM,CAAC,EAAG,CAAJ,CAA3B,CAAlB,IAAyE,CAAf,mBAAe,KAAG,0CAAH,CADtE;AAGH,8BAAkB;AAClB;OAJG;AAvFyC;AAuHF;AAG5C;AACA,UAAY,YAAD,QAAX,EACE,uBADF;AAGA,UAAmB,CAAf,mBAAe,KAAE,mCAAF,CAAa,IAAI,CAAI,cAAxC,EACE,cAAS,eAAT,CADF;AAGA,UAAI,mBAAe,KAAE,iCAArB;AAEE,YAAG,oCAAU,CAAC,0BAAoB,gCAAM,CAAC,EAAG,CAAJ,CAA3B,CAAb;AACE,wBAAS,WAAM,GAAE,iBAAjB;AACG,kBAAG,oCAAU,CAAC,0BAAoB,gCAAM,CAAC,EAAG,CAAJ,CAA3B,CAAb;AACH,wBAAS,WAAM,GAAE,iBAAjB;AACG,kBAAG,oCAAU,CAAC,wBAAkB,gCAAM,CAAC,EAAG,CAAJ,CAAzB,CAAb;AACH,wBAAS,WAAM,GAAE,iBAAjB;AACG,kBAAG,oCAAU,CAAC,wBAAkB,gCAAM,CAAC,EAAG,CAAJ,CAAzB,CAAb,EACH,cAAS,WAAM,GAAE,iBAAjB,CADG;OARP;AAYA,yBAAe;AACf,uBAAa;AACb,uBAAa;AACb,iBAAM,WAAC,CAAW,KAAX;AACP,mBAAS;AACT,4BAAkB;AAClB,4BAAU,CAAV;AACA,iCAAuB;AACvB;AA9B4C;AAzlBG;AAE/C;AACA,iBAAM,WAAC,CAAW,KAAX;AACP,mBAAS;AACT,4BAAkB;AAClB,iCAAuB;AACvB,uBAAa;AACb,uBAAa;AACb,yBAAe;AACf,4BAAkB;AAClB;AAX+C;AA4dA;AAE/C;AAF+C;AA8JA;AAE/C;AACA,UAAG,UAAW,GAAE,CAAhB;AACE,sBAAS,WAAM,GAAE,iBAAjB;AAEA,0BAAS,WAAM,GAAE,iBAAjB;AAN6C;AA1oBT;AAEtC;AAFsC;AAvEU;AAEhD;AAFgD;AA01BL;AAEvC,gBAAJ,IAAG;AACH,UAAG,UAAM,IAAG,CAAZ;AAEE,YAAG,wBAAoB,KAAE,gDAAzB;AAEE,wBAAS,WAAM,GAAE,iBAAjB;AACA;SAEG,UAAG,wBAAoB,KAAE,0CAAzB;AAEH,wBAAS,WAAM,GAAE,iBAAjB;AACA;SAEG,UAAG,wBAAoB,KAAE,gDAAzB;AAEH,wBAAS,WAAM,GAAE,iBAAjB;AACA;SAEG,UAAG,wBAAoB,KAAE,0CAAzB;AAEH,wBAAS,WAAM,GAAE,iBAAjB;AACA;SAHG;OAjBP;AAH2C;AA3jBK;AAAlB;AAE9B,qBAAU,mBAAV;AAF8B;AAAkB;AALT;AAAT;AAE9B,eAAU,2CAAkB,GAAE,cAAF;AAFE;AAAS;AAgCS;AAAlB;AAE9B;AAEA,gBAAK,yBAAL;AACK;AACH,UADG,IACH;AAAe,uBAAU,mCAAS,CAAC,CAAC,MAAO,CAAC,KAAM,gBAAU,mBAAmB,CAAC,OAAQ,GAAE,CAAC,IAAzD,CAAnB;AACf,gBAFG,IAEH,4CAAa,eAAU,mCAAS,CAAC,CAAC,MAAO,CAAC,KAAM,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,gBAAU,kBAA5C,CAAnB,CAAb;AAP4B;AAAkB;AAtBA;AAAlB;AAE9B;AAEA,gBAAK,yBAAL;AACK;AACH,UADG,IACH;AAAe,uBAAU,mCAAS,CAAC,CAAC,MAAO,GAAE,gBAAU,kBAAZ,CAA+B,CAAC,KAAM,gBAAU,mBAAmB,CAAC,OAAQ,GAAE,CAAC,IAAxF,CAAnB;AACf,gBAFG,IAEH,4CAAa,eAAU,mCAAS,CAAC,CAAC,MAAO,CAAC,OAAQ,GAAE,gBAAU,kBAAZ,CAA+B,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,gBAAU,kBAA7E,CAAnB,CAAb;AAP4B;AAAkB;AAiCD;AAAjB;AAE9B;AAEA,gBAAK,wBAAL;AACK;AACH,UADG,IACH;AAAe,uBAAU,mCAAS,CAAC,CAAC,MAAO,CAAC,KAAM,gBAAU,sBAAsB,CAAC,OAAQ,GAAE,CAAC,IAA5D,CAAnB;AACf,gBAFG,IAEH,4CAAa,eAAU,mCAAS,CAAC,CAAC,MAAO,CAAC,KAAO,CAAC,MAAO,GAAE,CAAC,KAAH,CAAW,gBAAU,qBAA9C,CAAnB,CAAb;AAP4B;AAAiB;AAtBA;AAAjB;AAE9B;AAEA,gBAAK,wBAAL;AACK;AACH,UADG,IACH;AAAe,uBAAU,mCAAS,CAAQ,CAAP,CAAC,KAAM,GAAW,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAX,CAAqB,GAAE,gBAAU,qBAAZ,CAAiC,CAAC,KAAM,gBAAU,sBAAsB,CAAC,OAAQ,GAAE,CAAC,IAAjH,CAAnB;AACf,gBAFG,IAEH,4CAAa,eAAU,mCAAS,CAAC,CAAC,MAAa,CAAN,CAAC,IAAK,GAAY,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAZ,CAAqB,GAAE,gBAAU,qBAAZ,CAAkC,CAAC,MAAO,GAAE,CAAC,KAAH,CAAW,gBAAU,qBAAnG,CAAnB,CAAb;AAP4B;AAAiB;AA0IC;AAAlB;AAEzB;AACH,UADG,IACH;AAEE,cAAM,KAAN,GAAe,yBAAkB,KAAM,GAA4B,CAAzB,yBAAkB,MAAO,GAAE,yBAAkB,KAApB,CAA5B;AACvC,cAAM,IAAN,GAAc,yBAAkB;AAChC,cAAM,OAAN,GAAiB,MAAM,IAAK,GAA6B,CAA1B,yBAAkB,OAAQ,GAAE,yBAAkB,IAApB,CAA7B;AAC5B,cAAM,MAAN,GAAgB,yBAAkB;OAEpC,UARG,IAQH;AAEE,cAAM,KAAN,GAAe,yBAAkB;AACjC,cAAM,IAAN,GAAc,yBAAkB,IAAK,GAA6B,CAA1B,yBAAkB,OAAQ,GAAE,yBAAkB,IAApB,CAA7B;AACrC,cAAM,OAAN,GAAiB,yBAAkB;AACnC,cAAM,MAAN,GAAgB,MAAM,KAAM,GAA4B,CAAzB,yBAAkB,MAAO,GAAE,yBAAkB,KAApB,CAA5B;OAL9B;AAV4B;AAAkB;AAoBL;AAAb;AAEzB;AACH,UADG,IACH;AAAe,iBAAW,yBAAkB,MAAkC,GAAzB,yBAAkB,KAApB,GAAsD,CAAxB,wBAAiB,MAAO,GAAE,wBAAiB,KAAnB,CAA3B;AAC9E,gBAFG,IAEH;AAAa,iBAAW,yBAAkB,OAAkC,GAAxB,yBAAkB,IAApB,GAAsD,CAAzB,wBAAiB,OAAQ,GAAE,wBAAiB,IAAnB,CAA5B;;AAE1E,iBAAU;;AANgB;AAAa;AAtEG;AAAhB;AAE9B;AACA;AAEA,kBAAO,yBAAP;AACA,kBAAO,wBAAP;AACK;AACH,UADG,IACH;AAEE,cAAM,KAAN,GAAe,GAAG;AAClB,cAAM,IAAN,GAAc,GAAG;AACjB,cAAM,MAAN,GAAgB,MAAM,KAAM,GAAY,CAAT,GAAG,KAAM,GAAE,GAAG,KAAL,CAAZ;AAC5B,cAAM,OAAN,GAAiB,MAAM,IAAK,GAAc,CAAX,GAAG,OAAQ,GAAE,GAAG,IAAL,CAAd;OAE9B,UARG,IAQH;AAEE,cAAM,KAAN,GAAe,GAAG;AAClB,cAAM,IAAN,GAAc,GAAG;AACjB,cAAM,MAAN,GAAgB,MAAM,KAAM,GAAa,CAAV,GAAG,MAAO,GAAE,GAAG,KAAL,CAAb;AAC5B,cAAM,OAAN,GAAiB,MAAM,IAAK,GAAW,CAAR,GAAG,IAAK,GAAE,GAAG,IAAL,CAAX;OAL9B;AAf4B;AAAgB;AAyBA;AAAhB;AAE9B;AACA;AAEA,kBAAO,yBAAP;AACA,kBAAO,wBAAP;AACK;AACH,UADG,IACH;AAEE,cAAM,KAAN,GAAe,GAAG,KAAM,GAAa,CAAV,GAAG,MAAO,GAAE,GAAG,KAAL,CAAb;AACxB,cAAM,IAAN,GAAc,GAAG;AACjB,cAAM,MAAN,GAA8E,CAAlD,CAAZ,MAAM,KAAM,GAAa,CAAV,GAAG,MAAO,GAAE,GAAG,KAAL,CAAb,CAAkD,GAAZ,CAAV,GAAG,MAAO,GAAE,GAAG,KAAL,CAAb,GAA2B,GAAG,KAAL,CAAW,GAAE,GAAG,KAAL;AACzF,cAAM,OAAN,GAAiB,MAAM,IAAK,GAAc,CAAX,GAAG,OAAQ,GAAE,GAAG,IAAL,CAAd;OAE9B,UARG,IAQH;AAEE,cAAM,KAAN,GAAe,GAAG;AAClB,cAAM,IAAN,GAAc,GAAG,IAAK,GAAc,CAAX,GAAG,OAAQ,GAAE,GAAG,IAAL,CAAd;AACtB,cAAM,MAAN,GAAgB,MAAM,KAAM,GAAa,CAAV,GAAG,MAAO,GAAE,GAAG,KAAL,CAAb;AAC5B,cAAM,OAAN,GAA8E,CAAlD,CAAX,MAAM,IAAK,GAAc,CAAX,GAAG,OAAQ,GAAE,GAAG,IAAL,CAAd,CAAkD,GAAX,CAAX,GAAG,OAAQ,GAAE,GAAG,IAAL,CAAd,GAA2B,GAAG,IAAL,CAAU,GAAE,GAAG,IAAL;OAL1F;AAf4B;AAAgB;AAuDC;AAAjB;AAE9B;AACA;AAEA,kBAAO,yBAAP;AACK;AACH,UADG,IACH;AAEE,YAA4B,CAAZ,CAAV,GAAG,MAAO,GAAE,GAAG,KAAL,CAAY,GAAE,eAAF,CAAW,GAAE,cAAF;AACvC,cAAM,KAAN,GAAe,GAAG,KAAM,GAAE,eAAF;AACxB,cAAM,IAAN,GAAc,GAAG;AACjB,cAAM,MAAN,GAAgB,MAAM,KAAM,GAAO,QAAG,CAA+B,CAA9B,gBAAU,qBAAoB,GAAE,CAAF,CAAI,GAAE,oBAAe,CAAC,EAAD,CAAjB,CAAuB,CAA1D,CAAV;AAC5B,cAAM,OAAN,GAAiB,MAAM,IAAK,GAAc,CAAX,GAAG,OAAQ,GAAE,GAAG,IAAL,CAAd;OAE9B,UATG,IASH;AAEE,YAA4B,CAAX,CAAX,GAAG,OAAQ,GAAE,GAAG,IAAL,CAAW,GAAE,eAAF,CAAW,GAAE,cAAF;AACvC,cAAM,KAAN,GAAe,GAAG;AAClB,cAAM,IAAN,GAAc,GAAG,IAAK,GAAE,eAAF;AACtB,cAAM,MAAN,GAAgB,MAAM,KAAM,GAAa,CAAV,GAAG,MAAO,GAAE,GAAG,KAAL,CAAb;AAC5B,cAAM,OAAN,GAAiB,MAAM,IAAK,GAAO,QAAG,CAA+B,CAA9B,gBAAU,qBAAoB,GAAE,CAAF,CAAI,GAAE,oBAAe,CAAC,EAAD,CAAjB,CAAuB,CAA1D,CAAV;OAN9B;AAf4B;AAAiB;AAjHT;AAAR;AAE9B;AACA;AAEA,eAAU;AACV,kBAAO,yBAAP;AACK;AACH,UADG,IACH;AAAe,YAAM,GAAG,MAAmB,GAAV,GAAG,KAAL,GAAmB,QAAG,CAA+B,CAA9B,gBAAU,qBAAoB,GAAE,CAAF,CAAI,GAAE,EAAF,CAA8B,CAAZ,CAAV,GAAG,MAAO,GAAE,GAAG,KAAL,CAAY,GAAE,eAAF,CAAW,GAAE,cAA9E,CAAV;AAC3C,gBAFG,IAEH;AAAa,YAAM,GAAG,OAAmB,GAAT,GAAG,IAAL,GAAkB,QAAG,CAA+B,CAA9B,gBAAU,qBAAoB,GAAE,CAAF,CAAI,GAAE,EAAF,CAA8B,CAAX,CAAX,GAAG,OAAQ,GAAE,GAAG,IAAL,CAAW,GAAE,eAAF,CAAW,GAAE,cAA9E,CAAV;;AAEvC,YAAK;;AAGT,UAAG,CAAE,IAAG,CAAR,EACE,aADF;AAGA,UAAQ,CAAJ,SAAI,GAAE,SAAF,CAAO,GAAE,CAAjB;AAEE,YAAG,cAAH;AACE,mBAAe,QAAG,CAAgB,CAAP,CAAN,WAAM,GAAE,SAAF,CAAO,GAAa,CAAV,SAAU,GAAJ,SAAF,GAAQ,cAAF,CAAb,CAA2B,GAAE,CAAF,CAAK,CAAhD;AAElB,uBAAe,QAAG,CAAqB,CAAP,CAAX,eAAW,GAAE,SAAF,CAAO,GAAa,CAAV,SAAU,GAAJ,SAAF,GAAQ,cAAF,CAAb,CAA2B,GAAE,CAAF,CAAK,CAArD;OAGpB,eAAU;AAzBkB;AAAQ;AAtBA;AAAR;AAE9B;AAAG;AACH;AAEA,kBAAO,yBAAP;AACK;AACH,UADG,IACH;AAAe,YAAM,GAAG,MAAmB,GAAV,GAAG,KAAL,GAAmB,QAAG,CAA+B,CAA9B,gBAAU,qBAAoB,GAAE,CAAF,CAAI,GAAE,EAAF,CAA8B,CAAZ,CAAV,GAAG,MAAO,GAAE,GAAG,KAAL,CAAY,GAAE,eAAF,CAAW,GAAE,cAA9E,CAAV;AAC3C,gBAFG,IAEH;AAAa,YAAM,GAAG,OAAmB,GAAT,GAAG,IAAL,GAAkB,QAAG,CAA+B,CAA9B,gBAAU,qBAAoB,GAAE,CAAF,CAAI,GAAE,EAAF,CAA8B,CAAX,CAAX,GAAG,OAAQ,GAAE,GAAG,IAAL,CAAW,GAAE,eAAF,CAAW,GAAE,cAA9E,CAAV;;AAEvC,YAAK;;AAGT,UAAc,CAAN,CAAJ,SAAI,GAAE,SAAF,CAAM,GAAE,CAAF,CAAK,IAAO,CAAF,CAAE,GAAE,CAAF,CAA1B;AAEE,YAAiB,CAAL,CAAN,KAAM,GAAE,CAAF,CAAK,GAAa,CAAV,SAAU,GAAJ,SAAF,GAAQ,cAAF,CAAb,CAA0B,GAAE,SAAF;AAC3C,iBAAe,QAAG,CAAM,QAAG,CAAC,EAAG,SAAI,GAAE,cAAV,EAAsB,SAA/B;OAGlB,eAAU;AAnBkB;AAAQ;AAkDA;AAAR;AAE9B,eAAe,QAAG,CAAC,EAAG,SAAI,GAAE,SAAV;AAFY;AAAQ;AA2RW;AAAnB;AAE9B,eAAU,oCAAU,CAAC,yBAAmB,gCAAM,CAAC,EAAG,CAAJ,CAA1B,CAAkC,IAAG,oCAAU,CAAC,yBAAmB,gCAAM,CAAC,EAAG,CAAJ,CAA1B,CAAb;AACtD,eAAU,MAAO,IAAI,CAAI,gBAAU,YAAlB;AAHa;AAAmB;AALP;AAAZ;AAE9B,eAAU,oCAAU,CAAC,yBAAmB,gCAAM,CAAC,EAAG,CAAJ,CAA1B;AAFU;AAAY;AAreM;AAEhD;AAAO;AACP;AAAO;AAEP,UAAG,gBAAU,kBAAkB,IAAG,CAAlC,EACE,MADF;AAGA,cAAS,gBAAU;AACnB,cAAS,gBAAU;AACnB,cAAS,gBAAU;AACnB,cAAS,gBAAU;AAEnB,UAAG,gBAAY,KAAE,4CAAjB;AAEE,gBAAS,gBAAU;AACnB,gBAAS,gBAAU;OAEhB,UAAG,mBAAe,KAAE,+CAApB;AAEH,gBAAS,gBAAU;AACnB,gBAAS,gBAAU;OAHhB;AAML,OAAC,MAAK,OAAO,CAAC,KAAD;AACb,OAAC,QAAO,OAAO,CAAC,KAAD;AACf,OAAC,gBAAc,CAAC,mERrmB+E,6EQqmBhF;AAEf,UAAG,gBAAY,KAAE,4CAAjB;AAEE,gBAAS,gBAAU;AACnB,gBAAS,gBAAU;OAEhB,UAAG,mBAAe,KAAE,+CAApB;AAEH,gBAAS,gBAAU;AACnB,gBAAS,gBAAU;OAHhB;AAML,OAAC,MAAK,OAAO,CAAC,KAAD;AACb,OAAC,QAAO,OAAO,CAAC,KAAD;AACf,OAAC,gBAAc,CAAC,mERpnB+E,6EQonBhF;AAEf,oBAAS,CAAC,EAAG,mEAAoB,IAAxB;AACT,oBAAS,CAAC,EAAG,mEAAoB,KAAxB;AA5CuC;AA+CR;AAExC,OAAC,MAAK,OAAO,CAAC,gBAAU,WAAX;AACb,OAAC,QAAO,OAAO,CAAC,gBAAU,aAAX;AACf,OAAC,gBAAc,CAAC,kER9nB+E,6EQ8nBhF;AACf,UAAG,CAAI,gBAAU,YAAjB,EACE,qBAAgB,CAAC,CAAD,CADlB;AALwC;AASO;AAE/C;AAAO;AACP;AAAO;AAEP,UAAG,gBAAU,iBAAiB,IAAG,CAAjC,EACE,MADF;AAGA,cAAS,gBAAU;AACnB,cAAS,gBAAU;AACnB,cAAS,gBAAU;AACnB,cAAS,gBAAU;AAEnB,UAAG,gBAAY,KAAE,2CAAjB;AAEE,gBAAS,gBAAU;AACnB,gBAAS,gBAAU;OAEhB,UAAG,mBAAe,KAAE,8CAApB;AAEH,gBAAS,gBAAU;AACnB,gBAAS,gBAAU;OAHhB;AAML,OAAC,MAAK,OAAO,CAAC,KAAD;AACb,OAAC,QAAO,OAAO,CAAC,KAAD;AACf,OAAC,gBAAc,CAAC,kER7pB+E,6EQ6pBhF;AAEf,UAAG,gBAAY,KAAE,2CAAjB;AAEE,gBAAS,gBAAU;AACnB,gBAAS,gBAAU;OAEhB,UAAG,mBAAe,KAAE,8CAApB;AAEH,gBAAS,gBAAU;AACnB,gBAAS,gBAAU;OAHhB;AAML,OAAC,MAAK,OAAO,CAAC,KAAD;AACb,OAAC,QAAO,OAAO,CAAC,KAAD;AACf,OAAC,gBAAc,CAAC,kER5qB+E,6EQ4qBhF;AAEf,oBAAS,CAAC,EAAG,kEAAmB,IAAvB;AACT,oBAAS,CAAC,EAAG,kEAAmB,KAAvB;AA5CsC;AA1FP;AAExC,OAAC,QAAO,SAAC,CAAS,gBAAU,YAAnB;AACT,UAAG,UAAK,KAAE,qCAAV;AAEE,+CAAa,CAAC,EAAG,EAAG,CAAC,CAAR;AACb,YAAG,CAAI,KAAP;AAEE,WAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,CAAC,KAAM,GAAsB,CAAV,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAF,CAAtB,CAA4B,CAAC,IAAK,GAA0B,CAAJ,CAAT,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,CAAF,CAAI,GAAE,CAAF,CAApE,GAAiF,yCAAN,gCAAM,CAAC,CAAC,KAAM,GAAsB,CAAV,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAF,CAAtB,CAA4B,CAAC,IAAK,GAAsB,CAAT,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,CAAF,CAAhE,GR/jBmB,+EAAyE,8EQ+jBpL;AACV,WAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,CAAC,KAAM,GAAsB,CAAV,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAF,CAAtB,CAA4B,CAAC,IAAK,GAA0B,CAAJ,CAAT,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,CAAF,CAAI,GAAE,CAAF,CAApE,GAAiF,yCAAN,gCAAM,CAAC,CAAC,KAAM,GAA0B,CAAJ,CAAV,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAF,CAAI,GAAE,CAAF,CAA1B,CAAgC,CAAC,IAAK,GAAsB,CAAT,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,CAAF,CAApE,GRhkBmB,+EAAyE,8EQgkBpL;;AAIV,WAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,CAAC,KAAM,GAAsB,CAAV,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAF,CAAtB,CAA4B,CAAC,IAAK,GAAsB,CAAT,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,CAAF,CAAhE,GAA6E,yCAAN,gCAAM,CAAC,CAAC,KAAM,GAAsB,CAAV,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAF,CAAtB,CAA4B,CAAC,IAAK,GAA0B,CAAJ,CAAT,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,CAAF,CAAI,GAAE,CAAF,CAApE,GRpkBuB,+EAAyE,8EQokBpL;AACV,WAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,CAAC,KAAM,GAAsB,CAAV,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAF,CAAtB,CAA4B,CAAC,IAAK,GAAsB,CAAT,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,CAAF,CAAhE,GAA6E,yCAAN,gCAAM,CAAC,CAAC,KAAM,GAA0B,CAAJ,CAAV,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAF,CAAI,GAAE,CAAF,CAA1B,CAAgC,CAAC,IAAK,GAA0B,CAAJ,CAAT,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,CAAF,CAAI,GAAE,CAAF,CAAxE,GRrkBuB,+EAAyE,8EQqkBpL;;;AAKZ,+CAAa,CAAC,EAAG,CAAC,EAAG,CAAR;AACb,YAAG,CAAI,KAAP;AAEE,WAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,CAAC,KAAM,GAAsB,CAAV,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAF,CAAtB,CAA4B,CAAC,IAAK,GAAsB,CAAT,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,CAAF,CAAhE,GAA6E,yCAAN,gCAAM,CAAC,CAAC,KAAM,GAA0B,CAAJ,CAAV,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAF,CAAI,GAAE,CAAF,CAA1B,CAAgC,CAAC,IAAK,GAAsB,CAAT,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,CAAF,CAApE,GR7kBuB,+EAAyE,8EQ6kBpL;AACV,WAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,CAAC,KAAM,GAAsB,CAAV,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAF,CAAtB,CAA4B,CAAC,IAAK,GAA0B,CAAJ,CAAT,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,CAAF,CAAI,GAAE,CAAF,CAApE,GAAiF,yCAAN,gCAAM,CAAC,CAAC,KAAM,GAA0B,CAAJ,CAAV,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAF,CAAI,GAAE,CAAF,CAA1B,CAAgC,CAAC,IAAK,GAAsB,CAAT,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,CAAF,CAApE,GR9kBmB,+EAAyE,8EQ8kBpL;;AAIV,WAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,CAAC,KAAM,GAA0B,CAAJ,CAAV,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAF,CAAI,GAAE,CAAF,CAA1B,CAAgC,CAAC,IAAK,GAAsB,CAAT,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,CAAF,CAApE,GAAiF,yCAAN,gCAAM,CAAC,CAAC,KAAM,GAAsB,CAAV,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAF,CAAtB,CAA4B,CAAC,IAAK,GAAsB,CAAT,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,CAAF,CAAhE,GRllBmB,+EAAyE,8EQklBpL;AACV,WAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,CAAC,KAAM,GAA0B,CAAJ,CAAV,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAF,CAAI,GAAE,CAAF,CAA1B,CAAgC,CAAC,IAAK,GAA0B,CAAJ,CAAT,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,CAAF,CAAI,GAAE,CAAF,CAAxE,GAAqF,yCAAN,gCAAM,CAAC,CAAC,KAAM,GAAsB,CAAV,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAF,CAAtB,CAA4B,CAAC,IAAK,GAAsB,CAAT,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,CAAF,CAAhE,GRnlBe,+EAAyE,8EQmlBpL;;;AA5B0B;AAumBL;AAEnC;AACA,oBAAS,CAAC,SAAD;AACT,4BAAiB,CAAC,SAAD;AAJkB;AAnpBI;AAEvC;AAQA,uBAAa;AACb,2BAAe;AACf,UAAG,kBAAH;AAEE,kBAAI,SAAC,CAAS,yCAAO,CAAC,mDAAiB,CAAC,IAAK,IAAK,GAAX,EAAiB,EAAnC,CAAhB;AACL,oBAAM,SAAC,CAAS,wCAAM,CAAC,SAAY,EAAb,CAAf;OAHT;AAKA,qBAAU,GAAV;AACA,oBAAS,EAAT;AACA,mBAAS;AACT,oBAAU;AACV,kBAAQ;AACR,kBAAQ;AACR,0BAAgB;AAChB,0BAAgB;AAChB,yBAAe,+BAA0B,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,sBAAW,UAAX,GAAyB;AACzB,uBAAa;AAEb,oBAAU,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AAIjB,iBAAM,SAAN,GAAkB;AAClB,iBAAM,YAAC,CAAY,GAAZ;AAlCqD;AAArB;AAqCA;AAE3B,eAAZ,KAAY;AACL,eAAP,KAAO;AACP;AAJuC;AApFF;AAErC,UAAc,qBAAH,eAAP,MAAO,CAAX;AAEE,qBAAiB,OAAP,OAAU,qBAAH,CAAoB;AACrC,sBAAkB,OAAP,OAAU,qBAAH,CAAoB;AACtC,oBAAgB,OAAP,OAAU,qBAAH,CAAoB;AACpC,oBAAgB,OAAP,OAAU,qBAAH,CAAoB;AACpC,yBAAqB,OAAP,OAAU,qBAAH,CAAoB;AACzC,4BAAwB,OAAP,OAAU,qBAAH,CAAoB;AAC5C,4BAAwB,OAAP,OAAU,qBAAH,CAAoB;AAC5C,wBAAW,OAAO,CAAS,OAAP,OAAU,qBAAH,CAAoB,YAA7B;AAClB,yBAAqB,OAAP,OAAU,qBAAH,CAAoB;AACzC;OAXF;AAFqC;AAnhBf;;;;;;;AAoFF,+BAAO,UxF4TjB,+BwF5TiB,CAAP;AApFE;AA4FN;AAyvC+B;AAE/C,+BAAa,CAAC,qBAAD;AAFkC;AAzvC/B;;;;;;;AAID,4BVwgBI,+DUxgBJ;AACE,8BVmpBI,iEUnpBJ;AACI,kCAjOK,yCAiOL;AACN,4BArGK,mCAqGL;AACO;AACR;AACK;AACL;AACK;AACH;AACM;AACG,sCAjHG,2CAiHH;AACG,yCAhHG,8CAgHH;AAhBZ;;AA5PlB,GA+Qc,6DA/Qd;ACAA,wCA2BS,mIA3BT;;;AAgFY,oBAAG;AACJ,mBAAG;AA2CO;AArCU;;;AAE3B;AACA;AACA;AAJ2B;;;;;AAo5CoB;AAEjD,oBAAU;AAFuC;AAPH;AAE9C;AACA,UAAY,gBAAD,QAAX,EACE,cAAsB,OAAX,iBAAc,8BAAH,CAA6B,SADrD;AAHyE;AAA3B;AA74CjB;AAOT,+BAAY,ezF4XrB,gCyF5XqB,CAAZ;AAEJ;AACE;AAVW;AAcJ;;;AAMvB;AACA;AAPuB;;;;;;AAw5Ce;AAAP;AAGjC,eAAkD,YAAK,CAAC,KAAD;AAHtB;AAAO;AA2BC;AAG/B,kBAAK,CAAC,MAAU,KAAX;AAH0B;AArBD;AAAP;AAEjC;AAEA,eAAU,CAAC;AACX,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,YAAG,cAAK,CAAC,CAAD,CAAG,SAAS,KAAE,QAAtB;AAEE,mBAAU;AACV;SAHF;;AAP+B;AAAO;AAZE;AAE1B,sDAAC,OAAQ,kCAAT;AAChB,sBAAU;AAH8D;AAA9B;AALN;AAAH;AAEjC,eAAkD;AAFjB;AAAG;AAgCG;AAAN;AAGjC,eAAwD,yCAAC,KAAD;AAHvB;AAAM;AA76Cd;AAcL,+BAAO,UASR,iCATQ,CAAP;AAdK;AAoBA;;AACE;;AAER;;;AAEjB;AAAiB;AACjB;AACA;AACA;AACA;AACA;AAAW;AAAU;AAAW;AAChC;AAAS;AAAQ;AAAS;AAC1B;AACA;AACA;AAAoB;AACpB;AAA0B;AAC1B;AACA;AACA;AAAU;AACV;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAhCiB;;;;;;;;;;;AAuoBuB;AAE1C,UAAG,iBAAa,KAAG,KAAnB,EACE,oBAAgB,KADlB;AAF0C;AAiKH;AAEvC,UAAG,cAAU,KAAG,KAAhB,EACE,iBAAa,KADf;AAFuC;AArDU;AAEjD,UAAG,wBAAoB,KAAG,KAA1B,EACE,2BAAuB,KADzB;AAFiD;AAMF;AAE/C,UAAG,sBAAkB,KAAG,KAAxB,EACE,yBAAqB,KADvB;AAF+C;AAMU;AAGzD,UAAG,gCAA4B,KAAG,KAAlC;AAEE,2CAA+B;AAC/B;OAHF;AAHyD;AAkFF;AAGvD,UAAG,8BAA0B,KAAG,KAAhC;AAEE,yCAA6B;AAC7B;OAHF;AAHuD;AAnCd;AAGzC,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf;OAHF;AAHyC;AAlJD;AAExC;AACA;AAEA,YAAO,aAAO,QAAQ,CAAC,GAAD;AACtB,UAAQ,CAAJ,GAAI,IAAG,CAAH,CAAM,IAAS,CAAJ,GAAI,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAAvB;AAEE,YAAG,KAAM,KAAE,wBAAX;AACE,uBAAO,OAAO,CAAC,GAAD;;AAGd,uBAAO,WAAC,GAAD,CAAK,YAAC,CAAS,QAAG,CAAC,EAAG,KAAJ,CAAZ;AACb,uBAAO,WAAC,GAAD,CAAK,SAAZ,GAAwB;;OAGvB,UAAG,KAAM,KAAG,wBAAZ;AAEH,YAAK,aAAO;AACZ,SAAC,YAAC,CAAS,QAAG,CAAC,EAAG,KAAJ,CAAZ;AACF,SAAC,SAAD,GAAa;OAJV;AAhBmC;AALF;AAEtC,mBAAQ,OAAO,CAAC,KAAD;AAFuB;AALA;AAEtC,mBAAQ,OAAO,CAAC,KAAD;AAFuB;AAlEC;AAAZ;AAE3B;AAEA,YAAO,aAAO,QAAQ,CAAC,GAAD;AACtB,UAAG,GAAI,KAAG,CAAC,CAAX;AACE,iBAAU,aAAO,WAAC,GAAD,CAAK;AAEtB,qBAAU;AARe;AAAY;AAsBH;AAAT;AAE3B;AAEA,YAAO,aAAO,QAAQ,CAAC,GAAD;AACtB,UAAG,GAAI,KAAG,CAAC,CAAX;AACE,iBAAU,aAAO,WAAC,GAAD,CAAK;AAEtB,qBAAU,CAAC;AARc;AAAS;AA+GC;AAErC;AACA;AAEA,YAAO,aAAO,QAAQ,CAAC,GAAD;AACtB,UAAQ,CAAJ,GAAI,IAAG,CAAH,CAAM,IAAS,CAAJ,GAAI,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAAvB;AAEE,YAAG,KAAM,KAAE,CAAC,CAAZ;AACE,uBAAO,OAAO,CAAC,GAAD;;AAGd,uBAAO,WAAC,GAAD,CAAK,YAAC,CAAS,QAAG,CAAC,EAAG,KAAJ,CAAZ;AACb,uBAAO,WAAC,GAAD,CAAK,SAAZ,GAAwB;;OAGvB,UAAG,KAAM,KAAG,CAAC,CAAb;AAEH,YAAK,aAAO;AACZ,SAAC,YAAC,CAAS,QAAG,CAAC,EAAG,KAAJ,CAAZ;AACF,SAAC,SAAD,GAAa;OAJV;AAhBgC;AAmHW;AAEhD,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB;OAHF;AAFgD;AApJD;AAE/C,UAAG,sBAAkB,KAAG,KAAxB;AAEE,iCAAqB;AACrB;OAHF;AAF+C;AAoIJ;AAG3C,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;AACjB,YAAY,6BAAD,QAAX,EACE,6BAAwB,YAAC,CAAY,kBAAa,KAAE,6CAA3B,CAD3B;AAGA,YAAY,+BAAD,QAAX,EACE,+BAA0B,YAAC,CAAY,kBAAa,KAAE,6CAA3B,CAD7B;AAGA;OATF;AAH2C;AA7ND;AAAf;AAE3B;AAEA,YAAO,gBAAU,QAAQ,CAAC,GAAD;AACzB,UAAG,GAAI,KAAG,CAAC,CAAX;AACE,iBAAU,gBAAU,WAAC,GAAD,CAAK;AAEzB,qBAAU;AARe;AAAe;AAkGC;AAE3C;AACA;AAEA,YAAO,gBAAU,QAAQ,CAAC,GAAD;AACzB,UAAQ,CAAJ,GAAI,IAAG,CAAH,CAAM,IAAS,CAAJ,GAAI,IAAoB,CAAjB,gBAAU,SAAC,EAAM,GAAE,CAAF,CAApB,CAAvB;AAEE,YAAG,KAAM,KAAE,2BAAX;AACE,0BAAU,OAAO,CAAC,GAAD;;AAGjB,0BAAU,WAAC,GAAD,CAAK,YAAC,CAAS,QAAG,CAAC,EAAG,KAAJ,CAAZ;AAChB,0BAAU,WAAC,GAAD,CAAK,SAAf,GAA2B;;OAG1B,UAAG,KAAM,KAAG,2BAAZ;AAEH,YAAK,gBAAU;AACf,SAAC,YAAC,CAAS,QAAG,CAAC,EAAG,KAAJ,CAAZ;AACF,SAAC,SAAD,GAAa;OAJV;AAhBsC;AAgDS;AAEpD,UAAG,2BAAuB,KAAG,KAA7B,EACE,8BAA0B,KAD5B;AAFoD;AAhGX;AAEzC,sBAAW,OAAO,CAAC,KAAD;AAFuB;AA8cC;AAE1C;AACA,2BAAgB,CAAC,KAAM,IAAP;AAChB;AACA;AACA;AAN0C;AA7FG;AAE7C;AAAG;AACH;AAAM;AAAM;AACZ;AAAI;AACJ;AAAM;AACN;AACA;AAEA,aAAQ;AACR,aAAQ;AACR,cAAS;AACT,iBAAM,qBAAN;AACA,aAAQ,CAAC;AACT,aAAQ,CAAC;AACT,WAAM,EAAE,MAAO,GAAE,EAAE,KAAJ;AACf,WAAM,EAAE,OAAQ,GAAE,EAAE,IAAJ;AAEhB,uBAAa,CAAC;AACd,uBAAa,CAAC;AACd,sBAAY,CAAC;AACb,sBAAY,CAAC;AACb,qBAAW,EAAE;AACb,oBAAU,EAAE;AACZ,qBAAW,EAAE;AACb,oBAAU,EAAE;AACZ,0BAAgB;AAEhB,eAAS,QAAiB,OAAZ,iBAAY,GAAE,CAAF,kBAA1B;AAAI;AAEF,eAAQ,IAAK,GAAE,iBAAY,CAAC,CAAD,CAAd;AACb,YAAS,CAAL,IAAK,GAAE,CAAF,CAAK,IAAe,CAAV,cAAU,KAAE,CAAC,CAAH,CAA7B;AAEE,2BAAa;AACb,yBAAW,YAAQ,GAAE,cAAG,CAAC,IAAK,GAAE,iBAAY,CAAC,CAAD,CAApB,CAAL;SAHrB;AAMA,YAAS,CAAL,IAAK,IAAG,EAAH,CAAO,IAAc,CAAT,aAAS,KAAE,CAAC,CAAH,CAA9B;AAEE,0BAAY;AACZ,wBAAU,WAAO,GAAE,cAAG,CAAC,IAAD,CAAL;SAHnB;AAMA,YAAc,CAAV,cAAU,GAAE,CAAC,CAAH,CAAM,IAAc,CAAT,aAAS,GAAE,CAAC,CAAH,CAAlC,EACE,KADF;;AAIF,eAAS,SAAc,QAAT,cAAS,GAAE,CAAF,qBAAvB;AAAI;AAEF,aAAM,iBAAY,CAAC,CAAD;AAClB,eAAQ,IAAK,GAAE,EAAF;AACb,YAAS,CAAL,IAAK,GAAE,CAAC,KAAH,CAAU,IAAe,CAAV,cAAU,KAAE,CAAC,CAAH,CAAlC;AAEE,2BAAa;AACb,8BAAgB,IAAK,GAAE,EAAF;AACrB,yBAAW,YAAQ,GAAE,cAAG,CAAC,iBAAD,CAAL;SAJrB;AAOA,YAAS,CAAL,IAAK,IAAG,EAAH,CAAO,IAAc,CAAT,aAAS,KAAE,CAAC,CAAH,CAA9B;AAEE,0BAAY;AACZ,wBAAU,WAAO,GAAE,cAAG,CAAC,IAAD,CAAL;SAHnB;AAMA,YAAc,CAAV,cAAU,GAAE,CAAC,CAAH,CAAM,IAAc,CAAT,aAAS,GAAE,CAAC,CAAH,CAAlC,EACE,KADF;;AAIF,UAAc,CAAV,cAAU,GAAE,CAAC,CAAH,CAAM,IAAc,CAAT,aAAS,KAAE,CAAC,CAAH,CAAlC,EACE,gBAAY,cAAS,GAAE,CADzB;AAGA,UAAc,CAAV,cAAU,GAAE,CAAC,CAAH,CAAM,IAAc,CAAT,aAAS,KAAE,CAAC,CAAH,CAAlC,EACE,gBAAY,iBAAY,GAAE,CAD5B;AAvE6C;AAvFJ;AAEzC;AACA;AAAG;AAAI;AACP;AACA;AAAM;AACN;AAEA,aAAQ;AACR,aAAQ;AACR,UAAG,CAAY,CAAC,IAAD,SAAO,IAAG,CAAY,CAAC,IAAD,SAArC,EACE,MADF;AAGA,UAAG,SAAU,KAAE,CAAC,CAAhB;AAEE,kBAAK,qBAAL;AACA,aAAM,CAAC,MAAO,GAAE,CAAC,KAAH;OAGd,WAAM;AAER,YAAO;AACP,eAAS,QAAiB,OAAZ,iBAAY,GAAE,CAAF,kBAA1B;AAAI;AAEF,YAAG,oBAAe,CAAC,CAAD,CAAlB,EACE,MAAO,GAAI,GAAE,CADf;;AAIF,UAAG,IAAK,KAAE,CAAE,CAAZ,EACE,OAAQ,iBAAY,GAAE,CADxB;AAGA,UAAI,GAAI,KAAE,CAAV,EACE,MADF;AAGA,UAAS,CAAL,IAAK,IAAG,iBAAH,CAAoC,IAAhB,CAAI,WAAR,IAAwB,CAAI,gBAArD;AAME;OANF;AAUA,UAAG,iBAAY,KAAE,CAAjB;AAEE,YAAG,oBAAe,CAAC,CAAD,CAAlB,EACE,iBAAY,CAAC,EAAM,EAAP,CADd;AAGA;OALF;AAQA,UAAK;AAEL,UAAG,WAAH;AAEE,YAAI,GAAI,GAAE,CAAV;AAEE,cAAK;AAEL,cAAK,CAAE,GAAE,GAAF;AAEP,mBAAS,SAAiB,QAAZ,iBAAY,GAAE,CAAF,qBAA1B;AAAI;AAEF,gBAAG,oBAAe,CAAC,CAAD,CAAlB,EACE,iBAAY,CAAC,EAAM,QAAG,CAAC,oBAAe,CAAC,CAAD,EAAK,CAArB,CAAV,CADd;;SARJ;;AAeA,iBAAS,SAAiB,QAAZ,iBAAY,GAAE,CAAF,qBAA1B;AAAI;AAEF,cAAM,CAAF,CAAE,KAAG,IAAH,CAAS,IAAI,oBAAe,CAAC,CAAD,CAAlC,EACE,IAAK,CAAE,GAAE,iBAAY,CAAC,CAAD,CADvB;;AAIF,YAAG,oBAAe,CAAC,IAAD,CAAlB,EACE,iBAAY,CAAC,KAAS,QAAG,CAAC,oBAAe,CAAC,IAAD,EAAS,EAAG,GAAE,CAA9B,CAAb,CADd;;AA7EuC;AA9SP;AAElC,mCAAyB;AACzB,0BAAe,CAAC,cAAD;AACf,0BAAe,CAAC,YAAD;AACf,mCAAyB;AACzB;AANkC;AA6dO;;AA3jBC;AAE1C,UAAG,0BAAH,EACE,MADF;AAGA,UAAG,CAAI,iBAAP,EACE,yBADF;AAGA;AAR0C;AAxCA;AAE1C,UAAG,0BAAH,EACE,MADF;AAGA,UAAG,CAAI,iBAAP,EACE,yBADF;AAGA;AAR0C;AAlBM;AAGhD,UAAG,0BAAsB,IAAG,CAAI,sBAAhC,EACE,MADF;AAGA,UAAG,CAAI,iBAAP,EACE,yBADF;AAGA;AACA,0BAAe,CAAC,sBAAD;AAViC;AAwCA;AAGhD,UAAG,0BAAsB,IAAG,CAAI,sBAAhC,EACE,MADF;AAGA,UAAG,CAAI,iBAAP,EACE,yBADF;AAGA;AACA,0BAAe,CAAC,sBAAD;AAViC;AA+mBJ;AAE5C;AAAI;AACJ;AAAK;AACL;AAAG;AACH;AAAI;AACJ;AACA;AACA;AAEA,UAAkE,CAAZ,mBAAY,GAAE,CAAF,CAAK,IAAiB,CAAb,4CAAa,IAAG,oBAAH,CAAxF,EACE,MADF;AAGA,mCAAyB;AAEzB,UAAG,UAAH;AAEE;AACA,yCApkCuE;OAikCzE;AAMA,WAAM;AACN,WAAM;AACN,YAAO;AACP,YAAO;AACP,UAAW,CAAC,EAAD,SAAwC,IAAvB,CAAC,EAAD,SAAZ,IAA6B,CAAC,GAAD,SAAZ,IAA8B,CAAC,GAAD,SAA/D;AAEE,YAAG,OAAH;AACE,qBAAM,yBAAN;AAEA,yBAAM,qBAAN;AAEF,aAAM,EAAE,MAAO,GAAE,EAAE,KAAJ;AACf,aAAM,EAAE,OAAQ,GAAE,EAAE,IAAJ;AAChB,YAAK;AACL,YAAK;AAEL,UAAE,WAAC,CAAc,CAAF,CAAE,GAAE,CAAF,CAAmG,IAAnE,CAAtB,wCAAc,CAAC,EAAG,GZheiB,CYgerB,CAAQ,KAAE,CAAF,CAA3B,IAAoC,gCAAJ,IAAmC,CAAI,6BAAR,IAAmC,CAAI,sBAAzH;AACH,UAAE,WAAC,CAAc,CAAF,CAAE,GAAE,CAAF,CAAkE,IAAlC,CAAtB,wCAAc,CAAC,EAAG,GZjeiB,CYierB,CAAQ,KAAE,CAAF,CAA3B,IAAoC,8BAAJ,IAAiC,CAAI,sBAAxF;AACH,WAAG,WAAC,CAAc,CAAF,CAAE,GAAE,CAAF,CAAmG,IAAnE,CAAtB,wCAAc,CAAC,EAAG,GZlegB,CYkepB,CAAQ,KAAE,CAAF,CAA3B,IAAoC,gCAAJ,IAAmC,CAAI,6BAAR,IAAmC,sBAArH;AACJ,WAAG,WAAC,CAAc,CAAF,CAAE,GAAE,CAAF,CAAkE,IAAlC,CAAtB,wCAAc,CAAC,EAAG,GZnegB,CYmepB,CAAQ,KAAE,CAAF,CAA3B,IAAoC,8BAAJ,IAAiC,sBAApF;AAGJ,YAAG,GAAG,SAAS,IAAI,sBAAnB;AACE,aAAG,UAAC,CAAU,IAAV;AAEA,cAAJ,GAAG,UAAC,CAAU,IAAV;AAEN,YAAG,GAAG,SAAS,IAAI,sBAAnB;AACE,aAAG,UAAC,CAAU,IAAV;AAEA,cAAJ,GAAG,UAAC,CAAU,IAAV;AAEN,YAAG,EAAE,SAAS,IAAI,CAAI,sBAAtB;AACE,YAAE,UAAC,CAAU,IAAV;AAEA,cAAH,EAAE,UAAC,CAAU,IAAV;AAEL,YAAG,EAAE,SAAS,IAAI,CAAI,sBAAtB;AACE,YAAE,UAAC,CAAU,IAAV;AAEA,cAAH,EAAE,UAAC,CAAU,IAAV;AAGL,eAAQ,wCAAc,QAAC;AACvB,eAAQ,wCAAc,QAAC;AAEvB,YAAG,sBAAH;AAEE,cAAG,GAAG,SAAS,IAAI,uBAAnB;AACE,gBAAI,SAAC,CAAS,GAAG,SAAC,EAAM,GAAE,CAArB;AAEA,gBAAL,IAAI,SAAC,CAAS,CAAT;;AAIP,cAAG,EAAE,SAAS,IAAI,uBAAlB;AACE,gBAAI,SAAC,CAAS,EAAE,SAAC,EAAM,GAAE,CAApB;AAEA,gBAAL,IAAI,SAAC,CAAS,CAAT;;AAGT,YAAI,OAAC,CAAO,CAAP;AACL,YAAI,SAAC,CAAS,CAAT;AACL,YAAI,UAAC,CAAU,CAAV;AACL,YAAI,QAAC,CAAQ,CAAR;AAEL,YAAG,sBAAH;AAEE,cAAG,GAAG,SAAN;AACE,gBAAI,UAAC,CAAU,GAAG,UAAC,EAAO,GAAE,CAAvB;AAEA,gBAAL,IAAI,UAAC,CAAU,CAAV;;AAIP,cAAG,EAAE,SAAL;AACE,gBAAI,UAAC,CAAU,EAAE,UAAC,EAAO,GAAE,CAAtB;AAEA,gBAAL,IAAI,UAAC,CAAU,CAAV;;AAGT,YAAG,CAAI,uBAAP;AAEE,qBAAM,yBAAN;AACA,cAAI,QAAC,CAAQ,IAAI,MAAM,GAAE,EAAE,KAAtB;AACL,cAAI,SAAC,CAAS,IAAI,OAAO,GAAS,CAAN,eAAM,GAAE,EAAE,MAAJ,CAA7B;AACL,cAAI,OAAC,CAAO,IAAI,KAAK,GAAE,EAAE,IAApB;AACL,cAAI,UAAC,CAAU,IAAI,QAAQ,GAAU,CAAP,gBAAO,GAAE,EAAE,OAAJ,CAAhC;SANP;AAwBA,UAAE,QAAC,CAAQ,UAAK,CAAC,IAAI,MAAL,CAAb;AACH,UAAE,OAAC,CAAO,UAAK,CAAC,gBAAqB,GAAZ,IAAI,QAAN,GAAgB,EAAE,UAAC,EAA3B,CAAZ;AACH,UAAE,QAAC,CAAQ,UAAK,CAAC,eAAmB,GAAX,IAAI,OAAN,GAAe,EAAE,SAAC,EAAzB,CAAb;AACH,UAAE,OAAC,CAAO,UAAK,CAAC,IAAI,KAAL,CAAZ;AACH,UAAE,SAAC,CAAS,UAAK,CAAC,QAAG,CAAC,EAAG,eAAmB,GAAX,IAAI,OAAN,GAAe,IAAI,MAA7B,CAAJ,CAAd;AACH,UAAE,UAAC,CAAU,UAAK,CAAC,QAAG,CAAC,EAAG,gBAAqB,GAAZ,IAAI,QAAN,GAAgB,IAAI,KAA/B,CAAJ,CAAf;AAKH,UAAE,UAAC,CAAU,UAAK,CAAC,QAAG,CAAC,EAAG,gBAAqB,GAAZ,IAAI,QAAN,GAAgB,IAAI,KAA/B,CAAJ,CAAf;AACH,WAAG,QAAC,CAAQ,UAAK,CAAC,IAAI,MAAL,CAAb;AACJ,WAAG,OAAC,CAAO,UAAK,CAAC,gBAAqB,GAAZ,IAAI,QAAN,GAAgB,GAAG,UAAC,EAA5B,CAAZ;AACJ,WAAG,QAAC,CAAQ,UAAK,CAAC,eAAmB,GAAX,IAAI,OAAN,GAAe,GAAG,SAAC,EAA1B,CAAb;AACJ,WAAG,OAAC,CAAO,UAAK,CAAC,IAAI,KAAL,CAAZ;AACJ,WAAG,SAAC,CAAS,UAAK,CAAC,QAAG,CAAC,EAAG,eAAmB,GAAX,IAAI,OAAN,GAAe,IAAI,MAA7B,CAAJ,CAAd;AACJ,WAAG,UAAC,CAAU,UAAK,CAAC,QAAG,CAAC,EAAG,gBAAqB,GAAZ,IAAI,QAAN,GAAgB,IAAI,KAA/B,CAAJ,CAAf;AAGJ,YAAK,eAAL,IAAK;AACL,YAAK,eAAL,IAAK;AAEL,mBAAM,qBAAN;AACA,aAAM,EAAE,MAAO,GAAE,EAAE,KAAJ;AACf,aAAM,EAAE,OAAQ,GAAE,EAAE,IAAJ;AA6BhB,YAAG,gBAAW,KAAE,8CAAhB;AAEE,YAAE,YAAC,CAAY,UAAK,CAAC,QAAG,CAAC,EAAG,yBAAJ,CAAJ,CAAjB;AACH,YAAE,OAAC,CAAO,QAAG,CAAC,EAAE,YAAC,GAAU,cAAd,CAAV;;AAIH,YAAE,YAAC,CAAY,UAAK,CAAC,QAAG,CAAC,EAAG,QAAG,CAAC,EAAG,EAAJ,CAAP,CAAJ,CAAjB;AACH,YAAE,OAAC,CAAO,UAAK,CAAC,QAAG,CAAC,EAAE,YAAC,GAAU,CAAd,CAAJ,CAAZ;AACH,YAAE,aAAF,GAAkB,UAAK,CAAC,sBAAD;AACvB,YAAE,aAAF,GAAkB,QAAG,CAAC,EAAG,EAAE,YAAC,EAAP;AACrB,YAAE,YAAC,CAAY,QAAG,CAAC,EAAE,YAAC,GAAU,EAAE,KAAhB,CAAf;;AAGL,YAAG,gBAAW,KAAE,8CAAhB;AAEE,YAAE,YAAC,CAAY,UAAK,CAAC,QAAG,CAAC,EAAG,4BAAJ,CAAJ,CAAjB;AACH,YAAE,OAAC,CAAO,QAAG,CAAC,EAAE,YAAC,GAAU,iBAAd,CAAV;;AAIH,YAAE,YAAC,CAAY,UAAK,CAAC,QAAG,CAAC,EAAG,QAAG,CAAC,EAAG,EAAJ,CAAP,CAAJ,CAAjB;AACH,YAAE,OAAC,CAAO,UAAK,CAAC,QAAG,CAAC,EAAE,YAAC,GAAU,CAAd,CAAJ,CAAZ;AACH,YAAE,YAAC,CAAY,QAAG,CAAC,EAAE,YAAC,GAAU,EAAE,KAAhB,CAAf;;AAIL,YAAG,gBAAW,KAAE,8CAAhB;AAEE,aAAG,YAAC,CAAY,yBAAZ;AACJ,aAAG,OAAC,CAAO,cAAP;;AAIJ,aAAG,YAAC,CAAY,QAAG,CAAC,EAAG,EAAJ,CAAf;AACJ,aAAG,OAAC,CAAO,CAAP;AACJ,aAAG,aAAH,GAAmB,UAAK,CAAC,sBAAD;AACxB,aAAG,SAAC,CAAS,QAAG,CAAC,GAAG,QAAQ,GAAG,KAAK,GAAE,GAAG,UAAzB,CAAZ;;AAGN,YAAG,gBAAW,KAAE,8CAAhB;AAEE,aAAG,YAAC,CAAY,4BAAZ;AACJ,aAAG,OAAC,CAAO,iBAAP;;AAIJ,aAAG,YAAC,CAAY,QAAG,CAAC,EAAG,EAAJ,CAAf;AACJ,aAAG,OAAC,CAAO,CAAP;AACJ,aAAG,SAAC,CAAS,QAAG,CAAC,GAAG,QAAQ,GAAG,KAAK,GAAE,GAAG,UAAzB,CAAZ;;OA3MR;AA+MA,mCAAyB;AAEzB,UAAG,OAAH,EACE,qBAAgB,CAAC,MAAO,KAAR,CADlB;AA1O4C;AApBG;AAE/C,UAAgB,CAAZ,mBAAY,GAAE,CAAF,CAA4D,IAApD,qBAAH,IAAoC,CAAb,4CAAa,IAAG,oBAAH,CAAjB,IAAkD,CAAV,yCAAU,IAAG,oBAAH,CAA1F,EACE,MADF;AAGA,sBAhiC6C;AAiiC7C;AACA;AACA,4BAriCgD,KAA4B;AAsiC5E,2BAAgB,CAAC,KAAM,IAAP;AAChB;AACA;AAX+C;AAcE;AAEjD,4BA7iCgD,KAA4B;AA8iC5E;AAHiD;AA/mBf;AAElC;AACA;AAHkC;AAsQS;AAE3C,UAAG,sBAAH;AAEE,YAAG,gCAAyB,UAAU,GAAE,CAAxC,EACE,gCAAyB,SAAC,CAAS,QAAG,CAAC,gCAAyB,KAAK,GAAE,gCAAyB,UAA3B,CAAsC,QAAG,CAAC,EAAG,MAAJ,CAAxE,CAAZ,CAD5B;;AAYA,kCAAmB,YAAC,CAAY,UAAK,CAAC,QAAG,CAAC,0BAAmB,KAAK,GAAE,0BAAmB,YAAC,EAAtB,CAAgC,QAAG,CAAC,EAAG,MAAJ,CAA5D,CAAJ,CAAjB;;AAhBqB;AAkFA;AAE3C,UAAG,sBAAH;AAEE,YAAG,8BAAuB,UAAU,GAAE,CAAtC,EACE,8BAAuB,SAAC,CAAS,QAAG,CAAC,8BAAuB,KAAK,GAAE,8BAAuB,UAAzB,CAAoC,QAAG,CAAC,EAAG,MAAJ,CAApE,CAAZ,CAD1B;;AAYA,gCAAiB,YAAC,CAAY,UAAK,CAAC,QAAG,CAAC,wBAAiB,KAAK,GAAE,wBAAiB,YAAC,EAApB,CAA8B,QAAG,CAAC,EAAG,MAAJ,CAAxD,CAAJ,CAAjB;;AAhBuB;AA8OS;AAEpD,UAAgB,CAAZ,mBAAY,GAAE,CAAF,CAAyC,IAAnB,CAAb,4CAAa,IAAG,oBAAH,CAAjB,IAAkD,CAAV,yCAAU,IAAG,oBAAH,CAAvE,EACE,MADF;AAGA,sBArgC6C;AAsgC7C;AACA,2BAAgB,CAAC,KAAM,IAAP;AAChB;AACA;AACA;AAVoD;AAz4BZ;AAAb;AAE3B,eAAU,gCAA0B,GAAoB,CAAlB,wBAAkB,GAAE,uBAAF,CAApB;AAFT;AAAa;AAKF;AAAX;AAE3B,eAAU,gCAA0B,GAAE,CAAF;AAFT;AAAW;AA6bK;AAAhB;AAE3B,eAAU;AAFiB;AAAgB;AApID;AAAf;AAE3B,eAAU;AAFiB;AAAe;AAtIH;AAAZ;AAE3B,eAAU;AAFiB;AAAY;AA7DM;AAAlB;AAE3B,qBAAU,mBAAV;AAF2B;AAAkB;AA1BJ;AAAd;AAE3B,qBAAoB,gFAApB;AACA,UAAG,sBAAH;AAEE,YAAG,gCAAyB,SAA5B,EACE,MAAM,OAAN,GAAiB,MAAM,OAA2C,GAAjC,gCAAyB,UAAC,EAA5B,GAAqC,CADtE;AAGA,YAAG,8BAAuB,SAA1B,EACE,MAAM,MAAN,GAAgB,MAAM,MAAuC,GAA9B,8BAAuB,SAAC,EAA1B,GAAkC,CADjE;;AAKA,YAAG,0BAAmB,SAAtB,EACE,MAAM,OAAN,GAAiB,MAAM,OAAqC,GAA3B,0BAAmB,UAAC,EAAtB,GAA+B,CADhE;AAGA,YAAG,wBAAiB,SAApB,EACE,MAAM,MAAN,GAAgB,MAAM,MAAiC,GAAxB,wBAAiB,SAAC,EAApB,GAA4B,CAD3D;;AAhByB;AAAc;AAqBI;AAAlB;AAE3B,qBAAU,qBAAV;AAF2B;AAAkB;AAwBH;AAAf;AAE3B,UAAG,sBAAH;AACE,iBAAU,QAAG,CAAC,gCAAyB,KAAK,GAAE,gCAAyB,UAA3B,CAAsC,QAAG,CAAC,EAAG,gCAAyB,OAA7B,CAAxE;;AAQb,iBAAU,UAAK,CAAC,QAAG,CAAC,0BAAmB,KAAK,GAAE,0BAAmB,YAAC,EAAtB,CAAgC,QAAG,CAAC,EAAG,0BAAmB,YAAC,EAAxB,CAA5D,CAAJ;;AAXU;AAAe;AAwHA;AAAf;AAE3B,UAAG,sBAAH;AACE,iBAAU,QAAG,CAAC,8BAAuB,KAAK,GAAE,8BAAuB,UAAzB,CAAoC,QAAG,CAAC,EAAG,8BAAuB,OAA3B,CAApE;;AAQb,iBAAU,UAAK,CAAC,QAAG,CAAC,wBAAiB,KAAK,GAAE,wBAAiB,YAAC,EAApB,CAA8B,QAAG,CAAC,EAAG,wBAAiB,YAAC,EAAtB,CAAxD,CAAJ;;AAXU;AAAe;AApBC;AAAhB;AAE3B,UAAG,sBAAH;AACE,iBAAU,8BAAuB;;AAOjC,iBAAU,wBAAiB,YAAC;;AAVH;AAAgB;AAzEA;AAAhB;AAE3B,UAAG,sBAAH;AACE,iBAAU,gCAAyB;;AAOnC,iBAAU,0BAAmB,YAAC;;AAVL;AAAgB;AAwFA;AAAhB;AAE3B,eAAU;AAFiB;AAAgB;AAkHK;AAArB;AAE3B;AAAE;AACF;AACA;AACA;AAEA,gBAAK,qBAAL;AACA,WAAM,CAAC,MAAO,GAAE,CAAC,KAAH;AACd,eAAU;AACV,UAAK;AACL,YAAO;AACP,eAAqB,KAAZ,iBAAY,GAAE,CAAF,EAAW,aAAhC;AAAI;AAEF,YAAK,CAAE,GAAE,iBAAY,CAAC,CAAD,CAAd;AACP,YAAG,CAAE,GAAE,EAAP;AAEE,mBAAU,QAAG,CAAC,EAAG,GAAJ;AACb;SAHF;AAKI,WAAJ,IAAG;;AApBsB;AAAqB;AAtLH;AAAlB;AAE3B;AAAE;AACF;AACA;AACA;AAEA,gBAAK,qBAAL;AACA,WAAM,CAAC,OAAQ,GAAE,CAAC,IAAH;AACf,eAAU;AACV,UAAK;AACL,YAAO;AACP,eAAkB,KAAT,cAAS,GAAE,CAAF,EAAW,aAA7B;AAAI;AAEF,YAAK,CAAE,GAAE,iBAAY,CAAC,CAAD,CAAd;AACP,YAAG,CAAE,GAAE,EAAP;AAEE,mBAAU,QAAG,CAAC,EAAG,GAAJ;AACb;SAHF;AAKI,WAAJ,IAAG;;AApBsB;AAAkB;AAnLT;AAEpC;AACA,6BAAmB;AAEnB,gCAAsB;AAEtB,2BAAiB;AAEjB,sCAA4B,8CAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,mCAAwB,UAAC,CAAU,IAAV;AACzB,wCAA8B,8CAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,qCAA0B,UAAC,CAAU,IAAV;AAE3B,gCAAsB,iCAAU,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,6BAAkB,UAAC,CAAU,IAAV;AACnB,kCAAwB,iCAAU,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,+BAAoB,UAAC,CAAU,IAAV;AAErB,mCAAwB,YAAW,mBAAC,CAAmB,CAAnB;AACpC,qCAA0B,YAAW,mBAAC,CAAmB,CAAnB;AAUtC,qCAA0B,QAAC,CAAQ,gEAAR;AAG3B,6BAAkB,gBAAlB,GAAqC;AACrC,+BAAoB,gBAApB,GAAuC;AACvC,6BAAkB,QAAC,CAAQ,gDAAR;AAGnB,6BAAkB,WAAC,CAAW,IAAX;AACnB,+BAAoB,WAAC,CAAW,IAAX;AACrB,mCAAwB,WAAC,CAAW,KAAX;AACzB,qCAA0B,WAAC,CAAW,KAAX;AAC3B,6BAAkB,UAAlB,GAAgC;AAChC,+BAAoB,UAApB,GAAkC;AAClC,qCAA0B,eAA1B,GAA6C;AAC7C,mCAAwB,eAAxB,GAA2C;AAE3C,uCAA6B;AAC7B,yCAA+B;AAE/B,yBAAe;AAEf,sBAAY,8BAAyB,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,yBAAe,8BAAyB,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,sBAAY,8BAAyB,QAAC,YAAM,CAAC,IAAD,CAAN;AAEtC,+BAAqB;AACrB,iCAAuB;AACvB,oCAA0B;AAC1B,0BAAgB;AAChB,uBAAa;AACb,uCAA6B;AAC7B,yCAA+B;AA9D0B;AAArB;AA2EA;AAE3B,eAAT,KAAS;AACG,eAAZ,KAAY;AACH,eAAT,KAAS;AACgB,eAAzB,KAAyB;AACE,eAA3B,KAA2B;AACR,eAAnB,KAAmB;AACE,eAArB,KAAqB;AACrB;AAToC;AAhHF;AAElC;AACA,UAAa,wBAAH,eAAP,MAAO,CAAV;AAEE,2BAAuB,OAAP,OAAU,wBAAH,CAAuB;AAC9C,kCAA8B,OAAP,OAAU,wBAAH,CAAuB;OAHvD;AAHkC;AA4cA;AAElC;AAEA;AAJkC;AAvbK;AAEvC;AACI,yBAAJ,IAAG;AAHoC;AA4WF;AAErC;AACI,yBAAJ,IAAG;AACH,UAAG,mBAAa,KAAE,CAAlB,EACE,0BADF;AAJqC;AAlXS;AAE9C,6BAAmB;AACnB,6BAAmB;AAH2B;AALG;AAEjD,iBAAM,CAAC,qBAAiB,oBAAlB;AAF2C;AA00BP;AAE1C,iCAAsB,CAAC,KAAM,KAAM,IAAb;AAFoB;AArlBU;AAAzB;AAE3B;AAEA,aAAQ;AACR,UAAG,gBAAW,KAAE,8CAAhB;AAMA,eAAU;AAXiB;AAAyB;AApGE;AAA3B;AAE3B;AAAM;AAEN,aAAQ;AACR,UAAG,gBAAW,KAAE,8CAAhB;AAEE,kBAAW,cAAe,CAAC,UAAK,CAAC,IAAD,CAAN;AAC1B,eAAQ;OAHV;AAMA,eAAU;AAXiB;AAA2B;AA8KR;AAAnB;AAE3B,eAAU;AAFiB;AAAmB;AAwCF;AAAjB;AAE3B,eAAU;AAFiB;AAAiB;AA3QQ;AAAzB;AAE3B,eAAU;AAFiB;AAAyB;AAKF;AAAvB;AAE3B,eAAU;AAFiB;AAAuB;AA0mBf;AAAR;AAE3B,eAAU;AAFiB;AAAQ;AAyBD;AAAP;AAE3B,eAAU;AAFiB;AAAO;AAVD;AAAN;AAE3B,eAAU;AAFiB;AAAM;AAoBD;AAAL;AAE3B,eAAU;AAFiB;AAAK;AAzBG;AAAR;AAE3B,eAAU;AAFiB;AAAQ;AALG;AAAX;AAE3B,eAAU;AAFiB;AAAW;AAyBJ;AAAP;AAE3B,eAAU;AAFiB;AAAO;AAVD;AAAN;AAE3B,eAAU;AAFiB;AAAM;AAoBD;AAAL;AAE3B,eAAU;AAFiB;AAAK;AAvVS;AAAd;AAE3B,eAAU,iBAAY,CAAC,OAAD;AAFK;AAAc;AA7BG;AAAjB;AAE3B,eAAU,cAAe,CAAC,OAAD;AAFE;AAAiB;AAzJM;AAAvB;AAE3B,eAAU;AAFiB;AAAuB;AAKJ;AAAnB;AAE3B,eAAU;AAFiB;AAAmB;AAKF;AAAjB;AAE3B,eAAU;AAFiB;AAAiB;AA/ZzB;;;;;;;AA+HC,+BAAO,UzFqTjB,+ByFrTiB,CAAP;AA/HD;AA5HrB,GA0Rc,sDA1Rd;ACAA,wCA6BS,2IA7BT;;;;AAwDe,uBAAG;AACJ,sBAAG;AA8GS;AA8pBL;AAhIC;AAhaC;AA4RF;AA7fc;;AAEG;AAClC;AACA;AACA;AAHkC;aAClC,8BACA,IAAA,wBACA,sCADA;AAFkC;;AAClC;AACA;AACA;AAHkC;;;AAClC;AACA;AACA;AAHkC;AAMlB,6CbuOZ,iDavOY;AACC;AAEO;;;AAExB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA7BwB;;;;;;;;;;;;;;;;AA+2Le;AAAP;AAElC,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,mBAAmB,CAAC,KAAM,OAAP,CADxC;AAHkC;AAAO;AAOC;AAAR;AAElC,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,oBAAoB,CAAC,KAAM,OAAP,CADzC;AAHkC;AAAQ;AA/EQ;AAAhB;AAElC,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,4BAA4B,CAAC,KAAM,OAAP,CADjD;AAHkC;AAAgB;AA2CP;AAAT;AAElC,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,qBAAqB,CAAC,IAAD,CAD1C;AAHkC;AAAS;AAlDI;AAAb;AAElC,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,yBAAyB,CAAC,IAAD,CAD9C;AAHkC;AAAa;AAyDF;AAAX;AAElC,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,uBAAuB,CAAC,IAAD,CAD5C;AAHkC;AAAW;AA7BJ;AAAP;AAElC,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,mBAAmB,CAAC,IAAD,CADxC;AAHkC;AAAO;AAoCS;AAAhB;AAGlC,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,4BAA4B,CAAC,KAAM,KAAP,CADjD;AAJkC;AAAgB;AA7BJ;AAAZ;AAGlC,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,wBAAwB,CAAC,KAAM,KAAP,CAD7C;AAJkC;AAAY;AAQE;AAAd;AAElC,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,0BAA0B,CAAC,IAAD,CAD/C;AAHkC;AAAc;AA6BI;AAAlB;AAElC,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,8BAA8B,CAAC,IAAD,CADnD;AAHkC;AAAkB;AA1DL;AAAb;AAElC,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,yBAAyB,CAAC,IAAD,CAD9C;AAHkC;AAAa;AAOD;AAAZ;AAElC,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,wBAAwB,CAAC,IAAD,CAD7C;AAHkC;AAAY;AAwEG;AAEjD,UAAY,cAAD,QAAX,EACE,cAAS,0BAA0B,CAAC,IAAD,CADrC;AAFiD;AAnGR;AAEzC,UAAY,cAAD,QAAX,EACE,cAAS,kBAAkB,CAAC,KAAM,QAAP,CAD7B;AAFyC;AA3CE;AAE3C,UAAY,cAAD,QAAX,EACE,cAAS,oBAAoB,CAAC,KAAM,QAAP,CAD/B;AAF2C;AAMA;AAG3C,UAAY,MAAD,QAAX;AAEE,yBAAqB,OAAP,OAAU,+BAAH,CAA8B;AACnD,8BAA0B,OAAP,OAAU,+BAAH,CAA8B;AACxD,yBAAqB,OAAP,OAAU,+BAAH,CAA8B;AACnD,yBAAqB,OAAP,OAAU,+BAAH,CAA8B;AACnD,sBAAkB,OAAP,OAAU,+BAAH,CAA8B;AAChD,oBAAgB,OAAP,OAAU,+BAAH,CAA8B;AAC9C,2BAAuB,OAAP,OAAU,+BAAH,CAA8B;AACrD,uBAAmB,OAAP,OAAU,+BAAH,CAA8B;AACjD,2BAAuB,OAAP,OAAU,+BAAH,CAA8B;AACrD,sBAAkB,OAAP,OAAU,+BAAH,CAA8B;AAChD,0BAAsB,OAAP,OAAU,+BAAH,CAA8B;AACpD,2BAAuB,OAAP,OAAU,+BAAH,CAA8B;AACrD,4BAAwB,OAAP,OAAU,+BAAH,CAA8B;AACtD,2BAAuB,OAAP,OAAU,+BAAH,CAA8B;AACrD,4BAAwB,OAAP,OAAU,+BAAH,CAA8B;AACtD,4BAAwB,OAAP,OAAU,+BAAH,CAA8B;AACtD,qBAAiB,OAAP,OAAU,+BAAH,CAA8B;OAlBjD;AAH2C;AAyBA;AAE3C,uBAAa;AAF+D;AAAjC;AAKA;AAE3C,oBAAU;AACV,mBAAS;AACT;AAJ2C;AAnxLjB;AAsFE;;AAEJ;;;AAEtB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAXsB;;;;;;;AAunLwB;AAAV;AAEtC,eAAU,6BAAwB,QAAC;AACnC,YAAM,MAAN,GAAe;AACf,YAAM,MAAC,SAAQ,KAAR;AACP,YAAM,MAAN,GAAe;AALuB;AAAU;AAQK;AAAf;AAEtC,eAAU,6BAAwB,QAAC;AACnC,YAAM,MAAN,GAAe;AACf,YAAM,QAAN,GAAiB;AACjB,YAAM,MAAC,SAAQ,KAAR;AAL+B;AAAe;AAnBD;AAAd;AAGtC,eAAU,6BAAwB,QAAC;AACnC,YAAM,MAAN,GAAe;AACf,YAAM,OAAN,GAAgB;AAChB,YAAM,aAAN,GAAsB;AACtB,YAAM,WAAN,GAAoB;AACpB,YAAM,MAAC,SAAQ,KAAR;AAR+B;AAAc;AA2BI;AAAlB;AAEtC,eAAU,6BAAwB,QAAC;AACnC,YAAM,MAAN,GAAe;AACf,YAAM,QAAN,GAAiB;AACjB,YAAM,MAAC,SAAQ,KAAR;AAL+B;AAAkB;AArCD;AAAjB;AAEtC,eAAU,6BAAwB,QAAC;AACnC,YAAM,MAAN,GAAe;AACf,YAAM,OAAN,GAAgB;AAChB,YAAM,aAAN,GAAsB;AACtB,YAAM,WAAN,GAAoB;AACpB,YAAM,MAAC,SAAQ,KAAR;AAP+B;AAAiB;AA6Cd;AAEzC,mBAAS;AACT;AAHyC;AA/oLjB;AAiCI;AAu6Le;AAAP;AAEpC,eAAkC,cAAW,QAAK,CAAC,KAAD,CAAhB;AAFE;AAAO;AAKC;AAElC,cAAK,CAAC,MAAU,KAAX;AAF6B;AA56LhB;AAOF;AA06Le;AAAP;AAElC,eAAiB,UAAW,QAAK,CAAC,KAAD,CAAhB;AAFiB;AAAO;AAKC;AAEhC,cAAK,CAAC,MAAU,KAAX;AAF2B;AA/6LhB;AAYK,0DA5IL,gDA4IK;AAEA;;AAEH;;AACA;;AACA;;AAEE;;;AAE5B;AACA;AACA;AACA;AACA;AACA;AAP4B;;;;;AA2xLmB;AAEjD,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ,YAAY,YAAD,QAAX,EACE,YAAO,eADT;OAHF;AAFiD;AAfO;AAAlB;AAEtC,eAAU,gBAAW,KAAG,EAAH;AAFiB;AAAkB;AAKJ;AAEpD,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf,YAAY,YAAD,QAAX,EACE,YAAO,eADT;OAHF;AAFoD;AApBL;AAE/C,qBAAW;AACX,sBAAY;AACZ,4BAAkB;AAClB,6BAAmB;AACnB,0BAAgB;AAChB,yBAAe;AAPiE;AAAjC;AAUA;AAE/C;AAF+C;AAtBF;AAE7C,UAAa,mCAAH,eAAP,MAAO,CAAV;AAEE,wBAAoB,OAAP,OAAU,mCAAH,CAAkC;AACtD,8BAA0B,OAAP,OAAU,mCAAH,CAAkC;AAC5D,+BAA2B,OAAP,OAAU,mCAAH,CAAkC;AAC7D,4BAAwB,OAAP,OAAU,mCAAH,CAAkC;AAC1D,2BAAuB,OAAP,OAAU,mCAAH,CAAkC;OAN3D;AAF6C;AAjvLf;AAYV,+BAAQ,WAsDP,mCAtDO,CAAR;AAIF;AACM;AACC;AACH;AACD;AApBS;AAuBA;;AAEL;;;AAEvB;AACA;AACA;AACA;AACA;AACA;AAPuB;AA8xLiB;AAE1C;AACA,4BAAkB;AAHmD;AAA3B;AAhBF;AAExC;AAEA,uBAAyB,OAAP,OAAU,8BAAH;AACzB,UAAY,cAAD,QAAX;AAEE,uBAAY,cAAc;AAC1B,0BAAc,cAAc;AAC5B,8BAAkB,cAAc;AAChC,uBAAW,cAAc;AACzB,uBAAW,cAAc;AACzB,0BAAc,cAAc;OAP9B;AALwC;AA9wLf;AASL,+BAAY,e1FqNrB,gC0FrNqB,CAAZ;AAGH;AACG;AACI;AACP;AACA;AACG,iCAnBU,6CAmBV;AAjBK;AAqBJ;;;AAMnB;AANmB;;;;;AAgzLe;AAAP;AAE7B,eAAqD,0CAAC,KAAD;AAFxB;AAAO;AAwCC;AAEpB,gDAAC,MAAO,KAAR;AAFoB;AAxDI;AAAZ;AAE7B;AAEA,eAAS,QAAK,wCAAd;AAAI;AAEF,YAAG,cAAK,CAAC,CAAE,GAAE,CAAL,CAAO,QAAQ,KAAE,GAAzB;AAEE,mBAAU,cAAK,CAAC,CAAE,GAAE,CAAL;AACf;SAHF;;AAMF,eAAU;AACV,YAAM,QAAN,GAAiB;AAbY;AAAY;AANH;AAEtB,sDAAC,OAAQ,8BAAT;AAChB,sBAAU;AAH0D;AAA9B;AATN;AAAH;AAE7B,eAA8C;AAC9C,UAAG,eAAM,KAAE,CAAX;AACE,cAAM,WAAN,GAAoB;AAEpB,YAAA,MAAM,WAAN,GAAoB;AANO;AAAG;AAkEG;AAAN;AAE7B,eAAoD,yCAAC,KAAD;AAFvB;AAAM;AAhBG;AAAT;AAE7B;AAEA,eAAU;AAEV,eAAS,QAAK,wCAAd;AAAI;AAEF,YAAG,cAAK,CAAC,CAAE,GAAE,CAAL,CAAO,QAAQ,KAAE,GAAzB;AAEE,mBAAU;AACV;SAHF;;AAR2B;AAAS;AAdU;AAEhD;AAEA,UAAK;AAEL,aAAM,CAAE,GAAE,CAAV;AAEM,SAAJ,IAAG;AACH,YAAG,cAAK,CAAC,CAAD,CAAG,QAAQ,KAAE,GAArB,EACE,WAAM,CAAC,CAAD,CADR;;AAT8C;AArzL3B;AAWD,+BAAO,UAyiBR,iCAziBQ,CAAP;AAXC;AAoBA;;;AAEnB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAhDmB;;;;;;;;;;;;;;;;;;AAq+JgB;AAErC,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACT;OAHF;AAFqC;AARA;AAErC,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;OAFX;AAFqC;AApMe;AAGpD,UAAG,yBAAqB,KAAG,KAA3B;AAEE,oCAAwB;AACxB;OAHF;AAHoD;AAkQX;AAEzC,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAFyC;AAkBS;AAGlD,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB;OAHF;AAHkD;AA4BL;AAE7C,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;AACjB;OAHF;AAF6C;AATP;AAEtC,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACV;OAHF;AAFsC;AATE;AAExC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAFwC;AAnBa;AAErD,UAAG,0BAAsB,KAAG,KAA5B;AAEE,qCAAyB;AACzB;OAHF;AAFqD;AA1KV;AAE3C,UAAG,gBAAY,KAAG,KAAlB,EACE,gBAAW,OAAO,CAAC,KAAD,CADpB;AAF2C;AA9DE;AAG7C,UAAG,kBAAc,KAAG,KAApB,EACE,kBAAa,OAAO,CAAC,KAAD,CADtB;AAH6C;AA2JL;AAExC,UAAG,aAAS,KAAG,KAAf,EACE,aAAQ,OAAO,CAAC,KAAD,CADjB;AAFwC;AAPE;AAG1C,UAAG,eAAW,KAAG,KAAjB,EACE,eAAU,OAAO,CAAC,KAAD,CADnB;AAH0C;AA1JC;AAE3C,UAAG,gBAAY,KAAG,KAAlB,EACE,gBAAW,OAAO,CAAC,KAAD,CADpB;AAF2C;AAoJH;AAExC,UAAG,aAAS,KAAG,KAAf,EACE,aAAQ,OAAO,CAAC,KAAD,CADjB;AAFwC;AAbH;AAErC,UAAG,UAAM,KAAG,KAAZ,EACE,UAAK,OAAO,CAAC,KAAD,CADd;AAFqC;AA7DA;AAErC,UAAG,UAAM,KAAG,KAAZ,EACE,UAAK,OAAO,CAAC,KAAD,CADd;AAFqC;AAsDE;AAGvC,UAAG,YAAQ,KAAG,KAAd,EACE,YAAO,OAAO,CAAC,KAAD,CADhB;AAHuC;AA1FI;AAG3C,UAAG,gBAAY,KAAG,KAAlB,EACE,mBAAe,KADjB;AAH2C;AAzBO;AAGlD,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB,sBAAO,CAAC,IAAD;OAHT;AAHkD;AAmEA;AAGlD,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB,sBAAO,CAAC,IAAD;OAHT;AAHkD;AA/CN;AAE5C,uBAAY,OAAO,CAAC,KAAD;AAFyB;AA4EJ;AAExC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ,sBAAO,CAAC,IAAD;OAHT;AAFwC;AASC;AAGzC,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb,sBAAO,CAAC,IAAD;OAHT;AAHyC;AAlBC;AAE1C,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd,sBAAO,CAAC,IAAD;OAHT;AAF0C;AAyCA;AAG1C,UAAG,eAAW,KAAG,KAAjB,EACE,eAAU,OAAO,CAAC,KAAD,CADnB;AAH0C;AAiDe;AAGzD,UAAG,8BAA0B,KAAG,KAAhC;AAEE,yCAA6B;AAC7B;OAHF;AAHyD;AAUX;AAG9C,UAAG,mBAAe,KAAG,KAArB;AAEE,8BAAkB;AAClB;OAHF;AAH8C;AAUS;AAGvD,UAAG,4BAAwB,KAAG,KAA9B;AAEE,uCAA2B;AAC3B;OAHF;AAHuD;AAUL;AAElD,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB;OAHF;AAFkD;AArMK;AAGvD,UAAG,4BAAwB,KAAG,KAA9B;AAEE,uCAA2B;AAC3B;OAHF;AAHuD;AAmEA;AAGvD,UAAG,4BAAwB,KAAG,KAA9B;AAEE,uCAA2B;AAC3B,sBAAO,CAAC,IAAD;OAHT;AAHuD;AA8Fb;AAE1C,UAAG,eAAW,KAAG,KAAjB,EACE,eAAU,OAAO,CAAC,KAAD,CADnB;AAF0C;AAlID;AAEzC,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAFyC;AATE;AAE3C,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf;OAHF;AAF2C;AArFa;AAA3B;AAE7B,eAAU,yBAAoB,KAAG,EAAH;AAFD;AAA2B;AAuGJ;AAEpD,kCAAwB;AAF4B;AAlFP;AAE7C,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;AACjB,YAAY,cAAD,QAAX,EACE,cAAS,iBADX;OAHF;AAF6C;AAUA;AAE7C,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;AACjB;OAHF;AAF6C;AA8SH;AAE1C;AAEA,UAAK;AACL,UAAY,CAAD,QAAX;AAEE,SAAC;AACD,SAAC;OAHH;AAL0C;AA1cL;AAErC;AAFqC;AAiHD;AAAP;AAE7B,eAAU;AACV,UAAG,MAAO,KAAE,EAAZ;AAEE,iBAAU;AACV,YAAG,MAAO,KAAE,EAAZ,EACE,SAAU,oBAAe,CAAC,2CAAD,CAA8B,GAAJ,GAAF,GAAQ,qBAAQ,CAAC,eAAD,CADnE;OAHF;AAH6B;AAAO;AAzBM;AAAb;AAE7B,eAAU;AACV,UAAW,CAAP,MAAO,KAAE,EAAF,CAA4D,IAAhC,CAAlB,cAAG,CAAC,KAAM,MAAP,CAAe,GAAE,CAAF,CAAtB,IAAiD,CAAlB,cAAG,CAAC,KAAM,MAAP,CAAe,GAAE,CAAF,CAAtB,IAA8D,CAA/B,cAAG,CAAC,OAAQ,sBAAS,CAAC,MAAD,CAAlB,CAA4B,GAAE,CAAF,CAA1G;AAEE,iBAAU;AACV,YAAG,MAAO,KAAE,EAAZ,EACE,SAAU,oBAAe,CAAC,2CAAD,CAA8B,GAAJ,GAAF,GAAQ,qBAAQ,CAAC,eAAD,CADnE;OAHF;AAH6B;AAAa;AAWC;AAAd;AAE7B,UAAG,UAAM,KAAG,EAAZ;AACE,iBAAU;AAGV,qBAAU;AANiB;AAAc;AAgCN;AAAR;AAE7B,eAAU;AAFmB;AAAQ;AA9HC;AAEtC;AACA,UAAY,gBAAD,QAAX,EACE,iBAAyB,OAAX,iBAAc,2BAAH,CAA0B,WADrD;AAGA,sBAAY;AACZ,kCAAwB;AACxB,uBAAa;AACb,wBAAc,CAAC;AACf,uBAAa;AACb,wBAAc,mCAA8B,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,yBAAe;AACf,2BAAiB;AACjB,uBAAa;AACb,2BAAiB;AACjB,kCAAwB;AACxB,gCAAsB;AACtB,gCAAsB;AACtB,4BAAkB;AAClB,uCAA6B;AAC7B,qCAA2B;AAC3B,0BAAgB,uBAAW,QAAC;AAC5B,UAAY,gBAAD,QAAX,EACE,aAAS,oBAAe,CAAC,2CAAD,CAA8B,GAAJ,GAAF,GAAQ,qBAAQ,CAAC,gBAAU,SAAC,EAAM,GAAE,CAApB,CADlE;AAGA,mBAAU,0BAAa,CAAC,WAAO,IAAK,GAAI,cAAC,4CAAD,CAAjB;AACvB,oBAAU;AACV,sBAAY;AACZ,mCAAyB;AAEzB,yBAAe,qDAAmB,QAAC,YAAM,CAAC,kEAAS,SZ3tIwG,QAAmD,GAAqD,EY2tI1N,CAAN;AACnC,2BAAiB,uDAAqB,QAAC,YAAM,CAAC,qEAAU,QAAX,CAAN;AACvC,sBAAY,qDAAmB,QAAC,YAAM,CAAC,kEAAS,SZ7tI2G,QAAmD,GAAqD,EY6tI7N,CAAN;AAChC,wBAAc,uDAAqB,QAAC,YAAM,CAAC,qEAAU,QAAX,CAAN;AAEpC,mBAAS,qDAAmB,QAAC,YAAM,CAAC,mEAAU,GZhuI6G,QAAmD,GAAqD,EYguIhO,CAAN;AAC7B,qBAAW,uDAAqB,QAAC,YAAM,CAAC,qEAAU,QAAX,CAAN;AAEjC,gCAAsB;AACtB,gCAAsB;AAEtB,qCAA2B;AAC3B,qCAA2B;AAE3B,mBAAS,qDAAmB,QAAC;AAC7B,wBAAc,qDAAmB,QAAC;AAClC,sBAAY,qDAAmB,QAAC;AAChC,yBAAe,qDAAmB,QAAC;AAEnC,sBAAW,WAAX,GAA0B;AAC1B,mBAAQ,WAAR,GAAuB;AACvB,wBAAa,WAAb,GAA4B;AAC5B,qBAAU,WAAV,GAAyB;AACzB,kBAAO,WAAP,GAAsB;AACtB,gBAAK,WAAL,GAAoB;AAEpB,gBAAK,WAAL,GAAoB;AACpB,qBAAU,WAAV,GAAyB;AACzB,mBAAQ,WAAR,GAAuB;AACvB,sBAAW,WAAX,GAA0B;AAE1B;AA9DiE;AAA3B;AAiEA;AAE3B,eAAX,KAAW;AACE,eAAb,KAAa;AACJ,eAAT,KAAS;AACE,eAAX,KAAW;AACF,eAAT,KAAS;AACG,eAAZ,KAAY;AACE,eAAd,KAAc;AACF,eAAZ,KAAY;AACN,eAAN,KAAM;AACE,eAAR,KAAQ;AACF,eAAN,KAAM;AACK,eAAX,KAAW;AACX;AACA;AAfsC;AAhHF;AAEpC,UAAa,0BAAH,eAAP,MAAO,CAAV;AAEE,oBAAgB,OAAP,OAAU,0BAAH,CAAyB;AACzC,qBAAiB,OAAP,OAAU,0BAAH,CAAyB;AAC1C,qBAAiB,OAAP,OAAU,0BAAH,CAAyB;AAC1C,yBAAqB,OAAP,OAAU,0BAAH,CAAyB;AAC9C,6BAAyB,OAAP,OAAU,0BAAH,CAAyB;AAClD,oCAAgC,OAAP,OAAU,0BAAH,CAAyB;AACzD,kCAA8B,OAAP,OAAU,0BAAH,CAAyB;AACvD,8BAA0B,OAAP,OAAU,0BAAH,CAAyB;AACnD,kCAA8B,OAAP,OAAU,0BAAH,CAAyB;AACvD,yCAAqC,OAAP,OAAU,0BAAH,CAAyB;AAC9D,uCAAmC,OAAP,OAAU,0BAAH,CAAyB;AAC5D,sBAAkB,OAAP,OAAU,0BAAH,CAAyB;AAC3C,wBAAoB,OAAP,OAAU,0BAAH,CAAyB;AAC7C,qCAAiC,OAAP,OAAU,0BAAH,CAAyB;AAC1D,kBAAK,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,MAAlC;AACZ,kCAA8B,OAAP,OAAU,0BAAH,CAAyB;AACvD,kCAA8B,OAAP,OAAU,0BAAH,CAAyB;AACvD,uCAAmC,OAAP,OAAU,0BAAH,CAAyB;AAC5D,uCAAmC,OAAP,OAAU,0BAAH,CAAyB;AAC5D,uBAAU,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,WAAlC;AACjB,kBAAK,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,MAAlC;AACZ,oBAAO,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,QAAlC;AACd,wBAAW,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,YAAlC;AAClB,wBAAW,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,YAAlC;AAClB,0BAAa,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,cAAlC;AACpB,qBAAQ,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,SAAlC;AACf,uBAAU,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,WAAlC;AACjB,qBAAQ,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,SAAlC;AACf,2BAAuB,OAAP,OAAU,0BAAH,CAAyB;AAChD,yBAAY,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,aAAlC;AACnB,6BAAyB,OAAP,OAAU,0BAAH,CAAyB;AAClD,wBAAoB,OAAP,OAAU,0BAAH,CAAyB;AAC7C,uBAAU,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,WAAlC;AACjB,oCAAgC,OAAP,OAAU,0BAAH,CAAyB;AACzD,6BAAyB,OAAP,OAAU,0BAAH,CAAyB;OApCpD;AAFoC;AAggBK;AAEzC,oBAAU;AAF+B;AArBP;AAElC;AAEA,UAAK;AACL,UAAY,CAAD,QAAX,EACE,CAAC,OAAM,OAAK,CAAC,gBAAO,SAAU,eAAgB,aA3rJuI,IA2rJzK,CADd;AALkC;AAllKb;AAkGD,+BAAY,e1FmFrB,gC0FnFqB,CAAZ;AAuBC,kCAjMU,8CAiMV;AACC,mC1FjDX,iC0FiDW;AACC;AAER;AACA;AACD;AACgB,2CZuIN,oEYvIM;AACF,yCZsIJ,oEYtII;AACL;AACJ,gCZqIQ,uEYrIR;AACI;AACP;AACE;AACa;AAChB,4BZ2VI,+DY3VJ;AACE,8BZseI,iEYteJ;AACF,4BZqXI,+DYrXJ;AACa,yCrFvDtB,uCqFuDsB;AACA,yCrFxDtB,uCqFwDsB;AAEV,+BZqVC,+DYrVD;AACE,iCZgeC,iEYheD;AACF,+BZ+WC,+DY/WD;AAEG,kCZiVF,+DYjVE;AACE,oCZ4dF,iEY5dE;AACF,kCZ2WF,+DY3WE;AACH,+BAzNU,2CAyNV;AACE,iCAxNU,6CAwNV;AACG;AAvJF;AA2JC;;;AAMpB;AANoB;;;;;AA89Je;AAAP;AAE9B,eAA0C,YAAK,CAAC,KAAD;AAFjB;AAAO;AAoBC;AAG5B,kBAAK,CAAC,MAAU,KAAX;AAHuB;AAfI;AAAZ;AAE9B,eAAU;AAFoB;AAAY;AAUJ;AAAR;AAE9B,eAAU;AAFoB;AAAQ;AArBC;AAEvB,sDAAC,UAAW,mBAAZ;AAChB,uBAAa;AAH2D;AAAjC;AALN;AAAH;AAE9B,eAA0C;AAFZ;AAAG;AAqBG;AAAN;AAE9B,eAAgD,yCAAC,KAAD;AAFlB;AAAM;AAx+Jd;AAaF,+BAAU,aAwXX,iCAxXW,CAAV;AAbE;AA4OF;AAxNQ;;AAEJ;;;AAEtB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAxBsB;;;;;;;;;;;;AA6tKgB;AAExC,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACT;OAHF;AAFwC;AAkBQ;AAEhD;AACA;AAEA,UAAK;AACL,UAAK;AACL,UAAW,CAAC,CAAD,SAAI,IAAY,CAAC,CAAD,SAA3B,EACE,CAAC,WAAW,CAAC,CAAC,aAAF,CADd;AAPgD;AArJL;AAE3C;AACA;AACA;AACA;AACA;AAEA,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ,YAAK;AACL,YAAK;AACL,YAAW,CAAC,CAAD,SAAoB,IAAJ,CAAC,CAAD,SAAZ,IAA4B,CAAC,CAAC,aAAF,SAA3C;AAEY,eAAD,sBAAC,YAAO,CAAR;AACT,mBAAS,QAAmB,OAAd,CAAC,aAAa,GAAE,CAAF,kBAA5B;AAAI;AAEF,kBAAO;AACP,2BAAQ,gBAAgB,CAAC,WAAI,cAAc,EAAG;;;;gBAAtB;AACd,iBAAD,sBAAC,YAAa,WAAC,KAAD,CAAQ,GAAE,CAAxB;AACT,iBAAK,CAAO,WAAC,KAAD,CAAQ,GAAE,CAAjB,CAAL,GAA4B;;AAG9B,yBAAQ,sBAAsB,CAAC,IAAI,OAAK,cAAc,mBAAxB;SAXhC;AAcA;OAnBF;AAR2C;AA+BE;AAG7C,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd;OAHF;AAH6C;AAyES;AAEtD,UAAG,wBAAoB,KAAG,KAA1B;AAEE,gCAAmB,OAAO,CAAC,KAAD;AAC1B;OAHF;AAFsD;AATL;AAEjD,UAAG,mBAAe,KAAG,KAArB;AAEE,2BAAc,OAAO,CAAC,KAAD;AACrB;OAHF;AAFiD;AA2BI;AAErD,UAAG,uBAAmB,KAAG,KAAzB;AAEE,+BAAkB,OAAO,CAAC,KAAD;AACzB;OAHF;AAFqD;AATL;AAEhD,UAAG,kBAAc,KAAG,KAApB;AAEE,0BAAa,OAAO,CAAC,KAAD;AACpB;OAHF;AAFgD;AA/DU;AAE1D,UAAG,4BAAwB,KAAG,KAA9B;AAEE,uCAA2B;AAC3B;OAHF;AAF0D;AATL;AAErD,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB;OAHF;AAFqD;AAoCI;AAEzD,UAAG,2BAAuB,KAAG,KAA7B;AAEE,sCAA0B;AAC1B;OAHF;AAFyD;AAlBL;AAEpD,UAAG,sBAAkB,KAAG,KAAxB;AAEE,iCAAqB;AACrB;OAHF;AAFoD;AAjLF;AAAlB;AAEhC,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,mBAAC,EADtB;AAHgC;AAAkB;AAkQT;AAEzC,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACV;OAHF;AAFyC;AAtDQ;AAEjD,UAAG,mBAAe,KAAG,KAArB;AAEE,8BAAkB;AAClB;OAHF;AAFiD;AAlBI;AAErD,UAAG,uBAAmB,KAAG,KAAzB;AAEE,+BAAkB,OAAO,CAAC,KAAD;AACzB;OAHF;AAFqD;AA9HP;AAE9C;AAF8C;AAgDO;AAErD;AAFqD;AAKb;AAAR;AAEhC,eAAU;AAFsB;AAAQ;AAVJ;AAAJ;AAEhC,eAAU;AAFsB;AAAI;AAhGG;AAAP;AAEhC;AACA;AAEA,UAAK;AACL,UAAY,cAAD,QAAX;AAEE,aAAM,cAAS,gBAAgB,CAAC,eAAD;AAC/B,sBAAS,kBAAkB,CAAC,KAAM,gBAAO;;;;YAAd;AAC3B,YAAG,EAAG,KAAG,EAAT,EACE,IAAK,cAAS,YAAY,CAAC,GAAI,IAAL,CAD5B;OAJF;AAQA,eAAU;AAdsB;AAAO;AA0DE;AAEzC;AACA,UAAY,gBAAD,QAAX;AAEE,yBAAyB,OAAX,iBAAc,8BAAH,CAA6B;AACtD,qBAAqB,OAAX,iBAAc,8BAAH,CAA6B;OAHpD;AAKA,sBAAY;AACZ,4BAAkB;AAClB,wBAAc;AACd,4BAAkB,uCAAa,QAAC;AAChC,yBAAc,UAAd,GAA4B;AAC5B,2BAAiB,uCAAa,QAAC;AAC/B,wBAAa,UAAb,GAA2B;AAE3B,iCAAuB,uCAAa,QAAC;AACrC,8BAAmB,UAAnB,GAAiC;AACjC,gCAAsB,uCAAa,QAAC;AACpC,6BAAkB,UAAlB,GAAgC;AAEhC,gCAAsB,uBAAW,QAAC;AAClC,6BAAkB,UAAlB,GAAgC;AAEhC;AAxBoE;AAA3B;AA2BA;AAEtB,eAAnB,KAAmB;AACJ,eAAf,KAAe;AACK,eAApB,KAAoB;AACN,eAAd,KAAc;AACK,eAAnB,KAAmB;AACnB;AACA;AARyC;AApEF;AAEvC,UAAa,6BAAH,eAAP,MAAO,CAAV;AAEE,oBAAgB,OAAP,OAAU,6BAAH,CAA4B;AAC5C,qBAAiB,OAAP,OAAU,6BAAH,CAA4B;AAC7C,8BAA0B,OAAP,OAAU,6BAAH,CAA4B;AACtD,sBAAkB,OAAP,OAAU,6BAAH,CAA4B;AAC9C,0BAAsB,OAAP,OAAU,6BAAH,CAA4B;AAClD,wBAAoB,OAAP,OAAU,6BAAH,CAA4B;AAChD,2BAAc,OAAO,CAAS,OAAP,OAAU,6BAAH,CAA4B,eAArC;AACrB,gCAAmB,OAAO,CAAS,OAAP,OAAU,6BAAH,CAA4B,oBAArC;AAC1B,0BAAa,OAAO,CAAS,OAAP,OAAU,6BAAH,CAA4B,cAArC;AACpB,+BAAkB,OAAO,CAAS,OAAP,OAAU,6BAAH,CAA4B,mBAArC;AACzB,kCAA8B,OAAP,OAAU,6BAAH,CAA4B;AAC1D,uCAAmC,OAAP,OAAU,6BAAH,CAA4B;AAC/D,iCAA6B,OAAP,OAAU,6BAAH,CAA4B;AACzD,sCAAkC,OAAP,OAAU,6BAAH,CAA4B;AAC9D,+BAAkB,OAAO,CAAS,OAAP,OAAU,6BAAH,CAA4B,mBAArC;AACzB,uBAAU,CAAC,MAAD;OAjBZ;AAFuC;AAuBI;AAE3C,UAAa,6BAAH,eAAP,MAAO,CAAV;AAEE,2BAAuB,OAAP,OAAU,6BAAH,CAA4B;AACnD,4BAAwB,OAAP,OAAU,6BAAH,CAA4B;AACpD,4BAAwB,OAAP,OAAU,6BAAH,CAA4B;AACpD,2BAAuB,OAAP,OAAU,6BAAH,CAA4B;AACnD,4BAAwB,OAAP,OAAU,6BAAH,CAA4B;AACpD,sBAAkB,OAAP,OAAU,6BAAH,CAA4B;OAPhD;AAF2C;AAnhKnB;AAkDJ,+BAAY,e1F9CrB,gC0F8CqB,CAAZ;AAYN;AACC;AACa;AACK;AACN;AACK;AAER,qCbIX,iDaJW;AACK,0CbGhB,iDaHgB;AACN,oCbEV,iDaFU;AACK,yCbCf,iDaDe;AACV;AACE,iCA5EQ,2CA4ER;AACQ,yC1FnLjB,iC0FmLiB;AA3EJ;AA+EC;;;AAMvB;AACA;AAPuB;;;;;;AAyrKe;AAAP;AAEjC,eAA6C,YAAK,CAAC,KAAD;AAFjB;AAAO;AAmCC;AAG/B,kBAAK,CAAC,MAAU,KAAX;AAH0B;AA9BI;AAAZ;AAEjC,eAAU;AAFuB;AAAY;AAeJ;AAAR;AAEjC,eAAU;AAFuB;AAAQ;AALJ;AAAJ;AAEjC,eAAU;AAFuB;AAAI;AAUU;AAG/C,UAAY,cAAD,QAAX,EACE,cAAS,eAAT,GAAyB,cAAS,eAAa,GAAE,CADnD;AAEA,oBAAK,CAAC,MAAD,CAAQ,WAAC,CAAW,MAAX;AACd,UAAY,cAAD,QAAX,EACE,cAAS,eAAT,GAAyB,cAAS,eAAa,GAAE,CADnD;AAN+C;AAhCL;AAE1B,sDAAC,UAAW,mBAAZ;AAChB,uBAAa;AACb,mBAAS;AAJ8F;AAA7D;AALN;AAAH;AAEjC,eAA6C;AAFZ;AAAG;AAsBG;AAAN;AAEjC,eAAmD,yCAAC,KAAD;AAFlB;AAAM;AAnsKd;AAgBL,+BAAU,aAgRX,iCAhRW,EAA4B,SAYvC,iCAZuC,CAAtC;AAhBK;AAsBI;AACC;AACD,wDAzGD,kDAyGC;AACL,mDb/BX,wDa+BW;AACI;AAET;;;AAEjB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAfiB;;;;;;;;;AAmoIkB;AAErC,UAAG,YAAQ,KAAG,KAAd;AAEE,oBAAO,OAAO,CAAC,KAAD;AACd;OAHF;AAFqC;AATD;AAEpC,UAAG,WAAO,KAAG,KAAb;AAEE,mBAAM,OAAO,CAAC,KAAD;AACb;OAHF;AAFoC;AA/CG;AAEvC,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb,YAAY,cAAD,QAAX,EACE,cAAS,WAAW,CAAC,IAAD,CADtB;OAHF;AAFuC;AATD;AAEtC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAFsC;AAmBC;AAEvC,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAFuC;AA3VF;AAAV;AAE3B;AAEA,eAAU;AACV,UAAK,sBAAiB,CAAC,OAAD;AACtB,UAAY,CAAD,QAAX,EACE,SAAU,CAAC,SADb;AAN2B;AAAU;AAlQC;AAGtC;AAEA,UAAK,sBAAiB,CAAC,OAAD;AACtB,UAAY,CAAD,QAAX,EACE,CAAC,WAAC,CAAW,KAAX,CADJ;AANsC;AA4QC;AAAZ;AAG3B;AAEA,eAAU;AACV,UAAK,sBAAiB,CAAC,OAAD;AACtB,UAAY,CAAD,QAAX,EACE,SAAU,CAAC,WADb;AAP2B;AAAY;AAkBI;AAAhB;AAG3B;AAEA,eAAU;AACV,UAAK,sBAAiB,CAAC,OAAD;AACtB,UAAY,CAAD,QAAX;AAEE,YAAG,MAAH;AACE,mBAAU,CAAC;AAEX,uBAAU,CAAC;OALf;AAP2B;AAAgB;AAgBI;AAApB;AAG3B;AAEA,eAAU;AACV,UAAK,sBAAiB,CAAC,OAAD;AACtB,UAAY,CAAD,QAAX;AAEE,YAAG,MAAH;AACE,mBAAU,CAAC;AAEX,uBAAU,CAAC;OALf;AAP2B;AAAoB;AAgBL;AAAf;AAG3B;AAEA,eAAU;AACV,UAAK,sBAAiB,CAAC,OAAD;AACtB,UAAY,CAAD,QAAX;AAEE,YAAG,MAAH;AACE,mBAAU,CAAC;AAEX,uBAAU,CAAC;OALf;AAP2B;AAAe;AAgBI;AAAnB;AAG3B;AAEA,eAAU;AACV,UAAK,sBAAiB,CAAC,OAAD;AACtB,UAAY,CAAD,QAAX;AAEE,YAAG,MAAH;AACE,mBAAU,CAAC;AAEX,uBAAU,CAAC;OALf;AAP2B;AAAmB;AAoFZ;AAAP;AAE3B;AAEA,eAAU;AACV,UAAK,sBAAiB,CAAC,OAAD;AACtB,UAAY,CAAD,QAAX,EACE,SAAU,CAAC,MADb;AAN2B;AAAO;AA/YM;AAGxC;AAEA,UAAK,sBAAiB,CAAC,OAAD;AACtB,UAAY,CAAD,QAAX,EACE,CAAC,aAAC,CAAa,KAAb,CADJ;AANwC;AAqCI;AAG5C;AAEA,UAAK,sBAAiB,CAAC,OAAD;AACtB,UAAY,CAAD,QAAX;AAEE,YAAG,MAAH;AACE,WAAC,oBAAmB,OAAO,CAAC,KAAD;AAE3B,cAAA,CAAC,eAAc,OAAO,CAAC,KAAD;OAL1B;AAN4C;AAeI;AAGhD;AAEA,UAAK,sBAAiB,CAAC,OAAD;AACtB,UAAY,CAAD,QAAX;AAEE,YAAG,MAAH;AACE,WAAC,0BAAC,CAA0B,KAA1B;AAEA,cAAF,CAAC,qBAAC,CAAqB,KAArB;OALN;AANgD;AAiCL;AAG3C;AAEA,UAAK,sBAAiB,CAAC,OAAD;AACtB,UAAY,CAAD,QAAX;AAEE,YAAG,MAAH;AACE,WAAC,mBAAkB,OAAO,CAAC,KAAD;AAE1B,cAAA,CAAC,cAAa,OAAO,CAAC,KAAD;OALzB;AAN2C;AAeI;AAG/C;AAEA,UAAK,sBAAiB,CAAC,OAAD;AACtB,UAAY,CAAD,QAAX;AAEE,YAAG,MAAH;AACE,WAAC,yBAAC,CAAyB,KAAzB;AAEA,cAAF,CAAC,oBAAC,CAAoB,KAApB;OALN;AAN+C;AAeZ;AAEnC;AAEA,UAAK,sBAAiB,CAAC,OAAD;AACtB,UAAY,CAAD,QAAX,EACE,CAAC,QAAC,CAAQ,KAAR,CADJ;AALmC;AAuRW;AAAnB;AAE3B,eAAU,sCAAY,UAAU,CAAC,YAAI,CAAC,OAAD,CAAL;AAFL;AAAmB;AAuPR;AAEtC;AAEA,UAAK;AACL,UAAY,CAAD,QAAX;AAEE,YAAG,cAAS,eAAZ;AACE,WAAC,WAAW,CAAC,iBAAD;AAEZ,cAAA,CAAC;OALL;AALsC;AAxOM;AAAjB;AAG3B;AAEA,eAAU;AACV,UAAY,CAAR,OAAQ,IAAG,CAAH,CAAM,IAAa,CAAR,OAAQ,IAAgB,CAAb,YAAM,SAAC,EAAM,GAAE,CAAF,CAAhB,CAA/B;AAEE,iBAAU,YAAM,WAAC,OAAD;AAChB;OAHF;AAMA,oBAAS,iBAAT,GAA6B;AAC7B,eAAS,QAAK,gCAAd;AAAI;AAEF,YAAG,CAAE,GAAe,CAAb,YAAM,SAAC,EAAM,GAAE,CAAF,CAApB,EACE,SAAU,YAAM,QADlB;;AAGF,oBAAS,iBAAT,GAA6B;AAlBF;AAAiB;AAxNN;AAAX;AAE3B,eAAU,yBAAoB,QAAC,YAAM,CAAC,eAAW,IAAZ,CAAN;AAFJ;AAAW;AAKK;AAAhB;AAE3B,eAAU,8BAAyB,QAAC,YAAM,CAAC,eAAW,IAAZ,CAAN;AAFT;AAAgB;AA6YP;;AAEZ;AAEtB;AAEA,iBAAS,QAAkB,OAAb,MAAM,SAAC,EAAM,GAAE,CAAF,kBAA3B;AAAI;AAEF,yBAAS,mBAAmB,CAAC,MAAM,WAAC,CAAD,CAAP;AAC5B,wBAAc,CAAC,MAAM,WAAC,CAAD,CAAG,OAAV;;AAPM;AAYxB;AACA,UAAY,cAAD,QAAX;AAEE,YAAG,cAAS,eAAZ;AAEE,wBAAS,mBAAmB,CAAC,MApxH4C,IAoxH7C;AAC5B,wBAAS,mBAAmB,CAAC,KAAD;AAC5B,wBAAc,CAAC,WAAD;SAGd,MAAA,cAAS;OATb;AAfoC;AA4DK;AAEzC;AAFyC;AA7FN;AAAR;AAE3B,eAAU;AAFiB;AAAQ;AApMC;AAAT;AAE3B,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,cAAc,CAAC,IAAD,CADnC;AAH2B;AAAS;AA1GI;AAAb;AAE3B,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,kBAAkB,CAAC,IAAD,CADvC;AAH2B;AAAa;AAiHF;AAAX;AAE3B,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,gBAAgB,CAAC,IAAD,CADrC;AAH2B;AAAW;AA5BJ;AAAP;AAE3B,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,YAAY,CAAC,IAAD,CADjC;AAH2B;AAAO;AAmCS;AAAhB;AAE3B,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,qBAAqB,CAAC,KAAM,KAAP,CAD1C;AAH2B;AAAgB;AA5BJ;AAAZ;AAE3B,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,iBAAiB,CAAC,KAAM,KAAP,CADtC;AAH2B;AAAY;AAOE;AAAd;AAE3B,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,mBAAmB,CAAC,IAAD,CADxC;AAH2B;AAAc;AA4BI;AAAlB;AAE3B,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,uBAAuB,CAAC,IAAD,CAD5C;AAH2B;AAAkB;AAxDL;AAAb;AAE3B,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,kBAAkB,CAAC,IAAD,CADvC;AAH2B;AAAa;AAOD;AAAZ;AAE3B,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,iBAAiB,CAAC,IAAD,CADtC;AAH2B;AAAY;AAnahC,kBAAG;AAF6B;AAAZ;AAI3B;AACA;AAEA,UAAG,CAAY,CAAC,cAAD,SAAf,EACE,aADF;AAGA,WAAM;AACN,eAAU;AACV,eAAS,QAAc,OAAT,EAAE,OAAO,GAAE,CAAF,kBAAvB;AAAI;AACF,iBAAU,MAAO,GAAE,OAAF;;AAEnB,eAAS,SAA2B,QAAtB,cAAS,aAAa,GAAE,CAAF,qBAApC;AAAI;AAEF,YAAG,SAAH;AAEE,cAAG,CAAE,KAAwB,CAAtB,cAAS,aAAa,GAAE,CAAF,CAA7B;AACE,qBAAU,MAAO,GAAE,wBAAmB,CAAC,CAAD,CAArB;AAEjB,yBAAU,MAA+B,GAAtB,wBAAmB,CAAC,CAAD,CAArB,GAAyB,KAAD;;AAI3C,cAAG,CAAE,KAAwB,CAAtB,cAAS,aAAa,GAAE,CAAF,CAA7B;AACE,qBAAU,MAAO,GAAE,YAAI,CAAC,CAAD,CAAN;AAEjB,yBAAU,MAAgB,GAAP,YAAI,CAAC,CAAD,CAAN,GAAU,KAAD;;;AAIhC,UAAG,CAAI,SAAP,EACE,SAAU,MAAO,GAAE,KADrB;AAGA,eAAS,SAA2B,QAAtB,cAAS,aAAa,GAAE,CAAF,qBAApC;AAAI;AAEF,YAAG,CAAI,SAAP;AAEE,mBAAU,MAA0C,GAAjC,qBAAQ,CAAS,iBAAU,CAAC,CAAD,CAAnB,CAAV,GAAqC,GAAF;AACpD,mBAAU,MAA+B,GAAtB,sBAAS,CAAC,eAAO,CAAC,CAAD,E/FjsHS,K+FisHjB,CAAX,GAA0B,GAAF;AACzC,mBAAU,MAAqC,GAA5B,wBAAiB,CAAC,EAAG,KAAJ,CAAnB,GAAgC,GAAF;AAC/C,mBAAU,MAAoC,GAA3B,wBAAiB,CAAC,EAAG,IAAJ,CAAnB,GAA+B,GAAF;AAC9C,mBAAU,MAAsC,GAA7B,yBAAkB,CAAC,EAAG,KAAJ,CAApB,GAAiC,GAAF;AAChD,mBAAU,MAAqC,GAA5B,yBAAkB,CAAC,EAAG,IAAJ,CAApB,GAAgC,GAAF;AAC/C,mBAAU,MAAkE,GAAzD,sCAAY,mBAAmB,CAAC,oBAAa,CAAC,EAAG,KAAJ,CAAd,CAAjC,GAA6D,GAAF;AAC5E,mBAAU,MAAiE,GAAxD,sCAAY,mBAAmB,CAAC,oBAAa,CAAC,EAAG,IAAJ,CAAd,CAAjC,GAA4D,GAAF;AAC3E,mBAAU,MAAmE,GAA1D,sCAAY,mBAAmB,CAAC,qBAAc,CAAC,EAAG,KAAJ,CAAf,CAAjC,GAA8D,GAAF;AAC7E,cAAG,CAAE,KAAe,CAAb,YAAM,SAAC,EAAM,GAAE,CAAF,CAApB;AACE,qBAAU,MAAO,GAAE,sCAAY,mBAAmB,CAAC,qBAAc,CAAC,EAAG,IAAJ,CAAf,CAAjC;AAEjB,yBAAU,MAAkE,GAAzD,sCAAY,mBAAmB,CAAC,qBAAc,CAAC,EAAG,IAAJ,CAAf,CAAjC,GAA6D,GAAF;SAdhF;;AAkBF,UAAG,CAAI,SAAP;AAEE,iBAAU,MAAO,GAAE,KAAF;AACjB,iBAAU,MAA6B,GAApB,sBAAS,CAAC,e/FntHkB,K+FmtHnB,CAAX,GAAwB,KAAF;AACvC,iBAAU,MAAO,GAAE,sBAAS,CAAC,c/FptHkB,K+FotHnB,CAAX;OAJnB;AAxD2B;AAAY;AAigBG;AAE1C;AAAG;AACH;AACA;AAAG;AACH;AACA;AACA;AACA;AAEA,UAAK,uBAAW,QAAC;AACjB;AACE,aAAM;AACN,eAAM,EAAG,KAAG,EAAZ;AAEE,eAAM,cAAG,CAAC,MAAO,EAAR;AACT,cAAG,EAAG,KAAE,CAAR;AAEE,aAAC,IAAI,CAAC,EAAD;AACL;WAHF;AAKA,kBAAS,eAAI,CAAC,GAAI,EAAG,EAAG,GAAE,CAAb;AACb,WAAC,IAAI,CAAC,KAAD;AACL,2BAAM,CAAC;;;;eAAI,EAAM,CAAH,EAAG,GAAE,CAAF,CAAI,GAAS,KAAD,OAAvB;;AAGR,iBAAS,QAAa,OAAR,CAAC,SAAC,EAAM,GAAE,CAAF,kBAAtB;AAAI;AAEF,cAAG,CAAC,KAAC,CAAD,CAAI,KAAG,EAAX;AAEE,gBAAG,CAAE,KAAE,CAAP;AAEE,kBAAK,uBAAW,QAAC;AACjB;AACE,qBAAM,CAAC,KAAC,CAAD;AACP,uBAAM,EAAG,KAAG,EAAZ;AAEE,uBAAM,cAAG,CAAC,MAAO,EAAR;AACT,sBAAG,EAAG,KAAE,CAAR;AAEE,qBAAC,IAAI,CAAC,EAAD;AACL;mBAHF;AAKA,0BAAS,eAAI,CAAC,GAAI,EAAG,EAAG,GAAE,CAAb;AACb,mBAAC,IAAI,CAAC,KAAD;AACL,mCAAM,CAAC;;;;uBAAI,EAAM,CAAH,EAAG,GAAE,CAAF,CAAI,GAAS,KAAD,OAAvB;;AAGR,yBAAS,SAAa,QAAR,CAAC,SAAC,EAAM,GAAE,CAAF,qBAAtB;AAAI;AAEF,sBAAG,CAAC,KAAC,CAAD,CAAI,KAAG,EAAX,EACE,YAAI,CAAC,EAAM,CAAC,KAAC,CAAD,CAAR,CADN;;AAjBJ;AAqBE,iBAAE,eAAF,CAAE;AArBJ;aAwBG,UAAG,CAAE,KAAE,CAAP;AAEH,kBAAK,uBAAW,QAAC;AACjB;AACE,sDAAY,MAAM,CAAC,IAAK,CAAC,KAAC,CAAD,EAAK,EjBv0IsF,KiBu0IlG;AAClB,yBAAS,SAAa,QAAR,CAAC,SAAC,EAAM,GAAE,CAAF,qBAAtB;AAAI;AAEF,sBAAK,uBAAW,QAAC;AACjB;AACE,0DAAY,MAAM,CAAC,IAAK,CAAC,KAAC,CAAD,EAAK,EjB50IkF,KiB40I9F;AAClB,6BAAS,SAAa,QAAR,CAAC,SAAC,EAAM,GAAE,CAAF,qBAAtB;AAAI;AAEF,0BAAG,CAAC,KAAC,CAAD,CAAI,KAAG,EAAX;AAEE,4BAAG,CAAE,KAAE,CAAP;AACE,2CAAU,CAAC,EAAmC,qBAAQ,CAAC,CAAC,KAAC,CAAD,CAAF,CAA5C;AACP,kCAAG,CAAE,KAAE,CAAP;AACH,yCAAO,CAAC,EAAM,sBAAS,CAAC,CAAC,KAAC,CAAD,CAAF,CAAhB;AACJ,kCAAG,CAAE,KAAE,CAAP;AACH,kDAAiB,CAAC,EAAG,MAAU,CAAC,KAAC,CAAD,CAAf;AACd,kCAAG,CAAE,KAAE,CAAP;AACH,kDAAiB,CAAC,EAAG,KAAS,CAAC,KAAC,CAAD,CAAd;AACd,kCAAG,CAAE,KAAE,CAAP;AACH,mDAAkB,CAAC,EAAG,MAAU,CAAC,KAAC,CAAD,CAAf;AACf,kCAAG,CAAE,KAAE,CAAP;AACH,mDAAkB,CAAC,EAAG,KAAS,CAAC,KAAC,CAAD,CAAd;AACf,kCAAM,CAAF,CAAE,KAAE,CAAF,CAA2B,IAAhB,CAAF,CAAE,KAAE,CAAF,CAAN,IAAiB,CAAF,CAAE,KAAE,CAAF,CAAN,IAAiB,CAAF,CAAE,KAAE,CAAF,CAAvC;AAEH,8BAAG,CAAE,KAAE,CAAP;AACE,kEAAY,qBAAqB,CAAC,CAAC,KAAC,CAAD,EAAK,oBAAa,CAAC,EAAG,KAAJ,CAApB;AAC9B,oCAAG,CAAE,KAAE,CAAP;AACH,kEAAY,qBAAqB,CAAC,CAAC,KAAC,CAAD,EAAK,oBAAa,CAAC,EAAG,IAAJ,CAApB;AAC9B,oCAAG,CAAE,KAAE,CAAP;AACH,kEAAY,qBAAqB,CAAC,CAAC,KAAC,CAAD,EAAK,qBAAc,CAAC,EAAG,KAAJ,CAArB;AAEjC,gCAAA,sCAAY,qBAAqB,CAAC,CAAC,KAAC,CAAD,EAAK,qBAAc,CAAC,EAAG,IAAJ,CAArB;yBAThC;uBAdP;;AAJJ;AAgCE,qBAAE,eAAF,CAAE;AAhCJ;;AALJ;AAyCE,iBAAE,eAAF,CAAE;AAzCJ;aA4CG,UAAG,CAAE,KAAE,CAAP;AACH,+BAAY,sBAAS,CAAC,CAAC,KAAC,CAAD,CAAF,CAArB;AACG,sBAAG,CAAE,KAAE,CAAP,EACH,gBAAW,sBAAS,CAAC,CAAC,KAAC,CAAD,CAAF,CAApB,CADG;WA9EP;;AAjBJ;AAoGE,SAAE,eAAF,CAAE;AApGJ;AAX0C;AA+HA;AAE1C,iBAAK;AAFqC;AApUR;AAElC,UAAY,cAAD,QAAX,EACE,cAAS,WAAW,CAAC,KAAM,QAAP,CADtB;AAFkC;AAlEE;AAEpC,UAAY,cAAD,QAAX,EACE,cAAS,aAAa,CAAC,KAAM,QAAP,CADxB;AAFoC;AAgYF;AAElC,UAAY,cAAD,QAAX,EACE,cAAS,SAAS,CAAC,KAAM,aAAc,MAArB,CADpB;AAFkC;AANA;AAElC,UAAY,cAAD,QAAX,EACE,cAAS,SAAS,CAAC,KAAM,aAAc,MAArB,CADpB;AAFkC;AAraO;AAGzC;AAEA,eAAS,QAAyB,OAAd,WAAC,WAAD,CAAc,GAAE,CAAF,kBAAlC;AAAI;AACF,oBAAI,CAAC,EAAM,WAAW,CAAC,CAAD,CAAlB;;AANmC;AArIC;AAG1C;AAEA,eAAS,QAA0B,OAAf,WAAC,YAAD,CAAe,GAAE,CAAF,kBAAnC;AAAI;AACF,uBAAO,CAAC,EAAM,YAAY,CAAC,CAAD,CAAnB;;AANiC;AAmBD;AAGzC;AAEA,eAAS,QAAyB,OAAd,WAAC,WAAD,CAAc,GAAE,CAAF,kBAAlC;AAAI;AACF,yBAAU,CAAC,EAAM,WAAW,CAAC,CAAD,CAAlB;;AAN6B;AAkBI;AAG7C;AAEA,eAAS,QAAoB,OAAT,WAAC,MAAD,CAAS,GAAE,CAAF,kBAA7B;AAAI;AACF,6BAAc,CAAC,EAAG,OAAW,MAAM,CAAC,CAAD,CAArB;;AAN6B;AAgDD;AAG5C;AAEA,eAAS,QAAoB,OAAT,WAAC,MAAD,CAAS,GAAE,CAAF,kBAA7B;AAAI;AACF,4BAAa,CAAC,EAAG,OAAW,MAAM,CAAC,CAAD,CAArB;;AAN6B;AAzDK;AAGjD;AAEA,eAAS,QAAwB,OAAb,WAAC,UAAD,CAAa,GAAE,CAAF,kBAAjC;AAAI;AACF,iCAAkB,CAAC,EAAG,OAAW,UAAU,CAAC,CAAD,CAAzB;;AAN6B;AAgDD;AAGhD;AAEA,eAAS,QAAwB,OAAb,WAAC,UAAD,CAAa,GAAE,CAAF,kBAAjC;AAAI;AACF,gCAAiB,CAAC,EAAG,OAAW,UAAU,CAAC,CAAD,CAAzB;;AAN6B;AA0GZ;AAEpC;AACA,UAAY,gBAAD,QAAX,EACE,iBAAyB,OAAX,iBAAc,yBAAH,CAAwB,WADnD;AAEA,qBAAW;AAEX,uBAAa;AACb,uBAAa;AACb,sBAAY;AACZ,oBAAU;AACV,UAAY,cAAD,QAAX;AAEE,YAAG,cAAS,eAAZ;AACE,wBAAS,mBAAmB,CAAC,IAAD;AAE5B,cAAA,cAAS;OALb;AAX+D;AAA3B;AA8BA;AAEpC;AAEA,QAAE,SAAF,GAAe,CAAC;AAChB,QAAE,MAAF,GAAY;AACZ,QAAE,WAAF,GAAiB,CAAC;AAClB,UAAY,cAAD,QAAX;AAEE,YAAG,cAAS,eAAe,IAAI,CAA+B,CAA1B,cAAS,iBAAiB,GAAE,CAAF,CAA9D,EACE,WAAM,cAAS,mBAAmB,CAAC,KAAM,KAAP,CAAlC,CADF;OAFF;AAKA,0BAAgB;AAEhB,UAAY,cAAD,QAAX,EACE,cAAS,iBAAT,GAA6B,cAAS,iBAAiB,GAAE,CAD3D;AAEO,eAAP,KAAO;AACP,UAAY,cAAD,QAAX,EACE,cAAS,iBAAT,GAA6B,cAAS,iBAAiB,GAAE,CAD3D;AAEQ,eAAR,KAAQ;AAER;AAEA,UAAI,EAAE,SAAU,KAAG,CAAC,CAApB,EACE,cAAS,oBAAoB,CAAC,oDAAD,CAD/B;AAGA,UAAY,cAAD,QAAX,EACE,cAAS,sBADX;AA1BoC;AAzDF;AAElC,UAAa,wBAAH,eAAP,MAAO,CAAV;AAEE,oBAAgB,OAAP,OAAU,wBAAH,CAAuB;AACvC,oBAAO,OAAO,CAAS,OAAP,OAAU,wBAAH,CAAuB,QAAhC;AACd,yBAAqB,OAAP,OAAU,wBAAH,CAAuB;AAC5C,yBAAqB,OAAP,OAAU,wBAAH,CAAuB;AAC5C,wBAAoB,OAAP,OAAU,wBAAH,CAAuB;AAC3C,mBAAM,OAAO,CAAS,OAAP,OAAU,wBAAH,CAAuB,OAAhC;AACb,uBAAU,CAAC,MAAD;AACV,YAAY,cAAD,QAAX;AAEE,cAAG,cAAH;AACE,0BAAS,WAAW,CAAC,KAvxG4C,KAuxG7C;AAEpB,gBAAA,cAAS,aAAa,CAAC,KA/wG4C,KA+wG7C;SAL1B;OATF;AAFkC;AAbI;AAEtC,UAAa,wBAAH,eAAP,MAAO,CAAV;AAEE,2BAAuB,OAAP,OAAU,wBAAH,CAAuB;AAC9C,4BAAwB,OAAP,OAAU,wBAAH,CAAuB;AAC/C,2BAAuB,OAAP,OAAU,wBAAH,CAAuB;AAC9C,4BAAwB,OAAP,OAAU,wBAAH,CAAuB;AAC/C,4BAAwB,OAAP,OAAU,wBAAH,CAAuB;AAC/C,sBAAkB,OAAP,OAAU,wBAAH,CAAuB;OAP3C;AAFsC;AAhpHnB;AA8EC,+BAAY,e1FrLrB,gC0FqLqB,CAAZ;AAoBH,8BA9HQ,wCA8HR;AACE;AACD;AACC;AACL;AACE,6BAII,mCAJJ;AAvGG;AA2GC;;;AAMlB;AACA;AAPkB;;;;;;AA+lIe;AAAP;AAE5B,eAAwC,YAAK,CAAC,KAAD;AAFjB;AAAO;AA6FC;AAG1B,kBAAK,CAAC,MAAU,KAAX;AAHqB;AAxFI;AAAZ;AAE5B,eAAU;AAFkB;AAAY;AAzCL;AAAP;AAG5B;AAEA,eAAU;AAEV,WAAM;AACN,UAAG,CAAY,CAAC,EAAD,SAAf,EACE,aADF;AAGA,UAAG,CAAI,cAAP;AACE,iBAAU,2BAAc,CAAC,sBAAS,CAAC,MAAM,oBAAiB,CAAC,OAAD,CAAxB,EAAoC,sBAAS,CAAC,MAAM,oBAAiB,CAAC,OAAD,CAAxB,CAAvD;AAExB,qBAAU,2BAAc,CAAC,MAAM,oBAAiB,CAAC,OAAD,EAAW,MAAM,oBAAiB,CAAC,OAAD,CAA1D;AAErB;AACH,UADG,IACH,sDAAe,SAAU,MAAO,GAAE,CAAC,CAAnC;AAGF,QAAE,cAAc,CAAC,OAAQ,OAAQ,QAAS;;;;UAA1B;AApBY;AAAO;AAwDG;;AAEtC;AAAG;AAAG;AAEN;AAEuB;AAGrB;AAMA,eAAQ,QAAQ,IAAM,CAAC,MAAD;AACtB,gBAAQ,IAAM,CAAC,OAAW,QAAQ,IAAM,CAAC,MAAD,CAA1B;AACd,gBAAQ,IAAM,CAAC,OAAW,IAAZ;AAXO;AAiCvB,iBAAY,KAAI;AAGhB;AACE,YAAK;AACL,YAAK;AACL,YAAQ,CAAF,CAAE,GAAE,CAAF,CAAK,KAAI,CAAJ;AACb;AACE,iBAAM,YAAO,CAAC,cAAK,CAAC,CAAD,EAAK,cAAK,CAAC,CAAD,EAAK,QAAS,eAAgB,YAA9C,CAA4D,GAAE,CAA3E,EACM,CAAJ,IAAG;AACL,iBAAM,YAAO,CAAC,cAAK,CAAC,CAAD,EAAK,cAAK,CAAC,CAAD,EAAK,QAAS,eAAgB,YAA9C,CAA4D,GAAE,CAA3E,EACM,CAAJ,IAAG;AACL,cAAG,CAAE,IAAG,CAAR;AAEE,yBAAa,CAAC,EAAG,CAAJ;AACb,gBAAG,CAAE,KAAE,CAAP;AACE,kBAAK;AACF,sBAAG,CAAE,KAAE,CAAP,EACH,IAAK,CADF;AAED,aAAJ,IAAG;AACC,aAAJ,IAAG;WARL;SALF,QAeQ,EAAF,CAAE,GAAE,CAAF,CAfR;AAgBA,YAAG,CAAE,GAAE,CAAP,EACE,cAAS,CAAC,EAAG,EAAG,QAAS,eAAgB,YAAhC,CADX;AAEA,YAAK;OAtBP,QAuBQ,EAAF,CAAE,IAAG,CAAH,CAvBR;AA1CsC;AAoEF;AAAR;AAE5B,eAAU;AAFkB;AAAQ;AAzEJ;AAAJ;AAE5B,eAAU;AAFkB;AAAI;AA5BK;AAErB,sDAAC,UAAW,mBAAZ;AAChB,uBAAa;AACb,mBAAS;AAJyF;AAA7D;AAOA;AAErC,mBAAS;AACT;AAHqC;AAnCN;AAAH;AAE5B,eAAwC;AAFZ;AAAG;AAmDG;AAAN;AAE5B,eAA8C,yCAAC,KAAD;AAFlB;AAAM;AAyFD;AAGjC;AACA;AAEA,WAAM;AACN,UAAY,EAAD,QAAX;AAEE,UAAE,UAAF,GAAgB;AAChB,UAAE;AACF,YAAG,cAAH,EACE,EAAE,gBADJ;AAEA;AACA,YAAG,eAAM,GAAE,CAAX;AAEE,wBAAS,CAAC,EAAQ,eAAD,KAAS,QAAS,eAAgB,YAA1C;AACT,cAAG,QAAH;AAEE,qBAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AACF,kBAAI,WAAC,CAAD,CAAG,OAAM,OAAK,CAAC,QAAS,SAAU,eAAgB,aAAc,cAAlD;;WAHtB;SAHF;AASA;AACA,UAAE;OAjBJ;AAPiC;AAlsIb;AAiBA,+BAAU,aAwIX,iCAxIW,EAA4B,SA5HvC,iCA4HuC,CAAtC;AAjBA;AAyBA;;;AAElB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AApBkB;;;;;;;;;;;;AAsvGgB;AAEpC,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACT;OAHF;AAFoC;AAzEO;AAE3C,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;AAChB;OAHF;AAF2C;AASF;AAEzC,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd;OAHF;AAFyC;AAwDL;AAEpC,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;OAFX;AAFoC;AAlCM;AAE1C,UAAG,gBAAY,KAAG,KAAlB,EACE,gBAAW,OAAO,CAAC,KAAD,CADpB;AAF0C;AAPE;AAG5C,UAAG,kBAAc,KAAG,KAApB,EACE,kBAAa,OAAO,CAAC,KAAD,CADtB;AAH4C;AAmCL;AAEvC,UAAG,aAAS,KAAG,KAAf,EACE,aAAQ,OAAO,CAAC,KAAD,CADjB;AAFuC;AAhBE;AAGzC,UAAG,eAAW,KAAG,KAAjB,EACE,eAAU,OAAO,CAAC,KAAD,CADnB;AAHyC;AAzBC;AAE1C,UAAG,gBAAY,KAAG,KAAlB,EACE,gBAAW,OAAO,CAAC,KAAD,CADpB;AAF0C;AAmBH;AAEvC,UAAG,aAAS,KAAG,KAAf,EACE,aAAQ,OAAO,CAAC,KAAD,CADjB;AAFuC;AAaa;AAEpD,UAAG,0BAAsB,KAAG,KAA5B;AAEE,qCAAyB;AACzB,sBAAO,CAAC,IAAD;OAHT;AAFoD;AAgCZ;AAExC;AAEA,UAAK;AACL,UAAY,CAAD,QAAX;AAEE,SAAC;AACD,SAAC;OAHH;AALwC;AApKJ;AAEpC;AAFoC;AA6EA;AAAR;AAE5B,eAAU;AAFkB;AAAQ;AAxEC;AAErC;AAEA;AACA,UAAY,gBAAD,QAAX;AAEE,yBAAyB,OAAX,iBAAc,0BAAH,CAAyB;AAClD,qBAAS,oBAAe,CAAC,0CAAD,CAA6B,GAAJ,GAAF,GAAQ,qBAAQ,CAAC,cAAS,QAAO,SAAC,EAAM,GAAE,CAA1B,CAAV;AACrD,YAAG,cAAS,QAAO,SAAC,EAAM,GAAE,CAA5B;AAEE,8BAAgB;AAChB,4BAAc;;AAId,gBAAO,cAAS,QAAO,WAAC,cAAS,QAAO,SAAC,EAAM,GAAE,CAA1B;AACvB,8BAAgB,GAAG,aAAa,GAAE,CAAF;AAChC,4BAAc;;OAblB;AAiBA,mCAAyB;AAEzB,yBAAe,qDAAmB,QAAC,YAAM,CAAC,kEAAS,SZ9jGwG,QAAmD,GAAqD,EY8jG1N,CAAN;AACnC,2BAAiB,uDAAqB,QAAC,YAAM,CAAC,qEAAU,QAAX,CAAN;AACvC,sBAAY,qDAAmB,QAAC,YAAM,CAAC,kEAAS,SZhkG2G,QAAmD,GAAqD,EYgkG7N,CAAN;AAChC,wBAAc,uDAAqB,QAAC,YAAM,CAAC,qEAAU,OAAX,CAAN;AAEpC,sBAAY,qDAAmB,QAAC;AAChC,yBAAe,qDAAmB,QAAC;AAEnC,sBAAW,WAAX,GAA0B;AAC1B,mBAAQ,WAAR,GAAuB;AACvB,wBAAa,WAAb,GAA4B;AAC5B,qBAAU,WAAV,GAAyB;AAOzB,mBAAQ,UAAR,GAAsB;AACtB,sBAAW,UAAX,GAAyB;AAGzB;AA9CgE;AAA3B;AAiDA;AAE5B,eAAT,KAAS;AACE,eAAX,KAAW;AACF,eAAT,KAAS;AACG,eAAZ,KAAY;AACE,eAAd,KAAc;AACF,eAAZ,KAAY;AACZ;AACA;AATqC;AAxEF;AAEnC,UAAa,yBAAH,eAAP,MAAO,CAAV;AAEE,oBAAgB,OAAP,OAAU,yBAAH,CAAwB;AACxC,qBAAiB,OAAP,OAAU,yBAAH,CAAwB;AACzC,4BAAwB,OAAP,OAAU,yBAAH,CAAwB;AAChD,0BAAsB,OAAP,OAAU,yBAAH,CAAwB;AAC9C,qCAAiC,OAAP,OAAU,yBAAH,CAAwB;AACzD,wBAAW,OAAO,CAAS,OAAP,OAAU,yBAAH,CAAwB,YAAjC;AAClB,wBAAW,OAAO,CAAS,OAAP,OAAU,yBAAH,CAAwB,YAAjC;AAClB,0BAAa,OAAO,CAAS,OAAP,OAAU,yBAAH,CAAwB,cAAjC;AACpB,qBAAQ,OAAO,CAAS,OAAP,OAAU,yBAAH,CAAwB,SAAjC;AACf,uBAAU,OAAO,CAAS,OAAP,OAAU,yBAAH,CAAwB,WAAjC;AACjB,qBAAQ,OAAO,CAAS,OAAP,OAAU,yBAAH,CAAwB,SAAjC;OAZjB;AAFmC;AAoFA;AAAP;AAE5B,eAAW;AACX,UAAG,MAAO,KAAE,EAAZ;AAEE,iBAAU;AACV,YAAG,MAAO,KAAE,EAAZ,EACE,SAAU,oBAAe,CAAC,0CAAD,CAA6B,GAAJ,GAAF,GAAQ,qBAAQ,CAAC,eAAD,CADlE;OAHF;AAH4B;AAAO;AA7pGf;AAqCA,+BAAY,e1FhRrB,gC0FgRqB,CAAZ;AAWL;AACA;AACO;AACF;AACN;AACiB;AAEb,+BZYC,+DYZD;AACE,iCZuJC,iEYvJD;AACF,+BZsCC,+DYtCD;AAEG,kCZQF,+DYRE;AACE,oCZmJF,iEYnJE;AACF,kCZkCF,+DYlCE;AA7DD;AAiEC;;;AAMnB;AANmB;;;;;AAutGe;AAAP;AAE7B,eAAyC,YAAK,CAAC,KAAD;AAFjB;AAAO;AAoBC;AAG3B,kBAAK,CAAC,MAAU,KAAX;AAHsB;AAfI;AAAZ;AAE7B,eAAU;AAFmB;AAAY;AAUJ;AAAR;AAE7B,eAAU;AAFmB;AAAQ;AArBC;AAEtB,sDAAC,UAAW,mBAAZ;AAChB,uBAAa;AAH0D;AAAjC;AALN;AAAH;AAE7B,eAAyC;AAFZ;AAAG;AAqBG;AAAN;AAE7B,eAA+C,yCAAC,KAAD;AAFlB;AAAM;AAjuGd;AAaD,+BAAU,aAkDX,iCAlDW,CAAV;AAbC;AAmBM;;AAEC;AAw2Ke;AAAP;AAEpC,eAA+C,YAAK,CAAC,KAAD;AAFhB;AAAO;AAKC;AAElC,kBAAK,CAAC,MAAU,KAAX;AAF6B;AA72KhB;AAOD;AA22Ke;AAAP;AAEnC,eAAoC,cAAW,QAAK,CAAC,KAAD,CAAhB;AAFD;AAAO;AAKC;AAEjC,cAAK,CAAC,MAAU,KAAX;AAF4B;AAh3KhB;AAaA;AACzB;AACA;AAFyB;aACzB,oCACA;AAFyB;;AACzB;AACA;AAFyB;;;AACzB;AACA;AAFyB;AASC;AA+1Ke;AAAP;AAEpC,qBAAqC,cAAW,QAAK,CAAC,KAAD,CAAhB,CAArC;AAFoC;AAAO;AAKC;AAElC,cAAK,CAAC,MAAU,KAAX;AAF6B;AAp2KhB;AAaT;;;AAMjB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAhBiB;;;;;;;;;;;;AAk8FmB;AAEtC,mBAAQ,OAAO,CAAC,KAAD;AAFuB;AAxZD;AAErC,kBAAO,OAAO,CAAC,KAAD;AAFuB;AAKD;AAEpC,iBAAM,OAAO,CAAC,KAAD;AAFuB;AAz2CS;AAAlB;AAE3B,eAAU;AAFiB;AAAkB;AAqvDC;AAG9C,8BAAoB;AACpB;AAJ8C;AA31DN;AAGxC;AACA,UAAe,CAAX,UAAW,KAAE,qBAAF,CAAoB,IAAe,CAAV,SAAU,KAAE,+BAAF,CAAlD,EACE,wBAAoB,IADtB;AAJwC;AAlPA;AAAb;AAE3B,eAAU,2BAAsB,QAAC,YAAM,CAAC,IAAD,CAAN;AAFN;AAAa;AApWD;AAAZ;AAE3B,eAAU,0BAAqB,QAAC,YAAM,CAAC,IAAD,CAAN;AAFL;AAAY;AAyVD;AAAX;AAE3B,eAAU,yBAAoB,QAAC,YAAM,CAAC,KAAM,IAAP,CAAN;AAFJ;AAAW;AA0ZM;AAAjB;AAG3B;AACA;AACA;AACA;AAEA,eAAU,CAAC;AACX,UAAG,CAAY,CAAC,KAAD,SAAf,EACE,aADF;AAGA,UAAI,KAAK,KAAK,KAAE,CAAhB;AAEE,iBAAU;AACV;OAHF;AAMA,UAAG,OAAH;AACE,eAAQ,6BAAwB,CAAC,KAAK,KAAK,GAAE,CAAb;AAEhC,mBAAQ,6BAAwB,CAAC,KAAK,KAAN;AAElC,UAAG,KAAH;AAEE,eAAc,CAAC,IAAD,SAAkC,IAAN,CAAhB,IAAI,YAAY,IAAG,CAAH,CAArB,IAAgD,CAAhB,IAAI,YAAY,IAAuB,CAApB,mBAAa,SAAC,EAAM,GAAE,CAAF,CAAvB,CAArE;AAEE,cAAK,6BAAwB,CAAC,IAAI,YAAL;AAC7B,cAAG,CAAE,KAAG,IAAR;AACE,mBAAQ;AAER;;OARN;AAYA,UAAY,IAAD,QAAX;AAEE,iBAAS,QAAwB,OAAnB,kBAAY,SAAC,EAAM,GAAE,CAAF,kBAAjC;AAAI;AAEF,cAAG,OAAH;AACE,gBAAK,KAAK,KAAK,GAAE,CAAF;AAEf,oBAAK,KAAK;AAEZ,cAAG,kBAAY,SAAC,CAAD,CAAG,KAAK,KAAE,CAAzB;AAEE,qBAAU;AACV;WAHF;;OATJ;AAnC2B;AAAiB;AA9uBO;AAAxB;AAE3B,eAAU;AACV,UAAW,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,IAAuB,CAApB,mBAAa,SAAC,EAAM,GAAE,CAAF,CAAvB,CAA7B,EACE,SAAU,mBAAa,WAAC,MAAD,CADzB;AAH2B;AAAwB;AA+0Db;AAAX;AAE3B;AACA;AACA;AAEA,eAAU;AACV,eAAS,QAAY,OAAP,YAAO,SAAC,IAAD,gBAArB;AAAI;AAEgB,oBAAb,YAAO,UAAM,CAAC,CAAE,GAAE,CAAL;AAEhB,YAAK;AACL,0BAAa,CAAC,MAAO,cAAQ,6CAAa;;;;YAA7B;AACb,YAAK,sCAAY,UAAU,CAAC,CAAD;AAC3B,YAAK,sCAAY,YAAY,CAAC,EjBl4F8B,KAAkC,KiBk4FjE;AAC7B,YAAK,iBAAI,CAAC,CAAD;AAET,YAAG,aAAO,KAAG,EAAb,EACE,IAAG,cAAG,CAAC,cAAO,CAAR,CAAW,KAAE,CAAnB,EACE,iBAAM,CAAC;;;;aAAE,EAAS,YAAO,UAAM,CAAC,CAAE,GAAE,CAAL,CAAO,QAArB,OAAX,CAFV;AAIA,YAAG,aAAO,KAAG,EAAb,EACE,IAAG,cAAG,CAAC,cAAO,CAAR,CAAW,KAAgB,CAAZ,CAAF,CAAE,GAAS,CAAD,OAAR,CAAY,GAAS,aAAD,OAAR,CAAjC,EACE,iBAAM,CAAC;;;;aAAI,CAAF,CAAE,GAAS,CAAD,OAAR,CAAY,GAAS,aAAD,OAAR,CAAwB,CAAD,OAAxC,CAFV;AAIA;AACE,iBAAQ,sCAAY,WAAW,CAAC,iBAAU,EAAE,oBAAb;AADjC;AAGE,iBAAQ;AAHV;AAMyB,mBAApB,YAAO,UAAM,CAAC,CAAE,GAAE,CAAL,CAAO;AACvB,YADuB,IACvB;AAEE,mBAAU;AACV,cAAG,CAAI,MAAP,EACE,KADF;SAGF,UAPuB,IAOvB;AAAS,mBAAU;AACnB,kBARuB,IAQvB;AAAQ,mBAAU,MAAO,IAAI,IAAJ;AACzB,kBATuB,IASvB;AAAQ,mBAAU,MAAO,IAAG,IAAH;AACzB,kBAVuB,IAUvB,iDAAQ,SAAU,MAAO,GAAI,IAA7B;;AAzCqB;AAAW;AAtvCG;AAEzC;AACA;AAEA,UAAG,mBAAH,EACE,MADF;AAGA,yBAAc;AACd,wBAAa;AACb,UAAK,+BAA0B,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,6BAAkB;AAClB,uBAAY,CAAZ;AACA,UAAK;AACL,gCAAqB,CAAC,EAAG,OAAQ,CAAC,EAAG,CAAC,EAAG,CAAC,EAAG,KAAM;;;;UAA9B;AACrB,uBAAY,kBAAa,SAAC,EAA1B;AACA,4BAAiB,mBAAc,SAAC,EAAM,GAAE,CAAF;AAhBG;AAk9CA;AAEzC;AACA;AACA;AACA;AAEA,UAAgB,CAAZ,mBAAY,GAAE,CAAF,CAAK,IAAiB,CAAb,4CAAa,IAAG,oBAAH,CAAtC,EACE,MADF;AAGA,yBAAa;AACb,eAAS,QAAkB,OAAb,YAAM,SAAC,EAAM,GAAE,CAAF,kBAA3B;AAAI;AAEF,YAAK,YAAM,WAAC,CAAD;AACX,WAAG,YAAH,GAAmB,QAAG,CAAC,EAAG,QAAG,CAAC,CAAC,cAAc,aAAO,SAAC,EAAM,GAAE,CAAhC,CAAP;AACtB,WAAG,UAAH,GAAiB,QAAG,CAAC,EAAG,QAAG,CAAC,CAAC,YAAY,aAAO,SAAC,EAAM,GAAE,CAA9B,CAAP;AACpB,2BAAa,IAAI,CAAC,4CAAD;;AAGnB,eAAS,SAAmB,QAAd,aAAO,SAAC,EAAM,GAAE,CAAF,qBAA5B;AAAI;AAEF,YAAK,aAAO,WAAC,CAAD;AACZ,YAAG,CAAC,SAAJ;AAEE,2BAAY,CAAC,EAAM,CAAC,OAAR;AACZ,8BAAe,CAAC,EAAM,CAAC,cAAR;;AAIf,2BAAY,CAAC,EAAM,CAAP;AACZ,8BAAe,CAAC,EAAM,CAAP;;;AA9BsB;AA3kDQ;AAGjD;AACA;AACA;AACA;AACA;AACA;AACA;AAAK;AACL;AACA;AACA;AAEA,WAAK,KAAL,GAAc,mBAAc,SAAC;AAC7B,WAAK,YAAL,GAAqB;AACrB,WAAK,OAAL,GAAgB;AAChB,WAAK,OAAL,GAAgB;AAChB,UAAG,GAAI,KAAG,MAAV,EACE,uBAAkB,CAAC,KAAD,CADpB;AAGA,WAAM;AACN,UAAI,MAAO,GAAE,GAAb,EACE,uBAAkB,CAAC,MAAO;;;;UAAR,CADpB;AAGA,WAAK,UAAL,GAAmB;AAEnB,WAAK,YAAL,GAAqB;AACrB,WAAK,QAAL,GAAiB,wBAAmB,CAAC,KAAD;AAEpC,YAAO;AACP,UAAG,GAAI,KAAG,MAAV,EACE,qBAAgB,CAAC,MAAO;;;;UAAR,CADlB;AAEA,WAAK,UAAL,GAAmB;AAEnB,YAAO;AACP,2BAAgB,CAAC,MAAO;;;;UAAR;AAChB,6BAAkB,CAAC,MAAO,GAAR;AAER,WAAD,sBAAC,YAAO,CAAR;AACT,UAAG,GAAI,KAAG,MAAV;AAEE,iBAAS,QAAiB,OAAZ,iBAAY,GAAE,CAAF,kBAA1B;AAAI;AAEF,gBAAO;AACP,8BAAe,CAAC,MAAO,EAAG;;;;cAAX;AACL,eAAD,sBAAC,YAAa,WAAC,KAAD,CAAQ,GAAE,CAAxB;AACT,eAAK,CAAO,WAAC,KAAD,CAAQ,GAAE,CAAjB,CAAL,GAA4B;;AAE9B,aAAK,aAAL,GAAsB;OATxB;AAYA,UAAG,mBAAH;AACE,aAAM,gBAAW,CAAC,KAAD;AAEjB,iBAAM;AAER,UAAG,GAAI,KAAG,MAAV,EACE,oBAAe,CAAC,MAAO;;;;UAAR,CADjB;AAGA,YAAO;AAEP,UAAG,GAAI,KAAG,MAAV;AAEE,2BAAc,MAAI,CAAC,KAAD;AAClB,YAAoB,CAAhB,eAAgB,IAAgB,CAAZ,KAAK,OAAO,KAAE,CAAF,CAAhB,CAAsB,IAAI,EAA9C;AAEE,cAAG,mBAAH;AAEE,gBAAK,KAAK;AACV,gBAAK;AACL,mBAAe,CAAD,QAAd;AAEE,kBAAG,CAAI,CAAC,oBAAR;AAEY,iBAAD,sBAAC,OAAS,WAAC,CAAD,CAAI,GAAE,CAAhB;AACT,iBAAC,CAAO,WAAC,CAAD,CAAI,GAAE,CAAb,CAAD,GAAoB;eAHtB;AAKA,kBAAK,CAAC;;AAGR,qBAAmB,MAAJ,WAAC,CAAD,CAAI,GAAE,CAAF,EAAW,eAA9B;AAAI;AAEF,gCAAa,IAAI,CAAC,CAAC,CAAC,CAAD,CAAF;AACjB,eAAC,CAAC,CAAD,CAAG,oBAAJ,GAA4B;;WAjBhC;AAqBA,4BAAa,IAAI,CAAC,KAAD;AACjB,eAAK,oBAAL,GAA6B;SAxB/B;OAHF;AA+BA,eAAS,SAAQ,QAAH,EAAG,GAAE,CAAF,qBAAjB;AAAI;AAEF,YAAG,mBAAc,SAAC,EAAM,KAAE,OAA1B,EACE,KADF;AAGA,YAAK,+BAA0B,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,YAAG,GAAI,KAAE,MAAT;AACE,oCAAqB,CAAC,EAAG,GAAI,YAAa,EAAG,EAAG,IAAK;;;;cAAhC;AAErB,cAAA,0BAAqB,CAAC,EAAG,GAAI,KAAK,MAAM,EAAG,KAAK,OAAO,GAAE,CAAF,CAAK,IAAK;;;;YAA5C;;AAGzB,yBAAkB,oBAAe,GAAE,GAAnC;AAEA,UAAG,GAAI,KAAG,MAAV;AACE,aAAK,eAAL,GAAwB;AAExB,YAAA,KAAM,eAAN,KAAM;AA9GyC;AAuYH;AAG9C;AACA;AACA;AAEA,UAAY,KAAD,QAAX;AAEE,YAAK,6BAAwB,CAAC,KAAK,YAAN;AAC7B,YAAW,CAAC,CAAD,SAAI,IAAY,CAAC,CAAC,MAAF,SAA3B;AACE,gBAA4B,CAAC,MAAK;AAElC,oBAAO;OAGT;AAEF,UAAY,GAAD,QAAX;AAEE,YAAgB,CAAZ,KAAK,OAAO,IAAG,CAAH,CAAM,IAAiB,CAAZ,KAAK,OAAO,IAAa,CAAV,GAAG,SAAC,EAAM,GAAE,CAAF,CAAb,CAAvC;AAEE,eAAM,GAAG,WAAC,KAAK,OAAN;AACT,eAAK,MAAL,GAAe;AACf,YAAE,aAAF,GAAmB;SAJrB;OAFF;AAlB8C;AA6NA;AAG9C,UAAY,KAAK,MAAN,QAAX;AACE,2BAAkB,KAAK,MAAK,OAAM,SAAC,EAAnC;AAEA,+BAAkB,WAAK,SAAC,EAAxB;AAN4C;AAzrBC;;AALW;;AAUF;;AAKL;;AAskBT;;AAMD;AAGzC;AAEA,WAAM,KAAK;AACX,UAAY,EAAD,QAAX;AAEG,YAAY,CAAR,OAAQ,IAAG,CAAH,CAAM,IAAa,CAAR,OAAQ,IAAmB,CAAhB,EAAE,QAAO,SAAC,EAAM,GAAE,CAAF,CAAnB,CAA/B,EACE,UAAS,EAAE,QAAO,WAAC,OAAD,CAAS,UAA3B,CADF;OAFH;AANyC;AA3iBA;;AAqkBC;AAG1C;AAEA,WAAM,KAAK;AACX,UAAY,EAAD,QAAX;AAEG,YAAY,CAAR,OAAQ,IAAG,CAAH,CAAM,IAAa,CAAR,OAAQ,IAAmB,CAAhB,EAAE,QAAO,SAAC,EAAM,GAAE,CAAF,CAAnB,CAA/B,EACE,WAAU,EAAE,QAAO,WAAC,OAAD,CAAS,OAA5B,CADF;OAFH;AAN0C;AAbQ;AAGlD;AAEA,WAAM,KAAK;AACX,UAAY,EAAD,QAAX;AAEG,YAAY,CAAR,OAAQ,IAAG,CAAH,CAAM,IAAa,CAAR,OAAQ,IAAmB,CAAhB,EAAE,QAAO,SAAC,EAAM,GAAE,CAAF,CAAnB,CAA/B,EACE,cAAa,EAAE,QAAO,WAAC,OAAD,CAAS,eAA/B,CADF;OAFH;AANkD;AAmEL;;AA7KW;;AAmLF;;AAOL;;AAxCC;;AAPW;;AAcF;;AAOL;;AAtlBR;;AAMK;;AAhDL;AAG9C;AAEA,WAAM,KAAK;AACX,UAAY,EAAD,QAAX;AAEG,YAAY,CAAR,OAAQ,IAAG,CAAH,CAAM,IAAa,CAAR,OAAQ,IAAmB,CAAhB,EAAE,QAAO,SAAC,EAAM,GAAE,CAAF,CAAnB,CAA/B,EACE,eAAc,EAAE,QAAO,WAAC,OAAD,CAAS,WAAhC,CADF;OAFH;AAN8C;AAueL;AAGzC;AACA;AAEA,WAAM,KAAK;AACX,UAAY,EAAD,QAAX;AAEG,YAAY,CAAR,OAAQ,IAAG,CAAH,CAAM,IAAa,CAAR,OAAQ,IAAmB,CAAhB,EAAE,QAAO,SAAC,EAAM,GAAE,CAAF,CAAnB,CAA/B;AAEE,cAAK,EAAE,QAAO,WAAC,OAAD;AACd,cAAG,KAAK,UAAR;AAEE,gBAAG,MAAH;AAEE,kBAAW,CAAC,yBAAD,SAAkB,IAA6B,CAAxB,CAAC,uBAAuB,KAAG,EAAH,CAA1D,EACE,UAAuB,yBAAe,aAAW,CAAC,CAAC,uBAAF,CAAjD,CADF;AAGA,kBAAG,CAAY,CAAC,WAAD,SAAf,EACE,UAAS,CAAC,mBAAV,CADF;;AAKA,kBAAW,CAAC,yBAAD,SAAkB,IAAwB,CAAnB,CAAC,kBAAkB,KAAG,EAAH,CAArD,EACE,UAAuB,yBAAe,aAAW,CAAC,CAAC,kBAAF,CAAjD,CADF;AAGA,kBAAG,CAAY,CAAC,WAAD,SAAf,EACE,UAAS,CAAC,cAAV,CADF;;;AAMF,gBAAG,MAAH;AAEE,kBAAW,CAAC,yBAAD,SAAkB,IAA8B,CAAzB,CAAC,wBAAwB,KAAG,EAAH,CAA3D,EACE,UAAuB,yBAAe,aAAW,CAAC,CAAC,wBAAF,CAAjD,CADF;AAGA,kBAAG,CAAY,CAAC,WAAD,SAAf,EACE,UAAS,CAAC,oBAAV,CADF;;AAKA,kBAAW,CAAC,yBAAD,SAAkB,IAAyB,CAApB,CAAC,mBAAmB,KAAG,EAAH,CAAtD,EACE,UAAuB,yBAAe,aAAW,CAAC,CAAC,mBAAF,CAAjD,CADF;AAGA,kBAAG,CAAY,CAAC,WAAD,SAAf,EACE,UAAS,CAAC,eAAV,CADF;;;SArCN;OAFH;AAPyC;AAsDI;;AAOK;;AA7gBA;;AAVR;;AA6hBY;;AA7gBA;;AAmhBC;;AA7gBA;;AAomBT;;AAnCC;;AAwqBH;AAG5C;AAEA,WAAM,KAAK;AACX,UAAY,EAAD,QAAX,EACE,cAAa,EAAE,UAAf,CADF;AAN4C;AAUA;AAG5C;AAEA,WAAM,KAAK;AACX,UAAY,EAAD,QAAX,EACE,cAAa,EAAE,UAAf,CADF;AAN4C;AA7mBD;AAG3C;AAEA,WAAM,KAAK;AACX,UAAY,EAAD,QAAX;AAEG,YAAY,CAAR,OAAQ,IAAG,CAAH,CAAM,IAAa,CAAR,OAAQ,IAAmB,CAAhB,EAAE,QAAO,SAAC,EAAM,GAAE,CAAF,CAAnB,CAA/B,EACE,aAAY,EAAE,QAAO,WAAC,OAAD,CAAS,SAA9B,CADF;OAFH;AAN2C;AAunBA;;AA9BA;AAG3C;AAEA,WAAM,KAAK;AACX,UAAY,EAAD,QAAX,EACE,aAAY,EAAE,SAAd,CADF;AAN2C;AAoCF;;AA3yCS;;AALL;;AAyhDM;AAEnD;AAEA,UAAiB,CAAb,4CAAa,IAAG,oBAAH,CAA0C,IAApB,CAAY,CAAC,KAAD,SAAf,IAA0B,CAAI,mBAAlE,EACE,MADF;AAGA,UAAY,CAAR,OAAQ,IAAG,CAAH,CAAM,IAAa,CAAR,OAAQ,IAA6B,CAApB,WAAC,KAAK,aAAN,CAAoB,GAAE,CAAF,CAA7B,CAA/B;AAEE,cAAO,KAAK,aAAY,CAAC,OAAD;AACxB,YAAG,GAAH;AACE,kCAAmB,CAAC,MAAO,QAAS,QAAjB;AAEnB,cAAA,sBAAiB,CAAC,MAAO,QAAS,QAAjB;OANrB;AAPmD;AAz1BN;AAE7C;AACA;AAAI;AACJ;AAAI;AACJ;AACA;AAEA,UAAG,CAAY,CAAC,KAAD,SAAf,EACE,MADF;AAGA,UAAY,CAAR,OAAQ,IAAG,CAAH,CAAM,IAAa,CAAR,OAAQ,IAA6B,CAApB,WAAC,KAAK,aAAN,CAAoB,GAAE,CAAF,CAA7B,CAA/B;AAEE,aAAK,aAAY,CAAC,OAAD,CAAjB,GAA8B;AAC9B,6BAAgB,CAAC,MAAO,QAAS,KAAK,aAAY,CAAC,OAAD,CAAlC;OAHlB;AAMA,UAAY,KAAK,MAAN,QAAX;AAEE,YAAY,CAAR,OAAQ,IAAG,CAAH,CAAM,IAAa,CAAR,OAAQ,IAA2B,CAAxB,KAAK,MAAK,QAAO,SAAC,EAAM,GAAE,CAAF,CAA3B,CAA/B,EACE,KAAK,MAAK,QAAO,cAAc,CAAC,QAAS,IAAV,CADjC;OAFF;AAMA,aAAQ;AACR,6BAAkB,CAAC,MAAO,QAAS;;;;UAAjB;AAClB,UAAG,IAAK,KAAE,iDAAV;AAEE,aAAM,6BAAwB,CAAC,KAAK,YAAN;AAC9B,YAAY,EAAD,QAAX;AAEE,eAAM,EAAE,KAAK,GAAE,CAAF;AACb,gBAAO,EAAG,GAAE,EAAE,eAAJ;;AAIV,eAAM;AACN,gBAAO,mBAAa,SAAC;;AAGvB,eAAM,EAAG,GAAE,GAAX;AAEE,cAAK,6BAAwB,CAAC,EAAD;AAC7B,cAAY,CAAD,QAAX;AAEE,gBAAG,CAAE,KAAG,KAAR;AAEE,qBAAQ;AACR,qCAAkB,CAAC,EAAG,QAAS;;;;kBAAb;AAClB,kBAAG,IAAK,KAAE,iDAAV;AAEE,oBAAY,CAAR,OAAQ,IAAG,CAAH,CAAM,IAAa,CAAR,OAAQ,IAAyB,CAAhB,WAAC,CAAC,aAAF,CAAgB,GAAE,CAAF,CAAzB,CAA/B;AAEE,mBAAC,aAAY,CAAC,OAAD,CAAb,GAA0B;AAC1B,uCAAgB,CAAC,EAAG,QAAS,CAAC,aAAY,CAAC,OAAD,CAA1B;iBAHlB;AAMA,oBAAY,CAAC,MAAF,QAAX;AAEE,sBAAY,CAAR,OAAQ,IAAG,CAAH,CAAM,IAAa,CAAR,OAAQ,IAAuB,CAApB,CAAC,MAAK,QAAO,SAAC,EAAM,GAAE,CAAF,CAAvB,CAA/B,EACE,CAAC,MAAK,QAAO,cAAc,CAAC,QAAS,KAAV,CAD7B;iBAFF;eARF;aAJF;AAmBA,iBAAM,EAAqB,GAAhB,CAAC,eAAH,GAAoB,CAAF;WAG3B;;OAzCN;AA6CA,UAAG,QAAH;AAEE,iBAAmB,KAAV,KAAK,KAAK,GAAE,CAAF,EAAiB,OAAV,KAAK,KAAK,GAAE,KAAK,eAAP,kBAApC;AAAI;AAEF,cAAK,6BAAwB,CAAC,CAAD;AAC7B,cAAY,CAAD,QAAX,EACE,sBAAiB,CAAC,EAAG,QAAS,QAAb,CADnB;;OALJ;AAUA;AAhF6C;AA28BD;;AAtFG;AAE/C;AACA;AACA;AAEA,UAAiB,CAAb,4CAAa,IAAG,oBAAH,CAA0C,IAApB,CAAY,CAAC,KAAD,SAAf,IAA0B,CAAI,mBAAlE,EACE,MADF;AAGA,aAAQ;AACR,6BAAkB,CAAC,MAAO,QAAS;;;;UAAjB;AAClB,UAAG,IAAK,KAAE,8CAAV;AAEE,YAAY,CAAR,OAAQ,IAAG,CAAH,CAAM,IAAa,CAAR,OAAQ,IAA6B,CAApB,WAAC,KAAK,aAAN,CAAoB,GAAE,CAAF,CAA7B,CAA/B;AAEE,eAAK,aAAY,CAAC,OAAD,CAAjB,GAA8B;AAC9B,+BAAgB,CAAC,MAAO,QAAS,KAAK,aAAY,CAAC,OAAD,CAAlC;SAHlB;AAMA,YAAY,KAAK,MAAN,QAAX;AAEE,cAAY,CAAR,OAAQ,IAAG,CAAH,CAAM,IAAa,CAAR,OAAQ,IAA2B,CAAxB,KAAK,MAAK,QAAO,SAAC,EAAM,GAAE,CAAF,CAA3B,CAA/B,EACE,KAAK,MAAK,QAAO,cAAc,CAAC,QAAS,KAAV,CADjC;SAFF;OARF;AAeA,UAAG,QAAH;AAEE,iBAAmB,KAAV,KAAK,KAAK,GAAE,CAAF,EAAiB,OAAV,KAAK,KAAK,GAAE,KAAK,eAAP,kBAApC;AAAI;AAEF,cAAK,6BAAwB,CAAC,CAAD;AAC7B,cAAY,CAAD,QAAX,EACE,wBAAmB,CAAC,EAAG,QAAS,QAAb,CADrB;;OALJ;AAUA;AApC+C;AA8MD;AAE9C;AACA;AAAG;AAEH,UAAiB,CAAb,4CAAa,IAAG,oBAAH,CAAmB,IAAG,CAAY,CAAC,KAAD,SAAnD,EACE,MADF;AAGA,UAAG,KAAK,UAAR;AAEE,YAAG,QAAH;AAEE,cAAK,KAAK;AACV,iBAAe,CAAD,QAAd;AAEE,mCAAkB,CAAC,EAAG,QAAJ;AAClB,gBAAK,CAAC;;SANV;AAUA;OAZF;AAeA,WAAK,UAAL,GAAmB;AAEnB,6BAAkB,CAAC,MAAO,IAAR;AAClB,UAAG,QAAH;AAEE,iBAAmB,KAAV,KAAK,KAAK,GAAE,CAAF,EAAiB,OAAV,KAAK,KAAK,GAAE,KAAK,eAAP,kBAApC;AAAI;AAEF,cAAK,6BAAwB,CAAC,CAAD;AAC7B,cAAY,CAAD,QAAX,EACE,uBAAkB,CAAC,EAAG,IAAJ,CADpB;;OALJ;AASA,6BAAkB,CAAC,KAAD;AAClB,UAAG,CAAI,iBAAP;AAEE,uBAAU,CAAC,KAAD;AACV;AACA;OAJF;AApC8C;AAriBE;AAEhD;AACA;AAAG;AAEH,UAAG,CAAY,CAAC,KAAD,SAA6B,IAAlB,CAAI,mBAAP,IAAsC,CAAb,4CAAa,IAAG,oBAAH,CAA7D,EACE,MADF;AAGA,UAAG,CAAI,KAAK,UAAZ;AAEE,YAAG,QAAH;AAEE,cAAK,KAAK;AACV,iBAAe,CAAD,QAAd;AAEE,qCAAoB,CAAC,EAAG,QAAJ;AACpB,gBAAK,CAAC;;SANV;AAUA;OAZF;AAeA,WAAK,UAAL,GAAmB;AAEnB,6BAAkB,CAAC,MAAO,KAAR;AAClB,UAAG,QAAH;AAEE,iBAAmB,KAAV,KAAK,KAAK,GAAE,CAAF,EAAiB,OAAV,KAAK,KAAK,GAAE,KAAK,eAAP,kBAApC;AAAI;AAEF,cAAK,6BAAwB,CAAC,CAAD;AAC7B,cAAY,CAAD,QAAX,EACE,uBAAkB,CAAC,EAAG,KAAJ,CADpB;;OALJ;AAUA,6BAAkB,CAAC,KAAD;AAElB,UAAG,CAAI,iBAAP;AAEE,uBAAU,CAAC,KAAD;AACV;AACA;OAJF;AAtCgD;AA1LH;AAAlB;AAE3B;AACA;AAAG;AACH;AAAM;AAAI;AACV;AACA;AAAK;AACL;AACA;AACA;AAEA,UAAiB,CAAb,4CAAa,IAAG,oBAAH,CAAwC,IAAlB,CAAI,mBAAP,IAAwB,CAAY,CAAC,KAAD,SAAxE,EACE,aADF;AAGA,YAAO,mBAAa,SAAC;AACrB,WAAM,6BAAwB,CAAC,KAAK,YAAN;AAC9B,aAAe,EAAD,QAAd;AAEE,oCAAuB,CAAC,GAAI,EAAE,eAAmB,GAAF,CAAF,GAAM,KAAK,eAAjC;AACvB,YAAG,EAAE,KAAK,KAAE,KAAK,YAAjB,EACE,uBAAkB,CAAC,GAAI,EAAE,UAAU,GAAE,CAAnB,CADpB;AAGA,aAAM,EAAE;AACR,aAAM,6BAAwB,CAAC,EAAD;;AAGhC,eAA6B,KAApB,KAAK,eAAe,GAAE,CAAF,EAAW,aAAxC;AAAI;AAEF,YAAK,CAAc,GAAV,KAAK,KAAP,GAAc,CAAF;AACnB,eAAQ,6BAAwB,CAAC,CAAD;AAChC,YAAY,IAAD,QAAX;AAEE,cAAG,kBAAY,QAAQ,CAAC,IAAD,CAAO,GAAE,CAAC,CAAjC;AAEE,8BAAY,OAAO,CAAC,IAAD;AACnB,mCAAkB,oBAAe,GAAE,IAAI,QAAN;AACjC,6BAAY,cAAS,GAAE,CAAvB;WAJF;AAMA,6BAAa,SAAO,CAAC,IAAD;AACpB,sCAAuB,CAAC,IAAD;SATzB;;AAaF,UAAK,KAAK;AACV,WAAM,KAAK;AACX,UAAG,kBAAY,QAAQ,CAAC,KAAD,CAAQ,GAAE,CAAC,CAAlC;AAEE,0BAAY,OAAO,CAAC,KAAD;AACnB,+BAAkB,oBAAe,GAAE,KAAK,QAAP;AACjC,yBAAY,cAAS,GAAE,CAAvB;OAJF;AAOA,6BAAkB,CAAC,MAAO,KAAK,UAAU,GAAE,CAAzB;AAClB,kCAAuB,CAAC,MAAO,KAAK,eAAe,GAAE,CAA9B;AACvB,2BAAgB,CAAC,KAAD;AAChB,yBAAa,SAAO,CAAC,KAAD;AACpB,kCAAuB,CAAC,KAAD;AAEvB,YAAO,GAAI,GAAE,mBAAa,SAAC,EAAhB;AACX,YAAM,MAAN,GAAgB;AAChB,YAAM,SAAN,GAAmB;AACnB,YAAM,WAAN,GAAqB;AAErB,UAAG,YAAH;AAEE,iBAAS,SAAyB,OAApB,mBAAa,SAAC,EAAM,GAAE,CAAF,oBAAlC;AAAI;AAEF,eAAM,6BAAwB,CAAC,CAAD;AAC9B,cAAY,EAAD,QAAX;AAEE,8BAAa,CAAC,GAAI,EAAE,KAAK,GAAE,GAAd;AAEb,gBAAG,EAAE,YAAY,GAAE,EAAnB,EACE,yBAAoB,CAAC,GAAI,EAAE,YAAY,GAAE,GAArB,CADtB;AAGA,gBAAG,EAAE,YAAY,KAAE,EAAnB,EACE,oBAAe,CAAC,GAAI,EAAE,OAAO,GAAE,CAAhB,CADjB;AAGA,mCAAkB,CAAC,EAAD;AAElB,kBAAO;AACP,iCAAgB,CAAC,GAAI;;;;gBAAL;AAChB,mCAAkB,CAAC,GAAI,GAAL;AAElB,kBAAO;AACP,iCAAgB,CAAC,GAAI;;;;gBAAL;AAChB,mCAAkB,CAAC,GAAI,GAAL;AAER,iBAAD,sBAAC,YAAO,CAAR;AACT,qBAAS,SAAiB,QAAZ,iBAAY,GAAE,CAAF,qBAA1B;AAAI;AAEF,oBAAO;AACP,kCAAe,CAAC,GAAI,EAAG;;;;kBAAR;AACL,mBAAD,sBAAC,YAAa,WAAC,KAAD,CAAQ,GAAE,CAAxB;AACT,mBAAK,CAAO,WAAC,KAAD,CAAQ,GAAE,CAAjB,CAAL,GAA4B;;AAG9B,sCAAqB,CAAC,GAAI,mBAAL;WA7BvB;;AAiCF,YAAG,CAAI,iBAAP;AAEE,yBAAU,CAAC,KAAD;AACV;AACA;SAJF;OAtCF;AA/D2B;AAAkB;AAmyBE;AAE/C;AACA;AAAG;AAAI;AACP;AACA;AAAK;AACL;AACA;AACA;AAEA,YAAO,eAAe;AACtB,WAAM,eAAe;AACrB,UAAK,eAAe;AAEpB,eAAS,QAAyB,OAApB,mBAAa,SAAC,EAAM,GAAE,CAAF,kBAAlC;AAAI;AAEF,aAAM,6BAAwB,CAAC,CAAD;AAC9B,YAAY,EAAD,QAAX;AAEE,4BAAa,CAAC,GAAI,EAAE,KAAK,GAAE,GAAd;AAEb,cAAG,EAAE,YAAY,GAAE,EAAnB,EACE,yBAAoB,CAAC,GAAI,EAAE,YAAY,GAAE,GAArB,CADtB;AAGA,cAAG,EAAE,YAAY,KAAE,EAAnB,EACE,oBAAe,CAAC,GAAI,EAAE,OAAO,GAAE,CAAhB,CADjB;AAGA,iCAAkB,CAAC,EAAD;AAElB,gBAAO;AACP,+BAAgB,CAAC,GAAI;;;;cAAL;AAChB,iCAAkB,CAAC,GAAI,GAAL;AAElB,gBAAO;AACP,+BAAgB,CAAC,GAAI;;;;cAAL;AAChB,iCAAkB,CAAC,GAAI,GAAL;AAER,eAAD,sBAAC,YAAO,CAAR;AACT,mBAAS,SAAiB,QAAZ,iBAAY,GAAE,CAAF,qBAA1B;AAAI;AAEF,kBAAO;AACP,gCAAe,CAAC,GAAI,EAAG;;;;gBAAR;AACL,iBAAD,sBAAC,YAAa,WAAC,KAAD,CAAQ,GAAE,CAAxB;AACT,iBAAK,CAAO,WAAC,KAAD,CAAQ,GAAE,CAAjB,CAAL,GAA4B;;AAG9B,oCAAqB,CAAC,GAAI,mBAAL;SA7BvB;;AAiCF,UAAG,CAAI,iBAAP;AAEE,uBAAU,CAAC,KAAD;AACV;AACA;OAJF;AAlD+C;AApiED;AAE9C;AACA;AACA;AAAI;AACJ;AACA;AACA;AACA;AACA;AACA;AAAK;AACL;AAEA,UAAG,CAAI,mBAAc,IAAiB,CAAb,4CAAa,IAAG,oBAAH,CAAtC,EACE,MADF;AAGA,UAAG,CAAY,CAAC,KAAD,SAAf;AAEE,aAAM,eAAN,KAAM;AACN;OAHF;AAMA,YAAO,mBAAa,SAAC;AACrB,UAAY,WAAD,QAAX;AAEE,aAAM,WAAW;AACjB,YAAO,CAAH,EAAG,IAAG,CAAH,CAAM,IAAQ,CAAH,EAAG,IAAuB,CAApB,mBAAa,SAAC,EAAM,GAAE,CAAF,CAAvB,CAArB;AAEE,eAAM,6BAAwB,CAAC,EAAD;AAC9B,iBAAe,EAAD,QAAd;AAEE,wCAAuB,CAAC,GAAI,EAAE,eAAe,GAAE,CAAxB;AACvB,gBAAG,EAAE,KAAK,KAAE,WAAW,KAAvB,EACE,uBAAkB,CAAC,GAAI,EAAE,UAAU,GAAE,CAAnB,CADpB;AAGA,iBAAM,EAAE;AACR,iBAAM,6BAAwB,CAAC,EAAD;;SAVlC;OAHF;AAkBA,0BAAe,CAAC,MAAO,MAAR;AACf,wBAAa,CAAC,MAAO,YAAR;AAEb,UAAY,WAAD,QAAX;AAEE,iCAAoB,CAAC,MAAO,WAAW,KAAnB;AACpB,4BAAe,CAAC,MAAO,WAAW,OAAO,GAAE,CAA5B;;AAIf,iCAAoB,CAAC,MAAO,CAAC,CAAT;AACpB,4BAAe,CAAC,MAAO,CAAR;;AAGjB,2BAAgB,CAAC,MAAO,wBAAmB,CAAC,KAAD,CAA3B;AAEhB,6BAAkB,CAAC,KAAD;AAElB,YAAO;AACP,2BAAgB,CAAC,MAAO;;;;UAAR;AAChB,6BAAkB,CAAC,MAAO,GAAR;AAElB,YAAO;AACP,2BAAgB,CAAC,MAAO;;;;UAAR;AAChB,6BAAkB,CAAC,MAAO,GAAR;AAER,WAAD,sBAAC,YAAO,CAAR;AACT,eAAS,QAAiB,OAAZ,iBAAY,GAAE,CAAF,kBAA1B;AAAI;AAEF,cAAO;AACP,4BAAe,CAAC,MAAO,EAAG;;;;YAAX;AACL,aAAD,sBAAC,YAAa,WAAC,KAAD,CAAQ,GAAE,CAAxB;AACT,aAAK,CAAO,WAAC,KAAD,CAAQ,GAAE,CAAjB,CAAL,GAA4B;;AAG9B,gCAAqB,CAAC,MAAO,mBAAR;AAErB,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,GAAE,mBAAa,SAAC,EAAhB,CAAnC;AACE,2BAAa,SAAO,CAAC,KAAK,MAAM,KAAZ;AAEpB,YAAA,mBAAa,MAAI,CAAC,KAAD;AAEnB,WAAM;AACN,UAAY,WAAD,QAAX,EACE,oBAAe,CAAC,YAAa;;;;UAAd,CADjB;AAGA,YAAO,GAAI,GAAE,mBAAa,SAAC,EAAhB;AAEX,eAAmB,MAAV,KAAK,KAAK,GAAE,CAAF,EAA2B,QAApB,mBAAa,SAAC,EAAM,GAAE,CAAF,qBAA9C;AAAI;AAEF,aAAM,6BAAwB,CAAC,CAAD;AAC9B,YAAY,EAAD,QAAX;AAEE,4BAAa,CAAC,GAAI,EAAE,KAAK,GAAE,GAAd;AAEb,cAAG,EAAE,YAAY,GAAE,KAAK,YAAxB,EACE,yBAAoB,CAAC,GAAI,EAAE,YAAY,GAAE,GAArB,CADtB;AAGA,cAAG,EAAE,YAAY,KAAE,KAAK,YAAxB,EACE,oBAAe,CAAC,GAAI,EAAE,OAAO,GAAE,CAAhB,CADjB;AAGA,iCAAkB,CAAC,EAAD;AAElB,gBAAO;AACP,+BAAgB,CAAC,GAAI;;;;cAAL;AAChB,iCAAkB,CAAC,GAAI,GAAL;AAElB,gBAAO;AACP,+BAAgB,CAAC,GAAI;;;;cAAL;AAChB,iCAAkB,CAAC,GAAI,GAAL;AAER,eAAD,sBAAC,YAAO,CAAR;AACT,mBAAS,SAAiB,QAAZ,iBAAY,GAAE,CAAF,qBAA1B;AAAI;AAEF,kBAAO;AACP,gCAAe,CAAC,GAAI,EAAG;;;;gBAAR;AACL,iBAAD,sBAAC,YAAa,WAAC,KAAD,CAAQ,GAAE,CAAxB;AACT,iBAAK,CAAO,WAAC,KAAD,CAAQ,GAAE,CAAjB,CAAL,GAA4B;;AAG9B,oCAAqB,CAAC,GAAI,mBAAL;SA7BvB;;AAiCF,UAAG,CAAY,CAAC,WAAD,SAAc,IAAmD,CAAvC,CAAC,WAAD,SAAuC,IAArB,WAAW,UAAf,IAA6B,EAAJ,CAAhF;AAEE,YAAG,CAAY,CAAC,WAAD,SAAf;AAEE,2BAAY,cAAS,GAAE,CAAvB;AACA,iCAAkB,oBAAe,GAAE,wBAAmB,CAAC,KAAD,CAArB;AACjC,gBAAO,sBAAiB,CAAC,MAAO,KAAM,IAAd;AACxB,cAAQ,CAAJ,GAAI,IAAG,CAAH,CAAM,IAAS,CAAJ,GAAI,GAAE,kBAAY,SAAC,EAAf,CAAvB;AACE,8BAAY,OAAO,CAAC,IAAK,KAAN;AAEnB,gBAAA,kBAAY,IAAI,CAAC,KAAD;;AAIlB,iCAAkB,CAAC,YAAa,KAAd;AAClB,iCAAkB,CAAC,WAAD;AAClB,iCAAkB,CAAC,YAAa,IAAd;AAClB,iCAAkB,CAAC,WAAD;;OAjBtB;AAqBA,qBAAU,CAAC,KAAD;AACV;AACA;AApJ8C;AA+2CA;AAG9C;AACA;AAAG;AAAG;AAAG;AACT;AACA;AAAI;AAAI;AAER,YAAO,KAAK;AACZ,UAAG,GAAH;AAEE,cAAO,sBAAiB,CAAC,MAAO,KAAK,YAAY,KAAE,CAAC,CAAH,CAAM,KAA/B;AACxB,aAAM;AACN,4BAAe,CAAC,MAAO;;;;YAAR;AAEf,aAAM;AACN,4BAAe,CAAC,MAAO;;;;YAAR;AAEf,YAAQ,CAAJ,GAAI,KAAG,CAAC,CAAJ,CAAc,IAAH,EAAJ,IAAW,EAA1B;AAEE,cAAK;AACL,cAAK,GAAI,GAAE,CAAF;AACT,iBAAM,CAAE,GAAE,KAAK,eAAf;AAEE,gBAAK,CAAc,GAAV,KAAK,KAAP,GAAc,CAAF;AACnB,mBAAQ,6BAAwB,CAAC,CAAD;AAChC,gBAAW,CAAC,IAAD,SAAO,IAA0E,CAApB,CAA7B,CAAlB,gBAAW,CAAC,IAAD,CAAO,IAAG,IAAI,oBAAP,CAA6B,IAAI,mBAAJ,CAAoB,IAAG,CAAI,mBAAP,CAA5F;AAEE,sBAAS;AACT,kCAAe,CAAC,KAAM;;;;kBAAP;AACf,kBAAG,KAAH;AAEE,oBAAM,CAAF,CAAE,IAAG,CAAH,CAAM,IAAO,CAAF,CAAE,GAAE,kBAAY,SAAC,EAAf,CAAnB;AACE,oCAAY,OAAO,CAAC,EAAG,IAAJ;AAEnB,sBAAA,kBAAY,IAAI,CAAC,IAAD;AAElB,oBAAG,IAAI,UAAU,KAAE,CAAnB,EACE,IAAI,UAAJ,GAAkB,IADpB;AAGA,uCAAkB,oBAAe,GAAE,IAAI,QAAN;AACjC,iCAAY,cAAS,GAAE,CAAvB;AACI,iBAAJ,IAAG;eAZL;AAeA,kBAAG,CAAI,IAAI,UAAU,IAAG,CAAI,KAA5B,EACE,IAAK,CAAE,GAAE,IAAI,eADf;aAnBF;AAsBI,aAAJ,IAAG;;SA9BP;;AAoCA,iBAAS,QAAyB,OAApB,KAAK,eAAe,GAAE,CAAF,kBAAlC;AAAI;AAEF,cAAK,CAAc,GAAV,KAAK,KAAP,GAAc,CAAF;AACnB,iBAAQ,6BAAwB,CAAC,CAAD;AAChC,cAAY,IAAD,QAAX;AAEE,qCAAoB,CAAC,KAAM,KAAP;AACpB,gBAAG,kBAAY,QAAQ,CAAC,IAAD,CAAO,GAAE,CAAC,CAAjC;AAEE,gCAAY,OAAO,CAAC,IAAD;AAEnB,kBAAG,IAAI,UAAU,KAAE,CAAnB,EACE,IAAI,UAAJ,GAAkB,KADpB;AAGA,qCAAkB,oBAAe,GAAE,IAAI,QAAN;AACjC,+BAAY,cAAS,GAAE,CAAvB;aARF;WAHF;;;AA1D0C;AAwZA;AAE9C,UAAiB,CAAb,4CAAa,IAAG,oBAAH,CAA0C,IAApB,CAAY,CAAC,KAAD,SAAf,IAA0B,CAAI,mBAAlE,EACE,MADF;AAGA,UAAG,KAAK,UAAR;AACE,iCAAoB,CAAC,MAAO,QAAR;AAEpB,YAAA,uBAAkB,CAAC,MAAO,QAAR;AAR0B;AA7yDA;AAE9C;AAEA,UAAiB,CAAb,4CAAa,IAAG,oBAAH,CAA0C,IAApB,CAAY,CAAC,KAAD,SAAf,IAA0B,CAAI,mBAAlE,EACE,MADF;AAGA,WAA2B,KAAK,YAAY;AAC5C,UAAY,EAAD,QAAX;AACE,8BAAiB,CAAC,KAAK,SAAC,GAAO,EAAE,aAAhB;AAEjB,YAAA,sBAAiB,CAAC,KAAK,SAAC,GA1c8D,IA0crE;AAX2B;AA0BD;AAAlB;AAE3B,YAAM,SAAN,GAAmB,CAAC;AACpB,YAAM,MAAN,GAAgB;AAChB,YAAM,WAAN,GAAqB,CAAC;AAEtB,UAAiB,CAAb,4CAAa,IAAG,oBAAH,CAA0C,IAApB,CAAY,CAAC,KAAD,SAAf,IAA0B,CAAI,mBAAlE,EACE,aADF;AAGA,qBAAU,uBAAkB,CAAC,KAAK,cAAc,OAApB,CAA5B;AAT2B;AAAkB;AA1KH;AAAf;AAE3B,eAAU;AAFiB;AAAe;AAqrBI;AAAnB;AAG3B,eAAU,sBAAiB,GAAE,oBAAe,CAAC,KAAD,CAAjB;AAHA;AAAmB;AAslBG;AAAtB;AAG3B,eAAU;AACV,UAAW,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,IAAsB,CAAnB,kBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAA7B,EACE,SAAU,kBAAY,SAAC,MAAD,CADxB;AAJ2B;AAAsB;AA76CX;AAEtC,UAAY,KAAD,QAAX,EACE,sBAAiB,CAAC,KAAK,cA5N4D,KA4NlE,CADnB;AAFsC;AAkpEU;AAEhD,WAAK,YAAL,GAAqB;AAF2B;AAgKJ;AAG5C,WAAK,QAAL,GAAiB;AAH2B;AA0IK;AAGjD,WAAK,aAAL,GAAsB;AAH2B;AAhLA;AAGjD,WAAK,aAAL,GAAsB;AAH2B;AAlBA;AAGjD,WAAK,aAAL,GAAsB;AAH2B;AAYD;AAGhD,WAAK,YAAL,GAAqB;AAH2B;AA0BC;AAGjD,WAAK,aAAL,GAAsB;AAH2B;AAsJF;AAG/C,WAAK,WAAL,GAAoB;AAH2B;AAYC;AAGhD,WAAK,YAAL,GAAqB;AAH2B;AAtJA;AAGhD,WAAK,YAAL,GAAqB;AAH2B;AA4JK;AAGrD,WAAK,iBAAL,GAA0B;AAH2B;AAxMD;AAGpD,WAAK,OAAL,GAAgB;AAHoC;AAwBN;AAG9C,WAAK,UAAL,GAAmB;AACnB,UAAY,KAAK,MAAN,QAAX,EACE,KAAK,MAAK,UAAV,GAAwB,SAD1B;AAJ8C;AAcA;AAG9C,WAAK,UAAL,GAAmB;AAH2B;AAwKK;AAGnD,WAAK,eAAL,GAAwB;AAH2B;AA5LL;AAG9C,WAAK,UAAL,GAAmB;AAH2B;AAkFH;AAG3C,WAAK,OAAL,GAAgB;AAH2B;AAkBF;AAGzC,WAAK,KAAL,GAAc;AAH2B;AAZE;AAG3C,WAAK,OAAL,GAAgB;AAH2B;AAMK;AAGhD,WAAK,YAAL,GAAqB;AAH2B;AAvIV;AAEtC,UAAG,CAAY,CAAC,KAAD,SAA4C,IAAnB,CAAb,4CAAa,IAAG,oBAAH,CAAjB,IAAuC,CAAI,mBAAlE,EACE,MADF;AAGA,UAAG,qBAAH,EACE,MADF;AAGA,WAAK,YAAL,GAAqB;AAErB,UAAG,mBAAY,GAAE,CAAjB,EACE,MADF;AAGA,4BDvuGqD,KAA6B;ACwuGlF;AAdsC;AArvDa;;AAi8Bb;AAAX;AAE3B;AAAW;AAAU;AAAI;AACzB;AAAG;AAEH,eAAU;AACV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,kBAAa;AAEb,aAAyB,CAAlB,cAAG,CAAC,KAAM,MAAP,CAAe,GAAE,CAAF,CAAK,IAAsB,CAAjB,cAAG,CAAC,IAAK,MAAN,CAAc,GAAE,CAAF,CAApD;AAEE,YAAK,cAAG,CAAC,KAAM,MAAP;AACR,oBAAa,SAAU,GAAE,eAAI,CAAC,OAAQ,EAAG,CAAE,GAAE,CAAhB,CAAN;AACvB,mBAAY,eAAI,CAAC,OAAQ,EAAU,MAAD,OAAlB;AAChB,YAAK,cAAG,CAAC,IAAK,QAAN;AACR,aAAM,eAAI,CAAC,SAAU,EAAG,CAAE,GAAE,CAAlB;AACV,yBAAM,CAAC;;;;aAAI,EAAG,CAAR;AACN,yBAAM,CAAC;;;;aAAQ,EAAK,CAAF,CAAE,GAAE,CAAF,CAAI,GAAE,CAApB;AACN,aAAM,UAAU,mBAAkB,SAAO,CAAC,EAAD;AACzC,mCAAsB,CAAC,WAAY,GAAI;;;;YAAjB;AACtB,oBAAa,SAAU,GAAE,EAAF;;AAGzB,eAAU,SAAU,GAAE,MAAF;AAzBO;AAAW;AAjjBI;AAAf;AAE3B,eAAU;AAFiB;AAAe;AA9xBR;AAElC;AACA,UAAa,wBAAH,eAAP,MAAO,CAAV;AAEE,qBAAQ,OAAO,CAAS,OAAP,OAAU,wBAAH,CAAuB,SAAhC;AACf,oBAAO,OAAO,CAAS,OAAP,OAAU,wBAAH,CAAuB,QAAhC;AACd,mBAAM,OAAO,CAAS,OAAP,OAAU,wBAAH,CAAuB,OAAhC;OAJf;AAHkC;AAmCE;AAEpC;AACA,qBAAW,0BAAqB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,4BAAkB,iCAA4B,QAAC;AAC/C,2BAAiB,gCAA2B,QAAC;AAC7C,4BAAkB,iCAA4B,QAAC;AAE/C,oBAAU;AACV,sBAAY;AACZ,qBAAW;AAV8C;AAArB;AA4YA;AAE5B,eAAR,KAAQ;AACO,eAAf,KAAe;AACA,eAAf,KAAe;AACD,eAAd,KAAc;AACP,eAAP,KAAO;AACC,eAAR,KAAQ;AACC,eAAT,KAAS;AACT;AAToC;AA88CM;AAAf;AAE3B,eAAmC,+EAAC,IAAD;AACnC,UAAS,CAAL,IAAK,IAAG,CAAH,CAAM,IAAU,CAAL,IAAK,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAAzB,EACE,SAAU,aAAO,WAAC,IAAD,CAAM,SADzB;AAH2B;AAAe;AAoLC;AAAhB;AAG3B;AACA;AAEA,eAAU;AACV,eAAS,QAAiB,OAAZ,iBAAY,GAAE,CAAF,kBAA1B;AAAI;AAEF,YAAM,CAAF,CAAE,IAAG,CAAH,CAAM,IAAO,CAAF,CAAE,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAAnB;AAEE,gBAAO,aAAO,WAAC,CAAD;AACd,cAAG,GAAG,MAAM,KAAE,KAAd;AAEE,qBAAU;AACV;WAHF;SAHF;;AATyB;AAAgB;AA7SD;AAAf;AAE3B;AACA;AAEA,eAAU;AACV,eAAS,QAAkB,OAAb,YAAM,SAAC,EAAM,GAAE,CAAF,kBAA3B;AAAI;AAEF,cAAO,YAAM,WAAC,CAAD;AACb,YAAG,GAAG,MAAM,KAAE,KAAd;AAEE,mBAAU;AACV;SAHF;;AATyB;AAAe;AAkUM;AAArB;AAE3B;AAEA,eAAU,CAAC;AACX,YAAO,qBAAgB,CAAC,KAAD;AACvB,UAAY,GAAD,QAAX,EACE,SAAU,GAAG,SAAC,EADhB;AAN2B;AAAqB;AAjTD;AAApB;AAE3B;AAEA,eAAU,CAAC;AACX,YAAO,oBAAe,CAAC,KAAD;AACtB,UAAY,GAAD,QAAX,EACE,SAAU,GAAG,SAAC,EADhB;AAN2B;AAAoB;AAtwCP;AAExC;AACA;AAHwC;AAs5BD;AAEvC;AACA;AAHuC;AA15CC;AAExC;AACA,mBAAO;AACP;AAJwC;AAeF;AAEtC;AACA,4BAAiB;AACjB,iBAAK;AACL,2BAAgB,CAAC,IAAD;AAChB;AANsC;AARG;AAEzC;AACA,4BAAiB;AACjB,2BAAgB,CAAC,IAAD;AAChB;AALyC;AAhNI;AAE7C,6BAAkB,CAAC,MA7MsE,IA6MvE;AAF2B;AAyqDP;AAEtC,UAAY,KAAD,QAAX;AAEE,aAAM,eAAN,KAAM;OAFR;AAFsC;AAliDA;AAEtC,UAAY,KAAD,QAAX,EACE,sBAAiB,CAAC,KAAK,cAAc,QAApB,CADnB;AAFsC;AA0+DF;AAGpC;AAAG;AAEH,UAAG,CAAY,CAAC,KAAD,SAAf,EACE,MADF;AAGA,UAAI,gBAAiB,KAAG,KAAxB;AAEE,YAAY,gBAAD,QAAX;AAEE,eAAM,gBAAgB;AAEtB,iBAAe,EAAD,QAAd;AAEE,gBAAG,EAAG,KAAE,KAAR,EACE,MADF;AAGA,iBAAM,EAAE;;SATZ;AAaA;AAEA,YAAK,wBAAmB,QAAC,YAAM,CAAC,IAAD,CAAN;AAEzB,YAAY,gBAAD,QAAX;AACE,eAAK,cAAC,CAAc,gBAAgB,OAA9B;AAEA,cAAN,KAAK,cAAC,CAAc,WAAd;AAER,YAAY,gBAAD,QAAX;AAEE,cAAW,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,IAAgC,CAA7B,gBAAgB,OAAM,SAAC,EAAM,GAAE,CAAF,CAAhC,CAA7B;AACE,iBAAK,SAAC,CAAS,MAAT;AAEA,gBAAN,KAAK,SAAC,CAAS,gBAAgB,OAAM,SAAC,EAAM,GAAE,CAAxC;;AAIR,cAAW,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,IAAe,CAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,CAAf,CAA7B;AACE,iBAAK,SAAC,CAAS,MAAT;AAEA,gBAAN,KAAK,SAAC,CAAS,WAAK,SAAC,EAAM,GAAE,CAAvB;;AAGV,SAAE,eAAF,CAAE;AAEF;OAzCF;AARoC;AA/9DA;AAGpC;AAAG;AAEH,UAAG,gBAAiB,KAAG,KAAvB;AAEE;AACA,YAAK,wBAAmB,QAAC,YAAM,CAAC,IAAD,CAAN;AACzB,SAAC,OAAO,CAAC,KAAD;AAER,YAAY,gBAAD,QAAX;AACE,eAAM,gBAAgB,OAAM;AAE5B,mBAAM,WAAK;AAEb,UAAE,OAAO,CAAC,CAAD;AACT,SAAE,eAAF,CAAE;AAEF,YAAY,gBAAD,QAAX;AAEE,cAAW,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,IAAgC,CAA7B,gBAAgB,OAAM,SAAC,EAAM,GAAE,CAAF,CAAhC,CAA7B,EACE,EAAE,SAAC,CAAS,MAAT,CADL;;AAKA,cAAW,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,IAAe,CAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,CAAf,CAA7B,EACE,EAAE,SAAC,CAAS,MAAT,CADL;;AAIF;OAzBF;AALoC;AApDC;;AAChB;AAEnB;AAEA,iBAAS,QAAa,OAAR,CAAC,SAAC,EAAM,GAAE,CAAF,kBAAtB;AAAI;AAEF,WAAC,WAAC,CAAD,CAAG,UAAJ,GAAkB;AAClB,qBAAW,CAAC,CAAC,WAAC,CAAD,CAAG,OAAL;;AAPM;AAWrB,iBAAW,CAAC,WAAD;AACX;AAbqC;AAxDE;;AAChB;AAErB;AAEA,iBAAS,QAAa,OAAR,CAAC,SAAC,EAAM,GAAE,CAAF,kBAAtB;AAAI;AAEF,WAAC,WAAC,CAAD,CAAG,UAAJ,GAAkB;AAClB,uBAAa,CAAC,CAAC,WAAC,CAAD,CAAG,OAAL;;AAPM;AAWvB,mBAAa,CAAC,WAAD;AACb;AAbuC;AAwEK;AAE5C;AACA;AAEA,wBAAY;AACZ,6BAAkB;AAClB,uBAAY,CAAZ;AACA,eAAS,QAAyB,OAApB,mBAAa,SAAC,EAAM,GAAE,CAAF,kBAAlC;AAAI;AAEF,YAAK,6BAAwB,CAAC,CAAD;AAC7B,YAAW,CAAC,CAAD,SAAI,IAAoE,CAApB,CAA1B,CAAf,gBAAW,CAAC,CAAD,CAAI,IAAG,CAAC,oBAAJ,CAA0B,IAAI,mBAAJ,CAAoB,IAAG,CAAI,mBAAP,CAAnF;AAEE,iCAAkB,CAAC,EAAG,IAAJ;AAClB,4BAAY,IAAI,CAAC,CAAD;AAChB,iCAAkB,oBAAe,GAAE,CAAC,QAAH;AACjC,2BAAY,cAAS,GAAE,CAAvB;SALF;;AASF,sBD9hC6C;AC+hC7C;AACA;AAtB4C;AAxDE;AAE9C;AACA;AAEA,wBAAY;AACZ,6BAAkB;AAClB,uBAAY,CAAZ;AACA,eAAS,QAAyB,OAApB,mBAAa,SAAC,EAAM,GAAE,CAAF,kBAAlC;AAAI;AAEF,YAAK,6BAAwB,CAAC,CAAD;AAC7B,YAAY,CAAD,QAAX;AAEE,iCAAkB,CAAC,EAAG,KAAJ;AAClB,cAAG,CAAC,YAAY,KAAE,CAAC,CAAnB;AAEE,8BAAY,IAAI,CAAC,CAAD;AAChB,mCAAkB,oBAAe,GAAE,CAAC,QAAH;AACjC,6BAAY,cAAS,GAAE,CAAvB;WAJF;SAHF;;AAYF,sBDz+B6C;AC0+B7C;AACA;AAzB8C;AAmjDP;AAEvC,4BAAkB;AAClB;AAHuC;AAjtCC;AAExC,4BAAkB;AAClB;AAHwC;AAMC;AAEzC,kBAAM;AACN;AAHyC;AA5UD;AAExC,UAAY,KAAD,QAAX,EACE,wBAAmB,CAAC,KAAK,cAAc,QAApB,CADrB;AAFwC;AAkGK;AAE7C,6BAAkB,CAAC,MAAO,QAAR;AAF2B;AAKA;AAE7C,6BAAkB,CAAC,MAAO,QAAR;AAF2B;AA5CE;AAE/C,+BAAoB,CAAC,MAAO,QAAR;AAF2B;AAlIV;AAErC,UAAY,KAAD,QAAX,EACE,sBAAiB,CAAC,KAAK,cAAc,QAAS,QAA7B,CADnB;AAFqC;AAME;AAEvC,UAAY,KAAD,QAAX,EACE,wBAAmB,CAAC,KAAK,cAAc,QAAS,QAA7B,CADrB;AAFuC;AAZI;AAE3C,UAAY,KAAD,QAAX,EACE,4BAAuB,CAAC,KAAK,cAAc,QAAS,QAA7B,CADzB;AAF2C;AAuBC;AAE5C,4BAAiB,CAAC,MAAO,QAAS,QAAjB;AAF2B;AAKE;AAE9C,8BAAmB,CAAC,MAAO,QAAS,QAAjB;AAF2B;AAVI;AAElD,kCAAuB,CAAC,MAAO,QAAS,QAAjB;AAF2B;AAwlDL;AAE7C,UAAY,KAAD,QAAX,EACE,KAAK,cAAc,CAAC,yBAAD,CADrB;AAF6C;AAoCC;AAE9C,UAAY,KAAD,QAAX,EACE,KAAK,eAAe,CAAC,0BAAD,CADtB;AAF8C;AAND;AAE7C,UAAY,KAAD,QAAX,EACE,KAAK,cAAc,CAAC,yBAAD,CADrB;AAF6C;AAZI;AAEjD,UAAY,KAAD,QAAX,EACE,KAAK,kBAAkB,CAAC,qBAAQ,MAAT,CADzB;AAFiD;AAZD;AAEhD,UAAY,KAAD,QAAX,EACE,KAAK,iBAAiB,CAAC,qBAAQ,MAAT,CADxB;AAFgD;AAkBK;AAErD,UAAY,KAAD,QAAX,EACE,KAAK,sBAAsB,CAAC,yBAAY,MAAb,CAD7B;AAFqD;AAZD;AAEpD,UAAY,KAAD,QAAX,EACE,KAAK,qBAAqB,CAAC,yBAAY,MAAb,CAD5B;AAFoD;AA9hCC;AAErD;AACA;AAEA,UAAY,KAAD,QAAX;AAEE,iBAA6B,KAApB,KAAK,eAAe,GAAE,CAAF,EAAW,aAAxC;AAAI;AAEF,cAAK,6BAAwB,CAAC,KAAK,KAAK,GAAE,CAAb;AAC7B,cAAY,CAAD,QAAX,EACE,sBAAiB,CAAC,CAAD,CADnB;;OALJ;AALqD;AANP;AAE9C,UAAY,KAAD,QAAX,EACE,KAAK,OAAM,QADb;AAF8C;AA+9DN;AAExC,UAAY,KAAD,QAAX,EACE,wBAAmB,CAAC,KAAK,cAAc,oBAAqB,gBAAiB,YAA1D,CADrB;AAFwC;AAgBO;AAG/C;AAEA,UAAG,CAAY,CAAC,KAAD,SAAf,EACE,MADF;AAGA,UAAG,2BAAH;AAGE,YAAK,CAAC;AACN,eAAM,CAAI,KAAK,YAAiD,IAA9B,CAAF,CAAE,KAAG,gCAAH,CAAP,IAAyD,CAAf,KAAK,UAAU,IAAmB,CAAf,KAAK,UAAU,KAAE,CAAF,CAAnB,CAApF;AAEE,0CAA2B,CAAC,MAAO,oBAAqB,gBAAiB,YAA9C;AAC3B,cAAK;;OAPT;AAYA,sCAA2B,CAAC,MAAO,oBAAqB,gBAAiB,YAA9C;AApBoB;AAuBQ;AAGvD;AAAG;AACH;AAAI;AACJ;AAEA,WAAM;AACN,UAAK;AACL,UAAY,KAAD,QAAX;AAEE,iBAAS,QAAwB,OAAnB,kBAAY,SAAC,EAAM,GAAE,CAAF,kBAAjC;AAAI;AAEF,cAAK,kBAAY,SAAC,CAAD;AACjB,cAAY,CAAD,QAAX;AAEE,gBAAG,CAAC,KAAK,KAAE,KAAK,KAAhB,EACE,KADF;AAGA,gBAAG,CAAC,YAAJ;AACE,mBAAM,EAAG,GAAE,CAAC,QAAH;AAET,kBAAI,CAAJ,IAAG;WARP;;AAYF,aAAM,EAAG,GAA2B,CAAzB,wBAAmB,CAAC,IAAD,CAAM,GAAE,CAAF,CAA3B;AACT,aAAM;AACD;AACH,YADG,IACH;AAAa,eAAS,CAAH,EAAG,GAAE,uBAAF,CAAmB,GAAE,KAAK,QAAP;AACzC,kBAFG,IAEH,yDAAa,KAAS,CAAH,EAAG,GAAmB,CAAjB,uBAAiB,GAAE,CAAF,CAAnB,CAAuB,GAAe,CAAb,KAAK,QAAQ,GAAE,CAAF,CAA5D;AAGF,oCAAuB,CAAC,MAAO;;;;aAAI;;;;YAAZ;AAEvB,YAAG,mBAAH;AAEE,cAAQ,CAAH,EAAG,GAAE,QAAG,CAAC,sBAAD,CAAL,CAA0F,IAA5C,CAAf,CAAH,EAAG,GAAE,KAAK,QAAP,CAAe,GAAuB,CAArB,QAAG,CAAC,sBAAD,CAAkB,GAAE,uBAAF,CAAvB,CAAtB,IAAqE,YAArG,EACE,WAAM,CAAC,uBAAiB,EAAlB,CADR;;AAKA,qBAAM,CAAC,uBAAiB,EAAlB;;OAjCV;AATuD;AAuDL;AAIlD;AAEA,UAAK,kBAAa,CAAC,IAAD;AAClB,UAAY,CAAD,QAAX,EACE,wBAAmB,CAAC,EAAG,oBAAqB,gBAAiB,YAA1C,CADrB;AAPkD;AAxFX;AAMvC,8BAAiB,YAAC,CAAY,CAAZ;AANqB;AAhBG;AAM1C,8BAAiB,YAAC,CAAY,wBAAiB,KAA7B;AANwB;AAgGF;AAAb;AAG3B,eAAU;AACV,UAAS,CAAL,IAAK,IAAG,CAAH,CAAM,IAAU,CAAL,IAAK,IAAwB,CAArB,mBAAc,SAAC,EAAM,GAAE,CAAF,CAAxB,CAAzB,EACE,SAAU,mBAAc,WAAC,IAAD,CAD1B;AAJ2B;AAAa;AAn/BN;AAAP;AAE3B,UAAY,WAAD,QAAX;AACE,iBAAU,WAAW,OAAM;AAE3B,qBAAU,WAAK;AALU;AAAO;AAnFO;AAAd;AAE3B;AACA;AAEA,eAAU;AACV,UAAiB,CAAb,4CAAa,IAAG,oBAAH,CAAmB,IAAG,CAAI,mBAA3C,EACE,aADF;AAGA,UAAY,WAAD,QAAX;AAEE,cAAO,WAAW;;AAIlB,YAAK;AACL,YAAG,mBAAa,SAAC,EAAM,GAAE,CAAzB;AAEE,cAAK,6BAAwB,CAAC,mBAAa,SAAC,EAAM,GAAE,CAAvB;AAC7B,iBAAc,CAAC,CAAD,SAA4B,IAAN,CAAb,CAAC,YAAY,IAAG,CAAH,CAAlB,IAA0C,CAAb,CAAC,YAAY,IAAuB,CAApB,mBAAa,SAAC,EAAM,GAAE,CAAF,CAAvB,CAA5D,EACE,IAAK,6BAAwB,CAAC,CAAC,YAAF;SAJjC;AAOA,cAAO,CAAC,OAAO,GAAE,CAAF;;AAGjB,eAAU,sBAAiB,CAAC,IAAK,WAAN;AA1BA;AAAc;AAPM;AAApB;AAE3B,eAAU;AACV,UAAY,KAAD,QAAX,EACE,SAAU,6BAAwB,CAAC,KAAK,YAAN,CADpC;AAH2B;AAAoB;AApzCP;AAAb;AAG3B;AAEA,eAAU;AACV,UAAY,KAAD,QAAX;AAEE,YAAK,yBAAoB,CAAC,KAAK,aAAN;AACzB,YAAY,CAAD,QAAX,EACE,SAAU,CAAC,MADb;OAHF;AAN2B;AAAa;AAuuCW;AAAxB;AAG3B,eAAU;AACV,UAAY,KAAD,QAAX,EACE,SAAU,KAAK,UADjB;AAJ2B;AAAwB;AArnCA;AAAxB;AAE3B;AAEA,eAAU;AACV,UAAK;AACL,aAAe,CAAD,QAAd;AAEE,iBAAU,MAAyB,GAAhB,CAAC,eAAH,GAAoB,CAAF;AACnC,YAAK,CAAC;;AATmB;AAAwB;AALP;AAAjB;AAE3B,eAAU;AAFiB;AAAiB;AAzHN;AAAX;AAG3B,eAAU,uBAAkB,CAAC,KAAK,cAAc,OAApB;AAHD;AAAW;AA0yCO;AAAlB;AAG3B,eAAU;AACV,UAAY,KAAD,QAAX;AAEE,iBAAU;AACV,0BAAa,CAAC,MAAO,QAAS,6CAAa;;;;YAA9B;OAHf;AAJ2B;AAAkB;AApyCN;AAAZ;AAG3B,eAAU,wBAAmB,CAAC,KAAK,cAAc,OAApB;AAHF;AAAY;AA+yCO;AAAnB;AAG3B,eAAU;AACV,UAAY,KAAD,QAAX;AAEE,iBAAU;AACV,2BAAc,CAAC,MAAO,QAAS,6CAAa;;;;YAA9B;OAHhB;AAJ2B;AAAmB;AA1DQ;AAA3B;AAG3B,eAAU;AACV,UAAY,KAAD,QAAX;AAEE,iBAAU;AACV,mCAAsB,CAAC,MAAO,QAAS;;;;YAAjB;OAHxB;AAJ2B;AAA2B;AAqhBP;AAApB;AAG3B;AAEA,eAAU;AACV,UAAK;AACL,aAAe,CAAD,QAAd;AAEE,YAAG,CAAC,KAAK,KAAE,IAAX;AAEE,mBAAU;AACV;SAHF;AAKA,YAAK,CAAC;;AAdmB;AAAoB;AAvCP;AAAb;AAE3B;AAEA,eAAU;AACV,UAAK,yBAAoB,CAAC,IAAD;AACzB,UAAY,CAAD,QAAX,EACE,SAAU,CAAC,MADb;AAN2B;AAAa;AAqBS;AAAtB;AAG3B;AAEA,eAAU;AACV,UAAK;AACL,aAAe,CAAD,QAAd;AAEE,YAAW,CAAC,CAAC,MAAF,SAAS,IAAkB,CAAb,CAAC,MAAK,OAAO,KAAE,MAAF,CAAtC;AAEE,mBAAU;AACV;SAHF;AAKA,YAAK,CAAC;;AAdmB;AAAsB;AAhCP;AAAf;AAG3B;AAEA,eAAU;AACV,UAAK,2BAAsB,CAAC,MAAD;AAC3B,UAAY,CAAD,QAAX,EACE,SAAU,CAAC,MADb;AAP2B;AAAe;AAoEe;AAA9B;AAI3B;AACA;AAEA,eAAU;AACV,UAAK;AACL,aAAe,CAAD,QAAd;AAEE,YAAK;AACL,0BAAa,CAAC,EAAG,QAAS,6CAAa;;;;YAA1B;AACb,YAAG,sCAAY,WAAW,CAAC,MAAO,EAAG,cAAX,CAA1B;AAEE,mBAAU;AACV;SAHF;AAMA,YAAG,QAAH;AACE,cAAK,CAAC;AAEN,kBAAK,CAAC;;AAtBiB;AAA8B;AA/CP;AAAvB;AAG3B;AAEA,eAAU;AACV,UAAK,mCAA8B,CAAC,MAAO,QAAS,SAAU,cAA3B;AACnC,UAAY,CAAD,QAAX,EACE,SAAU,CAAC,MADb;AAP2B;AAAuB;AA/kCN;AAAjB;AAE3B,eAAU;AACV,UAAY,KAAD,QAAX,EACE,SAAU,6BAAwB,CAAC,KAAK,aAAN,CADpC;AAH2B;AAAiB;AAtnBF;AAAf;AAG3B;AAEA,eAAU;AACV,UAAY,KAAD,QAAX;AAEE,YAAK,2BAAsB,CAAC,KAAK,aAAN;AAC3B,YAAY,CAAD,QAAX,EACE,SAAU,CAAC,MADb;OAHF;AAN2B;AAAe;AAskBJ;AAAX;AAG3B;AAEA,eAAU;AACV,UAAY,KAAD,QAAX;AAEE,YAAK,uBAAkB,CAAC,KAAK,aAAN;AACvB,YAAY,CAAD,QAAX,EACE,SAAU,CAAC,MADb;OAHF;AAN2B;AAAW;AA1lBS;AAApB;AAG3B;AAEA,eAAU;AACV,UAAW,CAAC,KAAD,SAAQ,IAAY,CAAC,UAAD,SAA/B;AAEE,YAAK,gCAA2B,CAAC,KAAK,cAAc,UAAU,aAA9B;AAChC,YAAY,CAAD,QAAX,EACE,SAAU,CAAC,MADb;OAHF;AAN2B;AAAoB;AAskBJ;AAAhB;AAG3B;AAEA,eAAU;AACV,UAAW,CAAC,KAAD,SAAQ,IAAY,CAAC,UAAD,SAA/B;AAEE,YAAK,4BAAuB,CAAC,KAAK,cAAc,UAAU,aAA9B;AAC5B,YAAY,CAAD,QAAX,EACE,SAAU,CAAC,MADb;OAHF;AAN2B;AAAgB;AAkCE;AAAlB;AAG3B;AAEA,eAAU;AACV,UAAY,KAAD,QAAX;AAEE,YAAK,8BAAyB,CAAC,KAAK,aAAN;AAC9B,YAAY,CAAD,QAAX,EACE,SAAU,CAAC,MADb;OAHF;AAN2B;AAAkB;AAtkBI;AAAtB;AAG3B;AAEA,eAAU;AACV,UAAY,KAAD,QAAX;AAEE,YAAK,kCAA6B,CAAC,KAAK,aAAN;AAClC,YAAY,CAAD,QAAX,EACE,SAAU,CAAC,MADb;OAHF;AAN2B;AAAsB;AA0nBL;AAAjB;AAG3B;AAEA,eAAU;AACV,UAAY,KAAD,QAAX;AAEE,YAAK,6BAAwB,CAAC,KAAK,aAAN;AAC7B,YAAY,CAAD,QAAX,EACE,SAAU,CAAC,MADb;OAHF;AAN2B;AAAiB;AAiGD;AAAhB;AAG3B;AAEA,eAAU;AACV,UAAY,KAAD,QAAX;AAEE,YAAK,4BAAuB,CAAC,KAAK,aAAN;AAC5B,YAAY,CAAD,QAAX,EACE,SAAU,CAAC,MADb;OAHF;AAN2B;AAAgB;AAjsBM;AAAtB;AAG3B,eAAU;AACV,UAAY,KAAD,QAAX,EACE,SAAU,6BAAwB,CAAC,KAAK,KAAK,GAAE,CAAb,CADpC;AAJ2B;AAAsB;AAskBJ;AAAlB;AAG3B,eAAU;AACV,UAAY,KAAD,QAAX,EACE,SAAU,6BAAwB,CAAC,KAAK,KAAK,GAAE,CAAb,CADpC;AAJ2B;AAAkB;AApnBS;AAA3B;AAG3B,eAAU,kCAA6B,CAAC,UAAD;AAHZ;AAA2B;AAskBJ;AAAvB;AAG3B,eAAU,8BAAyB,CAAC,UAAD;AAHR;AAAuB;AAkCE;AAAzB;AAG3B;AAEA,YAAO;AACP;AACE,cAAO,uBAAkB,CAAC,GAAD;AACzB,iBAAU;OAFZ,QAGqB,EAAP,CAAP,MAAO,KAAE,IAAF,CAAO,IAAqB,CAAT,CAAC,MAAD,SAAS,IAAuB,CAAlB,MAAM,YAAY,KAAE,KAAK,YAAP,CAAvB,CAArB,CAHrB;AAN2B;AAAyB;AAtkBI;AAA7B;AAG3B;AAEA,YAAO;AACP;AACE,cAAO,2BAAsB,CAAC,GAAD;AAC7B,iBAAU;OAFZ,QAGqB,EAAP,CAAP,MAAO,KAAE,IAAF,CAAO,IAAqB,CAAT,CAAC,MAAD,SAAS,IAAuB,CAAlB,MAAM,YAAY,KAAE,KAAK,YAAP,CAAvB,CAArB,CAHrB;AAN2B;AAA6B;AA0nBL;AAAxB;AAG3B,eAAU;AACV,UAAW,CAAC,KAAD,SAAQ,IAAoB,CAAf,KAAK,UAAU,GAAE,CAAF,CAAvC,EACE,SAAU,6BAAwB,CAAC,KAAK,KAAK,GAAE,CAAb,CADpC;AAJ2B;AAAwB;AAiGD;AAAvB;AAG3B;AAEA,eAAU,6BAAwB,CAAC,KAAD;AAClC,UAAY,MAAD,QAAX;AAEE,YAAK;AACL;AACE,mBAAU;AACV,cAAK,8BAAyB,CAAC,CAAD;SAFhC,QAGQ,EAAF,CAAE,KAAE,IAAF,CAHR;OAHF;AAN2B;AAAuB;AAzFP;AAAhB;AAE3B;AAEA,eAAU;AACV,UAAK;AACL,UAAY,CAAD,QAAX,EACE,SAAU,CAAC,MADb;AAN2B;AAAgB;AAmHD;AAAf;AAE3B;AAEA,eAAU;AACV,UAAK;AACL,UAAY,CAAD,QAAX,EACE,SAAU,CAAC,MADb;AAN2B;AAAe;AAVJ;AAAX;AAE3B;AAEA,eAAU;AACV,UAAK;AACL,UAAY,CAAD,QAAX,EACE,SAAU,CAAC,MADb;AAN2B;AAAW;AA/FY;AAAvB;AAE3B,eAAU;AACV,UAAG,mBAAa,SAAC,EAAM,GAAE,CAAzB,EACE,SAAU,mBAAa,WAAC,CAAD,CADzB;AAH2B;AAAuB;AAmHD;AAAtB;AAE3B,eAAU;AACV,UAAG,mBAAa,SAAC,EAAM,GAAE,CAAzB;AAEE,iBAAU,mBAAa,WAAC,mBAAa,SAAC,EAAM,GAAE,CAAvB;AACvB,eAAc,CAAC,MAAD,SAAS,IAAuB,CAAlB,MAAM,YAAY,GAAE,CAAC,CAAH,CAA9C,EACE,SAAU,mBAAa,WAAC,MAAM,KAAK,GAAE,CAAd;OAJ3B;AAH2B;AAAsB;AAWJ;AAAlB;AAE3B,eAAU;AACV,UAAG,mBAAa,SAAC,EAAM,GAAE,CAAzB,EACE,SAAU,mBAAa,WAAC,mBAAa,SAAC,EAAM,GAAE,CAAvB,CADzB;AAH2B;AAAkB;AAtvBA;AAAlB;AAG3B;AAEA,eAAU;AACV,UAAK,8BAAyB,CAAC,MAAD;AAC9B,UAAY,CAAD,QAAX,EACE,SAAU,CAAC,MADb;AAP2B;AAAkB;AAWO;AAAzB;AAG3B;AAEA,eAAU;AACV,eAAS,QAAyB,OAApB,mBAAa,SAAC,EAAM,GAAE,CAAF,kBAAlC;AAAI;AAEF,YAAG,mBAAa,WAAC,CAAD,CAAG,OAAO,KAAE,MAA5B;AAEE,mBAAU,mBAAa,WAAC,CAAD;AACvB;SAHF;;AARyB;AAAyB;AAyzCf;AAAV;AAE3B,UAAY,WAAD,QAAX;AACE,iBAAU,WAAW,OAAM,SAAO,CAAC,MAAD;AAElC,qBAAU,WAAK,SAAO,CAAC,MAAD;AALG;AAAU;AAjQO;AAAjB;AAE3B;AACA;AAAG;AAAG;AACN;AAAG;AAEH,eAAU;AACV,UAAiB,CAAb,4CAAa,IAAG,oBAAH,CAAmB,IAAG,CAAI,mBAA3C,EACE,aADF;AAGA,UAAK,+BAA0B,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,UAAY,WAAD,QAAX;AAEE,cAAO,CAAC;AACR,YAAK,WAAW,KAAK,GAAE,CAAF;AACrB,eAAM,CAAE,IAAmB,CAAhB,WAAW,KAAK,GAAE,WAAW,eAAb,CAA3B;AAEE,cAAK,6BAAwB,CAAC,CAAD;AAC7B,cAAY,CAAD,QAAX;AAEE,gBAAY,CAAR,CAAC,OAAO,KAAE,MAAF,CAAU,IAAkB,CAAb,CAAC,YAAY,KAAE,WAAW,KAAb,CAAxC;AAEE,oBAAO,CAAC;AACR;aAHF;AAKA,gBAAK,CAAe,GAAX,CAAC,UAAH,GAAe,CAAF;WAGpB;;AAGJ,YAAG,GAAI,KAAE,CAAC,CAAV;AACE,iCAAkB,CAAC,YAAa,OAAQ,WAAW,KAAiC,GAA1B,WAAW,eAAb,GAA8B,CAAF,CAAK,CAAvE;AAElB,cAAA,uBAAkB,CAAC,YAAa,OAAQ,IAAK,CAA3B;;AAIpB,YAAK;AACL,YAAG,mBAAa,SAAC,EAAM,GAAE,CAAzB;AAEE,cAAK,6BAAwB,CAAC,mBAAa,SAAC,EAAM,GAAE,CAAvB;AAC7B,iBAAc,CAAC,CAAD,SAA4B,IAAN,CAAb,CAAC,YAAY,IAAG,CAAH,CAAlB,IAA0C,CAAb,CAAC,YAAY,IAAuB,CAApB,mBAAa,SAAC,EAAM,GAAE,CAAF,CAAvB,CAA5D,EACE,IAAK,6BAAwB,CAAC,CAAC,YAAF;SAJjC;AAOA,YAAY,CAAD,QAAX;AAEE,cAAG,MAAO,GAAE,CAAC,OAAb;AACE,mCAAkB,CAAC,KAAK,OAAQ,CAAC,KAAuB,GAAhB,CAAC,eAAH,GAAoB,CAAF,CAAK,CAA3C;;AAGlB,gBAAK;AACL,gBAAK;AACL,mBAAM,CAAY,CAAC,CAAD,SAAlB;AAEE,kBAAK,6BAAwB,CAAC,CAAD;AAC7B,kBAAY,CAAD,QAAX;AAEE,oBAAG,CAAC,OAAO,KAAE,MAAb;AAEE,sBAAK;AACL;iBAGA,UAAK,CAAoB,GAAhB,CAAC,eAAH,GAAoB,CAAF;eAG3B;;AAGJ,gBAAY,CAAD,QAAX,EACE,uBAAkB,CAAC,KAAK,OAAQ,CAAC,MAAM,CAArB,CADpB;;SAKF,MAAA,uBAAkB,CAAC,KAAK,EAAG,EAAG,CAAZ;;AAGtB,eAAU;AA/EiB;AAAiB;AA5rDzB;;;;;;;;AA+HC,+BAAO,U1FpZjB,+B0FoZiB,CAAP;AA/HD;AA2PG;AAAf;AAMP,aAAU;AANH;AAAe;AAniCf,2BAmBa,sCACC,sCApBd;AA7BT,mBAojCc;AA+BO;;;AAEZ;AAEL;AAJiB;;;;;;;AA/BP;AApjCd,GAojCc,yDApjCd;ACAA,iCAeS,gNAfT;;;;AAmDS,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AAWW;;AAGJ,wEAAmB,UpG2C7B,2BoG3C6B,EAAoB,aXiEzC,qDWjEyC,EAAwB,Sd+O1E,yCc/O0E,CAA/D;AAoBK;AAlBK,sDAkBL,kDAlBK;AA+FT;AA3FA;;;AAGhB;AAHgB;;;;;AAsjCiB;AAAT;AAE1B;AACA,eAAU,cAAS,UAAC;AAHM;AAAS;AAvBD;AAElC;AAFkC;AAKF;AAEhC;AACA,UAAY,aAAD,QAAX,EACE,aAAO,CAAC,IAAD,CADT;AAHgC;AAOO;AAEvC,UAAG,CAAY,CAAC,cAAD,SAAf;AAEE,yBAAa,gCAAS,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,sBAAS,UAAC,CAAU,IAAV;AACV,sBAAS,SAAC,CAAS,sCAAT;AACV,sBAAS,SAAT,GAAqB;OALvB;AAFuC;AA3iCrB;;;AAcI;;;AAEpB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAvBoB;;;;;;;;;;;;;;;;;;AAqwCkB;AAExC,UAAc,CAAV,YAAO,EAAG,KAAG,KAAK,EAAR,CAAY,IAAc,CAAV,YAAO,EAAG,KAAG,KAAK,EAAR,CAAxC;AAEE,6BAAW,KAAX;AACA;OAHF;AAFwC;AAmCF;AAEtC,UAAa,CAAT,UAAK,GAAI,KAAG,KAAK,GAAR,CAAa,IAAa,CAAT,UAAK,GAAI,KAAG,KAAK,GAAR,CAAvC;AAEE,2BAAS,KAAT;AACA;OAHF;AAFsC;AA0UE;AAExC,UAAY,CAAR,aAAQ,IAAG,gBAAH,CAAgB,IAAgB,CAAX,eAAW,IAAG,oBAAH,CAA5C,EACE,qBADF;AAEA,UAAY,CAAR,aAAQ,IAAG,gBAAH,CAAgB,IAAK,eAAjC;AAEE,0BAAc;OAFhB;AAJwC;AA3VY;AAEpD,8BAAmB,OAAO,CAAC,KAAD;AAF0B;AATT;AAE3C,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd;OAHF;AAF2C;AAcO;AAElD,UAAG,sBAAkB,KAAG,KAAxB;AAEE,YAAG,sBAAkB,KAAG,IAAxB,EACa,sBAAkB,uBAAuB,CAAC,IAAD,CADtD;AAEA,iCAAqB;AACrB,YAAG,sBAAkB,KAAG,IAAxB,EACa,sBAAkB,iBAAiB,CAAC,IAAD,CADhD;OALF;AAFkD;AA7DF;AAEhD,6BAAmB;AAF6B;AAiCA;AAEhD,0BAAe,OAAO,CAAC,KAAD;AAF0B;AAzBA;AAEhD,UAAG,oBAAgB,KAAG,KAAtB;AAEE,YAAG,oBAAgB,KAAG,IAAtB,EACa,oBAAgB,uBAAuB,CAAC,IAAD,CADpD;AAEA,+BAAmB;AACnB,YAAG,oBAAgB,KAAG,IAAtB;AAEa,8BAAgB,iBAAiB,CAAC,IAAD;AAC5C;AACE,gCAAe,UAAC,CAAU,IAAV;AAKhB,gCAAe,SAAC,CAAS,oCAAT;AAEhB,gCAAe,WAAC,CAAW,IAAX;AARlB;;SAHF;OALF;AAFgD;AA9DV;AAAR;AAM9B,eAAU;AACV,UAAa,uBAAH,eAAP,aAAO,CAAV,EACE,SAAiB,OAAP,cAAU,uBAAH,CADnB;AAP8B;AAAQ;AAybK;AAE3C,yBAAe;AACf,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,IAAD,CADd;AAGA,wBAAc;AAEd,UAAG,CAAY,CAAC,WAAD,SAAf,EACE,cAAU,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN,CADnB;AAGA,iBAAM,YAAC,CAAY,EAAZ;AACP,iBAAM,SAAN,GAAkB;AAClB,iBAAM,WAAC,CAAW,IAAX;AAboC;AANC;AAE5C,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,IAAD,CADf;AAF4C;AAnSD;AAE3C,oBAAS,CAAC,UAAK,CAAC,KAAK,KAAN,EAAc,UAAK,CAAC,KAAK,IAAN,EAAa,UAAK,CAAC,KAAK,MAAO,GAAE,KAAK,KAApB,EAA4B,UAAK,CAAC,KAAK,OAAQ,GAAE,KAAK,IAArB,CAA5E;AAFkC;AA9KL;AAGtC,sBAA4B,uCAA5B;AAEA;AACA,UAAG,iBAAY,KAAgB,uCAA/B;AAEE,YAAY,WAAD,QAAX,EACE,WAAM,WAAC,CAAW,KAAX,CADT;OAFF;AANsC;AA0LS;;AAE/C;AAMA;AAAI;AAEJ;AACA;AACA;AACA;AACA;AACA;AACA;AAC2B;AAAlB;AAEP;AACA;AACA;AAAG;AAKH;AAGA,iBAAU;AACV,SAAC,KAAD,GAAU,UAAK,CAAC,CAAC,KAAF;AACf,SAAC,IAAD,GAAS,UAAK,CAAC,CAAC,IAAF;AACd,SAAC,MAAD,GAAW,UAAK,CAAC,CAAC,MAAF;AAChB,SAAC,OAAD,GAAY,UAAK,CAAC,CAAC,OAAF;AA8BjB,oBAAY,KAAZ,GAAqB;AACrB,oBAAY,IAAZ,GAAoB;AACpB,oBAAY,MAAZ,GAAsB;AACtB,oBAAY,OAAZ,GAAuB;AAwBvB,8BAAiB,+BAAK,CAAC,YAAY,KAAM,GAAE,qBAAc,MAAhB,CAAuB,YAAY,IAAK,GAAE,qBAAc,KAAhB,CAC/E,YAAY,MAAO,GAAE,qBAAc,OAAhB,CAAwB,YAAY,OAAQ,GAAE,qBAAc,QAD3D,CAAtB;AAEA,YAAG,CAAiB,CAAZ,2CAAY,IAAG,EAAH,CAApB;AAEE,cAAK,CAAC,MAAO,GAAE,CAAC,KAAH;AACb,cAAK,CAAC,OAAQ,GAAE,CAAC,IAAH;AACd,cAAG,CAAC,KAAM,GAAE,aAAa,KAAzB;AAEE,gBAAG,CAAC,KAAM,GAAsB,CAApB,aAAa,MAAO,GAAE,CAAF,CAAhC;AAEE,eAAC,KAAD,GAAU,aAAa,MAAO,GAAE,CAAF;AAC9B,kBAAG,UAAW,KAAE,kCAAhB;AAEE,6BAAc;AACd,yBAAU;eAHZ;AAKA,kBAAG,UAAW,KAAE,wCAAhB;AAEE,6BAAc;AACd,yBAAU;eAHZ;aARF;;AAiBA,aAAC,KAAD,GAAU,aAAa;AACvB,gBAAG,UAAW,KAAE,iCAAhB;AAEE,2BAAc;AACd,uBAAU;aAHZ;AAKA,gBAAG,UAAW,KAAE,uCAAhB;AAEE,2BAAc;AACd,uBAAU;aAHZ;;AAMF,cAAG,CAAC,IAAK,GAAE,aAAa,IAAxB;AAEE,gBAAG,CAAC,IAAK,GAAuB,CAArB,aAAa,OAAQ,GAAE,CAAF,CAAhC;AAEE,eAAC,IAAD,GAAS,aAAa,OAAQ,GAAE,CAAF;AAC9B,kBAAG,UAAW,KAAE,mCAAhB;AAEE,6BAAc;AACd,yBAAU;eAHZ;AAKA,kBAAG,UAAW,KAAE,yCAAhB;AAEE,6BAAc;AACd,yBAAU;eAHZ;aARF;;AAiBA,aAAC,IAAD,GAAS,aAAa;AACtB,gBAAG,UAAW,KAAE,gCAAhB;AAEE,2BAAc;AACd,uBAAU;aAHZ;AAKA,gBAAG,UAAW,KAAE,sCAAhB;AAEE,2BAAc;AACd,uBAAU;aAHZ;;AAMF,WAAC,MAAD,GAAW,CAAC,KAAM,GAAE,CAAF;AAClB,WAAC,OAAD,GAAY,CAAC,IAAK,GAAE,CAAF;SAnEpB;AA3EO;AAAkB;AAkJ3B,+BAAqB;AACrB,sBAAW,YAAX;AACA,mBAAc;AACd,cAAS;AACT;AACE,sBAAS,+BAAK,CAAC,wBAAmB,OAAO,wBAAmB,MAAM,wBAAmB,QAAQ,wBAAmB,QAAlG,CAAd;AACA,YAAqB,CAAjB,sBAAiB,KAAG,IAAH,CAAQ,IAAI,wBAAmB,QAApD,EACE,cAAS,+BAAK,CAAC,EAAG,EAAG,sBAAgB,SAAC,GAAO,sBAAgB,UAAC,EAAhD,CAAd,CADF;AAEA,YAAqB,CAAjB,sBAAiB,KAAE,IAAF,CAAoC,IAAzB,wBAAkB,QAAtB,IACxB,CAAgB,CAAX,UAAW,IAAG,cAAC,sCAAY,mCAAS,yCAAe,wCAAc,6CAAnD,CAAH,CADpB;AAUA,0CAAwB,KAAxB;AAEA,YAAG,UAAW,IAAG,cAAC,iCAAO,sCAAR,CAAjB;AACE,kDAAY,CAAC,MAAO,EAAG,oBAAc,QAAQ,GAAE,OAAO,EAA1C;AAEZ,cAAA,wCAAY,CAAC,MAAO,EAAG,OAAO,EAAG,GAAE,oBAAc,KAArC;AAEd,YAAG,UAAW,IAAG,cAAC,kCAAQ,uCAAT,CAAjB;AACE,kDAAY,CAAC,MAAO,oBAAc,OAAO,GAAE,OAAO,EAAT,CAAa,CAA1C;AAEZ,cAAA,wCAAY,CAAC,MAAO,OAAO,EAAG,GAAE,oBAAc,MAAhB,CAAuB,CAAzC;AAEd,4BAAqB,CAAgB,CAAX,UAAW,IAAG,cAAC,sCAAY,mCAAS,yCAAe,wCAAc,6CAAnD,CAAH;AACrC,2BAAc,UAAd;AAEK;AACH,YADG,IACH;AACE,kDAAY,CAAC,MAAO,EAAI,KAAK,OAAQ,GAAE,KAAK,IAAhC;AACd,kBAHG,IAGH;AACE,kDAAY,CAAC,MAAO,EAAG,CAAC,UAAU,GAAtB;AACd,kBALG,IAKH;AACE,kDAAY,CAAC,MAAO,CAAC,UAAU,IAAK,CAAxB;AACd,kBAPG,IAOH;AACE,kDAAY,CAAC,MAAQ,KAAK,MAAO,GAAE,KAAK,IAAP,CAAc,CAAnC;AACd,kBATG,IASH;AACE,kDAAY,CAAC,MAAkC,CAAzB,KAAK,MAAoB,GAAX,KAAK,IAAP,GAAe,UAAU,GAAZ,CAAiB,GAAE,CAAF,CAAiC,CAA1B,KAAK,OAAqB,GAAX,KAAK,IAAP,GAAe,UAAU,GAAZ,CAAiB,GAAE,CAAxG;AACd,kBAXG,IAWH;AACE,kDAAY,CAAC,MAAkC,CAAzB,KAAK,MAAoB,GAAX,KAAK,IAAP,GAAe,UAAU,GAAZ,CAAiB,GAAE,CAAF,CAAM,KAAK,OAAQ,GAAE,KAAK,IAA9E;AACd,kBAbG,IAaH;AACE,kDAAY,CAAC,MAAkC,CAAzB,KAAK,MAAoB,GAAX,KAAK,IAAP,GAAe,UAAU,GAAZ,CAAiB,GAAE,CAAF,CAAK,CAAC,UAAU,GAApE;AACd,kBAfG,IAeH;AACE,kDAAY,CAAC,MAAO,CAAC,UAAU,IAAiC,CAA1B,KAAK,OAAqB,GAAX,KAAK,IAAP,GAAe,UAAU,GAAZ,CAAiB,GAAE,CAAvE;AACd,kBAjBG,IAiBH;AACE,kDAAY,CAAC,MAAQ,KAAK,MAAO,GAAE,KAAK,IAAP,CAA0C,CAA1B,KAAK,OAAqB,GAAX,KAAK,IAAP,GAAe,UAAU,GAAZ,CAAiB,GAAE,CAAlF;AACd,kBAnBG,IAmBH;AAEI,cAAG,wBAAmB,QAAtB;AACE,0BAAS,+BAAK,CAAC,wBAAmB,OAAK,MAAO,wBAAmB,OAAK,KAAM,wBAAmB,OAAK,KAAM,GAAE,UAAU,GAAZ,CAAiB,wBAAmB,OAAK,IAAK,GAAE,UAAU,GAAtJ,CAAd;AAEA,8BAAS,wBAAmB,OAA5B;SAEN,WA1BG,IA0BH,4CAAS,CA1BN,IA0BM,8CAAT,IAAwB,CA1BrB,IA0BqB,6CAAxB,IAAsC,CA1BnC,IA0BmC,mDAAtC;AAEI,sBAAO,sCAAY,cAAnB;AACA,wBAAS,+BAAK,CAAC,GAAG,GAAI,GAAG,GAAI,GAAG,EAAG,GAAE,UAAU,GAAZ,CAAiB,GAAG,EAAG,GAAE,UAAU,GAAxD,CAAd;AACA,cAAG,UAAW,KAAE,wCAAhB,EACE,wCAAY,CAAC,MAAO,CAAC,UAAU,GAAI,GAAE,CAAF,CAAK,CAAC,UAAU,GAAI,GAAE,CAA7C,CADd;AAEA,cAAG,UAAW,KAAE,6CAAhB,EACE,wCAAY,CAAC,MAAO,CAAC,UAAU,GAAI,GAAE,CAAF,CAAK,CAAC,UAAU,GAAI,GAAE,CAA7C,CADd;AAEA,cAAG,UAAW,KAAE,uCAAhB,EACE,wCAAY,CAAC,MAAO,EAAG,CAAC,UAAU,GAAI,GAAE,CAA5B,CADd;SARJ;AAaF,YAAG,iBAAH;AAME,8BAAe,eAAK,CAAC,UAAK,CAAC,KAAK,KAAN,EAAc,UAAK,CAAC,KAAK,IAAN,CAAzB,CAApB;AAEA,cAAG,sBAAiB,KAAG,IAAvB;AAcE,gCAAe,sBAAgB,eAAe,CAAC,WAAD,CAA9C;AACA,uBAAM,eAAK,CAAC,UAAK,CAAC,yBAAoB,KAArB,EAA6B,UAAK,CAAC,yBAAoB,IAArB,CAAxC,CAAX;AACA,uBAAM,sBAAgB,eAAe,CAAC,EAAD,CAArC;AACA,qCAAoB,KAApB,GAA6B,EAAE;AAC/B,qCAAoB,IAApB,GAA4B,EAAE;AAC9B,uBAAM,eAAK,CAAC,UAAK,CAAC,yBAAoB,MAArB,EAA8B,UAAK,CAAC,yBAAoB,OAArB,CAAzC,CAAX;AACA,uBAAM,sBAAgB,eAAe,CAAC,EAAD,CAArC;AACA,qCAAoB,MAApB,GAA8B,EAAE;AAChC,qCAAoB,OAApB,GAA+B,EAAE;WAtBnC;AAyBA,wBAAS,+BAAK,CAAC,WAAW,GAAI,WAAW,GAAI,WAAW,EAAG,GAAE,UAAI,GAAN,CAAW,WAAW,EAAG,GAAE,UAAI,GAA5E,CAAd;SAjCF;AAmCA,kBAAW,kBAAkB,CAAC,MAAO,gCAAR;AACzB,aAAJ,IAAG;OAxGL,QAyGc,EAAR,OAAQ,IAAU,CAAN,KAAM,GAAE,CAAF,CAAV,CAzGd;AA0GA,sCAAsB,KAAtB;AACA,sCAAsB,+BAAK,CAAC,uBAAkB,KAAM,GAAE,oBAAe,MAAjB,CAAwB,uBAAkB,IAAK,GAAE,oBAAe,KAAjB,CAAuB,uBAAkB,MAAO,GAAE,oBAAe,OAAjB,CAAyB,uBAAkB,OAAQ,GAAE,oBAAe,QAA5L,CAA3B;AACA,4BAAkB;AAClB,uBAAY,CAAC,8CAAD;AApRmC;AAnBV;AAErC;AACA,UAAG,sBAAH,EACE,qBADF;AAHqC;AAYC;AAEtC;AACA,UAAG,sBAAH,EACE,qBADF;AAHsC;AA3Ha;AAEnD,UAAY,eAAD,QAAX,EACE,eAAK,uBADP;AAFmD;AAPP;AAAd;AAE9B,eAAU;AACV,UAAW,CAAC,aAAD,SAAS,IAAe,uBAAH,eAAP,aAAO,CAAhC,EACE,SAAkB,OAAP,cAAU,uBAAH,CAAsB,YAD1C;AAH8B;AAAc;AAoBD;AAE3C;AACA,UAAG,SAAU,KAAE,+BAAf;AAEE,YAAG,UAAW,KAAE,sBAAhB;AAEE,mCAAqB;AACrB;SAHF;AAKA,YAAG,UAAW,KAAE,oBAAhB,EACE,uBAAmB,IADrB;OAPF;AAH2C;AAxDU;AAErD,UAAY,4BAAD,QAAX,EACE,4BAAuB,CAAC,IAAD,CADzB;AAFqD;AAzFX;;AAKf;AAAlB;AAEP;AAEA,YAAK;AACL,iBAAU;AACV,eAAmC,CAA5B,0CAAmB,CAAC,MAAD,CAAS,KAAG,IAAH,CAAQ,IACpB,CAAR,CAAP,MAAO,KAAG,IAAH,CAAQ,IAAkC,CAA7B,MAAM,cAAc,CAAC,MAAD,CAAS,KAAG,IAAH,CAAlC,CADvB;AAGM,WAAJ,IAAG;AACH,mBAAU,mBAAM,CAAC,QAAS,mBAAC,QAAM,GAAP,CAAV;;AAVX;AAAkB;AAc3B,mBAAQ,kBAAkB,CAAC,iBAAD,CAA1B;AACA;AACA,mCAAyB,CAAC;AAC1B,sBAAU;AACV,6BAAmB;AACnB,iCAAuB,wCAAc,QAAC;AACtC,6BAAmB,wCAAc,QAAC;AAClC,gBAAK,GAAL,GAAY;AACZ,gBAAK,GAAL,GAAY;AACZ,wBAAc;AACd,4BAAkB;AAClB,sBAAW,KAAX;AACA;AAsBE,uBAAU,2CAAV;AACA,yBAAY,wCAAZ;AAvBF;;AA/B+E;AAArC;AAbH;AAEvC,oBAAS,CAAC,OAlgCoD,CAkgCrD;AACT;AACE,YAAG,iBAAkB,KAAG,IAAxB,EACE,yBAAqB,iBADvB;AAEA,YAAG,sBAAkB,KAAG,IAAxB,EACa,sBAAkB,iBAAiB,CAAC,IAAD,CADhD;AAHF;;AAH+F;AAAxD;AA4EA;AAEvC,6BAAU,CAAC;;;;UAAD;AACV,UAAG,sBAAkB,KAAG,IAAxB;AAEa,8BAAkB,uBAAuB,CAAC,IAAD;AACpD,iCAAqB;OAHvB;AAKA,6BAAU,CAAC;;;;UAAD;AACV,6BAAU,CAAC;;;;UAAD;AACV;AAVuC;AA8fM;AAE7C;AAAS;AACT;AAME,sBAAW,cAAI,CAAC,eAAM,cAAK,cAAK,GAAE,eAAF,CAAS,aAAI,GAAE,gBAAhC,CAAf;AACA,yBAAoB;AACpB;AACA,sBAAW,cAAI,CAAC,eAAM,cAAK,cAAK,GAAE,eAAF,CAAS,aAAI,GAAE,gBAAhC,CAAf;AACA,UAAiB,CAAb,OAAO,KAAM,KAAG,OAAO,KAAV,CACf,IADgD,CAAZ,OAAO,IAAK,KAAG,OAAO,IAAV,CAAhB,IAAmD,CAAf,OAAO,OAAQ,KAAG,OAAO,OAAV,CAAnB,IAAwD,CAAd,OAAO,MAAO,KAAG,OAAO,MAAV,CAAlB,IACjF,CAAjB,gBAAiB,KAAG,mBAAH,CADvB,EAEE,6BAFF;AAb2C;AA9dP;AAEtC;AACA,UAAS,UAAN,MAAS,EAAH,CAAT,EACE,MADF;AAGK;AACH,WADG,IACH,YAAY,CADT,IACS,SAAZ,EAAoB,YAApB;AAPoC;AA2CE;AAAV;AAE9B,eAAoB;AACpB,UAAG,MAAO,IAAK,CAAkB,CAAb,4CAAa,IAAG,oBAAH,CAAjC,EACE,oBADF;AAH8B;AAAU;AAzsClB;;;AAkDC,gCAAO,U3FsapB,+B2FtaoB,EAAmB,qBAA1B;AAKH,+BAAO,U3FiajB,+B2FjaiB,EAA+B,qBvFoIlD,wCuFpIkD,CAAtC;AAvDE;AA6EJ;;;AAEhB;AACA;AACA;AAIA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAhCgB;;;;;;;;;;;;;;;;AA0oBkB;AAEpC;AAEA,UAAG,YAAQ,KAAG,KAAd;AAEE,YAAK;AAGT;AAII,YAAG,CAAI,CAAE,IAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAA1B;AAEE,yBAAW;AACX;SAHF;AAMA,YAAG,KAAH;AACE,6BAvlBkD;;AA0lBlD,cAAG,mBAAH;AACE,2BAAU;AAEV,+BAAW;;OAtBjB;AAJoC;AAoMY;AAEhD,8BAAmB,OAAO,CAAC,KAAD;AAFsB;AAtbP;AAEzC,0BAAgB;AAChB,UAAY,eAAD,QAAX,EACE,eAAU,eAAC,CAAe,iBAAf,CADb;AAHyC;AA2bK;AAE9C,UAAG,sBAAkB,KAAG,KAAxB;AAEE,YAAG,sBAAkB,KAAG,IAAxB,EACE,sBAAiB,uBAAuB,CAAC,IAAD,CAD1C;AAEA,iCAAqB;AACrB,YAAG,mBAAH,EACE,eAAU,oBAAC,CAAoB,sBAApB,CADb;AAEA,YAAG,sBAAkB,KAAG,IAAxB,EACE,sBAAiB,iBAAiB,CAAC,IAAD,CADpC;OAPF;AAF8C;AAfP;AAEvC,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd,YAAG,mBAAH,EACE,eAAS,aAAC,CAAa,eAAb,CADZ;OAHF;AAFuC;AA8FK;AAE5C,UAAG,oBAAgB,KAAG,KAAtB;AAEE,+BAAmB;AACnB,YAAG,mBAAH,EACE,eAAU,kBAAC,CAAkB,oBAAlB,CADb;OAHF;AAF4C;AAzPH;AAEzC,qBAAW;AACX;AAHyC;AA6CC;AAE1C,qBAAW;AAF+B;AAKN;AAepC;AAfoC;AAgKD;AAEnC,UAAW,CAAC,eAAD,SAAa,IAAI,eAAU,WAAtC,EACE,2BADF;AAGA;AALmC;AA3mBM;AAQzC,UAAG,4CAAa,IAAG,oBAAnB,EACE,MADF;AAGA,UAAW,CAAC,eAAD,SAA2C,IAA1B,CAAI,eAAU,WAAlB,IAAkC,CAAI,eAA9D;AAwCE,uBAAU,WAAC,CAAW,KAAX;AACX,uBAAU;AACV,0BAAc;AACd,0BAAc;OA3ChB;AAXyC;AAilBE;AAE3C,UAAsB,CAAlB,mBAAc,GAAI,KAAG,KAAK,GAAR,CAAa,IAAsB,CAAlB,mBAAc,GAAI,KAAG,KAAK,GAAR,CAAzD;AAEE,oCAAkB,KAAlB;AACA;OAHF;AAF2C;AAlLD;AAE1C;AAEA,UAAG,eAAW,KAAG,IAAjB;AAEE,YAAI,mBAAc,GAAI,GAAE,CAAxB;AACE,eAAK,GAAL,GAAY,mBAAc;AAE1B,cAAA,KAAK,GAAL,GAAY;AACd,YAAI,mBAAc,GAAI,GAAE,CAAxB;AACE,eAAK,GAAL,GAAY,mBAAc;AAE1B,cAAA,KAAK,GAAL,GAAY;AAEd,uBAAU,QAAC,CAAQ,KAAR;OAXb;AAJ0C;AAkOE;AAE5C,UAAG,KAAM,KAAE,IAAX;AAEE,YAAY,oBAAD,QAAX,EACE,oBAAe,WAAC,CAAW,IAAX,CADlB;OAFF;AAMA,6BAAmB;AACnB,UAAY,oBAAD,QAAX;AAEE,4BAAe,WAAC,CAAW,KAAX;AAChB,8BAAiB,oBAAe,SAAC,EAAjC;AACA,+BAAkB,oBAAe,UAAC,EAAlC;OAJF;AAT4C;AA2BA;AAE5C,UAAG,oBAAgB,KAAG,KAAtB;AAEE,+BAAmB;AACnB,YAAY,eAAD,QAAX,EACE,eAAS,UAAC,CAAU,UAAK,CAAC,KAAD,CAAf,CADZ;OAHF;AAF4C;AAUD;AAE3C,UAAG,mBAAe,KAAG,KAArB;AAEE,8BAAkB;AAClB,YAAY,eAAD,QAAX,EACE,eAAS,SAAC,CAAS,UAAK,CAAC,KAAD,CAAd,CADZ;OAHF;AAF2C;AAxIN;AAAX;AAE1B,eAAU;AAFgB;AAAW;AALF;AAAT;AAE1B,eAAU;AAFgB;AAAS;AAsBC;AAAV;AAE1B,eAAU,4BAAgB,CAAC,EAAS,EAAS,EAAS,CAA5B;AAFA;AAAU;AAqEM;AAE1C;AACG;AAHuC;AAI1C;AACA,YAAY,oBAAD,QAAX;AAEE,cAAG,uBAAQ,CAAC,oEAAgB,iEAAqB;;;;cAAtC,CAAX,EACE,EAAE,gBAAC,CAAgB,kBAAhB,CADL;SAFF;AAL0C;AAGvC;AADH;AAF0C;;AA1BN;AAEpC,UAAG,MAAH;AACE,4BAAgB,eAAU;;AAG1B,uBAAU;AAOV;;AAbkC;AAhiBW;AAE/C;AAEA,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,oBAAD,SAApC;AAEE,YAAG,CAAI,eAAU,WAAjB;AAEE,gBAAO,sCAAY,cAAc,CAAC,oBAAD;AACjC,cAAW,CAAC,GAAD,SAAM,IAAS,CAAJ,GAAI,KAAG,eAAH,CAA1B;AAME,eAAG;WANL;SAHF;AA0BA,YAAqB,+BAAH,eAAf,oBAAe,CAAlB;AAEE,cAAmB,OAAf,qBAAkB,+BAAH,CAAY,WAA/B,EACkB,OAAf,qBAAkB,+BAAH,CAAY,WAD9B;SAFF;OA5BF;AAJ+C;AA2bX;AAGpC;AACA;AAEA,UAAY,eAAD,QAAX;AAEE,YAAK,4CAAe,QAAC,YAAM,CAAC,eAAU,YAAC,GXvvBiB,KWuvB7B,CAAN;AACrB,SAAC;AACD;AACE,WAAC,MAAK,QAAC,CAAQ,kEAAR;AACP,WAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,cAAc,CAAV,eAAU,KAAG,EAAH,CAAW,IAAiB,CAAZ,iBAAY,KAAG,EAAH,CAA1C;AAEE,aAAC,MAAK,SAAC,CAAS,eAAT;AACP,aAAC,QAAO,SAAC,CAAS,iBAAT;;AAIT,aAAC,MAAK,SAAC,CAAS,4CAAe,sBAAxB;AACP,aAAC,QAAO,SAAC,CAAS,4CAAe,wBAAxB;;AAGX,oBAAK,+BAAK,CAAC,EAAG,EAAG,eAAU,SAAC,GAAO,eAAU,UAAC,EAApC,CAAV;AACA,WAAC,gBAAc,CAAC,2CX9tB2E,6EW8tB5E;AAEf,cAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAM,EAAG,0CAAV,CADd;AAjBF;AAoBE,WAAC;AACD,WAAE,eAAF,CAAE;AArBJ;OAJF;AANoC;AAjBG;AAGvC,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAM,UAAW,8CAAlB,CADd;AAHuC;AAvIA;AAEvC;AACA,UAAG,SAAU,KAAE,+BAAf;AAEE,YAAG,UAAW,KAAE,oBAAhB,EACE,uBAAmB,IADrB;AAGA,YAAG,UAAW,KAAE,oBAAhB,EACE,uBAAmB,IADrB;AAGA,YAAI,UAAW,KAAE,eAAjB,EACE,kBAAc,IADhB;AAEA,YAAI,UAAW,KAAE,sBAAjB;AAEE,mCAAqB;AACrB,cAAG,mBAAH,EACE,eAAU,oBAAC,CAAoB,IAApB,CADb;SAHF;OAVF;AAHuC;AArPE;AAEzC,UAAI,eAAW,KAAG,IAAlB,EACE,eAAU,sBAAC,CAAsB,wBAAtB,CADb;AAFyC;AAiHF;AAEvC,UAAY,kBAAD,QAAX,EACE,kBAAa,CAAC,IAAD,CADf;AAFuC;AAqQL;AAElC,UAAY,aAAD,QAAX,EACE,aAAQ,CAAC,IAAD,CADV;AAFkC;AAaK;AAEvC,UAAY,kBAAD,QAAX,EACE,kBAAa,CAAC,IAAD,CADf;AAFuC;AAhUF;AAErC;AAEA,UAAG,CAAI,mBAAa,IAAG,qBAAvB,EACE,MADF;AAGA,8BAAoB;AACpB,UAAG,WAAO,IAAkB,CAAb,iBAAa,KAAE,CAAF,CAA5B;AAEE,4BAAe,CAAf;AACA;OAHF;AAMA,qBAAW;AACX,UAAY,oBAAD,QAAX;AAEE,YAAK;AACL,4BAAe,WAAC,CAAW,KAAX;AAKhB,YAAW,CAAC,CAAD,SAAI,IAAU,kCAAH,eAAF,CAAE,CAAtB;AACE,8BAAe,UAAC,CAAY,OAAF,EAAK,kCAAH,CAAZ;AAEA,cAAhB,oBAAe,UAAC,CAAU,sCAAY,cAAc,CAAC,IAAD,CAApC;OAXpB;AAeA,UAAG,CAAkB,CAAb,4CAAa,IAAG,oBAAH,CAArB;AAEE,YAAG,mBAAH;AAKE,cAAW,6BAAH,eAAL,IAAK,CAAR,EACa,SAAX,KAAW,aADb;AAEA;AACA,4BAAc;SARhB;OAFF;AAaA,8BAAoB;AA3CiB;AAoDG;AAGxC;AA0BG;AA7BqC;AA8BxC,YAAiC,CAAd,CAAd,qBAAc,GAAE,eAAF,CAAc,GAAE,GAAF,CAAO,IAAI,eAA5C;AAEE,4BAAc;AACd;SAHF;AAMA,YAAG,YAAH,EACE,MADF;AAGA,YAAG,mBAAH,EACE,eAAU,QADZ;AAGA,0BAAc;AACd;AACE;AAoBE,2BAAU,aAAC,CAAa,0CAAb;AAGX,2BAAU,SAAV,GAAsB;AACtB,2BAAU,cAAV,GAA2B;AAEhB,2BAAW,iBAAiB,CAAC,IAAD;AACvC,2BAAU,aAAC,CAAa,eAAb;AACX,2BAAU,UAAC,CAAU,gCAAM,CAAC,IAAI,mBAAmB,IAAI,gBAA5B,CAAhB;AACX,2BAAU,sBAAC,CAAsB,IAAI,oBAA1B;AACX,2BAAU,kBAAC,CAAkB,oBAAlB;AACX;AACA,2BAAU,cAAV,GAA2B;AAC3B,2BAAU,cAAV,GAA2B;AAC3B,2BAAU,eAAV,GAA4B;AAC5B,2BAAU,SAAV,GAAsB;AACtB,2BAAU,QAAV,GAAqB;AACrB,2BAAU,WAAV,GAAyB;AAezB,2BAAU,kBAAC,CAAkB,oBAAlB;AAEX,gBAAG,uBAAQ,CAAC,oEAAiB,iEAAqB;;;;gBAAvC,CAAX,EACE,EAAE,gBAAC,CAAgB,kBAAhB,CADL;AAQA,gBAAY,oBAAD,QAAX,EACE,oBAAe,SAAC,CAAS,sCAAT,CADlB;AA9DF;;AADF;AAqEE,iCAAU,CAAC;;;;cAAD;AACV;AAtEF;AAyEA,YAAI,CAAkB,CAAb,4CAAa,IAAG,oBAAH,CAAtB,EACE,eAAU,eADZ;AAGA,sBAAS,CAAC,UAAD;AAET,YAAY,kBAAD,QAAX,EACE,eAAU,QADZ;AAzHwC;AA6BrC;AA1BH;AAHwC;;AArOG;AAE3C,UAAY,eAAD,QAAX,EACa,SAAX,KAAW,aADb;AAF2C;AAgjBA;AAAjB;AAE1B,eAAU;AAFgB;AAAiB;AAPR;AAAT;AAE1B,eAAU;AACV,UAAG,CAAY,CAAC,MAAD,SAAS,IAAe,+BAAH,eAAP,aAAO,CAApC,EACE,SAAiB,OAAP,cAAU,+BAAH,CADnB;AAH0B;AAAS;AArbM;AAAf;AAE1B;AACA;AAEA,gBAAW;AACX;AACE,cAAO;AAKP,kBAAW,GAAG,QAAC,YAAM,CAAC,KAAM,sBAAP,CAAN;AANjB;AASE,+BAAU,CAAC;;;;YAAD;AACV;AAVF;AAYA,eAAU;AAlBgB;AAAe;AAhJN;AAEnB,oFAAC,MAAD;AAChB,sBAAU;AACV,wBAAc;AACd,wBAAc;AACd,wBAAc;AACd,iCAAuB,wCAAc,QAAC;AACtC,8BAAmB,UAAnB,GAAiC;AACjC,wBAAc;AACd,0BAAgB;AAVwC;AAArB;AAodF;AAEjC,UAAa,uBAAH,eAAP,MAAO,CAAV;AAEE,4BAAwB,OAAP,OAAU,uBAAH,CAAsB;AAC9C,oCAA0B,OAAP,OAAU,uBAAH,CAAsB,eAAhD;AACA,+BAA2B,OAAP,OAAU,uBAAH,CAAsB;AACjD,0BAAsB,OAAP,OAAU,uBAAH,CAAsB;AAC5C,+BAA2B,OAAP,OAAU,uBAAH,CAAsB;AACjD,8BAA0B,OAAP,OAAU,uBAAH,CAAsB;AAChD,iCAA6B,OAAP,OAAU,uBAAH,CAAsB;AACnD,iCAA6B,OAAP,OAAU,uBAAH,CAAsB;AACnD,0BAAsB,OAAP,OAAU,uBAAH,CAAsB;AAC5C,gCAAmB,OAAO,CAAS,OAAP,OAAU,uBAAH,CAAsB,oBAA/B;AAC1B,+BAA2B,OAAP,OAAU,uBAAH,CAAsB;AACjD,+BAA2B,OAAP,OAAU,uBAAH,CAAsB;AACjD,+BAA2B,OAAP,OAAU,uBAAH,CAAsB;OAdnD;AAFiC;AAvcE;AAEnC,6BAAmB;AACnB;AACA,UAAG,mBAAH;AAEE,+BAAU,CAAC;;;;YAAD;OAFZ;AAIA,6BAAU,CAAC;;;;UAAD;AAIV;AAZmC;AAwHG;AAAZ;AAE1B,eAAU,eAAW,KAAG,IAAH;AAFK;AAAY;AAgRA;AAAZ;AAE1B,eAAU;AACV,UAAY,eAAD,QAAX,EACE,SAAU,oCAAU,CAAC,+BAAK,CAAC,eAAU,QAAC,GAAM,eAAU,OAAC,GAAK,eAAU,QAAC,EAAK,GAAE,eAAU,SAAC,EAAb,CAAoB,eAAU,OAAC,EAAI,GAAE,eAAU,UAAC,EAAlG,EAA2G,MAAjH,CADtB;AAH0B;AAAY;AAnoBpB;;;;;AAkGE,+BAAO,U3FySjB,+B2FzSiB,CAAP;AAlGF;AA8GN;AAuU+B;AAE3C;AACA,+BAAa,CAAC,iBAAD;AAH8B;AAtBb;AAAV;AAEpB;AAEA,eAAU;AACV,UAAG,YAAH,EACE,aADF;AAGA,UAAG,mBAAH,EACE,eAAU,QADZ;AAGA,mBAAc;AACd;AACE,0BAAc;AACd,kBAAK,CAAC,IAAD;AACL,iBAAU;AACV,uBAAU,KAAV;AAJF;AAME,0BAAc;AANhB;AAZoB;AAAU;AAZJ;AAE1B,wBAAa,CAAC,UAAD;AAFa;AArSd;;;;;AAaQ;AACK;AACD;AACG;AACP,iCAnOC,oCAmOD;AACS,0CdgWf,kDchWe;AACF,wCvFnBnB,yCuFmBmB;AACF;AACA,sCvFrBjB,yCuFqBiB;AACA,sCvFtBjB,yCuFsBiB;AACF,oCvF9GX,6CuF8GW;AACA,oCAvON,gCAuOM;AACL,+BvFhHN,6CuFgHM;AACK,oCvFjHX,6CuFiHW;AACL;AA3BN;;AAuCsB;AA6+CqB;AAQvD;AARuD;AA7+CrB;;;AA2BJ;AAs5C+B;;AAuBb;AA6BhD;AAGA,qBAAW;AAhCqC;AALO;AAAjB;AAEtC,eAAU;AAF4B;AAAiB;AAXR;AAE/C;AACA,wBAAa;AAHuD;AAArB;AAMA;AAE/C;AAF+C;AAn6CjB;;;;;AAUV,+BAAO,U3FiNjB,+B2FjNiB,CAAP;AAVU;AAcN;AA+iDmB;AAE3C;AAF2C;AAKF;AAEzC,wBAAa,CAAC,KAAD;AAF4B;AApjDjB;;;;;AAKC,sCvFrFjB,yCuFqFiB;AACL,iCAxSC,oCAwSD;AACS,0Cd2Rf,kDc3Re;AACF,wCvFxFnB,yCuFwFmB;AARH;AAnW1B,mBA8Wc;AA2BQ;AAAb;AAEP;AAAG;AAAG;AAAG;AAET,6BAAU,CAAC,mBAAK;;;;WAAG;;;;WAAG;;;;WAAG;;;;UAAf;AACV,eAAU,EAA8B,GAAvB,CAAF,CAAE,GAAE,IAAF,CAAJ,GAAoB,CAAP,CAAO,GAAH,EAAF,GAAO,IAAF,CAAT,GAA8B,CAAZ,CAAY,GAAR,EAAF,GAAO,EAAF,GAAO,IAAF,CAAd;AALjC;AAAa;AAo7BA;;;;AA/8BR;AA9Wd,GA8Wc,6DA9Wd;ACAA,iCAIS,0JAJT;;;AAsBS,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AAQQ;;;AAMhB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAhBgB;;;;;;;;;AAsP2B;AAG7C,8BAAoB;AACpB;AACA;AAL6C;AAZR;AAErC,mBAAQ,OAAO,CAAC,KAAD;AACf;AAHqC;AAMD;AAEpC,kBAAO,OAAO,CAAC,KAAD;AACd;AAHoC;AAvFQ;AAAlB;AAE1B,eAAU;AAFgB;AAAkB;AAqGD;AAE3C,yBAAc,OAAO,CAAC,KAAD;AAFsB;AAnEP;AAAV;AAE1B,eAAU,4BAAgB,CAAC,EAAS,EAAS,EAAS,CAA5B;AAFA;AAAU;AA3GI;AAExC;AAEA,YAAO;AACP,UAAY,GAAD,QAAX;AAEE,YAAG,cAAU,IAAI,CAAI,uCAAa,CAAC,GAAD,CAAlC;AAEE,cAAI,SAAC,CAAS,UAAK,CAAC,GAAG,SAAC,EAA2B,GAAnB,mBAAa,MAAf,GAAuB,mBAAa,OAA/C,CAAd;AACL,cAAI,UAAC,CAAU,UAAK,CAAC,GAAG,UAAC,EAA2B,GAAlB,mBAAa,KAAf,GAAsB,mBAAa,QAA/C,CAAf;SAHP;OAFF;AALwC;AAwBO;AAE/C;AACA;AAH+C;AAwFR;AAGvC;AACA,UAAc,CAAV,SAAU,KAAE,+BAAF,CAAY,IAAgB,CAAX,UAAW,KAAE,qBAAF,CAA1C,EACE,wBAAoB,IADtB;AAJuC;AAjGC;AAExC,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,IAAD,CADjB;AAGA;AACA;AANwC;AAgLH;AAErC,sBAAY;AACZ;AAHqC;AANC;AAEtC,uBAAa;AACb;AAHsC;AANF;AAEpC,uBAAW;AACX;AAHoC;AAhCJ;AAEhC,uBAAa;AACb;AACA;AAJgC;AANS;AAEzC,0BAAgB;AAChB;AAHyC;AA/GT;AAEhC,mBAAO;AAFyB;AAgDW;AAAjB;AAE1B;AACA;AACA;AAAG;AACH;AAAG;AAEH,qBAAU,+BAAK,CAAC,EAAG,EAAG,EAAG,CAAV,CAAf;AACA,YAAO;AACP,UAAY,GAAD,QAAX;AAEE,YAAK,mBAAa;AAClB,YAAK,mBAAa;AAClB,YAAK;AACL,YAAK;AACL,oDAAe,cAAc,CAAC;;;;aAAG;;;;aAAG,GAAG,SAAC,GAAO,GAAG,UAAC,GAAQ,eAA2B,GAAnB,mBAAa,MAAf,GAAuB,mBAAa,OAAf,CACpF,gBAA2B,GAAlB,mBAAa,KAAf,GAAsB,mBAAa,QAAf,CAAwB,kBAAa,cAAS,cAD9C;AAG7B,YAAG,cAAO,IAAG,cAAb;AAEE,cAAY,CAAN,eAAM,GAAE,CAAF,CAAK,GAAE,CAAF;AACjB,cAAa,CAAP,gBAAO,GAAE,CAAF,CAAK,GAAE,CAAF;SAHpB;AAMA,sBAAS,+BAAK,CAAC,EAAG,EAAG,CAAE,GAAE,CAAF,CAAK,CAAE,GAAE,CAAlB,CAAd;AACA,uBAAU,KAAV;OAhBF;AAT0B;AAAiB;AAbR;AAAT;AAE1B,UAAG,CAAI,uCAAa,CAAC,YAAD,CAApB;AACE,iBAAU;AAEV,qBAAU,4CAAe,gBAAgB,CAAC,cAAS,EAAG,qBAAb;AALjB;AAAS;AA9BA;AAEnC;AACA,wCAA8B;AAE9B,UAAG,mBAAH,EACE,wBADF;AAGA,4BAAkB,wCAAc,QAAC;AACjC,yBAAc,UAAd,GAA4B;AAC5B,uBAAW;AACX,sBAAY;AACZ,0BAAgB;AAChB,uBAAa;AACb,sBAAY,8CAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,mBAAQ,UAAR,GAAsB;AACtB,qBAAW,uCAAa,QAAC;AACzB,kBAAO,UAAP,GAAqB;AACrB,oBAAS,GAAT;AACA,qBAAU,GAAV;AAnBwD;AAArB;AAsBA;AAE3B,eAAR,KAAQ;AACC,eAAT,KAAS;AACM,eAAf,KAAe;AACf;AALmC;AA+DJ;AAE/B;AAEA;AACA,UAAgB,CAAZ,2CAAY,IAAG,oBAAH,CAAmB,IAAI,+BAAvC;AAEE,iBAAS,QAAO,QAAC,CAAQ,kEAAR;AACjB,iBAAS,gBAAc,CAAC,+CZZqE,6EYYtE;OAHzB;AAMA,YAAO;AACP,UAAY,GAAD,QAAX;AAEE,sBAAS,+BAAK,CAAC,KAAK,KAAM,GAAE,mBAAa,MAAf,CAAsB,KAAK,IAAK,GAAE,mBAAa,KAAf,CACxD,KAAK,MAAO,GAAE,mBAAa,OAAf,CAAuB,KAAK,OAAQ,GAAE,mBAAa,QADnD,CAAd;AAGA,iBAAS,aAAW,CAAC,+CAAO,IAAK,kBAAa,cAAS,eAAQ,cAA3C;OALtB;AAZ+B;AAxMb;;;;;;;;AAgDE,+BAAO,U5F+djB,+B4F/diB,CAAP;AAhDF;AAyDN;AA8N+B;AAE3C;AACA,+BAAa,CAAC,iBAAD;AAH8B;AA9N/B;;;;;;;;AAIU;AACL,8BfgcJ,iDehcI;AACO,qCfqiBV,kDeriBU;AACN;AACA,+Bf8mBE,wDe9mBF;AACQ,uCXRJ,oEWQI;AACR;AACC;AACF;AACE;AACJ,4BdgqBI,+DchqBJ;AACE,8Bd2yBI,iEc3yBJ;AAfL;;AA1Fd,GA4Gc,yDA5Gd;ACAA,0CAoBS,0SApBT;;;;AA+DuB,+BAAG,2CAAkB,GAAE,0CAAF;AACnC,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AACD,mBAAG;AACF,oBAAG;AAoGH,oBAAG;AACF,qBAAG;AAIA,wBAAG;AAOW,sCAAG;AACF,uCAAG;AAusBX;AAzrBD;AAk0Ue;AAAP;AAE5B,eAA6C,YAAK,CAAC,KAAD;AAFtB;AAAO;AAKC;AAE1B,kBAAK,CAAC,MAAU,KAAX;AAFqB;AAv0UhB;AAWI;;AACG;;AACG;;AACG;;AACP;;AACG;;AACG;;AAGN;AAwzUe;AAAP;AAElC,eAAkC,cAAW,QAAK,CAAC,KAAD,CAAhB;AAFA;AAAO;AAKC;AAEhC,cAAK,CAAC,MAAU,KAAX;AAF2B;AA7zUhB;AAWI;;AACG;;AACG;;AACG;;AACP;;AACG;;AACG;;AAEV;;AACC,mDADD,oDACC;AAEH;;AACE,kDADF,kDACE;AAEC;;AAED;;AAEE;;;AAE5B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAzC4B;;;;;;;;;;;;;;;;;;;;;;;;;;AAotSgB;AAE9C,UAAG,UAAM,KAAG,KAAZ,EACE,UAAK,OAAO,CAAC,KAAD,CADd;AAF8C;AAmNE;AAEhD,UAAG,YAAQ,KAAG,KAAd,EACE,YAAO,OAAO,CAAC,KAAD,CADhB;AAFgD;AA9IF;AAE9C,UAAG,UAAM,KAAG,KAAZ,EACE,UAAK,OAAO,CAAC,KAAD,CADd;AAF8C;AAqKQ;AAEtD,UAAG,kBAAc,KAAG,KAApB,EACE,kBAAa,OAAO,CAAC,KAAD,CADtB;AAFsD;AAME;AAExD,UAAG,oBAAgB,KAAG,KAAtB,EACE,oBAAe,OAAO,CAAC,KAAD,CADxB;AAFwD;AA1SF;AAEtD,UAAG,kBAAc,KAAG,KAApB,EACE,kBAAa,OAAO,CAAC,KAAD,CADtB;AAFsD;AAME;AAExD,UAAG,oBAAgB,KAAG,KAAtB,EACE,oBAAe,OAAO,CAAC,KAAD,CADxB;AAFwD;AAgBD;AAEvD,UAAG,mBAAe,KAAG,KAArB;AAEE,8BAAkB;AAClB,sBAAS;OAHX;AAFuD;AA2ID;AAGtD,UAAG,kBAAc,KAAG,KAApB,EACE,kBAAa,OAAO,CAAC,KAAD,CADtB;AAHsD;AAcE;AAGxD,UAAG,oBAAgB,KAAG,KAAtB,EACE,oBAAe,OAAO,CAAC,KAAD,CADxB;AAHwD;AAPF;AAGtD,UAAG,kBAAc,KAAG,KAApB,EACE,kBAAa,OAAO,CAAC,KAAD,CADtB;AAHsD;AAnCQ;AAG9D,UAAG,0BAAsB,KAAG,KAA5B,EACE,0BAAqB,OAAO,CAAC,KAAD,CAD9B;AAH8D;AAOE;AAGhE,UAAG,4BAAwB,KAAG,KAA9B,EACE,4BAAuB,OAAO,CAAC,KAAD,CADhC;AAHgE;AAOF;AAG9D,UAAG,0BAAsB,KAAG,KAA5B,EACE,0BAAqB,OAAO,CAAC,KAAD,CAD9B;AAH8D;AAOE;AAGhE,UAAG,4BAAwB,KAAG,KAA9B,EACE,4BAAuB,OAAO,CAAC,KAAD,CADhC;AAHgE;AAwFV;AAEtD,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;AACjB,oBAAO,CAAC,IAAD;OAHT;AAFsD;AASD;AAErD,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;AAChB,oBAAO,CAAC,IAAD;OAHT;AAFqD;AASC;AAEtD,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;AACjB,oBAAO,CAAC,IAAD;OAHT;AAFsD;AApED;AAErD,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;AAChB,oBAAO,CAAC,IAAD;OAHT;AAFqD;AAnFA;AAErD,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;AAChB,oBAAO,CAAC,IAAD;OAHT;AAFqD;AASU;AAE/D,UAAG,2BAAuB,KAAG,KAA7B;AAEE,sCAA0B;AAC1B,oBAAO,CAAC,IAAD;OAHT;AAF+D;AA3BJ;AAE3D,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB,oBAAO,CAAC,IAAD;OAHT;AAF2D;AASA;AAE3D,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB,oBAAO,CAAC,IAAD;OAHT;AAF2D;AApCA;AAE3D,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB,oBAAO,CAAC,IAAD;OAHT;AAF2D;AASQ;AAEnE,UAAG,+BAA2B,KAAG,KAAjC;AAEE,0CAA8B;AAC9B,oBAAO,CAAC,IAAD;OAHT;AAFmE;AASA;AAEnE,UAAG,+BAA2B,KAAG,KAAjC;AAEE,0CAA8B;AAC9B,oBAAO,CAAC,IAAD;OAHT;AAFmE;AAoGf;AAGpD,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf,oBAAO,CAAC,IAAD;OAHT;AAHoD;AA9ID;AAEnD,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd,oBAAO,CAAC,IAAD;OAHT;AAFmD;AAkPO;AAG1D,UAAG,sBAAkB,KAAG,KAAxB;AAEE,8BAAiB,OAAO,CAAC,KAAD;AACxB,oBAAO,CAAC,IAAD;OAHT;AAH0D;AAjFF;AAExD,UAAG,oBAAgB,KAAG,KAAtB;AAEE,4BAAe,OAAO,CAAC,KAAD;AACtB,oBAAO,CAAC,IAAD;OAHT;AAFwD;AAkBO;AAE/D,UAAG,2BAAuB,KAAG,KAA7B;AAEE,mCAAsB,OAAO,CAAC,KAAD;AAC7B,oBAAO,CAAC,IAAD;OAHT;AAF+D;AATF;AAE7D,UAAG,yBAAqB,KAAG,KAA3B;AAEE,iCAAoB,OAAO,CAAC,KAAD;AAC3B,oBAAO,CAAC,IAAD;OAHT;AAF6D;AAkBP;AAGtD,UAAG,kBAAc,KAAG,KAApB,EACE,kBAAa,OAAO,CAAC,KAAD,CADtB;AAHsD;AAOF;AAGpD,UAAG,gBAAY,KAAG,KAAlB,EACE,gBAAW,OAAO,CAAC,KAAD,CADpB;AAHoD;AA5MD;AAEnD,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd,sBAAS;OAHX;AAFmD;AApCE;AAAf;AAEtC,eAAU,aAAQ,KAAG,CAAH;AAFoB;AAAe;AAsDJ;AAEjD,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ,oBAAO,CAAC,IAAD;OAHT;AAFiD;AA+Pe;AAGhE,UAAG,4BAAwB,KAAG,KAA9B;AAEE,uCAA2B;AAC3B,sBAAS;OAHX;AAHgE;AApSA;AAGhE,UAAG,4BAAwB,KAAG,KAA9B;AAEE,uCAA2B;AAC3B,sBAAS;OAHX;AAHgE;AAuQb;AAGnD,UAAG,eAAW,KAAG,KAAjB,EACE,eAAU,OAAO,CAAC,KAAD,CADnB;AAHmD;AApZL;AAE9C,oBAAS;AAFqC;AAKM;AAEpD,oBAAS;AAF2C;AAKL;AAE/C,uBAAa;AACb,wBAAc;AACd,4BAAkB;AAClB,2BAAiB;AACjB,0BAAgB;AAChB,2BAAiB;AACjB,0BAAgB;AAChB,oCAA0B;AAC1B,wBAAc;AACd,yBAAe;AACf,0BAAgB;AAChB,sBAAY;AACZ,gCAAsB;AACtB,gCAAsB;AAEtB,qCAA2B;AAC3B,qCAA2B;AAE3B,gCAAsB;AACtB,wCAA8B;AAC9B,wCAA8B;AAE9B,2BAAiB,uDAAqB,QAAC,YAAM,CAAC,qEAAU,EAAX,CAAN;AACvC,yBAAe,uDAAqB,QAAC,YAAM,CAAC,mEAAQ,QAAT,CAAN;AACrC,mBAAU,qDAAmB,QAAC,YAAM,CAAC,mEAAU,GfpjR4G,QAAmD,GAAqD,EeojR/N,CAAN;AAC9B,qBAAW,uDAAqB,QAAC,YAAM,CAAC,oEAAS,QAAV,CAAN;AACjC,2BAAiB,qDAAmB,QAAC,YAAM,CAAC,mEAAU,SftjRqG,QAAmD,GAAqD,EesjRxN,CAAN;AACrC,6BAAmB,uDAAqB,QAAC,YAAM,CAAC,qEAAU,QAAX,CAAN;AACzC,2BAAiB,qDAAmB,QAAC,YAAM,CAAC,mEAAU,SfxjRqG,QAAmD,GAAqD,EewjRxN,CAAN;AACrC,6BAAmB,uDAAqB,QAAC,YAAM,CAAC,oEAAS,QAAV,CAAN;AAEzC,2BAAiB,qDAAmB,QAAC,YAAM,CAAC,mEAAU,Sf3jRqG,QAAmD,GAAqD,Ee2jRxN,CAAN;AACrC,6BAAmB,uDAAqB,QAAC,YAAM,CAAC,qEAAU,QAAX,CAAN;AACzC,mCAAyB,qDAAmB,QAAC,YAAM,CAAC,mEAAU,Sf7jR6F,QAAmD,GAAqD,Ee6jRhN,CAAN;AAC7C,qCAA2B,uDAAqB,QAAC,YAAM,CAAC,oEAAS,QAAV,CAAN;AACjD,mCAAyB,qDAAmB,QAAC,YAAM,CAAC,mEAAU,Sf/jR6F,QAAmD,GAAqD,Ee+jRhN,CAAN;AAC7C,qCAA2B,uDAAqB,QAAC,YAAM,CAAC,oEAAS,QAAV,CAAN;AAEjD,6BAAiC,uCAAa,qBAAmB,CAAC,2BAAuB,qCAAxB;AACjE,0BAAe,UAAf,GAA6B;AAC7B,+BAAmC,uCAAa,qBAAmB,CAAC,6BAAyB,qCAA1B;AACnE,4BAAiB,UAAjB,GAA+B;AAC/B,kCAAsC,uCAAa,qBAAmB,CAAC,gCAA4B,qCAA7B;AACtE,+BAAoB,UAApB,GAAkC;AAClC,oCAAwC,uCAAa,qBAAmB,CAAC,kCAA8B,qCAA/B;AACxE,iCAAsB,UAAtB,GAAoC;AAEpC,mBAAS,qDAAmB,QAAC;AAC7B,UAAW,CAAC,cAAD,SAAY,IAAI,cAAS,eAApC,EACE,UAAK,SAAC,CAAS,CAAT,CADR;AAGA,wBAAc,qDAAmB,QAAC;AAClC,UAAW,CAAC,cAAD,SAAY,IAAI,cAAS,eAApC,EACE,eAAU,SAAC,CAAS,CAAT,CADb;AAGA,gBAAK,WAAL,GAAoB;AACpB,kBAAO,WAAP,GAAsB;AAEtB,wBAAa,WAAb,GAA4B;AAC5B,0BAAe,WAAf,GAA8B;AAE9B,wBAAa,WAAb,GAA4B;AAC5B,0BAAe,WAAf,GAA8B;AAE9B,2BAAiB,qDAAmB,QAAC;AAErC,wBAAa,WAAb,GAA4B;AAC5B,0BAAe,WAAf,GAA8B;AAE9B,gCAAqB,WAArB,GAAoC;AACpC,kCAAuB,WAAvB,GAAsC;AAEtC,gCAAqB,WAArB,GAAoC;AACpC,kCAAuB,WAAvB,GAAsC;AAEtC,gBAAK,WAAL,GAAoB;AACpB,wBAAa,WAAb,GAA4B;AA9EsD;AAAnC;AAnDF;AAE7C,UAAa,mCAAH,eAAP,MAAO,CAAV;AAEE,kBAAK,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,MAA3C;AACZ,oBAAO,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,QAA3C;AACd,kBAAK,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,MAA3C;AACZ,uBAAU,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,WAA3C;AACjB,0BAAa,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,cAA3C;AACpB,4BAAe,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,gBAA3C;AACtB,0BAAa,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,cAA3C;AACpB,4BAAe,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,gBAA3C;AACtB,0BAAa,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,cAA3C;AACpB,4BAAe,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,gBAA3C;AACtB,0BAAa,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,cAA3C;AACpB,kCAAqB,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,sBAA3C;AAC5B,oCAAuB,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,wBAA3C;AAC9B,kCAAqB,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,sBAA3C;AAC5B,oCAAuB,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,wBAA3C;AAC9B,6BAAyB,OAAP,OAAU,mCAAH,CAAkC;AAC3D,4BAAwB,OAAP,OAAU,mCAAH,CAAkC;AAC1D,6BAAyB,OAAP,OAAU,mCAAH,CAAkC;AAC3D,4BAAwB,OAAP,OAAU,mCAAH,CAAkC;AAC1D,sCAAkC,OAAP,OAAU,mCAAH,CAAkC;AACpE,kCAA8B,OAAP,OAAU,mCAAH,CAAkC;AAChE,kCAA8B,OAAP,OAAU,mCAAH,CAAkC;AAChE,uCAAmC,OAAP,OAAU,mCAAH,CAAkC;AACrE,uCAAmC,OAAP,OAAU,mCAAH,CAAkC;AACrE,kCAA8B,OAAP,OAAU,mCAAH,CAAkC;AAChE,0CAAsC,OAAP,OAAU,mCAAH,CAAkC;AACxE,0CAAsC,OAAP,OAAU,mCAAH,CAAkC;AACxE,4BAAwB,OAAP,OAAU,mCAAH,CAAkC;AAC1D,wBAAoB,OAAP,OAAU,mCAAH,CAAkC;AACtD,2BAAuB,OAAP,OAAU,mCAAH,CAAkC;AACzD,0BAAsB,OAAP,OAAU,mCAAH,CAAkC;AACxD,0BAAsB,OAAP,OAAU,mCAAH,CAAkC;AACxD,0BAAa,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,cAA3C;AACpB,wBAAW,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,YAA3C;OAnCpB;AAF6C;AAoIE;AAEnC,eAAZ,KAAY;AACE,eAAd,KAAc;AAEO,eAArB,KAAqB;AACE,eAAvB,KAAuB;AACP,eAAhB,KAAgB;AACE,eAAlB,KAAkB;AAEZ,eAAN,KAAM;AACE,eAAR,KAAQ;AACF,eAAN,KAAM;AACK,eAAX,KAAW;AAEG,eAAd,KAAc;AACE,eAAhB,KAAgB;AAEF,eAAd,KAAc;AACE,eAAhB,KAAgB;AAEF,eAAd,KAAc;AACE,eAAhB,KAAgB;AACF,eAAd,KAAc;AAEQ,eAAtB,KAAsB;AACE,eAAxB,KAAwB;AAEF,eAAtB,KAAsB;AACE,eAAxB,KAAwB;AACxB;AA9B+C;AApnSjB;AAsFV,+BAAU,aAkjBT,mCAljBS,CAAV;AAIA;AACG;AACD;AACC;AACD;AACJ;AACI;AACU;AACX,kCAtGQ,4CAsGR;AACD;AAEL,4Bf6aI,+De7aJ;AACE,8BfwjBI,iEexjBJ;AACM,oCfujBF,iEevjBE;AACF,kCfsjBA,iEetjBA;AACN,4BfqcI,+DercJ;AACK,iCfocD,+DepcC;AACQ,yCxFwBtB,uCwFxBsB;AACA,yCxFuBtB,uCwFvBsB;AACK,8CxFsB3B,uCwFtB2B;AACA,8CxFqB3B,uCwFrB2B;AAEL,yCxFmBtB,uCwFnBsB;AACQ,iDxFkB9B,uCwFlB8B;AACA,iDxFiB9B,uCwFjB8B;AAEb,oCf8ZJ,+De9ZI;AACE,sCfyiBJ,iEeziBI;AACD,qCAxHI,2CAwHJ;AAED,oCf0ZJ,+De1ZI;AACE,sCfqiBJ,iEeriBI;AAEF,oCfuZJ,+DevZI;AACE,sCfkiBJ,iEeliBI;AACF,oCfibJ,+DejbI;AAEQ,4CfmZZ,+DenZY;AACE,8Cf8hBZ,iEe9hBY;AAEF,4CfgZZ,+DehZY;AACE,8Cf2hBZ,iEe3hBY;AAER,sChBoKZ,iDgBpKY;AACE,wChBmKd,iDgBnKc;AACG,2ChBkKjB,iDgBlKiB;AACE,6ChBiKnB,iDgBjKmB;AAxIF;AA2IE;;;AAE9B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAvB8B;;;;;;;;;;;;AA08SmB;AAGnD,UAAY,UAAT,cAAY,KAAH,CAAZ;AAEE,wBAAY;AACZ,sBAAS;OAHX;AAHmD;AA+BA;AAEnD,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ,sBAAS;AACT,sBAAS;OAJX;AAFmD;AAoBG;AAEtD,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf,sBAAS;AACT,sBAAS;OAJX;AAFsD;AAVG;AAEzD,UAAG,mBAAe,KAAG,KAArB;AAEE,8BAAkB;AAClB,sBAAS;AACT,sBAAS;OAJX;AAFyD;AA7EH;AAEtD,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf,sBAAS;OAHX;AAFsD;AA6GH;AAEnD,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ,oBAAO,CAAC,IAAD;OAHT;AAFmD;AAzHG;AAEtD,UAAG,gBAAY,KAAG,KAAlB,EACE,gBAAW,OAAO,CAAC,KAAD,CADpB;AAFsD;AAqBE;AAGxD,UAAG,kBAAc,KAAG,KAApB,EACE,kBAAa,OAAO,CAAC,KAAD,CADtB;AAHwD;AAwFL;AAEnD,UAAG,aAAS,KAAG,KAAf,EACE,aAAQ,OAAO,CAAC,KAAD,CADjB;AAFmD;AAqBE;AAGrD,UAAG,eAAW,KAAG,KAAjB,EACE,eAAU,OAAO,CAAC,KAAD,CADnB;AAHqD;AA5HC;AAEtD,UAAG,gBAAY,KAAG,KAAlB,EACE,gBAAW,OAAO,CAAC,KAAD,CADpB;AAFsD;AA6GH;AAEnD,UAAG,aAAS,KAAG,KAAf,EACE,aAAQ,OAAO,CAAC,KAAD,CADjB;AAFmD;AAsBQ;AAG3D,UAAG,qBAAiB,KAAG,KAAvB;AAEE,gCAAoB;AACpB,oBAAO,CAAC,IAAD;OAHT;AAH2D;AA7GG;AAG9D,UAAG,wBAAoB,KAAG,KAA1B;AAEE,mCAAuB;AACvB,oBAAO,CAAC,IAAD;OAHT;AAH8D;AAUH;AAG3D,UAAG,qBAAiB,KAAG,KAAvB;AAEE,gCAAoB;AACpB,sBAAS;OAHX;AAH2D;AA+BG;AAG9D,UAAG,wBAAoB,KAAG,KAA1B;AAEE,mCAAuB;AACvB,sBAAS;OAHX;AAH8D;AAXI;AAGlE,UAAG,4BAAwB,KAAG,KAA9B;AAEE,uCAA2B;AAC3B,sBAAS;AACT,sBAAS;OAJX;AAHkE;AA/DlB;AAEhD,oBAAS;AAFuC;AAlDC;AAGjD,uBAAa;AACb,iCAAuB;AACvB,sBAAY,cAAC,wCAAD;AACZ,8BAAoB;AACpB,qCAA2B;AAC3B,sBAAY;AACZ,yBAAe;AACf,4BAAkB,CAAC;AACnB,yBAAe;AACf,8BAAoB;AACpB,yBAAe;AACf,iCAAuB;AACvB,sBAAY;AACZ,qCAA2B;AAC3B,mCAAyB;AACzB,wCAA8B;AAC9B,sCAA4B;AAC5B,yBAAe,qDAAmB,QAAC,YAAM,CAAC,mEAAU,Sfz/RuG,QAAmD,GAAqD,Eey/R1N,CAAN;AACnC,2BAAiB,uDAAqB,QAAC,YAAM,CAAC,qEAAU,QAAX,CAAN;AACvC,sBAAY,qDAAmB,QAAC,YAAM,CAAC,mEAAU,Sf3/R0G,QAAmD,GAAqD,Ee2/R7N,CAAN;AAChC,wBAAc,uDAAqB,QAAC,YAAM,CAAC,qEAAU,QAAX,CAAN;AAEpC,sBAAY,qDAAmB,QAAC;AAChC,mBAAQ,SAAC,CAAS,CAAT;AACT,yBAAe,qDAAmB,QAAC;AACnC,sBAAW,SAAC,CAAS,CAAT;AAEZ,sBAAW,WAAX,GAA0B;AAC1B,mBAAQ,WAAR,GAAuB;AACvB,wBAAa,WAAb,GAA4B;AAC5B,qBAAU,WAAV,GAAyB;AAEzB,mBAAQ,WAAR,GAAuB;AACvB,sBAAW,WAAX,GAA0B;AAnCQ;AADe;AAuCA;AAExC,eAAT,KAAS;AACG,eAAZ,KAAY;AACA,eAAZ,KAAY;AACH,eAAT,KAAS;AACK,eAAd,KAAc;AACH,eAAX,KAAW;AACX;AARiD;AA/DF;AAE/C,UAAa,qCAAH,eAAP,MAAO,CAAV;AAEE,mCAA+B,OAAP,OAAU,qCAAH,CAAoC;AACnE,wBAAwD,WAApC,OAAP,OAAU,qCAAH,CAAoC;AACxD,wBAAoB,OAAP,OAAU,qCAAH,CAAoC;AACxD,2BAAuB,OAAP,OAAU,qCAAH,CAAoC;AAC3D,wBAAW,OAAO,CAAS,OAAP,OAAU,qCAAH,CAAoC,YAA7C;AAClB,wBAAW,OAAO,CAAS,OAAP,OAAU,qCAAH,CAAoC,YAA7C;AAClB,0BAAa,OAAO,CAAS,OAAP,OAAU,qCAAH,CAAoC,cAA7C;AACpB,qBAAQ,OAAO,CAAS,OAAP,OAAU,qCAAH,CAAoC,SAA7C;AACf,uBAAU,OAAO,CAAS,OAAP,OAAU,qCAAH,CAAoC,WAA7C;AACjB,qBAAQ,OAAO,CAAS,OAAP,OAAU,qCAAH,CAAoC,SAA7C;AACf,wBAAoB,OAAP,OAAU,qCAAH,CAAoC;AACxD,uCAAmC,OAAP,OAAU,qCAAH,CAAoC;AACvE,8BAA2B,OAAP,OAAU,qCAAH,CAAoC;AAC/D,2BAAuB,OAAP,OAAU,qCAAH,CAAoC;AAC3D,gCAA4B,OAAP,OAAU,qCAAH,CAAoC;AAChE,mCAA+B,OAAP,OAAU,qCAAH,CAAoC;AACnE,gCAA4B,OAAP,OAAU,qCAAH,CAAoC;OAlBlE;AAF+C;AA30Sf;AA4CZ,+BAAU,aAidT,mCAjdS,CAAV;AAIF,+BApMW,4CAoMX,yBAAuE,uBAAC,wCAAD,CAAvE;AACA;AACM;AACH;AACH;AACG;AACH,+Bf6WC,+De7WD;AACG,kCf4WF,+De5WE;AACH,+Bf+UC,+De/UD;AACG,kCf8UF,+De9UE;AACD,iCfydC,iEezdD;AACG,oCfwdF,iEexdE;AACG;AACG;AACH;AACG,0CxFvEvB,uCwFuEuB;AACI;AAhED;AAmED;;AACD;;AAEC;;;AAE7B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAlB6B;;;;;;;;;;;;AAqnTmB;AAGlD,UAAY,UAAT,cAAY,KAAH,CAAZ;AAEE,wBAAY;AACZ,sBAAS;OAHX;AAHkD;AA9CG;AAErD,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf,sBAAS;OAHX;AAFqD;AA8EH;AAElD,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ,sBAAS;OAHX;AAFkD;AApGG;AAErD,UAAG,gBAAY,KAAG,KAAlB,EACE,gBAAW,OAAO,CAAC,KAAD,CADpB;AAFqD;AA+BE;AAGvD,UAAG,kBAAc,KAAG,KAApB,EACE,kBAAa,OAAO,CAAC,KAAD,CADtB;AAHuD;AA+CL;AAElD,UAAG,aAAS,KAAG,KAAf,EACE,aAAQ,OAAO,CAAC,KAAD,CADjB;AAFkD;AA+BE;AAGpD,UAAG,eAAW,KAAG,KAAjB,EACE,eAAU,OAAO,CAAC,KAAD,CADnB;AAHoD;AA7FC;AAErD,UAAG,gBAAY,KAAG,KAAlB,EACE,gBAAW,OAAO,CAAC,KAAD,CADpB;AAFqD;AAoEH;AAElD,UAAG,aAAS,KAAG,KAAf,EACE,aAAQ,OAAO,CAAC,KAAD,CADjB;AAFkD;AA9EkB;AAGpE,UAAG,+BAA2B,KAAG,KAAjC;AAEE,0CAA8B;AAC9B,oBAAO,CAAC,IAAD;OAHT;AAHoE;AAgCF;AAGlE,UAAG,6BAAyB,KAAG,KAA/B;AAEE,wCAA4B;AAC5B,oBAAO,CAAC,IAAD;OAHT;AAHkE;AAoDD;AAGjE,UAAG,4BAAwB,KAAG,KAA9B;AAEE,uCAA2B;AAC3B,oBAAO,CAAC,IAAD;OAHT;AAHiE;AA0BF;AAG/D,UAAG,0BAAsB,KAAG,KAA5B;AAEE,qCAAyB;AACzB,oBAAO,CAAC,IAAD;OAHT;AAH+D;AAUL;AAE1D,UAAG,qBAAiB,KAAG,KAAvB;AAEE,gCAAoB;AACpB,oBAAO,CAAC,IAAD;OAHT;AAF0D;AA9EG;AAG7D,UAAG,wBAAoB,KAAG,KAA1B;AAEE,mCAAuB;AACvB,oBAAO,CAAC,IAAD;OAHT;AAH6D;AAUH;AAG1D,UAAG,qBAAiB,KAAG,KAAvB;AAEE,gCAAoB;AACpB,sBAAS;OAHX;AAH0D;AA/DX;AAE/C,oBAAS;AAFsC;AA5CC;AAGhD,uBAAa;AACb,sBAAY,cAAC,sCAAD;AACZ,8BAAoB;AACpB,sBAAY;AACZ,yBAAe;AACf,8BAAoB;AACpB,iCAAuB;AACvB,qCAA2B;AAC3B,mCAAyB;AACzB,wCAA8B;AAC9B,sCAA4B;AAC5B,yBAAe,qDAAmB,QAAC,YAAM,CAAC,mEAAU,SfttSuG,QAAmD,GAAqD,EestS1N,CAAN;AACnC,2BAAiB,uDAAqB,QAAC,YAAM,CAAC,qEAAU,QAAX,CAAN;AACvC,sBAAY,qDAAmB,QAAC,YAAM,CAAC,mEAAU,SfxtS0G,QAAmD,GAAqD,EewtS7N,CAAN;AAChC,wBAAc,uDAAqB,QAAC,YAAM,CAAC,qEAAU,QAAX,CAAN;AAEpC,sBAAY,qDAAmB,QAAC;AAChC,mBAAQ,SAAC,CAAS,CAAT;AACT,yBAAe,qDAAmB,QAAC;AACnC,sBAAW,SAAC,CAAS,CAAT;AAEZ,sBAAW,WAAX,GAA0B;AAC1B,mBAAQ,WAAR,GAAuB;AACvB,wBAAa,WAAb,GAA4B;AAC5B,qBAAU,WAAV,GAAyB;AAEzB,mBAAQ,WAAR,GAAuB;AACvB,sBAAW,WAAX,GAA0B;AA7BQ;AADc;AAiCA;AAEpC,eAAZ,KAAY;AACH,eAAT,KAAS;AACG,eAAZ,KAAY;AACE,eAAd,KAAc;AACL,eAAT,KAAS;AACE,eAAX,KAAW;AACX;AARgD;AAxDF;AAE9C,UAAa,oCAAH,eAAP,MAAO,CAAV;AAEE,wBAAuD,WAAnC,OAAP,OAAU,oCAAH,CAAmC;AACvD,wBAAoB,OAAP,OAAU,oCAAH,CAAmC;AACvD,2BAAuB,OAAP,OAAU,oCAAH,CAAmC;AAC1D,wBAAW,OAAO,CAAS,OAAP,OAAU,oCAAH,CAAmC,YAA5C;AAClB,wBAAW,OAAO,CAAS,OAAP,OAAU,oCAAH,CAAmC,YAA5C;AAClB,0BAAa,OAAO,CAAS,OAAP,OAAU,oCAAH,CAAmC,cAA5C;AACpB,qBAAQ,OAAO,CAAS,OAAP,OAAU,oCAAH,CAAmC,SAA5C;AACf,uBAAU,OAAO,CAAS,OAAP,OAAU,oCAAH,CAAmC,WAA5C;AACjB,qBAAQ,OAAO,CAAS,OAAP,OAAU,oCAAH,CAAmC,SAA5C;AACf,uCAAmC,OAAP,OAAU,oCAAH,CAAmC;AACtE,qCAAiC,OAAP,OAAU,oCAAH,CAAmC;AACpE,0CAAsC,OAAP,OAAU,oCAAH,CAAmC;AACzE,wCAAoC,OAAP,OAAU,oCAAH,CAAmC;AACvE,gCAA4B,OAAP,OAAU,oCAAH,CAAmC;AAC/D,mCAA+B,OAAP,OAAU,oCAAH,CAAmC;AAClE,gCAA4B,OAAP,OAAU,oCAAH,CAAmC;OAjBjE;AAF8C;AAz+Sf;AAuCX,+BAAU,aAgZT,mCAhZS,CAAV;AAIF,+BAlQU,2CAkQV,yBAAsE,uBAAC,sCAAD,CAAtE;AACA;AACG;AACH,+BfmRC,+DenRD;AACG,kCfkRF,+DelRE;AACH,+Bf6SC,+De7SD;AACG,kCf4SF,+De5SE;AACD,iCf2ZC,iEe3ZD;AACG,oCf0ZF,iEe1ZE;AACU,8CfiDT,oEejDS;AACF,4CfgDP,oEehDO;AACK,iDf+CZ,oEe/CY;AACF,+Cf8CV,oEe9CU;AACR;AACG;AACH;AA1DK;AA6DY,kGAAmB,UtGrZvD,2BsGqZuD,EAAoB,ab/XnE,qDa+XmE,EAAwB,ShBjNpG,yCgBiNoG,EAAiB,wBAAqB,2BAAoB,aHpSxI,sEGoSwI,EAAgD,8BAAzK;AACD,iGAAmB,UtGtZtD,2BsGsZsD,EAAoB,abhYlE,qDagYkE,EAAwB,ShBlNnG,yCgBkNmG,EAAiB,wBAAqB,2BAAoB,aHrSvI,sEGqSuI,CAAzH;AACX,sFAAmB,UtGvZ3C,2BsGuZ2C,EAAgB,SH2D/C,6DG3D+C,EAAO,SH2DtD,6DG3DsD,EAA8B,wBAA6B,gCAArG;AACK,2FAAmB,UtGxZhD,2BsGwZgD,EAAkB,wBAAsB,2BAA4B,gCAAoB,wBAA3G;AACD,0FAAmB,UtGzZ/C,2BsGyZ+C,EAAkB,wBAAsB,0BAA3D;AACW,qGAAmB,UtG1Z1D,2BsG0Z0D,EAAoB,abpYtE,qDaoYsE,EAAwB,ShBtNvG,yCgBsNuG,EAAgB,UArE9F,6CAqE8F,EAA6C,yBAA2B,8BAAvJ;AACD,oGAAmB,UtG3ZzD,2BsG2ZyD,EAAoB,abrYrE,qDaqYqE,EAAwB,ShBvNtG,yCgBuNsG,EAAgB,UAtE7F,6CAsE6F,CAA/E;AACA,oGAAmB,UtG5ZzD,2BsG4ZyD,EAAoB,abtYrE,qDasYqE,EAAwB,ShBxNtG,yCgBwNsG,EAAgB,UAtE9F,4CAsE8F,EAA4C,yBAA2B,8BAAtJ;AACD,mGAAmB,UtG7ZxD,2BsG6ZwD,EAAoB,abvYpE,qDauYoE,EAAwB,ShBzNrG,yCgByNqG,EAAgB,UAvE7F,4CAuE6F,CAA/E;AAEF,iGAAmB,UtG/ZtD,2BsG+ZsD,EAAkB,wBAAkB,W7FvSzF,6B6FuSyF,CAAvD;AACN,2FAAmB,UtGhahD,2BsGgagD,EAAoB,ab1Y5D,qDa0Y4D,EAAwB,ShB5N7F,yCgB4N6F,EAAiB,wBAAqB,yBAA2B,8BAAhI;AACD,0FAAmB,UtGja/C,2BsGia+C,EAAoB,ab3Y3D,qDa2Y2D,EAAwB,ShB7N5F,yCgB6N4F,EAAiB,uBAAhF;AACO,iGAAmB,UtGlatD,2BsGkasD,EAAoB,ab5YlE,qDa4YkE,EAAwB,ShB9NnG,yCgB8NmG,EAAiB,wBAAgB,SH5W9G,sEG4W8G,EAA0C,yBAA2B,8BAArK;AACD,gGAAmB,UtGnarD,2BsGmaqD,EAAoB,ab7YjE,qDa6YiE,EAAwB,ShB/NlG,yCgB+NkG,EAAiB,wBAAgB,SH7W7G,sEG6W6G,CAAhG;AACN,0FAAmB,UtGpa/C,2BsGoa+C,EAAoB,ab9Y3D,qDa8Y2D,EAAwB,ShBhO5F,yCgBgO4F,EAAgB,uBAAc,6BAAY,2BAAgB,SH9WhI,sEG8WgI,EAA0C,yBAA2B,8BAA9L;AACD,yFAAmB,UtGra9C,2BsGqa8C,EAAoB,ab/Y1D,qDa+Y0D,EAAwB,ShBjO3F,yCgBiO2F,EAAgB,uBAAc,6BAAY,2BAAgB,SH/W/H,sEG+W+H,CAAzH;AAEA,yFAAmB,UtGva9C,2BsGua8C,EAAoB,abjZ1D,qDaiZ0D,EAAwB,ShBnO3F,yCgBmO2F,EAAe,SHvctF,oEGucsF,EAAwC,yBAA2B,8BAAjJ;AACD,wFAAmB,UtGxa7C,2BsGwa6C,EAAoB,ablZzD,qDakZyD,EAAwB,ShBpO1F,yCgBoO0F,EAAe,SHxcrF,oEGwcqF,CAA9E;AAEG,2FAAmB,UtG1ahD,2BsG0agD,EAAgB,SH1c7C,oEG0c6C,EAAgD,gCAAnF;AAEH,wFAAmB,UtG5a7C,2BsG4a6C,EAAkB,wBAAgB,SHtX1D,sEGsX0D,EAAyC,sBAA9F;AACO,+FAAmB,UtG7apD,2BsG6aoD,EAAoB,abvZhE,qDauZgE,EAAwB,ShBzOjG,yCgByOiG,EAAiB,wBAAgB,SHvX5G,sEGuX4G,EAAqC,qBAAoB,wBAAzJ;AACD,8FAAmB,UtG9anD,2BsG8amD,EAAoB,abxZ/D,qDawZ+D,EAAwB,ShB1OhG,yCgB0OgG,EAAiB,wBAAgB,SHxX3G,sEGwX2G,EAAqC,oBAArI;AACP,uFAAmB,UtG/a5C,2BsG+a4C,EAAiB,uBAAgB,SHzXxD,sEGyXwD,EAAyC,sBAA7F;AACO,8FAAmB,UtGhbnD,2BsGgbmD,EAAoB,ab1Z/D,qDa0Z+D,EAAwB,ShB5OhG,yCgB4OgG,EAAgB,uBAAc,6BAAY,2BAAgB,SH1XpI,sEG0XoI,EAAqC,qBAAoB,wBAAlL;AACD,6FAAmB,UtGjblD,2BsGibkD,EAAoB,ab3Z9D,qDa2Z8D,EAAwB,ShB7O/F,yCgB6O+F,EAAgB,uBAAc,6BAAY,2BAAgB,SH3XnI,sEG2XmI,EAAqC,oBAA9J;AACH,0FAAmB,UtGlb/C,2BsGkb+C,EAAgB,SHld5C,oEGkd4C,EAAqC,wBAAkB,sBAA1F;AACK,+FAAmB,UtGnbpD,2BsGmboD,EAAgB,SHndjD,oEGmdiD,EAAqC,wBAAkB,sBAA1F;AACT,sFAAmB,UtGpb3C,2BsGob2C,EAAgB,SHpdxC,oEGodwC,CAAnC;AACA,sFAAmB,UtGrb3C,2BsGqb2C,EAAgB,SHrdxC,oEGqdwC,EAAqC,wBAAgB,SHqP5F,qEGrP4F,EAAwC,sBAAhI;AACA,sFAAmB,UtGtb3C,2BsGsb2C,EAAgB,SHtdxC,oEGsdwC,CAAnC;AACC,uFAAmB,UtGvb5C,2BsGub4C,EAAgB,SHvdzC,oEGudyC,EAAqC,wBAAgB,SHmP7F,qEGnP6F,EAAyC,uBAAjI;AACQ,+FAAmB,UtGxbpD,2BsGwboD,EAAgB,SHxdjD,oEGwdiD,EAAqC,wBAAwB,2BAAhG;AACR,uFAAmB,UtGzb5C,2BsGyb4C,EAAgB,SHzdzC,oEGydyC,EAAwC,UfOvF,gEePuF,EAA3E;AACG,0FAAmB,UtG1b/C,2BsG0b+C,EAAgB,SH1d5C,oEG0d4C,EAA2C,4BAAuB,YfialH,kEejakH,EAArG;AACA,0FAAmB,UtG3b/C,2BsG2b+C,EAAgB,SH3d5C,oEG2d4C,EAAqC,wBAAwB,afGxG,uEeHwG,EAAhG;AACW,qGAAmB,UtG5b1D,2BsG4b0D,EAAgB,SH5dvD,oEG4duD,EAAqC,wBAAmC,wBfCjI,oEeDiI,EAA3G;AACF,mGAAmB,UtG7bxD,2BsG6bwD,EAAgB,SH7drD,oEG6dqD,EAAqC,wBAAiC,sBfA7H,oEeA6H,EAAzG;AACL,8FAAmB,UtG9bnD,2BsG8bmD,EAAgB,SH9dhD,oEG8dgD,EAAqC,wBAA4B,+BAApG;AACH,2FAAmB,UtG/bhD,2BsG+bgD,EAAgB,SH/d7C,oEG+d6C,EAAqC,wBAAyB,2BAAjG;AACK,gGAAmB,UtGhcrD,2BsGgcqD,EAAgB,SHhelD,oEGgekD,EAAqC,wBAA8B,gCAAtG;AACJ,4FAAmB,UtGjcjD,2BsGiciD,EAAkB,wBAAgB,SH3Y9D,sEG2Y8D,EAA6C,afH5G,uEeG4G,EAAlG;AACW,uGAAmB,UtGlc5D,2BsGkc4D,EAAkB,wBAAgB,SH5YzE,sEG4YyE,EAAwD,wBfLrI,oEeKqI,EAA7G;AACF,qGAAmB,UtGnc1D,2BsGmc0D,EAAkB,wBAAgB,SH7YvE,sEG6YuE,EAAsD,sBfNjI,oEeMiI,EAA3G;AACL,gGAAmB,UtGpcrD,2BsGocqD,EAAkB,wBAAgB,SH9YlE,sEG8YkE,EAAiD,+BAAtG;AACV,sFAAmB,UtGrc3C,2BsGqc2C,EAAgB,SHrexC,oEGqewC,EAAqC,wBAAiB,uBAAoB,ShBrB/H,iDgBqB+H,EAA7G;AACI,0FAAmB,UtGtc/C,2BsGsc+C,EAAgB,SHte5C,oEGse4C,EAAqC,wBAAiB,uBAAgB,ShBtB/H,gDgBsB+H,EAA+B,4BAAyB,4BAAjK;AACG,6FAAmB,UtGvclD,2BsGuckD,EAAgB,SHve/C,oEGue+C,CAAnC;AACL,wFAAmB,UtGxc7C,2BsGwc6C,EAAgB,SHxe1C,oEGwe0C,EAAqC,wBAAsB,wBAA9F;AACK,6FAAmB,UtGzclD,2BsGyckD,EAAoB,abnb9D,qDamb8D,EAAwB,ShBrQ/F,yCgBqQ+F,EAAiB,wBAAgB,SHze5G,oEGye4G,EAA+D,qBAAoB,wBAAnL;AACD,4FAAmB,UtG1cjD,2BsG0ciD,EAAoB,abpb7D,qDaob6D,EAAwB,ShBtQ9F,yCgBsQ8F,EAAiB,wBAAgB,SH1e3G,oEG0e2G,EAAmC,oBAAnI;AACE,8FAAmB,UtG3cnD,2BsG2cmD,EAAoB,abrb/D,qDaqb+D,EAAwB,ShBvQhG,yCgBuQgG,EAAiB,wBAAgB,SH3e7G,oEG2e6G,EAAoC,sBAAoB,wBAAxJ;AACD,6FAAmB,UtG5clD,2BsG4ckD,EAAoB,abtb9D,qDasb8D,EAAwB,ShBxQ/F,yCgBwQ+F,EAAiB,wBAAgB,SH5e5G,oEG4e4G,EAAoC,qBAApI;AACE,+FAAmB,UtG7cpD,2BsG6coD,EAAoB,abvbhE,qDaubgE,EAAwB,ShBzQjG,yCgByQiG,EAAiB,wBAAgB,SH7e9G,oEG6e8G,EAAqC,WhB7BhK,gDgB6BgK,EAA0B,wBAA/J;AACD,8FAAmB,UtG9cnD,2BsG8cmD,EAAoB,abxb/D,qDawb+D,EAAwB,ShB1QhG,yCgB0QgG,EAAiB,wBAAgB,SH9e7G,oEG8e6G,EAAqC,WhB9B/J,gDgB8B+J,CAArI;AACD,6FAAmB,UtG/clD,2BsG+ckD,EAAoB,abzb9D,qDayb8D,EAAwB,ShB3Q/F,yCgB2Q+F,EAAiB,wBAAgB,SH/e5G,oEG+e4G,EAAmC,ShB/B5J,gDgB+B4J,EAA0B,wBAA7J;AACD,4FAAmB,UtGhdjD,2BsGgdiD,EAAoB,ab1b7D,qDa0b6D,EAAwB,ShB5Q9F,yCgB4Q8F,EAAiB,wBAAgB,SHhf3G,oEGgf2G,EAAmC,ShBhC3J,gDgBgC2J,CAAnI;AACE,8FAAmB,UtGjdnD,2BsGidmD,EAAoB,ab3b/D,qDa2b+D,EAAwB,ShB7QhG,yCgB6QgG,EAAiB,wBAAgB,SHjf7G,oEGif6G,EAAwC,wBAAxI;AACD,6FAAmB,UtGldlD,2BsGkdkD,EAAoB,ab5b9D,qDa4b8D,EAAwB,ShB9Q/F,yCgB8Q+F,EAAiB,wBAAgB,SHlf5G,oEGkf4G,CAAhG;AACL,wFAAmB,UtGnd7C,2BsGmd6C,EAAoB,ab7bzD,qDa6byD,EAAwB,ShB/Q1F,yCgB+Q0F,EAAiB,wBAAgB,SHnfvG,oEGmfuG,CAAhG;AACW,mGAAmB,UtGpdxD,2BsGodwD,EAAoB,ab9bpE,qDa8boE,EAAwB,ShBhRrG,yCgBgRqG,EAAiB,wBAAgB,SHpflH,oEGofkH,EAAwC,wBAAxI;AACD,kGAAmB,UtGrdvD,2BsGqduD,EAAoB,ab/bnE,qDa+bmE,EAAwB,ShBjRpG,yCgBiRoG,EAAiB,wBAAgB,SHrfjH,oEGqfiH,CAAhG;AACL,6FAAmB,UtGtdlD,2BsGsdkD,EAAoB,abhc9D,qDagc8D,EAAwB,ShBlR/F,yCgBkR+F,EAAiB,wBAAgB,SHtf5G,oEGsf4G,CAAhG;AACC,8FAAmB,UtGvdnD,2BsGudmD,EAAoB,abjc/D,qDaic+D,EAAwB,ShBnRhG,yCgBmRgG,EAAiB,wBAAgB,SHvf7G,oEGuf6G,EAAoC,UhBvC9J,gDgBuC8J,EAA2B,wBAA/J;AACD,6FAAmB,UtGxdlD,2BsGwdkD,EAAoB,ablc9D,qDakc8D,EAAwB,ShBpR/F,yCgBoR+F,EAAiB,wBAAgB,SHxf5G,oEGwf4G,EAAoC,UhBxC7J,gDgBwC6J,CAApI;AACN,uFAAmB,UtGzd5C,2BsGyd4C,EAAgB,SHzfzC,oEGyfyC,EAAwC,UxF/MrG,uCwF+MqG,EAA3E;AACI,2FAAmB,UtG1dhD,2BsG0dgD,EAAgB,SH1f7C,oEG0f6C,EAAqC,wBAAyB,cHrHzG,uEGqHyG,EAAjG;AACA,2FAAmB,UtG3dhD,2BsG2dgD,EAAgB,SH3f7C,oEG2f6C,EAAqC,wBAAyB,cxFjN/H,uCwFiN+H,EAAjG;AACC,4FAAmB,UtG5djD,2BsG4diD,EAAgB,SH5f9C,oEG4f8C,EAAqC,wBAA0B,exFlNjI,uCwFkNiI,EAAlG;AACH,yFAAmB,UtG7d9C,2BsG6d8C,EAAgB,SH7f3C,oEG6f2C,EAA2C,2BAA9E;AACG,4FAAmB,UtG9djD,2BsG8diD,EAAkB,wBAAkB,sBAAvD;AACK,iGAAmB,UtG/dtD,2BsG+dsD,EAAkB,wBAAmB,YzE8O1F,wCyE9O0F,CAAxD;AAEP,0FAAmB,UtGje/C,2BsGie+C,EAAgB,SHjgB5C,oEGigB4C,EAA4C,4BAA/E;AACF,wFAAmB,UtGle7C,2BsGke6C,EAAgB,SHlgB1C,oEGkgB0C,EAAqC,wBAAuB,0BAA/F;AACC,yFAAmB,UtGne9C,2BsGme8C,EAAgB,SHngB3C,oEGmgB2C,EAA2C,2BAA9E;AACD,wFAAmB,UtGpe7C,2BsGoe6C,EAAgB,SHpgB1C,oEGogB0C,EAA0C,0BAA7E;AACA,wFAAmB,UtGre7C,2BsGqe6C,EAAgB,SHrgB1C,oEGqgB0C,EAA0C,0BAA7E;AAEG,2FAAmB,UtGvehD,2BsGuegD,EAAgB,SHvgB7C,oEGugB6C,EAAqC,wBAAoB,uBAAwB,4BAApH;AACD,0FAAmB,UtGxe/C,2BsGwe+C,EAAgB,SHxgB5C,oEGwgB4C,EAAqC,uBAAxE;AACG,6FAAmB,UtGzelD,2BsGyekD,EAAgB,SHzgB/C,oEGygB+C,EAA8C,8BAAjF;AACD,4FAAmB,UtG1ejD,2BsG0eiD,EAAgB,SH1gB9C,oEG0gB8C,CAAnC;AACD,2FAAmB,UtG3ehD,2BsG2egD,EAAgB,SH3gB7C,oEG2gB6C,EAA4C,4BAA/E;AACD,0FAAmB,UtG5e/C,2BsG4e+C,EAAgB,SH5gB5C,oEG4gB4C,CAAnC;AACA,0FAAmB,UtG7e/C,2BsG6e+C,EAAgB,SH7gB5C,oEG6gB4C,EAAqC,wBAAwB,2BAAhG;AACD,yFAAmB,UtG9e9C,2BsG8e8C,EAAgB,SH9gB3C,oEG8gB2C,EAAqC,uBAAxE;AACG,4FAAmB,UtG/ejD,2BsG+eiD,EAAgB,SH/gB9C,oEG+gB8C,EAAqC,wBAA0B,6BAAlG;AACD,2FAAmB,UtGhfhD,2BsGgfgD,EAAgB,SHhhB7C,oEGghB6C,EAAqC,uBAAxE;AAEI,+FAAmB,UtGlfpD,2BsGkfoD,EAAyB,4BAA5C;AACD,8FAAmB,UtGnfnD,2BsGmfmD,CAAnB;AAEH,2FAAmB,UtGrfhD,2BsGqfgD,EAAgB,SHrhB7C,oEGqhB6C,EAA4C,4BAA/E;AACD,0FAAmB,UtGtf/C,2BsGsf+C,EAAgB,SHthB5C,oEGshB4C,CAAnC;AACG,6FAAmB,UtGvflD,2BsGufkD,EAAgB,SHvhB/C,oEGuhB+C,EAA8C,8BAAjF;AACD,4FAAmB,UtGxfjD,2BsGwfiD,EAAgB,SHxhB9C,oEGwhB8C,CAAnC;AAER,oFAAmB,UtG1fzC,2BsG0fyC,EAAgB,SH1hBtC,oEG0hBsC,CAAnC;AACK,yFAAmB,UtG3f9C,2BsG2f8C,EAAgB,SH3hB3C,oEG2hB2C,EAAqC,uBAAxE;AACA,yFAAmB,UtG5f9C,2BsG4f8C,EAAgB,SH5hB3C,oEG4hB2C,CAAnC;AACA,yFAAmB,UtG7f9C,2BsG6f8C,EAAgB,SH7hB3C,oEG6hB2C,CAAnC;AAER,iFAAmB,UtG/ftC,2BsG+fsC,EAAoB,wBAAvC;AAGW,4FAAmB,UtGlgBjD,2BsGkgBiD,EAAqB,crF7lBnE,sCqF6lBmE,EAA0B,0BAAlE;AACD,2FAAmB,UtGngBhD,2BsGmgBgD,EAAgB,SHjDpD,6DGiDoD,EAAiC,crF9lB9F,sCqF8lB8F,CAApE;AAEI,+FAAmB,UtGrgBpD,2BsGqgBoD,EAAqB,cH9JxD,kEG8JwD,EAAiC,qBAAoB,uBAA7F;AACL,0FAAmB,UtGtgB/C,2BsGsgB+C,EAAqB,cH/JnD,kEG+JmD,EAAwC,6BAA4B,8BAA5G;AAQF,4DzFoLtB,yDyFpLsB;AAES,iGAAmB,UtGhhBtD,2BsGghBsD,EAAgB,SHhjBnD,oEGgjBmD,EAAqC,wBAAyB,kBzFkLhI,2CyFlLgI,CAAjG;AACF,+FAAmB,UtGjhBpD,2BsGihBoD,EAAgB,SHjjBjD,oEGijBiD,EAAqC,wBAAyB,kBzFiL9H,2CyFjL8H,EAAsD,sBhB7UzL,0CgB6UyL,EAAvJ;AACJ,2FAAmB,UtGlhBhD,2BsGkhBgD,EAAgB,SHljB7C,oEGkjB6C,EAAqC,wBAAoF,uBAJ/J,gDAI+J,EAA5J;AACO,kGAAmB,UtGnhBvD,2BsGmhBuD,EAAgB,SHnjBpD,oEGmjBoD,EAAqC,wBAAuB,0BAA/F;AACD,iGAAmB,UtGphBtD,2BsGohBsD,EAAgB,SHpjBnD,oEGojBmD,EAAqC,wBAAyB,kBzF8KhI,2CyF9KgI,EAAkD,sBhBhVvL,yCgBgVuL,CAAnJ;AACJ,6FAAmB,UtGrhBlD,2BsGqhBkD,EAAgB,SHrjB/C,oEGqjB+C,EAAqC,wBAAyB,kBzF6K5H,2CyF7K4H,EAA0C,2BAAwB,2BAAnK;AACD,4FAAmB,UtGthBjD,2BsGshBiD,EAAoB,aHtjBlD,oEGsjBkD,EAAS,WHtjB3D,oEGsjB2D,EAA6C,6BAA7F;AACD,2FAAmB,UtGvhBhD,2BsGuhBgD,EAAoB,aHvjBjD,oEGujBiD,EAAS,WHvjB1D,oEGujB0D,CAAhD;AACD,0FAAmB,UtGxhB/C,2BsGwhB+C,EAAsB,4BAAoB,aHxapE,sEGwaoE,EAA4C,0BAAzG;AACD,yFAAmB,UtGzhB9C,2BsGyhB8C,EAAsB,4BAAoB,aHzanE,sEGyamE,CAA7D;AACA,yFAAmB,UtG1hB9C,2BsG0hB8C,EAAoB,aH1jB/C,oEG0jB+C,EAAS,WH1jBxD,oEG0jBwD,EAA0C,0BAA1F;AACD,wFAAmB,UtG3hB7C,2BsG2hB6C,EAAoB,aH3jB9C,oEG2jB8C,EAAS,WH3jBvD,oEG2jBuD,CAAhD;AACQ,gGAAmB,UtG5hBrD,2BsG4hBqD,EAAuB,0BAA1C;AACD,+FAAmB,UtG7hBpD,2BsG6hBoD,EAAsB,yBAAzC;AACI,mGAAmB,UtG9hBxD,2BsG8hBwD,EAAwB,2BAA3C;AACJ,+FAAmB,UtG/hBpD,2BsG+hBoD,CAAnB;AACD,8FAAmB,UtGhiBnD,2BsGgiBmD,CAAnB;AACI,kGAAmB,UtGjiBvD,2BsGiiBuD,CAAnB;AAEX,uFAAmB,UtGniB5C,2BsGmiB4C,EAAkB,wBAAyB,2BAA9D;AAEJ;;AAEA;;AACD;;AAET;;AACD,uCADC,0CACD;AA8BS;AA1BL;;;AAEnB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAVmB;;;;;AAkvTiB;AAEtC,oBAAU;AACV,sBAAY;AACZ,4BAAkB;AAClB,0BAAgB;AAChB,qBAAW,CAAC;AACZ,yBAAe;AACf,yBAAe;AACf,4BAAkB;AAClB,+BAAqB;AAVsD;AAArC;AAaA;AAGtC;AAHsC;AA5BF;AAEpC,UAAa,0BAAH,eAAP,MAAO,CAAV;AAEE,wBAAoB,OAAP,OAAU,0BAAH,CAAyB;AAC7C,8BAA0B,OAAP,OAAU,0BAAH,CAAyB;AACnD,4BAAwB,OAAP,OAAU,0BAAH,CAAyB;AACjD,uBAAmB,OAAP,OAAU,0BAAH,CAAyB;AAC5C,2BAAuB,OAAP,OAAU,0BAAH,CAAyB;AAChD,2BAAuB,OAAP,OAAU,0BAAH,CAAyB;AAChD,8BAA0B,OAAP,OAAU,0BAAH,CAAyB;AACnD,iCAA6B,OAAP,OAAU,0BAAH,CAAyB;OATxD;AAFoC;AAnuTf;AAYD,+BAAO,UAcD,wCAdC,CAAP;AAII;AACN;AACI;AACL;AACO;AACG;AACN;AACA;AAvBA;AA0BK;;;AAExB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAtBwB;;;;;;;AA0kTuB;AAEjD,UAAG,iBAAa,KAAG,KAAnB,EACE,oBAAgB,KADlB;AAFiD;AAiCG;AAEpD,UAAG,oBAAgB,KAAG,KAAtB,EACE,uBAAmB,KADrB;AAFoD;AAnBN;AAE9C,UAAG,cAAU,KAAG,KAAhB,EACE,iBAAa,KADf;AAF8C;AArEI;AAElD,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;AACjB,YAAW,CAAC,cAAD,SAAY,IAAI,kBAA3B,EACE,cAAS,mBAAkB,cAAC,CAAc,KAAd,CAD9B;OAHF;AAFkD;AAPY;AAG9D,UAAG,8BAA0B,KAAG,KAAhC,EACE,iCAA6B,KAD/B;AAH8D;AAoCN;AAGxD,UAAG,wBAAoB,KAAG,KAA1B,EACE,2BAAuB,KADzB;AAHwD;AAoDG;AAG3D,UAAG,2BAAuB,KAAG,KAA7B,EACE,8BAA0B,KAD5B;AAH2D;AAtCR;AAGnD,UAAG,mBAAe,KAAG,KAArB,EACE,sBAAkB,KADpB;AAHmD;AApBG;AAEtD,UAAG,sBAAkB,KAAG,KAAxB,EACE,yBAAqB,KADvB;AAFsD;AAbJ;AAElD,UAAG,kBAAc,KAAG,KAApB,EACE,qBAAiB,KADnB;AAFkD;AAiEL;AAE7C,UAAG,aAAS,KAAG,KAAf,EACE,gBAAY,KADd;AAF6C;AAvCD;AAG5C,UAAG,YAAQ,KAAG,KAAd,EACE,YAAO,OAAO,CAAC,KAAD,CADhB;AAH4C;AApBkB;AAG9D,UAAG,8BAA0B,KAAG,KAAhC,EACE,iCAA6B,KAD/B;AAH8D;AA8ED;AAG7D,UAAG,6BAAyB,KAAG,KAA/B;AAEE,wCAA4B;OAF9B;AAH6D;AA1GJ;AAAvB;AAElC,eAAU,qBAAgB,KAAG,CAAH;AAFQ;AAAuB;AA8DJ;AAErD,8BAAoB;AAFiC;AAnEI;AAAvB;AAElC,eAAU,qBAAgB,KAAG,GAAH;AAFQ;AAAuB;AA8EH;AAEtD,UAAS,UAAN,MAAS,sBAAH,CAAT;AAEE,iCAAqB;OAFvB;AAFsD;AA7GX;AAE3C,uBAAa;AACb,0BAAgB;AAChB,8BAAoB;AACpB,8BAAoB;AACpB,4BAAkB;AAClB,uCAA6B;AAC7B,sBAAY;AACZ,2BAAiB;AACjB,uBAAa;AACb,sCAA4B;AAC5B,oCAA0B;AAC1B,6BAAmB;AACnB,2BAAiB;AACjB,iCAAuB;AACvB,0BAAgB;AAChB,2BAAiB;AACjB,+BAAqB;AACrB,uCAA6B;AAC7B,4BAAkB;AAClB,qBAAW,0BAAqB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,+BAAqB,cAAC,wCAAiB,qCAAlB;AAtByD;AAAnC;AAyBA;AAEnC,eAAR,KAAQ;AACR;AAH2C;AAnDF;AAEzC,UAAc,+BAAH,eAAP,MAAO,CAAX;AAEE,4BAAwB,OAAP,OAAU,+BAAH,CAA8B;AACtD,+BAA2B,OAAP,OAAU,+BAAH,CAA8B;AACzD,yBAAqB,OAAP,OAAU,+BAAH,CAA8B;AACnD,6BAAyB,OAAP,OAAU,+BAAH,CAA8B;AACvD,yCAAqC,OAAP,OAAU,+BAAH,CAA8B;AACnE,mCAA+B,OAAP,OAAU,+BAAH,CAA8B;AAC7D,sCAAkC,OAAP,OAAU,+BAAH,CAA8B;AAChE,6BAAyB,OAAP,OAAU,+BAAH,CAA8B;AACvD,8BAA0B,OAAP,OAAU,+BAAH,CAA8B;AACxD,iCAA6B,OAAP,OAAU,+BAAH,CAA8B;AAC3D,8BAA0B,OAAP,OAAU,+BAAH,CAA8B;AACxD,wBAAoB,OAAP,OAAU,+BAAH,CAA8B;AAClD,6BAAyB,OAAP,OAAU,+BAAH,CAA8B;AACvD,oBAAO,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,QAAvC;AACd,yCAAqC,OAAP,OAAU,+BAAH,CAA8B;AACnE,4BAAwB,OAAP,OAAU,+BAAH,CAA8B;AACtD,wCAAoC,OAAP,OAAU,+BAAH,CAA8B;AAClE,gCAA4B,OAAP,OAAU,+BAAH,CAA8B;AAC1D,gCAA4B,OAAP,OAAU,+BAAH,CAA8B;OApB5D;AAFyC;AAz8Sf;AA4CN,+BAAU,aA0JT,mCA1JS,CAAV;AAIM;AACJ;AACA;AACK,wCAjFV,gCAiFU,2CAA6E,uBAAC,wCAAiB,qCAAlB,CAA7E;AACE;AACF;AACH,qCA1FI,2CA0FJ;AACE;AACD;AACF;AACJ;AACgB;AACZ;AACY;AACX,qCAhGI,2CAgGJ;AACN;AACK,oCAjGI,0CAiGJ;AACN,8BA3FI,oCA2FJ;AACiB;AAlER;AAqEM;AAC9B;AAD8B;;uBAE9B;AAF8B;;;aAC9B,kCACA;AAF8B;;AAC9B;AACA;AAF8B;;;AAC9B;AACA,+BhB7dK,0CgB6dL;AAF8B;AAMJ;AAwxTe;AAAP;AAEpC,eAAoC,cAAW,QAAK,CAAC,KAAD,CAAhB;AAFA;AAAO;AAKC;AAElC,cAAK,CAAC,MAAU,KAAX;AAF6B;AA7xThB;AAWJ,mDH7ML,qEG6MK;AAEA;AACtB;AACA;AAFsB;aACtB,4BACA;AAFsB;;AACtB;AACA;AAFsB;;;AACtB;AACA,wBHnsBwB,oEGmsBxB;AAFsB;AAKD;AACrB;AACA;AAFqB;aACrB,4BACA;AAFqB;;AACrB;AACA;AAFqB;;;AACrB;AACA,wBHxsBwB,oEGwsBxB;AAFqB;AAKE;AACvB;AACA;AAFuB;aACvB,4BACA;AAFuB;;AACvB;AACA;AAFuB;;;AACvB;AACA;AAFuB;AAKF;;;;AAYJ;;;AAEjB;AAFiB;;;;;AAwjTgB;AAEnC;AACA,UAAW,CAAC,cAAD,SAAY,IAAI,cAAS,qBAApC;AAEO;AACH,YADG,IACH;AAEE,wBAAS,mBAAmB,CAAC,KAAM,IAAP;AAC5B,kBAAO,CAAP;SAEF,UANG,IAMH;AAEE,wBAAS,mBAAmB,CAAC,MAAO,IAAR;AAC5B,kBAAO,CAAP;SAHF;OARJ;AAHmC;AAPD;AAElC;AACA,UAAW,CAAC,cAAD,SAAY,IAAI,cAAS,qBAApC,EACE,cAAS,mBAAmB,CAAC,MAhlSwC,KAglSzC,CAD9B;AAHkC;AAPE;AAEpC;AACA,UAAa,0BAAH,eAAP,MAAO,CAAV,EACE,iBAAoB,OAAP,OAAU,0BAAH,CADtB;AAHyD;AAArB;AA1iTjB;;;AAOC,+BAAO,U7FlQjB,+B6FkQiB,CAAP;AAPD;AASA;;;AAEjB;AAFiB;;;;;AA6gTgB;AAEnC;AACA,UAAW,CAAC,cAAD,SAAY,IAAI,cAAS,qBAApC;AAEO;AACH,YADG,IACH;AAEE,wBAAS,mBAAmB,CAAC,KAAM,IAAP;AAC5B,kBAAO,CAAP;SAEF,WANG,IAMH,aAAQ,CANL,IAMK,QAAR;AAEE,wBAAS,mBAAmB,CAAC,MAAO,IAAR;AAC5B,kBAAO,CAAP;SAHF;OARJ;AAHmC;AAPD;AAElC;AACA,UAAW,CAAC,cAAD,SAAY,IAAI,cAAS,qBAApC,EACE,cAAS,mBAAmB,CAAC,MA9iSwC,KA8iSzC,CAD9B;AAHkC;AAPE;AAEpC;AACA,UAAa,0BAAH,eAAP,MAAO,CAAV,EACE,iBAAoB,OAAP,OAAU,0BAAH,CADtB;AAHyD;AAArB;AA//SjB;;;AAOC,+BAAO,U7F3QjB,+B6F2QiB,CAAP;AAPD;AAWK;;AAEI,mFAAmB,UtGltBxC,2BsGktBwC,EAAiB,UtGltBzD,2BsGktByD,EAAgB,ShB/hBzE,0CgB+hByE,EAAqB,wBAAzE;AACA,mFAAmB,UtGntBxC,2BsGmtBwC,EAAiB,UtGntBzD,2BsGmtByD,EAAgB,ShBhiBzE,0CgBgiByE,CAApD;AACE,qFAAmB,UtGptB1C,2BsGotB0C,EAAkB,wBAAoB,aHpmB3D,sEGomB2D,CAAzD;AACJ,iFAAmB,UtGrtBtC,2BsGqtBsC,EAAwB,4BAA3C;AACC,kFAAmB,UtGttBvC,2BsGstBuC,EAAoB,aHtvBxC,oEGsvBwC,EAAS,WHtvBjD,oEGsvBiD,CAAhD;AAED;;AAEJ;;;AAEpB;AACA;AACA;AAJoB;;;;;AAqoTkB;AAExC,qBAAW;AACX,UAAG,CAAY,CAAC,cAAD,SAAf,EACE,MADF;AAEA;AALwC;AAQE;AAE1C,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb,YAAG,cAAH,EACE,MADF;AAGA,yBAAa;AACb,YAAY,cAAD,QAAX;AAEE,wBAAS,WAAC,CAAW,IAAX;AACV;SAHF;AAKA,yBAAa;OAZf;AAF0C;AAkCD;AAAX;AAE9B,eAAU;AAFoB;AAAW;AAKM;;AAhEJ;AAG3C;AACA,UAAc,CAAV,SAAU,KAAE,+BAAF,CAAY,IAAgB,CAAX,UAAW,KAAE,cAAF,CAA1C,EACE,iBAAa,IADf;AAJ2C;AA2CA;;AA0BF;;AA7DI;;AAIJ;;AAoCC;;AAxEO;;AA8EC;AAApB;AAE9B,eAAU;AAFoB;AAAoB;AAzEX;AAEvC;AAEA;AACA,qBAAW;AACX,UAAG,mBAAkC,IAAT,CAAC,MAAD,SAAZ,IAAoC,+BAAH,eAAP,MAAO,CAAjD;AAEE,iBAAS,QAA2B,OAAtB,MAAM,kBAAC,EAAe,GAAE,CAAF,kBAApC;AAAI;AAEF,cAA4B,0BAAH,eAArB,MAAM,aAAW,CAAC,CAAD,CAAI,CAAzB;AAEE,6BAAiC,OAArB,MAAM,aAAW,CAAC,CAAD,EAAO,0BAAH,CAAjC;AACA;WAHF;;OAJJ;AAN4D;AAArB;AAjmTjB;;;;;AAmBF,+BAAO,U7F5SjB,+B6F4SiB,CAAP;AAEH;AACE,gCA+BE,oCA/BF;AAtBG;AA0BQ;;;AAE5B;AACA;AACA;AACA;AACA;AACA;AACA;AAR4B;;;;;AAqtTgB;AAE9C,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAF8C;AAMC;AAE/C,0BAAgB;AAChB,4BAAkB;AAClB,+BAAqB;AACrB,gCAAsB;AACtB,8BAAoB;AACpB,8BAAoB;AAP4B;AAAD;AAUA;AAG/C;AAH+C;AA/BF;AAE7C,UAAc,mCAAH,eAAP,MAAO,CAAX;AAEE,4BAAwB,OAAP,OAAU,mCAAH,CAAkC;AAC1D,8BAA0B,OAAP,OAAU,mCAAH,CAAkC;AAC5D,iCAA6B,OAAP,OAAU,mCAAH,CAAkC;AAC/D,kCAA8B,OAAP,OAAU,mCAAH,CAAkC;AAChE,gCAA4B,OAAP,OAAU,mCAAH,CAAkC;AAC9D,gCAA4B,OAAP,OAAU,mCAAH,CAAkC;OAG9D;AAZ2C;AAtsTf;AAaV;AAKE;AACE;AACG;AACC;AACF;AACA;AAvBI;AA2BT;;;AAEnB;AACA;AACA;AACA;AAAiB;AACjB;AACA;AACA;AAAI;AAAQ;AACZ;AACA;AACA;AAAc;AAAW;AACzB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAAgB;AAChB;AACA;AAAa;AAAkB;AAAa;AAAmB;AAC/D;AACA;AACA;AAKA;AACA;AACA;AACA;AAAW;AAAc;AACzB;AACA;AAAe;AACf;AACA;AACA;AACA;AACA;AACA;AAAU;AAAqB;AAAuB;AACtD;AACA;AAAM;AACN;AAAU;AAAU;AAAQ;AAAQ;AAAS;AAAS;AACtD;AAAY;AACZ;AAAY;AACZ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEA;AACA;AACA;AAGA;AA1NmB;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAq6N2B;AAEhD,UAAG,qBAAiB,KAAG,KAAvB,EACE,qBAAgB,OAAO,CAAC,KAAD,CADzB;AAFgD;AA8CC;AAGjD,UAAG,sBAAkB,KAAG,KAAxB,EACE,sBAAiB,OAAO,CAAC,KAAD,CAD1B;AAHiD;AAcC;AAGlD,UAAG,uBAAmB,KAAG,KAAzB,EACE,uBAAkB,OAAO,CAAC,KAAD,CAD3B;AAHkD;AAlEN;AAE5C,UAAG,iBAAa,KAAG,KAAnB,EACE,iBAAY,OAAO,CAAC,KAAD,CADrB;AAF4C;AA5jJD;AAAd;AAE7B;AAEA,eAAU;AACV,UAAK;AACL,UAAY,CAAD,QAAX,EACE,SAAU,CAAC,MADb;AAN6B;AAAc;AAUO;AAArB;AAE7B,eAAU;AAFmB;AAAqB;AAeX;AAAV;AAE7B;AAEA,eAAU;AACV,UAAK,sBAAoB,CAAC,MAAD;AACzB,UAAY,CAAD,QAAX,EACE,SAAU,CAAC,MADb;AAN6B;AAAU;AAUO;AAAjB;AAG7B,eAAU;AACV,UAAW,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,IAA4B,CAAzB,+BAAyB,GAAE,CAAF,CAA5B,CAA7B,EACE,SAAU,mBAAc,SAAC,MAAD,CAD1B;AAJ6B;AAAiB;AAkmJD;AAE7C,UAAG,kBAAc,KAAG,KAApB,EACE,kBAAa,OAAO,CAAC,KAAD,CADtB;AAF6C;AAsBD;AAG5C,UAAY,KAAD,QAAX;AACE,mCAA8C,KAAM,aAApD;AAEA,uCAAsB,IAAtB;AAN0C;AASO;AAGnD,0BAAgB;AAChB;AAJmD;AA5ER;AAE3C,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf;OAHF;AAF2C;AAh8CI;AAE/C;AACA;AACA;AAAG;AAEH,UAAY,mBAAD,QAAX;AAEE,oBAAa,mBAAc;AAC3B,YAAc,CAAV,SAAU,IAAG,CAAH,CAAM,IAAe,CAAV,SAAU,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAAnC;AAEE,cAAG,aAAO,WAAC,SAAD,CAAW,WAAU,aAA/B;AAEE,qBAAsB,KAAb,YAAM,SAAC,EAAM,GAAE,CAAF,EAAW,aAAjC;AAAI;AAEF,kBAAG,YAAM,UAAM,CAAC,CAAD,CAAG,QAAQ,KAAE,SAA5B,EACE,YAAM,OAAO,CAAC,CAAD,CADf;;WAKF,MAAA,YAAM;AAER,eAAM,YAAM;AACZ,YAAE,QAAF,GAAa;AAEb,gBAAO;AACP,cAA6B,CAAzB,mBAAc,aAAC,EAAU,IAAG,CAAH,CAAM,IAA8B,CAAzB,mBAAc,aAAC,EAAU,IAA8B,CAA3B,mBAAc,OAAM,SAAC,EAAM,GAAE,CAAF,CAA9B,CAAjE,EACE,MAAO,mBAAc,OAAM,KAAC,mBAAc,aAAC,EAAhB,CAD7B;AAGA,cAAG,cAAG,CAAC,IAAI,GAAL,CAAU,GAAE,CAAlB,EACE,MAAO,GAAU,GAAJ,GAAF,GAAQ,GADrB;AAGA,2BAAY,UAAC,CAAU,KAAV;AAEb,cAAG,GAAI,KAAE,8CAAT;AAEE;;AAIA,+BAAc,CAAC,EAAE,SAAS;;;;gBAAZ;AACd,cAAE,WAAF,GAAgB;AAChB;;SAjCJ;OAHF;AAyCA,uBAAY,WAAC,CAAW,KAAX;AA/CkC;AA+9CP;AAExC,UAAY,KAAD,QAAX,EACE,KAAK,YAAC,CAAY,IAAZ,CADR;AAEA,sBAAY;AAJ4B;AA/CK;AAG7C,UAAY,KAAD,QAAX;AACE,oCAA+C,KAAM,aAArD;AAEA,wCAAuB,IAAvB;AAN2C;AASO;AAGpD,iCAAsB,KAAtB;AACA,4BAAiB,CAAC,KAAD;AAJmC;AA0DR;AAE5C,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;AAChB;OAHF;AAF4C;AA5nJU;AAAzB;AAE7B;AAEA,eAAU,CAAC;AACX,UAAK;AACL,UAAY,CAAD,QAAX,EACE,SAAU,CAAC,KADb;AAN6B;AAAyB;AA4BhB;AAAT;AAE7B,eAAU;AAFmB;AAAS;AAsjJC;AAEvC,iCAAsB,CAAC,MAAO,KAAM,4EAAU,IAAxB;AAFiB;AApuJE;AAAZ;AAE7B,eAAU;AAFmB;AAAY;AA8uJE;AAE3C,sBAAW,OAAO,CAAC,KAAD;AAFyB;AA0CY;AAEvD,qCAA2B;AAF4B;AAh/DX;AAE5C;AAEA;AACA;AACA;AACA;AACA,2BAAe,eAAC,CAAe,sCAAY,aAAa,CAAC,qBAAe,cAAc,EAAG,CAAjC,CAAxC;AAChB,2BAAe,eAAC,CAAe,sCAAY,aAAa,CAAC,qBAAe,cAAc,EAAG,CAAjC,CAAxC;AAChB,2BAAe,gBAAC,CAAgB,sCAAY,aAAa,CAAC,qBAAe,eAAe,EAAG,CAAlC,CAAzC;AAChB,6BAAiB,WAAC,CAAW,sCAAY,aAAa,CAAC,uBAAiB,UAAU,EAAG,CAA/B,CAApC;AAClB,6BAAiB,cAAC,CAAc,sCAAY,aAAa,CAAC,uBAAiB,aAAa,EAAG,CAAlC,CAAvC;AAClB,4BAAgB,WAAC,CAAW,sCAAY,aAAa,CAAC,sBAAgB,UAAU,EAAG,CAA9B,CAApC;AACjB,4BAAgB,cAAC,CAAc,sCAAY,aAAa,CAAC,sBAAgB,aAAa,EAAG,CAAjC,CAAvC;AACjB,6BAAiB,YAAW,UAAC,CAAU,sCAAY,UAAU,CAAC,uBAAiB,YAAW,SAAS,EAAG,CAAzC,CAAhC;AAC7B,6BAAiB,SAAQ,UAAC,CAAU,sCAAY,UAAU,CAAC,uBAAiB,SAAQ,SAAS,EAAG,CAAtC,CAAhC;AAC1B,4BAAgB,YAAW,UAAC,CAAU,sCAAY,UAAU,CAAC,sBAAgB,YAAW,SAAS,EAAG,CAAxC,CAAhC;AAC5B,4BAAgB,SAAQ,UAAC,CAAU,sCAAY,UAAU,CAAC,sBAAgB,SAAQ,SAAS,EAAG,CAArC,CAAhC;AACzB,2BAAe,cAAa,UAAC,CAAU,sCAAY,UAAU,CAAC,qBAAe,cAAa,SAAS,EAAG,CAAzC,CAAhC;AAC7B,2BAAe,MAAK,UAAC,CAAU,sCAAY,UAAU,CAAC,qBAAe,MAAK,SAAS,EAAG,CAAjC,CAAhC;AACrB,2BAAe,eAAC,CAAe,sCAAY,aAAa,CAAC,qBAAe,cAAc,EAAG,CAAjC,CAAxC;AAChB,2BAAe,yBAAC,CAAyB,sCAAY,aAAa,CAAC,qBAAe,wBAAwB,EAAG,CAA3C,CAAlD;AAChB,eAAS,QAAmB,OAAd,aAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AAEF,qBAAO,WAAC,CAAD,CAAG,SAAC,CAAS,sCAAY,aAAa,CAAC,aAAO,WAAC,CAAD,CAAG,QAAQ,EAAG,CAAtB,CAAlC;AACX,qBAAO,WAAC,CAAD,CAAG,gBAAC,CAAgB,sCAAY,aAAa,CAAC,aAAO,WAAC,CAAD,CAAG,eAAe,EAAG,CAA7B,CAAzC;AACX,qBAAO,WAAC,CAAD,CAAG,MAAK,UAAC,CAAU,sCAAY,UAAU,CAAC,aAAO,WAAC,CAAD,CAAG,MAAK,SAAS,EAAG,CAA5B,CAAhC;AAChB,qBAAO,WAAC,CAAD,CAAG,WAAU,UAAC,CAAU,sCAAY,UAAU,CAAC,aAAO,WAAC,CAAD,CAAG,WAAU,SAAS,EAAG,CAAjC,CAAhC;AACrB,qBAAO,WAAC,CAAD,CAAG,SAAQ,UAAC,CAAU,sCAAY,UAAU,CAAC,aAAO,WAAC,CAAD,CAAG,SAAQ,SAAS,EAAG,CAA/B,CAAhC;AACnB,qBAAO,WAAC,CAAD,CAAG,YAAW,UAAC,CAAU,sCAAY,UAAU,CAAC,aAAO,WAAC,CAAD,CAAG,YAAW,SAAS,EAAG,CAAlC,CAAhC;AACtB,qBAAO,WAAC,CAAD,CAAG,uBAAC,CAAuB,sCAAY,aAAa,CAAC,aAAO,WAAC,CAAD,CAAG,sBAAsB,EAAG,CAApC,CAAhD;AACX,qBAAO,WAAC,CAAD,CAAG,WAAU,cAAC,CAAc,sCAAY,aAAa,CAAC,aAAO,WAAC,CAAD,CAAG,WAAU,aAAa,EAAG,CAArC,CAAvC;AACrB,qBAAO,WAAC,CAAD,CAAG,WAAU,eAApB,GAAsC,sCAAY,UAAU,CAAC,aAAO,WAAC,CAAD,CAAG,WAAU,gBAAgB,EAAG,CAAxC;AAC5D,qBAAO,WAAC,CAAD,CAAG,WAAU,gBAApB,GAAuC,sCAAY,UAAU,CAAC,aAAO,WAAC,CAAD,CAAG,WAAU,iBAAiB,EAAG,CAAzC;;AAE/D;AApC4C;AA/5FQ;AAEpD;AACA,+BAAa,CAAC,0BAAD;AAHuC;AA+gDZ;AAExC;AAEA;AACA,UAAK;AACL,UAAG,wCAAa,4BAA4B,CAAC;;;;UAAD,CAA5C,EACE,UAAI,SAAC,CAAS,CAAT,CADP;AAGA,UAAG,wCAAa,sBAAsB,CAAC;;;;UAAD,CAAtC;AAEE,oBAAM,SAAC,CAAS,CAAT;AACP,+BAAiB,WAAU,SAAC,CAAS,CAAT;AAC5B,+BAAiB,cAAa,SAAC,CAAS,CAAT;AAC/B,8BAAgB,WAAU,SAAC,CAAS,CAAT;AAC3B,8BAAgB,cAAa,SAAC,CAAS,CAAT;AAC9B,6BAAe,cAAa,SAAC,CAAS,CAAT;AAC7B,6BAAe,gBAAe,SAAC,CAAS,CAAT;OARjC;AAWA,UAAK;AACL,UAAG,wCAAa,wBAAwB,CAAC;;;;UAAD,CAAxC;AAEE,+BAAiB,SAAQ,SAAC,CAAS,CAAT;AAC1B,+BAAiB,SAAQ,QAAC,CAAQ,kEAAR;AAC1B,+BAAiB,YAAW,SAAC,CAAS,CAAT;AAC7B,+BAAiB,YAAW,QAAC,CAAQ,kEAAR;AAC7B,8BAAgB,SAAQ,SAAC,CAAS,CAAT;AACzB,8BAAgB,SAAQ,QAAC,CAAQ,kEAAR;AACzB,8BAAgB,YAAW,SAAC,CAAS,CAAT;AAC5B,8BAAgB,YAAW,QAAC,CAAQ,kEAAR;OAT9B;AAYA,UAAK;AACL,UAAG,wCAAa,0BAA0B,CAAC;;;;UAAD,CAA1C;AAEE,+BAAiB,SAAQ,WAAC,CAAW,CAAX;AAC1B,+BAAiB,SAAQ,QAAC,CAAQ,qEAAR;AAC1B,+BAAiB,YAAW,WAAC,CAAW,CAAX;AAC7B,+BAAiB,YAAW,QAAC,CAAQ,qEAAR;AAC7B,8BAAgB,SAAQ,WAAC,CAAW,CAAX;AACzB,8BAAgB,SAAQ,QAAC,CAAQ,qEAAR;AACzB,8BAAgB,YAAW,WAAC,CAAW,CAAX;AAC5B,8BAAgB,YAAW,QAAC,CAAQ,qEAAR;OAT9B;AAYA,UAAK;AACL,UAAG,wCAAa,2BAA2B,CAAC;;;;UAAD,CAA3C;AAEE,6BAAe,cAAa,SAAC,CAAS,CAAT;AAC7B,6BAAe,gBAAe,SAAC,CAAS,CAAT;OAHjC;AAMA,UAAK;AACL,UAAG,wCAAa,sBAAsB,CAAC;;;;UAAD,CAAtC;AAEE,6BAAe,MAAK,SAAC,CAAS,CAAT;AACrB,6BAAe,qBAAC,CAAqB,CAArB;AAChB,+BAAiB,SAAQ,SAAC,CAAS,CAAT;AAC1B,+BAAiB,YAAW,SAAC,CAAS,CAAT;AAC7B,8BAAgB,SAAQ,SAAC,CAAS,CAAT;AACzB,8BAAgB,YAAW,SAAC,CAAS,CAAT;OAP9B;AAUA,UAAK;AACL,UAAG,wCAAa,iCAAiC,CAAC;;;;UAAD,CAAjD;AAEE,6BAAe,qBAAC,CAAqB,CAArB;AAChB,6BAAe,0BAAC,CAA0B,CAA1B;OAHlB;AAMA,UAAK;AACL,UAAG,wCAAa,4BAA4B,CAAC;;;;UAAD,CAA5C,EACE,UAAI,SAAC,CAAS,CAAT,CADP;AAxEwC;AA7rBH;AAErC;AACA;AAHqC;AAMD;AAEpC;AACA;AAHoC;AAq4IkB;AAEtD;AACA,UAAY,aAAD,QAAX,EACE,aAAO,eADT;AAHsD;AAveL;AAEjD;AAEA,4CAAY,YAAY,CAAC,uBAAiB,UAAU,GpB9iP8B,CoB8iP1D;AACxB,6BAAiB,SAAQ,SAAC,CAAS,cAAY,wCAAZ,CAAT;AAW1B,6BAAiB,SAAQ,SAAC,CAAS,QAAT;AAC1B,6BAAiB,SAAQ,SAAC,CAAS,QAAT;AAC1B,2BAAe,cAAa,SAAC,CAAS,QAAT;AAC7B,2BAAe,gBAAe,SAAC,CAAS,QAAT;AAC/B,2BAAe,MAAK,SAAC,CAAS,QAAT;AACrB,2BAAe,qBAAC,CAAqB,QAArB;AAChB,2BAAe,gBAAe,SAAC,CAAS,QAAT;AAE/B,2BAAe,aAAC,CAAa,KAAb;AAChB,2BAAe,eAAC,CAAe,oBAAe,CAAC,EAAD,CAA9B;AAChB,2BAAe,gBAAC,CAAgB,oBAAe,CAAC,EAAD,CAA/B;AAEhB,2BAAe,aAAC,CAAa,KAAb;AAChB,2BAAe,gBAAe,SAAC,CAAS,gBAAK,CAAC,sBAAe,CAAC,GAAD,CAAhB,CAAd;AAE/B,6BAAiB,WAAC,CAAW,oBAAe,CAAC,EAAD,CAA1B;AAClB,6BAAiB,WAAU,QAAC,CAAQ,mEAAR;AAE5B,gBAAI,QAAC,CAAQ,kEAAR;AACL,kBAAM,QAAC,CAAQ,oEAAR;AACP,gBAAI,SAAC,CAAS,QAAT;AACL,kBAAM,SAAC,CAAS,QAAT;AACP,2BAAe,cAAa,SAAC,CAAS,QAAT;AAC7B,6BAAiB,YAAW,SAAC,CAAS,uBAAiB,SAAQ,OAAlC;AAC7B,6BAAiB,WAAU,SAAC,CAAS,QAAT;AAC5B,6BAAiB,cAAa,SAAC,CAAS,QAAT;AAC/B,6BAAiB,YAAW,SAAC,CAAS,uBAAiB,SAAQ,OAAlC;AAC7B,4BAAgB,SAAQ,SAAC,CAAS,QAAT;AACzB,4BAAgB,YAAW,SAAC,CAAS,QAAT;AAC5B,4BAAgB,WAAU,SAAC,CAAS,QAAT;AAC3B,4BAAgB,cAAa,SAAC,CAAS,QAAT;AAC9B,4BAAgB,SAAQ,SAAC,CAAS,CAAT;AACzB,4BAAgB,YAAW,SAAC,CAAS,CAAT;AAC5B,6BAAiB,SAAQ,QAAC,CAAQ,kEAAR;AAC1B,6BAAiB,YAAW,QAAC,CAAQ,iEAAR;AAC7B,6BAAiB,cAAa,QAAC,CAAQ,oEAAR;AAC/B,4BAAgB,SAAQ,QAAC,CAAQ,iEAAR;AACzB,4BAAgB,YAAW,QAAC,CAAQ,iEAAR;AAC5B,4BAAgB,WAAU,QAAC,CAAQ,oEAAR;AAC3B,4BAAgB,cAAa,QAAC,CAAQ,oEAAR;AAC9B,2BAAe,qBAAC,CAAqB,uBAAiB,SAAQ,OAA9C;AAChB,6BAAiB,YAAW,SAAC,CAAS,uBAAiB,SAAQ,OAAlC;AAC7B,4BAAgB,SAAQ,SAAC,CAAS,uBAAiB,SAAQ,OAAlC;AACzB,4BAAgB,YAAW,SAAC,CAAS,uBAAiB,SAAQ,OAAlC;AAE5B;AA7DiD;AAh5KP;AAG1C;AACA,UAAe,CAAX,UAAW,KAAE,aAAF,CAAY,IAAe,CAAV,SAAU,KAAE,+BAAF,CAA1C,EACE,gBAAY,IADd;AAJ0C;AAs3JW;AAErD;AAEA,4BAAe,mBAAY,GAAE,CAAF;AAC3B,yBAAe;AACf,eAAS,QAAmB,OAAd,aAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AAEG;AACH,YADG,IACH;AAAc,uBAAO,WAAC,CAAD,CAAG,YAAC,CAAY,0EAAZ;AACzB,kBAFG,IAEH,kFAAe,aAAO,WAAC,CAAD,CAAG,YAAC,CAAY,2EAAZ,CAA1B;;AAGJ,4BAAe,mBAAY,GAAE,CAAF;AAb0B;AAtiFD;AAEpD;AACA;AACA;AACA;AACA;AAAM;AACN;AAAI;AACJ;AACA;AACA;AACA;AACA;AACA;AAEA,UAAI,4CAAa,IAAG,oBAApB,EACE,MADF;AAGA,UAAS,CAAL,IAAK,IAAG,CAAH,CAAsE,IAAtD,CAAL,IAAK,IAAe,CAAZ,iBAAY,GAAE,CAAF,CAAf,CAAV,IAAkC,CAAI,uBAAiB,SAAzB,IAAsC,mBAAnF;AAEE,aAAM;AACN,eAAQ;AACR,gBAAS,cAAe,CAAC,IAAD;AACxB,YAAK,4CAAe,QAAC,uBbv/I4B,EAAsB,EAAsB,MAAgC,Iau/IxG;AACrB,SAAC;AACD,SAAC,iBAAD,GAAqB;AACrB,SAAC,sBAAD,GAA0B;AAC1B;AACE,gBAAO;AACP,gBAAO;AACP,cAAS,CAAL,IAAK,IAAG,CAAH,CAAM,IAAU,CAAL,IAAK,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAAzB;AAEE,kBAAO,aAAO,WAAC,IAAD;AACd,gBAAG,CAAI,GAAG,sBAAV,EACE,MAAO,KADT;WAHF;AAOA,cAAG,wCAAO,IAAG,uBAAiB,SAA9B;AAEE,mBAAQ,kBAAa,CAAC,IAAD;AACrB,gCAAe,CAAC,KAAM,0EAAa;;;;gBAApB;AACf,gBAAG,GAAH;AACE,eAAC,MAAK,OAAO,CAAC,uBAAiB,SAAlB;AAEb,kBAAA,CAAC,MAAK,OAAO,CAAC,GAAG,SAAJ;AAEf,0BAAS,+BAAK,CAAC,EAAG,EAAG,MAAO,KAAd,CAAd;AACA,0BAAS,CAAC,cAAc,CAAC,KAAM,+Cbv5I2C,MAA4D,Iau5I9G,CAAxB;AACA,iBAAK,MAAL,GAAe,KAAK,MAAO,GAAE,oBAAe,CAAC,CAAD,CAAjB;AAG3B,gBAAe,CAAZ,KAAK,MAAO,GAAE,KAAK,KAAP,CAAa,GAAE,IAA9B,EACE,OAAQ,KAAK,MAAO,GAAE,KAAK,KAD7B;WAdF;AAkBA,cAAG,2CAAU,IAAG,uBAAiB,SAAjC;AAEE,mBAAQ,kBAAa,CAAC,IAAD;AACrB,gCAAe,CAAC,KAAM,6EAAgB;;;;gBAAvB;AACf,gBAAG,GAAH;AACE,eAAC,MAAK,OAAO,CAAC,uBAAiB,YAAlB;AAEb,kBAAA,CAAC,MAAK,OAAO,CAAC,GAAG,YAAJ;AAEf,0BAAS,+BAAK,CAAC,EAAG,EAAG,MAAO,KAAd,CAAd;AACA,0BAAS,CAAC,cAAc,CAAC,KAAM,+Cbz6I2C,MAA4D,Iay6I9G,CAAxB;AACA,iBAAK,MAAL,GAAe,KAAK,MAAO,GAAE,oBAAe,CAAC,CAAD,CAAjB;AAE3B,gBAAe,CAAZ,KAAK,MAAO,GAAE,KAAK,KAAP,CAAa,GAAE,IAA9B,EACE,OAAQ,KAAK,MAAO,GAAE,KAAK,KAD7B;WAbF;AAiBA,mBAAS,sBAAY,uCAArB;AAAI;AAEF,gBAAK,2BAAsB,CAAC,CAAD;AAC3B,gBAAY,CAAD,QAAX;AAEE,qBAAQ;AACR,gCAAa,CAAC,EAAG,KAAM,yEAAa;;;;kBAAvB;AACb,mBAAM;AACN,kBAAS,CAAL,IAAK,IAAG,CAAH,CAAM,IAAU,CAAL,IAAK,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAAzB,EACE,KAAM,aAAO,WAAC,IAAD,CAAM,cADrB;AAGA,wCAAqB,CAAC,EAAG,KAAM;;;;kBAAV;AAErB,4BAAS,+BAAK,CAAC,EAAG,EAAG,MAAO,KAAd,CAAd;AACA,4BAAS,CAAC,cAAc,CAAC,KAAM,+Cb97IyC,MAA4D,Ia87I5G,CAAxB;AACA,mBAAK,MAAL,GAAe,KAAK,MAAO,GAAE,oBAAe,CAAC,CAAD,CAAjB;AAG3B,kBAAG,IAAK,IAAyB,CAAhB,WAAC,CAAC,aAAF,CAAgB,GAAE,CAAF,CAAjC,EACE,KAAK,MAAL,GAA4D,CAAL,CAAxC,KAAK,MAAmC,GAA1B,CAAC,aAAY,CAAC,IAAD,CAAM,MAArB,GAA8B,EAAF,CAAK,GAAE,KAAF,CAAQ,GAAE,oBAAe,CAAC,CAAD,CADvF;AAGA,kBAAe,CAAZ,KAAK,MAAO,GAAE,KAAK,KAAP,CAAa,GAAE,IAA9B,EACE,OAAQ,KAAK,MAAO,GAAE,KAAK,KAD7B;AAGA,qBAAQ;AACR,iCAAc,CAAC,EAAG,KAAM,yEAAa;;;;kBAAvB;AACd,oBAAO;AACP,kBAAS,CAAL,IAAK,IAAG,CAAH,CAAM,IAAU,CAAL,IAAK,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAAzB,EACE,MAAO,aAAO,WAAC,IAAD,CAAM,mBADtB;AAGA,6CAA0B,CAAC,EAAG,KAAM;;;;kBAAV;AAE1B,4BAAS,+BAAK,CAAC,EAAG,EAAG,MAAO,KAAd,CAAd;AACA,4BAAS,CAAC,cAAc,CAAC,KAAM,+Cbj9IyC,MAA4D,Iai9I5G,CAAxB;AACA,mBAAK,MAAL,GAAe,KAAK,MAAO,GAAE,oBAAe,CAAC,CAAD,CAAjB;AAE3B,kBAAG,IAAK,IAAyB,CAAhB,WAAC,CAAC,aAAF,CAAgB,GAAE,CAAF,CAAjC,EACE,KAAK,MAAL,GAA4D,CAAL,CAAxC,KAAK,MAAmC,GAA1B,CAAC,aAAY,CAAC,IAAD,CAAM,MAArB,GAA8B,EAAF,CAAK,GAAE,KAAF,CAAQ,GAAE,oBAAe,CAAC,CAAD,CADvF;AAGA,kBAAe,CAAZ,KAAK,MAAO,GAAE,KAAK,KAAP,CAAa,GAAE,IAA9B,EACE,OAAQ,KAAK,MAAO,GAAE,KAAK,KAD7B;aApCF;;AAhDJ;AAyFE,WAAC;AACD,WAAE,eAAF,CAAE;AA1FJ;AA6FA,eAAQ,cAAG,CAAC,IAAD;AAEX,YAAK;AACL,YAAG,kBAAH,EACE,uBAAkB,CAAC,KAAM,iBAAY,CAAC,IAAD,EAAQ;;;;aAAM;;;;YAAjC,CADpB;AAGA,YAAG,CAAH;AAEE,2BAAY,CAAC,KAAS,IAAV;AACZ,cAAG,kBAAH,EACE,sBAAiB,CAAC,KAAM,IAAP,CADnB;AAGA,cAAG,OAAH;AAEE;AACA;WAHF;SANF;OA5GF;AAlBoD;AAhqDT;AAE3C,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,OAAQ,OAAQ,QAAS,cAAhC,CADf;AAF2C;AA+4JL;AAEtC;AAEA,sBAAU,YAAY,CAAC,qBAAe,OAAO,QAAvB;AACtB,sBAAU,YAAY,CAAC,qBAAe,eAAe,QAA/B;AACtB,sBAAU,YAAY,CAAC,qBAAe,YAAY,QAA5B;AAEtB,sBAAU,YAAY,CAAC,uBAAiB,UAAU,QAA5B;AACtB,sBAAU,YAAY,CAAC,uBAAiB,aAAa,QAA/B;AAEtB,sBAAU,YAAY,CAAC,sBAAgB,UAAU,QAA3B;AACtB,sBAAU,YAAY,CAAC,sBAAgB,aAAa,QAA9B;AAEtB,UAAG,QAAS,KAAE,0EAAd;AAEE,6BAAe,qBAAC,CAAqB,gBAAU,OAA/B;AAChB,6BAAe,qBAAC,CAAqB,gBAAU,OAA/B;AAChB,6BAAe,0BAAC,CAA0B,gBAAU,OAApC;OAJlB;AAOA;AArBsC;AArrCU;;AApkGD;AAG/C,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,YAAa,UAAW,QAA/B,CADnB;AAH+C;AAaD;AAG9C,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,YAAa,SAApB,CADlB;AAH8C;AArHS;AAIvD,UAAY,+BAAD,QAAX,EACE,+BAAyB,CAAC,KAAM,UAAW,+CAAO,QAAS,WAAY,UAAW,YAAzD,CAD3B;AAJuD;AArLD;AAItD,UAAY,8BAAD,QAAX,EACE,8BAAwB,CAAC,KAAM,UAAW,+CAAO,QAAS,WAAY,SAA9C,CAD1B;AAJsD;AAgOF;AAEpD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,OAAP,CADxB;AAFoD;AANC;AAErD,UAAY,6BAAD,QAAX,EACE,6BAAuB,CAAC,KAAM,QAAP,CADzB;AAFqD;AA0BG;AAGxD,UAAY,gCAAD,QAAX,EACE,gCAA0B,CAAC,KAAM,SAAP,CAD5B;AAHwD;AAqQL;AAEnD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,IAAD,CADvB;AAFmD;AANC;AAEpD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,IAAD,CADxB;AAFoD;AArdG;AAEvD,UAAY,+BAAD,QAAX,EACE,+BAAyB,CAAC,IAAD,CAD3B;AAFuD;AA6NN;AAGjD,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,UAAW,QAAS,WAA3B,CADrB;AAHiD;AAvND;AAGhD,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,UAAW,OAAlB,CADpB;AAHgD;AAyJF;AAG9C,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,UAAW,QAAS,QAA3B,CADlB;AAH8C;AArLD;AAG7C,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,UAAW,OAAlB,CADjB;AAH6C;AAySa;AAI1D,UAAY,kCAAD,QAAX,EACE,kCAA4B,CAAC,KAAM,UAAW,+CAAO,OAAQ,OAAQ,YAAzC,CAD9B;AAJ0D;AAjPD;AAGzD,UAAY,iCAAD,QAAX,EACE,iCAA2B,CAAC,KAAM,UAAW,+CAAO,MAAzB,CAD7B;AAHyD;AAyCA;AAIzD,UAAY,iCAAD,QAAX,EACE,iCAA2B,CAAC,KAAM,UAAW,+CAAO,OAAQ,OAAQ,YAAzC,CAD7B;AAJyD;AApLD;AAGxD,UAAY,gCAAD,QAAX,EACE,gCAA0B,CAAC,KAAM,UAAW,+CAAO,MAAzB,CAD5B;AAHwD;AA2VF;AAGtD,UAAY,8BAAD,QAAX,EACE,8BAAwB,CAAC,KAAM,UAAW,+CAAO,QAAS,MAAO,OAAQ,YAAjD,CAD1B;AAHsD;AAvND;AAGrD,UAAY,6BAAD,QAAX,EACE,6BAAuB,CAAC,KAAM,UAAW,+CAAO,QAAS,KAAlC,CADzB;AAHqD;AAyML;AAGhD,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,UAAW,+CAAO,QAAS,OAAQ,YAA1C,CADpB;AAHgD;AAhND;AAG/C,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,UAAW,+CAAO,OAAzB,CADnB;AAH+C;AAuNK;AAGpD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,UAAW,+CAAO,QAAS,OAAQ,YAA1C,CADxB;AAHoD;AA9ND;AAGnD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,UAAW,+CAAO,OAAzB,CADvB;AAHmD;AAuDJ;AAG/C,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,UAAW,+CAAO,OAAQ,aAAc,WAAY,MAAO,OAAQ,YAA1E,CADnB;AAH+C;AApLD;AAG9C,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,UAAW,+CAAO,OAAQ,aAAc,WAAY,KAA3D,CADlB;AAH8C;AA0MA;AAG9C,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,UAAW,+CAAO,MAAO,OAAQ,YAAxC,CADlB;AAH8C;AArLD;AAG7C,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,UAAW,+CAAO,KAAzB,CADjB;AAH6C;AAoeS;AAEtD,UAAY,8BAAD,QAAX,EACE,8BAAwB,CAAC,KAAM,QAAS,QAAhB,CAD1B;AAFsD;AAsbT;AAG7C,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,QAAS,MAAO,KAAvB,CADjB;AAH6C;AApiBO;AAGpD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,UAAW,+CAAO,QAAS,MAAO,MAAO,MAAhD,CADxB;AAHoD;AAlPD;AAGnD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,UAAW,+CAAO,QAAS,MAAO,KAAzC,CADvB;AAHmD;AAwbP;AAG5C,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,OAAQ,MAAO,KAAtB,CADhB;AAH4C;AA9YO;AAGnD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,UAAW,+CAAO,OAAQ,aAAc,WAAY,MAAO,MAAO,MAAzE,CADvB;AAHmD;AArLD;AAGlD,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,UAAW,+CAAO,OAAQ,aAAc,WAAY,MAAO,KAAlE,CADtB;AAHkD;AAoYT;AAEzC,UAAY,iBAAD,QAAX,EACE,iBAAW,CAAC,KAAM,KAAP,CADb;AAFyC;AAiCK;AAG9C,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,MAAO,OAAd,CADlB;AAH8C;AArBA;AAE9C,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,KAAP,CADlB;AAF8C;AAMA;AAE9C,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,KAAP,CADlB;AAF8C;AAZF;AAE5C,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,KAAP,CADhB;AAF4C;AAugBI;AAEhD;AACA,UAAY,aAAD,QAAX,EACE,aAAO,iBAAiB,CAAC,MAAO,cAAR,CAD1B;AAGA,UAAY,wBAAD,QAAX;AAEE,8BAAe,mBAAY,GAAE,CAAF;AAC3B,8BAAiB;AACjB,mBAAK;AACL,8BAAe,mBAAY,GAAE,CAAF;AAC3B,gCAAkB,CAAC,KAAM,MAAO,cAAd;OANpB;AANgD;AA1IL;AAE3C;AACA,UAAY,aAAD,QAAX,EACE,aAAO,YAAY,CAAC,QAAS,MAAO,KAAjB,CADrB;AAGA,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,MAAO,QAAS,MAAO,KAA9B,CADf;AAN2C;AAPA;AAE3C;AACA,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,KAAP,CADf;AAH2C;AA0CC;AAI5C;AACA,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,MAAO,QAAS,MAAO,MAA9B,CADhB;AAL4C;AARQ;AAGpD;AACA,UAAY,uBAAD,QAAX,EACE,uBAAsB,CAAC,KAAM,MAAO,QAAS,SAAvB,CADxB;AAJoD;AATL;AAI/C;AACA,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,MAAO,QAAS,SAAvB,CADnB;AAL+C;AAzGW;AAI1D;AACA,UAAY,kCAAD,QAAX,EACE,kCAA4B,CAAC,KAAM,MAAO,QAAS,oBAAvB,CAD9B;AAL0D;AAgLF;AAIxD,UAAY,gCAAD,QAAX,EACE,gCAA0B,CAAC,KAAM,MAAO,QAAS,kBAAvB,CAD5B;AAJwD;AAQL;AAGnD;AACA,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,MAAO,QAAS,aAAvB,CADvB;AAJmD;AAnCC;AAIpD;AACA,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,MAAO,QAAS,SAAvB,CADxB;AALoD;AATW;AAI/D;AACA,UAAY,uCAAD,QAAX,EACE,uCAAiC,CAAC,KAAM,MAAO,QAAS,oBAAvB,CADnC;AAL+D;AAkBF;AAI7D;AACA,UAAY,qCAAD,QAAX,EACE,qCAA+B,CAAC,KAAM,MAAO,QAAS,kBAAvB,CADjC;AAL6D;AASL;AAIxD;AACA,UAAY,gCAAD,QAAX,EACE,gCAA0B,CAAC,KAAM,MAAO,QAAS,aAAvB,CAD5B;AALwD;AAvLR;AAGhD;AACA,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,MAAO,QAAS,UAAvB,CADpB;AAJgD;AAQK;AAGrD;AACA,UAAY,6BAAD,QAAX,EACE,6BAAuB,CAAC,KAAM,MAAO,QAAS,eAAvB,CADzB;AAJqD;AAwMJ;AAIjD;AACA,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,QAAS,MAAO,SAAvB,CADrB;AALiD;AAiBW;AAI5D,UAAY,oCAAD,QAAX,EACE,oCAA8B,CAAC,KAAM,QAAS,MAAO,oBAAvB,CADhC;AAJ4D;AARF;AAI1D,UAAY,kCAAD,QAAX,EACE,kCAA4B,CAAC,KAAM,QAAS,MAAO,kBAAvB,CAD9B;AAJ0D;AAgBL;AAGrD;AACA,UAAY,6BAAD,QAAX,EACE,6BAAuB,CAAC,KAAM,QAAS,MAAO,aAAvB,CADzB;AAJqD;AA3SL;AAIhD;AACA,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,MAAO,QAAS,UAAvB,CADpB;AALgD;AASH;AAI7C,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,MAAO,QAAS,OAAvB,CADjB;AAJ6C;AAkFF;AAG3C;AACA,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,MAAO,QAAS,OAAQ,KAA/B,CADf;AAJ2C;AAQI;AAG/C;AACA,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,MAAO,QAAS,OAAQ,MAAO,WAAY,WAAlD,CADnB;AAJ+C;AAgBK;AAGpD;AACA,UAAY,kCAAD,QAAX,EACE,kCAAsB,CAAC,KAAM,MAAO,MAAd,CADxB;AAJoD;AAQM;AAI1D,UAAY,4BAAD,QAAX,EACE,kCAAsB,CAAC,KAAM,MAAO,MAAd,CADxB;AAJ0D;AAyBd;AAE5C;AACA,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,MAAO,MAAd,CADhB;AAH4C;AAOG;AAG/C,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,MAAO,UAAW,QAAzB,CADnB;AAH+C;AA1HK;AAGpD;AACA,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,MAAO,MAAd,CADxB;AAJoD;AAQM;AAI1D,UAAY,kCAAD,QAAX,EACE,kCAA4B,CAAC,KAAM,MAAO,MAAd,CAD9B;AAJ0D;AAxBd;AAG5C;AACA,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,MAAO,MAAd,CADhB;AAJ4C;AAQM;AAIlD,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,MAAO,MAAd,CADtB;AAJkD;AA0GM;AAGxD;AACA,UAAY,gCAAD,QAAX,EACE,gCAA0B,CAAC,KAAM,MAAO,QAAS,UAAvB,CAD5B;AAJwD;AAlFA;AAGxD;AACA,UAAY,gCAAD,QAAX,EACE,gCAA0B,CAAC,KAAM,MAAO,QAAS,UAAvB,CAD5B;AAJwD;AAkIR;AAGhD;AACA,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,MAAO,QAAS,UAAvB,CADpB;AAJgD;AAxCS;AAIzD;AACA,UAAY,iCAAD,QAAX,EACE,iCAA2B,CAAC,KAAM,MAAO,QAAS,WAAvB,CAD7B;AALyD;AAlFA;AAIzD;AACA,UAAY,iCAAD,QAAX,EACE,iCAA2B,CAAC,KAAM,MAAO,QAAS,WAAvB,CAD7B;AALyD;AA4JR;AAIjD;AACA,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,MAAO,QAAS,WAAvB,CADrB;AALiD;AA2IH;AAE9C;AACA,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,MAAO,SAAd,CADlB;AAH8C;AArPA;AAG9C;AACA,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,MAAO,SAAd,CADlB;AAJ8C;AAqOD;AAG7C;AACA,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,MAAO,QAAS,QAAvB,CADjB;AAJ6C;AAuBA;AAG7C;AACA,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,MAAO,MAAO,QAAf,CADjB;AAJ6C;AAfA;AAG7C;AACA,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,MAAO,QAAd,CADjB;AAJ6C;AA3sBK;AAElD,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,UAAW,+CAAO,QAAS,MAAO,MAAO,MAAhD,CADtB;AAFkD;AA9LD;AAGjD,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,UAAW,+CAAO,QAAS,MAAO,KAAzC,CADrB;AAHiD;AAoME;AAInD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,UAAW,+CAAO,QAAS,MAAO,OAAQ,MAAjD,CADvB;AAJmD;AA7LD;AAIlD,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,UAAW,+CAAO,QAAS,MAAO,MAAzC,CADtB;AAJkD;AA+KA;AAIlD,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,UAAW,+CAAO,QAAS,MAAO,MAAO,MAAhD,CADtB;AAJkD;AA9LD;AAIjD,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,UAAW,+CAAO,QAAS,MAAO,KAAzC,CADrB;AAJiD;AA8KE;AAInD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,UAAW,+CAAO,QAAS,MAAO,MAAzC,CADvB;AAJmD;AAsSN;AAG7C,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,UAAW,+CAAO,QAAS,KAAlC,CADjB;AAH6C;AA3dK;AAGlD,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,UAAW,+CAAO,QAAS,KAAlC,CADtB;AAHkD;AA6LM;AAIxD,UAAY,gCAAD,QAAX,EACE,gCAA0B,CAAC,KAAM,UAAW,+CAAO,QAAS,MAAO,MAAzC,CAD5B;AAJwD;AAqSN;AAGlD,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,UAAW,+CAAO,QAAS,KAAlC,CADtB;AAHkD;AApcK;AAIvD,UAAY,+BAAD,QAAX,EACE,+BAAyB,CAAC,KAAM,UAAW,+CAAO,QAAS,KAAlC,CAD3B;AAJuD;AAuIJ;AAInD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,UAAW,+CAAO,QAAS,MAAO,OAAQ,MAAjD,CADvB;AAJmD;AArLD;AAIlD,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,UAAW,+CAAO,QAAS,MAAO,MAAzC,CADtB;AAJkD;AA6LE;AAIpD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,UAAW,+CAAO,QAAS,MAAO,QAAS,MAAlD,CADxB;AAJoD;AArLD;AAInD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,UAAW,+CAAO,QAAS,MAAO,OAAzC,CADvB;AAJmD;AAkaH;AAGhD,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,MAAO,UAAd,CADpB;AAHgD;AAOI;AAEpD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,UAAP,CADxB;AAFoD;AAaF;AAGlD,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,MAAO,YAAd,CADtB;AAHkD;AAqCI;AAItD,UAAY,8BAAD,QAAX,EACE,8BAAwB,CAAC,KAAM,MAAO,QAAS,cAAvB,CAD1B;AAJsD;AAtJN;AAEhD,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,QAAS,YAAa,eAAgB,MAA7C,CADpB;AAFgD;AAaD;AAE/C,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,QAAS,WAAhB,CADnB;AAF+C;AA2GC;AAGhD,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,MAAO,QAAS,MAAO,UAA9B,CADpB;AAHgD;AAygBL;AAG3C,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,KAAP,CADf;AAH2C;AA5zBI;AAE/C,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,MAAO,OAAd,CADnB;AAF+C;AA4QD;;AAMC;;AAxIC;AAGhD,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,MAAO,UAAd,CADpB;AAHgD;AAvND;AAG/C,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,KAAP,CADnB;AAH+C;AAoMG;AAGlD,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,MAAO,YAAd,CADtB;AAHkD;AAyRD;AAGjD,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,KAAP,CADrB;AAHiD;AAhSF;AAG/C,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,MAAO,QAAS,SAAvB,CADnB;AAH+C;AAyRD;AAG9C,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,MAAO,OAAd,CADlB;AAH8C;AApGG;AAGjD,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,MAAO,QAAS,WAAvB,CADrB;AAHiD;AAnTD;AAGhD,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,MAAO,OAAd,CADpB;AAHgD;AAk0BD;AAE/C,UAAY,uBAAD,QAAX;AACE,+BAAiB,CAAC,KAAM,MAAO,QAAS,OAAvB;AACd,gBAAG,iBAAW,aAAd,EACH,sCAAY,QAAQ,CAAC,OAAD,CADjB;AAJ0C;AAxjBK;AAGpD,UAAY,4BAAD,QAAX;AACE,oCAAsB,CAAC,KAAM,MAAO,QAAS,OAAvB;AACnB,gBAAG,iBAAW,aAAd,EACH,sCAAY,QAAQ,CAAC,OAAD,CADjB;AAL+C;AAsEH;AAGjD,UAAY,yBAAD,QAAX;AACE,iCAAmB,CAAC,KAAM,QAAS,OAAhB;AAChB,gBAAG,iBAAW,aAAd,EACH,sCAAY,QAAQ,CAAC,OAAD,CADjB;AAL4C;AA8GG;AAEpD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,WAAY,MAAO,MAA1B,CADxB;AAFoD;AANL;AAE/C,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,WAAY,aAAc,aAAjC,CADnB;AAF+C;AAjUE;AAEjD,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,WAAY,QAAnB,CADrB;AAFiD;AAyRD;AAEhD,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,MAAO,UAAd,CADpB;AAFgD;AAjPO;AAGvD,UAAY,+BAAD,QAAX,EACE,+BAAyB,CAAC,KAAM,MAAO,QAAS,QAAvB,CAD3B;AAHuD;AAvND;AAItD,UAAY,8BAAD,QAAX,EACE,8BAAwB,CAAC,KAAM,MAAO,QAAS,eAAgB,2DAAvC,CAD1B;AAJsD;AAgYJ;AAIlD,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,MAAO,QAAS,eAAgB,WAAY,SAAnD,CADtB;AAJkD;AAw2CO;AAEzD;AAEA;AAGA,UAAgB,CAAZ,mBAAY,GAAE,CAAF,CAAK,IAAiB,CAAb,4CAAa,IAAG,oBAAH,CAAtC,EACE,MADF;AAGA,UAAW,CAAC,gBAAD,SAAyE,IAApC,CAAlB,sBAAkB,KAAG,CAAC,CAAJ,CAAvB,IAA0C,CAAC,mBAAD,SAAZ,IAAiC,yBAAxF;AAEE,YAAoB,CAAhB,gBAAW,KAAK,IAAG,eAAH,CAAa,IAAqB,CAAhB,gBAAW,KAAK,IAAG,cAAH,CAAtD;AAEE,oBAAK,yBAAoB,CAAC,iBAAa,sBAAd,CAAzB;AACA,6BAAc,UAAC,CAAU,IAAV;AACf,6BAAc,WAAC,CAAW,KAAX;AACf,cAAY,mBAAD,QAAX;AAOE,uBAAM,cAAI,CAAC,UAAK,CAAC,CAAC,KAAF,EAAU,UAAK,CAAC,CAAC,IAAF,EAAS,UAAK,CAAC,CAAC,MAAF,EAAW,UAAK,CAAC,CAAC,OAAF,CAAnD,CAAV;AACA,+BAAc,cAAC,CAAc,EAAd;AACf,+BAAc,cAAC,CAAc,cAAI,CAAC,EAAE,MAAO,EAAE,IAAK,GAA+C,UAAzB,CAAnB,EAAE,OAAiB,GAAP,EAAE,IAAJ,GAAW,mBAAc,UAAC,EAAjB,CAAyB,GAAI,CAAJ,CAA/C,CAAsD,EAAE,OAAQ,EAAE,IAA0D,GAAN,UAAzB,CAAnB,EAAE,OAAiB,GAAP,EAAE,IAAJ,GAAW,mBAAc,UAAC,EAAjB,CAAyB,GAAI,CAAJ,CAA/C,GAAuD,mBAAc,UAAC,EAA9J,CAAlB;AAEf,+BAAc,WAAC,CAAW,IAAX;WAXjB;SAee,MAAf,mBAAc,UAAC,CAAU,IAAV;OAtBnB;AAVyD;AA5uCT;AAIhD,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,MAAO,QAA8C,mBAA5D,CADpB;AAJgD;AAk6BA;AAOhD;AACA;AAAG;AACH;AAOA,UAAG,aAAH;AAEE,YAAG,UAAH,EACE,4BAAwB,IAD1B;AAEA;OAJF;AAOA,sBAAY;AACZ,UAAW,CAAC,gBAAD,SAA4C,IAAP,CAAlB,sBAAkB,KAAG,CAAC,CAAJ,CAAvB,IAA0C,CAAC,mBAAD,SAAnE;AAEE,YAAG,CAAI,OAAP;AAKE;AACE,gBAAK;AAyBL,gBAAqB,4BAAH,eAAf,mBAAe,CAAlB;AACE,oBAAuB,OAAf,oBAAkB,4BAAH,CAAS,QAAC;AAC9B,sBAAqB,gCAAH,eAAf,mBAAe,CAAlB;AACH,oBAAuB,OAAf,oBAAkB,gCAAH,CAAa,QAAC;AAClC,sBAAqB,4BAAH,eAAf,mBAAe,CAAlB,EACH,MAAuB,OAAf,oBAAkB,4BAAH,CAAS,QAAC,EAD9B;AAIL,gBAAK;AAlCP;;SALF;AA+CA,YAAK;AACL,iCAAoB,CAAC,iBAAa,uBAAmB,oBAAgB,QAAS;;;;YAA1D;AACpB,YAAG,CAAH;AAEE,cAAK;AACL,iCAAkB,CAAC,iBAAa,uBAAmB;;;;eAAG;;;;cAApC;AAClB,cAAG,CAAE,IAAI,CAAI,OAAb;AAEE,kCAAe,mBAAY,GAAE,CAAF;AAC3B,gBAAY,gBAAW,MAAZ,QAAX,EACE,gBAAW,MAAK,QAAK,CAAC,uBAAsB,CAAvB,CADvB;AAEA,iCAAgB,CAAC,iBAAa,uBAAmB,CAAjC;AAChB,kCAAe,mBAAY,GAAE,CAAF;AAE3B,kCAAiB,CAAC,iBAAa,sBAAd;AACjB,8BAAa,CAAC,gBAAD;WATf;AAYA,6BAAc,UAAC,CAAU,IAAV;AAUf,cAAY,sBAAD,QAAX,EACoB,SAAlB,KAAkB,oBADpB;AAGA,mCAAqB;AAErB,gCAAkB;AAClB,sCAAwB;SAhC1B;AAmCA,uBAAU,CAAC,KAAD;AACV;AACA;AACA,YAAG,eAAH,EACE,eADF;OAzFF;AA4FA,sBAAY;AAEZ,UAAG,UAAH,EACE,4BAAwB,IAD1B;AAtHgD;AA99BE;AAGlD,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,KAAP,CADtB;AAHkD;AAidH;AAE/C,UAAY,aAAD,QAAX,EACE,aAAO,WAAW,CAAC,KAAD,CADpB;AAGA,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,KAAP,CADnB;AAL+C;AASI;AAEnD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,IAAD,CADvB;AAFmD;AA31BF;AAGjD,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,KAAP,CADrB;AAHiD;AA+wBV;AAEvC,UAAY,eAAD,QAAX,EACE,eAAS,CAAC,KAAM,SAAP,CADX;AAFuC;AA2DA;AAEvC,UAAY,aAAD,QAAX,EACE,aAAO,eAAe,CAAC,oCAA8B,GAAE,eAAjC,CADxB;AAEA,UAAY,eAAD,QAAX,EACE,eAAS,CAAC,KAAM,SAAP,CADX;AAJuC;AAw6GC;AAExC;AACA;AACA;AAAI;AAEJ,UAAY,kBAAD,QAAX;AAEE,YAAG,UAAH;AAEE,eAAM;AACN,gBAAO,cAAS,GAAE,CAAF;;AAIhB,eAAM;AACN,gBAAO;;AAGT,iBAAS,SAAM,4BAAf;AAAI;AAEF,cAAK,2BAAsB,CAAC,CAAD;AAC3B,cAAY,CAAD,QAAX;AAEE,mCAAiC,CAAf,oBAAe,GAAE,CAAC,QAAH,CAAW,GAAE,wBAAmB,CAAC,CAAD,CAArB;AAC5C,iCAAgB,CAAC,EAAG,wBAAmB,CAAC,CAAD,CAAvB;AAChB,qCAAoB,CAAC,EAAG,KAAJ;WAJtB;;OAhBJ;AANwC;AA7lDM;AAE9C;AACA;AAEA;AAGA,UAAG,CAAY,CAAC,cAAD,SAAf,EACE,MADF;AAGA;AAEA,iBAAqC,cAAU,OAAM,UAArD;AACA,yBAAe,sCAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAI5B,sBAAW,SAAC,CAAS,UAAK,CAAW,CAAT,EAAE,MAAO,GAAE,EAAE,KAAJ,CAAW,GAAE,yBAAxB,CAAd;AACZ,sBAAW,UAAC,CAAU,UAAK,CAAY,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAU,GAAE,yBAAxB,CAAf;AACZ,sBAAW,QAAC,CAAQ,UAAK,CAAC,EAAE,KAAM,GAAE,yBAAX,CAAb;AACZ,sBAAW,OAAC,CAAO,UAAK,CAAC,EAAE,IAAK,GAAE,yBAAV,CAAZ;AACZ,UAAK,4CAAe,QAAC,sBAAkB,CAAC,UAAK,CAAC,gBAAW,SAAC,EAAM,GAAE,yBAArB,EAA2C,UAAK,CAAC,gBAAW,UAAC,EAAO,GAAE,yBAAtB,EAA4C,Mbz7LV,Iay7LxF,CAAlB;AACrB,OAAC,iBAAD,GAAqB;AACrB,OAAC,sBAAD,GAA0B;AAC1B;AACE,SAAC;AACD,qBAAQ,CAAC,EAAQ,wCAAL,+BAAK,CAAC,EAAG,EAAG,EAAE,MAAO,GAAE,EAAE,KAAJ,CAAW,EAAE,OAAQ,GAAE,EAAE,IAAzC,GAAgD,eAAW,MAAO,CAAC,EAAE,MAAO,CAAC,EAAE,IAAxF;AACR,SAAC;AAED,YAAK,CAAC,QAAO;AACb,wBAAW,SAAQ,sBAAsB,CAAC,EhB/5K2B,GgB+5K5B;AAN3C;AAYE,SAAE,eAAF,CAAE;AAZJ;AAeA,sBAAW,UAAC,CAAU,IAAV;AAxCkC;AA6KC;AAE/C,UAAY,gBAAD,QAAX;AAEE,wBAAW,UAAC,CAAU,IAAV;AACA,iBAAZ,KAAY;AACZ,2BAAe;OAJjB;AAF+C;AA+4FD;AAG9C;AACA;AACA;AAEA,UAAG,CAAI,YAAP;AAEE,iBAA8B,KAArB,mBAAc,SAAC,EAAM,GAAE,CAAF,EAAW,aAAzC;AAAI;AAEF,eAAM,mBAAc,SAAC,CAAD;AACpB,cAAG,EAAG,KAAG,KAAT;AAEE,iBAAM;AACN,gBAAG,cAAH,EACE,yBAAoB,CAAC,GAAI;;;;gBAAL,CADtB;AAGA,gBAAG,EAAH;AAEE,kBAAG,mBAAc,QAAQ,CAAC,EAAD,CAAK,GAAE,CAAC,CAAjC,EACE,mBAAc,OAAO,CAAC,EAAD,CADvB;AAEA,kBAAG,cAAH,EACE,wBAAmB,CAAC,EAAD,CADrB;aAJF;WANF;;OALJ;AAsBA,UAAY,KAAD,QAAX;AAEE,YAAkC,CAA9B,mBAAc,QAAQ,CAAC,KAAD,CAAQ,GAAE,CAAC,CAAH,CAAM,IAA6H,CAAhH,CAAC,cAAD,SAAgH,IAA1E,CAArB,cAAS,YAAY,KAAG,KAAK,YAAR,CAA1B,IAAmE,CAAd,qCAAc,IAAG,iBAAW,kBAAd,CAAnB,IAAwD,YAAJ,CAArK;AAEE,eAAM;AACN,cAAG,cAAH,EACE,yBAAoB,CAAC,MAAO;;;;cAAR,CADtB;AAEA,cAAG,EAAH;AAEE,gBAAG,mBAAc,QAAQ,CAAC,KAAD,CAAQ,GAAE,CAAC,CAApC,EACE,mBAAc,OAAO,CAAC,KAAD,CADvB;AAEA,gBAAG,cAAH,EACE,wBAAmB,CAAC,KAAD,CADrB;WAJF;;AAUA,cAAwB,CAAZ,CAAC,cAAD,SAAY,IAA+C,CAApB,CAArB,cAAS,YAAY,KAAE,KAAK,YAAP,CAAoB,IAAG,CAAI,YAAP,CAA/C,CAAqE,IAAG,CAAmB,CAAd,qCAAc,IAAG,iBAAW,kBAAd,CAAnH;AAEE,gBAAgC,CAA5B,kBAAY,QAAQ,CAAC,KAAD,CAAQ,GAAE,CAAC,CAAH,CAAM,IAAG,CAAmB,CAAd,qCAAc,IAAG,iBAAW,kBAAd,CAA5D;AAEE,mBAAM;AACN,kBAAG,cAAH,EACE,uBAAkB,CAAC,MAAO;;;;kBAAR,CADpB;AAGA,kBAAG,EAAH;AAEE,mCAAc,IAAI,CAAC,KAAD;AAClB,oBAAG,cAAH,EACE,sBAAiB,CAAC,KAAD,CADnB;eAHF;aANF;WAFF;;AAkBF,YAAG,CAAI,SAAU,IAAI,cAArB;AAEE,0BAAW,CAAC,KAAD;AACX,+BAAgB,CAAC,MAAO,OAAR;SAHlB;OAnCF;AA7B8C;AAt1JT;AAErC;AAAI;AAAI;AAAM;AAAM;AAAK;AACzB;AAAO;AAAO;AAEd,aAAQ;AACR,aAAQ;AACR,cAAS;AAET,cAAS;AACT,cAAS;AACT,eAAU;AAEV,UAAG,iBAAW,iBAAiB,GAAE,CAAjC;AAEE,aAAM,QAAG,CAAC,eAAW,GAAE,IAAd,CAAoB,GAAE,QAAG,CAAC,EAAG,QAAG,CAAC,SAAD,CAAO,GAAE,iBAAW,iBAA3B,CAAL;AAC7B,aAAM,QAAG,CAAC,eAAW,GAAE,IAAd,CAAoB,GAAE,QAAG,CAAC,EAAG,QAAG,CAAC,SAAD,CAAO,GAAE,iBAAW,iBAA3B,CAAL;AAC7B,cAAO,QAAG,CAAC,sBAAkB,GAAE,KAArB,CAA4B,GAAE,iBAAW,iBAAb;AAEtC,YAAG,wBAAH,EACE,QAAS,mBAAa,CAAC;;;;aAAM;;;;aAAY,GAAI,IAAvB,CADxB;AAEA,YAAG,0BAAH,EACE,QAAS,mBAAa,CAAC;;;;aAAM;;;;aAAY,GAAI,IAAvB,CADxB;AAEA,YAAG,2BAAH,EACE,SAAU,mBAAa,CAAC;;;;aAAO;;;;aAAmB,IAAK,IAAhC,CADzB;OAVF;AAcA,wBAAc,KAAM,IAAG,KAAH;AACpB,UAAG,eAAH;AACE,mBAAM,CAAC,KAAM,IAAP;AACH,gBAAG,MAAH;AAEH,+BAAmB;AACnB;;AAIA,+BAAmB;AACnB;AACA,mCAAuB;AACvB,0BAAa,WAAC,CAAW,KAAX;AACd,qCAAyB;;AAzCU;AAz1DY;AAEjD;AAFiD;AA+zDX;AAEtC;AAEA,UAAG,iBAAa,IAAqC,CAAhC,gBAAgC,IAAlB,qBAAJ,IAA0B,0BAAJ,CAArD;AAEE,yBAAY,mBAAZ;AAEA,YAAI,OAAG,IAAG,QAAQ,OAAlB;AAEE,0BAAY,aAAS,GAAE,CAAF;AACrB,kCAAmB,CAAC,kBAAa,CAAC,aAAD,EHj0G6D,MAA4D,4EAAkC,KGi0GzK;SAEhB,UAAG,OAAG,IAAG,QAAQ,IAAjB;AAEH,0BAAY,aAAS,GAAE,CAAF;AACrB,kCAAmB,CAAC,kBAAa,CAAC,aAAD,EHt0G6D,MAA4D,4EAAkC,KGs0GzK;SAHhB;OATP;AAJsC;AAooHU;AAEhD,wBAAa,WAAC,CAAW,KAAX;AACd,wBAAc;AAHkC;AAoqCF;AAE9C;AAEA,UAAW,CAAC,KAAD,SAAQ,IAAoB,CAAf,KAAK,UAAU,GAAE,CAAF,CAAvC;AAEE,YAAG,KAAK,UAAR;AAEE,cAAK;AACL,kCAAmB;AACnB,mCAAoB,CAAC,MAAO;;;;cAAR;AACpB,kCAAmB;AACnB,cAAG,CAAH;AAEE,mCAAkB,CAAC,MHvsQ6D,KGusQ9D;AAClB,oCAAmB,CAAC,KAAD;WAHrB;;AAQA,cAAK;AACL,kCAAmB;AACnB,iCAAkB,CAAC,MAAO;;;;cAAR;AAClB,kCAAmB;AACnB,cAAG,CAAH;AAEE,mCAAkB,CAAC,MHntQ6D,KGmtQ9D;AAClB,kCAAiB,CAAC,KAAD;WAHnB;;OApBJ;AAJ8C;AAjCD;;AA2BK;;AAuCC;AAEnD;AAAK;AACL;AAEA,UAAY,KAAD,QAAX;AAEE,YAAY,CAAR,OAAQ,IAAG,CAAH,CAAM,IAAa,CAAR,OAAQ,IAA6B,CAApB,WAAC,KAAK,aAAN,CAAoB,GAAE,CAAF,CAA7B,CAA/B;AAEE,gBAAO,KAAK,aAAY,CAAC,OAAD;AACxB,cAAG,GAAH;AAEE,mBAAQ;AACR,mCAAkB,CAAC,MAAO,QAAS;;;;gBAAjB;AAClB,gBAAG,IAAK,KAAE,0EAAV;AAEE,kBAAK;AACL,sCAAmB,CAAC,MAAO,QAAS;;;;kBAAjB;AACnB,kBAAG,CAAH;AAEE,4CAAuB,CAAC,MAAO,QHzvQoE,KGyvQ5E;AACvB,uCAAkB,CAAC,MAAO,OAAR;eAHpB;aAJF;;AAaA,gBAAK;AACL,kCAAiB,CAAC,MAAO,QAAS;;;;gBAAjB;AACjB,gBAAG,CAAH;AAEE,0CAAuB,CAAC,MAAO,QHpwQsE,KGowQ9E;AACvB,mCAAgB,CAAC,MAAO,OAAR;aAHlB;;SAtBJ;OAFF;AALmD;AAvFL;AAE9C;AAEA,UAAY,KAAD,QAAX;AAEE,YAAG,CAAI,KAAK,UAAU,IAAoB,CAAf,KAAK,UAAU,GAAE,CAAF,CAA1C;AAEE,cAAK;AACL,kCAAmB;AACnB,iCAAkB,CAAC,MAAO;;;;cAAR;AAClB,kCAAmB;AACnB,cAAG,CAAH;AAEE,mCAAkB,CAAC,MAAO,QAAR;AAClB,kCAAiB,CAAC,KAAD;WAHnB;SANF;OAFF;AAJ8C;AA2BE;AAEhD;AAEA,UAAY,KAAD,QAAX;AAEE,YAAG,KAAK,UAAU,IAAoB,CAAf,KAAK,UAAU,GAAE,CAAF,CAAtC;AAEE,cAAK;AACL,kCAAmB;AACnB,mCAAoB,CAAC,MAAO;;;;cAAR;AACpB,kCAAmB;AACnB,cAAG,CAAH;AAEE,mCAAkB,CAAC,MAAO,QAAR;AAClB,oCAAmB,CAAC,KAAD;WAHrB;SANF;OAFF;AAJgD;AAp6FF;;AAh0HD;AAG7C;AACA;AACA;AAEA,gBAAK,mBAAL;AACA,8CAAY,CAAC,MAAO,EAAG,GAAE,CAAC,KAAH,CAAU,EAAG,GAAE,CAAC,IAA3B;AACZ,eAAS,QAAiB,OAAZ,iBAAY,GAAE,CAAF,kBAA1B;AAAI;AAEF,YAAM,CAAF,CAAE,IAAG,CAAH,CAAM,IAAO,CAAF,CAAE,IAA4B,CAAnB,WAAC,KAAK,YAAN,CAAmB,GAAE,CAAF,CAA5B,CAAnB;AAEE,qBAAM,KAAK,YAAW,CAAC,CAAD,CAAtB;AACA,kDAAY,CAAC,GAAI,EAAG,GAAE,CAAC,KAAH,CAAU,EAAG,GAAE,CAAC,IAAxB;AACZ,eAAK,YAAW,CAAC,CAAD,UAAO,EAAP;SAJlB;AAMA,YAAM,CAAF,CAAE,IAAG,CAAH,CAAM,IAAO,CAAF,CAAE,IAA2B,CAAlB,WAAC,KAAK,WAAN,CAAkB,GAAE,CAAF,CAA3B,CAAnB;AAEE,qBAAM,KAAK,WAAU,CAAC,CAAD,CAArB;AACA,kDAAY,CAAC,GAAI,EAAG,GAAE,CAAC,KAAH,CAAU,EAAG,GAAE,CAAC,IAAxB;AACZ,eAAK,WAAU,CAAC,CAAD,UAAO,EAAP;SAJjB;AAMA,YAAM,CAAF,CAAE,IAAG,CAAH,CAAM,IAAO,CAAF,CAAE,IAA4B,CAAnB,WAAC,KAAK,YAAN,CAAmB,GAAE,CAAF,CAA5B,CAAnB;AAEE,qBAAM,KAAK,YAAW,CAAC,CAAD,CAAtB;AACA,kDAAY,CAAC,GAAI,EAAG,GAAE,CAAC,KAAH,CAAU,EAAG,GAAE,CAAC,IAAxB;AACZ,eAAK,YAAW,CAAC,CAAD,UAAO,EAAP;SAJlB;AAMA,YAAM,CAAF,CAAE,IAAG,CAAH,CAAM,IAAO,CAAF,CAAE,IAAiC,CAAxB,WAAC,KAAK,iBAAN,CAAwB,GAAE,CAAF,CAAjC,CAAnB;AAEE,qBAAM,KAAK,iBAAgB,CAAC,CAAD,CAA3B;AACA,kDAAY,CAAC,GAAI,EAAG,GAAE,CAAC,KAAH,CAAU,EAAG,GAAE,CAAC,IAAxB;AACZ,eAAK,iBAAgB,CAAC,CAAD,UAAO,EAAP;SAJvB;AAMA,YAAM,CAAF,CAAE,IAAG,CAAH,CAAM,IAAO,CAAF,CAAE,IAA6B,CAApB,WAAC,KAAK,aAAN,CAAoB,GAAE,CAAF,CAA7B,CAAnB;AAEE,qBAAM,KAAK,aAAY,CAAC,CAAD,CAAvB;AACA,kDAAY,CAAC,GAAI,EAAG,GAAE,CAAC,KAAH,CAAU,EAAG,GAAE,CAAC,IAAxB;AACZ,eAAK,aAAY,CAAC,CAAD,UAAO,EAAP;SAJnB;AAMA,YAAM,CAAF,CAAE,IAAG,CAAH,CAAM,IAAO,CAAF,CAAE,IAA6B,CAApB,WAAC,KAAK,aAAN,CAAoB,GAAE,CAAF,CAA7B,CAAnB;AAEE,qBAAM,KAAK,aAAY,CAAC,CAAD,CAAvB;AACA,kDAAY,CAAC,GAAI,EAAG,GAAE,CAAC,KAAH,CAAU,EAAG,GAAE,CAAC,IAAxB;AACZ,eAAK,aAAY,CAAC,CAAD,UAAO,EAAP;SAJnB;AAMA,YAAM,CAAF,CAAE,IAAG,CAAH,CAAM,IAAO,CAAF,CAAE,IAA4B,CAAnB,WAAC,KAAK,YAAN,CAAmB,GAAE,CAAF,CAA5B,CAAnB;AAEE,qBAAM,KAAK,YAAW,CAAC,CAAD,CAAtB;AACA,kDAAY,CAAC,GAAI,EAAG,GAAE,CAAC,KAAH,CAAU,EAAG,GAAE,CAAC,IAAxB;AACZ,eAAK,YAAW,CAAC,CAAD,UAAO,EAAP;SAJlB;;AA/C2C;AA2vEH;AAE1C;AAAG;AACH;AACA;AACA;AAAG;AAAK;AAAK;AAAI;AAAK;AACtB;AAEA,UAAgB,CAAZ,mBAAY,GAAE,CAAF,CAAiE,IAA3C,CAAb,4CAAa,IAAG,oBAAH,CAAjB,IAAuC,CAAY,CAAC,MAAD,SAAf,IAA2B,CAAY,CAAC,QAAD,SAAhG,EACE,MADF;AAGA,cAAQ;AAER,UAAK,CAAC;AACN,UAAK,CAAC;AACN,UAAG,6BAAH,EACE,IAAK,CAAE,GAAE,oBADX;AAGA,gBAAK,mBAAL;AACA,kBAAO,uBAAP;AACA,kBAAO,0BAAP;AACA,kBAAO,wBAAP;AACA,kBAAO,2BAAP;AACA,eAAS,QAAkB,OAAb,MAAM,SAAC,EAAM,GAAE,CAAF,kBAA3B;AAAI;AAEF,gBAAS,MAAM,WAAC,CAAD;AACf,mBAAM,KAAK,MAAX;AACU,mBAAL,KAAK;AACR,YADQ,IACR;AAEE,cAAK,KAAK;AACV,cAAY,CAAD,QAAX,EACE,oBAAe,CAAC,EAAG,cAAG,CAAC,CAAD,EAAK,cAAG,CAAC,CAAD,EAAK,EAApB,CADjB;SAGF,UAPQ,IAOR;AAAY,kDAAY,CAAC,GAAI,cAAG,CAAC,CAAD,CAAI,GAAE,GAAG,KAAL,CAAY,GAAG,IAA3B;AACxB,kBARQ,IAQR;AAAe,kDAAY,CAAC,GAAI,cAAG,CAAC,CAAD,CAAI,GAAE,GAAG,KAAL,CAAY,GAAG,IAAK,GAAE,CAAlC;AAC3B,kBATQ,IASR;AAAa,kDAAY,CAAC,GAAI,cAAG,CAAC,CAAD,CAAI,GAAE,GAAG,KAAL,CAAY,GAAG,IAA3B;AACzB,kBAVQ,IAUR,mFAAgB,wCAAY,CAAC,GAAI,cAAG,CAAC,CAAD,CAAI,GAAE,GAAG,KAAL,CAAY,GAAG,IAAK,GAAE,CAAlC,CAA5B;AAGF,aAAK,UAAC,SAAY,EAAZ;AACI,oBAAL,KAAK;AACR,YADQ,KACR;AAEE,cAAG,8CAAoB,CAAC,GAAI,CAAL,CAAvB,EACE,QAAQ,IAAI,CAAC,KAAD,CADd;SAGF,UANQ,KAMR;AAEE,cAAG,8CAAoB,CAAC,GAAI,GAAL,CAAvB,EACE,QAAQ,IAAI,CAAC,KAAD,CADd;SAGF,UAXQ,KAWR;AAEE,cAAG,8CAAoB,CAAC,GAAI,GAAL,CAAvB,EACE,QAAQ,IAAI,CAAC,KAAD,CADd;SAGF,UAhBQ,KAgBR;AAEE,cAAG,8CAAoB,CAAC,GAAI,GAAL,CAAvB,EACE,QAAQ,IAAI,CAAC,KAAD,CADd;SAGF,UArBQ,KAqBR;AAEE,cAAG,8CAAoB,CAAC,GAAI,GAAL,CAAvB,EACE,QAAQ,IAAI,CAAC,KAAD,CADd;SAFF;;AA9DsC;AAs6GM;AAEhD,UAAgB,CAAZ,mBAAY,GAAE,CAAF,CAAyC,IAAnB,CAAb,4CAAa,IAAG,oBAAH,CAAjB,IAAkD,CAAV,yCAAU,IAAG,oBAAH,CAAvE,EACE,MADF;AAGA,wBAAc;AAEd,0BAAe,aAAO,SAAC,EAAvB;AAEA,UAAG,qBAAe,YAAY,KAAE,4CAAhC;AACE,iCAAoB,qBAAe,aAAnC;AAEA,qCAAoB,qBAAe,uBAAnC;AAEF,UAAgB,CAAZ,mBAAY,KAAE,CAAF,CAAiC,IAAxB,CAAI,yBAAR,IAAgC,CAAuE,CAApD,CAAb,4CAAa,IAAG,oBAAH,CAAoD,IAAnB,CAAV,yCAAU,IAAG,oBAAH,CAAd,IAA+C,CAAV,yCAAU,IAAG,oBAAH,CAAd,CAA5H,EACE,oBADF;AAdgD;AANF;AAE9C,UAAG,uBAAiB,SAApB,EACE,kBAAa,CAAC,uBAAiB,aAAa,uBAAiB,gBJ5zPgC,CAAC,CI4zPjF,CADf;AAF8C;AAwBW;AAEzD;AACA;AAAG;AACH;AAAI;AAAI;AAAI;AAEZ,mBAAO;AACP,UAAK;AACL,oBAAe,CAAC,EAAM,CAAP;AACf,eAAS,QAAiB,OAAZ,iBAAY,GAAE,CAAF,kBAA1B;AAAI;AAEF,YAAK,CAAE,GAAE,iBAAY,CAAC,CAAD,CAAd;AACP,sBAAe,CAAC,CAAE,GAAE,CAAF,CAAQ,CAAX;;AAGjB,+BAAoB;AAEpB,UAAG,qBAAH;AAEE,aAAM;AACN,aAAM;AACN,aAAM;AACN,aAAM;AACN,2BAAc,CAAC;;;;aAAI;;;;aAAI;;;;aAAI;;;;YAAb;AACd,YAAe,CAAT,cAAS,GAAE,wBAAmB,CAAC,IAAD,CAArB,CAA4B,GAAE,oBAAe,CAAC,IAAD,CAAjB;AAC3C,+BAAkB,CAAW,GAAP,CAAF,GAAM,EAAF,GAAO,EAAF;OAR/B;AAjByD;AA8ET;AAEhD,4BAAiB,CAAC,qBAAD;AACjB,4BAAiB,CAAC,wBAAD;AACjB;AAJgD;AAOD;AAE/C;AAAG;AAAG;AAAM;AAAM;AAAI;AACtB;AACA;AACA;AACA;AAAS;AACT;AACA;AACA;AAGA,UAAgB,CAAZ,mBAAY,GAAE,CAAF,CAAyC,IAAnB,CAAb,4CAAa,IAAG,oBAAH,CAAjB,IAAuC,CAAY,CAAC,MAAD,SAAxE,EACE,MADF;AAGA,YAAM;AAEN,UAAc,mCAAH,eAAP,MAAO,CAAmC,IAA+C,CAA1C,CAAY,CAAP,wCAAO,IAAG,uBAAiB,SAApB,CAA8B,IAA8B,CAA1B,uBAAiB,SAAS,IAAG,CAAH,CAA9B,CAA7F,EACE,MADF;AAGA,UAAc,sCAAH,eAAP,MAAO,CAAsC,IAAkD,CAA7C,CAAe,CAAV,2CAAU,IAAG,uBAAiB,SAApB,CAA8B,IAAiC,CAA7B,uBAAiB,YAAY,IAAG,CAAH,CAAjC,CAAnG,EACE,MADF;AAGA,UAAK;AACL,UAAa,mCAAH,eAAP,MAAO,CAAV;AACE,YAAK,wBAAkB,GAAE,CAAF;AAEvB,gBAAK,2BAAqB,GAAE,CAAF;AAE5B,eAAU;AACV,gBAAW;AACX,aAAQ;AACR,aAAQ;AACR,WAAM;AACN,UAAK;AACL,WAAM;AAEN,YAAO,iBAAY,GAAE,CAAF;AAEnB,aAAM,IAAK,GAAE,CAAb;AAEE,aAAM;AAEN,eAAM,IAAK,GAAE,CAAb;AAEE,eAAM;AAEN,qBAAM,+BAAK,CAAC,EAAG,EAAG,GAAI,EAAX,CAAX;AAEA,eAAM,EAAE,KAAM,GAAE,OAAF;AAEd,mBAAS,SAAM,4BAAf;AAAI;AAGF,cAAE,IAAF,GAAU,cAAG,CAAC,EAAE,IAAH,CAAS,GAAE,GAAF;AACtB,cAAE,OAAF,GAAa,cAAG,CAAC,EAAE,OAAH,CAAY,GAAE,GAAF;AAC5B,cAAE,KAAF,GAAW,cAAG,CAAC,EAAD,CAAK,GAAE,GAAF;AACnB,iBAAM,EAAqB,GAAhB,iBAAY,CAAC,CAAD,CAAd,GAAoB,MAAF;AAC3B,gBAAG,CAAE,KAAE,GAAP;AACE,gBAAE,MAAF,GAAY,cAAG,CAAC,EAAD,CAAK,GAAE,GAAF;AAEpB,kBAAA,EAAE,MAAF,GAAY,cAAG,CAAC,EAAD,CAAK,GAAE,GAAF;AAiBtB,oDAAY,CAAC,GAAI,KAAM,IAAX;AACZ,gBAAa,mCAAH,eAAP,MAAO,CAAV;AACE,oBAAM,MAAI,CAAC,yDAAwB,gBAAgB,CAAC,4CAAI,CAAL,CAAzC;AAEV,kBAAA,MAAM,MAAI,CAAC,yDAAwB,mBAAmB,CAAC,4CAAI,CAAL,CAA5C;AAEZ,gBAAG,EAAG,GAAW,CAAT,EAAE,MAAO,GAAE,EAAE,KAAJ,CAAjB,EACE,KADF;;AAIF,iBAAQ,IAAK,GAAE,EAAF;;AAEf,eAAQ,IAAK,GAAE,EAAF;AACb,eAAQ;AACR,aAAM;AACN,kBAAW,CAAC,iBAAY,CAAC,CAAD,CAAI,GAAM,CAAH,EAAG,GAAE,EAAF,CAAN;;AA7FiB;AAzvEA;AAE/C,2BAAgB,CAAC,oBAAD;AAChB,2BAAgB,CAAC,uBAAD;AAChB;AAJ+C;AAtED;AAE9C;AACA;AACA;AACA;AAAG;AAAG;AAAI;AACV;AAAI;AACJ;AAGA,UAAgB,CAAZ,mBAAY,GAAE,CAAF,CAA2F,IAArE,CAAb,4CAAa,IAAG,oBAAH,CAAjB,IAAoD,CAAZ,iBAAY,KAAE,CAAF,CAAhB,IAA6C,CAApB,mBAAa,SAAC,EAAM,KAAE,CAAF,CAAxB,IAAgC,CAAY,CAAC,MAAD,SAA1H,EACE,MADF;AAGA,YAAM;AAEN,UAAc,kCAAH,eAAP,MAAO,CAAkC,IAA8C,CAAzC,CAAY,CAAP,sCAAO,IAAG,sBAAgB,SAAnB,CAA6B,IAA6B,CAAzB,sBAAgB,SAAS,IAAG,CAAH,CAA7B,CAA3F,EACE,MADF;AAGA,UAAc,qCAAH,eAAP,MAAO,CAAqC,IAAiD,CAA5C,CAAe,CAAV,yCAAU,IAAG,sBAAgB,SAAnB,CAA6B,IAAgC,CAA5B,sBAAgB,YAAY,IAAG,CAAH,CAAhC,CAAjG,EACE,MADF;AAGA,UAAa,kCAAH,eAAP,MAAO,CAAV;AACE,YAAK,uBAAiB,GAAE,CAAF;AAEtB,gBAAK,0BAAoB,GAAE,CAAF;AAE3B,eAAS,QAAyB,OAApB,mBAAa,SAAC,EAAM,GAAE,CAAF,kBAAlC;AAAI;AAEF,oBAAO,mBAAa,SAAC,CAAD,CAApB;AAEA,YAAK;AACL,YAAK,cAAG,CAAC,cAAe,CAAC,GAAG,YAAJ,CAAhB;AACR,aAAM;AACN,aAAM,cAAG,CAAC,cAAe,CAAC,GAAG,UAAW,GAAE,CAAjB,CAAoB,GAAE,CAAtC;AAST,YAAO,CAAH,EAAG,IAAG,CAAH,CAAM,IAAO,CAAH,EAAG,IAAG,CAAH,CAApB,EACE,QADF;AAGA,mBAAM,+BAAK,CAAC,EAAG,EAAG,GAAI,EAAX,CAAX;AAGA,UAAE,IAAF,GAAU,cAAG,CAAC,EAAE,IAAH,CAAS,GAAE,GAAF;AACtB,UAAE,OAAF,GAAa,cAAG,CAAC,EAAE,OAAH,CAAY,GAAE,GAAF;AAC5B,UAAE,KAAF,GAAW,cAAG,CAAC,EAAE,KAAH,CAAU,GAAE,GAAF;AACxB,UAAE,MAAF,GAAY,cAAG,CAAC,EAAE,MAAH,CAAW,GAAE,GAAF;AAS1B,gDAAY,CAAC,GAAI,EAAG,CAAR;AACZ,YAAa,kCAAH,eAAP,MAAO,CAAV;AACE,kBAAS,yDAAwB,eAAe,CAAC,4CAAI,EAAG,GAAG,aAAc,GAAG,UAA5B;AAEhD,sBAAS,yDAAwB,kBAAkB,CAAC,4CAAI,EAAG,GAAG,aAAc,GAAG,UAA5B;AAErD,cAAM,MAAI,CAAC,KAAD;;AAlEkC;AAgxEA;AAE9C,UAAG,qBAAH,EACE,MADF;AAGA,2BAAgB,CAAC,KAAM,KAAP;AAChB;AACA;AACA,2BAAgB,CAAC,KAAM,KAAP;AAMhB,UAAG,YAAH;AAEE,YAAG,WAAH,EACE,eAAU,CAAC,KAAD,CADZ;AAGA;AACA,wCAA2B,CAAC,KAAD;AAC3B,6BAAgB,CAAC,MA9wN+D,KA8wNhE;AAChB;;AAIA;AACA;;AA3B4C;AAjoED;AAE7C;AACA;AAAI;AACJ;AACA;AAEA,UAAgB,CAAZ,mBAAY,GAAE,CAAF,CAAyC,IAAnB,CAAb,4CAAa,IAAG,oBAAH,CAAjB,IAAuC,CAAY,CAAC,eAAD,SAAxE,EACE,MADF;AAGA,qBAAU;AAEV,UAAG,iBAAY,GAAE,CAAjB;AAEE,YAAK,4CAAe,QAAC,uBb9vL4B,EAAsB,EAAsB,MAAgC,Ia8vLxG;AACrB,SAAC;AACD,SAAC,iBAAD,GAAqB;AACrB,SAAC,sBAAD,GAA0B;AAC1B;AACE,eAAM;AACN,iBAAQ,EAAG,GAAE,kBAAF;AAEX,mBAAS,sBAAY,uCAArB;AAAI;AAEF,gBAAK,2BAAsB,CAAC,CAAD;AAC3B,gBAAY,CAAD,QAAX;AAEE,kBAAG,kBAAa,CAAC,EAAG,EAAG,EAAG;;;;kBAAV,CAAhB,EACE,KADF;aAFF;;AAOF,iCAAkB,CAAC,EAAG,IAAJ;AAdpB;AAgBE,WAAC;AACD,WAAE,eAAF,CAAE;AAjBJ;OANF;AAZ6C;AAz/CG;;AAinHL;AAE3C;AACA,2BAAgB,CAAC,MAnvNiE,KAmvNlE;AAChB;AACA;AACA;AAN2C;AAwCM;AAEjD,UAAgB,CAAZ,mBAAY,GAAE,CAAF,CAAK,IAAG,mBAAxB,EACE,MADF;AAGA;AACA;AANiD;AAt7GN;AAE3C;AACA;AAH2C;AAuiHO;AAElD,uBAAY,CAAC,sBAAkB,uBAAnB;AACZ,uBAAY,CAAC,yBAAqB,0BAAtB;AAHsC;AAn1ED;AAEjD,uBAAY,CAAC,qBAAiB,sBAAlB;AACZ,uBAAY,CAAC,wBAAoB,yBAArB;AAHqC;AA4IF;AAE/C,uBAAY,CAAC,gBAAY,iBAAb;AAFmC;AAlCA;AAE/C;AACA;AAAI;AACJ;AACA;AAEA,UAAgB,CAAZ,mBAAY,GAAE,CAAF,CAAyC,IAAnB,CAAb,4CAAa,IAAG,oBAAH,CAAjB,IAAuC,CAAI,uBAAhE,EACE,MADF;AAGA,UAAG,iBAAY,GAAE,CAAjB;AAEE,YAAK,4CAAe,QAAC,uBbpyL4B,EAAsB,EAAsB,MAAgC,IaoyLxG;AACrB,SAAC;AACD,SAAC,iBAAD,GAAqB;AACrB,SAAC,sBAAD,GAA0B;AAC1B;AACE,eAAM;AACN,iBAAQ,EAAG,GAAE,kBAAF;AAEX,mBAAS,sBAAqB,OAAT,cAAS,GAAE,CAAF,kBAA9B;AAAI;AAEF,gBAAK,2BAAsB,CAAC,CAAD;AAC3B,gBAAY,CAAD,QAAX,EACE,kBAAa,CAAC,EAAG,EAAG,EAAG;;;;gBAAV,CADf;;AAPJ;AAYE,WAAC;AACD,WAAE,eAAF,CAAE;AAbJ;OANF;AAV+C;AAsvEY;AAE3D,mCAAwB;AACxB;AACA,mCAAwB;AACxB,oBAAS,CAAC,sBAAD;AALkD;AA/pKvB;AAEpC;AAAG;AAEH,UAAK;AACL,UAAK;AACL;AACA,UAAG,CAAE,KAAG,cAAR,EACE,cAAS,CAAC,cAAD,CADX;AAGA,UAAG,CAAE,KAAG,YAAR,EACE,cAAS,CAAC,YAAD,CADX;AAVoC;AAmnIyB;AAE7D,mCAAwB;AACxB;AACA,mCAAwB;AACxB,oBAAS,CAAC,sBAAD;AALoD;AA7evB;;AAVC;;AAwBC;;AALD;AAEvC,sBAAW,CAAC,UAAW,iBAAZ;AAF4B;AASE;AAEzC,sBAAW,CAAC,UAAW,uBAAZ;AACX,sBAAW,CAAC,UAAW,0BAAZ;AAH8B;AAdI;;AAVL;AAExC,sBAAW,CAAC,UAAW,sBAAZ;AACX,sBAAW,CAAC,UAAW,yBAAZ;AAH6B;AApEC;;AA4DI;;AAxDJ;AAEzC;AACA;AACA;AACA;AAEA,UAAG,QAAQ,SAAC,EAAM,KAAE,CAApB,EACE,MADF;AAGA,WAAM,SAAS,WblyM6B;AamyM5C,UAAgB,mCAAH,eAAT,QAAS,CAAb;AAEE,kBAAK,yBAAL;AACA,SAAC,MAAD,GAAW,CAAC,MAAO,GAAE,CAAF;OAEhB,UAAe,wCAAH,eAAT,QAAS,CAAZ;AAEH,kBAAK,uBAAL;AACA,SAAC,OAAD,GAAY,CAAC,OAAQ,GAAE,CAAF;OAElB,UAAe,2CAAH,eAAT,QAAS,CAAZ;AAEH,kBAAK,0BAAL;AACA,SAAC,IAAD,GAAS,CAAC,IAAK,GAAE,CAAF;OAEZ,UAAe,yCAAH,eAAT,QAAS,CAAZ;AAEH,kBAAK,wBAAL;AACA,SAAC,OAAD,GAAY,CAAC,OAAQ,GAAE,CAAF;OAElB,UAAe,4CAAH,eAAT,QAAS,CAAZ;AAEH,kBAAK,2BAAL;AACA,SAAC,IAAD,GAAS,CAAC,IAAK,GAAE,CAAF;OAHZ;AAML,eAAS,SAAS,CAAC,0CAAD;AAElB,eAAS,QAAoB,OAAf,QAAQ,SAAC,EAAM,GAAE,CAAF,kBAA7B;AAAI;AAEF,gBAAS,QAAQ,SAAC,CAAD;AACjB,YAAe,mCAAH,eAAT,QAAS,CAAZ;AAEE,cAAY,KAAK,MAAN,QAAX,EACE,aAAQ,CAAC,UAAgB,wCAAL,KAAK,YAAW,KAAK,OAv1K4F,MAA+B,EAA2B,CAu1KvL,CADV;SAGG,UAAe,sCAAH,eAAT,QAAS,CAAZ;AACH,yBAAU,CAAC,UAAgB,wCAAL,KAAK,YAAW,KAAK,SAAS,KAAK,MAA/C;AACP,kBAAe,qCAAH,eAAT,QAAS,CAAZ,EACH,cAAS,CAAC,UAAgB,wCAAL,KAAK,YAAW,KAAK,QAAQ,KAAK,cAAc,KAAK,YAAY,KAAK,MAAlF,CADN;;AAIP,eAAS,aAAa,CAAC,Gbt9M2D,Kas9M5D;AArDmB;AAbI;;AAzBD;AAG5C;AACA,UAAG,oBAAe,IAAW,CAAC,gBAAD,SAA7B,EACE,MADF;AAGA,UAAG,CAAI,0BAAP;AAEE,2BAAa;AACb,gCAAoB;AACpB,4BAAe;OAJjB;AAOA,UAAY,sBAAD,QAAX;AACE,8BAAgB,CAAC,KAAM,OAAQ,gDAAO,MAAtB;;AAGhB,mBAAoC,CAAzB,iBAAW,cAAc,KAAG,wCAAH,CAAkD,IAAvB,0BAAH,eAAP,MAAO,CAAZ,IAAkD,CAAS,OAAP,OAAU,0BAAH,CAAyB,UAAlC,SAAlG;AACA,mBAAU,YAAO,IAAI,oCAAU,CAAC,oBAAc,KAAf,CAA/B;;AAGF,uBAAa;AAtB+B;AAxDA;AAG5C;AAAI;AACJ;AAEA;AAEA,UAAG,oBAAe,IAAW,CAAC,gBAAD,SAA7B,EACE,MADF;AAGA,UAAY,sBAAD,QAAX;AACE,8BAAgB,CAAC,KAAM,OAAQ,+CAAf;;AAGhB,YAAG,cAAqE,IAA/C,CAAC,MAAD,SAAZ,IAAoC,0BAAH,eAAP,MAAO,CAAZ,IAAsG,CAAnD,OAAP,OAAU,0BAAH,CAAyB,aAAY,cAAc,KAAG,wCAAH,CAAxI;AAEE,kBAAiB,OAAP,OAAU,0BAAH,CAAyB;AAC1C,cAAY,KAAD,QAAX;AAEE,iBAAM,aAAQ,CAAC,KAAK,GAAI,KAAK,GA/5JiB,CA+5JhC;AACd,gBAAO,CAAH,EAAG,KAAG,KAAH,CAAmC,IAAb,CAAC,KAAK,MAAN,SAAZ,IAA6B,oCAAU,CAAC,oBAAc,KAAf,CAAxD;AAEE,kBAAK;AACL,mCAAgB,CAAC,MAAO,GAAI;;;;kBAAZ;AAChB,kBAAG,CAAH;AAEE;AACQ,uBAAP,OAAU,0BAAH,CAAyB;AACjC,oBAAW,CAAC,EAAD,SAAK,IAAY,CAAC,EAAE,MAAH,SAA5B;AAEoD,6BAArC,OAAP,OAAU,0BAAH,CAAyB,aAAY;AAChD,sBADgD,IAChD;AAAS,yBAAK,MAAK,OAAO,CAAC,EAAE,OAAO,EAAE,MAAK,SAAC,EAAlB;AAC1B,4BAFgD,IAEhD,+CAAS,KAAK,MAAK,OAAO,CAAC,EAAE,OAAO,EAAE,MAAK,SAAC,EAAlB,CAA1B;;AAKF,6BAAK,QAAI,OAAO,CAAC,KAAK,MAAN;AACkC,8BAArC,OAAP,OAAU,0BAAH,CAAyB,aAAY;AAChD,sBADgD,KAChD,+CAAS,KAAK,MAAK,WAAS,WAAW,CAAC,KAAK,MAAN,CAAvC;AAEF,0BAAS,WAAK,WAAC,WAAK,SAAC,EAAM,GAAE,CAAf,CAAiB;;AAEzB,uBAAP,OAAU,0BAAH,CAAyB,UAAjC,GAA8C;AACtC,uBAAP,OAAU,0BAAH,CAAyB;AACjC;AAEA,oCAAe,CAAC,MAAO,EAAR;eAvBjB;aAJF;WAHF;SAHF;;AAf0C;AAt3CC;AAG7C;AAEA;AACA,UAAW,CAAP,MAAO,KAA6C,2CAA7C,CAAwE,IAAf,oBAAH,IAAqB,qBAAtF,EACE,MADF;AAGA,UAAG,CAAI,gBAAP,EACE,gBADF;AAGA,yBAAa;AACb,8BAAoB;AACpB,0BAAgB;AAChB,uBAAa;AAEb,UAAG,CAAI,gBAAP;AAEE,YAAG,eAAH,EACE,eADF;AAGA,YAAG,yBAAH,EACE,uBAAkB,CAAC,MA/5HgD,KA+5HjD,CADpB;OALF;AASA,WAAM,kBAAa,CAAC,EAAG,EAlxHkC,CAkxHtC;AACnB,uBAAa;AACb,UAAY,EAAD,QAAX;AAEE,yBAAa,EAAE;AACf,YAAG,mBAAc,QAAQ,CAAC,cAAD,CAAY,GAAE,CAAC,CAAxC;AAEE,2BAAa;AACb,6BAAqB,CAAC,cAAD,SACgE,IADtB,CAAzB,iBAAW,cAAc,KAAG,wCAAH,CAA9B,IAA8C,CAAI,gBAAR,IAAwB,CAAI,mBAAc,CAAC,eAAW,EAAG,CAAf,CAAtB,IACzF,CAAI,kBAAa,CAAC,eAAW,EAAG,CAAf,CAArB,IAA2C,CAAI,uBAAkB,CAAC,eAAW,EAAG,CAAf,CAA1B,IAAgD,CAAY,CAAC,kBAAa,CAAC,eAAW,EAAG,CAAf,CAAiB,MAA/B,SAAhB;AACrF,8BAAwB,CAAC,cAAD,SAC6D,IAD7C,iBAAW,SAAf,IAA4B,CAAI,gBAAR,IAAsB,CAAI,gBAAR,IAAwB,CAAI,mBAAc,CAAC,eAAW,EAAG,CAAf,CAAtB,IAC5F,CAAI,kBAAa,CAAC,eAAW,EAAG,CAAf,CAArB,IAA2C,CAAI,uBAAkB,CAAC,eAAW,EAAG,CAAf,CAA1B,IAAgD,CAAY,CAAC,kBAAa,CAAC,eAAW,EAAG,CAAf,CAAiB,MAA/B,SAAhB;AAErF,6BAAa,gBAAU,IAAI,CAAuB,CAAV,CAAP,gCAAO,IAAG,KAAH,CAAU,IAAY,CAAR,iCAAQ,IAAG,KAAH,CAAZ,CAA3B;AACvB,8BAAgB,iBAAa,IAAI,CAAuB,CAAV,CAAP,gCAAO,IAAG,KAAH,CAAU,IAAY,CAAR,iCAAQ,IAAG,KAAH,CAAZ,CAA3B;AAE7B,cAAG,iBAAH;AAEE;AACA,8BAAc,gBAAW,OAAC;WAH5B;SAXF;OAHF;AAsBA,UAAG,gBAAH;AAEE,YAAG,gCAAH;AAEE,kCAAoB;AACpB,8BAAe,CAAC,EAAG,CAAJ;AACf;SAJF;AAMA,4BAAe,CAAI;;AAInB,YAAY,cAAD,QAAX;AAEE,+BAAiB,mBAAc,CAAC,eAAW,EAAG,CAAf;AAC/B,oCAAgB,kBAAa,CAAC,eAAW,EAAG,CAAf,CAA7B;AACA,qCAAiB,mBAAc,CAAC,eAAW,EAAG,CAAf,CAA/B;AACA,0CAAsB,wBAAmB,CAAC,eAAW,EAAG,CAAf,CAAzC;AACA,8BAAgB,kBAAa,CAAC,eAAW,EAAG,CAAf;AAC7B,mCAAqB,uBAAkB,CAAC,eAAW,EAAG,CAAf;SAPzC;AAUA,2BAAe,CAAC;AAChB,YAAG,iBAAW,cAAd;AAEE,6BAAe,mBAAc,CAAC,EAAG,CAAJ;AAC7B,cAAgB,CAAZ,gBAAY,IAAG,CAAH,CAAM,IAAiB,CAAZ,gBAAY,IAAe,CAAZ,iBAAY,GAAE,CAAF,CAAf,CAAvC,EACE,mBAAe,iBAAY,CAAC,gBAAD,CAD7B;SAHF;AAOA,2BAAe,eAAU,CAAC,EAAG,EA3lH6B,KA2lHjC;AACzB,gCAAoB,eAAU,CAAC,EAAG,EAAG,IAAP;AAC9B,iCAAqB,qBAAgB,CAAC,EAAG,CAAJ;AACrC,iCAAqB,qBAAgB,CAAC,EAAG,CAAJ;AAErC,4BAAe,CAAI;AACnB,0BAAc;AACd,yBAAa;AACb,0BAAc;AACd,0BAAc;AACd,wBAAY;AACZ,wBAAY;AACZ,sBAAU;AACV,sBAAU;AACV,uBAAW;AACX,uBAAW;AACX,sBAAU;AACV,sBAAU;AACV,+BAAmB;AACnB,iCAAqB;AACrB,wBAAY;AACZ,gCAAoB,CAAI,kBAAa;AACrC,0BAAc;;AAEhB,yBAAe;AAxG8B;AA2GA;AAE7C;AACA;AACA;AACA;AACA;AACA;AACA;AAAO;AAAU;AACjB;AACA;AACA;AAAI;AACJ;AACA;AACA;AAEA;AAEA,UAAG,oBAAe,IAAe,CAAX,eAAW,IAAI,CAAI,iBAAR,CAAjC,EACE,MADF;AAGA,gBAAM;AACN,gBAAM;AAEN,UAAG,iBAAwD,IAAxC,gBAAJ,IAAkB,gCAAJ,IAAmE,CAAd,CAAjB,QAAG,CAAC,OAAG,GAAE,WAAN,CAAc,GAAE,EAAF,CAAc,IAAqB,CAAjB,QAAG,CAAC,OAAG,GAAE,WAAN,CAAc,GAAE,EAAF,CAArB,CAAhG;AAEE,YAAG,CAAI,qBAAP,EACE,oBAAe,CAAC,EAAG,CAAJ,CADjB;AAGA,gCAAoB;AACpB,YAAG,0BAAH;AACE,wCAAyB,CAAC,EAAG,CAAJ;AAEzB;AACF;OAVF;AAaA,UAAG,iBAAuC,IAAd,CAAC,gBAAD,SAAZ,IAA8B,iBAAW,SAAzD;AAEE,kBAAK,yBAAL;AACA,kBAAW,eAAW,GAAM,CAAH,OAAG,GAAE,WAAF,CAAN;AACtB,YAAY,CAAR,OAAQ,IAA8B,CAArB,CAAN,CAAC,IAAK,GAAY,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAZ,CAAqB,GAAE,gBAAW,UAAC,EAAd,CAA9B,CAAoD,IAAa,CAAR,OAAQ,IAAG,CAAC,IAAJ,CAA7E;AAEE,0BAAW,OAAC,CAAO,UAAK,CAAC,QAAG,CAAC,CAAC,KAAM,QAAG,CAAO,CAAN,CAAC,IAAK,GAAY,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAZ,CAAqB,GAAE,gBAAW,UAAC,EAAd,CAAsB,OAAlD,CAAX,CAAJ,CAAZ;AACZ,4BAAc,gBAAW,OAAC;AAC1B,yBAAU,WAAC,CAAW,KAAX;AACX,cAAY,CAAR,OAAQ,GAAE,CAAC,IAAH,CAAS,IAAa,CAAR,OAAQ,GAAQ,CAAN,CAAC,IAAK,GAAW,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAX,CAAR,CAAlC;AAEE,gBAAK,aAAQ,CAAU,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAF,CAAK,QAhrHQ,CAgrHjC;AACb,gBAAY,CAAD,QAAX,EACE,gBAAY,CAAC,KADf;WAHF;SAOG,UAAI,OAAQ,GAA6B,CAArB,CAAN,CAAC,IAAK,GAAY,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAZ,CAAqB,GAAE,gBAAW,UAAC,EAAd,CAAzC;AAEH,0BAAW,OAAC,CAAO,UAAK,CAAO,CAAN,CAAC,IAAK,GAAY,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAZ,CAAqB,GAAE,gBAAW,UAAC,EAA1C,CAAZ;AACZ,4BAAc;AACd,yBAAU,WAAC,CAAW,IAAX;SAER,UAAI,OAAQ,GAAE,CAAC,IAAf;AAEH,0BAAW,OAAC,CAAO,UAAK,CAAC,CAAC,IAAF,CAAZ;AACZ,4BAAc;AACd,yBAAU,WAAC,CAAW,IAAX;SAJR;AAOL,sBAAU;AACV;OA9BF;AAiCA,UAAgB,CAAZ,gBAAY,IAAG,CAAH,CAAM,IAAiB,CAAZ,gBAAY,IAAe,CAAZ,iBAAY,GAAE,CAAF,CAAf,CAAvC;AAEE,YAAK;AACL,gBAAS;AACT,2BAAe,KAAM,GAAK,CAAF,CAAE,GAAE,WAAF,CAAL;AACrB,mBAAY,QAAG,CAAC,EAAG,gBAAJ;AACf,sBAAU;AACV,+BAAkB,CAAC,iBAAa,MAAO;;;;aAAU;;;;YAA/B;AAClB,YAAG,CAAH;AAEE,2BAAY,CAAC,iBAAgB,QAAjB;AACZ,cAAgB,CAAZ,gBAAY,IAAG,CAAH,CAAM,IAAiB,CAAZ,gBAAY,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAAvC,EACE,aAAO,WAAC,gBAAD,CAAa,YAAY,CAAC,QAAD,CADlC;AAGA,gCAAiB,CAAC,iBAAa,QAAd;AACjB,yBAAU,CAAC,IAAD;AACV;AACA;SATF;AAWA;OAnBF;AAsBA,UAAG,iBAAkD,IAAlC,CAA2B,CAAtB,kBAAa,QAAS,KAAG,EAAH,CAA/B,IAA0C,CAAgC,CAA3B,uBAAkB,QAAS,KAAG,EAAH,CAAzF;AAEE,mBAAY,CAAI,kBAAc,IAAI,CAAY,CAAC,iBAAY,MAAb,SAAhB;AAC9B,YAAG,QAAH;AAEE,cAAK;AACA;AACH,cADG,IACH,iFAAiB,IAAK,GAAtB;AAGF,cAAK;AACL,cAAG,uBAAiB,IAAsB,CAAjB,QAAG,CAAC,CAAE,GAAE,YAAL,CAAc,GAAE,EAAF,CAA1C,EACE,IAAK,QAAG,CAAC,CAAE,GAAE,YAAL,CAAc,GAAE,CAD1B;AAGA,cAAK,CAAE,IAAI,CAAsB,CAAjB,eAAU,CAAC,EAAG,EAhuH0B,KAguH9B,CAAO,KAAG,CAAC,CAAJ,CAA1B;AAEP,cAAyC,CAArC,eAAqC,IAAL,CAAjB,QAAG,CAAC,YAAQ,GAAE,CAAX,CAAc,GAAE,CAAF,CAArB,IAA+C,CAAjB,QAAG,CAAC,YAAQ,GAAE,CAAX,CAAc,GAAE,CAAF,CAArB,CAA0D,IAA3B,iBAAW,gBAAf,IAAmC,CAAvG;AAEE,2BAAU,WAAC,CAAW,KAAX;AACX,gBAAoB,CAAhB,QAAG,CAAC,CAAE,GAAE,WAAL,CAAa,GAAE,CAAF,CAAkB,IAAoB,CAAhB,QAAG,CAAC,CAAE,GAAE,WAAL,CAAa,GAAE,CAAF,CAA1D;AAEE,gCAAc;AACd,sCAAoB;AACpB,kBAAG,iBAAY,IAAI,CAAI,aAAvB;AAEE,qBAAM;AACN,qBAAM;AACN,oBAAO,CAAH,EAAG,IAAgB,CAAT,CAAF,CAAE,GAAE,WAAF,CAAS,GAAE,CAAF,CAAhB,CAAsB,IAA6B,CAAzB,EAAyB,IAAN,CAAT,CAAF,CAAE,GAAE,WAAF,CAAS,GAAE,CAAF,CAAhB,IAA2C,CAAhB,oBAAgB,KAAE,CAAF,CAArB,CAA1D;AAEE,yCAAmB;AACnB,6BAAM,CAAC,sBAAgB,GAAe,CAAV,CAAF,CAAE,GAAE,WAAF,CAAU,GAAE,CAAF,CAAf,CAAoB,sBAAgB,GAAe,CAAV,CAAF,CAAE,GAAE,WAAF,CAAU,GAAE,CAAF,CAApE;iBAEH,UAAG,6BAAH;AAEH,yCAAmB,QAAG,CAAC,GAAI,QAAG,CAAC,CAAC,GAAI,oBAAgB,GAAK,CAAF,CAAE,GAAE,WAAF,CAA3B,CAAR;AACtB;iBAGA,MAAA,WAAM,CAAC,sBAAgB,GAAe,CAAV,CAAF,CAAE,GAAE,WAAF,CAAU,GAAE,CAAF,CAAf,CAAoB,sBAArC;AAER,8BAAU;AACV,8BAAU;eAlBZ;aAJF;WAHF;SAbF;;AA8CA,aAAM;AACN,cAAO,kBAAa,CAAC,EAAG,EAj/H+B,CAi/HnC;AACpB,YAAY,GAAD,QAAX,EACE,KAAM,GAAG,MADX;AAGA,cAAO;AAEP,YAAW,CAAC,EAAD,SAAK,IAAY,CAAC,GAAD,SAA5B;AAEE,cAAG,iBAAW,yBAAyB,IAA8C,CAAP,CAAjC,mBAAc,CAAC,GAAI,EAAG,CAAR,CAAU,QAAS,KAAG,EAAH,CAAO,IAA0C,CAAtC,wBAAmB,CAAC,GAAI,EAAG,CAAR,CAAU,QAAS,KAAG,EAAH,CAA1C,CAArF,EACE,MAAO,EADT;;AAKA,cAAG,iBAAW,cAAd;AAEE,iBAAM,mBAAc,CAAC,EAAG,CAAJ;AACpB,gBAAO,CAAH,EAAG,IAAG,CAAH,CAAM,IAAQ,CAAH,EAAG,IAAe,CAAZ,iBAAY,GAAE,CAAF,CAAf,CAArB,EACE,MAAO,CADT;WAHF;;AAQF,aAAM,CAAC;AACP,YAAK,qBAAgB,CAAC,EAAG,EAAG;;;;YAAP;AACrB,YAAG,CAAE,KAAG,EAAR,EACE,MAAO,EADT;AAGA,YAAG,GAAI,KAAG,YAAV,EACE,sBAAU,GAAV,CADF;AAGA,YAAI,aAAS,KAAG,GAAhB;AAEE,cAAW,CAAC,aAAD,SAAW,IAAY,CAAC,aAAQ,MAAT,SAAlC,EACE,qBAAgB,CAAC,aAAQ,MAAT,CADlB;AAEA,cAAW,CAAC,GAAD,SAAM,IAAY,CAAC,GAAG,MAAJ,SAA7B,EACE,qBAAgB,CAAC,GAAG,MAAJ,CADlB;SAJF;AAQA,wBAAY;;AAnL+B;AAu5BD;AAE5C;AACA;AACA;AACA;AAAI;AACJ;AAEA;AACA,UAAG,oBAAH,EACE,MADF;AAGA,yBAAe;AACf,iBAAM,gCAAM,CAAC,EAAG,CAAJ,CAAZ;AACA,uBAAa;AACb,UAAK,aAAQ,CAAC,EAAE,GAAI,EAAE,GAtiJ8B,CAsiJvC;AACb,UAAY,CAAD,QAAX;AAEE,YAAG,CAAI,mBAAc,CAAC,EAAG,EAAE,GAAI,EAAE,EAAZ,CAAgB,IAAI,CAAY,CAAC,kBAAa,CAAC,EAAG,EAAE,GAAI,EAAE,EAAZ,CAAe,MAA7B,SAArD;AAEE,2BAAa;AACb,cAAY,cAAD,QAAX;AAEE,iBAAM;AACN,gCAAe,CAAC,eAAW;;;;gBAAZ;AACf,gBAAG,EAAH;AAEE,oBAAO;AACP,mCAAgB,CAAC,eAAW;;;;kBAAZ;AAChB,kBAAG,CAAI,iBAA0J,IAA9D,CAAlC,CAAvC,GAAuC,IAA/B,iBAAW,oBAAf,IAAuC,iBAAW,kBAAf,CAAkC,IAAG,CAAI,GAAP,CAA/E,IAA0H,CAA1B,iBAAW,eAAe,KAAE,iDAAF,CAA/B,IAAsD,CAAI,iBAAW,UAApL;AAEE,oBAAK,uBAAkB,CAAC,eAAW,EAAE,GAAI,EAAE,EAApB;AACvB,oBAAG,CAAE,KAAG,CAAC,CAAT,EACE,sBAAiB,CAAC,eAAW,CAAZ,CADnB;eAGG,UAAG,iBAAW,0BAAd,EACH,qBAAgB,CAAC,cAAD,CADb;aAVP;AAcA,+BAAc,CAAC,cAAD;WAlBhB;SAHF;;AA2BA,cAAO,mBAAc,CAAC,EAAE,GAAI,EAAE,EAAT;AACrB,YAAG,iBAAW,0BAAd,EACE,mBAAc,CAAC,GAAD,CADhB;;AAIF,0BAAe;AACf,sBAAY;AACZ,wBAAc;AAEd,2BAAiB;AACjB,0BAAgB;AAChB,+BAAqB;AACrB,wBAAa,QAAb,GAAyB;AACzB,wBAAa,QAAb,GAAyB,CAAC;AAC1B,6BAAkB,QAAlB,GAA8B;AAC9B,6BAAkB,QAAlB,GAA8B,CAAC;AAC/B,yBAAe,CAAC;AAChB,8BAAoB,CAAC;AACrB,+BAAqB,CAAC;AACtB,+BAAqB,CAAC;AACtB,0BAAgB;AAChB,yBAAa;AACb,8BAAoB;AAnEwB;AA35DU;AAGtD,UAAY,8BAAD,QAAX,EACE,8BAAwB,CAAC,KAAM,QAAS,OAAhB,CAD1B;AAHsD;AA1bV;AAG5C,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,QAAS,UAAhB,CADhB;AAH4C;AAk9EF;AAE1C;AACA;AACA;AACA;AACA;AAAM;AAAG;AACT;AACA;AAAM;AAEN,UAAY,CAAR,OAAQ,IAAG,CAAH,CAAyC,IAAtB,CAAR,OAAQ,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAAb,IAAuC,aAAO,WAAC,OAAD,CAAS,WAAU,SAAnF;AAEE,eAAQ,iBAAY,CAAC,OAAD;AACpB,YAAG,IAAK,IAAG,CAAX;AAEE,iBAAQ,cAAe,CAAC,OAAD;AACvB,eAAM,uBAAW,QAAC;AAClB;AACE,cAAE,YAAF,GAAiB;AACjB,cAAE,UAAC,CAAU,IAAV;AACH,cAAE,IAAI,CAAC,8CAAD;AAEN,gBAAK;AACL,mBAAe,CAAD,QAAd;AAEE,kBAAK;AACL,gCAAa,CAAC,EAAG,QAAS,yEAAa;;;;kBAA1B;AACb,kBAAK,sCAAY,UAAU,CAAC,CAAD;AAC3B,kBAAG,CAAE,KAAG,EAAR,EACE,EAAE,IAAI,CAAC,CAAD,CADR;AAEA,kBAAK,CAAC;;AAGR,yCAAwB,CAAC,QAAS,EAAV;AAExB,+BAAc,UAAC,CAAU,IAAV;AAIf,+BAAc,OAAM,OAAO,CAAC,EAAD;AAC3B,+BAAc,aAAC,CAAa,CAAC,CAAd;AAKf,kDAAY,YAAY,CAAC,mBAAc,OAAO,GpBjpM8B,CoBipMpD;AAGxB,+BAAc,OAAd,GAAsB;AAEtB,yCAAwB,CAAC,QAAS,mBAAV;AAExB,+BAAc,UAAC,CAAU,IAAV;AAnCjB;AAqCE,cAAG,eAAH,EAAG;AArCL;AAyCA,2BAAY,oBAAC,CAAoB,IAApB;AAEb,uBAAQ,wBAAR;AACA,cAAI,KAAJ,GAAa,IAAI,KAAM,GAAE,kCAAF;AACvB,oBAAK,+BAAK,CAAC,IAAI,KAAM,GAAE,IAAF,CAAQ,IAAI,KAAM,IAAI,KAAa,GAAL,IAAF,GAAS,IAAF,CAAQ,IAAI,OAA1D,CAAV;AACA,gBAAO,aAAO,WAAC,OAAD,CAAS,WAAU;AACjC,qBAAM,+BAAK,CAAC,UAAK,CAAC,CAAC,MAAa,GAAJ,GAAF,GAAQ,oBAAe,CAAC,CAAD,CAAhC,EAAsC,UAAK,CAAC,CAAC,IAAK,GAA6B,CAAP,CAAlB,CAAC,OAAiB,GAAP,CAAC,IAAH,GAAW,GAAF,CAAO,GAAE,CAAF,CAApC,EAA0C,UAAK,CAAC,CAAC,MAAO,GAAE,oBAAe,CAAC,CAAD,CAA1B,EAAgC,UAAK,CAAC,CAAC,IAAsC,GAAJ,CAAP,CAAlB,CAAC,OAAiB,GAAP,CAAC,IAAH,GAAW,GAAF,CAAO,GAAE,CAAF,CAA7B,GAAmC,GAA1C,CAArI,CAAX;AAEA,qBAAM,oBAAe,CAAO,yCAAN,gCAAM,CAAS,CAAR,EAAE,KAAM,GAAY,CAAT,EAAE,MAAO,GAAE,EAAE,KAAJ,CAAZ,CAA6B,GAAJ,GAAF,GAAQ,oBAAe,CAAC,CAAD,CAAjB,CAAsB,EAAE,IAAK,GAA+B,CAAP,CAAV,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAU,GAAE,GAAF,CAAO,GAAE,CAAF,CAAlG,EAAP,CAArB;AACA,2BAAY,oBAAmB,QAAC,CAAQ,EAAE,EAAV;AAChC,2BAAY,oBAAmB,OAAC,CAAO,EAAE,EAAT;AAEhC,6BAAc,SAAC,CAAS,aAAO,WAAC,OAAD,CAAS,WAAU,eAAnC;AACf,6BAAc,UAAC,CAAU,aAAO,WAAC,OAAD,CAAS,WAAU,gBAApC;AACf,2BAAY,kBAAC,CAAkB,aAAO,WAAC,OAAD,CAAS,WAAU,gBAA5C;AACb,2BAAY,iBAAC,CAAiB,aAAO,WAAC,OAAD,CAAS,WAAU,eAA3C;AAEb,2BAAY,oBAAmB,SAAC,CAAS,EAAE,EAAG,GAAE,iBAAY,eAA5B;AAChC,2BAAY,oBAAmB,UAAC,CAAU,EAAE,EAAG,GAAE,iBAAY,gBAA7B;AAEhC,2BAAY,kBAAC,CAAkB,mBAAlB;AACb,2BAAY,gBAAZ,GAA+B;AAE/B,2BAAY,OFhlM8B;SE4gM5C;OAHF;AAV0C;AA4UA;;AAzqCC;AAG3C;AACA;AACA;AACA;AACA;AAAI;AAAG;AAAO;AACd;AACA;AACA;AAAI;AACJ;AACA;AACA;AACA;AAEA;AAEA,UAAW,CAAP,MAAO,KAA6C,2CAA7C,CAAsD,IAAG,oBAApE,EACE,MADF;AAQA;AAEA,UAAG,gBAA+B,IAAjB,qBAAJ,IAAyB,0BAAtC;AAEE,sCAAyB,CAAC,EAAG,CAAJ;AACzB;AACA,8BAAU,CAAV;OAJF;AAOA,WAAM;AACN,yBAAe,CAAC;AAChB,qBAAU,WAAC,CAAW,KAAX;AAEX,UAAG,CAAI,iBAAP,EACE,MADF;AAGA,UAAG,iBAAa,IAAI,iBAAW,SAA/B;AAEE,aAAM,aAAQ,CAAC,EAAG,EAn2HgC,CAm2HpC;AACd,YAAY,qBAAD,QAAX;AACE,+BAAe,CAAC,KAAM,eAAW,EAAlB;;AAGf,cAAW,CAAC,EAAD,SAAiD,IAApC,CAAH,EAAG,KAAG,cAAH,CAAR,IAAkC,CAAC,EAAE,MAAH,SAAZ,IAAkC,CAAC,cAAS,MAAV,SAAxE;AAEE,gBAAK;AACL,oCAAmB,CAAC,eAAW,GAAI;;;;gBAAhB;AACnB,gBAAG,CAAH;AAEE,kBAAG,cAAS,OAAO,KAAE,EAAE,OAAvB;AAEE,oBAAG,EAAE,MAAK,YAAW,KAAE,IAAvB;AACE,gCAAS,MAAK,SAAC,CAAS,EAAE,MAAK,SAAC,EAAjB;AAEf,sBAAA,cAAS,MAAK,OAAO,CAAC,EAAE,MAAK,aAAY,EAAE,MAAK,SAAC,EAA5B;eALzB;AAOA,qCAAkB,CAAC,eAAW,EAAZ;aATpB;WAJF;;AAkBF;AACA,yBAAa;OA1Bf;AA6BA,UAAK;AACA;AACH,UADG,IACH,iFAAiB,IAAK,GAAtB;AAGF,0BAAe;AACf,sBAAY;AACZ,wBAAc;AAEd,UAAG,sBAAkB,KAAG,CAAC,CAAzB;AACE,yBAAY,CAAC,sBAAD;AACT,gBAAG,sBAAkB,KAAG,CAAC,CAAzB;AACH,yBAAY,CAAC,sBAAD;AACT,gBAAgB,CAAZ,gBAAY,KAAG,CAAC,CAAJ,CAAO,IAAQ,CAAH,EAAG,KAAE,CAAC,CAAH,CAA/B;AAEH,YAAgB,CAAZ,gBAAY,IAAG,CAAH,CAAM,IAAiB,CAAZ,gBAAY,IAAe,CAAZ,iBAAY,GAAE,CAAF,CAAf,CAAvC;AAEE,cAAI,aAAO,WAAC,gBAAD,CAAa,SAAS,KAAG,qEAApC;AAEsD,wBAArB,aAAO,WAAC,gBAAD,CAAc;AAClD,iBADkD,KAClD,+EAAS,CADyC,KACzC,gFAAT;AAEE,0CAAuB,CAAC,iBAAa,2EAAd;AACvB,kBAAY,wBAAD,QAAX;AACE,wCAAkB,CAAC,KAAM,iBAAa,2EAApB;;AAGlB,qBAAM;AACN,sCAAiB,CAAC,iBAAa,4EAAe;;;;oBAA7B;AACjB,oBAAG,EAAH;AAEE,6BAAK,OAAK,CAAC,iBAAa,aAAO,WAAC,gBAAD,CAAa,SAAS,IAAG,cAAC,2EAAc,uFAAf,CAAH,CAA8C,aAAO,WAAC,gBAAD,CAAa,SAAS,IAAG,cAAC,qFAAwB,uFAAzB,CAAH,CAAwD,4EH91Jf,IG81J/J;AACV,uCAAgB,CAAC,iBAAa,2EAAd;iBAHlB;;aAOJ,UAjBkD,KAiBlD;AAEE,0CAAuB,CAAC,iBAAa,0EAAd;AACvB,kBAAY,wBAAD,QAAX;AACE,wCAAkB,CAAC,KAAM,iBAAa,0EAApB;;AAGlB,qBAAM;AACN,sCAAiB,CAAC,iBAAa,2EAAc;;;;oBAA5B;AACjB,oBAAG,EAAH;AAEE,6BAAK,OAAK,CAAC,iBAAa,aAAO,WAAC,gBAAD,CAAa,SAAS,IAAG,cAAC,2EAAc,uFAAf,CAAH,CAA8C,aAAO,WAAC,gBAAD,CAAa,SAAS,IAAG,cAAC,qFAAwB,uFAAzB,CAAH,CAAwD,2EH92Jf,IG82J/J;AACV,uCAAgB,CAAC,iBAAa,0EAAd;iBAHlB;;aATJ;WAnBJ;AAsCA,eAAM,CAAC;AACP,eAAM,qBAAgB,CAAC,EAAG,EAAG;;;;cAAP;AACtB,cAAG,EAAG,KAAG,EAAT,EACE,wBAAmB,CAAC,iBAAa,EAAd,CADrB;SA1CF;OA8CG,UAAG,CAAI,iBAAa,IAAI,CAAI,qBAA5B;AAEH,YAAG,CAAI,kBAAwI,IAAtH,CAAI,iBAAR,IAAyB,CAAI,sBAAR,IAA8B,CAAY,CAAC,iBAAY,MAAb,SAAhB,IAAyC,CAA2B,CAAtB,kBAAa,QAAS,KAAG,EAAH,CAA/B,IAA0C,CAAgC,CAA3B,uBAAkB,QAAS,KAAG,EAAH,CAAnL;AAEE,cAAG,CAAI,qBAAiB,IAAI,iBAAW,gBAAvC;AAEE,6BAAa;AACb,gBAAoB,CAAhB,oBAAgB,KAAE,CAAF,CAAiD,IAAd,CAAd,CAAV,cAAU,GAAE,eAAF,CAAc,GAAE,GAAF,CAA9B,IAA0E,CAAd,CAAV,cAAU,GAAE,eAAF,CAAc,GAAE,CAAF,CAAnG;AAEE,0BAAQ,QAAG,CAAC,CAAE,GAAE,aAAL,CAAe,GAAa,CAAV,cAAU,GAAE,eAAF,CAAb;AAC1B,kBAAI,SAAK,GAAE,CAAX;AAEE,oBAAM,CAAF,CAAE,GAAE,aAAF,CAAY,GAAE,CAApB;AACE,oCAAc,QAAG,CAAC,EAAG,QAAG,CAAC,wBAAiB,KAAK,GAAE,uBAAF,CAAoB,eAAW,GAAE,UAAK,CAAC,QAAG,CAAC,CAAE,GAAE,aAAL,CAA0B,GAAT,SAAF,GAAS,CAAF,GAAM,CAAhC,CAA7D,CAAP;AAEjB,wCAAc,QAAG,CAAC,EAAG,QAAG,CAAC,wBAAiB,KAAK,GAAE,uBAAF,CAAoB,eAAW,GAAE,UAAK,CAAC,QAAG,CAAC,CAAE,GAAE,aAAL,CAA0B,GAAT,SAAF,GAAS,CAAF,GAAM,CAAhC,CAA7D,CAAP;AAEnB,2CAAuB;AACvB,kCAAa,WAAC,CAAW,IAAX;eARhB;AAWA,0BAAQ,QAAG,CAAC,CAAE,GAAE,aAAL,CAAe,GAAa,CAAV,cAAU,GAAE,eAAF,CAAb;AAC1B,kBAAI,SAAK,GAAE,CAAX;AAEE,oBAAM,CAAF,CAAE,GAAE,aAAF,CAAY,GAAE,CAApB;AACE,oCAAc,QAAG,CAAC,EAAG,QAAG,CAAC,0BAAmB,KAAK,GAAE,uBAAF,CAAoB,eAAW,GAAE,UAAK,CAAC,QAAG,CAAC,CAAE,GAAE,aAAL,CAA0B,GAAT,SAAF,GAAS,CAAF,GAAM,CAAhC,CAA/D,CAAP;AAEjB,wCAAc,QAAG,CAAC,EAAG,QAAG,CAAC,0BAAmB,KAAK,GAAE,uBAAF,CAAoB,eAAW,GAAE,UAAK,CAAC,QAAG,CAAC,CAAE,GAAE,aAAL,CAA0B,GAAT,SAAF,GAAS,CAAF,GAAM,CAAhC,CAA/D,CAAP;AAEnB,6CAAyB;AACzB,kCAAa,WAAC,CAAW,IAAX;eARhB;aAWG,UAAG,6BAAH;AAEH,kBAAG,gBAAW,CAAC,oBAAD,CAAd,EACE,kBADF;AAGA;aALG;;AAUL,gBAAW,CAAC,cAAD,SAAY,IAAI,CAAI,qBAA/B;AAEE,mBAAM,4BAAuB,CAAC,cAAD;AAC7B,qBAAQ;AACR,sBAAS;AAET,kBAAG,EAAH;AAEE,oBAAY,CAAR,iCAAQ,IAAG,KAAH,CAAU,IAAmB,CAAd,qCAAc,IAAG,iBAAW,kBAAd,CAAzC;AAEE,sBAAY,iBAAD,QAAX;AAEE,wBAAkB,CAAd,qCAAc,IAAG,iBAAW,kBAAd,CAAiC,IAA6B,CAAxB,iBAAY,YAAY,KAAG,cAAS,YAAZ,CAAhF;AACC,4BAAO;AAEN,gCAAO;AACT,wBAAG,iBAAY,KAAK,IAAG,cAAS,KAAhC;AAEE,+BAA0B,KAAjB,iBAAY,KAAK,GAAE,GAAF,EAAkB,OAAT,cAAS,uBAA5C;AAAI;AACF,6CAAgB,CAAC,6BAAwB,CAAC,CAAD,EAAK,KAAM,MAAmC,CAAR,iCAAQ,IAAG,KAAH,CAAU,IAAa,iBAAW,aAAxB,CAAsC,qBAAvH;;;AAIlB,+BAA0B,MAAjB,iBAAY,KAAK,GAAE,GAAF,EAAsB,QAAT,cAAS,0BAAhD;AAAI;AACF,6CAAgB,CAAC,6BAAwB,CAAC,CAAD,EAAK,KAAM,MAAmC,CAAR,iCAAQ,IAAG,KAAH,CAAU,IAAa,iBAAW,aAAxB,CAAsC,qBAAvH;;;mBAdtB;;AA+BE,sBAAkB,CAAd,qCAAc,IAAG,iBAAW,kBAAd,CAAkH,IAArE,CAAC,iBAAD,SAAZ,IAAqD,CAArB,cAAS,YAAY,KAAG,iBAAY,YAAf,CAA1B,IAAgF,CAArB,mBAAc,SAAC,EAAM,GAAE,CAAF,CAA9J;AAEE,uCAAc;mBAEX,UAAyD,CAA9B,CAAtB,CAAY,CAAP,gCAAO,IAAG,KAAH,CAAU,IAAI,CAAe,qCAAG,KAAH,CAAnB,CAA8B,IAAG,CAAoB,CAAhB,uCAAgB,IAAG,iBAAW,kBAAd,CAAvB,CAAyD,IAA0B,CAArB,mBAAc,SAAC,EAAM,GAAE,CAAF,CAA5I,EACH,wBAAmB,CAAC,cAAD,CADhB;AAGL,uCAAgB,CAAC,eAAW,KAAM,MAA2B,CAAV,CAAP,gCAAO,IAAG,KAAH,CAAU,IAAc,qCAAG,KAAH,CAAd,CAAgF,IAAlC,CAAhB,uCAAgB,IAAG,iBAAW,kBAAd,CAArB,IAA2D,iBAAW,aAAf,CAA6B,qBAA1J;;eA1CtB;AAiDA,kBAAG,KAAH;AAEE,oBAAG,iBAAa,KAAG,cAAnB;AAEE,sCAAgB;AAChB,2CAAoB,CAAC,iBAAD;iBAHtB;eAFF;AASA,kBAAG,CAAI,iBAAyJ,IAAzF,CAAnB,CAA1B,iBAAW,eAAe,KAAE,iDAAF,CAAmB,IAAgE,CAAjC,CAA1B,iBAAW,eAAe,KAAE,+DAAF,CAAiC,IAAe,CAAV,cAAU,KAAE,IAAF,CAAf,CAAhE,CAAnD,IAAgJ,CAAI,iBAAW,UAAnL;AAEE,oBAAY,cAAD,QAAX;AAEE,wBAAO;AACP,uCAAgB,CAAC,eAAW;;;;sBAAZ;AAChB,sBAAK;AACL,sCAAe,CAAC,eAAW;;;;sBAAZ;AAEf,4BAAK,wBAAmB,CAAC,eAAW,EAAG,CAAf,CAAxB;AACA,sBAAG,CAAC,QAAS,KAAG,EAAhB,EACE,2BAAsB,CAAC,eAAW,CAAC,SAAU,CAAC,QAAxB,CADxB;AAGA,4BAAK,mBAAc,CAAC,eAAW,EAAG,CAAf,CAAnB;AACA,sBAAG,CAAE,IAAe,CAAV,CAAC,QAAS,KAAG,EAAH,CAApB;AAEE,0CAAiB,CAAC,eAAW,CAAC,SAAU,CAAC,QAAxB;mBAEd,UAA8E,CAAlC,CAAvC,GAAuC,IAA/B,iBAAW,oBAAf,IAAuC,iBAAW,kBAAf,CAAkC,IAAG,CAAI,GAAP,CAAY,IAAI,CAA9F;AAEH,wBAAK,uBAAkB,CAAC,eAAW,EAAG,CAAf;AACvB,wBAAM,CAAF,CAAE,KAAG,CAAC,CAAJ,CAAO,IAAI,cAAS,iBAAc,CAAC,CAAD,CAAxC;AAEE,4CAAiB,CAAC,eAAW,CAAZ;qBAFnB;mBAHG;iBAhBP;eAFF;AA8BA;aA9FF;;SAkGC,UAAG,CAAI,iBAAP;AAEH,cAAG,kBAAH;AACE,iCAAgB,CAAC,cAAD;AACb,oBAAG,iBAAH;AACH,gCAAe,CAAC,cAAD;AACZ,oBAAG,sBAAH;AACH,qCAAoB,CAAC,cAAD;AACjB,oBAAW,CAAC,iBAAY,MAAb,SAAqB,IAAI,CAAI,iBAAW,UAAnD;AACH,sCAAqB,CAAC,eAAW,iBAAY,QAAxB;;AAGrB,sBAAK,mBAAc,CAAC,eAAW,EAAG,CAAf,CAAnB;AACA,gBAAG,CAAC,QAAS,KAAG,EAAhB,EACE,sBAAiB,CAAC,eAAW,CAAC,SAAU,CAAC,QAAxB,CADnB;AAGA,sBAAK,wBAAmB,CAAC,eAAW,EAAG,CAAf,CAAxB;AACA,gBAAG,CAAC,QAAS,KAAG,EAAhB,EACE,2BAAsB,CAAC,eAAW,CAAC,SAAU,CAAC,QAAxB,CADxB;;SAjBC;OA7IF;AAoKL,2BAAiB;AACjB,0BAAgB;AAChB,+BAAqB;AACrB,wBAAa,QAAb,GAAyB;AACzB,wBAAa,QAAb,GAAyB,CAAC;AAC1B,6BAAkB,QAAlB,GAA8B;AAC9B,6BAAkB,QAAlB,GAA8B,CAAC;AAC/B,yBAAe,CAAC;AAChB,8BAAoB,CAAC;AACrB,+BAAqB,CAAC;AACtB,+BAAqB,CAAC;AACtB,0BAAgB;AAChB,yBAAa;AACb,8BAAoB;AArTuB;AAg/Ee;AAE1D,oCAA0B;AAC1B,wBAAa,WAAC,CAAW,IAAX;AAH4C;AA77JZ;AAE9C,UAAU,CAAN,KAAM,KAAE,iBAAF,CAAgB,IAAU,CAAN,KAAM,KAAE,IAAF,CAApC,EACE,oBAAgB,IADlB;AAF8C;AA01JC;AAE/C,+BAAqB;AAF0B;AA/OH;AAE5C;AAEA;AACA,UAAG,oBAAH,EACE,MADF;AAGA,UAAS,SAAD;AAER,UAAG,iBAAW,QAAO,SAArB;AAEE,YAAG,CAAE,IAAG,cAAC,GAAW,GAAW,GAAW,GAAO,GAAS,GAAS,GAAU,GAAS,GAAQ,GAAU,GAAS,EAAS,CAAlH,CAAR;AACE,+BAAiB;;AAGjB,cAAG,iBAAW,QAAO,aAArB;AACE,iCAAiB,kBAAc,GAAE,SAAF;AAE/B,qCAAiB;AAEnB,cAAY,oBAAD,QAAX;AACE,gCAAc,CAAC,KAAM,kBAAP;;AAGd,2BAAU,CAAC,mBAAe,iBAAW,QAAO,gBAAgB,iBAAW,QAAO,SAC5E,iBAAW,QAAO,gBAAgB,iBAAW,QAAO,aAAa,iBAAW,QAAO,YAD3E;;;OAfhB;AAV4C;AAxQD;AAE3C;AAAK;AAAS;AACd;AAAI;AAAK;AAAQ;AACjB;AACA;AACA;AACA;AACA;AAEA;AACA,UAAG,yBAAqB,IAAG,oBAA3B,EACE,MADF;AAGA,UAAG,SAAI,IAAG,cAAC,GAAW,GAAW,GAAW,GAAO,GAAS,GAAS,GAAU,GAAS,GACtF,GAAU,GAAS,EAAQ,IAAa,IAAa,IAAQ,GADrD,CAAV,EAEI,qBAAiB,EAFrB;AAIA,UAAW,CAAP,gCAAO,IAAG,KAAH,CAAU,IAAc,qCAAG,KAAH,CAAnC;AAEO;AACH,YADG,IACA,OAAH;AAEE,cAAG,iBAAW,aAAd;AAEE,iBAAM;AACN,uCAAsB,CAAC;;;;gBAAD;AACtB,gBAAG,EAAH;AAEE;AACA;aAHF;WAJF;AAUA;SAEF,UAfG,IAeA,OAAH;AAEE,cAAG,iBAAW,eAAe,KAAG,yCAAhC;AAEE,gBAAK;AACL,uCAAsB,CAAC;;;;gBAAD;AACtB,gBAAG,CAAH;AAEE,iCAAc,CAAC,iBAAW,eAAe,KAAE,6CAA7B;AACd;aAHF;WAJF;AAUA;SAEF,UA7BG,IA6BA,OAAH;AAEE,cAAG,iBAAW,eAAe,KAAG,yCAAhC;AAEE,gBAAK;AACL,wCAAuB,CAAC;;;;gBAAD;AACvB,gBAAG,CAAH;AAEE,kCAAe,CAAC,iBAAW,eAAe,KAAE,6CAA7B;AACf;aAHF;WAJF;AAUA;SAEF,UA3CG,IA2CA,OAAH;AAEE,cAAG,iBAAW,eAAe,KAAG,yCAAhC;AAEE,gBAAK;AACL,2CAA0B,CAAC;;;;gBAAD;AAC1B,gBAAG,CAAH;AAEE;AACA;aAHF;WAJF;AAUA;SAZF;OA7CJ;AA8DA,YAAO;AACP,eAAU;AACV,eAAU;AACL;AACH,WADG,KACH,YAAU,CADP,KACO,QAAV,IAAuB,CADpB,KACoB,QAAvB;AAAkC,cAAO;AACzC,gBAFG,KAEH;AAEE,iBAAU;AACV,YAAY,GAAD,QAAX;AAEE,cAAK,GAAG,KAAK,GAAW,CAAR,cAAQ,GAAE,eAAF,CAAX;AACb,gBAAO,6BAAwB,CAAC,CAAD;AAC/B,cAAY,GAAD,QAAX;AAEE,gBAAG,CAAI,4BAAuB,CAAC,GAAD,CAA9B,EACE,MAAO,6BAAwB,CAAC,GAAD,CADjC;WAFF;AAMA,cAAG,CAAY,CAAC,GAAD,SAAf,EACE,MAAO,yBAAoB,CAAC,IAAD,CAD7B;SAVF;OAcF,UAnBG,KAmBH;AAEE,iBAAU;AACV,YAAY,GAAD,QAAX;AAEE,cAAK,GAAG,KAAK,GAAW,CAAR,cAAQ,GAAE,eAAF,CAAX;AACb,gBAAO,6BAAwB,CAAC,CAAD;AAC/B,cAAY,GAAD,QAAX;AAEE,gBAAG,CAAI,4BAAuB,CAAC,GAAD,CAA9B,EACE,MAAO,yBAAoB,CAAC,GAAD,CAD7B;WAFF;AAMA,cAAG,CAAY,CAAC,GAAD,SAAf,EACE,MAAO,6BAAwB,CAAC,IAAD,CADjC;SAVF;OAcF,UApCG,KAoCH;AAEE,cAAO,yBAAoB,CAAC,IAAD;AAC3B,iBAAU;OAEZ,UAzCG,KAyCH;AAEE,cAAO,6BAAwB,CAAC,IAAD;AAC/B,iBAAU;OAEZ,UA9CG,KA8CH;AAEE,YAAG,CAAI,iBAAW,aAAa,IAA4B,CAAxB,iBAAW,aAAa,IAAI,CAAqD,CAAjC,CAAd,qCAAc,IAAG,iBAAW,kBAAd,CAAiC,IAAY,CAAP,gCAAO,IAAG,KAAH,CAAZ,CAAzD,CAA3D;AAEE,gBAAO,yBAAoB,CAAC,GAAD;AAC3B,mBAAU;SAHZ;OAMF,UAtDG,KAsDH;AAEE,YAAG,CAAmB,CAAd,qCAAc,IAAG,iBAAW,kBAAd,CAAgE,IAA5B,CAAI,iBAAW,aAAlB,IAAkC,CAAY,CAAP,gCAAO,IAAG,KAAH,CAArG;AAEE,gBAAO,6BAAwB,CAAC,GAAD;AAC/B,mBAAU;SAHZ;OAMF,WA9DG,KA8DH,YAAU,CA9DP,KA8DO,SAAV,IAAwB,CA9DrB,KA8DqB,SAAxB;AAAoC,+BAAkB,CAAC,IAAK,SAAI,KAAE,GAAZ;AACtD,iBA/DG,KA+DH,YAAW,CA/DR,KA+DQ,SAAX,IAAoB,CA/DjB,KA+DiB,SAApB;AAAkC,6BAAgB,CAAC,IAAK,SAAI,KAAE,GAAZ;AAClD,gBAhEG,KAgEH,SAAW,gBAAW,CAAC,GAAD,CAAtB;AAGG;AACH,WADG,KACH,YAAU,CADP,KACO,QAAV,EAAqB,qBAAgB,CAAC,SAAD,CAArC;AAGF,YAAO;AACP,UAAI,SAAI,KAAE,EAAV,EACE,MAAO,IADT;AAGA,UAAY,GAAD,QAAX;AAEE,YAAsC,CAAlC,iBAAW,uBAAuB,IAAY,CAAP,MAAO,IAAG,MAAH,CAAZ,CAAwB,IAAQ,CAAJ,GAAI,IAAuB,CAAV,CAAP,gCAAO,IAAG,KAAH,CAAU,IAAc,qCAAG,KAAH,CAAd,CAAvB,CAAtE;AAEE,cAAI,iCAAQ,IAAG,KAAf;AAEE,gBAAI,mBAAc,SAAC,EAAM,GAAE,CAA3B;AAEE,wBAAW,mBAAc,SAAC,mBAAc,SAAC,EAAM,GAAE,CAAxB;AACzB,qBAAQ,mBAAc,SAAC,CAAD;AACtB,kBAAuC,CAAnC,MAAmC,IAAf,CAAR,GAAG,KAAK,GAAE,OAAO,KAAT,CAAb,IAAyC,CAAR,GAAG,KAAK,IAAG,IAAI,KAAP,CAAb,CAA2B,IAAuC,CAAnC,MAAmC,IAAf,CAAR,GAAG,KAAK,GAAE,OAAO,KAAT,CAAb,IAAyC,CAAR,GAAG,KAAK,IAAG,IAAI,KAAP,CAAb,CAAzG;AAEE,oBAAG,OAAO,KAAK,IAAG,GAAG,KAArB;AAEE,2BAAgB,KAAP,OAAO,OAAW,OAAH,GAAG,uBAA3B;AAAI;AAEF,wBAAK,6BAAwB,CAAC,CAAD;AAC7B,wBAAY,CAAD,QAAX;AAEE,0BAAG,CAAE,KAAG,GAAR;AAEE,4BAAK;AACL,iDAAoB,CAAC,EAAG;;;;4BAAJ;AACpB,4BAAG,CAAH;AAEE,kDAAmB,CAAC,CAAD;AACnB,kDAAmB,CAAC,CAAD;yBAHrB;uBAOA,MAAA,wBAAmB,CAAC,CAAD;qBAbvB;;;AAmBF,2BAAgB,MAAP,OAAO,OAAe,QAAH,GAAG,0BAA/B;AAAI;AAEF,wBAAK,6BAAwB,CAAC,CAAD;AAC7B,wBAAY,CAAD,QAAX;AAEE,0BAAG,CAAE,KAAG,GAAR;AAEE,4BAAK;AACL,iDAAoB,CAAC,EAAG;;;;4BAAJ;AACpB,4BAAG,CAAH;AAEE,kDAAmB,CAAC,CAAD;AACnB,kDAAmB,CAAC,CAAD;yBAHrB;uBAOA,MAAA,wBAAmB,CAAC,CAAD;qBAbvB;;;eA7BN;aAJF;WAqDG,UAAG,CAAY,CAAP,gCAAO,IAAG,KAAH,CAA8D,IAAhD,CAAe,qCAAG,KAAH,CAAnB,IAAyC,CAAP,MAAO,IAAG,MAAH,CAAZ,IAAiD,CAArB,mBAAc,SAAC,EAAM,GAAE,CAAF,CAAvG;AAEH,gBAAK;AACL,qCAAoB,CAAC,IAAK;;;;gBAAN;AACpB,gBAAG,CAAH;AAEE,sCAAmB,CAAC,GAAD;AACnB,sCAAmB,CAAC,GAAD;aAHrB;WAJG;AAWL,cAAI,iCAAQ,IAAG,KAAf;AAEE,gBAAY,iBAAD,QAAX;AAEE,kBAAG,iBAAY,KAAK,IAAG,GAAG,KAA1B;AAEE,yBAA0B,MAAjB,iBAAY,KAAK,GAAE,CAAF,EAAU,QAAH,GAAG,0BAApC;AAAI;AACF,uCAAgB,CAAC,6BAAwB,CAAC,CAAD,EAAK,KAAM,KAAkC,CAAR,iCAAQ,IAAG,KAAH,CAAU,IAAa,iBAAW,aAAxB,CA/xM2C,CAAC,CA+xM5H;;;AAIlB,yBAA0B,MAAjB,iBAAY,KAAK,GAAE,CAAF,EAAc,QAAH,GAAG,0BAAxC;AAAI;AACF,uCAAgB,CAAC,6BAAwB,CAAC,CAAD,EAAK,KAAM,KAAkC,CAAR,iCAAQ,IAAG,KAAH,CAAU,IAAa,iBAAW,aAAxB,CApyM2C,CAAC,CAoyM5H;;;aAVtB;WAeC,MAAA,qBAAgB,CAAC,IAAK,KAAM,KAA4C,CAAV,CAAP,gCAAO,IAAG,KAAH,CAAU,IAAc,qCAAG,KAAH,CAAd,CAAyB,IAAa,iBAAW,aAAxB,CAzyM+C,CAAC,CAyyMjI;SAEhB,UAAG,GAAH,EACH,0BAAqB,CAAC,IAAK,CAAN,CADlB;AAGL,YAAG,iBAAa,KAAG,GAAnB;AAEE,8BAAgB;AAChB,mCAAoB,CAAC,iBAAD;SAHtB;AAMA,YAAG,MAAH;AACE,kCAAmB,CAAC,kBAAc,KAAM,+EH3lNoJ,KG2lNzK;AAEnB,cAAA,wBAAmB,CAAC,kBAAc,KAAM,4EH7lNoJ,KG6lNzK;AACrB;OAtGF;AA9J2C;AAr6BE;AAE7C;AACA;AACA;AAEA,UAAG,yBAAqB,IAAG,oBAA3B;AAEE;AACA;OAHF;AAMA,UAAqD,CAA1C,CAAC,mBAAD,SAA0C,IAArB,yBAAJ,IAC1B,CAD6D,CAAJ,SAAI,KAAE,EAAF,CAC7D,IADmF,CAAJ,SAAI,KAAE,CAAF,CAAR,IAA2B,CAAJ,SAAI,KAAE,GAAF,CAAR,IAChE,CAAP,4BAAH,eAAf,mBAAe,CAAU,IAAS,CAAJ,SAAI,KAAE,EAAF,CAAT,CAA9B,CADmD,CACI,IAAqD,CAA9B,4BAAH,eAAf,mBAAe,CAAiC,IAAd,CAAJ,SAAI,KAAE,EAAF,CAAT,IAA2B,CAAY,CAAP,gCAAO,IAAG,KAAH,CAAhB,CAD9G;AAGE,mCAAuB;AACvB,+BAAkB,CAAC,SAAI,KAAE,EAAF,CA3qK8C,KA2qKnD;AAClB,YAAG,SAAI,KAAE,CAAT;AAEE,cAAY,iBAAD,QAAX;AAEE,gBAAG,iCAAQ,IAAG,KAAd;AAEE,oBAAO;AACP,mCAAgB,CAAC,kBAAc;;;;kBAAf;AAChB,kBAAsB,CAAlB,sBAAkB,GAAE,6BAAF,CAA0B,IAAI,CAAI,GAAxD;AAEE,sCAAiB,CAAC,kBAAc,8BAAyB,CAAC,sBAAD,CAAxC;AACjB;AACA,wBAAO,CAAP;;AAIA,oBAAK,6BAAwB,CAAC,iBAAD;AAC7B,oBAAY,CAAD,QAAX;AAEE,wBAAO;AACP,uCAAgB,CAAC,EAAG;;;;sBAAJ;AAChB,sBAAQ,CAAJ,GAAI,IAAI,iBAAW,kBAAf,CAAkC,IAAG,CAAI,GAAjD;AAEE,wBAAG,CAAI,GAAP;AACE,0BAAK;AAEL,8BAAK;AAEP,wBAAG,iBAAa,KAAG,CAAnB;AAEE,0CAAgB;AAChB,+CAAoB,CAAC,iBAAD;qBAHtB;AAKA,0CAAiB,CAAC,CAAD;AACjB,4CAAmB,CAAC,EAAG,KAAM,4EHx+KqJ,KGw+K/J;AACnB,0CAAiB,CAAC,EAAG,CAAJ;AACjB;AACA,4BAAO,CAAP;mBAhBF;iBAJF;;;AA2BF,oBAAO;AACP,mCAAgB,CAAC,kBAAc;;;;kBAAf;AAChB,kBAAsB,CAAlB,sBAAkB,GAAE,4BAAF,CAAyB,IAAI,CAAI,GAAvD;AAEE,oCAAe,CAAC,kBAAc,0BAAqB,CAAC,sBAAD,CAApC;AACf,wBAAO,CAAP;;AAIA,oBAAK,yBAAoB,CAAC,iBAAD;AACzB,oBAAY,CAAD,QAAX;AAEE,wBAAO;AACP,uCAAgB,CAAC,EAAG;;;;sBAAJ;AAChB,sBAAQ,CAAJ,GAAI,IAAI,iBAAW,kBAAf,CAAkC,IAAG,CAAI,GAAjD;AAEE,wBAAK;AACL,wBAAG,iBAAa,KAAG,CAAnB;AAEE,0CAAgB;AAChB,+CAAoB,CAAC,iBAAD;qBAHtB;AAKA,0CAAiB,CAAC,CAAD;AACjB,4CAAmB,CAAC,EAAG,KAAM,+EHzgLqJ,KGygL/J;AACnB,0CAAiB,CAAC,EAAG,CAAJ;AACjB;AACA,4BAAO,CAAP;mBAZF;iBAJF;;;WApDN;SAFF;OALF;AAoFA;AAhG6C;AA9DM;AAEnD,uBAAY,WAAC,CAAW,IAAX;AAFsC;AA2wCV;AAEzC;AAAI;AACJ;AAEA;AACA,UAAG,oBAAH,EACE,MADF;AAGA,UAAG,yBAAH;AAEE,oCAAwB;AACxB;OAHF;AAMA,UAAG,wBAAH;AAEE,mCAAuB;AACvB;OAHF;AAMA,UAAY,iBAAD,QAAX;AAEE,YAAG,CAAI,iBAAuE,IAAtD,iBAAW,cAAf,IAAiC,CAAI,iBAAW,UAAnB,IAAwC,UAAN,MAAQ,EAAF,CAAzF;AAEO;AACH,eADG,IACH,aAAQ,CADL,IACK,QAAR;AAEE,iBAAM;AACN,gCAAe,CAAC,kBAAc;;;;gBAAf;AACf,gBAAG,EAAH;AAEE,oBAAO;AACP,mCAAgB,CAAC,kBAAc;;;;kBAAf;AAChB,kBAA2C,CAAvC,GAAuC,IAA/B,iBAAW,oBAAf,IAAuC,iBAAW,kBAAf,CAAkC,IAAG,CAAI,GAApF;AAEE,oBAAK;AACL,oBAAM,CAAF,CAAE,KAAG,CAAC,CAAJ,CAAO,IAAI,iBAAY,iBAAc,CAAC,CAAD,CAA3C,EACE,sBAAiB,CAAC,kBAAc,CAAf,CADnB;eAHF;aAJF;WAJF;SAHJ;OAFF;AArByC;AAt4DK;AAG9C;AAAM;AACN;AACA;AACA;AAEA;AACA,UAAG,aAAH,EACE,MADF;AAGA,UAAG,oBAAH,EACE,MADF;AAGA,aAAQ;AACR,aAAQ;AAER,UAAG,UAAW,GAAE,CAAhB;AACE,YAAK,eAAS,GAAE,CAAF;AAEd,gBAAK;AAEP,WAAM,2BAAsB,CAAC,CAAD;AAE5B,UAAY,EAAD,QAAX;AAEE,YAAG,UAAW,GAAE,CAAhB;AAEE,eAAM,EAAE,QAAQ,GAAE,iBAAW,iBAAb;AAChB,qBAAM,CAAC,KAAM,IAAK,GAAE,EAAd;;AAIN,eAAM,EAAE,QAAQ,GAAE,iBAAW,iBAAb;AAChB,qBAAM,CAAC,KAAM,IAAK,GAAE,EAAd;;OAIR,MAAA,WAAM,CAAC,KAAM,CAAP;AAER,kBAAW,IAAX;AAzC8C;AA4nGC;;AAG/C;AACA;AAMA;AACA;AAKA;AAGuB;AAAd;AAOP,cAAM,EAAN,GAAY;AACZ,cAAM,EAAN,GAAY;AARL;AAAc;AAYvB,UAAW,CAAC,KAAD,SAA2B,IAAN,CAAR,OAAQ,IAAG,CAAH,CAAb,IAAgC,CAAR,OAAQ,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAAnD;AAEE,YAAK,aAAO,WAAC,OAAD;AACZ,mCAAuB;AACvB,YAAG,CAAI,CAAC,cAAR;AAEQ,qBAAD,CAAC;AACJ,cADI,IACJ;AAAU,uCAAuB;AACjC,oBAFI,IAEJ;AAAc,uCAAuB;AACrC,oBAHI,IAGJ;AAAU,uCAAuB;AACjC,oBAJI,IAIJ,gFAAU,MAAV;SANJ;AAUA,cAAO;AACP,sCAAyB,CAAC,MAAO,QAAS;;;;YAAjB;AACzB,YAAG,GAAH;AAOE,iCAAkB,CAAC,MAAO,QAAS;;;;cAAjB;AAGlB,cAAY,mBAAD,QAAX;AAME,gBAAY,sBAAD,QAAX,EACoB,SAAlB,KAAkB,oBADpB;AAGA,qCAAqB;AAErB,kCAAkB;WAXpB;AAcA,cAAY,wBAAD,QAAX;AACE,kCAAkB,wBAAmB,QAAC,YAAM,CAAC,KAAD,CAAN;AAEtC,sCAAkB,4BAAK,QAAC,YAAM,CAAC,KAAD,CAAN;AAE1B,oBAAK,yBAAoB,CAAC,MAAO,OAAR,CAAzB;AACA,cAAY,mBAAD,QAAX;AAEE,+BAAe;AACf,qCAAqB;AAUrB,+BAAc,aAAC,CAAa,KAAb;AAGf,+BAAc,UAAC,CAAU,KAAV;AACf,+BAAc,WAAC,CAAW,KAAX;AAMf,wBAAO,cAAI,CAAC,UAAK,CAAC,CAAC,KAAF,EAAU,UAAK,CAAC,CAAC,IAAF,EAAS,UAAK,CAAC,CAAC,MAAF,EAAW,UAAK,CAAC,CAAC,OAAF,CAAnD,CAAX;AACA,+BAAc,cAAC,CAAc,GAAd;AACf,+BAAc,cAAC,CAAc,cAAI,CAAC,GAAG,MAAO,GAAG,IAAK,GAAiD,UAAzB,CAArB,GAAG,OAAkB,GAAR,GAAG,IAAL,GAAY,mBAAc,UAAC,EAAjB,CAAyB,GAAI,CAAJ,CAAjD,CAAwD,GAAG,OAAQ,GAAG,IAA4D,GAAN,UAAzB,CAArB,GAAG,OAAkB,GAAR,GAAG,IAAL,GAAY,mBAAc,UAAC,EAAjB,CAAyB,GAAI,CAAJ,CAAjD,GAAyD,mBAAc,UAAC,EAAtK,CAAlB;AAEf,+BAAc,WAAC,CAAW,IAAX;AAEf,gBAAiB,CAAb,CAAC,YAAY,KAAE,6EAAF,CAAuC,IAAnB,CAAI,CAAC,cAAT,IAA8C,gCAAH,eAAf,mBAAe,CAA5E;AAEkB,qBAAf,oBAAkB,gCAAH,CAAa,OAAM,OAAO,CAAC,CAAC,aAAF;AAE1B,qBAAf,oBAAkB,gCAAH,CAAa,SAAC,CAAS,oDAAT;aAJhC;AAQA,uCAAsB,CAAC,oBAAgB,MAAO,CAAxB;AAKtB;AAIE,kBAAK;AACL,gCAAa,CAAC,MAAO,QAAS,yEAAa;;;;kBAA9B;AACb,kBAAsB,gCAAH,eAAf,mBAAe,CAAnB,EACkB,OAAf,oBAAkB,gCAAH,CAAa,aAAC,CAA6B,OAAf,oBAAkB,gCAAH,CAAa,OAAM,QAAQ,CAAC,CAAD,CAAxD,CADhC;AAeA,kBAAqB,4BAAH,eAAf,mBAAe,CAAlB,EACkB,OAAf,oBAAkB,4BAAH,CAAS,QAAC,CAAQ,CAAR,CAD5B;AAGA,kBAAqB,4BAAH,eAAf,mBAAe,CAAlB,EACkB,OAAf,oBAAkB,4BAAH,CAAS,QAAC,CAAQ,CAAR,CAD5B;AAxBF;;AAiCA,gBAAG,mBAAc,WAAjB,EACE,mBAAc,WADhB;AAGA,gBAAqB,4BAAH,eAAf,mBAAe,CAAlB,EACkB,OAAf,oBAAkB,4BAAH,CAAS,YAAC,CAAmC,OAAf,oBAAkB,4BAAH,CAAS,QAAC,EAA3B,OAAlB,CAD5B;AAGA,gBAAqB,4BAAH,eAAf,mBAAe,CAAlB;AAEkB,qBAAf,oBAAkB,4BAAH,CAAS,aAAC,CAAa,CAAb;AAC1B,kBAAmB,OAAf,oBAAkB,4BAAH,CAAS,OAAM,SAAC,EAAM,GAAE,CAA3C;AACkB,uBAAf,oBAAkB,4BAAH,CAAS,eAAC,SAAiB,cAAc,CAAiB,OAAf,oBAAkB,4BAAH,CAAS,OAAM,SAAC,EAAM,GAAE,CAAF,CAA4B,OAAf,oBAAkB,4BAAH,CAAS,OAAM,KAAiB,OAAf,oBAAkB,4BAAH,CAAS,OAAM,SAAC,EAAM,GAAE,CAAzC,CAAhC,OAAlD,CAA/B;AAEA,oBAAV,OAAf,oBAAkB,4BAAH,CAAS,eAAC,SAAiB,cAAc,CAAC,EAAG,CAAJ,CAA/B;aAN9B;AASA,wCAAwB;AACxB;WA3FF;AA8FA,uCAAwB,CAAC,MAAO,QAAS,oBAAgB,0CAAjC;SA5H1B;OAhBF;AA/B+C;AA3/IK;AAUpD,UAAG,CAAY,CAAC,KAAD,SAAiC,IAAtB,CAAY,CAAC,OAAD,SAAf,IAA4B,CAAY,CAAC,cAAD,SAA/D,EACE,MADF;AAoDA,mCAAwB,CAAC,MAAO,OAAO,SAAC,GAAO,mBAAvB;AA9D4B;AAijHX;AAEzC,+BAAqB;AACrB;AAHyC;AAj/JM;;AAq2HC;AAAnB;AAG7B;AAAM;AAAM;AAAM;AAElB,eAAuC,mFAAC,KAAD;AAEvC,aAAQ;AACR,aAAQ;AACR,aAAQ;AACR,aAAQ;AACR,wBAAa,CAAC,MAAO;;;;WAAM;;;;WAAM;;;;WAAM;;;;UAA1B;AAEb,eAAU,MAAc,GAAL,IAAF,GAAS,IAAF;AAbK;AAAmB;AAwRL;;AALC;;AA35BW;;AALA;;AA+rCA;;AA98CD;AAAzB;AAE7B,eAAU;AAFmB;AAAyB;AAKA;AAAzB;AAE7B,eAAU;AAFmB;AAAyB;AAhkDN;AAAnB;AAE7B,eAAU;AAFmB;AAAmB;AA0vFJ;AAAf;AAE7B,eAAU,qBAAe;AAFI;AAAe;AA3lEJ;AAAX;AAE7B,eAAiC,CAAtB,kBAAa,SAAS,KAAE,IAAF,CAAQ,IAAI,eAAJ;AAFZ;AAAW;AAslEC;AAAZ;AAE7B,qBAAU,qBAAV;AAF6B;AAAY;AArsCU;AAAtB;AAE7B,eAAU;AAFmB;AAAsB;AA+xCP;AAAf;AAE7B,eAAU;AAFmB;AAAe;AAx0JJ;AAAX;AAE7B,eAAU;AAFmB;AAAW;AA2rFS;AAApB;AAE7B,eAAU,qBAAe,YAAY,KAAE,+CAAF;AAFR;AAAoB;AA0yDG;AAAvB;AAE7B;AACA,eAAU,uCAAa,QAAC;AACxB,UAAY,gBAAD,QAAX;AAEE,cAAM,OAAO,CAAC,gBAAW,YAAZ;AACD,iBAAZ,KAAY;AACZ,2BAAe;OAJjB;AAJ6B;AAAuB;AAp1ID;AAAtB;AAE7B;AACA;AAAI;AAEJ,eAAU,uBAAiB,SAAS,IAAI,uBAAiB,YAArB;AAEpC,WAAM;AACN,YAAO;AACP,eAAS,QAAmB,OAAd,aAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AAEF,aAAM,EAAG,GAAE,iBAAY,CAAC,CAAD,CAAd;AACT,cAAO,GAAI,GAAE,oBAAe,CAAC,CAAD,CAAjB;;AAGb,UAAG,EAAG,IAAG,GAAT,EACE,SAAU,KADZ;AAf6B;AAAsB;AA0oBX;AAAX;AAE7B;AAEA,YAAO;AACP,iBAAU,CAAV;AACA,aAAM,qCAAW,CAAC,OAAO,QAAC,OAAD,EAAyC,CAAC,IAAK,IAAN,CAAjD,CAAjB;AAEM,WAAJ,IAAG;AAlvD6C,cAmvDhD,KAnvDgD,MAmvDhD,SAAG,CAAH;;AAEF,eAAU,eAAI,CAAC,QAAS,IAAqB,CAAT,OAAD,OAAU,GAAE,GAAF,CAAM,GAAE,CAAvC;AAXe;AAAW;AAcW;AAAtB;AAE7B;AAEA,eAAU,CAAC;AACX,eAAS,QAAmB,OAAd,aAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AAEF,YAA0B,CAAtB,aAAO,WAAC,CAAD,CAAG,YAAY,KAAG,yEAAH,CAAa,IAAG,aAAO,WAAC,CAAD,CAAG,cAApD;AAEE,mBAAU;AACV;SAHF;;AAP2B;AAAsB;AA2DD;AAArB;AAE7B;AAEA,eAAU,CAAC;AACX,eAAuB,KAAd,aAAO,SAAC,EAAM,GAAE,CAAF,EAAW,aAAlC;AAAI;AAEF,YAA0B,CAAtB,aAAO,WAAC,CAAD,CAAG,YAAY,KAAG,yEAAH,CAAa,IAAG,aAAO,WAAC,CAAD,CAAG,cAApD;AAEE,mBAAU;AACV;SAHF;;AAP2B;AAAqB;AAlHI;AAAzB;AAE7B;AAEA,eAAU,CAAC;AACX,UAAY,CAAR,OAAQ,GAAE,CAAF,CAAK,IAAa,CAAR,OAAQ,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAA9B;AAEE,iBAAiB,KAAR,OAAQ,GAAE,CAAF,EAAW,aAA5B;AAAI;AAEF,cAA0B,CAAtB,aAAO,WAAC,CAAD,CAAG,YAAY,KAAG,yEAAH,CAAa,IAAG,aAAO,WAAC,CAAD,CAAG,cAApD;AAEE,qBAAU;AACV;WAHF;;OAJJ;AAL6B;AAAyB;AAkBJ;AAArB;AAE7B;AAEA,eAAU,CAAC;AACX,UAAY,CAAR,OAAQ,IAAG,CAAH,CAAM,IAAa,CAAR,OAAQ,GAAgB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAhB,CAA/B;AAEE,iBAAiB,KAAR,OAAQ,GAAE,CAAF,EAAqB,OAAd,aAAO,SAAC,EAAM,GAAE,CAAF,kBAAtC;AAAI;AAEF,cAA0B,CAAtB,aAAO,WAAC,CAAD,CAAG,YAAY,KAAG,yEAAH,CAAa,IAAG,aAAO,WAAC,CAAD,CAAG,cAApD;AAEE,qBAAU;AACV;WAHF;;OAJJ;AAL6B;AAAqB;AA60HD;AAApB;AAG7B;AAAI;AAEJ,qBAAU,+BAAK,CAAC,EAAG,EAAG,EAAG,CAAV,CAAf;AACA,UAAG,CAAY,CAAC,KAAD,SAAf,EACE,aADF;AAGA,UAAY,CAAR,OAAQ,IAAG,CAAH,CAAM,IAAa,CAAR,OAAQ,IAA2B,CAAlB,WAAC,KAAK,WAAN,CAAkB,GAAE,CAAF,CAA3B,CAA/B;AAEE,kBAAK,KAAK,WAAU,CAAC,OAAD,CAApB;AAIA,mBAAM,yBAAN;AACA,SAAC,IAAD,GAAS,QAAG,CAAC,CAAC,KAAM,EAAE,IAAV;AACZ,SAAC,OAAD,GAAY,QAAG,CAAC,CAAC,QAAS,EAAE,OAAb;AACf,SAAC,KAAD,GAAU,QAAG,CAAC,CAAC,MAAO,EAAE,KAAX;AACb,SAAC,MAAD,GAAW,QAAG,CAAC,CAAC,OAAQ,EAAE,MAAZ;AACd,uBAAU,+BAAK,CAAC,cAAK,CAAC,CAAC,KAAF,EAAU,cAAK,CAAC,CAAC,IAAF,EAAS,UAAK,CAAC,CAAC,MAAF,EAAW,UAAK,CAAC,CAAC,OAAF,CAAnD,CAAf;AAEA,YAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,MAAO,QAAS,oBAAgB,MAAvC,CADxB;OAbF;AAT6B;AAAoB;AAoOA;AAApB;AAG7B;AAEA,UAAY,KAAD,QAAX;AACE,iBAAU,uBAAkB,CAAC,KAAD;AAE5B,qBAAU;AAEZ,WAAM,4BAAuB,CAAC,MAAD;AAE7B,aAAc,CAAC,MAAD,SAAS,IAAI,CAAI,EAA/B;AAEE,iBAAU,uBAAkB,CAAC,MAAD;AAC5B,aAAM,4BAAuB,CAAC,MAAD;;AAfF;AAAoB;AApGI;AAAxB;AAE7B;AAEA,UAAY,KAAD,QAAX;AACE,iBAAU,2BAAsB,CAAC,KAAD;AAEhC,qBAAU;AAEZ,WAAM,4BAAuB,CAAC,MAAD;AAE7B,aAAc,CAAC,MAAD,SAAS,IAAI,CAAI,EAA/B;AAEE,iBAAU,2BAAsB,CAAC,MAAD;AAChC,aAAM,4BAAuB,CAAC,MAAD;;AAdF;AAAwB;AAtDd;AAAV;AAE7B,eAAU,4BAAgB,CAAC,EAAS,EAAS,EAAS,CAA5B;AAFG;AAAU;AA51HW;AAArB;AAE7B;AACA;AAEA,eAAU;AACV,UAAG,CAAI,uBAAiB,wBAAxB,EACE,aADF;AAGA,gBAAK,mBAAL;AACA,eAAS,QAAmB,OAAd,aAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AAEF,YAAsB,CAAnB,cAAe,CAAC,CAAD,CAAI,GAAE,iBAAY,CAAC,CAAD,CAAd,CAAkB,IAAU,CAAP,CAAC,KAAM,GAAE,kCAAF,CAAlD;AAEE,mBAAU;AACV;SAHF;;AAZ2B;AAAqB;AAoDD;AAApB;AAE7B;AACA;AAEA,eAAU,aAAO,SAAC,EAAM,GAAE,CAAF;AAExB,UAAG,CAAI,uBAAiB,wBAAxB,EACE,aADF;AAGA,gBAAK,mBAAL;AACA,eAAS,aAAc,aAAvB;AAAI;AAEF,YAAG,cAAe,CAAC,CAAD,CAAI,IAAW,CAAR,CAAC,MAAO,GAAE,kCAAF,CAAjC;AAEE,mBAAU;AACV;SAHF;;AAb2B;AAAoB;AAzsBP;AAAb;AAE7B;AACA;AAAI;AACJ;AAAG;AACH;AACA;AACA;AACA;AAAI;AACJ;AACA;AACA;AACA;AAAO;AAAS;AAChB;AAAM;AACN;AACA;AAAI;AACJ;AACA;AAAI;AACJ;AACA;AAAM;AAAM;AAAM;AAClB;AAAI;AACJ;AACA;AACA;AACA;AACA;AACA;AAAM;AAAM;AAAM;AAAM;AAAM;AAAM;AACpC;AACA;AACA;AAAI;AAAK;AACT;AAAM;AAAM;AAAM;AAClB;AAAI;AAAI;AAAI;AAEZ,wBAAa,CAAC,KAAD;AAEb,aAAQ;AACR,aAAQ;AACR,aAAQ;AACR,aAAQ;AACR,wBAAa,CAAC,MAAO;;;;WAAM;;;;WAAM;;;;WAAM;;;;UAA1B;AAEb,WAAM;AACN,WAAM;AACN,WAAM;AACN,WAAM;AACN,yBAAc,CAAC;;;;WAAI;;;;WAAI;;;;WAAI;;;;UAAb;AAEd,WAAM;AACN,iBAAM,mBAAN;AACA,UAAK;AACL,WAAM,8BAA6B,GAAH,EAAF,GAAO,EAAF;AACnC,aAAQ,qBAAe,aAAa,GAAE,CAAC,OAAH;AAEpC,UAAG,qBAAe,cAAc,KAAE,4BAAlC;AAEE,YAAK;AACL,aAAM,EAAG,GAAE,IAAF;OAGT,UAAK;AAEP,aAAQ;AACR,UAAK;AACL,WAAM;AACN,UAAK,CAAE,GAAE,EAAF;AACP,UAAK,CAAE,GAAE,EAAF;AAGP,iBAAM,+BAAK,CAAC,cAAG,CAAC,CAAD,EAAK,cAAG,CAAC,CAAD,EAAK,cAAG,CAAC,CAAE,GAAE,EAAL,EAAU,cAAG,CAAC,CAAE,GAAE,EAAL,CAAjC,CAAX;AAEA,UAAG,0BAAmB,SAAS,IAAG,uBAAiB,SAAnD;AAEE,YAAG,MAAO,KAAE,CAAZ;AACE,qBAAM,+BAAK,CAAC,EAAE,KAAM,GAAE,GAAF,CAAO,EAAE,IAAK,GAAE,GAAF,CAAO,EAAE,MAAO,GAAE,GAAF,CAAO,EAAE,OAAQ,GAAE,GAA1D,CAAX;AACG,kBAAG,MAAO,KAAW,CAAT,cAAS,GAAE,CAAF,CAArB;AACH,qBAAM,+BAAK,CAAC,EAAE,KAAM,GAAE,GAAF,CAAO,EAAE,IAAK,GAAE,GAAF,CAAO,EAAE,MAAO,GAAE,GAAF,CAAO,EAAE,OAAQ,GAAE,GAA1D,CAAX;AAEA,yBAAM,+BAAK,CAAC,EAAE,KAAM,GAAE,GAAF,CAAO,EAAE,IAAK,GAAE,GAAF,CAAO,EAAE,MAAO,GAAE,GAAF,CAAO,EAAE,OAAQ,GAAE,GAA1D,CAAX;;AAIF,YAAG,MAAO,KAAE,CAAZ;AACE,qBAAM,+BAAK,CAAC,EAAE,KAAM,GAAE,GAAF,CAAO,EAAE,IAAK,GAAE,GAAF,CAAO,EAAE,MAAO,GAAE,GAAF,CAAO,EAAE,OAAQ,GAAE,GAA1D,CAAX;AACG,kBAAG,MAAO,KAAW,CAAT,cAAS,GAAE,CAAF,CAArB;AACH,qBAAM,+BAAK,CAAC,EAAE,KAAM,GAAE,GAAF,CAAO,EAAE,IAAK,GAAE,GAAF,CAAO,EAAE,MAAO,GAAE,GAAF,CAAO,EAAE,OAAQ,GAAE,GAA1D,CAAX;AAEA,yBAAM,+BAAK,CAAC,EAAE,KAAM,GAAE,GAAF,CAAO,EAAE,IAAK,GAAE,GAAF,CAAO,EAAE,MAAO,GAAE,GAAF,CAAO,EAAE,OAAQ,GAAE,GAA1D,CAAX;;AA0BJ,4BAAiB,CAAC,OAAQ,MAAO,EAAhB;AAEjB,UAAG,CAAC,YAAJ;AACE,aAAM,CAAC;;AAGP,iCAAoB,CAAC,EAAG,IAAJ;AAEpB,YAAG,qBAAe,YAAY,KAAE,+CAAhC;AAEE,eAAM;AACN,gBAAO;AACP,gBAAO;AACP,+BAAgB,CAAC,EAAG;;;;cAAJ;AAEhB,cAAG,GAAH,EACE,MAAO,QAAG,CAAC,GAAI,GAAL,CADZ;AAGA,mBAAS,SAAM,4BAAf;AAAI;AAEF,mBAAQ,iBAAY,CAAC,CAAD;AACpB,gBAAS,CAAL,IAAK,GAAE,CAAF,CAAK,IAAG,GAAjB;AAEE,qBAAQ;AACR,gCAAa,CAAC,EAAG,EAAG,yEAAa;;;;kBAApB;AACb,qBAAQ;AACR,iCAAc,CAAC,EAAG,EAAG,yEAAa;;;;kBAApB;AACd,qBAAQ;AACR,yCAAsB,CAAC,EAAG,EAAG;;;;kBAAP;AAEtB,kBAAG,iBAAH;AAEE,uBAAQ;AACR,uBAAQ;AACR,uBAAQ;eAJV;AAOA,mBAAM,cAAe,CAAC,CAAD;AACrB,kBAAG,CAAE,KAAE,EAAP,EACE,KAAM,EAAG,GAAE,EAAE,KADf;AAGA,kBAAG,GAAH;AACE,qBAAM,EAAG,GAAE,EAAF;AAET,yBAAM,EAAG,GAAE,iBAAY,CAAC,CAAD,CAAd;AAEX,kBAAG,CAAE,KAAE,EAAP,EACE,KAAM,EAAG,GAAE,EAAE,KADf;AAGA,kBAAiC,CAA7B,qBAAe,cAAc,KAAE,CAAF,CAAK,IAAO,CAAF,CAAE,GAAE,EAAF,CAA7C,EACE,KAAM,EAAG,GAAE,IADb;AAGA,mBAAM,EAAsB,GAAjB,IAAF,GAAS,IAAF,GAAS,EAAF,GAAO,EAAF;AAE5B,kBAAG,CAAE,KAAE,qBAAe,cAAtB;AAEE,uBAAQ,qBAAe,aAAa,GAAE,oBAAe,CAAC,CAAD,CAAjB;AACpC,uBAAQ,qBAAe,cAAc,GAAE,oBAAe,CAAC,CAAD,CAAjB;AACrC,qBAAM,EAAG,GAAE,IAAF;AACT,oBAAG,IAAK,GAAE,IAAV,EACE,OAAQ,IADV;eALF;AASA,oBAAO;AACP,qCAAkB,CAAC,EAAG,EAAG;;;;kBAAP;AAClB,kBAAG,GAAI,KAAG,sEAAV;AAME,wBAAS,oBAAe,CAAC,oBAAD;AAOxB,qBAAM,EAAG,GAAE,QAAG,CAAC,EAAG,KAAwB,GAAE,CAA9B,CAAL;AACT,oBAAG,KAAM,GAAE,IAAX,EACE,OAAQ,KADV;eAdF;AAkBA,qBAAQ;AACR,gCAAa,CAAC,EAAG,EAAG,MAAO;;;;kBAAd;AACb,kBAAG,CAAY,CAAC,IAAD,SAAO,IAAI,sCAAY,gBpB1/EY,KAA4B,CAAC,EoB0/E/E,EACE,kBAAa,CAAC,EAAG,EAAG,KAAM;;;;kBAAb,CADf;AAGA,kBAAW,CAAC,IAAD,SAA4B,IAAL,CAAX,IAAI,SAAC,EAAM,GAAE,CAAF,CAAhB,IAAsC,CAAZ,IAAI,UAAC,EAAO,GAAE,CAAF,CAAxD;AAEE,uBAAQ,IAAI,SAAC,EAAM,GAAE,oBAAe,CAAC,CAAD,CAAjB;AACnB,uBAAQ,IAAI,UAAC,EAAO,GAAE,oBAAe,CAAC,CAAD,CAAjB;AAEpB,sCAAiB,CAAC,EAAG,EAAG,sCAAY,gBpBlgFY,KAA4B,CAAC,GoBkgFxB,KAAM;;;;qBAAM;;;;oBAAhD;AAEjB,qBAAM,EAAG,GAAE,IAAF;AACT,oBAAG,IAAK,GAAE,IAAV,EACE,OAAQ,IADV;eARF;AAYA,mBAAM;AACN,oBAAO;AACP,kBAAM,CAAF,CAAE,IAAG,CAAH,CAAM,IAAO,CAAF,CAAE,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAAnB;AAEE,qBAAM,aAAO,WAAC,CAAD,CAAG;AAChB,sBAAO,aAAO,WAAC,CAAD,CAAG;eAHnB;AAMA,wCAAqB,CAAC,EAAG,EAAG;;;;kBAAP;AACrB,6CAA0B,CAAC,EAAG,EAAG;;;;kBAAP;AAE1B,mBAAM;AACN,qCAAkB,CAAC,EAAG,EAAG;;;;kBAAP;AAElB,oBAAO;AACP,0CAAuB,CAAC,EAAG,EAAG;;;;kBAAP;AAEvB,4BAAS,+BAAK,CAAC,GAAI,EAAG,EAAG,GAAE,EAAF,CAAM,KAAjB,CAAd;AACA,qDAAa,CAAC,MAAO,oBAAe,CAAC,CAAC,CAAF,EAAM,CAA7B;AAEb,8BAAW,+BAAK,CAAC,GAAI,EAAG,EAAG,GAAE,GAAF,CAAO,KAAlB,CAAhB;AACA,qDAAa,CAAC,QAAS,oBAAe,CAAC,CAAC,CAAF,EAAM,CAA/B;AAEb,mBAAM;AACN,kBAAM,CAAF,CAAE,IAAG,CAAH,CAAM,IAAO,CAAF,CAAE,IAAe,CAAZ,iBAAY,GAAE,CAAF,CAAf,CAAnB,EACE,KAAM,aAAO,WAAC,CAAD,CADf;AAGA,kBAAW,CAAC,EAAD,SAAqC,IAA5B,CAAI,EAAE,sBAAV,IAAoC,CAAI,GAAxD;AACE,yBAAS,MAAK,OAAO,CAAC,EAAE,MAAH;;AAGrB,oBAAG,GAAH;AACE,2BAAS,MAAK,OAAO,CAAC,qBAAe,cAAhB;AAErB,sBAAA,SAAS,MAAK,OAAO,CAAC,qBAAe,MAAhB;;AAGzB,kBAAG,IAAH;AAEE,8BAAS,SAAS,cAAc,CAAC,KAAM,+CAAO,Gbx7EoF,Iaw7ElG,CAAhC;AACA,qBAAK,OAAL,GAAgB,KAAK,OAAQ,GAAE,oBAAe,CAAC,CAAD,CAAjB;AAE7B,qBAAO,KAAK,OAAQ,GAAE,KAAK,IAAP;eAGpB,WAAM;AAER,kBAAG,IAAK,KAAG,EAAX;AAEE,oBAAW,CAAC,EAAD,SAAK,IAAI,CAAI,EAAE,sBAA1B;AACE,2BAAS,MAAK,OAAO,CAAC,EAAE,WAAH;AAErB,sBAAA,SAAS,MAAK,OAAO,CAAC,qBAAe,WAAhB;AAEvB,+BAAU,SAAS,cAAc,CAAC,KAAM,iDAAS,Ibv8EiF,Iau8EjG,CAAjC;AACA,sBAAM,OAAN,GAAiB,MAAM,OAAQ,GAAE,oBAAe,CAAC,CAAD,CAAjB;AAC/B,qBAAM,MAAM,OAAQ,GAAE,MAAM,IAAR;eAGpB,WAAM;AAER,wCAAqB,CAAC,EAAG,QAAG,CAAC,IAAK,EAAN,CAAP;AACrB,mBAAM,EAAG,GAAE,CAAC,aAAH;AAET,kCAAe,CAAC,EAAG,EAAG;;;;kBAAP;AAEf,kBAAG,EAAG,GAAE,IAAR,EACE,OAAQ,EADV;aAjJF;;AAsJF,eAAM,QAAG,CAAC,wBAAmB,CAAC,CAAD,EAAK,IAAmB,GAAZ,IAAF,GAAS,IAAF,GAAS,oBAAe,CAAC,CAAD,CAA7D;AACT,+BAAgB,CAAC,EAAG,cAAG,CAAC,EAAD,CAAP;AAChB,iCAAkC,CAAf,oBAAe,GAAE,wBAAmB,CAAC,CAAD,CAArB,CAA0B,GAAE,CAAC,QAAH;;AAI5D,eAAM,wBAAmB,CAAC,CAAD;AACzB,+BAAgB,CAAC,EAAG,EAAJ;;;AAIpB,kBAAW,aAAQ,GAAE,cAAG,CAAC,EAAD,CAAxB;AACA,QAAE,OAAF,GAAa,EAAE,OAAQ,GAAE,cAAG,CAAC,EAAD,CAAL;AACvB,QAAE,OAAF,GAAa,EAAE,OAAQ,GAAE,oBAAe,CAAC,KAAD,CAAjB;AAEvB,kBAAO,EAAP;AACA,SAAG,KAAH,GAAY,GAAG,KAAM,GAAE,IAAF;AACrB,SAAG,IAAH,GAAW,GAAG,IAAK,GAAE,IAAF;AACnB,SAAG,MAAH,GAAa,GAAG,MAAO,GAAE,IAAF;AACvB,SAAG,OAAH,GAAc,GAAG,OAAQ,GAAE,IAAF;AAEf,UAAD,sBAAC,sCAAM,CAAP;AACC,WAAD,sBAAC,uCAAO,CAAR;AACC,UAAD,sBAAC,sCAAM,CAAP;AACC,UAAD,sBAAC,sCAAM,CAAP;AACC,UAAD,sBAAC,sCAAM,CAAP;AACC,UAAD,sBAAC,sCAAM,CAAP;AACC,UAAD,sBAAC,sCAAM,CAAP;AAET,WAAM;AACN,YAAO;AACP,YAAO;AACP,2BAAgB,CAAC,EAAG;;;;UAAJ;AAChB,UAAG,GAAH,EACE,MAAO,QAAG,CAAC,GAAI,GAAL,CADZ;AAGA,eAAS,UAAM,gCAAf;AAAI;AAEF,eAAQ,mBAAc,CAAC,CAAD;AACtB,aAAM,sBAAiB,CAAC,CAAD;AACvB,YAAG,CAAE,KAAE,EAAP,EACE,KAAM,EAAG,GAAE,GAAG,KADhB;AAGA,YAAG,GAAH;AACE,eAAM,EAAG,GAAE,EAAF;AAET,mBAAM,EAAG,GAAE,IAAF;AAEX,YAAG,CAAE,KAAE,EAAP,EACE,KAAM,EAAG,GAAE,GAAG,KADhB;AAGA,YAAiC,CAA7B,qBAAe,cAAc,KAAE,CAAF,CAAK,IAAO,CAAF,CAAE,GAAE,EAAF,CAA7C,EACE,KAAM,EAAG,GAAE,IADb;AAGA,YAAG,GAAH,EACE,KAAM,EAAG,GAAE,IADb;AAGA,aAAM,EAAQ,GAAH,EAAF,GAAO,IAAF;AAEd,eAAQ;AACR,eAAQ;AACR,YAAG,CAAE,KAAE,qBAAe,cAAtB;AAEE,iBAAQ,qBAAe,aAAa,GAAE,oBAAe,CAAC,CAAD,CAAjB;AACpC,iBAAQ,qBAAe,cAAc,GAAE,oBAAe,CAAC,CAAD,CAAjB;SAHvC;AAMU,YAAD,sBAAC,sCAAY,WAAC,IAAD,CAAO,GAAE,CAAtB;AACT,YAAI,CAAO,WAAC,IAAD,CAAO,GAAE,CAAhB,UAAsB,+BAAK,CAAC,cAAG,CAAC,EAAG,GAAE,oBAAe,CAAC,CAAD,CAArB,EAA2B,cAAG,CAAC,GAAG,IAA2C,GAAJ,CAAR,CAAtB,GAAG,OAAmB,GAAT,GAAG,IAAL,GAAa,IAAF,CAAQ,GAAE,CAAF,CAAlC,GAAwC,oBAAe,CAAC,CAAD,CAAhE,EAAsE,cAAG,CAAI,CAAH,EAAG,GAAE,IAAF,CAAO,GAAE,oBAAe,CAAC,CAAD,CAA5B,EACxI,cAAG,CAA+C,CAA9C,GAAG,IAA2C,GAAJ,CAAR,CAAtB,GAAG,OAAmB,GAAT,GAAG,IAAL,GAAa,IAAF,CAAQ,GAAE,CAAF,CAAlC,GAAwC,IAAF,CAAO,GAAE,oBAAe,CAAC,CAAD,CAAvE,CAD0B,CAA3B;AAGJ,aAAM,EAAG,GAAE,IAAF;AAET,cAAO;AACP,gBAAS;AACT,+BAAkB,CAAC,EAAG,EAAG;;;;YAAP;AAClB,YAAG,GAAI,KAAG,sEAAV;AAME,kBAAS,oBAAe,CAAC,oBAAD;SAN1B;AAcU,YAAD,sBAAC,sCAAY,WAAC,IAAD,CAAO,GAAE,CAAtB;AACT,YAAI,CAAO,WAAC,IAAD,CAAO,GAAE,CAAhB,UAAsB,+BAAK,CAAC,cAAG,CAAC,EAAG,GAAE,oBAAe,CAAC,CAAD,CAArB,EAA2B,cAAG,CAAC,GAAG,IAA4C,GAAJ,CAAT,CAAtB,GAAG,OAAmB,GAAT,GAAG,IAAL,GAAa,KAAF,CAAS,GAAE,CAAF,CAAnC,GAAyC,oBAAe,CAAC,CAAD,CAAjE,EAAuE,cAAG,CAAC,EAAG,GAAE,KAAN,EAAc,cAAG,CAAgD,CAA/C,GAAG,IAA4C,GAAJ,CAAT,CAAtB,GAAG,OAAmB,GAAT,GAAG,IAAL,GAAa,KAAF,CAAS,GAAE,CAAF,CAAnC,GAAyC,KAAF,CAAQ,GAAE,oBAAe,CAAC,CAAD,CAAzE,CAA7H,CAA3B;AAEJ,aAAM,EAAG,GAAE,QAAG,CAAC,EAAG,KAAwB,GAAE,CAA9B,CAAL;AAET,eAAQ;AACR,0BAAa,CAAC,EAAG,EAAG,MAAO;;;;YAAd;AACb,YAAG,CAAY,CAAC,IAAD,SAAO,IAAI,sCAAY,gBpBjrFkB,KAA4B,CAAC,EoBirFrF,EACE,kBAAa,CAAC,EAAG,EAAG,KAAM;;;;YAAb,CADf;AAGA,eAAQ;AACR,eAAQ;AACR,YAAW,CAAC,IAAD,SAA4B,IAAL,CAAX,IAAI,SAAC,EAAM,GAAE,CAAF,CAAhB,IAAsC,CAAZ,IAAI,UAAC,EAAO,GAAE,CAAF,CAAxD;AAEE,iBAAQ,IAAI,SAAC,EAAM,GAAE,oBAAe,CAAC,CAAD,CAAjB;AACnB,iBAAQ,IAAI,UAAC,EAAO,GAAE,oBAAe,CAAC,CAAD,CAAjB;AAEpB,gCAAiB,CAAC,EAAG,EAAG,sCAAY,gBpB3rFkB,KAA4B,CAAC,GoB2rF9B,KAAM;;;;eAAM;;;;cAAhD;SALnB;AAQU,YAAD,sBAAC,sCAAY,WAAC,IAAD,CAAO,GAAE,CAAtB;AACT,YAAI,CAAO,WAAC,IAAD,CAAO,GAAE,CAAhB,UAAsB,+BAAK,CAAC,cAAG,CAAC,EAAG,GAAE,oBAAe,CAAC,CAAD,CAArB,EAA2B,cAAG,CAAC,GAAG,IAA2C,GAAJ,CAAR,CAAtB,GAAG,OAAmB,GAAT,GAAG,IAAL,GAAa,IAAF,CAAQ,GAAE,CAAF,CAAlC,GAAwC,oBAAe,CAAC,CAAD,CAAhE,EAAsE,cAAG,CAAI,CAAH,EAAG,GAAE,IAAF,CAAO,GAAE,oBAAe,CAAC,CAAD,CAA5B,EAAkC,cAAG,CAA+C,CAA9C,GAAG,IAA2C,GAAJ,CAAR,CAAtB,GAAG,OAAmB,GAAT,GAAG,IAAL,GAAa,IAAF,CAAQ,GAAE,CAAF,CAAlC,GAAwC,IAAF,CAAO,GAAE,oBAAe,CAAC,CAAD,CAAvE,CAAhJ,CAA3B;AACJ,aAAM,EAAG,GAAE,IAAF;AAET,aAAM;AACN,+BAAkB,CAAC,EAAG,EAAG;;;;YAAP;AAElB,cAAO;AACP,oCAAuB,CAAC,EAAG,EAAG;;;;YAAP;AAEvB,YAAuB,CAAP,CAAX,CAAC,SAAM,CAAC,CAAD,CAAI,KAAG,EAAH,CAAO,IAAkB,CAAd,CAAC,aAAa,GAAE,CAAF,CAAlB,CAA8C,IAAP,CAAV,CAAC,QAAK,CAAC,CAAD,CAAI,KAAG,EAAH,CAAf,IAA0B,CAAC,iBAAc,CAAC,CAAD,CAAxF;AAEE,oBAAK,+BAAK,CAAC,GAAI,GAAG,KAAM,EAAG,GAAE,GAAF,CAAO,GAAG,IAAK,GAAE,CAAC,aAAnC,CAAV;AACU,cAAD,sBAAC,sCAAY,WAAC,IAAD,CAAO,GAAE,CAAtB;AACT,cAAI,CAAO,WAAC,IAAD,CAAO,GAAE,CAAhB,UAAsB,CAAtB;AAEM,eAAD,sBAAC,uCAAa,WAAC,KAAD,CAAQ,GAAE,CAAxB;AACT,eAAK,CAAO,WAAC,KAAD,CAAQ,GAAE,CAAjB,UAAuB,+BAAK,CAAC,CAAC,OAAQ,GAAG,KAAM,CAAC,MAAO,GAAE,GAAF,CAAO,GAAG,IAAK,GAAE,GAA5C,CAA5B;AAEL,oBAAK,+BAAK,CAAC,GAAI,CAAC,QAAS,EAAG,GAAE,EAAF,CAAM,GAAG,OAA3B,CAAV;AACU,cAAD,sBAAC,sCAAY,WAAC,IAAD,CAAO,GAAE,CAAtB;AACT,cAAI,CAAO,WAAC,IAAD,CAAO,GAAE,CAAhB,UAAsB,CAAtB;;AAIJ,oBAAK,+BAAK,CAAC,GAAI,GAAG,IAAK,GAAkD,CAAxB,CAAtB,GAAG,OAAmB,GAAT,GAAG,IAAL,GAAwB,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAb,CAAwB,GAAE,CAAF,CAAlD,CAAuD,EAAG,GAAE,GAAF,CAAO,GAAG,IAA2D,GAAJ,CAAxB,CAAtB,GAAG,OAAmB,GAAT,GAAG,IAAL,GAAwB,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAb,CAAwB,GAAE,CAAF,CAAlD,GAAmE,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAzJ,CAAV;AACU,cAAD,sBAAC,sCAAY,WAAC,IAAD,CAAO,GAAE,CAAtB;AACT,cAAI,CAAO,WAAC,IAAD,CAAO,GAAE,CAAhB,UAAsB,CAAtB;AAEM,eAAD,sBAAC,uCAAa,WAAC,KAAD,CAAQ,GAAE,CAAxB;AACT,eAAK,CAAO,WAAC,KAAD,CAAQ,GAAE,CAAjB,UAAuB,+BAAK,CAAC,CAAC,OAAQ,GAAG,KAAM,CAAC,MAAO,GAAE,GAAF,CAAO,GAAG,IAAK,GAAE,GAA5C,CAA5B;AAEL,oBAAK,+BAAK,CAAC,GAAI,GAAG,IAAK,GAAkD,CAAxB,CAAtB,GAAG,OAAmB,GAAT,GAAG,IAAL,GAAwB,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAb,CAAwB,GAAE,CAAF,CAAlD,CAAuD,EAAG,GAAE,EAAF,CAAM,GAAG,IAA2D,GAAJ,CAAxB,CAAtB,GAAG,OAAmB,GAAT,GAAG,IAAL,GAAwB,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAb,CAAwB,GAAE,CAAF,CAAlD,GAAmE,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAxJ,CAAV;AACU,cAAD,sBAAC,sCAAY,WAAC,IAAD,CAAO,GAAE,CAAtB;AACT,cAAI,CAAO,WAAC,IAAD,CAAO,GAAE,CAAhB,UAAsB,CAAtB;;AAGI,YAAD,sBAAC,sCAAY,WAAC,IAAD,CAAO,GAAE,CAAtB;AACT,YAAI,CAAO,WAAC,IAAD,CAAO,GAAE,CAAhB,UAAsB,+BAAK,CAAC,CAAC,OAAQ,CAAC,KAAM,CAAC,MAAO,GAAE,EAAF,CAAM,CAAC,OAAhC,CAA3B;;AAGN,+BAAoB,CAAC,EAAG,kBAAJ;AACpB,oCAAyB,CAAC,EAAG,mBAAJ;AACzB,8BAAmB,CAAC,EAAG,kBAAJ;AACnB,+BAAoB,CAAC,EAAG,kBAAJ;AACpB,gCAAqB,CAAC,EAAG,kBAAJ;AACrB,gCAAqB,CAAC,EAAG,kBAAJ;AACrB,+BAAoB,CAAC,EAAG,kBAAJ;AAEpB,cAAS,yDAAwB,WAAW,CAAC,4CAAI,CAAL;AAC5C,qBAAU,MAAI,CAAC,KAAD;AACd,mCAAwB,CAAC,EAAG,KAAJ;AAExB,eAAY,CAAF,CAAE,GAAE,EAAF,CAAK,GAAa,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAb;AA9bY;AAAa;AAqyLQ;AAArB;AAG7B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAAI;AACJ;AACA;AAAK;AAAK;AAEV,eAAU;AACV,iBAAU,CAAC,CAAX;AACA,UAAK,4CAAe,QAAC,uBb7mQ8B,EAAsB,EAAsB,MAAgC,Ia6mQ1G;AACrB,OAAC;AACD;AACE,SAAC,iBAAD,GAAqB;AACrB,iBAAS,QAAkB,OAAb,MAAM,SAAC,EAAM,GAAE,CAAF,kBAA3B;AAAI;AAEF,cAAK,MAAM,WAAC,CAAD;AAEX,gBAAO;AACP,gBAAO;AACP,cAAa,CAAT,CAAC,QAAQ,IAAG,CAAH,CAAM,IAAc,CAAT,CAAC,QAAQ,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAAjC,EACE,MAAO,aAAO,WAAC,CAAC,QAAF,CADhB;AAGA,oBAAK,CAAC,UAAN;AACA,gBAAO;AAEP,cAAY,GAAD,QAAX;AAEE,gBAAG,GAAG,WAAU,SAAhB;AAEE,oBAAO,GAAG,WAAU;AACpB,oBAAO,GAAU,GAAJ,GAAF,GAAQ,oBAAe,CAAC,CAAD,CAAjB;aAHnB;AAMA,gBAAG,GAAG,YAAN;AAEE,oBAAO,GAAG;AACV,oBAAO,GAAU,GAAJ,GAAF,GAAQ,oBAAe,CAAC,CAAD,CAAjB;aAHnB;AAMA,gBAA4C,CAAd,GAAI,UAAU,KAAG,qEAAH,CAAY,IAAgB,CAAX,gBAAW,KAAE,CAAC,QAAH,CAAxE;AAEE,oBAAO,oBAAe,CAAC,CAAD;AACtB,oBAAO,GAAU,GAAJ,GAAF,GAAQ,oBAAe,CAAC,CAAD,CAAjB;aAHnB;WAdF;AAqBA,cAAG,GAAH;AAEQ,uBAAD,CAAC;AACJ,gBADI,IACJ;AAAa,eAAC,MAAK,OAAO,CAAC,uBAAiB,SAAlB;AAC1B,sBAFI,IAEJ,mFAAgB,CAAC,MAAK,OAAO,CAAC,uBAAiB,YAAlB,CAA7B;WAGC,UAAY,GAAD,QAAX;AAEG,wBAAD,CAAC;AACJ,gBADI,KACJ;AAAa,eAAC,MAAK,OAAO,CAAC,GAAG,SAAJ;AAC1B,sBAFI,KAEJ,mFAAgB,CAAC,MAAK,OAAO,CAAC,GAAG,YAAJ,CAA7B;WAJC;AAQL,gBAAO,kBAAa,CAAC,CAAC,QAAF;AACpB,8BAAe,CAAC,CAAC,SAAS,CAAC,OAAO;;;;cAAnB;AAEf,eAAM;AACN,eAAM;AACN,eAAM;AACN,iBAAQ;AACR,cAAY,GAAD,QAAX;AAEE,iBAAM,GAAG;AACT,iBAAM,GAAG;AACT,iBAAM,GAAG;AACT,mBAAQ,GAAG;WALb;AAQA,kCAAmB,CAAC,CAAC,SAAS,CAAC,OAAO;;;;cAAnB;AACnB,sCAAuB,CAAC,CAAC,SAAS,CAAC,OAAO;;;;cAAnB;AACvB,6CAA8B,CAAC,CAAC,SAAS,CAAC,OAAO;;;;cAAnB;AAC9B,2CAA4B,CAAC,CAAC,SAAS,CAAC,OAAO;;;;cAAnB;AAE5B,uBAAQ,CAAR;AACA,iDAAa,CAAC,KAAM,oBAAe,CAAC,CAAC,CAAF,EAAM,oBAAe,CAAC,CAAC,CAAF,CAA3C;AACb,cAAI,MAAJ,GAAc,QAAG,CAAC,IAAI,MAAO,IAAI,MAAO,GAAE,GAAzB;AAEjB,cAAG,oCAAU,CAAC,KAAM,gCAAM,CAAC,GAAI,EAAL,CAAb,CAAb;AAEQ,wBAAD,CAAC;AACJ,gBADI,KACJ;AAEE,kBAAY,GAAD,QAAX;AACE,iBAAC,MAAK,OAAO,CAAC,GAAG,SAAJ;AAEb,oBAAA,CAAC,MAAK,OAAO,CAAC,uBAAiB,SAAlB;AAEf,kBAAG,uBAAiB,iBAApB;AACE,oBAAK,CAAC,WAAS,CAAC,8CAAM,IAAK,GAAI,GAAI,GAAI,KAAM,CAAC,GAAI,CAAC,EAAG,CAAC,EAAG,KAAM,KAAM,GAAI,EAA3D;AAEf,wBAAK,CAAC,WAAS,CAAC,8CAAM,IAAK,GAAI,GAAI,GAAI,KAAM,EAAG,CAAC,EAAG,CAAC,EAAG,KAAM,KAAM,GAAI,EAAzD;aAEnB,UAbI,KAaJ;AAEE,kBAAY,GAAD,QAAX;AACE,iBAAC,MAAK,OAAO,CAAC,GAAG,YAAJ;AAEb,oBAAA,CAAC,MAAK,OAAO,CAAC,uBAAiB,YAAlB;AAEf,kBAAG,uBAAiB,oBAApB;AACE,oBAAK,CAAC,WAAS,CAAC,8CAAM,IAAK,GAAI,GAAI,GAAI,KAAM,GAAI,CAAC,EAAG,CAAC,EAAG,KAAM,KAAM,GAAI,EAA1D;AAEf,wBAAK,CAAC,WAAS,CAAC,8CAAM,IAAK,GAAI,GAAI,GAAI,KAAM,EAAG,CAAC,EAAG,CAAC,EAAG,KAAM,KAAM,GAAI,EAAzD;aAVnB;AAcF,gBAAG,CAAE,KAAG,EAAR;AAEE,uBAAU;AACV,yBAAU,CAAC,QAAX;AACA;aAJF;WA7BF;;AA1EJ;AAgHE,SAAC;AACD,SAAE,eAAF,CAAE;AAjHJ;AArB6B;AAAqB;AA/+CZ;AAAT;AAE7B,eAAU;AAFmB;AAAS;AA6WG;AAAZ;AAE7B;AAEA,UAAK,2BAAsB,CAAC,IAAD;AAC3B,eAAU,wBAAmB,CAAC,CAAD;AAC7B,UAAW,CAAC,CAAD,SAAI,IAAK,CAAC,YAArB,EACE,SAAU,CAAC,QADb;AAN6B;AAAY;AAhJC;AAAb;AAE7B,eAAU,gDAAe,CAAC,uEAAD,CAA8B,GAAJ,GAAF,GAAQ,qBAAQ,CAAC,OAAD,CAAV;AACvD,UAAY,CAAR,OAAQ,IAAG,CAAH,CAAM,IAAa,CAAR,OAAQ,IAAe,CAAZ,iBAAY,GAAE,CAAF,CAAf,CAA/B;AAEE,YAAY,CAAR,OAAQ,IAAG,CAAH,CAAM,IAAa,CAAR,OAAQ,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAA/B;AAEE,mBAAU,aAAO,WAAC,OAAD,CAAS;AAC1B,cAAG,MAAO,KAAE,EAAZ,EACE,SAAU,aAAO,WAAC,OAAD,CAAS,MAD5B;SAHF;AAOA,YAAG,MAAO,KAAE,EAAZ,EACE,SAAU,gDAAe,CAAC,uEAAD,CAA8B,GAAJ,GAAF,GAAQ,qBAAQ,CAAC,OAAD,CADnE;OATF;AAaA,UAAY,aAAD,QAAX,EACE,SAAU,aAAO,qBAAqB,CAAC,OAAD,CADxC;AAhB6B;AAAa;AAxJD;AAAZ;AAE7B,eAAU,gDAAe,CAAC,sEAAD,CAA6B,GAAJ,GAAF,GAAQ,qBAAQ,CAAC,MAAD,CAAV;AACtD,UAAW,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,IAAgB,CAAb,YAAM,SAAC,EAAM,GAAE,CAAF,CAAhB,CAA7B,EACG,SAAmC,YAAM,WAAC,MAAD,CAAS,UADrD;AAH6B;AAAY;AAiJK;AAAjB;AAE7B,eAAU;AACV,UAAW,CAAP,wCAAO,IAAG,uBAAiB,SAApB,CAA8B,IAAiB,CAAZ,iBAAY,GAAE,CAAF,CAA1D,EACE,SAAU,uBAAiB,SAD7B;AAH6B;AAAiB;AAxDE;AAAnB;AAE7B,eAAU;AAFmB;AAAmB;AAPC;AAApB;AAE7B,eAAU;AACV,UAAc,CAAV,2CAAU,IAAG,uBAAiB,SAApB,CAA8B,IAAiB,CAAZ,iBAAY,GAAE,CAAF,CAA7D,EACE,SAAU,uBAAiB,YAD7B;AAH6B;AAAoB;AAzFJ;AAAhB;AAE7B,eAAU;AACV,UAAW,CAAP,sCAAO,IAAG,sBAAgB,SAAnB,CAA2D,IAAL,CAApB,mBAAa,SAAC,EAAM,GAAE,CAAF,CAAzB,IAA+C,CAAZ,iBAAY,GAAE,CAAF,CAAvF,EACE,SAAU,sBAAgB,SAD5B;AAH6B;AAAgB;AAdG;AAAnB;AAE7B,eAAU;AACV,UAAc,CAAV,yCAAU,IAAG,sBAAgB,SAAnB,CAA2D,IAAL,CAApB,mBAAa,SAAC,EAAM,GAAE,CAAF,CAAzB,IAA+C,CAAZ,iBAAY,GAAE,CAAF,CAA1F,EACE,SAAU,sBAAgB,YAD5B;AAH6B;AAAmB;AAhFD;AAAlB;AAE7B,qBAAoB,kFAApB;AACA,YAAM,OAAN,GAAiB,MAAM,IAAK,GAAE,QAAG,CAAC,yBAAmB,MAAM,OAAQ,GAAE,MAAM,IAA1C,CAAL;AAC5B,YAAM,MAAN,GAAgB,MAAM,KAAM,GAAE,QAAG,CAAC,2BAAqB,MAAM,MAAO,GAAE,MAAM,KAA3C,CAAL;AAC5B,YAAM,KAAN,GAAe,MAAM,KAAM,GAAE,CAAF;AAC3B,YAAM,MAAN,GAAgB,MAAM,MAAO,GAAE,CAAF;AANA;AAAkB;AASJ;AAAd;AAE7B,qBAAoB,8EAApB;AACA,YAAM,IAAN,GAAc,MAAM,IAAyB,GAAlB,wBAAF,GAAsB,uBAAF;AAC7C,YAAM,OAAN,GAAiB,MAAM,OAA+B,GAArB,2BAAF,GAAyB,0BAAF;AAJzB;AAAc;AAlBI;AAAlB;AAE7B,qBAAoB,kFAApB;AACA,YAAM,IAAN,GAAc,MAAM,IAAyB,GAAlB,wBAAF,GAAsB,uBAAF;AAC7C,YAAM,OAAN,GAAiB,MAAM,OAA+B,GAArB,2BAAF,GAAyB,0BAAF;AACtD,YAAM,MAAN,GAAgB,MAAM,KAAM,GAAE,QAAG,CAAC,EAAG,MAAM,MAAO,GAAE,MAAM,KAAzB,CAAL;AAC5B,YAAM,OAAN,GAAiB,MAAM,IAAK,GAAE,QAAG,CAAC,EAAG,MAAM,OAAQ,GAAE,MAAM,IAA1B,CAAL;AANC;AAAkB;AAgGF;AAAhB;AAE7B,qBAAU,wBAAV;AACA,YAAM,OAAN,GAAiB,MAAM;AACvB,YAAM,IAAN,GAAc,MAAM,IAAK,GAAE,uBAAF;AAJI;AAAgB;AAdG;AAAnB;AAE7B,qBAAU,2BAAV;AACA,YAAM,IAAN,GAAc,MAAM;AACpB,YAAM,OAAN,GAAiB,MAAM,IAAK,GAAE,0BAAF;AAJC;AAAmB;AAkKF;AAAjB;AAE7B;AAEA,iBAAgB,8EAAhB;AACA,YAAM,KAAN,GAAe,EAAE;AACjB,YAAM,IAAN,GAAc,EAAE,IAAK,GAAE,uBAAF;AACrB,YAAM,MAAN,GAAgB,EAAE,MAAO,GAAE,0BAAF;AACzB,YAAM,OAAN,GAAiB,EAAE,IAAwB,GAAjB,uBAAF,GAAqB,wBAAF;AARd;AAAiB;AAxCQ;AAAzB;AAE7B;AAAK;AAEL,kBAAO,wBAAP;AACA,iBAAM,mBAAN;AACA,YAAM,IAAN,GAAc,GAAG;AACjB,YAAM,KAAN,GAAe,EAAE;AACjB,YAAM,MAAN,GAAgB,GAAG;AACnB,YAAM,OAAN,GAAiB,GAAG;AATS;AAAyB;AA9OG;AAA5B;AAE7B;AAAK;AAEL,kBAAO,2BAAP;AACA,iBAAM,mBAAN;AACA,YAAM,IAAN,GAAc,GAAG;AACjB,YAAM,KAAN,GAAe,EAAE;AACjB,YAAM,MAAN,GAAgB,GAAG;AACnB,YAAM,OAAN,GAAiB,GAAG;AATS;AAA4B;AAYC;AAA7B;AAE7B;AAAK;AAEL,kBAAO,2BAAP;AACA,iBAAM,mBAAN;AACA,YAAM,IAAN,GAAc,GAAG;AACjB,YAAM,KAAN,GAAe,GAAG;AAClB,YAAM,MAAN,GAAgB,EAAE,MAAO,GAAE,CAAF;AACzB,YAAM,OAAN,GAAiB,GAAG;AATS;AAA6B;AA8OH;AAA1B;AAE7B;AAAK;AAEL,kBAAO,wBAAP;AACA,iBAAM,mBAAN;AACA,YAAM,IAAN,GAAc,GAAG;AACjB,YAAM,KAAN,GAAe,GAAG;AAClB,YAAM,MAAN,GAAgB,EAAE,MAAO,GAAE,CAAF;AACzB,YAAM,OAAN,GAAiB,GAAG;AATS;AAA0B;AAnGF;AAAxB;AAE7B;AAAK;AAEL,kBAAO,uBAAP;AACA,iBAAM,mBAAN;AACA,YAAM,IAAN,GAAc,GAAG;AACjB,YAAM,KAAN,GAAe,EAAE;AACjB,YAAM,MAAN,GAAgB,GAAG;AACnB,YAAM,OAAN,GAAiB,GAAG;AATS;AAAwB;AA3DG;AAA3B;AAE7B;AAAK;AAEL,kBAAO,0BAAP;AACA,iBAAM,mBAAN;AACA,YAAM,IAAN,GAAc,GAAG;AACjB,YAAM,KAAN,GAAe,EAAE;AACjB,YAAM,MAAN,GAAgB,GAAG;AACnB,YAAM,OAAN,GAAiB,EAAE;AATU;AAA2B;AAYC;AAA5B;AAE7B;AAAK;AAEL,kBAAO,0BAAP;AACA,iBAAM,mBAAN;AACA,YAAM,IAAN,GAAc,GAAG;AACjB,YAAM,KAAN,GAAe,GAAG;AAClB,YAAM,MAAN,GAAgB,EAAE;AAClB,YAAM,OAAN,GAAiB,GAAG;AATS;AAA4B;AA2DH;AAAzB;AAE7B;AAAK;AAEL,kBAAO,uBAAP;AACA,iBAAM,mBAAN;AACA,YAAM,IAAN,GAAc,GAAG;AACjB,YAAM,KAAN,GAAe,GAAG;AAClB,YAAM,MAAN,GAAgB,EAAE;AAClB,YAAM,OAAN,GAAiB,GAAG;AATS;AAAyB;AAoDL;AAApB;AAE7B;AAEA,iBAAgB,8EAAhB;AACA,YAAM,KAAN,GAAe,EAAE;AACjB,YAAM,IAAN,GAAc,EAAE,OAA8B,GAApB,0BAAF,GAAwB,2BAAF;AAC9C,YAAM,MAAN,GAAgB,EAAE,MAAO,GAAE,0BAAF;AACzB,YAAM,OAAN,GAAiB,EAAE,OAAQ,GAAE,0BAAF;AARE;AAAoB;AA1LP;AAAb;AAE7B,eAAU;AAFmB;AAAa;AALC;AAAd;AAE7B,eAAU;AAFmB;AAAc;AA89CD;AAAb;AAG7B;AACA;AACA;AAEA,eAAU;AACV,UAAG,CAAY,CAAC,iBAAD,SAAf,EACE,aADF;AAGA,UAAG,CAAI,oCAAU,CAAC,0BAAoB,gCAAM,CAAC,EAAG,CAAJ,CAA3B,CAAjB,EACE,aADF;AAGA,eAAS,QAAwB,OAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,kBAAjC;AAAI;AAEF,cAAO,iBAAY,SAAC,CAAD;AACnB,kBAAK,GAAG,UAAR;AACA,SAAC,KAAD,GAAU,CAAC,KAAM,GAAE,OAAF;AACjB,SAAC,MAAD,GAAW,CAAC,MAAO,GAAE,OAAF;AACnB,YAAG,oCAAU,CAAC,EAAG,gCAAM,CAAC,EAAG,CAAJ,CAAV,CAAb;AAEE,mBAAU;AACV;SAHF;;AApB2B;AAAa;AAnlKW;AAAxB;AAE7B,eAAU;AACV,UAAG,iBAAY,SAAC,EAAM,GAAE,CAAxB,EACE,SAAU,iBAAY,SAAC,CAAD,CADxB;AAH6B;AAAwB;AA83DT;AAAf;AAE7B,eAAU,iBAAa,IAAI,iBAAW,SAAf;AAFM;AAAe;AAzBC;AAAhB;AAE7B,eAAU,gBAAU,IAA8B,CAAzB,iBAAW,cAAc,KAAG,wCAAH,CAA9B;AAFS;AAAgB;AAu6DD;AAAf;AAE7B,UAAiB,CAAb,YAAa,IAAG,CAAH,CAAM,IAAkB,CAAb,YAAa,GAAE,aAAO,SAAC,EAAV,CAAzC;AACE,iBAAU,aAAO,WAAC,YAAD,CAAc;AAE/B,qBAAU;AALiB;AAAe;AAh5BN;AAGtC;AAGA;AACA,2BAAiB,uDAAqB,QAAC,YAAM,CAAC,qEAAU,EAAX,CAAN;AACvC,wBAAa,WAAb,GAA4B;AAE5B,yBAAe,CAAC;AAChB,4BAAkB;AAClB,6BAAmB;AACnB,4BAAkB,iCAA4B,QAAC;AAC/C,wBAAc,6BAAwB,QAAC;AACvC,8BAAoB,mCAA8B,QAAC;AACnD,6BAAmB,kCAA6B,QAAC;AACjD,iCAAuB,sCAAiC,QAAC;AACzD,gCAAsB,qCAAgC,QAAC;AAEvD,0BAAgB,mCAA8B,QAAC;AAC/C,gCAAsB,yCAAoC,QAAC;AAC3D,+BAAqB,wCAAmC,QAAC;AACzD,mCAAyB,4CAAuC,QAAC;AACjE,kCAAwB,2CAAsC,QAAC;AAE/D,8BAAoB,mCAA8B,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,gCAAsB,qCAAgC,QAAC,YAAM,CAAC,IAAD,CAAN;AACvD,+BAAqB,oCAA+B,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,0BAAgB,+BAA0B,QAAC,YAAM,CAAC,IAAD,CAAN;AAE3C,wBAAc,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,qBAAU,YAAC,CAAY,EAAZ;AACX,qBAAU,WAAC,CAAW,KAAX;AACX,qBAAU,SAAV,GAAsB;AAEtB,2BAAiB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,wBAAa,YAAC,CAAY,CAAZ;AACd,wBAAa,WAAC,CAAW,KAAX;AACd,wBAAa,SAAb,GAAyB;AAczB,wBAAc,6BAAwB,QAAC,YAAM,CAAC,KAAK,IAAN,CAAN;AAEvC,4BAAkB,+BAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AAI3B,yBAAc,OAAd,GAAsB,CAAC;AACvB,yBAAc,SAAd,GAA0B;AAK1B,yBAAe,6DAA2B,QAAC,YAAM,CAAC,IAAD,CAAN;AAE3C,0BAAgB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,uBAAY,SAAZ,GAAwB;AACxB,uBAAY,YAAC,CAAY,GAAZ;AACb,uBAAY,WAAC,CAAW,KAAX;AAEb,0BAAgB,sCAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,uBAAY,aAAC,CAAa,0DAAb;AAEb,gCAAsB;AAEtB,oBAAS,GAAT;AACA,qBAAU,GAAV;AAGA,qCAA2B,mCAA8B,QAAC;AAI1D,UAAK,sCAAY,YAAY,CAAC,KAAM,EAAP;AAC7B,UAAI,CAAE,KAAE,CAAR;AACE,+BAAmB;AAChB,gBAAM,CAAF,CAAE,KAAE,IAAF,CAAQ,IAAM,CAAF,CAAE,KAAE,IAAF,CAApB;AACH,+BAAmB;AAEnB,mCAAmB;AAIrB,UAAG,mBAAH,EACE,iBADF;AA/F2D;AAArB;AAoOA;AAEtC,UAAY,sBAAD,QAAX,EACoB,SAAlB,KAAkB,oBADpB;AAIwB,eAAxB,KAAwB;AAGZ,eAAZ,KAAY;AAED,eAAX,KAAW;AACE,eAAb,KAAa;AACE,eAAf,KAAe;AACF,eAAb,KAAa;AAEb,UAAY,gBAAD,QAAX;AAEc,iBAAZ,KAAY;AACZ,2BAAe;OAHjB;AASc,eAAd,KAAc;AACA,eAAd,KAAc;AACG,eAAjB,KAAiB;AACC,eAAlB,KAAkB;AACL,eAAb,KAAa;AACM,eAAnB,KAAmB;AACD,eAAlB,KAAkB;AACC,eAAnB,KAAmB;AACE,eAArB,KAAqB;AACC,eAAtB,KAAsB;AACP,eAAf,KAAe;AACF,eAAb,KAAa;AACF,eAAX,KAAW;AACK,eAAhB,KAAgB;AACC,eAAjB,KAAiB;AACE,eAAnB,KAAmB;AACC,eAApB,KAAoB;AACpB;AA1CsC;AA9pDF;AAEpC;AACA;AACA,UAAa,0BAAH,eAAP,MAAO,CAAV;AAEE,6BAAgB,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,iBAAlC;AACvB,+BAAkB,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,mBAAlC;AACzB,8BAAiB,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,kBAAlC;AACxB,yBAAY,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,aAAlC;OALrB;AAOA;AAXoC;AAqmGF;AAElC;AAEA;AAEA,UAAG,mBAAY,GAAE,CAAjB,EACE,MADF;AAIA,eAAS,iBAAT,GAA6B;AAC7B,0BAAe,CAAC,SAAD;AACf,WAAM,SAAS,Wb/1O6B;Aag2O5C,eAAS,SAAS,CAAC,kEAAD;AAClB,0BAAe,CAAC,SAAD;AACf,eAAS,aAAa,CAAC,Gb3+O2D,Ka2+O5D;AACtB,oBAAS,CAAC,SAAD;AACT,sBAAW,CAAC,SAAD;AACX,qBAAU,CAAC,SAAD;AACV,sBAAW,CAAC,SAAD;AAnBuB;AApdM;AAExC;AAAW;AAAc;AAAa;AACtC;AACA;AACA;AAEA;AAEA,oBAAS,oBAAe,CAAC,GAAD,CAAxB;AAEA;AACA,mBAAO;AACP,iBAAK;AAEL;AAEA,2BAAe,eAAC,CAAe,oBAAe,CAAC,EAAD,CAA9B;AAChB,2BAAe,gBAAC,CAAgB,oBAAe,CAAC,EAAD,CAA/B;AAShB,6BAAiB,WAAC,CAAW,oBAAe,CAAC,EAAD,CAA1B;AAClB,6BAAiB,WAAU,QAAC,CAAQ,mEAAR;AAC5B,2BAAe,gBAAe,SAAC,CAAS,gBAAK,CAAC,sBAAe,CAAC,GAAD,CAAhB,CAAd;AAE/B,UAAK,aAAO;AACZ,OAAC,QAAC,CAAQ,MAAR;AACF,OAAC,uBAAC,CAAuB,qEAAvB;AAEF,UAAK,aAAO;AACZ,OAAC,QAAC,CAAQ,MAAR;AACF,OAAC,uBAAC,CAAuB,sEAAvB;AACF,OAAC,SAAC,CAAS,oBAAe,CAAC,EAAD,CAAxB;AAEF,UAAK,aAAO;AACZ,OAAC,QAAC,CAAQ,QAAR;AACF,OAAC,uBAAC,CAAuB,oEAAvB;AACF,OAAC,SAAC,CAAS,oBAAe,CAAC,EAAD,CAAxB;AAEF,kBAAa,aHnwMyC;AGowMtD,eAAS,QAAK,CAAC,EAAM,UAAP;AAEd,qBAAgB,aHtwMsC;AGuwMtD,kBAAY,QAAK,CAAC,EAAM,aAAP;AAEjB,oBAAe,aHzwMuC;AG0wMtD,iBAAW,QAAK,CAAC,EAAM,YAAP;AAEhB,WAAI,IAAK,GAAL,CAAU,OAAV,CAAU,EAAd;AAEE,YAAG,CAAE,GAAE,CAAP;AACE,iBAAQ,YAAO,CAAC,SAAD;AACZ,kBAAG,CAAE,GAAE,CAAP;AACH,iBAAQ,YAAO,CAAC,YAAD;AAEf,qBAAQ,YAAO,CAAC,WAAD;AAEA,mBAAZ,iBAAM,CAAC,GAAD,CAAM,GAAI,CAAJ;AACf,YADe,IACf;AAAG,cAAK;AACR,kBAFe,IAEf;AAAG,cAAK;AACR,kBAHe,IAGf;AAAG,cAAK;AACR,kBAJe,IAIf;AAAG,cAAK;AACR,kBALe,IAKf;AAAG,cAAK;AACR,kBANe,IAMf;AAAG,cAAK;;AAEN,cAAK;;AAGQ,oBAAZ,iBAAM,CAAC,GAAD,CAAM,GAAI,CAAJ;AACf,YADe,KACf;AAAG,cAAK,CAAE,GAAE,YAAF;AACV,kBAFe,KAEf;AAAG,cAAK,CAAE,GAAE,OAAF;AACV,kBAHe,KAGf;AAAG,cAAK,CAAE,GAAE,QAAF;AACV,kBAJe,KAIf;AAAG,cAAK,CAAE,GAAE,UAAF;AACV,kBALe,KAKf;AAAG,cAAK,CAAE,GAAE,WAAF;AACV,kBANe,KAMf;AAAG,cAAK,CAAE,GAAE,OAAF;;AAER,cAAK,CAAE,GAAE,MAAF;;AAGX,YAAI,QAAK,CAAC,EAAM,CAAP;AAEQ,oBAAZ,iBAAM,CAAC,GAAD,CAAM,GAAI,CAAJ;AACf,YADe,KACf;AAAG,cAAI,QAAK,CAAC,EAAM,UAAP;AACZ,kBAFe,KAEf;AAAG,cAAI,QAAK,CAAC,EAAM,SAAP;AACZ,kBAHe,KAGf;AAAG,cAAI,QAAK,CAAC,EAAM,eAAP;AACZ,kBAJe,KAIf;AAAG,cAAI,QAAK,CAAC,EAAM,OAAP;AACZ,kBALe,KAKf;AAAG,cAAI,QAAK,CAAC,EAAM,IAAP;AACZ,kBANe,KAMf;AAAG,cAAI,QAAK,CAAC,EAAM,WAAP;;AAEV,cAAI,QAAK,CAAC,EAAM,WAAP;;AAGI,oBAAZ,iBAAM,CAAC,GAAD,CAAM,GAAI,CAAJ;AACf,YADe,KACf;AAAG,cAAI,QAAK,CAAC,EAAM,QAAP;AACZ,kBAFe,KAEf;AAAG,cAAI,QAAK,CAAC,EAAM,UAAP;AACZ,kBAHe,KAGf;AAAG,cAAI,QAAK,CAAC,EAAM,QAAP;;AAEV,cAAI,QAAK,CAAC,EAAM,QAAP;;;AAIf,eAAS,YAAC,CAAY,IAAZ;AACV,kBAAY,YAAC,CAAY,IAAZ;AAEb,sBAAU,QAAC,CAAQ,UAAR;AAEX,6BAAiB,cAAC,CAAc,KAAd;AAClB,6BAAiB,WAAC,CAAW,IAAX;AAClB,6BAAiB,iBAAC,CAAiB,CAAjB;AAElB;AApHwC;AAzxFI;AAE5C;AACA;AACA;AAEA,UAAY,4BAAD,QAAX;AACE,oCAAsB,CAAC,IAAD;;AAGtB;AACA,4BAAe,CAAC,SAAD;AACf,iBAA2B,KAAlB,wBAAkB,GAAE,CAAF,EAAW,aAAtC;AAAI;AAEF,cAAK,eAAa,CAAC,CAAD;AAClB,cAAY,CAAD,QAAX;AACE,2BAAU,CAAC,CAAD;;AAGV,iBAAM,sBAAoB,CAAC,CAAD;AAC1B,kCAAiB,CAAC,EAAD;;;AAGrB;;AAvB0C;AAngDC;AAE7C;AACA;AAAG;AACH;AACA;AACA;AAEA,UAAY,6BAAD,QAAX;AACE,qCAAuB,CAAC,IAAD;;AAGvB,aAAM,2DAA0B,QAAC;AACjC;AACE,cAAK;AACL,mBAAS,QAA8B,OAAzB,+BAAyB,GAAE,CAAF,kBAAvC;AAAI;AAEF,gBAAK,sBAAoB,CAAC,CAAD;AACzB,gBAAW,CAAC,CAAD,SAAI,IAAuB,CAAlB,EAAE,QAAQ,CAAC,CAAC,KAAF,CAAQ,KAAE,CAAC,CAAH,CAAtC;AAEE,kBAAY,CAAC,MAAF,QAAX,EACE,IAAK,CAAmC,GAA/B,CAAC,MAAK,aAAa,CAAC,SAAD,CAArB,GAAmC,cAD5C;AAGA,gBAAE,IAAI,CAAC,CAAC,KAAF;aALR;AAQA,gBAAY,CAAD,QAAX;AAEE,uBAAe,MAAN,CAAC,KAAK,GAAE,CAAF,EAAa,QAAN,CAAC,KAAK,GAAE,CAAC,eAAH,qBAA5B;AAAI;AAEF,oBAAK,6BAAwB,CAAC,CAAD;AAC7B,oBAAW,CAAC,CAAD,SAAyB,IAAT,CAAC,CAAC,MAAF,SAAZ,IAA4C,CAAlB,EAAE,QAAQ,CAAC,CAAC,KAAF,CAAQ,KAAE,CAAC,CAAH,CAA3D;AAEE,sBAAK,CAAmC,GAA/B,CAAC,MAAK,aAAa,CAAC,SAAD,CAArB,GAAmC,cAAF;AACxC,oBAAE,IAAI,CAAC,CAAC,KAAF;iBAHR;;aALJ;;AAcF,cAAG,CAAE,KAAG,EAAR,EACE,0CAAgB,QAAQ,CAAC,YAAQ,GAAE,CAAX,CAD1B;AA3BF;AA8BE,YAAG,eAAH,EAAG;AA9BL;;AAb2C;AA1iBG;AAEhD;AACA;AACA;AAAO;AACP;AACA;AAAG;AACH;AAEA,UAAY,gCAAD,QAAX;AACE,wCAA0B,CAAC,IAAD;;AAG1B,YAAG,0CAAgB,UAAU,CAAwB,uDAAxB,CAA7B;AAEE,cAAK,0CAAgB;AACrB,cAAI,cAAG,CAAC,aAAS,CAAV,CAAa,GAAE,CAAtB;AAEE,gBAAK,uBAAW,QAAC;AACjB;AACE,kBAAK,0BAAa,CAAC,EAAG,aAAS,GAAI,cAAC,4CAAD,CAAjB;AAClB,eAAC,WAAC,CAAQ,CAAR;AACF;AACE,wBAAS;AACT,sBAAO;AACP,yBAAS,QAAa,OAAR,CAAC,SAAC,EAAM,GAAE,CAAF,kBAAtB;AAAI;AAEF,2BAAU,CAAC;AACX,4BAAW,gBAAW,CAAC,CAAC,KAAC,CAAD,EAAK;;;;sBAAP;AAEtB,sBAAG,KAAM,KAAE,IAAX;AAEE,4BAAS,YAAO,CAAC,qBAAD;AAChB,0BAAO;AACP,wBAAY,qBAAD,QAAX,EACE,MAAO,GAAI,GAAE,qBAAW,aAAY,OADtC;mBAGG,UAAW,CAAC,KAAK,aAAN,SAAoB,IAA6B,CAAxB,KAAK,aAAY,OAAO,KAAS,CAAP,MAAO,GAAE,GAAF,CAAT,CAA5D;AACH,4BAAS,YAAO,CAAC,KAAK,YAAN;AACb,4BAAW,CAAC,KAAK,aAAN,SAAoB,IAA6B,CAAxB,KAAK,aAAY,OAAO,KAAa,CAAX,MAAW,GAAF,CAAF,GAAM,GAAF,CAAb,CAA5D;AACH,4BAAS,YAAO,CAAC,KAAD;AACb,4BAAW,CAAC,KAAK,aAAN,SAAoB,IAA6B,CAAxB,KAAK,aAAY,OAAO,GAAS,CAAP,MAAO,GAAE,GAAF,CAAT,CAA5D;AAEH,gCAAa,KAAK;AAClB,2BAAc,CAAC,SAAD,SAAgD,IAAxB,CAAC,SAAS,aAAV,SAAZ,IAAqE,CAA5B,SAAS,aAAY,OAAO,GAAS,CAAP,MAAO,GAAE,GAAF,CAAT,CAA/F,EACE,YAAa,SAAS;AACxB,4BAAS,YAAO,CAAC,SAAS,YAAV;mBALb;AAQL,sBAAY,KAAD,QAAX,EACE,KAAK,eAAe,CAAC,OAAD,CADtB;;AA3BJ;;AAHF;AAoCE,eAAE,eAAF,CAAE;AApCJ;WAHF;SAHF;;AAb8C;AAizJd;AAElC,iBAAK,OAAK,CAAC,QAAS,SAAU,eAAgB,aAAc,cAAlD;AAFwB;AAdQ;AAE1C;AAEA;AACA,yBAAe,CAAC;AAChB,eAAS,QAAmB,OAAd,aAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AAEwB,qBAAO,WAAC,CAAD,CAAI,YAAC,CAAY,qEAAZ;AACZ,qBAAO,WAAC,CAAD,CAAI,aAAC,CAAa,CAAC,CAAd;;AAExC;AAX0C;AA/iKE;AAE5C;AACA;AAAO;AACP;AAAQ;AACR;AAEA,aAAQ,uBAAW,QAAC;AACpB;AACA;AACA;AACE;AACE;AACI,2DAAJ,KAAoB,QAAS,SAAzB;AACJ,kBAAS;AACT,mBAAS,QAAgB,OAAX,IAAI,SAAC,EAAM,GAAE,CAAF,kBAAzB;AAAI;AAEF,qBAAU,CAAC;AACX,sBAAW,gBAAW,CAAC,IAAI,KAAC,CAAD,EAAK;;;;gBAAV;AAEtB,gBAAG,KAAM,KAAE,IAAX;AACE,sBAAS,aHzpCqC;AG0pC3C,sBAAW,CAAC,KAAK,aAAN,SAAoB,IAA6B,CAAxB,KAAK,aAAY,OAAO,KAAE,MAAF,CAA5D;AACH,sBAAS,YAAO,CAAC,KAAK,YAAN;AACb,sBAAW,CAAC,KAAK,aAAN,SAAoB,IAA6B,CAAxB,KAAK,aAAY,OAAO,KAAS,CAAP,MAAO,GAAE,CAAF,CAAT,CAA5D;AACH,sBAAS,YAAO,CAAC,KAAD;AACb,sBAAW,CAAC,KAAK,aAAN,SAAoB,IAA6B,CAAxB,KAAK,aAAY,OAAO,GAAE,MAAF,CAA5D;AAEH,yBAAY,KAAK;AACjB,qBAAc,CAAC,QAAD,SAA8C,IAAvB,CAAC,QAAQ,aAAT,SAAZ,IAAmE,CAA3B,QAAQ,aAAY,OAAO,GAAE,MAAF,CAA5F,EACE,WAAY,QAAQ;AACtB,sBAAS,YAAO,CAAC,QAAQ,YAAT;aALb;AAQL,gBAAY,KAAD,QAAX,EACE,KAAK,eAAe,CAAC,OAAD,CADtB;AAGA;;AA1BJ;AA6BE;AACA,cAAK,eAAL,IAAK;AA9BP;AADF;;AAV4C;AAvQN;;AAEtC;AAC+B;AAE7B,UAAE,YAAC,CAAY,CAAZ;AACH,gCAAkB,CAAC,GAAI,YAAL;AAHW;AAM/B,WAAM,yBAAa,QAAC;AACpB;AAEE,UAAE,aAAa,CAAC,UAChB;AAEE;AACA,YAAG,eAAH,EAAG;AAHL,U7FzjC2G,I6FwjC5F;AAFjB;;AAVsC;AA+BU;AAEhD;AAEA,WAAM,uBAAW,QAAC;AAClB;AACE,eAAO,YAAC,CAAY,CAAZ;AAEN,uDAAF,GAAkB,OAAhB;AACF,6BAAgB,CAAC,EAAE,WAAC,GAAM,YAAV;AAJlB;AAME,UAAG,eAAH,EAAG;AANL;AALgD;AAkBF;;AAE9C;AACA;AACA;AAAW;AAEc;AAEvB,YAAG,KAAK,QAAO,SAAC,EAAM,KAAE,CAAxB,EACE,KAAK,QAAO,QADd;AAGK;AACH,YADG,IACH;AAEE,eAAK,QAAK,CAAC,UAAc,KAAf;AACV,eAAK,QAAO,WAAC,SAAD,CAAW,mBAAkB,IAAI,CAAC,OAAQ,GAAE,KAAX;AAE7C,eAAK,QAAK,CAAC,WAAe,MAAhB;AACV,eAAK,QAAO,WAAC,UAAD,CAAY,mBAAkB,IAAI,CAAC,QAAS,GAAE,MAAZ;AAE9C,eAAK,KAAL,GAAa;SAEf,UAXG,IAWH;AAEE,eAAK,QAAK,CAAC,UAAc,KAAsB,GAAd,IAAF,GAAS,MAAF,GAAW,GAAvC;AACV,eAAK,QAAO,WAAC,SAAD,CAAW,mBAAkB,IAAI,CAAC,OAAgC,GAAtB,KAAF,GAAU,IAAF,GAAS,MAAF,GAAW,GAAnC;AAC7C,eAAK,KAAL,GAAa;SAEf,UAjBG,IAiBH;AAEE,eAAK,QAAK,CAAC,UAAc,KAAsB,GAAd,IAAF,GAAS,MAAF,GAAW,GAAvC;AACV,eAAK,QAAO,WAAC,SAAD,CAAW,mBAAkB,IAAI,CAAC,OAAgC,GAAtB,KAAF,GAAU,IAAF,GAAS,MAAF,GAAW,GAAnC;AAC7C,eAAK,KAAL,GAAa;SAEf,UAvBG,IAuBH;AAEE,eAAK,QAAK,CAAC,UAAc,YAAY,iBAA0B,GAAN,KAAF,GAAU,YAAY,iBAAnE;AACV,eAAK,QAAO,WAAC,SAAD,CAAW,mBAAkB,IAAI,CAAC,OAAgD,GAAtC,YAAY,iBAAd,GAAkC,KAAF,GAAU,YAAY,iBAA/D;AAC7C,eAAK,KAAL,GAAa;SAJf;AAQF,gCAAkB,CAAC,MAAO,UAAR;AApCK;AAuCN;AAEjB;AAAG;AAAG;AACN;AAAI;AAAM;AACV;AAAG;AACH;AAAK;AACL;AACA;AAEA,YAAS,6BAAH,eAAH,EAAG,CAAN;AAEE,gBAAO;AACP,mCAAmB,CAAC,GAAI;;;;cAAL;AACnB,cAAG,GAAH;AAEE,gBAAY,KAAD,QAAX;AACE,kBAAK,KAAK,OAAM;AAEhB,sBAAK,YAAK;AAEZ,kBAAU,OAAH,GAAM,6BAAH;AACV,gBAAK,sCAAY,iBAAiB,CAAC,GAAD;AAClC,2BAAe,CAAC,EAAG,KAAM,0CAAa,GAAI,qBAAQ,CAAC,CAAD,CAAnC;AACf,qBAAS,QAAO,OAAF,CAAE,GAAE,CAAF,kBAAhB;AAAI;AAEF,qBAAQ,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAErC,kBAAY,8BAAH,eAAL,IAAK,CAAT;AAEE,qBAAM,CAAC,OAAM;AACb,+BAAe,CAAC,GAAI,qBAAQ,CAAC,CAAD,EAAK,2CAAc,GArEyF,EAqEzH;AACf,kBAAE,QAAK,CAAC,EAAM,qBAAQ,CAAC,CAAD,CAAf;AACP,yBAAS,CAAC,KAAM,EAAP;;AAIT,+BAAe,CAAC,CAAC,OAAM,SAAM,qBAAQ,CAAC,CAAD,EAAK,sCAAS,KAAM,IAAI,YAAC,EAA/C;;;WAvBrB;SA4BG,UAAS,8BAAH,eAAH,EAAG,CAAN;AAEH,mBAAS,SAAuD,QAAlD,sCAAY,kBAAkB,CAAI,OAAH,GAAM,8BAAH,CAAJ,CAAoB,GAAE,CAAF,qBAAhE;AAAI;AAEF,mBAAQ;AAER,mBAAQ,sCAAY,kBAAkB,CAAI,OAAH,GAAM,8BAAH,EAAgB,CAApB;AAEtC,iBAAM,sCAAY,kBAAkB,CAAI,OAAH,GAAM,8BAAH,EAAgB,CAApB;AAEpC,kBAAO;AACP,qCAAmB,CAAC,GAAI;;;;gBAAL;AAEnB,gBAAG,GAAH;AAEE,kBAAY,KAAD,QAAX;AACE,oBAAK,KAAK,OAAM;AAEhB,wBAAK,YAAK;AAGZ,kBAAY,EAAD,QAAX;AAEE,oBAAS,6BAAH,eAAH,EAAG,CAAN;AAEE,uBAAS,OAAH,GAAM,6BAAH;AACT,sBAAK,sCAAY,iBAAiB,CAAC,EAAD;AAClC,iCAAe,CAAC,EAAG,KAAM,0CAAa,GAAI,qBAAQ,CAAC,CAAD,CAAnC;AACf,2BAAS,SAAO,QAAF,CAAE,GAAE,CAAF,qBAAhB;AAAI;AAEF,0BAAO,sCAAY,iBAAiB,CAAC,GAAI,CAAL;AAEpC,wBAAW,8BAAH,eAAJ,GAAI,CAAR;AAEE,2BAAM,CAAC,OAAM;AACb,qCAAe,CAAC,GAAI,qBAAQ,CAAC,CAAD,EAAK,2CAAc,GAnHmF,EAmHnH;AACf,+BAAS,CAAC,IAAK,EAAN;;AAIT,qCAAe,CAAC,CAAC,OAAM,SAAM,qBAAQ,CAAC,CAAD,EAAK,sCAAS,IAAK,GAAG,YAAC,EAA7C;;;iBAIhB,UAAS,8BAAH,eAAH,EAAG,CAAN;AAEH,iCAAe,CAAC,EAAG,KAAM,2CAAc,GAAI,qBAAQ,CAAC,sCAAY,kBAAkB,CAAK,OAAH,GAAM,8BAAH,CAAL,CAA/B,CAApC;AACf,2BAAS,CAAC,GAAI,CAAL;iBAGT,MAAA,eAAe,CAAC,EAAG,KAAM,sCAAS,GAAI,EAAE,YAAC,EAA1B;eA7BnB;aARF;;;AA4CF,cAAY,KAAD,QAAX;AACE,2BAAe,CAAC,MAAO,KAAM,sCAAS,GAAI,EAAE,YAAC,EAA9B;AAEf,gBAAA,eAAe,CAAC,YAAK,SAAM,KAAM,sCAAS,GAAI,EAAE,YAAC,EAAlC;;AArGF;AAyGnB,kBAAa;AACb,mBAAc;AAEd;AAEA,UAAG,YAAa,KAAE,IAAlB,EACE,eAAgB,4BADlB;AAGA,iBAAK;AACL,mBAAO;AACP,YAAO,aAAO;AACd,SAAG,QAAC,CAAQ,QAAR;AACJ,SAAG,YAAC,CAAY,0EAAZ;AACJ,SAAG,MAAK,SAAC,CAAS,cAAY,wCAAZ,CAAT;AAET,YAAO,aAAO;AACd,SAAG,QAAC,CAAQ,OAAR;AAEJ,mBAAO,WAAC,SAAD,CAAW,gBAAC,CAAgB,YAAY,kBAA5B;AACnB,mBAAO,WAAC,UAAD,CAAY,gBAAC,CAAgB,YAAY,mBAA5B;AAEpB,UAAK,sCAAY,UAAU,CAAC,KAAD;AAC3B,UAAY,CAAD,QAAX,EACA;AACE,iBAAS,CAAC,EAAG,IAAJ;AADX;AAGE,SAAE,eAAF,CAAE;AAHJ,OADA;AAOA;AAEA,UAAG,YAAY,aAAf,EACE,gBADF;AAGA,UAAG,YAAY,eAAe,GAAE,CAAC,CAAjC;AAEE;AAEA,+BAAiB,cAAC,CAAc,KAAd;AAClB,+BAAiB,iBAAC,CAAiB,YAAY,eAA7B;AAClB,+BAAiB,WAAC,CAAW,KAAX;AAClB,2BAAc,CAAC,CAAD;AACd,qBAAO,WAAC,CAAD,CAAG,SAAC,CAAS,iBAAY,CAAC,CAAD,CAArB;AACX,+BAAiB,WAAC,CAAW,IAAX;AAElB;OAXF;AAxL8C;AAmqGU;AAExD;AACA;AAEA,0BAAe;AACf,eAAkC,KAAzB,+BAAyB,GAAE,CAAF,EAAW,aAA7C;AAAI;AAEF,YAAK,sBAAoB,CAAC,CAAD;AACzB,2BAAc,OAAO,CAAC,CAAD;AACrB,8BAAiB,CAAC,CAAD;;AAEnB,0BAAe;AAEf,qBAAU,CAAC,KAAD;AACV;AACA;AAhBwD;AAmBP;AAEjD;AACA;AAEA,0BAAe;AACf,eAA2B,KAAlB,wBAAkB,GAAE,CAAF,EAAW,aAAtC;AAAI;AAEF,YAAK,eAAa,CAAC,CAAD;AAClB,2BAAc,OAAO,CAAyB,CAAE,aAA3B;AACrB,uBAAU,CAAC,CAAD;;AAEZ,0BAAe;AAEf,qBAAU,CAAC,KAAD;AACV;AACA;AAhBiD;AA21FH;AAE9C;AAF8C;AA/5FF;AAE5C;AAF4C;AAo6FS;AAErD,yBAAc;AACd;AAHqD;AA/5FF;AAEnD;AACA;AACA;AAEA,yBAAc;AACd,eAAS,QAAwB,OAAnB,kBAAY,SAAC,EAAM,GAAE,CAAF,kBAAjC;AAAI;AAEF,YAAK,kBAAY,SAAC,CAAD;AACjB,YAAY,CAAD,QAAX;AAEE,eAAM,4BAAuB,CAAC,CAAD;AAE7B,cAAG,EAAH,EACE,mBAAc,IAAI,CAAC,CAAD,CADpB;SAJF;;AAQF;AAlBmD;AA+BX;AAExC,UAAY,KAAD,QAAX;AACE,8BAAiB,CAAyB,KAAM,aAA/B;AAEjB,YAAA,sBAAiB,CAAC,IAAD;AALqB;AAQY;AAEpD,4BAAiB,CAAC,kBAAa,CAAC,IAAD,CAAd;AAFmC;AA3HL;AAE/C;AAEA,yBAAc;AACd,UAAY,KAAD,QAAX;AAEE,aAAM,4BAAuB,CAAC,KAAD;AAC7B,YAAG,EAAH;AAEE,6BAAc,IAAI,CAAC,KAAD;AAClB,8BAAgB;AAChB,wCAAyB,CAAC,KAAD;SAJ3B;OAHF;AAUA;AAf+C;AAtBN;AAEzC;AACA;AACA;AAEA,yBAAc;AACd,eAAS,QAAoB,OAAT,WAAC,MAAD,CAAS,GAAE,CAAF,kBAA7B;AAAI;AAEF,YAAK,MAAM,CAAC,CAAD;AACX,YAAY,CAAD,QAAX;AAEE,eAAM,4BAAuB,CAAyB,CAAE,aAA3B;AAE7B,cAAG,EAAH,EACE,mBAAc,IAAI,CAAyB,CAAE,aAA3B,CADpB;SAJF;;AASF;AAnByC;AApBO;AAEhD;AACA;AACA;AAEA,yBAAc;AACd,eAAS,QAAoB,OAAT,WAAC,MAAD,CAAS,GAAE,CAAF,kBAA7B;AAAI;AAEF,YAAK,MAAM,CAAC,CAAD;AACX,YAAY,CAAD,QAAX;AAEE,eAAM,4BAAuB,CAAC,CAAD;AAC7B,cAAG,EAAH,EACE,mBAAc,IAAI,CAAC,CAAD,CADpB;SAHF;;AAOF;AAjBgD;AAmiGN;AAE1C,UAAY,KAAD,QAAX,EACE,wBAAmB,CAAyB,KAAM,aAA/B,CADrB;AAF0C;AAoBO;AAGjD,yBAAc,OAAO,CAAC,KAAD;AACrB;AAJiD;AAdN;AAE3C;AACA;AAEA,eAAS,QAAoB,OAAT,WAAC,MAAD,CAAS,GAAE,CAAF,kBAA7B;AAAI;AAEF,YAAK,MAAM,CAAC,CAAD;AACX,YAAY,CAAD,QAAX,EACE,mBAAc,OAAO,CAAyB,CAAE,aAA3B,CADvB;;AAGF;AAX2C;AAqBO;AAGlD;AACA;AAEA,eAAS,QAAoB,OAAT,WAAC,MAAD,CAAS,GAAE,CAAF,kBAA7B;AAAI;AAEF,YAAK,MAAM,CAAC,CAAD;AACX,2BAAc,OAAO,CAAC,CAAD;;AAEvB;AAXkD;AA/+JG;AAErD,yBAAc,OAAO,CAAC,KAAD;AAFgC;AAKL;AAEhD,yBAAc,IAAI,CAAC,KAAD;AAF8B;AAktHV;AAEtC,UAAY,KAAD,QAAX,EACE,oBAAe,CAAyB,KAAM,cAAc,OAA7C,CADjB;AAFsC;AAMO;AAG7C,4BAAiB,CAAC,MAAO,OAAR;AACjB;AAJ6C;AAsuCJ;AAEzC,UAAG,yBAAH,EACE,uBAAkB,CAAC,MAzqNkD,KAyqNnD,CADpB;AAFyC;AAhkEE;AAE3C,UAAG,yBAAH,EACE,uBAAkB,CAAC,KAzmJkD,KAymJnD,CADpB;AAF2C;AAizCR;AAEnC;AACA;AACA;AACA;AACA;AANmC;AA/La;AAAnB;AAE7B;AAAG;AAEH,eAAU;AACV,UAAK;AACL,UAAK;AACL,UAAW,CAAC,CAAD,SAAI,IAAY,CAAC,CAAD,SAA3B,EACE,SAAU,CAAC,KAAK,GAAE,CAAC,KADrB;AAP6B;AAAmB;AA70HO;AAA1B;AAE7B,eAAU;AACV,UAAG,iBAAY,SAAC,EAAM,GAAE,CAAxB,EACE,SAAU,iBAAY,SAAC,CAAD,CAAG,MAD3B;AAH6B;AAA0B;AAqDD;AAAzB;AAE7B,eAAU;AACV,UAAG,iBAAY,SAAC,EAAM,GAAE,CAAxB,EACE,SAAU,iBAAY,SAAC,iBAAY,SAAC,EAAM,GAAE,CAAtB,CAAwB,MADhD;AAH6B;AAAyB;AA9CI;AAA7B;AAE7B;AAEA,UAAK;AACL,eAAU;AACV,UAAY,CAAD,QAAX,EACE,SAAU,CAAC,KADb;AAN6B;AAA6B;AAqDD;AAA5B;AAE7B;AAEA,UAAK;AACL,eAAU;AACV,UAAY,CAAD,QAAX,EACE,SAAU,CAAC,KADb;AAN6B;AAA4B;AAy2HP;AAArB;AAE7B;AACA;AACA;AAAO;AACP;AACA;AAAG;AACH;AACA;AAEA,UAAG,0CAAgB,UAAU,CAAwB,uDAAxB,CAA7B;AAEE,YAAK,0CAAgB;AACrB,YAAI,cAAG,CAAC,aAAS,CAAV,CAAa,GAAE,CAAtB;AAEE,kBAAS,0BAAqB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,cAAK,uBAAW,QAAC;AACjB;AACE,gBAAK,0BAAa,CAAC,EAAG,aAAS,GAAI,cAAC,4CAAD,CAAjB;AAClB,aAAC,WAAC,CAAQ,CAAR;AACF;AACE,sBAAS;AACT,oBAAO;AACP,uBAAS,QAAa,OAAR,CAAC,SAAC,EAAM,GAAE,CAAF,kBAAtB;AAAI;AAEF,yBAAU,CAAC;AACX,0BAAW,gBAAW,CAAC,CAAC,KAAC,CAAD,EAAK;;;;oBAAP;AAEtB,oBAAG,KAAM,KAAE,IAAX;AAEE,0BAAS,KAAK,SHjmM4B;AGkmM1C,wBAAO;iBAEJ,UAAW,CAAC,KAAK,aAAN,SAAoB,IAA6B,CAAxB,KAAK,aAAY,OAAO,KAAS,CAAP,MAAO,GAAE,GAAF,CAAT,CAA5D;AACH,0BAAS,KAAK,QAAQ,CAAC,KAAK,YAAN;AACnB,0BAAW,CAAC,KAAK,aAAN,SAAoB,IAA6B,CAAxB,KAAK,aAAY,OAAO,KAAa,CAAX,MAAW,GAAF,CAAF,GAAM,GAAF,CAAb,CAA5D;AACH,0BAAS,KAAK,QAAQ,CAAC,KAAD;AACnB,0BAAW,CAAC,KAAK,aAAN,SAAoB,IAA6B,CAAxB,KAAK,aAAY,OAAO,GAAS,CAAP,MAAO,GAAE,GAAF,CAAT,CAA5D;AAEH,8BAAa,KAAK;AAClB,yBAAc,CAAC,SAAD,SAAgD,IAAxB,CAAC,SAAS,aAAV,SAAZ,IAAqE,CAA5B,SAAS,aAAY,OAAO,GAAS,CAAP,MAAO,GAAE,GAAF,CAAT,CAA/F,EACE,YAAa,SAAS;AACxB,0BAAS,KAAK,QAAQ,CAAC,SAAS,YAAV;iBALnB;AAQL,oBAAY,KAAD,QAAX,EACE,KAAK,eAAe,CAAC,OAAD,CADtB;;AAzBJ;;AAHF;AAkCE,2BAAU,OAAO,CAAC,KAAK,OAAN;AACjB,aAAE,eAAF,CAAE;AACF,iBAAM,eAAN,KAAM;AApCR;SAJF;OAHF;AAgDA,eAAU;AA1DmB;AAAqB;AAtlEZ;AAAT;AAE7B,eAAU;AAFmB;AAAS;AA1zFC;AAAV;AAE7B;AACA;AAAG;AAAK;AACR;AACA;AAAI;AAAI;AACR;AACA;AAEA,eAAU;AACV,UAAK;AACL,UAAG,CAAI,cAAP,EACE,IAAK,sBAAS,CAAC,CAAD,CADhB;AAGA,UAAG,cAAH;AAEE,YAAK;AACL,eAAe,CAAD,QAAd;AAEE,gBAAO;AACP,gBAAO;AAEP,cAAI,CAAI,iBAAW,QAAO,kBAAmB,IAAwC,CAApC,iBAAW,QAAO,kBAAkB,IAAa,CAAC,GAAD,SAA+C,IAA7B,CAAC,GAAD,SAAZ,IAA6B,CAAN,CAAC,KAAK,IAAG,GAAG,KAAN,CAAX,IAAkC,CAAN,CAAC,KAAK,IAAG,GAAG,KAAN,CAAvE,CAArF;AAEE,gBAAY,CAAR,OAAQ,IAAG,CAAH,CAAM,IAAa,CAAR,OAAQ,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAA/B;AAEE,kBAAK;AACL,gCAAa,CAAC,EAAG,QAAS,yEAAa;;;;kBAA1B;AAEb,kBAAK,sCAAY,UAAU,CAAC,CAAD;AAE3B,kBAAG,CAAI,cAAP,EACE,IAAK,sBAAS,CAAC,CAAD,CADhB;AAGA,kBAAG,cAAG,CAAC,EAAG,CAAJ,CAAO,KAAE,CAAf;AAEE,yBAAU;AACV;eAHF;;AAQA,oBAAO;AACP,uBAAS,QAAmB,OAAd,aAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AAEF,oBAAK;AACL,kCAAa,CAAC,EAAG,EAAG,yEAAa;;;;oBAApB;AAEb,oBAAK,sCAAY,UAAU,CAAC,CAAD;AAE3B,oBAAG,CAAI,cAAP,EACE,IAAK,sBAAS,CAAC,CAAD,CADhB;AAGA,oBAAG,cAAG,CAAC,EAAG,CAAJ,CAAO,KAAE,CAAf;AAEE,2BAAU;AACV,wBAAO;AACP;iBAJF;;AAOF,kBAAG,GAAH,EACE,KADF;;WAtCJ;AA0CA,cAAK,CAAC;;;AAKR,aAAM;AACN,aAAM,mBAAa,SAAC,EAAM,GAAE,CAAF;AAE1B,iBAAS,UAAM,+BAAf;AAAI;AAEF,cAAK,6BAAwB,CAAC,CAAD;AAC7B,cAAY,CAAD,QAAX;AAEE,kBAAO;AACP,kBAAO;AACP,gBAAI,CAAI,iBAAW,QAAO,kBAAmB,IAAwC,CAApC,iBAAW,QAAO,kBAAkB,IAAa,CAAC,GAAD,SAA+C,IAA7B,CAAC,GAAD,SAAZ,IAA6B,CAAN,CAAC,KAAK,IAAG,GAAG,KAAN,CAAX,IAAkC,CAAN,CAAC,KAAK,IAAG,GAAG,KAAN,CAAvE,CAArF;AAEE,kBAAY,CAAR,OAAQ,IAAG,CAAH,CAAM,IAAa,CAAR,OAAQ,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAA/B;AAEE,oBAAK;AACL,kCAAa,CAAC,EAAG,QAAS,yEAAa;;;;oBAA1B;AAEb,oBAAK,sCAAY,UAAU,CAAC,CAAD;AAE3B,oBAAG,CAAI,cAAP,EACE,IAAK,sBAAS,CAAC,CAAD,CADhB;AAGA,oBAAG,cAAG,CAAC,EAAG,CAAJ,CAAO,KAAE,CAAf;AAEE,2BAAU;AACV;iBAHF;;AAQA,sBAAO;AACP,yBAAS,SAAmB,QAAd,aAAO,SAAC,EAAM,GAAE,CAAF,qBAA5B;AAAI;AAEF,sBAAK;AACL,oCAAa,CAAC,EAAG,EAAG,yEAAa;;;;sBAApB;AAEb,sBAAK,sCAAY,UAAU,CAAC,CAAD;AAE3B,sBAAG,CAAI,cAAP,EACE,IAAK,sBAAS,CAAC,CAAD,CADhB;AAGA,sBAAG,cAAG,CAAC,EAAG,CAAJ,CAAO,KAAE,CAAf;AAEE,6BAAU;AACV,0BAAO;AACP;mBAJF;;AAOF,oBAAG,GAAH,EACE,KADF;;aAtCJ;WAJF;;;AAkDJ,UAAY,MAAD,QAAX;AAEE,YAAG,WAAH;AAEE,cAAK,MAAM;AACX,iBAAc,CAAC,CAAD,SAAI,IAAa,CAAR,CAAC,OAAO,GAAE,CAAF,CAA/B;AAEE,gBAAG,CAAI,CAAC,UAAR,EACE,CAAC,QHvrE8B,MGsrEjC;AAGA,gBAAK,CAAC;;AAGR,cAAY,CAAD,QAAX,EACE,CAAC,QH7rEgC,MG4rEnC;SAXF;AAeA,YAAG,WAAH;AAEE,cAAG,4BAAuB,CAAC,MAAD,CAA1B,EACE,sBAAiB,CAAC,MAAD,CADnB;AAGA,kCAAmB,CAAC,OAAQ,KH70C8H,4EAAkC,KG60CzK;SALrB;OAjBF;AA7H6B;AAAU;AAouJM;AAAhB;AAE7B,eAAU;AAFmB;AAAgB;AAr6DA;AAAhB;AAG7B,eAAU;AACV,UAAY,KAAD,QAAX,EACE,SAAU,4BAAuB,CAAyB,KAAM,aAA/B,CADnC;AAJ6B;AAAgB;AAyBO;AAAvB;AAG7B;AAEA,eAAU;AACV,UAAY,KAAD,QAAX;AAEE,4BAAe,CAAC,MAAO;;;;YAAR;AACf,cAAO;AACP,6BAAgB,CAAC,MAAO;;;;YAAR;AAChB,YAAQ,CAAJ,GAAI,IAAI,CAAI,iBAAW,oBAAnB,CAAwC,IAAG,CAAiC,CAA5B,kBAAY,QAAQ,CAAC,KAAD,CAAQ,GAAE,CAAC,CAAH,CAApF,EACE,SAAU,KADZ;OALF;AAN6B;AAAuB;AAwwGP;AAAhB;AAE7B,eAAU,0BAAqB,CAAC,GAAI,GAAI,sBAAkB,MAA3B;AAC/B,UAAW,CAAP,MAAO,KAAE,EAAF,CAAM,IAAY,CAAP,YAAO,KAAE,CAAC,CAAH,CAA7B,EACE,SAAU,0BAAqB,CAAC,GAAI,GAAI,yBAAqB,MAA9B,CADjC;AAH6B;AAAgB;AAolBR;AAAR;AAE7B;AAEA,eAAU;AACV,YAAO,kBAAa,CAAC,EAAG,EAAG,OAAP;AACpB,UAAY,GAAD,QAAX,EACE,SAAU,GAAG,MADf;AAN6B;AAAQ;AA1VM;AAAd;AAG7B;AACA;AACA;AACA;AACA;AACA;AACA;AAAI;AACJ;AACA;AACA;AACA;AAAI;AAEJ,YAAM,QAAN,GAAkB;AAClB,YAAM,QAAN,GAAkB,CAAC;AACnB,UAAY,KAAD,QAAX;AAEE,aAAM;AACN,cAAO;AACP,iBAAS,SAAM,4BAAf;AAAI;AAEF,cAAW,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,IAAG,CAAH,CAAM,IAAY,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,IAA2B,CAAlB,WAAC,KAAK,WAAN,CAAkB,GAAE,CAAF,CAA3B,CAA7B;AAEE,yBAAQ,KAAK,WAAU,CAAC,CAAE,GAAE,EAAL,CAAvB;AACA,mDAAa,CAAC,KAAM,oBAAe,CAAC,CAAC,CAAF,EAAM,oBAAe,CAAC,CAAC,CAAF,CAA3C;AACb,gBAAG,oCAAU,CAAC,KAAM,gCAAM,CAAC,EAAG,CAAJ,CAAb,CAAb;AAEE,kBAAK;AACL,kBAAI,CAAE,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAvB,EACE,IAAK,aAAO,WAAC,CAAD,CADd;AAGA,oBAAO;AACP,mBAAM;AACN,mBAAM;AACN,mBAAM;AACN,qBAAQ;AACR,kBAAY,CAAD,QAAX;AAEE,qBAAM,CAAC;AACP,qBAAM,CAAC;AACP,qBAAM,CAAC;AACP,uBAAQ,CAAC;eALX;AAQA,mCAAgB,CAAC,MAAO;;;;kBAAR;AAChB,oCAAiB,CAAC,MAAO,EAAG;;;;kBAAX;AACjB,wCAAqB,CAAC,MAAO,EAAG;;;;kBAAX;AACrB,+CAA4B,CAAC,MAAO,EAAG;;;;kBAAX;AAC5B,6CAA0B,CAAC,MAAO,EAAE;;;;kBAAV;AAE1B,oBAAO;AACP,gCAAa,CAAC,MAAO,EAAG,yEAAa;;;;kBAAxB;AAEb,kBAAK,4CAAe,QAAC,uBbp4QsB,EAAsB,EAAsB,MAAgC,Iao4QlG;AACrB,eAAC;AAED,kBAAW,CAAC,CAAD,SAAmC,IAA3B,CAAI,CAAC,sBAAT,IAAmC,CAAI,GAAtD;AACE,iBAAC,MAAK,OAAO,CAAC,CAAC,MAAF;;AAGb,oBAAG,GAAH;AACE,mBAAC,MAAK,OAAO,CAAC,qBAAe,cAAhB;AAEb,sBAAA,CAAC,MAAK,OAAO,CAAC,qBAAe,MAAhB;;AAGjB,eAAC,iBAAD,GAAqB;AACrB,eAAC,sBAAD,GAA0B;AAC1B;AACE,oBAAK,CAAC,WAAS,CAAC,8CAAM,IAAK,GAAI,GAAI,GAAI,KAAM,EAAG,CAAC,EAAG,CAAC,EAAG,KAAM,KAAM,EAAG,CAAxD;AADjB;AAGE,iBAAC;AACD,iBAAE,eAAF,CAAE;AAJJ;AAOA,kBAAG,CAAE,KAAG,EAAR;AAEE,sBAAM,QAAN,GAAkB;AAClB,sBAAM,QAAN,GAAkB;AAClB;eAJF;aAlDF;WAJF;;OANJ;AAjB6B;AAAc;AA2OK;AAAnB;AAG7B;AACA;AACA;AACA;AACA;AACA;AACA;AAAI;AACJ;AACA;AACA;AAAI;AAEJ,YAAM,QAAN,GAAkB;AAClB,YAAM,QAAN,GAAkB,CAAC;AACnB,UAAY,KAAD,QAAX;AAEE,aAAM;AACN,cAAO;AACP,iBAAS,SAAM,4BAAf;AAAI;AAEF,cAAW,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,IAAG,CAAH,CAAM,IAAY,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,IAA4B,CAAnB,WAAC,KAAK,YAAN,CAAmB,GAAE,CAAF,CAA5B,CAA7B;AAEE,yBAAQ,KAAK,YAAW,CAAC,CAAE,GAAE,EAAL,CAAxB;AACA,mDAAa,CAAC,KAAM,oBAAe,CAAC,CAAC,CAAF,EAAM,oBAAe,CAAC,CAAC,CAAF,CAA3C;AACb,gBAAG,oCAAU,CAAC,KAAM,gCAAM,CAAC,EAAG,CAAJ,CAAb,CAAb;AAEE,kBAAK;AACL,kBAAI,CAAE,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAvB,EACE,IAAK,aAAO,WAAC,CAAD,CADd;AAGA,mBAAM;AACN,mBAAM;AACN,mBAAM;AACN,qBAAQ;AACR,kBAAY,CAAD,QAAX;AAEE,qBAAM,CAAC;AACP,qBAAM,CAAC;AACP,qBAAM,CAAC;AACP,uBAAQ,CAAC;eALX;AAQA,yCAAsB,CAAC,MAAO,EAAG;;;;kBAAX;AACtB,6CAA0B,CAAC,MAAO,EAAG;;;;kBAAX;AAC1B,oDAAiC,CAAC,MAAO,EAAG;;;;kBAAX;AACjC,kDAA+B,CAAC,MAAO,EAAE;;;;kBAAV;AAE/B,oBAAO;AACP,iCAAc,CAAC,MAAO,EAAG,yEAAa;;;;kBAAxB;AAEd,kBAAK,4CAAe,QAAC,uBb5mRsB,EAAsB,EAAsB,MAAgC,Ia4mRlG;AACrB,eAAC;AAED,kBAAW,CAAC,CAAD,SAAI,IAAI,CAAI,CAAC,sBAAxB;AACE,iBAAC,MAAK,OAAO,CAAC,CAAC,WAAF;AAEb,oBAAA,CAAC,MAAK,OAAO,CAAC,qBAAe,WAAhB;AAEf,eAAC,iBAAD,GAAqB;AACrB,eAAC,sBAAD,GAA0B;AAC1B;AACE,oBAAK,CAAC,WAAS,CAAC,8CAAM,IAAK,GAAI,GAAI,GAAI,KAAM,EAAG,CAAC,EAAG,CAAC,EAAG,KAAM,KAAM,EAAG,CAAxD;AADjB;AAGE,iBAAC;AACD,iBAAE,eAAF,CAAE;AAJJ;AAOA,kBAAG,CAAE,KAAG,EAAR;AAEE,sBAAM,QAAN,GAAkB;AAClB,sBAAM,QAAN,GAAkB;AAClB;eAJF;aA3CF;WAJF;;OANJ;AAhB6B;AAAmB;AAlFL;AAAd;AAG7B;AACA;AACA;AAEA,eAAU;AACV,UAAW,CAAC,KAAD,SAAQ,IAAoB,CAAf,KAAK,UAAU,GAAE,CAAF,CAAvC;AAEE,aAAM;AACN,4BAAe,CAAC,MAAO;;;;YAAR;AACf,YAAG,EAAH;AAEE,cAAK;AACL,cAAqC,CAAJ,CAA7B,qBAAe,cAAc,GAAE,CAAF,CAAI,IAAG,CAAH,CAAM,IAAsC,CAAJ,CAA7B,qBAAe,cAAc,GAAE,CAAF,CAAI,IAA6B,CAApB,WAAC,KAAK,aAAN,CAAoB,GAAE,CAAF,CAA7B,CAAjF;AAEE,wBAAO,KAAK,aAAY,CAAC,qBAAe,cAAc,GAAE,CAAhC,CAAxB;AACA,qBAAU,oCAAU,CAAC,IAAK,gCAAM,CAAC,EAAG,CAAJ,CAAZ;WAHtB;SAHF;OAJF;AAR6B;AAAc;AAwBD;AAAb;AAG7B;AACA;AACA;AACA;AACA;AAEA,eAAU;AACV,WAAM;AACN,0BAAe,CAAC,MAAO;;;;UAAR;AACf,UAAW,CAAC,KAAD,SAAQ,IAAI,EAAvB;AAEE,aAAM;AACN,cAAO;AACP,iBAAS,SAAM,4BAAf;AAAI;AAEF,cAAW,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,IAAG,CAAH,CAAM,IAAY,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,IAA4B,CAAnB,WAAC,KAAK,YAAN,CAAmB,GAAE,CAAF,CAA5B,CAA7B;AAEE,wBAAO,KAAK,YAAW,CAAC,CAAE,GAAE,EAAL,CAAvB;AACA,gBAAG,oCAAU,CAAC,IAAK,gCAAM,CAAC,EAAG,CAAJ,CAAZ,CAAb;AAEE,uBAAU;AACV;aAHF;WAHF;;OANJ;AAZ6B;AAAa;AA2IK;AAAlB;AAG7B;AACA;AACA;AACA;AAAI;AAEJ,eAAU;AACV,WAAM;AACN,0BAAe,CAAC,MAAO;;;;UAAR;AACf,UAAW,CAAC,KAAD,SAAQ,IAAI,EAAvB;AAEE,aAAM;AACN,cAAO;AACP,iBAAS,SAAM,4BAAf;AAAI;AAEF,cAAW,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,IAAG,CAAH,CAAM,IAAY,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,IAAiC,CAAxB,WAAC,KAAK,iBAAN,CAAwB,GAAE,CAAF,CAAjC,CAA7B;AAEE,wBAAO,KAAK,iBAAgB,CAAC,CAAE,GAAE,EAAL,CAA5B;AACA,gBAAG,oCAAU,CAAC,IAAK,gCAAM,CAAC,EAAG,CAAJ,CAAZ,CAAb;AAEE,uBAAU;AACV;aAHF;WAHF;;OANJ;AAX6B;AAAkB;AAnOL;AAAb;AAG7B;AACA;AACA;AACA;AAAI;AAEJ,YAAM,QAAN,GAAkB,CAAC;AACnB,YAAM,MAAN,GAAgB;AAChB,WAAM;AACN,0BAAe,CAAC,MAAO;;;;UAAR;AACf,UAAW,CAAC,KAAD,SAAQ,IAAI,EAAvB;AAEE,aAAM;AACN,cAAO;AACP,iBAAS,SAAM,4BAAf;AAAI;AAEF,cAAW,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,IAAG,CAAH,CAAM,IAAY,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,IAA4B,CAAnB,WAAC,KAAK,YAAN,CAAmB,GAAE,CAAF,CAA5B,CAA7B;AAEE,wBAAO,KAAK,YAAW,CAAC,CAAE,GAAE,EAAL,CAAvB;AACA,gBAAG,oCAAU,CAAC,IAAK,gCAAM,CAAC,EAAG,CAAJ,CAAZ,CAAb;AAEE,oBAAM,MAAN,GAAgB;AAChB,oBAAM,QAAN,GAAkB;AAClB;aAJF;WAHF;;OANJ;AAZ6B;AAAa;AAgCD;AAAZ;AAG7B;AACA;AACA;AACA;AAAI;AAEJ,YAAM,QAAN,GAAkB,CAAC;AACnB,YAAM,MAAN,GAAgB;AAChB,WAAM;AACN,0BAAe,CAAC,MAAO;;;;UAAR;AACf,UAAW,CAAC,KAAD,SAAQ,IAAI,EAAvB;AAEE,aAAM;AACN,cAAO;AACP,iBAAS,SAAM,4BAAf;AAAI;AAEF,cAAW,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,IAAG,CAAH,CAAM,IAAY,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,IAA6B,CAApB,WAAC,KAAK,aAAN,CAAoB,GAAE,CAAF,CAA7B,CAA7B;AAEE,wBAAO,KAAK,aAAY,CAAC,CAAE,GAAE,EAAL,CAAxB;AACA,gBAAG,oCAAU,CAAC,IAAK,gCAAM,CAAC,EAAG,CAAJ,CAAZ,CAAb;AAEE,oBAAM,MAAN,GAAgB;AAChB,oBAAM,QAAN,GAAkB;AAClB;aAJF;WAHF;;OANJ;AAZ6B;AAAY;AAuFM;AAAlB;AAG7B;AACA;AACA;AAAI;AAEJ,eAAU,CAAC;AACX,UAAY,KAAD,QAAX;AAEE,aAAM;AACN,cAAO;AACP,iBAAS,SAAM,4BAAf;AAAI;AAEF,cAAW,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,IAAG,CAAH,CAAM,IAAY,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,IAA2B,CAAlB,WAAC,KAAK,WAAN,CAAkB,GAAE,CAAF,CAA3B,CAA7B;AAEE,wBAAO,KAAK,WAAU,CAAC,CAAE,GAAE,EAAL,CAAtB;AACA,gBAAG,oCAAU,CAAC,IAAK,gCAAM,CAAC,EAAG,CAAJ,CAAZ,CAAb;AAEE,uBAAU;AACV;aAHF;WAHF;;OANJ;AAR6B;AAAkB;AA9OJ;AAAd;AAG7B;AACA;AACA;AACA;AAAM;AAEN,eAAU,CAAC;AACX,mBAAQ,wBAAR;AACA,UAAI,KAAJ,GAAa,IAAI,KAAM,GAAE,kCAAF;AACvB,eAAqB,KAAZ,iBAAY,GAAE,CAAF,EAAW,aAAhC;AAAI;AAEF,YAAM,CAAF,CAAE,IAAG,CAAH,CAAmC,IAAtB,CAAF,CAAE,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAAP,IAAiC,aAAO,WAAC,CAAD,CAAG,SAAvD;AAEE,iBAAQ,iBAAY,CAAC,CAAD;AACpB,cAAS,CAAL,IAAK,IAAG,CAAH,CAAgD,IAAnC,CAAF,CAAE,IAAG,CAAH,CAAP,IAAoB,CAAF,CAAE,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAAP,IAAkC,aAAO,WAAC,CAAD,CAAG,SAAxE;AAEE,mBAAQ,cAAe,CAAC,CAAD;AACvB,sBAAK,+BAAK,CAAkB,CAAjB,IAAI,KAAa,GAAL,IAAF,GAAS,IAAF,CAAO,GAAE,oBAAe,CAAC,CAAD,CAAjB,CAAsB,IAAI,KAAM,IAAI,KAAoB,GAAZ,IAAF,GAAS,IAAF,GAAS,oBAAe,CAAC,CAAD,CAAjB,CAAsB,IAAI,OAA3G,CAAV;AACA,gBAAG,oCAAU,CAAC,EAAG,gCAAM,CAAC,EAAG,CAAJ,CAAV,CAAb;AAEE,uBAAU;AACV;aAHF;WAJF;SAHF;;AAb2B;AAAc;AA7PJ;AAAV;AAE7B;AACA;AACA;AACA;AAAM;AAEN,eAAU,CAAC;AACX,UAAG,YAAH;AACE,qBAAkB,8EAAlB;AAEA,yBAAQ,wBAAR;AAEF,UAAI,KAAJ,GAAa,IAAI,KAAM,GAAE,kCAAF;AACvB,eAAqB,KAAZ,iBAAY,GAAE,CAAF,EAAW,aAAhC;AAAI;AAEF,YAAM,CAAF,CAAE,IAAG,CAAH,CAAmC,IAAtB,CAAF,CAAE,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAAP,IAAiC,aAAO,WAAC,CAAD,CAAG,SAAvD;AAEE,iBAAQ,iBAAY,CAAC,CAAD,CAAI,GAAE,0BAAF;AACxB,cAAG,IAAK,IAAG,CAAX;AAEE,mBAAQ,cAAe,CAAC,CAAD;AACvB,sBAAK,+BAAK,CAAC,IAAI,KAAM,GAAE,IAAF,CAAQ,IAAI,KAAM,IAAI,KAAa,GAAL,IAAF,GAAS,IAAF,CAAQ,IAAI,OAA1D,CAAV;AACA,gBAAG,oCAAU,CAAC,EAAG,gCAAM,CAAC,EAAG,CAAJ,CAAV,CAAb;AAEE,uBAAU;AACV;aAHF;WAJF;SAHF;;AAhB2B;AAAU;AA6NM;AAAhB;AAE7B;AACA;AACA;AAAG;AACH;AACA;AAAM;AAEN,eAAU,CAAC;AACX,mBAAQ,wBAAR;AACA,UAAI,KAAJ,GAAa,IAAI,KAAM,GAAE,kCAAF;AACvB,eAAqB,KAAZ,iBAAY,GAAE,CAAF,EAAW,aAAhC;AAAI;AAEF,YAAM,CAAF,CAAE,IAAG,CAAH,CAAoE,IAAvD,CAAF,CAAE,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAAP,IAAiC,aAAO,WAAC,CAAD,CAAG,WAAU,SAAxB,IAAqC,aAAO,WAAC,CAAD,CAAG,SAAxF;AAEE,iBAAQ,iBAAY,CAAC,CAAD,CAAI,GAAE,0BAAF;AACxB,cAAG,IAAK,IAAG,CAAX;AAEE,mBAAQ,cAAe,CAAC,CAAD;AACvB,sBAAK,+BAAK,CAAC,IAAI,KAAM,GAAE,IAAF,CAAQ,IAAI,KAAM,IAAI,KAAa,GAAL,IAAF,GAAS,IAAF,CAAQ,IAAI,OAA1D,CAAV;AACA,kBAAO,aAAO,WAAC,CAAD,CAAG,WAAU;AAC3B,uBAAM,+BAAK,CAAC,UAAK,CAAC,CAAC,MAAa,GAAJ,GAAF,GAAQ,oBAAe,CAAC,CAAD,CAAhC,EAAsC,UAAK,CAAC,CAAC,IAAK,GAA6B,CAAP,CAAlB,CAAC,OAAiB,GAAP,CAAC,IAAH,GAAW,GAAF,CAAO,GAAE,CAAF,CAApC,EAA0C,UAAK,CAAC,CAAC,MAAO,GAAE,oBAAe,CAAC,CAAD,CAA1B,EAAgC,UAAK,CAAC,CAAC,IAAsC,GAAJ,CAAP,CAAlB,CAAC,OAAiB,GAAP,CAAC,IAAH,GAAW,GAAF,CAAO,GAAE,CAAF,CAA7B,GAAmC,GAA1C,CAArI,CAAX;AACA,gBAAG,oCAAU,CAAC,GAAI,gCAAM,CAAC,EAAG,CAAJ,CAAX,CAAb;AAEE,uBAAU;AACV;aAHF;WANF;SAHF;;AAb2B;AAAgB;AA3CA;AAAhB;AAE7B;AACA;AACA;AAAG;AAAI;AACP;AACA;AAAM;AAAM;AAEZ,eAAU,CAAC;AACX,mBAAQ,wBAAR;AACA,UAAI,KAAJ,GAAa,IAAI,KAAM,GAAE,kCAAF;AACvB,eAAqB,KAAZ,iBAAY,GAAE,CAAF,EAAW,aAAhC;AAAI;AAEF,YAAM,CAAF,CAAE,IAAG,CAAH,CAA6D,IAAhD,CAAF,CAAE,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAAP,IAAiC,aAAO,WAAC,CAAD,CAAG,YAAd,IAA8B,aAAO,WAAC,CAAD,CAAG,SAAjF;AAEE,iBAAQ,iBAAY,CAAC,CAAD,CAAI,GAAE,0BAAF;AACxB,cAAG,IAAK,IAAG,CAAX;AAEE,mBAAQ,cAAe,CAAC,CAAD;AACvB,sBAAK,+BAAK,CAAC,IAAI,KAAM,GAAE,IAAF,CAAQ,IAAI,KAAM,IAAI,KAAa,GAAL,IAAF,GAAS,IAAF,CAAQ,IAAI,OAA1D,CAAV;AACA,kBAAO,aAAO,WAAC,CAAD,CAAG;AAEjB,gBAAG,aAAO,WAAC,CAAD,CAAG,WAAU,SAAvB;AAEE,kBAAK,aAAO,WAAC,CAAD,CAAG,WAAU;AACzB,yBAAM,+BAAK,CAAC,UAAK,CAAC,CAAC,MAAW,GAAF,CAAF,GAAM,oBAAe,CAAC,CAAD,CAA9B,EAAoC,UAAK,CAAC,CAAC,IAAK,GAA2B,CAAL,CAAlB,CAAC,OAAiB,GAAP,CAAC,IAAH,GAAW,CAAF,CAAK,GAAE,CAAF,CAAlC,EAAwC,UAAK,CAAC,CAAC,MAAO,GAAE,oBAAe,CAAC,CAAD,CAA1B,EAAgC,UAAK,CAAC,CAAC,IAAoC,GAAJ,CAAL,CAAlB,CAAC,OAAiB,GAAP,CAAC,IAAH,GAAW,CAAF,CAAK,GAAE,CAAF,CAA3B,GAAiC,CAAxC,CAAjI,CAAX;AACA,yBAAM,CAAN;AACA,gBAAE,MAAF,GAAY,EAAE;aAGd,iBAAM,CAAN;AAEF,uBAAM,+BAAK,CAAC,UAAK,CAAC,EAAE,MAAa,GAAJ,GAAF,GAAQ,oBAAe,CAAC,CAAD,CAAjC,EAAuC,UAAK,CAAC,EAAE,IAAK,GAA+B,CAAP,CAApB,EAAE,OAAkB,GAAR,EAAE,IAAJ,GAAY,GAAF,CAAO,GAAE,CAAF,CAAvC,EAA6C,UAAK,CAAC,EAAE,MAAO,GAAE,oBAAe,CAAC,CAAD,CAA3B,EAAiC,UAAK,CAAC,EAAE,IAAwC,GAAJ,CAAP,CAApB,EAAE,OAAkB,GAAR,EAAE,IAAJ,GAAY,GAAF,CAAO,GAAE,CAAF,CAA/B,GAAqC,GAA7C,CAA1I,CAAX;AACA,gBAAG,oCAAU,CAAC,GAAI,gCAAM,CAAC,EAAG,CAAJ,CAAX,CAAb;AAEE,uBAAU;AACV;aAHF;WAjBF;SAHF;;AAb2B;AAAgB;AA12GC;AAAjB;AAE7B,eAAU;AAFmB;AAAiB;AAKO;AAAxB;AAE7B,eAAU,mBAAc,SAAC;AAFI;AAAwB;AArEV;AAAd;AAE7B,eAAU;AACV,UAAY,KAAD,QAAX,EACE,SAAU,0BAAqB,CAAyB,KAAM,aAA/B,CADjC;AAH6B;AAAc;AAiCO;AAArB;AAE7B,eAAU,mBAAc,QAAQ,CAAC,KAAD,CAAQ,GAAE,CAAC,CAAH;AAFX;AAAqB;AA1pI7B;;;;;;;;;AA4sBD,+BAAO,U7F1hCjB,+B6F0hCiB,CAAP;AA5sBC;AA6yBG;;;;;;;;;;AAET,4Bfr6BI,+Deq6BJ;AACE,8Bf1xBI,iEe0xBJ;AACS,uCZplDJ,oEYolDI;AACW;AACF;AAClB,8BH56BI,gEG46BJ;AACU,wCA5uCI,8CA4uCJ;AACJ,oCfhyBF,iEegyBE;AACL,+BHrvCI,iEGqvCJ;AACF,6BH1gCI,+DG0gCJ;AACY,yCAtzCI,+CAszCJ;AACF,uCAl8CI,6CAk8CJ;AACJ,mCAjgCI,yCAigCJ;AACM;AACV;AACE,iC7Ej+CV,wC6Ei+CU;AACC,kCf32BM,uEe22BN;AACc,gDAhnCO,yDAgnCP;AACA,gDAjrCO,yDAirCP;AACV,sCA9iCO,+CA8iCP;AACI,0CAlrCO,mDAkrCP;AACD,yCAlrCO,kDAkrCP;AACO,gDAlrCO,yDAkrCP;AACD,+CAlrCO,wDAkrCP;AACD,8CAtrCG,mDAsrCH;AACD,6CAtrCG,kDAsrCH;AACJ,yCAhkCO,kDAgkCP;AACD,wCAhkCO,iDAgkCP;AACC,yCAtrCO,kDAsrCP;AACD,wCAtrCO,iDAsrCP;AACA,wCArrCO,iDAqrCP;AACD,uCArrCO,gDAqrCP;AACO,8CAjrCO,uDAirCP;AACP,uCAnrCO,gDAmrCP;AACF,qCAzsCO,8CAysCP;AACQ,6CAnrCO,sDAmrCP;AACA,6CAlrCO,sDAkrCP;AACP,sCAprCO,+CAorCP;AACM,4CAnrCO,qDAmrCP;AACA,4CA5pCO,qDA4pCP;AACD,2CAtpCO,oDAspCP;AACE,6CAzpCO,sDAypCP;AACD,4CAzpCO,qDAypCP;AACE,8CA5pCO,uDA4pCP;AACF,4CAlpCO,qDAkpCP;AACC,6CAppCO,sDAopCP;AACH,0CAlpCO,mDAkpCP;AACL,qCAxrCO,8CAwrCP;AACA,qCAxrCO,8CAwrCP;AACK,0CAvtCO,mDAutCP;AACD,yCAvtCO,kDAutCP;AACA,yCAtrCO,kDAsrCP;AACI,6CAprCO,sDAorCP;AACO,oDAvrCO,6DAurCP;AACF,kDAvrCO,2DAurCP;AACP,2CAprCO,oDAorCP;AACC,4CA/qCO,qDA+qCP;AACG,+CAnrCO,wDAmrCP;AACO,sDAtrCO,+DAsrCP;AACF,oDAtrCO,6DAsrCP;AACT,2CA3oCO,oDA2oCP;AACD,0CA3oCO,mDA2oCP;AACD,yCA/oCO,kDA+oCP;AACD,wCA/oCO,iDA+oCP;AACI,4CArpCO,qDAqpCP;AACD,2CArpCO,oDAqpCP;AACD,0CArpCO,mDAqpCP;AACD,yCArpCO,kDAqpCP;AACJ,qCA7rCO,8CA6rCP;AACI,yCA7rCO,kDA6rCP;AACC,0CA1tCO,mDA0tCP;AACF,wCAxqCO,iDAwqCP;AACA,wCAnqCO,iDAmqCP;AACG,2CA7rCO,oDA6rCP;AACJ,uCAtqCO,gDAsqCP;AACE,yCAvtCO,kDAutCP;AACC,0CAnqCO,mDAmqCP;AACD,yCAnqCO,kDAmqCP;AACC,0CAvpCO,mDAupCP;AACD,yCAvpCO,kDAupCP;AACK,8CA5pCO,uDA4pCP;AACD,6CA5pCO,sDA4pCP;AACV,mCAtpCO,4CAspCP;AACK,wCAtpCO,iDAspCP;AACA,wCArpCO,iDAqpCP;AACA,wCAvpCO,iDAupCP;AACF,sCA1pCI,4CA0pCJ;AACM,4CA9pCO,qDA8pCP;AACD,2CA9pCO,oDA8pCP;AACL,sCA9tCO,+CA8tCP;AACW,iDAroCO,0DAqoCP;AACL,4CApoCO,qDAooCP;AACI,gDAtoCO,yDAsoCP;AACN,0CAzoCO,mDAyoCP;AACM,gDA5oCO,yDA4oCP;AACF,8CA5oCO,uDA4oCP;AACT,qCA1uCO,8CA0uCP;AACJ,iCAhqCM,yCAgqCN;AACA,iCAjqCM,yCAiqCN;AACmB,oDAvwCO,6DAuwCP;AACD,mDAvwCO,4DAuwCP;AACA,mDAvwCO,4DAuwCP;AACD,kDAvwCO,2DAuwCP;AAEX,uCAjsCO,gDAisCP;AACD,sCA9sCO,+CA8sCP;AACQ,8CA/sCD,+CA+sCC;AACA,8CAhtCD,+CAgtCC;AACJ,0CA/sCO,mDA+sCP;AACQ,kDAhtCD,mDAgtCC;AACA,kDAjtCD,mDAitCC;AACX,uCAruCO,gDAquCP;AACI,2CAxpCO,oDAwpCP;AACD,0CAxpCO,mDAwpCP;AACF,wCAtpCO,iDAspCP;AACD,uCAtpCO,gDAspCP;AACO,8CArpCO,uDAqpCP;AACC,+CAvpCO,wDAupCP;AACG,kDAtpCO,2DAspCP;AACL,6CArpCO,sDAqpCP;AACC,8CAvpCO,uDAupCP;AACG,iDAtpCO,0DAspCP;AACA,iDAnyCO,0DAmyCP;AACD,gDAnyCO,yDAmyCP;AACL,2CA5tCO,oDA4tCP;AAEA,2CA1rCO,oDA0rCP;AACD,0CA1rCO,mDA0rCP;AACI,8CA18BH,6CA08BG;AAEA,8CA3rCO,uDA2rCP;AACL,yCA3rCO,kDA2rCP;AArIJ;AA2IH,+BAAG,8GAEwF,GADxF,wFAD8G,GAE9G,wFADwF,GAExF,IADwF;AAEzF,iCAAG,4GACsF,GAAtF,sFAD4G,GAE5G,8EADsF;AAEtF,oCAAG,mFAEmF,GADnF,mFADmF,GAEnF,mFADmF,GAEnF,6DADmF;AAEpF,sCAAG,oFACoF,GAApF,oFADoF,GAEpF,wGADoF;AA9yD5G,2BA2KiB,wCA3KjB;AApBT,mBAs0Dc;AAkBY;;AACD;;AACE;;AACK;;AAEV;AAAb;AAEP;AAAG;AAAG;AAAG;AAET,6BAAU,CAAC,mBAAK;;;;WAAG;;;;WAAG;;;;WAAG;;;;UAAf;AACV,eAAU,EAA8B,GAAvB,CAAF,CAAE,GAAE,IAAF,CAAJ,GAAoB,CAAP,CAAO,GAAH,EAAF,GAAO,IAAF,CAAT,GAA8B,CAAZ,CAAY,GAAR,EAAF,GAAO,EAAF,GAAO,IAAF,CAAd;AALjC;AAAa;AAQA;AAAb;AAEP,eAAU;AACV,UAAU,CAAN,WAAM,GAAO,CAAL,UAAK,GAAE,MAAF,CAAP,CAAiB,IAAW,CAAN,WAAM,GAAO,CAAL,UAAK,GAAE,MAAF,CAAP,CAAtC;AAEE,kBAAS,UAAT;AACA,iBAAU;;AAIV,gBAAS,QAAG,CAAC,OAAQ,KAAT;AACZ,YAAG,WAAM,GAAE,UAAX;AACE,oBAAS,WAAM,GAAE,KAAjB;AAEA,wBAAS,WAAM,GAAE,KAAjB;;AAdG;AAAa;AAoEG;;AAnGX;AA0wRd;AAEE,2CAAa,mBAAmB,CAAC,0BAAD;AAChC,2CAAa,mBAAmB,CAAC,+BAAD;AAChC,2CAAa,mBAAmB,CAAC,4BAAD;AAChC,2CAAa,mBAAmB,CAAC,iCAAD;AALlC;AAhlVA,GAs0Dc,+GAt0Dd;ACAA,0CAIS,6IAJT;;;AAoBS,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AAoMW;AA3LS;;AAEL;;;AAEvB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AApBuB;;;;;;;AAw0CsB;AAE/C,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf,mBAAM;OAHR;AAF+C;AAiCH;AAE5C,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ,mBAAM;OAHR;AAF4C;AA8CA;AAE5C,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ,mBAAM;OAHR;AAF4C;AAnBH;AAEzC,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACT,mBAAM;OAHR;AAFyC;AAnDG;AAE5C,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ,mBAAM;OAHR;AAF4C;AAiCE;AAE9C,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd,mBAAM;OAHR;AAF8C;AASM;AAEpD,UAAG,qBAAiB,KAAG,KAAvB;AAEE,gCAAoB;AACpB,mBAAM;OAHR;AAFoD;AAvBR;AAE5C,mBAAQ,OAAO,CAAC,KAAD;AAF6B;AAtCI;AAEhD,0BAAgB;AAFgC;AAKF;AAE9C,wBAAc;AAFgC;AAuBU;AAGxD,UAAG,yBAAqB,KAAG,KAA3B;AAEE,oCAAwB;AACxB,mBAAM;OAHR;AAHwD;AAmDF;AAGtD,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB,mBAAM;OAHR;AAHsD;AAzFE;AAAvB;AAEjC,eAAU,qBAAgB,KAAG,CAAH;AAFO;AAAuB;AAKR;AAEhD,iBAAM;AAF0C;AAhCN;AAE1C;AACA,UAAY,gBAAD,QAAX,EACE,cAAsB,OAAX,iBAAc,+BAAH,CAA8B,SADtD;AAEA,wBAAc;AACd,yBAAe;AACf,0BAAgB;AAChB,wBAAc;AACd,sBAAY;AACZ,sBAAY,wCAAc,QAAC;AAC3B,mBAAQ,UAAR,GAAsB;AACtB,sBAAY;AACZ,8BAAoB;AACpB,sBAAY;AACZ,UAAY,WAAD,QAAX,EACE,WAAM,iBADR;AAfqE;AAA3B;AAlBF;AAExC,UAAa,8BAAH,eAAP,MAAO,CAAV;AAEE,wBAAoB,OAAP,OAAU,8BAAH,CAA6B;AACjD,2BAAuB,OAAP,OAAU,8BAAH,CAA6B;AACpD,wBAAoB,OAAP,OAAU,8BAAH,CAA6B;AACjD,qBAAiB,OAAP,OAAU,8BAAH,CAA6B;AAC9C,wBAAoB,OAAP,OAAU,8BAAH,CAA6B;AACjD,0BAAsB,OAAP,OAAU,8BAAH,CAA6B;AACnD,gCAA4B,OAAP,OAAU,8BAAH,CAA6B;AACzD,qBAAQ,OAAO,CAAS,OAAP,OAAU,8BAAH,CAA6B,SAAtC;AACf,4BAAwB,OAAP,OAAU,8BAAH,CAA6B;AACrD,0BAAsB,OAAP,OAAU,8BAAH,CAA6B;AACnD,qBAAiB,OAAP,OAAU,8BAAH,CAA6B;OAZhD;AAFwC;AAyJF;AAAL;AAEjC,eAAU;AACV,UAAG,CAAI,eAAP;AAEE,YAAG,aAAH;AAEE,cAAG,eAAM,KAAE,WAAM,eAAjB;AACE,qBAAU;AACP,oBAAG,eAAM,KAAE,WAAM,kBAAjB;AACH,qBAAU;AACP,oBAAG,eAAM,KAAE,WAAM,mBAAjB,EACH,SAAU,8CADP;SAIL,eAAU;OAZd;AAHiC;AAAK;AApHI;AAEjC,eAAT,KAAS;AACT;AACA,UAAY,WAAD,QAAX,EACE,WAAM,iBADR;AAJ0C;AA5yCjB;AAqCL,+BAAY,e9FmZrB,gC8FnZqB,CAAZ;AAUA;AACE;AACD;AACH;AACA;AACA;AACE;AACM;AACR,+BjB4iBJ,kDiB5iBI;AACH;AACe,2ChBidN,oEgBjdM;AACF,yChBgdJ,oEgBhdI;AACb;AA3DU;AA+DC;;;AAMxB;AANwB;;;;;AAs4Ce;AAAP;AAGlC,eAA8C,YAAK,CAAC,KAAD;AAHjB;AAAO;AAiBC;AAGhC,kBAAK,CAAC,MAAU,KAAX;AAH2B;AAtBO;AAAf;AAElC,eAAU;AAFwB;AAAe;AAWP;AAAR;AAElC,eAAU;AAFwB;AAAQ;AAjBC;AAE3B,sDAAC,OAAQ,sBAAT;AAChB,sBAAU;AAHiE;AAAhC;AALN;AAAH;AAElC,eAA8C;AAFZ;AAAG;AA2BG;AAAN;AAGlC,eAAoD,yCAAC,KAAD;AAHlB;AAAM;AAj5Cd;AAaN,+BAAO,UA6GN,mCA7GM,CAAP;AAbM;AAmBK;;;AAE7B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAhB6B;;;;;;;;;;;;;;;;;AA6/CgB;AAE/C,gBAAK,OAAO,CAAC,KAAD;AAFmC;AAUI;AAEnD,oBAAS,OAAO,CAAC,KAAD;AAFmC;AAKC;AAEpD,qBAAU,OAAO,CAAC,KAAD;AAFmC;AAKG;AAEvD,wBAAa,OAAO,CAAC,KAAD;AAFmC;AAUK;AAG5D,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB;OAHF;AAH4D;AAgBX;AAEjD,kBAAO,OAAO,CAAC,KAAD;AAFmC;AAWI;AAGrD,sBAAW,OAAO,CAAC,KAAD;AAHmC;AAMC;AAGtD,uBAAY,OAAO,CAAC,KAAD;AAHmC;AAMG;AAGzD,0BAAe,OAAO,CAAC,KAAD;AAHmC;AAMC;AAE1D,UAAG,qBAAiB,KAAG,KAAvB;AAEE,gCAAoB;AACpB;OAHF;AAF0D;AAtEH;AAEvD,wBAAa,OAAO,CAAC,KAAD;AAFmC;AA8CE;AAGzD,0BAAe,OAAO,CAAC,KAAD;AAHmC;AAXC;AAG1D,2BAAgB,OAAO,CAAC,KAAD;AAHmC;AAfX;AAE/C,gBAAK,aAAa,CAAC,KAAD;AAF6B;AAnCiB;AAAzB;AAEvC,eAAU,uBAAkB,KAAG,CAAH;AAFW;AAAyB;AAKF;AAAvB;AAEvC,eAAU,qBAAgB,KAAG,CAAH;AAFa;AAAuB;AAvFf;AAE/C,iBAAM;AAFyC;AA6EI;AAEnD,iBAAM;AAF6C;AALA;AAEnD,iBAAM;AAF6C;AAwGE;AAErD,iBAAM;AAF+C;AA3KL;AAEhD,oBAAU;AACV,mBAAS,qDAAmB,QAAC,ahB9xB+B,mEAA+C,SAAgD,QAAmD,GAAqD,EgB8xBtO;AAC7B,gBAAK,SAAC,CAAS,yCAAO,CAAC,SAAa,EAAd,CAAhB;AACN,wBAAc,qDAAmB,QAAC,ahBhyB0B,mEAA+C,SAAgD,QAAmD,GAAqD,EgBgyBjO;AAClC,qBAAU,SAAC,CAAS,yCAAO,CAAC,SAAkB,EAAnB,CAAhB;AACX,uBAAa,qDAAmB,QAAC,ahBlyB2B,mEAA+C,SAAgD,QAAmD,GAAqD,EgBkyBlO;AACjC,oBAAS,SAAC,CAAS,yCAAO,CAAC,QAAa,EAAd,CAAhB;AACV,2BAAiB,qDAAmB,QAAC,ahBpyBuB,mEAA+C,SAAgD,QAAmD,GAAqD,EgBoyB9N;AACrC,wBAAa,SAAC,CAAS,yCAAO,CAAC,QAAa,EAAd,CAAhB;AACd,2BAAiB,qDAAmB,QAAC,ahBtyBuB,mEAA+C,SAAgD,QAAmD,GAAqD,EgBsyB9N;AACrC,wBAAa,SAAC,CAAS,yCAAO,CAAC,QAAQ,EAAT,CAAhB;AAEd,qBAAW,uDAAqB,QAAC,ahB1pB6B,qEAA+C,QgB0pB5E;AACjC,kBAAO,SAAC,CAAS,QAAT;AACR,0BAAgB,uDAAqB,QAAC,ahB5pBwB,qEAA+C,QgB4pBvE;AACtC,uBAAY,SAAC,CAAS,QAAT;AACb,yBAAe,uDAAqB,QAAC,ahB9pByB,qEAA+C,QgB8pBxE;AACrC,sBAAW,SAAC,CAAS,OAAT;AACZ,6BAAmB,uDAAqB,QAAC,ahBhqBqB,qEAA+C,QgBgqBpE;AACzC,0BAAe,SAAC,CAAS,OAAT;AAChB,6BAAmB,uDAAqB,QAAC,ahBlqBqB,qEAA+C,QgBkqBpE;AACzC,0BAAe,SAAC,CAAS,QAAT;AAEhB,8BAAoB,uDAAqB,QAAC,ahBrqBoB,qEAA+C,QgBqqBnE;AAC1C,2BAAgB,SAAC,CAAS,QAAT;AAEjB,mBAAS,qDAAmB,QAAC;AAC7B,gBAAK,WAAL,GAAoB;AAEpB,2BAAgB,WAAhB,GAA+B;AAC/B,gBAAK,WAAL,GAAoB;AAEpB,gBAAK,WAAL,GAAoB;AACpB,oBAAS,WAAT,GAAwB;AACxB,qBAAU,WAAV,GAAyB;AACzB,wBAAa,WAAb,GAA4B;AAC5B,wBAAa,WAAb,GAA4B;AAE5B,kBAAO,WAAP,GAAsB;AACtB,uBAAY,WAAZ,GAA2B;AAC3B,sBAAW,WAAX,GAA0B;AAC1B,0BAAe,WAAf,GAA8B;AAC9B,0BAAe,WAAf,GAA8B;AAE9B,gCAAsB;AACtB,8BAAoB;AA/C4D;AAAhC;AA1BF;AAE9C,UAAa,oCAAH,eAAP,MAAO,CAAV;AAEE,kBAAK,OAAO,CAAS,OAAP,OAAU,oCAAH,CAAmC,MAA5C;AACZ,uBAAU,OAAO,CAAS,OAAP,OAAU,oCAAH,CAAmC,WAA5C;AACjB,0BAAa,OAAO,CAAS,OAAP,OAAU,oCAAH,CAAmC,cAA5C;AACpB,0BAAa,OAAO,CAAS,OAAP,OAAU,oCAAH,CAAmC,cAA5C;AACpB,sBAAS,OAAO,CAAS,OAAP,OAAU,oCAAH,CAAmC,UAA5C;AAChB,oBAAO,OAAO,CAAS,OAAP,OAAU,oCAAH,CAAmC,QAA5C;AACd,yBAAY,OAAO,CAAS,OAAP,OAAU,oCAAH,CAAmC,aAA5C;AACnB,4BAAe,OAAO,CAAS,OAAP,OAAU,oCAAH,CAAmC,gBAA5C;AACtB,wBAAW,OAAO,CAAS,OAAP,OAAU,oCAAH,CAAmC,YAA5C;AAClB,4BAAe,OAAO,CAAS,OAAP,OAAU,oCAAH,CAAmC,gBAA5C;AACtB,gCAA4B,OAAP,OAAU,oCAAH,CAAmC;AAC/D,kCAA8B,OAAP,OAAU,oCAAH,CAAmC;AACjE,6BAAgB,OAAO,CAAS,OAAP,OAAU,oCAAH,CAAmC,iBAA5C;AACvB,kBAAK,aAAa,CAAS,OAAP,OAAU,oCAAH,CAAmC,MAA5C;OAfpB;AAF8C;AA4EE;AAE1C,eAAN,KAAM;AACA,eAAN,KAAM;AACI,eAAV,KAAU;AACI,eAAd,KAAc;AACH,eAAX,KAAW;AACG,eAAd,KAAc;AACG,eAAjB,KAAiB;AACT,eAAR,KAAQ;AACI,eAAZ,KAAY;AACI,eAAhB,KAAgB;AACH,eAAb,KAAa;AACG,eAAhB,KAAgB;AAChB;AAdgD;AAx9CjB;AAuCX,+BAAO,UAgEN,mCAhEM,CAAP;AAIH,8BhBqvBI,iEgBrvBJ;AACF,4BhBwmBI,+DgBxmBJ;AACO,mChBmvBD,iEgBnvBC;AACF,iChBsmBD,+DgBtmBC;AACC,kChBivBA,iEgBjvBA;AACF,gChBomBA,+DgBpmBA;AACM,sChB+uBJ,iEgB/uBI;AACF,oChBkmBJ,+DgBlmBI;AACE,sChB6uBJ,iEgB7uBI;AACF,oChBgmBJ,+DgBhmBI;AACG;AACE;AACF,uChByuBL,iEgBzuBK;AACX,4BhBwnBI,+DgBxnBJ;AAxDgB;AA2DE;AAC/B;AAD+B;aAC/B;AAD+B;;AAC/B;AAD+B;;;AAC/B;AAD+B;AAOD;AAE9B;AACA;AACA;AAAQ;AAAK;AAAY;AAJK;;eAC9B;AAD8B;;;aAC9B,qBACA,IAAA,sBACA,IAAA,gCACA,IAAA,0BAAQ,IAAA,oBAAK,IAAA,kCAAY,gCAFzB;AAF8B;;AAC9B;AACA;AACA;AACA;AAAQ;AAAK;AAAY;AAJK;;;AAC9B,uBjB4HI,yCiB5HJ;AACA,uBAtJuB,uCAsJvB;AACA;AACA;AAAQ;AAAK;AAAY;AAJK;AAUY,8DAjBX,uDAiBW;AAAX,4DAAW,yDAAX;AAEA,wFAAmB,UvGnF7C,2BuGmF6C,EAAqB,0BAAxC;AACE,0FAAmB,UvGpF/C,2BuGoF+C,EAAqB,0BAAxC;AACL,qFAAmB,UvGrF1C,2BuGqF0C,EAAqB,0BAAxC;AACe,oGAAmB,UvGtFzD,2BuGsFyD,EAAoB,adhErE,qDcgEqE,EAAwB,SjB8GtG,yCiB9GsG,EAAoB,2BAA2B,8BAA9G;AACD,mGAAmB,UvGvFxD,2BuGuFwD,EAAoB,adjEpE,qDciEoE,EAAwB,SjB6GrG,yCiB7GqG,EAAoB,0BAAnF;AACF,iGAAmB,UvGxFtD,2BuGwFsD,EAAoB,adlElE,qDckEkE,EAAwB,SjB4GnG,yCiB5GmG,EAAoB,2BAA2B,8BAA9G;AACD,gGAAmB,UvGzFrD,2BuGyFqD,EAAoB,adnEjE,qDcmEiE,EAAwB,SjB2GlG,yCiB3GkG,EAAoB,0BAAnF;AACF,8FAAmB,UvG1FnD,2BuG0FmD,EAAoB,adpE/D,qDcoE+D,EAAwB,SjB0GhG,yCiB1GgG,EAAoB,2BAAoB,uBAA0B,8BAAjI;AACD,6FAAmB,UvG3FlD,2BuG2FkD,EAAoB,adrE9D,qDcqE8D,EAAwB,SjByG/F,yCiBzG+F,EAAoB,2BAAgB,oBAAnG;AACP,sFAAmB,UvG5F3C,2BuG4F2C,EAAoB,adtEvD,qDcsEuD,EAAwB,SjBwGxF,yCiBxGwF,EAA0B,8BAAzF;AACD,qFAAmB,UvG7F1C,2BuG6F0C,EAAoB,advEtD,qDcuEsD,EAAwB,SjBuGvF,yCiBvGuF,CAA/D;AAGE;AA0gDe;AAAP;AAExC,qBAA0C,cAAW,QAAK,CAAC,KAAD,CAAhB,CAA1C;AAFwC;AAAO;AAKC;AAEhD;AAEA,gBAAK,KAAL;AACU,cAAK,CAAC,MAAU,CAAX;AALiC;AA/gDhB;AAYX;;;AAEnB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAAoB;AAAmB;AAAmB;AAC1D;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAtBmB;;;;;;;;;;;;;;;;;;AA+hCiB;AAEtC,iBAAM,OAAO,CAAC,KAAD;AAFyB;AAVE;AAExC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;AACA;OAJF;AAFwC;AAeH;AAErC,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACT;AACA;OAJF;AAFqC;AArBM;AAG3C,sBAAW,OAAO,CAAC,KAAD;AAHyB;AA+BO;AAElD,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB,iCAAqB;AACrB;OAJF;AAFkD;AA/rBN;AAE5C;AACA;AACA,sBAAW,iBAAX,GAAgC,sCAAY,aAAa,CAAC,gBAAW,kBAAmB,EAAG,CAAlC;AACzD,sBAAW,mBAAX,GAAkC,sCAAY,aAAa,CAAC,gBAAW,oBAAqB,EAAG,CAApC;AAC3D,sBAAW,MAAK,UAAC,CAAU,sCAAY,UAAU,CAAC,gBAAW,MAAK,SAAS,EAAG,CAA7B,CAAhC;AACjB;AAP4C;AAykBQ;AAEpD;AACA,+BAAa,CAAC,0BAAD;AAHuC;AAkFd;AAAT;AAE7B,eAAU,2CAA+C,GAA3B,0BAAF,GAA+B,sBAAS,CAAC,eAAD,CAAX;AAF5B;AAAS;AAtYI;AAAb;AAE7B;AAEA,eAAoB;AACpB,UAAsB,CAAlB,sBAAkB,IAAG,CAAH,CAAM,IAAuB,CAAlB,sBAAkB,IAAgB,CAAb,WAAM,SAAC,EAAM,GAAE,CAAF,CAAhB,CAAnD;AAEE,aAAM,WAAM,WAAC,sBAAD;AACZ,iBAAU,EAAE;OAHd;AAL6B;AAAa;AA8PN;AAAP;AAE7B;AAEA,eAAU;AACV,UAAsB,CAAlB,sBAAkB,IAAG,CAAH,CAAM,IAAuB,CAAlB,sBAAkB,IAAgB,CAAb,WAAM,SAAC,EAAM,GAAE,CAAF,CAAhB,CAAnD;AAEE,aAAM,WAAM,WAAC,sBAAD;AACZ,iBAAU,EAAE,MAAM,KAAG,EAAH;OAHpB;AAL6B;AAAO;AA7GG;AAAV;AAE7B,eAAU,4BAAgB,CAAC,EAAS,EAAS,EAAS,CAA5B;AAFG;AAAU;AA8NI;AAAd;AAE7B;AACA;AAEA,YAAM,KAAC,SAAQ,+BAAK,CAAC,EAAG,EAAG,EAAG,CAAV,CAAb;AACP,YAAM,KAAN,GAAe;AACf,YAAM,UAAN,GAAoB,CAAC;AACrB,YAAM,IAAN,GAAc,CAAC;AACf,YAAM,OAAN,GAAiB,CAAC;AAClB,YAAM,WAAN,GAAqB,CAAC;AACtB,YAAM,QAAN,GAAkB,CAAC;AACnB,eAAS,QAAwB,OAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,kBAAjC;AAAI;AAEF,aAAM,iBAAY,SAAC,CAAD,CAAG;AACrB,YAAW,CAAC,EAAD,SAAK,IAAc,CAAT,EAAE,SAAC,EAAM,KAAE,UAAF,CAA9B;AAEE,yBAAU,iBAAY,SAAC,CAAD,CAAtB;AACA;SAHF;;AAf2B;AAAc;AAlVO;AAArB;AAE7B;AACA;AAEA,eAAU;AACV,eAAS,QAAwB,OAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,kBAAjC;AAAI;AAEF,aAAM,iBAAY,SAAC,CAAD,CAAG;AACrB,YAAW,CAAC,EAAD,SAAyC,IAAhC,EAAE,SAAN,IAAmB,CAAI,EAAE,WAAV,IAAmC,CAAT,EAAE,SAAC,EAAM,GAAE,sBAAF,CAAlE;AAEE,mBAAU,EAAE,SAAC;AACb;SAHF;;AAT2B;AAAqB;AA4CI;AAAzB;AAE7B;AACA;AAEA,eAAU;AACV,eAA4B,KAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,EAAW,aAAvC;AAAI;AAEF,aAAM,iBAAY,SAAC,CAAD,CAAG;AACrB,YAAW,CAAC,EAAD,SAAyC,IAAhC,EAAE,SAAN,IAAmB,CAAI,EAAE,WAAV,IAAmC,CAAT,EAAE,SAAC,EAAM,GAAE,sBAAF,CAAlE;AAEE,mBAAU,EAAE,SAAC;AACb;SAHF;;AAT2B;AAAyB;AA3BD;AAAxB;AAE7B;AACA;AACA;AAEA,eAAU;AACV,UAAG,MAAO,KAAE,CAAC,CAAb;AAEE,iBAAU;AACV;OAHF;AAMA,mBAAQ,mBAAc,CAAC,sBAAD,CAAtB;AACA,eAAS,QAAwB,OAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,kBAAjC;AAAI;AAEF,aAAM,iBAAY,SAAC,CAAD,CAAG;AACrB,YAAW,CAAC,EAAD,SAET,IAFkB,EAAE,SAAN,IAAmB,CAAI,EAAE,WAAV,IAAmC,CAAT,EAAE,SAAC,EAAM,GAAE,sBAAF,CAAd,IAAoD,CAAZ,IAAI,OAAQ,IAAG,iBAAY,SAAC,CAAD,CAAG,OAAlB,CAAjB,IACxE,CAAZ,IAAI,OAAQ,IAA0B,CAAvB,iBAAY,SAAC,CAAD,CAAG,OAAQ,GAA8B,CAA3B,iBAAY,SAAC,CAAD,CAAG,WAAY,GAAE,CAAF,CAA9B,CAA1B,CADoH,IAExG,CAApB,iBAAY,SAAC,CAAD,CAAG,IAAK,GAAE,IAAI,IAAN,CAF3B;AAIE,mBAAU,EAAE,SAAC;AACb;SALF;;AAjB2B;AAAwB;AA4CI;AAA5B;AAE7B;AACA;AACA;AAEA,eAAU;AACV,UAAG,MAAO,KAAE,CAAC,CAAb;AAEE,iBAAU;AACV;OAHF;AAMA,mBAAQ,mBAAc,CAAC,sBAAD,CAAtB;AACA,eAA4B,KAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,EAAW,aAAvC;AAAI;AAEF,aAAM,iBAAY,SAAC,CAAD,CAAG;AACrB,YAAW,CAAC,EAAD,SACkE,IADzD,EAAE,SAAN,IAAmB,CAAK,EAAE,WAAX,IAAqC,CAAT,EAAE,SAAC,EAAM,GAAE,sBAAF,CAAd,IAAoD,CAAZ,IAAI,OAAQ,IAAG,iBAAY,SAAC,CAAD,CAAG,OAAlB,CAAjB,IAC1E,CAAZ,IAAI,OAAQ,IAA0B,CAAvB,iBAAY,SAAC,CAAD,CAAG,OAAQ,GAA8B,CAA3B,iBAAY,SAAC,CAAD,CAAG,WAAY,GAAE,CAAF,CAA9B,CAA1B,CADsH,IAC/B,CAApB,iBAAY,SAAC,CAAD,CAAG,IAAK,GAAE,IAAI,IAAN,CADtG;AAGE,mBAAU,EAAE,SAAC;AACb;SAJF;;AAjB2B;AAA4B;AAhHN;AAAtB;AAE7B;AACA;AAEA,eAAU;AACV,eAAS,QAAwB,OAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,kBAAjC;AAAI;AAEF,aAAM,iBAAY,SAAC,CAAD,CAAG;AACrB,YAAW,CAAC,EAAD,SAAoB,IAAX,EAAE,SAAN,IAAmB,CAAI,EAAE,WAAzC;AAEE,mBAAU,EAAE,SAAC;AACb;SAHF;;AAT2B;AAAsB;AAkCD;AAArB;AAE7B;AACA;AAEA,eAAU;AACV,eAA4B,KAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,EAAW,aAAvC;AAAI;AAEF,aAAM,iBAAY,SAAC,CAAD,CAAG;AACrB,YAAW,CAAC,EAAD,SAAoB,IAAX,EAAE,SAAN,IAAmB,CAAI,EAAE,WAAzC;AAEE,mBAAU,EAAE,SAAC;AACb;SAHF;;AAT2B;AAAqB;AAjQA;AAArB;AAE7B,eAAU,+BAA0B,QAAC,YAAM,CAAC,IAAD,CAAN;AAFR;AAAqB;AAtNN;;AAE5C;AACA;AAAG;AAAM;AAAG;AACZ;AACA;AACA;AAAO;AAAO;AAAU;AACxB;AACA;AACA;AACA;AACA;AACA;AAAI;AACJ;AAAI;AACJ;AAAG;AACH;AAAK;AACL;AAAI;AACJ;AAAI;AACJ;AACA;AAEoB;AAElB;AAAG;AACH;AAAO;AACP;AAAG;AAEH,mBAAU,KAAV;AACA,iBAAS,kBAAe,OAAN,KAAM,GAAE,CAAF,kBAAxB;AAAI;AAEF,mBAAS,mBAAkB,QAAT,QAAS,GAAE,CAAF,qBAA3B;AAAI;AAEF,oBAAS,KAAK;AACd,oBAAS,QAAG,CAAC,MAAO,cAAQ,GAAE,WAAlB;AACZ,oBAAS,KAAK;AACd,oBAAS,QAAG,CAAC,MAAO,WAAK,GAAE,WAAf;AAEZ,uBAAU,IAAV;AACA,qBAAS,SAAW,QAAN,KAAM,GAAE,CAAF,qBAApB;AAAI;AAEF,uBAAS,SAAW,QAAN,KAAM,GAAE,CAAF,qBAApB;AAAI;AAEF,oBAAG,MAAM,CAAC,CAAE,GAAE,CAAL,EAAQ,CAAE,GAAE,CAAZ,CAAc,QAAvB,EACE,WAAU,KAAV,CADF;;;AAKJ,gBAAG,YAAH,EACE,KADF;AA1B8E,iBA4B9E,KA5B8E,KA4B9E,SAAG,CAAH;;AAEF,cAAG,YAAH,EACE,KADF;AAGA,oBAAS,CAAT;AAjC4D,eAkC5D,KAlC4D,KAkC5D,SAAG,CAAH;;AAlCgB;AAsCpB,UAAiB,CAAb,4CAAa,IAAG,oBAAH,CAAmB,IAAiB,CAAb,mBAAa,GAAE,CAAF,CAArD,EACE,MADF;AAGA,uBAAY;AAEZ,UAAG,WAAK,SAAC,EAAM,KAAE,CAAjB,EACE,MADF;AAGA,WAAM;AACN,WAAM;AACN,WAAM,gBAAU;AAChB,WAAM,gBAAU;AAChB,UAAK,EAAG,GAAE,EAAF;AACR,WAAM;AACN,UAAG,aAAQ,GAAE,CAAb,EACE,KAAS,CAAF,CAAE,GAAW,CAAR,aAAQ,GAAE,EAAF,CAAX,CAAkB,GAAE,aAD/B;AAGA,UAAK,EAAQ,GAAH,EAAF,GAAO,8BAAF;AACb,aAAQ;AACR,WAAM;AACN,UAAS,CAAL,UAAK,GAAE,IAAF,CAAQ,GAAE,CAAnB,EACE,KAAS,CAAF,CAAE,GAAiB,CAAR,CAAL,UAAK,GAAE,IAAF,CAAQ,GAAE,EAAF,CAAjB,CAAwB,GAAQ,CAAL,UAAK,GAAE,IAAF,CAD3C;AAGA,mBAAc;AACd,mBAAc;AACd,aAAQ;AACR,aAAM,UAAW,IAAe,CAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,CAAhC;AAEE,YAAK;AACL,YAAK;AACK,gBAAD,sBAAC,gDAAU,EAAG,CAAd;AACC,gBAAD,sBAAC,gDAAU,WAAM,aAAjB;AAET,eAAM,CAAE,GAAE,UAAV;AAEE,iBAAO,CAAE,GAAE,aAAX;AAEE,gBAAe,CAAX,UAAW,IAAG,CAAH,CAA0C,IAApB,CAAX,UAAW,IAAe,CAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,CAAf,CAAhB,IAAoD,CAAX,UAAW,KAAE,CAAF,CAAzE;AAEE,sBAAS,WAAK,WAAC,UAAD;AACd,kBAAG,CAAI,KAAK,SAAZ;AAEM,0BAAJ,IAAG;AACH;eAHF;AAMA,kBAAG,KAAK,WAAR;AAEE,wBAAS;AACT,wBAAS;;AAIT,wBAAS,KAAK;AACd,wBAAS,KAAK;;AAGhB,sBAAS,QAAG,CAAC,MAAO,aAAQ,GAAE,CAAlB;AACZ,sBAAS,QAAG,CAAC,MAAO,UAAK,GAAE,CAAf;AAEZ,oBAAU,CAAH,EAAG,GAAE,KAAF,CAAQ,GAAM,CAAH,EAAG,GAAS,CAAN,KAAM,GAAE,CAAF,CAAT,CAAN;AAClB,kBAAG,KAAK,WAAR;AACE,sBAAO,KAAK;AAEZ,0BAAU,CAAH,EAAG,GAAE,KAAF,CAAQ,GAAM,CAAH,EAAG,GAAS,CAAN,KAAM,GAAE,CAAF,CAAT,CAAN;AAEpB,mBAAU,CAAH,EAAG,GAAE,UAAF,CAA4B,GAAZ,EAAF,GAAU,CAAH,EAAG,GAAE,CAAF,CAAL,GAAe,CAAH,EAAG,GAAE,CAAF,CAAN;AACtC,mBAAM,IAA8B,GAAvB,EAAF,GAAU,CAAH,EAAG,GAAE,CAAF,CAAL,GAAe,CAAH,EAAG,GAAE,CAAF,CAAN,GAAa,mBAAF;AAEpC,iBAAG,KAAC,SAAQ,+BAAK,CAAC,EAAG,GAAE,KAAK,SAAQ,MAAf,CAAsB,EAAG,GAAE,KAAK,SAAQ,KAAf,CACzC,CAAH,EAAG,GAAE,GAAF,CAAM,GAAE,KAAK,SAAQ,OAAf,CAA0B,CAAH,EAAG,GAAE,GAAF,CAAM,GAAE,KAAK,SAAQ,QADzC,CAAb;AAEJ,iBAAG,KAAH,GAAY;AACZ,iBAAG,UAAH,GAAiB;AACjB,iBAAG,OAAH,GAAc;AACd,iBAAG,IAAH,GAAW;AACX,iBAAG,WAAH,GAAkB;AAClB,iBAAG,QAAH,GAAe;AACf,+BAAY,IAAI,CAAC,iDAAD;AAEhB,yBAAY;AACZ,yBAAY;AACZ,yBAAqB,CAAT,QAAS,GAAE,KAAF,CAAQ,GAAE,CAAF;AAC7B,yBAAqB,CAAT,QAAS,GAAE,KAAF,CAAQ,GAAE,CAAF;AAE7B,uBAAS,QAAK,iCAAd;AAAI;AACF,yBAAS,SAAK,qCAAd;AAAI;AACF,0BAAQ,CAAC,CAAD,EAAI,CAAJ,CAAM,QAAd,GAA0B;;;AAE9B,kBAAG,KAAK,WAAR,EACE,OAAqC,CAAxB,CAAL,IAAK,GAAE,KAAK,iBAAP,CAAwB,GAAK,CAAH,EAAG,GAAE,KAAF,CAAL,CAAa,GAAM,CAAH,EAAG,GAAS,CAAN,KAAM,GAAE,CAAF,CAAT,CAD1D;aAnDF;AAsDI,sBAAJ,IAAG;AACC,aAAJ,IAAG;AACH,mBAAQ;AACR,mBAAQ;AACR,gBAAK;AACL,gBAAe,CAAX,UAAW,IAAG,CAAH,CAAM,IAAgB,CAAX,UAAW,IAAe,CAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,CAAf,CAArC,EACE,UAAU,CAAC,WAAK,WAAC,UAAD,EAAc;;;;iBAAM;;;;iBAAM;;;;iBAAG,WAAM,KAAM,cAAS,KAAM,sBAA9D,CADZ;AAEA,gBAAK;AACL,gBAAK;AAEL,gBAAM,CAAF,CAAE,IAAG,aAAH,CAAY,IAAM,CAAF,CAAE,IAAG,UAAH,CAAxB,EACE,KADF;;AAGF,cAAK;AACD,WAAJ,IAAG;AACH,iBAAQ;AACR,iBAAQ;AACR,cAAK;AACL,cAAe,CAAX,UAAW,IAAG,CAAH,CAAM,IAAgB,CAAX,UAAW,IAAe,CAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,CAAf,CAArC,EACE,UAAU,CAAC,WAAK,WAAC,UAAD,EAAc;;;;eAAM;;;;eAAM;;;;eAAG,WAAM,KAAM,cAAS,KAAM,sBAA9D,CADZ;AAEA,cAAK;AACL,cAAK;AACL,cAAG,CAAE,IAAG,UAAR,EACE,KADF;;AAGE,kBAAJ,IAAG;;AAGL,wBAAc;AACd;AAnL4C;AA+yBI;;AAz2BR;AAExC;AAEA;AAEA,UAAK;AACL,UAAG,wCAAa,4BAA4B,CAAC;;;;UAAD,CAA5C,EACE,UAAI,SAAC,CAAS,CAAT,CADP;AAGA,UAAK;AACL,UAAG,wCAAa,8BAA8B,CAAC;;;;UAAD,CAA9C,EACE,YAAM,SAAC,CAAS,CAAT,CADT;AAGA,UAAK;AACL,UAAG,wCAAa,+BAA+B,CAAC;;;;UAAD,CAA/C,EACE,gBAAU,MAAK,SAAC,CAAS,CAAT,CADlB;AAGA,UAAK;AACL,UAAG,wCAAa,2BAA2B,CAAC;;;;UAAD,CAA3C;AAEE,wBAAU,cAAa,SAAC,CAAS,CAAT;AACxB,wBAAU,UAAS,SAAC,CAAS,CAAT;AACpB,wBAAU,WAAU,SAAC,CAAS,uCAAK,CAAC,EAAG,gBAAU,MAAK,QAAQ,EAA3B,CAAd;OAJvB;AAOA,UAAK;AACL,UAAG,wCAAa,iCAAiC,CAAC;;;;UAAD,CAAjD;AAEE,wBAAU,QAAO,SAAC,CAAS,CAAT;AAClB,wBAAU,gBAAe,SAAC,CAAS,CAAT;AAC1B,wBAAU,YAAW,SAAC,CAAS,CAAT;AACtB,wBAAU,aAAY,SAAC,CAAS,CAAT;OALzB;AAQA,UAAK;AACL,UAAG,wCAAa,sBAAsB,CAAC;;;;UAAD,CAAtC,EACE,gBAAU,MAAK,SAAC,CAAS,CAAT,CADlB;AApCwC;AAo0BS;AAEjD;AACA,gBAAI,QAAC,CAAQ,kEAAR;AACL,kBAAM,QAAC,CAAQ,oEAAR;AACP,gBAAI,SAAC,CAAS,QAAT;AACL,kBAAM,SAAC,CAAS,QAAT;AAEP,sBAAU,MAAK,SAAC,CAAS,yCAAO,CAAC,SAAa,EAAd,CAAhB;AAChB,sBAAU,WAAU,SAAC,CAAS,yCAAO,CAAC,SAAkB,EAAnB,CAAhB;AACrB,sBAAU,UAAS,SAAC,CAAS,yCAAO,CAAC,QAAa,EAAd,CAAhB;AACpB,sBAAU,cAAa,SAAC,CAAS,yCAAO,CAAC,QAAa,EAAd,CAAhB;AACxB,sBAAU,cAAa,SAAC,CAAS,yCAAO,CAAC,QAAQ,EAAT,CAAhB;AAExB,sBAAU,QAAO,SAAC,CAAS,QAAT;AAClB,sBAAU,aAAY,SAAC,CAAS,QAAT;AACvB,sBAAU,YAAW,SAAC,CAAS,OAAT;AACtB,sBAAU,gBAAe,SAAC,CAAS,OAAT;AAC1B,sBAAU,gBAAe,SAAC,CAAS,QAAT;AAE1B,sBAAU,MAAK,SAAC,CAAS,CAAT;AAEhB,sBAAU,MAAK,QAAC,CAAQ,kEAAR;AAChB,sBAAU,WAAU,QAAC,CAAQ,kEAAR;AACrB,sBAAU,UAAS,QAAC,CAAQ,kEAAR;AACpB,sBAAU,cAAa,QAAC,CAAQ,kEAAR;AACxB,sBAAU,cAAa,QAAC,CAAQ,kEAAR;AAExB,sBAAU,QAAO,QAAC,CAAQ,oEAAR;AAClB,sBAAU,aAAY,QAAC,CAAQ,oEAAR;AACvB,sBAAU,YAAW,QAAC,CAAQ,oEAAR;AACtB,sBAAU,gBAAe,QAAC,CAAQ,oEAAR;AAC1B,sBAAU,gBAAe,QAAC,CAAQ,oEAAR;AAE1B,sBAAU,iBAAgB,QAAC,CAAQ,oEAAR;AAlCsB;AA3MR;AAAZ;AAE7B,eAAU;AAFmB;AAAY;AAkCO;AAAnB;AAE7B,eAAU;AAFmB;AAAmB;AA3JC;AAApB;AAE7B,eAAU,gBAAO,GAAE,mBAAF;AAFY;AAAoB;AA0IG;AAAvB;AAE7B;AAEA,eAAU;AACV,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,YAAG,WAAK,WAAC,CAAD,CAAG,WAAX,EACE,SAAU,MAAkC,GAAzB,WAAK,WAAC,CAAD,CAAG,iBAAV,GAA6B,gBAAU,iBAD1D;;AAP2B;AAAuB;AAZD;AAAtB;AAE7B;AAEA,eAAU;AACV,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,YAAG,WAAK,WAAC,CAAD,CAAG,WAAX,EACM,MAAJ,IAAG,CADL;;AAP2B;AAAsB;AAzSP;AAE5C,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,UAAP,CADhB;AAF4C;AAMH;AAEzC,UAAY,iBAAD,QAAX,EACE,iBAAW,CAAC,KAAM,UAAP,CADb;AAFyC;AAMK;AAE9C,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,UAAP,CADlB;AAF8C;AAlCU;AAGxD,UAAY,gCAAD,QAAX,EACE,gCAA0B,CAAC,KAAM,UAAW,+CAAO,WAAY,YAArC,CAD5B;AAHwD;AArBD;AAGvD,UAAY,+BAAD,QAAX,EACE,+BAAyB,CAAC,KAAM,UAAW,+CAAO,UAAzB,CAD3B;AAHuD;AA4BF;AAGrD,UAAY,6BAAD,QAAX,EACE,6BAAuB,CAAC,KAAM,UAAW,+CAAO,WAAY,YAArC,CADzB;AAHqD;AArBD;AAGpD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,UAAW,+CAAO,UAAzB,CADxB;AAHoD;AA4BF;AAIlD,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,UAAW,+CAAO,WAAY,MAAO,YAA5C,CADtB;AAJkD;AArBD;AAGjD,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,UAAW,+CAAO,WAAY,KAArC,CADrB;AAHiD;AArBP;AAG1C,UAAY,oBAAD,QAAX,EACE,oBAAY,CAAC,KAAM,UAAW,+CAAO,YAAzB,CADd;AAH0C;AAND;AAEzC,UAAY,mBAAD,QAAX,EACE,mBAAW,CAAC,KAAM,UAAW,8CAAlB,CADb;AAFyC;AAyKF;AAEvC;AAEA,eAAS,QAAwB,OAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,kBAAjC;AAAI;AACF,qBAAQ,CAAC,UAAuB,6CAAZ,iBAAY,SAAC,CAAD,EAAxB;;AAL6B;AAyUL;AAElC;AAEA;AACA,UAAK;AACL,yBAAY,CAAC,UAAW,+CAAO;;;;UAAnB;AACZ,UAAG,CAAH;AAEE,sBAAS,CAAC,SAAD;AACT,0BAAW,CAAC,UAAW,8CAAZ;OAHb;AAPkC;AAjaI;AAGtC,6BAAkB,CAAC,UAAW,0DAAZ;AAClB,0BAAe,CAAC,UAAW,0DAAZ;AACf,uBAAY,CAAC,UAAW,0DAAZ;AAL0B;AAQU;AAEhD;AACA;AACA;AACA;AAEA,WAAM,YAAY;AAClB,UAAY,EAAD,QAAX;AAEE,YAAG,CAAI,EAAE,WAAT;AAEE,mBAAS,MAAK,OAAO,CAAC,gBAAU,MAAX;AACrB,mBAAS,QAAO,OAAO,CAAC,gBAAU,QAAX;AACvB,cAAG,EAAE,SAAL;AAEE,gBAAG,EAAE,SAAC,EAAM,KAAE,mBAAd;AAEE,uBAAS,MAAK,OAAO,CAAC,gBAAU,UAAX;AACrB,uBAAS,QAAO,OAAO,CAAC,gBAAU,YAAX;aAEpB,UAAG,EAAE,SAAC,EAAM,KAAE,sBAAd;AAEH,uBAAS,MAAK,OAAO,CAAC,gBAAU,WAAX;AACrB,uBAAS,QAAO,OAAO,CAAC,gBAAU,aAAX;aAEpB,UAAG,EAAE,SAAC,EAAM,KAAE,uBAAd;AAEH,uBAAS,MAAK,OAAO,CAAC,gBAAU,cAAX;AACrB,uBAAS,QAAO,OAAO,CAAC,gBAAU,gBAAX;aAHpB;;AAQL,qBAAS,MAAK,OAAO,CAAC,gBAAU,cAAX;AACrB,qBAAS,QAAO,OAAO,CAAC,gBAAU,gBAAX;;SAIzB,MAAA,SAAS,QAAO,OAAO,CAAC,gBAAU,iBAAX;AAEzB,kBAAK,YAAY,KAAjB;AACA,YAAK;AACL,uCAA0B,CAAC,UAAuB,wCAAZ,YAAY,OAAO,EAAE,SAAC,GAAO;;;;YAAzC;AAC1B,YAAG,CAAH;AAEE,cAAG,EAAE,WAAL;AACE,qBAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,CAAC,MAAO,uCAAa,CAAC,CAAD,CAAG,EAAzB,GAAoC,yCAAN,gCAAM,CAAC,CAAC,OAAQ,uCAAa,CAAC,CAAD,CAAG,EAA1B,GdxiBsD,+EAAyE,8EcwiB1K;;AAGlB,qBAAS,gBAAc,CAAC,2Cd7hBiE,6Ec6hBlE;AACvB,gBAAG,gBAAU,IAAuB,CAAlB,sBAAkB,KAAE,EAAE,SAAC,EAAL,CAApC;AAEE,yBAAM,CAAN;AACA,qDAAa,CAAC,GAAI,oBAAe,CAAC,CAAC,CAAF,EAAM,oBAAe,CAAC,CAAC,CAAF,CAAzC;AACb,uBAAS,qBAAmB,CAAC,4Cd5iBwC,EAA+D,6Ec4iBxG;aAJ9B;;AAQF,wCAAyB,CAAC,UAAuB,wCAAZ,YAAY,OAAO,EAAE,SAAC,EAAlC;SAf3B;OApCF;AARgD;AAgEH;AAG7C;AACA;AAEA,WAAM,YAAY;AAClB,UAAY,EAAD,QAAX;AAEE,YAAK;AACL,oCAAuB,CAAC,UAAuB,wCAAZ,YAAY,OAAO,EAAE,SAAC,GAAO;;;;YAAzC;AACvB,YAAG,CAAH,EACE,2BAAsB,CAAC,UAAuB,wCAAZ,YAAY,OAAO,EAAE,SAAC,EAAlC,CADxB;OAJF;AAP6C;AAwBH;AAG1C;AACA;AACA;AACA;AAEA,WAAM,YAAY;AAClB,UAAW,CAAC,EAAD,SAAK,IAAa,CAAR,EAAE,MAAM,KAAG,EAAH,CAA7B;AAEE,kBAAK,YAAY,KAAjB;AACA,cAAO,EAAE;AACT,YAAK;AACL,+CAAa,CAAC,EAAG,CAAC,EAAG,CAAC,CAAT;AACb,iBAAS,MAAK,aAAa,CAAC,gBAAU,MAAX;AAC3B,iCAAoB,CAAC,UAAuB,wCAAZ,YAAY,OAAO,EAAE,SAAC,GAAO;;;;aAAK;;;;YAA9C;AACpB,YAAG,CAAH;AAEE,mBAAS,WAAS,CAAC,2CAAG,IAAK,MAAO,EAAE,sBAAsB,EAAE,oBdvf0K,sEAA0B,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CcsfxJ;AAClB,kCAAmB,CAAC,UAAuB,wCAAZ,YAAY,OAAO,EAAE,SAAC,GAAO,GAAzC;SAHrB;OARF;AAT0C;AAwQG;AAG7C;AACA;AACA,4BAAkB,aAAQ,CAAC,EAAG,CAAJ;AAC1B;AAN6C;AA0BF;AAG3C;AAEA;AACA;AACA,UAAK,aAAQ,CAAC,EAAG,CAAJ;AACb,UAAM,CAAF,CAAE,KAAE,mBAAF,CAAkB,IAAoB,CAAf,mBAAe,KAAG,CAAC,CAAJ,CAA5C;AAEE,6BAAgB,CAAC,CAAD;AAChB,YAAG,CAAE,KAAG,CAAC,CAAT,EACE,gBAAW,CAAC,CAAD,CADb;OAHF;AAMA,4BAAkB,CAAC;AACnB,+BAAqB,CAAC;AACtB;AAhB2C;AAjBE;AAE7C;AAEA;AACA,UAAG,mBAAe,GAAE,CAAC,CAArB,EACE,MADF;AAGA,UAAK,aAAQ,CAAC,EAAG,CAAJ;AACb,UAAG,CAAE,KAAG,sBAAR;AAEE,iCAAqB;AACrB;AACA;OAJF;AAT6C;AA/DF;AAE3C;AACK;AACH,UADG,IACH;AAEE,iCAAqB;AACrB;OAEF,UANG,IAMH;AAEE,iCAAqB;AACrB;OAEF,UAXG,IAWH;AAEE,iCAAqB;AACrB;OAEF,UAhBG,IAgBH;AAEE,iCAAqB;AACrB;OAEF,UArBG,IAqBH;AAEE,iCAAqB;AACrB;OAEF,UA1BG,IA0BH;AAEE,iCAAqB;AACrB;OAHF;AAOF,UAAI,SAAI,KAAE,EAAV;AAEE,8BAAkB;AAClB;OAHF;AApC2C;AA2CF;AAEzC;AACA,UAAI,SAAI,KAAE,EAAV;AAEE,8BAAkB,CAAC;AACnB,6BAAgB,CAAC,sBAAD;AAChB;OAJF;AAHyC;AApWK;AAE9C;AACA,+BAAqB,CAAC;AACtB;AAJ8C;AAsbA;AAE9C;AACA;AAEA,UAAe,CAAX,UAAW,IAAG,CAAH,CAAM,IAAgB,CAAX,UAAW,IAAe,CAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,CAAf,CAArC;AAEE,aAAM,WAAM,WAAC,UAAD;AACZ,YAAG,EAAE,WAAL;AAEE,iBAAQ;AACR,cAAG,EAAE,aAAa,IAAc,CAAT,EAAE,SAAC,EAAM,KAAE,uBAAF,CAAhC;AACE,sCAAsB,CAAC;AAEvB,0CAAsB,EAAE,SAAC;AAE3B,cAAG,uBAAmB,KAAG,CAAC,CAA1B,EACE,yBAAqB,uBADvB;AAGA,cAAG,EAAE,aAAa,IAAU,CAAL,IAAK,KAAG,CAAC,CAAJ,CAA5B,EACE,qBAAgB,CAAC,IAAD,CADlB;AAGA,cAAG,uBAAmB,KAAG,CAAC,CAA1B,EACE,mBAAc,CAAC,uBAAD,CADhB;SAdF;OAHF;AAL8C;AAniBR;AAEtC;AACA,sBAAY;AACZ,mBAAS;AACT,oBAAU;AACV,0BAAgB,qCAAgC,QAAC;AACjD,yBAAe,oCAA+B,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,gCAAsB,CAAC;AACvB,+BAAqB,CAAC;AACtB,+BAAqB,CAAC;AACtB,4BAAkB,CAAC;AAEnB,UAAG,mBAAH,EACE,wBADF;AAb2D;AAArB;AA2BA;AAE1B,eAAZ,KAAY;AACC,eAAb,KAAa;AACN,eAAP,KAAO;AACP;AALsC;AA7OF;AAEpC;AACA,UAAa,0BAAH,eAAP,MAAO,CAAV;AAEE,mBAAM,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,OAAlC;AACb,wBAAW,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,YAAlC;AAClB,qBAAiB,OAAP,OAAU,0BAAH,CAAyB;AAC1C,wBAAoB,OAAP,OAAU,0BAAH,CAAyB;OAL/C;AAHoC;AAYK;AAEzC;AACI,yBAAJ,IAAG;AAHsC;AAmbF;AAEvC;AACI,yBAAJ,IAAG;AACH,UAAG,mBAAa,KAAE,CAAlB,EACE,qBADF;AAJuC;AAwVM;AAE7C;AAF6C;AA+CS;AAEtD;AACA;AAHsD;AAnmBP;;AA8qBV;AAAR;AAE7B;AACA;AAEA,eAAU,CAAC;AACX,eAAS,QAAwB,OAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,kBAAjC;AAAI;AAEF,YAAG,oCAAU,CAAC,iBAAY,SAAC,CAAD,CAAG,MAAO,gCAAM,CAAC,EAAG,CAAJ,CAA7B,CAAb;AAEE,eAAM,iBAAY,SAAC,CAAD,CAAG;AACrB,cAAW,CAAC,EAAD,SAAoB,IAAX,EAAE,SAAN,IAAmB,CAAI,EAAE,WAAzC;AAEE,qBAAU,EAAE,SAAC;AACb;WAHF;SAHF;;AAR2B;AAAQ;AAxjChB;;;;;;;AAgGD,+BAAO,U9FqPjB,+B8FrPiB,CAAP;AAhGC;AA6GC;;;;;;;;AAEP,4BhB8bI,+DgB9bJ;AACE,8BhBykBI,iEgBzkBJ;AACC;AAJI;AA+5CxB;AACE,6BAAa,CAAC,0BAAD;AADf;AAvuDA,GA+Uc,6DA/Ud;ACAA,wCAWS,+PAXT;;;;AA4B+B,oFAAmB,UxGmFzC,2BwGnFyC,EAAoB,afyGrD,qDezGqD,EAAwB,SlBuRtF,yCkBvRsF,EAA0B,8BAAzF;AACD,mFAAmB,UxGkFxC,2BwGlFwC,EAAoB,afwGpD,qDexGoD,EAAwB,SlBsRrF,yCkBtRqF,CAA/D;AAET;;;AAEjB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AArCiB;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAsjBiB;;AA3NI;AAAb;AAE3B,eAAoC,cAAU;AAFnB;AAAa;AAKH;AAAV;AAE3B,eAAoC,cAAU;AAFnB;AAAU;AAsoBF;AAAR;AAE3B,eAAoC,cAAU;AAFnB;AAAQ;AAUD;AAAP;AAE3B,eAAoC,cAAU;AAFnB;AAAO;AAKa;AAApB;AAE3B,eAAoC,cAAU;AAFnB;AAAoB;AAxmBN;AAGf,oBAAU,YAAW,OAAO,CAAC,KAAD;AAHb;AAMH;AAEZ,oBAAU,WAAC,CAAW,KAAX;AAFC;AAsFF;AAEV,oBAAU,OAAM,OAAO,CAAC,KAAD;AAFb;AAKD;AAET,oBAAU,QAAC,CAAQ,KAAR;AAFF;AAKa;AAEtB,oBAAU,qBAAC,CAAqB,KAArB;AAFW;AAyed;AAAP;AAE3B,eAAoC,cAAU;AAFnB;AAAO;AAmCE;AAAT;AAE3B,eAAoC,cAAU;AAFnB;AAAS;AA9iBD;AAET,oBAAU,MAAK,OAAO,CAAC,KAAD;AAFb;AAgDE;AAEX,oBAAU,QAAO,OAAO,CAAC,KAAD;AAFb;AA1FQ;AAE7C,6BAAmB;AACnB,UAAY,WAAD,QAAX,EACE,WAAM,kBAAC,CAAkB,oBAAlB,CADT;AAH6C;AAOD;AAE5C,4BAAkB;AAClB,UAAY,WAAD,QAAX,EACE,WAAM,iBAAC,CAAiB,mBAAjB,CADT;AAH4C;AAgnBK;AAAtB;AAE3B,eAAU,oBAAe,KAAG,GAAH;AAFE;AAAsB;AAKD;AAArB;AAE3B,eAAU,mBAAc,KAAG,GAAH;AAFG;AAAqB;AAxDb;AAAR;AAE3B,eAAU;AAFiB;AAAQ;AAeG;AAAX;AAE3B,eAAU;AAFiB;AAAW;AAlgBE;AAExC,UAAG,iBAAW,KAAG,KAAjB;AAEE,4BAAc;AACd;OAHF;AAFwC;AAhGF;AAEtC,sBAAY;AACZ,yBAAc,CAAC,KAAD;AAHwB;AAMK;AAE3C,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;AACjB;OAHF;AAF2C;AAwDT;AAElC,kBAAK,OAAO,CAAC,KAAD;AAFsB;AA3IW;AAE7C,UAAY,aAAD,QAAX,EACE,iBAAa,aADf;AAGA,sBAAW;AALkC;AAQD;AAE5C,UAAY,YAAD,QAAX,EACE,gBAAY,YADd;AAGA,qBAAU;AALkC;AAkSD;AAE3C,qBAAU;AAFiC;AALC;AAE5C,sBAAW;AAFiC;AAtDF;AAE1C;AACA;AACA,kBAAI,UAAC,CAAU,sCAAY,UAAU,CAAC,YAAI,SAAS,EAAG,CAAjB,CAAhC;AAML,gBAAK,SAAQ,SAAC,CAAS,oBAAe,CAAC,EAAD,CAAxB;AAMd,6BAAkB,sCAAY,aAAa,CAAC,qBAAiB,EAAG,CAArB,CAA3C;AACA,4BAAiB,sCAAY,aAAa,CAAC,oBAAgB,EAAG,CAApB,CAA1C;AACA;AAlB0C;AA0cL;AAAV;AAE3B,eAAU,4BAAgB,CAAC,EAAS,EAAS,EAAS,CAA5B;AAFC;AAAU;AA/pBA;AAAV;AAE3B,UAAW,CAAC,UAAD,SAAmC,IAAf,CAAC,UAAK,QAAN,SAAZ,IAA+B,cAAlD;AACE,iBAAU,UAAK,QAAC;AAEhB,qBAAU;AALe;AAAU;AAQD;AAAT;AAE3B,eAAU,2CAA+C,GAA3B,0BAAF,GAA+B,sBAAS,CAAC,eAAD,CAAX;AAF9B;AAAS;AAwEG;AAEvC,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb,YAAY,UAAD,QAAX;AAEE,cAAG,cAAH;AAEE,sBAAK,UAAC,CAAU,IAAV;WASA,MAAN,UAAK,UAAC,CAAU,IAAV;AAER,oBAAK,WAAC,CAAW,cAAX;AACN,6BAAc,CAAC,iBAAD;AACd,qBAAM,WAAN,GAAoB;SAjBtB;AAmBA;OAtBF;AAFuC;AAuFD;AAEtC;AAEA;AACA,UAAK;AACL,UAAG,wCAAa,4BAA4B,CAAC;;;;UAAD,CAA5C,EACE,cAAI,SAAC,CAAS,CAAT,CADP;AAGA,UAAK;AACL,UAAG,wCAAa,sBAAsB,CAAC;;;;UAAD,CAAtC,EACE,gBAAM,SAAC,CAAS,CAAT,CADT;AAGA;AAbsC;AAtIK;AAE3C;AACA,UAAY,WAAD,QAAX,EACE,WAAM,gBAAC,CAAgB,sBAAhB,CADT;AAH2C;AAycT;AAElC;AACA,4BAAiB,WAAC,CAAW,IAAX;AAElB;AALkC;AARC;AAEnC;AACA;AACA,iBAAM,WAAC,CAAW,IAAX;AACP;AALmC;AALG;AAEtC,qBAAU,WAAC,CAAW,IAAX;AAF2B;AANC;AAEvC,UAAG,CAAI,WAAM,QAAb,EACE,cADF;AAFuC;AAtTG;AAE1C,UAAW,CAAC,UAAD,SAAmC,IAAf,CAAC,UAAK,QAAN,SAAZ,IAA+B,cAAlD,EACE,UAAK,QAAC,CAAQ,KAAR,CADR;AAF0C;AAqbA;AAE1C,yBAAc,CAAC,EAAD;AACd,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,UAAP,CADhB;AAH0C;AANE;AAE5C,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,UAAP,CADlB;AAF4C;AANL;AAEvC,UAAY,iBAAD,QAAX,EACE,iBAAW,CAAC,KAAM,UAAP,CADb;AAFuC;AAtBe;AAGtD,UAAY,gCAAD,QAAX,EACE,gCAA0B,CAAC,KAAM,UAAW,+CAAO,WAAY,UAArC,CAD5B;AAHsD;AAdD;AAGrD,UAAY,+BAAD,QAAX,EACE,+BAAyB,CAAC,KAAM,UAAW,+CAAO,UAAzB,CAD3B;AAHqD;AAqBF;AAGnD,UAAY,6BAAD,QAAX,EACE,6BAAuB,CAAC,KAAM,UAAW,+CAAO,WAAY,UAArC,CADzB;AAHmD;AA5BD;AAGlD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,UAAW,+CAAO,UAAzB,CADxB;AAHkD;AAmCF;AAIhD,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,UAAW,+CAAO,WAAY,MAAO,UAA5C,CADtB;AAJgD;AArBD;AAG/C,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,UAAW,+CAAO,WAAY,KAArC,CADrB;AAH+C;AAxGP;AAGxC,UAAY,oBAAD,QAAX,EACE,oBAAY,CAAC,KAAM,UAAW,+CAAO,UAAzB,CADd;AAHwC;AAND;AAEvC,UAAY,mBAAD,QAAX,EACE,mBAAW,CAAC,KAAM,UAAW,8CAAlB,CADb;AAFuC;AAqKO;AAG9C,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,UAAW,+CAAO,YAAzB,CADpB;AAH8C;AAPD;AAG7C,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,UAAW,8CAAlB,CADnB;AAH6C;AA3Gb;AAEhC;AACA;AAAG;AAEH;AACA,UAAK;AACL,6BAAkB,CAAC,UAAW,+CAAO;;;;UAAnB;AAClB,UAAG,CAAH;AAEE,2BAAc,CAAC,UAAW,8CAAZ;AACd,kBAAK,KAAL;AACA,SAAC,MAAD,GAAW,CAAC,MAAO,GAAE,oBAAe,CAAC,EAAD,CAAjB;AACnB,wBAAW,CAAC,UAAW,0CAAZ;AACX,YAAG,iBAAU,IAAI,gBAAjB;AAEE,qBAAM,KAAN;AACA,iDAAa,CAAC,GAAI,CAAC,EAAG,CAAC,CAAV;AACb,mBAAS,qBAAmB,CAAC,4Cf7qB4C,EAA+D,6Ee6qB5G;SAJ9B;AAMA,8BAAiB,CAAC,UAAW,8CAAZ;OAZnB;AARgC;AAreY;;AAKD;;AAKA;;AAKI;;AAqrBb;;AAKE;;AA3GD;AAEnC,UAAG,cAAS,IAAI,eAAU,SAA1B,EACE,wBAAmB,IADrB;AAGA;AACA,UAAY,cAAD,QAAX,EAC4B,cAAU,iBADtC;AAEA,UAAY,aAAD,QAAX,EACE,aAAO,CAAC,IAAD,CADT;AARmC;AA/JK;AAExC,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,IAAD,CADd;AAFwC;AA/KK;AAE7C,UAAG,cAAS,IAAK,CAAI,oBAArB;AAEE;AACA,kBAAK;AACL;OAJF;AAOA,6BAAmB;AACnB,iBAAM,WAAC,CAAW,KAAX;AAVsC;AAaD;AAE5C;AAEA,qBAAU,WAAC,CAAW,KAAX;AAEX,6BAAmB;AAEnB,UAAK;AAEL,UAAY,WAAM,gBAAP,QAAX;AAME,YAA4B,qCAAH,eAAtB,WAAM,gBAAgB,CAAzB,EACE,IAAK,CAA2B,OAAtB,WAAM,iBAAmB,qCAAH,CAAkB,UADpD;OAQG,UAAY,WAAM,gBAAP,QAAX;AAMH,YAA4B,qCAAH,eAAtB,WAAM,gBAAgB,CAAzB,EACE,IAAK,CAA2B,OAAtB,WAAM,iBAAmB,qCAAH,CAAkB,UADpD;OANG;AAgBL,UAAG,WAAM,QAA8B,IAAjB,CAAI,UAAT,IAAoB,CAAJ,IAAW,CAAI,qBAAhD;AAEE;AAEA;AACA,YAAG,eAAS,IAAY,CAAC,YAAD,SAAxB,EACE,YAAM,CAAC,IAAD,CADR;OAOG,UAAG,CAAI,WAAM,QAAQ,IAAK,CAAI,UAA9B;AAGH;OAHG;AAUL,8BAAmB;AA9DyB;AAhEO;AAEnD,4BAAiB,WAAC,CAAW,KAAX;AAElB,UAAG,CAAI,UAAK,YAAZ,EACE,uBADF;AAJmD;AAyBb;AAEtC,sBAAW,UAAK,QAAC,EAAjB;AACA;AACA,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,IAAD,CADd;AAJsC;AA+ME;;AAvFG;AAG3C,UAAS,UAAN,MAAS,EAAH,CAAT,EACE,MADF;AAGA,UAAG,cAAS,IAAI,UAAK,YAArB;AAEO;AACH,YADG,IACH;AAEE,cAAG,CAAW,CAAN,+BAAM,IAAG,KAAH,CAAd,EACE,eADF;SAFF;OAHJ;AAN2C;AAySA;AAE3C,UAAY,WAAD,QAAX;AAEE,mBAAM,gBAAC,CAAgB,sBAAhB;AACP,YAAG,CAAI,kBAAP;AAEE,qBAAM,WAAN,GAAoB,cAAI;AACxB,qBAAM,aAAN,GAAsB,gBAAM;;AAI5B,qBAAM,WAAN,GAAoB;AACpB,qBAAM,aAAN,GAAsB;;OAX1B;AAeA,UAAY,cAAD,QAAX,EACE,cAAS,gBAAC,CAAgB,sBAAhB,CADZ;AAjB2C;AAzTL;AAEtC;AAFsC;AArZG;AAAd;AAE3B,eAAU,wDAAqB,QAAC,YAAM,CAAC,IAAD,CAAN;AAFL;AAAc;AAsqBG;AAAjB;AAE3B,eAAU;AAFiB;AAAiB;AArcJ;AAExC,UAAY,cAAD,QAAX;AAE4B,sBAAU,gBAApC,GAAuD;AAC7B,sBAAU,kBAApC,GAAyD;AAC/B,sBAAU,aAApC,GAAoD;AAC1B,sBAAU,4BAApC,GAAmE;AACzC,sBAAU,2BAApC,GAAkE;AACxC,sBAAU,yBAApC,GAAgE;AACtC,sBAAU,wBAApC,GAA+D;AACrC,sBAAU,sBAApC,GAA6D;AACnC,sBAAU,qBAApC,GAA4D;AAClC,sBAAU,gBAApC,GAAqD;AAC3B,sBAAU,eAApC,GAAoD;OAZtD;AAFwC;AAjEI;AAE7B,wEAAf,GAAyC,cAAI;AAC9B,0EAAf,GAA2C,gBAAM;AAClC,yEAAf,GAA0C,cAAI;AAC/B,2EAAf,GAA4C,gBAAM;AACnC,uEAAf,GAAwC,YAAI;AAC7B,4EAAf,GAA6C;AAC9B,gFAAf,GAAiD,yCAAO,CAAC,cAAI,QAAQ,EAAb;AACzC,kFAAf,GAAmD,yCAAO,CAAC,gBAAM,QAAQ,EAAf;AAC3C,mFAAf,GAAoD;AACrC,iFAAf,GAAkD;AAXN;AAkaL;AAEvC,eAAS,MAAK,OAAO,CAAC,YAAD;AACrB,UAAG,CAAI,aAAP,EACE,SAAS,MAAK,SAAC,CAAS,QAAT,CADjB;AAHuC;AAdG;AAG1C,UAAG,CAAI,kBAAP;AAEE;OAFF;AAKA,eAAS,mBAAmB,CAAC,+CAAO,WAAO,iBAAW,KAAM,MAAO,sBAAa,IAAG,CAAI,kBAAP,CAAsB,sBAA1E;AAE5B,UAAG,CAAI,kBAAP,EACE,SAAS,OAAC,0BADZ;AAV0C;AA/FC;AAE3C;AACA,UAAG,eAAH,EACE,eADF;AAGA,UAAI,MAAO,KAA6C,0CAAxD;AAEE,qBAAS;AACT;AACA;AACA,YAAG,cAAH;AAEE;AACA,oBAAK;AACL;SAJF;OALF;AAN2C;AA3DF;AAOzC,mBAAS;AACT;AARyC;AA6BA;AAEzC;AAEA,UAAI,+BAAM,IAAG,KAAb;AAEO;AACH,aADG,IACH,YAAQ,CADL,IACK,QAAR;AAEE;AACA;SAHF;OAHJ;AAWK;AACH,UADG,KACH;AAAU;AACV,gBAFG,KAEH;AAAS;AACT,iBAHG,KAGH,YAAQ,CAHL,KAGK,QAAR;AAAmB;AACnB,iBAJG,KAIH,YAAU,CAJP,KAIO,QAAV,EAAqB,sBAArB;AAGF,UAAS,UAAN,MAAS,EAAH,CAAT,EACE,MADF;AAGK;AACH,WADG,KACH,YAAW,CADR,KACQ,QAAX,IAAuB,CADpB,KACoB,SAAvB,EAA+B,eAA/B;AA1BuC;AAkVF;AAEvC,sBAAY;AAF2B;AAKC;;AAExB;AAOd,gBAAO,MAAP;AAPc;AAehB,UAAG,aAAS,IAAG,cAAC,GAAQ,EAAT,CAAf;AAEE,YAAG,aAAS,KAAE,EAAd,EACE,aADF;AAGA,YAAG,aAAS,KAAE,EAAd,EACE,eADF;AAGA;OARF;AAjBwC;AAv2BJ;AAEpC;AACA,6BAAmB;AACnB,8BAAoB;AACpB,qBAAS,qDAAmB,QAAC;AAC7B,kBAAK,WAAL,GAAoB;AAEpB,2BAAiB;AACjB,oBAAU,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACjB,iBAAM,YAAC,CAAY,CAAZ;AACP,iBAAM,SAAN,GAAkB;AAClB,iBAAM,WAAC,CAAW,KAAX;AAEP,wBAAc,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,qBAAU,YAAC,CAAY,CAAZ;AACX,qBAAU,SAAV,GAAsB;AACtB,qBAAU,WAAC,CAAW,KAAX;AAEX,+BAAqB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,4BAAiB,YAAC,CAAY,CAAZ;AAClB,4BAAiB,SAAjB,GAA6B;AAC7B,4BAAiB,WAAC,CAAW,KAAX;AAGlB,mBAAS,6BAAuB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,gBAAK,YAAC,CAAY,CAAZ;AACN,gBAAK,WAAC,CAAW,IAAX;AACN,gBAAK,WAAL,GAAoB;AACpB,gBAAK,QAAL,GAAiB;AACjB,gBAAK,SAAL,GAAkB;AAoBlB,gBAAK,oBAAC,CAAoB,IAApB;AACN,gBAAK,SAAQ,QAAC,CAAQ,CAAR;AACd,gBAAK,SAAQ,OAAC,CAAO,CAAP;AACd,gBAAK,SAAQ,SAAC,CAAS,EAAT;AACd,gBAAK,SAAQ,UAAC,CAAU,CAAV;AAQd,gBAAK,SAAC,CAAS,sCAAT;AACN,gBAAK,UAAL,GAAmB;AACnB,gBAAK,YAAL,GAAoB;AAGpB,4BAAkB;AAClB,6BAAmB;AACnB,0BAAc;AAId,uBAAa;AACb;AAEA,oBAAU,sCAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,iBAAM,kBAAC,CAAkB,IAAlB;AACP,iBAAM,gBAAN,GAAyB;AACzB,iBAAM,kBAAC,CAAkB,cAAlB;AACP,iBAAM,iBAAC,CAAiB,mBAAjB;AACP,iBAAM,kBAAC,CAAkB,oBAAlB;AACP,iBAAM,SAAN,GAAkB;AAClB,iBAAM,cAAN,GAAuB;AAEvB,oBAAS,EAAT;AACA,qBAAU,EAAV;AAtFyD;AAArB;AA8FA;AAEpC,UAAY,YAAD,QAAX,EACE,uBAAU,CAAC;;;;UAAD,CADZ;AAEA,UAAY,cAAD,QAAX,EACE,uBAAU,CAAC;;;;UAAD,CADZ;AAEA,UAAY,WAAD,QAAX,EACE,uBAAU,CAAC;;;;UAAD,CADZ;AAEA;AARoC;AAuRA;AAEpC;AAEA,iBAAM,oBAAC,CAAoB,IAApB;AAEP,UAAG,CAAI,WAAM,QAAb;AAEE;AACA,mBAAM,UAAC,CAAU,IAAV;OAGA,MAAP,WAAM,UAAC,CAAU,KAAV;AAET;AAdoC;AAzCG;AAEvC;AACI,yBAAJ,IAAG;AACH,UAAY,cAAD,QAAX,EACE,cAAS,cADX;AAJuC;AA4EF;AAErC;AACI,yBAAJ,IAAG;AACH,UAAY,cAAD,QAAX,EACE,cAAS,YADX;AAJqC;AA8aW;AAEhD,2BAAiB;AACjB;AACA;AAJgD;AAOE;AAElD,2BAAiB;AACjB;AACA;AAJkD;AA/iC/B;;;;;;;AAiKC,+BAAO,U/FgXjB,+B+FhXiB,CAAP;AAjKD;AA6KC;;;;;;;;AAEG;AACR,4BjByjBI,+DiBzjBJ;AACE,8BjBosBI,iEiBpsBJ;AACF,4BjBmlBI,+DiBnlBJ;AACG;AACA,+B3FvBN,6C2FuBM;AACK,oC3FxBX,6C2FwBW;AARH;AA5MtB,mBAuNc;AAUa;;;;;;;;AAoBF;;;;AA9BX;AAvNd,GAuNc,sDAvNd;ACAA,yCAWS,kLAXT;;;;AAsBS,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AAUc,gGAEG,kBAFH;;AAEG;AAFH;AAKC,iGAEG,mBACI,wBACI,4BACP,qBACC,sBACC,sBACF,qBACC,qBACQ,8BACI,kCACH,+BACD,6BAbb;;AAEG,uCAAW,0BAAX;AACI;AACI;AACP;AACC;AACC,0CAAO,qBAAP;AACF;AACC,yCAAO,qBAAP;AACQ,kDAAW,0BAAX;AACI,sDAAW,0BAAX;AACH;AACD;AAbb;AAgBK;AAC5B;AACA;AAF4B;aAC5B,gCACA;AAF4B;;AAC5B;AACA;AAF4B;;;AAC5B;AACA;AAF4B;AAKN,gGAEK,oBACA,oBACF,kBAJH;;AAEK;AACA,wCAAW,0BAAwB,8BAAnC;AACF,uCAAc,6BAAwB,8BAAtC,EATG,4CASH;AAJH;AAOC;;AACc;;AACD;;AAEK,kGAAmB,UzGuCvD,2ByGvCuD,EAAgB,qBAAoB,0BAAvD;AACQ,0GAAmB,UzGsC/D,2ByGtC+D,EAAoB,uBAAoB,wBAA3D;AACR,kGAAmB,UzGqCvD,2ByGrCuD,EAAoB,uBAAoB,wBAA3D;AACK,uGAAmB,UzGoC5D,2ByGpC4D,EAAoB,ahB0DxE,qDgB1DwE,EAAwB,SnBwOzG,yCmBxOyG,EAAkB,wBAAoB,yBAA2B,8BAAhI;AACD,sGAAmB,UzGmC3D,2ByGnC2D,EAAoB,ahByDvE,qDgBzDuE,EAAwB,SnBuOxG,yCmBvOwG,EAAkB,uBAAjF;AAErB;;;AAExB;AACA;AACA;AACA;AACA;AACA;AACA;AAKA;AAEA;AAKA;AAEA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAzCwB;;;;;;;;;;;;;;AAy7BuB;AAEjD,0BAAgB;AAFiC;AAKC;AAElD,2BAAiB;AAFiC;AAKK;AAEvD,gCAAsB;AAFiC;AAKE;AAEzD,UAAG,KAAM,GAAE,CAAX;AACE,oCAAwB;AAExB,wCAAwB;AAL+B;AAQP;AAElD,2BAAiB;AAFiC;AAUL;AAE7C,UAAG,KAAM,KAAE,IAAX,EACE,MADF;AAGA,UAAG,2CAAY,IAAG,oBAAlB;AAEE,wBAAY;;AAIZ,YAAG,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAmB,IAAY,CAAC,aAAD,SAAjD;AAEE,uBAAQ,UAAC,CAAU,mBAAV;AACT,uBAAQ,WAAC,CAAW,oBAAX;AACT,uBAAQ,SAAC,CAAS,kBAAT;AAQT,uBAAQ,QAAC,CAAQ,UAAK,CAAC,iBAAD,CAAb;AACT,uBAAQ,OAAC,CAAO,UAAK,CAAC,gBAAD,CAAZ;AACT,uBAAQ,SAAC,CAAS,UAAK,CAAC,kBAAD,CAAd;AACT,uBAAQ,UAAC,CAAU,UAAK,CAAC,mBAAD,CAAf;SAfX;AAmBA,wBAAY;AAEZ,YAAY,aAAD,QAAX;AAME,gCAA2B,aAAQ;AAEnC,iCAAmB,aAAQ;AAC3B,+BAAiB,aAAQ;AAOzB,uBAAQ,SAAC,CAAS,oCAAT;AACT,8BAAgB,aAAQ,QAAC;AACzB,6BAAe,aAAQ,OAAC;AAExB,+BAAiB,aAAQ,SAAC;AAC1B,gCAAkB,aAAQ,UAAC;AAI3B,uBAAQ,UAAC,CAAU,aAAV;AACT,uBAAQ,WAAC,CAAW,IAAX;AAMT,uBAAQ,QAAC,CAAQ,CAAR;AACT,uBAAQ,OAAC,CAAO,CAAP;;AAKT,gCAAkB;AAClB,iCAAmB;AAKnB,+BAAiB;AAEjB,8BAAgB;AAChB,6BAAe;AACf,+BAAiB;AACjB,gCAAkB;;AAGpB;AAEA;AACA;;AAGF;AA1F6C;AA+GW;AAExD,UAAG,KAAM,KAAG,wBAAZ;AAEE,mCAAuB;AAEvB;OAJF;AAFwD;AAoBf;AAEzC,kBAAK,aAAa,CAAC,KAAD;AAFuB;AAKO;AAEhD;AACA;AACG;AAJ6C;AAKhD,YAAY,aAAD,QAAX;AAEE,cAAG,uBAAQ,CAAC,6DAAU,iDAA2B;;;;cAAtC,CAAX;AACE,cAAE,oBAAoB,CAAC,KAAD;AACnB,oBAAG,uBAAQ,CAAC,6DAAU,gDAA0B;;;;cAArC,CAAX,EACH,EAAE,oBAAoB,CAAC,KAAD,CADnB;SAJP;AAQA;AAbgD;AAI7C;AAFH;AACA;AAHgD;;AAgBD;AAE/C;AACA;AACG;AAJ4C;AAK/C,YAAW,CAAC,aAAD,SAA4B,IAAN,CAAN,KAAM,IAAG,CAAH,CAAX,IAA4B,CAAN,KAAM,GAAE,eAAF,CAAlD;AAEE,cAAG,uBAAQ,CAAC,6DAAU,iDAA2B;;;;cAAtC,CAAX;AACE,cAAE,iBAAiB,CAAC,KAAD;AAChB,oBAAG,uBAAQ,CAAC,6DAAU,gDAA0B;;;;cAArC,CAAX,EACH,EAAE,iBAAiB,CAAC,KAAD,CADhB;AAGL;AACA,mCAAoB,CAAC,kBAAS,KAAV;AAEpB;SAVF;AAL+C;AAI5C;AAFH;AACA;AAH+C;;AAmCJ;AAE3C,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACL;AACH,YADG,IACsB,KAAC,yCAA1B;AAEE,2BAAY,IAAZ;AACA,yBAAK,gBAAL,GAAwB;AACxB,yBAAK,WAAL,GAAmB;SAErB,UAPG,IAOsB,KAAC,6CAA1B;AAEE,2BAAY,KAAZ;AACA,cAAY,aAAD,QAAX,EACE,eAAK,gBAAL,GAAwB,aAD1B;AAEA,yBAAK,WAAL,GAAmB;SALrB;OAVJ;AAF2C;AAuBD;AAE1C,sBAAW,KAAX;AAF0C;AAvNS;AAEnD,4BAAkB;AAFiC;AA9dL;AAAZ;AAElC;AACA;AACG;AAJ2C;AAK9C,iBAAU,CAAC;AAEX,YAAW,CAAC,aAAD,SAAW,IAAI,uBAAQ,CAAC,6DAAU,iDAA2B;;;;YAAtC,CAAlC;AACE,mBAAU,EAAE;AACT,kBAAW,CAAC,aAAD,SAAW,IAAI,uBAAQ,CAAC,6DAAU,gDAA0B;;;;YAArC,CAAlC,EACH,SAAU,EAAE,wBADT;AATyC;AAI3C;AAFH;AACA;AAH8C;AAAZ;AAAY;AAlBC;AAAb;AAElC;AACA;AACG;AAJ4C;AAK/C,iBAAU;AAEV,YAAY,aAAD,QAAX;AAEE,cAAG,uBAAQ,CAAC,6DAAU,iDAA2B;;;;cAAtC,CAAX;AACE,qBAAU,EAAE;AACT,oBAAG,uBAAQ,CAAC,6DAAU,gDAA0B;;;;cAArC,CAAX;AACH,qBAAU,EAAE;AAEZ,yBAAU;SAPd;AAP+C;AAI5C;AAFH;AACA;AAH+C;AAAb;AAAa;AAiDN;AAAP;AAElC,eAAU;AAFwB;AAAO;AAnEC;AAAR;AAElC;AACA;AACG;AAJuC;AAK1C,iBAAU;AAEV,YAAY,aAAD,QAAX;AAEE,cAAG,uBAAQ,CAAC,6DAAU,iDAA2B;;;;cAAtC,CAAX;AACE,qBAAU,EAAE;AACT,oBAAG,uBAAQ,CAAC,6DAAU,gDAA0B;;;;cAArC,CAAX;AACH,qBAAU,EAAE;AAEZ,yBAAU;SAPd;AAP0C;AAIvC;AAFH;AACA;AAH0C;AAAR;AAAQ;AAnNI;AAE9C;AACG;AAH2C;AAI9C,YAAW,CAAC,aAAD,SAAU,IAAI,uBAAQ,CAAC,6DAAU,gDAA0B;;;;YAArC,CAAjC,EACE,EAAE,kBAAkB,CAAC,WAAY,mBAAb,CADtB;AAJ8C;AAG3C;AADH;AAF8C;;AA2CA;AAE9C;AACG;AAH2C;AAI9C,YAAW,CAAC,aAAD,SAAW,IAAI,uBAAQ,CAAC,6DAAU,gDAA0B;;;;YAArC,CAAlC,EACE,EAAE,oBADJ;AAJ8C;AAG3C;AADH;AAF8C;;AA4QF;AAAV;AAElC;AACG;AAHyC;AAI5C,cAAM,UAAN,GAAoB,CAAC;AACrB,cAAM,SAAN,GAAmB;AAEnB,YAAW,CAAC,aAAD,SAAW,IAAI,uBAAQ,CAAC,6DAAU,gDAA0B;;;;YAArC,CAAlC,EACE,eAAU,EAAE,iBAAiB,CAAC,cAAe,mBAAhB,CAA7B,CADF;AAP4C;AAGzC;AADH;AAF4C;AAAV;AAAU;AA4hBW;AAEvD,UAAG,KAAM,KAAG,uBAAZ;AAEE,kCAAsB;AAEtB;OAJF;AAFuD;AA/kBT;AAAZ;AAElC;AACA;AACG;AAJ2C;AAK9C,iBAAU;AAEV,YAAY,aAAD,QAAX;AAEE,cAAG,uBAAQ,CAAC,6DAAU,iDAA2B;;;;cAAtC,CAAX;AACE,qBAAU,EAAE;AACT,oBAAG,uBAAQ,CAAC,6DAAU,gDAA0B;;;;cAArC,CAAX;AACH,qBAAU,EAAE;AAEZ,yBAAU;SAPd;AAP8C;AAI3C;AAFH;AACA;AAH8C;AAAZ;AAAY;AAioBC;AAE/C;AACA;AACG;AAJ4C;AAK/C,YAAY,aAAD,QAAX;AAEE,cAAG,uBAAQ,CAAC,6DAAU,iDAA2B;;;;cAAtC,CAAX;AACE,cAAE,mBAAmB,CAAC,KAAD;AAClB,oBAAG,uBAAQ,CAAC,6DAAU,gDAA0B;;;;cAArC,CAAX,EACH,EAAE,mBAAmB,CAAC,KAAD,CADlB;SAJP;AAQA;AAb+C;AAI5C;AAFH;AACA;AAH+C;;AA9EY;AAE3D,UAAG,2BAAuB,KAAG,KAA7B;AAEE,sCAA0B;AAC1B;OAHF;AAF2D;AASD;AAE1D,UAAG,0BAAsB,KAAG,KAA5B;AAEE,qCAAyB;AACzB;OAHF;AAF0D;AA7yBT;AAEjD;AAEA;AACA,kBAAK,UAAC,CAAU,sCAAY,UAAU,CAAC,YAAK,SAAS,EAAG,CAAlB,CAAhC;AACN,gBAAI,MAAK,OAAO,CAAC,YAAD;AAWhB,oCAAyB,sCAAY,aAAa,CAAC,4BAAwB,EAAG,CAA5B,CAAlD;AACA,mCAAwB,sCAAY,aAAa,CAAC,2BAAuB,EAAG,CAA3B,CAAjD;AACA,4BAAkB,sCAAY,aAAa,CAAC,oBAAgB,EAAG,CAApB;AAC3C,2BAAiB,sCAAY,aAAa,CAAC,mBAAe,EAAG,CAAnB;AAC1C;AArBiD;AA+SF;AAE/C;AACA,UAAc,CAAV,SAAU,KAAE,+BAAF,CAAY,IAAgB,CAAX,UAAW,KAAE,aAAF,CAA1C,EACE,gBAAY,IADd;AAH+C;AApHF;AAE7C;AAF6C;AA8HJ;AAEzC;AAUA;AACA,qBAAU,CAAC,aAAD;AAb+B;AAvLc;AAEvD,UAAY,sBAAD,QAAX,EACE,sBAAc,CAAC,KAAM,MAAO,UAAd,CADhB;AAFuD;AAxBE;AAEzD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,QAAS,MAAhB,CADxB;AAFyD;AAMD;AAExD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,OAAQ,MAAf,CADvB;AAFwD;AAMG;AAE3D,UAAY,8BAAD,QAAX,EACE,8BAAwB,CAAC,KAAM,UAAW,+CAAO,QAAzB,CAD1B;AAF2D;AAMC;AAE5D,UAAY,+BAAD,QAAX,EACE,+BAAyB,CAAC,KAAM,UAAW,+CAAO,SAAU,OAAQ,YAA3C,CAD3B;AAF4D;AAYb;AAG/C,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAM,MAAO,MAAd,CADd;AAH+C;AAOD;AAE9C;AACA;AAAG;AAEH;AAEA,UAAG,CAAI,aAAP;AACE,iBAAS,MAAK,SAAC,CAAS,QAAT;AAEf,YAAA,SAAS,MAAK,aAAa,CAAC,YAAD;AAE7B,gBAAK,KAAL;AACA,6CAAa,CAAC,EAAG,CAAC,EAAG,CAAC,CAAT;AAEb,UAAK;AACL,WAAM;AAEN,oCAAyB,CAAC,UAAW,2CAAG,kBAAS;;;;WAAG;;;;UAA3B;AAEzB,UAAG,CAAH;AAEE,YAAG,EAAH,EACE,SAAS,WAAS,CAAC,2CAAG,kBhBnMiD,MAAoD,sEAAuD,qEAAoD,sEAA0B,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CgBkMxJ,CADpB;AAEA,qCAAwB,CAAC,UAAW,2CAAG,iBAAf;OAJ1B;AApB8C;AA2II;AAElD;AACA,UAAY,aAAD,QAAX;AAEE,qBAAQ,SAAC,CAAS,UAAK,CAAC,mBAAD,CAAd;AACT,qBAAQ,UAAC,CAAU,UAAK,CAAC,oBAAD,CAAf;OAHX;AAHkD;AAiTC;AAEnD;AACA;AACA;AACG;AALgD;AAMnD;AACA,YAAY,aAAD,QAAX;AAEE,gBAAO,CAAC;AAER,cAAG,uBAAQ,CAAC,6DAAU,iDAA2B;;;;cAAtC,CAAX;AACE,kBAAO,EAAE;AACN,oBAAG,uBAAQ,CAAC,6DAAU,gDAA0B;;;;cAArC,CAAX,EACH,MAAO,EAAE,+BADN;AAGL,4BAAa,GAAb;SATF;AAPmD;AAKhD;AAFH;AACA;AAJmD;;AAoBD;AAElD;AACA;AACA;AACG;AAL+C;AAMlD;AACA,YAAY,aAAD,QAAX;AAEE,gBAAO,CAAC;AAER,cAAG,uBAAQ,CAAC,6DAAU,iDAA2B;;;;cAAtC,CAAX;AACE,kBAAO,EAAE;AACN,oBAAG,uBAAQ,CAAC,6DAAU,gDAA0B;;;;cAArC,CAAX,EACH,MAAO,EAAE,8BADN;AAGL,4BAAa,GAAb;SATF;AAPkD;AAK/C;AAFH;AACA;AAJkD;;AAoBA;AAElD;AACA;AACA;AACG;AAL+C;AAMlD;AACA,YAAY,aAAD,QAAX;AAEE,gBAAO,CAAC;AAER,cAAG,uBAAQ,CAAC,6DAAU,iDAA2B;;;;cAAtC,CAAX;AACE,kBAAO,EAAE,4BAA4B,CAAC,mBAAD;AAClC,oBAAG,uBAAQ,CAAC,6DAAU,gDAA0B;;;;cAArC,CAAX,EACH,MAAO,EAAE,4BAA4B,CAAC,mBAAD,CADlC;AAGL,4BAAa,GAAb;SATF;AAPkD;AAK/C;AAFH;AACA;AAJkD;;AAoBI;AAEtD;AACA;AACA;AACG;AALmD;AAMtD;AACA,YAAY,aAAD,QAAX;AAEE,gBAAO,CAAC;AAER,cAAG,uBAAQ,CAAC,6DAAU,iDAA2B;;;;cAAtC,CAAX;AACE,kBAAO,EAAE,gCAAgC,CAAC,mBAAD;AACtC,oBAAG,uBAAQ,CAAC,6DAAU,gDAA0B;;;;cAArC,CAAX,EACH,MAAO,EAAE,gCAAgC,CAAC,mBAAD,CADtC;AAGL,4BAAa,GAAb;SATF;AAPsD;AAKnD;AAFH;AACA;AAJsD;;AAoBJ;AAElD;AACG;AAH+C;AAIlD;AACA,YAAY,aAAD,QAAX,EACE,aAAQ,gBAAC,CAAgB,sBAAhB,CADX;AAEA,YAAW,CAAC,aAAD,SAAW,IAAI,uBAAQ,CAAC,6DAAU,iEAAqB;;;;YAAhC,CAAlC,EACE,EAAE,gBAAC,CAAgB,sBAAhB,CADL;AAPkD;AAG/C;AADH;AAFkD;;AApuBK;AAEvD;AACA;AAEA,UAAW,CAAC,aAAD,SAAW,IAAwB,CAAnB,wBAAmB,KAAE,qDAAF,CAA9C;AAEE,YAAK,oBAAW,GAAE,0BAAF;OAEb,UAAW,CAAC,aAAD,SAAW,IAAwB,CAAnB,wBAAmB,KAAE,uDAAF,CAA9C;AAEH,YAAK;OAEF,UAAI,wBAAoB,KAAE,4DAA1B;AAEH,YAAK;OAGL,UAAK;AAEP,UAAK;AACL,iCAAsB,CAAC;;;;WAAG;;;;UAAJ;AAEtB,UAAG,CAAH,EACE,uBAAkB,CAAlB,CADF;AAvBuD;AA2BD;AAEtD;AACA;AAEA,UAAW,CAAC,aAAD,SAAW,IAAwB,CAAnB,uBAAmB,KAAE,oDAAF,CAA9C;AAEE,YAAK,mBAAU,GAAE,0BAAF;OAEZ,UAAW,CAAC,aAAD,SAAW,IAAwB,CAAnB,uBAAmB,KAAE,sDAAF,CAA9C;AAEH,YAAK;OAEF,UAAI,uBAAmB,KAAE,0DAAzB;AAEH,YAAK;OAGL,UAAK;AAEP,UAAK;AACL,gCAAqB,CAAC;;;;WAAG;;;;UAAJ;AAErB,UAAG,CAAH,EACE,sBAAiB,CAAjB,CADF;AAvBsD;AAo9BA;AAEtD;AACA,sBAAW,CAAC,KAAD;AAEX,UAAG,kBAAgF,IAAhD,CAAP,KAAD,OAAQ,IAAG,yBAAH,CAAnB,IAAiD,CAAI,eAAK,QAAd,IAAgD,CAApB,0BAAoB,GAAE,CAAF,CAA5G,EACE,eADF;AALsD;AAn1BL;AAEjD,yBAAe,UAAI,QAAC;AAEpB,UAAG,UAAI,aAAC,EAAU,KAAE,CAApB;AACE,yBAAM,CAAC;;;;aAAa,UAAI,YAAC,GAAU,CAA7B;AAEN,YAAA,iBAAM,CAAC;;;;WAAa,QAAG,CAAC,EAAG,UAAI,YAAC,EAAS,GAAE,CAApB,EAAwB,UAAI,aAAC,EAA9C;AAER,8BAAmB,CAAC,gBAAD;AACnB,UAAwB,CAAb,gBAAD,OAAc,GAAE,yBAAF,CAAwB,IAAI,eAAK,QAAzD;AAEE;AACA;OAHF;AAViD;AAmSH;AAE9C,wBAAY;AACZ,UAAG,eAAS,IAAG,cAAC,GAAQ,EAAT,CAAf;AAEE,YAAG,eAAS,KAAE,EAAd,EACE,0BADF;AAGA,YAAG,eAAS,KAAE,EAAd,EACE,sBADF;AAGA,gBAAO,CAAP;OARF;AAYA,UAAG,eAAS,KAAE,CAAd,EACE,qBADF;AAf8C;AAoBC;;AAG/C;AACA;AAAQ;AACR;AAEgB;AAOd,gBAAO,MAAP;AAPc;AAYhB,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAQA,YAAO;AAGP,UAAI,eAAS,KAAE,EAAf;AAEE,YAAG,iBAAY,IAAI,eAAK,QAAxB;AAEE;AACA;OALJ;AASA,UAAI,eAAS,KAAE,EAAf;AAEE,YAAG,eAAK,QAAR;AAEE,oBAAI,YAAC,CAAmB,UAAI,QAAC,EAAN,OAAlB;AACL,oBAAI,aAAC,CAAa,CAAb;AACL;SAJF;AAMA;AAEA;AACA;OAXF;AA2BA,UAAG,kBAAH;AAUE,YAAG,GAAI,KAAE,MAAT,EACE,MADF;AAGA,YAAG,UAAI,aAAC,EAAU,KAAS,UAAI,QAAC,EAAN,OAA1B,EACE,mBAAe,EADjB;AAGA,2BAAe,gBAAY,GAAE,GAAF;AAC3B,YAAU,gBAAD,OAAc,GAAE,yBAAzB,EACE,MADF;AAGA,gCAAmB,CAAC,gBAAD;AAEnB,mBAAM,eAAU,CAAC,gBAAD,CAAhB;AACA,YAAG,EAAE,UAAW,IAAG,CAAnB;AAEE,4BAAa,EAAE,UAAf;AACA,mBAAiB,gBAAD;AAChB,0BAAW,EAAE,SAAb;AACA,oBAAI,YAAC,CAAY,MAAZ;AACL,mBAAiB,UAAI,QAAC,EAAN,OAAY,GAAE,MAAF;AAC5B,oBAAI,aAAC,CAAa,MAAb;AACL;AAEA,cAAG,iBAA6B,IAAL,CAAP,MAAO,KAAE,CAAF,CAAZ,IAAqB,eAAK,QAAzC,EACE,eADF;SAVF;OAvBF;AAlE+C;AAmHJ;AAG3C;AACA;AACA;AAEA;AAEA,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,MADF;AAQA,YAAO;AAGP,UAAI,eAAS,KAAE,EAAf;AAEE,YAAG,eAAK,QAAR;AAEE;AACA;OALJ;AASA,UAAG,kBAAH;AAEE,YAAG,eAAS,KAAE,CAAd;AAEE,2BAAM,CAAC;;;;eAAoB,gBAAD,QAAe,CAAnC;AACN,cAAwB,CAAb,gBAAD,OAAc,KAAE,CAAF,CAAK,IAAI,eAAK,QAAtC;AAEE;AACA;WAHF;AAMA;SATF;AAYA,YAAG,GAAI,KAAE,MAAT,EACE,MADF;AAGA,YAAG,kBAAa,IAAK,CAAI,eAAK,QAA9B,EACE,eADF;AAGA,eAAQ;AACR,YAAkB,CAAd,qBAAc,GAAE,UAAF,CAAS,GAAE,IAA7B;AACE,6BAAe,gBAAY,GAAE,GAAF;;AAG3B,uBAAS;AACT,6BAAe;;;AAKjB,YAAG,GAAI,KAAE,MAAT,EACE,MADF;AAGA,2BAAe;;AAGjB,iBAAM,eAAU,CAAC,gBAAD,CAAhB;AACA,UAAG,EAAE,UAAW,IAAG,CAAnB;AAEE,0BAAa,EAAE,UAAf;AACA,wBAAW,EAAE,SAAb;AACA;AAEA,YAAG,kBAAyD,IAA/B,CAAR,iBAAQ,KAAE,gBAAF,CAAb,IAAgC,iBAAJ,IAAoB,eAAK,QAArE,EACE,eADF;OANF;AAnE2C;AAND;AAE1C;AACA,wBAAY;AAH8B;AAjbM;AAAd;AAElC,sBAAY,wDAAqB,QAAC,YAAM,CAAC,IAAD,CAAN;AAElC,UAAY,aAAD,QAAX;AAEE,qBAAQ,UAAC,CAAU,aAAV;AACT;OAHF;AAMA,eAAU;AAVwB;AAAc;AAkMK;AAAnB;AAElC;AACA;AACG;AAJkD;AAKrD,iBAAU;AAEV,YAAY,aAAD,QAAX;AAEE,cAAG,uBAAQ,CAAC,6DAAU,iDAA2B;;;;cAAtC,CAAX;AACE,qBAAU,EAAE;AACT,oBAAG,uBAAQ,CAAC,6DAAU,gDAA0B;;;;cAArC,CAAX;AACH,qBAAU,EAAE;AAEZ,yBAAU;SAPd;AAPqD;AAIlD;AAFH;AACA;AAHqD;AAAnB;AAAmB;AAxOV;AAE3C;AACA,oBAAS,GAAT;AACA,mCAAyB;AACzB,oCAA0B;AAC1B,uBAAY,IAAZ;AACA,yBAAe;AACf,2BAAiB;AACjB,0BAAgB;AAChB,2BAAiB;AACjB,4BAAkB;AAClB,kCAAwB;AACxB,gCAAsB;AACtB,qBAAS,qDAAmB,QAAC;AAC7B,kBAAK,WAAL,GAAoB;AAQpB,gBAAI,WAAJ,GAAmB;AAEnB,gBAAI,YAAJ,GAAmB;AAEnB,gBAAI,MAAK,OAAO,CAAC,YAAD;AAChB,qBAAK,gBAAL,GAAwB;AACxB,qBAAK,WAAL,GAAmB;AAEnB,iCAAuB;AACvB,gCAAsB;AAEtB,UAAG,mBAAH,EACE,aAAQ,sBAAR,CADF;AAlCgE;AAArB;AAoEA;AAErC,eAAN,KAAM;AACN;AAH2C;AA/GO;AAElD;AACA;AAEA,wBAAa,UAAb;AAEA;AACA;AARkD;AA07BI;AAEtD;AACA;AACA;AACA;AACA;AACG;AAPmD;AAQtD,cAAO;AACP,YAAG,uBAAQ,CAAC,6DAAU,gDAA0B;;;;YAArC,CAAX;AACE,gBAAO,EAAE;AACN,kBAAG,uBAAQ,CAAC,6DAAU,iDAA2B;;;;YAAtC,CAAX;AACH,gBAAO,EAAE;AACN,kBAAG,uBAAQ,CAAC,6DAAU,gDAA0B;;;;YAArC,CAAX,EACH,MAAO,EAAE,mBADN;AAGL,YAAK;AAEL,yBAAY,CAAC;;;;aAAK;;;;YAAN;AAEZ,YAAG,CAAH,EACE,gBAAW,GAAX,CADF;AApBsD;AAOnD;AALH;AACA;AACA;AAJsD;;AAwBK;AAE3D;AACA;AAH2D;AAzCV;AAEjD;AACA;AAEA;AALiD;AA9uBN;AAE3C;AACA;AAEA,qBAAK,SAAC,CAAS,UAAK,CAAC,mBAAD,CAAd;AACN,qBAAK,UAAC,CAAU,UAAK,CAAC,oBAAD,CAAf;AAEN;AAR2C;AAncjB;;;;;;;AAkIN,+BAAO,UhGgWjB,+BgGhWiB,CAAP;AAlIM;AA+IN;AAmlC+B;AAEnD;AACA,+BAAa,CAAC,yBAAD;AAHsC;AAnlC/B;;;;;;;AAIE;AACC;AACA;AACK;AACE;AACZ,+B5F6CV,yC4F7CU;AACM;AACQ;AACD;AACF,0CArKU,sDAqKV;AACD,yCArKU,qDAqKV;AACb,4BlBwjBI,+DkBxjBJ;AACK;AACC;AACD;AACA;AACJ,6BA7KS,wCA6KT;AACD;AACkB,8CA1KkB,kEA0KlB;AACD,6CA3KmB,kEA2KnB;AACG,gDAzKY,8DAyKZ;AACC,iDA3KY,+DA2KZ;AACX,sCA/KkB,0DA+KlB;AACF,oCA9KoB,0DA8KpB;AA3BH;;AA7NtB,mBA2Pc;AAmBQ;AAAb;AAEP;AAAG;AAAG;AAAG;AAET,6BAAU,CAAC,mBAAK;;;;WAAG;;;;WAAG;;;;WAAG;;;;UAAf;AACV,eAAU,EAA8B,GAAvB,CAAF,CAAE,GAAE,IAAF,CAAJ,GAAoB,CAAP,CAAO,GAAH,EAAF,GAAO,IAAF,CAAT,GAA8B,CAAZ,CAAY,GAAR,EAAF,GAAO,EAAF,GAAO,IAAF,CAAd;AALjC;AAAa;AA0YR;;;;AA7ZA;AA3Pd,GA2Pc,iGA3Pd;ACAA,oCAKS,qLALT;;;;AAmCiB;AAk3C+B;AAE9C;AACA,iCAAe,CAAC,CAAC,qBAAiB,uDAAuB,qDAAqB,yDAA9D,CAAD;AAH+B;AAjzCL;AAEzC;AAGA,UAAW,CAAC,YAAD,SAA0E,IAAlD,wDAAH,eAAP,YAAO,CAAZ,IAAkD,CAAC,YAAM,OAAP,SAAZ,IAAgD,sDAAH,eAAb,YAAM,OAAO,CAAvG;AAGgB,eAAb,YAAM,QAAU,sDAAH,CAAwB;OAHxC;AALyC;AAcN;AAEnC;AAAK;AAAK;AAAK;AAAK;AACpB;AAEA;AAEA,kBAAO,uBAAP;AACA,kBAAO,0BAAP;AACA,kBAAO,wBAAP;AACA,kBAAO,2BAAP;AACA,iBAAM,yBAAN;AASA,kBAAO,+BAAK,CAAC,EAAE,MAAO,GAAE,CAAF,CAAK,GAAG,QAAS,EAAE,MAAO,GAAE,CAAF,CAAK,GAAG,IAA5C,CAAZ;AAEA,eAAS,QAAO,OAAO,CAAC,uBAAiB,WAAlB;AAEvB,UAAyB,CAAX,CAAV,GAAG,MAAO,GAAE,GAAG,KAAL,CAAW,GAAE,CAAF,CAAK,IAA0B,CAAV,CAAX,GAAG,OAAQ,GAAE,GAAG,IAAL,CAAU,GAAE,CAAF,CAAxD;AAEE,YAAG,0BAAmB,SAAS,IAAG,uBAAiB,SAAnD;AACE,mBAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,GAAG,OAAQ,GAAG,IAAf,GAA4B,yCAAN,gCAAM,CAAC,GAAG,OAAQ,GAAG,OAAf,GAAyB,8EAAc,2EAA1E;AAElB,cAAA,SAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,GAAG,OAAQ,GAAG,IAAf,GAA4B,yCAAN,gCAAM,CAAC,GAAG,OAAQ,GAAG,OAAf,GAAyB,+EAAe,4EAA3E;OALtB;AAQA,UAAG,0BAAmB,SAAS,IAAG,uBAAiB,SAAnD;AAEE,iBAAS,QAAO,OAAO,CAAC,uBAAiB,WAAlB;AACvB,YAAW,CAAP,sEAAO,IAAG,uBAAiB,SAApB,CAA8B,IAA+B,CAA1B,uBAAiB,SAAS,GAAE,CAAF,CAAxE;AAEE,mBAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,GAAG,MAAO,GAAG,IAAd,GAA2B,yCAAN,gCAAM,CAAC,GAAG,MAAO,GAAG,OAAd,GAAwB,+EAAe,4EAAzE;AAClB,mBAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,GAAG,OAAQ,GAAG,IAAf,GAA4B,yCAAN,gCAAM,CAAC,GAAG,OAAQ,GAAG,OAAf,GAAyB,8EAAc,2EAA1E;SAEf,UAAG,CAA6E,CAAhE,CAAP,oEAAO,IAAG,sBAAgB,SAAnB,CAAgE,IAAN,CAAzB,sBAAgB,SAAS,IAAG,CAAH,CAA7B,IAA2D,CAApB,mBAAa,SAAC,EAAM,KAAE,CAAF,CAAxB,CAA8B,IAAiB,CAAZ,YAAM,MAAM,KAAG,mEAAH,CAA/H,EACH,SAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,GAAG,MAAO,GAAG,OAAd,GAA8B,yCAAN,gCAAM,CAAC,GAAG,OAAQ,GAAG,OAAf,GAAyB,+EAAe,6EAA7E,CADf;AAGL,iBAAS,QAAO,OAAO,CAAC,uBAAiB,cAAlB;AACvB,YAAc,CAAV,yEAAU,IAAG,uBAAiB,SAApB,CAA8B,IAAkC,CAA7B,uBAAiB,YAAY,GAAE,CAAF,CAA9E;AAEE,mBAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,GAAG,MAAO,GAAG,IAAd,GAA2B,yCAAN,gCAAM,CAAC,GAAG,MAAO,GAAG,OAAd,GAAwB,+EAAe,4EAAzE;AAClB,mBAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,GAAG,OAAQ,GAAG,IAAf,GAA4B,yCAAN,gCAAM,CAAC,GAAG,OAAQ,GAAG,OAAf,GAAyB,8EAAc,2EAA1E;SAEf,UAAsF,CAAlF,CAAe,CAAV,uEAAU,IAAG,sBAAgB,SAAnB,CAAmE,IAAN,CAA5B,sBAAgB,YAAY,IAAG,CAAH,CAAhC,IAA8D,CAApB,mBAAa,SAAC,EAAM,KAAE,CAAF,CAAxB,CAA8B,IAAiB,CAAZ,YAAM,MAAM,KAAG,mEAAH,CAArI,EACH,SAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,GAAG,MAAO,GAAG,IAAd,GAA2B,yCAAN,gCAAM,CAAC,GAAG,OAAQ,GAAG,IAAf,GAAsB,6EAAa,2EAArE,CADf;AAGL,iBAAS,QAAO,OAAO,CAAC,sBAAgB,WAAjB;AACvB,YAAW,CAAP,oEAAO,IAAG,sBAAgB,SAAnB,CAA2D,IAAL,CAApB,mBAAa,SAAC,EAAM,GAAE,CAAF,CAAzB,IAA4D,CAAzB,sBAAgB,SAAS,GAAE,CAAF,CAApG;AAEE,mBAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,GAAG,MAAO,GAAG,IAAd,GAA2B,yCAAN,gCAAM,CAAC,GAAG,MAAO,GAAG,OAAd,GAAwB,+EAAe,4EAAzE;AAClB,mBAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,GAAG,OAAQ,GAAG,IAAf,GAA4B,yCAAN,gCAAM,CAAC,GAAG,OAAQ,GAAG,OAAf,GAAyB,8EAAc,2EAA1E;SAHpB;AAMA,YAA8C,CAA1C,CAAY,CAAP,sEAAO,IAAG,uBAAiB,SAApB,CAA8B,IAA8B,CAA1B,uBAAiB,SAAS,IAAG,CAAH,CAA9B,CAAqC,IAAiB,CAAZ,YAAM,MAAM,KAAG,mEAAH,CAApG,EACE,SAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,GAAG,MAAO,GAAG,OAAd,GAA8B,yCAAN,gCAAM,CAAC,GAAG,OAAQ,GAAG,OAAf,GAAyB,+EAAe,6EAA7E,CADpB;AAGA,iBAAS,QAAO,OAAO,CAAC,sBAAgB,cAAjB;AACvB,YAAc,CAAV,uEAAU,IAAG,sBAAgB,SAAnB,CAA2D,IAAL,CAApB,mBAAa,SAAC,EAAM,GAAE,CAAF,CAAzB,IAA+D,CAA5B,sBAAgB,YAAY,GAAE,CAAF,CAA1G;AAEE,mBAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,GAAG,MAAO,GAAG,IAAd,GAA2B,yCAAN,gCAAM,CAAC,GAAG,MAAO,GAAG,OAAd,GAAwB,+EAAe,4EAAzE;AAClB,mBAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,GAAG,OAAQ,GAAG,IAAf,GAA4B,yCAAN,gCAAM,CAAC,GAAG,OAAQ,GAAG,OAAf,GAAyB,8EAAc,2EAA1E;SAHpB;AAMA,YAAiD,CAA7C,CAAe,CAAV,yEAAU,IAAG,uBAAiB,SAApB,CAA8B,IAAiC,CAA7B,uBAAiB,YAAY,IAAG,CAAH,CAAjC,CAAwC,IAAiB,CAAZ,YAAM,MAAM,KAAG,mEAAH,CAA1G,EACE,SAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,GAAG,MAAO,GAAG,IAAd,GAA2B,yCAAN,gCAAM,CAAC,GAAG,OAAQ,GAAG,IAAf,GAAsB,6EAAa,2EAArE,CADpB;OArCF;AAhCmC;AAkPI;AAEvC;AACA;AAAG;AAEH;AACA,UAAG,uBAAiB,iBAAiB,IAAI,CAAI,uBAA7C;AAEE,YAAW,CAAP,sEAAO,IAAG,uBAAiB,SAApB,CAA8B,IAA+B,CAA1B,uBAAiB,SAAS,GAAE,CAAF,CAAxE;AAGE,oBAAK,iCAAL;AAMA,cAAK;AACL,eAAM;AAEN,mBAAS,MAAK,OAAO,CAAC,uBAAiB,SAAlB;AACrB,mBAAS,QAAO,OAAO,CAAC,uBAAiB,WAAlB;AAEvB,2CAA4B,CAAC,UAAW,2CAAG,gFAAc;;;;eAAG;;;;cAAhC;AAC5B,cAAG,CAAH;AAEE,gBAAG,EAAH,EACE,SAAS,gBAAc,CAAC,2CAAG,2FAAJ,CADzB;AAGA,4CAA2B,CAAC,UAAW,2CAAG,+EAAf;WAL7B;SAhBF;AAyBA,YAAc,CAAV,yEAAU,IAAG,uBAAiB,SAApB,CAA8B,IAAkC,CAA7B,uBAAiB,YAAY,GAAE,CAAF,CAA9E;AAGE,oBAAK,oCAAL;AAMA,cAAK;AACL,eAAM;AAEN,mBAAS,MAAK,OAAO,CAAC,uBAAiB,YAAlB;AACrB,mBAAS,QAAO,OAAO,CAAC,uBAAiB,cAAlB;AAEvB,2CAA4B,CAAC,UAAW,2CAAG,mFAAiB;;;;eAAG;;;;cAAnC;AAC5B,cAAG,CAAH;AAEE,gBAAG,EAAH,EACE,SAAS,gBAAc,CAAC,2CAAG,yFAAJ,CADzB;AAGA,4CAA2B,CAAC,UAAW,2CAAG,kFAAf;WAL7B;SAhBF;OA3BF;AAqDA,UAAG,sBAAgB,iBAAiB,IAAI,CAAI,uBAA5C;AAEE,YAAW,CAAP,oEAAO,IAAG,sBAAgB,SAAnB,CAA6B,IAA8B,CAAzB,sBAAgB,SAAS,GAAE,CAAF,CAAtE;AAGE,oBAAK,gCAAL;AAKA,cAAK;AACL,eAAM;AAEN,mBAAS,MAAK,OAAO,CAAC,sBAAgB,SAAjB;AACrB,mBAAS,QAAO,OAAO,CAAC,sBAAgB,WAAjB;AAEvB,0CAA2B,CAAC,UAAW,2CAAG,+EAAc;;;;eAAG;;;;cAAhC;AAC3B,cAAG,CAAH;AAEE,gBAAG,EAAH,EACE,SAAS,gBAAc,CAAC,2CAAG,iFAAJ,CADzB;AAGA,2CAA0B,CAAC,UAAW,2CAAG,8EAAf;WAL5B;SAfF;AAwBA,YAAc,CAAV,uEAAU,IAAG,sBAAgB,SAAnB,CAA6B,IAAiC,CAA5B,sBAAgB,YAAY,GAAE,CAAF,CAA5E;AAGE,oBAAK,mCAAL;AAMA,cAAK;AACL,eAAM;AAEN,mBAAS,MAAK,OAAO,CAAC,sBAAgB,YAAjB;AACrB,mBAAS,QAAO,OAAO,CAAC,sBAAgB,cAAjB;AAEvB,0CAA2B,CAAC,UAAW,2CAAG,kFAAiB;;;;eAAG;;;;cAAnC;AAC3B,cAAG,CAAH;AAEE,gBAAG,EAAH,EACE,SAAS,gBAAc,CAAC,2CAAG,+EAAJ,CADzB;AAGA,2CAA0B,CAAC,UAAW,2CAAG,iFAAf;WAL5B;SAhBF;OA1BF;AA3DuC;AAiyBA;AAEvC;AAAG;AACH;AACA;AACA;AAAG;AACH;AACA;AACA;AACA;AAEA;AACA,iBAAM,qBAAN;AACA,mBAAQ,yBAAR;AACA,WAAM;AACN,eAAS,QAAiB,OAAZ,iBAAY,GAAE,CAAF,kBAA1B;AAAI;AAEF,YAAM,CAAF,CAAE,IAAG,CAAH,CAAM,IAAO,CAAF,CAAE,GAAgB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAhB,CAAnB;AAEE,cAAK,cAAG,CAAC,cAAe,CAAC,CAAD,CAAhB,CAAqB,GAAE,cAAG,CAAC,EAAD,CAAL;AAC7B,cAAK,cAAG,CAAC,iBAAY,CAAC,CAAD,CAAb;AAER,cAAuB,CAAnB,kBAAY,OAAO,KAAG,EAAH,CAAW,IAAuB,CAAlB,kBAAY,MAAM,KAAG,mEAAH,CAAzD;AAEE,qBAAS,QAAO,OAAO,CAAC,kBAAD;AACvB,gBAAK;AACL,iBAAM;AACN,sBAAK,+BAAK,CAAC,EAAG,EAAE,KAAM,CAAE,GAAE,CAAF,CAAK,EAAE,OAArB,CAAV;AAEA,mCAAkB,CAAC,UAAW,2CAAG,EAAG;;;;iBAAG;;;;gBAArB;AAElB,gBAAG,CAAH;AAEE,kBAAG,EAAH,EACE,SAAS,gBAAc,CAAC,2CAAG,6FAAJ,CADzB;AAGA,oCAAiB,CAAC,UAAW,2CAAG,CAAf;aALnB;WATF;SALF;;AAyBF,UAAG,mBAAa,SAAC,EAAM,GAAE,CAAzB;AAEE,iBAAS,SAAiB,QAAZ,iBAAY,GAAE,CAAF,qBAA1B;AAAI;AAEF,cAAM,CAAF,CAAE,IAAG,CAAH,CAAM,IAAO,CAAF,CAAE,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAAnB;AAEE,gBAAK,aAAO,WAAC,CAAD;AACZ,gBAAK,cAAG,CAAC,cAAe,CAAC,CAAD,CAAhB,CAAqB,GAAE,cAAG,CAAC,EAAD,CAAL;AAC7B,gBAAK,cAAG,CAAC,iBAAY,CAAC,CAAD,CAAb;AAER,gBAAK;AACL,iBAAM;AAEN,qBAAS,MAAK,QAAC,CAAQ,iEAAR;AACf,qBAAS,QAAO,OAAO,CAAC,qBAAe,cAAhB;AACvB,gBAAG,CAAI,CAAC,sBAAR;AAEE,uBAAS,QAAO,OAAO,CAAC,CAAC,QAAF;AACvB,uBAAS,MAAK,OAAO,CAAC,CAAC,MAAF;aAHvB;AAMA,sBAAK,+BAAK,CAAC,EAAG,IAAI,KAAM,CAAE,GAAE,CAAF,CAAK,IAAI,OAAzB,CAAV;AAEA,uCAAsB,CAAC,UAAW,2CAAG,EAAG;;;;iBAAG;;;;gBAArB;AAEtB,gBAAG,CAAH;AAEE,kBAAG,EAAH,EACE,SAAS,gBAAc,CAAC,2CAAG,cAAC,4DAAO,8DAAS,8DAAjB,EAA4B,6FAAhC,CADzB;AAGA,wCAAqB,CAAC,UAAW,2CAAG,CAAf;aALvB;WArBF;;OAJJ;AA1CuC;AA1kBP;AAGhC;AACA;AAAG;AACH;AAAM;AACN;AACA;AACA;AAAO;AACP;AACA;AACA;AAAK;AACL;AACA;AAAI;AACJ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAAI;AACJ;AAAI;AACJ;AAAQ;AACR;AACA;AACA;AACA;AAAG;AAAI;AACP;AAAM;AACN;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEA;AACA,UAAG,CAAY,CAAC,KAAD,SAAQ,IAAuB,CAAT,CAAT,cAAS,KAAE,KAAF,CAAS,IAAI,qBAAJ,CAA9C,EACE,MADF;AAGA,YAAO,yBAAoB,GAAE,GAAF;AAE3B,WAAM;AACN,0BAAe,CAAC,MAAO;;;;UAAR;AACf,YAAO;AACP,2BAAgB,CAAC,MAAO;;;;UAAR;AAChB,YAAO,0BAAqB,CAAC,KAAD;AAE5B,UAAG,EAAH;AAEE,YAAG,GAAH;AAEE,cAAG,GAAH;AAEE,qBAAS,MAAK,OAAO,CAAC,qBAAe,sBAAhB;AACrB,qBAAS,QAAO,OAAO,CAAC,qBAAe,wBAAhB;;AAIvB,qBAAS,MAAK,OAAO,CAAC,qBAAe,cAAhB;AACrB,qBAAS,QAAO,OAAO,CAAC,qBAAe,gBAAhB;;AAGzB,mBAAU,SAAS,MAAK;AACxB,yBAAgB,SAAS,QAAO;AAChC,qCAAsB,CAAC,MAAO;;;;cAAR;AACtB,2CAA4B,CAAC,MAAO;;;;cAAR;AAC5B,mBAAS,MAAK,SAAC,CAAS,MAAT;AACf,mBAAS,QAAO,SAAC,CAAS,YAAT;;AAIjB,cAAG,GAAH;AAEE,qBAAS,MAAK,OAAO,CAAC,qBAAe,cAAhB;AACrB,qBAAS,QAAO,OAAO,CAAC,qBAAe,gBAAhB;;AAIvB,qBAAS,MAAK,OAAO,CAAC,qBAAe,MAAhB;AACrB,qBAAS,QAAO,OAAO,CAAC,qBAAe,QAAhB;;AAGzB,mBAAU,SAAS,MAAK;AACxB,yBAAgB,SAAS,QAAO;AAChC,6BAAc,CAAC,MAAO;;;;cAAR;AACd,mCAAoB,CAAC,MAAO;;;;cAAR;AACpB,mBAAS,MAAK,SAAC,CAAS,MAAT;AACf,mBAAS,QAAO,SAAC,CAAS,YAAT;;;AAKnB,YAAG,GAAH;AAEE,mBAAS,MAAK,OAAO,CAAC,qBAAe,sBAAhB;AACrB,mBAAS,QAAO,OAAO,CAAC,qBAAe,wBAAhB;;AAIvB,mBAAS,MAAK,OAAO,CAAC,qBAAe,cAAhB;AACrB,mBAAS,QAAO,OAAO,CAAC,qBAAe,gBAAhB;;AAGzB,iBAAU,SAAS,MAAK;AACxB,uBAAgB,SAAS,QAAO;AAChC,mCAAsB,CAAC,MAAO;;;;YAAR;AACtB,yCAA4B,CAAC,MAAO;;;;YAAR;AAC5B,iBAAS,MAAK,SAAC,CAAS,MAAT;AACf,iBAAS,QAAO,SAAC,CAAS,YAAT;;AAGnB,WAAM;AACN,UAAK;AACL,2BAAgB,CAAC,UAAW,+CAAO,MAAO;;;;WAAG;;;;UAA7B;AAEhB,UAAG,CAAH;AAEE,YAAG,EAAH;AAEE,uBAAQ,KAAR;AACA,cAAG,GAAI,IAAI,CAAI,GAAf;AAEsB,uBAAf,qBAAe;AAClB,gBADkB,IAClB;AAEE,kBAAgB,CAAZ,YAAM,MAAM,KAAG,mEAAH,CAAY,IAAkB,CAAb,YAAM,OAAO,KAAG,EAAH,CAA9C;AACE,oBAAI,KAAJ,GAAa;AAEb,oBAAA,IAAI,KAAJ,GAAa;aAEjB,UARkB,IAQlB;AAEE,kBAAS,WAAC,KAAK,WAAN,CAAkB,GAAE,CAA7B,EACE,IAAI,KAAJ,GAAa,KAAK,WAAU,CAAC,CAAD,CAAG,KADjC;aAFF;WAVJ;AAkBA,cAAK;AACL,eAAM;AACN,oBAAW,cAAC,kEAAW,mEAAY,qEAAc,qEAAtC;AACX,6BAAc,CAAC,MAAO;;;;cAAR;AACd,gCAAiB,CAAC,MAAO;;;;eAAI;;;;cAAZ;AAEjB,cAAG,EAAG,GAAE,CAAR;AAEE,iBAAM,QAAG,CAAE,gBAAK,CAAC,QAAG,CAAC,IAAI,MAAO,GAAE,IAAI,KAAN,CAAa,IAAI,OAAQ,GAAE,IAAI,IAA3C,CAAgD,GAAC,CAArD,EAAyD,EAAhE;AACT,qBAAS,qBAAmB,CAAC,8CAAM,GAAI,oBAAS,wEAApB;WAG9B,MAAA,SAAS,gBAAc,CAAC,8CAAM,cAAG,wEAAV;AAEvB,cAAU,CAAN,KAAM,KAAE,4BAAF,CAAoC,IAAV,gBAAJ,IAAkB,qBAAe,WAAjE;AAEE,yBAAQ,IAAR;AACA,mDAAa,CAAC,KAAM,oBAAe,CAAC,CAAC,CAAF,EAAM,oBAAe,CAAC,CAAC,CAAF,CAA3C;AACb,qBAAS,qBAAmB,CAAC,8CjBhgB0C,EAA+D,6EiBggB1G;WAJ9B;SAnCF;AA2CA,YAAG,CAAI,iBAAP;AAEE,gBAAO;AACP,gBAAO;AACP,cAAG,GAAH,EACE,MAAO,QAAG,CAAC,IAAK,GAAN,CADZ;AAGA,mBAAS,UAAO,4BAAhB;AAAI;AAEF,iBAAM;AACN,gBAAM,CAAF,CAAE,IAAG,CAAH,CAAM,IAAO,CAAF,CAAE,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAAnB,EACE,KAAM,aAAO,WAAC,CAAD,CADf;AAGA,gBAAa,CAAN,CAAF,CAAE,GAAE,GAAF,CAAM,IAAG,CAAH,CAA0H,IAAvG,CAAN,CAAF,CAAE,GAAE,GAAF,CAAM,IAA6B,CAApB,WAAC,KAAK,aAAN,CAAoB,GAAE,CAAF,CAA7B,CAAb,IAAmD,qBAAe,WAAnB,IAAqC,CAAF,CAAE,KAAE,qBAAe,cAAjB,CAAP,IAAwE,CAA5B,qBAAe,aAAa,GAAE,CAAF,CAAxK;AAEE,wBAAK,KAAK,aAAY,CAAC,CAAE,GAAE,GAAL,CAAtB;AACA,sDAAY,CAAC,EAAG,SAAU,QAAd;AACZ,uBAAS,QAAO,OAAO,CAAC,qBAAe,YAAhB;AAEvB,kBAAI,qBAAe,YAAW,MAAM,IAAG,cAAC,oEAAS,mEAAQ,uEAAY,yEAA9B,CAAvC,EACE,SAAS,kBADX;AAGA,mBAAM,qBAAe;AACrB,yBAAM,+BAAK,CAAC,CAAC,KAAM,GAA8B,CAA5B,qBAAe,aAAa,GAAE,CAAF,CAA9B,CAAmC,KAAK,KAAM,CAAC,KAAwC,GAAJ,CAA5B,qBAAe,aAAa,GAAE,CAAF,CAA9B,GAAuC,CAAH,EAAG,GAAE,CAAF,CAAL,CAAU,KAAK,OAA9G,CAAX;AAEA,uBAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,EAAE,MAAO,EAAE,IAAK,GAAuB,CAAV,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAU,GAAE,CAAF,CAAxC,GAAoD,yCAAN,gCAAM,CAAC,EAAE,OAAQ,EAAE,IAAK,GAAuB,CAAV,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAU,GAAE,CAAF,CAAzC,GjBjiBoC,+EAAyE,8EiBiiBxK;AAElB,kBAAG,kBAAY,SAAC,EAAM,GAAE,CAAxB;AAEE,oBAAK;AACL,oBAAK,CAAC;AAEN,2BAAM,EAAN;AACA,uBAAe,CAAD,QAAd;AAEE,sBAAiB,CAAT,CAAF,CAAE,KAAE,KAAF,CAAS,IAAa,CAAR,CAAC,OAAO,IAAc,CAAX,CAAC,UAAU,GAAE,CAAF,CAAd,CAAb,CAAiC,IAAiB,CAAV,CAAF,CAAE,KAAG,KAAH,CAAU,IAAa,CAAR,CAAC,OAAO,GAAa,CAAX,CAAC,UAAU,GAAE,CAAF,CAAb,CAAb,CAAnE;AAEE,wBAAG,CAAC,OAAO,GAAa,CAAX,CAAC,UAAU,GAAE,CAAF,CAAxB;AACE,+BAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,EAAE,MAAO,EAAE,IAAZ,GAAyB,yCAAN,gCAAM,CAAC,EAAE,MAAO,EAAE,OAAZ,GAAsB,+EAAe,4EAArE;AAElB,0BAAA,SAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,EAAE,MAAO,EAAE,IAAZ,GAAyB,yCAAN,gCAAM,CAAC,EAAE,MAAO,EAAE,IAAK,GAAuB,CAAV,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAU,GAAE,CAAF,CAAxC,GAA8C,+EAAe,4EAA7F;mBALtB;AAQA,sBAAK;AACL,sBAAK,CAAC;AACN,0DAAY,CAAC,GAAI,CAAC,GAAI,CAAV;;AAGd,oBAA6C,CAA1C,mBAAa,SAAC,EAA4B,GAApB,KAAK,eAAP,GAAwB,CAAF,CAAI,GAAE,CAAnD;AAEE,sBAAK,KAAK;AACV,sBAAG,CAAY,CAAC,CAAD,SAAf;AAEE,wBAAI,KAAK,KAAK,KAA4C,CAA1C,mBAAa,SAAC,EAA4B,GAApB,KAAK,eAAP,GAAwB,CAAF,CAA1D;AAEE,+BAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,EAAE,MAAO,EAAE,IAAZ,GAAyB,yCAAN,gCAAM,CAAC,EAAE,MAAO,EAAE,IAAK,GAAuB,CAAV,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAU,GAAE,CAAF,CAAxC,GAA8C,+EAAe,4EAA7F;qBAEf,UAAG,KAAK,KAAK,KAAE,CAAf;AAEH,+BAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,EAAE,MAAO,EAAE,IAAK,GAAuB,CAAV,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAU,GAAE,CAAF,CAAxC,GAAoD,yCAAN,gCAAM,CAAC,EAAE,MAAO,cAAG,CAAC,EAAE,OAAH,CAAY,GAAE,GAA3B,GAAiC,+EAAe,4EAA3G;qBAGlB,MAAA,SAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,EAAE,MAAO,EAAE,IAAZ,GAAyB,yCAAN,gCAAM,CAAC,EAAE,MAAO,EAAE,OAAZ,GAAsB,+EAAe,4EAArE;mBAEjB,UAAY,CAAD,QAAX;AAEH,yBAAM;AACN,wBAAK,CAAC;AACN,+BAAM,EAAN;AACA,4DAAY,CAAC,GAAI,CAAC,GAAI,CAAV;AACZ,2BAAe,CAAD,QAAd;AAEE,2BAAM;AACN,0BAAK,CAAC;AACN,8DAAY,CAAC,GAAI,CAAC,GAAI,CAAV;;AAGd,wBAAW,CAAC,EAAD,SAAK,IAAY,CAAP,EAAE,KAAK,GAAyC,CAAvC,mBAAa,SAAC,EAAyB,GAAjB,EAAE,eAAJ,GAAqB,CAAF,CAAzC,CAA5B,EACE,SAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,EAAE,MAAO,EAAE,IAAZ,GAAyB,yCAAN,gCAAM,CAAC,EAAE,MAAO,EAAE,OAAZ,GAAsB,+EAAe,4EAArE,CADpB;mBAbG;iBAhBP;eArBF;AAwDA,kBAAI,qBAAe,YAAW,MAAM,IAAG,cAAC,oEAAS,mEAAQ,uEAAY,yEAA9B,CAAvC,EACE,SAAS,iBADX;aAtEF;AA0EA,gBAAW,CAAC,EAAD,SAAqC,IAA5B,CAAI,EAAE,sBAAV,IAAoC,CAAI,GAAxD;AACE,uBAAS,MAAK,OAAO,CAAC,EAAE,MAAH;;AAGrB,kBAAG,GAAH;AACE,yBAAS,MAAK,OAAO,CAAC,qBAAe,cAAhB;AAErB,oBAAA,SAAS,MAAK,OAAO,CAAC,qBAAe,MAAhB;;AAGzB,mBAAQ,iBAAY,CAAC,CAAD;AACpB,gBAAS,CAAL,IAAK,GAAE,CAAF,CAAK,IAAG,GAAjB;AAEE,kBAAG,EAAH;AAEE,oBAAG,GAAH;AAEE,sBAAG,GAAH;AACE,6BAAU,qBAAe;AAEzB,iCAAU,qBAAe;AAE3B,iDAA0B,CAAC,MAAO,EAAG;;;;sBAAX;AAC1B,2BAAS,MAAK,SAAC,CAAS,MAAT;;AAIf,sBAAW,CAAC,EAAD,SAAqC,IAA5B,CAAI,EAAE,sBAAV,IAAoC,CAAI,GAAxD;AACE,6BAAU,EAAE,MAAK;;AAGjB,wBAAG,GAAH;AACE,+BAAU,qBAAe;AAEzB,mCAAU,qBAAe,MAAK;;AAGlC,yCAAkB,CAAC,MAAO,EAAG;;;;sBAAX;AAClB,2BAAS,MAAK,SAAC,CAAS,MAAT;;;AAKjB,oBAAG,GAAH;AACE,2BAAU,qBAAe;AAEzB,+BAAU,qBAAe;AAE3B,+CAA0B,CAAC,MAAO,EAAG;;;;oBAAX;AAC1B,yBAAS,MAAK,SAAC,CAAS,MAAT;;AAGjB,kBAAY,CAAN,CAAF,CAAE,GAAE,GAAF,CAAM,IAAG,CAAH,CAAoD,IAAjC,CAAN,CAAF,CAAE,GAAE,GAAF,CAAM,IAA4B,CAAnB,WAAC,KAAK,YAAN,CAAmB,GAAE,CAAF,CAA5B,CAAb,IAA2D,CAAN,CAAF,CAAE,GAAE,GAAF,CAAM,IAA6B,CAApB,WAAC,KAAK,aAAN,CAAoB,GAAE,CAAF,CAA7B,CAA7E;AAEE,sBAAO;AACP,uCAAkB,CAAC,MAAO,EAAG;;;;oBAAX;AAClB,oBAAG,GAAI,KAAG,sEAAV;AAEE,2BAAU;AACV,uBAAM,KAAK,aAAY,CAAC,CAAE,GAAE,GAAL;AACvB,sCAAe,CAAC,MAAO,EAAG;;;;sBAAX;AAEV;AACH,sBADG,KACH;AAAc,6BAAwB,sBAAiB,CAAC,GAAI,MVhV6B,IUgVlC;AACvD,4BAFG,KAEH,oFAAiB,SAAwB,yBAAoB,CAAC,GAAI,MVhV0B,IUgV/B,CAA7D;AAGF,sBAAY,MAAD,QAAX;AAEE,iCAAQ,KAAK,YAAW,CAAC,CAAE,GAAE,GAAL,CAAxB;AACA,4DAAY,CAAC,KAAM,SAAU,QAAjB;AAEZ,wBAAK;AACL,8CAAqB,CAAC,UAAW,8CAAM,EAAG,MAAO,OAAQ;;;;wBAApC;AACrB,wBAAG,CAAH;AAEE,+BAAS,aAAW,CAAC,8CAAM,OjB3oBsD,KACzE,MAA0B,KAA2B,KiB0oBzC;AACpB,+CAAoB,CAAC,UAAW,8CAAM,EAAG,MAAO,MAA5B;qBAHtB;mBAPF;iBAXF;eAJF;AA+BA,kBAAY,CAAN,CAAF,CAAE,GAAE,GAAF,CAAM,IAAG,CAAH,CAAM,IAAa,CAAN,CAAF,CAAE,GAAE,GAAF,CAAM,IAA6B,CAApB,WAAC,KAAK,aAAN,CAAoB,GAAE,CAAF,CAA7B,CAA/B;AAEE,uBAAQ;AACR,kCAAa,CAAC,MAAO,EAAG,MAAO;;;;oBAAlB;AACb,oBAAG,CAAY,CAAC,IAAD,SAAO,IAAI,GAA1B,EACE,kBAAa,CAAC,MAAO,EAAG,KAAM;;;;oBAAjB,CADf;AAGA,oBAAW,CAAC,IAAD,SAAO,IAAI,CAAI,uCAAa,CAAC,IAAD,CAAvC;AAEE,gCAAS,KAAK,aAAY,CAAC,CAAE,GAAE,GAAL,CAA1B;AACA,0DAAY,CAAC,MAAO,SAAU,QAAlB;AAEZ,sBAAK;AACL,2CAAoB,CAAC,UAAW,+CAAO,EAAG,MAAO,KAAM;;;;sBAAnC;AACpB,sBAAG,CAAH;AAEE,6BAAS,aAAW,CAAC,+CAAO,KjBlqBuD,KACzE,MAA0B,KAA2B,KiBiqB3C;AACpB,4CAAmB,CAAC,UAAW,+CAAO,EAAG,MAAO,IAA7B;mBAHrB;iBAPF;eAPF;AAsBA,kBAAY,CAAN,CAAF,CAAE,GAAE,GAAF,CAAM,IAAG,CAAH,CAAqH,IAAlG,CAAN,CAAF,CAAE,GAAE,GAAF,CAAM,IAA6B,CAApB,WAAC,KAAK,aAAN,CAAoB,GAAE,CAAF,CAA7B,CAAb,IAAmE,CAAf,KAAK,UAAU,GAAE,CAAF,CAApB,IAAgC,CAAF,CAAE,KAAE,qBAAe,cAAjB,CAAP,IAAwE,CAA5B,qBAAe,aAAa,GAAE,CAAF,CAAlK;AAEE,oBAAG,GAAH;AAEE,sBAAG,KAAK,UAAR;AACE,0BAAO,qBAAe;AAEtB,8BAAO,qBAAe;;AAIxB,sBAAG,KAAK,UAAR;AACE,0BAAO,qBAAe;AAEtB,8BAAO,qBAAe;;AAG1B,uBAAQ;AACR,oBAAG,sBAAH;AAEE,yBAAQ,8BAAO,QAAC;AAChB,sBAAI,QAAQ,CAAC,GAAG,SAAC,GAAO,GAAG,UAAC,EAAhB;AACZ,sBAAK,4CAAe,QAAC,YAAM,CAAC,IAAI,UAAC,GjB1vBa,KiB0vBnB,CAAN;AACrB;AACE,qBAAC;AACD,qBAAC,MAAK,SAAC,CAAS,4CAAe,0BAAxB;AACP,qBAAC,MAAK,QAAC,CAAQ,kEAAR;AACP,qBAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,qBAAC,QAAO,SAAC,CAAS,4CAAe,qBAAxB;AACT,qBAAC,gBAAc,CAAM,wCAAL,+BAAK,CAAC,EAAG,EAAG,GAAG,SAAC,GAAO,GAAG,UAAC,EAAtB,GjBvtB4D,6EiButBlE;AACf,qBAAC,QAAO,SAAC,CAAS,oBAAe,CAAC,CAAD,CAAxB;AAET,wBAAG,CAAI,KAAK,UAAZ,EACE,CAAC,WAAS,CAAO,yCAAN,gCAAM,CAAW,UAAV,GAAG,SAAC,EAAM,GAAI,CAAJ,EAAO,CAAlB,GAA4B,yCAAN,gCAAM,CAAW,UAAV,GAAG,SAAC,EAAM,GAAI,CAAJ,EAAO,GAAG,UAAC,EAAtB,GAA+B,+EjBzuBsG,8EiByuBxK,CADZ;AAGA,qBAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,EAAc,UAAX,GAAG,UAAC,EAAO,GAAI,CAAJ,CAAf,GAA6B,yCAAN,gCAAM,CAAC,GAAG,SAAC,GAAkB,UAAX,GAAG,UAAC,EAAO,GAAI,CAAJ,CAAvB,GAA+B,+EjB3uBuG,8EiB2uB1K;AAZZ;AAcE,qBAAC;AACD,qBAAE,eAAF,CAAE;AAfJ;iBALF;AAwBA,+BAAU,KAAK,aAAY,CAAC,CAAE,GAAE,GAAL,CAA3B;AACA,wDAAY,CAAC,OAAQ,SAAU,QAAnB;AAEZ,oBAAK;AACL,2CAAsB,CAAC,UAAW,gDAAQ,EAAG,MAAO,IAAK;;;;oBAAnC;AACtB,oBAAG,CAAH;AAEE,sBAAG,GAAH;AAEE,iCAAQ,MAAR;AACA,2DAAa,CAAC,KAAM,oBAAe,CAAC,CAAC,CAAF,EAAM,oBAAe,CAAC,CAAC,CAAF,CAA3C;;AAIb,iCAAQ,+BAAK,CAAC,cAAG,CAAC,MAAM,KAAM,GAA6C,CAAb,CAA5B,MAAM,MAAsB,GAAb,MAAM,KAAR,GAAiB,GAAG,SAAC,EAAN,CAAa,GAAE,CAAF,CAA1D,EAAgE,cAAG,CAAC,MAAM,IAAK,GAA8C,CAAd,CAA5B,MAAM,OAAsB,GAAZ,MAAM,IAAR,GAAgB,GAAG,UAAC,EAAN,CAAc,GAAE,CAAF,CAA1D,EAClF,cAAG,CAAC,MAAM,KAAM,GAA6C,CAAb,CAA5B,MAAM,MAAsB,GAAb,MAAM,KAAR,GAAiB,GAAG,SAAC,EAAN,CAAa,GAAE,CAAF,CAA1D,CAA+D,GAAE,GAAG,SAAC,EAAN,CAAa,cAAG,CAAC,MAAM,IAAK,GAA8C,CAAd,CAA5B,MAAM,OAAsB,GAAZ,MAAM,IAAR,GAAgB,GAAG,UAAC,EAAN,CAAc,GAAE,CAAF,CAA1D,CAA+D,GAAE,GAAG,UAAC,EAD5I,CAAb;;AAIF,sBAAG,sBAAa,IAAY,CAAC,IAAD,SAA5B;AAEE,yBAAM,uCAAa,QAAC;AACpB;AACE,wBAAE,OAAO,CAAC,IAAD;AACT,+BAAS,aAAW,CAAC,8CAAM,GjBzuBsD,KACzE,MAA0B,KAA2B,KiBwuBzC;AAFtB;AAIE,wBAAG,eAAH,EAAG;AAJL;AAMA,wBAAK,eAAL,IAAK;AACL,2BAAQ;;AAIR,6BAAS,aAAW,CAAC,8CAAM,IjBlvBwD,KACzE,MAA0B,KAA2B,KiBivB3C;;AAGtB,4CAAqB,CAAC,UAAW,gDAAQ,EAAG,MAAO,GAA9B;iBA9BvB;AAiCA,oBAAY,IAAD,QAAX,EACE,IAAK,eAAL,IAAK,CADP;eAhFF;AAoFA,kBAAY,CAAN,CAAF,CAAE,GAAE,GAAF,CAAM,IAAG,CAAH,CAAmD,IAAhC,CAAN,CAAF,CAAE,GAAE,GAAF,CAAM,IAA2B,CAAlB,WAAC,KAAK,WAAN,CAAkB,GAAE,CAAF,CAA3B,CAAb,IAAiD,KAAK,iBAAc,CAAC,CAAE,GAAE,GAAL,CAAtF;AAEE,6BAAQ,KAAK,WAAU,CAAC,CAAE,GAAE,GAAL,CAAvB;AACA,wDAAY,CAAC,KAAM,SAAU,QAAjB;AAEZ,uDAAa,CAAC,KAAM,oBAAe,CAAC,CAAC,CAAF,EAAM,CAA5B;AAEb,oBAAK;AACL,oBAAM,CAAF,CAAE,IAAG,CAAH,CAAM,IAAO,CAAF,CAAE,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAAnB,EACE,IAAK,aAAO,WAAC,CAAD,CADd;AAGA,qBAAM;AACN,qBAAM;AACN,qBAAM;AACN,uBAAQ;AACR,oBAAY,CAAD,QAAX;AAEE,uBAAM,CAAC;AACP,uBAAM,CAAC;AACP,uBAAM,CAAC;AACP,yBAAQ,CAAC;iBALX;AAQA,sCAAiB,CAAC,MAAO,EAAG;;;;oBAAX;AACjB,0CAAqB,CAAC,MAAO,EAAG;;;;oBAAX;AACrB,iDAA4B,CAAC,MAAO,EAAG;;;;oBAAX;AAC5B,+CAA0B,CAAC,MAAO,EAAE;;;;oBAAV;AAE1B,sBAAO;AACP,kCAAa,CAAC,MAAO,EAAG,yEAAa;;;;oBAAxB;AACb,oBAAK;AACL,yCAAoB,CAAC,UAAW,8CAAM,EAAG,MAAO,IAAK;;;;oBAAjC;AACpB,oBAAG,CAAH;AAEE,sBAAuB,CAApB,yBAAoB,IAA6B,CAAN,CAAjB,sBAAiB,KAAG,CAAH,CAAM,IAAuB,CAAnB,4BAAmB,KAAG,KAAH,CAAvB,CAA7B,CAA+D,IAAG,CAAI,yBAA7F,EACE,SAAS,WAAS,CAAC,8CAAM,IAAK,GAAI,GAAI,GAAI,KjBltB4M,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CiBitB9I,CADpB;AAGA,0CAAmB,CAAC,UAAW,8CAAM,EAAG,MAAO,GAA5B;iBALrB;eAhCF;AAyCA,kBAAW,CAAC,EAAD,SAAK,IAAI,CAAI,EAAE,sBAA1B;AACE,yBAAS,MAAK,OAAO,CAAC,EAAE,WAAH;AAErB,oBAAA,SAAS,MAAK,OAAO,CAAC,qBAAe,WAAhB;AAEvB,kBAAG,EAAH;AAEE,oBAAG,GAAH;AAEE,2BAAU,qBAAe;AACzB,kDAA2B,CAAC,MAAO,EAAG;;;;sBAAX;AAC3B,2BAAS,MAAK,SAAC,CAAS,MAAT;;AAIf,sBAAW,CAAC,EAAD,SAAK,IAAI,CAAI,EAAE,sBAA1B;AACE,6BAAU,EAAE,WAAU;AAEtB,iCAAU,qBAAe,WAAU;AAErC,0CAAmB,CAAC,MAAO,EAAG;;;;sBAAX;AACnB,2BAAS,MAAK,SAAC,CAAS,MAAT;;;AAKjB,yBAAU,qBAAe;AACzB,gDAA2B,CAAC,MAAO,EAAG;;;;oBAAX;AAC3B,yBAAS,MAAK,SAAC,CAAS,MAAT;;AAGjB,kBAAY,CAAN,CAAF,CAAE,GAAE,GAAF,CAAM,IAAG,CAAH,CAAM,IAAa,CAAN,CAAF,CAAE,GAAE,GAAF,CAAM,IAA4B,CAAnB,WAAC,KAAK,YAAN,CAAmB,GAAE,CAAF,CAA5B,CAA/B;AAEE,6BAAQ,KAAK,YAAW,CAAC,CAAE,GAAE,GAAL,CAAxB;AACA,wDAAY,CAAC,KAAM,SAAU,QAAjB;AAEZ,uDAAa,CAAC,KAAM,oBAAe,CAAC,CAAC,CAAF,EAAM,CAA5B;AAEb,oBAAK;AACL,oBAAM,CAAF,CAAE,IAAG,CAAH,CAAM,IAAO,CAAF,CAAE,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAAnB,EACE,IAAK,aAAO,WAAC,CAAD,CADd;AAGA,qBAAM;AACN,qBAAM;AACN,qBAAM;AACN,uBAAQ;AACR,oBAAY,CAAD,QAAX;AAEE,uBAAM,CAAC;AACP,uBAAM,CAAC;AACP,uBAAM,CAAC;AACP,yBAAQ,CAAC;iBALX;AAQA,2CAAsB,CAAC,MAAO,EAAG;;;;oBAAX;AACtB,+CAA0B,CAAC,MAAO,EAAG;;;;oBAAX;AAC1B,sDAAiC,CAAC,MAAO,EAAG;;;;oBAAX;AACjC,oDAA+B,CAAC,MAAO,EAAE;;;;oBAAV;AAE/B,sBAAO;AACP,mCAAc,CAAC,MAAO,EAAG,yEAAa;;;;oBAAxB;AACd,oBAAK;AACL,0CAAqB,CAAC,UAAW,8CAAM,EAAG,MAAO,IAAK;;;;oBAAjC;AACrB,oBAAG,CAAH;AAGI,2BAAS,WAAS,CAAC,8CAAM,IAAK,GAAI,GAAI,GAAI,KjB1xB4M,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CiByxB9I;AAEpB,2CAAoB,CAAC,UAAW,8CAAM,EAAG,MAAO,GAA5B;iBALtB;eAhCF;AAyCA,kBAAY,CAAN,CAAF,CAAE,GAAE,GAAF,CAAM,IAAG,CAAH,CAAM,IAAa,CAAN,CAAF,CAAE,GAAE,GAAF,CAAM,IAA4B,CAAnB,WAAC,KAAK,YAAN,CAAmB,GAAE,CAAF,CAA5B,CAA/B;AAEE,6BAAQ,KAAK,YAAW,CAAC,CAAE,GAAE,GAAL,CAAxB;AACA,wDAAY,CAAC,KAAM,SAAU,QAAjB;AACZ,oBAAK;AACL,0CAAqB,CAAC,UAAW,8CAAM,EAAG,MAAO;;;;oBAA5B;AACrB,oBAAG,CAAH;AAEE,sCAAe,CAAC,UAAW,8CAAM,EAAG,KAArB;AACf,2CAAoB,CAAC,UAAW,8CAAM,EAAG,KAArB;iBAHtB;eANF;AAaA,kBAAY,CAAN,CAAF,CAAE,GAAE,GAAF,CAAM,IAAG,CAAH,CAAM,IAAa,CAAN,CAAF,CAAE,GAAE,GAAF,CAAM,IAAiC,CAAxB,WAAC,KAAK,iBAAN,CAAwB,GAAE,CAAF,CAAjC,CAA/B;AAEE,6BAAQ,KAAK,iBAAgB,CAAC,CAAE,GAAE,GAAL,CAA7B;AACA,wDAAY,CAAC,KAAM,SAAU,QAAjB;AACZ,oBAAK;AACL,+CAA0B,CAAC,UAAW,8CAAM,EAAG,MAAO;;;;oBAA5B;AAC1B,oBAAG,CAAH;AAEE,2CAAoB,CAAC,UAAW,8CAAM,EAAG,KAArB;AACpB,gDAAyB,CAAC,UAAW,8CAAM,EAAG,KAArB;iBAH3B;eANF;aAhTF;;SAlGJ;AAkaA,4BAAe,CAAC,UAAW,+CAAO,KAAnB;OA/cjB;AAvHgC;AAvGC;AAGjC;AAAG;AACH;AACA;AACA;AACA;AAEA,YAAO;AACP,YAAO;AACP,UAAW,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,IAAgB,CAAb,YAAM,SAAC,EAAM,GAAE,CAAF,CAAhB,CAA7B;AAEE,cAAO,YAAM,WAAC,MAAD;AACb,YAAG,CAAI,GAAG,sBAAV;AAEE,gBAAO;AACF;AACH,cADG,IACH;AAEE,qBAAS,QAAO,OAAO,CAAC,GAAG,WAAJ;AACvB,qBAAS,MAAK,OAAO,CAAC,GAAG,SAAJ;WAEvB,UANG,IAMH;AAEE,qBAAS,QAAO,OAAO,CAAC,GAAG,cAAJ;AACvB,qBAAS,MAAK,OAAO,CAAC,GAAG,YAAJ;WAHvB;SATJ;OAHF;AAqBA,UAAG,GAAH;AAEO;AACH,YADG,KACH;AAEE,mBAAS,QAAO,OAAO,CAAC,sBAAgB,WAAjB;AACvB,mBAAS,MAAK,OAAO,CAAC,sBAAgB,SAAjB;SAEvB,UANG,KAMH;AAEE,mBAAS,QAAO,OAAO,CAAC,sBAAgB,cAAjB;AACvB,mBAAS,MAAK,OAAO,CAAC,sBAAgB,YAAjB;SAHvB;OARJ;AAgBA,UAAK;AACL,WAAM;AACN,4BAAiB,CAAC,UAAW,+CAAO,OAAQ,aAAc,WAAY,MAAO;;;;WAAG;;;;UAA/D;AAEjB,UAAG,CAAH;AAEE,YAAG,EAAH,EACE,SAAS,gBAAc,CAAC,+CAAO,wEAAR,CADzB;AAGA,YAAG,GAAH;AAEO;AACH,cADG,KACH;AAAY,qBAAS,MAAK,OAAO,CAAC,sBAAgB,SAAjB;AACjC,oBAFG,KAEH,kFAAe,SAAS,MAAK,OAAO,CAAC,sBAAgB,YAAjB,CAApC;SAGC,UAAY,GAAD,QAAX;AAEE;AACH,cADG,KACH;AAAY,qBAAS,MAAK,OAAO,CAAC,GAAG,SAAJ;AACjC,oBAFG,KAEH,kFAAe,SAAS,MAAK,OAAO,CAAC,GAAG,YAAJ,CAApC;SAJC;AAQL,qBAAQ,KAAR;AACA,+CAAa,CAAC,KAAM,oBAAe,CAAC,CAAC,CAAF,EAAM,oBAAe,CAAC,CAAC,CAAF,CAA3C;AAEb,cAAO,iBAAY,CAAC,MAAD;AACnB,2BAAc,CAAC,OAAQ,MAAO;;;;YAAhB;AACd,YAAK;AACL,kCAAqB,CAAC,UAAW,8CAAM,OAAQ,aAAc,WAAY,MAAO,IAAK;;;;YAAhE;AACrB,YAAG,CAAH;AAEO;AACH,cADG,KACH;AAEE,gBAAG,sBAAgB,iBAAnB;AACE,uBAAS,WAAS,CAAC,8CAAM,IAAK,MAAO,sBAAgB,yBAAyB,sBAAgB,uBAAuB,sEAAS,CAAC,GjBpOjH,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CiBoOlJ;AAElB,kBAAA,SAAS,WAAS,CAAC,8CAAM,IAAK,MAAO,sBAAgB,yBAAyB,sBAAgB,uBAAuB,sEjBvOqI,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CiBsOlJ;WAEtB,UARG,KAQH;AAEE,gBAAG,sBAAgB,oBAAnB;AACE,uBAAS,WAAS,CAAC,8CAAM,IAAK,MAAO,sBAAgB,4BAA4B,sBAAgB,0BAA0B,sEAAS,GjB3OtH,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CiB2OlJ;AAElB,kBAAA,SAAS,WAAS,CAAC,8CAAM,IAAK,MAAO,sBAAgB,4BAA4B,sBAAgB,0BAA0B,sEjB9O+H,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CiB6OlJ;WALtB;AAQF,mCAAoB,CAAC,UAAW,8CAAM,OAAQ,aAAc,WAAY,MAAO,GAA3D;SAlBtB;AAoBA,6BAAgB,CAAC,UAAW,+CAAO,OAAQ,aAAc,WAAY,KAArD;OA/ClB;AApDiC;AAxRC;AAGlC;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAAI;AACJ;AACA;AACA;AAAI;AACJ;AACA;AACA;AAEA;AACA,gBAAK,KAAL;AACA,YAAO;AACP,YAAO;AACP,UAAY,CAAR,OAAQ,IAAG,CAAH,CAAM,IAAa,CAAR,OAAQ,IAAiB,CAAd,aAAO,SAAC,EAAM,GAAE,CAAF,CAAjB,CAA/B;AAEE,cAAO,aAAO,WAAC,OAAD;AACd,YAAG,CAAI,GAAG,sBAAV;AAEE,gBAAO;AACF;AACH,cADG,IACH;AAEE,qBAAS,QAAO,OAAO,CAAC,GAAG,WAAJ;AACvB,qBAAS,MAAK,OAAO,CAAC,GAAG,SAAJ;WAEvB,UANG,IAMH;AAEE,qBAAS,QAAO,OAAO,CAAC,GAAG,cAAJ;AACvB,qBAAS,MAAK,OAAO,CAAC,GAAG,YAAJ;WAHvB;SATJ;OAHF;AAqBA,UAAG,GAAH;AAEO;AACH,YADG,KACH;AAEE,mBAAS,QAAO,OAAO,CAAC,uBAAiB,WAAlB;AACvB,mBAAS,MAAK,OAAO,CAAC,uBAAiB,SAAlB;SAEvB,UANG,KAMH;AAEE,mBAAS,QAAO,OAAO,CAAC,uBAAiB,cAAlB;AACvB,mBAAS,MAAK,OAAO,CAAC,uBAAiB,YAAlB;SAHvB;OARJ;AAgBA,UAAK;AACL,WAAM;AACN,mCAAwB,CAAC,UAAW,2CAAG,QAAS,MAAO;;;;WAAG;;;;UAAlC;AAExB,UAAG,CAAH;AAEE,YAAG,EAAH,EACE,SAAS,gBAAc,CAAC,2CAAG,wEAAJ,CADzB;AAGA,mBAAM,CAAN;AACA,cAAO;AAEP,YAAY,GAAD,QAAX;AAEE,cAAG,GAAG,WAAU,SAAhB;AAEE,kBAAO,GAAG,WAAU;AACpB,uBAAM,+BAAK,CAAC,UAAK,CAAC,CAAC,MAAa,GAAJ,GAAF,GAAQ,oBAAe,CAAC,CAAD,CAAhC,EAAsC,UAAK,CAAC,CAAC,IAAK,GAA6B,CAAP,CAAlB,CAAC,OAAiB,GAAP,CAAC,IAAH,GAAW,GAAF,CAAO,GAAE,CAAF,CAApC,EAA0C,UAAK,CAAC,CAAC,MAAO,GAAE,oBAAe,CAAC,CAAD,CAA1B,EAAgC,UAAK,CAAC,CAAC,IAAsC,GAAJ,CAAP,CAAlB,CAAC,OAAiB,GAAP,CAAC,IAAH,GAAW,GAAF,CAAO,GAAE,CAAF,CAA7B,GAAmC,GAA1C,CAArI,CAAX;AACA,qBAAS,mBAAmB,CAAC,4CAAI,MAAO,MAAO,KAAM,KAAM,uBAAc,sBAA7C;AAC5B,cAAE,MAAF,GAAY,EAAE;AACd,kBAAO,GAAU,GAAJ,GAAF,GAAQ,oBAAe,CAAC,CAAD,CAAjB;WANnB;AASA,cAAG,GAAG,YAAN;AAEE,kBAAO,GAAG;AACV,uBAAM,+BAAK,CAAC,UAAK,CAAC,EAAE,MAAa,GAAJ,GAAF,GAAQ,oBAAe,CAAC,CAAD,CAAjC,EAAuC,UAAK,CAAC,EAAE,IAAK,GAA+B,CAAP,CAApB,EAAE,OAAkB,GAAR,EAAE,IAAJ,GAAY,GAAF,CAAO,GAAE,CAAF,CAAvC,EAA6C,UAAK,CAAC,EAAE,MAAO,GAAE,oBAAe,CAAC,CAAD,CAA3B,EAAiC,UAAK,CAAC,EAAE,IAAwC,GAAJ,CAAP,CAApB,EAAE,OAAkB,GAAR,EAAE,IAAJ,GAAY,GAAF,CAAO,GAAE,CAAF,CAA/B,GAAqC,GAA7C,CAA1I,CAAX;AACA,gBAAG,GAAG,UAAN;AACE,uBAAS,kBAAkB,CAAC,4CAAI,0EAAa,MAAO,MAAO,KAAM,MAAO,sBAA7C;AAE3B,kBAAA,SAAS,kBAAkB,CAAC,4CAAI,2EAAc,MAAO,MAAO,KAAM,MAAO,sBAA9C;AAC7B,cAAE,MAAF,GAAY,EAAE;AACd,kBAAO,GAAU,GAAJ,GAAF,GAAQ,oBAAe,CAAC,CAAD,CAAjB;WATnB;AAYA,cAA4C,CAAd,GAAI,UAAU,KAAG,qEAAH,CAAY,IAAgB,CAAX,gBAAW,KAAE,OAAF,CAAxE;AAEE,kBAAO,oBAAe,CAAC,CAAD;AACtB,uBAAM,+BAAK,CAAC,UAAK,CAAC,EAAE,MAAa,GAAJ,GAAF,GAAQ,oBAAe,CAAC,CAAD,CAAjC,EAAuC,UAAK,CAAC,EAAE,IAAK,GAA+B,CAAP,CAApB,EAAE,OAAkB,GAAR,EAAE,IAAJ,GAAY,GAAF,CAAO,GAAE,CAAF,CAAvC,EAA6C,UAAK,CAAC,EAAE,MAAO,GAAE,oBAAe,CAAC,CAAD,CAA3B,EAAiC,UAAK,CAAC,EAAE,IAAwC,GAAJ,CAAP,CAApB,EAAE,OAAkB,GAAR,EAAE,IAAJ,GAAY,GAAF,CAAO,GAAE,CAAF,CAA/B,GAAqC,GAA7C,CAA1I,CAAX;AACA,kCAAiB,CAAC,UAAW,4CAAI,uBAAiB,qBAAqB,QAAmC,GAAI,YAAsC,GAAI,UAAvI;AACjB,kBAAO,GAAU,GAAJ,GAAF,GAAQ,oBAAe,CAAC,CAAD,CAAjB;WALnB;SAvBF;AAgCA,YAAG,GAAH;AAEO;AACH,cADG,KACH;AAAa,qBAAS,MAAK,OAAO,CAAC,uBAAiB,SAAlB;AAClC,oBAFG,KAEH,mFAAgB,SAAS,MAAK,OAAO,CAAC,uBAAiB,YAAlB,CAArC;SAGC,UAAY,GAAD,QAAX;AAEE;AACH,cADG,KACH;AAAa,qBAAS,MAAK,OAAO,CAAC,GAAG,SAAJ;AAClC,oBAFG,KAEH,mFAAgB,SAAS,MAAK,OAAO,CAAC,GAAG,YAAJ,CAArC;SAJC;AAQL,cAAO,kBAAa,CAAC,OAAD;AACpB,4BAAe,CAAC,QAAS,MAAO;;;;YAAjB;AAEf,aAAM;AACN,aAAM;AACN,aAAM;AACN,eAAQ;AACR,YAAY,GAAD,QAAX;AAEE,eAAM,GAAG;AACT,eAAM,GAAG;AACT,eAAM,GAAG;AACT,iBAAQ,GAAG;SALb;AAQA,gCAAmB,CAAC,QAAS,MAAO;;;;YAAjB;AACnB,oCAAuB,CAAC,QAAS,MAAO;;;;YAAjB;AACvB,2CAA8B,CAAC,QAAS,MAAO;;;;YAAjB;AAC9B,yCAA4B,CAAC,QAAS,MAAO;;;;YAAjB;AAE5B,YAAK;AACL,qBAAQ,CAAR;AACA,+CAAa,CAAC,KAAM,oBAAe,CAAC,CAAC,CAAF,EAAM,oBAAe,CAAC,CAAC,CAAF,CAA3C;AACb,YAAI,MAAJ,GAAc,QAAG,CAAC,IAAI,MAAO,IAAI,MAAO,GAAE,GAAzB;AAEjB,mCAAsB,CAAC,UAAW,8CAAM,QAAS,MAAO,IAAK;;;;YAAvC;AACtB,YAAG,CAAH;AAEO;AACH,cADG,KACH;AAEE,gBAAG,uBAAiB,iBAApB;AACE,uBAAS,WAAS,CAAC,8CAAM,IAAK,GAAI,GAAI,GAAI,KAAM,CAAC,GjBbnC,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CiBalJ;AAElB,kBAAA,SAAS,WAAS,CAAC,8CAAM,IAAK,GAAI,GAAI,GAAI,KjBhBgN,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CiBelJ;WAEtB,UARG,KAQH;AAEE,gBAAG,uBAAiB,oBAApB;AACE,uBAAS,WAAS,CAAC,8CAAM,IAAK,GAAI,GAAI,GAAI,KAAM,GjBpBlC,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CiBoBlJ;AAElB,kBAAA,SAAS,WAAS,CAAC,8CAAM,IAAK,GAAI,GAAI,GAAI,KjBvBgN,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CiBsBlJ;WALtB;AAQF,oCAAqB,CAAC,UAAW,8CAAM,QAAS,MAAO,GAAlC;SAlBvB;AAoBA,oCAAuB,CAAC,UAAW,+CAAO,QAAS,KAA5B;OArGzB;AA/DkC;AAwhCO;AAEzC;AACA;AACA;AACA;AACA;AAGA,UAAK;AACL,eAAS,MAAK,QAAC,CAAQ,kEAAR;AACf,eAAS,MAAK,SAAC,CAAS,CAAT;AACf,eAAS,QAAO,QAAC,CAAQ,oEAAR;AACjB,eAAS,QAAO,SAAC,CAAS,CAAT;AAEjB,UAAK;AACL,oCAAyB,CAAC,UAAW,+CAAO,QAAS,WAAY,UAAW;;;;UAAnD;AACzB,UAAG,CAAH;AAEE,gBAAS;AACT,qBAAQ,KAAR;AACA,cAAO,qDAAmB,QAAC;AAC3B;AACO;AACH,cADG,IACH;AAEE,oBAAS;AACT,eAAG,OAAO,CAAC,gCAAM,CAAC,KAAK,KAAM,GAA6B,CAAd,CAAZ,KAAK,MAAO,GAAE,KAAK,KAAP,CAAc,GAAE,CAAF,CAA7B,CAAkC,KAAK,IAAnD,CAAP;AACV,eAAG,OAAO,CAAC,gCAAM,CAAC,KAAK,OAAQ,KAAK,OAAnB,CAAP;AACV,eAAG,OAAO,CAAC,gCAAM,CAAC,KAAK,MAAO,KAAK,OAAlB,CAAP;AACV,yBAAQ,+BAAK,CAAC,KAAK,MAAO,KAAK,IAAK,GAAE,oBAAe,CAAC,CAAD,CAAjB,CAAsB,KAAK,OAAQ,KAAK,OAAQ,GAAE,oBAAe,CAAC,CAAD,CAAxF,CAAb;WAEF,UATG,IASH;AAEE,oBAAS;AACT,eAAG,OAAO,CAAC,gCAAM,CAAC,KAAK,MAAO,KAAK,IAAlB,CAAP;AACV,eAAG,OAAO,CAAC,gCAAM,CAAC,KAAK,OAAQ,KAAK,IAAnB,CAAP;AACV,eAAG,OAAO,CAAC,gCAAM,CAAC,KAAK,KAAM,GAA6B,CAAd,CAAZ,KAAK,MAAO,GAAE,KAAK,KAAP,CAAc,GAAE,CAAF,CAA7B,CAAkC,KAAK,OAAnD,CAAP;AACV,yBAAQ,+BAAK,CAAC,KAAK,MAAO,KAAK,IAAK,GAAE,oBAAe,CAAC,CAAD,CAAjB,CAAsB,KAAK,OAAQ,KAAK,OAAQ,GAAE,oBAAe,CAAC,CAAD,CAAxF,CAAb;WANF;AASF,aAAG;AACH,mBAAS,SAAS,CAAC,IjB/hCmE,wEiB+hCpE;AAElB,cAAG,UAAW,KAAG,CAAC,CAAlB;AAEE,qBAAS,MAAK,SAAC,CAAS,QAAT;AACf,kDAAY,YAAY,CAAC,SAAS,OAAO,ExBhlCmC,CwBglCpD;AACxB,qBAAS,WAAS,CAAC,8CAAM,qBAAQ,CAAC,UAAD,EAAc,MAAO,qEAAW,MjBh8BmK,sEAA0B,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CiB+7BtJ;WAJpB;AAtBF;AA6BE,aAAI,eAAJ,GAAI;AA7BN;AA+BA,qCAAwB,CAAC,UAAW,+CAAO,QAAS,WAAY,SAAxC;OApC1B;AAjByC;AAsEF;AAAhB;AAEvB;AAEA,eAAU;AACV,UAAG,+BAAyB,GAAE,CAA9B;AAEE,YAAK,sBAAoB,CAAC,CAAD;AACzB,iBAAU,CAAC,QAAK,CAAC,CAAD;OAHlB;AALuB;AAAgB;AAoGC;AAExC;AAEA,UAAK,6BAAwB,CAAC,UAAD;AAC7B,UAAY,CAAD,QAAX;AAEE,8BAAiB,CAAC,CAAD;AACjB,gCAAmB,CAAC,EAAG,KPhZqI,4EAAkC,KOgZ3K;OAHrB;AALwC;AAhCI;AAArB;AAEvB,eAAU;AAFa;AAAqB;AAKI;AAAzB;AAEvB,eAAU;AAFa;AAAyB;AAxDP;AAAlB;AAEvB,eAAU;AAFa;AAAkB;AAKC;AAAnB;AAEvB,eAAU,qBAAe;AAFF;AAAmB;AA0FC;AAE3C,2BAAe,eAAC,CAAe,MAAf;AAF2B;AArFF;AAAlB;AAEvB,UAAG,aAAO,SAAC,EAAM,GAAE,CAAnB;AACE,iBAAU,eAAM,GAAE,aAAO,SAAC,EAAV;AAEhB,qBAAU;AALW;AAAkB;AA0FC;;AA7EQ;AAA3B;AAEvB;AAAG;AAEH,eAAU,CAAC;AACX,UAAK,6BAAwB,CAAC,UAAD;AAC7B,UAAY,CAAD,QAAX;AAEE,aAAM,yBAAoB,CAAC,CAAD;AAC1B,YAAY,EAAD,QAAX,EACE,SAAU,EAAE,KADd;OAHF;AANuB;AAA2B;AAcI;AAA/B;AAEvB;AAAG;AAEH,eAAU,CAAC;AACX,UAAK,6BAAwB,CAAC,UAAD;AAC7B,UAAY,CAAD,QAAX;AAEE,aAAM,6BAAwB,CAAC,CAAD;AAC9B,YAAY,EAAD,QAAX,EACE,SAAU,EAAE,KADd;OAHF;AANuB;AAA+B;AA1CH;AAA5B;AAEvB,eAAU;AAFa;AAA4B;AAuBD;AAA3B;AAEvB,eAAU;AAFa;AAA2B;AA2DT;AAEzC,UAAG,YAAM,SAAC,EAAM,GAAE,CAAlB,EACE,oBADF;AAFyC;AAxGA;AAEzC;AAEA,UAAK,YAAM;AACX,OAAC,WAAD,GAAe;AACf,OAAC,eAAD,GAAmB;AACnB;AAPyC;AAyFF;AAAhB;AAEvB;AAEA,YAAM,UAAN,GAAoB,CAAC;AACrB,YAAM,SAAN,GAAmB;AACnB,WAAM,eAAU,CAAC,aAAc,GAAE,GAAF,CAAO,MAAO,CAAC,EAAG,eAAgB,KAAM,IAAvD;AAChB,UAAY,EAAD,QAAX;AAEE,cAAM,UAAN,GAAoB,EAAE;AACtB,cAAM,SAAN,GAAmB,EAAE,QAAK,CAAC,CAAD;OAH5B;AAPuB;AAAgB;AAt0CxB;;;;;;;;;;;;AAnCjB,mBA4Ec;AAWa;;AAXb;AA5Ed,GA4Ec,uFA5Ed;ACAA,0CAIS,8HAJT;;;AAWS,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AAqDiB;AAhDK;;AAEP;;;AAEvB;AACA;AACA;AACA;AACA;AANuB;;;;;;AAsfkB;AAE3C,UAAG,YAAQ,KAAG,KAAd;AAEE,oBAAO,OAAO,CAAC,KAAD;AACd,qBAAM;OAHR;AAF2C;AASK;AAGhD,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;AAChB,qBAAM;OAHR;AAHgD;AAUD;AAE/C,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf,qBAAM;OAHR;AAF+C;AASA;AAE/C,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf,qBAAM;OAHR;AAF+C;AA/CI;AAAlB;AAEjC,eAAU,aAAM,mBAAC;AAFgB;AAAkB;AAcA;AAAlB;AAEjC,eAAU,gBAAW,KAAG,CAAH;AAFY;AAAkB;AATF;AAAhB;AAEjC,eAAU;AACV,UAAW,CAAC,YAAD,SAAS,IAAI,CAAI,uCAAa,CAAC,YAAD,CAAzC;AACE,iBAAU;AACP,gBAAW,CAAC,aAAD,SAA8C,IAAzB,CAAC,aAAM,mBAAC,EAAR,SAAZ,IAAqD,CAAX,gBAAW,KAAG,EAAH,CAAzE,EACH,SAAwB,aAAM,mBAAC,EAAe,aAAW,CAAC,gBAAD,CADtD;AAL4B;AAAgB;AA3BF;AAE/C,mBAAM;AAFyC;AAKL;AAE1C;AACA,UAAY,gBAAD,QAAX,EACE,gBAAsB,OAAX,iBAAc,+BAAH,CAA8B,SADtD;AAEA,0BAAgB;AAChB,yBAAe;AACf,qBAAW,uCAAa,QAAC;AACzB,kBAAO,UAAP,GAAqB;AARgD;AAA3B;AAWA;AAElC,eAAR,KAAQ;AACR;AAH0C;AA5BF;AAExC;AACA,UAAa,8BAAH,eAAP,MAAO,CAAV;AAEE,oBAAO,OAAO,CAAS,OAAP,OAAU,8BAAH,CAA6B,QAAtC;AACd,2BAAuB,OAAP,OAAU,8BAAH,CAA6B;AACpD,2BAAuB,OAAP,OAAU,8BAAH,CAA6B;AACpD,4BAAwB,OAAP,OAAU,8BAAH,CAA6B;OALvD;AAHwC;AAjcf;AAiBL,+BAAY,elGobrB,gCkGpbqB,CAAZ;AAKH,8BrBofJ,iDqBpfI;AACI;AACC,mCA1BU,+CA0BV;AACD;AAzBI;AA4BC;;;AAExB;AAFwB;;;;;AAiZe;AAAP;AAGlC,eAA8C,cAAK,CAAC,KAAD;AAHjB;AAAO;AAYC;AAGhC,oBAAK,CAAC,MAAU,KAAX;AAH2B;AAjBO;AAAf;AAElC,eAAU;AAFwB;AAAe;AANN;AAE3C;AACA,sBAAiB,OAAP,OAAU,gCAAH;AAH0D;AAAhC;AALN;AAAH;AAElC,eAA8C;AAFZ;AAAG;AAsBG;AAAN;AAGlC,eAAoD,iFAAC,KAAD;AAHlB;AAAM;AAvZd;AAQN,+BAAO,UJkKN,iEIlKM,CAAP;AARM;AAcS,0FAAmB,U3GgD/C,2B2GhD+C,EAAkB,WrBge3D,gDqBhe2D,CAArC;AACE,4FAAmB,U3G+CjD,2B2G/CiD,EAAkB,WrB+d7D,gDqB/d6D,CAArC;AAGV;;;AAMzB;AACA;AACA;AARyB;;;;;;;AAiVyB;AAAjB;AAEnC,eAAU,qBAAgB,CAAC,uBAAD;AAFS;AAAiB;AAvBE;AAGtD,8BAAoB;AACpB;AAJsD;AAYX;AAAR;AAEnC,eAA+C;AAFZ;AAAQ;AAKC;AAG5C,qBAAK,OAAO,CAAC,KAAD;AAHgC;AAVS;AAAlB;AAEnC,eAAU;AAFyB;AAAkB;AAqBR;AAAV;AAEnC,eAAU,4BAAgB,CAAC,EAAS,EAAS,EAAS,CAA5B;AAFS;AAAU;AArCG;AAGhD;AACA,UAAc,CAAV,SAAU,KAAE,+BAAF,CAAY,IAAgB,CAAX,UAAW,KAAE,qBAAF,CAA1C,EACE,wBAAoB,IADtB;AAJgD;AA/HE;AAElD;AACA,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,qBAAgB,CAAC,UAAD,CAAvB,CADlB;AAHkD;AAPE;AAEpD;AACA,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,qBAAgB,CAAC,UAAD,CAAvB,CADpB;AAHoD;AALI;AAArB;AAEnC,eAAU,+BAA0B,QAAC,YAAM,CAAC,IAAD,CAAN;AAFF;AAAqB;AAmBL;AAGnD;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAAG;AACH;AAEA,WAAM,YAAY;AAClB,UAAW,CAAC,EAAD,SAAK,IAAW,8BAAH,eAAH,EAAG,CAAxB;AAEE,kBAAK,YAAY,KAAjB;AACA,YAAK;AACL,oCAAuB,CAAC,UAAW,2CAAG,EAAE,SAAC,GAAO;;;;YAAzB;AACvB,YAAG,CAAH;AAEE,kBAAa,OAAH,GAAM,8BAAH;AACb,gBAAO,KAAK;AACZ,cAAY,GAAD,QAAX;AAEE,mDAAa,CAAC,EAAG,CAAC,EAAG,CAAC,CAAT;AACb,iBAAM,CAAC,OAAQ,GAAE,CAAC,IAAH;AACf,gBAAG,KAAK,YAAY,GAAE,CAAtB,EACE,KAAM,KAAK,YADb;AAGU,uBAAL,KAAK;AACR,gBADQ,IACR;AAAQ,2BAAQ,+BAAK,CAAC,CAAC,MAAO,CAAC,KAAM,CAAC,KAAM,GAAE,EAAF,CAAM,CAAC,OAA9B,CAAb;AACR,sBAFQ,IAER;AAAU,2BAAQ,+BAAK,CAAC,CAAC,KAAM,GAA4B,CAAN,CAAlB,CAAC,MAAiB,GAAR,CAAC,KAAH,GAAY,EAAF,CAAM,GAAE,CAAF,CAA5B,CAAiC,CAAC,KAAM,CAAC,KAAsC,GAAJ,CAAN,CAAlB,CAAC,MAAiB,GAAR,CAAC,KAAH,GAAY,EAAF,CAAM,GAAE,CAAF,CAA5B,GAAkC,EAAF,CAAM,CAAC,OAA9F,CAAb;AACV,sBAHQ,IAGR,oDAAS,aAAQ,+BAAK,CAAC,CAAC,MAAO,GAAE,EAAF,CAAM,CAAC,KAAM,CAAC,OAAQ,CAAC,OAAhC,CAAb,CAAT;AAGF,gBAAK;AACL,gBAAK;AACL,8BAAa,CAAC;;;;iBAAG;;;;iBAAG,GAAG,SAAC,GAAO,GAAG,UAAC,GAAS,IAAI,MAAO,GAAE,IAAI,KAAN,CAAe,IAAI,OAAQ,GAAE,IAAI,IAAN,CAAc,IAAI,MAAO,GAAE,IAAI,KAAN,CAAe,IAAI,OAAQ,GAAE,IAAI,IAAN,CAAa,KAAM,MAAO,KAAnJ;AACb,0BAAS,+BAAK,CAAC,IAAI,KAAM,GAAiC,CAAL,CAAxB,IAAI,MAAoB,GAAX,IAAI,KAAN,GAAe,CAAF,CAAK,GAAE,CAAF,CAAjC,CAAsC,IAAI,IAAK,GAAiC,CAAL,CAAxB,IAAI,OAAoB,GAAV,IAAI,IAAN,GAAc,CAAF,CAAK,GAAE,CAAF,CAAjC,CAAsC,IAAI,KAA2C,GAAJ,CAAL,CAAxB,IAAI,MAAoB,GAAX,IAAI,KAAN,GAAe,CAAF,CAAK,GAAE,CAAF,CAAjC,GAAuC,CAAF,CAAK,IAAI,IAA0C,GAAJ,CAAL,CAAxB,IAAI,OAAoB,GAAV,IAAI,IAAN,GAAc,CAAF,CAAK,GAAE,CAAF,CAAjC,GAAuC,CAApM,CAAd;AACA,0BAAS,+BAAK,CAAC,UAAK,CAAC,KAAK,KAAN,EAAc,UAAK,CAAC,KAAK,IAAN,EAAa,UAAK,CAAC,KAAK,MAAN,EAAe,UAAK,CAAC,KAAK,OAAN,CAA/D,CAAd;AAEE,qBAAS,aAAW,CAAC,+CAAO,IlB/C6D,KACzE,MAA0B,KAA2B,KkB8CjD;WAnBxB;AAwBA,qCAAsB,CAAC,UAAW,2CAAG,EAAE,SAAC,EAAlB;SA5BxB;OALF;AAdmD;AAoDH;AAGhD;AACA;AACA;AACA;AAEA,UAAW,CAAC,YAAY,KAAb,SAAoB,IAA0B,8BAAH,eAAlB,YAAY,KAAM,CAAtD;AAEE,aAAwB,OAAlB,YAAY,MAAS,8BAAH;AACxB,cAAO,EAAE;AACT,YAAY,GAAD,QAAX;AAEE,sBAAO,YAAP;AACA,eAAM,GAAG,KAAK,OAAQ,GAAE,GAAG,KAAK,IAAV;AACtB,cAAG,EAAE,YAAY,GAAE,CAAnB,EACE,KAAM,EAAE,YADV;AAGO,qBAAF,EAAE;AACL,cADK,IACL;AAAQ,eAAG,KAAK,KAAR,GAAiB,GAAG,KAAK,KAAW,GAAH,EAAF,GAAO,CAAF;AAC5C,oBAFK,IAEL,oDAAS,GAAG,KAAK,MAAR,GAAkB,GAAG,KAAK,MAAY,GAAH,EAAF,GAAO,CAAjD;AAEoB,0FAAC,UAAW,+EAAZ;SAGtB;OAGF;AA7B8C;AA9EJ;AAE5C;AACA,oBAAS,GAAT;AACA,qBAAU,GAAV;AAJiE;AAArB;AA4Le;AAE3D;AACA;AAEA,UAAG,CAAY,CAAC,yBAAD,SAAf,EACE,MADF;AAGA;AACA,qBAAK;AACL,eAAS,QAAiC,OAA5B,yBAAe,SAAC,EAAK,SAAC,EAAM,GAAE,CAAF,kBAA1C;AAAI;AAEF,aAAM,eAAK;AACX,UAAE,cAAC,CAAc,yBAAe,SAAC,EAAK,WAAC,CAAD,CAAG,MAAtC;;AAEL;AAf2D;AA5DR;AAAhB;AAGnC;AACA;AAEA,eAAU,CAAC;AACX,eAAS,QAAiB,OAAZ,eAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,aAAe,OAAT,eAAK,WAAC,CAAD,EAAO,8BAAH;AACf,YAAG,EAAE,mBAAkB,KAAE,OAAzB;AAEE,mBAAU,EAAE,SAAC;AACb;SAHF;;AAViC;AAAgB;AAlBA;AAAhB;AAGnC;AACA;AAEA,eAAU;AACV,eAAS,QAAiB,OAAZ,eAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,aAAe,OAAT,eAAK,WAAC,CAAD,EAAO,8BAAH;AACf,YAAG,EAAE,SAAC,EAAM,KAAE,KAAd;AAEE,mBAAU,EAAE;AACZ;SAHF;;AAViC;AAAgB;AA7QxB;;;;;;;;AA4BP,+BAAO,UlGidjB,+BkGjdiB,CAAP;AA5BO;AAqCN;AA0c+B;AAEpD;AACA,iCAAe,CAAC,CAAC,2BAAuB,8BAAxB,CAAD;AAHqC;AA1c/B;;;;;;;;AAMA,kCJMU,4EINV;AACN;AACG;AACF,6BAhEU,yCAgEV;AACW,wCAnDQ,kDAmDR;AACE,0CAnDQ,oDAmDR;AACH,uCjBzBJ,oEiByBI;AACD,sCJ6EQ,8EI7ER;AACG;AACS,kDJ8EQ,0FI9ER;AACD,iDJ8EQ,yFI9ER;AACF,+CJ8EQ,uFI9ER;AACD,8CJ8EQ,sFI9ER;AACV,oCJgFQ,4EIhFR;AACD,mCJgFQ,2EIhFR;AACS,4CJ4EQ,oFI5ER;AACD,2CJ4EQ,mFI5ER;AAtBT;;AAoCA;AAErB;AAAK;AAEL,QAAG,GAAH;AAEE,UAAO,CAAH,EAAG,GAAE,CAAF,CAA+B,IAAlB,CAAH,EAAG,GAAE,CAAF,CAAR,IAAqB,CAAH,EAAG,GAAE,CAAF,CAAR,IAAqB,CAAH,EAAG,GAAE,CAAF,CAA9C;AAEE,YAAO,CAAH,EAAG,GAAE,EAAF,CAAoB,IAAN,CAAH,EAAG,GAAE,EAAF,CAAR,IAAmB,CAAI,EAApC;AAEE,gBAAK,EAAL;AACA,gBAAK,EAAL;;AAIA,cAAM,CAAH,EAAG,GAAE,EAAF,CAAK,GAAK,CAAH,EAAG,GAAE,EAAF,CAAhB;AAEE,kBAAK,EAAL;AACA,kBAAQ,CAAH,EAAG,GAAE,EAAF,CAAK,GAAE,EAAf;;AAIA,kBAAK,EAAL;AACA,kBAAQ,CAAH,EAAG,GAAE,EAAF,CAAK,GAAE,EAAf;;;;AAMJ,cAAK,CAAL;AACA,cAAK,CAAL;;;AAKF,UAAG,EAAH;AAEE,cAAK,EAAL;AACA,cAAK,EAAL;;AAIA,cAAK,EAAL;AACA,cAAK,EAAL;AAEA,YAAG,EAAH;AAEE,cAAM,CAAF,OAAE,IAAG,OAAH,CAAM,IAAO,CAAF,OAAE,GAAE,CAAF,CAAnB;AAEE,kBAAS,CAAJ,GAAI,GAAE,OAAF,CAAI,GAAE,OAAf;AACA,kBAAK,GAAL;WAGF,UAAM,CAAF,OAAE,IAAG,OAAH,CAAM,IAAO,CAAF,OAAE,GAAE,CAAF,CAAnB;AAEE,kBAAS,CAAJ,GAAI,GAAE,OAAF,CAAI,GAAE,OAAf;AACA,kBAAK,GAAL;WAHF;AAMA,cAAG,OAAE,KAAE,CAAP;AACE,iBAAM;AAEN,qBAAM,OAAE,GAAE,OAAF;AAEV,cAAG,GAAI,KAAE,CAAT;AACE,kBAAO;AAEP,sBAAO,GAAI,GAAE,GAAF;AAEb,cAAO,CAAH,EAAG,GAAE,CAAF,CAAK,IAAQ,CAAJ,GAAI,GAAE,EAAF,CAApB;AAEE,kBAAK,GAAI,GAAE,EAAX;AACA,kBAAK,GAAL;;AAIA,kBAAK,EAAG,GAAE,GAAV;AACA,kBAAK,GAAL;;SAhCJ;;;AA7CiB;AA5IvB,GAmIc,6BAnId;ACAA,+CAIS,UAJT;;;AAc8B;AAArB;AAGP,aAAU,iQAoOuP,GAnOjQ,iQAD2Q,GAE3Q,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,iQADiQ,GAEjQ,SADiQ;AAvO1P;AAAqB;AA+OG;AAAxB;AAEP,aAAU;AAFH;AAAwB;AAKA;AAAxB;AAEP,aAAU;AAFH;AAAwB;AAKA;AAAxB;AAEP,aAAU;AAFH;AAAwB;AAKA;AAAxB;AAEP,aAAU;AAFH;AAAwB;AA5QjC;ACAA,sCAeS,mRAfT;;;AA8CS,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AAyBQ;AAk7BiB;AAEnC,uBAAY,UAAK,CAAC,KAAD,CAAjB;AAFmC;AALL;AAAJ;AAE1B,eAAU;AAFgB;AAAI;AAtBK;AAEnC;AAKA,kBAAO,GAAP;AACA,oBAAS,GAAT;AARwD;AAArB;AAv5BjB;;;AAYE,+BAAO,UpG0djB,+BoG1diB,CAAP;AAZF;AAsBD;;;AAEf;AACA;AAAY;AACZ;AACA;AACA;AACA;AAKA;AACA;AACA;AAde;;;;;;AAylCsB;AAEvC,UAAG,gBAAY,KAAG,KAAlB,EACE,mBAAe,KADjB;AAFuC;AAMT;AAE9B,UAAG,OAAG,KAAG,KAAT,EACE,UAAM,KADR;AAF8B;AAMA;AAE9B,UAAG,OAAG,KAAG,KAAT,EACE,UAAM,KADR;AAF8B;AAzCU;AAExC;AAAG;AAAG;AAAO;AACb;AAEA,iBAAM,qBAAN;AACA,UAAK,gBAAU,GAAmB,CAAjB,CAAiB,GAAE,QAAF,CAAnB;AACf,UAAK,QAAG,CAAC,EAAE,EAAG,GAAE,EAAR;AACR,UAAK,QAAG,CAAC,EAAE,EAAG,GAAE,EAAR;AACR,UAAI,CAAE,KAAE,CAAR,EACE,IAAK,CADP;AAGA,UAAI,CAAE,KAAE,CAAR,EACE,IAAK,CADP;AAGA,cAAuB,CAAd,SAAM,CAAC,CAAE,GAAE,CAAL,CAAQ,GAAE,GAAF,CAAM,GAAE,OAAF;AAE7B,UAAO,CAAH,EAAG,IAAG,EAAE,EAAL,CAAS,IAAQ,CAAH,EAAG,IAAG,EAAE,EAAL,CAAxB;AACE,gBAAS,GAAI,GAAE,KAAF;AACV,gBAAO,CAAH,EAAG,IAAG,EAAE,EAAL,CAAS,IAAQ,CAAH,EAAG,IAAG,EAAE,EAAL,CAAxB;AACH,gBAAS,GAAI,GAAE,KAAF;AACV,gBAAO,CAAH,EAAG,IAAG,EAAE,EAAL,CAAS,IAAQ,CAAH,EAAG,IAAG,EAAE,EAAL,CAAxB,EACH,QAAS,GAAI,GAAE,KADZ;AAGL,cAAS,iBAAQ,CAAC,KAAD;AACjB,gBAAY,CAAL,EAAE,EAAG,GAAE,GAAF,CAAO,GAAI,CAAF,CAAE,GAAE,QAAG,CAAC,KAAD,CAAL,CAAJ;AACnB,gBAAY,CAAL,EAAE,EAAG,GAAE,GAAF,CAAO,GAAI,CAAF,CAAE,GAAE,QAAG,CAAC,KAAD,CAAL,CAAJ;AA1BqB;AALD;AAAd;AAEzB,eAAqC,CAA1B,gBAAG,CAAC,CAAE,GAAK,CAAH,EAAG,GAAE,kBAAF,CAAR,CAAuB,GAAE,gBAAG,CAAC,CAAE,GAAK,CAAH,EAAG,GAAE,kBAAF,CAAR,CAAL,CAA6B,IAAG,gBAAG,CAAC,EAAG,GAAE,kBAAN,CAAN;AAFzC;AAAc;AA3GF;AAGrC;AACA,UAAG,gBAAH;AAEE,2BAAe;AACf;OAHF;AAJqC;AAnCG;AAExC;AACA,yBAAe;AAHyB;AAMF;AAEtC,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,IAAD,CADhB;AAFsC;AAXA;AAEtC,0BAAgB;AAFsB;AAkFG;AAGzC;AACA;AACA,wBAAc;AACd,UAAG,mBAAc,CAAC,EAAG,CAAJ,CAAjB;AAEE,2BAAc,cAAS,CAAC,EAAG,CAAJ,CAAvB;AACA;AACA;OAJF;AANyC;AAcA;AAEzC;AACA,UAAG,eAAH;AAEE,YAAG,mBAAc,CAAC,EAAG,CAAJ,CAAjB;AAEE,6BAAc,cAAS,CAAC,EAAG,CAAJ,CAAvB;;AAIA,6BAAc,CAAC,EAAG,CAAJ;AACd,6BAAc,cAAS,CAAC,QAAI,OAAL,CAAvB;;AAEF;AACA;OAZF;AAHyC;AAmBF;AAGvC;AACA,wBAAc;AACd;AALuC;AA3CH;AAAX;AAEzB,eAAU;AAFe;AAAW;AAvDF;AAElC;AACA,oBAAS,GAAT;AACA,qBAAU,GAAV;AACA,gBAAW,CAAN,eAAM,GAAE,CAAF,CAAI,GAAE,kBAAjB;AACA,gBAAY,CAAP,gBAAO,GAAE,CAAF,CAAI,GAAE,kBAAlB;AACA,0BAAgB;AAChB,yBAAe;AACf,kBAAM,QAAC,CAAQ,mEAAR;AAKP,UAAI,iBAAJ,GAAyB;AAd8B;AAArB;AAiBA;AAElC;AACA;AAHkC;AAiBJ;AAE9B;AACA,UAAG,iBAAH;AAEE,4BAAgB;AAChB;OAHF;AAKA,eAAS,QAAO,QAAC,CAAQ,oEAAR;AACjB,eAAS,MAAK,QAAC,CAAQ,iEAAR;AACf,eAAS,QAAO,SAAC,CAAS,CAAT;AACjB,eAAS,YAAY,CAAC,OAAE,GAAE,oBAAe,CAAC,CAAD,CAAjB,CAAsB,OAAE,GAAE,oBAAe,CAAC,CAAD,CAAjB,CAAsB,OAAE,GAAE,oBAAe,CAAC,CAAD,CAAjB,CAAsB,OAAE,GAAE,oBAAe,CAAC,CAAD,CAAjB,CpB91BoB,6EoB81B/F;AACrB,eAAS,QAAO,SAAC,CAAS,QAAT;AACjB,eAAS,YAAY,CAAC,OAAE,GAAE,oBAAe,CAAC,CAAD,CAAjB,CAAsB,OAAE,GAAE,oBAAe,CAAC,CAAD,CAAjB,CAAsB,OAAE,GAAE,oBAAe,CAAC,CAAD,CAAjB,CAAsB,OAAE,GAAE,oBAAe,CAAC,CAAD,CAAjB,CpBh2BoB,6EoBg2B/F;AAbS;AAwEK;AAOnC,UAAG,eAAM,KAAG,CAAZ;AACE,mBAAO,UAAK,CAAuB,CAArB,gBAAM,eAAQ,MAAO,GAAE,eAAF,CAAS,GAAE,GAAlC,CAAuC,GAAE,GAAF;AAEnD,uBAAO;AAET,oBAAU,gBAAM,SAAQ,aAAa,CAAC,EAAG,EAAG,UAAK,CAAC,eAAM,GAAE,QAAT,EAAe,UAAK,CAAC,gBAAO,GAAE,QAAV,CAAhC;AAZF;AA4EE;;AAWH;AAAT;AAkBzB,mBAAyB,CAAf,UAAK,CAAC,CAAE,GAAE,QAAL,CAAU,GAAkB,CAAf,UAAK,CAAC,CAAE,GAAE,QAAL,CAAU,GAAE,UAAK,CAAC,eAAM,GAAE,QAAT,CAAP,CAAlB,CAAyC,GAAE,CAAF;AAClE,eAAU,0BAAG,CAAC,WAAM,KAAY,CAAN,UAAM,GAAE,CAAF,EAAM,WAAM,KAAY,CAAN,UAAM,GAAE,CAAF,EAAM,WAAM,KAAY,CAAN,UAAM,GAAE,CAAF,CAAnE;AAnBY;AAAS;AA/IK;AAAd;AAEzB,qBAAU,gCAAM,CAAC,eAAM,GAAE,CAAF,CAAK,gBAAO,GAAE,CAArB,CAAhB;AAFyB;AAAc;AAUL;AAAT;AAEzB,eAAU,eAAM,GAAE,CAAF;AAFS;AAAS;AAj/BjB;;;;;;;;AAoCG,+BAAO,UpG4ajB,+BoG5aiB,CAAP;AApCH;AAkDO;AACtB;AACA;AAFsB;aACtB,oBACA;AAFsB;;AACtB;AACA;AAFsB;;;AACtB;AACA;AAFsB;AAKgC,+GAAmB,U7GxCpE,2B6GwCoE,EAAoB,apBlBhF,qDoBkBgF,EAAyB,UvB4JlH,yCuB5JkH,EAAwB,kB/FkO1I,sC+FlO0I,EAAkC,yBAA2B,8BAArJ;AACD,8GAAmB,U7GzCnE,2B6GyCmE,EAAoB,apBnB/E,qDoBmB+E,EAAyB,UvB2JjH,yCuB3JiH,EAAwB,kB/FiOzI,sC+FjOyI,CAAxF;AACP,uGAAmB,U7G1C5D,2B6G0C4D,EAAyB,kB/FgOtF,sC+FhOsF,CAA5C;AACP,gGAAmB,U7G3CrD,2B6G2CqD,EAAa,mBAAyB,kB/F+N5F,sC+F/N4F,CAAzD;AACA,gGAAmB,U7G5CrD,2B6G4CqD,EAAa,mBAAyB,kB/F8N5F,sC+F9N4F,CAAzD;AACA,gGAAmB,U7G7CrD,2B6G6CqD,EAAa,mBAAyB,kB/F6N5F,sC+F7N4F,CAAzD;AAElB;;;AAErB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AArBqB;;;;;;;;;;;;;;;;;;;;AA+uByB;AAGhD,UAAG,mBAAe,KAAG,KAArB;AAEE,8BAAkB;AAClB,uBAAW,kBAAa,CAAC,mBAAD;AACxB,mBAAM,KAAC,CAAQ,qBAAQ,CAAC,YAAD,CAAhB;AACP,uBAAW,kBAAa,CAAC,mBAAD;AACxB,mBAAM,KAAC,CAAQ,qBAAQ,CAAC,YAAD,CAAhB;AACP,uBAAW,kBAAa,CAAC,mBAAD;AACxB,mBAAM,KAAC,CAAQ,qBAAQ,CAAC,YAAD,CAAhB;AACP,qBAAQ,KAAC,CAAQ,qBAAQ,CAAC,aAAS,CAAV,CAAoC,GAArB,qBAAQ,CAAC,aAAS,CAAV,CAAV,GAAyB,qBAAQ,CAAC,aAAS,CAAV,CAA9D;AAET,uBAAU,UAAV,GAAuB;AACvB,YAAG,eAAU,KAAC,EAAM,KAAG,YAAvB;AAEE,yBAAU,SAAC,CAAS,YAAT;AACX,8BAAe,CAAC,aAAS,mBAAV;SAHjB;AAKA,uBAAU,UAAV,GAAwB;AAExB,uBAAU,UAAV,GAAuB;AACvB,YAAG,eAAU,KAAC,EAAM,KAAG,YAAvB;AAEE,yBAAU,SAAC,CAAS,YAAT;AACX,8BAAe,CAAC,aAAS,mBAAV;SAHjB;AAKA,uBAAU,UAAV,GAAwB;AAExB,uBAAU,UAAV,GAAuB;AACvB,YAAG,eAAU,KAAC,EAAM,KAAG,YAAvB;AAEE,yBAAU,SAAC,CAAS,YAAT;AACX,8BAAe,CAAC,aAAS,mBAAV;SAHjB;AAKA,uBAAU,UAAV,GAAwB;AAExB,8BAAY,YAAO,CAAC,aAAS,aAAS,YAAnB,CAAnB;AACA;AAEA,mCAAsB,CAAC,mBAAD;AACtB;OAvCF;AAHgD;AAxFP;AAEzC,UAAG,YAAQ,KAAG,KAAd;AAEE,uBAAW;AACX,mBAAM,KAAC,CAAQ,qBAAQ,CAAC,KAAD,CAAhB;AACP,qBAAQ,KAAC,CAAQ,qBAAQ,CAAC,aAAS,CAAV,CAAoC,GAArB,qBAAQ,CAAC,aAAS,CAAV,CAAV,GAAyB,qBAAQ,CAAC,aAAS,CAAV,CAA9D;AACT,uBAAU,SAAC,CAAS,YAAT;AACX,8BAAkB,uBAAkB,CAAC,aAAS,aAAS,YAAnB;AACpC,8BAAY,YAAO,CAAC,aAAS,aAAS,YAAnB,CAAnB;AACA;AACA,4BAAe,CAAC,aAAS,mBAAV;AACf,mCAAsB,CAAC,mBAAD;AACtB;OAXF;AAFyC;AAsBA;AAEzC,UAAG,YAAQ,KAAG,KAAd;AAEE,uBAAW;AACX,mBAAM,KAAC,CAAQ,qBAAQ,CAAC,KAAD,CAAhB;AACP,qBAAQ,KAAC,CAAQ,qBAAQ,CAAC,aAAS,CAAV,CAAoC,GAArB,qBAAQ,CAAC,aAAS,CAAV,CAAV,GAAyB,qBAAQ,CAAC,aAAS,CAAV,CAA9D;AACT,uBAAU,SAAC,CAAS,YAAT;AACX,8BAAkB,uBAAkB,CAAC,aAAS,aAAS,YAAnB;AACpC,8BAAY,YAAO,CAAC,aAAS,aAAS,YAAnB,CAAnB;AACA;AACA,4BAAe,CAAC,aAAS,mBAAV;AACf,mCAAsB,CAAC,mBAAD;AACtB;OAXF;AAFyC;AAiDA;AAEzC,UAAG,YAAQ,KAAG,KAAd;AAEE,uBAAW;AACX,mBAAM,KAAC,CAAQ,qBAAQ,CAAC,KAAD,CAAhB;AACP,qBAAQ,KAAC,CAAQ,qBAAQ,CAAC,aAAS,CAAV,CAAoC,GAArB,qBAAQ,CAAC,aAAS,CAAV,CAAV,GAAyB,qBAAQ,CAAC,aAAS,CAAV,CAA9D;AACT,uBAAU,SAAC,CAAS,YAAT;AACX,8BAAkB,uBAAkB,CAAC,aAAS,aAAS,YAAnB;AACpC,8BAAY,YAAO,CAAC,aAAS,aAAS,YAAnB,CAAnB;AACA;AACA,4BAAe,CAAC,aAAS,mBAAV;AACf,mCAAsB,CAAC,mBAAD;AACtB;OAXF;AAFyC;AAhCE;AAE3C;AACA;AAAG;AAAG;AAEN,UAAU,KAAD,OAAQ,KAAE,CAAnB;AAEE,cAAO,eAAI,CAAC,MAAO,EAAG,CAAX;AACX,YAAK,qBAAQ,CAAC,GAAI,GAAE,GAAP;AACb,cAAO,eAAI,CAAC,MAAO,EAAG,CAAX;AACX,YAAK,qBAAQ,CAAC,GAAI,GAAE,GAAP;AACb,cAAO,eAAI,CAAC,MAAO,EAAG,CAAX;AACX,YAAK,qBAAQ,CAAC,GAAI,GAAE,GAAP;AACb,8BAAiB,uBAAkB,CAAC,EAAG,EAAG,CAAP,CAAnC;AACA,8BAAY,YAAO,CAAC,EAAG,EAAG,CAAP,CAAnB;AACA;OAVF;AAL2C;AAnQD;AAAX;AAE/B,eAAU,aAAQ,KAAC;AAFY;AAAW;AAeK;AAAhB;AAE/B,eAAU,kBAAY,KAAG,QAAH;AAFS;AAAgB;AA8NT;AAEtC,kBAAK,aAAa,CAAC,KAAD;AAFoB;AAzNA;AAEtC;AAFsC;AArLQ;AAE9C;AACA,kBAAI,UAAC,CAAU,sCAAY,UAAU,CAAC,YAAI,SAAS,EAAG,CAAjB,CAAhC;AACL;AAJ8C;AAqEV;AAGpC;AACA,yBAAc,CAAC,UAAW,8CAAZ;AACd,mBAAQ,CAAC,UAAW,8CAAZ;AAL4B;AAQU;AAG9C;AACA;AAAG;AACH;AAYA,UAAK,EAAmD,GAA9C,WAAM,UAAC,EAAT,GAAkB,WAAM,UAAC,EAAT,GAAkB,WAAM,UAAC,EAAT,GAAkB,aAAQ,UAAC,EAAX;AAExD,gBAAK,+BAAK,CAAC,EAAG,EAAG,oBAAe,CAAC,EAAD,EAAM,oBAAe,CAAC,EAAD,CAA3C,CAAV;AACA,8CAAY,CAAC,EAAG,oBAAe,CAAC,EAAD,CAAK,GAAE,WAAM,SAAC,EAAT,CAAgB,CAAxC;AAIZ,OAAC,MAAD,GAAW,WAAM,QAAC,EAAK,GAAE,WAAM,SAAC,EAAT;AAGvB,eAAS,MAAK,SAAC,CAAS,mBAAT;AAEf,UAAK;AACL,WAAM;AACN,yCAA8B,CAAC,UAAW,2CAAG,oBAAgB;;;;WAAG;;;;UAAlC;AAC9B,UAAG,CAAH;AAEE,YAAG,EAAH,EACE,SAAS,gBAAc,CAAC,2CpBnUmE,6EoBmUpE,CADzB;AAGA,0CAA6B,CAAC,UAAW,2CAAG,mBAAf;OAL/B;AAhC8C;AAyCN;AAGxC,eAAS,MAAK,aAAa,CAAC,YAAD;AAkB3B,eAAS,SAAS,CAAO,yCAAN,gCAAM,CAAC,EAAG,GAAE,WAAM,SAAC,EAAT,CAAgB,WAAM,OAAC,EAAI,GAAE,CAAjC,GAAqC,IpBhQO,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CoBgQ/K;AAClB,eAAS,SAAS,CAAO,yCAAN,gCAAM,CAAC,EAAG,GAAE,WAAM,SAAC,EAAT,CAAgB,WAAM,OAAC,EAAI,GAAE,CAAjC,GAAqC,IpBjQO,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CoBiQ/K;AAClB,eAAS,SAAS,CAAO,yCAAN,gCAAM,CAAC,EAAG,GAAE,WAAM,SAAC,EAAT,CAAgB,WAAM,OAAC,EAAI,GAAE,CAAjC,GAAqC,IpBlQO,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CoBkQ/K;AAClB,eAAS,SAAS,CAAO,yCAAN,gCAAM,CAAC,EAAG,GAAE,WAAM,SAAC,EAAT,CAAgB,aAAQ,OAAC,EAAI,GAAE,CAAnC,GAAuC,MpBnQK,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CoBmQ/K;AAxBsB;AAyJK;AAG7C;AAEA,UAAG,SAAI,KAAE,EAAT;AAEE,YAAK,WAAM,OAAC;AACZ,YAAG,CAAE,GAAE,CAAP;AACE,cAAK;AACF,kBAAG,CAAE,GAAE,GAAP,EACH,IAAK,GADF;AAGL,YAAG,CAAE,KAAE,YAAP;AAEE,qBAAM,KAAC,CAAQ,qBAAQ,CAAC,CAAD,CAAhB;;AAIP,gCAAiB,uBAAkB,CAAC,EAAG,aAAS,YAAb,CAAnC;AACA,gCAAY,YAAO,CAAC,EAAG,aAAS,YAAb,CAAnB;AACA;;OAhBJ;AAL6C;AA8BA;AAG7C;AAEA,UAAG,SAAI,KAAE,EAAT;AAEE,YAAK,WAAM,OAAC;AACZ,YAAG,CAAE,GAAE,CAAP;AACE,cAAK;AACF,kBAAG,CAAE,GAAE,GAAP,EACH,IAAK,GADF;AAGL,YAAG,CAAE,KAAE,YAAP;AAEE,qBAAM,KAAC,CAAQ,qBAAQ,CAAC,CAAD,CAAhB;;AAIP,gCAAiB,uBAAkB,CAAC,aAAS,EAAG,YAAb,CAAnC;AACA,gCAAY,YAAO,CAAC,aAAS,EAAG,YAAb,CAAnB;AACA;;OAhBJ;AAL6C;AA8BA;AAG7C;AAEA,UAAG,SAAI,KAAE,EAAT;AAEE,YAAK,WAAM,OAAC;AACZ,YAAG,CAAE,GAAE,CAAP;AACE,cAAK;AACF,kBAAG,CAAE,GAAE,GAAP,EACH,IAAK,GADF;AAGL,YAAG,CAAE,KAAE,YAAP;AAEE,qBAAM,KAAC,CAAQ,qBAAQ,CAAC,CAAD,CAAhB;;AAIP,gCAAiB,uBAAkB,CAAC,aAAS,aAAS,CAAnB,CAAnC;AACA,gCAAY,YAAO,CAAC,aAAS,aAAS,CAAnB,CAAnB;AACA;;OAhBJ;AAL6C;AA8BE;AAG/C;AACA;AAAG;AAAG;AAEN,UAAQ,CAAJ,SAAI,KAAE,EAAF,CAAc,IAA2B,CAAf,aAAQ,KAAC,EAAV,OAAgB,KAAE,CAAF,CAAjD;AAEE,cAAO,eAAI,CAAC,aAAQ,KAAC,GAAM,EAAG,CAAnB;AACX,YAAK,qBAAQ,CAAC,GAAI,GAAE,GAAP;AACb,cAAO,eAAI,CAAC,aAAQ,KAAC,GAAM,EAAG,CAAnB;AACX,YAAK,qBAAQ,CAAC,GAAI,GAAE,GAAP;AACb,cAAO,eAAI,CAAC,aAAQ,KAAC,GAAM,EAAG,CAAnB;AACX,YAAK,qBAAQ,CAAC,GAAI,GAAE,GAAP;AACb,8BAAiB,uBAAkB,CAAC,EAAG,EAAG,CAAP,CAAnC;AACA,8BAAY,YAAO,CAAC,EAAG,EAAG,CAAP,CAAnB;AACA;OAVF;AAN+C;AAxUe;AAI9D,UAAY,oCAAD,QAAX,EACE,oCAA8B,CAAC,KAAM,UAAW,gDAAQ,eAAgB,OAAQ,YAAlD,CADhC;AAJ8D;AARD;AAI7D,UAAY,mCAAD,QAAX,EACE,mCAA6B,CAAC,KAAM,UAAW,gDAAQ,cAA1B,CAD/B;AAJ6D;AAqCP;AAGtD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,cAAP,CADxB;AAHsD;AAPP;AAG/C,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,GAAI,cAAX,CADjB;AAH+C;AAPA;AAG/C,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,GAAI,cAAX,CADjB;AAH+C;AAPA;AAG/C,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,GAAI,cAAX,CADjB;AAH+C;AAlCH;AAE5C,4BAAiB,WAAM,YAAvB;AAF4C;AA+PI;AAEhD,qBAAU,UAAK,CAAC,eAAU,KAAC,EAAZ,CAAf;AAFgD;AA3FA;AAEhD,qBAAU,UAAK,CAAC,eAAU,KAAC,EAAZ,CAAf;AAFgD;AAhLA;AAEhD,qBAAU,UAAK,CAAC,eAAU,KAAC,EAAZ,CAAf;AAFgD;AA8JA;AAEhD,sBAAW,CAAC,IAAD;AAEX,iBAAM,MAAK,SAAC,CAAS,WAAT;AAJoC;AAxKN;AAE1C;AAEA;AACA,UAAK;AACL,UAAG,wCAAa,4BAA4B,CAAC;;;;UAAD,CAA5C,EACE,UAAI,SAAC,CAAS,CAAT,CADP;AAN0C;AA4NS;AAEnD;AACA,gBAAI,SAAC,CAAS,QAAT;AAH8C;AAsTK;AAExD;AACA,UAAY,WAAD,QAAX,EACE,WAAM,OAAC,CAAO,UAAK,CAAS,CAAP,gBAAO,GAAE,CAAF,CAAK,GAAiB,CAAd,WAAM,UAAC,EAAO,GAAE,CAAF,CAA/B,CAAZ,CADT;AAHwD;AA5EZ;AAE5C;AAAO;AACP;AAEA,iBAAM,WAAM,iBAAZ;AACA,UAAK,WAAM,YAAW,GAAE,GAAF;AACtB,cAAS,iBAAQ,CAAC,aAAQ,IAAT;AACjB,iBAAM,KAAC,CAAK,EAAE,EAAG,GAA4B,CAAzB,CAAyB,GAArB,aAAQ,WAAV,GAAyB,QAAG,CAAC,KAAD,CAAL,CAAtC;AACP,iBAAM,KAAC,CAAK,EAAE,EAAG,GAA4B,CAAzB,CAAyB,GAArB,aAAQ,WAAV,GAAyB,QAAG,CAAC,KAAD,CAAL,CAAtC;AACP,iBAAM;AAVsC;AAjRH;AAAV;AAE/B,eAAU,4BAAgB,CAAC,EAAS,EAAS,EAAS,CAA5B;AAFK;AAAU;AA+DH;AAAP;AAG/B;AAAQ;AAAQ;AAAO;AAAG;AAE1B,UAAK;AACL,eAAU,QAAG,CAAC,QAAG,CAAC,GAAI,EAAL,EAAU,EAAd;AACb,eAAU,QAAG,CAAC,QAAG,CAAC,GAAI,EAAL,EAAU,EAAd;AACb,cAAS,MAAO,GAAE,MAAF;AAEhB,UAAG,MAAO,KAAE,CAAZ;AACE,YAAK;AAEL,gBAAK,KAAM,GAAE,MAAF;AAEb,UAAG,KAAM,KAAE,CAAX;AACE,YAAK;AACF,gBAAG,MAAO,KAAE,EAAZ;AACH,YAAS,CAAH,EAAG,GAAE,EAAF,CAAM,GAAE,KAAF;AACZ,gBAAG,MAAO,KAAE,EAAZ;AACH,YAAe,CAAN,CAAH,EAAG,GAAE,EAAF,CAAM,GAAE,KAAF,CAAQ,GAAE,CAAF;AACpB,gBAAG,MAAO,KAAE,EAAZ,EACH,IAAe,CAAN,CAAH,EAAG,GAAE,EAAF,CAAM,GAAE,KAAF,CAAQ,GAAE,CADtB;AAGL,UAAK,EAAG,GAAE,CAAF;AAIN,mBAAO;AACP,0BAAc;AA7Be;AAAO;AAjXE;AAExC;AACA,oBAAS,GAAT;AACA,qBAAU,GAAV;AACA,qBAAW;AACX,qBAAW;AACX,qBAAW;AACX,4BAAkB;AAClB,gBAAI,WAAJ,GAAmB;AAEnB,qBAAS,qDAAmB,QAAC;AAE7B,oBAAU,sBAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,iBAAM,UAAC,CAAU,IAAV;AAIP,iBAAM,SAAQ,wBAAsB,CAAC,gEAAuB,sCAAW,GAAnC;AAOpC,iBAAM,OAAC,CAAO,UAAK,CAAS,CAAP,gBAAO,GAAE,CAAF,CAAK,GAAiB,CAAd,WAAM,UAAC,EAAO,GAAE,CAAF,CAA/B,CAAZ;AACP,iBAAM,QAAC,CAAQ,EAAR;AACP,iBAAM,gBAAN,GAAyB;AACzB,iBAAM,WAAC,CAAW,IAAX;AAEP,oBAAU,oCAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,iBAAM,UAAC,CAAU,IAAV;AACP,iBAAM,SAAC,CAAS,EAAT;AAMP,iBAAM,QAAC,CAAQ,eAAqB,GAAb,WAAM,SAAC,EAAT,GAAiB,EAA/B;AACP,iBAAM,OAAC,CAAO,EAAP;AAEP,iBAAM,cAAC,CAAY,kDAAZ;AACP,iBAAM,WAAN,GAAqB;AACrB,iBAAM,aAAC,CAAa,CAAb;AACP,iBAAM,KAAC,CAAQ,KAAR;AAEP,oBAAU,oCAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,iBAAM,UAAC,CAAU,IAAV;AACP,iBAAM,SAAC,CAAS,EAAT;AAMP,iBAAM,QAAC,CAAQ,eAAqB,GAAb,WAAM,SAAC,EAAT,GAAiB,EAA/B;AACP,iBAAM,OAAC,CAAO,EAAP;AAEP,iBAAM,cAAC,CAAY,kDAAZ;AACP,iBAAM,WAAN,GAAqB;AACrB,iBAAM,aAAC,CAAa,CAAb;AACP,iBAAM,KAAC,CAAQ,KAAR;AAEP,oBAAU,oCAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,iBAAM,UAAC,CAAU,IAAV;AACP,iBAAM,SAAC,CAAS,EAAT;AAMP,iBAAM,QAAC,CAAQ,eAAqB,GAAb,WAAM,SAAC,EAAT,GAAiB,EAA/B;AACP,iBAAM,OAAC,CAAO,EAAP;AAEP,iBAAM,cAAC,CAAY,kDAAZ;AACP,iBAAM,WAAN,GAAqB;AACrB,iBAAM,aAAC,CAAa,CAAb;AACP,iBAAM,KAAC,CAAQ,KAAR;AAEP,sBAAY,oCAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,mBAAQ,UAAC,CAAU,IAAV;AACT,mBAAQ,SAAC,CAAwC,GAAxC;AAMT,mBAAQ,QAAC,CAAQ,GAAR;AACT,mBAAQ,OAAC,CAAO,GAAP;AAET,mBAAQ,cAAC,CAAY,8CAAZ;AACT,mBAAQ,WAAR,GAAuB;AACvB,mBAAQ,aAAC,CAAa,CAAb;AACT,mBAAQ,KAAC,CAAQ,QAAR;AAET,wBAAc,uBAAkB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,qBAAU,UAAC,CAAU,IAAV;AACX,qBAAU,QAAC,CAAQ,GAAR;AACX,qBAAU,OAAC,CAAgH,WAAM,OAAC,EAAI,GAAE,CAA7H;AACX,qBAAU,SAAC,CAAS,GAAT;AACX,qBAAU,UAAV,GAAwB;AAKxB,wBAAc,uBAAkB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,qBAAU,UAAC,CAAU,IAAV;AACX,qBAAU,QAAC,CAAQ,GAAR;AACX,qBAAU,OAAC,CAAgH,WAAM,OAAC,EAAI,GAAE,CAA7H;AACX,qBAAU,SAAC,CAAS,GAAT;AACX,qBAAU,UAAV,GAAwB;AAKxB,wBAAc,uBAAkB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,qBAAU,UAAC,CAAU,IAAV;AACX,qBAAU,QAAC,CAAQ,GAAR;AACX,qBAAU,OAAC,CAAgH,WAAM,OAAC,EAAI,GAAE,CAA7H;AACX,qBAAU,SAAC,CAAS,GAAT;AACX,qBAAU,UAAV,GAAwB;AAvHqC;AAArB;AAwJA;AAEjC,eAAP,KAAO;AACA,eAAP,KAAO;AACA,eAAP,KAAO;AACA,eAAP,KAAO;AACI,eAAX,KAAW;AACA,eAAX,KAAW;AACA,eAAX,KAAW;AACL,eAAN,KAAM;AACN;AAVwC;AAlKI;AAAb;AAM/B,eAAU,MAAO,GAAI,IAAJ;AANc;AAAa;AANA;AAAb;AAG/B,eAA+B,WAAd,CAAP,MAAO,GAAI,MAAJ,CAAc;AAHA;AAAa;AAVA;AAAb;AAM/B,eAA+B,WAAd,CAAP,MAAO,GAAI,QAAJ,CAAc;AANA;AAAa;AAyXK;AAAlB;AAc/B,eAAU,0BAAG,CAAC,EAAG,EAAG,CAAP;AAdkB;AAAkB;AA7e1B;;;;;;;AA8EH,+BAAO,UpGoUjB,+BoGpUiB,CAAP;AA9EG;AAyFN;;;;;;;;AAEF,4BtB2iBI,+DsB3iBJ;AACA,4BtB8gBI,+DsB9gBJ;AACE,8BtBypBI,iEsBzpBJ;AACO,qC/F6HlB,uC+F7HkB;AACP;AACA;AACA;AACE;AACsB,sDA1Ge,uEA0Gf;AACD,qDA1Ge,sEA0Gf;AACP,8CA1Ge,+DA0Gf;AACP,uCA1Ge,wDA0Gf;AACA,uCA1Ge,wDA0Gf;AACA,uCA1Ge,wDA0Gf;AAfT;;AAvPnB,GAyQc,qDAzQd;ACAA,yCAWS,uNAXT;;;;AAyBS,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AAMsB,0CAAG;AACP,kEAAQ,EAAR,GhGsVtB,8CgGtVsB;AAAD,sCAAwE,EAAS,IAAU,MAAS,MAC7H,QAAQ,QAAU,QAAQ,SAAU,QAAQ,IAC5C,MAAQ,MAAU,SAAQ,SAAW,SAAQ,QAFpB;AAea,kDAAG;AACP,0EAAQ,EAAR,GhGsU9B,8CgGtU8B;AAAD,8CAAgF,EAAS,SAAS,SAAS,OAAS,OAAS,QAC9J,SAAS,SAAS,KAAS,OAAS,OAAS,OAAS,SAAS,SAC/D,SAAS,SAAS,KAAS,OAAS,OAAS,SAAS,SACtD,SAAS,SAAS,SAAS,SAAS,OAAS,OAAS,OACtD,SAAS,SAAS,SAAS,SAAS,SAAS,SAAS,SACtD,SAAS,SAAS,SAAS,SAAS,QALH;AA4CT;AAhCF;;;AAEtB;AACA;AAHsB;;;;;AAqjBiB;AAEzC,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACV,YAAY,aAAD,QAAX,EACE,aAAM,kBADR;OAHF;AAFyC;AAPA;AAEzC;AACA,UAAY,gBAAD,QAAX,EACE,gBAAsB,OAAX,iBAAc,8BAAH,CAA6B,SADrD;AAHoE;AAA3B;AAPF;AAEvC;AACA,UAAa,6BAAH,eAAP,MAAO,CAAV,EACE,cAAkB,OAAP,OAAU,6BAAH,CAA4B,OADhD;AAHuC;AAviBf;AAMJ,+BAAY,erGqZrB,gCqGrZqB,CAAZ;AAGJ,6BhGiTV,uCgGjTU;AATQ;AAYC;;;AAEvB;AAFuB;;;;;AA6gBe;AAAP;AAGjC,eAA6C,cAAK,CAAC,KAAD;AAHjB;AAAO;AAMC;AAG/B,oBAAK,CAAC,MAAU,KAAX;AAH0B;AAXO;AAAf;AAEjC,eAAU;AAFuB;AAAe;AAjBN;AAE1C;AACA,sBAAiB,OAAP,OAAU,+BAAH;AAHyD;AAAhC;AAMN;AAAH;AAEjC,eAA6C;AAFZ;AAAG;AAKG;AAAN;AAGjC,eAAmD,iFAAC,KAAD;AAHlB;AAAM;AAlgBd;AAQL,+BAAO,UPwIN,iEOxIM,CAAP;AARK;AAcS,yFAAmB,U9GsB9C,2B8GtB8C,EAAiB,UhGgShE,sCgGhSgE,CAApC;AACE,2FAAmB,U9GqBhD,2B8GrBgD,EAAiB,UhG+RlE,sCgG/RkE,CAApC;AACL,sFAAmB,U9GoB3C,2B8GpB2C,EAAiB,UhG8R7D,sCgG9R6D,CAApC;AAED;;AAEJ;;;AAExB;AAAG;AACH;AACA;AACA;AACA;AACA;AACA;AARwB;;;;;;;;;AAqdyB;AAE9C;AACH,UADG,IACH;AAEE,YAAG,eAAK,SAAC,EAAM,GAAE,CAAjB,EACE,eAAK,WAAC,eAAK,SAAC,EAAM,GAAE,CAAf,CAAiB,SAAC,CAAS,KAAT,CADzB;OAFF;AAMF,gCAAqB,oBAAe,CAAC,KAAD,CAApC;AATmD;AAxGD;AAAhB;AAElC,eAAU,oBAAe,CAAC,uBAAD;AAFS;AAAgB;AALR;AAAR;AAElC,eAA8C;AAFZ;AAAQ;AA8DC;AAG3C,qBAAK,OAAO,CAAC,KAAD;AAH+B;AAMD;AAE1C;AAYA,UAAK;AAGL,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACJ;AACH,YADG,IACH;AAEE,wBAAS,UAAK,CAAC,CAAE,GAAE,GAAL,CAAd;AACA,yBAAU,UAAK,CAAC,CAAE,GAAE,GAAL,CAAf;SAEF,UANG,IAMH;AAEE,wBAAS,UAAK,CAAC,CAAE,GAAE,GAAL,CAAd;AACA,yBAAU,UAAK,CAAC,CAAE,GAAE,GAAL,CAAf;SAEF,UAXG,IAWH;AAEE,wBAAS,UAAK,CAAC,CAAE,GAAE,GAAL,CAAd;AACA,yBAAU,UAAK,CAAC,CAAE,GAAE,GAAL,CAAf;SAHF;AAMF;OApBF;AAjB0C;AA1DE;AAAV;AAElC,eAAU,4BAAgB,CAAC,EAAS,EAAS,EAAS,CAA5B;AAFQ;AAAU;AAjPQ;AAEpD,UAAY,WAAD,QAAX;AAEE,mBAAM,WAAC,CAAW,KAAX;AACP,mBAAM,UAAC,CAAU,IAAV;AACP,sBAAS,UAAK,CAAC,MAAD,CAAd;AACA,uBAAU,UAAK,CAAC,MAAD,CAAf;AACA,+BAAkB,CAAC,OAAG,MAAJ;AAClB;OAPF;AAFoD;AAwBD;AAEnD,UAAG,iBAAH,EACE,MADF;AAGA,0BAAe;AACf,gCAAqB,CAAC,CAAtB;AACA,qBAAK,WAAC,eAAK,SAAC,EAAM,GAAE,CAAf,CAAiB,SAAC,CAAS,kBAAY,CAAC,gBAAD,CAAa,eAAlC;AACvB,4BAAiB,kBAAY,CAAC,gBAAD,CAAa,eAA1C;AACA,yBAAc,CAAC,uBAAD;AACd;AACA,0BAAe;AAXoC;AAkFL;AAE9C;AAAG;AAAG;AAAG;AAAG;AAAI;AAEhB,UAAG,oBAAH;AAEE,+BAAkB;AAClB;AACA;OAJF;AAOA,UAAS,CAAL,UAAK,KAAE,mDAAF,CAAwC,IAAT,CAAC,WAAD,SAAZ,IAAqC,CAAX,UAAW,KAAc,CAAZ,eAAK,SAAC,EAAM,GAAE,CAAF,CAAd,CAAjE;AAEE,iBAAK;AACL,iBAAK;AACL,YAAK;AACL,YAAK;AACL,YAAK;AACL,YAAK;AACL,wBAAW,kBAAkB,CAAC;;;;aAAG;;;;aAAG;;;;aAAG;;;;YAAV;AAC7B,aAAM,oBAAe,CAAC,GAAD,CAA+B,GAAvB,gBAAW,UAAC,EAAd,GAAuB,CAAF,GAAM,CAAF;AACpD,uBAAU,UAAK,CAAC,EAAD,CAAf;AACA,aAAM,oBAAe,CAAC,GAAD;AACrB,sBAAS,UAAK,CAAC,EAAD,CAAd;AACA,+BAAkB,CAAC,GAAI,EAAL;AAClB,4BAAe;AACf,0BAAY,CAAC,gBAAD,CAAa,iBAAC,CAAiB,oBAAe,CAAC,UAAW,GAAE,CAAd,CAAhC;AAC1B,4BAAe;AACf,mBAAM,WAAC,CAAW,IAAX;AACP,mBAAM,UAAC,CAAU,IAAV;OAlBT;AAqBA;AAhC8C;AA7FO;;AAuIJ;AAEjD;AAEA;AACA,UAAK,oBAAe,CAAC,UAAD;AACpB,UAAW,CAAC,gBAAD,SAAc,IAAI,CAAI,iBAAjC;AAEE,4BAAe;AACf,0BAAY,CAAC,gBAAD,CAAa,iBAAC,CAAiB,CAAjB;AAC1B,YAAS,CAAL,UAAK,KAAE,mDAAF,CAAmB,IAAiB,CAAZ,eAAK,SAAC,EAAM,GAAE,CAAF,CAA7C,EACE,eAAK,WAAC,eAAK,SAAC,EAAM,GAAE,CAAf,CAAiB,SAAC,CAAS,CAAT,CADzB;AAEA,4BAAe;OANjB;AASA,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,CAAP,CADjB;AAfiD;AAPE;AAEnD;AACA,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,oBAAe,CAAC,UAAD,CAAtB,CADnB;AAHmD;AApDI;AAArB;AAElC,eAAU,8BAAyB,QAAC,YAAM,CAAC,IAAD,CAAN;AAFF;AAAqB;AAKG;AAG1D,UAAG,UAAK,KAAE,mDAAV;AAEE,YAAe,CAAX,UAAW,IAAG,CAAH,CAAM,IAAgB,CAAX,UAAW,IAAe,CAAZ,eAAK,SAAC,EAAM,GAAE,CAAF,CAAf,CAArC,EACE,iBAAgB,CAAI,eAAK,WAAC,UAAD,CAAY,aAArC,CADF;OAFF;AAMA;AAT0D;AAyER;AAGlD;AACA;AACA;AAEA,WAAM,YAAY;AAClB,UAAW,CAAC,EAAD,SAAK,IAAW,6BAAH,eAAH,EAAG,CAAxB;AAEE,kBAAK,YAAY,KAAjB;AACA,YAAK;AACL,oCAAuB,CAAC,UAAuB,wCAAZ,YAAY,OAAO,EAAE,SAAC,GAAO;;;;YAAzC;AACvB,YAAG,CAAH;AAEO;AACH,cADG,IACH;AAAW,mDAAa,CAAC,EAAG,CAAC,EAAG,CAAC,CAAT;AACxB,qBAFG,IAEH,yDAAa,CAFV,IAEU,yDAAb,EAA8B,uCAAa,CAAC,EAAG,CAAC,EAAG,CAAC,CAAT,CAA3C;AAEF,mBAAS,MAAK,QAAC,CAAQ,kEAAR;AACf,mBAAS,MAAK,SAAC,CAAa,OAAH,GAAM,6BAAH,CAA4B,OAAzC;AACf,mBAAS,QAAO,SAAC,CAAS,SAAS,MAAK,OAAvB;AACjB,mBAAS,gBAAc,CAAC,2CrBxLmE,6EqBwLpE;AACvB,qCAAsB,CAAC,UAAuB,wCAAZ,YAAY,OAAO,EAAE,SAAC,EAAlC;SAVxB;OALF;AARkD;AAtNN;AAE5C;AACA;AAEA;AACA,qBAAK;AACA;AACH,UADG,IACH;AAEE,wBAAW,CAAX;AACA,qBAAQ,CAAR;AACA,aAAI,IAAK,GAAL,CAAU,QAAV,CAAU,EAAd,EAC2B,eAAK,QAAK,SAAC,CAAS,gCAA2B,CAAC,CAAD,CAApC;OAExC,UARG,IAQH;AAEE,wBAAW,CAAX;AACA,qBAAQ,CAAR;AACA,aAAI,IAAK,GAAL,CAAU,QAAV,CAAU,EAAd,EAC2B,eAAK,QAAK,SAAC,CAAS,wCAAmC,CAAC,CAAD,CAA5C;OAExC,UAfG,IAeH;AAEE,wBAAW,CAAX;AACA,qBAAQ,CAAR;AACA,aAAI,IAAK,GAAL,CAAU,QAAV,CAAU,EAAd,EAC2B,eAAK,QAAK,SAAC,CAAS,wCAAmC,CAAC,CAAD,CAA5C;AAEtC,aAAM,eAAK,SAAO,CAAC,CAAD;AACO,UAAG,SAAC,CAAS,CAAT;AAC7B,UAAE,cAAC,CAAc,CAAd;AACH,UAAE,QAAC,CAAQ,WAAR;AACH,UAAE,aAAF,GAAkB;AAElB,aAAM,eAAK;AACX,UAAE,cAAC,CAAc,CAAd;AACH,UAAE,QAAC,CAAQ,gBAAR;AACH,UAAE,aAAC,CAAa,KAAb;AACH,UAAE,aAAF,GAAkB;AAElB,uBAAK,QAAI,WAAC,CAAW,KAAX;OAnBZ;AAsBF;AA5C4C;AAgTU;AAEtD;AACA;AAWA,sBAAU,MAAK,SAAC,CAAS,QAAT;AAChB,sBAAU,MAAK,SAAC,CAAS,QAAT;AAChB,sBAAU,cAAa,SAAC,CAAS,QAAT;AACxB,sBAAU,gBAAe,SAAC,CAAS,QAAT;AAC1B,sBAAU,UAAS,SAAC,CAAS,QAAT;AAGpB,sBAAU,cAAa,QAAC,CAAQ,kEAAR;AACxB,sBAAU,MAAK,QAAC,CAAQ,kEAAR;AAChB,sBAAU,UAAS,QAAC,CAAQ,kEAAR;AACpB,sBAAU,WAAU,QAAC,CAAQ,kEAAR;AACrB,sBAAU,QAAO,QAAC,CAAQ,oEAAR;AAClB,sBAAU,gBAAe,QAAC,CAAQ,oEAAR;AAC1B,sBAAU,aAAY,QAAC,CAAQ,oEAAR;AAEvB,sBAAU,QAAO,SAAC,CAAS,QAAT;AAClB,sBAAU,aAAY,SAAC,CAAS,gBAAU,UAAS,OAA5B;AACvB,sBAAU,YAAW,OAAO,CAAC,gBAAU,QAAX;AAE5B;AAjCsD;AA3NX;AAE3C;AACA,oBAAS,GAAT;AACA,qBAAU,GAAV;AACA,mBAAS;AAET,oBAAU,sDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,iBAAM,WAAC,CAAW,KAAX;AACP,iBAAM,QAAN,GAAiB;AACjB,iBAAM,oBAAC,CAAoB,kEAApB;AAEP,yBAAe,8BAAO,QAAC,YAAM,CAAC,WAAD,CAAN;AAGvB,sBAAW,oBAAC,CAAoB,IAApB;AAUZ,sBAAW,SAAQ,OAAC,CAAO,CAAP;AACpB,sBAAW,SAAQ,QAAC,CAAQ,CAAR;AACpB,sBAAW,SAAQ,UAAC,CAAU,CAAV;AACpB,sBAAW,SAAQ,SAAC,CAAS,CAAT;AAOpB,sBAAW,WAAC,CAAW,MAAX;AACZ,sBAAW,SAAC,CAAS,mCAAT;AAEZ,sBAAW,UAAC,CAAU,WAAV;AACZ,sBAAW,SAAX,GAAuB;AAEvB,yBAAe,gDAAiB,QAAC,YAAM,CAAC,WAAD,CAAN;AACjC,wBAAY,CAAC,gBAAD,CAAa,oBAAC,CAAoB,kEAApB;AAC1B,wBAAY,CAAC,gBAAD,CAAa,kBAAkB,CAAC,EAAG,EAAG,EAAG,CAAV;AAC3C,wBAAY,CAAC,gBAAD,CAAa,UAAC,CAAU,WAAV;AAC1B,wBAAY,CAAC,gBAAD,CAAa,wBAAzB,GAAoD;AAEpD,UAAG,mBAAH,EACE,iBADF;AA/CgE;AAArB;AA+KM;AAAf;AAGlC;AACA;AAEA,eAAU,CAAC;AACX,eAAS,QAAiB,OAAZ,eAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,aAAe,OAAT,eAAK,WAAC,CAAD,EAAO,6BAAH;AACf,YAAa,CAAT,EAAE,OAAO,KAAE,MAAF,CAAU,IAAI,EAAE,WAA7B;AAEE,mBAAU,EAAE,SAAC;AACb;SAHF;;AAVgC;AAAe;AAlBA;AAAf;AAGlC;AACA;AAEA,eAAU;AACV,eAAS,QAAiB,OAAZ,eAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,aAAe,OAAT,eAAK,WAAC,CAAD,EAAO,6BAAH;AACf,YAAG,EAAE,SAAC,EAAM,KAAE,KAAd;AAEE,mBAAU,EAAE;AACZ;SAHF;;AAVgC;AAAe;AAjLC;AAAhB;AAElC,eAAkB,CAAC,WAAD,SAC2C,IADtB,CAAC,WAAM,QAAP,SAAZ,IAAgC,WAAM,SAAV,IACzC,CAAC,gBAAD,SAAZ,IAAsC,CAAC,gBAAW,QAAZ,SAAZ,IAAqC,gBAAW,SAAf;AAH3B;AAAgB;AAoOE;AAEpD;AACA;AAHoD;AAMP;AAE7C;AAF6C;AA7XnB;;;;;;;AAiCN,+BAAO,UrGgbjB,+BqGhbiB,CAAP;AAjCM;AA4CN;AAqf+B;AAEnD;AACA,iCAAe,CAAC,CAAC,0BAAsB,6BAAvB,CAAD;AAHoC;AArf/B;;;;;;;AAIC,kCP3BU,4EO2BV;AACN;AACG;AACF,6BAvES,wCAuET;AACD,4BAtDe,6CAsDf;AACW,uCA3DQ,iDA2DR;AACE,yCA3DQ,mDA2DR;AACJ,qChGmOlB,uCgGnOkB;AACC,sCP2CQ,8EO3CR;AACE,wCP2CQ,gFO3CR;AACL,mCP2CQ,2EO3CR;AACM;AACS,kDP0CQ,0FO1CR;AACD,iDP0CQ,yFO1CR;AACF,+CP0CQ,uFO1CR;AACD,8CP0CQ,sFO1CR;AACV,oCP4CQ,4EO5CR;AACD,mCP4CQ,2EO5CR;AACS,4CPwCQ,oFOxCR;AACD,2CPwCQ,mFOxCR;AAvBV;;AA3ItB,mBAqKc;AAKO;AAAZ;AAEP,eAAuB,OAAZ,YAAe,gDAAH;AAFhB;AAAY;AALP;AArKd,GAqKc,0DArKd;ACAA,sCAIS,UAJT;;;AAQqB,6BAAG,gHAC0F,GAA1F,0FADgH,GAEhH,kDAD0F;AAExF,kCAAG;AAEP,8BAAG,+GAC+G,GAA/G,+GAD+G,GAE/G,sDAD+G;AAE7G,mCAAG;AAEJ,kCAAG,2GAC2G,GAA3G,2GAD2G,GAE3G,8CAD2G;AAEzG,uCAAG;AAEV,gCAAG,8GAC8G,GAA9G,8GAD8G,GAE9G,gCAD8G;AAEhH,iCAAG,6GAC6G,GAA7G,6GAD6G,GAE7G,kEAD6G;AAYzI;AAEE,2CAAa,mBAAmB,CAAC,wBAAD;AAChC,2CAAa,mBAAmB,CAAC,yBAAD;AAChC,2CAAa,mBAAmB,CAAC,6BAAD;AAChC,2CAAa,mBAAmB,CAAC,2BAAD;AAChC,2CAAa,mBAAmB,CAAC,4BAAD;AANlC;AAvCA,GAiCc,qBAjCd;ACAA,mCAuBS,4YAvBT;;;;AAoDS,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AAwBY,gCAAG,wFAEX,GADC,kGAAD,GACC,sEAAD;AA+6BM;AAoXE;AA9zBO;AAtUF;AAuVP;AAvIQ;AApWQ;;;AAElC;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAjBkC;;;;;;;;;;;;;;;;AA22LwB;AAE5D,wBAAa,OAAO,CAAC,KAAD;AAFwC;AAKE;AAG9D,0BAAe,OAAO,CAAC,KAAD;AAHwC;AAMN;AAExD,oBAAS,OAAO,CAAC,KAAD;AAFwC;AAKE;AAG1D,sBAAW,OAAO,CAAC,KAAD;AAHwC;AAoCD;AAEzD,qBAAU,OAAO,CAAC,KAAD;AAFwC;AAKE;AAG3D,uBAAY,OAAO,CAAC,KAAD;AAHwC;AAYD;AAE1D,sBAAW,OAAO,CAAC,KAAD;AAFwC;AAKE;AAG5D,wBAAa,OAAO,CAAC,KAAD;AAHwC;AAxQL;AAEvD,UAAY,UAAT,cAAY,KAAH,CAAZ;AAEE,wBAAY;AACZ;OAHF;AAFuD;AASC;AAExD,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAFwD;AAoPG;AAG3D,uBAAY,OAAO,CAAC,KAAD;AAHwC;AAiBI;AAG/D,UAAG,qBAAiB,KAAG,KAAvB;AAEE,gCAAoB;AACpB;OAHF;AAH+D;AAUJ;AAG3D,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;AAChB;OAHF;AAH2D;AA/FC;AAAhB;AAE5C,eAAU,cAAS,KAAG,CAAH;AAFyB;AAAgB;AA2BH;AAEzD;AACA;AAEA,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd,YAAY,WAAD,QAAX;AAEE,mBAAS,QAAyB,OAApB,WAAM,iBAAC,EAAa,GAAE,CAAF,kBAAlC;AAAI;AAEF,gBAAK,WAAM,YAAS,CAAC,CAAD;AAMpB,gBAAQ,gCAAH,eAAF,CAAE,CAAL,EACK,OAAF,EAAK,gCAAH,CAA+B,YAAW,aAAC,CAAa,eAAb,CADhD;AAGA,gBAAQ,yBAAH,eAAF,CAAE,CAAL,EACK,OAAF,EAAK,yBAAH,CAAwB,YAAW,aAAC,CAAa,eAAb,CADzC;;SAbJ;AAkBA;OArBF;AALyD;AAhCD;AAExD;AAFwD;AAlKE;AAE1D;AAF0D;AA4GN;AAEpD,UAAY,WAAD,QAAX;AACE,mBAAM;AACH,gBAAY,cAAD,QAAX,EACH,cAAQ,CAAC,IAAD,CADL;AAJ+C;AAtBD;AAEnD,UAAa,yCAAH,eAAP,MAAO,CAAV;AAEE,wBAAW,OAAO,CAAS,OAAP,OAAU,yCAAH,CAAwC,YAAjD;AAClB,0BAAa,OAAO,CAAS,OAAP,OAAU,yCAAH,CAAwC,cAAjD;AACpB,uBAAU,OAAO,CAAS,OAAP,OAAU,yCAAH,CAAwC,WAAjD;AACjB,sBAAS,OAAO,CAAS,OAAP,OAAU,yCAAH,CAAwC,UAAjD;AAChB,0BAAa,OAAO,CAAS,OAAP,OAAU,yCAAH,CAAwC,cAAjD;AACpB,4BAAe,OAAO,CAAS,OAAP,OAAU,yCAAH,CAAwC,gBAAjD;AACtB,yBAAY,OAAO,CAAS,OAAP,OAAU,yCAAH,CAAwC,aAAjD;AACnB,wBAAW,OAAO,CAAS,OAAP,OAAU,yCAAH,CAAwC,YAAjD;AAClB,yBAAqB,OAAP,OAAU,yCAAH,CAAwC;AAC7D,wBAA4D,WAAxC,OAAP,OAAU,yCAAH,CAAwC;AAC5D,gCAA4B,OAAP,OAAU,yCAAH,CAAwC;AACpE,4BAAwB,OAAP,OAAU,yCAAH,CAAwC;AAChE,0BAAsB,OAAP,OAAU,yCAAH,CAAwC;OAG9D;AAnBiD;AA8BE;AAErD,oBAAU;AACV,sBAAY,cAAC,kEAAW,mEAAY,qEAAc,qEAAtC;AACZ,uBAAa;AACb,0BAAgB;AAChB,8BAAoB;AACpB,wBAAc;AAEd,yBAAe,qDAAmB,QAAC,YAAM,CAAC,sEAAa,mDAAiB,CAAC,IAAK,IAAK,GAAX,EAAiB,mDAAiB,CAAC,IAAK,IAAK,GAAX,EAAiB,mDAAiB,CAAC,IAAK,IAAK,GAAX,EAAiB,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAArI,CAAN;AACnC,wBAAc,qDAAmB,QAAC,YAAM,CAAC,sEAAa,mDAAiB,CAAC,IAAK,IAAK,GAAX,EAAiB,mDAAiB,CAAC,IAAK,IAAK,GAAX,EAAiB,mDAAiB,CAAC,IAAK,IAAK,GAAX,EAAiB,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAArI,CAAN;AAClC,uBAAa,qDAAmB,QAAC,YAAM,CAAC,sEAAa,mDAAiB,CAAC,IAAK,IAAK,GAAX,EAAiB,mDAAiB,CAAC,IAAK,IAAK,GAAX,EAAiB,mDAAiB,CAAC,IAAK,IAAK,GAAX,EAAiB,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAArI,CAAN;AACjC,2BAAiB,qDAAmB,QAAC,YAAM,CAAC,mEAAU,SzB5pKqG,QAAmD,GAAqD,EyB4pKxN,CAAN;AACrC,2BAAiB,uDAAqB,QAAC,YAAM,CAAC,qEAAU,OAAX,CAAN;AACvC,0BAAgB,uDAAqB,QAAC,YAAM,CAAC,qEAAU,QAAX,CAAN;AACtC,0BAAgB,uDAAqB,QAAC,YAAM,CAAC,qEAAU,OAAX,CAAN;AACtC,yBAAe,uDAAqB,QAAC,YAAM,CAAC,qEAAU,OAAX,CAAN;AACrC,6BAAmB,uDAAqB,QAAC,YAAM,CAAC,qEAAU,OAAX,CAAN;AAEzC,sBAAW,WAAX,GAA0B;AAC1B,qBAAU,WAAV,GAAyB;AACzB,oBAAS,WAAT,GAAwB;AACxB,wBAAa,WAAb,GAA4B;AAE5B,uBAAY,WAAZ,GAA2B;AAC3B,wBAAa,WAAb,GAA4B;AAC5B,uBAAY,WAAZ,GAA2B;AAC3B,sBAAW,WAAX,GAA0B;AAC1B,0BAAe,WAAf,GAA8B;AA5B6D;AAAtC;AA+BA;AAEzC,eAAZ,KAAY;AACD,eAAX,KAAW;AACD,eAAV,KAAU;AACI,eAAd,KAAc;AAED,eAAb,KAAa;AACC,eAAd,KAAc;AACD,eAAb,KAAa;AACD,eAAZ,KAAY;AACI,eAAhB,KAAgB;AAChB;AAZqD;AAl1LjB;AAqDhB,+BAAO,UA+FA,yCA/FA,CAAP;AArDgB;AA0DN;;AAER;AACI;AACP;AACD,+BzB+yBI,kEyB/yBJ,yBAvBgE,uBAAC,kEAAW,mEAAY,qEAAc,qEAAtC,CAuBhE;AACI,mCzBwvBD,iEyBxvBC;AACD,kCzB2mBF,+DyB3mBE;AACE,oCzBsvBF,iEyBtvBE;AACH,iCzBymBD,+DyBzmBC;AACE,mCzBovBD,iEyBpvBC;AACH,gCzBumBA,+DyBvmBA;AACE,kCzBkvBA,iEyBlvBA;AACE,oCzBqmBJ,+DyBrmBI;AACE,sCzBgvBJ,iEyBhvBI;AACL;AAfU;AAkBC;;AAEV,kCzB8lBF,+DyB9lBE;AACE,oCzByuBF,iEyBzuBE;AACH,iCzB4lBD,+DyB5lBC;AACE,mCzBuuBD,iEyBvuBC;AACH,gCzB0lBA,+DyB1lBA;AACE,kCzBquBA,iEyBruBA;AACE,oCzBwlBJ,+DyBxlBI;AACE,sCzBmuBJ,iEyBnuBI;AACL;AAVW;AAaQ;;AAElB,kCzBilBF,+DyBjlBE;AACE,oCzB4tBF,iEyB5tBE;AACH,iCzB+kBD,+DyB/kBC;AACE,mCzB0tBD,iEyB1tBC;AACH,gCzB6kBA,+DyB7kBA;AACE,kCzBwtBA,iEyBxtBA;AACE,oCzB2kBJ,+DyB3kBI;AACE,sCzBstBJ,iEyBttBI;AACL;AAVmB;AAab;;AAEC;;;AAEzB;AACA;AACA;AACA;AACA;AACA;AACA;AARyB;;;;;;AA+iNiB;AAG5C,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACV;OAHF;AAH4C;AATM;AAElD,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;AAChB;OAHF;AAFkD;AAnBN;AAAT;AAEnC,eAAU,2CAAkB,GAAE,wCAAF;AAFO;AAAS;AAoDG;;AAKE;AAEjD,UAAW,CAAC,qBAAD,SAAkB,IAAI,CAAI,iBAArC,EACE,qBAAe,CAAC,IAAD,CADjB;AAFiD;AAnHO;AAExD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,IAAD,CADxB;AAFwD;AAoGL;AAGnD;AAIE;AAPiD;AA1DC;AAEpD;AAEA,WAAK,eAAe,CAAC,eAAiB,4CAAmB,6CAAmB,IAAxD;AAJgC;AApCA;AAEpD,2BAAgB,MAAM;AAF8B;AAKC;AAErD,YAAM,aAAa,CAAC,kBAAD;AAFkC;AA4DO;AAE5D;AACA;AAH4D;AAvDlB;AAE1C;AACA,UAAa,gCAAH,eAAP,MAAO,CAAV;AAEE,sBAAkB,OAAP,OAAU,gCAAH,CAA+B;AACjD,4BAAwB,OAAP,OAAU,gCAAH,CAA+B;AACvD,wBAAoB,OAAP,OAAU,gCAAH,CAA+B;OAJrD;AAH0C;AAWE;AAE5C;AACA;AAOA,0BAAgB;AAChB,sBAAY;AACZ,oBAAU;AAZuD;AAArB;AA0BA;AAE5C;AAF4C;AA9gNjB;;;;;;;AAiCP,+BAAO,UvG2UjB,+BuG3UiB,CAAP;AAjCO;AAuCO;;AAER;;AAGC;;;AAMzB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAAO;AAAQ;AACf;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAnDyB;;;;;;;;;;;;;;;;;;AAwtKsB;AAGjD,sBAAW,OAAO,CAAC,KAAD;AAH+B;AA+BK;AAGtD,8BAAoB;AACpB;AACA;AALsD;AAfR;AAE9C,mBAAQ,OAAO,CAAC,KAAD;AAF+B;AAkJH;AAE3C,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACT,4BAAgB,KAAM,KAAG,EAAH;AACtB;AACA;OALF;AAF2C;AAhrCU;AAErD,6BAAmB;AACnB,UAAW,CAAC,WAAD,SAAS,IAAI,CAAI,uBAA5B,EACE,WAAM,kBAAC,CAAkB,oBAAlB,CADT;AAHqD;AAOD;AAEpD,4BAAkB;AAClB,UAAY,WAAD,QAAX,EACE,WAAM,iBAAC,CAAiB,mBAAjB,CADT;AAHoD;AAwjCA;AAEpD,4BAAkB;AAClB;AACA;AAJoD;AA4HF;AAElD,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;AAChB;AACA;OAJF;AAFkD;AA7qCP;AAE3C,kBAAK,OAAO,CAAC,KAAD;AAF+B;AAnDW;AAEtD,8BAAoB;AACpB,UAAY,qBAAD,QAAX;AAEE,YAAG,CAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAApB;AAEE,cAAY,WAAD,QAAX;AAEE,uBAAM,kBAAC,CAAkB,qBAAlB;AACP,uBAAM,gBAAN,GAAyB;WAH3B;SAMG,UAAI,2CAAY,IAAG,oBAAnB;AAEH,iCAAkB,qBAAgB,UAAC,EAAnC;AACA,gCAAiB,qBAAgB,SAAC,EAAlC;SAHG;OAVP;AAHsD;AA6pCC;AAEvD,UAAG,sBAAkB,KAAG,KAAxB;AAEE,iCAAqB;OAFvB;AAFuD;AAnqCP;AAEhD,wBAAc;AACd;AAHgD;AA20BS;AAAtB;AAEnC,eAAU,oBAAe,KAAG,GAAH;AAFU;AAAsB;AAKD;AAArB;AAEnC,eAAU,mBAAc,KAAG,GAAH;AAFW;AAAqB;AAlxBE;AAG1D,UAAG,yBAAqB,KAAG,KAA3B;AAEE,oCAAwB;AACxB;OAHF;AAH0D;AAssCF;AAGxD,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB;OAHF;AAHwD;AAUL;AAEnD,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;AACjB;OAHF;AAFmD;AA9BJ;AAG/C,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAH+C;AA1aM;AAAlB;AAEnC,eAAU,gBAAW,KAAG,EAAH;AAFc;AAAkB;AAwQJ;AAEjD,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf;AACA;OAJF;AAFiD;AAmIC;AAElD,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;AAChB;AACA;OAJF;AAFkD;AA7wCI;AAEtD,2BAAgB,OAAO,CAAC,KAAD;AAF+B;AAeH;AAEnD,wBAAa,OAAO,CAAC,KAAD;AAF+B;AA+uBE;AAAlB;AAEnC,eAAU;AAFyB;AAAkB;AA2fL;AAEhD,UAAG,iBAAW,KAAG,KAAjB;AAEE,4BAAc;AACd;OAHF;AAFgD;AAlqCQ;AAGxD,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB,YAAY,WAAD,QAAX;AAEE,cAAG,uBAAH;AACE,uBAAM,iBAAC,CAAiB,eAAjB;AAEA,gBAAP,WAAM,iBAAC,CAAiB,mBAAjB;SALX;OAHF;AAHwD;AAlFA;AAGxD,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB;OAHF;AAHwD;AAeJ;AAGpD,UAAG,mBAAe,KAAG,KAArB;AAEE,8BAAkB;AAClB;OAHF;AAHoD;AAUC;AAGrD,UAAG,oBAAgB,KAAG,KAAtB;AAEE,+BAAmB;AACnB;OAHF;AAHqD;AAouCO;AAG5D,UAAG,2BAAuB,KAAG,KAA7B;AAEE,sCAA0B;AAC1B;AACA;OAJF;AAH4D;AAtGP;AAGrD,UAAG,oBAAgB,KAAG,KAAtB;AAEE,+BAAmB;AACnB;OAHF;AAHqD;AApnCD;AAGpD,UAAG,mBAAe,KAAG,KAArB;AAEE,8BAAkB;AAClB;OAHF;AAHoD;AAUA;AAGpD,UAAG,mBAAe,KAAG,KAArB;AAEE,8BAAkB;AAClB;OAHF;AAHoD;AAmqCP;AAG7C,UAAG,YAAQ,KAAG,KAAd;AAEE,uBAAW;AACX;OAHF;AAH6C;AAkBO;AAGpD,UAAG,mBAAe,KAAG,KAArB,EACE,sBAAkB,KADpB;AAHoD;AAtVY;AAA7B;AAEnC,eAAU,2BAAsB,KAAG,EAAH;AAFG;AAA6B;AAuSP;AAGzD,8BAAmB,OAAO,CAAC,KAAD;AAH+B;AAMG;AAG5D,UAAG,2BAAuB,KAAG,KAA7B;AAEE,sCAA0B;AAC1B;AACA;OAJF;AAH4D;AAWK;AAGjE,sCAA2B,OAAO,CAAC,KAAD;AAH+B;AAMH;AAG9D,mCAAwB,OAAO,CAAC,KAAD;AAH+B;AApFT;AAErD,UAAG,oBAAgB,KAAG,KAAtB;AAEE,+BAAmB;AACnB;AACA;OAJF;AAFqD;AAkDW;AAGhE,UAAG,+BAA2B,KAAG,KAAjC;AAEE,0CAA8B;AAC9B;AACA;OAJF;AAHgE;AAyIJ;AAG5D,UAAG,2BAAuB,KAAG,KAA7B;AAEE,sCAA0B;AAC1B;OAHF;AAH4D;AAn6CR;AAAjB;AAEnC,eAAU;AAFyB;AAAiB;AAmkCV;AAAP;AAEnC,eAAU,UAAK,KAAG,EAAH;AAFoB;AAAO;AApKM;AAAb;AAEnC,eAAU;AAFyB;AAAa;AAuBN;AAAP;AAEnC,eAAU;AAFyB;AAAO;AAyBI;AAAX;AAEnC;AACA;AAEA,YAAM,GAAN,GAAa;AACb,YAAM,GAAN,GAAa;AACb,UAAG,iBAAY,IAAU,CAAL,cAAK,KAAG,EAAH,CAAzB;AAEE,YAAK,4CAAe,QAAC,sBAAkB,CAAC,EAAG,EAAG,mBvBjgK+E,IuBigKtF,CAAlB;AACrB,YAAG,CAAI,kBAAP,EACE,CAAC,aADH;AAEA,SAAC,iBAAD,GAAqB;AACrB,SAAC,sBAAD,GAA0B;AAC1B;AACE,WAAC,MAAK,OAAO,CAAC,YAAD;AACb,oBAAK,mBAAL;AACA,iDAAa,CAAC,EAAG,oBAAe,CAAC,CAAC,CAAF,EAAM,oBAAe,CAAC,CAAC,CAAF,CAAxC;AACb,yBAAU,CAAC,kBAAkB,CAAC,eAAM,2CAAG,mBvBr5JqG,IuBq5J/G,CAA7B;AAJF;AAME,cAAG,CAAI,kBAAP,EACE,CAAC,WADH;AAEA,WAAE,eAAF,CAAE;AARJ;OAPF;AAPmC;AAAW;AAifc;AAE5D;AACA,UAAG,YAAO,KAAE,wCAAZ,EACE,kBAAc,gBADhB;AAH4D;AAziDd;AAE9C;AAEA;AACA,UAAK;AACL,UAAG,wCAAa,4BAA4B,CAAC;;;;UAAD,CAA5C;AAEE,wBAAU,YAAW,SAAC,CAAS,CAAT;AACtB,wBAAU,YAAW,QAAC,CAAQ,kEAAR;AACtB,wBAAU,cAAa,SAAC,CAAS,uCAAK,CAAC,EAAG,SAAY,EAAhB,CAAd;AACxB,wBAAU,cAAa,QAAC,CAAQ,kEAAR;AACxB,wBAAU,aAAY,SAAC,CAAS,uCAAK,CAAC,gBAAU,YAAW,QAAQ,gBAAU,cAAa,QAAQ,EAA7D,CAAd;AACvB,wBAAU,aAAY,QAAC,CAAQ,oEAAR;OAPzB;AAUA,UAAK;AACL,UAAG,wCAAa,sBAAsB,CAAC;;;;UAAD,CAAtC,EACE,YAAI,SAAC,CAAS,CAAT,CADP;AAGA,UAAK;AACL,UAAG,wCAAa,8BAA8B,CAAC;;;;UAAD,CAA9C;AAEE,wBAAU,cAAa,SAAC,CAAS,CAAT;AACxB,wBAAU,YAAW,SAAC,CAAS,CAAT;AACtB,wBAAU,gBAAe,SAAC,CAAS,CAAT;AAC1B,wBAAU,cAAa,SAAC,CAAS,CAAT;AACxB,wBAAU,YAAW,SAAC,CAAS,CAAT;AACtB,wBAAU,gBAAe,SAAC,CAAS,CAAT;AAC1B,wBAAU,aAAY,SAAC,CAAS,CAAT;OARzB;AAWA,UAAK;AACL,UAAG,wCAAa,2BAA2B,CAAC;;;;UAAD,CAA3C;AAEE,wBAAU,WAAU,SAAC,CAAS,CAAT;AACrB,wBAAU,WAAU,QAAC,CAAQ,kEAAR;AACrB,wBAAU,UAAS,SAAC,CAAS,uCAAK,CAAC,EAAG,UAAI,QAAQ,EAAhB,CAAd;AACpB,wBAAU,UAAS,QAAC,CAAQ,kEAAR;OALtB;AAjC8C;AAkwCS;AAEvD;AACA,kBAAI,SAAC,CAAS,CAAT;AACL,sBAAU,YAAW,SAAC,CAAS,QAAT;AACtB,sBAAU,WAAU,SAAC,CAAS,QAAT;AACrB,sBAAU,UAAS,SAAC,CAAS,QAAT;AACpB,sBAAU,cAAa,SAAC,CAAS,QAAT;AACxB,sBAAU,cAAa,SAAC,CAAS,OAAT;AACxB,sBAAU,aAAY,SAAC,CAAS,QAAT;AACvB,sBAAU,aAAY,SAAC,CAAS,OAAT;AACvB,sBAAU,YAAW,SAAC,CAAS,OAAT;AACtB,sBAAU,gBAAe,SAAC,CAAS,OAAT;AAE1B,sBAAU,YAAW,QAAC,CAAQ,qEAAR;AACtB,sBAAU,WAAU,QAAC,CAAQ,qEAAR;AACrB,sBAAU,UAAS,QAAC,CAAQ,qEAAR;AACpB,sBAAU,cAAa,QAAC,CAAQ,kEAAR;AACxB,sBAAU,cAAa,QAAC,CAAQ,oEAAR;AACxB,sBAAU,aAAY,QAAC,CAAQ,oEAAR;AACvB,sBAAU,aAAY,QAAC,CAAQ,oEAAR;AACvB,sBAAU,YAAW,QAAC,CAAQ,oEAAR;AACtB,sBAAU,gBAAe,QAAC,CAAQ,oEAAR;AAE1B,sBAAU,YAAW,SAAC,CAAS,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAA1B;AACtB,sBAAU,YAAW,WAAC,CAAW,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAA5B;AACtB,sBAAU,YAAW,eAAC,CAAe,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAAhC;AACtB,sBAAU,YAAW,iBAAC,CAAiB,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAAlC;AAEtB,sBAAU,WAAU,SAAC,CAAS,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAA1B;AACrB,sBAAU,WAAU,WAAC,CAAW,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAA5B;AACrB,sBAAU,WAAU,eAAC,CAAe,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAAhC;AACrB,sBAAU,WAAU,iBAAC,CAAiB,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAAlC;AAErB,sBAAU,UAAS,SAAC,CAAS,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAA1B;AACpB,sBAAU,UAAS,WAAC,CAAW,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAA5B;AACpB,sBAAU,UAAS,eAAC,CAAe,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAAhC;AACpB,sBAAU,UAAS,iBAAC,CAAiB,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAAlC;AArCmC;AAkEJ;AAEnD;AACA,UAAY,WAAD,QAAX,EACE,WAAM,gBAAC,CAAgB,sBAAhB,CADT;AAHmD;AAhvCD;AAElD;AAEA,YAAO,4CAAe,gBAAgB,CAAC,cAAS,EAAG,yBAAb;AACtC,4BAAyB,CAAC,GAAD,SAAM,IAAI,CAAI,uCAAa,CAAC,GAAD,CAApD;AAEA,UAAG,CAAI,mBAAc,IAAY,CAAP,YAAO,KAAE,wCAAF,CAAjC;AAEE,cAAO,4CAAe,gBAAgB,CAAC,yBAAoB,EAAG,yBAAxB;AACtC,8BAAyB,CAAC,GAAD,SAAM,IAAI,CAAI,uCAAa,CAAC,GAAD,CAApD;OAHF;AAMA;AAbkD;AAqqBD;AAEjD;AAFiD;AAuzBD;AAEhD;AACA;AAEA,UAAW,CAAP,YAAO,KAAE,uCAAF,CAAW,IAAG,iBAAzB,EACE,MADF;AAGA,0BAAgB;AACX;AACH,UADG,IACH;AAEE,4BAAe,KAAf;AACA,+BAAkB,+CAAlB;AACA,4BAAe,KAAf;AACA,uBAAU,UAAK,CAAC,oBAAc,GAAE,CAAjB,CAAf;AACA,sBAAS,UAAK,CAAC,oBAAc,GAAE,CAAjB,CAAd;OAEF,UATG,IASH;AAEE,4BAAe,IAAf;AACA,+BAAkB,+CAAlB;AACA,4BAAe,KAAf;AACA,mBAAM,kBAAN;AACA,YAAG,mBAAH;AAEE,yBAAU,UAAK,CAAC,QAAG,CAAC,qBAAe,EAAE,GAAlB,CAAuB,GAAE,CAA7B,CAAf;AACA,wBAAS,UAAK,CAAC,oBAAsB,GAAN,EAAE,GAAJ,GAAU,EAAzB,CAAd;SAEG,UAAG,iBAAY,IAAU,CAAL,cAAK,KAAG,EAAH,CAAzB;AAEH,yBAAU,UAAK,CAAC,EAAE,GAAI,GAAE,CAAT,CAAf;AACA,wBAAS,UAAK,CAAC,EAAE,GAAI,GAAE,CAAT,CAAd;;AAIA,wBAAS,EAAT;AACA,yBAAU,EAAV;;OAGJ,UA/BG,IA+BH;AAEE,4BAAe,IAAf;AACA,+BAAkB,8CAAlB;AACA,4BAAe,CAAI,mBAAnB;AAEA,mBAAM,kBAAN;AACA,YAAK;AACL,YAAG,mBAAH,EACE,IAAK,QAAG,CAAC,EAAG,+BAAyB,GAAE,CAA/B,CADV;AAGA,YAAG,iBAAY,IAAU,CAAL,cAAK,KAAG,EAAH,CAAzB,EACE,IAAK,QAAG,CAAC,EAAG,EAAE,GAAI,GAAE,EAAZ,CADV;AAGA,sBAAS,UAAK,CAAC,CAAD,CAAd;AAEA,YAAG,eAAW,KAAG,CAAC,CAAlB,EACE,eAAU,UAAK,CAAC,eAAD,CAAf,CADF;OAhBF;AAoBF,0BAAgB;AAEhB;AA9DgD;AApTA;AAEhD,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,IAAD,CADjB;AAFgD;AA9xBL;AAE3C;AAF2C;AAqnBQ;;AA8hBJ;AAE/C;AAEA;AACK;AACH,UADG,IACH;AAAU,YAAK;AACf,gBAFG,IAEH;AAAS,YAAK;;AAEZ,YAAK;;AAGT,UAAG,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAlB;AAEE,8BAAiB,mBAAc,GAAE,CAAjC;AACA,+BAAkB,oBAAe,GAAE,CAAnC;AAMA,oBAAI,QAAC,CAAQ,UAAK,CAAC,YAAI,MAAM,GAAE,CAAb,CAAb;AACL,sBAAS,CAAC,eAAM,cAAK,UAAK,CAAC,eAAM,GAAE,CAAT,EAAa,UAAK,CAAC,gBAAO,GAAE,CAAV,CAAnC;OAVX;AAZ+C;AA9/CG;AAElD;AAEA;AACA,kBAAI,UAAC,CAAU,sCAAY,UAAU,CAAC,YAAI,SAAS,EAAG,CAAjB,CAAhC;AACL,yBAAc,sCAAY,aAAa,CAAC,iBAAY,EAAG,CAAhB,CAAvC;AACA,oCAAyB,sCAAY,aAAa,CAAC,4BAAuB,EAAG,CAA3B,CAAlD;AAEA,UAAG,eAAW,KAAG,CAAC,CAAlB,EACE,kBAAc,sCAAY,aAAa,CAAC,gBAAY,EAAG,CAAhB,CADzC;AAEA,6BAAmB,sCAAY,aAAa,CAAC,qBAAiB,EAAG,CAArB;AAC5C,4BAAkB,sCAAY,aAAa,CAAC,oBAAgB,EAAG,CAApB;AAE3C,iBAAM,iBAAC,CAAiB,sCAAY,aAAa,CAAC,WAAM,gBAAgB,EAAG,CAA1B,CAA1C;AACP,iBAAM,kBAAC,CAAkB,sCAAY,aAAa,CAAC,WAAM,iBAAiB,EAAG,CAA3B,CAA3C;AAGP;AAlBkD;AAxHG;AAErD;AAFqD;AAsrCL;AAGhD;AACA,UAAc,CAAV,SAAU,KAAE,+BAAF,CAAY,IAAgB,CAAX,UAAW,KAAE,qBAAF,CAA1C,EACE,wBAAoB,IADtB;AAGA,UAAc,CAAV,SAAU,KAAE,+BAAF,CAAY,IAAgB,CAAX,UAAW,KAAE,qBAAF,CAA1C,EACE,wBAAoB,IADtB;AAPgD;AAmRL;AAE3C;AAEA,mBAAc,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAqC,IAAR,CAAL,UAAK,KAAE,cAAF,CAAV,IACM,CAAlD,CAAY,CAAC,WAAD,SAAsC,IAA1B,CAAc,sBAAH,eAAN,WAAM,CAAd,IAAgC,CAAe,CAAV,yCAAU,IAAc,WAAM,gBAApB,CAAlB,CADY;AAEjD,8DAAC,KAAD;AACjB,UAAG,UAAyB,IAAV,eAAJ,IAAkB,oBAAhC,EACE,aAAQ,0BAAa,CAAC,eAAM,gBAAiB,GAAI,cAAC,4CAAD,CAA5B,CAArB,CADF;AAP2C;AAtTQ;AAGnD;AACA,UAAG,eAAH,EACE,eADF;AAGA,mBAAS;AACT;AARmD;AAWA;AAGnD;AACA,oBAAU;AACV,UAAG,eAAW,KAAG,WAAjB,EACE,iBADF;AAGA,wBAAc;AARqC;AAWF;AAGjD;AACA,mBAAS;AACT;AALiD;AArCF;AAE/C;AACA,UAAS,UAAN,MAAS,EAAH,CAAT,EACE,MADF;AAGK;AACH,WADG,IACH,YAAY,CADT,IACS,SAAZ;AAEE,YAAG,kBAAH,EACE,eADF;OAFF;AAP6C;AAnBE;AAEjD;AACK;AACH,UADG,IACH;AAAU;AACV,gBAFG,IAEH;AAAS;AACT,iBAHG,IAGH,YAAQ,CAHL,IAGK,QAAR;AAAmB;AACnB,iBAJG,IAIH,YAAU,CAJP,IAIO,QAAV;AAAqB;AACrB,gBALG,IAKH,SAAW,YAAX;AAR+C;AAYC;AAElD;AACA,UAAQ,CAAJ,SAAI,IAAG,GAAH,CAAQ,IAAI,CAAc,CAAL,SAAD,aAAM,IAAG,cAAC,IAAQ,GAAY,GAAW,GAAY,GAAU,GAAS,GAAQ,GAAU,GAAU,EAA3F,CAAH,CAAlC,EACE,6BAAwB,CAAC,SAAD,CAD1B;AAHkD;AArpBE;AAEpD;AAFoD;AAKA;AAEpD;AACA,mBAAS;AACT,oBAAU;AACV,wBAAc;AACd;AANoD;AAk0BA;;AAoBQ;;AAfT;;AAKA;;AAKI;;AAtnBX;AAE5C;AACA;AAEA,UAAG,CAAI,iBAAY,IAAS,CAAL,cAAK,KAAE,EAAF,CAA5B,EACE,MADF;AAGA,iBAAM,kBAAN;AACA,WAAM,SAAS,WvBr/I6B;AuBs/I5C;AACE,iBAAS,SAAS,CAAC,2CAAD;AAClB,iBAAS,MAAK,OAAO,CAAC,YAAD;AAErB,YAAG,aAAH;AAEE,cAAU,CAAN,UAAM,IAAG,eAAH,CAAe,IAAmB,CAAd,mBAAc,KAAG,EAAH,CAA5C;AACE,qBAAS,MAAK,SAAC,CAAS,mBAAT;AACZ,oBAAG,WAAO,IAAoB,CAAf,oBAAe,KAAG,EAAH,CAA9B,EACH,SAAS,MAAK,SAAC,CAAS,oBAAT,CADZ;SAGF,UAAG,uBAAkB,KAAG,EAAxB,EACH,SAAS,MAAK,SAAC,CAAS,uBAAT,CADZ;AAGL,iBAAS,WAAS,CAAC,4CAAI,eAAM,mBAAc,0BAAqB,wBAAmB,evBphJ+K,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CuBmhJ1J;AAdpB;AAgBE,iBAAS,aAAa,CAAC,GvB/oJyD,KuB+oJ1D;AAhBxB;AAV4C;AApHE;AAE9C;AACA;AACA;AACA;AACA;AAAG;AAEH,UAAG,CAAI,mBAAP,EACE,MADF;AAGA,gBAAK,oBAAa,CAAC,8CAAD,CAAlB;AAEA,UAAY,iCAAH,eAAL,IAAK,CAAkD,IAAb,sBAAJ,IAAqB,2BAA/D;AAEE,eAAQ,8BAAO,QAAC;AAChB,YAAI,QAAQ,CAAC,oBAAe,CAAC,CAAD,EAAK,oBAAe,CAAC,CAAD,CAApC;AAMZ,YAAK,4CAAe,QAAC,YAAM,CAAC,IAAI,UAAC,GvBviJuB,KuBuiJ7B,CAAN;AACrB;AACE,WAAC;AAQD,WAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,WAAC,QAAO,SAAC,CAAS,4CAAe,0BAAxB;AAOT,mBAAwB,KAAf,oBAAe,CAAC,CAAD,GAAsB,OAAf,oBAAe,CAAC,CAAD,mBAA9C;AAAI;AAEF,gBAAK,QAAG,CAAC,EAAG,CAAE,GAAE,oBAAe,CAAC,CAAD,CAAvB;AACR,aAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,EAAG,CAAJ,GAAc,yCAAN,gCAAM,CAAE,IAAI,SAAC,EAAW,GAAH,CAAF,GAAO,CAAF,CAAK,CAAvB,GAA2B,+EvBhiJkI,8EuBgiJlL;AACV,gBAAG,CAAE,IAAqB,CAAhB,IAAI,SAAC,EAAW,GAAH,CAAF,GAAO,CAAF,CAA1B,EACE,KADF;;AArBJ;AA0BE,WAAC;AACD,WAAE,eAAF,CAAE;AA3BJ;AA8BA;AACE,gBAAO,uCAAa,QAAC;AACrB;AACE,eAAG,OAAO,CAAC,IAAD;AACV,qBAAS,aAAW,CAAC,2CAAG,IvB9gJmE,KACzE,MAA0B,KAA2B,KuB6gJnD;AAFtB;AAIE,eAAI,eAAJ,GAAI;AAJN;AAFF;AASE,cAAK,eAAL,IAAK;AATP;;AAcA,iBAAS,iBAAT,GAA6B;AAExB;AACH,YADG,IACH;AAEE,cAAG,aAAH;AAEE,gBAAG,WAAO,IAAmC,CAA9B,6BAAuB,SAAC,EAAM,GAAE,CAAF,CAA7C;AACE,uBAAS,iBAAiB,CAAC,2CAAG,8BAAyB,0BvB9/IuD,KAChG,MAA0B,KAA2B,KuB6/IzC;AACvB,sBAAG,WAAO,IAAwB,CAAnB,kBAAY,SAAC,EAAM,GAAE,CAAF,CAAlC;AACH,uBAAS,iBAAiB,CAAC,2CAAG,mBAAc,0BvBhgJkE,KAChG,MAA0B,KAA2B,KuB+/IzC;AACvB,sBAAG,wBAAkB,SAAC,EAAM,GAAE,CAA9B;AACH,uBAAS,iBAAiB,CAAC,2CAAG,yBAAoB,0BvBlgJ4D,KAChG,MAA0B,KAA2B,KuBigJzC;AAE1B,kBAAA,SAAS,iBAAiB,CAAC,2CAAG,cAAS,0BvBpgJuE,KAChG,MAA0B,KAA2B,KuBmgJzC;;AAI5B,gBAAG,gCAA0B,SAAC,EAAM,GAAE,CAAtC;AACE,uBAAS,iBAAiB,CAAC,2CAAG,iCAA4B,0BvBzgJoD,KAChG,MAA0B,KAA2B,KuBwgJzC;AACvB,sBAAG,qBAAe,SAAC,EAAM,GAAE,CAA3B;AACH,uBAAS,iBAAiB,CAAC,2CAAG,sBAAiB,0BvB3gJ+D,KAChG,MAA0B,KAA2B,KuB0gJzC;AAE1B,kBAAA,SAAS,iBAAiB,CAAC,2CAAG,cAAS,0BvB7gJuE,KAChG,MAA0B,KAA2B,KuB4gJzC;;;AAK9B,cAAG,aAAH;AAEE,gBAAG,WAAO,IAAwB,CAAnB,kBAAY,SAAC,EAAM,GAAE,CAAF,CAAlC;AACE,uBAAS,iBAAiB,CAAC,2CAAG,mBAAc,0BvBrhJkE,KAChG,MAA0B,KAA2B,KuBohJzC;AAE1B,kBAAA,SAAS,iBAAiB,CAAC,2CAAG,cAAS,0BvBvhJuE,KAChG,MAA0B,KAA2B,KuBshJzC;WAEzB,UAAG,qBAAe,SAAC,EAAM,GAAE,CAA3B;AACH,qBAAS,iBAAiB,CAAC,2CAAG,sBAAiB,0BvB1hJiE,KAChG,MAA0B,KAA2B,KuByhJ3C;AAE1B,gBAAA,SAAS,iBAAiB,CAAC,2CAAG,cAAS,0BvB5hJyE,KAChG,MAA0B,KAA2B,KuB2hJ3C;;;AAzGY;AA+GA;;AAhlBA;AAAX;AAEnC,eAAU;AAFyB;AAAW;AAVE;AAAb;AAEnC,eAAU;AAFyB;AAAa;AAg8BF;AAAX;AAEnC;AACA;AACA;AAEA,gBAAK,mBAAL;AACA,mBAAQ,oBAAR;AACA,iBAAM,sBAAN;AACA,UAAG,CAAI,iBAAP;AAEO;AACH,YADG,IACH;AAAS,yBAAU,+BAAK,CAAC,IAAI,MAAO,GAAE,CAAF,CAAK,CAAC,IAAK,GAAE,CAAF,CAAK,EAAE,KAAM,GAAE,CAAF,CAAK,CAAC,OAAQ,GAAE,CAApD,CAAf;AACT,kBAFG,IAEH,qDAAQ,eAAU,+BAAK,CAAC,CAAC,KAAM,GAAE,CAAF,CAAK,IAAI,OAAQ,GAAE,CAAF,CAAK,EAAE,KAAM,GAAE,CAAF,CAAK,CAAC,OAAQ,GAAE,CAAtD,CAAf,CAAR;OAIF,qBAAU,+BAAK,CAAC,CAAC,KAAM,GAAE,CAAF,CAAK,CAAC,IAAK,GAAE,CAAF,CAAK,EAAE,KAAM,GAAE,CAAF,CAAK,CAAC,OAAQ,GAAE,CAAhD,CAAf;AAjBiC;AAAW;AApCI;AAAf;AAEnC;AAEA,gBAAK,mBAAL;AACA,qBAAU,+BAAK,CAAC,CAAC,OAAQ,CAAC,KAAM,CAAC,OAAQ,CAAC,OAA3B,CAAf;AALmC;AAAe;AALF;AAAb;AAEnC,qBAAU,oBAAa,CAAC,4DAAD,CAAvB;AAFmC;AAAa;AAlCA;AAAb;AAEnC;AACA;AAEA,WAAM;AACD;AACH,UADG,IACH,+CAAU,KAAM,+BAAhB;AAGF,gBAAK,KAAL;AACA,qBAAU,+BAAK,CAAC,CAAC,MAAO,CAAC,KAAM,CAAC,MAAO,CAAC,OAAzB,CAAf;AACA,UAAG,mBAAH;AAEO;AACH,YADG,KACH;AAAS,yBAAU,+BAAK,CAAC,MAAM,KAAM,GAAE,CAAF,CAAK,MAAM,IAAK,GAAE,CAAF,CAAK,MAAM,KAAU,GAAF,CAAF,GAAM,EAAF,CAAM,MAAM,OAAQ,GAAE,CAAxE,CAAf;AACT,kBAFG,KAEH,qDAAQ,eAAU,+BAAK,CAAC,MAAM,KAAM,GAAE,CAAF,CAAK,MAAM,IAAK,GAAE,CAAF,CAAK,MAAM,MAAO,GAAE,CAAF,CAAK,MAAM,IAAS,GAAF,CAAF,GAAM,EAArE,CAAf,CAAR;OAJJ;AAZmC;AAAa;AAqBA;AAAb;AAEnC;AAEA,eAAU;AACV,UAAG,oBAAH;AAEE,cAAO,4CAAe,gBAAgB,CAAC,cAAS,EAAG,yBAAb;AACtC,YAAW,CAAC,GAAD,SAAM,IAAI,CAAI,uCAAa,CAAC,GAAD,CAAtC,EACE,SAAU,QAAG,CAAC,GAAG,UAAC,GAAQ,GAAG,SAAC,EAAjB,CADf;OAHF;AALmC;AAAa;AA+BW;AAAxB;AAEnC;AAEA,eAAU;AACV,UAAG,+BAAH;AAEE,cAAO,4CAAe,gBAAgB,CAAC,yBAAoB,EAAG,yBAAxB;AACtC,YAAW,CAAC,GAAD,SAAM,IAAI,CAAI,uCAAa,CAAC,GAAD,CAAtC,EACE,SAAU,QAAG,CAAC,GAAG,UAAC,GAAQ,GAAG,SAAC,EAAjB,CADf;OAHF;AALmC;AAAwB;AAn+BjB;AAE1C;AACA,UAAa,gCAAH,eAAP,MAAO,CAAV;AAEE,uBAAmB,OAAP,OAAU,gCAAH,CAA+B;AAClD,8BAA0B,OAAP,OAAU,gCAAH,CAA+B;AACzD,8BAA0B,OAAP,OAAU,gCAAH,CAA+B;AACzD,8BAA0B,OAAP,OAAU,gCAAH,CAA+B;AACzD,+BAA2B,OAAP,OAAU,gCAAH,CAA+B;AAC1D,2BAAuB,OAAP,OAAU,gCAAH,CAA+B;AACtD,sCAAkC,OAAP,OAAU,gCAAH,CAA+B;AACjE,+BAA2B,OAAP,OAAU,gCAAH,CAA+B;AAC1D,0CAAsC,OAAP,OAAU,gCAAH,CAA+B;AACrE,sCAAkC,OAAP,OAAU,gCAAH,CAA+B;AACjE,wBAAW,OAAO,CAAS,OAAP,OAAU,gCAAH,CAA+B,YAAxC;AAClB,gCAA4B,OAAP,OAAU,gCAAH,CAA+B,mBAAC;AAC5D,qBAAQ,OAAO,CAAS,OAAP,OAAU,gCAAH,CAA+B,SAAxC;AACf,6BAAgB,OAAO,CAAS,OAAP,OAAU,gCAAH,CAA+B,iBAAxC;AACvB,qCAAwB,OAAO,CAAS,OAAP,OAAU,gCAAH,CAA+B,yBAAxC;AAC/B,gCAAmB,OAAO,CAAS,OAAP,OAAU,gCAAH,CAA+B,oBAAxC;AAC1B,wCAA2B,OAAO,CAAS,OAAP,OAAU,gCAAH,CAA+B,4BAAxC;AAClC,0BAAa,OAAO,CAAS,OAAP,OAAU,gCAAH,CAA+B,cAAxC;AACpB,8BAA0B,OAAP,OAAU,gCAAH,CAA+B;AACzD,qBAAiB,OAAP,OAAU,gCAAH,CAA+B,QAAC;AACjD,4BAAwB,OAAP,OAAU,gCAAH,CAA+B;AACvD,+BAA2B,OAAP,OAAU,gCAAH,CAA+B;AAC1D,8BAA0B,OAAP,OAAU,gCAAH,CAA+B;AACzD,kCAA8B,OAAP,OAAU,gCAAH,CAA+B;AAC7D,6BAAyB,OAAP,OAAU,gCAAH,CAA+B;AACxD,oCAAgC,OAAP,OAAU,gCAAH,CAA+B;AAC/D,kCAA8B,OAAP,OAAU,gCAAH,CAA+B;AAC7D,yBAAqB,OAAP,OAAU,gCAAH,CAA+B;AACpD,oBAAK,OAAO,CAAS,OAAP,OAAU,gCAAH,CAA+B,QAAxC;AACZ,+BAA2B,OAAP,OAAU,gCAAH,CAA+B;AAC1D,8BAA0B,OAAP,OAAU,gCAAH,CAA+B;AACzD,kCAA8B,OAAP,OAAU,gCAAH,CAA+B;AAC7D,4BAAwB,OAAP,OAAU,gCAAH,CAA+B;AACvD;OAnCF;AAH0C;AAuGE;AAE5C;AAIA,oCAA0B;AAC1B,wBAAc,CAAC;AACf,qBAAW;AACX,4BAAkB;AAClB,4BAAkB;AAClB,4BAAkB;AAElB,qBAAS,qDAAmB,QAAC;AAC7B,kBAAK,WAAL,GAAoB;AAEpB,6BAAmB;AACnB,4BAAkB;AAClB,gCAAsB;AAEtB,wBAAc;AACd,wBAAc;AACd,+BAAqB;AACrB,yBAAe;AACf,oCAA0B;AAC1B,6BAAmB;AACnB,wCAA8B;AAC9B,oCAA0B;AAC1B,0BAAgB;AAEhB,4BAAkB;AAClB,6BAAmB;AACnB,gCAAsB;AACtB,oBAAU,sCAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,iBAAM,kBAAC,CAAkB,IAAlB;AACP,iBAAM,iBAAC,CAAiB,mBAAjB;AACP,iBAAM,kBAAC,CAAkB,oBAAlB;AACP,iBAAM,SAAN,GAAkB;AAClB,iBAAM,cAAN,GAAuB;AACvB,6BAAmB;AAEnB,sBAAY,8CAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,mBAAQ,UAAR,GAAsB;AACtB,8BAAoB,8CAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,2BAAgB,UAAhB,GAA8B;AAC9B,2BAAiB,8CAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,wBAAa,UAAb,GAA2B;AAE3B,iCAAuB,8CAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,8BAAmB,UAAnB,GAAiC;AACjC,yCAA+B,8CAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,sCAA2B,UAA3B,GAAyC;AACzC,sCAA4B,8CAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,mCAAwB,UAAxB,GAAsC;AAEtC,yBAAe,mCAA8B,QAAC,YAAM,CAAC,IAAD,CAAN;AAE9C,0BAAgB;AAChB,4BAAkB;AAClB,2BAAiB;AACjB,kCAAwB;AACxB,gCAAsB;AACtB,uBAAa;AACb,6BAAmB;AAEnB,oBAAS,GAAT;AACA,qBAAU,EAAV;AAlEiE;AAArB;AA+TA;AAEtC,eAAN,KAAM;AACC,eAAP,KAAO;AACE,eAAT,KAAS;AACQ,eAAjB,KAAiB;AACH,eAAd,KAAc;AACM,eAApB,KAAoB;AACQ,eAA5B,KAA4B;AACH,eAAzB,KAAyB;AACb,eAAZ,KAAY;AACZ;AAX4C;AA4uBJ;AAExC;AAEA;AACA,UAAG,CAAI,gBAAU,aAAjB;AAEE,YAAG,aAAH;AAEE,cAAG,UAAM,IAAG,eAAZ;AAEE,qBAAS,MAAK,OAAO,CAAC,gBAAU,UAAX;AACrB,qBAAS,QAAO,OAAO,CAAC,gBAAU,YAAX;WAEpB,UAAG,WAAH;AAEH,qBAAS,MAAK,OAAO,CAAC,gBAAU,WAAX;AACrB,qBAAS,QAAO,OAAO,CAAC,gBAAU,aAAX;;AAIvB,qBAAS,MAAK,OAAO,CAAC,gBAAU,YAAX;AACrB,qBAAS,QAAO,OAAO,CAAC,gBAAU,cAAX;;;AAKzB,mBAAS,MAAK,OAAO,CAAC,gBAAU,cAAX;AACrB,mBAAS,QAAO,OAAO,CAAC,gBAAU,gBAAX;;AAGzB,kBAAK,mBAAL;AAEA,YAAG,gBAAU,WAAb;AAEE,mBAAS,MAAK,QAAC,CAAQ,kEAAR;AACf,mBAAS,gBAAc,CAAC,2CvBxnKmE,6EuBwnKpE;SAGvB,MAAA,SAAS,qBAAmB,CAAC,2CAAG,gBAAU,WAAqB,WAAV,gBAAU,WvBnnKkJ,6EuBmnKrL;AAE9B,YAAG,gBAAU,iBAAiB,IAAI,CAAI,gBAAU,WAAhD;AAEE,iDAAa,CAAC,EAAG,CAAC,EAAG,CAAC,CAAT;AACb,mBAAS,QAAO,OAAO,CAAC,gBAAU,aAAX;AACvB,mBAAS,MAAK,QAAC,CAAQ,iEAAR;AACf,mBAAS,qBAAmB,CAAC,2CAAG,gBAAU,WAAqB,WAAV,gBAAU,WvB1nKkJ,6EuB0nKrL;SAL9B;OApCF;AA6CA,qBAAU,CAAC,UAAW,8CAAZ;AACV,mBAAQ,CAAC,SAAD;AACR,qBAAU,CAAC,SAAD;AAEV,UAAG,iBAAU,IAAI,gBAAjB;AAEE,kBAAK,kBAAL;AACA,iBAAS,qBAAmB,CAAC,2CvBvpK8C,EAA+D,6EuBupK9G;OAH9B;AAMA,UAAG,mBAAa,IAAI,wBAApB,EACE,SAAS,qBAAmB,CAAC,+CAAO,EvB3pKsG,6EuB2pK9G,CAD9B;AA5DwC;AA3dI;AAE5C,UAAG,CAAY,CAAC,WAAD,SAAf,EACE,MADF;AAGA,iBAAM,oBAAC,CAAoB,IAApB;AAEP,UAAG,CAAI,WAAM,QAAb;AAEE,YAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,IAAD,CADlB;AAGA,YAAG,uBAAH,EACE,WAAM,iBAAC,CAAiB,eAAjB,CADT;AAGA,mBAAM,aAAC,CAAa,oBAAb;AACP,mBAAM,UAAC,CAAU,IAAV;AACP,YAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,IAAD,CADZ;OAIO,MAAP,WAAM,UAAC,CAAU,KAAV;AArBmC;AAzlBK;AAEjD,UAAG,CAAY,CAAC,WAAD,SAAf,EACE,MADF;AAGA,UAAG,WAAM,QAAT,EACE,WAAM,UAAC,CAAU,KAAV,CADT;AALiD;AAk5BC;AAAf;AAEnC,eAAU;AAFyB;AAAe;AA3EN;AAAT;AAEnC,eAAU,4CAAe,gBAAgB,CAAC,cAAS,EAAG,qBAAb;AAFN;AAAS;AA51JjB;;;;;;;;AAkMP,+BAAO,UvG8HjB,+BuG9HiB,CAAP;AAlMO;AA6MK;;AACI;;AAER;;;AAE1B;AAF0B;AAu5NwB;AAEpD,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;AACjB;OAHF;AAFoD;AANO;AAE3D;AACA,+BAAa,CAAC,iCAAD;AAH8C;AApFZ;AAG/C;AACA;AACA;AACA;AAEA,UAAG,kBAAH;AAEE,kBAAK,KAAL;AAEA,YAAG,CAA8D,CAAlD,CAAC,WAAD,SAAkD,IAA5B,+BAAH,eAAN,WAAM,CAAX,IAAuG,CAAjD,OAAN,YAAS,+BAAH,CAA8B,kBAAmB,KAAE,mDAAF,CAA7D,CAAjE,EACE,uCAAa,CAAC,EAAG,oBAAe,CAAC,CAAC,CAAF,EAAK,oBAAe,CAAC,CAAC,CAAF,CAAvC,CADf;AAGoB,8DAAC,UAAW,0CAAZ;;AAIpB,eAAQ,8BAAO,QAAC;AAChB,YAAI,QAAQ,CAAC,EAAG,CAAJ;AAMZ,YAAK,4CAAe,QAAC,YAAM,CAAC,IAAI,UAAC,GvB5lOuB,KuB4lO7B,CAAN;AACrB;AACE,WAAC;AAQD,WAAC,QAAO,QAAC,CAAQ,oEAAR;AACT,WAAC,QAAO,SAAC,CAAS,QAAT;AACT,WAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,EAAG,CAAJ,GAAc,yCAAN,gCAAM,CAAC,EAAG,CAAJ,GAAQ,+EvB5kOuJ,8EuB4kOpL;AACV,WAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,EAAG,CAAJ,GAAc,yCAAN,gCAAM,CAAC,EAAG,CAAJ,GAAQ,+EvB7kOuJ,8EuB6kOpL;AACV,WAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,EAAG,CAAJ,GAAc,yCAAN,gCAAM,CAAC,EAAG,CAAJ,GAAQ,+EvB9kOuJ,8EuB8kOpL;AACV,WAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,EAAG,CAAJ,GAAc,yCAAN,gCAAM,CAAC,EAAG,CAAJ,GAAQ,+EvB/kOuJ,8EuB+kOpL;AACV,WAAC,WAAS,CAAO,yCAAN,gCAAM,CAAC,EAAG,CAAJ,GAAc,yCAAN,gCAAM,CAAC,EAAG,CAAJ,GAAQ,+EvBhlOuJ,8EuBglOpL;AAfZ;AAiBE,WAAC;AACD,WAAE,eAAF,CAAE;AAlBJ;AAqBA;AACE,oBAAK,KAAL;AACA,gBAAO,uCAAa,QAAC;AACrB;AACE,eAAG,OAAO,CAAC,IAAD;AACV,qBAAS,aAAW,CAAC,2CAAG,IvB3jOmE,KACzE,MAA0B,KAA2B,KuB0jOnD;AAFtB;AAIE,eAAI,eAAJ,GAAI;AAJN;AAHF;AAUE,cAAK,eAAL,IAAK;AAVP;;AAhD6C;AA+DE;AAAb;AAEpC;AAEA,gBAAK,KAAL;AACA,qBAAU,+BAAK,CAAC,CAAC,KAAM,GAAE,CAAF,CAAK,CAAC,IAAK,GAAE,CAAF,CAAK,CAAC,MAAO,GAAE,CAAF,CAAK,CAAC,OAAQ,GAAE,CAAhD,CAAf;AALoC;AAAa;AArEJ;AAE7C;AACA,2BAAiB;AAHiD;AAArB;AA6EY;AAEzD;AACA,2BAAgB,KAAhB;AAHyD;AAME;AAG3D;AACA,2BAAgB,KAAhB;AAJ2D;AA14N/B;;;;;;;;AASR,+BAAO,UvGuGjB,+BuGvGiB,CAAP;AAIG;AAUS;AACjB,4BzB4UI,+DyB5UJ;AACA;AACK;AACE;AACA;AACG,sClGpGnB,uCkGoGmB;AACD,qClGrGlB,uCkGqGkB;AACI,yClGtGtB,uCkGsGsB;AACL;AACO,2CzB2EN,oEyB3EM;AACF,yCzB0EJ,oEyB1EI;AACT,gCzB0EQ,uEyB1ER;AACD,+B1B4OE,wD0B5OF;AACQ,uC1B2ON,wD0B3OM;AACH,oC1B0OH,wD0B1OG;AACC;AACE,uCtB7YJ,oEsB6YI;AACV,6BAvSU,yCAuSV;AACM;AACD,kCArVS,6CAqVT;AA3CO;AA8CK,4DA9CL,wDA8CK;AAGP;;;AAExB;AACA;AACA;AACA;AACA;AANwB;;;;;AA6+HwB;AAGlD,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;AACjB,YAAY,oBAAD,QAAX;AAEO;AACH,cADG,IACH;AAEE,gCAAe,WAAC,CAAW,KAAX;AAChB,gCAAe,UAAC,CAAU,IAAV;AAIhB,gCAAe,YAAW,eAAC,CAAe,KAAf;WAE7B,UAVG,IAUH;AAEE,gCAAe,WAAC,CAAW,KAAX;AAChB,gCAAe,UAAC,CAAU,IAAV;AAIhB,gCAAe,YAAW,eAAC,CAAe,IAAf;WAE7B,UAnBG,IAmBH;AAEE,gCAAe,WAAC,CAAW,IAAX;AAChB,gCAAe,UAAC,CAAU,IAAV;AAIhB,gCAAe,YAAW,eAAC,CAAe,KAAf;WAP7B;SArBJ;AAgCA;OAnCF;AAHkD;AA0CI;AAEtD;AAEA,UAAG,sBAAkB,KAAG,KAAxB;AAEE,aAAM,sCAAY,YAAY,CAAC,KAAM,EAAP;AAE9B,iCAAqB;AACrB,YAAY,oBAAD,QAAX;AAEO;AACH,cADG,IACH;AAME,gCAAe,SAAC,CAAS,qCAAT;AAEhB,gCAAe,SAAC,CAAS,UAAK,CAAC,EAAG,GAAC,EAAL,CAAd;AAChB,gCAAe,YAAW,WAAC,CAAW,cAAC,mEAAY,qEAAb,CAAX;WAE7B,UAZG,IAYH;AAME,gCAAe,SAAC,CAAS,sCAAT;AAEhB,gCAAe,UAAC,CAAU,UAAK,CAAC,EAAG,GAAE,EAAN,CAAf;AAChB,gCAAe,YAAW,WAAC,CAAW,cAAC,qEAAc,qEAAf,CAAX;WAT7B;SAdJ;OALF;AAJsD;AAsDV;AAE5C,UAAG,YAAQ,KAAG,KAAd;AAEE,uBAAW;AACX;OAHF;AAF4C;AA6EK;AAEjD;AAFiD;AApLC;AAElD;AACA,UAAY,oBAAD,QAAX,EACE,oBAAe,gBAAC,CAAgB,sBAAhB,CADlB;AAHkD;AAuJF;AAEhD;AAFgD;AAKI;AAEpD;AACA;AAHoD;AA5CG;AAEvD,UAAY,oBAAD,QAAX,EACE,oBAAe,YAAW,YAAC,CAAY,gBAAU,UAAtB,CAD7B;AAFuD;AAucL;AAGlD;AACA,UAAG,kBAAa,KAAE,iDAAlB,EACE,eADF;AAJkD;AAvUI;AAEtD;AAFsD;AAfT;AAE7C;AAEA;AACA,UAAW,CAAC,oBAAD,SAAkB,IAAkB,CAAb,kBAAa,KAAE,iDAAF,CAA/C;AAEO;AACH,YADG,IACH;AAAU,oBAAK,+BAAK,CAAC,eAAM,GAAE,oBAAe,SAAC,EAAlB,CAAyB,EAAG,gBAAO,gBAA1C,CAAV;AACV,kBAFG,IAEH,0DAAW,UAAK,+BAAK,CAAC,EAAG,gBAAO,GAAE,oBAAe,UAAC,EAAlB,CAA0B,gBAAO,gBAA5C,CAAV,CAAX;AAEF,4BAAe,WAAW,CAAC,UAAW,0CAAZ;OAN5B;AAL6C;AArIA;AAG7C;AAEA;AACA,UAAK;AACL,UAAY,CAAD,QAAX,EACE,CAAC,WAAC,CAAW,KAAX,CADJ;AAP6C;AAqYW;AAAtB;AAElC,eAAU;AAFwB;AAAsB;AAUP;AAAf;AAElC,qBAAoB,2DAApB;AACA,UAAW,CAAC,oBAAD,SAAkB,IAAkB,CAAb,kBAAa,KAAG,+CAAH,CAA/C;AAEE,YAAG,kBAAa,KAAE,iDAAlB;AAEO;AACH,cADG,IACH;AAAU,2BAAU,+BAAK,CAAC,eAAM,GAAE,oBAAe,SAAC,EAAlB,CAAyB,EAAG,gBAAO,gBAA1C,CAAf;AACV,oBAFG,IAEH,0DAAW,eAAU,+BAAK,CAAC,EAAG,gBAAO,GAAE,oBAAe,UAAC,EAAlB,CAA0B,gBAAO,gBAA5C,CAAf,CAAX;;AASF,yBAAU,+BAAK,CAAC,oBAAe,QAAC,GAAM,oBAAe,OAAC,GAAK,oBAAe,QAAC,EAAK,GAAE,oBAAe,SAAC,EAAlB,CAAyB,oBAAe,OAAC,EAAI,GAAE,oBAAe,UAAC,EAAhI,CAAf;;OAfJ;AAHkC;AAAe;AAwBJ;AAAX;AAElC;AACA;AACA;AAEA,gBAAK,mBAAL;AACA,mBAAQ,oBAAa,CAAC,0CAAD,CAArB;AACA,iBAAM,sBAAN;AACA,UAAG,kBAAa,KAAG,+CAAnB;AAEE,YAAG,CAAI,iBAAP;AAEO;AACH,cADG,IACH;AAEO;AACH,gBADG,KACH;AAAU,6BAAU,+BAAK,CAAC,IAAI,MAAO,GAAE,CAAF,CAAK,CAAC,IAAK,GAAE,CAAF,CAAK,EAAE,KAAM,GAAE,CAAF,CAAK,CAAC,OAAQ,GAAE,CAApD,CAAf;AACV,sBAFG,KAEH,0DAAW,eAAU,+BAAK,CAAC,IAAI,MAAO,GAAE,CAAF,CAAK,CAAC,IAAK,GAAE,CAAF,CAAK,CAAC,MAAO,GAAE,CAAF,CAAK,EAAE,IAAK,GAAE,CAAlD,CAAf,CAAX;WAGJ,UARG,IAQH;AAEO;AACH,gBADG,KACH;AAAU,6BAAU,+BAAK,CAAC,CAAC,KAAM,GAAE,CAAF,CAAK,IAAI,OAAQ,GAAE,CAAF,CAAK,EAAE,KAAM,GAAE,CAAF,CAAK,CAAC,OAAQ,GAAE,CAAtD,CAAf;AACV,sBAFG,KAEH,0DAAW,eAAU,+BAAK,CAAC,CAAC,KAAM,GAAE,CAAF,CAAK,IAAI,OAAQ,GAAE,CAAF,CAAK,CAAC,MAAO,GAAE,CAAF,CAAK,EAAE,IAAK,GAAE,CAApD,CAAf,CAAX;WAJJ;;AAWG;AACH,cADG,KACH;AAAU,2BAAU,+BAAK,CAAC,CAAC,KAAM,GAAE,CAAF,CAAK,CAAC,IAAK,GAAE,CAAF,CAAK,EAAE,KAAM,GAAE,CAAF,CAAK,CAAC,OAAQ,GAAE,CAAhD,CAAf;AACV,oBAFG,KAEH,0DAAW,eAAU,+BAAK,CAAC,CAAC,KAAM,GAAE,CAAF,CAAK,CAAC,IAAK,GAAE,CAAF,CAAK,CAAC,MAAO,GAAE,CAAF,CAAK,EAAE,IAAK,GAAE,CAA9C,CAAf,CAAX;;;AAMJ,YAAG,CAAI,iBAAP;AAEO;AACH,cADG,KACH;AAAS,2BAAU,+BAAK,CAAC,IAAI,MAAO,GAAE,CAAF,CAAK,CAAC,IAAK,GAAE,CAAF,CAAK,EAAE,KAAM,GAAE,CAAF,CAAK,CAAC,OAAQ,GAAE,CAApD,CAAf;AACT,oBAFG,KAEH,qDAAQ,eAAU,+BAAK,CAAC,CAAC,KAAM,GAAE,CAAF,CAAK,IAAI,OAAQ,GAAE,CAAF,CAAK,EAAE,KAAM,GAAE,CAAF,CAAK,CAAC,OAAQ,GAAE,CAAtD,CAAf,CAAR;SAIF,qBAAU,+BAAK,CAAC,CAAC,KAAM,GAAE,CAAF,CAAK,CAAC,IAAK,GAAE,CAAF,CAAK,EAAE,KAAM,GAAE,CAAF,CAAK,CAAC,OAAQ,GAAE,CAAhD,CAAf;;AAhD8B;AAAW;AA1FE;AAAb;AAElC;AACA;AACA;AAEA,WAAM;AACD;AACH,UADG,IACH,+CAAU,KAAM,+BAAhB;AAGF,gBAAK,KAAL;AACA,qBAAU,+BAAK,CAAC,CAAC,MAAO,CAAC,KAAM,CAAC,MAAO,CAAC,OAAzB,CAAf;AACA,UAAG,mBAAH;AAEE,YAAG,kBAAa,KAAG,+CAAnB;AAEE,qBAAM,sBAAN;AACK;AACH,cADG,KACH;AAEO;AACH,gBADG,KACH;AAAU,6BAAU,+BAAK,CAAC,MAAM,KAAM,GAAE,CAAF,CAAK,MAAM,IAAK,GAAE,CAAF,CAAK,MAAM,KAAU,GAAF,CAAF,GAAM,EAAF,CAAM,MAAM,OAAQ,GAAE,CAAxE,CAAf;AACV,sBAFG,KAEH,0DAAW,eAAU,+BAAK,CAAC,MAAM,KAAM,GAAE,CAAF,CAAK,MAAM,IAAK,GAAE,CAAF,CAAK,MAAM,KAAU,GAAF,CAAF,GAAM,EAAF,CAAM,EAAE,IAAK,GAAE,CAAjE,CAAf,CAAX;WAGJ,UARG,KAQH;AAEO;AACH,gBADG,KACH;AAAU,6BAAU,+BAAK,CAAC,MAAM,KAAM,GAAE,CAAF,CAAK,MAAM,IAAK,GAAE,CAAF,CAAK,EAAE,KAAM,GAAE,CAAF,CAAK,MAAM,IAAS,GAAF,CAAF,GAAM,EAAhE,CAAf;AACV,sBAFG,KAEH,0DAAW,eAAU,+BAAK,CAAC,MAAM,KAAM,GAAE,CAAF,CAAK,MAAM,IAAK,GAAE,CAAF,CAAK,CAAC,MAAO,GAAE,CAAF,CAAK,MAAM,IAAS,GAAF,CAAF,GAAM,EAAhE,CAAf,CAAX;WAJJ;SASC,UAAG,CAAI,iBAAY,IAAS,CAAL,cAAK,KAAE,EAAF,CAA5B;AAEH,yBAAU,+BAAK,CAAC,CAAC,KAAM,GAAE,CAAF,CAAK,CAAC,IAAK,GAAE,CAAF,CAAK,CAAC,MAAO,GAAE,CAAF,CAAK,CAAC,OAAQ,GAAE,CAAhD,CAAf;AACA,cAAO,CAAH,EAAG,KAAG,CAAC,CAAJ,CAAO,IAAI,CAAI,2BAAtB;AAEE,kBAAM,KAAN,GAAe,UAAK,CAAC,CAAC,KAAM,GAA4B,CAAN,CAAlB,CAAC,MAAiB,GAAR,CAAC,KAAH,GAAY,EAAF,CAAM,GAAE,CAAF,CAApC;AACpB,kBAAM,IAAN,GAAc,UAAK,CAAC,CAAC,IAAK,GAA4B,CAAN,CAAlB,CAAC,OAAiB,GAAP,CAAC,IAAH,GAAW,EAAF,CAAM,GAAE,CAAF,CAAnC;AACnB,kBAAM,MAAN,GAAgB,MAAM,KAAM,GAAE,EAAF;AAC5B,kBAAM,OAAN,GAAiB,MAAM,IAAK,GAAE,EAAF;WAL9B;SAQG,UAAG,iBAAY,IAAI,CAAU,CAAL,cAAK,KAAE,EAAF,CAA7B;AAEE;AACH,cADG,KACH;AAAS,2BAAU,+BAAK,CAAC,CAAC,KAAM,GAAE,CAAF,CAAK,CAAC,IAAK,GAAE,CAAF,CAAK,CAAC,KAAU,GAAF,CAAF,GAAM,EAAF,CAAM,CAAC,OAAQ,GAAE,CAApD,CAAf;AACT,oBAFG,KAEH,qDAAQ,eAAU,+BAAK,CAAC,CAAC,KAAM,GAAE,CAAF,CAAK,CAAC,IAAK,GAAE,CAAF,CAAK,CAAC,MAAO,GAAE,CAAF,CAAK,CAAC,IAAS,GAAF,CAAF,GAAM,EAAjD,CAAf,CAAR;SAJC;OAjCP;AAbkC;AAAa;AALA;AAAb;AAElC,qBAAoB,yDAApB;AAFkC;AAAa;AArPF;AAAX;AAElC,eAAU,kBAAa,KAAG,+CAAH;AAFW;AAAW;AAgZJ;AAEzC;AAFyC;AA7ZA;AAEzC;AACA,UAAa,+BAAH,eAAP,MAAO,CAAV;AAEE,6BAAyB,OAAP,OAAU,+BAAH,CAA8B;AACvD,iCAA6B,OAAP,OAAU,+BAAH,CAA8B;AAC3D,oCAAgC,OAAP,OAAU,+BAAH,CAA8B;AAC9D,uBAAmB,OAAP,OAAU,+BAAH,CAA8B;AACjD;OANF;AAHyC;AAwBE;AAE3C;AAEA;AACA,qBAAW;AACX,+BAAqB;AACrB,6BAAmB,6BAAsB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,0BAAe,WAAC,CAAW,KAAX;AAChB,0BAAe,QAAC,CAAQ,EAAR;AAChB,0BAAe,SAAf,GAA2B;AAC3B,0BAAe,WAAC,CAAW,KAAX;AAChB,0BAAe,SAAC,CAAS,EAAT;AAChB,0BAAe,YAAW,WAAC,CAAW,cAAC,mEAAY,qEAAb,CAAX;AAK3B,0BAAe,SAAC,CAAS,qCAAT;AAEhB,0BAAe,QAAf,GAA0B;AAK1B,YAAO;AAGP,0BAAe,SAAQ,wBAAsB,CAAC,IAAK,sC1B58H2C,G0B48HjD;AAC7C,0BAAe,iBAAgB,wBAAsB,CAAC,IAAK,sC1B78HmC,G0B68HzC;AACrD,0BAAe,cAAa,wBAAsB,CAAC,IAAK,sC1B98HsC,G0B88H5C;AA9Bc;AAArB;AAiCA;AAE3B,eAAhB,KAAgB;AAChB;AAH2C;AA2Qe;AAAxB;AAElC,eAAU;AAFwB;AAAwB;AAqGH;AAEvD;AACA,UAAY,oBAAD,QAAX;AAEE,4BAAe,YAAW,mBAAC,CAAmB,gBAAU,iBAA7B;AAC3B,4BAAe,YAAW,aAAY,OAAO,CAAC,gBAAU,aAAX;AAC7C,4BAAe,YAAW,YAAW,OAAO,CAAC,gBAAU,YAAX;AAC5C,4BAAe,YAAW,cAAa,OAAO,CAAC,gBAAU,cAAX;AAC9C,4BAAe,YAAW,WAAU,OAAO,CAAC,gBAAU,WAAX;AAC3C,4BAAe,YAAW,aAAY,OAAO,CAAC,gBAAU,aAAX;AAC7C,4BAAe,YAAW,UAAS,OAAO,CAAC,gBAAU,UAAX;AAC1C,4BAAe,YAAW,YAAW,OAAO,CAAC,gBAAU,YAAX;AAC5C,4BAAe,YAAW,cAAa,OAAO,CAAC,gBAAU,cAAX;AAC9C,4BAAe,YAAW,gBAAe,OAAO,CAAC,gBAAU,gBAAX;AAChD,4BAAe,YAAW,aAAC,CAAa,gBAAU,WAAvB;AAC3B,4BAAe,MAAK,OAAO,CAAC,UAAD;AAC3B,4BAAe,QAAO,OAAO,CAAC,YAAD;OAd/B;AAHuD;AAqBE;AAEzD;AACA,UAAY,oBAAD,QAAX;AAEE,4BAAe,YAAW,mBAAC,CAAmB,gBAAU,iBAA7B;AAC3B,4BAAe,YAAW,aAAY,OAAO,CAAC,gBAAU,aAAX;AAC7C,4BAAe,YAAW,YAAW,OAAO,CAAC,gBAAU,YAAX;AAC5C,4BAAe,YAAW,cAAa,OAAO,CAAC,gBAAU,cAAX;AAC9C,4BAAe,YAAW,WAAU,OAAO,CAAC,gBAAU,WAAX;AAC3C,4BAAe,YAAW,aAAY,OAAO,CAAC,gBAAU,aAAX;AAC7C,4BAAe,YAAW,UAAS,OAAO,CAAC,gBAAU,UAAX;AAC1C,4BAAe,YAAW,YAAW,OAAO,CAAC,gBAAU,YAAX;AAC5C,4BAAe,YAAW,cAAa,OAAO,CAAC,gBAAU,cAAX;AAC9C,4BAAe,YAAW,gBAAe,OAAO,CAAC,gBAAU,gBAAX;AAChD,4BAAe,YAAW,aAAC,CAAa,gBAAU,WAAvB;AAC3B,4BAAe,MAAK,OAAO,CAAC,UAAD;AAC3B,4BAAe,QAAO,OAAO,CAAC,YAAD;OAd/B;AAHyD;AAtkJ/B;;;;;;;;AAuCN,+BAAO,UvGwBjB,+BuGxBiB,CAAP;AAvCM;AA8Ca;;;AAErC;AACA;AACA;AAJqC;;;;;;;AA4rLkB;AAGzD,kBAAO,OAAO,CAAC,KAAD;AAH2C;AANK;AAG9D,uBAAY,OAAO,CAAC,KAAD;AAH2C;AAYD;AAG7D,iBAAM;AAHuD;AAxCP;AAEtD,UAAa,4CAAH,eAAP,MAAO,CAAV;AAEE,oBAAM,OAAO,CAAS,OAAP,OAAU,4CAAH,CAA2C,QAApD;AACb,yBAAW,OAAO,CAAS,OAAP,OAAU,4CAAH,CAA2C,aAApD;OAGlB;AARoD;AAWE;AAGxD,oBAAU;AACV,qBAAW,uDAAqB,QAAC,YAAM,CAAC,qEAAU,OAAX,CAAN;AACjC,kBAAO,WAAP,GAAsB;AACtB,0BAAgB,uDAAqB,QAAC,YAAM,CAAC,qEAAU,QAAX,CAAN;AACtC,uBAAY,WAAZ,GAA2B;AANY;AADiB;AAUA;AAE3C,eAAb,KAAa;AACL,eAAR,KAAQ;AACR;AAJwD;AA/qLjB;AAanB,+BAAO,UAUE,2CAVF,CAAP;AAbmB;AAiBN;;AAEhB,8BzBkWI,iEyBlWJ;AACK,mCzBiWD,iEyBjWC;AAHW;AAMJ;;;AAE3B;AAF2B;;;;;AA4xKsB;AAGnD,sBAAW,OAAO,CAAC,KAAD;AAHiC;AAMF;AAEjD;AAEA;AACK;AACH,UADG,IACH;AAAU,YAAK;AACf,gBAFG,IAEH;AAAS,YAAK;;AAEZ,YAAK;;AAGT,UAAG,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAlB;AAME,sBAAS,CAAC,eAAM,cAAK,gBAAO,UAAK,CAAC,gBAAO,GAAE,CAAV,CAAxB;OANX;AAZiD;AAtDL;AAE5C;AACA,UAAa,kCAAH,eAAP,MAAO,CAAV;AAEE,wBAAW,OAAO,CAAS,OAAP,OAAU,kCAAH,CAAiC,YAA1C;AAClB;OAHF;AAH4C;AAUE;AAE9C;AAKA,oBAAS,CAAT;AAEA,qBAAU,EAAV;AACA,yBAAe,sCAAiC,QAAC,YAAM,CAAC,IAAD,CAAN;AAVkB;AAArB;AAaA;AAElC,eAAZ,KAAY;AACZ;AAH8C;AAMJ;AAE1C;AACA;AAEA;AACA,gBAAK,mBAAL;AAKA,iBAAM,gCAAM,CAAC,CAAC,MAAO,CAAC,IAAV,CAAZ;AAEA,eAAS,QAAO,OAAO,CAAC,gBAAU,QAAX;AACvB,eAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,EAAE,GAAI,CAAC,IAAR,GAAqB,yCAAN,gCAAM,CAAC,EAAE,GAAI,CAAC,OAAR,GvBtnL2E,+EAAyE,8EuBsnLhL;AAClB,eAAS,QAAO,OAAO,CAAC,gBAAU,aAAX;AACvB,eAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,EAAE,EAAG,GAAE,CAAF,CAAK,CAAC,IAAZ,GAAyB,yCAAN,gCAAM,CAAC,EAAE,EAAG,GAAE,CAAF,CAAK,CAAC,OAAZ,GvBxnLuE,+EAAyE,8EuBwnLhL;AAhBwB;AAzwKb;;;;;;;AAST,+BAAO,UvGfjB,+BuGeiB,CAAP;AATS;AAiBT;AAmnO+B;AAEnD;AACA,+BAAa,CAAC,yBAAD;AAHsC;AAnnO/B;;;;;;;;AAeL,4BzB8MI,+DyB9MJ;AACe;AACF;AACL,oCA5JS,+CA4JT;AACI,wCA5JS,mDA4JT;AACF;AACD;AACE,uCnG1UlB,yCmG0UkB;AACC,wCnGlaf,6CmGkae;AACN,kCnGnaT,6CmGmaS;AACK,uCnGpad,6CmGoac;AACX;AACK;AACE;AACA;AACG,sClG5OnB,uCkG4OmB;AACD,qClG7OlB,uCkG6OkB;AACI,yClG9OtB,uCkG8OsB;AACI;AACF,2CzB7DN,oEyB6DM;AACF,yCzB9DJ,oEyB8DI;AACT,gCzB9DQ,uEyB8DR;AACD,+B1BoGE,wD0BpGF;AACW,0C1BmGT,wD0BnGS;AACZ,8BAjYS,yCAiYT;AACO,qCAlYE,yCAkYF;AACA,qCAnYE,yCAmYF;AACA,qCApYE,yCAoYF;AACC,sCAvYS,iDAuYT;AACC,uC1B6FN,wD0B7FM;AACH,oC1B4FH,wD0B5FG;AACc,kD1B2FjB,wD0B3FiB;AACH,+C1B0Fd,wD0B1Fc;AACV;AACE,uCtB7hBJ,oEsB6hBI;AACL;AACI;AACO;AACI;AACpB,6BA3bU,yCA2bV;AACM;AACD,kCAzeS,6CAyeT;AACE;AAzDH;;AA4DK,oDA5DL,gDA4DK;AAKF;AA0jO+B;AAEtD;AACA,+BAAa,CAAC,4BAAD;AAHyC;AA1jO/B;;;;;;;AAIP,6BA1cU,yCA0cV;AACM;AACD,kCA9FY,gDA8FZ;AANE;;AASK,uDATL,mDASK;AAEQ,2FAAmB,UhHpiBhD,2BgHoiBgD,EAAqB,0BAAxC;AAEN;;;AAE5B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAV4B;;;;;;;;;;AAq1N4B;AAApB;AAEtC,eAAU;AAF4B;AAAoB;AAuMC;AAG3D,wBAAc;AACd;AAJ2D;AA9MN;AAAf;AAEtC,eAAU;AACV,UAAW,CAAC,WAAD,SAA+B,IAAN,CAAX,eAAW,IAAG,CAAH,CAAhB,IAAsC,CAAX,eAAW,IAAgB,CAAb,WAAM,SAAC,EAAM,GAAE,CAAF,CAAhB,CAA1D,EACE,SAAU,WAAM,KAAC,eAAD,CADlB;AAHsC;AAAe;AAwMC;AAEtD,wBAAc,WAAM,QAAQ,CAAC,KAAD;AAC5B;AAHsD;AALP;AAE/C,iBAAM,OAAO,CAAC,KAAD;AAFkC;AApBG;AAElD,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb,YAAY,UAAD,QAAX;AAEE,cAAG,cAAH;AAEE,sBAAK,UAAC,CAAU,IAAV;WAGA,MAAN,UAAK,UAAC,CAAU,IAAV;AAER,oBAAK,WAAC,CAAW,cAAX;SATR;AAWA;OAdF;AAFkD;AA3SG;AAErD;AAFqD;AALF;AAAb;AAEtC,eAAU,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAmB,IAAI,CAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAArB;AAFN;AAAa;AA6IN;AAAP;AAEtC,UAAG,cAAH;AACE,iBAAU,UAAK,QAAC;AAEhB,qBAAU;AAL0B;AAAO;AAlBW;AAExD,gBAAK;AACL,iBAAM,WAAC,CAAW,KAAX;AAHiD;AAPP;AAEjD,2BAAgB,UAAK,QAAC,EAAtB;AACA,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,IAAD,CADd;AAHiD;AAiCK;AAGtD;AACA,UAAS,UAAN,MAAS,EAAH,CAAT,EACE,MADF;AAGA,UAAG,cAAS,IAAI,UAAK,YAArB;AAEO;AACH,YADG,IACH;AAEE,cAAG,CAAW,CAAN,+BAAM,IAAG,KAAH,CAAd,EACE,eADF;SAFF;OAHJ;AAPsD;AAmBA;AAKtD,wBAAa,OAAM;AACnB,wBAAa,OAAM,OAAO,CAAC,WAAD;AAC1B,wBAAa,aAAC,CAAa,eAAb;AAPwC;AAuHM;AAE5D;AAGA,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,YAAG,sCAAY,WAAW,CAAC,MAAO,GAAE,GAAF,CAAO,WAAK,KAAC,CAAD,EAAK,KAAzB,CAA1B;AAEE,4BAAc;AACd;AACA;AACA;SALF;;AAP0D;AAlBG;AAG/D;AAEA;AACA,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,YAAG,sCAAY,WAAW,CAAC,UAAW,GAAE,GAAF,CAAO,WAAK,KAAC,CAAD,EAAK,KAA7B,CAA1B;AAEE,4BAAc;AACd;AACA;AACA;SALF;;AAR6D;AAxCR;AAEvD;AACA,wBAAc;AACd;AACA;AALuD;AAQD;AAEtD;AACA,wBAAc,WAAM,SAAC,EAAM,GAAE,CAAF;AAC3B;AACA;AALsD;AAQA;AAEtD;AACA,UAAG,eAAW,KAAE,CAAC,CAAjB;AACE,0BAAc;AAEd,8BAAc,QAAG,CAAC,WAAM,SAAC,EAAM,GAAE,CAAF,CAAK,eAAW,GAAE,CAAhC;AAEnB;AACA;AATsD;AAYI;AAE1D;AACA,UAAG,eAAW,KAAE,CAAC,CAAjB;AACE,0BAAc;AAEd,8BAAc,QAAG,CAAC,EAAG,eAAW,GAAE,CAAjB;AAEnB;AACA;AAT0D;AA9DV;AAGhD,UAAQ,CAAJ,SAAI,KAAE,EAAF,CAAc,IAAQ,CAAJ,SAAI,KAAE,EAAF,CAA9B;AAEE,0BAAc,kBAAa,aAAC;AAC5B,YAAG,sBAAH,EACE,eADF;AAGA;AACA;OAPF;AAUA,2BAAiB;AAb+B;AAVE;AAGlD,2BAAiB;AAHiC;AA8BC;AAGnD,UAAG,kBAAH,EACE,MADF;AAGA,wBAAc,kBAAa,aAAC;AAC5B,UAAG,sBAAH,EACE,eADF;AAGA;AACA;AAXmD;AAxIE;AAErD,UAAW,CAAC,UAAD,SAA2B,IAAI,UAAK,kBAA/C;AAEE,kBAAK,QAAC,CAAQ,sBAAR;AACN,kBAAK,YAAC,CAAmB,UAAK,QAAC,EAAP,OAAlB;OAHR;AAMA,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,2BAAP,CADhB;AARqD;AANP;AAE9C;AACA,iBAAM,WAAC,CAAW,cAAX;AAHuC;AA3DC;AAE/C;AACA,oBAAU,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACjB,iBAAM,YAAC,CAAY,CAAZ;AACP,iBAAM,SAAN,GAAkB;AAClB,iBAAM,WAAC,CAAW,KAAX;AAEP,mBAAS,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AACf,gBAAK,WAAC,CAAW,IAAX;AAON,gBAAK,SAAC,CAAS,sCAAT;AACN,gBAAK,UAAL,GAAmB;AAGnB,oBAAS,GAAT;AACA,qBAAU,EAAV;AACA,kCAAuB,qEAAvB;AACA,wBAAc,CAAC;AAEf,2BAAiB,+BAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1B,wBAAa,SAAC,CAAS,GAAT;AACd,wBAAa,UAAC,CAAU,GAAV;AASd,wBAAa,MAAK,UAAC,CAAU,CAAC,EAAX;AACnB,wBAAa,SAAC,CAAS,sCAAT;AACd,wBAAa,SAAb,GAAyB;AAGzB,wBAAa,SAAb,GAA0B;AAC1B,wBAAa,WAAb,GAA4B;AAE5B,8BAAmB,kBAAnB;AACA,2BAAgB,uDAAhB;AACA,4BAAiB,kBAAa,SAAC,EAA/B;AACA,6BAAkB,kBAAa,UAAC,EAAhC;AAEA,oBAAU,uBAAW,QAAC;AAjD8C;AAArB;AA6EJ;AAG3C,UAAG,CAAI,cAAP,EACE,2DADF;AAH2C;AAzBI;AAExC,eAAP,KAAO;AACA,eAAP,KAAO;AACP;AAJ+C;AAgCA;AAE/C;AACA,UAAG,CAAY,CAAC,WAAD,SAAf,EACE,MADF;AAQA,UAAG,WAAM,QAAQ,IAAY,CAAC,kBAAD,SAA7B;AAEE,0BAAa,aAAC,CAAa,CAAC,CAAd;AACd,0BAAa,aAAC,CAAa,2BAAb;OAHhB;AAX+C;AA/yNjB;;;;;;;;AAoDV,+BAAO,UvGzJjB,+BuGyJiB,CAAP;AApDU;AA6DN;;;;;;;;;AAEC,sCAjEW,mDAiEX;AACG;AACZ,6BvGxWL,iCuGwWK;AACG;AACI,oCnG5hBX,6CmG4hBW;AANC;;AASoB,mGAAmB,UhH5mBxD,2BgH4mBwD,EAAoB,wBAAvC;AAEf,wDAXL,oDAWK;AAKD;;;AAE1B;AAF0B;;;;;AA0qM2B;AAAnB;AAEpC,eAAU;AAF0B;AAAmB;AAWC;AAExD,2BAAgB,KAAhB;AAFwD;AANG;AAE3D;AACA,+BAAa,CAAC,iCAAD;AAH8C;AAZR;AAEnD;AACA,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,0BAAP,CADpB;AAHmD;AAVN;AAE7C;AACA,kCAAuB;AACvB,4CAAY,SAAS,CAAC,WAAD;AAJ6C;AAArB;AAzpMjB;;;;;;;;AASR,+BAAO,UvG3LjB,+BuG2LiB,CAAP;AAKS,0CArBe,2DAqBf;AACF;AACR;AACI,oCnGvjBX,6CmGujBW;AAjBK;;AAoBgB,mGAAmB,UhHvoBxD,2BgHuoBwD,EAAoB,wBAAvC;AAEX,4DAtBL,wDAsBK;AAKL;;;AAE1B;AAF0B;;;;;AA8rM2B;AAAnB;AAEpC;AAEA,eAAU,CAAC;AACX,UAAK;AACL,UAAG,CAAE,KAAG,EAAR,EACE,SAAU,uBAAU,CAAC,sBAAD,CADtB;AANoC;AAAmB;AAgBC;AAExD,2BAAgB,uBAAU,CAAC,KAAD,CAA1B;AAFwD;AANG;AAE3D;AACA,+BAAa,CAAC,iCAAD;AAH8C;AAjBR;AAEnD;AACA,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,0BAAP,CADpB;AAHmD;AAtBN;AAE7C;AACA,kCAAuB;AACvB,iBAAM,IAAI,CAAC,GAAD;AACV,iBAAM,IAAI,CAAC,GAAD;AACV,iBAAM,IAAI,CAAC,IAAD;AACV,iBAAM,IAAI,CAAC,IAAD;AACV,iBAAM,IAAI,CAAC,IAAD;AACV,iBAAM,IAAI,CAAC,IAAD;AACV,iBAAM,IAAI,CAAC,IAAD;AACV,iBAAM,IAAI,CAAC,IAAD;AACV,iBAAM,IAAI,CAAC,IAAD;AACV,iBAAM,IAAI,CAAC,IAAD;AACV,iBAAM,IAAI,CAAC,IAAD;AACV,iBAAM,IAAI,CAAC,IAAD;AACV,iBAAM,IAAI,CAAC,IAAD;AACV,iBAAM,IAAI,CAAC,IAAD;AACV,iBAAM,IAAI,CAAC,IAAD;AACV,iBAAM,IAAI,CAAC,IAAD;AAnBwD;AAArB;AAjqMjB;;;;;;;;AASR,+BAAO,UvGtNjB,+BuGsNiB,CAAP;AAKS,0CArBe,2DAqBf;AACF;AACR;AACI,oCnGllBX,6CmGklBW;AAjBK;;AAoBU,6FAAmB,UhHlqBlD,2BgHkqBkD,EAAiB,UlGxZpE,sCkGwZoE,CAApC;AAEL,4DAtBL,wDAsBK;AAKR;;;AAEvB;AACA;AAHuB;;;;;;AAyyMwB;AAAhB;AAEjC,eAAU,mBAAc,iBAAC;AAFQ;AAAgB;AAmCC;AAElD,yBAAc,iBAAC,CAAiB,KAAjB;AACf;AAHkD;AA9BG;AAApB;AAEjC,eAAU,mBAAc;AAFS;AAAoB;AAoCC;AAEtD,yBAAc,qBAAC,CAAqB,KAArB;AACf;AAHsD;AA9Cb;AAAR;AAEjC,eAAU,mBAAc,SAAC;AAFQ;AAAQ;AAkCC;AAG1C,yBAAc,SAAC,EAAK,OAAO,CAAC,KAAD;AAHe;AAnBc;AAExD;AACA,+BAAa,CAAC,8BAAD;AAH2C;AAYP;AAEjD;AACA,UAAY,mBAAD,QAAX,EACE,mBAAc,gBAAC,CAAgB,sBAAhB,CADjB;AAHiD;AAjFN;AAG3C;AACA;AACA;AAAG;AACH;AAEA,gBAAK,KAAL;AAEA,iBAAY,UAAK,CAAC,QAAG,CAAC,sBAAe,CAAC,GAAD,EAAO,gBAAU,UAAU,GAAE,CAA7C,CAAJ;AAEjB,6CAAa,CAAC,EAAG,CAAC,SAAU,CAAC,QAAhB;AACb,8CAAY,CAAC,EAAG,sBAAe,CAAC,GAAD,EAAO,sBAAe,CAAC,GAAD,CAAzC;AACZ,WAAM,SAAS,WvBhsN6B;AuBisN5C;AACE,iBAAS,SAAS,CAAC,0CAAD;AAClB,iBAAS,QAAO,QAAC,CAAQ,mEAAR;AACjB,iBAAS,MAAK,QAAC,CAAQ,kEAAR;AACf,iBAAS,QAAO,SAAC,CAAS,CAAT;AACjB,iBAAS,MAAK,SAAC,CAAS,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAA1B;AACf,iBAAS,gBAAc,CAAC,2CvBtzNqE,6EuBszNtE;AACvB,iBAAS,MAAK,SAAC,CAAS,mDAAiB,CAAC,IAAM,IAAM,GAAb,CAA1B;AACf,iBAAS,QAAmC,OAA9B,gBAAK,CAAU,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAtB,CAAyB,GAAE,CAAF,kBAA5C;AAAI;AACF,mBAAS,SAAmC,QAA9B,gBAAK,CAAW,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,CAAtB,CAAyB,GAAE,CAAF,qBAA5C;AAAI;AACF,gBAAG,cAAG,CAAC,CAAE,GAAE,CAAL,CAAN,EACE,SAAS,gBAAc,CAAM,wCAAL,+BAAK,CAAC,CAAE,GAAE,CAAF,CAAK,CAAE,GAAE,CAAF,CAAQ,CAAF,CAAE,GAAE,CAAF,CAAK,GAAE,CAAF,CAAQ,CAAF,CAAE,GAAE,CAAF,CAAK,GAAE,CAAtC,GAA0C,wEAAhD,CADzB;;;AAGJ,iBAAS,MAAK,QAAC,CAAQ,kEAAR;AACf,iBAAS,MAAK,SAAC,CAAS,MAAT;AACf,iBAAS,QAAO,SAAC,CAAS,CAAT;AACjB,iBAAS,QAAO,QAAC,CAAQ,oEAAR;AACjB,iBAAS,gBAAc,CAAC,2CvBj0NqE,6EuBi0NtE;AAjBzB;AAmBE,iBAAS,aAAa,CAAC,GvB71NyD,KuB61N1D;AAnBxB;AAf2C;AA1CI;AAG/C,UAAG,sBAAiB,IAAI,CAAI,kBAA5B,EACE,oBADF;AAEA,0BAAe,CAAC,MAAD;AACf;AAN+C;AAoCE;AAEjD,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,MAAP,CADjB;AAFiD;AAzCH;AAAb;AAEjC,eAAU,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAmB,IAAI,CAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAArB;AAFX;AAAa;AAmBJ;AAE1C;AACA,oBAAS,EAAT;AACA,qBAAU,EAAV;AACA,kCAAuB;AACvB,4BAAkB,sDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,yBAAc,YAAW,qBAAC,CAAqB,CAArB;AAC1B,yBAAc,YAAW,mBAAC,CAAmB,CAAnB;AAC1B,yBAAc,QAAC,CAAQ,4EAAR;AACf,yBAAc,SAAC,CAAS,GAAT;AACf,yBAAc,UAAC,CAAU,GAAV;AACf,yBAAc,QAAd,GAAyB;AACzB,yBAAc,iBAAC,CAAiB,CAAjB;AACf,yBAAc,iBAAd,GAAkC;AAElC,8BAAmB,mBAAnB;AACA,4BAAiB,mBAAc,SAAC,EAAhC;AACA,6BAAkB,mBAAc,UAAC,EAAjC;AACA,2BAAgB,uDAAhB;AAnB+D;AAArB;AAxBE;AAAX;AAEjC,eAAU,mBAAc;AAFS;AAAW;AAmBE;AAAb;AAEjC,eAAU;AAFuB;AAAa;AA4GR;AAEtC;AACA,4BAAiB,CAAC,UAAW,8CAAZ;AAHqB;AArCa;AAGnD;AACA;AACA;AAEA,WAAM;AACN,UAAY,EAAD,QAAX;AAEE,kBAAK,+BAAK,CAAC,EAAG,EAAG,eAAM,GAAE,EAAE,SAAC,EAAL,CAAY,gBAAzB,CAAV;AACA,YAAK;AACL,sBAAS,CAAC,EAAG,2CAAG,SAAP;OAJX;AARmD;AApxM1B;;;;;;;;AAkBL,+BAAO,UvG1PjB,+BuG0PiB,CAAP;AAMM,uCA/BY,qDA+BZ;AACF,qClGxblB,uCkGwbkB;AACI;AACZ,6BFxuBS,qEEwuBT;AACW;AA5BF;;AA+Be,+FAAmB,UhHxsBpD,2BgHwsBoD,EAAkB,W1BxRhE,gD0BwRgE,CAArC;AAEV,yDAjCL,qDAiCK;AAKJ;;;AAExB;AACA;AAHwB;;;;;;AAq4MyB;AAAjB;AAElC,eAAU,oBAAe,kBAAC;AAFQ;AAAiB;AAKG;AAApB;AAElC,eAAU,oBAAe;AAFS;AAAoB;AAiCC;AAEvD,0BAAe,qBAAC,CAAqB,KAArB;AAChB,mBAAO;AACP,2BAAe;AACf,wBAAY;AACZ,mBAAO,UAAU,CAAC,yB1B7gN0C,G0B6gN3C;AACjB,2BAAe,UAAU,CAAC,yB1B9gNkC,G0B8gNnC;AACzB,wBAAY,UAAU,CAAC,yB1B/gNqC,G0B+gNtC;AACtB;AATuD;AA3Cb;AAAR;AAElC,eAAU,oBAAe,SAAC;AAFQ;AAAQ;AAoCC;AAG3C,UAAY,oBAAD,QAAX,EACE,oBAAe,SAAC,EAAK,OAAO,CAAC,KAAD,CAD9B;AAH2C;AARU;AAGrD;AACA,UAAY,oBAAD,QAAX,EACE,oBAAe,mBAAC,CAAmB,KAAnB,CADlB;AAJqD;AAlDN;AAAb;AAElC;AACA;AAEA,gBAAK,KAAL;AACA,qBAAU,+BAAK,CAAC,CAAC,MAAO,CAAC,KAAM,CAAC,OAAQ,CAAC,OAA1B,CAAf;AACA,UAAG,mBAAH;AAEE,YAAG,kBAAa,KAAG,+CAAnB;AAEE,qBAAM,sBAAN;AACK;AACH,cADG,IACH;AAAU,2BAAU,+BAAK,CAAC,MAAM,KAAM,GAAE,CAAF,CAAK,MAAM,IAAK,GAAE,CAAF,CAAK,EAAE,KAAM,GAAE,CAAF,CAAK,MAAM,OAAQ,GAAE,CAA/D,CAAf;AACV,oBAFG,IAEH,0DAAW,eAAU,+BAAK,CAAC,MAAM,KAAM,GAAE,CAAF,CAAK,MAAM,IAAK,GAAE,CAAF,CAAK,MAAM,MAAO,GAAE,CAAF,CAAK,EAAE,IAAK,GAAE,CAA7D,CAAf,CAAX;SAIF,qBAAU,+BAAK,CAAC,MAAM,KAAM,GAAE,CAAF,CAAK,MAAM,IAAK,GAAE,CAAF,CAAK,MAAM,MAAO,GAAE,CAAF,CAAK,MAAM,OAAQ,GAAE,CAApE,CAAf;OAXJ;AAPkC;AAAa;AA7BA;AAAb;AAElC,eAAU,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAmB,IAAI,CAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAArB;AAFV;AAAa;AAkEU;AAEzD;AACA,+BAAa,CAAC,+BAAD;AAH4C;AAMP;AAElD;AACA,UAAY,oBAAD,QAAX,EACE,oBAAe,gBAAC,CAAgB,sBAAhB,CADlB;AAHkD;AAvFD;AAGjD,mBAAO;AACP,2BAAe;AACf,wBAAY;AACZ,mBAAO,UAAU,CAAC,Q1Bh6M0C,G0Bg6M3C;AACjB,2BAAe,UAAU,CAAC,Q1Bj6MkC,G0Bi6MnC;AACzB,wBAAY,UAAU,CAAC,Q1Bl6MqC,G0Bk6MtC;AAEtB,UAAG,sBAAiB,IAAI,CAAI,kBAA5B,EACE,oBADF;AAEA,2BAAgB,CAAC,OAAD;AAZiC;AAsCE;AAEnD,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,OAAP,CADlB;AAFmD;AAlBR;AAE3C;AACA,oBAAS,EAAT;AACA,qBAAU,EAAV;AACA,kCAAuB;AACvB,6BAAmB,wDAAqB,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,0BAAe,YAAW,qBAAC,CAAqB,CAArB;AAC3B,0BAAe,YAAW,mBAAC,CAAmB,CAAnB;AAC3B,0BAAe,QAAf,GAA0B;AAC1B,0BAAe,kBAAf,GAAoC;AAEpC,8BAAmB,oBAAnB;AACA,4BAAiB,oBAAe,SAAC,EAAjC;AACA,6BAAkB,oBAAe,UAAC,EAAlC;AACA,2BAAgB,uDAAhB;AAfgE;AAArB;AAzBE;AAAX;AAElC,eAAU,oBAAe;AAFS;AAAW;AALG;AAAd;AAElC,eAAU;AAFwB;AAAc;AApzMtB;;;;;;;;AAkBN,+BAAO,UvGhSjB,+BuGgSiB,CAAP;AAKO,wCA9Ba,uDA8Bb;AACC;AACZ,6BLtyBU,uEKsyBV;AACW;AA1BD;;AA6BK,0DA7BL,sDA6BK;AAED;;;AAE5B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAZ4B;;;;;;;;;AA8xKgB;AAE9C,gBAAK,OAAO,CAAC,KAAD;AAFkC;AAwCE;AAEhD,kBAAO,OAAO,CAAC,KAAD;AAFkC;AAzBW;AAG3D,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB,mBAAM;OAHR;AAH2D;AA8BF;AAGzD,UAAG,qBAAiB,KAAG,KAAvB;AAEE,gCAAoB;AACpB,mBAAM;OAHR;AAHyD;AAhEP;AAElD,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb,mBAAM;OAHR;AAFkD;AASK;AAGvD,UAAG,mBAAe,KAAG,KAArB;AAEE,8BAAkB;AAClB,mBAAM;OAHR;AAHuD;AAnBQ;AAAzB;AAEtC,eAAU,uBAAkB,KAAG,CAAH;AAFU;AAAyB;AAKF;AAAvB;AAEtC,eAAU,qBAAgB,KAAG,CAAH;AAFY;AAAuB;AA6BV;AAEnD,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd,YAAY,WAAD,QAAX,EACE,WAAM,iBADR;OAHF;AAFmD;AAoBA;AAEnD,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd,mBAAM;OAHR;AAFmD;AASM;AAGzD,2BAAgB,OAAO,CAAC,KAAD;AAHkC;AApEP;AAElD,iBAAM;AAF4C;AAyFE;AAEpD,iBAAM;AAF8C;AArIP;AAE7C,UAAa,mCAAH,eAAP,MAAO,CAAV;AAEE,6BAAgB,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,iBAA3C;AACvB,0BAAsB,OAAP,OAAU,mCAAH,CAAkC;AACxD,kBAAK,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,MAA3C;AACZ,oBAAO,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,QAA3C;AACd,kCAA8B,OAAP,OAAU,mCAAH,CAAkC;AAChE,gCAA4B,OAAP,OAAU,mCAAH,CAAkC;AAC9D,8BAA0B,OAAP,OAAU,mCAAH,CAAkC;AAC5D,yBAAqB,OAAP,OAAU,mCAAH,CAAkC;AACvD,0BAAsB,OAAP,OAAU,mCAAH,CAAkC;OAV1D;AAF6C;AAgBE;AAE/C,oBAAU;AACV,mBAAS,qDAAmB,QAAC;AAC7B,wBAAc;AACd,gCAAsB;AACtB,8BAAoB;AACpB,uBAAa;AACb,4BAAkB;AAClB,mBAAS,qDAAmB,QAAC,YAAM,CAAC,sEAAa,SAAS,mDAAiB,CAAC,IAAK,IAAK,GAAX,EzBv0KmI,GAAqD,EyBu0KhO,CAAN;AAC7B,qBAAW,uDAAqB,QAAC,YAAM,CAAC,qEAAU,OAAX,CAAN;AAEjC,gBAAK,WAAL,GAAoB;AACpB,kBAAO,WAAP,GAAsB;AAEtB,8BAAoB,uDAAqB,QAAC,YAAM,CAAC,qEAAU,QAAX,CAAN;AAC1C,2BAAgB,WAAhB,GAA+B;AAhB+C;AAA/B;AAmBA;AAE9B,eAAjB,KAAiB;AACX,eAAN,KAAM;AACA,eAAN,KAAM;AACE,eAAR,KAAQ;AACR;AAN+C;AAnvKjB;AAsCV,+BAAO,UA6HP,kCA7HO,CAAP;AAtCU;AA0CN;;AAEJ;AACL,4BzBlII,+DyBkIJ;AACE,8BzBSI,iEyBTJ;AACG;AACM,uCzBOL,iEyBPK;AACE;AACF;AACP;AACK,qClGxhBlB,uCkGwhBkB;AAVA;AAaI;;;AAE1B;AACA;AACA;AAJ0B;;;;;;;AAYP;;;AAEnB;AACA;AACA;AACA;AALmB;;;;;;AAw3LiB;AAEtC,qBAAW,uCAAa,QAAC;AAFc;AAAD;AAKA;AAE9B,eAAR,KAAQ;AACR;AAHsC;AA73LjB;AAOD;AAPC;AAWR,wCnGxpBL,sDmGwpBK;AAEqB,yFAAmB,UhH9zB9C,2BgH8zB8C,EAAqB,cvFltBhE,uCuFktBgE,CAAxC;AACI,6FAAmB,UhH/zBlD,2BgH+zBkD,EAAmB,YnG3pBpE,wCmG2pBoE,EAAqB,avF/4BxF,sCuF+4BwF,CAA3D;AACF,2FAAmB,UhHh0BhD,2BgHg0BgD,EAAmB,YnG5pBlE,wCmG4pBkE,EAA4B,8BAAlE;AACF,yFAAmB,UhHj0B9C,2BgHi0B8C,EAAmB,YnG7pBhE,wCmG6pBgE,EAAqB,avFj5BpF,sCuFi5BoF,EAAsC,uCAAjG;AACP,kFAAmB,UhHl0BvC,2BgHk0BuC,EAAmB,YnG9pBzD,wCmG8pByD,EAA8B,gCAApE;AACG,qFAAmB,UhHn0B1C,2BgHm0B0C,EAAkB,sBAArC;AAEC;;;AAE7B;AACA;AACA;AACA;AACA;AACA;AAP6B;;;;;AAq6LsB;AAErD,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf,mBAAM,mBAAmB,WAAC,CAAW,gBAAX;AAC1B,YAAG,gBAAH;AACE,qBAAM,mBAAmB,UAAC,CAAU,WAAV;AAEA,cAA1B,WAAM,mBAAmB,UAAC,CAAU,IAAV;AAE5B,mBAAM;OATR;AAFqD;AAeI;AAGzD,UAAG,oBAAgB,KAAG,KAAtB;AAEE,+BAAmB;OAFrB;AAHyD;AASF;AAEvD,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;OAFnB;AAFuD;AA1CO;AAG9D,UAAG,yBAAqB,KAAG,KAA3B;AAEE,oCAAwB;OAF1B;AAH8D;AASJ;AAG1D,UAAG,qBAAiB,KAAG,KAAvB;AAEE,gCAAoB;OAFtB;AAH0D;AAdI;AAAvB;AAEvC,eAAU,qBAAgB,KAAG,EAAH;AAFa;AAAuB;AA7BhB;AAE9C,UAAa,oCAAH,eAAP,MAAO,CAAV;AAEE,6BAAyB,OAAP,OAAU,oCAAH,CAAmC;AAC5D,+BAA2B,OAAP,OAAU,oCAAH,CAAmC;AAC9D,2BAAuB,OAAP,OAAU,oCAAH,CAAmC;AAC1D,oCAAgC,OAAP,OAAU,oCAAH,CAAmC;AACnE,gCAA4B,OAAP,OAAU,oCAAH,CAAmC;OANjE;AAF8C;AAYE;AAGhD,oBAAU;AACV,2BAAiB;AACjB,yBAAe;AACf,6BAAmB;AACnB,kCAAwB;AACxB,8BAAoB;AAPU;AADkB;AAWA;AAGhD;AAHgD;AAx4LjB;AAsBX,+BAAO,UAsDP,kCAtDO,CAAP;AAtBW;AA0BN;;AAEJ;AACI;AACF;AACO;AACJ;AAND;AAUM;AAyvNe;AAAP;AAGvC,eAA0C,YAAK,CAAC,KAAD;AAHR;AAAO;AAMC;AAErC,kBAAK,CAAC,MAAU,KAAX;AAFgC;AA/vNhB;AAON;AA6vNe;AAAP;AAGjC,eAA+B,cAAW,QAAK,CAAC,KAAD,CAAhB;AAHE;AAAO;AAMC;AAE/B,cAAK,CAAC,MAAU,KAAX;AAF0B;AAnwNhB;AAOP;AAiwNe;AAAP;AAE1B,eAAkB,cAAW,QAAK,CAAC,KAAD,CAAhB;AAFQ;AAAO;AAKC;AAExB,cAAK,CAAC,MAAU,KAAX;AAFmB;AAtwNhB;AAce,wFAAmB,UhHr4B7C,2BgHq4B6C,EAAiB,sBAAgB,qBAApD;AAEd;;;;;;AAkTL;AA3S4B,iGAAmB,UhH94BtD,2BgH84BsD,EAA0B,mBA2SzE,4BA3SyE,CAA7C;AAGtB;;;AAMlB;AACA;AACA;AAAQ;AAAS;AAAuB;AACxC;AAAO;AACP;AACA;AACA;AACA;AAAa;AAAiB;AAC9B;AACA;AAOA;AACA;AACA;AAAc;AACd;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA9EkB;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAsvEsB;AAG1C,sBAAW,OAAO,CAAC,KAAD;AAHwB;AA6RR;AAElC,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAFkC;AA5LO;AAEzC,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd;OAHF;AAFyC;AA3FE;AAG3C,uBAAY,OAAO,CAAC,KAAD;AAHwB;AA2BN;AAErC;AACA;AAEA,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACV,iBAAS,QAAuB,OAAlB,IAAI,iBAAC,EAAa,GAAE,CAAF,kBAAhC;AAAI;AAEF,cAAK,IAAI,YAAS,CAAC,CAAD;AAClB,cAAQ,gCAAH,eAAF,CAAE,CAAL,EACK,OAAF,EAAK,gCAAH,CAA+B,SAAC,CAAS,WAAT,CADrC;;OANJ;AALqC;AAyEK;AAE1C,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf;OAHF;AAF0C;AAkBD;AAEzC,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd;OAHF;AAFyC;AATQ;AAEjD,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB;OAHF;AAFiD;AAjEb;AAEpC,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACT;OAHF;AAFoC;AAllCU;AAAlB;AAE5B,eAAU;AAFkB;AAAkB;AAqqCC;AAG/C;AAEA;AACA;AAEG;AAR4C;AAS/C,gCAAoB;AACpB,iBAAS,QAAuB,OAAlB,IAAI,iBAAC,EAAa,GAAE,CAAF,kBAAhC;AAAI;AAaF,cAAG,uBAAQ,CAAC,iDAAG,6EAAwB;;;;cAA5B,CAAX,EACE,CAAC,mBAAC,CAAmB,KAAnB,CADJ;;AAIF;AA3B+C;AAQ5C;AAFH;AAN+C;;AAgIX;AAEpC,kBAAK,OAAO,CAAC,KAAD;AAFwB;AAKe;AAGnD,UAAG,yBAAqB,KAAG,KAA3B;AAEE,oCAAwB;AACxB;OAHF;AAHmD;AAtMX;AAGxC,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAHwC;AAUS;AAGjD,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB;OAHF;AAHiD;AAUL;AAE5C,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;AACjB;OAHF;AAF4C;AA7BD;AAE3C,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;AAChB;OAHF;AAF2C;AAjkBK;AAApB;AAE5B,eAAU,kBAAa,KAAG,EAAH;AAFK;AAAoB;AA0xBJ;AAE5C,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;AACjB;OAHF;AAF4C;AA3GL;AAEvC,UAAG,aAAS,KAAG,KAAf;AAEE,YAAG,gBAAH;AAEE,0BAAY;AACZ,cAAG,aAAH;AAEE,uCAAuB,iBAAW;AAClC,6BAAW,cAAC,CAAc,KAAd;AACZ,6BAAa;AACb;AACA,0BAAS,UAAK,CAAC,kBAAD,CAAd;;AAIA,0BAAS,UAAK,CAAC,cAAD,CAAd;AACA;AACA,6BAAW,cAAC,CAAc,wBAAd;;AAGd;SAlBF;OAFF;AAFuC;AANG;AAE1C,UAAG,gBAAY,KAAG,KAAlB,EACE,mBAAe,KADjB;AAF0C;AA9qBM;AAApB;AAE5B,eAAU,kBAAa,KAAG,EAAH;AAFK;AAAoB;AA4vBJ;AAE5C,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;AACjB,YAAG,aAAH,EACE,cAAS,UAAK,CAAC,kBAAD,CAAd,CADF;OAHF;AAF4C;AA7CK;AAGjD,6BAAkB,OAAO,CAAC,KAAD;AAHwB;AAeH;AAG9C,0BAAe,OAAO,CAAC,KAAD;AAHwB;AAnuBO;AAAzB;AAE5B,eAAU,uBAAkB,KAAG,EAAH;AAFA;AAAyB;AAyuBJ;AAEjD,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB;OAHF;AAFiD;AASG;AAEpD,UAAG,0BAAsB,KAAG,KAA5B;AAEE,qCAAyB;AACzB;OAHF;AAFoD;AASE;AAGtD,kCAAuB,OAAO,CAAC,KAAD;AAHwB;AA/NP;AAE/C,UAAG,qBAAiB,KAAG,KAAvB;AAEE,gCAAoB;AACpB;OAHF;AAF+C;AASU;AAGzD,qCAA0B,OAAO,CAAC,KAAD;AAHwB;AAMH;AAGtD,kCAAuB,OAAO,CAAC,KAAD;AAHwB;AA+KD;AAErD,UAAG,2BAAuB,KAAG,KAA7B;AAEE,sCAA0B;AAC1B;OAHF;AAFqD;AA5hCd;AAAX;AAE5B;AACA;AAAG;AAEH,WAAM;AACN,UAAG,gBAAU,UAAb;AAEE,YAAG,WAAM,KAAE,uCAAX;AACE,eAAM;AAEN,mBAAM;OALV;AAOA,gBAAK,mBAAL;AACA,gBAAK,+BAAK,CAAC,CAAC,KAAM,GAAE,sBAAe,CAAC,EAAD,CAAjB,CAAuB,CAAC,KAAM,CAAC,OAAQ,CAAC,OAAhD,CAAV;AACA,6CAAa,CAAC,EAAG,oBAAe,CAAC,CAAC,CAAF,EAAM,oBAAe,CAAC,CAAC,CAAF,CAAxC;AAEb,UAAK,kBAAW;AAEhB,qBAAU,+BAAK,CAAC,CAAC,MAAO,CAAC,OAAQ,GAAE,CAAF,CAAK,CAAC,OAAQ,CAAC,OAAjC,CAAf;AAnB4B;AAAW;AA6kCU;AAGjD,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB;OAHF;AAHiD;AAtmCD;AAApB;AAE5B;AAEU,YAAD,sBAAC,YAAQ,uBAAqC,GAAtB,oBAAe,SAAC,EAAlB,GAA0B,CAAhD;AACT,eAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AACF,cAAM,CAAC,CAAD,CAAN,GAAa,gBAAQ,CAAC,CAAD;;AAEvB,eAAS,SAA2B,QAAtB,oBAAe,SAAC,EAAM,GAAE,CAAF,qBAApC;AAAI;AACF,cAAM,CAAC,CAAE,GAAE,uBAAL,CAAN,GAA4B,oBAAe,WAAC,CAAD,CAAG;;AAEhD,YAAM,CAAO,WAAC,MAAD,CAAS,GAAE,CAAlB,CAAN,GAA8B;AAXF;AAAoB;AA1GX;AAAT;AAE5B,eAAU,2CAA+C,GAA3B,0BAAF,GAA+B,sBAAS,CAAC,eAAD,CAAX;AAF7B;AAAS;AA0MC;AAAV;AAE5B,eAAU,4BAAgB,CAAC,EAAS,EAAS,EAAS,CAA5B;AAFE;AAAU;AAvvBO;AAAjB;AAE5B,eAAU;AAFkB;AAAiB;AALD;AAAhB;AAE5B,eAAU;AAFkB;AAAgB;AAuoBS;AAAzB;AAE5B,eAAU;AAFkB;AAAyB;AA3JL;AAApB;AAE5B,eAAU;AAFkB;AAAoB;AAsQC;AAArB;AAE5B,eAAU;AAFkB;AAAqB;AA1NF;AAAnB;AAE5B,eAAU;AAFkB;AAAmB;AA0GD;AAAlB;AAE5B,eAAU;AAFkB;AAAkB;AA3DI;AAAtB;AAE5B,eAAU;AAFkB;AAAsB;AAKA;AAAtB;AAE5B,eAAU;AAFkB;AAAsB;AA2KE;AAAxB;AAE5B,eAAU;AAFkB;AAAwB;AA5Cb;AAAX;AAE5B;AACA;AACA;AAEA,YAAM,GAAN,GAAa;AACb,YAAM,GAAN,GAAa;AACb,UAAG,iBAAY,IAAU,CAAL,UAAK,KAAG,EAAH,CAAzB;AAEE,YAAK,4CAAe,QAAC,sBAAkB,CAAC,EAAG,EAAG,mBvBvwE+E,IuBuwEtF,CAAlB;AACrB,YAAG,CAAI,kBAAP,EACE,CAAC,aADH;AAEA,SAAC,iBAAD,GAAqB;AACrB,SAAC,sBAAD,GAA0B;AAC1B;AACE,eAAM;AACN,cAAG,gBAAU,UAAb;AAEE,gBAAG,WAAM,KAAE,uCAAX;AACE,mBAAM;AAEN,uBAAM;WALV;AAQA,WAAC,MAAK,OAAO,CAAC,YAAD;AAEb,oBAAK,mBAAL;AACA,oBAAK,+BAAK,CAAC,CAAC,KAAM,GAAE,EAAF,CAAM,CAAC,KAAM,CAAC,OAAQ,CAAC,OAA/B,CAAV;AACA,iDAAa,CAAC,EAAG,CAAC,EAAG,CAAC,CAAT;AACb,yBAAU,CAAC,kBAAkB,CAAC,WAAM,2CAAG,mBvBtqEqG,IuBsqE/G,CAA7B;AAfF;AAiBE,cAAG,CAAI,kBAAP,EACE,CAAC,WADH;AAEA,WAAE,eAAF,CAAE;AAnBJ;OAPF;AAR4B;AAAW;AA1HK;AAAhB;AAG5B;AAEA,eAAU;AACV,eAAS,QAA2B,OAAtB,oBAAe,SAAC,EAAM,GAAE,CAAF,kBAApC;AAAI;AAEF,YAAyB,oBAAe,WAAC,CAAD,CAAI,SAAU,KAAE,QAAxD;AAEE,mBAAgC,oBAAe,WAAC,CAAD;AAC/C;SAHF;;AAR0B;AAAgB;AApDC;AAAjB;AAG5B;AAEA,eAAU;AACV,eAAS,QAA4B,OAAvB,qBAAgB,SAAC,EAAM,GAAE,CAAF,kBAArC;AAAI;AAEF,YAAyB,qBAAgB,WAAC,CAAD,CAAI,SAAU,KAAE,QAAzD;AAEE,mBAAgC,qBAAgB,WAAC,CAAD;AAChD;SAHF;;AAR0B;AAAiB;AAoEI;AAArB;AAG5B;AACA;AAEA,YAAO,8BAAyB,QAAC;AACjC,eAAS,QAA2B,OAAtB,oBAAe,SAAC,EAAM,GAAE,CAAF,kBAApC;AAAI;AACF,WAAG,IAAI,CAAC,oBAAe,WAAC,CAAD,CAAhB;;AAOT,eAAU;AACV,eAAS,SAAe,QAAV,GAAG,SAAC,EAAM,GAAE,CAAF,qBAAxB;AAAI;AAEF,YAAyB,GAAG,SAAC,CAAD,CAAI,SAAU,KAAE,QAA5C;AACE;AAEA,cAAI,MAAJ,IAAG;;AAEP,SAAI,eAAJ,GAAI;AAvBwB;AAAqB;AApDC;AAAtB;AAE5B,eAAU,qBAAgB,SAAC;AAFC;AAAsB;AA8HJ;AAAlB;AAE5B;AACA;AAEA,gBAAK,mBAAL;AACA,mBAAQ,yBAAoB,CAAC,0CAAD,CAA5B;AACA,qBAAU,+BAAK,CAAC,CAAC,KAAM,GAAE,CAAF,CAAK,IAAI,OAAQ,GAAE,CAAF,CAAK,CAAC,MAAO,GAAE,CAAF,CAAK,CAAC,OAAQ,GAAE,EAAtD,CAAf;AAP4B;AAAkB;AA1LE;AAApB;AAE5B;AACA;AAEA,gBAAK,KAAL;AACA,qBAAU,+BAAK,CAAC,CAAC,MAAO,CAAC,KAAM,CAAC,OAAQ,CAAC,IAA1B,CAAf;AACA,UAAG,0BAAH;AAEE,aAAM;AACN,YAAG,CAAI,iBAAY,IAAS,CAAL,UAAK,KAAE,EAAF,CAA5B;AAEE,yBAAU,+BAAK,CAAC,CAAC,KAAM,GAAE,CAAF,CAAK,CAAC,IAAK,GAAE,CAAF,CAAK,CAAC,MAAO,GAAE,CAAF,CAAK,CAAC,OAAQ,GAAE,CAAhD,CAAf;AACA,cAAI,EAAG,KAAG,CAAC,CAAX;AAEE,kBAAM,KAAN,GAAe,UAAK,CAAC,CAAC,KAAM,GAA4B,CAAN,CAAlB,CAAC,MAAiB,GAAR,CAAC,KAAH,GAAY,EAAF,CAAM,GAAE,CAAF,CAApC;AACpB,kBAAM,IAAN,GAAc,UAAK,CAAC,CAAC,IAAK,GAA4B,CAAN,CAAlB,CAAC,OAAiB,GAAP,CAAC,IAAH,GAAW,EAAF,CAAM,GAAE,CAAF,CAAnC;AACnB,kBAAM,MAAN,GAAgB,MAAM,KAAM,GAAE,EAAF;AAC5B,kBAAM,OAAN,GAAiB,MAAM,IAAK,GAAE,EAAF;WAL9B;SAQG,UAAG,iBAAY,IAAI,CAAU,CAAL,UAAK,KAAE,EAAF,CAA7B,EACH,eAAU,+BAAK,CAAC,CAAC,KAAM,GAAE,CAAF,CAAK,CAAC,IAAK,GAAE,CAAF,CAAK,CAAC,MAAO,GAAE,CAAF,CAAK,CAAC,IAAK,GAAE,EAA7C,CAAf,CADG;OAdP;AAP4B;AAAoB;AA0BA;AAApB;AAE5B;AAEA,eAAU;AACV,UAAG,2BAAH;AAEE,cAAO,4CAAe,gBAAgB,CAAC,qBAAgB,EAAG,yBAApB;AACtC,YAAW,CAAC,GAAD,SAAM,IAAI,CAAI,uCAAa,CAAC,GAAD,CAAtC,EACE,SAAU,QAAG,CAAC,GAAG,UAAC,GAAQ,GAAG,SAAC,EAAjB,CADf;OAHF;AAL4B;AAAoB;AAsIE;AAAtB;AAE5B,qBAAU,+BAAK,CAAC,eAAM,GAAE,EAAF,CAAM,gBAAO,GAAE,EAAF,CAAM,gBAAO,gBAAjC,CAAf;AACA,UAAG,gBAAU,WAAb;AAEE,cAAM,KAAN,GAAe,MAAM,KAAM,GAAE,gBAAU,iBAAgB,OAA5B;AAC3B,cAAM,MAAN,GAAgB,MAAM,MAAO,GAAE,gBAAU,iBAAgB,OAA5B;OAH/B;AAH4B;AAAsB;AA5Tf;AAAP;AAE5B,eAAoB;AACpB,UAAG,0BAAH,EACE,SAAU,yBAAoB,KAAG,EADnC;AAH4B;AAAO;AAsSM;AAAb;AAE5B,eAAoB;AACpB,UAAG,0BAAH,EACE,SAAU,yBADZ;AAH4B;AAAa;AArrBE;AAE3C;AACA,kBAAI,UAAC,CAAU,sCAAY,UAAU,CAAC,YAAI,SAAS,EAAG,CAAjB,CAAhC;AACL,sBAAU,qBAAC,CAAqB,sCAAY,aAAa,CAAC,gBAAU,oBAAoB,EAAG,CAAlC,CAA9C;AACX,sBAAU,mBAAC,CAAmB,sCAAY,aAAa,CAAC,gBAAU,kBAAkB,EAAG,CAAhC,CAA5C;AACX,2BAAgB,sCAAY,aAAa,CAAC,mBAAc,EAAG,CAAlB,CAAzC;AACA,gCAAqB,sCAAY,aAAa,CAAC,wBAAmB,EAAG,CAAvB,CAA9C;AAP2C;AAyYO;AAElD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,IAAD,CADxB;AAFkD;AAhSG;AAErD;AAFqD;AA0wCQ;AAG7D;AAH6D;AArwCX;AAElD;AAEA,YAAO,4CAAe,gBAAgB,CAAC,qBAAgB,EAAG,yBAApB;AACtC,mCAAgC,CAAC,GAAD,SAAM,IAAI,CAAI,uCAAa,CAAC,GAAD,CAA3D;AACA;AANkD;AAmDQ;AAE1D;AAF0D;AAwtCA;AAG1D;AAH0D;AAn+Cf;AAE3C;AACA;AAEA,eAAS,QAAuB,OAAlB,IAAI,iBAAC,EAAa,GAAE,CAAF,kBAAhC;AAAI;AAEF,YAAK,IAAI,YAAS,CAAC,CAAD;AAMlB,YAAQ,gCAAH,eAAF,CAAE,CAAL,EACK,OAAF,EAAK,gCAAH,CAA+B,YAAW,aAAC,CAAa,gBAAU,WAAvB,CADhD;AAGA,YAAQ,yBAAH,eAAF,CAAE,CAAL,EACK,OAAF,EAAK,yBAAH,CAAwB,YAAW,aAAC,CAAa,gBAAU,WAAvB,CADzC;;AAIF;AApB2C;AAqqDC;AAE5C;AACA;AAH4C;AA9oDL;AAEvC;AAEA;AACA,UAAK;AACL,UAAG,wCAAa,wBAAwB,CAAC;;;;UAAD,CAAxC;AAEE,wBAAU,MAAK,QAAC,CAAQ,kEAAR;AAChB,wBAAU,MAAK,SAAC,CAAS,CAAT;OAHlB;AAMA,UAAG,wCAAa,0BAA0B,CAAC;;;;UAAD,CAA1C;AAEE,wBAAU,MAAK,QAAC,CAAQ,qEAAR;AAChB,wBAAU,MAAK,WAAC,CAAW,CAAX;OAHlB;AAMA,UAAG,wCAAa,sBAAsB,CAAC;;;;UAAD,CAAtC,EACE,YAAI,SAAC,CAAS,CAAT,CADP;AAlBuC;AAk9CS;AAEhD;AACA,sBAAU,iBAAC,CAAiB,QAAjB;AACX,sBAAU,MAAK,SAAC,CAAS,QAAT;AAChB,sBAAU,QAAO,SAAC,CAAS,OAAT;AAClB,sBAAU,MAAK,QAAC,CAAQ,qEAAR;AAChB,sBAAU,QAAO,QAAC,CAAQ,oEAAR;AAClB,sBAAU,MAAK,SAAC,CAAS,QAAT;AAChB,sBAAU,MAAK,WAAC,CAAW,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAA5B;AATgC;AA9OJ;AAG5C;AACA,UAAG,gBAAU,UAAU,IAAI,CAAI,oBAA/B;AAEE,6BAAiB,oCAAU,CAAC,oBAAe,CAAC,IAAD,EAAQ,gCAAM,CAAC,EAAG,CAAJ,CAA9B;AAC3B,qCAAmB,gCAAM,CAAC,EAAG,CAAJ,CAAzB;OAHF;AAMA,UAAG,CAAI,kBAAP;AAEE,YAAG,aAAH;AAEE,uBAAS;AACT;AACA;SAEG,UAAG,qBAAH;AAEH,sCAAwB,oCAAU,CAAC,8BAAwB,gCAAM,CAAC,EAAG,CAAJ,CAA/B;AAClC,cAAG,yBAAH;AAEE;AACA;WAHF;SAHG;OARP;AAmBA,UAAW,CAAC,2BAAD,SAAsB,IAAI,CAAY,CAAP,MAAO,KAAqB,2CAArB,CAAjD,EACE,2BAAmB,CAAC,IAAD,CADrB;AA7B4C;AAiCA;AAE5C;AACA;AAAM;AACN;AACA;AACA;AAEA;AAEA,UAAG,aAAH;AAEE,uBAAW;AACX,sBAAU;AACV,YAAG,WAAO,KAAG,YAAb,EACE,iBADF;OAGG,UAAG,qBAAH;AAEH,sCAA0B;AAC1B,qCAAyB,oCAAU,CAAC,8BAAwB,gCAAM,CAAC,EAAG,CAAJ,CAA/B;AACnC,YAAG,0BAAsB,KAAG,2BAA5B,EACE,iBADF;OAJG;AAQL,UAAG,gBAAU,UAAb;AAEE,YAAG,kBAAH;AAEE,cAAG,CAAI,oBAAP;AAEE;AACA,mCAAmB;WAHrB;AAMA,cAAG,oBAAH;AAEE,mBAAS,oBAAe,EAAG,GAAE,CAAF;AAC3B,mBAAS,oBAAe,EAAG,GAAE,CAAF;AAC3B,gBAAG,qBAAH;AAME,yBAAM,gCAAM,CAAC,cAAK,GAAE,IAAF,CAAQ,aAAI,GAAE,IAApB,CAAZ;AAGA,kBAAa,2BAAH,eAAP,YAAO,CAAV;AAEE,oBAAY,OAAP,aAAU,2BAAH;AACZ,oBAAG,CAAC,WAAJ;AAEE,sBAAG,EAAE,EAAG,GAAE,CAAC,YAAW,SAAQ,KAA9B,EACE,EAAE,EAAF,GAAQ,UAAK,CAAC,CAAC,YAAW,SAAQ,KAArB,CADf;AAEA,sBAAG,EAAE,EAAG,GAAE,CAAC,YAAW,SAAQ,MAA9B;AACE,sBAAE,EAAF,GAAQ,UAAK,CAAC,CAAC,YAAW,SAAQ,MAArB;AACV,4BAAQ,CAAL,EAAE,EAAG,GAAE,eAAF,CAAQ,GAAU,CAAR,CAAC,SAAC,EAAM,GAAE,CAAC,YAAW,SAAQ,OAAtB,CAA1B,EACH,EAAE,EAAF,GAAQ,UAAK,CAAC,CAAC,SAAC,EAAmC,GAA3B,CAAC,YAAW,SAAQ,OAAtB,GAA+B,eAAxC,CADV;AAGL,gCAAS,CAAC,UAAK,CAAC,EAAE,EAAH,EAAQ,UAAK,CAAC,EAAE,EAAH,EAAQ,gBAAO,gBAAlC;iBATX;eAHF;aATF;AAyBA,yCAAmB,gCAAM,CAAC,CAAE,GAAE,IAAF,CAAQ,CAAE,GAAE,IAAf,CAAzB;AACA,iCAAgB,CAAC,KAAM,IAAP;WA9BlB;;AAmCA,oBAAK,oBAAe,CAAC,IAAD,CAApB;AACA,cAAG,oCAAU,CAAC,EAAG,gCAAM,CAAC,EAAG,CAAJ,CAAV,CAAb;AAEE,gBAAG,CAAI,gBAAP;AAEE,iCAAe;AACf,oCAAU,CAAV;aAHF;WAMG,UAAG,gBAAH;AAEH,+BAAe;AACf,kCAAU,CAAV;WAHG;;OAtDT;AA8DA,UAAK,eAAU,CAAC,EAAG,CAAJ;AAEf,UAAG,CAAE,KAAG,EAAR;AACE,8BAAU,EAAV;AACG,gBAAI,YAAO,KAAE,EAAb,EACH,sBAAU,CAAV,CADG;AAGL,UAAY,2BAAD,QAAX,EACE,2BAAmB,CAAC,IAAD,CADrB;AA9F4C;AApxBC;AAE7C;AACA,qBAAW;AACX,mCAAyB;AACzB,4BAAU,CAAV;AACA,yBAAe;AACf,UAAG,YAAQ,KAAG,WAAd;AAEE,sBAAU;AACV;OAHF;AAP6C;AAs3BH;AAG1C;AAEA;AACA,UAAG,kBAAH;AACE;AACG,gBAAG,UAAM,IAAI,aAAb;AAEH;AACA;AACA;OAEG,UAAG,yBAAyC,IAAhB,qBAAJ,IAAwB,CAAI,aAApD;AAEH;AACA;AACA;OAJG;AAOL,2BAAiB;AACjB,6BAAmB;AACnB,mBAAS;AACT,kCAAwB;AAExB,UAAK,eAAU,CAAC,EAAG,CAAJ;AACf,UAAG,CAAE,KAAG,EAAR,EACE,kBAAa,CAAC,CAAD,CADf;AAGA,UAAW,CAAC,yBAAD,SAAoB,IAAI,CAAY,CAAP,MAAO,KAAqB,2CAArB,CAA/C,EACE,yBAAiB,CAAC,IAAD,CADnB;AA9B0C;AA3MA;AAE1C;AACA;AAIA;AAEA,UAAY,oBAAD,QAAX;AAEkB,iBAAhB,KAAgB;AAChB,+BAAmB;OAHrB;AAMA,UAAY,kBAAD,QAAX;AAEgB,iBAAd,KAAc;AACd,6BAAiB;OAHnB;AAMA,2BAAiB,wBAAmB,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,wBAAa,cAAb,GAA8B;AAE9B,6BAAmB,mBAAc,QAAC,YAAM,CAAC,kBAAD,CAAN;AAUlC,0BAAe,OAAO,CAAC,IAAD;AACtB,0BAAe,WAAC,CAAW,KAAX;AAChB,0BAAe,MAAC,CAAY,IAAZ;AAChB,0BAAe,cAAC,CAAc,KAAd;AAChB,0BAAe,aAAC,CAAa,IAAb;AAChB,0BAAe,qBAAC,CAAqB,KAArB;AAChB,0BAAe,YAAW,aAAC,CAAa,KAAb;AAC3B,0BAAe,kBAAkB,CAAC,EAAG,EAAG,EAAG,CAAV;AACjC,0BAAe,UAAC,CAAU,gBAAO,GAAE,CAAnB;AAEhB,oCAAyB,CAAC,oBAAD;AAEzB,eAAgC,KAAvB,qBAAgB,SAAC,EAAM,GAAE,CAAF,EAAW,aAA3C;AAAI;AAEF,aAA4B,qBAAgB,WAAC,CAAD;AAC5C,YAAY,EAAE,SAAH,QAAX;AAEE,cAAkB,gCAAH,eAAZ,EAAE,SAAU,CAAf,EACe,OAAZ,EAAE,UAAa,gCAAH,CAA+B,UAAC,CAAuB,OAAZ,EAAE,UAAa,gCAAH,CAA+B,eAAtD,CAD/C;AAEA,YAAE,SAAS,WAAC,CAAW,IAAX;AACZ,YAAE,SAAS,UAAC,CAAU,oBAAV;SALd;;AASF,0BAAe;AACf,wBAAa,oBAAC,CAAoB,IAApB;AACd,wBAAa,kBAAC,CAAkB,oBAAlB;AACd,wBAAa,UAAC,CAAU,IAAV;AACd;AA9D0C;AAzyBM;AAEhD;AAEA,UAAW,CAAC,YAAD,SAAS,IAAe,kCAAH,eAAP,YAAO,CAAhC,EACE,SAAS,QAAmD,OAAtC,OAAP,aAAU,kCAAH,CAAwB,iBAAC,EAAa,GAAE,CAAF,kBAA5D;AAAI;AACF,YAAmD,yBAAH,eAArC,OAAP,aAAU,kCAAH,CAAwB,YAAS,CAAC,CAAD,CAAI,CAAhD,EACgD,OAArC,OAAP,aAAU,kCAAH,CAAwB,YAAS,CAAC,CAAD,EAAO,yBAAH,CAAwB,oBADxE;OAFJ;AAJgD;AAoEL;AAE3C,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,IAAD,CADhB;AAF2C;AAMW;AAGtD,UAAY,+BAAD,QAAX,EACE,+BAAyB,CAAC,KAAM,eAAP,CAD3B;AAHsD;AAgyBX;AAE3C;AACA,UAAY,0BAAD,QAAX,EACE,0BAAkB,CAAC,IAAD,CADpB;AAH2C;AAowCC;AAE5C,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,IAAD,CADnB;AAF4C;AAh3CK;AAUjD,cAAQ,UAAC,CAAU,IAAV;AACT,UAAG,MAAO,GAAE,CAAC,CAAb,EACE,kBAAa,CAAC,SAAU,MAAX,CADf;AAIA,UAAY,6BAAD,QAAX,EACE,6BAAuB,CAAC,QAAD,CADzB;AAfiD;AAjqBJ;AAE7C,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,QAAS,OAAhB,CADlB;AAF6C;AA8+CD;AAG5C;AACA;AAJ4C;AA1vCD;AAAf;AAE5B;AACA;AAEA,gBAAK,mBAAL;AACA,UAAK;AACL,UAAG,WAAM,KAAE,uCAAX,EACE,IAAK,IADP;AAGA,UAAG,YAAH;AACE,uBAAU,+BAAK,CAAC,CAAC,MAAO,CAAC,KAAM,CAAC,KAAM,GAAE,sBAAe,CAAC,CAAE,GAAE,CAAL,CAAjB,CAA0B,CAAC,OAAlD,CAAf;AAEA,2BAAU,+BAAK,CAAC,CAAC,KAAM,GAAE,oBAAe,CAAC,CAAD,CAAjB,CAAsB,CAAC,IAAK,GAAE,oBAAe,CAAC,CAAD,CAAjB,CAAsB,CAAC,KAAM,GAAE,sBAAe,CAAC,CAAE,GAAE,CAAL,CAAjB,CAA0B,CAAC,OAAQ,GAAE,oBAAe,CAAC,CAAD,CAArH,CAAf;AAb0B;AAAe;AA1fC;AAE5C;AACA;AACA;AAEA,0BAAgB;AAChB,2BAAgB;AAChB,eAA2B,KAAlB,IAAI,iBAAC,EAAa,GAAE,CAAF,EAAW,aAAtC;AAAI;AAEF,YAAK,IAAI,YAAS,CAAC,CAAD;AAMlB,YAAG,CAAE,KAAG,uBAAR;AAEE,eAAM,0BAAqB,QAAC;AAC5B,YAAE,SAAF,GAAe;AACf,cAAQ,gCAAH,eAAF,CAAE,CAAL;AAEE,cAAE,QAAF,GAAiB,OAAF,EAAK,gCAAH,CAA+B;AAChD,gBAAqD,CAA9C,OAAF,EAAK,gCAAH,CAA+B,eAAe,KAAE,uCAAF,CAAW,IAA+C,CAAvC,OAAF,EAAK,gCAAH,CAA+B,QAAQ,KAAG,uCAAH,CAA/G,EACK,OAAF,EAAK,gCAAH,CAA+B,iBAAC,CAAoB,OAAF,EAAK,gCAAH,CAA+B,eAAnD,CADrC;WAHF;AAOA,cAAQ,gCAAH,eAAF,CAAE,CAAL;AACE,cAAE,cAAF,GAAuB,OAAF,EAAK,gCAAH,CAA+B;AAEtD,gBAAA,EAAE,cAAF,GAAoB,CAAC;AAEvB,WAAC,UAAC,CAAU,IAAV;AACF,WAAC,WAAC,CAAW,KAAX;AACF,+BAAgB,MAAI,CAAC,EAAD;SAlBtB;;AAqBF,0BAAgB;AAChB;AACA;AAvC4C;AA25CE;AAE9C;AACA;AACA;AAEA,0BAAgB;AAChB,eAAgC,KAAvB,qBAAgB,SAAC,EAAM,GAAE,CAAF,EAAW,aAA3C;AAAI;AAEF,aAA4B,qBAAgB,WAAC,CAAD;AAC5C,YAAK,EAAE;AACP,YAAY,CAAD,QAAX;AAEE,cAAQ,gCAAH,eAAF,CAAE,CAAL,EACK,OAAF,EAAK,gCAAH,CAA+B,aAAlC,GAAmD,IADrD;AAEA,WAAC,UAAC,CAAU,IAAV;AACF,WAAC,WAAC,CAAW,IAAX;AACF,cAAQ,gCAAH,eAAF,CAAE,CAAL,EACK,OAAF,EAAK,gCAAH,CAA+B,aAAlC,GAAmD,KADrD;SANF;;AAkBF,0BAAgB;AAChB;AAEA;AAhC8C;AAjqCK;AAEnD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,qBAAP,CADxB;AAFmD;AAMI;AAEvD,UAAY,gCAAD,QAAX,EACE,gCAA0B,CAAC,KAAM,SAAU,SAAjB,CAD5B;AAFuD;AArDF;AAGrD,UAAY,8BAAD,QAAX,EACE,8BAAwB,CAAC,KAAM,SAAU,YAAjB,CAD1B;AAHqD;AAyfX;AAE1C;AAF0C;AAxbE;AAE5C,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,SAAU,YAAjB,CADjB;AAF4C;AA6bK;AAEjD;AACA;AACA;AACA;AACA;AAEA,UAAG,CAAY,CAAC,MAAD,SAAf,EACE,MADF;AAGA,0BAAgB;AAEhB,UAAY,OAAP,OAAU,+BAAH;AAEZ,WAAM,qBAAgB,CAAC,CAAD;AACtB,UAAY,EAAD,QAAX;AAEE,aAAM,EAAE;AACR,cAAO,QAAG,CAAC,EAAG,QAAG,CAAC,wBAAc,EAAE,cAAe,GAAE,0BAAqB,CAAC,EAAD,CAAvD,CAAP;AACV,4BAAe,SAAO,CAAC,EAAD;AACtB,iCAAoB,CAAC,GAAI,GAAL;AACpB,UAAE,WAAC,CAAW,IAAX;;AAIH,aAAM,0BAAqB,QAAC;AAE5B,YAAQ,gCAAH,eAAF,CAAE,CAAL;AACE,YAAE,cAAF,GAAuB,OAAF,EAAK,gCAAH,CAA+B;AAEtD,cAAA,EAAE,cAAF,GAAoB,CAAC;AAEvB,UAAE,SAAF,GAAe;AACf,4BAAgB;AAChB,cAAO,CAAC;AACR,4BAAgB;AAChB,UAAE,QAAQ,OAAO,CAAC,GAAD;AACjB,WAAI,eAAJ,GAAI;AACJ,4BAAe,MAAI,CAAC,EAAD;AACnB,SAAC,UAAC,CAAU,IAAV;AACF,SAAC,WAAC,CAAW,KAAX;;AAGJ,0BAAgB;AAChB;AA7CiD;AA+gBD;AAEhD;AACA;AAEA,UAAK;AACL,UAAK;AACL,UAAc,iCAAH,eAAP,MAAO,CAAX,EACE,IAAa,OAAP,OAAU,iCAAH,CAAgC,SAD/C;AAGA,UAAW,CAAC,4BAAD,SAAyB,IAAe,6BAAH,eAAP,MAAO,CAAhD,EACE,4BAAsB,CAAC,KAAM,EAAU,OAAP,OAAU,6BAAH,EAAc;;;;UAA/B,CADxB;AAGA,UAAG,CAAH,EACE,yBAAoB,CAAC,CAAD,CADtB;AAbgD;AAiBD;AAE/C;AAEA,UAAY,8BAAD,QAAX;AACE,sCAAwB,CAAC,IAAD;;AAOxB,mBAAM,gCAAM,CAAC,uBAAkB,QAAC,GAAM,uBAAkB,OAAC,EAA7C,CAAZ;AAEA,mBAAM,oBAAe,CAAO,yCAAN,gCAAM,CAAC,EAAE,GAAI,EAAE,EAAG,GAAE,uBAAkB,UAAC,EAAjC,EAAP,CAArB;AACA,4BAAe,CAAC,EAAE,GAAI,EAAE,EAAT;;AAf8B;AAvhCC;AAEhD;AACA;AAEA,wBAAa,kBAAC,CAAkB,IAAlB;AAEd,eAAS,QAA4B,OAAvB,qBAAgB,SAAC,EAAM,GAAE,CAAF,kBAArC;AAAI;AAEF,aAA4B,qBAAgB,WAAC,CAAD;AAC5C,YAAY,EAAE,SAAH,QAAX;AAEE,cAAkB,gCAAH,eAAZ,EAAE,SAAU,CAAf,EACe,OAAZ,EAAE,UAAa,gCAAH,CAA+B,UAAC,CAAU,EAAE,QAAZ,CAD/C;AAGA,YAAE,SAAS,UAAC,CAAU,IAAV;AACZ,YAAE,SAAS,WAAC,CAAW,KAAX;SANd;;AAUF,UAAY,oBAAD,QAAX;AAEkB,iBAAhB,KAAgB;AAChB,+BAAmB;OAHrB;AApBgD;AA6+BP;AAGzC;AACA,UAAc,CAAV,SAAU,KAAE,+BAAF,CAAY,IAAgB,CAAX,UAAW,KAAE,qBAAF,CAA1C,EACE,wBAAoB,IADtB;AAGA,UAAc,CAAV,SAAU,KAAE,+BAAF,CAAY,IAAgB,CAAX,UAAW,KAAE,uBAAF,CAA1C,EACE,0BAAsB,IADxB;AAPyC;AAz4BC;AAE1C;AACA;AAH0C;AAwoCW;AAErD;AACA;AAHqD;AAuVV;;AAE3C;AACA;AACA;AACA;AACA;AAMA;AAAM;AAAG;AAAG;AAAG;AAAG;AAAI;AAAK;AAAI;AAAI;AAAI;AAAM;AAM7C;AAEA;AAEA;AAEA;AACA;AACA;AAAI;AAAI;AAAI;AAEO;AAAV;AAEP,iBAAU;AAEV,YAAW,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,IAAqB,CAAlB,KAAI,iBAAC,EAAa,GAAE,CAAF,CAArB,CAA7B;AAEE,cAAG,KAAI,YAAS,CAAC,MAAD,CAAQ,SAAxB;AAEE,qBAAU,KAAI,YAAS,CAAC,MAAD;AACvB;WAHF;SAFF;AASA,eAAc,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,IAAqB,CAAlB,KAAI,iBAAC,EAAa,GAAE,CAAF,CAArB,CAAhC;AAEM,gBAAJ,IAAG;AACH,cAAW,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,IAAqB,CAAlB,KAAI,iBAAC,EAAa,GAAE,CAAF,CAArB,CAA7B;AAEE,gBAAG,KAAI,YAAS,CAAC,MAAD,CAAQ,SAAxB;AAEE,uBAAU,KAAI,YAAS,CAAC,MAAD;AACvB;aAHF;WAFF;;AAhBK;AAAU;AA2BC;AAAX;AAEP;AACA;AAEA,iBAAU;AACV,YAAG,CAAI,MAAP;AAEE,mBAAuB,KAAb,wBAAa,GAAE,CAAF,EAAW,aAAlC;AAAI;AAEF,kBAAO,iBAAQ,CAAC,EAAD;AACf,gBAAI,yCAAU,IAAG,GAAG,gBAApB;AAEE,uBAAU;AACV;aAHF;;SALJ;AANO;AAAW;AAoBjB;AA3EwC;AA4E3C,YAAG,iBAA4D,IAA5C,iBAAH,IAAmB,aAAH,IAAkB,mBAAH,IAAmB,CAAI,uBAAtE,EACE,MADF;AAGA,0BAAc;AAEd,4BAAgB;AAOhB,aAAM,UAAK,CAAC,gBAAU,mBAAX;AACX,aAAM,UAAK,CAAC,gBAAU,iBAAX;AAGX,YAAK;AACL,YAAG,gBAAU,UAAb;AAME,cAAK,CAAE,GAAE,UAAK,CAAC,qBAv/EkC,MAu/EnB,MAAhB,CAAP;AAEP,cAAG,EAAG,KAAE,CAAR,EACE,IAAK,CAAE,GAAE,oBAAe,CAAC,CAAD,CAD1B;SARF;AAYA,YAAK;AAEL,aAAM;AACN,aAAM;AAEN,cAAO,oBAAe,CAAC,EAAD;AACtB,eAAQ;AACR,eAAQ;AACR,mBAAM,kBAAN;AACA,YAAG,EAAE,GAAI,GAAE,CAAX,EACE,OAAQ,UAAK,CAAC,EAAE,GAAI,GAAE,oBAAe,CAAC,CAAD,CAAxB,CADf;AAGA,YAAG,EAAE,GAAI,GAAE,CAAX,EACE,OAAQ,UAAK,CAAC,EAAE,GAAI,GAAE,oBAAe,CAAC,CAAD,CAAxB,CADf;AAGA,YAAK;AACL,eAAQ;AACR,YAAK;AACL,cAAO;AAEP,aAAM;AACN,iBAAS,QAAuB,OAAlB,KAAI,iBAAC,EAAa,GAAE,CAAF,kBAAhC;AAAI;AAEF,cAAK,KAAI,YAAS,CAAC,CAAD;AAMlB,eAAM,qBAAgB,CAAC,CAAD;AACtB,eAAM,CAAY,CAAC,EAAD;AAClB,cAAG,EAAH,EACE,KADF;;AAIF,YAAK;AACL,iBAAS,SAAuB,QAAlB,KAAI,iBAAC,EAAa,GAAE,CAAF,qBAAhC;AAAI;AAEF,cAAK,KAAI,YAAS,CAAC,CAAD;AAOlB,cAAG,uBAAQ,CAAC,iDAAG,iEAAqB;;;;cAAzB,CAAX,EACE,EAAE,gBAAC,CAAgB,sBAAhB,CADL;AAIA,cAAG,CAAH;AAEE,gBAAK;AACL,gBAAK;AACL,iBAAM;WAJR;AAOA,cAAK;AACL,cAAQ,gCAAH,eAAF,CAAE,CAAL;AAEE,gBAAQ,OAAF,EAAK,gCAAH,CAA+B;AACpC,mBAAF,EAAK,gCAAH,CAA+B,iBAAlC,GAAsD;AACnD,mBAAF,EAAK,gCAAH,CAA+B,wBAAlC,GAA6D;WAJ/D;AAOA,8BAAe,CAAC,EAAG;;;;cAAJ;AAEf,cAAG,CAAO,CAAF,CAAE,KAAE,uBAAF,CAAV;AAEE,gBAAG,EAAH;AAEE,kBAAQ,gCAAH,eAAF,CAAE,CAAL;AACK,uBAAF,EAAK,gCAAH,CAA+B,cAAlC,GAAmD;AAEnD,oBAAA,CAAC,OAAD,GAAS;aALb;AAQA,gBAAG,CAAC,SAAJ;AAkDE,kBAAG,CAAC,kBAAJ;AAEE,oBAAG,eAAH;AAEE,mBAAC,QAAC,CAAQ,CAAE,GAAE,CAAC,SAAQ,MAArB;AACF,mBAAC,OAAC,CAAO,CAAE,GAAE,CAAC,SAAQ,KAApB;iBAHJ;AAMA,oBAAG,uBAAkB,IAAuC,CAA7B,gCAAH,eAAF,CAAE,CAAgC,IAA+C,CAAvC,OAAF,EAAK,gCAAH,CAA+B,QAAQ,KAAE,wCAAF,CAA/C,CAA5D;AAEE,sBAAK,gBAAiC,GAAxB,CAAC,SAAQ,QAAX,GAAqB,IAAF,GAAS,CAAF;AACtC,mBAAC,UAAC,CAAU,CAAV;iBAGF,UAAK,QAAG,CAAC,EAAG,CAAC,OAAC,EAAoB,GAAd,CAAC,UAAC,EAAJ,GAAa,EAAF,GAAO,CAAC,SAAQ,QAArC;AAEV,qBAAM,UAAU,CAAC,CAAE,GAAE,CAAL;AAChB,oBAAW,CAAC,EAAD,SAAK,IAAW,gCAAH,eAAH,EAAG,CAAxB;AAE0C,6BAA/B,OAAH,GAAM,gCAAH,CAA+B;AACtC,uBADsC,IACtC,mDAAW,CAD2B,IAC3B,8CAAX;AAEE,wBAAK,QAAG,CAAC,EAAG,CAAC,OAAC,EAAoB,GAAd,CAAC,UAAC,EAAJ,GAAa,EAAF,GAAO,CAAC,SAAQ,QAArC;AACR,wBAAsB,CAAnB,CAAmB,GAAf,EAAE,SAAQ,KAAZ,GAAmB,EAAE,UAAC,EAAL,CAAY,GAA6B,CAA3B,gBAA2B,GAAlB,EAAE,SAAQ,QAAZ,GAAsB,IAAF,CAA/D;AAEE,0BAAK,QAAG,CAAC,EAAG,QAAG,CAAC,KAAM,CAAC,QAAC,EAAoB,GAAb,CAAC,SAAC,EAAJ,GAAY,EAAF,GAAO,CAAC,SAAQ,OAAxC,CAAP;AACR,0BAAK;;AAIL,uBAAC,QAAC,CAAQ,CAAE,GAAE,CAAC,SAAQ,MAArB;AACF,6BAAQ,QAAG,CAAC,EAAG,QAAG,CAAC,KAAM,CAAC,QAAC,EAAoB,GAAb,CAAC,SAAC,EAAJ,GAAY,EAAF,GAAO,CAAC,SAAQ,OAAxC,CAAP;;mBAGf,WAfsC,IAetC,iDAAS,CAf6B,IAe7B,8CAAT;AAEE,wBAAK,QAAG,CAAC,EAAG,CAAC,QAAC,EAAoB,GAAb,CAAC,SAAC,EAAJ,GAAY,EAAF,GAAO,CAAC,SAAQ,OAArC;AACR,wBAAK;mBAHP;;AASF,sBAAK,QAAG,CAAC,EAAG,QAAG,CAAC,KAAM,CAAC,QAAC,EAAoB,GAAb,CAAC,SAAC,EAAJ,GAAY,EAAF,GAAO,CAAC,SAAQ,OAAxC,CAAP;AACR,sBAAK;;;AAKP,oBAAG,eAAH;AAEE,mBAAC,QAAC,CAAQ,CAAR;AACF,mBAAC,OAAC,CAAO,CAAP;iBAHJ;AAMA,oBAAG,uBAAkB,IAAuC,CAA7B,gCAAH,eAAF,CAAE,CAAgC,IAA+C,CAAvC,OAAF,EAAK,gCAAH,CAA+B,QAAQ,KAAE,wCAAF,CAA/C,CAA5D;AAEE,sBAAK,gBAAc,GAAL,IAAF,GAAS,CAAF;AACnB,mBAAC,UAAC,CAAU,CAAV;iBAGF,UAAK,QAAG,CAAC,EAAG,CAAC,OAAC,EAAe,GAAT,CAAC,UAAC,EAAJ,GAAa,EAAvB;AAEV,qBAAM,UAAU,CAAC,CAAE,GAAE,CAAL;AAChB,oBAAW,CAAC,EAAD,SAAK,IAAW,gCAAH,eAAH,EAAG,CAAxB;AAE0C,8BAA/B,OAAH,GAAM,gCAAH,CAA+B;AACtC,uBADsC,KACtC,mDAAW,CAD2B,KAC3B,8CAAX;AAEE,wBAAK,QAAG,CAAC,EAAG,CAAC,OAAC,EAAe,GAAT,CAAC,UAAC,EAAJ,GAAa,EAAvB;AACR,wBAAK,CAAF,CAAE,GAAE,EAAE,UAAC,EAAL,CAAY,GAAS,CAAP,gBAAO,GAAE,IAAF,CAA1B;AAEE,0BAAK,QAAG,CAAC,EAAG,QAAG,CAAC,KAAM,CAAC,QAAC,EAAe,GAAR,CAAC,SAAC,EAAJ,GAAY,EAA1B,CAAP;AACR,0BAAK;;AAIL,uBAAC,QAAC,CAAQ,CAAR;AACF,6BAAQ,QAAG,CAAC,EAAG,QAAG,CAAC,KAAM,CAAC,QAAC,EAAe,GAAR,CAAC,SAAC,EAAJ,GAAY,EAA1B,CAAP;;mBAGf,WAfsC,KAetC,iDAAS,CAf6B,KAe7B,8CAAT;AAEE,wBAAK,QAAG,CAAC,EAAG,CAAC,QAAC,EAAe,GAAR,CAAC,SAAC,EAAJ,GAAY,EAAvB;AACR,wBAAK;mBAHP;;AASF,sBAAK,QAAG,CAAC,EAAG,QAAG,CAAC,KAAM,CAAC,QAAC,EAAe,GAAR,CAAC,SAAC,EAAJ,GAAY,EAA1B,CAAP;AACR,sBAAK;;;AAmDT,kBAAK,QAAG,CAAC,EAAG,CAAJ;aAhMV;AAkMI,eAAJ,IAAG;WA5ML;;AAgNF,YAAG,CAAE,KAAE,CAAP,EACE,IAAK,GADP;AAGA,+BAAkB,WAAC,CAAW,iBAAW,YAAtB;AACnB,YAAG,iBAAW,YAAd;AACE,iCAAkB,UAAC,CAAU,KAAV;AAEA,cAAnB,uBAAkB,UAAC,CAAU,IAAV;AAuDrB,YAAG,uBAAkB,SAArB;AAEE,iCAAkB,cAAlB,GAAmC,KAAI,iBAAC,EAAa,GAAE,CAAF;AAMrD,iCAAkB,OAAC,CAAO,uBAAkB,SAAQ,KAAjC;AACnB,gBAAO,uBAAkB;AACzB,cAAG,CAAI,uBAAkB,kBAAzB;AAEE,eAAG,QAAC,CAAQ,CAAR;AACJ,eAAG,OAAC,CAAO,CAAP;AACJ,eAAG,SAAC,CAAS,CAAT;AACJ,eAAG,UAAC,CAAU,CAAV;WALN;AASA,cAAG,cAAH;AAEE,mCAAkB,QAAC,CAAQ,CAAE,GAAE,GAAG,MAAf;AACnB,gBAAG,gBAAH;AACE,qCAAkB,UAAC,CAAU,CAAe,GAAX,GAAG,QAAL,GAAe,GAAG,KAA9B;AAChB,sBAAG,uBAAH,EACH,uBAAkB,UAAC,CAAU,gBAA2B,GAAlB,GAAG,QAAL,GAAe,IAAF,GAAS,GAAG,KAA1C,CADhB;;AAKL,mCAAkB,QAAC,CAAQ,eAAiC,GAAzB,uBAAkB,SAAC,EAArB,GAA6B,GAAG,OAA9C;AACnB,mCAAkB,UAAC,CAAU,gBAA8B,GAArB,GAAG,QAAL,GAAe,GAAG,KAAL,GAAY,IAA1C;;AAErB,cAAK,CAAyC,GAArC,uBAAkB,SAAC,EAArB,GAA6B,GAAG,OAAL,GAAc,GAAG,MAAL;SAhChD;AAmCA,YAAG,cAAH;AAEE,cAAG,gBAAU,WAAb,EACE,IAAK,CAAE,GAAE,UAAK,CAAC,gBAAU,iBAAgB,OAA3B,CADhB;AAGA,cAAK,UAAK,CAAC,QAAG,CAAC,mBAAc,CAAf,CAAJ;AAEV,cAAG,0BAAiB,KAAE,gEAAtB;AAEE,iBAAM;AACN,iBAAM;AACN,iBAAM;AACN,iBAAM;AACN,kCAAiB,CAAC;;;;iBAAI;;;;iBAAI;;;;iBAAI;;;;gBAAb;AACjB,gBAAK,CAAE,GAAE,UAAK,CAAC,EAAG,GAAE,EAAN,CAAP;WAPT;AAUA,cAAK,CAAE,GAAE,IAAF;AAEP,cAAG,gBAAyB,IAAV,eAAJ,IAAoC,CAAjB,0BAAiB,KAAE,gEAAF,CAAlD;AACE,0BAAS,CAAC,eAAM,cAAK,EAAG,CAAf;AACN,oBAAG,gBAAW,IAAI,CAAsB,CAAjB,0BAAiB,IAAG,cAAC,iEAAQ,kEAAS,kEAAlB,CAAH,CAAxC;AACH,0BAAS,CAAC,eAAM,cAAK,gBAAO,CAAnB;AACN,oBAAG,eAAU,IAAI,CAAsB,CAAjB,0BAAiB,IAAG,cAAC,gEAAO,mEAAU,kEAAlB,CAAH,CAAvC,EACH,cAAS,CAAC,eAAM,cAAK,EAAG,gBAAf,CADN;SAvBP;AAgCA,YAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAD,CADlB;AAGA,4BAAgB;AA/f2B;AA2ExC;AArDH;AAtB2C;;AAxgCO;;AA5aT;;AAEzC;AAEkB;AAEhB;AACA;AACA;AAEA,YAAG,YAAM,KAAE,uCAAX;AACE,eAAM,qBAAe,CAAC,CAAD;AAErB,mBAAM,qBAAe,CAAC,CAAD;AAEvB,aAAK,KAAL,GAAc,KAAK;AACnB,aAAK,IAAL,GAAa,KAAK;AAClB,cAA2B,UAApB,UAAK,CAAC,KAAK,OAAN,CAAe,GAAe,CAAV,UAAK,CAAC,EAAD,CAAK,GAAE,CAAF,CAAf;AAC3B,iBAAS,QAAK,4BAAd;AAAI;AAEF,sBAAO,+BAAK,CAAC,KAAK,KAAM,GAAoC,CAAN,CAA1B,KAAK,MAAqB,GAAZ,KAAK,KAAP,GAAgB,EAAF,CAAM,GAAE,CAAF,CAApC,CAAyC,KAAK,IAAK,GAAE,CAAF,CAAK,KAAK,KAAW,GAAH,EAAF,GAAyC,CAAN,CAA1B,KAAK,MAAqB,GAAZ,KAAK,KAAP,GAAgB,EAAF,CAAM,GAAE,CAAF,CAApC,CAAyC,KAAK,IAAS,GAAF,CAAF,GAAM,EAA7I,CAAZ;AACA,sBAAO,+BAAK,CAAC,cAAG,CAAC,GAAG,KAAJ,EAAY,cAAG,CAAC,GAAG,IAAJ,EAAW,cAAG,CAAC,GAAG,MAAJ,EAAa,cAAG,CAAC,GAAG,OAAJ,CAAjD,CAAZ;AACA,mBAAS,gBAAc,CAAC,6CvB97DmE,6EuB87DpE;AACvB,eAAK,IAAL,GAAa,KAAK,IAAK,GAAK,CAAH,EAAG,GAAE,CAAF,CAAL;;AAnBT;AAuBlB;AAEA,eAAS,MAAK,SAAC,CAAS,gBAAU,eAAnB;AACf,eAAS,MAAK,QAAC,CAAQ,kEAAR;AACf,gBAAK,qBA//B8C,MA+/BnD;AACA,cAAQ,CAAC,0CAAD;AAhCiC;AAmCJ;AAErC;AAEA,UAAG,iBAAY,IAAU,CAAL,UAAK,KAAG,EAAH,CAAzB;AAEE,iBAAS,MAAK,OAAO,CAAC,YAAD;AAErB,YAAG,CAAI,aAAQ,IAAuB,CAAlB,uBAAkB,KAAG,EAAH,CAAtC,EACE,SAAS,MAAK,SAAC,CAAS,uBAAT,CADjB;AAGA,kBAAK,kBAAL;AAEA,iBAAS,WAAS,CAAC,2CAAG,WAAM,mBAAc,0BAAqB,wBAAmB,evBz3DgL,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CuBw3D1J;OATpB;AAJqC;AAg/BS;AAG9C;AAEA,gBAAK,yBAAoB,CAAC,8CAAD,CAAzB;AACA,eAAS,iBAAT,GAA6B;AAC7B,eAAS,iBAAiB,CAAC,2CAAG,qBvB94F+D,EAA2B,KAChG,MAA0B,KAA2B,KuB64FnD;AAPoB;AAoBF;AAE5C;AACA;AAEA,UAAG,CAAI,iBAAY,IAAS,CAAL,UAAK,KAAE,EAAF,CAA5B,EACE,MADF;AAGA,iBAAM,yBAAN;AACA,WAAM,SAAS,WvBz2F6B;AuB02F5C;AACE,iBAAS,SAAS,CAAC,2CAAD;AAClB,iBAAS,MAAK,OAAO,CAAC,YAAD;AACrB,iBAAS,WAAS,CAAC,4CAAI,WAAM,mBAAc,0BAAqB,wBAAmB,evB73F+K,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CuB43F1J;AAHpB;AAKE,iBAAS,aAAa,CAAC,GvBx/FyD,KuBw/F1D;AALxB;AAV4C;AAVI;AAEhD;AAEA,gBAAK,mBAAL;AACA,gBAAK,+BAAK,CAAC,CAAC,MAAO,CAAC,OAAQ,GAAE,EAAF,CAAM,CAAC,OAAQ,CAAC,OAAlC,CAAV;AACA,6CAAa,CAAC,EAAG,CAAC,EAAG,CAAC,CAAT;AACb,eAAS,iBAAiB,CAAC,2CAAG,6BvBx5F+D,EAA2B,KAChG,MAA0B,KAA2B,KuBu5FnD;AAPsB;AA6XJ;;AAx2DF;AAAd;AAE5B,eAAU;AAFkB;AAAc;AAs2BJ;AAAV;AAE5B;AACA;AAEA,eAAU;AACV,gBAAK,kBAAL;AAEA,UAAK,4CAAe,QAAC,uBvBh3E8B,EAAsB,EAAsB,MAAgC,IuBg3E1G;AACrB,OAAC;AACD,OAAC,iBAAD,GAAqB;AACrB;AACE,SAAC,MAAK,OAAO,CAAC,YAAD;AACb,iBAAU,CAAC,WAAS,CAAC,2CAAG,WAAO,mBAAe,0BAAsB,wBAAoB,eAAW,EAAG,CAAC,EAAG,CAAC,EAAG,KAAM,KAAM,GAAI,EAA1G;AAFtB;AAIE,SAAC;AACD,SAAE,eAAF,CAAE;AALJ;AAX4B;AAAU;AAtjBI;AAE1C,UAAY,mBAAD,QAAX;AACE,2BAAa,CAAC,KAAM,OAAP;AAEb,YAAA,sCAAY,QAAQ,CAAC,OAAD;AALoB;AAswBP;AAEnC;AAFmC;AA7nCA;AAEnC;AAAG;AACH;AAEA;AACA,UAAa,yBAAH,eAAP,MAAO,CAAV;AAEE,+BAAkB,OAAO,CAAS,OAAP,OAAU,yBAAH,CAAwB,mBAAjC;AACzB,uCAA0B,OAAO,CAAS,OAAP,OAAU,yBAAH,CAAwB,2BAAjC;AACjC,gCAA4B,OAAP,OAAU,yBAAH,CAAwB;AACpD,4BAAe,OAAO,CAAS,OAAP,OAAU,yBAAH,CAAwB,gBAAjC;AACtB,wBAAoB,OAAP,OAAU,yBAAH,CAAwB;AAC5C,2BAAuB,OAAP,OAAU,yBAAH,CAAwB;AAC/C,6BAAyB,OAAP,OAAU,yBAAH,CAAwB;AACjD,6BAAyB,OAAP,OAAU,yBAAH,CAAwB;AACjD,kCAA8B,OAAP,OAAU,yBAAH,CAAwB;AACtD,sCAAkC,OAAP,OAAU,yBAAH,CAAwB;AAC1D,oCAAuB,OAAO,CAAS,OAAP,OAAU,yBAAH,CAAwB,wBAAjC;AAC9B,oCAAuB,OAAO,CAAS,OAAP,OAAU,yBAAH,CAAwB,wBAAjC;AAC9B,qCAAiC,OAAP,OAAU,yBAAH,CAAwB;AACzD,qBAAiB,OAAP,OAAU,yBAAH,CAAwB;AACzC,4BAAwB,OAAP,OAAU,yBAAH,CAAwB;AAChD,6BAAyB,OAAP,OAAU,yBAAH,CAAwB;AACjD,oCAAgC,OAAP,OAAU,yBAAH,CAAwB;AACxD,kCAA8B,OAAP,OAAU,yBAAH,CAAwB;AACtD,yBAAqB,OAAP,OAAU,yBAAH,CAAwB;AAC7C,oBAAK,OAAO,CAAS,OAAP,OAAU,yBAAH,CAAwB,QAAjC;AACZ,yBAAqB,OAAP,OAAU,yBAAH,CAAwB;AAC7C,2BAAuB,OAAP,OAAU,yBAAH,CAAwB;AAC/C,0BAAsB,OAAP,OAAU,yBAAH,CAAwB;AAC9C,0BAAsB,OAAP,OAAU,yBAAH,CAAwB;AAC9C,kCAA8B,OAAP,OAAU,yBAAH,CAAwB;AACtD,gCAA4B,OAAP,OAAU,yBAAH,CAAwB;AACpD,wBAAW,OAAO,CAAS,OAAP,OAAU,yBAAH,CAAwB,YAAjC;AAClB,iBAAS,QAAmD,OAAtC,OAAP,OAAU,yBAAH,CAAwB,iBAAC,EAAa,GAAE,CAAF,kBAA5D;AAAI;AAEF,eAAc,OAAP,OAAU,yBAAH,CAAwB,YAAS,CAAC,CAAD;AAC/C,cAAwC,CAA7B,gCAAH,eAAH,EAAG,CAAgC,IAAQ,OAAH,GAAM,gCAAH,CAA+B,SAAvC,CAAiD,IAAG,CAAyC,CAA7B,gCAAH,eAAH,EAAG,CAAgC,IAAW,+BAAH,eAAH,EAAG,CAAR,CAArI;AAEE,gBAAS,gCAAH,eAAH,EAAG,CAAN,EACM,OAAH,GAAM,gCAAH,CAA+B,WAAnC,GAAiD,KADnD;AAGA,gBAA6B,OAAvB,sCAAY,MAAM,CAAC,EAAD,EAAQ,+BAAH;AAC7B,gBAAS,gCAAH,eAAH,EAAG,CAAN,EACM,OAAH,GAAM,gCAAH,CAA+B,WAAnC,GAAiD,IADnD;AAGA,iCAAgB,CAAC,EA/Y4C,CAAC,CA+Y9C;WATlB;;AAYF;OAGA;AArDiC;AAmOE;AAErC;AAEA;AACA,wBAAc;AACd,6BAAmB,oCAA+B,QAAC;AACnD,8BAAoB,oCAA+B,QAAC;AA2BpD,oBAAU;AACV,gCAAsB;AACtB,yBAAe,6BAAwB,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,gCAAsB,oCAA+B,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,6BAAkB,UAAlB,GAAgC;AAChC,wCAA8B,4CAAuC,QAAC,YAAM,CAAC,IAAD,CAAN;AACtE,qCAA0B,UAA1B,GAAwC;AACxC,6BAAmB,8CAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,0BAAe,UAAf,GAA6B;AAC7B,0BAAgB,8BAAyB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,2BAAiB;AACjB,2BAAiB;AACjB,gCAAsB;AACtB,oCAA0B;AAC1B,mCAAyB;AACzB,qCAA2B,8CAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,kCAAuB,UAAvB,GAAqC;AACrC,qCAA2B,8CAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,kCAAuB,UAAvB,GAAqC;AACrC,yBAAe;AACf,8BAAoB;AACpB,sBAAY;AACZ,uBAAa;AACb,wBAAc;AACd,yBAAe;AACf,wBAAc;AACd,gCAAsB;AACtB,8BAAoB;AACpB,gCAAsB,gCAAyB,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,6BAAkB,YAAW,YAAW,QAAC,CAAQ,kEAAR;AACzC,UAAK;AACL,6BAAkB,YAAW,YAAW,SAAC,CAAS,CAAT;AACzC,6BAAkB,YAAW,mBAAC,CAAmB,KAAnB;AAC9B,6BAAkB,YAAW,YAAC,CAAY,CAAZ;AAE9B,6BAAkB,YAAW,WAAU,OAAO,CAAC,uBAAkB,YAAW,YAA9B;AAC9C,6BAAkB,YAAW,cAAa,OAAO,CAAC,uBAAkB,YAAW,YAA9B;AACjD,6BAAkB,YAAW,UAAS,OAAO,CAAC,uBAAkB,YAAW,YAA9B;AAE7C,6BAAkB,YAAW,WAAU,SAAC,CAAS,QAAT;AACxC,6BAAkB,YAAW,UAAS,SAAC,CAAS,QAAT;AACvC,6BAAkB,YAAW,cAAa,SAAC,CAAS,QAAT;AAG3C,6BAAkB,oBAAC,CAAoB,IAApB;AAInB,6BAAkB,SAAQ,OAAC,CAAO,CAAP;AAC3B,6BAAkB,SAAQ,UAAC,CAAU,CAAV;AAC3B,6BAAkB,SAAQ,SAAC,CAAS,CAAT;AAQ3B,6BAAkB,SAAlB,GAA8B;AAC9B,8BAAoB,8BAAU,QAAC,YAAM,CAAC,IAAD,CAAN;AAK/B,6BAAkB,SAAlB,GAA8B;AAC9B,6BAAkB,SAAC,CAAS,EAAT;AACnB,6BAAkB,QAAC,CAAQ,EAAR;AACnB,6BAAkB,QAAlB,GAA6B;AAE7B,6BAAkB,SAAQ,wBAAsB,CAAC,wDAA0B,sCAAW,GAAtC;AAChD,6BAAkB,SAAQ,wBAAsB,CAAC,6DAA+B,sCAAW,GAA3C;AAChD,6BAAkB,iBAAgB,wBAAsB,CAAC,wDAA0B,sCAAW,GAAtC;AACxD,6BAAkB,iBAAgB,wBAAsB,CAAC,6DAA+B,sCAAU,GAA1C;AACxD,6BAAkB,cAAa,wBAAsB,CAAC,wDAA0B,sCAAW,GAAtC;AACrD,6BAAkB,cAAa,wBAAsB,CAAC,6DAA+B,sCAAU,GAA1C;AAErD,kCAAwB;AACxB,gCAAsB;AACtB,uBAAa;AACb,2BAAiB;AACjB,0BAAgB;AAEhB,qBAAS,qDAAmB,QAAC;AAE7B,kCAAuB,wBAAsB,CAAC,gDAAoB,sCAAW,GAAhC;AAC7C,kCAAuB,wBAAsB,CAAC,sDAAwB,sCAAW,GAApC;AAvHa;AAArB;AAoIA;AAEb,eAAxB,KAAwB;AACA,eAAxB,KAAwB;AACV,eAAd,KAAc;AACa,eAA3B,KAA2B;AACR,eAAnB,KAAmB;AACH,eAAhB,KAAgB;AACV,eAAN,KAAM;AACO,eAAb,KAAa;AACD,eAAZ,KAAY;AACI,eAAhB,KAAgB;AACC,eAAjB,KAAiB;AACjB;AAbqC;AA/SH;AAElC;AAFkC;AAg5CD;AAEjC;AAAI;AACJ;AAEA;AAEA,gBAAK,mBAAL;AAEA,UAAG,aAAH;AAEE,YAAG,UAAH;AAEE,mBAAS,MAAK,OAAO,CAAC,uBAAiB,UAAlB;AACrB,mBAAS,QAAO,OAAO,CAAC,uBAAiB,YAAlB;SAEpB,UAAG,WAAH;AAEH,mBAAS,MAAK,OAAO,CAAC,uBAAiB,WAAlB;AACrB,mBAAS,QAAO,OAAO,CAAC,uBAAiB,aAAlB;;AAIvB,mBAAS,MAAK,OAAO,CAAC,uBAAiB,YAAlB;AACrB,mBAAS,QAAO,OAAO,CAAC,uBAAiB,cAAlB;;AAGzB,YAAG,uBAAiB,WAApB,EACE,SAAS,MAAK,QAAC,CAAQ,kEAAR,CADjB;AAGA,iBAAS,gBAAc,CAAM,wCAAL,+BAAK,CAAC,CAAC,MAAO,CAAC,IAAK,GAAE,CAAF,CAAK,CAAC,MAAO,GAAE,CAAF,CAAK,CAAC,OAAQ,GAAE,CAA5C,GvBz3FgE,6EuBy3FtE;;AAIvB,iBAAS,MAAK,OAAO,CAAC,gBAAU,MAAX;AACrB,iBAAS,QAAO,OAAO,CAAC,gBAAU,QAAX;AAEvB,YAAG,gBAAU,WAAb,EACE,SAAS,MAAK,QAAC,CAAQ,kEAAR,CADjB;AAGA,iBAAS,gBAAc,CAAC,2CvBn4FqE,6EuBm4FtE;;AAGzB,UAAG,aAAH;AAEE,8BAAiB,CAAC,UAAW,8CAAZ;AACjB,4BAAe,CAAC,SAAD;AACf,gCAAmB,CAAC,SAAD;;AAInB,YAAG,gBAAU,UAAb,EACE,iBAAY,CAAC,SAAD,CADd;AAGA,qBAAQ,CAAC,SAAD;AAER,YAAG,qBAAH;AAEE,cAAG,yBAAH;AAEE,qBAAS,MAAK,OAAO,CAAC,+BAAyB,UAA1B;AACrB,qBAAS,QAAO,OAAO,CAAC,+BAAyB,YAA1B;WAEpB,UAAG,0BAAH;AAEH,qBAAS,MAAK,OAAO,CAAC,+BAAyB,WAA1B;AACrB,qBAAS,QAAO,OAAO,CAAC,+BAAyB,aAA1B;;AAIvB,qBAAS,MAAK,OAAO,CAAC,+BAAyB,YAA1B;AACrB,qBAAS,QAAO,OAAO,CAAC,+BAAyB,cAA1B;;AAGzB,cAAG,+BAAyB,WAA5B,EACE,SAAS,MAAK,QAAC,CAAQ,kEAAR,CADjB;AAGA,qBAAM,6BAAN;AACA,mBAAS,gBAAc,CAAC,4CvBz6FmE,6EuBy6FpE;AAEvB,iDAAa,CAAC,GAAI,CAAC,EAAG,CAAC,CAAV;AACb,mBAAS,iBAAiB,CAAC,4CAAI,6BvBx3F0D,EAA2B,KAChG,MAA0B,KAA2B,KuBu3F/C;SAzB5B;;AA6BF,UAAG,gBAAU,WAAb;AAEE,iBAAS,QAAO,OAAO,CAAC,gBAAU,iBAAX;AACvB,YAAK,gBAAU,iBAAgB;AAC/B,iBAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,CAAC,MAAO,GAAE,CAAF,CAAK,CAAC,IAAK,GAAE,CAAtB,GAAgC,yCAAN,gCAAM,CAAC,CAAC,MAAO,GAAE,CAAF,CAAK,CAAC,OAAQ,GAAE,CAAzB,GvBl8F8D,+EAAyE,8EuBk8F9K;OAJpB;AAOA,UAAG,mBAAa,IAAI,wBAApB,EACE,SAAS,qBAAmB,CAAC,+CAAO,EvBl8FsG,6EuBk8F9G,CAD9B;AA5FiC;AAv0CI;AAAT;AAE5B;AACA;AACA;AAEA,eAAU;AAEV,UAAG,aAAH;AAEE,iBAAU;AACV;OAHF;AAMA,eAA2B,KAAlB,IAAI,iBAAC,EAAa,GAAE,CAAF,EAAW,aAAtC;AAAI;AAEF,YAAK,IAAI,YAAS,CAAC,CAAD;AAMlB,YAAG,CAAE,KAAG,uBAAR;AAEE,cAAQ,gCAAH,eAAF,CAAE,CAAL;AAEE,kBAAS,OAAF,EAAK,gCAAH;AACT,gBAAwB,CAAZ,GAAG,QAAS,GAAU,GAAG,eAAb,CAA8B,IAAgB,CAAX,GAAG,QAAQ,KAAG,uCAAH,CAAtE;AAEE,uBAAU;AACV;aAHF;WAHF;SAFF;;AAtB0B;AAAS;AArDA;AAAT;AAE5B;AACA;AACA;AAEA,eAAU;AAEV,UAAG,CAAI,aAAQ,IAAI,gBAAnB;AAEE,iBAAU;AACV;OAHF;AAMA,eAA2B,KAAlB,IAAI,iBAAC,EAAa,GAAE,CAAF,EAAW,aAAtC;AAAI;AAEF,YAAK,IAAI,YAAS,CAAC,CAAD;AAMlB,YAAG,CAAE,KAAG,uBAAR;AAEE,cAAQ,gCAAH,eAAF,CAAE,CAAL;AAEE,kBAAS,OAAF,EAAK,gCAAH;AACT,gBAAwB,CAAZ,GAAG,QAAS,GAAU,GAAG,eAAb,CAA8B,IAAgB,CAAX,GAAG,QAAQ,KAAG,uCAAH,CAAtE;AAEE,uBAAU;AACV;aAHF;WAHF;SAFF;;AAtB0B;AAAS;AA6fK;AAAd;AAE5B;AACA;AAEA,eAAU;AACV,eAAS,QAAuB,OAAlB,IAAI,iBAAC,EAAa,GAAE,CAAF,kBAAhC;AAAI;AAEF,YAAK,IAAI,YAAS,CAAC,CAAD;AAClB,YAAQ,gCAAH,eAAF,CAAE,CAAL;AAEE,cAAe,OAAF,EAAK,gCAAH,CAA+B,OAAnC,QAAX;AAEE,qBAAa,OAAF,EAAK,gCAAH,CAA+B,OAAO;AACnD,gBAAG,MAAH,EACE,KADF;WAHF;SAFF;;AAT0B;AAAc;AAxdI;AAE9C,UAAY,kBAAD,QAAX,EACE,kBAAa,UAAC,CAAU,KAAV,CADhB;AAF8C;AA1ND;AAE7C,0BAAgB;AAChB,+BAAoB,CAAC,SAAU,MAAX;AACpB,0BAAgB;AAChB;AAL6C;AAQI;AAArB;AAG5B,0BAAgB;AAChB,eAAU,aAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,+BAAoB,CAAC,OAAQ,MAAT;AACpB,0BAAgB;AAChB;AAP4B;AAAqB;AAlEZ;AAAT;AAG5B,0BAAgB;AAChB,eAAU,4BAAqB,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,YAAM,YAAW,aAAC,CAAa,gBAAU,WAAvB;AAClB,YAAM,QAAC,CAAQ,KAAR;AACP,UAAG,MAAO,KAAG,CAAC,CAAd;AAME,cAAM,SAAC,CAAS,UAAK,CAAC,MAAD,CAAd;OANT;AAUA,UAAG,OAAQ,KAAG,CAAC,CAAf;AAME,cAAM,UAAC,CAAU,UAAK,CAAC,OAAD,CAAf;OANT;AAUA,UAAG,SAAU,KAAG,EAAhB;AAEE,cAAM,SAAQ,wBAAsB,CAAC,UAAW,sCAAW,GAAvB;AACpC,cAAM,iBAAgB,wBAAsB,CAAC,UAAW,sCAAW,GAAvB;AAC5C,cAAM,cAAa,wBAAsB,CAAC,UAAW,sCAAW,GAAvB;OAJ3C;AAOA,UAAG,cAAe,KAAG,EAArB;AAEE,cAAM,SAAQ,wBAAsB,CAAC,eAAgB,sCAAW,GAA5B;AACpC,cAAM,iBAAgB,wBAAsB,CAAC,eAAgB,sCAAW,GAA5B;AAC5C,cAAM,cAAa,wBAAsB,CAAC,eAAgB,sCAAW,GAA5B;OAJ3C;AAOA,+BAAoB,CAAC,OAAQ,MAAT;AAEpB,0BAAgB;AAChB;AA5C4B;AAAS;AA6GG;AAAZ;AAE5B,0BAAgB;AAChB,eAAU,+BAAwB,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,+BAAoB,CAAC,OAAQ,MAAT;AACpB,0BAAgB;AAChB;AAN4B;AAAY;AAjCK;AAAjB;AAG5B,0BAAgB;AAChB,eAAU,6BAAsB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,YAAM,YAAW,aAAC,CAAa,gBAAU,WAAvB;AAClB,+BAAoB,CAAC,OAAQ,MAAT;AACpB,0BAAgB;AAChB;AAR4B;AAAiB;AAWA;AAAjB;AAG5B,0BAAgB;AAChB,eAAU,6BAAsB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,YAAM,YAAW,aAAC,CAAa,gBAAU,WAAvB;AAClB,+BAAoB,CAAC,OAAQ,MAAT;AACpB,0BAAgB;AAChB;AAR4B;AAAiB;AAxCH;AAAd;AAG5B,0BAAgB;AAChB,eAAU,0BAAmB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,YAAM,YAAW,aAAC,CAAa,gBAAU,WAAvB;AAClB,+BAAoB,CAAC,OAAQ,MAAT;AACpB,0BAAgB;AAChB;AAR4B;AAAc;AAmDD;AAAb;AAG5B,0BAAgB;AAChB,eAAU,yBAAkB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,YAAM,YAAW,aAAC,CAAa,gBAAU,WAAvB;AAClB,+BAAoB,CAAC,OAAQ,MAAT;AACpB,0BAAgB;AAChB;AAR4B;AAAa;AA7GE;AAAf;AAG5B,0BAAgB;AAChB,eAAU,2BAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,YAAM,YAAW,aAAC,CAAa,gBAAU,WAAvB;AAClB,+BAAoB,CAAC,OAAQ,MAAT;AACpB,0BAAgB;AAChB;AAR4B;AAAe;AAi7BY;AAA3B;AAE5B,eAAU;AAFkB;AAA2B;AA33CnC;;;;;;;;;AA6QA,+BAAO,UvG7tBjB,+BuG6tBiB,CAAP;AA7QA;AAwSN;AAk6M+B;AAE7C;AACA,+BAAa,CAAC,mBAAD;AAHgC;AAl6M/B;;;;;;;;;AAIqB,gDnGhnCvB,6CmGgnCuB;AACA,gDA9XC,mDA8XD;AACF,8CAjYC,iDAiYD;AACI,kDAjYC,qDAiYD;AACC,mDAlYA,qDAkYA;AACL,8CAjYC,iDAiYD;AACP,uCAjYC,0CAiYD;AACC,wCA/TM,gDA+TN;AACM,8CnGxnCrB,6CmGwnCqB;AACT,qCAnYM,6CAmYN;AAEN;AACG;AACD;AACD;AACC;AACQ;AACQ,iDAhUM,yDAgUN;AACV;AACL,kCAxbG,uCAwbH;AACA;AACI,sCnGroCb,6CmGqoCa;AACM;AACN,sC1BnnBL,wD0BmnBK;AACP;AACK;AACK,yCA9pCG,8CA8pCH;AACA;AACI;AACF;AACJ;AACU,iDAtpCG,sDAspCH;AACb;AACA;AACR;AACI,gCzBlyBQ,uEyBkyBR;AACW,2CzBpyBN,oEyBoyBM;AACF,yCzBryBJ,oEyBqyBI;AACb,4BzB9iBI,+DyB8iBJ;AACa,yClG19BtB,uCkG09BsB;AACN,mCAtYG,wCAsYH;AACM,yCvF1nClB,wCuF0nCkB;AACZ,6BAppCU,yCAopCV;AA9CF;;AAiDkB;;;AAE9B;AACA;AACA;AACA;AAL8B;;;;;;;;AA6yKgB;AAEhD,gBAAK,OAAO,CAAC,KAAD;AAFoC;AAWE;AAElD,kBAAO,OAAO,CAAC,KAAD;AAFoC;AANC;AAGnD,mBAAQ,OAAO,CAAC,KAAD;AAHoC;AAhBC;AAEpD,iBAAM;AAF8C;AA2BE;AAEtD,iBAAM;AAFgD;AAtBC;AAGvD,iBAAM;AAHiD;AA5BN;AAEjD,oBAAU;AACV,mBAAS,qDAAmB,QAAC,YAAM,CAAC,mEAAU,SzBx2L6G,QAAmD,GAAqD,EyBw2LhO,CAAN;AAC7B,qBAAW,uDAAqB,QAAC,YAAM,CAAC,qEAAU,OAAX,CAAN;AAEjC,gBAAK,WAAL,GAAoB;AACpB,kBAAO,WAAP,GAAsB;AACtB,sBAAY,wCAAc,QAAC;AAC3B,mBAAQ,QAAC,CAAQ,CAAR;AACT,mBAAQ,OAAC,CAAO,CAAP;AACT,mBAAQ,UAAC,CAAU,CAAV;AACT,mBAAQ,SAAC,CAAS,CAAT;AAZyE;AAAjC;AAeA;AAExC,eAAT,KAAS;AACH,eAAN,KAAM;AACE,eAAR,KAAQ;AACR;AALiD;AA1xKjB;AAiBZ,+BAAO,UAUL,oCAVK,CAAP;AAjBY;AAqBN;;AAEX,4BzBxmBI,+DyBwmBJ;AACE,8BzB7dI,iEyB6dJ;AAHS;AAMJ;;;AAEpB;AACA;AACA;AACA;AACA;AANoB;;;;;AA2nKsB;AAG5C,sBAAW,OAAO,CAAC,KAAD;AAH0B;AAMD;AAE3C,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd;OAHF;AAF2C;AASP;AAEpC,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAFoC;AASG;AAGvC;AACA;AAEA,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACV,iBAAS,QAAuB,OAAlB,IAAI,iBAAC,EAAa,GAAE,CAAF,kBAAhC;AAAI;AAEF,cAAK,IAAI,YAAS,CAAC,CAAD;AAClB,cAAQ,yBAAH,eAAF,CAAE,CAAL,EACK,OAAF,EAAK,yBAAH,CAAwB,SAAC,CAAS,WAAT,CAD9B;;OANJ;AANuC;AAjLA;AAAT;AAE9B,eAAU,2CAAkB,GAAE,wCAAF;AAFE;AAAS;AAKC;AAAV;AAE9B,eAAU,4BAAgB,CAAC,EAAS,EAAS,EAAS,CAA5B;AAFI;AAAU;AA8IM;AAE9C;AACA;AAH8C;AAgDD;AAE7C;AAKA;AAAG;AAEH;AAEA;AAEG;AAb0C;AAc7C,YAAG,iBAA0B,IAAV,gBAAH,IAAgB,mBAAhC,EACE,MADF;AAGA,4BAAgB;AAChB,YAAK;AACL,cAAO,oBAAe,CAAC,EAAD;AAEtB,YAAG,eAAH;AAEE;AACA;SAHF;AAMA,YAAG,cAAH;AAEE,mBAAS,QAAuB,OAAlB,IAAI,iBAAC,EAAa,GAAE,CAAF,kBAAhC;AAAI;AAEF,gBAAK,IAAI,YAAS,CAAC,CAAD;AAUlB,gBAAG,uBAAQ,CAAC,iDAAG,iEAAqB;;;;gBAAzB,CAAX,EACE,EAAE,gBAAC,CAAgB,sBAAhB,CADL;AAKA,gBAAG,CAAC,SAAJ,EACE,IAAK,UAAK,CAAC,QAAG,CAAC,EAAG,CAAC,OAAC,EAAe,GAAT,CAAC,UAAC,EAAJ,GAAa,gBAAU,SAAQ,QAAzC,CAAJ,CADZ;;AAKF,cAAG,CAAE,KAAE,CAAP,EACE,IAAK,GADP;AAGA,cAAG,2CAAY,IAAG,oBAAlB,EACE,IAAK,CAAE,GAAE,oBAAe,CAAC,EAAD,CAD1B;AAOA,wBAAS,CAAC,eAAM,cAAK,gBAAO,CAAnB;SAlCX;AAsCA,4BAAgB;AAjE6B;AAa1C;AAFH;AAX6C;;AAzLI;AAEjD;AACA;AAEA,eAAS,QAAuB,OAAlB,IAAI,iBAAC,EAAa,GAAE,CAAF,kBAAhC;AAAI;AAEF,YAAK,IAAI,YAAS,CAAC,CAAD;AAMlB,YAAQ,yBAAH,eAAF,CAAE,CAAL;AAEK,iBAAF,EAAK,yBAAH,CAAwB,mBAA3B,GAAiD;AACjD,cAAM,OAAF,EAAK,yBAAH,CAAwB,gBAA9B,EACE,QADF;SAHF;AAOA,YAAG,CAAC,SAAJ;AAWE,cAAG,CAAC,OAAC,EAAI,GAAE,gBAAU,SAAQ,KAA7B,EACE,CAAC,OAAC,CAAO,UAAK,CAAC,gBAAU,SAAQ,KAAnB,CAAZ,CADJ;AAEA,cAAG,CAAC,QAAC,EAAK,GAAE,gBAAU,SAAQ,MAA9B;AACE,aAAC,QAAC,CAAQ,UAAK,CAAC,gBAAU,SAAQ,MAAnB,CAAb;AACC,oBAAU,CAAP,CAAC,QAAC,EAAK,GAAE,CAAC,SAAC,EAAJ,CAAU,GAAQ,CAAN,eAAM,GAAE,gBAAU,SAAQ,OAApB,CAA5B,EACH,CAAC,QAAC,CAAQ,UAAK,CAAC,eAAiC,GAAzB,gBAAU,SAAQ,OAApB,GAA6B,CAAC,SAAC,EAAtC,CAAb,CADC;SAfP;;AApB+C;AAsDD;AAEhD;AAAG;AACH;AAAI;AACJ;AAAG;AAEH,eAAS,QAAuB,OAAlB,IAAI,iBAAC,EAAa,GAAE,CAAF,kBAAhC;AAAI;AAEF,YAAK,IAAI,YAAS,CAAC,CAAD;AAOlB,YAAG,CAAI,CAAC,SAAR,EACE,QADF;AAGA,YAAQ,yBAAH,eAAF,CAAE,CAAL;AAEE,cAAM,OAAF,EAAK,yBAAH,CAAwB,gBAA9B,EACE,QADF;SAFF;AAMA,iBAAS,SAAuB,QAAlB,IAAI,iBAAC,EAAa,GAAE,CAAF,qBAAhC;AAAI;AAEF,eAAM,IAAI,YAAS,CAAC,CAAD;AAEnB,cAAO,CAAH,EAAG,KAAE,CAAF,CAAK,IAAG,CAAI,EAAE,SAArB,EACE,QADF;AA4BA,qBAAM,+BAAK,CAAC,CAAC,QAAC,GAAM,CAAC,OAAC,GAAK,CAAC,QAAC,EAAK,GAAE,CAAC,SAAC,EAAJ,CAAW,CAAC,OAAC,EAAI,GAAE,CAAC,UAAC,EAA5C,CAAX;AACA,sBAAO,+BAAK,CAAC,EAAE,QAAC,GAAM,EAAE,OAAC,GAAK,EAAE,QAAC,EAAK,GAAE,EAAE,SAAC,EAAL,CAAY,EAAE,OAAC,EAAI,GAAE,EAAE,UAAC,EAAlD,CAAZ;AAEA,cAAa,CAAT,GAAG,KAAM,IAAW,CAAR,EAAE,KAAM,GAAE,CAAF,CAAX,CAAgB,IAAc,CAAT,GAAG,KAAM,IAAY,CAAT,EAAE,MAAO,GAAE,CAAF,CAAZ,CAA3C;AAEE,gBAAY,CAAR,GAAG,IAAK,GAAE,uCAAa,CAAC,EAAD,CAAI,EAAnB,CAAuB,IAAa,CAAR,GAAG,IAAK,IAAU,CAAP,EAAE,IAAK,GAAE,CAAF,CAAV,CAAhD;AAEE,gBAAE,QAAC,CAAQ,CAAC,QAAC,EAAe,GAAR,CAAC,SAAC,EAAJ,GAAY,CAA3B;AACH,gBAAE,OAAC,CAAO,CAAC,OAAC,EAAT;aAEA,UAAY,CAAR,GAAG,IAAK,IAAG,uCAAa,CAAC,EAAD,CAAI,EAApB,CAAwB,IAAa,CAAR,GAAG,IAAK,IAAa,CAAV,EAAE,OAAQ,GAAE,CAAF,CAAb,CAAjD;AAEH,gBAAE,OAAC,CAAO,CAAC,OAAC,EAAe,GAAT,CAAC,UAAC,EAAJ,GAAa,CAA1B;AACH,gBAAE,QAAC,CAAQ,CAAC,QAAC,EAAV;aAHA;WAPP;;;AA3D4C;AAuMF;AAE9C;AAF8C;AAlWL;AAEzC;AAEA;AACA,UAAK;AACL,UAAG,wCAAa,wBAAwB,CAAC;;;;UAAD,CAAxC;AAEE,wBAAU,MAAK,QAAC,CAAQ,kEAAR;AAChB,wBAAU,MAAK,SAAC,CAAS,CAAT;OAHlB;AAMA,UAAG,wCAAa,0BAA0B,CAAC;;;;UAAD,CAA1C;AAEE,wBAAU,MAAK,QAAC,CAAQ,qEAAR;AAChB,wBAAU,MAAK,WAAC,CAAW,CAAX;OAHlB;AAZyC;AAwOS;AAElD;AAFkD;AAhLN;AAE5C;AACA;AAH4C;AArCP;AAErC;AACA,UAAa,2BAAH,eAAP,MAAO,CAAV;AAEE,wBAAU,OAAO,CAAS,OAAP,OAAU,2BAAH,CAA0B,YAAnC;AACjB,mBAAoB,OAAP,OAAU,2BAAH,CAA0B,UAA9C;AACA,0BAAqB,OAAP,OAAU,2BAAH,CAA0B,WAA/C;AACA,sBAAiB,OAAP,OAAU,2BAAH,CAA0B,OAA3C;OAGA;AAXmC;AAcE;AAEvC;AACA,oBAAU;AACV,yBAAe,+BAA0B,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,uBAAa;AACb,wBAAc;AAKd,oBAAS,mCAAT;AAEA,qBAAU,EAAV;AAb4D;AAArB;AAgBA;AAE3B,eAAZ,KAAY;AACZ;AAHuC;AA8FJ;AAEnC;AAEA;AACA,eAAS,MAAK,OAAO,CAAC,gBAAU,MAAX;AACrB,eAAS,QAAO,OAAO,CAAC,gBAAU,QAAX;AAEvB,gBAAK,mBAAL;AACA,eAAS,gBAAc,CAAC,2CvB9qMuE,6EuB8qMxE;AATY;AAjKK;AAAV;AAE9B,0BAAgB;AAChB,eAAU,mBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAQzB,YAAM,UAAC,CAAU,IAAV;AAGP,0BAAgB;AAChB;AAf8B;AAAU;AAr3JlB;;;;;;;AAsCF,+BAAO,UvG12BjB,+BuG02BiB,CAAP;AAtCE;AAkDN;;;;;;;;AAEE;AACG,kCA3DK,yCA2DL;AACF;AACC;AACJ,6BA1uCU,yCA0uCV;AANA;;AAt6ClB,mBAs7Cc;AAkBA;;;;AAlBA;AA4zMd;AACE,6BAAa,CAAC,yBAAD;AAEb,2CAAa,mBAAmB,CAAC,2BAAD;AAHlC;AAlvPA,GAs7Cc,oEAt7Cd;ACDA,gCAqBS,sRArBT;;;;AA+CS,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AAmCM,0BAAG;AAGJ;;AAGY;;AAsFhB;AAlFc;;;AAEvB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAjBuB;;;;;;AA6/EuB;AAEhD,uBAAY,OAAO,CAAC,KAAD;AAF6B;AA0BF;AAE9C,qBAAU,OAAO,CAAC,KAAD;AAF6B;AAND;AAE7C,UAAG,KAAM,GAAE,CAAX,EACE,iBAAa,KADf;AAF6C;AAfF;AAE3C,qBAAW;AAFgC;AA0BD;AAE1C,oBAAU;AAFgC;AArBQ;AAElD,4BAAkB;AAFgC;AAKD;AAEjD,2BAAiB;AAFgC;AAzCP;AAEhC;AACV,2BAAiB;AACjB,oBAAU;AACV,2BAAiB;AACjB,qBAAW;AACX,4BAAkB;AAClB,0BAAgB,uBAAW,QAAC;AAC5B,uBAAY,UAAC,CAAU,IAAV;AACb,uBAAY,YAAZ,GAA4B;AAC5B,wBAAc,uBAAW,QAAC;AAC1B,oBAAU;AACV,2BAAiB;AACjB,uBAAa;AACb,sBAAY;AACZ,wBAAc;AAhB6B;AAAD;AAmBA;AAE/B,eAAX,KAAW;AACE,eAAb,KAAa;AACb;AAJ0C;AA1CF;AAExC,UAAc,8BAAH,eAAP,MAAO,CAAX;AAEE,4BAAwB,OAAP,OAAU,8BAAH,CAA6B;AACrD,8BAA0B,OAAP,OAAU,8BAAH,CAA6B;AACvD,sBAAkB,OAAP,OAAU,8BAAH,CAA6B;AAC/C,6BAAyB,OAAP,OAAU,8BAAH,CAA6B;AACtD,yBAAY,OAAO,CAAS,OAAP,OAAU,8BAAH,CAA6B,aAAtC;AACnB,wBAAoB,OAAP,OAAU,8BAAH,CAA6B;AACjD,wBAAoB,OAAP,OAAU,8BAAH,CAA6B;AACjD,yBAAqB,OAAP,OAAU,8BAAH,CAA6B;AAClD,uBAAU,OAAO,CAAS,OAAP,OAAU,8BAAH,CAA6B,WAAtC;AACjB,sBAAkB,OAAP,OAAU,8BAAH,CAA6B;AAC/C,0BAAsB,OAAP,OAAU,8BAAH,CAA6B;AACnD,sBAAkB,OAAP,OAAU,8BAAH,CAA6B;AAC/C,uBAAmB,OAAP,OAAU,8BAAH,CAA6B;AAChD,6BAAyB,OAAP,OAAU,8BAAH,CAA6B;AACtD,8BAA0B,OAAP,OAAU,8BAAH,CAA6B;AACvD,6BAA0B,OAAP,OAAU,8BAAH,CAA6B;OAjBzD;AAFwC;AA58Ef;AA6BL;AAII;AACD;AACD,mCxG6OX,iCwG7OW;AACJ;AACA;AACC;AACC,iCxGyOT,iCwGzOS;AACJ;AACI;AACJ;AACC;AACM;AACC;AACD;AA9CE;AAiDG,mFAAmB,UjHhCxC,2BiHgCwC,EAAoB,sBAAvC;AACK,wFAAmB,UjHjC7C,2BiHiC6C,EAAgB,sBAAoB,sBAAvD;AACH,qFAAmB,UjHlC1C,2BiHkC0C,EAAgB,qBAAc,QxGsFvE,6BwGtFuE,EAAyB,2BAA1E;AAEF;AAEJ;;;AAEtB;AAFsB;AAquFiB;AAEzC,kBAAQ;AAFiD;AAAhB;AAruFjB;AASP;;AAkBN;;;AAET;AAEA;AAGA;AAQA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAzCS;;;;;;;;;;;;;;;;;AA+zDoB;AAE/B,UAAG,eAAH,EACE,eADF;AAGA,UAAY,gBAAD,QAAX;AAEE,YAAG,gBAAW,QAAd,EACE,oBADF;AAEA,wBAAW,UAAC,CAAU,KAAV;OAJd;AAL+B;AAaD;AAE9B;AAAK;AACL;AACA;AAAY;AACZ;AAEA,UAAG,CAAY,CAAC,mBAAD,SAAf,EACE,MADF;AAGA,UAAI,mBAAc,aAAC,EAAU,KAAG,CAAC,CAAjC;AAEE,cAAO,CAAC;AACR,cAAO,mBAAc,OAAM,UAAQ,CAAC,mBAAc,aAAC,EAAhB;AACnC,YAAY,GAAD,QAAX,EACE,MAAgC,GAAI,KADtC;AAGA,YAAS,CAAJ,GAAI,IAAG,CAAH,CAA2C,IAA5B,CAAJ,GAAI,GAAE,YAAO,WAAU,SAAC,EAApB,CAAT,IAAyC,YAAM,cAA9D;AACE,qBAAY,YAAO,WAAU,IAAQ,CAAC,GAAD;AAErC,yBAAY,mBAAc,OAAM,KAAC,mBAAc,aAAC,EAAhB;AAElC,YAAY,oBAAD,QAAX,EACE,oBAAe,CAAC,KAAM;;;;YAAP,CADjB;AAGA,YAAY,yBAAD,QAAX,EACE,yBAAoB,CAAC,KAAM,IAAK;;;;YAAZ,CADtB;AAGA,YAAG,YAAO,OAAV;AAEE,qBAAY,QAAS,GAAE,YAAO,WAAT;AACrB,uBAAc;AACd,oBAAW;AACX,eAAM,CAAC;AACP,iBAAM,sCAAY,OAAO,CAAC,YAAO,YAAY,WAAY;;;;cAAhC,CAAoC,GAAE,CAA/D;AAEE,sBAAW,OAAQ,GAAE,eAAI,CAAC,WAAY,EAAG,EAAhB,CAAN;AACnB,6BAAM,CAAC;;;;iBAAY,EAAG,EAAhB;;AAER,oBAAQ,OAAQ,GAAE,QAAlB;SAIA,gBAAQ,QAAR;AAEF,YAAG,YAAO,OAAV;AACE,2BAAmB,WAAD,OAAlB;AAEA;AAGF;OAzCF;AAV8B;AAwOQ;AAEtC;AAAG;AACH;AAAG;AAEH,UAAG,CAAI,kBAAP,EACE,MADF;AAGA,UAAK;AACL,WAAM;AACN,UAAU,CAAD,OAAI,IAAG,CAAhB;AAEE,iBAAS,QAAwB,OAAnB,YAAO,aAAY,SAAC,IAAD,gBAAjC;AAAI;AAEF,cAAG,YAAO,eAAV;AAEE,gBAAG,cAAG,CAAC,EAAG,YAAO,aAAa,IAAQ,CAAC,CAAE,GAAE,CAAL,CAAhC,CAAyC,KAAE,CAAjD;AAEE,mBAAM,YAAO,aAAa,IAAQ,CAAC,CAAE,GAAE,CAAL;AAClC;aAHF;;AAQA,iBAAM,cAAG,CAAC,uCAAa,CAAC,CAAD,EAAK,uCAAa,CAAC,YAAO,aAAa,IAAQ,CAAC,CAAE,GAAE,CAAL,CAA7B,CAAhC;AACT,gBAAI,EAAG,KAAE,CAAT;AAEE,mBAAM,YAAO,aAAa,IAAQ,CAAC,CAAE,GAAE,CAAL;AAClC;aAHF;;;AAQJ,YAAI,EAAG,KAAG,EAAV;AAEE,oBAAQ,iBAAW,CAAC,EAAD,CAAnB;AACA,2BAAmB,CAAD,OAAlB;AACA,4BAAoB,WAAD,OAAO,GAAE,kBAA5B;SAJF;OAvBF;AAVsC;AAjLT;AAE7B,kBAAO,OAAO,CAAC,KAAD;AAFe;AA15BF;AAAR;AAEnB,eAAU,YAAuF,IAAlE,CAAT,gBAAS,IAAG,cAAC,6BAAS,mCAAe,+BAAW,qCAAiB,4BAArD,CAAH,CAAd,IAAwF,CAAH,EAAG,KAAE,GAAF,CAAR;AAF9E;AAAQ;AAZG;AAAX;AAEnB;AAEA,UAAK,sBAAgB,CAAC,CAAD;AACrB,UAAK,cAAG,CAAC,2BAAc,kBAAmB,CAAlC;AACR,UAAI,CAAE,GAAE,CAAR;AAAgB,iBAAU;AAAO,qBAAiB,CAAD,OAAI,GAAE,CAAF;AAErD,UAAG,YAAuF,IAAlE,CAAT,gBAAS,IAAG,cAAC,6BAAS,mCAAe,+BAAW,qCAAiB,4BAArD,CAAH,CAAd,IAAgG,CAAX,cAAG,CAAC,IAAI,CAAL,CAAQ,GAAE,CAAF,CAA1G,EACE,SAAU,MAAO,GAAE,CADrB;AARmB;AAAW;AAioCD;AAE7B,qBAAW;AAFkB;AAKA;AAE7B,qBAAW;AAFkB;AAKE;AAE/B,UAAG,yCAAU,IAAG,oBAAhB,EACE,MADF;AAGA,UAAG,cAAH,EACE,MADF;AAGA,yBAAe;AARgB;AAWF;AAAV;AAEnB;AAEA,UAAK,cAAG,CAAC,2BAAc,kBAAmB,IAAI,KAAC,EAAvC;AACR,UAAI,CAAE,KAAE,CAAR;AAAgB,iBAAiB,YAAD,OAAgD,GAA7B,IAAI,KAAC,EAAN,OAAR,GAA6B,YAAD,OAAR,GAAoB,CAAF;AAC3E,qBAAiB,YAAD,OAAU,GAAE,CAAF;AANZ;AAAU;AASK;AAElC;AAAG;AAAI;AACP;AACA;AAAO;AAAa;AAcpB,UAAK,IAAI,KAAC;AACV,cAAgB,CAAD;AAEf,UAAG,mBAAU,KAAE,CAAf;AACE,sBAAe;AAEf,0BAAe,kBAAS,GAAE,mBAAF;AAE1B,UAAI,CAAE,KAAE,EAAR,EACE,MADF;AAGA,UAAI,cAAG,CAAC,IAAK,CAAN,CAAS,KAAE,CAAlB;AAEE,yBAAM,CAAC;;;;aAAG,EAAG,CAAP;AACN,cAAO;OAGP,YAAO;AAET,UAAI,cAAG,CAAC,2BAAc,kBAAmB,CAAlC,CAAqC,GAAE,CAA9C;AACE,YAAK,eAAI,CAAC,EAAG,cAAG,CAAC,2BAAc,kBAAmB,CAAlC,EAAsC,GAA7C;AAET,gBAAK;AAEP,UAAK,gBAAK,CAAC,QAAG,CAAC,IAAI,SAAC,EAAN,CAAJ;AAEV,UAAG,2BAAH;AACE,aAAM,mBAAM,CAAC,KAAM,mBAAC,GAAD,CAAP;AAEZ,iBAAM,mBAAM,CAAC,KAAM,mBAAC,GAAD,CAAP;AAEd,WAAM,eAAI,CAAC,GAAI,EAAG,cAAG,CAAC,2BAAc,kBAAmB,EAAlC,CAAsC,GAAE,CAAnD;AAEV,gBAAW;AACX,wBAAc;AAEd,0BAAiB,WAAK,KAA0B,CAAvB,YAAuB,GAAb,GAAF,GAAQ,EAAF,GAAO,CAAF,GAAM,YAAF,CAA1B;AAEtB,UAAG,iBAAH;AAGmB,6DAAC,YAAuB,GAAb,GAAF,GAAQ,EAAF,GAAO,CAAF,GAAM,YAA1B;OAHnB;AAUA,0BAAgB;AAEhB,wBAAc;AAEd,cAAgB,IAAI,KAAC,EAAN,OAAY,GAAE,KAAF;AAE3B,uBAAY,WAAY,GAAE,KAA1B;AACA,wBAAa,CAAb;AAzEkC;AAyIP;AAAR;AAEnB;AAEA,eAAU;AACL;AACH,UADG,IACH;AAAO,YAAG,IAAI,KAAC,EAAK,KAAG,EAAhB,EAAwB,SAAU,cAAQ,CAAC,IAAI,KAAC,EAAN,CAA1C;AACP,gBAFG,IAEH;AAGI,iBAAU,gBAAW,CAAC,IAAI,KAAC,EAAN;OAEzB,WAPG,IAOH,wCAAW,CAPR,IAOQ,kCAAX,IAAoB,CAPjB,IAOiB,wCAApB,IAAmC,CAPhC,IAOgC,0CAAnC;AACE,YAAI,IAAI,KAAC,EAAK,KAAG,EAAjB;AAEE,cAAK,IAAI,KAAC;AACV,cAAI,CAAE,KAAE,GAAR;AACE,qBAAU;AAEV,yBAAU,gBAAW,CAAC,CAAD;SANzB;AAQF,gBAhBG,IAgBH,mCACE,IAAG,IAAI,KAAC,EAAK,KAAG,EAAhB;AAEE,YAAK,sBAAgB,CAAC,IAAI,KAAC,EAAN;AACrB,YAAI,cAAG,CAAC,2BAAc,kBAAmB,CAAlC,CAAqC,KAAS,CAAD,OAApD,EAA8D,iBAAM,CAAC;;;;aAAG,cAAG,CAAC,2BAAc,kBAAmB,CAAlC,EAAsC,CAA7C,CAApE;AACA,YAAM,CAAF,CAAE,KAAE,EAAF,CAAM,IAAM,CAAF,CAAE,KAAE,GAAF,CAAlB;AAA8B,mBAAU;AACtC,uBAAU,gBAAW,CAAC,CAAD;OAN3B;AArBiB;AAAQ;AAvCC;AAE5B;AAEK;AACH,UADG,IACH;AAAO,YAAI,KAAC,CAAQ,qBAAQ,CAAC,gBAAK,CAAC,KAAD,EAAS,CAAf,CAAhB;AACZ,iBAFG,IAEH,wCAAW,CAFR,IAEQ,0CAAX;AACE,YAAI,eAAW,IAAG,CAAlB;AACE,cAAI,KAAC,CAAQ,mBAAM,CAAC,IAA4B,GAArB,qBAAQ,CAAC,eAAD,CAAV,GAAyB,GAAF,CAAO,mBAAC,OAAD,CAApC,CAAd;AAEA,cAAL,IAAI,KAAC,CAAQ,mBAAM,CAAC,KAAM,mBAAC,OAAD,CAAP,CAAd;AACT,iBAPG,IAOH,sCAAS,CAPN,IAOM,wCAAT,IAAwB,CAPrB,IAOqB,mCAAxB;AACE,YAAI,eAAW,IAAG,CAAlB;AAEE,cAAK,mBAAM,CAAC,IAA4B,GAArB,qBAAQ,CAAC,eAAD,CAAV,GAAyB,GAAF,CAAO,mBAAC,OAAD,CAApC;AACX,cAAI,KAAC,CAAQ,CAAR;SAGA,MAAL,IAAI,KAAC,CAAQ,mBAAM,CAAC,KAAM,mBAAC,OAAD,CAAP,CAAd;AACT,gBAfG,IAeH;AAEI,YAAI,eAAW,IAAG,CAAlB;AACE,cAAI,KAAC,CAAQ,mBAAM,CAAC,IAA4B,GAArB,qBAAQ,CAAC,eAAD,CAAV,GAAyB,GAAF,CAAO,mBAAC,OAAD,CAApC,CAAd;AAAqE,cAAL,IAAI,KAAC,CAAQ,mBAAM,CAAC,KAAM,mBAAC,OAAD,CAAP,CAAd;AAC5E;OAJJ;AAOF,sBAAW,CAAC,IAAD;AA1BiB;AAjBgB;AAE5C,oCAA0B;AAC1B,UAAG,gBAAU,IAAG,cAAC,+BAAW,qCAAiB,6BAAS,6BAAS,kCAA/C,CAAhB,EAAmF,qBAAnF;AAH4C;AAwFZ;AAEhC;AAEA,UAAe,CAAX,eAAW,KAAG,KAAH,CAAU,IAAc,CAAT,gBAAS,IAAG,cAAC,6BAAS,mCAAe,6BAAS,6BAAlC,CAAH,CAAvC;AAEE,0BAAc;AACd,YAAS,CAAL,WAAK,KAAG,EAAH,CAAO,IAAI,CAAI,2BAAxB;AAEE,eAAM,YAAM,CAAC,IAAI,KAAC,EAAN;AACZ,cAAI,EAAG,IAAG,cAAC,kCAAS,mCAAV,CAAV;AACE,0BAAc,eAAd;AAEA,8BAAc,GAAd;SANJ;OAHF;AAJgC;AAkBO;AAEvC,UAAI,sBAAkB,KAAG,KAAzB;AAEE,iCAAqB;AACrB,sBAAc,eAAd;OAHF;AAFuC;AAST;AAAX;AAEnB,eAAU;AAEV,UAAG,cAAG,CAAC,2BAAc,mBAAoB,CAAnC,CAAsC,GAAE,CAA9C,EACE,IAAK,sBAAgB,CAAC,CAAD,CADvB;AAGA,UAAe,CAAX,eAAW,GAAE,CAAF,CAAK,IAAe,CAAH,CAAD,OAAI,GAAE,eAAF,CAAnC,EACE,IAAG,CAAC,QAAQ,CAAD,OAAsC,GAAE,eAAF,IAA7C,CAA2D,KAAE,2BAAc,kBAAiC,QAAC,EAAD,CAAhH,EACE,CAAC,iBAAD,EAAS,CAAD,OAAsC,GAAE,eAAF,KAAiB,2BAAc,iBAAgC,QAAC,EAAD,CAA5G,CAFL;AAGA;AACE,kCAAa,CAAC,EAAG;;;;YAAJ;AADf;AAGE,iBAAU;AAHZ;AAVmB;AAAW;AAiBL;AAAN;AAEnB,eAAU;AACL;AACH,UADG,IACH;AAAO,YAAI,IAAI,KAAC,EAAK,KAAG,EAAjB,EAA0B,SAAU,cAAQ,CAAC,IAAI,KAAC,EAAN,CAA5C;AACP,iBAFG,IAEH,8CAAiB,CAFd,IAEc,oCAAjB,IAA4B,CAFzB,IAEyB,wCAA5B,IAA2C,CAFxC,IAEwC,kCAA3C;AAAoD,iBAAU,YAAM,CAAC,IAAI,KAAC,EAAN;AACpE,gBAHG,IAGH,mCAAS,SAAU,YAAM,CAAC,sBAAgB,CAAC,IAAI,KAAC,EAAN,CAAjB,CAAzB;AANiB;AAAM;AAyBC;AAErB;AACH,UADG,IACH;AAAO,YAAI,KAAC,CAAQ,qBAAQ,CAAC,MAAO,CAAR,CAAhB;AACZ,iBAFG,IAEH,8CAAiB,CAFd,IAEc,oCAAjB,IAA4B,CAFzB,IAEyB,wCAA5B,IAA2C,CAFxC,IAEwC,kCAA3C;AAAoD,YAAI,KAAC,CAAQ,qBAAQ,CAAC,KAAD,CAAhB;AACzD,gBAHG,IAGH;AAEI,YAAI,KAAC,CAAQ,qBAAQ,CAAC,KAAD,CAAhB;AACL;OAHJ;AAMF,sBAAW,CAAC,IAAD;AAXe;AA7oBK;AAE/B;AAEA,UAAG,gBAAU,KAAG,KAAhB;AAEE,2BAAa;AAEb,YAAI,yCAAU,IAAG,oBAAjB,EACE,MADF;AAGA,YAAS,CAAL,WAAK,KAAG,EAAH,CAAO,IAAI,CAAI,2BAAxB;AAEE,eAAM,YAAM,CAAC,IAAI,KAAC,EAAN;AACP;AACH,cADG,IACH;AAAO,gBAAG,CAAQ,CAAH,EAAG,IAAG,cAAC,oCAAW,+BAAZ,CAAH,CAAX,EAAuC,IAAI,OAAC,CAAY,CAAZ,CAA5C;AACP,qBAFG,IAEH,wCAAW,CAFR,IAEQ,0CAAX;AAA4B,gBAAI,EAAG,KAAG,mCAAV,EAA0B,IAAI,OAAC,CAAY,CAAZ,CAA/B;AAC5B,qBAHG,IAGH,sCAAS,CAHN,IAGM,wCAAT,IAAwB,CAHrB,IAGqB,kCAAxB,EAAiC,IAAG,CAAQ,CAAH,EAAG,IAAG,cAAC,kCAAS,mCAAV,CAAH,CAAX,EAAyC,IAAI,SAAC,CAAc,GAAd,CAA/E;SANJ;AAUA,YAAgB,CAAZ,2CAAY,IAAG,oBAAH,CAAmH,IAA5F,CAAc,CAAV,yCAAU,IAAG,oBAAH,CAAlB,IAAgE,CAAX,CAAV,gBAAU,KAAE,4BAAF,CAAW,IAAc,CAAV,gBAAU,KAAE,kCAAF,CAAd,CAA3B,IAA0E,CAAV,eAAU,KAAE,CAAF,CAAlJ,EACE,kBAAa,CAAb,CADF;OAjBF;AAsBK;AACH,WADG,KACH,2CAAc,CADX,KACW,yCAAd,IAA8B,CAD3B,KAC2B,kCAA9B,IAAuC,CADpC,KACoC,mCAAvC,IAAiD,CAD9C,KAC8C,sCAAjD,IAA8D,CAD3D,KAC2D,sCAA9D,IAA2E,CADxE,KACwE,sCAA3E;AAAkG,yBAAY,yCAAZ;AAClG,gBAFG,KAEH;AAAqB,yBAAY,0CAAZ;AACrB,gBAHG,KAGH;AAA2B,yBAAY,gDAAZ;AAC3B,gBAJG,KAIH;AAAmB,yBAAY,wCAAZ;AACnB,gBALG,KAKH;AAAyB,yBAAY,8CAAZ;AACzB,gBANG,KAMH,iCAAiB,iBAAY,sCAAZ,CAAjB;AAGF,uBAAY,8CAAZ;AACK;AACH,UADG,KACH;AAAa,yBAAY,iDAAZ;AACb,gBAFG,KAEH;AAAa,yBAAY,iDAAZ;AACb,gBAHG,KAGH,uCAAa,iBAAY,iDAAZ,CAAb;AAvC6B;AA51BO;AAAnB;AAEnB,eAAkB,CAAC,gBAAD,SAAc,IAAI,gBAAW,QAAf;AAFb;AAAmB;AAlQN;AAAb;AAMnB,eAAU;AANS;AAAa;AAqBC;AAMjC,yBAAe;AANkB;AAXK;AAEtC;AAEA,UAAK,cAAG,CAAC,2BAAc,kBAAmB,IAAI,KAAC,EAAvC;AACR,UAAI,CAAE,GAAE,CAAR;AACE,yBAAY,CAAE,GAAS,YAAD,OAAtB;AAEA,6BAAmB,YAAD,OAAlB;AARoC;AAqyCN;AAEhC;AAAG;AACH;AAAI;AAAI;AAAI;AACZ;AACA;AACA;AACA;AAEA,UAAG,CAAY,CAAC,YAAD,SAAiC,IAApB,CAAI,YAAO,SAAd,IAA0B,CAAY,CAAC,mBAAD,SAA/D,EACE,MADF;AAGA,UAAG,YAAO,OAAV;AAEE,qBAAc;AACd,aAAM,CAAC;AACP,eAAM,sCAAY,OAAO,CAAC,YAAO,YAAY,WAAY;;;;YAAhC,CAAoC,GAAE,CAA/D,EACE,iBAAM,CAAC;;;;aAAY,EAAG,EAAhB;OAGR,mBAAc;AAEhB,UAAU,UAAD,OAAa,IAAG,YAAO,UAAhC;AAEE,aAAwB,CAAjB,EAAiB,GAAE,YAAO,cAAT,CAAwB,GAAE,CAAF;AAChD,2BAAc,UAAC,CAAU,IAAV;AACf;AACA,2BAAc,OAAM;AAOpB,iBAAS,QAAwB,OAAnB,YAAO,aAAY,SAAC,IAAD,gBAAjC;AAAI;AAEF,cAAG,YAAO,eAAV;AAEE,gBAAG,cAAG,CAAC,WAAY,YAAO,aAAa,IAAQ,CAAC,CAAE,GAAE,CAAL,CAAzC,CAAkD,KAAE,CAA1D;AAEE,oBAAO,6BAAwB,QAAC,YAAM,CAAC,CAAE,GAAE,CAAL,CAAN;AAChC,iCAAc,OAAM,UAAU,CAAC,iBAAW,CAAC,YAAO,aAAa,IAAQ,CAAC,CAAE,GAAE,CAAL,CAA7B,EAAuC,GAAnD;AAC9B,sCAAmB,IAAI,CAAC,GAAD;aAJzB;;AASA,iBAAM,cAAG,CAAC,uCAAa,CAAC,UAAD,EAAc,uCAAa,CAAC,YAAO,aAAa,IAAQ,CAAC,CAAE,GAAE,CAAL,CAA7B,CAAzC;AAET,gBAAG,oBAAH;AACE,wBAAW,EAAG,GAAE,CAAF;AAEd,4BAAW,EAAG,KAAE,CAAF;AAEhB,gBAAG,OAAH;AAEE,oBAAO,6BAAwB,QAAC,YAAM,CAAC,CAAE,GAAE,CAAL,CAAN;AAChC,iCAAc,OAAM,UAAU,CAAC,iBAAW,CAAC,YAAO,aAAa,IAAQ,CAAC,CAAE,GAAE,CAAL,CAA7B,EAAuC,GAAnD;AAC9B,sCAAmB,IAAI,CAAC,GAAD;aAJzB;;;AASJ,cAAO;AACP,6BAAgB,CAAC,WAAY,mBAAc,QAAQ;;;;YAAnC;AAChB,cAAO,mBAAc,OAAM,SAAC;AAM5B,YAA+B,CAA3B,YAAO,aAAa,SAAC,EAAM,GAAE,CAAF,CAAK,IAAgC,CAA3B,mBAAc,OAAM,SAAC,EAAM,GAAE,CAAF,CAApE,EACE,mBAAc,aAAC,CAAa,GAAb,CADjB;AAGA,YAAG,GAAI,GAAE,YAAO,cAAhB,EACE,KAAW,CAAJ,GAAI,GAAE,EAAF,CAAoB,GAAE,CADnC;AAGA,2BAAc,UAAC,CAAU,IAAV;AACf,aAAM;AACN,wBAAW,iBAAC,CAAiB,CAAjB;AAEZ,YAAG,GAAI,GAAE,CAAT;AAEE,mBAAS,SAAK,gCAAd;AAAI;AAEF,iBAAM;AACN,gBAAY,mBAAc,UAAC,EAAhB,QAAX,EACE,KAAM,UAAK,CAAC,mBAAc,UAAC,EAAM,UAAU,CAAC,mBAAc,OAAM,KAAC,CAAE,GAAE,CAAL,CAArB,CAAhC,CADb;AAGA,gBAAG,EAAG,GAAE,EAAR,EACE,KAAM,EADR;;AAIF,eAAM,EAAG,GAAE,EAAF;SAZX;AAeA,YAAI,YAAO,OAAO,GAAE,CAApB,EACE,KAAM,YAAO,OADf;AAGA,YAAI,YAAO,QAAQ,GAAE,CAArB,EACE,KAAM,YAAO,QADf;AAGA,wBAAW,oBAAC,CAAoB,IAApB;AAEZ,YAAI,GAAI,GAAE,CAAV;AAEE,0BAAW,iBAAC,CAAiB,QAAG,CAAC,YAAM,eAAe,EAAtB,CAApB;AACZ,0BAAW,kBAAC,CAAkB,QAAG,CAAC,YAAM,gBAAgB,EAAvB,CAArB;AACZ,cAAG,gBAAW,eAAd;AAEE,+BAAc,UAAC,CAAU,gBAAW,WAArB;AACf,4BAAW,WAAU,SAAC,CAAS,UAAK,CAAC,gBAAW,eAAZ,CAAd;AACtB,4BAAW,WAAU,UAAC,CAAU,UAAK,CAAC,gBAAW,gBAAZ,CAAf;WAJxB;AAMA,cAAG,CAAI,gBAAW,QAAlB,EACE,mBADF;AAEA,0BAAW,UAAC,CAAU,IAAV;AACZ,+BAAgB,WAAC,CAAW,eAAX;;AAIjB,cAAG,gBAAW,QAAd,EACE,oBADF;AAEA,0BAAW,UAAC,CAAU,KAAV;;;AAKd,YAAG,gBAAW,QAAd,EACE,oBADF;AAEA,wBAAW,UAAC,CAAU,KAAV;;AAlIkB;AAl0CS;AAAhB;AAEzB,eAAU;AAFe;AAAgB;AAvDd;AAAR;AAEnB;AACA;AACA;AAEA;AACA,eAAU;AAEV,eAAS,QAAW,OAAC,MAAD,yBAApB;AAAI;AAEF,cAAO,MAAM,QAAC,KAAD;AACb,kBAAW;AAEN;AACH,YADG,IACH;AAEI,cAAG,CAAI,sCAAY,CAAC,GAAD,CAAnB,EACE,UAAW,KADb;SAGJ,UANG,IAMH;AAEI,cAAG,CAAuB,CAAlB,sCAAY,CAAC,GAAD,CAAM,IAAQ,CAAJ,GAAI,KAAE,2BAAc,iBAAhB,CAAR,CAA1B,EACE,UAAW,KADb;SAGJ,WAXG,IAWH,4CAAe,CAXZ,IAWY,0CAAf;AAEI,cAAG,CAAkD,CAA7C,qCAAW,CAAC,IAAK,CAAC,GAAD,CAAN,CAAkC,IAAlB,sCAAY,CAAC,GAAD,CAAf,IAA6B,CAAJ,GAAI,KAAE,2BAAc,iBAAhB,CAAR,CAArD,EACE,UAAW,KADb;SAGJ,UAhBG,IAgBH;AAEI,cAAG,CAAkE,CAA7D,sCAAY,CAAC,GAAD,CAAiD,IAAnC,CAAJ,GAAI,KAAE,2BAAc,iBAAhB,CAAR,IAAmD,CAAJ,GAAI,KAAE,2BAAc,kBAAhB,CAAR,CAArE,EACE,UAAW,KADb;SAGJ,UArBG,IAqBH;AAEI,cAAG,CAAI,mCAAS,CAAC,GAAD,CAAhB,EACE,UAAW,KADb;SAGJ,UA1BG,IA0BH;AAEI,cAAG,CAAI,8CAAoB,CAAC,GAAD,CAA3B,EACE,UAAW,KADb;SAFJ;AAOF,YAAG,CAAI,OAAP;AAEE,mBAAU;AACV;SAHF;;AA/CiB;AAAQ;AA6DE;AAAV;AAEnB,eAAU,4BAAgB,CAAC,EAAS,EAAS,EAAS,CAA5B;AAFP;AAAU;AAsxCQ;AAErC,UAAG,CAAY,CAAC,gBAAD,SAAc,IAAG,CAAY,CAAC,mBAAD,SAA5C;AAEE,6BAAgB,WAAC,CAAW,KAAX;AACjB;OAHF;AAMA,UAA6B,gBAAY,WAA9B,QAAX,EACmB,gBAAY,WAAU,iBADzC;AAGA,UAAG,CAAI,gBAAW,QAAQ,IAAkD,CAA9C,CAAI,gBAA0C,IAA5B,CAAK,gBAAW,YAApB,IAAoC,CAAkD,mBAAc,UAApE,CAA5E;AAEE,YAAG,iBAAU,QAAb,EACE,oBADF;AAEA,wBAAW,UAAC,CAAU,KAAV;AACZ,6BAAgB,WAAC,CAAW,KAAX;OALnB;AAXqC;AAmdd;AAAJ;AAEnB;AAGA,UAAe;AAKf,UAAY,CAAR,YAAQ,KAAG,EAAH,CAAO,IAAmD,CAA9C,cAAG,CAAC,uCAAa,CAAC,YAAD,EAAW,uCAAa,CAAC,CAAD,CAAtC,CAA2C,KAAE,CAAF,CAAtE,EAAgF,iBAAM,CAAC;;;;WAAG,EAAU,YAAD,OAAb,CAAtF;AACA,UAAI,YAAQ,KAAG,EAAf,EAAwB,iBAAM,CAAC;;;;WAAa,CAAH,CAAD,OAAI,GAAS,YAAD,OAAR,CAAkB,GAAE,CAAF,CAAY,YAAD,OAA3C,CAA9B;AACA,eAAU;AAZS;AAAI;AAhGY;AAAhB;AAMnB,eAAU;AANS;AAAgB;AA9cE;AAErC;AACA;AAEA,UAAG,CAAY,CAAC,wBAAD,SAAf,EACC,MADD;AAGA,eAAS,QAA+B,OAA1B,wBAAmB,SAAC,EAAM,GAAE,CAAF,kBAAxC;AAAI;AAEF,cAAc,cAAC,wBAAmB,KAAC,CAAD,CAApB;AACd,YAAY,GAAD,QAAX,EACE,GAAI,eAAJ,GAAI,CADN;;AAIF,8BAAmB;AAfkB;AAsaD;AAMpC,uBAAY,cAAZ;AACA,wBAAa,CAAb;AAPoC;AA70CZ;AAExB;AAAK;AACL;AACA;AAEA,UAAK;AACL,UAAG,CAAc,CAAN,CAAF,CAAE,KAAE,EAAF,CAAM,IAAI,2BAAJ,CAAjB;AAEO;AACH,YADG,IACH;AAAS,cAAG,CAAe,CAAV,YAAM,CAAC,CAAD,CAAI,IAAG,cAAC,kCAAS,mCAAV,CAAH,CAAlB,EAAgD,IAAK,GAArD;AACT,kBAFG,IAEH;AAAS,cAAG,CAAe,CAAV,YAAM,CAAC,CAAD,CAAI,IAAG,cAAC,kCAAS,mCAAV,CAAH,CAAlB,EAAgD,IAAK,GAArD;AACT,kBAHG,IAGH;AAAO,cAAG,CAAe,CAAV,YAAM,CAAC,CAAD,CAAI,IAAG,cAAC,gCAAO,mCAAR,CAAH,CAAlB,EAA8C,IAAK,GAAnD;AACP,kBAJG,IAIH,qCAAW,IAAG,CAAe,CAAV,YAAM,CAAC,CAAD,CAAI,IAAG,cAAC,mCAAD,CAAH,CAAlB,EAAuC,IAAK,GAAvD;AAGF,YAAI,sBAAiB,KAAE,yCAAvB;AAEE,cAAsB,CAAN,CAAX,eAAW,IAAG,CAAH,CAAM,IAAc,CAAV,gBAAU,KAAE,4BAAF,CAAd,CAA0B,IAAO,CAAF,CAAE,KAAG,EAAH,CAAvD;AAEE,gBAAc,CAAV,gBAAU,IAAG,cAAC,4BAAD,CAAH,CAAc,IAAgB,CAAX,eAAW,IAAG,CAAH,CAA5C;AAEE,kBAAI,cAAG,CAAC,IAAK,KAAN,CAAa,GAAE,CAAtB;AAA8B,sBAAO;AAAS,0BAAO;AACrD,oBAAO,IAA4B,GAArB,qBAAQ,CAAC,eAAD,CAAV,GAAyB,GAAF;AACnC,kBAAK,mBAAM,CAAC,IAAK,mBAAY,EAAX,gBAAW,CAAC,CAAD,CAAZ,CAAN;aAJb;AAOA,gBAAI,gBAAU,IAAG,cAAC,6BAAS,kCAAV,CAAjB;AAEE,oBAAO,IAA4B,GAArB,qBAAQ,CAAC,eAAD,CAAV,GAAyB,GAAF;AACnC,kBAAK,gBAAW,CAAC,CAAD;AAChB,kBAAK,mBAAM,CAAC,IAAK,mBAAC,GAAD,CAAN;aAJb;WATF;;AAmBA,cAAI,gBAAU,IAAG,cAAC,6BAAS,6BAAS,kCAAnB,CAAjB;AAEE,gBAAK,gBAAW,CAAC,CAAD;AAChB,gBAAK,mBAAM,CAAC,KAAM,mBAAC,GAAD,CAAP;WAHb;;OA9BJ;AAsCA,UAAI,gBAAU,IAAG,cAAC,2BAAO,gCAAR,CAAjB;AACE,YAAK,uCAAa,CAAC,CAAD;AACf,gBAAG,gBAAU,IAAG,cAAC,gCAAD,CAAhB,EACH,IAAK,uCAAa,CAAC,CAAD,CADf;AAIY,2DAAC,YAAY,GAAF,CAAF,GAAM,YAAf;AAMjB,sBAAW,CAAC,KAAD;AAzDa;AAvBM;AAE9B;AAEA,UAAG,cAAH,EACE,MADF;AAGA,aAAQ;AACD,uBAAM,CAAC;;;;WAAM,kBAAS,GAAE,CAAF,CAAK,mBAArB;AACN,uBAAM,CAAC,MAAO;;;;WAAM,kBAAS,GAAE,CAAzB;AACb,UAAc,CAAV,eAAU,IAAG,CAAH,CAAM,IAAiB,CAAN,IAAD,OAAO,IAAG,eAAH,CAArC;AAEE,kBAAQ,IAAR;AACA,6BAAgB,CAAC,kBAAS,GAAS,KAAD,OAAlB;OAHlB;AAKA,wBAAa,CAAb;AAf8B;AA80BD;AAG7B,UAAG,SAAI,KAAE,EAAT,EACE,iBADF;AAGA,UAAQ,CAAJ,SAAI,KAAE,CAAF,CAAW,IAAK,YAAM,aAA9B,EACE,iBADF;AAN6B;AAgBE;AAE/B;AAF+B;AA1sBH;;AAG5B;AAAa;AACb;AAAG;AAAI;AACP;AACA;AACA;AACA;AACA;AAEsB;AAAb;AAEP;AAEA,iBAAU;AACV,iBAAU,MAAO,GAAS,aAAD,OAAR;AACjB,YAAG,gBAAW,IAAG,CAAjB,EAAwB,aAAxB;AAEA,YAAc,CAAH,CAAD,OAAI,GAAE,MAAF,CAAS,GAAE,gBAAzB;AAEE,mBAAU;AACV;SAHF;AAMA,YAAI,cAAG,CAAC,2BAAc,kBAAmB,CAAlC,CAAqC,GAAE,CAA9C;AAEE,kBAAgB,CAAD,OAAI,GAAE,cAAG,CAAC,2BAAc,kBAAmB,CAAlC,CAAL;AACnB,cAAW,CAAP,MAAO,IAAG,cAAG,CAAC,2BAAc,kBAAmB,CAAlC,CAAN,CAA4C,IAAW,CAAN,KAAM,IAAG,gBAAH,CAAlE,EACE,SAAU,IADZ;SAHF;AAdO;AAAa;AAsBD;AAAZ;AAEP;AAEA,iBAAU;AACV,iBAAU,MAAO,GAAS,aAAD,OAAR;AACjB,gBAAgB,CAAD;AAEf,YAAI,cAAG,CAAC,2BAAc,mBAAoB,CAAnC,CAAsC,KAAE,CAA/C;AAEE,mBAAU;AACV;SAHF;AAMA,eAAO,cAAG,CAAC,2BAAc,mBAAoB,CAAnC,CAAsC,GAAE,CAAlD;AAEE,cAAG,QAAG,CAAC,cAAG,CAAC,2BAAc,mBAAoB,CAAnC,CAAsC,GAAE,MAA5C,CAAoD,GAAE,KAA5D,EAAuE,QAAS,QAAG,CAAC,cAAG,CAAC,2BAAc,mBAAoB,CAAnC,CAAsC,GAAE,MAA5C,CAAnF;AACA,cAAI,QAAG,CAAC,cAAG,CAAC,2BAAc,mBAAoB,CAAnC,CAAsC,GAAE,MAA5C,CAAoD,GAAE,CAA7D;AAEE,qBAAU;AACV;WAHF;AAMA,cAAG,MAAO,GAAE,cAAG,CAAC,2BAAc,mBAAoB,CAAnC,CAAf,EAA0D,SAAU,MAAO,GAAE,cAAG,CAAC,2BAAc,mBAAoB,CAAnC,CAAhF;AACA,2BAAM,CAAC;;;;eAAG,EAAG,cAAG,CAAC,2BAAc,mBAAoB,CAAnC,CAAV;;AAGR,YAAI,KAAM,GAAE,CAAZ;AAEE,mBAAU;SAFZ;AA3BO;AAAY;AAiCL;AAQd,YAAG,CAAc,CAAT,cAAS,IAAG,cAAC,GAAQ,EAAT,CAAH,CAAjB,EACE,QAAO,MAAP,CADF;AARc;AAchB,UAAG,CAAY,CAAC,mBAAD,SAAf;AAEE;AACA;OAHF;AAYA,UAAK;AACL,YAAO;AAGP,UAAa,CAAT,aAAS,KAAE,EAAF,CAAY,IAAa,CAAT,aAAS,KAAE,EAAF,CAAtC;AAEE;OAFF;AAKA,UAAa,CAAT,aAAS,KAAE,CAAF,CAAY,IAAa,CAAR,YAAQ,KAAG,EAAH,CAAtC,EACE,IAAa,CAAT,kBAAS,IAAU,YAAD,OAAT,CAAoB,IAAe,CAAV,mBAAU,KAAE,CAAF,CAAhD,EAA0D,MAD5D;AAGA,UAAiB,CAAb,iBAAa,GAAE,CAAF,CACyI,IADxG,CAAvB,gBAAW,CAAC,KAAI,KAAC,EAAN,CAAY,GAAE,iBAAF,CAA5B,IACT,CAAV,mBAAU,KAAE,CAAF,CADqD,IAClC,CAAT,kBAAS,GAAE,iBAAF,CAAd,IAA0C,CAAT,aAAS,KAAG,CAAH,CAAd,IAAyC,CAAT,aAAS,KAAO,2BAAc,iBAAf,YAAgD,CAAD,IAA/C,CAAN,CAAd,IAAqF,CAAI,aAAQ,CAAC,GAAD,CAD1K;AAGI;AACA;OAJJ;AAOA,UAAI,aAAS,IAAG,cAAC,GAAU,GAAS,EAAS,GAAU,GAAW,GAAW,GAAU,GAAY,CAAnF,CAAhB;AAEE,YAAI,aAAS,KAAE,CAAf;AAEE,cAAK,KAAI,KAAC;AAEV,cAAG,mBAAU,KAAE,CAAf;AACE,6BAAM,CAAC;;;;iBAAG,kBAAS,GAAS,YAAD,OAAR,CAAmB,CAAhC;AAEN,gBAAA,iBAAM,CAAC;;;;eAAG,QAAG,CAAC,EAAG,kBAAS,GAAS,YAAD,OAArB,EAAiC,mBAAxC;AAER,kBAAY,CAAF,CAAE,KAAG,WAAH,CAAS,IAAG,gBAAH;AACrB,2BAAY,KAAZ;AAEA;AAEA,cAAI,gBAAS,KAAE,4BAAf,EACE,qBADF;AAGA,cAAS,CAAL,WAAK,KAAE,EAAF,CAAM,IAAe,CAAP,CAAF,CAAE,KAAG,EAAH,CAAO,IAAG,KAAH,CAA9B;AAEE;WAFF;AAKA,2BAAY,KAAZ;AAEA;AACA;;AAIA,cAAI,aAAS,IAAG,cAAC,GAAU,GAAS,EAAS,GAAU,GAAW,GAAW,EAA7D,CAAhB;AAEE,gBAAG,kBAAiC,IAAL,CAAV,mBAAU,GAAE,CAAF,CAAf,IAAwB,0BAAxC,EACE,kBADF;WAFF;AAKA,eAAM,KAAI,KAAC;AACX;AACA,cAAG,KAAI,KAAC,EAAK,KAAG,EAAhB,EACE,iBAAY,IAAZ,CADF;;AAIF;OA1CF;AA6CA,UAAa,CAAT,aAAS,KAAE,EAAF,CAAc,IAAI,0BAA/B;AAEE;AACA;AACA;OAJF;AAOA,UAAI,aAAS,IAAG,cAAC,EAAS,GAAY,EAAtB,CAAhB;AAEE;AACA;OAHF;AAMA,UAAa,CAAT,aAAS,KAAE,EAAF,CAAY,IAAI,0BAA7B;AAEE,YAAG,mBAAc,OAAM,SAAC,EAAM,GAAE,CAAhC;AACE,6BAAc,aAAC,CAAa,CAAb;AAEA,cAAf,mBAAc,aAAC,CAAa,CAAC,CAAd;AACjB;OANF;AASA,UAAa,CAAT,aAAS,KAAE,EAAF,CAAW,IAAI,0BAA5B;AAEE,YAAG,mBAAc,OAAM,SAAC,EAAM,GAAE,CAAhC;AACE,6BAAc,aAAC,CAAa,mBAAc,OAAM,SAAC,EAAM,GAAE,CAA1C;AAEA,cAAf,mBAAc,aAAC,CAAa,CAAC,CAAd;AACjB;OANF;AASA,UAAa,CAAT,aAAS,KAAE,EAAF,CAAY,IAAI,0BAA7B;AAEE,YAAG,mBAAc,OAAM,SAAC,EAAM,GAAE,CAAhC;AAEE,cAA4B,CAAzB,mBAAc,aAAC,EAAU,GAAE,YAAO,cAAT,CAAuB,GAAE,mBAAc,OAAM,SAAC,EAA1E;AACE,+BAAc,aAAC,CAAa,mBAAc,aAAC,EAAU,GAAE,YAAO,cAA/C;AAEA,gBAAf,mBAAc,aAAC,CAAa,mBAAc,OAAM,SAAC,EAAM,GAAE,CAA1C;SAGF,MAAf,mBAAc,aAAC,CAAa,CAAC,CAAd;AACjB;OAXF;AAcA,UAAa,CAAT,aAAS,KAAE,EAAF,CAAa,IAAI,0BAA9B;AAEE,YAAG,mBAAc,OAAM,SAAC,EAAM,GAAE,CAAhC;AAEE,cAAG,mBAAc,aAAC,EAAU,GAAE,YAAO,cAArC;AACE,+BAAc,aAAC,CAAa,mBAAc,aAAC,EAAU,GAAE,YAAO,cAA/C;AAEA,gBAAf,mBAAc,aAAC,CAAa,CAAb;SAGF,MAAf,mBAAc,aAAC,CAAa,CAAC,CAAd;AACjB;OAXF;AAcA,UAAa,CAAT,aAAS,KAAE,EAAF,CAAU,IAAI,0BAA3B;AAEE,YAAG,mBAAc,OAAM,SAAC,EAAM,GAAE,CAAhC;AAEE,cAAG,mBAAc,aAAC,EAAU,GAAE,CAA9B,EACE,mBAAc,aAAC,CAAa,mBAAc,aAAC,EAAU,GAAE,CAAxC,CADjB;SAIe,MAAf,mBAAc,aAAC,CAAa,CAAC,CAAd;AAEjB;AACA;OAXF;AAcA,UAAa,CAAT,aAAS,KAAE,EAAF,CAAY,IAAI,0BAA7B;AAEE,YAAG,mBAAc,OAAM,SAAC,EAAM,GAAE,CAAhC;AAEE,cAA4B,CAAzB,mBAAc,aAAC,EAAU,GAAE,CAAF,CAAI,GAAE,mBAAc,OAAM,SAAC,EAAvD,EACE,mBAAc,aAAC,CAAa,mBAAc,aAAC,EAAU,GAAE,CAAxC,CADjB;SAIe,MAAf,mBAAc,aAAC,CAAa,CAAC,CAAd;AAEjB;AACA;OAXF;AAcA,UAAa,CAAT,aAAS,KAAE,EAAF,CAAc,IAAI,0BAA/B;AAEE;AACA;OAHF;AAMA,UAAa,CAAT,aAAS,KAAE,EAAF,CAAc,IAAc,CAAT,kBAAS,IAAU,YAAD,OAAT,CAAzC;AAEE,YAAK,KAAI,KAAC;AACV,YAAG,mBAAU,KAAE,CAAf;AACE,2BAAM,CAAC;;;;eAAY,CAAT,kBAAS,GAAS,YAAD,OAAR,CAAkB,GAAE,CAAF,CAAK,CAApC;AAEN,cAAA,iBAAM,CAAC;;;;aAAY,CAAT,kBAAS,GAAS,YAAD,OAAR,CAAkB,GAAE,CAAF,CAAK,mBAApC;AAER,YAAgB,CAAZ,iBAAY,GAAE,CAAF,CAAK,IAAwB,CAAJ,CAAf,gBAAW,CAAC,CAAD,CAAI,GAAE,CAAF,CAAI,GAAE,iBAAF,CAA7C;AAEE;AACA;SAHF;AAKA,wBAAW,CAAC,IAAD;OAbb;AAgBA,UAAc,CAAV,eAAU,GAAE,CAAF,CAAyB,IAAL,CAAV,mBAAU,KAAE,CAAF,CAAf,IAAsC,CAAN,WAAD,OAAO,IAAG,eAAH,CAAzD,EACE,MADF;AAGA,UAAY,CAAR,YAAQ,KAAG,EAAH,CAAO,IAAc,CAAT,kBAAS,GAAS,YAAD,OAAR,CAAjC,EACE,iBAAmB,YAAD,OAAlB,CADF;AAGA,UAAgB,UAAZ,iBAAc,cAAC,gCAAD,CAAF,CAAhB;AAEE,YAAG,aAAS,KAAK,EAAjB;AAEE,eAAM,0CAAgB;AACtB,eAAM,YAAM,CAAC,EAAD;AAEZ,sBAAa;AAER;AACH,cADG,IACH;AAAW,wBAAa,EAAG,KAAE,mCAAF;AAC3B,oBAFG,IAEH;AAAiB,wBAAa,EAAG,KAAE,mCAAF;AACjC,qBAHG,IAGH,sCAAS,CAHN,IAGM,wCAAT;AAAwB,wBAAa,EAAG,KAAE,iCAAF;AACxC,oBAJG,IAIH;AAAa,iBAAM,uCAAa,CAAC,EAAD;AAChC,oBALG,IAKH;AAAa,iBAAM,eAAS,CAAC,EAAD;AAC5B,oBANG,IAMH;AAAa,iBAAM,uCAAa,CAAC,EAAD;AAChC,oBAPG,IAOH;AAAS,wBAAa,EAAG,KAAE,iCAAF;AACzB,oBARG,IAQH,iCAAO,YAAa,EAAG,IAAG,cAAC,gCAAO,mCAAR,CAA1B;AAGF,cAAG,SAAH,EACE,eAAU,CAAC,EAAD,CADZ;SAGG,UAAG,aAAS,KAAK,EAAjB;AACH;AAEA;AAEF;AACA;OA7BF;AAgCK;AACH,UADG,KACH,oCAGA;eAJG,KAIH;AAEI,YAAG,CAAI,sCAAY,CAAC,GAAD,CAAnB,EACE,QADF;OAGJ,WATG,KASH,sCAAS,CATN,KASM,wCAAT;AAEI,YAAgB,CAAP,CAAJ,GAAI,KAAE,GAAF,CAAO,IAAqC,CAAhC,2BAAc,iBAAkB,KAAG,GAAH,CAArC,CAA8C,IAAgB,CAAP,CAAJ,GAAI,KAAE,GAAF,CAAO,IAAqC,CAAhC,2BAAc,iBAAkB,KAAG,GAAH,CAArC,CAA9E;AAEE;AACA;SAHF;AAMA,YAAI,sCAAY,CAAC,GAAD,CAA2H,IAA7G,CAAJ,GAAI,KAAE,GAAF,CAAR,IAAuB,CAAJ,GAAI,KAAE,GAAF,CAAR,IAAuB,CAAJ,GAAI,KAAE,2BAAc,iBAAhB,CAAR,IAAmD,CAAJ,GAAI,KAAE,2BAAc,kBAAhB,CAAR,IAA4E,CAAjB,CAAV,gBAAU,KAAE,kCAAF,CAAiB,IAAS,CAAJ,GAAI,KAAE,GAAF,CAAT,CAA3K;AAEE,cAAQ,CAAJ,GAAI,KAAE,2BAAc,iBAAhB,CACmD,IAAL,CAAnD,cAAG,CAAC,2BAAc,kBAAmB,KAAI,WAAC,EAAvC,CAAgD,KAAE,CAAF,CADX,IAEc,CAAL,CAAhD,cAAG,CAAC,2BAAc,kBAAmB,KAAI,KAAC,EAAvC,CAA6C,GAAE,CAAF,CAAK,IAAe,CAAX,eAAW,KAAE,CAAF,CAAf,CAFzD;AAIE,gBAAI,eAAW,GAAE,CAAjB,EACE,yBADF;AAIA;AAEA;WAVF;AAaA,cAAS,CAAJ,GAAI,KAAE,GAAF,CAAuE,IAAvC,CAApB,cAAG,CAAC,IAAK,KAAI,KAAC,EAAX,CAAiB,GAAE,CAAF,CAAzB,IAA0D,CAAvB,cAAG,CAAC,IAAK,KAAI,WAAC,EAAX,CAAoB,KAAE,CAAF,CAA5B,IAA2C,CAAJ,GAAI,KAAG,2BAAc,kBAAjB,CAAzF;AAGE;AAEA;WALF;AAQA,cAAQ,CAAJ,GAAI,KAAE,2BAAc,kBAAhB,CAAoC,IAAQ,CAAJ,GAAI,KAAE,2BAAc,iBAAhB,CAApD;AAEE,gBAAG,YAAY,CAAC,KAAI,KAAC,GAAM,kBAAZ,CAAf;AAGE;AAEA;aALF;WAFF;AAWA,cAAG,aAAa,CAAC,KAAI,KAAC,GAAM,kBAAZ,CAAyF,IAA5C,CAAlB,sCAAY,CAAC,GAAD,CAAM,IAAQ,CAAJ,GAAI,KAAE,2BAAc,iBAAhB,CAAR,CAAvB,IAAkF,CAAV,mBAAU,KAAE,CAAF,CAAxH;AAEE,gBAAe,CAAX,eAAW,GAAE,CAAF,CACS,IAD4B,CAAlB,CAAT,kBAAS,GAAS,YAAD,OAAR,CAAkB,IAAG,cAAG,CAAC,2BAAc,kBAAmB,KAAI,KAAC,EAAvC,CAAN,CAAhC,IACd,sCAAY,CAAC,GAAD,CAAhB,IAAsD,CAAlB,CAAT,kBAAS,GAAS,YAAD,OAAR,CAAkB,GAAS,KAAI,KAAC,EAAN,OAAR,CADxD;AAOE,4BAAe;AACL,2BAAY,4CAAC,CAAL,gBAAK;;;;mBAAU,EAAG,kBAAd,CAA8B,GAAJ,GAAF,GAAY,4CAAC,CAAL,gBAAK;;;;mBAAU,kBAAS,GAAE,CAAF,CAAY,WAAD,OAA/B,CAAhD;AACV,+BAAY,WAAY,GAAE,CAA1B;AACA;AACA;;AAMA;AAEA;;WArBJ;AAyBA,cAAa,CAAT,kBAAS,KAAE,CAAF,CAA0B,IAAN,CAAV,KAAI,KAAC,EAAK,KAAE,EAAF,CAAf,IAA8B,CAAJ,GAAI,KAAE,2BAAc,iBAAhB,CAAhD;AAEY,yBAAQ,GAAI,GAAE,2BAAc,iBAA5B;AACV,6BAAY,CAAZ;AACA,4BAAW,CAAC,IAAD;AAEX;AAEA;WARF;AAWA,cAAG,gBAAU,KAAE,kCAAf;AAEE,gBAAQ,CAAJ,GAAI,KAAE,GAAF,CAAO,IAAe,CAAV,mBAAU,KAAE,CAAF,CAA9B;AAEE,kBAAK,KAAI,KAAC;AACV,wBAAW;AACX,gCAAc;AACd,4BAAe;AAEf,kBAAI,cAAG,CAAC,IAAK,CAAN,CAAS,KAAG,CAAnB;AAEE,iCAAM,CAAC;;;;qBAAG,EAAG,CAAP;AACI,6BAAQ,CAAE,GAAE,YAAZ;AACV,gCAAW,CAAC,IAAD;AACX,oBAAgB,CAAZ,WAAY,GAAE,CAAF,CAAK,IAAiB,CAAZ,WAAY,GAAS,YAAD,OAAR,CAAtC;AACE,mCAAY,WAAY,GAAE,CAA1B;AAEA,uCAAmB,YAAD,OAAlB;;AAIF,oBAAe,CAAX,eAAW,KAAG,CAAH,CAAM,IAAM,CAAF,CAAE,GAAE,CAAF,CAA3B;AAEY,+BAAQ,GAAgB,GAAV,KAAI,KAAC,EAAP,GAAc,YAA1B;AACV,oCAAa,CAAb;AACA,mCAAY,WAAY,GAAE,CAA1B;AACA,kCAAW,CAAC,IAAD;iBALb;;AAQF,gCAAc;AAEd;AAEA;aA/BF;WAFF;SAsCA;OAEN,UA/HG,KA+HH;AAEI,YAAG,CAA6B,CAAxB,qCAAW,CAAC,IAAK,CAAC,GAAD,CAAN,CAAa,IAAG,sCAAY,CAAC,GAAD,CAAf,CAAhC,EACE,QADF;AAOA,YAA+C,CAA3C,cAAG,CAAC,2BAAc,kBAAmB,WAAlC,CAAwC,GAAE,CAAF,CAAK,IAAS,CAAJ,SAAI,KAAE,2BAAc,iBAAhB,CAA7D,EAEE,QAFF;AAQA,YAAmB,CAAf,cAAG,CAAC,IAAK,WAAN,CAAY,GAAE,CAAF,CAAqB,IAAP,CAAJ,SAAI,KAAE,GAAF,CAAT,IAAoB,CAAe,CAAV,mBAAU,KAAS,WAAD,OAAR,CAA3D,EAEE,QAFF;AAIA,YAAQ,CAAJ,GAAI,KAAE,GAAF,CAAO,IAAe,CAAV,mBAAU,KAAE,CAAF,CAA9B;AAEE,cAAK,KAAI,KAAC;AACV,wBAAe;AAEf,cAAI,cAAG,CAAC,IAAK,CAAN,CAAS,KAAG,CAAnB;AAEE,6BAAM,CAAC;;;;iBAAG,EAAG,CAAP;AACI,yBAAQ,CAAE,GAAE,YAAZ;AACV,4BAAW,CAAC,IAAD;AACX,gBAAgB,CAAZ,WAAY,GAAE,CAAF,CAAK,IAAiB,CAAZ,WAAY,GAAS,YAAD,OAAR,CAAtC;AACE,+BAAY,WAAY,GAAE,CAA1B;AAEA,mCAAmB,YAAD,OAAlB;;AAIF,gBAAe,CAAX,eAAW,KAAG,CAAH,CAAM,IAAM,CAAF,CAAE,GAAE,CAAF,CAA3B;AAEY,2BAAQ,GAAgB,GAAV,KAAI,KAAC,EAAP,GAAc,YAA1B;AACV,gCAAa,CAAb;AACA,+BAAY,WAAY,GAAE,CAA1B;AACA,8BAAW,CAAC,IAAD;aALb;;AASF;AAEA;SA5BF;OA+BJ,UAnLG,KAmLH;AAEI,YAAK,uCAAa,CAAC,CAAD;AAIlB,cAAO,CAAC,QAAC,CAAD;AAQR,gBAAO,GAAP;OAGJ,UApMG,KAoMH;AAEI,YAAK,uCAAa,CAAC,CAAD;AAIlB,cAAO,CAAC,QAAC,CAAD;AAQR,gBAAO,GAAP;OAGJ,UArNG,KAqNH;AAEI,YAAQ,CAAJ,GAAI,KAAE,2BAAc,iBAAhB,CAAmC,IAA2D,CAAL,CAAhD,cAAG,CAAC,2BAAc,kBAAmB,KAAI,KAAC,EAAvC,CAA6C,GAAE,CAAF,CAAK,IAAe,CAAX,eAAW,KAAE,CAAF,CAAf,CAAtG;AAEE,cAAI,eAAW,GAAE,CAAjB;AAEE,gBAAG,mBAAU,KAAS,WAAD,OAArB,EACE,UAAQ,KAAR,CADF;AAGA;AAEA;WAPF;AAUA,8BAAgB;AAChB;SAbF;AAgBA,YAAI,sCAAY,CAAC,GAAD,CAAsB,IAAR,CAAJ,GAAI,KAAE,GAAF,CAAR,IAAwB,CAAJ,GAAI,KAAE,2BAAc,iBAAhB,CAA9C;AAEE,cAAQ,CAAJ,GAAI,KAAE,2BAAc,kBAAhB,CAAoC,IAAQ,CAAJ,GAAI,KAAE,2BAAc,iBAAhB,CAApD;AAEE,gBAAG,YAAY,CAAC,KAAI,KAAC,GAAM,kBAAZ,CAAf,EACE,MADF;WAFF;AAMA,cAAG,aAAa,CAAC,KAAI,KAAC,GAAM,kBAAZ,CAAyF,IAA5C,CAAlB,sCAAY,CAAC,GAAD,CAAM,IAAQ,CAAJ,GAAI,KAAE,2BAAc,iBAAhB,CAAR,CAAvB,IAAkF,CAAV,mBAAU,KAAE,CAAF,CAAxH;AAEE,gBAAe,CAAX,eAAW,GAAE,CAAF,CACS,IAD4B,CAAlB,CAAT,kBAAS,GAAS,YAAD,OAAR,CAAkB,IAAG,cAAG,CAAC,2BAAc,kBAAmB,KAAI,KAAC,EAAvC,CAAN,CAAhC,IACd,sCAAY,CAAC,GAAD,CAAhB,IAAsD,CAAlB,CAAT,kBAAS,GAAS,YAAD,OAAR,CAAkB,GAAS,KAAI,KAAC,EAAN,OAAR,CADxD;AAGE,gCAAa,CAAb;;AAKA;AAEA;;WAZJ;AAgBA,cAAa,CAAT,kBAAS,KAAE,CAAF,CAA0B,IAAN,CAAV,KAAI,KAAC,EAAK,KAAE,EAAF,CAAf,IAA8B,CAAJ,GAAI,KAAE,2BAAc,iBAAhB,CAAhD;AAEY,yBAAQ,GAAI,GAAE,2BAAc,iBAA5B;AACV,6BAAY,CAAZ;AACA,4BAAW,CAAC,IAAD;AACX;WALF;AAQA,cAAQ,CAAJ,GAAI,KAAE,GAAF,CAAO,IAAe,CAAV,mBAAU,KAAE,CAAF,CAA9B;AAEE,gBAAK,KAAI,KAAC;AACV,sBAAW;AACX,8BAAc;AACd,0BAAe;AAEf,gBAAI,cAAG,CAAC,IAAK,CAAN,CAAS,KAAG,CAAnB;AAEE,+BAAM,CAAC;;;;mBAAG,EAAG,CAAP;AACI,2BAAQ,CAAE,GAAE,YAAZ;AACV,8BAAW,CAAC,IAAD;AACX,kBAAgB,CAAZ,WAAY,GAAE,CAAF,CAAK,IAAiB,CAAZ,WAAY,GAAS,YAAD,OAAR,CAAtC;AACE,iCAAY,WAAY,GAAE,CAA1B;AAEA,qCAAmB,YAAD,OAAlB;;AAIF,kBAAe,CAAX,eAAW,KAAG,CAAH,CAAM,IAAM,CAAF,CAAE,GAAE,CAAF,CAA3B;AAEY,6BAAQ,GAAgB,GAAV,KAAI,KAAC,EAAP,GAAc,YAA1B;AACV,kCAAa,CAAb;AACA,iCAAY,WAAY,GAAE,CAA1B;AACA,gCAAW,CAAC,IAAD;eALb;;AAQF,8BAAc;AAEd;AAEA;WA/BF;;AAoCA;AACA;;OAGN,UA/SG,KA+SH;AAEI,YAAG,CAAI,mCAAS,CAAC,GAAD,CAAhB,EACE,QADF;OAGJ,UApTG,KAoTH;AAEI,YAAG,CAAI,8CAAoB,CAAC,GAAD,CAA3B,EACE,QADF;OAGJ,UAzTG,KAyTH;AAEI,YAAI,gBAAY,KAAG,EAAnB,EACE,IAAG,cAAG,CAAC,uCAAa,CAAC,CAAD,EAAK,uCAAa,CAAC,gBAAD,CAAhC,CAA+C,KAAE,CAAvD,EACE,QAFJ;OAFJ;AAQF,UAAK,KAAI,KAAC;AACV;AACA,UAAG,KAAI,KAAC,EAAK,KAAG,CAAhB,EACE,iBAAY,IAAZ,CADF;AAqBA,UAAI,gBAAU,IAAG,cAAC,6BAAS,mCAAe,4BAAzB,CAAjB;AAEE,YAAY,WAAD,OAAO,GAAS,CAAD,OAAR;AAClB,YAAI,CAAE,GAAE,CAAR,EACE,qBAAgB,CAAC,uBAAiB,GAAE,CAApB,CADlB;OAHF;AAOA,UAAe,UAAZ,iBAAc,EAAF,CAAf,EACE,mBADF;AA9oB4B;AAPD;AAE3B;AACA,sBAAY;AACZ,yBAAe;AAJY;AA6pBF;AAGzB;AACA;AAEA;AAMA,YAAU,oBAAC,SAAD;AAGV,UAAG,CAAS,CAAJ,SAAI,IAAG,cAAC,IAAQ,GAAY,GAAQ,GAAU,EAAvC,CAAH,CAAZ,EACE,mBADF;AAGA,UAAQ,CAAJ,SAAI,KAAE,CAAF,CAAmC,IAApB,0BAAJ,IAA6B,YAAM,aAAtD,EACE,iBADF;AAGA,UAAG,gBAAS,KAAE,gCAAd;AAEE,sBAAe;AACf,kBAAQ,eAAS,CAAC,WAAD,CAAjB;AACA,yBAAY,WAAZ;OAJF;AAOA,UAAQ,CAAJ,GAAI,KAAG,EAAH,CAAO,IAAS,CAAJ,GAAI,KAAG,IAAH,CAAxB,EACE,yBADF;AA5ByB;AAmQW;AAEpC,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,MAAO,KAAM,SAApB,CADlB;AAFoC;AAMJ;AAEhC,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,IAAD,CADd;AAFgC;AAMC;AAEjC,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,IAAD,CADf;AAFiC;AA1lCP;AAE1B;AACA;AAEA;AACA,UAAc,CAAV,yCAAU,IAAG,oBAAH,CAAmB,IAAiB,CAAb,4CAAa,IAAG,oBAAH,CAAlD,EACE,MADF;AAGA,UAAe,CAAX,eAAW,IAAG,CAAH,CAAM,IAAc,CAAT,gBAAS,IAAG,cAAC,6BAAS,mCAAe,4BAAzB,CAAH,CAAnC;AAEE,YAAc,CAAV,IAAI,KAAC,EAAK,KAAG,EAAH,CAAO,IAAG,CAAI,2BAA5B;AAEE,wBAAe;AACf,wBAAc,IAAI,SAAC,EAAnB;AACA,2BAAY,WAAZ;SAJF;OAFF;AAUA,UAAa,CAAT,gBAAS,IAAG,cAAC,+BAAW,oCAAZ,CAAH,CAAsD,IAAN,CAAV,IAAI,KAAC,EAAK,KAAE,EAAF,CAAf,IAAyB,CAAI,2BAA3E,EACE,UAAQ,GAAR,CADF;AAGA,UAAa,CAAT,gBAAS,IAAG,cAAC,6BAAS,mCAAe,4BAAzB,CAAH,CAA2D,IAAN,CAAV,IAAI,KAAC,EAAK,KAAE,EAAF,CAAf,IAAyB,CAAI,2BAAhF,EACE,cAAc,GAAd,CADF;AAGA,WAAM,iBAAI,CAAC,WAAD;AACV,UAAG,YAAO,SAA6B,IAAhB,YAAO,SAAX,IAA4B,CAAH,EAAG,KAAG,EAAH,CAA/C;AAEE,YAAG,YAAO,aAAY,QAAQ,CAAC,EAAD,CAAK,KAAE,CAAC,CAAtC,EACE,YAAO,aAAY,IAAI,CAAC,EAAD,CADzB;OAFF;AA1B0B;AAiKO;AAAd;AAEnB;AAEA,UAAI,gBAAS,KAAE,4BAAf,EACE,qBADF;AAJmB;AAAc;AAyuBD;AAAb;AAEnB,eAAU;AAFS;AAAa;AALH;AAAV;AAEnB,eAAU;AAFS;AAAU;AA3lCF;AAAR;AAEnB,eAAoB;AACpB,eAAU,MAAO,IAAI,oBAAJ;AAHE;AAAQ;AAsCC;AAE5B;AACA,wBAAc;AAEd,yBAAe;AAGf,6BAAkB,6CAAlB;AAQA,8BAAoB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,2BAAgB,SAAhB,GAA4B;AAC5B,2BAAgB,WAAC,CAAW,KAAX;AACjB,2BAAgB,YAAC,CAAY,CAAZ;AACjB,oCAA0B;AAC1B,0BAAgB;AAChB,2BAAiB;AACjB,qBAAW,8BAAyB,QAAC;AAErC,iCAAuB,sBAAiB,QAAC;AAEzC,yBAAe,sCAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,sBAAW,WAAX,GAAyB;AAEzB,4BAAkB,+BAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AAI3B,yBAAc,cAAC,CAAc,EAAd;AACf,yBAAc,SAAd,GAA2B;AAC3B,yBAAc,WAAd,GAA4B;AAK5B,yBAAc,WAAC,CAAW,KAAX;AACf,yBAAc,SAAC,CAAS,sCAAT;AAIf,uBAAY,KAAZ;AAIA,sBAAW,kBAAC,CAAkB,mBAAlB;AACZ,sBAAW,gBAAX,GAA8B;AAnDmB;AAArB;AA2DA;AAKX,eAAjB,KAAiB;AACT,eAAR,KAAQ;AACR;AAEA,UAAY,mBAAD,QAAX;AAEiB,iBAAf,KAAe;AACf,8BAAkB;OAHpB;AAMoB,eAApB,KAAoB;AAEpB,UAAY,gBAAD,QAAX;AAEc,iBAAZ,KAAY;AACZ,2BAAe;OAHjB;AAKA;AAtB4B;AAyBK;AAEjC;AAAG;AACH;AAAI;AAAI;AACR;AACA;AACA;AAEA,UAAG,CAAY,CAAC,YAAD,SAAiC,IAApB,CAAI,YAAO,SAAd,IAA0B,CAAY,CAAC,mBAAD,SAA/D,EACE,MADF;AAGA,WAAwB,CAAjB,EAAiB,GAAE,YAAO,cAAT,CAAwB,GAAE,CAAF;AAChD,yBAAc,UAAC,CAAU,IAAV;AACf;AACA,yBAAc,OAAM;AAOpB,eAAS,QAAwB,OAAnB,YAAO,aAAY,SAAC,IAAD,gBAAjC;AAAI;AAEF,cAAO,6BAAwB,QAAC,YAAM,CAAC,CAAE,GAAE,CAAL,CAAN;AAChC,2BAAc,OAAM,UAAU,CAAC,iBAAW,CAAC,YAAO,aAAa,IAAQ,CAAC,CAAE,GAAE,CAAL,CAA7B,EAAuC,GAAnD;AAC9B,gCAAmB,IAAI,CAAC,GAAD;;AAGzB,YAAO;AACP,2BAAgB,CAAC,WAAY,mBAAc,QAAQ;;;;UAAnC;AAChB,YAAO,mBAAc,OAAM,SAAC;AAM5B,UAA+B,CAA3B,YAAO,aAAa,SAAC,EAAM,GAAE,CAAF,CAAK,IAAgC,CAA3B,mBAAc,OAAM,SAAC,EAAM,GAAE,CAAF,CAApE,EACE,mBAAc,aAAC,CAAa,GAAb,CADjB;AAGA,UAAG,GAAI,GAAE,YAAO,cAAhB,EACE,KAAW,CAAJ,GAAI,GAAE,EAAF,CAAoB,GAAE,CADnC;AAGA,yBAAc,UAAC,CAAU,IAAV;AACf,WAAM;AACN,sBAAW,iBAAC,CAAiB,CAAjB;AAEZ,UAAG,GAAI,GAAE,CAAT;AAEE,iBAAS,SAAK,gCAAd;AAAI;AAEF,eAAM;AACN,cAAY,mBAAc,UAAC,EAAhB,QAAX,EACE,KAAM,UAAK,CAAC,mBAAc,UAAC,EAAM,UAAU,CAAC,mBAAc,OAAM,KAAC,CAAE,GAAE,CAAL,CAArB,CAAhC,CADb;AAGA,cAAG,EAAG,GAAE,EAAR,EACE,KAAM,EADR;;AAIF,aAAM,EAAG,GAAE,EAAF;OAZX;AAeA,UAAI,YAAO,OAAO,GAAE,CAApB,EACE,KAAM,YAAO,OADf;AAGA,UAAI,YAAO,QAAQ,GAAE,CAArB,EACE,KAAM,YAAO,QADf;AAGA,sBAAW,oBAAC,CAAoB,IAApB;AAEZ,UAAI,GAAI,GAAE,CAAV;AAEE,wBAAW,iBAAC,CAAiB,QAAG,CAAC,YAAM,eAAe,EAAtB,CAApB;AACZ,wBAAW,kBAAC,CAAkB,QAAG,CAAC,YAAM,gBAAgB,EAAvB,CAArB;AACZ,YAAG,gBAAW,eAAd;AAEE,6BAAc,UAAC,CAAU,gBAAW,WAArB;AACf,0BAAW,WAAU,SAAC,CAAS,UAAK,CAAC,gBAAW,eAAZ,CAAd;AACtB,0BAAW,WAAU,UAAC,CAAU,UAAK,CAAC,gBAAW,gBAAZ,CAAf;SAJxB;AAMA,YAAG,CAAI,gBAAW,QAAlB,EACE,mBADF;AAEA,wBAAW,UAAC,CAAU,IAAV;AACZ,6BAAgB,WAAC,CAAW,eAAX;;AAIjB,YAAG,gBAAW,QAAd,EACE,oBADF;AAEA,wBAAW,UAAC,CAAU,KAAV;;AAxFmB;AAlvBtB;;;AAsIS,+BAAO,UxG0PjB,+BwG1PiB,CAAP;AAaC;AA6EL,6BpGzRV,uCoGyRU;AACI,iCxG3WV,gCwG2WU;AACF,+BpGnRV,yCoGmRU,yBpG4VkD,uBAAC,0CAAQ,wCAAT,CoG5VlD;AACG;AACF;AACJ;AAKI;AA2BG,mCpG5TV,6CoG4TU;AACN,6BnG7DV,uCmG6DU;AAIS;AAMP;AACH,4BnGyBV,sCmGzBU;AACS;AACJ;AAOG;AAIJ;AACA;AACA;AACD;AACA;AACC,gCpGvRP,6CoGuRO;AACD,+BpGxRN,6CoGwRM;AAIG,kCpG5RT,6CoG4RS;AAOH,+BpGnSN,6CoGmSM;AACD,8BpGpSL,6CoGoSK;AACG,iCpG/RX,0CoG+RW;AACC,kCpG/RP,+CoG+RO;AACH,+BpGjST,0CoGiSS;AACI,mCpGvSX,4CoGuSW;AACC,oCpGzSX,6CoGySW;AACA,oCpG1SX,6CoG0SW;AACD,mCpGtSP,gDoGsSO;AACF,iCpG3ST,4CoG2SS;AAOL;AACG;AACK;AACJ,gCA3ZJ,8BA2ZI;AACF,8BArZQ,wCAqZR;AACI;AACW;AACA;AACP;AACH;AACF;AACO,wCAhaA,0CAgaA;AACF,sCA5WG,2CA4WH;AACK,2CA5WG,gDA4WH;AACH,wCA5WG,6CA4WH;AACJ,oCpGlUX,6CoGkUW;AACC,qCpGnUZ,6CoGmUY;AA/Ub;;AAqVM;;;AAEf;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAZe;;;;;;;;;;;AA+sEwB;AAEzC,2BAAiB;AACjB,iBAAM,kBAAC,CAAkB,kBAAlB;AAHkC;AA8HT;AAAP;AAEzB,eAAU,UAAK,KAAC;AAFS;AAAO;AAxHC;AAEjC,gBAAK,KAAC,CAAQ,KAAR;AAF2B;AAmHU;AAAlB;AAEzB,eAAU;AAFe;AAAkB;AA5JR;AAEnC,qBAAW;AACX,UAAY,YAAD,QAAX;AAEE,oBAAO,SAAQ;AACf,oBAAO,SAAQ,UAAU,CAAC,M3Br9DgC,G2Bq9DjC;OAH3B;AAHmC;AAUS;AAG5C,8BAAoB;AACpB,UAAY,YAAD,QAAX,EACE,YAAO,mBAAC,CAAmB,KAAnB,CADV;AAJ4C;AAQL;AAEvC,yBAAe;AACf,UAAY,YAAD,QAAX;AAEE,oBAAO,SAAQ;AACf,oBAAO,SAAQ,cAAc,CAAC,M3Bt+D6B,G2Bs+D9B;OAH/B;AAHuC;AAUA;AAEvC,yBAAe;AACf,UAAY,YAAD,QAAX,EACE,YAAO,SAAC,CAAS,KAAT,CADV;AAHuC;AAgDC;AAExC;AACA,yBAAc,sCAAY,UAAU,CAAC,iBAAa,EAAG,CAAjB,CAApC;AAHwC;AAnFC;AAEzC;AACA,UAAY,YAAD,QAAX,EACE,YAAO,gBAAC,CAAgB,sBAAhB,CADV;AAHyC;AAqDD;;AA4HR;AAEhC;AAoBA,UAAW,CAAC,YAAD,SAAyC,IAAnB,CAAC,qBAAD,SAAZ,IAAgD,CAAZ,gBAAY,KAAG,EAAH,CAArE;AAEE,oBAAO,SAAQ;AACf,oBAAO,SAAQ,cAAc,CAAC,iB3BjpE6B,G2BipE9B;OAH/B;AAtBgC;AAtNC;AAGjC;AACA,UAAG,SAAI,KAAE,GAAT;AAEE;AACA;OAHF;AAJiC;AA0BK;AAGjC;AACH,UADG,IACH;AAEE;OAFF;AAJoC;AAfA;AAGtC,UAAc,CAAV,SAAU,KAAE,+BAAF,CAAY,IAAgB,CAAX,UAAW,KAAE,kBAAF,CAA1C,EACE,qBAAiB,IADnB;AAGA,UAAc,CAAV,SAAU,KAAE,+BAAF,CAAY,IAAgB,CAAX,UAAW,KAAE,qBAAF,CAA1C,EACE,wBAAoB,IADtB;AAEA;AARsC;AA6FD;AAErC,UAAG,CAAI,mBAAP,EACE,eADF;AAGA,4BAAkB;AAElB,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,IAAD,CADf;AAPqC;AAWG;AAExC,4BAAkB;AAFsB;AApBD;AAEvC,UAAY,YAAD,QAAX;AAEE,oBAAO,SAAQ;AACf,oBAAO,SAAQ,UAAU,CAAC,a3BvgEgC,G2BugEjC;OAH3B;AAFuC;AA+BL;AAElC;AACA,yBAAe;AACf,qBAAW,wDAA4B,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,kBAAO,WAAC,CAAW,KAAX;AACR,kBAAO,cAAC,CAAc,KAAd;AACR,kBAAO,QAAP,GAAkB;AAClB,kBAAO,SAAC,CAAS,EAAT;AACR,kBAAO,YAAW,YAAC,CAAY,CAAZ;AAEnB,kBAAO,SAAC,CAAS,qCAAT;AAKR,kBAAO,UAAC,CAAU,IAAV;AACR,kBAAO,SAAP,GAAmB;AACnB,kBAAO,YAAP,GAAsB;AAEtB,kBAAO,SAAQ,wBAAsB,CAAC,mDAAqB,sCAAW,GAAjC;AACrC,kBAAO,SAAQ,wBAAsB,CAAC,wDAA0B,sCAAW,GAAtC;AACrC,kBAAO,iBAAgB,wBAAsB,CAAC,mDAAqB,sCAAW,GAAjC;AAC7C,kBAAO,iBAAgB,wBAAsB,CAAC,wDAA0B,sCAAW,GAAtC;AAE7C,mBAAS,gBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAIrB,gBAAK,UAAC,CAAU,IAAV;AAEN,gBAAK,SAAC,CAAS,sCAAT;AAKN,oBAAU,sCAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,iBAAM,aAAC,CAAa,wDAAb;AACP,iBAAM,QAAN,GAAiB;AACjB,iBAAM,kBAAC,CAAkB,IAAlB;AACP,iBAAM,SAAC,CAAS,GAAT;AACP,iBAAM,UAAC,CAAU,GAAV;AAEP,yBAAe;AACf,qBAAW,uCAAa,QAAC;AACzB,kBAAO,UAAP,GAAqB;AACrB,oBAAS,GAAT;AACA,qBAAU,EAAV;AA/CuD;AAArB;AAkDA;AAE1B,eAAR,KAAQ;AACD,eAAP,KAAO;AACC,eAAR,KAAQ;AACR;AALkC;AAQA;AAElC,UAAY,kBAAD,QAAX;AAEE,mBAAM,oBAAC,CAAoB,IAApB;AAEP,YAAG,CAAI,WAAM,QAAb;AAEE;AACA,qBAAM,MAAM,CAAC,gBAAD;SAGL,MAAP,WAAM,UAAC,CAAU,KAAV;OAVX;AAFkC;AAxzEjB;;;;;;;;AAuCG,+BAAO,UxGIjB,+BwGJiB,CAAP;AAQM,uCvBzdJ,oEuBydI;AACT,8B3BtBJ,iD2BsBI;AACI;AACA;AACE,oCpGrSf,yCoGqSe;AACC,qCpG7XZ,6CoG6XY;AAET;AAtDE;;AAtgBnB,mBA+jBc;AAYO;;AACH;;;;;;AAEM;AAAf;AAEP,eAAU,qCAAW,CAAC,GAAI,CAAC,IAAK,IAAK,IAAK,IAAK,KAAK,IAAK,IAAK,IAAK,IAAK,IAAK,IAAK,IAAK,IAAK,IAAI,IAAK,GAA3E,CAAL;AAFd;AAAe;AAKN;AAAT;AAEP;AAAG;AACH;AACA;AAEA,cAAS;AACT,gBAAW;AACX,UAAY,KAAD;AAKX,eAAS,QAAK,0BAAd;AAAI;AAGF,YAAG,qBAAe,CAAC,OAAO,QAAC,KAAD,CAAR,CAAlB;AACE,kBAAS;AAET,kBAAG,KAAH;AAEE,iBAAO,iBAAP,QAAQ,MAAM,uCAAa,CAAC,KAAD,CAAO,QAAC,KAAD,CAA3B;AACP,kBAAS;SAGF,MAAP,OAAO,iBAAP,QAAQ,MAAM,uCAAa,CAAC,KAAD,CAAO,QAAC,KAAD,CAA3B;AAEX,YAAwB,CAApB,eAAI,CAAC,QAAS,EAAG,CAAb,CAAgB,KAAE,IAAF,CACsB,IADU,CAApB,eAAI,CAAC,QAAS,EAAG,CAAb,CAAgB,KAAE,KAAF,CAAxB,IACC,CAAT,CAApB,cAAG,CAAC,MAAO,OAAR,CAAiB,KAAI,CAAF,CAAE,GAAE,CAAF,CAAJ,CAAS,IAAO,CAAF,CAAE,GAAE,CAAF,CAAP,CADgC,IAElD,CAAT,CAAF,CAAE,GAAI,CAAF,CAAE,GAAE,CAAF,CAAJ,CAAS,IAAsC,CAAR,CAAxB,eAAI,CAAC,QAAS,CAAE,GAAE,CAAF,CAAK,CAAjB,CAAoB,KAAE,IAAF,CAAQ,IAC1B,CAAxB,eAAI,CAAC,QAAS,CAAE,GAAE,CAAF,CAAK,CAAjB,CAAoB,KAAE,KAAF,CAD0B,CAAtC,CAFf,EAIE,QAAS,IAJX;;AAMF,eAAU;AAjCH;AAAS;AAoCH;AAAN;AAEP;AACA;AAAK;AAAK;AACV;AAAI;AAAI;AAER,eAAU;AAEV,YAAO;AACP,YAAO;AACP,YAAO;AAEP,UAAG,CAAE,KAAE,EAAP;AAEE,cAAO;AACP,cAAO;AACP,cAAO;OAJT;AAOA,WAAM,CAAC;AAAG,WAAM;AAAG,WAAM;AAKzB,eAAS,QAAW,OAAC,CAAD,yBAApB;AAAI;AAIF,YAAG,CAAI,sCAAY,CAAC,CAAC,QAAC,KAAD,CAAF,CAAnB,EACE,MAAO,KADT;AAEA,YAAG,CAAI,sCAAY,CAAC,CAAC,QAAC,KAAD,CAAF,CAAO,IAAI,CAAI,qCAAW,CAAC,CAAC,QAAC,KAAD,EAAK,CAAC,IAAI,GAAL,CAAP,CAA7C,EACE,MAAO,KADT;AAEA,YAAG,CAAI,sCAAY,CAAC,CAAC,QAAC,KAAD,CAAF,CAAO,IAAI,CAAI,sCAAY,CAAC,CAAC,QAAC,KAAD,CAAF,CAA9C,EACE,MAAO,KADT;AAGA,YAAS,CAAL,CAAC,QAAC,KAAD,CAAI,KAAE,2BAAc,kBAAhB,CAAoC,IAAY,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAzD,EAAmE,MAAO,KAA1E;AACA,YAAG,CAAC,QAAC,KAAD,CAAI,KAAE,2BAAc,kBAAxB,EAAgD,KAAM,CAAtD;AACA,YAAG,CAAC,QAAC,KAAD,CAAI,KAAE,2BAAc,iBAAxB,EAAmD,EAAJ,IAAG,CAAlD;AACA,YAAG,CAAC,QAAC,KAAD,CAAI,KAAE,GAAV,EAAuB,EAAJ,IAAG,CAAtB;;AAGF,UAAG,GAAI,IAAI,CAAI,GAAf,EACE,SAAU,+BADZ;AAGA,UAAG,GAAH;AACE,iBAAU;;AAGV,YAAG,GAAH,EACE,SAAU,iCADZ;;AAIF,UAAO,CAAH,EAAG,GAAE,CAAF,CAAK,IAAO,CAAH,EAAG,GAAE,CAAF,CAAnB,EACE,SAAU,kCADZ;AApDO;AAAM;AAwDE;AAAR;AAEP;AACA;AAAG;AAEa;AAAP;AAEP,iBAAU;AACV,YAAO,CAAF,CAAE,IAAG,GAAH,CAAQ,IAAO,CAAF,CAAE,IAAG,GAAH,CAAtB,EAAoC,SAAc,CAAD,aAAI,GAAK,EAA1D;AACA,YAAO,CAAF,CAAE,IAAG,GAAH,CAAQ,IAAO,CAAF,CAAE,IAAG,GAAH,CAAtB,EAAoC,SAAiB,CAAH,CAAD,aAAI,GAAK,EAAL,CAAW,GAAE,EAAlE;AACA,YAAO,CAAF,CAAE,IAAG,GAAH,CAAQ,IAAO,CAAF,CAAE,IAAG,GAAH,CAAtB,EAAoC,SAAiB,CAAH,CAAD,aAAI,GAAK,EAAL,CAAW,GAAE,EAAlE;AALO;AAAO;AAShB,UAAK;AACL,UAAK;AAIL,eAAe,KAAC,CAAD,SAAW,aAA1B;AAAI;AAGF,YAAK,CAAE,GAAI,CAAF,CAAE,GAAE,OAAO,CAAC,CAAC,QAAC,KAAD,CAAF,CAAT,CAAJ;AACP,YAAK,CAAE,IAAI,CAAJ;;AAET,eAAU;AAzBH;AAAQ;AA4BF;AAAN;AAEF;AAEL,sBAAG,CAAC,EAAG;;;;WAAQ;;;;UAAZ;AAJI;AAAM;AAOK;AAAX;AAEP;AAEA,UAAK,cAAG,CAAC,KAAK,CAAN;AACR,UAAG,CAAE,GAAE,CAAP,EACE,iBAAM,CAAC;;;;WAAG,EAAG,CAAP,CADR;AAEA,UAAK,cAAG,CAAC,KAAK,CAAN;AACR,UAAG,CAAE,GAAE,CAAP,EACE,iBAAM,CAAC;;;;WAAG,EAAG,CAAP,CADR;AAEA,UAAK,cAAG,CAAC,OAAK,CAAN;AACR,UAAG,CAAE,GAAE,CAAP,EACE,iBAAM,CAAC;;;;WAAG,EAAG,CAAP,CADR;AAGA,eAAU;AAdH;AAAW;AAqbK;AAAhB;AAEP,aAAO,cAAG,CAAC,2BAAc,mBAAoB,CAAnC,CAAsC,GAAE,CAAlD,EACE,iBAAM,CAAC;;;;WAAG,cAAG,CAAC,2BAAc,mBAAoB,CAAnC,EAAuC,CAA9C;AACR,eAAU;AAJH;AAAgB;AAktDL;;;;AACc;;;;;;;;;AA3xEpB;AA+0Ed;AAEE,6BAAa,CAAC,sBAAD;AAFf;AA94FA,GA+jBc,+CA/jBd;ACCA,qCAkBS,icAlBT;;;;AA2CS,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AACC,qBAAG;AACH,qBAAG;AA+Ce;;AACE,qDADF,qDACE;AAGf,0BAAG,cAAC,8CAAY,6CAAb;AA89BG;AAvuBK;AA8iBH;AA7xBE;;AACG;;AAET;;;AAElB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAjDkB;;;;;;;;;AAiyMgB;AAEpC,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACT;OAHF;AAFoC;AA3bE;AAEtC,UAAG,YAAQ,KAAG,KAAd;AAEE,uBAAW;AACX;OAHF;AAFsC;AA4gBE;AAExC,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAFwC;AA2BI;AAE5C,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;AACjB;OAHF;AAF4C;AAnGO;AAEnD,UAAG,yBAAqB,KAAG,KAA3B;AAEE,oCAAwB;AACxB;OAHF;AAFmD;AA3BF;AAEjD,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB;OAHF;AAFiD;AAoCR;AAEzC,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd;OAHF;AAFyC;AAxEQ;AAEjD,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB;OAHF;AAFiD;AAkBV;AAEvC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAFuC;AAxCG;AAE1C,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf;OAHF;AAF0C;AATJ;AAEtC,UAAG,YAAQ,KAAG,KAAd;AAEE,oBAAO,OAAO,CAAC,KAAD;AACd;OAHF;AAFsC;AApJC;AAEvC;AACA;AAEA,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ,YAAK;AACL,YAAY,CAAD,QAAX;AAEE,cAAgC,CAAE,oBAAoB,CAAC,eAAD;AACtD,cAAW,CAAC,CAAD,SAAI,IAAsB,CAAjB,CAAC,aAAY,CAAC,CAAD,CAAI,KAAG,aAAH,CAArC;AAEE,gBAAG,aAAH;AAC6B,eAAE,UAAS,iBAAiB,CAAC,EAAG,Ef/sKmC,Ke+sKvC;AAEvD,kBAA2B,CAAE,UAAS,mBAAmB,CAAC,EAAG,EfhtKmC,KegtKvC;WAL7D;SAHF;OAJF;AALuC;AAhMO;AAAlB;AAE5B;AAEA,eAAU;AACV,UAAK;AACL,UAAY,CAAD,QAAX,EACE,SAAU,CAAC,mBAAC,EADd;AAN4B;AAAkB;AAkFC;AAAnB;AAE5B,eAAU,sCAAY,UAAU,CAAC,cAAD;AAFJ;AAAmB;AAkDL;AAAd;AAE5B,eAAU,YAAO,KAAG,CAAC,CAAJ;AAFW;AAAc;AA7IO;AAEjD,UAAG,uBAAmB,KAAG,KAAzB;AAEE,+BAAkB,OAAO,CAAC,KAAD;AACzB;OAHF;AAFiD;AAqhBV;AAEvC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAFuC;AArVG;AAE1C,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf;OAHF;AAF0C;AA+KG;AAE7C,UAAG,KAAM,KAAE,IAAX;AAEE,YAAY,mBAAD,QAAX,EACE,mBAAc,WAAC,CAAW,IAAX,CADjB;OAFF;AAMA,4BAAkB;AAClB,UAAY,mBAAD,QAAX,EACE,mBAAc,WAAC,CAAW,KAAX,CADjB;AAT6C;AA5HJ;AAGzC,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACT;AACH,YADG,IACH;AAEE,iCAAkB,EAAlB;AACA,kCAAmB,EAAnB;SAEF,UANG,IAMH;AAEE,iCAAkB,EAAlB;AACA,kCAAmB,EAAnB;SAEF,UAXG,IAWH;AAEE,iCAAkB,EAAlB;AACA,kCAAmB,EAAnB;SAEF,UAhBG,IAgBH;AAEE,iCAAkB,EAAlB;AACA,kCAAmB,EAAnB;SAEF,UArBG,IAqBH;AAEF;OA1BF;AAHyC;AA3GS;AAAtB;AAE5B,eAAU,oBAAe,KAAG,EAAH;AAFG;AAAsB;AAkMJ;AAE9C,UAAG,oBAAgB,KAAG,KAAtB;AAEE,+BAAmB;AACnB;OAHF;AAF8C;AAvMO;AAAzB;AAE5B,eAAU,uBAAkB,KAAG,CAAH;AAFA;AAAyB;AAqLJ;AAEjD,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB;OAHF;AAFiD;AA1LE;AAAvB;AAE5B,eAAU,qBAAgB,KAAG,EAAH;AAFE;AAAuB;AAiLJ;AAE/C,UAAG,qBAAiB,KAAG,KAAvB;AAEE,gCAAoB;AACpB;OAHF;AAF+C;AAkBF;AAE7C,UAAG,mBAAe,KAAG,KAArB;AAEE,8BAAkB;AAClB;OAHF;AAF6C;AAjGJ;AAGzC,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd;OAHF;AAHyC;AAoDW;AAEpD,UAAG,0BAAsB,KAAG,KAA5B;AAEE,qCAAyB;AACzB;OAHF;AAFoD;AASN;AAE9C,UAAG,oBAAgB,KAAG,KAAtB;AAEE,+BAAmB;AACnB;OAHF;AAF8C;AASI;AAElD,UAAG,wBAAoB,KAAG,KAA1B;AAEE,mCAAuB;AACvB;OAHF;AAFkD;AAsOD;AAEjD,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB;OAHF;AAFiD;AAvIC;AAElD,UAAG,wBAAoB,KAAG,KAA1B;AAEE,mCAAuB;AACvB;OAHF;AAFkD;AAoCA;AAElD,UAAG,wBAAoB,KAAG,KAA1B;AAEE,mCAAuB;AACvB;OAHF;AAFkD;AAoCb;AAErC,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACV;OAHF;AAFqC;AASK;AAE1C,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf;OAHF;AAF0C;AASc;AAExD,UAAG,8BAA0B,KAAG,KAAhC;AAEE,yCAA6B;AAC7B;OAHF;AAFwD;AASX;AAE7C,UAAG,mBAAe,KAAG,KAArB;AAEE,8BAAkB;AAClB;OAHF;AAF6C;AASS;AAEtD,UAAG,4BAAwB,KAAG,KAA9B;AAEE,uCAA2B;AAC3B;OAHF;AAFsD;AASL;AAEjD,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB;OAHF;AAFiD;AAhRJ;AAE7C,UAAG,mBAAe,KAAG,KAArB;AAEE,8BAAkB;AAClB;OAHF;AAF6C;AA6KH;AAE1C,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf;OAHF;AAF0C;AApEA;AAG1C,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf;OAHF;AAH0C;AA0NH;AAEvC;AAEA,UAAK;AACL,UAAY,CAAD,QAAX,EACE,CAAC,iBAtwKiD,MAqwKpD;AALuC;AAhoBH;AAEpC;AAFoC;AALM;AAE1C;AAF0C;AAgHO;AAEjD;AAFiD;AALT;AAAZ;AAE5B,eAAU;AAFkB;AAAY;AA6EL;AAAP;AAE5B;AACA;AAEA,UAAK;AACL,UAAY,eAAD,QAAX;AAEE,aAAM,eAAU,gBAAe;AAC/B,uBAAU,kBAAkB,CAAC,KAAM;;;;YAAP;AAC5B,YAAG,EAAG,KAAE,EAAR;AACE,cAAK;AAEL,kBAAK,eAAU,YAAY,CAAC,GAAI,IAAL;OAP/B;AAUA,eAAU;AAhBkB;AAAO;AAmBC;AAAR;AAE5B,eAAU;AAFkB;AAAQ;AAjMC;AAErC;AACA,UAAY,gBAAD,QAAX,EACE,kBAA0B,OAAX,iBAAc,0BAAH,CAAyB,YADrD;AAGA,wBAAc;AACd,gCAAsB;AACtB,4BAAkB;AAClB,sBAAY;AACZ,wBAAc;AACd,yBAAe,CAAC;AAChB,yBAAe;AACf,yBAAe;AACf,iCAAuB;AACvB,6BAAmB;AACnB,mCAAyB;AACzB,qBAAW,CAAC;AACZ,sBAAY;AACZ,wBAAc;AACd,6BAAmB;AACnB,8BAAoB;AACpB,gCAAsB;AACtB,UAAW,CAAC,eAAD,SAAa,IAAI,eAAU,eAAtC,EACE,sBAAkB,QADpB;AAEA,sBAAY;AACZ,gCAAsB,uBAAW,QAAC;AAClC,6BAAkB,UAAlB,GAAgC;AAChC,yBAAe;AACf,gCAAsB;AACtB,gCAAsB;AACtB,2BAAiB;AACjB,kCAAwB;AACxB,gCAAsB;AACtB,uBAAa;AACb,iCAAuB;AACvB,iCAAuB;AACvB,gCAAsB;AACtB,uCAA6B;AAC7B,qCAA2B;AAC3B,4BAAkB;AAClB,qBAAW,uCAAa,QAAC;AACzB,kBAAO,UAAP,GAAqB;AACrB,UAAY,eAAD,QAAX,EACE,IAAI,OAAO,CAAC,eAAU,aAAX,CADb;AAEA;AA7CgE;AAA3B;AAgDA;AAErC;AAEQ,eAAR,KAAQ;AACW,eAAnB,KAAmB;AACnB,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,aAAX,SAApC;AAEE,iBAAuC,KAA9B,eAAU,aAAa,SAAC,EAAM,GAAE,CAAF,EAAW,aAAlD;AAAI;AAEF,cAAG,eAAU,aAAa,SAAC,CAAD,CAAG,KAAM,KAAE,IAArC;AAEE,2BAAU,aAAa,OAAO,CAAC,CAAD;AAC9B;WAHF;;OAJJ;AAWA;AACA;AAlBqC;AAkMG;AAAZ;AAE5B;AAEA,UAAG,CAAY,CAAC,eAAD,SAAf,EACE,aADF;AAGA,eAAU;AACV,eAAU,MAAO,GAAE,UAAF;AAEjB,UAAG,CAAI,SAAP,EACE,SAAU,MAAO,GAAE,KADrB;AAGA,UAAG,CAAI,SAAP;AAEE,iBAAU,MAA4B,GAAnB,sBAAS,CAAC,c9GhzLkB,K8GgzLnB,CAAX,GAAuB,GAAF;AACtC,iBAAU,MAAoB,GAAX,gBAAF,GAAe,GAAF;AAC9B,iBAAU,MAAiD,GAAxC,sCAAY,mBAAmB,CAAC,YAAD,CAAjC,GAA4C,GAAF;AAC3D,iBAAU,MAAO,GAAE,CAAF;OALnB;AAQA,UAAG,CAAI,SAAP;AAEE,iBAAU,MAAO,GAAE,KAAF;AACjB,iBAAU,MAAO,GAAE,sBAAS,CAAC,c9GzzLkB,K8GyzLnB,CAAX;OAHnB;AArB4B;AAAY;AAlBF;AAAV;AAE5B;AAEA,eAAU;AACV,UAAY,eAAD,QAAX;AAEE,iBAAS,QAAkC,OAA7B,eAAU,oBAAmB,GAAE,CAAF,kBAA3C;AAAI;AAEF,cAAG,eAAU,WAAc,CAAC,CAAD,CAAI,KAAE,IAAjC;AAEE,qBAAU;AACV;WAHF;;OAJJ;AAL4B;AAAU;AArHK;AAE3C;AACA;AACA;AACA;AACA;AACA;AACA;AAEA,UAAK,uBAAW,QAAC;AACjB;AACE,aAAM;AACN,eAAM,EAAG,KAAG,EAAZ;AAEE,eAAM,cAAG,CAAC,MAAO,EAAR;AACT,cAAG,EAAG,KAAE,CAAR;AAEE,aAAC,IAAI,CAAC,EAAD;AACL;WAHF;AAKA,kBAAS,eAAI,CAAC,GAAI,EAAG,EAAG,GAAE,CAAb;AACb,WAAC,IAAI,CAAC,KAAD;AACL,2BAAM,CAAC;;;;eAAI,EAAM,CAAH,EAAG,GAAE,CAAF,CAAI,GAAS,KAAD,OAAvB;;AAGR,iBAAS,QAAa,OAAR,CAAC,SAAC,EAAM,GAAE,CAAF,kBAAtB;AAAI;AAEF,cAAG,CAAC,KAAC,CAAD,CAAI,KAAG,EAAX;AAEE,gBAAG,CAAE,KAAE,CAAP;AACE,2BAAQ,CAAC,KAAC,CAAD,CAAT;AACG,sBAAG,CAAE,KAAE,CAAP;AAEH,kBAAK,uBAAW,QAAC;AACjB;AACE,sDAAY,MAAM,CAAC,IAAK,CAAC,KAAC,CAAD,EAAK,EhC/yLsF,KgC+yLlG;AAClB,yBAAS,SAAa,QAAR,CAAC,SAAC,EAAM,GAAE,CAAF,qBAAtB;AAAI;AAEF,sBAAG,CAAC,KAAC,CAAD,CAAI,KAAG,EAAX;AAEE,wBAAG,CAAE,KAAE,CAAP;AACE,sCAAW,sBAAS,CAAC,CAAC,KAAC,CAAD,CAAF,CAApB;AACG,8BAAG,CAAE,KAAE,CAAP;AACH,yCAAc,CAAC,KAAC,CAAD,CAAf;AACG,8BAAG,CAAE,KAAE,CAAP,EACH,sCAAY,qBAAqB,CAAC,CAAC,KAAC,CAAD,EAAK,YAAP,CAD9B;mBANP;;AAJJ;AAeE,iBAAE,eAAF,CAAE;AAfJ;aAkBG,UAAG,CAAE,KAAE,CAAP,EACH,gBAAW,sBAAS,CAAC,CAAC,KAAC,CAAD,CAAF,CAApB,CADG;WAzBP;;AAjBJ;AA+CE,SAAE,eAAF,CAAE;AA/CJ;AAX2C;AA/KR;AAEnC,UAAa,yBAAH,eAAP,MAAO,CAAV;AAEE,oBAAgB,OAAP,OAAU,yBAAH,CAAwB;AACxC,+BAAkB,OAAO,CAAS,OAAP,OAAU,yBAAH,CAAwB,mBAAjC;AACzB,qBAAiB,OAAP,OAAU,yBAAH,CAAwB;AACzC,yBAAqB,OAAP,OAAU,yBAAH,CAAwB;AAC7C,6BAAyB,OAAP,OAAU,yBAAH,CAAwB;AACjD,oCAAgC,OAAP,OAAU,yBAAH,CAAwB;AACxD,kCAA8B,OAAP,OAAU,yBAAH,CAAwB;AACtD,0BAAsB,OAAP,OAAU,yBAAH,CAAwB;AAC9C,kCAA8B,OAAP,OAAU,yBAAH,CAAwB;AACtD,kCAA8B,OAAP,OAAU,yBAAH,CAAwB;AACtD,sBAAkB,OAAP,OAAU,yBAAH,CAAwB;AAC1C,8BAA0B,OAAP,OAAU,yBAAH,CAAwB;AAClD,kCAA8B,OAAP,OAAU,yBAAH,CAAwB;AACtD,yCAAqC,OAAP,OAAU,yBAAH,CAAwB;AAC7D,uCAAmC,OAAP,OAAU,yBAAH,CAAwB;AAC3D,2BAAuB,OAAP,OAAU,yBAAH,CAAwB;AAC/C,mCAA+B,OAAP,OAAU,yBAAH,CAAwB;AACvD,mCAA+B,OAAP,OAAU,yBAAH,CAAwB;AACvD,wBAAoB,OAAP,OAAU,yBAAH,CAAwB;AAC5C,0BAAsB,OAAP,OAAU,yBAAH,CAAwB;AAC9C,wBAAoB,OAAP,OAAU,yBAAH,CAAwB;AAC5C,2BAAuB,OAAP,OAAU,yBAAH,CAAwB;AAC/C,oBAAO,OAAO,CAAS,OAAP,OAAU,yBAAH,CAAwB,QAAjC;AACd,uBAAmB,OAAP,OAAU,yBAAH,CAAwB;AAC3C,2BAAuB,OAAP,OAAU,yBAAH,CAAwB;AAC/C,2BAAuB,OAAP,OAAU,yBAAH,CAAwB;AAC/C,2BAAuB,OAAP,OAAU,yBAAH,CAAwB;AAC/C,+BAA2B,OAAP,OAAU,yBAAH,CAAwB;AACnD,gCAA4B,OAAP,OAAU,yBAAH,CAAwB;AACpD,kCAA8B,OAAP,OAAU,yBAAH,CAAwB;AACtD,8BAA0B,OAAP,OAAU,yBAAH,CAAwB;AAClD,wBAAoB,OAAP,OAAU,yBAAH,CAAwB;AAC5C,0BAAsB,OAAP,OAAU,yBAAH,CAAwB;AAC9C,mCAA+B,OAAP,OAAU,yBAAH,CAAwB;AACvD,qCAAiC,OAAP,OAAU,yBAAH,CAAwB;AACzD,+BAA2B,OAAP,OAAU,yBAAH,CAAwB;AACnD,kCAA8B,OAAP,OAAU,yBAAH,CAAwB;AACtD,uBAAU,CAAC,MAAD;OAvCZ;AAFmC;AA6CI;AAEvC,UAAa,yBAAH,eAAP,MAAO,CAAV;AAEE,2BAAuB,OAAP,OAAU,yBAAH,CAAwB;AAC/C,4BAAwB,OAAP,OAAU,yBAAH,CAAwB;AAChD,2BAAuB,OAAP,OAAU,yBAAH,CAAwB;AAC/C,4BAAwB,OAAP,OAAU,yBAAH,CAAwB;AAChD,4BAAwB,OAAP,OAAU,yBAAH,CAAwB;AAChD,sBAAkB,OAAP,OAAU,yBAAH,CAAwB;OAP5C;AAFuC;AA4oBO;AAE9C,UAAY,eAAD,QAAX,EACE,eAAU,kBAAkB,CAAC,eAAD,CAD9B;AAF8C;AA/aA;AAE9C,UAAY,eAAD,QAAX,EACE,eAAU,oBADZ;AAF8C;AAv+L1B;AAuGA,+BAAY,ezGoQrB,gCyGpQqB,CAAZ;AA4BF;AACM,qCrGgChB,yCqGhCgB;AACT;AACa,yCzGyHjB,iCyGzHiB;AACX,8B5BySJ,iD4BzSI;AACI;AACE;AACJ,gC3BoTQ,uE2BpTR;AACW,2C3BkTN,oE2BlTM;AACF,yC3BiTJ,oE2BjTI;AACR,iCpG6Hd,uCoG7Hc;AACQ,yCpG4HtB,uCoG5HsB;AACA,yCpG2HtB,uCoG3HsB;AACV;AACD;AACC;AACG;AACA;AACP;AACW;AACC;AACN,iCAvKS,4CAuKT;AACQ;AACJ;AACH,kC3BkSG,oE2BlSH;AACI,sCpG8GnB,uCoG9GmB;AACM,4CpG6GzB,uCoG7GyB;AACF,0CpG4GvB,uCoG5GuB;AACT,iCAjKS,4CAiKT;AACQ;AAhKR;AAmKS;;AACA;;AAGR;;;AAMnB;AANmB;;;;;AAy7Ke;AAAP;AAE7B,eAAyC,YAAK,CAAC,KAAD;AAFjB;AAAO;AAsGC;AAE3B,kBAAK,CAAC,MAAU,KAAX;AAFsB;AAjGI;AAAZ;AAE7B,eAAU;AAFmB;AAAY;AAnEL;AAAP;AAE7B;AAAO;AACP;AAAU;AACV;AAEA,eAAU;AAEV,UAAK;AACL,UAAY,CAAD,QAAX;AAEQ,mBAAD,CAAC;AACJ,aADI,IACJ,oDAAU,CADN,IACM,sDAAV,IAA0B,CADtB,IACsB,6DAA1B,IAAiD,CAD7C,IAC6C,4DAAjD;AAEE,cAAG,CAAI,cAAP;AACE,qBAAU,2BAAc,CAAC,sBAAS,CAAC,MAAM,oBAAC,EAAR,EAA2B,sBAAS,CAAC,MAAM,oBAAC,EAAR,CAA9C;AAExB,yBAAU,2BAAc,CAAC,MAAM,oBAAC,GAAkB,MAAM,oBAAC,EAAjC;SAE5B,UARI,IAQJ;AAEE,kBAAS,CAAC,YAAW,cAAc,CAAC,MAAM,YAAP;AACnC,kBAAS,CAAC,YAAW,cAAc,CAAC,MAAM,YAAP;AAEnC,cAAG,KAAM,GAAE,KAAX;AACE,qBAAW,CAAC;AACT,oBAAG,KAAM,GAAE,KAAX;AACH,qBAAU;;AAGV,uBAAY,MAAM,oBAAC;AACnB,uBAAY,MAAM,oBAAC;AACnB,gBAAG,CAAI,cAAP;AAEE,yBAAY,sBAAS,CAAC,QAAD;AACrB,yBAAY,sBAAS,CAAC,QAAD;aAHvB;AAMA,gBAAG,QAAS,GAAE,QAAd;AACE,uBAAW,CAAC;AACT,sBAAG,QAAS,GAAE,QAAd;AACH,uBAAU;AAEV,2BAAU;;SAxBhB;AA6BG;AACH,YADG,KACH,yDAAiB,SAAU,MAAO,GAAE,CAAC,CAArC;AAGF,SAAC,cAAc,CAAC,OAAQ,OAAQ;;;;YAAjB;OA3CjB;AAT6B;AAAO;AAgGG;;AAEvC;AAAG;AAAG;AAEN;AAEuB;AAGrB;AAMA,eAAQ,QAAQ,IAAM,CAAC,MAAD;AACtB,gBAAQ,IAAM,CAAC,OAAW,QAAQ,IAAM,CAAC,MAAD,CAA1B;AACd,gBAAQ,IAAM,CAAC,OAAW,IAAZ;AAXO;AAiCvB,iBAAY,KAAI;AAGhB;AACE,YAAK;AACL,YAAK;AACL,YAAQ,CAAF,CAAE,GAAE,CAAF,CAAK,KAAI,CAAJ;AACb;AACE,iBAAM,YAAO,CAAC,cAAK,CAAC,CAAD,EAAK,cAAK,CAAC,CAAD,EAAK,eAAgB,YAArC,CAAmD,GAAE,CAAlE,EACM,CAAJ,IAAG;AACL,iBAAM,YAAO,CAAC,cAAK,CAAC,CAAD,EAAK,cAAK,CAAC,CAAD,EAAK,eAAgB,YAArC,CAAmD,GAAE,CAAlE,EACM,CAAJ,IAAG;AACL,cAAG,CAAE,IAAG,CAAR;AAEE,yBAAa,CAAC,EAAG,CAAJ;AACb,gBAAG,CAAE,KAAE,CAAP;AACE,kBAAK;AACF,sBAAG,CAAE,KAAE,CAAP,EACH,IAAK,CADF;AAED,aAAJ,IAAG;AACC,aAAJ,IAAG;WARL;SALF,QAeQ,EAAF,CAAE,GAAE,CAAF,CAfR;AAgBA,YAAG,CAAE,GAAE,CAAP,EACE,cAAS,CAAC,EAAG,EAAG,eAAgB,YAAvB,CADX;AAEA,YAAK;OAtBP,QAuBQ,EAAF,CAAE,IAAG,CAAH,CAvBR;AA1CuC;AAnBD;AAAT;AAE7B,eAAU;AAFmB;AAAS;AArBA;AAEtB,sDAAC,WAAY,mBAAb;AAChB,wBAAc;AAH6D;AAArC;AAzEN;AAAH;AAE7B,eAAyC;AAFZ;AAAG;AAyFG;AAAN;AAE7B,eAA+C,yCAAC,KAAD;AAFlB;AAAM;AApFA;AAEnC;AAEA,UAAK;AACL,UAAY,CAAD,QAAX,EACE,CAAC,cADH;AAEU;AACV,UAAY,CAAD,QAAX,EACE,CAAC,YADH;AARmC;AAqLD;AAElC;AAEA,UAAK;AACL,UAAY,CAAD,QAAX;AAEE,SAAC;AACD;AACA,YAAG,eAAM,GAAE,CAAX,EACE,cAAS,CAAC,EAAQ,eAAD,KAAS,eAAgB,YAAjC,CADX;AAEA;AACA,SAAC;OAPH;AALkC;AApiLb;AAeD,+BAAW,cA6xBT,oCA7xBS,CAAX;AAfC;AAuBC;;;AAEpB;AAFoB;;;;;AAu8NqB;AAAb;AAE9B,eAAU;AACV,UAAW,CAAC,WAAD,SAAyC,IAApB,CAAC,WAAM,WAAP,SAAZ,IAA4C,CAAC,WAAM,WAAW,UAAlB,SAAhE,EACE,SAAU,WAAM,WAAW,UAAU,aAAY,QAAO,YAD1D;AAH8B;AAAa;AAOG;AAAhB;AAE9B,eAAU;AACV,UAAW,CAAC,WAAD,SAAyC,IAApB,CAAC,WAAM,WAAP,SAAZ,IAA4C,CAAC,WAAM,WAAW,UAAlB,SAAhE,EACE,SAAU,WAAM,WAAW,UAAU,aAAY,QAAO,eAD1D;AAH8B;AAAgB;AAON;AAAV;AAE9B,eAAU;AACV,UAAW,CAAC,WAAD,SAAyC,IAApB,CAAC,WAAM,WAAP,SAAZ,IAA4C,CAAC,WAAM,WAAW,UAAlB,SAAhE,EACE,SAAU,WAAM,WAAW,UAAU,aAAY,QAAO,SAD1D;AAH8B;AAAU;AAOI;AAAd;AAE9B,eAAU;AACV,UAAW,CAAC,WAAD,SAAyC,IAApB,CAAC,WAAM,WAAP,SAAZ,IAA4C,CAAC,WAAM,WAAW,UAAlB,SAAhE,EACE,SAAU,WAAM,WAAW,UAAU,aAAY,QAAO,aAD1D;AAH8B;AAAc;AAOA;AAE5C,UAAW,CAAC,WAAD,SAAyC,IAApB,CAAC,WAAM,WAAP,SAAZ,IAA4C,CAAC,WAAM,WAAW,UAAlB,SAAhE,EACE,WAAM,WAAW,UAAU,aAAY,QAAO,YAA9C,GAA6D,KAD/D;AAF4C;AAMG;AAE/C,UAAW,CAAC,WAAD,SAAyC,IAApB,CAAC,WAAM,WAAP,SAAZ,IAA4C,CAAC,WAAM,WAAW,UAAlB,SAAhE,EACE,WAAM,WAAW,UAAU,aAAY,QAAO,eAA9C,GAAgE,KADlE;AAF+C;AAMN;AAEzC,UAAW,CAAC,WAAD,SAAyC,IAApB,CAAC,WAAM,WAAP,SAAZ,IAA4C,CAAC,WAAM,WAAW,UAAlB,SAAhE,EACE,WAAM,WAAW,UAAU,aAAY,QAAO,SAA9C,GAA0D,KAD5D;AAFyC;AAMI;AAE7C,UAAW,CAAC,WAAD,SAAyC,IAApB,CAAC,WAAM,WAAP,SAAZ,IAA4C,CAAC,WAAM,WAAW,UAAlB,SAAhE,EACE,WAAM,WAAW,UAAU,aAAY,QAAO,aAA9C,GAA8D,KADhE;AAF6C;AAnDN;AAEvC,oBAAU;AAFmE;AAAtC;AAXF;AAErC,UAAa,2BAAH,eAAP,MAAO,CAAV;AAEE,8BAAyB,OAAP,OAAU,2BAAH,CAA0B,iBAAC,EAApD;AACA,wBAAmB,OAAP,OAAU,2BAAH,CAA0B,WAAC,EAA9C;AACA,4BAAuB,OAAP,OAAU,2BAAH,CAA0B,eAAC,EAAlD;AACA,2BAAsB,OAAP,OAAU,2BAAH,CAA0B,cAAC,EAAjD;OALF;AAFqC;AAv7Nf;AAYF,+BAAO,UAkCA,yCAlCA,CAAP;AAGI;AACN;AACI;AACD;AAlBC;AAqBG;;;AAEvB;AAFuB;;;;;AAu/NyB;AAAjB;AAEjC,eAAU;AACV,UAAW,CAAC,WAAD,SAAmF,IAA9D,CAAC,WAAM,WAAP,SAAZ,IAA4C,CAAC,WAAM,WAAW,UAAlB,SAAZ,IAAyF,CAA1C,WAAM,WAAW,UAAU,SAAQ,SAAC,EAAM,GAAE,CAAF,CAA7I,EACE,SAAU,WAAM,WAAW,UAAU,SAAQ,WAAC,CAAD,CAAG,WAAU,gBAD5D;AAHiC;AAAiB;AAOD;AAAhB;AAEjC,eAAU;AACV,UAAW,CAAC,WAAD,SAAmF,IAA9D,CAAC,WAAM,WAAP,SAAZ,IAA4C,CAAC,WAAM,WAAW,UAAlB,SAAZ,IAAyF,CAA1C,WAAM,WAAW,UAAU,SAAQ,SAAC,EAAM,GAAE,CAAF,CAA7I,EACE,SAAU,WAAM,WAAW,UAAU,SAAQ,WAAC,CAAD,CAAG,WAAU,eAD5D;AAHiC;AAAgB;AAON;AAAV;AAEjC,eAAU;AACV,UAAW,CAAC,WAAD,SAAmF,IAA9D,CAAC,WAAM,WAAP,SAAZ,IAA4C,CAAC,WAAM,WAAW,UAAlB,SAAZ,IAAyF,CAA1C,WAAM,WAAW,UAAU,SAAQ,SAAC,EAAM,GAAE,CAAF,CAA7I,EACE,SAAU,WAAM,WAAW,UAAU,SAAQ,WAAC,CAAD,CAAG,WAAU,SAD5D;AAHiC;AAAU;AAOQ;AAEnD,UAAW,CAAC,WAAD,SAAmF,IAA9D,CAAC,WAAM,WAAP,SAAZ,IAA4C,CAAC,WAAM,WAAW,UAAlB,SAAZ,IAAyF,CAA1C,WAAM,WAAW,UAAU,SAAQ,SAAC,EAAM,GAAE,CAAF,CAA7I,EACE,WAAM,WAAW,UAAU,SAAQ,WAAC,CAAD,CAAG,WAAU,gBAAhD,GAAmE,KADrE;AAFmD;AAMD;AAElD,UAAW,CAAC,WAAD,SAAmF,IAA9D,CAAC,WAAM,WAAP,SAAZ,IAA4C,CAAC,WAAM,WAAW,UAAlB,SAAZ,IAAyF,CAA1C,WAAM,WAAW,UAAU,SAAQ,SAAC,EAAM,GAAE,CAAF,CAA7I,EACE,WAAM,WAAW,UAAU,SAAQ,WAAC,CAAD,CAAG,WAAU,eAAhD,GAAkE,KADpE;AAFkD;AAMN;AAE5C,UAAW,CAAC,WAAD,SAAmF,IAA9D,CAAC,WAAM,WAAP,SAAZ,IAA4C,CAAC,WAAM,WAAW,UAAlB,SAAZ,IAAyF,CAA1C,WAAM,WAAW,UAAU,SAAQ,SAAC,EAAM,GAAE,CAAF,CAA7I,EACE,WAAM,WAAW,UAAU,SAAQ,WAAC,CAAD,CAAG,WAAU,WAAC,CAAW,KAAX,CADnD;AAF4C;AAtCF;AAE1C,oBAAU;AAFsE;AAAtC;AAVF;AAExC,UAAa,8BAAH,eAAP,MAAO,CAAV;AAEE,wBAAmB,OAAP,OAAU,8BAAH,CAA6B,WAAC,EAAjD;AACA,8BAAyB,OAAP,OAAU,8BAAH,CAA6B,iBAAC,EAAvD;AACA,+BAA0B,OAAP,OAAU,8BAAH,CAA6B,kBAAC,EAAxD;OAJF;AAFwC;AAx+Nf;AAUL,+BAAO,UAeA,yCAfA,CAAP;AAGF;AACM;AACC;AAfA;AAkBI;;AACA;;AACD;;AACL;;AACO;;AACI;;AAEP;;;AAEzB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAZyB;;;;;;;;AA2vNsB;AAAd;AAEnC,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,SAAU,eAAU,UAAU,aAAY,aAD5C;AAHmC;AAAc;AA8GC;AAElD,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,eAAU,UAAU,aAAY,eAAC,CAAe,KAAf,CADnC;AAFkD;AAtIC;AAAhB;AAEnC;AAEA,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC;AAEE,YAAa,eAAU,UAAU,aAAY;AAC7C,iBAAwC;OAH1C;AALmC;AAAgB;AAYD;AAAf;AAEnC;AAEA,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC;AAEE,YAAa,eAAU,UAAU,aAAY;AAC7C,iBAAuC;OAHzC;AALmC;AAAe;AAmBL;AAAV;AAEnC,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,SAAU,eAAU,UAAU,aAAY,SAD5C;AAHmC;AAAU;AAoBO;AAAjB;AAEnC,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,SAAU,eAAU,UAAU,aAAY,gBAD5C;AAHmC;AAAiB;AA8DD;AAEnD;AAEA,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC;AAEE,YAAa;AACb,uBAAU,UAAU,aAAY,gBAAC,CAA4C,CAA5C;OAHnC;AAJmD;AAWH;AAEhD,qBAAU,OAAO,CAAC,KAAD;AAF+B;AAKH;AAE7C,kBAAO,OAAO,CAAC,KAAD;AAF+B;AAWC;AAE9C,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,eAAU,UAAU,aAAY,WAAC,CAAW,KAAX,CADnC;AAF8C;AAkBO;AAErD,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,eAAU,UAAU,aAAY,kBAAC,CAAkB,KAAlB,CADnC;AAFqD;AAnFD;AAGpD;AAEA,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC;AAEE,YAAa;AACb,uBAAU,UAAU,aAAY,eAAhC,GAA+E;OAHjF;AALoD;AArCP;AAAV;AAEnC,eAAU;AACV,UAAW,CAAC,eAAD,SAAgD,IAAvB,CAAC,eAAU,UAAX,SAAZ,IAA2E,CAAnC,eAAU,UAAU,SAAQ,SAAC,EAAM,GAAE,CAAF,CAAnG;AAEsC,mBAA/B,eAAU,UAAU,SAAQ,WAAC,CAAD,CAAG;AAClC,YADkC,IAClC;AAAS,mBAAU;AACnB,kBAFkC,IAElC;AAAW,mBAAU;AACrB,kBAHkC,IAGlC,2FAAwB,SAAU,oDAAlC;OALJ;AAHmC;AAAU;AA4GC;AAE9C,UAAW,CAAC,eAAD,SAAgD,IAAvB,CAAC,eAAU,UAAX,SAAZ,IAA2E,CAAnC,eAAU,UAAU,SAAQ,SAAC,EAAM,GAAE,CAAF,CAAnG;AAEO;AACH,YADG,IACH;AAAU,yBAAU,UAAU,SAAQ,WAAC,CAAD,CAAG,WAAC,CAAW,qEAAX;AAC1C,kBAFG,IAEH;AAAY,yBAAU,UAAU,SAAQ,WAAC,CAAD,CAAG,WAAC,CAAW,uEAAX;AAC5C,kBAHG,IAGH,2DAAyB,eAAU,UAAU,SAAQ,WAAC,CAAD,CAAG,WAAC,CAAW,oFAAX,CAAzD;OALJ;AAF8C;AA3DO;AAErD,UAAG,oBAAgB,KAAG,KAAtB,EACE,uBAAmB,KADrB;AAFqD;AAMA;AAErD,UAAG,oBAAgB,KAAG,KAAtB;AAEE,+BAAmB;AACnB,YAAY,eAAD,QAAX,EACE,eAAU,iBAt5LsC,MAq5LlD;OAHF;AAFqD;AAUE;AAEvD,UAAG,sBAAkB,KAAG,KAAxB;AAEE,iCAAqB;AACrB,YAAY,eAAD,QAAX,EACE,eAAU,iBAh6LsC,MA+5LlD;OAHF;AAFuD;AA7CO;AAE9D,sCAA4B;AAFkC;AAjEb;AAAd;AAEnC,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,SAAU,eAAU,UAAU,aAAY,aAD5C;AAHmC;AAAc;AA4EC;AAElD,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,eAAU,UAAU,aAAY,aAAhC,GAAgD,KADlD;AAFkD;AAnFG;AAAlB;AAEnC,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,SAAU,eAAU,UAAU,aAAY,iBAD5C;AAHmC;AAAkB;AA6EC;AAEtD,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,eAAU,UAAU,aAAY,iBAAhC,GAAoD,KADtD;AAFsD;AAnGV;AAE5C,wBAAc;AACd,8BAAoB;AACpB,qCAA2B;AAC3B,sCAA4B;AAC5B,qBAAW,2BAAsB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,wBAAc,8BAAyB,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,6BAAmB;AACnB,6BAAmB;AACnB,+BAAqB;AACrB,iCAAuB;AACvB,iCAAuB;AAZ0D;AAArC;AAeA;AAEpC,eAAR,KAAQ;AACG,eAAX,KAAW;AACX;AAJ4C;AArCF;AAE1C,UAAc,gCAAH,eAAP,MAAO,CAAX;AAEE,oBAAO,OAAO,CAAS,OAAP,OAAU,gCAAH,CAA+B,QAAxC;AACd,uBAAS,OAAO,CAAS,OAAP,OAAU,gCAAH,CAA+B,WAAxC;AAChB,wBAAmB,OAAP,OAAU,gCAAH,CAA+B,WAAC,EAAnD;AACA,+BAA2B,OAAP,OAAU,gCAAH,CAA+B;AAC1D,6BAAwB,OAAP,OAAU,gCAAH,CAA+B,gBAAC,EAAxD;AACA,4BAAuB,OAAP,OAAU,gCAAH,CAA+B,eAAC,EAAvD;AACA,+BAA0B,OAAP,OAAU,gCAAH,CAA+B,kBAAC,EAA1D;AACA,8BAAyB,OAAP,OAAU,gCAAH,CAA+B,iBAAC,EAAzD;AACA,wBAAmB,OAAP,OAAU,gCAAH,CAA+B,WAAC,EAAnD;AACA,+BAA2B,OAAP,OAAU,gCAAH,CAA+B;AAC1D,iCAA6B,OAAP,OAAU,gCAAH,CAA+B;AAC5D,wCAAmE,WAA/B,OAAP,OAAU,gCAAH,CAA+B;AACnE,gCAA4B,OAAP,OAAU,gCAAH,CAA+B;AAC3D,uCAAmC,OAAP,OAAU,gCAAH,CAA+B;AAClE,mCAA+B,OAAP,OAAU,gCAAH,CAA+B;OAhBhE;AAF0C;AAzqNf;AA2CP,+BAAW,cA4rBT,oCA5rBS,CAAX;AAKM;AACJ;AACA;AACG;AACA,sCAvDK,6CAuDL;AACA;AACE;AACE;AACK,+CAlTH,8CAkTG,yDAAyG,8BAAzG;AACD;AACP;AACG,0CA7DK,iDA6DL;AA3DF;AA8DG;;AAEA;;;AAE5B;AACA;AACA;AACA;AACA;AACA;AACA;AAR4B;;;;;;;;;AAyuMe;AAAP;AAEtC,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,SAAU,eAAU,UAAU,iBAAgB,MADhD;AAHsC;AAAO;AAwBQ;AAAf;AAEtC,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,SAAU,eAAU,UAAU,iBAAgB,cADhD;AAHsC;AAAe;AA6EP;AAE9C,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,eAAU,UAAU,iBAAgB,MAAK,OAAO,CAAC,KAAD,CADlD;AAF8C;AAqCQ;AAEtD,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,eAAU,UAAU,iBAAgB,cAAa,OAAO,CAAC,KAAD,CAD1D;AAFsD;AA3GC;AAAjB;AAEtC,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,SAAU,eAAU,UAAU,iBAAgB,gBADhD;AAHsC;AAAiB;AAiHC;AAExD,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,eAAU,UAAU,iBAAgB,gBAAe,OAAO,CAAC,KAAD,CAD5D;AAFwD;AA5KH;AAAf;AAEtC,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,SAAU,eAAU,UAAU,iBAAgB,cADhD;AAHsC;AAAe;AAOE;AAAjB;AAEtC,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,SAAU,eAAU,UAAU,iBAAgB,gBADhD;AAHsC;AAAiB;AAOV;AAAP;AAEtC,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,SAAU,eAAU,UAAU,iBAAgB,MADhD;AAHsC;AAAO;AA2DE;AAAT;AAEtC,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,SAAU,eAAU,UAAU,iBAAgB,QADhD;AAHsC;AAAS;AAgCO;AAEtD,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,eAAU,UAAU,iBAAgB,cAAa,OAAO,CAAC,KAAD,CAD1D;AAFsD;AAME;AAExD,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,eAAU,UAAU,iBAAgB,gBAAe,OAAO,CAAC,KAAD,CAD5D;AAFwD;AAMV;AAE9C,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,eAAU,UAAU,iBAAgB,MAAK,OAAO,CAAC,KAAD,CADlD;AAF8C;AAmEE;AAEhD,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,eAAU,UAAU,iBAAgB,QAAO,OAAO,CAAC,KAAD,CADpD;AAFgD;AArJG;AAAb;AAEtC;AAEA,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC;AAEE,YAAa,eAAU,UAAU,iBAAgB;AACjD,iBAAyC;OAH3C;AALsC;AAAa;AA8GC;AAEpD;AAEA,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC;AAEE,YAAa;AACb,uBAAU,UAAU,iBAAgB,cAAC,CAA4C,CAA5C;OAHvC;AAJoD;AA5HA;AAAd;AAEtC,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,SAAU,eAAU,UAAU,iBAAgB,aADhD;AAHsC;AAAc;AAsGC;AAErD,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,eAAU,UAAU,iBAAgB,eAAC,CAAe,KAAf,CADvC;AAFqD;AAiCC;AAEtD,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;AACjB,YAAY,eAAD,QAAX,EACE,eAAU,iBA//KsC,MA8/KlD;OAHF;AAFsD;AAvEU;AAEhE,kCAAuB,OAAO,CAAC,KAAD;AAFkC;AAUT;AAEvD,yBAAc,OAAO,CAAC,KAAD;AAFkC;AALA;AAEvD,yBAAc,OAAO,CAAC,KAAD;AAFkC;AAUE;AAEzD,2BAAgB,OAAO,CAAC,KAAD;AAFkC;AApBL;AAAd;AAEtC,eAAU,YAAO,KAAG,CAAC,CAAJ;AAFqB;AAAc;AAuDJ;AAEhD,UAAG,YAAQ,KAAG,KAAd;AAEE,uBAAW;AACX,YAAY,eAAD,QAAX,EACE,eAAU,iBA1+KsC,MAy+KlD;OAHF;AAFgD;AArEE;AAAZ;AAEtC,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,SAAU,eAAU,UAAU,iBAAgB,WADhD;AAHsC;AAAY;AAgHC;AAEnD,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,eAAU,UAAU,iBAAgB,aAAC,CAAa,KAAb,CADvC;AAFmD;AA1MmB;AAEtE,UAAY,eAAD,QAAX,EACE,eAAU,iBAx0KwC,MAu0KpD;AAFsE;AAMpB;AAElD,UAAY,eAAD,QAAX,EACE,eAAU,iBA90KwC,MA60KpD;AAFkD;AAYA;AAElD,UAAY,eAAD,QAAX,EACE,eAAU,iBA11KwC,MAy1KpD;AAFkD;AANE;AAEpD,UAAY,eAAD,QAAX,EACE,eAAU,iBAp1KwC,MAm1KpD;AAFoD;AA2DN;AAAR;AAEtC,eAAU;AAF4B;AAAQ;AAjID;AAE7C,UAAa,mCAAH,eAAP,MAAO,CAAV;AAEE,sBAAI,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,QAAC,EAA5C;AACX,sBAAI,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,QAAC,EAA5C;AACX,wBAAM,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,UAAC,EAA5C;AACb,8BAAY,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,gBAAC,EAA5C;AACnB,gCAAc,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,kBAAC,EAA5C;AACrB,8BAAY,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,gBAAC,EAA5C;AACnB,gCAAc,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,kBAAC,EAA5C;AACrB,2BAAsB,OAAP,OAAU,mCAAH,CAAkC,cAAC,EAAzD;AACA,4BAAuB,OAAP,OAAU,mCAAH,CAAkC,eAAC,EAA1D;AACA,6BAAyB,OAAP,OAAU,mCAAH,CAAkC;AAC3D,oCAAuB,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,wBAA3C;AAC9B,2BAAc,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,eAA3C;AACrB,6BAAgB,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,iBAA3C;AACvB,2BAAc,OAAO,CAAS,OAAP,OAAU,mCAAH,CAAkC,eAA3C;OAfvB;AAF6C;AAqBE;AAE/C,wBAAc;AAEd,4BAAkB,qDAAmB,QAAC,YAAM,CAAC,mEAAU,Q3BhzLoG,QAAmD,GAAqD,E2BgzLvN,CAAN;AACtC,yBAAc,WAAd,GAA6B;AAC7B,8BAAoB,uDAAqB,QAAC,YAAM,CAAC,qEAAU,CAAX,CAAN;AAC1C,2BAAgB,WAAhB,GAA+B;AAC/B,4BAAkB,qDAAmB,QAAC;AACtC,UAAW,CAAC,eAAD,SAAa,IAAI,eAAU,eAAtC;AAEE,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,SAAC,CAAS,cAAY,wCAAZ,CAAT;OAHjB;AAKA,yBAAc,WAAd,GAA6B;AAE7B,qCAA2B,8CAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,kCAAuB,UAAvB,GAAqC;AACrC,UAAW,CAAC,eAAD,SAAgD,IAAvB,CAAC,eAAU,UAAX,SAAZ,IAAuC,eAAU,eAAzE;AAEE,uBAAU,UAAU,iBAAgB,cAAa,QAAC,CAAQ,iEAAR;AAClD,uBAAU,UAAU,iBAAgB,gBAAe,QAAC,CAAQ,mEAAR;AACpD,uBAAU,UAAU,iBAAgB,gBAAe,OAAO,CAAC,eAAU,UAAU,iBAAgB,cAArC;OAJ5D;AAMA,yBAAc,gDAAd;AACA,qBAAW,CAAC;AAzBwE;AAArC;AA4BA;AAEhC,eAAf,KAAe;AACE,eAAjB,KAAiB;AACF,eAAf,KAAe;AACS,eAAxB,KAAwB;AACxB;AAN+C;AA5qMjB;AA4CV,+BAAW,cA2nBT,oCA3nBS,CAAX;AAGL,4B3B0VI,+D2B1VJ;AACA,4B3B6TI,+D2B7TJ;AACE,8B3BwcI,iE2BxcJ;AACM,oC3B2TJ,+D2B3TI;AACE,sC3BscJ,iE2BtcI;AACF,oC3ByTJ,+D2BzTI;AACE,sC3BocJ,iE2BpcI;AACJ,kCAxDS,6CAwDT;AACC;AACL;AACM;AACU,8C5B2Pb,wD4B3Pa;AACT,qC3B8UL,+D2B9UK;AACE,uC3B6bL,iE2B7bK;AACF,qC3BgTL,+D2BhTK;AACJ;AA9DU;AAiEI;;;AAEhC;AACA;AACA;AACA;AALgC;;;;;AA62Me;AAAP;AAE1C,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,SAAU,eAAU,UAAU,iBAAgB,cADhD;AAH0C;AAAO;AAmCC;AAElD,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,eAAU,UAAU,iBAAgB,cAAa,OAAO,CAAC,KAAD,CAD1D;AAFkD;AA1CD;AAAP;AAE1C,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,SAAU,eAAU,UAAU,iBAAgB,cADhD;AAH0C;AAAO;AAcE;AAAT;AAE1C,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,SAAU,eAAU,UAAU,iBAAgB,gBADhD;AAH0C;AAAS;AAYD;AAElD,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,eAAU,UAAU,iBAAgB,cAAa,OAAO,CAAC,KAAD,CAD1D;AAFkD;AA2CE;AAEpD,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,eAAU,UAAU,iBAAgB,gBAAe,OAAO,CAAC,KAAD,CAD5D;AAFoD;AAhDI;AAAd;AAE1C,eAAU,YAAO,KAAG,CAAC,CAAJ;AAFyB;AAAc;AA2BJ;AAEpD,UAAG,YAAQ,KAAG,KAAd;AAEE,uBAAW;AACX,YAAY,eAAD,QAAX,EACE,eAAU,iBA7mLsC,MA4mLlD;OAHF;AAFoD;AAhBE;AAEtD,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb,YAAY,eAAD,QAAX,EACE,eAAU,iBA7lLsC,MA4lLlD;OAHF;AAFsD;AA0BS;AAG/D,UAAG,uBAAH;AAEE,kCAAsB;AACtB,YAAY,eAAD,QAAX,EACE,eAAU,iBAxnLsC,MAunLlD;OAHF;AAH+D;AApFd;AAEjD,UAAa,uCAAH,eAAP,MAAO,CAAV;AAEE,sBAAI,OAAO,CAAS,OAAP,OAAU,uCAAH,CAAsC,QAAC,EAAhD;AACX,sBAAI,OAAO,CAAS,OAAP,OAAU,uCAAH,CAAsC,QAAC,EAAhD;AACX,wBAAM,OAAO,CAAS,OAAP,OAAU,uCAAH,CAAsC,UAAC,EAAhD;AACb,uBAAmB,OAAP,OAAU,uCAAH,CAAsC;AACzD,yBAAqB,OAAP,OAAU,uCAAH,CAAsC;AAC3D,kCAA8B,OAAP,OAAU,uCAAH,CAAsC;OAPtE;AAFiD;AAaE;AAEnD,wBAAc;AACd,qBAAW,CAAC;AACZ,uBAAa;AACb,gCAAsB;AALkE;AAArC;AAQA;AAEnD;AAFmD;AAj2MjB;AAkBd,+BAAW,cAolBT,oCAplBS,CAAX;AAGL,4B3BmTI,+D2BnTJ;AACA,4B3BsRI,+D2BtRJ;AACE,8B3BiaI,iE2BjaJ;AACA;AACE;AACS;AA1BM;AA6BH;;;AAE7B;AACA;AACA;AAJ6B;;;;;;AAu7MmB;AAGlD,mBAAQ,OAAO,CAAC,KAAD;AAHmC;AAMC;AAEnD,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb,YAAY,eAAD,QAAX,EACE,eAAU,iBAjrLsC,MAgrLlD;OAHF;AAFmD;AAZG;AAEtD,UAAY,eAAD,QAAX,EACE,eAAU,iBAlqLwC,MAiqLpD;AAFsD;AAhBN;AAGhD,wBAAc;AAEd,sBAAY,wCAAc,QAAC,YAAM,CAAC,+BAAK,CAAC,GAAI,GAAI,GAAI,EAAb,CAAN,CAAN;AAC3B,mBAAQ,UAAR,GAAsB;AACtB,uBAAa;AANuB;AADY;AAUA;AAEvC,eAAT,KAAS;AACT;AAHgD;AArBF;AAE9C,UAAa,oCAAH,eAAP,MAAO,CAAV;AAEE,yBAAqB,OAAP,OAAU,oCAAH,CAAmC;AACxD,qBAAQ,OAAO,CAAS,OAAP,OAAU,oCAAH,CAAmC,SAA5C;OAGf;AAR4C;AAt5Mf;AAUX,+BAAW,cA+jBT,oCA/jBS,CAAX;AAID;AACD,+B5B6HJ,kD4B7HI;AAfa;AAkBK;;;AAElC;AACA;AACA;AACA;AALkC;;;;;;;;AAu+MgB;AAEpD,gBAAK,OAAO,CAAC,KAAD;AAFwC;AALA;AAEpD,gBAAK,OAAO,CAAC,KAAD;AAFwC;AAUE;AAEtD,kBAAO,OAAO,CAAC,KAAD;AAFwC;AAhBE;AAExD,UAAY,eAAD,QAAX,EACE,eAAU,aADZ;AAFwD;AAqBE;AAE1D,UAAY,eAAD,QAAX,EACE,eAAU,aADZ;AAF0D;AA3BF;AAExD,UAAY,eAAD,QAAX,EACE,eAAU,aADZ;AAFwD;AA/BL;AAEnD,UAAa,yCAAH,eAAP,MAAO,CAAV;AAEE,kBAAK,OAAO,CAAS,OAAP,OAAU,yCAAH,CAAwC,MAAjD;AACZ,kBAAK,OAAO,CAAS,OAAP,OAAU,yCAAH,CAAwC,MAAjD;AACZ,oBAAO,OAAO,CAAS,OAAP,OAAU,yCAAH,CAAwC,QAAjD;OAJhB;AAFmD;AAUE;AAErD,wBAAc;AACd,mBAAS,qDAAmB,QAAC;AAC7B,UAAW,CAAC,eAAD,SAAa,IAAI,eAAU,eAAtC,EACE,UAAK,SAAC,CAAS,QAAT,CADR;AAEA,gBAAK,WAAL,GAAoB;AACpB,mBAAS,qDAAmB,QAAC,YAAM,CAAC,mEAAU,S3BptM6G,QAAmD,GAAqD,E2BotMhO,CAAN;AAC7B,gBAAK,WAAL,GAAoB;AACpB,qBAAW,uDAAqB,QAAC,YAAM,CAAC,qEAAU,QAAX,CAAN;AACjC,kBAAO,WAAP,GAAsB;AAVoE;AAArC;AAaA;AAE/C,eAAN,KAAM;AACA,eAAN,KAAM;AACE,eAAR,KAAQ;AACR;AALqD;AA98MjB;AAehB,+BAAW,cAwiBT,oCAxiBS,CAAX;AAGL,4B3BuQI,+D2BvQJ;AACA,4B3B0OI,+D2B1OJ;AACE,8B3BqXI,iE2BrXJ;AApBmB;AAuBR;AAEA;;;AAE1B;AACA;AACA;AACA;AACA;AACA;AAP0B;;;;;AAw5NkB;AAAV;AAEpC,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC;AAEE,YAAW,2BAAH,eAAL,IAAK,CAAR;AACE,mBAAU,sEAAO,IAAG,eAAU,UAAU,mBAAkB,SAAzC;AAEjB,uBAAU,yEAAU,IAAG,eAAU,UAAU,mBAAkB,SAAzC;OALxB;AAHoC;AAAU;AAkGC;AAE/C,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC;AAEE,YAAW,2BAAH,eAAL,IAAK,CAAR;AAEE,cAAG,KAAH;AACE,2BAAU,UAAU,mBAAkB,WAAC,CAA0D,aAA/C,eAAU,UAAU,mBAAkB,UAAW,cAAC,sEAAD,CAAF,CAA1D;AAEA,gBAAvC,eAAU,UAAU,mBAAkB,WAAC,CAA0D,YAA/C,eAAU,UAAU,mBAAkB,UAAW,cAAC,sEAAD,CAAF,CAA1D;;AAIzC,cAAG,KAAH;AACE,2BAAU,UAAU,mBAAkB,WAAC,CAA0D,aAA/C,eAAU,UAAU,mBAAkB,UAAW,cAAC,yEAAD,CAAF,CAA1D;AAEA,gBAAvC,eAAU,UAAU,mBAAkB,WAAC,CAA0D,YAA/C,eAAU,UAAU,mBAAkB,UAAW,cAAC,yEAAD,CAAF,CAA1D;;AAG3C,uBAAU,iBAtyMwC;OAqxMpD;AAF+C;AA9BH;AAE5C,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACT,YAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,eAAU,UAAU,aADtB;OAHF;AAF4C;AA3HD;AAAP;AAEpC,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC;AAEE,YAAW,2BAAH,eAAL,IAAK,CAAR;AACE,mBAAU,eAAU,UAAU,mBAAkB;AAEhD,uBAAU,eAAU,UAAU,mBAAkB;OALpD;AAHoC;AAAO;AAwBE;AAAT;AAEpC,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC;AAEE,YAAW,2BAAH,eAAL,IAAK,CAAR;AACE,mBAAU,eAAU,UAAU,mBAAkB;AAEhD,uBAAU,eAAU,UAAU,mBAAkB;OALpD;AAHoC;AAAS;AAmBA;AAAT;AAEpC,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC;AAEE,YAAW,2BAAH,eAAL,IAAK,CAAR;AACE,mBAAU,eAAU,UAAU,mBAAkB;AAEhD,uBAAU,eAAU,UAAU,mBAAkB;OALpD;AAHoC;AAAS;AAwBD;AAE5C,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC;AAEE,YAAW,2BAAH,eAAL,IAAK,CAAR;AACE,yBAAU,UAAU,mBAAkB,SAAQ,OAAO,CAAC,KAAD;AAErD,cAAA,eAAU,UAAU,mBAAkB,YAAW,OAAO,CAAC,KAAD;OAL5D;AAF4C;AAsBe;AAE3D,UAAG,yBAAqB,KAAG,KAA3B;AAEE,oCAAwB;AACxB,YAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,eAAU,UAAU,aADtB;OAHF;AAF2D;AAUb;AAE9C,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC;AAEE,YAAW,2BAAH,eAAL,IAAK,CAAR;AACE,yBAAU,UAAU,mBAAkB,WAAC,CAAW,KAAX;AAEA,cAAvC,eAAU,UAAU,mBAAkB,cAAC,CAAc,KAAd;OAL3C;AAF8C;AAkBA;AAE9C,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,eAAU,UAAU,mBAAkB,WAAU,OAAO,CAAC,KAAD,CADzD;AAF8C;AA0BW;AAEzD,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB,YAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,eAAU,UAAU,aADtB;OAHF;AAFyD;AAnId;AAAP;AAEpC,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC;AAEE,YAAW,2BAAH,eAAL,IAAK,CAAR;AACE,mBAAU,eAAU,UAAU,mBAAkB;AAEhD,uBAAU,eAAU,UAAU,mBAAkB;OALpD;AAHoC;AAAO;AAkEC;AAE5C,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC;AAEE,YAAW,2BAAH,eAAL,IAAK,CAAR;AACE,yBAAU,UAAU,mBAAkB,SAAQ,OAAO,CAAC,KAAD;AAErD,cAAA,eAAU,UAAU,mBAAkB,YAAW,OAAO,CAAC,KAAD;OAL5D;AAF4C;AAuDI;AAEhD,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb,YAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,eAAU,UAAU,aADtB;OAHF;AAFgD;AA2CI;AAEpD,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;AACjB,YAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,eAAU,UAAU,aADtB;OAHF;AAFoD;AA5IK;AAArB;AAEpC,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,SAAU,eAAU,UAAU,mBAAkB,oBADlD;AAHoC;AAAqB;AA0EC;AAG1D,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,UAAX,SAApC,EACE,eAAU,UAAU,mBAAkB,sBAAC,CAAsB,KAAtB,CADzC;AAH0D;AAjJf;AAE3C,UAAa,iCAAH,eAAP,MAAO,CAAV;AAEE,wBAAmB,OAAP,OAAU,iCAAH,CAAgC,WAAC,EAApD;AACA,qBAAgB,OAAP,OAAU,iCAAH,CAAgC,MAAhD;AACA,sBAAI,OAAO,CAAS,OAAP,OAAU,iCAAH,CAAgC,QAAC,EAA1C;AACX,sBAAI,OAAO,CAAS,OAAP,OAAU,iCAAH,CAAgC,QAAC,EAA1C;AACX,wBAAM,OAAO,CAAS,OAAP,OAAU,iCAAH,CAAgC,UAAC,EAA1C;AACb,oCAA+B,OAAP,OAAU,iCAAH,CAAgC,qBAA/D;AACA,kCAA6B,OAAP,OAAU,iCAAH,CAAgC,mBAA7D;AACA,6BAAwB,OAAP,OAAU,iCAAH,CAAgC,cAAxD;AACA,yBAAoB,OAAP,OAAU,iCAAH,CAAgC,UAApD;AACA,uBAAkB,OAAP,OAAU,iCAAH,CAAgC,UAAC,EAAnD;AACA,mCAA8B,OAAP,OAAU,iCAAH,CAAgC,sBAAC,EAA/D;OAZF;AAF2C;AAkBE;AAE7C,wBAAc;AACd,UAAW,CAAC,eAAD,SAAyC,IAAxB,eAAU,eAAd,IAAgC,CAAe,CAAV,yCAAU,IAAG,eAAU,gBAAb,CAAvE;AAEE,YAAW,2BAAH,eAAL,IAAK,CAAR;AACE,uBAAS;AAET,2BAAS;AAEX,sBAAI,SAAC,CAAS,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAA1B;AACL,sBAAI,QAAC,CAAQ,kEAAR;AACL,wBAAM,SAAC,CAAS,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAA1B;AACP,wBAAM,QAAC,CAAQ,oEAAR;OAVT;AAHkF;AAArC;AAh1NjB;AAuCR,+BAAW,cAufT,oCAvfS,CAAX;AAvCQ;AA0CN;;AAEJ;AACH;AACA,4B3BsLI,+D2BtLJ;AACA,4B3BiNI,+D2BjNJ;AACE,8B3BgUI,iE2BhUJ;AACa,2C3BzCN,oE2ByCM;AACF,yC3B1CJ,oE2B0CI;AACL;AACJ,gC3B3CQ,uE2B2CR;AACF;AAXK;AAcA;;AAEJ;AACH;AACA,4B3BwKI,+D2BxKJ;AACA,4B3BmMI,+D2BnMJ;AACE,8B3BkTI,iE2BlTJ;AACa,2C3BvDN,oE2BuDM;AACF,yC3BxDJ,oE2BwDI;AACL;AACJ,gC3BzDQ,uE2ByDR;AACF;AAXK;AAcG;;AAEmB,mGAAmB,UlH7fxD,2BkH6fwD,EAAoB,azBvepE,qDyBueoE,EAAwB,S5BzTrG,yC4ByTqG,EAAoB,2BAAoB,aAzVtH,2CAyVsH,EAAiD,8BAAxJ;AACD,kGAAmB,UlH9fvD,2BkH8fuD,EAAoB,azBxenE,qDyBwemE,EAAwB,S5B1TpG,yC4B0ToG,EAAoB,2BAAoB,aA1VrH,2CA0VqH,CAAvG;AACA,kGAAmB,UlH/fvD,2BkH+fuD,EAAkB,WzGvYxE,6ByGuYwE,CAArC;AACP,2FAAmB,UlHhgBhD,2BkHggBgD,EAAgB,SAhgBnD,kCAggBmD,EAA+B,sBAAlE;AACE,6FAAmB,UlHjgBlD,2BkHigBkD,EAAoB,aAjgBzD,kCAigByD,EAAS,WAjgBlE,kCAigBkE,EAAuC,6BAAvF;AACD,4FAAmB,UlHlgBjD,2BkHkgBiD,EAAoB,aAlgBxD,kCAkgBwD,EAAS,WAlgBjE,kCAkgBiE,CAAhD;AACF,0FAAmB,UlHngB/C,2BkHmgB+C,EAAoB,aAngBtD,kCAmgBsD,EAAS,WAngB/D,kCAmgB+D,EAAoC,0BAApF;AACD,yFAAmB,UlHpgB9C,2BkHogB8C,EAAoB,aApgBrD,kCAogBqD,EAAS,WApgB9D,kCAogB8D,CAAhD;AACQ,iGAAmB,UlHrgBtD,2BkHqgBsD,EAAuB,0BAA1C;AACD,gGAAmB,UlHtgBrD,2BkHsgBqD,EAAsB,yBAAzC;AACI,oGAAmB,UlHvgBzD,2BkHugByD,EAAwB,2BAA3C;AACJ,gGAAmB,UlHxgBrD,2BkHwgBqD,CAAnB;AACD,+FAAmB,UlHzgBpD,2BkHygBoD,CAAnB;AACI,mGAAmB,UlH1gBxD,2BkH0gBwD,CAAnB;AACL,8FAAmB,UlH3gBnD,2BkH2gBmD,EAAoB,azBrf/D,qDyBqf+D,EAAwB,S5BvUhG,yC4BuUgG,EAAe,SA3gBjG,kCA2gBiG,EAA6B,qBAAoB,wBAA/H;AACD,6FAAmB,UlH5gBlD,2BkH4gBkD,EAAoB,azBtf9D,qDyBsf8D,EAAwB,S5BxU/F,yC4BwU+F,EAAe,SA5gBhG,kCA4gBgG,EAA6B,oBAA3G;AACE,+FAAmB,UlH7gBpD,2BkH6gBoD,EAAoB,azBvfhE,qDyBufgE,EAAwB,S5BzUjG,yC4ByUiG,EAAe,SA7gBlG,kCA6gBkG,EAA8B,sBAAoB,wBAAhI;AACD,8FAAmB,UlH9gBnD,2BkH8gBmD,EAAoB,azBxf/D,qDyBwf+D,EAAwB,S5B1UhG,yC4B0UgG,EAAe,SA9gBjG,kCA8gBiG,EAA8B,qBAA5G;AACN,wFAAmB,UlH/gB7C,2BkH+gB6C,EAAgB,SA/gBhD,kCA+gBgD,CAAnC;AACE,0FAAmB,UlHhhB/C,2BkHghB+C,EAAgB,SAhhBlD,kCAghBkD,CAAnC;AAEL,qFAAmB,UlHlhB1C,2BkHkhB0C,EAAgB,SAlhB7C,kCAkhB6C,CAAnC;AACK,0FAAmB,UlHnhB/C,2BkHmhB+C,EAAgB,SAnhBlD,kCAmhBkD,CAAnC;AACA,0FAAmB,UlHphB/C,2BkHohB+C,EAAgB,SAphBlD,kCAohBkD,CAAnC;AACE,4FAAmB,UlHrhBjD,2BkHqhBiD,EAAgB,SArhBpD,kCAqhBoD,CAAnC;AACV,kFAAmB,UlHthBvC,2BkHshBuC,EAAoB,wBAAvC;AACO,yFAAmB,UlHvhB9C,2BkHuhB8C,EAAgB,SAvhBjD,kCAuhBiD,EAAmC,wBAAtE;AACK,8FAAmB,UlHxhBnD,2BkHwhBmD,EAAoB,azBlgB/D,qDyBkgB+D,EAAwB,S5BpVhG,yC4BoVgG,EAAe,SAxhBjG,kCAwhBiG,EAA6B,S5BxGrI,gD4BwGqI,EAA0B,wBAArI;AACD,6FAAmB,UlHzhBlD,2BkHyhBkD,EAAoB,azBngB9D,qDyBmgB8D,EAAwB,S5BrV/F,yC4BqV+F,EAAe,SAzhBhG,kCAyhBgG,EAA6B,S5BzGpI,gD4ByGoI,CAA3G;AACE,+FAAmB,UlH1hBpD,2BkH0hBoD,EAAoB,azBpgBhE,qDyBogBgE,EAAwB,S5BtVjG,yC4BsViG,EAAe,SA1hBlG,kCA0hBkG,EAA8B,U5B1GvI,gD4B0GuI,EAA2B,wBAAvI;AACD,8FAAmB,UlH3hBnD,2BkH2hBmD,EAAoB,azBrgB/D,qDyBqgB+D,EAAwB,S5BvVhG,yC4BuVgG,EAAe,SA3hBjG,kCA2hBiG,EAA8B,U5B3GtI,gD4B2GsI,CAA5G;AACJ,0FAAmB,UlH5hB/C,2BkH4hB+C,EAAoB,azBtgB3D,qDyBsgB2D,EAAwB,S5BxV5F,yC4BwV4F,EAAe,SA5hB7F,kCA4hB6F,EAAkC,yBAA2B,8BAA3I;AACD,yFAAmB,UlH7hB9C,2BkH6hB8C,EAAoB,azBvgB1D,qDyBugB0D,EAAwB,S5BzV3F,yC4ByV2F,EAAe,SA7hB5F,kCA6hB4F,CAA9E;AACF,uFAAmB,UlH9hB5C,2BkH8hB4C,EAAgB,SA9hB/C,kCA8hB+C,EAAO,SA9hBtD,kCA8hBsD,EAA0C,gCAApF;AACI,2FAAmB,UlH/hBhD,2BkH+hBgD,EAAoB,aA2PnD,sCA3PmD,EAAW,aA2P9D,sCA3P8D,EAA8C,gCAAhG;AACH,wFAAmB,UlHhiB7C,2BkHgiB6C,EAAyB,2BAA5C;AACQ,gGAAmB,UlHjiBrD,2BkHiiBqD,EAAgB,SAjiBxD,kCAiiBwD,EAA6B,qBAAoB,uBAApF;AACL,2FAAmB,UlHliBhD,2BkHkiBgD,EAAgB,SAliBnD,kCAkiBmD,EAAyC,8BAA5E;AACG,8FAAmB,UlHniBnD,2BkHmiBmD,EAAkB,sBAArC;AAER;;AAEL;;;AAExB;AACA;AACA;AACA;AACA;AANwB;AA07NiB;AAE3C;AACA,4BAAkB;AAHoD;AAA3B;AAfF;AAEzC;AAEA,uBAAyB,OAAP,OAAU,+BAAH;AACzB,UAAY,cAAD,QAAX;AAEE,0BAAc,cAAc;AAC5B,8BAAkB,cAAc;AAChC,uBAAW,cAAc;AACzB,uBAAW,cAAc;AACzB,0BAAc,cAAc;OAN9B;AALyC;AA36Nf;AAQN,+BAAY,ezGpMrB,gCyGoMqB,CAAZ;AAGA;AACI;AACP;AACA;AACG,iCAjBW,8CAiBX;AAfM;AAmBJ;;;AAMpB;AANoB;;;;;AA87Ne;AAAP;AAE9B,eAAsD,0CAAC,KAAD;AAFxB;AAAO;AAUC;AAErB,gDAAC,MAAO,KAAR;AAFqB;AAhBC;AAEvB,sDAAC,OAAQ,+BAAT;AAChB,sBAAU;AAH8D;AAAjC;AATN;AAAH;AAE9B,eAA+C;AAC/C,UAAG,eAAM,KAAE,CAAX;AACE,cAAM,WAAN,GAAoB;AAEpB,YAAA,MAAM,WAAN,GAAoB;AANQ;AAAG;AAoBG;AAAN;AAE9B,eAAqD,yCAAC,KAAD;AAFvB;AAAM;AAn8Nd;AAUF,+BAAO,UA+YL,oCA/YK,CAAP;AAVE;AAgBgB,6FAAmB,UlH1kBlD,2BkH0kBkD,EAAkB,WAnCjD,wCAmCiD,EAAwC,wBAA7E;AACD,4FAAmB,UlH3kBjD,2BkH2kBiD,EAAkB,WApChD,wCAoCgD,CAArC;AAGA;AAm+Qe;AAAP;AAE7C,eAA+C,YAAK,CAAC,KAAD;AAFP;AAAO;AAKC;AAE3C,kBAAK,CAAC,MAAU,KAAX;AAFsC;AAx+QhB;AA4QX;AA9PF;;;AAEtB;AACA;AAAa;AACb;AACA;AACA;AACA;AACA;AAAQ;AACR;AACA;AAAqB;AACrB;AACA;AACA;AACA;AAAwB;AAAwB;AAChD;AAA2B;AAC3B;AACA;AACA;AACA;AACA;AACA;AArBsB;;;;;;;;;;;AAq7N4B;AAEpD;AAAG;AACH;AAEA,UAAG,wBAAoB,IAAG,6BAA1B;AAEE,cAAO;AACP,YAAG,iBAAW,iBAAiB,GAAE,CAAjC;AAEE,cAAK,QAAG,CAAC,kBAAc,GAAE,GAAjB,CAAsB,GAAE,iBAAW,iBAAb;AAC9B,iBAAQ,mBAAa,CAAC;;;;eAAK;;;;eAAe,EAAG,IAAxB;SAGrB,aAAQ;AAEV,YAAG,IAAH;AACE,6BAAe;;AAGf,6BAAe;AACf,yBAAU,WAAC,CAAW,KAAX;AACX,cAAG,6BAAH;AAEE,mCAAmB;AACnB,4CAA4B;WAH9B;;AAOF,YAAY,eAAD,QAAX,EACE,eAAU,gBAAgB,CAAC,IAAD,CAD5B;;AAKA,YAAG,eAAH;AAEM,yBAAJ,IAAG;AACH,cAAG,eAAW,KAAY,CAAV,GAAU,GAAE,EAAF,CAA1B;AAEE,+BAAe;AACf,2BAAU,WAAC,CAAW,KAAX;AACX,gBAAY,eAAD,QAAX,EACE,eAAU,iBADZ;WAJF;;AAUA,iCAAmB,oBAAgB,GAAE,CAAF;AACnC,cAAG,oBAAgB,KAAE,GAArB,EACE,uBAAmB,CADrB;AAGA,cAAG,CAAI,uBAAP;AACE,0CAA0B,2BAAuB,GAAE,EAAF;;AAGjD,0CAA0B,2BAAuB,GAAE,EAAF;AACjD,0CAA0B,2BAAuB,GAAE,EAAF;;AAGnD,cAA2B,CAAvB,2BAAuB,KAAE,GAAF,CAAO,IAA4B,CAAvB,2BAAuB,KAAE,CAAF,CAA9D;AACE,sCAAsB;AACnB,oBAA4B,CAAvB,2BAAuB,KAAE,GAAF,CAAO,IAA4B,CAAvB,2BAAuB,KAAE,CAAF,CAA/D;AAEH,sCAAsB;AACtB,0CAA0B;WAHvB;AAML;;;AAnEgD;AAqtBJ;AAGhD;AAEA,UAAG,CAAY,CAAC,mBAAD,SAAf;AAEE;AACA;OAHF;AAMA,UAAK,mBAAc,UAAQ,CAAC,KAAD;AAC3B,UAAG,CAAE,GAAE,CAAC,CAAR;AAC2B,2FAAC,MAAO,GAAI,QAAG,CAAC,EAAG,EAAJ,EAAS,KAAxB;;AAGzB,YAAI,oBAAgB,KAAE,eAAU,eAAe,CAAC,KAAD,CAA/C;AAC2B,6FAAC,MAAO,EAAG,GAAE,gBAAF,CAAe,GAAI,KAA9B;AAEzB;;AAnB4C;AA1ZD;AAG/C;AACA,UAAW,CAAC,eAAD,SAAa,IAA2B,CAAtB,eAAU,YAAY,KAAE,yCAAF,CAAnD;AAEE,mBAAU,YAAO,GAAE,eAAU,iBAAgB,SAAQ,OAArD;AACA,kBAAS,WAAM,GAAE,eAAU,iBAAgB,SAAQ,MAAnD;AACA,iBAAQ,UAAK,GAAE,eAAU,iBAAgB,SAAQ,KAAjD;AACA,oBAAW,aAAQ,GAAE,eAAU,iBAAgB,SAAQ,QAAvD;OALF;AAJ+C;AA+EC;AAAhB;AAEhC,eAAoB;AACpB,UAAW,CAAC,eAAD,SAAa,IAA2B,CAAtB,eAAU,YAAY,KAAE,yCAAF,CAAnD,EACE,SAAU,eAAU,iBAAgB,SAAQ,KAD9C;AAHgC;AAAgB;AAzCD;AAAf;AAEhC;AACA;AAAK;AACL;AAEA,UAA8B,mFAAC,KAAD;AAC9B,UAAW,CAAC,eAAD,SAAa,IAA2B,CAAtB,eAAU,YAAY,KAAE,yCAAF,CAAnD;AAEE,YAAK,eAAU,oBAAoB,CAAC,KAAD;AACnC,cAAO,eAAU,eAAe,CAAC,KAAD;AAChC,YAAY,GAAD,QAAX;AAEE,cAAU,CAAJ,CAAF,CAAE,GAAE,CAAF,CAAI,IAAG,CAAH,CAAM,IAAW,CAAJ,CAAF,CAAE,GAAE,CAAF,CAAI,IAA0B,CAAvB,eAAU,OAAM,SAAC,EAAM,GAAE,CAAF,CAA1B,CAA3B;AAEE,mBAAQ,eAAU,OAAM,WAAC,CAAE,GAAE,CAAL;AACxB,gBAAoB,CAAhB,IAAI,YAAY,KAAG,GAAG,YAAN,CAAmB,IAAI,CAAI,eAAU,0BAA0B,CAAC,KAAM,GAAP,CAAnF,EACE,IAAK,CAA2C,GAAvC,eAAU,iBAAgB,SAAQ,KAApC,GAA2C,eAAU,iBAAgB,SAAQ,QADtF;WAHF;SAFF;OAJF;AAcA,eAAU;AArBsB;AAAe;AAlPG;AAIlD;AACA;AAAK;AAEL;AACA,UAAW,CAAC,eAAD,SAAa,IAA2B,CAAtB,eAAU,YAAY,KAAE,yCAAF,CAAnD;AAEE,sBAAa,eAAU,iBAAgB,UAAvC;AACA,qBAAY,cAAC,kEAAW,mEAAY,qEAAc,qEAAtC,CAAZ;AACA,YAAK,eAAU,oBAAoB,CAAC,KAAD;AACnC,cAAO,eAAU,eAAe,CAAC,KAAD;AAChC,YAAY,GAAD,QAAX;AAEE,cAAU,CAAJ,CAAF,CAAE,GAAE,CAAF,CAAI,IAAG,CAAH,CAAM,IAAW,CAAJ,CAAF,CAAE,GAAE,CAAF,CAAI,IAA0B,CAAvB,eAAU,OAAM,SAAC,EAAM,GAAE,CAAF,CAA1B,CAA3B;AAGE,mBAAQ,eAAU,OAAM,WAAC,CAAE,GAAE,CAAL;AACxB,gBAAoB,CAAhB,IAAI,YAAY,KAAE,GAAG,YAAL,CAAkB,IAAI,CAAI,eAAU,0BAA0B,CAAC,KAAM,GAAP,CAAlF,EACE,aAAqB,YAAT,eAAW,cAAC,kEAAW,kEAAZ,CAAF,CAArB,CADF;WAJF;AAQA,cAAU,CAAJ,CAAF,CAAE,GAAE,CAAF,CAAI,IAAG,CAAH,CAAM,IAAW,CAAJ,CAAF,CAAE,GAAE,CAAF,CAAI,IAA0B,CAAvB,eAAU,OAAM,SAAC,EAAM,GAAE,CAAF,CAA1B,CAA3B;AAGE,mBAAQ,eAAU,OAAM,WAAC,CAAE,GAAE,CAAL;AACxB,gBAAoB,CAAhB,IAAI,YAAY,KAAE,GAAG,YAAL,CAAkB,IAAI,CAAI,eAAU,0BAA0B,CAAC,KAAM,GAAP,CAAlF,EACE,aAAqB,YAAT,eAAW,cAAC,qEAAc,qEAAf,CAAF,CAArB,CADF;WAJF;SAVF;OANF;AARkD;AA0GC;AAGnD;AACA;AACA;AAEA;AACA,UAAW,CAAC,eAAD,SAA+C,IAAL,CAAxB,eAAU,eAAc,KAAE,CAAF,CAA7B,IAA+D,CAAxB,eAAU,cAAc,KAAG,0CAAH,CAAvF;AAEE,aAAM,eAAU,wBAAwB,CAAC,eAAD;AACxC,YAAI,EAAG,GAAE,CAAC,CAAV;AAEE,6BAAc;AACd,cAAK,2DAA0B,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,WAAC,SAAS,CAAC,kBAAa,CAAC,EAAD,CAAd;AACV,cAAK;AACL,4BAAa,CAAC,UAAW,EAAG,EAAG;;;;cAAlB;AACb,cAAG,eAAU,oBAAmB,UAAhC,EACE,mBAAc,MAAI,CAAC,CAAD,CADpB;SAPF;OAHF;AARmD;AAwBK;AAGxD;AACA,UAAyB,CAArB,mBAAc,SAAC,EAAM,GAAE,CAAF,CAAK,IAAI,CAAI,KAAK,UAA3C;AAEE,sBAAa,eAAU,GAAE,mBAAc,WAAC,CAAD,CAAG,QAA1C;AACA,yBAAgB,kBAAa,GAAE,mBAAc,WAAC,CAAD,CAAG,QAAhD;OAHF;AAJwD;AA/EV;AAG9C;AACA;AACA;AAEA,UAAW,CAAC,eAAD,SAAa,IAAK,eAAU,WAAU,SAAS,IAA6B,CAAxB,eAAU,cAAc,KAAG,0CAAH,CAAvF;AAEE,mBAAM,uBAAN;AACA,YAAG,0BAAH;AAEE,mBAAS,MAAK,OAAO,CAAC,eAAU,WAAU,UAArB;AACrB,mBAAS,QAAO,OAAO,CAAC,eAAU,WAAU,YAArB;;AAIvB,mBAAS,MAAK,OAAO,CAAC,eAAU,WAAU,MAArB;AACrB,mBAAS,QAAO,OAAO,CAAC,eAAU,WAAU,QAArB;;AAGzB,iBAAS,gBAAc,CAAC,4CzBllPqE,6EyBklPtE;AAEvB,iBAAS,QAA4C,OAAvC,eAAU,sBAAsB,SAAC,EAAM,GAAE,CAAF,kBAArD;AAAI;AAEF,sBAAO,eAAU,sBAAsB,SAAC,CAAD,CAAvC;AACA,cAAG,GAAG,OAAN;AACE,qBAAS,MAAK,OAAO,CAAC,eAAU,WAAU,MAArB;AAErB,gBAAA,SAAS,MAAK,OAAO,CAAC,eAAU,WAAU,cAArB;AACvB,mBAAS,WAAS,CAAI,wCAAH,GAAG,OAAO,GAAG,MAAO,MAAO,qEAAW,qEzB5/O6K,sEAA0B,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CyB2/OxJ;;OAvBtB;AAP8C;AAmCH;AAG3C;AACA;AAEA,UAAW,CAAC,eAAD,SAA2C,IAA1B,eAAU,QAAO,SAArB,IAAkC,kBAA1D;AAEE,kBAAK,mBAAL;AACA,aAAM,eAAU,QAAO;AACvB,kBAAK,+BAAK,CAAC,CAAC,KAAM,GAA4B,CAAN,CAAlB,CAAC,MAAiB,GAAR,CAAC,KAAH,GAAY,EAAF,CAAM,GAAE,CAAF,CAA5B,CAAiC,CAAC,IAAK,GAAkC,CAAN,CAAzB,eAAU,QAAO,QAAQ,GAAE,EAAF,CAAM,GAAE,CAAF,CAAlC,CAAuC,CAAC,KAAsC,GAAJ,CAAN,CAAlB,CAAC,MAAiB,GAAR,CAAC,KAAH,GAAY,EAAF,CAAM,GAAE,CAAF,CAA5B,GAAkC,EAAF,CAAM,CAAC,IAA2C,GAAJ,CAAN,CAAzB,eAAU,QAAO,QAAQ,GAAE,EAAF,CAAM,GAAE,CAAF,CAAlC,GAAwC,EAAjL,CAAV;AACA,iBAAS,QAAO,OAAO,CAAC,eAAU,QAAO,QAAlB;AACD,mBAAjB,eAAU,QAAO;AACpB,YADoB,IACpB;AAAc,mBAAS,QAAQ,CAAC,uCAAa,CAAC,CAAD,EAAK,gCAAM,CAAU,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAF,CAAe,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,CAA9C,EAAkD,4BAAwB,2BAAnG;AAC/B,kBAFoB,IAEpB;AAAuB,mBAAS,QAAQ,CAAC,uCAAa,CAAC,CAAD,EAAK,gCAAM,CAAU,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAF,CAAe,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,CAA9C,EAAkD,oBAAgB,GAAE,2BAAF,CAA0B,2BAArH;AACxC,kBAHoB,IAGpB,0DAAa,SAAS,QAAQ,CAAC,uCAAa,CAAC,CAAD,EAAK,gCAAM,CAAU,CAAR,CAAC,MAAO,GAAE,CAAC,KAAH,CAAU,GAAE,CAAF,CAAe,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,CAA9C,EAAkD,+BAA2B,8BAAtG,CAA9B;OATJ;AAN2C;AAwaG;AAG9C;AACA;AACA;AAEA,UAAY,oBAAD,QAAX;AAEE,aAAM;AACN,+BAAmB;AACnB;AACA,YAAG,wBAAH;AAEE,qCAAuB;AACvB,0CAA4B;AAC5B,+BAAiB;AACjB,yBAAU,WAAC,CAAW,IAAX;AACX;AACA,kCAAmB;AACnB,cAAW,CAAC,eAAD,SAA2C,IAAlB,CAAC,oBAAD,SAAZ,IAA0C,CAAC,EAAD,SAAlE,EACE,eAAU,sBAAsB,CAAC,qBAAiB,EAAlB,CADlC;AAEA;SAVF;OALF;AAmBA,UAAG,eAAW,IAAI,CAAyB,CAApB,wBAAoB,IAAG,6BAAH,CAA3C;AAEE,0BAAc;AACd,0BAAc;AACd,uBAAU,WAAC,CAAW,KAAX;AACX,YAAG,gBAAH;AAEE,6BAAe;AACf,iCAAkB;AAClB;AACA,8BAAe;AACf,iCAAkB;AAClB;SAPF;OALF;AAgBA;AAEA,WAAM;AACN,UAAG,0BAAH;AAEE;AACA,0BAAa,CAAC,EAAG,EAAG,KAAP;AACb,aAAM;OAJR;AAOA,UAAG,0BAAH;AAEE;AACA,YAAY,eAAD,QAAX;AAEE,cAAY,eAAU,qBAAX,QAAX,EACE,eAAU,qBAAqB,CAAC,eAAU,qBAAX,CADjC;AAEA,yBAAU,qBAAV,GAAmC;SAJrC;AAMA,aAAM;OATR;AAYA,UAAG,uBAAH;AAEE;AACA,YAAY,eAAD,QAAX;AAEE,cAAY,eAAU,kBAAX,QAAX,EACE,eAAU,kBAAkB,CAAC,eAAU,kBAAX,CAD9B;AAEA,yBAAU,kBAAV,GAAgC;SAJlC;AAMA,aAAM;OATR;AAYA,UAAG,EAAH;AAEE,qCAAyB;AACzB,kCAAsB;AACtB,qCAAyB;AACzB,+BAAkB;OALpB;AAQA,UAAK,qBAAgB,CAAC,EAAG,CAAJ;AACrB,UAAG,CAAE,KAAG,EAAR;AACG,gCAAmB,CAAC,CAAD;;AAGpB,YAAK,qBAAgB,CAAC,EAAG,CAAJ;AACrB,YAAG,CAAE,KAAG,EAAR,EACG,wBAAmB,CAAC,CAAD,CADtB;;AAIF;AA9F8C;AA7IE;AAGhD;AAEA,UAAY,eAAD,QAAX;AAEE,+BAAmB,eAAU,eAAe,CAAC,EAAG,CAAJ;AAC5C,YAAY,oBAAD,QAAX;AAEE,iCAAkB;AAClB;AACA,iCAAkB;AAClB;AACA;SANF;OAHF;AAaA,UAAG,wBAAH;AAEE,mCAAuB;AACvB,wCAA4B;AAC5B,6BAAiB;AACjB,uBAAU,WAAC,CAAW,IAAX;AACX;AACA,gCAAmB;AACnB;OARF;AAWA,UAAG,oBAAH;AAEE;AACA;OAHF;AAMA,WAAM;AACN,mCAAyB,oCAAU,CAAC,wBAAkB,gCAAM,CAAC,EAAG,CAAJ,CAAzB;AACnC,UAAG,CAAI,0BAA+C,IAAb,CAAC,eAAD,SAAZ,IAA6B,CAAI,kBAA9D;AAEE,aAAM,eAAU,kBAAkB,CAAC,EAAG,CAAJ;AAClC,qCAAkC,EAAD;AACjC,YAAG,CAAY,CAAC,EAAD,SAAf;AAEE,eAAM,eAAU,eAAe,CAAC,EAAG,CAAJ;AAC/B,oCAA+B,EAAD;SAHhC;OAJF;AAWA,6BAAkB,0BAA+C,IAAtB,0BAAH,IAA4B,uBAAH;AACjE;AAEA,UAAG,0BAAH;AAEE;AACA;AACA,0BAAa,CAAC,EAAG,EAv6OyC,IAu6O7C;AACb;OALF;AAQA,UAAG,0BAAH;AAEE;AACA;AACA,YAAY,eAAD,QAAX,EACE,eAAU,qBAAV,GAAmC,EADrC;AAEA;OANF;AASA,UAAG,uBAAH;AAEE;AACA;AACA,YAAY,eAAD,QAAX,EACE,eAAU,kBAAV,GAAgC,EADlC;AAEA;OANF;AASA,sBAAU;AACV,sBAAU;AAEV,UAAG,CAAI,0BAA+E,IAArD,CAAI,uBAAR,IAA+B,CAAI,0BAAR,IAA2C,CAAC,eAAD,SAAa,IAAI,eAAU,aAAY,iBAA1I;AAEE,2BAAe;AACf,0BAAc;AACd,0BAAc;AACd,uBAAU,WAAC,CAAW,IAAX;OALb;AAhFgD;AAyFA;AAGhD;AACA;AAEA;AACA,YAAO;AACP,UAAG,eAAW,IAAI,CAAyB,CAApB,wBAAoB,IAAG,6BAAH,CAA3C;AAEE,YAAoB,CAAhB,QAAG,CAAC,CAAE,GAAE,aAAL,CAAa,GAAE,CAAF,CAAK,IAAoB,CAAhB,QAAG,CAAC,CAAE,GAAE,aAAL,CAAa,GAAE,CAAF,CAA7C;AAEE,6BAAe;AACf,4BAAc;AACd,4BAAc;AACd,yBAAU,WAAC,CAAW,KAAX;SALb;OAFF;AAWA,UAAW,CAAC,eAAD,SACsE,IADvB,CAA7B,eAAU,aAAY,SAAC,EAAM,GAAE,CAAF,CAAlC,IAA2C,eAAU,aAAY,wBAA1B,IAAsD,CAAY,CAAC,oBAAD,SAAhB,IAAsC,iBAAJ,IACjJ,CAAI,oBAD6J,IAC1I,CAAI,qBAAR,IAA6C,CAAhB,QAAG,CAAC,CAAE,GAAE,aAAL,CAAa,GAAE,EAAF,CAArB,IAAyD,CAAhB,QAAG,CAAC,CAAE,GAAE,aAAL,CAAa,IAAG,CAAH,CADtG;AAGE,+BAAmB,eAAU,SAAS,CAAC,EAAG,CAAJ;AACtC,YAAY,oBAAD,QAAX;AAEE,cAAG,oBAAe,mBAAlB;AAEE,iCAAiB,eAAU;AAC3B,oCAAmB;AACnB,uCAAuB;AACvB,2BAAU,WAAC,CAAW,IAAX;WALb;SAFF;OAJF;AAgBA,UAAK,qBAAgB,CAAC,EAAE,CAAH;AACrB,UAAG,CAAE,KAAG,EAAR;AACE,cAAO;;AAGP,YAAK,qBAAgB,CAAC,EAAE,CAAH;AACrB,YAAG,CAAE,KAAG,EAAR,EACE,MAAO,EADT;;AAIF,UAAG,GAAI,KAAG,YAAV,EACE,sBAAU,GAAV,CADF;AAGA,UAAG,0BAAH,EACE,kBAAa,CAAC,EAAG,EA1/OyC,IA0/O7C,CADf;AAhDgD;AA9GF;AAG9C;AACA,UAAG,oBAAe,IAAG,CAAY,CAAC,eAAD,SAAjC,EACE,MADF;AAGA,UAAQ,CAAJ,SAAI,IAAG,cAAC,EAAD,CAAH,CAAiB,IAAI,eAAU,cAAvC;AAE6B,mBAAtB,eAAU,aAAY;AACzB,YADyB,IACzB,uDACA;iBAFyB,IAEzB;AAEE,yBAAU,cAAV,GAA4B;AAC5B,yBAAU;SAEZ,UAPyB,IAOzB,6DAAgB,eAAU,gBAA1B;OATJ;AAP8C;AAiSA;AAG9C;AACA;AACA;AACA;AAEA,UAAY,eAAD,QAAX;AAEiB,mBAAV,eAAU;AACb,YADa,IACb;AAEE,cAAK,oBAAe,CAAC,EAAG,CAAJ;AACpB,cAAM,CAAF,CAAE,GAAE,CAAC,CAAH,CAAM,IAAO,CAAF,CAAE,GAAE,eAAU,YAAW,SAAC,EAAxB,CAAnB;AAEE,oBAAS,eAAU,YAAW,WAAC,CAAD,CAAG;AACjC,gBAAG,eAAU,YAAY,WAAW,CAAC,KAAD,CAApC;AAEE,kBAAG,QAAH;AACE,+BAAU,qBAAqB,CAAC,KAAD;AAC5B,wBAAY,eAAU,iBAAX,QAAX,EACH,eAAU,iBAAgB,CAAC,KAAM,GAAI,KAAX,CADvB;aAJP;WAHF;SAYF,WAhBa,IAgBb,0DAAgB,CAhBH,IAgBG,6DAAhB,IAAuC,CAhB1B,IAgB0B,4DAAvC;AAEE,cAAK;AACL,mBAAS,QAA4C,OAAvC,eAAU,sBAAsB,SAAC,EAAM,GAAE,CAAF,kBAArD;AAAI;AAEF,gBAAG,oCAAU,CAAC,eAAU,sBAAsB,SAAC,CAAD,CAAG,MAAO,gCAAM,CAAC,EAAG,CAAJ,CAAjD,CAAyD,IAAI,eAAU,sBAAsB,SAAC,CAAD,CAAG,OAA7G;AAEE,kBAAK,CAAE,GAAE,CAAF;AACP;aAHF;;AAOF,cAAM,CAAF,CAAE,IAAG,CAAH,CAAM,IAAO,CAAF,CAAE,IAAG,eAAU,oBAAb,CAAnB;AAEE,gBAAY,eAAD,QAAX;AAEE,mBAAM,eAAU,aAAa,CAAC,CAAD;AAC7B,kBAAI,EAAG,KAAG,EAAV;AAEE,oBAAG,QAAH;AACE,iCAAU,eAAe,CAAC,EAAD;AACtB,0BAAY,eAAU,iBAAX,QAAX,EACH,eAAU,iBAAgB,CAAC,KAAM,GAAI,CAAC,CAAZ,CADvB;eAJP;aAHF;WAFF;SAZF;OAlBJ;AAR8C;AA8DF;AAE5C;AACA,2BAAiB;AACjB,6BAAkB;AAClB,UAAY,eAAD,QAAX;AAEE,yCAA6B;AAC7B,yCAA6B;AAC7B,uBAAU,WAAC,CAAY,eAAU,QAAO,cAAc,KAAG,mDAA9C;AACX,uBAAU;OALZ;AAL4C;AAcK;AAGjD;AAEA;AACA,UAAG,CAAY,CAAC,eAAD,SAAf,EACE,MADF;AAGA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAiC,CAA9B,eAAU,aAAa,SAAC,EAAM,GAAE,CAAF,CAAjC,CAAnC;AAEE,mBAAM,eAAU,aAAa,SAAC,KAAK,KAAN,CAA7B;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAEE,cAAY,EAAE,KAAH,QAAX,EACE,EAAE,KAAK,SAAP,GAAoB,QADtB;AAGA,yBAAU;SAEZ,UARK,IAQL;OAXJ;AATiD;AAnBD;AAAhB;AAEhC,eAAU;AAFsB;AAAgB;AAvFL;AAAX;AAEhC,eAA+B,+EAAC,eAAD;AAC/B,UAAW,CAAC,eAAD,SAA0H,IAAzG,eAAU,QAAO,SAArB,IAAkC,CAAY,CAAC,eAAU,qBAAX,SAAhB,IAAsD,CAAI,eAAU,UAAlB,IAAiC,CAAI,eAAU,cAAvJ,EACE,SAAU,eAAgB,IAAG,eAAU,QAAO,QADhD;AAHgC;AAAW;AArVI;AAAf;AAEhC,eAAoB;AACpB,UAAY,eAAD,QAAX;AAEE,YAAG,eAAU,QAAO,SAApB,EACE,SAAU,MAAO,GAAE,eAAU,QAAO,QADtC;OAFF;AAHgC;AAAe;AAjDH;AAAZ;AAEhC;AAEA,qBAAoB,gFAApB;AACA,UAAY,eAAD,QAAX;AAEE,YAAM,MAAM,MAAsB,GAAb,MAAM,KAAR,GAAiB,eAAU,qBAAZ;AAClC,YAAI,eAAU,WAAU,SAAS,IAA6B,CAAxB,eAAU,cAAc,KAAG,0CAAH,CAA9D;AAE2B,qBAApB,eAAU,WAAU;AACvB,cADuB,IACvB;AAEE,kBAAM,KAAN,GAA2B,CAAZ,MAAM,KAAM,GAAE,eAAU,WAAU,OAAtB,CAA6B,GAAE,CAAF;AACxD,kBAAM,MAAN,GAAgB,MAAM,MAAoC,GAA3B,eAAU,WAAU,OAAtB,GAA+B,CAAF;WAE5D,UANuB,IAMvB,wDAAY,MAAM,MAAN,GAAgB,MAAM,MAAO,GAAE,eAAU,WAAU,OAA/D;SARJ;AAYA,cAAM,KAAN,GAAe,MAAM,KAAM,GAAE,CAAF;AAC3B,cAAM,MAAN,GAAgB,MAAM,MAAO,GAAE,CAAF;OAhB/B;AALgC;AAAY;AApBE;AAAd;AAEhC,qBAAoB,kFAApB;AACA,UAAW,CAAC,eAAD,SAAa,IAAI,eAAU,cAAtC,EACE,MAAM,IAAN,GAAc,MAAM,IAAK,GAAE,eAAU,MAAM,UAAC,EAD9C;AAHgC;AAAc;AAxDC;AAAf;AAEhC;AAAG;AACH;AACA;AACA;AACA;AACA;AAEA,eAAU,CAAC;AAEX,UAAG,CAAY,CAAC,eAAD,SAAf,EACE,aADF;AAGA,UAAK,4CAAe,QAAC,uBzB7sP8B,EAAsB,EAAsB,MAAgC,IyB6sP1G;AACrB,OAAC;AACD;AACE,SAAC,MAAK,OAAO,CAAC,eAAU,WAAU,MAArB;AACb,YAAK,eAAU,YAAW,SAAC,EAAM,GAAE,CAAF;AACjC,mBAAM,uBAAN;AACA,eAAQ,EAAE,IAAK,GAAE,CAAF;AACf,iBAAS,QAAK,0BAAd;AAAI;AAEF,gBAAO,eAAU,YAAW,WAAC,CAAD,CAAG;AAC/B,WAAC,KAAD,GAAU,EAAE;AACZ,WAAC,MAAD,GAAW,EAAE;AACb,WAAC,IAAD,GAAS;AACT,WAAC,OAAD,GAAY,CAAC,IAAK,GAAE,CAAC,sBAAoB,CAAC,GAAD,CAAvB;AAClB,iBAAQ,IAA0B,GAAT,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAZ,GAAuB,CAAF;AAElC,cAAG,oCAAU,CAAC,EAAG,gCAAM,CAAC,EAAG,CAAJ,CAAV,CAAb;AAEE,qBAAU;AACV;WAHF;;AAdJ;AAqBE,SAAC;AACD,SAAE,eAAF,CAAE;AAtBJ;AAhBgC;AAAe;AAqJC;AAAhB;AAEhC;AACA;AAEA,qBAAU,qCAAV;AACA,UAAW,CAAC,eAAD,SAAa,IAAK,eAAU,WAAU,SAAS,IAA6B,CAAxB,eAAU,cAAc,KAAG,0CAAH,CAAvF;AAEE,aAAM,eAAU,WAAU;AAC1B,uBAAU,qBAAV;AACA,YAAM,MAAM,MAAsB,GAAb,MAAM,KAAR,GAAiB,eAAU,qBAAZ;AACT,mBAApB,eAAU,WAAU;AACvB,YADuB,IACvB;AAEE,gBAAM,MAAN,GAAgB,MAAM,KAAM,GAAE,EAAF;AAC5B,gBAAM,KAAN,GAAe,MAAM,KAAM,GAAE,CAAF;AAC3B,gBAAM,IAAN,GAAc,MAAM,IAAK,GAAE,CAAF;AACzB,gBAAM,OAAN,GAAiB,MAAM,OAAQ,GAAE,CAAF;SAEjC,UARuB,IAQvB;AAEE,gBAAM,KAAN,GAAe,MAAM,MAAO,GAAE,EAAF;AAC5B,gBAAM,IAAN,GAAc,MAAM,IAAK,GAAE,CAAF;AACzB,gBAAM,OAAN,GAAiB,MAAM,OAAQ,GAAE,CAAF;AAC/B,gBAAM,MAAN,GAAgB,MAAM,MAAO,GAAE,CAAF;SAL/B;AASF,cAAM,KAAN,GAAe,MAAM,KAAM,GAAE,CAAF;AAC3B,cAAM,MAAN,GAAgB,MAAM,MAAO,GAAE,CAAF;OAvB/B;AANgC;AAAgB;AApGE;AAAlB;AAEhC,qBAAU,qBAAV;AACA,YAAM,KAAN,GAAe,MAAM,KAAM,GAAE,CAAF;AAC3B,YAAM,MAAN,GAAgB,MAAM,MAAO,GAAE,CAAF;AAJG;AAAkB;AArOI;AAAtB;AAEhC,eAAU;AACV,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,eAAU,aAAX,SAApC,EACE,SAAU,eAAU,aAAY,oBADlC;AAHgC;AAAsB;AAywBN;AAAhB;AAEhC;AACA;AAEA,eAAU;AAEV,gBAAK,+BAAK,CAAC,EAAE,EAAG,gBAAO,eAAU,QAAO,UAAC,EAA/B,CAAV;AAEA,UAAK,4CAAe,QAAC,uBzB7xQ8B,EAAsB,EAAsB,MAAgC,IyB6xQ1G;AACrB,OAAC;AACD,OAAC,iBAAD,GAAqB;AACrB,OAAC,MAAK,OAAO,CAAC,eAAU,QAAO,QAAC,EAAnB;AAEb;AACE,iBAAU,CAAC,WAAS,CAAC,2CAAG,eAAU,QAAO,OAAO,eAAU,QAAO,eAAe,eAAU,QAAO,sBAAuB,eAAU,QAAO,oBAAoB,eAAU,QAAO,WAAW,EAAG,CAAC,EAAG,CAAC,EAAG,KAAM,KAAM,EAAG,CAA/L;AADtB;AAGE,SAAC;AACD,SAAE,eAAF,CAAE;AAJJ;AAdgC;AAAgB;AAsBA;AAAhB;AAEhC;AACA;AAEA,eAAU;AAEV,gBAAK,+BAAK,CAAC,EAAG,gBAAO,GAAE,eAAU,QAAO,UAAC,EAApB,CAA4B,gBAAO,gBAA9C,CAAV;AAEA,UAAK,4CAAe,QAAC,uBzBnzQ8B,EAAsB,EAAsB,MAAgC,IyBmzQ1G;AACrB,OAAC;AACD,OAAC,iBAAD,GAAqB;AACrB,OAAC,MAAK,OAAO,CAAC,eAAU,QAAO,QAAC,EAAnB;AAEb;AACE,iBAAU,CAAC,WAAS,CAAC,2CAAG,eAAU,QAAO,OAAO,eAAU,QAAO,eAAe,eAAU,QAAO,sBAAuB,eAAU,QAAO,oBAAoB,eAAU,QAAO,WAAW,EAAG,CAAC,EAAG,CAAC,EAAG,KAAM,KAAM,EAAG,CAA/L;AADtB;AAGE,SAAC;AACD,SAAE,eAAF,CAAE;AAJJ;AAdgC;AAAgB;AArtBI;AAEpD,UAAY,yBAAD,QAAX;AACE,iCAAmB,CAAC,KAAM,OAAP;AAChB,gBAAG,iBAAW,aAAd,EACH,sCAAY,QAAQ,CAAC,OAAD,CADjB;AAJ+C;AA3CA;AAEpD,UAAY,yBAAD,QAAX;AACE,iCAAmB,CAAC,KAAM,OAAP;AAChB,gBAAG,iBAAW,aAAd,EACH,sCAAY,QAAQ,CAAC,OAAD,CADjB;AAJ+C;AAxBX;AAEzC;AACA,oCAA0B;AAC1B,uCAA6B;AAC7B,uCAA6B;AAC7B,oCAA0B;AAC1B,yBAAe;AACf,2BAAiB;AACjB,gCAAsB;AACtB,4BAAkB,0CAAqC,QAAC;AACxD,wBAAc,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,qBAAU,WAAC,CAAW,KAAX;AACX,qBAAU,YAAC,CAAY,CAAZ;AACX,qBAAU,SAAV,GAAsB;AAdwC;AAArB;AAiBA;AAE9B,eAAX,KAAW;AACI,eAAf,KAAe;AACf;AAJyC;AA0DJ;AAGrC;AACA,wBAAa,CAAC,UAAW,8CAAZ;AACb,qBAAU,CAAC,UAAW,8CAAZ;AAL2B;AAyOkB;AAAvB;AAEhC,eAAoB;AACpB,UAAW,CAAC,eAAD,SAAa,IAAK,eAAU,WAAU,SAAS,IAA6B,CAAxB,eAAU,cAAc,KAAG,0CAAH,CAAvF,EACE,SAAU,MAAO,GAAE,eAAU,WAAU,OADzC;AAHgC;AAAuB;AA7FT;AAAd;AAEhC,eAAkC,8EAAC,OAAD;AAClC,UAAW,CAAC,eAAD,SAAa,IAAK,eAAU,WAAU,SAAS,IAA6B,CAAxB,eAAU,cAAc,KAAG,0CAAH,CAAvF,EACE,SAAU,MAAO,GAAE,eAAU,WAAU,OADzC;AAHgC;AAAc;AA3tOtB;;;;;;;;;;AAwDJ,+BAAO,UzGnNjB,+ByGmNiB,CAAP;AAxDI;AAgEO;;AAEJ;AACzB;AACA;AACA;AACA;AACA;AALyB;aACzB,sBACA,IAAA,sBACA,IAAA,kCACA,IAAA,oBACA,0BAHA;AAFyB;;AACzB;AACA;AACA;AACA;AACA;AALyB;;;AACzB,uBAH6B,6CAG7B;AACA,uBAhqBkB,kCAgqBlB;AACA;AACA;AACA;AALyB;AAYA;AA25Qe;AAAP;AAEnC,qBAAqC,cAAW,QAAK,CAAC,KAAD,CAAhB,CAArC;AAFmC;AAAO;AAKC;AAEjC,cAAK,CAAC,MAAU,KAAX;AAF4B;AAh6QhB;AAYS;AAElC;AACA;AAHkC;;eAClC;AADkC;;;aAClC,qBACA,IAAA,sBACA,8BADA;AAFkC;;AAClC;AACA;AACA;AAHkC;;;AAClC,uB5BnfI,yC4BmfJ;AACA;AACA;AAHkC;AAUA;AA23Qe;AAAP;AAE5C,qBAA8C,cAAW,QAAK,CAAC,KAAD,CAAhB,CAA9C;AAF4C;AAAO;AAKC;AAE1C,cAAK,CAAC,MAAU,KAAX;AAFqC;AAh4QhB;AAYH;;AAER;;;AAEvB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAbuB;;;;;;;;;;;AAwvQmB;AAE5C,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ,YAAY,eAAD,QAAX,EACE,eAAU,iBAhzPsC,MA+yPlD;OAHF;AAF4C;AA5BH;AAEzC,gBAAK,OAAO,CAAC,KAAD;AAF6B;AAtBM;AAE/C,yBAAe;AAFgC;AAiBN;AAEzC,gBAAK,OAAO,CAAC,KAAD;AAF6B;AA2BE;AAG3C,kBAAO,OAAO,CAAC,KAAD;AAH6B;AAjDG;AAAb;AAEjC,eAAU,WAAM,KAAG,EAAH;AAFiB;AAAa;AAsCD;AAG7C,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb,YAAY,eAAD,QAAX,EACE,eAAU,iBAhyPsC,MA+xPlD;OAHF;AAH6C;AA2BH;AAE1C,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACV,YAAY,eAAD,QAAX,EACE,eAAU,iBA1zPsC,MAyzPlD;OAHF;AAF0C;AAvDG;AAG7C,oBAAS,OAAO,CAAC,KAAD;AAH6B;AAME;AAG/C,sBAAW,OAAO,CAAC,KAAD;AAH6B;AAgBE;AAGjD,wBAAa,OAAO,CAAC,KAAD;AAH6B;AAtCJ;AAE7C,UAAY,eAAD,QAAX,EACE,eAAU,iBAhvPwC,MA+uPpD;AAF6C;AAiFE;AAE/C,UAAY,eAAD,QAAX,EACE,eAAU,iBAj0PwC,MAg0PpD;AAF+C;AAvFF;AAE7C,UAAY,eAAD,QAAX,EACE,eAAU,iBA1uPwC,MAyuPpD;AAF6C;AArCH;AAG1C,wBAAc;AACd,oBAAU;AACV,mCAAyB;AACzB,sBAAY;AACZ,uBAAa;AACb,yBAAe;AACf,mBAAS,qDAAmB,QAAC;AAC7B,gBAAK,WAAL,GAAoB;AACpB,2BAAiB,qDAAmB,QAAC;AACrC,UAAW,CAAC,eAAD,SAAa,IAAI,eAAU,eAAtC,EACE,kBAAa,SAAC,CAAS,QAAT,CADhB;AAEA,wBAAa,WAAb,GAA4B;AAC5B,mBAAS,qDAAmB,QAAC,YAAM,CAAC,mEAAU,S3B7tQ6G,QAAmD,GAAqD,E2B6tQhO,CAAN;AAC7B,gBAAK,WAAL,GAAoB;AACpB,qBAAW,uDAAqB,QAAC,YAAM,CAAC,qEAAU,QAAX,CAAN;AACjC,kBAAO,WAAP,GAAsB;AAEtB,uBAAa,qDAAmB,QAAC,YAAM,CAAC,mEAAU,mDAAiB,CAAC,IAAK,IAAK,GAAX,E3BluQwF,QAAmD,GAAqD,E2BkuQ5N,CAAN;AACjC,oBAAS,WAAT,GAAwB;AACxB,yBAAe,uDAAqB,QAAC,YAAM,CAAC,qEAAU,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAA5B,CAAN;AACrC,sBAAW,WAAX,GAA0B;AAtBU;AADM;AA0BA;AAEpC,eAAN,KAAM;AACQ,eAAd,KAAc;AACR,eAAN,KAAM;AACE,eAAR,KAAQ;AACE,eAAV,KAAU;AACE,eAAZ,KAAY;AACZ;AAR0C;AA5CF;AAExC,UAAc,8BAAH,eAAP,MAAO,CAAX;AAEE,wBAAoB,OAAP,OAAU,8BAAH,CAA6B;AACjD,kBAAK,OAAO,CAAS,OAAP,OAAU,8BAAH,CAA6B,MAAtC;AACZ,0BAAa,OAAO,CAAS,OAAP,OAAU,8BAAH,CAA6B,cAAtC;AACpB,oBAAO,OAAO,CAAS,OAAP,OAAU,8BAAH,CAA6B,QAAtC;AACd,kBAAK,OAAO,CAAS,OAAP,OAAU,8BAAH,CAA6B,MAAtC;AACZ,2BAAuB,OAAP,OAAU,8BAAH,CAA6B;AACpD,sBAAkB,OAAP,OAAU,8BAAH,CAA6B;AAC/C,yBAAqB,OAAP,OAAU,8BAAH,CAA6B;AAClD,sBAAS,OAAO,CAAS,OAAP,OAAU,8BAAH,CAA6B,UAAtC;AAChB,wBAAW,OAAO,CAAS,OAAP,OAAU,8BAAH,CAA6B,YAAtC;AAClB,qCAAiC,OAAP,OAAU,8BAAH,CAA6B;OAZhE;AAFwC;AA9nQf;AA8BL,+BAAW,cAuOT,oCAvOS,CAAX;AAIW;AACf;AACG,gCAtCc,gDAsCd;AACD;AACH,4B3B/DI,+D2B+DJ;AACQ,oC3BhEJ,+D2BgEI;AACF;AACN,4B3B9FI,+D2B8FJ;AACE,8B3B6CI,iE2B7CJ;AACE,gC3BhGA,+D2BgGA;AACE,kC3B2CA,iE2B3CA;AA5CI;AA+CS;;AAEZ;;;AAEpB;AACA;AACA;AACA;AACA;AACA;AAPoB;;;;;;AAiwQsB;AAAd;AAE9B,eAAU,YAAO,KAAG,EAAH;AAFa;AAAc;AAkBJ;AAExC,UAAG,YAAQ,KAAG,KAAd;AAEE,uBAAW;OAFb;AAFwC;AARC;AAEzC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;OAFd;AAFyC;AAiCD;AAExC,kBAAO,OAAO,CAAC,KAAD;AAF0B;AAtCE;AAAZ;AAE9B,eAAU,UAAK,KAAG,EAAH;AAFe;AAAY;AA8BJ;AAEtC,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;OAFX;AAFsC;AATQ;AAG9C,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;OAFnB;AAH8C;AA5CP;AAEvC,wBAAc;AACd,qBAAW;AACX,mBAAS;AACT,sBAAY;AACZ,2BAAiB;AACjB,qBAAW,uDAAqB,QAAC,YAAM,CAAC,qEAAU,QAAX,CAAN;AACjC,UAAW,CAAC,eAAD,SAAa,IAAI,eAAU,eAAtC,EACE,YAAO,SAAC,CAAS,CAAT,CADV;AAR4E;AAArC;AAYA;AAE/B,eAAR,KAAQ;AACR;AAHuC;AAxBF;AAErC,UAAa,2BAAH,eAAP,MAAO,CAAV;AAEE,uBAAmB,OAAP,OAAU,2BAAH,CAA0B;AAC7C,qBAAiB,OAAP,OAAU,2BAAH,CAA0B;AAC3C,wBAAoB,OAAP,OAAU,2BAAH,CAA0B;AAC9C,oBAAO,OAAO,CAAS,OAAP,OAAU,2BAAH,CAA0B,QAAnC;AACd,6BAAyB,OAAP,OAAU,2BAAH,CAA0B;OANrD;AAFqC;AAnuQf;AAgBF,+BAAW,cAoMT,oCApMS,CAAX;AAIH;AACC;AACD,8B3BgBI,iE2BhBJ;AACF;AACQ,oCA1BW,iDA0BX;AAxBD;AA2BE;;;AAEtB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAXsB;;;;;;AA8qPgB;AAExC,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACT;OAHF;AAFwC;AAlBF;AAEtC,UAAG,UAAI,KAAG,KAAV;AAEE,qBAAO;AACP;OAHF;AAFsC;AASQ;AAE9C,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf;OAHF;AAF8C;AAdK;AAAnB;AAEhC,eAAU,sCAAY,UAAU,CAAC,UAAD;AAFA;AAAmB;AAtBX;AAExC,UAAY,eAAD,QAAX,EACE,eAAU,iBAlwOwC,MAiwOpD;AAFwC;AAMC;AAEzC;AACA,wBAA0B,OAAX,iBAAc,+BAAH,CAA8B;AACxD,mBAAmB,OAAX,iBAAc,+BAAH,CAA8B,SAAC,EAAM,GAAE,CAAF;AACxD,UAAY,eAAD,QAAX,EACE,eAAU,iBA3wOwC,MA0wOpD;AALoE;AAA3B;AASA;AAEzC;AACA,UAAY,eAAD,QAAX,EACE,eAAU,iBAlxOwC,MAixOpD;AAHyC;AA1BF;AAEvC,UAAc,6BAAH,eAAP,MAAO,CAAX;AAEE,qBAAiB,OAAP,OAAU,6BAAH,CAA4B;AAC7C,2BAAuB,OAAP,OAAU,6BAAH,CAA4B;AACnD,qBAAe,OAAP,OAAU,6BAAH,CAA4B;AAC3C;OALF;AAFuC;AAtnPf;AAmBJ,+BAAY,ezGlcrB,gCyGkcqB,CAAZ;AAWL;AACM;AACR;AAhCW;AAmCU;;AAGR;;;AAMxB;AACA;AAPwB;;;;;;AA4sPe;AAAP;AAGlC,eAA6C,YAAK,CAAC,KAAD;AAHhB;AAAO;AA2GC;AAGhC,kBAAK,CAAC,MAAU,KAAX;AAH2B;AAjJD;AAAP;AAIlC;AAEA,eAAU;AAEV,UAAK;AACL,UAAG,CAAY,CAAC,CAAD,SAAf,EACE,aADF;AAGA,UAAG,CAAI,cAAP;AACE,iBAAU,2BAAc,CAAC,sBAAS,CAAC,MAAM,oBAAC,EAAR,EAA2B,sBAAS,CAAC,MAAM,oBAAC,EAAR,CAA9C;AAExB,qBAAU,2BAAc,CAAC,MAAM,oBAAC,GAAkB,MAAM,oBAAC,EAAjC;AAErB;AACH,UADG,IACH,8DAAiB,SAAU,MAAO,GAAE,CAAC,CAArC;AAGF,OAAC,kBAAkB,CAAC,OAAQ,OAAQ;;;;UAAjB;AArBe;AAAO;AA6EG;;AAE5C;AAAG;AAAG;AAEN;AAEuB;AAGrB;AAMA,eAAQ,QAAQ,IAAM,CAAC,MAAD;AACtB,gBAAQ,IAAM,CAAC,OAAW,QAAQ,IAAM,CAAC,MAAD,CAA1B;AACd,gBAAQ,IAAM,CAAC,OAAW,IAAZ;AAXO;AAiCvB,iBAAY,KAAI;AAGhB;AACE,YAAK;AACL,YAAK;AACL,YAAQ,CAAF,CAAE,GAAE,CAAF,CAAK,KAAI,CAAJ;AACb;AACE,iBAAM,YAAO,CAAC,cAAK,CAAC,CAAD,EAAK,cAAK,CAAC,CAAD,EAAK,eAAgB,YAArC,CAAmD,GAAE,CAAlE,EACM,CAAJ,IAAG;AACL,iBAAM,YAAO,CAAC,cAAK,CAAC,CAAD,EAAK,cAAK,CAAC,CAAD,EAAK,eAAgB,YAArC,CAAmD,GAAE,CAAlE,EACM,CAAJ,IAAG;AACL,cAAG,CAAE,IAAG,CAAR;AAEE,yBAAa,CAAC,EAAG,CAAJ;AACb,gBAAG,CAAE,KAAE,CAAP;AACE,kBAAK;AACF,sBAAG,CAAE,KAAE,CAAP,EACH,IAAK,CADF;AAED,aAAJ,IAAG;AACC,aAAJ,IAAG;WARL;SALF,QAeQ,EAAF,CAAE,GAAE,CAAF,CAfR;AAgBA,YAAG,CAAE,GAAE,CAAP,EACE,cAAS,CAAC,EAAG,EAAG,eAAgB,YAAvB,CADX;AAEA,YAAK;OAtBP,QAuBQ,EAAF,CAAE,IAAG,CAAH,CAvBR;AA1C4C;AArDD;AAE3B,sDAAC,WAAY,6BAAb;AAChB,wBAAc;AAHkE;AAArC;AA0BD;AAAR;AAGlC;AAEA,eAAU;AACV,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,YAAG,cAAK,CAAC,CAAD,CAAG,MAAI,KAAE,EAAjB;AAEE,mBAAU,cAAK,CAAC,CAAD;AACf;SAHF;;AARgC;AAAQ;AAgBK;AAAb;AAElC;AAEA,WAAM,aAAQ,CAAC,EAAD;AACd,UAAY,EAAD,QAAX;AACE,iBAAU,EAAE,SAAC;AAEb,qBAAU,CAAC;AARqB;AAAa;AArFV;AAAH;AAElC,eAA6C;AAFX;AAAG;AA+DG;AAAN;AAGlC,eAAmD,yCAAC,KAAD;AAHjB;AAAM;AAdC;AAEzC;AAEA,WAAM,cAAK,CAAC,KAAD;AACX,QAAG,eAAH,EAAG;AALsC;AAyHF;AAEvC;AAEA,UAAK;AACL,UAAY,CAAD,QAAX;AAEE,SAAC;AACD;AACA,YAAG,eAAM,GAAE,CAAX,EACE,cAAS,CAAC,EAAQ,eAAD,KAAS,eAAgB,YAAjC,CADX;AAEA;AACA,SAAC;OAPH;AALuC;AArKC;AAExC;AAEA,UAAG,eAAM,GAAE,CAAX;AAEE,eAAM,eAAM,GAAE,CAAd;AAEE,eAAM,cAAK,CAAC,eAAM,GAAE,CAAT;AACX,YAAG,eAAH,EAAG;;OALP;AAJwC;AAxpPd;AAeN,+BAAW,cAoIT,oCApIS,CAAX;AAfM;AA0BA;;;AAExB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAbwB;;;;;;AAk4PgB;AAE1C,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACT;OAHF;AAF0C;AAxCW;AAAnB;AAElC,eAAU,sCAAY,UAAU,CAAC,UAAD;AAFE;AAAmB;AAKN;AAAb;AAElC,eAAU,WAAM,KAAG,EAAH;AAFkB;AAAa;AA4CJ;AAE3C,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACV;OAHF;AAF2C;AA7BA;AAG3C,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACV;OAHF;AAH2C;AAUI;AAG/C,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd;OAHF;AAH+C;AApBE;AAGjD,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;AAChB;OAHF;AAHiD;AAnCP;AAE1C,UAAY,eAAD,QAAX,EACE,eAAU,iBAlgPwC,MAigPpD;AAF0C;AAMC;AAE3C;AACA,wBAA0B,OAAX,iBAAc,gCAAH,CAA+B;AACzD,oBAAU;AACV,oBAAU;AACV,0BAAgB;AAChB,wBAAc;AACd,UAAY,eAAD,QAAX,EACE,eAAU,iBA9gPwC,MA6gPpD;AARsE;AAA3B;AAYA;AAE3C;AACA,UAAY,eAAD,QAAX,EACE,eAAU,iBArhPwC,MAohPpD;AAH2C;AA9BF;AAEzC,UAAc,+BAAH,eAAP,MAAO,CAAX;AAEE,qBAAiB,OAAP,OAAU,+BAAH,CAA8B;AAC/C,sBAAkB,OAAP,OAAU,+BAAH,CAA8B;AAChD,sBAAkB,OAAP,OAAU,+BAAH,CAA8B;AAChD,4BAAwB,OAAP,OAAU,+BAAH,CAA8B;AACtD,0BAAsB,OAAP,OAAU,+BAAH,CAA8B;OANtD;AAFyC;AArzPf;AAwBN,+BAAY,ezGvgBrB,gCyGugBqB,CAAZ;AAWL;AACC;AACA,6BpGrnBV,uCoGqnBU;AACM,mCpGtnBhB,uCoGsnBgB;AACF,iCpGvnBd,uCoGunBc;AAvCM;AA2CC;;;AAMzB;AACA;AAPyB;;;;;;AA44Pe;AAAP;AAGnC,eAA+C,YAAK,CAAC,KAAD;AAHjB;AAAO;AAuCC;AAGjC,kBAAK,CAAC,MAAU,KAAX;AAH4B;AArDC;AAE5B,sDAAC,WAAY,+BAAb;AAChB,wBAAc;AAHmE;AAArC;AA0BD;AAAR;AAGnC;AAEA,eAAU;AACV,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,YAAG,cAAK,CAAC,CAAD,CAAG,IAAI,KAAE,EAAjB;AAEE,mBAAU,cAAK,CAAC,CAAD;AACf;SAHF;;AARiC;AAAQ;AAgBK;AAAb;AAEnC;AAEA,WAAM,aAAQ,CAAC,EAAD;AACd,UAAY,EAAD,QAAX;AACE,iBAAU,EAAE,SAAC;AAEb,qBAAU,CAAC;AARsB;AAAa;AA7DV;AAAH;AAEnC,eAA+C;AAFZ;AAAG;AAuCG;AAAN;AAGnC,eAAqD,yCAAC,KAAD;AAHlB;AAAM;AAdC;AAE1C;AAEA,WAAM,cAAK,CAAC,KAAD;AACX,QAAG,eAAH,EAAG;AALuC;AApBD;AAEzC;AAEA,UAAG,eAAM,GAAE,CAAX;AAEE,eAAM,eAAM,GAAE,CAAd;AAEE,eAAM,cAAK,CAAC,eAAM,GAAE,CAAT;AACX,YAAG,eAAH,EAAG;;OALP;AAJyC;AAh3Pd;AAaP,+BAAW,cAiET,oCAjES,CAAX;AAbO;AAuBC;;AAEO,0FAAmB,UlH95B/C,2BkH85B+C,EAAqB,0BAAsB,4BAA9D;AACS,mGAAmB,UlH/5BxD,2BkH+5BwD,EAAoB,azBz4BpE,qDyBy4BoE,EAAwB,S5B3tBrG,yC4B2tBqG,EAAe,SA/5BtG,kCA+5BsG,CAA9E;AACJ,+FAAmB,UlHh6BpD,2BkHg6BoD,EAAgB,SAh6BvD,kCAg6BuD,EAAmC,eAtEpF,wCAsEoF,CAAtE;AACK,oGAAmB,UlHj6BzD,2BkHi6ByD,EAAoB,azB34BrE,qDyB24BqE,EAAwB,S5B7tBtG,yC4B6tBsG,EAAe,SAj6BvG,kCAi6BuG,EAAmC,eAvEpI,wCAuEoI,EAA8C,8BAA/J;AACD,mGAAmB,UlHl6BxD,2BkHk6BwD,EAAoB,azB54BpE,qDyB44BoE,EAAwB,S5B9tBrG,yC4B8tBqG,EAAe,SAl6BtG,kCAk6BsG,EAAmC,eAxEnI,wCAwEmI,CAAjH;AACD,kGAAmB,UlHn6BvD,2BkHm6BuD,EAAgB,SAn6B1D,kCAm6B0D,EAAsC,kBrG/vB5G,wCqG+vB4G,EAAsB,wBAA/F;AACA,kGAAmB,UlHp6BvD,2BkHo6BuD,EAAgB,SAp6B1D,kCAo6B0D,EAAsC,kBrGhwB5G,wCqGgwB4G,EAAsB,wBAA/F;AACN,4FAAmB,UlHr6BjD,2BkHq6BiD,EAAgB,SAr6BpD,kCAq6BoD,EAAsC,kBrGjwBtG,wCqGiwBsG,CAAzE;AACA,4FAAmB,UlHt6BjD,2BkHs6BiD,EAAgB,SAt6BpD,kCAs6BoD,EAAsC,kBrGlwBtG,wCqGkwBsG,CAAzE;AAEZ,oDAx6BL,0CAw6BK;AAIC;;;AAExB;AACA;AAHwB;AAgrQiB;AAE3C,iBAAO;AACP,qBAAW;AAHiE;AAAjC;AAhrQjB;AAWI;AAwpQe;AAAP;AAEtC,eAA+C,YAAK,CAAC,KAAD;AAFd;AAAO;AAKC;AAEpC,kBAAK,CAAC,MAAU,KAAX;AAF+B;AAgBG;AAEjD;AAEA,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,YAAG,cAAK,CAAC,CAAD,CAAG,IAAI,KAAE,GAAjB;AAEE,wBAAK,CAAC,CAAD,CAAG,QAAR,GAAmB;AACnB;SAHF;;AAN+C;AAcD;AAAV;AAEtC;AAEA,eAAU;AACV,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,YAAG,cAAK,CAAC,CAAD,CAAG,IAAI,KAAE,GAAjB;AAEE,mBAAU,cAAK,CAAC,CAAD,CAAG;AAClB;SAHF;;AAPoC;AAAU;AA3rQlB;AAeV;;;AAElB;AAFkB;;;;;AAigOgB;AAGpC;AACA,UAAG,CAAY,CAAC,eAAD,SAAf,EACE,MADF;AAGA,UAAQ,CAAJ,SAAI,IAAG,cAAC,EAAD,CAAH,CAAiB,IAAI,eAAU,cAAvC;AAE6B,mBAAtB,eAAU,aAAY;AACzB,YADyB,IACzB,uDACA;iBAFyB,IAEzB;AAEE,yBAAU,cAAV,GAA4B;AAC5B,yBAAU;SAEZ,UAPyB,IAOzB,6DAAgB,eAAU,gBAA1B;OATJ;AAPoC;AAjgOhB;;;AAaE;;;AAMpB;AACA;AACA;AACA;AACA;AACA;AAAa;AAAa;AAAa;AACvC;AACA;AAAsB;AACtB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAxGoB;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAsoIiB;AAEvC,iBAAM,OAAO,CAAC,KAAD;AAF0B;AAxEM;AAE7C,uBAAY,OAAO,CAAC,KAAD;AAF0B;AAnMG;AAGhD,0BAAe,OAAO,CAAC,KAAD;AAH0B;AApwBN;AAAZ;AAE9B;AAEA,eAAU,CAAC;AACX,UAAW,CAAC,cAAD,SAAyD,IAAL,CAAnC,cAAS,2BAA0B,GAAE,CAAF,CAAxC,IAAyD,CAAC,cAAS,kBAAqB,CAAC,CAAD,CAA/B,SAAhF;AAEE,aAAM,mBAAc,CAAC,cAAS,sBAAC,EAAX;AACpB,YAAY,EAAD,QAAX;AACE,mBAAU,EAAE,SAAC;AACV,kBAAG,sBAAkB,KAAG,CAAC,CAAzB,EACH,SAAU,sBADP;OALP;AAL8B;AAAY;AA0gCC;AAE3C,qBAAU,CAAC,KAAD;AAFiC;AANE;AAG7C,uBAAY,OAAO,CAAC,KAAD;AAH0B;AAjsCG;AAAlB;AAE9B,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,mBAAC,EADtB;AAH8B;AAAkB;AA0lCC;AAGjD,oBAAS,mBAAC,CAAmB,KAAnB;AAHuC;AAkGT;AAExC,kBAAO,OAAO,CAAC,KAAD;AAF0B;AA7CA;AAExC,kBAAO,OAAO,CAAC,KAAD;AAF0B;AA50BK;AAAf;AAE9B,eAAU;AACV,UAAc,CAAV,mBAAU,IAAG,CAAH,CAAM,IAAe,CAAV,mBAAU,IAAe,CAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,CAAf,CAAnC,EACE,SAAU,WAAK,WAAC,mBAAD,CADjB;AAH8B;AAAe;AA2qBC;AAE9C,UAAY,KAAD,QAAX,EACE,kBAAa,KAAK,SAAC,EAAnB,CADF;AAF8C;AAtpBN;AAAV;AAE9B,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,mBAAc,CAAC,cAAS,kBAAqB,CAAC,MAAD,CAA/B,CAD1B;AAH8B;AAAU;AA2BiB;AAA3B;AAE9B,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,0BADrB;AAH8B;AAA2B;AAuoBC;AAG1D,UAAY,cAAD,QAAX,EACE,cAAS,4BAAC,CAA4B,KAA5B,CADZ;AAH0D;AAp3BrB;AAAP;AAE9B,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAA8B,cAAU,MAD1C;AAH8B;AAAO;AAyNE;AAAT;AAE9B,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAA8B,cAAU,QAD1C;AAH8B;AAAS;AA0yBD;AAEtC,UAAY,cAAD,QAAX,EACsB,cAAU,MAAK,OAAO,CAAC,KAAD,CAD5C;AAFsC;AArJE;AAExC,UAAY,cAAD,QAAX,EACsB,cAAU,QAAO,OAAO,CAAC,KAAD,CAD9C;AAFwC;AAwHM;AAG9C,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;AACjB,6BAn2HkD;OAg2HpD;AAH8C;AAZF;AAG5C,sBAAW,OAAO,CAAC,KAAD;AAH0B;AA/ID;AAE3C,qBAAU,OAAO,CAAC,KAAD;AAF0B;AAuBH;AAGxC,kBAAO,OAAO,CAAC,KAAD;AAH0B;AA8HY;AAGpD,8BAAmB,OAAO,CAAC,KAAD;AAH0B;AAniCZ;AAAV;AAE9B,eAAU;AACV,UAAe,CAAX,UAAW,IAAG,CAAH,CAAM,IAAgB,CAAX,UAAW,IAAe,CAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,CAAf,CAArC,EACE,SAAU,WAAK,WAAC,UAAD,CAAY,SAD7B;AAH8B;AAAU;AAOI;AAAd;AAG9B,eAAU;AACV,UAAY,KAAD,QAAX,EACE,SAAU,KAAK,SADjB;AAJ8B;AAAc;AA4iCH;AAGzC,UAAe,CAAX,UAAW,IAAG,CAAH,CAAM,IAAgB,CAAX,UAAW,IAAe,CAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,CAAf,CAArC,EACE,WAAK,WAAC,UAAD,CAAY,WAAC,CAAW,KAAX,CADpB;AAHyC;AAOI;AAG7C,UAAY,KAAD,QAAX,EACE,KAAK,WAAC,CAAW,KAAX,CADR;AAH6C;AAjKA;AAG7C,uBAAY,OAAO,CAAC,KAAD;AAH0B;AANS;AAGtD,gCAAqB,OAAO,CAAC,KAAD;AAH0B;AA2NV;AAE5C,sBAAW,OAAO,CAAC,KAAD;AAF0B;AA1OA;AAG5C,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf,6BA9rHkD;OA2rHpD;AAH4C;AA+OI;AAGhD,2BAAgB,OAAO,CAAC,KAAD;AAHyB;AA34BE;AAApB;AAE9B,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAA8B,cAAU,mBAD1C;AAH8B;AAAoB;AAurBC;AAEnD,UAAY,cAAD,QAAX,EACsB,cAAU,mBAA9B,GAAoD,KADtD;AAFmD;AA5zBP;AAAd;AAE9B,UAAG,CAAY,CAAC,iBAAD,SAAf;AAEE,4BAAgB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,yBAAY,SAAZ,GAAwB;AACxB,yBAAY,YAAC,CAAY,CAAZ;AACb,yBAAY,WAAC,CAAW,KAAX;OALf;AAQA,eAAU;AAVoB;AAAc;AArEA;AAAd;AAG9B,YAAM,KAAN,GAAe;AACf,YAAM,KAAN,GAAe;AACf,YAAM,KAAN,GAAe;AACf,YAAM,WAAN,GAAqB,CAAC;AACtB,YAAM,IAAN,GAAc,CAAC;AACf,UAAW,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAA7B,EACE,eAAU,iBAAY,SAAC,MAAD,CAAtB,CADF;AAR8B;AAAc;AAYK;AAAnB;AAE9B,eAAU,iBAAY,SAAC;AAFO;AAAmB;AAp/CD;AAGhD,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,KAAP,CADnB;AAHgD;AA8uDE;AAApB;AAEpB,YAAD,sBAAC,YAAQ,CAAT;AACT,YAAM,CAAC,CAAD,CAAN,GAAa;AAHiB;AAAoB;AAtOX;AAAT;AAE9B,eAAU,2CAA+C,GAA3B,0BAAF,GAA+B,sBAAS,CAAC,eAAD,CAAX;AAF3B;AAAS;AA6OC;AAAV;AAE9B,eAAU,4BAAgB,CAAC,EAAS,EAAS,EAAS,CAA5B;AAFI;AAAU;AAzGE;AAAZ;AAE9B,qBAAU,qCAAV;AACA,UAAY,cAAD,QAAX,EACE,eAAU,cAAS,eAAnB,CADF;AAH8B;AAAY;AAzhEE;AAAd;AAE9B,eAAU,6BAAwB,QAAC,YAAM,CAAC,IAAD,CAAN;AAFL;AAAc;AALH;AAAX;AAE9B,eAAU,0BAAqB,QAAC,YAAM,CAAC,IAAD,CAAN;AAFF;AAAW;AA2kEO;AAAlB;AAE9B;AACA;AAEA,eAAU,CAAC;AACX,eAAS,QAAwB,OAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,kBAAjC;AAAI;AAEF,mBAAM,iBAAY,SAAC,CAAD,CAAlB;AACA,YAAW,CAAC,EAAE,KAAH,SAA4E,IAAtD,CAAC,EAAE,KAAK,YAAR,SAAZ,IAAoD,CAAd,EAAE,KAAK,SAAC,EAAM,KAAE,UAAF,CAAnB,IAA8C,CAAR,EAAE,KAAM,KAAE,6CAAF,CAApG;AAEE,mBAAU,EAAE,KAAK;AACjB;SAHF;;AAT4B;AAAkB;AAhOK;AAAvB;AAE9B;AAEA,eAAU,CAAC;AACX,eAA4B,KAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,EAAW,aAAvC;AAAI;AAEF,YAAyB,CAArB,iBAAY,SAAC,CAAD,CAAG,KAAM,KAAE,iDAAF,CAAgB,IAAO,CAAF,CAAE,IAAG,MAAH,CAAhD;AAEE,mBAAU;AACV;SAHF;;AAP4B;AAAuB;AAgCJ;AAAnB;AAE9B;AAEA,eAAU,CAAC;AACX,eAA4B,KAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,EAAW,aAAvC;AAAI;AAEF,YAAyB,CAArB,iBAAY,SAAC,CAAD,CAAG,KAAM,KAAE,6CAAF,CAAY,IAAO,CAAF,CAAE,IAAG,MAAH,CAA5C;AAEE,mBAAU;AACV;SAHF;;AAP4B;AAAmB;AAmKQ;AAA3B;AAE9B;AAEA,eAAU,CAAC;AACX,eAAgB,KAAP,MAAO,GAAE,CAAF,EAA0B,OAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,kBAA1C;AAAI;AAEF,YAAG,iBAAY,SAAC,CAAD,CAAG,KAAM,KAAE,iDAA1B;AAEE,mBAAU;AACV;SAHF;;AAP4B;AAA2B;AAzER;AAAnB;AAE9B;AAEA,eAAU,CAAC;AACX,UAAY,KAAD,QAAX;AAEE,iBAAS,QAAwB,OAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,kBAAjC;AAAI;AAEF,cAAwB,CAApB,iBAAY,SAAC,CAAD,CAAG,IAAK,KAAE,KAAK,KAAP,CAAgD,IAAvB,CAAC,iBAAY,SAAC,CAAD,CAAG,KAAhB,SAAZ,IAA+C,CAAC,iBAAY,SAAC,CAAD,CAAG,KAAK,YAArB,SAApF;AAEE,qBAAU,iBAAY,SAAC,CAAD,CAAG,KAAK,SAAC;AAC/B;WAHF;;OAJJ;AAL8B;AAAmB;AAzBL;AAAd;AAE9B;AAEA,eAAU;AACV,UAAK,wBAAmB,CAAC,KAAD;AACxB,UAAM,CAAF,CAAE,IAAG,CAAH,CAAM,IAAO,CAAF,CAAE,IAAe,CAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,CAAf,CAAnB,EACE,SAAU,WAAK,WAAC,CAAD,CADjB;AAN8B;AAAc;AAiHK;AAAnB;AAE9B,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAA8B,cAAU,cAAc,CAAC,uBAAkB,CAAC,UAAD,CAAnB,CADxD;AAH8B;AAAmB;AAv+BR;AAAX;AAE9B;AAAW;AAAU;AAAI;AACzB;AAAG;AAEH,eAAU;AACV,UAAG,CAAY,CAAC,KAAD,SAAf,EACE,aADF;AAGA,kBAAa;AAEb,aAAyB,CAAlB,cAAG,CAAC,KAAM,MAAP,CAAe,GAAE,CAAF,CAAK,IAAsB,CAAjB,cAAG,CAAC,IAAK,MAAN,CAAc,GAAE,CAAF,CAApD;AAEE,YAAK,cAAG,CAAC,KAAM,MAAP;AACR,oBAAa,SAAU,GAAE,eAAI,CAAC,OAAQ,EAAG,CAAE,GAAE,CAAhB,CAAN;AACvB,mBAAY,eAAI,CAAC,OAAQ,EAAU,MAAD,OAAlB;AAChB,YAAK,cAAG,CAAC,IAAK,QAAN;AACR,aAAM,eAAI,CAAC,SAAU,EAAG,CAAE,GAAE,CAAlB;AACV,yBAAM,CAAC;;;;aAAI,EAAG,CAAR;AACN,yBAAM,CAAC;;;;aAAQ,EAAK,CAAF,CAAE,GAAE,CAAF,CAAI,GAAE,CAApB;AACN,aAAM,KAAK,mBAAkB,SAAO,CAAC,EAAD;AACpC,mCAAsB,CAAC,MAAO,GAAI;;;;YAAZ;AACtB,oBAAa,SAAU,GAAE,EAAF;;AAGzB,eAAU,SAAU,GAAE,MAAF;AAzBU;AAAW;AAsmCc;AAAzB;AAE9B;AAAI;AAEJ,eAAU;AACV,UAAW,CAAP,MAAO,KAAE,IAAF,CAAO,IAAW,CAAP,MAAO,KAAE,IAAF,CAA7B;AAEE,iBAAU;;AAIL;AACH,aADG,IACH,0DAAgB,CADb,IACa,6DAAhB,IAAuC,CADpC,IACoC,4DAAvC;AAEE,eAAM,MAAM,oBAAC;AACb,eAAM,MAAM,oBAAC;AACb,cAAe,CAAJ,EAAD,OAAK,GAAE,CAAF,CAAK,IAAgB,CAAJ,EAAD,OAAK,GAAE,CAAF,CAApC;AAKE,qBAAW,EAAE,QAAC,CAAD,CAAI,KAAG,EAAE,QAAC,CAAD,CAAL;;AAKjB,gBAAe,CAAJ,EAAD,OAAK,KAAE,CAAF,CAAK,IAAgB,CAAJ,EAAD,OAAK,KAAE,CAAF,CAApC;AACE,uBAAU;AAEV,2BAAU;;SAGhB,UArBG,IAqBH;AAEE,cAAsB,CAAlB,MAAM,YAAY,GAAE,CAAC,CAAH,CAAM,IAAuB,CAAlB,MAAM,YAAY,GAAE,CAAC,CAAH,CAAnD;AACE,qBAAW,MAAM,YAAY,KAAG,MAAM,YAAT;AAE7B,yBAAU,CAA8B,CAAN,CAAlB,MAAM,YAAY,KAAE,CAAC,CAAH,CAAM,IAAuB,CAAlB,MAAM,YAAY,KAAE,CAAC,CAAH,CAAvB;SAL5C;;AAhC0B;AAAyB;AAlYN;AAAnB;AAE9B;AACA;AACA;AAEA,eAAU;AACL;AACH,WADG,IACH,iEAAuB,CADpB,IACoB,4DAAvB,IAA6C,CAD1C,IAC0C,sDAA7C;AAEE,YAAK,KAAK,oBAAC;AACX,YAAU,CAAD,OAAI,GAAE,CAAf;AAKE,mBAAU,CAAC,QAAC,CAAD;SAIX,eAAU;OAEd,UAfG,IAeH;AAEE,cAAO,gBAAU,cAAc,CAAC,KAAK,YAAN;AAC/B,YAAQ,CAAJ,GAAI,IAAG,CAAH,CAAM,IAAS,CAAJ,GAAI,IAAoB,CAAjB,gBAAU,SAAC,EAAM,GAAE,CAAF,CAApB,CAAvB;AAEE,gBAAO,gBAAU,WAAC,GAAD;AACjB,mBAAU,GAAG;SAHf;OAHF;AAtB4B;AAAmB;AA1BP;AAAZ;AAE9B,eAAU;AACV,UAAiB,CAAb,kBAAa,KAAE,sDAAF,CAAwB,IAAiB,CAAb,kBAAa,KAAE,gDAAF,CAA1D;AAEE,YAAG,GAAI,GAAE,EAAT;AACE,mBAAa,oBAAI,EAAM,GAAO,CAAJ,GAAI,GAAE,CAAF,CAAjB;AAEb,uBAAa,oBAAI,EAAM,GAAO,CAAJ,GAAI,GAAE,EAAF,CAAjB;;AAIf,YAAG,GAAI,GAAE,EAAT;AACE,mBAAa,oBAAI,EAAM,GAAO,CAAJ,GAAI,GAAE,CAAF,CAAjB;AAEb,uBAAa,oBAAI,EAAM,GAAO,CAAJ,GAAI,GAAE,EAAF,CAAjB;;AAfa;AAAY;AAmBK;AAAjB;AAE9B,eAAU;AACV,UAAiB,CAAb,kBAAa,KAAE,uDAAF,CAAyB,IAAiB,CAAb,kBAAa,KAAE,sDAAF,CAA3D,EACE,SAAU,EADZ;AAH8B;AAAiB;AA1GQ;AAAzB;AAE9B;AACA;AAEA,YAAM,KAAN,GAAe;AACf,YAAM,KAAN,GAAe;AACf,YAAM,WAAN,GAAqB,CAAC;AACtB,YAAM,KAAN,GAAe;AACf,eAAS,QAAyB,OAApB,kBAAa,SAAC,EAAM,GAAE,CAAF,kBAAlC;AAAI;AAEF,oBAAO,kBAAa,SAAC,CAAD,CAApB;AACA,YAAG,GAAG,KAAM,KAAE,SAAd;AAEE,yBAAU,GAAV;AACA;SAHF;;AAZ4B;AAAyB;AAoBE;AAA3B;AAE9B;AACA;AAEA,YAAM,KAAN,GAAe;AACf,YAAM,KAAN,GAAe;AACf,YAAM,WAAN,GAAqB,CAAC;AACtB,YAAM,KAAN,GAAe;AACf,eAAS,QAAyB,OAApB,kBAAa,SAAC,EAAM,GAAE,CAAF,kBAAlC;AAAI;AAEF,oBAAO,kBAAa,SAAC,CAAD,CAApB;AACA,YAAG,GAAG,WAAY,KAAE,WAApB;AAEE,yBAAU,GAAV;AACA;SAHF;;AAZ4B;AAA2B;AAoBF;AAAzB;AAE9B;AACA;AAEA,eAAU;AACV,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,YAAK,WAAK,WAAC,CAAD,CAAG;AACb,YAAG,mBAAe,IAAI,CAAI,qBAA1B,EACE,IAAK,CAAE,IAAI,WAAK,WAAC,CAAD,CAAG,UADrB;AAGA,YAAG,CAAE,IAAmC,CAA9B,wBAAmB,CAAC,WAAK,WAAC,CAAD,CAAN,CAAW,KAAE,SAAF,CAAxC;AAEE,mBAAU,WAAK,WAAC,CAAD;AACf;SAHF;;AAZ4B;AAAyB;AAoBE;AAA3B;AAE9B;AACA;AAEA,eAAU;AACV,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,YAAK,WAAK,WAAC,CAAD,CAAG;AACb,YAAG,mBAAe,IAAI,CAAI,qBAA1B,EACE,IAAK,CAAE,IAAI,WAAK,WAAC,CAAD,CAAG,UADrB;AAGA,YAAG,CAAE,IAAyB,CAApB,WAAK,WAAC,CAAD,CAAG,YAAY,KAAE,WAAF,CAA9B;AAEE,mBAAU,WAAK,WAAC,CAAD;AACf;SAHF;;AAZ4B;AAA2B;AAgST;AAAlB;AAE9B;AAEA,eAAU;AACV,eAAS,QAAuB,OAAlB,iBAAW,SAAC,EAAM,GAAE,CAAF,kBAAhC;AAAI;AACF,iBAAU,MAAO,GAAE,iBAAW,WAAC,CAAD,CAAG,OAAhB;;AANW;AAAkB;AAiIE;AAApB;AAE9B,eAAwC,sFAAC,QAAS,cAAe,aAAzB;AACxC,eAAU,MAAqC,IAAZ,CAAd,aAAc,KAAE,QAAF,CAAlB,IAAgD,CAAd,aAAc,KAAE,QAAF,CAAlB;AAHjB;AAAoB;AAp8EL;AAE7C;AAWA,0BAAc,UAAC,CAAU,sCAAY,aAAa,CAAC,oBAAc,SAAS,EAAG,CAA3B,CAAnC;AACf,2BAAe,SAAQ,OAAC,CAAO,sCAAY,aAAa,CAAC,qBAAe,SAAQ,MAAM,EAAG,CAAjC,CAAhC;AACxB,2BAAe,SAAQ,QAAC,CAAQ,sCAAY,aAAa,CAAC,qBAAe,SAAQ,OAAO,EAAG,CAAlC,CAAjC;AACxB,2BAAe,SAAQ,UAAC,CAAU,sCAAY,aAAa,CAAC,qBAAe,SAAQ,SAAS,EAAG,CAApC,CAAnC;AACxB,2BAAe,SAAQ,SAAC,CAAS,sCAAY,aAAa,CAAC,qBAAe,SAAQ,QAAQ,EAAG,CAAnC,CAAlC;AACxB,2BAAe,YAAC,CAAY,sCAAY,UAAU,CAAC,qBAAe,WAAW,EAAG,CAA9B,CAAlC;AAChB;AAnB6C;AAshCP;AAEtC;AACA,UAAW,CAAC,cAAD,SAAY,IAAI,cAAS,cAAC,EAArC,EACE,cAAS,WADX;AAHsC;AA++CD;AAErC;AAFqC;AAz2Be;AAEpD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,MAAO,WAAd,CADvB;AAFoD;AA4HA;AAEpD;AAFoD;AA7wBF;AAElD;AAFkD;AAKP;AAE3C,yBAAe;AACf,2BAAW,WAAC,CAAW,IAAX;AAH+B;AAxeO;AAGlD,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,QAAS;;;;UAAhB,CADrB;AAHkD;AA5KD;AAGjD,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,OAAP,CADpB;AAHiD;AAiSC;AAElD;AACA;AAHkD;AA1HA;AAElD;AAFkD;AAoJC;AAGnD,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,KAAP,CADtB;AAHmD;AA4KA;AAEnD;AACA;AACA;AACA;AAEA,UAAW,CAAC,yBAAD,SAAuB,IAAY,CAAC,cAAD,SAA9C;AAEE,YAAG,CAAI,uBAAP;AACE,cAAK;;AAGL,qBAAM,cAAS,iBAAf;AACA,cAAK,EAAE,MAAO,GAAE,EAAE,KAAJ;;AAGhB,YAAG,cAAS,aAAY,iBAAiB,GAAE,CAA3C;AAEE,cAAK,QAAG,CAAC,yBAAqB,GAAE,CAAxB,CAA2B,GAAE,cAAS,aAAY,iBAAvB;AACnC,iBAAQ,mBAAa,CAAC;;;;eAAsB;;;;eAAG,EAAG,IAA7B;SAGrB,aAAQ;AAEV,YAAG,CAAI,IAAP;AAEE,sCAAwB;AACxB,oCAAsB,CAAI;AAC1B,cAAG,CAAI,uBAAP;AAEE,wCAAuB,CAAC,uBAAmB,yBAApB;AACvB,qCAAoB,WAAC,CAAW,KAAX;AACrB,qCAAoB,UAAC,CAAU,IAAV;AACrB,wCAAwB;AACxB,qCAAqB;WAGrB,MAAA,4BAAuB,CAAC,uBAAmB,yBAApB;AAEzB,kCAAmB,WAAC,CAAW,KAAX;SAftB;AAkBA,4BAAe,CAAC,IAAD;AACf;OAGoB,MAApB,wBAAmB,WAAC,CAAW,KAAX;AA/C6B;AA+zBG;AAGtD,UAAY,6BAAD,QAAX,EACE,6BAAuB,CAAC,KAAM,MAAO,cAAd,CADzB;AAHsD;AAmGA;AAGtD,UAAY,6BAAD,QAAX,EACE,6BAAuB,CAAC,KAAM,MAAO,cAAd,CADzB;AAHsD;AA5nCM;AAG5D,UAAY,mCAAD,QAAX,EACE,mCAA6B,CAAC,KAAM,MAAO,eAAgB,MAA9B,CAD/B;AAH4D;AAPA;AAG5D,UAAY,mCAAD,QAAX,EACE,mCAA6B,CAAC,KAAM,MAAO,eAAgB,MAA9B,CAD/B;AAH4D;AA2kEjB;AAG3C;AAEA;AACA,UAAG,CAAkB,CAAb,4CAAa,IAAG,oBAAH,CAAmB,IAAe,CAAV,SAAU,KAAE,+BAAF,CAAvD;AAEE,iBAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,cAAG,UAAW,KAAE,WAAK,WAAC,CAAD,CAAG,eAAxB,EACE,WAAK,WAAC,CAAD,CAAG,eAAR,GAA2B,IAD7B;;AAIF,YAAW,CAAC,iBAAD,SAAc,IAAgB,CAAX,UAAW,KAAE,iBAAW,eAAb,CAAzC,EACE,iBAAW,eAAX,GAA8B,IADhC;OARF;AAN2C;AAh7BC;AAE5C,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,IAAD,CADf;AAF4C;AAuaA;AAE5C;AACA;AAEI,sBAAJ,IAAG;AACH,UAAG,gBAAY,IAAG,EAAlB;AAEE,6BAAW,WAAC,CAAW,KAAX;AAEZ;AACA,YAAK,YAAM;AACX,SAAC,eAAD,GAAmB;AACnB,SAAC,WAAD,GAAe,GAAc,GAAV,UAAK,KAAC,EAAP,GAAY,GAAD;AAE7B,YAAK;AACL,gCAAmB,CAAC,EAAG,CAAJ;AACnB,YAAG,CAAH;AAEE;AACA,iCAAkB,CAAC,CAAD;SAHpB;OAXF;AAN4C;AAjaD;AAE3C,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,IAAD,CADd;AAF2C;AA4nCM;AAEjD;AACA;AAEA,UAAY,cAAD,QAAX;AAEE,oBAAO,gCAA2B,CAAC,WAAD,CAAlC;AACA,YAAY,CAAR,GAAG,IAAK,IAAG,CAAH,CAAM,IAAa,CAAR,GAAG,IAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAA/B;AAEE,cAAyB;AACzB,WAAC,oBAAoB,CAAC,CAAC,cAAc,CAAC,GAAG,IAAJ,EAAW,KAAM,4EAAU,IAA3C;SAHvB;OAHF;AALiD;AAhBO;AAExD;AACA;AAEA,UAAY,cAAD,QAAX;AAEE,oBAAO,8BAAyB,CAAC,UAAD,CAAhC;AACA,YAAY,CAAR,GAAG,IAAK,IAAG,CAAH,CAAM,IAAa,CAAR,GAAG,IAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAA/B;AAEE,cAAyB;AACzB,WAAC,oBAAoB,CAAC,CAAC,cAAc,CAAC,GAAG,IAAJ,EAAW,KAAM,4EAAU,IAA3C;SAHvB;OAHF;AALwD;AAvIH;AAErD;AACA,+BAAa,CAAC,2BAAD;AAHwC;AA9+FZ;AAEzC;AACA;AAEA;AACA,UAAK;AACL,UAAG,wCAAa,sBAAsB,CAAC;;;;UAAD,CAAtC;AAEE,iBAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,qBAAK,WAAC,CAAD,CAAG,aAAC,CAAa,CAAb;AACT,qBAAK,WAAC,CAAD,CAAG,cAAC,CAAc,CAAd;;OALb;AAPyC;AA2gHc;AAEvD;AACA,UAAY,cAAD,QAAX,EACE,cAAS,UAAU,CAAC,EAAG,EAAG,gBAAO,gBAAd,CADrB;AAGA,0BAAe,CAAC,KAAD;AACf;AAPuD;AApgBL;AAElD;AAEA;AAEA;AAEA,sBAAM,SAAC,CAAS,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAA1B;AACP,kBAAM,QAAC,EAAI,QAAC,CAAQ,kEAAR;AACZ,kBAAM,QAAC,EAAI,QAAC,CAAQ,kEAAR;AACZ,kBAAM,UAAC,EAAM,SAAC,CAAS,gBAAM,OAAf;AACd,kBAAM,UAAC,EAAM,SAAC,CAAS,gBAAM,OAAf;AAEd,4CAAY,YAAY,CAAC,YAAM,QAAC,GAAM,GhCjkJ4C,CgCikJ1D;AACxB,4CAAY,YAAY,CAAC,YAAM,QAAC,GAAM,GhClkJ4C,CgCkkJ1D;AAExB,4CAAY,YAAY,CAAC,YAAM,QAAC,GAAM,GhCpkJ4C,CgCokJ1D;AACxB,kBAAM,QAAC,EAAI,SAAC,CAAS,cAAY,wCAAZ,CAAT;AACZ,4CAAY,YAAY,CAAC,YAAM,QAAC,GAAM,GhCtkJ4C,CgCskJ1D;AACxB,0BAAc,UAAC,EAAM,QAAC,CAAQ,mEAAR;AAYtB,kBAAM,QAAC,EAAI,SAAC,CAAS,QAAT;AACZ,kBAAM,QAAC,EAAI,SAAC,CAAS,QAAT;AACZ,kBAAM,QAAC,EAAI,SAAC,CAAS,QAAT;AACZ,kBAAM,QAAC,EAAI,SAAC,CAAS,QAAT;AACZ,0BAAc,gBAAC,EAAY,SAAC,CAAS,QAAT;AAC5B,0BAAc,kBAAC,EAAc,SAAC,CAAS,QAAT;AAC9B,0BAAc,QAAC,EAAI,SAAC,CAAS,QAAT;AACpB,0BAAc,kBAAC,EAAc,SAAC,CAAS,QAAT;AAE9B,0BAAc,aAAC,CAAa,KAAb;AAEf,kBAAM,UAAC,CAAU,oBAAe,CAAC,EAAD,CAAzB;AAEP,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,mBAAK,WAAC,CAAD,CAAG,sBAAC,CAAsB,YAAM,QAAC,EAAI,OAAjC;AACT,mBAAK,WAAC,CAAD,CAAG,cAAC,CAAc,YAAM,QAAC,EAAI,OAAzB;AACT,mBAAK,WAAC,CAAD,CAAG,qBAAC,CAAqB,YAAM,QAAC,EAAI,OAAhC;AACT,mBAAK,WAAC,CAAD,CAAG,aAAC,CAAa,oBAAc,QAAC,EAAI,OAAhC;;AAGX;AArDkD;AAyWJ;AAE9C;AACA,UAAY,cAAD,QAAX,EACE,cAAS,gBAAC,CAAgB,sBAAhB,CADZ;AAH8C;AAmLA;AAE9C;AACA;AAAI;AACJ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEA,UAAiB,CAAb,mBAAa,GAAE,CAAF,CAAK,IAAG,mBAAzB,EACE,MADF;AAGA,UAAY,cAAD,QAAX;AAEE,YAAG,CAAI,YAAP,EACE,qBADF;AAGA,cAAO;AACP,YAAK;AACK,YAAD,sBAAC,OAAY,WAAC,CAAD,CAAb;AACT,iBAAS,QAAe,OAAJ,WAAC,CAAD,CAAI,GAAE,CAAF,kBAAxB;AAAI;AAEF,cAAY,CAAC,CAAC,CAAD,CAAF,QAAX,EACE,IAAI,CAAC,CAAD,CAAJ,GAAW,CAAC,CAAC,CAAD,CAAG,SAAC,EADlB;;AAIF,YAAG,CAAI,wBAAmB,SAA1B;AAEE,cAAG,uBAAH;AACE,wCAAwB;;AAGxB,uBAAM,cAAS,iBAAf;AACA,wCAAwB,EAAE,MAAO,GAAE,EAAE,KAAJ;;SAPrC;AAWA,YAAG,YAAH;AACE,wBAAS;;AAGT,wBAAS;AACT,wBAAS;AACT,wBAAS;;AAGX;AACA,6BAAgB,GAAhB;AACA,wBAAW,CAAC,kBAAD;AAEX,mBAAM,cAAS,oBAAf;AAEA,YAAK;AACL,YAAY,YAAD,QAAX,EACE,IAAK,YAAO,UADd;AAGA,YAAG,CAAI,mBAA+B,IAAd,kBAAJ,IAAsB,CAA1C;AACE,oBAAK,UAAC,CAAU,IAAV;AAEA,cAAN,UAAK,UAAC,CAAU,IAAV;AAER,wBAAW,WAAC,CAAW,cAAU,IAAwD,CAArD,kBAAqD,IAAnC,CAAY,CAAC,yBAAD,SAAhB,IAA2C,CAAJ,CAA7E;AACZ,YAAG,CAAI,mBAAa,IAAoB,CAAd,YAAM,UAAC,EAAO,GAAE,CAAF,CAAK,IAAI,YAAM,WAAC,EAAxD;AACE,0BAAW,UAAC,CAAU,IAAV;AAEA,cAAZ,gBAAW,UAAC,CAAU,IAAV;AAEd,wBAAW;AAEX,wBAAW,WAAC,CAAmB,CAAC,yBAAD,SAAgH,IAA3B,CAArC,CAAnB,uBAAmB,IAAI,CAAI,wBAAmB,SAA3B,CAAqC,IAAG,CAAI,uBAAP,CAA9D,IAA6F,CAAvI;AACZ,YAAG,CAAI,mBAAa,IAAoB,CAAd,YAAM,UAAC,EAAO,GAAE,CAAF,CAAK,IAAI,YAAM,WAAC,EAAxD;AACE,0BAAW,UAAC,CAAU,IAAV;AAEA,cAAZ,gBAAW,UAAC,CAAU,IAAV;AAEd,wBAAW;AAEX,wBAAW,WAAC,CAAW,CAAI,cAAsG,IAAxF,CAAI,kBAAR,IAA0B,iBAAW,gBAAf,IAAmC,CAAY,CAAC,yBAAD,SAAhB,IAA2C,CAAzH;AACZ,YAAG,CAAI,mBAAa,IAAoB,CAAd,YAAM,UAAC,EAAO,GAAE,CAAF,CAAK,IAAI,YAAM,WAAC,EAAxD;AACE,0BAAW,UAAC,CAAU,IAAV;AAEA,cAAZ,gBAAW,UAAC,CAAU,IAAV;AAEd,wBAAW;AAEX,0BAAa,WAAC,CAAW,iBAAW,kBAA+E,IAAzD,CAAI,kBAAR,IAA0B,CAAY,CAAC,yBAAD,SAAhB,IAA2C,CAAzG;AACd,YAAG,CAAI,mBAAa,IAAoB,CAAd,YAAM,UAAC,EAAO,GAAE,CAAF,CAAK,IAAI,YAAM,WAAC,EAAxD;AACE,4BAAa,UAAC,CAAU,IAAV;AAEA,cAAd,kBAAa,UAAC,CAAU,IAAV;AAEhB,0BAAa;AAEb,eAAQ,EAAE,OAAQ,GAAE,EAAE,IAAJ;AAMlB,wBAAW,UAAC,CAAU,UAAK,CAAC,IAAK,GAAE,oBAAe,CAAC,CAAD,CAAvB,CAAf;AACZ,wBAAW,UAAC,CAAU,UAAK,CAAC,IAAK,GAAE,oBAAe,CAAC,CAAD,CAAvB,CAAf;AACZ,wBAAW,UAAC,CAAU,UAAK,CAAC,IAAK,GAAE,oBAAe,CAAC,CAAD,CAAvB,CAAf;AACZ,0BAAa,UAAC,CAAU,UAAK,CAAC,IAAK,GAAE,oBAAe,CAAC,CAAD,CAAvB,CAAf;AAEd;AAEA,cAAO;AACP,YAAY,YAAD,QAAX;AAEE,cAAG,YAAO,WAAU,SAApB;AAEE,kBAAO,YAAO,WAAU;AACxB,kBAAO,GAAU,GAAJ,GAAF,GAAQ,oBAAe,CAAC,CAAD,CAAjB;WAHnB;AAMA,cAAG,YAAO,YAAV;AAEE,kBAAO,YAAO;AACd,kBAAO,GAAU,GAAJ,GAAF,GAAQ,oBAAe,CAAC,CAAD,CAAjB;WAHnB;AAMA,cAA8B,YAAQ,UAAU,KAAG,qEAAnD;AAEE,kBAAO,oBAAe,CAAC,CAAD;AACtB,kBAAO,GAAU,GAAJ,GAAF,GAAQ,oBAAe,CAAC,CAAD,CAAjB;WAHnB;SAdF;AAqBA,wBAAW,UAAU,CAAC,UAAK,CAAC,EAAE,KAAM,GAAE,oBAAe,CAAC,CAAD,CAA1B,EAAgC,UAAK,CAAC,EAAE,IAAK,GAA8C,CAAtB,CAApB,EAAE,OAAkB,GAAR,EAAE,IAAJ,GAAY,gBAAW,UAAC,EAAd,CAAsB,GAAE,CAAF,CAAtD,EAA4D,gBAAW,SAAC,GAAO,gBAAW,UAAC,EAAtI;AACrB,YAAG,kBAAa,SAAhB;AAEE,4BAAa,UAAU,CAAC,UAAK,CAAC,EAAE,MAAkD,GAAzC,oBAAe,CAAC,CAAD,CAAjB,GAAuB,kBAAa,SAAC,EAAhB,GAAwB,GAAvD,EAA6D,UAAK,CAAC,EAAE,IAAK,GAAgD,CAAxB,CAApB,EAAE,OAAkB,GAAR,EAAE,IAAJ,GAAY,kBAAa,UAAC,EAAhB,CAAwB,GAAE,CAAF,CAAxD,EAA8D,kBAAa,SAAC,GAAO,kBAAa,UAAC,EAAzK;AACvB,0BAAW,UAAU,CAAC,UAAK,CAAC,EAAE,MAAsE,GAA7D,oBAAe,CAAC,CAAD,CAAjB,GAAuB,gBAAW,SAAC,EAAd,GAAsB,kBAAa,SAAC,EAAhB,GAAwB,GAA3E,EAAiF,UAAK,CAAC,EAAE,IAAK,GAAE,UAAK,CAAuB,CAApB,EAAE,OAAkB,GAAR,EAAE,IAAJ,GAAY,gBAAW,UAAC,EAAd,CAAsB,GAAE,CAA/C,CAAf,EAAmE,gBAAW,SAAC,GAAO,gBAAW,UAAC,EAA9L;AACrB,0BAAW,UAAU,CAAC,UAAK,CAAC,EAAE,MAAsE,GAA7D,oBAAe,CAAC,CAAD,CAAjB,GAAuB,gBAAW,SAAC,EAAd,GAAsB,kBAAa,SAAC,EAAhB,GAAwB,GAA3E,EAAiF,UAAK,CAAC,EAAE,IAAK,GAAE,UAAK,CAAuB,CAApB,EAAE,OAAkB,GAAR,EAAE,IAAJ,GAAY,gBAAW,UAAC,EAAd,CAAsB,GAAE,CAA/C,CAAf,EAAmE,gBAAW,SAAC,GAAO,gBAAW,UAAC,EAA9L;;AAIrB,0BAAW,UAAU,CAAC,UAAK,CAAC,EAAE,MAAgD,GAAvC,oBAAe,CAAC,CAAD,CAAjB,GAAuB,gBAAW,SAAC,EAAd,GAAsB,GAArD,EAA2D,UAAK,CAAC,EAAE,IAAK,GAA8C,CAAtB,CAApB,EAAE,OAAkB,GAAR,EAAE,IAAJ,GAAY,gBAAW,UAAC,EAAd,CAAsB,GAAE,CAAF,CAAtD,EAA4D,gBAAW,SAAC,GAAO,gBAAW,UAAC,EAAjK;AACrB,0BAAW,UAAU,CAAC,UAAK,CAAC,EAAE,MAAgD,GAAvC,oBAAe,CAAC,CAAD,CAAjB,GAAuB,gBAAW,SAAC,EAAd,GAAsB,GAArD,EAA2D,UAAK,CAAC,EAAE,IAAK,GAA8C,CAAtB,CAApB,EAAE,OAAkB,GAAR,EAAE,IAAJ,GAAY,gBAAW,UAAC,EAAd,CAAsB,GAAE,CAAF,CAAtD,EAA4D,gBAAW,SAAC,GAAO,gBAAW,UAAC,EAAjK;;AAGvB,YAAG,eAAS,SAAS,IAAkB,CAAb,kBAAa,KAAG,0CAAH,CAAvC;AAEgB,qBAAT,eAAS;AACZ,cADY,IACZ;AAAW,sBAAK,UAAU,CAAC,UAAK,CAAC,EAAE,KAAU,GAAF,CAAF,GAAM,eAAS,OAAxB,EAAiC,UAAK,CAAC,EAAE,OAAH,EAAa,UAAK,CAAE,EAAE,MAAoC,GAA3B,EAAE,KAAJ,GAAa,eAAS,OAAX,GAAoB,CAA1C,EAA8C,UAAK,UAAC,EAAlH;AAC1B,oBAFY,IAEZ,wDAAY,UAAK,UAAU,CAAC,UAAK,CAAC,EAAE,KAAM,GAAE,CAAX,EAAe,UAAK,CAAC,EAAE,OAAQ,GAAE,CAAb,EAAiB,UAAK,CAAE,EAAE,MAAoC,GAA3B,EAAE,KAAJ,GAAa,eAAS,OAAX,GAAoB,CAA1C,EAA8C,UAAK,UAAC,EAApG,CAA3B;SAIF,MAAA,UAAK,UAAU,CAAC,UAAK,CAAC,EAAE,KAAM,GAAE,CAAX,EAAe,UAAK,CAAC,EAAE,OAAH,EAAa,UAAK,CAAE,EAAE,MAAkB,GAAT,EAAE,KAAJ,GAAa,CAAxB,EAA4B,UAAK,UAAC,EAA9E;AAEjB,sBAAS;OA3IX;AAhB8C;AA1/EC;;AA0nEK;AAEpD;AACA;AAEU,SAAD,sBAAC,MAAK,CAAN;AACT,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,YAAG,WAAK,WAAC,CAAD,CAAG,SAAX;AAEY,aAAD,sBAAC,MAAW,WAAC,GAAD,CAAM,GAAE,CAApB;AACT,aAAG,CAAO,WAAC,GAAD,CAAM,GAAE,CAAf,CAAH,GAAwB;SAH1B;;AAOF,sBAAW,CAAC,iBAAD;AAfyC;AAqVL;AAE/C,UAAY,cAAD,QAAX,EACE,cAAS,mBADX;AAF+C;AAz7GF;AAE7C;AACA;AACA;AACA;AACA;AAEA,UAAiB,CAAb,mBAAa,GAAE,CAAF,CAAK,IAAG,mBAAzB,EACE,MADF;AAGA,uBAAY;AACZ,wBAAa;AAEb,WAAM;AACN,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,aAAM,WAAK,WAAC,CAAD;AACX,YAAK,EAAE;AAEP,UAAE,UAAF,GAAgB;AAChB,YAAG,mBAAH;AAEE,YAAE,UAAF,GAAgB,gBAAW,CAAC,EAAD;AAC3B,cAAK,CAAE,IAAI,EAAE,UAAN;SAHT;AAMA,YAAG,kBAAa,KAAG,0CAAnB;AAEE,cAAG,iBAAY,SAAC,EAAM,KAAE,CAAxB;AAEE,gBAAG,CAAH;AAEE,wBAAK,uBAAkB,CAAC,EAAD,CAAvB;AACA,iCAAc,CAAC,EAAD;AACV,gBAAJ,IAAG;aAJL;;AASA,gBAAG,8BAAyB,CAAC,GAAI,WAAK,WAAC,CAAE,GAAE,CAAL,CAAV,CAA5B;AAEE,kBAAO,CAAH,EAAG,KAAE,CAAF,CAAK,IAAY,CAAP,CAAC,KAAM,KAAE,iDAAF,CAAxB;AAEE,iCAAY,OAAO,CAAC,0CAAD;AACnB,kCAAa,OAAO,CAAC,0CAAD;eAHtB;AAMA,wBAAK,uBAAkB,CAAC,EAAD,CAAvB;AACA,mBAAM;AAEN,kBAAG,CAAH;AAEE,mCAAc,CAAC,EAAD;AACV,kBAAJ,IAAG;eAHL;;AAQA,kBAAG,CAAH;AAEE,mCAAc,CAAC,EAAD;AACV,kBAAJ,IAAG;eAHL;;;SAQD,UAAG,CAAH,EACH,mBAAc,CAAC,EAAD,CADX;;AAIP,UAAO,CAAH,EAAG,KAAE,CAAF,CAAK,IAAY,CAAP,CAAC,KAAM,KAAE,iDAAF,CAAxB;AAEE,yBAAY,OAAO,CAAC,0CAAD;AACnB,0BAAa,OAAO,CAAC,0CAAD;OAHtB;AAvE6C;AA8EI;AAEjD;AACA;AACA;AACA;AAAG;AACH;AACA;AACA;AACA;AAEA,UAAiB,CAAb,mBAAa,GAAE,CAAF,CAAqB,IAAb,mBAAH,IAAmB,CAAY,CAAC,cAAD,SAArD,EACE,MADF;AAGA,gCAAqB;AAErB,UAAG,eAAS,SAAS,IAAkB,CAAb,kBAAa,KAAG,0CAAH,CAAvC;AAEE,mBAAM,cAAS,mBAAf;AAEK;AACH,aADG,IACH,0DAAgB,CADb,IACa,6DAAhB,IAAuC,CADpC,IACoC,4DAAvC;AAEE,cAAK;AACL,mBAAS,QAAK,0BAAd;AAAI;AAEF,kBAAO,iBAAY,CAAC,CAAD;AACnB,aAAC,KAAD,GAAU,EAAE;AACZ,aAAC,MAAD,GAAW,EAAE;AACb,aAAC,IAAD,GAAS,EAAE,IAAK,GAAW,CAAL,CAAF,CAAE,GAAE,CAAF,CAAK,GAAwB,CAAV,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAU,GAAE,CAAF,CAAxB,CAAX;AAChB,aAAC,OAAD,GAAY,CAAC,IAAK,GAAwB,CAAV,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAU,GAAE,CAAF,CAAxB;AAElB,eAAG,KAAC,SAAQ,CAAR;AACJ,eAAG,KAAH,GAAY;AACZ,eAAG,OAAH,GAAuB,8BAAyB,CAAC,IAAK,eAAS,sBAAf,CAA1B;AAEtB,sCAAqB,IAAI,CAAC,qDAAD;;SAG7B,UAnBG,IAmBH;AAEE,0BAAW;AACX,mBAAS,SAAsB,QAAjB,gBAAU,SAAC,EAAM,GAAE,CAAF,qBAA/B;AAAI;AACF,4BAAW,MAAI,CAAC,+BAA0B,QAAC,YAAM,CAAC,gBAAU,WAAC,CAAD,CAAG,OAAK,KAAnB,CAAN,CAA5B;;AAEjB,mBAAS,SAAiB,QAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,qBAA1B;AAAI;AAEF,kBAAO,WAAK,WAAC,CAAD,CAAG,oBAAC;AAChB,gBAAI,GAAI,KAAG,EAAX;AAEE,kBAAK,WAAK,WAAC,CAAD,CAAG;AACb,8BAAW,WAAW,CAAC,CAAD;aAHxB;;AAOF,cAAK,4CAAe,QAAC,uBzBtuDwB,EAAsB,EAAsB,MAAgC,IyBsuDpG;AACrB;AACE,aAAC,MAAK,OAAO,CAAC,eAAS,MAAV;AACb,gBAAK,gBAAU,SAAC,EAAM,GAAE,CAAF;AACtB,mBAAQ,EAAE,IAAK,GAAE,CAAF;AACf,qBAAS,SAAK,8BAAd;AAAI;AAEF,oBAAO,gBAAU,WAAC,CAAD,CAAG;AAEpB,eAAC,KAAD,GAAU,EAAE;AACZ,eAAC,MAAD,GAAW,EAAE;AACb,eAAC,IAAD,GAAS;AACT,eAAC,OAAD,GAAY,CAAC,IAAK,GAAE,CAAC,sBAAoB,CAAC,GAAD,CAAvB;AAClB,qBAAQ,IAA0B,GAAT,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAZ,GAAuB,CAAF;AAElC,iBAAG,KAAC,SAAQ,CAAR;AACJ,iBAAG,KAAH,GAAY;AACZ,iBAAG,OAAH,GAAuB,gCAA2B,CAAC,gBAAU,WAAC,CAAD,CAAG,OAAK,eAAS,sBAA5B,CAA5B;AAEtB,wCAAqB,IAAI,CAAC,qDAAD;;AAlB7B;AAqBE,aAAE,eAAF,CAAE;AArBJ;SAjBF;OAvBJ;AAhBiD;AA9KD;AAAlB;AAE9B;AAEA,QAAE,KAAF,GAAW;AACX,QAAE,KAAF,GAAW;AACX,QAAE,KAAF,GAAW,wBAAmB,CAAC,KAAD;AAC9B,QAAE,WAAF,GAAiB,KAAK;AACtB,QAAE,IAAF,GAAU,iBAAY,SAAC;AACvB,UAAY,KAAD,QAAX,EACE,KAAK,KAAL,GAAc,EAAE,IADlB;AAGA,UAAkB,CAAd,EAAE,WAAY,KAAG,CAAC,CAAJ,CAAO,IAAG,wBAAkB,mBAA9C;AAEE,yBAAY,IAAI,CAAC,2CAAD;AAChB,0BAAa,IAAI,CAAC,2CAAD;OAHnB;AAMA,qBAAU,EAAV;AAlB8B;AAAkB;AAdH;AAE7C;AAEA,QAAE,WAAF,GAAiB,CAAC;AAClB,QAAE,KAAF,GAAW;AACX,QAAE,KAAF,GAAW;AACX,QAAE,KAAF,GAAW;AACX,QAAE,IAAF,GAAU,iBAAY,SAAC;AACvB,UAAY,KAAD,QAAX,EACE,KAAK,KAAL,GAAc,EAAE,IADlB;AAEA,uBAAY,IAAI,CAAC,2CAAD;AAX6B;AA+7BP;AAEtC,UAAY,aAAD,QAAX,EACE,aAAO,CAAC,IAAD,CADT;AAFsC;AAihBQ;AAE9C;AAEA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,mBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAEE,cAAG,oBAAc,QAAQ,GAAE,CAAC,CAA5B,EACE,YAAW,oBAAc,QAAzB,CADF;AAGA,cAAW,CAAC,EAAE,KAAH,SAAU,IAAoB,CAAf,EAAE,KAAK,QAAQ,GAAE,CAAC,CAAH,CAAzC,EACE,YAAW,EAAE,KAAK,QAAlB,CADF;SAGF,UATK,IASL;AAEE,cAAG,wBAAkB,QAAQ,GAAE,CAAC,CAAhC,EACE,YAAW,wBAAkB,QAA7B,CADF;SAFF;OAZJ;AAJ8C;AA8DF;AAE5C;AAEA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,mBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAEE,cAAY,EAAE,KAAH,QAAX;AAEE,gBAAW,CAAC,yBAAD,SAAkB,IAAwB,CAAnB,EAAE,KAAK,YAAY,KAAG,EAAH,CAArD,EACE,UAAuB,yBAAe,aAAW,CAAC,EAAE,KAAK,YAAR,CAAjD,CADF;AAGA,gBAAG,CAAY,CAAC,WAAD,SAAf,EACE,UAAS,EAAE,KAAK,QAAhB,CADF;WALF;SASF,UAZK,IAYL;OAfJ;AAJ4C;AA4DC;AAE7C;AACA;AAEA,UAAY,cAAD,QAAX;AAEE,YAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,qBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACA,cAAG,CAAI,cAAS,sBAAsB,CAAC,KAAD,CAAQ,IAAI,CAAa,CAAR,EAAE,KAAM,KAAE,iDAAF,CAA/D;AAEE,gBAAG,cAAS,qBAAoB,KAAE,KAAlC;AACE,yBAAU,EAAV;;AAGA,kBAAK,cAAS,mBAAmB,CAAC,KAAD;AACjC,kBAAW,CAAC,CAAD,SAAqB,IAAN,CAAN,CAAC,KAAK,IAAG,CAAH,CAAX,IAA4B,CAAN,CAAC,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAA3C;AAEE,2BAAM,iBAAY,SAAC,CAAC,KAAF,CAAlB;AACA,oBAAG,EAAE,KAAM,KAAE,6CAAb;AACE,6BAAU,cAAC,8DAAD,CAAV;AAEA,iCAAU,EAAV;eANJ;;WAPJ;SAHF;OAFF;AAL6C;AA/PC;AAGzC;AACH,UADG,IACH;AAAa,kBAAS,YAAM,MAAf;AACb,gBAFG,IAEH,mFAAgB,UAAS,YAAM,MAAf,CAAhB;AAL4C;AASI;AAI7C;AACH,UADG,IACH;AAAa,sBAAa,YAAM,UAAnB;AACb,gBAFG,IAEH,mFAAgB,cAAa,YAAM,UAAnB,CAAhB;AANgD;AAoBI;AAIjD;AACH,UADG,IACH;AAAa,0BAAiB,YAAM,cAAvB;AACb,gBAFG,IAEH,mFAAgB,kBAAiB,YAAM,cAAvB,CAAhB;AANoD;AAvCO;AAIxD;AACH,UADG,IACH;AAAa,iCAAwB,YAAM,qBAA9B;AACb,gBAFG,IAEH,mFAAgB,yBAAwB,YAAM,qBAA9B,CAAhB;AAN2D;AA6BF;AAItD;AACH,UADG,IACH;AAAa,+BAAsB,YAAM,mBAA5B;AACb,gBAFG,IAEH,mFAAgB,uBAAsB,YAAM,mBAA5B,CAAhB;AANyD;AA0iBb;AAE9C;AAEA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,mBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAEE,cAAY,EAAE,KAAH,QAAX,EACE,eAAc,EAAE,KAAK,SAArB,CADF;SAGF,UANK,IAML;OATJ;AAJ8C;AA1fG;AAIjD;AACA;AAEA,UAAG,cAAH;AAEE,YAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,qBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,qBAAF,EAAE;AACL,cADK,IACL;AAEE,gBAAY,EAAE,KAAH,QAAX;AAEE,kBAAa,EAAE,KAAK;AACpB,6BAA2C,CAA3C;aAHF;WAMF,UATK,IASL;SAZJ;OAFF;AAPiD;AAtvBF;AAG/C;AAEA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,mBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAEE,cAAY,EAAE,KAAH,QAAX;AAEE,cAAE,KAAK,WAAC,CAAW,IAAX;AACR,gBAAY,cAAD,QAAX,EACE,cAAS,kBAAkB,CAAC,KAAD,CAD7B;AAEA,mCAAkB,CAAC,EAAE,KAAH;WALpB;SAQF,UAXK,IAWL;OAdJ;AAL+C;AA8HE;AAGjD;AAEA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,mBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAEE,cAAY,EAAE,KAAH,QAAX;AAEE,cAAE,KAAK,WAAC,CAAW,KAAX;AACR,gBAAY,cAAD,QAAX,EACE,cAAS,oBAAoB,CAAC,KAAD,CAD/B;AAEA,mCAAkB,CAAC,EAAE,KAAH;WALpB;SAQF,UAXK,IAWL;OAdJ;AALiD;AAwvCA;AAEjD,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,KAAP,CADpB;AAFiD;AA5IA;AAEjD,UAAG,KAAK,OAAO,KAAE,CAAC,CAAlB,EACE,mBAAkB,iBAAY,SAAC,EAA/B,CADF;AAFiD;AAzgBI;AAGrD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,MAAO,MAAO,MAArB,CADxB;AAHqD;AAPL;AAGhD,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,MAAO,aAAd,CADnB;AAHgD;AAcD;AAG/C;AAEA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,mBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,mBAAF,EAAE;AACL,YADK,IACL,wDAAc,cAAa,IAAb,CAAd;OAJJ;AAL+C;AAkaH;AAE5C;AAEA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,mBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAEE,cAAY,EAAE,KAAH,QAAX,EACE,UAAS,EAAE,KAAK,UAAhB,CADF;SAGF,UANK,IAML,wDAAc,UAAS,EAAE,KAAX,CAAd;OATJ;AAJ4C;AA5GC;AAE7C;AAEA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,mBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAEE,cAAY,EAAE,KAAH,QAAX,EACE,WAAU,EAAE,KAAK,WAAjB,CADF;SAFF;OAJJ;AAJ6C;AAjBQ;AAErD;AAEA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,mBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAEE,cAAY,EAAE,KAAH,QAAX,EACE,cAAa,EAAE,KAAK,eAApB,CADF;SAFF;OAJJ;AAJqD;AAiKL;AAEhD;AAEA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,mBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAEE,cAAY,EAAE,KAAH,QAAX,EACE,cAAa,EAAE,KAAK,UAApB,CADF;SAGF,UANK,IAML;OATJ;AAJgD;AA3FK;AAErD;AAEA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,mBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAEE,cAAY,EAAE,KAAH,QAAX,EACE,cAAa,EAAE,KAAK,eAApB,CADF;SAGF,UANK,IAML;OATJ;AAJqD;AA2ab;AAExC;AACA;AACA;AACA;AACA;AAEA,UAAI,KAAK,eAAe,KAAE,EAA1B,EACE,MADF;AAGA,eAAS,MAAK,OAAO,CAAC,oBAAc,eAAf;AACrB,eAAS,QAAO,OAAO,CAAC,oBAAc,iBAAf;AACvB,eAAS,MAAK,OAAO,CAAC,oBAAc,eAAf;AAErB,UAAG,KAAK,oBAAoB,KAAG,EAA/B,EACE,SAAS,MAAK,SAAC,CAAS,KAAK,oBAAd,CADjB;AAGA,UAAG,KAAK,sBAAsB,KAAG,EAAjC,EACE,SAAS,QAAO,SAAC,CAAS,KAAK,sBAAd,CADnB;AAGA,UAAG,KAAK,gBAAgB,KAAG,EAA3B,EACE,SAAS,MAAK,SAAC,CAAS,KAAK,gBAAd,CADjB;AAGA,UAAK,KAAK;AACV,iBAAM,SAAS,oBAAkB,CAAC,CAAD,CAAjC;AACA,QAAE,GAAF,GAAS,EAAE,GAAI,GAAE,CAAF;AACf,QAAE,GAAF,GAAS,QAAG,CAAC,EAAE,IAAK,EAAE,GAAI,GAAE,CAAhB;AAEZ,gBAAK,KAAL;AAEU,iBAAL,KAAK;AACR,UADQ,IACR;AAAW,kBAAK,+BAAK,CAAC,CAAC,KAAM,GAA+B,CAAT,CAAlB,CAAC,MAAiB,GAAR,CAAC,KAAH,GAAY,EAAE,GAAJ,CAAS,GAAE,CAAF,CAA/B,CAAoC,CAAC,IAAK,GAA+B,CAAT,CAAlB,CAAC,OAAiB,GAAP,CAAC,IAAH,GAAW,EAAE,GAAJ,CAAS,GAAE,CAAF,CAA/B,CAAoC,CAAC,KAAyC,GAAJ,CAAT,CAAlB,CAAC,MAAiB,GAAR,CAAC,KAAH,GAAY,EAAE,GAAJ,CAAS,GAAE,CAAF,CAA/B,GAAqC,EAAE,GAAJ,CAAS,CAAC,IAAwC,GAAJ,CAAT,CAAlB,CAAC,OAAiB,GAAP,CAAC,IAAH,GAAW,EAAE,GAAJ,CAAS,GAAE,CAAF,CAA/B,GAAqC,EAAE,GAAtL,CAAV;AACX,gBAFQ,IAER;AAAY,kBAAK,+BAAK,CAAC,CAAC,MAAO,CAAC,IAAK,GAA+B,CAAT,CAAlB,CAAC,OAAiB,GAAP,CAAC,IAAH,GAAW,EAAE,GAAJ,CAAS,GAAE,CAAF,CAA/B,CAAoC,CAAC,KAAM,GAAE,EAAE,GAAJ,CAAS,CAAC,IAAwC,GAAJ,CAAT,CAAlB,CAAC,OAAiB,GAAP,CAAC,IAAH,GAAW,EAAE,GAAJ,CAAS,GAAE,CAAF,CAA/B,GAAqC,EAAE,GAAhH,CAAV;AACZ,gBAHQ,IAGR,6EAAa,UAAK,+BAAK,CAAC,CAAC,MAAO,GAAE,EAAE,GAAJ,CAAS,CAAC,IAAK,GAA+B,CAAT,CAAlB,CAAC,OAAiB,GAAP,CAAC,IAAH,GAAW,EAAE,GAAJ,CAAS,GAAE,CAAF,CAA/B,CAAoC,CAAC,OAAQ,CAAC,IAAwC,GAAJ,CAAT,CAAlB,CAAC,OAAiB,GAAP,CAAC,IAAH,GAAW,EAAE,GAAJ,CAAS,GAAE,CAAF,CAA/B,GAAqC,EAAE,GAAlH,CAAV,CAAb;AAGF,YAAiB,CAAT,CAAC,OAAQ,GAAE,CAAC,IAAH,CAAS,GAAE,CAAF;AAE1B,YAAO,qDAAmB,QAAC;AAC3B;AACE,WAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,KAAM,GAAE,GAAF,CAAO,CAAC,IAAK,GAAE,GAAvB,EAA6B,gCAAM,CAAC,IAAK,GAAN,EAAY,IAAK,EAA3D;AACV,WAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,GAAE,GAAF,CAAO,CAAC,IAAK,GAAE,GAAxB,EAA8B,gCAAM,CAAC,IAAK,GAAN,EAAY,CAAC,GAAI,EAA5D;AACV,WAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,MAAO,GAAE,GAAF,CAAO,CAAC,OAAQ,GAAE,GAA3B,EAAiC,gCAAM,CAAC,IAAK,GAAN,EAAY,EAAG,EAA7D;AACV,WAAG,OAAO,CAAC,gCAAM,CAAC,CAAC,KAAM,GAAE,GAAF,CAAO,CAAC,OAAQ,GAAE,GAA1B,EAAgC,gCAAM,CAAC,IAAK,GAAN,EAAY,CAAC,IAAK,EAA/D;AACV,WAAG;AACH,iBAAS,SAAS,CAAC,IzBrpHqE,wEyBqpHtE;AANpB;AAQE,WAAI,eAAJ,GAAI;AARN;AAWA,eAAS,WAAS,CAAC,2CAAG,EAAG,MAAO,qEAAW,qEzBrjH+L,sEAA0B,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CyBojH5J;AAnDsB;AAr+BM;AAI9C;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAAG;AAEH,UAAG,CAAY,CAAC,cAAD,SAAf,EACE,MADF;AAGA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,mBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAEE,cAAY,EAAE,KAAH,QAAX;AAEE,gBAA8B,CAA1B,cAAS,gBAAiB,KAAE,EAAE,KAAJ,CAAW,IAAuB,CAAlB,iBAAW,SAAC,EAAM,GAAE,CAAF,CAAhE;AAEE,uBAAS,MAAK,OAAO,CAAC,0BAAoB,MAArB;AACrB,uBAAS,MAAK,OAAO,CAAC,0BAAoB,MAArB;AACrB,uBAAS,QAAO,OAAO,CAAC,0BAAoB,QAArB;AAEvB,mBAAM,cAAS;AACf,kBAAK,EAAG,GAAE,iBAAW,SAAC,EAAd;AAER,uBAAS,QAAuB,OAAlB,iBAAW,SAAC,EAAM,GAAE,CAAF,kBAAhC;AAAI;AAEF,qBAAM,iBAAW,WAAC,CAAD;AACjB,oBAAG,EAAE,OAAO,KAAG,EAAf,EACE,SAAS,MAAK,SAAC,CAAS,EAAE,OAAX,CADjB;AAEA,oBAAG,EAAE,aAAa,KAAG,EAArB,EACE,SAAS,QAAO,SAAC,CAAS,EAAE,aAAX,CADnB;AAEA,oBAAG,EAAE,WAAW,KAAG,EAAnB,EACE,SAAS,MAAK,SAAC,CAAS,EAAE,WAAX,CADjB;AAEA,0BAAK,+BAAK,CAAa,CAAZ,KAAK,MAAO,GAAE,CAAF,CAAI,GAAI,CAAF,CAAE,GAAE,CAAF,CAAJ,CAAS,KAAK,KAAkB,CAAZ,KAAK,MAAO,GAAE,CAAF,CAAI,GAAI,CAAF,CAAE,GAAK,CAAF,CAAE,GAAE,CAAF,CAAL,CAAJ,CAAe,KAAK,OAAzE,CAAV;AACA,oBAAK;AACL,+CAA0B,CAAC,UAAW,2CAAG,EAAE,MAAO,GAAI;;;;oBAA5B;AAC1B,oBAAG,CAAH;AAEE,sBAAG,cAAS,gBAAiB,KAAE,EAA/B;AAEE,6BAAS,MAAK,SAAC,CAAS,yCAAO,CAAC,SAAS,MAAK,QAAQ,EAAvB,CAAhB;AACf,6BAAS,QAAO,SAAC,CAAS,yCAAO,CAAC,SAAS,QAAO,QAAQ,EAAzB,CAAhB;mBAHnB;AAMA,2BAAS,gBAAc,CAAC,2CAAG,wEAAJ;AACvB,yDAAa,CAAC,EAAG,CAAC,EAAG,CAAC,CAAT;AACb,2BAAS,WAAS,CAAC,2CAAG,EAAE,OAAO,MAAO,qEzBtlFkI,qEAAoD,sEAA0B,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CyBqlF9I;AAClB,gDAAyB,CAAC,UAAW,2CAAG,EAAE,MAAO,EAAxB;iBAX3B;;aArBJ;AAqCA,gBAA2B,CAAvB,EAAE,KAAK,gBAAgB,GAAE,CAAF,CAAuC,IAAL,CAAxB,EAAE,KAAK,iBAAiB,GAAE,CAAF,CAA7B,IAAyD,CAAlB,EAAE,KAAK,WAAW,KAAG,2CAAH,CAAzF;AAEE,wBAAK,KAAL;AACA,kBAAG,EAAE,KAAM,KAAE,cAAS,gBAAtB,EACE,CAAC,KAAD,GAAU,CAAC,KAAM,GAAE,cAAS,YAD9B;AAGA,qDAAa,CAAC,EAAG,CAAC,EAAG,CAAC,CAAT;AACb,kBAAK,EAAE,KAAK;AACZ,wBAAK,+BAAK,CAAC,CAAC,MAAO,CAAC,IAAK,GAA2B,CAAL,CAAlB,CAAC,OAAiB,GAAP,CAAC,IAAH,GAAW,CAAF,CAAK,GAAE,CAAF,CAA3B,CAAgC,CAAC,OAAQ,CAAC,IAAoC,GAAJ,CAAL,CAAlB,CAAC,OAAiB,GAAP,CAAC,IAAH,GAAW,CAAF,CAAK,GAAE,CAAF,CAA3B,GAAiC,CAA/F,CAAV;AAEA,uBAAS,MAAK,OAAO,CAAC,oBAAc,eAAf;AAErB,kBAAG,EAAE,KAAK,oBAAoB,KAAG,EAAjC,EACE,SAAS,MAAK,SAAC,CAAS,EAAE,KAAK,oBAAhB,CADjB;AAGY,0BAAP,EAAE,KAAK;AACV,kBADU,KACV;AAEE,sBAAO,4CAAe,gBAAgB,CAAC,oBAAc,yBAAyB,EAAG,yBAA3C;AACtC,oBAAW,CAAC,GAAD,SAAM,IAAI,CAAI,uCAAa,CAAC,GAAD,CAAtC,EACE,SAAS,aAAW,CAAC,2CAAG,IzB7rFyD,KACzE,MAA0B,KAA2B,KyB4rFzC,CADtB;eAGF,UAPU,KAOV;AAEE,oBAAK,oBAAc,eAAc;AACjC,oBAAG,EAAE,KAAK,gBAAgB,KAAG,EAA7B,EACE,IAAK,EAAE,KAAK,gBADd;AAEA,qBAAM,oBAAc,eAAc;AAClC,oBAAG,EAAE,KAAK,oBAAoB,KAAG,EAAjC,EACE,KAAM,EAAE,KAAK,oBADf;AAEA,yBAAS,gBAAgB,CAAC,2CAAG,EAAE,KAAK,oBAAoB,SAAU,IAAK,EAAG,GzBnrFkI,KAA0B,KAA6B,GyBmrF1O;eAE3B,UAjBU,KAiBV;AAAW,8BAAS,CAAC,UAAW,2CAAG,EAAE,KAAjB;AACpB,wBAlBU,KAkBV;AAEE,yBAAS,WAAW,CAAC,2CAAG,EAAE,KAAM,KAAE,yBAAF,CzB9rFoC,MAA2B,KAA+B,KAA6B,GyB8rFvI;AACpB,yBAAS,WAAS,CAAC,2CAAG,EAAE,KAAK,gBAAgB,MAAO,qEAAW,qEzBhoF6J,sEAA0B,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CyB+nF9I;eAEpB,UAvBU,KAuBV,oDAAY,8BAAyB,CAAC,UAAW,2CAAG,EAAE,KAAjB,CAArC;aAtCJ;WAvCF;SAkFF,UArFK,IAqFL;OAxFJ;AAlB8C;AAPU;AAGxD,UAAY,+BAAD,QAAX,EACE,+BAAyB,CAAC,KAAM,UAAW,+CAAO,KAAzB,CAD3B;AAHwD;AAxVC;AAIzD,UAAY,gCAAD,QAAX,EACE,gCAA0B,CAAC,KAAM,UAAW,+CAAO,MAAO,YAAa,YAA7C,CAD5B;AAJyD;AAtJD;AAIxD,UAAY,+BAAD,QAAX,EACE,+BAAyB,CAAC,KAAM,UAAW,+CAAO,MAAO,WAAhC,CAD3B;AAJwD;AA4pCJ;AAEpD;AAEA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,mBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAEE,cAAY,EAAE,KAAH,QAAX,EACE,kBAAiB,EAAE,KAAK,cAAxB,CADF;SAGF,UANK,IAML;OATJ;AAJoD;AAxEK;AAEzD;AAEA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,mBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAEE,cAAY,EAAE,KAAH,QAAX,EACE,kBAAiB,EAAE,KAAK,mBAAxB,CADF;SAGF,UANK,IAML;OATJ;AAJyD;AA0FR;AAEjD;AAEA,UAAG,CAAY,CAAC,cAAD,SAAf,EACE,MADF;AAGA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,mBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAEE,cAAW,CAAC,EAAE,KAAH,SAA2C,IAAL,CAAvB,EAAE,KAAK,gBAAgB,GAAE,CAAF,CAA5B,IAAwD,CAAlB,EAAE,KAAK,WAAW,KAAG,2CAAH,CAA7E,EACE,eAAc,EAAE,KAAK,gBAAgB,GAAE,CAAvC,CADF;AAGA,cAAG,EAAE,KAAM,KAAE,cAAS,gBAAtB,EACE,eAAc,gBAAW,GAAE,cAAS,YAApC,CADF;SAGF,UATK,IASL;OAZJ;AAPiD;AAlJe;AAGhE;AAEA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,mBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAEE,cAAY,EAAE,KAAH,QAAX,EACE,yBAAwB,EAAE,KAAK,0BAA/B,CADF;SAGF,UANK,IAML;OATJ;AALgE;AAqCF;AAG9D;AAEA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,mBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAEE,cAAY,EAAE,KAAH,QAAX,EACE,uBAAsB,EAAE,KAAK,wBAA7B,CADF;SAGF,UANK,IAML;OATJ;AAL8D;AApRH;AAG3D;AAEA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,mBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAEE,cAAY,EAAE,KAAH,QAAX,EACE,yBAAwB,EAAE,KAAK,qBAA/B,CADF;SAGF,UANK,IAML;OATJ;AAL2D;AAmBF;AAEzD;AAEA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,mBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAEE,cAAY,EAAE,KAAH,QAAX,EACE,uBAAsB,EAAE,KAAK,mBAA7B,CADF;SAGF,UANK,IAML;OATJ;AAJyD;AAwTR;AAEjD;AAEA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,mBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAEE,cAAY,EAAE,KAAH,QAAX,EACE,eAAc,EAAE,KAAK,WAArB,CADF;SAGF,UANK,IAML,wDAAc,eAAc,wBAAkB,QAAC,EAAI,OAArC,CAAd;OATJ;AAJiD;AA9QQ;AAEzD;AAEA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,mBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAEE,cAAY,EAAE,KAAH,QAAX,EACE,uBAAsB,EAAE,KAAK,mBAA7B,CADF;SAGF,UANK,IAML;OATJ;AAJyD;AA7HA;AAIzD;AAEA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,mBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAEE,cAAY,EAAE,KAAH,QAAX,EACE,uBAAsB,EAAE,KAAK,mBAA7B,CADF;SAGF,UANK,IAML;OATJ;AANyD;AA8RP;AAElD;AAEA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,mBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAEE,cAAY,EAAE,KAAH,QAAX,EACE,gBAAe,EAAE,KAAK,YAAtB,CADF;SAFF;OAJJ;AAJkD;AA/IQ;AAE1D;AAEA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,mBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAEE,cAAY,EAAE,KAAH,QAAX,EACE,wBAAuB,EAAE,KAAK,oBAA9B,CADF;SAGF,UANK,IAML;OATJ;AAJ0D;AA3HA;AAG1D;AAEA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,mBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAEE,cAAY,EAAE,KAAH,QAAX,EACE,wBAAuB,EAAE,KAAK,oBAA9B,CADF;SAGF,UANK,IAML;OATJ;AAL0D;AA6dZ;AAE9C;AAEA,UAAc,CAAV,KAAK,KAAK,IAAG,CAAH,CAAM,IAAe,CAAV,KAAK,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAAnC;AAEE,mBAAM,iBAAY,SAAC,KAAK,KAAN,CAAlB;AACO,mBAAF,EAAE;AACL,YADK,IACL;AAEE,cAAY,EAAE,KAAH,QAAX,EACE,aAAY,EAAE,KAAK,SAAnB,CADF;SAGF,UANK,IAML;OATJ;AAJ8C;AA9oCE;AAGhD,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,mBAAc,CAAC,KAAD,CAArB,CADhB;AAGA,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,IAAD,CADxB;AANgD;AAkCE;AAGlD,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,mBAAc,CAAC,KAAD,CAArB,CADlB;AAGA,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,IAAD,CADxB;AANkD;AAgpCK;AAGvD,UAAY,8BAAD,QAAX,EACE,8BAAwB,CAAC,KAAM,OAAP,CAD1B;AAHuD;AA5oBV;AAG7C,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,UAAP,CADhB;AAH6C;AAhbW;AAIxD;AACA;AAEA,UAAY,+BAAD,QAAX;AAEE,YAAa;AACb,aAAoC;AACpC,uCAAyB,CAAC,KAAM,UAAW,+CAAO,WAAY,GAAI,YAAzC;OAJ3B;AAPwD;AAvJD;AAIvD;AACA;AAEA,UAAY,8BAAD,QAAX;AAEE,YAAa;AACb,aAAoC;AACpC,sCAAwB,CAAC,KAAM,UAAW,+CAAO,WAAY,EAArC;OAJ1B;AAPuD;AA+GR;AAI/C,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,UAAW,+CAAO,mBAAc,CAAC,KAAD,EAAS,OAAQ,YAAxD,CADlB;AAJ+C;AAtJD;AAG9C,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,UAAW,+CAAO,mBAAc,CAAC,KAAD,CAAvC,CADjB;AAH8C;AAg1CF;AAE5C,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,OAAQ,OAAQ,cAAvB,CADf;AAF4C;AA5lCI;AAGhD,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,WAAY,WAAY,cAA/B,CADnB;AAHgD;AA9DG;AAInD,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,UAAW,+CAAO,mBAAc,CAAC,KAAD,EAAS,MAAO,MAAvD,CADtB;AAJmD;AA/JD;AAIlD,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,UAAW,+CAAO,mBAAc,CAAC,KAAD,EAAS,KAAhD,CADrB;AAJkD;AAuJE;AAIpD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,UAAW,+CAAO,mBAAc,CAAC,KAAD,EAAS,OAAQ,MAAxD,CADvB;AAJoD;AA/ID;AAInD,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,UAAW,+CAAO,mBAAc,CAAC,KAAD,EAAS,MAAhD,CADtB;AAJmD;AAuIA;AAInD,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,UAAW,+CAAO,mBAAc,CAAC,KAAD,EAAS,MAAO,MAAvD,CADtB;AAJmD;AAvJD;AAIlD,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,UAAW,+CAAO,mBAAc,CAAC,KAAD,EAAS,KAAhD,CADrB;AAJkD;AA+IE;AAIpD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,UAAW,+CAAO,mBAAc,CAAC,KAAD,EAAS,OAAQ,MAAxD,CADvB;AAJoD;AAvJD;AAInD,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,UAAW,+CAAO,mBAAc,CAAC,KAAD,EAAS,MAAhD,CADtB;AAJmD;AA0vCH;AAGhD,UAAY,uBAAD,QAAX;AACE,+BAAiB,CAAC,KAAM,mBAAc,CAAC,KAAD,EAAS,OAA9B;AACd,gBAAG,iBAAW,eAAC,EAAf,EACH,sCAAY,QAAQ,CAAC,OAAD,CADjB;AAL2C;AAgEK;AAGrD,UAAY,4BAAD,QAAX;AACE,oCAAsB,CAAC,KAAM,mBAAc,CAAC,KAAD,EAAS,OAA9B;AACnB,gBAAG,iBAAW,eAAC,EAAf,EACH,sCAAY,QAAQ,CAAC,OAAD,CADjB;AALgD;AAvDX;AAG1C;AAEA,WAAM,mBAAc,CAAC,KAAD;AAEpB,UAAW,CAAC,EAAD,SAA4D,IAAvB,CAA3B,iBAAW,gBAAgB,KAAE,uDAAF,CAAhC,IAA2D,CAAI,cAA/E,EACE,EAAE,oBADJ;AAGA,UAAW,CAAC,EAAD,SAAK,IAAI,cAApB;AAEE,YAAG,EAAE,SAAL;AAEE,YAAE,WAAC,CAAW,KAAX;AACH,wBAAS,oBAAoB,CAAC,KAAD;;AAI7B,YAAE,WAAC,CAAW,IAAX;AACH,wBAAS,kBAAkB,CAAC,KAAD;;AAG7B;OAbF;AAgBA,UAAY,iBAAD,QAAX,EACE,iBAAW,CAAC,KAAM,mBAAc,CAAC,KAAD,CAArB,CADb;AAIA,UAAW,CAAC,YAAD,SAA0E,IAAlD,wDAAH,eAAP,YAAO,CAAZ,IAAkD,CAAC,YAAM,OAAP,SAAZ,IAAgD,sDAAH,eAAb,YAAM,OAAO,CAAvG;AAGE,YAAY,EAAD,QAAX;AACgB,iBAAb,YAAM,QAAU,sDAAH,CAAwB,gBAAgB,CAAC,EAAE,SAAC,EAAJ;AAEtD,cAAc,OAAb,YAAM,QAAU,sDAAH,CAAwB;OAN1C;AA9B0C;AAgDK;AAG/C,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,mBAAc,CAAC,KAAD,CAArB,CADlB;AAH+C;AAPA;AAG/C,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,mBAAc,CAAC,KAAD,CAArB,CADlB;AAH+C;AA0CF;AAG7C,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,mBAAc,CAAC,KAAD,CAArB,CADhB;AAH6C;AAgFL;AAExC,UAAY,eAAD,QAAX,EACE,eAAS,CAAC,KAAM,SAAP,CADX;AAFwC;AAtyCa;AAGrD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,OAAP,CADxB;AAHqD;AAPC;AAGtD,UAAY,6BAAD,QAAX,EACE,6BAAuB,CAAC,KAAM,QAAP,CADzB;AAHsD;AAiGG;AAGzD,UAAY,gCAAD,QAAX,EACE,gCAA0B,CAAC,KAAM,SAAP,CAD5B;AAHyD;AA/OL;AAEpD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,IAAD,CADvB;AAFoD;AANC;AAErD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,IAAD,CADxB;AAFqD;AAgFG;AAExD,UAAY,+BAAD,QAAX,EACE,+BAAyB,CAAC,IAAD,CAD3B;AAFwD;AA4KN;AAElD,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,UAAW,QAAS,WAA3B,CADrB;AAFkD;AAtKD;AAEjD,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,UAAW,OAAlB,CADpB;AAFiD;AA2IF;AAE/C,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,UAAW,QAAS,QAA3B,CADlB;AAF+C;AAvJD;AAE9C,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,UAAW,OAAlB,CADjB;AAF8C;AA7LE;;AAmhBD;AAG/C,iBAAoC,CAAzB,iBAAW,gBAAC,EAAa,KAAG,0CAAH,CAAmD,IAAvB,wDAAH,eAAP,MAAO,CAAZ,IAAkD,CAAS,OAAP,OAAU,wDAAH,CAAyB,UAAlC,SAAnG;AACA,iBAAU,YAAO,IAAI,oCAAU,CAAC,oBAAc,KAAf,CAA/B;AACA,uBAAa;AALkC;AAvGA;AAG/C;AAAI;AAAO;AAAI;AAAK;AACpB;AACA;AACA;AAEA,UAAG,cACD,IADuB,CAAC,MAAD,SAAZ,IAAoC,wDAAH,eAAP,MAAO,CAAZ,IAAuF,2BAAH,eAAjC,OAAP,OAAU,wDAAH,CAAyB,QAAQ,CAA9C,IACL,CAAlC,MAAO,aAAY,cAAe,KAAG,sEAAH,CADnE;AAGE,gBAAiB,OAAP,OAAU,wDAAH,CAAyB;AAC1C,YAAY,KAAD,QAAX;AAEE,kBAA4C,OAAP,OAAU,wDAAH,CAAyB,QAAQ,eAAe,CAAC,KAAD;AAC5F,eAAM,aAAQ,CAAC,KAAK,GAAI,KAAK,EAAf;AACd,cAAO,CAAH,EAAG,KAAG,KAAH,CAA8B,IAAR,CAAC,KAAD,SAAZ,IAAwB,oCAAU,CAAC,oBAAc,KAAf,CAAnD;AAEE,gBAAK;AACL,gBAAY,EAAD,QAAX;AACE,mCAAgB,CAAC,MAAO,GAAI;;;;kBAAZ;;AAGZ,iCAAJ,IAAG;AACH,qBAAQ,WAAK;AACT,iCAAJ,IAAG;AACH,mCAAgB,CAAC,MAAO,KAAM;;;;kBAAd;AAChB,kBAAK,eAAL,IAAK;;AAGP,gBAAG,CAAH;AAEE,oBAAO;AACP;AACA,mBAAyC,OAAP,OAAU,wDAAH,CAAyB;AAClE,gBAAE;AACF,kBAAY,EAAD,QAAX;AAEqB,2BAAd,EAAE,aAAY,gBAAC;AAClB,oBADiB,IACjB;AAEE,sBAAW,OAAP,OAAU,wDAAH,CAAyB,QAAQ,KAAE,IAA9C;AAEE,qCAAY,CAAC,MAAO,EAAR;AACZ,yBAAK,SAAC,CAAS,EAAE,SAAC,EAAZ;AACN,0BAAO;;AAIP,yBAAM,WAAK;AACX,oCAAW,CAAC,GAAI,MAAO,EAAZ;AACX,sBAAE,eAAe,CAAC,KAAD;AACjB,sBAAE,OAAO,CAAC,KAAD;AACT,sBAAE,SAAC,CAAS,EAAE,SAAC,EAAZ;AACH,sBAAE,OAAM,OAAO,CAAC,KAAK,SAAC,EAAP;AACf,sBAAE,aAAC,CAAa,EAAE,aAAC,EAAhB;AACH,0BAAO;AACP,4BAAS;;iBAGb,UAtBiB,IAsBjB;AAEE,uBAAM,WAAK;AACX,kCAAW,CAAC,GAAI,MAAO,EAAZ;AACX,oBAAE,OAAO,CAAC,KAAD;AACT,oBAAE,SAAC,CAAS,EAAE,SAAC,EAAZ;AACH,wBAAO;iBANT;;AAYF,qBAAM,WAAK;AACX,gCAAW,CAAC,GAAI,MAAO,IAAZ;AACX,kBAAE,OAAO,CAAC,KAAD;AACU,4BAAd,EAAE,aAAY,gBAAC;AAClB,oBADiB,KACjB;AAEE,oBAAE,eAAe,CAAC,KAAD;AACjB,oBAAE,UAAS,wBAAwB,CAAC,EAAE,oBAAoB,CAAC,KAAK,SAAC,EAAP,CAAvB;AACnC,oBAAE,OAAM,OAAO,CAAC,KAAK,SAAC,EAAP;AACf,oBAAE,aAAC,CAAa,EAAE,aAAC,EAAhB;AACH,0BAAS;iBANX;AASF,sBAAO;;AAED,qBAAP,OAAU,wDAAH,CAAyB,UAAjC,GAA8C;AAC9C,kBAAY,GAAD,QAAX;AAEE,yCAAqB,GAAG,SAAC;AACf,uCAAD,sBAAC,0BAAoB,CAArB;AACT,uCAAkB,CAAC,CAAD,CAAlB,GAAyB,GAAG,SAAC;eAJ/B;AAMA,gBAAE;AACF;AACA,kCAAe,CAAC,MAAO,GAAR;aAlEjB;WAdF;SAJF;OAJF;AAR+C;AAspCJ;;AARD;;AAIG;;AA9hCC;AAG9C;AAAI;AACJ;AAEA,UAAG,CAAY,CAAC,SAAD,SAAY,IAAG,CAAY,CAAC,OAAD,SAA1C,EACE,MADF;AAGA,UAAK;AACL,WAAM,mBAAc,CAAC,SAAD;AACpB,YAAO,mBAAc,CAAC,OAAD;AACrB,8BAAmB,CAAC,GAAI,IAAK;;;;UAAV;AACnB,UAAG,CAAH;AAEE;AACA,UAAE,SAAC,CAAS,GAAG,SAAC,EAAb;AACH;AACA,+BAAkB,CAAC,GAAI,GAAL;OALpB;AAb8C;AAzHE;AAEhD,0BAAe,CAAC,iBAAW,iBAAC,EAAc,KAAE,+CAA7B;AAFiC;AA+ID;AAE/C,yBAAc,CAAC,iBAAW,iBAAC,EAAc,KAAE,+CAA7B;AAFiC;AAq7BI;AAEnD;AAFmD;AA7kCR;AAG3C;AAEA,UAAa;AACb,iBAAK,OAAK,CAAC,iBAAW,WAAC,EAAQ,IAAG,cAAC,oDAAD,CAAH,CAA4D,CAAjF;AANiC;AAi9BJ;AAEvC,qBAAU,CAAC,cAAe,iBAAW,QAAO,iBAAC,GAAe,iBAAW,QAAO,cAAC,EAArE;AAF6B;AAioDiB;AAExD;AAEA,UAAW,CAAC,yBAAD,SAAuB,IAAY,CAAC,cAAD,SAA9C;AAEE,kBAAK,cAAS,iBAAd;AACA,+CAAa,CAAC,EAAG,CAAC,EAAG,CAAC,CAAT;AACb,kBAAK,+BAAK,CAAC,CAAC,KAAM,GAAE,yBAAF,CAAwB,CAAC,KAAM,CAAC,MAAO,GAAE,yBAAF,CAAwB,CAAC,OAAxE,CAAV;AACA,iCAAoB,UAAU,CAAC,UAAK,CAAC,CAAC,KAAF,EAAU,UAAK,CAAC,CAAC,IAAF,EAAS,UAAK,CAAE,CAAC,MAAO,GAAE,CAAC,KAAb,EAAsB,UAAK,CAAE,CAAC,OAAQ,GAAE,CAAC,IAAd,CAA9D;OALhC;AAJwD;AApvEN;AAElD,UAAY,yBAAD,QAAX;AACE,iCAAmB,CAAC,KAAM,OAAP;AAChB,gBAAG,iBAAW,eAAC,EAAf,EACH,sCAAY,QAAQ,CAAC,OAAD,CADjB;AAJ6C;AAtWA;AAElD,UAAY,yBAAD,QAAX;AACE,iCAAmB,CAAC,KAAM,OAAP;AAChB,gBAAG,iBAAW,eAAC,EAAf,EACH,sCAAY,QAAQ,CAAC,OAAD,CADjB;AAJ6C;AA+nCK;AAEvD,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,kBAAO,kCAAU,OAAxB,CADlB;AAFuD;AAMF;AAErD,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,kBAAO,kCAAU,OAAxB,CADhB;AAFqD;AAML;AAEhD,UAAY,eAAD,QAAX,EACE,eAAS,CAAC,KAAM,IAAK,iBAAZ,CADX;AAFgD;AAMF;AAE9C,UAAY,aAAD,QAAX,EACE,aAAO,CAAC,KAAM,IAAK,iBAAZ,CADT;AAF8C;AAMG;AAEjD,UAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,KAAM,KAAP,CADZ;AAFiD;AAgwDH;AAAhB;AAE9B,eAAU;AAEV,UAAG,mBAAU,IAAG,CAAhB,EACE,SAAU,WAAK,WAAC,mBAAD,CAAW,MAD5B;AAJ8B;AAAgB;AAmFC;AAE/C,UAAe,CAAX,UAAW,IAAG,CAAH,CAAM,IAAgB,CAAX,UAAW,IAAe,CAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,CAAf,CAArC,EACE,kBAAa,UAAb,CADF;AAF+C;AA5BI;AAArB;AAE9B,eAAU;AAFoB;AAAqB;AAKI;AAAzB;AAE9B,UAAY,cAAD,QAAX;AACE,iBAA8B,cAAU,cAAa,SAAC;AAEtD,qBAAU;AALkB;AAAyB;AA5CP;AAAlB;AAE9B,eAAU,WAAK,SAAC;AAFc;AAAkB;AAKC;AAAnB;AAE9B,eAAU,oBAAc,eAAC;AAFK;AAAmB;AAoEC;AAElD,0BAAc,eAAC,CAAe,MAAf;AAFmC;AA/DF;AAAlB;AAE9B,eAAU;AAFoB;AAAkB;AAoEC;;AAvDQ;AAA3B;AAE9B,UAAG,UAAW,GAAc,CAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,CAA5B;AACE,iBAAU,UAAW,GAAE,CAAF;AAErB,qBAAU;AALkB;AAA2B;AAQI;AAA/B;AAE9B,UAAG,UAAW,GAAE,CAAhB;AACE,iBAAU,UAAW,GAAE,CAAF;AAErB,qBAAU;AALkB;AAA+B;AAvCH;AAA5B;AAE9B,UAAG,WAAK,SAAC,EAAM,GAAE,CAAjB;AACE,iBAAU;AAEV,qBAAU,CAAC;AALiB;AAA4B;AAuBD;AAA3B;AAE9B,UAAG,WAAK,SAAC,EAAM,GAAE,CAAjB;AACE,iBAAU,WAAK,SAAC,EAAM,GAAE,CAAF;AAEtB,qBAAU,CAAC;AALiB;AAA2B;AA+CT;AAEhD;AAFgD;AAnFA;AAEhD;AAFgD;AAyEF;AAAhB;AAE9B;AAEA,WAAM,eAAU,CAAC,cAAe,eApnIqE,KAonIrF;AAEhB,YAAM,UAAN,GAAoB,EAAE,SAAC;AACvB,YAAM,SAAN,GAAmB,EAAE;AAPS;AAAgB;AA9cP;AAEvC;AAEA;AAEA,sBAAU,YAAY,CAAC,YAAM,QAAC,GAAM,QAAd;AACtB,sBAAU,YAAY,CAAC,YAAM,QAAC,GAAM,QAAd;AAEtB,sBAAU,YAAY,CAAC,oBAAc,QAAC,GAAM,QAAtB;AACtB,sBAAU,YAAY,CAAC,oBAAc,gBAAgB,QAA/B;AAEtB,sBAAU,YAAY,CAAC,eAAS,OAAO,QAAjB;AACtB,sBAAU,YAAY,CAAC,eAAS,eAAe,QAAzB;AAEtB,UAAG,QAAS,KAAE,0EAAd;AAEE,iBAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,qBAAK,WAAC,CAAD,CAAG,aAAC,CAAa,gBAAU,OAAvB;AACT,qBAAK,WAAC,CAAD,CAAG,sBAAC,CAAsB,gBAAU,OAAhC;AACT,qBAAK,WAAC,CAAD,CAAG,qBAAC,CAAqB,gBAAU,OAA/B;AACT,qBAAK,WAAC,CAAD,CAAG,oBAAR,GAAgC,gBAAU;;OAP9C;AAWA;AA1BuC;AArnGA;AAEvC;AACA,wBAAc;AACd,mBAAS,yBAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,gBAAK,WAAL,GAAoB;AACpB,gBAAK,UAAL,GAAmB;AAMnB,yBAAe,gDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,sBAAW,SAAX,GAAuB;AACvB,sBAAW,QAAX,GAAsB;AACtB,sBAAW,SAAC,CAAS,EAAT;AACZ,sBAAW,YAAW,aAAC,CAAa,IAAb;AAEvB,yBAAe,gDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,sBAAW,SAAX,GAAuB;AACvB,sBAAW,QAAX,GAAsB;AACtB,sBAAW,SAAC,CAAS,EAAT;AACZ,sBAAW,YAAW,aAAC,CAAa,IAAb;AAEvB,2BAAiB,gDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,wBAAa,SAAb,GAAyB;AACzB,wBAAa,QAAb,GAAwB;AACxB,wBAAa,SAAC,CAAS,EAAT;AACd,wBAAa,YAAW,aAAC,CAAa,IAAb;AACzB,wBAAa,SAAQ,wBAAsB,CAAC,2BAAuB,sCAAW,GAAnC;AAC3C,wBAAa,iBAAC,CAAiB,IAAjB;AAEd,yBAAe,gDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,sBAAW,SAAX,GAAuB;AACvB,sBAAW,QAAX,GAAsB;AACtB,sBAAW,SAAC,CAAS,EAAT;AACZ,sBAAW,YAAW,aAAC,CAAa,IAAb;AAEvB,sBAAW,QAAC,CAAQ,MAAR;AACZ,sBAAW,QAAC,CAAQ,MAAR;AACZ,sBAAW,QAAC,CAAQ,MAAR;AAEZ,iCAAuB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,8BAAmB,SAAnB,GAA+B;AAC/B,8BAAmB,WAAC,CAAW,KAAX;AACpB,8BAAmB,YAAC,CAAY,CAAZ;AAEpB,0BAAgB,gCAA2B,QAAC;AAC5C,2BAAiB,gCAA2B,QAAC;AAC7C,mCAAyB,yCAAoC,QAAC;AAC9D,oBAAU;AACV,wBAAc,8BAAyB,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,qBAAW,2BAAsB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,yBAAe,+BAA0B,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,0BAAgB,gCAA2B,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,2BAAiB;AACjB,yBAAe;AAEf,yBAAe,mCAA8B,QAAC;AAE9C,uBAAa;AAEb,oBAAS,YAAT,GAAwB;AAExB,oBAAS,SAAT,GAAqB;AACrB,oBAAS,wBAAC,CAAwB,IAAxB;AACV,oBAAS,WAAT,GAAwB;AACxB,oBAAS,QAAT,GAAoB;AACpB,oBAAS,UAAC,CAAU,IAAV;AACV,oBAAS,SAAQ;AACjB,qBAAW,cAAS,SAAQ;AAC5B,oBAAS;AACT,oBAAS,mBAAkB,WAAC,CAAW,cAAC,uEAAQ,yEAAT,CAAX;AAC5B,oBAAS,mBAAkB,WAAC,CAAW,EAAX;AAC5B,oBAAS,mBAAkB,cAAC,CAAc,EAAd;AAC5B,oBAAS,qBAAC,CAAqB,IAArB;AACV,oBAAS,4BAAC,CAA4B,KAA5B;AACV,oBAAS,iBAAgB,QAAO,QAAC,CAAQ,oEAAR;AACjC,oBAAS,iBAAgB,gBAAC,CAAgB,CAAC,CAAjB;AAC1B,oBAAS,iBAAgB,eAAC,CAAe,CAAf;AAC1B,oBAAS,iBAAgB,aAAC,CAAa,KAAb;AAC1B,oBAAS,iBAAgB,eAAC,CAAe,CAAf;AAC1B,oBAAS,iBAAgB,gBAAC,CAAgB,CAAhB;AAC1B,oBAAS,iBAAgB,iBAAC,CAAiB,0EAAjB;AAC1B,oBAAS,iBAAgB,aAAC,CAAa,IAAb;AAC1B,oBAAS,iBAAgB,cAAa,SAAC,CAAS,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAA1B;AACvC,oBAAS,iBAAgB,gBAAe,SAAC,CAAS,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAA1B;AACzC,oBAAS,iBAAgB,QAAO,SAAC,CAAS,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAA1B;AAEjC,qBAAW,2BAAsB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,qBAAW,2BAAsB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,qBAAW,2BAAsB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,6BAAmB,mCAA8B,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,iCAAuB,uCAAkC,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1D,mCAAyB,yCAAoC,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9D,8BAAoB,oCAA+B,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,0BAAgB,yBAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,0BAAgB,gCAA2B,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,wBAAc,8BAAyB,QAAC,YAAM,CAAC,IAAD,CAAN;AAExC,yBAAe,6DAA2B,QAAC,YAAM,CAAC,IAAD,CAAN;AAE3C,oBAAS,gBAAT,GAA4B;AAC5B,oBAAS,iBAAT,GAA6B;AAC7B,oBAAS,yBAAT,GAAqC;AACrC,oBAAS,gCAAT,GAA4C;AAC5C,oBAAS,8BAAT,GAA0C;AAC1C,oBAAS,qBAAT,GAAiC;AACjC,oBAAS,oBAAT,GAAgC;AAChC,oBAAS,iBAAT,GAA6B;AAC7B,oBAAS,oBAAT,GAAgC;AAChC,oBAAS,oBAAT,GAAgC;AAChC,oBAAS,kBAAT,GAA8B;AAC9B,oBAAS,iBAAT,GAA6B;AAC7B,oBAAS,eAAT,GAA2B;AAC3B,oBAAS,mBAAT,GAA+B;AAC/B,oBAAS,uBAAT,GAAmC;AACnC,oBAAS,wBAAT,GAAoC;AACpC,oBAAS,4BAAT,GAAwC;AACxC,oBAAS,iBAAT,GAA6B;AAC7B,oBAAS,oBAAT,GAAgC;AAChC,oBAAS,oBAAT,GAAgC;AAChC,oBAAS,qBAAT,GAAiC;AACjC,oBAAS,kBAAT,GAA8B;AAC9B,oBAAS,4BAAT,GAAwC;AACxC,oBAAS,4BAAT,GAAwC;AACxC,oBAAS,6BAAT,GAAyC;AACzC,oBAAS,6BAAT,GAAyC;AACzC,oBAAS,eAAT,GAA2B;AAC3B,oBAAS,gBAAT,GAA4B;AAC5B,oBAAS,mBAAT,GAAoC;AACpC,oBAAS,8BAAT,GAA0C;AAC1C,oBAAS,4BAAT,GAAwC;AACxC,oBAAS,mCAAT,GAA+C;AAC/C,oBAAS,iCAAT,GAA6C;AAC7C,oBAAS,iBAAT,GAA6B;AAC7B,oBAAS,mBAAT,GAA+B;AAC/B,oBAAS,qBAAT,GAAiC;AACjC,oBAAS,0BAAT,GAAsC;AACtC,oBAAS,gBAAT,GAA4B;AAC5B,oBAAS,kBAAT,GAA8B;AAC9B,oBAAS,iBAAT,GAA6B;AAC7B,oBAAS,qBAAT,GAAiC;AACjC,oBAAS,sBAAT,GAAkC;AAClC,oBAAS,sBAAT,GAAkC;AAClC,oBAAS,uBAAT,GAAmC;AACnC,oBAAS,sBAAT,GAAkC;AAClC,oBAAS,qBAAT,GAAiC;AACjC,oBAAS,uBAAT,GAAmC;AACnC,oBAAS,sBAAT,GAAkC;AAClC,oBAAS,mBAAT,GAA+B;AAC/B,oBAAS,wBAAT,GAAqC;AACrC,oBAAS,2BAAT,GAAuC;AACvC,oBAAS,0BAAT,GAAsC;AACtC,oBAAS,aAAT,GAAyB;AACzB,oBAAS,kBAAT,GAA8B;AAC9B,oBAAS,kBAAT,GAA8B;AAC9B,oBAAS,gBAAT,GAA4B;AAC5B,oBAAS,WAAT,GAAuB;AACvB,oBAAS,wBAAT,GAAoC;AACpC,oBAAS,yBAAT,GAAqC;AACrC,oBAAS,4BAAT,GAAwC;AACxC,oBAAS,uBAAT,GAAmC;AACnC,oBAAS,wBAAT,GAAoC;AACpC,oBAAS,2BAAT,GAAuC;AACvC,oBAAS,qBAAT,GAAkC;AAClC,oBAAS,qBAAT,GAAkC;AAOlC,oBAAS,kBAAT,GAA8B;AAC9B,oBAAS,gBAAT,GAA4B;AAC5B,oBAAS,WAAT,GAAwB;AACxB,oBAAS,SAAT,GAAsB;AACtB,oBAAS,YAAT,GAAwB;AAGJ,oBAAU,iBAA9B,GAAkD;AAC9B,oBAAU,kBAA9B,GAAmD;AAC/B,oBAAU,kBAA9B,GAAmD;AAC/B,oBAAU,yBAA9B,GAA0D;AACtC,oBAAU,wBAA9B,GAAyD;AACrC,oBAAU,4BAA9B,GAA6D;AACzC,oBAAU,oBAA9B,GAAqD;AACjC,oBAAU,gBAA9B,GAAiD;AAEjD,4BAAiB,CAAC,cAAD;AAEjB,oBAAS,GAAT;AACA,qBAAU,GAAV;AACA,UAAG,mBAAH;AAEE,wBAAM,SAAC,CAAS,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAA1B;AACP;OAHF;AAjM4D;AAArB;AAmOA;AAEvC,6BAAU,CAAC;;;;UAAD;AACE,eAAZ,KAAY;AAEA,eAAZ,KAAY;AACE,eAAd,KAAc;AACR,eAAN,KAAM;AACM,eAAZ,KAAY;AACA,eAAZ,KAAY;AAEQ,eAApB,KAAoB;AACP,eAAb,KAAa;AACD,eAAZ,KAAY;AACJ,eAAR,KAAQ;AACG,eAAX,KAAW;AACC,eAAZ,KAAY;AACC,eAAb,KAAa;AACC,eAAd,KAAc;AACQ,eAAtB,KAAsB;AACd,eAAR,KAAQ;AACG,eAAX,KAAW;AACH,eAAR,KAAQ;AACA,eAAR,KAAQ;AACK,eAAb,KAAa;AACA,eAAb,KAAa;AACN,eAAP,KAAO;AACG,eAAV,KAAU;AACM,eAAhB,KAAgB;AACI,eAApB,KAAoB;AACH,eAAjB,KAAiB;AACK,eAAtB,KAAsB;AACtB;AAhCuC;AAqjDJ;AAEnC;AACA,UAAG,CAAI,eAAP;AAEE,0BAAc;AACd;OAHF;AAHmC;AAUU;AAG7C,eAAS,MAAK,OAAO,CAAC,cAAD;AACrB,eAAS,MAAK,SAAC,CAAS,WAAT;AACf,eAAS,QAAO,OAAO,CAAC,gBAAD;AACvB,eAAS,gBAAc,CAAC,+CzB9lHuE,6EyB8lHxE;AANsB;AA7kER;AAErC,UAAc,2BAAH,eAAP,MAAO,CAAX;AAEE,sBAAS,OAAO,CAAS,OAAP,OAAU,2BAAH,CAA0B,UAAnC;AAChB,mBAAM,OAAO,CAAS,OAAP,OAAU,2BAAH,CAA0B,OAAnC;AACb,4BAAe,OAAO,CAAS,OAAP,OAAU,2BAAH,CAA0B,gBAAnC;AACtB,gCAAmB,OAAO,CAAS,OAAP,OAAU,2BAAH,CAA0B,oBAAnC;AAC1B,6BAAyB,OAAP,OAAU,2BAAH,CAA0B;AACnD,oBAAO,OAAO,CAAS,OAAP,OAAU,2BAAH,CAA0B,QAAnC;AACd,oBAAO,OAAO,CAAS,OAAP,OAAU,2BAAH,CAA0B,QAAnC;AACd,oBAAO,OAAO,CAAS,OAAP,OAAU,2BAAH,CAA0B,QAAnC;AACd,yBAAY,OAAO,CAAS,OAAP,OAAU,2BAAH,CAA0B,aAAnC;AACnB,yBAAY,OAAO,CAAS,OAAP,OAAU,2BAAH,CAA0B,aAAnC;AACnB,oBAAO,OAAO,CAAS,OAAP,OAAU,2BAAH,CAA0B,QAAnC;AACd,uBAAU,OAAO,CAAS,OAAP,OAAU,2BAAH,CAA0B,WAAnC;OAbnB;AAFqC;AAm3FI;AAAX;AAG9B;AACA;AACA;AAEA,eAAU;AACV,eAAS,QAAY,OAAP,YAAO,SAAC,IAAD,gBAArB;AAAI;AAEgB,oBAAb,YAAO,UAAM,CAAC,CAAE,GAAE,CAAL;AAEhB,YAAK,KAAK,oBAAC;AACX,YAAK,iBAAI,CAAC,CAAD;AAET,YAAG,aAAO,KAAG,EAAb,EACE,IAAG,cAAG,CAAC,cAAO,CAAR,CAAW,KAAE,CAAnB,EACE,iBAAM,CAAC;;;;aAAE,EAAS,YAAO,UAAM,CAAC,CAAE,GAAE,CAAL,CAAO,QAArB,OAAX,CAFV;AAIA,YAAG,aAAO,KAAG,EAAb,EACE,IAAG,cAAG,CAAC,cAAO,CAAR,CAAW,KAAgB,CAAZ,CAAF,CAAE,GAAS,CAAD,OAAR,CAAY,GAAS,aAAD,OAAR,CAAjC,EACE,iBAAM,CAAC;;;;aAAI,CAAF,CAAE,GAAS,CAAD,OAAR,CAAY,GAAS,aAAD,OAAR,CAAwB,CAAD,OAAxC,CAFV;AAIA,eAAQ;AACR;AACE,cAAG,YAAO,UAAM,CAAC,CAAE,GAAE,CAAL,CAAO,WAAW,KAAG,EAArC,EACE,OAAQ,sCAAY,WAAW,CAAC,iBAAU,EAAE,oBAAb,CADjC;AADF;AAIE,iBAAQ;AAJV;AAOyB,mBAApB,YAAO,UAAM,CAAC,CAAE,GAAE,CAAL,CAAO;AACvB,YADuB,IACvB;AAEE,mBAAU;AACV,cAAG,CAAI,MAAP,EACE,KADF;SAGF,UAPuB,IAOvB;AAAU,mBAAU;AACpB,kBARuB,IAQvB;AAAS,mBAAU,MAAO,IAAI,IAAJ;AAC1B,kBATuB,IASvB;AAAS,mBAAU,MAAO,IAAG,IAAH;AAC1B,kBAVuB,IAUvB,mDAAS,SAAU,MAAO,GAAI,IAA9B;;AAzCwB;AAAW;AAh5FJ;AAAP;AAE9B,eAAU,WAAK;AACf,YAAM,QAAC,CAAQ,KAAR;AAHuB;AAAO;AA8sHU;AAAjB;AAG9B;AACA;AACA;AACA;AAEA,eAAU;AACV,UAAY,cAAD,QAAX;AAEE,YAAK,cAAS,SAAS,CAAC,EAAG,EZzyHuB,CYyyH3B;AACvB,YAAW,CAAC,CAAD,SAAqB,IAAN,CAAN,CAAC,KAAK,IAAG,CAAH,CAAX,IAA4B,CAAN,CAAC,KAAK,IAAe,CAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,CAAf,CAA3C;AAEE,eAAM,mBAAc,CAAC,CAAD;AACpB,cAAW,CAAC,EAAD,SAAK,IAAkB,CAAb,EAAE,WAAW,IAAG,iBAAW,yBAAd,CAAlC;AAEE,sBAAK,CAAC,YAAW,CAAC,CAAD,CAAjB;AACA,mDAAa,CAAC,EAAG,EAAG,CAAC,CAAR;AACb,gBAAK,EAAE;AACP,sBAAK,+BAAK,CAAC,CAAC,MAAO,CAAC,IAAK,GAA2B,CAAL,CAAlB,CAAC,OAAiB,GAAP,CAAC,IAAH,GAAW,CAAF,CAAK,GAAE,CAAF,CAA3B,CAAgC,CAAC,OAAQ,CAAC,IAAoC,GAAJ,CAAL,CAAlB,CAAC,OAAiB,GAAP,CAAC,IAAH,GAAW,CAAF,CAAK,GAAE,CAAF,CAA3B,GAAiC,CAA/F,CAAV;AACA,gBAAG,oCAAU,CAAC,EAAG,gCAAM,CAAC,EAAG,CAAJ,CAAV,CAAb,EACE,SAAU,EADZ;WANF;SAHF;OAHF;AAT8B;AAAiB;AA4BH;AAAd;AAE9B;AACA;AACA;AAEA,eAAU;AACV,UAAY,cAAD,QAAX;AAEE,YAAK,cAAS,SAAS,CAAC,EAAG,EZn0HuB,CYm0H3B;AACvB,YAAW,CAAC,CAAD,SAAqB,IAAN,CAAN,CAAC,KAAK,IAAG,CAAH,CAAX,IAA4B,CAAN,CAAC,KAAK,IAAe,CAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,CAAf,CAA3C;AAEE,eAAM,mBAAc,CAAC,CAAD;AACpB,cAAY,EAAD,QAAX;AAEE,sBAAK,CAAC,aAAY,CAAC,CAAD,CAAlB;AACA,gBAAG,oCAAU,CAAC,EAAG,gCAAM,CAAC,EAAG,CAAJ,CAAV,CAAb,EACE,SAAU,EADZ;WAHF;SAHF;OAHF;AAP8B;AAAc;AAuBN;AAAR;AAE9B;AAEA,eAAU;AACV,UAAY,cAAD,QAAX;AAEE,YAAK,cAAS,SAAS,CAAC,EAAG,EZx1HuB,CYw1H3B;AACvB,YAAW,CAAC,CAAD,SAAqB,IAAN,CAAN,CAAC,KAAK,IAAG,CAAH,CAAX,IAA4B,CAAN,CAAC,KAAK,IAAsB,CAAnB,iBAAY,SAAC,EAAM,GAAE,CAAF,CAAtB,CAA3C,EACE,SAAU,mBAAc,CAAC,CAAD,CAD1B;OAHF;AAL8B;AAAQ;AAuBM;AAAd;AAG9B;AACA;AACA;AAAG;AACH;AACA;AACA;AAEA,eAAU;AAEV,UAAG,CAAY,CAAC,cAAD,SAAf,EACE,aADF;AAGA,UAAK,cAAS,SAAS,CAAC,EAAG,EAAG,cAAS,YAAhB;AAEvB,UAAG,CAAY,CAAC,CAAD,SAAI,IAAsB,CAAlB,mBAAc,CAAC,CAAD,CAAI,KAAG,cAAS,gBAAZ,CAAzC,EACE,aADF;AAGA,UAAG,iBAAW,SAAC,EAAM,GAAE,CAAvB;AAEE,mBAAM,CAAC,YAAW,CAAC,CAAD,CAAlB;AACA,aAAM,cAAS;AACf,YAAK,EAAG,GAAE,iBAAW,SAAC,EAAd;AAER,iBAAS,QAAuB,OAAlB,iBAAW,SAAC,EAAM,GAAE,CAAF,kBAAhC;AAAI;AAEF,eAAM,iBAAW,WAAC,CAAD;AACjB,oBAAK,+BAAK,CAAC,EAAE,MAAO,GAAI,CAAF,CAAE,GAAE,CAAF,CAAJ,CAAS,EAAE,KAAM,EAAE,MAAO,GAAI,CAAF,CAAE,GAAK,CAAF,CAAE,GAAE,CAAF,CAAL,CAAJ,CAAe,EAAE,OAArD,CAAV;AACA,cAAG,oCAAU,CAAC,EAAG,gCAAM,CAAC,EAAG,CAAJ,CAAV,CAAb;AAEE,qBAAU;AACV;WAHF;;OAVJ;AApB8B;AAAc;AAVD;AAAb;AAE9B;AAEA,eAAU,CAAE;AACZ,WAAM,aAAQ,CAAC,EAAG,CAAJ;AACd,UAAY,EAAD,QAAX,EACE,SAAU,EAAE,SAAC,EADf;AAN8B;AAAa;AA7kBI;AAAjB;AAE9B,eAAU;AACV,UAAY,cAAD,QAAX,EACE,SAAU,cAAS,2BADrB;AAH8B;AAAiB;AA1rBI;AAArB;AAE9B;AACA;AACA;AACA;AACA;AACA;AAEA,UAAG,0CAAgB,UAAU,CAAwB,uDAAxB,CAA7B;AAEE,YAAK,0CAAgB;AACrB,YAAI,cAAG,CAAC,aAAS,CAAV,CAAa,GAAE,CAAtB;AAEE,kBAAS,2BAAsB,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,cAAK,uBAAW,QAAC;AACjB;AACE,gBAAK,0BAAa,CAAC,EAAG,aAAS,GAAI,cAAC,4CAAD,CAAjB;AAClB,aAAC,WAAC,CAAQ,CAAR;AACF;AACE,uBAAS,QAAa,OAAR,CAAC,SAAC,EAAM,GAAE,CAAF,kBAAtB;AAAI;AAEF,0BAAW,CAAC,KAAC,CAAD;AACZ,wBAAS,KAAK,SA3wFW;AA4wFzB,qBAAK,eAAe,CAAC,OAAD;;AALxB;;AAHF;AAaE,2BAAU,OAAO,CAAC,KAAK,OAAN;AACjB,aAAE,eAAF,CAAE;AACF,iBAAM,eAAN,KAAM;AAfR;SAJF;OAHF;AA2BA,eAAU;AApCoB;AAAqB;AAsWX;AAAV;AAG9B;AACA;AACA;AACA;AAEA,eAAU;AACV,UAAK;AACL,UAAG,CAAI,cAAP,EACE,IAAK,sBAAS,CAAC,CAAD,CADhB;AAGA,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,aAAM,WAAK,WAAC,CAAD;AACX,YAAK,EAAE,oBAAC;AAER,YAAG,CAAI,cAAP,EACE,IAAK,sBAAS,CAAC,CAAD,CADhB;AAGA,YAAG,cAAG,CAAC,EAAG,CAAJ,CAAO,KAAE,CAAf;AAEE,mBAAU;AACV;SAHF;;AAOF,UAAW,CAAC,MAAD,SAAsC,IAAzB,qBAAgB,CAAC,MAAD,CAApB,IAAiC,WAArD;AAEE,uBAAU,CAAC,MAAM,SAAC,EAAR;AACV,yBAAY,CAAC,MAAM,SAAC,EAAR;OAHd;AA5B8B;AAAU;AA5KM;AAAhB;AAE9B,eAAU;AACV,UAAY,KAAD,QAAX;AAEE,iBAAU,KAAK;AACf,YAAG,CAA2F,CAAlE,cAAU,cAAa,QAAQ,CAAC,wBAAmB,CAAC,KAAK,SAAC,EAAP,CAApB,CAAmC,GAAE,CAAC,CAAH,CAA9F,EACE,SAAU,KADZ;OAHF;AAH8B;AAAgB;AAkTF;AAAd;AAE9B,eAAU;AACV,UAAW,CAAC,cAAD,SAAY,IAAyB,CAApB,YAAM,cAAc,KAAE,mDAAF,CAAhD,EACE,SAA8C,CAApC,cAAS,0BAA2B,GAAE,GAAF,CAAM,GAAE,GADxD;AAH8B;AAAc;AAr6EK;AAAnB;AAE9B,eAAmB,yBAAD;AAFY;AAAmB;AAlTJ;AAAf;AAE9B;AACA;AAEA,eAAU;AACV,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,YAAc,OAAT,WAAK,WAAC,CAAD,EAAO,yBAAH;AACd,YAAG,CAAC,SAAJ;AAEY,gBAAD,sBAAC,YAAc,WAAC,MAAD,CAAS,GAAE,CAA1B;AACT,gBAAM,CAAO,WAAC,MAAD,CAAS,GAAE,CAAlB,CAAN,GAA8B;SAHhC;;AAT4B;AAAe;AAu1EC;AAAhB;AAE9B;AACA;AAEA,eAAU;AACV,eAAS,QAAuB,OAAlB,wBAAkB,GAAE,CAAF,kBAAhC;AAAI;AAEF,YAAsB,OAAjB,eAAa,CAAC,CAAD,EAAO,yBAAH;AACZ,cAAD,sBAAC,YAAc,WAAC,MAAD,CAAS,GAAE,CAA1B;AACT,cAAM,CAAO,WAAC,MAAD,CAAS,GAAE,CAAlB,CAAN,GAA8B;;AAVF;AAAgB;AAyEN;AAAV;AAE9B,eAAU;AAFoB;AAAU;AA/8EK;AAE7C;AAF6C;AAqnFM;AAEnD,UAAG,eAAS,YAAZ;AACE,+BAAkB,CAAC,WAAD;;AAGlB,YAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,GAAI,WAAX,CADxB;;AANiD;AAXN;AAE7C,UAAG,eAAS,YAAZ;AACE,sCAAyB,CAAC,SAAD;;AAGzB,YAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,UAAW,CAAC,CAAnB,CADxB;;AAN2C;AAsLJ;AAEzC,UAAY,KAAD,QAAX,EACE,WAAK,OAAO,CAAC,KAAK,SAAC,EAAP,CADd;AAFyC;AAx0BO;AAEhD,UAAY,cAAD,QAAX,EACE,cAAS,gBAAT,GAA4B,KAD9B;AAFgD;AA7lDC;AAEjD,UAAY,cAAD,QAAX,EACE,cAAS,gBAAT,GAA4B,IAD9B;AAFiD;AAxjBP;AAE1C;AACA;AAEA;AACI,yBAAJ,IAAG;AACH,UAAY,cAAD,QAAX;AAEE,YAAY,sBAAD,QAAX;AACE,mCAAqB,sBAAY,SAAC;AAElC,uCAAqB,CAAC;AAExB,YAAK;AACK,+BAAD,sBAAC,0BAA0B,WAAC,CAAD,CAA3B;AACT,iBAAS,QAAe,OAAJ,WAAC,CAAD,CAAI,GAAE,CAAF,kBAAxB;AAAI;AAEF,cAAY,CAAC,CAAC,CAAD,CAAF,QAAX,EACE,uBAAkB,CAAC,CAAD,CAAlB,GAAyB,CAAC,CAAC,CAAD,CAAG,SAAC,EADhC;;AAIF,sBAAS;AACT,sBAAS;OAhBX;AAP0C;AA2pEF;AAExC;AACI,yBAAJ,IAAG;AACH,UAAG,mBAAa,KAAE,CAAlB,EACE,qBAxpFkD,MAupFpD;AAGA,UAAY,cAAD,QAAX,EACE,cAAS,YADX;AAGA,qBAAU,CAAC,sBAAD;AACV,sBAAW,CAAC,qCAAD;AAX6B;AAwdC;AAEzC;AACA,iBAAK;AAEL,kBAAO,CAAC,YAAD;AACP,kBAAO,CAAC,YAAD;AACP,kBAAO,CAAC,iBAAD;AACP,kBAAO,CAAC,oBAAD;AACP,kBAAO,CAAC,qBAAD;AACP,kBAAO,CAAC,kBAAD;AAEP;AAEA,sBAAU,QAAC,CAAQ,UAAR;AAEX;AAhByC;AA8fE;AAE3C;AAEA,UAAY,cAAD,QAAX;AAEE,YAAe,CAAX,UAAW,IAAG,CAAH,CAAM,IAAgB,CAAX,UAAW,IAAe,CAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,CAAf,CAArC;AAEE,cAAyB;AACzB,WAAC,oBAAoB,CAAC,CAAC,cAAc,CAAC,uBAAkB,CAAC,UAAD,CAAnB,EAAkC,KAAM,4EAAU,IAAlE;SAHvB;OAFF;AAJ2C;AA/4FE;AAE7C,UAAY,cAAD,QAAX;AAEE,YAAG,cAAH,EACE,sBADF;AAEA,sBAAS;OAJX;AAF6C;AAwuGC;AAE9C;AAEA;AACA,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AACF,mBAAK,WAAC,CAAD,CAAG,WAAC,CAAW,KAAX;;AACX;AAP8C;AAv0CD;AAE7C,UAAwB,CAAZ,CAAC,cAAD,SAAY,IAA6B,CAAxB,cAAS,cAAe,IAAG,kBAAH,CAA7B,CAAgD,IAAG,CAAY,CAAC,cAAD,SAAvF,EACE,MADF;AAGA,2BAAiB;AACjB;AACA,2BAloFoD;AAmoFpD,gBAAK,KAAC,CAAQ,EAAR;AACN,gBAAK;AATwC;AArlDD;AAE5C,UAAwB,CAAZ,CAAC,cAAD,SAAY,IAAI,cAAS,cAAb,CAA6B,IAAG,CAAY,CAAC,cAAD,SAApE,EACE,MADF;AAGA,2BAAiB;AACjB;AACA,2BA7iCoD;AAsiCR;AA2kDA;AAE5C,UAAwB,CAAZ,CAAC,cAAD,SAAY,IAAI,cAAS,cAAb,CAA6B,IAAG,CAAY,CAAC,cAAD,SAApE,EACE,MADF;AAGA,uBAAa;AACb,2BAvnFoD;AAwnFpD;AAP4C;AA0qCE;AAE9C,UAAwB,CAAZ,CAAC,cAAD,SAAY,IAA8C,CAAzC,cAAS,cAAgC,IAAd,kBAAH,IAA4B,CAAC,yBAAD,SAAX,CAA9C,CAAkF,IAAG,CAAY,CAAC,cAAD,SAAzH,EACE,MADF;AAGA,oBAAS,gBAAT,GAA6B;AAC7B,oBAAS,cAAT,GAA2B;AAC3B,oBAAS,iBAAT,GAA6B;AAC7B,oBAAS,oBAAT,GAAiC;AACjC,oBAAS,WAAW,WAAC,CAAW,IAAX;AATyB;AAzvDA;AAE9C,UAAwB,CAAZ,CAAC,cAAD,SAAY,IAA8C,CAAzC,cAAS,cAAgC,IAAd,kBAAH,IAA4B,CAAC,yBAAD,SAAX,CAA9C,CAAkF,IAAG,CAAY,CAAC,cAAD,SAAzH,EACE,MADF;AAGA,oBAAS,oBAAT,GAAiC;AACjC,oBAAS,yBAAT,GAAsC;AACtC,oBAAS,cAAT,GAA2B;AAC3B,oBAAS,WAAW,WAAC,CAAW,IAAX;AACrB,oBAAS,iBAAT,GAA6B;AATiB;AAvgCH;AAE3C,UAAwB,CAAZ,CAAC,cAAD,SAAY,IAAI,cAAS,cAAb,CAA6B,IAAG,CAAY,CAAC,cAAD,SAApE,EACE,MADF;AAGA,uBAAa;AACb,2BAjiCoD;AAkiCpD;AACA;AAR2C;AAiyFE;AAE7C,UAAG,cAAH;AACE;AAEA;AAL2C;AA5mGD;AAE5C;AAEA;AACA,eAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AACF,mBAAK,WAAC,CAAD,CAAG,WAAC,CAAW,IAAX;;AACX;AAP4C;AAg8FH;AAEzC;AACA;AAEA,UAAW,CAAC,cAAD,SAAY,IAAgB,CAAX,UAAW,KAAG,CAAC,CAAJ,CAAvC;AAEE,YAAK,QAAG,CAAC,EAAG,QAAG,CAAC,WAAY,WAAK,SAAC,EAAM,GAAE,CAA3B,CAAP;AACR,YAAM,CAAF,CAAE,IAAG,CAAH,CAAM,IAAO,CAAF,CAAE,IAAe,CAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,CAAf,CAAnB;AAEE,cAAyB;AACzB,WAAC,kBAAkB,CAAC,CAAC,cAAc,CAAC,uBAAkB,CAAC,CAAD,CAAnB,CAAhB;SAHrB;OAHF;AALyC;AAgBC;AAG1C;AACA;AACA;AAEA,UAAY,cAAD,QAAX;AAEE,YAAyB;AACf,UAAD,sBAAC,QAAU,WAAC,YAAD,CAAX;AACT,iBAAS,QAA0B,OAAf,WAAC,YAAD,CAAe,GAAE,CAAF,kBAAnC;AAAI;AACF,YAAE,CAAC,CAAD,CAAF,GAAS,CAAC,cAAc,CAAC,uBAAkB,CAAC,YAAY,CAAC,CAAD,CAAb,CAAnB;;AAE1B,SAAC,mBAAmB,CAAC,gBAAD;OAPtB;AAP0C;AA1aI;AAE9C;AAEA;AACA,iBAAK;AACL,eAAS,QAAoB,OAAf,QAAQ,SAAC,EAAM,GAAE,CAAF,kBAA7B;AAAI;AACF,mBAAK,QAAI,QAAC,CAAQ,QAAQ,KAAC,CAAD,CAAhB;;AACZ;AAR8C;AA9wED;AAE7C;AAEA;AACA,0BAAe,CAAC,SAAD;AACf,eAA2B,KAAlB,wBAAkB,GAAE,CAAF,EAAW,aAAtC;AAAI;AACF,uBAAU,CAAC,eAAa,CAAC,CAAD,CAAd;;AACZ;AAR6C;AAnPC;AAE9C;AACA;AACA;AACA;AAEA,WAAM,2DAA0B,QAAC;AACjC;AACE,YAAK;AACL,iBAAS,QAAuB,OAAlB,wBAAkB,GAAE,CAAF,kBAAhC;AAAI;AAEF,eAAM,eAAa,CAAC,CAAD;AACnB,cAAW,CAAC,EAAD,SAAK,IAA0B,CAArB,EAAE,QAAQ,CAAC,EAAE,SAAC,EAAJ,CAAW,KAAE,CAAC,CAAH,CAA1C;AAEE,gBAAK,CAA+B,GAA3B,EAAE,aAAa,CAAC,SAAD,CAAjB,GAA+B,4CAAF;AACpC,cAAE,IAAI,CAAC,EAAE,SAAC,EAAJ;WAHR;;AAOF,YAAG,CAAE,KAAG,EAAR,EACE,0CAAgB,QAAQ,CAAC,YAAQ,GAAE,CAAX,CAD1B;AAZF;AAeE,UAAG,eAAH,EAAG;AAfL;AAR8C;AAqqFG;AAEjD;AACA;AACA;AACA;AACA;AAEA,UAAG,0CAAgB,UAAU,CAAwB,uDAAxB,CAA7B;AAEE,YAAK,0CAAgB;AACrB,YAAI,cAAG,CAAC,aAAS,CAAV,CAAa,GAAE,CAAtB;AAEE,cAAK,uBAAW,QAAC;AACjB;AACE,gBAAK,0BAAa,CAAC,EAAG,aAAS,GAAI,cAAC,4CAAD,CAAjB;AAClB,aAAC,WAAC,CAAQ,CAAR;AACF;AACE,uBAAS,QAAa,OAAR,CAAC,SAAC,EAAM,GAAE,CAAF,kBAAtB;AAAI;AAEF,0BAAW,CAAC,KAAC,CAAD;AACZ,wBAAS,aAptGgB;AAqtGzB,qBAAK,eAAe,CAAC,OAAD;;AALxB;;AAHF;AAaE,aAAE,eAAF,CAAE;AAbJ;SAHF;OAHF;AARiD;AA6Yd;AAGnC,iBAAK,OAAK,CAAC,eAAgB,YAAjB;AAHyB;AAz1GO;AAE1C,4BAAkB;AAClB,2BAjdoD;AA8cV;AA0/FC;AAE3C,4BAAkB;AAClB,2BA38GoD;AAw8GT;AAMC;AAE5C,4BAAkB;AAClB,kBAAM;AACN,2BAl9GoD;AA88GR;AA+VH;AAEzC,UAAY,cAAD,QAAX;AAEE,sBAAS,0BAAT,GAAuC;AACvC,sBAAS,0BAAT,GAAuC;AACvC,sBAAS,WAAW,WAAC,CAAW,KAAX;AACrB,sBAAS,gBAAT,GAA4B;AAC5B,sBAAS,cAAT,GAA2B;AAC3B,sBAAS,kBAAkB,CAAC,CAAD;AAC3B,sBAAS;AACT;OATF;AAFyC;AAtqCC;AAE1C,UAAY,cAAD,QAAX,EACE,cAAS,cADX;AAF0C;AA0nBS;AAEnD;AACA;AAEA,UAAK,iBAAW;AAChB;AACA,UAAM,CAAF,CAAE,KAAE,iBAAW,WAAb,CAAyB,IAAO,CAAF,CAAE,KAAG,oBAAc,QAAC,EAAI,OAAtB,CAAtC;AAEE,yBAAW,aAAC,CAAa,oBAAc,QAAC,EAAI,OAAhC;AACZ,iBAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AACF,qBAAK,WAAC,CAAD,CAAG,aAAC,CAAa,iBAAW,WAAxB;;OAJb;AAPmD;AAeE;AAErD;AACA;AAEA,UAAK,iBAAW;AAChB;AACA,UAAM,CAAF,CAAE,KAAE,iBAAW,WAAb,CAAyB,IAAO,CAAF,CAAE,KAAG,oBAAc,QAAC,EAAI,OAAtB,CAAtC;AAEE,yBAAW,aAAC,CAAa,oBAAc,QAAC,EAAI,OAAhC;AACZ,iBAAS,QAAiB,OAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AACF,qBAAK,WAAC,CAAD,CAAG,aAAC,CAAa,iBAAW,WAAxB;;OAJb;AAPqD;AAkeL;AAEhD;AACA;AAEA,UAAwB,CAAZ,CAAC,cAAD,SAAY,IAAI,cAAS,cAAb,CAA6B,IAAG,CAAY,CAAC,cAAD,SAApE,EACE,MADF;AAGA,oBAAS;AAET;AAEA,UAAe,CAAX,UAAW,IAAG,CAAH,CAAM,IAAgB,CAAX,UAAW,IAAe,CAAZ,WAAK,SAAC,EAAM,GAAE,CAAF,CAAf,CAArC;AAEE,oCAAwB,WAAK,WAAC,UAAD,CAAY;AACzC,iCAAqB,WAAK,WAAC,UAAD;OAH5B;AAMA,UAAG,CAAY,CAAC,yBAAD,SAAf,EACE,4BAAwB,iBAAW,eADrC;AAGA,UAAK;AACL,wCAA6B,CAAC,uBAAmB,0BAAsB;;;;UAA1C;AAE7B,UAAW,CAAC,yBAAD,SAA+C,IAAZ,CAAC,cAAD,SAAZ,IAA4B,CAA9D;AAEE,kCAAsB;AACtB,iCAAoB,UAAC,CAAU,IAAV;AACrB,mBAAM,cAAS,iBAAf;AACA,oCAAwB,EAAE,MAAO,GAAE,EAAE,KAAJ;AACjC;AACA,iCAAoB,WAAC,CAAW,IAAX;AACrB,gCAAmB,WAAC,CAAW,IAAX;;AAIpB,oCAAwB;AACxB,iCAAqB;;AArCyB;AApuDA;AAEhD;AAEA,UAAwB,CAAZ,CAAC,cAAD,SAAY,IAAI,cAAS,cAAb,CAAwD,IAAxB,CAAY,CAAC,cAAD,SAAf,IAA8B,CAAI,uBAAvF,EACE,MADF;AAGA,oBAAS;AAET,UAAK;AACL,wCAA6B,CAAC,uBAAmB,0BAAsB;;;;UAA1C;AAE7B,UAAW,CAAC,yBAAD,SAA+C,IAAZ,CAAC,cAAD,SAAZ,IAA4B,CAA9D;AAEE,kCAAsB;AACtB;AACA,gCAAmB,WAAC,CAAW,IAAX;OAJtB;AAZgD;AA29DG;AAEnD,UAAY,cAAD,QAAX;AAEE,sBAAS,0BAAT,GAAuC;AACvC,sBAAS,0BAAT,GAAiD,CAAV,SAAU,GAAE,GAAF,CAAM,GAAE,GAAF;AAEvD,YAAG,eAAgB,IAAe,CAAV,SAAU,IAAG,GAAH,CAAlC;AACE;AAEA,cAAA,cAAS;OARb;AAFmD;AAlrI7B;;;;;;;;;;;AA8ZF,+BAAO,UzGh7BjB,+ByGg7BiB,CAAP;AA9ZE;AAifN;AAqkM+B;AAE/C;AACA,iCAAe,CAAC,CAAC,sBAAkB,yBAAnB,CAAD;AAHgC;AArkM/B;;;;;;;;;;;AAkBD,4B3B7zBI,+D2B6zBJ;AACE,8B3BlrBI,iE2BkrBJ;AACS,uCxB5+CJ,oEwB4+CI;AACD,sCA7qCK,6CA6qCL;AACH,mCA19CF,mCA09CE;AACN,6BApzCK,oCAozCL;AACC,8BA7/BK,qCA6/BL;AACA,8BAh/BK,qCAg/BL;AACG;AACE,mCAnvCK,0CAmvCL;AACF,iCAlxBK,wCAkxBL;AACC,kCAp+CK,yCAo+CL;AACJ,8BAnuBK,qCAmuBL;AACI,kCAnqBK,yCAmqBL;AACC,mCA/lBK,0CA+lBL;AACS,4CAzkCK,mDAykCL;AACF,0CAznCK,iDAynCL;AACH,uCA7lCK,8CA6lCL;AACH,oCA5kBK,2CA4kBL;AACE,sCA19BQ,gDA09BR;AACE,wCA19BQ,kDA09BR;AACM,8CrG95CrB,6CqG85CqB;AACf;AACiB;AACd,kC3B3wBM,uE2B2wBN;AACM,wCAn9BQ,kDAm9BR;AACD,uCAn9BQ,iDAm9BR;AACF,qCAn9BQ,+CAm9BR;AACI,yCAn9BQ,mDAm9BR;AACF,uCArlBS,kDAqlBT;AACO,8CAtlBE,kDAslBF;AACH,2CA59BQ,qDA49BR;AACC,4CA99BQ,sDA89BR;AACA,4CA5+BQ,sDA4+BR;AACD,2CA5+BQ,qDA4+BR;AACF,yCAz/BQ,mDAy/BR;AACN,mCAx+BQ,6CAw+BR;AACK,wCAv+BQ,kDAu+BR;AACA,wCAz+BQ,kDAy+BR;AACF,sCA3+BK,6CA2+BL;AACL,iCAx+BO,0CAw+BP;AACI,qCrGl7CZ,6CqGk7CY;AACD,oCrGn7CX,6CqGm7CW;AACa,iDAlmBQ,2DAkmBR;AACL,4CAh/BD,6CAg/BC;AACH,yCAj/BE,6CAi/BF;AACC,0CA/+BQ,oDA++BR;AACE,4CA1+BQ,sDA0+BR;AACC,6CA5+BQ,uDA4+BR;AACF,2CA77BQ,qDA67BR;AACD,0CA77BQ,oDA67BR;AACG,6CAzmBQ,uDAymBR;AACQ,qDAvmBG,0DAumBH;AACA,qDAvmBG,0DAumBH;AACN,+CAvmBG,oDAumBH;AACA,+CAvmBG,oDAumBH;AACJ,2CA3+BS,sDA2+BT;AACA,2CA5+BS,sDA4+BT;AACG,8CA/+BQ,wDA++BR;AACL,yCA/+BQ,mDA++BR;AA7EZ;;AAkFK,+BAAG,kHAImH,GAHlH,kHADiH,GAEjH,kHADkH,GAElH,kHADkH,GAElH,kHADkH,GAElH,gCADkH;AAzoD7I,mBA6oDc;AAYO;;;;;;;;;;;AACM;;;;;;;;;;AACC;;;;;;;;;;;;AACD;;AAEL;AAAb;AAEP,eAAU;AACV,UAAU,CAAN,WAAM,GAAO,CAAL,UAAK,GAAE,MAAF,CAAP,CAAiB,IAAW,CAAN,WAAM,GAAO,CAAL,UAAK,GAAE,MAAF,CAAP,CAAtC;AAEE,kBAAS,UAAT;AACA,iBAAU;;AAIV,gBAAS,QAAG,CAAC,OAAQ,KAAT;AACZ,YAAG,WAAM,GAAE,UAAX;AACE,oBAAS,WAAM,GAAE,KAAjB;AAEA,wBAAS,WAAM,GAAE,KAAjB;;AAdG;AAAa;AAukID;;;AAEZ;AAEL;AAJiB;;;;;;;AAxlIP;AA7oDd,GA6oDc,uFA7oDd;ACDA,4CAIS,2LAJT;;;;AAuBS,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AAYwB;;;AAEhC;AAAG;AAAG;AACN;AACA;AAJgC;;AAOK;;AACC;;AAEJ;;;AAElC;AACA;AACA;AACA;AACA;AANkC;;;;;;AAu3BiB;AAGrD,iBAAM,OAAO,CAAC,KAAD;AAHwC;AAMG;AAGxD,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAHwD;AAUP;AAEjD,UAAG,OAAG,KAAG,KAAT;AAEE,kBAAM;AACN;OAHF;AAFiD;AASA;AAEjD,UAAG,OAAG,KAAG,KAAT;AAEE,kBAAM;AACN;OAHF;AAFiD;AAnCI;AAAT;AAE5C,eAAU,OAAG,KAAG,GAAH;AAF+B;AAAS;AAKA;AAAT;AAE5C,eAAU,OAAG,KAAG,GAAH;AAF+B;AAAS;AAVI;AAEzD;AAFyD;AAzBL;AAEpD,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAFoD;AAMC;AAErD,uBAAa;AACb,oBAAU,uCAAa,QAAC;AAKxB,iBAAM,mBAAiB,CAAC,kCAA8B,qCAA/B;AAEvB,iBAAM,UAAN,GAAoB;AAVkC;AAAD;AAaA;AAE9C,eAAP,KAAO;AACP;AAHqD;AA/BF;AAEnD;AACA,UAAc,yCAAH,eAAP,MAAO,CAAX;AAEE,kBAAc,OAAP,OAAU,yCAAH,CAAwC;AACtD,kBAAc,OAAP,OAAU,yCAAH,CAAwC;AACtD,yBAAqB,OAAP,OAAU,yCAAH,CAAwC;AAC7D,mBAAM,OAAO,CAAS,OAAP,OAAU,yCAAH,CAAwC,OAAjD;OALf;AAHmD;AAn0Bf;AAiBhB;AAIR;AACA;AACO,gCAzBqB,uDAyBrB;AACH,6B7BwdH,iD6BxdG;AACG,gC1GjEP,kC0GiEO;AAzBiB;AA4BD;;;AAEjC;AACA;AACA;AACA;AACA;AANiC;;;;;;AAqwBa;AAEhD,UAAG,OAAG,KAAG,KAAT;AAEE,kBAAM;AACN;OAHF;AAFgD;AASA;AAEhD,UAAG,OAAG,KAAG,KAAT;AAEE,kBAAM;AACN;OAHF;AAFgD;AAnBO;AAGvD,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAHuD;AAPJ;AAGnD,UAAG,UAAM,KAAG,KAAZ,EACE,UAAK,OAAO,CAAC,KAAD,CADd;AAHmD;AAVC;AAAT;AAE3C,eAAU,OAAG,KAAG,IAAH;AAF8B;AAAS;AAKA;AAAT;AAE3C,eAAU,OAAG,KAAG,IAAH;AAF8B;AAAS;AA3BD;AAEnD,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAFmD;AAMC;AAEpD,gBAAM;AACN,gBAAM;AACN,uBAAa;AACb,mBAAS,uDAAqB,QAAC,a5BoG+B,qEAA+C,Q4BpG9E;AAC/B,gBAAK,SAAC,CAAS,OAAT;AACN,gBAAK,SAAC,CAAS,CAAT;AAP+C;AAAD;AAUA;AAE9C,eAAN,KAAM;AACN;AAHoD;AA5BF;AAElD;AACA,UAAa,wCAAH,eAAP,MAAO,CAAV;AAEE,kBAAc,OAAP,OAAU,wCAAH,CAAuC;AACrD,kBAAc,OAAP,OAAU,wCAAH,CAAuC;AACrD,yBAAqB,OAAP,OAAU,wCAAH,CAAuC;AAC5D,kBAAK,OAAO,CAAS,OAAP,OAAU,wCAAH,CAAuC,MAAhD;OALd;AAHkD;AAxsBf;AAgBf;AAIR;AACA;AACO,gCArDoB,sDAqDpB;AACJ,4B5BkzBM,iE4BlzBN;AACI,gC1G5FP,kC0G4FO;AAxBgB;AA+BN;AA2vBe;AAAP;AAErC,eAAuD,YAAK,CAAC,KAAD;AAFvB;AAAO;AAKC;AAEnC,kBAAK,CAAC,MAAU,KAAX;AAF8B;AAhwBhB;AASA;;;AAE3B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAX2B;;;;;;;;;;;AAmnBe;AAG5C,UAAG,SAAK,KAAG,KAAX,EACE,SAAI,OAAO,CAAC,KAAD,CADb;AAH4C;AAaS;AAGrD,UAAG,kBAAc,KAAG,KAApB,EACE,kBAAa,OAAO,CAAC,KAAD,CADtB;AAHqD;AANR;AAE7C,UAAG,UAAM,KAAG,KAAZ,EACE,aAAS,KADX;AAF6C;AA1BI;AAGjD,UAAG,cAAU,KAAG,KAAhB,EACE,cAAS,OAAO,CAAC,KAAD,CADlB;AAHiD;AAOH;AAE9C,UAAG,KAAH,EACE,qBAAgB,QADlB;AAF8C;AAMF;AAG5C,kBAAK,aAAa,CAAC,KAAD;AAH0B;AA3OK;AAAZ;AAErC,eAAU,UAAM,KAAG,YAAH;AAFqB;AAAY;AAxFJ;AAAR;AAErC,eAAU,qBAAgB,SAAC,EAAM,KAAE,CAAF;AAFI;AAAQ;AAvMO;AAEpD;AACA,kBAAK,UAAC,CAAU,sCAAY,UAAU,CAAC,YAAK,SAAS,EAAG,CAAlB,CAAhC;AAH8C;AAME;AAEtD;AAFsD;AA8hBG;AAEzD;AAFyD;AAnVJ;AAGrD;AAEA;AACA,UAAG,oCAAU,CAAC,gBAAY,gCAAM,CAAC,EAAG,CAAJ,CAAnB,CAAb;AAEE,6BAAgB;;AAIhB,wBAAY;AACZ;AACA,aAAM,uCAAkC,QAAC;AACzC,UAAE,EAAF,GAAQ;AACR,UAAE,EAAF,GAAQ;AACR,UAAE,SAAF,GAAe,SAAG;AAClB,UAAE,SAAF,GAAe,SAAG;AAClB,UAAE,SAAF,GAAe;AACf,6BAAgB,MAAI,CAAC,EAAD;;AApB+B;AAwBA;AAGrD;AAEA;AACA,UAAG,aAAH;AAEE,aAAM,uCAAkC,QAAC;AACzC,UAAE,EAAF,GAAQ;AACR,UAAE,EAAF,GAAQ;AACR,UAAE,SAAF,GAAe,SAAG;AAClB,UAAE,SAAF,GAAe,SAAG;AAClB,UAAE,SAAF,GAAe;AACf,6BAAgB,MAAI,CAAC,EAAD;AACpB;OAEG,UAAG,oCAAU,CAAC,gBAAY,gCAAM,CAAC,EAAG,CAAJ,CAAnB,CAAb;AAEH,8BAAU,EAAV;OAGA,4BAAU,CAAV;AAtBmD;AAyBF;AAGnD;AAEA;AACA,UAAG,CAAI,oCAAU,CAAC,gBAAY,gCAAM,CAAC,EAAG,CAAJ,CAAnB,CAAjB;AAEE,aAAM,uCAAkC,QAAC;AACzC,UAAE,EAAF,GAAQ;AACR,UAAE,EAAF,GAAQ;AACR,UAAE,SAAF,GAAe,SAAG;AAClB,UAAE,SAAF,GAAe,SAAG;AAClB,UAAE,SAAF,GAAe;AACf,6BAAgB,MAAI,CAAC,EAAD;AACpB,wBAAY;AACZ;OAVF;AAaA;AAnBmD;AAlNT;AAG1C;AAEA,UAAG,CAAI,YAAP;AAEE;AACA,mBAAM,KAAN;AACA,yBAAY,CAAC,UAAW,+CAAO,EAAnB;AACZ,gCAAc,iBAAY,CAAC,2CAAD,CAA1B;AACA,0BAAa,CAAC,UAAW,wDAAZ;OANf;AAQA,wBAAa,CAAC,SAAD;AAb6B;AA+CQ;AAGlD;AAAI;AACJ;AAEA,eAAS,MAAK,aAAa,CAAC,YAAD;AAE3B,WAAM,SAAS,sBAAoB,CAAC,UAAD,CAAO,GAAE,oBAAe,CAAC,CAAE,GAAE,CAAL,CAAjB;AAC1C,WAAM,SAAS,qBAAmB,CAAC,UAAD;AAEhB,iBAAb,kBAAa;AAChB,WADgB,IAChB,qEAAgB,CADA,IACA,+DAAhB,IAA8B,CADd,IACc,gEAA9B;AAEE,iBAAS,QAAO,OAAO,CAAC,kBAAa,MAAd;AACvB,iBAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,EAAG,KAAK,OAAQ,GAAE,EAAnB,GAA8B,yCAAN,gCAAM,CAAC,KAAK,OAAQ,KAAK,OAAQ,GAAE,EAA7B,G1B7G8D,+EAAyE,8E0B6G5K;AAClB,cAAM,OAAN,GAAiB,MAAM,OAAQ,GAAE,EAAF;OAEjC,WAPgB,IAOhB,kEAAa,CAPG,IAOH,4DAAb,IAAwB,CAPR,IAOQ,6DAAxB;AAEE,iBAAS,QAAO,OAAO,CAAC,kBAAa,MAAd;AACvB,iBAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,EAAG,KAAK,IAAK,GAAE,EAAhB,GAA2B,yCAAN,gCAAM,CAAC,KAAK,OAAQ,KAAK,IAAK,GAAE,EAA1B,G1BnHiE,+EAAyE,8E0BmH5K;AAClB,cAAM,IAAN,GAAc,MAAM,IAAK,GAAE,EAAF;OAJ3B;AAQF,UAAG,kBAAa,UAAU,KAAG,mDAA7B;AAEoB,oBAAb,kBAAa;AAChB,YADgB,KAChB;AAAgB,qBAAM,gCAAM,CAA4B,CAAd,CAAZ,KAAK,MAAO,GAAE,KAAK,KAAP,CAAc,GAAE,CAAF,CAAI,GAAK,CAAH,EAAG,GAAE,CAAF,CAAL,CAAuB,CAAb,KAAK,OAAQ,GAAE,EAAF,CAAK,GAAE,oBAAe,CAAC,CAAD,CAA7E,CAAZ;AAChB,kBAFgB,KAEhB;AAAc,qBAAM,gCAAM,CAAC,EAAyB,CAAb,KAAK,OAAQ,GAAE,EAAF,CAAK,GAAE,oBAAe,CAAC,CAAD,CAAhD,CAAZ;AACd,kBAHgB,KAGhB;AAAe,qBAAM,gCAAM,CAAC,KAAK,MAAY,GAAH,EAAF,GAAQ,oBAAe,CAAC,CAAD,CAAlB,CAA6C,CAAb,KAAK,OAAQ,GAAE,EAAF,CAAK,GAAE,oBAAe,CAAC,CAAD,CAArF,CAAZ;AACf,kBAJgB,KAIhB;AAAa,qBAAM,gCAAM,CAA4B,CAAd,CAAZ,KAAK,MAAO,GAAE,KAAK,KAAP,CAAc,GAAE,CAAF,CAAI,GAAK,CAAH,EAAG,GAAE,CAAF,CAAL,CAAU,KAAK,IAAK,GAAE,oBAAe,CAAC,CAAD,CAArE,CAAZ;AACb,kBALgB,KAKhB;AAAW,qBAAM,gCAAM,CAAC,oBAAe,CAAC,CAAD,EAAc,KAAK,IAAK,GAAE,oBAAe,CAAC,CAAD,CAAzD,CAAZ;AACX,kBANgB,KAMhB;AAAY,qBAAM,gCAAM,CAAC,KAAK,MAAY,GAAH,EAAF,GAAO,oBAAe,CAAC,CAAD,CAAjB,CAA+B,KAAK,IAAK,GAAE,oBAAe,CAAC,CAAD,CAA5E,CAAZ;AACZ,kBAPgB,KAOhB,wDAAM,WAAM,gCAAM,CAAC,kBAAa,IAAI,kBAAa,GAA/B,CAAZ,CAAN;AAGF,iBAAS,SAAS,CAAC,6CAAI,W1BxB4C,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,C0BwB7K;OAZpB;AA1BkD;AA/BC;AAGnD,UAAW,CAAC,cAAS,OAAV,SAAyD,IAAnC,CAAI,uCAAa,CAAC,cAAS,OAAV,CAArB,IAA+D,CAAnB,cAAS,UAAU,KAAG,oDAAH,CAA5F;AAGE,iBAAS,aAAW,CAAC,+CAAO,cAAS,QAAQ,KAAM,K1BpCH,KAA2B,K0BoCvD;OAHtB;AAHmD;AAUA;AAGnD;AACA;AAEA,UAAG,qBAAgB,SAAC,EAAM,IAAG,CAA7B;AAEE,iBAAS,QAA4B,OAAvB,qBAAgB,SAAC,EAAM,GAAE,CAAF,kBAArC;AAAI;AAEF,cAAG,qBAAgB,UAAM,CAAC,CAAC,GAAC,CAAH,CAAK,SAA9B;AAEE,iBAAM,qBAAgB,UAAM,CAAC,CAAD;AAC5B,qBAAS,QAAO,SAAC,CAAS,EAAE,SAAX;AACjB,qBAAS,QAAO,SAAC,CAAS,EAAE,SAAX;AACjB,qBAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,qBAAgB,UAAM,CAAC,CAAD,CAAG,GAAI,qBAAgB,UAAM,CAAC,CAAD,CAAG,EAAvD,GAAkE,yCAAN,gCAAM,CAAC,qBAAgB,UAAM,CAAC,CAAC,GAAC,CAAH,CAAK,GAAI,qBAAgB,UAAM,CAAC,CAAC,GAAC,CAAH,CAAK,EAA3D,G1BxFwB,+EAAyE,8E0BwF1K;WALpB;;OAJJ;AANmD;AAkIJ;AAAV;AAErC,eAAU,4BAAgB,CAAC,EAAS,EAAS,EAAS,CAA5B;AAFW;AAAU;AAnEE;AAAZ;AAErC;AAAG;AAEH,UAAK,oBAAe,CAAC,cAAS,OAAM,SAAC,EAAjB;AACpB,UAAK,oBAAe,CAAC,cAAS,OAAM,UAAC,EAAjB;AAEN,iBAAT,cAAS;AACZ,UADY,IACZ;AAEE,cAAM,IAAN,GAAc,KAAK,OAAY,GAAF,CAAF,GAAM,oBAAe,CAAC,CAAD,CAAjB;AAC/B,cAAM,KAAN,GAAyC,CAAzB,KAAK,MAAoB,GAAX,KAAK,KAAP,GAAe,CAAF,CAAK,GAAE,CAAF;OAEhD,UANY,IAMZ;AAEE,cAAM,IAAN,GAAc,KAAK,OAAY,GAAF,CAAF,GAAM,oBAAe,CAAC,CAAD,CAAjB;AAC/B,cAAM,KAAN,GAAe,KAAK,KAAM,GAAE,oBAAe,CAAC,CAAD,CAAjB;OAE5B,UAXY,IAWZ;AAEE,cAAM,IAAN,GAAc,KAAK,OAAY,GAAF,CAAF,GAAM,oBAAe,CAAC,CAAD,CAAjB;AAC/B,cAAM,KAAN,GAAe,KAAK,MAAsC,GAA7B,oBAAe,CAAC,CAAD,CAAjB,GAAiC,CAAF;OAE5D,UAhBY,IAgBZ;AAEE,cAAM,IAAN,GAAc,KAAK,IAAK,GAAE,oBAAe,CAAC,CAAD,CAAjB;AACxB,cAAM,KAAN,GAAyC,CAAzB,KAAK,MAAoB,GAAX,KAAK,KAAP,GAAe,CAAF,CAAK,GAAE,CAAF;OAEhD,UArBY,IAqBZ;AAEE,cAAM,IAAN,GAAc,KAAK,IAAK,GAAE,oBAAe,CAAC,CAAD,CAAjB;AACxB,cAAM,KAAN,GAAe,KAAK,KAAM,GAAE,oBAAe,CAAC,CAAD,CAAjB;OAE5B,UA1BY,IA0BZ;AAEE,cAAM,IAAN,GAAc,KAAK,IAAK,GAAE,oBAAe,CAAC,CAAD,CAAjB;AACxB,cAAM,KAAN,GAAe,KAAK,MAAsC,GAA7B,oBAAe,CAAC,CAAD,CAAjB,GAAiC,CAAF;OAE5D,UA/BY,IA+BZ;AAEE,cAAM,IAAN,GAAc,cAAS;AACvB,cAAM,KAAN,GAAe,cAAS;OAH1B;AAOF,YAAM,MAAN,GAAgB,MAAM,KAAM,GAAE,CAAF;AAC5B,YAAM,OAAN,GAAiB,MAAM,IAAK,GAAE,CAAF;AAE5B,8BAAc,MAAd;AAhDqC;AAAY;AA+IQ;AAApB;AAGrC,eAAwC,sFAAC,QAAS,cAAe,aAAzB;AACxC,eAAU,MAAkC,IAAT,CAAd,aAAc,KAAE,KAAF,CAAlB,IAA6C,CAAd,aAAc,KAAE,cAAF,CAAlB;AAJP;AAAoB;AA7QX;AAE9C;AACA,oBAAS,GAAT;AACA,qBAAU,GAAV;AACA,sBAAY;AACZ,mBAAS;AAET,wBAAc,8BAAO,QAAC;AACtB,8BAAoB,kCAA6B,QAAC;AAClD,kBAAQ,uDAAqB,QAAC,a5BmqBgC,qEAA+C,Q4BnqB/E;AAC9B,eAAI,SAAC,CAAS,CAAT;AACL,2BAAiB,wCAAmC,QAAC;AACrD,uBAAa,yCAAoC,QAAC;AAClD,8BAAc,+BAAK,CAAC,EAAG,EAAG,EAAG,CAAV,CAAnB;AACA,qBAAS,qDAAmB,QAAC;AAC7B,oBAAS,UAAT,GAAuB;AACvB,wBAAa,UAAb,GAA2B;AAjBwC;AAArB;AA0BA;AAEnC,eAAX,KAAW;AACM,eAAjB,KAAiB;AACZ,eAAL,KAAK;AACS,eAAd,KAAc;AACJ,eAAV,KAAU;AACJ,eAAN,KAAM;AACN;AAR8C;AAwJG;AAAZ;AAErC,qBAAW;AACX;AACA,eAAU,gBAAM;AAChB,qBAAW;AACX;AANqC;AAAY;AAhSpB;;;;;;;AA4CT,+BAAO,U1GiZjB,+B0GjZiB,CAAP;AA5CS;AAiEN;;;;;;;;AAER,4B5BklBI,+D4BllBJ;AACE,8B5B6tBI,iE4B7tBJ;AACF,4B5B4mBI,+D4B5mBJ;AACD,2B5B2tBO,iE4B3tBP;AACC;AACQ,oCAhHY,kDAgHZ;AACJ,gCA7IiB,mDA6IjB;AARI;;AAaK,sCAAG,kIAImI,GAHnI,kIADmI,GAEnI,kIADmI,GAEnI,kIADmI,GAEnI,kIADmI,GAEnI,gCADmI;AAtMpK,mBA0Mc;AAQF,uBAAG;AACF,wBAAG;AATF;AAgwBd;AAEE,2CAAa,mBAAmB,CAAC,iCAAD;AAFlC;AA18BA,GA0Mc,qBA1Md;ACCA,oCAIS,qRAJT;;;;AAgCS,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AA8iBW;AA3hBU;;AACL,gDADK,uDACL;AAEF;;AAMJ;;;AAGlB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAbkB;;;;;;;;;AAunJiB;AAErC,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACV;OAHF;AAFqC;AAeK;AAG1C,UAAe,UAAZ,iBAAe,KAAH,CAAf;AAEE,2BAAe;AACf;OAHF;AAH0C;AANN;AAEpC,UAAG,UAAM,KAAG,KAAZ,EACE,aAAS,KADX;AAFoC;AAtEW;AAE/C,2BAAgB,OAAO,CAAC,KAAD;AAFwB;AAwBC;AAEhD,4BAAiB,OAAO,CAAC,KAAD;AAFwB;AAnBG;AAEnD,UAAG,yBAAqB,KAAG,KAA3B;AAEE,oCAAwB;AACxB;OAHF;AAFmD;AASN;AAG7C,UAAG,mBAAe,KAAG,KAArB;AAEE,8BAAkB;AAClB;OAHF;AAH6C;AAeO;AAEpD,UAAG,0BAAsB,KAAG,KAA5B;AAEE,qCAAyB;AACzB;OAHF;AAFoD;AASN;AAG9C,UAAG,oBAAgB,KAAG,KAAtB;AAEE,+BAAmB;AACnB;OAHF;AAH8C;AAUC;;AA5ED;AAAlB;AAM5B,eAAU;AANkB;AAAkB;AAkBS;AAA3B;AAE5B,eAAU,yBAAoB,KAAG,EAAH;AAFF;AAA2B;AAKA;AAA3B;AAE5B,eAAU,0BAAqB,KAAG,EAAH;AAFH;AAA2B;AAlDnB;AAEpC,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAFoC;AAwCA;AAAR;AAE5B,eAAU;AAFkB;AAAQ;AAlCC;AAErC,oBAAU;AACV,8BAAoB,8CAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,+BAAqB,8CAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,oBAAU;AACV,yBAAe,cAAC,6CAAS,6CAAV;AACf,4BAAkB;AAClB,6BAAmB;AACnB,kCAAwB;AACxB,mCAAyB;AACzB,mBAAS;AAXiD;AAArB;AAcA;AAEpB,eAAjB,KAAiB;AACC,eAAlB,KAAkB;AAClB;AAJqC;AAtCF;AAEnC,UAAa,yBAAH,eAAP,MAAO,CAAV;AAEE,sBAAkB,OAAP,OAAU,yBAAH,CAAwB;AAC1C,2BAA+C,WAAxB,OAAP,OAAU,yBAAH,CAAwB;AAC/C,qBAAiB,OAAP,OAAU,yBAAH,CAAwB;AACzC,8BAA0B,OAAP,OAAU,yBAAH,CAAwB;AAClD,oCAAgC,OAAP,OAAU,yBAAH,CAAwB;AACxD,6BAAgB,OAAO,CAAS,OAAP,OAAU,yBAAH,CAAwB,iBAAjC;AACvB,+BAA2B,OAAP,OAAU,yBAAH,CAAwB;AACnD,qCAAiC,OAAP,OAAU,yBAAH,CAAwB;AACzD,8BAAiB,OAAO,CAAS,OAAP,OAAU,yBAAH,CAAwB,kBAAjC;OAGxB;AAfiC;AAj/If;AAgCA,+BAAO,U3GidjB,+B2GjdiB,CAAP;AAMM,uC9B2mBN,wD8B3mBM;AACF,qCA7CA,uCA6CA;AACM;AACH,wC9BwmBP,wD8BxmBO;AACF,sCAhDD,uCAgDC;AACM;AACf,6BtG8QV,uCsG9QU;AACK,kCArDK,yCAqDL,+BAA0E,uBAAC,6CAAS,6CAAV,CAA1E;AA7CD;AAgDC;;;AAEnB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAVmB;;;;;;;;;AAomHgB;AAErC,UAAG,UAAM,KAAG,KAAZ,EACE,UAAK,OAAO,CAAC,KAAD,CADd;AAFqC;AAMA;AAErC,gBAAK,aAAa,CAAC,KAAD;AAFmB;AAce;AAGpD,UAAG,yBAAqB,KAAG,KAA3B;AAEE,oCAAwB;AACxB;OAHF;AAHoD;AAgBF;AAGlD,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB;OAHF;AAHkD;AANX;AAEvC,UAAG,YAAQ,KAAG,KAAd,EACE,YAAO,OAAO,CAAC,KAAD,CADhB;AAFuC;AApCD;AAEtC,UAAG,WAAO,KAAG,KAAb,EACE,WAAM,OAAO,CAAC,KAAD,CADf;AAFsC;AAoDE;AAExC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAFwC;AAnCD;AAEvC,UAAG,YAAQ,KAAG,KAAd;AAEE,uBAAW;AACX;OAHF;AAFuC;AA1DF;AAErC,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAFqC;AA+BI;AAEzC;AAFyC;AAKA;AAEzC;AAFyC;AAkEE;AAE3C;AAF2C;AAhGL;AAEtC,mBAAS,qDAAmB,QAAC;AAC7B,kCAAwB;AACxB,gCAAsB;AACtB,qBAAW,uDAAqB,QAAC,YAAM,CAAC,qEAAU,QAAX,CAAN;AACjC,mBAAS,qDAAmB,QAAC,YAAM,CAAC,mEAAU,mDAAiB,CAAC,IAAK,IAAK,GAAX,E7Bj7F4F,QAAmD,GAAqD,E6Bi7FhO,CAAN;AAC7B,oBAAU,yBAAoB,QAAC,YAAM,CAAC,MAAD,CAAN;AAC/B,sBAAY;AACZ,qBAAW;AAEX,gBAAK,WAAL,GAAoB;AACpB,gBAAK,WAAL,GAAoB;AACpB,kBAAO,WAAP,GAAsB;AAbqC;AAArB;AAgBA;AAEhC,eAAN,KAAM;AACA,eAAN,KAAM;AACE,eAAR,KAAQ;AACD,eAAP,KAAO;AACP;AANsC;AAvCF;AAEpC,UAAc,0BAAH,eAAP,MAAO,CAAX;AAEE,kBAAK,aAAa,CAAS,OAAP,OAAU,0BAAH,CAAyB,MAAlC;AAClB,oCAAgC,OAAP,OAAU,0BAAH,CAAyB;AACzD,kCAA8B,OAAP,OAAU,0BAAH,CAAyB;AACvD,oBAAO,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,QAAlC;AACd,kBAAK,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,MAAlC;AACZ,mBAAM,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,OAAlC;AACb,wBAAoB,OAAP,OAAU,0BAAH,CAAyB;AAC7C,uBAAmB,OAAP,OAAU,0BAAH,CAAyB;OAG5C;AAdkC;AApiHf;AAyBD,+BAAO,U3GwajB,+B2GxaiB,CAAP;AAKJ,6BA9EI,mCA8EJ;AACC;AACF,4B7BynBI,+D6BznBJ;AACA,4B7BopBI,+D6BppBJ;AACE,8B7BmwBI,iE6BnwBJ;AACC;AACU,yC7ByZJ,oE6BzZI;AACE,2C7BwZN,oE6BxZM;AArCT;AAwCI;;AAEJ;;;AAEnB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAZmB;;;;;;;;;AAgpJgB;AAErC,UAAG,UAAM,KAAG,KAAZ,EACE,UAAK,OAAO,CAAC,KAAD,CADd;AAFqC;AAMA;AAErC,gBAAK,aAAa,CAAC,KAAD;AAFmB;AAce;AAGpD,UAAG,yBAAqB,KAAG,KAA3B;AAEE,oCAAwB;AACxB;OAHF;AAHoD;AAgBF;AAGlD,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB;OAHF;AAHkD;AANX;AAEvC,UAAG,YAAQ,KAAG,KAAd,EACE,YAAO,OAAO,CAAC,KAAD,CADhB;AAFuC;AAtDC;AAExC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAFwC;AAsEA;AAExC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAFwC;AAnCD;AAEvC,UAAG,YAAQ,KAAG,KAAd;AAEE,uBAAW;AACX;OAHF;AAFuC;AArBK;AAG5C,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;AAChB;OAHF;AAH4C;AALA;AAE5C,gCAAgB,KAAhB;AAF4C;AAdA;AAAf;AAE7B,eAAU,aAAQ,KAAG,EAAH;AAFW;AAAe;AAxCP;AAErC,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAFqC;AA8BI;AAEzC;AAFyC;AAKA;AAEzC;AAFyC;AAyFE;AAE3C;AAF2C;AAtHL;AAEtC,mBAAS,qDAAmB,QAAC;AAC7B,kCAAwB;AACxB,gCAAsB;AACtB,qBAAW,uDAAqB,QAAC,YAAM,CAAC,qEAAU,QAAX,CAAN;AACjC,mBAAS,qDAAmB,QAAC,YAAM,CAAC,mEAAU,mDAAiB,CAAC,IAAK,IAAK,GAAX,E7Bj/H4F,QAAmD,GAAqD,E6Bi/HhO,CAAN;AAC7B,sBAAY;AACZ,qBAAW;AACX,0BAAgB;AAEhB,gBAAK,WAAL,GAAoB;AACpB,gBAAK,WAAL,GAAoB;AACpB,kBAAO,WAAP,GAAsB;AAbiB;AAAD;AAgBA;AAEhC,eAAN,KAAM;AACE,eAAR,KAAQ;AACF,eAAN,KAAM;AACN;AALsC;AAzCF;AAEpC,UAAa,0BAAH,eAAP,MAAO,CAAV;AAEE,kBAAK,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,MAAlC;AACZ,oBAAO,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,QAAlC;AACd,kBAAK,aAAa,CAAS,OAAP,OAAU,0BAAH,CAAyB,MAAlC;AAClB,kCAA8B,OAAP,OAAU,0BAAH,CAAyB;AACvD,oCAAgC,OAAP,OAAU,0BAAH,CAAyB;AACzD,wBAAoB,OAAP,OAAU,0BAAH,CAAyB;AAC7C,4BAAwB,OAAP,OAAU,0BAAH,CAAyB;AACjD,kCAAwB,OAAP,OAAU,0BAAH,CAAyB,aAAjD;AACA,wBAAoB,OAAP,OAAU,0BAAH,CAAyB;AAC7C,uBAAmB,OAAP,OAAU,0BAAH,CAAyB;OAG5C;AAhBkC;AAxjJf;AA8BD;AAMF;AACI,mCAvCG,wCAuCH;AACL;AACF,4B7BwkBI,+D6BxkBJ;AACA,4B7BmmBI,+D6BnmBJ;AACE,8B7BktBI,iE6BltBJ;AACC;AACU,yC7BwWJ,oE6BxWI;AACE,2C7BuWN,oE6BvWM;AA5CT;AA+CW;;;AAE9B;AACA;AACA;AACA;AACA;AACA;AACA;AAR8B;;;;;;;;AA0nHgB;AAGhD,UAAG,UAAM,KAAG,KAAZ,EACE,UAAK,OAAO,CAAC,KAAD,CADd;AAHgD;AAOA;AAGhD,gBAAK,aAAa,CAAC,KAAD;AAH8B;AAYe;AAG/D,UAAG,yBAAqB,KAAG,KAA3B,EACE,4BAAwB,KAD1B;AAH+D;AAOb;AAGlD,UAAG,YAAQ,KAAG,KAAd,EACE,YAAO,OAAO,CAAC,KAAD,CADhB;AAHkD;AAOW;AAG7D,UAAG,uBAAmB,KAAG,KAAzB,EACE,0BAAsB,KADxB;AAH6D;AApBX;AAElD,UAAG,YAAQ,KAAG,KAAd,EACE,eAAW,KADb;AAFkD;AA/CF;AAEhD,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAFgD;AAwBI;AAEpD;AAFoD;AAKA;AAEpD;AAFoD;AA6CE;AAEtD;AAFsD;AApEL;AAEjD,qBAAW;AACX,mBAAS,qDAAmB,QAAC;AAC7B,mBAAS,qDAAmB,QAAC,YAAM,CAAC,mEAAU,G7B3iG6G,QAAmD,GAAqD,E6B2iGhO,CAAN;AAC7B,qBAAW,uDAAqB,QAAC,YAAM,CAAC,qEAAU,EAAX,CAAN;AACjC,kCAAwB;AACxB,gCAAsB;AAP4B;AAAD;AAUA;AAE3C,eAAN,KAAM;AACE,eAAR,KAAQ;AACF,eAAN,KAAM;AACN;AALiD;AA/BF;AAE/C,UAAa,qCAAH,eAAP,MAAO,CAAV;AAEE,uBAAmB,OAAP,OAAU,qCAAH,CAAoC;AACvD,kBAAK,OAAO,CAAS,OAAP,OAAU,qCAAH,CAAoC,MAA7C;AACZ,oBAAO,OAAO,CAAS,OAAP,OAAU,qCAAH,CAAoC,QAA7C;AACd,kBAAK,aAAa,CAAS,OAAP,OAAU,qCAAH,CAAoC,MAA7C;AAClB,kCAA+B,OAAP,OAAU,qCAAH,CAAoC;AACnE,oCAAiC,OAAP,OAAU,qCAAH,CAAoC;OAGrE;AAZ6C;AAzkHf;AAqBZ;AAKH;AACF,4B7BqiBI,+D6BriBJ;AACA,4B7BgkBI,+D6BhkBJ;AACE,8B7B+qBI,iE6B/qBJ;AACW,yC7BsUJ,oE6BtUI;AACE,2C7BqUN,oE6BrUM;AA/BE;AAkCH;;;AAE3B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAAiB;AACjB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA7B2B;;;;;;;;;;;;;;;;;;;;;;;;;;AAw2HgB;AAG7C,UAAG,UAAM,KAAG,KAAZ,EACE,UAAK,OAAO,CAAC,KAAD,CADd;AAH6C;AAOA;AAG7C,gBAAK,aAAa,CAAC,KAAD;AAH2B;AAMe;AAG5D,UAAG,yBAAqB,KAAG,KAA3B,EACE,4BAAwB,KAD1B;AAH4D;AAoEb;AAG/C,UAAG,YAAQ,KAAG,KAAd,EACE,YAAO,OAAO,CAAC,KAAD,CADhB;AAH+C;AA2BW;AAG1D,UAAG,uBAAmB,KAAG,KAAzB,EACE,0BAAsB,KADxB;AAH0D;AAxFL;AAGrD,UAAG,kBAAc,KAAG,KAApB,EACE,kBAAa,OAAO,CAAC,KAAD,CADtB;AAHqD;AAOA;AAGrD,wBAAa,aAAa,CAAC,KAAD;AAH2B;AAMe;AAGpE,UAAG,iCAA6B,KAAG,KAAnC,EACE,oCAAgC,KADlC;AAHoE;AAOb;AAGvD,UAAG,oBAAgB,KAAG,KAAtB,EACE,oBAAe,OAAO,CAAC,KAAD,CADxB;AAHuD;AAOW;AAGlE,UAAG,+BAA2B,KAAG,KAAjC,EACE,kCAA8B,KADhC;AAHkE;AAnEb;AAGrD,UAAG,kBAAc,KAAG,KAApB,EACE,kBAAa,OAAO,CAAC,KAAD,CADtB;AAHqD;AAOA;AAGrD,wBAAa,aAAa,CAAC,KAAD;AAH2B;AAME;AAGvD,UAAG,oBAAgB,KAAG,KAAtB,EACE,oBAAe,OAAO,CAAC,KAAD,CADxB;AAHuD;AArDD;AAGtD,UAAG,mBAAe,KAAG,KAArB,EACE,mBAAc,OAAO,CAAC,KAAD,CADvB;AAHsD;AAOA;AAGtD,yBAAc,aAAa,CAAC,KAAD;AAH2B;AAaC;AAGvD,UAAG,oBAAgB,KAAG,KAAtB,EACE,oBAAe,OAAO,CAAC,KAAD,CADxB;AAHuD;AAOA;AAGvD,0BAAe,aAAa,CAAC,KAAD;AAH2B;AAuFD;AAEtD,UAAG,mBAAe,KAAG,KAArB;AAEE,8BAAkB;AAClB;OAHF;AAFsD;AASC;AAEvD,UAAG,oBAAgB,KAAG,KAAtB;AAEE,+BAAmB;AACnB;OAHF;AAFuD;AA9GC;AAGxD,UAAG,qBAAiB,KAAG,KAAvB,EACE,qBAAgB,OAAO,CAAC,KAAD,CADzB;AAHwD;AAoBC;AAGzD,UAAG,sBAAkB,KAAG,KAAxB,EACE,sBAAiB,OAAO,CAAC,KAAD,CAD1B;AAHyD;AArDP;AAGlD,UAAG,eAAW,KAAG,KAAjB,EACE,eAAU,OAAO,CAAC,KAAD,CADnB;AAHkD;AAOA;AAGlD,qBAAU,aAAa,CAAC,KAAD;AAH2B;AAME;AAGpD,UAAG,iBAAa,KAAG,KAAnB,EACE,iBAAY,OAAO,CAAC,KAAD,CADrB;AAHoD;AA2JF;AAGlD,UAAG,eAAW,KAAG,KAAjB,EACE,eAAU,OAAO,CAAC,KAAD,CADnB;AAHkD;AAOA;AAGlD,qBAAU,aAAa,CAAC,KAAD;AAH2B;AAME;AAGpD,UAAG,iBAAa,KAAG,KAAnB,EACE,iBAAY,OAAO,CAAC,KAAD,CADrB;AAHoD;AA7BF;AAElD,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd;OAHF;AAFkD;AApQL;AAE7C,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAF6C;AAkGI;AAEjD;AAFiD;AAKA;AAEjD;AAFiD;AAwME;AAEnD;AAFmD;AAzSL;AAE9C,mBAAS,qDAAmB,QAAC;AAC7B,mBAAS,qDAAmB,QAAC,YAAM,CAAC,mEAAU,G7BhqG6G,QAAmD,GAAqD,E6BgqGhO,CAAN;AAC7B,qBAAW,uDAAqB,QAAC,YAAM,CAAC,qEAAU,EAAX,CAAN;AACjC,kCAAwB;AACxB,gCAAsB;AACtB,2BAAiB,qDAAmB,QAAC,YAAM,CAAC,mEAAU,S7BpqGqG,QAAmD,GAAqD,E6BoqGxN,CAAN;AACrC,6BAAmB,uDAAqB,QAAC,YAAM,CAAC,qEAAU,QAAX,CAAN;AACzC,2BAAiB,qDAAmB,QAAC;AACrC,wBAAa,SAAC,CAAS,QAAT;AACd,0CAAgC;AAChC,wCAA8B;AAC9B,2BAAiB,qDAAmB,QAAC;AACrC,wBAAa,SAAC,CAAS,QAAT;AACd,2BAAiB,qDAAmB,QAAC,YAAM,CAAC,mEAAU,G7B5qGqG,QAAmD,GAAqD,E6B4qGxN,CAAN;AACrC,6BAAmB,uDAAqB,QAAC,YAAM,CAAC,qEAAU,EAAX,CAAN;AACzC,6BAAmB,qDAAmB,QAAC,YAAM,CAAC,mEAAU,G7B9qGmG,QAAmD,GAAqD,E6B8qGtN,CAAN;AACvC,6BAAmB,qDAAmB,QAAC;AACvC,+BAAqB,uDAAqB,QAAC,YAAM,CAAC,qEAAU,EAAX,CAAN;AAC3C,0BAAe,SAAC,CAAS,QAAT;AAChB,4BAAkB,qDAAmB,QAAC,YAAM,CAAC,mEAAU,G7BlrGoG,QAAmD,GAAqD,E6BkrGvN,CAAN;AACtC,4BAAkB,qDAAmB,QAAC;AACtC,yBAAc,SAAC,CAAS,QAAT;AACf,8BAAoB,uDAAqB,QAAC,YAAM,CAAC,qEAAU,EAAX,CAAN;AAC1C,wBAAc,qDAAmB,QAAC,YAAM,CAAC,mEAAU,G7BtrGwG,QAAmD,GAAqD,E6BsrG3N,CAAN;AAClC,wBAAc,qDAAmB,QAAC;AAClC,qBAAU,SAAC,CAAS,GAAT;AACX,0BAAgB,uDAAqB,QAAC,YAAM,CAAC,qEAAU,EAAX,CAAN;AACtC,wBAAc,qDAAmB,QAAC,YAAM,CAAC,mEAAU,I7B1rGwG,QAAmD,GAAqD,E6B0rG3N,CAAN;AAClC,wBAAc,qDAAmB,QAAC;AAClC,qBAAU,SAAC,CAAS,QAAT;AACX,wBAAc;AAEd,qBAAU,QAAC,CAAQ,CAAR;AAKX,0BAAgB,uDAAqB,QAAC,YAAM,CAAC,qEAAU,GAAX,CAAN;AACtC,6BAAmB;AACnB,4BAAkB;AAElB,gBAAK,WAAL,GAAoB;AACpB,wBAAa,WAAb,GAA4B;AAC5B,wBAAa,WAAb,GAA4B;AAC5B,0BAAe,WAAf,GAA8B;AAC9B,yBAAc,WAAd,GAA6B;AAC7B,qBAAU,WAAV,GAAyB;AACzB,qBAAU,WAAV,GAAyB;AACzB,gBAAK,WAAL,GAAoB;AACpB,wBAAa,WAAb,GAA4B;AAC5B,wBAAa,WAAb,GAA4B;AAC5B,0BAAe,WAAf,GAA8B;AAC9B,yBAAc,WAAd,GAA6B;AAC7B,qBAAU,WAAV,GAAyB;AACzB,qBAAU,WAAV,GAAyB;AACzB,kBAAO,WAAP,GAAsB;AACtB,0BAAe,WAAf,GAA8B;AAC9B,0BAAe,WAAf,GAA8B;AAC9B,4BAAiB,WAAjB,GAAgC;AAChC,2BAAgB,WAAhB,GAA+B;AAC/B,uBAAY,WAAZ,GAA2B;AAC3B,uBAAY,WAAZ,GAA2B;AA/DoB;AAAD;AAkEA;AAExC,eAAN,KAAM;AACE,eAAR,KAAQ;AACF,eAAN,KAAM;AACQ,eAAd,KAAc;AACE,eAAhB,KAAgB;AACF,eAAd,KAAc;AACA,eAAd,KAAc;AACE,eAAhB,KAAgB;AACF,eAAd,KAAc;AACE,eAAhB,KAAgB;AACA,eAAhB,KAAgB;AACE,eAAlB,KAAkB;AACH,eAAf,KAAe;AACA,eAAf,KAAe;AACE,eAAjB,KAAiB;AACN,eAAX,KAAW;AACA,eAAX,KAAW;AACE,eAAb,KAAa;AACF,eAAX,KAAW;AACA,eAAX,KAAW;AACE,eAAb,KAAa;AACb;AAvB8C;AA7GF;AAE5C,UAAa,kCAAH,eAAP,MAAO,CAAV;AAEE,kBAAK,OAAO,CAAS,OAAP,OAAU,kCAAH,CAAiC,MAA1C;AACZ,oBAAO,OAAO,CAAS,OAAP,OAAU,kCAAH,CAAiC,QAA1C;AACd,kBAAK,aAAa,CAAS,OAAP,OAAU,kCAAH,CAAiC,MAA1C;AAClB,kCAA8B,OAAP,OAAU,kCAAH,CAAiC;AAC/D,oCAAgC,OAAP,OAAU,kCAAH,CAAiC;AACjE,0BAAa,OAAO,CAAS,OAAP,OAAU,kCAAH,CAAiC,cAA1C;AACpB,4BAAe,OAAO,CAAS,OAAP,OAAU,kCAAH,CAAiC,gBAA1C;AACtB,0BAAa,aAAa,CAAS,OAAP,OAAU,kCAAH,CAAiC,cAA1C;AAC1B,0CAAsC,OAAP,OAAU,kCAAH,CAAiC;AACvE,4CAAwC,OAAP,OAAU,kCAAH,CAAiC;AACzE,0BAAa,OAAO,CAAS,OAAP,OAAU,kCAAH,CAAiC,cAA1C;AACpB,4BAAe,OAAO,CAAS,OAAP,OAAU,kCAAH,CAAiC,gBAA1C;AACtB,0BAAa,aAAa,CAAS,OAAP,OAAU,kCAAH,CAAiC,cAA1C;AAC1B,4BAAe,OAAO,CAAS,OAAP,OAAU,kCAAH,CAAiC,gBAA1C;AACtB,4BAAe,aAAa,CAAS,OAAP,OAAU,kCAAH,CAAiC,gBAA1C;AAC5B,8BAAiB,OAAO,CAAS,OAAP,OAAU,kCAAH,CAAiC,kBAA1C;AACxB,2BAAc,OAAO,CAAS,OAAP,OAAU,kCAAH,CAAiC,eAA1C;AACrB,2BAAc,aAAa,CAAS,OAAP,OAAU,kCAAH,CAAiC,eAA1C;AAC3B,6BAAgB,OAAO,CAAS,OAAP,OAAU,kCAAH,CAAiC,iBAA1C;AACvB,uBAAU,OAAO,CAAS,OAAP,OAAU,kCAAH,CAAiC,WAA1C;AACjB,uBAAU,aAAa,CAAS,OAAP,OAAU,kCAAH,CAAiC,WAA1C;AACvB,yBAAY,OAAO,CAAS,OAAP,OAAU,kCAAH,CAAiC,aAA1C;AACnB,uBAAU,OAAO,CAAS,OAAP,OAAU,kCAAH,CAAiC,WAA1C;AACjB,uBAAU,aAAa,CAAS,OAAP,OAAU,kCAAH,CAAiC,WAA1C;AACvB,yBAAY,OAAO,CAAS,OAAP,OAAU,kCAAH,CAAiC,aAA1C;AACnB,+BAA2B,OAAP,OAAU,kCAAH,CAAiC;AAC5D,8BAA0B,OAAP,OAAU,kCAAH,CAAiC;AAC3D,0BAAsB,OAAP,OAAU,kCAAH,CAAiC;OAGvD;AAlC0C;AAvoHf;AAgET;AAKL,4B7BydI,+D6BzdJ;AACA,4B7BofI,+D6BpfJ;AACE,8B7BmmBI,iE6BnmBJ;AACW,yC7B0PJ,oE6B1PI;AACE,2C7ByPN,oE6BzPM;AACP,oC7BodJ,+D6BpdI;AACA,oC7B+eJ,+D6B/eI;AACE,sC7B8lBJ,iE6B9lBI;AACW,iD7BqPZ,oE6BrPY;AACE,mD7BoPd,oE6BpPc;AACf,oC7B+cJ,+D6B/cI;AACA,oC7B0eJ,+D6B1eI;AACE,sC7BylBJ,iE6BzlBI;AACA;AACD;AACC,sC7B0cN,+D6B1cM;AACA,sC7BqeN,+D6BreM;AACE,wC7BolBN,iE6BplBM;AACH,qC7BucL,+D6BvcK;AACA,qC7BkeL,+D6BleK;AACE,uC7BilBL,iE6BjlBK;AACN,iC7BocD,+D6BpcC;AACA,iC7B+dD,+D6B/dC;AACE,mC7B8kBD,iE6B9kBC;AACF,iC7BicD,+D6BjcC;AACA,iC7B4dD,+D6B5dC;AACE,mC7B2kBD,iE6B3kBC;AACF;AAhGS;AAmGA;;;AAE3B;AACA;AAH2B;;;;;;AAy5HkB;AAG/C,UAAG,YAAQ,KAAG,KAAd,EACE,YAAO,OAAO,CAAC,KAAD,CADhB;AAH+C;AAlBF;AAE7C,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAF6C;AAyBM;AAEnD;AAFmD;AAnBL;AAE9C,qBAAW,uDAAqB,QAAC,YAAM,CAAC,qEAAU,QAAX,CAAN;AACjC,kBAAO,WAAP,GAAsB;AAHyB;AAAD;AAMA;AAEtC,eAAR,KAAQ;AACR;AAH8C;AApBF;AAE5C,UAAa,kCAAH,eAAP,MAAO,CAAV;AACE,oBAAO,OAAO,CAAS,OAAP,OAAU,kCAAH,CAAiC,QAA1C;AAEd;AAL0C;AA/3Hf;AAST;AAKH,8B7ByjBI,iE6BzjBJ;AAdY;AAiBM;;;AAEjC;AACA;AACA;AACA;AACA;AACA;AACA;AARiC;;;;;;;;AA28HgB;AAEnD,UAAG,UAAM,KAAG,KAAZ,EACE,UAAK,OAAO,CAAC,KAAD,CADd;AAFmD;AAMA;AAEnD,gBAAK,aAAa,CAAC,KAAD;AAFiC;AAeE;AAGrD,UAAG,YAAQ,KAAG,KAAd,EACE,YAAO,OAAO,CAAC,KAAD,CADhB;AAHqD;AAiBC;AAEtD,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAFsD;AA3BY;AAGlE,UAAG,yBAAqB,KAAG,KAA3B;AAEE,oCAAwB;AACxB;OAHF;AAHkE;AAiBF;AAGhE,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB;OAHF;AAHgE;AAlEb;AAEnD,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAFmD;AA4BI;AAEvD;AAFuD;AAKA;AAEvD;AAFuD;AAoDE;AAEzD;AAFyD;AA/EL;AAEpD,sBAAY;AACZ,mBAAS,qDAAmB,QAAC,YAAM,CAAC,mEAAU,G7B7gH6G,QAAmD,GAAqD,E6B6gHhO,CAAN;AAC7B,mBAAS,qDAAmB,QAAC;AAC7B,qBAAW,uDAAqB,QAAC,YAAM,CAAC,qEAAU,EAAX,CAAN;AACjC,kCAAwB;AACxB,gCAAsB;AAEtB,gBAAK,WAAL,GAAoB;AACpB,gBAAK,WAAL,GAAoB;AACpB,kBAAO,WAAP,GAAsB;AAX+B;AAAD;AAcA;AAE9C,eAAN,KAAM;AACA,eAAN,KAAM;AACE,eAAR,KAAQ;AACR;AALoD;AAnCF;AAElD,UAAa,wCAAH,eAAP,MAAO,CAAV;AAEE,wBAAoB,OAAP,OAAU,wCAAH,CAAuC;AAC3D,kBAAK,OAAO,CAAS,OAAP,OAAU,wCAAH,CAAuC,MAAhD;AACZ,oBAAO,OAAO,CAAS,OAAP,OAAU,wCAAH,CAAuC,QAAhD;AACd,kBAAK,aAAa,CAAS,OAAP,OAAU,wCAAH,CAAuC,MAAhD;AAClB,oCAAgC,OAAP,OAAU,wCAAH,CAAuC;AACvE,kCAA8B,OAAP,OAAU,wCAAH,CAAuC;OAGrE;AAZgD;AAt5Hf;AAqBf;AAKF;AACH,4B7B2aI,+D6B3aJ;AACA,4B7B8YI,+D6B9YJ;AACE,8B7ByhBI,iE6BzhBJ;AACW,yC7BgLJ,oE6BhLI;AACE,2C7B+KN,oE6B/KM;AA/BK;AAkCN;;AAEQ;;;AAEnC;AACA;AAHmC;AAosJiC;AAGtE,UAAG,2BAAuB,KAAG,KAA7B;AAEE,YAAG,KAAM,GAAE,CAAX;AACE,wCAA0B;AAE1B,4CAA0B;OAL9B;AAHsE;AAYC;AAGvE,UAAG,4BAAwB,KAAG,KAA9B;AAEE,YAAG,KAAM,GAAE,CAAX;AACE,yCAA2B;AAE3B,6CAA2B;OAL/B;AAHuE;AAlBjB;AAEtD,qCAA2B;AAC3B,oCAA0B;AAH6B;AAAD;AAXF;AAEpD,UAAc,0CAAH,eAAP,MAAO,CAAX;AAEE,uCAAmC,OAAP,OAAU,0CAAH,CAAyC;AAC5E,sCAAkC,OAAP,OAAU,0CAAH,CAAyC;OAG3E;AARkD;AAnrJf;AAOjB;AAGa;AACD;AAXK;AAcL;;;AAE9B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAT8B;;;;;AAynI2B;AAE3D,UAAG,qBAAiB,KAAG,KAAvB,EACE,wBAAoB,KADtB;AAF2D;AAMJ;AAEvD,UAAG,iBAAa,KAAG,KAAnB,EACE,oBAAgB,KADlB;AAFuD;AAaC;AAExD,UAAG,kBAAc,KAAG,KAApB,EACE,qBAAiB,KADnB;AAFwD;AAPE;AAG1D,UAAG,oBAAgB,KAAG,KAAtB,EACE,uBAAmB,KADrB;AAH0D;AAaD;AAEzD,UAAG,mBAAe,KAAG,KAArB,EACE,sBAAkB,KADpB;AAFyD;AAvCM;AAG/D,UAAG,yBAAqB,KAAG,KAA3B,EACE,4BAAwB,KAD1B;AAH+D;AAOD;AAG9D,UAAG,wBAAoB,KAAG,KAA1B,EACE,2BAAuB,KADzB;AAH8D;AAsCP;AAGvD,uBAAY,OAAO,CAAC,KAAD;AAHoC;AAhEN;AAEjD;AACA,8BAAoB;AACpB,0BAAgB;AAChB,2BAAiB;AACjB,6BAAmB;AACnB,4BAAkB;AAClB,kCAAwB;AACxB,iCAAuB;AACvB,0BAAgB,0CAAqC,QAAC;AAVJ;AAAD;AAaA;AAEpC,eAAb,KAAa;AACb;AAHiD;AA9BF;AAE/C,UAAa,qCAAH,eAAP,MAAO,CAAV;AAEE,gCAA4B,OAAP,OAAU,qCAAH,CAAoC;AAChE,4BAAwB,OAAP,OAAU,qCAAH,CAAoC;AAC5D,6BAAyB,OAAP,OAAU,qCAAH,CAAoC;AAC7D,+BAA2B,OAAP,OAAU,qCAAH,CAAoC;AAC/D,8BAA0B,OAAP,OAAU,qCAAH,CAAoC;AAC9D,mCAA+B,OAAP,OAAU,qCAAH,CAAoC;AACnE,oCAAgC,OAAP,OAAU,qCAAH,CAAoC;AACpE,yBAAY,OAAO,CAAS,OAAP,OAAU,qCAAH,CAAoC,aAA7C;OAGnB;AAd6C;AAvkIf;AA6BZ;AA7BY;AAkCN;;AAEG;AACC;AACR,mCApDe,oDAoDf;AACA;AACI;AACH;AACC;AACC,sCA3DI,4CA2DJ;AATC;AAYH;;;AAErB;AAFqB;AAy6HgB;AAEvC,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACT;OAHF;AAFuC;AASD;AAEjB,sBAAW,OAAO,CAAC,IAAD;AAFD;AAjBA;AAEtC,UAAc,4BAAH,eAAP,MAAO,CAAX;AACE,qBAAiB,OAAP,OAAU,4BAAH,CAA2B;AAE5C;AALoC;AAj6Hf;AASR,4BpH1YV,0BoH0YU;AATQ;AAYH;;;AAElB;AAFkB;;;;;AA8+HgB;AAG1B,kBAAK,CAAC,MAAU,KAAX;AAHqB;AAtDD;AAAP;AAE5B,eAA4C,YAAK,CAAC,KAAD;AAFrB;AAAO;AANE;AAErC,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAFqC;AAmFF;AAEnC;AACA;AAHmC;AA1DI;AAEvC;AAEA,kBAAa;AACb,eAAS,QAAC,CAAQ,KAAR;AAL6B;AAQQ;AAE/C;AACA;AAEA,qBAAU,CAAC,SAAD;AACV,cAAS;AAET,UAAG,yBAAW,CAAC,UAAW,OAAZ,CAAqB,KAAE,CAAC,CAAtC;AAEE,iBAAS,QAAqC,OAAhC,yBAAW,CAAC,UAAW,OAAZ,CAAqB,GAAE,CAAF,kBAA9C;AAAI;AAEF,kBAAS,oBAAM,CAAC,MAAO,CAAR;AACf,yBAAU,CAAC,KAAD;;OALd;AASA,UAAG,yBAAW,CAAC,QAAS,SAAV,CAAqB,KAAE,CAAC,CAAtC;AAEE,iBAAS,SAAqC,QAAhC,yBAAW,CAAC,QAAS,SAAV,CAAqB,GAAE,CAAF,qBAA9C;AAAI;AAEF,kBAAS,oBAAM,CAAC,MAAO,CAAC,CAAT;AACf,yBAAU,CAAC,KAAD;;OALd;AAjB+C;AAsCN;AAEzC;AAEA,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AACF,YAAG,cAAK,CAAC,CAAD,CAAG,MAAM,KAAE,KAAnB;AAEE,qBAAM,CAAC,CAAD;AACN;SAHF;;AALuC;AALD;AAExC;AAFwC;AAvET;AAAH;AAE5B,eAA4C;AAFhB;AAAG;AAgBS;AAAZ;AAE5B;AAEA,eAAU;AAEV,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AACF,YAAG,yBAAW,CAAC,cAAK,CAAC,CAAD,CAAG,OAAO,KAAhB,CAAuB,KAAE,CAAvC;AAEE,mBAAU;AACV;SAHF;;AAP0B;AAAY;AA77HpB;AAmBI;;;AAEtB;AACA;AACA;AACA;AACA;AANsB;AAu6IsB;AAE9C,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf;OAHF;AAF8C;AASI;AAGlD,UAAG,oBAAgB,KAAG,KAAtB;AAEE,+BAAmB;AACnB;OAHF;AAHkD;AAUJ;AAE9C,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf;OAHF;AAF8C;AASN;AAExC,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACT;OAHF;AAFwC;AASK;AAE7C,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd;OAHF;AAF6C;AA1CD;AAAZ;AAEhC,eAAU,UAAK,KAAG,EAAH;AAFiB;AAAY;AAmDL;AAEjB,sBAAW,OAAO,CAAC,IAAD;AAFD;AA3EA;AAEvC,UAAa,6BAAH,eAAP,MAAO,CAAV;AAEE,2BAAuB,OAAP,OAAU,6BAAH,CAA4B;AACnD,+BAA2B,OAAP,OAAU,6BAAH,CAA4B;AACvD,2BAAuB,OAAP,OAAU,6BAAH,CAA4B;AACnD,qBAAiB,OAAP,OAAU,6BAAH,CAA4B;AAC7C,0BAAsB,OAAP,OAAU,6BAAH,CAA4B;AAClD,qBAAiB,OAAP,OAAU,6BAAH,CAA4B;OAG7C;AAZqC;AAeE;AAEzC;AACA,wBAAc;AACd,yBAAe;AACf,6BAAmB;AACnB,mBAAQ,kBAAR;AANoE;AAA3B;AAz5IjB;AAiBJ,+BAAY,e3GpBrB,gC2GoBqB,CAAZ;AAEC;AACD;AACK,sCtGzHnB,uCsGyHmB;AACJ,kCtG1Hf,uCsG0He;AACN;AAvBS;AA0BH;AA49IgB;AAG3B,oBAAK,CAAC,MAAU,KAAX;AAHsB;AAND;AAAP;AAG7B,eAA6C,cAAK,CAAC,KAAD;AAHrB;AAAO;AApBJ;AAAH;AAE7B,eAA6C;AAFhB;AAAG;AAKyB;AAA5B;AAG7B;AAEA,eAAU;AAEV,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AACF,YAAG,yBAAW,CAAC,cAAK,CAAC,CAAD,CAAG,OAAO,KAAhB,CAAuB,KAAE,CAAvC;AAEE,mBAAU,cAAK,CAAC,CAAD;AACf;SAHF;;AAR2B;AAA4B;AAv8IpC;AAiBE;;;AAErB;AAKA;AAEA;AACA;AACA;AAXqB;;;;;;;AAuhJqB;AAE5C,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd;OAHF;AAF4C;AASJ;AAExC,iBAAM,OAAO,CAAC,KAAD;AAF2B;AAtCO;AAE/C,wBAAuB,MAAO,KAA9B;AAF+C;AAKR;AAEvC;AACA;AAEA,iBAAM,OAAM;AAEZ,eAAS,QAAkB,OAAb,WAAM,SAAC,EAAM,GAAE,CAAF,kBAA3B;AAAI;AAEF,aAAM,6BAAS,QAAC,YAAM,CAAC,WAAD,CAAN;AAChB,UAAE,SAAF,GAAc;AACd,UAAE,KAAF,GAAU;AACV,UAAE,QAAC,CAAQ,UAAW,GAAE,WAAM,KAAC,CAAD,CAA3B;AACH,UAAE,WAAC,CAAW,WAAM,KAAC,CAAD,CAAjB;AACH,UAAE,WAAF,GAAgB;AAChB,UAAE,WAAF,GAAgB;AAChB,UAAE,WAAC,CAAW,CAAE,KAAE,eAAf;AACH,mBAAM,OAAM,IAAI,CAAC,EAAD;;AAGlB,UAAI,WAAM,SAAC,EAAM,GAAE,CAAnB,EACE,WAAM,MAAM,CAAC,UAAK,CAAC,KAAD,EAAS,UAAK,CAAC,IAAK,GAAK,CAAH,EAAG,GAAE,gBAAF,CAAX,CAApB,CADd;AApBuC;AAXC;AAExC,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAFwC;AArBA;AAExB,gDAAC,MAAD;AAKhB,oBAAU,iCAAa,QAAC,YAAM,CAAC,sCAAY,cAAc,CAAC,MAAD,CAA3B,CAAN;AACxB,iBAAM,UAAC,CAAU,sCAAY,cAAc,CAAC,MAAD,CAApC;AAEP,oBAAU,uBAAW,QAAC;AACtB,yBAAe;AAXyD;AAAhC;AAcA;AAEjC,eAAP,KAAO;AACA,eAAP,KAAO;AACP;AAJwC;AAuDK;AAE7C,yBAAe;AAF8B;AAjFR;AAOrC,kBAAO,CAAC,MAAM,GAAI,MAAM,EAAjB;AAP8B;AAn9Id;;AAmBH,+BAAO,UAsDN,mCAtDM,CAAP;AAnBG;AA6Ba,2FAAmB,UpHtbhD,2BoHsbgD,EAAoB,a3Bha5D,qD2Bga4D,EAAwB,S9BlP7F,yC8BkP6F,EAAoB,yBAA2B,8BAA9G;AACD,0FAAmB,UpHvb/C,2BoHub+C,EAAoB,a3Bja3D,qD2Bia2D,EAAwB,S9BnP5F,yC8BmP4F,CAA/D;AACK,+FAAmB,UpHxbpD,2BoHwboD,EAAoB,a3BlahE,qD2BkagE,EAAwB,S9BpPjG,yC8BoPiG,EAAe,qBAA8B,wB7BK5H,mE6BL4H,EAAoB,sB7BKhJ,mE6BLgJ,EAAsC,yBAA2B,8BAAjM;AACD,8FAAmB,UpHzbnD,2BoHybmD,EAAoB,a3Bna/D,qD2Bma+D,EAAwB,S9BrPhG,yC8BqPgG,EAAe,qBAA8B,wB7BI3H,mE6BJ2H,EAAoB,sB7BI/I,mE6BJ+I,CAAhI;AACH,2FAAmB,UpH1bhD,2BoH0bgD,EAAoB,a3Bpa5D,qD2Boa4D,EAAyB,U9BtP9F,yC8BsP8F,EAAoB,yBAA2B,8BAA/G;AACD,0FAAmB,UpH3b/C,2BoH2b+C,EAAoB,a3Bra3D,qD2Bqa2D,EAAyB,U9BvP7F,yC8BuP6F,CAAhE;AACK,+FAAmB,UpH5bpD,2BoH4boD,EAAoB,a3BtahE,qD2BsagE,EAAwB,S9BxPjG,yC8BwPiG,EAAe,qBAA8B,wB7BC5H,mE6BD4H,EAAoB,sB7BChJ,mE6BDgJ,EAAsC,yBAA2B,8BAAjM;AACD,8FAAmB,UpH7bnD,2BoH6bmD,EAAoB,a3Bva/D,qD2Bua+D,EAAwB,S9BzPhG,yC8ByPgG,EAAe,qBAA8B,wB7BA3H,mE6BA2H,EAAoB,sB7BA/I,mE6BA+I,CAAhI;AACD,6FAAmB,UpH9blD,2BoH8bkD,EAAoB,a3Bxa9D,qD2Bwa8D,EAAwB,S9B1P/F,yC8B0P+F,EAAoB,yBAA2B,8BAA9G;AACD,4FAAmB,UpH/bjD,2BoH+biD,EAAoB,a3Bza7D,qD2Bya6D,EAAwB,S9B3P9F,yC8B2P8F,CAA/D;AACK,iGAAmB,UpHhctD,2BoHgcsD,EAAoB,a3B1alE,qD2B0akE,EAAwB,S9B5PnG,yC8B4PmG,EAAe,qBAA8B,wB7BH9H,mE6BG8H,EAAoB,sB7BHlJ,mE6BGkJ,EAAsC,yBAA2B,8BAAjM;AACD,gGAAmB,UpHjcrD,2BoHicqD,EAAoB,a3B3ajE,qD2B2aiE,EAAwB,S9B7PlG,yC8B6PkG,EAAe,qBAA8B,wB7BJ7H,mE6BI6H,EAAoB,sB7BJjJ,mE6BIiJ,CAAhI;AACD,+FAAmB,UpHlcpD,2BoHkcoD,EAAoB,a3B5ahE,qD2B4agE,EAAwB,S9B9PjG,yC8B8PiG,EAAe,SpHpfjH,yBoHofiH,EAAmB,yBAA2B,8BAA5H;AACD,8FAAmB,UpHncnD,2BoHmcmD,EAAoB,a3B7a/D,qD2B6a+D,EAAwB,S9B/PhG,yC8B+PgG,EAAe,SpHrfhH,yBoHqfgH,CAA9E;AACK,mGAAmB,UpHpcxD,2BoHocwD,EAAoB,a3B9apE,qD2B8aoE,EAAwB,S9BhQrG,yC8BgQqG,EAAe,qBAA8B,wB7BPhI,mE6BOgI,EAAoB,sB7BPpJ,mE6BOoJ,EAAsC,yBAA2B,8BAAjM;AACD,kGAAmB,UpHrcvD,2BoHqcuD,EAAoB,a3B/anE,qD2B+amE,EAAwB,S9BjQpG,yC8BiQoG,EAAe,qBAA8B,wB7BR/H,mE6BQ+H,EAAoB,sB7BRnJ,mE6BQmJ,CAAhI;AACR,0FAAmB,UpHtc/C,2BoHsc+C,EAAoB,a3Bhb3D,qD2Bgb2D,EAA6B,yBAA2B,8BAA/F;AACD,yFAAmB,UpHvc9C,2BoHuc8C,EAAoB,a3Bjb1D,qD2Bib0D,CAAvC;AACO,gGAAmB,UpHxcrD,2BoHwcqD,EAAoB,a3BlbjE,qD2BkbiE,EAAwB,S9BpQlG,yC8BoQkG,EAAoB,yBAA2B,8BAA9G;AACD,+FAAmB,UpHzcpD,2BoHycoD,EAAoB,a3BnbhE,qD2BmbgE,EAAwB,S9BrQjG,yC8BqQiG,CAA/D;AACK,oGAAmB,UpH1czD,2BoH0cyD,EAAoB,a3BpbrE,qD2BobqE,EAAwB,S9BtQtG,yC8BsQsG,EAAe,qBAA8B,wB7BbjI,mE6BaiI,EAAoB,sB7BbrJ,mE6BaqJ,EAAsC,yBAA2B,8BAAjM;AACD,mGAAmB,UpH3cxD,2BoH2cwD,EAAoB,a3BrbpE,qD2BqboE,EAAwB,S9BvQrG,yC8BuQqG,EAAe,qBAA8B,wB7BdhI,mE6BcgI,EAAoB,sB7BdpJ,mE6BcoJ,CAAhI;AACT,0FAAmB,UpH5c/C,2BoH4c+C,EAAoB,a3Btb3D,qD2Bsb2D,EAAwB,S9BxQ5F,yC8BwQ4F,EAAgB,UA9F1F,sCA8F0F,EAAsC,yBAA2B,8BAAhJ;AACD,yFAAmB,UpH7c9C,2BoH6c8C,EAAoB,a3Bvb1D,qD2Bub0D,EAAwB,S9BzQ3F,yC8ByQ2F,EAAgB,UA/FzF,sCA+FyF,CAA/E;AACK,8FAAmB,UpH9cnD,2BoH8cmD,EAAoB,a3Bxb/D,qD2Bwb+D,EAA6B,c9B1QrG,yC8B0QqG,EAAoB,yBAA2B,8BAAnH;AACD,6FAAmB,UpH/clD,2BoH+ckD,EAAoB,a3Bzb9D,qD2Byb8D,EAA6B,c9B3QpG,yC8B2QoG,CAApE;AACE,+FAAmB,UpHhdpD,2BoHgdoD,EAAoB,a3B1bhE,qD2B0bgE,EAA6B,c9B5QtG,yC8B4QsG,EAAoB,yBAA2B,8BAAnH;AACD,8FAAmB,UpHjdnD,2BoHidmD,EAAoB,a3B3b/D,qD2B2b+D,EAA6B,c9B7QrG,yC8B6QqG,CAApE;AACH,2FAAmB,UpHldhD,2BoHkdgD,EAAgB,SpHpgBlE,yBoHogBkE,CAAnC;AACJ,uFAAmB,UpHnd5C,2BoHmd4C,EAAgB,SpHrgB9D,yBoHqgB8D,CAAnC;AACK,4FAAmB,UpHpdjD,2BoHodiD,EAAqB,cpHtgBxE,yBoHsgBwE,EAAiB,YpHtgBzF,yBoHsgByF,CAAzD;AACN,sFAAmB,UpHrd3C,2BoHqd2C,EAAgB,qBAAnC;AACC,uFAAmB,UpHtd5C,2BoHsd4C,EAAiB,sBAApC;AACI,2FAAmB,UpHvdhD,2BoHudgD,EAAgB,SpHzgBlE,yBoHygBkE,EAAqB,gBpHzgBvF,yBoHygBuF,EAAmB,0BAA3E;AACD,0FAAmB,UpHxd/C,2BoHwd+C,EAAoB,a3Blc3D,qD2Bkc2D,EAAwB,S9BpR5F,yC8BoR4F,EAAoB,0BAAnF;AACD,yFAAmB,UpHzd9C,2BoHyd8C,EAAiB,uBAAgB,qBAApD;AACL,oFAAmB,UpH1dzC,2BoH0dyC,EAAqB,wBAAxC;AACQ,4FAAmB,UpH3djD,2BoH2diD,EAAqB,2BAAgB,qBAAxD;AACC,6FAAmB,UpH5dlD,2BoH4dkD,EAAqB,2BAAiB,uBAAsB,0BAA/E;AAMjB;;;AAGnB;AAAM;AAAQ;AACd;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAAU;AAAU;AACpB;AAAK;AACL;AACA;AACA;AACA;AACA;AAAY;AAAe;AAC3B;AACA;AAAU;AACV;AAAc;AAAc;AAAc;AAC1C;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AArEmB;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAq3Fe;AAEpC,UAAG,SAAK,KAAG,KAAX;AAEE,oBAAQ;AACR,qBAAS,uBAAU,CAAC,oBAAM,CAAC,UAAD,EAAS,qBAAO,CAAC,UAAD,EAAS,SAAhC;AACnB;OAJF;AAFoC;AAgJE;AAEtC,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACV,qBAAS,uBAAU,CAAC,oBAAM,CAAC,UAAD,EAAS,YAAQ,mBAAK,CAAC,UAAD,CAA7B;AACnB;OAJF;AAFsC;AAiBD;AAErC,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACT,qBAAS,uBAAU,CAAC,WAAO,qBAAO,CAAC,UAAD,EAAS,mBAAK,CAAC,UAAD,CAA7B;AACnB;OAJF;AAFqC;AA3II;AAEzC,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAFyC;AAuFF;AAEvC,kBAAO,OAAO,CAAC,KAAD;AAFyB;AAz1BI;AAG3C,oBAAa,eAAU,GAAE,OAAzB;AAH2C;AAu5BH;AAGxC,wBAAa,CAAM,CAAL,UAAK;;;;WAAO,OAAb;AACb,wBAAa,CAAM,CAAL,UAAK;;;;WAAQ,OAAd;AAJ2B;AAOA;AAGxC,wBAAa,CAAM,CAAL,UAAK;;;;WAAM,OAAZ;AACb,wBAAa,CAAM,CAAL,UAAK;;;;WAAS,OAAf;AAJ2B;AAx5BM;AAE9C,eAAc,CAAL,UAAK,GAAE,CAAF,CAAK,GAAI,CAAvB;AACA,UAAG,UAAK,KAAE,CAAV,EACE,SAAQ,CAAR,CADF;AAH8C;AAi0BF;AAG5C,gBAAS,oBAAM,CAAC,YAAO,MAAR,CAAf;AAEA,UAAG,oBAAM,CAAC,WAAD,CAAQ,GAAE,UAAnB;AAEE,yBAAY,CAAC,UAAD;AACZ,0BAAa,CAAC,WAAD;OAEV,UAAG,qBAAO,CAAC,WAAD,CAAQ,GAAE,WAApB;AAEH,0BAAa,CAAC,WAAD;OAFV;AAKL,mBAAQ,WAAR;AAf4C;AAlBC;AAG7C,gBAAS,oBAAM,CAAC,YAAO,MAAR,CAAf;AAEA,UAAG,oBAAM,CAAC,WAAD,CAAQ,GAAE,UAAnB;AAEE,yBAAY,CAAC,UAAD;AACZ,0BAAa,CAAC,WAAD;OAEV,UAAG,qBAAO,CAAC,WAAD,CAAQ,GAAE,WAApB;AAEH,0BAAa,CAAC,WAAD;OAFV;AAKL,mBAAQ,WAAR;AAf6C;AA/DK;AAGlD,6BAAkB,OAAO,CAAC,KAAD;AAHyB;AAhBH;AAG/C,0BAAe,OAAO,CAAC,KAAD;AAHyB;AA8HA;AAG/C,0BAAe,OAAO,CAAC,KAAD;AAHyB;AAkCM;AAGrD,gCAAqB,OAAO,CAAC,KAAD;AAC5B;AAJqD;AAlOP;AAG7B,iBAAZ,YAAM,OAAM;AACf,WADe,IACf,kDAAY,CADG,IACH,2CAAZ,IAAqB,CADN,IACM,4CAArB;AAEE,kBAAU,IAAV,GAAkB,OAAQ,GAAoB,CAAlB,YAAM,OAAM,MAAM,GAAE,CAAF,CAApB;AAC1B,kBAAU,OAAV,GAAqB,OAAQ,GAAoB,CAAlB,YAAM,OAAM,MAAM,GAAE,CAAF,CAApB;AAC7B,kBAAU,MAAV,GAAoB,WAAW,KAA0B,GAAlB,YAAM,OAAM,MAAd,GAAsB,CAAF;OAE3D,UAPe,IAOf;AAEE,kBAAU,IAAV,GAAkB,OAAQ,GAAmC,CAAjC,YAAM,OAAM,qBAAqB,GAAE,CAAF,CAAnC;AAC1B,kBAAU,OAAV,GAAqB,OAAQ,GAAmC,CAAjC,YAAM,OAAM,qBAAqB,GAAE,CAAF,CAAnC;AAC7B,kBAAU,MAAV,GAAoB,WAAW,KAAyC,GAAjC,YAAM,OAAM,qBAAd,GAAqC,CAAF;OAJ1E;AAQF,gBAAU,KAAV,GAAmB,WAAW,KAAM,GAAE,CAAF;AAlBU;AAqBC;AAG9B,iBAAZ,YAAM,OAAM;AACf,WADe,IACf,kDAAY,CADG,IACH,2CAAZ,IAAqB,CADN,IACM,4CAArB;AAEE,kBAAU,IAAV,GAAkB,OAAQ,GAAoB,CAAlB,YAAM,OAAM,MAAM,GAAE,CAAF,CAApB;AAC1B,kBAAU,OAAV,GAAqB,OAAQ,GAAoB,CAAlB,YAAM,OAAM,MAAM,GAAE,CAAF,CAApB;AAC7B,kBAAU,KAAV,GAAmB,WAAW,MAAgB,GAAP,CAAF,GAAW,YAAM,OAAM,MAAd;OAEhD,UAPe,IAOf;AAEE,kBAAU,IAAV,GAAkB,OAAQ,GAAoC,CAAlC,YAAM,OAAM,sBAAsB,GAAE,CAAF,CAApC;AAC1B,kBAAU,OAAV,GAAqB,OAAQ,GAAoC,CAAlC,YAAM,OAAM,sBAAsB,GAAE,CAAF,CAApC;AAC7B,kBAAU,KAAV,GAAmB,WAAW,MAAgB,GAAP,CAAF,GAAW,YAAM,OAAM,sBAAd;OAJhD;AAQF,gBAAU,MAAV,GAAoB,WAAW,MAAO,GAAE,CAAF;AAlBS;AAkFH;AAE5C,UAAG,iBAAa,KAAG,KAAnB,EACE,oBAAgB,KADlB;AAF4C;AAhDP;AAErC,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACT,oBAAQ,mBAAK,CAAC,UAAD;AACb,sBAAU,qBAAO,CAAC,UAAD;AACjB,qBAAS,oBAAM,CAAC,UAAD;OALjB;AAFqC;AAmIO;AAG5C,uBAAY,OAAO,CAAC,KAAD;AAHyB;AAYJ;AAExC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAFwC;AASA;AAExC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAFwC;AAxED;AAEvC,kBAAO,OAAO,CAAC,KAAD;AAFyB;AAvFS;AAGhD,8BAAoB;AACpB;AAJgD;AANN;AAE1C,UAAG,eAAW,KAAG,KAAjB,EACE,kBAAc,KADhB;AAF0C;AA8CH;AAGvC,kBAAO,OAAO,CAAC,KAAD;AAHyB;AA5gFF;AAAR;AAE7B,UAAG,UAAH;AACE,iBAAU;AAEV,qBAAU;AALiB;AAAQ;AAgpEI;AAAZ;AAG7B,eAAU,aAAI,CAAgB,CAAd,aAAc,GAAE,IAAF,CAAQ,GAAE,CAA1B;AAHe;AAAY;AAhBM;AAAlB;AAG7B;AAEA,UAAK;AAEL,UAAG,cAAH,EACE,IAAK,CAAE,GAAE,YAAO,QADlB;AAEA,UAAG,cAAH,EACE,IAAK,CAAE,GAAE,YAAO,QADlB;AAGA,UAAK,CAAE,GAAE,uBAAkB,QAApB;AACP,eAAU;AAbmB;AAAkB;AAr5BN;AAAZ;AAE7B;AACA;AACA;AAEA,gBAAW,YAAO;AAClB,UAAK;AAEL,UAAG,KAAH;AAEmB,mBAAZ,YAAM,OAAM;AACf,aADe,IACf,kDAAY,CADG,IACH,2CAAZ,IAAqB,CADN,IACM,4CAArB;AAA+B,cAAK,YAAM,OAAM;AAChD,kBAFe,IAEf,6CAAU,IAAK,YAAM,OAAM,qBAA3B;AAGF,YAAI,IAAJ,GAAqB,CAAR,OAAQ,GAAE,CAAF,CAAK,GAAK,CAAF,CAAE,GAAE,CAAF,CAAL;AAC1B,YAAI,OAAJ,GAAwB,CAAR,OAAQ,GAAE,CAAF,CAAK,GAAK,CAAF,CAAE,GAAE,CAAF,CAAL;AAC7B,YAAI,KAAJ,GAAa;AACb,YAAI,MAAJ,GAAc,CAAO,GAAE,CAAF;;AAIJ,oBAAZ,YAAM,OAAM;AACf,aADe,KACf,kDAAY,CADG,KACH,2CAAZ,IAAqB,CADN,KACM,4CAArB;AAA+B,cAAK,YAAM,OAAM;AAChD,kBAFe,KAEf,6CAAU,IAAK,YAAM,OAAM,sBAA3B;AAGF,YAAI,IAAJ,GAAqB,CAAR,OAAQ,GAAE,CAAF,CAAK,GAAK,CAAF,CAAE,GAAE,CAAF,CAAL;AAC1B,YAAI,OAAJ,GAAwB,CAAR,OAAQ,GAAE,CAAF,CAAK,GAAK,CAAF,CAAE,GAAE,CAAF,CAAL;AAC7B,YAAI,KAAJ,GAAa,eAAe,GAAP,CAAF,GAAW,CAAF;AAC5B,YAAI,MAAJ,GAAc,eAAM,GAAE,CAAF;;AAGtB,qBAAU,IAAV;AAlC6B;AAAY;AA4GK;AAE9C;AACA;AACA;AAAM;AAEN,gBAAK,+BAAK,CAAC,QAAQ,MAAO,QAAQ,KAAM,QAAQ,OAAQ,QAAQ,IAAK,GAAE,YAAO,QAApE,CAAV;AACA,aAAQ,2BAAc,gBAAgB,CAAC,eAAD,CAAc,GAAJ,GAAF,GAAQ,qBAAQ,CAAC,UAAD,CAAV;AACpD,cAAS,qBAAQ,CAAC,UAAD;AAEjB,UAAK,4CAAe,QAAC,YAAM,CAAC,IAAI,UAAC,G3BhnEyB,K2BgnE/B,CAAN;AACrB;AACE,SAAC,MAAK,OAAO,CAAC,YAAO,MAAR;AACb,2BAAc,CAAC,cAAc,CAAC,KAAM,2C3Bz/D0C,MAA4D,I2By/D7G,CAA7B;AACA,gDAAY,CAAC,WAAiD,CAAnB,CAAjB,CAAC,MAAgB,GAAP,CAAC,KAAH,GAAW,UAAU,MAAZ,CAAmB,GAAE,UAAU,KAAZ,CAAmB,GAAE,CAAF,CAAyC,CAApB,CAAf,YAAO,QAAQ,GAAE,UAAU,OAAZ,CAAoB,GAAE,UAAU,IAAZ,CAAkB,GAAE,CAAlI;AACZ,0BAAa,CAAC,cAAc,CAAC,MAAO,2C3B3/D0C,MAA4D,I2B2/D9G,CAA5B;AACA,kBAAU,MAAV,GAAqC,CAAjB,UAAU,MAAO,GAAE,SAAS,MAAX,CAAkB,GAAE,SAAS,KAAX;AAEvD,gDAAY,CAAC,UAAW,UAAU,MAAO,GAAE,SAAS,KAAX,CAAqD,CAAnB,CAAf,YAAO,QAAQ,GAAE,SAAS,OAAX,CAAmB,GAAE,SAAS,IAAX,CAAiB,GAAE,CAArG;AAPd;AASE,SAAE,eAAF,CAAE;AATJ;AAX8C;AAxDA;AAAjB;AAE7B;AAAG;AAAG;AAAG;AAAG;AAAS;AAErB,UAAK;AACL,UAAK;AACL,gBAAW,YAAO,aAAY;AAC9B,eAAU,YAAO,aAAY;AAEjB,iBAAP,YAAO;AACV,UADU,IACV;AAAW,YAAY,CAAN,eAAM,GAAE,CAAF,CAAK,GAAU,CAAP,MAAO,GAAE,CAAF,CAAV;AAC5B,gBAFU,IAEV;AAAY,YAAK,YAAO,aAAY;AACpC,gBAHU,IAGV,6EAAa,IAAK,eAAM,GAAE,MAA1B;AAGU,kBAAP,YAAO;AACV,UADU,KACV;AAAW,YAAK,gBAA8B,GAAL,CAAf,YAAO,QAAQ,GAAE,CAAF,CAAlB,GAAkC,CAAR,OAAQ,GAAE,CAAF,CAAX;AAC9C,gBAFU,KAEV;AAAY,YAAK,YAAO,aAAY;AACpC,gBAHU,KAGV,6EAAa,IAAK,gBAAO,GAAE,OAA3B;AAGF,UAAK,CAAE,GAAE,OAAF;AACP,UAAK,CAAE,GAAE,MAAF;AAEP,qBAAU,+BAAK,CAAC,EAAG,EAAG,EAAG,CAAV,CAAf;AAxB6B;AAAiB;AAkmBN;AAAX;AAG7B,eAAsB,CAAX,KAAK,KAAM,IAAG,MAAM,EAAT,CAAuE,IAAzC,CAAZ,KAAK,MAAO,IAAG,MAAM,EAAT,CAAjB,IAA6C,CAAV,KAAK,IAAK,IAAG,MAAM,EAAT,CAAf,IAA8C,CAAb,KAAK,OAAQ,IAAG,MAAM,EAAT,CAAlB;AAHhE;AAAW;AAz8CI;AAAf;AAE7B,eAAU,aAAS,KAAG,GAAH;AAFU;AAAe;AAKA;AAAf;AAE7B,eAAU,aAAS,KAAG,GAAH;AAFU;AAAe;AAw1BD;AAAd;AAE7B,eAAU;AAFmB;AAAc;AALI;AAAlB;AAE7B,eAAU;AAFmB;AAAkB;AA6hBC;AAAnB;AAE7B,eAAU,iBAAY,KAAG,GAAH;AAFO;AAAmB;AAmxBL;AAE3C,sBAAW,OAAO,CAAC,KAAD;AAFyB;AA3vCA;AAAd;AAE7B,UAAG,CAAY,CAAC,iBAAD,SAAf;AAEE,4BAAgB,4BAAuB,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,yBAAY,UAAZ,GAA0B;OAH5B;AAaA,eAAU;AAfmB;AAAc;AA+CD;AAAb;AAE7B,UAAG,CAAY,CAAC,gBAAD,SAAf;AAEE,2BAAe,4BAAuB,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,wBAAW,UAAX,GAAyB;OAH3B;AAaA,eAAU;AAfmB;AAAa;AAgpBF;AAExC;AAEA;AACA,UAAK;AACL,UAAG,wCAAa,4BAA4B,CAAC;;;;UAAD,CAA5C;AAEE,kBAAI,SAAC,CAAS,CAAT;AACL,4BAAc,MAAK,SAAC,CAAS,CAAT;AACpB,4BAAc,QAAO,QAAC,CAAQ,mEAAR;AACtB,4BAAc,eAAc,SAAC,CAAS,CAAT;AAC7B,4BAAc,iBAAgB,QAAC,CAAQ,mEAAR;AAC/B,4BAAc,gBAAe,SAAC,CAAS,CAAT;AAC9B,4BAAc,kBAAiB,QAAC,CAAQ,mEAAR;AAChC,4BAAc,cAAa,SAAC,CAAS,CAAT;AAC5B,4BAAc,gBAAe,QAAC,CAAQ,mEAAR;AAC9B,4BAAc,WAAU,SAAC,CAAS,CAAT;AACzB,4BAAc,aAAY,QAAC,CAAQ,mEAAR;AAC3B,kCAAoB,MAAK,SAAC,CAAS,CAAT;AAC1B,kCAAoB,QAAO,QAAC,CAAQ,mEAAR;AAC5B,+BAAiB,QAAO,QAAC,CAAQ,mEAAR;AACzB,+BAAiB,MAAK,SAAC,CAAS,CAAT;OAhBzB;AAmBA,UAAK;AACL,UAAG,wCAAa,2BAA2B,CAAC;;;;UAAD,CAA3C;AAEE,4BAAc,cAAa,SAAC,CAAS,CAAT;AAC5B,4BAAc,gBAAe,SAAC,CAAS,CAAT;OAHhC;AAMA,UAAK;AACL,UAAG,wCAAa,sBAAsB,CAAC;;;;UAAD,CAAtC;AAEE,oBAAM,SAAC,CAAS,CAAT;AACP,oBAAM,QAAO,SAAC,CAAS,CAAT;AACd,oBAAM,QAAO,SAAC,CAAS,CAAT;AACd,4BAAc,QAAO,SAAC,CAAS,CAAT;AACtB,oBAAM,OAAM,SAAC,CAAS,CAAT;OANf;AASA,UAAK;AACL,UAAG,wCAAa,wBAAwB,CAAC;;;;UAAD,CAAxC;AAEE,oBAAM,MAAK,SAAC,CAAS,CAAT;AACZ,oBAAM,MAAK,SAAC,CAAS,CAAT;OAHd;AAMA,UAAK;AACL,UAAG,wCAAa,0BAA0B,CAAC;;;;UAAD,CAA1C;AAEE,oBAAM,MAAK,QAAC,CAAQ,qEAAR;AACZ,oBAAM,MAAK,WAAC,CAAW,CAAX;AACZ,oBAAM,MAAK,QAAC,CAAQ,qEAAR;AACZ,oBAAM,MAAK,WAAC,CAAW,CAAX;OALd;AAQA,UAAK;AACL,UAAG,wCAAa,6BAA6B,CAAC;;;;UAAD,CAA7C,EACE,oBAAc,WAAU,SAAC,CAAS,CAAT,CAD3B;AAGA,UAAK;AACL,UAAG,wCAAa,sBAAsB,CAAC;;;;UAAD,CAAtC;AAEE,YAAG,CAAE,KAAE,CAAP;AAEE,8BAAc,eAAc,SAAC,CAAS,yCAAO,CAAC,EAAG,EAAJ,CAAhB;AAC7B,8BAAc,gBAAe,SAAC,CAAS,yCAAO,CAAC,EAAG,EAAJ,CAAhB;AAC9B,8BAAc,cAAa,SAAC,CAAS,yCAAO,CAAC,EAAG,EAAJ,CAAhB;;AAI5B,8BAAc,eAAc,SAAC,CAAS,uCAAK,CAAC,EAAG,UAAI,QAAQ,EAAhB,CAAd;AAC7B,8BAAc,gBAAe,SAAC,CAAS,uCAAK,CAAC,EAAG,UAAI,QAAQ,EAAhB,CAAd;AAC9B,8BAAc,cAAa,SAAC,CAAS,uCAAK,CAAC,EAAG,UAAI,QAAQ,EAAhB,CAAd;;AAG9B,4BAAc,cAAa,SAAC,CAAS,CAAT;AAC5B,4BAAc,MAAK,SAAC,CAAS,CAAT;AACpB,oBAAM,MAAK,SAAC,CAAS,CAAT;AACZ,oBAAM,MAAK,SAAC,CAAS,CAAT;AACZ,+BAAiB,MAAK,SAAC,CAAS,CAAT;AACvB,kCAAoB,MAAK,SAAC,CAAS,CAAT;OApB5B;AA/DwC;AA6MS;AAEjD;AAEA,gBAAI,QAAC,CAAQ,kEAAR;AACL,kBAAM,QAAC,CAAQ,oEAAR;AACP,gBAAI,SAAC,CAAS,QAAT;AACL,kBAAM,SAAC,CAAS,QAAT;AAEP,kBAAM,MAAK,QAAC,CAAQ,qEAAR;AAOZ,kBAAM,MAAK,SAAC,CAAS,QAAT;AACZ,kBAAM,MAAK,WAAC,CAAW,QAAX;AACZ,kBAAM,MAAK,SAAC,CAAS,QAAT;AAEZ,kBAAM,QAAO,QAAC,CAAQ,oEAAR;AACd,kBAAM,QAAO,SAAC,CAAS,QAAT;AACd,kBAAM,OAAM,SAAC,CAAS,OAAT;AACb,4CAAY,YAAY,CAAC,YAAM,OAAO,GlC//F4C,CkC+/F1D;AAExB,kBAAM,MAAK,OAAO,CAAC,YAAM,MAAP;AAClB,kBAAM,QAAO,OAAO,CAAC,YAAM,QAAP;AACpB,kBAAM,MAAK,OAAO,CAAC,YAAM,MAAP;AAClB,kBAAM,MAAK,SAAC,CAAS,EAAT;AAEZ,0BAAc,QAAO,QAAC,CAAQ,oEAAR;AACtB,0BAAc,QAAO,SAAC,CAAS,QAAT;AAEtB,6BAAiB,MAAK,QAAC,CAAQ,kEAAR;AACvB,6BAAiB,QAAO,QAAC,CAAQ,oEAAR;AACzB,6BAAiB,MAAK,SAAC,CAAS,EAAT;AACvB,6BAAiB,QAAO,SAAC,CAAS,EAAT;AAKzB,6BAAiB,MAAK,SAAC,CAAS,QAAT;AAGvB,gCAAoB,MAAK,QAAC,CAAQ,kEAAR;AAC1B,gCAAoB,QAAO,QAAC,CAAQ,oEAAR;AAC5B,gCAAoB,MAAK,SAAC,CAAS,EAAT;AAC1B,gCAAoB,QAAO,SAAC,CAAS,EAAT;AAC5B,gCAAoB,MAAK,SAAC,CAAS,uBAAiB,MAAK,OAA/B;AAE1B,0BAAc,eAAc,QAAC,CAAQ,kEAAR;AAC7B,0BAAc,iBAAgB,QAAC,CAAQ,oEAAR;AAC/B,0BAAc,gBAAe,QAAC,CAAQ,kEAAR;AAC9B,0BAAc,kBAAiB,QAAC,CAAQ,oEAAR;AAChC,0BAAc,cAAa,QAAC,CAAQ,kEAAR;AAC5B,0BAAc,gBAAe,QAAC,CAAQ,oEAAR;AAC9B,0BAAc,MAAK,QAAC,CAAQ,kEAAR;AACpB,0BAAc,QAAO,QAAC,CAAQ,oEAAR;AACtB,0BAAc,cAAa,QAAC,CAAQ,kEAAR;AAC5B,0BAAc,gBAAe,QAAC,CAAQ,oEAAR;AAC9B,0BAAc,WAAU,QAAC,CAAQ,kEAAR;AACzB,0BAAc,aAAY,QAAC,CAAQ,oEAAR;AAQ3B,0BAAc,MAAK,SAAC,CAAS,QAAT;AACpB,0BAAc,WAAU,SAAC,CAAS,QAAT;AACzB,0BAAc,gBAAe,SAAC,CAAS,QAAT;AAG9B,0BAAc,eAAc,SAAC,CAAS,EAAT;AAC7B,0BAAc,iBAAgB,SAAC,CAAS,EAAT;AAC/B,0BAAc,eAAc,SAAC,CAAS,oBAAc,gBAAe,OAAtC;AAC7B,0BAAc,gBAAe,SAAC,CAAS,EAAT;AAC9B,0BAAc,kBAAiB,SAAC,CAAS,EAAT;AAChC,0BAAc,cAAa,SAAC,CAAS,EAAT;AAC5B,0BAAc,gBAAe,SAAC,CAAS,EAAT;AAC9B,0BAAc,cAAa,SAAC,CAAS,QAAT;AAC5B,0BAAc,MAAK,SAAC,CAAS,EAAT;AACpB,0BAAc,QAAO,SAAC,CAAS,EAAT;AACtB,0BAAc,cAAa,SAAC,CAAS,YAAM,MAAK,SAApB;AAC5B,0BAAc,gBAAe,SAAC,CAAU,oBAAc,WAAU,OAAlC;AAC9B,0BAAc,WAAU,SAAC,CAAS,EAAT;AACzB,0BAAc,aAAY,SAAC,CAAS,EAAT;AAC3B,0BAAc,WAAU,SAAC,CAAS,cAAY,wCAAZ,CAAT;AACzB,0BAAc,aAAC,CAAa,KAAb;AAEf,kBAAM,MAAK,SAAC,CAAS,cAAY,wCAAZ,CAAT;AACZ,0BAAc,cAAa,OAAO,CAAC,YAAM,MAAP;AA5Fe;AAtDZ;AAErC,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAGA;AALqC;AALS;AAE9C,sBAAmB,CAAN,eAAM,GAAE,CAAF,CAAK,GAAE,aAAQ,CAAC,0BAAoB,SAArB,CAAV;AAFsB;AAaF;AAE5C;AAEA;AAEA,kBAAM,MAAK,UAAC,CAAU,sCAAY,UAAU,CAAC,YAAM,MAAK,SAAS,EAAG,CAAxB,CAAhC;AACZ,kBAAM,MAAK,UAAC,CAAU,sCAAY,UAAU,CAAC,YAAM,MAAK,SAAS,EAAG,CAAxB,CAAhC;AACZ,6BAAiB,MAAK,UAAC,CAAU,sCAAY,UAAU,CAAC,uBAAiB,MAAK,SAAS,EAAG,CAAnC,CAAhC;AACvB,0BAAc,MAAK,UAAC,CAAU,sCAAY,UAAU,CAAC,oBAAc,MAAK,SAAS,EAAG,CAAhC,CAAhC;AACpB,0BAAc,cAAa,UAAC,CAAU,sCAAY,UAAU,CAAC,oBAAc,cAAa,SAAS,EAAG,CAAxC,CAAhC;AAC5B,0BAAc,cAAa,UAAC,CAAU,sCAAY,UAAU,CAAC,oBAAc,cAAa,SAAS,EAAG,CAAxC,CAAhC;AAC5B,0BAAc,WAAU,UAAC,CAAU,sCAAY,UAAU,CAAC,oBAAc,WAAU,SAAS,EAAG,CAArC,CAAhC;AACzB,0BAAc,gBAAe,UAAC,CAAU,sCAAY,UAAU,CAAC,oBAAc,gBAAe,SAAS,EAAG,CAA1C,CAAhC;AAC9B,0BAAc,eAAc,UAAC,CAAU,sCAAY,UAAU,CAAC,oBAAc,eAAc,SAAS,EAAG,CAAzC,CAAhC;AAC7B,0BAAc,WAAU,UAAC,CAAU,sCAAY,UAAU,CAAC,oBAAc,WAAU,SAAS,EAAG,CAArC,CAAhC;AACzB,gCAAoB,MAAK,UAAC,CAAU,sCAAY,UAAU,CAAC,0BAAoB,MAAK,SAAS,EAAG,CAAtC,CAAhC;AAC1B,6BAAiB,UAAC,CAAU,sCAAY,UAAU,CAAC,uBAAiB,SAAS,EAAG,CAA9B,CAAhC;AAClB,kBAAM,UAAC,CAAU,sCAAY,UAAU,CAAC,YAAM,SAAS,EAAG,CAAnB,CAAhC;AACP,kBAAM,UAAC,CAAU,sCAAY,UAAU,CAAC,YAAM,SAAS,EAAG,CAAnB,CAAhC;AACP,kBAAM,OAAM,QAAC,CAAQ,sCAAY,UAAU,CAAC,YAAM,OAAM,OAAO,EAAG,CAAvB,CAA9B;AACb,kBAAM,OAAM,uBAAC,CAAuB,sCAAY,aAAa,CAAC,YAAM,OAAM,sBAAsB,EAAG,CAAtC,CAAhD;AACb,kBAAM,OAAM,wBAAC,CAAwB,sCAAY,aAAa,CAAC,YAAM,OAAM,uBAAuB,EAAG,CAAvC,CAAjD;AACb,wBAAa,sCAAY,UAAU,CAAC,gBAAW,EAAG,CAAf,CAAnC;AAEA;AAzB4C;AA3SF;AAG1C;AAEA,UAAc,CAAV,SAAU,KAAE,+BAAF,CAAY,IAAgB,CAAX,UAAW,KAAE,qBAAF,CAA1C,EACE,wBAAoB,IADtB;AAL0C;AAn6CR;AAGlC;AACA,6BAAmB,uBAAkB,CAAC,iBAAQ,YAAO,UAAU,YAAO,SAAjC;AAErC,eAAS,iBAAT,GAA6B;AAE7B,uBAAY,CAAC,UAAW,+CAAZ;AAEZ,UAAG,oBAAgB,GAAE,CAArB;AAEE,qBAAQ,CAAC,UAAW,+CAAZ;AACR,YAAG,0BAAoB,SAAvB,EACE,oBAAe,CAAC,UAAW,+CAAZ,CADjB;OAHF;AAOA,UAAG,YAAO,SAAV,EACE,eAAU,CAAC,UAAW,+CAAZ,CADZ;AAGA,oBAAS,CAAC,UAAW,+CAAZ;AAET,UAAG,YAAO,SAAV,EACE,eAAU,CAAC,UAAW,+CAAZ,CADZ;AAGA,qBAAU,CAAC,UAAW,+CAAZ;AAzBwB;AAugBM;AAExC;AAAG;AACH;AAAI;AACJ;AACA;AAEA,WAAM,2BAAc,gBAAgB,CAAC,eAAD,CAAc,GAAJ,GAAF,GAAQ,qBAAQ,CAAC,UAAD,CAAV;AAClD,iBAAM,+BAAK,CAAC,MAAM,MAAO,MAAM,KAAM,MAAM,OAAQ,YAAO,QAA/C,CAAX;AACA,eAAS,MAAK,OAAO,CAAC,YAAM,MAAP;AACrB,eAAS,QAAO,OAAO,CAAC,YAAM,QAAP;AAEvB,UAAK;AACL,WAAM;AACN,6BAAkB,CAAC,UAAW,4CAAI;;;;WAAG;;;;UAAnB;AAClB,UAAG,CAAH;AAEE,YAAG,EAAH,EACE,SAAS,gBAAc,CAAC,4C3BntDmE,6E2BmtDpE,CADzB;AAGA,8BAAiB,CAAC,UAAW,2CAAZ;OALnB;AAQA,eAAS,MAAK,aAAa,CAAC,YAAM,MAAP;AAE3B,UAAK;AACL,WAAM;AACN,iCAAsB,CAAC,UAAW,4CAAI,GAAI,YAAM,sBAAsB,YAAM,oBAAoB;;;;WAAG;;;;UAA7E;AACtB,UAAG,CAAH;AAEE,YAAG,EAAH,EACE,SAAS,WAAS,CAAC,4CAAI,GAAI,MAAO,YAAM,sBAAsB,YAAM,oB3BjoDkK,sEAA0B,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,C2BgoDxJ,CADpB;AAGA,kCAAqB,CAAC,UAAW,4CAAI,GAAI,YAAM,sBAAsB,YAAM,mBAAtD;OALvB;AAQA,UAAG,CAA6B,UAAxB,YAAM,OAAM,aAAc,EAAF,CAAhC;AAEE,mBAAM,EAAN;AACA,kBAAsB,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAU,GAAE,CAAF;AAEhC,YAAG,4CAAQ,IAAG,YAAM,OAAM,YAA1B;AAEE,+BAAgB,CAAC,4CAAI,GAAI,OAAT;AAChB,yBAAU,CAAC,UAAW,4CAAI,4CAAhB;SAHZ;AAMA,YAAG,6CAAS,IAAG,YAAM,OAAM,YAA3B;AAEE,gCAAiB,CAAC,4CAAI,GAAI,OAAT;AACjB,yBAAU,CAAC,UAAW,4CAAI,6CAAhB;SAHZ;OAXF;AApCwC;AA5CA;AAGxC;AACA;AACA;AAAG;AAEH,iBAAM,+BAAK,CAAC,MAAM,MAAO,MAAM,OAAQ,GAAE,YAAO,QAAT,CAAkB,MAAM,OAAQ,MAAM,OAAlE,CAAX;AACA,eAAS,MAAK,OAAO,CAAC,YAAO,MAAR;AACrB,eAAS,QAAO,OAAO,CAAC,YAAO,QAAR;AAEvB,UAAK;AACL,WAAM;AACN,6BAAkB,CAAC,UAAW,4CAAI;;;;WAAG;;;;UAAnB;AAClB,UAAG,CAAH;AAEE,YAAG,EAAH,EACE,SAAS,gBAAc,CAAC,4C3BtqDmE,6E2BsqDpE,CADzB;AAGA,8BAAiB,CAAC,UAAW,2CAAZ;OALnB;AAQA,UAAG,yCAAW,KAAE,YAAO,aAAvB;AACE,gBAAS,YAAO,SAAe,GAAJ,GAAF,GAAQ,sBAAS,CAAC,mBAAD,CAAX;AAC5B,gBAAG,sCAAQ,KAAE,YAAO,aAApB;AACH,gBAAS,YAAO,SAAe,GAAJ,GAAF,GAAQ,sBAAS,CAAC,qBAAD,CAAX;AAE/B,oBAAS,YAAO;AAElB,eAAS,MAAK,aAAa,CAAC,YAAO,MAAR;AAC3B,kBAAO,eAAC,CAAe,SAAS,cAAc,CAAC,MAAO,4C3BnmD0B,MAA4D,I2BmmD9F,CAAtC;AAER,UAAK;AACL,WAAM;AACN,iCAAsB,CAAC,UAAW,4CAAI,MAAO,YAAO,sBAAsB,YAAO,oBAAoB;;;;WAAG;;;;UAAlF;AACtB,UAAG,CAAH;AAEE,YAAG,EAAH,EACE,SAAS,WAAS,CAAC,4CAAI,MAAO,MAAO,YAAO,sBAAsB,YAAO,oB3B5lD6J,sEAA0B,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,C2B2lDxJ,CADpB;AAGA,kCAAqB,CAAC,UAAW,4CAAI,MAAO,YAAO,sBAAsB,YAAO,mBAA3D;OALvB;AAnCwC;AA/bA;AAGxC;AACA;AACA;AAAS;AAAQ;AACjB;AAAG;AAEH,gBAAY,MAAM,OAAQ,GAAE,MAAM,IAAR;AAC1B,6CAAa,CAAC,OAAQ,CAAC,EAAG,CAAC,CAAd;AACb,eAAS,MAAK,SAAC,CAAS,YAAM,OAAM,OAArB;AACf,eAAS,QAAO,SAAC,CAAS,YAAM,OAAM,OAArB;AAEjB,UAAG,UAAW,KAAE,4CAAhB;AAEE,YAAK;AACL,aAAM;AACW,mBAAZ,YAAM,OAAM;AACf,YADe,IACf;AAEE,oBAAW,qDAAmB,QAAC;AAC/B;AACE,sBAAK,gCAAM,CAAC,MAAM,MAAO,MAAM,IAAK,GAAU,CAAR,OAAQ,GAAE,CAAF,CAAnC,CAAX;AACA,mBAAO,OAAO,CAAC,CAAD;AACd,mBAAO,OAAO,CAAC,gCAAM,CAAC,MAAM,OAAQ,MAAM,IAArB,CAAP;AACd,mBAAO,OAAO,CAAC,gCAAM,CAAC,MAAM,OAAQ,MAAM,OAArB,CAAP;AACd,mBAAO;AACP,qBAAS,QAAO,SAAC,CAAS,CAAT;AAEjB,sCAAqB,CAAC,UAAW,gDAAQ;;;;iBAAG;;;;gBAAvB;AACrB,gBAAG,CAAH;AAEE,kBAAG,EAAH,EACE,SAAS,SAAS,CAAC,Q3B7vC2D,wE2B6vC5D,CADpB;AAGA,uCAAoB,CAAC,UAAW,+CAAZ;aALtB;AATF;AAiBE,mBAAQ,eAAR,OAAQ;AAjBV;SAoBF,UAxBe,IAwBf;AAEE,oBAAK,gCAAM,CAAC,MAAM,MAAO,MAAM,IAAK,GAAU,CAAR,OAAQ,GAAE,CAAF,CAAnC,CAAX;AACA,mBAAU,MAAM,KAAM,GAA+B,CAAf,CAAb,MAAM,MAAO,GAAE,MAAM,KAAR,CAAe,GAAE,CAAF,CAA/B;AACtB,mBAAS,QAAO,SAAC,CAAS,CAAT;AAEjB,oCAAqB,CAAC,UAAW,gDAAQ;;;;eAAG;;;;cAAvB;AACrB,cAAG,CAAH;AAEE,gBAAG,EAAH;AAEE,uBAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,OAAQ,MAAM,IAAf,GAAsB,4C3BxxCgE,+EAAyE,8E2BwxCtK;AAClB,uBAAS,WAAS,CAAC,4CAAS,yCAAN,gCAAM,CAAC,OAAQ,MAAM,OAAf,G3BzxCmF,+EAAyE,8E2ByxCtK;aAHpB;AAKA,qCAAoB,CAAC,UAAW,+CAAZ;WAPtB;SAUF,UAzCe,IAyCf;AAEE,oCAAqB,CAAC,UAAW,gDAAQ;;;;eAAG;;;;cAAvB;AACrB,cAAG,CAAH;AAEE,gBAAG,EAAH,EACE,SAAS,iBAAiB,CAAC,gDAAQ,YAAO,OAAM,kB3BluCmC,EAA2B,KAChG,MAA0B,KAA2B,K2BiuCzC,CAD5B;AAGA,qCAAoB,CAAC,UAAW,+CAAZ;WALtB;SAQF,UApDe,IAoDf;AAEE,oCAAqB,CAAC,UAAW,gDAAQ;;;;eAAG;;;;cAAvB;AACrB,cAAG,CAAH;AAEE,gBAAG,EAAH,EACE,sBAAiB,CAAC,UAAW,gDAAQ,IAApB,CADnB;AAGA,qCAAoB,CAAC,UAAW,+CAAZ;WALtB;SAHF;OAaC,UAAG,UAAW,KAAE,6CAAhB;AAEH,YAAK;AACL,aAAM;AACW,oBAAZ,YAAM,OAAM;AACf,YADe,KACf;AAEE,oBAAW,qDAAmB,QAAC;AAC/B;AACE,sBAAK,gCAAM,CAAC,MAAM,OAAQ,MAAM,IAAK,GAAU,CAAR,OAAQ,GAAE,CAAF,CAApC,CAAX;AACA,mBAAO,OAAO,CAAC,CAAD;AACd,mBAAO,OAAO,CAAC,gCAAM,CAAC,MAAM,MAAO,MAAM,OAApB,CAAP;AACd,mBAAO,OAAO,CAAC,gCAAM,CAAC,MAAM,MAAO,MAAM,IAApB,CAAP;AACd,mBAAO;AACP,qBAAS,QAAO,SAAC,CAAS,CAAT;AAEjB,sCAAqB,CAAC,UAAW,gDAAQ;;;;iBAAG;;;;gBAAvB;AACrB,gBAAG,CAAH;AAEE,kBAAG,EAAH,EACE,SAAS,SAAS,CAAC,Q3Bl0C2D,wE2Bk0C5D,CADpB;AAGA,uCAAoB,CAAC,UAAW,+CAAZ;aALtB;AATF;AAiBE,mBAAQ,eAAR,OAAQ;AAjBV;SAoBF,UAxBe,KAwBf;AAEE,oBAAK,gCAAM,CAAC,MAAM,OAAQ,MAAM,IAAK,GAAU,CAAR,OAAQ,GAAE,CAAF,CAApC,CAAX;AACA,kBAAS,MAAM,KAAM,GAA+B,CAAf,CAAb,MAAM,MAAO,GAAE,MAAM,KAAR,CAAe,GAAE,CAAF,CAA/B;AACrB,mBAAS,QAAO,SAAC,CAAS,CAAT;AAEjB,oCAAqB,CAAC,UAAW,gDAAQ;;;;eAAG;;;;cAAvB;AACrB,cAAG,CAAH;AAEE,gBAAG,EAAH;AAEE,uBAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,MAAO,MAAM,IAAd,GAAqB,4C3B71CiE,+EAAyE,8E2B61CtK;AAClB,uBAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,MAAO,MAAM,OAAd,GAAwB,4C3B91C8D,+EAAyE,8E2B81CtK;aAHpB;AAKA,qCAAoB,CAAC,UAAW,+CAAZ;WAPtB;SAUF,UAzCe,KAyCf;AAEE,oCAAqB,CAAC,UAAW,gDAAQ;;;;eAAG;;;;cAAvB;AACrB,cAAG,CAAH;AAEE,gBAAG,EAAH,EACE,SAAS,iBAAiB,CAAC,gDAAQ,YAAO,OAAM,mB3BvyCmC,EAA2B,KAChG,MAA0B,KAA2B,K2BsyCzC,CAD5B;AAGA,qCAAoB,CAAC,UAAW,+CAAZ;WALtB;SAQF,UApDe,KAoDf;AAEE,oCAAqB,CAAC,UAAW,gDAAQ;;;;eAAG;;;;cAAvB;AACrB,cAAG,CAAH;AAEE,gBAAG,EAAH,EACE,sBAAiB,CAAC,UAAW,gDAAQ,KAApB,CADnB;AAGA,qCAAoB,CAAC,UAAW,+CAAZ;WALtB;SAHF;OAxDC;AAlFmC;AAqOE;AAG1C;AAAY;AACZ;AACA;AACA;AAAG;AAEH,mBAAc,aAAQ,CAAC,0BAAoB,SAArB;AAEtB,UAAG,YAAO,SAAV;AACE,yBAAY,+BAAK,CAAC,MAAM,MAAO,YAAM,QAAQ,GAAE,CAAF,CAAK,cAAU,YAAM,QAAQ,GAAE,uBAAkB,QAA7E,CAAjB;AAEA,6BAAY,+BAAK,CAAC,MAAM,MAAO,MAAM,IAAK,GAAE,CAAF,CAAK,cAAU,uBAAkB,QAA1D,CAAjB;AAEF,WAAM;AACN,qBAAU,CAAC,SAAU,CAAX;AAEV,UAAG,0BAAoB,SAAvB;AAEE,uBAAU,CAAC,SAAU,aAAX;AACV,qBAAc,UAAW,GAAE,CAAF;OAH3B;AAMA,eAAS,MAAK,OAAO,CAAC,uBAAiB,MAAlB;AACrB,eAAS,QAAO,OAAO,CAAC,uBAAiB,QAAlB;AACvB,eAAS,MAAK,aAAa,CAAC,uBAAiB,MAAlB;AAE3B,eAAS,QAAgB,OAAX,UAAW,GAAE,CAAF,kBAAzB;AAAI;AAEF,YAAK;AACL,aAAM;AACN,iCAAoB,CAAC,UAAW,kDAAU;;;;aAAG;;;;YAAzB;AACpB,YAAG,CAAH;AAEE,cAAG,EAAH,EACE,SAAS,gBAAc,CAAC,kDAAU,wEAAX,CADzB;AAGA,kCAAmB,CAAC,UAAW,iDAAZ;SALrB;AAQA,YAAK;AACL,aAAM;AACN,qCAAwB,CAAC,UAAW,kDAAU,2BAAc,cAAc,CAAC,MAAD,EAAM,uBAAiB,sBAAsB,uBAAiB,oBAAoB;;;;aAAG;;;;YAAvI;AACxB,YAAG,CAAH;AAEE,cAAG,EAAH,EACE,SAAS,WAAS,CAAC,kDAAU,2BAAc,cAAc,CAAC,MAAD,EAAM,MAAO,uBAAiB,sBAAsB,uBAAiB,oB3B34CsG,sEAA0B,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,C2B04CtJ,CADpB;AAGA,sCAAuB,CAAC,UAAW,kDAAU,2BAAc,cAAc,CAAC,MAAD,EAAM,uBAAiB,sBAAsB,uBAAiB,mBAAhH;SALzB;AAQA,6BAAgB,CAAC;;;;YAAD;AAChB,uBAAU,CAAC,SAAU,aAAX;;AArD8B;AAsJJ;AAGtC;AAAG;AAAK;AAAS;AAAK;AAAM;AAAK;AACjC;AACA;AAEA,YAAO;AACP,kBAAc,uBAAU,CAAC,WAAO,YAAQ,CAAhB;AACxB,YAAO,sBAAS,CAAC,SAAD,CAAY,GAAE,cAAF;AAE5B,UAAG,GAAI,GAAE,CAAT,EACE,MAAO,GAAI,GAAE,CADf;AAGA,YAAO,yBAAW,CAAC,SAAD;AAClB,gBAAW,iBAAY,CAAC,IAAK,GAAN;AAEvB,UAAG,OAAQ,KAAG,CAAd,EACE,gBAAY,oBAAgB,GAAE,OADhC;AAGA,uBAAY,+BAAK,CAAC,MAAM,MAAO,MAAM,KAAM,MAAM,KAAM,GAAE,aAAF,CAAY,MAAM,IAAK,GAAE,aAA/D,CAAjB;AACA,qBAAU,CAAC,SAAU,CAAX;AAEV,UAAG,oBAAe,gBAAlB;AAEE,eAAQ;AACR,YAAG,IAAK,GAAE,CAAV;AAEE,mBAAU,yBAAW,CAAC,qBAAQ,CAAC,UAAW,CAAC,CAAb,CAAT;AACrB,mBAAc,KAAL,IAAK,GAAE,CAAF,EAAW,aAAzB;AAAI;AAEE,gBAAJ,IAAG;AACH,+BAAc,CAAC,UAAW,kDAAU,KAAM,IAAK,qBAAe,MAAhD;AACV,kBAAJ,IAAG;;SAPP;OAHF;AAeA,eAAS,SAAK,8BAAd;AAAI;AAEF,2BAAc,CAAC,UAAW,kDAAU,IAAK,IAAK,YAAQ,CAAxC;AACV,WAAJ,IAAG;AACH,YAAG,GAAI,GAAE,CAAT;AAEE,gBAAO;AACH,aAAJ,IAAG;SAHL;;AAOF,UAAG,oBAAe,eAAlB;AAEE,iBAAU;AACV,eAAO,GAAI,IAAG,OAAd;AAEE,6BAAc,CAAC,UAAW,kDAAU,IAAK,IAAK,iBAAW,MAA3C;AACV,aAAJ,IAAG;AACH,cAAG,GAAI,GAAE,CAAT;AAEE,kBAAO;AACH,eAAJ,IAAG;WAHL;AAKI,gBAAJ,IAAG;;OAZP;AAgBA,8BAAoB;AAjEkB;AA7FM;AAG5C;AAAG;AAAM;AACT;AAAG;AAEH,UAAG,0BAAoB,SAAvB,EACM,GAAJ,IAAG,CADL;AAGA,UAAG,YAAO,SAAV;AACE,uBAAU,CAAC,UAAW,YAAO,QAAoC,GAA1B,uBAAkB,QAApB,GAAwC,CAAL,CAAJ,GAAI,GAAE,CAAF,CAAK,GAAE,aAAF,CAAnE;AAEV,YAAA,eAAU,CAAC,UAAW,uBAAkB,QAAQ,GAAY,CAAL,CAAJ,GAAI,GAAE,CAAF,CAAK,GAAE,aAAF,CAAlD;AAEZ,qBAAU,CAAC,UAAW,GAAI,GAAE,aAAlB;AACV,UAAK,uBAAU,CAAC,WAAO,OAAQ,CAAhB;AACf,aAAQ;AACR,aAAQ;AAER,UAAG,aAAQ,KAAE,CAAb,EACE,OAAQ,CADV;AAGA,UAAG,aAAQ,KAAE,CAAb,EACE,OAAQ,CADV;AAGA,UAAG,mBAAc,aAAa,CAAC,CAAD,CAA9B;AAEE,iBAAS,MAAK,OAAO,CAAC,oBAAc,cAAf;AACrB,iBAAS,QAAO,OAAO,CAAC,oBAAc,gBAAf;AACvB,iBAAS,MAAK,aAAa,CAAC,oBAAc,cAAf;OAExB,UAAW,CAAP,cAAG,CAAC,CAAD,CAAI,GAAE,cAAG,CAAC,IAAD,CAAL,CAAa,IAAW,CAAP,cAAG,CAAC,CAAD,CAAI,GAAE,cAAG,CAAC,IAAD,CAAL,CAAnC;AAEH,iBAAS,MAAK,OAAO,CAAC,oBAAc,cAAf;AACrB,iBAAS,QAAO,OAAO,CAAC,oBAAc,gBAAf;AACvB,iBAAS,MAAK,aAAa,CAAC,oBAAc,cAAf;OAExB,UAAG,oBAAe,gBAA6B,IAAL,CAAH,EAAG,GAAE,CAAF,CAAR,IAAsB,CAAJ,GAAI,KAAE,CAAF,CAAxD;AAEH,YAAG,MAAO,KAAE,EAAZ,EACE,IAAK,qBAAO,CAAC,EAAG,CAAC,CAAL,CADd;AAGA,iBAAS,MAAK,OAAO,CAAC,oBAAc,gBAAf;AACrB,iBAAS,MAAK,aAAa,CAAC,oBAAc,gBAAf;AAC3B,iBAAS,QAAO,OAAO,CAAC,oBAAc,kBAAf;OAEpB,UAAG,oBAAe,eAA4B,IAAL,CAAH,EAAG,GAAE,CAAF,CAAR,IAAsB,CAAJ,GAAI,IAAG,CAAH,CAAvD;AAEH,YAAG,MAAO,KAAE,CAAZ,EACE,IAAK,qBAAO,CAAC,EAAG,CAAJ,CADd;AAGA,iBAAS,MAAK,OAAO,CAAC,oBAAc,eAAf;AACrB,iBAAS,MAAK,aAAa,CAAC,oBAAc,eAAf;AAC3B,iBAAS,QAAO,OAAO,CAAC,oBAAc,iBAAf;OAEpB,UAAG,yBAAW,CAAC,EAAG,qBAAJ,CAAiB,KAAE,CAAjC;AAEH,iBAAS,MAAK,OAAO,CAAC,oBAAc,WAAf;AACrB,iBAAS,QAAO,OAAO,CAAC,oBAAc,aAAf;AACvB,iBAAS,MAAK,aAAa,CAAC,oBAAc,WAAf;;AAI3B,iBAAS,MAAK,OAAO,CAAC,oBAAc,MAAf;AACrB,iBAAS,QAAO,OAAO,CAAC,oBAAc,QAAf;AACvB,iBAAS,MAAK,aAAa,CAAC,oBAAc,MAAf;;AAG7B,UAAK;AACL,WAAM;AACN,iCAAsB,CAAC,UAAW,mDAAW,EAAG;;;;WAAG;;;;UAA7B;AACtB,UAAG,CAAH;AAEE,YAAG,EAAH,EACE,SAAS,gBAAc,CAAC,mDAAW,wEAAZ,CADzB;AAGA,kCAAqB,CAAC,UAAW,mDAAW,CAAvB;OALvB;AAQA,UAAK;AACL,qCAA0B,CAAC,UAAW,mDAAW,qBAAQ,CAAC,CAAD,EAAK,oBAAc,sBAAsB,oBAAc,oBAAoB;;;;WAAG;;;;UAA7G;AAC1B,UAAG,CAAH;AAEE,YAAG,EAAH,EACE,SAAS,WAAS,CAAC,mDAAW,qBAAQ,CAAC,CAAD,EAAK,MAAO,oBAAc,sBAAsB,oBAAc,oB3Bz+CkI,sEAA0B,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,C2Bw+CxJ,CADpB;AAGA,sCAAyB,CAAC,UAAW,mDAAW,qBAAQ,CAAC,CAAD,EAAK,oBAAc,sBAAsB,oBAAc,mBAAtF;OAL3B;AAQA,UAAiC,CAA7B,yBAAW,CAAC,EAAG,iBAAJ,CAAkB,KAAE,CAAF,CAAK,IAAI,oBAAc,WAAxD,EACE,SAAS,qBAAmB,CAAC,mD3BxlD8C,EAA+D,6E2BwlD9G,CAD9B;AAzF4C;AAmU1C,cAA0B,EAAG,EAAG,EAAG,EAAG,EAAG,EAAG,CAA5C;AAR2C;;AAG7C;AAAM;AACN;AACA;AAAG;AACH;AAIoC;AAA3B;AAEP;AACA;AAEA,uBAAgB,uBAAU,CAAC,MAAO,EAAG,CAAX;AAC1B,0BAAmB,0BAAY,CAAC,YAAD;AAC/B,iBAAU,CAAY,GAA2C,CAAL,CAAlB,CAAhB,eAAgB,GAAE,eAAF,CAAkB,GAAE,CAAF,CAAK,GAAI,CAAJ,CAA3C;AAPf;AAA2B;AAUN;AAArB;AAEP;AAEA,iBAA6B,UAAnB,yBAAW,CAAC,KAAD,CAAQ,GAAI,CAAJ;AAC7B,0BAAmB,2BAA2B,CAAC,MAAO,eAAR;AAC9C,YAAG,uBAAU,CAAC,KAAD,CAAb;AAGE,cAAG,eAAgB,IAAG,CAAtB,EACM,MAAJ,IAAG,CADL;;AAMC,cAAG,eAAgB,GAAE,CAArB,EACK,MAAJ,IAAG,CADJ;;AAfI;AAAqB;AAoBC;AAAtB;AAEP;AAEA,0BAAmB,2BAA2B,CAAC,oBAAM,CAAC,SAAD,EAAa,eAApB;AAC9C,YAAG,eAAgB,IAAG,CAAtB;AAEE,mBAAwE,UAAL,CAAhC,CAAxB,0BAAY,CAAC,SAAD,CAAY,GAAE,CAAF,CAAgC,GAAhB,eAAF,GAAoB,CAAF,CAAK,GAAI,CAAJ,CAAM,GAAE,CAAF;AAC3E,kBAAG,0BAAY,CAAC,SAAD,CAAY,GAAE,CAA7B;AAEH,mBAAU,qBAAqB,CAAC,oBAAM,CAAC,SAAD,CAAY,GAAE,CAAF,CAAK,eAAxB;AAE/B,uBAAwE,UAAL,CAAhC,CAAxB,0BAAY,CAAC,SAAD,CAAY,GAAE,CAAF,CAAgC,GAAhB,eAAF,GAAoB,CAAF,CAAK,GAAI,CAAJ;AAZnE;AAAsB;AAeH;AAAnB;AAEP;AACA;AACA;AACA;AACA;AAAK;AACL;AAEU,cAAD,sBAAC,SAAQ,sBAAT;AACT,YAAK,CAAY,GAAE,EAAE,CAAC,mBAAD,CAAJ;AACjB,aAAM,uBAAU,CAAC,oBAAM,CAAC,WAAD,EAAS,qBAAO,CAAC,WAAD,EAAS,CAAhC;AAChB,cAA8B,CAApB,CAAF,CAAE,GAAE,0BAAY,CAAC,EAAD,CAAd,CAAoB,GAAI,CAAJ,CAAgB,GAAE,CAAF;AAC9C,aAAgB,UAAL,CAAJ,GAAI,GAAE,CAAF,CAAK,GAAI,CAAJ;AAChB,aAAM,sBAAsB,CAAC,GAAI,EAAE,CAAC,mBAAD,CAAP;AAEvB;AACH,YADG,IACH;AAEE,cAAG,EAAG,KAAG,CAAT;AAEE,kBAAM,CAAC,CAAD,CAAN,GAAa;AACb,qBAAS,QAAsB,OAAjB,sBAAiB,GAAE,CAAF,kBAA/B;AAAI;AACF,oBAAM,CAAC,CAAD,CAAN,GAAa,CAAE,GAAE,EAAF;;;AAIjB,qBAAS,SAAsB,QAAjB,sBAAiB,GAAE,CAAF,qBAA/B;AAAI;AACF,oBAAM,CAAC,CAAD,CAAN,GAAgB,CAAH,EAAG,GAAE,CAAF,CAAI,GAAE,EAAF;;;SAG1B,UAfG,IAeH;AAEE,gBAAO,sBAAsB,CAAC,uBAAU,CAAC,oBAAM,CAAC,WAAD,EAAS,qBAAO,CAAC,WAAD,EAAS,EAAhC,EAAqC,EAAE,CAAC,mBAAD,CAAlD;AAC7B,iBAAY,CAAJ,GAAI,GAAE,EAAF,CAAK,GAAE,CAAF;AAEjB,eAAgB,UAAL,CAAJ,GAAI,GAAE,CAAF,CAAK,GAAI,CAAJ;AAChB,mBAAS,SAAQ,QAAH,QAAG,CAAC,IAAK,GAAE,CAAF,CAAK,sBAAiB,GAAE,CAA9B,sBAAjB;AAAI;AACF,kBAAM,CAAC,CAAD,CAAN,GAAgB,CAAH,EAAG,GAAE,CAAF,CAAI,GAAE,EAAF;;AAEtB,mBAAS,YAAyB,QAAjB,sBAAiB,GAAE,CAAF,qBAAlC;AAAI;AACF,kBAAM,CAAC,CAAD,CAAN,GAAe,CAAF,CAAE,GAAE,IAAF,CAAO,GAAE,CAAF;;;AAIxB,mBAAS,SAAsB,QAAjB,sBAAiB,GAAE,CAAF,qBAA/B;AAAI;AACF,kBAAM,CAAC,CAAD,CAAN,GAAgB,CAAH,EAAG,GAAE,CAAF,CAAI,GAAE,EAAF;;;AA9CnB;AAAmB;AAmD5B,YAAO,mBAAmB,CAAC,qBAAO,CAAC,UAAD,CAAR;AAC1B,UAAS,WAAC,GAAD,CAAM,GAAE,CAAjB;AAEE,yBAAY,+BAAK,CAAC,MAAM,MAAO,MAAM,KAAM,MAAM,KAAM,GAAE,aAAF,CAAY,MAAM,IAAK,GAAE,aAA/D,CAAjB;AACA,uBAAU,CAAC,SAAU,CAAX;AAEV,YAAG,YAAO,SAAV;AACE,yBAAU,CAAC,SAAU,YAAO,QAAQ,GAAE,uBAAkB,QAA9C;AAEV,cAAA,eAAU,CAAC,SAAU,uBAAkB,QAA7B;AAEZ,iBAAS,MAAK,OAAO,CAAC,0BAAoB,MAArB;AACrB,iBAAS,QAAO,OAAO,CAAC,0BAAoB,QAArB;AACvB,iBAAS,MAAK,aAAa,CAAC,0BAAoB,MAArB;AAE3B,iBAAS,QAAiB,OAAN,WAAC,GAAD,CAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,iBAAQ,GAAG,CAAC,CAAD;AACX,cAAK;AACL,eAAM;AACN,sCAAuB,CAAC,UAAW,kDAAU;;;;eAAG;;;;cAAzB;AACvB,cAAG,CAAH;AAEE,gBAAG,EAAH,EACE,SAAS,gBAAc,CAAC,kDAAU,wEAAX,CADzB;AAGA,uCAAsB,CAAC,UAAW,iDAAZ;WALxB;AAQA,cAAK;AACL,eAAM;AACN,0CAA2B,CAAC,UAAW,kDAAU,qBAAQ,CAAC,IAAD,EAAQ,0BAAoB,sBAAsB,0BAAoB,oBAAoB;;;;eAAG;;;;cAA3H;AAC3B,cAAG,CAAH;AAEE,gBAAG,EAAH,EACE,SAAS,WAAS,CAAC,kDAAU,qBAAQ,CAAC,IAAD,EAAS,MAAO,0BAAoB,sBAAsB,0BAAoB,oB3B71D+G,sEAA0B,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,C2B41DpJ,CADpB;AAGA,2CAA0B,CAAC,UAAW,kDAAU,qBAAQ,CAAC,IAAD,EAAQ,0BAAoB,sBAAsB,0BAAoB,mBAApG;WAL5B;AAQA,yBAAU,CAAC,SAAU,aAAX;;OAvCd;AA3G6C;AAvDN;AAGvC;AAAO;AAAM;AAAQ;AACrB;AAAG;AAEH,eAAS,QAAO,OAAO,CAAC,oBAAc,QAAf;AAEvB,cAAS,MAAM,KAAM,GAAE,CAAF;AACrB,eAAU,MAAM,MAAO,GAAE,CAAF;AAEvB,UAAG,YAAO,SAAV;AACE,eAAuB,CAAf,YAAO,QAAQ,GAAE,uBAAkB,QAApB,CAA4B,GAAE,CAAF;AAEnD,mBAAQ,uBAAkB,QAAQ,GAAE,CAAF;AAEpC,gBAAW;AAEX,UAAK;AACL,WAAM;AACN,4BAAiB,CAAC,UAAW;;;;WAAG;;;;UAAf;AACjB,UAAG,CAAH;AAEE,YAAG,EAAH,EACI,SAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,MAAO,IAAR,GAAqB,yCAAN,gCAAM,CAAC,OAAQ,OAAT,G3B9xDqE,+EAAyE,8E2B8xD1K,CADtB;AAGA,6BAAgB,CAAC,SAAD;OALlB;AAQA,UAAG,0BAAoB,SAAvB;AAEE,gBAAS,MAAM,KAAM,GAAE,aAAF;AACrB,iBAAU;AAEV,YAAG,YAAO,SAAV;AACE,iBAAQ,YAAO,QAAQ,GAAE,CAAF;AAEvB,qBAAQ;AAEV,YAAG,YAAO,SAAV;AACE,oBAAW,MAAM,OAAQ,GAAE,YAAO,QAAT;AAEzB,wBAAW,MAAM;AAEnB,8BAAiB,CAAC,UAAW;;;;aAAG;;;;YAAf;AACjB,YAAG,CAAH;AAEE,cAAG,EAAH,EACE,SAAS,WAAS,CAAO,yCAAN,gCAAM,CAAC,MAAO,IAAR,GAAqB,yCAAN,gCAAM,CAAC,OAAQ,OAAT,G3BtzDqE,+EAAyE,8E2BszD1K,CADpB;AAGA,+BAAgB,CAAC,SAAD;SALlB;OAhBF;AA7BuC;AAxVC;AAGxC;AAAK;AAAK;AACV;AACA;AAEA,iBAAM,+BAAK,CAAC,MAAM,MAAO,MAAM,KAAM,MAAM,KAAM,GAAE,eAAF,CAAc,MAAM,IAAK,GAAE,eAAjE,CAAX;AACA,qBAAU,CAAC,GAAI,CAAL;AAEV,UAAG,YAAO,SAAV;AACE,uBAAU,CAAC,GAAI,YAAO,QAAQ,GAAE,uBAAkB,QAAxC;AAEV,YAAA,eAAU,CAAC,GAAI,uBAAkB,QAAvB;AAEZ,eAAS,QAAmB,OAAd,YAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AAEF,gBAAS,YAAO,UAAM,CAAC,CAAD;AACtB,YAAU,CAAN,UAAM,KAAE,oBAAM,CAAC,KAAK,MAAN,CAAR,CAAyD,IAAvB,CAAP,WAAO,KAAE,qBAAO,CAAC,KAAK,MAAN,CAAT,CAAZ,IAAuC,KAAK,WAA5E;AAEE,gBAAO,cAAS,CAAC,KAAK,MAAN;AAChB,gBAAO,cAAS,CAAC,KAAK,MAAN;AAChB,wBAAS,CAAC,UAAW,4CAAI,MAAO,IAAK,GAA5B;SAJX;;AAlBsC;AAjDD;AAGvC;AAAG;AAEH,UAAG,MAAM,YAAY,KAAG,EAAxB;AAEE,iBAAS,MAAK,QAAC,CAAQ,kEAAR;AACf,iBAAS,QAAO,QAAC,CAAQ,oEAAR;AACjB,iBAAS,MAAK,SAAC,CAAS,MAAM,YAAf;AACf,iBAAS,QAAO,SAAC,CAAS,MAAM,YAAf;;AAIjB,iBAAS,MAAK,OAAO,CAAC,oBAAc,WAAf;AACrB,iBAAS,QAAO,OAAO,CAAC,oBAAc,aAAf;;AAGzB,UAAG,MAAM,gBAAgB,KAAG,EAA5B;AAGE,iBAAS,MAAK,QAAC,CAAQ,CAAR;AAKf,iBAAS,MAAK,SAAC,CAAS,MAAM,gBAAf;OAGf,MAAA,SAAS,MAAK,aAAa,CAAC,oBAAc,WAAf;AAE7B,qBAAU,CAAC,OAAmB,CAAL,CAAL,IAAK,GAAE,CAAF,CAAK,GAAE,aAAF,CAAW,GAAE,eAAjC;AACV,qBAAU,CAAC,OAAQ,IAAK,GAAE,aAAhB;AAEV,UAAK;AACL,WAAM;AACN,4BAAiB,CAAC,UAAW,gDAAQ,OAAQ;;;;WAAG;;;;UAA/B;AACjB,UAAG,CAAH;AAEE,YAAG,EAAH;AAEE,mBAAS,cAAY,CAAC,gD3B74CmE,6E2B64CpE;AACrB,cAAG,MAAM,YAAY,KAAG,CAAxB,EACG,SAAS,WAAS,CAAC,gDAAQ,qBAAQ,CAAC,MAAM,YAAP,EAAqB,MAAO,qEAAW,qE3B3zCyJ,sEAA0B,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,C2B0zCrJ,CADrB;SAHF;AAMA,6BAAgB,CAAC,UAAW,gDAAQ,MAApB;OARlB;AArCuC;AAulBI;AAE3C;AAF2C;AAg+CK;AAEhD;AACA;AAHgD;AAtmBL;AAE3C;AAF2C;AAhVA;AAE3C;AAF2C;AAriBA;AAE3C;AAF2C;AAxpCW;AAEtD;AAFsD;AAoXH;AAEnD;AAFmD;AAmvEI;AAEvD;AAFuD;AAlpCV;AAG7C;AAAU;AAAM;AAChB;AAAI;AAEJ;AAEA,UAAG,iBAAW,cAAd,EACE,MADF;AAGA;AACA,wBAAc;AACd;AAEA,UAAG,YAAO,SAAV;AAEE,YAAG,CAAE,IAAG,YAAO,QAAf;AAEE,cAAY,CAAR,4CAAQ,IAAG,YAAO,OAAM,YAAhB,CAA6B,IAAI,gBAAW,CAAa,wCAAZ,iBAAY,CAAC,IAAD,GAAc,yCAAN,gCAAM,CAAC,EAAE,CAAH,EAA3B,CAAxD;AACE;AACG,oBAAa,CAAT,6CAAS,IAAG,YAAO,OAAM,YAAhB,CAA6B,IAAI,gBAAW,CAAa,wCAAZ,iBAAY,CAAC,KAAD,GAAe,yCAAN,gCAAM,CAAC,EAAE,CAAH,EAA5B,CAAzD;AACH;AACG,oBAAG,iBAAW,oBAAoB,IAAG,iBAAW,qBAAhD;AAEH,iCAAgB,CAAC,+DAAgB,GAAI,EAArB;AAEhB,gBAAG,iBAAW,qBAAqB,IAAI,gBAAW,CAAC,4CAAU,yCAAN,gCAAM,CAAC,EAAG,CAAJ,EAAX,CAAlD;AACE,uCAAoB,CAAC,EAAE,MAAO,EAAE,IAAZ;AACjB,sBAAG,iBAAW,oBAAoB,IAAI,gBAAW,CAAC,4CAAU,yCAAN,gCAAM,CAAC,EAAG,CAAJ,EAAX,CAAjD,EACH,wBAAmB,CAAC,EAAE,MAAO,EAAE,IAAZ,CADhB;WANF;AAUL,cAAG,iBAAW,eAAd;AAEE,yBAAS;AACT,uBAAO;AACP,uBAAO;WAJT;AAOA;AACA;SAxBF;OAFF;AA8BA,UAAG,YAAO,SAAV;AAEE,YAAG,CAAE,IAAW,CAAP,gBAAO,GAAE,YAAO,QAAT,CAAhB;AAEE,cAAG,gBAAW,CAAC,kEAAyB,yCAAN,gCAAM,CAAC,EAAE,CAAH,EAA1B,CAAiC,IAAyB,CAApB,YAAO,aAAa,KAAE,sCAAF,CAAxE;AAEE,gBAAkB,CAAd,qBAAO,CAAC,UAAD,CAAO,KAAG,qBAAO,CAAC,kBAAD,CAAV,CAAiB,IAAiB,CAAb,oBAAM,CAAC,UAAD,CAAO,KAAG,oBAAM,CAAC,kBAAD,CAAT,CAApD;AAEE,kBAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,IAAD,CADlB;aAFF;AAKA,yBAAQ,kBAAR;WAPF;AAUA;AACA;SAbF;OAFF;AAmBA,iBAAY,aAAQ,CAAC,EAAG,CAAJ;AACpB,aAAQ;AACR,aAAQ;AAER,UAAG,aAAQ,KAAE,CAAb,EACE,OAAQ,QADV;AAGA,UAAG,aAAQ,KAAE,CAAb,EACE,OAAQ,QADV;AAGA,UAAkB,CAAd,cAAG,CAAC,QAAD,CAAW,KAAE,OAAF,CAA6C,IAAb,CAAd,cAAG,CAAC,QAAD,CAAW,GAAE,cAAG,CAAC,IAAD,CAAL,CAAlB,IAAiD,CAAd,cAAG,CAAC,QAAD,CAAW,GAAE,cAAG,CAAC,IAAD,CAAL,CAAjF,EACE,MADF;AAGA,0BAAgB;AAChB,0BAAgB;AAChB,0BAAgB;AAEhB,UAAG,iBAAW,aAAd;AAEE,YAAI,gCAAO,IAAG,KAAd;AAEE,iCAAkB,CAAC,QAAD;AAClB,yBAAU,CAAC,QAAD;AACV,2BAAY,CAAC,QAAD;SAET,UAAI,iCAAQ,IAAG,KAAf;AAEH,cAAG,mBAAc,SAAC,EAAM,GAAE,CAA1B;AAEE,iCAAgB,CAAC,mBAAc,UAAM,CAAC,mBAAc,SAAC,EAAM,GAAE,CAAxB,CAA0B,OAAO,QAAtD;AAChB,kCAAiB,CAAC,mBAAc,UAAM,CAAC,mBAAc,SAAC,EAAM,GAAE,CAAxB,CAA0B,OAAO,QAAtD;WAHnB;;AAQA,6BAAc;AAEd,cAAG,mBAAc,aAAa,CAAC,QAAD,CAA9B;AACE,+BAAc,aAAa,CAAC,QAAD;;AAG3B,mCAAkB,CAAC,QAAD;AAClB,2BAAU,CAAC,QAAD;AACV,yBAAQ,QAAR;AACA,6BAAY,CAAC,QAAD;;;;AAMhB,2BAAc;AAEd,YAAG,mBAAc,aAAa,CAAC,QAAD,CAA9B;AACE,6BAAc,aAAa,CAAC,QAAD;;AAG3B,iCAAkB,CAAC,QAAD;AAClB,uBAAQ,QAAR;AACA,yBAAU,CAAC,QAAD;AACV,2BAAY,CAAC,QAAD;AACZ;;;AA5HyC;AA0MF;AAG3C;AAEA,UAAG,iBAAW,eAAd;AAEE,YAAiB,CAAb,QAAG,CAAC,CAAE,GAAE,QAAL,CAAU,GAAE,EAAF,CAA6C,IAArB,CAAb,QAAG,CAAC,CAAE,GAAE,QAAL,CAAU,GAAE,EAAF,CAAlB,IAA4B,eAAJ,IAA4C,CAAT,CAAd,qBAAc,GAAE,UAAF,CAAS,GAAE,IAAF,CAA3F;AAEE,cAAG,CAAE,GAAE,QAAP;AACE;AAEA;SALJ;AAQA;OAVF;AAaA,wBAAc;AACd;AAnB2C;AAzEE;AAE7C;AAEA;AAEA,UAAa,CAAT,aAAS,KAAE,CAAF,CAAK,IAAa,CAAT,aAAS,KAAE,CAAF,CAA/B,EACE,MADF;AAGA,WAAM,aAAQ,CAAC,EAAG,CAAJ;AAEd,UAAG,eAAW,KAAG,EAAjB;AAEE,0BAAc;AACd;AACA;OAJF;AAOA,UAAG,iBAAW,cAAd,EACE,MADF;AAGA,UAAG,YAAO,SAAV;AAEE,YAAG,CAAE,IAAG,YAAO,QAAf;AAEE,cAA0C,CAA7B,CAAR,4CAAQ,IAAG,YAAO,OAAM,YAAhB,CAA6B,IAAK,gBAAW,CAAa,wCAAZ,iBAAY,CAAC,IAAD,GAAc,yCAAN,gCAAM,CAAC,EAAE,CAAH,EAA3B,CAAhB,CAAoD,IAA2C,CAA7B,CAAT,6CAAS,IAAG,YAAO,OAAM,YAAhB,CAA6B,IAAK,gBAAW,CAAa,wCAAZ,iBAAY,CAAC,KAAD,GAAe,yCAAN,gCAAM,CAAC,EAAE,CAAH,EAA5B,CAAhB,CAAzI;AACE,kCAAU,EAAV;AAEA,sCAAU,CAAV;AACF;SAGA,4BAAU,CAAV;OAXJ;AAcA,UAAG,YAAO,SAAV;AAEE,YAAG,CAAE,GAAU,CAAP,gBAAO,GAAE,YAAO,QAAT,CAAf;AAEE,cAAG,gBAAW,CAAC,kEAAyB,yCAAN,gCAAM,CAAC,EAAE,CAAH,EAA1B,CAAiC,IAAyB,CAApB,YAAO,aAAa,KAAE,sCAAF,CAAxE;AACE,kCAAU,EAAV;AAEA,sCAAU,CAAV;AACF;SAGA,4BAAU,CAAV;OAXJ;AAcA,UAAG,iBAAW,aAAa,IAAI,eAA/B;AAEE,YAAG,CAAE,GAAG,IAAI,SAAC,EAAb,EACE,MADF;AAGA,YAAG,EAAG,KAAE,OAAR;AAEE,8BAAgB;AAChB;SAHF;AAMA,YAAG,iBAAa,KAAE,EAAlB,EACE,MADF;AAGA,YAAI,EAAG,KAAG,OAAV;AAEE,8BAAgB;AAChB,+BAAgB,CAAC,kBAAc,iBAAf;AAChB,gCAAiB,CAAC,kBAAc,iBAAf;AACjB;SALF;OAdF;AAjD6C;AA/QF;AAG3C;AAAI;AAEJ;AAEA,UAAG,iBAAW,cAAc,IAAI,CAAI,iBAAW,iBAA/C,EACE,MADF;AAGA,UAAa,UAAT,cAAC,gCAAD,EAAW,KAAF,CAAS,IAAI,iBAAW,aAArC;AAEO;AACH,YAAG,CADA,IACA,QAAH,IAAa,CADV,IACU,QAAb;AAEE,cAAG,iBAAH;AAEE,+BAAc;AACd,mCAAkB,CAAC,iBAAD;AAClB,2BAAU,CAAC,iBAAD;AACV,6BAAY,CAAC,iBAAD;AACZ,gCAAgB;;AAIhB,iBAAM,uBAAU,CAAC,WAAO,YAAQ,CAAhB;AAChB,iBAAM,uBAAU,CAAC,WAAO,YAAQ,0BAAY,CAAC,WAAO,WAAR,CAA5B;AAEhB,gBAAG,aAAQ,KAAG,CAAd;AAEE,kBAAY,CAAR,aAAQ,IAAG,EAAH,CAAO,IAAa,CAAR,aAAQ,IAAG,EAAH,CAAhC,EACE,KAAM,aADR;aAFF;AAMA,gBAAG,aAAQ,KAAG,CAAd;AAEE,kBAAY,CAAR,aAAQ,IAAG,EAAH,CAAO,IAAa,CAAR,aAAQ,IAAG,EAAH,CAAhC,EACE,KAAM,aADR;aAFF;AAMA,iCAAgB,CAAC,GAAI,EAAL;AAChB,kCAAiB,CAAC,GAAI,EAAL;AACjB,gCAAgB;;SA7BpB;OAkCC,UAAc,UAAV,cAAC,iCAAD,EAAY,KAAF,CAAS,IAAI,iBAAW,aAAtC;AAEE;AACH,aADG,KACH,YAAU,CADP,KACO,QAAV,IAAqB,CADlB,KACkB,QAArB,IAA6B,CAD1B,KAC0B,QAA7B;AAEE,cAAG,CAAI,kBAAP;AAEE,gCAAgB;AAChB,mCAAkB,CAAC,iBAAD;AAClB,2BAAU,CAAC,iBAAD;AACV,6BAAY,CAAC,iBAAD;AACZ,iCAAiB;WANnB;AAQA,cAAG,SAAI,KAAE,EAAT;AAEE,gCAAe,CAAC;;;;iBAAc,CAAC,CAAhB;AACf,iCAAgB,CAAC,kBAAc,iBAAf;AAChB,kCAAiB,CAAC,kBAAc,iBAAf;WAEd,UAAG,SAAI,KAAE,EAAT;AAEH,+BAAc,CAAC;;;;iBAAc,CAAf;AACd,iCAAgB,CAAC,kBAAc,iBAAf;AAChB,kCAAiB,CAAC,kBAAc,iBAAf;WAEd,UAAG,SAAI,KAAE,EAAT;AAEH,gCAAe,CAAC;;;;iBAAc,CAAC,CAAhB;AACf,iCAAgB,CAAC,kBAAc,iBAAf;AAChB,kCAAiB,CAAC,kBAAc,iBAAf;WAEd,UAAG,SAAI,KAAE,EAAT;AAEH,+BAAc,CAAC;;;;iBAAc,CAAf;AACd,iCAAgB,CAAC,kBAAc,iBAAf;AAChB,kCAAiB,CAAC,kBAAc,iBAAf;WAJd;SA5BP;AAoCF;OAvCG;AA0CA;AACH,UADG,KACH;AAEE,4BAAe,CAAC;;;;aAAc,CAAC,CAAhB;OAEjB,UALG,KAKH;AAEE,2BAAc,CAAC;;;;aAAc,CAAf;OAEhB,UATG,KASH;AAEE,4BAAe,CAAC;;;;aAAc,CAAC,CAAhB;OAEjB,UAbG,KAaH;AAEE,2BAAc,CAAC;;;;aAAc,CAAf;OAEhB,UAjBG,KAiBH;AAEE,4BAAgB,uBAAU,CAAC,WAAO,YAAQ,CAAhB;OAE5B,UArBG,KAqBH;AAEE,4BAAgB,uBAAU,CAAC,WAAO,YAAQ,0BAAY,CAAC,WAAM,WAAP,CAA5B;OAF5B;AAMF;AApH2C;AAuHF;AAEzC;AAEA,UAAG,iBAAW,cAAc,IAAI,CAAI,iBAAW,iBAA/C,EACE,MADF;AAGK;AACH,UADG,IACH;AAAW,6BAAiB;AAC5B,iBAFG,IAEH,YAAW,CAFR,IAEQ,QAAX;AAEE,+BAAkB,CAAC,iBAAD;AAClB,YAAG,CAA6B,CAAxB,iBAAW,aAAa,IAAY,CAAP,gCAAO,IAAG,KAAH,CAAZ,CAAhC;AACE,oCAAqB,CAAC,iBAAD;AAErB,cAAA,eAAU,CAAC,iBAAD;AACZ,yBAAY,CAAC,iBAAD;OAPd;AAWF;AApByC;AAxvCO;AAGhD,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,UAAW,+CAAO,OAAQ,YAAjC,CADpB;AAHgD;AA5GD;AAG/C,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,UAAW,8CAAlB,CADnB;AAH+C;AAmHK;AAKpD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,UAAW,+CAAO,MAAO,qBAAsB,mBAAoB,OAAQ,YAAlF,CADxB;AALoD;AA5GD;AAInD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,UAAW,+CAAO,MAAO,qBAAsB,kBAAtD,CADvB;AAJmD;AAqFH;AAGhD,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,UAAW,+CAAO,OAAQ,YAAjC,CADpB;AAHgD;AA3GD;AAG/C,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,UAAW,8CAAlB,CADnB;AAH+C;AAkHK;AAKpD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,UAAW,+CAAO,MAAO,qBAAsB,mBAAoB,OAAQ,YAAlF,CADxB;AALoD;AA3GD;AAInD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,UAAW,+CAAO,MAAO,qBAAsB,kBAAtD,CADvB;AAJmD;AAoED;AAGlD,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,UAAW,+CAAO,OAAQ,YAAjC,CADtB;AAHkD;AAzGD;AAGjD,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,UAAW,8CAAlB,CADrB;AAHiD;AAgHK;AAKtD,UAAY,8BAAD,QAAX,EACE,8BAAwB,CAAC,KAAM,UAAW,+CAAO,MAAO,qBAAsB,mBAAoB,OAAQ,YAAlF,CAD1B;AALsD;AAzGD;AAIrD,UAAY,6BAAD,QAAX,EACE,6BAAuB,CAAC,KAAM,UAAW,+CAAO,MAAO,qBAAsB,kBAAtD,CADzB;AAJqD;AAkHD;AAGpD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,UAAW,+CAAO,MAAO,OAAQ,YAAxC,CADxB;AAHoD;AA1GD;AAGnD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,UAAW,+CAAO,KAAzB,CADvB;AAHmD;AAiHK;AAKxD,UAAY,gCAAD,QAAX,EACE,gCAA0B,CAAC,KAAM,UAAW,+CAAO,MAAO,qBAAsB,mBAAoB,OAAQ,YAAlF,CAD5B;AALwD;AA1GD;AAIvD,UAAY,+BAAD,QAAX,EACE,+BAAyB,CAAC,KAAM,UAAW,+CAAO,MAAO,qBAAsB,kBAAtD,CAD3B;AAJuD;AAsTR;AAG/C,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,UAAW,OAAQ,YAA1B,CADnB;AAH+C;AAxQD;AAE9C,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,SAAP,CADlB;AAF8C;AA+QO;AAGrD,UAAY,6BAAD,QAAX,EACE,6BAAuB,CAAC,KAAM,UAAW,+CAAO,OAAQ,YAAjC,CADzB;AAHqD;AAzQD;AAGpD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,UAAW,8CAAlB,CADxB;AAHoD;AA+FK;AAKzD,UAAY,iCAAD,QAAX,EACE,iCAA2B,CAAC,KAAM,UAAW,+CAAO,MAAO,qBAAsB,mBAAoB,OAAQ,YAAlF,CAD7B;AALyD;AA7GD;AAIxD,UAAY,gCAAD,QAAX,EACE,gCAA0B,CAAC,KAAM,UAAW,+CAAO,MAAO,qBAAsB,kBAAtD,CAD5B;AAJwD;AAqCT;AAI/C,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,UAAW,+CAAO,OAAQ,OAAQ,YAAzC,CADnB;AAJ+C;AAxGD;AAG9C,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,UAAW,+CAAO,MAAzB,CADlB;AAH8C;AAwFK;AAInD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,UAAW,oDAAY,OAAQ,YAAtC,CADvB;AAJmD;AAtGA;AAGnD,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,UAAW,mDAAlB,CADtB;AAHmD;AA8GC;AAIpD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,UAAW,oDAAY,OAAQ,YAAtC,CADxB;AAJoD;AAvGD;AAGnD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,UAAW,mDAAlB,CADvB;AAHmD;AAsMH;AAEhD,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,KAAP,CADpB;AAFgD;AAqFN;AAE1C,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAM,KAAP,CADd;AAF0C;AAMK;AAG/C,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,WAAY,QAAnB,CADnB;AAH+C;AAzEL;AAE1C,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,KAAP,CADf;AAF0C;AANC;AAE3C,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,MAAP,CADhB;AAF2C;AAmBK;AAGhD,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,MAAO,aAAc,UAA5B,CADpB;AAHgD;AAPD;AAG/C,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,UAAW,+CAAO,UAAzB,CADnB;AAH+C;AAoDC;AAEhD;AAEA,UAAK,qBAAQ,CAAC,oBAAU,OAAM,KAAC,oBAAU,WAAX,CAAjB;AACb,mCAAwB,CAAC,oBAAU,YAAY,CAAvB;AACxB,mBAAQ,CAAR;AANgD;AATC;AAEjD;AAEA,UAAK,qBAAW,WAAW,GAAE,CAAF;AAC3B,oCAAyB,CAAC,qBAAW,YAAY,EAAG,qBAAW,OAAM,KAAC,qBAAW,WAAZ,CAA5C;AACzB,oBAAS,CAAT;AANiD;AAvBC;AAElD;AACA;AACA;AAEA,2BAAW,OAAM;AAEjB,WAAI,IAAK,GAAL,CAAU,QAAV,CAAU,EAAd,EACE,qBAAW,OAAM,IAAI,CAAC,2BAAc,eAAe,CAAC,KAAD,CAA9B;AACvB,2BAAW,aAAC,CAAa,qBAAO,CAAC,UAAD,CAAO,GAAE,CAA7B;AAEZ,gBAAK,gCAAM,CAAC,MAAO,IAAR,CAAX;AAEA,gBAAK,oBAAe,CAAC,2CAAD,CAApB;AAGA,UAAK;AACL,iCAAsB,CAAC;;;;UAAD;AACtB,UAAG,CAAH,EACE,qBAAW,MAAM,CAAC,2CAAD,CADnB;AAnBkD;AA4DD;AAEjD;AACA;AACA;AAEA,0BAAU,OAAM;AAEhB,eAAgC,KAAvB,iBAAW,aAAY,0BAA+B,aAA/D;AAAI;AACF,4BAAU,OAAM,IAAI,CAAC,qBAAQ,CAAC,UAAK,GAAE,CAAR,CAAT;;AAEtB,0BAAU,OAAM,IAAI,CAAC,qBAAQ,CAAC,UAAD,CAAT;AAEpB,eAAS,SAA4B,OAAvB,iBAAW,aAAY,2CAArC;AAAI;AACF,4BAAU,OAAM,IAAI,CAAC,qBAAQ,CAAC,UAAK,GAAE,CAAR,CAAT;;AAEtB,0BAAU,aAAC,CAAa,iBAAW,aAAY,wBAApC;AAEX,gBAAK,gCAAM,CAAC,MAAO,IAAR,CAAX;AAEA,gBAAK,oBAAe,CAAC,2CAAD,CAApB;AAGA,UAAK;AACL,gCAAqB,CAAC;;;;UAAD;AACrB,UAAG,CAAH,EACE,oBAAU,MAAM,CAAC,2CAAD,CADlB;AAzBiD;AA9GG;AAEpD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,MAAP,CADxB;AAFoD;AAYD;AAEnD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,MAAP,CADvB;AAFmD;AA4FG;AAEtD,UAAY,8BAAD,QAAX,EACE,8BAAwB,CAAC,KAAM,WAAY,KAAnB,CAD1B;AAFsD;AA5DC;AAEvD,UAAY,+BAAD,QAAX,EACE,+BAAyB,CAAC,KAAM,WAAY,OAAQ,WAA3B,CAD3B;AAFuD;AA68CN;AAApB;AAG7B,eAAwC,sFAAC,QAAS,cAAe,aAAzB;AACxC,eAAU,MAAqC,IAAZ,CAAd,aAAc,KAAE,QAAF,CAAlB,IAAgD,CAAd,aAAc,KAAE,QAAF,CAAlB;AAJlB;AAAoB;AAvbV;AAAV;AAE7B,eAAU,4BAAgB,CAAC,EAAS,EAAS,EAAS,CAA5B;AAFG;AAAU;AArDG;AAAb;AAE7B;AAEA,eAAoB;AACpB,WAAM,YAAO,6BAA6B,CAAC,eAAD;AAE1C,UAAY,EAAD,QAAX,EACE,SAAU,EAAE,MADd;AAP6B;AAAa;AAycN;AAAP;AAE7B;AAEA,WAAM,YAAO,6BAA6B,CAAC,eAAD;AAC1C,eAAkB,CAAC,EAAD,SAAK,IAAa,CAAR,EAAE,MAAM,KAAG,EAAH,CAAb;AALM;AAAO;AAzeE;AAAT;AAE7B,eAAU,2CAA+C,GAA3B,0BAAF,GAA+B,sBAAS,CAAC,eAAD,CAAX;AAF5B;AAAS;AAuwCA;AAEtC;AAEA,sBAAU,YAAY,CAAC,uBAAiB,OAAO,QAAzB;AAEtB,sBAAU,YAAY,CAAC,0BAAoB,OAAO,QAA5B;AAEtB,sBAAU,YAAY,CAAC,oBAAc,OAAO,QAAtB;AACtB,sBAAU,YAAY,CAAC,oBAAc,eAAe,QAA9B;AAEtB,UAAG,CAAc,CAAT,QAAS,KAAE,0EAAF,CAAjB,EACE,gBAAU,YAAY,CAAC,oBAAc,eAAe,QAA9B,CADxB;AAGA,sBAAU,YAAY,CAAC,oBAAc,iBAAiB,QAAhC;AACtB,sBAAU,YAAY,CAAC,oBAAc,gBAAgB,QAA/B;AACtB,sBAAU,YAAY,CAAC,oBAAc,YAAY,QAA3B;AACtB,sBAAU,YAAY,CAAC,oBAAc,YAAY,QAA3B;AAEtB,sBAAU,YAAY,CAAC,YAAO,OAAO,QAAf;AAEtB,sBAAU,YAAY,CAAC,YAAO,OAAO,QAAf;AAEtB;AAvBsC;AAzhFA;AAEtC;AAOA,oBAAS,GAAT;AACA,qBAAU,GAAV;AACA,mBAAQ,cAAG,CAAC,kBAAD,CAAX;AACA,wBAAc;AACd,0BAAgB;AAChB,wBAAc;AACd,0BAAgB;AAChB,sBAAW,CAAC,CAAD;AAEX,qBAAW,0BAAqB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,qBAAW,0BAAqB,QAAC;AACjC,gCAAsB,qCAAgC,QAAC;AACvD,6BAAmB,kCAA6B,QAAC;AACjD,6BAAmB,kCAA6B,QAAC;AACjD,mCAAyB,wCAAmC,QAAC;AAC7D,0BAAgB,+BAA0B,QAAC;AAC3C,4BAAkB,yBAAoB,QAAC,YAAM,CAAC,4BAAD,CAAN;AACvC,qBAAW,0BAAqB,QAAC,YAAM,CAAC,6BAAD,CAAN;AAEjC,qBAAU,CAAC,iBAAD;AACV;AAEA,kBAAO,UAAP,GAAqB;AACrB,gCAAqB,UAArB,GAAmC;AACnC,0BAAe,UAAf,GAA6B;AAC7B,kBAAO,UAAP,GAAqB;AACrB,kBAAO,OAAM,UAAb,GAA2B;AAC3B,kBAAO,UAAP,GAAqB;AACrB,6BAAkB,UAAlB,GAAgC;AAChC,0BAAe,UAAf,GAA6B;AAC7B,yBAAe,6DAA2B,QAAC,YAAM,CAAC,IAAD,CAAN;AAE3C,UAAG,mBAAH,EACE,iBADF;AAzC2D;AAArB;AA2EA;AAE1B,eAAZ,KAAY;AACJ,eAAR,KAAQ;AACA,eAAR,KAAQ;AACW,eAAnB,KAAmB;AACH,eAAhB,KAAgB;AACA,eAAhB,KAAgB;AACM,eAAtB,KAAsB;AACP,eAAf,KAAe;AACP,eAAR,KAAQ;AACK,eAAb,KAAa;AACb,UAAY,gBAAD,QAAX,EACc,SAAZ,KAAY,cADd;AAEA,UAAY,iBAAD,QAAX,EACe,SAAb,KAAa,eADf;AAEA;AAhBsC;AA6gEF;AAEpC,UAAc,0BAAH,eAAP,MAAO,CAAX;AAEE,qBAAiB,OAAP,OAAU,0BAAH,CAAyB;AAC1C,qBAAiB,OAAP,OAAU,0BAAH,CAAyB;AAC1C,sBAAkB,OAAP,OAAU,0BAAH,CAAyB;AAC3C,oBAAgB,OAAP,OAAU,0BAAH,CAAyB;AACzC,wBAAoB,OAAP,OAAU,0BAAH,CAAyB;AAC7C,wBAAoB,OAAP,OAAU,0BAAH,CAAyB;AAC7C,kBAAI,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,MAAlC;AACX,oBAAM,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,QAAlC;AACb,4BAAwB,OAAP,OAAU,0BAAH,CAAyB;AACjD,yBAAqB,OAAP,OAAU,0BAAH,CAAyB;AAC9C,0BAAsB,OAAP,OAAU,0BAAH,CAAyB;AAC/C,4BAAwB,OAAP,OAAU,0BAAH,CAAyB;AACjD,wBAAoB,OAAP,OAAU,0BAAH,CAAyB;AAC7C,wBAAoB,OAAP,OAAU,0BAAH,CAAyB;AAC7C,oBAAO,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,QAAlC;AACd,oBAAO,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,QAAlC;AACd,+BAAkB,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,mBAAlC;AACzB,4BAAe,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,gBAAlC;AACtB,4BAAe,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,gBAAlC;AACtB,kCAAqB,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,sBAAlC;AAC5B,yBAAY,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,aAAlC;AACnB,2BAAc,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,eAAlC;AACrB,oBAAO,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,QAAlC;OAGhB;AA7BoC;AAkPI;AAExC;AAAM;AAEN,aAAQ;AACR,aAAQ;AAER,UAAG,aAAQ,KAAE,CAAb,EACE,OAAQ,KADV;AAEA,UAAG,aAAQ,KAAE,CAAb,EACE,OAAQ,KADV;AAGA,UAAe,CAAX,cAAG,CAAC,KAAD,CAAQ,IAAG,cAAG,CAAC,IAAD,CAAN,CAAc,IAAgB,CAAX,cAAG,CAAC,KAAD,CAAQ,IAAG,cAAG,CAAC,IAAD,CAAN,CAA7C;AAEE,2BAAc,WAAW,CAAC,KAAD;AACzB,4BAAgB;OAHlB;AAMA;AAlBwC;AAqDC;AAEzC,kBAAO,WAAW,CAAC,KAAD;AAFuB;AAKK;AAG9C;AAAM;AAEN,aAAQ;AACR,aAAQ;AAER,UAAG,yBAAW,CAAC,WAAY,QAAb,CAAuB,KAAE,CAAC,CAAxC;AAEE,YAAG,aAAQ,KAAE,CAAb,EACE,OAAQ,UADV;AAGA,YAAG,aAAQ,KAAE,CAAb,EACE,OAAQ,QADV;AAGA,YAAoB,CAAhB,cAAG,CAAC,UAAD,CAAa,IAAG,cAAG,CAAC,IAAD,CAAN,CAAc,IAAmB,CAAd,cAAG,CAAC,QAAD,CAAW,IAAG,cAAG,CAAC,IAAD,CAAN,CAArD;AAEE,6BAAc;AACd,6BAAc,mBAAmB,CAAC,WAAY,QAAb;SAHnC;;AAQA,YAAG,aAAQ,KAAE,CAAb,EACE,OAAQ,QADV;AAGA,YAAG,aAAQ,KAAE,CAAb,EACE,OAAQ,UADV;AAGA,YAAkB,CAAd,cAAG,CAAC,QAAD,CAAW,IAAG,cAAG,CAAC,IAAD,CAAN,CAAc,IAAqB,CAAhB,cAAG,CAAC,UAAD,CAAa,IAAG,cAAG,CAAC,IAAD,CAAN,CAArD;AAEE,6BAAc;AACd,6BAAc,mBAAmB,CAAC,WAAY,QAAb;SAHnC;;AAOF;AArC8C;AArgBJ;AAE1C;AAAQ;AACR;AAEiB,iBAAZ,iBAAY;AACf,UADe,IACf;AAEE,YAAW,CAAP,WAAO,GAAE,CAAF,CAAK,IAAG,CAAnB;AAEE,uBAAQ,uBAAU,CAAC,oBAAc,qBAAe,CAA9B,CAAlB;AACA,2BAAY,CAAC,UAAD;SAGZ,mBAAQ,uBAAU,CAAC,WAAO,qBAAe,CAAvB,CAAlB;AAEF,0BAAa,CAAC,WAAD;OAEf,UAbe,IAaf;AAEE,qBAAQ,qBAAO,CAAC,WAAO,CAAC,CAAT,CAAf;AACA,yBAAY,CAAC,UAAD;OAEd,UAlBe,IAkBf;AAEE,iBAAU;AACV,gBAAS;AACT,4BAAe,oBAAM,CAAC,kBAAc,CAAC,CAAhB,CAArB;AAEA,YAAG,MAAO,KAAG,qBAAO,CAAC,iBAAD,CAApB;AAEE,uBAAQ,iBAAR;AACA,4BAAa,CAAC,WAAD;AAEb,cAAG,KAAM,KAAG,qBAAO,CAAC,iBAAD,CAAnB,EACE,iBAAY,CAAC,UAAD,CADd;SALF;OASF,UAjCe,IAiCf;AAEE,YAAK;AACL,+BAAkB,CAAC,WAAO,kBAAc,IAAtB;AAElB,YAAG,qBAAO,CAAC,CAAD,CAAI,KAAG,qBAAO,CAAC,UAAD,CAAxB,EACE,kBAAa,CAAC,WAAD,CADf;AAEA,YAAG,oBAAM,CAAC,CAAD,CAAI,KAAG,oBAAM,CAAC,UAAD,CAAtB,EACE,iBAAY,CAAC,UAAD,CADd;OAPF;AAWF,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,YAAQ,UAAf,CADhB;AAjD0C;AArFJ;AAEtC;AAAQ;AACR;AAEiB,iBAAZ,iBAAY;AACf,UADe,IACf;AAEE,YAAW,CAAP,WAAO,GAAE,CAAF,CAAK,GAAE,EAAlB;AAEE,uBAAQ,uBAAU,CAAC,gBAAU,iBAAW,CAAtB,CAAlB;AACA,2BAAY,CAAC,UAAD;SAGZ,mBAAQ,uBAAU,CAAC,WAAO,iBAAW,CAAnB,CAAlB;AAEF,0BAAa,CAAC,WAAD;OAEf,UAbe,IAaf;AAEE,qBAAQ,uBAAO,CAAC,UAAD,CAAf;AACA,yBAAY,CAAC,UAAD;OAEd,UAlBe,IAkBf;AAEE,iBAAU;AACV,gBAAS;AACT,4BAAe,sBAAM,CAAC,iBAAD,CAArB;AAEA,YAAG,MAAO,KAAG,qBAAO,CAAC,iBAAD,CAApB;AAEE,uBAAQ,iBAAR;AACA,4BAAa,CAAC,WAAD;AAEb,cAAG,KAAM,KAAG,oBAAM,CAAC,iBAAD,CAAlB,EACE,iBAAY,CAAC,UAAD,CADd;SALF;OASF,UAjCe,IAiCf;AAEE,YAAK;AACL,+BAAkB,CAAC,WAAO,kBAAc,KAAtB;AAElB,YAAG,qBAAO,CAAC,CAAD,CAAI,KAAG,qBAAO,CAAC,UAAD,CAAxB,EACE,kBAAa,CAAC,WAAD,CADf;AAEA,YAAG,oBAAM,CAAC,CAAD,CAAI,KAAG,oBAAM,CAAC,UAAD,CAAtB,EACE,iBAAY,CAAC,UAAD,CADd;OAPF;AAWF,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,YAAQ,UAAf,CADnB;AAjDsC;AAw4BgB;AAEtD;AACA,UAAY,0BAAD,QAAX,EACE,uBADF;AAHsD;AAjXb;AAEzC,yBAAc;AACd,yBAAc,WAAW,CAAC,KAAD;AACzB,mBAAQ,KAAR;AACA,0BAAgB;AAChB;AANyC;AA8BU;AAEnD;AAAM;AAEN,aAAQ;AACR,aAAQ;AAER,UAAG,aAAQ,KAAE,CAAb,EACE,OAAQ,KADV;AAEA,UAAG,aAAQ,KAAE,CAAb,EACE,OAAQ,KADV;AAGA,UAAe,CAAX,cAAG,CAAC,KAAD,CAAQ,IAAG,cAAG,CAAC,IAAD,CAAN,CAAc,IAAgB,CAAX,cAAG,CAAC,KAAD,CAAQ,IAAG,cAAG,CAAC,IAAD,CAAN,CAA7C;AAEE,2BAAc;AACd,2BAAc,WAAW,CAAC,KAAD;AACzB,qBAAQ,KAAR;AACA,4BAAgB;AAChB,4BAAgB;OANlB;AASA;AArBmD;AA1kBX;AAExC;AAEA;AAEA;AANwC;AAkaL;AAAN;AAE7B,UAAG,0BAAoB,SAAvB;AAEE,YAAO,CAAH,EAAG,GAAE,aAAF,CAAsC,IAAlB,CAAH,EAAG,GAAa,CAAX,IAAI,SAAC,EAAM,GAAE,CAAF,CAAb,CAAR,IAAwC,CAAT,aAAS,KAAG,CAAH,CAA3D;AACE,mBAAU,gBAAK,CAAC,EAAG,GAAE,aAAN;AAEf,uBAAU,CAAC;;AAIb,YAAO,CAAH,EAAG,GAAE,CAAF,CAA+B,IAAlB,CAAH,EAAG,GAAa,CAAX,IAAI,SAAC,EAAM,GAAE,CAAF,CAAb,CAAR,IAAwC,CAAT,aAAS,KAAG,CAAH,CAApD;AACE,mBAAU,gBAAK,CAAC,EAAG,GAAE,aAAN,CAAgB,GAAE,CAAF;AAE/B,uBAAU,CAAC;;AAdc;AAAM;AAiHA;AAAN;AAE7B;AAAG;AAEH,UAAG,YAAO,SAAV;AACE,YAAK,YAAO,QAAQ,GAAE,uBAAkB,QAApB;AAEpB,gBAAK,uBAAkB;AAEzB,UAAG,YAAO,SAAV;AACE,YAAK,IAAI,UAAC,EAAO,GAAE,YAAO,QAAT;AAEjB,gBAAK,IAAI,UAAC;AAEZ,UAAO,CAAH,EAAG,GAAE,CAAF,CAAkB,IAAL,CAAH,EAAG,GAAE,CAAF,CAAR,IAA2B,CAAT,aAAS,KAAG,CAAH,CAAvC;AAEE,YAAG,YAAO,SAAV;AACE,mBAAU,gBAAK,CAAsB,CAApB,EAAoB,GAAf,YAAO,QAAT,GAAmB,uBAAkB,QAApB,CAA6B,GAAE,aAArD,CAA+D,GAAE,CAAF;AAE9E,uBAAU,gBAAK,CAAK,CAAH,EAAG,GAAE,uBAAkB,QAApB,CAA6B,GAAE,aAApC,CAA8C,GAAE,CAAF;OAG/D,eAAU,CAAC;AAtBgB;AAAM;AA7uEG;AAAT;AAE7B;AAEA,WAAM,sBAAS,CAAC,uBAAU,CAAC,WAAO,YAAQ,CAAhB,CAAX,CAA+B,GAAE,cAAF;AAC9C,UAAG,EAAG,GAAE,CAAR,EACE,KAAM,EAAG,GAAE,CADb;AAGA,eAAkC,UAAhB,CAAJ,CAAH,EAAG,GAAE,CAAF,CAAI,GAAE,mBAAK,CAAC,KAAD,CAAP,CAAgB,GAAI,CAAJ;AARL;AAAS;AAdA;AAAT;AAE7B;AAEA,YAAO,sBAAS,CAAC,uBAAU,CAAC,WAAO,YAAQ,CAAhB,CAAX,CAA+B,GAAE,cAAF;AAC/C,UAAG,GAAI,GAAE,CAAT,EACE,MAAO,GAAI,GAAE,CADf;AAGA,UAAG,0BAAoB,SAAvB;AACE,iBAA8B,CAAnB,GAAmB,GAAb,mBAAK,CAAC,KAAD,CAAP,GAAiB,cAAS,CAAC,KAAD,CAAX,CAAoB,GAAI,CAAJ;AAElD,qBAA8B,CAAf,CAAJ,GAAI,GAAE,mBAAK,CAAC,KAAD,CAAP,CAAe,GAAE,CAAF,CAAK,GAAI,CAAJ;AAXR;AAAS;AAw5DD;AAAR;AAE7B;AAAS;AAAS;AAAO;AAAO;AAAM;AACtC;AAEA,cAAS,WAAM,CAAC,EAAD;AACf,cAAS,WAAM,CAAC,EAAD;AAEf,UAAU,CAAN,KAAM,KAAE,CAAC,CAAH,CAAM,IAAU,CAAN,KAAM,KAAE,CAAC,CAAH,CAA1B;AAEE,iBAAU;AACV;OAHF;AAMA,kBAAc,uBAAU,CAAC,WAAO,YAAQ,CAAhB;AACxB,gBAAW;AACX,gBAAW,sBAAS,CAAC,SAAD,CAAY,GAAE,cAAF;AAEhC,UAAI,OAAQ,GAAE,CAAd,EACE,UAAW,OAAQ,GAAE,CADvB;AAGI,aAAJ,IAAG;AACH,aAAc,CAAN,KAAM,GAAE,OAAF,CAAU,GAAE,CAAF;AAExB,UAAY,CAAR,OAAQ,KAAE,KAAF,CAAS,IAAK,CAAI,oBAAe,gBAA7C;AAEE,YAAI,IAAK,GAAE,CAAX;AAEE,mBAAU;AACV;SAHF;AAKA,iBAAU,uBAAU,CAAC,WAAO,YAAQ,IAAhB;AACpB;OAEG,UAAY,CAAR,OAAQ,KAAE,KAAF,CAAS,IAAI,oBAAe,gBAAxC;AAEH,YAAI,IAAK,GAAE,CAAX;AAEE,mBAAU,oBAAM,CAAC,UAAW,KAAM,GAAE,OAApB;AAChB;SAHF;OAFG;AASL,aAA8B,CAAL,CAAhB,KAAgB,GAAR,OAAF,GAAY,CAAF,CAAK,GAAE,CAAF,CAAY,GAAN,KAAF,GAAuB,CAAV,CAAF,CAAE,GAAE,OAAF,CAAU,GAAE,CAAF,CAAf;AAC1C,YAAO,0BAAY,CAAC,WAAO,WAAR;AACnB,kBAAa,uBAAU,CAAC,WAAO,YAAQ,GAAhB;AAEvB,UAAS,CAAL,IAAK,GAAE,GAAF,CAAO,IAAK,CAAI,oBAAe,eAAxC;AACE,iBAAU;AACP,gBAAS,CAAL,IAAK,GAAE,GAAF,CAAO,IAAI,oBAAe,eAAnC;AACH,iBAAU,oBAAM,CAAC,UAAW,IAAK,GAAE,GAAnB;AAEhB,qBAAU,uBAAU,CAAC,WAAO,YAAQ,IAAhB;AApDO;AAAQ;AAvkBE;AAAV;AAE7B,eAAU,mBAAK,CAAC,kBAAD;AAFc;AAAU;AAKE;AAAZ;AAE7B,eAAU,qBAAO,CAAC,kBAAD;AAFY;AAAY;AAKD;AAAX;AAE7B,eAAU,oBAAM,CAAC,kBAAD;AAFa;AAAW;AA4iBE;AAAb;AAE7B;AAEA,eAAU,WAAO,GAAE,CAAF;AAEjB,UAAG,MAAO,KAAE,CAAZ,EACE,SAAU,EADZ;AAGA,eAAU;AATmB;AAAa;AAYD;AAAZ;AAE7B,eAAU,UAAM,GAAE,CAAF;AAFa;AAAY;AAjGH;AAAT;AAE7B;AAEA,eAAU,WAAO,GAAE,CAAF;AAEjB,UAAG,MAAO,KAAE,EAAZ,EACE,SAAU,CADZ;AAGA,eAAU;AATmB;AAAS;AAYD;AAAR;AAE7B,eAAU,UAAM,GAAE,CAAF;AAFa;AAAQ;AA4gBI;AAAZ;AAE7B,UAAG,mBAAc,SAAC,EAAM,GAAE,CAA1B;AACE,iBAAU,mBAAc,UAAM,CAAC,mBAAc,SAAC,EAAM,GAAE,CAAxB,CAA0B;AAExD,qBAAU;AALiB;AAAY;AAxvFpB;;;;;;;;AAyPD,+BAAO,U3G1RjB,+B2G0RiB,CAAP;AAzPC;AAgSN;;;;;;;;;AAEW,uC1BxxBJ,oE0BwxBI;AACN;AACH,8BAtwBI,oCAswBJ;AACA,8BA7tBI,oCA6tBJ;AACF,4B7B/GI,+D6B+GJ;AACE,8B7B4BI,iE6B5BJ;AACH;AACE;AACD;AACA,4BpH/zBV,0BoH+zBU;AACG,gCpHh0Bb,0BoHg0Ba;AACA,gCpHj0Bb,0BoHi0Ba;AACC;AACF,8BAzYI,oCAyYJ;AACc,4CAniBI,kDAmiBJ;AACH,yCA1rBI,+CA0rBJ;AACH,sCAzpBI,4CAypBJ;AACA,sCAvjBI,4CAujBJ;AACH,mCAndI,yCAmdJ;AACD,kC7BpDM,uE6BoDN;AACQ,0CAlWO,mDAkWP;AACD,yCAlWO,kDAkWP;AACC,0CAhWO,mDAgWP;AACD,yCAhWO,kDAgWP;AACG,4CA9VO,qDA8VP;AACD,2CA9VO,oDA8VP;AACG,8CA5VO,uDA4VP;AACD,6CA5VO,sDA4VP;AACJ,yCA1VO,kDA0VP;AACD,wCA1VO,iDA0VP;AACO,+CA1VO,wDA0VP;AACD,8CA1VO,uDA0VP;AACD,6CAtVO,sDAsVP;AACD,4CAtVO,qDAsVP;AACE,8CAtVO,uDAsVP;AACD,6CAtVO,sDAsVP;AACJ,yCA5VO,kDA4VP;AACD,wCA5VO,iDA4VP;AACM,8CAlXO,uDAkXP;AACD,6CAlXO,sDAkXP;AACC,8CAhXO,uDAgXP;AACD,6CAhXO,sDAgXP;AACG,gDA9WO,yDA8WP;AACD,+CA9WO,wDA8WP;AACG,kDA5WO,2DA4WP;AACD,iDA5WO,0DA4WP;AACE,mDAxWO,4DAwWP;AACD,kDAxWO,2DAwWP;AACR,0CAlWO,mDAkWP;AACN,oCAlWS,+CAkWT;AACK,yCAlWS,oDAkWT;AACJ,qCAlWO,8CAkWP;AACC,sCAlWO,+CAkWP;AACI,0CAlWO,mDAkWP;AACD,yCAlWO,kDAkWP;AACH,sCAlWS,iDAkWT;AACG,yCAnWM,iDAmWN;AACD,wCvGhvBf,6CuGgvBe;AACM,8CApWJ,4CAoWI;AACD,6CArWH,4CAqWG;AACG,gDArWE,oDAqWF;AACC,iDArWE,qDAqWF;AA/DrB;;AAj3BjB,mBAm7Bc;AAMF,uBAAG,CAAC;AACR,mBAAG;AAIe;AAEJ;AAAb;AAEP;AAAG;AAAG;AAAG;AAET,6BAAU,CAAC,mBAAK;;;;WAAG;;;;WAAG;;;;WAAG;;;;UAAf;AACV,eAAU,EAA8B,GAAvB,CAAF,CAAE,GAAE,IAAF,CAAJ,GAAoB,CAAP,CAAO,GAAH,EAAF,GAAO,IAAF,CAAT,GAA8B,CAAZ,CAAY,GAAR,EAAF,GAAO,EAAF,GAAO,IAAF,CAAd;AALjC;AAAa;AAbR;AAn7Bd,GAm7Bc,yDAn7Bd;ACAA,sCAWS,gTAXT;;;;AA2BS,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AAoByB,0FAAmB,UrH6D/C,2BqH7D+C,EAAgB,SrHWjE,yBqHXiE,CAAnC;AACC,2FAAmB,UrH4DhD,2BqH5DgD,EAAoB,yBAAmB,SrHQrF,8BqHRqF,GAAyB,0BAAnF;AAEQ,mGAAmB,UrH0DxD,2BqH1DwD,EAAqB,wBAAxC;AAEhB;;AAEL;AACC;AACE;AACD,sCDoUI,oECpUJ;AALG;AAQL;;;AAErB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA/CqB;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAmoCwB;AAE/C,UAAG,2BAAuB,IAAgB,CAAX,cAAG,CAAC,KAAD,CAAQ,KAAE,CAAF,CAA1C;AACE,wBAAW,EAAX;AAEA,4BAAW,sBAAS,CAAC,KAAD,CAApB;AAEF,0BAAgB;AAChB;AAR+C;AAxDN;AAEzC,wBAAa,QAAO,OAAO,CAAC,KAAD;AAFc;AAmEc;AAGvD,wBAAa,sBAAqB,OAAO,CAAC,KAAD;AAHc;AA/FN;AAGjD,wBAAa,gBAAe,OAAO,CAAC,KAAD;AAHc;AAWG;AAGpD,wBAAa,mBAAkB,OAAO,CAAC,KAAD;AAHc;AAgDH;AAGjD,wBAAa,gBAAe,OAAO,CAAC,KAAD;AAHc;AANH;AAG9C,uBAAY,OAAO,CAAC,KAAD;AAH2B;AAYJ;AAE1C,wBAAa,WAAC,CAAW,KAAX;AACd,UAAG,yBAAW,CAAC,uBAAc,KAAf,CAAsB,KAAE,CAAtC,EACE,qBAAgB,KAAhB,CADF;AAH0C;AAOA;AAE1C,wBAAa,WAAC,CAAW,KAAX;AACd,UAAG,yBAAW,CAAC,uBAAc,KAAf,CAAsB,KAAE,CAAC,CAAvC,EACE,qBAAgB,KAAhB,CADF;AAH0C;AAvCC;AAE3C,wBAAa,YAAC,CAAY,KAAZ;AAF6B;AAeF;AAEzC,kBAAO,OAAO,CAAC,KAAD;AAF2B;AALA;AAEzC,wBAAa,QAAO,OAAO,CAAC,KAAD;AAFc;AAvDM;AAG/C,wBAAa,MAAK,OAAO,CAAC,KAAD;AAHsB;AAME;AAGjD,wBAAa,QAAO,OAAO,CAAC,KAAD;AAHsB;AAZC;AAGlD,wBAAa,mBAAC,CAAmB,KAAnB;AAHoC;AALN;AAE5C,wBAAa,aAAC,CAAa,KAAb;AAF8B;AA6BN;AAEtC,wBAAa,OAAC,CAAO,KAAP;AAFwB;AAyEE;AAExC,wBAAa,SAAC,CAAS,KAAT;AAF0B;AAsBD;AAEvC,wBAAa,QAAC,CAAQ,KAAR;AAFyB;AA1IiB;AAGxD,UAAG,2BAAuB,KAAG,KAA7B;AAEE,sCAA0B;AAC1B,YAAG,2BAAuB,IAAuB,CAAlB,cAAG,CAAC,sBAAD,CAAe,KAAE,CAAF,CAAjD;AACE,0BAAW,EAAX;AAEA,8BAAW,sBAAS,CAAC,sBAAD,CAApB;OANJ;AAQA;AAXwD;AAlLV;AAAf;AAE/B,eAAU;AACV,UAAI,kBAAa,eAAc,SAAC,EAAM,GAAE,CAAxC,EACE,SAAgB,kBAAa,eAD/B;AAH+B;AAAe;AAxCN;AAAT;AAE/B,eAAU,kBAAa;AAFQ;AAAS;AAoDc;AAAvB;AAE/B,eAAU,kBAAa;AAFQ;AAAuB;AAnEN;AAAjB;AAE/B,eAAU,kBAAa;AAFQ;AAAiB;AAUG;AAApB;AAE/B,eAAU,kBAAa;AAFQ;AAAoB;AAyBH;AAAjB;AAE/B,eAAU,kBAAa;AAFQ;AAAiB;AAKP;AAAV;AAE/B,eAAU,kBAAa;AAFQ;AAAU;AAKA;AAAV;AAE/B,eAAU,kBAAa;AAFQ;AAAU;AAzBC;AAAX;AAE/B,eAAU,kBAAa;AAFQ;AAAW;AAUF;AAAT;AAE/B,eAAU,kBAAa;AAFQ;AAAS;AAxCM;AAAf;AAE/B,eAAU,kBAAa;AAFQ;AAAe;AAKE;AAAjB;AAE/B,eAAU,kBAAa;AAFQ;AAAiB;AAVC;AAAlB;AAE/B,eAAU,kBAAa,mBAAC;AAFO;AAAkB;AALN;AAAZ;AAE/B,eAAU,kBAAa;AAFQ;AAAY;AAyBN;AAAN;AAE/B,eAAU,kBAAa;AAFQ;AAAM;AA6CE;AAAR;AAE/B,eAAU,kBAAa;AAFQ;AAAQ;AAsBD;AAAP;AAE/B,eAAU,kBAAa;AAFQ;AAAO;AA4OA;AAEtC,kBAAK,aAAa,CAAC,KAAD;AAFoB;AAjxBQ;AAE9C;AACA;AAEA,kBAAI,UAAC,CAAU,sCAAY,UAAU,CAAC,YAAK,SAAS,EAAG,CAAlB,CAAhC;AACL,kBAAM,MAAK,UAAC,CAAU,sCAAY,UAAU,CAAC,YAAM,MAAK,SAAS,EAAG,CAAxB,CAAhC;AACZ,kBAAM,UAAC,CAAU,sCAAY,UAAU,CAAC,YAAM,SAAS,EAAG,CAAnB,CAAhC;AAKP;AAZ8C;AA6WA;AAE9C,UAAG,yCAAU,IAAG,oBAAhB,EACE,MADF;AAGA,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,sBAAP,CADhB;AAGA;AAR8C;AA8BJ;AAE1C;AACA;AAEA,WAAM;AACN,UAAK;AACL,UAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,KAAM,UAAI,QAAC,GAAM;;;;WAAG;;;;UAArB,CADZ;AAGA,UAAG,EAAH;AAEE,YAAG,yBAAY,CAAC,UAAI,QAAC,GAAM;;;;YAAZ,CAAf;AACE,+BAAgB,cAAG,CAAC,CAAD,CAAnB;AAEA,mCAAgB,cAAG,CAAC,kBAAD,CAAnB;OAGF,2BAAgB,cAAG,CAAC,CAAD,CAAnB;AAlBwC;AAnBA;AAE1C;AAEA,UAAK;AACL,mCAAwB,CAAC;;;;UAAD;AACxB,UAAG,CAAH,EACE,iBADF;AAGA;AAT0C;AAoOJ;AAEtC;AACA,UAAY,kBAAD,QAAX;AAEE,0BAAa,SAAC,CAAS,UAAK,CAAC,mBAAD,CAAd;AACd,0BAAa,UAAC,CAAU,UAAK,CAAC,oBAAD,CAAf;AACd,0BAAa;OAJf;AAHsC;AA3JI;AAE1C,UAAY,UAAD,QAAX,EACE,UAAI,MAAK,OAAO,CAAC,YAAD,CADlB;AAGA;AAL0C;AA+HK;AAE/C;AACA,UAAG,2BAAuB,IAAuB,CAAlB,cAAG,CAAC,sBAAD,CAAe,KAAE,CAAF,CAAjD;AAEE,0BAAa,QAAC,CAAQ,cAAG,CAAC,kBAAD,CAAX;OAEX,UAAG,cAAmC,IAAd,CAAC,UAAI,QAAL,SAAZ,IAA8B,UAAI,SAA9C;AAEH;OAFG;AAKqB,mBAAS,MAAK,OAAO,CAAC,kBAAa,MAAd;AACrB,mBAAS,QAAO,OAAO,CAAC,kBAAa,QAAd;AACjD,wBAAa,SAAC,CAAS,UAAK,CAAC,mBAAD,CAAd;AACd,wBAAa,UAAC,CAAU,UAAK,CAAC,oBAAD,CAAf;AACd,wBAAa,QAAO,OAAO,CAAC,YAAD;AAC3B,wBAAa,aAAY,OAAO,CAAC,iBAAD;AAChC,wBAAa;AAlBkC;AAxlBL;AAE1C;AAEA;AACA,UAAK;AACL,UAAG,wCAAa,wBAAwB,CAAC;;;;UAAD,CAAxC,EACE,YAAO,MAAK,SAAC,CAAS,CAAT,CADf;AAGA,UAAK;AACL,UAAG,wCAAa,0BAA0B,CAAC;;;;UAAD,CAA1C;AAEE,oBAAO,MAAK,QAAC,CAAQ,qEAAR;AACb,oBAAO,MAAK,WAAC,CAAW,CAAX;OAHf;AAMA,UAAK;AACL,UAAG,wCAAa,sBAAsB,CAAC;;;;UAAD,CAAtC;AAEE,oBAAM,QAAO,SAAC,CAAS,CAAT;AACd,oBAAM,OAAM,SAAC,CAAS,CAAT;OAHf;AAjB0C;AAsoBS;AAEnD;AACA,kBAAO,MAAK,QAAC,CAAQ,kEAAR;AACb,kBAAO,QAAO,QAAC,CAAQ,oEAAR;AACf,kBAAO,MAAK,SAAC,CAAS,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAA1B;AACb,kBAAO,QAAO,SAAC,CAAS,QAAT;AACf,kBAAO,MAAK,SAAC,CAAS,CAAT;AACb,kBAAO,OAAM,SAAC,CAAS,OAAT;AARqC;AA+EJ;AAE/C;AACA,UAAY,aAAD,QAAX,EACE,aAAQ,gBAAC,CAAgB,sBAAhB,CADX;AAEA,UAAY,kBAAD,QAAX,EACE,kBAAa,gBAAC,CAAgB,sBAAhB,CADhB;AAL+C;AA7RJ;AAG3C;AAEA;AACA,UAAG,CAAI,cAAP;AAEE,iBAAS,MAAK,aAAa,CAAC,YAAD;AAE3B,YAAG,CAAI,aAAP,EACE,SAAS,MAAK,SAAC,CAAS,QAAT,CADjB;AAGA,kBAAK,KAAL;AACA,+CAAa,CAAC,EAAG,CAAC,EAAG,CAAC,CAAT;AACb,iBAAS,WAAS,CAAC,2CAAG,kB5B9emD,MAAoD,sEAAuD,qEAAoD,sEAA0B,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,C4B6e1J;OATpB;AAN2C;AAyNK;AAEhD;AAEA;AACA,UAAK,uBAAU,CAAC,kBAAa,OAAO,kBAAa,QAAQ,CAA1C;AACf,UAAiB,CAAb,cAAG,CAAC,iBAAD,CAAU,GAAE,cAAG,CAAC,CAAD,CAAL,CAAU,IAAkC,CAA7B,yBAAW,CAAC,uBAAc,CAAf,CAAkB,KAAG,CAAH,CAA7D;AAEE,6BAAgB,CAAhB;AACA;OAEG,UAAuC,CAAnC,yBAAW,CAAC,uBAAc,iBAAf,CAAwB,KAAG,CAAH,CAAM,IAAkC,CAA7B,yBAAW,CAAC,uBAAc,CAAf,CAAkB,KAAG,CAAH,CAA/E;AAEH,6BAAgB,iBAAhB;AACA;OAHG;AAX2C;AAkBD;AAE/C;AACA;AAEA;AACA,YAAO,0BAAY,CAAC,kBAAa,OAAO,kBAAa,OAAlC;AACnB,UAAK,uBAAU,CAAC,kBAAa,OAAO,kBAAa,QAAQ,GAA1C;AAEf,UAAmB,CAAN,CAAR,iBAAQ,KAAG,CAAH,CAAM,IAAkB,CAAb,cAAG,CAAC,iBAAD,CAAU,GAAE,cAAG,CAAC,CAAD,CAAL,CAAlB,CAA6B,IAAY,CAAR,iBAAQ,KAAE,CAAF,CAA5D;AAEE,YAAG,yBAAW,CAAC,uBAAc,CAAf,CAAkB,KAAG,CAAnC;AAEE,+BAAgB,CAAhB;AACA;SAHF;OAMG,UAAuC,CAAnC,yBAAW,CAAC,uBAAc,iBAAf,CAAwB,KAAG,CAAH,CAAM,IAAkC,CAA7B,yBAAW,CAAC,uBAAc,CAAf,CAAkB,KAAG,CAAH,CAA/E;AAEH,6BAAgB,iBAAhB;AACA;OAHG;AAjB0C;AAwBA;AAE/C;AAEA;AACA,UAAK,oBAAM,CAAC,kBAAa,OAAO,CAArB;AACX,UAAG,cAAG,CAAC,iBAAQ,GAAE,CAAX,CAAc,KAAG,cAAG,CAAC,CAAD,CAA1B;AAEE,6BAAgB,oBAAM,CAAC,kBAAa,OAAO,CAArB,CAAtB;AACA;OAHF;AAN+C;AAaI;AAEnD;AAEA;AACA,UAAK,oBAAM,CAAC,kBAAa,OAAO,CAAC,CAAtB;AACX,UAAgB,CAAb,cAAG,CAAC,iBAAD,CAAU,GAAE,CAAF,CAAI,KAAG,cAAG,CAAC,CAAD,CAA1B;AAEE,6BAAgB,CAAhB;AACA;OAHF;AANmD;AAtPb;AAEtC;AACA,UAAG,eAAK,QAAR,EACE,eADF;AAHsC;AAPE;AAExC;AACA,UAAG,CAAI,eAAK,QAAZ,EACE,eADF;AAHwC;AAuHK;AAG7C;AACK;AACH,UADG,IACH;AAEE,YAAG,kBAAa,OAAO,KAAG,CAA1B;AACE,+BAAgB,uBAAU,CAAC,kBAAa,OAAO,kBAAa,iBAAgB,CAAlD,CAA1B;AAEA,mCAAgB,uBAAU,CAAC,kBAAa,gBAAe,kBAAa,iBAAgB,CAA1D,CAA1B;OAEJ,UARG,IAQH;AAEE,YAAG,kBAAa,OAAO,KAAG,EAA1B;AACE,+BAAgB,uBAAU,CAAC,kBAAa,OAAO,kBAAa,aAAY,CAA9C,CAA1B;AAEA,mCAAgB,uBAAU,CAAC,kBAAa,YAAW,kBAAa,aAAY,CAAlD,CAA1B;OALJ;AAZ2C;AAkNF;AAE3C;AACA,UAAG,2BAAuB,IAAuB,CAAlB,cAAG,CAAC,iBAAD,CAAe,KAAE,CAAF,CAAjD;AACE,wBAAW,EAAX;AAEA,4BAAW,sBAAS,CAAC,iBAAD,CAApB;AAEF;AAR2C;AAyFG;AAE9C;AAEA;AACA,UAAG,KAAM,KAAE,EAAX;AAEE,YAAI,CAAE,KAAE,cAAG,CAAC,iBAAD,CAAX;AAEE,4BAAa,YAAY,CAAC,CAAD;AACzB;SAHF;OAMG,UAAG,yBAAY,CAAC,MAAO;;;;UAAR,CAAf;AAEH,YAAW,CAAP,cAAG,CAAC,CAAD,CAAI,KAAG,cAAG,CAAC,sBAAD,CAAN,CAAmD,IAAjB,CAAP,cAAG,CAAC,CAAD,CAAI,IAAG,cAAG,CAAC,iBAAD,CAAN,CAAZ,IAAgF,CAApB,CAAjB,CAAP,cAAG,CAAC,CAAD,CAAI,IAAG,cAAG,CAAC,iBAAD,CAAN,CAAiB,IAAa,CAAR,iBAAQ,KAAG,CAAH,CAAb,CAAoB,IAAY,CAAR,iBAAQ,KAAE,CAAF,CAAZ,CAAjH;AAEE,4BAAa,YAAY,CAAC,cAAG,CAAC,CAAD,CAAJ;AACzB;SAHF;OAFG;AAbyC;AA3vBF;AAE5C,UAAG,cAAS,IAAI,UAAI,YAApB,EACE,wBAAmB,IADrB;AAGA,UAAG,sBAAH,EACE,eADF;AAGA,2BAAgB,kBAAa,eAA7B;AAEA;AAV4C;AAoMM;AAGlD,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,UAAW,+CAAO,OAAQ,YAAjC,CADpB;AAHkD;AA7GD;AAGjD,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,UAAW,8CAAlB,CADnB;AAHiD;AAoHK;AAKtD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,UAAW,+CAAO,MAAO,qBAAsB,mBAAoB,OAAQ,YAAlF,CADxB;AALsD;AA7GD;AAIrD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,UAAW,+CAAO,MAAO,qBAAsB,kBAAtD,CADvB;AAJqD;AAsFH;AAGlD,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,UAAW,+CAAO,OAAQ,YAAjC,CADpB;AAHkD;AA5GD;AAGjD,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,UAAW,8CAAlB,CADnB;AAHiD;AAmHK;AAKtD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,UAAW,+CAAO,MAAO,qBAAsB,mBAAoB,OAAQ,YAAlF,CADxB;AALsD;AA5GD;AAIrD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,UAAW,+CAAO,MAAO,qBAAsB,kBAAtD,CADvB;AAJqD;AAoED;AAGpD,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,UAAW,+CAAO,OAAQ,YAAjC,CADtB;AAHoD;AAzGD;AAGnD,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,UAAW,8CAAlB,CADrB;AAHmD;AAgHK;AAKxD,UAAY,8BAAD,QAAX,EACE,8BAAwB,CAAC,KAAM,UAAW,+CAAO,MAAO,qBAAsB,mBAAoB,OAAQ,YAAlF,CAD1B;AALwD;AAzGD;AAIvD,UAAY,6BAAD,QAAX,EACE,6BAAuB,CAAC,KAAM,UAAW,+CAAO,MAAO,qBAAsB,kBAAtD,CADzB;AAJuD;AAkHD;AAItD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,UAAW,+CAAO,MAAO,OAAQ,YAAxC,CADxB;AAJsD;AA1GD;AAGrD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,UAAW,+CAAO,KAAzB,CADvB;AAHqD;AAkHK;AAK1D,UAAY,gCAAD,QAAX,EACE,gCAA0B,CAAC,KAAM,UAAW,+CAAO,MAAO,qBAAsB,mBAAoB,OAAQ,YAAlF,CAD5B;AAL0D;AA3GD;AAIzD,UAAY,+BAAD,QAAX,EACE,+BAAyB,CAAC,KAAM,UAAW,+CAAO,MAAO,qBAAsB,kBAAtD,CAD3B;AAJyD;AAoJR;AAGjD,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,UAAW,OAAQ,YAA1B,CADnB;AAHiD;AA9GD;AAEhD,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,SAAP,CADlB;AAFgD;AAqHO;AAGvD,UAAY,6BAAD,QAAX,EACE,6BAAuB,CAAC,KAAM,UAAW,+CAAO,OAAQ,YAAjC,CADzB;AAHuD;AA/GD;AAGtD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,UAAW,8CAAlB,CADxB;AAHsD;AAsHK;AAK3D,UAAY,iCAAD,QAAX,EACE,iCAA2B,CAAC,KAAM,UAAW,+CAAO,MAAO,qBAAsB,mBAAoB,OAAQ,YAAlF,CAD7B;AAL2D;AA/GD;AAI1D,UAAY,gCAAD,QAAX,EACE,gCAA0B,CAAC,KAAM,UAAW,+CAAO,MAAO,qBAAsB,kBAAtD,CAD5B;AAJ0D;AAwBT;AAIjD,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,UAAW,+CAAO,OAAQ,OAAQ,YAAzC,CADnB;AAJiD;AAxGD;AAGhD,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,UAAW,+CAAO,MAAzB,CADlB;AAHgD;AAwFK;AAIrD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,UAAW,oDAAY,OAAQ,YAAtC,CADvB;AAJqD;AAtGD;AAGpD,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,UAAW,mDAAlB,CADtB;AAHoD;AA8GE;AAItD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,UAAW,oDAAY,OAAQ,YAAtC,CADxB;AAJsD;AAvGD;AAGrD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,UAAW,mDAAlB,CADvB;AAHqD;AAqNH;AAGlD,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,KAAP,CADpB;AAHkD;AAyDD;AAGjD,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,WAAY,QAAnB,CADnB;AAHiD;AA3CL;AAE5C,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,KAAP,CADf;AAF4C;AAPC;AAG7C,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,MAAP,CADhB;AAH6C;AAoBK;AAGlD,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,MAAO,aAAc,UAA5B,CADpB;AAHkD;AAPD;AAGjD,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,UAAW,+CAAO,UAAzB,CADnB;AAHiD;AA1BO;AAExD,UAAY,8BAAD,QAAX,EACE,8BAAwB,CAAC,KAAM,MAAP,CAD1B;AAFwD;AAgRL;AAApB;AAG/B,eAAwC,sFAAC,QAAS,cAAe,aAAzB;AACxC,eAAU,MAAqC,IAAZ,CAAd,aAAc,KAAE,QAAF,CAAlB,IAAgD,CAAd,aAAc,KAAE,QAAF,CAAlB;AAJhB;AAAoB;AA1DV;AAAV;AAE/B,eAAU,4BAAgB,CAAC,EAAS,EAAS,EAAS,CAA5B;AAFK;AAAU;AA9eI;AAAd;AAE/B,sBAAY,wDAAqB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,2BAAiB,4CAAe,QAAC,YAAM,CAAC,aAAD,CAAN;AACjC,wBAAa,UAAC,CAAU,aAAV;AAEd,wBAAa,cAAb,GAA8B;AAC9B,wBAAa,oBAAb,GAAoC;AACpC,wBAAa,mBAAb,GAAmC;AACnC,wBAAa,oBAAb,GAAoC;AACpC,wBAAa,mBAAb,GAAmC;AACnC,wBAAa,sBAAb,GAAsC;AACtC,wBAAa,qBAAb,GAAqC;AACrC,wBAAa,wBAAb,GAAwC;AACxC,wBAAa,uBAAb,GAAuC;AACvC,wBAAa,mBAAb,GAAmC;AACnC,wBAAa,kBAAb,GAAkC;AAClC,wBAAa,yBAAb,GAAyC;AACzC,wBAAa,wBAAb,GAAwC;AACxC,wBAAa,uBAAb,GAAuC;AACvC,wBAAa,sBAAb,GAAsC;AACtC,wBAAa,wBAAb,GAAwC;AACxC,wBAAa,uBAAb,GAAuC;AACvC,wBAAa,mBAAb,GAAmC;AACnC,wBAAa,kBAAb,GAAkC;AAClC,wBAAa,wBAAb,GAAwC;AACxC,wBAAa,uBAAb,GAAuC;AACvC,wBAAa,wBAAb,GAAwC;AACxC,wBAAa,uBAAb,GAAuC;AACvC,wBAAa,0BAAb,GAA0C;AAC1C,wBAAa,yBAAb,GAAyC;AACzC,wBAAa,4BAAb,GAA4C;AAC5C,wBAAa,2BAAb,GAA2C;AAC3C,wBAAa,6BAAb,GAA6C;AAC7C,wBAAa,4BAAb,GAA4C;AAC5C,wBAAa,oBAAb,GAAoC;AACpC,wBAAa,mBAAb,GAAmC;AACnC,wBAAa,eAAb,GAA+B;AAC/B,wBAAa,gBAAb,GAAgC;AAChC,wBAAa,oBAAb,GAAoC;AACpC,wBAAa,mBAAb,GAAmC;AAEnC,eAAU;AA1CqB;AAAc;AAycG;AAAjB;AAE/B,eAAU;AAFqB;AAAiB;AAjeR;AAExC;AACA,2BAAgB,cAAG,CAAC,kBAAD,CAAnB;AACA,qBAAW,kDAAqB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,0BAAgB,iCAA4B,QAAC;AAC7C,+BAAqB;AACrB,oCAA0B;AAC1B,qBAAS,qDAAmB,QAAC;AAC7B,kBAAK,WAAL,GAAoB;AACpB,oBAAS,EAAT;AACA,4BAAiB,GAAjB;AACA,6BAAkB,GAAlB;AAZ6D;AAArB;AAkFA;AAElC,eAAN,KAAM;AACE,eAAR,KAAQ;AACK,eAAb,KAAa;AACb;AALwC;AAxFH;AAErC,2BAAgB,CAAhB;AACA;AAHqC;AAnVd;;;;;;;;AA6MH,+BAAO,U5GoSjB,+B4GpSiB,CAAP;AA7MG;AAwNN;AA09B+B;AAEhD;AACA,+BAAa,CAAC,sBAAD;AAHmC;AA19B/B;;;;;;;;AAIe;AACN,uC3BjMJ,oE2BiMI;AACP;AACA;AACD,+BrHlOb,0BqHkOa;AACA,+BrHnOb,0BqHmOa;AACD,8BDsNI,4DCtNJ;AACG;AACH,8BDpLI,4DCoLJ;AACA,8BD3II,4DC2IJ;AACF,4B9B+fI,+D8B/fJ;AACO,mCA/OM,2CA+ON;AACE;AACC;AACE;AACF,sCAxPU,kDAwPV;AACF,oCrH9OlB,0BqH8OkB;AACQ,4CDkDI,0EClDJ;AACN,sCDnEI,oECmEJ;AACG,yCDtGI,uECsGJ;AACH,sCD8BI,oEC9BJ;AACF,oC9BwdJ,+D8BxdI;AACE,sC9BmmBJ,iE8BnmBI;AACH,mCxGtHV,6CwGsHU;AACO,0CDkPO,2EClPP;AACD,yCDkPO,0EClPP;AACC,0CDoPO,2ECpPP;AACD,yCDoPO,0ECpPP;AACG,4CDsPO,6ECtPP;AACD,2CDsPO,4ECtPP;AACG,8CDwPO,+ECxPP;AACD,6CDwPO,8ECxPP;AACJ,yCD0PO,0EC1PP;AACD,wCD0PO,yEC1PP;AACO,+CD0PO,gFC1PP;AACD,8CD0PO,+EC1PP;AACD,6CD8PO,8EC9PP;AACD,4CD8PO,6EC9PP;AACE,8CD8PO,+EC9PP;AACD,6CD8PO,8EC9PP;AACJ,yCDwPO,0ECxPP;AACD,wCDwPO,yECxPP;AACM,8CDkOO,+EClOP;AACD,6CDkOO,8EClOP;AACC,8CDoOO,+ECpOP;AACD,6CDoOO,8ECpOP;AACG,gDDsOO,iFCtOP;AACD,+CDsOO,gFCtOP;AACG,kDDwOO,mFCxOP;AACD,iDDwOO,kFCxOP;AACE,mDD4OO,oFC5OP;AACD,kDD4OO,mFC5OP;AACR,0CDkPO,2EClPP;AACD,yCDmPS,4ECnPT;AACJ,qCDmPO,sECnPP;AACC,sCDmPO,uECnPP;AACI,0CDmPO,2ECnPP;AACD,yCDmPO,0ECnPP;AACP,kCAlSe,mDAkSf;AACc,gDAjSS,2DAiST;AA/DlB;;AAvRnB,mBAyVc;AAaQ;;;;AACK;;;;;;;;AAdb;AAzVd,GAyVc,uBAzVd;ACfA,2BAES,uUAFT;;;AAYa;;;AACT;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA5JS;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAuN+B;AAE1C,2BAAgB;AAChB,2BAAgB,aAAhB,GAA8B,2BAA4D,GAAhC,sBAAS,CAAC,qBAAgB,QAAC,GlHmDjC,GkHnDe,CAAV,GAAkC,iCAAD;AAC1F,2BAAgB;AAJ0B;AAiEG;AAE7C,aAAE,YAAC,CAAU,EAAV;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,aAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,eAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,kCAA6B,YAAC,EAA5C;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,qBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,wCAAmC,YAAC,EAAlD;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,qBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,uBAAU,CAAC,wCAAmC,YAAC,GAAS,IAAG,GAAC,IAAD,CAAK,MAAtD,CAAxB;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,eAAP;AACR,UAAG,eAAK,IAAI,eAAe,KAAC,IAA5B,EAAsC,OAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,wBAAW,CAAC,WAAW,kCAA6B,WAAC,EAA1C,CAAzB,CAA9C;AACA,UAAG,eAAK,IAAI,eAAe,KAAC,KAA5B,EAAuC,OAAE,SAAM,CAAC,EAAE,EAAI,SAAP,CAA/C;AACA,aAAE,SAAM,CAAC,EAAE,EAAI,eAAP;AACR,UAAG,eAAK,IAAI,eAAe,KAAC,IAA5B,EAAsC,OAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,wBAAW,CAAC,WAAW,kCAA6B,WAAC,EAA1C,CAAzB,CAA9C;AACA,UAAG,eAAK,IAAI,eAAe,KAAC,KAA5B,EAAuC,OAAE,SAAM,CAAC,EAAE,EAAI,SAAP,CAA/C;AACA,aAAE,SAAM,CAAC,EAAE,EAAI,wBAAP;AACR,UAAG,eAAK,IAAI,eAAe,KAAC,IAA5B,EAAsC,OAAE,SAAM,CAAC,EAAE,EAAI,SAAS,GAAC,wBAAW,CAAC,WAAW,wCAAmC,WAAC,EAAhD,CAA5B,CAA9C;AACA,UAAG,eAAK,IAAI,eAAe,KAAC,KAA5B,EAAuC,OAAE,SAAM,CAAC,EAAE,EAAI,SAAP,CAA/C;AACA,aAAE,SAAM,CAAC,EAAE,EAAI,SAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,wBAAW,CAAC,WAAW,4BAAuB,WAAC,EAApC,CAAzB;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,SAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,wBAAW,CAAC,aAAa,4BAAuB,WAAC,EAAtC,CAAzB;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,QAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,wBAAW,CAAC,aAAa,2BAAsB,WAAC,EAArC,CAAzB;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,QAAR;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,MAAM,GAAC,wBAAW,CAAC,aAAa,2BAAsB,WAAC,EAArC,CAA1B;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,OAAR;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,MAAM,GAAC,wBAAW,CAAC,aAAa,0BAAqB,WAAC,EAApC,CAA1B;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,oBAAR;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,MAA0D,GAAnD,yCAAoC,YAAC,EAAtC,GAA+C,KAAD,GAAO,4CAAuC,YAAC,EAA3G;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,mBAAR;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,MAAqD,GAA9C,oCAA+B,YAAC,EAAjC,GAA0C,KAAD,GAAO,2CAAsC,YAAC,EAArG;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,YAAR;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,MAA8C,GAAvC,6BAAwB,YAAC,EAA1B,GAAmC,KAAD,GAAO,yBAAoB,YAAC,EAA5E;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,UAAR;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,MAAM,GAAC,wBAAmB,YAAC,EAAnC;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,gBAAR;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,MAAM,GAAC,mCAA8B,YAAC,EAA9C;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,qBAAR;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,MAAM,GAAC,wCAAmC,YAAC,EAAnD;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,WAAR;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,MAAM,GAAC,2CAAsC,YAAC,EAAtD;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,gBAAR;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,MAAM,GAAC,mCAA8B,YAAC,EAA9C;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,kBAAR;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,MAAM,GAAC,qCAAgC,YAAC,EAAhD;AA/CqC;AAxGH;;AACtB;AAEpB;AAEE,mBAAgB,KAAW,QAAQ,QAAS,SAA5B;AAChB,YAAG,QAAQ,KAAC,OAAZ;AAEE,2CAAW,CAAC,yEAAD;;AAIX,cAAG,QAAQ,KAAC,IAAZ;AAEE,6CAAW,CAAC,iCAAD;;AAIX,gBAAG,QAAQ,KAAC,mBAAZ,EAAqC,iCAAW,CAAC,sCAAD,CAAhD;;;AAjBc;AAuBpB,UAAG,kBAAH;AAEE,oBAAO,YAAU,CAAC,uCAAuC,CAAC,kCAA6B,YAAC,EAA/B,anDvCoF,ImDuC5H;;AAIjB,yCAAW,CAAC,iGAAD;;AA9B6B;AAuFX;AAE/B;AAEA,qBAAU,MAAK,WAAC,CAAM,sEAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,4BAAiB,iBAAC,CAAe,SAAf;AAClB,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAW,eAAU,iBAAC;AACtB,oBAAS,iBAAC,CAAe,SAAf;AACV,oBAAS,iBAAC,CAAe,SAAf;AACV,uBAAY,iBAAC,CAAe,SAAf;AAdkB;AAzCM;;AACjB;AAEpB;AAEE,mBAAgB,KAAW,QAAQ,QAAS,SAA5B;AAChB,YAAG,QAAQ,KAAC,OAAZ;AAEE,2CAAW,CAAC,4DAAD;;AAIX,2CAAW,CAAC,+BAAD;AACX,yBAAS,QAAC,CAAM,EAAN;;AAZM;AAiBpB;AACA;AAEA,UAAG,cAAS,QAAC,EAAI,KAAC,EAAlB;AAEE,yCAAW,CAAC,oCAAD;;AAIX,YAAG,kBAAH;AAEE,6BAAkB,kCAA6B,YAAC;AAChD,mCAAwB,wCAAmC,YAAC;AAC5D,sBAAO,YAAU,CAAC,0CAA0C,CAAC,iBAAiB,cAAS,QAAC,GAAK,uBAAuB,2BAAxD,anD1F+E,ImD0F1H;;AAIjB,2CAAW,CAAC,iGAAD;;;AAnCsB;AAZF;AAEnC,UAAI;AAF+B;AAwHF;AAEvB;AAEV,uBAAa,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,0BAAgB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,uBAAa,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AACnB,8BAAoB,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1B,+BAAqB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,8BAAoB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,wCAA8B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,yCAA+B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,sCAA4B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,yCAA+B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,8CAAoC,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACzD,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,iDAAuC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,iDAAuC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,4CAAkC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,2CAAiC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,6CAAmC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,+CAAqC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,+CAAqC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,qDAA2C,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzD,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,0CAAgC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,oDAA0C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvD,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,8CAAoC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,8CAAoC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,kDAAwC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,8CAAoC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,mCAAyB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,oDAA0C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvD,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,iDAAuC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,wCAA8B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,4CAAkC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,4CAAkC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,kDAAwC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,kDAAwC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,iDAAuC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,6CAAmC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,+CAAqC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,4CAAkC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,oDAA0C,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,wCAA8B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,wCAA8B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,oCAA0B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oDAA0C,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,wDAA8C,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5D,4CAAkC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,iDAAuC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,8CAAoC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,+CAAqC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,qDAA2C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,yDAA+C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5D,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,kCAAwB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,wCAA8B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,0CAAgC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,2CAAiC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,6CAAmC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,6CAAmC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,gDAAsC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,kDAAwC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,kDAAwC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,oCAA0B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,yCAA+B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,kDAAwC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,wDAA8C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3D,qDAA2C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,oDAA0C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvD,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,oDAA0C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvD,kDAAwC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,oDAA0C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvD,qDAA2C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,sDAA4C,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1D,mDAAyC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvD,mDAAyC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvD,mDAAyC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,+CAAqC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,iDAAuC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,8DAAoD,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjE,yDAA+C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5D,mDAAyC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvD,kDAAwC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,qBAAW,uCAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAE3B,oBAAS;AACT,aAAE;AACF,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,uBAAY;AACZ,oBAAS;AACT,2BAAgB;AAChB,4BAAiB;AACjB,qBAAU;AACV,2BAAgB;AAChB,qCAA0B;AAC1B,sCAA2B;AAC3B,mCAAwB;AACxB,sCAA2B;AAC3B,2CAAgC;AAChC,wCAA6B;AAC7B,8CAAmC;AACnC,8CAAmC;AACnC,wCAA6B;AAC7B,yCAA8B;AAC9B,qCAA0B;AAC1B,kCAAuB;AACvB,iCAAsB;AACtB,wCAA6B;AAC7B,mCAAwB;AACxB,wCAA6B;AAC7B,uCAA4B;AAC5B,0CAA+B;AAC/B,uCAA4B;AAC5B,4CAAiC;AACjC,4CAAiC;AACjC,kCAAuB;AACvB,uCAA4B;AAC5B,gCAAqB;AACrB,uCAA4B;AAC5B,yCAA8B;AAC9B,2CAAgC;AAChC,uCAA4B;AAC5B,uCAA4B;AAC5B,uCAA4B;AAC5B,uCAA4B;AAC5B,uCAA4B;AAC5B,kDAAuC;AACvC,wCAA6B;AAC7B,oCAAyB;AACzB,uCAA4B;AAC5B,qCAA0B;AAC1B,qCAA0B;AAC1B,iDAAsC;AACtC,wCAA6B;AAC7B,wCAA6B;AAC7B,wCAA6B;AAC7B,wCAA6B;AAC7B,wCAA6B;AAC7B,2CAAgC;AAChC,8BAAmB;AACnB,oCAAyB;AACzB,uCAA4B;AAC5B,uCAA4B;AAC5B,sCAA2B;AAC3B,yCAA8B;AAC9B,2CAAgC;AAChC,uCAA4B;AAC5B,0CAA+B;AAC/B,+CAAoC;AACpC,2CAAgC;AAChC,gCAAqB;AACrB,mCAAwB;AACxB,mCAAwB;AACxB,iDAAsC;AACtC,0CAA+B;AAC/B,8CAAmC;AACnC,qCAA0B;AAC1B,yCAA8B;AAC9B,2CAAgC;AAChC,yCAA8B;AAC9B,wCAA6B;AAC7B,oCAAyB;AACzB,+CAAoC;AACpC,+CAAoC;AACpC,8CAAmC;AACnC,wCAA6B;AAC7B,0CAA+B;AAC/B,4CAAiC;AACjC,yCAA8B;AAC9B,iDAAsC;AACtC,kCAAuB;AACvB,qCAA0B;AAC1B,qCAA0B;AAC1B,iCAAsB;AACtB,qCAA0B;AAC1B,kCAAuB;AACvB,iDAAsC;AACtC,qDAA0C;AAC1C,yCAA8B;AAC9B,wCAA6B;AAC7B,2CAAgC;AAChC,8CAAmC;AACnC,oCAAyB;AACzB,2CAAgC;AAChC,4CAAiC;AACjC,kDAAuC;AACvC,sDAA2C;AAC3C,yCAA8B;AAC9B,wCAA6B;AAC7B,qCAA0B;AAC1B,qCAA0B;AAC1B,qCAA0B;AAC1B,+BAAoB;AACpB,sCAA2B;AAC3B,+BAAoB;AACpB,2CAAgC;AAChC,qCAA0B;AAC1B,wCAA6B;AAC7B,wCAA6B;AAC7B,mCAAwB;AACxB,uCAA4B;AAC5B,wCAA6B;AAC7B,wCAA6B;AAC7B,0CAA+B;AAC/B,0CAA+B;AAC/B,6CAAkC;AAClC,+CAAoC;AACpC,+CAAoC;AACpC,iCAAsB;AACtB,sCAA2B;AAC3B,+CAAoC;AACpC,mCAAwB;AACxB,8BAAmB;AACnB,qDAA0C;AAC1C,kDAAuC;AACvC,iCAAsB;AACtB,sCAA2B;AAC3B,iDAAsC;AACtC,iCAAsB;AACtB,gCAAqB;AACrB,iDAAsC;AACtC,+CAAoC;AACpC,iDAAsC;AACtC,kDAAuC;AACvC,0CAA+B;AAC/B,mDAAwC;AACxC,gDAAqC;AACrC,gDAAqC;AACrC,gDAAqC;AACrC,2CAAgC;AAChC,4CAAiC;AACjC,8CAAmC;AACnC,0CAA+B;AAC/B,2DAAgD;AAChD,sDAA2C;AAC3C,gDAAqC;AACrC,+CAAoC;AACpC,8BAAmB;AACnB,kBAAO;AACP;AACE,qBAAQ,YAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,QAAC,CAAQ,CAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,sBAAS,SAAC,CAAS,GAAT;AACV,sBAAS,UAAC,CAAU,EAAV;AACV,sBAAS,WAAC,CAAW,0BAAX;AACV,sBAAS,oBAAC,CAAoB,qBAApB;AACV,sBAAS,eAAC,CAAe,yCAAf;AACV,sBAAS,mBAAC,CAAmB,gDAAnB;AACV,sBAAS,eAAC,CAAe,wCAAf;AACV,sBAAS,iBAAC,CAAiB,sBAAjB;AACV,sBAAS,cAAC,CAAc,wCAAd;AACV,sBAAS,gBAAC,CAAgB,sBAAhB;AACV,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,QAAC,CAAQ,CAAR;AACH,eAAE,OAAC,CAAO,EAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,GAAV;AACH,eAAE,oBAAC,CAAoB,gDAApB;AACH,eAAE,eAAC,CAAe,wCAAf;AACH,eAAE,cAAC,CAAc,wCAAd;AACH,eAAE,SAAC,CAAS,sCAAT;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,gBAAC,CAAc,CAAd;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,eAAC,CAAe,yCAAf;AACH,eAAE,0BAAC,CAA0B,YAA1B;AACH,eAAE,mBAAC,CAAmB,gDAAnB;AACH,eAAE,yBAAC,CAAyB,gDAAzB;AACH,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,SAAC,CAAS,mCAAT;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,SAAC,CAAS,mCAAT;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,QAAC,CAAQ,CAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,EAAT;AACb,yBAAY,UAAC,CAAU,EAAV;AACb,yBAAY,WAAC,CAAW,WAAX;AACb,yBAAY,gBAAC,CAAc,CAAd;AACb,yBAAY,oBAAC,CAAoB,mCAApB;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,mBAAC,CAAmB,gDAAnB;AACb,yBAAY,eAAC,CAAe,wCAAf;AACb,yBAAY,iBAAC,CAAiB,sBAAjB;AACb,yBAAY,cAAC,CAAc,wCAAd;AACb,yBAAY,gBAAC,CAAgB,sBAAhB;AACb,uBAAQ,CAAC,kBAAc,KAAM,UAAW,mBAAhC;AACR,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,QAAC,CAAQ,CAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,sBAAS,SAAC,CAAS,GAAT;AACV,sBAAS,UAAC,CAAU,EAAV;AACV,sBAAS,gBAAC,CAAc,CAAd;AACV,sBAAS,YAAC,CAAY,wCAAZ;AACV,sBAAS,oBAAC,CAAoB,uBAApB;AACV,sBAAS,eAAC,CAAe,yCAAf;AACV,sBAAS,mBAAC,CAAmB,gDAAnB;AACV,sBAAS,eAAC,CAAe,wCAAf;AACV,sBAAS,iBAAC,CAAiB,sBAAjB;AACV,sBAAS,YAAC,CAAY,WAAZ;AACV,sBAAS,gBAAC,CAAgB,sBAAhB;AACV,6BAAgB,mBAAmB,CAAC,IAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,QAAC,CAAQ,GAAR;AACjB,6BAAgB,OAAC,CAAO,GAAP;AACjB,6BAAgB,SAAC,CAAS,GAAT;AACjB,6BAAgB,UAAC,CAAU,EAAV;AACjB,6BAAgB,gBAAC,CAAc,CAAd;AACjB,6BAAgB,oBAAC,CAAoB,cAApB;AACjB,6BAAgB,eAAC,CAAe,yCAAf;AACjB,6BAAgB,mBAAC,CAAmB,gDAAnB;AACjB,6BAAgB,iBAAC,CAAiB,sBAAjB;AACjB,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAC,CAAW,KAAX;AACjB,6BAAgB,gBAAC,CAAgB,sBAAhB;AACjB,uBAAQ,CAAC,sBAAkB,KAAM,WAAY,wBAArC;AACR,8BAAiB,mBAAmB,CAAC,IAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,QAAC,CAAQ,GAAR;AAClB,8BAAiB,OAAC,CAAO,GAAP;AAClB,8BAAiB,SAAC,CAAS,EAAT;AAClB,8BAAiB,UAAC,CAAU,EAAV;AAClB,8BAAiB,WAAC,CAAW,gBAAX;AAClB,8BAAiB,gBAAC,CAAc,CAAd;AAClB,8BAAiB,oBAAC,CAAoB,mCAApB;AAClB,8BAAiB,eAAC,CAAe,yCAAf;AAClB,8BAAiB,mBAAC,CAAmB,gDAAnB;AAClB,8BAAiB,eAAC,CAAe,wCAAf;AAClB,8BAAiB,iBAAC,CAAiB,sBAAjB;AAClB,8BAAiB,cAAC,CAAc,wCAAd;AAClB,8BAAiB,gBAAC,CAAgB,sBAAhB;AAClB,uBAAQ,CAAC,uBAAmB,KAAM,UAAW,wBAArC;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,yCAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,6BAAgB,mBAAmB,CAAC,IAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,iBAAC,CAAiB,SAAjB;AACjB,6BAAgB,cAAC,CAAc,aAAG,oBAAjB;AACjB,6BAAgB,iBAAC,CAAiB,CAAjB;AACjB,6BAAgB,UAAhB,GAA6B;AAC7B,6BAAgB,QAAC,CAAQ,GAAR;AACjB,6BAAgB,OAAC,CAAO,EAAP;AACjB,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,UAA1B,GAAuC;AACvC,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,UAA3B,GAAwC;AACxC,qCAAwB,mBAAmB,CAAC,qBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,6CAAgC,mBAAmB,CAAC,qBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,UAA7B,GAA0C;AAC1C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,gDAAmC,mBAAmB,CAAC,qBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,gDAAmC,QAAC,CAAQ,EAAR;AACpC,gDAAmC,mBAAmB,CAAC,qBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,gDAAmC,QAAC,CAAQ,GAAR;AACpC,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,GAAR;AAC3B,oCAAuB,mBAAmB,CAAC,qBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,mCAAsB,mBAAmB,CAAC,qBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,GAAR;AAC9B,qCAAwB,mBAAmB,CAAC,qBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,8CAAiC,mBAAmB,CAAC,qBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,mBAAmB,CAAC,qBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,oCAAuB,mBAAmB,CAAC,qBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,kCAAqB,mBAAmB,CAAC,qBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,6CAAgC,mBAAmB,CAAC,qBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,oDAAuC,mBAAmB,CAAC,qBAAD;AAC1D,oDAAuC,QAAC,CAAQ,yCAAR;AACxC,oDAAuC,WAAvC,GAAqD;AACrD,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,sCAAyB,mBAAmB,CAAC,qBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,mDAAsC,mBAAmB,CAAC,qBAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,mDAAsC,QAAC,CAAQ,GAAR;AACvC,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,GAAR;AAC9B,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,GAAR;AAC9B,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,GAAR;AAC9B,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,GAAR;AAC9B,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,GAAR;AAC9B,6CAAgC,mBAAmB,CAAC,qBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,gCAAmB,mBAAmB,CAAC,qBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,sCAAyB,mBAAmB,CAAC,qBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,6CAAgC,mBAAmB,CAAC,qBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,iDAAoC,mBAAmB,CAAC,qBAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,QAAC,CAAQ,EAAR;AACrC,6CAAgC,mBAAmB,CAAC,qBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,kCAAqB,mBAAmB,CAAC,qBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,qCAAwB,mBAAmB,CAAC,qBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,mBAAmB,CAAC,qBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,mDAAsC,mBAAmB,CAAC,qBAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,gDAAmC,mBAAmB,CAAC,qBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,6CAAgC,mBAAmB,CAAC,qBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,CAAR;AAC9B,sCAAyB,mBAAmB,CAAC,qBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,iDAAoC,mBAAmB,CAAC,qBAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,mBAAmB,CAAC,qBAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,gDAAmC,mBAAmB,CAAC,qBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,8CAAiC,mBAAmB,CAAC,qBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,mDAAsC,mBAAmB,CAAC,qBAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,oCAAuB,mBAAmB,CAAC,qBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,mCAAsB,mBAAmB,CAAC,qBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,oCAAuB,mBAAmB,CAAC,qBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,mDAAsC,mBAAmB,CAAC,qBAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,uDAA0C,mBAAmB,CAAC,qBAAD;AAC7D,uDAA0C,QAAC,CAAQ,4CAAR;AAC3C,uDAA0C,WAA1C,GAAwD;AACxD,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,6CAAgC,mBAAmB,CAAC,qBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,gDAAmC,mBAAmB,CAAC,qBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,sCAAyB,mBAAmB,CAAC,qBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,6CAAgC,mBAAmB,CAAC,qBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,8CAAiC,mBAAmB,CAAC,qBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,oDAAuC,mBAAmB,CAAC,qBAAD;AAC1D,oDAAuC,QAAC,CAAQ,yCAAR;AACxC,oDAAuC,WAAvC,GAAqD;AACrD,oDAAuC,QAAC,CAAQ,GAAR;AACxC,wDAA2C,mBAAmB,CAAC,qBAAD;AAC9D,wDAA2C,QAAC,CAAQ,6CAAR;AAC5C,wDAA2C,WAA3C,GAAyD;AACzD,wDAA2C,QAAC,CAAQ,GAAR;AAC5C,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,iCAAoB,mBAAmB,CAAC,qBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,iCAAoB,mBAAmB,CAAC,qBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,6CAAgC,mBAAmB,CAAC,qBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,GAAR;AACjC,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,GAAR;AAC9B,qCAAwB,mBAAmB,CAAC,qBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,+CAAkC,mBAAmB,CAAC,qBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,iDAAoC,mBAAmB,CAAC,qBAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,mBAAmB,CAAC,qBAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,mCAAsB,mBAAmB,CAAC,qBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,iDAAoC,mBAAmB,CAAC,qBAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,QAAC,CAAQ,EAAR;AACrC,qCAAwB,mBAAmB,CAAC,qBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,gCAAmB,mBAAmB,CAAC,qBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,uDAA0C,mBAAmB,CAAC,qBAAD;AAC7D,uDAA0C,QAAC,CAAQ,4CAAR;AAC3C,uDAA0C,WAA1C,GAAwD;AACxD,uDAA0C,QAAC,CAAQ,GAAR;AAC3C,oDAAuC,mBAAmB,CAAC,qBAAD;AAC1D,oDAAuC,QAAC,CAAQ,yCAAR;AACxC,oDAAuC,WAAvC,GAAqD;AACrD,oDAAuC,QAAC,CAAQ,EAAR;AACxC,mCAAsB,mBAAmB,CAAC,qBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,CAAR;AACvB,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,mDAAsC,mBAAmB,CAAC,qBAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,mDAAsC,QAAC,CAAQ,EAAR;AACvC,mCAAsB,mBAAmB,CAAC,qBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,kCAAqB,mBAAmB,CAAC,qBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,mDAAsC,mBAAmB,CAAC,qBAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,mDAAsC,QAAC,CAAQ,EAAR;AACvC,iDAAoC,mBAAmB,CAAC,qBAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,QAAC,CAAQ,EAAR;AACrC,mDAAsC,mBAAmB,CAAC,qBAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,mDAAsC,QAAC,CAAQ,EAAR;AACvC,oDAAuC,mBAAmB,CAAC,qBAAD;AAC1D,oDAAuC,QAAC,CAAQ,yCAAR;AACxC,oDAAuC,WAAvC,GAAqD;AACrD,oDAAuC,QAAC,CAAQ,GAAR;AACxC,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,CAAR;AAChC,qDAAwC,mBAAmB,CAAC,qBAAD;AAC3D,qDAAwC,QAAC,CAAQ,0CAAR;AACzC,qDAAwC,WAAxC,GAAsD;AACtD,kDAAqC,mBAAmB,CAAC,qBAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,kDAAqC,mBAAmB,CAAC,qBAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,kDAAqC,mBAAmB,CAAC,qBAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,6CAAgC,mBAAmB,CAAC,qBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,8CAAiC,mBAAmB,CAAC,qBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,gDAAmC,mBAAmB,CAAC,qBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,6DAAgD,mBAAmB,CAAC,qBAAD;AACnE,6DAAgD,QAAC,CAAQ,kDAAR;AACjD,6DAAgD,WAAhD,GAA8D;AAC9D,6DAAgD,QAAC,CAAQ,EAAR;AACjD,wDAA2C,mBAAmB,CAAC,qBAAD;AAC9D,wDAA2C,QAAC,CAAQ,6CAAR;AAC5C,wDAA2C,WAA3C,GAAyD;AACzD,wDAA2C,QAAC,CAAQ,EAAR;AAC5C,kDAAqC,mBAAmB,CAAC,qBAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,iDAAoC,mBAAmB,CAAC,qBAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,gCAAmB,mBAAmB,CAAC,IAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAC,CAAW,qBAAX;AACpB,gCAAmB,QAAC,CAAQ,EAAR;AACpB,gCAAmB,OAAC,CAAO,EAAP;AACpB,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,cAAC,CAAc,aAAG,oBAAjB;AACR,oBAAO,QAAC,CAAQ,GAAR;AACR,oBAAO,OAAC,CAAO,EAAP;AAzoBV;AA2oBE,sBAAS;AACT,eAAE;AACF,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,yBAAY;AACZ,sBAAS;AACT,6BAAgB;AAChB,8BAAiB;AACjB,uBAAU;AACV,6BAAgB;AAChB,uCAA0B;AAC1B,wCAA2B;AAC3B,qCAAwB;AACxB,wCAA2B;AAC3B,6CAAgC;AAChC,0CAA6B;AAC7B,gDAAmC;AACnC,gDAAmC;AACnC,0CAA6B;AAC7B,2CAA8B;AAC9B,uCAA0B;AAC1B,oCAAuB;AACvB,mCAAsB;AACtB,0CAA6B;AAC7B,qCAAwB;AACxB,0CAA6B;AAC7B,yCAA4B;AAC5B,4CAA+B;AAC/B,yCAA4B;AAC5B,8CAAiC;AACjC,8CAAiC;AACjC,oCAAuB;AACvB,yCAA4B;AAC5B,kCAAqB;AACrB,yCAA4B;AAC5B,2CAA8B;AAC9B,6CAAgC;AAChC,yCAA4B;AAC5B,yCAA4B;AAC5B,yCAA4B;AAC5B,yCAA4B;AAC5B,yCAA4B;AAC5B,oDAAuC;AACvC,0CAA6B;AAC7B,sCAAyB;AACzB,yCAA4B;AAC5B,uCAA0B;AAC1B,uCAA0B;AAC1B,mDAAsC;AACtC,0CAA6B;AAC7B,0CAA6B;AAC7B,0CAA6B;AAC7B,0CAA6B;AAC7B,0CAA6B;AAC7B,6CAAgC;AAChC,gCAAmB;AACnB,sCAAyB;AACzB,yCAA4B;AAC5B,yCAA4B;AAC5B,wCAA2B;AAC3B,2CAA8B;AAC9B,6CAAgC;AAChC,yCAA4B;AAC5B,4CAA+B;AAC/B,iDAAoC;AACpC,6CAAgC;AAChC,kCAAqB;AACrB,qCAAwB;AACxB,qCAAwB;AACxB,mDAAsC;AACtC,4CAA+B;AAC/B,gDAAmC;AACnC,uCAA0B;AAC1B,2CAA8B;AAC9B,6CAAgC;AAChC,2CAA8B;AAC9B,0CAA6B;AAC7B,sCAAyB;AACzB,iDAAoC;AACpC,iDAAoC;AACpC,gDAAmC;AACnC,0CAA6B;AAC7B,4CAA+B;AAC/B,8CAAiC;AACjC,2CAA8B;AAC9B,mDAAsC;AACtC,oCAAuB;AACvB,uCAA0B;AAC1B,uCAA0B;AAC1B,mCAAsB;AACtB,uCAA0B;AAC1B,oCAAuB;AACvB,mDAAsC;AACtC,uDAA0C;AAC1C,2CAA8B;AAC9B,0CAA6B;AAC7B,6CAAgC;AAChC,gDAAmC;AACnC,sCAAyB;AACzB,6CAAgC;AAChC,8CAAiC;AACjC,oDAAuC;AACvC,wDAA2C;AAC3C,2CAA8B;AAC9B,0CAA6B;AAC7B,uCAA0B;AAC1B,uCAA0B;AAC1B,uCAA0B;AAC1B,iCAAoB;AACpB,wCAA2B;AAC3B,iCAAoB;AACpB,6CAAgC;AAChC,uCAA0B;AAC1B,0CAA6B;AAC7B,0CAA6B;AAC7B,qCAAwB;AACxB,yCAA4B;AAC5B,0CAA6B;AAC7B,0CAA6B;AAC7B,4CAA+B;AAC/B,4CAA+B;AAC/B,+CAAkC;AAClC,iDAAoC;AACpC,iDAAoC;AACpC,mCAAsB;AACtB,wCAA2B;AAC3B,iDAAoC;AACpC,qCAAwB;AACxB,gCAAmB;AACnB,uDAA0C;AAC1C,oDAAuC;AACvC,mCAAsB;AACtB,wCAA2B;AAC3B,mDAAsC;AACtC,mCAAsB;AACtB,kCAAqB;AACrB,mDAAsC;AACtC,iDAAoC;AACpC,mDAAsC;AACtC,oDAAuC;AACvC,4CAA+B;AAC/B,qDAAwC;AACxC,kDAAqC;AACrC,kDAAqC;AACrC,kDAAqC;AACrC,6CAAgC;AAChC,8CAAiC;AACjC,gDAAmC;AACnC,4CAA+B;AAC/B,6DAAgD;AAChD,wDAA2C;AAC3C,kDAAqC;AACrC,iDAAoC;AACpC,gCAAmB;AACnB,oBAAO;AAtyBT;AA7TiC;AA1UtB;;;AACT,mCjDGc,kDiDHd;AACA,sCvEkjDS,2BuEljDT;AACA,qB3Co7BW,0C2Cp7BX;AACA,6CnEGkB,0DmEHlB;AACA,8CnEEkB,0DmEFlB;AACA,2CnECkB,0DmEDlB;AACA,8CnEAkB,0DmEAlB;AACA,mDnEDkB,0DmEClB;AACA,gDvE0ZU,4BuE1ZV;AACA,sDvEyZU,4BuEzZV;AACA,sDvEwZU,4BuExZV;AACA,gDvEkiBS,2BuEliBT;AACA,iDvEiiBS,2BuEjiBT;AACA,6CvEqZU,4BuErZV;AACA,0CvE+hBS,2BuE/hBT;AACA,yCvE8hBS,2BuE9hBT;AACA,gDvEkZU,4BuElZV;AACA,2CvEiZU,4BuEjZV;AACA,gDvEwcW,6BuExcX;AACA,+CvE0hBS,2BuE1hBT;AACA,kDvEyhBS,2BuEzhBT;AACA,+CvEwhBS,2BuExhBT;AACA,oDvEuhBS,2BuEvhBT;AACA,oDvEshBS,2BuEthBT;AACA,0CvEqhBS,2BuErhBT;AACA,+CvEohBS,2BuEphBT;AACA,wCvEmhBS,2BuEnhBT;AACA,+CvEkhBS,2BuElhBT;AACA,iDvEsYU,4BuEtYV;AACA,mDvEqYU,4BuErYV;AACA,+CvE+gBS,2BuE/gBT;AACA,+CvE8gBS,2BuE9gBT;AACA,+CvE6gBS,2BuE7gBT;AACA,+CvE4gBS,2BuE5gBT;AACA,+CvE2gBS,2BuE3gBT;AACA,0DvE6iBW,6BuE7iBX;AACA,gDvEygBS,2BuEzgBT;AACA,4CvEwgBS,2BuExgBT;AACA,+CvE0iBW,6BuE1iBX;AACA,6CvE2XU,4BuE3XV;AACA,6CvE0XU,4BuE1XV;AACA,yDvEyXU,4BuEzXV;AACA,gDvEwXU,4BuExXV;AACA,gDvEuXU,4BuEvXV;AACA,gDvEsXU,4BuEtXV;AACA,gDvEqXU,4BuErXV;AACA,gDvEoXU,4BuEpXV;AACA,mDvE0jBY,8BuE1jBZ;AACA,sCvEkXU,4BuElXV;AACA,4CvE4fS,2BuE5fT;AACA,+CvEgXU,4BuEhXV;AACA,+CvE0fS,2BuE1fT;AACA,8CvEyfS,2BuEzfT;AACA,iDvE6WU,4BuE7WV;AACA,mDvEufS,2BuEvfT;AACA,+CvE2WU,4BuE3WV;AACA,kDvEwhBW,6BuExhBX;AACA,uDvEyWU,4BuEzWV;AACA,mDvEmfS,2BuEnfT;AACA,wCvE+ZW,6BuE/ZX;AACA,2CvEohBW,6BuEphBX;AACA,2CvEmhBW,6BuEnhBX;AACA,yDvEoWU,4BuEpWV;AACA,kDvEmWU,4BuEnWV;AACA,sDvE6eS,2BuE7eT;AACA,6CvE+gBW,6BuE/gBX;AACA,iDvE2eS,2BuE3eT;AACA,mDvE+VU,4BuE/VV;AACA,iDvE4gBW,6BuE5gBX;AACA,gDvE6VU,4BuE7VV;AACA,4CvE4VU,4BuE5VV;AACA,uDvEseS,2BuEteT;AACA,uDvEqeS,2BuEreT;AACA,sDvEugBW,6BuEvgBX;AACA,gDvEmeS,2BuEneT;AACA,kDvEkeS,2BuEleT;AACA,oDvEieS,2BuEjeT;AACA,iDvEgeS,2BuEheT;AACA,yDvE+dS,2BuE/dT;AACA,0CvE2YW,6BuE3YX;AACA,6CvEggBW,6BuEhgBX;AACA,6CvE+fW,6BuE/fX;AACA,yCvE8fW,6BuE9fX;AACA,6CvE0dS,2BuE1dT;AACA,0CvEydS,2BuEzdT;AACA,yDvE2fW,6BuE3fX;AACA,6DvE0fW,6BuE1fX;AACA,iDvEsdS,2BuEtdT;AACA,gDvEqdS,2BuErdT;AACA,mDvEyUU,4BuEzUV;AACA,sDvEmdS,2BuEndT;AACA,4CvEkdS,2BuEldT;AACA,mDvE6gBY,8BuE7gBZ;AACA,oDvE6XW,6BuE7XX;AACA,0DvEoUU,4BuEpUV;AACA,8DvEmUU,4BuEnUV;AACA,iDvEkUU,4BuElUV;AACA,gDvEiUU,4BuEjUV;AACA,6CvE2cS,2BuE3cT;AACA,6CvE0cS,2BuE1cT;AACA,6CvEycS,2BuEzcT;AACA,uCvE6TU,4BuE7TV;AACA,8CvEoXW,6BuEpXX;AACA,uCvEmXW,6BuEnXX;AACA,mDvE0TU,4BuE1TV;AACA,6CvEggBY,8BuEhgBZ;AACA,gDvEwTU,4BuExTV;AACA,gDvEuTU,4BuEvTV;AACA,2CvEicS,2BuEjcT;AACA,+CvE6WW,6BuE7WX;AACA,gDvE4WW,6BuE5WX;AACA,gDvE8bS,2BuE9bT;AACA,kDvE6bS,2BuE7bT;AACA,kDvE4bS,2BuE5bT;AACA,qDvE2bS,2BuE3bT;AACA,uDvE0bS,2BuE1bT;AACA,uDvEybS,2BuEzbT;AACA,yCvEqWW,6BuErWX;AACA,8CvEmfY,8BuEnfZ;AACA,uDvE2SU,4BuE3SV;AACA,2CvEwdW,6BuExdX;AACA,sCvEobS,2BuEpbT;AACA,6DvEwSU,4BuExSV;AACA,0DvEuSU,4BuEvSV;AACA,yCvEsSU,4BuEtSV;AACA,8CvEmdW,6BuEndX;AACA,yDvEoSU,4BuEpSV;AACA,yCvE8aS,2BuE9aT;AACA,wCvE6aS,2BuE7aT;AACA,yDvEiSU,4BuEjSV;AACA,uDvEgSU,4BuEhSV;AACA,yDvE+RU,4BuE/RV;AACA,0DvE8RU,4BuE9RV;AACA,kDvE6RU,4BuE7RV;AACA,2DvE0cW,6BuE1cX;AACA,wDvEycW,6BuEzcX;AACA,wDvEwcW,6BuExcX;AACA,wDvEoaS,2BuEpaT;AACA,mDvEwRU,4BuExRV;AACA,oDvEkaS,2BuElaT;AACA,sDvEiaS,2BuEjaT;AACA,kDvE6UW,6BuE7UX;AACA,mEvEoRU,4BuEpRV;AACA,8DvEmRU,4BuEnRV;AACA,wDvE0UW,6BuE1UX;AACA,uDvEyUW,6BuEzUX;AACA,0BnD9Da,gDmD8Db;AACA,6BxFmyBY,8CwFnyBZ;AACA,6BxFkyBY,8CwFlyBZ;AACA,6BzFmbK,uCyFnbL;AACA,4BzFhDI,sCyFgDJ;AACA,+BzFibK,uCyFjbL;AACA,4BzFoIG,qCyFpIH;AACA,mCzFmIG,qCyFnIH;AACA,oCzF8aK,uCyF9aL;AACA,6BxF2xBY,8CwF3xBZ;AACgC,6CAAO,UtH3ClC,2BsH2CkC,CAAP;AACG,gDAAQ,WvE+6BrC,wBuE/6BqC,CAAR;AACH,6CAAO,UtH7ClC,2BsH6CkC,CAAP;AACX,kCAAO,UtH9CvB,2BsH8CuB,CAAP;AACM,wCAAO,UtH/C7B,2BsH+C6B,CAAP;AACF,sCAAO,UtHhD3B,2BsHgD2B,CAAP;AAlKhB;AA0KX;AAtLF,GAwLc,oCAxLd;ACAA,4BAKS,+BALT;;;;AAYe,wCjH+DC,2CiH/DD;AASW,+EAAsB,yBAAiB,uBAAvC;AAEb;;;AACT;AADS;;;;;AAciB;AAE5B;AAFiD;AAArB;AAeU;AAEtC;AAEA,oBAA6B,IAAd,UAAc;AAC7B,uBAAW,CAAC;;;;WAAa,KAAK,KAAnB;AACX,iBAAW,iBAAiB,CAAC,OAAQ,uCAAT;AAC5B,iBAAW,mBAAmB,CAAC,KAAD;AAPQ;AAUX;AAAR;AAEnB;AAEA,gBAAwB,UAAb,KAAK,QAAW,UAAH;AACxB,UAAY,gBAAD,QAAX,EACE,gBAAW,CAAC,iBAAW,CAAC;;;;UAAD,EAAW,OAAO,OAA9B,CADb;AAEA,eAAU;AAPS;AAAQ;AAvChB;;AACT,8BAHsB,sCAGtB;AAEkB,+BAAO,U9GqiBjB,+B8GriBiB,CAAP;AAHT;AAUG;;;AAjChB,mBAmCc;AAOO;AAET,gBAAM,SAAhB,GAA4B;AAFT;AAKD;AAAX;AAEP,eAAgB,KAAW,UAAM,SAAjB;AAFT;AAAW;AAZN;AAnCd;ACAA,0BAKS,+BALT;;;AAWW,oCrHwCA,qCqHxCA;AASkB,kFAAmB,oBAAnB;AAEd,wCrH6BJ,qCqH7BI;AAtBf;ACAA,uBAES,uCAFT;;;AAYsB;AAWL,0CtH4BN,qCsH5BM;AASF;AAMG,2CANH,uCAMG;AAqBc,yDA3BjB,uCA2BiB;AAKV;AAMJ,2CANI,8CAMJ;AAOU;AAET,4CtH5BR,qCsH4BQ;AAWG,+CnHi1EN,2CmHj1EM;AASA,+CATA,8CASA;AAOA,+CtHvDX,qCsHuDW;AAQJ,2CnHvCF,2CmHuCE;AASI,+CtHxEX,qCsHwEW;AAKI,mDtH7Ef,qCsH6Ee;AAKW,8DtHlF1B,qCsHkF0B;AAIX,mDtHtFf,qCsHsFe;AAIE,oFAA8B,QAJhC,sCAIgC,CAA9B;AAEhB,qCtH5FD,qCsH4FC;AA/IZ;ACeA,6BAIS,yIAJT;;;AAWa;;AACM;;AAEJ;;;AAEX;AACA;AAHW;AAivBe;AAE5B,UAAc,kBAAH,eAAP,MAAO,CAAX;AAEE,qBAAiB,OAAP,OAAU,kBAAH,CAAiB;AAClC,qBAAe,OAAP,OAAU,kBAAH,CAAiB;OAHlC;AAF4B;AAjvBf;AAUC;AAguBgB;AAEpB,kBAAK,CAAC,MAAU,KAAX;AAFe;AAVD;AAAP;AAEtB,eAAkC,YAAK,CAAC,KAAD;AAFjB;AAAO;AArCE;AAEf,iDAAC,kBAAD;AAFgB;AAAD;AALN;AAAH;AAEtB,eAAkC;AAFZ;AAAG;AAUU;AAAb;AAEtB;AAEA,eAAU;AAEV,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,YAAiB,cAAK,CAAC,CAAD,CAAI,MAAI,KAAE,EAAhC;AAEE,mBAAwB,cAAK,CAAC,CAAD;AAC7B;SAHF;;AARoB;AAAa;AAgBE;AAAf;AAEtB;AAEA,eAAU;AAEV,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,YAAiB,cAAK,CAAC,CAAD,CAAI,MAAM,KAAE,IAAlC;AAEE,mBAAwB,cAAK,CAAC,CAAD;AAC7B;SAHF;;AARoB;AAAe;AAqBT;AAAN;AAEtB,eAAwC,yCAAC,KAAD;AAFlB;AAAM;AA3tBd;AAKM;AALN;AAaG,wEAAmB,U1H0E7B,2B0H1E6B,EAAgB,qBAAkB,uBAArD;AACL,mEAAmB,U1HyExB,2B0HzEwB,EAAkB,WAxBpC,2BAwBoC,CAArC;AACW,8EAAmB,U1HwEnC,2B0HxEmC,EAA2B,gB7GgItD,gD6GhIsD,EAA9C;AAEhB;;;AAEL;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAlBK;;;;;;;;;;;;;;;;;AAuZyB;AAAjB;AAEf;AACA;AAEA,eAAU;AAEV,UAAY,uBAAD,QAAX;AAEE,cAA4B;AAC5B,iBAA+B,QAAQ,cAAc,CAAC,QAAD;AACrD,cAAM,MAAN,GAAgB,GAAG;AACnB,cAAM,OAAN,GAAiB,GAAG;AACpB,cAAM,WAAsB,CAAC,IAAD,CAAM,UAAU,CAAW,IAAM,EAAG,CAApB;AAEvC;AACH,YADG,IACH;AAAS,mBAAU,MAAM,UAAU,CAAC,YAAD;AACnC,kBAFG,IAEH,oCAAQ,SAAU,MAAM,UAAU,CAAC,WAAD,CAAlC;OAVJ;AAPe;AAAiB;AAsBC;AAAlB;AAEf;AACA;AACA;AAEA,eAAU;AAEV,UAAY,uBAAD,QAAX;AAEE,cAA4B;AAC5B,iBAA+B,QAAQ,cAAc,CAAC,QAAD;AACrD,cAAM,MAAN,GAAgB,GAAG;AACnB,cAAM,OAAN,GAAiB,GAAG;AACpB,cAAO,MAAM,WAAsB,CAAC,IAAD;AACnC,WAAG,UAAU,CAAW,IAAM,EAAG,CAApB;AAEb,iBAAU,GAAG,aAAa,CAAC,EAAG,EAAG,MAAM,OAAQ,MAAM,OAA3B;OAT5B;AARe;AAAkB;AAqBG;AAArB;AAEf;AAAG;AACH;AACA;AACA;AAAK;AAEL,UAAe,IAAV,MAAU,CAAI,wBAAJ;AACf,YAAiB,IAAV,MAAU,CAAI,yBAAJ;AACjB,YAAO,CAAC,QAAQ,CAAC,IAAK,EAAN;AAChB,qBAA0B,IAAV,MAAU,CAAI,MAAM,KAAK,CAAC,GAAD,CAAf;AAC1B,YAAO,YAAY;AACnB,eAAwB,IAAd,UAAc,CAAI,GAAJ;AAExB,eAAS,QAAS,OAAJ,GAAI,GAAE,CAAF,kBAAlB;AAAI;AACF,cAAO,GAAP,GAAa,YAAY,WAAW,CAAC,CAAD;;AAfvB;AAAqB;AAgIP;AAE7B,UAAG,gBAAY,KAAG,KAAlB,EACE,mBAAe,KADjB;AAF6B;AA5RH;AAE1B;AACA,UAAY,uBAAD,QAAX;AAEE,+BAAa,OAAb,GAAyB;OAF3B;AAH0B;AA0BE;AAAb;AAEf;AAEA,UAAI,2CAAY,IAAG,oBAAnB;AAEE,iBAAU,QAAQ,cAAc,CAAC,KAAD;AAChC,iBAAyB,QAAQ,cAAc,CAAC,KAAD;AAC/C,cAAM,UAAN,GAAoB;AACpB,4BAAe,4CAAf;AACA,cAAM,cAAC,QAAY,QAAb;AACN,cAAM,MAAM,YAAY,CAAC,SAAS,gBAAV;AACxB,cAAM,MAAM,YAAY,CAAC,iBAAiB,QAAlB;AACxB,cAAM,MAAM,YAAY,CAAC,UAAU,YAAX;AACxB,cAAM,YAAY,CAAC,MAAD;;AAIlB,iBAAU,QAAQ,cAAc,CAAC,OAAD;AAChC,cAAM,aAAa,CAAC,cAAe,EAAhB;;AAnBN;AAAa;AAuBK;AAEjC;AACA,UAAI,2CAAY,IAAG,oBAAnB,EACiB,uBAAc,MAAM,YAAY,CAAC,UAAU,OAAX,CADjD;AAHiC;AAOE;AAEnC;AACA,UAAI,2CAAY,IAAG,oBAAnB,EACiB,uBAAc,MAAM,YAAY,CAAC,mBAAmB,QAApB,CADjD;AAHmC;AAsJP;AAAb;AAEf,eAAU;AAFK;AAAa;AA2BG;AAAhB;AAEf,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,0BAAP,CADpB;AAGA,eAAU;AAEV,qBAAW;AAPI;AAAgB;AA3DM;;AAAtB;AACM;AAAZ;AAEP;AACA;AAEA,aAA2B;AAC3B,YAAG,EAAE,KAAM,KAAE,YAAb;AAEE,eAAM,oBAAc;AACpB,YAAE,MAAF,GAAS,EAAE;AAEX,cAAG,EAAE,MAAQ,KAAG,EAAhB;AACE,cAAE,MAAF,GAAW,EAAE;;AAGb,cAAE,MAAF,GAAW,SAAU,GAAE,qBAAQ,CAAC,oBAAD,CAAV;AACjB,gCAAJ,IAAG;;SAVP;AAcA,iBAAU;AApBH;AAAY;AAuBZ,mBAAc,QAAQ;AAE/B,UAAY,gCAAD,QAAX,EACE,gCAA0B,CAAC,KAAD,CAD5B;AAGA,eAAU;AA7BK;AAAsB;AAqEP;AAAf;AAEM,6BAAc,UAAnC,GAA2D;AACtC,6BAAc,iBAAnC,GAAyD;AACzD,yBAAoD,YAAa,iBAAgB;AAEjF,eAAU;AANK;AAAe;AAxBH;AAAZ;AAEf;AAAG;AAEH,eAAU;AACV,UAAU,UAAP,OAAU,cAAH,CAAV;AAEE,YAAqB,MAAO;AAC5B,YAAqB,MAAO;AAC5B,YAAY,aAAD,QAAX,EACE,aAAO,CAAC,KAAM,EAAG,CAAV,CADT;OAJF;AALe;AAAY;AARQ;AAApB;AAEf,UAAY,uBAAD,QAAX,EACuB,uBAAc,OADrC;AAGA,eAAU;AALK;AAAoB;AAyJP;AAE5B;AACA,UAAY,uBAAD,QAAX,EACE,uBAAa,OAAb,GAAwB,IAD1B;AAH4B;AA5SJ;AAET,eAAf,KAAe;AACf,UAAY,wBAAD,QAAX,EACsB,SAApB,KAAoB,sBADtB;AAGA,UAAY,uBAAD,QAAX,EACqB,SAAnB,KAAmB,qBADrB;AAGA;AATwB;AAYQ;AAEhC;AACA,qBAAW;AACX,mCAAyB,kBAAa,QAAC;AACvC,4BAAkB,mBAAc,QAAC;AACjC,4BAAkB;AAClB,yBAAe;AACf,+BAAqB;AACrB,sBAAW,KAAX;AAEA,oBAAS,GAAT;AACA,qBAAU,GAAV;AACA,UAA6B,MAAM,UAAU,aAAlC,QAAX,EACmB,MAAM,UAAU,aAAc,mBAAiB,KAAM,CAAE,iDAAF,CADxE;AAbgC;AAnEU;AAA3B;AAEf;AACA;AACA;AAEA,UAAG,CAAY,CAAC,wBAAD,SAAf;AAEE,mCAAuB,uBAAW,QAAC;AACnC,YAAsB,MAAM,UAAU,aAAc;AACpD,iBAAU,MAAS,KAAK,CAAC,CAAD;AACxB,iBAAS,QAAoB,OAAT,WAAC,MAAD,CAAS,GAAE,CAAF,kBAA7B;AAAI;AACF,kCAAmB,IAAI,CAAC,MAAM,CAAC,CAAD,CAAP;;OAN3B;AAQA,eAAU;AAdK;AAA2B;AAoFP;AAApB;AAEf;AACA;AACA;AAEA,UAAG,CAAY,CAAC,uBAAD,SAAf,EACE,0BAAsB,uBAAW,QAAC,YADpC;AAGA,UAAY,gBAAD,QAAX;AAEE,+BAAkB;AAClB,YAAK,gBAAW;AAChB,iBAAU,MAAS,KAAK,CAAC,CAAD;AACxB,iBAAS,QAAoB,OAAT,WAAC,MAAD,CAAS,GAAE,CAAF,kBAA7B;AAAI;AACF,iCAAkB,IAAI,CAAC,MAAM,CAAC,CAAD,CAAP;;OAN1B;AAQA,eAAU;AAjBK;AAAoB;AA4KA;AAEnC,yBAAa;AACb,UAA6B,MAAM,UAAU,aAAlC,QAAX,EACmB,MAAM,UAAU,aAAc,mBAAiB,KAAM,CAAE,iDAAF,CADxE;AAHmC;AAbd;AAErB,qBAAW;AAEX,UAAY,uBAAD,QAAX;AAEuB,+BAAc;AAEnC,YAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,0BAAP,CADf;OAJF;AAJqB;AAoBC;AAEtB,UAAW,CAAC,uBAAD,SAAgB,IAAK,YAAhC;AAEuB,+BAAc;AAEnC,YAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,0BAAP,CADhB;OAJF;AAOA,qBAAW;AATW;AAkBiB;AAEvC,UAAG,OAAO,MAAI,KAAG,0BAAqB,MAAtC;AAEE,kCAAqB,OAAO,CAAC,OAAD;AAE5B,YAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,0BAAP,CADhB;OAJF;AAFuC;AA3SR;AAAhB;AAEf,eAAU;AACV,UAAY,gBAAD,QAAX;AAEE,iBAAU,gBAAW,iBAAiB,CAAC,YAAD;OAFxC;AAHe;AAAgB;AAsTV;AAErB;AAEA,UAAK;AACL,OAAC,MAAM,CAAE,uCAAF;AALc;AAQA;AAAN;AAEf;AAAG;AACH;AAEA;AAEK;AACH,UADG,IACH;AAAS,YAAK,UAAG,CAAC,CAAC,aAAc,MAAf,CAAD;AACjB,gBAFG,IAEH;AAAQ,YAAK,UAAG,CAAC,CAAC,aAAc,aAAf,CAAD;AAChB,gBAHG,IAGH;AAEE,YAAG,0BAAqB,MAAI,KAAG,EAA/B;AAEE,cAAK,UAAG,CAAC,CAAC,QAAS,0BAAqB,MAA/B,CAAD;AACR,cAAK,UAAG,CAAC,CAAC,WAAY,CAAb,CAAD;SAGR,UAAK,UAAG,CAAC,EAAD;OARZ;AAYF,UAAY,mBAAD,QAAX;AAEE,eAAO,SAAP,GAAoB;AACpB,2BAAa,CAAC,KAAM,OAAP;OAHf;AAMA,UAAW,CAAC,uBAAD,SAAgB,IAAY,CAAkB,MAAM,UAAU,aAAlC,SAAvC;AACE,iBAA2B,MAAM,UAAU,aAAc,aAAa,CAAC,UAAG,CAAC,CAAC,QAAS,CAAV,CAAD,CAAJ,CAAmB,KAAM,CAAE,0CAAF;AAE/F,qBAAU;AA/BG;AAAM;AAkCD;;AACA;AAAX;AAEc,aAAM;AAC3B,iBAAU;AAHH;AAAW;AAMpB,qBAAW;AAEX,UAAY,uBAAD,QAAX;AAEE,YAAiC,uBAAc,UAApC,QAAX;AAEuC,iCAAc,UAAW,iBAAe,QAAQ;AAErF,cAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,MAAM,0BAAP,CADd;SAJF;OAFF;AAToB;AA7nBb;;;AAsDS,6B7GwBV,uC6GxBU;AACW;AACT,+B7G8BV,yC6G9BU,yB7G6oBkD,uBAAC,0CAAQ,wCAAT,C6G7oBlD;AACG,kCAvFV,0BAuFU;AACA,kCAvFJ,gCAuFI;AACG;AACF,mC7GqBZ,2C6GrBY;AACJ,+B7G0GV,yC6G1GU;AACK;AACF,kC7GkBX,2C6GlBW;AACH,+BApED,gCAoEC;AACM,qCAnED,sCAmEC;AACa,kD7GiFzB,6C6GjFyB;AACb,qCAtEZ,2BAsEY;AACC,sCAvEb,2BAuEa;AACI,0CAxEjB,2BAwEiB;AACN,oCAzEX,2BAyEW;AACL,+B7G4EN,6C6G5EM;AACG,kC7G2ET,6C6G3ES;AACC,mC7G2EX,4C6G3EW;AACC,oC7GyEX,6C6GzEW;AACA,oC7GwEX,6C6GxEW;AACD,mC7G4EP,gD6G5EO;AACF,iC7GuET,4C6GvES;AACK,sCAjFb,2BAiFa;AA9ElB;AAiFG;;;;AAEO;;AACS;;AACN;;AACG,8EAAmB,U1HhBnC,2B0HgBmC,EAAkB,WvHob/C,6BuHpb+C,EAAsB,oBAA3D;AAEV;;;AAEX;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAtBW;;;;;;;;;;;;;;;;AAmnCkB;AAE/B,UAAG,YAAQ,KAAG,KAAd;AAEE,uBAAW;AACX,YAAY,YAAD,QAAX;AAEE,gCAAkB,YAAO;AACzB,sBAAO,oBAAP,GAA8B;SAG9B,4BAAkB;OATtB;AAF+B;AAeC;AAEhC,UAAG,aAAS,KAAG,KAAf,EACE,gBAAY,KADd;AAFgC;AAMA;AAEhC,sBAAY;AAFoB;AAKM;AAEtC,UAAG,mBAAe,KAAG,KAArB,EACE,sBAAkB,KADpB;AAFsC;AAMF;AAEpC,0BAAgB;AAFoB;AAKC;AAErC,2BAAiB;AAFoB;AAlUD;AAEpC;AAEA,uBAAa,cAAS;AACtB,oBAAS,YAAT,GAAyB,mBAAc,CAAC,iBAAD;AACvC,oBAAS,sBAAT,GAAmC,oBAAe,CAAC,kBAAD;AAClD,oBAAS,QAAT,GAAqB,eAAU,CAAC,aAAD;AAC/B,YAAO,cAAS,wBAAwB,CAAC,OAAD;AACxC,SAAG,QAAQ,CAAC,cAAD;AACX,4BAAgC,IAAd,UAAc,CAAI,cAAS,kBAAb;AAChC,0BAAgB;AAChB,wBAAa,CAAC,kBAAD;AAZuB;AAeD;AAEnC;AACA;AAAG;AAAK;AACR;AAEA,WAAM;AACN,YAAa,sBAAsB,CAAC,EAAD;AAEnC,UAAG,aAAH,EACE,MADF;AAGA,UAAG,CAAI,iBAAP,EACE,MADF;AAGA,oBAAS,qBAAqB,CAAC,mBAAD;AAE9B,YAAO;AACP,YAAO,mBAAc;AACrB,eAAS,QAAS,OAAJ,GAAI,GAAE,CAAF,kBAAlB;AAAI;AACF,cAAO,GAAI,GAAE,mBAAe,GAAjB;;AAEb,WAAM,GAAI,GAAE,GAAF;AACV,UAAO,CAAH,EAAG,GAAE,CAAF,CAAK,IAAK,CAAI,iBAArB;AAEE;AACA,4BAAgB;OAEb,UAAO,CAAH,EAAG,IAAG,CAAH,CAAM,IAAI,iBAAjB;AAEH,sBAAS;AACT,4BAAgB;AAChB,4BAAgB;AAChB;OALG;AA5B8B;AAqCM;AAEzC,UAAY,mBAAD,QAAX,EACE,mBAAc,CAAC,OAAQ,OAAT,CADhB;AAGA,yBAAe,YAAO;AACtB;AANyC;AAUA;AAEzC;AAEA,WAAoB,IAAd,UAAc;AACpB,QAAE,iBAAiB,CAAC,OAAQ,mDAAT;AAErB;AACA;AACA;AACA;AACA;AAEE,mBAAkB,IAAT,KAAS;AAbuB;AAiBC;AAArB;AAErB;AAGF;AAEE,gBAAK,KAAK,CAAC,CAAD;AAEV,eAAU;AATW;AAAqB;AAYP;AAE9B;AACH,WADG,IACH,yCAAU,CADP,IACO,oCAAV,EAAoC,MAAM,UAAU,aAAc,aAAa,CAAC,UAAG,CAAC,CAAC,QAAS,IAAV,CAAD,CAAJ,CAAsB,KAAM,CAAE,+CAAF,CAA3G;AAHiC;AAOJ;AAAV;AAErB,eAAU;AAEL;AACH,UADG,IACH;AAAO,iBAAU;AACjB,gBAFG,IAEH;AAAO,iBAAU;AACjB,gBAHG,IAGH;AAAQ,iBAAU;AAClB,gBAJG,IAIH;AAAQ,iBAAU;AAClB,gBALG,IAKH;AAAQ,iBAAU;AAClB,gBANG,IAMH;AAAS,iBAAU;AACnB,gBAPG,IAOH;AAAS,iBAAU;AACnB,gBARG,IAQH;AAAS,iBAAU;AACnB,gBATG,IASH;AAAS,iBAAU;AACnB,gBAVG,IAUH;AAAU,iBAAU;AACpB,gBAXG,IAWH,yCAAU,SAAU,KAApB;AAfmB;AAAU;AAmBI;AAAd;AAErB,UAAG,YAAa,GAAE,CAAlB;AACE,uBAAgB;AACb,gBAAG,YAAa,GAAE,GAAlB,EACH,eAAgB,GADb;AAGL,UAAG,YAAa,KAAE,CAAlB;AACE,iBAAU;AAEV,qBAAU,CAAC;AAVQ;AAAc;AAaC;AAAf;AAErB,UAAG,SAAU,GAAE,GAAf;AACE,oBAAa;AACV,gBAAG,SAAU,IAAG,GAAhB,EACH,YAAa,IADV;AAGL,eAAU;AAPW;AAAe;AAUD;AAE9B;AACH,WADG,IACH,yCAAU,CADP,IACO,oCAAV;AAEE,YAAY,YAAD,QAAX;AACE,sBAAO;AAEP;OALJ;AAHiC;AAaM;AAApB;AAErB,yBAAoD,YAAa,iBAAgB;AACjF;AACA,eAAU;AAJW;AAAoB;AAOA;AAApB;AAErB;AACA;AAGF;AAGE,UAAK,kBAAa,CAAC,CAAD;AAElB,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,EAAG,CAAV,CADf;AAGA,eAAU;AAdW;AAAoB;AAiBA;AAApB;AAErB,yBAAoD,YAAa,iBAAgB;AACjF;AACA,eAAU;AAJW;AAAoB;AAOF;AAEvC,UAAG,CAAY,CAAC,kBAAD,SAAf,EACE,MADF;AAGA,UAAG,CAAY,CAAC,cAAD,SAAf;AAGF;OAHE;AAOA,yBAAc,CAAC,OAAD;AAZyB;AAeE;AAEzC;AACA;AAEA,UAAa,CAAT,aAAS,KAAE,8BAAF,CAAW,IAA+B,CAA1B,CAAY,CAAC,gBAAD,SAAc,IAAI,CAAY,CAAC,gBAAD,SAAhB,CAAvD,EACE,MADF;AAGA,gBAA2B,IAAhB,WAAgB;AAEtB;AACH,UADG,IACH;AAEE,uBAAW;AACX,eAAO,SAAS,CAAC,gBAAD;OAElB,UANG,IAMH;AAEE,uBAAW;AACX,eAAO,SAAS,CAAC,gBAAD;AAChB,eAAO,SAAS,CAAC,gBAAD;OAElB,UAZG,IAYH;AAEE,uBAAW;AACX,eAAO,SAAS,CAAC,gBAAD;OAHlB;AAOF,UAAG,eAAS,IAAa,CAAR,YAAQ,KAAE,QAAF,CAAzB;AACE,uBAAW,YAAQ,GAAE,KAAF;AAEnB,2BAAW,YAAQ,GAAE,MAAF;AAErB,YAAO,UAAG,CAAC,CAAC,WAAY,YAAb,CAAD;AAEV,uBAA+B,IAAlB,aAAkB,CAAI,QAAS,GAAb;AAC/B,oBAAS,gBAAT,GAA8B;AAC9B,oBAAS,OAAT,GAAqB;AAEhB;AACH,UADG,KACH;AAAW;AACX,gBAFG,KAEH;AAEE,4BAAgB;AAChB,8BAAiB,CAAC,OAAD;OAHnB;AA1CuC;AAkDP;AAGlC;AACA,UAAG,CAAkB,CAAb,4CAAa,IAAG,oBAAH,CAArB;AAEE,YAAI,SAAU,KAAE,+BAAhB;AAEE,cAAI,UAAW,KAAE,YAAjB,EACE,eAAW,IADb;SAFF;OAFF;AAJkC;AAcE;AAEpC;AAEA,WAAM;AAGR;AAGE,UAAI,CAAY,CAAkB,MAAM,UAAU,aAAlC,SAAmD,IAAG,EAAtE,EACE,MADF;AAGA;AACA;AAdoC;AAiBI;AAEvB,YAAM,UAAU,aAAc,aAAa,CAAC,UAAG,CAAC,CAAC,QAAS,IAAV,CAAD,CAAJ,CAAsB,KAAM,CAAE,+CAAF;AAFhD;AA6DJ;AAEpC,oBAAS;AAET,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,IAAD,CADhB;AAJoC;AAgBN;AAE9B,sBAAY;AAEZ,UAAW,CAAC,cAAD,SAAY,IAAI,iBAA3B;AAEE,4BAAgB;AAChB,sBAAS;OAHX;AAJ8B;AAWE;AAEhC,UAAY,cAAD,QAAX,EACE,cAAS,OADX;AAGA,UAAY,YAAD,QAAX,EACE,YAAO,OADT;AAGA,UAAY,gBAAD,QAAX;AAEE,wBAAW;AACX,2BAAe;OAHjB;AAMA,UAAY,gBAAD,QAAX;AAEE,wBAAW;AACX,2BAAe;OAHjB;AAdgC;AAjYF;AAE9B;AACA,mBAAkB,IAAT,KAAS;AAClB,sBAAY;AACZ,yBAAe;AACf,yBAAe;AACf,4BAAkB;AAClB,2BAAiB;AACjB,sBAAY;AACZ,0BAAgB;AAChB,0BAAgB;AAElB;AAbqD;AAArB;AAwVH;AAEtB;AACH,UADG,IACH;AAEE,YAAG,CAAY,CAAC,cAAD,SAAf,EACE,qBADF;AAGA,wBAAY;OAEd,UARG,IAQH,gDAAW,qBAAX;AAVyB;AAsBD;AAErB;AACH,UADG,IACH;AAAS;AACT,gBAFG,IAEH,gDAAW,iBAAX;AAJwB;AAnrCb;;AAoDO,+BAAO,UjH2XjB,+BiH3XiB,CAAP;AAIF,+BA7DD,gCA6DC;AACD,8BAjJV,sBAiJU;AACC,+BA7DE,mCA6DF;AACM,qCA/DE,yCA+DF;AACF;AACU;AACP,sC7GHb,6C6GGa;AACD,qCAjED,sCAiEC;AA/DX;AAkEG;;;AAEI,2EAAmB,U1HtFhC,2B0HsFgC,EAAmB,uBAAtC;AAEZ;;;AAEN;AACA;AACA;AACA;AACA;AANM;;;;;;;;AA4mBkB;AAE1B,UAAG,YAAQ,KAAG,KAAd,EACE,eAAW,KADb;AAF0B;AAMK;AAE/B,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;AAEhB,YAAG,iBAAH;AACE,qBAAM,SAAN,GAAkB;AAElB,cAAA,WAAM,SAAN,GAAkB;OAPtB;AAF+B;AAxCL;;AAWA;;AAII;AAE9B,UAAW,CAAC,YAAD,SAAU,IAAI,CAAI,YAAO,QAApC,EACE,gBADF;AAF8B;AAMD;AAE7B;AACA,UAAG,CAAkB,CAAb,4CAAa,IAAG,oBAAH,CAArB;AAEE,YAAI,SAAU,KAAE,+BAAhB;AAEE,cAAI,UAAW,KAAE,YAAjB,EACE,eAAW,IADb;SAFF;OAFF;AAH6B;AA5BJ;AAEzB;AACA,oBAAU,gCAAS,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,0BAAgB;AAJ8B;AAArB;AAYA;AAElB,eAAP,KAAO;AACP;AAHyB;AA/kBjB;;AAmBY,+BAAO,UjHsVjB,+BiHtViB,CAAP;AAnBZ;AAuBE;;;AAER;AACA;AAHQ;;;;;;AAmnBkB;AAE5B;AAEA,YAAO,YAAM,mBAAC;AACd,kBAAQ,IAAI,CAAC,GAAG,MAAO,GAAG,OAAQ,GAAG,OAAzB;AAEZ,UAAW,CAAC,SAAD,SAAO,IAAY,CAAC,eAAD,SAA9B,EACE,eAAS,CAAC,KAAM,SAAI,KAAX,CADX;AAP4B;AAWK;AAAf;AAElB;AACA;AACA;AAEA,eAA+B,QAAQ,cAAc,CAAC,QAAD;AACrD,YAAM,MAAN,GAAgB,SAAI;AACpB,YAAM,OAAN,GAAiB,SAAI;AACrB,YAAO,MAAM,WAAsB,CAAC,IAAD;AACnC,SAAG,UAAU,CAAW,UAAO,EAAG,CAArB;AAEb,gBAAW,GAAG,aAAa,CAAC,EAAG,EAAG,MAAM,OAAQ,MAAM,OAA3B;AAC3B,kBAAQ,IAAI,CAAC,OAAO,MAAO,OAAO,OAAQ,OAAO,OAArC;AAEZ,UAAW,CAAC,SAAD,SAAO,IAAY,CAAC,eAAD,SAA9B,EACE,eAAS,CAAC,KAAM,SAAI,KAAX,CADX;AAGA,eAAU;AAlBQ;AAAe;AApBL;AAE5B;AACA,kBAA4B,QAAQ,cAAc,CAAC,KAAD;AAElD,eAAI,OAAJ,GAAgB;AAChB,eAAI,IAAJ,GAAY;AANgB;AA1mBlB;;AAUO,8BA/LV,sBA+LU;AACK;AACF,iCArCA,mCAqCA;AAZV;AAeG;;;AAEQ;;AACC,4CADD,6CACC;AAEP;;;AACb;AACA;AACA;AACA;AACA;AALa;;;;;;;AA4sBkB;AAEjC,qBAAW;AACX;AAHiC;AAjCA;AAEjC;AAEA,UAAG,mBAAH;AAEE,8BAAkB;AAClB,cAAO,YAAM,kBAAC;AACd,uBAAU,IAAV,GAAkB;AAClB,cAAM,aAAa,CAAC,gBAAa,2CAAd;OALrB;AAJiC;AArBO;AAExC,UAAY,OAAD,QAAX;AAEE,YAAY,OAAO,WAAR,QAAX;AAEE,cAAY,eAAD,QAAX,EACE,eAAS,CAAC,KAAM,OAAO,WAAW,KAAzB,CADX;SAFF;OAFF;AASA,UAAG,iBAAH;AAEE,8BAAkB;AAClB,4BAAgB;OAHlB;AAMA,UAAY,YAAD,QAAX,EACE,sBAAkB,IADpB;AAjBwC;AAkCH;AAErC;AACA;AAEA,YAAgB,IAAT,KAAS;AAChB,UAAW,UAAR,aAAU,EAAF,CAAX;AACE,WAAG,KAAK,CAAC,iBAAD;;AAGR,iBAAc,4CAAgC,6DAA9C;AAAI;AAEF,cAAG,GAAI,IAAG,YAAV,EACE,GAAG,KAAK,CAAC,yBAAoB,CAAC,GAAD,CAArB,CADV;;;AAKJ,qBAAU,QAAV,GAAsB,UAAG,CAAC,CAAC,UAAW,GAAZ,CAAD;AAjBY;AAvDL;AAEhC;AACA,wBAAuC,IAAzB,MAAyB;AACvC,qBAAW,cAAC,qCAAD;AACX,0BAAgB;AAChB,4BAAkB;AANmC;AAArB;AASC;AAEjC;AACA,qBAAU,IAAV,GAAkB;AAClB,UAAG,iBAAH;AAEE,4BAAe,KAAf;AACA,4BAAgB;OAHlB;AAKA,YAAM,aAAa,CAAC,gBAAa,2CAAd;AATc;AA1oBlB;;AACb;AACA;AACA,0BALoB,oCAKpB;AACA,uBD5HsB,8CC4HtB;AACA,6BDtIsB,8CCsItB;AAQkB,+BAAO,UjHiTjB,+BiHjTiB,CAAP;AAGH,8BAzNV,sBAyNU;AACK;AACL,8BApBK,qCAoBL,uBAA8D,uBAAC,qCAAD,CAA9D;AACG,iCAhEA,mCAgEA;AAnBL;AAsBG;;;AAgDE;AAAb;AAEP;AAAK;AACL;AAEA,UAAO,MAAM;AACb,aAAS,QAAS,OAAJ,GAAI,GAAE,CAAF,kBAAlB;AAAI;AACF,aAAQ,IAAK,GAAE,MAAS,aAAa,CAAC,MAAO,GAAR,CAAxB;;AAEf,aAAU,MAAM,KAAK,CAAC,IAAD;AATd;AAAa;AAlCL;AAAR;AAEP;AAEA,SAAM;AAER;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEE,aAAU;AA/BH;AAAQ;AARY,2DAAC,EAAD;AAA3B,+BAAgE,kBAAmB,aAAc,eAAgB,iBAAkB,qBACjI,iBAAkB,aAAc,eAAgB,eAAgB,cAAe,gBADjF;AA9QF,GAiRc,QAjRd;ACfA,+BAES,uMAFT;;;AAUc;;;AACV;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAUA;AAlBU;;;;;;;;;;;;AAiD2C;AAEvD,wBAAa,WAAC,CAAS,kBAAT;AACd,mBAAQ,WAAC,CAAS,KAAT;AAH8C;AAMvB;AAEhC;AAEA,qBAAU,MAAK,WAAC,CAAM,wEAAN;AAChB,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,uBAAY,iBAAC,CAAe,SAAf;AACb,mBAAQ,iBAAC,CAAe,SAAf;AACT,kBAAW,eAAU,iBAAC;AACtB,wBAAa,iBAAC,CAAe,SAAf;AACd,qBAAU,iBAAC,CAAe,SAAf;AACX,wBAAa,CAAC,MAAD;AAZmB;AAbM;AAEtC,0BAAc;AACd,qBAAU;AACV,UAAI;AAJkC;AAdJ;AAElC,qBAAU;AAFwB;AAKY;AAG9C,0BAAe,iBAAI,CAAC,QAAD;AACnB,wBAAa,WAAC,CAAS,iBAAT;AACd,qBAAU;AACV,UAAI;AAN0C;AAqCZ;AAExB;AAEV,2BAAiB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,wBAAc,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,0BAAgB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,sBAAY,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,gCAAsB,qCAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAEtC,wBAAa;AACb,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,uBAAY;AACZ,mBAAQ;AACR,qBAAU;AACV,6BAAkB;AAClB;AACE,qBAAQ,aAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,wBAAW,aAAX;AACA,2BAAc,+CAAd;AACA,kBAAI,SAAJ,GAAgB;AAChB,kBAAI,SAAC,CAAS,KAAT;AACL,kBAAI,UAAC,CAAU,CAAC,EAAX;AACL,kBAAI,QAAC,CAAQ,OAAR;AACL,kBAAI,SAAC,CAAS,EAAT;AACL,2BAAc,KAAd;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,QAAC,CAAQ,CAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,0BAAa,SAAC,CAAS,EAAT;AACd,0BAAa,UAAC,CAAU,EAAV;AACd,0BAAa,WAAC,CAAW,eAAX;AACd,0BAAa,oBAAC,CAAoB,QAApB;AACd,0BAAa,eAAC,CAAe,yCAAf;AACd,0BAAa,mBAAC,CAAmB,gDAAnB;AACd,0BAAa,eAAC,CAAe,wCAAf;AACd,0BAAa,iBAAC,CAAiB,sBAAjB;AACd,0BAAa,gBAAC,CAAgB,sBAAhB;AACd,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,GAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAgB,qBAAhB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAQ,CAAC,gBAAY,KAAM,6BAA8B,oCAAjD;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,QAAC,CAAQ,CAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,EAAT;AACb,yBAAY,UAAC,CAAU,EAAV;AACb,yBAAY,WAAC,CAAW,WAAX;AACb,yBAAY,gBAAC,CAAc,CAAd;AACb,yBAAY,oBAAC,CAAoB,4BAApB;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,mBAAC,CAAmB,gDAAnB;AACb,yBAAY,eAAC,CAAe,wCAAf;AACb,yBAAY,iBAAC,CAAiB,sBAAjB;AACb,yBAAY,cAAC,CAAc,wCAAd;AACb,yBAAY,gBAAC,CAAgB,sBAAhB;AACb,uBAAQ,CAAC,kBAAc,KAAM,UAAW,mBAAhC;AACR,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,CAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,qBAAQ,SAAC,CAAS,EAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,WAAC,CAAW,OAAX;AACT,qBAAQ,gBAAC,CAAc,CAAd;AACT,qBAAQ,oBAAC,CAAoB,4BAApB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,cAAC,CAAc,wCAAd;AACT,qBAAQ,gBAAC,CAAgB,sBAAhB;AACT,uBAAQ,CAAC,cAAU,KAAM,UAAW,eAA5B;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,+BAAkB,mBAAmB,CAAC,IAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,UAAC,CAAU,eAAV;AACnB,+BAAkB,eAAC,CAAe,IAAf;AACnB,+BAAkB,UAAC,CAAU,cAAC,uDAAW,mDAAO,oDAAQ,sDAAU,yDAAa,uDAAW,mDAAO,oDAAQ,qDAAS,oDAAQ,qDAA7F,CAAV;AACnB,uBAAQ,CAAC,wBAAoB,KAAM,YAAa,2BAAxC;AACR,+BAAkB,QAAC,CAAQ,GAAR;AACnB,+BAAkB,OAAC,CAAO,EAAP;AA/GrB;AAiHE,0BAAa;AACb,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,yBAAY;AACZ,qBAAQ;AACR,uBAAU;AACV,+BAAkB;AAxHpB;AArBkC;AAtEtB;;;AACV,qCDsPa,8CCtPb;AACA,6BD4CK,sCC5CL;AACA,6B7Fs7BY,8C6Ft7BZ;AACA,6B7Fq7BY,8C6Fr7BZ;AACA,+B9FskBK,uC8FtkBL;AACA,2B9FqkBK,uC8FrkBL;AACA,gC9FkGI,sC8FlGJ;AACA,6B7Fi7BY,8C6Fj7BZ;AAC4C,yDAAO,U3H2G9C,2B2H3G8C,CAAP;AACvB,kCAAO,U3H0GvB,2B2H1GuB,CAAP;AACM,wCAAO,U3HyG7B,2B2HzG6B,CAAP;AACJ,oCAAO,U3HwGzB,2B2HxGyB,CAAP;AACY,gDAAO,U3HuGrC,2B2HvGqC,EAAmB,uBAA1B;AAbzB;AAsBZ;AAhCF;ACAA,gCAES,oeAFT;;;AAakB;;;AACd;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAUA;AACA;AACA;AACA;AA/Bc;;;;;;;;;;;;;;;;;;;;;;;AAsMoB;AAEpC;AAEA,qBAAU,MAAK,WAAC,CAAM,qEAAN;AAChB,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,kCAAuB,iBAAC,CAAe,SAAf;AACxB,kBAAO,iBAAC,CAAe,SAAf;AACR,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAW,eAAU,iBAAC;AACtB,sBAAW,WAAC,CAAS,aAAT;AACZ,sBAAW,iBAAC,CAAe,SAAf;AACZ,yBAAc,iBAAC,CAAe,SAAf;AACf,kBAAW,eAAU,iBAAC;AACtB,aAAE,iBAAC,CAAe,SAAf;AACH,aAAE,WAAC,CAAS,KAAT;AACH,2BAAe;AACf,kCAAsB;AACtB,kCAAuB,WAAC,CAAS,KAAT;AACxB,yBAAc;AAtBsB;AAnFK;AAEzC;AACA;AAEA,UAAG;AACH,aAAE,WAAC,CAAS,IAAT;AACH,aAAE,YAAC,CAAU,CAAV;AACH,aAAE,YAAC,CAAU,OAAO,eAAC,EAAW,GAAC,CAA9B;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,eAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,qBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,qBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,SAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,KAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,WAAP;AACR,aAAO;AACP,UAAG,OAAO,eAAC,EAAW,KAAC,CAAvB,EAA8B,gBAAW,QAAC,CAAM,iBAAN,CAA1C;AACA,UAAG,OAAO,eAAC,EAAW,GAAC,CAAvB,EAA8B,gBAAW,QAAC,CAAM,sBAAsB,GAAC,qBAAQ,CAAC,OAAO,eAAC,EAAT,CAArC,CAA1C;AACA,UAAG,OAAO,eAAC,EAAW,GAAC,EAAvB,EAA+B,gBAAW,QAAC,CAAM,4DAAN,CAA3C;AACA,UAAG,OAAO,eAAC,EAAW,GAAC,EAAvB,EAA+B,gBAAW,QAAC,CAAM,sBAAoD,GAA7B,qBAAQ,CAAC,OAAO,eAAC,EAAT,CAAT,GAA+B,sBAA3D,CAA3C;AAGA,aAAM,CAAI,OAAO,OAAC,EAAlB;AAEM,SAAJ,IAAG;AACH,oBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,iBAAS,UAAT,GAAqB;AACrB,mCAAqB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,gCAAmB,oBAAC,CAAkB,qBAAlB;AACpB,gCAAmB,eAAC,CAAa,wCAAb;AACpB,gCAAmB,SAAC,CAAO,GAAP;AACpB,gCAAmB,OAAnB,GAAyB;AACzB,gCAAmB,WAAC,CAAS,yBAAoB,YAAC,EAA9B;AACpB,gCAAmB,SAAnB,GAA8B;AAC9B,gCAAmB,iBAAC,CAAe,SAAf;AACpB,eAAE,SAAM,CAAC,EAAE,EAAI,+BAA0B,YAAC,EAAlC;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,oBAAO,CAAC,+BAA0B,YAAC,GAAS,GAArC,CAAd;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,mBAAc,YAAC,EAAtB;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,eAAU,YAAC,EAAlB;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,4BAAuB,YAAC,EAA/B;AACR,eAAO;;AAGT,kCAAuB,WAAC,CAAS,IAAT;AA3CiB;AAnCD;AAExC,UAAI;AAFoC;AA9BH;;AAErC;AACqB;AAEnB;AAEE,gBAAc,OAAN,MAAS,iCAAH;AAJG;AAUK;AAEtB,4BAAc,QAAC,CAAM,iBAAI,CAAC,IAAI,aAAL,CAAV;AACf,kCAAoB,CAAC,KAAD;AAHE;AAMxB,UAAG,kBAAH;AAEE,eAAM,iCAAY,QAAC,eAAS,aAAT;AACnB,YAAI,YAAU;;AAId,yCAAW,CAAC,wFAAD;;AA1BsB;AAiHQ;AAE7C;AAEA,iBAAU,iBAAI,CAAC,mBAAc,QAAC,EAAhB;AACd,UAAU,QAAD,OAAU,GAAC,CAApB;AAEE,YAAG,yBAAoB,KAAC,KAAxB;AAEE,sBAAO;AACP,sBAAO,UAAP,GAAkB;AAClB,sBAAO,aAAP,GAAqB,yCAAsO,GAA3L,QAAD,GAAU,iCAAD,GAAqC,QAAD,GAAU,uBAAD,GAA2B,QAAD,GAAU,oCAAD,GAAwC,QAAD,GAAU,uCAAD,GAA2C,QAAD,GAAU,IAAD;AAC3P,sBAAO;;AAIP,sBAAO;AACP,sBAAO,UAAP,GAAkB;AAClB,sBAAO,aAAP,GAAqB,0CAAuO,GAA3L,QAAD,GAAU,iCAAD,GAAqC,QAAD,GAAU,uBAAD,GAA2B,QAAD,GAAU,oCAAD,GAAwC,QAAD,GAAU,uCAAD,GAA2C,QAAD,GAAU,sBAAD;AAC5P,sBAAO;;OAdX;AAL6C;AAyBJ;AAEzC,UAAG,gBAAG,CAAC,gBAAgB,gBAAW,OAAM,CAAlC,CAAoC,GAAC,CAA3C;AAEE,oBAAO;AACP,oBAAO,UAAP,GAAkB;AAClB,oBAAO;OAJT;AAFyC;AAlJY;AAErD,UAAG,yBAAoB,KAAC,KAAxB;AAAmC,oCAAsB;AAAU,wCAAsB;AACzF,UAAG,yBAAoB,KAAC,KAAxB,EAAmC,4BAAuB,WAAC,CAAS,aAAT,CAA3D;AACA,UAAG,yBAAoB,KAAC,IAAxB,EAAkC,4BAAuB,WAAC,CAAS,cAAT,CAA1D;AACA,+BAAoB,CAAC,IAAD;AALiC;AA2CJ;;AAEjD;AACuB;AAEZ,eAAN,MAAS,4BAAH,CAAe,iBAAiB,QAAC,CAAM,mBAAN;AACjC,eAAN,MAAS,4BAAH,CAAe,uBAAuB,CAAC,IAAD;AAH1B;AAMG;AAEtB,kCAAoB,CAAC,IAAD;AAFE;AAM1B,2BAAuB,OAAP,OAAU,8BAAH,CAAW;AAElC,UAAG,0BAAH;AAEE,eAAE,WAAC,CAAS,KAAT;AACH,eAAM,4BAAW,QAAC,eAAS,aAAT;AAClB,YAAI,YAAU;;AAKd,aAAI;;AA1B2C;AA0IX;AAE5B;AAEV,yBAAe,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,qBAAW,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACnB,4BAAkB,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,qCAA2B,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,qBAAW,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,4BAAkB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,wBAAc,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,oBAAU,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAEtB,sBAAW;AACX,aAAE;AACF,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,kBAAO;AACP,yBAAc;AACd,kCAAuB;AACvB,kBAAO;AACP,+BAAoB;AACpB,qCAA0B;AAC1B,qCAA0B;AAC1B,+BAAoB;AACpB,yBAAc;AACd,kCAAuB;AACvB,qBAAU;AACV,iBAAM;AACN;AACE,qBAAQ,iBAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,wBAAW,IAAX;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,CAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,EAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,WAAC,CAAW,aAAX;AACZ,wBAAW,oBAAC,CAAoB,QAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,cAAC,CAAc,2CAAd;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,uBAAQ,CAAC,iBAAa,KAAM,UAAW,kBAA/B;AACR,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,QAAC,CAAQ,CAAR;AACH,eAAE,OAAC,CAAO,GAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,EAAV;AACH,eAAE,oBAAC,CAAoB,gDAApB;AACH,eAAE,eAAC,CAAe,wCAAf;AACH,eAAE,cAAC,CAAc,2CAAd;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,gBAAC,CAAc,CAAd;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,eAAC,CAAe,yCAAf;AACH,eAAE,0BAAC,CAA0B,YAA1B;AACH,eAAE,mBAAC,CAAmB,gDAAnB;AACH,eAAE,yBAAC,CAAyB,gDAAzB;AACH,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,kDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,yCAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,YAApB;AACX,uBAAU,eAAC,CAAe,2CAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,QAAC,CAAQ,CAAR;AACR,oBAAO,OAAC,CAAO,GAAP;AACR,oBAAO,SAAC,CAAS,EAAT;AACR,oBAAO,UAAC,CAAU,EAAV;AACR,oBAAO,WAAC,CAAW,sBAAX;AACR,oBAAO,gBAAC,CAAc,CAAd;AACR,oBAAO,oBAAC,CAAoB,mCAApB;AACR,oBAAO,eAAC,CAAe,yCAAf;AACR,oBAAO,mBAAC,CAAmB,gDAAnB;AACR,oBAAO,eAAC,CAAe,wCAAf;AACR,oBAAO,iBAAC,CAAiB,sBAAjB;AACR,oBAAO,cAAC,CAAc,wCAAd;AACR,oBAAO,gBAAC,CAAgB,sBAAhB;AACR,uBAAQ,CAAC,aAAS,KAAM,UAAW,cAA3B;AACR,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,CAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,gBAAC,CAAc,CAAd;AACf,2BAAc,oBAAC,CAAoB,2BAApB;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,iBAAC,CAAiB,sBAAjB;AACf,2BAAc,YAAC,CAAY,IAAZ;AACf,2BAAc,YAAC,CAAY,sBAAZ;AACf,2BAAc,gBAAC,CAAgB,qBAAhB;AACf,uBAAQ,CAAC,oBAAgB,KAAM,WAAY,sBAAnC;AACR,oCAAuB,mBAAmB,CAAC,IAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,QAAC,CAAQ,GAAR;AACxB,oCAAuB,OAAC,CAAO,GAAP;AACxB,oCAAuB,SAAC,CAAS,EAAT;AACxB,oCAAuB,UAAC,CAAU,EAAV;AACxB,oCAAuB,WAAC,CAAW,aAAX;AACxB,oCAAuB,gBAAC,CAAc,CAAd;AACxB,oCAAuB,oBAAC,CAAoB,mCAApB;AACxB,oCAAuB,eAAC,CAAe,yCAAf;AACxB,oCAAuB,mBAAC,CAAmB,gDAAnB;AACxB,oCAAuB,eAAC,CAAe,wCAAf;AACxB,oCAAuB,iBAAC,CAAiB,sBAAjB;AACxB,oCAAuB,cAAC,CAAc,wCAAd;AACxB,oCAAuB,gBAAC,CAAgB,sBAAhB;AACxB,uBAAQ,CAAC,6BAAyB,KAAM,UAAW,8BAA3C;AACR,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,WAAP,GAAqB;AACrB,oBAAO,iBAAC,CAAiB,SAAjB;AACR,oBAAO,cAAC,CAAc,aAAG,oBAAjB;AACR,oBAAO,UAAP,GAAoB;AACpB,oBAAO,QAAC,CAAQ,EAAR;AACR,oBAAO,OAAC,CAAO,EAAP;AACR,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,UAApB,GAAiC;AACjC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,GAAR;AAC3B,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,oCAAuB,mBAAmB,CAAC,YAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,uBAAU,mBAAmB,CAAC,YAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,WAAV,GAAwB;AACxB,uBAAU,QAAC,CAAQ,EAAR;AACX,mBAAM,mBAAmB,CAAC,IAAD;AACzB,mBAAM,QAAC,CAAQ,QAAR;AACP,mBAAM,WAAC,CAAW,YAAX;AACP,mBAAM,QAAC,CAAQ,EAAR;AACP,mBAAM,OAAC,CAAO,GAAP;AAnLT;AAqLE,wBAAW;AACX,eAAE;AACF,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,oBAAO;AACP,2BAAc;AACd,oCAAuB;AACvB,oBAAO;AACP,iCAAoB;AACpB,uCAA0B;AAC1B,uCAA0B;AAC1B,iCAAoB;AACpB,2BAAc;AACd,oCAAuB;AACvB,uBAAU;AACV,mBAAM;AAtMR;AAzCsC;AA/NtB;;;AACd,0BvDEc,kDuDFd;AACA,yB7EijDS,2B6EjjDT;AACA,uC7E+ZU,4B6E/ZV;AACA,6C7E8ZU,4B6E9ZV;AACA,6C7E6ZU,4B6E7ZV;AACA,uC7EuiBS,2B6EviBT;AACA,iC7EsiBS,2B6EtiBT;AACA,qBjD86BW,0CiD96BX;AACA,0C7EyZU,4B6EzZV;AACA,6B7EwZU,4B6ExZV;AACA,6B9F26BY,8C8F36BZ;AACA,6B9F06BY,8C8F16BZ;AACA,6B9Fy6BY,8C8Fz6BZ;AACA,6B/F0jBK,uC+F1jBL;AACA,0B/FyjBK,uC+FzjBL;AACA,8B/FsFI,sC+FtFJ;AACA,iC/F2QG,qC+F3QH;AACA,0C/FsjBK,uC+FtjBL;AACqB,kCAAO,U5H8FvB,2B4H9FuB,CAAP;AACK,uCAAQ,W7EwjC5B,wB6ExjC4B,CAAR;AACD,sCAAO,U5H4F3B,2B4H5F2B,CAAP;AACH,mCAAO,U5H2FxB,2B4H3FwB,CAAP;AACQ,2CAAO,U5H0FhC,2B4H1FgC,CAAP;AACJ,uCAAO,U5HyF5B,2B4HzF4B,CAAP;AACY,mDAAO,U5HwFxC,2B4HxFwC,CAAP;AAzBxB;AAoChB;AAjDF,GAmDc,kDAnDd;ACeA,sCAIS,gFAJT;;;;AAUmC;;AAEA;;;AAE/B;AACA;AACA;AACA;AACA;AACA;AAP+B;;;;;;AAwjBuB;AAExD,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;AAChB;OAHF;AAFwD;AASH;AAGrD,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAHqD;AAUP;AAE9C,UAAG,OAAG,KAAG,KAAT;AAEE,kBAAM;AACN;OAHF;AAF8C;AASA;AAE9C,UAAG,OAAG,KAAG,KAAT;AAEE,kBAAM;AACN;OAHF;AAF8C;AAlCG;AAEjD,gBAAK,OAAO,CAAC,KAAD;AACZ;AAHiD;AAjBA;AAEjD,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAFiD;AAMC;AAElD,0BAAgB;AAChB,uBAAa;AACb,gBAAM,CAAC;AACP,gBAAM,CAAC;AACP,mBAAS,2BAAI,QAAC;AACd,gBAAK,SAAC,CAAS,OAAT;AACN,gBAAK,OAAL,GAAe;AARoC;AAAD;AAviBjB;AAgBb;AAGL,4B/G0YX,qC+G1YW;AACO;AACH,gCAvBc,gDAuBd;AACP;AACA;AAvBqB;AA0BX;;;AAEpB;AAAG;AAAG;AACN;AACA;AACA;AALoB;;AAQC;AAife;AAAP;AAG/B,eAA2C,YAAK,CAAC,KAAD;AAHjB;AAAO;AAMC;AAG7B,kBAAK,CAAC,MAAU,KAAX;AAHwB;AAvfhB;AAQa;;AAER;;;AAE1B;AACA;AACA;AACA;AACA;AAN0B;;;;;;AA8kBiB;AAE7C,oBAAU;AAFmC;AAKG;AAGhD,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAHgD;AAUP;AAEzC,UAAG,OAAG,KAAG,KAAT;AAEE,kBAAM;AACN;OAHF;AAFyC;AASA;AAEzC,UAAG,OAAG,KAAG,KAAT;AAEE,kBAAM;AACN;OAHF;AAFyC;AAnDG;AAE5C,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAF4C;AAsBI;AAEhD;AAFgD;AAhBH;AAE7C,gBAAM,CAAC;AACP,gBAAM,CAAC;AACP,uBAAa;AACb,oBAAU,kCAAW,QAAC;AACtB,iBAAM,UAAN,GAAmB;AACnB,iBAAM,cAAN,GAAuB;AAPuB;AAAD;AAUA;AAEtC,eAAP,KAAO;AACP;AAH6C;AAnkBjB;AAeR;AAIJ,6B/GynBL,4C+GznBK;AACG,gCAtBiB,mDAsBjB;AACP;AACA;AAtBgB;AAyBX;;;AAEf;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATe;;;;;;;;;AA0bwB;AAGzC,wBAAa,OAAO,CAAC,KAAD;AAHqB;AAfT;AAGhC,eAAI,OAAO,CAAC,KAAD;AAHqB;AAfQ;AAGxC,uBAAY,OAAO,CAAC,KAAD;AAHqB;AAhSP;AAAR;AAEzB,eAAU,qBAAgB,SAAC,EAAM,KAAE,CAAF;AAFR;AAAQ;AAsSC;AAElC,UAAG,KAAH;AAEE,6BAAgB;AAChB;OAHF;AAFkC;AAeD;AAEjC,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACT;OAHF;AAFiC;AA7VS;AAE1C;AACA,yBAAc;AACd,mBAAS;AACT,uBAAa,+BAAQ,QAAC;AACtB,oBAAS,iBAAiB,CAAC,4BAAD;AAC1B,oBAAS,UAAT,GAAsB;AACtB,wBAAc;AACd,0BAAgB,iCAA4B,QAAC;AAC7C,uBAAY,UAAZ,GAAyB;AACzB,8BAAoB,4BAAuB,QAAC;AAC5C,2BAAiB,sCAAiC,QAAC;AACnD,wBAAa,UAAb,GAA0B;AAC1B,kBAAQ,2BAAI,QAAC;AACb,2BAAgB;AAChB,0BAAe,4CAAf;AACA,oBAAS,GAAT;AACA,qBAAU,GAAV;AAlB0C;AAuKT;AAGjC;AAEA;AACA,UAAK,2BAAsB,QAAC;AAC5B,OAAC,EAAD,GAAO;AACP,OAAC,EAAD,GAAO;AACP,OAAC,SAAD,GAAc;AACd,OAAC,SAAD,GAAc,SAAI;AAClB,OAAC,SAAD,GAAc,SAAI;AAClB,OAAC,SAAD,GAAc,SAAI;AAClB,2BAAgB,MAAI,CAAC,CAAD;AACpB,wBAAc;AACd;AAfiC;AAlDE;AAGnC;AAEA;AACA,UAAG,gBAAW,CAAC,EAAG,CAAJ,CAAd;AACE,sBAAS,IAAT;;AAGA,0BAAc;AACd,YAAK,2BAAsB,QAAC;AAC5B,SAAC,EAAD,GAAO;AACP,SAAC,EAAD,GAAO;AACP,SAAC,SAAD,GAAc;AACd,SAAC,SAAD,GAAc,SAAI;AAClB,SAAC,SAAD,GAAc,SAAI;AAClB,SAAC,SAAD,GAAc,SAAI;AAClB,6BAAgB,MAAI,CAAC,CAAD;AACpB;;AAnBiC;AAuBA;AAEnC;AAEA;AACA,UAAG,eAAH;AAEE,8BAAU,CAAV;AACA,YAAK,2BAAsB,QAAC;AAC5B,SAAC,EAAD,GAAO;AACP,SAAC,EAAD,GAAO;AACP,SAAC,SAAD,GAAc;AACd,SAAC,SAAD,GAAc,SAAI;AAClB,SAAC,SAAD,GAAc,SAAI;AAClB,SAAC,SAAD,GAAc,SAAI;AAClB,6BAAgB,MAAI,CAAC,CAAD;AACpB;;AAIA,YAAG,gBAAW,CAAC,EAAG,CAAJ,CAAd;AACE,gCAAU,EAAV;AAEA,oCAAU,CAAV;;AAvB+B;AA6CJ;AAE/B,UAAG,CAAI,YAAP;AAEE;AACA,wBAAM;AACN;AACA;AACA;;AAIA,wBAAM,KAAI,OAAV,GAAoB;AACpB,wBAAM,SAAS,CAAC,gBAAM,CAAC,EAAG,EAAG,eAAM,GAAE,CAAF,CAAK,gBAAO,GAAE,CAA3B,CAAP;;AAGjB,yBAAc,CAAC,gBAAD;AAhBiB;AA2GS;AAExC;AAEA,eAAS,QAA4B,OAAvB,qBAAgB,SAAC,EAAM,GAAE,CAAF,kBAArC;AAAI;AAEF,YAAG,qBAAgB,WAAC,CAAE,GAAE,CAAL,CAAO,SAA1B;AAEE,iBAAO,KAAI,OAAX,GAAqB,qBAAgB,WAAC,CAAD,CAAG;AACxC,iBAAO,KAAI,SAAC,CAAS,qBAAgB,WAAC,CAAD,CAAG,SAA5B;AACZ,iBAAO,KAAI,OAAX,GAAqB,qBAAgB,WAAC,CAAD,CAAG;AACxC,iBAAO,OAAO,CAAC,qBAAgB,WAAC,CAAD,CAAG,GAAI,qBAAgB,WAAC,CAAD,CAAG,EAA3C;AACd,iBAAO,OAAO,CAAC,qBAAgB,WAAC,CAAE,GAAE,CAAL,CAAO,GAAI,qBAAgB,WAAC,CAAE,GAAE,CAAL,CAAO,EAAnD;SANhB;;AANsC;AAxFE;AAE1C;AAEiB,iBAAZ,iBAAY;AACf,UADe,IACf;AAEoB,oBAAb,kBAAa;AAChB,aADgB,KAChB,8DAAe,CADC,KACD,4DAAf,IAAgC,CADhB,KACgB,2DAAhC,IAAgD,CADhC,KACgC,kDAAhD;AAEE,0BAAM,KAAK,CAAC,EAAa,EAAa,cAA3B;SAEb,WALgB,KAKhB,2DAAY,CALI,KAKJ,yDAAZ,IAA0B,CALV,KAKU,wDAA1B;AAEE,cAAK;AACL,0BAAM,KAAK,CAAC,EAAa,CAAE,GAAE,CAAF,CAAe,cAA/B;SAHb;OAOJ,UAfe,IAef;AAEoB,oBAAb,kBAAa;AAChB,aADgB,KAChB,8DAAe,CADC,KACD,4DAAf,IAAgC,CADhB,KACgB,2DAAhC,IAAgD,CADhC,KACgC,kDAAhD;AAEE,0BAAM,KAAK,CAAC,eAAwB,GAAhB,cAAS,SAAC,EAAZ,GAAoB,CAAF,CAAe,EAAa,cAArD;SAEb,WALgB,KAKhB,2DAAY,CALI,KAKJ,yDAAZ,IAA0B,CALV,KAKU,wDAA1B;AAEE,cAAK;AACL,0BAAM,KAAK,CAAC,eAAwB,GAAhB,cAAS,SAAC,EAAZ,GAAoB,CAAF,CAAe,CAAE,GAAE,CAAF,CAAe,cAAzD;SAHb;OAOJ,UA7Be,IA6Bf;AAEoB,oBAAb,kBAAa;AAChB,aADgB,KAChB,8DAAe,CADC,KACD,4DAAf,IAAgC,CADhB,KACgB,2DAAhC;AAEE,cAAK;AACL,0BAAM,KAAK,CAAC,EAAa,gBAA8B,GAArB,cAAS,UAAC,EAAZ,GAAqB,CAAF,GAAM,CAAF,CAAe,cAA3D;SAEb,WANgB,KAMhB,2DAAY,CANI,KAMJ,yDAAZ,IAA0B,CANV,KAMU,wDAA1B,IAAuC,CANvB,KAMuB,kDAAvC;AAEE,0BAAM,KAAK,CAAC,EAAa,gBAA0B,GAAjB,cAAS,UAAC,EAAZ,GAAqB,CAAF,CAAe,cAAvD;SAFb;OAMJ,UA3Ce,IA2Cf;AAEoB,oBAAb,kBAAa;AAChB,aADgB,KAChB,8DAAe,CADC,KACD,4DAAf,IAAgC,CADhB,KACgB,2DAAhC;AAEE,cAAK;AACL,0BAAM,KAAK,CAAC,eAAwB,GAAhB,cAAS,SAAC,EAAZ,GAAoB,CAAF,CAAe,gBAA8B,GAArB,cAAS,UAAC,EAAZ,GAAqB,CAAF,GAAM,CAAF,CAAe,cAArF;SAEb,WANgB,KAMhB,2DAAY,CANI,KAMJ,yDAAZ,IAA0B,CANV,KAMU,wDAA1B,IAAuC,CANvB,KAMuB,kDAAvC;AAEE,0BAAM,KAAK,CAAC,eAAwB,GAAhB,cAAS,SAAC,EAAZ,GAAoB,CAAF,CAAe,gBAA0B,GAAjB,cAAS,UAAC,EAAZ,GAAqB,CAAF,CAAe,cAAjF;SAFb;OAMJ,UAzDe,IAyDf,sDAAO,gBAAM,KAAK,CAAC,iBAAY,IAAI,iBAAY,IAAI,cAAjC,CAAlB;AA7DwC;AAiEP;AAEnC;AAEA,UAAG,kBAAa,aAAhB;AAEE,YAAK;AACL,wBAAM,KAAI,OAAO,CAAC,kBAAa,MAAd;AACC,mBAAb,kBAAa;AAChB,aADgB,IAChB,8DAAe,CADC,IACD,4DAAf,IAAgC,CADhB,IACgB,2DAAhC;AAEE,0BAAM,OAAO,CAAC,EAAG,gBAAO,GAAE,CAAb;AACb,0BAAM,OAAO,CAAC,gBAAO,gBAAO,GAAE,CAAjB;SAEf,WANgB,IAMhB,2DAAY,CANI,IAMJ,yDAAZ,IAA0B,CANV,IAMU,wDAA1B;AAEE,0BAAM,OAAO,CAAC,EAAG,CAAJ;AACb,0BAAM,OAAO,CAAC,gBAAO,CAAR;SAHf;OAVJ;AAJmC;AAwCA;AAEnC;AACA;AAAI;AAEJ,WAAM,gBAAM,UAAU,CAAC,UAAD;AACtB,WAAM,gBAAM,WAAW,CAAC,UAAD;AACL,iBAAb,kBAAa;AAChB,UADgB,IAChB;AAAe,kBAAK,cAAI,CAAC,EAAa,UAAK,CAAC,gBAAY,GAAH,EAAF,GAAO,CAAf,EAA6B,UAAK,CAAC,CAAY,GAAE,EAAf,EAAoB,gBAAzE,CAAT;AACf,gBAFgB,IAEhB;AAAiB,kBAAK,cAAI,CAAC,UAAK,CAAQ,CAAN,eAAM,GAAE,EAAF,CAAM,GAAE,CAAhB,EAAoB,UAAK,CAAC,gBAAY,GAAH,EAAF,GAAO,CAAf,EAA6B,UAAK,CAAQ,CAAN,eAAM,GAAE,EAAF,CAAM,GAAE,CAAhB,EAAoB,gBAArF,CAAT;AACjB,gBAHgB,IAGhB;AAAgB,kBAAK,cAAI,CAAC,UAAK,CAAE,eAAW,GAAH,EAAF,GAAO,CAAf,EAA8B,UAAK,CAAC,gBAAY,GAAH,EAAF,GAAO,CAAf,EAA6B,eAAM,GAAE,CAAF,CAAe,gBAA3F,CAAT;AAChB,gBAJgB,IAIhB;AAAY,kBAAK,cAAI,CAAC,EAAa,EAAa,UAAK,CAAC,CAAY,GAAE,EAAf,EAAoB,UAAK,CAAC,CAAY,GAAE,EAAf,CAAzD,CAAT;AACZ,gBALgB,IAKhB;AAAc,kBAAK,cAAI,CAAC,UAAK,CAAQ,CAAN,eAAM,GAAE,EAAF,CAAM,GAAE,CAAhB,EAAoB,EAAa,UAAK,CAAQ,CAAN,eAAM,GAAE,EAAF,CAAM,GAAE,CAAhB,EAAoB,UAAK,CAAC,CAAY,GAAE,EAAf,CAArE,CAAT;AACd,gBANgB,IAMhB;AAAa,kBAAK,cAAI,CAAC,UAAK,CAAE,eAAW,GAAH,EAAF,GAAO,CAAf,EAA8B,EAAa,eAAM,GAAE,CAAF,CAAe,UAAK,CAAC,CAAY,GAAE,EAAf,CAA3E,CAAT;AACb,gBAPgB,IAOhB,mDAAO,UAAK,cAAI,CAAC,kBAAa,IAAI,kBAAa,IAAI,UAAK,CAAC,kBAAa,GAAG,GAAE,EAAnB,EAAwB,UAAK,CAAC,kBAAa,GAAG,GAAE,EAAnB,CAArE,CAAT,CAAP;AAEF,sBAAM,SAAS,CAAC,0BAAG,W/GoL6D,MAAkC,MAAgD,qCAA8D,oD+GpLjN;AAhBoB;AA1TM;AAEzC;AAFyC;AAVF;AAEvC,UAAG,iBAAY,OAAM,QAAC,EAAK,KAAG,EAA9B;AACE,sBAAS,iBAAiB,CAAC,EAAD;AAE1B,YAAA,cAAS,aAAa,CAAC,iBAAY,OAAM,W/GyZ8B,I+GzZjD;AAExB;AAPuC;AA2XM;AAE7C;AAF6C;AA/TZ;AAAR;AAEzB,eAAU,UAAK,CAAC,gBAAM,WAAW,CAAC,UAAD,CAAlB,CAA0B,GAAI,CAAF,CAAE,GAAE,CAAF,CAAJ;AAFhB;AAAQ;AAKG;AAAX;AAEzB;AAEA,eAAU;AAEO,iBAAZ,iBAAY;AACf,UADe,IACf;AAEoB,oBAAb,kBAAa;AAChB,aADgB,KAChB,8DAAe,CADC,KACD,4DAAf,IAAgC,CADhB,KACgB,2DAAhC,IAAgD,CADhC,KACgC,kDAAhD;AAEE,mBAAc,CAAH,EAAG,IAAG,CAAH,CAAkF,IAA1D,CAAH,EAAG,IAAe,CAAZ,CAAY,GAAE,cAAS,SAAC,EAAZ,CAAf,CAAR,IAAkD,CAAH,EAAG,IAAG,CAAH,CAAR,IAAgC,CAAH,EAAG,IAAe,CAAZ,CAAY,GAAE,cAAS,UAAC,EAAZ,CAAf,CAAR;SAElG,WALgB,KAKhB,2DAAY,CALI,KAKJ,yDAAZ,IAA0B,CALV,KAKU,wDAA1B;AAEE,cAAK;AACL,mBAAc,CAAH,EAAG,IAAG,CAAH,CAAsF,IAA9D,CAAH,EAAG,IAAe,CAAZ,CAAY,GAAE,cAAS,SAAC,EAAZ,CAAf,CAAR,IAAkD,CAAH,EAAG,IAAe,CAAZ,CAAY,GAAE,CAAF,CAAf,CAAR,IAAoC,CAAH,EAAG,IAAmB,CAAhB,CAAgB,GAAF,CAAF,GAAM,cAAS,UAAC,EAAZ,CAAnB,CAAR;SAHtG;OAOJ,UAfe,IAef;AAEoB,oBAAb,kBAAa;AAChB,aADgB,KAChB,8DAAe,CADC,KACD,4DAAf,IAAgC,CADhB,KACgB,2DAAhC,IAAgD,CADhC,KACgC,kDAAhD;AAEE,mBAAc,CAAH,EAAG,IAA2B,CAAxB,eAAwB,GAAhB,cAAS,SAAC,EAAZ,GAAoB,CAAF,CAA3B,CAAkG,IAAhD,CAAH,EAAG,IAAS,CAAN,eAAM,GAAE,CAAF,CAAT,CAAR,IAAwC,CAAH,EAAG,IAAG,CAAH,CAAR,IAAgC,CAAH,EAAG,IAAe,CAAZ,CAAY,GAAE,cAAS,UAAC,EAAZ,CAAf,CAAR;SAElH,WALgB,KAKhB,2DAAY,CALI,KAKJ,yDAAZ,IAA0B,CALV,KAKU,wDAA1B;AAEE,cAAK;AACL,mBAAc,CAAH,EAAG,IAA2B,CAAxB,eAAwB,GAAhB,cAAS,SAAC,EAAZ,GAAoB,CAAF,CAA3B,CAAsG,IAApD,CAAH,EAAG,IAAS,CAAN,eAAM,GAAE,CAAF,CAAT,CAAR,IAAwC,CAAH,EAAG,IAAe,CAAZ,CAAY,GAAE,CAAF,CAAf,CAAR,IAAoC,CAAH,EAAG,IAAmB,CAAhB,CAAgB,GAAF,CAAF,GAAM,cAAS,UAAC,EAAZ,CAAnB,CAAR;SAHtH;OAOJ,UA7Be,IA6Bf;AAEoB,oBAAb,kBAAa;AAChB,aADgB,KAChB,8DAAe,CADC,KACD,4DAAf,IAAgC,CADhB,KACgB,2DAAhC;AAEE,cAAK;AACL,mBAAc,CAAH,EAAG,IAAG,CAAH,CAAkH,IAA1F,CAAH,EAAG,IAAe,CAAZ,CAAY,GAAE,cAAS,SAAC,EAAZ,CAAf,CAAR,IAAkD,CAAH,EAAG,IAAiC,CAA9B,gBAA8B,GAArB,cAAS,UAAC,EAAZ,GAAqB,CAAF,GAAM,CAAF,CAAjC,CAAR,IAAgE,CAAH,EAAG,IAAc,CAAX,gBAAW,GAAF,CAAF,GAAM,CAAF,CAAd,CAAR;SAElI,WANgB,KAMhB,2DAAY,CANI,KAMJ,yDAAZ,IAA0B,CANV,KAMU,wDAA1B,IAAuC,CANvB,KAMuB,kDAAvC;AAEE,mBAAc,CAAH,EAAG,IAAG,CAAH,CAA8G,IAAtF,CAAH,EAAG,IAAe,CAAZ,CAAY,GAAE,cAAS,SAAC,EAAZ,CAAf,CAAR,IAAkD,CAAH,EAAG,IAA6B,CAA1B,gBAA0B,GAAjB,cAAS,UAAC,EAAZ,GAAqB,CAAF,CAA7B,CAAR,IAA4D,CAAH,EAAG,IAAU,CAAP,gBAAO,GAAE,CAAF,CAAV,CAAR;SAF9H;OAMJ,UA3Ce,IA2Cf;AAEoB,oBAAb,kBAAa;AAChB,aADgB,KAChB,8DAAe,CADC,KACD,4DAAf,IAAgC,CADhB,KACgB,2DAAhC;AAEE,cAAK;AACL,mBAAc,CAAH,EAAG,IAA2B,CAAxB,eAAwB,GAAhB,cAAS,SAAC,EAAZ,GAAoB,CAAF,CAA3B,CAAkI,IAAhF,CAAH,EAAG,IAAS,CAAN,eAAM,GAAE,CAAF,CAAT,CAAR,IAAwC,CAAH,EAAG,IAAiC,CAA9B,gBAA8B,GAArB,cAAS,UAAC,EAAZ,GAAqB,CAAF,GAAM,CAAF,CAAjC,CAAR,IAAgE,CAAH,EAAG,IAAc,CAAX,gBAAW,GAAF,CAAF,GAAM,CAAF,CAAd,CAAR;SAElJ,WANgB,KAMhB,2DAAY,CANI,KAMJ,yDAAZ,IAA0B,CANV,KAMU,wDAA1B,IAAuC,CANvB,KAMuB,kDAAvC;AAEE,mBAAc,CAAH,EAAG,IAA2B,CAAxB,eAAwB,GAAhB,cAAS,SAAC,EAAZ,GAAoB,CAAF,CAA3B,CAA8H,IAA5E,CAAH,EAAG,IAAS,CAAN,eAAM,GAAE,CAAF,CAAT,CAAR,IAAwC,CAAH,EAAG,IAA6B,CAA1B,gBAA0B,GAAjB,cAAS,UAAC,EAAZ,GAAqB,CAAF,CAA7B,CAAR,IAA4D,CAAH,EAAG,IAAU,CAAP,gBAAO,GAAE,CAAF,CAAV,CAAR;SAF9I;OAMJ,UAzDe,IAyDf,sDAAO,SAAc,CAAH,EAAG,IAAG,iBAAY,GAAf,CAA2F,IAAhE,CAAH,EAAG,IAAkB,CAAf,iBAAY,GAAG,GAAE,cAAS,SAAC,EAAZ,CAAlB,CAAR,IAAqD,CAAH,EAAG,IAAG,iBAAY,GAAf,CAAR,IAAmC,CAAH,EAAG,IAAkB,CAAf,iBAAY,GAAG,GAAE,cAAS,UAAC,EAAZ,CAAlB,CAAxH;AA/DuB;AAAW;AA+TG;AAEvC;AACA,UAAY,uBAAD,QAAX,EACE,uBAAa,MAAM,YAAY,CAAC,eAAe,MAAhB,CADjC;AAHuC;AA5VL;AAExB,eAAV,KAAU;AACG,eAAb,KAAa;AACI,eAAjB,KAAiB;AACH,eAAd,KAAc;AACT,eAAL,KAAK;AACL;AAPkC;AAUO;AAAhB;AAEzB,qBAAW;AACX;AACA,eAAU,gBAAM;AAChB,qBAAW;AACX;AANyB;AAAgB;AAnHxB;;;AAqCD,6BhHCV,uCgHDU;AACE,+BhHQV,yCgHRU,yBhHunBkD,uBAAC,0CAAQ,wCAAT,CgHvnBlD;AACG;AACF;AACD;AACC;AACD;AACI,mCArEM,2CAqEN;AACC,oCAlHU,gDAkHV;AACR;AACD,2B/GySV,qC+GzSU;AACI,+BhH2DN,6CgH3DM;AACD,8BhH0DL,6CgH1DK;AACK,mChH0DX,4CgH1DW;AACC,oChHwDX,6CgHxDW;AACA,oChHuDX,6CgHvDW;AACD,mChH2DP,gDgH3DO;AACF,iChHsDT,4CgHtDS;AAtDH;AAyDG;;;;AA1ItB,mBA4Ic;AAGD,wBAAG;AACQ,mCAAG,iHACkH,GAAlH,iHADkH,GAElH,8GADkH;AAL/H;AA5Id;ACfA,yCAES,yaAFT;;;AAawB;;;AACpB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAWA;AAjCoB;;;;;;;;;;;;;;;;;;;;;;;;;;AAgD2B;AAEjD,2BAAgB;AAChB,yCAA8B,YAAC,CAAU,mBAAV;AAC/B,gCAAqB,cAAC,CAAY,mBAAI,GAAC,mBAAjB;AAGtB,kDAAuC,YAAC,CAAU,eAAU,mBAApB;AACxC,gDAAqC,YAAC,CAAU,aAAQ,mBAAlB;AACtC,0CAA+B,YAAC,CAAU,aAAQ,QAAC,EAAnB;AAChC,wCAA6B,YAAC,CAAU,aAAQ,QAAC,EAAnB;AAC9B,2BAAgB;AAXiC;AALA;AAEjD,UAAI;AAF6C;AA0BO;AAExD,UAAG,kBAAH;AAEE,6BAAgB;;AAIhB,yCAAW,CAAC,iGAAD;;AAR2C;AANQ;AAGhE,UAAI;AAH4D;AAkBtB;AAE1C;AAEA,qBAAU,MAAK,WAAC,CAAM,qEAAoF,GAAd,mBAAD,GAAgB,aAA3F;AAChB,kBAAW,eAAU,iBAAC;AACtB,wBAAa,iBAAC,CAAe,SAAf;AACd,wBAAa,iBAAC,CAAe,SAAf;AAEd,kBAAW,eAAU,iBAAC;AACtB,uBAAY,iBAAC,CAAe,SAAf;AACb,qBAAU,iBAAC,CAAe,SAAf;AAEX,kBAAW,iBAAY,iBAAC;AACxB,qBAAU,iBAAC,CAAe,SAAf;AACX,oBAAS,iBAAC,CAAe,SAAf;AACV,mBAAQ,iBAAC,CAAe,SAAf;AAET,kBAAW,eAAU,iBAAC;AACtB,mBAAQ,iBAAC,CAAe,SAAf;AACT,oBAAS,iBAAC,CAAe,SAAf;AACV,mBAAQ,iBAAC,CAAe,SAAf;AAET,2BAAgB;AAChB,2BAAgB,aAAhB,GAA8B,4BAA4B,GAAC,sBAAS,CAAC,oB1HmKjB,G0HnKgB,CAAV;AAC1D,2BAAgB;AAzB0B;AA4BE;AAElC;AAEV,0BAAgB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,uBAAa,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,sBAAY,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AAClB,wBAAc,gDAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,2BAAiB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACzB,2BAAiB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACzB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,uBAAa,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,sBAAY,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AAClB,sBAAY,gDAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,8BAAoB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,mCAAyB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,iDAAuC,iBAAU,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,+CAAqC,iBAAU,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,qDAA2C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,mDAAyC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAEpC,uBAAY;AACZ,oBAAS;AACT,mBAAQ;AACR,qBAAU;AACV,qBAAU;AACV,wBAAa;AACb,wBAAa;AACb,qBAAU;AACV,qBAAU;AACV,oBAAS;AACT,mBAAQ;AACR,mBAAQ;AACR,2BAAgB;AAChB,yCAA8B;AAC9B,gCAAqB;AACrB,8CAAmC;AACnC,4CAAiC;AACjC,kDAAuC;AACvC,gDAAqC;AACrC,wCAA6B;AAC7B,0CAA+B;AAC/B,+BAAoB;AACpB;AACE,qBAAQ,uBAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,gCAAmB,gDAAnB;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,QAAC,CAAQ,CAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,GAAT;AACb,yBAAY,UAAC,CAAU,GAAV;AACb,yBAAY,oBAAC,CAAoB,8BAApB;AACb,yBAAY,eAAC,CAAe,0CAAf;AACb,yBAAY,WAAC,CAAW,cAAX;AACb,yBAAY,SAAC,CAAS,QAAT;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,mBAAC,CAAmB,gDAAnB;AACb,yBAAY,eAAC,CAAe,KAAf;AACb,sBAAS,mBAAmB,CAAC,iBAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,QAAC,CAAQ,CAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,sBAAS,SAAC,CAAS,GAAT;AACV,sBAAS,UAAC,CAAU,EAAV;AACV,sBAAS,WAAC,CAAW,sBAAX;AACV,sBAAS,oBAAC,CAAoB,SAApB;AACV,sBAAS,eAAC,CAAe,yCAAf;AACV,sBAAS,mBAAC,CAAmB,gDAAnB;AACV,sBAAS,iBAAC,CAAiB,sBAAjB;AACV,sBAAS,cAAC,CAAc,2CAAd;AACV,sBAAS,gBAAC,CAAgB,qBAAhB;AACV,qBAAQ,mBAAmB,CAAC,iBAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,CAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,qBAAQ,SAAC,CAAS,GAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,YAAC,CAAY,IAAZ;AACT,qBAAQ,gBAAC,CAAc,CAAd;AACT,qBAAQ,oBAAC,CAAoB,cAApB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,YAAC,CAAY,wBAAZ;AACT,qBAAQ,cAAC,CAAc,2CAAd;AACT,qBAAQ,gBAAC,CAAgB,qBAAhB;AACT,uBAAU,mBAAmB,CAAC,iBAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,GAAV;AACX,uBAAU,oBAAC,CAAoB,cAApB;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAgB,qBAAhB;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,YAAC,CAAY,CAAZ;AACX,uBAAU,cAAa,MAAK,SAAC,CAAS,OAAT;AAC7B,uBAAU,QAAC,CAAQ,gCAAR;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,QAAC,CAAQ,CAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,0BAAa,SAAC,CAAS,GAAT;AACd,0BAAa,UAAC,CAAU,EAAV;AACd,0BAAa,WAAC,CAAW,WAAX;AACd,0BAAa,gBAAC,CAAc,CAAd;AACd,0BAAa,oBAAC,CAAoB,mCAApB;AACd,0BAAa,eAAC,CAAe,yCAAf;AACd,0BAAa,mBAAC,CAAmB,gDAAnB;AACd,0BAAa,eAAC,CAAe,wCAAf;AACd,0BAAa,iBAAC,CAAiB,sBAAjB;AACd,0BAAa,cAAC,CAAc,wCAAd;AACd,0BAAa,gBAAC,CAAgB,sBAAhB;AACd,uBAAQ,CAAC,mBAAe,KAAM,UAAW,oBAAjC;AACR,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,QAAC,CAAQ,GAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,0BAAa,SAAC,CAAS,GAAT;AACd,0BAAa,UAAC,CAAU,EAAV;AACd,0BAAa,WAAC,CAAW,WAAX;AACd,0BAAa,gBAAC,CAAc,CAAd;AACd,0BAAa,oBAAC,CAAoB,mCAApB;AACd,0BAAa,eAAC,CAAe,yCAAf;AACd,0BAAa,mBAAC,CAAmB,gDAAnB;AACd,0BAAa,eAAC,CAAe,wCAAf;AACd,0BAAa,iBAAC,CAAiB,sBAAjB;AACd,0BAAa,cAAC,CAAc,wCAAd;AACd,0BAAa,gBAAC,CAAgB,sBAAhB;AACd,uBAAQ,CAAC,mBAAe,KAAM,UAAW,oBAAjC;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,GAAV;AACX,uBAAU,oBAAC,CAAoB,8BAApB;AACX,uBAAU,eAAC,CAAe,0CAAf;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,SAAC,CAAS,QAAT;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,KAAf;AACX,sBAAS,mBAAmB,CAAC,eAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,QAAC,CAAQ,CAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,sBAAS,SAAC,CAAS,GAAT;AACV,sBAAS,UAAC,CAAU,EAAV;AACV,sBAAS,WAAC,CAAW,sBAAX;AACV,sBAAS,oBAAC,CAAoB,SAApB;AACV,sBAAS,eAAC,CAAe,yCAAf;AACV,sBAAS,mBAAC,CAAmB,gDAAnB;AACV,sBAAS,iBAAC,CAAiB,sBAAjB;AACV,sBAAS,cAAC,CAAc,2CAAd;AACV,sBAAS,gBAAC,CAAgB,qBAAhB;AACV,qBAAQ,mBAAmB,CAAC,eAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,CAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,qBAAQ,SAAC,CAAS,GAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,YAAC,CAAY,IAAZ;AACT,qBAAQ,gBAAC,CAAc,CAAd;AACT,qBAAQ,oBAAC,CAAoB,cAApB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,YAAC,CAAY,iBAAZ;AACT,qBAAQ,cAAC,CAAc,2CAAd;AACT,qBAAQ,gBAAC,CAAgB,qBAAhB;AACT,qBAAQ,mBAAmB,CAAC,eAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,CAAR;AACT,qBAAQ,OAAC,CAAO,EAAP;AACT,qBAAQ,SAAC,CAAS,GAAT;AACT,qBAAQ,UAAC,CAAU,GAAV;AACT,qBAAQ,oBAAC,CAAoB,cAApB;AACT,qBAAQ,cAAC,CAAc,2CAAd;AACT,qBAAQ,gBAAC,CAAgB,qBAAhB;AACT,qBAAQ,gBAAC,CAAc,CAAd;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,YAAC,CAAY,CAAZ;AACT,qBAAQ,cAAa,MAAK,SAAC,CAAS,OAAT;AAC3B,qBAAQ,QAAC,CAAQ,oBAAR;AACT,6BAAgB,mBAAmB,CAAC,IAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,mBAAhB,GAAsC;AACtC,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,iBAAC,CAAiB,uBAAjB;AACjB,6BAAgB,cAAC,CAAc,aAAG,oBAAjB;AACjB,6BAAgB,QAAC,CAAQ,GAAR;AACjB,6BAAgB,OAAC,CAAO,EAAP;AACjB,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,UAA9B,GAA2C;AAC3C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,kCAAqB,mBAAmB,CAAC,qBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,gDAAmC,mBAAmB,CAAC,qBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,8CAAiC,mBAAmB,CAAC,qBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,oDAAuC,mBAAmB,CAAC,qBAAD;AAC1D,oDAAuC,QAAC,CAAQ,yCAAR;AACxC,oDAAuC,WAAvC,GAAqD;AACrD,oDAAuC,QAAC,CAAQ,GAAR;AACxC,kDAAqC,mBAAmB,CAAC,qBAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,kDAAqC,QAAC,CAAQ,GAAR;AACtC,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,iCAAoB,mBAAmB,CAAC,IAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAAC,CAAW,qBAAX;AACrB,iCAAoB,QAAC,CAAQ,GAAR;AACrB,iCAAoB,OAAC,CAAO,EAAP;AAzNvB;AA2NE,yBAAY;AACZ,sBAAS;AACT,qBAAQ;AACR,uBAAU;AACV,uBAAU;AACV,0BAAa;AACb,0BAAa;AACb,uBAAU;AACV,uBAAU;AACV,sBAAS;AACT,qBAAQ;AACR,qBAAQ;AACR,6BAAgB;AAChB,2CAA8B;AAC9B,kCAAqB;AACrB,gDAAmC;AACnC,8CAAiC;AACjC,oDAAuC;AACvC,kDAAqC;AACrC,0CAA6B;AAC7B,4CAA+B;AAC/B,iCAAoB;AAhPtB;AAjD4C;AA7GtB;;;AACpB,+BhG8bI,sCgG9bJ;AACA,mCzDCc,kDyDDd;AACA,iD/E+ZU,4B+E/ZV;AACA,wC/EqmBY,8B+ErmBZ;AACA,sD/EwqBQ,0B+ExqBR;AACA,oD/EuqBQ,0B+EvqBR;AACA,0D/E2ZU,4B+E3ZV;AACA,wD/E0ZU,4B+E1ZV;AACA,uC/E0iDS,2B+E1iDT;AACA,4BjG4FI,sCiG5FJ;AACA,2BjGiRG,qCiGjRH;AACA,gD/EsZU,4B+EtZV;AACA,kD/EqZU,4B+ErZV;AACA,6BhGw6BY,8CgGx6BZ;AACA,gCjGyjBK,uCiGzjBL;AACA,gCjGwjBK,uCiGxjBL;AACA,6BhGq6BY,8CgGr6BZ;AACA,6BhG6aI,sCgG7aJ;AACA,4BjGmFI,sCiGnFJ;AACA,2BjGwQG,qCiGxQH;AACA,6BD8De,yDC9Df;AACA,2BD6De,yDC7Df;AAC4B,yCAAO,U9H0F9B,2B8H1F8B,CAAP;AACA,yCAAO,U9HyF9B,2B8HzF8B,CAAP;AACO,gDAAQ,W/EmjCrC,wB+EnjCqC,CAAR;AACQ,wDAAO,U/EkjC5C,wB+EljC4C,EAC5C,Q/EsiCO,+B+EtiCP,CADqC;AAEtB,kCAAO,U9HqFvB,2B8HrFuB,CAAP;AA5BD;AAqCtB;AAlDF,GAoDc,qCApDd;ACeA,+CAIS,2KAJT;;;AAoBS,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AAU4B;;AAyCN;AArCF;;;AAE5B;AACA;AAH4B;;;;;AAyKgB;AAE9C,UAAG,UAAM,KAAG,KAAZ,EACE,aAAS,KADX;AAF8C;AALI;AAAZ;AAEtC,eAAU,UAAM,KAAG,GAAH;AAFsB;AAAY;AARH;AAG/C;AACA,UAAY,WAAD,QAAX,EACE,gBAAuB,OAAZ,YAAe,oCAAH,CAAmC,SAD5D;AAH0B;AADqB;AAPF;AAE7C;AACA,UAAa,mCAAH,eAAP,MAAO,CAAV,EACE,aAAiB,OAAP,OAAU,mCAAH,CAAkC,MADrD;AAH6C;AArJf;AAOV,+BAAY,etH8arB,gCsH9aqB,CAAZ;AAGL,6B/HaV,0B+HbU;AAVe;AAaC;;;AAE7B;AAF6B;;;;;AAiMgB;AAGrC,oBAAK,CAAC,MAAU,KAAX;AAHgC;AAZD;AAAP;AAGvC,eAAmD,cAAK,CAAC,KAAD;AAHjB;AAAO;AALQ;AAAf;AAEvC,eAAU;AAF6B;AAAe;AAPN;AAGhD;AACA,sBAAiB,OAAP,OAAU,qCAAH;AAHc;AADiB;AALN;AAAH;AAEvC,eAAmD;AAFZ;AAAG;AAuBG;AAAN;AAGvC,eAAyD,iFAAC,KAAD;AAHlB;AAAM;AA3Ld;AAQX,+BAAO,UxBiKN,iEwBjKM,CAAP;AARW;AAca,mGAAmB,U/H+CxD,2B+H/CwD,EAAgB,S/HJ1E,yB+HI0E,CAAnC;AACE,qGAAmB,U/H8C1D,2B+H9C0D,EAAgB,S/HL5E,yB+HK4E,CAAnC;AACO,4GAAmB,U/H6CjE,2B+H7CiE,EAAoB,atCmE7E,qDsCnE6E,EAAyB,UzCiP/G,yCyCjP+G,EAAoB,yBAA2B,8BAA/G;AACD,2GAAmB,U/H4ChE,2B+H5CgE,EAAoB,atCkE5E,qDsClE4E,EAAyB,UzCgP9G,yCyChP8G,CAAhE;AACK,gHAAmB,U/H2CrE,2B+H3CqE,EAAoB,atCiEjF,qDsCjEiF,EAAyB,UzC+OnH,yCyC/OmH,EAAe,qBAAoB,yBAA2B,8BAA9H;AACD,+GAAmB,U/H0CpE,2B+H1CoE,EAAoB,atCgEhF,qDsChEgF,EAAyB,UzC8OlH,yCyC9OkH,EAAe,oBAA/E;AACJ,2GAAmB,U/HyChE,2B+HzCgE,EAAoB,atC+D5E,qDsC/D4E,EAAyB,UzC6O9G,yCyC7O8G,EAAe,sBAAqB,yBAA2B,8BAA/H;AACD,0GAAmB,U/HwC/D,2B+HxC+D,EAAoB,atC8D3E,qDsC9D2E,EAAyB,UzC4O7G,yCyC5O6G,EAAe,qBAA/E;AACJ,sGAAmB,U/HuC3D,2B+HvC2D,EAAgB,qBAAnC;AAEf;;;AAE9B;AAAY;AAAU;AAAQ;AAAO;AACrC;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAf8B;;;;;;;;;;;;;AAipBiB;AAGjD,qBAAK,OAAO,CAAC,KAAD;AAHqC;AAMO;AAExD,2BAAiB;AACjB,gCAAqB,mBAAc,CAAC,KAAD,CAAnC;AAHwD;AAMH;AAErD,UAAG,yBAAW,CAAC,gBAAY,KAAb,CAAoB,KAAG,CAArC;AAEE,0BAAc;AACd,sBAAU;AACV;OAJF;AAFqD;AAmBG;AAGxD,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;AACjB;OAHF;AAHwD;AAxDL;AAEnD,UAAG,yBAAW,CAAC,cAAU,KAAX,CAAkB,KAAG,CAAnC;AAEE,wBAAY;AACZ;OAHF;AAFmD;AAeK;AAGxD,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;AACjB;OAHF;AAHwD;AAgCF;AAEtD,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf;OAHF;AAFsD;AAtCA;AAEtD,UAAG,gBAAW,KAAG,KAAjB,EACE,mBAAe,KADjB;AAFsD;AA3KN;AAAR;AAExC,eAAoD;AAFZ;AAAQ;AAiFU;AAAlB;AAExC,eAAU,gBAAY,KAAG,UAAH;AAFkB;AAAkB;AAzVH;AAEvD,yBAAc,sCAAY,UAAU,CAAC,iBAAY,EAAG,CAAhB,CAApC;AACA;AAHuD;AAiGA;AAEvD;AACA,2BAAiB,mBAAc,CAAC,UAAD;AAC/B,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,mBAAc,CAAC,UAAD,CAArB,CADhB;AAJuD;AARE;AAGzD;AACA,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,mBAAc,CAAC,UAAD,CAArB,CADlB;AAJyD;AAhBE;AAI3D,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,UAAW,gDAAQ,OAAQ,YAAlC,CADpB;AAJ2D;AAtBD;AAG1D,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,UAAW,+CAAlB,CADnB;AAH0D;AA8BK;AAI/D,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,UAAW,gDAAQ,MAAO,OAAQ,YAAzC,CADxB;AAJ+D;AAvBD;AAG9D,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,UAAW,gDAAQ,KAA1B,CADvB;AAH8D;AAOJ;AAI1D,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,UAAW,gDAAQ,MAAO,OAAQ,YAAzC,CADnB;AAJ0D;AArBD;AAGzD,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,UAAW,gDAAQ,KAA1B,CADlB;AAHyD;AA6DJ;AAErD,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAM,KAAP,CADd;AAFqD;AAMR;AAG7C;AAAG;AACH;AACA;AAEA,UAAK;AACL,WAAM;AACN,gBAAK,+BAAK,CAAC,EAAG,EAAG,gBAAO,mBAAd,CAAV;AACA,eAAS,MAAK,SAAC,CAAS,gBAAU,MAAK,OAAxB;AACf,eAAS,QAAO,SAAC,CAAS,gBAAU,QAAO,OAA1B;AACjB,eAAS,MAAK,aAAa,CAAC,gBAAU,MAAX;AAE3B,6BAAkB,CAAC,UAAW,2CAAG;;;;WAAG;;;;UAAlB;AAClB,UAAG,CAAH;AAEE,YAAG,EAAH,EACE,SAAS,gBAAc,CAAC,2CtCpLmE,6EsCoLpE,CADzB;AAEA,8BAAiB,CAAC,UAAW,0CAAZ;OAJnB;AAOA,UAAK,2BAAc,CAAC,iBAAa,mBAAc,CAAC,CAAD,CAA5B,CAAyC,GAAN,KAAF,GAAU,2BAAc,CAAC,iBAAa,mBAAc,CAAC,eAAK,SAAC,EAAM,GAAE,CAAf,CAA5B,CAAhB;AAC5D,UAAK;AACL,WAAM;AACN,iCAAsB,CAAC,UAAW,2CAAG,EAAG;;;;WAAG;;;;UAArB;AACtB,UAAG,CAAH;AAEE,YAAG,EAAH,EACE,SAAS,WAAS,CAAC,2CAAG,EAAG,MAAO,qEAAW,qEtChG2L,sEAA0B,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CsC+FxJ,CADpB;AAGA,kCAAqB,CAAC,UAAW,2CAAG,CAAf;OALvB;AAQA,qBAAU,CAAC,SAAD;AACV;AAnC6C;AAsCM;AAGnD;AACA;AACA;AAAG;AAEH,gBAAK,iBAAY,CAAC,IAAD,CAAjB;AACA,eAAS,QAAO,SAAC,CAAS,oBAAe,CAAC,CAAD,CAAxB;AACjB,eAAS,QAAO,SAAC,CAAS,OAAT;AAEjB,UAAK;AACL,WAAM;AACN,4BAAiB,CAAC,UAAW,2CAAG,KAAM;;;;WAAG;;;;UAAxB;AACjB,UAAG,CAAH;AAEE,YAAG,EAAH;AAEE,oBAAK,gCAAM,CAAC,CAAC,KAAM,GAAE,oBAAe,CAAC,CAAD,CAAjB,CAAsB,mBAAa,GAAE,CAA7C,CAAX;AACA,mBAAS,WAAS,CAAC,4CAAS,yCAAN,gCAAM,CAAC,CAAC,MAAO,GAAE,oBAAe,CAAC,CAAD,CAAjB,CAAsB,CAAC,IAAhC,GtCzOyF,+EAAyE,8EsCyO5K;AAClB,mBAAS,WAAS,CAAC,4CAAS,yCAAN,gCAAM,CAAC,CAAC,MAAO,GAAE,oBAAe,CAAC,CAAD,CAAjB,CAAsB,CAAC,OAAQ,GAAE,CAA1C,GtC1OyF,+EAAyE,8EsC0O5K;SAJpB;AAMA,6BAAgB,CAAC,UAAW,2CAAG,IAAf;OARlB;AAWA,gBAAK,iBAAY,CAAC,KAAD,CAAjB;AACA,UAAK;AACL,WAAM;AACN,4BAAiB,CAAC,UAAW,2CAAG,MAAO;;;;WAAG;;;;UAAzB;AACjB,UAAG,CAAH;AAEE,YAAG,EAAH;AAEE,oBAAK,gCAAM,CAAC,CAAC,MAAO,GAAE,oBAAe,CAAC,CAAD,CAAjB,CAAsB,mBAAa,GAAE,CAA9C,CAAX;AACA,mBAAS,WAAS,CAAC,4CAAS,yCAAN,gCAAM,CAAC,CAAC,KAAM,GAAE,oBAAe,CAAC,CAAD,CAAjB,CAAsB,CAAC,IAA/B,GtCxPyF,+EAAyE,8EsCwP5K;AAClB,mBAAS,WAAS,CAAC,4CAAS,yCAAN,gCAAM,CAAC,CAAC,KAAM,GAAE,oBAAe,CAAC,CAAD,CAAjB,CAAsB,CAAC,OAAQ,GAAE,CAAzC,GtCzPyF,+EAAyE,8EsCyP5K;SAJpB;AAMA,6BAAgB,CAAC,UAAW,2CAAG,KAAf;OARlB;AA7BmD;AAyCE;AAGrD;AACA;AACA;AACA;AACA;AAEA,WAAM,YAAY;AAClB,UAAW,CAAC,EAAD,SAAK,IAAW,mCAAH,eAAH,EAAG,CAAxB;AAEE,kBAAK,YAAY,KAAjB;AACA,YAAK;AACL,+CAAa,CAAC,EAAG,CAAC,EAAG,CAAC,CAAT;AACb,YAAS,OAAH,GAAM,mCAAH,CAAkC;AAC3C,YAAK,2BAAc,CAAC,iBAAa,CAAd;AACnB,iBAAS,MAAK,aAAa,CAAC,gBAAU,MAAX;AAC3B,iCAAoB,CAAC,UAAuB,wCAAZ,YAAY,OAAO,EAAE,SAAC,GAAO;;;;aAAG;;;;YAA5C;AACpB,YAAG,CAAH;AAEG,mBAAS,WAAS,CAAC,2CAAG,EAAG,MAAO,qEAAW,qEtCvK0L,sEAA0B,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CsCsKvJ;AACnB,kCAAmB,CAAC,UAAuB,wCAAZ,YAAY,OAAO,EAAE,SAAC,GAAO,CAAzC;SAHrB;OATF;AAVqD;AA3NJ;AAEjD;AACA;AACA;AAJiD;AAOM;AAEvD;AACA;AAEA,qBAAK;AACL,UAAK;AACL,eAAS,QAAoB,OAAP,CAAR,aAAQ,GAAE,UAAF,CAAO,GAAE,CAAF,kBAA7B;AAAI;AAEG;AACH,YADG,IACH;AAAiB,cAAK,4BAAc,CAAC,YAAQ,CAAE,GAAE,kBAAb;AACpC,kBAFG,IAEH;AAAY,cAAK,uBAAS,CAAC,YAAQ,CAAE,GAAE,kBAAb;AAC1B,kBAHG,IAGH;AAAY,cAAK,uBAAS,CAAC,YAAQ,CAAE,GAAE,kBAAb;AAC1B,kBAJG,IAIH,2DAAU,IAAK,qBAAO,CAAC,YAAQ,CAAE,GAAE,kBAAb,CAAtB;AAEF,YAAG,6BAAe,CAAC,EAAG,aAAJ,CAAa,KAAE,CAAjC,EACE,KADF;AAE+B,uBAAK,QAAK,QAAC,CAAQ,CAAR;AAC1C,qBAAS;;AAlB4C;AAkgBI;AAE3D;AACA;AAH2D;AArNH;AAGxD;AACA,UAAG,oCAAU,CAAC,iBAAY,CAAC,IAAD,EAAQ,gCAAM,CAAC,EAAG,CAAJ,CAA3B,CAAb;AACE;AACG,gBAAG,oCAAU,CAAC,iBAAY,CAAC,KAAD,EAAS,gCAAM,CAAC,EAAG,CAAJ,CAA5B,CAAb,EACH,oBADG;AANmD;AAUA;AAGxD;AACA,UAAG,oCAAU,CAAC,iBAAY,CAAC,IAAD,EAAQ,gCAAM,CAAC,EAAG,CAAJ,CAA3B,CAAmC,IAAG,oCAAU,CAAC,iBAAY,CAAC,KAAD,EAAS,gCAAM,CAAC,EAAG,CAAJ,CAA5B,CAA7D;AACE,8BAAW,EAAX;AAEA,kCAAU,CAAV;AAPsD;AAfN;AAAV;AAExC,eAAU,4BAAgB,CAAC,EAAS,EAAS,EAAS,CAA5B;AAFc;AAAU;AA3OW;AAArB;AAExC,eAAU,oCAA+B,QAAC,YAAM,CAAC,IAAD,CAAN;AAFF;AAAqB;AAsOT;AAAZ;AAExC,eAAU;AAF8B;AAAY;AAlBA;AAAZ;AAExC;AAEA,gBAAK,qBAAL;AACA,UAAG,KAAH;AACE,uBAAU,+BAAK,CAAC,CAAC,MAAO,CAAC,KAAM,CAAC,KAAM,GAAE,gBAAF,CAAe,CAAC,IAAK,GAAE,gBAA9C,CAAf;AAEA,2BAAU,+BAAK,CAAC,CAAC,MAAO,GAAE,gBAAF,CAAe,CAAC,KAAM,CAAC,OAAQ,CAAC,IAAK,GAAE,gBAAhD,CAAf;AAEF,6CAAa,CAAC,OAAQ,CAAC,oBAAe,CAAC,CAAD,EAAK,CAAC,oBAAe,CAAC,CAAD,CAA9C;AAV2B;AAAY;AA2IQ;AAE5D;AACA;AAUA,sBAAU,MAAK,SAAC,CAAS,QAAT;AAChB,sBAAU,MAAK,SAAC,CAAS,QAAT;AAChB,sBAAU,cAAa,SAAC,CAAS,QAAT;AACxB,sBAAU,gBAAe,SAAC,CAAS,QAAT;AAC1B,sBAAU,UAAS,SAAC,CAAS,QAAT;AAGpB,sBAAU,cAAa,QAAC,CAAQ,kEAAR;AACxB,sBAAU,MAAK,QAAC,CAAQ,kEAAR;AAChB,sBAAU,UAAS,QAAC,CAAQ,kEAAR;AACpB,sBAAU,QAAO,QAAC,CAAQ,oEAAR;AAClB,sBAAU,gBAAe,QAAC,CAAQ,oEAAR;AAC1B,sBAAU,aAAY,QAAC,CAAQ,oEAAR;AAEvB,sBAAU,QAAO,SAAC,CAAS,QAAT;AAClB,sBAAU,aAAY,SAAC,CAAS,gBAAU,UAAS,OAA5B;AAEvB,sBAAU,WAAU,OAAO,CAAC,gBAAU,MAAX;AAC3B,sBAAU,YAAW,OAAO,CAAC,gBAAU,QAAX;AAE5B;AAjC4D;AAhYX;AAIjD;AAOA,qBAAU,GAAV;AACA,oBAAS,GAAT;AACA,sBAAW,CAAX;AACA,mBAAQ,CAAR;AACA,2BAAiB;AACjB,yBAAe;AACf,2BAAiB;AACjB,yBAAe;AAKf,wBAAc,uBAAU,CAAC,EAAG,EAAG,EAAG,CAAV;AACxB,sBAAY,uBAAU,CAAC,GAAI,GAAI,GAAI,GAAb;AACtB,2BAAiB;AACjB,oBAAU;AACV;AAEA,UAAG,mBAAH,EACE,iBADF;AA7BsE;AAArB;AAwVI;AAErD;AAEA,UAAK;AACA;AACH,UADG,IACH;AAAiB,YAAK,4BAAc,CAAC,YAAQ,CAAU,CAAR,aAAQ,GAAE,UAAF,CAAQ,GAAE,kBAA7B;AACpC,gBAFG,IAEH;AAAY,YAAK,uBAAS,CAAC,YAAQ,CAAU,CAAR,aAAQ,GAAE,UAAF,CAAQ,GAAE,kBAA7B;AAC1B,gBAHG,IAGH;AAAY,YAAK,uBAAS,CAAC,YAAQ,CAAU,CAAR,aAAQ,GAAE,UAAF,CAAQ,GAAE,kBAA7B;AAC1B,gBAJG,IAIH,2DAAU,IAAK,qBAAO,CAAC,YAAQ,CAAU,CAAR,aAAQ,GAAE,UAAF,CAAQ,GAAE,kBAA7B,CAAtB;AAEF,UAAG,6BAAe,CAAC,EAAG,eAAJ,CAAgB,IAAG,CAArC;AAEE,sBAAU,eAAI,CAAC,CAAD;AACd;AACA,kCAAqB,mBAAc,CAAC,kBAAD,CAAnC;AACA,yBAAY,CAAC,IAAD;OALd;AAXqD;AAoBC;AAEtD;AAEA,UAAK;AACA;AACH,UADG,IACH;AAAiB,YAAK,4BAAc,CAAC,WAAO,kBAAR;AACpC,gBAFG,IAEH;AAAY,YAAK,uBAAS,CAAC,WAAO,kBAAR;AAC1B,gBAHG,IAGH;AAAY,YAAK,uBAAS,CAAC,WAAO,kBAAR;AAC1B,gBAJG,IAIH,2DAAU,IAAK,qBAAO,CAAC,WAAO,kBAAR,CAAtB;AAEF,UAAG,6BAAe,CAAC,EAAG,aAAJ,CAAc,GAAE,CAAlC;AAEE,sBAAU,eAAI,CAAC,CAAD;AACd;AACA,kCAAqB,mBAAc,CAAC,kBAAD,CAAnC;AACA,yBAAY,CAAC,KAAD;OALd;AAXsD;AAvEC;AAEvD;AAAG;AAEH,UAAmC,CAA/B,yBAAW,CAAC,MAAO,eAAR,CAAoB,KAAE,CAAC,CAAH,CAAM,IAAiC,CAA7B,yBAAW,CAAC,MAAO,aAAR,CAAkB,KAAE,CAAF,CAA1E;AAEE,sBAAU;AACV;OAHF;AAMK;AACH,UADG,IACH;AAEE,YAAoE,UAAnC,CAA3B,iCAAmB,CAAC,KAAD,CAAQ,GAAE,iCAAmB,CAAC,eAAD,CAArB,CAAmC,GAAY,CAAC,kBAAD,OAAZ;AACpE,YAAO,UAAF,CAAE,GAAU,CAAL,UAAK,GAAE,aAAF,CAAV;AACP,sBAAU,4BAAc,CAAC,gBAAY,CAAmB,GAAf,UAAF,GAAS,aAAF,GAAY,kBAAlC;OAE1B,UAPG,IAOH;AAEE,YAA0D,UAA9B,CAAtB,4BAAc,CAAC,KAAD,CAAQ,GAAE,4BAAc,CAAC,eAAD,CAAhB,CAA8B,GAAY,CAAC,kBAAD,OAAZ;AAC1D,YAAO,UAAF,CAAE,GAAU,CAAL,UAAK,GAAE,aAAF,CAAV;AACP,sBAAU,uBAAS,CAAC,gBAAY,CAAmB,GAAf,UAAF,GAAS,aAAF,GAAY,kBAAlC;OAErB,UAbG,IAaH;AAEE,YAA0D,UAA9B,CAAtB,4BAAc,CAAC,KAAD,CAAQ,GAAE,4BAAc,CAAC,eAAD,CAAhB,CAA8B,GAAI,kBAAJ;AAC1D,YAAO,UAAF,CAAE,GAAU,CAAL,UAAK,GAAE,aAAF,CAAV;AACP,sBAAU,uBAAS,CAAC,gBAAY,CAAmB,GAAf,UAAF,GAAS,aAAF,GAAY,kBAAlC;OAErB,UAnBG,IAmBH;AAEE,YAAsD,UAA5B,CAApB,0BAAY,CAAC,KAAD,CAAQ,GAAE,0BAAY,CAAC,eAAD,CAAd,CAA4B,GAAI,kBAAJ;AACtD,YAAO,UAAF,CAAE,GAAU,CAAL,UAAK,GAAE,aAAF,CAAV;AACP,sBAAU,qBAAO,CAAC,gBAAY,CAAmB,GAAf,UAAF,GAAS,aAAF,GAAY,kBAAlC;OAJnB;AAQF;AACA,gCAAqB,mBAAc,CAAC,kBAAD,CAAnC;AAtCuD;AAlFD;AAAd;AAExC;AACA;AAEA,eAAU,CAAC;AACX,eAAS,QAAiB,OAAZ,eAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,aAAe,OAAT,eAAK,WAAC,CAAD,EAAO,mCAAH;AACf,YAAgC,CAA5B,yBAAW,CAAC,EAAE,OAAO,KAAV,CAAiB,KAAE,CAAF,CAAK,IAAI,EAAE,WAA3C;AAEE,mBAAU,EAAE,SAAC;AACb;SAHF;;AATsC;AAAc;AAiBA;AAAd;AAExC;AACA;AAEA,eAAU;AACV,eAAS,QAAiB,OAAZ,eAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,aAAe,OAAT,eAAK,WAAC,CAAD,EAAO,mCAAH;AACf,YAAG,EAAE,SAAC,EAAM,KAAE,KAAd;AAEE,mBAAU,EAAE;AACZ;SAHF;;AATsC;AAAc;AA0GH;AAEnD;AAFmD;AAliBnB;;;;;;;AAkEZ,+BAAO,UtHoajB,+BsHpaiB,CAAP;AAlEY;AAgFN;AAknB+B;AAEzD;AACA,iCAAe,CAAC,CAAC,gCAA4B,mCAA7B,CAAD;AAH0C;AAlnB/B;;;;;;;AAIL,kCxB1CU,4EwB0CV;AACN;AACG;AACU;AACR,iC/HtGf,0B+HsGe;AACF,+B/HvGb,0B+HuGa;AACG;AACE,oCApIe,qDAoIf;AACA;AACF;AACI,sCAxGmB,2DAwGnB;AACE,wCAxGmB,6DAwGnB;AACE,0CAxGwB,oEAwGxB;AACD,yCAxGwB,mEAwGxB;AACK,8CAxGwB,wEAwGxB;AACD,6CAxGwB,uEAwGxB;AACJ,yCAxGwB,mEAwGxB;AACD,wCAxGwB,kEAwGxB;AACJ,oCAxGwB,8DAwGxB;AAtBG;;AA1J5B,GAmLc,8BAnLd;ACAA,6CAIS,0OAJT;;;;AAgBS,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AAgBoB;;;AAE5B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AApB4B;;;;;;;;;;;;;;;;;;;;AA0iBsB;AAEpD,wBAAa,cAAC,CAAc,KAAd;AACd;AAHoD;AAaL;AAG/C,wBAAa,SAAC,EAAK,OAAO,CAAC,KAAD;AAHqB;AAMO;AAEtD,UAAG,2BAAuB,IAAiB,CAAZ,eAAI,CAAC,KAAD,CAAQ,KAAE,GAAF,CAA3C;AACE,wBAAW,EAAX;;AAGA,YAAkC,CAA9B,yBAAW,CAAC,MAAO,mBAAR,CAAmB,KAAE,CAAC,CAAH,CAAM,IAAgC,CAA5B,yBAAW,CAAC,MAAO,iBAAR,CAAiB,KAAE,CAAF,CAAxE;AACE,0BAAW,2BAAc,CAAC,qBAAY,mBAAb,CAAzB;AAEA,8BAAW,2BAAc,CAAC,qBAAY,KAAb,CAAzB;;AAGJ,0BAAgB;AAChB;AAbsD;AArCL;AAEjD,wBAAa,WAAC,CAAW,KAAX;AACd;AAHiD;AAwBK;AAGtD,wBAAa,gBAAC,CAAgB,KAAhB;AACd;AAJsD;AA6BH;AAEnD,wBAAa,aAAC,CAAa,KAAb;AACd,2BAAgB,KAAhB;AAHmD;AAMC;AAEpD,wBAAa,cAAC,CAAc,KAAd;AACd,sBAAW,2BAAc,CAAC,MAAO,sBAAR,CAAzB;AACA;AAJoD;AAOE;AAEtD,wBAAa,gBAAC,CAAgB,KAAhB;AACd;AAHsD;AA5FS;AAG/D,UAAG,2BAAuB,KAAG,KAA7B;AAEE,sCAA0B;AAC1B,YAAG,2BAAuB,IAAwB,CAAnB,eAAI,CAAC,sBAAD,CAAe,KAAE,GAAF,CAAlD;AACE,0BAAW,EAAX;AAEA,8BAAW,2BAAc,CAAC,qBAAY,sBAAb,CAAzB;AAEF;OARF;AAH+D;AApIjB;AAAR;AAEtC,eAAU,kBAAa,SAAC;AAFc;AAAQ;AAKO;AAAf;AAEtC,eAAU,kBAAa;AAFe;AAAe;AApBL;AAAV;AAEtC,eAAU,kBAAa;AAFe;AAAU;AAUK;AAAf;AAEtC,eAAU,kBAAa;AAFe;AAAe;AAeH;AAAZ;AAEtC,eAAU,kBAAa;AAFe;AAAY;AAKC;AAAb;AAEtC,eAAU,kBAAa;AAFe;AAAa;AAKE;AAAf;AAEtC,eAAU,kBAAa;AAFe;AAAe;AA6BG;AAAlB;AAEtC,eAAU,oBAAc,KAAG,UAAH;AAFc;AAAkB;AALE;AAApB;AAEtC,eAAU,sBAAgB,KAAG,yFAAH;AAFY;AAAoB;AAtDP;AAAb;AAEtC,eAAU,kBAAa;AAFe;AAAa;AA8KN;AAG7C,kBAAK,aAAa,CAAC,KAAD;AAH2B;AA9GA;AAE7C;AAF6C;AApRQ;AAErD;AACA;AAUA,kBAAI,UAAC,CAAU,sCAAY,UAAU,CAAC,YAAK,SAAS,EAAG,CAAlB,CAAhC;AAKL;AAlBqD;AA0MJ;AAEjD;AAFiD;AAuKC;AAElD;AACA,UAAG,2BAAuB,IAAwB,CAAnB,eAAI,CAAC,iBAAD,CAAe,KAAE,GAAF,CAAlD;AACE,wBAAW,EAAX;AAEA,4BAAW,2BAAc,CAAC,qBAAY,iBAAb,CAAzB;AAEF;AARkD;AA6GG;AAErD;AAEA;AACA,UAAG,KAAM,KAAE,EAAX;AAEE,YAAI,GAAI,KAAG,iBAAX;AAEE,4BAAa,gBAAC,CAAgB,GAAhB;AACd;SAHF;OAMG,UAAG,yBAAY,CAAC,MAAO;;;;UAAR,CAAf;AAEH,YAAY,CAAR,eAAI,CAAC,CAAD,CAAI,KAAG,sBAAH,CAA4C,IAAd,CAAR,eAAI,CAAC,CAAD,CAAI,IAAG,mBAAH,CAAb,IAAwC,CAAR,eAAI,CAAC,CAAD,CAAI,IAAG,iBAAH,CAArE;AAEE,4BAAa,gBAAC,CAAgB,eAAI,CAAC,CAAD,CAApB;AACd;SAHF;OAFG;AAbgD;AAlOC;AAEtD;AAEA;AACA,UAAG,cAAmC,IAAd,CAAC,UAAI,QAAL,SAAZ,IAA8B,UAAI,SAA9C;AAEE,YAAK;AACL,YAAG,yBAAY,CAAC,UAAI,QAAC,GAAM;;;;YAAZ,CAAf,EACE,qBAAgB,CAAhB,CADF;OAHF;AAMA,wBAAa,eAAe,CAAC,sBAAD;AAX0B;AA1FD;AAErD,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,sBAAP,CADhB;AAGA;AALqD;AAsOE;AAEvD;AACe,uEAAf,GAAwC,YAAI;AAHW;AAqEJ;AAGnD,UAAG,cAAS,IAAI,UAAI,YAApB,EACE,wBAAmB,IADrB;AAGA,UAAG,sBAAH,EACE,eADF;AAGA,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,KAAP,CADhB;AAGA,2BAAgB,KAAhB;AAEA;AAdmD;AATE;AAGrD,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,KAAP,CADlB;AAGA;AANqD;AA1UI;AAIzD,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,UAAW,gDAAQ,OAAQ,YAAlC,CADpB;AAJyD;AA7CD;AAGxD,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,UAAW,+CAAlB,CADnB;AAHwD;AAqDK;AAI7D,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,UAAW,gDAAQ,MAAO,OAAQ,YAAzC,CADxB;AAJ6D;AA9CD;AAG5D,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,UAAW,gDAAQ,KAA1B,CADvB;AAH4D;AA8BJ;AAIxD,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,UAAW,gDAAQ,MAAO,OAAQ,YAAzC,CADnB;AAJwD;AA5CD;AAGvD,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,UAAW,gDAAQ,KAA1B,CADlB;AAHuD;AAoEU;AAIjE,UAAY,kCAAD,QAAX,EACE,kCAA0B,CAAC,KAAM,UAAW,+CAAO,WAAY,YAArC,CAD5B;AAJiE;AA/CD;AAIhE,UAAY,iCAAD,QAAX,EACE,iCAAyB,CAAC,KAAM,UAAW,+CAAO,UAAzB,CAD3B;AAJgE;AAuDF;AAI9D,UAAY,+BAAD,QAAX,EACE,+BAAuB,CAAC,KAAM,UAAW,+CAAO,WAAY,YAArC,CADzB;AAJ8D;AA/CD;AAG7D,UAAY,8BAAD,QAAX,EACE,8BAAsB,CAAC,KAAM,UAAW,+CAAO,UAAzB,CADxB;AAH6D;AAuDF;AAI3D,UAAY,4BAAD,QAAX,EACE,4BAAoB,CAAC,KAAM,UAAW,+CAAO,WAAY,MAAO,YAA5C,CADtB;AAJ2D;AAhDD;AAI1D,UAAY,2BAAD,QAAX,EACE,2BAAmB,CAAC,KAAM,UAAW,+CAAO,WAAY,KAArC,CADrB;AAJ0D;AAgER;AAGlD;AAEA;AACA,UAAG,CAAI,cAAP;AAEE,iBAAS,MAAK,aAAa,CAAC,YAAD;AAE3B,YAAG,CAAI,aAAP,EACE,SAAS,MAAK,SAAC,CAAS,QAAT,CADjB;AAEA,kBAAK,KAAL;AACA,+CAAa,CAAC,EAAG,CAAC,EAAG,CAAC,CAAT;AACb,iBAAS,WAAS,CAAC,2CAAG,kBvCnDmD,MAAoD,sEAAuD,qEAAoD,sEAA0B,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CuCkD1J;OARpB;AANkD;AA+GK;AAEvD;AACA,2BAAgB,mBAAhB;AACA;AAJuD;AAOD;AAEtD;AAEA;AACK;AACH,UADG,IACH;AAEE,YAAqE,UAAlC,CAA7B,iCAAmB,CAAC,iBAAD,CAAU,GAAE,iCAAmB,CAAC,mBAAD,CAArB,CAAkC,GAAY,CAAC,sBAAD,OAAZ;AACrE,6BAAgB,4BAAc,CAAC,oBAAW,CAAE,GAAE,sBAAhB,CAA9B;OAEF,UANG,IAMH;AAEE,YAA2D,UAA7B,CAAxB,4BAAc,CAAC,iBAAD,CAAU,GAAE,4BAAc,CAAC,mBAAD,CAAhB,CAA6B,GAAY,CAAC,sBAAD,OAAZ;AAC3D,6BAAgB,uBAAS,CAAC,oBAAW,CAAE,GAAE,sBAAhB,CAAzB;OAEF,UAXG,IAWH;AAEE,YAA2D,UAA7B,CAAxB,4BAAc,CAAC,iBAAD,CAAU,GAAE,4BAAc,CAAC,mBAAD,CAAhB,CAA6B,GAAI,sBAAJ;AAC3D,6BAAgB,uBAAS,CAAC,oBAAW,CAAE,GAAE,sBAAhB,CAAzB;OAEF,UAhBG,IAgBH;AAEE,YAAuD,UAA3B,CAAtB,0BAAY,CAAC,iBAAD,CAAU,GAAE,0BAAY,CAAC,mBAAD,CAAd,CAA2B,GAAI,sBAAJ;AACvD,6BAAgB,qBAAO,CAAC,oBAAW,CAAE,GAAE,sBAAhB,CAAvB;OAHF;AAMF;AA3BsD;AA8BA;AAEtD;AAEA;AACA,UAAK;AACA;AACH,UADG,IACH;AAAiB,YAAK,4BAAc,CAAC,uBAAc,sBAAf;AACpC,gBAFG,IAEH;AAAY,YAAK,uBAAS,CAAC,uBAAc,sBAAf;AAC1B,gBAHG,IAGH;AAAY,YAAK,uBAAS,CAAC,uBAAc,sBAAf;AAC1B,gBAJG,IAIH,8FAAU,IAAK,qBAAO,CAAC,uBAAc,sBAAf,CAAtB;AAEF,UAAG,6BAAe,CAAC,EAAG,iBAAJ,CAAa,IAAG,CAAlC,EACE,qBAAgB,CAAhB,CADF;AAGA;AAfsD;AAkBI;AAE1D;AAEA;AACA,UAAK;AACA;AACH,UADG,IACH;AAAiB,YAAK,4BAAc,CAAC,uBAAc,CAAC,sBAAhB;AACpC,gBAFG,IAEH;AAAY,YAAK,uBAAS,CAAC,uBAAc,CAAC,sBAAhB;AAC1B,gBAHG,IAGH;AAAY,YAAK,uBAAS,CAAC,uBAAc,CAAC,sBAAhB;AAC1B,gBAJG,IAIH,8FAAU,IAAK,qBAAO,CAAC,uBAAc,CAAC,sBAAhB,CAAtB;AAEF,UAAG,6BAAe,CAAC,EAAG,mBAAJ,CAAe,IAAG,CAApC,EACE,qBAAgB,CAAhB,CADF;AAGA;AAf0D;AA7Ib;AAE7C;AACA,UAAG,eAAK,QAAR,EACE,eADF;AAH6C;AAPE;AAE/C;AACA,UAAG,CAAI,eAAK,QAAZ,EACE,eADF;AAH+C;AA2DC;AAAV;AAEtC,eAAU,4BAAgB,CAAC,EAAS,EAAS,EAAS,CAA5B;AAFY;AAAU;AA3MI;AAAd;AAEtC,2BAAiB,kEAA0B,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,wBAAa,gBAAb,GAAgC;AAChC,wBAAa,kBAAb,GAAkC;AAClC,wBAAa,oBAAb,GAAoC;AACpC,wBAAa,wBAAb,GAAwC;AACxC,wBAAa,mBAAb,GAAmC;AACnC,wBAAa,mBAAb,GAAmC;AACnC,wBAAa,uBAAb,GAAuC;AACvC,wBAAa,kBAAb,GAAkC;AACH,wBAAc,4BAA7C,GAA4E;AAC7C,wBAAc,2BAA7C,GAA2E;AAC5C,wBAAc,yBAA7C,GAAyE;AAC1C,wBAAc,wBAA7C,GAAwE;AACzC,wBAAc,sBAA7C,GAAsE;AACvC,wBAAc,qBAA7C,GAAqE;AACrE,eAAU;AAjB4B;AAAc;AAlBL;AAE/C;AACA,oBAAS,EAAT;AACA,oCAA0B;AAC1B,4BAAiB,GAAjB;AACA,6BAAkB,GAAlB;AACA,+BAAqB;AACrB,qBAAS,qDAAmB,QAAC;AAC7B,kBAAK,WAAL,GAAoB;AATgD;AAArB;AAsCA;AAEzC,eAAN,KAAM;AACN;AAH+C;AA3CH;AAE5C,2BAAgB,GAAhB;AAF4C;AAjLd;;;;;;;AAmGV,+BAAO,UvH0ajB,+BuH1aiB,CAAP;AAnGU;AA4GN;AAuiB+B;AAEvD;AACA,+BAAa,CAAC,6BAAD;AAH0C;AAviB/B;;;;;;;AAIQ;AACb;AACK;AACC;AACJ,kCzBnCU,4EyBmCV;AACN;AACG;AACS;AACZ,4BzCyoBI,+DyCzoBJ;AACQ,oChIhGlB,0BgIgGkB;AACF;AACE;AACA,qCD9He,wFC8Hf;AACH,iChIpGf,0BgIoGe;AACF,+BhIrGb,0BgIqGa;AACG;AACI,sCDnGmB,8FCmGnB;AACE,wCDnGmB,gGCmGnB;AACE,0CDnGwB,uGCmGxB;AACD,yCDnGwB,sGCmGxB;AACK,8CDnGwB,2GCmGxB;AACD,6CDnGwB,0GCmGxB;AACJ,yCDnGwB,sGCmGxB;AACD,wCDnGwB,qGCmGxB;AA3BH;;AA/I1B,mBA6Kc;AAaQ;;;;AACU;;;;;;;;AAdlB;AA7Kd,GA6Kc,8BA7Kd;ACAA,8CAIS,oOAJT;;;AAuBS,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AAQoB;;AACG;;AACK;;AACD;;AACP;;AAEK;;;AAEjC;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA5BiC;;;;;;;;;;;;;;;;;;;;AAkmEgB;AAEnD,UAAG,UAAM,KAAG,KAAZ,EACE,UAAK,OAAO,CAAC,KAAD,CADd;AAFmD;AAsIE;AAErD,UAAG,YAAQ,KAAG,KAAd,EACE,YAAO,OAAO,CAAC,KAAD,CADhB;AAFqD;AApCD;AAEpD,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACV;OAHF;AAFoD;AAvFG;AAGvD,UAAG,cAAU,KAAG,KAAhB,EACE,cAAS,OAAO,CAAC,KAAD,CADlB;AAHuD;AAwCE;AAGzD,UAAG,gBAAY,KAAG,KAAlB,EACE,mBAAe,KADjB;AAHyD;AAyFF;AAEvD,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAFuD;AA1HM;AAE7D,UAAG,oBAAgB,KAAG,KAAtB;AAEE,+BAAmB;AACnB;OAHF;AAF6D;AAwCE;AAE/D,UAAG,sBAAkB,KAAG,KAAxB;AAEE,iCAAqB;AACrB;OAHF;AAF+D;AApDR;AAEvD,oBAAS,aAAa,CAAC,KAAD;AAFiC;AAzDA;AAEvD,UAAG,cAAU,KAAG,KAAhB,EACE,cAAS,OAAO,CAAC,KAAD,CADlB;AAFuD;AAMA;AAEvD,oBAAS,aAAa,CAAC,KAAD;AAFiC;AAKE;AAGzD,UAAG,gBAAY,KAAG,KAAlB,EACE,gBAAW,OAAO,CAAC,KAAD,CADpB;AAHyD;AAmJF;AAEvD,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAFuD;AA1BI;AAG3D,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;AACjB;OAHF;AAH2D;AArCK;AAGhE,UAAG,uBAAmB,KAAG,KAAzB,EACE,uBAAkB,OAAO,CAAC,KAAD,CAD3B;AAHgE;AA8BE;AAGlE,UAAG,yBAAqB,KAAG,KAA3B,EACE,yBAAoB,OAAO,CAAC,KAAD,CAD7B;AAHkE;AArCR;AAG1D,UAAG,iBAAa,KAAG,KAAnB,EACE,iBAAY,OAAO,CAAC,KAAD,CADrB;AAH0D;AA8BE;AAG5D,UAAG,mBAAe,KAAG,KAArB,EACE,mBAAc,OAAO,CAAC,KAAD,CADvB;AAH4D;AAwBA;AAG5D,UAAG,mBAAe,KAAG,KAArB,EACE,mBAAc,OAAO,CAAC,KAAD,CADvB;AAH4D;AA5HE;AAG9D,UAAG,qBAAiB,KAAG,KAAvB,EACE,qBAAgB,OAAO,CAAC,KAAD,CADzB;AAH8D;AAiBA;AAE9D,UAAG,qBAAiB,KAAG,KAAvB;AAEE,gCAAoB;AACpB;OAHF;AAF8D;AASE;AAGhE,UAAG,uBAAmB,KAAG,KAAzB,EACE,uBAAkB,OAAO,CAAC,KAAD,CAD3B;AAHgE;AAoIA;AAEhE,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB;OAHF;AAFgE;AATN;AAE1D,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;AAChB;OAHF;AAF0D;AAzFE;AAG5D,UAAG,mBAAe,KAAG,KAArB;AAEE,8BAAkB;AAClB;OAHF;AAH4D;AArDQ;AAGpE,UAAG,2BAAuB,KAAG,KAA7B;AAEE,sCAA0B;AAC1B;OAHF;AAHoE;AAnCH;AAAtB;AAE3C,eAAU,oBAAgB,KAAG,GAAH;AAFiB;AAAsB;AAKE;AAAxB;AAE3C,eAAU,sBAAkB,KAAG,GAAH;AAFe;AAAwB;AAVD;AAAvB;AAE3C,eAAU,qBAAiB,KAAG,GAAH;AAFgB;AAAuB;AAvIf;AAEnD,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAFmD;AA8DI;AAEvD;AAFuD;AAKA;AAEvD;AAFuD;AA2RE;AAEzD;AAFyD;AAxVL;AAEpD,mBAAS,qDAAmB,QAAC,a1C1sC+B,mEAA+C,SAAgD,QAAmD,GAAqD,E0C0sCtO;AAC7B,qBAAW,uDAAqB,QAAC,a1C5jC6B,qEAA+C,Q0C4jC5E;AACjC,uBAAa,uDAAqB,QAAC,a1C7jC2B,qEAA+C,Q0C6jC1E;AACnC,yBAAe,uDAAqB,QAAC,a1C9jCyB,qEAA+C,Q0C8jCxE;AACrC,uBAAa,qDAAmB,QAAC;AACjC,uBAAa,qDAAmB,QAAC,a1C/sC2B,mEAA+C,SAAgD,QAAmD,GAAqD,E0C+sClO;AACjC,yBAAe,uDAAqB,QAAC,a1CjkCyB,qEAA+C,Q0CikCxE;AACrC,uBAAa,qDAAmB,QAAC;AACjC,gCAAsB,uDAAqB,QAAC,a1CnkCkB,qEAA+C,Q0CmkCjE;AAC5C,kCAAwB,uDAAqB,QAAC,a1CpkCgB,qEAA+C,Q0CokC/D;AAC9C,0BAAgB,uDAAqB,QAAC,a1CrkCwB,qEAA+C,Q0CqkCvE;AACtC,4BAAkB,uDAAqB,QAAC,a1CtkCsB,qEAA+C,Q0CskCrE;AACxC,4BAAkB,uDAAqB,QAAC,a1CvkCsB,qEAA+C,Q0CukCrE;AACxC,8BAAoB,qDAAmB,QAAC,a1CvtCoB,mEAA+C,SAAgD,QAAmD,GAAqD,E0CutC3N;AACxC,gCAAsB,uDAAqB,QAAC,a1CzkCkB,qEAA+C,Q0CykCjE;AAC5C;AAEA,gBAAK,WAAL,GAAoB;AACpB,oBAAS,WAAT,GAAwB;AACxB,2BAAgB,WAAhB,GAA+B;AAC/B,kBAAO,WAAP,GAAsB;AACtB,oBAAS,WAAT,GAAwB;AACxB,sBAAW,WAAX,GAA0B;AAC1B,sBAAW,WAAX,GAA0B;AAC1B,6BAAkB,WAAlB,GAAiC;AACjC,+BAAoB,WAApB,GAAmC;AACnC,uBAAY,WAAZ,GAA2B;AAC3B,yBAAc,WAAd,GAA6B;AAC7B,yBAAc,WAAd,GAA6B;AAC7B,6BAAkB,WAAlB,GAAiC;AACjC,oBAAS,WAAT,GAAwB;AACxB,oBAAS,WAAT,GAAwB;AAjC6B;AAAD;AAoCA;AAE9C,eAAN,KAAM;AACE,eAAR,KAAQ;AACE,eAAV,KAAU;AACE,eAAZ,KAAY;AACF,eAAV,KAAU;AACA,eAAV,KAAU;AACE,eAAZ,KAAY;AACF,eAAV,KAAU;AACS,eAAnB,KAAmB;AACE,eAArB,KAAqB;AACR,eAAb,KAAa;AACE,eAAf,KAAe;AACA,eAAf,KAAe;AACE,eAAjB,KAAiB;AACE,eAAnB,KAAmB;AACnB;AAjBoD;AA5EF;AAElD,UAAc,wCAAH,eAAP,MAAO,CAAX;AAEE,oBAAO,OAAO,CAAS,OAAP,OAAU,wCAAH,CAAuC,QAAhD;AACd,kBAAK,OAAO,CAAS,OAAP,OAAU,wCAAH,CAAuC,MAAhD;AACZ,sBAAS,OAAO,CAAS,OAAP,OAAU,wCAAH,CAAuC,UAAhD;AAChB,wBAAW,OAAO,CAAS,OAAP,OAAU,wCAAH,CAAuC,YAAhD;AAClB,sBAAS,aAAa,CAAS,OAAP,OAAU,wCAAH,CAAuC,UAAhD;AACtB,sBAAS,OAAO,CAAS,OAAP,OAAU,wCAAH,CAAuC,UAAhD;AAChB,wBAAW,OAAO,CAAS,OAAP,OAAU,wCAAH,CAAuC,YAAhD;AAClB,sBAAS,OAAO,CAAS,OAAP,OAAU,wCAAH,CAAuC,UAAhD;AAChB,yBAAqB,OAAP,OAAU,wCAAH,CAAuC;AAC5D,+BAAkB,OAAO,CAAS,OAAP,OAAU,wCAAH,CAAuC,mBAAhD;AACzB,iCAAoB,OAAO,CAAS,OAAP,OAAU,wCAAH,CAAuC,qBAAhD;AAC3B,yBAAY,OAAO,CAAS,OAAP,OAAU,wCAAH,CAAuC,aAAhD;AACnB,2BAAc,OAAO,CAAS,OAAP,OAAU,wCAAH,CAAuC,eAAhD;AACrB,2BAAc,OAAO,CAAS,OAAP,OAAU,wCAAH,CAAuC,eAAhD;AACrB,sBAAkB,OAAP,OAAU,wCAAH,CAAuC;AACzD,yBAAqB,OAAP,OAAU,wCAAH,CAAuC;AAC5D,+BAA2B,OAAP,OAAU,wCAAH,CAAuC;AAClE,iCAA6B,OAAP,OAAU,wCAAH,CAAuC;AACpE,gCAA4B,OAAP,OAAU,wCAAH,CAAuC;AACnE,6BAAgB,OAAO,CAAS,OAAP,OAAU,wCAAH,CAAuC,iBAAhD;AACvB,+BAAkB,OAAO,CAAS,OAAP,OAAU,wCAAH,CAAuC,mBAAhD;AACzB,sCAAkC,OAAP,OAAU,wCAAH,CAAuC;AACzE,6BAAyB,OAAP,OAAU,wCAAH,CAAuC;AAChE,kCAA8B,OAAP,OAAU,wCAAH,CAAuC;AACrE,4BAAwB,OAAP,OAAU,wCAAH,CAAuC;OAG/D;AA/BgD;AA0GW;AAE7D,oBAAS,QAAC,CAAQ,QAAR;AAEV,oBAAS,QAAC,CAAmC,CAAnC;AAEV,oBAAS,SAAC,CAAS,CAAT;AACV,oBAAS,SAAC,CAAS,EAAT;AACV,oBAAS,QAAC,CAAQ,kEAAR;AACV,oBAAS,SAAC,CAAS,QAAT;AACV,sBAAW,QAAC,CAAQ,oEAAR;AACZ,sBAAW,SAAC,CAAS,CAAT;AACZ,sBAAW,SAAC,CAAS,CAAT;AACZ,2BAAgB,SAAC,CAAS,CAAT;AACjB,2BAAgB,QAAC,CAAQ,kEAAR;AACjB,8BAAoB;AACpB,6BAAkB,SAAC,CAAS,CAAT;AACnB,6BAAkB,QAAC,CAAQ,oEAAR;AACnB,6BAAkB,SAAC,CAAS,CAAT;AACnB,oCAA0B;AAC1B,gBAAK,SAAC,CAAS,QAAT;AACN,gBAAK,QAAC,CAAQ,kEAAR;AACN,oBAAS,QAAC,CAAQ,QAAR;AAEV,oBAAS,QAAC,CAAmC,CAAnC;AAEV,oBAAS,SAAC,CAAS,CAAT;AACV,oBAAS,SAAC,CAAS,EAAT;AACV,oBAAS,SAAC,CAAS,CAAT;AACV,oBAAS,QAAC,CAAQ,oEAAR;AACV,oBAAS,SAAC,CAAS,CAAT;AACV,6BAAmB;AACnB,uBAAY,SAAC,CAAS,CAAT;AACb,uBAAY,QAAC,CAAQ,oEAAR;AACb,uBAAY,SAAC,CAAS,CAAT;AACb,6BAAkB,SAAC,CAAS,QAAT;AACnB,6BAAkB,QAAC,CAAQ,oEAAR;AACnB,6BAAkB,SAAC,CAAS,CAAT;AACnB,4BAAkB;AAClB,sBAAW,SAAC,CAAS,CAAT;AACZ,sBAAW,QAAC,CAAQ,oEAAR;AACZ,sBAAW,SAAC,CAAS,CAAT;AACZ,+BAAqB;AACrB,yBAAc,SAAC,CAAS,CAAT;AACf,yBAAc,QAAC,CAAQ,oEAAR;AACf,yBAAc,SAAC,CAAS,CAAT;AACf,+BAAoB,SAAC,CAAS,QAAT;AACrB,+BAAoB,QAAC,CAAQ,oEAAR;AACrB,+BAAoB,SAAC,CAAS,CAAT;AACrB,2BAAiB;AACjB,yBAAc,SAAC,CAAS,GAAT;AACf,yBAAc,QAAC,CAAQ,oEAAR;AACf,yBAAc,SAAC,CAAS,CAAT;AACf,oBAAU;AACV,uBAAa;AACb,0BAAgB;AAChB,gCAAsB;AACtB,kBAAO,QAAC,CAAQ,oEAAR;AACR,kBAAO,SAAC,CAAS,CAAT;AACR,kBAAO,SAAC,CAAS,CAAT;AACR,uBAAa;AA5DgD;AAj+D1B;AAgEf;AAML,4B1C0pBI,+D0C1pBJ;AACE,8B1CqyBI,iE0CryBJ;AACE,gC1CoyBE,iE0CpyBF;AACA,gC1CmrBA,+D0CnrBA;AACE,kC1CkyBA,iE0ClyBA;AACF,gC1CqpBA,+D0CrpBA;AACE,kC1CgyBA,iE0ChyBA;AACF,gC1C+qBA,+D0C/qBA;AACA;AACH,6BArFc,6CAqFd;AACQ,qCApFc,qDAoFd;AACC;AACE;AACL,mC1CyxBD,iE0CzxBC;AACE,qC1CwxBH,iE0CxxBG;AACA,qC1CuxBH,iE0CvxBG;AACI,yC1CsxBP,iE0CtxBO;AACE,2C1CqxBT,iE0CrxBS;AACJ,uC1CwoBP,+D0CxoBO;AACE,yC1CmxBP,iE0CnxBO;AACI,6CnHuP1B,uCmHvP0B;AACN;AACH,oCA/Fc,oDA+Fd;AACH,iCAlGa,gDAkGb;AACQ;AACN;AA/Fa;AAkGF;;;AAE/B;AACA;AACA;AACA;AAL+B;;;;;AAqrEgB;AAEjD,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACT;OAHF;AAFiD;AASI;AAErD,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAFqD;AASE;AAEvD,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf;OAHF;AAFuD;AA/BN;AAEjD,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAFiD;AAMC;AAElD,mBAAS;AACT,uBAAa;AACb,yBAAe;AAJoC;AAAD;AAlBF;AAEhD,UAAa,sCAAH,eAAP,MAAO,CAAV;AAEE,qBAAiB,OAAP,OAAU,sCAAH,CAAqC;AACtD,yBAAqB,OAAP,OAAU,sCAAH,CAAqC;AAC1D,2BAAuB,OAAP,OAAU,sCAAH,CAAqC;OAG5D;AAT8C;AA5pEf;AAYb;AAIL;AACM;AACF;AAlBc;AAqBsB,8GAAmB,UjIhDnE,2BiIgDmE,EAAoB,axC1B/E,qDwC0B+E,EAAyB,U3CoJjH,yC2CpJiH,EAAgB,UA7HzG,4CA6HyG,EAA4C,yBAA2B,8BAAvJ;AACD,6GAAmB,UjIjDlE,2BiIiDkE,EAAoB,axC3B9E,qDwC2B8E,EAAyB,U3CmJhH,yC2CnJgH,EAAgB,UA9HxG,4CA8HwG,CAAhF;AACN,uGAAmB,UjIlD5D,2BiIkD4D,EAAoB,axC5BxE,qDwC4BwE,EAAyB,U3CkJ1G,yC2ClJ0G,EAAoB,cA9HnG,+CA8HmG,EAAoD,+BAA2B,iCAAoB,yBAA2B,8BAAlN;AACD,sGAAmB,UjInD3D,2BiImD2D,EAAoB,axC7BvE,qDwC6BuE,EAAyB,U3CiJzG,yC2CjJyG,EAAoB,cA/HlG,+CA+HkG,EAAoD,+BAA2B,gCAAnK;AACD,qGAAmB,UjIpD1D,2BiIoD0D,EAAoB,axC9BtE,qDwC8BsE,EAAyB,U3CgJxG,yC2ChJwG,EAAiB,wBAAqB,yBAA2B,8BAAjI;AACD,oGAAmB,UjIrDzD,2BiIqDyD,EAAoB,axC/BrE,qDwC+BqE,EAAyB,U3C+IvG,yC2C/IuG,EAAiB,uBAAjF;AACD,mGAAmB,UjItDxD,2BiIsDwD,EAAoB,axChCpE,qDwCgCoE,EAAyB,U3C8ItG,yC2C9IsG,EAAa,oBAAqB,yBAA2B,8BAA7H;AACD,kGAAmB,UjIvDvD,2BiIuDuD,EAAoB,axCjCnE,qDwCiCmE,EAAyB,U3C6IrG,yC2C7IqG,EAAa,mBAA7E;AACQ,0GAAmB,UjIxD/D,2BiIwD+D,EAAoB,axClC3E,qDwCkC2E,EAA+B,gB3C2HlH,0C2C3HkH,EAAqB,yBAA2B,8BAAtH;AACD,yGAAmB,UjIzD9D,2BiIyD8D,EAAoB,axCnC1E,qDwCmC0E,EAA+B,gB3C0HjH,0C2C1HiH,CAAtE;AACG,4GAAmB,UjI1DjE,2BiI0DiE,EAAoB,axCpC7E,qDwCoC6E,EAA+B,gB3CyHpH,0C2CzHoH,EAAqB,yBAA2B,8BAAtH;AACD,2GAAmB,UjI3DhE,2BiI2DgE,EAAoB,axCrC5E,qDwCqC4E,EAA+B,gB3CwHnH,0C2CxHmH,CAAtE;AACC,4GAAmB,UjI5DjE,2BiI4DiE,EAAoB,axCtC7E,qDwCsC6E,EAA+B,gB3CuHpH,0C2CvHoH,EAAqB,yBAA2B,8BAAtH;AACF,0GAAmB,UjI7D/D,2BiI6D+D,EAAoB,axCvC3E,qDwCuC2E,EAA+B,gB3CsHlH,0C2CtHkH,CAAtE;AACA,0GAAmB,UjI9D/D,2BiI8D+D,EAAoB,axCxC3E,qDwCwC2E,EAAyB,U3CsI7G,yC2CtI6G,EAA0B,gCAAoB,yBAA2B,8BAAzI;AACD,yGAAmB,UjI/D9D,2BiI+D8D,EAAoB,axCzC1E,qDwCyC0E,EAAyB,U3CqI5G,yC2CrI4G,EAA0B,+BAA1F;AACP,kGAAmB,UjIhEvD,2BiIgEuD,EAAgB,SjInHzE,yBiImHyE,CAAnC;AACA,kGAAmB,UjIjEvD,2BiIiEuD,EAAgB,SjIpHzE,yBiIoHyE,CAAnC;AACF,gGAAmB,UjIlErD,2BiIkEqD,EAAgB,SjIrHvE,yBiIqHuE,CAAnC;AACA,gGAAmB,UjInErD,2BiImEqD,EAAgB,SjItHvE,yBiIsHuE,CAAnC;AAEV;;;AAE7B;AACA;AACA;AAAgB;AAChB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAnC6B;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AA0pDgB;AAE/C;AAAG;AAAG;AAAG;AAET,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACT,+BAAU,CAAC,MAAO;;;;aAAG;;;;aAAG;;;;aAAG;;;;YAAjB;AACV,YAAG,CAAE,GAAE,EAAP;AACE,qBAAM,IAAN;AAEA,yBAAM,KAAN;AACF;OARF;AAJ+C;AAtXF;AAE7C,UAAG,QAAI,KAAG,KAAV;AAEE,mBAAO;AACP;OAHF;AAF6C;AASQ;AAErD,sBAAW,OAAO,CAAC,KAAD;AAFmC;AA0BF;AAEnD,oBAAS,OAAO,CAAC,KAAD;AAFmC;AAKH;AAEhD,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACL;AACH,YADG,IACH;AAEO;AAEH;AACA,yBAAQ,QAAC,CAAQ,eAAR;AACT,yBAAQ,SAAC,CAAS,EAAT;AACT,yBAAQ,SAAC,CAAS,CAAT;AACT,yBAAQ,QAAC,CAAQ,eAAR;AACT,yBAAQ,QAAC,CAAmC,EAAnC;AACT,yBAAQ,SAAC,CAAS,cAAY,wCAAZ,CAAT;AACT,yBAAQ,SAAC,CAAS,CAAT;AACT,kCAAkB,CAAlB;AACA,4BAAW,SAAC,CAAS,CAAT;AACZ,4BAAW,SAAC,CAAS,CAAT;AACZ,kCAAiB,SAAC,CAAS,QAAT;AAClB,oCAAmB,SAAC,CAAS,QAAT;AACpB,oCAAoB,CAApB;AACA,4BAAY,IAAZ;AACA,+BAAe,IAAf;AACA,qCAAqB,IAArB;SAGJ,UAxBG,IAwBH;AAEO;AAEH;AACA,0BAAQ,SAAC,CAAS,CAAT;AACT,0BAAQ,QAAC,CAAmC,EAAnC;AACT,0BAAQ,QAAC,CAAQ,eAAR;AACT,0BAAQ,SAAC,CAAS,EAAT;AACT,wBAAM,SAAC,CAA2C,QAA3C;AACP,sBAAI,SAAC,CAAS,CAAT;AACL,sBAAI,WAAC,CAAW,CAAX;AACL,iCAAe,SAAC,CAA2C,QAA3C;AAChB,mCAAiB,SAAC,CAAS,CAAT;AAClB,oCAAmB,EAAnB;AACA,mCAAiB,SAAC,CAAS,CAAT;AAClB,0BAAQ,SAAC,CAAS,CAAT;AACT,0BAAQ,QAAC,CAAmC,CAAnC;AACT,0BAAQ,QAAC,CAAQ,eAAR;AACT,0BAAQ,SAAC,CAAS,EAAT;AACT,0BAAQ,SAAC,CAA2C,QAA3C;AACT,mCAAkB,EAAlB;AACA,6BAAW,SAAC,CAA2C,QAA3C;AACZ,6BAAW,SAAC,CAAS,CAAT;AACZ,mCAAiB,SAAC,CAAS,EAAT;AAClB,4BAAU,SAAC,CAA2C,QAA3C;AACX,+BAAa,SAAC,CAA2C,QAA3C;AACd,+BAAa,SAAC,CAAS,CAAT;AACd,qCAAmB,SAAC,CAAS,EAAT;AACpB,0BAAS,+CAAT;AACA,0BAAQ,SAAC,CAAS,CAAT;AACT,kCAAiB,2DAAjB;AACA,6BAAa,8CAAb;AACA,6BAAY,KAAZ;AACA,gCAAe,KAAf;AACA,sCAAqB,IAArB;SAGJ,UA9DG,IA8DH;AAEO;AAEH;AACA,0BAAQ,SAAC,CAA2C,QAA3C;AACT,0BAAQ,QAAC,CAAQ,eAAR;AACT,0BAAQ,SAAC,CAAS,EAAT;AACT,wBAAM,SAAC,CAA2C,QAA3C;AACP,sBAAI,SAAC,CAA2C,QAA3C;AACL,sBAAI,WAAC,CAAW,CAAX;AACL,sBAAI,QAAC,CAAQ,qEAAR;AACL,sBAAI,eAAC,CAAe,4EAAf;AACL,mCAAiB,SAAC,CAA2C,QAA3C;AAClB,mCAAiB,SAAC,CAAS,CAAT;AAClB,iCAAe,SAAC,CAA2C,QAA3C;AAChB,0CAAyB,CAAzB;AACA,oCAAmB,EAAnB;AACA,0BAAQ,SAAC,CAAS,CAAT;AACT,0BAAQ,QAAC,CAAQ,eAAR;AACT,0BAAQ,SAAC,CAAS,EAAT;AACT,6BAAW,SAAC,CAA2C,QAA3C;AACZ,6BAAW,SAAC,CAA2C,QAA3C;AACZ,mCAAiB,SAAC,CAAS,KAAT;AAClB,6BAAW,SAAC,CAAS,CAAT;AACZ,+BAAa,SAAC,CAA2C,QAA3C;AACd,qCAAmB,SAAC,CAAS,KAAT;AACpB,0BAAS,0CAAT;AACA,iCAAgB,oDAAhB;AACA,0BAAQ,SAAC,CAAS,EAAT;AACT,0BAAQ,SAAC,CAAS,gBAAU,MAAK,OAAxB;AACT,kCAAiB,2DAAjB;AACA,0BAAQ,SAAC,CAAS,gBAAU,MAAK,OAAxB;AACT,+BAAa,SAAC,CAAS,KAAT;AACd,6BAAa,8CAAb;AACA,gCAAe,KAAf;AACA,6BAAY,KAAZ;AACA,sCAAqB,IAArB;SAGJ,UAtGG,IAsGH;AAEO;AAEH;AACA,0BAAQ,QAAC,CAAQ,eAAR;AACT,0BAAQ,SAAC,CAAS,EAAT;AACT,0BAAQ,SAAC,CAAS,CAAT;AACT,wBAAM,SAAC,CAAS,CAAT;AACP,sBAAI,SAAC,CAA2C,QAA3C;AACL,sBAAI,WAAC,CAA6C,QAA7C;AACL,sBAAI,QAAC,CAAQ,qEAAR;AACL,sBAAI,eAAC,CAAe,4EAAf;AACL,iCAAe,SAAC,CAA2C,MAA3C;AAChB,oCAAmB,CAAnB;AACA,mCAAiB,SAAC,CAA2C,MAA3C;AAClB,0BAAQ,SAAC,CAAS,CAAT;AACT,0BAAQ,QAAC,CAAQ,SAAR;AACT,0BAAQ,SAAC,CAAS,cAAY,wCAAZ,CAAT;AACT,6BAAW,SAAC,CAAS,CAAT;AACZ,mCAAiB,SAAC,CAAS,OAAT;AAClB,6BAAW,SAAC,CAAS,CAAT;AACZ,qCAAmB,SAAC,CAAS,OAAT;AACpB,+BAAa,SAAC,CAA2C,MAA3C;AACd,0BAAS,0CAAT;AACA,iCAAgB,oDAAhB;AACA,0BAAQ,SAAC,CAAS,gBAAU,MAAK,OAAxB;AACT,gCAAe,KAAf;AACA,6BAAa,8CAAb;AACA,sCAAqB,IAArB;SAGJ,UAtIG,IAsIH;AAEO;AAEH;AACA,0BAAQ,SAAC,CAAS,CAAT;AACT,0BAAQ,QAAC,CAAmC,EAAnC;AACT,0BAAQ,QAAC,CAAQ,eAAR;AACT,0BAAQ,SAAC,CAAS,EAAT;AACT,wBAAM,SAAC,CAA2C,QAA3C;AACP,sBAAI,SAAC,CAAS,CAAT;AACL,sBAAI,WAAC,CAAW,CAAX;AACL,mCAAiB,SAAC,CAA2C,QAA3C;AAClB,mCAAiB,SAAC,CAAS,CAAT;AAClB,oCAAmB,EAAnB;AACA,0CAAyB,CAAzB;AACA,0BAAQ,SAAC,CAAS,CAAT;AACT,0BAAQ,QAAC,CAAmC,CAAnC;AACT,0BAAQ,QAAC,CAAQ,eAAR;AACT,0BAAQ,SAAC,CAAS,EAAT;AACT,0BAAQ,SAAC,CAA2C,QAA3C;AACT,mCAAkB,EAAlB;AACA,6BAAW,SAAC,CAA2C,QAA3C;AACZ,mCAAiB,SAAC,CAAS,EAAT;AAClB,6BAAW,SAAC,CAAS,CAAT;AACZ,4BAAU,SAAC,CAA2C,QAA3C;AACX,+BAAa,SAAC,CAA2C,QAA3C;AACd,qCAAmB,SAAC,CAAS,EAAT;AACpB,+BAAa,SAAC,CAAS,CAAT;AACd,0BAAS,0CAAT;AACA,0BAAQ,SAAC,CAAS,CAAT;AACT,kCAAiB,2DAAjB;AACA,+BAAa,SAAC,CAA2C,QAA3C;AACd,6BAAa,mDAAb;AACA,6BAAY,KAAZ;AACA,gCAAe,KAAf;AACA,sCAAqB,IAArB;SAGJ,UA7KG,IA6KH;AAEO;AAEH;AACA,0BAAQ,QAAC,CAAQ,eAAR;AACT,0BAAQ,SAAC,CAAS,EAAT;AACT,sBAAI,SAAC,CAA2C,QAA3C;AACL,sBAAI,WAAC,CAAW,EAAX;AACL,wBAAM,SAAC,CAAS,CAAT;AACP,mCAAiB,SAAC,CAAS,QAAT;AAClB,iCAAe,SAAC,CAAS,QAAT;AAChB,0BAAQ,SAAC,CAA2C,QAA3C;AACT,0BAAQ,SAAC,CAAS,QAAT;AACT,0BAAQ,QAAC,CAAQ,gBAAR;AACT,0BAAQ,QAAC,CAAmC,EAAnC;AACT,6BAAW,SAAC,CAAS,QAAT;AACZ,mCAAiB,SAAC,CAAS,EAAT;AAClB,6BAAW,SAAC,CAAS,CAAT;AACZ,4BAAU,SAAC,CAA2C,QAA3C;AACX,+BAAa,SAAC,CAAS,QAAT;AACd,qCAAmB,SAAC,CAAS,EAAT;AACpB,qCAAoB,CAApB;AACA,6BAAY,KAAZ;AACA,gCAAe,IAAf;AACA,sCAAqB,IAArB;SAGJ,UAzMG,IAyMH;AAEO;AAEH;AACA,sBAAI,SAAC,CAAS,QAAT;AACL,sBAAI,WAAC,CAAW,EAAX;AACL,wBAAM,SAAC,CAAS,CAAT;AACP,wBAAM,SAAC,CAAS,CAAT;AACP,mCAAiB,SAAC,CAAS,CAAT;AAClB,iCAAe,SAAC,CAAS,CAAT;AAChB,oCAAmB,CAAnB;AACA,0BAAQ,SAAC,CAA2C,QAA3C;AACT,0BAAQ,SAAC,CAAS,CAAT;AACT,0BAAQ,QAAC,CAAQ,gBAAR;AACT,0BAAQ,QAAC,CAAmC,EAAnC;AACT,0BAAQ,SAAC,CAAS,cAAY,wCAAZ,CAAT;AACT,6BAAW,SAAC,CAAS,CAAT;AACZ,mCAAiB,SAAC,CAAS,QAAT;AAClB,6BAAW,SAAC,CAAS,CAAT;AACZ,+BAAa,SAAC,CAAS,CAAT;AACd,qCAAmB,SAAC,CAAS,QAAT;AACpB,qCAAoB,CAApB;AACA,+BAAa,SAAC,CAAS,GAAT;AACd,iCAAgB,oDAAhB;AACA,6BAAa,mDAAb;AACA,6BAAY,KAAZ;AACA,gCAAe,IAAf;AACA,sCAAqB,IAArB;SAGJ,UAxOG,IAwOH;AAEO;AAEH;AACA,sBAAI,WAAC,CAA6C,QAA7C;AACL,sBAAI,QAAC,CAAQ,qEAAR;AACL,sBAAI,eAAC,CAAe,4EAAf;AACL,wBAAM,SAAC,CAAS,YAAI,OAAb;AACP,wBAAM,SAAC,CAAS,CAAT;AACP,mCAAiB,SAAC,CAAS,CAAT;AAClB,oCAAmB,EAAnB;AACA,mCAAkB,UAAK,CAAC,QAAG,CAAC,IAAI,UAAC,GAAQ,IAAI,SAAC,EAAnB,CAA0B,GAAE,GAAhC,CAAvB;AACA,6BAAW,SAAC,CAAS,CAAT;AACZ,mCAAiB,SAAC,CAAS,QAAT;AAClB,4BAAU,SAAC,CAAS,OAAT;AACX,qCAAoB,QAAG,CAAC,IAAI,UAAC,GAAQ,IAAI,SAAC,EAAnB,CAA0B,GAAE,CAAnD;AACA,+BAAa,SAAC,CAAS,CAAT;AACd,6BAAY,KAAZ;AACA,gCAAe,KAAf;AACA,sCAAqB,IAArB;SAGJ,UA/PG,IA+PH;AAEO;AAEH;AACA,sBAAI,SAAC,CAAS,CAAT;AACL,wBAAM,SAAC,CAAS,CAAT;AACP,wBAAM,SAAC,CAAS,CAAT;AACP,mCAAiB,SAAC,CAAS,QAAT;AAClB,0CAAyB,CAAzB;AACA,iCAAe,SAAC,CAA2C,QAA3C;AAChB,mCAAiB,SAAC,CAAS,CAAT;AAClB,oCAAmB,UAAK,CAAC,QAAG,CAAC,IAAI,UAAC,GAAQ,IAAI,SAAC,EAAnB,CAA0B,GAAE,CAAhC,CAAxB;AACA,0BAAQ,SAAC,CAA2C,QAA3C;AACT,0BAAQ,SAAC,CAA2C,QAA3C;AACT,0BAAQ,QAAC,CAAQ,iBAAR;AACT,0BAAQ,QAAC,CAAmC,CAAnC;AACT,6BAAW,SAAC,CAAS,GAAT;AACZ,mCAAiB,SAAC,CAAS,EAAT;AAClB,6BAAW,SAAC,CAAS,CAAT;AACZ,4BAAU,SAAC,CAAS,OAAT;AACX,+BAAa,SAAC,CAAS,KAAT;AACd,+BAAa,SAAC,CAAS,CAAT;AACd,qCAAmB,SAAC,CAAS,EAAT;AACpB,qCAAoB,CAApB;AACA,+BAAa,SAAC,CAA2C,QAA3C;AACd,6BAAa,mDAAb;AACA,6BAAY,KAAZ;AACA,gCAAe,IAAf;AACA,sCAAqB,IAArB;SAGJ,UA/RG,IA+RH;AAEO;AAEH;AACA,sBAAI,SAAC,CAAS,QAAT;AACL,sBAAI,WAAC,CAA6C,QAA7C;AACL,sBAAI,QAAC,CAAQ,qEAAR;AACL,sBAAI,eAAC,CAAe,4EAAf;AACL,wBAAM,SAAC,CAA2C,QAA3C;AACP,wBAAM,SAAC,CAAS,CAAT;AACP,mCAAiB,SAAC,CAAS,CAAT;AAClB,mCAAiB,SAAC,CAAS,CAAT;AAClB,iCAAe,SAAC,CAAS,QAAT;AAChB,0CAAyB,CAAzB;AACA,oCAAmB,CAAnB;AACA,0BAAQ,SAAC,CAA2C,QAA3C;AACT,0BAAQ,SAAC,CAA2C,QAA3C;AACT,0BAAQ,QAAC,CAAQ,iBAAR;AACT,0BAAQ,QAAC,CAAmC,CAAnC;AACT,6BAAW,SAAC,CAA2C,QAA3C;AACZ,mCAAiB,SAAC,CAA2C,QAA3C;AAClB,6BAAW,SAAC,CAAS,CAAT;AACZ,4BAAU,SAAC,CAAS,OAAT;AACX,+BAAa,SAAC,CAA2C,QAA3C;AACd,+BAAa,SAAC,CAAS,CAAT;AACd,qCAAmB,SAAC,CAA2C,QAA3C;AACpB,qCAAoB,CAApB;AACA,+BAAa,SAAC,CAA2C,QAA3C;AACd,6BAAa,mDAAb;AACA,6BAAY,KAAZ;AACA,gCAAe,IAAf;AACA,sCAAqB,IAArB;SAGJ,UAlUG,IAkUH;OArUJ;AAFgD;AA1BM;AAEtD,UAAG,iBAAa,KAAG,KAAnB,EACE,oBAAgB,KADlB;AAFsD;AAnDL;AAAV;AAGvC,eAAsC,CAA3B,gBAAG,CAAC,OAAO,EAAG,GAAE,OAAO,EAApB,CAAwB,GAAE,gBAAG,CAAC,OAAO,EAAG,GAAE,OAAO,EAApB,CAAL,CAA8B,IAAG,gBAAG,CAAC,OAAD,CAAN;AAH7B;AAAU;AAmEI;AAErD,sBAAW,OAAO,CAAC,KAAD;AAFmC;AAjlCC;AAEtD;AACA;AACA,sBAAU,UAAS,UAAC,CAAU,sCAAY,UAAU,CAAC,gBAAU,UAAS,SAAS,EAAG,CAAhC,CAAhC;AACpB,sBAAU,UAAS,UAAC,CAAU,sCAAY,UAAU,CAAC,gBAAU,UAAS,SAAS,EAAG,CAAhC,CAAhC;AACpB,sBAAU,mBAAC,CAAmB,sCAAY,aAAa,CAAC,gBAAU,kBAAkB,EAAG,CAAhC,CAA5C;AACX,UAAG,gBAAU,gBAAgB,GAAE,CAA/B,EACE,gBAAU,kBAAC,CAAkB,sCAAY,aAAa,CAAC,gBAAU,iBAAiB,EAAG,CAA/B,CAA3C,CADb;AAEA,UAAG,gBAAU,kBAAkB,GAAE,CAAjC,EACE,gBAAU,oBAAC,CAAoB,sCAAY,aAAa,CAAC,gBAAU,mBAAmB,EAAG,CAAjC,CAA7C,CADb;AAEA;AAXsD;AARP;AAE/C,UAAY,eAAD,QAAX,EACE,eAAS,CAAC,IAAD,CADX;AAGA;AAL+C;AAjEU;AAEzD;AAFyD;AAkgDF;AAEvD,sBAAW,WAAC,CAAW,cAAQ,MAAnB;AACZ;AAHuD;AAhbH;AAEpD;AAFoD;AAt0BR;AAE5C;AACA,8BAAmB,CAAC,UAAW,+CAAZ;AACnB,wBAAa,CAAC,UAAW,+CAAZ;AACb,sBAAW,CAAC,UAAW,+CAAZ;AACX,mBAAQ,CAAC,UAAW,+CAAZ;AACR,sBAAW,CAAC,UAAW,+CAAZ;AAPiC;AAiDe;AAG3D;AACA;AAAG;AAGH,8CAAY,CAAC,OAAQ,IAAK,GAAd;AAEZ,gBAAK,MAAL;AACA,eAAS,MAAK,OAAO,CAAC,gBAAU,MAAX;AACrB,eAAS,QAAO,OAAO,CAAC,gBAAU,QAAX;AAEvB,UAAK;AACL,WAAM;AACN,sCAA2B,CAAC,UAAW,2CAAG,gBAAU,QAAQ;;;;WAAG;;;;UAApC;AAC3B,UAAG,CAAH;AAEE,YAAG,EAAH;AAEiB,qBAAV,gBAAU;AACb,cADa,IACb;AAEE,sBAAK,iBAAY,CAAC,+CAAD,CAAjB;AACA,qBAAS,cAAY,CAAC,2CAAG,wEAAJ;WAEvB,UANa,IAMb;AAEE,qBAAS,gBAAc,CAAC,2CxChd+D,6EwCgdhE;WAEzB,UAVa,IAUb;AAEE,qBAAS,qBAAmB,CAAC,2CxC5c6B,GAAuC,cAAC,kEAAW,mEAAY,qEAAc,qEAAtC,EAA4G,6EwC4cjL;WAF9B;SAZJ;AAkBA,uCAA0B,CAAC,UAAW,2CAAG,gBAAU,OAAzB;OApB5B;AAhB2D;AAyYN;AAGrD;AACA;AAAI;AAAI;AAAI;AAAI;AAChB;AAAI;AACJ;AACA;AAAG;AAEH,gBAAK,iBAAY,CAAC,+CAAD,CAAjB;AACA,iBAAM,mBAAc,CAAC,0CAAD,CAApB;AACA,WAAM,cAAS,CAAC,0CAAD,CAAI,GAA2B,CAAxB,gBAAU,QAAO,OAAO,GAAE,CAAF,CAA3B;AAEnB,UAAK;AACL,WAAM;AACD;AAEH,WAAM,EAAG,GAAE,GAAF;AACT,UAAI,qBAAe,GAAE,CAArB,EACE,KAAM,EAAG,GAAE,qBADb;AAGA,eAAS,QAAO,OAAO,CAAC,eAAD;AACvB,WAAI,IAAK,GAAL,CAAU,OAAV,CAAU,EAAd;AAEE,YAAI,oBAAc,KAAE,2DAApB;AAEO;AACH,eADG,IACH,WAAG,CADA,IACA,OAAH;AAEE,uBAAM,gCAAM,CAAwB,CAAvB,QAAG,CAAQ,CAAP,CAAO,GAAH,EAAF,GAAO,OAAF,CAAK,GAAE,GAAf,CAAoB,GAAE,EAAF,CAAK,GAAE,EAAE,EAAJ,CAAoC,CAAL,CAAvB,QAAG,CAAQ,CAAP,CAAO,GAAH,EAAF,GAAO,OAAF,CAAK,GAAE,GAAf,CAAoB,GAAE,EAAF,CAAK,GAAE,EAAE,EAAJ,CAAO,GAAE,CAA1E,CAAZ;AACA,uBAAM,gCAAM,CAAwB,CAAvB,QAAG,CAAQ,CAAP,CAAO,GAAH,EAAF,GAAO,OAAF,CAAK,GAAE,GAAf,CAAoB,GAAE,EAAF,CAAK,GAAE,EAAE,EAAJ,CAAoC,CAAL,CAAvB,QAAG,CAAQ,CAAP,CAAO,GAAH,EAAF,GAAO,OAAF,CAAK,GAAE,GAAf,CAAoB,GAAE,EAAF,CAAK,GAAE,EAAE,EAAJ,CAAO,GAAE,CAA1E,CAAZ;AACA,uBAAM,gCAAM,CAAwB,CAAvB,QAAG,CAAQ,CAAP,CAAO,GAAH,EAAF,GAAO,OAAF,CAAK,GAAE,GAAf,CAAoB,GAAE,EAAF,CAAK,GAAE,EAAE,EAAJ,CAA+B,CAAvB,QAAG,CAAQ,CAAP,CAAO,GAAH,EAAF,GAAO,OAAF,CAAK,GAAE,GAAf,CAAoB,GAAE,EAAF,CAAY,GAAL,EAAE,EAAJ,GAAS,CAA1E,CAAZ;AACA,uBAAM,gCAAM,CAAwB,CAAvB,QAAG,CAAQ,CAAP,CAAO,GAAH,EAAF,GAAO,OAAF,CAAK,GAAE,GAAf,CAAoB,GAAE,EAAF,CAAK,GAAE,EAAE,EAAJ,CAA+B,CAAvB,QAAG,CAAQ,CAAP,CAAO,GAAH,EAAF,GAAO,OAAF,CAAK,GAAE,GAAf,CAAoB,GAAE,EAAF,CAAY,GAAL,EAAE,EAAJ,GAAS,CAA1E,CAAZ;AAEA,qCAAoB,CAAC,UAAW,2CAAG,gBAAW,sBAAgB,wBAAkB;;;;iBAAG;;;;gBAA/D;AACpB,gBAAG,CAAH;AAEE,kBAAG,EAAH;AAEE,yBAAS,WAAS,CAAC,6CAAI,6CAAI,0EAAU,yEAAnB;AAClB,yBAAS,WAAS,CAAC,6CAAI,6CAAI,0EAAU,yEAAnB;eAHpB;AAKA,sCAAmB,CAAC,UAAW,2CAAG,gBAAW,sBAAgB,uBAA1C;aAPrB;WAUF,WAnBG,IAmBH,WAAG,CAnBA,IAmBA,OAAH;AAEE,uBAAM,gCAAM,CAA6B,CAAL,CAAvB,QAAG,CAAQ,CAAP,CAAO,GAAH,EAAF,GAAO,OAAF,CAAK,GAAE,GAAf,CAAoB,GAAE,EAAF,CAAK,GAAE,EAAE,EAAJ,CAAO,GAAE,CAAF,CAA4B,CAAvB,QAAG,CAAQ,CAAP,CAAO,GAAH,EAAF,GAAO,OAAF,CAAK,GAAE,GAAf,CAAoB,GAAE,EAAF,CAAK,GAAE,EAAE,EAAzE,CAAZ;AACA,uBAAM,gCAAM,CAA6B,CAAL,CAAvB,QAAG,CAAQ,CAAP,CAAO,GAAH,EAAF,GAAO,OAAF,CAAK,GAAE,GAAf,CAAoB,GAAE,EAAF,CAAK,GAAE,EAAE,EAAJ,CAAO,GAAE,CAAF,CAA4B,CAAvB,QAAG,CAAQ,CAAP,CAAO,GAAH,EAAF,GAAO,OAAF,CAAK,GAAE,GAAf,CAAoB,GAAE,EAAF,CAAK,GAAE,EAAE,EAAzE,CAAZ;AACA,uBAAM,gCAAM,CAAwB,CAAvB,QAAG,CAAQ,CAAP,CAAO,GAAH,EAAF,GAAO,OAAF,CAAK,GAAE,GAAf,CAAoB,GAAE,EAAF,CAAY,GAAL,EAAE,EAAJ,GAAS,CAAF,CAA4B,CAAvB,QAAG,CAAQ,CAAP,CAAO,GAAH,EAAF,GAAO,OAAF,CAAK,GAAE,GAAf,CAAoB,GAAE,EAAF,CAAK,GAAE,EAAE,EAAzE,CAAZ;AACA,uBAAM,gCAAM,CAAwB,CAAvB,QAAG,CAAQ,CAAP,CAAO,GAAH,EAAF,GAAO,OAAF,CAAK,GAAE,GAAf,CAAoB,GAAE,EAAF,CAAY,GAAL,EAAE,EAAJ,GAAS,CAAF,CAA4B,CAAvB,QAAG,CAAQ,CAAP,CAAO,GAAH,EAAF,GAAO,OAAF,CAAK,GAAE,GAAf,CAAoB,GAAE,EAAF,CAAK,GAAE,EAAE,EAAzE,CAAZ;AAEA,qCAAoB,CAAC,UAAW,2CAAG,gBAAW,sBAAgB,wBAAkB;;;;iBAAG;;;;gBAA/D;AACpB,gBAAG,CAAH;AAEE,kBAAG,EAAH;AAEE,yBAAS,WAAS,CAAC,6CAAI,6CAAI,0EAAU,yEAAnB;AAClB,yBAAS,WAAS,CAAC,6CAAI,6CAAI,0EAAU,yEAAnB;eAHpB;AAKA,sCAAmB,CAAC,UAAW,2CAAG,gBAAW,sBAAgB,uBAA1C;aAPrB;WARF;;AAsBF,qBAAM,gCAAM,CAAwB,CAAvB,QAAG,CAAQ,CAAP,CAAO,GAAH,EAAF,GAAO,OAAF,CAAK,GAAE,GAAf,CAAoB,GAAE,EAAF,CAAK,GAAE,EAAE,EAAJ,CAA+B,CAAvB,QAAG,CAAQ,CAAP,CAAO,GAAH,EAAF,GAAO,OAAF,CAAK,GAAE,GAAf,CAAoB,GAAE,EAAF,CAAK,GAAE,EAAE,EAArE,CAAZ;AACA,qBAAM,gCAAM,CAAwB,CAAvB,QAAG,CAAQ,CAAP,CAAO,GAAH,EAAF,GAAO,OAAF,CAAK,GAAE,GAAf,CAAoB,GAAE,EAAF,CAAK,GAAE,EAAE,EAAJ,CAA+B,CAAvB,QAAG,CAAQ,CAAP,CAAO,GAAH,EAAF,GAAO,OAAF,CAAK,GAAE,GAAf,CAAoB,GAAE,EAAF,CAAK,GAAE,EAAE,EAArE,CAAZ;AAEA,mCAAoB,CAAC,UAAW,2CAAG,gBAAW,sBAAgB,wBAAkB;;;;eAAG;;;;cAA/D;AACpB,cAAG,CAAH;AAEE,gBAAG,EAAH,EACE,SAAS,WAAS,CAAC,6CAAI,6CAAI,0EAAU,yEAAnB,CADpB;AAGA,oCAAmB,CAAC,UAAW,2CAAG,gBAAW,sBAAgB,uBAA1C;WALrB;;;AAUJ,UAAK;AACL,WAAM;AACN,UAAI,eAAU,IAAG,cAAC,6CAAO,8CAAR,CAAjB;AAEE,iBAAS,QAAO,OAAO,CAAC,eAAD;AACvB,aAAI,IAAK,GAAL,CAAU,QAAV,CAAU,EAAd;AAEE,cAAO,CAAF,CAAE,GAAI,CAAJ,CAAO,KAAG,CAAjB;AAEE,uBAAM,gCAAM,CAAwB,CAAvB,QAAG,CAAQ,CAAP,CAAO,GAAH,EAAF,GAAO,OAAF,CAAK,GAAE,GAAf,CAAoB,GAAE,EAAF,CAAK,GAAE,EAAE,EAAJ,CAA+B,CAAvB,QAAG,CAAQ,CAAP,CAAO,GAAH,EAAF,GAAO,OAAF,CAAK,GAAE,GAAf,CAAoB,GAAE,EAAF,CAAK,GAAE,EAAE,EAArE,CAAZ;AACA,uBAAM,gCAAM,CAAwB,CAAvB,QAAG,CAAQ,CAAP,CAAO,GAAH,EAAF,GAAO,OAAF,CAAK,GAAE,GAAf,CAAoB,GAAE,EAAF,CAAK,GAAE,EAAE,EAAJ,CAA+B,CAAvB,QAAG,CAAQ,CAAP,CAAO,GAAH,EAAF,GAAO,OAAF,CAAK,GAAE,GAAf,CAAoB,GAAE,EAAF,CAAK,GAAE,EAAE,EAArE,CAAZ;AAEA,qCAAoB,CAAC,UAAW,2CAAG,gBAAW,sBAAgB,wBAAkB;;;;iBAAG;;;;gBAA/D;AACpB,gBAAG,CAAH;AAEE,kBAAG,EAAH,EACE,SAAS,WAAS,CAAC,6CAAI,6CAAI,0EAAU,yEAAnB,CADpB;AAGA,sCAAmB,CAAC,UAAW,2CAAG,gBAAW,sBAAgB,uBAA1C;aALrB;WANF;;OALJ;AAsBA,WAAM,EAAG,GAAE,IAAF;AACT,UAAI,uBAAiB,GAAE,CAAvB,EACE,KAAM,EAAG,GAAE,uBADb;AAGA,UAAK;AACL,WAAM;AACN,UAAI,eAAU,KAAE,4CAAhB;AAEE,aAAI,IAAK,GAAL,CAAU,QAAV,CAAU,EAAd;AAEE,cAAO,CAAF,CAAE,GAAI,CAAJ,CAAO,KAAG,CAAjB;AAEE,qBAAS,QAAO,OAAO,CAAC,iBAAD;AACvB,uBAAM,gCAAM,CAAuB,CAAtB,QAAG,CAAO,CAAN,CAAM,GAAF,CAAF,GAAM,OAAF,CAAK,GAAE,GAAd,CAAmB,GAAE,EAAF,CAAK,GAAE,EAAE,EAAJ,CAA8B,CAAtB,QAAG,CAAO,CAAN,CAAM,GAAF,CAAF,GAAM,OAAF,CAAK,GAAE,GAAd,CAAmB,GAAE,EAAF,CAAK,GAAE,EAAE,EAAnE,CAAZ;AACA,uBAAM,gCAAM,CAAuB,CAAtB,QAAG,CAAO,CAAN,CAAM,GAAF,CAAF,GAAM,OAAF,CAAK,GAAE,GAAd,CAAmB,GAAE,EAAF,CAAK,GAAE,EAAE,EAAJ,CAA8B,CAAtB,QAAG,CAAO,CAAN,CAAM,GAAF,CAAF,GAAM,OAAF,CAAK,GAAE,GAAd,CAAmB,GAAE,EAAF,CAAK,GAAE,EAAE,EAAnE,CAAZ;AAEA,qCAAoB,CAAC,UAAW,2CAAG,gBAAW,sBAAgB,wBAAkB;;;;iBAAG;;;;gBAA/D;AACpB,gBAAG,CAAH;AAEE,kBAAG,EAAH,EACE,SAAS,WAAS,CAAC,6CAAI,6CAAI,0EAAU,yEAAnB,CADpB;AAGA,sCAAmB,CAAC,UAAW,2CAAG,gBAAW,sBAAgB,uBAA1C;aALrB;WAPF;;OAJJ;AA/GmD;AAvEF;AAGnD;AAAG;AACH;AACA;AACA;AAAK;AAAI;AAAK;AAAG;AAAG;AACpB;AAAG;AACH;AACA;AAAG;AAEH,UAAG,CAAI,gBAAU,aAAjB,EACE,MADF;AAGA,gBAAK,iBAAY,CAAC,+CAAD,CAAjB;AACA,iBAAM,mBAAc,CAAC,0CAAD,CAApB;AACA,WAAM,cAAS,CAAC,0CAAD,CAAI,GAA2B,CAAxB,gBAAU,QAAO,OAAO,GAAE,CAAF,CAA3B;AAEnB,UAAI,gBAAU,gBAAgB,GAAE,CAAhC;AACE,cAAO,gBAAU;AAEjB,kBAAO,UAAK,CAAC,EAAG,GAAM,CAAH,EAAG,GAAE,GAAF,CAAV,CAAkB,GAAE,CAAF;AAEhC,eAAS,MAAK,OAAO,CAAC,gBAAU,UAAX;AAErB,UAAK;AACL,WAAM;AACD;AAEH,WAAM,EAAe,GAAL,CAAJ,GAAI,GAAE,CAAF,CAAP,GAAc,GAAF;AACrB,WAAI,IAAK,GAAL,CAAU,QAAV,CAAU,EAAd;AAEE,YAAc,CAAV,eAAU,KAAE,4CAAF,CAAS,IAA+B,CAAhB,CAAV,eAAU,KAAE,mDAAF,CAAgB,IAAe,CAAP,CAAF,CAAE,GAAI,CAAJ,CAAO,KAAE,CAAF,CAAf,CAAtD;AAEE,gBAAW,CAAH,OAAG,GAAE,IAAF,CAAQ,GAAkB,UAAL,CAAT,CAAS,GAAL,GAAF,GAAS,EAAF,CAAK,GAAI,CAAJ,CAAlB;AACnB,cAAK,qBAAQ,CAAC,CAAD;AACb,qBAAM,SAAS,kBAAkB,CAAC,EAAG,2CxC7sByC,MAA4D,IwC6sBzG,CAAjC;AAEA,cAAK,CAAC;AACN,cAAI,CAAE,KAAE,EAAR;AAEE,gBAAK,CAAE,GAAE,UAAK,CAAC,EAAE,GAAI,GAAE,GAAT,CAAP;WAEJ,UAAI,CAAE,KAAE,EAAR;AAEH,gBAAK,CAAE,GAAE,UAAK,CAAC,EAAE,GAAI,GAAE,IAAT,CAAP;WAFJ;AAKL,cAAK,EAAE,EAAO,GAAF,CAAF,GAA2B,CAAb,CAAJ,CAAH,EAAG,GAAE,CAAF,CAAI,GAAO,CAAJ,GAAI,GAAE,CAAF,CAAP,CAAa,GAAE,QAAG,CAAC,GAAD,CAAL,CAAvB;AAId,cAAU,CAAL,EAAE,EAAG,GAAE,CAAF,CAAI,GAAuB,CAAb,CAAJ,CAAH,EAAG,GAAE,CAAF,CAAI,GAAO,CAAJ,GAAI,GAAE,CAAF,CAAP,CAAa,GAAE,QAAG,CAAC,GAAD,CAAL,CAAvB;AAEd,qBAAM,+BAAK,CAAC,CAAE,GAAO,CAAJ,GAAI,GAAE,CAAF,CAAP,CAAa,CAAE,GAAO,CAAJ,GAAI,GAAE,CAAF,CAAP,CAAa,CAAE,GAAO,CAAJ,GAAI,GAAE,CAAF,CAAP,CAAa,CAAE,GAAO,CAAJ,GAAI,GAAE,CAAF,CAAvD,CAAX;AACA,cAAK,EAAE,MAAkD,GAAnB,CAAX,CAAT,EAAE,MAAO,GAAE,EAAE,KAAJ,CAAW,GAAE,CAAF,CAAxB,GAAsC,CAAN,EAAE,GAAI,GAAE,CAAF,CAAT,GAAgB,CAAF;AACzD,cAAK,EAAE,OAAmD,GAAnB,CAAV,CAAV,EAAE,OAAQ,GAAE,EAAE,IAAJ,CAAU,GAAE,CAAF,CAAxB,GAAsC,CAAN,EAAE,GAAI,GAAE,CAAF,CAAT,GAAgB,CAAF;AAE1D,iCAAkB,CAAC,UAAW,4CAAI,EAAG;;;;eAAG;;;;cAAtB;AAClB,cAAG,CAAH;AAEE,gBAAG,EAAH,EACE,SAAS,SAAS,CAAO,yCAAN,gCAAM,CAAC,EAAG,CAAJ,GAAQ,ExCttB0B,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CwCstBrK,CADpB;AAGA,kCAAiB,CAAC,UAAW,4CAAI,CAAhB;WALnB;SA3BF;;AAhC+C;AAzWH;AAGhD;AACA;AACA;AAAG;AAEH,UAAG,CAAI,gBAAU,UAAjB,EACE,MADF;AAGA,UAAG,QAAH;AACE,YAAK;AAEL,gBAAK;AAEP,gBAAK,iBAAY,CAAC,+CAAD,CAAjB;AACA,gBAAK,gBAAW,CAAC,UAAW,0CAAZ,CAAhB;AAEA,UAAK;AACL,WAAM;AACD;AAEH,eAAS,MAAK,OAAO,CAAC,eAAD;AACrB,eAAS,QAAO,OAAO,CAAC,iBAAD;AACvB,eAAS,MAAK,OAAO,CAAC,eAAD;AAErB,2BAAgB,CAAC,UAAW,2CAAG,SAAI;;;;WAAG;;;;UAAtB;AAChB,UAAG,CAAH;AAEE,YAAG,EAAH;AAEE,mBAAS,gBAAc,CAAC,2CxC5aiE,6EwC4alE;AACvB,mBAAS,WAAS,CAAC,2CAAG,EAAG,MAAO,qEAAW,qExC9UyL,sEAA0B,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CwC6UtJ;SAHpB;AAKA,4BAAe,CAAC,UAAW,2CAAG,QAAf;OAPjB;AA3B8C;AA+EG;AAGnD;AACA;AAAI;AAAI;AAAI;AAAI;AAChB;AAAI;AAAI;AACR;AACA;AAAG;AAAG;AAAG;AACT;AACA;AAAG;AAEH,gBAAK,iBAAY,CAAC,+CAAD,CAAjB;AACA,iBAAM,mBAAc,CAAC,0CAAD,CAApB;AACA,WAAM,cAAS,CAAC,0CAAD;AAEf,UAAG,cAAQ,MAAX;AAEE,YAAK;AACL,YAAK,CAAE,GAAuB,CAApB,cAAQ,YAAY,GAAM,CAAH,EAAG,GAAE,EAAF,CAAN,CAAvB;AACP,qBAAS;OAGT,UAAK,IAAI;AAEX,6BAAU,CAAC,EAAG;;;;WAAG;;;;WAAG;;;;WAAG;;;;UAAb;AACV,iBAAM,CAAE,GAAE,EAAV;AAEA,UAAG,cAAQ,MAAX;AAEE,YAAG,CAAE,KAAG,aAAR;AAEE,0BAAY;AACZ,8BAAe,CAAC,UAAD;AACf,cAAI,CAAE,KAAG,aAAT;AAEE,4BAAY;AACZ,gCAAe,CAAC,UAAD;AACf,gBAAI,CAAE,KAAG,cAAT;AAEE,+BAAa;AACb,gCAAa,CAAC,UAAD;aAHf;WAJF;AAUA,4BAAa,CAAC,UAAD;SAdf;OAFF;AAoBK;AAEE;AACH,WADG,IACH,2DAAQ,CADL,IACK,4DAAR,IAAqB,CADlB,IACkB,4DAArB;AAEE,YAAG,mBAAa,KAAE,sDAAlB;AACE,eAAM;AAEN,mBAAM;AAER,iBAAS,QAAO,OAAO,CAAC,wBAAD;AACvB,mBAAM,gCAAM,CAAC,UAAK,CAAC,EAAE,EAAO,GAAF,CAAF,GAAmD,CAA5C,QAAG,CAAuB,CAAd,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAS,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,CAAc,GAAE,OAAF,CAAK,GAAE,GAA9B,CAAyC,GAAH,EAAF,GAAO,EAAF,CAAzD,EAAqE,CAAL,EAAE,EAAG,GAAE,CAAF,CAAI,GAAgD,CAA7C,CAAC,QAAG,CAAuB,CAAd,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAS,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,CAAc,GAAE,OAAF,CAAK,GAAE,GAA9B,CAAyC,GAAH,EAAF,GAAO,EAAF,CAA/H,CAAZ;AACA,mBAAM,gCAAM,CAAC,UAAK,CAAqD,CAAP,CAA5C,QAAG,CAAuB,CAAd,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAS,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,CAAc,GAAE,OAAF,CAAK,GAAE,GAA9B,CAAyC,GAAH,EAAF,GAAO,IAAF,CAAO,GAAE,EAAE,EAAJ,CAAO,GAAC,CAA7D,EAA+G,CAA7C,CAAC,QAAG,CAAuB,CAAd,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAS,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,CAAc,GAAE,OAAF,CAAK,GAAE,GAA9B,CAAyC,GAAH,EAAF,GAAO,IAAF,CAAc,GAAL,EAAE,EAAJ,GAAS,CAArI,CAAZ;AACA,iBAAS,WAAS,CAAC,6CAAI,6CAAI,0EAAU,yEAAnB;AAElB,iBAAS,QAAO,OAAO,CAAC,0BAAD;AACvB,mBAAM,gCAAM,CAAC,UAAK,CAAC,EAAE,EAAG,GAA+B,CAA5B,QAAG,CAAO,CAAN,CAAM,GAAF,CAAF,GAAM,OAAF,CAAK,GAAE,GAAd,CAAyB,GAAH,EAAF,GAAO,EAAF,CAArC,EAAiD,CAAL,EAAE,EAAG,GAAE,CAAF,CAAG,GAAgC,CAA7B,CAAC,QAAG,CAAO,CAAN,CAAM,GAAF,CAAF,GAAM,OAAF,CAAK,GAAE,GAAd,CAAyB,GAAH,EAAF,GAAO,EAAF,CAA1F,CAAZ;AACA,mBAAM,gCAAM,CAAC,UAAK,CAA8B,CAA5B,QAAG,CAAO,CAAN,CAAM,GAAF,CAAF,GAAM,OAAF,CAAK,GAAE,GAAd,CAAyB,GAAH,EAAF,GAAO,IAAF,CAAO,GAAE,EAAE,EAAzC,EAA4E,CAA7B,CAAC,QAAG,CAAO,CAAN,CAAM,GAAF,CAAF,GAAM,OAAF,CAAK,GAAE,GAAd,CAAyB,GAAH,EAAF,GAAO,IAAF,CAAc,GAAL,EAAE,EAAJ,GAAS,CAAlG,CAAZ;AACA,iBAAS,WAAS,CAAC,6CAAI,6CAAI,0EAAU,yEAAnB;AAElB,iBAAS,QAAO,OAAO,CAAC,kBAAD;AACvB,mBAAM,gCAAM,CAAC,UAAK,CAAC,EAAE,EAAG,GAA+C,CAA5C,QAAG,CAAuB,CAAd,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAS,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,CAAc,GAAE,OAAF,CAAK,GAAE,GAA9B,CAAyC,GAAH,EAAF,GAAO,EAAF,CAArD,EAA4D,EAAE,EAAG,GAAgD,CAA7C,CAAC,QAAG,CAAuB,CAAd,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAS,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,CAAc,GAAE,OAAF,CAAK,GAAE,GAA9B,CAAyC,GAAH,EAAF,GAAO,EAAF,CAAvH,CAAZ;AACA,mBAAM,gCAAM,CAAC,UAAK,CAA8C,CAA5C,QAAG,CAAuB,CAAd,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAS,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,CAAc,GAAE,OAAF,CAAK,GAAE,GAA9B,CAAyC,GAAH,EAAF,GAAO,GAAF,CAAM,GAAE,EAAE,EAAxD,EAA2G,CAA7C,CAAC,QAAG,CAAuB,CAAd,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAS,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,CAAc,GAAE,OAAF,CAAK,GAAE,GAA9B,CAAyC,GAAH,EAAF,GAAO,GAAF,CAAM,GAAE,EAAE,EAA3H,CAAZ;AAEA,YAAK;AACL,aAAM;AACN,oCAAuB,CAAC,UAAW,6CAAI;;;;aAAG;;;;YAAnB;AACvB,YAAG,CAAH;AAEE,cAAG,EAAH;AAEE,qBAAS,WAAS,CAAC,6CAAI,6CxCxjBwF,+EAAyE,8EwCwjBtK;AAClB,gBAAG,mBAAa,KAAE,sDAAlB;AAEE,yBAAM,gCAAM,CAAqD,CAAnD,QAAG,CAA8B,CAAN,CAAnB,CAAF,CAAE,GAAE,EAAF,CAAmB,GAAL,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,GAAgB,EAAF,CAAM,GAAE,OAAF,CAAK,GAAE,GAArC,CAAgD,GAAH,EAAF,GAAO,GAAF,CAAM,GAAE,EAAE,EAAJ,CAA6D,CAApD,CAAC,QAAG,CAA8B,CAAN,CAAnB,CAAF,CAAE,GAAE,EAAF,CAAmB,GAAL,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,GAAgB,EAAF,CAAM,GAAE,OAAF,CAAK,GAAE,GAArC,CAAgD,GAAH,EAAF,GAAO,GAAF,CAAM,GAAE,EAAE,EAAlI,CAAZ;AACA,yBAAM,gCAAM,CAAqD,CAAnD,QAAG,CAA8B,CAAN,CAAd,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAS,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,CAAc,GAAE,EAAF,CAAM,GAAE,OAAF,CAAK,GAAE,GAArC,CAAgD,GAAH,EAAF,GAAO,GAAF,CAAM,GAAE,EAAE,EAAJ,CAA6D,CAApD,CAAC,QAAG,CAA8B,CAAN,CAAd,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAS,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,CAAc,GAAE,EAAF,CAAM,GAAE,OAAF,CAAK,GAAE,GAArC,CAAgD,GAAH,EAAF,GAAO,GAAF,CAAM,GAAE,EAAE,EAAlI,CAAZ;AACA,wBAAW,qDAAmB,QAAC;AAC/B;AACE,uBAAO,OAAO,CAAC,EAAD;AACd,uBAAO,OAAO,CAAC,EAAD;AACd,uBAAO,OAAO,CAAC,EAAD;AACd,yBAAS,MAAK,SAAC,CAAS,EAAT;AACf,yBAAS,SAAS,CAAC,QAAS,yEAAV;AALpB;AAOE,uBAAQ,eAAR,OAAQ;AAPV;aALF;WAHF;AAmBA,qCAAsB,CAAC,UAAW,4CAAZ;SArBxB;AAwBA,iBAAS,QAAO,OAAO,CAAC,oBAAD;AACvB,mBAAM,gCAAM,CAAC,UAAK,CAAC,EAAE,EAAG,GAA+B,CAA5B,QAAG,CAAO,CAAN,CAAM,GAAF,CAAF,GAAM,OAAF,CAAK,GAAE,GAAd,CAAyB,GAAH,EAAF,GAAO,EAAF,CAArC,EAA4C,EAAE,EAAG,GAAgC,CAA7B,CAAC,QAAG,CAAO,CAAN,CAAM,GAAF,CAAF,GAAM,OAAF,CAAK,GAAE,GAAd,CAAyB,GAAH,EAAF,GAAO,EAAF,CAAvF,CAAZ;AACA,mBAAM,gCAAM,CAAC,UAAK,CAA8B,CAA5B,QAAG,CAAO,CAAN,CAAM,GAAF,CAAF,GAAM,OAAF,CAAK,GAAE,GAAd,CAAyB,GAAH,EAAF,GAAO,GAAF,CAAM,GAAE,EAAE,EAAxC,EAA2E,CAA7B,CAAC,QAAG,CAAO,CAAN,CAAM,GAAF,CAAF,GAAM,OAAF,CAAK,GAAE,GAAd,CAAyB,GAAH,EAAF,GAAO,GAAF,CAAM,GAAE,EAAE,EAA3F,CAAZ;AAEA,YAAK;AACL,aAAM;AACN,sCAAyB,CAAC,UAAW,6CAAI;;;;aAAG;;;;YAAnB;AACzB,YAAG,CAAH;AAEE,cAAG,EAAH;AAEE,qBAAS,WAAS,CAAC,6CAAI,6CxCvlBwF,+EAAyE,8EwCulBtK;AAClB,gBAAG,mBAAa,KAAE,sDAAlB;AAEE,yBAAM,gCAAM,CAAoC,CAAlC,QAAG,CAAa,CAAL,CAAJ,CAAF,CAAE,GAAE,CAAF,CAAI,GAAE,CAAF,CAAK,GAAE,OAAF,CAAK,GAAE,GAApB,CAA+B,GAAH,EAAF,GAAO,GAAF,CAAM,GAAE,EAAE,EAAJ,CAA4C,CAAnC,CAAC,QAAG,CAAa,CAAL,CAAJ,CAAF,CAAE,GAAE,CAAF,CAAI,GAAE,CAAF,CAAK,GAAE,OAAF,CAAK,GAAE,GAApB,CAA+B,GAAH,EAAF,GAAO,GAAF,CAAM,GAAE,EAAE,EAAhG,CAAZ;AACA,yBAAM,gCAAM,CAAoC,CAAlC,QAAG,CAAa,CAAL,CAAJ,CAAF,CAAE,GAAE,CAAF,CAAI,GAAE,CAAF,CAAK,GAAE,OAAF,CAAK,GAAE,GAApB,CAA+B,GAAH,EAAF,GAAO,GAAF,CAAM,GAAE,EAAE,EAAJ,CAA4C,CAAnC,CAAC,QAAG,CAAa,CAAL,CAAJ,CAAF,CAAE,GAAE,CAAF,CAAI,GAAE,CAAF,CAAK,GAAE,OAAF,CAAK,GAAE,GAApB,CAA+B,GAAH,EAAF,GAAO,GAAF,CAAM,GAAE,EAAE,EAAhG,CAAZ;AACA,wBAAW,qDAAmB,QAAC;AAC/B;AACE,uBAAO,OAAO,CAAC,EAAD;AACd,uBAAO,OAAO,CAAC,EAAD;AACd,uBAAO,OAAO,CAAC,EAAD;AACd,yBAAS,MAAK,SAAC,CAAS,EAAT;AACf,yBAAS,SAAS,CAAC,QAAS,yEAAV;AALpB;AAOE,uBAAQ,eAAR,OAAQ;AAPV;aALF;WAHF;AAmBA,uCAAwB,CAAC,UAAW,4CAAZ;SArB1B;OAwBF,UAhFG,IAgFH;AAEE,iBAAS,MAAK,SAAC,CAAS,wBAAiB,OAA1B;AACf,iBAAS,QAAO,OAAO,CAAC,wBAAD;AACvB,iBAAS,QAAO,SAAC,CAAS,CAAT;AAEjB,kBAAW,qDAAmB,QAAC;AAC/B;AACE,qBAAM,gCAAM,CAAM,CAAL,EAAE,EAAG,GAAE,CAAF,CAAI,GAA+C,CAA5C,QAAG,CAAuB,CAAd,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAS,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,CAAc,GAAE,OAAF,CAAK,GAAE,GAA9B,CAAyC,GAAH,EAAF,GAAO,GAAF,CAA/C,CAA2D,CAAL,EAAE,EAAG,GAAE,CAAF,CAAI,GAAgD,CAA7C,CAAC,QAAG,CAAuB,CAAd,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAS,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,CAAc,GAAE,OAAF,CAAK,GAAE,GAA9B,CAAyC,GAAH,EAAF,GAAO,GAAF,CAAzH,CAAZ;AACA,qBAAM,gCAAM,CAAM,CAAL,EAAE,EAAG,GAAE,CAAF,CAAI,GAAoD,CAAjD,QAAG,CAA4B,CAAN,CAAlB,CAAF,CAAE,GAAE,EAAF,CAAkB,GAAJ,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,GAAe,EAAF,CAAM,GAAE,OAAF,CAAK,GAAE,GAAnC,CAA8C,GAAH,EAAF,GAAO,IAAF,CAApD,CAAiE,CAAL,EAAE,EAAG,GAAE,CAAF,CAAI,GAAqD,CAAlD,CAAC,QAAG,CAA4B,CAAN,CAAlB,CAAF,CAAE,GAAE,EAAF,CAAkB,GAAJ,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,GAAe,EAAF,CAAM,GAAE,OAAF,CAAK,GAAE,GAAnC,CAA8C,GAAH,EAAF,GAAO,IAAF,CAApI,CAAZ;AACA,qBAAM,gCAAM,CAA8C,CAA5C,QAAG,CAAuB,CAAd,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAS,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,CAAc,GAAE,OAAF,CAAK,GAAE,GAA9B,CAAyC,GAAH,EAAF,GAAO,GAAF,CAAa,GAAL,EAAE,EAAJ,GAAS,CAAF,CAAmD,CAA7C,CAAC,QAAG,CAAuB,CAAd,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAS,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,CAAc,GAAE,OAAF,CAAK,GAAE,GAA9B,CAAyC,GAAH,EAAF,GAAO,GAAF,CAAa,GAAL,EAAE,EAAJ,GAAS,CAA7H,CAAZ;AACA,qBAAM,gCAAM,CAAM,CAAL,EAAE,EAAG,GAAE,CAAF,CAAI,GAAoD,CAAjD,QAAG,CAA4B,CAAN,CAAb,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAS,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,CAAa,GAAE,EAAF,CAAM,GAAE,OAAF,CAAK,GAAE,GAAnC,CAA8C,GAAH,EAAF,GAAO,IAAF,CAApD,CAAiE,CAAL,EAAE,EAAG,GAAE,CAAF,CAAI,GAAqD,CAAlD,CAAC,QAAG,CAA4B,CAAN,CAAb,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAS,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,CAAa,GAAE,EAAF,CAAM,GAAE,OAAF,CAAK,GAAE,GAAnC,CAA8C,GAAH,EAAF,GAAO,IAAF,CAApI,CAAZ;AACA,iBAAO,OAAO,CAAC,EAAD;AACd,iBAAO,OAAO,CAAC,EAAD;AACd,iBAAO,OAAO,CAAC,EAAD;AACd,iBAAO,OAAO,CAAC,EAAD;AACd,iBAAO;AACP,mBAAS,SAAS,CAAC,QxCpnB+D,wEwConBhE;AAVpB;AAYE,iBAAQ,eAAR,OAAQ;AAZV;AAeA,iBAAS,MAAK,SAAC,CAAS,0BAAmB,OAA5B;AACf,iBAAS,QAAO,OAAO,CAAC,0BAAD;AACvB,iBAAS,QAAO,SAAC,CAAS,CAAT;AAEjB,kBAAW,qDAAmB,QAAC;AAC/B;AACE,qBAAM,gCAAM,CAAM,CAAL,EAAE,EAAG,GAAE,CAAF,CAAI,GAA+B,CAA5B,QAAG,CAAO,CAAN,CAAM,GAAF,CAAF,GAAM,OAAF,CAAK,GAAE,GAAd,CAAyB,GAAH,EAAF,GAAO,GAAF,CAA/B,CAA2C,CAAL,EAAE,EAAG,GAAE,CAAF,CAAI,GAAgC,CAA7B,CAAC,QAAG,CAAO,CAAN,CAAM,GAAF,CAAF,GAAM,OAAF,CAAK,GAAE,GAAd,CAAyB,GAAH,EAAF,GAAO,GAAF,CAAzF,CAAZ;AACA,qBAAM,gCAAM,CAAM,CAAL,EAAE,EAAG,GAAE,CAAF,CAAI,GAAsC,CAAnC,QAAG,CAAc,CAAN,CAAJ,CAAF,CAAE,GAAE,CAAF,CAAI,GAAE,EAAF,CAAM,GAAE,OAAF,CAAK,GAAE,GAArB,CAAgC,GAAH,EAAF,GAAO,IAAF,CAAtC,CAAmD,CAAL,EAAE,EAAG,GAAE,CAAF,CAAI,GAAuC,CAApC,CAAC,QAAG,CAAc,CAAN,CAAJ,CAAF,CAAE,GAAE,CAAF,CAAI,GAAE,EAAF,CAAM,GAAE,OAAF,CAAK,GAAE,GAArB,CAAgC,GAAH,EAAF,GAAO,IAAF,CAAxG,CAAZ;AACA,qBAAM,gCAAM,CAA8B,CAA5B,QAAG,CAAO,CAAN,CAAM,GAAF,CAAF,GAAM,OAAF,CAAK,GAAE,GAAd,CAAyB,GAAH,EAAF,GAAO,GAAF,CAAa,GAAL,EAAE,EAAJ,GAAS,CAAF,CAAmC,CAA7B,CAAC,QAAG,CAAO,CAAN,CAAM,GAAF,CAAF,GAAM,OAAF,CAAK,GAAE,GAAd,CAAyB,GAAH,EAAF,GAAO,GAAF,CAAa,GAAL,EAAE,EAAJ,GAAS,CAA7F,CAAZ;AACA,qBAAM,gCAAM,CAAM,CAAL,EAAE,EAAG,GAAE,CAAF,CAAI,GAAsC,CAAnC,QAAG,CAAc,CAAN,CAAJ,CAAF,CAAE,GAAE,CAAF,CAAI,GAAE,EAAF,CAAM,GAAE,OAAF,CAAK,GAAE,GAArB,CAAgC,GAAH,EAAF,GAAO,IAAF,CAAtC,CAAmD,CAAL,EAAE,EAAG,GAAE,CAAF,CAAI,GAAuC,CAApC,CAAC,QAAG,CAAc,CAAN,CAAJ,CAAF,CAAE,GAAE,CAAF,CAAI,GAAE,EAAF,CAAM,GAAE,OAAF,CAAK,GAAE,GAArB,CAAgC,GAAH,EAAF,GAAO,IAAF,CAAxG,CAAZ;AACA,iBAAO,OAAO,CAAC,EAAD;AACd,iBAAO,OAAO,CAAC,EAAD;AACd,iBAAO,OAAO,CAAC,EAAD;AACd,iBAAO,OAAO,CAAC,EAAD;AACd,iBAAO;AACP,mBAAS,SAAS,CAAC,QxCxoB+D,wEwCwoBhE;AAVpB;AAYE,iBAAQ,eAAR,OAAQ;AAZV;AAeA,iBAAS,MAAK,SAAC,CAAS,kBAAW,OAApB;AACf,iBAAS,MAAK,WAAC,CAAW,kBAAW,OAAtB;AACf,iBAAS,QAAO,OAAO,CAAC,kBAAD;AACvB,iBAAS,QAAO,SAAC,CAAS,CAAT;AAEjB,YAAK;AACL,aAAM;AACN,kBAAW,qDAAmB,QAAC;AAC/B;AACE,qBAAM,gCAAM,CAAC,EAAE,EAAG,GAA+C,CAA5C,QAAG,CAAuB,CAAd,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAS,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,CAAc,GAAE,OAAF,CAAK,GAAE,GAA9B,CAAyC,GAAH,EAAF,GAAO,GAAF,CAA/C,CAAsD,EAAE,EAAG,GAAgD,CAA7C,CAAC,QAAG,CAAuB,CAAd,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAS,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,CAAc,GAAE,OAAF,CAAK,GAAE,GAA9B,CAAyC,GAAH,EAAF,GAAO,GAAF,CAAjH,CAAZ;AACA,qBAAM,gCAAM,CAAC,EAAE,EAAG,GAAoD,CAAjD,QAAG,CAA4B,CAAN,CAAlB,CAAF,CAAE,GAAE,EAAF,CAAkB,GAAJ,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,GAAe,EAAF,CAAM,GAAE,OAAF,CAAK,GAAE,GAAnC,CAA8C,GAAH,EAAF,GAAO,IAAF,CAApD,CAA4D,EAAE,EAAG,GAAqD,CAAlD,CAAC,QAAG,CAA4B,CAAN,CAAlB,CAAF,CAAE,GAAE,EAAF,CAAkB,GAAJ,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,GAAe,EAAF,CAAM,GAAE,OAAF,CAAK,GAAE,GAAnC,CAA8C,GAAH,EAAF,GAAO,IAAF,CAA5H,CAAZ;AACA,qBAAM,gCAAM,CAA8C,CAA5C,QAAG,CAAuB,CAAd,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAS,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,CAAc,GAAE,OAAF,CAAK,GAAE,GAA9B,CAAyC,GAAH,EAAF,GAAO,GAAF,CAAM,GAAE,EAAE,EAAJ,CAAsD,CAA7C,CAAC,QAAG,CAAuB,CAAd,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAS,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,CAAc,GAAE,OAAF,CAAK,GAAE,GAA9B,CAAyC,GAAH,EAAF,GAAO,GAAF,CAAM,GAAE,EAAE,EAApH,CAAZ;AACA,qBAAM,gCAAM,CAAC,EAAE,EAAG,GAAoD,CAAjD,QAAG,CAA4B,CAAN,CAAb,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAS,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,CAAa,GAAE,EAAF,CAAM,GAAE,OAAF,CAAK,GAAE,GAAnC,CAA8C,GAAH,EAAF,GAAO,IAAF,CAApD,CAA4D,EAAE,EAAG,GAAqD,CAAlD,CAAC,QAAG,CAA4B,CAAN,CAAb,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAS,CAAL,CAAF,CAAE,GAAE,EAAF,CAAK,GAAE,CAAF,CAAT,CAAa,GAAE,EAAF,CAAM,GAAE,OAAF,CAAK,GAAE,GAAnC,CAA8C,GAAH,EAAF,GAAO,IAAF,CAA5H,CAAZ;AACA,iBAAO,OAAO,CAAC,EAAD;AACd,iBAAO,OAAO,CAAC,EAAD;AACd,iBAAO,OAAO,CAAC,EAAD;AACd,iBAAO,OAAO,CAAC,EAAD;AACd,iBAAO;AAEP,sCAAuB,CAAC,UAAW,6CAAI;;;;eAAG;;;;cAAnB;AACvB,cAAG,CAAH;AAEE,gBAAG,EAAH,EACE,SAAS,SAAS,CAAC,QxCpqB2D,wEwCoqB5D,CADpB;AAEA,uCAAsB,CAAC,UAAW,4CAAZ;WAJxB;AAZF;AAmBE,iBAAQ,eAAR,OAAQ;AAnBV;AAsBA,iBAAS,MAAK,SAAC,CAAS,oBAAa,OAAtB;AACf,iBAAS,MAAK,WAAC,CAAW,oBAAa,OAAxB;AACf,iBAAS,QAAO,OAAO,CAAC,oBAAD;AACvB,iBAAS,QAAO,SAAC,CAAS,CAAT;AAEjB,YAAK;AACL,aAAM;AACN,kBAAW,qDAAmB,QAAC;AAC/B;AACE,qBAAM,gCAAM,CAAC,EAAE,EAAG,GAA+B,CAA5B,QAAG,CAAO,CAAN,CAAM,GAAF,CAAF,GAAM,OAAF,CAAK,GAAE,GAAd,CAAyB,GAAH,EAAF,GAAO,GAAF,CAA/B,CAAsC,EAAE,EAAG,GAAgC,CAA7B,CAAC,QAAG,CAAO,CAAN,CAAM,GAAF,CAAF,GAAM,OAAF,CAAK,GAAE,GAAd,CAAyB,GAAH,EAAF,GAAO,GAAF,CAAjF,CAAZ;AACA,qBAAM,gCAAM,CAAC,EAAE,EAAG,GAAsC,CAAnC,QAAG,CAAc,CAAN,CAAJ,CAAF,CAAE,GAAE,CAAF,CAAI,GAAE,EAAF,CAAM,GAAE,OAAF,CAAK,GAAE,GAArB,CAAgC,GAAH,EAAF,GAAO,IAAF,CAAtC,CAA8C,EAAE,EAAG,GAAuC,CAApC,CAAC,QAAG,CAAc,CAAN,CAAJ,CAAF,CAAE,GAAE,CAAF,CAAI,GAAE,EAAF,CAAM,GAAE,OAAF,CAAK,GAAE,GAArB,CAAgC,GAAH,EAAF,GAAO,IAAF,CAAhG,CAAZ;AACA,qBAAM,gCAAM,CAA8B,CAA5B,QAAG,CAAO,CAAN,CAAM,GAAF,CAAF,GAAM,OAAF,CAAK,GAAE,GAAd,CAAyB,GAAH,EAAF,GAAO,GAAF,CAAM,GAAE,EAAE,EAAJ,CAAsC,CAA7B,CAAC,QAAG,CAAO,CAAN,CAAM,GAAF,CAAF,GAAM,OAAF,CAAK,GAAE,GAAd,CAAyB,GAAH,EAAF,GAAO,GAAF,CAAM,GAAE,EAAE,EAApF,CAAZ;AACA,qBAAM,gCAAM,CAAC,EAAE,EAAG,GAAsC,CAAnC,QAAG,CAAc,CAAN,CAAJ,CAAF,CAAE,GAAE,CAAF,CAAI,GAAE,EAAF,CAAM,GAAE,OAAF,CAAK,GAAE,GAArB,CAAgC,GAAH,EAAF,GAAO,IAAF,CAAtC,CAA8C,EAAE,EAAG,GAAuC,CAApC,CAAC,QAAG,CAAc,CAAN,CAAJ,CAAF,CAAE,GAAE,CAAF,CAAI,GAAE,EAAF,CAAM,GAAE,OAAF,CAAK,GAAE,GAArB,CAAgC,GAAH,EAAF,GAAO,IAAF,CAAhG,CAAZ;AACA,iBAAO,OAAO,CAAC,EAAD;AACd,iBAAO,OAAO,CAAC,EAAD;AACd,iBAAO,OAAO,CAAC,EAAD;AACd,iBAAO,OAAO,CAAC,EAAD;AACd,iBAAO;AAEP,wCAAyB,CAAC,UAAW,6CAAI;;;;eAAG;;;;cAAnB;AACzB,cAAG,CAAH;AAEE,gBAAG,EAAH,EACE,SAAS,SAAS,CAAC,QxClsB2D,wEwCksB5D,CADpB;AAGA,yCAAwB,CAAC,UAAW,4CAAZ;WAL1B;AAZF;AAoBE,iBAAQ,eAAR,OAAQ;AApBV;OAhFF;AAyGF,UAAK;AACL,WAAM;AACN,UAAG,wBAAH;AAEE,mBAAM,gCAAM,CAAC,EAAE,EAAG,GAA+B,CAA5B,QAAG,CAAO,CAAN,CAAM,GAAF,CAAF,GAAM,OAAF,CAAK,GAAE,GAAd,CAAyB,GAAH,EAAF,GAAO,GAAF,CAA/B,CAAsC,EAAE,EAAG,GAAgC,CAA7B,CAAC,QAAG,CAAO,CAAN,CAAM,GAAF,CAAF,GAAM,OAAF,CAAK,GAAE,GAAd,CAAyB,GAAH,EAAF,GAAO,GAAF,CAAjF,CAAZ;AACA,mBAAM,gCAAM,CAA8B,CAA5B,QAAG,CAAO,CAAN,CAAM,GAAF,CAAF,GAAM,OAAF,CAAK,GAAE,GAAd,CAAyB,GAAH,EAAF,GAAO,GAAF,CAAM,GAAE,EAAE,EAAJ,CAAsC,CAA7B,CAAC,QAAG,CAAO,CAAN,CAAM,GAAF,CAAF,GAAM,OAAF,CAAK,GAAE,GAAd,CAAyB,GAAH,EAAF,GAAO,GAAF,CAAM,GAAE,EAAE,EAApF,CAAZ;AACA,iBAAS,QAAO,OAAO,CAAC,oBAAD;AAEvB,sCAAyB,CAAC,UAAW,6CAAI;;;;aAAG;;;;YAAnB;AACzB,YAAG,CAAH;AAEE,cAAG,EAAH,EACE,SAAS,WAAS,CAAC,6CAAI,6CAAI,0EAAU,yEAAnB,CADpB;AAGA,sCAAuB,CAAC,UAAW,4CAAZ;SALzB;OAPF;AAgBA,UAAK;AACL,WAAM;AACN,UAAI,sBAAgB,GAAE,CAAtB;AAEE,aAAM,sBAAgB,GAAE,CAAF;AACtB,kBAAK,+BAAK,CAAC,EAAE,EAAG,GAAE,EAAF,CAAM,EAAE,EAAG,GAAE,EAAF,CAAM,EAAE,EAAG,GAAE,EAAF,CAAM,EAAE,EAAG,GAAE,EAAzC,CAAV;AACA,iBAAS,MAAK,OAAO,CAAC,sBAAD;AACrB,iBAAS,QAAO,OAAO,CAAC,wBAAD;AAEvB,oCAAuB,CAAC,UAAW,2CAAG,uBAAiB;;;;aAAG;;;;YAAnC;AACvB,YAAG,CAAH;AAEE,cAAG,EAAH;AAEE,qBAAS,cAAY,CAAC,2CAAG,wEAAJ;AAErB,mDAAa,CAAC,EAAG,wBAAiB,OAAO,GAAE,CAAF,CAAK,wBAAiB,OAAO,GAAE,CAA3D;AACb,qBAAS,MAAK,SAAC,CAAS,EAAT;AACf,qBAAS,QAAO,SAAC,CAAS,4BAAT;AACjB,qBAAS,QAAO,SAAC,CAAS,wBAAiB,OAAO,GAAE,GAAnC;AAEjB,qBAAS,cAAY,CAAC,2CAAG,wEAAJ;WATvB;AAYA,qCAAsB,CAAC,UAAW,2CAAG,sBAAf;SAdxB;OARF;AA9PiD;AAzHgB;AAInE,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,UAAW,gDAAQ,OAAQ,OAAQ,YAA1C,CADxB;AAJmE;AA3DD;AAGlE,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,UAAW,gDAAQ,MAA1B,CADvB;AAHkE;AAmDN;AAI5D,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,UAAW,gDAAQ,WAAY,gBAAiB,kBAAmB,OAAQ,YAAlF,CADtB;AAJ4D;AA3DD;AAI3D,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,UAAW,gDAAQ,WAAY,gBAAiB,iBAAvD,CADrB;AAJ2D;AA4CD;AAG1D,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,UAAW,gDAAQ,QAAS,OAAQ,YAA3C,CADpB;AAH0D;AA1DD;AAGzD,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,UAAW,gDAAQ,OAA1B,CADnB;AAHyD;AA6BD;AAGxD,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,UAAW,gDAAQ,IAAK,OAAQ,YAAvC,CADlB;AAHwD;AAzDD;AAGvD,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,UAAW,gDAAQ,GAA1B,CADjB;AAHuD;AAuEQ;AAG/D,UAAY,6BAAD,QAAX,EACE,6BAAuB,CAAC,KAAM,UAAW,uDAAc,OAAQ,YAAxC,CADzB;AAH+D;AAzDD;AAG9D,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,UAAW,sDAAlB,CADxB;AAH8D;AAgEG;AAIjE,UAAY,+BAAD,QAAX,EACE,+BAAyB,CAAC,KAAM,UAAW,uDAAc,OAAQ,YAAxC,CAD3B;AAJiE;AAzDD;AAGhE,UAAY,8BAAD,QAAX,EACE,8BAAwB,CAAC,KAAM,UAAW,sDAAlB,CAD1B;AAHgE;AAwEC;AAIjE,UAAY,+BAAD,QAAX,EACE,+BAAyB,CAAC,KAAM,UAAW,uDAAc,OAAQ,YAAxC,CAD3B;AAJiE;AA1DF;AAG/D,UAAY,8BAAD,QAAX,EACE,8BAAwB,CAAC,KAAM,UAAW,sDAAlB,CAD1B;AAH+D;AA6BA;AAG/D,UAAY,6BAAD,QAAX,EACE,6BAAuB,CAAC,KAAM,UAAW,gDAAQ,iBAAkB,OAAQ,YAApD,CADzB;AAH+D;AAzDD;AAG9D,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,UAAW,gDAAQ,gBAA1B,CADxB;AAH8D;AA0HP;AAEvD,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,KAAP,CADjB;AAFuD;AANA;AAEvD,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,KAAP,CADjB;AAFuD;AANF;AAErD,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,KAAP,CADf;AAFqD;AAkBA;AAErD,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,KAAP,CADf;AAFqD;AAutBE;AAGvD;AACA;AAAI;AACJ;AAEA;AACA,UAAG,eAAH,EACE,eADF;AAGA,mBAAQ,iBAAY,CAAC,8DAAD,CAApB;AACA,iBAAM,mBAAc,CAAC,6CAAD,CAApB;AACA,UAAK,cAAS,CAAC,6CAAD;AACd,gBAAK,gCAAM,CAAC,EAAG,CAAJ,CAAX;AAEA,UAAG,CAAI,cAAQ,MAAM,IAAG,CAAI,cAAQ,UAApC;AAEE,YAAG,eAAU,CAAC,4CAAG,6CAAI,CAAR,CAAW,IAAI,CAAI,oCAAU,CAAC,aAAS,CAAV,CAA1C;AACE,gCAAkB;AACf,kBAAG,CAAI,oCAAU,CAAC,aAAS,CAAV,CAAjB,EACH,wBAAoB,IADjB;OAJP;AAhBuD;AAyDF;AAGrD;AACA;AAAI;AACJ;AACA;AACA;AAAG;AAAG;AAAG;AAET;AACA,4BAAkB;AAClB,8BAAoB;AAEpB,UAAG,cAAQ,UAAX,EACE,MADF;AAGA,UAAG,CAAI,cAAQ,MAAf;AAEE,qBAAQ,iBAAY,CAAC,8DAAD,CAApB;AACA,mBAAM,mBAAc,CAAC,6CAAD,CAApB;AACA,YAAK,cAAS,CAAC,6CAAD;AACd,kBAAK,gCAAM,CAAC,EAAG,CAAJ,CAAX;AACA,+BAAU,CAAC,WAAM;;;;aAAG;;;;aAAG;;;;aAAG;;;;YAAhB;AAEV,YAAG,eAAU,CAAC,4CAAG,6CAAI,CAAR,CAAb;AAEE,cAAG,oCAAU,CAAC,aAAS,CAAV,CAAb;AAEE,gBAAI,CAAE,GAAE,EAAR;AACE,2BAAQ,qBAAO,CAAC,WAAO,EAAR,CAAf;AAEA,+BAAQ,qBAAO,CAAC,WAAO,CAAC,EAAT,CAAf;AAEF,8BAAa,CAAC,UAAD;AACb,8BAAa,CAAC,UAAD;;AAIb,gBAAK,aAAQ,CAAC,EAAG,CAAJ;AACb,yBAAQ,uBAAU,CAAC,EAAG,EAAG,EAAG,EAAV,CAAlB;AACA,8BAAa,CAAC,UAAD;AACb,8BAAa,CAAC,UAAD;;;AAKf,cAAK,eAAU,CAAC,EAAG,CAAJ;AACf,uBAAQ,uBAAU,CAAC,EAAG,EAAG,EAAG,EAAV,CAAlB;AACA,8BAAe,CAAC,UAAD;AACf,4BAAa,CAAC,UAAD;;OAjCjB;AAhBqD;AAhCE;AAEtD;AAAG;AAAG;AAAG;AACT;AAED;AACA,UAAG,CAAI,cAAQ,MAAM,IAAI,CAAI,cAAQ,UAArC;AAEE,YAAG,oCAAU,CAAC,aAAS,gCAAM,CAAC,EAAG,CAAJ,CAAhB,CAAuE,IAA3C,gBAAU,UAAd,IAA4B,CAAI,mBAAR,IAA2B,CAAI,qBAA5F;AACE,gCAAU,EAAV;AAEA,oCAAU,CAAV;AAEF,YAAG,iBAAY,IAAI,mBAAnB;AAEE,iCAAU,CAAC,WAAM;;;;eAAG;;;;eAAG;;;;eAAG;;;;cAAhB;AACV,cAAK,aAAQ,CAAC,EAAG,CAAJ;AACb,uBAAQ,uBAAU,CAAC,EAAG,EAAG,EAAG,EAAV,CAAlB;AACA,4BAAa,CAAC,UAAD;AACb,4BAAa,CAAC,UAAD;SAEV,UAAG,iBAAY,IAAI,qBAAnB;AAEH,iCAAU,CAAC,WAAM;;;;eAAG;;;;eAAG;;;;eAAG;;;;cAAhB;AACV,cAAK,eAAU,CAAC,EAAG,CAAJ;AACf,uBAAQ,uBAAU,CAAC,EAAG,EAAG,EAAG,EAAV,CAAlB;AACA,8BAAe,CAAC,UAAD;AACf,4BAAa,CAAC,UAAD;SANV;OAfP;AANuD;AA7GF;AAErD;AAAG;AAAG;AAAG;AAET;AACA,UAAG,cAAQ,UAAX,EACE,MADF;AAGA,UAAc,UAAV,cAAC,iCAAD,EAAY,KAAF,CAAd;AAEO;AACH,YADG,IACH;AAEE,uBAAQ,qBAAO,CAAC,WAAO,CAAR,CAAf;AACA,4BAAa,CAAC,UAAD;AACb,4BAAa,CAAC,UAAD;SAEf,UAPG,IAOH;AAEE,uBAAO,qBAAO,CAAC,WAAO,CAAC,CAAT,CAAd;AACA,4BAAa,CAAC,UAAD;AACb,4BAAa,CAAC,UAAD;SAJf;AAOF;OAhBF;AAmBK;AACH,WADG,KACH,YAAQ,CADL,KACK,QAAR;AAEE,qBAAQ,uBAAS,CAAC,WAAO,CAAR,CAAjB;AACA,4BAAe,CAAC,UAAD;AACf,0BAAa,CAAC,UAAD;OAEf,WAPG,KAOH,YAAU,CAPP,KAOO,QAAV;AAEE,qBAAQ,uBAAS,CAAC,WAAO,CAAC,CAAT,CAAjB;AACA,4BAAe,CAAC,UAAD;AACf,0BAAa,CAAC,UAAD;OAEf,UAbG,KAaH;AAEE,qBAAQ,kBAAR;AACA,+BAAU,CAAC,WAAO;;;;aAAG;;;;aAAG;;;;aAAG;;;;YAAjB;AACV,YAAG,aAAS,KAAG,CAAf,EACE,oBAAe,CAAC,UAAD,CADjB;AAGA,YAAG,aAAS,KAAG,CAAf,EACE,oBAAe,CAAC,UAAD,CADjB;AAGA,YAAG,cAAU,KAAG,CAAhB,EACE,kBAAa,CAAC,UAAD,CADf;AAGA,0BAAa,CAAC,UAAD;OAEf,UA5BG,KA4BH;AAEE,qBAAQ,uBAAU,CAAC,GAAI,EAAG,EAAG,CAAX,CAAlB;AACA,YAAG,aAAS,KAAG,CAAf,EACE,oBAAe,CAAC,UAAD,CADjB;AAGA,YAAG,aAAS,KAAG,CAAf,EACE,oBAAe,CAAC,UAAD,CADjB;AAGA,YAAG,cAAU,KAAG,EAAhB,EACE,kBAAa,CAAC,UAAD,CADf;AAGA,0BAAa,CAAC,UAAD;OAEf,UA1CG,KA0CH;AAEE,qBAAQ,qBAAO,CAAC,WAAO,CAAR,CAAf;AACA,0BAAa,CAAC,UAAD;AACb,0BAAa,CAAC,UAAD;OAEf,UAhDG,KAgDH;AAEE,qBAAQ,qBAAO,CAAC,WAAO,CAAC,CAAT,CAAf;AACA,0BAAa,CAAC,UAAD;AACb,0BAAa,CAAC,UAAD;OAJf;AA3EmD;AAp4BH;AAElD;AAEA;AACA,UAAK;AACL,UAAG,wCAAa,4BAA4B,CAAC;;;;UAAD,CAA5C;AAEE,wBAAU,MAAK,QAAC,CAAQ,kEAAR;AAChB,wBAAU,MAAK,SAAC,CAAS,CAAT;AAChB,wBAAU,UAAS,QAAC,CAAQ,kEAAR;AACpB,wBAAU,UAAS,SAAC,CAAS,CAAT;OALtB;AAQA,UAAK;AACL,UAAG,wCAAa,6BAA6B,CAAC;;;;UAAD,CAA7C;AAEE,wBAAU,eAAc,QAAC,CAAQ,oEAAR;AACzB,wBAAU,eAAc,SAAC,CAAS,CAAT;OAH3B;AAMA,UAAK;AACL,UAAG,wCAAa,2BAA2B,CAAC;;;;UAAD,CAA3C;AAEE,wBAAU,QAAO,QAAC,CAAQ,oEAAR;AAClB,wBAAU,QAAO,SAAC,CAAS,CAAT;AAClB,wBAAU,aAAY,QAAC,CAAQ,oEAAR;AACvB,wBAAU,aAAY,SAAC,CAAS,CAAT;AACvB,wBAAU,eAAc,QAAC,CAAQ,oEAAR;AACzB,wBAAU,eAAc,SAAC,CAAS,CAAT;AACzB,wBAAU,iBAAgB,QAAC,CAAQ,kEAAR;AAC3B,wBAAU,iBAAgB,SAAC,CAAS,CAAT;AAC3B,wBAAU,mBAAkB,QAAC,CAAQ,oEAAR;AAC7B,wBAAU,mBAAkB,SAAC,CAAS,CAAT;AAC7B,wBAAU,UAAS,SAAC,CAAS,CAAT;AACpB,wBAAU,UAAS,QAAC,CAAQ,oEAAR;AACpB,wBAAU,UAAS,SAAC,CAAS,CAAT;AACpB,wBAAU,YAAW,QAAC,CAAQ,oEAAR;AACtB,wBAAU,YAAW,SAAC,CAAS,CAAT;AACtB,wBAAU,UAAS,SAAC,CAAS,CAAT;AACpB,wBAAU,YAAW,QAAC,CAAQ,oEAAR;AACtB,wBAAU,YAAW,SAAC,CAAS,CAAT;AACtB,wBAAU,mBAAkB,SAAC,CAAS,EAAT;AAC7B,wBAAU,qBAAoB,SAAC,CAAS,EAAT;OArBjC;AAtBkD;AAwlCS;AAE3D;AACA,sBAAU,MAAK,QAAC,CAAQ,kEAAR;AAChB,sBAAU,MAAK,SAAC,CAAS,QAAT;AAChB,sBAAU,UAAS,QAAC,CAAQ,kEAAR;AACpB,sBAAU,UAAS,SAAC,CAAS,QAAT;AACpB,sBAAU,eAAc,QAAC,CAAQ,oEAAR;AACzB,sBAAU,eAAc,SAAC,CAAS,GAAT;AACzB,sBAAU,QAAO,QAAC,CAAQ,oEAAR;AAClB,sBAAU,QAAO,SAAC,CAAS,CAAT;AAClB,sBAAU,aAAY,QAAC,CAAQ,oEAAR;AACvB,sBAAU,aAAY,SAAC,CAAS,CAAT;AACvB,sBAAU,eAAc,QAAC,CAAQ,oEAAR;AACzB,sBAAU,eAAc,SAAC,CAAS,CAAT;AACzB,sBAAU,iBAAgB,QAAC,CAAQ,kEAAR;AAC3B,sBAAU,iBAAgB,SAAC,CAAS,CAAT;AAC3B,sBAAU,mBAAkB,QAAC,CAAQ,oEAAR;AAC7B,sBAAU,mBAAkB,SAAC,CAAS,CAAT;AAC7B,sBAAU,UAAS,SAAC,CAAS,CAAT;AACpB,sBAAU,UAAS,QAAC,CAAQ,oEAAR;AACpB,sBAAU,UAAS,SAAC,CAAS,CAAT;AACpB,sBAAU,YAAW,QAAC,CAAQ,oEAAR;AACtB,sBAAU,YAAW,SAAC,CAAS,CAAT;AACtB,sBAAU,UAAS,SAAC,CAAS,CAAT;AACpB,sBAAU,YAAW,QAAC,CAAQ,oEAAR;AACtB,sBAAU,YAAW,SAAC,CAAS,CAAT;AACtB,sBAAU,mBAAkB,SAAC,CAAS,QAAT;AAC7B,sBAAU,qBAAoB,SAAC,CAAS,QAAT;AA5B4B;AA7OV;AAAV;AAEvC,eAAU,4BAAgB,CAAC,EAAS,EAAS,EAAS,CAA5B;AAFa;AAAU;AAKE;AAAZ;AAEvC;AACA;AAAG;AAAG;AAAG;AAET,gBAAK,MAAL;AACA,UAAK,CAAC,OAAQ,GAAE,CAAC,IAAH;AACd,UAAK,CAAC,MAAO,GAAE,CAAC,KAAH;AACb,eAAU;AACV,UAAK;AACL,UAAI,CAAE,GAAE,CAAR,EACE,IAAK,CADP;AAGA,UAAI,CAAE,GAAE,CAAR,EACE,IAAK,CADP;AAGA,UAAK,CAAE,GAAE,MAAF;AACP,qBAAU,+BAAK,CAAC,CAAC,KAAM,GAAW,CAAL,CAAF,CAAE,GAAE,CAAF,CAAK,GAAE,CAAF,CAAX,CAAiB,CAAC,IAAK,GAAW,CAAL,CAAF,CAAE,GAAE,CAAF,CAAK,GAAE,CAAF,CAAX,CAAiB,CAAC,KAAsB,GAAL,CAAL,CAAF,CAAE,GAAE,CAAF,CAAK,GAAE,CAAF,CAAX,GAAkB,CAAF,CAAK,CAAC,IAAqB,GAAL,CAAL,CAAF,CAAE,GAAE,CAAF,CAAK,GAAE,CAAF,CAAX,GAAkB,CAApG,CAAf;AAjBuC;AAAY;AAfE;AAAd;AAEvC,qBAAU,gCAAM,CAAC,MAAM,KAAM,GAA+B,CAAf,CAAb,MAAM,MAAO,GAAE,MAAM,KAAR,CAAe,GAAE,CAAF,CAA/B,CAAoC,MAAM,IAAK,GAA+B,CAAd,CAAd,MAAM,OAAQ,GAAE,MAAM,IAAR,CAAc,GAAE,CAAF,CAA3F,CAAhB;AAFuC;AAAc;AAKL;AAAT;AAEvC,eAAwB,CAAb,MAAM,MAAO,GAAE,MAAM,KAAR,CAAe,GAAE,CAAF;AAFA;AAAS;AA9BE;AAAX;AAEvC;AACA;AACA;AAEA,gBAAK,+BAAK,CAAC,CAAC,EAAG,CAAC,EAAG,CAAC,EAAG,CAAC,CAAd,CAAV;AACA,qBAAU,CAAV;AACA,UAAG,CAAI,gBAAU,UAAjB,EACE,aADF;AAGA,eAAS,MAAK,aAAa,CAAC,gBAAU,UAAX;AAC3B,gBAAK,+BAAK,CAAC,EAAG,EAAG,IAAK,GAAZ,CAAV;AACA,gBAAK,SAAS,cAAc,CAAC,KAAM,2CxCj4B6C,MAA4D,IwCi4BhH,CAA5B;AACA,iBAAM,mBAAc,CAAC,+CAAD,CAApB;AACA,WAAM,cAAS,CAAC,+CAAD;AACf,OAAC,MAAD,GAAW,CAAC,MAAO,GAAI,CAAF,CAAE,GAAE,CAAF,CAAJ;AACnB,OAAC,OAAD,GAAY,CAAC,OAAQ,GAAI,CAAF,CAAE,GAAE,CAAF,CAAJ;AACrB,YAAM,KAAN,GAAe,EAAE,EAAG,GAAW,CAAR,CAAC,MAAO,GAAE,CAAF,CAAX;AACpB,YAAM,IAAN,GAAc,EAAE,EAAG,GAAE,UAAK,CAAK,CAAH,EAAG,GAAE,CAAC,OAAH,CAAY,GAAE,CAAnB,CAAP;AACnB,YAAM,MAAN,GAAgB,MAAM,KAAM,GAAE,CAAC,MAAH;AAC5B,YAAM,OAAN,GAAiB,MAAM,IAAK,GAAE,CAAC,OAAH;AAC5B,2BAAW,MAAX;AAtBuC;AAAW;AAmUF;AAEhD;AAEA,sBAAU,YAAY,CAAC,gBAAU,WAAW,QAAtB;AACtB,sBAAU,YAAY,CAAC,gBAAU,WAAW,QAAtB;AAEtB;AAPgD;AAzjCA;AAEhD;AAOA,qBAAU,GAAV;AACA,oBAAS,GAAT;AACA,gBAAI,SAAC,CAAS,EAAT;AACL,kBAAM,SAAC,CAAS,EAAT;AACP,iBAAO;AACP,4BAAkB;AAClB,8BAAoB;AACpB,0BAAe,IAAf;AAEA,yBAAe,wCAAmC,QAAC;AACnD,uBAAa,sCAAiC,QAAC;AAC/C,sBAAW,UAAX,GAAyB;AACzB,oBAAS,UAAT,GAAuB;AAEvB,yBAAe,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,sBAAW,WAAC,CAAU,cAAQ,MAAlB;AACZ,sBAAW,YAAC,CAAY,GAAZ;AACZ,sBAAW,SAAX,GAAuB;AAEvB,yBAAe,6DAA2B,QAAC,YAAM,CAAC,IAAD,CAAN;AA5B0B;AAArB;AA+BA;AAEpC,eAAZ,KAAY;AACA,eAAZ,KAAY;AACF,eAAV,KAAU;AACE,eAAZ,KAAY;AACZ;AANgD;AAlEF;AAE9C,UAAc,oCAAH,eAAP,MAAO,CAAX;AAEE,sBAAS,OAAO,CAAS,OAAP,OAAU,8BAAH,CAA6B,UAAtC;AAChB,wBAAW,OAAO,CAAS,OAAP,OAAU,oCAAH,CAAmC,YAA5C;AAClB,qBAAiB,OAAP,OAAU,oCAAH,CAAmC;AACpD,mBAAe,OAAP,OAAU,oCAAH,CAAmC;OAGlD;AAV4C;AAwhCI;AAElD,4BAAkB;AAClB,8BAAoB;AAH8B;AA4bH;AAAR;AAEvC,eAAU,UAAK,CAAC,eAAU,CAAC,EAAG,CAAJ,CAAO,GAAE,CAApB;AACf,UAAI,MAAO,IAAG,CAAd;AAEE,YAAG,QAAH;AACE,mBAAU;AAEV,uBAAU;;AAIZ,YAAG,CAAI,QAAP,EACE,SAAU,MAAO,GAAE,EADrB;AAEA,YAAI,MAAO,KAAE,EAAb,EACE,SAAU,CADZ;;AAdqC;AAAQ;AAmBE;AAAV;AAEvC;AACA;AACA;AAAG;AAAG;AAEN,gBAAK,iBAAY,CAAC,8DAAD,CAAjB;AACA,iBAAM,mBAAc,CAAC,0CAAD,CAApB;AAEA,UAAK,QAAG,CAAC,EAAE,EAAG,GAAE,CAAR;AACR,UAAK,QAAG,CAAC,EAAE,EAAG,GAAE,CAAR;AACR,UAAI,CAAE,KAAE,CAAR,EACE,IAAK,CADP;AAGA,UAAI,CAAE,KAAE,CAAR,EACE,IAAK,CADP;AAGA,UAAmB,CAAd,SAAM,CAAC,CAAE,GAAE,CAAL,CAAQ,GAAE,GAAF,CAAK,GAAC,OAAD;AACxB,UAAK,CAAE,GAAE,CAAF;AACP,eAAU,UAAK,CAAC,CAAD;AAEf,UAAM,CAAF,CAAE,IAAG,EAAE,EAAL,CAAS,IAAO,CAAF,CAAE,IAAG,EAAE,EAAL,CAAtB;AACE,iBAAU,MAAO,GAAE,EAAF;AACd,gBAAM,CAAF,CAAE,IAAG,EAAE,EAAL,CAAS,IAAO,CAAF,CAAE,IAAG,EAAE,EAAL,CAAtB;AAEH,iBAAU,EAAG,GAAE,MAAF;AACb,iBAAU,MAAO,GAAE,EAAF;OAEd,UAAM,CAAF,CAAE,IAAG,EAAE,EAAL,CAAS,IAAO,CAAF,CAAE,IAAG,EAAE,EAAL,CAAtB;AACH,iBAAU,MAAO,GAAE,EAAF;AACd,gBAAM,CAAF,CAAE,IAAG,EAAE,EAAL,CAAS,IAAO,CAAF,CAAE,IAAG,EAAE,EAAL,CAAtB,EACH,SAAU,EAAG,GAAE,MADZ;AAGL,UAAW,CAAP,MAAO,GAAE,CAAF,CAAK,IAAW,CAAP,MAAO,IAAG,EAAH,CAA3B,EACE,SAAU,CADZ;AAjCuC;AAAU;AAnsDlB;;;;;;;;AAqHX,+BAAO,UxHuQjB,+BwHvQiB,CAAP;AArHW;AAgIN;;;;;;;;;AAEV,4B1CkdI,+D0CldJ;AACE,8B1C6lBI,iE0C7lBJ;AACI,kCAhRc,kDAgRd;AACC;AACH,gCAhLc,gDAgLd;AACJ,4BjI/PV,0BiI+PU;AACC,6BAtRc,6CAsRd;AACK,kC1CqhBM,uE0CrhBN;AACD,iCpHlIR,6CoHkIQ;AACM,uCAhJiB,0DAgJjB;AACA,uCAhJiB,0DAgJjB;AACF,qCAhJiB,wDAgJjB;AACA,qCAhJiB,wDAgJjB;AACS,8CApKsB,sEAoKtB;AACD,6CApKsB,qEAoKtB;AACD,4CApKiB,+DAoKjB;AACD,2CApKiB,8DAoKjB;AACD,0CApKiB,6DAoKjB;AACD,yCApKiB,4DAoKjB;AACD,wCApKiB,2DAoKjB;AACD,uCApKiB,0DAoKjB;AACQ,+CApKiB,kEAoKjB;AACD,8CApKiB,iEAoKjB;AACG,iDApKiB,oEAoKjB;AACD,gDApKiB,mEAoKjB;AACC,iDApKiB,oEAoKjB;AACD,gDApKgB,kEAoKhB;AACD,+CApKiB,kEAoKjB;AACD,8CApKiB,iEAoKjB;AA9BR;;AApT3B,GAqVc,8BArVd;ACAA,4CAIS,sQAJT;;;;AAmBS,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AAaW;;AAEyB,qGAAmB,UlI0E1D,2BkI1E0D,EAAgB,SlIuB5E,yBkIvB4E,CAAnC;AAEjB;;;AAE3B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAV2B;;;;;;;;AAoWwB;AAErD,UAAG,2BAAuB,IAAiB,CAAZ,eAAI,CAAC,KAAD,CAAQ,KAAE,GAAF,CAA3C;AACE,wBAAW,EAAX;AAEA,4BAAW,2BAAc,CAAC,iBAAY,KAAb,CAAzB;AAEF,0BAAgB;AAChB;AARqD;AA7CgB;AAGrE,wBAAa,YAAW,OAAO,CAAC,KAAD;AAHsC;AAqCxB;AAE7C,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;OAFX;AAF6C;AAmBM;AAEnD,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf,wBAAW,2BAAc,CAAC,iBAAY,sBAAb,CAAzB;AACA;OAJF;AAFmD;AAvEW;AAG9D,UAAG,2BAAuB,KAAG,KAA7B;AAEE,sCAA0B;AAC1B,YAAG,2BAAuB,IAAwB,CAAnB,eAAI,CAAC,sBAAD,CAAe,KAAE,GAAF,CAAlD;AACE,0BAAW,EAAX;AAEA,8BAAW,2BAAc,CAAC,iBAAY,sBAAb,CAAzB;AAEF;OARF;AAH8D;AA3FV;AAAf;AAErC,eAAU,kBAAa;AAFc;AAAe;AAVgB;AAA/B;AAErC,eAAU,kBAAa;AAFc;AAA+B;AAsCb;AAAlB;AAErC,eAAU,gBAAY,KAAG,UAAH;AAFe;AAAkB;AA+FX;AAG5C,kBAAK,aAAa,CAAC,KAAD;AAH0B;AA3OQ;AAEpD;AACA;AACA,kBAAI,UAAC,CAAU,sCAAY,UAAU,CAAC,YAAI,SAAS,EAAG,CAAjB,CAAhC;AAQL;AAZoD;AAiGJ;AAEhD;AAFgD;AA+HC;AAEjD;AACA,UAAG,2BAAuB,IAAwB,CAAnB,eAAI,CAAC,iBAAD,CAAe,KAAE,GAAF,CAAlD;AACE,wBAAW,EAAX;AAEA,4BAAW,2BAAc,CAAC,iBAAY,iBAAb,CAAzB;AAEF;AARiD;AA4EG;AAEpD;AAEA;AACA,UAAG,KAAM,KAAE,EAAX;AAEE,YAAI,GAAI,KAAG,iBAAX;AAEE,4BAAa,QAAC,CAAQ,GAAR;AACd;SAHF;OAMG,UAAG,yBAAY,CAAC,MAAO;;;;UAAR,CAAf;AAEH,YAAI,eAAI,CAAC,CAAD,CAAI,KAAG,sBAAf;AAEE,4BAAa,QAAC,CAAQ,eAAI,CAAC,CAAD,CAAZ;AACd;SAHF;OAFG;AAb+C;AA3JR;AAE5C;AACA,wBAAa,SAAC,CAAS,UAAK,CAAC,mBAAD,CAAd;AACd,wBAAa,UAAC,CAAU,UAAK,CAAC,oBAAD,CAAf;AAJ8B;AAgGU;AAEtD;AACe,wEAAf,GAAyC,sCAAkB,MAAK;AACjD,0EAAf,GAA2C,sCAAkB,QAAO;AACrD,yEAAf,GAA0C,sCAAkB,MAAK;AAClD,2EAAf,GAA4C,sCAAkB,QAAO;AACtD,gFAAf,GAAiD,yCAAO,CAAC,sCAAkB,MAAK,QAAQ,EAAhC;AACzC,kFAAf,GAAmD,yCAAO,CAAC,sCAAkB,QAAO,QAAQ,EAAlC;AAC3C,mFAAf,GAAoD;AACrC,iFAAf,GAAkD;AACnC,uEAAf,GAAwC,YAAI;AAXU;AA/CD;AAErD;AACA,UAAY,aAAD,QAAX,EACE,aAAQ,gBAAC,CAAgB,sBAAhB,CADX;AAEA,UAAY,kBAAD,QAAX,EACE,kBAAa,gBAAC,CAAgB,sBAAhB,CADhB;AALqD;AAxEA;AAErD;AAEA;AACA,UAAG,cAAmC,IAAd,CAAC,UAAI,QAAL,SAAZ,IAA8B,UAAI,SAA9C;AAEE,YAAK;AACL,YAAG,yBAAY,CAAC,UAAI,QAAC,GAAM;;;;YAAZ,CAAf,EACE,qBAAgB,CAAhB,CADF;OAHF;AAOA,wBAAa;AACb,wBAAa,SAAC,CAAS,UAAK,CAAC,mBAAD,CAAd;AACd,wBAAa,UAAC,CAAU,UAAK,CAAC,oBAAD,CAAf;AACd,wBAAa,MAAK,OAAO,CAAC,sCAAkB,MAAnB;AAf4B;AA1DJ;AAGjD;AAEA;AACA,UAAG,CAAI,cAAP;AAEE,iBAAS,MAAK,aAAa,CAAC,YAAD;AAE3B,YAAG,CAAI,aAAP,EACE,SAAS,MAAK,SAAC,CAAS,QAAT,CADjB;AAGA,kBAAK,KAAL;AACA,+CAAa,CAAC,EAAG,CAAC,EAAG,CAAC,CAAT;AACb,iBAAS,WAAS,CAAC,2CAAG,kBzCiHmD,MAAoD,sEAAuD,qEAAoD,sEAA0B,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,CyClH1J;OATpB;AANiD;AAgGK;AAEtD;AAAG;AAAG;AAAG;AAET;AACA,6BAAU,CAAC,uBAAc;;;;WAAG;;;;WAAG;;;;WAAG;;;;UAAxB;AACV,wBAAa,QAAC,CAAQ,uBAAU,CAAC,EAAG,EAAG,EAAG,CAAV,CAAlB;AACd;AAPsD;AAUD;AAErD;AAAG;AAAG;AAAG;AAET;AACA,6BAAU,CAAC,uBAAc;;;;WAAG;;;;WAAG;;;;WAAG;;;;UAAxB;AACV,wBAAa,QAAC,CAAQ,uBAAU,CAAC,EAAG,GAAI,EAAG,CAAX,CAAlB;AACd;AAPqD;AAUA;AAErD;AACA,wBAAa,QAAC,CAAQ,uBAAS,CAAC,uBAAc,CAAf,CAAjB;AACd;AAJqD;AAOI;AAEzD;AACA,wBAAa,QAAC,CAAQ,uBAAS,CAAC,uBAAc,CAAC,CAAhB,CAAjB;AACd;AAJyD;AAjGb;AAE5C;AACA,UAAG,eAAK,QAAR,EACE,eADF;AAH4C;AAPE;AAE9C;AACA,UAAG,CAAI,eAAK,QAAZ,EACE,eADF;AAH8C;AA3BI;AAElD,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,sBAAP,CADhB;AAGA;AALkD;AAoOA;AAElD,UAAG,cAAS,IAAI,UAAI,YAApB,EACE,wBAAmB,IADrB;AAGA,UAAG,sBAAH,EACE,eADF;AAGA,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,KAAP,CADhB;AAGA,2BAAgB,KAAhB;AAEA;AAbkD;AAvKH;AAAV;AAErC,eAAU,4BAAgB,CAAC,EAAS,EAAS,EAAS,CAA5B;AAFW;AAAU;AA9EI;AAAd;AAErC,sBAAY,wDAAqB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,2BAAiB,gEAAyB,QAAC,YAAM,CAAC,aAAD,CAAN;AAC3C,wBAAa,UAAC,CAAU,aAAV;AAEd,wBAAa,eAAb,GAA+B;AAE/B,eAAU;AAR2B;AAAc;AAoEG;AAAjB;AAErC,eAAU;AAF2B;AAAiB;AAvFR;AAE9C;AACA,yBAAe;AACf,+BAAqB;AACrB,oCAA0B;AAC1B,oBAAS,EAAT;AACA,qBAAS,qDAAmB,QAAC;AAC7B,kBAAK,WAAL,GAAoB;AACpB,6BAAkB,GAAlB;AACA,4BAAiB,GAAjB;AAVmE;AAArB;AA8BA;AAExC,eAAN,KAAM;AACN;AAH8C;AAnCH;AAE3C,2BAAgB,GAAhB;AAF2C;AA5Gd;;;;;;;AAkDT,+BAAO,UzHudjB,+ByHvdiB,CAAP;AAlDS;AA0DN;AAwW+B;AAEtD;AACA,+BAAa,CAAC,4BAAD;AAHyC;AAxW/B;;;;;;;AAIS;AACb;AACK;AACC;AACV,4B3C2rBI,+D2C3rBJ;AACY;AACE,0CDnEM,oFCmEN;AACN,oClIhDlB,0BkIgDkB;AACF;AACN,4BA3EM,oCA2EN;AACU,sCA1EqB,6DA0ErB;AAdF;;AAjGzB,mBAkHc;AAaQ;;;;AACO;;;;;;;;AAdf;AAlHd,GAkHc,YAlHd;ACAA,0CAWS,yQAXT;;;AAuBS,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AAae;;AAEsB,sGAAmB,UnIsE3D,2BmItE2D,EAAoB,anIkB7E,6BmIlB6E,CAAvC;AAEpB;;;AAEzB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATyB;;;;;;;;AAif4B;AAGvD;AAEA,UAAY,gBAAD,QAAX;AAEE,cAAO;AACP,wBAAW,gBAAC,CAAgB,cAAG,CAAC,KAAD,CAAnB;AAaZ,YAAY,uBAAD,QAAX;AAEE,gBAAO,eAAI,CAAC,KAAD;AACX,iCAAkB,gBAAC,CAAgB,eAAI,CAAC,GAAD,CAApB;SAHrB;AAMA,YAAY,sBAAD,QAAX;AAEE,gBAAO,eAAI,CAAC,KAAD;AACX,gCAAiB,gBAAC,CAAgB,eAAI,CAAC,GAAD,CAApB;SAHpB;AAMA,YAA6B,CAAzB,gBAAW,gBAAC,EAAa,GAAE,GAAF,CAAO,KAAG,KAAvC,EACE,sBAAiB,CAAC,KAAD,CADnB;OA5BF;AALuD;AAnJR;AAE/C,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb,YAAY,gBAAD,QAAX,EACE,gBAAW,YAAC,CAAY,KAAZ,CADd;AAGA,YAAY,uBAAD,QAAX,EACE,uBAAkB,YAAC,CAAY,KAAZ,CADrB;AAGA,YAAY,sBAAD,QAAX,EACE,sBAAiB,YAAC,CAAY,KAAZ,CADpB;OATF;AAF+C;AAyLM;AAGrD,UAAI,oBAAgB,KAAG,KAAvB;AAEE,+BAAmB;AAEjB,uBAAU,CAAC,KAAD;OAJd;AAHqD;AA1ME;AAEvD,UAAG,sBAAkB,KAAG,KAAxB;AAEE,iCAAqB;AAErB,YAAY,gBAAD,QAAX,EACE,gBAAW,kBAAX,GAAgC,KADlC;AAGA,YAAY,uBAAD,QAAX,EACE,uBAAkB,kBAAlB,GAAuC,KADzC;AAGA,YAAY,sBAAD,QAAX,EACE,sBAAiB,kBAAjB,GAAsC,KADxC;OAVF;AAFuD;AAlBK;AAG5D,UAAG,2BAAuB,KAAG,KAA7B;AAEE,sCAA0B;AAE1B,YAAY,gBAAD,QAAX,EACE,gBAAW,yBAAC,CAAyB,KAAzB,CADd;AAGA,YAAY,uBAAD,QAAX,EACE,uBAAkB,yBAAC,CAAyB,KAAzB,CADrB;AAGA,YAAY,sBAAD,QAAX,EACE,sBAAiB,yBAAC,CAAyB,KAAzB,CADpB;OAVF;AAH4D;AA1EN;AAAnB;AAEnC,eAAU;AACV,UAAY,gBAAD,QAAX;AAEE,YAAY,uBAAD,QAAX;AACE,mBAAU,gBAAW,gBAAC,EAAa,GAAE,uBAAkB,gBAAC,EAArB;AAChC,kBAAY,sBAAD,QAAX,EACH,SAAU,gBAAW,gBAAC,EAAa,GAAE,sBAAiB,gBAAC,EADpD;OAJP;AAHmC;AAAmB;AA0CZ;AAE1C;AAF0C;AA8LI;AAG9C;AACA,UAAY,gBAAD,QAAX,EACE,gBAAW,WAAC,CAAW,KAAX,CADd;AAGA,UAAY,uBAAD,QAAX,EACE,uBAAkB,WAAC,CAAW,KAAX,CADrB;AAGA,UAAY,sBAAD,QAAX,EACE,sBAAiB,WAAC,CAAW,KAAX,CADpB;AAWA;AArB8C;AAgFc;AAE5D;AACA,UAAY,gBAAD,QAAX,EACE,gBAAW,SAAC,CAAS,UAAK,CAAC,eAAM,GAAE,CAAT,CAAd,CADd;AAGA,UAAY,uBAAD,QAAX,EACE,uBAAkB,SAAC,CAAS,UAAK,CAAC,eAAM,GAAE,CAAT,CAAd,CADrB;AAGA,UAAY,sBAAD,QAAX,EACE,sBAAiB,SAAC,CAAS,UAAK,CAAC,eAAM,GAAE,CAAT,CAAd,CADpB;AAT4D;AA3PT;AAEnD;AACA,UAAY,gBAAD,QAAX,EACE,gBAAW,gBAAC,CAAgB,KAAhB,CADd;AAGA,UAAY,uBAAD,QAAX,EACE,uBAAkB,gBAAC,CAAgB,KAAhB,CADrB;AAGA,UAAY,sBAAD,QAAX,EACE,sBAAiB,gBAAC,CAAgB,KAAhB,CADpB;AATmD;AAxGH;AAGhD,4BAAiB,CAAC,0BAAD;AAH+B;AA4VA;AAIhD,4BAAiB,CAAC,0BAAD;AAJ+B;AAvTK;AAErD,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,SAAP,CADnB;AAFqD;AArJP;AAG9C;AAEA,UAAG,KAAM,KAAE,yCAAX;AAEE,YAAK;AACL,YAAY,uBAAD,QAAX;AAEE,cAAK,uBAAkB,gBAAC;AACxB,iCAAkB,UAAC,CAAU,IAAV;SAHrB;AAMA,YAAG,CAAY,CAAC,sBAAD,SAAf,EACE,yBAAqB,4DAAuB,QAAC,YAAM,CAAC,IAAD,CAAN,CAD/C;AAGA,8BAAiB,UAAC,CAAU,IAAV;AAIlB,8BAAiB,SAAC,CAAS,UAAK,CAAC,eAAM,GAAE,CAAT,CAAd;AAClB,8BAAiB,oBAAC,CAAoB,iEAApB;AAClB,8BAAiB,gBAAC,CAAgB,CAAhB;AAClB,8BAAiB,YAAC,CAAY,cAAZ;AAClB,8BAAiB,kBAAjB,GAAsC;AACtC,8BAAiB,gBAAjB,GAAoC;OAEjC,UAAG,KAAM,KAAE,0CAAX;AAEH,YAAK;AACL,YAAY,sBAAD,QAAX;AAEE,cAAK,sBAAiB,gBAAC;AACvB,gCAAiB,UAAC,CAAU,IAAV;SAHpB;AAMA,YAAG,CAAY,CAAC,uBAAD,SAAf,EACE,0BAAsB,8DAAwB,QAAC,YAAM,CAAC,IAAD,CAAN,CADjD;AAGA,+BAAkB,UAAC,CAAU,IAAV;AAInB,+BAAkB,SAAC,CAAS,UAAK,CAAC,eAAM,GAAE,CAAT,CAAd;AACnB,+BAAkB,oBAAC,CAAoB,iEAApB;AACnB,+BAAkB,gBAAC,CAAgB,CAAhB;AACnB,+BAAkB,YAAC,CAAY,cAAZ;AACnB,+BAAkB,kBAAlB,GAAuC;AACvC,+BAAkB,gBAAlB,GAAqC;OArBlC;AA5ByC;AAgMD;AAAV;AAEnC,eAAU,4BAAgB,CAAC,EAAS,EAAS,EAAS,CAA5B;AAFS;AAAU;AApBU;AAApB;AAEnC;AACA;AAEU,SAAD,sBAAC,SAAK,CAAN;AACT,UAAG,CAAY,CAAC,sBAAD,SAAf;AAEE,YAAK;AACL,+BAAkB,yCAAlB;AACA,+BAAkB,CAAlB;OAJF;AAOA,SAAG,CAAC,CAAD,CAAH,GAAU;AACV,SAAG,CAAC,CAAD,CAAH,GAAU;AACV,SAAG,CAAC,CAAD,CAAH,GAAU;AAEV,eAAU;AAjByB;AAAoB;AApGX;AAE5C;AACA,oBAAS,GAAT;AACA,qBAAU,EAAV;AACA,uBAAa;AACb,+BAAqB;AACrB,oCAA0B;AAC1B,6BAAmB;AACnB,gBAAI,SAAC,CAAS,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAA1B;AACL,kBAAM,SAAC,CAAS,mDAAiB,CAAC,IAAK,IAAK,GAAX,CAA1B;AAEP,yBAAe,gDAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,sBAAW,UAAC,CAAU,IAAV;AAIZ,sBAAW,oBAAC,CAAoB,gEAApB;AACZ,sBAAW,YAAC,CAAY,cAAZ;AAEZ,gCAAsB,8DAAwB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,6BAAkB,UAAC,CAAU,IAAV;AAInB,6BAAkB,oBAAC,CAAoB,iEAApB;AACnB,6BAAkB,YAAC,CAAY,cAAZ;AAEnB,+BAAqB;AAErB,sBAAW,gBAAX,GAA8B;AAC9B,6BAAkB,gBAAlB,GAAqC;AA/B4B;AAArB;AAwDA;AAEhC,eAAZ,KAAY;AAEZ,UAAY,uBAAD,QAAX,EACqB,SAAnB,KAAmB,qBADrB;AAGA,UAAY,sBAAD,QAAX,EACoB,SAAlB,KAAkB,oBADpB;AAWA;AAlB4C;AA3EH;AAEzC,sBAAW;AAEX,UAAY,uBAAD,QAAX,EACE,uBAAkB,QADpB;AAGA,UAAY,sBAAD,QAAX,EACE,sBAAiB,QADnB;AAPyC;AA3Id;;;;;;;;AAkDP,+BAAO,U1HmdjB,+B0HndiB,CAAP;AAlDO;AAiEN;;;;;;;;;AACW;AACb;AACQ;AAIF,sCA5EA,wCA4EA;AACE,wCnIzDlB,8BmIyDkB;AACC,yCA5EmB,8DA4EnB;AATP;;AA5GvB;ACAA,0CAIS,UAJT;;;;AA2GmC;AAEjC,QAAG,CAAI,gEAAiC,UAAQ,0BAAwB,CAAC,0EAAoC,CAAC,UAAD;eAAA,MAAC;AAAD;;QAArC,CAAxE;AAEE,6CAAgD,eAA3B,iCAA2B,QAAC,oEAAD,EAAhD;AACA,sEAAiC,UAAQ,mBAAmB,CAAC,0EAA0B,uBAA3B;KAH9D;AAFiC;AASE;AAEnC,oEAAiC,UAAQ,sBAAsB,CAAC,yEAAD;AAF5B;AApHrC,mBASc;AAYe;;AAogB0B;AAAlB;AAChC;AADkD;AAErD,uCAAqC,eAA3B,0BAAoB,QAAC,YAAM,CAAC,MAAD,CAAN,wDAAM,EAArC;AADG;AADkD;AAClD;AADkD;AAAlB;AAAkB;AAJJ;;AAhgBtB;;;AAMK;;;;;;;;AAEZ;;;AAGlB;AACA;AACA;AAEA;AACA;AACA;AATkB;;;;;;AAuLmC;AAA3B;AAE5B;AAAG;AACH;AAHuD;AAMzD;AACA;AAGE,cAAW,CAAC,wBAAD,SAA8C,IAAjB,CAAF,CAAE,KAAE,kBAAF,CAAP,IAA4B,uBAAQ,CAAC,yBAAqB,mEAA+B;;;;cAArD,CAArE,EACE,CAAC,iBAAC,CAAiB,CAAjB,CADJ;AAGA,mBAAU;AAb6C;AAGvD;AAHuD;AAA3B;AAA2B;AAbP;AAGhD,oCAAwB;AAHwB;AAMF;AAG9C,YAAG,yBAAqB,KAAE,IAA1B,EACE,4BAAyB,sDAD3B;AAH8C;AAtDN;AAAZ;AAE5B,iBAAU;AAFkB;AAAY;AA6MC;;AA3DM;;AALV;;AA8GE;;AAtNQ;;AALJ;;AAUG;;AA8JX;AAEnC,oBAAQ;AAF2B;AALY;AAE/C,gCAAoB;AAF2B;AAlCE;;AAKK;;AAVD;;AAsDR;;AAxFR;;AA6BA;AAErC,qBAAQ,CAAC,SAAD;AAF6B;AAxCA;AAErC,YAAY,gBAAD,QAAX;AAGE,cAAY,gBAAW,iBAAC,EAAb,QAAX,EACE,gBAAW,iBAAC,EAAa,UAAzB,GAAuC,KADzC;SAHF;AAFqC;AAJA;;AAlGC;;AAJH;;AA2PD;AAED,wBAAY;AAFX;AArFC;;AA4CK;;AAYE;;AAJA;;AAJD;;AA9MF;;AAyOA;;AAxKD;AAItC;AAIA,YAAW,CAAC,gBAAD,SAAoH,IAA1F,CAAkC,gBAAY,qBAAC,EAA/C,SAAZ,IAA+F,CAAZ,WAAY,KAAG,EAAH,CAAjB,IAAoC,CAAC,aAAD,SAA3I;AAEE;AACA,eAAuC,gBAAY,qBAAC;AACpD,YAAE,iBAAiB,CAAC,YAAa,yBAAd;AACnB,+BAAiB;AACjB,qCAAuB;SANzB;AARsC;AAiGG;AAGzC;AAIA,YAAW,CAAC,gBAAD,SAA4F,IAAlE,CAAkC,gBAAY,qBAAC,EAA/C,SAAZ,IAA+F,CAAZ,WAAY,KAAG,EAAH,CAAxH;AAEE,eAAuC,gBAAY,qBAAC;AACpD,YAAE,oBAAoB,CAAC,YAAa,yBAAd;AACtB,cAAG,WAAY,KAAE,kBAAjB;AAEE,iCAAiB;AACjB,uCAAuB;WAHzB;SAJF;AAPyC;AAkEK;;AAgCL;;AA3RK;AAAlB;AAE5B,iBAAU;AAFkB;AAAkB;AAgCE;AAApB;AAE5B,iBAAU;AAFkB;AAAoB;AAKK;AAAzB;AAE5B,iBAAU;AAFkB;AAAyB;AAVD;AAAxB;AAE5B,iBAAU;AAFkB;AAAwB;AAtBlB;AAAN;AAE5B,iBAAU;AAFkB;AAAM;AAoSY;AAE9C;AAAG;AAAG;AAAI;AACV;AAAK;AAAI;AACT;AACA;AAAG;AAEH;AAGA,aAAM,0BAAa,CAAC,0CAAe,IAAK,GAAI,cAAC,4CAAD,CAAzB;AACnB,aAAM,0BAAa,CAAC,GAAI,IAAK,GAAI,cAAC,4CAAD,CAAd;AACnB,aAAM,0BAAa,CAAC,GAAI,IAAK,GAAI,cAAC,4CAAD,CAAd;AACnB,YAAK,eAAgB,GAAE,EAAF;AACrB,eAAQ,WAAwB,GAAV,CAAF,GAAM,KAAF,GAAU,MAAF;AAChC,YAAG,cAAG,CAAC,YAAa,OAAd,CAAuB,KAAE,CAA/B;AAEE,eAAM;AACN,eAAM,cAAG,CAAC,YAAa,OAAd,CAAuB,GAAE,CAAF;AAChC,eAAM,eAAI,CAAC,QAAS,GAAI,cAAG,CAAC,IAAK,OAAN,CAAe,GAAE,EAAlC;AACV,eAAM,0BAAa,CAAC,GAAI,EAAG,GAAE,KAAF,CAAS,GAAI,cAAC,4CAAD,CAArB;AACnB,iBAAQ,IAAiC,GAA1B,WAAF,GAAgB,EAAF,GAAO,MAAF,GAAW,MAAF;SAGzC,aAAQ,IAA4B,GAArB,UAAF,GAAe,OAAF,GAAY,MAAF;AACtC,eAAQ,IAAK,GAAE,GAAF;AAGb,YAAK,gBAAW,iBAAC;AAGnB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAKE,YAAK;AAIP;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGE,YAAY,cAAD,QAAX,EACE,cAAc,CAAC,GAAD,CADhB;AAGA,YAAY,SAAD,QAAX,EACE,SAAS,CAAC,IAAD,CADX;AAKF;AACA;AACA;AACA;AAxFgD;AA9LL;AAAb;AAE5B,iBAAU;AAFkB;AAAa;AAoLK;AAAlB;;AAAkB;AA7ID;AAAjB;AAE5B,iBAAU;AAFkB;AAAiB;AAVJ;AAAb;AAE5B,iBAAU;AAFkB;AAAa;AA5JK;AAAlB;AACzB;AAD2C;AAE9C,uCAAU,IAAV;AADG;AAD2C;AAC3C;AAD2C;AAAlB;AAAkB;AAiKN;AAAZ;AAE5B,iBAAU;AAFkB;AAAY;AA7BA;AAAZ;AAE5B,iBAAU;AAFkB;AAAY;AAiIH;AAAT;AAE5B,iBAAU;AAFkB;AAAS;AAKG;AAAZ;AAE5B,iBAAU;AAFkB;AAAY;AAhQM;AAAlB;AAE5B,iBAAU;AAFkB;AAAkB;AAKD;AAAjB;AAE5B,iBAAU;AAFkB;AAAiB;AAVH;AAAd;AAE5B,iBAAU;AAFkB;AAAc;AAmTW;;AArBhB;AAErC,gCAAoB;AACpB,2BAAe;AAEf;AAEA,YAAY,gBAAD,QAAX,EACmC,gBAAY,cAD/C;AAPkF;AAA7C;AA/XjB;;;AA4EpB;AAhGY;AATd,GASc,iHATd;A7FAA,sCAuBS,wOAvBT;;;;AAmES,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AAQO,2BAAG;AA8DW,yCAAG;AACD,2CAAG;AACM,oDAAG;AACR,+CAAG;AACD,iDAAG;AACJ,gDAAG;AACH,gDAAG;AACL,8CAAG;AACJ,6CAAG;AACH,6CAAG;AACO,uDAAG;AAcrB;AACM;AACE;AACD;AACA;AACL;AACE;AACO;AACN;AACS;AAGD,kGAA8D,uBAA9D;AACO,yGAAmE,e+C8WrG,iD/C9WqG,EAAnE;AAEf;;AACI;;AACH;;AACM;;AA+KD;AAqBA;AA9LT;;AAGN;AACrB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEA;AAVqB;aACrB,sBACA,IAAA,sBACA,IAAA,4BACA,IAAA,0BACA,IAAA,0BACA,IAAA,8BACA,IAAA,wBACA,IAAA,4BAEA,kCARA;AAFqB;;AACrB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEA;AAVqB;;;AACrB;AACA;AACA,0BvCvIO,6BuCuIP;AACA;AACA;AACA;AACA;AACA;AAEA,2BAb2B,2CAa3B;AAVqB;AAmkBA;AAnjBU;;AAGR;AACvB;AACA;AAEA;AACA;AACA;AANuB;aACvB,wBACA,IAAA,sBAEA,IAAA,oBACA,IAAA,kCACA,oCAJA;AAFuB;;AACvB;AACA;AAEA;AACA;AACA;AANuB;;;AACvB,wBAJ+B,+CAI/B;AACA;AAEA;AACA;AACA,4BvC7JO,6BuC6JP;AANuB;AASe;;AAKV;;AAEL;;;AAEvB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAGA;AAnBuB;;;;;;;AA20G0B;AAEnD,UAAG,oBAAgB,KAAG,KAAtB,EACE,uBAAmB,KADrB;AAFmD;AAkBX;AAExC,UAAG,SAAK,KAAG,KAAX,EACE,YAAQ,KADV;AAFwC;AANO;AAE/C,UAAG,gBAAY,KAAG,KAAlB,EACE,mBAAe,KADjB;AAF+C;AA1CG;AAElD,UAAG,mBAAe,KAAG,KAArB,EACE,sBAAkB,KADpB;AAFkD;AAoCR;AAE1C,UAAG,WAAO,KAAG,KAAb,EACA,cAAU,KADV;AAF0C;AAlBU;AAEpD,UAAG,qBAAiB,KAAG,KAAvB,EACE,wBAAoB,KADtB;AAFoD;AAMP;AAE7C,UAAG,cAAU,KAAG,KAAhB,EACE,iBAAa,KADf;AAF6C;AAlBC;AAE9C,UAAG,eAAW,KAAG,KAAjB,EACE,kBAAc,KADhB;AAF8C;AAMO;AAErD,UAAG,sBAAkB,KAAG,KAAxB,EACE,yBAAqB,KADvB;AAFqD;AArCX;AAE1C;AACA,UAAkB,+BAAH,eAAX,gBAAW,CAAf,EACE,cAAsB,OAAX,iBAAc,+BAAH,CAA8B,SADtD;AAHqE;AAA3B;AAOA;AAG1C;AAH0C;AAbF;AAExC,UAAY,WAAD,QAAX,EACE,WAAM,eAAe,CAAC,IAAD,CADvB;AAFwC;AAmBD;AAEvC,UAAY,WAAD,QAAX,EACE,WAAM,cAAc,CAAC,IAAD,CADtB;AAFuC;AAMC;AAExC,UAAY,WAAD,QAAX,EACE,WAAM,eAAe,CAAC,IAAD,CADvB;AAFwC;AAvyGf;AA6BL,+BAAY,e9B2NrB,gC8B3NqB,CAAZ;AA7BK;AAmDC;;;AAKxB;AALwB;;;;;AAqsGe;AAAP;AAElC,eAA8C,YAAK,CAAC,KAAD;AAFjB;AAAO;AAeC;AAEhC,kBAAK,CAAC,MAAU,KAAX;AAF2B;AAlDO;AAAf;AAElC,eAAU;AAFwB;AAAe;AAwCP;AAAR;AAElC,eAAU;AAFwB;AAAQ;AA9CC;AAE3B,sDAAC,OAAQ,sBAAT;AAChB,sBAAU;AAHmE;AAAlC;AAxBN;AAAH;AAElC,eAA8C;AAFZ;AAAG;AA2EG;AAAN;AAElC,eAAoD,yCAAC,KAAD;AAFlB;AAAM;AAxDiB;AAEzD,iCAAsB,CAAC,+CAAD;AAFmC;AA+BP;AAAhB;AAElC;AAEA,eAAU;AACV,eAAe,KAAN,eAAM,GAAE,CAAF,EAAW,aAA1B;AAAI;AAEF,YAAG,cAAK,CAAC,CAAD,CAAG,KAAK,KAAE,IAAlB;AAEE,mBAAU,cAAK,CAAC,CAAD;AACf;SAHF;;AAPgC;AAAgB;AAfO;AAAvB;AAElC;AAEA,eAAU;AACV,eAAe,KAAN,eAAM,GAAE,CAAF,EAAW,aAA1B;AAAI;AAEF,YAAG,cAAK,CAAC,CAAD,CAAG,gBAAgB,KAAE,eAA7B;AAEE,mBAAU,cAAK,CAAC,CAAD;AACf;SAHF;;AAPgC;AAAuB;AA9BA;AAEzD;AAEA,UAAK;AACL,aAAM,CAAE,GAAE,IAAI,SAAC,EAAf;AAEE,YAAG,cAAK,CAAC,CAAD,CAAG,OAAO,KAAE,MAApB;AACE,qBAAM,CAAC,CAAD;AAEN,cAAI,CAAJ,IAAG;;AAVkD;AAzoG/B;AAYN,+BAAO,UAieJ,qCAjeI,CAAP;AAZM;AAsBC;AACzB;AACA;AACA;AACA;AAJyB;aACzB,sBACA,IAAA,oBACA,IAAA,wCACA,kCAFA;AAFyB;;AACzB;AACA;AACA;AACA;AAJyB;;;AACzB,uBAzH8B,8CAyH9B;AACA;AACA;AACA;AAJyB;AAWK;AAFI;;AAEJ;;;AAE9B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAnB8B;;;;;;;;;;AA6zGkC;AAElE,qCAA2B;AAFuC;AAnBjB;AAEjD,mBAAS;AACT,sBAAY;AACZ,4BAAkB,CAAC;AACnB,uBAAa,yCAAoC,QAAC,aEn5GL,IFm5GK;AAClD,mBAAS,uCAAa,QAAC;AAN2B;AAAD;AASA;AAEjD,UAAY,wBAAD,QAAX,EACE,uBAAU,CAAC;;;;UAAD,CADZ;AAGM,eAAN,KAAM;AACI,eAAV,KAAU;AACV;AAPiD;AA3BD;AAAR;AAExC,UAAW,2CAAH,eAAL,IAAK,CAAR;AACE,iBAAiD;AAEjD,qBAAU;AAL4B;AAAQ;AAQA;AAAR;AAExC,UAAW,2CAAH,eAAL,IAAK,CAAR;AACE,iBAAiD;AAC9C,gBAAW,2CAAH,eAAL,IAAK,CAAR;AACH,iBAAkD;AAElD,qBAAU;AAP4B;AAAQ;AAhyGhB;AAoCZ;AApCY;AA+CM;AA8yGe;AAAP;AAE9C,eAAoB;AAF0B;AAAO;AAUA;AAAP;AAE9C,eAAoB;AAF0B;AAAO;AA9BI;AAAX;AAE9C,eAAoB;AAF0B;AAAW;AAeJ;AAAP;AAE9C,eAAoB;AAF0B;AAAO;AApBG;AAAV;AAE9C,eAAoB;AAF0B;AAAU;AAUA;AAAV;AAE9C,eAAoB;AAF0B;AAAU;AAKH;AAAP;AAE9C,eAAoB;AAF0B;AAAO;AAeM;AAAb;AAE9C,eAAoB;AAF0B;AAAa;AAnzGrB;AAqBA;AA6sGqB;AAAb;AAE9C,eAAoB;AAF0B;AAAa;AA7sGrB;AAcR;AAC5B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAb4B;aAC5B,oCACA,IAAA,oCACA,IAAA,gCACA,IAAA,kCACA,IAAA,kCACA,IAAA,gCACA,IAAA,oCACA,IAAA,sCACA,IAAA,8CACA,IAAA,kDACA,IAAA,sDACA,IAAA,oCACA,oCAXA;AAF4B;;AAC5B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAb4B;;;AAC5B,8BApN+B,+CAoN/B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAb4B;AAgBG,wFAAmB,UvCzS7C,2BuCyS6C,EAAkB,WA7G3C,yCA6G2C,EAA2C,gBE5MtG,0GF4MsG,CAAhF;AACY,oGAAmB,UvC1SzD,2BuC0SyD,EAAkB,WA9GvD,yCA8GuD,EAA6C,cd9LrH,wCc8LqH,EAAlF;AACG,uGAAmB,UvC3S5D,2BuC2S4D,EAAwB,iBAhCrD,oDAgCqD,CAA3C;AACnB,oFAAmB,UvC5SzC,2BuC4SyC,EAAmB,YA5N5C,sCA4N4C,EAAtC;AACO,2FAAmB,UvC7ShD,2BuC6SgD,EAAkB,W9Byb5D,kC8Bzb4D,CAArC;AACN,qFAAmB,UvC9S1C,2BuC8S0C,EAAqB,0BAAuB,4BAA/D;AACI,yFAAmB,UvC/S9C,2BuC+S8C,EAAoB,aA5LhD,uCA4LgD,EAAwC,0BAAqB,yBAAsB,0BAAsB,yBAAhJ;AACK,8FAAmB,UvChTnD,2BuCgTmD,EAAoB,aA7LrD,uCA6LqD,EAAmC,UA/LnF,4CA+LmF,EAA4C,yBAAsB,0BAAsB,yBAAlK;AACA,8FAAmB,UvCjTnD,2BuCiTmD,EAAoB,aA9LrD,uCA8LqD,EAA2C,iCAAmB,yBAAsB,0BAAsB,yBAAjJ;AACD,6FAAmB,UvClTlD,2BuCkTkD,EAAoB,aA/LpD,uCA+LoD,EAAkC,SvCtWtG,6BuCsWsG,EAAuB,yBAAsB,0BAAsB,yBAA5I;AAET,qGAIF,mBACC,kBALC;;AAIF;AACC,uCAAa,uBAAb;AACJ;AANK;AASN,+FAIH,WACE,aACE,eACN,SACY,qBACE,uBACK,4BACD,2BACN,qBACD,oBACH,iBACN,WACA,aACA,WACA,WACC,YACH,SACA,SACD,QACM,cACF,YACG,eACA,eACK,oBACJ,gBACA,gBACK,qBACR,aACE,eACF,aACM,mBACL,eACN,SACY,qBACE,uBACK,4BACD,2BACN,oBACD,oBACJ,gBACK,qBACT,YACG,eACA,eACA,eACM,qBACD,oBACH,iBACW,0BApDb;;AAIH;AACE;AACE,mCAAa,uBAAb;AACN,6BAAa,uBAAb;AACY,yCAAa,wBAAb;AACE,2CAAa,wBAAb;AACK,gDAAa,wBAAb;AACD,+CAAa,wBAAb;AACN,yCAAY,sBAAZ;AACD,wCAAY,uBAAZ;AACH,qCAAY,sBAAZ;AACN,+BAAW,qBAAX;AACA;AACA,+BAAM,oBAAN;AACA,+BAAM,oBAAN;AACC;AACH;AACA;AACD;AACM;AACF,gCAAY,2BAAuB,iBvCrVjD,2BuCqViD,CAAnC;AACG,mCAAY,0BAAZ;AACA;AACK,wCAAe,kBAtRG,6DAsRH,CAAf;AACJ;AACA;AACK;AACR;AACE;AACF;AACM;AACL;AACN;AACY;AACE;AACK;AACD;AACN,wCAAQ,uBAAwB,kBArSrB,sDAqSqB,EAAqD,a1BzRtG,4C0ByRsG,CAArF;AACD;AACJ;AACK,2CvCzSrB,4BuCySqB;AACT;AACG;AACA;AACA;AACM;AACD;AACH;AACW;AAChB;AACM;AACJ;AACG;AACX;AACY;AACE;AACK;AACD;AA7DT;AAgEE,iGAIQ,wBACL,mBACA,oBANH;;AAIQ;AACL,uCAAK,oBAAiB,uBAAe,qBAAkB,Y9B1Q3E,6B8B0Q2E,CAAvD;AACA,yCAAK,oBAAiB,uBAAqB,e9BkKhE,4B8BlKgE,EAAmB,Y9B3QlF,6B8B2QkF,CAA9D;AANH;AASE,mGAIA,mBACY,+BACP,wBACJ,oBACA,mBARD;;AAIA;AACY;AACP;AACJ;AACA;AARD;AAWI,uGAIL,kBACC,kBACI,uBACC,sBAPD;;AAIL;AACC,sCAAY,uBAAZ;AACI;AACC,2CAAY,uBAAZ;AACT;AACK;AATG;AAYD,sGAIR,aACD,YACO,mBACJ,cAPM;;AAIR,iCAAK,mBAAL;AACD,gCAAQ,WAlVN,qCAkVM,CAAR;AACO;AACJ,mCAAM,qBAAiB,uBAAe,oBAAtC;AAPM;AAUH,mGAIE,oBACS,6BACP,sBACC,uBACH,oBACH,iBACD,gBACC,gBAXC;;AAIE,wCAAW,yBAAX;AACS,iDAAY,2BAA2B,gCAAvC;AACP,0CAAW,0BAAyB,8BAApC;AACC,2CAAQ,sBAAR;AACH;AACH,qCAAU,aA7TX,uCA6TW,CAAV;AACD,oCAAU,aA9TV,uCA8TU,CAAV;AACC,qCAAU,aA/TX,uCA+TW,CAAV;AAXC;AAcO;;AAMN,oGAIL,cACN,QACA,UACW,mBACA,qBACN,aACA,cAVM;;AAIL;AACN;AACA,8BAAe,kBAxKF,4CAwKE,CAAf;AACW,uCAAe,kBAzKb,4CAyKa,CAAf;AACA;AACN,iCAAU,yBAAwB,kBA3K1B,4CA2K0B,CAAlC;AACA,mCAAU,wBAAV;AAVM;AAaS,6GAIQ,oCACE,qCALV;;AAIQ,wDAAU,yBAAa,2BAAqB,eArYlD,qDAqYkD,CAA5C;AACE,0DAAU,wBAAV;AALV;AAQb,gGAIG,mBACF,gBACI,mBANL;;AAIG,uCAAa,UA+LjB,sCA/LiB,EAAb,EAvJJ,qCAuJI;AACF;AACI,wCAAa,UAzJnB,sCAyJmB,EAAb;AANL;AASqB;AAC3C;AACA;AACA;AAH2C;aAC3C,oBACA,IAAA,4BACA,oCADA;AAF2C;;AAC3C;AACA;AACA;AAH2C;;;AAC3C;AACA;AACA;AAH2C;AAMF;AACzC;AACA;AAFyC;aACzC,oBACA;AAFyC;;AACzC;AACA;AAFyC;;;AACzC;AACA;AAFyC;AAKO;AAChD;AACA;AACA;AAHgD;aAChD,oBACA,IAAA,4BACA,oCADA;AAFgD;;AAChD;AACA;AACA;AAHgD;;;AAChD;AACA;AACA;AAHgD;AAMF;AAC9C;AACA;AAF8C;aAC9C,oBACA;AAF8C;;AAC9C;AACA;AAF8C;;;AAC9C;AACA;AAF8C;AAKP;AACvC;AACA;AACA;AAHuC;aACvC,oBACA,IAAA,4BACA,gDADA;AAFuC;;AACvC;AACA;AACA;AAHuC;;;AACvC;AACA;AACA;AAHuC;AAMV;;AACC;;AAEU;AACxC;AACA;AACA;AACA;AAJwC;aACxC,wBACA,IAAA,oBACA,IAAA,0CACA,gDAFA;AAFwC;;AACxC;AACA;AACA;AACA;AAJwC;;;AACxC,wBAH8B,8CAG9B;AACA;AACA,iCAN6B,6CAM7B;AACA;AAJwC;AAOR;;AAGE;AAClC;AADkC;aAClC;AADkC;;AAClC;AADkC;;;AAClC,oCAJgC,gDAIhC;AADkC;AAIH;;AAES;AACxC;AACA;AACA;AACA;AACA;AACA;AANwC;aACxC,oBACA,IAAA,kCACA,IAAA,0BACA,IAAA,wCACA,IAAA,kCACA,wCAJA;AAFwC;;AACxC;AACA;AACA;AACA;AACA;AACA;AANwC;;;AACxC;AACA;AACA;AACA;AACA,6BAP+B,+CAO/B;AACA;AANwC;AASN;AAClC;AADkC;aAClC;AADkC;;AAClC;AADkC;;;AAClC;AADkC;AAIK;AACvC;AACA;AAFuC;aACvC,0BACA;AAFuC;;AACvC;AACA;AAFuC;;;AACvC;AACA;AAFuC;AAKN;AACjC;AACA;AAFiC;aACjC,oBACA;AAFiC;;AACjC;AACA;AAFiC;;;AACjC;AACA;AAFiC;AAKA;;AAEQ;AAEzC;AAFyC;;kBACzC;AADyC;;;aACzC,2BACA;AAFyC;;AACzC;AACA;AAFyC;;;AACzC,0BARiC,iDAQjC;AACA,kCAJiC,iDAIjC;AAFyC;AAKJ,8FAAmB,UvCtiBnD,2BuCsiBmD,EAAqB,UA7ElC,4DA6EkC,EAAxC;AACF,4FAAmB,UvCviBjD,2BuCuiBiD,EAAqB,UAxElC,0DAwEkC,EAAxC;AACG,+FAAmB,UvCxiBpD,2BuCwiBoD,EAAsB,e+CxHpE,gD/CwHoE,CAAzC;AACE,iGAAmB,UvCziBtD,2BuCyiBsD,EAAsB,2BAAzC;AACA,iGAAmB,UvC1iBtD,2BuC0iBsD,EAAoB,aAvcxD,uCAucwD,CAAvC;AACJ,6FAAmB,UvC3iBlD,2BuC2iBkD,EAAqB,UAvE5B,iEAuE4B,EAAxC;AACF,2FAAmB,UvC5iBhD,2BuC4iBgD,EAAqB,UAlE5B,+DAkE4B,EAAxC;AACD,0FAAmB,UvC7iB/C,2BuC6iB+C,EAAqB,UA9DlC,wDA8DkC,EAAxC;AACC,2FAAmB,UvC9iBhD,2BuC8iBgD,EAAqB,UAtDlC,yDAsDkC,EAAxC;AACN,qFAAmB,UvC/iB1C,2BuC+iB0C,EAAqB,UA7ClC,mDA6CkC,EAAxC;AACM,2FAAmB,UvChjBhD,2BuCgjBgD,EAAqB,UAxClC,yDAwCkC,EAAxC;AACN,qFAAmB,UvCjjB1C,2BuCijB0C,EAAqB,UAhClC,mDAgCkC,EAAxC;AACY,iGAAmB,UvCljBtD,2BuCkjBsD,EAAqB,UA7BzC,wDA6ByC,EAAxC;AACL,4FAAmB,UvCnjBjD,2BuCmjBiD,EAAqB,UAlBlC,0DAkBkC,EAAxC;AAyBN;;;AAE7B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAV6B;;;;;;AAkhGgC;AAAxB;AAEvC,eAAU;AACV,UAAW,CAAC,WAAD,SAAS,IAAI,WAAM,aAA9B,EACE,SAAU,WAAM,yBAAC,EADnB;AAHuC;AAAwB;AAOJ;AAApB;AAEvC,eAAU;AACV,UAAW,CAAC,WAAD,SAAS,IAAI,WAAM,aAA9B,EACE,SAAU,WAAM,qBAAC,EADnB;AAHuC;AAAoB;AAOL;AAAf;AAEvC;AAFsD;AAItD,YAAW,CAAC,WAAD,SAAS,IAAI,WAAM,aAA9B;AAEE,cAAY,WAAD,QAAX;AAEE,+BAAK,WAAM,aAAC,GAAZ;AACA,gBAAY,CAAD,QAAX,EACE,qBAAiB,CAAC,kBADpB;WAHF;SAFF;AASA,iBAAU;AAb4C;AAEtD;AAFsD;AAAf;AAAe;AAgBU;AAAzB;AAEvC,eAAU;AACV,UAAW,CAAC,WAAD,SAAS,IAAI,WAAM,aAA9B,EACE,SAAU,WAAM,0BAAC,EADnB;AAHuC;AAAyB;AA8BA;AAEhE,oCAA0B;AAC1B,UAAY,WAAD,QAAX,EACE,WAAM,0BAAC,CAAyB,KAAzB,CADT;AAHgE;AAOJ;AAE5D,gCAAsB;AACtB,UAAY,WAAD,QAAX,EACE,WAAM,qBAAC,CAAqB,KAArB,CADT;AAH4D;AAoBK;AAEjE,qCAA2B;AAC3B,UAAY,WAAD,QAAX,EACE,WAAM,0BAAC,CAA0B,KAA1B,CADT;AAHiE;AAbV;AAEvD;AAFuD;AAIvD,6BAAiB;AACjB,YAAY,WAAD,QAAX;AAEE,6BAAK,WAAM,aAAC,GAAZ;AACA,cAAY,CAAD,QAAX,EACE,CAAC,gBAAgB,CAAC,KAAD,CADnB;SAHF;AALuD;AAEvD;AAFuD;;AArCY;AAA5B;AAEvC,eAAU;AAF6B;AAA4B;AAyDC;AAEpE,wCAA8B;AAFsC;AA1GT;AAApB;AAEvC;AAF2D;AAI3D,iBAAU;AACV,YAAW,CAAC,WAAD,SAAS,IAAY,CAAC,WAAM,YAAP,SAAhC;AAEE,cAAG,WAAM,YAAY,eAAe,CAAC,yCAAqC;;;;cAAtC,CAAyC,KAAE,CAA/E,EACE,SAAU,CAAC,qBAAC,EADd;SAFF;AAL2D;AAE3D;AAF2D;AAApB;AAAoB;AA4DC;AAE5D;AAF4D;AAI5D,kCAAsB;AACtB,YAAW,CAAC,WAAD,SAAS,IAAY,CAAC,WAAM,YAAP,SAAhC;AAEE,cAAG,WAAM,YAAY,eAAe,CAAC,yCAAqC;;;;cAAtC,CAAyC,KAAE,CAA/E,EACE,CAAC,qBAAqB,CAAC,uBAAD,CADxB;SAFF;AAL4D;AAE5D;AAF4D;;AANS;AAGrE,sCAA2B,OAAO,CAAC,KAAD;AAHmC;AAnFhB;AAErD,mCAAwB,CAAC,2BAAD;AACxB,+BAAoB,CAAC,uBAAD;AACpB,oCAAyB,CAAC,4BAAD;AACzB,+BAAoB,CAAC,uBAAD;AALiC;AASL;AAEtC;AACV,2BAAiB;AACjB,gCAAsB;AACtB,oCAA0B;AAC1B,qCAA2B;AAC3B,gCAAsB;AACtB,yCAA+B,uBAAW,QAAC;AAC3C,uBAAa;AAEb,oBAAU;AAXwE;AAAlC;AAcA;AAEpB,eAA5B,KAA4B;AAC5B;AAHgD;AAhgGjB;AAmCX,+BAAO,UAoCJ,qCApCI,CAAP;AAnCW;AAuCN;;AAGG;AACK;AACD;AACJ;AACQ;AACjB;AACkB,kD9B7X1B,iC8B6X0B;AATZ;AAYH;;;AAEpB;AACA;AAHoB;AA+pFkB;AAAV;AAE9B,eAAU;AAFoB;AAAU;AAKH;AAAP;AAE9B,eAAU;AAFoB;AAAO;AAfe;AAAtB;AAE9B,eAAU;AAFoB;AAAsB;AAKR;AAAd;AAE9B,eAAU;AAFoB;AAAc;AAtBL;AAEvC,sBAAY;AACZ,mBAAS;AAHwD;AAA1B;AAMA;AAEvC,sBAAY;AACZ,mBAAS;AAHiD;AAAnB;AAMO;AAE9C,mBAAM,CAAC,8BAAwB,qBAAzB;AAFyC;AAAD;AAhpFxB;AAUF,+BAAS,wBAAO,oBAAhB;AACA,+BAAS,uBAAT;AACO;AAER;AACH;AAfM;AAkBK,kFAAmB,UvCjpBvC,2BuCipBuC,EAAiB,UAlBzC,oCAkByC,CAApC;AAEJ;;;AAErB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAKA;AACA;AACA;AAAkB;AAAyB;AAAwB;AACnE;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAtDqB;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAy8Cc;AAAN;AAE/B,UAAG,gBAAY,KAAG,IAAlB;AACE,iBAAU,gBAAW,OAAC;AAEtB,qBAAU;AALmB;AAAM;AA+iBC;AAEtC,kBAAQ;AACR,UAAY,gBAAD,QAAX;AAEE,wBAAW,OAAC,CAAO,KAAP;AACZ,YAAG,uBAAiB,IAAW,CAAN,KAAM,KAAG,EAAH,CAA/B,EACE,eADF;OAHF;AAHsC;AA/kBW;AAAlB;AAE/B,UAAG,gBAAY,KAAG,IAAlB;AACE,iBAAU,gBAAW,mBAAC;AAEtB,qBAAU;AALmB;AAAkB;AA0fC;AAElD,8BAAoB;AACpB,UAAY,gBAAD,QAAX,EACE,gBAAW,mBAAC,CAAmB,KAAnB,CADd;AAHkD;AA1gBC;AAApB;AAE/B,UAAG,gBAAY,KAAG,IAAlB;AACE,iBAAU,gBAAW,qBAAC;AAEtB,qBAAU;AALmB;AAAoB;AAQK;AAAzB;AAE/B,UAAG,gBAAY,KAAG,IAAlB;AACE,iBAAU,gBAAW,0BAAC;AAEtB,qBAAU;AALmB;AAAyB;AAucJ;AAEpD,gCAAsB;AACtB,UAAY,cAAD,QAAX,EACE,cAAQ,mBAAR,GAA+B,KADjC;AAEA,UAAY,gBAAD,QAAX,EACE,gBAAW,qBAAC,CAAqB,KAArB,CADd;AALoD;AAoDK;AAEzD,qCAA2B;AAC3B,UAAY,gBAAD,QAAX,EACE,gBAAW,0BAAC,CAA0B,KAA1B,CADd;AAHyD;AAtnBZ;AAAd;AAE/B,eAAU;AACV,UAAY,gBAAD,QAAX,EACE,SAAU,gBAAW,eAAC,EADxB;AAH+B;AAAc;AAOI;AAAlB;AAE/B,eAAU;AACV,UAAY,gBAAD,QAAX,EACE,SAAU,gBAAW,mBAAC,EADxB;AAH+B;AAAkB;AA6FD;AAAjB;AAE/B,eAAU;AACV,UAAY,gBAAD,QAAX,EACE,SAAU,gBAAW,kBAAC,EADxB;AAH+B;AAAiB;AAgcF;AAE9C,UAAY,gBAAD,QAAX,EACE,gBAAW,eAAC,CAAe,KAAf,CADd;AAF8C;AAMI;AAElD,UAAY,gBAAD,QAAX,EACE,gBAAW,mBAAC,CAAmB,KAAnB,CADd;AAFkD;AAkBD;AAEjD,UAAY,gBAAD,QAAX,EACE,gBAAW,kBAAC,CAAkB,KAAlB,CADd;AAFiD;AAZG;AAEpD,gCAAsB;AACtB,UAAG,kBAAH;AAEE,YAAG,uBAAmB,IAAI,CAAI,iBAA9B;AACE;AAEA;OALJ;AAHoD;AArcG;AAAxB;AAE/B,UAAG,gBAAY,KAAG,IAAlB;AACE,iBAAU,gBAAW,yBAAC;AAEtB,qBAAU;AALmB;AAAwB;AAogBE;AAEzD,oCAA0B;AAC1B,UAAY,gBAAD,QAAX,EACE,gBAAW,yBAAC,CAAyB,KAAzB,CADd;AAHyD;AApcd;AAAZ;AAE/B,eAAU;AACV,UAAY,gBAAD,QAAX,EACE,SAAU,gBAAW,aAAC,EADxB;AAH+B;AAAY;AAkjBC;AAE5C,UAAY,gBAAD,QAAX,EACE,gBAAW,aAAC,CAAa,KAAb,CADd;AAF4C;AA75BW;AAEvD,wBAAc;AACd,gCAAsB;AAHiC;AAo0BZ;AAE3C,oBAAS,OAAO,CAAC,KAAD;AAF2B;AA7eA;AAAZ;AAE/B;AACG;AAHwC;AAI3C,qCAAU,IAAV;AACA,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,yCAAqC;;;;cAAtC,CAAyC,KAAE,CAAxE,EACE,6BAAU,CAAV,CADF;SAFF;AAFG;AAHwC;AAE3C;AACG;AAHwC;AAAZ;AAAY;AAtGH;AAAT;AAE/B,eAAU,2CAAkB,GAAE,yCAAF;AAFG;AAAS;AAmJC;AAAV;AAE/B,eAAU,4BAAgB,CAAC,EAAS,EAAS,EAAS,CAA5B;AAFK;AAAU;AA9tBM;AAAhB;AAM/B,eAAU;AANqB;AAAgB;AArBJ;AAAZ;AAE/B,eAAU;AAFqB;AAAY;AAgBG;AAAf;AAE/B,eAAU;AAFqB;AAAe;AA+zCK;AAEnD;AAFmD;AAKnD,YAAG,sCAAiC,UAAQ,0BAAwB,CAAC,gDAAoC;mBAAC;AAAD;;YAArC,CAApE,EACE,iBAAiB,gBADnB;AALmD;AAEnD;AAFmD;;AAluCN;AAE7C;AACA,UAAY,uBAAD,QAAX,EACE,uBAAa,MAAM,YAAY,CAAC,WAAY,MAAb,CADjC;AAH6C;AA2PN;AAEvC;AACA,UAAY,gBAAD,QAAX,EACE,gBAAW,WADb;AAHuC;AAmBD;AAEtC;AACA,UAAY,gBAAD,QAAX,EACE,gBAAW,aADb;AAHsC;AANC;AAEvC,UAAY,aAAD,QAAX,EACE,aAAO,CAAC,KAAM,MAAP,CADT;AAFuC;AA/TO;AAE9C;AACA,UAAY,gBAAD,QAAX,EACE,gBAAW,eADb;AAH8C;AA+DD;;AAuEK;AAElD,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,IAAD,CADpB;AAFkD;AA/HS;AAE3D,4BAAiB,CAAC,sBAAkD,6CAlqBiE,KAkqBpH;AAF0C;AA2IV;AAEjD,UAAG,sBAAS,CAAC,0BAAa,CAAC,OAAQ,IAAK,GAAI,cAAC,4CAAD,CAAlB,CAAd,CAAkD,KAAE,UAAhE;AAEE,YAAG,sBAAH;AACE,gCAAiB,CAAC,oCAAgE,6CAhzB+C,KAgzBhH;AAEjB,4BAAU;OALd;AAFiD;AA9BA;AAEjD,UAAG,sBAAS,CAAC,0BAAa,CAAC,OAAQ,IAAK,GAAI,cAAC,4CAAD,CAAlB,CAAd,CAAiD,KAAE,SAA/D,EACE,cAAU,IADZ;AAFiD;AA0FM;AAEvD,UAAY,6BAAD,QAAX,EACE,6BAAuB,CAAC,IAAD,CADzB;AAFuD;AAjDZ;AAE3C,UAAY,iBAAD,QAAX,EACE,iBAAW,CAAC,IAAD,CADb;AAF2C;AA/CQ;AAEnD,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,WAAP,CADrB;AAFmD;AAtLL;AAG9C,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,MAAP,CADlB;AAH8C;AAq7BE;AAGhD,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,MAAP,CADpB;AAHgD;AA9HL;AAM3C,0BAAgB;AAEhB,UAAY,cAAD,QAAX,EACE,cAAQ,gBADV;AAGA,UAAW,CAAC,mBAAD,SAAgB,IAAI,CAAI,2BAAnC;AAEE,sCAA0B;AAC1B,2BAAa,CAAC,IAAD;OAHf;AAX2C;AAyaF;AAGzC,UAAY,gBAAD,QAAX,EACE,gBAAW,qBADb;AAEA;AACA;AAEA;AACA;AATyC;AAVC;AAE1C;AACA,UAAY,gBAAD,QAAX,EACE,gBAAW,gBADb;AAH0C;AAp7BE;;AAmER;AAEpC;AACA;AAEA;AACA,UAAG,kBAAH;AAEE,iBAAS,MAAK,QAAC,CAAQ,EAAR;AACf,iBAAS,MAAK,QAAC,CAAQ,YAAR;AAMf,YAAK;AACL,aAAM,SAAS,sBAAoB,CAAC,CAAD;AACnC,iBAAS,WAAS,CAAM,wCAAL,+BAAK,CAAC,oBAAe,CAAC,CAAD,EAAK,oBAAe,CAAC,CAAD,EAAK,eAAM,GAAE,oBAAe,CAAC,CAAD,CAAjB,CAAsB,EAAG,GAAE,oBAAe,CAAC,CAAD,CAAzF,GAA+F,EkDzhD9C,MAAoD,sEAAuD,qEAAoD,sEAA0B,EAC5O,CAAC,EAAwB,CAAC,EAAwD,KAA6B,MAAoB,CAAC,EAAgB,CAAE,ClDwhD1J;OAXpB;AANoC;AAsgBE;AAEtC;AACA;AACA,UAAY,gBAAD,QAAX,EACE,gBAAW,eADb;AAGA,UAAW,CAAC,mBAAD,SAAiC,IAAb,iBAAJ,IAAqB,CAAI,2BAApD;AAEE,sCAA0B;AAC1B,2BAAa,CAAC,IAAD;OAHf;AAPsC;AAmPE;AAExC,oBAAU;AACV,UAAY,gBAAD,QAAX,EACE,gBAAW,aADb;AAHwC;AAhLA;AAExC,oBAAU;AACV,UAAY,gBAAD,QAAX,EACE,gBAAW,SAAS,CAAC,IAAD,CADtB;AAHwC;AA7bS;AAEjD,UAAY,gBAAD,QAAX;AAEE,YAAG,UAAW,IAAI,iBAAlB;AACE,0BAAW,kBAAkB,CAAC,QAAS,eAAgB,IAA1B;;AAe7B,0BAAW,kBAAkB,CAAC,QAAS,eAA8E,IAAxF;;OAlBjC;AAFiD;AA9BG;AAArB;AAQ/B,eAAU;AACV,UAAY,gBAAD,QAAX;AAEE,0BAAc;AACd,kCAAsB;AACtB,wBAAW,kBAAkB,CAAC,QAAoC,mDAAyB,IAA9D;AAa7B,iBAAU;OAjBZ;AAT+B;AAAqB;AA4aZ;AAExC,UAAY,gBAAD,QAAX,EACE,gBAAW,SAAS,CAAC,KAAD,CADtB;AAFwC;AANA;AAExC,UAAY,gBAAD,QAAX,EACE,gBAAW,SAAS,CAAC,KAAD,CADtB;AAFwC;AA3EE;AAE1C,UAAgB,CAAZ,kBAAY,IAAI,uBAAJ,CAAwB,IAAG,CAAI,kBAA/C;AAEE,YAAY,gBAAD,QAAX,EACE,gBAAW,aADb;OAFF;AAF0C;AAygBE;AAE5C,0BAAgB;AAChB,oCAA0B;AAC1B,UAAY,gBAAD,QAAX,EACE,gBAAW,eADb;AAJ4C;AA7iBH;AAEzC,UAAY,gBAAD,QAAX,EACE,gBAAW,YADb;AAFyC;AAXH;AAEtC,UAAY,gBAAD,QAAX,EACE,gBAAW,SADb;AAFsC;AAiUA;AAEtC,UAAY,gBAAD,QAAX,EACE,gBAAW,SADb;AAFsC;AAyUK;AAE3C,UAAY,gBAAD,QAAX,EACE,gBAAW,cADb;AAF2C;AA95CF;AAGzC,UAAY,gBAAD,QAAX;AAEE,wBAAW,aAAa,CAAC,WAAD;AACxB,wBAAW,UAAU,CAAC,YAAa,aAAd;OAHvB;AAHyC;AA2lCG;AAE5C,UAAY,gBAAD,QAAX,EACE,gBAAW,aAAa,CAAC,WAAD,CAD1B;AAF4C;AApgCK;AAEjD,UAAY,gBAAD,QAAX,EACE,gBAAW,kBAAkB,CAAC,cAAD,CAD/B;AAFiD;AAkuCD;AAEhD,UAAY,gBAAD,QAAX,EACE,gBAAW,mBADb;AAFgD;AAvxB9C,aAAG;AAFqD;AAA3B;AAI/B,eACE,UA0BiD,GA1BpC,WAAF,GAAgB,wCAAF,GAA6C,EAAF,GACpE,uBADyE,GAC/C,EAAF,GAwBxB,iCAxB6B,GAwBO,WAAF,GAAgB,kBAAF,GAAuB,EAAF,GACrE,IAD0E,GACnE,YAAF,GAAc,wBAAF,GAA6B,EAAF,GAQ5C,IARiD;AA/BpB;AAA2B;AA4ZV;AAAjB;AAE/B,eAAU;AACV,UAAY,gBAAD,QAAX,EACE,SAAU,gBAAW,oBADvB;AAH+B;AAAiB;AAPJ;AAAb;AAE/B,eAAU;AACV,UAAY,gBAAD,QAAX,EACE,SAAU,gBAAW,gBADvB;AAH+B;AAAa;AA5DD;AAAZ;AAE/B,eAAU;AACV,UAAY,gBAAD,QAAX,EACE,SAAU,gBAAW,eADvB;AAH+B;AAAY;AAhzBH;AAAT;AAE/B,eAAU;AACV,UAAY,gBAAD,QAAX,EACE,SAAU,gBAAW,YADvB;AAH+B;AAAS;AAOG;AAAZ;AAE/B,eAAU;AACV,UAAY,gBAAD,QAAX,EACE,SAAU,gBAAW,eADvB;AAH+B;AAAY;AAqWc;AAEzD,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,iDAAS,YAAhB,CADlB;AAFyD;AAuCG;AAE5D,UAAY,kCAAD,QAAX,EACE,kCAA4B,CAAC,KAAM,iDAAS,UAAhB,CAD9B;AAF4D;AAtNG;AAE/D,UAAY,qCAAD,QAAX,EACE,qCAA+B,CAAC,KAAM,aAAP,CADjC;AAF+D;AAwlBZ;AAApB;AAE/B,YAAM,YAAN,GAAsB;AACtB,YAAM,YAAN,GAAsB;AACtB,YAAM,UAAN,GAAoB;AACpB,YAAM,WAAN,GAAqB;AACrB,YAAM,WAAN,GAAqB;AACrB,YAAM,YAAN,GAAsB;AACtB,YAAM,UAAN,GAAoB;AACpB,YAAM,aAAN,GAAuB;AACvB,YAAM,iBAAN,GAA2B;AAC3B,YAAM,mBAAN,GAA6B;AAC7B,YAAM,qBAAN,GAA+B;AAC/B,YAAM,YAAN,GAAsB;AACtB,YAAM,UAAN,GAAoB;AAdW;AAAoB;AA5XA;AAEnD,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,OAAP,CADrB;AAFmD;AAvCP;AAE5C,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAM,QAAP,CADd;AAF4C;AA7GE;AAE9C,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,WAAP,CADhB;AAF8C;AANL;AAEzC,UAAY,eAAD,QAAX,EACE,eAAS,CAAC,KAAM,cAAP,CADX;AAFyC;AA+pBM;AAE/C;AAF+C;AAI/C,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,mCAA+B;;;;cAAhC,CAAoC,KAAE,CAAnE,EACE,EAAE,wBADJ;SAFF;AAJ+C;AAE/C;AAF+C;;AAvXL;AAE1C;AAF0C;AAI1C,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,wCAAoC;;;;cAArC,CAAyC,KAAE,CAAxE,EACE,EAAE,WAAW,CAAC,IAAD,CADf;SAFF;AAJ0C;AAE1C;AAF0C;;AAtmBD;AAEzC;AAFyC;AAIzC,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,wCAAoC;;;;cAArC,CAAyC,KAAE,CAAxE,EACE,EAAE,UAAU,CAAC,4CAAD,CADd;SAFF;AAJyC;AAEzC;AAFyC;;AA00CO;AAEhD;AAFgD;AAIhD,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,wCAAoC;;;;cAArC,CAAyC,KAAE,CAAxE,EACE,EAAE,mBADJ;SAFF;AAJgD;AAEhD;AAFgD;;AAWJ;AAE5C;AAF4C;AAI5C,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,wCAAoC;;;;cAArC,CAAyC,KAAE,CAAxE,EACE,EAAE,aAAa,CAAC,MAAO,QAAS,KAAjB,CADjB;SAFF;AAJ4C;AAE5C;AAF4C;;AA7WqB;AAEjE;AAFiE;AAIjE,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,+CAA2C;;;;cAA5C,CAAgD,KAAE,CAA/E,EACE,EAAE,kCAAkC,CAAC,UAAW,YAAa,WAAzB,CADtC;SAFF;AAJiE;AAEjE;AAFiE;;AAWE;AAEnE;AAFmE;AAInE,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,+CAA2C;;;;cAA5C,CAAgD,KAAE,CAA/E,EACE,EAAE,oCAAoC,CAAC,SAAD,CADxC;SAFF;AAJmE;AAEnE;AAFmE;;AAkUxB;AAE3C;AAF2C;AAI3C,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,sCAAkC;;;;cAAnC,CAAuC,KAAE,CAAtE;AAEE,cAAE;WAFJ;SAFF;AAJ2C;AAE3C;AAF2C;;AAvTN;AAErC;AAFqC;AAIrC,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,sCAAkC;;;;cAAnC,CAAuC,KAAE,CAAtE,EACE,EAAE,QAAM,CAAC,0DAAD,CADV;SAFF;AAJqC;AAErC;AAFqC;;AAsBA;AAErC;AAFqC;AAIrC,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,sCAAkC;;;;cAAnC,CAAuC,KAAE,CAAtE,EACE,EAAE,QADJ;SAFF;AAJqC;AAErC;AAFqC;;AA4CW;AAEhD;AAFgD;AAIhD,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,sCAAkC;;;;cAAnC,CAAuC,KAAE,CAAtE,EACE,EAAE,iBAAiB,CAAC,0DAAD,CADrB;SAFF;AAJgD;AAEhD;AAFgD;;AAXA;AAEhD;AAFgD;AAIhD,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,sCAAkC;;;;cAAnC,CAAuC,KAAE,CAAtE,EACE,EAAE,qBADJ;SAFF;AAJgD;AAEhD;AAFgD;;AAXN;AAE1C;AAF0C;AAI1C,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,sCAAkC;;;;cAAnC,CAAuC,KAAE,CAAtE,EACE,EAAE,WAAW,CAAC,UAAW,0DAAZ,CADf;SAFF;AAJ0C;AAE1C;AAF0C;;AAXA;AAE1C;AAF0C;AAI1C,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,sCAAkC;;;;cAAnC,CAAuC,KAAE,CAAtE,EACE,EAAE,aAAW,CAAC,SAAD,CADf;SAFF;AAJ0C;AAE1C;AAF0C;;AA7EM;AAEhD;AAFgD;AAIhD,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,mCAA+B;;;;cAAhC,CAAoC,KAAE,CAAnE,EACE,EAAE,iBAAiB,CAAC,KAAM,QAAS,MAAO,QAAvB,CADrB;SAFF;AAJgD;AAEhD;AAFgD;;AAXA;AAEhD;AAFgD;AAIhD,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,mCAA+B;;;;cAAhC,CAAoC,KAAE,CAAnE,EACE,EAAE,mBAAiB,CAAC,KAAM,QAAS,YAAa,QAA7B,CADrB;SAFF;AAJgD;AAEhD;AAFgD;;AAx2BN;AAE1C,UAAY,gBAAD,QAAX,EACE,gBAAW,aADb;AAF0C;AA2zCO;AAEjD;AAFiD;AAIjD,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,qCAAiC;;;;cAAlC,CAAsC,KAAE,CAArE,EACE,EAAE,kBAAkB,CAAC,UAAD,CADtB;SAFF;AAJiD;AAEjD;AAFiD;;AAx4CS;AAE1D;AAF0D;AAI1D,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,qCAAiC;;;;cAAlC,CAAsC,KAAE,CAArE,EACE,EAAE,2BAA2B,CAAC,YAAa,iBAAd,CAD/B;SAFF;AAJ0D;AAE1D;AAF0D;;AA2LD;AAEzD,UAAY,+BAAD,QAAX,EACE,+BAAyB,CAAC,KAAM,WAAY,aAAnB,CAD3B;AAFyD;AAMA;AAEzD,UAAY,+BAAD,QAAX,EACE,+BAAyB,CAAC,KAAM,WAAY,aAAnB,CAD3B;AAFyD;AAkNN;AAEnD,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,gDAAP,CADrB;AAFmD;AAgzBF;AAEjD;AAFiD;AAIjD,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,qCAAiC;;;;cAAlC,CAAsC,KAAE,CAArE,EACE,EAAE,oBADJ;SAFF;AAJiD;AAEjD;AAFiD;;AAhxBA;AAEjD,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,UAAW,QAAS,OAAQ,QAAS,OAA5C,CADnB;AAFiD;AAMK;AAGtD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,UAAW,OAAQ,OAAQ,QAAS,OAA3C,CADxB;AAHsD;AApBQ;AAG9D,UAAY,oCAAD,QAAX,EACE,oCAA8B,CAAC,KAAM,UAAW,eAAgB,OAAQ,QAAS,OAAnD,CADhC;AAH8D;AAOG;AAGjE,UAAY,uCAAD,QAAX,EACE,uCAAiC,CAAC,KAAM,UAAW,kBAAmB,OAAQ,QAAS,OAAtD,CADnC;AAHiE;AA5ZnB;AAE9C;AAF8C;AAI9C,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,qCAAiC;;;;cAAlC,CAAsC,KAAE,CAArE,EACE,EAAE,eAAe,CAAC,SAAD,CADnB;SAFF;AAJ8C;AAE9C;AAF8C;;AAu+BD;AAE7C;AAF6C;AAI7C,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,qCAAiC;;;;cAAlC,CAAsC,KAAE,CAArE,EACE,EAAE,cAAc,CAAC,SAAD,CADlB;SAFF;AAJ6C;AAE7C;AAF6C;;AA8EC;AAE9C;AAF8C;AAI9C,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,qCAAiC;;;;cAAlC,CAAsC,KAAE,CAArE,EACE,EAAE,eAAe,CAAC,SAAD,CADnB;SAFF;AAJ8C;AAE9C;AAF8C;;AArde;AAA9B;AAE1B;AACH,UADG,IACH;AAAS,iBAAU;AACnB,gBAFG,IAEH;AAAe,iBAAU;AACzB,gBAHG,IAGH;AAAqB,iBAAU;AAC/B,gBAJG,IAIH;AAAgB,iBAAU;AAC1B,gBALG,IAKH;AAAoB,iBAAU;AAC9B,gBANG,IAMH;AAAiB,iBAAU;AAC3B,gBAPG,IAOH;AAAkB,iBAAU;AAC5B,gBARG,IAQH;AAAuB,iBAAU;AACjC,gBATG,IASH;AAAwB,iBAAU;AAClC,gBAVG,IAUH;AAA4B,iBAAU;AACtC,gBAXG,IAWH;AAAiB,iBAAU;AAC3B,gBAZG,IAYH;AAAoB,iBAAU;AAC9B,gBAbG,IAaH;AAAkB,iBAAU;AAC5B,gBAdG,IAcH;AAAmB,iBAAU;AAC7B,gBAfG,IAeH;AAAwB,iBAAU;AAClC,gBAhBG,IAgBH;AAAsB,iBAAU;AAChC,gBAjBG,IAiBH;AAA0B,iBAAU;AACpC,gBAlBG,IAkBH;AAAiB,iBAAU;AAC3B,gBAnBG,IAmBH;AAAkB,iBAAU;AAC5B,gBApBG,IAoBH;AAAqB,iBAAU;AAC/B,gBArBG,IAqBH;AAAuB,iBAAU;AACjC,gBAtBG,IAsBH;AAA6B,iBAAU;AACvC,gBAvBG,IAuBH;AAAoB,iBAAU;AAC9B,gBAxBG,IAwBH;AAA6B,iBAAU;AACvC,gBAzBG,IAyBH;AAAgC,iBAAU;AAC1C,gBA1BG,IA0BH;AAA8B,iBAAU;AACxC,gBA3BG,IA2BH;AAAiB,iBAAU;AAC3B,gBA5BG,IA4BH;AAAiB,iBAAU;AAC3B,gBA7BG,IA6BH;AAAe,iBAAU;AACzB,gBA9BG,IA8BH,8EAA2B,SAAU,0BAArC;AAhC6B;AAA8B;AAoCV;AAApB;AAE1B;AACH,UADG,IACH;AAAc,iBAAU;AACxB,gBAFG,IAEH;AAAe,iBAAU;AACzB,gBAHG,IAGH;AAAa,iBAAU;AACvB,gBAJG,IAIH,sDAAa,SAAU,WAAvB;AAN6B;AAAoB;AArDJ;AAAhB;AAE/B;AAF+C;AAI/C,iBAAU;AACV,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,mDAA6B;;;;cAA9B,CAAkC,KAAE,CAAjE,EACE,SAAU,EAAE,mBADd;SAFF;AAL+C;AAE/C;AAF+C;AAAhB;AAAgB;AAvBY;AAA5B;AAE/B;AAF2D;AAI3D,iBAAU;AACV,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,mCAA+B;;;;cAAhC,CAAoC,KAAE,CAAnE,EACE,SAAU,EAAE,+BADd;SAFF;AAL2D;AAE3D;AAF2D;AAA5B;AAA4B;AA6HP;AAArB;AAE/B;AAFoD;AAIpD,iBAAU;AACV,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,mDAA6B;;;;cAA9B,CAAkC,KAAE,CAAjE,EACE,SAAU,EAAE,wBADd;SAFF;AALoD;AAEpD;AAFoD;AAArB;AAAqB;AAvJJ;AAAjB;AAE/B;AAFgD;AAIhD,iBAAU;AACV,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,mDAA6B;;;;cAA9B,CAAkC,KAAE,CAAjE,EACE,SAAU,EAAE,oBADd;SAFF;AALgD;AAEhD;AAFgD;AAAjB;AAAiB;AA8LA;AAAjB;AAE/B;AAFgD;AAIhD,iBAAU;AACV,YAAY,gBAAD,QAAX;AAEE,cAAG,gBAAW,eAAe,CAAC,mDAA6B;;;;cAA9B,CAAkC,KAAE,CAAjE,EACE,SAAU,EAAE,oBADd;SAFF;AALgD;AAEhD;AAFgD;AAAjB;AAAiB;AAxgBkB;AAElE,UAAY,wCAAD,QAAX,EACE,wCAAkC,CAAC,IAAD,CADpC;AAFkE;AAvBZ;AAEtD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,IAAD,CADxB;AAFsD;AApCD;AAErD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,MAAP,CADvB;AAFqD;AAoOI;AAEzD,UAAY,6BAAD,QAAX,EACE,6BAAuB,CAAC,KAAM,MAAP,CADzB;AAFyD;AAxHT;AAEhD,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,IAAD,CADlB;AAFgD;AAWI;AAEpD,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,MAAP,CADtB;AAFoD;AAMC;AAErD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,MAAP,CADvB;AAFqD;AAkBN;AAE/C,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,MAAP,CADjB;AAF+C;AAOM;AAErD,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,MAAP,CADvB;AAFqD;AAyBN;AAE/C,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,MAAP,CADjB;AAF+C;AAjGK;AAEpD,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,MAAP,CADtB;AAFoD;AAME;AAEtD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,MAAP,CADxB;AAFsD;AAMA;AAEtD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,IAAD,CADxB;AAFsD;AAMH;AAEnD,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,IAAD,CADrB;AAFmD;AA+kBT;AAAX;AAE/B,eAAU;AAFqB;AAAW;AALO;AAAlB;AAE/B,eAAU;AAFqB;AAAkB;AAhwBT;AAExC;AAFwC;AAIxC;AACA,yBAAa,8BAAyB,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,mCAAuB;AACvB,kCAAsB;AAYtB,0BAAc,+BAA0B,QAAC,YAAM,CAAC,IAAD,CAAN;AAEzC,gCAAoB;AACpB,uCAA2B;AAC3B,kCAAsB;AACtB,sCAA0B;AAE1B;AAEA,YAAG,uBAAH,EACE,IAAG,sCAAiC,UAAQ,0BAAwB,CAAC,gDAAoC;mBAAC;AAAD;;YAArC,CAApE,EACE,gCAAe,iBAAiB,iBAAiB,CAAC,IAAD,EAAjD,KAFJ;AAIA,sBAAS,GAAT;AACA,uBAAU,GAAV;AAjCwC;AAExC;AAFwC;AAAqB;AAArB;AAkDA;AAExC;AAFwC;AAQxC,YAAG,uBAAiB,IAAI,sCAAiC,UAAQ,0BAAwB,CAAC,gDAAoC;mBAAC;AAAD;;YAArC,CAAzF,EACE,iBAAiB,kBAAkB,CAAC,gBAAD,CADrC;AAGA,YAAY,eAAD,QAAX,EACa,SAAX,KAAW,aADb;AAGA,YAAY,gBAAD,QAAX;AAEE,0BAAW;AACX,0CAAe,IAAf;SAHF;AAkBA,+BAAU,CAAC;;;;YAAD;AACV;AAjCwC;AAExC;AAFwC;;AA28BgB;AAExD;AACA,UAAY,gBAAD,QAAX,EACE,gBAAW,eADb;AAHwD;AA5zDjC;;;;;;;AAoSH,+BAAO,U9BtfjB,+B8BsfiB,CAAP;AApSG;AA8SF;AAy8Fe;AAAP;AAC1B;AADiC;AAEpC,qCAAiC,cAAW,QAAK,CAAC,KAAD,CAAhB,CAAjC;AADG;AADiC;AACjC;AADiC;AAAP;AAAO;AAKC;AAE3B,cAAK,CAAC,MAAU,KAAX;AAFsB;AA98FhB;AAYU;;;AAE7B;AAF6B;;;;;AA81D2B;AAE1D,UAAiB,CAAb,iBAAa,KAAG,IAAH,CAAQ,IAAY,CAAP,MAAO,KAAG,IAAH,CAArC,EACE,iBAAY,OAAO,CAAC,MAAD,CADrB;AAF0D;AAvBV;AAEtC;AACV,0BAAgB,0BAAqB,QAAC;AAHW;AAAD;AAYA;AAEhD,6BAAU,CAAC;;;;UAAD;AACA;AAHsC;AANO;AAAhB;AACpC;AADoD;AAEvD,qCAAU,uBAAkB,CAAC,MAAD,EAA5B;AACA,yBAAY,IAAI,CAAC,MAAD;AAFb;AADoD;AACpD;AADoD;AAAhB;AAAgB;AAYE;AAEzD,6BAAkB,CAAC,MAAD;AAFuC;AAz1D1B;;;AAgBd;AA2pGiB;AAExB;AAFwB;AAKA;AAEhB,wDAAC,IAAD;AAFgB;AAjFS;AAEhB,+DAAC,QAAS,eAAgB,UAA1B;AAFgB;AAKG;AAArB;AAEzB,eAAyC,6DAAC,OAAD;AAFhB;AAAqB;AAiDZ;AAEhB,sDAAC,KAAD;AAFgB;AALA;AAEhB,sDAAC,KAAD;AAFgB;AAVE;AAE1B;AAF0B;AA5CE;AAE5B;AAF4B;AAuCH;AAEzB;AAFyB;AALH;AAEtB;AAFsB;AAyDA;AAEtB;AAFsB;AAeK;AAE3B;AAF2B;AALK;AAEhC;AAFgC;AA3OP;AAEhB,uDAAC,YAAa,aAAd;AAFgB;AAsOG;AAEhB,0DAAC,WAAD;AAFgB;AA1GK;AAEhB,+DAAC,cAAD;AAFgB;AAyBS;AAA3B;AAEzB,eAA+C,mEAAC,WAAD;AAFtB;AAA2B;AAsDV;AAAjB;AAEzB,eAAoB;AAFK;AAAiB;AALJ;AAAb;AAEzB,eAAoB;AAFK;AAAa;AAfD;AAAZ;AAEzB,eAAoB;AAFK;AAAY;AArEH;AAAT;AAEzB,eAAoB;AAFK;AAAS;AAKG;AAAZ;AAEzB,eAAoB;AAFK;AAAY;AAUD;AAE1B;AAF0B;AArkGnB;;;;;;;AAmEO,qC1Bn9BZ,6C0Bm9BY;AACN,+BAhZS,0CAgZT;AACJ;AACa,wCA5fU,oDA4fV;AACE,0CA9fU,sDA8fV;AACK,+C1Bx9BtB,6C0Bw9BsB;AACJ,2CA9fU,uDA8fV;AACD,0C1B19BjB,6C0B09BiB;AACX;AACU;AA5EX;;AAgKK;AA/CI;;;AAGxB;AAHwB;;;;;AA8nEyB;AAEnD;AAKA,UAAY,qBAAD,QAAX;AAEE,aAAM,qBAAgB;AACtB,YAAY,EAAD,QAAX;AAEE,cAAG,qBAAgB,YAAnB;AAEE,cAAE,UAAU,CAAC,EAAG,EAAG,gBAAO,gBAAd;;AAaP;AACH,iBADG,IACH,sDAAgB,CADb,IACa,mDAAhB,IAAiC,CAD9B,IAC8B,oDAAjC,IAAmD,CADhD,IACgD,qDAAnD;AAEE,gBAAE,UAAU,CAAkC,UAA1B,CAAN,eAAM,GAAE,qBAAgB,OAAlB,CAA0B,GAAI,CAAJ,EAA2C,UAA3B,CAAP,gBAAO,GAAE,qBAAgB,QAAlB,CAA2B,GAAI,CAAJ,EAAO,qBAAgB,QAAQ,qBAAgB,QAA5H;;AAKZ,gBAAE,UAAU,CAAC,qBAAgB,IAAO,qBAAgB,IAAM,qBAAgB,QAAQ,qBAAgB,QAAtF;;;SAzBpB;OAHF;AAPmD;AANP;AAE5C;AACA;AAH4C;AAxnElB;;;AAmCE,uDA9dL,mDA8dK;AAYN;;;AAMpB;AAQA;AAQA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAnCoB;;;;;;;;;AAw0DoB;AAE1C,iBApxD+C;AAkxDL;AArCF;AAExC,UAAG,WAAH;AAOE,mBAAuB,uCAAvB;OAIA,iBAAuB,uCAAvB;AAEF,6BAAmB;AACnB,yBAAe;AAEf,UAAY,aAAD,QAAX,EACE,aAAO,CAAC,IAAD,CADT;AAlBwC;AA/EA;AAExC,iBAhqD+C;AA8pDP;AA9BO;AAE/C,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,MAAP,CADlB;AAF+C;AAqIE;AAEjD,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,MAAP,CADpB;AAFiD;AA9BE;;AALH;AAAlB;AAE9B,eAAU;AAFoB;AAAkB;AA/DT;AAEvC;AAUA,uBAAa;AAMb,yBAAe;AACf,oBAAU;AACV,qBAAW;AACX,gBAAM;AACN,gBAAM;AACN,8BAAoB;AACpB,UAAG,2CAAY,IAAG,oBAAlB,EACE,wBAAoB,OADtB;AAxB4D;AAArB;AA4BA;AAevC,UAAY,gBAAD,QAAX;AAEc,iBAAZ,KAAY;AACZ,2BAAe;OAHjB;AAKA;AApBuC;AAwFL;AAAJ;AAG9B;AAkBA;AACE,sBAAU;AAOV,+BAAmB,+BAA0B,QAAC,aAAS,CAAC,gCXnvFG,CWmvFJ,CAAT;AAI9C,4BAAe,iBAAf,GAAoC;AAIpC,4BAAe,SAAf,GAA2B;AAK3B,4BAAe,YAAC,CAAY,cAAZ;AAChB,4BAAe,QAAC,CAAQ,OAAR;AAChB,4BAAe,OAAC,CAAO,OAAP;AAChB,4BAAe,SAAC,CAAS,WAAT;AAChB,4BAAe,UAAC,CAAU,YAAV;AAGhB,2BAAe,yBAAkB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,wBAAW,mBAAC,CAAmB,qBAAnB;AACZ,wBAAW,aAAX,GAA2B;AAC3B,wBAAW,kBAAX,GAAgC;AAChC,wBAAW,oBAAX,GAAkC;AAClC,iCAAoB,CAAC,gBAAD;AAOpB,wBAAW,OAAC,CAAO,SAAP;AAGZ,wBAAW,oBAAC,CAAoB,kEAApB;AAkBZ,wBAAW,UAAC,CAAU,oBAAV;AAQZ,wBAAW,QAAC,CAAQ,OAAR;AACZ,wBAAW,OAAC,CAAO,OAAP;AAEZ,wBAAW,SAAC,CAAS,WAAT;AACZ,wBAAW,UAAC,CAAU,YAAV;AAEZ,YAAG,iBAAH;AAGE,cAAK,8BAAO,QAAC,YAAM,CAAC,oBAAD,CAAN;AACb,WAAC,UAAC,CAAU,oBAAV;AAKF,WAAC,WAAC,CAAW,qBAAX;AAEF,WAAC,SAAD,GAAa;AAMb,WAAC,SAAC,CAAS,mCAAT;SAjBJ;AA+GA,YAAG,qBAAH;AAEE,cAAY,gBAAD,QAAX;AAEc,qBAAZ,KAAY;AACZ,+BAAe;WAHjB;AAOA,cAAY,oBAAD,QAAX;AAEkB,qBAAhB,KAAgB;AAChB,mCAAmB;WAHrB;AAOA,mBAAU;AACV;SAjBF;AAqBA,YAAG,WAAH;AAEE,mBAAU,oBAAe;;AAUzB,8BAAe;AACf,mBAAU;;AA5Nd;;AArB8B;AAAI;AAZA;AAAJ;AAG9B,kBAAO;AACP,eAAU,SAAI,CAAC,MAAD;AAJgB;AAAI;AArIE;AAWpC,UAAY,oBAAD,QAAX;AAEE,YAAG,WAAH;AACE,8BAAe,eAAC,CAAe,YAAf;;AAGhB,cAAY,oBAAD,QAAX,EACE,oBAAe,QADjB;;OANJ;AAXoC;AA5rDd;;AAkDF,+BAAO,U9B9uBjB,+B8B8uBiB,CAAP;AAQO,wCAhpBU,oDAgpBV;AACE,0CAlpBU,sDAkpBV;AACf;AAKK,gCX5qCV,uCW4qCU;AAEE;AACL;AACC;AACF;AACD;AACQ;AACI;AACR,+B1B1nCN,6C0B0nCM;AA1EI;;AA6EkB;;;AAEtC;AACA;AAHsC;;;;;AA0oFiB;AAGzD,mBAAS;AACT,qCAAc,UAAd;AAHwB;AADiC;AA1oFjB;AAWH;AA+rFe;AAAP;AAE7C,eAA6D,YAAK,CAAC,KAAD;AAFrB;AAAO;AAKC;AAE3C,kBAAK,CAAC,MAAU,KAAX;AAFsC;AA7CA;AAAR;AAE7C;AACG;AAHkD;AAIrD,qCAAU,IAAV;AACA,iBAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,cAAG,cAAK,CAAC,CAAD,CAAG,MAAM,KAAE,KAAnB;AAEE,yCAAU,cAAK,CAAC,CAAD,CAAG,WAAlB;AACA;WAHF;;AAJC;AAHkD;AAGlD;AAHkD;AAAR;AAAQ;AAfG;AAAX;AAE7C;AAEA,eAAU;AACV,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,YAAG,cAAK,CAAC,CAAD,CAAG,MAAM,KAAE,KAAnB;AAEE,mBAAU;AACV;SAHF;;AAP2C;AAAW;AA8BE;AAE1D;AAEA,eAAe,KAAN,eAAM,GAAE,CAAF,EAAW,aAA1B;AAAI;AAEF,YAAG,cAAK,CAAC,CAAD,CAAG,MAAM,KAAE,KAAnB;AAEE,uBAAM,CAAC,cAAK,CAAC,CAAD,CAAN;AACN;SAHF;;AANwD;AAtqFrB;AAkBJ;AAGrB;AACA;AAJqB;;AAE/B;AAF+B;;;;;AA+jF6B;AAE9D,6BAAU,CAAC;;;;UAAD;AACV,gEAAoB;AAH0C;AAbZ;AAElD;AACA,2BAAiB,0CAAqC,QAAC;AAHJ;AAAD;AAMA;AAElD,6BAAU,CAAC;;;;UAAD;AACV;AAHkD;AAjBU;AAE5D;AAF4D;AAI5D,YAAG,CAAI,kBAAa,YAAY,CAAC,yBAAY,CAAC,YAAD,CAAb,CAAhC;AAEE,cAAG,uBAAQ,CAAC,SAAU,aAAc;;;;cAAzB,CAAX,EACE,kBAAa,MAAI,CAAC,6CAAwC,QAAC,YAAM,CAAC,yBAAY,CAAC,YAAD,EAAgB,QAA7B,CAAN,CAA1C,CADnB;SAFF;AAJ4D;AAE5D;AAF4D;;AA8CG;AAE/D,wBAAa,aAAa,CAAC,yBAAY,CAAC,YAAD,CAAb;AAFqC;AAnDjB;AAAL;AAEzC,eAAU,kBAAa,SAAC;AAFiB;AAAK;AA2Ca;AAAlB;AAEzC;AACG;AAHwD;AAI3D,2BAAK,kBAAa,SAAW,CAAC,yBAAY,CAAC,YAAD,CAAb,EAA7B;AACA,+BAAQ,CAAC,EAAG,aAAc;;;;YAAlB;AAFL;AAHwD;AAE3D;AACG;AAHwD;AAAlB;AAAkB;AAyBK;AAAvB;AAEzC,eAAU,kBAAa,YAAY,CAAC,yBAAY,CAAC,YAAD,CAAb;AAFM;AAAuB;AAZA;AAAvB;AAEtC;AAF6D;AAGhE,YAAG,kBAAa,YAAY,CAAC,yBAAY,CAAC,YAAD,CAAb,CAA5B;AACE,mBAAU,uBAAQ,CAAyB,UAAxB,kBAAa,SAAW,CAAC,yBAAY,CAAC,YAAD,CAAb,GAA8B,aAAc,QAArE;;AAGlB,uBAAY,IAAZ;AACA,mBAAU;;AARoD;AAE7D;AAF6D;AAAvB;AAAuB;AApBV;AAAP;AAE/C,UAAa,CAAT,aAAS,KAAE,IAAF,CAAO,IAAI,CAAI,qBAA5B,EACE,kDAAY,sCAAiC,QAAC,YADhD;AAEA,eAAU;AAJqC;AAAO;AAtkFrB;AAt1CnC,mBA82Cc;AA6BZ,mBAAkB;AAEL;AAAN;AAEP,eAAY,OAAF,CAAE,KAAI,EAAJ;AAFL;AAAM;AAKA;AAAN;AAEP,eAAU,CAAE,GAAI,MAAJ;AAFL;AAAM;AAKE;AAAR;AAEP,eAAU,EAAG,GAAM,CAAH,EAAG,IAAI,CAAJ,CAAN;AAFN;AAAQ;AAKA;AAAR;AAEP,eAAU,EAAG,GAAM,CAAH,EAAG,IAAI,EAAJ,CAAN;AAFN;AAAQ;AA9CH;AAu5Fd;AAEmC,2DAAjC,GAAsD;AACtD;AAHF;AArwIA,GA82Cc,sEA92Cd;A8FAA,2CAWS,+CAXT;;;;AA2BgB,wBAAG;AACD,0BAAG;AACF,2BAAG,CAAC;AACN,yBAAG;AAGO;AACvB;AACA;AAFuB;aACvB,gBACA;AAFuB;;AACvB;AACA;AAFuB;;;AACvB;AACA;AAFuB;AAKD;AACtB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATsB;aACtB,gCACA,IAAA,8BACA,IAAA,gCACA,IAAA,gCACA,IAAA,sCACA,IAAA,sCACA,IAAA,kCACA,IAAA,oCACA,8BAPA;AAFsB;;AACtB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATsB;;;AACtB;AACA;AACA;AACA,4BrIiBO,6BqIjBP;AACA;AACA;AACA,6BrIkEK,2BqIlEL;AACA;AACA;AATsB;AAYK,wDAZL,8CAYK;AACK,6DADL,mDACK;AACK,kEADL,wDACK;AAMtB;AA0xCgB;AAAR;AAEzB;AAEA,cAAS,yCAAQ,SAAR;AACT,UAAG,KAAM,IAAG,CAAZ;AACE,iBAAU,SAAK,CAAC,KAAD;AAEf,qBAAU;AARa;AAAQ;AAWD;AAAP;AAEzB;AAEA,eAAc,QAAW,OAAN,0CAAM,GAAE,CAAF,kBAAzB;AAAI;AAEF,YAAK,SAAK,CAAC,MAAD;AACV,YAAI,CAAC,SAAU,KAAE,IAAjB,EACE,aADF;;AAGF,eAAU,CAAC;AAVc;AAAO;AAhBC;AAAR;AAEzB,eAAU;AAFe;AAAQ;AArxChB;AAkBK;AAEpB;AAFoB;;mBACpB;AADoB;;;aACpB,8BACA;AAFoB;;AACpB;AACA;AAFoB;;;AACpB,2BA1BgC,gDA0BhC;AACA;AAFoB;AAKA;AACpB;AACA;AACA;AACA;AAJoB;aACpB,kCACA,IAAA,kCACA,IAAA,gCACA,oCAFA;AAFoB;;AACpB;AACA;AACA;AACA;AAJoB;;;AACpB;AACA;AACA;AACA;AAJoB;AAOG;AAEvB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAXuB;;mBACvB;AADuB;;;aACvB,6BACA,IAAA,sBACA,IAAA,gCACA,IAAA,sCACA,IAAA,4BACA,IAAA,oCACA,IAAA,0BACA,IAAA,sBACA,IAAA,gCACA,IAAA,sCACA,0CATA;AAFuB;;AACvB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAXuB;;;AACvB,2BAnDsB,sCAmDtB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA,4BrItCO,6BqIsCP;AACA;AACA;AAXuB;AAcK,yDAdL,+CAcK;AAEb;;;iBACf;AADe,oBAEf;AAFe;;;aACf,0BACA;AAFe;;AACf;AACA;AAFe;;;AACF,uDA7BO,4CA6BP;AAAb,yBAAa,wCAAb;AACA,4BAJ4B,4CAI5B;AAFe;AAKW;;;AAE1B;AACA;AAH0B;;;;;;AA+rCiB;AAE7C,mBAAS;AAFqC;AAAD;AAKA;AAE7C;AAF6C;AApsCjB;AAKR;AALQ;AAWE;;;AAE5B;AACA;AAH4B;;;;;;AAgsCiB;AAE/C,mBAAS;AAFuC;AAAD;AAKA;AAE/C;AAF+C;AArsCjB;AAKV;AALU;AAWC;;;AAE7B;AACA;AAH6B;;;;;;AAisCiB;AAEhD,mBAAS;AAFwC;AAAD;AAKA;AAEhD;AAFgD;AAtsCjB;AAKX;AALW;AAWP,+EAAmB,UrI/BpC,2BqI+BoC,EAAqB,cAjCpC,0CAiCoC,CAAxC;AACE,iFAAmB,UrIhCtC,2BqIgCsC,EAAqB,cAvBpC,4CAuBoC,CAAxC;AACC,kFAAmB,UrIjCvC,2BqIiCuC,EAAqB,cAbpC,6CAaoC,CAAxC;AAEN;;AAED;;;oBAClB;AADkB,oBAElB;AAFkB;;;aAClB,+BACA;AAFkB;;AAClB;AACA;AAFkB;;;AAClB,4BA/GsB,sCA+GtB;AACA,4BAhHsB,sCAgHtB;AAFkB;AAKC;;;AAEnB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATmB;;;;;;AA+5BoB;AAEzC,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAFyC;AASC;AAE1C,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd;OAHF;AAF0C;AAzBG;AAAhB;AAE7B,eAAU,cAAS,KAAG,SAAH;AAFU;AAAgB;AAKC;AAAjB;AAE7B,eAAU,eAAU,KAAG,UAAH;AAFS;AAAiB;AAnBT;AAAR;AAE7B;AAEA,OAAC,UAAD,GAAe;AACf,OAAC,SAAD,GAAc;AACd,OAAC,UAAD,GAAe;AACf,OAAC,UAAD,GAAe;AACf,OAAC,aAAD,GAAkB;AAClB,OAAC,aAAD,GAAkB;AAClB,OAAC,WAAD,GAAgB;AAChB,qBAAU,CAAV;AAX6B;AAAQ;AAgDC;AAEtC,UAAI,YAAC,CAAY,KAAK,SAAjB;AACL,UAAI,aAAC,CAAa,KAAK,UAAlB;AAHiC;AAxBQ;AAE9C,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAF8C;AAzCR;AAEtC,uBAAa;AACb,wBAAc;AAHyB;AAAD;AAMA;AAEtC,uBAAa,WAAW;AACxB,wBAAc,WAAW;AAHqD;AAAxC;AAMA;AAEtC,mBAAM,CAAiB,qCAAhB,qBAAgB,CAAC,UAAW,UAAZ,EAAjB;AAFgE;AAAhC;AArBF;AAEpC,UAAa,0BAAH,eAAP,MAAO,CAAV;AAEE,yBAAqB,OAAP,OAAU,0BAAH,CAAyB;AAC9C,0BAAsB,OAAP,OAAU,0BAAH,CAAyB;OAHjD;AAFoC;AAv2Bf;AAmBD;AACA,+BAAY,eAvIR,sCAuIQ,CAAZ;AACA,+BAAU,yBAAoB,yBAA9B;AAUA;AACD;AAhCE;AAmCJ;;;AAEf;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATe;;;;;;;;AAgzBgB;AAAR;AAEzB;AACA;AAAI;AAEJ,iBAAM,IAAI,WAAU,SAAC,EAArB;AACA,iBAAM,IAAI,WAAU,SAAC,EAArB;AACA,OAAC,UAAC,SAAa,EAAb;AACF,OAAC,UAAC,SAAa,EAAb;AACF,qBAAU,CAAV;AATyB;AAAQ;AAYC;AAElC,UAAI,WAAU,SAAC,CAAS,KAAK,UAAd;AACf,UAAI,WAAU,SAAC,CAAS,KAAK,UAAd;AAHmB;AAlBW;AAE7C,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAF6C;AAbX;AAElC,wBAAc,0BAAqB,QAAC;AACpC,wBAAc,0BAAqB,QAAC;AAHD;AAAD;AARA;AAElC,wBAAc,0BAAqB,QAAC,YAAM,CAAC,gDAAD,CAAN;AACpC,qBAAU,UAAV,GAAwB;AACxB,wBAAc,0BAAqB,QAAC,YAAM,CAAC,gDAAD,CAAN;AACpC,qBAAU,UAAV,GAAwB;AALuF;AAA7E;AATF;AAEhC,UAAa,sBAAH,eAAP,MAAO,CAAV;AAEE,uBAAU,OAAO,CAAS,OAAP,OAAU,sBAAH,CAAqB,WAA9B;AACjB,uBAAU,OAAO,CAAS,OAAP,OAAU,sBAAH,CAAqB,WAA9B;OAHnB;AAFgC;AAuBE;AAEvB,eAAX,KAAW;AACA,eAAX,KAAW;AACX;AAJkC;AAnyBjB;AAeG;AACA,+BAAW,cAtKP,sCAsKO,EAAsC,cAtK7C,sCAsK6C,CAAjD;AAWA,iCA9DC,oCA8DD;AACA,iCA/DC,oCA+DD;AA5BH;AA+BQ;;;AAEvB;AACA;AACA;AACA;AACA;AACA;AACA;AARuB;;;;;;;AAktBsB;AAE/C,UAAG,gBAAY,KAAG,KAAlB;AAEE,wBAAW,OAAO,CAAC,KAAD;AAClB;OAHF;AAF+C;AAzBH;AAAX;AAEjC,eAAU,gBAAU;AAFa;AAAW;AAKC;AAAZ;AAEjC,eAAU,gBAAU;AAFa;AAAY;AA6BA;AAE7C,sBAAU,YAAC,CAAY,KAAZ;AAFkC;AAKC;AAE9C,sBAAU,aAAC,CAAa,KAAb;AAFmC;AA7BG;AAAhB;AAEjC,eAAU,kBAAS,KAAG,SAAH;AAFc;AAAgB;AAKC;AAAjB;AAEjC,eAAU,mBAAU,KAAG,UAAH;AAFa;AAAiB;AA6BI;AAEtD,UAAkB,2BAAH,eAAX,gBAAW,CAAf,EACc,OAAX,iBAAc,2BAAH,CAA0B,oBADxC;AAFsD;AAxBH;AAEnD;AAFmD;AAvCT;AAE1C;AACA,UAAY,WAAD,QAAX,EACE,cAAsB,OAAX,iBAAc,2BAAH,CAA0B,SADlD;AAGA,yBAAe,0BAAqB,QAAC;AACrC,sBAAW,UAAX,GAAyB;AAEzB;AATqE;AAA3B;AANF;AAExC,UAAa,8BAAH,eAAP,MAAO,CAAV,EACE,gBAAW,OAAO,CAAS,OAAP,OAAU,8BAAH,CAA6B,YAAtC,CADpB;AAFwC;AAkBE;AAE9B,eAAZ,KAAY;AACZ;AACA;AAJ0C;AAlrBjB;AAoBL,+BAAY,e5H2OrB,gC4H3OqB,CAAZ;AAUA;AACD;AA/BM;AAmCH;;;AAKpB;AACA;AACA;AACA;AACA;AAToB;;;;;;;;;AA8kBe;AAAP;AAG9B,eAA8C,YAAK,CAAC,KAAD;AAHrB;AAAO;AAiCC;AAG5B,kBAAK,CAAC,MAAU,KAAX;AAHuB;AAlDC;AAAT;AAE9B;AAEA,UAAG,CAAY,CAAC,YAAD,SAAf,EACE,eAAW,sBAAiB,QAAC,YAD/B;AAGA,gBAAK,mBAAY,CAAC,6BAAD,CAAjB;AAEA,kBAAO,WAAU,aAAC,CAAa,CAAC,UAAU,UAAxB;AAClB,kBAAO,WAAU,YAAC,CAAY,CAAC,UAAU,SAAvB;AAClB,kBAAO,WAAU,aAAC,CAAa,CAAC,UAAU,UAAxB;AAClB,kBAAO,WAAU,YAAC,CAAY,CAAC,UAAU,SAAvB;AAElB,eAAU;AAdoB;AAAS;AAnBD;AAAR;AAE9B;AACA;AAEU,YAAD,sBAAC,qCAAQ,eAAT;AACT,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,SAAC,UAAD,GAAe,IAAI,WAAC,CAAD,CAAG,aAAC;AACvB,SAAC,SAAD,GAAc,IAAI,WAAC,CAAD,CAAG,YAAC;AACtB,SAAC,UAAD,GAAe;AACf,SAAC,UAAD,GAAe;AACf,SAAC,aAAD,GAAkB;AAClB,SAAC,aAAD,GAAkB;AAClB,SAAC,WAAD,GAAgB;AAChB,cAAM,CAAC,CAAD,UAAO,CAAP;;AAfsB;AAAQ;AAqDC;AAGvC;AACA;AAEA;AAEA,eAAS,QAAmB,OAAR,WAAC,KAAD,CAAQ,GAAE,CAAF,kBAA5B;AAAI;AAEF,YAAK;AACL,SAAC,YAAC,CAAY,KAAK,CAAC,CAAD,CAAG,SAApB;AACF,SAAC,aAAC,CAAa,KAAK,CAAC,CAAD,CAAG,UAArB;;AAZmC;AAjEM;AAAf;AAE9B,eAAU;AAFoB;AAAe;AAsDP;AAAR;AAE9B,eAAU;AAFoB;AAAQ;AAiCU;AAEhD,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,IAAD,CADrB;AAFgD;AA7FT;AAEvB,sDAAC,OAAQ,sBAAT;AAChB,sBAAU;AAHmD;AAAtB;AAWA;AAEvC,UAAY,YAAD,QAAX,EACU,SAAR,KAAQ,UADV;AAEA;AAJuC;AA/BH;AAEpC;AAEA,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,IAAD,CADf;AAGA,UAAG,eAAM,GAAE,CAAX;AAEE,eAAM,eAAM,GAAE,CAAd;AAEE,eAAsB,cAAK,CAAC,eAAM,GAAE,CAAT;AAC3B,YAAG,eAAH,EAAG;;OALP;AASA,UAAY,iBAAD,QAAX,EACE,iBAAW,CAAC,IAAD,CADb;AAhBoC;AALH;AAAH;AAE9B,eAA8C;AAFhB;AAAG;AA0FG;AAAN;AAG9B,eAAoD,yCAAC,KAAD;AAHtB;AAAM;AAzlBd;AAoBF,+BAAO,U5H5FhB,gC4H4FgB,CAAP;AApBE;AAiCF;;;AAElB;AACA;AACA;AAJkB;;;;;AA40Ba;AAEjC,UAAG,OAAG,KAAG,KAAT;AAEE,kBAAM;AACN;OAHF;AAFiC;AASA;AAEjC,UAAG,OAAG,KAAG,KAAT;AAEE,kBAAM;AACN;OAHF;AAFiC;AAnBI;AAAT;AAE5B,eAAU,OAAE,KAAG,CAAH;AAFgB;AAAS;AAKA;AAAT;AAE5B,eAAU,OAAE,KAAG,CAAH;AAFgB;AAAS;AAuBG;AAExC,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAFwC;AAlCH;AAErC,gBAAM;AACN,gBAAM;AAHgC;AAAD;AATF;AAEnC,UAAc,yBAAH,eAAP,MAAO,CAAX;AAEE,kBAAc,OAAP,OAAU,yBAAH,CAAwB;AACtC,kBAAc,OAAP,OAAU,yBAAH,CAAwB;OAHxC;AAFmC;AAnzBf;AAYA;AAZA;AAoBE;;AAEV;AACA;AAHU;AAMH;AAEA,6BAAY;AACX,8BAAS;AACX,4BAAS;AACd,uBAAY;AACf,oBAAY;AACR,yBAA4B,IAAK,IAAK,IAAK,IAAK,IAAK,IAAK,IAAK,IAAK,IAAK,IAAK,IAAK,IAAK,IAAK,IAAK,IAAK,IAAK,IAAK,IAAK,IAAK,GAA3H;AACA,wBAAY;AACb,uBAAY;AACX,wBAAY;AACN,8BAAY;AACT,iCAAY;AACb,gCAAU;AACV,gCAAU;AACnB,uBAAU;AACV,uBAAU;AACP,0BAAY;AACb,yBAAY;AACX,0BAAY;AA43BiB;AAAZ;AAEjC,eAAU,sCAAY,mBAAmB,CAAC,MAAO,iBAAR;AAFR;AAAY;AAQnC,qBAAY;AAHiB;;AAAN;AAKjC;AAAU;AAAU;AAAU;AAAW;AAAQ;AACjD;AAAG;AAAG;AACN;AAEqB;AAAZ;AAEP,iBAAU,QAAG,CAAC,QAAG,CAAC,UAAW,CAAC,iBAAb,EAA2B,iBAA/B;AAFN;AAAY;AAKM;AAAlB;AAEP,iBAAU;AACV,eAAM,MAAO,GAAE,CAAC,kBAAhB,EACE,SAAU,MAAO,GAAe,CAAb,kBAAa,GAAE,CAAF,CAAf;AAEnB,eAAM,MAAO,IAAG,kBAAhB,EACE,SAAU,MAAO,GAAe,CAAb,kBAAa,GAAE,CAAF,CAAf;AAPZ;AAAkB;AAUM;AAAxB;AAEP,YAAG,WAAY,IAAG,EAAlB;AAEE,mBAAU,QAAK,CAAC,mBAA0B,CAAZ,WAAY,GAAE,CAAC,CAAH,CAAM,GAAE,CAAnC;AACf;SAHF;AAMA,iBAAU,QAAK,CAAC,mBAAc,CAAC,CAAhB,CAAmB,GAAE,QAAK,CAAC,eAAU,WAAY,GAAE,oBAAzB,CAAP;AAR3B;AAAwB;AAWlB;AAAN;AAEP,iBAAU,UAAW,GAAmC,CAAjC,gBAAK,CAAC,UAAW,GAAE,YAAd,CAA4B,GAAE,YAAF,CAAnC;AAFd;AAAM;AAMf,eAAU;AAEV,iBAAY,YAAY,CAAC,WAAW,SAAZ;AACxB,kBAAa,kBAAkB,CAAC,WAAW,UAAZ;AAE/B,UAAG,cAAG,CAAC,QAAD,CAAW,KAAE,gBAAnB,EACE,WAAY,QAAS,GAAM,CAAJ,GAAI,GAAE,wBAAwB,CAAC,UAAD,CAA1B,CAD7B;AAGA,eAAU,UAAK,CAAW,CAAT,QAAS,GAAE,gBAAF,CAAsC,GAArB,yBAAF,GAAyB,GAAnD,CAAwD,GAAE,GAAF;AACvE,eAAU,UAAK,CAAY,CAAV,SAAU,GAAE,iBAAF,CAAuC,GAArB,yBAAF,GAAyB,GAArD,CAA0D,GAAE,GAAF;AAEzE,UAAG,UAAW,GAAE,mBAAhB;AAEE,iBAAS,QAAoB,OAAf,mBAAe,GAAE,CAAF,kBAA7B;AAAI;AAEF,qBAAY,MAAM,CAAC,OAAQ,aAAT;AAClB,qBAAY,MAAM,CAAC,OAAQ,gBAAT;AAClB,gBAAO,UAAK,CAAC,cAAG,CAAU,CAAT,QAAS,GAAE,gBAAF,CAAc,GAAE,QAA1B,CAAJ;AACZ,cAAK,iBAAY,CAAC,GAAD,CAAM,GAAE,CAAF;AACvB,mBAAU,MAAO,GAAE,aAAF;AACjB,mBAAU,MAAO,GAAE,gBAAF;;;AAKnB,iBAAU,MAAO,GAAE,uBAAF;AACjB,iBAAU,MAAO,GAAE,0BAAF;;AAGnB,eAAS,SAA4B,QAAP,UAAf,mBAAe,GAAI,CAAJ,CAAO,GAAE,CAAF,qBAArC;AAAI;AAEF,YAAK,iBAAY,CAAC,UAAK,CAAC,cAAG,CAAC,MAAM,CAAC,OAAQ,iBAAT,CAAP,CAAJ,CAAN,CAA2C,GAAE,CAAF;AAC5D,YAAK,iBAAY,CAAC,UAAK,CAAC,cAAG,CAAC,MAAM,CAAC,OAAQ,iBAAT,CAAP,CAAJ,CAAN,CAA2C,GAAE,CAAF;AAC5D,iBAAU,MAAO,GAAE,iBAAF;AACjB,iBAAU,MAAO,GAAE,iBAAF;;AAGnB,UAAK,eAAI,CAAC,EAAG,EAAG,sBAAP,CAA+C,GAAnB,uBAAF,GAAuB,eAAI,CAAC,EAAG,sBAAkB,GAAE,CAAF,CAAY,CAAD,OAAI,GAAE,sBAAvC,CAAN;AAExD,UAAG,UAAW,IAAG,sBAAjB;AAEE,iBAAU,eAAI,CAAC,EAAG,EAAG,UAAW,GAAE,CAApB;AACd;OAHF;AAMA,eAAU,eAAI,CAAC,EAAG,EAAG,UAAP;AACd,eAAS,SAAoC,QAA/B,sBAA+B,GAAX,UAAF,GAAe,CAAF,qBAA7C;AAAI;AACF,iBAAU,MAAO,GAAE,qBAAF;;AAEnB,eAAU,MAAO,GAAE,uBAAF;AA1FgB;AAAM;AAxEA;;AAAN;AAGjC;AAAQ;AAAQ;AAAa;AAC7B;AAAgB;AAChB;AACA;AAAO;AAAK;AAEU;AAAb;AAEP;AAEA,iBAAU;AACV,YAAU,KAAD,OAAQ,GAAE,uBAAnB;AAEE,mBAAU;AACV,mBAAS,QAAuC,OAAlC,uBAAkC,GAAP,KAAD,OAAR,GAAkB,CAAF,kBAAhD;AAAI;AACF,qBAAU,MAAO,GAAE,sBAAF;;AAEnB,mBAAU,MAAO,GAAE,wBAAF;SAEd,UAAU,KAAD,OAAQ,KAAE,uBAAnB;AACH,mBAAU,KAAM,GAAE,wBAAF;AACb,kBAAG,KAAK,QAA2C,CAA1C,uBAA0C,GAAC,CAAD,KAA3C,CAAuD,KAAG,wBAAlE,EACH,SAAU,eAAI,CAAC,MAAO,EAAG,uBAAX,CAAmD,GAAnB,wBAAF,GAAuB,eAAI,CAAC,MAAO,uBAAkB,GAAE,CAAF,CAAY,KAAD,OAAQ,GAAE,uBAA/C,CADpE;AAfE;AAAa;AAmBtB,kBAAa,aAAa,CAAC,sBAAS,CAAC,SAAD,CAAV;AAC1B,kBAAa,0BAAa,CAAC,UAAW,wBAAoB,GAAI,cAAC,4CAAD,CAApC;AAC1B,kBAAa,0BAAa,CAAC,UAAW,sBAAkB,GAAI,cAAC,4CAAD,CAAlC;AAE1B,eAAU,CAAC,gBAAY,GAAE,yBAAF;AACvB,eAAU,CAAC,iBAAa,GAAE,yBAAF;AAExB,oBAAe;AACf,oBAAe;AAEf,uBAAkB,QAAG,CAAQ,SAAD,QAAa,mBAApB;AACrB,mBAAc,QAAG,CAAQ,SAAD,QAAa,kBAApB;AAEjB,UAAK;AACL,aAAM,CAAE,GAAE,cAAV;AAEE,sBAA2B,UAAZ,WAAY,GAAI,iBAAJ;AAC3B,sBAA2B,UAAZ,WAAY,GAAI,iBAAJ;AAC3B,iBAAU,MAAO,GAAoE,CAAlE,iBAAY,CAAC,SAAS,QAA6B,CAA5B,CAA4B,GAAE,CAAF,KAA7B,CAAV,CAAsD,GAAE,WAAF,CAApE;AACjB,iBAAU,MAAO,GAAwE,CAAtE,iBAAY,CAAC,SAAS,QAA0C,CAAzC,CAAyC,GAAX,CAAF,GAAe,CAAF,KAA1C,CAAV,CAA0D,GAAE,WAAF,CAAxE;AACb,SAAJ,IAAO;;AAGT,UAAK;AACL,aAAM,CAAE,GAAE,UAAV;AAEE,sBAA2B,UAAZ,WAAY,GAAI,aAAJ;AAC3B,sBAA2B,UAAZ,WAAY,GAAI,gBAAJ;AAC3B,gBAAS,iBAAY,CAAC,SAAS,QAA6B,CAA5B,CAA4B,GAAE,CAAF,KAA7B,CAAV;AACrB,cAAa,UAAN,KAAM,GAAI,gBAAJ;AACb,cAAO,KAAM,GAAI,gBAAJ;AACb,iBAAU,MAAO,GAAM,CAAJ,GAAI,GAAE,WAAF,CAAN;AACjB,iBAAU,MAAO,GAAM,CAAJ,GAAI,GAAE,WAAF,CAAN;AACb,SAAJ,IAAG;;AAGL,qBAAU,mBAAY,CAAS,CAAP,MAAO,GAAE,WAAF,CAAe,GAAE,yBAAF,CAAgC,CAAP,MAAO,GAAE,WAAF,CAAe,GAAE,yBAAF,CAC3F,MAAO,GAAE,yBAAF,CAAwB,MAAO,GAAE,yBADpB,CAAtB;AA/DiC;AAAM;AA50BpB;AAOJ,yEAAQ,EAAR;AAPI;AA+ZI;AAAhB;AAEP,UAAM,SAAN,GAAmB;AACnB,UAAM,UAAN,GAAoB;AACpB,UAAM,UAAN,GAAoB;AACpB,UAAM,UAAN,GAAoB;AACpB,UAAM,aAAN,GAAuB;AACvB,UAAM,aAAN,GAAuB;AACvB,UAAM,WAAN,GAAqB;AARd;AAAgB;AAXC;AAAjB;AAEP,UAAM,SAAN,GAAmB;AACnB,UAAM,UAAN,GAAoB;AACpB,UAAM,UAAN,GAAoB;AACpB,UAAM,UAAN,GAAoB;AACpB,UAAM,aAAN,GAAuB;AACvB,UAAM,aAAN,GAAuB;AACvB,UAAM,WAAN,GAAqB;AARd;AAAiB;AAXF;AAAf;AAEP,UAAM,SAAN,GAAmB;AACnB,UAAM,UAAN,GAAoB;AACpB,UAAM,UAAN,GAAoB;AACpB,UAAM,UAAN,GAAoB;AACpB,UAAM,aAAN,GAAuB;AACvB,UAAM,aAAN,GAAuB;AACvB,UAAM,WAAN,GAAqB;AARd;AAAe;AA8CC;AAAhB;AAEP,UAAM,SAAN,GAAmB;AACnB,UAAM,UAAN,GAAoB;AACpB,UAAM,UAAN,GAAoB;AACpB,UAAM,UAAN,GAAoB;AACpB,UAAM,aAAN,GAAuB;AACvB,UAAM,aAAN,GAAuB;AACvB,UAAM,WAAN,GAAqB;AARd;AAAgB;AApFJ;AAAZ;AAEP;AAEU,OAAD,sBAAC,kCAAK,CAAN;AACT,OAAG,CAAC,CAAD,UAAO,YAAP;AACH,OAAG,CAAC,CAAD,UAAO,YAAP;AACH,mBAAU,mBAAY,CAAC,iBAAD,CAAtB;AAPO;AAAY;AAUA;AAAZ;AAEP;AACA;AAEU,QAAD,sBAAC,QAAM,CAAP;AACT,QAAI,CAAC,CAAD,CAAJ,GAAW;AACD,OAAD,sBAAC,OAAK,CAAN;AACT,OAAG,CAAC,CAAD,CAAH,GAAU;AACV,mBAAU,mBAAY,CAAC,iBAAD,CAAtB;AATO;AAAY;AAnBA;AAAZ;AAEP;AAEU,OAAD,sBAAC,OAAK,CAAN;AACT,OAAG,CAAC,CAAD,CAAH,GAAU;AACV,mBAAU,mBAAY,CAAC,iBAAD,CAAtB;AANO;AAAY;AApDA;AAAZ;AAEP;AAAQ;AACR;AAAQ;AACR;AAAG;AAAG;AAEN,aAAU,CAAC;AACX,aAAU,CAAC;AACX,aAAU;AACV,aAAU;AAEV,aAAS,QAAoC,OAAzB,WAAC,sBAAD,CAAyB,GAAE,CAAF,kBAA7C;AAAI;AAEF,eAAS,SAAuC,QAA5B,WAAC,sBAAsB,CAAC,CAAD,CAAvB,CAA4B,GAAE,CAAF,qBAAhD;AAAI;AAEF,iBAAS,SAA0C,QAA/B,WAAC,sBAAsB,CAAC,CAAD,CAAG,CAAC,CAAD,CAA1B,CAA+B,GAAE,CAAF,qBAAnD;AAAI;AAEF,cAAG,sBAAsB,CAAC,CAAD,CAAG,CAAC,CAAD,CAAG,CAAC,CAAD,CAAG,UAAW,GAAE,MAA/C,EACE,SAAU,sBAAsB,CAAC,CAAD,CAAG,CAAC,CAAD,CAAG,CAAC,CAAD,CAAG,UAD3C;AAGA,cAAG,sBAAsB,CAAC,CAAD,CAAG,CAAC,CAAD,CAAG,CAAC,CAAD,CAAG,SAAU,GAAE,MAA9C,EACE,SAAU,sBAAsB,CAAC,CAAD,CAAG,CAAC,CAAD,CAAG,CAAC,CAAD,CAAG,SAD3C;AAGA,cAAG,sBAAsB,CAAC,CAAD,CAAG,CAAC,CAAD,CAAG,CAAC,CAAD,CAAG,UAAW,GAAE,MAA/C,EACE,SAAU,sBAAsB,CAAC,CAAD,CAAG,CAAC,CAAD,CAAG,CAAC,CAAD,CAAG,UAD3C;AAGA,cAAG,sBAAsB,CAAC,CAAD,CAAG,CAAC,CAAD,CAAG,CAAC,CAAD,CAAG,SAAU,GAAE,MAA9C,EACE,SAAU,sBAAsB,CAAC,CAAD,CAAG,CAAC,CAAD,CAAG,CAAC,CAAD,CAAG,SAD3C;;;;AAMN,QAAI,MAAO,KAAE,CAAC,GAAd,EACE,SAAU,GADZ;AAGA,QAAI,MAAO,KAAE,CAAC,EAAd,EACE,SAAU,EADZ;AAGA,QAAI,MAAO,KAAE,GAAb,EACE,SAAU,CAAC,GADb;AAGA,QAAI,MAAO,KAAE,EAAb,EACE,SAAU,CAAC,EADb;AAGA,UAAM,UAAU,SAAhB,GAA6B;AAC7B,UAAM,UAAU,UAAhB,GAA8B;AAE9B,UAAM,UAAU,SAAhB,GAA6B;AAC7B,UAAM,UAAU,UAAhB,GAA8B;AAhDvB;AAAY;AANA;AAAZ;AAEP,UAAM,UAAC,SAAa,qBAAgB,CAAC,eAAgB,cAAjB,CAA7B;AACP,UAAM,UAAC,SAAa,qBAAgB,CAAC,eAAgB,cAAjB,CAA7B;AAHA;AAAY;AA8IhB,YAAG;AAJa;AAAZ;AAEP;AAIA,SAAI,IAAK,GAAL,CAAU,SAAV,CAAU,EAAd;AAEY,YAAD,sBAAC,qCAAc,WAAC,MAAD,CAAS,GAAE,CAA1B;AACT,YAAM,CAAO,WAAC,MAAD,CAAS,GAAE,CAAlB,UAAwB,wBAAmB,CAAC,8CAAW,CAAF,CAAE,GAAE,CAAC,GAAH,CAAO,GAAE,GAAF,CAAO,OAA1B,CAA3C;;AATD;AAAY;AA1JA;AAAZ;AAEP,UAAM,UAAN,GAAiD,CAA5B,OAAO,UAAU,UAAW,GAAE,OAAO,UAAU,UAAnB,CAA+B,GAAE,CAAF;AAChF,UAAM,SAAN,GAA+C,CAA3B,OAAO,UAAU,SAAU,GAAE,OAAO,UAAU,SAAnB,CAA8B,GAAE,CAAF;AAHtE;AAAY;AAMG;AAAf;AAEG,UAAD,sBAAC,qCAAQ,CAAT;AACT,UAAM,CAAC,CAAD,UAAO,qBAAgB,CAAC,OAAO,UAAU,UAAW,OAAO,UAAU,UAA9C,CAAvB;AACN,UAAM,CAAC,CAAD,UAAO,OAAO,UAAd;AACN,UAAM,CAAC,CAAD,UAAO,qBAAgB,CAAC,OAAO,UAAU,UAAW,OAAO,UAAU,UAA9C,CAAvB;AACN,UAAM,CAAC,CAAD,UAAO,OAAO,UAAd;AACN,UAAM,CAAC,CAAD,UAAO,MAAM,CAAC,CAAD,CAAb;AAPC;AAAe;AAtGA;AAAf;AAEP;AAAG;AAAI;AAAI;AAAI;AAAI;AAAG;AAEtB,QAAK;AACL,SAAM,iBAAQ,CAAC,YAAY,SAAb;AACd,SAAM,iBAAQ,CAAC,YAAY,SAAb;AACd,SAAM,iBAAQ,CAAC,YAAY,SAAU,GAAE,YAAY,SAArC;AACd,SAAM,iBAAQ,CAAC,YAAY,UAAW,GAAE,YAAY,UAAtC;AAEd,QAAiB,CAAZ,QAAG,CAAC,EAAG,GAAE,CAAN,CAAS,GAAE,QAAG,CAAC,EAAG,GAAE,CAAN,CAAL,CAAc,GAAkC,CAAhC,QAAG,CAAC,EAAD,CAA6B,GAAtB,QAAG,CAAC,EAAD,CAAL,GAAY,QAAG,CAAC,EAAG,GAAE,CAAN,CAAL,GAAgB,QAAG,CAAC,EAAG,GAAE,CAAN,CAAL,CAAlC;AAC/B,QAAK,CAAE,GAAE,UAAO,CAAC,SAAI,CAAC,CAAD,EAAK,SAAI,CAAC,CAAE,GAAE,CAAL,CAAd,CAAT;AACP,aAAU,CAAE,GAAE,CAAF;AAZL;AAAe;AAiCJ;AAAX;AAEP;AAAG;AACH;AAAM;AAAK;AACX;AAAI;AAEJ,kBAAqB,WAAC,iBAAD;AACrB,WAAQ;AACR,UAAO,OAAG,GAAE,GAAF;AACV,aAAU;AAEV,QAAG,WAAY,IAAG,CAAlB;AAEE,aAAQ;;AAKR,eAAS,QAAiB,OAAZ,WAAY,GAAE,CAAF,kBAA1B;AAAI;AAEA,mBAAM,iBAAiB,CAAC,CAAD,CAAvB;AACA,mBAAM,iBAAiB,CAAI,CAAF,CAAE,GAAE,CAAF,CAAK,GAAI,WAAb,CAAvB;AACA,eAAQ,IAAK,GAAwC,CAAvB,CAAb,EAAE,UAAW,GAAE,EAAE,UAAJ,CAAuB,GAAL,GAAF,GACV,CAA3B,CAA2B,GAAvB,QAAG,CAAC,EAAE,SAAU,GAAE,GAAf,CAAL,GAA2B,QAAG,CAAC,EAAE,SAAU,GAAE,GAAf,CAAL,CADiB,CAAxC;;AAGjB,aAAsB,CAAd,IAAc,GAAP,MAAF,GAAW,MAAF,CAAS,GAAE,GAAF;AAC/B,aAAQ,QAAG,CAAC,IAAD;;AAGb,aAAU;AA7BH;AAAW;AAlBU;AAArB;AAEP;AACA;AAAU;AAEV,aAAU,CAAC;AACX,kBAAe;AACf,aAAS,QAA+B,OAApB,WAAC,iBAAD,CAAoB,GAAE,CAAF,kBAAxC;AAAI;AAEF,iBAAY,oBAAe,CAAC,kDAA8B,qCAAjB,iBAAiB,CAAC,CAAD,EAA/B;AAC3B,UAAa,CAAT,QAAS,GAAE,WAAF,CAAe,IAAgB,CAAZ,WAAY,KAAE,CAAF,CAA5C;AAEE,sBAAe;AACf,iBAAU;OAHZ;;AAVK;AAAqB;AAkDR;AAAb;AAEP;AAAG;AAAG;AACN;AAAG;AAAI;AAAI;AAAG;AAAI;AAElB,kBAAqB,WAAC,iBAAD;AACrB,aAAU;AAEV,QAAK;AACL,QAAK;AACL,QAAK,WAAY,GAAE,CAAF;AAEjB,aAAS,QAAiB,OAAZ,WAAY,GAAE,CAAF,kBAA1B;AAAI;AAEF,WAAM,iBAAiB,CAAC,CAAD,CAAG;AAC1B,WAAM,iBAAiB,CAAC,CAAD,CAAG;AAE1B,WAAM,iBAAiB,CAAC,CAAD,CAAG;AAC1B,WAAM,iBAAiB,CAAC,CAAD,CAAG;AAI1B,UAA4B,CAAd,CAAL,CAAH,EAAG,GAAE,CAAF,CAAK,IAAQ,CAAH,EAAG,IAAG,CAAH,CAAR,CAAc,IAAY,CAAL,CAAH,EAAG,GAAE,CAAF,CAAK,IAAQ,CAAH,EAAG,IAAG,CAAH,CAAR,CAAZ,CAA2B,IAAe,CAAN,CAAH,EAAG,IAAG,CAAH,CAAM,IAAO,CAAH,EAAG,IAAG,CAAH,CAAP,CAAtE;AAEE,iBAAU,MAAO,GAAmC,CAA1B,CAAH,EAAG,GAAgB,CAAR,CAAJ,CAAD,CAAC,GAAC,EAAD,CAAI,GAAI,CAAF,EAAE,GAAC,EAAD,CAAJ,CAAQ,GAAI,CAAF,EAAE,GAAC,EAAD,CAAJ,CAAhB,CAA0B,GAAE,CAAF,CAAnC;OAFnB;AAKA,UAAK;;AA3BA;AAAa;AArFM;AAAnB;AAEP;AAAG;AAAI;AAAG;AAAI;AAAO;AAAI;AAAG;AAAG;AAAI;AAEnC,QAAK;AACL,QAAK,SAAU,GAAE,CAAF;AACf,SAAM,iBAAQ,CAAC,QAAD;AAEd,SAAM,iBAAQ,CAAC,WAAW,SAAZ;AACd,SAAM,iBAAQ,CAAC,WAAW,UAAZ;AACd,YAAiB,CAAR,QAAG,CAAC,EAAD,CAAK,GAAE,QAAG,CAAC,CAAD,CAAL,CAAS,GAAmB,CAAjB,QAAG,CAAC,EAAD,CAAc,GAAP,QAAG,CAAC,CAAD,CAAL,GAAW,QAAG,CAAC,EAAD,CAAL,CAAnB;AAC1B,SAAM,SAAM,CAAC,KAAD;AACZ,QAAK,QAAG,CAAC,EAAD,CAAc,GAAP,QAAG,CAAC,CAAD,CAAL,GAAW,QAAG,CAAC,EAAD,CAAL;AACtB,QAAK,QAAG,CAAC,CAAD,CAAI,GAAU,CAAR,QAAG,CAAC,EAAD,CAAK,GAAE,KAAF,CAAV;AACZ,SAAM,EAAG,GAAE,UAAO,CAAC,EAAG,CAAJ,CAAT;AAET,UAAM,SAAN,GAAmB,iBAAQ,CAAC,EAAD;AAC3B,UAAM,UAAN,GAAoB,iBAAQ,CAAC,EAAD;AAjBrB;AAAmB;AAbH;AAAhB;AAEP;AAAI;AAAI;AAAI;AAAG;AAAG;AAElB,SAAM,iBAAQ,CAAC,YAAY,SAAb;AACd,SAAM,iBAAQ,CAAC,YAAY,SAAb;AACd,SAAM,iBAAQ,CAAC,YAAY,UAAW,GAAE,YAAY,UAAtC;AACd,QAAa,CAAR,QAAG,CAAC,EAAD,CAAK,GAAE,QAAG,CAAC,EAAD,CAAL,CAAU,GAAoB,CAAlB,QAAG,CAAC,EAAD,CAAe,GAAR,QAAG,CAAC,EAAD,CAAL,GAAY,QAAG,CAAC,EAAD,CAAL,CAApB;AACvB,QAAK,QAAG,CAAC,EAAD,CAAK,GAAE,QAAG,CAAC,EAAD,CAAL;AACb,QAAK,UAAO,CAAC,EAAG,CAAJ;AACZ,aAAU,iBAAQ,CAAC,CAAD;AAVX;AAAgB;AA5BL;AAAX;AAEP;AACA;AAEA,aAAU;AAEL;AACH,SADG,IACH,+CAAY,CADT,IACS,4CAAZ;AAEE,UAAK;AACL,WAAM,uBAAW,QAAC;AAClB;AACE,8CAAY,MAAM,CAAC,IAAK,EAAG,GnDzM6F,KmDyMtG;AAClB,YAAG,EAAE,SAAC,EAAM,IAAG,CAAf;AAEO;AACH,cADG,KACH;AAAY,qBAAU,EAAE,KAAC,CAAD;AACxB,oBAFG,KAEH,6CAAa,SAAU,EAAE,KAAC,CAAD,CAAzB;SAJJ;AAFF;AAUE,UAAG,eAAH,EAAG;AAVL;KAJF;AARK;AAAW;AAi8BK;AAAhB;AAOP,aAAU;AAPH;AAAgB;AAt8BE;AAAlB;AAEP,mBAAU,sBAAiB,CAAC,MAAO,6BAA8B,UAAW,OAAjD,CAA3B;AAFO;AAAkB;AA2QF;AAAhB;AAEP,UAAM,SAAS,SAAf,GAA4B;AAC5B,UAAM,SAAS,UAAf,GAA6B;AAC7B,UAAM,UAAN,GAAoB;AACpB,UAAM,UAAN,GAAoB;AACpB,UAAM,aAAN,GAAuB;AACvB,UAAM,aAAN,GAAuB;AACvB,UAAM,KAAN,GAAe;AACf,UAAM,QAAN,GAAkB;AAClB,UAAM,YAAN,GAAsB;AACtB,UAAM,OAAN,GAAiB;AACjB,UAAM,KAAN,GAAe;AACf,UAAM,aAAN,GAAuB;AAbhB;AAAgB;AArRC;AAAjB;AAEP;AAEA,MAAE,WAAF,GAAiB;AACjB,MAAE,WAAF,GAAiB;AACjB,MAAE,UAAF,GAAgB;AAChB,MAAE,UAAF,GAAgB;AAPT;AAAiB;AAu+BR;AAAT;AAGP;AACA;AAEU,YAAD,sBAAC,YAAU,CAAX;AACT,YAAQ,CAAC,CAAD,CAAR,GAAe;AACf,mBAAgB,uBAAW,QAAC;AAC5B,gBAAY,IAAI,CAAC,aAAD;AAChB,aAAU,gBAAS,CAAC,uBAAU,8CAAW,iBAAkB,iBAAkB,aAAc,wBAAxE;AACnB,gBAAa,eAAb,YAAa;AAXN;AAAS;AAiBd,aAAG;AAHW;AAAT;AAKW;AAAT;AAEP,eAAU,0BAAa,CAAC,MAAO,IAAK,OAAQ,cAAC,4CAAD,CAArB;AACvB,eAAU,0BAAa,CAAC,OAAQ,IAAK,OAAQ,cAAC,4CAAD,CAAtB;AACvB,eAAU,0BAAa,CAAC,OAAQ,IAAK,QAAS,cAAC,4CAAD,CAAvB;AAJhB;AAAS;AAQlB;AAAG;AACH;AAAK;AAAK;AAAK;AACf;AAEA;AAAG;AAKH;AAEA,QAAK,2BAAc;AACnB,QAAK,2BAAc;AACnB,+BAAc,iBAAd,GAAmC;AACnC,+BAAc,kBAAd,GAAoC;AAEpC,UACE,uBAQc,GARY,IAAF,GACxB,0GAD6B,GACgF,IAAF,GAC3G,kLADgH,GACqE,IAAF,GACnL,YADwL,GACzK,IAAF,GACb,UADkB,GACL,IAAF,GACX,iBADgB,GACI,IAAF,GAClB,oBADuB,GACA,IAAF,GACrB,WAD0B,GACZ,IAAF,GACZ,aADiB,GACD,IAAF;AAEhB,UAAO;AACP,QAAW,WAAC,UAAD,KAAX;AAEE,WAAM,uBAAW,QAAC;AAClB;AACI,iBAAS,QAAwB,OAAb,WAAC,UAAD,CAAa,GAAE,CAAF,kBAAjC;AAAI;AAEF,YAAE,IAAI,CAAC,mBAAM,CAAC,8BAA+B,mBAAuB,EAAtB,UAAU,CAAC,CAAD,CAAG,SAAS,UAAiC,EAAtB,UAAU,CAAC,CAAD,CAAG,SAAS,UAAxD,CAAhC,CAAP;AACN,cAAG,UAAU,CAAC,CAAD,CAAG,aAAhB;AAEE,cAAE,IAAI,CAAC,mBAAM,CAAC,kBAAmB,mBAAc,EAAb,UAAU,CAAC,CAAD,CAAG,UAAd,CAApB,CAAP;WAFR;AAIA,cAAG,UAAU,CAAC,CAAD,CAAG,aAAhB;AAEE,cAAE,IAAI,CAAC,mBAAM,CAAC,kBAAmB,mBAA2B,GAA1B,sCAAY,cAAc,CAAC,UAAU,CAAC,CAAD,CAAG,WAAY,KAAM,IAAhC,CAA3B,CAApB,CAAP;WAFR;AAIA,cAAG,UAAU,CAAC,CAAD,CAAG,KAAM,KAAG,EAAzB;AAEE,cAAE,IAAI,CAAC,mBAAM,CAAC,kBAAmB,mBAAU,GAAT,SAAS,CAAC,UAAU,CAAC,CAAD,CAAG,KAAd,CAAV,CAApB,CAAP;WAFR;AAIA,cAAG,UAAU,CAAC,CAAD,CAAG,QAAS,KAAG,EAA5B;AAEE,cAAE,IAAI,CAAC,mBAAM,CAAC,gBAAiB,mBAAU,GAAT,SAAS,CAAC,UAAU,CAAC,CAAD,CAAG,QAAd,CAAV,CAAlB,CAAP;WAFR;AAIA,cAAG,UAAU,CAAC,CAAD,CAAG,YAAa,KAAG,EAAhC;AAEE,cAAE,IAAI,CAAC,mBAAM,CAAC,kBAAmB,mBAAU,GAAT,SAAS,CAAC,UAAU,CAAC,CAAD,CAAG,YAAd,CAAV,CAApB,CAAP;WAFR;AAIA,cAAG,UAAU,CAAC,CAAD,CAAG,OAAQ,KAAG,EAA3B;AAEE,cAAE,IAAI,CAAC,mBAAM,CAAC,gBAAiB,mBAAc,GAAb,UAAU,CAAC,CAAD,CAAG,OAAd,CAAlB,CAAP;WAFR;AAIA,cAAG,UAAU,CAAC,CAAD,CAAG,aAAc,KAAG,EAAjC;AAEE,cAAE,IAAI,CAAC,mBAAM,CAAC,kBAAmB,mBAAc,GAAb,UAAU,CAAC,CAAD,CAAG,aAAd,CAApB,CAAP;WAFR;AAIA,cAAG,UAAU,CAAC,CAAD,CAAG,KAAM,KAAG,EAAzB;AAEE,cAAE,IAAI,CAAC,mBAAM,CAAC,oBAAqB,mBAAc,GAAb,UAAU,CAAC,CAAD,CAAG,KAAd,CAAtB,CAAP;WAFR;AAIA,YAAE,IAAI,CAAC,QAAD;;AAER,cAAO,EAAE,WAAC;AAtCd;AAwCE,UAAG,eAAH,EAAG;AAxCL;KAHF;AA+CA,UACE,OACuB,GADb,IAAF,GACR,iBADa,GACO,IAAF,GAClB,iBADuB;AAGzB,UAAO,GAAU,GAAJ,GAAF,GAAQ,GAAF;AAEjB,UACE,QAAc,GAAH,IAAF,GACT,QADc;AAGhB,UAAO,mBAAM,CAAC,IAAI,mBAAU,GAAT,SAAS,YAAsB,GAAT,SAAS,YAAsB,GAAT,SAAS,WAAqB,GAAT,SAAS,UAA3E,CAAL;AAEb,SAAM,uBAAW,QAAC;AAClB;AACE,QAAE,IAAI,CAAC,GAAD;AAEN,eAAS,SAAuB,QAAZ,WAAC,SAAD,CAAY,GAAE,CAAF,qBAAhC;AAAI;AAEF,uBAAyB,aAAT,SAAS,CAAC,CAAD;AACzB,UAAE,IAAI,CAAC,UAAD;AAEN,YAAW,CAAC,aAAD,SAAgB,IAAyB,CAApB,aAAa,SAAC,EAAM,GAAE,CAAF,CAApD;AAEE,YAAE,IAAI,CAAC,mBAAM,CAAC,cAA6D,GAA5C,IAAF,GAAO,iCAAF,GAAsC,IAAF,GAAO,eAAF,CAAmB,mBAAc,GAAb,aAAa,KAAC,CAAD,CAAd,CAAjF,CAAP;SAFR;AAKA,iBAAS,SAA0B,QAAf,WAAC,YAAD,CAAe,GAAE,CAAF,qBAAnC;AAAI;AAEF,YAAE,IAAI,CAAC,mBAAM,CAAC,gCAAiC,mBAAgB,EAAf,YAAY,CAAC,CAAD,CAAG,UAA0B,EAAf,YAAY,CAAC,CAAD,CAAG,UAA1C,CAAlC,CAAP;AACN,cAAG,gBAAiB,IAAI,YAAY,CAAC,CAAD,CAAG,aAAvC;AAEE,cAAE,IAAI,CAAC,mBAAM,CAAC,kBAAmB,mBAAgB,EAAf,YAAY,CAAC,CAAD,CAAG,UAAhB,CAApB,CAAP;WAFR;AAIA,cAAG,gBAAiB,IAAI,YAAY,CAAC,CAAD,CAAG,aAAvC;AAEE,cAAE,IAAI,CAAC,mBAAM,CAAC,kBAAmB,mBAA2B,GAA1B,sCAAY,cAAc,CAAC,YAAY,CAAC,CAAD,CAAG,WAAY,KAAM,IAAlC,CAA3B,CAApB,CAAP;WAFR;AAIA,YAAE,IAAI,CAAC,UAAD;;AAGR,UAAE,IAAI,CAAC,WAAD;;AAGR,QAAE,IAAI,CAAC,GAAD;AAEN,eAAU,EAAE,WAAC;AAhCf;AAkCE,QAAG,eAAH,EAAG;AAlCL;AAqCA,+BAAc,kBAAd,GAAoC;AACpC,+BAAc,iBAAd,GAAmC;AA5I5B;AAAS;AA7/BE;AAAX;AAEP,QAAG,MAAH;AACE,eAAU;AAEV,mBAAU;AALL;AAAW;AArBE;AAAb;AAEP,aAAU,OAAQ,GAAE,QAAF;AAFX;AAAa;AAKF;AAAX;AAEP;AAEA,cAAW;AACX,QAAG,mBAAoB,KAAG,EAA1B;AAEE,gBAAW;KAFb;AAKA,aAAW,iBAGH,GAHuB,QAAF,GACzB,uBAD8B,GACJ,QAAF,GACxB,IAD6B,GACtB,kBAAF,GAAiB,+BAAF,GAAoC,OAAF,GAAY,sBAAF,GAA2B,QAAF,GACzF,GAD8F,GACxF,QAAF;AAbD;AAAW;AArYpB,mBAmXc;AASD,wBAAG;AACZ,eAAG;AACO,yBAAG;AAXH;AAnXd,GAmXc,uCAnXd;ACAA,yCAIS,UAJT;;;;AA0CkC;AAEhC,QAAG,CAAI,8DAAgC,UAAQ,0BAAwB,CAAC,wEAAmC,CAAC,UAAD;eAAA,MAAC;AAAD;;QAApC,CAAvE;AAEE,4CAA8C,eAA1B,gCAA0B,QAAC,kEAAD,EAA9C;AACA,oEAAgC,UAAQ,mBAAmB,CAAC,wEAAyB,sBAA1B;KAH7D;AAFgC;AASE;AAElC,kEAAgC,UAAQ,sBAAsB,CAAC,uEAAD;AAF5B;AAnDpC,mBASc;AAYc;;AAsHyB;AAAjB;AAC/B;AADgD;AAEnD,uCAAoC,eAA1B,yBAAmB,QAAC,YAAM,CAAC,MAAD,CAAN,sDAAM,EAApC;AADG;AADgD;AAChD;AADgD;AAAjB;AAAiB;AAtHzB;;;AAKO;;AAEd;;;AAEjB;AAFiB;;;;;AAwGiB;AAEpC,kCAAsB;AAFiE;AAAnD;AA6PQ;AAAjB;AAG3B,iBAAU;AAEV,YAAG,QAAQ,gBAAX;AAEE,mBAAU,QAAQ,YAAW,KAAK;SAE/B,UAAG,QAAQ,kBAAX;AAEH,kBAAQ,gBAAC,EAAY,YAAC,CAAY,CAAZ;AACtB,mBAAU,QAAQ,gBAAC,EAAY,QAAC;SAH7B;AATsB;AAAiB;AAjPF;;AAK1C;AACA;AACA;AACA;AACA;AACA;AAAM;AACN;AACA;AAEmB;AAEjB,WAAC,MAAI,CAAC,2DAA6B,QAAC,YAAM,CAAC,MAAO,MAAR,CAAN,CAA/B;AAFY;AAMnB;AACE,cAAK,QAAQ;AACb,eAAM,QAAQ;AACd,eAAM,sBAAiB,CAAC,QAAD;AACvB,iBAAQ;AACR,iBAAQ;AACR,kBAAS,QAAQ;AAEjB,cAAK,4DAA8B,QAAC;AACpC,eAAO,QAAQ,kBAAiB,IAAG,QAAQ,gBAAX;AAEhC,cAAG,CAAI,QAAQ,eAAiE,IAA7B,CAAhB,QAAQ,QAAQ,IAAG,cAAC,mEAAQ,kEAAO,mEAAhB,CAAH,CAArB,IAAgF,CAAzB,QAAQ,kBAAiB,IAAG,QAAQ,gBAAX,CAA9G;AAGE,qBAAS,CAAC,eAAgB,0BAAjB;AACT,qBAAS,CAAC,4BAA6B,QAA9B;WAJX;AAOA,cAAI,QAAQ,QAAQ,IAAG,cAAC,4EAAiB,0EAAlB,CAAvB;AAEE,mBAAQ,kDAAqB,GAAE,MAAF;AAC7B,mBAAQ,MAA8B,GAArB,kDAAF,GAAyB,MAAF;AACtC,qBAAS,CAAC,eAAgB,gCAAiC,GAAE,8CAApD;WAJX;AAOA,cAAI,QAAQ,QAAQ,IAAG,cAAC,mFAAwB,iFAAzB,CAAvB;AAEE,mBAAQ;AACR,mBAAQ,MAA8B,GAArB,kDAAF,GAAyB,MAAF;AACtC,qBAAS,CAAC,eAAgB,8BAA+B,GAAE,8CAAlD;WAJX;AAQJ;AAGI,cAAG,IAAK,KAAG,EAAX;AAGJ;WAHI;AAOA,cAAG,QAAQ,UAAU,KAAG,EAAxB;AAGJ;WAHI;AAOA,cAAG,QAAQ,gBAAX;AAGJ;AAEM,gBAAY,QAAQ,YAAT,QAAX,EACE,QAAQ,YAAW,CAAC,SAAU,IAAK,IAAhB,CADrB;WAGG,UAAG,QAAQ,kBAAX;AAEH,oBAAQ,gBAAC,EAAY,YAAC,CAAY,CAAZ;AAEtB,gBAA0B,4DAArB,QAAQ,gBAAC,EAAY;AAGhC;AACA;AAGM,gBAAY,QAAQ,YAAT,QAAX,EACE,QAAQ,YAAW,CAAC,SAAU,IAAK,IAAhB,CADrB;WAXG;AAeL,cAAG,IAAK,KAAG,EAAX;AAGJ;WAHI;AAOA,cAAG,EAAG,KAAG,EAAT;AAGJ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;;AAKM,gBAAG,QAAQ,kBAAX;AAEoC,sBAAS,MAA3C,GAAqD;AACrD,kBAAY,QAAQ,YAAT,QAAX,EACE,QAAQ,YAAW,CAAC,QAAD,CADrB;aAHF;;AAjNJ;;AApB0C;AAxFI;AAK9C;AAAG;AACH;AAEA,aAAM;AACN,YAAK;AACL,aAAM;AAER;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAlEgD;AAuEN;;AAnGrB;;;AAYnB;AA/BY;AATd,GASc,iFATd;ACAA,qCAyCS,+HAzCT;;;;AAsES,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AACO,2BAAG;AACJ,0BAAG;AACC,8BAAG,IAAK,GAAE,qBAAF;AACR,8BAAG,IAAwB,GAAjB,qBAAF,GAAqB,IAAF;AACjC,wBAAG,cAAC,IAAK,IAAK,IAAK,GAAhB;AASQ;;AAKH;;AAuUA;AApJC;AA0EM;AApPD,mFAA2B,YAoP1B,4CApP0B,EAA3B;AAEQ,2FAAmB,UvIQhD,2BuIRgD,EAAyB,YAkPnD,4CAlPmD,EAA5C;AAEL,sFAA2B,YAgP7B,4CAhP6B,EAA3B;AAES,kGAA+D,wBAA/D;AAEA,kGAA+D,W9HwuB1F,mC8HxuB0F,EAA/D;AAEN,4FAAsE,kBA0O3E,4CA1O2E,EAAtE;AAEO;;;AAEvC;AACA;AACA;AAJuC;;;;;;;AAs0EiB;AAE1D,8BAAoB;AACpB,6BAAmB;AACnB,6BAAmB;AAJoN;AAA7K;AAt0EjB;AASC,oGAAsE,kBA+NnF,4CA/NmF,GAA0C,wBAAhH;AAElB,+EAAmB,UvIbpC,2BuIaoC,EAA+B,kBA6N7C,4CA7N6C,GAAyC,uBAA3F;AAEO,sFAAiC,kBA2NnC,4CA3NmC,GAAyC,uBAA1E;AAEF,oFAAmB,UvIjBzC,2BuIiByC,EAA+B,kBAyNlD,4CAzNkD,GAA0C,yBAAiB,uBAA7G;AAEO,2FAAiC,kBAuNxC,4CAvNwC,GAA0C,yBAAiB,uBAA5F;AAEP,oFAAmB,UvIrBzC,2BuIqByC,EAA+B,kBAqNlD,4CArNkD,EAAlD;AAEC,qFAAmB,UvIvB1C,2BuIuB0C,EAA+B,kBAmNnD,4CAnNmD,EAAlD;AAEF,mFAAmB,UvIzBxC,2BuIyBwC,EAA+B,kBAiNjD,4CAjNiD,EAAlD;AAEgB,mGAAqC,mCAArC;AAEtB,8FAEM,oBACF,iBACI,qBACN,cALF;;AAEM,wCAAe,YAiIpB,sCAjIoB,EAAf;AACF,qCAAe,YA0MZ,4CA1MY,EAAf;AACI,yCAAW,sBAA4B,8BAAyB,aANlD,2DAMkD,EAAhE;AACN;AALF;AAQC,+FAEG,kBACE,kBAHL;;AAEG,sCAAa,UA6QjB,qCA7QiB,EAAb,EAVJ,oCAUI;AACE,uCAAa,UAXnB,qCAWmB,EAAb;AAHL;AAMM;;;AAE3B;AACA;AAH2B;AAuwCiB;AAE9C,mBAAS;AACT,oBAAU;AAHkE;AAA9B;AAvwCjB;AAWlB;;AAEN,6EAEe,YACH,QACC,QAJb;;AAEe,kCAJT,yBAIS;AACH;AACC;AACD,8BAPN,0BAOM;AALZ;AAoBA;;;AAKH;AACA;AACA;AAPG;;;;;;AAorDiB;AAAT;AAEb,eAAU;AAFG;AAAS;AAbA;AAEtB,yBAA2B;AAC3B,uBAAa;AACb,sBAAY;AAJ4G;AAAlG;AAOA;AAEtB,uBAAa;AACb;AAHsB;AAmBH;AAKnB,UAAY,cAAD,QAAX,EACE,cAAS,CAAC,aAAD,CADX;AAGA,yBAA2B;AARR;AARC;AAKpB,yBAA2B;AALP;AAzrDf;;;AAmByB;AAonDe;AAAP;AAEtC,eAAkD,YAAK,CAAC,KAAD;AAFjB;AAAO;AAKC;AAEpC,kBAAK,CAAC,MAAU,KAAX;AAF+B;AAznDhB;AAQN;AAkmDe;AAAP;AAEhC,eAA4C,YAAK,CAAC,KAAD;AAFjB;AAAO;AAKC;AAE9B,kBAAK,CAAC,MAAU,KAAX;AAFyB;AAvmDhB;AAcK;;AAEA;;AAEI;;AAqBK;;;AAEpC;AAFoC;AA8vDwB;AAE9D,UAAG,CAAI,aAAP,EACE,sBADF;AAGA,UAAG,YAAa,KAAG,EAAnB,EACE,iBAAa,cAAU,GAAE,mBAAM,CAAC,kBAAmB,GAAE,sBAAF,CAAqB,mBAAC,eAAD,CAAzC,CADjC;AAGA,UAAG,wBAAyB,KAAG,EAA/B,EACE,iBAAa,cAAU,GAAE,mBAAM,CAAC,+BAAgC,GAAE,sBAAF,CAAqB,mBAAC,2BAAD,CAAtD,CADjC;AAGA,UAAc,CAAV,SAAU,KAAG,EAAH,CAAO,IAAW,CAAN,KAAM,KAAG,EAAH,CAAhC;AACE,yBAAa,cAAU,GAAE,mBAAM,CAAC,uBAAmE,GAAzC,SAAF,GAAc,4BAAF,GAAiC,sBAAF,CAAqB,mBAAC,SAAO,YAAR,CAAzF,CAAR;AACpB,gBAAI,KAAM,KAAG,EAAb;AACH,yBAAa,cAAU,GAAE,mBAAM,CAAC,uBAAoD,GAA1B,SAAF,GAAc,aAAF,GAAkB,sBAAF,CAAqB,mBAAC,QAAD,CAA1E,CAAR;AACpB,gBAAI,SAAU,KAAG,EAAjB,EACH,iBAAa,cAAU,GAAE,mBAAM,CAAC,uBAAwD,GAA9B,SAAF,GAAc,iBAAF,GAAsB,sBAAF,CAAqB,mBAAC,YAAD,CAA9E,CAD5B;AAGL,UAAG,MAAO,KAAG,EAAb;AAEE,YAAG,CAAI,mBAAP;AACE,2BAAa,cAAU,GAAE,mBAAM,CAAC,sBAAyB,GAAL,IAAF,GAAS,sBAAF,CAAqB,mBAAC,SAAD,CAA/C,CAAR;AAEvB,+BAAa,cAAU,GAAE,mBAAM,CAAC,sBAAkB,GAAE,IAAF,CAAQ,mBAAC,SAAD,CAA3B,CAAR;OAGzB,uBAAa,cAAU,GAAE,sBAAF;AA1BqC;AAmDV;AAEpD,uBAAa;AAFuC;AAZE;AAEtD,uBAAa,cAAU,GAAE,KAAF;AACvB,UAAG,UAAH,EACE,iBAAa,cAAU,GAAE,qBAD3B;AAHsD;AAtDO;AAE7D,uBAAa,cAAU,GAAE,mBAAM,CAAC,kBAAmB,GAAE,sBAAF,CAAqB,mBAAC,SAAD,CAAzC,CAAR;AAFsC;AA4CF;AAE3D,uBAAa,cAAU,GAAE,sBAAF;AAFoC;AAlDC;AAG5D,0BAAe,CAAC,aAAc,MAAO,OAAQ,cAAe,UAAW,aAAc,yBAA0B,mBAAhG;AAH6C;AAgBE;AAE9D,uBAAa,cAAiC,GAArB,yBAAF,GAAyB,sBAAF;AAFgB;AAuCA;AAE9D,uBAAa,cAAiC,GAArB,yBAAF,GAAyB,sBAAF;AAFgB;AA5CJ;AAE1D,0BAAe,CAAC,YAAa,MAAO,OAAQ,cAAe,UAAW,aAAc,yBAA0B,mBAA/F;AAF2C;AAkEN;AAEpD;AAFoD;AAVD;AAAL;AAE9C,eAAU;AAFoC;AAAK;AA5yDb;AAkBf;;;AAErB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAzBqB;;;;;;;;;AA62CuB;AAAf;AAE/B,UAAG,CAAY,CAAC,kBAAD,SAAf,EACE,qBAAiB,yBAAa,QAAC,UADjC;AAEA,eAAU;AAJqB;AAAe;AAhEL;AAAV;AAE/B,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,gBAAY,mCAA8B,QAAC,YAD7C;AAEA,eAAU;AAJqB;AAAU;AAfK;AAAf;AAG/B,eAAU,kCAA6B,QAAC,YAAM,CAAC,OAAO,OAAO,OAAO,OAAtB,CAAN;AAHT;AAAe;AAjBN;AAExC,oBAAU;AACV,qBAAW;AACX,yBAAe;AACf,6BAAmB,CAAC;AACpB,0BAAgB;AAChB,6BAAmB;AAPsB;AAAD;AAUA;AAExC,6BAAU,CAAC;;;;UAAD;AACV,6BAAU,CAAC;;;;UAAD;AACV;AAJwC;AA1FF;AAEtC;AAEA,oBAAU,QAAQ;AAClB,mBAAS,QAAQ;AACjB,mBAAS,QAAQ;AACjB,mBAAS,QAAQ;AACjB,qBAAW,QAAQ;AACnB,oBAAU,QAAQ;AAClB,mBAAS,QAAQ;AACjB,uBAAa,QAAQ;AACrB,yBAAe,QAAQ;AACvB,6BAAmB,QAAQ;AAC3B,0BAAgB,QAAQ;AACxB,6BAAmB,QAAQ;AAE3B,UAAG,QAAQ,kBAAX,EACE,sBAAY,eAAe,CAAC,QAAQ,gBAAC,EAAV,CAD7B;AAGA,+BAAe,QAAQ,YAAvB;AACA,yBAAe,QAAQ;AACvB,4BAAkB,QAAQ;AAE1B,0BAAgB,QAAQ;AACxB,0BAAgB,QAAQ;AACxB,yBAAe,QAAQ;AACvB,yBAAe,QAAQ;AACvB,+BAAe,QAAQ,YAAvB;AACA,0BAAgB,QAAQ;AACxB,wBAAc,QAAQ;AAEtB,uBAAO;AACP,eAAS,QAA4B,OAAvB,QAAQ,WAAC,EAAO,SAAC,EAAM,GAAE,CAAF,kBAArC;AAAI;AACF,yBAAO,MAAI,CAAC,oBAAe,CAAC,QAAQ,WAAC,EAAO,WAAC,CAAD,CAAjB,CAAhB;;AAlCyB;AAqCD;AAErC;AACA,mBAAS;AACT,mBAAS;AACT,6BAAmB,CAAC;AACpB,mBAAS;AACT,oBAAU;AACV,qBAAW;AACX,yBAAe;AACf,mBAAS;AACT,uBAAa;AACb,0BAAgB;AAChB,0BAAgB;AAChB,yBAAe;AACf,yBAAe;AACf,0BAAgB;AAChB,wBAAc;AACd,UAAY,kBAAD,QAAX;AAEE,0BAAa;AACb,0BAAa,YAAC,CAAY,CAAZ;OAHhB;AAMA,sBAAW,KAAX,GAAoB;AACpB,sBAAW,KAAX,GAAoB;AACpB,sBAAW,KAAX,GAAoB;AACpB,sBAAW,KAAX,GAAoB;AAKpB,yBAAe;AACf,4BAAkB;AAClB,0BAAgB;AAChB,6BAAmB;AAnCkB;AAsCO;AAE5C,uBAAO;AAFqC;AAhFE;AAAf;AAE/B,eAAkB,CAAC,kBAAD,SAAgB,IAAwB,CAAnB,kBAAa,QAAC,EAAK,GAAE,CAAF,CAAxB;AAFH;AAAe;AATF;AAAb;AAG/B,eAAmB,gBAAW,KAAZ;AAHa;AAAa;AAqHE;AAAf;AAE/B;AAEA,eAAU;AACV,eAAS,QAAmB,OAAd,iBAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AACF,iBAAU,MAAmD,GAA1C,iBAAO,WAAC,CAAD,CAAG,MAAZ,GAAoB,IAAF,GAAS,iBAAO,WAAC,CAAD,CAAG,OAAZ,GAAoB,MAAD;;AANhC;AAAe;AAgBA;AAAf;AAE1B;AACH,UADG,IACH;AAAO,iBAAU;AACjB,iBAFG,IAEH,mDAAQ,CAFL,IAEK,wDAAR,IAAyB,CAFtB,IAEsB,+DAAzB;AAAiD,iBAAU;AAC3D,iBAHG,IAGH,kDAAO,CAHJ,IAGI,uDAAP,IAAuB,CAHpB,IAGoB,8DAAvB,IAA8C,CAH3C,IAG2C,iDAA9C;AAAwD,iBAAU;AAClE,gBAJG,IAIH;AAAU,iBAAU;AACpB,gBALG,IAKH,iDAAS,SAAU,OAAnB;AAP6B;AAAe;AAgET;AAAN;AAE/B;AAAG;AAEH,UAAK;AACL,UAAG,UAAK,GAAE,CAAV,EACE,IAAK,GAAI,GAAE,qBAAQ,CAAC,UAAD,CADrB;AAGA,UAAK;AACL,UAAG,WAAM,KAAG,EAAZ,EACE,IAAK,GAAI,GAAE,WADb;AAGA,eAAU,UAAgB,GAAT,CAAF,GAAM,UAAF,GAAS,CAAF;AAZK;AAAM;AA9BG;AAAT;AAE/B;AACA;AACA;AAEA,UAAK;AAEL,UAAG,cAAG,CAAC,MAAM,sBAAS,CAAC,CAAD,CAAhB,CAAqB,GAAE,CAA7B,EACE,iBAAM,CAAC;;;;WAAG,EAAG,cAAG,CAAC,MAAO,CAAR,CAAW,GAAE,CAAvB,CADR;AAGA,mBAAc,cAAG,CAAC,IAAK,CAAN;AACjB,gBAAW,cAAG,CAAC,IAAK,CAAN;AAEd,UAAY,CAAR,OAAQ,GAAE,CAAF,CAAK,IAAa,CAAR,OAAQ,GAAE,UAAF,CAA9B,EACE,iBAAM,CAAC;;;;WAAG,EAAG,OAAQ,GAAE,CAAjB,CADR;AAGA,UAAG,UAAW,GAAE,CAAhB,EACE,iBAAM,CAAC;;;;WAAG,EAAG,UAAW,GAAE,CAApB,CADR;AAGA,eAAU;AApBqB;AAAS;AAXG;AAAZ;AAE/B;AAEA,UAAK;AACL,UAAG,WAAM,KAAG,EAAZ,EACE,IAAK,GAAI,GAAE,WADb;AAGA,eAAU,UAAK,GAAE,CAAF;AARgB;AAAY;AAZL;AAAP;AAE/B,eAAU;AACV,UAAG,MAAO,KAAE,CAAZ;AAEE,YAAG,cAAG,CAAC,QAAS,sBAAS,CAAC,UAAD,CAAnB,CAA2B,GAAE,CAAnC;AACE,mBAAU;AAEV,uBAAU;OALd;AAH+B;AAAO;AA1JE;AAAT;AAG/B;AAEA,UAAK,kCAA6B,QAAC,YAAM,CAAC,MAAO,MAAR,CAAN;AACnC,uBAAO,MAAI,CAAC,CAAD;AACX,eAAU;AAPqB;AAAS;AAVS;AAAlB;AAE/B;AAEA,UAAK,kCAA6B,QAAC,YAAM,CAAC,gBAAiB,QAAS,GAAE,sCAAY,SAAS,CAAC,SAAgB,GAAJ,GAAF,GAAQ,SAAF,CrD1qCtC,KqD0qCqB,CAAlD,CAAN;AACnC,uBAAO,MAAI,CAAC,CAAD;AACX,eAAU;AANqB;AAAkB;AA3pC1B;AA0EM;;;AAE3B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEA;AAEA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEA;AACA;AACA;AA1B2B;;;;;;;;;;;;;;;AAu6CsB;AAEnD,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,IAAD,CADhB;AAIA,UAAY,aAAD,QAAX,EACE,aAAQ,CAAC,IAAD,CADV;AAIA,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAVmD;AANE;AAErD,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,cAAP,CADlB;AAFqD;AAyCF;AAEnD,UAAG,uBAAH;AAUI;OAKF;AAjBiD;AA/CH;AAEhD,UAAY,WAAD,QAAX,EACE,WAAK,CAAC,KAAM,aAAP,CADP;AAFgD;AA0BK;AAErD,uBAAa;AACb,UAAG,uBAAH;AAUI;OAKF;AAlBmD;AA1CA;AAAhB;AAErC,eAAU;AAF2B;AAAgB;AAlDP;AAEpC;AAFqC;AAAD;AAKA;AAEpC;AACV,iBAAM,CAAC,QAAD;AACN,oBAAU;AACV,gCAAS,KAAT;AACA,6BAAmB;AACnB,+BAAqB;AACrB,2BAAiB,yBAAa,QAAC;AAC/B,8BAAoB,mCAA8B,QAAC;AATuP;AAA5P;AAYA;AAE9C,2BAAiB;AAEjB,UAAY,UAAD,QAAX,EACE,UAAK,SADP;AAGA,gCAAS,IAAT;AACA,6BAAmB;AACnB,+BAAqB;AACrB,UAAY,kBAAD,QAAX,EACgB,SAAd,KAAc,gBADhB;AAGA,UAAY,qBAAD,QAAX,EACmB,SAAjB,KAAiB,mBADnB;AAEA;AAf8C;AAjCH;AAE3C;AACA,4BAAkB;AAClB,yBAAe;AACf,sBAAY;AACZ,2BAAiB;AACjB,wBAAa;AACb,6BAAmB;AACnB,+BAAqB;AACrB,gCAAS,IAAT;AACA,2BAAiB;AACjB,sBAAY;AACZ,2BAAgB;AAb2B;AAdC;AAE5C,UAAY,UAAD,QAAX,EACE,UAAI,SADN;AAF4C;AAqFH;AAEzC,sBAAY;AAKZ;AAPyC;AA/EW;AAAf;AAErC,UAAG,kBAAH;AACE,iBAAU;AAEV,qBAA+C,CAApC,uBAAoC,IAAP,CAAC,UAAD,SAAZ,IAAoC,CAAZ,UAAI,UAAC,EAAO,KAAe,yBAAf,CAAjB,CAA2C,IAAG,CAAI,uBAAP;AALvD;AAAe;AA2DE;AAAjB;AAErC;AAEA,eAAU;AACV,eAAS,QAA2B,OAAtB,qBAAe,SAAC,EAAM,GAAE,CAAF,kBAApC;AAAI;AAEF,YAAG,sBAAS,CAAC,qBAAe,WAAC,CAAD,CAAG,MAAnB,CAA0B,KAAE,sBAAS,CAAC,KAAD,CAAjD;AAEE,mBAAU,qBAAe,WAAC,CAAD,CAAG;AAC5B;SAHF;;AAPmC;AAAiB;AA53CzB;AA8DN;;;AAErB;AACA;AACA;AAJqB;AAikDe;AAEtC,UAAa,4BAAH,eAAP,MAAO,CAAV;AAEE,wBAAoB,OAAP,OAAU,4BAAH,CAA2B;AAC/C,6BAAyB,OAAP,OAAU,4BAAH,CAA2B;AACpD,qBAAiB,OAAP,OAAU,4BAAH,CAA2B;OAG5C;AAToC;AAjkDf;AAYD;;;AAEpB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAhBoB;;;;;;;;;;;;;;;;;AAogB2B;AAAnB;AAE9B,eAAU,iBAAa,KAAa,CAAV,eAAU,GAAE,MAAF,CAAb;AAFO;AAAmB;AA+ER;AAGzC,mBAAQ,OAAO,CAAC,KAAD;AAH0B;AALD;AAExC,kBAAO,OAAO,CAAC,KAAD;AAF0B;AA3IQ;AAAlB;AAE9B,UAAG,CAAY,CAAC,qBAAD,SAAf,EACE,wBAAoB,2CAAsC,QAAC,UAD7D;AAGA,eAAU;AALoB;AAAkB;AAqPA;;AAtHJ;AAE5C;AAOA;AAT4C;AAzMQ;;AAoWA;;AAvSX;AAAX;AAE9B,eAAU;AAFoB;AAAW;AA4DD;AAAV;AAE9B,eAAU,4BAAgB,CAAC,EAAS,EAAS,EAAS,CAA5B;AAFI;AAAU;AApBD;AAAT;AAE9B;AACA;AAEA,eAAU;AACV,eAAS,QAAkB,OAAb,YAAM,SAAC,EAAM,GAAE,CAAF,kBAA3B;AAAI;AAEF,YAAG,OAAH;AACE,qBAAY,sCAAY,UAAU,CAAC,YAAM,KAAC,CAAD,CAAP;AAElC,yBAAY,YAAM,KAAC,CAAD;AAEpB,YAAG,MAAO,KAAE,EAAZ;AACE,mBAAU;AAEV,uBAAU,MAAoB,GAAX,UAAF,GAAe,QAAF;;AAhBJ;AAAS;AAhEe;AAAlB;AAEpC,UAAG,CAAY,CAAC,sBAAD,SAAf,EACE,yBAAoB,2BAAsB,QAAC,YAD7C;AAGA,eAAU;AAL0B;AAAkB;AAgBM;AAAxB;AAEpC,UAAG,CAAY,CAAC,4BAAD,SAAf,EACE,+BAA0B,2CAAsC,QAAC,UADnE;AAGA,eAAU;AAL0B;AAAwB;AARR;AAAhB;AAEpC,UAAG,CAAY,CAAC,oBAAD,SAAf,EACE,uBAAkB,mCAA8B,QAAC,YADnD;AAGA,eAAU;AAL0B;AAAgB;AAmGlB;AAMlC;AAEA,UAAG,CAAI,aAAP,EACE,MADF;AAGA,UAAY,kBAAD,QAAX;AACE,0BAAY,CAAC,KAAM,eAAgB,QAAvB;;AAIZ,YAAK,sCAAY,cAAc,CAAC,mBrDpsBmD,MAAmC,KqDosBvF,CAAa,GAAL,IAAF,GAAS,QAAF;AAOhD;;AAvBoC;AA2NwB;AAE1D;AAEA,UAAY,cAAc,YAAf,QAAX;AAEE,cAAiD,cAAc;AAC/D,YAAY,GAAG,iBAAJ,QAAX,EACE,GAAG,iBAAiB,CAAC,cAAD,CADtB;AAGA,YAAY,GAAG,gBAAJ,QAAX,EACE,GAAG,gBAAgB,CAAC,cAAc,cAAf,CADrB;AAGA,YAAY,GAAG,gBAAJ,QAAX,EACE,GAAG,gBAAgB,CAAC,cAAc,cAAf,CADrB;AAEA,WAAI,eAAJ,GAAI;OAXN;AAJ0D;AA0BZ;AAE9C,UAAW,CAAC,cAAD,SAAiB,IAAI,cAAc,OAA9C,EACE,cAAS,SAAO,CAAC,cAAD,CADlB;AAGA,UAAG,cAAe,SAAC,EAAM,KAAE,CAA3B,EACE,yBADF;AAL8C;AAsCE;AAGhD,UAAY,cAAD,QAAX;AAEE,sBAAc,IAAI,CAAC,8BAA+D,GAA9B,cAAc,MAAhB,GAAwB,OAAF,GAAY,qBAAQ,CAAC,cAAc,cAAf,CAA1E;AAClB,YAAI,cAAc,cAAc,IAAG,mBAAnC;AAEqB,qBAAd,cAAc;AACjB,cADiB,IACjB;AAAW,0BAAc,IAAI,CAAC,uBAAwD,GAA9B,cAAc,MAAhB,GAAwB,OAAF,GAAY,cAAc,cAAzE;AAC7B,oBAFiB,IAEjB;AAAW,0BAAc,IAAI,CAAC,uBAA2E,GAAjD,cAAc,MAAhB,GAAwB,0BAAF,GAA+B,sCAAY,oBAAoB,CAAC,cAAc,cAAa,QAAC,EAA7B,CAA9G;AAC7B,oBAHiB,IAGjB,qDAAS,cAAc,IAAI,CAAC,uBAA0G,GAAhF,cAAc,MAAhB,GAAwB,6BAAF,GAAkC,cAAc,YAAhB,GAA8B,GAA7G,CAA3B;SAIF,MAAA,cAAc,IAAI,CAAC,uBAAwD,GAA9B,cAAc,MAAhB,GAAwB,OAAF,GAAY,cAAc,cAAzE;AAEpB,sBAAc,SAAd,GAA2B,cAAc,cAAc,IAAG,mBAAH;AAEvD,8BAAkB;AAElB,YAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,cAAP,CADnB;AAGA,sBAAc;OArBhB;AAHgD;AAVC;AAGjD,UAAY,cAAD,QAAX;AAEE,YAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,cAAP,CADpB;OAFF;AAHiD;AAbF;AAG/C,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,cAAP,CADlB;AAH+C;AANE;AAEjD,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,IAAD,CADpB;AAFiD;AAgED;AAGhD,UAAY,cAAD,QAAX;AAEE,YAAY,cAAD,QAAX,EACE,cAAc,gBAAgB,CAAC,UAAW,OAAZ,CADhC;AAEA,YAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,eAAgB,UAAW,OAAlC,CADnB;OAJF;AAHgD;AAPL;AAG3C,UAAY,cAAD,QAAX,EACE,QAAG,CAAC,eAAgB,WAAjB,CADL;AAH2C;AAzUU;AAGrD,UAAW,CAAC,eAAD,SAAa,IAAY,CAAC,QAAD,SAApC;AAEE,8BAAkB;AAClB,6BAAgB,CAAC,QAAD;AAChB,gBAAQ,SAAR,GAAoB;AACpB,gBAAQ,IAAI,CAAC,qBAA0E,GAAlD,QAAQ,MAAV,GAAkB,eAAF,GAAoB,QAAQ,SAAV,GAAoB,GAA7E;AACZ,uBAAU,eAAe,CAAC,QAAD;OAN3B;AAHqD;AA4GM;AAG3D;AAEA,UAAK;AACL,UAAY,CAAD,QAAX;AAEE,SAAC,SAAQ;AACT,SAAC,SAAQ,MAAT,GAAkB;AAClB,SAAC,SAAQ,YAAT,GAAwB;AACxB,SAAC,eAAe,CAAC,oBA9hB4J,KAA6B,IA8hB1L;OALlB;AAN2D;AAeF;AAArB;AAGpC;AAEA,eAAU;AACV,UAAK;AACL,UAAY,CAAD,QAAX;AAEE,SAAC,SAAQ;AACT,SAAC,SAAQ,MAAT,GAAkB;AAClB,SAAC,SAAQ,YAAT,GAAwB;AACxB,iBAA8B,MAAwC,CAAC,eAAe,CAAC,KAAK,KAAK,KAAX;OALxF;AAPoC;AAAqB;AAlPlB;AAEvC,mBAAM,CAAC,IAAD;AAFkC;AAAD;AAKA;AAEvC;AAFuC;AAIvC;AACA,YAAG,qCAAgC,UAAQ,0BAAwB,CAAC,+CAAmC;mBAAC;AAAD;;YAApC,CAAnE,EACE,+BAAc,gBAAgB,gBAAgB,CAAC,IAAD,EAA9C,KADF;AAGA,wBAAY;AACZ,4BAAgB,eAAU,GAAE,MAAF;AAE1B,wBAAY,4BAAuB,QAAC;AACpC,yBAAa,6BAAwB,QAAC;AAEtC,wBAAY,4BAAuB,QAAC;AAEpC,uBAAW,uBAAW,QAAC;AAhBgB;AAEvC;AAFuC;AAAqB;AAArB;AA3DF;AAErC,UAAa,2BAAH,eAAP,MAAO,CAAV;AAEE,wBAAoB,OAAP,OAAU,2BAAH,CAA0B;AAC9C,4BAAwB,OAAP,OAAU,2BAAH,CAA0B;OAGlD;AARmC;AA2XE;AAEvC;AAFuC;AASvC,+BAAU,CAAC;;;;YAAD;AACV,+BAAU,CAAC;;;;YAAD;AACV,+BAAU,CAAC;;;;YAAD;AAEV,YAAG,qCAAgC,UAAQ,0BAAwB,CAAC,+CAAmC;mBAAC;AAAD;;YAApC,CAAnE,EACE,gBAAgB,iBAAiB,CAAC,eAAD,CADnC;AAGA,uCAAc,IAAd;AAES,iBAAT,KAAS;AACD,iBAAR,KAAQ;AAER;AArBuC;AAEvC;AAFuC;;AA8IU;AAEjD;AACA;AAEA,eAAS,QAAqB,OAAhB,cAAS,SAAC,EAAM,GAAE,CAAF,kBAA9B;AAAI;AAEF,cAAqC,cAAS,WAAC,CAAD;AAC9C,YAAG,CAAI,GAAG,SAAV;AAEE,cAAG,GAAG,mBAAN;AAKI,eAAG,MAAK;;AAIV,uCAAsB,CAAC,GAAD;;SAX1B;;AAR+C;AAnJd;;AAxVU;AAE7C;AACA;AACA;AAEA,eAAS,QAA2B,OAAtB,cAAe,SAAC,EAAM,GAAE,CAAF,kBAApC;AAAI;AAEF,YAAK,cAAe,WAAC,CAAD;AACpB,YAAQ,kCAAH,eAAF,CAAE,CAAL;AAEE,eAAS,OAAF,EAAK,kCAAH;AACT,YAAE;SAHJ;;AAT2C;AAPD;AAG5C,UAAY,QAAD,QAAX,EACE,QAAQ,SADV;AAH4C;AA0FG;AAAjB;AAG9B,eAAU;AACV,UAAY,eAAD,QAAX,EACE,SAAU,eAAU,kBAAkB,CAAC,QAAD,CADxC;AAJ8B;AAAiB;AAgBF;AAAf;AAE9B;AACA;AACA;AAEA,eAAU;AACV,eAAS,QAAqB,OAAhB,cAAS,SAAC,EAAM,GAAE,CAAF,kBAA9B;AAAI;AAEF,YAAK,cAAS,WAAC,CAAD;AACd,YAAQ,kCAAH,eAAF,CAAE,CAAL;AAEE,eAAQ,OAAF,EAAK,kCAAH;AACR,cAAiC,CAAlB,CAAV,SAAU,IAAI,CAAI,EAAE,MAAV,CAAkB,IAAG,CAAI,SAAP,CAAkB,IAA8B,CAAhB,CAAR,EAAE,MAAM,KAAE,YAAF,CAAgB,IAAiB,CAAb,YAAa,KAAE,EAAF,CAAjB,CAAjF,EACM,MAAJ,IAAG,CADL;SAHF;;AAV4B;AAAe;AAtKL;AAAV;AAE9B;AACA;AAHwC;AAKxC,2BAAK,IAAL;AACA,cAAO,kCAA6B,QAAC,YAAM,CAAC,cAAS,oBAAqB,4BAA6B,OAAQ,CAApE,CAAN;AACrC,WAAG,UAAH,GAAgB;AAChB,WAAG,YAAH,GAAkB;AAClB,WAAG,aAAH,GAAmB;AACnB,WAAG,YAAH,GAAkB;AAClB,WAAG,OAAH,GAAa;AAEb,YAAG,GAAG,mBAAN;AAGE,6BAAiB,eAAZ,UAAK,QAAC,YAAM,CAAC,IAAM,iDAAP,CAAN,YAAM,EAAjB;SAHF;AAiBA,iCAAY,CAAZ;AAEA,sBAAS,MAAI,CAAC,GAAD;AAEb,iBAAU;AAlC8B;AAGxC;AAHwC;AAAV;AAAU;AAukBI;;AAAd;AAG9B;AAIA,eAAqB,IAAX,OAAW,CACnB;AAEE,cAAO,gBAAU,CAAC,oBAAqB,4BAA6B,MAAnD;AAEjB,YAAG,CAAI,MAAP,EACE,GAAG,SAAH,GAAgB,QADlB;AAGA,YAAY,GAAD,QAAX,EACE,4BAAsB,CAAC,GAAD,CADxB;AAGA,YAAG,MAAH,EACE,QAAQ,CAAC,GAAD,CADV;AAVF,OADmB;AAPS;AAAc;AAxFY;AAGxD,iCAAsB,CAAC,KAAM,iDAAW,mBAAlB;AAHkC;AA3LG;AAE3D,iCAAsB,CAAC,KAAM,iDAAW,mBAAlB;AAFqC;AAKA;AAE3D,iCAAsB,CAAC,KAAM,iDAAW,mBAAlB;AAFqC;AA9lBrC;;;;;AAqEF;AACA,+BAAO,U9HuEjB,+B8HvEiB,CAAP;AAtEE;AAuGN;;;;;;AAEE;AACI;AACJ;AACW,0C9HxgBjB,kC8HwgBiB;AACN,oCApZC,uCAoZD;AACK,yCA7YC,4CA6YD;AACC,0CA5YC,6CA4YD;AACF,wCA3YC,2CA2YD;AACC,yCApZC,4CAoZD;AAVZ;;AAcI;AAozCe;AAAP;AACzB;AADgC;AAEnC,qCAAgC,cAAW,QAAK,CAAC,KAAD,CAAhB,CAAhC;AADG;AADgC;AAChC;AADgC;AAAP;AAAO;AAKC;AAE1B,cAAK,CAAC,MAAU,KAAX;AAFqB;AAzzChB;AAYU;;;AAE5B;AAF4B;;;;;AA8yB0B;AAGxD,UAAgB,CAAZ,gBAAY,KAAG,IAAH,CAAQ,IAAY,CAAP,MAAO,KAAG,IAAH,CAApC,EACE,gBAAW,OAAO,CAAC,MAAD,CADpB;AAHwD;AAxBT;AAErC;AACV,yBAAe,yBAAoB,QAAC;AAHY;AAAD;AAYA;AAE/C,6BAAU,CAAC;;;;UAAD;AACA;AAHqC;AANM;AAAf;AACnC;AADkD;AAErD,qCAAU,sBAAiB,CAAC,MAAD,EAA3B;AACA,wBAAW,IAAI,CAAC,MAAD;AAFZ;AADkD;AAClD;AADkD;AAAf;AAAe;AAYE;AAGvD,4BAAiB,CAAC,MAAD;AAHsC;AAxyBzB;;;AAYK;;;AAEjC;AACA;AAHiC;;;;;AAi3CiB;AAGpD,mBAAS;AACT,qCAAc,UAAd;AAHwB;AAD4B;AAj3CjB;AAWH;AA2xCe;AAAP;AAExC,eAAwD,YAAK,CAAC,KAAD;AAFrB;AAAO;AAKC;AAEtC,kBAAK,CAAC,MAAU,KAAX;AAFiC;AA8FA;AAAR;AAExC;AACG;AAH6C;AAIhD,qCAAU,IAAV;AACA,iBAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,cAAG,cAAK,CAAC,CAAD,CAAG,MAAM,KAAE,KAAnB;AAEE,yCAAU,cAAK,CAAC,CAAD,CAAG,WAAlB;AACA;WAHF;;AAJC;AAH6C;AAG7C;AAH6C;AAAR;AAAQ;AAfG;AAAX;AAExC;AAEA,eAAU;AACV,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,YAAG,cAAK,CAAC,CAAD,CAAG,MAAM,KAAE,KAAnB;AAEE,mBAAU;AACV;SAHF;;AAPsC;AAAW;AA8BE;AAErD;AAEA,eAAe,KAAN,eAAM,GAAE,CAAF,EAAW,aAA1B;AAAI;AAEF,YAAG,cAAK,CAAC,CAAD,CAAG,MAAM,KAAE,KAAnB;AAEE,uBAAM,CAAC,cAAK,CAAC,CAAD,CAAN;AACN;SAHF;;AANmD;AA74CrB;AAkBA;AAGpB;AACA;AAJoB;;AAE9B;AAF8B;;;;;AAsyB6B;AAE7D,6BAAU,CAAC;;;;UAAD;AACV,+DAAoB;AAHyC;AAbZ;AAEjD;AACA,2BAAiB,qCAAgC,QAAC;AAHA;AAAD;AAMA;AAEjD,6BAAU,CAAC;;;;UAAD;AACV;AAHiD;AAjBU;AAE3D;AAF2D;AAI3D,YAAG,CAAI,kBAAa,YAAY,CAAC,yBAAY,CAAC,YAAD,CAAb,CAAhC;AAEE,cAAG,uBAAQ,CAAC,SAAU,aAAc;;;;cAAzB,CAAX,EACE,kBAAa,MAAI,CAAC,wCAAmC,QAAC,YAAM,CAAC,yBAAY,CAAC,YAAD,EAAgB,QAA7B,CAAN,CAArC,CADnB;SAFF;AAJ2D;AAE3D;AAF2D;;AA8CG;AAE9D,wBAAa,aAAa,CAAC,yBAAY,CAAC,YAAD,CAAb;AAFoC;AARJ;AAAlB;AAExC;AACG;AAHuD;AAI1D,2BAAK,kBAAa,SAAW,CAAC,yBAAY,CAAC,YAAD,CAAb,EAA7B;AACA,+BAAQ,CAAC,EAAG,aAAc;;;;YAAlB;AAFL;AAHuD;AAE1D;AACG;AAHuD;AAAlB;AAAkB;AAyBK;AAAvB;AAExC,eAAU,kBAAa,YAAY,CAAC,yBAAY,CAAC,YAAD,CAAb;AAFK;AAAuB;AAZA;AAAvB;AAErC;AAF4D;AAG/D,YAAG,kBAAa,YAAY,CAAC,yBAAY,CAAC,YAAD,CAAb,CAA5B;AACE,mBAAU,uBAAQ,CAAyB,UAAxB,kBAAa,SAAW,CAAC,yBAAY,CAAC,YAAD,CAAb,GAA8B,aAAc,QAArE;;AAGlB,uBAAY,IAAZ;AACA,mBAAU;;AARmD;AAE5D;AAF4D;AAAvB;AAAuB;AApBV;AAAP;AAE9C,UAAa,CAAT,aAAS,KAAE,IAAF,CAAO,IAAI,CAAI,qBAA5B,EACE,iDAAY,qCAAgC,QAAC,YAD/C;AAEA,eAAU;AAJoC;AAAO;AA7yBrB;AAmDN;AAAnB;AAEP,aAAU,2BAAsB;AAFzB;AAAmB;AAKF;AAExB;AAEA,QAAK,2BAAsB;AAC3B,KAAC;AALuB;AAQH;AAErB;AAEA,QAAK,2BAAsB;AAC3B,KAAC,MAAI,CAAC,kCAA6B,QAAC,YAAM,CAAC,MAAO,MAAR,CAAN,CAA/B;AALgB;AAQG;AAExB;AACA;AACA;AAEA,QAAK,2BAAsB;AAC3B,QAAY,CAAD,QAAX;AAEE,OAAC,SAAQ;AACT,OAAC,SAAQ,MAAT,GAAkB;AAClB,OAAC,SAAQ,QAAT,GAAoB;AACpB,UAAK,2BAAsB;AAC3B,UAAY,CAAD,QAAX;AAEE,iBAAS,QAAa,OAAR,CAAC,SAAC,EAAM,GAAE,CAAF,kBAAtB;AAAI;AACF,WAAC,SAAQ,UAAU,CAAC,CAAC,WAAC,CAAD,CAAG,OAAO,CAAC,WAAC,CAAD,CAAG,OAAhB;;OAHvB;AAKA,OAAC,SAAQ,YAAT,GAAwB;AACxB,OAAC,eAAe,CAAC,oBArL4J,KAA6B,IAqL1L;KAZlB;AAPwB;AAuBA;AAExB;AACA;AACA;AAEA,QAAK,2BAAsB;AAC3B,QAAY,CAAD,QAAX;AAEE,OAAC,SAAQ;AACT,OAAC,SAAQ,MAAT,GAAkB;AAClB,OAAC,SAAQ,MAAT,GAAkB;AAClB,OAAC,SAAQ,OAAT,GAAmB;AACnB,OAAC,SAAQ,QAAT,GAAoB;AACpB,OAAC,SAAQ,UAAT,GAAsB;AACtB,UAAK,2BAAsB;AAC3B,UAAY,CAAD,QAAX;AAEE,iBAAS,QAAa,OAAR,CAAC,SAAC,EAAM,GAAE,CAAF,kBAAtB;AAAI;AACF,WAAC,SAAQ,UAAU,CAAC,CAAC,WAAC,CAAD,CAAG,OAAO,CAAC,WAAC,CAAD,CAAG,OAAhB;;OAHvB;AAKA,OAAC,SAAQ,YAAT,GAAwB;AACxB,OAAC,eAAe,CAAC,oBA/M4J,KAA6B,IA+M1L;KAflB;AAPwB;AA5qB1B,mBAsmBc;AAsBZ;AACA;AACA;AAxBY;AAw1Dd;AAEkC,0DAAhC,GAAqD;AACrD;AAHF;AA97EA,GAsmBc,wCAtmBd;ACAA,4CAWS,UAXT;;;;AA4FwC;AAEtC,QAAG,CAAI,8DAAgC,UAAQ,0BAAwB,CAAC,8EAAyC,CAAC,UAAD;eAAA,MAAC;AAAD;;QAA1C,CAAvE;AAEE,4CAAiD,eAA7B,mCAA6B,QAAC,wEAAD,EAAjD;AACA,oEAAgC,UAAQ,mBAAmB,CAAC,8EAA+B,sBAAhC;KAH7D;AAFsC;AASE;AAExC,kEAAgC,UAAQ,sBAAsB,CAAC,6EAAD;AAFtB;AArG1C,mBAgBc;AAmCK,8BAAG;AACQ,yCAAG;AACL,uCAAG;AACR,kCAAG;AAOK;AAFgB;;;;;AAEhB;AA+CyB;AAAjB;AAClC;AADmD;AAEtD,uCAAyC,eAA/B,qCAA+B,QAAC,iEAAD,EAAzC;AADG;AADmD;AACnD;AADmD;AAAjB;AAAiB;AA/CzB;;;;AAQE;;AA2EqB;AAAb;AAEvC,iBAAU;AAF6B;AAAa;AA0CN;AAAP;AACpC;AAD2C;AAE9C,mBAAU,wCAAmB,YAAW,KAAG,EAAH;AAFM;AAC3C;AAD2C;AAAP;AAAO;AALS;AAAhB;AAEvC,iBAAU;AAF6B;AAAgB;AA/CT;AAAP;AAEvC,iBAAU;AAF6B;AAAO;AAKO;AAAd;AAEvC,iBAAU;AAF6B;AAAc;AAUP;AAAP;AAEvC,iBAAU;AAF6B;AAAO;AAKO;AAAd;AAEvC,iBAAU,YAAO,CAAC,EAAD;AAFsB;AAAc;AAmBN;AAAR;AACpC;AAD4C;AAE/C,mBAAU,MAEO,GAFE,wCAAmB,YAArB,GACb,WAAF,GAAgB,QAAF,GACZ,YAAF,GAAiB,OAAF;AAJ8B;AAC5C;AAD4C;AAAR;AAAQ;AATA;AAAR;AAEpC;AAF4C;AAG/C,mBAAU,MAEO,GAFE,wCAAmB,YAArB,GACb,UAAF,GAAe,sCAAY,cAAc,CAAC,WAAW,SAAZ,CAA5B,GAAqD,GAAF,GAAQ,sCAAY,cAAc,CAAC,WAAW,UAAZ,CAA5B,GACpE,YAAF,GAAiB,OAAF;AAL8B;AAE5C;AAF4C;AAAR;AAAQ;AALG;AAAX;AAEvC,iBAAU;AAF6B;AAAW;AAgCL;AAE7C;AACA;AAEA;AAAG;AAAI;AACP;AAAK;AACL;AAAG;AACH;AAAI;AACJ;AAAO;AAAU;AAAY;AAAU;AAAW;AAC/C;AAV0C;AAW7C,cAAY,wCAAD,QAAX;AAEE,gBAAK,QAAQ;AAEb,gBAAY,CAAD,QAAX;AAEE,kBAAG,cAAe,KAAG,EAArB;AAEE,oBAAK,sCAAY,UAAU,CAAC,cAAD;AAC3B,oBAAY,CAAD,QAAX;AAEE;AACE,4BAAQ,UAAC,CAAU,sCAAY,YAAY,CAAC,EAAG,QAAJ,CAAlC;AACT,4BAAQ,gBAAC,CAAgB,sCAAY,YAAY,CAAC,EAAG,eAAJ,CAAxC;AAET,0BAA+C,OAAxC,sCAAY,aAAa,CAAC,EAAG,SAAJ,EAAkB,6BAAH;AAC/C,wBAAY,GAAD,QAAX;AAEE,+BAAS,QAAwC,OAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,kBAAjD;AAAI;AAEF,6BAAM,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEnC,6BAAM,CAAC;AACP,0BAAE,SAAF,GAAc,sCAAY,YAAY,CAAC,GAAI,mBAAL;AAEtC,8BAA2D,OAApD,sCAAY,aAAa,CAAC,GAAI,oBAAL,EAA8B,6BAAH;AAC3D,4BAAY,GAAD,QAAX;AAEE,mCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,kCAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEpC,oCAAkD,OAAxC,sCAAY,aAAa,CAAC,IAAK,OAAN,EAAkB,6BAAH,CAAc;AAChE,uCAAY,sCAAY,YAAY,CAAC,IAAK,WAAN;AACpC,wCAAa,sCAAY,YAAY,CAAC,IAAK,YAAN;AAErC,gCAAG,cAAG,CAAC,gBAAiB,KAAlB,CAAyB,GAAE,CAAjC,EACE,WAAY,QADd;AAEA,gCAAG,cAAG,CAAC,QAAS,KAAV,CAAiB,GAAE,CAAzB,EACE,aAAc,QADhB;AAEA,gCAAG,cAAG,CAAC,WAAY,KAAb,CAAoB,GAAE,CAA5B,EACE,EAAE,MAAF,GAAW,QADb;AAEA,gCAAG,cAAG,CAAC,cAAe,KAAhB,CAAuB,GAAE,CAA/B,EACE,EAAE,UAAF,GAAe,QADjB;AAEA,gCAAG,EAAE,UAAU,KAAE,EAAjB;AAEE,kCAAG,cAAG,CAAC,YAAa,KAAd,CAAqB,GAAE,CAA7B,EACE,EAAE,UAAF,GAAe,QADjB;6BAFF;AAKA,gCAAG,cAAG,CAAC,8BAA+B,KAAhC,CAAuC,GAAE,CAA/C;AAEE,gCAAE,QAAF,GAAa;AACb,gCAAE,YAAF,GAAiB;6BAHnB;AAKA,gCAAG,cAAG,CAAC,8BAA+B,KAAhC,CAAuC,GAAE,CAA/C;AAEE,gCAAE,UAAF,GAAe;AACf,gCAAE,cAAF,GAAmB;6BAHrB;AAKA,gCAAG,cAAG,CAAC,UAAW,KAAZ,CAAmB,GAAE,CAA3B;AAEE,gCAAE,SAAF,GAAc;AACd,gCAAE,aAAF,GAAkB;6BAHpB;AAKA,gCAA8B,CAA1B,cAAG,CAAC,cAAe,KAAhB,CAAuB,GAAE,CAAF,CAAK,IAAI,CAAsC,CAAjC,cAAG,CAAC,qBAAsB,KAAvB,CAA8B,GAAE,CAAF,CAA7E;AAEE,gCAAE,YAAF,GAAiB;6BAFnB;AAIA,gCAAG,cAAG,CAAC,eAAgB,KAAjB,CAAwB,GAAE,CAAhC;AAEE,gCAAE,cAAF,GAAmB;6BAFrB;AAKA,8BAAE,QAAF,GAAa,UAAiB,GAAJ,GAAF,GAAQ,QAAF;AAC9B,8BAAE,YAAF,GAAiB;AACjB,8BAAE,cAAF,GAAmB;;yBAjDvB;AAqDA,6BAAgD,OAA1C,sCAAY,aAAa,CAAC,GAAI,UAAL,EAAoB,8BAAH;AAChD,4BAAY,EAAD,QAAX;AAEE,sCAAc,sCAAY,YAAY,CAAC,GAAI,eAAL;AACtC,8BAAG,SAAU,KAAE,uBAAf;AACE,8BAAE,WAAF,GAAgB;AACb,oCAAG,SAAU,KAAE,kCAAf;AACH,8BAAE,WAAF,GAAgB;AACb,oCAAG,SAAU,KAAE,gCAAf;AACH,8BAAE,WAAF,GAAgB;AACb,oCAAG,SAAU,KAAE,2BAAf;AACH,8BAAE,WAAF,GAAgB;AAEhB,gCAAA,EAAE,WAAF,GAAgB;AAElB,+BAAgD,OAA1C,sCAAY,aAAa,CAAC,GAAI,UAAL,EAAoB,8BAAH;AAChD,8BAAY,EAAD,QAAX;AAEE,8BAAE,YAAW,YAAC,CAAY,sCAAY,mBAAmB,CAAC,GAAI,KAAL,CAA3C;AACd,8BAAE,YAAW,aAAC,CAAa,sCAAY,mBAAmB,CAAC,GAAI,KAAL,CAA5C;2BAHhB;yBAfF;;qBAhEJ;AALF;AA6FE,qBAAE,eAAF,CAAE;AA7FJ;iBAFF;eAHF;aAFF;WAJF;AAX6C;AAU1C;AAV0C;;AA9EK;;AAgBM;AACrD;AADqD;AAExD,gCAAgB,iBAAiB,CAAC,oFAAD;AAFuB;AACrD;AADqD;;AAVR;AAEhD;AAFiD;AAAD;AAKA;AAEhD;AAFgD;AAvDjB;;;;AAqB/B;AA1EY;AAhBd,GAgBc,yMAhBd;ACAA,0CAWS,UAXT;;;;AAuFsC;AAEpC,QAAG,CAAI,8DAAgC,UAAQ,0BAAwB,CAAC,4EAAuC,CAAC,UAAD;eAAA,MAAC;AAAD;;QAAxC,CAAvE;AAEE,4CAA+C,eAA3B,iCAA2B,QAAC,sEAAD,EAA/C;AACA,oEAAgC,UAAQ,mBAAmB,CAAC,4EAA6B,sBAA9B;KAH7D;AAFoC;AASE;AAEtC,kEAAgC,UAAQ,sBAAsB,CAAC,2EAAD;AAFxB;AAhGxC,mBAgBc;AAwCe;AAFgB;;;;;AAEhB;AA+CyB;AAAjB;AAChC;AADiD;AAEpD,uCAAuC,eAA7B,mCAA6B,QAAC,iEAAD,EAAvC;AADG;AADiD;AACjD;AADiD;AAAjB;AAAiB;AA/CzB;;;;AAQE;;AA2EqB;AAAb;AAErC,iBAAU;AAF2B;AAAa;AA8CN;AAAP;AAClC;AADyC;AAE5C,mBAAU,wCAAmB,YAAW,KAAG,EAAH;AAFI;AACzC;AADyC;AAAP;AAAO;AALS;AAAhB;AAErC,iBAAU;AAF2B;AAAgB;AAnDT;AAAP;AAErC,iBAAU;AAF2B;AAAO;AAKO;AAAd;AAErC,iBAAU;AAF2B;AAAc;AAUP;AAAP;AAErC,iBAAU;AAF2B;AAAO;AAKO;AAAd;AAErC,iBAAU;AAF2B;AAAc;AAqBN;AAAR;AAClC;AAD0C;AAE7C,mBAAU,SACA,GADY,wCAAmB,YAArB,GAChB,KAAF,GAAU,QAAF;AAGV,cAAG,OAAQ,KAAG,EAAd,EACE,SAAU,MAAkB,GAAT,QAAF,GAAa,OADhC;AAN6C;AAC1C;AAD0C;AAAR;AAAQ;AAXA;AAAR;AAElC;AAF0C;AAG7C,mBAAU,SAC0D,GAD9C,wCAAmB,YAArB,GAChB,MAAF,GAAW,sCAAY,cAAc,CAAC,WAAW,SAAZ,CAA5B,GAAqD,GAAF,GAAQ,sCAAY,cAAc,CAAC,WAAW,UAAZ,CAA5B;AAGpE,cAAG,OAAQ,KAAG,EAAd,EACE,SAAU,MAAkB,GAAT,QAAF,GAAa,OADhC;AAP6C;AAE1C;AAF0C;AAAR;AAAQ;AALG;AAAX;AAErC,iBAAU;AAF2B;AAAW;AAoCL;AAE3C;AACA;AAEA;AAAG;AACH;AACA;AACA;AACA;AAAQ;AACL;AAVwC;AAW3C,cAAY,wCAAD,QAAX;AAEE,gBAAK,QAAQ;AACb,gBAAY,CAAD,QAAX;AAEE,kBAAG,cAAe,KAAG,EAArB;AAEE,oBAAK,sCAAY,UAAU,CAAC,cAAD;AAC3B,oBAAY,CAAD,QAAX;AAEE;AACE,4BAAQ,UAAC,CAAU,sCAAY,YAAY,CAAC,EAAG,OAAJ,CAAlC;AACT,4BAAQ,gBAAC,CAAgB,sCAAY,YAAY,CAAC,EAAG,mBAAJ,CAAxC;AAET,wBAAG,QAAQ,QAAQ,KAAE,EAArB,EACE,QAAQ,UAAC,CAAU,sCAAY,YAAY,CAAC,EAAG,MAAJ,CAAkB,GAAJ,GAAF,GAAQ,sCAAY,YAAY,CAAC,EAAG,SAAJ,CAA9E,CADX;AAGA,wBAAG,QAAQ,cAAc,KAAE,EAA3B,EACE,QAAQ,gBAAC,CAAgB,sCAAY,YAAY,CAAC,EAAG,SAAJ,CAAxC,CADX;AAGA,0BAA6C,OAAtC,sCAAY,aAAa,CAAC,EAAG,OAAJ,EAAgB,6BAAH;AAC7C,wBAAY,GAAD,QAAX;AAEE,+BAAS,QAAwC,OAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,kBAAjD;AAAI;AAEF,6BAAM,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEnC,6BAAM,CAAC;AAEP,6BAA+C,OAAzC,sCAAY,aAAa,CAAC,GAAI,SAAL,EAAmB,8BAAH;AAC/C,4BAAY,EAAD,QAAX;AAEE,4BAAE,SAAF,GAAc,sCAAY,YAAY,CAAC,GAAI,OAAL;AACtC,4BAAE,aAAF,GAAkB,sCAAY,YAAY,CAAC,GAAI,aAAL;AAC1C,4BAAE,SAAF,GAAc,sCAAY,YAAY,CAAC,GAAI,aAAL;AACtC,4BAAE,UAAF,GAAe,sCAAY,YAAY,CAAC,GAAI,QAAL;AACvC,4BAAE,UAAF,GAAe,sCAAY,YAAY,CAAC,GAAI,UAAL;AACvC,4BAAE,UAAF,GAAe,sCAAY,YAAY,CAAC,GAAI,QAAL;AACvC,4BAAE,QAAF,GAAa,sCAAY,YAAY,CAAC,GAAI,OAAL;AACrC,4BAAE,MAAF,GAAW,sCAAY,YAAY,CAAC,GAAI,MAAL;AACnC,4BAAE,YAAF,GAAiB,sCAAY,YAAY,CAAC,GAAI,YAAL;AACzC,mCAAU,sCAAY,YAAY,CAAC,GAAI,QAAL;AAClC,mCAAU,sCAAY,YAAY,CAAC,GAAI,aAAL;AAClC,4BAAE,QAAF,GAAa,iBAAI,CAAC,MAAa,GAAJ,GAAF,GAAQ,MAAhB;AACjB,4BAAE,YAAF,GAAiB;AACjB,4BAAE,cAAF,GAAmB;yBAfrB;AAiBA,6BAAgD,OAA1C,sCAAY,aAAa,CAAC,GAAI,UAAL,EAAoB,8BAAH;AAChD,4BAAY,EAAD,QAAX;AAEE,4BAAE,YAAW,YAAC,CAAY,sCAAY,mBAAmB,CAAC,GAAI,KAAL,CAA3C;AACd,4BAAE,YAAW,aAAC,CAAa,sCAAY,mBAAmB,CAAC,GAAI,KAAL,CAA5C;yBAHhB;;qBA3BJ;AAXF;AA8CE,qBAAE,eAAF,CAAE;AA9CJ;iBAFF;eAHF;aAFF;WAHF;AAX2C;AAUxC;AAVwC;;AAlFK;;AAgBM;AACnD;AADmD;AAEtD,gCAAgB,iBAAiB,CAAC,oFAAD;AAFqB;AACnD;AADmD;;AAVR;AAE9C;AAF+C;AAAD;AAKA;AAE9C;AAF8C;AAvDjB;;;;AAqB7B;AArEY;AAhBd,GAgBc,yMAhBd;ACAA,0CAWS,UAXT;;;;AAuFsC;AAEpC,QAAG,CAAI,8DAAgC,UAAQ,0BAAwB,CAAC,4EAAuC,CAAC,UAAD;eAAA,MAAC;AAAD;;QAAxC,CAAvE;AAEE,4CAA+C,eAA3B,iCAA2B,QAAC,sEAAD,EAA/C;AACA,oEAAgC,UAAQ,mBAAmB,CAAC,4EAA6B,sBAA9B;KAH7D;AAFoC;AASE;AAEtC,kEAAgC,UAAQ,sBAAsB,CAAC,2EAAD;AAFxB;AAhGxC,mBAgBc;AAwCe;AAFgB;;;;;AAEhB;AA+CyB;AAAjB;AAChC;AADiD;AAEpD,uCAAuC,eAA7B,mCAA6B,QAAC,iEAAD,EAAvC;AADG;AADiD;AACjD;AADiD;AAAjB;AAAiB;AA/CzB;;;;AAQE;;AA2EqB;AAAb;AAErC,iBAAU;AAF2B;AAAa;AAyCN;AAAP;AAClC;AADyC;AAE5C,mBAAU,wCAAmB,YAAW,KAAG,EAAH;AAFI;AACzC;AADyC;AAAP;AAAO;AALS;AAAhB;AAErC,iBAAU;AAF2B;AAAgB;AA9CT;AAAP;AAErC,iBAAU;AAF2B;AAAO;AAKO;AAAd;AAErC,iBAAU;AAF2B;AAAc;AAUP;AAAP;AAErC,iBAAU;AAF2B;AAAO;AAKO;AAAd;AAGrC,iBAAU,qBAA+E,GAAvD,sCAAY,cAAc,CAAC,WAAW,SAAZ,CAA5B,GAAqD,GAAF,GAAQ,sCAAY,cAAc,CAAC,WAAW,UAAZ,CAA5B;AAHpD;AAAc;AAiBN;AAAR;AAClC;AAD0C;AAE7C,mBAAU,MAGI,GAHK,wCAAmB,YAArB,GACb,eAAF,GACE,KAAF,GAAU,OAAF,GACN,SAAF,GAAc,QAAF;AAL+B;AAC1C;AAD0C;AAAR;AAAQ;AANA;AAAR;AAElC;AAF0C;AAG7C,mBAAU,MAAO,GAAE,wCAAmB,YAArB;AAH4B;AAE1C;AAF0C;AAAR;AAAQ;AALG;AAAX;AAErC,iBAAU;AAF2B;AAAW;AA8BL;AAE3C;AACA;AAEA;AAAG;AAAI;AACP;AAAK;AAAK;AACV;AACA;AACA;AACA;AACG;AAXwC;AAY3C,cAAY,wCAAD,QAAX;AAEE,gBAAK,QAAQ;AACb,gBAAY,CAAD,QAAX;AAEE,kBAAG,cAAe,KAAG,EAArB;AAEE,oBAAK,sCAAY,UAAU,CAAC,cAAD;AAC3B,oBAAY,CAAD,QAAX;AAEE;AACE,4BAAQ,UAAC,CAAU,sCAAY,YAAY,CAAC,EAAG,YAAJ,CAAlC;AACT,4BAAQ,gBAAC,CAAgB,sCAAY,YAAY,CAAC,EAAG,mBAAJ,CAAxC;AAET,0BAAoD,OAA7C,sCAAY,aAAa,CAAC,EAAG,cAAJ,EAAuB,6BAAH;AACpD,wBAAY,GAAD,QAAX;AAGE,2BAAM,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEnC,4BAAkD,OAA3C,sCAAY,aAAa,CAAC,GAAI,WAAL,EAAqB,6BAAH;AAClD,0BAAY,GAAD,QAAX;AAEE,iCAAS,QAAwC,OAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,kBAAjD;AAAI;AAEF,+BAAM,CAAC;AACP,+BAAM,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEnC,4BAAE,SAAF,GAAc,sCAAY,YAAY,CAAC,GAAI,MAAL;AACtC,+BAA+C,OAAzC,sCAAY,aAAa,CAAC,GAAI,SAAL,EAAmB,8BAAH;AAC/C,8BAAY,EAAD,QAAX;AAEE,8BAAE,QAAF,GAAa,sCAAY,YAAY,CAAC,GAAI,aAAL;AACrC,8BAAE,MAAF,GAAW,sCAAY,YAAY,CAAC,GAAI,UAAL;AACnC,8BAAE,YAAF,GAAiB,sCAAY,YAAY,CAAC,GAAI,YAAL;AACzC,8BAAE,UAAF,GAAe,sCAAY,YAAY,CAAC,GAAI,eAAL;AACvC,8BAAE,cAAF,GAAmB,sCAAY,YAAY,CAAC,GAAI,eAAL;AAC3C,8BAAE,QAAF,GAAa,sCAAY,YAAY,CAAC,GAAI,gBAAL;AACrC,8BAAE,SAAF,GAAc,sCAAY,YAAY,CAAC,GAAI,eAAL;2BARxC;AAWA,+BAA6C,OAAvC,sCAAY,aAAa,CAAC,GAAI,OAAL,EAAiB,8BAAH;AAC7C,8BAAY,EAAD,QAAX;AAEE,kCAAoD,OAA7C,sCAAY,aAAa,CAAC,GAAI,aAAL,EAAuB,6BAAH;AACpD,gCAAY,GAAD,QAAX;AAEI,0CAAa,uBAAW,QAAC;AACzB,yCAAY,0BAAa,CAAC,GAAG,YAAW,IAAK,GAAI,cAAC,4CAAD,CAAxB;AACzB,yCAAY,0BAAa,CAAC,SAAU,IAAK,GAAI,cAAC,4CAAD,CAApB;AACzB,oEAAY,MAAM,CAAC,IAAK,SAAU,UxDPsE,KwDOtF;AAClB,kCAAG,SAAS,SAAC,EAAM,GAAE,CAArB;AAEE,kCAAE,YAAW,YAAC,CAAY,sCAAY,cAAc,CAAC,SAAS,KAAC,CAAD,CAAV,CAAtC;AACd,kCAAE,YAAW,aAAC,CAAa,sCAAY,cAAc,CAAC,SAAS,KAAC,CAAD,CAAV,CAAvC;+BAHhB;AAKA,uCAAU,eAAV,SAAU;6BAXd;2BAHF;;uBArBJ;qBANF;AALF;AAqDE,qBAAE,eAAF,CAAE;AArDJ;iBAFF;eAHF;aAFF;WAHF;AAZ2C;AAWxC;AAXwC;;AA7EK;;AAgBM;AACnD;AADmD;AAEtD,gCAAgB,iBAAiB,CAAC,oFAAD;AAFqB;AACnD;AADmD;;AAVR;AAE9C;AAF+C;AAAD;AAKA;AAE9C;AAF8C;AAvDjB;;;;AAqB7B;AArEY;AAhBd,GAgBc,yMAhBd;ACAA,2CAWS,UAXT;;;;AAuFuC;AAErC,QAAG,CAAI,8DAAgC,UAAQ,0BAAwB,CAAC,6EAAwC,CAAC,UAAD;eAAA,MAAC;AAAD;;QAAzC,CAAvE;AAEE,4CAAgD,eAA5B,kCAA4B,QAAC,uEAAD,EAAhD;AACA,oEAAgC,UAAQ,mBAAmB,CAAC,6EAA8B,sBAA/B;KAH7D;AAFqC;AASE;AAEvC,kEAAgC,UAAQ,sBAAsB,CAAC,4EAAD;AAFvB;AAhGzC,mBAgBc;AAwCgB;AAFgB;;;;;AAEhB;AA+CyB;AAAjB;AACjC;AADkD;AAErD,uCAAwC,eAA9B,oCAA8B,QAAC,iEAAD,EAAxC;AADG;AADkD;AAClD;AADkD;AAAjB;AAAiB;AA/CzB;;;;AAQE;;AA2EqB;AAAb;AAEtC,iBAAU;AAF4B;AAAa;AAyCN;AAAP;AACnC;AAD0C;AAE7C,mBAAU,wCAAmB,YAAW,KAAG,EAAH;AAFK;AAC1C;AAD0C;AAAP;AAAO;AALS;AAAhB;AAEtC,iBAAU;AAF4B;AAAgB;AA9CT;AAAP;AAEtC,iBAAU;AAF4B;AAAO;AAKO;AAAd;AAEtC,iBAAU;AAF4B;AAAc;AAUP;AAAP;AAEtC,iBAAU;AAF4B;AAAO;AAKO;AAAd;AAEtC,iBAAU;AAF4B;AAAc;AAgBN;AAAR;AACnC;AAD2C;AAE9C,mBAAU,mBAII,GAJkB,wCAAmB,YAArB,GAC1B,gBAAF,GACE,UAAF,GACE,YAAF,GAAiB,OAAF,GACb,SAAF,GAAc,QAAF;AANgC;AAC3C;AAD2C;AAAR;AAAQ;AANA;AAAR;AAGtC,iBAAU,aAAQ,CAAC,sCAAY,cAAc,CAAC,WAAW,SAAZ,CAA6B,GAAJ,GAAF,GAAQ,sCAAY,cAAc,CAAC,WAAW,UAAZ,CAA5B,CAAqD,OAA7G;AAHoB;AAAQ;AALG;AAAX;AAEtC,iBAAU;AAF4B;AAAW;AA+BL;AAE5C;AACA;AAEA;AAAG;AACH;AACA;AACA;AAAI;AACJ;AACA;AAAU;AAAQ;AAClB;AACG;AAZyC;AAa5C,cAAY,wCAAD,QAAX;AAEE,gBAAK,QAAQ;AACb,gBAAY,CAAD,QAAX;AAEE,kBAAG,cAAe,KAAG,EAArB;AAEE,oBAAK,sCAAY,UAAU,CAAC,cAAD;AAC3B,oBAAY,CAAD,QAAX;AAEE;AACE,yBAA4C,OAAtC,sCAAY,aAAa,CAAC,EAAG,OAAJ,EAAgB,8BAAH;AAC5C,wBAAY,EAAD,QAAX;AAEE,8BAAQ,UAAC,CAAU,sCAAY,YAAY,CAAC,GAAI,MAAL,CAAlC;AACT,8BAAQ,gBAAC,CAAgB,sCAAY,YAAY,CAAC,GAAI,SAAL,CAAxC;qBAHX;AAOA,0BAA+C,OAAxC,sCAAY,aAAa,CAAC,EAAG,SAAJ,EAAkB,6BAAH;AAC/C,gCAAa;AAGb,wBAAG,CAAY,CAAC,GAAD,SAAf;AAEE,4BAAiD,OAA1C,sCAAY,aAAa,CAAC,EAAG,WAAJ,EAAoB,6BAAH;AACjD,kCAAa;qBAHf;AAMA,wBAAY,GAAD,QAAX;AAEE,+BAAS,QAAwC,OAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,kBAAjD;AAAI;AAEF,6BAAM,CAAC;AACP,6BAAM,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEnC,6BAA+C,OAAzC,sCAAY,aAAa,CAAC,GAAI,SAAL,EAAmB,8BAAH;AAC/C,4BAAY,EAAD,QAAX;AAEE,4BAAE,SAAF,GAAc,sCAAY,YAAY,CAAC,GAAI,iBAAL;AACtC,4BAAE,MAAF,GAAW,sCAAY,YAAY,CAAC,GAAI,cAAL;AACnC,4BAAE,SAAF,GAAc,sCAAY,YAAY,CAAC,GAAI,SAAL;AACtC,4BAAE,aAAF,GAAkB,sCAAY,YAAY,CAAC,GAAI,aAAL;AAC1C,4BAAE,QAAF,GAAa,sCAAY,YAAY,CAAC,GAAI,6BAAL;AACrC,4BAAE,UAAF,GAAe,sCAAY,YAAY,CAAC,GAAI,oBAAL;AAEvC,mCAAU,sCAAY,YAAY,CAAC,GAAI,YAAL;AAClC,mCAAU,sCAAY,YAAY,CAAC,GAAI,cAAL;AAClC,4BAAE,QAAF,GAAa,iBAAI,CAAC,MAAa,GAAJ,GAAF,GAAQ,MAAhB;AACjB,4BAAE,YAAF,GAAiB;AACjB,4BAAE,cAAF,GAAmB;AAEnB,4BAAE,YAAF,GAAiB,sCAAY,YAAY,CAAC,GAAI,YAAL;yBAf3C;AAkBA,4BAAG,CAAI,SAAP;AAEE,+BAAgD,OAA1C,sCAAY,aAAa,CAAC,GAAI,UAAL,EAAoB,8BAAH;AAChD,8BAAY,EAAD,QAAX;AAEE,8BAAE,YAAW,YAAC,CAAY,sCAAY,mBAAmB,CAAC,GAAI,KAAL,CAA3C;AACd,8BAAE,YAAW,aAAC,CAAa,sCAAY,mBAAmB,CAAC,GAAI,KAAL,CAA5C;2BAHhB;;AAQA,qCAAY,sCAAY,YAAY,CAAC,GAAI,UAAL;AACpC,8BAAG,QAAS,KAAG,EAAf;AAEE,wCAAa,uBAAW,QAAC;AACzB,kEAAY,MAAM,CAAC,IAAK,SAAU,UzD5B0E,KyD4B1F;AAClB,gCAAG,SAAS,SAAC,EAAM,GAAE,CAArB;AAEE,gCAAE,YAAW,YAAC,CAAY,sCAAY,cAAc,CAAC,SAAS,KAAC,CAAD,CAAV,CAAtC;AACd,gCAAE,YAAW,aAAC,CAAa,sCAAY,cAAc,CAAC,SAAS,KAAC,CAAD,CAAV,CAAvC;6BAHhB;AAKA,qCAAU,eAAV,SAAU;2BATZ;;;qBAtCN;AAnBF;AAwEE,qBAAE,eAAF,CAAE;AAxEJ;iBAFF;eAHF;aAFF;WAHF;AAb4C;AAYzC;AAZyC;;AA7EK;;AAgBM;AACpD;AADoD;AAEvD,gCAAgB,iBAAiB,CAAC,oFAAD;AAFsB;AACpD;AADoD;;AAVR;AAE/C;AAFgD;AAAD;AAKA;AAE/C;AAF+C;AAvDjB;;;;AAqB9B;AArEY;AAhBd,GAgBc,yMAhBd;ACAA,4CAWS,UAXT;;;;AAuFwC;AAEtC,QAAG,CAAI,8DAAgC,UAAQ,0BAAwB,CAAC,8EAAyC,CAAC,UAAD;eAAA,MAAC;AAAD;;QAA1C,CAAvE;AAEE,4CAAiD,eAA7B,mCAA6B,QAAC,wEAAD,EAAjD;AACA,oEAAgC,UAAQ,mBAAmB,CAAC,8EAA+B,sBAAhC;KAH7D;AAFsC;AASE;AAExC,kEAAgC,UAAQ,sBAAsB,CAAC,6EAAD;AAFtB;AAhG1C,mBAgBc;AAwCiB;AAFgB;;;;;AAEhB;AA+CyB;AAAjB;AAClC;AADmD;AAEtD,uCAAyC,eAA/B,qCAA+B,QAAC,iEAAD,EAAzC;AADG;AADmD;AACnD;AADmD;AAAjB;AAAiB;AA/CzB;;;;AAQE;;AA2EqB;AAAb;AAEvC,iBAAU;AAF6B;AAAa;AAuCN;AAAP;AACpC;AAD2C;AAE9C,mBAAU,wCAAmB,YAAW,KAAG,EAAH;AAFM;AAC3C;AAD2C;AAAP;AAAO;AALS;AAAhB;AAEvC,iBAAU;AAF6B;AAAgB;AA5CT;AAAP;AAEvC,iBAAU;AAF6B;AAAO;AAKO;AAAd;AAEvC,iBAAU;AAF6B;AAAc;AAUP;AAAP;AAEvC,iBAAU,8BAA0C,GAAT,QAAF,GAAa,OAAF;AAFb;AAAO;AAKO;AAAd;AAGvC,iBAAU,YAAO,CAAC,sCAAY,cAAc,CAAC,WAAW,UAAZ,CAA8B,GAAJ,GAAF,GAAQ,sCAAY,cAAc,CAAC,WAAW,SAAZ,CAArF;AAHsB;AAAc;AAiBN;AAAR;AACpC;AAD4C;AAE/C,mBAAU,eACK,GADa,wCAAmB,YAArB,GACxB,YAAF,GAAiB,OAAF;AAHgC;AAC5C;AAD4C;AAAR;AAAQ;AANA;AAAR;AAGvC,iBAAU,aAAQ,CAAC,GAAI,OAAL;AAHqB;AAAQ;AALG;AAAX;AAEvC,iBAAU;AAF6B;AAAW;AA4BL;AAE7C;AACA;AAEA;AAAG;AAAI;AACP;AAAK;AAAK;AACV;AAAG;AACH;AAAU;AACV;AACG;AAV0C;AAW7C,cAAY,wCAAD,QAAX;AAEE,gBAAK,QAAQ;AACb,gBAAY,CAAD,QAAX;AAEE,kBAAG,cAAe,KAAG,EAArB;AAEE,oBAAK,sCAAY,UAAU,CAAC,cAAD;AAC3B,oBAAY,CAAD,QAAX;AAEE;AACE,4BAAQ,UAAC,CAAU,sCAAY,YAAY,CAAC,EAAG,SAAJ,CAAlC;AACT,4BAAQ,gBAAC,CAAgB,QAAQ,QAAxB;AAET,0BAAgD,OAAzC,sCAAY,aAAa,CAAC,EAAG,UAAJ,EAAmB,6BAAH;AAChD,wBAAY,GAAD,QAAX;AAEE,+BAAS,QAAwC,OAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,kBAAjD;AAAI;AAEF,6BAAM,CAAC;AACP,6BAAM,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEnC,0BAAE,SAAF,GAAc,sCAAY,YAAY,CAAC,GAAI,YAAL;AACtC,0BAAE,QAAF,GAAa,sCAAY,YAAY,CAAC,GAAI,SAAL;AAErC,8BAAgD,OAAzC,sCAAY,aAAa,CAAC,GAAI,SAAL,EAAmB,6BAAH;AAChD,4BAAY,GAAD,QAAX;AAEE,mCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,iCAAM,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AACnC,kCAAO,sCAAY,YAAY,CAAC,GAAI,IAAL;AAE/B,gCAAI,cAAG,CAAC,WAAY,GAAb,CAAkB,GAAE,CAA3B;AACE,gCAAE,YAAF,GAAiB,sCAAY,YAAY,CAAC,GAAI,MAAL;AACtC,sCAAI,cAAG,CAAC,QAAS,GAAV,CAAe,GAAE,CAAxB;AACH,gCAAE,MAAF,GAAW,sCAAY,YAAY,CAAC,GAAI,MAAL;AAChC,sCAAI,cAAG,CAAC,SAAU,GAAX,CAAgB,GAAE,CAAzB;AACH,gCAAE,QAAF,GAAa,sCAAY,YAAY,CAAC,GAAI,MAAL;AAClC,sCAAI,cAAG,CAAC,UAAW,GAAZ,CAAiB,GAAE,CAA1B,EACH,EAAE,SAAF,GAAc,sCAAY,YAAY,CAAC,GAAI,MAAL,CADnC;;yBAbT;AAmBA,8BAA+C,OAAxC,sCAAY,aAAa,CAAC,GAAI,QAAL,EAAkB,6BAAH;AAC/C,4BAAY,GAAD,QAAX;AAEE,sCAAa,uBAAW,QAAC;AACzB,qCAAY,0BAAa,CAAC,GAAG,YAAW,IAAK,GAAI,cAAC,4CAAD,CAAxB;AACzB,qCAAY,0BAAa,CAAC,SAAU,IAAK,GAAI,cAAC,4CAAD,CAApB;AACzB,gEAAY,MAAM,CAAC,IAAK,SAAU,U1DL4E,K0DK5F;AAClB,8BAAG,SAAS,SAAC,EAAM,GAAE,CAArB;AAEE,8BAAE,YAAW,YAAC,CAAY,sCAAY,cAAc,CAAC,SAAS,KAAC,CAAD,CAAV,CAAtC;AACd,8BAAE,YAAW,aAAC,CAAa,sCAAY,cAAc,CAAC,SAAS,KAAC,CAAD,CAAV,CAAvC;2BAHhB;AAKA,mCAAU,eAAV,SAAU;yBAXZ;;qBA/BJ;AALF;AAoDE,qBAAE,eAAF,CAAE;AApDJ;iBAFF;eAHF;aAFF;WAHF;AAX6C;AAU1C;AAV0C;;AA3EK;;AAgBM;AACrD;AADqD;AAExD,gCAAgB,iBAAiB,CAAC,oFAAD;AAFuB;AACrD;AADqD;;AAVR;AAEhD;AAFiD;AAAD;AAKA;AAEhD;AAFgD;AAvDjB;;;;AAqB/B;AArEY;AAhBd,GAgBc,yMAhBd;ACAA,4CAWS,UAXT;;;;AAuFwC;AAEtC,QAAG,CAAI,8DAAgC,UAAQ,0BAAwB,CAAC,8EAAyC,CAAC,UAAD;eAAA,MAAC;AAAD;;QAA1C,CAAvE;AAEE,4CAAiD,eAA7B,mCAA6B,QAAC,wEAAD,EAAjD;AACA,oEAAgC,UAAQ,mBAAmB,CAAC,8EAA+B,sBAAhC;KAH7D;AAFsC;AASE;AAExC,kEAAgC,UAAQ,sBAAsB,CAAC,6EAAD;AAFtB;AAhG1C,mBAgBc;AAwCiB;AAFgB;;;;;AAEhB;AA+CyB;AAAjB;AAClC;AADmD;AAEtD,uCAAyC,eAA/B,qCAA+B,QAAC,iEAAD,EAAzC;AADG;AADmD;AACnD;AADmD;AAAjB;AAAiB;AA/CzB;;;;AAQE;;AA2EqB;AAAb;AAEvC,iBAAU;AAF6B;AAAa;AAwCN;AAAP;AACpC;AAD2C;AAE9C,mBAAU,wCAAmB,YAAW,KAAG,EAAH;AAFM;AAC3C;AAD2C;AAAP;AAAO;AALS;AAAhB;AAEvC,iBAAU;AAF6B;AAAgB;AA7CT;AAAP;AAEvC,iBAAU;AAF6B;AAAO;AAKO;AAAd;AAEvC,iBAAU;AAF6B;AAAc;AAUP;AAAP;AAEvC,iBAAU,oBAAgC,GAAT,QAAF,GAAa,OAAF;AAFH;AAAO;AAKO;AAAd;AAGvC,iBAAW,2BAA2I,GAArD,CAAvD,sCAAY,cAAc,CAAC,WAAW,SAAZ,CAA6B,GAAJ,GAAF,GAAQ,sCAAY,cAAc,CAAC,WAAW,UAAZ,CAA5B,CAA1D,GAAiH,OAAF;AAH/G;AAAc;AAiBN;AAAR;AACpC;AAD4C;AAE/C,mBAAU,MAAO,GAAE,wCAAmB,YAArB;AAEjB,cAAG,OAAQ,KAAG,EAAd,EACE,SAAU,MAAsB,GAAb,YAAF,GAAiB,OADpC;AAJ+C;AAC5C;AAD4C;AAAR;AAAQ;AANA;AAAR;AAGvC,iBAAU,aAAQ,CAAC,GAAI,OAAL;AAHqB;AAAQ;AALG;AAAX;AAEvC,iBAAU;AAF6B;AAAW;AA6BL;AAE7C;AACA;AAEA;AAAG;AACH;AACA;AACA;AAAI;AACJ;AACA;AACA;AACG;AAZ0C;AAa7C,cAAY,wCAAD,QAAX;AAEE,gBAAK,QAAQ;AACb,gBAAY,CAAD,QAAX;AAEE,kBAAG,cAAe,KAAG,EAArB;AAEE,oBAAK,sCAAY,UAAU,CAAC,cAAD;AAC3B,oBAAY,CAAD,QAAX;AAEE;AACE,4BAAQ,UAAC,CAAU,sCAAY,YAAY,CAAC,EAAG,gBAAJ,CAAlC;AACT,4BAAQ,gBAAC,CAAgB,sCAAY,YAAY,CAAC,EAAG,WAAJ,CAAxC;AAGT,0BAA+C,OAAxC,sCAAY,aAAa,CAAC,EAAG,SAAJ,EAAkB,6BAAH;AAC/C,gCAAa;AAGb,wBAAG,CAAY,CAAC,GAAD,SAAf;AAEE,4BAAiD,OAA1C,sCAAY,aAAa,CAAC,EAAG,WAAJ,EAAoB,6BAAH;AACjD,kCAAa;qBAHf;AAMA,wBAAY,GAAD,QAAX;AAEE,+BAAS,QAAwC,OAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,kBAAjD;AAAI;AAEF,6BAAM,CAAC;AACP,6BAAM,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEnC,6BAA+C,OAAzC,sCAAY,aAAa,CAAC,GAAI,SAAL,EAAmB,8BAAH;AAC/C,4BAAY,EAAD,QAAX;AAEE,4BAAE,SAAF,GAAc,sCAAY,YAAY,CAAC,GAAI,iBAAL;AACtC,4BAAE,MAAF,GAAW,sCAAY,YAAY,CAAC,GAAI,cAAL;AACnC,4BAAE,SAAF,GAAc,sCAAY,YAAY,CAAC,GAAI,SAAL;AACtC,4BAAE,aAAF,GAAkB,sCAAY,YAAY,CAAC,GAAI,aAAL;AAC1C,4BAAE,QAAF,GAAa,sCAAY,YAAY,CAAC,GAAI,6BAAL;AACrC,4BAAE,UAAF,GAAe,sCAAY,YAAY,CAAC,GAAI,oBAAL;AACvC,4BAAE,QAAF,GAAa,sCAAY,YAAY,CAAC,GAAI,YAAL,CAAyB,GAAJ,GAAF,GAAQ,sCAAY,YAAY,CAAC,GAAI,cAAL,CAA1B;AAC9D,4BAAE,YAAF,GAAiB,sCAAY,YAAY,CAAC,GAAI,YAAL;yBAT3C;AAYA,4BAAG,CAAI,SAAP;AAEE,+BAAgD,OAA1C,sCAAY,aAAa,CAAC,GAAI,UAAL,EAAoB,8BAAH;AAChD,8BAAY,EAAD,QAAX;AAEE,8BAAE,YAAW,YAAC,CAAY,sCAAY,mBAAmB,CAAC,GAAI,KAAL,CAA3C;AACd,8BAAE,YAAW,aAAC,CAAa,sCAAY,mBAAmB,CAAC,GAAI,KAAL,CAA5C;2BAHhB;;AAQA,qCAAY,sCAAY,YAAY,CAAC,GAAI,UAAL;AACpC,8BAAG,QAAS,KAAG,EAAf;AAEE,wCAAa,uBAAW,QAAC;AACzB,kEAAY,MAAM,CAAC,IAAK,SAAU,U3DjB0E,K2DiB1F;AAClB,gCAAG,SAAS,SAAC,EAAM,GAAE,CAArB;AAEE,gCAAE,YAAW,YAAC,CAAY,sCAAY,cAAc,CAAC,SAAS,KAAC,CAAD,CAAV,CAAtC;AACd,gCAAE,YAAW,aAAC,CAAa,sCAAY,cAAc,CAAC,SAAS,KAAC,CAAD,CAAV,CAAvC;6BAHhB;AAKA,qCAAU,eAAV,SAAU;2BATZ;;;qBAhCN;AAfF;AA8DE,qBAAE,eAAF,CAAE;AA9DJ;;AAoEA,0BAAQ,UAAC,CAAU,cAAV;AACT,0BAAQ,gBAAC,CAAgB,QAAQ,QAAxB;;eA1Eb;aAFF;WAHF;AAb6C;AAY1C;AAZ0C;;AA5EK;;AAgBM;AACrD;AADqD;AAExD,gCAAgB,iBAAiB,CAAC,oFAAD;AAFuB;AACrD;AADqD;;AAVR;AAEhD;AAFiD;AAAD;AAKA;AAEhD;AAFgD;AAvDjB;;;;AAqB/B;AArEY;AAhBd,GAgBc,yMAhBd;ACAA,mDAWS,UAXT;;;;AAsF+C;AAE7C,QAAG,CAAI,8DAAgC,UAAQ,0BAAwB,CAAC,qFAAgD,CAAC,UAAD;eAAA,MAAC;AAAD;;QAAjD,CAAvE;AAEE,4CAAwD,eAApC,0CAAoC,QAAC,+EAAD,EAAxD;AACA,oEAAgC,UAAQ,mBAAmB,CAAC,qFAAsC,sBAAvC;KAH7D;AAF6C;AASE;AAE/C,kEAAgC,UAAQ,sBAAsB,CAAC,oFAAD;AAFf;AA/FjD,mBAgBc;AAuCwB;AAFgB;;;;;AAEhB;AA+CyB;AAAjB;AACzC;AAD0D;AAE7D,uCAAgD,eAAtC,4CAAsC,QAAC,iEAAD,EAAhD;AADG;AAD0D;AAC1D;AAD0D;AAAjB;AAAiB;AA/CzB;;;;AAQE;;AA2EqB;AAAb;AAE9C,iBAAU;AAFoC;AAAa;AA0CN;AAAP;AAE9C,iBAAU;AAFoC;AAAO;AALS;AAAhB;AAE9C,iBAAU;AAFoC;AAAgB;AA/CT;AAAP;AAE9C,iBAAU;AAFoC;AAAO;AAKO;AAAd;AAE9C,iBAAU;AAFoC;AAAc;AAUP;AAAP;AAE9C,iBAAU;AAFoC;AAAO;AAKO;AAAd;AAE9C,iBAAU;AAFoC;AAAc;AAmBN;AAAR;AAE9C,iBAAU,IAGR,GAHe,QAAF,GACX,mBAAF,GACE,mBAAF,GAAwB,OAAF,GACpB,gBAAF;AAL4C;AAAQ;AATA;AAAR;AAG9C,iBAAU,MAGR,GAHiB,sCAAY,cAAc,CAAC,WAAW,SAAZ,CAA5B,GACb,OAAF,GAAY,sCAAY,cAAc,CAAC,WAAW,UAAZ,CAA5B,GACR,mBAAF,GAAwB,OAAF,GACpB,gBAAF;AAN4C;AAAQ;AALG;AAAX;AAE9C,iBAAU;AAFoC;AAAW;AAgCL;;AAEpD;AACA;AAEA;AAAG;AACH;AACA;AACA;AACA;AAE4B;AAE1B;AAAQ;AAER,eAAM,KAAK;AACX,YAAE,SAAF,GAAc,sCAAY,YAAY,CAAC,KAAM,cAAP;AACtC,YAAE,YAAW,YAAC,CAAY,sCAAY,cAAc,CAAC,sCAAY,YAAY,CAAC,KAAM,KAAP,CAAzB,CAAtC;AACd,YAAE,YAAW,aAAC,CAAa,sCAAY,cAAc,CAAC,sCAAY,YAAY,CAAC,KAAM,KAAP,CAAzB,CAAvC;AAEd,eAAiD,OAA3C,sCAAY,aAAa,CAAC,KAAM,SAAP,EAAqB,8BAAH;AACjD,cAAY,EAAD,QAAX;AAGE,qBAAU,sCAAY,YAAY,CAAC,GAAI,MAAL;AAClC,gBAAG,MAAO,KAAE,EAAZ,EACE,SAAU,sCAAY,YAAY,CAAC,GAAI,UAAL,CADpC;AAEA,qBAAU,sCAAY,YAAY,CAAC,GAAI,cAAL;AAElC,cAAE,QAAF,GAAa,iBAAI,CAAC,MAAO,GAAE,MAAV;AACjB,cAAE,cAAF,GAAmB;AACnB,cAAE,YAAF,GAAiB;AAEjB,cAAE,YAAF,GAAiB,sCAAY,YAAY,CAAC,GAAI,UAAL;AACzC,cAAE,MAAF,GAAW,sCAAY,YAAY,CAAC,GAAI,MAAL;AACnC,gBAAG,EAAE,MAAM,KAAE,EAAb;AAEE,gBAAE,MAAF,GAAW,sCAAY,YAAY,CAAC,GAAI,eAAL;AACnC,kBAAG,EAAE,MAAM,KAAE,EAAb,EACE,EAAE,MAAF,GAAW,sCAAY,YAAY,CAAC,GAAI,SAAL,CADrC;AAEA,kBAAG,EAAE,MAAM,KAAE,EAAb,EACE,EAAE,MAAF,GAAW,sCAAY,YAAY,CAAC,GAAI,MAAL,CADrC;aALF;AAQA,cAAE,QAAF,GAAa,sCAAY,YAAY,CAAC,GAAI,QAAL;AACrC,gBAAG,EAAE,QAAQ,KAAE,EAAf,EACE,EAAE,QAAF,GAAa,sCAAY,YAAY,CAAC,GAAI,QAAL,CADvC;AAEA,cAAE,UAAF,GAAe,sCAAY,YAAY,CAAC,GAAI,OAAL;AACvC,cAAE,SAAF,GAAc,sCAAY,YAAY,CAAC,GAAI,SAAL;AACtC,cAAE,aAAF,GAAkB,sCAAY,YAAY,CAAC,GAAI,cAAL;WA3B5C;AAV0B;AAyCzB;AApDiD;AAqDpD,cAAY,wCAAD,QAAX;AAEE,gBAAK,QAAQ;AAEb,gBAAY,CAAD,QAAX;AAEE,kBAAG,cAAe,KAAG,EAArB;AAEE,oBAAK,sCAAY,UAAU,CAAC,cAAD;AAC3B,oBAAY,CAAD,QAAX;AAEE;AACE,4BAAS,sCAAY,YAAY,CAAC,EAAG,OAAJ;AACjC,wBAAG,KAAM,KAAG,EAAZ;AAEE,8BAAQ,UAAC,CAAU,OAAV;AACT,8BAAQ,gBAAC,CAAgB,KAAhB;;AAIT,0BAAQ,6BAAH,eAAF,CAAE,CAAL;AAEE,8BAAS,OAAF,EAAK,6BAAH;AACT,4BAAY,GAAD,QAAX;AAEE,mCAAS,QAAwC,OAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,kBAAjD;AAAI;AAEF,iCAAM,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AACnC,8CAAkB,CAAC,EAAG,EAAJ;;yBALtB;;AAWA,0CAAkB,CAAC,EAAG,CAAJ;;;AAvBxB;AA2BE,qBAAE,eAAF,CAAE;AA3BJ;iBAFF;eAHF;aAFF;WAJF;AArDoD;AAoDjD;AApDiD;;AA9EK;;AAgBM;AAC5D;AAD4D;AAE/D,gCAAgB,iBAAiB,CAAC,oFAAD;AAF8B;AAC5D;AAD4D;;AAVR;AAEvD;AAFwD;AAAD;AAKA;AAEvD;AAFuD;AAvDjB;;;;AAqBtC;AApEY;AAhBd,GAgBc,yMAhBd;ACAA,sDAWS,UAXT;;;;AAsFkD;AAEhD,QAAG,CAAI,8DAAgC,UAAQ,0BAAwB,CAAC,wFAAmD,CAAC,UAAD;eAAA,MAAC;AAAD;;QAApD,CAAvE;AAEE,4CAA2D,eAAvC,6CAAuC,QAAC,kFAAD,EAA3D;AACA,oEAAgC,UAAQ,mBAAmB,CAAC,wFAAyC,sBAA1C;KAH7D;AAFgD;AASE;AAElD,kEAAgC,UAAQ,sBAAsB,CAAC,uFAAD;AAFZ;AA/FpD,mBAgBc;AAuC2B;AAFgB;;;;;AAEhB;AA+CyB;AAAjB;AAC5C;AAD6D;AAEhE,uCAAmD,eAAzC,+CAAyC,QAAC,iEAAD,EAAnD;AADG;AAD6D;AAC7D;AAD6D;AAAjB;AAAiB;AA/CzB;;;;AAQE;;AA2EqB;AAAb;AAEjD,iBAAU;AAFuC;AAAa;AAuCN;AAAP;AAC9C;AADqD;AAExD,mBAAU,wCAAmB,YAAW,KAAG,EAAH;AAFgB;AACrD;AADqD;AAAP;AAAO;AALS;AAAhB;AAEjD,iBAAU;AAFuC;AAAgB;AA5CT;AAAP;AAEjD,iBAAU;AAFuC;AAAO;AAKO;AAAd;AAEjD,iBAAU;AAFuC;AAAc;AAUP;AAAP;AAEjD,iBAAU;AAFuC;AAAO;AAKO;AAAd;AAEjD,iBAAU;AAFuC;AAAc;AAkBN;AAAR;AAC9C;AADsD;AAEzD,mBAAU,UACG,GADU,wCAAmB,YAArB,GACjB,QAAF,GAAa,QAAF;AAH4C;AACtD;AADsD;AAAR;AAAQ;AARA;AAAR;AAE9C;AAFsD;AAGzD,mBAAU,UAEQ,GAFK,wCAAmB,YAArB,GACjB,aAAF,GAAkB,sCAAY,cAAc,CAAC,WAAW,SAAZ,CAA5B,GACd,aAAF,GAAkB,sCAAY,cAAc,CAAC,WAAW,UAAZ,CAA5B;AALuC;AAEtD;AAFsD;AAAR;AAAQ;AALG;AAAX;AAEjD,iBAAU;AAFuC;AAAW;AA6BL;AAEvD;AACA;AAEA;AAAG;AAAI;AACP;AAAK;AACL;AAAG;AACH;AAAI;AACD;AAToD;AAUvD,cAAY,wCAAD,QAAX;AAEE,gBAAK,QAAQ;AAEb,gBAAY,CAAD,QAAX;AAEE,kBAAG,cAAe,KAAG,EAArB;AAEE,oBAAK,sCAAY,UAAU,CAAC,cAAD;AAC3B,oBAAY,CAAD,QAAX;AAEE;AACE,4BAAQ,gBAAC,CAAgB,sCAAY,YAAY,CAAC,EAAG,OAAJ,CAAxC;AACT,wBAAG,QAAQ,cAAc,KAAG,EAA5B,EACE,QAAQ,UAAC,CAAU,OAAV,CADX;AAGA,0BAAgD,OAAzC,sCAAY,aAAa,CAAC,EAAG,UAAJ,EAAmB,6BAAH;AAChD,wBAAY,GAAD,QAAX;AAEE,+BAAS,QAAwC,OAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,kBAAjD;AAAI;AAEF,6BAAM,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEnC,6BAAM,CAAC;AAEP,6BAAkD,OAA5C,sCAAY,aAAa,CAAC,GAAI,YAAL,EAAsB,8BAAH;AAClD,4BAAY,EAAD,QAAX;AAEE,4BAAE,SAAF,GAAc,sCAAY,YAAY,CAAC,GAAI,OAAL;AACtC,4BAAE,QAAF,GAAa,sCAAY,YAAY,CAAC,GAAI,QAAL;AACrC,8BAAG,EAAE,QAAQ,KAAE,EAAf,EACE,EAAE,QAAF,GAAa,sCAAY,YAAY,CAAC,GAAI,MAAL,CADvC;AAEA,4BAAE,YAAF,GAAiB,sCAAY,YAAY,CAAC,GAAI,YAAL;AACzC,4BAAE,MAAF,GAAW,sCAAY,YAAY,CAAC,GAAI,YAAL;AACnC,4BAAE,QAAF,GAAa,sCAAY,YAAY,CAAC,GAAI,QAAL;AACrC,4BAAE,YAAF,GAAiB,sCAAY,YAAY,CAAC,GAAI,UAAL;AACzC,4BAAE,UAAF,GAAe,sCAAY,YAAY,CAAC,GAAI,QAAL;AACvC,4BAAE,cAAF,GAAmB,sCAAY,YAAY,CAAC,GAAI,UAAL;AAC3C,4BAAE,SAAF,GAAc,sCAAY,YAAY,CAAC,GAAI,SAAL;AACtC,4BAAE,aAAF,GAAkB,sCAAY,YAAY,CAAC,GAAI,WAAL;yBAb5C;AAgBA,6BAAgD,OAA1C,sCAAY,aAAa,CAAC,GAAI,UAAL,EAAoB,8BAAH;AAChD,4BAAY,EAAD,QAAX;AAEE,gCAAoD,OAA7C,sCAAY,aAAa,CAAC,GAAI,aAAL,EAAuB,6BAAH;AACpD,8BAAY,GAAD,QAAX;AAEE,qCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,qCAAQ,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AACnC,kCAAG,CAAE,KAAE,CAAP,EACE,EAAE,YAAW,aAAC,CAAa,sCAAY,cAAc,CAAC,IAAI,YAAC,EAAN,CAAvC,CADhB;AAEA,kCAAG,CAAE,KAAE,CAAP,EACE,EAAE,YAAW,YAAC,CAAY,sCAAY,cAAc,CAAC,IAAI,YAAC,EAAN,CAAtC,CADhB;;2BAPN;yBAHF;;qBA1BJ;AANF;AAkDE,qBAAE,eAAF,CAAE;AAlDJ;iBAFF;eAHF;aAFF;WAJF;AAVuD;AASpD;AAToD;;AA3EK;;AAgBM;AAC/D;AAD+D;AAElE,gCAAgB,iBAAiB,CAAC,oFAAD;AAFiC;AAC/D;AAD+D;;AAVR;AAE1D;AAF2D;AAAD;AAKA;AAE1D;AAF0D;AAvDjB;;;;AAqBzC;AApEY;AAhBd,GAgBc,yMAhBd;ACAA,8CAWS,UAXT;;;;AAsF0C;AAExC,QAAG,CAAI,8DAAgC,UAAQ,0BAAwB,CAAC,gFAA2C,CAAC,UAAD;eAAA,MAAC;AAAD;;QAA5C,CAAvE;AAEE,4CAAmD,eAA/B,qCAA+B,QAAC,0EAAD,EAAnD;AACA,oEAAgC,UAAQ,mBAAmB,CAAC,gFAAiC,sBAAlC;KAH7D;AAFwC;AASE;AAE1C,kEAAgC,UAAQ,sBAAsB,CAAC,+EAAD;AAFpB;AA/F5C,mBAgBc;AAuCmB;AAFgB;;;;;AAEhB;AA+CyB;AAAjB;AACpC;AADqD;AAExD,uCAA2C,eAAjC,uCAAiC,QAAC,iEAAD,EAA3C;AADG;AADqD;AACrD;AADqD;AAAjB;AAAiB;AA/CzB;;;;AAQE;;AA2EqB;AAAb;AAEzC,iBAAU;AAF+B;AAAa;AAuCN;AAAP;AACtC;AAD6C;AAEhD,mBAAU,wCAAmB,YAAW,KAAG,EAAH;AAFQ;AAC7C;AAD6C;AAAP;AAAO;AALS;AAAhB;AAEzC,iBAAU;AAF+B;AAAgB;AA5CT;AAAP;AAEzC,iBAAU;AAF+B;AAAO;AAKO;AAAd;AAEzC,iBAAU;AAF+B;AAAc;AAUP;AAAP;AAEzC,iBAAU;AAF+B;AAAO;AAKO;AAAd;AAEzC,iBAAU;AAF+B;AAAc;AAkBN;AAAR;AACtC;AAD8C;AAEjD,mBAAU,SACG,GADS,wCAAmB,YAArB,GAChB,QAAF,GAAa,QAAF;AAHoC;AAC9C;AAD8C;AAAR;AAAQ;AARA;AAAR;AAEtC;AAF8C;AAGjD,mBAAU,SAEE,GAFU,wCAAmB,YAArB,GAChB,OAAF,GAAY,sCAAY,cAAc,CAAC,WAAW,SAAZ,CAA5B,GACR,OAAF,GAAY,sCAAY,cAAc,CAAC,WAAW,UAAZ,CAA5B;AALqC;AAE9C;AAF8C;AAAR;AAAQ;AALG;AAAX;AAEzC,iBAAU;AAF+B;AAAW;AA6BL;AAE/C;AACA;AAEA;AAAG;AAAI;AACP;AAAK;AACL;AAAG;AACH;AAAI;AACJ;AAAQ;AACL;AAV4C;AAW/C,cAAY,wCAAD,QAAX;AAEE,gBAAK,QAAQ;AAEb,gBAAY,CAAD,QAAX;AAEE,kBAAG,cAAe,KAAG,EAArB;AAEE,oBAAK,sCAAY,UAAU,CAAC,cAAD;AAC3B,oBAAY,CAAD,QAAX;AAEE;AACE,4BAAQ,UAAC,CAAU,sCAAY,YAAY,CAAC,EAAG,OAAJ,CAAlC;AACT,4BAAQ,gBAAC,CAAgB,sCAAY,YAAY,CAAC,EAAG,SAAJ,CAAxC;AAET,0BAAgD,OAAzC,sCAAY,aAAa,CAAC,EAAG,UAAJ,EAAmB,6BAAH;AAChD,wBAAY,GAAD,QAAX;AAEE,+BAAS,QAAwC,OAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,kBAAjD;AAAI;AAEF,6BAAM,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEnC,6BAAM,CAAC;AAEP,6BAAkD,OAA5C,sCAAY,aAAa,CAAC,GAAI,YAAL,EAAsB,8BAAH;AAClD,4BAAY,EAAD,QAAX;AAEE,4BAAE,SAAF,GAAc,sCAAY,YAAY,CAAC,GAAI,WAAL;AAEtC,mCAAU,sCAAY,YAAY,CAAC,GAAI,QAAL;AAClC,8BAAG,MAAO,KAAE,EAAZ,EACE,SAAU,sCAAY,YAAY,CAAC,GAAI,MAAL,CADpC;AAGA,mCAAU,sCAAY,YAAY,CAAC,GAAI,aAAL;AAElC,4BAAE,QAAF,GAAa,iBAAI,CAAC,MAAa,GAAJ,GAAF,GAAQ,MAAhB;AACjB,4BAAE,YAAF,GAAiB;AACjB,4BAAE,cAAF,GAAmB;AAEnB,4BAAE,YAAF,GAAiB,sCAAY,YAAY,CAAC,GAAI,UAAL;AACzC,4BAAE,MAAF,GAAW,sCAAY,YAAY,CAAC,GAAI,MAAL;AACnC,4BAAE,QAAF,GAAa,sCAAY,YAAY,CAAC,GAAI,QAAL;AACrC,8BAAG,EAAE,QAAQ,KAAE,EAAf,EACE,EAAE,QAAF,GAAa,sCAAY,YAAY,CAAC,GAAI,UAAL,CADvC;AAEA,8BAAG,EAAE,QAAQ,KAAE,EAAf,EACE,EAAE,QAAF,GAAa,sCAAY,YAAY,CAAC,GAAI,QAAL,CADvC;AAEA,4BAAE,UAAF,GAAe,sCAAY,YAAY,CAAC,GAAI,OAAL;AACvC,4BAAE,cAAF,GAAmB,sCAAY,YAAY,CAAC,GAAI,YAAL;AAC3C,4BAAE,SAAF,GAAc,sCAAY,YAAY,CAAC,GAAI,SAAL;AACtC,4BAAE,aAAF,GAAkB,sCAAY,YAAY,CAAC,GAAI,cAAL;yBAxB5C;AA2BA,6BAAgD,OAA1C,sCAAY,aAAa,CAAC,GAAI,UAAL,EAAoB,8BAAH;AAChD,4BAAY,EAAD,QAAX;AAEE,gCAAoD,OAA7C,sCAAY,aAAa,CAAC,GAAI,aAAL,EAAuB,6BAAH;AACpD,8BAAY,GAAD,QAAX;AAEE,qCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,qCAAQ,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AACrC,kCAAG,CAAE,KAAE,CAAP,EACE,EAAE,YAAW,aAAC,CAAa,sCAAY,cAAc,CAAC,IAAI,YAAC,EAAN,CAAvC,CADhB;AAEA,kCAAG,CAAE,KAAE,CAAP,EACE,EAAE,YAAW,YAAC,CAAY,sCAAY,cAAc,CAAC,IAAI,YAAC,EAAN,CAAtC,CADhB;;2BAPJ;yBAHF;;qBArCJ;AALF;AA4DE,qBAAE,eAAF,CAAE;AA5DJ;iBAFF;eAHF;aAFF;WAJF;AAX+C;AAU5C;AAV4C;;AA3EK;;AAgBM;AACvD;AADuD;AAE1D,gCAAgB,iBAAiB,CAAC,oFAAD;AAFyB;AACvD;AADuD;;AAVR;AAElD;AAFmD;AAAD;AAKA;AAElD;AAFkD;AAvDjB;;;;AAqBjC;AApEY;AAhBd,GAgBc,yMAhBd;ACAA,qCAsBS,6IAtBT;;;AA0CwB,gCAAG,2CAAkB,GAAE,qDAAF;AACpB,iCAAG;AAEnB,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AAwQY;AA5DE;AAlCD;AAhJS,wGAEZ,WAFY;;AAEZ;AAFY;AAKF,sGAEI,wBAFJ;;AAEI,6CAAY,SAPd,+CAOc,EAAZ;AAFJ;AAKR,8FAEE,gBACG,mBACT,UACO,iBACP,UACO,iBACN,WACA,aACG,cACA,aACL,QACC,UACU,kBAdN;;AAEE;AACG,yCV6IE,oEU7IF;AACT;AACO;AACP,8BAAS,uBAAT;AACO,qCAAY,eZrDb,qEYqDa,CAAZ;AACN,+BAAS,wBAAiB,sBAA1B;AACA,iCAAY,eZvDP,qEYuDO,EAAmC,sBAA/C;AACG;AACA,iCAAS,YV+GD,qEU/GC,CAAT;AACL,4BAAS,YA0HH,qCA1HG,EAAyC,6BAAlD;AACC;AACU;AAdN;AAiBC,+FAEG,kBACE,kBAHL;;AAEG,wCAnBJ,oCAmBI;AACE,uCAAW,cApBjB,oCAoBiB,CAAX;AAHL;AAMM;;AAIF;;AAIA;;AAIC;;AAIC;;AAIA;;AAIO;;AAIG;;AAIR;;AAIR;;AACE;;AAEL;;;AAElB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAvBkB;;;;;;;AAijCsB;AAG1C,sBAAW,OAAO,CAAC,KAAD;AAHwB;AA7BL;AAErC;AACA,UAAY,WAAD,QAAX,EACE,cAAsB,OAAX,iBAAc,0BAAH,CAAyB,SADjD;AAGA,yBAAe,yDAAqB,QAAC;AACrC,sBAAY;AACZ,mBAAS;AACT,uBAAa;AACb,qBAAW;AACX,yBAAe;AACf,sBAAY;AACZ,0BAAgB;AAChB,uBAAa;AACb,2BAAiB;AACjB,qBAAW;AACX,2BAAiB;AACjB,yBAAe;AACf,yBAAe;AACf,2BAAiB;AApB+C;AAA3B;AAtBF;AAEnC,UAAa,yBAAH,eAAP,MAAO,CAAV;AAEE,wBAAW,OAAO,CAAsB,MAAO,YAA7B;AAClB,wBAAiC,MAAO;AACxC,qBAA8B,MAAO;AACrC,yBAAkC,MAAO;AACzC,wBAAiC,MAAO;AACxC,4BAAqC,MAAO;AAC5C,yBAAkC,MAAO;AACzC,6BAAsC,MAAO;AAC7C,uBAAgC,MAAO;AACvC,2BAAoC,MAAO;AAC3C,uBAAgC,MAAO;AACvC,6BAAsC,MAAO;AAC7C,2BAAoC,MAAO;AAC3C,2BAAoC,MAAO;AAC3C,6BAAsC,MAAO;OAhB/C;AAFmC;AA6CE;AAEzB,eAAZ,KAAY;AACZ;AAHqC;AA3iCjB;AA0BA,+BAAY,exI8SrB,gCwI9SqB,CAAZ;AASC,kCZ5BA,mEY4BA;AACH;AACH;AACI;AACD;AACI;AACH;AACI;AACN;AACI;AACJ;AACI;AACE;AACF;AACE;AACH,iCApDK,wCAoDL;AAlDA;AAsDC;;;AAKnB;AALmB;;;;;AAmhCe;AAAP;AAG7B,eAAyC,YAAK,CAAC,KAAD;AAHjB;AAAO;AAiBC;AAG3B,kBAAK,CAAC,MAAU,KAAX;AAHsB;AAtBO;AAAf;AAE7B,eAAU;AAFmB;AAAe;AAWP;AAAR;AAE7B,eAAU;AAFmB;AAAQ;AAjBC;AAEtB,sDAAC,OAAQ,sBAAT;AAChB,sBAAU;AAH6D;AAAjC;AALN;AAAH;AAE7B,eAAyC;AAFZ;AAAG;AA2BG;AAAN;AAG7B,eAA+C,yCAAC,KAAD;AAHlB;AAAM;AA9hCd;AAYD,+BAAO,UAoGL,oCApGK,CAAP;AAZC;AAkBE;;;AAErB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAXqB;;;;;;;AAgkCiB;AAExC,iBAAM,OAAO,CAAC,KAAD;AAF2B;AALO;AAE/C,2BAAiB;AAF8B;AAUN;AAEzC,qBAAW;AAF8B;AAjBF;AAAR;AAE/B,eAAU;AACV,UAAG,WAAK,SAAC,EAAM,GAAE,CAAjB,EACE,SAAU,WAAK,WAAC,CAAD,CADjB;AAH+B;AAAQ;AAlBC;AAExC;AACA,UAAY,WAAD,QAAX,EACE,cAAsB,OAAX,iBAAc,6BAAH,CAA4B,SADpD;AAGA,oBAAU,0BAAqB,QAAC,YAAM,CAAC,WAAD,CAAN;AAChC,mBAAO;AACP,qBAAW;AACX,2BAAiB;AATkD;AAA3B;AARF;AAEtC,UAAa,4BAAH,eAAP,MAAO,CAAV;AAEE,mBAAM,OAAO,CAAS,OAAP,OAAU,4BAAH,CAA2B,OAApC;OAFf;AAFsC;AAoBE;AAEjC,eAAP,KAAO;AACP;AAHwC;AA9iCjB;AAiBH,+BAAY,exI+OrB,gCwI/OqB,CAAZ;AAUP;AACG,6BA9CK,oCA8CL;AACC;AACM;AA9BA;AAkCC;;;AAKtB;AALsB;;;;;AA0jCe;AAAP;AAGhC,eAA4C,YAAK,CAAC,KAAD;AAHjB;AAAO;AAiBC;AAG9B,kBAAK,CAAC,MAAU,KAAX;AAHyB;AAtBO;AAAf;AAEhC,eAAU;AAFsB;AAAe;AAWP;AAAR;AAEhC,eAAU;AAFsB;AAAQ;AAjBC;AAEzB,sDAAC,OAAQ,sBAAT;AAChB,sBAAU;AAHgE;AAAjC;AALN;AAAH;AAEhC,eAA4C;AAFZ;AAAG;AA2BG;AAAN;AAGhC,eAAkD,yCAAC,KAAD;AAHlB;AAAM;AArkCd;AAYJ,+BAAO,UAgDL,oCAhDK,CAAP;AAZI;AAoBY,8FAAgE,YAtD7E,sCAsD6E,GAA+C,kBVyEtH,qEUzEsH,EAA/G;AACH,wFAAmB,UjJlK7C,2BiJkK6C,EAAyB,YAvDtD,sCAuDsD,GAA+C,kBVwE/F,qEUxE+F,EAA3F;AAES,oGAA+D,WAzDlF,sCAyDkF,EAA/D;AACH,8FAAmB,UjJrKnD,2BiJqKmD,EAAwB,WA1D3D,sCA0D2D,EAA3C;AAEI,qGAAgE,YA5DpF,sCA4DoF,GAA+C,kBVmE7H,qEUnE6H,EAA/G;AACH,+FAAmB,UjJxKpD,2BiJwKoD,EAAyB,YA7D7D,sCA6D6D,GAA+C,kBVkEtG,qEUlEsG,EAA3F;AAES,2GAA+D,WA/DzF,sCA+DyF,EAA/D;AACH,qGAAmB,UjJ3K1D,2BiJ2K0D,EAAwB,WAhElE,sCAgEkE,EAA3C;AAEf;;;AAE7B;AAF6B;;;;;AAojCiB;AAGhD,uBAAa;AAFoC;AADD;AApjCjB;AAOM;;;AAEnC;AAFmC;;;;;AAqjCiB;AAGtD,uBAAa;AAF0C;AADD;AArjCjB;AAOC;;;AAEpC;AAFoC;;;;;AAskCiB;AAGvD,uBAAa;AAF2C;AADD;AAtkCjB;AAOM;;;AAE1C;AAF0C;;;;;AAujCiB;AAG7D,uBAAa;AAFiD;AADD;AAvjCjB;AAOtB;;;AAEpB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAfoB;;;;;;;;;;;;;;;;AA4nBmB;AAEzC,UAAG,eAAS,KAAG,KAAf;AAEE,0BAAY;AACZ;OAHF;AAFyC;AAND;AAExC,UAAG,YAAQ,KAAG,KAAd,EACE,eAAW,KADb;AAFwC;AA4BW;AAEnD,6BAAkB,OAAO,CAAC,KAAD;AAF0B;AAhaA;AAInD,UAAG,CAAI,qBAAP;AAEE,cAAM,sBAAS,QAAC,YAAM,CAAC,qBAAD,CAAN;AAChB;OAHF;AAMA,mBAAO;AACP,mBAAO;AACP,qBAAU,WAAW,CAAC,aAAO,WAAC,EAAT;AACrB,mBAAO,MAAP,GAAgB;AAChB,mBAAO,YAAP,GAAsB;AACtB,mBAAO,aAAP,GAAuB;AAEvB,UAAY,SAAD,QAAX;AACE,qBAAO,YAAP,GAAsB,oCAA+B,QAAC,YAAM,CAAC,SAAD,CAAN;AACnD,gBAAY,UAAD,QAAX,EACH,aAAO,YAAP,GAAsB,0CAAqC,QAAC,YAAM,CAAC,UAAD,CAAN,CADzD;AAGL,mBAAO,QAAP,GAAkB,eAAU;AAC5B,mBAAO,MAAP,GAAgB,eAAU;AAC1B,mBAAO,MAAP,GAAgB,eAAU,QAAQ,CAAC,sCAAY,UAAU,CAAC,QAAD,CAAvB;AAClC,mBAAO,OAAP,GAAiB,eAAU,SAAS,CAAC,sCAAY,UAAU,CAAC,QAAD,EAAY,+CAAW,CAAC,QAAS,KAAV,CAA9C;AACpC,mBAAO,UAAP,GAAoB,eAAU;AAE9B,yBAAc,CAA4B,iDVnFqI,KAA6B,IUmF9L;AA5BqC;AAiHO;AAI1D,UAAG,CAAI,qBAAP;AAEE,cAAM,sBAAS,QAAC,YAAM,CAAC,qBAAD,CAAN;AAChB;OAHF;AAMA,mBAAO;AACP,mBAAO;AACP,qBAAU,WAAW,CAAC,aAAO,WAAC,EAAT;AACrB,mBAAO,MAAP,GAAgB;AAChB,mBAAO,YAAP,GAAsB;AACtB,mBAAO,aAAP,GAAuB;AACvB,mBAAO,aAAP,GAAuB;AAEvB,UAAY,SAAD,QAAX;AACE,qBAAO,YAAP,GAAsB,2CAAsC,QAAC,YAAM,CAAC,SAAD,CAAN;AAC1D,gBAAY,UAAD,QAAX,EACH,aAAO,YAAP,GAAsB,iDAA4C,QAAC,YAAM,CAAC,UAAD,CAAN,CADhE;AAGL,mBAAO,QAAP,GAAkB,eAAU;AAC5B,mBAAO,MAAP,GAAgB,eAAU;AAC1B,mBAAO,MAAP,GAAgB,eAAU,eAAe,CAAC,gFAAD;AACzC,mBAAO,OAAP,GAAiB,eAAU,WAAS,CAAC,iFAAa,+CAAW,CAAC,QAAS,KAAV,CAAzB;AACpC,mBAAO,UAAP,GAAoB,eAAU;AAC9B,yBAAc,CAA4B,iDVpMqI,KAA6B,IUoM9L;AA5B4C;AAhEJ;;AAAxB;AAG9B;AAEA,UAAG,CAAI,qBAAP;AAEE,cAAM,sBAAS,QAAC,YAAM,CAAC,qBAAD,CAAN;AAChB;OAHF;AAOA,eAAqB,IAAX,OAAW,CACnB;AAEE,0BAAY,CAAC,SACb;AAEE;AAEA,oBAAK,qDAAL;AACA,cAAG,QAAQ,OAAM,SAAC,EAAM,GAAE,CAA1B,EACE,UAAK,QAAQ,OAAM,WAAC,CAAD,CAAG,YAAW,SAAC,EAAlC,CADF;AAGA,kBAAQ,CAAC,sEAAD;AARV,UASK,GAAI,KAAK,QAAS,KAVX;AAFd,OADmB;AAZS;AAAwB;AA6GO;;AAA/B;AAI9B;AAEA,UAAG,CAAI,qBAAP;AAEE,cAAM,sBAAS,QAAC,YAAM,CAAC,qBAAD,CAAN;AAChB;OAHF;AAOA,eAAqB,IAAX,OAAW,CACnB;AAEE,iCAAmB,CAAC,iFACpB;AAEE;AAEA,cAAK;AACL,cAAG,QAAQ,OAAM,SAAC,EAAM,GAAE,CAA1B,EACE,IAAK,QAAQ,OAAM,WAAC,CAAD,CAAG,SADxB;AAGA,kBAAQ,CAAC,CAAD;AARV,UASK,GAAI,KAAK,QAAS,KAVJ;AAFrB,OADmB;AAbS;AAA+B;AA2KT;AAGpD;AACA;AACA;AACA;AAEA,UAAG,CAAI,qBAAP,EACE,MADF;AAME,YAAO,uBAAiB;AACxB,SAAG,MAAH,GAAW,cAAc;AACzB,SAAG,aAAH,GAAmB,cAAc;AACjC,qBAAU,MAAM,CAAC,IAAK,cAAc,cAApB;AAEhB,UAAG,CAAI,cAAc,aAArB;AACE,2BAAc,CAAC,IAAK,cAAN;AAEd,YAAA,0BAAqB,CAAC,IAAK,cAAN;AAEvB,UAAY,cAAc,YAAf,QAAX;AAEE,YAAgC,oCAAH,eAA1B,cAAc,YAAY,CAA7B;AAEE,gBAAuC,cAAc;AACrD,aAAG,UAAU,CAAC,IAAK,cAAN;AACb,aAAI,eAAJ,GAAI;SAED,UAAgC,0CAAH,eAA1B,cAAc,YAAY,CAA7B;AAEH,iBAA8C,cAAc;AAC5D,cAAI,UAAU,CAAC,GAAD;AACd,cAAK,eAAL,IAAK;SAEF,UAAgC,2CAAH,eAA1B,cAAc,YAAY,CAA7B;AAEH,iBAAqD,cAAc;AACnE,cAAI,UAAU,CAAC,GAAD;AACd,cAAK,eAAL,IAAK;SAEF,UAAgC,iDAAH,eAA1B,cAAc,YAAY,CAA7B;AAEH,iBAAqD,cAAc;AACnE,cAAI,UAAU,CAAC,GAAD;AACd,cAAK,eAAL,IAAK;SAJF;OApBP;AAxBkD;AAbP;AAG7C,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,SAAU,cAAjB,CADxB;AAEA,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,SAAU,cAAjB,CADhB;AAEA,UAAY,kCAAD,QAAX,EACE,kCAA4B,CAAC,KAAM,QAAP,CAD9B;AAEA,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,QAAP,CADtB;AAT6C;AAbO;AAGpD,UAAY,mCAAD,QAAX,EACE,mCAA6B,CAAC,KAAM,SAAU,cAAjB,CAD/B;AAEA,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,SAAU,cAAjB,CADvB;AAEA,UAAY,yCAAD,QAAX,EACE,yCAAmC,CAAC,KAAM,QAAP,CADrC;AAEA,UAAY,iCAAD,QAAX,EACE,iCAA2B,CAAC,KAAM,QAAP,CAD7B;AAToD;AA/EF;AAElD;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAVkD;AAYlD,YAAG,mBAAH,EACE,MADF;AAGA,YAAY,eAAD,QAAX,EACE,eAAU,mBADZ;AAGA,uCAAc,IAAd;AACA,+CAAsB,IAAtB;AAEK;AACH,YADG,IACH;AAEE,cAAG,qCAAgC,UAAQ,0BAAwB,CAAC,qDAAyC;qBAAC;AAAD;;cAA1C,CAAnE,EACE,+BAAc,+BAA+B,mBAA7C,KADF;SAGF,UANG,IAMH;AAEE,cAAG,qCAAgC,UAAQ,0BAAwB,CAAC,mDAAuC;qBAAC;AAAD;;cAAxC,CAAnE,EACE,+BAAc,6BAA6B,mBAA3C,KADF;SAGF,UAXG,IAWH;AAEE,cAAG,qCAAgC,UAAQ,0BAAwB,CAAC,mDAAuC;qBAAC;AAAD;;cAAxC,CAAnE,EACE,+BAAc,6BAA6B,mBAA3C,KADF;AAEA,gDAAY,IAAI,CAAC,uFAAD;SAElB,UAjBG,IAiBH;AAEE,cAAG,qCAAgC,UAAQ,0BAAwB,CAAC,oDAAwC;qBAAC;AAAD;;cAAzC,CAAnE,EACE,+BAAc,8BAA8B,mBAA5C,KADF;SAGF,UAtBG,IAsBH;AAEE,cAAG,qCAAgC,UAAQ,0BAAwB,CAAC,qDAAyC;qBAAC;AAAD;;cAA1C,CAAnE,EACE,+BAAc,+BAA+B,mBAA7C,KADF;SAGF,UA3BG,IA2BH;AAEE,cAAG,qCAAgC,UAAQ,0BAAwB,CAAC,qDAAyC;qBAAC;AAAD;;cAA1C,CAAnE,EACE,+BAAc,+BAA+B,mBAA7C,KADF;SAGF,UAhCG,IAgCH;AAEE,cAAG,qCAAgC,UAAQ,0BAAwB,CAAC,4DAAgD;qBAAC;AAAD;;cAAjD,CAAnE,EACE,+BAAc,sCAAsC,mBAApD,KADF;SAGF,UArCG,IAqCH;AAEE,cAAG,qCAAgC,UAAQ,0BAAwB,CAAC,+DAAmD;qBAAC;AAAD;;cAApD,CAAnE,EACE,+BAAc,yCAAyC,mBAAvD,KADF;SAGF,UA1CG,IA0CH;AAEE,cAAG,qCAAgC,UAAQ,0BAAwB,CAAC,uDAA2C;qBAAC;AAAD;;cAA5C,CAAnE,EACE,+BAAc,iCAAiC,mBAA/C,KADF;SAFF;AAOF,YAAW,CAAC,eAAD,SAAa,IAAI,uBAAQ,CAAC,gBAAY,sDAAgC;;;;YAA7C,CAApC,EACE,uBAAkB,uBAAuB,CAAC,yBAAD,CAD3C;AAtEkD;AAElD;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAzdE;AA+cgD;;AA3HT;AAAX;AAE9B,eAAU;AAFoB;AAAW;AA/DS;AAApB;AAE9B,eAAU;AAFoB;AAAoB;AAoQN;AAAd;AAE9B,eAAkB,CAAC,eAAD,SAAiF,IAAxD,CAAC,uBAAD,SAAZ,IAA6C,CAAC,yBAAD,SAAZ,IAAuC,eAAU,UAAd;AAFrE;AAAc;AAnVL;AAAT;AAE9B,eAAU;AAFoB;AAAS;AAkBG;AAAZ;AAE9B,eAAU,kCAAQ,CAAC,kCAAQ,CAAC,EAAQ,CAAT,EAAkB,kCAAQ,CAAC,EAAQ,CAAT,CAAnC;AAFY;AAAY;AAbH;AAAT;AAE9B,eAAU;AAFoB;AAAS;AAuPC;AAAV;AAE9B,eAAU;AAFoB;AAAU;AA4KD;AAAT;AAC3B;AADoC;AAEvC,qCAAU,eAAV;AADG;AADoC;AACpC;AADoC;AAAT;AAAS;AA9ZC;AAAV;AAE9B;AAEA,WAAM;AACN,eAAU,qBAAQ,CAAG,CAAC,gCAAM,CAAC,EAAD,CAAP,aAAH,CAA8E,GAA7D,GAAD,GAAK,qBAAQ,CAAI,gCAAM,CAAC,EAAD,CAAP,OAAH,CAAT,GAA0B,GAAD,GAAK,qBAAQ,CAAG,CAAC,gCAAM,CAAC,EAAD,CAAP,aAAH,CAAT,GAA0B,GAAD,GAAK,qBAAQ,CAAI,gCAAM,CAAC,EAAD,CAAP,OAAH,CAAT;AALlE;AAAU;AAaH;AAErC;AACA,UAAc,2BAAH,eAAP,MAAO,CAAX;AAEE,0BAAoB,OAAP,OAAU,2BAAH,CAA0B;AAC9C,uBAAmB,OAAP,OAAU,2BAAH,CAA0B;AAC7C,+BAAkB,OAAO,CAAS,OAAP,OAAU,2BAAH,CAA0B,mBAAnC;OAJ3B;AAHqC;AA0OE;AACpC;AADoC;AAEvC;AACA,+BAAQ,CAAC,oDAAM,wDAAkC;;;;YAAzC;AACR,kCAAsB,6BAAwB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C;AALuC;AACpC;AAvcD;AAscqC;AAAqB;AAArB;AA2LA;AAEpB,eAAnB,KAAmB;AAEnB,UAAY,eAAD,QAAX,EACE,eAAU,mBADZ;AAGA,qCAAc,IAAd;AACA,6CAAsB,IAAtB;AACA,+CAAwB,IAAxB;AACA;AAVuC;AA1ZI;AAI3C,+BAAoB,CAAC,SAAU,UAAW,KAAK,IAAK,aAAc,QAAS,KAAvD;AAJuB;AAiHO;AAIlD,sCAA2B,CAAC,iFAAa,UAAW,KAAK,IAAK,aAAc,QAAS,KAA1D;AAJuB;AA3ED;AAIjD,+BAAoB,CAAC,SAAU,KAAK,UAAW,IAAK,aAAc,QAAS,KAAvD;AAJ6B;AAiHO;AAIxD,sCAA2B,CAAC,iFAAa,KAAK,UAAW,IAAK,aAAc,QAAS,KAA1D;AAJ6B;AArGV;AAAhB;AAG9B,qBAA8B,MAAmC,6BAAwB,CAAC,SAAU,QAAS,KAApB,CAAzF;AAH8B;AAAgB;AA4GO;AAAvB;AAI9B,eAA8B,MAAiB,oCAA+B,CAAC,iFAAa,QAAS,KAAvB;AAJhD;AAAuB;AAzY/B;;;;;;AAwDF,+BAAO,UxIgMjB,+BwIhMiB,CAAP;AAxDE;AAkEgB;;;AAEpC;AAFoC;;;;;AAywB8B;AAAtB;AAC3C;AADiE;AAEpE,qCAAU,yBAAV;AADG;AADiE;AACjE;AADiE;AAAtB;AAAsB;AAKC;AAGrE,+CAAwB,KAAxB;AAHqE;AAXd;AAEvD,+CAAwB,IAAxB;AACA;AAHuD;AAnwBjB;;;AAYlB;AA0uBe;AAAP;AACzB;AADgC;AAEnC,qCAAgC,cAAW,QAAK,CAAC,KAAD,CAAhB,CAAhC;AADG;AADgC;AAChC;AADgC;AAAP;AAAO;AAKC;AAE1B,cAAK,CAAC,MAAU,KAAX;AAFqB;AA/uBhB;AAYU;;;AAE5B;AAF4B;;;;;AAqkBuB;AAAf;AACnC;AADkD;AAErD,qCAAU,yBAAV;AACA,uBAAU,IAAI,CAAC,MAAD;AAFX;AADkD;AAClD;AADkD;AAAf;AAAe;AAYE;AAEvD,qBAAU,OAAO,CAAC,UAAD;AAFsC;AAlBR;AAErC;AACV,wBAAc,yBAAoB,QAAC;AAHa;AAAD;AAYA;AAE/C,6BAAU,CAAC;;;;UAAD;AACA;AAHqC;AA3kBjB;;;AAqBd;AAy7B+B;AAE/C;AACA,iCAAe,CAAC,CAAC,qBAAD,CAAD;AAHgC;AAz7B/B;;;;;;AAOgB,6CAvJQ,uDAuJR;AACP,sCA9JQ,gDA8JR;AACa,mDAtJQ,6DAsJR;AACP,4CA7JQ,sDA6JR;AACd;AACW,yCAvLJ,uCAuLI;AACV,+BArSK,sCAqSL;AACA;AAdF;AAiBuB;;;AAErC;AACA;AAHqC;;;;;AAwnBiB;AAGxD,mBAAS;AACT,qCAAc,UAAd;AAHwB;AADgC;AAxnBjB;AAWH;AAmqBe;AAAP;AAE5C,eAA4D,YAAK,CAAC,KAAD;AAFrB;AAAO;AAKC;AAE1C,kBAAK,CAAC,MAAU,KAAX;AAFqC;AAnCA;AAAR;AAE5C;AACG;AAHiD;AAIpD,qCAAU,IAAV;AACA,iBAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,cAAG,cAAK,CAAC,CAAD,CAAG,MAAM,KAAE,KAAnB;AAEE,yCAAU,cAAK,CAAC,CAAD,CAAG,WAAlB;AACA;WAHF;;AAJC;AAHiD;AAGjD;AAHiD;AAAR;AAAQ;AAfG;AAAX;AAE5C;AAEA,eAAU;AACV,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,YAAG,cAAK,CAAC,CAAD,CAAG,MAAM,KAAE,KAAnB;AAEE,mBAAU;AACV;SAHF;;AAP0C;AAAW;AA8BE;AAEzD;AAEA,eAAe,KAAN,eAAM,GAAE,CAAF,EAAW,aAA1B;AAAI;AAEF,YAAG,cAAK,CAAC,CAAD,CAAG,MAAM,KAAE,KAAnB;AAEE,uBAAM,CAAC,cAAK,CAAC,CAAD,CAAN;AACN;SAHF;;AANuD;AAppBrB;AAkBJ;AAGpB;AACA;AAJoB;;AAE9B;AAF8B;;;;;AA6iB6B;AAE7D,6BAAU,CAAC;;;;UAAD;AACV,+DAAoB;AAHyC;AAbZ;AAEjD;AACA,2BAAiB,yCAAoC,QAAC;AAHJ;AAAD;AAMA;AAEjD,6BAAU,CAAC;;;;UAAD;AACV;AAHiD;AAjBU;AAE3D;AAF2D;AAI3D,YAAG,CAAI,kBAAa,YAAY,CAAC,yBAAY,CAAC,YAAD,CAAb,CAAhC;AAEE,cAAG,uBAAQ,CAAC,SAAU,aAAc;;;;cAAzB,CAAX,EACE,kBAAa,MAAI,CAAC,4CAAuC,QAAC,YAAM,CAAC,yBAAY,CAAC,YAAD,EAAgB,QAA7B,CAAN,CAAzC,CADnB;SAFF;AAJ2D;AAE3D;AAF2D;;AA8CG;AAE9D,wBAAa,aAAa,CAAC,yBAAY,CAAC,YAAD,CAAb;AAFoC;AARJ;AAAlB;AAExC;AACG;AAHuD;AAI1D,2BAAK,kBAAa,SAAW,CAAC,yBAAY,CAAC,YAAD,CAAb,EAA7B;AACA,+BAAQ,CAAC,EAAG,aAAc;;;;YAAlB;AAFL;AAHuD;AAE1D;AACG;AAHuD;AAAlB;AAAkB;AAyBK;AAAvB;AAExC,eAAU,kBAAa,YAAY,CAAC,yBAAY,CAAC,YAAD,CAAb;AAFK;AAAuB;AAZA;AAAvB;AAErC;AAF4D;AAG/D,YAAG,kBAAa,YAAY,CAAC,yBAAY,CAAC,YAAD,CAAb,CAA5B;AACE,mBAAU,uBAAQ,CAAyB,UAAxB,kBAAa,SAAW,CAAC,yBAAY,CAAC,YAAD,CAAb,GAA8B,aAAc,QAArE;;AAGlB,uBAAY,IAAZ;AACA,mBAAU;;AARmD;AAE5D;AAF4D;AAAvB;AAAuB;AApBV;AAAP;AAE9C,UAAa,CAAT,aAAS,KAAE,IAAF,CAAO,IAAI,CAAI,qBAA5B,EACE,iDAAY,qCAAgC,QAAC,YAD/C;AAEA,eAAU;AAJoC;AAAO;AApjBrB;AAi6BlC;AAEkC,0DAAhC,GAAqD;AACrD;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAXF;AAt3CA,GAwec,qVAxed;ACAA,6CAWS,UAXT;;;;AA+FyC;AAEvC,QAAG,CAAI,gEAAiC,UAAQ,0BAAwB,CAAC,gFAA0C,CAAC,UAAD;eAAA,MAAC;AAAD;;QAA3C,CAAxE;AAEE,6CAAmD,eAA9B,oCAA8B,QAAC,0EAAD,EAAnD;AACA,sEAAiC,UAAQ,mBAAmB,CAAC,gFAAgC,uBAAjC;KAH9D;AAFuC;AASE;AAEzC,oEAAiC,UAAQ,sBAAsB,CAAC,+EAAD;AAFtB;AAxG3C,mBAgBc;AAwCkB;AAFiB;;;;;AAEjB;AAuD0B;AAAlB;AACnC;AADqD;AAExD,uCAA2C,eAAjC,uCAAiC,QAAC,mEAAD,EAA3C;AADG;AADqD;AACrD;AADqD;AAAlB;AAAkB;AAvD1B;;;;AAQG;;;;AAE/B;AAF+B;AA8EqB;AAAb;AAEzC,iBAAU;AAF+B;AAAa;AAyFN;AAAP;AACtC;AAD6C;AAEhD,mBAAU,yCAAoB,YAAW,KAAG,EAAH;AAFO;AAC7C;AAD6C;AAAP;AAAO;AALS;AAAhB;AAEzC,iBAAU;AAF+B;AAAgB;AAzFT;AAAP;AAEzC,iBAAU;AAF+B;AAAO;AAUA;AAAP;AAGzC,iBAAU;AAH+B;AAAO;AAeC;AAAR;AAMzC;AAAY;AACZ;AACG;AAR8C;AASjD,cAAG,WAAY,IAAG,cAAC,kEAAD,CAAlB;AACE,+BAAe;AAEf,mCAAe;AAEZ;AACH,cADG,IACH;AAAW,yBAAc;AACzB,oBAFG,IAEH;AAAW,yBAAc;AACzB,oBAHG,IAGH;AAAa,yBAAc;AAC3B,oBAJG,IAIH,mFAAmB,aAAc,SAAjC;AAGF,sBAAa;AAEb,cAAW,CAAC,aAAD,SAAgB,IAAyB,CAApB,aAAa,SAAC,EAAM,GAAE,CAAF,CAApD;AAEE,wBAAa;AACb,wBAAa,SAAwB,GAAZ,WAAF,GAAgB,+CAAW,CAAC,kBAAD,CAAb;AACrC,qBAAS,QAA0B,OAApB,aAAa,SAAC,EAAM,GAAE,CAAF,kBAAnC;AAAI;AACF,0BAAa,SAAgB,GAAJ,GAAF,GAAQ,aAAa,KAAC,CAAD,CAAf;;WALjC;AAQA,cAAW,YAAC,UAAD,MAAa,IAAwB,CAAb,WAAC,UAAD,CAAa,GAAE,CAAF,CAAhD;AAEE,wBAAa;AACb,wBAAa,SAAwB,GAAZ,WAAF,GAAgB,+CAAW,CAAC,kBAAD,CAAb;AACrC,qBAAS,SAAyB,QAAb,WAAC,UAAD,CAAa,GAAE,CAAF,qBAAlC;AAAI;AACF,0BAAa,SAA2E,GAA/D,GAAF,GAAQ,sCAAY,cAAc,CAAC,UAAU,CAAC,CAAD,CAAG,SAAd,CAA5B,GAAuD,GAAF,GAAQ,sCAAY,cAAc,CAAC,UAAU,CAAC,CAAD,CAAG,UAAd,CAA5B;;WAL5F;AAQA,cAAG,OAAQ,KAAE,EAAb,EACE,UAAW,sCAAY,cAAc,CAAC,eAAD,CAAwB,GAAJ,GAAF,GAAQ,sCAAY,cAAc,CAAC,gBAAD,CAD3F;AAEA,cAAG,YAAa,KAAE,EAAlB,EACE,eAAgB,sCAAY,cAAc,CAAC,oBAAD,CAA6B,GAAJ,GAAF,GAAQ,sCAAY,cAAc,CAAC,qBAAD,CADrG;AAGA,mBAAU,MAMR,GANiB,yCAAoB,YAAtB,GACb,UAAF,GAAe,OAAF,GACX,eAAF,GAAoB,YAAF,GAChB,gBAAF,GAAqB,+CAAW,CAAC,aAAD,CAAb,GACjB,QAAF,GAAa,UAAF,GACT,YAAF,GAAiB,OAAF,GACb,SAAF;AAEF,cAAG,WAAY,IAAG,cAAlB;AAEE,qBAAU,MAAO,GAAE,SAAF;AAEjB,gBAAG,WAAH,EACE,SAAU,MAAO,GAAE,QADrB;AAGA,gBAAG,cAAH,EACE,SAAU,MAAO,GAAE,UADrB;WAPF;AApDiD;AAQ9C;AAR8C;AAAR;AAAQ;AATG;AAAX;AAMzC,iBAAU;AAN+B;AAAW;AAmFL;AAE/C;AACA;AACA;AAAM;AACN;AACA;AAEA;AAAG;AAAI;AAAK;AACZ;AAAK;AAAK;AACV;AAAG;AAAG;AAAG;AACT;AAAI;AAAI;AACR;AACG;AAb4C;AAc/C,cAAY,yCAAD,QAAX;AAEE,oBAAQ,cAAC,CAAc,gBAAd;AAET,gBAAK,QAAQ;AACb,gBAAY,CAAD,QAAX;AAEE,kBAAG,cAAe,KAAG,EAArB;AAEE,oBAAK,sCAAY,UAAU,CAAC,cAAD;AAC3B,oBAAY,CAAD,QAAX;AAEE;AACE,4BAAQ,UAAC,CAAU,sCAAY,YAAY,CAAC,EAAG,QAAJ,CAAlC;AACT,4BAAQ,gBAAC,CAAgB,sCAAY,YAAY,CAAC,EAAG,eAAJ,CAAxC;AAET,0BAA8C,OAAvC,sCAAY,aAAa,CAAC,EAAG,QAAJ,EAAiB,6BAAH;AAC9C,wBAAY,GAAD,QAAX;AAGE,+BAAS,QAAwC,OAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,kBAAjD;AAAI;AAEF,6BAAM,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEnC,6BAAM,CAAC;AACP,0BAAE,SAAF,GAAc,sCAAY,YAAY,CAAC,GAAI,SAAL;AAmBtC,6BAAyD,OAAnD,sCAAY,aAAa,CAAC,GAAI,mBAAL,EAA6B,8BAAH;AACzD,4BAAY,EAAD,QAAX,EACE,2CAAY,CAAC,sCAAY,YAAY,CAAC,GAAI,QAAL,EAAgB,EAAE,aAA3C,CADd;AAGU,+BAAD,sBAAC,UAAS,CAAV;AACT,+BAAO,CAAC,CAAD,CAAP,GAAc,CAAC;AAEf,8BAAuD,OAAhD,sCAAY,aAAa,CAAC,GAAI,gBAAL,EAA0B,6BAAH;AACvD,4BAAY,GAAD,QAAX;AAEY,iCAAD,sBAAC,UAAS,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAA/C;AAET,mCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,kCAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AACpC,gCAAG,GAAG,YAAC,EAAM,KAAG,EAAhB,EACE,OAAO,CAAC,CAAE,GAAE,CAAL,CAAP,GAAkB,qBAAQ,CAAC,GAAG,YAAC,EAAL,CAD5B;;yBAPJ;AAYA,8BAA6C,OAAtC,sCAAY,aAAa,CAAC,GAAI,MAAL,EAAgB,6BAAH;AAC7C,4BAAY,GAAD,QAAX;AAEE,mCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,kCAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEpC,gCAAK,EAAE,MAAK;AAEZ,iCAAM,EAAE,WAAU;AAClB,gCAAS,WAAC,OAAD,CAAU,GAAE,CAArB,EACE,EAAE,gBAAF,GAAqB,OAAO,CAAC,CAAD,CAD9B;AAGA,6BAAC,cAAD,GAAkB,sCAAY,YAAY,CAAC,IAAK,eAAN;AAC1C,6BAAC,YAAD,GAAgB,sCAAY,YAAY,CAAC,IAAK,aAAN;AAExC,iCAAiD,OAA3C,sCAAY,aAAa,CAAC,IAAK,UAAN,EAAqB,8BAAH;AACjD,gCAAY,EAAD,QAAX;AAEE,+BAAC,UAAD,GAAc,sCAAY,oBAAoB,CAAC,GAAI,OAAL;AAC9C,gCAAE,UAAF,GAAe,EAAE,UAAU,GAAE,CAAC,UAAH;AAC3B,gCAAE,UAAF,GAAe,CAAC;6BAJlB;AAOA,iCAAiD,OAA3C,sCAAY,aAAa,CAAC,IAAK,UAAN,EAAqB,8BAAH;AACjD,gCAAY,EAAD,QAAX;AAEE,+BAAC,UAAD,GAAc,sCAAY,oBAAoB,CAAC,GAAI,OAAL;AAC9C,gCAAE,UAAF,GAAe,EAAE,UAAU,GAAE,CAAC,UAAH;AAC3B,gCAAE,UAAF,GAAe,CAAC;6BAJlB;AAOA,iCAAqD,OAA/C,sCAAY,aAAa,CAAC,IAAK,cAAN,EAAyB,8BAAH;AACrD,gCAAY,EAAD,QAAX;AAEE,+BAAC,aAAY,YAAC,CAAY,sCAAY,mBAAmB,CAAC,GAAI,KAAL,CAA3C;AACd,+BAAC,aAAY,aAAC,CAAa,sCAAY,mBAAmB,CAAC,GAAI,KAAL,CAA5C;6BAHhB;AAMA,iCAAuD,OAAjD,sCAAY,aAAa,CAAC,IAAK,gBAAN,EAA2B,8BAAH;AACvD,gCAAY,EAAD,QAAX;AAEE,+BAAC,eAAc,YAAC,CAAY,sCAAY,mBAAmB,CAAC,GAAI,KAAL,CAA3C;AAChB,+BAAC,eAAc,aAAC,CAAa,sCAAY,mBAAmB,CAAC,GAAI,KAAL,CAA5C;6BAHlB;AAMA,kCAA+C,OAAxC,sCAAY,aAAa,CAAC,IAAK,OAAN,EAAkB,6BAAH;AAC/C,gCAAY,GAAD,QAAX;AAEE,uCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,sCAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEpC,uCAAQ,EAAE,OAAM;AAEhB,qCAAiD,OAA3C,sCAAY,aAAa,CAAC,IAAK,UAAN,EAAqB,8BAAH;AACjD,oCAAY,EAAD,QAAX,EACE,IAAI,UAAJ,GAAiB,sCAAY,oBAAoB,CAAC,GAAI,OAAL,CADnD;AAGA,qCAAiD,OAA3C,sCAAY,aAAa,CAAC,IAAK,UAAN,EAAqB,8BAAH;AACjD,oCAAY,EAAD,QAAX,EACE,IAAI,UAAJ,GAAiB,sCAAY,oBAAoB,CAAC,GAAI,OAAL,CADnD;AAGA,oCAAI,cAAJ,GAAqB,sCAAY,YAAY,CAAC,IAAK,mBAAN;AAE7C,qCAAiD,OAA3C,sCAAY,aAAa,CAAC,IAAK,UAAN,EAAqB,8BAAH;AACjD,oCAAY,EAAD,QAAX,EACE,2CAAY,CAAC,sCAAY,YAAY,CAAC,GAAI,QAAL,EAAgB,IAAI,aAA7C,CADd;AAGA,yCAAU,SAA4B,QAAvB,IAAI,aAAY,SAAC,EAAM,GAAE,CAAF,qBAAtC;AAAI;AACF,mCAAC,aAAY,QAAI,OAAO,CAAC,IAAI,aAAY,WAAC,EAAD,CAAjB;;AAE1B,qCAAqD,OAA/C,sCAAY,aAAa,CAAC,IAAK,cAAN,EAAyB,8BAAH;AACrD,oCAAY,EAAD,QAAX;AAEE,sCAAI,aAAY,YAAC,CAAY,sCAAY,mBAAmB,CAAC,GAAI,KAAL,CAA3C;AACjB,sCAAI,aAAY,aAAC,CAAa,sCAAY,mBAAmB,CAAC,GAAI,KAAL,CAA5C;iCAHnB;AAMA,qCAAuD,OAAjD,sCAAY,aAAa,CAAC,IAAK,gBAAN,EAA2B,8BAAH;AACvD,oCAAY,EAAD,QAAX;AAEE,sCAAI,eAAc,YAAC,CAAY,sCAAY,mBAAmB,CAAC,GAAI,KAAL,CAA3C;AACnB,sCAAI,eAAc,aAAC,CAAa,sCAAY,mBAAmB,CAAC,GAAI,KAAL,CAA5C;iCAHrB;AAMA,wCAAS,CAAC,OAAM;AAChB,qCAAK,OAAO,CAAC,IAAD;;6BAxChB;;yBA9CJ;;qBAhDJ;AALF;AAmJE,qBAAE,eAAF,CAAE;AAnJJ;iBAFF;eAHF;aAFF;WALF;AAd+C;AAa5C;AAb4C;;AAxHK;;AAgBO;AACxD;AADwD;AAE3D,iCAAiB,kBAAkB,CAAC,sFAAD;AAFwB;AACxD;AADwD;;AAVT;AAElD;AAFmD;AAAD;AAKA;AAElD;AAFkD;AA/DjB;;;;AA6BjC;AA7EY;AAhBd,GAgBc,0MAhBd;ACAA,wCAsBS,kKAtBT;;;AA2CI,YAAG;AACoB,mCAAG,2CAAkB,GAAE,sDAAF;AACpB,oCAAG;AAEtB,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AAQoB;;AACF;;AA6JT;AAzJO;;;AAExB;AACA;AACA;AACA;AACA;AANwB;AAqXuB;AAEjD,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;OAFlB;AAFiD;AAnCF;AAG/C,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;OAFhB;AAH+C;AASI;AAEnD,UAAG,mBAAe,KAAG,KAArB;AAEI,8BAAkB;OAFtB;AAFmD;AAQY;AAG/D,UAAG,+BAA2B,KAAG,KAAjC;AAEE,0CAA8B;OAFhC;AAH+D;AASA;AAG/D,UAAG,+BAA2B,KAAG,KAAjC;AAEE,0CAA8B;OAFhC;AAH+D;AApDtB;AAEzC,UAAc,+BAAH,eAAP,MAAO,CAAX;AAEE,4BAAwB,OAAP,OAAU,+BAAH,CAA8B;AACtD,0BAAsB,OAAP,OAAU,+BAAH,CAA8B;AACpD,8BAA0B,OAAP,OAAU,+BAAH,CAA8B;AACxD,0CAAsC,OAAP,OAAU,+BAAH,CAA8B;OAGpE;AAVuC;AAaE;AAE3C,0BAAgB;AAChB,wBAAc;AACd,4BAAkB;AAClB,wCAA8B;AALc;AAAD;AAQA;AAE3C;AAF2C;AA7UjB;AAcN;AAGE,mCAtBQ,6CAsBR;AACF,iCAtBQ,2CAsBR;AACI,qCnJvBf,8BmJuBe;AACY;AACA;AArBV;AAwBC;;;AAEzB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAVyB;;;;;;AA2gBiB;AAE5C;AACA,UAAY,WAAD,QAAX,EACE,cAAsB,OAAX,iBAAc,iCAAH,CAAgC,SADxD;AAGA,sCAA4B,CAAC;AAC7B,oCAA0B;AAC1B,oBAAU;AAR6D;AAA3B;AANF;AAE1C;AAF0C;AAiBE;AAE5C;AAF4C;AAthBjB;AAYP,+BAAY,e1IuXrB,gC0IvXqB,CAAZ;AASc;AACF;AAChB;AAvBW;AA2BC;;;AAK1B;AAL0B;;;;;AAide;AAAP;AAGpC,eAAgD,YAAK,CAAC,KAAD;AAHjB;AAAO;AAiBC;AAGlC,kBAAK,CAAC,MAAU,KAAX;AAH6B;AAtBO;AAAf;AAEpC,eAAU;AAF0B;AAAe;AAWP;AAAR;AAEpC,eAAU;AAF0B;AAAQ;AAjBC;AAE7B,sDAAC,OAAQ,sBAAT;AAChB,sBAAU;AAHyD;AAAtB;AALN;AAAH;AAEpC,eAAgD;AAFZ;AAAG;AA2BG;AAAN;AAGpC,eAAsD,yCAAC,KAAD;AAHlB;AAAM;AA5dd;AAYR,+BAAO,U1IwDhB,gC0IxDgB,CAAP;AAZQ;AAkBK;;;AAE/B;AACA;AAH+B;;;;;AAsViC;AAGlE,iCAAsB,OAAO,CAAC,KAAD;AAHqC;AANK;AAGvE,yCAA+B;AAHwC;AAtBvB;AAEhD,UAAc,sCAAH,eAAP,MAAO,CAAX;AAEE,sCAAkC,OAAP,OAAU,sCAAH,CAAqC;AACvE,2CAAuC,OAAP,OAAU,sCAAH,CAAqC;OAG5E;AAR8C;AAWE;AAElD,oCAA0B,iCAA4B,QAAC,YAAM,CAAC,IAAD,CAAN;AACvD,yCAA+B;AAHoB;AAAD;AAMA;AAE3B,eAAvB,KAAuB;AAF2B;AA3UjB;AASb;AAGY,6CA9BJ,2CA8BI;AACK;AAbJ;AAgBV;;;AAErB;AACA;AAHqB;;;;;;AAkZuB;AAE9C,uBAAY,OAAO,CAAC,KAAD;AAF2B;AAKG;AAGjD,6BAAmB;AAH8B;AAnBT;AAExC;AACA,0BAAgB,uBAAW,QAAC;AAC5B,6BAAmB,sCAAiC,QAAC;AAJc;AAA3B;AAVF;AAEtC;AACA,UAAa,4BAAH,eAAP,MAAO,CAAV;AAEE,yBAAY,OAAO,CAAyB,MAAO,aAAhC;AACnB,4BAAe,OAAO,CAAyB,MAAO,gBAAhC;OAHxB;AAHsC;AAiBE;AAE3B,eAAb,KAAa;AACG,eAAhB,KAAgB;AAChB;AAJwC;AA3YjB;AAOH,+BAAY,e1I+TrB,gC0I/TqB,CAAZ;AAIE,mC1I+MX,iC0I/MW;AACG,sCA5BQ,gDA4BR;AAZF;AAeC;AAmWe;AAAP;AAGhC,eAA4C,cAAK,CAAC,KAAD;AAHjB;AAAO;AALQ;AAAf;AAEhC,eAAU;AAFsB;AAAe;AA9VvB;AASE;AA8UgB;AAAR;AAElC,eAA6C;AAFX;AAAQ;AALe;AAAvB;AAElC,eAAU;AAFwB;AAAuB;AAzU/B;AAMV,6BAfQ,uCAeR;AANU;AASC;AAkTe;AAAP;AAGnC,eAA+C,cAAK,CAAC,KAAD;AAHjB;AAAO;AAMC;AAGjC,oBAAK,CAAC,MAAU,KAAX;AAH4B;AAXO;AAAf;AAEnC,eAAU;AAFyB;AAAe;AA7SvB;AASF;;;AAEvB;AAFuB;;;;;AAyKmB;AAG5C,mBAAQ,OAAO,CAAC,KAAD;AAH6B;AAjGU;AAArB;AAEjC,eAAgD;AAFf;AAAqB;AA2FC;;AAtFI;AAA1B;AAEjC,eAAU;AAFuB;AAA0B;AAKJ;AAAtB;AAIjC;AACA;AACA;AACA;AAEA,eAAU;AAEV,UAAG,CAAiB,CAAZ,WAAY,IAAG,cAAC,qEAAW,sEAAZ,CAAH,CAApB;AAEE,YAAG,kBAAH;AAEE,uBAAc;;AAIF,qBAAP,aAAO;AACV,cADU,IACV;AAAkB,yBAAc;AAChC,oBAFU,IAEV;AAAgB,yBAAc;AAC9B,oBAHU,IAGV;AAEE,yBAAc;AACd,gBAAI,aAAO,2BAAX;AAEE,kBAAuB,CAAb,WAAC,UAAD,CAAa,IAAG,CAAH,CAAM,IAAoC,CAA9B,CAAY,CAAC,cAAD,SAAkB,IAA6B,CAAjB,CAAC,cAAD,SAAiB,IAA0B,CAArB,cAAc,SAAC,EAAM,IAAG,CAAH,CAA1B,CAA7B,CAAjE;AAEE,yBAAU,MAA6D,GAApD,mDAAF,GAAwD,OAAF;eAFzE;aAFF;WAHF;;AAcJ,YAAG,UAAW,KAAG,EAAjB;AAEE,mBAAU,MACuC,GAA/C,0BADe,GACc,UAAF,GAAe,IAAF,GAAS,OAAF;SAHnD;OAzBF;AAgCA,UAAG,aAAO,aAAa,KAAG,oDAA1B;AAEc,oBAAP,aAAO;AACV,YADU,KACV;AAAU,sBAAa;AACvB,kBAFU,KAEV;AAAO,sBAAa,sCAAY,cAAc,CAAC,mBAAK,KAAM,IAAZ;AAC9C,kBAHU,KAGV,mDAAY,YAAa,sCAAY,cAAc,CAAC,aAAO,gBAAgB,KAAM,IAA9B,CAAnD;AAGF,YAAG,SAAU,KAAG,EAAhB;AAEE,mBAAU,MACkC,GAA1C,sBADe,GACU,SAAF,GAAc,IAAF,GAAS,OAAF;SAH9C;OARF;AAeA,eAAU,uBAAW,QAAC;AAGtB,YAAM,IAAI,CAAC,qBAAD;AAEV,UAAG,aAAO,2BAAV;AAEE,cAAM,IAAI,CAAC,wCAAD;OAFZ;AAKA,UAAG,MAAM,SAAC,EAAM,GAAE,CAAlB;AAEE,iBAAU,MAAO,GAAE,0BAAF;AACjB,iBAAS,QAAkB,OAAb,MAAM,SAAC,EAAM,GAAE,CAAF,kBAA3B;AAAI;AAEF,mBAAU,MAAyB,GAAhB,GAAF,GAAQ,MAAM,KAAC,CAAD,CAAR,GAAc,IAAF;;AAErC,iBAAU,MAAc,GAAL,IAAF,GAAS,OAAF;OAP1B;AAUA,YAAO,eAAP,MAAO;AA9E0B;AAAsB;AAxBb;AAE1C;AACA,6BAAkB,IAAlB;AACA;AACA,sBAAY,+BAA0B,QAAC;AALwB;AAArB;AAQA;AAEjC,eAAT,KAAS;AACT;AAH0C;AAlEjB;;;;;;AAYL,+BAAO,U1IsWjB,+B0ItWiB,CAAP;AAZK;AA0BN;AAuJ+B;AAElD;AACQ,+BAAa,CAAC,wBAAD;AAH6B;AAvJ/B;;;;;;AAOO,uCC+MS,4ED/MT;AACM,6CCiNS,kFDjNT;AACf;AACY,0CA7CF,0CA6CE;AACX;AAXC;AAxNrB,GAsOc,oFAtOd;AEAA,mDAWS,UAXT;;;;AAkG+C;AAE7C,QAAG,CAAI,gEAAiC,UAAQ,0BAAwB,CAAC,sFAAgD,CAAC,UAAD;eAAA,MAAC;AAAD;;QAAjD,CAAxE;AAEE,6CAAyD,eAApC,0CAAoC,QAAC,gFAAD,EAAzD;AACA,sEAAiC,UAAQ,mBAAmB,CAAC,sFAAsC,uBAAvC;KAH9D;AAF6C;AASE;AAE/C,oEAAiC,UAAQ,sBAAsB,CAAC,qFAAD;AAFhB;AA3GjD,mBAgBc;AAoCV,eAAG;AAO+B;AAFiB;;;;;AAEjB;AAuD0B;AAAlB;AACzC;AAD2D;AAE9D,uCAAiD,eAAvC,6CAAuC,QAAC,mEAAD,EAAjD;AADG;AAD2D;AAC3D;AAD2D;AAAlB;AAAkB;AAvD1B;;;;AAQG;;;;AAErC;AAFqC;AA8GqB;AAAb;AAE/C,iBAAU;AAFqC;AAAa;AAgKN;AAAP;AAC5C;AADmD;AAEtD,mBAAU,yCAAoB,YAAW,KAAG,EAAH;AAFa;AACnD;AADmD;AAAP;AAAO;AALS;AAAhB;AAE/C,iBAAU;AAFqC;AAAgB;AAhKT;AAAP;AAE/C,iBAAU;AAFqC;AAAO;AAUA;AAAP;AAG/C,iBAAU;AAHqC;AAAO;AA6IC;AAAR;AAK5C;AALoD;AAMvD,mBAAU,MAAO,GAAE,yCAAoB,YAAtB;AANsC;AAKpD;AALoD;AAAR;AAAQ;AAvIG;AAAX;AAM/C;AAAY;AAAW;AACvB;AAAG;AACA;AARuD;AAS1D,cAAG,WAAY,IAAG,cAAC,kEAAD,CAAlB;AACE,+BAAe;AAEf,mCAAe;AAEZ;AACH,cADG,IACH;AAAW,yBAAc;AACzB,oBAFG,IAEH;AAAW,yBAAc;AACzB,oBAHG,IAGH;AAAa,yBAAc;AAC3B,oBAJG,IAIH,mFAAmB,aAAc,SAAjC;AAGF,cAAG,OAAQ,KAAE,EAAb;AAEE,qBAAU;;AAIV,qBAAU;;AAGZ,sBAAa;AAEb,cAAG,WAAY,KAAG,4EAAlB;AAEE,gBAAW,CAAC,aAAD,SAAgB,IAAyB,CAApB,aAAa,SAAC,EAAM,GAAE,CAAF,CAApD;AAEE,0BAAa;AACX,uBAAS,QAA0B,OAApB,aAAa,SAAC,EAAM,GAAE,CAAF,kBAAnC;AAAI;AACF,4BAAa,SAA+C,GAAnC,eAAF,GAAoB,aAAa,KAAC,CAAD,CAAf,GAAqB,KAAF;;AAChE,0BAAa,SAAU,GAAE,GAAF;aALzB;AAQA,gBAAW,YAAC,UAAD,MAAa,IAAwB,CAAb,WAAC,UAAD,CAAa,GAAE,CAAF,CAAhD;AAEE,0BAAa;AACX,kBAAK;AACL,uBAAY,SAAoB,mBAAC,UAAD,0BAAhC;AAAI;AAEF,oBAAG,CAAE,GAAE,CAAP;AAEE,8BAAa,SAAU,GAAE,KAAF;iBAFzB;AAKA,4BAAa,SAMF,GALT,mBADqB,GACC,QAAF,GACpB,kBADyB,GACJ,QAAF,GACnB,sBADwB,GACC,sCAAY,cAAc,CAAC,UAAU,CAAC,CAAD,CAAG,SAAd,CAA5B,GAAuD,GAAF,GAAQ,QAAF,GAClF,uBADuF,GAC7D,sCAAY,cAAc,CAAC,UAAU,CAAC,CAAD,CAAG,UAAd,CAA5B,GAAwD,EAAF,GAAO,QAAF,GACnF,SADwF,GAC5E,QAAF,GACV,QADe,GACJ,QAAF;AAEX,oBAAK,CAAE,GAAE,CAAF;;AAEX,0BAAa,SAAgB,GAAJ,GAAF,GAAQ,QAAF;aArB/B;AAwBA,gBAAG,SAAU,KAAG,EAAhB;AAEE,0BAAa,SACuE,GAApF,6BADuB,GACS,sBAAS,CAAC,sBAAS,CAAC,mBAAoB,IAArB,CAAV,CAAX,GAAmD,EAAF,GAAO,QAAF;aAHtF;WAlCF;AAyCA,mBAAU,GACO,GADD,QAAF,GACZ,cADiB,GACA,QAAF;AAEjB,cAAG,OAAQ,KAAG,EAAd;AAEE,qBAAU,MAA4C,GAAnC,kBAAF,GAAuB,OAAF,GAAY,GAAF,GAAQ,QAAF;;AAItD,qBAAU,MAMF,GALR,kBADiB,GACI,QAAF,GACnB,kBADwB,GACH,QAAF,GACnB,sBADwB,GACC,sCAAY,cAAc,CAAC,eAAD,CAA5B,GAAgD,GAAF,GAAQ,QAAF,GAC3E,uBADgF,GACtD,sCAAY,cAAc,CAAC,gBAAD,CAA5B,GAAiD,EAAF,GAAO,QAAF,GAC5E,SADiF,GACrE,QAAF,GACV,OADe,GACL,QAAF;;AAGV,mBAAU,MACY,GADH,MAAF,GAAW,QAAF,GACxB,mBAD6B,GACP,QAAF;AAEtB,cAAG,YAAa,KAAG,EAAnB;AAEE,qBAAU,MAAiD,GAAxC,kBAAF,GAAuB,YAAF,GAAiB,GAAF,GAAQ,QAAF;;AAI3D,qBAAU,MAMF,GALR,kBADiB,GACI,QAAF,GACnB,kBADwB,GACH,QAAF,GACnB,sBADwB,GACC,sCAAY,cAAc,CAAC,oBAAD,CAA5B,GAAqD,GAAF,GAAQ,QAAF,GAChF,uBADqF,GAC3D,sCAAY,cAAc,CAAC,qBAAD,CAA5B,GAAsD,EAAF,GAAO,QAAF,GACjF,SADsF,GAC1E,QAAF,GACV,OADe,GACL,QAAF;;AAGV,mBAAU,MACgC,GADvB,MAAF,GAAW,QAAF,GACxB,mBAD6B,GACP,UAAF,GAAe,IAAF,GAAS,QAAF;AAE1C,mBAAU,yCAAoB,uBAAuB,CAAC;;;;eAAQ,iBAAa,yBAAY,cAAe,kBAAjD;AAErD,mBAAU,MAC6E,GAArF,kCADe,GACsB,sBAAS,CAAC,sBAAS,CAAC,cAAe,IAAhB,CAAV,CAAX,GAA8C,GAAF,GAAQ,QAAF;AAEvF,cAAG,gBAAY,KAAE,oEAAjB;AAEE,qBAAU,MAMD,GALP,yBADe,GACa,QAAF,GAC1B,oBAD+B,GACR,sBAAS,CAAC,sBAAS,CAAC,YAAa,IAAd,CAAV,CAAX,GAA4C,GAAF,GAAQ,QAAF,GACrE,uBAD0E,GAChD,sBAAS,CAAC,sBAAS,CAAC,eAAgB,IAAjB,CAAV,CAAX,GAA+C,GAAF,GAAQ,QAAF,GAC3E,4BADgF,GACjD,QAAF,GAE7B,MAFkC,GAEzB,QAAF;WARX;AAWA,mBAAU,MAIJ,GAHJ,qBADe,GACS,MAAF,GAAW,IAAF,GAAS,QAAF,GACtC,wBAD2C,GAChB,QAAF,GACzB,SAD8B,GAE9B,GADU,GACJ,QAAF;AApIoD;AAQvD;AARuD;AAAX;AAAW;AA0JL;AAErD;AACA;AACA;AAAM;AACN;AACA;AACA;AACA;AACA;AAEA;AAAG;AAAI;AAAK;AACZ;AAAK;AAAK;AACV;AAAG;AAAG;AAAG;AACT;AAAI;AACJ;AACG;AAhBkD;AAiBrD,cAAY,yCAAD,QAAX;AAEE,oBAAQ,cAAC,CAAc,gBAAd;AAET,gBAAK,QAAQ;AACb,gBAAY,CAAD,QAAX;AAEE,kBAAG,cAAe,KAAG,EAArB;AAEE,oBAAK,sCAAY,UAAU,CAAC,cAAD;AAC3B,oBAAY,CAAD,QAAX;AAEE;AACE,4BAAQ,UAAC,CAAU,sCAAY,YAAY,CAAC,EAAG,QAAJ,CAAlC;AACT,4BAAQ,gBAAC,CAAgB,sCAAY,YAAY,CAAC,EAAG,eAAJ,CAAxC;AAET,0BAA8C,OAAvC,sCAAY,aAAa,CAAC,EAAG,QAAJ,EAAiB,6BAAH;AAC9C,wBAAY,GAAD,QAAX;AAGE,+BAAS,QAAwC,OAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,kBAAjD;AAAI;AAEF,6BAAM,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEnC,6BAAM,CAAC;AAEP,0BAAE,SAAF,GAAc,sCAAY,YAAY,CAAC,GAAI,aAAL;AAEtC,0BAAE,UAAF,GAAe,sCAAY,oBAAoB,CAAC,GAAI,gBAAL;AAC/C,0BAAE,UAAF,GAAe,qBAAQ,CAAC,0BAAa,CAAC,sCAAY,YAAY,CAAC,GAAI,UAAL,EAAkB,IAAK,GAAI,EAApD,CAAd;AAEvB,6BAAgD,OAA1C,sCAAY,aAAa,CAAC,GAAI,UAAL,EAAoB,8BAAH;AAChD,4BAAY,EAAD,QAAX;AAEE,qEAAY,CAAC,sCAAY,YAAY,CAAC,GAAI,iBAAL,EAAyB,EAAE,aAApD;yBAFd;AAKU,+BAAD,sBAAC,UAAS,CAAV;AACT,+BAAO,CAAC,CAAD,CAAP,GAAc,CAAC;AAEf,8BAA2E,OAApE,sCAAY,aAAa,CAAC,GAAI,oCAAL,EAA8C,6BAAH;AAC3E,4BAAY,GAAD,QAAX;AAEY,iCAAD,sBAAC,UAAS,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAA/C;AAET,mCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,kCAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AACpC,gCAAG,GAAG,YAAC,EAAM,KAAG,EAAhB,EACE,OAAO,CAAC,CAAE,GAAE,CAAL,CAAP,GAAkB,qBAAQ,CAAC,GAAG,YAAC,EAAL,CAD5B;;yBAPJ;AAYA,4BAAS,wDAAH,eAAH,EAAG,CAAN;AAEE,gCAAwB,iEAAf,oEAAF,GAAG,aAAD,CAAe;AACxB,8BAAY,GAAD,QAAX;AAE6C,wFAAvC,OAAH,GAAM,wDAAH,CAA2B,cAAqB,GAAG,SAAZ;2BAF7C;AAKA,gCAAS,oEAAF,GAAG,gBAAD;AACT,8BAAY,GAAD,QAAX;AAEE,kCAAwC,kEAA9B,oEAAH,IAAI,4BAAD,CAA8B;AACxC,oDAAW,CAAC,IAAK;;;;gCAAN;AACP,mCAAH,GAAM,wDAAH,CAA2B,gBAAe,8BAAC,CAA8B,MAA9B;AAE/C,kCAAmC,iEAAzB,oEAAH,IAAI,uBAAD,CAAyB;AACnC,gCAAY,GAAD,QAAX;AAEE,uCAAS,SAAe,QAAV,GAAG,SAAC,EAAM,GAAE,CAAF,qBAAxB;AAAI;AAEF,sCAAW,OAAH,GAAM,wDAAH,CAA2B,gBAAe,uBAAsB;AACxE,4FAAH,IAAkB,4DAAH,gEAAH,IAAI,CAAD,CAAG,CAAf;;6BALP;2BAPF;yBATF;AA+BA,8BAA6C,OAAtC,sCAAY,aAAa,CAAC,GAAI,MAAL,EAAgB,6BAAH;AAC7C,4BAAY,GAAD,QAAX;AAEE,mCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,kCAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEpC,gCAAK,EAAE,MAAK;AAEZ,iCAAM,EAAE,WAAU;AAClB,gCAAS,WAAC,OAAD,CAAU,GAAE,CAArB,EACE,EAAE,gBAAF,GAAqB,OAAO,CAAC,CAAD,CAD9B;AAOA,6BAAC,UAAD,GAAc,sCAAY,oBAAoB,CAAC,IAAK,gBAAN;AAC9C,8BAAE,UAAF,GAAe,CAAC;AAEhB,6BAAC,UAAD,GAAc,qBAAQ,CAAC,0BAAa,CAAC,sCAAY,YAAY,CAAC,IAAK,UAAN,EAAmB,IAAK,GAAI,EAArD,CAAd;AACtB,8BAAE,UAAF,GAAe,CAAC;AAEhB,iCAAiD,OAA3C,sCAAY,aAAa,CAAC,IAAK,UAAN,EAAqB,8BAAH;AACjD,gCAAY,EAAD,QAAX;AAEE,yEAAY,CAAC,sCAAY,YAAY,CAAC,GAAI,iBAAL,EAAyB,CAAC,aAAnD;6BAFd;AAKA,iCAAoD,OAA9C,sCAAY,aAAa,CAAC,IAAK,aAAN,EAAwB,8BAAH;AACpD,gCAAY,EAAD,QAAX;AAEE,mCAA8C,OAAxC,sCAAY,aAAa,CAAC,GAAI,QAAL,EAAkB,8BAAH;AAC9C,kCAAY,EAAD,QAAX;AAEE,iCAAC,aAAY,YAAC,CAAY,sCAAY,mBAAmB,CAAC,GAAI,UAAL,CAA3C;AACd,iCAAC,aAAY,aAAC,CAAa,sCAAY,mBAAmB,CAAC,GAAI,WAAL,CAA5C;+BAHhB;6BAHF;AAUA,iCAAsD,OAAhD,sCAAY,aAAa,CAAC,IAAK,eAAN,EAA0B,8BAAH;AACtD,gCAAY,EAAD,QAAX;AAEE,mCAA8C,OAAxC,sCAAY,aAAa,CAAC,GAAI,QAAL,EAAkB,8BAAH;AAC9C,kCAAY,EAAD,QAAX;AAEE,iCAAC,eAAc,YAAC,CAAY,sCAAY,mBAAmB,CAAC,GAAI,UAAL,CAA3C;AAChB,iCAAC,eAAc,aAAC,CAAa,sCAAY,mBAAmB,CAAC,GAAI,WAAL,CAA5C;+BAHlB;6BAHF;AAUA,kCAA+C,OAAxC,sCAAY,aAAa,CAAC,IAAK,OAAN,EAAkB,6BAAH;AAC/C,gCAAY,GAAD,QAAX;AAEE,uCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,sCAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEpC,uCAAQ,EAAE,OAAM;AAEhB,oCAAI,UAAJ,GAAiB,sCAAY,oBAAoB,CAAC,IAAK,gBAAN;AACjD,oCAAI,UAAJ,GAAiB,qBAAQ,CAAC,0BAAa,CAAC,sCAAY,YAAY,CAAC,IAAK,gBAAN,EAAyB,IAAK,GAAI,EAA3D,CAAd;AAEzB,qCAA8D,OAAxD,sCAAY,aAAa,CAAC,IAAK,uBAAN,EAAkC,8BAAH;AAC9D,oCAAY,EAAD,QAAX;AAEE,sCAAI,cAAJ,GAAqB,sCAAY,YAAY,CAAC,GAAI,cAAL;iCAF/C;AAQA,qCAAiD,OAA3C,sCAAY,aAAa,CAAC,IAAK,UAAN,EAAqB,8BAAH;AACjD,oCAAY,EAAD,QAAX,EACE,2CAAY,CAAC,sCAAY,YAAY,CAAC,GAAI,iBAAL,EAAyB,IAAI,aAAtD,CADd;AAGA,yCAAU,SAA4B,QAAvB,IAAI,aAAY,SAAC,EAAM,GAAE,CAAF,qBAAtC;AAAI;AACF,mCAAC,aAAY,QAAI,OAAO,CAAC,IAAI,aAAY,WAAC,EAAD,CAAjB;;AAE1B,qCAAoD,OAA9C,sCAAY,aAAa,CAAC,IAAK,aAAN,EAAwB,8BAAH;AACpD,oCAAY,EAAD,QAAX;AAEE,uCAA8C,OAAxC,sCAAY,aAAa,CAAC,GAAI,QAAL,EAAkB,8BAAH;AAC9C,sCAAY,EAAD,QAAX;AAEE,wCAAI,aAAY,YAAC,CAAY,sCAAY,mBAAmB,CAAC,GAAI,UAAL,CAA3C;AACjB,wCAAI,aAAY,aAAC,CAAa,sCAAY,mBAAmB,CAAC,GAAI,WAAL,CAA5C;mCAHnB;iCAHF;AAUA,qCAAsD,OAAhD,sCAAY,aAAa,CAAC,IAAK,eAAN,EAA0B,8BAAH;AACtD,oCAAY,EAAD,QAAX;AAEE,uCAA8C,OAAxC,sCAAY,aAAa,CAAC,GAAI,QAAL,EAAkB,8BAAH;AAC9C,sCAAY,EAAD,QAAX;AAEE,wCAAI,eAAc,YAAC,CAAY,sCAAY,mBAAmB,CAAC,GAAI,UAAL,CAA3C;AACnB,wCAAI,eAAc,aAAC,CAAa,sCAAY,mBAAmB,CAAC,GAAI,WAAL,CAA5C;mCAHrB;iCAHF;AAUA,wCAAS,CAAC,OAAM;AAChB,qCAAK,OAAO,CAAC,IAAD;;6BAlDhB;;yBAnDJ;;qBApEJ;AALF;AAsLE,qBAAE,eAAF,CAAE;AAtLJ;iBAFF;eAHF;aAFF;WALF;AAjBqD;AAgBlD;AAhBkD;;AA/NK;AAG1D;AAEA,iBAAU,uBAAW,QAAC;AAItB,cAAM,IAAI,CAAC,uBAAD;AACV,cAAM,IAAI,CAAC,iBAAD;AAEV,cAAM,IAAI,CAAC,iCAAD;AACV,cAAM,IAAI,CAAC,oBAAD;AAEV,cAAM,IAAI,CAAC,oBAAD;AACV,cAAM,IAAI,CAAC,uBAAD;AACV,cAAM,IAAI,CAAC,2CAAD;AACV,cAAM,IAAI,CAAC,4BAAD;AACV,cAAM,IAAI,CAAC,sBAAD;AAEV,cAAM,IAAI,CAAC,sCAAD;AACV,cAAM,IAAI,CAAC,2BAAD;AACV,cAAM,IAAI,CAAC,yBAAD;AACV,cAAM,IAAI,CAAC,kCAAD;AACV,cAAM,IAAI,CAAC,kCAAD;AACV,cAAM,IAAI,CAAC,4CAAD;AACV,cAAM,IAAI,CAAC,iCAAD;AACV,cAAM,IAAI,CAAC,+BAAD;AAEV,cAAM,IAAI,CAAC,sDAAD;AAIV,gBAAQ,MAAI,CAAC,2DAA6B,QAAC,YAAM,CAAC,mBAAoB,MAAM,aAAC,EAA5B,CAAN,CAA/B;AACZ,cAAO,eAAP,MAAO;AAnCmD;AAgDO;AAC9D;AAD8D;AAEjE,iCAAiB,kBAAkB,CAAC,sFAAD;AAF8B;AAC9D;AAD8D;;AAVT;AAExD;AAFyD;AAAD;AAKA;AAExD;AAFwD;AA/FjB;;;;AA6BvC;AAhFY;AAhBd,GAgBc,sOAhBd;ACAA,2CAWS,UAXT;;;;AAoJuC;AAErC,QAAG,CAAI,gEAAiC,UAAQ,0BAAwB,CAAC,8EAAwC,CAAC,UAAD;eAAA,MAAC;AAAD;;QAAzC,CAAxE;AAEE,6CAAiD,eAA5B,kCAA4B,QAAC,wEAAD,EAAjD;AACA,sEAAiC,UAAQ,mBAAmB,CAAC,8EAA8B,uBAA/B;KAH9D;AAFqC;AASE;AAEvC,oEAAiC,UAAQ,sBAAsB,CAAC,6EAAD;AAFxB;AA7JzC,mBAgBc;AAwCgB;AAFiB;;;;;AAEjB;AA4G0B;AAAlB;AACjC;AADmD;AAEtD,uCAAyC,eAA/B,qCAA+B,QAAC,mEAAD,EAAzC;AADG;AADmD;AACnD;AADmD;AAAlB;AAAkB;AA5G1B;;;;AAMd,uDAAQ,EAAR;AAAD,4BACK,GAAI,CAAC,EAAG,CAAC,EAAG,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,CAAC,EAAG,CAAC,EAAG,CAAC,EAAG,CAAC,EAAG,CAAC,EAAG,CAAC,EAAG,CAAC,EAC7E,EAAG,EAAG,EAAG,EAAG,EAAG,EAAG,EAAG,EAAG,EAAG,EAAG,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAC1E,GAAI,GAAI,GAAI,GAAI,CAAC,EAAG,CAAC,EAAG,CAAC,EAAG,CAAC,EAAG,GAAI,CAAC,EAAG,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAC5E,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,GAAI,EAJjE;AAwDkB;AA7CmB;;AAII,8EAJJ,0EAII;AAGT;AAoiBqB;AAAP;AAE3D;AAEA,iBAAU;AACV,iBAAY,wEAAgE,2FAA5E;AAAI;AAEF,cAAG,KAAM,KAAU,CAAnB;AAEE,qBAAU;AACV;WAHF;;AAPyD;AAAO;AApiBrB;AAKL;;;AAEtC;AAAY;AAF0B;AAwhBqB;AAE7D,0BAAc,UAAK,CAAC,QAAK,CAAC,GAAI,SAAL,CAAN;AAF0C;AA9EJ;AAEzD,yBAAY,CAAC,SAAD;AAFkE;AAArB;AAmBiB;AAApB;AAGtD;AAAO;AAAO;AAEd,gBAAS;AACT,gBAAS;AAET,eAAM,SAAI,GAAS,GAAD,OAAlB;AAEE,kBAAS,eAAU,CAAC,GAAG,QAA6B,CAA5B,SAA4B,GAAE,CAAF,KAA7B,CAAJ;AACnB,cAAG,KAAM,GAAE,CAAX;AAEE,qBAAU;AACV;WAHF;AAjewD,aAuexD,KAvewD,GAuexD,SAAG,CAAH;AACA,kBAAS,KAAM,GAAmB,CAAT,CAAN,KAAM,GAAI,IAAJ,CAAS,IAAI,KAAJ,CAAnB;AACf,cAAU,CAAN,KAAM,GAAI,IAAJ,CAAS,KAAE,CAArB;AAEE,oBAAO,KAAP;AACA,qBAAU;AACV;WAGA,MAAI,KAAJ,IAAW;;AAGf,YAAG,KAAM,GAAE,CAAX;AAEE,mBAAU;AACV;SAHF;AAMA,iBAAU;AAnC4C;AAAoB;AAdV;AAAV;AAEtD;AAEA,cAAW,SAAD,aAAY,GAAE,EAAF;AACtB,YAAQ,CAAJ,GAAI,GAAE,CAAF,CAAK,IAAQ,CAAJ,GAAI,GAAE,EAAF,CAArB;AAEE,mBAAU,CAAC;AACX;SAHF;AAMA,iBAAU,oBAAc,CAAC,GAAD;AAX8B;AAAU;AAoDL;AAAX;AAGhD;AAEA,YAAG,CAAI,gCAAoB,CAAC,IAAK,IAAK;;;;YAAX,CAA3B;AAEE,mBAAU;AACV;SAHF;AAMA,YAAU,CAAN,KAAM,GAAI,CAAJ,CAAO,KAAG,CAApB,EACE,QAAS,CAAI,KADf;AAGA,gBAAe,UAAN,KAAM,GAAO,CAAF,CAAE,IAAI,CAAJ,CAAP;AACX,sBAAJ,IAAe;AACf,cAAK,cAAU,GAAE,eAAjB;AAEA,iBAAU;AAlBsC;AAAW;AAngBnB;AAYF;;;AAEpC;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAToC;;;;;;;AAwY+B;AAErE;AAEA,YAAG,CAAK,8CAAwC,qBAAqB,CAAC,IAAK,IAAK;;;;YAAX,CAArE,EACE,MADF;AAGA,YAAG,KAAM,KAAG,CAAZ,EACE,MADF;AAGA,YAAG,CAAK,8CAAwC,qBAAqB,CAAC,IAAK;;;;aAAO;;;;YAAb,CAArE,EACE,MADF;AAGA,cAAK,KAAL;AAbqE;AAXV;AAE3D;AAAI;AAEJ,mCAAsB,CAAC,aAAS;;;;aAAO;;;;YAAjB;AACtB,yBAAa,MAAO,GAAI,EAAJ;AACpB,iBAAU,MAAO,KAAI,CAAJ;AACjB,aAAO,MAAO,GAAI,CAAJ;AACd,8BAAkB,mDAA6C,QAAQ,CAAC,EAAD;AARZ;AA2BJ;AAAT;AAE9C,YAAG,UAAM,KAAS,YAAD,OAAjB;AAEE,mBAAU;AACV;SAHF;AAMA,YAAG,CAAI,iBAAY,YAAY,CAAC,aAAS;;;;aAAO,GAAjB,CAA/B,EACE,MAAM,sBAAS,QAAC,YAAM,CAAC,kBAAD,CAAN,CADlB;AAGA,YAAG,CAAI,iBAAY,YAAY,CAAC,aAAS;;;;aAAO,GAAjB,CAA/B,EACE,MAAM,sBAAS,QAAC,YAAM,CAAC,kBAAD,CAAN,CADlB;AAGA,YAAG,wBAAH;AAEE,cAAG,CAAI,eAAU,YAAY,CAAC,aAAS;;;;eAAO,CAAjB,CAA7B,EACE,MAAM,sBAAS,QAAC,YAAM,CAAC,kBAAD,CAAN,CADlB;SAFF;AAMA,iBAAU;AApBoC;AAAS;AA+BQ;AAAjB;AAE9C,iBAAU,mBAAe,KAAG,iEAAH;AAFqB;AAAiB;AAhGR;AAEvD,uBAAW;AACX,qBAAS;AACT;AACA,4BAAgB,8CAAwC,QAAC,YAAM,CAAC,cAAD,CAAN;AACzD,4BAAgB,8CAAwC,QAAC,YAAM,CAAC,cAAD,CAAN;AACzD,0BAAc,8CAAwC,QAAC,YAAM,CAAC,sBAAD,CAAN;AAPmB;AAAnB;AAwFA;AAE1C,iBAAb,KAAa;AACA,iBAAb,KAAa;AACF,iBAAX,KAAW;AACX;AALuD;AA9EG;AAAN;AAGpD;AACA;AACA;AAAK;AAAK;AAEV,YAAG,QAAS,KAAE,EAAd,EACE,aADF;AAGA,YAAK,4CAAsC,QAAC,YAAM,CAAC,QAAD,CAAN;AAC5C;AACE,gBAAO;AACP,gBAAO;AACP,cAAK;AACL,iBAAM,CAAC,UAAU,CAAC;;;;eAAK;;;;eAAK;;;;cAAX,CAAjB;AAEY,aAAD,sBAAC,+DAAS,WAAC,CAAD,CAAI,GAAE,CAAhB;AACT,aAAC,CAAO,WAAC,CAAD,CAAI,GAAE,CAAb,UAAmB,oDAAgB,CAAC,IAAK,GAAN,CAAnC;;AAGH,mBAAU;AAVZ;AAaE,WAAE,eAAF,CAAE;AAbJ;AAXoD;AAAM;AAjWpB;AAqBP;;;AAE7B;AAF6B;AA6EqB;AAAb;AAEvC,iBAAU;AAF6B;AAAa;AA8FN;AAAP;AACpC;AAD2C;AAE9C,mBAAU,yCAAoB,YAAW,KAAG,EAAH;AAFK;AAC3C;AAD2C;AAAP;AAAO;AALS;AAAhB;AAEvC,iBAAU;AAF6B;AAAgB;AA9FT;AAAP;AAEvC,iBAAU;AAF6B;AAAO;AAUA;AAAP;AAGvC,iBAAU;AAH6B;AAAO;AAeC;AAAR;AAMvC;AAAY;AAAW;AACvB;AACG;AAR4C;AAS/C,cAAG,aAAH;AACE,2BAAgB;AAEhB,+BAAgB;AAElB,cAAG,WAAY,IAAG,cAAC,4EAAD,CAAlB;AACE,+BAAe;AAEf,mCAAe;AAEZ;AACH,cADG,IACH;AAAW,yBAAc;AACzB,oBAFG,IAEH;AAAW,yBAAc;AACzB,oBAHG,IAGH;AAAa,yBAAc;AAC3B,oBAJG,IAIH,yEAAS,aAAc,OAAvB;AAGF,oBAAW,sCAAY,cAAc,CAAC,eAAD,CAAwB,GAAJ,GAAF,GAAQ,sCAAY,cAAc,CAAC,gBAAD,CAA5B;AAC7D,yBAAgB,sCAAY,cAAc,CAAC,oBAAD,CAA6B,GAAJ,GAAF,GAAQ,sCAAY,cAAc,CAAC,qBAAD,CAA5B;AAEvE,sBAAa;AAEb,cAAW,YAAC,UAAD,MAAa,IAAwB,CAAb,WAAC,UAAD,CAAa,GAAE,CAAF,CAAhD;AAEE,qBAAS,QAAyB,OAAb,WAAC,UAAD,CAAa,GAAE,CAAF,kBAAlC;AAAI;AACF,0BAAa,SAA+E,GAAnE,OAAF,GAAY,sCAAY,cAAc,CAAC,UAAU,CAAC,CAAD,CAAG,SAAd,CAA5B,GAAuD,GAAF,GAAQ,sCAAY,cAAc,CAAC,UAAU,CAAC,CAAD,CAAG,UAAd,CAA5B;;WAHhG;AAMA,mBAAU,SAMW,GANC,yCAAoB,YAAtB,GAChB,iBAAF,GAAsB,UAAF,GAClB,UAAF,GAAe,OAAF,GACX,eAAF,GAAoB,YAAF,GAChB,+CAAF,GACE,SAAF,GACE,gBAAF,GAAqB,YAAF;AAErB,cAAG,OAAQ,KAAG,EAAd,EACE,SAAU,MAAkB,GAAT,QAAF,GAAa,OADhC;AAGA,cAAG,WAAY,KAAE,kEAAjB;AAEE,qBAAU,yCAAoB,gBAAgB,CAAC;;;;iBAAQ,WAAT;;AAI9C,qBAAU,MAAO,GAAE,mBAAF;AAEjB,gBAAG,WAAY,IAAG,cAAlB;AAEE,uBAAU,MAAO,GAAE,mBAAF;AAEjB,kBAAG,WAAH,EACE,SAAU,MAAO,GAAE,WADrB;AAGA,kBAAG,cAAH,EACE,SAAU,MAAO,GAAE,yBADrB;aAPF;;AAxD6C;AAQ5C;AAR4C;AAAR;AAAQ;AATG;AAAX;AAMvC,iBAAU;AAN6B;AAAW;AAwFL;AAE7C;AACA;AACA;AACA;AAAM;AAEN;AAAG;AAAI;AAAK;AACZ;AAAK;AAAK;AACV;AAAG;AAAG;AACN;AACA;AAAI;AAAK;AACT;AACA;AACA;AACG;AAf0C;AAgB7C,cAAY,yCAAD,QAAX;AAEE,oBAAQ,cAAC,CAAc,gBAAd;AAET,gBAAK,QAAQ;AACb,gBAAY,CAAD,QAAX;AAEE,kBAAG,cAAe,KAAG,EAArB;AAEE,oBAAK,sCAAY,UAAU,CAAC,cAAD;AAC3B,oBAAY,CAAD,QAAX;AAEE;AACE,4BAAQ,UAAC,CAAU,sCAAY,YAAY,CAAC,EAAG,QAAJ,CAAlC;AACT,4BAAQ,gBAAC,CAAgB,sCAAY,YAAY,CAAC,EAAG,OAAJ,CAAxC;AAET,wBAAG,QAAQ,QAAQ,KAAE,EAArB,EACE,QAAQ,UAAC,CAAU,sCAAY,YAAY,CAAC,EAAG,MAAJ,CAAkB,GAAJ,GAAF,GAAQ,sCAAY,YAAY,CAAC,EAAG,SAAJ,CAA9E,CADX;AAGA,wBAAG,QAAQ,cAAc,KAAE,EAA3B,EACE,QAAQ,gBAAC,CAAgB,sCAAY,YAAY,CAAC,EAAG,SAAJ,CAAxC,CADX;AAGA,0BAA8C,OAAvC,sCAAY,aAAa,CAAC,EAAG,QAAJ,EAAiB,6BAAH;AAC9C,wBAAY,GAAD,QAAX;AAEE,+BAAS,QAAwC,OAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,kBAAjD;AAAI;AAEF,6BAAM,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEnC,6BAAM,CAAC;AACP,0BAAE,SAAF,GAAc,QAAS,GAAE,qBAAQ,CAAC,CAAD,CAAV;AAEvB,8BAAiD,OAA1C,sCAAY,aAAa,CAAC,GAAI,UAAL,EAAoB,6BAAH;AACjD,4BAAY,GAAD,QAAX;AAEE,mCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,gCAAK,EAAE,MAAK;AAEZ,kCAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEpC,kCAAiD,OAA1C,sCAAY,aAAa,CAAC,IAAK,SAAN,EAAoB,8BAAH;AACjD,gCAAY,GAAD,QAAX;AAEE,mCAA8C,OAAxC,sCAAY,aAAa,CAAC,IAAK,OAAN,EAAkB,8BAAH;AAC9C,kCAAY,EAAD,QAAX;AAEE,qCAAgD,OAA1C,sCAAY,aAAa,CAAC,GAAI,UAAL,EAAoB,8BAAH;AAChD,oCAAY,EAAD,QAAX;AAEE,mCAAC,aAAY,YAAC,CAAY,sCAAY,mBAAmB,CAAC,GAAI,KAAL,CAA3C;AACd,mCAAC,aAAY,aAAC,CAAa,sCAAY,mBAAmB,CAAC,GAAI,KAAL,CAA5C;iCAHhB;+BAHF;6BAHF;AAcA,kCAAmD,OAA5C,sCAAY,aAAa,CAAC,IAAK,WAAN,EAAsB,8BAAH;AACnD,gCAAY,GAAD,QAAX;AAEE,mCAA8C,OAAxC,sCAAY,aAAa,CAAC,IAAK,OAAN,EAAkB,8BAAH;AAC9C,kCAAY,EAAD,QAAX;AAEE,qCAAgD,OAA1C,sCAAY,aAAa,CAAC,GAAI,UAAL,EAAoB,8BAAH;AAChD,oCAAY,EAAD,QAAX;AAEE,mCAAC,eAAc,YAAC,CAAY,sCAAY,mBAAmB,CAAC,GAAI,KAAL,CAA3C;AAChB,mCAAC,eAAc,aAAC,CAAa,sCAAY,mBAAmB,CAAC,GAAI,KAAL,CAA5C;iCAHlB;+BAHF;6BAHF;AAcA,sCAAW,sCAAY,YAAY,CAAC,IAAK,UAAN;AACnC,oCAAS,4CAAsC,OAAO,CAAC,OAAD;AAEtD,qCAAS,SAAmB,QAAR,WAAC,KAAD,CAAQ,GAAE,CAAF,qBAA5B;AAAI;AAEF,mCAAM,EAAE,aAAY;AACpB,gCAAE,YAAC,CAAY,KAAK,CAAC,CAAD,CAAG,SAApB;AACH,gCAAE,aAAC,CAAa,KAAK,CAAC,CAAD,CAAG,UAArB;AACH,+BAAC,aAAY,QAAI,OAAO,CAAC,EAAD;;AAG1B,kCAAiD,OAA1C,sCAAY,aAAa,CAAC,IAAK,SAAN,EAAoB,6BAAH;AACjD,gCAAY,GAAD,QAAX;AAEE,uCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,sCAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEpC,uCAAQ,EAAE,OAAM;AAEhB,yCAAU,sCAAY,oBAAoB,CAAC,IAAK,QAAN;AAC1C,oCAAyB,CAArB,EAAE,aAAY,SAAC,EAAM,GAAE,MAAF,CAAU,IAAY,CAAP,MAAO,IAAG,CAAH,CAA/C;AAEE,sCAAI,eAAc,YAAC,CAAY,EAAE,aAAY,WAAC,MAAD,CAAQ,YAAC,EAAnC;AACnB,sCAAI,eAAc,aAAC,CAAa,EAAE,aAAY,WAAC,MAAD,CAAQ,aAAC,EAApC;iCAHrB;AAMA,oCAAI,cAAJ,GAAqB,sCAAY,YAAY,CAAC,IAAK,aAAN;AAC7C,oCAAI,UAAJ,GAAiB,sCAAY,oBAAoB,CAAC,IAAK,QAAN;AACjD,oCAAI,UAAJ,GAAiB,sCAAY,oBAAoB,CAAC,IAAK,UAAN;AAEjD,wCAAS,CAAC,OAAM;AAChB,qCAAK,OAAO,CAAC,IAAD;;6BApBhB;AAwBA,iCAAgD,OAA1C,sCAAY,aAAa,CAAC,IAAK,SAAN,EAAoB,8BAAH;AAChD,gCAAY,EAAD,QAAX;AAEE,+BAAC,UAAD,GAAc,sCAAY,oBAAoB,CAAC,GAAI,QAAL;AAC9C,gCAAE,UAAF,GAAe,EAAE,UAAU,GAAE,CAAC,UAAH;AAC3B,+BAAC,UAAD,GAAc,sCAAY,oBAAoB,CAAC,GAAI,UAAL;AAC9C,gCAAE,UAAF,GAAe,EAAE,UAAU,GAAE,CAAC,UAAH;6BAL7B;;yBA3EJ;;qBAVJ;AAXF;AA4GE,qBAAE,eAAF,CAAE;AA5GJ;iBAFF;eAHF;aAFF;WALF;AAhB6C;AAe1C;AAf0C;;AA7HK;;AAgBO;AACtD;AADsD;AAEzD,iCAAiB,kBAAkB,CAAC,sFAAD;AAFsB;AACtD;AADsD;;AAVT;AAEhD;AAFiD;AAAD;AAKA;AAEhD;AAFgD;AA9DjB;;;;AA4B/B;AAlIY;AAhBd,GAgBc,0MAhBd;ACAA,2CAWS,UAXT;;;;AA8FuC;AAErC,QAAG,CAAI,gEAAiC,UAAQ,0BAAwB,CAAC,8EAAwC,CAAC,UAAD;eAAA,MAAC;AAAD;;QAAzC,CAAxE;AAEE,6CAAiD,eAA5B,kCAA4B,QAAC,wEAAD,EAAjD;AACA,sEAAiC,UAAQ,mBAAmB,CAAC,8EAA8B,uBAA/B;KAH9D;AAFqC;AASE;AAEvC,oEAAiC,UAAQ,sBAAsB,CAAC,6EAAD;AAFxB;AAvGzC,mBAgBc;AAwCgB;AAFiB;;;;;AAEjB;AAsD0B;AAAlB;AACjC;AADmD;AAEtD,uCAAyC,eAA/B,qCAA+B,QAAC,mEAAD,EAAzC;AADG;AADmD;AACnD;AADmD;AAAlB;AAAkB;AAtD1B;;;;AAQG;;;;AAE7B;AAF6B;AA6EqB;AAAb;AAEvC,iBAAU;AAF6B;AAAa;AAsFN;AAAP;AACpC;AAD2C;AAE9C,mBAAU,yCAAoB,YAAW,KAAG,EAAH;AAFK;AAC3C;AAD2C;AAAP;AAAO;AALS;AAAhB;AAEvC,iBAAU;AAF6B;AAAgB;AAtFT;AAAP;AAEvC,iBAAU;AAF6B;AAAO;AAUA;AAAP;AAGvC;AAGA,YAAG,WAAY,IAAG,cAAC,uEAAa,kEAAd,CAAlB;AACE,6BAAe;AAEf,iCAAe;AAEZ;AACH,YADG,IACH;AAAW,uBAAc;AACzB,kBAFG,IAEH;AAAW,uBAAc;AACzB,kBAHG,IAGH,mFAAmB,aAAc,SAAjC;AAGF,iBAAU,kBAAgC,GAAX,UAAF,GAAe,GAAF;AAjBH;AAAO;AA6BC;AAAR;AAMvC;AAAW;AACX;AACG;AAR4C;AAS/C,cAAG,aAAH;AACE,2BAAgB;AAEhB,+BAAgB;AAElB,cAAG,WAAY,IAAG,cAAC,uEAAa,kEAAd,CAAlB;AACE,+BAAe;AAEf,mCAAe;AAEjB,cAAG,OAAQ,KAAE,EAAb,EACE,UAAW,sCAAY,cAAc,CAAC,eAAD,CAAwB,GAAJ,GAAF,GAAQ,sCAAY,cAAc,CAAC,gBAAD,CAD3F;AAEA,cAAG,YAAa,KAAE,EAAlB,EACE,eAAgB,sCAAY,cAAc,CAAC,oBAAD,CAA6B,GAAJ,GAAF,GAAQ,sCAAY,cAAc,CAAC,qBAAD,CADrG;AAGA,cAAW,YAAC,UAAD,MAAa,IAAwB,CAAb,WAAC,UAAD,CAAa,GAAE,CAAF,CAAhD;AAEE,qBAAS,QAAyB,OAAb,WAAC,UAAD,CAAa,GAAE,CAAF,kBAAlC;AAAI;AACF,0BAAa,SAA0G,GAA9F,YAAF,GAAiB,qBAAQ,CAAC,CAAC,GAAC,CAAH,CAAV,GAAkB,GAAF,GAAQ,sCAAY,cAAc,CAAC,UAAU,CAAC,CAAD,CAAG,SAAd,CAA5B,GAAuD,GAAF,GAAQ,sCAAY,cAAc,CAAC,UAAU,CAAC,CAAD,CAAG,UAAd,CAA5B;;AACzH,wBAAa,cAA2F,GAA1E,OAAF,GAAY,SAAF,GAAc,YAAF,GAAiB,qBAAQ,CAAO,WAAC,UAAD,CAAY,GAAC,CAApB,CAAV,GAAmC,GAAF,GAAQ,YAAF;WAGxG,kBAAa,cAA0C,GAAzB,OAAF,GAAY,cAAF,GAAmB,YAAF;AAEzD,mBAAU,MAKF,GALW,yCAAoB,YAAtB,GACf,SAAF,GACE,qBAAF,GAA0B,+CAAW,CAAC,kBAAD,CAAb,GACtB,4BAAF,GACE,gBAAF,GAAqB,YAAF,GACjB,KAAF,GAAU,OAAF;AAER,cAAG,gBAAY,KAAE,4EAAjB,EACE,SAAU,MAAO,GAAE,yCADrB;AAGA,cAAG,WAAH,EACE,SAAU,MAAO,GAAE,cADrB;AA3C+C;AAQ5C;AAR4C;AAAR;AAAQ;AATG;AAAX;AAMvC,iBAAU;AAN6B;AAAW;AAkEL;AAE7C;AACA;AACA;AACA;AACA;AACA;AAAM;AAEN;AAAG;AAAI;AAAK;AAAK;AACjB;AAAK;AAAK;AAAK;AAAK;AACpB;AAAG;AAAG;AAAG;AACT;AAAI;AACJ;AACA;AAAM;AACN;AAAS;AACT;AACG;AAjB0C;AAkB7C,cAAY,yCAAD,QAAX;AAEE,oBAAQ,cAAC,CAAc,gBAAd;AAET,gBAAK,QAAQ;AACb,gBAAY,CAAD,QAAX;AAEE,kBAAG,cAAe,KAAG,EAArB;AAEE,oBAAK,sCAAY,UAAU,CAAC,cAAD;AAC3B,oBAAY,CAAD,QAAX;AAEE;AACE,4BAAQ,UAAC,CAAU,sCAAY,YAAY,CAAC,EAAG,YAAJ,CAAlC;AACT,4BAAQ,gBAAC,CAAgB,sCAAY,YAAY,CAAC,EAAG,mBAAJ,CAAxC;AAET,0BAAoD,OAA7C,sCAAY,aAAa,CAAC,EAAG,cAAJ,EAAuB,6BAAH;AACpD,wBAAY,GAAD,QAAX;AAEE,+BAAS,QAAwC,OAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,kBAAjD;AAAI;AAEF,6BAAM,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEnC,8BAAkD,OAA3C,sCAAY,aAAa,CAAC,GAAI,WAAL,EAAqB,6BAAH;AAClD,4BAAY,GAAD,QAAX;AAEE,mCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,iCAAM,CAAC;AACP,8BAAE,SAAF,GAAc,QAAS,GAAE,qBAAQ,CAAC,CAAD,CAAV;AAEvB,kCAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEpC,uCAAY,sCAAY,YAAY,CAAC,IAAK,gBAAN;AACpC,gCAAG,QAAS,KAAG,EAAf,EACE,EAAE,UAAF,GAAe,sCAAY,cAAc,CAAC,0BAAa,CAAC,SAAU,IAAK,IAAK,EAArB,CAAd,CAAwC,GAAE,IADrF;AAEA,8BAAE,UAAF,GAAe,sCAAY,oBAAoB,CAAC,IAAK,gBAAN;AAE/C,iCAAkD,OAA5C,sCAAY,aAAa,CAAC,IAAK,WAAN,EAAsB,8BAAH;AAClD,gCAAY,EAAD,QAAX;AAEE,mCAA4C,OAAtC,sCAAY,aAAa,CAAC,GAAI,MAAL,EAAgB,8BAAH;AAE5C,oCAAoD,OAA7C,sCAAY,aAAa,CAAC,GAAI,aAAL,EAAuB,6BAAH;AACpD,kCAAY,GAAD,QAAX;AAEE,yCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,wCAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEpC,uCAAM,EAAE,aAAY;AACpB,wCAAO,uBAAW,QAAC;AACnB,qCAAG,aAAC,CAAa,GAAb;AACJ,4CAAW,0BAAa,CAAC,GAAG,YAAW,IAAK,MAAO,cAAC,4CAAD,CAA3B;AACxB,4CAAW,0BAAa,CAAC,QAAS,IAAK,IAAK,cAAC,4CAAD,CAApB;AACxB,4CAAW,0BAAa,CAAC,QAAS,IAAK,IAAK,cAAC,4CAAD,CAApB;AACxB,wEAAY,MAAM,CAAC,IAAK,QAAS,IrElEqE,KqEkEpF;AAClB,oCAAE,YAAC,CAAY,sCAAY,cAAc,CAAC,GAAG,KAAC,CAAD,CAAJ,CAAtC;AACH,oCAAE,aAAC,CAAa,sCAAY,cAAc,CAAC,GAAG,KAAC,CAAD,CAAJ,CAAvC;AACH,qCAAI,eAAJ,GAAI;;+BAfR;6BALF;AAyBA,kCAAmD,OAA5C,sCAAY,aAAa,CAAC,IAAK,WAAN,EAAsB,6BAAH;AACnD,gCAAY,GAAD,QAAX;AAEE,uCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,qCAAM,EAAE,MAAK;AAEb,sCAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEpC,sCAAO,sCAAY,aAAa,CAAC,IAAK,aAAN;AAChC,oCAAY,GAAD,QAAX;AAEE,wCAAqD,OAA9C,sCAAY,aAAa,CAAC,IAAK,aAAN,EAAwB,6BAAH;AACrD,sCAAY,GAAD,QAAX;AAEE,0CAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AACpC,sCAAE,eAAc,YAAC,CAAY,sCAAY,cAAc,CAAC,GAAG,WAAJ,CAAtC;AACjB,0CAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AACpC,sCAAE,eAAc,aAAC,CAAa,sCAAY,cAAc,CAAC,GAAG,WAAJ,CAAvC;mCALnB;iCAHF;AAYA,sCAAO,sCAAY,aAAa,CAAC,IAAK,WAAN;AAChC,oCAAY,GAAD,QAAX;AAEE,wCAAqD,OAA9C,sCAAY,aAAa,CAAC,IAAK,aAAN,EAAwB,6BAAH;AACrD,sCAAY,GAAD,QAAX;AAEE,0CAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AACpC,sCAAE,aAAY,YAAC,CAAY,sCAAY,cAAc,CAAC,GAAG,WAAJ,CAAtC;AACf,0CAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AACpC,sCAAE,aAAY,aAAC,CAAa,sCAAY,cAAc,CAAC,GAAG,WAAJ,CAAvC;mCALjB;iCAHF;AAYA,kCAAE,SAAF,GAAc,sCAAY,YAAY,CAAC,IAAK,aAAN;AAEtC,sCAAsD,OAA/C,sCAAY,aAAa,CAAC,IAAK,cAAN,EAAyB,6BAAH;AACtD,oCAAY,GAAD,QAAX;AAEE,2CAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,0CAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AACpC,0CAAO,sCAAY,aAAa,CAAC,IAAK,eAAN;AAChC,2CAAQ,CAAC;AACT,wCAAY,GAAD,QAAX,EACE,OAAQ,sCAAY,oBAAoB,CAAC,IAAK,gBAAN,CAD1C;AAGA,0CAAO,sCAAY,aAAa,CAAC,IAAK,aAAN;AAChC,2CAAQ,CAAC;AACT,wCAAY,GAAD,QAAX,EACE,OAAQ,sCAAY,oBAAoB,CAAC,IAAK,gBAAN,CAD1C;AAGA,6CAAU,YAAQ,iCAAlB;AAAI;AAEF,0CAAO,CAAH,EAAG,IAAG,CAAH,CAAM,IAAQ,CAAH,EAAG,IAAwB,CAArB,EAAE,aAAY,SAAC,EAAM,GAAE,CAAF,CAAxB,CAArB,EACE,EAAE,aAAY,QAAI,OAAO,CAAC,EAAE,aAAY,WAAC,EAAD,CAAf,CAD3B;;;iCAjBN;AAuBA,sCAAwD,OAAjD,sCAAY,aAAa,CAAC,IAAK,gBAAN,EAA2B,6BAAH;AACxD,oCAAY,GAAD,QAAX;AAEE,2CAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,0CAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEpC,2CAAQ,EAAE,OAAM;AAEhB,+CAAY,sCAAY,YAAY,CAAC,IAAK,gBAAN;AACpC,wCAAG,QAAS,KAAG,EAAf,EACE,IAAI,UAAJ,GAAiB,UAAK,CAAC,sCAAY,cAAc,CAAC,0BAAa,CAAC,SAAU,IAAK,IAAK,EAArB,CAAd,CAAwC,GAAE,IAArE,CADxB;AAEA,wCAAI,UAAJ,GAAiB,sCAAY,oBAAoB,CAAC,IAAK,gBAAN;AAEjD,sCAAE,UAAF,GAAe,EAAE,UAAU,GAAE,IAAI,UAAN;AAC3B,sCAAE,UAAF,GAAe,EAAE,UAAU,GAAE,IAAI,UAAN;AAE3B,yCAAoD,OAA9C,sCAAY,aAAa,CAAC,IAAK,aAAN,EAAwB,8BAAH;AACpD,wCAAY,EAAD,QAAX,EACE,IAAI,cAAJ,GAAqB,sCAAY,YAAY,CAAC,GAAI,MAAL,CAD/C;AAGA,yCAAsD,OAAhD,sCAAY,aAAa,CAAC,IAAK,eAAN,EAA0B,8BAAH;AACtD,wCAAY,EAAD,QAAX;AAEE,4CAAoD,OAA7C,sCAAY,aAAa,CAAC,GAAI,aAAL,EAAuB,6BAAH;AACpD,0CAAY,GAAD,QAAX;AAEE,8CAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AACpC,4CAAI,eAAc,YAAC,CAAY,sCAAY,cAAc,CAAC,GAAG,WAAJ,CAAtC;AACnB,8CAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AACpC,4CAAI,eAAc,aAAC,CAAa,sCAAY,cAAc,CAAC,GAAG,WAAJ,CAAvC;uCALrB;qCAHF;AAWA,4CAAS,EAAE,OAAM;AACjB,yCAAK,OAAO,CAAC,IAAD;;iCAjChB;;6BA7DJ;;yBAzCJ;;qBAPJ;AALF;AA6JE,qBAAE,eAAF,CAAE;AA7JJ;iBAFF;eAHF;aAFF;WALF;AAlB6C;AAiB1C;AAjB0C;;AArHK;;AAgBO;AACtD;AADsD;AAEzD,iCAAiB,kBAAkB,CAAC,sFAAD;AAFsB;AACtD;AADsD;;AAVT;AAEhD;AAFiD;AAAD;AAKA;AAEhD;AAFgD;AA9DjB;;;;AA4B/B;AA5EY;AAhBd,GAgBc,0MAhBd;ACAA,4CAWS,UAXT;;;;AA8FwC;AAEtC,QAAG,CAAI,gEAAiC,UAAQ,0BAAwB,CAAC,+EAAyC,CAAC,UAAD;eAAA,MAAC;AAAD;;QAA1C,CAAxE;AAEE,6CAAkD,eAA7B,mCAA6B,QAAC,yEAAD,EAAlD;AACA,sEAAiC,UAAQ,mBAAmB,CAAC,+EAA+B,uBAAhC;KAH9D;AAFsC;AASE;AAExC,oEAAiC,UAAQ,sBAAsB,CAAC,8EAAD;AAFvB;AAvG1C,mBAgBc;AAwCiB;AAFiB;;;;;AAEjB;AAsD0B;AAAlB;AAClC;AADoD;AAEvD,uCAA0C,eAAhC,sCAAgC,QAAC,mEAAD,EAA1C;AADG;AADoD;AACpD;AADoD;AAAlB;AAAkB;AAtD1B;;;;AAQG;;;;AAE9B;AAF8B;AA6EqB;AAAb;AAExC,iBAAU;AAF8B;AAAa;AA8EN;AAAP;AACrC;AAD4C;AAE/C,mBAAU,yCAAoB,YAAW,KAAG,EAAH;AAFM;AAC5C;AAD4C;AAAP;AAAO;AALS;AAAhB;AAExC,iBAAU;AAF8B;AAAgB;AA9ET;AAAP;AAExC,iBAAU;AAF8B;AAAO;AAUA;AAAP;AAGxC,iBAAU;AAH8B;AAAO;AAeC;AAAR;AAMxC;AAAY;AAAW;AACvB;AACG;AAR6C;AAShD,cAAG,aAAH;AACE,2BAAgB;AAEhB,+BAAgB;AAElB,cAAG,WAAY,IAAG,cAAC,4EAAD,CAAlB;AACE,+BAAe;AAEf,mCAAe;AAEZ;AACH,cADG,IACH;AAAW,yBAAc;AACzB,oBAFG,IAEH;AAAW,yBAAc;AACzB,oBAHG,IAGH;AAAa,yBAAc;AAC3B,oBAJG,IAIH,yEAAS,aAAc,OAAvB;AAGF,oBAAW,sCAAY,cAAc,CAAC,eAAD,CAAwB,GAAJ,GAAF,GAAQ,sCAAY,cAAc,CAAC,gBAAD,CAA5B;AAC7D,yBAAgB,sCAAY,cAAc,CAAC,oBAAD,CAA6B,GAAJ,GAAF,GAAQ,sCAAY,cAAc,CAAC,qBAAD,CAA5B;AAEvE,sBAAa;AACb,cAAW,YAAC,UAAD,MAAa,IAAwB,CAAb,WAAC,UAAD,CAAa,GAAE,CAAF,CAAhD;AAEE,qBAAS,QAAyB,OAAb,WAAC,UAAD,CAAa,GAAE,CAAF,kBAAlC;AAAI;AACF,0BAAa,SAA2E,GAA/D,GAAF,GAAQ,sCAAY,cAAc,CAAC,UAAU,CAAC,CAAD,CAAG,SAAd,CAA5B,GAAuD,GAAF,GAAQ,sCAAY,cAAc,CAAC,UAAU,CAAC,CAAD,CAAG,UAAd,CAA5B;;WAH5F;AAKA,sBAAa,SAAgB,GAAJ,GAAF,GAAQ,YAAF;AAE7B,mBAAU,iBAOK,GANb,oBAAF,GAAyB,yCAAoB,YAAtB,GACrB,SAAF,GAAc,SAAF,GACV,mBAAF,GAAwB,YAAF,GACpB,oBAAF,GAAyB,+CAAW,CAAC,kBAAD,CAAb,GACrB,wBAAF,GACE,cAAF,GAAmB,UAAF,GACf,YAAF,GAAiB,OAAF;AAEf,cAAG,WAAH,EACE,SAAU,MAAO,GAAE,kBADrB;AAGA,cAAG,cAAH,EACE,SAAU,MAAO,GAAE,kBADrB;AAjDgD;AAQ7C;AAR6C;AAAR;AAAQ;AATG;AAAX;AAMxC,iBAAU;AAN8B;AAAW;AAwEL;AAE9C;AACA;AACA;AACA;AACA;AACA;AAEA;AAAG;AAAI;AAAK;AACZ;AAAK;AAAK;AACV;AAAG;AAAG;AACN;AAAI;AAAI;AACR;AACA;AAAe;AACZ;AAf2C;AAgB9C,cAAY,yCAAD,QAAX;AAEE,oBAAQ,cAAC,CAAc,gBAAd;AAET,gBAAK,QAAQ;AACb,gBAAY,CAAD,QAAX;AAEE,kBAAG,cAAe,KAAG,EAArB;AAEE,oBAAK,sCAAY,UAAU,CAAC,cAAD;AAC3B,oBAAY,CAAD,QAAX;AAEE;AACE,yBAA4C,OAAtC,sCAAY,aAAa,CAAC,EAAG,OAAJ,EAAgB,8BAAH;AAC5C,wBAAY,EAAD,QAAX;AAEE,8BAAQ,UAAC,CAAU,sCAAY,YAAY,CAAC,GAAI,MAAL,CAAlC;AACT,8BAAQ,gBAAC,CAAgB,sCAAY,YAAY,CAAC,GAAI,SAAL,CAAxC;qBAHX;AAMU,2BAAD,sBAAC,UAAS,CAAV;AACT,2BAAO,CAAC,CAAD,CAAP,GAAc,CAAC;AAEf,0BAA0D,OAAnD,sCAAY,aAAa,CAAC,EAAG,oBAAJ,EAA6B,6BAAH;AAC1D,wBAAY,GAAD,QAAX;AAEY,6BAAD,sBAAC,UAAS,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAA/C;AAET,+BAAS,QAAwC,OAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,kBAAjD;AAAI;AAEF,8BAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEpC,4BAAY,GAAD,QAAX;AAEE,0CAAiB,sCAAY,oBAAoB,CAAC,IAAK,eAAN;AACjD,2CAAkB,sCAAY,oBAAoB,CAAC,IAAK,gBAAN;AAClD,iCAAO,CAAC,aAAc,GAAE,CAAjB,CAAP,GAA8B;yBAJhC;;qBARJ;AAiBA,0BAA8C,OAAvC,sCAAY,aAAa,CAAC,EAAG,QAAJ,EAAiB,6BAAH;AAC9C,wBAAY,GAAD,QAAX;AAEE,+BAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,6BAAM,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEnC,6BAAM,CAAC;AACP,0BAAE,SAAF,GAAc,QAAS,GAAE,qBAAQ,CAAC,CAAD,CAAV;AAEvB,8BAA6C,OAAtC,sCAAY,aAAa,CAAC,GAAI,MAAL,EAAgB,6BAAH;AAC7C,4BAAY,GAAD,QAAX;AAEE,mCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,kCAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEpC,gCAAK,EAAE,MAAK;AAEZ,iCAAM,EAAE,WAAU;AAClB,gCAAS,WAAC,OAAD,CAAU,GAAE,CAArB,EACE,EAAE,gBAAF,GAAqB,OAAO,CAAC,CAAD,CAD9B;AAGA,iCAAgD,OAA1C,sCAAY,aAAa,CAAC,IAAK,SAAN,EAAoB,8BAAH;AAChD,gCAAY,EAAD,QAAX;AAEE,+BAAC,UAAD,GAAc,sCAAY,oBAAoB,CAAC,GAAI,gBAAL;AAC9C,gCAAE,UAAF,GAAe,EAAE,UAAU,GAAE,CAAC,UAAH;AAC3B,+BAAC,UAAD,GAAc,sCAAY,oBAAoB,CAAC,GAAI,qBAAL;AAC9C,gCAAE,UAAF,GAAe,EAAE,UAAU,GAAE,CAAC,UAAH;AAC3B,gCAAE,UAAF,GAAe,CAAC;AAChB,gCAAE,UAAF,GAAe,CAAC;6BAPlB;AAUA,kCAAgD,OAAzC,sCAAY,aAAa,CAAC,IAAK,QAAN,EAAmB,6BAAH;AAChD,gCAAY,GAAD,QAAX;AAEE,uCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,sCAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEpC,qCAAM,EAAE,aAAY;AACpB,kCAAE,YAAC,CAAY,sCAAY,mBAAmB,CAAC,IAAK,UAAN,CAA3C;AACH,kCAAE,aAAC,CAAa,sCAAY,mBAAmB,CAAC,IAAK,WAAN,CAA5C;AACH,iCAAC,aAAY,QAAI,OAAO,CAAC,EAAD;AACxB,oCAAG,CAAE,KAAE,CAAP;AAEE,mCAAC,eAAc,YAAC,CAAY,EAAE,YAAC,EAAf;AAChB,mCAAC,eAAc,aAAC,CAAa,EAAE,aAAC,EAAhB;iCAEb,UAAG,CAAE,KAAqC,CAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,CAA1C;AAEH,mCAAC,aAAY,YAAC,CAAY,EAAE,YAAC,EAAf;AACd,mCAAC,aAAY,aAAC,CAAa,EAAE,aAAC,EAAhB;iCAHX;;6BAfT;;yBAxBJ;AAiDA,6BAAgD,OAA1C,sCAAY,aAAa,CAAC,GAAI,UAAL,EAAoB,8BAAH;AAChD,4BAAY,EAAD,QAAX;AAEE,gCAAqD,OAA9C,sCAAY,aAAa,CAAC,GAAI,cAAL,EAAwB,6BAAH;AACrD,8BAAY,GAAD,QAAX;AAEE,qCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,oCAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEpC,qCAAQ,EAAE,OAAM;AAChB,kCAAI,UAAJ,GAAiB,sCAAY,oBAAoB,CAAC,IAAK,qBAAN;AACjD,kCAAI,UAAJ,GAAiB,sCAAY,oBAAoB,CAAC,IAAK,qBAAN;AACjD,mCAA8C,OAAxC,sCAAY,aAAa,CAAC,IAAK,OAAN,EAAkB,8BAAH;AAC9C,kCAAY,EAAD,QAAX;AAEE,oCAAI,eAAc,YAAC,CAAY,sCAAY,mBAAmB,CAAC,GAAI,UAAL,CAA3C;AACnB,oCAAI,eAAc,aAAC,CAAa,sCAAY,mBAAmB,CAAC,GAAI,WAAL,CAA5C;+BAHrB;AAKA,kCAAI,cAAJ,GAAqB,sCAAY,YAAY,CAAC,IAAK,SAAN;;2BAfjD;yBAHF;;qBA5DJ;AA9BF;AAoHE,qBAAE,eAAF,CAAE;AApHJ;iBAFF;eAHF;aAFF;WALF;AAhB8C;AAe3C;AAf2C;;AA7GK;;AAgBO;AACvD;AADuD;AAE1D,iCAAiB,kBAAkB,CAAC,sFAAD;AAFuB;AACvD;AADuD;;AAVT;AAEjD;AAFkD;AAAD;AAKA;AAEjD;AAFiD;AA9DjB;;;;AA4BhC;AA5EY;AAhBd,GAgBc,0MAhBd;ACAA,6CAWS,UAXT;;;;AA8FyC;AAEvC,QAAG,CAAI,gEAAiC,UAAQ,0BAAwB,CAAC,gFAA0C,CAAC,UAAD;eAAA,MAAC;AAAD;;QAA3C,CAAxE;AAEE,6CAAmD,eAA9B,oCAA8B,QAAC,0EAAD,EAAnD;AACA,sEAAiC,UAAQ,mBAAmB,CAAC,gFAAgC,uBAAjC;KAH9D;AAFuC;AASE;AAEzC,oEAAiC,UAAQ,sBAAsB,CAAC,+EAAD;AAFtB;AAvG3C,mBAgBc;AAwCkB;AAFiB;;;;;AAEjB;AAsD0B;AAAlB;AACnC;AADqD;AAExD,uCAA2C,eAAjC,uCAAiC,QAAC,mEAAD,EAA3C;AADG;AADqD;AACrD;AADqD;AAAlB;AAAkB;AAtD1B;;;;AAQG;;;;AAE/B;AAF+B;AA6EqB;AAAb;AAEzC,iBAAU;AAF+B;AAAa;AA4EN;AAAP;AACtC;AAD6C;AAEhD,mBAAU,yCAAoB,YAAW,KAAG,EAAH;AAFO;AAC7C;AAD6C;AAAP;AAAO;AALS;AAAhB;AAEzC,iBAAU;AAF+B;AAAgB;AA5ET;AAAP;AAEzC,iBAAU;AAF+B;AAAO;AAUA;AAAP;AAGzC;AAAY;AACZ;AAGA,YAAG,WAAY,IAAG,cAAC,mEAAS,4EAAV,CAAlB;AACE,6BAAe;AAEf,iCAAe;AAEZ;AACH,YADG,IACH;AAAW,uBAAc;AACzB,kBAFG,IAEH;AAAW,uBAAc;AACzB,kBAHG,IAGH,6EAAa,aAAc,SAA3B;AAGF,kBAAW,sCAAY,cAAc,CAAC,gBAAD,CAAyB,GAAJ,GAAF,GAAQ,sCAAY,cAAc,CAAC,eAAD,CAA5B;AAC9D,uBAAgB,sCAAY,cAAc,CAAC,qBAAD,CAA8B,GAAJ,GAAF,GAAQ,sCAAY,cAAc,CAAC,oBAAD,CAA5B;AAExE,oBAAa;AACb,YAAW,YAAC,UAAD,MAAa,IAAwB,CAAb,WAAC,UAAD,CAAa,GAAE,CAAF,CAAhD;AAEE,mBAAS,QAAyB,OAAb,WAAC,UAAD,CAAa,GAAE,CAAF,kBAAlC;AAAI;AACF,wBAAa,SAA4E,GAAhE,GAAF,GAAQ,sCAAY,cAAc,CAAC,UAAU,CAAC,CAAD,CAAG,UAAd,CAA5B,GAAwD,GAAF,GAAQ,sCAAY,cAAc,CAAC,UAAU,CAAC,CAAD,CAAG,SAAd,CAA5B;;SAH7F;AAKA,oBAAa,SAAgB,GAAJ,GAAF,GAAQ,YAAF;AAE7B,iBAAU,wBAA4C,GAAjB,UAAF,GAAe,GAAF,GAAQ,SAAF;AA7Bb;AAAO;AAyCC;AAAR;AAKtC;AAL8C;AAMjD,mBAAU,qBAKK,GAJb,gBAAF,GAAqB,+CAAW,CAAC,aAAD,CAAb,GACjB,gBAAF,GACE,aAAF,GACE,gBAAF,GAAqB,yCAAoB,YAAtB,GACjB,YAAF,GAAiB,OAAF;AAEf,cAAG,WAAY,IAAG,cAAlB;AAEE,qBAAU,MAAO,GAAE,WAAF;AAEjB,gBAAG,WAAH,EACE,SAAU,MAAO,GAAE,OADrB;AAGA,gBAAG,cAAH,EACE,SAAU,MAAO,GAAE,UADrB;WAPF;AAbiD;AAK9C;AAL8C;AAAR;AAAQ;AATG;AAAX;AAMzC,iBAAU;AAN+B;AAAW;AA4CL;AAE/C;AACA;AACA;AACA;AAAM;AAEN;AAAG;AAAI;AAAK;AAAK;AACjB;AAAK;AAAK;AAAK;AACf;AAAG;AAAG;AACN;AACA;AACG;AAZ4C;AAa/C,cAAY,yCAAD,QAAX;AAEE,oBAAQ,cAAC,CAAc,gBAAd;AAET,gBAAK,QAAQ;AACb,gBAAY,CAAD,QAAX;AAEE,kBAAG,cAAe,KAAG,EAArB;AAEE,oBAAK,sCAAY,UAAU,CAAC,cAAD;AAC3B,oBAAY,CAAD,QAAX;AAEE;AACE,4BAAQ,UAAC,CAAU,sCAAY,YAAY,CAAC,EAAG,SAAJ,CAAlC;AACT,4BAAQ,gBAAC,CAAgB,QAAQ,QAAxB;AAET,0BAA8C,OAAvC,sCAAY,aAAa,CAAC,EAAG,QAAJ,EAAiB,6BAAH;AAC9C,wBAAY,GAAD,QAAX;AAEE,+BAAS,QAAwC,OAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,kBAAjD;AAAI;AAEF,6BAAM,CAAC;AACP,0BAAE,SAAF,GAAc,QAAS,GAAE,qBAAQ,CAAC,CAAD,CAAV;AAEvB,6BAAM,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEnC,0BAAE,UAAF,GAAe,UAAK,CAAC,sCAAY,mBAAmB,CAAC,GAAI,UAAL,CAAhC;AACpB,0BAAE,UAAF,GAAe,UAAK,CAAC,sCAAY,mBAAmB,CAAC,GAAI,UAAL,CAAhC;AAEpB,mEAAY,CAAC,sCAAY,YAAY,CAAC,GAAI,UAAL,EAAkB,EAAE,aAA7C;AAEZ,8BAA6C,OAAtC,sCAAY,aAAa,CAAC,GAAI,MAAL,EAAgB,6BAAH;AAC7C,4BAAY,GAAD,QAAX;AAEE,mCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,kCAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEpC,gCAAK,EAAE,MAAK;AAEZ,6BAAC,UAAD,GAAc,UAAK,CAAC,sCAAY,mBAAmB,CAAC,IAAK,UAAN,CAAhC;AACnB,6BAAC,UAAD,GAAc,UAAK,CAAC,sCAAY,mBAAmB,CAAC,IAAK,UAAN,CAAhC;AAEnB,kCAA+C,OAAxC,sCAAY,aAAa,CAAC,IAAK,OAAN,EAAkB,6BAAH;AAC/C,gCAAY,GAAD,QAAX;AAEE,uCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,sCAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEpC,uCAAQ,EAAE,OAAM;AAEhB,oCAAI,UAAJ,GAAiB,UAAK,CAAC,sCAAY,mBAAmB,CAAC,IAAK,UAAN,CAAhC;AACtB,oCAAI,UAAJ,GAAiB,UAAK,CAAC,sCAAY,mBAAmB,CAAC,IAAK,UAAN,CAAhC;AAEtB,2EAAY,CAAC,sCAAY,YAAY,CAAC,IAAK,UAAN,EAAmB,IAAI,aAAhD;AAEZ,yCAAU,SAA4B,QAAvB,IAAI,aAAY,SAAC,EAAM,GAAE,CAAF,qBAAtC;AAAI;AACF,mCAAC,aAAY,QAAI,OAAO,CAAC,IAAI,aAAY,WAAC,EAAD,CAAjB;;AAE1B,oCAAG,CAAC,aAAY,SAAC,EAAM,GAAE,CAAzB;AAEE,mCAAC,eAAc,OAAO,CAAC,CAAC,aAAY,WAAC,CAAD,CAAG,YAAjB;AACtB,mCAAC,aAAY,OAAO,CAAC,CAAC,aAAY,WAAC,CAAC,aAAY,SAAC,EAAM,GAAE,CAAvB,CAAyB,YAAvC;iCAHtB;AAMA,qCAAiD,OAA3C,sCAAY,aAAa,CAAC,IAAK,UAAN,EAAqB,8BAAH;AACjD,oCAAY,EAAD,QAAX;AAEE,sCAAI,cAAJ,GAAqB,sCAAY,YAAY,CAAC,GAAI,aAAL;AAE7C,wCAAiD,OAA1C,sCAAY,aAAa,CAAC,GAAI,UAAL,EAAoB,6BAAH;AACjD,sCAAY,GAAD,QAAX;AAEE,0CAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AACpC,wCAAI,eAAc,aAAC,CAAa,sCAAY,cAAc,CAAC,GAAG,WAAJ,CAAvC;AACnB,0CAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AACpC,wCAAI,eAAc,YAAC,CAAY,sCAAY,cAAc,CAAC,GAAG,WAAJ,CAAtC;mCALrB;AAOA,0CAAS,CAAC,OAAM;AAChB,uCAAK,OAAO,CAAC,IAAD;iCAbd;;6BAvBJ;;yBAZJ;;qBAfJ;AALF;AA8EE,qBAAE,eAAF,CAAE;AA9EJ;iBAFF;eAHF;aAFF;WALF;AAb+C;AAY5C;AAZ4C;;AA3GK;;AAgBO;AACxD;AADwD;AAE3D,iCAAiB,kBAAkB,CAAC,sFAAD;AAFwB;AACxD;AADwD;;AAVT;AAElD;AAFmD;AAAD;AAKA;AAElD;AAFkD;AA9DjB;;;;AA4BjC;AA5EY;AAhBd,GAgBc,0MAhBd;ACAA,6CAWS,UAXT;;;;AA8FyC;AAEvC,QAAG,CAAI,gEAAiC,UAAQ,0BAAwB,CAAC,gFAA0C,CAAC,UAAD;eAAA,MAAC;AAAD;;QAA3C,CAAxE;AAEE,6CAAmD,eAA9B,oCAA8B,QAAC,0EAAD,EAAnD;AACA,sEAAiC,UAAQ,mBAAmB,CAAC,gFAAgC,uBAAjC;KAH9D;AAFuC;AASE;AAEzC,oEAAiC,UAAQ,sBAAsB,CAAC,+EAAD;AAFtB;AAvG3C,mBAgBc;AAwCkB;AAFiB;;;;;AAEjB;AAsD0B;AAAlB;AACnC;AADqD;AAExD,uCAA2C,eAAjC,uCAAiC,QAAC,mEAAD,EAA3C;AADG;AADqD;AACrD;AADqD;AAAlB;AAAkB;AAtD1B;;;;AAQG;;;;AAE/B;AAF+B;AA6EqB;AAAb;AAEzC,iBAAU;AAF+B;AAAa;AAiFN;AAAP;AACtC;AAD6C;AAEhD,mBAAU,yCAAoB,YAAW,KAAG,EAAH;AAFO;AAC7C;AAD6C;AAAP;AAAO;AALS;AAAhB;AAEzC,iBAAU;AAF+B;AAAgB;AAjFT;AAAP;AAEzC,iBAAU;AAF+B;AAAO;AAUA;AAAP;AAGzC;AACA;AAEA,kBAAW,sCAAY,cAAc,CAAC,eAAD,CAAwB,GAAJ,GAAF,GAAQ,sCAAY,cAAc,CAAC,gBAAD,CAA5B;AAC7D,uBAAgB,sCAAY,cAAc,CAAC,oBAAD,CAA6B,GAAJ,GAAF,GAAQ,sCAAY,cAAc,CAAC,qBAAD,CAA5B;AAEvE,kBAAW,sCAAY,cAAc,CAAC,eAAD,CAAwB,GAAJ,GAAF,GAAQ,sCAAY,cAAc,CAAC,gBAAD,CAA5B;AAC7D,uBAAgB,sCAAY,cAAc,CAAC,oBAAD,CAA6B,GAAJ,GAAF,GAAQ,sCAAY,cAAc,CAAC,qBAAD,CAA5B;AAEvE,oBAAa;AACb,YAAW,YAAC,UAAD,MAAa,IAAwB,CAAb,WAAC,UAAD,CAAa,GAAE,CAAF,CAAhD;AAEE,mBAAS,QAAyB,OAAb,WAAC,UAAD,CAAa,GAAE,CAAF,kBAAlC;AAAI;AACF,wBAAa,SAA2E,GAA/D,GAAF,GAAQ,sCAAY,cAAc,CAAC,UAAU,CAAC,CAAD,CAAG,SAAd,CAA5B,GAAuD,GAAF,GAAQ,sCAAY,cAAc,CAAC,UAAU,CAAC,CAAD,CAAG,UAAd,CAA5B;;SAH5F;AAKA,oBAAa,SAAgB,GAAJ,GAAF,GAAQ,YAAF;AAE7B,iBAAU,4BAAyC,GAAV,SAAF,GAAc,OAAF;AApBV;AAAO;AAgCC;AAAR;AAMzC;AAAY;AACT;AAP8C;AAQjD,cAAG,aAAH;AACE,2BAAgB;AAEhB,+BAAgB;AAElB,cAAG,WAAY,IAAG,cAAC,4EAAD,CAAlB;AACE,+BAAe;AAEf,mCAAe;AAEZ;AACH,cADG,IACH;AAAW,yBAAc;AACzB,oBAFG,IAEH;AAAW,yBAAc;AACzB,oBAHG,IAGH;AAAa,yBAAc;AAC3B,oBAJG,IAIH,yEAAS,aAAc,OAAvB;AAGF,mBAAU,MAKK,GALI,yCAAoB,YAAtB,GACf,mBAAF,GAAwB,YAAF,GACpB,oBAAF,GAAyB,+CAAW,CAAC,kBAAD,CAAb,GACrB,wBAAF,GACE,cAAF,GAAmB,UAAF,GACf,YAAF,GAAiB,OAAF;AAEf,cAAG,WAAH,EACE,SAAU,MAAO,GAAE,cADrB;AAGA,cAAG,cAAH,EACE,SAAU,MAAO,GAAE,kBADrB;AAnCiD;AAO9C;AAP8C;AAAR;AAAQ;AATG;AAAX;AAMzC,iBAAU;AAN+B;AAAW;AA0DL;AAE/C;AACA;AACA;AACA;AACA;AACA;AAEA;AAAG;AAAI;AAAK;AACZ;AAAK;AAAK;AACV;AAAG;AAAG;AACN;AAAI;AACJ;AACA;AAAe;AACZ;AAf4C;AAgB/C,cAAY,yCAAD,QAAX;AAEE,oBAAQ,cAAC,CAAc,gBAAd;AAET,gBAAK,QAAQ;AACb,gBAAY,CAAD,QAAX;AAEE,kBAAG,cAAe,KAAG,EAArB;AAEE,oBAAK,sCAAY,UAAU,CAAC,cAAD;AAC3B,oBAAY,CAAD,QAAX;AAEE;AACE,4BAAQ,UAAC,CAAU,sCAAY,YAAY,CAAC,EAAG,gBAAJ,CAAlC;AACT,4BAAQ,gBAAC,CAAgB,sCAAY,YAAY,CAAC,EAAG,WAAJ,CAAxC;AAEC,2BAAD,sBAAC,UAAS,CAAV;AACT,2BAAO,CAAC,CAAD,CAAP,GAAc,CAAC;AAEf,0BAA0D,OAAnD,sCAAY,aAAa,CAAC,EAAG,oBAAJ,EAA6B,6BAAH;AAC1D,wBAAY,GAAD,QAAX;AAEY,6BAAD,sBAAC,UAAS,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAA/C;AAET,+BAAS,QAAwC,OAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,kBAAjD;AAAI;AAEF,8BAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEpC,4BAAY,GAAD,QAAX;AAEE,0CAAiB,sCAAY,oBAAoB,CAAC,IAAK,eAAN;AACjD,2CAAkB,sCAAY,oBAAoB,CAAC,IAAK,gBAAN;AAClD,iCAAO,CAAC,aAAc,GAAE,CAAjB,CAAP,GAA8B;yBAJhC;;qBARJ;AAiBA,0BAA8C,OAAvC,sCAAY,aAAa,CAAC,EAAG,QAAJ,EAAiB,6BAAH;AAC9C,wBAAY,GAAD,QAAX;AAEE,+BAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,6BAAM,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEnC,6BAAM,CAAC;AACP,0BAAE,SAAF,GAAc,QAAS,GAAE,qBAAQ,CAAC,CAAD,CAAV;AAEvB,8BAA6C,OAAtC,sCAAY,aAAa,CAAC,GAAI,MAAL,EAAgB,6BAAH;AAC7C,4BAAY,GAAD,QAAX;AAEE,mCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,kCAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEpC,gCAAK,EAAE,MAAK;AAEZ,iCAAM,EAAE,WAAU;AAClB,gCAAS,WAAC,OAAD,CAAU,GAAE,CAArB,EACE,EAAE,gBAAF,GAAqB,OAAO,CAAC,CAAD,CAD9B;AAGA,iCAAgD,OAA1C,sCAAY,aAAa,CAAC,IAAK,SAAN,EAAoB,8BAAH;AAChD,gCAAY,EAAD,QAAX;AAEE,+BAAC,UAAD,GAAc,sCAAY,oBAAoB,CAAC,GAAI,gBAAL;AAC9C,gCAAE,UAAF,GAAe,EAAE,UAAU,GAAE,CAAC,UAAH;AAC3B,+BAAC,UAAD,GAAc,sCAAY,oBAAoB,CAAC,GAAI,qBAAL;AAC9C,gCAAE,UAAF,GAAe,EAAE,UAAU,GAAE,CAAC,UAAH;AAC3B,gCAAE,UAAF,GAAe,CAAC;AAChB,gCAAE,UAAF,GAAe,CAAC;6BAPlB;AAUA,kCAAgD,OAAzC,sCAAY,aAAa,CAAC,IAAK,QAAN,EAAmB,6BAAH;AAChD,gCAAY,GAAD,QAAX;AAEE,uCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,sCAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEpC,qCAAM,EAAE,aAAY;AACpB,kCAAE,YAAC,CAAY,sCAAY,mBAAmB,CAAC,IAAK,UAAN,CAA3C;AACH,kCAAE,aAAC,CAAa,sCAAY,mBAAmB,CAAC,IAAK,WAAN,CAA5C;AACH,iCAAC,aAAY,QAAI,OAAO,CAAC,EAAD;;6BAT5B;AAaA,gCAAG,CAAC,aAAY,SAAC,EAAM,GAAE,CAAzB;AAEE,+BAAC,eAAc,OAAO,CAAC,CAAC,aAAY,WAAC,CAAD,CAAG,YAAjB;AACtB,+BAAC,aAAY,OAAO,CAAC,CAAC,aAAY,WAAC,CAAC,aAAY,SAAC,EAAM,GAAE,CAAvB,CAAyB,YAAvC;6BAHtB;;yBArCJ;AA8CA,6BAAgD,OAA1C,sCAAY,aAAa,CAAC,GAAI,UAAL,EAAoB,8BAAH;AAChD,4BAAY,EAAD,QAAX;AAEE,gCAAqD,OAA9C,sCAAY,aAAa,CAAC,GAAI,cAAL,EAAwB,6BAAH;AACrD,8BAAY,GAAD,QAAX;AAEE,qCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,oCAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEpC,qCAAQ,EAAE,OAAM;AAChB,kCAAI,UAAJ,GAAiB,sCAAY,oBAAoB,CAAC,IAAK,qBAAN;AACjD,kCAAI,UAAJ,GAAiB,sCAAY,oBAAoB,CAAC,IAAK,qBAAN;AACjD,mCAA8C,OAAxC,sCAAY,aAAa,CAAC,IAAK,OAAN,EAAkB,8BAAH;AAC9C,kCAAY,EAAD,QAAX;AAEE,oCAAI,eAAc,YAAC,CAAY,sCAAY,mBAAmB,CAAC,GAAI,UAAL,CAA3C;AACnB,oCAAI,eAAc,aAAC,CAAa,sCAAY,mBAAmB,CAAC,GAAI,WAAL,CAA5C;+BAHrB;AAKA,kCAAI,cAAJ,GAAqB,sCAAY,YAAY,CAAC,IAAK,SAAN;;2BAfjD;yBAHF;;qBAzDJ;AA1BF;AA6GE,qBAAE,eAAF,CAAE;AA7GJ;;AAmHA,0BAAQ,UAAC,CAAU,cAAV;AACT,0BAAQ,gBAAC,CAAgB,QAAQ,QAAxB;;eAzHb;aAFF;WALF;AAhB+C;AAe5C;AAf4C;;AAhHK;;AAgBO;AACxD;AADwD;AAE3D,iCAAiB,kBAAkB,CAAC,sFAAD;AAFwB;AACxD;AADwD;;AAVT;AAElD;AAFmD;AAAD;AAKA;AAElD;AAFkD;AA9DjB;;;;AA4BjC;AA5EY;AAhBd,GAgBc,0MAhBd;ACAA,uDAWS,UAXT;;;;AA+FmD;AAEjD,QAAG,CAAI,gEAAiC,UAAQ,0BAAwB,CAAC,0FAAoD,CAAC,UAAD;eAAA,MAAC;AAAD;;QAArD,CAAxE;AAEE,6CAA6D,eAAxC,8CAAwC,QAAC,oFAAD,EAA7D;AACA,sEAAiC,UAAQ,mBAAmB,CAAC,0FAA0C,uBAA3C;KAH9D;AAFiD;AASE;AAEnD,oEAAiC,UAAQ,sBAAsB,CAAC,yFAAD;AAFZ;AAxGrD,mBAgBc;AAwC4B;AAFiB;;;;;AAEjB;AAuD0B;AAAlB;AAC7C;AAD+D;AAElE,uCAAqD,eAA3C,iDAA2C,QAAC,mEAAD,EAArD;AADG;AAD+D;AAC/D;AAD+D;AAAlB;AAAkB;AAvD1B;;;;AAQG;;;;AAEzC;AAFyC;AA+EqB;AAAb;AAEnD,iBAAU;AAFyC;AAAa;AAoGN;AAAP;AAChD;AADuD;AAE1D,mBAAU,yCAAoB,YAAW,KAAG,EAAH;AAFiB;AACvD;AADuD;AAAP;AAAO;AALS;AAAhB;AAEnD,iBAAU;AAFyC;AAAgB;AApGT;AAAP;AAEnD,iBAAU;AAFyC;AAAO;AAUA;AAAP;AAGnD;AAGA,YAAG,WAAY,IAAG,cAAC,4EAAD,CAAlB;AACE,6BAAe;AAEf,iCAAe;AAEZ;AACH,YADG,IACH;AAAW,uBAAc;AACzB,kBAFG,IAEH;AAAW,uBAAc;AACzB,kBAHG,IAGH;AAAa,uBAAc;AAC3B,kBAJG,IAIH;AAAmB,uBAAc;AACjC,kBALG,IAKH,yEAAS,aAAc,aAAvB;AAGF,iBAAU,iBAAkB,GAAE,UAAF;AAnBuB;AAAO;AAiFC;AAAR;AAMnD,iBAAU;AANyC;AAAQ;AA3DG;;AAAX;AAMnD;AAAQ;AAAO;AAAM;AACrB;AAAG;AAEgB;AAAV;AAEP,mBAAU,GAAyF,GAAnF,sCAAY,cAAc,CAAC,SAAD,CAA5B,GAA0C,GAAF,GAAQ,sCAAY,cAAc,CAAC,QAAD,CAA5B,GAAyC,GAAF;AAF5F;AAAU;AAMnB,kBAAW;AACX,iBAAU,UAAU,CAAC,gBAAiB,gBAAlB;AACpB,YAAW,WAAC,UAAD,KAAX;AAEE,oBAAiB,WAAC,UAAD;AACjB,mBAAS,QAAa,OAAR,OAAQ,GAAE,CAAF,kBAAtB;AAAI;AAEF,qBAAU,MAAe,GAAL,IAAH,GAAU,UAAU,CAAC,UAAU,CAAC,CAAD,CAAG,UAAW,UAAU,CAAC,CAAD,CAAG,UAAtC,CAAZ;;SAL7B;AAQA,iBAAU,MAAc,GAAL,IAAF,GAAS,UAAU,CAAC,qBAAsB,qBAAvB,CAAZ;AAExB,YAAG,WAAY,IAAG,cAAC,qEAAW,kEAAZ,CAAlB;AAEE,cAAG,WAAY,IAAG,cAAlB;AAEE,oBAAS;AAET,gBAAG,WAAH,EACE,QAAS,KAAM,GAAE,YADnB;AAGA,gBAAG,cAAH;AAEE,kBAAG,KAAM,KAAG,EAAZ,EACE,QAAS,KAAM,GAAE,IADnB;AAEA,sBAAS,KAAM,GAAE,YAAF;aAJjB;AAOA,oBAAS,gCAAyC,GAAN,KAAF,GAAU,IAAF;WAdpD;SAFF;AAoBA,YAAG,OAAQ,IAAG,CAAd;AAEE,cAAG,aAAH,EACE,OAAQ,0CADV;SAFF;AAMA,YAAG,OAAQ,KAAG,EAAd,EACE,OAAQ,iBAA4B,GAAR,OAAF,GAAY,GADxC;AAGA,iBAAU,kBAAwD,GAAnC,MAAF,GAAW,GAAF,GAAQ,IAAF,GAAS,IAAF,GAAS,KAAF,GAAU,GAAF;AAxDf;AAAW;AA8EL;AAEzD;AACA;AACA;AAAM;AACN;AACA;AAAI;AAEJ;AAAG;AAAI;AAAK;AAAK;AACjB;AAAK;AAAK;AAAK;AACf;AAAG;AAAG;AAAG;AAAG;AAAY;AACxB;AACG;AAZsD;AAazD,cAAY,yCAAD,QAAX;AAEE,oBAAQ,cAAC,CAAc,gBAAd;AAET,gBAAK,QAAQ;AACb,gBAAY,CAAD,QAAX;AAEE,kBAAG,cAAe,KAAG,EAArB;AAEE,oBAAK,sCAAY,UAAU,CAAC,cAAD;AAC3B,oBAAY,CAAD,QAAX;AAEE;AACE,4BAAQ,gBAAC,CAAgB,sCAAY,YAAY,CAAC,EAAG,OAAJ,CAAxC;AACT,wBAAG,QAAQ,cAAc,KAAG,EAA5B,EACE,QAAQ,UAAC,CAAU,OAAV,CADX;AAGA,0BAA8C,OAAvC,sCAAY,aAAa,CAAC,EAAG,QAAJ,EAAiB,6BAAH;AAC9C,wBAAY,GAAD,QAAX;AAGE,+BAAS,QAAwC,OAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,kBAAjD;AAAI;AAEF,6BAAM,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEnC,6BAAM,CAAC;AACP,6BAA+C,OAAzC,sCAAY,aAAa,CAAC,GAAI,SAAL,EAAmB,8BAAH;AAC/C,4BAAY,EAAD,QAAX;AAEE,4BAAE,UAAF,GAAe,sCAAY,mBAAmB,CAAC,GAAI,UAAL;AAC9C,4BAAE,UAAF,GAAe,UAAK,CAAC,sCAAY,mBAAmB,CAAC,GAAI,UAAL,CAAhC;yBAHtB;AAMA,mEAAY,CAAC,sCAAY,YAAY,CAAC,GAAI,UAAL,EAAkB,EAAE,aAA7C;AAEZ,8BAAiD,OAA1C,sCAAY,aAAa,CAAC,GAAI,UAAL,EAAoB,6BAAH;AACjD,4BAAY,GAAD,QAAX;AAEE,mCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,kCAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEpC,gCAAK,EAAE,MAAK;AACZ,6BAAC,UAAD,GAAc,UAAK,CAAC,sCAAY,mBAAmB,CAAC,IAAK,UAAN,CAAhC;AACnB,6BAAC,UAAD,GAAc,UAAK,CAAC,sCAAY,mBAAmB,CAAC,IAAK,UAAN,CAAhC;AAEnB,kCAA+C,OAAxC,sCAAY,aAAa,CAAC,IAAK,OAAN,EAAkB,6BAAH;AAC/C,gCAAY,GAAD,QAAX;AAEE,uCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,sCAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEpC,uCAAQ,EAAE,OAAM;AAChB,oCAAI,UAAJ,GAAiB,UAAK,CAAC,sCAAY,mBAAmB,CAAC,IAAK,UAAN,CAAhC;AACtB,oCAAI,UAAJ,GAAiB,UAAK,CAAC,sCAAY,mBAAmB,CAAC,IAAK,UAAN,CAAhC;AACtB,oCAAI,cAAJ,GAAqB,sCAAY,YAAY,CAAC,IAAK,aAAN;AAE7C,sCAAoD,OAA7C,sCAAY,aAAa,CAAC,IAAK,YAAN,EAAuB,6BAAH;AACpD,oCAAY,GAAD,QAAX;AAEE,+CAAc;AACd,6CAAY;AACZ,2CAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,2CAAQ,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AACrC,wCAAG,CAAE,KAAE,CAAP,EACE,aAAc,UAAK,CAAC,sCAAY,cAAc,CAAC,IAAI,YAAC,EAAN,CAA3B,CADrB;AAEA,wCAAG,CAAE,KAAE,CAAP,EACE,WAAY,UAAK,CAAC,sCAAY,cAAc,CAAC,IAAI,YAAC,EAAN,CAA3B,CADnB;;AAGF,2CAAS,kBAAc,qCAAvB;AAAI;AAEF,yCAAM,IAAI,aAAY;AACtB,sCAAE,YAAC,CAAY,EAAE,aAAY,WAAC,CAAD,CAAG,YAAC,EAA9B;AACH,sCAAE,aAAC,CAAa,EAAE,aAAY,WAAC,CAAD,CAAG,aAAC,EAA/B;AAEH,0CAAO,CAAC,aAAY;AACpB,uCAAG,YAAC,CAAY,EAAE,YAAC,EAAf;AACJ,uCAAG,aAAC,CAAa,EAAE,aAAC,EAAhB;;AAEN,sCAAG,IAAI,aAAY,SAAC,EAAM,GAAE,CAA5B;AAEE,wCAAI,eAAc,OAAO,CAAC,IAAI,aAAY,WAAC,CAAD,CAAG,YAApB;AACzB,wCAAI,aAAY,OAAO,CAAC,IAAI,aAAY,WAAC,IAAI,aAAY,SAAC,EAAM,GAAE,CAA1B,CAA4B,YAA7C;mCAHzB;AAKA,0CAAS,CAAC,OAAM;AAChB,uCAAK,OAAO,CAAC,IAAD;iCA5Bd;;AAgCF,kCAAG,CAAC,aAAY,SAAC,EAAM,GAAE,CAAzB;AAEE,iCAAC,eAAc,OAAO,CAAC,CAAC,aAAY,WAAC,CAAD,CAAG,YAAjB;AACtB,iCAAC,aAAY,OAAO,CAAC,CAAC,aAAY,WAAC,CAAC,aAAY,SAAC,EAAM,GAAE,CAAvB,CAAyB,YAAvC;+BAHtB;6BA5CF;;yBAXJ;;qBAlBJ;AANF;AA2FE,qBAAE,eAAF,CAAE;AA3FJ;iBAFF;eAHF;aAFF;WALF;AAbyD;AAYtD;AAZsD;;AApIK;AAE3D;AAF2D;AAG9D,kBAAQ,MAAI,CAAC,2DAA6B,QAAC,YAAM,CAAC,eAAgB,kBAAjB,CAAN,CAA/B;AACZ,kBAAQ,MAAI,CAAC,2DAA6B,QAAC,YAAM,CAAC,gBAAiB,yCAAoB,YAAtC,CAAN,CAA/B;AAJkD;AAE3D;AAF2D;;AAiBO;AAClE;AADkE;AAErE,iCAAiB,kBAAkB,CAAC,sFAAD;AAFkC;AAClE;AADkE;;AAVT;AAE5D;AAF6D;AAAD;AAKA;AAE5D;AAF4D;AAhEjB;;;;AA6B3C;AA7EY;AAhBd,GAgBc,0MAhBd;ACAA,+CAWS,UAXT;;;;AA+F2C;AAEzC,QAAG,CAAI,gEAAiC,UAAQ,0BAAwB,CAAC,kFAA4C,CAAC,UAAD;eAAA,MAAC;AAAD;;QAA7C,CAAxE;AAEE,6CAAqD,eAAhC,sCAAgC,QAAC,4EAAD,EAArD;AACA,sEAAiC,UAAQ,mBAAmB,CAAC,kFAAkC,uBAAnC;KAH9D;AAFyC;AASE;AAE3C,oEAAiC,UAAQ,sBAAsB,CAAC,iFAAD;AAFpB;AAxG7C,mBAgBc;AAwCoB;AAFiB;;;;;AAEjB;AAuD0B;AAAlB;AACrC;AADuD;AAE1D,uCAA6C,eAAnC,yCAAmC,QAAC,mEAAD,EAA7C;AADG;AADuD;AACvD;AADuD;AAAlB;AAAkB;AAvD1B;;;;AAQG;;;;AAEjC;AAFiC;AA+EqB;AAAb;AAE3C,iBAAU;AAFiC;AAAa;AAiEN;AAAP;AACxC;AAD+C;AAElD,mBAAU,yCAAoB,YAAW,KAAG,EAAH;AAFS;AAC/C;AAD+C;AAAP;AAAO;AALS;AAAhB;AAE3C,iBAAU;AAFiC;AAAgB;AAjET;AAAP;AAE3C,iBAAU;AAFiC;AAAO;AAUA;AAAP;AAG3C,iBAAU;AAHiC;AAAO;AAeC;AAAR;AAM3C;AAAY;AACZ;AACG;AARgD;AAS9C;AACH,cADG,IACH;AAAW,yBAAc;AACzB,oBAFG,IAEH;AAAW,yBAAc;AACzB,oBAHG,IAGH;AAAa,yBAAc;AAC3B,oBAJG,IAIH;AAAmB,yBAAc;AACjC,oBALG,IAKH,yEAAS,aAAc,OAAvB;AAGF,sBAAa,sCAAY,cAAc,CAAC,eAAD,CAAwB,GAAJ,GAAF,GAAQ,sCAAY,cAAc,CAAC,gBAAD,CAA5B;AAC/D,mBAAS,QAAwB,OAAb,WAAC,UAAD,CAAa,GAAE,CAAF,kBAAjC;AAAI;AAEF,wBAAa,SACoD,GAA/D,GADqB,GACf,sCAAY,cAAc,CAAC,UAAU,CAAC,CAAD,CAAG,SAAd,CAA5B,GAAuD,GAAF,GAAQ,sCAAY,cAAc,CAAC,UAAU,CAAC,CAAD,CAAG,UAAd,CAA5B;;AAEnE,sBAAa,SACkD,GAA7D,GADqB,GACf,sCAAY,cAAc,CAAC,oBAAD,CAA5B,GAAqD,GAAF,GAAQ,sCAAY,cAAc,CAAC,qBAAD,CAA5B;AAE/D,mBAAU,SAEK,GAFO,yCAAoB,YAAtB,GACnB,QADoD,GACzC,UAAF,GACT,aADsB,GACN,SAAF;AAEf,cAAG,OAAQ,KAAG,EAAd,EACG,SAAU,MAAkB,GAAT,QAAF,GAAa,OADjC;AAGA,cAAG,WAAH,EACE,SAAU,MAAO,GAAE,cADrB;AAGA,cAAG,cAAH,EACE,SAAU,MAAO,GAAE,iBADrB;AApCmD;AAQhD;AARgD;AAAR;AAAQ;AATG;AAAX;AAM3C,iBAAU;AANiC;AAAW;AA2DL;AAEjD;AACA;AACA;AAAM;AACN;AACA;AAAI;AAEJ;AAAG;AAAI;AAAK;AAAK;AACjB;AAAK;AAAK;AAAK;AAAK;AACpB;AAAG;AAAG;AAAG;AAAG;AAAY;AACxB;AAAI;AACD;AAZ8C;AAajD,cAAY,yCAAD,QAAX;AAEE,oBAAQ,cAAC,CAAc,gBAAd;AAET,gBAAK,QAAQ;AACb,gBAAY,CAAD,QAAX;AAEE,kBAAG,cAAe,KAAG,EAArB;AAEE,oBAAK,sCAAY,UAAU,CAAC,cAAD;AAC3B,oBAAY,CAAD,QAAX;AAEE;AACE,4BAAQ,UAAC,CAAU,sCAAY,YAAY,CAAC,EAAG,OAAJ,CAAlC;AACT,4BAAQ,gBAAC,CAAgB,sCAAY,YAAY,CAAC,EAAG,SAAJ,CAAxC;AAET,0BAAgD,OAAzC,sCAAY,aAAa,CAAC,EAAG,UAAJ,EAAmB,6BAAH;AAChD,wBAAY,GAAD,QAAX;AAEE,+BAAS,QAAwC,OAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,kBAAjD;AAAI;AAEF,6BAAM,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEnC,6BAAM,CAAC;AACP,6BAAgD,OAA1C,sCAAY,aAAa,CAAC,GAAI,UAAL,EAAoB,8BAAH;AAChD,4BAAY,EAAD,QAAX;AAEE,gCAAoD,OAA7C,sCAAY,aAAa,CAAC,GAAI,aAAL,EAAuB,6BAAH;AACpD,8BAAY,GAAD,QAAX;AAEE,qCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,kCAAK,EAAE,MAAK;AACZ,oCAA6C,OAAtC,sCAAY,iBAAiB,CAAC,IAAK,CAAN,EAAY,6BAAH;AAC7C,kCAAY,GAAD,QAAX;AAEE,yCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,wCAA6C,OAAtC,sCAAY,iBAAiB,CAAC,IAAK,CAAN,EAAY,6BAAH;AAC7C,sCAAY,GAAD,QAAX;AAEE,yCAAM,EAAE,aAAY;AACpB,2CAAQ,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AACrC,wCAAG,IAAI,YAAC,EAAM,KAAG,EAAjB,EACE,EAAE,aAAC,CAAa,sCAAY,cAAc,CAAC,IAAI,YAAC,EAAN,CAAvC,CADL;AAEA,2CAAQ,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AACrC,wCAAG,IAAI,YAAC,EAAM,KAAG,EAAjB,EACE,EAAE,YAAC,CAAY,sCAAY,cAAc,CAAC,IAAI,YAAC,EAAN,CAAtC,CADL;AAEA,0CAAO,CAAC,aAAY;AACpB,uCAAG,YAAC,CAAY,EAAE,YAAC,EAAf;AACJ,uCAAG,aAAC,CAAa,EAAE,aAAC,EAAhB;mCAXN;;+BALJ;AAqBA,kCAAG,CAAC,aAAY,SAAC,EAAM,GAAE,CAAzB;AAEE,iCAAC,eAAc,OAAO,CAAC,CAAC,aAAY,WAAC,CAAD,CAAG,YAAjB;AACtB,iCAAC,aAAY,OAAO,CAAC,CAAC,aAAY,WAAC,CAAC,aAAY,SAAC,EAAM,GAAE,CAAvB,CAAyB,YAAvC;+BAHtB;;2BA3BJ;yBAHF;AAuCA,6BAAkD,OAA5C,sCAAY,aAAa,CAAC,GAAI,YAAL,EAAsB,8BAAH;AAClD,4BAAY,EAAD,QAAX;AAEE,4BAAE,UAAF,GAAe,sCAAY,mBAAmB,CAAC,GAAI,UAAL;AAC9C,4BAAE,UAAF,GAAe,UAAK,CAAC,sCAAY,mBAAmB,CAAC,GAAI,MAAL,CAAhC;AAEpB,gCAA6C,OAAtC,sCAAY,aAAa,CAAC,GAAI,MAAL,EAAgB,6BAAH;AAC7C,8BAAY,GAAD,QAAX;AAEE,qCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,oCAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEpC,kCAAK,EAAE,MAAK,WAAC,CAAD;AACZ,+BAAC,UAAD,GAAc,UAAK,CAAC,sCAAY,mBAAmB,CAAC,IAAK,UAAN,CAAhC;AACnB,+BAAC,UAAD,GAAc,UAAK,CAAC,sCAAY,mBAAmB,CAAC,IAAK,MAAN,CAAhC;AAEnB,oCAA+C,OAAxC,sCAAY,aAAa,CAAC,IAAK,OAAN,EAAkB,6BAAH;AAC/C,kCAAY,GAAD,QAAX;AAEE,yCAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,wCAAO,sCAAY,iBAAiB,CAAC,IAAK,CAAN;AAEpC,yCAAQ,EAAE,OAAM;AAChB,sCAAI,UAAJ,GAAiB,UAAK,CAAC,sCAAY,mBAAmB,CAAC,IAAK,UAAN,CAAhC;AACtB,sCAAI,UAAJ,GAAiB,UAAK,CAAC,sCAAY,mBAAmB,CAAC,IAAK,MAAN,CAAhC;AACtB,uCAAoD,OAA9C,sCAAY,aAAa,CAAC,IAAK,aAAN,EAAwB,8BAAH;AACpD,sCAAY,EAAD,QAAX;AAEE,wCAAI,cAAJ,GAAqB,sCAAY,YAAY,CAAC,GAAI,MAAL;mCAF/C;AAKA,+CAAc,sCAAY,oBAAoB,CAAC,IAAK,YAAN;AAC9C,6CAAY,sCAAY,oBAAoB,CAAC,IAAK,UAAN;AAC5C,2CAAS,kBAAc,qCAAvB;AAAI;AAEF,yCAAM,IAAI,aAAY;AACtB,sCAAE,YAAC,CAAY,CAAC,aAAY,WAAC,CAAD,CAAG,YAAC,EAA7B;AACH,sCAAE,aAAC,CAAa,CAAC,aAAY,WAAC,CAAD,CAAG,aAAC,EAA9B;;AAEL,sCAAG,IAAI,aAAY,SAAC,EAAM,GAAE,CAA5B;AAEE,wCAAI,eAAc,OAAO,CAAC,IAAI,aAAY,WAAC,CAAD,CAAG,YAApB;AACzB,wCAAI,aAAY,OAAO,CAAC,IAAI,aAAY,WAAC,IAAI,aAAY,SAAC,EAAM,GAAE,CAA1B,CAA4B,YAA7C;mCAHzB;AAMA,0CAAS,CAAC,OAAM;AAChB,uCAAK,OAAO,CAAC,IAAD;;+BA9BhB;;2BAXJ;yBANF;;qBAhDJ;AALF;AA6GE,qBAAE,eAAF,CAAE;AA7GJ;iBAFF;eAHF;aAFF;WALF;AAbiD;AAY9C;AAZ8C;;AAjGK;AAEnD;AAFmD;AAGtD,kBAAQ,MAAI,CAAC,2DAA6B,QAAC,YAAM,CAAC,eAAgB,kBAAjB,CAAN,CAA/B;AACZ,kBAAQ,MAAI,CAAC,2DAA6B,QAAC,YAAM,CAAC,gBAAiB,yCAAoB,YAAtC,CAAN,CAA/B;AAJ0C;AAEnD;AAFmD;;AAiBO;AAC1D;AAD0D;AAE7D,iCAAiB,kBAAkB,CAAC,sFAAD;AAF0B;AAC1D;AAD0D;;AAVT;AAEpD;AAFqD;AAAD;AAKA;AAEpD;AAFoD;AAhEjB;;;;AA6BnC;AA7EY;AAhBd,GAgBc,0MAhBd;ARAA,sCAsBS,wIAtBT;;;AA0CyB,iCAAG,2CAAkB,GAAE,sDAAF;AACpB,kCAAG;AAEpB,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AAmBiB;;AA6YJ;AA7FC;AApBF;AAzCD;AA7OY,yGAEb,YACM,kBACO,wBAJA;;AAEb;AACM,sCAAa,0BAAqB,2BAAlC;AACO,6CAAa,0BAAqB,eAVxC,yCAUwC,EACrD,cf5Be,0Ee4Bf,EAA+C,kB3IgSlD,gC2IhSkD,EAAiC,kCAD7D;AAJA;AAQF,uGAEI,yBAFJ;;AAEI,8CAAY,SAVd,gDAUc,EAAZ;AAFJ;AAKR,+FAEC,gBACG,mBACT,UACA,UAGC,WAKG,cAOA,aACL,QACC,UACW,mBAvBN;;AAEC;AACG,yCb2IE,oEa3IF;AACT;AACA,8BAAQ,uBAAc,4BAAyB,+BAAkB,gCAC3D,oCAAuB,qCAChC,eA1BY,yCA0BZ,EAAyC,cf3C3B,0Ee2C2B,CAFtC;AAGC,+BAAQ,uBAAc,4BAAyB,+BAAkB,gCAC5D,oCAAuB,qCAAuB,8BACvD,eA7BY,yCA6BZ,EAAwD,iB3I8Q5D,gC2I9Q4D,EACzD,cf/Ce,0Ee+Cf,EACQ,mCAA0B,uBAA0B,4BAAiC,8BAJxF;AAKG,kCAAQ,uBAAc,4BAAyB,+BAAkB,gCAAsB,oCACpF,qCAAuB,8BACjC,eAlCY,yCAkCZ,EAAwD,iB3IyQ5D,gC2IzQ4D,EACzD,cfpDe,0EeoDf,EACQ,mCAA0B,uBACjC,4BACG,8BANI;AAOA,iCAAS,YboGD,qEapGC,CAAT;AACL,4BAAS,YAwQF,sCAxQE,EAA0C,6BAAnD;AACC;AACW;AAvBN;AA0BC,gGAEG,mBACE,mBAHL;;AAEG,yCA5BJ,qCA4BI;AACE,wCAAY,eA7BlB,qCA6BkB,CAAZ;AAHL;AAMM;;AAIM;;AAIR;;AAIA;;AAIC;;AAIC;;AAIA;;AAIU;;AAIR;;AAIR;;AAEH;;;AAEnB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAbmB;;;;;;;;;AAy6CuB;AAG5C,uBAAY,OAAO,CAAC,KAAD;AAHyB;AAtBN;AAEtC;AACA,UAAY,WAAD,QAAX,EACE,cAAsB,OAAX,iBAAc,2BAAH,CAA0B,SADlD;AAGA,0BAAgB,0DAAsB,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,4BAAkB,yDAAqB,QAAC;AACxC,0BAAgB,yDAAqB,QAAC;AACtC,uBAAa;AACb,uBAAa;AACb,2BAAiB;AAXgD;AAA3B;AAbF;AAEpC,UAAa,0BAAH,eAAP,MAAO,CAAV;AAEE,yBAAY,OAAO,CAAuB,MAAO,aAA9B;AACnB,2BAAc,OAAO,CAAuB,MAAO,eAA9B;AACrB,yBAAY,OAAO,CAAuB,MAAO,aAA9B;AACnB,yBAAmC,MAAO;AAC1C,yBAAmC,MAAO;AAC1C,6BAAuC,MAAO;OAPhD;AAFoC;AA2BE;AAEzB,eAAb,KAAa;AACE,eAAf,KAAe;AACF,eAAb,KAAa;AACb;AALsC;AAj6CjB;AAgBD,+BAAY,e3I8SrB,gC2I9SqB,CAAZ;AASE,mCfyEA,oEezEA;AACE,qCf7BH,mEe6BG;AACF,mCf9BD,mEe8BC;AACH;AACA;AACI;AA9BF;AAkCC;;;AAKpB;AALoB;;;;;AAg9Ce;AAAP;AAE9B,eAA0C,YAAK,CAAC,KAAD;AAFjB;AAAO;AAeC;AAG5B,kBAAK,CAAC,MAAU,KAAX;AAHuB;AApBO;AAAf;AAE9B,eAAU;AAFoB;AAAe;AAUP;AAAR;AAE9B,eAAU;AAFoB;AAAQ;AAhBC;AAEvB,sDAAC,OAAQ,sBAAT;AAChB,sBAAU;AAHuD;AAA1B;AALN;AAAH;AAE9B,eAA0C;AAFZ;AAAG;AA0BG;AAAN;AAE9B,eAAgD,yCAAC,KAAD;AAFlB;AAAM;AA19Cd;AAYF,+BAAO,U3IwOZ,oC2IxOY,CAAP;AAZE;AAkBF;;;AAElB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAfkB;;;;;;;;;;AAi6CuB;AAG3C,uBAAY,OAAO,CAAC,KAAD;AAHwB;AAMN;AAErC,oBAAU;AAF2B;AA7BA;AAErC;AACA,UAAY,WAAD,QAAX,EACE,cAAsB,OAAX,iBAAc,0BAAH,CAAyB,SADjD;AAGA,0BAAgB,0DAAsB,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,4BAAkB,yDAAqB,QAAC;AACxC,0BAAgB,yDAAqB,QAAC;AACtC,uBAAa;AACb,uBAAa;AACb,oBAAU,2BAAsB,QAAC,YAAM,CAAC,IAAD,CAAN;AAX+B;AAA3B;AAbF;AAEnC,UAAa,yBAAH,eAAP,MAAO,CAAV;AAEE,yBAAY,OAAO,CAAsB,MAAO,aAA7B;AACnB,2BAAc,OAAO,CAAsB,MAAO,eAA7B;AACrB,yBAAY,OAAO,CAAsB,MAAO,aAA7B;AACnB,yBAAkC,MAAO;AACzC,yBAAkC,MAAO;AACzC,mBAAM,OAAO,CAAsB,MAAO,OAA7B;OAPf;AAFmC;AA2BE;AAExB,eAAb,KAAa;AACE,eAAf,KAAe;AACF,eAAb,KAAa;AACN,eAAP,KAAO;AACP;AANqC;AAx5CjB;AAmBA,+BAAY,e3IuPrB,gC2IvPqB,CAAZ;AASE,mCfkBA,oEelBA;AACC;AACC,qCfrFH,mEeqFG;AACH;AACC,mCfvFD,mEeuFC;AACH;AACA;AACH,6BArDM,qCAqDN;AAnCI;AAuCC;;;AAKnB;AALmB;;;;;AA87Ce;AAAP;AAE7B,eAAyC,YAAK,CAAC,KAAD;AAFjB;AAAO;AAeC;AAG3B,kBAAK,CAAC,MAAU,KAAX;AAHsB;AApBO;AAAf;AAE7B,eAAU;AAFmB;AAAe;AAUP;AAAR;AAE7B,eAAU;AAFmB;AAAQ;AAhBC;AAEtB,sDAAC,OAAQ,sBAAT;AAChB,sBAAU;AAHsD;AAA1B;AALN;AAAH;AAE7B,eAAyC;AAFZ;AAAG;AA0BG;AAAN;AAE7B,eAA+C,yCAAC,KAAD;AAFlB;AAAM;AAx8Cd;AAYD,+BAAO,U3I+KZ,oC2I/KY,CAAP;AAZC;AAkBI;;;AAEvB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAVuB;;;;;;AA88CiB;AAE1C;AACA,UAAY,WAAD,QAAX,EACE,cAAsB,OAAX,iBAAc,+BAAH,CAA8B,SADtD;AAGA,uBAAa;AACb,uBAAa;AACb,6BAAmB,CAAC;AARiD;AAA3B;AAXF;AAExC;AACA,UAAa,8BAAH,eAAP,MAAO,CAAV;AAEE,yBAAuC,MAAO;AAC9C,yBAAuC,MAAO;AAC9C,+BAA6C,MAAO;OAJtD;AAHwC;AAsBE;AAE1C;AAF0C;AAz9CjB;AAYL,+BAAY,e3IqMrB,gC2IrMqB,CAAZ;AASD;AACA;AACM;AAvBA;AA2BC;;;AAKxB;AALwB;;;;;AAq9Ce;AAAP;AAGlC,eAA8C,YAAK,CAAC,KAAD;AAHjB;AAAO;AAiBC;AAGhC,kBAAK,CAAC,MAAU,KAAX;AAH2B;AAtBO;AAAf;AAElC,eAAU;AAFwB;AAAe;AAWP;AAAR;AAElC,eAAU;AAFwB;AAAQ;AAjBC;AAE3B,sDAAC,OAAQ,sBAAT;AAChB,sBAAU;AAH2D;AAA1B;AALN;AAAH;AAElC,eAA8C;AAFZ;AAAG;AA2BG;AAAN;AAGlC,eAAoD,yCAAC,KAAD;AAHlB;AAAM;AAh+Cd;AAYN,+BAAO,U3IkIZ,oC2IlIY,CAAP;AAZM;AAkBL;;;AAEnB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAdmB;;;;;;;;;;AA2qCuB;AAG5C,uBAAY,OAAO,CAAC,KAAD;AAHyB;AALN;AAAT;AAE7B,eAAU,iBAAW,UAAC;AAFO;AAAS;AAgBA;AAEtC,iBAAM,OAAO,CAAC,KAAD;AAFyB;AALD;AAErC,gBAAK,OAAO,CAAC,KAAD;AAFyB;AAUK;AAG1C,qBAAU,OAAO,CAAC,KAAD;AAHyB;AA7CJ;AAEtC;AACA,UAAW,CAAC,WAAD,SAAc,IAAmB,2BAAH,eAAX,gBAAW,CAAzC,EACE,cAAsB,OAAX,iBAAc,2BAAH,CAA0B,SADlD;AAGA,0BAAgB,0DAAsB,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,uBAAa;AACb,uBAAa;AACb,sBAAY;AACZ,oBAAU,2BAAsB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,mBAAS,0BAAqB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,wBAAc,+BAA0B,QAAC,YAAM,CAAC,IAAD,CAAN;AAZwB;AAA3B;AAbF;AAEpC,UAAa,0BAAH,eAAP,MAAO,CAAV;AAEE,yBAAY,OAAO,CAAuB,MAAO,aAA9B;AACnB,yBAAmC,MAAO;AAC1C,yBAAmC,MAAO;AAC1C,wBAAkC,MAAO;AACzC,mBAAM,OAAO,CAAuB,MAAO,OAA9B;AACb,kBAAK,OAAO,CAAuB,MAAO,MAA9B;OAPd;AAFoC;AA4BE;AAEzB,eAAb,KAAa;AACN,eAAP,KAAO;AACD,eAAN,KAAM;AACK,eAAX,KAAW;AACX;AANsC;AA7pCjB;AAqBD,+BAAY,e3I+IrB,gC2I/IqB,CAAZ;AAWE,mCfxFA,oEewFA;AACH;AACA;AACD;AACE,iCAtDM,yCAsDN;AACJ,6BA7JM,qCA6JN;AArCK;AAyCC;;;AAKpB;AALoB;;;;;AA0qCe;AAAP;AAG9B,eAA0C,YAAK,CAAC,KAAD;AAHjB;AAAO;AAiBC;AAG5B,kBAAK,CAAC,MAAU,KAAX;AAHuB;AAtBO;AAAf;AAE9B,eAAU;AAFoB;AAAe;AAWP;AAAR;AAE9B,eAAU;AAFoB;AAAQ;AAjBC;AAEvB,sDAAC,OAAQ,sBAAT;AAChB,sBAAU;AAH+D;AAAlC;AALN;AAAH;AAE9B,eAA0C;AAFZ;AAAG;AA2BG;AAAN;AAG9B,eAAgD,yCAAC,KAAD;AAHlB;AAAM;AArrCd;AAYF,+BAAO,UAqGJ,qCArGI,CAAP;AAZE;AAkBK,sDAlBL,kDAkBK;AAEH;;;AAEtB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAZsB;;;;;;;AAq8CiB;AAEzC,iBAAM,OAAO,CAAC,KAAD;AAF4B;AAUK;AAG9C,yBAAe;AAH+B;AAfE;AAEhD,2BAAiB;AAF+B;AAUN;AAE1C,qBAAW;AAF+B;AAfa;AAAvB;AAEhC,eAAU;AAFsB;AAAuB;AAnBd;AAEzC;AACA,UAAY,WAAD,QAAX,EACE,cAAsB,OAAX,iBAAc,8BAAH,CAA6B,SADrD;AAGA,oBAAU,8BAAuB,QAAC,YAAM,CAAC,WAAD,CAAN;AAClC,yBAAe;AACf,mBAAO;AACP,qBAAW;AACX,2BAAiB;AAVmD;AAA3B;AATF;AAEvC,UAAa,6BAAH,eAAP,MAAO,CAAV;AAEE,mBAAM,OAAO,CAAS,OAAP,OAAU,6BAAH,CAA4B,OAArC;AACb,2BAAuB,OAAP,OAAU,6BAAH,CAA4B;OAHrD;AAFuC;AAsBE;AAElC,eAAP,KAAO;AACP;AAHyC;AAr7CjB;AAoBJ,+BAAY,e3ImFrB,gC2InFqB,CAAZ;AASP;AACG,6BAlDM,qCAkDN;AACK,kCA/UM,0CA+UN;AACJ;AACM;AAjCC;AAqCC;;;AAKvB;AALuB;;;;;AAk8Ce;AAAP;AAGjC,eAA6C,YAAK,CAAC,KAAD;AAHjB;AAAO;AAiBC;AAG/B,kBAAK,CAAC,MAAU,KAAX;AAH0B;AAtBO;AAAf;AAEjC,eAAU;AAFuB;AAAe;AAWP;AAAR;AAEjC,eAAU;AAFuB;AAAQ;AAjBC;AAE1B,sDAAC,OAAQ,sBAAT;AAChB,sBAAU;AAHkE;AAAlC;AALN;AAAH;AAEjC,eAA6C;AAFZ;AAAG;AA2BG;AAAN;AAGjC,eAAmD,yCAAC,KAAD;AAHlB;AAAM;AA78Cd;AAYL,+BAAO,UA4CJ,qCA5CI,CAAP;AAZK;AAkBK,yDAlBL,qDAkBK;AAGQ,gGAAgE,YA1D9E,uCA0D8E,GAAgD,kBbpFzH,qEaoFyH,EAAhH;AACH,0FAAmB,UpJ/T/C,2BoJ+T+C,EAAyB,YA3DvD,uCA2DuD,GAAgD,kBbrFlG,qEaqFkG,EAA5F;AAES,sGAA+D,WA7DnF,uCA6DmF,EAA/D;AACH,gGAAmB,UpJlUrD,2BoJkUqD,EAAwB,WA9D5D,uCA8D4D,EAA3C;AAEd;AACzB;AACA;AACA;AACA;AACA;AAGA;AACA;AACA;AACA;AACA;AAZyB;;0BAMzB;AANyB,8BAOzB;AAPyB;;;aACzB,wCACA,IAAA,kBACA,IAAA,oCACA,IAAA,sCACA,IAAA,kCACA,IAAA,4CACA,IAAA,oDACA,IAAA,gDACA,IAAA,0BACA,IAAA,kCACA,IAAA,kCACA,4CAVA;AAFyB;;AACzB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAZyB;;;AACzB,2BAPoC,oDAOpC;AACA;AACA;AACA;AACA,6BArXyB,yCAqXzB;AACsB;AAAtB,kCAAsB,2DAAtB;AACA,sCfxY2B,0EewY3B;AACA;AACA;AACA,6Bf3SmB,kEe2SnB;AACA;AACA;AAZyB;AAeK;;;AAE9B;AAF8B;;;;;AAi7CiB;AAGjD,uBAAa;AAFsC;AADF;AAj7CjB;AAOM;;;AAEpC;AAFoC;;;;;AA07CiB;AAGvD,uBAAa;AAF4C;AADF;AA17CjB;AAOf;;;AAErB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAbqB;;;;;;;;;;;;AAgsBmB;AAE1C,UAAG,eAAS,KAAG,KAAf;AAEE,0BAAY;AACZ;OAHF;AAF0C;AAtBD;AAEzC,UAAG,YAAQ,KAAG,KAAd;AAEE,uBAAW;OAFb;AAFyC;AAQY;AAGrD,8BAAmB,OAAO,CAAC,KAAD;AAH2B;AAMJ;AAEjD,UAAG,oBAAgB,KAAG,KAAtB;AAEE,+BAAmB;OAFrB;AAFiD;AAiBC;AAElD,UAAG,qBAAiB,KAAG,KAAvB;AAEE,gCAAoB;AACpB;OAHF;AAFkD;AAxEI;AAGtD;AACA;AACA;AAEA,UAAG,CAAI,sBAAP,EACE,MADF;AAME,YAAO,wBAAkB;AACzB,SAAG,MAAH,GAAW,cAAc;AACzB,SAAG,aAAH,GAAmB,cAAc;AACjC,sBAAW,MAAM,CAAC,IAAK,cAAc,cAApB;AACjB,0BAAe,CAAC,IAAK,cAAN;AACf,UAAY,cAAc,YAAf,QAAX;AAEE,YAAgC,qCAAH,eAA1B,cAAc,YAAY,CAA7B;AAEE,gBAAwC,cAAc;AACtD,aAAG,UAAU,CAAC,IAAK,cAAN;AACb,aAAI,eAAJ,GAAI;SAED,UAAgC,2CAAH,eAA1B,cAAc,YAAY,CAA7B;AAEH,iBAA+C,cAAc;AAC7D,cAAI,UAAU,CAAC,GAAD;AACd,cAAK,eAAL,IAAK;SAJF;OARP;AAlBoD;AAbP;AAG/C,UAAY,6BAAD,QAAX,EACE,6BAAuB,CAAC,KAAM,SAAU,cAAjB,CADzB;AAEA,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,SAAU,cAAjB,CADjB;AAEA,UAAY,mCAAD,QAAX,EACE,mCAA6B,CAAC,KAAM,QAAP,CAD/B;AAEA,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,QAAP,CADvB;AAT+C;AAnFK;AAEpD;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAVoD;AAYpD,YAAG,mBAAH,EACE,MADF;AAGA,YAAY,gBAAD,QAAX,EACE,gBAAW,oBADb;AAGA,wCAAe,IAAf;AACA,gDAAuB,IAAvB;AAEA,YAAyB,CAAZ,CAAR,eAAQ,KAAE,sCAAF,CAAY,IAAI,qBAAJ,CAAqB,IAAG,oBAAjD;AAEE,cAAG,sCAAiC,UAAQ,0BAAwB,CAAC,4DAAgD;qBAAC;AAAD;;cAAjD,CAApE,EACA,gCAAe,uCAAuC,oBAAtD,KADA;;AAKK;AACH,cADG,IACH;AAEE,gBAAG,sCAAiC,UAAQ,0BAAwB,CAAC,sDAA0C;uBAAC;AAAD;;gBAA3C,CAApE,EACE,gCAAe,iCAAiC,oBAAhD,KADF;AAEA,kDAAY,IAAI,CAAC,kHAAD;WAElB,UAPG,IAOH;AAEE,gBAAG,sCAAiC,UAAQ,0BAAwB,CAAC,oDAAwC;uBAAC;AAAD;;gBAAzC,CAApE,EACE,gCAAe,+BAA+B,oBAA9C,KADF;WAGF,UAZG,IAYH;AAEE,gBAAG,sCAAiC,UAAQ,0BAAwB,CAAC,oDAAwC;uBAAC;AAAD;;gBAAzC,CAApE,EACE,gCAAe,+BAA+B,oBAA9C,KADF;AAEA,kDAAY,IAAI,CAAC,wFAAD;WAElB,UAlBG,IAkBH;AAEE,gBAAG,sCAAiC,UAAQ,0BAAwB,CAAC,qDAAyC;uBAAC;AAAD;;gBAA1C,CAApE,EACE,gCAAe,gCAAgC,oBAA/C,KADF;WAGF,UAvBG,IAuBH;AAEE,gBAAG,sCAAiC,UAAQ,0BAAwB,CAAC,sDAA0C;uBAAC;AAAD;;gBAA3C,CAApE,EACE,gCAAe,iCAAiC,oBAAhD,KADF;WAGF,UA5BG,IA4BH;AAEE,gBAAG,sCAAiC,UAAQ,0BAAwB,CAAC,sDAA0C;uBAAC;AAAD;;gBAA3C,CAApE,EACE,gCAAe,iCAAiC,oBAAhD,KADF;WAGF,UAjCG,IAiCH;AAEE,gBAAG,sCAAiC,UAAQ,0BAAwB,CAAC,gEAAoD;uBAAC;AAAD;;gBAArD,CAApE,EACE,gCAAe,2CAA2C,oBAA1D,KADF;WAGF,UAtCG,IAsCH;AAEE,gBAAG,sCAAiC,UAAQ,0BAAwB,CAAC,wDAA4C;uBAAC;AAAD;;gBAA7C,CAApE,EACE,gCAAe,mCAAmC,oBAAlD,KADF;WAFF;;AAQJ,YAAW,CAAC,gBAAD,SAAc,IAAI,uBAAQ,CAAC,iBAAa,uDAAiC;;;;YAA/C,CAArC,EACE,wBAAmB,wBAAwB,CAAC,0BAAD,CAD7C;AA1EoD;AAGpD;AADA;AAEA;AACA;AACA;AACA;AACA;AACA;AACA;AAxiBE;AA8hBkD;;AA5QN;AAAf;AAE/B,eAAU;AAFqB;AAAe;AAjBO;AAAtB;AAI/B,eAAU;AAJqB;AAAsB;AAOX;AAAX;AAE/B,eAAU;AAFqB;AAAW;AAoQU;AAArB;AAE/B,eAAU;AAFqB;AAAqB;AAKK;AAA1B;AAE/B,eAAU;AAFqB;AAA0B;AA2FX;AAAf;AAE/B,eAAkB,CAAC,gBAAD,SAAoF,IAA1D,CAAC,wBAAD,SAAZ,IAA8C,CAAC,0BAAD,SAAZ,IAAwC,gBAAW,UAAf;AAFvE;AAAe;AArXN;AAAT;AAE/B,eAAU;AAFqB;AAAS;AAwCG;AAAZ;AAE/B,eAAU,kCAAQ,CAAC,kCAAQ,CAAC,EAAQ,CAAT,EAAkB,kCAAQ,CAAC,EAAQ,CAAT,CAAnC;AAFa;AAAY;AAnCH;AAAT;AAE/B,eAAU;AAFqB;AAAS;AAiBC;AAAV;AAE/B,eAAU;AAFqB;AAAU;AAqZA;AAAV;AAC5B;AADsC;AAEzC,qCAAU,gBAAV;AADG;AADsC;AACtC;AADsC;AAAV;AAAU;AA3YA;AAAV;AAE/B;AAEA,WAAM;AACN,eAAU,qBAAQ,CAAG,CAAC,gCAAM,CAAC,EAAD,CAAP,aAAH,CAA8E,GAA7D,GAAD,GAAK,qBAAQ,CAAI,gCAAM,CAAC,EAAD,CAAP,OAAH,CAAT,GAA0B,GAAD,GAAK,qBAAQ,CAAG,CAAC,gCAAM,CAAC,EAAD,CAAP,aAAH,CAAT,GAA0B,GAAD,GAAK,qBAAQ,CAAI,gCAAM,CAAC,EAAD,CAAP,OAAH,CAAT;AALjE;AAAU;AAoHO;AAOhD,UAAG,eAAQ,KAAE,sCAAb;AAEE,cAAM,sBAAS,QAAC,YAAM,CAAC,wFAAD,CAAN;AAChB;OAHF;AAOA,UAAG,CAAI,sBAAP;AAEE,cAAM,sBAAS,QAAC,YAAM,CAAC,qBAAD,CAAN;AAChB;OAHF;AAMA,mBAAO;AACP,mBAAO;AACP,sBAAW,WAAW,CAAC,aAAO,WAAC,EAAT;AACtB,mBAAO,MAAP,GAAgB;AAChB,mBAAO,YAAP,GAAsB;AACtB,mBAAO,aAAP,GAAuB;AAEvB,UAAY,SAAD,QAAX;AACE,qBAAO,YAAP,GAAsB,qCAAgC,QAAC,YAAM,CAAC,SAAD,CAAN;AACpD,gBAAY,UAAD,QAAX,EACH,aAAO,YAAP,GAAsB,2CAAsC,QAAC,YAAM,CAAC,UAAD,CAAN,CAD1D;AAGL,mBAAO,QAAP,GAAkB,gBAAW;AAC7B,mBAAO,MAAP,GAAgB,gBAAW;AAC3B,mBAAO,MAAP,GAAgB,gBAAW,QAAQ,CAAC,sCAAY,UAAU,CAAC,OAAD,EAAW,sCAAY,UAAU,CAAC,YAAD,EAAgB,gBACzG,iBAAkB,qBAAsB,sBAAuB,YAAa,wBAD3C;AAEnC,mBAAO,OAAP,GAAiB,gBAAW,SAAS,CAAC,sCAAY,UAAU,CAAC,OAAD,EAAW,sCAAY,UAAU,CAAC,YAAD,EAAgB,gBAC3G,iBAAkB,qBAAsB,sBAAuB,cAC/D,YAAa,cAAe,yBAAY,mBAAoB,+CAAW,CAAC,QAAS,KAAV,EAAkB,YAAa,cAFnE;AAGrC,mBAAO,UAAP,GAAoB,gBAAW,YAAY,CAAC,QAAS,aAAc,gBAAiB,iBAAkB,qBAAsB,sBAC1H,cAAe,YAAa,cAAe,yBAAY,mBAAoB,+CAAW,CAAC,QAAS,KAAV,EAAkB,YAAa,cAD5E;AAE3C,yBAAc,CAA4B,kDbpZqI,KAA6B,IaoZ9L;AAzCkC;AApBA;AAIhD;AACA;AAEA,wBAAmB,uBAAW,QAAC;AAC/B,eAAS,QAAsC,OAA3B,WAAC,QAAQ,gBAAT,CAA2B,GAAE,CAAF,kBAA/C;AAAI;AAEF,uBAAe,IAAI,CAAC,QAAQ,gBAAgB,CAAC,CAAD,CAAzB;;AAGrB,2BAAgB,CAAC,QAAS,aAAc,gBAAiB,iBAAkB,qBACzE,sBAAuB,QAAQ,cAAe,QAAQ,YAAa,gBAAiB,QAAQ,qBAAsB,QAAQ,mBAC1H,QAAQ,QAAS,QAAQ,YAAa,QAAQ,IAAK,QAAQ,aAAc,QAAQ,UAAW,KAAK,QAAQ,YAAa,QAAQ,cAFhH;AAIhB,qBAAgB,eAAhB,eAAgB;AAjBgC;AAqFL;AAAZ;AAI/B;AACA;AACA;AAAG;AAEH,UAAY,aAAD,QAAX;AAEY,aAAD,sBAAC,SAAO,aAAa,SAAC,EAAtB;AACT,uBAAgB,uBAAW,QAAC;AAC5B,iBAAS,QAAyB,OAApB,aAAa,SAAC,EAAM,GAAE,CAAF,kBAAlC;AAAI;AAEF,sBAAY,IAAI,CAAC,aAAa,WAAC,CAAD,CAAG,cAAjB;AACN,eAAK,CAAC,CAAD,CAAN,sBAAC,KAAK,CAAC,CAAD,+DAAK,aAAa,WAAC,CAAD,CAAG,aAAY,SAAC,EAAxC;AACT,mBAAS,SAAwC,QAAnC,aAAa,WAAC,CAAD,CAAG,aAAY,SAAC,EAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,iBAAK,CAAC,CAAD,CAAG,CAAC,CAAD,CAAG,SAAX,GAAwB,aAAa,WAAC,CAAD,CAAG,aAAY,WAAC,CAAD,CAAG,YAAC;AACxD,iBAAK,CAAC,CAAD,CAAG,CAAC,CAAD,CAAG,UAAX,GAAyB,aAAa,WAAC,CAAD,CAAG,aAAY,WAAC,CAAD,CAAG,aAAC;;;AAG7D,iBAAU,+CAAS,CAAC,oBAAO,6EAAW,KAAM,KAAM,afvkB+F,IeukB9H;AACnB,oBAAa,eAAb,YAAa;;AAIb,iBAAU,6CAAS,CAAC,2BAAc,6Ef9kBR,KAAkC,KAA8B,GAAiD,Ie8kBxH;;AA3BU;AAAY;AAxKL;AAEtC;AACA,UAAc,4BAAH,eAAP,MAAO,CAAX;AAEE,0BAAoB,OAAP,OAAU,4BAAH,CAA2B;AAC/C,uBAAmB,OAAP,OAAU,4BAAH,CAA2B;AAC9C,gCAAmB,OAAO,CAAS,OAAP,OAAU,4BAAH,CAA2B,oBAApC;OAJ5B;AAHsC;AAkPE;AACrC;AADqC;AAExC;AACA,+BAAQ,CAAC,oDAAM,yDAAmC;;;;YAA1C;AACR,mCAAuB,iCAA0B,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD;AALwC;AACrC;AAthBD;AAqhBsC;AAAqB;AAArB;AAgQA;AAEpB,eAApB,KAAoB;AAEpB,UAAY,gBAAD,QAAX,EACE,gBAAW,oBADb;AAGA,sCAAe,IAAf;AACA,8CAAuB,IAAvB;AACA,gDAAyB,IAAzB;AACA;AAVwC;AAveK;AAK7C,2BAAgB,CAAC,GAAI,GAAI,OAAO,UAAW,OAAO,WAAY,YAAY,UACxE,YAAY,WAAY,cAAe,YAAa,KAAK,yBAAY,mBACrE,QAAS,MAAO,IAAK,aAAc,UAAW,KAAK,YAAa,cAFlD;AAL6B;AAoBA;AAO7C,UAAY,CAAR,eAAQ,IAAG,cAAC,sCAAD,CAAH,CAAe,IAAI,oBAA/B;AAEE,6BAAgB,CAAC,QAAS,aAAc,EAAG,EAAG,EAC5C,EAAG,cAAe,YAAa,WAAY,GAAK,mBAChD,QAAS,MAAO,IAAK,aAAc,UAAW,KAAK,YAAa,cAFlD;;AAMhB,cAAM,sBAAS,QAAC,YAAM,CAAC,8FAAD,CAAN;;AAf2B;AAsCA;AAI7C,6BAAgB,CAAC,GAAI,GAAI,OAAO,UAAW,OAAO,WAAY,YAAY,UACxE,YAAY,WAAY,iDADV;AAJ6B;AAQA;AAG7C,6BAAgB,CAAC,QAAS,aAAc,EAAG,EAAG,EAAG,EAAG,iDAApC;AAH6B;AAxDM;AAKnD,2BAAgB,CAAC,GAAI,GAAI,OAAO,UAAW,OAAO,WAAY,YAAY,UACxE,YAAY,WAAY,cAAe,YAAa,KAAK,yBAAY,mBACrE,QAAS,MAAO,IAAK,aAAc,KAAK,UAAW,YAAa,cAFlD;AALmC;AA6BA;AAOnD,UAAY,CAAR,eAAQ,IAAG,cAAC,sCAAD,CAAH,CAAe,IAAI,oBAA/B;AAEE,6BAAgB,CAAC,QAAS,aAAc,EAAG,EAAG,EAC5C,EAAG,cAAe,YAAa,WAAY,GAAK,mBAChD,QAAS,MAAO,IAAK,aAAc,KAAK,UAAW,YAAa,cAFlD;;AAMhB,cAAM,sBAAS,QAAC,YAAM,CAAC,8FAAD,CAAN;;AAfiC;AAqJJ;AAG/C,4BAAe,CAAC,2BAAc,QAAS,4HAAoB,aAA5C;AAHgC;AAMA;AAI/C;AAEA,WAAM,yBAAa,QAAC,YAAM,CAAC,oBAAa,CAAC,2BAAc,6EAAW,aAA1B,CAAd,CAAN;AACpB;AACE,eAAO,SAAS,CAAC,GAAI,EAAE,QAAC,EAAR;AADlB;AAGE,UAAG,eAAH,EAAG;AAHL;AAP+C;AA1DF;AAG7C,0BAAa,CAAC,2BAAc,UAAW,4HAAoB,aAA9C;AAHgC;AAMA;AAI7C;AAEA,WAAM,uBAAW,QAAC;AAClB;AACE,UAAE,WAAC,CAAQ,oBAAa,CAAC,2BAAc,6EAAW,aAA1B,CAArB;AACH,UAAE,WAAW,CAAC,SAAD;AAFf;AAIE,UAAG,eAAH,EAAG;AAJL;AAP6C;AAkED;AAAb;AAG/B,eAAU,iBAAY,CAAC,2BAAc,4HAAoB,aAAnC;AAHS;AAAa;AAMA;AAAb;AAI/B,eAAU,iBAAY,CAAC,2BAAc,6EAAW,aAA1B;AAJS;AAAa;AAxgBrB;;;;;;AAgEH,+BAAO,U3IgCjB,+B2IhCiB,CAAP;AAhEG;AAiGgB;;;AAErC;AAFqC;;;;;AAy3B+B;AAAvB;AAC5C;AADmE;AAEtE,qCAAU,0BAAV;AADG;AADmE;AACnE;AADmE;AAAvB;AAAuB;AAKC;AAGvE,gDAAyB,KAAzB;AAHuE;AAXf;AAExD,gDAAyB,IAAzB;AACA;AAHwD;AAn3BjB;;;AAYlB;AA01Be;AAAP;AAC1B;AADiC;AAEpC,qCAAiC,cAAW,QAAK,CAAC,KAAD,CAAhB,CAAjC;AADG;AADiC;AACjC;AADiC;AAAP;AAAO;AAKC;AAE3B,cAAK,CAAC,MAAU,KAAX;AAFsB;AA/1BhB;AAYU;;;AAE7B;AAF6B;;;;;AAqrBwB;AAAhB;AACpC;AADoD;AAEvD,qCAAU,0BAAV;AACA,wBAAW,IAAI,CAAC,MAAD;AAFZ;AADoD;AACpD;AADoD;AAAhB;AAAgB;AAYE;AAEzD,sBAAW,OAAO,CAAC,WAAD;AAFuC;AAlBT;AAEtC;AACV,yBAAe,0BAAqB,QAAC;AAHY;AAAD;AAYA;AAEhD,6BAAU,CAAC;;;;UAAD;AACA;AAHsC;AA3rBjB;;;AAqBd;AA6xC+B;AAEhD;AACA,iCAAe,CAAC,CAAC,sBAAD,CAAD;AAHiC;AA7xC/B;;;;;;AAQS,uCAxLS,kDAwLT;AACM,6CAtLS,wDAsLT;AACf;AACY,0CAjNJ,wCAiNI;AACX,+BAhdM,uCAgdN;AACA;AAbD;AAgBuB;;;AAEtC;AACA;AAHsC;;;;;AAyuBiB;AAGzD,mBAAS;AACT,qCAAc,UAAd;AAHwB;AADiC;AAzuBjB;AAWH;AAoxBe;AAAP;AAE7C,eAA6D,YAAK,CAAC,KAAD;AAFrB;AAAO;AAKC;AAE3C,kBAAK,CAAC,MAAU,KAAX;AAFsC;AAnCA;AAAR;AAE7C;AACG;AAHkD;AAIrD,qCAAU,IAAV;AACA,iBAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,cAAG,cAAK,CAAC,CAAD,CAAG,MAAM,KAAE,KAAnB;AAEE,yCAAU,cAAK,CAAC,CAAD,CAAG,WAAlB;AACA;WAHF;;AAJC;AAHkD;AAGlD;AAHkD;AAAR;AAAQ;AAfG;AAAX;AAE7C;AAEA,eAAU;AACV,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,YAAG,cAAK,CAAC,CAAD,CAAG,MAAM,KAAE,KAAnB;AAEE,mBAAU;AACV;SAHF;;AAP2C;AAAW;AA8BE;AAE1D;AAEA,eAAe,KAAN,eAAM,GAAE,CAAF,EAAW,aAA1B;AAAI;AAEF,YAAG,cAAK,CAAC,CAAD,CAAG,MAAM,KAAE,KAAnB;AAEE,uBAAM,CAAC,cAAK,CAAC,CAAD,CAAN;AACN;SAHF;;AANwD;AArwBrB;AAkBJ;AAGrB;AACA;AAJqB;;AAE/B;AAF+B;;;;;AA8pB6B;AAE9D,6BAAU,CAAC;;;;UAAD;AACV,gEAAoB;AAH0C;AAbZ;AAElD;AACA,2BAAiB,0CAAqC,QAAC;AAHJ;AAAD;AAMA;AAElD,6BAAU,CAAC;;;;UAAD;AACV;AAHkD;AAjBU;AAE5D;AAF4D;AAI5D,YAAG,CAAI,kBAAa,YAAY,CAAC,yBAAY,CAAC,YAAD,CAAb,CAAhC;AAEE,cAAG,uBAAQ,CAAC,SAAU,aAAc;;;;cAAzB,CAAX,EACE,kBAAa,MAAI,CAAC,6CAAwC,QAAC,YAAM,CAAC,yBAAY,CAAC,YAAD,EAAgB,QAA7B,CAAN,CAA1C,CADnB;SAFF;AAJ4D;AAE5D;AAF4D;;AA8CG;AAE/D,wBAAa,aAAa,CAAC,yBAAY,CAAC,YAAD,CAAb;AAFqC;AARJ;AAAlB;AAEzC;AACG;AAHwD;AAI3D,2BAAK,kBAAa,SAAW,CAAC,yBAAY,CAAC,YAAD,CAAb,EAA7B;AACA,+BAAQ,CAAC,EAAG,aAAc;;;;YAAlB;AAFL;AAHwD;AAE3D;AACG;AAHwD;AAAlB;AAAkB;AAyBK;AAAvB;AAEzC,eAAU,kBAAa,YAAY,CAAC,yBAAY,CAAC,YAAD,CAAb;AAFM;AAAuB;AAZA;AAAvB;AAEtC;AAF6D;AAGhE,YAAG,kBAAa,YAAY,CAAC,yBAAY,CAAC,YAAD,CAAb,CAA5B;AACE,mBAAU,uBAAQ,CAAyB,UAAxB,kBAAa,SAAW,CAAC,yBAAY,CAAC,YAAD,CAAb,GAA8B,aAAc,QAArE;;AAGlB,uBAAY,IAAZ;AACA,mBAAU;;AARoD;AAE7D;AAF6D;AAAvB;AAAuB;AApBV;AAAP;AAE/C,UAAa,CAAT,aAAS,KAAE,IAAF,CAAO,IAAI,CAAI,qBAA5B,EACE,kDAAY,sCAAiC,QAAC,YADhD;AAEA,eAAU;AAJqC;AAAO;AArqBrB;AAuhBb;AAGpB;AAAK;AAAK;AAAO;AACjB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEA,cAAW;AAKX,UAAc,OAAD;AACb,YAAS;AAET,UAAO;AACP,UAAO;AAEP,WAAO,KAAM,IAAG,GAAhB;AACE,UAAK;AACL,cAAS;AACT,qBAAgB;AAEhB,aAAO,CAAE,IAAG,IAAZ;AACE,YAAS,OAAD,YAAS,KAAD,IAAR;AACR,YAAK,CAAE,GAAE,EAAF;AACH,aAAJ,IAAG;AACH,uBAAgB,YAAa,GAAe,CAAT,CAAF,CAAE,GAAI,IAAJ,CAAS,IAAI,KAAJ,CAAf;AAC7B,gBAAS,KAAM,GAAE,CAAF;;AAGjB,UAAiB,CAAb,YAAa,GAAI,CAAJ,CAAO,KAAG,CAA3B;AACE,eAAQ,CAAkB,CAAb,YAAa,KAAI,CAAJ;AAE1B,mBAAQ,YAAa,KAAI,CAAJ;AACvB,YAAO,GAAI,GAAE,IAAF;AAEX,cAAS;AACT,qBAAgB;AAChB,UAAK;AACL,aAAO,CAAE,IAAG,IAAZ;AACE,YAAS,OAAD,YAAS,KAAD,IAAR;AACR,YAAK,CAAC,GAAC,EAAD;AACF,aAAJ,IAAG;AACH,uBAAgB,YAAa,GAAe,CAAT,CAAF,CAAE,GAAI,IAAJ,CAAS,IAAI,KAAJ,CAAf;AAC7B,gBAAS,KAAM,GAAE,CAAF;;AAGjB,UAAiB,CAAb,YAAa,GAAI,CAAJ,CAAO,KAAG,CAA3B;AACE,eAAQ,CAAkB,CAAb,YAAa,KAAI,CAAJ;AAE1B,mBAAQ,YAAa,KAAI,CAAJ;AACvB,YAAO,GAAI,GAAE,IAAF;AAEX,cAAS,GAAI,GAAE,QAAF;AACb,cAAS,GAAI,GAAE,QAAF;AAGb,WAAM,YAAY;AAClB,QAAE,YAAC,CAAY,KAAZ;AACH,QAAE,aAAC,CAAa,KAAb;;AAnEe;AA1eW;AAAxB;AAEP,UAAM,SAAN,GAAmB;AACnB,UAAM,GAAN,GAAa;AACb,UAAM,YAAN,GAAsB;AACtB,UAAM,aAAN,GAAuB;AACvB,UAAM,WAAN,GAAqB;AAErB,UAAM,gBAAN,GAA0B;AAE1B,UAAM,OAAN,GAAiB;AACjB,UAAM,WAAN,GAAqB;AACrB,UAAM,WAAN,GAAqB;AACrB,UAAM,cAAN,GAAwB;AAbjB;AAAwB;AAitCjC;AAEmC,2DAAjC,GAAsD;AACtD;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAXF;AAz4DA,GAiqBc,6VAjqBd;ASAA,4CAWS,UAXT;;;;AAoFwC;AAEtC,QAAG,CAAI,4DAA+B,UAAQ,0BAAwB,CAAC,6EAAyC,CAAC,UAAD;eAAA,MAAC;AAAD;;QAA1C,CAAtE;AAEE,2CAAgD,eAA7B,mCAA6B,QAAC,uEAAD,EAAhD;AACA,kEAA+B,UAAQ,mBAAmB,CAAC,6EAA+B,qBAAhC;KAH5D;AAFsC;AASE;AAExC,gEAA+B,UAAQ,sBAAsB,CAAC,4EAAD;AAFrB;AA7F1C,mBAgBc;AAwCiB;AAFe;;;;;AAEf;AA4CwB;AAAhB;AAClC;AADkD;AAErD,uCAAwC,eAA9B,oCAA8B,QAAC,+DAAD,EAAxC;AADG;AADkD;AAClD;AADkD;AAAhB;AAAgB;AA5CxB;;;;AAQC;;AAmEqB;AAAb;AAEtC,iBAAU;AAF4B;AAAa;AAyBN;AAAP;AACnC;AAD0C;AAE7C,mBAAU,uCAAkB,YAAW,KAAG,EAAH;AAFM;AAC1C;AAD0C;AAAP;AAAO;AALS;AAAhB;AAEtC,iBAAU;AAF4B;AAAgB;AAzBT;AAAP;AAEtC,iBAAU;AAF4B;AAAO;AAUA;AAAP;AAEtC,iBAAU;AAF4B;AAAO;AAUC;AAAR;AACnC;AAD2C;AAE9C,mBAAU,aAAc,GAAE,uCAAkB,YAApB;AAFsB;AAC3C;AAD2C;AAAR;AAAQ;AALG;AAAX;AAEtC,iBAAU;AAF4B;AAAW;AAoBL;AAE5C;AACG;AAHyC;AAI5C,cAAY,uCAAD,QAAX;AAEE,gBAAY,QAAD,QAAX;AAEE,kBAAG,cAAe,KAAG,EAArB;AAEE,oBAAK,sCAAY,UAAU,CAAC,cAAD;AAC3B,oBAAY,CAAD,QAAX;AAEE;AACG,4BAAQ,YAAW,YAAC,CAAY,sCAAY,mBAAmB,CAAC,EAAG,UAAJ,CAA3C;AACpB,4BAAQ,YAAW,aAAC,CAAa,sCAAY,mBAAmB,CAAC,EAAG,WAAJ,CAA5C;AACpB,4BAAQ,IAAR,GAAe,sCAAY,YAAY,CAAC,EAAG,IAAJ;AACvC,4BAAQ,QAAR,GAAmB,sCAAY,YAAY,CAAC,EAAG,MAAJ;AAC3C,4BAAQ,WAAR,GAAsB,sCAAY,YAAY,CAAC,EAAG,gBAAJ;AAC9C,4BAAQ,eAAR,GAA0B,sCAAY,YAAY,CAAC,EAAG,gBAAJ;AAClD,4BAAQ,SAAR,GAAoB,sCAAY,YAAY,CAAC,EAAG,cAAJ;AAC5C,4BAAQ,aAAR,GAAwB,sCAAY,YAAY,CAAC,EAAG,cAAJ;AAChD,4BAAQ,QAAR,GAAmB,sCAAY,YAAY,CAAC,EAAG,aAAJ;AAC3C,4BAAQ,YAAR,GAAuB,sCAAY,YAAY,CAAC,EAAG,aAAJ;AAC/C,4BAAQ,MAAR,GAAiB,sCAAY,YAAY,CAAC,EAAG,MAAJ;AACzC,4BAAQ,YAAR,GAAuB,sCAAY,YAAY,CAAC,EAAG,KAAJ;AAZlD;AAcE,qBAAE,eAAF,CAAE;AAdJ;iBAFF;eAHF;aAFF;WAFF;AAJ4C;AAGzC;AAHyC;;AAxDK;;AAgBK;AACnD;AADmD;AAEtD,+BAAe,gBAAgB,CAAC,kFAAD;AAFuB;AACnD;AADmD;;AAVP;AAE/C;AAFgD;AAAD;AAKA;AAE/C;AAF+C;AApDjB;;;;AAkB9B;AAlEY;AAhBd,GAgBc,wMAhBd;ACAA,2CAWS,UAXT;;;;AAoFuC;AAErC,QAAG,CAAI,4DAA+B,UAAQ,0BAAwB,CAAC,4EAAwC,CAAC,UAAD;eAAA,MAAC;AAAD;;QAAzC,CAAtE;AAEE,2CAA+C,eAA5B,kCAA4B,QAAC,sEAAD,EAA/C;AACA,kEAA+B,UAAQ,mBAAmB,CAAC,4EAA8B,qBAA/B;KAH5D;AAFqC;AASE;AAEvC,gEAA+B,UAAQ,sBAAsB,CAAC,2EAAD;AAFtB;AA7FzC,mBAgBc;AAwCgB;AAFe;;;;;AAEf;AA4CwB;AAAhB;AACjC;AADiD;AAEpD,uCAAuC,eAA7B,mCAA6B,QAAC,+DAAD,EAAvC;AADG;AADiD;AACjD;AADiD;AAAhB;AAAgB;AA5CxB;;;;AAQC;;AAmEqB;AAAb;AAErC,iBAAU;AAF2B;AAAa;AAyBN;AAAP;AAClC;AADyC;AAE5C,mBAAU,uCAAkB,YAAW,KAAG,EAAH;AAFK;AACzC;AADyC;AAAP;AAAO;AALS;AAAhB;AAErC,iBAAU;AAF2B;AAAgB;AAzBT;AAAP;AAErC,iBAAU;AAF2B;AAAO;AAUA;AAAP;AAErC,iBAAU;AAF2B;AAAO;AAUC;AAAR;AAClC;AAD0C;AAE7C,mBAAU,MAAO,GAAE,uCAAkB,YAApB;AAF4B;AAC1C;AAD0C;AAAR;AAAQ;AALG;AAAX;AAErC,iBAAU;AAF2B;AAAW;AAoBL;AAE3C;AACA;AACG;AAJwC;AAK3C,cAAY,uCAAD,QAAX;AAEE,gBAAY,QAAD,QAAX;AAEE,kBAAG,cAAe,KAAG,EAArB;AAEE,oBAAK,sCAAY,UAAU,CAAC,cAAD;AAC3B,oBAAY,CAAD,QAAX;AAEE;AACE,wBAA8C,OAAzC,sCAAY,aAAa,CAAC,EAAG,UAAJ,EAAmB,8BAAH;AAC9C,wBAAY,CAAD,QAAX;AAEE,8BAAQ,YAAW,YAAC,CAAY,sCAAY,mBAAmB,CAAC,EAAG,KAAJ,CAA3C;AACpB,8BAAQ,YAAW,aAAC,CAAa,sCAAY,mBAAmB,CAAC,EAAG,KAAJ,CAA5C;qBAHtB;AAFF;AAQE,qBAAE,eAAF,CAAE;AARJ;iBAFF;eAHF;aAFF;WAFF;AAL2C;AAIxC;AAJwC;;AAxDK;;AAgBK;AAClD;AADkD;AAErD,+BAAe,gBAAgB,CAAC,kFAAD;AAFsB;AAClD;AADkD;;AAVP;AAE9C;AAF+C;AAAD;AAKA;AAE9C;AAF8C;AApDjB;;;;AAkB7B;AAlEY;AAhBd,GAgBc,wMAhBd;ACAA,oCAsBS,wIAtBT;;;AA0CuB,+BAAG,2CAAkB,GAAE,oDAAF;AACpB,gCAAG;AAClB,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AA2IW;AAxCE;AA9CD;AA1CS,uGAEX,WAFW;;AAEX;AAFW;AAKF,qGAEI,uBAFJ;;AAEI,4CAAY,SAPd,8CAOc,EAAZ;AAFJ;AAKR,6FAEG,gBACG,mBACT,UACA,UACC,WACG,cACA,aACL,QACC,UACS,iBAXN;;AAEG;AACG,yCxB6JE,oEwB7JF;AACT;AACA;AACC;AACG;AACA,iCAAS,YxBkID,qEwBlIC,CAAT;AACL,4BAAS,YAuBJ,oCAvBI,EAAwC,6BAAjD;AACC;AACS;AAXN;AAcC,8FAEG,iBACE,iBAHL;;AAEG,uCAhBJ,mCAgBI;AACE,sCAAU,aAjBhB,mCAiBgB,CAAV;AAHL;AAMO;;AAID;;AAIN;;AACG;;AAGH;;;AAEpB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAnBoB;;;;;;;AAutBsB;AAG5C,sBAAW,OAAO,CAAC,KAAD;AAH0B;AAzBL;AAEvC;AACA,UAAY,WAAD,QAAX,EACE,cAAsB,OAAX,iBAAc,4BAAH,CAA2B,SADnD;AAGA,yBAAe,yDAAqB,QAAC;AACrC,mBAAS;AACT,qBAAW;AACX,yBAAe;AACf,sBAAY;AACZ,0BAAgB;AAChB,wBAAc;AACd,4BAAkB;AAClB,yBAAe;AACf,iBAAO;AACP,qBAAW;AAhBuD;AAA3B;AAjBF;AAErC,UAAa,2BAAH,eAAP,MAAO,CAAV;AAEE,qBAAgC,MAAO;AACvC,wBAAmC,MAAO;AAC1C,4BAAuC,MAAO;AAC9C,0BAAqC,MAAO;AAC5C,8BAAyC,MAAO;AAChD,uBAAkC,MAAO;AACzC,2BAAsC,MAAO;AAC7C,2BAAsC,MAAO;AAC7C,mBAA8B,MAAO;AACrC,uBAAkC,MAAO;OAX3C;AAFqC;AAoCE;AAE3B,eAAZ,KAAY;AACZ;AAHuC;AAjtBjB;AAsBF,+BAAY,etJgWrB,gCsJhWqB,CAAZ;AASP;AACQ,kC1BqBA,mE0BrBA;AACN;AACG;AACI;AACF;AACI;AACP;AACI;AACA;AACR;AACI;AA1CK;AA8CC;;;AAKrB;AALqB;;;;;AAisBe;AAAP;AAG/B,eAA2C,YAAK,CAAC,KAAD;AAHjB;AAAO;AAiBC;AAG7B,kBAAK,CAAC,MAAU,KAAX;AAHwB;AAtBO;AAAf;AAE/B,eAAU;AAFqB;AAAe;AAWP;AAAR;AAE/B,eAAU;AAFqB;AAAQ;AAjBC;AAExB,sDAAC,OAAQ,sBAAT;AAChB,sBAAU;AAH8D;AAAhC;AALN;AAAH;AAE/B,eAA2C;AAFZ;AAAG;AA2BG;AAAN;AAG/B,eAAiD,yCAAC,KAAD;AAHlB;AAAM;AA5sBd;AAYH,+BAAO,UA4BN,mCA5BM,CAAP;AAZG;AAoBW,4FAAgE,YAlE5E,qCAkE4E,GAA8C,kBxBmLnH,qEwBnLmH,EAA9G;AACH,sFAAmB,U/JxD3C,2B+JwD2C,EAAyB,YAnErD,qCAmEqD,GAA8C,kBxBkL5F,qEwBlL4F,EAA1F;AAES,kGAA+D,WArEjF,qCAqEiF,EAA/D;AACH,4FAAmB,U/J3DjD,2B+J2DiD,EAAwB,WAtE1D,qCAsE0D,EAA3C;AAEP;;;AAE5B;AAF4B;;;;;AAisBiB;AAG/C,uBAAa;AAFkC;AADA;AAjsBjB;AAOM;;;AAElC;AAFkC;;;;;AA0sBiB;AAGrD,uBAAa;AAFwC;AADA;AA1sBjB;AAOf;;;AAEnB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAZmB;;;;;;;;;;;;AA0XmB;AAExC,UAAG,eAAS,KAAG,KAAf;AAEE,0BAAY;AACZ;OAHF;AAFwC;AAZD;AAEvC,UAAG,YAAQ,KAAG,KAAd,EACE,eAAW,KADb;AAFuC;AAmCU;AAEjD,4BAAiB,OAAO,CAAC,KAAD;AAFyB;AA7BN;AAG3C,yBAAe;AAH4B;AAtIM;AAEjD,UAAG,CAAI,oBAAP;AAEE,cAAM,sBAAS,QAAC,YAAM,CAAC,qBAAD,CAAN;AAChB;OAHF;AAMA,mBAAO;AACP,mBAAO;AACP,oBAAS,WAAW,CAAC,aAAO,WAAC,EAAT;AACpB,mBAAO,MAAP,GAAgB;AAChB,mBAAO,YAAP,GAAsB;AAEtB,UAAY,SAAD,QAAX;AACE,qBAAO,YAAP,GAAsB,mCAA8B,QAAC,YAAM,CAAC,SAAD,CAAN;AAClD,gBAAY,UAAD,QAAX,EACH,aAAO,YAAP,GAAsB,yCAAoC,QAAC,YAAM,CAAC,UAAD,CAAN,CADxD;AAGL,mBAAO,QAAP,GAAkB,cAAS;AAC3B,mBAAO,MAAP,GAAgB,cAAS;AAEzB,UAAY,CAAR,eAAQ,KAAE,qCAAF,CAAa,IAAgB,CAAX,gBAAW,KAAE,qCAAF,CAAzC,EACE,aAAO,MAAP,GAAgB,0BAAa,CAAC,aAAO,OAAO,WAAY,UAAW,cAAC,4CAAD,CAAtC,CAD/B;AAGA,mBAAO,MAAP,GAAgB,cAAS;AACzB,mBAAO,OAAP,GAAiB,cAAS;AAC1B,mBAAO,UAAP,GAAoB,cAAS;AAC7B,yBAAc,CAA4B,gDxB+CqI,KAA6B,IwB/C9L;AA5BmC;AAyFC;AAGlD;AACA;AACA;AAEA,UAAG,CAAI,oBAAP,EACE,MADF;AAGA,UAAG,cAAc,SAAjB;AAEE,cAAO,sBAAgB;AACvB,WAAG,MAAH,GAAW,cAAc;AACzB,sBAAS,MAAM,CAAC,IAAK,cAAc,cAApB;AACf,0BAAa,CAAC,IAAK,cAAN;AACb,YAAY,cAAc,YAAf,QAAX;AAEE,cAAgC,mCAAH,eAA1B,cAAc,YAAY,CAA7B;AAEE,kBAAsC,cAAc;AACpD,eAAG,UAAU,CAAC,IAAK,cAAN;AACb,eAAI,eAAJ,GAAI;WAED,UAAgC,yCAAH,eAA1B,cAAc,YAAY,CAA7B;AAEH,mBAA6C,cAAc;AAC3D,gBAAI,UAAU,CAAC,GAAD;AACd,gBAAK,eAAL,IAAK;WAJF;SARP;OANF;AAVkD;AAdP;AAG3C,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,SAAU,cAAjB,CADvB;AAEA,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,SAAU,cAAjB,CADf;AAGA,UAAY,iCAAD,QAAX,EACE,iCAA2B,CAAC,KAAM,QAAP,CAD7B;AAEA,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,QAAP,CADrB;AAV2C;AApCK;AAEhD;AACA;AAHgD;AAKhD,YAAG,mBAAH,EACE,MADF;AAGA,YAAY,cAAD,QAAX,EACE,cAAS,kBADX;AAGA,sCAAa,IAAb;AACA,8CAAqB,IAArB;AAEK;AACH,YADG,IACH;AAEE,cAAG,oCAA+B,UAAQ,0BAAwB,CAAC,oDAAwC;qBAAC;AAAD;;cAAzC,CAAlE,EACE,8BAAa,6BAA6B,kBAA1C,KADF;SAGF,UANG,IAMH;AAEE,cAAG,oCAA+B,UAAQ,0BAAwB,CAAC,qDAAyC;qBAAC;AAAD;;cAA1C,CAAlE,EACE,8BAAa,8BAA8B,kBAA3C,KADF;SAFF;AAOF,YAAW,CAAC,cAAD,SAAY,IAAI,uBAAQ,CAAC,eAAW,qDAA+B;;;;YAA3C,CAAnC,EACE,sBAAiB,sBAAsB,CAAC,wBAAD,CADzC;AA3BgD;AAEhD;AACA;AArRE;AAkR8C;;AAzFR;AAAX;AAE7B,eAAU;AAFmB;AAAW;AAmCQ;AAAnB;AAE7B,eAAU;AAFmB;AAAmB;AAqFN;AAAb;AAE7B,eAAkB,CAAC,cAAD,SAA8E,IAAtD,CAAC,sBAAD,SAAZ,IAA4C,CAAC,wBAAD,SAAZ,IAAsC,cAAS,UAAb;AAFnE;AAAa;AAlIJ;AAAT;AAE7B,eAAU;AAFmB;AAAS;AAuBG;AAAZ;AAE7B,eAAU,kCAAQ,CAAC,kCAAQ,CAAC,EAAQ,CAAT,EAAkB,kCAAQ,CAAC,EAAQ,CAAT,CAAnC;AAFW;AAAY;AAlBH;AAAT;AAE7B,eAAU;AAFmB;AAAS;AA6CC;AAAV;AAE7B,eAAU;AAFmB;AAAU;AAqIF;AAAR;AAC1B;AADkC;AAErC,qCAAU,cAAV;AADG;AADkC;AAClC;AADkC;AAAR;AAAQ;AAxKE;AAAV;AAE7B;AAEA,WAAM;AACN,eAAU,qBAAQ,CAAG,CAAC,gCAAM,CAAC,EAAD,CAAP,aAAH,CAA8E,GAA7D,GAAD,GAAK,qBAAQ,CAAI,gCAAM,CAAC,EAAD,CAAP,OAAH,CAAT,GAA0B,GAAD,GAAK,qBAAQ,CAAG,CAAC,gCAAM,CAAC,EAAD,CAAP,aAAH,CAAT,GAA0B,GAAD,GAAK,qBAAQ,CAAI,gCAAM,CAAC,EAAD,CAAP,OAAH,CAAT;AALnE;AAAU;AAaH;AAEpC;AACA,UAAc,0BAAH,eAAP,MAAO,CAAX;AAEE,0BAAoB,OAAP,OAAU,0BAAH,CAAyB;AAC7C,uBAAmB,OAAP,OAAU,0BAAH,CAAyB;AAC5C,8BAAiB,OAAO,CAAS,OAAP,OAAU,0BAAH,CAAyB,kBAAlC;OAJ1B;AAHoC;AA+DE;AACnC;AADmC;AAEtC;AACA,+BAAQ,CAAC,oDAAM,uDAAiC;;;;YAAxC;AACR,iCAAqB,4BAAuB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C;AALsC;AACnC;AA1QD;AAyQoC;AAAqB;AAArB;AAsHA;AAEpB,eAAlB,KAAkB;AAElB,UAAY,cAAD,QAAX,EACE,cAAS,kBADX;AAGA,oCAAa,IAAb;AACA,4CAAqB,IAArB;AACA,8CAAuB,IAAvB;AACA,yBAAe;AACf;AAXsC;AA1JG;AAEzC,8BAAmB,CAAC,UAAW,KAAK,GAAjB;AAFsB;AAhBM;AAG/C,8BAAmB,CAAC,KAAK,UAAW,GAAjB;AAH4B;AAzN1B;;;;;;AA4CD,+BAAO,UtJ0UjB,+BsJ1UiB,CAAP;AAKC,kCA1II,wCA0IJ;AAjDA;AAoDgB;;;AAEnC;AAFmC;;;;;AAshB6B;AAArB;AAC1C;AAD+D;AAElE,qCAAU,wBAAV;AADG;AAD+D;AAC/D;AAD+D;AAArB;AAAqB;AAKC;AAGnE,8CAAuB,KAAvB;AAHmE;AAXb;AAEtD,8CAAuB,IAAvB;AACA;AAHsD;AAhhBjB;;;AAYlB;AAufe;AAAP;AACxB;AAD+B;AAElC,qCAA+B,cAAW,QAAK,CAAC,KAAD,CAAhB,CAA/B;AADG;AAD+B;AAC/B;AAD+B;AAAP;AAAO;AAKC;AAEzB,cAAK,CAAC,MAAU,KAAX;AAFoB;AA5fhB;AAYU;;;AAE3B;AAF2B;;;;;AAkVsB;AAAd;AAClC;AADgD;AAEnD,qCAAU,wBAAV;AACA,sBAAS,IAAI,CAAC,MAAD;AAFV;AADgD;AAChD;AADgD;AAAd;AAAc;AAYE;AAErD,oBAAS,OAAO,CAAC,SAAD;AAFqC;AAlBP;AAEpC;AACV,uBAAa,wBAAmB,QAAC;AAHc;AAAD;AAYA;AAE9C,6BAAU,CAAC;;;;UAAD;AACA;AAHoC;AAxVjB;;;AAqBd;AA0lB+B;AAE9C;AACA,iCAAe,CAAC,CAAC,oBAAD,CAAD;AAH+B;AA1lB/B;;;;;;AAOS,qCA3HO,8CA2HP;AACM,2CAzHO,oDAyHP;AACb;AACU,wCAnJJ,sCAmJI;AACT,+BAtMI,qCAsMJ;AACA;AAZH;AAeuB;;;AAEpC;AACA;AAHoC;;;;;AAuYiB;AAGvD,mBAAS;AACT,qCAAc,UAAd;AAHwB;AAD+B;AAvYjB;AAWH;AAkbe;AAAP;AAE3C,eAA2D,YAAK,CAAC,KAAD;AAFrB;AAAO;AAKC;AAEzC,kBAAK,CAAC,MAAU,KAAX;AAFoC;AAnCA;AAAR;AAE3C;AACG;AAHgD;AAInD,qCAAU,IAAV;AACA,iBAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,cAAG,cAAK,CAAC,CAAD,CAAG,MAAM,KAAE,KAAnB;AAEE,yCAAU,cAAK,CAAC,CAAD,CAAG,WAAlB;AACA;WAHF;;AAJC;AAHgD;AAGhD;AAHgD;AAAR;AAAQ;AAfG;AAAX;AAE3C;AAEA,eAAU;AACV,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,YAAG,cAAK,CAAC,CAAD,CAAG,MAAM,KAAE,KAAnB;AAEE,mBAAU;AACV;SAHF;;AAPyC;AAAW;AA8BE;AAExD;AAEA,eAAe,KAAN,eAAM,GAAE,CAAF,EAAW,aAA1B;AAAI;AAEF,YAAG,cAAK,CAAC,CAAD,CAAG,MAAM,KAAE,KAAnB;AAEE,uBAAM,CAAC,cAAK,CAAC,CAAD,CAAN;AACN;SAHF;;AANsD;AAnarB;AAkBJ;AAGnB;AACA;AAJmB;;AAE7B;AAF6B;;;;;AA4T6B;AAE5D,6BAAU,CAAC;;;;UAAD;AACV,8DAAoB;AAHwC;AAbZ;AAEhD;AACA,2BAAiB,wCAAmC,QAAC;AAHJ;AAAD;AAMA;AAEhD,6BAAU,CAAC;;;;UAAD;AACV;AAHgD;AAjBU;AAE1D;AAF0D;AAI1D,YAAG,CAAI,kBAAa,YAAY,CAAC,yBAAY,CAAC,YAAD,CAAb,CAAhC;AAEE,cAAG,uBAAQ,CAAC,SAAU,aAAc;;;;cAAzB,CAAX,EACE,kBAAa,MAAI,CAAC,2CAAsC,QAAC,YAAM,CAAC,yBAAY,CAAC,YAAD,EAAgB,QAA7B,CAAN,CAAxC,CADnB;SAFF;AAJ0D;AAE1D;AAF0D;;AA8CG;AAE7D,wBAAa,aAAa,CAAC,yBAAY,CAAC,YAAD,CAAb;AAFmC;AARJ;AAAlB;AAEvC;AACG;AAHsD;AAIzD,2BAAK,kBAAa,SAAW,CAAC,yBAAY,CAAC,YAAD,CAAb,EAA7B;AACA,+BAAQ,CAAC,EAAG,aAAc;;;;YAAlB;AAFL;AAHsD;AAEzD;AACG;AAHsD;AAAlB;AAAkB;AAyBK;AAAvB;AAEvC,eAAU,kBAAa,YAAY,CAAC,yBAAY,CAAC,YAAD,CAAb;AAFI;AAAuB;AAZA;AAAvB;AAEpC;AAF2D;AAG9D,YAAG,kBAAa,YAAY,CAAC,yBAAY,CAAC,YAAD,CAAb,CAA5B;AACE,mBAAU,uBAAQ,CAAyB,UAAxB,kBAAa,SAAW,CAAC,yBAAY,CAAC,YAAD,CAAb,GAA8B,aAAc,QAArE;;AAGlB,uBAAY,IAAZ;AACA,mBAAU;;AARkD;AAE3D;AAF2D;AAAvB;AAAuB;AApBV;AAAP;AAE7C,UAAa,CAAT,aAAS,KAAE,IAAF,CAAO,IAAI,CAAI,qBAA5B,EACE,gDAAY,oCAA+B,QAAC,YAD9C;AAEA,eAAU;AAJmC;AAAO;AAnUrB;AA4jBjC;AAEiC,yDAA/B,GAAoD;AACpD;AACA;AAJF;AAn4BA,GA0Vc,sGA1Vd;ACAA,2CAmCS,mSAnCT;;;;AAmE8B,sCAAG,2CAAkB,GAAE,2DAAF;AACpB,uCAAG;AAEzB,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AAWQ,4BAAG,wBAkBrB,GAjBE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,2BAAF;AAEgB,0BAAG,wBAsBnB,GArBE,yJAAF,GACE,uJAAF,GACE,uJAAF,GACE,uJAAF,GACE,uJAAF,GACE,wJAAF,GACE,wJAAF,GACE,wJAAF,GACE,wJAAF,GACE,wJAAF,GACE,wJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,6DAAF;AAE6B,uCAAG,wBAwBhC,GAvBE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yBAAF;AAEwB,kCAAG,wBAuB3B,GAtBE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,oCAAF;AAEqB,+BAAG,wBAwBxB,GAvBE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,yJAAF,GACE,aAAF;AAsU4B;AAnFD;AApBG;AA5EW;AAqBZ;AA1DW;AApGX;;AACK;;AAEG;;;AAEnC;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAVmC;AAu/E6B;AAArB;AAE7C,eAAU,mBAAc,KAAG,CAAH;AAFqB;AAAqB;AAKJ;AAG9D,4BAAkB;AAH4C;AAxBR;AAEtD;AACA,0BAAe;AACf,wBAAa;AACb,6BAAkB;AAClB,gCAAqB;AACrB,qCAA0B;AAC1B,0BAAe;AACf,0BAAe;AACf,4BAAiB,GAAjB;AACA,kCAAuB;AAXgC;AAAD;AAhBF;AAEpD,UAAa,0CAAH,eAAP,MAAO,CAAV;AAEE,4BAAwB,OAAP,OAAU,0CAAH,CAAyC;AACjE,0BAAsB,OAAP,OAAU,0CAAH,CAAyC;AAC/D,+BAA2B,OAAP,OAAU,0CAAH,CAAyC;AACpE,kCAA8B,OAAP,OAAU,0CAAH,CAAyC;AACvE,uCAAmC,OAAP,OAAU,0CAAH,CAAyC;AAC5E,4BAAwB,OAAP,OAAU,0CAAH,CAAyC;AACjE,4BAAwB,OAAP,OAAU,0CAAH,CAAyC;AACjE,8BAA0B,OAAP,OAAU,0CAAH,CAAyC;AACnE,oCAAgC,OAAP,OAAU,0CAAH,CAAyC;OAV3E;AAFoD;AA8BE;AAEtD;AAFsD;AAl/EjB;AAcjB;AAIE;AACF;AACK;AACG;AACK;AACX,mClJ0IhB,uCkJ1IgB;AACA;AACE;AACM,2ClJuIxB,uCkJvIwB;AA1BO;AA6BD;;AAEP;;;AAE3B;AACA;AACA;AACA;AACA;AACA;AACA;AAR2B;;;;;AA66EoB;AAGjD,oBAAS,OAAO,CAAC,KAAD;AAHiC;AAlBH;AAE9C;AACA,6BAAmB;AACnB,yBAAe;AACf,uCAA6B;AAC7B,yBAAe;AACf,uBAAa,0CAAqC,QAAC;AACnD,qBAAW;AACX,yBAAe;AATgC;AAAD;AAdF;AAE5C,UAAa,kCAAH,eAAP,MAAO,CAAV;AAEE,2BAAuB,OAAP,OAAU,kCAAH,CAAiC;AACxD,yCAAqC,OAAP,OAAU,kCAAH,CAAiC;AACtE,2BAAuB,OAAP,OAAU,kCAAH,CAAiC;AACxD,sBAAS,OAAO,CAAS,OAAP,OAAU,kCAAH,CAAiC,UAA1C;AAChB,+BAA2B,OAAP,OAAU,kCAAH,CAAiC;AAC5D,uBAAmB,OAAP,OAAU,kCAAH,CAAiC;AACpD,2BAAuB,OAAP,OAAU,kCAAH,CAAiC;OAR1D;AAF4C;AA0BE;AAEpC,eAAV,KAAU;AACV;AAH8C;AAv6EjB;AAWT;AAIC;AACc;AACd,kCZrMM,oEYqMN;AACF,gCAjDkB,oDAiDlB;AACM;AACR;AACI,kC3B1HA,mE2B0HA;AArBQ;AAyBQ;;;AAKnC;AALmC;;;;;AAy0Ee;AAAP;AAG7C,eAA0C,YAAK,CAAC,KAAD;AAHF;AAAO;AAiBC;AAG3C,kBAAK,CAAC,MAAU,KAAX;AAHsC;AAtBO;AAAf;AAE7C,eAAU;AAFmC;AAAe;AAWP;AAAR;AAE7C,eAAU;AAFmC;AAAQ;AAjBC;AAEtC,sDAAC,OAAQ,sBAAT;AAChB,sBAAU;AAHoF;AAAxC;AALN;AAAH;AAE7C,eAA0C;AAFG;AAAG;AA2BG;AAAN;AAG7C,eAAgD,yCAAC,KAAD;AAHH;AAAM;AAp1Ed;AAYjB,+BAAO,UAuFE,2CAvFF,CAAP;AAZiB;AAkBP;;AAEJ;;;AAExB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAfwB;;;;;;;;;AAw7EiB;AAE3C,oCAAoB,qDAApB;AACA,kCAAkB,qDAAlB;AACA,yBAAe;AACf,4BAAkB;AAClB,uBAAa;AACb,0BAAgB;AAChB,mBAAS;AACC,0BAAD,sBAAC,0BAAiB,CAAlB;AATmC;AAAD;AAYA;AAE3C,uBAAa;AACb;AAH2C;AAp8EjB;AAeF,yEAgEK,mDAhEL;AAfE;AAqBc;;;AAEtC;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAZsC;;;;;;;;;AAshEmB;AAAX;AAEhD;AACA;AAEU,YAAD,sBAAC,oEAAQ,CAAT;AACC,YAAD,sBAAC,oEAAQ,iBAAW,SAAC,EAArB;AACT,eAAS,QAAuB,OAAlB,iBAAW,SAAC,EAAM,GAAE,CAAF,kBAAhC;AAAI;AAEF,kBAAK,qDAAL;AACA,SAAC,SAAD,GAAc,iBAAW,WAAC,CAAD,CAAG,YAAC;AAC7B,SAAC,UAAD,GAAe,iBAAW,WAAC,CAAD,CAAG,aAAC;AAC9B,cAAM,CAAC,CAAD,UAAO,CAAP;;AAZwC;AAAW;AA5BI;AAG/D,uBAAY,OAAO,CAAC,KAAD;AAH4C;AA4CL;AAAV;AAEhD,eAAU;AACV,UAAY,WAAD,QAAX,EACE,SAAU,WAAM,WAAC,EADnB;AAHgD;AAAU;AAtCD;AAEzD;AACA,UAAW,CAAC,WAAD,SAAc,IAAmB,8CAAH,eAAX,gBAAW,CAAzC,EACE,cAAsB,OAAX,iBAAc,8CAAH,CADxB;AAGA,8BAAoB,yDAAqB,QAAC;AAC1C,4BAAkB,yDAAqB,QAAC;AAExC,0BAAgB,0DAAsB,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,uBAAa;AACb,uBAAa;AAXuE;AAA3B;AAlBF;AAEvD,UAAa,6CAAH,eAAP,MAAO,CAAV;AAEE,yBAAY,OAAO,CAA0C,MAAO,aAAjD;AACnB,yBAAsD,MAAO;AAC7D,yBAAsD,MAAO;AAC7D,6BAAgB,OAAO,CAAS,OAAP,OAAU,6CAAH,CAA4C,iBAArD;AACvB,2BAAc,OAAO,CAAS,OAAP,OAAU,6CAAH,CAA4C,eAArD;OANvB;AAFuD;AAgCE;AAE5C,eAAb,KAAa;AACI,eAAjB,KAAiB;AACF,eAAf,KAAe;AACf;AALyD;AA9gEjB;AAiBpB,+BAAY,evJgJrB,gCuJhJqB,CAAZ;AAWE,mC3BvFA,oE2BuFA;AACH;AACA;AAEO,uC3BhML,mE2BgMK;AACF,qC3BjMH,mE2BiMG;AAjCgB;AAqCC;;;AAKvC;AALuC;;;;;AA0hEe;AAAP;AAGjD,eAA6D,YAAK,CAAC,KAAD;AAHjB;AAAO;AAsBC;AAG/C,kBAAK,CAAC,MAAU,KAAX;AAH0C;AAXE;AAAV;AAEjD,eAAU;AAFuC;AAAU;AAhBK;AAAf;AAEjD,eAAU;AAFuC;AAAe;AAWP;AAAR;AAEjD,eAAU;AAFuC;AAAQ;AAjBC;AAE1C,sDAAC,OAAQ,sBAAT;AAChB,sBAAU;AAHwF;AAAxC;AALN;AAAH;AAEjD,eAA6D;AAFZ;AAAG;AAgCG;AAAN;AAGjD,eAAmE,yCAAC,KAAD;AAHlB;AAAM;AA1iEd;AAarB,+BAAO,UAQE,2CARF,CAAP;AAbqB;AAqBZ;;;AAE3B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAhB2B;;;;;;;;;;AA40DmB;AAAX;AAErC;AACA;AAEU,YAAD,sBAAC,oEAAQ,CAAT;AACC,YAAD,sBAAC,oEAAQ,iBAAW,SAAC,EAArB;AACT,eAAS,QAAuB,OAAlB,iBAAW,SAAC,EAAM,GAAE,CAAF,kBAAhC;AAAI;AAEF,kBAAK,qDAAL;AACA,SAAC,SAAD,GAAc,iBAAW,WAAC,CAAD,CAAG,YAAC;AAC7B,SAAC,UAAD,GAAe,iBAAW,WAAC,CAAD,CAAG,aAAC;AAC9B,cAAM,CAAC,CAAD,UAAO,CAAP;;AAZ6B;AAAW;AAuBA;AAAX;AAErC,eAAU;AAF2B;AAAW;AAzDI;AAGpD,uBAAY,OAAO,CAAC,KAAD;AAHiC;AA8DD;AAAd;AAErC;AAEA,eAAU;AAEV,UAAG,CAAY,CAAC,WAAD,SAAf,EACE,aADF;AAGA,UAAK,IAAI,SAAC;AACV,UAAM,CAAF,CAAE,GAAE,CAAF,CAAK,GAAE,WAAM,SAAC,EAApB,EACE,SAAU,WAAM,WAAC,CAAE,GAAE,CAAL,CADlB;AAVqC;AAAc;AAcI;AAAlB;AAErC;AAEA,eAAU;AAEV,UAAG,CAAY,CAAC,WAAD,SAAf,EACE,aADF;AAGA,UAAK,IAAI,SAAC;AACV,UAAM,CAAF,CAAE,GAAE,CAAF,CAAK,IAAO,CAAF,CAAE,GAAE,WAAM,SAAC,EAAT,CAAlB,EACE,SAAU,WAAM,WAAC,CAAE,GAAE,CAAL,CADlB;AAVqC;AAAkB;AA1BV;AAAR;AAErC,eAAU;AACV,UAAY,kBAAD,QAAX,EACE,SAAU,kBAAQ,SAAC,EADrB;AAHqC;AAAQ;AAxDe;AAG5D,+BAAoB,OAAO,CAAC,KAAD;AAHiC;AAYd;AAE9C;AACA,UAAW,CAAC,WAAD,SAAc,IAAmB,mCAAH,eAAX,gBAAW,CAAzC,EACE,cAAsB,OAAX,iBAAc,mCAAH,CADxB;AAGA,mBAAO;AACP,2BAAiB;AACjB,yBAAe;AACf,8BAAoB,yDAAqB,QAAC;AAC1C,4BAAkB,yDAAqB,QAAC;AAExC,0BAAgB,0DAAsB,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,uBAAa;AACb,uBAAa;AAEb,kCAAwB,8CAAyC,QAAC,YAAM,CAAC,IAAD,CAAN;AAhBO;AAA3B;AA3BF;AAE5C,UAAa,kCAAH,eAAP,MAAO,CAAV;AAEE,yBAAY,OAAO,CAA+B,MAAO,aAAtC;AACnB,yBAA2C,MAAO;AAClD,yBAA2C,MAAO;AAClD,qBAAe,OAAP,OAAU,kCAAH,CAAiC;AAChD,6BAAyB,OAAP,OAAU,kCAAH,CAAiC;AAC1D,2BAAuB,OAAP,OAAU,kCAAH,CAAiC;AACxD,6BAAgB,OAAO,CAAS,OAAP,OAAU,kCAAH,CAAiC,iBAA1C;AACvB,2BAAc,OAAO,CAAS,OAAP,OAAU,kCAAH,CAAiC,eAA1C;OATvB;AAF4C;AA8CE;AAEzB,eAArB,KAAqB;AACR,eAAb,KAAa;AACI,eAAjB,KAAiB;AACF,eAAf,KAAe;AACf;AAN8C;AAn0DjB;AA0BT,+BAAY,evJ6ErB,gCuJ7EqB,CAAZ;AAcP;AAEiB,2CA/DW,wDA+DX;AAER,mC3BjKA,oE2BiKA;AACH;AACA;AAEI;AACF;AACK,uC3B5QL,mE2B4QK;AACF,qC3B7QH,mE2B6QG;AAnDK;AAuDC;;;AAK5B;AAL4B;;;;;AA+1De;AAAP;AAGtC,eAAkD,YAAK,CAAC,KAAD;AAHjB;AAAO;AAsBC;AAGpC,kBAAK,CAAC,MAAU,KAAX;AAH+B;AAXA;AAAR;AAEtC,eAAU;AAF4B;AAAQ;AAhBO;AAAf;AAEtC,eAAU;AAF4B;AAAe;AAWP;AAAR;AAEtC,eAAU;AAF4B;AAAQ;AAjBC;AAE/B,sDAAC,OAAQ,sBAAT;AAChB,sBAAU;AAH2E;AAAtC;AALN;AAAH;AAEtC,eAAkD;AAFZ;AAAG;AAgCG;AAAN;AAGtC,eAAwD,yCAAC,KAAD;AAHlB;AAAM;AA/2Dd;AAaV,+BAAO,UAOA,yCAPA,CAAP;AAbU;AAoBH;;;AAEzB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAhByB;;;;;;;;;;AA8hEmB;AAAX;AAEnC;AAAG;AAAG;AACN;AAEU,YAAD,sBAAC,oEAAQ,CAAT;AACT,UAAK;AACL,eAAS,QAAoB,OAAf,cAAQ,SAAC,EAAM,GAAE,CAAF,kBAA7B;AAAI;AAEF,iBAAS,SAAmC,QAA9B,cAAQ,WAAC,CAAD,CAAG,aAAY,SAAC,EAAM,GAAE,CAAF,qBAA5C;AAAI;AAEQ,gBAAD,sBAAC,oEAAQ,CAAE,GAAE,CAAb;AACT,oBAAK,qDAAL;AACA,WAAC,SAAD,GAAc,cAAQ,WAAC,CAAD,CAAG,aAAY,WAAC,CAAD,CAAG,YAAC;AACzC,WAAC,UAAD,GAAe,cAAQ,WAAC,CAAD,CAAG,aAAY,WAAC,CAAD,CAAG,aAAC;AAC1C,gBAAM,CAAC,CAAD,UAAO,CAAP;AACN,cAAK,CAAE,GAAE,CAAF;;;AAhBwB;AAAW;AA0BC;AAAZ;AAEnC;AAAG;AACH;AAEA,eAAU;AACV,UAAG,cAAQ,SAAC,EAAM,KAAE,CAApB,EACE,aADF;AAGA,UAAK,cAAQ,SAAC;AACJ,YAAD,sBAAC,oEAAQ,CAAE,GAAE,CAAb;AACT,eAAS,QAAoB,OAAf,cAAQ,SAAC,EAAM,GAAE,CAAF,kBAA7B;AAAI;AAEF,kBAAK,qDAAL;AACA,SAAC,SAAD,GAAc,cAAQ,WAAC,CAAD,CAAG,iBAAgB;AACzC,SAAC,UAAD,GAAe,cAAQ,WAAC,CAAD,CAAG,iBAAgB;AAC1C,SAAC,YAAD,GAAiB,cAAQ,WAAC,CAAD,CAAG;AAC5B,cAAM,CAAC,CAAD,UAAO,CAAP;;AAGR,gBAAK,qDAAL;AACA,OAAC,SAAD,GAAc,cAAQ,WAAC,CAAE,GAAE,CAAL,CAAO,eAAc;AAC3C,OAAC,UAAD,GAAe,cAAQ,WAAC,CAAE,GAAE,CAAL,CAAO,eAAc;AAC5C,OAAC,YAAD,GAAiB,cAAQ,WAAC,CAAE,GAAE,CAAL,CAAO;AAChC,YAAM,CAAC,CAAD,UAAO,CAAP;AAxB6B;AAAY;AA5CD;AAAX;AAEnC;AAEA,eAAU;AACV,eAAS,QAAoB,OAAf,cAAQ,SAAC,EAAM,GAAE,CAAF,kBAA7B;AAAI;AACF,iBAAU,MAAO,GAAE,cAAQ,WAAC,CAAD,CAAG,UAAb;;AANgB;AAAW;AASA;AAAX;AAEnC;AAEA,eAAU;AACV,eAAS,QAAoB,OAAf,cAAQ,SAAC,EAAM,GAAE,CAAF,kBAA7B;AAAI;AACF,iBAAU,MAAO,GAAE,cAAQ,WAAC,CAAD,CAAG,UAAb;;AANgB;AAAW;AA8BO;AAAlB;AAEnC,eAAU;AAFyB;AAAkB;AA9ET;AAE5C,iBAAM,OAAO,CAAC,KAAD;AAF+B;AAKA;AAE5C;AACA,UAAW,CAAC,WAAD,SAAc,IAAmB,iCAAH,eAAX,gBAAW,CAAzC,EACE,cAAsB,OAAX,iBAAc,iCAAH,CAAgC,mBAAC,EADzD;AAGA,uBAAa,mCAA8B,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,mBAAO;AACP,2BAAiB;AACjB,yBAAe;AACf,wBAAc;AACd,qBAAW;AACX,8BAAoB,yDAAqB,QAAC;AAC1C,4BAAkB,yDAAqB,QAAC;AACxC,oBAAU,qDAAsB,QAAC,YAAM,CAAC,IAAD,CAAN;AAdsC;AAA3B;AAjBF;AAE1C,UAAa,gCAAH,eAAP,MAAO,CAAV;AAEE,sBAAS,OAAO,CAAS,OAAP,OAAU,gCAAH,CAA+B,UAAxC;AAChB,qBAAe,OAAP,OAAU,gCAAH,CAA+B;AAC9C,0BAAsB,OAAP,OAAU,gCAAH,CAA+B;AACrD,uBAAmB,OAAP,OAAU,gCAAH,CAA+B;AAClD,mBAAM,OAAO,CAAS,OAAP,OAAU,gCAAH,CAA+B,OAAxC;OANf;AAF0C;AAkCE;AAErC,eAAP,KAAO;AACU,eAAjB,KAAiB;AACF,eAAf,KAAe;AACL,eAAV,KAAU;AACV;AAN4C;AASG;AAAZ;AAEnC,UAAG,cAAQ,SAAC,EAAM,GAAE,CAApB;AACE,iBAAU,cAAQ,WAAC,CAAD;AAElB,qBAAU;AALuB;AAAY;AA+ED;AAAX;AAEnC,UAAG,cAAQ,SAAC,EAAM,GAAE,CAApB;AACE,iBAAU,cAAQ,WAAC,cAAQ,SAAC,EAAM,GAAE,CAAlB;AAElB,qBAAU;AALuB;AAAW;AAnlEnB;AAwBP,+BAAY,evJIrB,gCuJJqB,CAAZ;AAgBP;AACO;AACJ,6BZ1SM,+DY0SN;AACG,gCA/DW,6CA+DX;AACF;AA5CU;AAgDC;;;AAK1B;AAL0B;;;;;AA6jEe;AAAP;AAGpC,eAAgD,YAAK,CAAC,KAAD;AAHjB;AAAO;AAsBC;AAGlC,kBAAK,CAAC,MAAU,KAAX;AAH6B;AAXU;AAAlB;AAEpC,eAAU;AAF0B;AAAkB;AAhBH;AAAf;AAEpC,eAAU;AAF0B;AAAe;AAWP;AAAR;AAEpC,eAAU;AAF0B;AAAQ;AAjBC;AAE7B,sDAAC,OAAQ,sBAAT;AAChB,sBAAU;AAH0E;AAAvC;AALN;AAAH;AAEpC,eAAgD;AAFZ;AAAG;AAgCG;AAAN;AAGpC,eAAsD,yCAAC,KAAD;AAHlB;AAAM;AA7kEd;AAaR,+BAAO,UAsBC,0CAtBD,CAAP;AAbQ;AAsBgB,sGAA8D,UAtE/E,0CAsE+E,EAA9D;AACH,gGAAmB,UhKtZrD,2BgKsZqD,EAAuB,UAvExD,0CAuEwD,EAA1C;AACS,yGAAmB,UhKvZ9D,2BgKuZ8D,CAAnB;AACf,0FAAmB,UhKxZ/C,2BgKwZ+C,EAA4B,e3Bje1D,sE2Bie0D,EAA/C;AACL,qFAAmB,UhKzZ1C,2BgKyZ0C,EAAuB,UA1E7C,0CA0E6C,EAA1C;AAEY;;;AAExC;AAFwC;;;;;AAknEiB;AAG3D,uBAAa;AAF4C;AADE;AAlnEjB;AAOd;;;AAE1B;AACA;AAIA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAtB0B;;;;;;;;;;;;;;;;;;;AAw3CmB;AAE/C,UAAG,aAAS,KAAG,KAAf;AAEE,sBAAS,aAAC,CAAW,4DAAX;AAEV,wBAAY;AACP;AACH,YADG,IACH;AAEE,yBAAU,aAAC,CAAW,6DAAX;AACX,0BAAW,aAAC,CAAW,+DAAX;SAEd,UANG,IAMH;AAEE,yBAAU,aAAC,CAAW,4DAAX;AACX,0BAAW,aAAC,CAAW,8DAAX;SAEd,UAXG,IAWH;AAEE,yBAAU,aAAC,CAAW,8DAAX;AACX,0BAAW,aAAC,CAAW,gEAAX;SAEd,UAhBG,IAgBH;AAEE,yBAAU,aAAC,CAAW,4DAAX;AACX,0BAAW,aAAC,CAAW,8DAAX;SAEd,UArBG,IAqBH;AAEE,yBAAU,aAAC,CAAW,8DAAX;AACX,0BAAW,aAAC,CAAW,gEAAX;SAEd,UA1BG,IA0BH;AAEE,yBAAU,aAAC,CAAW,wEAAX;AACX,0BAAW,aAAC,CAAW,0EAAX;SAEd,UA/BG,IA+BH;AAEE,yBAAU,aAAC,CAAW,gEAAX;AACX,0BAAW,aAAC,CAAW,kEAAX;SAHd;OApCJ;AAF+C;AAZD;AAE9C,UAAG,YAAQ,KAAG,KAAd,EACE,eAAW,KADb;AAF8C;AAMA;AAG9C,kBAAO,OAAO,CAAC,KAAD;AAHgC;AA9gBO;AAAjB;AAEpC,UAAG,CAAY,CAAC,oBAAD,SAAf,EACE,uBAAmB,yCAAoC,QAAC,YAAM,CAAC,YAAD,CAAN,CAD1D;AAGA,eAAU;AAL0B;AAAiB;AA6TF;AAGnD;AACA;AAEA,UAAK;AACL,UAAG,cAAc,SAAjB;AAEE,YAAW,CAAC,QAAQ,aAAT,SAAuB,IAAsC,+BAAH,eAAtB,QAAQ,aAAc,CAArE;AAEE,cAAgC,QAAQ;AAExC,cAAG,QAAQ,OAAM,SAAC,EAAM,GAAE,CAA1B;AAEE,gBAAG,QAAQ,MAAI,KAAE,OAAjB;AAEE,eAAC,YAAD,GAAiB;AACjB,eAAC,iBAAC,SAAoB,QAAQ,OAAM,WAAC,CAAD,CAAG,YAAW,SAAC,EAAjD;AACF,eAAC,cAAD,GAAmB,QAAQ,OAAM,WAAC,CAAD,CAAG;aAEjC,UAAG,QAAQ,MAAI,KAAE,KAAjB;AAEH,eAAC,UAAD,GAAe;AACf,eAAC,eAAC,SAAkB,QAAQ,OAAM,WAAC,CAAD,CAAG,YAAW,SAAC,EAA/C;AACF,eAAC,YAAD,GAAiB,QAAQ,OAAM,WAAC,CAAD,CAAG;aAE/B,UAAG,QAAQ,MAAI,KAAE,UAAjB;AAEH,eAAC,YAAD,GAAiB;AACjB,eAAC,eAAD,GAAoB;AACpB,eAAC,cAAD,GAAmB,QAAQ,OAAM,WAAC,CAAD,CAAG;aAEjC,UAAG,QAAQ,MAAI,KAAE,QAAjB;AAEH,eAAC,UAAD,GAAe;AACf,eAAC,aAAD,GAAkB;AAClB,eAAC,YAAD,GAAiB,QAAQ,OAAM,WAAC,CAAD,CAAG;aAJ/B;WApBP;AA4BA,cAAG,CAAC,eAAgB,IAAI,CAAC,aAAzB;AAEE,gBAAI,eAAU,gBAAgB,CAAC,KzB5uCqD,EyB4uCtD,CAAO,KAAE,CAAvC;WAFF;AASA,cAAG,CAAC,YAAa,IAAI,CAAC,UAAtB;AAEE,gBAAI,CAAC,MAAO,KAAE,oDAAd;AACE,gCAAa,CAAE,oEAAD,CAAC,mBAAoB,oEAAD,CAAC,iBAAiB,KAAK,CAAC,YAAa,CAAC,KAAM,CAAjE;AACV,sBAAG,CAAC,MAAO,KAAE,uDAAb;AAEH,uBAAS,QAA+B,OAApB,WAAC,CAAC,gBAAF,CAAoB,GAAE,CAAF,kBAAxC;AAAI;AACF,yCAAkB,CAAC,CAAC,gBAAgB,CAAC,CAAD,EAAM,oEAAD,CAAC,mBAAoB,oEAAD,CAAC,iBAA4D,CAAC,UAAW,WAAY,CAAC,KAAM,IAAvI;;AAEpB,eAAE,eAAF,CAAE;aALC;WAJP;SAzCF;OAFF;AA0DA,UAAY,CAAD,QAAX;AAEE,YAAG,CAAC,MAAO,KAAG,8CAAd;AAEE,cAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,SAAU,cAAjB,CADrB;SAIA,MAAA,CAAE,eAAF,CAAE;;AAIJ,YAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,SAAU,cAAjB,CADhB;;AA7EiD;AA3IC;;AAIpD;AACA;AACA;AACA;AACA;AAAG;AACH;AAEkB;AAEhB;AACA;AACA;AACA;AAEA,gBAAQ,aAAY,OAAO,CAAC,IAAI,aAAL;AAC3B,YAAG,IAAI,cAAc,KAAG,EAAxB;AACE,kBAAQ,cAAR,GAAyB,IAAI;AAE7B,cAAA,QAAQ,cAAR,GAAyB,CAAC;AAC5B,YAAG,IAAI,YAAY,KAAG,EAAtB;AACE,kBAAQ,YAAR,GAAuB,IAAI;AAE3B,cAAA,QAAQ,YAAR,GAAuB,CAAC;AAC1B,gBAAQ,iBAAgB,OAAO,CAAC,IAAI,eAAL;AAC/B,gBAAQ,eAAc,OAAO,CAAC,IAAI,aAAL;AAC7B,gBAAQ,UAAR,GAAqB,IAAI;AACzB,gBAAQ,UAAR,GAAqB,IAAI;AAEzB,gBAAQ,qBAAoB;AAE5B,iBAAS,QAA0B,OAArB,QAAQ,OAAM,SAAC,EAAM,GAAE,CAAF,kBAAnC;AAAI;AAEF,eAAM,QAAQ,OAAM,WAAC,CAAD;AAEpB,cAAG,EAAE,MAAK,SAAC,EAAM,GAAE,CAAnB;AAEE,gBAAe,CAAX,IAAI,SAAC,EAAM,IAAG,CAAH,CAAM,IAAgB,CAAX,IAAI,SAAC,EAAM,IAAiB,CAAd,EAAE,MAAK,SAAC,EAAM,GAAE,CAAF,CAAjB,CAArC;AAEE,mBAAM,EAAE,MAAK,WAAC,IAAI,SAAC,EAAN;AACb,mBAAM,QAAQ,qBAAoB;AAClC,gBAAE,aAAY,OAAO,CAAC,EAAE,aAAH;AACrB,gBAAE,iBAAgB,OAAO,CAAC,EAAE,eAAH;AACzB,gBAAE,eAAc,OAAO,CAAC,EAAE,aAAH;AACvB,gBAAE,UAAF,GAAe,EAAE;AACjB,gBAAE,UAAF,GAAe,EAAE;aARnB;WAFF;;AA3Bc;AA4ClB,UAAK;AACL,UAAG,cAAc,SAAjB;AAEE,YAAW,CAAC,QAAQ,aAAT,SAAuB,IAAsC,+BAAH,eAAtB,QAAQ,aAAc,CAArE;AAEE,cAAgC,QAAQ;AACxC,cAAY,CAAD,QAAX;AAEE,gBAAG,QAAQ,OAAM,SAAC,EAAM,KAAE,CAA1B;AACE,mCAAgB,CAAC,KAAK,CAAN;;AAGhB,kBAAG,aAAO,gBAAV;AAEE,oBAAG,wBAAc,SAAC,EAAM,KAAE,CAA1B,EACE,wBAAc,UAAU,CAAC,YAAD,CAD1B;eAFF;AAMA,kBAAK,QAAQ,OAAM,WAAC,CAAD;AAEnB,kBAAY,CAAC,aAAF,QAAX;AAEE,oBAAK,CAAC;AACN,iBAAC,OAAM;AACP,yBAAS,QAAmB,OAAd,CAAC,OAAM,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AACF,mBAAC,OAAM,QAAI,OAAO,CAAC,CAAC,OAAM,WAAC,CAAD,CAAR;;;AAIpB,oBAAK,YAAM;AACX,iBAAC,MAAD,GAAQ,CAAC;AACT,iBAAC,OAAM,OAAO,CAAC,CAAC,OAAF;;AAGhB,kBAAS,WAAC,CAAC,gBAAF,CAAoB,GAAE,CAA/B;AAEE,yBAAS,SAA+B,QAApB,WAAC,CAAC,gBAAF,CAAoB,GAAE,CAAF,qBAAxC;AAAI;AAEF,sBAAK,CAAC,gBAAgB,CAAC,CAAD;AACtB,sBAAG,CAAE,IAAgB,CAAb,CAAC,MAAK,SAAC,EAAM,GAAE,CAAF,CAArB,EACE,QAAQ,CAAC,EAAG,CAAC,MAAK,WAAC,CAAD,CAAV,CADV;;AAIF,sBAAO,CAAC,gBAAgB,CAAO,WAAC,CAAC,gBAAF,CAAoB,GAAE,CAA7B;AAExB,yBAAe,iBAAC,CAAC,gBAAF,GAAoC,QAAb,CAAC,MAAK,SAAC,EAAM,GAAE,CAAF,qBAAnD;AAAI;AAEF,sBAAK,CAAC,UAAS,SAAO,CAAC,GAAG,SAAC,EAAM,GAAE,CAAb;AACtB,0BAAQ,CAAC,EAAG,CAAC,MAAK,WAAC,CAAD,CAAV;;;AAKV,yBAAS,SAAkB,QAAb,CAAC,MAAK,SAAC,EAAM,GAAE,CAAF,qBAA3B;AAAI;AAEF,sBAAK,CAAC,UAAS;AACf,sBAAK,CAAC,MAAK,WAAC,CAAD;AACX,0BAAQ,CAAC,EAAG,CAAJ;;;AAIZ,kBAAG,aAAO,gBAAV,EACE,wBAAc,UAAU,CAAC,aAAc,GAAE,qBAAQ,CAAC,wBAAc,SAAC,EAAhB,CAAzB,CAD1B;AAGA,mCAAgB,CAAC,EAAG,CAAJ;;WA1DpB;SAHF;OAFF;AAqEA,UAAY,CAAD,QAAX;AAEE,YAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,MAAM,SAAU,cAAjB,CADtB;AAGA,SAAE,eAAF,CAAE;;AAIF,YAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,MAAM,SAAU,cAAjB,CADjB;;AAtIkD;AAnCC;AAErD;AAEA,UAAG,CAAY,CAAC,MAAD,SAAS,IAAG,CAAY,CAAC,UAAD,SAAvC,EACE,MADF;AAGA,UAAY,UAAU,UAAX,QAAX;AAEE,cAAkD,UAAU;AAC5D,WAAG,UAAU,CAAC,MAAD;AACb,WAAI,eAAJ,GAAI;OAJN;AAOA,UAAY,sBAAD,QAAX,EACE,sBAAwB,CAAC,KAAM,MAAP,CAD1B;AAGA,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,MAAP,CADlB;AAjBqD;AAgQH;AAIlD,UAAG,CAAI,cAAc,SAArB,EACE,MADF;AAGA,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,QAAQ,YAAW,SAAC,EAA3B,CADf;AAPkD;AApOG;AAGrD,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,UAAP,CADlB;AAHqD;AAPE;AAGvD,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,UAAP,CADpB;AAHuD;AAsPI;AAG3D,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,MAAP,CADxB;AAH2D;AAlZZ;AAAX;AAEpC,eAAU;AAF0B;AAAW;AAgIG;AAAd;AAEpC,UAAY,eAAD,QAAX,EACE,eAAU,UAAC,CAAU,YAAV,CADb;AAEA,eAAkB,CAAC,eAAD,SAAa,IAAuB,CAAlB,eAAU,QAAQ,KAAG,EAAH,CAAvB;AAJK;AAAc;AAkoBC;AAAf;AAEpC,UAAY,gBAAD,QAAX,EACE,gBAAW,UAAC,CAAU,YAAV,CADd;AAEA,eAAkB,CAAC,gBAAD,SAAc,IAAwB,CAAnB,gBAAW,QAAQ,KAAG,EAAH,CAAxB;AAJI;AAAe;AAv4BF;AAAb;AAEpC,UAAY,cAAD,QAAX,EACE,cAAS,UAAC,CAAU,YAAV,CADZ;AAEA,eAAkB,CAAC,cAAD,SAAY,IAAsB,CAAjB,cAAS,QAAQ,KAAG,EAAH,CAAtB;AAJM;AAAa;AA/iBJ;AAAT;AAEpC,eAAU;AAF0B;AAAS;AAqeG;AAAZ;AAEpC,eAAU,kCAAQ,CAAC,kCAAQ,CAAC,EAAQ,CAAT,EAAkB,kCAAQ,CAAC,EAAQ,CAAT,CAAnC;AAFkB;AAAY;AAbH;AAAT;AAEpC,eAAU;AAF0B;AAAS;AA4OC;AAAV;AAEpC,eAAU;AAF0B;AAAU;AAvOA;AAAV;AAEpC;AAEA,WAAM;AACN,eAAU,qBAAQ,CAAG,CAAC,gCAAM,CAAC,EAAD,CAAP,aAAH,CAA8E,GAA7D,GAAD,GAAK,qBAAQ,CAAI,gCAAM,CAAC,EAAD,CAAP,OAAH,CAAT,GAA0B,GAAD,GAAK,qBAAQ,CAAG,CAAC,gCAAM,CAAC,EAAD,CAAP,aAAH,CAAT,GAA0B,GAAD,GAAK,qBAAQ,CAAI,gCAAM,CAAC,EAAD,CAAP,OAAH,CAAT;AAL5D;AAAU;AAtHK;AAAf;AAIpC;AAEA;AAAG;AACH;AAAI;AAAK;AACT;AAEA;AAAG;AAMH,UAAK,2BAAc;AACnB,UAAK,2BAAc;AACnB,iCAAc,iBAAd,GAAmC;AACnC,iCAAc,kBAAd,GAAoC;AAEpC,WAAM,MAAM;AACZ,aAAQ;AACR,eAAS,QAAgB,OAAL,WAAC,EAAD,CAAK,GAAE,CAAF,kBAAzB;AAAI;AAEF,eAAQ,IAAK,GAAE,mBAAM,CAAC,8BAA+B,mBAAM,EAAL,EAAE,CAAC,CAAD,CAAG,UAAgB,EAAL,EAAE,CAAC,CAAD,CAAG,UAAtB,CAAhC,CAAR;AACb,YAAG,EAAE,CAAC,CAAD,CAAG,aAAR,EACE,OAAQ,IAAK,GAAE,mBAAM,CAAC,kBAAmB,mBAAuB,EAAtB,MAAM,eAAa,CAAC,CAAD,CAAG,UAAvB,CAApB,CADvB;AAEA,YAAG,EAAE,CAAC,CAAD,CAAG,YAAa,KAAG,EAAxB,EACE,OAAQ,IAAoC,GAA7B,QAAF,GAAa,EAAE,CAAC,CAAD,CAAG,YAAP,GAAsB,SADhD;AAEA,eAAQ,IAAK,GAAE,QAAF;;AAGf,YACE,uBAWiB,GAVjB,0GADuB,GAEvB,kLAD0G,GAE1G,YADkL,GAElL,UADY,GAEZ,iBADU,GAEV,oBADiB,GAEjB,WADoB,GAEpB,aADW,GAEX,IADa,GAEb,OADK,GAEL,iBADO,GAEP,iBADiB;AAGnB,YACE,QAAQ,GACR,QADQ;AAGV,YAAO,mBAAM,CAAC,IAAI,mBAAU,GAAT,SAAS,YAAsB,GAAT,SAAS,YAAsB,GAAT,SAAS,WAAqB,GAAT,SAAS,UAA3E,CAAL;AAEb,WAAM,uBAAW,QAAC;AAClB;AACE,UAAE,IAAI,CAAC,GAAD;AAEN,iBAAS,SAA2B,QAAtB,MAAM,UAAS,SAAC,EAAM,GAAE,CAAF,qBAApC;AAAI;AAEF,YAAE,IAAI,CAAC,UAAD;AACN,mBAAS,SAA0C,QAArC,MAAM,UAAS,WAAC,CAAD,CAAG,aAAY,SAAC,EAAM,GAAE,CAAF,qBAAnD;AAAI;AACF,cAAE,IAAI,CAAC,mBAAM,CAAC,kCAAmC,mBAAkC,EAAjC,MAAM,UAAS,WAAC,CAAD,CAAG,aAAY,WAAC,CAAD,CAAG,YAAC,GAA2C,EAAjC,MAAM,UAAS,WAAC,CAAD,CAAG,aAAY,WAAC,CAAD,CAAG,aAAC,EAA/E,CAApC,CAAP;;AACR,YAAE,IAAI,CAAC,WAAD;;AAGR,UAAE,IAAI,CAAC,GAAD;AAEN,iBAAU,EAAE,WAAC;AAbf;AAeE,UAAG,eAAH,EAAG;AAfL;AAkBA,iCAAc,kBAAd,GAAoC;AACpC,iCAAc,iBAAd,GAAmC;AA1EC;AAAe;AAlPA;AAAf;AAEpC;AACA;AAAO;AAAO;AACd;AAAO;AAAO;AAAO;AAAO;AAC5B;AACA;AACA;AACA;AAAK;AAAO;AAIZ;AACA;AAAU;AACV;AAAK;AAAW;AAChB;AACA;AACA;AACA;AAAG;AAAG;AACN;AACA;AACA;AACA;AACA;AAYF;AACA;AAQE,mBAAc,MAAM;AAEpB,cAAS;AACT,cAAS,CAAC;AACV,kBAAa;AACb,kBAAa;AAEb,UAAY,UAAD,QAAX;AAEE,gBAAS,cAAQ,CAAC,WAAY,KAAb;AAEjB,YAAG,CAAY,CAAC,KAAD,SAAf;AAEE,kBAAS,cAAQ,CAAC,WAAY,KAAb;AACjB,kBAAS;SAHX;AAMA;AACE,cAAY,KAAD,QAAX;AAEE,qBAAU,CAAC;AACP,iBAAJ,IAAG;AAEO,kBAAM,OAAP,sBAAC,MAAM,mEAAS,KAAM,GAAE,CAAxB;AAET,oBAAS,cAAQ,CAAC,MAAO,MAAR;AACjB,gBAAY,KAAD,QAAX;AAME,oBAAM,OAAO,CAAC,KAAD,CAAO,KAApB,GAA6B,KAAK;aANpC;AAUA,6BAAkB,gEAA4B,QAAC;AAC/C,0BAAc,MAAd,GAAuB;AACvB,0BAAc,MAAC,SAAQ,MAAM,OAAO,CAAC,KAAD,CAArB;AACf;AACA,mCAAgB,CAAC,cAAD;AADhB;AAGE,4BAAe,eAAf,cAAe;AAHjB;AAMA,gBAAG,CAAI,KAAP;AACE,sBAAS,cAAQ,CAAC,MAAO,QAAR;AAEjB,0BAAS;AAEX;AACE,kBAAW,CAAC,KAAD,SAAQ,IAAI,KAAK,gBAA5B;AAEE,sBAAO,CAAC;AACJ,sBAAJ,IAAG;AACO,sBAAM,OAAO,CAAC,KAAD,CAAO,SAArB,sBAAC,MAAM,OAAO,CAAC,KAAD,CAAO,aAAW,MAAO,GAAE,CAAzC;AACT,8BAAe;AAEf,wBAAS,uBAAiB,CAAC,KAAD;AAE1B,uBAAe,KAAD,QAAd;AAEE,0BAAS;AACT,6BAAY,KAAK;AAEjB,sBAAG,CAAI,KAAM,IAAU,CAAN,KAAM,IAAoB,CAAf,KAAK,SAAU,KAAE,OAAF,CAApB,CAAvB;AAEE,4BAAS,uBAAiB,CAAC,MAAO,KAAR;AAC1B,4BAAS,uBAAiB,CAAC,MAAO,KAAR;AAE1B,wBAAW,CAAC,KAAD,SAAQ,IAAY,CAAC,KAAD,SAA/B;AAEM,yBAAJ,IAAG;AACO,4BAAM,OAAO,CAAC,KAAD,CAAO,SAAS,CAAC,MAAD,CAA9B,sBAAC,MAAM,OAAO,CAAC,KAAD,CAAO,SAAS,CAAC,MAAD,+DAAU,GAAI,GAAE,CAA9C;AAET,0BAAG,QAAS,KAAE,OAAd;AAEE,gCAAS,uBAAiB,CAAC,MAAO,KAAR;AAC1B,4BAAY,KAAD,QAAX;AAEE,gCAAO;AACP,8BAAG,sCAAY,iBAAiB,CAAC,KAAK,WAAY;;;;8BAAlB,CAAhC;AAEE,gCAAG,WAAH;AAEE,kCAAG,GAAI,GAAE,SAAT,EACE,YAAa,GADf;AAEA,kCAAG,GAAI,GAAE,SAAT,EACE,YAAa,GADf;;AAKA,4CAAe;AACf,0CAAa;AACb,0CAAa;;AAGf,kCAAM,OAAO,CAAC,KAAD,CAAO,SAAS,CAAC,MAAD,CAAQ,CAAC,GAAD,CAAK,UAA1C,GAAwD;AACxD,kCAAM,OAAO,CAAC,KAAD,CAAO,SAAS,CAAC,MAAD,CAAQ,CAAC,GAAD,CAAK,aAA1C,GAA2D;2BAjB7D;yBAHF;AAwBA,gCAAS,uBAAiB,CAAC,MAAO,MAAR;AAC1B,4BAAY,KAAD,QAAX;AAEE,sCAAa,KAAK;AAClB,8BAAG,SAAU,KAAG,EAAhB;AAEE,kCAAM,OAAO,CAAC,KAAD,CAAO,SAAS,CAAC,MAAD,CAAQ,CAAC,GAAD,CAAK,UAA1C,GAAwD,sCAAY,cAAc,CAAC,UAAW,IAAZ;AAClF,kCAAM,OAAO,CAAC,KAAD,CAAO,SAAS,CAAC,MAAD,CAAQ,CAAC,GAAD,CAAK,aAA1C,GAA2D;2BAH7D;yBAHF;uBA5BF;AAuCA,0BAAK;AACL,0BAAG,sCAAY,iBAAiB,CAAC,KAAK,WAAY;;;;0BAAlB,CAAhC,EACE,MAAM,OAAO,CAAC,KAAD,CAAO,SAAS,CAAC,MAAD,CAAQ,CAAC,GAAD,CAAK,SAA1C,GAAuD,CADzD;AAGA,0BAAK;AACL,0BAAG,sCAAY,iBAAiB,CAAC,KAAK,WAAY;;;;0BAAlB,CAAhC,EACE,MAAM,OAAO,CAAC,KAAD,CAAO,SAAS,CAAC,MAAD,CAAQ,CAAC,GAAD,CAAK,UAA1C,GAAwD,CAD1D;AAGU,6BAAD,sBAAC,qEAAe,WAAC,OAAD,CAAU,GAAE,CAA5B;AACT,6BAAO,CAAO,WAAC,OAAD,CAAU,GAAE,CAAnB,UAAyB,oDAAgB,CAAC,MAAM,OAAO,CAAC,KAAD,CAAO,SAAS,CAAC,MAAD,CAAQ,CAAC,GAAD,CAAK,UAAW,MAAM,OAAO,CAAC,KAAD,CAAO,SAAS,CAAC,MAAD,CAAQ,CAAC,GAAD,CAAK,UAAhG,CAAzC;AAEP,yCAAoB,kEAA8B,QAAC;AACnD,sCAAgB,MAAhB,GAAyB;AACzB,sCAAgB,MAAC,SAAQ,MAAM,OAAO,CAAC,KAAD,CAAO,SAAS,CAAC,MAAD,CAAQ,CAAC,GAAD,CAA7C;AACjB;AACE,+CAAkB,CAAC,gBAAD;AADpB;AAGE,wCAAiB,eAAjB,gBAAiB;AAHnB;qBA1DF;mBALF;AAuEA,0BAAS,KAAK;;eArFlB;AAyFA,kBAAY,KAAD,QAAX,EACE,QAAS,KAAK,YADhB;aA1FF,QA6FoB,KAAD,QA7FnB;WAhCF;AAgIA,cAAY,KAAD,QAAX,EACE,QAAS,KAAK,YADhB;SAjIF,QAmIoB,KAAD,QAnInB;OAVF;AAgJA,eAAS,QAA2B,OAAhB,WAAC,MAAM,OAAP,CAAgB,GAAE,CAAF,kBAApC;AAAI;AAEF,YAAK,YAAM;AACX,SAAC,WAAD,GAAe,MAAM,OAAO,CAAC,CAAD,CAAG;AAC/B,iBAAS,SAAuC,QAA5B,WAAC,MAAM,OAAO,CAAC,CAAD,CAAG,SAAjB,CAA4B,GAAE,CAAF,qBAAhD;AAAI;AAEF,qBAAY;AACZ,cAAK,CAAC,UAAS;AACf,mBAAS,SAA0C,QAA/B,WAAC,MAAM,OAAO,CAAC,CAAD,CAAG,SAAS,CAAC,CAAD,CAA1B,CAA+B,GAAE,CAAF,qBAAnD;AAAI;AAEF,gBAAK,CAAC,aAAY;AAClB,aAAC,YAAC,CAAY,MAAM,OAAO,CAAC,CAAD,CAAG,SAAS,CAAC,CAAD,CAAG,CAAC,CAAD,CAAG,SAA3C;AACF,aAAC,aAAC,CAAa,MAAM,OAAO,CAAC,CAAD,CAAG,SAAS,CAAC,CAAD,CAAG,CAAC,CAAD,CAAG,UAA5C;AACF,gBAAG,CAAE,KAAE,CAAP;AAEE,kBAAG,CAAE,KAAE,CAAP,EACE,CAAC,iBAAiB,OAAO,CAAC,CAAC,YAAF,CAD3B;AAEA,eAAC,iBAAiB,OAAO,CAAC,CAAC,YAAF;aAJ3B;AAMA,gBAAG,CAAE,KAAuC,CAA/B,WAAC,MAAM,OAAO,CAAC,CAAD,CAAG,SAAS,CAAC,CAAD,CAA1B,CAA+B,GAAE,CAAF,CAA5C;AAEE,kBAAG,CAAE,KAAoC,CAA5B,WAAC,MAAM,OAAO,CAAC,CAAD,CAAG,SAAjB,CAA4B,GAAE,CAAF,CAAzC,EACE,CAAC,eAAe,OAAO,CAAC,CAAC,YAAF,CADzB;AAEA,eAAC,eAAe,OAAO,CAAC,CAAC,YAAF;aAJzB;AAMA,gBAAG,CAAE,GAAE,CAAP,EACE,WAAY,QAAS,GAAE,mDAAe,CAAa,oEAAZ,CAAC,YAAW,SAAC,EAAD,EAAuC,oEAA/B,CAAC,aAAY,WAAC,CAAE,GAAE,CAAL,CAAO,YAAW,SAAC,EAAD,CAApD,CADxC;;AAGF,WAAC,UAAD,GAAc;;AAEhB,YAAG,CAAI,YAAP;AACE,qCAAsB,CAAC,CAAD;;AAGtB,mBAAS,SAAsB,QAAjB,CAAC,UAAS,SAAC,EAAM,GAAE,CAAF,qBAA/B;AAAI;AAEF,gBAAK,CAAC,UAAS,WAAC,CAAD;AACf,gBAAK,+BAA0B,QAAC;AAChC,aAAC,eAAD,GAAoB;AACpB,aAAC,aAAD,GAAkB;AAClB,oCAAmB,CAAmB,oEAAlB,CAAC,iBAAiB,SAAC,EAAD,EAAQ,KAAK,WAAY,CAA5C;AACnB,oCAAmB,CAAiB,oEAAhB,CAAC,eAAe,SAAC,EAAD,EAAQ,KAAK,SAAU,CAAxC;;;;AA5OW;AAAe;AAgiBR;AAE3C;AACA,UAAc,iCAAH,eAAP,MAAO,CAAX;AAEE,uBAAmB,OAAP,OAAU,iCAAH,CAAgC;AACnD,wBAAoB,OAAP,OAAU,iCAAH,CAAgC;AACpD,uBAAmB,OAAP,OAAU,iCAAH,CAAgC;AACnD,oBAAO,OAAO,CAAS,OAAP,OAAU,iCAAH,CAAgC,QAAzC;OALhB;AAH2C;AAmHE;AAE7C,mBAAM,CAAC,IAAD;AAFwC;AAAD;AAKA;AAE7C;AACA,qBAAW;AACX,sBAAY;AAEZ,wBAAc,8CAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAE/B,qBAAU,gBAAV,GAAqD;AACrD,qBAAU,uBAAV,GAA4D;AAE5D,yBAAe,gDAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,sBAAW,iBAAX,GAAsD;AAEtD,uBAAa,4CAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,oBAAS,eAAT,GAAmD;AAEnD,qBAAW,iCAA4B,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,sBAAY,kCAA6B,QAAC;AAlBwB;AAArB;AAspBA;AAE7C,UAAY,oBAAD,QAAX,EACkB,SAAhB,KAAgB,kBADlB;AAEW,eAAX,KAAW;AACX,wBAAc;AACF,eAAZ,KAAY;AACZ,yBAAe;AACL,eAAV,KAAU;AACV,uBAAa;AACL,eAAR,KAAQ;AACC,eAAT,KAAS;AAKT;AAhB6C;AAlwBI;AAEjD,UAAG,CAAI,qBAAP;AAEE,cAAM,sBAAS,QAAC,YAAM,CAAC,qBAAD,CAAN;AAChB;OAHF;AAMA,qBAAU,aAAa,CAAC,SAAU,UAAW,IAAK,afhgCiH,GAAmC,oEeggC/K;AAR0B;AAwBO;AAExD,UAAG,CAAI,qBAAP;AAEE,cAAM,sBAAS,QAAC,YAAM,CAAC,qBAAD,CAAN;AAChB;OAHF;AAMA,qBAAU,oBAAoB,CAAC,kFAAc,UAAW,IAAK,afvhCyI,GAAmC,oEeuhC3M;AAR0B;AA/ON;AAIlD,UAAG,CAAI,sBAAP;AAEE,cAAM,sBAAS,QAAC,YAAM,CAAC,qBAAD,CAAN;AAChB;OAHF;AAMA,sBAAW,cAAc,CAAC,6EAAS,kFAAc,UAAW,IAAK,aAC/D,aAAO,2BAA2B,aAAO,aAAa,yBAAY,MAAO,aAAO,SAAS,aAAO,aAAa,aAAO,aZzoBf,KYwoB9E;AAVyB;AAoRC;AAInD;AAEA,UAAK,+BAA0B,QAAC;AAChC,OAAC,IAAD,GAAS;AACT,OAAC,cAAD,GAAmB;AACnB,OAAC,YAAD,GAAiB;AAEjB,OAAC,MAAD,GAAW;AAEX,UAAY,SAAD,QAAX;AACE,SAAC,UAAD,GAAe,+CAA0C,QAAC,YAAM,CAAC,SAAD,CAAN;AAE1D,YAAA,CAAC,UAAD,GAAe;AAEjB,uBAAY,CAAC,CAAC,eAAgB,KAAK,QAAS,CAAhC;AACZ,uBAAY,CAAC,CAAC,aAAc,KAAK,MAAO,CAA5B;AAnBuC;AArBA;AAInD;AAEA,UAAK,+BAA0B,QAAC;AAChC,OAAC,IAAD,GAAS;AACT,OAAC,iBAAiB,SAAlB,GAA+B,gBAAgB;AAC/C,OAAC,eAAe,SAAhB,GAA6B,cAAc;AAC3C,OAAC,iBAAiB,UAAlB,GAAgC,gBAAgB;AAChD,OAAC,eAAe,UAAhB,GAA8B,cAAc;AAE5C,UAAY,SAAD,QAAX;AACE,SAAC,UAAD,GAAe,+CAA0C,QAAC,YAAM,CAAC,SAAD,CAAN;AAE1D,YAAA,CAAC,UAAD,GAAe;AAEjB,wBAAa,CAAE,oEAAD,CAAC,mBAAoB,oEAAD,CAAC,iBAAiB,KAAK,yBAAY,CAAC,KAAM,CAA/D;AAlBsC;AAnFC;AAKpD;AACA;AAEA,UAAG,CAAY,CAAC,MAAD,SAAS,IAA0B,CAAtB,MAAM,UAAS,SAAC,EAAM,KAAE,CAAF,CAAlD,EACE,MADF;AAGA,UAAK,+BAA0B,QAAC;AAChC,OAAC,IAAD,GAAS;AAET,WAAM,MAAM;AAEZ,OAAC,cAAD,GAAmB,EAAE;AACrB,OAAC,iBAAC,SAAoB,EAAE,eAAc,SAAC,EAArC;AACF,OAAC,YAAD,GAAiB;AACjB,OAAC,YAAD,GAAiB;AACjB,OAAC,aAAD,GAAkB;AAClB,OAAC,MAAD,GAAW;AAEX,UAAY,SAAD,QAAX;AACE,SAAC,UAAD,GAAe,+CAA0C,QAAC,YAAM,CAAC,SAAD,CAAN;AAE1D,YAAA,CAAC,UAAD,GAAe;AAEjB,uBAAY,CAAC,CAAC,aAAc,KAAK,MAAO,CAA5B;AA5BwC;AA3DA;AAKpD;AACA;AAEA,UAAG,CAAY,CAAC,MAAD,SAAS,IAA0B,CAAtB,MAAM,UAAS,SAAC,EAAM,KAAE,CAAF,CAAlD,EACE,MADF;AAGA,UAAK,+BAA0B,QAAC;AAChC,OAAC,IAAD,GAAS;AAET,WAAM,MAAM;AAEZ,OAAC,cAAD,GAAmB,EAAE;AACrB,OAAC,iBAAC,SAAoB,EAAE,eAAc,SAAC,EAArC;AACF,OAAC,eAAC,SAAkB,cAAlB;AACF,OAAC,aAAD,GAAkB;AAClB,OAAC,MAAD,GAAW;AAEX,UAAY,SAAD,QAAX;AACE,SAAC,UAAD,GAAe,+CAA0C,QAAC,YAAM,CAAC,SAAD,CAAN;AAE1D,YAAA,CAAC,UAAD,GAAe;AAEjB,wBAAa,CAAE,oEAAD,CAAC,mBAAoB,oEAAD,CAAC,iBAAiB,KAAK,GAAK,IAAK,CAAtD;AA3BuC;AA8BM;AAM1D;AAEA,UAAG,CAAY,CAAC,QAAD,SAAf,EACE,MADF;AAGA,UAAK,+BAA0B,QAAC;AAChC,OAAC,IAAD,GAAS;AACT,OAAC,aAAD,GAAkB,QAAQ,SAAC;AAC3B,OAAC,MAAD,GAAW;AAEX,OAAC,iBAAC,SAAoB,QAAQ,iBAAgB,SAAC,EAA7C;AACF,OAAC,eAAC,SAAkB,QAAQ,eAAc,SAAC,EAAzC;AACQ,OAAC,gBAAF,sBAAC,CAAC,sBAAkB,CAApB;AACT,OAAC,gBAAgB,CAAC,CAAD,CAAjB,GAAwB;AAExB,UAAY,SAAD,QAAX;AACE,SAAC,UAAD,GAAe,+CAA0C,QAAC,YAAM,CAAC,SAAD,CAAN;AAE1D,YAAA,CAAC,UAAD,GAAe;AAEjB,wBAAa,CAAE,oEAAD,CAAC,mBAAoB,oEAAD,CAAC,iBAAiB,KAAK,yBAAY,IAAK,CAA7D;AA1B6C;AA6vBH;AAKvD;AAEA,UAAG,CAAY,CAAC,QAAD,SAAf,EACE,MADF;AAGA,UAAK,+BAA0B,QAAC;AAChC,OAAC,IAAD,GAAS;AAET,OAAC,cAAD,GAAmB;AACnB,OAAC,YAAD,GAAiB;AACjB,OAAC,aAAD,GAAkB,QAAQ,SAAC;AAC3B,OAAC,MAAD,GAAW;AAED,OAAC,gBAAF,sBAAC,CAAC,sBAAkB,CAApB;AACT,OAAC,gBAAgB,CAAC,CAAD,CAAjB,GAAwB;AAExB,UAAY,SAAD,QAAX;AACE,SAAC,UAAD,GAAe,+CAA0C,QAAC,YAAM,CAAC,SAAD,CAAN;AAE1D,YAAA,CAAC,UAAD,GAAe;AAEjB,uBAAY,CAAC,CAAC,aAAc,KAAK,MAAO,CAA5B;AACZ,uBAAY,CAAC,CAAC,eAAgB,KAAK,QAAS,CAAhC;AA3B2C;AAvGA;AAMvD;AACA;AAAI;AACJ;AAEA,UAAG,CAAY,CAAC,QAAD,SAAf,EACE,MADF;AAGA,UAAK,+BAA0B,QAAC;AAChC,OAAC,IAAD,GAAS;AACT,WAAM,QAAQ,mBAAC;AACf,WAAM,QAAQ,eAAC;AACf,OAAC,aAAD,GAAkB,QAAQ,SAAC;AAC3B,OAAC,MAAD,GAAW;AAEX,UAAW,CAAC,EAAD,SAAK,IAAY,CAAC,EAAD,SAA5B;AAEE,SAAC,iBAAC,SAAoB,EAAE,iBAAgB,SAAC,EAAvC;AACF,SAAC,eAAC,SAAkB,EAAE,eAAc,SAAC,EAAnC;AACQ,UAAD,sBAAC,gEAAU,WAAC,EAAD,CAAK,GAAE,CAAlB;AACT,UAAE,CAAO,WAAC,EAAD,CAAK,GAAE,CAAd,UAAoB,gBAApB;AACQ,UAAD,sBAAC,gEAAU,WAAC,EAAD,CAAK,GAAE,CAAlB;AACT,UAAE,CAAO,WAAC,EAAD,CAAK,GAAE,CAAd,UAAoB,cAApB;AACQ,SAAC,gBAAF,sBAAC,CAAC,sBAAkB,CAApB;AACT,SAAC,gBAAgB,CAAC,CAAD,CAAjB,GAAwB;AACxB,SAAC,gBAAgB,CAAC,CAAD,CAAjB,GAAwB;AACxB,SAAC,gBAAgB,CAAC,CAAD,CAAjB,GAAwB;OAErB,UAAY,EAAD,QAAX;AAEH,SAAC,iBAAC,SAAoB,EAAE,iBAAgB,SAAC,EAAvC;AACF,SAAC,eAAC,SAAkB,cAAlB;AACQ,UAAD,sBAAC,gEAAU,WAAC,EAAD,CAAK,GAAE,CAAlB;AACT,UAAE,CAAO,WAAC,EAAD,CAAK,GAAE,CAAd,UAAoB,gBAApB;AACQ,SAAC,gBAAF,sBAAC,CAAC,sBAAkB,CAApB;AACT,SAAC,gBAAgB,CAAC,CAAD,CAAjB,GAAwB;AACxB,SAAC,gBAAgB,CAAC,CAAD,CAAjB,GAAwB;OAErB,UAAY,EAAD,QAAX;AAEH,SAAC,iBAAC,SAAoB,gBAApB;AACF,SAAC,eAAC,SAAkB,EAAE,eAAc,SAAC,EAAnC;AACQ,UAAD,sBAAC,gEAAU,WAAC,EAAD,CAAK,GAAE,CAAlB;AACT,UAAE,CAAO,WAAC,EAAD,CAAK,GAAE,CAAd,UAAoB,cAApB;AACQ,SAAC,gBAAF,sBAAC,CAAC,sBAAkB,CAApB;AACT,SAAC,gBAAgB,CAAC,CAAD,CAAjB,GAAwB;AACxB,SAAC,gBAAgB,CAAC,CAAD,CAAjB,GAAwB;;AAIxB,SAAC,iBAAC,SAAoB,gBAApB;AACF,SAAC,eAAC,SAAkB,cAAlB;AACQ,SAAC,gBAAF,sBAAC,CAAC,sBAAkB,CAApB;AACT,SAAC,gBAAgB,CAAC,CAAD,CAAjB,GAAwB;;AAG1B,UAAY,SAAD,QAAX;AACE,SAAC,UAAD,GAAe,+CAA0C,QAAC,YAAM,CAAC,SAAD,CAAN;AAE1D,YAAA,CAAC,UAAD,GAAe;AAEjB,wBAAa,CAAE,oEAAD,CAAC,mBAAoB,oEAAD,CAAC,iBAAiB,KAAK,iBAAI,IAAK,CAArD;AAlE0C;AAsFY;AAKnE,6BAAkB,CAAC,SAAU,cAAe,QAAQ,aAAa,UAAW,IAAK,YAA/D;AALiD;AAjBF;AAKjE,6BAAkB,CAAC,SAAU,QAAQ,eAAe,YAAa,UAAW,IAAK,YAA/D;AAL+C;AAyBK;AAMtE,+BAAkB,CAAC,SAAU,sFAAwC,oEAAtB,QAAQ,eAAc,SAAC,EAAD,EAAQ,UAAW,IAAK,YAA3E;AANoD;AAjBF;AAMpE,+BAAkB,CAAC,SAAkC,oEAAxB,QAAQ,iBAAgB,SAAC,EAAD,EAAQ,oFAAgB,UAAW,IAAK,YAA3E;AANkD;AAwDpB;AAGhD,UAAG,CAAY,CAAC,MAAD,SAAf,EACE,MADF;AAGA,YAAO,eAAP,MAAO;AANyC;AASO;AAGvD;AAAI;AACJ;AAAI;AACJ;AACA;AAEA,UAAG,CAAY,CAAC,QAAD,SAAf,EACE,MADF;AAGA,UAAW,CAAC,QAAQ,SAAC,EAAV,SAAiB,IAAmC,CAA9B,QAAQ,SAAC,EAAK,UAAS,SAAC,EAAM,KAAE,CAAF,CAA/D;AAEE,YAAK,QAAQ,SAAC;AACd,gBAAS,eAAT,QAAS;AACT,YAAY,SAAD,QAAX,EACE,SAAS,CAAC,CAAD,CADX;AAEA,YAAK,+BAA0B,QAAC;AAChC,6BAAgB,CAAC,EAAG,CAAJ;AAChB,SAAE,eAAF,CAAE;AACF,SAAE,eAAF,CAAE;AACF;OAVF;AAaA,WAAM,QAAQ,mBAAC;AACf,WAAM,QAAQ,eAAC;AAEf,iBAAM,QAAQ,eAAc,SAAC,EAA7B;AACA,iBAAM,QAAQ,iBAAgB,SAAC,EAA/B;AAEA,cAAS,eAAT,QAAS;AAET,UAAY,EAAD,QAAX;AACE,4CAA+B,CAAC,GAAI,wEAAI,UA5/CkK,GAA4B,IA4/CvM;AAC5B,gBAAY,EAAD,QAAX,EACH,sCAAiC,CAAC,GAAI,wEAAI,UA//CoK,GAA4B,IA+/CzM,CAD9B;AAlCkD;AAz8BA;AAGvD,UAAG,KAAM,KAAE,iDAAX;AAEE,YAAG,CAAI,oBAAP;AAEE,gBAAM,sBAAS,QAAC,YAAM,CAAC,qBAAD,CAAN;AAChB;SAHF;AAMA,YAAI,aAAQ,KAAE,2CAAd,EACE,cAAS,aDj6B2D,KAAmB,GCg6BzF;OARF;AAHuD;AApXF;AAAjB;AAEpC;AAEA,UAAK,yBAAa,QAAC,YAAM,CAAC,EAAD,CAAN;AACnB;AACE,eAAO,YAAC,CAAY,CAAZ;AACR,SAAC,SAAS,CAAC,QAAS,OAAO,QAAC,EAAlB;AACV,uBAAU,oBAAe,CAAC,CAAC,cAAC,GAAY,YAAf,CAAzB;AAHF;AAKE,SAAE,eAAF,CAAE;AALJ;AALoC;AAAiB;AAcF;AAAf;AAEpC,qBAAU,oBAAe,CAAC,MAAO,YAAR,CAAzB;AAFoC;AAAe;AAqkCC;AAGpD,4BAAe,CAAC,OAAQ,QAAS,2HAAlB;AAHqC;AAMA;AAIpD;AAEA,WAAM,yBAAa,QAAC,YAAM,CAAC,oBAAe,CAAC,OAAQ,4EAAT,CAAhB,CAAN;AACpB;AACE,eAAO,SAAS,CAAC,GAAI,EAAE,QAAC,EAAR;AADlB;AAGE,UAAG,eAAH,EAAG;AAHL;AAPoD;AA5DF;AAGlD,0BAAa,CAAC,OAAQ,UAAW,2HAApB;AAHqC;AAuCA;AAIlD;AAEA,WAAM,uBAAW,QAAC;AAClB;AACE,UAAE,WAAC,CAAQ,oBAAe,CAAC,OAAQ,4EAAT,CAAvB;AACH,UAAE,WAAW,CAAC,SAAD;AAFf;AAIE,UAAG,eAAH,EAAG;AAJL;AAPkD;AAmCD;AAAb;AAGpC,eAAU,oBAAe,CAAC,OAAQ,2HAAT;AAHW;AAAa;AAMA;AAAb;AAIpC,eAAU,oBAAe,CAAC,OAAQ,4EAAT;AAJW;AAAa;AA5DM;AAEvD,wDAAkB,qBAAqB,CAAC,aAAQ,OAAT;AAFgB;AAKH;AAAhB;AAEpC;AAEA,UAAK,yBAAa,QAAC,YAAM,CAAC,EAAD,CAAN;AACnB;AACE,+BAAkB,CAAC,CAAD;AAClB,SAAC,YAAC,CAAY,CAAZ;AACF,iBAAU,CAAC,cAAC;AAHd;AAKE,SAAE,eAAF,CAAE;AALJ;AALoC;AAAgB;AAnBC;AAErD;AAEA,WAAM,yBAAa,QAAC;AACpB;AACE,+BAAkB,CAAC,EAAD;AAClB,UAAE,YAAC,CAAY,CAAZ;AACD,sEAAF,GAAc,SAAZ;AAHJ;AAKE,UAAG,eAAH,EAAG;AALL;AALqD;AAhgCI;AAEzD,wDAAkB,uBAAuB,CAAC,aAAQ,OAAT;AAFgB;AAKF;AAEvD;AAEA,UAAK,yBAAa,QAAC,YAAM,CAAC,KAAD,CAAN;AACnB;AACE,SAAC,YAAC,CAAY,CAAZ;AACF,iCAAoB,CAAC,CAAD;AAFtB;AAIE,SAAE,eAAF,CAAE;AAJJ;AALuD;AA8cC;AAApB;AAEpC,eAAU,gBAAW,gBAAgB,CAAC,KzBhxBoD,EyBgxBrD;AAFD;AAAoB;AA8Ld;AAE1C;AACA;AACA,UAAY,eAAD,QAAX,EACE,eAAU,mBAAkB,QAD9B;AAEA,UAAY,gBAAD,QAAX,EACE,gBAAW,oBAAmB,QADhC;AAEA,UAAY,cAAD,QAAX,EACE,cAAS,kBAAiB,QAD5B;AAEA;AAV0C;AAaM;AAEhD;AACA,kBAAM;AACN;AAJgD;AAlQI;AAGpD,4BAAe,CAAC,2BAAc,QAAS,2HAAxB;AAHqC;AAMA;AAIpD;AAEA,WAAM,yBAAa,QAAC,YAAM,CAAC,oBAAa,CAAC,2BAAc,4EAAf,CAAd,CAAN;AACpB;AACE,eAAO,SAAS,CAAC,GAAI,EAAE,QAAC,EAAR;AADlB;AAGE,UAAG,eAAH,EAAG;AAHL;AAPoD;AA3BF;AAGlD,0BAAa,CAAC,2BAAc,UAAW,2HAA1B;AAHqC;AAMA;AAIlD;AAEA,WAAM,uBAAW,QAAC;AAClB;AACE,UAAE,WAAC,CAAQ,oBAAa,CAAC,2BAAc,4EAAf,CAArB;AACH,UAAE,WAAW,CAAC,SAAD;AAFf;AAIE,UAAG,eAAH,EAAG;AAJL;AAPkD;AAmCD;AAAb;AAGpC,eAAU,6CAAS,CAAC,2BAAc,4H3Bn3BN,KAAkC,KAA8B,GAAiD,I2Bm3B1H;AAHiB;AAAa;AAMA;AAAb;AAIpC,eAAU,6CAAS,CAAC,2BAAc,6E3B13BN,KAAkC,KAA8B,GAAiD,I2B03B1H;AAJiB;AAAa;AAOJ;AAAT;AAEpC,eAAU;AACV,UAAG,YAAM,SAAC,EAAM,IAAG,CAAnB,EACE,aADF;AAGA,UAAG,YAAM,WAAC,CAAD,CAAG,UAAS,SAAC,EAAM,IAAG,CAA/B,EACE,aADF;AAGA,UAAG,YAAM,WAAC,CAAD,CAAG,UAAS,WAAC,CAAD,CAAG,aAAY,SAAC,EAAM,IAAG,CAA9C,EACE,aADF;AAGA,eAAU;AAZ0B;AAAS;AAxtBjB;;;;;AAsER;AACA,+BAAO,UvJxCjB,+BuJwCiB,CAAP;AAvEQ;AAiJN;AAi9D+B;AAErD;AACA,iCAAe,CAAC,CAAC,4BAAwB,iCAA6B,mCACpE,8DAA2B,0DAAuB,qDAAuB,qDAAuB,6CADlF,CAAD;AAHsC;AAj9D/B;;;;;AAIG,sCfrZQ,yEeqZR;AACC,uCZzPS,4EYyPT;AACI,2CfvZG,yEeuZH;AACC,4CZ3PI,4EY2PJ;AACJ,wCArKc,wDAqKd;AACA,wC3B7hBH,sE2B6hBG;AACE,0C3B7hBH,wE2B6hBG;AACI,8CArKH,6CAqKG;AACT,qCAvKW,kDAuKX;AACP;AACC,+BA3dW,4CA2dX;AACA;AACD,8BApMW,2CAoMX;AACC,+BA5bW,4CA4bX;AAjBI;AAlqBxB,mBAsrBc;AAwBY;AAAjB;AAKP,eAAU,KAAK;AALR;AAAiB;AASA;AAAjB;AAIT;AACA;AACA;AACA;AACA;AARS;AAAiB;AAeT;AAAR;AAGP,eAA0B,oEAAhB,KAAK,YAAqB,SAAV;AAHnB;AAAQ;AASI;AAAZ;AAEP,eAAU;AACV,UAAG,CAAY,CAAC,KAAD,SAAf,EACE,aADF;AAGA,eAAU,KAAK;AANR;AAAY;AAzDP;AAtrBd,GAsrBc,kEAtrBd;ACAA,2CAWS,UAXT;;;;AAckB,0BAAG;AACN,uBAAG;AACJ,sBAAG;AAgFkB;AAEjC,QAAG,CAAI,oDAA2B,UAAQ,0BAAwB,CAAC,wEAAwC,CAAC,UAAD;eAAA,MAAC;AAAD;;QAAzC,CAAlE;AAEE,uCAA2C,eAA5B,kCAA4B,QAAC,kEAAD,EAA3C;AACA,0DAA2B,UAAQ,mBAAmB,CAAC,wEAA8B,iBAA/B;KAHxD;AAFiC;AASE;AAEnC,wDAA2B,UAAQ,sBAAsB,CAAC,uEAAD;AAFtB;AAzGrC,mBAqBc;AAyBgB;AAFO;;;;;AAEP;AAkEoB;AAAZ;AACjC;AAD6C;AAEhD,uCAA+B,eAArB,2BAAqB,QAAC,uDAAD,EAA/B;AADG;AAD6C;AAC7C;AAD6C;AAAZ;AAAY;AAlEpB;;;;AAQP;;AAupBqB;AAG1C;AACG;AAJuC;AAK1C,cAAG,mCAAc,gBAAe,KAAE,EAAlC;AACE,yBAAc;AAEd,6BAAc,KAAM,GAAE,mCAAc,gBAAhB;AAEtB,eAAK,MAAI,CAAC,wCAAe,QAAC,gBAAY,CAAC,qBAKrC,GALwD,KAAF,GACpD,OAAF,GAAY,mCAAc,YAAhB,GACR,UAAF,GACE,YAAF,GAAiB,mCAAc,WC3emB,qED2enC,GAEb,0BAAF,CACE,kBAAmB,QAAS,GAAI,KAAM,IANJ,CAAZ,CAAjB;AAViC;AAIvC;AAJuC;;AA4JC;AAI7C;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAtB6C;AAruBH;AAAX;AAE7B,iBAAU;AAFmB;AAAW;AAuBC;AAAZ;AAE7B,iBACA,kBAOoC,GAPf,kBAAF,GAAkB,UAAF,GAAe,mCAAF,GAAe,gBAAF,GAAqB,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GACjH,IADsH,GAC/G,iCAAF,GAAa,SAAF,GAAc,kBAAF,GAAkB,eAAF,GAAoB,2BAAF,GAC9D,oBADmE,GAC5C,2BAAF,GACrB,uBAD0B,GACA,kBAAF,GAAkB,QAAF,GAAa,mCAAF,GAAe,eAAF,GAAoB,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GACjH,eADsH,GACpG,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC3C,uBADgD,GACtB,mCAAF,GAAe,aAAF,GAAkB,2BAAF,GACrD,OAD0D,GAChD,2BAAF,GACR,IADa,GACN,iCAAF,GAAa,QAAF,GAAa,+BAAF,GAAW,IAAF;AAVP;AAAY;AAyeC;AAAb;AAE7B,iBAAU,IAAgB,GAAT,iCAAF,GAAa,WAAF;AAFG;AAAa;AA4FD;AAAZ;AAE7B,iBAAU;AAFmB;AAAY;AAvFK;AAAjB;AAE7B,iBAAU;AAFmB;AAAiB;AA1gBE;AAAnB;AAE7B,iBAAU,qBAAsB,GAAE,kBAAF;AAFH;AAAmB;AAsmBN;AAAb;AAE7B,iBAAU;AAFmB;AAAa;AA4EG;AAAhB;AAC1B;AAD0C;AAE7C,mBACE,IAqB0C,GArBnC,mCAAF,GAAe,MAAF,GAAW,2BAAF,GAC3B,iBADgC,GACZ,+CAAW,CAAC,mCAAc,aAAf,CAAb,GAA2C,GAAF,GAAQ,2BAAF,GACjE,mBADsE,GAChD,+CAAW,CAAC,mCAAc,uBAAf,CAAb,GAAqD,GAAF,GAAQ,2BAAF,GAC7E,8BADkF,GACjD,+CAAW,CAAC,CAAI,mCAAc,oBAAnB,CAAb,GAAsD,GAAF,GAAQ,2BAAF,GACzF,sBAD8F,GACrE,+CAAW,CAAC,mCAAc,wBAAf,CAAb,GAAsD,GAAF,GAAQ,2BAAF,GACjF,cADsF,GACrE,mCAAc,WAAhB,GAA4B,IAAF,GAAS,2BAAF,GAChD,mBADqD,GAC/B,+CAAW,CAAC,mCAAc,qBAAf,CAAb,GAAmD,GAAF,GAAQ,2BAAF,GAI3E,oBAJgF,GAIzD,mCAAc,qBAAhB,GAAsC,SAAF,GAAc,mCAAc,sBAAhB,GAAuC,IAAF,GAAS,2BAAF,GACjH,wBADsH,GAC1F,4CAAe,YAAY,CAAC,mCAAc,qBAAf,CAA9B,GAAoE,IAAF,GAAS,2BAAF,GAClG,YADuG,GACxF,oCAAc,sBAAhB,GAAuC,GAAF,GAAQ,2BAAF,GACxD,eAD6D,GAC3C,sCAAY,cAAc,CAAC,oCAAc,aAAf,CAA5B,GAA0D,GAAF,GAAQ,2BAAF,GAC9E,YADmF,GACpE,sCAAY,cAAc,CAAC,oCAAc,UAAf,CAA5B,GAAuD,GAAF,GAAQ,2BAAF,GACxE,KAD6E,GACtE,2BAAF,GAAO,2BAAF,GAEV,IAFe,GAER,+BAAF,GAAW,SAAF,GAAc,kBAAF,GAAkB,gCAAF,GAAqC,8BAAF,GAAU,MAAF,GAAW,mCAAF,GAAe,IAAF,GAAS,2BAAF,GAAO,2BAAF,GAEvH,IAF4H,GAErH,iBAAF,GAAiB,SAAF,GAAc,kBAAF,GAAkB,iBAAF,GAAsB,2BAAF,GACpE,IADyE,GAClE,iBAAF,GAAiB,wBAAF,GAA6B,2BAAF,GAC/C,IADoD,GAC7C,iBAAF,GAAiB,UAAF,GAAe,+BAAF,GAAW,IAAF;AAxBC;AAC1C;AAD0C;AAAhB;AAAgB;AA7DG;AAAnB;AAE7B,iBACA,IAsDoE,GAtD7D,+BAAF,GAAW,qDAAF,GAA4D,2BAAF,GAOxE,MAP6E,GAOpE,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,0CAAF,GAAiD,2BAAF,GAC7D,MADkE,GACzD,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GAC7D,MADkE,GACzD,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,4CAAF,GAAmD,2BAAF,GAC/D,MADoE,GAC3D,qCAAF,GAAiB,yCAAF,GAA8C,2BAAF,GAClE,MADuE,GAC9D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,+CAAF,GAAsD,2BAAF,GAClE,mCADuE,GACjC,+BAAF,GAAW,qCAAF,GAA0C,2BAAF,GACrF,MAD0F,GACjF,qCAAF,GAAiB,gDAAF,GAAqD,2BAAF,GACzE,MAD8E,GACrE,qCAAF,GAAiB,+CAAF,GAAoD,2BAAF,GACxE,MAD6E,GACpE,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,4CAAF,GAAmD,2BAAF,GAC/D,MADoE,GAC3D,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC/D,MADoE,GAC3D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,0CAAF,GAAiD,2BAAF,GAC7D,MADkE,GACzD,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GAC7D,MADkE,GACzD,2BAAF,GAAO,2BAAF,GAKZ,IALiB,GAKV,+BAAF,GAAW,uCAAF,GAA8C,2BAAF,GAC1D,MAD+D,GACtD,qCAAF,GAAiB,iCAAF,GAAsC,2BAAF,GAC1D,MAD+D,GACtD,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,wCAAF,GAA+C,2BAAF,GAC3D,MADgE,GACvD,qCAAF,GAAiB,kCAAF,GAAuC,2BAAF,GAC3D,MADgE,GACvD,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,6CAAF,GAAoD,2BAAF,GAChE,MADqE,GAC5D,qCAAF,GAAiB,uCAAF,GAA4C,2BAAF,GAChE,MADqE,GAC5D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,2CAAF,GAAkD,2BAAF,GAC9D,MADmE,GAC1D,qCAAF,GAAiB,qCAAF,GAA0C,2BAAF,GAC9D,MADmE,GAC1D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,0CAAF,GAAiD,2BAAF,GAC7D,MADkE,GACzD,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GAC7D,MADkE,GACzD,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,4CAAF,GAAmD,2BAAF,GAC/D,MADoE,GAC3D,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC/D,MADoE,GAC3D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,2CAAF,GAAkD,2BAAF,GAC9D,MADmE,GAC1D,qCAAF,GAAiB,uCAAF,GAA4C,2BAAF,GAChE,MADqE,GAC5D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,4CAAF,GAAmD,2BAAF,GAC/D,MADoE,GAC3D,qCAAF,GAAiB,uCAAF,GAA4C,2BAAF,GAChE,MADqE,GAC5D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,4CAAF,GAAmD,2BAAF,GAC/D,MADoE,GAC3D,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC/D,MADoE;AAzDvC;AAAmB;AAjiBC;AAApB;AAE7B,iBACE,qBA4IkD,GA5I1B,gDAAF,GAA4B,GAAF,GAC9C,mCADoD,GACvC,kBAAF,GAAuB,2BAAF,GAChC,mCADqC,GACxB,eAAF,GAAoB,2BAAF,GAE/B,mBAFoC,GAEd,2BAAF,GACpB,QADyB,GACd,mCAAF,GAAe,8BAAF,GAAmC,kBAAF,GAAkB,+CAAF,GAAoD,2BAAF,GACzH,WAD8H,GAChH,2BAAF,GACZ,kBADiB,GACI,2BAAF,GACnB,iBADwB,GACJ,mCAAF,GAAe,wCAAF,GAA6C,2BAAF,GAC1E,WAD+E,GACjE,mCAAF,GAAe,wBAAF,GAA6B,2BAAF,GACpD,iBADyD,GACrC,kBAAF,GAAkB,QAAF,GAAa,mCAAF,GAAe,iBAAF,GAAsB,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GAC/G,OADoH,GAC1G,2BAAF,GACR,KADa,GACL,2BAAF,GACN,QADW,GACA,mCAAF,GAAe,uBAAF,GAA4B,mCAAF,GAAe,iBAAF,GAAsB,mCAAF,GAAe,qBAAF,GAA0B,2BAAF,GACtH,YAD2H,GAC5G,2BAAF,GACb,aADkB,GACF,mCAAF,GAAe,cAAF,GAAmB,2BAAF,GAC5C,oBADiD,GAC1B,kBAAF,GAAkB,SAAF,GAAc,mCAAF,GAAe,mBAAF,GAAwB,mCAAF,GAAe,mBAAF,GAAwB,2BAAF,GACvH,sBAD4H,GACnG,2BAAF,GACvB,OAD4B,GAClB,2BAAF,GACR,KADa,GACL,2BAAF,GACN,+BADW,GACuB,2BAAF,GAChC,YADqC,GACtB,2BAAF,GACb,wBADkB,GACS,2BAAF,GACzB,sBAD8B,GACL,2BAAF,GACvB,OAD4B,GAClB,2BAAF,GACR,KADa,GACL,2BAAF,GACN,SADW,GACC,2BAAF,GACV,gBADe,GACI,2BAAF,GACjB,KADsB,GACd,2BAAF,GAAO,2BAAF,GAEX,gBAFgB,GAEG,2BAAF,GACjB,qBADsB,GACE,2BAAF,GACtB,iBAD2B,GACP,2BAAF,GAClB,sBADuB,GACE,kBAAF,GAAkB,UAAF,GAAe,mCAAF,GAAe,gBAAF,GAAqB,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GACrH,eAD0H,GACxG,mCAAF,GAAe,YAAF,GAAiB,2BAAF,GAC5C,iBADiD,GAC7B,2BAAF,GAClB,iBADuB,GACH,mCAAF,GAAe,cAAF,GAAmB,2BAAF,GAChD,mBADqD,GAC/B,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACpD,gBADyD,GACtC,mCAAF,GAAe,aAAF,GAAkB,2BAAF,GAC9C,mBADmD,GAC7B,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACpD,6BADyD,GACzB,2BAAF,GAC9B,aADmC,GACnB,+BAAF,GAAW,2BAAF,GACvB,OAD4B,GAClB,2BAAF,GACR,UADa,GACA,2BAAF,GACX,iBADgB,GACI,2BAAF,GAClB,sBADuB,GACE,kBAAF,GAAkB,UAAF,GAAe,mCAAF,GAAe,gBAAF,GAAqB,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GACrH,eAD0H,GACxG,mCAAF,GAAe,YAAF,GAAiB,2BAAF,GAC5C,iBADiD,GAC7B,mCAAF,GAAe,cAAF,GAAmB,2BAAF,GAChD,mBADqD,GAC/B,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACpD,gBADyD,GACtC,mCAAF,GAAe,aAAF,GAAkB,2BAAF,GAC9C,mBADmD,GAC7B,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACpD,6BADyD,GACzB,2BAAF,GAC9B,aADmC,GACnB,+BAAF,GAAW,2BAAF,GACvB,OAD4B,GAClB,2BAAF,GACR,KADa,GACL,2BAAF,GAAO,2BAAF,GAsBX,SAtBgB,GAsBJ,kCAAF,GAAc,IAAF,GAAS,2BAAF,GAE7B,MAFkC,GAEzB,kCAAF,GAAc,SAAF,GAAc,kBAAF,GAAkB,mBAAF,GAAwB,2BAAF,GAGrE,MAH0E,GAGjE,kCAAF,GAAc,wCAAF,GAA+C,2BAAF,GAChE,QADqE,GAC1D,qCAAF,GAAiB,oCAAF,GAAyC,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC1F,QAD+F,GACpF,2BAAF,GAAO,2BAAF,GAEd,MAFmB,GAEV,kCAAF,GAAc,6CAAF,GAAoD,2BAAF,GACrE,QAD0E,GAC/D,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC/F,QADoG,GACzF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,kCAAF,GAAc,2CAAF,GAAkD,2BAAF,GACnE,QADwE,GAC7D,qCAAF,GAAiB,uCAAF,GAA4C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC7F,QADkG,GACvF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,kCAAF,GAAc,0CAAF,GAAiD,2BAAF,GAClE,QADuE,GAC5D,qCAAF,GAAiB,sCAAF,GAA2C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC5F,QADiG,GACtF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,kCAAF,GAAc,4CAAF,GAAmD,2BAAF,GACpE,QADyE,GAC9D,qCAAF,GAAiB,wCAAF,GAA6C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC9F,QADmG,GACxF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,kCAAF,GAAc,2CAAF,GAAkD,2BAAF,GACnE,QADwE,GAC7D,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC/F,QADoG,GACzF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,kCAAF,GAAc,6CAAF,GAAoD,2BAAF,GACrE,QAD0E,GAC/D,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC/F,QADoG,GACzF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,kCAAF,GAAc,4CAAF,GAAmD,2BAAF,GACpE,QADyE,GAC9D,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC/F,QADoG,GACzF,2BAAF,GAAO,2BAAF,GAwBd,MAxBmB,GAwBV,kCAAF,GAAc,0CAAF,GAAiD,2BAAF,GAClE,yCADuE,GAC3B,2BAAF,GAC1C,6CAD+C,GACC,2BAAF,GAC9C,6CADmD,GACH,2BAAF,GAC9C,mDADmD,GACG,2BAAF,GACpD,kCADyD,GACpB,2BAAF,GACnC,mCADwC,GACF,2BAAF,GACpC,QADyC,GAC9B,qCAAF,GAAiB,sCAAF,GAA2C,mCAAF,GAAe,oBAAF,GAAyB,2BAAF,GACrG,QAD0G,GAC/F,2BAAF,GAAO,2BAAF,GAEd,UAFmB,GAEN,2BAAF,GACX,MADgB,GACP,kCAAF,GAAc,uBAAF,GAA4B,2BAAF,GAE7C,KAFkD;AA/IvB;AAAoB;AA2bL;AAAf;AAE7B,iBAAU,IAAiB,GAAV,kCAAF,GAAc,eAAF;AAFE;AAAe;AAvSU;AAAzB;AAE7B,iBACE,YAsRkB,GAtRH,mCAAF,GAAe,YAAF,GAAiB,2BAAF,GACzC,gBAD8C,GAC5B,2BAAF,GAChB,uBADqB,GACI,2BAAF,GAEvB,iBAF4B,GAER,mCAAF,GAAe,gCAAF,GAAqC,2BAAF,GAClE,mBADuE,GACjD,2BAAF,GACpB,sBADyB,GACA,mCAAF,GAAe,2BAAF,GAAgC,2BAAF,GAClE,uBADuE,GAC7C,mCAAF,GAAe,gCAAF,GAAqC,2BAAF,GACxE,qCAD6E,GACrC,2BAAF,GACtC,8BAD2C,GACV,2BAAF,GAC/B,yBADoC,GACR,mCAAF,GAAe,kCAAF,GAAuC,2BAAF,GAC5E,gCADiF,GAC9C,2BAAF,GACjC,gCADsC,GACH,2BAAF,GACjC,uBADsC,GACZ,mCAAF,GAAe,gCAAF,GAAqC,2BAAF,GACxE,8BAD6E,GAC5C,2BAAF,GAC/B,8BADoC,GACH,2BAAF,GAC/B,qBADoC,GACZ,mCAAF,GAAe,8BAAF,GAAmC,2BAAF,GACpE,mCADyE,GACnC,2BAAF,GACpC,4BADyC,GACV,2BAAF,GAC7B,uBADkC,GACR,mCAAF,GAAe,gCAAF,GAAqC,2BAAF,GACxE,8BAD6E,GAC5C,2BAAF,GAC/B,8BADoC,GACH,2BAAF,GAC/B,iBADoC,GAChB,mCAAF,GAAe,0BAAF,GAA+B,2BAAF,GAC5D,wBADiE,GACtC,2BAAF,GACzB,wBAD8B,GACH,2BAAF,GACzB,oBAD8B,GACP,mCAAF,GAAe,6BAAF,GAAkC,2BAAF,GAClE,2BADuE,GACzC,2BAAF,GAC5B,2BADiC,GACH,2BAAF,GAC5B,kBADiC,GACZ,mCAAF,GAAe,iCAAF,GAAsC,2BAAF,GACpE,YADyE,GAC1D,mCAAF,GAAe,2CAAF,GAAgD,2BAAF,GACxE,yBAD6E,GACjD,2BAAF,GAC1B,kBAD+B,GACV,mCAAF,GAAe,8DAAF,GAAmE,2BAAF,GACjG,0BADsG,GACzE,2BAAF,GAC3B,kBADgC,GACX,mCAAF,GAAe,2BAAF,GAAgC,2BAAF,GAC9D,YADmE,GACpD,mCAAF,GAAe,qCAAF,GAA0C,2BAAF,GAClE,yBADuE,GAC3C,2BAAF,GAC1B,kBAD+B,GACV,mCAAF,GAAe,wDAAF,GAA6D,2BAAF,GAC3F,0BADgG,GACnE,2BAAF,GAC3B,0DADgC,GAC6B,2BAAF,GAC3D,gBADgE,GAC7C,mCAAF,GAAe,2BAAF,GAAgC,2BAAF,GAC5D,iBADiE,GAC7C,2BAAF,GAClB,iEADuB,GAC6C,2BAAF,GAClE,kBADuE,GAClD,2BAAF,GACnB,iBADwB,GACJ,2BAAF,GAClB,+DADuB,GAC2C,2BAAF,GAChE,kBADqE,GAChD,2BAAF,GACnB,iBADwB,GACJ,2BAAF,GAClB,kDADuB,GAC8B,2BAAF,GACnD,kBADwD,GACnC,2BAAF,GACnB,iBADwB,GACJ,2BAAF,GAClB,gEADuB,GAC4C,2BAAF,GACjE,kBADsE,GACjD,2BAAF,GACnB,iBADwB,GACJ,2BAAF,GAClB,oBADuB,GACA,mCAAF,GAAe,+BAAF,GAAoC,2BAAF,GACpE,kBADyE,GACpD,2BAAF,GACnB,SADwB,GACZ,2BAAF,GAAO,2BAAF,GACf,2CADoB,GAC0B,2BAAF,GAC5C,2BADiD,GACnB,2BAAF,GAC5B,uCADiC,GACS,2BAAF,GACxC,2CAD6C,GACC,2BAAF,GAC5C,uCADiD,GACP,2BAAF,GACxC,kCAD6C,GACR,2BAAF,GACnC,sCADwC,GACC,2BAAF,GACvC,gCAD4C,GACT,2BAAF,GACjC,aADsC,GACtB,2BAAF,GACd,gEADmB,GACgD,2BAAF,GACjE,WADsE,GACxD,2BAAF,GACZ,OADiB,GACP,2BAAF,GAAO,2BAAF,GACb,KADkB,GACV,2BAAF,GAAO,2BAAF,GAEX,gCAFgB,GAEmB,2BAAF,GACjC,yBADsC,GACV,2BAAF,GAC1B,kDAD+B,GACsB,2BAAF,GACnD,mDADwD,GACF,2BAAF,GACpD,8DADyD,GACQ,2BAAF,GAC/D,+DADoE,GACF,2BAAF,GAChE,gCADqE,GAClC,2BAAF,GACjC,OADsC,GAC5B,2BAAF,GACR,uBADa,GACa,2BAAF,GACxB,KAD6B,GACrB,2BAAF,GAAO,2BAAF,GAEX,iCAFgB,GAEoB,2BAAF,GAClC,oCADuC,GACA,2BAAF,GACrC,gDAD0C,GACS,2BAAF,GACjD,wEADsD,GACqB,2BAAF,GACzE,yEAD8E,GACF,2BAAF,GAC1E,wEAD+E,GACJ,2BAAF,GACzE,yEAD8E,GACF,2BAAF,GAC1E,wBAD+E,GACpD,2BAAF,GACzB,KAD8B,GACtB,2BAAF,GAAO,2BAAF,GAEX,iCAFgB,GAEoB,2BAAF,GAClC,oCADuC,GACA,2BAAF,GACrC,gDAD0C,GACS,2BAAF,GACjD,8CADsD,GACL,2BAAF,GAC/C,sDADoD,GACK,2BAAF,GACvD,uDAD4D,GACF,2BAAF,GACxD,wBAD6D,GAClC,2BAAF,GACzB,KAD8B,GACtB,2BAAF,GAAO,2BAAF,GAEX,cAFgB,GAEC,2BAAF,GACf,+BADoB,GACc,2BAAF,GAChC,qCADqC,GACG,2BAAF,GACtC,mBAD2C,GACrB,2BAAF,GACpB,wBADyB,GACE,mCAAF,GAAe,+BAAF,GAAoC,mCAAF,GAAe,2BAAF,GAAgC,2BAAF,GACnH,qBADwH,GAChG,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACtD,uBAD2D,GACjC,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAC1D,uBAD+D,GACrC,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAC1D,yBAD+D,GACnC,mCAAF,GAAe,oBAAF,GAAyB,2BAAF,GAC9D,wBADmE,GACxC,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAC3D,kBADgE,GAC3C,mCAAF,GAAe,aAAF,GAAkB,2BAAF,GAChD,mBADqD,GAC/B,mCAAF,GAAe,cAAF,GAAmB,2BAAF,GAClD,qBADuD,GAC/B,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACtD,qBAD2D,GACnC,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACtD,kBAD2D,GACtC,mCAAF,GAAe,aAAF,GAAkB,2BAAF,GAChD,oBADqD,GAC9B,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GACpD,eADyD,GACvC,+BAAF,GAAW,2BAAF,GACzB,UAD8B,GACjB,2BAAF,GAAO,2BAAF,GAChB,YADqB,GACN,2BAAF,GACb,kCADkB,GACmB,2BAAF,GACnC,wCADwC,GACG,2BAAF,GACzC,mBAD8C,GACxB,2BAAF,GACpB,qBADyB,GACD,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACtD,uBAD2D,GACjC,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAC1D,uBAD+D,GACrC,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAC1D,yBAD+D,GACnC,mCAAF,GAAe,oBAAF,GAAyB,2BAAF,GAC9D,wBADmE,GACxC,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAC3D,qBADgE,GACxC,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACtD,mBAD2D,GACrC,mCAAF,GAAe,cAAF,GAAmB,2BAAF,GAClD,qBADuD,GAC/B,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACtD,kBAD2D,GACtC,mCAAF,GAAe,aAAF,GAAkB,2BAAF,GAChD,oBADqD,GAC9B,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GACpD,mBADyD,GACnC,2BAAF,GACpB,mBADyB,GACH,mCAAF,GAAe,sCAAF,GAA2C,2BAAF,GAC1E,mBAD+E,GACzD,mCAAF,GAAe,sCAAF,GAA2C,2BAAF,GAC1E,kBAD+E,GAC1D,mCAAF,GAAe,uCAAF,GAA4C,2BAAF,GAC1E,kBAD+E,GAC1D,mCAAF,GAAe,uCAAF,GAA4C,2BAAF,GAC1E,YAD+E,GAChE,2BAAF,GACb,eADkB,GACA,+BAAF,GAAW,2BAAF,GACzB,UAD8B,GACjB,2BAAF,GAAO,2BAAF,GAChB,YADqB,GACN,2BAAF,GACb,gCADkB,GACiB,2BAAF,GACjC,sCADsC,GACG,2BAAF,GAEvC,wBAF4C,GAEjB,2BAAF,GACzB,oBAD8B,GACP,2CAAF,GAAuB,IAAF,GAAS,2BAAF,GACjD,wBADsD,GAC3B,qCAAF,GAAiB,IAAF,GAAS,2BAAF,GAC/C,sBADoD,GAC3B,qCAAF,GAAiB,SAAF,GAAc,2BAAF,GAClD,SADuD,GAC3C,2BAAF,GAEV,mBAFe,GAEO,2BAAF,GACpB,yBADyB,GACG,2BAAF,GAC1B,wBAD+B,GACJ,2BAAF,GACzB,qBAD8B,GACN,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACtD,uBAD2D,GACjC,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAC1D,uBAD+D,GACrC,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAC1D,yBAD+D,GACnC,mCAAF,GAAe,oBAAF,GAAyB,2BAAF,GAC9D,wBADmE,GACxC,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAC3D,qBADgE,GACxC,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACtD,mBAD2D,GACrC,mCAAF,GAAe,cAAF,GAAmB,2BAAF,GAClD,qBADuD,GAC/B,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACtD,kBAD2D,GACtC,mCAAF,GAAe,aAAF,GAAkB,2BAAF,GAChD,oBADqD,GAC9B,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GACpD,oBADyD,GAClC,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GACpD,eADyD,GACvC,+BAAF,GAAW,2BAAF,GACzB,UAD8B,GACjB,2BAAF,GAAO,2BAAF,GAChB,YADqB,GACN,2BAAF,GACb,iCADkB,GACkB,2BAAF,GAClC,uCADuC,GACG,2BAAF,GAExC,mBAF6C,GAEvB,2BAAF,GACpB,yBADyB,GACG,2BAAF,GAC1B,gBAD+B,GACZ,2CAAF,GAAuB,GAAF,GAAQ,2BAAF,GAC5C,qBADiD,GACzB,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACtD,uBAD2D,GACjC,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAC1D,uBAD+D,GACrC,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAC1D,yBAD+D,GACnC,mCAAF,GAAe,oBAAF,GAAyB,2BAAF,GAC9D,wBADmE,GACxC,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAC3D,qBADgE,GACxC,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACtD,mBAD2D,GACrC,mCAAF,GAAe,cAAF,GAAmB,2BAAF,GAClD,qBADuD,GAC/B,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACtD,kBAD2D,GACtC,mCAAF,GAAe,aAAF,GAAkB,2BAAF,GAChD,oBADqD,GAC9B,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GACpD,oBADyD,GAClC,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GACpD,eADyD,GACvC,+BAAF,GAAW,2BAAF,GACzB,UAD8B,GACjB,2BAAF,GAAO,2BAAF,GAChB,YADqB,GACN,2BAAF,GACb,KADkB,GACV,2BAAF,GAAO,2BAAF,GAEX,SAFgB,GAEJ,uCAAF,GAAmB,IAAF,GAAS,2BAAF,GAClC,gBADuC,GACpB,2BAAF,GACjB,iCADsB,GACc,2BAAF,GAClC,uCADuC,GACG,2BAAF,GACxC,UAD6C,GAChC,uCAAF,GAAmB,SAAF,GAAc,kBAAF,GAAkB,mBAAF,GAAwB,2BAAF,GAC9E,cADmF,GAClE,2BAAF,GACf,oCADoB,GACmB,2BAAF,GACrC,0CAD0C,GACG,2BAAF,GAC3C,UADgD,GACnC,uCAAF,GAAmB,SAAF,GAAc,kBAAF,GAAkB,sBAAF,GAA2B,2BAAF,GACjF,cADsF,GACrE,2BAAF,GACf,mCADoB,GACkB,2BAAF,GACpC,yCADyC,GACG,2BAAF,GAC1C,UAD+C,GAClC,uCAAF,GAAmB,SAAF,GAAc,kBAAF,GAAkB,qBAAF,GAA0B,2BAAF,GAChF,cADqF,GACpE,2BAAF,GACf,kCADoB,GACiB,2BAAF,GACnC,wCADwC,GACG,2BAAF,GACzC,UAD8C,GACjC,uCAAF,GAAmB,SAAF,GAAc,kBAAF,GAAkB,oBAAF,GAAyB,2BAAF,GAC/E,cADoF,GACnE,2BAAF,GACf,OADoB,GACV,2BAAF,GAER,MAFa,GAEJ,uCAAF,GAAmB,wCAAF,GAA+C,2BAAF,GACrE,QAD0E,GAC/D,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC/F,QADoG,GACzF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,uCAAF,GAAmB,6CAAF,GAAoD,2BAAF,GAC1E,QAD+E,GACpE,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACpG,QADyG,GAC9F,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,uCAAF,GAAmB,2CAAF,GAAkD,2BAAF,GACxE,QAD6E,GAClE,qCAAF,GAAiB,4CAAF,GAAiD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAClG,QADuG,GAC5F,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,uCAAF,GAAmB,0CAAF,GAAiD,2BAAF,GACvE,QAD4E,GACjE,qCAAF,GAAiB,2CAAF,GAAgD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACjG,QADsG,GAC3F,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,uCAAF,GAAmB,4CAAF,GAAmD,2BAAF,GACzE,QAD8E,GACnE,qCAAF,GAAiB,6CAAF,GAAkD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACnG,QADwG,GAC7F,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,uCAAF,GAAmB,2CAAF,GAAkD,2BAAF,GACxE,QAD6E,GAClE,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACpG,QADyG,GAC9F,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,uCAAF,GAAmB,4CAAF,GAAmD,2BAAF,GACzE,QAD8E,GACnE,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACpG,QADyG,GAC9F,2BAAF,GAAO,2BAAF,GAEd,MAFmB,GAEV,uCAAF,GAAmB,0CAAF,GAAiD,2BAAF,GACvE,gBAD4E,GACzD,2BAAF,GACjB,yCADsB,GACsB,2BAAF,GAC1C,wCAD+C,GACJ,2BAAF,GACzC,UAD8C,GACjC,qCAAF,GAAiB,2CAAF,GAAgD,mCAAF,GAAe,yCAAF,GAA8C,2BAAF,GACjI,cADsI,GACrH,2BAAF,GACf,0CADoB,GACyB,2BAAF,GAC3C,UADgD,GACnC,qCAAF,GAAiB,2CAAF,GAAgD,mCAAF,GAAe,gCAAF,GAAqC,2BAAF,GACxH,cAD6H,GAC5G,2BAAF,GACf,uCADoB,GACsB,2BAAF,GACxC,UAD6C,GAChC,qCAAF,GAAiB,2CAAF,GAAgD,mCAAF,GAAe,gCAAF,GAAqC,2BAAF,GACxH,cAD6H,GAC5G,2BAAF,GACf,OADoB,GACV,2BAAF,GAAO,2BAAF,GACb,SADkB,GACN,2BAAF,GAAO,2BAAF,GAEf,gBAFoB,GAED,2BAAF,GACjB,0CADsB,GACuB,2BAAF,GAC3C,UADgD,GACnC,uCAAF,GAAmB,iDAAF,GAAwD,2BAAF,GAClF,YADuF,GACxE,qCAAF,GAAiB,2CAAF,GAAgD,mCAAF,GAAe,gCAAF,GAAqC,2BAAF,GAC1H,aAD+H,GAC/G,2BAAF,GAAO,2BAAF,GACnB,cADwB,GACP,2BAAF,GACf,uCADoB,GACsB,2BAAF,GACxC,UAD6C,GAChC,uCAAF,GAAmB,iDAAF,GAAwD,2BAAF,GAClF,YADuF,GACxE,qCAAF,GAAiB,2CAAF,GAAgD,mCAAF,GAAe,gCAAF,GAAqC,2BAAF,GAC1H,aAD+H,GAC/G,2BAAF,GAAO,2BAAF,GACnB,UADwB,GACX,uCAAF,GAAmB,iDAAF,GAAwD,2BAAF,GAClF,YADuF,GACxE,qCAAF,GAAiB,2CAAF,GAAgD,mCAAF,GAAe,gCAAF,GAAqC,2BAAF,GAC1H,aAD+H,GAC/G,2BAAF,GAAO,2BAAF,GACnB,cADwB,GACP,2BAAF,GACf,SADoB,GACR,2BAAF,GAAO,2BAAF,GAEf,UAFoB,GAEP,2BAAF,GACX,MADgB,GACP,uCAAF,GAAmB,uBAAF,GAA4B,2BAAF,GAClD,KADuD,GAC/C,2BAAF,GAAO,2BAAF,GAEX,cAFgB,GAEC,2BAAF,GACf,uCADoB,GACsB,2BAAF,GACxC,sCAD6C,GACJ,2BAAF,GACvC,QAD4C,GACjC,uCAAF,GAAmB,mDAAF,GAA0D,2BAAF,GAClF,UADuF,GAC1E,qCAAF,GAAiB,2CAAF,GAAgD,mCAAF,GAAe,+BAAF,GAAoC,2BAAF,GACvH,WAD4H,GAC9G,2BAAF,GAAO,2BAAF,GACjB,QADsB,GACX,uCAAF,GAAmB,sDAAF,GAA6D,2BAAF,GACrF,UAD0F,GAC7E,qCAAF,GAAiB,2CAAF,GAAgD,mCAAF,GAAe,+BAAF,GAAoC,2BAAF,GACvH,WAD4H,GAC9G,2BAAF,GAAO,2BAAF,GACjB,QADsB,GACX,uCAAF,GAAmB,sDAAF,GAA6D,2BAAF,GACrF,UAD0F,GAC7E,qCAAF,GAAiB,2CAAF,GAAgD,mCAAF,GAAe,+BAAF,GAAoC,2BAAF,GACvH,WAD4H,GAC9G,2BAAF,GAAO,2BAAF,GACjB,YADsB,GACP,2BAAF,GACb,KADkB;AAzRS;AAAyB;AA4SL;AAApB;AAE7B,iBAAU,IAAsB,GAAf,uCAAF,GAAmB,eAAF;AAFH;AAAoB;AA5dL;AAAf;AAE7B,iBACE,iBAEkD,GAF9B,kBAAF,GAAkB,UAAF,GAAe,mCAAF,GAAe,6BAAF,GAAkC,mCAAF,GAAe,8BAAF,GAAmC,2BAAF,GAC1I,iBAD+I,GAC3H,kBAAF,GAAkB,UAAF,GAAe,mCAAF,GAAe,6BAAF,GAAkC,mCAAF,GAAe,8BAAF,GAAmC,2BAAF,GAC1I,IAD+I,GACxI,+BAAF,GAAW,iBAAF,GAAsB,kBAAF,GAAkB,yBAAF;AALvB;AAAe;AAieO;AAAtB;AAE7B,iBACE,cAC0C,GADzB,+BAAF,GAAW,eAAF,GAAoB,2BAAF,GAC1C,oCAD+C,GACR,2BAAF,GACrC,qCAD0C;AAJf;AAAsB;AAQV;AAAZ;AAE7B,iBACE,cAGsE,GAHrD,+BAAF,GAAW,eAAF,GAAoB,2BAAF,GAC1C,gEAD+C,GACoB,2BAAF,GACjE,iEADsE,GACF,2BAAF,GAClE,gEADuE,GACJ,2BAAF,GACjE,iEADsE;AAN3C;AAAY;AAUG;AAAf;AAE7B,iBAAU,YAAsB,GAAP,+BAAF,GAAW,aAAF;AAFH;AAAe;AAkKF;AAAb;AAE7B,iBACE,qBAKkD,GAL1B,iBAAF,GAAiB,mBAAF,GAAwB,2BAAF,GAC3D,qBADgE,GACxC,2BAAF,GACtB,qBAD2B,GACH,kBAAF,GAAkB,qBAAF,GAA0B,mCAAF,GAAe,4BAAF,GAAiC,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAC5I,qEADiJ,GACzE,2BAAF,GACtE,4CAD2E,GAC5B,2BAAF,GAC7C,4CADkD,GACH,2BAAF,GAC7C,KADkD;AARvB;AAAa;AAYA;AAAb;AAE7B,iBACE,qBAKkD,GAL1B,iBAAF,GAAiB,mBAAF,GAAwB,2BAAF,GAC3D,qBADgE,GACxC,2BAAF,GACtB,oBAD2B,GACJ,kBAAF,GAAkB,kBAAF,GAAuB,mCAAF,GAAe,mBAAF,GAAwB,mCAAF,GAAe,UAAF,GAAe,IAAF,GACvH,oEAD6H,GACtD,2BAAF,GACrE,2CAD0E,GAC5B,2BAAF,GAC5C,4CADiD,GACF,2BAAF,GAC7C,KADkD;AARvB;AAAa;AA1sBS;AAAtB;AAE7B,iBACE,kBACc,GADO,kBAAF,GAAkB,UAAF,GAAe,mCAAF,GAAe,gBAAF,GAAqB,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GACjH,IADsH,GAC/G,+BAAF,GAAW,cAAF;AAJa;AAAsB;AAOP;AAAf;AAE7B,iBACE,IAAyC,GAAlC,+BAAF,GAAW,WAAF,GAAgB,mCAAF,GAAe,IAAF;AAHd;AAAe;AAmBC;AAAhB;AAE7B,iBACE,eASc,GATI,2BAAF,GAChB,iBADqB,GACD,mCAAF,GAAe,cAAF,GAAmB,2BAAF,GAChD,mBADqD,GAC/B,mCAAF,GAAe,wBAAF,GAA6B,2BAAF,GAC5D,+BADiE,GAC/B,mCAAF,GAAe,qBAAF,GAA0B,2BAAF,GACrE,sBAD0E,GACjD,mCAAF,GAAe,yBAAF,GAA8B,2BAAF,GAChE,mBADqE,GAC/C,mCAAF,GAAe,sBAAF,GAA2B,2BAAF,GAC1D,YAD+D,GAChD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACxC,eAD6C,GAC3B,mCAAF,GAAe,cAAF,GAAmB,2BAAF,GAC9C,KADmD,GAC3C,2BAAF,GACN,IADW,GACJ,+BAAF,GAAW,mBAAF;AAZa;AAAgB;AAugBE;AAAlB;AAE5B,iBACC,8BAuBmB,GAvBc,2BAAF,GAC/B,QADoC,GACzB,qCAAF,GAAiB,4DAAF,GAAiE,2BAAF,GACvF,GAD4F,GACtF,2BAAF,GACJ,iDADS,GAC6C,2BAAF,GACpD,8CADyD,GACJ,2BAAF,GACnD,gBADwD,GACrC,2BAAF,GACjB,gBADsB,GACH,2BAAF,GACjB,uEADsB,GAEtB,qBADwE,GAChD,+BAAF,GAAW,eAAF,GAAoB,2BAAF,GACjD,+BADsD,GACpB,2BAAF,GAChC,+BADqC,GACH,2BAAF,GAChC,gDADqC,GACkB,2BAAF,GACrD,uBAD0D,GAChC,2BAAF,GACxB,wBAD6B,GACF,2BAAF,GACzB,gFAD8B,GACyD,2BAAF,GACrF,OAD0F,GAChF,2BAAF,GACR,uBADa,GACa,2BAAF,GACxB,0BAD6B,GACA,2BAAF,GAC3B,0BADgC,GACH,2BAAF,GAC3B,OADgC,GACtB,2BAAF,GACR,KADa,GACL,2BAAF,GAEN,kFAFW,GAEoF,2BAAF,GAC7F,aADkG,GAClF,2BAAF,GACd,GADmB;AA1BQ;AAAkB;AA3eK;AAAvB;AAE7B,iBAAU,IAA6F,GAAtF,2CAAF,GAAuB,cAAF,GAAmB,mCAAF,GAAe,qBAAF,GAA0B,mCAAF,GAAe,kBAAF;AAF1E;AAAuB;AAKN;AAAjB;AAE7B,iBAAU,UAI4I,GAJ/H,qCAAF,GAAiB,GAAF,GAAQ,mCAAF,GAAe,OAAF,GAAY,2BAAF,GACvD,SAD4D,GAChD,2BAAF,GACV,IADe,GACR,qCAAF,GAAiB,GAAF,GAAQ,mCAAF,GAAe,kBAAF,GAAuB,mCAAF,GAAe,wBAAF,GAA6B,mCAAF,GAAe,qBAAF,GAA0B,2BAAF,GACzI,QAD8I,GACnI,2BAAF,GACT,IADc,GACP,qCAAF,GAAiB,GAAF,GAAQ,mCAAF,GAAe,gBAAF,GAAqB,mCAAF,GAAe,wBAAF,GAA6B,mCAAF,GAAe,qBAAF,GAA0B,2BAAF,GACvI,GAD4I;AANzH;AAAiB;AAiiBW;AAA5B;AAE7B,iBAAU;AAFmB;AAA4B;AAKL;AAAvB;AAE7B,iBAAU;AAFmB;AAAuB;AAqHhB;AAAP;AAC1B;AADiC;AAEpC,mBAAU,mCAAc,YAAW,KAAG,EAAH;AAFC;AACjC;AADiC;AAAP;AAAO;AA3tBG;AAAV;AAE7B,iBAAU;AAFmB;AAAU;AAsDE;AACtC;AADsC;AAEzC,2BAAW,YAAY,CAAC,0EAAD;AAFkB;AACtC;AADsC;;AA1EH;AAEtC;AAFuC;AAAD;AAKA;AAEtC;AAFsC;AApEjB;;;;AAwCrB;AAzEY;AArBd,GAqBc,qLArBd;AEAA,qCAWS,UAXT;;;;AAcS,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AAWG,uBAAG;AAqFW;AAE3B,QAAG,CAAI,oDAA2B,UAAQ,0BAAwB,CAAC,kEAAkC,CAAC,UAAD;eAAA,MAAC;AAAD;;QAAnC,CAAlE;AAEE,uCAAqC,eAAtB,4BAAsB,QAAC,4DAAD,EAArC;AACA,0DAA2B,UAAQ,mBAAmB,CAAC,kEAAwB,iBAAzB;KAHxD;AAF2B;AASE;AAE7B,wDAA2B,UAAQ,sBAAsB,CAAC,iEAAD;AAF5B;AA1H/B,mBAiCc;AAyBU;AAFO;;;;;AAEP;AAuEoB;AAAZ;AAC3B;AADuC;AAE1C,uCAAyB,eAAf,qBAAe,QAAC,uDAAD,EAAzB;AADG;AADuC;AACvC;AADuC;AAAZ;AAAY;AAvEpB;;;;AAQP;;AAqJqB;AAEpC,aAAK,MAAI,CAAC,wCAAe,QAAC,cAAU,CAAC,gBAA4B,GAAf,oBAAF,GAAmB,gBAAF,CAAoB,WAAY,YAA7D,CAAV,CAAjB;AACT,aAAK,MAAI,CAAC,wCAAe,QAAC,gBAAY,CAAC,gBAA4B,GAAf,oBAAF,GAAmB,iBAAF,CAAqB,kBAAmB,QDoDJ,GAAsB,MAAyB,KCpDhH,CAAZ,CAAjB;AACT,aAAK,MAAI,CAAC,wCAAe,QAAC,gBAAY,CAAC,gBAA4B,GAAf,oBAAF,GAAmB,oBAAF,CAAwB,kBAAmB,QDmDP,GAAsB,MAAyB,KCnDhH,CAAZ,CAAjB;AACT,aAAK,MAAI,CAAC,wCAAe,QAAC,gBAAY,CAAC,gBAA4B,GAAf,oBAAF,GAAmB,eAAF,CAAmB,kBAAmB,QDkDF,GAAsB,MAAyB,KClDhH,CAAZ,CAAjB;AACT,aAAK,MAAI,CAAC,wCAAe,QAAC,gBAAY,CAAC,gBAA4B,GAAf,oBAAF,GAAmB,sBAAF,CAA0B,kBAAmB,QDiDT,GAAsB,MAAyB,KCjDhH,CAAZ,CAAjB;AACT,aAAK,MAAI,CAAC,wCAAe,QAAC,gBAAY,CAAC,gBAA4B,GAAf,oBAAF,GAAmB,iBAAF,CAAqB,kBAAmB,QDgDJ,GAAsB,MAAyB,KChDhH,CAAZ,CAAjB;AACT,aAAK,MAAI,CAAC,wCAAe,QAAC,gBAAY,CAAC,gBAA4B,GAAf,oBAAF,GAAmB,iBAAF,CAAqB,kBAAmB,QD+CJ,GAAsB,MAAyB,KC/ChH,CAAZ,CAAjB;AAR2B;AAubC;AAIvC;AACA;AACA;AANuC;AA/QH;AAAX;AAEvB,iBAAU;AAFa;AAAW;AAgBC;AAAZ;AAEvB,iBACE,eAawC,GAbtB,2BAAF,GAChB,WADqB,GACP,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GAC3C,WADgD,GAClC,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GAC3C,KADgD,GACxC,2BAAF,GACN,aADW,GACK,+BAAF,GAAW,oBAAF,GAAyB,2BAAF,GAC9C,iBADmD,GAC/B,+BAAF,GAAW,sBAAF,GAA2B,mCAAF,GAAe,sBAAF,GAA2B,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GACzH,IAD8H,GACvH,iCAAF,GAAa,SAAF,GAAc,kBAAF,GAAkB,0BAAF,GAA+B,2BAAF,GACzE,eAD8E,GAC5D,mCAAF,GAAe,UAAF,GAAe,2BAAF,GAC1C,OAD+C,GACrC,2BAAF,GACR,IADa,GACN,iCAAF,GAAa,sBAAF,GAA2B,2BAAF,GACzC,MAD8C,GACrC,WAAF,GAAU,gBAAF,GAAqB,iCAAF,GAAa,IAAF,GAAS,2BAAF,GACpD,MADyD,GAChD,iCAAF,GAAa,UAAF,GAAe,2BAAF,GAC/B,KADoC,GAC5B,2BAAF,GACN,IADW,GACJ,WAAF,GAAU,aAAF,GAAkB,iCAAF,GAAa,IAAF;AAhBnB;AAAY;AAmPC;AAAb;AAEvB,iBAAU,IAEgB,GAFT,iCAAF,GAAa,WAAF,GAAgB,2BAAF,GAC9B,IADmC,GAC5B,WAAF,GAAU,gBAAF,GAAqB,iCAAF,GAAa,IAAF,GAAS,2BAAF,GAClD,IADuD,GAChD,iCAAF,GAAa,UAAF;AAJH;AAAa;AAhaD;AAAZ;AAEvB,iBAAU;AAFa;AAAY;AA7EK;AAAjB;AAEvB,iBAAU;AAFa;AAAiB;AAqOE;AAAnB;AAEvB,iBAAU,GAAI,GAAE,kBAAF;AAFS;AAAmB;AAnJN;AAAb;AAEvB,iBAAU;AAFa;AAAa;AAkEG;AAAhB;AAEvB;AACG;AAHoC;AAIvC,cAAK;AACL,mBACE,iBAyBqH,GAzBjG,CAAF,GAAM,0BAAF,GAA+B,2BAAF,GAEnD,IAFwD,GAEjD,mCAAF,GAAe,MAAF,GAAW,2BAAF,GAC3B,iBADgC,GACZ,2BAAF,GAClB,YADuB,GACR,mCAAc,sBAAhB,GAAuC,GAAF,GAAQ,2BAAF,GAExD,qBAF6D,GAErC,mCAAc,sBAAhB,GAAuC,SAAF,GAAc,mCAAc,qBAAhB,GAAsC,KAAF,GAAU,2BAAF,GACnH,8CADwH,GACvE,2BAAF,GAC/C,MADoD,GAC3C,2BAAF,GAAO,2BAAF,GAEZ,mBAFiB,GAEK,CAAF,GAAM,qBAAF,GAA0B,2BAAF,GAChD,iBADqD,GACjC,mCAAc,YAAhB,GAA6B,KAAF,GAAU,2BAAF,GACrD,OAD0D,GAChD,2BAAF,GAAO,2BAAF,GAEb,kDAFkB,GAEmC,2BAAF,GACnD,iBADwD,GACpC,2BAAF,GAClB,WADuB,GACR,mCAAc,UAAU,CAAC,oEAAD,CAA1B,GAAyC,GAAF,GAAS,2BAAF,GAC3D,OADgE,GACtD,2BAAF,GAKR,+CALa,GAKqC,2BAAF,GAGhD,IAHqD,GAG9C,+BAAF,GAAW,SAAF,GAAc,CAAF,GAAM,gCAAF,GAAqC,8BAAF,GAAU,gBAAF,GAAqB,mCAAF,GAAe,IAAF,GAAS,2BAAF,GAAO,2BAAF;AAErH,mBAAU,MAEqG,GAD/G,4CADiB,GAC8B,+BAAF,GAAW,2BAAF,GAAgC,2BAAF,GAAO,2BAAF,GACzF,IAD8F,GACvF,iBAAF,GAAgB,SAAF,GAAc,CAAF,GAAM,0BAAF,GAA+B,CAAF,GAAM,uBAAF,GAA4B,+BAAF,GAAW,KAAF,GAAU,2BAAF;AAE/G,cAAG,CAAI,mCAAc,oBAArB;AAEE,qBAAU,MAC2E,GAArF,IADiB,GACV,iBAAF,GAAgB,WAAF,GAAgB,kBAAF,GAAkB,iCAAF,GAAsC,2BAAF;WAHvF;AAMA,cAAG,CAAI,mCAAc,aAArB;AAEE,qBAAU,MACyE,GAAnF,IADiB,GACV,iBAAF,GAAgB,WAAF,GAAgB,kBAAF,GAAkB,+BAAF,GAAoC,2BAAF;WAHrF;AAMA,cAAG,CAAI,mCAAc,uBAArB;AAEE,qBAAU,MAC0E,GAApF,IADiB,GACV,iBAAF,GAAgB,WAAF,GAAgB,kBAAF,GAAkB,gCAAF,GAAqC,2BAAF;WAHtF;AAMA,mBAAU,MAGuG,GAFjH,IADiB,GACV,WAAF,GAAU,KAAF,GAAU,CAAF,GAAM,uBAAF,GAA4B,+BAAF,GAAW,oBAAF,GAA0B,mCAAc,WDlHlD,qECkHkC,GAA6B,KAAF,GAAW,2BAAF,GACxH,IAD6H,GACtH,WAAF,GAAU,oCAAF,GAA2C,+CAAW,CAAC,oCAAc,qBAAf,CAAb,GAAmD,IAAF,GAAS,2BAAF,GAC9G,IADmH,GAC5G,WAAF,GAAU,2CAAF,GAAkD,+CAAW,CAAC,oCAAc,wBAAf,CAAb,GAAsD,IAAF;AA1D5E;AAGpC;AAHoC;AAAhB;AAAgB;AAnDG;AAAnB;AAEvB,iBACA,kBA4CoE,GA5C/C,+BAAF,GAAW,aAAF,GAAkB,2BAAF,GAC5C,IADiD,GAC1C,+BAAF,GAAW,mDAAF,GAA0D,2BAAF,GACtE,oBAD2E,GACpD,+BAAF,GAAW,aAAF,GAAkB,2BAAF,GAC9C,6BADmD,GACnB,2BAAF,GAC9B,QADmC,GACxB,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GAC/D,OADoE,GAC1D,2BAAF,GACR,wBADa,GACc,2BAAF,GACzB,MAD8B,GACrB,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,kDAAF,GAAyD,2BAAF,GACrE,MAD0E,GACjE,qCAAF,GAAiB,uCAAF,GAA4C,2BAAF,GAChE,MADqE,GAC5D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,iDAAF,GAAwD,2BAAF,GACpE,MADyE,GAChE,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC/D,MADoE,GAC3D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,+CAAF,GAAsD,2BAAF,GAClE,MADuE,GAC9D,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GAC7D,MADkE,GACzD,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,2CAAF,GAAkD,2BAAF,GAC9D,MADmE,GAC1D,qCAAF,GAAiB,kCAAF,GAAuC,2BAAF,GAC3D,MADgE,GACvD,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,8CAAF,GAAqD,2BAAF,GACjE,MADsE,GAC7D,qCAAF,GAAiB,qCAAF,GAA0C,2BAAF,GAC9D,MADmE,GAC1D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,mDAAF,GAA0D,2BAAF,GACtE,MAD2E,GAClE,qCAAF,GAAiB,uCAAF,GAA4C,2BAAF,GAChE,MADqE,GAC5D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,iDAAF,GAAwD,2BAAF,GACpE,MADyE,GAChE,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GAC7D,MADkE,GACzD,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,mDAAF,GAA0D,2BAAF,GACtE,MAD2E,GAClE,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC/D,MADoE,GAC3D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,oDAAF,GAA2D,2BAAF,GACvE,MAD4E,GACnE,qCAAF,GAAiB,uCAAF,GAA4C,2BAAF,GAChE,MADqE,GAC5D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,oDAAF,GAA2D,2BAAF,GACvE,MAD4E,GACnE,qCAAF,GAAiB,uCAAF,GAA4C,2BAAF,GAChE,MADqE,GAC5D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,mDAAF,GAA0D,2BAAF,GAEtE,MAF2E,GAElE,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC/D,MADoE,GAC3D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,4CAAF,GAAmD,2BAAF,GAE/D,MAFoE,GAE3D,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC/D,MADoE;AA/C7C;AAAmB;AA6NC;AAApB;AAEvB,iBACE,eA8D2E,GA9DzD,2BAAF,GAChB,WADqB,GACP,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GAC3C,WADgD,GAClC,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GAC3C,KADgD,GACxC,2BAAF,GAEN,qBAFW,GAEa,gDAAF,GAA4B,GAAF,GAC9C,mCADoD,GACvC,kBAAF,GAAuB,2BAAF,GAChC,mCADqC,GACxB,eAAF,GAAoB,2BAAF,GAE/B,YAFoC,GAErB,2BAAF,GACb,8BADkB,GAElB,8GAD+B,GACkF,2BAAF,GAC/G,aADoH,GACpG,2BAAF,GACd,kBADmB,GACE,kBAAF,GAAkB,wBAAF,GAA6B,2BAAF,GAC9D,oBADmE,GAC5C,mCAAF,GAAe,aAAF,GAAkB,2BAAF,GAClD,0BADuD,GAC1B,2BAAF,GAC3B,OADgC,GACtB,2BAAF,GACR,UADa,GACA,2BAAF,GACX,aADgB,GACA,2BAAF,GACd,oBADmB,GACI,mCAAF,GAAe,aAAF,GAAkB,2BAAF,GAClD,0BADuD,GAC1B,2BAAF,GAC3B,OADgC,GACtB,2BAAF,GACR,KADa,GACL,2BAAF,GAAO,2BAAF,GAEX,SAFgB,GAEJ,kCAAF,GAAc,IAAF,GAAS,2BAAF,GAC7B,MADkC,GACzB,kCAAF,GAAc,SAAF,GAAc,kBAAF,GAAkB,wBAAF,GAA6B,2BAAF,GAC1E,MAD+E,GACtE,kCAAF,GAAc,2CAAF,GAAkD,2BAAF,GACnE,YADwE,GACzD,mCAAF,GAAe,aAAF,GAAkB,2BAAF,GAC1C,mBAD+C,GACzB,+BAAF,GAAW,2CAAF,GAAgD,2BAAF,GAC3E,uBADgF,GACtD,+BAAF,GAAW,gCAAF,GAAqC,2BAAF,GACpE,4BADyE,GAC1C,kBAAF,GAAkB,0BAAF,GAA+B,2BAAF,GAC1E,2CAD+E,GACjC,2BAAF,GAC5C,aADiD,GACjC,2BAAF,GACd,UADmB,GACN,WAAF,GAAU,qBAAF,GAA0B,2BAAF,GAC3C,SADgD,GACpC,2BAAF,GACV,QADe,GACJ,qCAAF,GAAiB,oCAAF,GAAyC,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC1F,QAD+F,GACpF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,kCAAF,GAAc,8CAAF,GAAqD,2BAAF,GACtE,QAD2E,GAChE,qCAAF,GAAiB,uCAAF,GAA4C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC7F,QADkG,GACvF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,kCAAF,GAAc,mDAAF,GAA0D,2BAAF,GAC3E,QADgF,GACrE,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC/F,QADoG,GACzF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,kCAAF,GAAc,iDAAF,GAAwD,2BAAF,GACzE,QAD8E,GACnE,qCAAF,GAAiB,sCAAF,GAA2C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC5F,QADiG,GACtF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,kCAAF,GAAc,mDAAF,GAA0D,2BAAF,GAC3E,QADgF,GACrE,qCAAF,GAAiB,wCAAF,GAA6C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC9F,QADmG,GACxF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,kCAAF,GAAc,oDAAF,GAA2D,2BAAF,GAC5E,QADiF,GACtE,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC/F,QADoG,GACzF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,kCAAF,GAAc,oDAAF,GAA2D,2BAAF,GAC5E,QADiF,GACtE,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC/F,QADoG,GACzF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,kCAAF,GAAc,WAAF,GAAgB,mCAAF,GAAe,aAAF,GAAkB,2BAAF,GAE9D,MAFmE,GAE1D,+BAAF,GAAW,aAAF,GAAkB,kCAAF,GAAc,IAAF,GAAS,2BAAF,GAEnD,UAFwD,GAE3C,2BAAF,GACX,MADgB,GACP,kCAAF,GAAc,oBAAF,GAAyB,2BAAF,GAC1C,MAD+C,GACtC,kCAAF,GAAc,WAAF,GAAgB,mCAAF,GAAe,aAAF,GAAkB,2BAAF,GAC9D,MADmE,GAC1D,kCAAF,GAAc,iBAAF,GAAsB,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GACtE,KAD2E;AAjEtD;AAAoB;AAzTL;AAAf;AAEvB,iBAAU,IAA6C,GAAtC,+BAAF,GAAW,gBAAF,GAAqB,kCAAF,GAAc,GAAF;AAFhC;AAAe;AA8XU;AAAzB;AAEvB,iBACE,YAmGa,GAnGE,mCAAF,GAAe,YAAF,GAAiB,2BAAF,GACzC,gBAD8C,GAC3B,2BAAF,GAEjB,cAFsB,GAEL,2BAAF,GACf,iCADoB,GACgB,2BAAF,GAClC,iBADuC,GACnB,2BAAF,GAClB,oBADuB,GACA,mCAAF,GAAe,cAAF,GAAmB,2BAAF,GACnD,gBADwD,GACrC,2BAAF,GACjB,8BADsB,GACW,mCAAF,GAAe,mBAAF,GAAwB,mCAAF,GAAe,qBAAF,GAA0B,2BAAF,GACvG,qBAD4G,GACpF,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GACvD,UAD4D,GAC/C,2BAAF,GACX,QADgB,GACL,2BAAF,GACT,YADc,GACC,2BAAF,GACb,+BADkB,GACgB,2BAAF,GAChC,kCADqC,GACA,2BAAF,GACnC,gCADwC,GACL,2BAAF,GACjC,gCADsC,GACH,2BAAF,GACjC,iBADsC,GAClB,2BAAF,GAClB,oBADuB,GACA,mCAAF,GAAe,cAAF,GAAmB,2BAAF,GACnD,gBADwD,GACrC,2BAAF,GACjB,4BADsB,GACS,mCAAF,GAAe,iBAAF,GAAsB,mCAAF,GAAe,mBAAF,GAAwB,2BAAF,GACjG,8BADsG,GACrE,mCAAF,GAAe,mBAAF,GAAwB,mCAAF,GAAe,qBAAF,GAA0B,2BAAF,GACvG,qBAD4G,GACpF,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GACvD,SAD4D,GAChD,2BAAF,GACV,QADe,GACJ,2BAAF,GACT,YADc,GACC,2BAAF,GACb,MADkB,GACV,2BAAF,GAAO,2BAAF,GAEX,SAFgB,GAEJ,uCAAF,GAAmB,IAAF,GAAS,2BAAF,GAClC,gBADuC,GACpB,2BAAF,GACjB,iCADsB,GACc,2BAAF,GAClC,QADuC,GAC5B,uCAAF,GAAmB,SAAF,GAAc,kBAAF,GAAkB,oBAAF,GAAyB,mCAAF,GAAe,+BAAF,GAAoC,mCAAF,GAAe,4BAAF,GAAiC,mCAAF,GAAe,uBAAF,GAA4B,2BAAF,GAC/M,cADoN,GACnM,2BAAF,GACf,oCADoB,GACmB,2BAAF,GACrC,QAD0C,GAC/B,uCAAF,GAAmB,SAAF,GAAc,kBAAF,GAAkB,gBAAF,GAAqB,kBAAF,GAAkB,YAAF,GAChF,mCAD+F,GAClF,uCAAF,GAA4C,mCAAF,GAAe,wCAAF,GAClE,mCAD6G,GAChG,uCAAF,GAA4C,mCAAF,GAAe,kDAAF,GAAuD,2BAAF,GAChI,cADqI,GACpH,2BAAF,GACf,mCADoB,GACkB,2BAAF,GACpC,QADyC,GAC9B,uCAAF,GAAmB,SAAF,GAAc,kBAAF,GAAkB,gBAAF,GAAqB,2CAAF,GAAuB,aAAF,GAAkB,2BAAF,GAC9G,cADmH,GAClG,2BAAF,GACf,kCADoB,GACiB,2BAAF,GACnC,kCADwC,GACH,2BAAF,GACnC,eADwC,GACtB,2CAAF,GAAuB,GAAF,GAAQ,2BAAF,GAC3C,0BADgD,GACnB,2BAAF,GAC3B,0BADgC,GACH,qCAAF,GAAiB,IAAF,GAAS,2BAAF,GACjD,wBADsD,GAC3B,qCAAF,GAAiB,SAAF,GAAc,2BAAF,GACpD,WADyD,GAC3C,2BAAF,GACZ,mBADiB,GACK,kBAAF,GAAkB,2BAAF,GACpC,UADkE,GACrD,uCAAF,GAAmB,SAAF,GAAc,kBAAF,GAAkB,4BAAF,GAAiC,2BAAF,GACvF,cAD4F,GAC3E,2BAAF,GACf,OADoB,GACV,2BAAF,GACR,MADa,GACJ,uCAAF,GAAmB,2CAAF,GAAkD,2BAAF,GACxE,QAD6E,GAClE,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC/F,QADoG,GACzF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,uCAAF,GAAmB,8CAAF,GAAqD,2BAAF,GAC3E,QADgF,GACrE,qCAAF,GAAiB,4CAAF,GAAiD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAClG,QADuG,GAC5F,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,uCAAF,GAAmB,mDAAF,GAA0D,2BAAF,GAChF,QADqF,GAC1E,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACpG,QADyG,GAC9F,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,uCAAF,GAAmB,iDAAF,GAAwD,2BAAF,GAC9E,QADmF,GACxE,qCAAF,GAAiB,2CAAF,GAAgD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACjG,QADsG,GAC3F,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,uCAAF,GAAmB,mDAAF,GAA0D,2BAAF,GAChF,QADqF,GAC1E,qCAAF,GAAiB,6CAAF,GAAkD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACnG,QADwG,GAC7F,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,uCAAF,GAAmB,oDAAF,GAA2D,2BAAF,GACjF,QADsF,GAC3E,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACpG,QADyG,GAC9F,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,uCAAF,GAAmB,oDAAF,GAA2D,2BAAF,GACjF,QADsF,GAC3E,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACpG,QADyG,GAC9F,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,+BAAF,GAAW,aAAF,GAAkB,uCAAF,GAAmB,IAAF,GAAS,2BAAF,GACxD,UAD6D,GAChD,2BAAF,GACX,MADgB,GACP,uCAAF,GAAmB,2BAAF,GAAgC,2BAAF,GACtD,MAD2D,GAClD,uCAAF,GAAmB,qCAAF,GAA0C,2BAAF,GAChE,gBADqE,GAClD,2BAAF,GACjB,iCADsB,GACc,2BAAF,GAClC,QADuC,GAC5B,uCAAF,GAAmB,mBAAF,GAAwB,mCAAF,GAAe,+BAAF,GAAoC,mCAAF,GAAe,4BAAF,GAAiC,2BAAF,GAC3I,QADgJ,GACrI,uCAAF,GAAmB,aAAF,GAAkB,mCAAF,GAAe,cAAF,GAAmB,2BAAF,GACxE,cAD6E,GAC5D,2BAAF,GACf,oCADoB,GACmB,2BAAF,GACrC,QAD0C,GAC/B,uCAAF,GAAmB,sBAAF,GAA2B,kBAAF,GAAkB,YAAF,GAC1D,mCADyE,GAC5D,uCAAF,GAA4C,mCAAF,GAAe,wCAAF,GAClE,mCAD6G,GAChG,uCAAF,GAA4C,mCAAF,GAAe,yCAAF,GAA8C,2BAAF,GACvH,cAD4H,GAC3G,2BAAF,GACf,mCADoB,GACkB,2BAAF,GACpC,QADyC,GAC9B,uCAAF,GAAmB,eAAF,GAAoB,2CAAF,GAAuB,IAAF,GAAS,2BAAF,GACxE,cAD6E,GAC5D,2BAAF,GACf,kCADoB,GACiB,2BAAF,GACnC,kCADwC,GACH,2BAAF,GACnC,eADwC,GACtB,2CAAF,GAAuB,GAAF,GAAQ,2BAAF,GAC3C,0BADgD,GACnB,2BAAF,GAC3B,0BADgC,GACH,qCAAF,GAAiB,IAAF,GAAS,2BAAF,GACjD,wBADsD,GAC3B,qCAAF,GAAiB,SAAF,GAAc,2BAAF,GACpD,WADyD,GAC3C,2BAAF,GACZ,UADiB,GACJ,uCAAF,GAAmB,mBAAF,GAAwB,kBAAF,GAAkB,4BAAF,GAAiC,2BAAF,GACjG,cADsG,GACrF,2BAAF,GACf,OADoB,GACV,2BAAF,GACR,KADa;AAtGQ;AAAyB;AAzXL;AAApB;AAEvB,iBAAU,IAAkD,GAA3C,+BAAF,GAAW,gBAAF,GAAqB,uCAAF,GAAmB,GAAF;AAFrC;AAAoB;AA4RL;AAAf;AAEvB,iBAAU,IAEuF,GAFhF,+BAAF,GAAW,iCAAF,GAAsC,2BAAF,GAC1D,oBAD+D,GACxC,kBAAF,GAAkB,YAAF,GAAiB,mCAAF,GAAe,6BAAF,GAAkC,mCAAF,GAAe,8BAAF,GAC5G,mCAD6I,GAChI,6BAAF,GAAkC,mCAAF,GAAe,6BAAF,GAAkC,2BAAF,GAC1F,OAD+F;AAJ1E;AAAe;AAvRH;AAAZ;AAEvB,iBACE,cAGsE,GAHrD,+BAAF,GAAW,qDAAF,GAA0D,2BAAF,GAChF,gEADqF,GAClB,2BAAF,GACjE,iEADsE,GACF,2BAAF,GAClE,gEADuE,GACJ,2BAAF,GACjE,iEADsE;AANjD;AAAY;AAUU;AAAtB;AAEvB,iBACE,cACwC,GADvB,+BAAF,GAAW,eAAF,GAAoB,2BAAF,GAC1C,kCAD+C,GACV,2BAAF,GACnC,mCADwC;AAJnB;AAAsB;AAQP;AAAf;AAEvB,iBAAU,QAAkB,GAAP,+BAAF,GAAW,aAAF;AAFL;AAAe;AAgLF;AAAb;AAEvB,iBACE,kBAK6C,GALxB,2BAAF,GACnB,WADwB,GACV,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GAC3C,WADgD,GAClC,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GAC3C,KADgD,GACxC,2BAAF,GACN,gBADW,GACQ,+BAAF,GAAW,uBAAF,GAA4B,2BAAF,GACpD,uCADyD,GACf,2BAAF,GACxC,uCAD6C;AARxB;AAAa;AAYA;AAAb;AAEvB,iBACE,gBACsD,GADnC,+BAAF,GAAW,eAAF,GAAoB,mCAAF,GAAe,SAAF,GAAc,mCAAF,GAAe,SAAF,GAAc,2BAAF,GAC9F,gDADmG,GAChD,2BAAF,GACjD,iDADsD;AAJjC;AAAa;AAkBS;AAAtB;AAEvB,iBAAU,IAAoF,GAA7E,+BAAF,GAAW,kBAAF,GAAuB,mCAAF,GAAe,oBAAF,GAAyB,mCAAF,GAAe,kBAAF;AAFvE;AAAsB;AAKP;AAAf;AAEvB,iBACE,IAAyC,GAAlC,+BAAF,GAAW,WAAF,GAAgB,mCAAF,GAAe,IAAF;AAHpB;AAAe;AAyBC;AAAhB;AAEvB,iBACE,QAmB0E,GAnB/D,mCAAF,GAAe,sBAAF,GAA2B,2BAAF,GAC/C,MADoD,GAC3C,iBAAF,GAAgB,UAAF,GAAe,kBAAF,GAAkB,iCAAF,GAAsC,2BAAF,GACtF,KAD2F,GACnF,2BAAF,GACN,SADW,GACC,2BAAF,GACV,MADe,GACN,iBAAF,GAAgB,WAAF,GAAgB,kBAAF,GAAkB,iCAAF,GAAsC,2BAAF,GACvF,KAD4F,GACpF,2BAAF,GACN,QADW,GACA,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GACxC,MAD6C,GACpC,iBAAF,GAAgB,UAAF,GAAe,kBAAF,GAAkB,+BAAF,GAAoC,2BAAF,GACpF,KADyF,GACjF,2BAAF,GACN,SADW,GACC,2BAAF,GACV,MADe,GACN,iBAAF,GAAgB,WAAF,GAAgB,kBAAF,GAAkB,+BAAF,GAAoC,2BAAF,GACrF,KAD0F,GAClF,2BAAF,GACN,QADW,GACA,mCAAF,GAAe,yBAAF,GAA8B,2BAAF,GAClD,MADuD,GAC9C,iBAAF,GAAgB,UAAF,GAAe,kBAAF,GAAkB,gCAAF,GAAqC,2BAAF,GACrF,KAD0F,GAClF,2BAAF,GACN,SADW,GACC,2BAAF,GACV,MADe,GACN,iBAAF,GAAgB,WAAF,GAAgB,kBAAF,GAAkB,gCAAF,GAAqC,2BAAF,GACtF,KAD2F,GACnF,2BAAF,GACN,IADW,GACJ,WAAF,GAAU,oCAAF,GAA4C,mCAAF,GAAe,uBAAF,GAA4B,2BAAF,GAC9F,IADmG,GAC5F,WAAF,GAAU,2CAAF,GAAkD,mCAAF,GAAe,0BAAF;AAtBrD;AAAgB;AAvOE;AAAlB;AAEvB,iBACE,MAqBmB,GArBV,WAAF,GAAU,GAAF,GAAQ,2BAAF,GACrB,MAD0B,GACjB,iBAAF,GAAgB,GAAF,GAAQ,2BAAF,GAC3B,iBADgC,GACZ,2BAAF,GAClB,eADuB,GACL,2BAAF,GAChB,oBADqB,GACE,2BAAF,GACrB,eAD0B,GACR,2BAAF,GAChB,iDADqB,GACiC,2BAAF,GACpD,8CADyD,GACJ,2BAAF,GACnD,gBADwD,GACrC,2BAAF,GACjB,gBADsB,GACH,2BAAF,GACjB,gBADsB,GACH,2BAAF,GACjB,8BADsB,GACW,2BAAF,GAC/B,gCADoC,GACD,2BAAF,GACjC,2CADsC,GACQ,2BAAF,GAC5C,2CADiD,GACH,2BAAF,GAC5C,gBADiD,GAC9B,+BAAF,GAAW,qBAAF,GAA0B,2BAAF,GAClD,0DADuD,GACU,2BAAF,GAC/D,OADoE,GAC1D,2BAAF,GACR,KADa,GACL,2BAAF,GAEN,kFAFW,GAEoF,2BAAF,GAC7F,aADkG,GAClF,2BAAF,GACd,GADmB;AAxBE;AAAkB;AAwQK;AAAvB;AAEvB,iBAAU,IAA0F,GAAnF,2CAAF,GAAuB,iBAAF,GAAsB,mCAAF,GAAe,eAAF,GAAoB,mCAAF,GAAe,iBAAF;AAF7E;AAAuB;AAKN;AAAjB;AAEvB,iBAAU,UAK2I,GAL9H,qCAAF,GAAiB,GAAF,GAAQ,mCAAF,GAAe,OAAF,GAAY,2BAAF,GACvD,SAD4D,GAChD,2BAAF,GACV,IADe,GACR,qCAAF,GAAiB,GAAF,GAAQ,mCAAF,GAAe,qBAAF,GAA0B,mCAAF,GAAe,mBAAF,GAAwB,mCAAF,GAAe,oBAAF,GAAyB,2BAAF,GACtI,QAD2I,GAChI,2BAAF,GACT,IADc,GACP,qCAAF,GAAiB,GAAF,GAAQ,mCAAF,GAAe,aAAF,GAAkB,kBAAF,GAAkB,oBAAF,GACvE,IAD8F,GACvF,qCAAF,GAAiB,GAAF,GAAQ,mCAAF,GAAe,qBAAF,GAA0B,mCAAF,GAAe,mBAAF,GAAwB,mCAAF,GAAe,oBAAF,GAAyB,2BAAF,GACtI,GAD2I;AAP9H;AAAiB;AA5NW;AAA5B;AAEvB,iBAAU,MAAuB,GAAd,kBAAF,GAAkB,oBAAF;AAFV;AAA4B;AAKL;AAAvB;AAEvB,iBAAU;AAFa;AAAuB;AAwZhB;AAAP;AACpB;AAD2B;AAE9B,mBAAW,mCAAc,YAAW,KAAG,EAAH;AAFN;AAC3B;AAD2B;AAAP;AAAO;AAzfK;AAChC;AADgC;AAEnC,2BAAW,YAAY,CAAC,0EAAD;AAFY;AAChC;AADgC;;AAVH;AAEhC;AAFiC;AAAD;AAKA;AAEhC;AAFgC;AAzEjB;;;;AAuCf;AAGc,2BAAG;AACP,uBAAG;AACR,kBAAG;AACG,wBAAG;AA9EF;AAjCd,GAiCc,6JAjCd;ACAA,yCAWS,UAXT;;;;AAgGiC;AAE/B,QAAG,CAAI,oDAA2B,UAAQ,0BAAwB,CAAC,sEAAsC,CAAC,UAAD;eAAA,MAAC;AAAD;;QAAvC,CAAlE;AAEE,uCAAyC,eAA1B,gCAA0B,QAAC,gEAAD,EAAzC;AACA,0DAA2B,UAAQ,mBAAmB,CAAC,sEAA4B,iBAA7B;KAHxD;AAF+B;AASE;AAEjC,wDAA2B,UAAQ,sBAAsB,CAAC,qEAAD;AAFxB;AAzGnC,mBAgBc;AAyBc;AAFO;;;;;AAEP;AAuEoB;AAAZ;AAC/B;AAD2C;AAE9C,uCAA6B,eAAnB,yBAAmB,QAAC,uDAAD,EAA7B;AADG;AAD2C;AAC3C;AAD2C;AAAZ;AAAY;AAvEpB;;;;AAQP;;AAoXqB;AAErC;AAFqC;AAGxC,eAAK,MAAI,CAAC,wCAAe,QAAC,gBAAY,CAAC,oBACU,GADO,yCAAF,GAA8C,mCAAc,WFzL9D,qEEyL8C,GAA6B,WAAF,GAC3H,mCAAc,UAAU,CAAC,oEAAD,CADiH,GAClG,OAAF,GAAY,mCAAc,YAAhB,CAA4B,kBF3JG,GAAuB,GAAsB,MAAyB,KE0JhH,CAAZ,CAAjB;AAH+B;AAErC;AAFqC;;AAiMC;AAI3C;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAtB2C;AAvEH;AAAX;AAE3B,iBAAU;AAFiB;AAAW;AAkBC;AAAZ;AAE3B,iBACA,oEAee,GAfwD,2BAAF,GACrE,kBAD0E,GACrD,mBAAF,GAAkB,YAAF,GAAiB,mCAAF,GAAe,gBAAF,GAAqB,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GACnH,IADwH,GACjH,iCAAF,GAAa,SAAF,GAAc,mBAAF,GAAkB,iBAAF,GAAsB,2BAAF,GAChE,4BADqE,GACtC,2BAAF,GAC7B,kBADkC,GACb,mBAAF,GAAkB,UAAF,GAAe,mCAAF,GAAe,gBAAF,GAAqB,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GAC/G,uBADoH,GAC1F,2BAAF,GACxB,sBAD6B,GACJ,2BAAF,GACvB,oDAD4B,GAC2B,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAChF,OADqF,GAC3E,2BAAF,GACR,IADa,GACN,iCAAF,GAAa,UAAF,GAAe,+BAAF,GAAW,IAAF,GAAS,2BAAF,GAC7C,IADkD,GAC3C,mBAAF,GAAkB,qBAAF,GAA0B,iCAAF,GAAa,iCAAF,GAAwC,2BAAF,GAC9F,mCADmG,GAC7D,2BAAF,GACpC,oFADyC,GAC8C,2BAAF,GACrF,0BAD0F,GAC7D,2BAAF,GAC3B,UADgC,GACnB,iCAAF,GAAa,gBAAF,GAAqB,2BAAF,GACzC,SAD8C,GAClC,2BAAF,GACV,OADe;AAlBY;AAAY;AApOC;AAAb;AAE3B,iBAAU,IAAgB,GAAT,iCAAF,GAAa,gBAAF;AAFC;AAAa;AA+FD;AAAZ;AAE3B,iBACE,kBAGwB,GAHH,2BAAF,GACnB,qBADwB,GACA,2BAAF,GACtB,uBAD2B,GACD,2BAAF,GACxB,kBAD6B,GACR,2BAAF,GACnB,GADwB;AANC;AAAY;AA1FK;AAAjB;AAE3B,iBAAU,IAAqB,GAAd,mBAAF,GAAkB,yDAAF;AAFJ;AAAiB;AAwME;AAAnB;AAE3B,iBAAU,sDAAiG,GAAxC,mBAAF,GAAkB,OAAF,GAAY,mBAAF,GAAkB,MAAF;AAFhF;AAAmB;AApGN;AAAb;AAE3B,iBAAU;AAFiB;AAAa;AAiFG;AAAhB;AACxB;AADwC;AAE3C,mBACE,IAY4I,GAZrI,qBAAF,GAAoB,KAAF,GAAU,+CAAW,CAAC,mCAAc,oBAAf,CAAb,GAAkD,GAAF,GAAQ,2BAAF,GACrF,IAD0F,GACnF,gBAAF,GAAe,KAAF,GAAU,+CAAW,CAAC,mCAAc,uBAAf,CAAb,GAAqD,GAAF,GAAQ,2BAAF,GAAO,2BAAF,GAExF,IAF6F,GAEtF,+BAAF,GAAW,SAAF,GAAc,mBAAF,GAAkB,SAAF,GAAc,8BAAF,GAAU,MAAF,GAAW,2BAAF,GACvE,mCAD4E,GACtC,2BAAF,GACpC,sBADyC,GAChB,+CAAW,CAAC,CAAI,mCAAc,aAAnB,CAAb,GAA+C,GAAF,GAAQ,2BAAF,GAC1E,uBAD+E,GACrD,+CAAW,CAAC,mCAAc,qBAAf,CAAb,GAAmD,GAAF,GAAQ,2BAAF,GAC/E,2BADoF,GACtD,+CAAW,CAAC,mCAAc,wBAAf,CAAb,GAAsD,2BAAF,GAChF,OADqF,GAC3E,2BAAF,GAAO,2BAAF,GAEb,IAFkB,GAEX,+BAAF,GAAW,YAAF,GAAiB,2BAAF,GAC7B,YADkC,GACnB,mCAAc,sBAAhB,GAAsC,GAAD,GAAO,2BAAF,GACvD,kBAD4D,GACvC,mBAAF,GAAkB,YAAF,GAAiB,mCAAc,qBAAhB,GAAqC,IAAD,GAAQ,mCAAc,sBAAhB,GAAuC,GAAF,GAAQ,2BAAF,GACvI,OAD4I;AAfnG;AACxC;AADwC;AAAhB;AAAgB;AAlEG;AAAnB;AAE3B,iBACA,kBA2Da,GA3DQ,+BAAF,GAAW,aAAF,GAAkB,2BAAF,GAC5C,IADiD,GAC1C,mBAAF,GAAkB,qBAAF,GAA0B,+BAAF,GAAW,+BAAF,GAAsC,2BAAF,GAC1F,oBAD+F,GACxE,+BAAF,GAAW,aAAF,GAAkB,2BAAF,GAC9C,6BADmD,GACnB,2BAAF,GAC9B,QADmC,GACxB,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GAC/D,OADoE,GAC1D,2BAAF,GACR,wBADa,GACc,2BAAF,GACzB,MAD8B,GACrB,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,mBAAF,GAAkB,qBAAF,GAA0B,+BAAF,GAAW,iCAAF,GAAwC,2BAAF,GAC5F,MADiG,GACxF,qCAAF,GAAiB,uCAAF,GAA4C,2BAAF,GAChE,MADqE,GAC5D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,mBAAF,GAAkB,qBAAF,GAA0B,+BAAF,GAAW,uCAAF,GAA8C,2BAAF,GAClG,MADuG,GAC9F,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC/D,MADoE,GAC3D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,mBAAF,GAAkB,qBAAF,GAA0B,+BAAF,GAAW,qCAAF,GAA4C,2BAAF,GAChG,MADqG,GAC5F,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GAC7D,MADkE,GACzD,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,mBAAF,GAAkB,qBAAF,GAA0B,+BAAF,GAAW,6BAAF,GAAoC,2BAAF,GACxF,MAD6F,GACpF,qCAAF,GAAiB,kCAAF,GAAuC,2BAAF,GAC3D,MADgE,GACvD,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,mBAAF,GAAkB,qBAAF,GAA0B,+BAAF,GAAW,gCAAF,GAAuC,2BAAF,GAC3F,WADgG,GAClF,qBAAF,GAAoB,IAAF,GAAS,2BAAF,GACrC,QAD0C,GAC/B,+BAAF,GAAW,wCAAF,GAA6C,2BAAF,GAC7D,wCADkE,GACvB,+BAAF,GAAW,4CAAF,GAAiD,2BAAF,GACjG,OADsG,GAC5F,2BAAF,GACR,MADa,GACJ,qCAAF,GAAiB,qCAAF,GAA0C,2BAAF,GAC9D,MADmE,GAC1D,2BAAF,GAAO,2BAAF,GACZ,gBADiB,GACE,mBAAF,GAAkB,qBAAF,GAA0B,+BAAF,GAAW,+BAAF,GAAsC,2BAAF,GACtG,MAD2G,GAClG,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GAC7D,MADkE,GACzD,2BAAF,GAAO,2BAAF,GACZ,kBADiB,GACI,mBAAF,GAAkB,qBAAF,GAA0B,+BAAF,GAAW,iCAAF,GAAwC,2BAAF,GAC1G,MAD+G,GACtG,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC/D,MADoE,GAC3D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,mBAAF,GAAkB,qBAAF,GAA0B,+BAAF,GAAW,gCAAF,GAAuC,2BAAF,GAC3F,MADgG,GACvF,qCAAF,GAAiB,uCAAF,GAA4C,2BAAF,GAChE,MADqE,GAC5D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,mBAAF,GAAkB,qBAAF,GAA0B,+BAAF,GAAW,iCAAF,GAAwC,2BAAF,GAC5F,MADiG,GACxF,qCAAF,GAAiB,uCAAF,GAA4C,2BAAF,GAChE,MADqE,GAC5D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,mBAAF,GAAkB,qBAAF,GAA0B,+BAAF,GAAW,iCAAF,GAAwC,2BAAF,GAC5F,MADiG,GACxF,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC/D,MADoE,GAC3D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,mBAAF,GAAkB,qBAAF,GAA0B,+BAAF,GAAW,kCAAF,GAAyC,2BAAF,GAC7F,UADkG,GACrF,gBAAF,GAAe,IAAF,GAAS,2BAAF,GAC/B,mBADoC,GACd,+BAAF,GAAW,aAAF,GAAkB,2BAAF,GAE7C,uDAFkD,GAEQ,2BAAF,GACxD,iBAD6D,GACzC,2BAAF,GAClB,gBADuB,GACJ,2BAAF,GACjB,iBADsB,GACF,2BAAF,GAClB,SADuB,GACX,2BAAF,GAEV,wBAFe,GAEY,2BAAF,GACzB,mBAD8B,GACR,2BAAF,GACpB,gCADyB,GACU,2BAAF,GACjC,oBADsC,GACf,2BAAF,GACrB,SAD0B,GACd,2BAAF,GAEV,QAFe,GAEJ,+BAAF,GAAW,2BAAF,GAAgC,2BAAF,GAChD,OADqD,GAC3C,2BAAF,GACR,MADa;AA9Dc;AAAmB;AAlTC;AAApB;AAE3B,iBACE,mBAuD+C,GAvDzB,2BAAF,GACpB,aADyB,GACT,mCAAF,GAAe,YAAF,GAAiB,2BAAF,GAC1C,YAD+C,GAChC,mCAAF,GAAe,cAAF,GAAmB,2BAAF,GAC3C,eADgD,GAC9B,mCAAF,GAAe,aAAF,GAAkB,2BAAF,GAC7C,KADkD,GAC1C,2BAAF,GAAO,2BAAF,GAEX,kBAFgB,GAEK,mBAAF,GAAkB,YAAF,GAAiB,mCAAF,GAAe,gBAAF,GAAqB,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GAAO,2BAAF,GAEvH,SAF4H,GAEhH,kCAAF,GAAc,IAAF,GAAS,2BAAF,GAC7B,MADkC,GACzB,kCAAF,GAAc,SAAF,GAAc,mBAAF,GAAkB,yBAAF,GAA8B,2BAAF,GAC3E,MADgF,GACvE,+BAAF,GAAW,iBAAF,GAAsB,kCAAF,GAAc,IAAF,GAAS,2BAAF,GACvD,MAD4D,GACnD,mBAAF,GAAkB,qBAAF,GAA0B,kCAAF,GAAc,6BAAF,GAAoC,2BAAF,GAC7F,QADkG,GACvF,qCAAF,GAAiB,oCAAF,GAAyC,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC1F,QAD+F,GACpF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,mBAAF,GAAkB,qBAAF,GAA0B,kCAAF,GAAc,gCAAF,GAAuC,2BAAF,GAChG,QADqG,GAC1F,qCAAF,GAAiB,uCAAF,GAA4C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC7F,QADkG,GACvF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,mBAAF,GAAkB,qBAAF,GAA0B,kCAAF,GAAc,+BAAF,GAAsC,2BAAF,GAC/F,wBADoG,GACzE,kCAAF,GAAc,2BAAF,GACrC,QAD0C,GAC/B,qCAAF,GAAiB,sCAAF,GAA2C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC5F,QADiG,GACtF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,mBAAF,GAAkB,qBAAF,GAA0B,kCAAF,GAAc,iCAAF,GAAwC,2BAAF,GACjG,wBADsG,GAC3E,kCAAF,GAAc,2BAAF,GACrC,QAD0C,GAC/B,qCAAF,GAAiB,wCAAF,GAA6C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC9F,QADmG,GACxF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,mBAAF,GAAkB,qBAAF,GAA0B,kCAAF,GAAc,gCAAF,GAAuC,2BAAF,GAChG,QADqG,GAC1F,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC/F,QADoG,GACzF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,mBAAF,GAAkB,qBAAF,GAA0B,kCAAF,GAAc,iCAAF,GAAwC,2BAAF,GACjG,QADsG,GAC3F,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC/F,QADoG,GACzF,2BAAF,GAAO,2BAAF,GAEd,4BAFmB,GAEY,2BAAF,GAC7B,QADkC,GACvB,mBAAF,GAAkB,mCAAF,GAAwC,2BAAF,GAC/D,OADoE,GAC1D,2BAAF,GACR,8BADa,GACoB,2BAAF,GAC/B,QADoC,GACzB,mBAAF,GAAkB,qCAAF,GAA0C,2BAAF,GACjE,OADsE,GAC5D,2BAAF,GACR,kBADa,GACQ,mBAAF,GAAkB,qBAAF,GAA0B,+BAAF,GAAW,+BAAF,GAAsC,2BAAF,GACxG,2BAD6G,GAC/E,2BAAF,GAC5B,gCADiC,GACE,2BAAF,GACjC,iBADsC,GAClB,2BAAF,GAClB,SADuB,GACX,2BAAF,GACV,QADe,GACJ,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GAC/D,QADoE,GACzD,2BAAF,GAAO,2BAAF,GACd,oBADmB,GACI,mBAAF,GAAkB,qBAAF,GAA0B,+BAAF,GAAW,iCAAF,GAAwC,2BAAF,GAC5G,2BADiH,GACnF,2BAAF,GAC5B,gCADiC,GACE,2BAAF,GACjC,iBADsC,GAClB,2BAAF,GAClB,SADuB,GACX,2BAAF,GACV,QADe,GACJ,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GACjE,QADsE,GAC3D,2BAAF,GAAO,2BAAF,GAEd,UAFmB,GAEN,2BAAF,GACX,MADgB,GACP,kCAAF,GAAc,uBAAF,GAA4B,2BAAF,GAC7C,MADkD,GACzC,kCAAF,GAAc,oBAAF,GAAyB,2BAAF,GAC1C,KAD+C;AA1DtB;AAAoB;AAoML;AAAf;AAE3B,iBAAU,IAAgD,GAAzC,+BAAF,GAAW,mBAAF,GAAwB,kCAAF,GAAc,GAAF;AAF/B;AAAe;AAtIU;AAAzB;AAE3B,iBACE,YAqHuD,GArHxC,mCAAF,GAAe,YAAF,GAAiB,2BAAF,GACzC,gBAD8C,GAC3B,2BAAF,GACjB,gBADsB,GACH,2BAAF,GAEjB,cAFsB,GAEL,2BAAF,GACf,kCADoB,GACiB,2BAAF,GACnC,oBADwC,GACjB,mBAAF,GAAkB,YAAF,GAAiB,mCAAF,GAAe,uCAAF,GAA4C,mCAAF,GAAe,yCAAF,GAA8C,2BAAF,GACpK,oBADyK,GAClJ,mBAAF,GAAkB,YAAF,GAAiB,mCAAF,GAAe,uCAAF,GAA4C,mCAAF,GAAe,yCAAF,GAA8C,2BAAF,GACpK,oBADyK,GAClJ,mBAAF,GAAkB,YAAF,GAAiB,mCAAF,GAAe,uCAAF,GAA4C,mCAAF,GAAe,yCAAF,GAA8C,2BAAF,GACpK,oBADyK,GAClJ,mBAAF,GAAkB,YAAF,GAAiB,mCAAF,GAAe,uCAAF,GAA4C,mCAAF,GAAe,yCAAF,GAA8C,2BAAF,GACpK,oBADyK,GAClJ,mBAAF,GAAkB,YAAF,GAAiB,mCAAF,GAAe,uCAAF,GAA4C,mCAAF,GAAe,yCAAF,GAA8C,2BAAF,GACpK,YADyK,GAC1J,2BAAF,GACb,+BADkB,GACgB,2BAAF,GAChC,YADqC,GACtB,mBAAF,GAAkB,gBAAF,GAAqB,2BAAF,GAChD,eADqD,GACnC,mBAAF,GAAkB,qCAAF,GAA0C,mBAAF,GAAkB,YAAF,GAAiB,mCAAF,GAAe,0BAAF,GAA+B,mCAAF,GAAe,4BAAF,GAAiC,mCAAF,GAAe,mBAAF,GAAwB,2BAAF,GAChO,cADqO,GACpN,2BAAF,GACf,sBADoB,GACK,mBAAF,GAAkB,YAAF,GAAiB,mCAAF,GAAe,0BAAF,GAA+B,mCAAF,GAAe,2BAAF,GAAgC,2BAAF,GAC3I,SADgJ,GACpI,2BAAF,GACV,YADe,GACA,2BAAF,GACb,KADkB,GACV,2BAAF,GAAO,2BAAF,GAEX,cAFgB,GAEC,2BAAF,GACf,iCADoB,GACgB,2BAAF,GAClC,iBADuC,GACnB,2BAAF,GAClB,iBADuB,GACH,mCAAF,GAAe,cAAF,GAAmB,2BAAF,GAChD,4BADqD,GACtB,mCAAF,GAAe,mBAAF,GAAwB,mCAAF,GAAe,qBAAF,GAA0B,2BAAF,GACrG,yBAD0G,GAC9E,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GAC3D,OADgE,GACtD,2BAAF,GAAO,2BAAF,GACb,YADkB,GACH,2BAAF,GACb,gCADkB,GACiB,2BAAF,GACjC,oCADsC,GACC,2BAAF,GACrC,+BAD0C,GACR,2BAAF,GAChC,kCADqC,GACA,2BAAF,GACnC,iBADwC,GACpB,2BAAF,GAClB,iBADuB,GACH,mCAAF,GAAe,cAAF,GAAmB,2BAAF,GAChD,0BADqD,GACxB,mCAAF,GAAe,iBAAF,GAAsB,mCAAF,GAAe,mBAAF,GAAwB,2BAAF,GAC/F,4BADoG,GACrE,mCAAF,GAAe,mBAAF,GAAwB,mCAAF,GAAe,qBAAF,GAA0B,2BAAF,GACrG,yBAD0G,GAC9E,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GAC3D,OADgE,GACtD,2BAAF,GACR,YADa,GACE,2BAAF,GACb,KADkB,GACV,2BAAF,GAAO,2BAAF,GAEX,SAFgB,GAEJ,uCAAF,GAAmB,IAAF,GAAS,2BAAF,GAClC,gBADuC,GACpB,2BAAF,GACjB,mCADsB,GACgB,2BAAF,GACpC,QADyC,GAC9B,uCAAF,GAAmB,SAAF,GAAc,mBAAF,GAAkB,YAAF,GAAiB,2CAAF,GAAuB,aAAF,GAAkB,2BAAF,GAC1G,cAD+G,GAC9F,2BAAF,GACf,iCADoB,GACgB,2BAAF,GAClC,oCADuC,GACA,2BAAF,GACrC,QAD0C,GAC/B,uCAAF,GAAmB,SAAF,GAAc,mBAAF,GAAkB,wBAAF,GAA6B,2BAAF,GACjF,cADsF,GACrE,2BAAF,GACf,kCADoB,GACiB,2BAAF,GACnC,sCADwC,GACC,2BAAF,GAEvC,wBAF4C,GAEjB,2BAAF,GACzB,oBAD8B,GACP,2CAAF,GAAuB,IAAF,GAAS,2BAAF,GACjD,wBADsD,GAC3B,qCAAF,GAAiB,IAAF,GAAS,2BAAF,GAC/C,sBADoD,GAC3B,qCAAF,GAAiB,SAAF,GAAc,2BAAF,GAClD,SADuD,GAC3C,2BAAF,GAEV,QAFe,GAEJ,uCAAF,GAAmB,SAAF,GAAc,mBAAF,GAAkB,4BAAF,GAAiC,2BAAF,GACrF,cAD0F,GACzE,2BAAF,GACf,OADoB,GACV,2BAAF,GACR,MADa,GACJ,+BAAF,GAAW,iBAAF,GAAsB,uCAAF,GAAmB,IAAF,GAAS,2BAAF,GAC5D,MADiE,GACxD,mBAAF,GAAkB,qBAAF,GAA0B,uCAAF,GAAmB,6BAAF,GAAoC,2BAAF,GAClG,QADuG,GAC5F,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC/F,QADoG,GACzF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,mBAAF,GAAkB,qBAAF,GAA0B,uCAAF,GAAmB,gCAAF,GAAuC,2BAAF,GACrG,QAD0G,GAC/F,qCAAF,GAAiB,4CAAF,GAAiD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAClG,QADuG,GAC5F,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,mBAAF,GAAkB,qBAAF,GAA0B,uCAAF,GAAmB,+BAAF,GAAsC,2BAAF,GACpG,wBADyG,GAC9E,uCAAF,GAAmB,2BAAF,GAC1C,QAD+C,GACpC,qCAAF,GAAiB,2CAAF,GAAgD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACjG,QADsG,GAC3F,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,mBAAF,GAAkB,qBAAF,GAA0B,uCAAF,GAAmB,iCAAF,GAAwC,2BAAF,GACtG,wBAD2G,GAChF,uCAAF,GAAmB,2BAAF,GAC1C,QAD+C,GACpC,qCAAF,GAAiB,6CAAF,GAAkD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACnG,QADwG,GAC7F,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,mBAAF,GAAkB,qBAAF,GAA0B,uCAAF,GAAmB,gCAAF,GAAuC,2BAAF,GACrG,QAD0G,GAC/F,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACpG,QADyG,GAC9F,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,mBAAF,GAAkB,qBAAF,GAA0B,uCAAF,GAAmB,iCAAF,GAAwC,2BAAF,GACtG,QAD2G,GAChG,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACpG,QADyG,GAC9F,2BAAF,GAAO,2BAAF,GAEd,4BAFmB,GAEY,2BAAF,GAC7B,QADkC,GACvB,mBAAF,GAAkB,mCAAF,GAAwC,2BAAF,GAC/D,OADoE,GAC1D,2BAAF,GACR,8BADa,GACoB,2BAAF,GAC/B,QADoC,GACzB,mBAAF,GAAkB,qCAAF,GAA0C,2BAAF,GACjE,OADsE,GAC5D,2BAAF,GACR,kBADa,GACQ,mBAAF,GAAkB,qBAAF,GAA0B,+BAAF,GAAW,+BAAF,GAAsC,2BAAF,GACxG,2BAD6G,GAC/E,2BAAF,GAC5B,gCADiC,GACE,2BAAF,GACjC,iBADsC,GAClB,2BAAF,GAClB,SADuB,GACX,2BAAF,GACV,QADe,GACJ,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GAC/D,QADoE,GACzD,2BAAF,GAAO,2BAAF,GACd,oBADmB,GACI,mBAAF,GAAkB,qBAAF,GAA0B,+BAAF,GAAW,iCAAF,GAAwC,2BAAF,GAC5G,2BADiH,GACnF,2BAAF,GAC5B,gCADiC,GACE,2BAAF,GACjC,iBADsC,GAClB,2BAAF,GAClB,SADuB,GACX,2BAAF,GACV,QADe,GACJ,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GACjE,QADsE,GAC3D,2BAAF,GAAO,2BAAF,GAEd,UAFmB,GAEN,2BAAF,GACX,gBADgB,GACG,2BAAF,GACjB,mCADsB,GACgB,2BAAF,GACpC,kCADyC,GACJ,2BAAF,GACnC,QADwC,GAC7B,uCAAF,GAAmB,gBAAF,GAAqB,2CAAF,GAAuB,IAAF,GAAS,2BAAF,GACzE,cAD8E,GAC7D,2BAAF,GACf,oCADoB,GACmB,2BAAF,GACrC,iCAD0C,GACN,2BAAF,GAClC,QADuC,GAC5B,uCAAF,GAAmB,oBAAF,GAAyB,2BAAF,GACjD,cADsD,GACrC,2BAAF,GACf,OADoB,GACV,2BAAF,GACR,MADa,GACJ,uCAAF,GAAmB,uBAAF,GAA4B,2BAAF,GAClD,KADuD;AAxH9B;AAAyB;AA2IL;AAApB;AAE3B,iBAAU,IAAqD,GAA9C,+BAAF,GAAW,mBAAF,GAAwB,uCAAF,GAAmB,GAAF;AAFpC;AAAoB;AA2PL;AAAf;AAE3B,iBACE,iBAIc,GAJM,mBAAF,GAAkB,YAAF,GAAiB,mCAAF,GAAe,6BAAF,GAAkC,mCAAF,GAAe,6BAAF,GAAkC,2BAAF,GAC3I,iBADgJ,GAC5H,mBAAF,GAAkB,YAAF,GAAiB,mCAAF,GAAe,6BAAF,GAAkC,mCAAF,GAAe,6BAAF,GAAkC,2BAAF,GAC3I,wBADgJ,GACrH,2BAAF,GACzB,eAD8B,GACZ,mBAAF,GAAkB,oCAAF,GAAyC,2BAAF,GACvE,IAD4E,GACrE,+BAAF,GAAW,yCAAF;AAPW;AAAe;AAtPH;AAAZ;AAE3B,iBACE,cAG4D,GAH3C,+BAAF,GAAW,eAAF,GAAoB,2BAAF,GAC1C,sDAD+C,GACU,2BAAF,GACvD,sDAD4D,GACH,2BAAF,GACvD,sDAD4D,GACH,2BAAF,GACvD,sDAD4D;AANnC;AAAY;AAUU;AAAtB;AAE3B,iBACE,cAC6C,GAD5B,+BAAF,GAAW,eAAF,GAAoB,2BAAF,GAC1C,uCAD+C,GACL,2BAAF,GACxC,yCAD6C;AAJpB;AAAsB;AA0BP;AAAf;AAE3B,iBAAU,YAAsB,GAAP,+BAAF,GAAW,aAAF;AAFL;AAAe;AAlBF;AAAb;AAE3B,iBACE,kBAE6C,GAFxB,mBAAF,GAAkB,YAAF,GAAiB,mCAAF,GAAe,gBAAF,GAAqB,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GACnH,YADwH,GACzG,+BAAF,GAAW,2BAAF,GAAgC,mBAAF,GAAkB,2BAAF,GAAgC,2BAAF,GAClG,uCADuG,GAC7D,2BAAF,GACxC,uCAD6C;AALpB;AAAa;AASA;AAAb;AAE3B,iBACE,oBAEoD,GAF7B,mBAAF,GAAkB,SAAF,GAAc,mCAAF,GAAe,SAAF,GAAc,mCAAF,GAAe,SAAF,GAAc,2BAAF,GACnG,4CADwG,GACzD,mBAAF,GAAkB,2BAAF,GAAgC,2BAAF,GAC3F,8CADgG,GAC/C,2BAAF,GAC/C,+CADoD;AAL3B;AAAa;AAwKS;AAAtB;AAE3B,iBACE,kBACc,GADO,mBAAF,GAAkB,YAAF,GAAiB,mCAAF,GAAe,gBAAF,GAAqB,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GAClH,IADuH,GAChH,+BAAF,GAAW,2BAAF;AAJW;AAAsB;AAOP;AAAf;AAE3B,iBACE,IAAiD,GAA1C,+BAAF,GAAW,mBAAF,GAAwB,mCAAF,GAAe,KAAF;AAHxB;AAAe;AA6BC;AAAhB;AAE3B,iBACE,IASc,GATP,qBAAF,GAAoB,KAAF,GAAU,mCAAF,GAAe,qBAAF,GAA0B,2BAAF,GACpE,IADyE,GAClE,gBAAF,GAAe,KAAF,GAAU,mCAAF,GAAe,wBAAF,GAA6B,2BAAF,GAAO,2BAAF,GAEvE,eAF4E,GAE1D,2BAAF,GAChB,uBADqB,GACK,mCAAF,GAAe,cAAF,GAAmB,2BAAF,GACtD,uBAD2D,GACjC,mCAAF,GAAe,sBAAF,GAA2B,2BAAF,GAC9D,2BADmE,GACpC,mCAAF,GAAe,wBAAF,GAA6B,2BAAF,GACrE,MAD0E,GACjE,2BAAF,GAAO,2BAAF,GAEZ,IAFiB,GAEV,+BAAF,GAAW,mBAAF;AAZW;AAAgB;AA9LE;AAAlB;AAE1B,iBACC,2BAoBmB,GApBW,2BAAF,GAC5B,uBADiC,GACP,2BAAF,GACxB,qBAD6B,GACL,2BAAF,GACtB,MAD2B,GAClB,qBAAF,GAAoB,GAAF,GAAQ,2BAAF,GAC/B,MADoC,GAC3B,gBAAF,GAAe,GAAF,GAAQ,2BAAF,GAAO,2BAAF,GAC/B,iDADoC,GACkB,2BAAF,GACpD,8CADyD,GACJ,2BAAF,GACnD,gBADwD,GACrC,2BAAF,GACjB,gBADsB,GACH,2BAAF,GACjB,gBADsB,GACH,2BAAF,GACjB,0BADsB,GACO,2BAAF,GAC3B,2FADgC,GACkE,2BAAF,GAChG,OADqG,GAC3F,2BAAF,GACR,sCADa,GAC4B,2BAAF,GACvC,wBAD4C,GACjB,2BAAF,GACzB,wBAD8B,GACH,2BAAF,GACzB,OAD8B,GACpB,2BAAF,GACR,KADa,GACL,2BAAF,GAEN,kFAFW,GAEoF,2BAAF,GAC7F,aADkG,GAClF,2BAAF,GACd,GADmB;AAvBM;AAAkB;AAtQK;AAAvB;AAE3B,iBAAU,IAAoH,GAA7G,2CAAF,GAAuB,YAAF,GAAiB,mBAAF,GAAkB,YAAF,GAAiB,mCAAF,GAAe,eAAF,GAAoB,mCAAF,GAAe,kBAAF;AAFnG;AAAuB;AAKN;AAAjB;AAE3B,iBAAU,UAI4J,GAJ/I,qCAAF,GAAiB,GAAF,GAAQ,mCAAF,GAAe,OAAF,GAAY,2BAAF,GAC/D,SADoE,GACxD,2BAAF,GACV,IADe,GACR,qCAAF,GAAiB,GAAF,GAAQ,mCAAF,GAAe,gBAAF,GAAqB,mBAAF,GAAkB,YAAF,GAAiB,mCAAF,GAAe,mBAAF,GAAwB,mCAAF,GAAe,qBAAF,GAA0B,2BAAF,GACjK,QADsK,GAC3J,2BAAF,GACT,IADc,GACP,qCAAF,GAAiB,GAAF,GAAQ,mCAAF,GAAe,cAAF,GAAmB,mBAAF,GAAkB,YAAF,GAAiB,mCAAF,GAAe,mBAAF,GAAwB,mCAAF,GAAe,qBAAF,GAA0B,2BAAF,GAC/J,GADoK;AAN3I;AAAiB;AAkTW;AAA5B;AAE3B,iBAAU;AAFiB;AAA4B;AAKL;AAAvB;AAE3B,iBAAU;AAFiB;AAAuB;AAiKhB;AAAP;AACxB;AAD+B;AAElC,mBAAW,mCAAc,YAAW,KAAG,EAAH;AAFF;AAC/B;AAD+B;AAAP;AAAO;AAleK;AACpC;AADoC;AAEvC,2BAAW,YAAY,CAAC,0EAAD;AAFgB;AACpC;AADoC;;AAVH;AAEpC;AAFqC;AAAD;AAKA;AAEpC;AAFoC;AAzEjB;;;;AAuCnB;AAGc,2BAAG;AACJ,0BAAG;AACD,4BAAG;AACR,uBAAG;AA9ED;AAhBd,GAgBc,6JAhBd;ACAA,uCAWS,UAXT;;;;AA+G+B;AAE7B,QAAG,CAAI,oDAA2B,UAAQ,0BAAwB,CAAC,oEAAoC,CAAC,UAAD;eAAA,MAAC;AAAD;;QAArC,CAAlE;AAEE,uCAAuC,eAAxB,8BAAwB,QAAC,8DAAD,EAAvC;AACA,0DAA2B,UAAQ,mBAAmB,CAAC,oEAA0B,iBAA3B;KAHxD;AAF6B;AASE;AAE/B,wDAA2B,UAAQ,sBAAsB,CAAC,mEAAD;AAF1B;AAxHjC,mBAgBc;AAsBL,oBAAG;AACH,oBAAG;AACH,oBAAG;AACH,oBAAG;AAac;AAFO;;;;;AAEP;AAyEoB;AAAZ;AAC7B;AADyC;AAE5C,uCAA2B,eAAjB,uBAAiB,QAAC,uDAAD,EAA3B;AADG;AADyC;AACzC;AADyC;AAAZ;AAAY;AAzEpB;;;;AAQP;;AAmhBqB;AAEtC,aAAK,MAAI,CAAC,wCAAe,QAAC,cAAU,CAAC,kBAAgC,GAAjB,sBAAF,GAAoB,gBAAD,CAAmB,WAAY,YAAhE,CAAV,CAAjB;AACT,aAAK,MAAI,CAAC,wCAAe,QAAC,gBAAY,CAAC,kBAAgC,GAAjB,sBAAF,GAAqB,uBAAF,CHtUd,GAAuB,GAAuB,GAAsB,MAAyB,KGsUhH,CAAZ,CAAjB;AAH6B;AAqMC;AAIzC;AACA;AACA;AANyC;AA7EH;AAAX;AAEzB,iBAAU;AAFe;AAAW;AAeC;AAAZ;AAEzB,iBACE,eACoO,GADlN,mCAAF,GAAe,iBAAF,GAAsB,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GAChF,iCADqF,GAC1E,SAAF,GAAc,mBAAF,GAAkB,0DAAF,GAA+D,mCAAF,GAAe,eAAF,GAAoB,mCAAF,GAAe,wCAAF,GAA6C,mCAAF,GAAe,kBAAF,GAAuB,+BAAF,GAAW,IAAF;AAJ7M;AAAY;AArTC;AAAb;AAEzB,iBAAU,IAAgB,GAAT,iCAAF,GAAa,YAAF;AAFD;AAAa;AAoLD;AAAZ;AAEzB,iBAAU;AAFe;AAAY;AA/KK;AAAjB;AAEzB,iBAAU,IAAc,GAAP,+BAAF,GAAW,2BAAF;AAFC;AAAiB;AA4RE;AAAnB;AAEzB,iBAAU,GAAI,GAAE,mBAAF;AAFW;AAAmB;AAxGN;AAAb;AAEzB,iBAAU;AAFe;AAAa;AA6CG;AAAhB;AAEzB;AACG;AAHsC;AAIzC,cAAK;AACL,mBACE,IAMa,GANN,+BAAF,GAAW,KAAF,GAAU,CAAF,GAAM,QAAF,GAAa,2BAAF,GACrC,YAD0C,GAC3B,mCAAc,YAAhB,GAA6B,IAAF,GAAS,2BAAF,GAC/C,kBADoD,GAC/B,8BAAF,GAAU,IAAF,GAAS,2BAAF,GAClC,cADuC,GACtB,oBAAF,GAAmB,IAAF,GAAS,2BAAF,GACvC,eAD4C,GAC1B,mCAAc,sBAAhB,GAAuC,IAAF,GAAS,mCAAc,qBAAhB,GAAqC,IAAD,GAAQ,2BAAF,GACtG,YAD2G,GAC5F,mCAAc,sBAAhB,GAAwC,2BAAF,GACnD,OADwD,GAC9C,2BAAF,GAAO,2BAAF;AAEb,mBAAU,MAAwF,GAA/E,IAAF,GAAS,uBAAF,GAAsB,SAAF,GAAc,mBAAF,GAAkB,uBAAF,GAA4B,2BAAF;AAElG,cAAG,mCAAc,qBAAjB;AAEE,qBAAU,MAE2D,GADrE,IADiB,GACV,+BAAF,GAAW,cAAF,GAAmB,uBAAF,GAAsB,IAAF,GAAS,2BAAF,GAC1D,IAD+D,GACxD,wBAAF,GAAuB,QAAF,GAAa,uBAAF,GAAsB,IAAF,GAAS,2BAAF,GAAO,2BAAF;WAJvE;AAOA,cAAG,mCAAc,oBAAjB;AAEE,qBAAU,MACwC,GAAlD,IADiB,GACV,+BAAF,GAAW,4BAAF,GAAiC,2BAAF,GAAO,2BAAF;;AAIlD,qBAAU,MACyC,GAAnD,IADiB,GACV,+BAAF,GAAW,6BAAF,GAAkC,2BAAF,GAAO,2BAAF;;AAGrD,cAAG,mCAAc,uBAAjB;AAEE,qBAAU,MACmC,GAA7C,IADiB,GACV,+BAAF,GAAW,uBAAF,GAA4B,2BAAF,GAAO,2BAAF;;AAI7C,qBAAU,MACoC,GAA9C,IADiB,GACV,+BAAF,GAAW,wBAAF,GAA6B,2BAAF,GAAO,2BAAF;;AAGhD,cAAG,mCAAc,aAAjB;AAEE,qBAAU,MACgC,GAA1C,IADiB,GACV,+BAAF,GAAW,oBAAF,GAAyB,2BAAF,GAAO,2BAAF;;AAI1C,qBAAU,MACiC,GAA3C,IADiB,GACV,+BAAF,GAAW,qBAAF,GAA0B,2BAAF,GAAO,2BAAF;;AAG/C,mBAAU,MAAsE,GAA7D,IAAF,GAAS,+BAAF,GAAW,gBAAF,GAAsB,mCAAc,WHldjB,qEGkdC,GAA6B,KAAF;AAxDvC;AAGtC;AAHsC;AAAhB;AAAgB;AA9BG;AAAnB;AAEzB,iBACA,IAwBc,GAxBP,+BAAF,GAAW,4BAAF,GAAmC,2BAAF,GAC/C,kCADoD,GAEpD,MADkC,GACzB,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GAC7D,MADkE,GACzD,2BAAF,GAAO,2BAAF,GAIZ,IAJiB,GAIV,+BAAF,GAAW,kCAAF,GAAyC,2BAAF,GACrD,IAD0D,GACnD,+BAAF,GAAW,iCAAF,GAAwC,2BAAF,GACpD,IADyD,GAClD,+BAAF,GAAW,8BAAF,GAAqC,2BAAF,GACjD,IADsD,GAC/C,+BAAF,GAAW,6BAAF,GAAoC,2BAAF,GAChD,IADqD,GAC9C,+BAAF,GAAW,0BAAF,GAAiC,2BAAF,GAC7C,IADkD,GAC3C,+BAAF,GAAW,yBAAF,GAAgC,2BAAF,GAC5C,IADiD,GAC1C,+BAAF,GAAW,gCAAF,GAAuC,2BAAF,GACnD,IADwD,GACjD,+BAAF,GAAW,+BAAF,GAAsC,2BAAF,GAClD,IADuD,GAChD,+BAAF,GAAW,8BAAF,GAAqC,2BAAF,GACjD,IADsD,GAC/C,+BAAF,GAAW,6BAAF,GAAoC,2BAAF,GAChD,IADqD,GAC9C,+BAAF,GAAW,kCAAF,GAAyC,2BAAF,GACrD,IAD0D,GACnD,+BAAF,GAAW,iCAAF,GAAwC,2BAAF,GACpD,IADyD,GAClD,+BAAF,GAAW,kCAAF,GAAyC,2BAAF,GACrD,IAD0D,GACnD,+BAAF,GAAW,iCAAF,GAAwC,2BAAF,GACpD,IADyD,GAClD,+BAAF,GAAW,mCAAF,GAA0C,2BAAF,GACtD,IAD2D,GACpD,+BAAF,GAAW,kCAAF,GAAyC,2BAAF,GACrD,IAD0D,GACnD,+BAAF,GAAW,kCAAF,GAAyC,2BAAF,GACrD,IAD0D,GACnD,+BAAF,GAAW,iCAAF;AA3BW;AAAmB;AA9cC;AAApB;AAEzB,iBACA,eA4Ea,GA5EK,mCAAF,GAAe,iBAAF,GAAsB,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GAAO,2BAAF,GAErF,SAF0F,GAE9E,kCAAF,GAAc,IAAF,GAAS,2BAAF,GAC7B,6CADkC,GACgB,2BAAF,GAChD,8BADqD,GAClB,2BAAF,GACjC,+BADsC,GACF,2BAAF,GAClC,iCADuC,GACH,mDAAF,GAAoB,aAAF,GAAkB,2BAAF,GACpE,MADyE,GAChE,kCAAF,GAAc,SAAF,GAAc,mBAAF,GAAkB,oDAAF,GAAyD,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GACxI,MAD6I,GACpI,kCAAF,GAAc,wBAAF,GAA6B,+BAAF,GAAW,IAAF,GAAS,2BAAF,GAC9D,mDADmE,GACX,2BAAF,GACtD,gCAD2D,GACxB,2BAAF,GACjC,YADsC,GACvB,mCAAF,GAAe,mBAAF,GAAwB,2BAAF,GAChD,0BADqD,GACxB,mBAAF,GAAkB,2FAAF,GAAgG,mCAAF,GAAe,mBAAF,GAAwB,+BAAF,GAAW,IAAF,GAAS,2BAAF,GAC5L,SADiM,GACrL,2BAAF,GACV,QADe,GACJ,qCAAF,GAAiB,oCAAF,GAAyC,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC1F,QAD+F,GACpF,2BAAF,GAAO,2BAAF,GACd,sDADmB,GACwC,2BAAF,GACzD,gCAD8D,GAC3B,2BAAF,GACjC,QADsC,GAC3B,qCAAF,GAAiB,uCAAF,GAA4C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC7F,QADkG,GACvF,2BAAF,GAAO,2BAAF,GACd,qDADmB,GACuC,2BAAF,GACxD,aAD6D,GAC7C,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GAC/C,kCADoD,GACf,2BAAF,GACnC,SADwC,GAC5B,2BAAF,GACV,QADe,GACJ,qCAAF,GAAiB,sCAAF,GAA2C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC5F,SADiG,GACrF,2BAAF,GAAO,2BAAF,GACf,uDADoB,GACwC,2BAAF,GAC1D,aAD+D,GAC/C,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GAC/C,kCADoD,GACf,2BAAF,GACnC,SADwC,GAC5B,2BAAF,GACV,QADe,GACJ,qCAAF,GAAiB,wCAAF,GAA6C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC9F,QADmG,GACxF,2BAAF,GAAO,2BAAF,GACd,sDADmB,GACwC,2BAAF,GACzD,gCAD8D,GAC3B,2BAAF,GACjC,QADsC,GAC3B,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC/F,QADoG,GACzF,2BAAF,GAAO,2BAAF,GACd,uDADmB,GACyC,2BAAF,GAC1D,gCAD+D,GAC5B,2BAAF,GACjC,QADsC,GAC3B,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC/F,QADoG,GACzF,2BAAF,GAAO,2BAAF,GACd,UADmB,GACN,2BAAF,GACX,MADgB,GACP,kCAAF,GAAc,kBAAF,GAAuB,2BAAF,GACxC,KAD6C,GACrC,2BAAF,GAAO,2BAAF,GAEX,kCAFgB,GAEJ,gBAAF,GAAqB,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GAE9D,wBAFmE,GAExC,2BAAF,GACzB,mBAD8B,GACR,kCAAF,GAAc,eAAF,GAAoB,2BAAF,GAClD,+CADuD,GACL,2BAAF,GAChD,0CADqD,GACR,2BAAF,GAC3C,4CADgD,GACD,2BAAF,GAC7C,IADkD,GAC3C,qCAAF,GAAiB,sCAAF,GAA2C,mCAAF,GAAe,oBAAF,GAAyB,2BAAF,GACjG,GADsG,GAChG,2BAAF,GAEJ,kCAFS,GAEG,2BAAF,GAAkC,2BAAF,GAE1C,cAF+C,GAE9B,kCAAF,GAAc,gBAAF,GAAqB,2BAAF,GAC9C,aADmD,GACnC,2BAAF,GAEd,qBAFmB,GAEK,gDAAF,GAA4B,GAAF,GAC9C,mCADoD,GACvC,kBAAF,GAAuB,2BAAF,GAChC,mCADqC,GACxB,eAAF,GAAoB,2BAAF,GAE/B,4BAFoC,GAEL,2BAAF,GAC7B,iDADkC,GAElC,8BADoD,GAEpD,uCAD+B,GACW,2BAAF,GACxC,YAD6C,GAC9B,mCAAF,GAAe,+BAAF,GAAoC,2BAAF,GAC5D,4BADiE,GAClC,mCAAF,GAAe,iCAAF,GAAsC,2BAAF,GAC9E,6BADmF,GACnD,mCAAF,GAAe,iCAAF,GAAsC,2BAAF,GAC/E,SADoF,GACxE,2BAAF,GACV,OADe,GACL,2BAAF,GACR,UADa,GACA,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GAC1C,yCAD+C,GACH,2BAAF,GAC1C,YAD+C,GAChC,2BAAF,GACb,wCADkB,GACyB,2BAAF,GACzC,OAD8C,GACpC,2BAAF,GACR,KADa;AA/EY;AAAoB;AAgRL;AAAf;AAEzB,iBAAU,IAAiB,GAAV,kCAAF,GAAc,YAAF;AAFF;AAAe;AA7LU;AAAzB;AAEzB,iBACE,YA6K2C,GA7K5B,mCAAF,GAAe,YAAF,GAAiB,2BAAF,GACzC,mCAD8C,GACR,2BAAF,GACpC,gBADyC,GACtB,2BAAF,GAEjB,cAFsB,GAEL,2BAAF,GACf,kCADoB,GACiB,2BAAF,GACnC,iBADwC,GACpB,mCAAF,GAAe,wCAAF,GAA6C,mCAAF,GAAe,wCAAF,GAA6C,2BAAF,GAClI,iBADuI,GACnH,mCAAF,GAAe,wCAAF,GAA6C,mCAAF,GAAe,wCAAF,GAA6C,2BAAF,GAClI,iBADuI,GACnH,mCAAF,GAAe,wCAAF,GAA6C,mCAAF,GAAe,wCAAF,GAA6C,2BAAF,GAClI,iBADuI,GACnH,mCAAF,GAAe,wCAAF,GAA6C,mCAAF,GAAe,wCAAF,GAA6C,2BAAF,GAClI,iBADuI,GACnH,mCAAF,GAAe,wCAAF,GAA6C,mCAAF,GAAe,wCAAF,GAA6C,2BAAF,GAClI,YADuI,GACxH,2BAAF,GACb,+BADkB,GACgB,2BAAF,GAChC,0BADqC,GACR,mCAAF,GAAe,cAAF,GAAmB,mCAAF,GAAe,oBAAF,GAAyB,2BAAF,GAC7F,YADkG,GACnF,2BAAF,GACb,cADkB,GACD,2BAAF,GACf,aADoB,GACJ,2CAAF,GAAuB,GAAF,GAAQ,2BAAF,GACzC,YAD8C,GAC/B,2BAAF,GACb,KADkB,GACV,2BAAF,GAAO,2BAAF,GAEX,cAFgB,GAEC,2BAAF,GACf,kCADoB,GACiB,2BAAF,GACnC,+BADwC,GACN,2BAAF,GAChC,gCADqC,GACF,2BAAF,GACjC,eADsC,GACpB,2BAAF,GAChB,0BADqB,GACY,2BAAF,GAC/B,uBADoC,GACR,2BAAF,GAC1B,8BAD+B,GACM,2BAAF,GACnC,+BADwC,GACJ,2BAAF,GAClC,WADuC,GACzB,2BAAF,GACZ,SADiB,GACL,2BAAF,GAAO,2BAAF,GAEf,eAFoB,GAEF,2BAAF,GAChB,4BADqB,GACc,2BAAF,GACjC,qBADsC,GACZ,2BAAF,GACxB,UAD6B,GAChB,2BAAF,GAEX,cAFgB,GAEC,2BAAF,GACf,gBADoB,GACC,mCAAF,GAAe,sBAAF,GAA2B,2BAAF,GACzD,yBAD8D,GAC9B,2BAAF,GAC9B,yBADmC,GACL,2BAAF,GAC5B,qBADiC,GACP,2BAAF,GACxB,2BAD6B,GACG,mCAAF,GAAe,uCAAF,GAA4C,2BAAF,GACrF,YAD0F,GAC3E,2BAAF,GACb,oBADkB,GACO,2BAAF,GACvB,0BAD4B,GACG,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GAC7D,4BADkE,GACjC,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GACjE,WADsE,GACxD,2BAAF,GACZ,UADiB,GACJ,2BAAF,GAAO,2BAAF,GAEhB,uBAFqB,GAEK,2BAAF,GACxB,YAD6B,GACd,2BAAF,GACb,KADkB,GACV,2BAAF,GAEN,WAFW,GAEG,2BAAF,GACZ,wBADiB,GACc,2BAAF,GAC7B,mBADkC,GACV,2BAAF,GACtB,6BAD2B,GACS,2BAAF,GAClC,yBADuC,GACT,2BAAF,GAC5B,OADiC,GACvB,2BAAF,GACR,KADa,GACL,2BAAF,GAAO,2BAAF,GAEX,WAFgB,GAEF,2BAAF,GACZ,wBADiB,GACc,2BAAF,GAC7B,iBADkC,GACZ,2BAAF,GACpB,MADyB,GAChB,2BAAF,GAEP,UAFY,GAEC,2BAAF,GACX,YADgB,GACC,mCAAF,GAAe,uBAAF,GAA4B,2BAAF,GACtD,qBAD2D,GAC/B,2BAAF,GAC1B,qBAD+B,GACL,2BAAF,GACxB,iBAD6B,GACP,2BAAF,GACpB,uBADyB,GACG,mCAAF,GAAe,uCAAF,GAA4C,2BAAF,GACjF,QADsF,GAC3E,2BAAF,GACT,gBADc,GACO,2BAAF,GACnB,sBADwB,GACG,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAC3D,0BADgE,GACjC,mCAAF,GAAe,oBAAF,GAAyB,2BAAF,GACjE,wBADsE,GACzC,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAC7D,OADkE,GACxD,2BAAF,GACR,KADa,GACL,2BAAF,GAAO,2BAAF,GAEX,SAFgB,GAEJ,uCAAF,GAAmB,IAAF,GAAS,2BAAF,GAClC,gBADuC,GACpB,2BAAF,GACjB,mCADsB,GACgB,2BAAF,GACpC,MADyC,GAChC,+BAAF,GAAW,gBAAF,GAAqB,2BAAF,GACnC,cADwC,GACvB,2BAAF,GACf,iCADoB,GACgB,2BAAF,GAClC,oCADuC,GACA,2BAAF,GACrC,kCAD0C,GACL,2BAAF,GACnC,MADwC,GAC/B,+BAAF,GAAW,gBAAF,GAAqB,2BAAF,GACnC,MADwC,GAC/B,+BAAF,GAAW,gBAAF,GAAqB,2BAAF,GACnC,cADwC,GACvB,2BAAF,GACf,OADoB,GACV,2BAAF,GAER,eAFa,GAEK,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,sCAAF,GAA6C,2BAAF,GAC7D,6BADkE,GAClC,2BAAF,GAC9B,UADmC,GACtB,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACjG,UADsG,GACzF,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,yCAAF,GAAgD,2BAAF,GAChE,6BADqE,GACrC,2BAAF,GAC9B,UADmC,GACtB,qCAAF,GAAiB,4CAAF,GAAiD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACpG,UADyG,GAC5F,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,wCAAF,GAA+C,2BAAF,GAC/D,6BADoE,GACpC,2BAAF,GAC9B,UADmC,GACtB,qCAAF,GAAiB,2CAAF,GAAgD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACnG,UADwG,GAC3F,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,0CAAF,GAAiD,2BAAF,GACjE,6BADsE,GACtC,2BAAF,GAC9B,UADmC,GACtB,qCAAF,GAAiB,6CAAF,GAAkD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACrG,UAD0G,GAC7F,2BAAF,GAAO,2BAAF,GAChB,OADqB,GACX,+BAAF,GAAW,yCAAF,GAAgD,2BAAF,GAC/D,6BADoE,GACpC,2BAAF,GAC9B,UADmC,GACtB,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACtG,UAD2G,GAC9F,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,0CAAF,GAAiD,2BAAF,GACjE,6BADsE,GACtC,2BAAF,GAC9B,UADmC,GACtB,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACtG,UAD2G,GAC9F,2BAAF,GACX,OADgB,GACN,2BAAF,GAAO,2BAAF,GAEb,sBAFkB,GAEO,2BAAF,GACvB,QAD4B,GACjB,+BAAF,GAAW,sCAAF,GAA6C,2BAAF,GAC7D,6BADkE,GAClC,2BAAF,GAC9B,UADmC,GACtB,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACjG,UADsG,GACzF,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,yCAAF,GAAgD,2BAAF,GAChE,6BADqE,GACrC,2BAAF,GAC9B,UADmC,GACtB,qCAAF,GAAiB,4CAAF,GAAiD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACpG,UADyG,GAC5F,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,wCAAF,GAA+C,2BAAF,GAC/D,6BADoE,GACpC,2BAAF,GAC9B,UADmC,GACtB,qCAAF,GAAiB,2CAAF,GAAgD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACnG,UADwG,GAC3F,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,0CAAF,GAAiD,2BAAF,GACjE,6BADsE,GACtC,2BAAF,GAC9B,UADmC,GACtB,qCAAF,GAAiB,6CAAF,GAAkD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACrG,UAD0G,GAC7F,2BAAF,GAAO,2BAAF,GAChB,OADqB,GACX,+BAAF,GAAW,yCAAF,GAAgD,2BAAF,GAC/D,6BADoE,GACpC,2BAAF,GAC9B,UADmC,GACtB,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACtG,UAD2G,GAC9F,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,0CAAF,GAAiD,2BAAF,GACjE,6BADsE,GACtC,2BAAF,GAC9B,UADmC,GACtB,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACtG,UAD2G,GAC9F,2BAAF,GACX,OADgB,GACN,2BAAF,GAAO,2BAAF,GAEb,0BAFkB,GAEI,2BAAF,GAAO,2BAAF,GAEzB,UAF8B,GAEjB,2BAAF,GACX,eADgB,GACE,2BAAF,GAChB,kBADqB,GACA,+BAAF,GAAW,mBAAF,GAAwB,2BAAF,GAClD,iBADuD,GACnC,2BAAF,GAClB,UADuB,GACV,+BAAF,GAAW,4CAAF,GAAmD,mCAAF,GAAe,yCAAF,GAA8C,2BAAF,GAC9H,UADmI,GACtH,+BAAF,GAAW,0CAAF,GAAiD,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GACpG,UADyG,GAC5F,+BAAF,GAAW,4CAAF,GAAmD,mCAAF,GAAe,mBAAF,GAAwB,2BAAF,GACxG,UAD6G,GAChG,+BAAF,GAAW,kCAAF,GAAuC,2BAAF,GACzD,SAD8D,GAClD,2BAAF,GACV,OADe,GACL,2BAAF,GAER,eAFa,GAEK,2BAAF,GAChB,kBADqB,GACA,+BAAF,GAAW,mBAAF,GAAwB,2BAAF,GAClD,iBADuD,GACnC,2BAAF,GAClB,UADuB,GACV,+BAAF,GAAW,4CAAF,GAAmD,mCAAF,GAAe,yCAAF,GAA8C,2BAAF,GAC9H,UADmI,GACtH,+BAAF,GAAW,0CAAF,GAAiD,mCAAF,GAAe,mBAAF,GAAwB,2BAAF,GACtG,UAD2G,GAC9F,+BAAF,GAAW,4CAAF,GAAmD,mCAAF,GAAe,qBAAF,GAA0B,2BAAF,GAC1G,UAD+G,GAClG,+BAAF,GAAW,0CAAF,GAAiD,mCAAF,GAAe,mBAAF,GAAwB,2BAAF,GACtG,UAD2G,GAC9F,+BAAF,GAAW,kCAAF,GAAuC,2BAAF,GACzD,SAD8D,GAClD,2BAAF,GACV,OADe,GACL,2BAAF,GACR,KADa,GACL,2BAAF,GAEN,IAFW,GAEJ,uCAAF,GAAmB,KAAF,GAAU,mCAAF,GAAe,QAAF;AAhLpB;AAAyB;AAkML;AAApB;AAEzB,iBACE,cAO6E,GAP5D,+BAAF,GAAW,YAAF,GAAiB,uCAAF,GAAmB,iBAAF,GAAsB,2BAAF,GAC5E,aADiF,GACjE,2BAAF,GACd,MADmB,GACV,+BAAF,GAAW,eAAF,GAAoB,uCAAF,GAAmB,iBAAF,GAAsB,2BAAF,GACvE,KAD4E,GACpE,2BAAF,GAEN,cAFW,GAEM,+BAAF,GAAW,YAAF,GAAiB,uCAAF,GAAmB,kBAAF,GAAuB,2BAAF,GAC7E,aADkF,GAClE,2BAAF,GACd,MADmB,GACV,+BAAF,GAAW,eAAF,GAAoB,uCAAF,GAAmB,kBAAF,GAAuB,2BAAF,GACxE,KAD6E;AAVtD;AAAoB;AAuVL;AAAf;AAEzB,iBACE,cAEc,GAFG,mCAAF,GAAe,8BAAF,GAAmC,mCAAF,GAAe,6BAAF,GAAkC,2BAAF,GAC1G,cAD+G,GAC9F,mCAAF,GAAe,8BAAF,GAAmC,mCAAF,GAAe,6BAAF,GAAkC,2BAAF,GAC1G,IAD+G,GACxG,+BAAF,GAAW,sCAAF;AALS;AAAe;AAzUH;AAAZ;AAEzB,iBACE,cAGoE,GAHnD,+BAAF,GAAW,eAAF,GAAoB,2BAAF,GAC1C,8DAD+C,GACkB,2BAAF,GAC/D,+DADoE,GACF,2BAAF,GAChE,8DADqE,GACJ,2BAAF,GAC/D,+DADoE;AAN7C;AAAY;AA8QU;AAAtB;AAEzB,iBAAU,IAA8F,GAAvF,+BAAF,GAAW,gCAAF,GAAqC,mCAAF,GAAe,gBAAF,GAAqB,mCAAF,GAAe,kBAAF;AAF/E;AAAsB;AApQA;AAAtB;AAEzB,iBACE,cACwC,GADvB,+BAAF,GAAW,eAAF,GAAoB,2BAAF,GAC1C,kCAD+C,GACV,2BAAF,GACnC,mCADwC;AAJjB;AAAsB;AA0BP;AAAf;AAEzB,iBAAU,YAAsB,GAAP,+BAAF,GAAW,aAAF;AAFP;AAAe;AA+OA;AAAf;AAEzB,iBAAU,IAAyC,GAAlC,+BAAF,GAAW,WAAF,GAAgB,mCAAF,GAAe,IAAF;AAF1B;AAAe;AAjQF;AAAb;AAEzB,iBACE,sBAE6C,GAFpB,mCAAF,GAAe,iBAAF,GAAsB,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACxF,gBAD6F,GAC1E,+BAAF,GAAU,uBAAD,GAA2B,2BAAF,GACnD,uCADwD,GACd,2BAAF,GACxC,uCAD6C;AALtB;AAAa;AASA;AAAb;AAEzB,iBACE,iBAE2D,GAFvC,mCAAF,GAAe,SAAF,GAAc,mCAAF,GAAe,SAAF,GAAc,2BAAF,GACpE,qBADyE,GACjD,+BAAF,GAAU,oBAAD,GAAwB,2BAAF,GACrD,qDAD0D,GACF,2BAAF,GACtD,sDAD2D;AALpC;AAAa;AAoQG;AAAhB;AAEzB,iBAAU,MAKkC,GAJ1C,IADe,GACR,wBAAF,GAAuB,0BAAF,GAA+B,2BAAF,GACvD,kCAD4D,GACvB,2BAAF,GACnC,MADwC,GAC/B,+BAAF,GAAW,wBAAF,GAA6B,2BAAF,GAC3C,KADgD,GACxC,2BAAF,GACN,IADW,GACJ,wBAAF,GAAuB,QAAF,GAAa,2BAAF,GAAO,2BAAF;AAE5C,iBAAU,MAIG,GAHX,QADe,GACJ,mCAAF,GAAe,uBAAF,GAA4B,2BAAF,GAChD,MADqD,GAC5C,+BAAF,GAAW,cAAF,GAAmB,uBAAF,GAAsB,IAAF,GAAS,2BAAF,GAC5D,MADiE,GACxD,wBAAF,GAAuB,QAAF,GAAa,uBAAF,GAAsB,IAAF,GAAS,2BAAF,GAClE,KADuE,GAC/D,2BAAF,GAAO,2BAAF;AAEb,iBAAU,MAMG,GALX,QADe,GACJ,mCAAF,GAAe,sBAAF,GAA2B,2BAAF,GAC/C,MADoD,GAC3C,+BAAF,GAAW,4BAAF,GAAiC,2BAAF,GAC/C,KADoD,GAC5C,2BAAF,GACN,SADW,GACC,2BAAF,GACV,MADe,GACN,+BAAF,GAAW,6BAAF,GAAkC,2BAAF,GAChD,KADqD,GAC7C,2BAAF,GAAO,2BAAF;AAEb,iBAAU,MAMG,GALX,QADe,GACJ,mCAAF,GAAe,yBAAF,GAA8B,2BAAF,GAClD,MADuD,GAC9C,+BAAF,GAAW,uBAAF,GAA4B,2BAAF,GAC1C,KAD+C,GACvC,2BAAF,GACN,SADW,GACC,2BAAF,GACV,MADe,GACN,+BAAF,GAAW,wBAAF,GAA6B,2BAAF,GAC3C,KADgD,GACxC,2BAAF,GAAO,2BAAF;AAEb,iBAAU,MAMG,GALX,QADe,GACJ,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GACxC,MAD6C,GACpC,+BAAF,GAAW,oBAAF,GAAyB,2BAAF,GACvC,KAD4C,GACpC,2BAAF,GACN,SADW,GACC,2BAAF,GACV,MADe,GACN,+BAAF,GAAW,qBAAF,GAA0B,2BAAF,GACxC,KAD6C,GACrC,2BAAF,GAAO,2BAAF;AAEb,iBAAU,MAA6D,GAApD,IAAF,GAAS,+BAAF,GAAW,oBAAF,GAA2B,mCAAF,GAAe,qBAAF;AAvC9C;AAAgB;AAtPE;AAAlB;AAEzB,iBACE,2BAiGkE,GAjGpC,2BAAF,GAC5B,MADiC,GACxB,uBAAF,GAAsB,GAAF,GAAQ,2BAAF,GACjC,MADsC,GAC7B,wBAAF,GAAuB,QAAF,GAAa,2BAAF,GACvC,oDAD4C,GACe,2BAAF,GACzD,iDAD8D,GACR,2BAAF,GACpD,8CADyD,GACJ,2BAAF,GACnD,gBADwD,GACrC,2BAAF,GACjB,gBADsB,GACH,2BAAF,GACjB,uEADsB,GAEtB,qBADwE,GAChD,+BAAF,GAAW,eAAF,GAAoB,2BAAF,GACjD,6BADsD,GACtB,2BAAF,GAC9B,6BADmC,GACH,2BAAF,GAC9B,8CADmC,GACkB,2BAAF,GACnD,uBADwD,GAC9B,2BAAF,GACxB,0CAD6B,GACgB,2BAAF,GAC3C,0BADgD,GACnB,2BAAF,GAC3B,0BADgC,GACH,2BAAF,GAC3B,0BADgC,GACH,2BAAF,GAC3B,OADgC,GACtB,2BAAF,GACR,WADa,GACC,2BAAF,GACZ,0BADiB,GACY,2BAAF,GAC3B,8EADgC,GACqD,2BAAF,GACnF,4BADwF,GACzD,2BAAF,GAC7B,SADkC,GACtB,2BAAF,GACV,yBADe,GACa,2BAAF,GAC1B,4BAD+B,GACA,2BAAF,GAC7B,4BADkC,GACH,2BAAF,GAC7B,SADkC,GACtB,2BAAF,GACV,OADe,GACL,2BAAF,GACR,KADa,GACL,2BAAF,GAEN,kFAFW,GAEoF,2BAAF,GAC7F,aADkG,GAClF,2BAAF,GACd,GADmB,GACb,2BAAF,GAAO,2BAAF,GAET,+BAFc,GAEoB,2BAAF,GAChC,uBADqC,GACX,2BAAF,GACxB,2BAD6B,GACC,2BAAF,GAC5B,aADiC,GACjB,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC7D,GADkE,GAC5D,2BAAF,GAAO,2BAAF,GACT,6BADc,GACkB,2BAAF,GAC9B,uBADmC,GACT,2BAAF,GACxB,2BAD6B,GACC,2BAAF,GAC5B,aADiC,GACjB,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GAC3D,GADgE,GAC1D,2BAAF,GAAO,2BAAF,GAET,2BAFc,GAEgB,2BAAF,GAC5B,uBADiC,GACP,2BAAF,GACxB,2BAD6B,GACC,2BAAF,GAC5B,aADiC,GACjB,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,kCAAF,GAAuC,2BAAF,GACzD,GAD8D,GACxD,2BAAF,GAAO,2BAAF,GACT,8BADc,GACmB,2BAAF,GAC/B,uBADoC,GACV,2BAAF,GACxB,2BAD6B,GACC,2BAAF,GAC5B,aADiC,GACjB,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,qCAAF,GAA0C,2BAAF,GAC5D,GADiE,GAC3D,2BAAF,GAAO,2BAAF,GACT,+BADc,GACoB,2BAAF,GAChC,uBADqC,GACX,2BAAF,GACxB,2BAD6B,GACC,2BAAF,GAC5B,aADiC,GACjB,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC7D,GADkE,GAC5D,2BAAF,GAAO,2BAAF,GACT,6BADc,GACkB,2BAAF,GAC9B,uBADmC,GACT,2BAAF,GACxB,2BAD6B,GACC,2BAAF,GAC5B,aADiC,GACjB,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GAC3D,GADgE,GAC1D,2BAAF,GAAO,2BAAF,GACT,gCADc,GACqB,2BAAF,GACjC,uBADsC,GACZ,2BAAF,GACxB,2BAD6B,GACC,2BAAF,GAC5B,aADiC,GACjB,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,uCAAF,GAA4C,2BAAF,GAC9D,GADmE,GAC7D,2BAAF,GAAO,2BAAF,GACT,gCADc,GACqB,2BAAF,GACjC,uBADsC,GACZ,2BAAF,GACxB,2BAD6B,GACC,2BAAF,GAC5B,aADiC,GACjB,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC7D,GADkE,GAC5D,2BAAF,GAAO,2BAAF,GACT,+BADc,GACoB,2BAAF,GAChC,uBADqC,GACX,2BAAF,GACxB,2BAD6B,GACC,2BAAF,GAC5B,aADiC,GACjB,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC7D,GADkE;AApG3C;AAAkB;AAtVK;AAAvB;AAEzB,iBAAU,IAAoF,GAA7E,2CAAF,GAAuB,SAAF,GAAc,mCAAF,GAAe,iBAAF,GAAsB,mCAAF,GAAe,iBAAF;AAFrE;AAAuB;AAKN;AAAjB;AAEzB,iBAAU;AAFe;AAAiB;AAycW;AAA5B;AAEzB,iBAAU;AAFe;AAA4B;AAKL;AAAvB;AAEzB,iBAAU;AAFe;AAAuB;AA2KhB;AAAP;AACtB;AAD6B;AAEhC,mBAAW,mCAAc,YAAW,KAAG,EAAH;AAFJ;AAC7B;AAD6B;AAAP;AAAO;AAnoBK;AAClC;AADkC;AAErC,2BAAW,YAAY,CAAC,0EAAD;AAFc;AAClC;AADkC;;AAVH;AAElC;AAFmC;AAAD;AAKA;AAElC;AAFkC;AA3EjB;;;;AAuCjB;AAGgB,6BAAG;AACP,yBAAG;AACD,2BAAG;AACJ,0BAAG;AACC,8BAAG;AACF,+BAAG;AA7FT;AAhBd,GAgBc,6JAhBd;ACAA,0CAWS,UAXT;;;;AAkGkC;AAEhC,QAAG,CAAI,oDAA2B,UAAQ,0BAAwB,CAAC,uEAAuC,CAAC,UAAD;eAAA,MAAC;AAAD;;QAAxC,CAAlE;AAEE,uCAA0C,eAA3B,iCAA2B,QAAC,iEAAD,EAA1C;AACA,0DAA2B,UAAQ,mBAAmB,CAAC,uEAA6B,iBAA9B;KAHxD;AAFgC;AASE;AAElC,wDAA2B,UAAQ,sBAAsB,CAAC,sEAAD;AAFvB;AA3GpC,mBAgBc;AAyBe;AAFO;;;;;AAEP;AAyEoB;AAAZ;AAChC;AAD4C;AAE/C,uCAA8B,eAApB,0BAAoB,QAAC,uDAAD,EAA9B;AADG;AAD4C;AAC5C;AAD4C;AAAZ;AAAY;AAzEpB;;;;AAQP;;AAkbqB;AAGzC,aAAK,MAAI,CAAC,wCAAe,QAAC,cAAU,CAAC,qBAAsC,GAApB,yBAAF,GAAuB,gBAAD,CAAmB,WAAY,YAAtE,CAAV,CAAjB;AACT,aAAK,MAAI,CAAC,wCAAe,QAAC,gBAAY,CAAC,qBAAsC,GAApB,yBAAF,GAAwB,eAAF,CJzNpB,GAAuB,GAAuB,GAAsB,MAAyB,KIyNhH,CAAZ,CAAjB;AAJgC;AAoOC;AAI5C;AACA;AACA;AAN4C;AArFH;AAAX;AAE5B,iBAAU;AAFkB;AAAW;AAqBC;AAAZ;AAE5B,iBACA,oEAUoC,GAVmC,2BAAF,GACrE,IAD0E,GACnE,iCAAF,GAAa,SAAF,GAAc,mBAAF,GAAkB,UAAF,GAAe,2BAAF,GACzD,oBAD8D,GACvC,mCAAF,GAAe,eAAF,GAAoB,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GACnF,gDADwF,GACrC,mCAAF,GAAe,YAAF,GAAiB,2BAAF,GAC7E,oBADkF,GAC3D,mBAAF,GAAkB,iBAAF,GAAsB,mCAAF,GAAe,iBAAF,GAAsB,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GAC1H,OAD+H,GACrH,2BAAF,GACR,IADa,GACN,+BAAF,GAAW,sBAAF,GAA6B,iCAAF,GAAa,oBAAF,GAAyB,2BAAF,GAC3E,MADgF,GACvE,iCAAF,GAAa,YAAF,GAAiB,2BAAF,GACjC,MADsC,GAC7B,iCAAF,GAAa,SAAF,GAAc,2BAAF,GAC9B,MADmC,GAC1B,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,iCAAF,GAAa,QAAF,GAAa,+BAAF,GAAW,IAAF;AAbR;AAAY;AA3TC;AAAb;AAE5B,iBAAU,IACgB,GADT,iCAAF,GAAa,YAAF,GAAiB,2BAAF,GAC/B,IADoC,GAC7B,iCAAF,GAAa,UAAF;AAHE;AAAa;AA8JD;AAAZ;AAE5B,iBACE,kBAEwB,GAFH,2BAAF,GACnB,uBADwB,GACE,2BAAF,GACxB,kBAD6B,GACR,2BAAF,GACnB,GADwB;AALE;AAAY;AAxJK;AAAjB;AAE5B,iBAAU,IAAc,GAAP,+BAAF,GAAW,oCAAF;AAFI;AAAiB;AA2RE;AAAnB;AAE5B,iBAAU,GAAI,GAAE,mBAAF;AAFc;AAAmB;AA1HN;AAAb;AAE5B,iBAAU;AAFkB;AAAa;AAgEG;AAAhB;AAE5B;AACG;AAHyC;AAI5C,cAAK;AACL,mBACE,IAQa,GARN,+BAAF,GAAW,SAAF,GAAc,CAAF,GAAM,QAAF,GAAa,8BAAF,GAAU,MAAF,GAAW,2BAAF,GAC1D,iBAD+D,GAC1C,mCAAc,UAAU,CAAC,oEAAD,CAA1B,GAAyC,IAAF,GAAU,2BAAF,GAClE,eADuE,GACrD,mCAAc,sBAAhB,GAAuC,IAAF,GAAS,mCAAc,qBAAhB,GAAqC,IAAD,GAAQ,2BAAF,GACtG,YAD2G,GAC5F,mCAAc,sBAAhB,GAAuC,GAAF,GAAQ,2BAAF,GACxD,oBAD6D,GACtC,2BAAF,GACrB,oCAD0B,GACa,2BAAF,GACrC,0BAD0C,GACb,mCAAc,YAAhB,GAA6B,GAAF,GAAQ,2BAAF,GAC5D,OADiE,GACvD,2BAAF,GACR,OADa,GACH,2BAAF,GAAO,2BAAF;AAEb,mBAAU,MAA0F,GAAjF,IAAF,GAAS,uBAAF,GAAsB,SAAF,GAAc,mBAAF,GAAkB,yBAAF,GAA8B,2BAAF;AACpG,mBAAU,MAAkH,GAAzG,IAAF,GAAS,0BAAF,GAAyB,SAAF,GAAc,mBAAF,GAAkB,4CAAF,GAAmD,2BAAF;AAE5H,cAAG,mCAAc,qBAAjB;AAEE,qBAAU,MAK2D,GAJrE,IADiB,GACV,+BAAF,GAAW,gBAAF,GAAqB,uBAAF,GAAsB,KAAF,GAAU,2BAAF,GAC7D,+BADkE,GAC9B,2BAAF,GAClC,OADuC,GAC7B,2BAAF,GAER,IAFa,GAEN,wBAAF,GAAuB,QAAF,GAAa,uBAAF,GAAsB,IAAF,GAAS,2BAAF,GAAO,2BAAF;WAPvE;AAUA,cAAG,CAAI,mCAAc,oBAArB;AAEE,qBAAU,MACmE,GAA7E,IADiB,GACV,+BAAF,GAAW,uDAAF,GAA4D,2BAAF,GAAO,2BAAF;WAH/E;AAMA,cAAG,CAAI,mCAAc,aAArB;AAEE,qBAAU,MAC8D,GAAxE,IADiB,GACV,+BAAF,GAAW,kDAAF,GAAuD,2BAAF,GAAO,2BAAF;WAH1E;AAMA,cAAG,CAAI,mCAAc,uBAArB;AAEE,qBAAU,MACiE,GAA3E,IADiB,GACV,+BAAF,GAAW,qDAAF,GAA0D,2BAAF,GAAO,2BAAF;WAH7E;AAMA,cAAG,oCAAc,wBAAjB;AAEE,qBAAU,MAK8D,GAJxE,IADiB,GACV,+BAAF,GAAW,gBAAF,GAAqB,0BAAF,GAAyB,KAAF,GAAU,2BAAF,GAChE,+BADqE,GACjC,2BAAF,GAClC,OADuC,GAC7B,2BAAF,GAER,IAFa,GAEN,wBAAF,GAAuB,QAAF,GAAa,0BAAF,GAAyB,IAAF,GAAS,2BAAF,GAAO,2BAAF;WAP1E;AA/C0C;AAGzC;AAHyC;AAAhB;AAAgB;AAjDG;AAAnB;AAE5B,iBACA,IA0CoE,GA1C7D,+BAAF,GAAW,uCAAF,GAA8C,2BAAF,GACxD,QAD6D,GAClD,qCAAF,GAAiB,oDAAF,GAAyD,2BAAF,GACjF,MADsF,GAC7E,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,iCAAF,GAAwC,2BAAF,GACpD,MADyD,GAChD,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GAC7D,MADkE,GACzD,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,sCAAF,GAA6C,2BAAF,GACzD,MAD8D,GACrD,qCAAF,GAAiB,uCAAF,GAA4C,2BAAF,GAChE,MADqE,GAC5D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,2CAAF,GAAkD,2BAAF,GAC9D,yDADmE,GACP,2BAAF,GAC1D,MAD+D,GACtD,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC/D,MADoE,GAC3D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,yCAAF,GAAgD,2BAAF,GAC5D,yDADiE,GACL,2BAAF,GAC1D,MAD+D,GACtD,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GAC7D,MADkE,GACzD,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,uCAAF,GAA8C,2BAAF,GAC1D,gKAD+D,GACoG,2BAAF,GACjK,MADsK,GAC7J,qCAAF,GAAiB,kCAAF,GAAuC,2BAAF,GAC3D,MADgE,GACvD,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,0CAAF,GAAiD,2BAAF,GAC7D,gKADkE,GACiG,2BAAF,GACjK,MADsK,GAC7J,qCAAF,GAAiB,qCAAF,GAA0C,2BAAF,GAC9D,MADmE,GAC1D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,yCAAF,GAAgD,2BAAF,GAC5D,gKADiE,GACkG,2BAAF,GACjK,MADsK,GAC7J,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GAC7D,MADkE,GACzD,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,2CAAF,GAAkD,2BAAF,GAC9D,gKADmE,GACgG,2BAAF,GACjK,MADsK,GAC7J,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC/D,MADoE,GAC3D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,4CAAF,GAAmD,2BAAF,GAC/D,gKADoE,GAC+F,2BAAF,GACjK,MADsK,GAC7J,qCAAF,GAAiB,uCAAF,GAA4C,2BAAF,GAChE,MADqE,GAC5D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,2CAAF,GAAkD,2BAAF,GAC9D,yDADmE,GACP,2BAAF,GAC1D,MAD+D,GACtD,qCAAF,GAAiB,uCAAF,GAA4C,2BAAF,GAChE,MADqE,GAC5D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,2CAAF,GAAkD,2BAAF,GAC9D,MADmE,GAC1D,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC/D,MADoE;AA7CxC;AAAmB;AAlXC;AAApB;AAE5B,iBACE,oEA8CmD,GA9CoB,2BAAF,GACrE,mBAD0E,GACpD,2BAAF,GACpB,eADyB,GACP,mCAAF,GAAe,cAAF,GAAmB,2BAAF,GAC9C,oBADmD,GAC5B,mBAAF,GAAkB,iBAAF,GAAsB,mCAAF,GAAe,iBAAF,GAAsB,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GAC1H,iBAD+H,GAC3G,mBAAF,GAAkB,UAAF,GAAe,2BAAF,GAC/C,mDADoD,GACE,mCAAF,GAAe,aAAF,GAAkB,2BAAF,GACjF,6BADsF,GACtD,2BAAF,GAC9B,SADmC,GACvB,2BAAF,GACV,KADe,GACP,2BAAF,GAEN,qBAFW,GAEa,gDAAF,GAA4B,GAAF,GAC9C,mCADoD,GACvC,kBAAF,GAAuB,2BAAF,GAChC,mCADqC,GACxB,eAAF,GAAoB,2BAAF,GAE/B,0BAFoC,GAEP,2BAAF,GAC3B,2CADgC,GAEhC,4BAD8C,GAE9C,iCAD6B,GACO,2BAAF,GAElC,KAFuC,GAE/B,2BAAF,GAAO,2BAAF,GAEX,SAFgB,GAEJ,kCAAF,GAAc,IAAF,GAAS,2BAAF,GAC7B,MADkC,GACzB,kCAAF,GAAc,SAAF,GAAc,mBAAF,GAAkB,uBAAF,GAA4B,2BAAF,GACzE,MAD8E,GACrE,+BAAF,GAAW,sBAAF,GAA6B,kCAAF,GAAc,oBAAF,GAAyB,2BAAF,GAC9E,YADmF,GACpE,mCAAF,GAAe,aAAF,GAAkB,2BAAF,GAC1C,UAD+C,GAClC,kCAAF,GAAc,iBAAF,GAAsB,2BAAF,GAC3C,SADgD,GACpC,2BAAF,GACV,QADe,GACJ,qCAAF,GAAiB,oCAAF,GAAyC,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC1F,QAD+F,GACpF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,+BAAF,GAAW,yBAAF,GAAgC,kCAAF,GAAc,oBAAF,GAAyB,2BAAF,GACjF,QADsF,GAC3E,qCAAF,GAAiB,uCAAF,GAA4C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC7F,QADkG,GACvF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,+BAAF,GAAW,wBAAF,GAA+B,kCAAF,GAAc,oBAAF,GAAyB,2BAAF,GAChF,QADqF,GAC1E,qCAAF,GAAiB,sCAAF,GAA2C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC5F,QADiG,GACtF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,+BAAF,GAAW,0BAAF,GAAiC,kCAAF,GAAc,oBAAF,GAAyB,2BAAF,GAClF,QADuF,GAC5E,qCAAF,GAAiB,wCAAF,GAA6C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC9F,QADmG,GACxF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,+BAAF,GAAW,2BAAF,GAAkC,kCAAF,GAAc,oBAAF,GAAyB,2BAAF,GACnF,QADwF,GAC7E,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC/F,QADoG,GACzF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,+BAAF,GAAW,0BAAF,GAAiC,kCAAF,GAAc,oBAAF,GAAyB,2BAAF,GAClF,QADuF,GAC5E,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC/F,QADoG,GACzF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,+BAAF,GAAW,eAAF,GAAoB,kCAAF,GAAc,IAAF,GAAS,2BAAF,GACrD,UAD0D,GAC7C,2BAAF,GACX,MADgB,GACN,kCAAH,GAAe,uBAAF,GAA4B,2BAAF,GAC9C,KADmD;AAjDzB;AAAoB;AAuML;AAAf;AAE5B,iBAAU,IAA+C,GAAxC,+BAAF,GAAW,kBAAF,GAAuB,kCAAF,GAAc,IAAF;AAF7B;AAAe;AAlJU;AAAzB;AAE5B,iBACE,YAgIa,GAhIE,mCAAF,GAAe,YAAF,GAAiB,2BAAF,GACzC,gBAD8C,GAC3B,2BAAF,GACjB,iBADsB,GACF,2BAAF,GAAO,2BAAF,GAEvB,cAF4B,GAEX,2BAAF,GACf,kCADoB,GACiB,2BAAF,GACnC,iBADwC,GACpB,mCAAF,GAAe,wCAAF,GAA6C,mCAAF,GAAe,wCAAF,GAA6C,2BAAF,GAClI,iBADuI,GACnH,mCAAF,GAAe,wCAAF,GAA6C,mCAAF,GAAe,wCAAF,GAA6C,2BAAF,GAClI,iBADuI,GACnH,mCAAF,GAAe,wCAAF,GAA6C,mCAAF,GAAe,wCAAF,GAA6C,2BAAF,GAClI,iBADuI,GACnH,mCAAF,GAAe,wCAAF,GAA6C,mCAAF,GAAe,wCAAF,GAA6C,2BAAF,GAClI,iBADuI,GACnH,mCAAF,GAAe,wCAAF,GAA6C,mCAAF,GAAe,wCAAF,GAA6C,2BAAF,GAClI,YADuI,GACxH,2BAAF,GACb,KADkB,GACV,2BAAF,GAAO,2BAAF,GAEX,cAFgB,GAEC,2BAAF,GACf,gCADoB,GACe,2BAAF,GACjC,kCADsC,GACD,2BAAF,GACnC,+BADwC,GACN,2BAAF,GAChC,eADqC,GACnB,2BAAF,GAChB,mBADqB,GACC,mCAAF,GAAe,cAAF,GAAmB,2BAAF,GAClD,4BADuD,GACxB,mCAAF,GAAe,iBAAF,GAAsB,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAChG,SADqG,GACzF,2BAAF,GACV,iCADe,GACqB,2BAAF,GAClC,eADuC,GACrB,2BAAF,GAChB,mBADqB,GACC,mCAAF,GAAe,cAAF,GAAmB,2BAAF,GAClD,8BADuD,GACtB,mCAAF,GAAe,mBAAF,GAAwB,mCAAF,GAAe,qBAAF,GAA0B,2BAAF,GACvG,uBAD4G,GAClF,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GACzD,SAD8D,GAClD,2BAAF,GACV,YADe,GACA,2BAAF,GACb,OADkB,GACR,2BAAF,GAAO,2BAAF,GAEb,SAFkB,GAEN,uCAAF,GAAmB,IAAF,GAAS,2BAAF,GAClC,MADuC,GAC9B,uCAAF,GAAmB,SAAF,GAAc,mBAAF,GAAkB,uBAAF,GAA4B,2BAAF,GAC9E,MADmF,GAC1E,+BAAF,GAAW,eAAF,GAAoB,uCAAF,GAAmB,IAAF,GAAS,2BAAF,GAE1D,gBAF+D,GAE5C,2BAAF,GACjB,mCADsB,GACgB,2BAAF,GACpC,QADyC,GAC9B,uCAAF,GAAmB,WAAF,GAAgB,mBAAF,GAAkB,mBAAF,GAAwB,2CAAF,GAAuB,KAAF,GAAU,2BAAF,GAC3G,cADgH,GAC/F,2BAAF,GACf,iCADoB,GACgB,2BAAF,GAClC,QADuC,GAC5B,uCAAF,GAAmB,WAAF,GAAgB,mBAAF,GAAkB,oBAAF,GAAyB,mBAAF,GAAkB,eAAF,GAAoB,mCAAF,GAAe,2BAAF,GAAgC,mCAAF,GAAe,wDAAF,GAA6D,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACpQ,cADyQ,GACxP,2BAAF,GACf,kCADoB,GACiB,2BAAF,GACnC,QADwC,GAC7B,uCAAF,GAAmB,WAAF,GAAgB,mBAAF,GAAkB,iBAAF,GAAsB,2CAAF,GAAuB,MAAF,GAAW,2BAAF,GAC1G,cAD+G,GAC9F,2BAAF,GACf,oCADoB,GACmB,2BAAF,GACrC,QAD0C,GAC/B,uCAAF,GAAmB,WAAF,GAAgB,mBAAF,GAAkB,uBAAF,GAA4B,2BAAF,GAClF,cADuF,GACtE,2BAAF,GACf,OADoB,GACV,2BAAF,GAER,gBAFa,GAEM,2BAAF,GACjB,iCADsB,GACc,2BAAF,GAClC,oCADuC,GACA,2BAAF,GACrC,kCAD0C,GACL,2BAAF,GACnC,qBADwC,GAChB,mBAAF,GAAkB,sBAAF,GAA2B,uCAAF,GAAmB,IAAF,GAAS,mCAAF,GAAe,4BAAF,GAAiC,2BAAF,GACnI,qBADwI,GAChH,mBAAF,GAAkB,mBAAF,GAAwB,uCAAF,GAAmB,IAAF,GAAS,mCAAF,GAAe,6BAAF,GAAkC,2BAAF,GACjI,QADsI,GAC3H,+BAAF,GAAW,kBAAF,GAAuB,2BAAF,GACvC,mCAD4C,GACN,2BAAF,GACpC,qBADyC,GACjB,mBAAF,GAAkB,mBAAF,GAAwB,uCAAF,GAAmB,IAAF,GAAS,mCAAF,GAAe,6BAAF,GAAkC,2BAAF,GACjI,QADsI,GAC3H,+BAAF,GAAW,kBAAF,GAAuB,2BAAF,GACvC,cAD4C,GAC3B,2BAAF,GACf,OADoB,GACV,2BAAF,GAER,eAFa,GAEK,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,2CAAF,GAAkD,2BAAF,GAClE,UADuE,GAC1D,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACjG,UADsG,GACzF,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,8CAAF,GAAqD,2BAAF,GACrE,UAD0E,GAC7D,qCAAF,GAAiB,4CAAF,GAAiD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACpG,UADyG,GAC5F,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,6CAAF,GAAoD,2BAAF,GACpE,UADyE,GAC5D,qCAAF,GAAiB,2CAAF,GAAgD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACnG,UADwG,GAC3F,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,+CAAF,GAAsD,2BAAF,GACtE,UAD2E,GAC9D,qCAAF,GAAiB,6CAAF,GAAkD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACrG,UAD0G,GAC7F,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,gDAAF,GAAuD,2BAAF,GACvE,UAD4E,GAC/D,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACtG,UAD2G,GAC9F,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,+CAAF,GAAsD,2BAAF,GACtE,UAD2E,GAC9D,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACtG,UAD2G,GAC9F,2BAAF,GACX,OADgB,GACN,2BAAF,GAAO,2BAAF,GAEb,sBAFkB,GAEO,2BAAF,GACvB,QAD4B,GACjB,+BAAF,GAAW,2CAAF,GAAkD,2BAAF,GAClE,UADuE,GAC1D,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACjG,UADsG,GACzF,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,8CAAF,GAAqD,2BAAF,GACrE,UAD0E,GAC7D,qCAAF,GAAiB,4CAAF,GAAiD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACpG,UADyG,GAC5F,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,6CAAF,GAAoD,2BAAF,GACpE,UADyE,GAC5D,qCAAF,GAAiB,2CAAF,GAAgD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACnG,UADwG,GAC3F,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,+CAAF,GAAsD,2BAAF,GACtE,UAD2E,GAC9D,qCAAF,GAAiB,6CAAF,GAAkD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACrG,UAD0G,GAC7F,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,gDAAF,GAAuD,2BAAF,GACvE,UAD4E,GAC/D,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACtG,UAD2G,GAC9F,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,+CAAF,GAAsD,2BAAF,GACtE,UAD2E,GAC9D,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACtG,UAD2G,GAC9F,2BAAF,GACX,OADgB,GACN,2BAAF,GAAO,2BAAF,GAEb,UAFkB,GAEL,2BAAF,GACX,MADgB,GACP,uCAAF,GAAmB,WAAF,GAAgB,2BAAF,GACtC,gBAD2C,GACxB,2BAAF,GACjB,mCADsB,GACgB,2BAAF,GACpC,QADyC,GAC9B,uCAAF,GAAmB,WAAF,GAAgB,mBAAF,GAAkB,mBAAF,GAAwB,2CAAF,GAAuB,KAAF,GAAU,2BAAF,GAC3G,cADgH,GAC/F,2BAAF,GACf,iCADoB,GACgB,2BAAF,GAClC,QADuC,GAC5B,uCAAF,GAAmB,WAAF,GAAgB,mBAAF,GAAkB,oBAAF,GAAyB,mBAAF,GAAkB,eAAF,GAAoB,mCAAF,GAAe,2BAAF,GAAgC,mCAAF,GAAe,wDAAF,GAA6D,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACpQ,cADyQ,GACxP,2BAAF,GACf,kCADoB,GACiB,2BAAF,GACnC,QADwC,GAC7B,uCAAF,GAAmB,WAAF,GAAgB,mBAAF,GAAkB,iBAAF,GAAsB,2CAAF,GAAuB,MAAF,GAAW,2BAAF,GAC1G,cAD+G,GAC9F,2BAAF,GACf,oCADoB,GACmB,2BAAF,GACrC,QAD0C,GAC/B,uCAAF,GAAmB,WAAF,GAAgB,mBAAF,GAAkB,uBAAF,GAA4B,2BAAF,GAClF,cADuF,GACtE,2BAAF,GACf,OADoB,GACV,2BAAF,GACR,eADa,GACK,+BAAF,GAAW,uBAAF,GAA4B,mCAAF,GAAe,wBAAF,GAA6B,2BAAF,GAC3F,eADgG,GAC9E,+BAAF,GAAW,uBAAF,GAA4B,mCAAF,GAAe,uBAAF,GAA4B,2BAAF,GAC1F,eAD+F,GAC7E,2BAAF,GAChB,2BADqB,GACS,2BAAF,GAC5B,OADiC,GACvB,2BAAF,GACR,eADa,GACK,2BAAF,GAChB,2BADqB,GACS,2BAAF,GAC5B,OADiC,GACvB,2BAAF,GACR,KADa;AAnIa;AAAyB;AAuJL;AAApB;AAE5B,iBACE,aAUoE,GAVpD,+BAAF,GAAW,uBAAF,GAA4B,mCAAF,GAAe,wBAAF,GAA6B,2BAAF,GACzF,aAD8F,GAC9E,+BAAF,GAAW,uBAAF,GAA4B,mCAAF,GAAe,uBAAF,GAA4B,2BAAF,GACxF,YAD6F,GAC9E,+BAAF,GAAW,mBAAF,GAAwB,mCAAF,GAAe,UAAF,GAAe,2BAAF,GACtE,aAD2E,GAC3D,2BAAF,GACd,MADmB,GACV,+BAAF,GAAW,iBAAF,GAAsB,mCAAF,GAAe,wBAAF,GAA6B,2BAAF,GAC5E,KADiF,GACzE,2BAAF,GACN,aADW,GACK,2BAAF,GACd,MADmB,GACV,+BAAF,GAAW,iBAAF,GAAsB,mCAAF,GAAe,uBAAF,GAA4B,2BAAF,GAC3E,KADgF,GACxE,2BAAF,GACN,YADW,GACI,2BAAF,GACb,MADkB,GACT,+BAAF,GAAW,kBAAF,GAAuB,mCAAF,GAAe,UAAF,GAAe,2BAAF,GAC/D,KADoE;AAb1C;AAAoB;AA6VL;AAAf;AAE5B,iBACA,IAEuB,GAFhB,+BAAF,GAAW,cAAF,GAAmB,2BAAF,GAC/B,eADoC,GAClB,mCAAF,GAAe,8BAAF,GAAmC,mCAAF,GAAe,8BAAF,GAAmC,mCAAF,GAAe,8BAAF,GAAmC,mCAAF,GAAe,8BAAF,GAAmC,2BAAF,GACxM,iBAD6M,GACzL,2BAAF,GAClB,OADuB;AALK;AAAe;AA5UH;AAAZ;AAE5B,iBACE,cAGoD,GAHnC,+BAAF,GAAW,sBAAF,GAA2B,2BAAF,GACjD,8CADsD,GACL,2BAAF,GAC/C,+CADoD,GACF,2BAAF,GAChD,8CADqD,GACJ,2BAAF,GAC/C,+CADoD;AAN1B;AAAY;AA0QU;AAAtB;AAE5B,iBACA,IACsF,GAD/E,+BAAF,GAAW,cAAF,GAAmB,2BAAF,GAC/B,eADoC,GAClB,mCAAF,GAAe,iBAAF,GAAsB,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACjF,OADsF;AAJ1D;AAAsB;AAQP;AAAf;AAE5B,iBACA,IAC+B,GADxB,+BAAF,GAAW,cAAF,GAAmB,2BAAF,GAC/B,YADoC,GACrB,mCAAF,GAAe,2BAAF,GAC1B,OAD+B;AAJH;AAAe;AAhQF;AAAb;AAE5B,iBACE,0BAuD8C,GAvDjB,mCAAF,GAAe,6BAAF,GAAkC,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GAEzG,iBAF8G,GAE1F,2BAAF,GAClB,aADuB,GACP,+BAAF,GAAW,oBAAF,GAAyB,2BAAF,GAC9C,mCADmD,GACb,2BAAF,GACpC,kCADyC,GACJ,2BAAF,GACnC,4BADwC,GACT,2BAAF,GAC7B,2BADkC,GACJ,2BAAF,GAE5B,0CAFiC,GAEY,2BAAF,GAC3C,uDADgD,GACU,2BAAF,GACxD,KAD6D,GACrD,2BAAF,GAEN,sCAFW,GAE8B,2BAAF,GACvC,qDAD4C,GACY,2BAAF,GACtD,KAD2D,GACnD,2BAAF,GAEN,8DAFW,GAEsD,2BAAF,GAE/D,iEAFoE,GAEA,2BAAF,GAClE,oEADuE,GACA,2BAAF,GAErE,sCAF0E,GAEjC,2BAAF,GACvC,2DAD4C,GACkB,2BAAF,GAC5D,oFADiE,GACsB,2BAAF,GAErF,uCAF0F,GAEhD,2BAAF,GAExC,cAF6C,GAE5B,2BAAF,GACf,uCADoB,GACsB,2BAAF,GACxC,sCAD6C,GACJ,2BAAF,GACvC,QAD4C,GACjC,2BAAF,GACT,KADc,GACN,2BAAF,GAEN,4CAFW,GAEoC,+BAAF,GAAW,+BAAF,GAAoC,2BAAF,GAExF,YAF6F,GAE9E,+BAAF,GAAW,2BAAF,GAAgC,2BAAF,GACpD,YADyD,GAC1C,+BAAF,GAAW,4BAAF,GAAiC,2BAAF,GAErD,wBAF0D,GAE/B,2BAAF,GACzB,8BAD8B,GACG,2BAAF,GAC/B,6BADoC,GACJ,2BAAF,GAC9B,MADmC,GAC1B,2BAAF,GAEP,mCAFY,GAE0B,2BAAF,GACpC,4DADyC,GACsB,2BAAF,GAE7D,oCAFkE,GAE3B,2BAAF,GACrC,oCAD0C,GACH,2BAAF,GAErC,qBAF0C,GAElB,2BAAF,GACtB,MAD2B,GAClB,2BAAF,GAEP,+BAFY,GAEsB,2BAAF,GAEhC,wCAFqC,GAEM,2BAAF,GACzC,wCAD8C;AA1DpB;AAAa;AA8DA;AAAb;AAE5B,iBAAU;AAFkB;AAAa;AAtES;AAAtB;AAE5B,iBACE,cACuC,GADtB,+BAAF,GAAW,sBAAF,GAA2B,2BAAF,GACjD,iCADsD,GAClB,2BAAF,GAClC,kCADuC;AAJb;AAAsB;AA2EP;AAAf;AAE5B,iBAAU,YAAsB,GAAP,+BAAF,GAAW,oBAAF;AAFJ;AAAe;AAqNC;AAAhB;AAE5B,iBAAU,MAKkC,GAJ1C,IADe,GACR,wBAAF,GAAuB,0BAAF,GAA+B,2BAAF,GACvD,kCAD4D,GACvB,2BAAF,GACnC,MADwC,GAC/B,+BAAF,GAAW,4BAAF,GAAiC,2BAAF,GAC/C,KADoD,GAC5C,2BAAF,GACN,IADW,GACJ,wBAAF,GAAuB,QAAF,GAAa,2BAAF,GAAO,2BAAF;AAE5C,iBAAU,MACoG,GAA5G,IADe,GACR,+BAAF,GAAW,gDAAF,GAAqD,mCAAF,GAAe,sBAAF,GAA2B,2BAAF,GAAO,2BAAF;AAE9G,iBAAU,MACwF,GAAhG,IADe,GACR,+BAAF,GAAW,2CAAF,GAAgD,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GAAO,2BAAF;AAElG,iBAAU,MACqG,GAA7G,IADe,GACR,+BAAF,GAAW,8CAAF,GAAmD,mCAAF,GAAe,yBAAF,GAA8B,2BAAF,GAAO,2BAAF;AAE/G,iBAAU,MAYkE,GAX1E,QADe,GACJ,mCAAF,GAAe,uBAAF,GAA4B,2BAAF,GAChD,MADqD,GAC5C,+BAAF,GAAW,gBAAF,GAAqB,uBAAF,GAAsB,KAAF,GAAU,2BAAF,GAC/D,iCADoE,GAC9B,2BAAF,GACpC,SADyC,GAC7B,2BAAF,GACV,MADe,GACN,wBAAF,GAAuB,QAAF,GAAa,uBAAF,GAAsB,IAAF,GAAS,2BAAF,GAClE,KADuE,GAC/D,2BAAF,GAAO,2BAAF,GAEX,QAFgB,GAEL,mCAAF,GAAe,0BAAF,GAA+B,2BAAF,GACnD,MADwD,GAC/C,+BAAF,GAAW,gBAAF,GAAqB,0BAAF,GAAyB,KAAF,GAAU,2BAAF,GAClE,iCADuE,GACjC,2BAAF,GACpC,SADyC,GAC7B,2BAAF,GACV,MADe,GACN,wBAAF,GAAuB,QAAF,GAAa,0BAAF,GAAyB,IAAF,GAAS,2BAAF,GACrE,KAD0E;AA9BhD;AAAgB;AAhNE;AAAlB;AAE5B,iBACE,MAqBmB,GArBV,uBAAF,GAAsB,GAAF,GAAQ,2BAAF,GACjC,MADsC,GAC7B,0BAAF,GAAyB,GAAF,GAAQ,2BAAF,GACpC,MADyC,GAChC,wBAAF,GAAuB,QAAF,GAAa,2BAAF,GACvC,iDAD4C,GACU,2BAAF,GACpD,8CADyD,GACJ,2BAAF,GACnD,gBADwD,GACrC,2BAAF,GACjB,gBADsB,GACH,2BAAF,GACjB,uEADsB,GAEtB,qBADwE,GAChD,+BAAF,GAAW,sBAAF,GAA2B,2BAAF,GACxD,gEAD6D,GACU,2BAAF,GACrE,uBAD0E,GAChD,2BAAF,GACxB,0BAD6B,GACA,2BAAF,GAC3B,8EADgC,GACqD,2BAAF,GACnF,OADwF,GAC9E,2BAAF,GACR,uBADa,GACa,2BAAF,GACxB,2BAD6B,GACC,2BAAF,GAC5B,2BADiC,GACH,2BAAF,GAC5B,OADiC,GACvB,2BAAF,GACR,KADa,GACL,2BAAF,GAEN,kFAFW,GAEoF,2BAAF,GAC7F,aADkG,GAClF,2BAAF,GACd,GADmB;AAxBO;AAAkB;AAjUK;AAAvB;AAE5B,iBAAU,IAAmF,GAA5E,2CAAF,GAAuB,SAAF,GAAc,mCAAF,GAAe,gBAAF,GAAqB,mCAAF,GAAe,iBAAF;AAFjE;AAAuB;AAKN;AAAjB;AAE5B,iBAAU;AAFkB;AAAiB;AA6WW;AAA5B;AAE5B,iBAAU;AAFkB;AAA4B;AAKL;AAAvB;AAE5B,iBAAU;AAFkB;AAAuB;AAqMhB;AAAP;AACzB;AADgC;AAEnC,mBAAW,mCAAc,YAAW,KAAG,EAAH;AAFD;AAChC;AADgC;AAAP;AAAO;AAjkBK;AACrC;AADqC;AAExC,2BAAW,YAAY,CAAC,0EAAD;AAFiB;AACrC;AADqC;;AAVH;AAErC;AAFsC;AAAD;AAKA;AAErC;AAFqC;AA3EjB;;;;AAuCpB;AAGmB,gCAAG;AACP,4BAAG;AACL,0BAAG;AACC,8BAAG;AACA,iCAAG;AACL,+BAAG;AAhFT;AAhBd,GAgBc,6JAhBd;ACAA,2CAWS,UAXT;;;;AAckB,0BAAG;AAEN,uBAAG;AACJ,sBAAG;AAEL,oBAAG;AACE,yBAAG;AACA,4BAAG,KAAwB,GAAhB,oBAAF,GAAoB,IAAF;AACnB,oCAAG;AACR,+BAAG;AAsFS;AAEjC,QAAG,CAAI,oDAA2B,UAAQ,0BAAwB,CAAC,wEAAwC,CAAC,UAAD;eAAA,MAAC;AAAD;;QAAzC,CAAlE;AAEE,uCAA2C,eAA5B,kCAA4B,QAAC,kEAAD,EAA3C;AACA,0DAA2B,UAAQ,mBAAmB,CAAC,wEAA8B,iBAA/B;KAHxD;AAFiC;AASE;AAEnC,wDAA2B,UAAQ,sBAAsB,CAAC,uEAAD;AAFtB;AAtHrC,mBA4Bc;AAyBgB;AAFO;;;;;AAEP;AAwEoB;AAAZ;AACjC;AAD6C;AAEhD,uCAA+B,eAArB,2BAAqB,QAAC,uDAAD,EAA/B;AADG;AAD6C;AAC7C;AAD6C;AAAZ;AAAY;AAxEpB;;;;AAQP;;AAisBqB;AAG1C;AACG;AAJuC;AAS1C,cAAG,mCAAc,gBAAe,KAAE,EAAlC;AACE,yBAAc;AAEd,6BAAc,mCAAc;AAM9B,eAAK,MAAI,CAAC,wCAAe,QAAC,cAAU,CAAC,qBAA8B,GAAX,UAAF,GAAe,SAAF,CAAa,WAAY,YAAxD,CAAV,CAAjB;AACT,eAAK,MAAI,CAAC,wCAAe,QAAC,gBAAY,CAAC,qBAA8B,GAAX,UAAF,GAAe,aAAF,CAAiB,kBLngBN,GAAuB,GAAsB,MAAyB,KKmgBhH,CAAZ,CAAjB;AAnBiC;AAIvC;AAJuC;;AA+PC;AAI7C;AACA;AACA;AAN6C;AApEH;AAAX;;AAAW;AAeC;AAAZ;AAE7B,iBACE,eAciC,GAdf,kBAAF,GAAkB,oBAAF,GAAyB,mCAAF,GAAe,iBAAF,GAAsB,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GACzH,2CAD8H,GAC9E,2BAAF,GAC9C,YADmD,GACpC,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACxC,6BAD6C,GACb,2BAAF,GAC9B,6GADmC,GAC6E,2BAAF,GAC9G,IADmH,GAC5G,iCAAF,GAAa,SAAF,GAAc,kBAAF,GAAkB,kCAAF,GAAuC,mCAAF,GAAe,uBAAF,GAA4B,mCAAF,GAAe,eAAF,GAAoB,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GACxL,IAD6L,GACtL,iCAAF,GAAc,qBAAF,GAA0B,2BAAF,GACzC,IAD8C,GACvC,+BAAF,GAAW,cAAF,GAAmB,iCAAF,GAAa,IAAF,GAAS,2BAAF,GACjD,uEADsD,GACsB,2BAAF,GAC1E,yCAD+E,GACnC,2BAAF,GAC1C,cAD+C,GAC9B,iCAAF,GAAa,0BAAF,GAA+B,2BAAF,GACvD,cAD4D,GAC3C,+BAAF,GAAW,iBAAF,GAAsB,iCAAF,GAAa,IAAF,GAAS,2BAAF,GAC9D,cADmE,GAClD,iCAAF,GAAa,UAAF,GAAe,2BAAF,GACvC,4BAD4C,GACb,2BAAF,GAC7B,2BADkC,GACJ,2BAAF,GAC5B,cADiC;AAjBN;AAAY;AAvaC;AAAb;AAE7B,iBAAU,MAGkC,GAHzB,iCAAF,GAAa,IAAF,GAAS,2BAAF,GACzB,IAD8B,GACvB,iCAAF,GAAa,0BAAF,GAA+B,2BAAF,GAC7C,IADkD,GAC3C,+BAAF,GAAW,iBAAF,GAAsB,iCAAF,GAAa,IAAF,GAAS,2BAAF,GACpD,IADyD,GAClD,iCAAF,GAAa,UAAF,GAAe,2BAAF,GAC7B,GADkC;AALf;AAAa;AAmPD;AAAZ;AAE7B,iBAAU,aAuCmB,GAvCH,2BAAF,GACpB,uBADyB,GACC,2BAAF,GACxB,4BAD6B,GACE,2BAAF,GAC7B,0CADkC,GACW,2BAAF,GAC3C,kBADgD,GAC3B,2BAAF,GACnB,wBADwB,GACG,2BAAF,GACzB,8BAD8B,GACG,2BAAF,GAC/B,iBADoC,GAChB,2BAAF,GAClB,gBADuB,GACJ,2BAAF,GACjB,qBADsB,GACE,2BAAF,GACtB,GAD2B,GACrB,2BAAF,GACJ,qCADS,GAC+B,2BAAF,GACtC,cAD2C,GAC1B,2BAAF,GACf,8BADoB,GACa,2BAAF,GAC/B,iBADoC,GAChB,2BAAF,GAClB,cADuB,GACN,2BAAF,GACf,aADoB,GACJ,2BAAF,GACd,uBADmB,GACO,2BAAF,GACxB,yBAD6B,GACD,2BAAF,GAC1B,GAD+B,GACzB,2BAAF,GACJ,mBADS,GACa,2BAAF,GACpB,4BADyB,GACM,2BAAF,GAC7B,uBADkC,GACR,2BAAF,GACxB,eAD6B,GACX,2BAAF,GAChB,uBADqB,GACK,2BAAF,GACxB,GAD6B,GACvB,2BAAF,GACJ,oBADS,GACc,2BAAF,GACrB,8BAD0B,GACO,2BAAF,GAC/B,uBADoC,GACV,2BAAF,GACxB,eAD6B,GACX,2BAAF,GAChB,uBADqB,GACK,2BAAF,GACxB,GAD6B,GACvB,2BAAF,GACJ,oBADS,GACc,2BAAF,GACrB,0BAD0B,GACG,2BAAF,GAC3B,uBADgC,GACN,2BAAF,GACxB,aAD6B,GACb,2BAAF,GACd,eADmB,GACD,2BAAF,GAChB,GADqB,GACf,2BAAF,GACJ,0BADS,GACoB,2BAAF,GAC3B,mBADgC,GACV,2BAAF,GACpB,GADyB;AAzCA;AAAY;AA1OK;AAAjB;AAE7B,iBAAW;AAFkB;AAAiB;AA0YE;AAAnB;AAE7B,iBAAU,GAAI,GAAE,kBAAF;AAFe;AAAmB;AAnHN;AAAb;AAE7B,iBAAU;AAFmB;AAAa;AA2CG;AAAhB;AAC1B;AAD0C;AAE7C,mBACE,YAGmF,GAHpE,2BAAF,GACb,IADkB,GACX,oBAAF,GAAmB,SAAF,GAAc,kBAAF,GAAkB,iCAAF,GAAsC,2BAAF,GACtF,IAD2F,GACpF,gBAAF,GAAe,SAAF,GAAc,kBAAF,GAAkB,yBAAF,GAA8B,2BAAF,GAC1E,IAD+E,GACxE,kBAAF,GAAiB,SAAF,GAAc,kBAAF,GAAkB,gCAAF,GAAqC,2BAAF;AAKrF,mBAAU,MAAmN,GAA1M,UAAF,GAAe,kBAAF,GAAkB,0GAAF,GAA+G,oBAAF,GAAmB,IAAF,GAAS,gBAAF,GAAe,IAAF,GAAS,kBAAF,GAAiB,IAAF,GAAS,2BAAF;AAE7N,mBAAU,MAcK,GAbb,IADe,GACR,+BAAF,GAAW,SAAF,GAAc,kBAAF,GAAkB,QAAF,GAAa,2BAAF,GACrD,wBAD0D,GAC/B,2BAAF,GACzB,eAD8B,GACZ,8BAAF,GAAS,IAAD,GAAQ,2BAAF,GAC9B,eADmC,GACjB,2BAAF,GAChB,YADqB,GACN,kBAAF,GAAkB,eAAF,GAAoB,2BAAF,GAC/C,sBADoD,GAC3B,kBAAF,GAAkB,iBAAF,GAAiB,2BAAF,GACtD,UAD2D,GAC9C,2BAAF,GACX,QADgB,GACL,2BAAF,GACT,gBADc,GACK,kBAAF,GAAkB,SAAF,GAAc,2BAAF,GAC7C,gBADkD,GAC/B,kBAAF,GAAkB,oBAAF,GAAyB,mCAAc,sBAAhB,GAAuC,IAAF,GAAS,mCAAc,qBAAhB,GAAsC,KAAF,GAAU,2BAAF,GAChJ,cADqJ,GACpI,mCAAc,sBAAhB,GAAwC,2BAAF,GACrD,SAD0D,GAC9C,2BAAF,GACV,iBADe,GACK,2BAAF,GAClB,OADuB,GACb,2BAAF,GAAO,2BAAF;AAEb,mBAAU,MAAmF,GAA1E,IAAF,GAAS,uBAAF,GAAsB,SAAF,GAAc,kBAAF,GAAkB,kBAAF,GAAuB,2BAAF;AAE7F,cAAG,mCAAc,qBAAjB;AAEE,qBAAU,MAE2D,GADrE,IADiB,GACV,+BAAF,GAAW,cAAF,GAAmB,uBAAF,GAAsB,IAAF,GAAS,2BAAF,GAC1D,IAD+D,GACxD,wBAAF,GAAuB,QAAF,GAAa,uBAAF,GAAsB,IAAF,GAAS,2BAAF,GAAO,2BAAF;WAJvE;AAOA,cAAG,CAAI,mCAAc,oBAArB;AAEE,qBAAU,MACwC,GAAlD,IADiB,GACV,oBAAF,GAAmB,oBAAF,GAAyB,2BAAF,GAAO,2BAAF;;AAIlD,qBAAU,MACuC,GAAjD,IADiB,GACV,oBAAF,GAAmB,mBAAF,GAAwB,2BAAF,GAAO,2BAAF;;AAGnD,cAAG,CAAI,mCAAc,uBAArB;AAEE,qBAAU,MACsC,GAAhD,IADiB,GACV,kBAAF,GAAiB,oBAAF,GAAyB,2BAAF,GAAO,2BAAF;;AAIhD,qBAAU,MACqC,GAA/C,IADiB,GACV,kBAAF,GAAiB,mBAAF,GAAwB,2BAAF,GAAO,2BAAF;;AAGjD,cAAG,CAAI,mCAAc,aAArB;AAEE,qBAAU,MACoC,GAA9C,IADiB,GACV,gBAAF,GAAe,oBAAF,GAAyB,2BAAF,GAAO,2BAAF;;AAI9C,qBAAU,MACmC,GAA7C,IADiB,GACV,gBAAF,GAAe,mBAAF,GAAwB,2BAAF,GAAO,2BAAF;;AApEJ;AAC1C;AAD0C;AAAhB;AAAgB;AA5BG;AAAnB;AAE7B,iBACA,IAsBc,GAtBP,+BAAF,GAAW,yDAAF,GAAgE,2BAAF,GAC5E,IADiF,GAC1E,+BAAF,GAAW,wCAAF,GAA+C,2BAAF,GAC3D,yCADgE,GACpB,2BAAF,GAC1C,MAD+C,GACtC,2BAAF,GAAO,2BAAF,GAIZ,IAJiB,GAIV,+BAAF,GAAW,iCAAF,GAAwC,2BAAF,GACpD,IADyD,GAClD,+BAAF,GAAW,iCAAF,GAAwC,2BAAF,GACpD,IADyD,GAClD,+BAAF,GAAW,6BAAF,GAAoC,2BAAF,GAChD,IADqD,GAC9C,+BAAF,GAAW,6BAAF,GAAoC,2BAAF,GAChD,IADqD,GAC9C,+BAAF,GAAW,yBAAF,GAAgC,2BAAF,GAC5C,IADiD,GAC1C,+BAAF,GAAW,yBAAF,GAAgC,2BAAF,GAC5C,IADiD,GAC1C,+BAAF,GAAW,oCAAF,GAA2C,2BAAF,GACvD,IAD4D,GACrD,+BAAF,GAAW,oCAAF,GAA2C,2BAAF,GACvD,IAD4D,GACrD,+BAAF,GAAW,+BAAF,GAAsC,2BAAF,GAClD,IADuD,GAChD,+BAAF,GAAW,+BAAF,GAAsC,2BAAF,GAClD,IADuD,GAChD,+BAAF,GAAW,+BAAF,GAAsC,2BAAF,GAClD,IADuD,GAChD,+BAAF,GAAW,+BAAF,GAAsC,2BAAF,GAClD,IADuD,GAChD,+BAAF,GAAW,mCAAF,GAA0C,2BAAF,GACtD,IAD2D,GACpD,+BAAF,GAAW,mCAAF,GAA0C,2BAAF,GACtD,IAD2D,GACpD,+BAAF,GAAW,mCAAF,GAA0C,2BAAF,GACtD,IAD2D,GACpD,+BAAF,GAAW,mCAAF;AAzBe;AAAmB;AAhrBC;AAApB;AAE7B,iBACE,eA6K+E,GA7K7D,kBAAF,GAAkB,oBAAF,GAAyB,mCAAF,GAAe,iBAAF,GAAsB,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GACzH,kBAD8H,GACzG,kBAAF,GAAkB,oBAAF,GAAyB,2BAAF,GAE1D,qBAF+D,GAEvC,gDAAF,GAA4B,GAAF,GAC9C,mCADoD,GACvC,kBAAF,GAAuB,2BAAF,GAChC,mCADqC,GACxB,eAAF,GAAoB,2BAAF,GAC/B,kBADoC,GACf,2BAAF,GAEnB,0BAFwB,GAEK,2BAAF,GAC3B,sBADgC,GACP,kBAAF,GAAkB,gBAAF,GAAqB,2BAAF,GAC1D,mBAD+D,GACzC,kBAAF,GAAkB,gBAAF,GAAqB,2BAAF,GACvD,6BAD4D,GAC5B,2BAAF,GAC9B,2BADmC,GACL,2BAAF,GAC5B,WADiC,GACnB,2BAAF,GAEZ,SAFiB,GAEL,2BAAF,GAAO,2BAAF,GACf,KADoB,GACZ,2BAAF,GAAO,2BAAF,GAEX,SAFgB,GAEJ,kCAAF,GAAc,IAAF,GAAS,2BAAF,GAC7B,kBADkC,GACb,kBAAF,GAAkB,YAAF,GAAiB,2BAAF,GAClD,sBADuD,GAC9B,2BAAF,GACvB,QAD4B,GACjB,2BAAF,GAAO,2BAAF,GAEd,cAFmB,GAEF,mCAAF,GAAe,qBAAF,GAA0B,2BAAF,GAEpD,iCAFyD,GAErB,2BAAF,GAClC,sBADuC,GACd,+BAAF,GAAW,qCAAF,GAA0C,2BAAF,GACxE,sBAD6E,GACpD,2BAAF,GACvB,oBAD4B,GACL,2BAAF,GACrB,YAD0B,GACX,2BAAF,GACb,sCADkB,GACuB,2BAAF,GACvC,iCAD4C,GACR,2BAAF,GAClC,iCADuC,GACH,kCAAF,GAAc,GAAF,GAAQ,2BAAF,GAEpD,cAFyD,GAExC,oBAAF,GAAoB,KAAF,GAAU,2BAAF,GACzC,0BAD8C,GACjB,oBAAF,GAAoB,KAAF,GAAU,2BAAF,GACrD,gBAD0D,GACvC,oBAAF,GAAoB,yBAAF,GAA8B,2BAAF,GAC/D,4BADoE,GACrC,oBAAF,GAAoB,QAAF,GAAa,2BAAF,GAC1D,kCAD+D,GAC1B,2BAAF,GACnC,aADwC,GACxB,2BAAF,GACd,WADmB,GACL,2BAAF,GACZ,WADiB,GACH,2BAAF,GAEZ,4BAFiB,GAEc,2BAAF,GAC7B,YADkC,GACnB,2BAAF,GAEb,sBAFkB,GAGlB,qDADuB,GACiC,2BAAF,GACtD,gCAD2D,GACxB,2BAAF,GACjC,6CADsC,GACU,2BAAF,GAC9C,2CADmD,GACL,2BAAF,GAC5C,2CADiD,GACH,2BAAF,GAC5C,aADiD,GACjC,2BAAF,GACd,WADmB,GACL,2BAAF,GACZ,SADiB,GAGjB,uBAFU,GAEgB,2BAAF,GACxB,OAD6B,GACnB,2BAAF,GAAO,2BAAF,GAEb,6BAFkB,GAEc,2BAAF,GAAO,2BAAF,GAEnC,wCAFwC,GAEG,2BAAF,GACzC,mCAD8C,GACR,2BAAF,GACpC,wCADyC,GACE,2BAAF,GACzC,2BAD8C,GAChB,2BAAF,GAC5B,cADiC,GAChB,mCAAF,GAAe,mCAAF,GAAwC,2BAAF,GAClE,mDADuE,GACf,2BAAF,GACtD,oBAD2D,GACpC,mCAAF,GAAe,YAAF,GAAiB,2BAAF,GACjD,qCADsD,GACd,2BAAF,GACtC,sHAD2C,GAC8E,2BAAF,GACvH,8BAD4H,GAC3F,kBAAF,GAAkB,4CAAF,GAAiD,2BAAF,GAC9F,iFADmG,GACf,2BAAF,GAClF,YADuF,GACxE,+BAAF,GAAW,2BAAF,GAAgC,2BAAF,GACpD,wEADyD,GACoB,2BAAF,GAC3E,yCADgF,GACpC,2BAAF,GAC1C,iDAD+C,GACK,2BAAF,GAClD,iCADuD,GACnB,2BAAF,GAClC,4BADuC,GACR,2BAAF,GAC7B,2BADkC,GACJ,2BAAF,GAC5B,cADiC,GAChB,2BAAF,GACf,WADoB,GACN,2BAAF,GACZ,UADiB,GACJ,qCAAF,GAAiB,oCAAF,GAAyC,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC5F,SADiG,GACrF,2BAAF,GACV,OADe,GACL,2BAAF,GAAO,2BAAF,GACb,MADkB,GACT,+BAAF,GAAW,4BAAF,GAAmC,2BAAF,GACjD,6CADsD,GACN,2BAAF,GAC9C,mCADmD,GACb,2BAAF,GACpC,wCADyC,GACE,2BAAF,GACzC,2BAD8C,GAChB,2BAAF,GAC5B,UADiC,GACpB,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACjG,SADsG,GAC1F,2BAAF,GACV,OADe,GACL,2BAAF,GAAO,2BAAF,GACb,MADkB,GACT,+BAAF,GAAW,uCAAF,GAA8C,2BAAF,GAC5D,2CADiE,GACnB,2BAAF,GAC5C,mCADiD,GACX,2BAAF,GACpC,wCADyC,GACE,2BAAF,GACzC,2BAD8C,GAChB,2BAAF,GAC5B,UADiC,GACpB,qCAAF,GAAiB,uCAAF,GAA4C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC/F,SADoG,GACxF,2BAAF,GACV,OADe,GACL,2BAAF,GAAO,2BAAF,GACb,MADkB,GACT,+BAAF,GAAW,kCAAF,GAAyC,2BAAF,GACvD,0CAD4D,GACf,2BAAF,GAC3C,mCADgD,GACV,2BAAF,GACpC,wCADyC,GACE,2BAAF,GACzC,2BAD8C,GAChB,2BAAF,GAC5B,UADiC,GACpB,qCAAF,GAAiB,sCAAF,GAA2C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC9F,SADmG,GACvF,2BAAF,GACV,OADe,GACL,2BAAF,GAAO,2BAAF,GACb,MADkB,GACT,+BAAF,GAAW,kCAAF,GAAyC,2BAAF,GACvD,4CAD4D,GACb,2BAAF,GAC7C,mCADkD,GACZ,2BAAF,GACpC,wCADyC,GACE,2BAAF,GACzC,2BAD8C,GAChB,2BAAF,GAC5B,UADiC,GACpB,qCAAF,GAAiB,wCAAF,GAA6C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAChG,SADqG,GACzF,2BAAF,GACV,OADe,GACL,2BAAF,GAAO,2BAAF,GACb,MADkB,GACT,+BAAF,GAAW,sCAAF,GAA6C,2BAAF,GAC3D,4CADgE,GACjB,2BAAF,GAC7C,mCADkD,GACZ,2BAAF,GACpC,mDADyC,GACa,2BAAF,GACpD,4BADyD,GAC1B,2BAAF,GAC7B,UADkC,GACrB,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACjG,SADsG,GAC1F,2BAAF,GACV,2DADe,GAC+C,2BAAF,GAC5D,8BADiE,GAChC,2BAAF,GAC/B,UADoC,GACvB,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACjG,SADsG,GAC1F,2BAAF,GACV,OADe,GACL,2BAAF,GAAO,2BAAF,GACb,MADkB,GACT,+BAAF,GAAW,sCAAF,GAA6C,2BAAF,GAE3D,4BAFgE,GAEjC,2BAAF,GAE7B,6BAFkC,GAEF,kBAAF,GAAkB,kBAAF,GAAuB,2BAAF,GACnE,qBADwE,GAChD,2BAAF,GACtB,SAD2B,GACf,2BAAF,GAAO,2BAAF,GAEf,MAFoB,GAEX,kCAAF,GAAc,SAAF,GAAc,kBAAF,GAAkB,iBAAF,GAAsB,2BAAF,GACnE,8BADwE,GACvC,2BAAF,GAC/B,iBADoC,GAChB,mCAAF,GAAe,cAAF,GAAmB,2BAAF,GAChD,mBADqD,GAC/B,2BAAF,GACpB,SADyB,GACb,2BAAF,GAAO,2BAAF,GAEf,UAFoB,GAEP,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAC7C,sBADkD,GACzB,kBAAF,GAAkB,0BAAF,GAA+B,2BAAF,GACpE,yBADyE,GAC7C,kBAAF,GAAkB,mBAAF,GAAwB,2BAAF,GAChE,UADqE,GACxD,2BAAF,GAEX,qCAFgB,GAE0B,2BAAF,GACxC,2BAD6C,GACf,2BAAF,GAC5B,+CADiC,GACiB,2BAAF,GAChD,+BADqD,GACnB,2BAAF,GAChC,WADqC,GACvB,2BAAF,GACZ,UADiB,GACJ,2BAAF,GAEX,mCAFgB,GAEwB,2BAAF,GACtC,UAD2C,GAC9B,qCAAF,GAAiB,kCAAF,GAAuC,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC1F,UAD+F,GAClF,2BAAF,GAEX,MAFgB,GAEP,+BAAF,GAAW,qBAAF,GAA0B,2BAAF,GACxC,OAD6C,GACnC,2BAAF,GAAO,2BAAF,GAEb,MAFkB,GAET,kCAAF,GAAc,6BAAF,GAAkC,2BAAF,GACnD,MADwD,GAC/C,kCAAF,GAAc,mCAAF,GAAwC,2BAAF,GACzD,MAD8D,GACrD,kCAAF,GAAc,iCAAF,GAAsC,2BAAF,GACvD,MAD4D,GACnD,kCAAF,GAAc,qCAAF,GAA0C,2BAAF,GAC3D,MADgE,GACvD,kCAAF,GAAc,qCAAF,GAA0C,2BAAF,GAE3D,MAFgE,GAEvD,+BAAF,GAAW,YAAF,GAAiB,kCAAF,GAAc,IAAF,GAAS,2BAAF,GAElD,MAFuD,GAE9C,0BAAF,GAAwB,2BAAF,GAC7B,UADkC,GACrB,2BAAF,GACX,MADgB,GACP,kCAAF,GAAc,cAAF,GAAmB,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GACnE,MADwE,GAC/D,kCAAF,GAAc,iDAAF,GAAsD,2BAAF,GACvE,MAD4E,GACnE,kCAAF,GAAc,oDAAF,GAAyD,2BAAF,GAC1E,KAD+E;AAhLpD;AAAoB;AA+YL;AAAf;AAE7B,iBAAU,MAA0B,GAAjB,kCAAF,GAAc,IAAF,GAAS,2BAAF;AACpC,iBAAU,MAAgD,GAAvC,IAAF,GAAS,kCAAF,GAAc,mBAAF,GAAwB,2BAAF;AAC1D,iBAAU,MAA0E,GAAjE,IAAF,GAAS,+BAAF,GAAW,eAAF,GAAsB,kCAAF,GAAc,gBAAF,GAAqB,2BAAF;AAEpF,iBAAU,MAAgF,GAAvE,IAAF,GAAS,+BAAF,GAAW,kBAAF,GAAyB,kCAAF,GAAc,mBAAF,GAAwB,2BAAF;AAC1F,iBAAU,MAAgF,GAAvE,IAAF,GAAS,+BAAF,GAAW,mBAAF,GAA0B,kCAAF,GAAc,kBAAF,GAAuB,2BAAF;AAC1F,iBAAU,MAAoF,GAA3E,IAAF,GAAS,+BAAF,GAAW,qBAAF,GAA4B,kCAAF,GAAc,oBAAF,GAAyB,2BAAF;AAC9F,iBAAU,MAA6D,GAApD,IAAF,GAAS,+BAAF,GAAW,qBAAF,GAA4B,kCAAF,GAAc,oBAAF;AACtE,iBAAU,MAA4D,GAAnD,IAAF,GAAS,+BAAF,GAAW,eAAF,GAAoB,kCAAF,GAAc,IAAF,GAAS,2BAAF;AACvE,iBAAU,MAAO,GAAE,GAAF;AAXY;AAAe;AA3NU;AAAzB;AAE7B,iBACE,YAsMyD,GAtM1C,mCAAF,GAAe,YAAF,GAAiB,2BAAF,GACzC,oBAD8C,GACvB,2BAAF,GACrB,0BAD0B,GACG,2BAAF,GAC3B,UADgC,GACnB,2BAAF,GACX,gBADgB,GACG,2BAAF,GACjB,aADsB,GAGtB,cAFc,GAEG,2BAAF,GACf,kCADoB,GACiB,2BAAF,GACnC,4CADwC,GACO,2BAAF,GAC7C,iBADkD,GAC9B,mCAAF,GAAe,wCAAF,GAA6C,mCAAF,GAAe,wCAAF,GAA6C,2BAAF,GAClI,iBADuI,GACnH,mCAAF,GAAe,wCAAF,GAA6C,mCAAF,GAAe,wCAAF,GAA6C,2BAAF,GAClI,iBADuI,GACnH,mCAAF,GAAe,wCAAF,GAA6C,mCAAF,GAAe,wCAAF,GAA6C,2BAAF,GAClI,iBADuI,GACnH,mCAAF,GAAe,wCAAF,GAA6C,mCAAF,GAAe,wCAAF,GAA6C,2BAAF,GAClI,iBADuI,GACnH,mCAAF,GAAe,wCAAF,GAA6C,mCAAF,GAAe,wCAAF,GAA6C,2BAAF,GAClI,YADuI,GACxH,2BAAF,GACb,+BADkB,GACgB,2BAAF,GAChC,qCADqC,GACG,2BAAF,GACtC,0BAD2C,GACd,mCAAF,GAAe,cAAF,GAAmB,mCAAF,GAAe,oBAAF,GAAyB,2BAAF,GAC7F,YADkG,GACnF,2BAAF,GACb,cADkB,GACD,2BAAF,GACf,aADoB,GACJ,2CAAF,GAAuB,GAAF,GAAQ,2BAAF,GACzC,YAD8C,GAC/B,2BAAF,GACb,KADkB,GACV,2BAAF,GAAO,2BAAF,GAEX,cAFgB,GAEC,2BAAF,GACf,iCADoB,GACgB,2BAAF,GAClC,uCADuC,GACG,2BAAF,GACxC,cAD6C,GAC5B,kBAAF,GAAkB,sBAAF,GAA2B,2BAAF,GACxD,YAD6D,GAC9C,2BAAF,GACb,+BADkB,GACgB,2BAAF,GAChC,qCADqC,GACG,2BAAF,GACtC,kCAD2C,GACN,2BAAF,GACnC,wCADwC,GACG,2BAAF,GACzC,gCAD8C,GACX,2BAAF,GACjC,sCADsC,GACG,2BAAF,GACvC,cAD4C,GAC3B,kBAAF,GAAkB,qBAAF,GAA0B,2BAAF,GACvD,sBAD4D,GACnC,qCAAF,GAAiB,IAAF,GAAS,2BAAF,GAC7C,8BADkD,GACjB,kBAAF,GAAkB,mBAAF,GAAwB,qCAAF,GAAiB,SAAF,GAAc,2BAAF,GAChG,wCADqG,GAC1D,2BAAF,GACzC,OAD8C,GACpC,2BAAF,GACR,YADa,GACE,2BAAF,GACb,KADkB,GACV,2BAAF,GAAO,2BAAF,GAEX,SAFgB,GAEJ,mCAAF,GAAe,8BAAF,GAAmC,2BAAF,GAExD,mBAF6D,GAEvC,kBAAF,GAAkB,6BAAF,GAAkC,mCAAF,GAAe,qCAAF,GAA0C,2BAAF,GACzH,UAD8H,GACjH,mCAAF,GAAe,2CAAF,GACxB,sBADsE,GAC7C,2BAAF,GAEvB,qBAF4B,GAEJ,kBAAF,GAAkB,+BAAF,GAAoC,mCAAF,GAAe,iCAAF,GAAsC,2BAAF,GACzH,UAD8H,GACjH,mCAAF,GAAe,uCAAF,GACxB,wBADkE,GACvC,2BAAF,GAEzB,mBAF8B,GAET,2BAAF,GACnB,UADwB,GACX,kBAAF,GAAkB,gBAAF,GAAqB,2BAAF,GAC9C,kBADmD,GAC9B,kBAAF,GAAkB,6BAAF,GAAkC,mCAAF,GAAe,+BAAF,GAAoC,2BAAF,GAClH,+BADuH,GACrF,2BAAF,GAChC,mCADqC,GACC,2BAAF,GACpC,kBADyC,GACpB,mCAAF,GAAe,4BAAF,GAAiC,mCAAF,GAAe,wBAAF,GAA6B,mCAAF,GAAe,wBAAF,GAA6B,mCAAF,GAAe,yBAAF,GAA8B,2BAAF,GACxL,4BAD6L,GAC9J,2BAAF,GAC7B,wBADkC,GACP,2BAAF,GACzB,iBAD8B,GACV,mCAAF,GAAe,wBAAF,GAA6B,2BAAF,GAC1D,iBAD+D,GAC3C,mCAAF,GAAe,wBAAF,GAA6B,2BAAF,GAC1D,cAD+D,GAC9C,mCAAF,GAAe,2CAAF,GAC5B,cAD0E,GACzD,mCAAF,GAAe,mBAAF,GAAwB,2BAAF,GAClD,SADuD,GAC3C,2BAAF,GACV,KADe,GACP,2BAAF,GAEN,cAFW,GAEM,2BAAF,GACf,iCADoB,GACgB,2BAAF,GAClC,uCADuC,GACG,2BAAF,GACxC,wBAD6C,GAClB,kBAAF,GAAkB,gBAAF,GAAqB,2BAAF,GAC5D,0BADiE,GACrC,2BAAF,GAC1B,oBAD+B,GACR,kBAAF,GAAkB,iBAAF,GAAsB,2BAAF,GACzD,wBAD8D,GACnC,mCAAF,GAAe,mBAAF,GAAwB,mCAAF,GAAe,qBAAF,GAA0B,2BAAF,GACjG,iBADsG,GAClF,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GACnD,WADwD,GAC1C,2BAAF,GACZ,SADiB,GACL,2BAAF,GACV,YADe,GACA,2BAAF,GACb,+BADkB,GACgB,2BAAF,GAChC,qCADqC,GACG,2BAAF,GACtC,kCAD2C,GACN,2BAAF,GACnC,wCADwC,GACG,2BAAF,GACzC,gCAD8C,GACX,2BAAF,GACjC,sCADsC,GACG,2BAAF,GACvC,wBAD4C,GACjB,kBAAF,GAAkB,gBAAF,GAAqB,2BAAF,GAC5D,0BADiE,GACrC,2BAAF,GAC1B,oBAD+B,GACR,kBAAF,GAAkB,iBAAF,GAAsB,2BAAF,GACzD,wBAD8D,GACnC,mCAAF,GAAe,mBAAF,GAAwB,mCAAF,GAAe,qBAAF,GAA0B,2BAAF,GACjG,iBADsG,GAClF,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GACnD,WADwD,GAC1C,2BAAF,GACZ,kBADiB,GACI,kBAAF,GAAkB,eAAF,GAAoB,2BAAF,GACrD,wBAD0D,GAC/B,mCAAF,GAAe,iBAAF,GAAsB,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAC5F,UADiG,GACpF,2BAAF,GACX,SADgB,GACJ,2BAAF,GACV,YADe,GACA,2BAAF,GACb,KADkB,GACV,2BAAF,GAAO,2BAAF,GAEX,YAFgB,GAED,2BAAF,GACb,+BADkB,GACkB,+BAAF,GAAW,8BAAF,GAAmC,2BAAF,GAC5E,KADiF,GACzE,2BAAF,GAAO,2BAAF,GAEX,SAFgB,GAEJ,uCAAF,GAAmB,IAAF,GAAS,2BAAF,GAClC,kBADuC,GAClB,kBAAF,GAAkB,YAAF,GAAiB,2BAAF,GAClD,mBADuD,GACjC,2BAAF,GACpB,QADyB,GACd,2BAAF,GAAO,2BAAF,GAEd,iCAFmB,GAEiB,2BAAF,GAClC,sBADuC,GACd,+BAAF,GAAW,qCAAF,GAA0C,2BAAF,GACxE,sBAD6E,GACpD,2BAAF,GACvB,oBAD4B,GACL,2BAAF,GACrB,YAD0B,GACX,2BAAF,GACb,sCADkB,GACuB,2BAAF,GACvC,2BAD4C,GACd,uCAAF,GAAmB,GAAF,GAAQ,2BAAF,GACnD,YADwD,GACzC,2BAAF,GACb,uBADkB,GACQ,2BAAF,GACxB,OAD6B,GACnB,2BAAF,GAAO,2BAAF,GAEb,6CAFkB,GAE8B,2BAAF,GAC9C,mCADmD,GACb,2BAAF,GACpC,6CADyC,GACO,2BAAF,GAC9C,gCADmD,GAChB,2BAAF,GACjC,UADsC,GACzB,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACjG,SADsG,GAC1F,2BAAF,GACV,OADe,GACL,2BAAF,GAAO,2BAAF,GACb,MADkB,GACT,+BAAF,GAAW,iCAAF,GAAwC,2BAAF,GACtD,gDAD2D,GACR,2BAAF,GACjD,mCADsD,GAChB,2BAAF,GACpC,6CADyC,GACO,2BAAF,GAC9C,gCADmD,GAChB,2BAAF,GACjC,UADsC,GACzB,qCAAF,GAAiB,4CAAF,GAAiD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACpG,SADyG,GAC7F,2BAAF,GACV,OADe,GACL,2BAAF,GAAO,2BAAF,GACb,MADkB,GACT,+BAAF,GAAW,uCAAF,GAA8C,2BAAF,GAC5D,+CADiE,GACf,2BAAF,GAChD,mCADqD,GACf,2BAAF,GACpC,6CADyC,GACO,2BAAF,GAC9C,gCADmD,GAChB,2BAAF,GACjC,UADsC,GACzB,qCAAF,GAAiB,2CAAF,GAAgD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACnG,SADwG,GAC5F,2BAAF,GACV,OADe,GACL,2BAAF,GAAO,2BAAF,GACb,MADkB,GACT,+BAAF,GAAW,uCAAF,GAA8C,2BAAF,GAC5D,iDADiE,GACb,2BAAF,GAClD,mCADuD,GACjB,2BAAF,GACpC,6CADyC,GACO,2BAAF,GAC9C,gCADmD,GAChB,2BAAF,GACjC,UADsC,GACzB,qCAAF,GAAiB,6CAAF,GAAkD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACrG,SAD0G,GAC9F,2BAAF,GACV,OADe,GACL,2BAAF,GAAO,2BAAF,GACb,MADkB,GACT,+BAAF,GAAW,2CAAF,GAAkD,2BAAF,GAChE,iDADqE,GACjB,2BAAF,GAClD,mCADuD,GACjB,2BAAF,GACpC,mDADyC,GACa,2BAAF,GACpD,4BADyD,GAC1B,2BAAF,GAC7B,UADkC,GACrB,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACtG,SAD2G,GAC/F,2BAAF,GACV,2DADe,GAC+C,2BAAF,GAC5D,8BADiE,GAChC,2BAAF,GAC/B,UADoC,GACvB,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACtG,SAD2G,GAC/F,2BAAF,GACV,OADe,GACL,2BAAF,GAAO,2BAAF,GACb,MADkB,GACT,+BAAF,GAAW,2CAAF,GAAkD,2BAAF,GAEhE,2BAFqE,GAEvC,kBAAF,GAAkB,kBAAF,GAAuB,2BAAF,GACjE,mBADsE,GAChD,2BAAF,GACpB,OADyB,GACf,2BAAF,GAAO,2BAAF,GAEb,IAFkB,GAEX,uCAAF,GAAmB,SAAF,GAAc,kBAAF,GAAkB,iBAAF,GAAsB,2BAAF,GACtE,2BAD2E,GAC7C,2BAAF,GAC5B,yBADiC,GACL,2BAAF,GAC1B,eAD+B,GACb,mCAAF,GAAe,aAAF,GAAkB,2BAAF,GAC7C,OADkD,GACxC,2BAAF,GAAO,2BAAF,GAEb,UAFkB,GAEL,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAC7C,sBADkD,GACzB,kBAAF,GAAkB,0BAAF,GAA+B,2BAAF,GACpE,yBADyE,GAC7C,kBAAF,GAAkB,mBAAF,GAAwB,2BAAF,GAChE,UADqE,GACxD,2BAAF,GAEX,mCAFgB,GAEwB,2BAAF,GACtC,UAD2C,GAC9B,qCAAF,GAAiB,uCAAF,GAA4C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC/F,UADoG,GACvF,2BAAF,GAEX,MAFgB,GAEP,+BAAF,GAAW,qBAAF,GAA0B,2BAAF,GACxC,OAD6C,GACnC,2BAAF,GAAO,2BAAF,GAEb,IAFkB,GAEX,uCAAF,GAAmB,uCAAF,GAA4C,2BAAF,GAChE,IADqE,GAC9D,uCAAF,GAAmB,6CAAF,GAAkD,2BAAF,GACtE,IAD2E,GACpE,uCAAF,GAAmB,2CAAF,GAAgD,2BAAF,GACpE,IADyE,GAClE,uCAAF,GAAmB,+CAAF,GAAoD,2BAAF,GACxE,IAD6E,GACtE,uCAAF,GAAmB,+CAAF,GAAoD,2BAAF,GAExE,IAF6E,GAEtE,+BAAF,GAAW,YAAF,GAAiB,uCAAF,GAAmB,IAAF,GAAS,2BAAF,GAErD,MAF0D,GAEjD,0BAAF,GAAwB,2BAAF,GAC7B,UADkC,GACrB,2BAAF,GACX,MADgB,GACP,uCAAF,GAAmB,cAAF,GAAmB,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GACxE,MAD6E,GACpE,uCAAF,GAAmB,+CAAF,GAAoD,2BAAF,GAC1E,MAD+E,GACtE,uCAAF,GAAmB,yBAAF,GAA8B,2BAAF,GACpD,KADyD;AAzM9B;AAAyB;AAyOL;AAApB;AAE7B,iBAAU,MAA+B,GAAtB,uCAAF,GAAmB,IAAF,GAAS,2BAAF;AACzC,iBAAU,MAAqD,GAA5C,IAAF,GAAS,uCAAF,GAAmB,mBAAF,GAAwB,2BAAF;AAC/D,iBAAU,MAAoF,GAA3E,IAAF,GAAS,+BAAF,GAAW,eAAF,GAAsB,uCAAF,GAAmB,qBAAF,GAA0B,2BAAF;AAE9F,iBAAU,MAA0F,GAAjF,IAAF,GAAS,+BAAF,GAAW,kBAAF,GAAyB,uCAAF,GAAmB,wBAAF,GAA6B,2BAAF;AACpG,iBAAU,MAA0F,GAAjF,IAAF,GAAS,+BAAF,GAAW,mBAAF,GAA0B,uCAAF,GAAmB,uBAAF,GAA4B,2BAAF;AACpG,iBAAU,MAA8F,GAArF,IAAF,GAAS,+BAAF,GAAW,qBAAF,GAA4B,uCAAF,GAAmB,yBAAF,GAA8B,2BAAF;AACxG,iBAAU,MAAkE,GAAzD,IAAF,GAAS,+BAAF,GAAW,qBAAF,GAA4B,uCAAF,GAAmB,yBAAF;AAC5E,iBAAU,MAAiE,GAAxD,IAAF,GAAS,+BAAF,GAAW,eAAF,GAAoB,uCAAF,GAAmB,IAAF,GAAS,2BAAF;AAC3E,iBAAU,MAAO,GAAE,GAAF;AAXY;AAAoB;AAobL;AAAf;AAE7B,iBAAU,IAEsD,GAF/C,+BAAF,GAAW,iBAAF,GAAsB,kBAAF,GAAkB,yBAAF,GAA8B,mCAAF,GAAe,6BAAF,GACnG,mCADmI,GACtH,4BAAF,GAAiC,mCAAF,GAAe,6BAAF,GAAkC,mCAAF,GAAe,6CAAF,GAChG,+BAAF,GAAW,uCAAF,GAA4C,+BAAF,GAAW,eAAF;AAJnC;AAAe;AAtaH;AAAZ;AAE7B,iBACE,cAIkD,GAJjC,+BAAF,GAAW,+BAAF,GAAoC,2BAAF,GAC1D,YAD+D,GAChD,kBAAF,GAAkB,6BAAF,GAAkC,+BAAF,GAAW,2CAAF,GAAkD,2BAAF,GACtH,4CAD2H,GAC5E,2BAAF,GAC7C,6CADkD,GACF,2BAAF,GAC9C,4CADmD,GACJ,2BAAF,GAC7C,6CADkD;AAPvB;AAAY;AAWU;AAAtB;AAE7B,iBACE,cAEqC,GAFpB,+BAAF,GAAW,yBAAF,GAA8B,2BAAF,GACpD,YADyD,GAC1C,kBAAF,GAAkB,uBAAF,GAA4B,+BAAF,GAAW,2CAAF,GAAkD,2BAAF,GAChH,+BADqH,GACnF,2BAAF,GAChC,gCADqC;AALV;AAAsB;AAuBP;AAAf;AAE7B,iBAAU,YAAsB,GAAP,+BAAF,GAAW,uBAAF;AAFH;AAAe;AAdF;AAAb;AAE7B,iBACE,qBAE8C,GAFtB,kBAAF,GAAkB,+BAAF,GAAoC,mCAAF,GAAe,6BAAF,GAAkC,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GACvJ,gBAD4J,GACzI,+BAAF,GAAW,sCAAF,GAA2C,2BAAF,GACnE,wCADwE,GAC7B,2BAAF,GACzC,wCAD8C;AALnB;AAAa;AASA;AAAb;AAE7B,iBAAU;AAFmB;AAAa;AAsVS;AAAtB;AAE7B,iBAAU,IAA8H,GAAvH,+BAAF,GAAW,uBAAF,GAA4B,kBAAF,GAAkB,oBAAF,GAAyB,mCAAF,GAAe,iBAAF,GAAuB,mCAAF,GAAe,kBAAF;AAF3G;AAAsB;AAKP;AAAf;AAE7B,iBAAU,IAAmD,GAA5C,+BAAF,GAAW,qBAAF,GAA0B,mCAAF,GAAe,IAAF;AAFhC;AAAe;AA0BC;AAAhB;AAE7B,iBAAU,MAKkC,GAJ1C,IADe,GACR,wBAAF,GAAuB,0BAAF,GAA+B,2BAAF,GACvD,kCAD4D,GACvB,2BAAF,GACnC,MADwC,GAC/B,+BAAF,GAAW,wBAAF,GAA6B,2BAAF,GAC3C,KADgD,GACxC,2BAAF,GACN,IADW,GACJ,wBAAF,GAAuB,QAAF,GAAa,2BAAF,GAAO,2BAAF;AAE5C,iBAAU,MAA0F,GAAjF,IAAF,GAAS,oBAAF,GAAmB,aAAF,GAAkB,mCAAF,GAAe,sBAAF,GAA2B,2BAAF,GAAO,2BAAF;AACpG,iBAAU,MAA+E,GAAtE,IAAF,GAAS,gBAAF,GAAe,aAAF,GAAkB,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GAAO,2BAAF;AACzF,iBAAU,MAA2F,GAAlF,IAAF,GAAS,kBAAF,GAAiB,aAAF,GAAkB,mCAAF,GAAe,yBAAF,GAA8B,2BAAF,GAAO,2BAAF;AAErG,iBAAU,MAG+D,GAFvE,QADe,GACJ,mCAAF,GAAe,uBAAF,GAA4B,2BAAF,GAChD,MADqD,GAC5C,+BAAF,GAAW,cAAF,GAAmB,uBAAF,GAAsB,IAAF,GAAS,2BAAF,GAC5D,MADiE,GACxD,wBAAF,GAAuB,QAAF,GAAa,uBAAF,GAAsB,IAAF,GAAS,2BAAF,GAClE,KADuE;AAhB5C;AAAgB;AA3WE;AAAlB;AAE7B,iBACE,+BA0HI,GA1H8B,2BAAF,GAChC,0BADqC,GACR,2BAAF,GAC3B,MADgC,GACvB,uBAAF,GAAsB,GAAF,GAAQ,2BAAF,GACjC,MADsC,GAC7B,wBAAF,GAAuB,QAAF,GAC5B,cADuC,GACtB,2BAAF,GACf,mBADoB,GACE,2BAAF,GACpB,oDADyB,GACkC,2BAAF,GACzD,iDAD8D,GACR,2BAAF,GACpD,8CADyD,GACJ,2BAAF,GACnD,gBADwD,GACrC,2BAAF,GACjB,gBADsB,GACH,2BAAF,GACjB,uEADsB,GAEtB,iBADwE,GACpD,+BAAF,GAAW,yBAAF,GAA8B,2BAAF,GACvD,cAD4D,GAC3C,kBAAF,GAAkB,4BAAF,GAAiC,+BAAF,GAAW,2CAAF,GAAkD,2BAAF,GACvH,kDAD4H,GACnE,2BAAF,GACvD,uBAD4D,GAClC,2BAAF,GACxB,4BAD6B,GACE,2BAAF,GAC7B,gBADkC,GACf,kBAAF,GAAkB,oCAAF,GAAyC,+BAAF,GAAW,2CAAF,GAAkD,2BAAF,GACjI,oDADsI,GAC3E,2BAAF,GACzD,0BAD8D,GACjC,2BAAF,GAC3B,OADgC,GACtB,2BAAF,GACR,uBADa,GACa,2BAAF,GACxB,2BAD6B,GACC,2BAAF,GAC5B,2BADiC,GACH,2BAAF,GAC5B,OADiC,GACvB,2BAAF,GACR,KADa,GACL,2BAAF,GAEN,kFAFW,GAEoF,2BAAF,GAC7F,aADkG,GAClF,2BAAF,GACd,GADmB,GACb,2BAAF,GAAO,2BAAF,GAGT,yBAHc,GAGc,2BAAF,GAC1B,sBAD+B,GACN,2BAAF,GACvB,0BAD4B,GACC,2BAAF,GAC3B,kBADgC,GACX,2BAAF,GACnB,KADwB,GAChB,2BAAF,GACN,2BADW,GACmB,2BAAF,GAC5B,+BADiC,GACC,2BAAF,GAChC,kBADqC,GAChB,2BAAF,GACnB,KADwB,GAChB,2BAAF,GACN,iBADW,GACS,2BAAF,GAClB,GADuB,GACjB,2BAAF,GAAO,2BAAF,GAET,+BAFc,GAEoB,2BAAF,GAChC,uBADqC,GACX,2BAAF,GACxB,aAD6B,GACb,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC7D,GADkE,GAC5D,2BAAF,GAAO,2BAAF,GACT,6BADc,GACkB,2BAAF,GAC9B,uBADmC,GACT,2BAAF,GACxB,aAD6B,GACb,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GAE3D,IAFgE,GAEzD,qCAAF,GAAiB,0CAAF,GAA+C,2BAAF,GACjE,UADsE,GACzD,+BAAF,GAAW,IAAF,GAAS,2BAAF,GAC3B,sBADgC,GACP,2BAAF,GACvB,oBAD4B,GACL,+BAAF,GAAW,uBAAF,GAA4B,2BAAF,GACxD,SAD6D,GACjD,2BAAF,GACV,sBADe,GACU,+BAAF,GAAW,uBAAF,GAA4B,2BAAF,GAC1D,+BAD+D,GAC7B,2BAAF,GAChC,UADqC,GACxB,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GACjE,SADsE,GAC1D,2BAAF,GACV,0BADe,GACc,2BAAF,GAC3B,OADgC,GACtB,2BAAF,GAER,GAFa,GAEP,2BAAF,GAAO,2BAAF,GACT,2BADc,GACgB,2BAAF,GAC5B,uBADiC,GACP,2BAAF,GACxB,aAD6B,GACb,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,kCAAF,GAAuC,2BAAF,GACzD,GAD8D,GACxD,2BAAF,GAAO,2BAAF,GACT,gCADc,GACqB,2BAAF,GACjC,uBADsC,GACZ,2BAAF,GACxB,aAD6B,GACb,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,uCAAF,GAA4C,2BAAF,GAC9D,GADmE,GAC7D,2BAAF,GAAO,2BAAF,GACT,8BADc,GACmB,2BAAF,GAC/B,uBADoC,GACV,2BAAF,GACxB,aAD6B,GACb,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,qCAAF,GAA0C,2BAAF,GAC5D,GADiE,GAC3D,2BAAF,GAAO,2BAAF,GACT,+BADc,GACoB,2BAAF,GAChC,uBADqC,GACX,2BAAF,GACxB,aAD6B,GACb,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC7D,GADkE,GAC5D,2BAAF,GAAO,2BAAF,GACT,6BADc,GACkB,2BAAF,GAC9B,uBADmC,GACT,2BAAF,GACxB,aAD6B,GACb,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GAC3D,GADgE,GAC1D,2BAAF,GAAO,2BAAF,GACT,gCADc,GACqB,2BAAF,GACjC,uBADsC,GACZ,2BAAF,GACxB,aAD6B,GACb,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,uCAAF,GAA4C,2BAAF,GAC9D,GADmE,GAC7D,2BAAF,GAAO,2BAAF,GACT,gCADc,GACqB,2BAAF,GACjC,uBADsC,GACZ,2BAAF,GACxB,aAD6B,GACb,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC7D,GADkE,GAC5D,2BAAF,GAAO,2BAAF,GACT,+BADc,GACoB,2BAAF,GAChC,uBADqC,GACX,2BAAF,GACxB,aAD6B,GACb,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC7D,GADkE,GAC5D,2BAAF,GAAO,2BAAF,GACT,oCADc,GACyB,2BAAF,GACrC,uBAD0C,GAChB,2BAAF,GACxB,aAD6B,GACb,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,2CAAF,GAAgD,2BAAF,GAClE,GADuE,GACjE,2BAAF;AAEN,iBAAU,MASwB,GARhC,MADe,GACN,eAAF,GAAe,GAAF,GAAQ,2BAAF,GAC1B,MAD+B,GACtB,oBAAF,GAAoB,QAAF,GAAa,2BAAF,GACpC,WADyC,GAC3B,uBAAF,GAAuB,GAAF,GAAQ,2BAAF,GACvC,iBAD4C,GACxB,2BAAF,GAClB,oBADuB,GACA,oBAAF,GAAoB,IAAF,GAAS,2BAAF,GAC9C,kBADmD,GAC9B,2BAAF,GACnB,kBADwB,GACH,2BAAF,GACnB,KADwB,GAChB,2BAAF,GACN,0BADW,GACkB,2BAAF,GAC3B,GADgC;AAxIL;AAAkB;AAjeK;AAAvB;AAE7B,iBAAU,IAAmF,GAA5E,2CAAF,GAAuB,SAAF,GAAc,mCAAF,GAAe,gBAAF,GAAqB,mCAAF,GAAe,iBAAF;AAFhE;AAAuB;AAKN;AAAjB;AAE7B,iBAAU,UAIkI,GAJrH,qCAAF,GAAiB,GAAF,GAAQ,mCAAF,GAAe,OAAF,GAAY,2BAAF,GACvD,SAD4D,GAChD,2BAAF,GACV,IADe,GACR,qCAAF,GAAiB,GAAF,GAAQ,mCAAF,GAAe,aAAF,GAAkB,mCAAF,GAAe,oBAAF,GAAyB,mCAAF,GAAe,oBAAF,GAAyB,2BAAF,GAC/H,QADoI,GACzH,2BAAF,GACT,IADc,GACP,qCAAF,GAAiB,GAAF,GAAQ,mCAAF,GAAe,WAAF,GAAgB,mCAAF,GAAe,oBAAF,GAAyB,mCAAF,GAAe,oBAAF,GAAyB,2BAAF,GAC7H,GADkI;AAN/G;AAAiB;AAgrBW;AAA5B;AAE7B,iBAAU;AAFmB;AAA4B;AAKL;AAAvB;AAE7B,iBAAU;AAFmB;AAAuB;AA6KhB;AAAP;AAE7B,iBAAU;AAFmB;AAAO;AA52BK;AACtC;AADsC;AAEzC,2BAAW,YAAY,CAAC,0EAAD;AAFkB;AACtC;AADsC;;AAVH;AAEtC;AAFuC;AAAD;AAKA;AAEtC;AAFsC;AA1EjB;;;;AAuCrB;AAGiB,8BAAG;AACF,+BAAG;AACP,2BAAG;AACL,yBAAG;AACL,uBAAG;AA/ED;AA5Bd,GA4Bc,6JA5Bd;ACAA,wCAWS,UAXT;;;;AAcmB,2BAAG;AACP,uBAAG;AACH,uBAAG;AACJ,sBAAG;AACA,yBAAG;AACE,8BAAG;AACL,4BAAG;AAEX,oBAAG;AACE,yBAAG;AACA,4BAAG,KAAwB,GAAhB,oBAAF,GAAoB,IAAF;AACnB,oCAAG;AACR,+BAAG;AAsFM;AAE9B,QAAG,CAAI,oDAA2B,UAAQ,0BAAwB,CAAC,qEAAqC,CAAC,UAAD;eAAA,MAAC;AAAD;;QAAtC,CAAlE;AAEE,uCAAwC,eAAzB,+BAAyB,QAAC,+DAAD,EAAxC;AACA,0DAA2B,UAAQ,mBAAmB,CAAC,qEAA2B,iBAA5B;KAHxD;AAF8B;AASE;AAEhC,wDAA2B,UAAQ,sBAAsB,CAAC,oEAAD;AAFzB;AAzHlC,mBA+Bc;AAyBa;AAFO;;;;;AAEP;AAwEoB;AAAZ;AAC9B;AAD0C;AAE7C,uCAA4B,eAAlB,wBAAkB,QAAC,uDAAD,EAA5B;AADG;AAD0C;AAC1C;AAD0C;AAAZ;AAAY;AAxEpB;;;;AAQP;;AAscqB;AAGvC,aAAK,MAAI,CAAC,wCAAe,QAAC,cAAU,CAAC,kBAAkC,GAAlB,sBAAF,GAAsB,mBAAF,CAAuB,WAAY,YAAtE,CAAV,CAAjB;AACT,aAAK,MAAI,CAAC,wCAAe,QAAC,gBAAY,CAAC,kBAAkC,GAAlB,sBAAF,GAAsB,kBAAF,CAAsB,kBN5Pf,GAAuB,GAAsB,MAAyB,KM4PhH,CAAZ,CAAjB;AAJ8B;AAiKC;AAI1C;AACA;AACA;AAN0C;AA1EH;AAAX;AAE1B,iBAAU;AAFgB;AAAW;AAoBC;AAAZ;AAE1B,iBACA,eAMsC,GANpB,mCAAF,GAAe,gBAAF,GAAqB,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GACjF,IADsF,GAC/E,iCAAF,GAAa,KAAF,GAAU,kBAAF,GAAkB,eAAF,GAAoB,2BAAF,GAC1D,cAD+D,GAC9C,kBAAF,GAAkB,SAAF,GAAc,mCAAF,GAAe,eAAF,GAAoB,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GACzG,eAD8G,GAC5F,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC3C,eADgD,GAC9B,mCAAF,GAAe,aAAF,GAAkB,2BAAF,GAC7C,OADkD,GACxC,2BAAF,GACR,IADa,GACN,iCAAF,GAAa,UAAF,GAAe,+BAAF,GAAW,IAAF;AATZ;AAAY;AALC;AAAb;AAE1B,iBAAU,IAAiC,GAA1B,+BAAF,GAAW,gBAAF,GAAqB,2BAAF;AAFjB;AAAa;AA/FD;AAAZ;AAE1B,iBAAU,yBAIF,GAJ8B,2BAAF,GAChC,iCADqC,GACD,2BAAF,GAClC,sBADuC,GACd,2BAAF,GACvB,sBAD4B,GACH,2BAAF,GACvB,GAD4B,GACtB,2BAAF;AANkB;AAAY;AA/IK;AAAjB;AAE1B,iBAAW;AAFe;AAAiB;AA0NE;AAAnB;AAE1B,iBAAU,GAAI,GAAE,kBAAF;AAFY;AAAmB;AAlEN;AAAb;AAE1B,iBAAU;AAFgB;AAAa;AA6BG;AAAhB;AACvB;AADuC;AAE1C,mBAAU,MAGI,GAFZ,IADe,GACR,oBAAF,GAAoB,KAAF,GAAU,kBAAF,GAAkB,cAAF,GAAmB,iBAAF,GAAiB,MAAF,GAAW,2BAAF,GACxF,kBAD6F,GACxE,2BAAF,GACnB,MADwB,GACf,2BAAF,GACP,EADY;AAGd,mBAAU,MAEyE,GADjF,IADe,GACR,oBAAF,GAAoB,mCAAF,GAA0C,2BAAF,GAC/D,IADoE,GAC7D,qCAAF,GAAiB,qDAAF,GAA0D,2BAAF,GAC5E,KADiF;AAGnF,mBAAU,MAUI,GATZ,GADe,GACT,+BAAF,GAAW,KAAF,GAAU,kBAAF,GAAkB,QAAF,GAAa,8BAAF,GAAU,MAAF,GAAW,2BAAF,GACjE,eADsE,GACpD,mCAAc,qBAAhB,GAAsC,IAAF,GAAS,mCAAc,sBAAhB,GAAuC,IAAF,GAAS,2BAAF,GACvG,YAD4G,GAC7F,mCAAc,sBAAhB,GAAuC,GAAF,GAAQ,2BAAF,GAExD,gBAF6D,GAE1C,+CAAW,CAAC,mCAAc,aAAf,CAAb,GAA2C,GAAF,GAAQ,2BAAF,GAChE,uBADqE,GAC3C,+CAAW,CAAC,mCAAc,uBAAf,CAAb,GAAqD,GAAF,GAAQ,2BAAF,GACjF,uBADsF,GAC5D,+CAAW,CAAC,mCAAc,oBAAf,CAAb,GAAkD,GAAF,GAAQ,2BAAF,GAC9E,mBADmF,GAC7D,+CAAW,CAAC,mCAAc,qBAAf,CAAb,GAAmD,GAAF,GAAQ,2BAAF,GAC3E,eADgF,GAC9D,oBAAF,GAAoB,IAAF,GAAS,2BAAF,GACzC,MAD8C,GACrC,2BAAF,GAAO,2BAAF;AAEd,mBAAU,MASmB,GAR3B,IADe,GACR,+BAAF,GAAW,iBAAF,GAAsB,+BAAF,GAAW,uBAAF,GAA4B,2BAAF,GACrE,iBAD0E,GACtD,kBAAF,GAAkB,yBAAF,GAA8B,2BAAF,GAC9D,WADmE,GACrD,yBAAF,GAAyB,YAAF,GAAiB,2BAAF,GAClD,wBADuD,GAC5B,yBAAF,GAAyB,KAAF,GAAU,2BAAF,GACxD,OAD6D,GACnD,2BAAF,GACR,WADa,GACC,uBAAF,GAAuB,YAAF,GAAiB,2BAAF,GAChD,6BADqD,GACrB,uBAAF,GAAuB,KAAF,GAAU,2BAAF,GAC3D,OADgE,GACtD,2BAAF,GACR,iBADa,GACO,+BAAF,GAAW,IAAF;AAlCa;AACvC;AADuC;AAAhB;AAAgB;AAdG;AAAnB;AAE1B,iBACA,IAQoD,GAR7C,+BAAF,GAAW,iCAAF,GAAwC,2BAAF,GACpD,IADyD,GAClD,+BAAF,GAAW,6BAAF,GAAoC,2BAAF,GAChD,IADqD,GAC9C,+BAAF,GAAW,iCAAF,GAAwC,2BAAF,GACpD,IADyD,GAClD,+BAAF,GAAW,yBAAF,GAAgC,2BAAF,GAC5C,IADiD,GAC1C,+BAAF,GAAW,oCAAF,GAA2C,2BAAF,GACvD,IAD4D,GACrD,+BAAF,GAAW,+BAAF,GAAsC,2BAAF,GAClD,IADuD,GAChD,+BAAF,GAAW,6BAAF,GAAoC,2BAAF,GAChD,IADqD,GAC9C,+BAAF,GAAW,iCAAF,GAAwC,2BAAF,GACpD,IADyD,GAClD,+BAAF,GAAW,iCAAF,GAAwC,2BAAF;AAX1B;AAAmB;AAlYC;AAApB;AAG1B,iBACE,cA6EuC,GA7EtB,kBAAF,GAAkB,WAAF,GAAgB,mCAAF,GAAe,gBAAF,GAAqB,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAC/G,kBADoH,GAC/F,2BAAF,GAEnB,qBAFwB,GAEA,gDAAF,GAA4B,GAAF,GAC9C,mCADoD,GACvC,kBAAF,GAAuB,2BAAF,GAChC,mCADqC,GACxB,eAAF,GAAoB,2BAAF,GAE/B,0BAFoC,GAEP,2BAAF,GAE3B,WAFgC,GAElB,kBAAF,GAAkB,SAAF,GAAc,2BAAF,GACxC,4BAD6C,GACd,2BAAF,GAC7B,2CADkC,GACY,2BAAF,GAG5C,SAHiD,GAGrC,2BAAF,GAEV,qBAFe,GAES,2BAAF,GACtB,mBAD2B,GACL,2BAAF,GACpB,iBADyB,GACL,mCAAF,GAAe,YAAF,GAAiB,2BAAF,GAC9C,eADmD,GACjC,mCAAF,GAAe,YAAF,GAAiB,2BAAF,GAG5C,qBAHiD,GAGzB,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACtD,oCAD2D,GACpB,2BAAF,GACrC,OAD0C,GAChC,2BAAF,GAER,YAFa,GAEE,2BAAF,GAEb,qBAFkB,GAEM,2BAAF,GACtB,iBAD2B,GACP,mCAAF,GAAe,YAAF,GAAiB,2BAAF,GAC9C,eADmD,GACjC,mCAAF,GAAe,YAAF,GAAiB,2BAAF,GAG5C,qBAHiD,GAGzB,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACtD,oCAD2D,GACpB,2BAAF,GACrC,OAD0C,GAChC,2BAAF,GAER,KAFa,GAEL,2BAAF,GAAO,2BAAF,GAEX,QAFgB,GAEL,kCAAF,GAAc,GAAF,GAAQ,2BAAF,GAC3B,MADgC,GACvB,kCAAF,GAAc,YAAF,GAAiB,2BAAF,GAGlC,MAHuC,GAG9B,kCAAF,GAAc,KAAF,GAAU,kBAAF,GAAkB,wBAAF,GAA6B,2BAAF,GAEtE,MAF2E,GAElE,kCAAF,GAAc,+BAAF,GAAsC,2BAAF,GACvD,QAD4D,GACjD,qCAAF,GAAiB,oCAAF,GAAyC,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC1F,QAD+F,GACpF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,kCAAF,GAAc,qCAAF,GAA4C,2BAAF,GAC7D,QADkE,GACvD,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC/F,QADoG,GACzF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,kCAAF,GAAc,kCAAF,GAAyC,2BAAF,GAC1D,QAD+D,GACpD,qCAAF,GAAiB,uCAAF,GAA4C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC7F,QADkG,GACvF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,kCAAF,GAAc,iCAAF,GAAwC,2BAAF,GACzD,QAD8D,GACnD,qCAAF,GAAiB,sCAAF,GAA2C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC5F,QADiG,GACtF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,kCAAF,GAAc,mCAAF,GAA0C,2BAAF,GAC3D,QADgE,GACrD,qCAAF,GAAiB,wCAAF,GAA6C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC9F,QADmG,GACxF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,kCAAF,GAAc,kCAAF,GAAyC,2BAAF,GAC1D,QAD+D,GACpD,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC/F,QADoG,GACzF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,kCAAF,GAAc,mCAAF,GAA0C,2BAAF,GAC3D,QADgE,GACrD,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC/F,QADoG,GACzF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,kCAAF,GAAc,iCAAF,GAAwC,2BAAF,GACzD,QAD8D,GACnD,qCAAF,GAAiB,sCAAF,GAA2C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC5F,QADiG,GACtF,2BAAF,GAAO,2BAAF,GAMd,QANmB,GAMR,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACzC,MAD8C,GACrC,kCAAF,GAAc,SAAF,GAAc,+BAAF,GAAW,IAAF,GAAS,2BAAF,GAC/C,aADoD,GACpC,2BAAF,GACd,MADmB,GACV,kCAAF,GAAc,YAAF,GAAiB,2BAAF,GAClC,KADuC;AAjFf;AAAoB;AAgOL;AAAf;AAE1B,iBAAU,IAAmD,GAA5C,+BAAF,GAAW,eAAF,GAAoB,kCAAF,GAAc,IAAF,GAAS,2BAAF;AAFnC;AAAe;AA3IU;AAAzB;AAG1B,iBACE,YA6H4C,GA7H7B,mCAAF,GAAe,YAAF,GAAiB,2BAAF,GACzC,gBAD8C,GAC3B,2BAAF,GAEjB,cAFsB,GAEL,2BAAF,GACf,kCADoB,GACiB,2BAAF,GACnC,yCADwC,GACI,2BAAF,GAC1C,+BAD+C,GACb,2BAAF,GAChC,kCADqC,GACA,2BAAF,GACnC,gCADwC,GACL,2BAAF,GACjC,mCADsC,GACA,2BAAF,GACpC,uBADyC,GACf,2BAAF,GACxB,iBAD6B,GACT,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GACpD,kBADyD,GACpC,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GACrD,mBAD0D,GACpC,mCAAF,GAAe,oBAAF,GAAyB,2BAAF,GACxD,qBAD6D,GACrC,2BAAF,GACtB,qBAD2B,GACH,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACtD,uBAD2D,GACjC,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAG1D,kBAH+D,GAG1C,mCAAF,GAAe,aAAF,GAAkB,2BAAF,GAChD,oCADqD,GACd,2BAAF,GACrC,SAD0C,GAC9B,2BAAF,GACV,YADe,GACA,2BAAF,GACb,cADkB,GACD,2BAAF,GACf,uBADoB,GACM,2BAAF,GACxB,iBAD6B,GACT,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GACpD,kBADyD,GACpC,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GACrD,mBAD0D,GACpC,mCAAF,GAAe,oBAAF,GAAyB,2BAAF,GAExD,oCAF6D,GAEtB,2BAAF,GACrC,SAD0C,GAC9B,2BAAF,GACV,YADe,GACA,2BAAF,GACb,KADkB,GACV,2BAAF,GAAO,2BAAF,GAEX,cAFgB,GAEC,2BAAF,GACf,kCADoB,GACiB,2BAAF,GACnC,yCADwC,GACI,2BAAF,GAC1C,iBAD+C,GAC3B,mCAAF,GAAe,uCAAF,GAA4C,mCAAF,GAAe,yCAAF,GAA8C,2BAAF,GAClI,iBADuI,GACnH,mCAAF,GAAe,uCAAF,GAA4C,mCAAF,GAAe,yCAAF,GAA8C,2BAAF,GAClI,iBADuI,GACnH,mCAAF,GAAe,uCAAF,GAA4C,mCAAF,GAAe,yCAAF,GAA8C,2BAAF,GAClI,iBADuI,GACnH,mCAAF,GAAe,uCAAF,GAA4C,mCAAF,GAAe,yCAAF,GAA8C,2BAAF,GAClI,iBADuI,GACnH,mCAAF,GAAe,uCAAF,GAA4C,mCAAF,GAAe,yCAAF,GAA8C,2BAAF,GAClI,YADuI,GACxH,2BAAF,GACb,+BADkB,GACgB,2BAAF,GAChC,kCADqC,GACA,2BAAF,GACnC,cADwC,GACvB,mCAAF,GAAe,0BAAF,GAA+B,mCAAF,GAAe,2BAAF,GAAgC,2BAAF,GACpG,YADyG,GAC1F,2BAAF,GACb,cADkB,GACD,2BAAF,GAEf,wBAFoB,GAEO,2BAAF,GACzB,oBAD8B,GACP,2CAAF,GAAuB,IAAF,GAAS,2BAAF,GACjD,wBADsD,GAC3B,qCAAF,GAAiB,IAAF,GAAS,2BAAF,GAC/C,sBADoD,GAC3B,qCAAF,GAAiB,SAAF,GAAc,2BAAF,GAClD,SADuD,GAC3C,2BAAF,GAEV,oBAFe,GAEQ,2BAAF,GACrB,YAD0B,GACX,2BAAF,GACb,KADkB,GACV,2BAAF,GAAO,2BAAF,GAEX,QAFgB,GAEL,uCAAF,GAAmB,GAAF,GAAQ,2BAAF,GAChC,MADqC,GAC5B,uCAAF,GAAmB,YAAF,GAAiB,2BAAF,GAIvC,gBAJ4C,GAIzB,2BAAF,GACjB,oCADsB,GACiB,2BAAF,GACrC,2CAD0C,GACI,2BAAF,GAC5C,UADiD,GACpC,uCAAF,GAAmB,KAAF,GAAU,kBAAF,GAAkB,gCAAF,GAAqC,+BAAF,GAAW,IAAF,GAAS,2BAAF,GACvG,cAD4G,GAC3F,2BAAF,GACf,iCADoB,GACgB,2BAAF,GAClC,oCADuC,GACA,2BAAF,GACrC,UAD0C,GAC7B,uCAAF,GAAmB,KAAF,GAAU,kBAAF,GAAkB,6BAAF,GAAkC,+BAAF,GAAW,IAAF,GAAS,2BAAF,GACpG,cADyG,GACxF,2BAAF,GACf,kCADoB,GACiB,2BAAF,GACnC,qCADwC,GACA,2BAAF,GACtC,UAD2C,GAC9B,uCAAF,GAAmB,KAAF,GAAU,kBAAF,GAAkB,8BAAF,GAAmC,+BAAF,GAAW,IAAF,GAAS,2BAAF,GACrG,cAD0G,GACzF,2BAAF,GACf,gBADoB,GACD,2BAAF,GACjB,UADsB,GACT,uCAAF,GAAmB,KAAF,GAAU,kBAAF,GAAkB,+BAAF,GAAoC,+BAAF,GAAW,IAAF,GAAS,2BAAF,GACtG,cAD2G,GAC1F,2BAAF,GACf,OADoB,GACV,2BAAF,GAAO,2BAAF,GAEb,MAFkB,GAET,uCAAF,GAAmB,+BAAF,GAAsC,2BAAF,GAC5D,QADiE,GACtD,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC/F,QADoG,GACzF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,uCAAF,GAAmB,qCAAF,GAA4C,2BAAF,GAClE,QADuE,GAC5D,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACpG,QADyG,GAC9F,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,uCAAF,GAAmB,kCAAF,GAAyC,2BAAF,GAC/D,QADoE,GACzD,qCAAF,GAAiB,4CAAF,GAAiD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAClG,QADuG,GAC5F,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,uCAAF,GAAmB,iCAAF,GAAwC,2BAAF,GAC9D,QADmE,GACxD,qCAAF,GAAiB,2CAAF,GAAgD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACjG,QADsG,GAC3F,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,uCAAF,GAAmB,mCAAF,GAA0C,2BAAF,GAChE,QADqE,GAC1D,qCAAF,GAAiB,6CAAF,GAAkD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACnG,QADwG,GAC7F,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,uCAAF,GAAmB,kCAAF,GAAyC,2BAAF,GAC/D,QADoE,GACzD,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACpG,QADyG,GAC9F,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,uCAAF,GAAmB,mCAAF,GAA0C,2BAAF,GAChE,QADqE,GAC1D,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACpG,QADyG,GAC9F,2BAAF,GAAO,2BAAF,GAoBd,QApBmB,GAoBR,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACzC,MAD8C,GACrC,uCAAF,GAAmB,SAAF,GAAc,+BAAF,GAAW,IAAF,GAAS,2BAAF,GACpD,aADyD,GACzC,2BAAF,GACd,MADmB,GACV,uCAAF,GAAmB,YAAF,GAAiB,2BAAF,GACvC,KAD4C;AAjIpB;AAAyB;AAgJL;AAApB;AAE1B,iBAAU,IAAwD,GAAjD,+BAAF,GAAW,eAAF,GAAoB,uCAAF,GAAmB,IAAF,GAAS,2BAAF;AAFxC;AAAoB;AAoRL;AAAf;AAE1B,iBAAU,+BACqD,GAD5C,eAAF,GAAoB,mCAAF,GAAe,4BAAF,GAAiC,mCAAF,GAAe,+BAAF,GAC3F,GAD6H,GACvH,mCAAF,GAAe,6BAAF,GAAkC,mCAAF,GAAe,+BAAF;AAHrC;AAAe;AA/QH;AAAZ;AAE1B,iBACE,cAGgE,GAH/C,+BAAF,GAAW,eAAF,GAAoB,2BAAF,GAC1C,0DAD+C,GACc,2BAAF,GAC3D,2DADgE,GACF,2BAAF,GAC5D,0DADiE,GACJ,2BAAF,GAC3D,2DADgE;AANxC;AAAY;AAUU;AAAtB;AAE1B,iBACE,cACwC,GADvB,+BAAF,GAAW,eAAF,GAAoB,2BAAF,GAC1C,kCAD+C,GACV,2BAAF,GACnC,mCADwC;AAJhB;AAAsB;AA0BP;AAAf;AAE1B,iBAAU,YAAsB,GAAP,+BAAF,GAAW,aAAF;AAFN;AAAe;AAlBF;AAAb;AAE1B,iBACE,gBAE6C,GAF1B,+BAAF,GAAW,sCAAF,GAA2C,mCAAF,GAAe,4BAAF,GAAiC,mCAAF,GAAe,mBAAF,GAAwB,2BAAF,GAClJ,uCADuJ,GAC7G,2BAAF,GACxC,uCAD6C,GACH,2BAAF,GACzC,EAD8C;AALrB;AAAa;AASA;AAAb;AAE1B,iBACE,aAEoD,GAFpC,+BAAF,GAAW,oCAAF,GAAyC,mCAAF,GAAe,mBAAF,GAAwB,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC5H,6CADiI,GACjF,2BAAF,GAC9C,8CADmD,GACF,2BAAF,GAChD,EADqD;AAL5B;AAAa;AA0LS;AAAtB;AAE1B,iBAAU,IAA2E,GAApE,+BAAF,GAAW,YAAF,GAAiB,mCAAF,GAAe,gBAAF,GAAsB,mCAAF,GAAe,kBAAF;AAF3D;AAAsB;AAKP;AAAf;AAE1B,iBAAU,IAAyC,GAAlC,+BAAF,GAAW,WAAF,GAAgB,mCAAF,GAAe,IAAF;AAFzB;AAAe;AAsBC;AAAhB;AAE1B,iBAAU,MAI6D,GAHrE,QADe,GACJ,mCAAF,GAAe,uBAAF,GAA4B,2BAAF,GAChD,MADqD,GAC5C,+BAAF,GAAW,cAAF,GAAmB,+BAAF,GAAW,gBAAF,GAAqB,2BAAF,GAC7D,aADkE,GAClD,2BAAF,GACd,MADmB,GACV,+BAAF,GAAW,iBAAF,GAAsB,+BAAF,GAAW,gBAAF,GAAqB,2BAAF,GAChE,KADqE;AAGvE,iBAAU,MAI6C,GAHrD,QADe,GACJ,mCAAF,GAAe,yBAAF,GAA8B,2BAAF,GAClD,MADuD,GAC9C,+BAAF,GAAW,4BAAF,GAAiC,2BAAF,GAC/C,aADoD,GACpC,2BAAF,GACd,MADmB,GACV,+BAAF,GAAW,6BAAF,GAAkC,2BAAF,GAChD,KADqD;AAGvD,iBAAU,MAI6C,GAHrD,QADe,GACJ,mCAAF,GAAe,sBAAF,GAA2B,2BAAF,GAC/C,MADoD,GAC3C,+BAAF,GAAW,4BAAF,GAAiC,2BAAF,GAC/C,aADoD,GACpC,2BAAF,GACd,MADmB,GACV,+BAAF,GAAW,6BAAF,GAAkC,2BAAF,GAChD,KADqD;AAGvD,iBAAU,MAIsC,GAH9C,QADe,GACJ,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GACxC,MAD6C,GACpC,+BAAF,GAAW,qBAAF,GAA0B,2BAAF,GACxC,aAD6C,GAC7B,2BAAF,GACd,MADmB,GACV,+BAAF,GAAW,sBAAF,GAA2B,2BAAF,GACzC,KAD8C;AA3BtB;AAAgB;AAvME;AAAlB;AAE1B,iBACE,+BA0ES,GA1EyB,2BAAF,GAChC,0BADqC,GACR,2BAAF,GAC3B,MADgC,GACvB,oBAAF,GAAoB,GAAF,GAAQ,2BAAF,GAC/B,MADoC,GAC3B,uBAAF,GAAsB,GAAF,GAAQ,2BAAF,GACjC,MADsC,GAC7B,wBAAF,GAAuB,QAAF,GAC5B,cADuC,GACtB,2BAAF,GACf,mBADoB,GACE,2BAAF,GACpB,oDADyB,GACkC,2BAAF,GACzD,iDAD8D,GACR,2BAAF,GACpD,8CADyD,GACJ,2BAAF,GACnD,gBADwD,GACrC,2BAAF,GACjB,gBADsB,GACH,2BAAF,GACjB,uEADsB,GAEtB,iBADwE,GACpD,+BAAF,GAAW,eAAF,GAAoB,2BAAF,GAC7C,kEADkD,GACuB,2BAAF,GACvE,yCAD4E,GAE5E,0CAD0C,GACG,2BAAF,GAC3C,kEADgD,GACyB,2BAAF,GACvE,uBAD4E,GAClD,2BAAF,GACxB,yBAD6B,GACD,2BAAF,GAC1B,4EAD+B,GACoD,2BAAF,GACjF,0BADsF,GACzD,2BAAF,GAC3B,OADgC,GACtB,2BAAF,GACR,6BADa,GACmB,2BAAF,GAC9B,+BADmC,GACD,2BAAF,GAChC,+BADqC,GACH,2BAAF,GAChC,OADqC,GAC3B,2BAAF,GACR,KADa,GACL,2BAAF,GAEN,kFAFW,GAEoF,2BAAF,GAC7F,aADkG,GAClF,2BAAF,GACd,GADmB,GACb,2BAAF,GAAO,2BAAF,GAET,+BAFc,GAEoB,2BAAF,GAChC,IADqC,GAC9B,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC7D,GADkE,GAC5D,2BAAF,GAAO,2BAAF,GACT,6BADc,GACkB,2BAAF,GAC9B,IADmC,GAC5B,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GAC3D,GADgE,GAC1D,2BAAF,GAAO,2BAAF,GACT,2BADc,GACgB,2BAAF,GAC5B,IADiC,GAC1B,qCAAF,GAAiB,kCAAF,GAAuC,2BAAF,GACzD,GAD8D,GACxD,2BAAF,GAAO,2BAAF,GACT,gCADc,GACqB,2BAAF,GACjC,IADsC,GAC/B,qCAAF,GAAiB,uCAAF,GAA4C,2BAAF,GAC9D,GADmE,GAC7D,2BAAF,GAAO,2BAAF,GACT,8BADc,GACmB,2BAAF,GAC/B,IADoC,GAC7B,qCAAF,GAAiB,qCAAF,GAA0C,2BAAF,GAC5D,GADiE,GAC3D,2BAAF,GAAO,2BAAF,GACT,+BADc,GACoB,2BAAF,GAChC,IADqC,GAC9B,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC7D,GADkE,GAC5D,2BAAF,GAAO,2BAAF,GACT,6BADc,GACkB,2BAAF,GAC9B,IADmC,GAC5B,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GAC3D,GADgE,GAC1D,2BAAF,GAAO,2BAAF,GACT,gCADc,GACqB,2BAAF,GACjC,IADsC,GAC/B,qCAAF,GAAiB,uCAAF,GAA4C,2BAAF,GAC9D,GADmE,GAC7D,2BAAF,GAAO,2BAAF,GACT,gCADc,GACqB,2BAAF,GACjC,IADsC,GAC/B,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC7D,GADkE,GAC5D,2BAAF,GAAO,2BAAF,GACT,+BADc,GACoB,2BAAF,GAChC,IADqC,GAC9B,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC7D,GADkE,GAC5D,2BAAF,GAAO,2BAAF,GACT,iCADc,GACsB,2BAAF,GAClC,UADuC,GAC1B,+BAAF,GAAW,IAAF,GAAS,2BAAF,GAC3B,sBADgC,GACP,2BAAF,GACvB,oBAD4B,GACL,+BAAF,GAAW,aAAF,GAAkB,2BAAF,GAC9C,SADmD,GACvC,2BAAF,GACV,sBADe,GACU,+BAAF,GAAW,aAAF,GAAkB,2BAAF,GAChD,+BADqD,GACnB,2BAAF,GAChC,UADqC,GACxB,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GACjE,SADsE,GAC1D,2BAAF,GACV,0BADe,GACc,2BAAF,GAC3B,OADgC,GACtB,2BAAF,GACR,GADa,GACP,2BAAF,GAAO,2BAAF;AA7Ee;AAAkB;AAlSK;AAAvB;AAE1B,iBAAU,IAAkF,GAA3E,2CAAF,GAAuB,SAAF,GAAc,mCAAF,GAAe,eAAF,GAAoB,mCAAF,GAAe,kBAAF;AAFlE;AAAuB;AAKN;AAAjB;AAE1B,iBAAU,UAIkI,GAJrH,qCAAF,GAAiB,GAAF,GAAQ,mCAAF,GAAe,OAAF,GAAY,2BAAF,GACvD,SAD4D,GAChD,2BAAF,GACV,IADe,GACR,qCAAF,GAAiB,GAAF,GAAQ,mCAAF,GAAe,aAAF,GAAkB,mCAAF,GAAe,mBAAF,GAAwB,mCAAF,GAAe,qBAAF,GAA0B,2BAAF,GAC/H,QADoI,GACzH,2BAAF,GACT,IADc,GACP,qCAAF,GAAiB,GAAF,GAAQ,mCAAF,GAAe,WAAF,GAAgB,mCAAF,GAAe,mBAAF,GAAwB,mCAAF,GAAe,qBAAF,GAA0B,2BAAF,GAC7H,GADkI;AANlH;AAAiB;AAkYW;AAA5B;AAE1B,iBAAU;AAFgB;AAA4B;AAKL;AAAvB;AAE1B,iBAAU;AAFgB;AAAuB;AAkIhB;AAAP;AAE1B,iBAAU;AAFgB;AAAO;AAnhBK;AACnC;AADmC;AAEtC,2BAAW,YAAY,CAAC,0EAAD;AAFe;AACnC;AADmC;;AAVH;AAEnC;AAFoC;AAAD;AAKA;AAEnC;AAFmC;AA1EjB;;;;AAuClB;AAGiB,8BAAG;AACF,+BAAG;AACP,2BAAG;AACL,yBAAG;AACL,uBAAG;AA/ED;AA/Bd,GA+Bc,6JA/Bd;ACAA,uCAWS,UAXT;;;;AA4G+B;AAE7B,QAAG,CAAI,oDAA2B,UAAQ,0BAAwB,CAAC,oEAAoC,CAAC,UAAD;eAAA,MAAC;AAAD;;QAArC,CAAlE;AAEE,uCAAuC,eAAxB,8BAAwB,QAAC,8DAAD,EAAvC;AACA,0DAA2B,UAAQ,mBAAmB,CAAC,oEAA0B,iBAA3B;KAHxD;AAF6B;AASE;AAE/B,wDAA2B,UAAQ,sBAAsB,CAAC,mEAAD;AAF1B;AArHjC,mBAgBc;AAqBL,oBAAG;AACH,oBAAG;AACH,oBAAG;AACH,oBAAG;AAac;AAFO;;;;;AAEP;AAuEoB;AAAZ;AAC7B;AADyC;AAE5C,uCAA2B,eAAjB,uBAAiB,QAAC,uDAAD,EAA3B;AADG;AADyC;AACzC;AADyC;AAAZ;AAAY;AAvEpB;;;;AAQP;;AAyiBqB;AAEtC;AACG;AAHmC;AAItC,cAAG,mCAAc,gBAAe,KAAE,EAAlC;AACE,yBAAc;AAEd,6BAAc,GAAI,GAAE,mCAAc,gBAAhB;AAEpB,eAAK,MAAI,CAAC,wCAAe,QAAC,cAAU,CAAC,kBAA0B,GAAX,UAAF,GAAe,gBAAF,CAAoB,WAAY,YAA3D,CAAV,CAAjB;AACT,eAAK,MAAI,CAAC,wCAAe,QAAC,gBAAY,CAAC,kBAA0B,GAAX,UAAF,GAAe,eAAF,CAAmB,kBPlWJ,GAAuB,GAAsB,MAAyB,KOkWhH,CAAZ,CAAjB;AAV6B;AAGnC;AAHmC;;AAiOC;AAIzC;AACA;AACA;AANyC;AA7EH;AAAX;AAEzB,iBAAU;AAFe;AAAW;AAeC;AAAZ;AAEzB,iBACE,eACoO,GADlN,mCAAF,GAAe,iBAAF,GAAsB,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GAChF,iCADqF,GAC1E,SAAF,GAAc,mBAAF,GAAkB,0DAAF,GAA+D,mCAAF,GAAe,eAAF,GAAoB,mCAAF,GAAe,wCAAF,GAA6C,mCAAF,GAAe,kBAAF,GAAuB,+BAAF,GAAW,IAAF;AAJ7M;AAAY;AA1VC;AAAb;AAEzB,iBAAU,IAAgB,GAAT,iCAAF,GAAa,YAAF;AAFD;AAAa;AAoMD;AAAZ;AAEzB,iBAAU;AAFe;AAAY;AA/LK;AAAjB;AAEzB,iBAAU,IAAc,GAAP,+BAAF,GAAW,2BAAF;AAFC;AAAiB;AAiUE;AAAnB;AAEzB,iBAAU,GAAI,GAAE,mBAAF;AAFW;AAAmB;AA7HN;AAAb;AAEzB,iBAAU;AAFe;AAAa;AAoDG;AAAhB;AAEzB;AACG;AAHsC;AAIzC,cAAK;AACL,mBACE,IAOa,GAPN,CAAF,GAAM,kBAAF,GAAuB,mCAAc,YAAhB,GAA6B,IAAF,GAAS,2BAAF,GAChE,IADqE,GAC9D,+BAAF,GAAW,SAAF,GAAc,CAAF,GAAM,QAAF,GAAa,2BAAF,GACzC,kBAD8C,GACzB,8BAAF,GAAS,KAAD,GAAS,2BAAF,GAElC,kDAFuC,GAEc,2BAAF,GACnD,eADwD,GACtC,mCAAc,sBAAhB,GAAuC,IAAF,GAAS,mCAAc,qBAAhB,GAAqC,KAAD,GAAS,2BAAF,GACvG,YAD4G,GAC7F,mCAAc,sBAAhB,GAAuC,2BAAF,GAClD,OADuD,GAC7C,2BAAF,GAAO,2BAAF;AAEb,mBAAU,MAAwF,GAA/E,IAAF,GAAS,uBAAF,GAAsB,SAAF,GAAc,mBAAF,GAAkB,uBAAF,GAA4B,2BAAF;AAElG,cAAG,mCAAc,qBAAjB;AAEE,qBAAU,MAE2D,GADrE,IADiB,GACV,+BAAF,GAAW,cAAF,GAAmB,uBAAF,GAAsB,IAAF,GAAS,2BAAF,GAC1D,IAD+D,GACxD,wBAAF,GAAuB,QAAF,GAAa,uBAAF,GAAsB,IAAF,GAAS,2BAAF,GAAO,2BAAF;WAJvE;AAOA,cAAG,mCAAc,oBAAjB;AAEE,qBAAU,MACwC,GAAlD,IADiB,GACV,+BAAF,GAAW,4BAAF,GAAiC,2BAAF,GAAO,2BAAF;;AAIlD,qBAAU,MACyC,GAAnD,IADiB,GACV,+BAAF,GAAW,6BAAF,GAAkC,2BAAF,GAAO,2BAAF;;AAGrD,cAAG,mCAAc,uBAAjB;AAEE,qBAAU,MACmC,GAA7C,IADiB,GACV,+BAAF,GAAW,uBAAF,GAA4B,2BAAF,GAAO,2BAAF;;AAI7C,qBAAU,MACoC,GAA9C,IADiB,GACV,+BAAF,GAAW,wBAAF,GAA6B,2BAAF,GAAO,2BAAF;;AAGhD,cAAG,mCAAc,aAAjB;AAEE,qBAAU,MACgC,GAA1C,IADiB,GACV,+BAAF,GAAW,oBAAF,GAAyB,2BAAF,GAAO,2BAAF;;AAI1C,qBAAU,MACiC,GAA3C,IADiB,GACV,+BAAF,GAAW,qBAAF,GAA0B,2BAAF,GAAO,2BAAF;;AAG7C,mBAAU,MAWC,GAXQ,IAAF,GAAS,+BAAF,GAAW,yBAAF,GAIjC,KAJ+D,GAM/D,EAFK,GAEA,+BAAF,GAAW,kCAAF,GAAuC,2BAAF,GACjD,qDADsD,GAEtD,6DADsD,GACU,2BAAF,GAC9D,gEADmE,GACA,2BAAF,GACjE,OADsE,GAC5D,2BAAF,GACR,KADa,GACL,2BAAF,GAEN,EAFW;AApE4B;AAGtC;AAHsC;AAAhB;AAAgB;AArCG;AAAnB;AAEzB,iBACA,IA+Bc,GA/BP,+BAAF,GAAW,2BAAF,GAAkC,2BAAF,GAC5C,QADiD,GACtC,qCAAF,GAAiB,gDAAF,GAAqD,2BAAF,GAC7E,MADkF,GACzE,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,4BAAF,GAAmC,2BAAF,GAC/C,MADoD,GAC3C,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GAC7D,MADkE,GACzD,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,4BAAF,GAAmC,2BAAF,GAC/C,MADoD,GAC3C,qCAAF,GAAiB,yCAAF,GAA8C,2BAAF,GAClE,MADuE,GAC9D,2BAAF,GAAO,2BAAF,GAIZ,IAJiB,GAIV,+BAAF,GAAW,kCAAF,GAAyC,2BAAF,GACrD,IAD0D,GACnD,+BAAF,GAAW,iCAAF,GAAwC,2BAAF,GACpD,IADyD,GAClD,+BAAF,GAAW,8BAAF,GAAqC,2BAAF,GACjD,IADsD,GAC/C,+BAAF,GAAW,6BAAF,GAAoC,2BAAF,GAChD,IADqD,GAC9C,+BAAF,GAAW,0BAAF,GAAiC,2BAAF,GAC7C,IADkD,GAC3C,+BAAF,GAAW,yBAAF,GAAgC,2BAAF,GAC5C,IADiD,GAC1C,+BAAF,GAAW,qCAAF,GAA4C,2BAAF,GACxD,IAD6D,GACtD,+BAAF,GAAW,oCAAF,GAA2C,2BAAF,GACvD,IAD4D,GACrD,+BAAF,GAAW,gCAAF,GAAuC,2BAAF,GACnD,IADwD,GACjD,+BAAF,GAAW,+BAAF,GAAsC,2BAAF,GAClD,IADuD,GAChD,+BAAF,GAAW,8BAAF,GAAqC,2BAAF,GACjD,IADsD,GAC/C,+BAAF,GAAW,6BAAF,GAAoC,2BAAF,GAChD,IADqD,GAC9C,+BAAF,GAAW,kCAAF,GAAyC,2BAAF,GACrD,IAD0D,GACnD,+BAAF,GAAW,iCAAF,GAAwC,2BAAF,GACpD,IADyD,GAClD,+BAAF,GAAW,kCAAF,GAAyC,2BAAF,GACrD,IAD0D,GACnD,+BAAF,GAAW,iCAAF,GAAwC,2BAAF,GACpD,IADyD,GAClD,+BAAF,GAAW,mCAAF,GAA0C,2BAAF,GACtD,IAD2D,GACpD,+BAAF,GAAW,kCAAF,GAAyC,2BAAF,GACrD,IAD0D,GACnD,+BAAF,GAAW,kCAAF,GAAyC,2BAAF,GACrD,IAD0D,GACnD,+BAAF,GAAW,iCAAF;AAlCW;AAAmB;AA7eC;AAApB;AAEzB,iBACA,eAmFa,GAnFK,mCAAF,GAAe,iBAAF,GAAsB,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GAAO,2BAAF,GAErF,SAF0F,GAE9E,kCAAF,GAAc,IAAF,GAAS,2BAAF,GAC7B,6CADkC,GACgB,2BAAF,GAChD,8BADqD,GAClB,2BAAF,GACjC,+BADsC,GACF,2BAAF,GAClC,wBADuC,GACZ,mCAAF,GAAe,aAAF,GAAkB,2BAAF,GACtD,iCAD2D,GACvB,mDAAF,GAAoB,aAAF,GAAkB,2BAAF,GAEpE,MAFyE,GAEhE,kCAAF,GAAc,SAAF,GAAc,mBAAF,GAAkB,oDAAF,GAAyD,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAExI,MAF6I,GAEpI,kCAAF,GAAc,wBAAF,GAA6B,+BAAF,GAAW,IAAF,GAAS,2BAAF,GAC9D,mDADmE,GACX,2BAAF,GACtD,gCAD2D,GACxB,2BAAF,GACjC,YADsC,GACvB,mCAAF,GAAe,mBAAF,GAAwB,2BAAF,GAChD,0BADqD,GACxB,mBAAF,GAAkB,2FAAF,GAAgG,mCAAF,GAAe,mBAAF,GAAwB,+BAAF,GAAW,IAAF,GAAS,2BAAF,GAC5L,SADiM,GACrL,2BAAF,GACV,QADe,GACJ,qCAAF,GAAiB,oCAAF,GAAyC,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC1F,QAD+F,GACpF,2BAAF,GAAO,2BAAF,GACd,yDADmB,GAC2C,2BAAF,GAC5D,gCADiE,GAC9B,2BAAF,GACjC,QADsC,GAC3B,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC/F,QADoG,GACzF,2BAAF,GAAO,2BAAF,GACd,sDADmB,GACwC,2BAAF,GACzD,gCAD8D,GAC3B,2BAAF,GACjC,QADsC,GAC3B,qCAAF,GAAiB,uCAAF,GAA4C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC7F,QADkG,GACvF,2BAAF,GAAO,2BAAF,GACd,qDADmB,GACuC,2BAAF,GACxD,aAD6D,GAC7C,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GAC/C,kCADoD,GACf,2BAAF,GACnC,SADwC,GAC5B,2BAAF,GACV,QADe,GACJ,qCAAF,GAAiB,sCAAF,GAA2C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC5F,SADiG,GACrF,2BAAF,GAAO,2BAAF,GACf,uDADoB,GACwC,2BAAF,GAC1D,aAD+D,GAC/C,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GAC/C,kCADoD,GACf,2BAAF,GACnC,SADwC,GAC5B,2BAAF,GACV,QADe,GACJ,qCAAF,GAAiB,wCAAF,GAA6C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC9F,QADmG,GACxF,2BAAF,GAAO,2BAAF,GACd,sDADmB,GACwC,2BAAF,GACzD,gCAD8D,GAC3B,2BAAF,GACjC,QADsC,GAC3B,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC/F,QADoG,GACzF,2BAAF,GAAO,2BAAF,GACd,uDADmB,GACyC,2BAAF,GAC1D,gCAD+D,GAC5B,2BAAF,GACjC,QADsC,GAC3B,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC/F,QADoG,GACzF,2BAAF,GAAO,2BAAF,GACd,UADmB,GACN,2BAAF,GACX,MADgB,GACP,kCAAF,GAAc,kBAAF,GAAuB,2BAAF,GACxC,KAD6C,GACrC,2BAAF,GAAO,2BAAF,GAEX,kCAFgB,GAEJ,gBAAF,GAAqB,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GAE9D,wBAFmE,GAExC,2BAAF,GACzB,mBAD8B,GACR,kCAAF,GAAc,eAAF,GAAoB,2BAAF,GAClD,+CADuD,GACL,2BAAF,GAChD,0CADqD,GACR,2BAAF,GAC3C,4CADgD,GACD,2BAAF,GAC7C,IADkD,GAC3C,qCAAF,GAAiB,sCAAF,GAA2C,mCAAF,GAAe,oBAAF,GAAyB,2BAAF,GACjG,GADsG,GAChG,2BAAF,GAEJ,kCAFS,GAEG,2BAAF,GAAkC,2BAAF,GAE1C,cAF+C,GAE9B,kCAAF,GAAc,gBAAF,GAAqB,2BAAF,GAC9C,aADmD,GACnC,2BAAF,GAEd,qBAFmB,GAEK,gDAAF,GAA4B,GAAF,GAC9C,mCADoD,GACvC,kBAAF,GAAuB,2BAAF,GAChC,mCADqC,GACxB,eAAF,GAAoB,2BAAF,GAE/B,4BAFoC,GAEL,2BAAF,GAC7B,iDADkC,GAElC,8BADoD,GAEpD,uCAD+B,GACW,2BAAF,GACxC,YAD6C,GAC9B,mCAAF,GAAe,+BAAF,GAAoC,2BAAF,GAC5D,4BADiE,GAClC,mCAAF,GAAe,iCAAF,GAAsC,2BAAF,GAC9E,6BADmF,GACnD,mCAAF,GAAe,iCAAF,GAAsC,2BAAF,GAC/E,SADoF,GACxE,2BAAF,GACV,OADe,GACL,2BAAF,GACR,UADa,GACA,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GAC1C,yCAD+C,GACH,2BAAF,GAC1C,YAD+C,GAChC,2BAAF,GACb,wCADkB,GACyB,2BAAF,GACzC,OAD8C,GACpC,2BAAF,GACR,KADa;AAtFY;AAAoB;AA+RL;AAAf;AAEzB,iBAAU,IAAiB,GAAV,kCAAF,GAAc,YAAF;AAFF;AAAe;AArMU;AAAzB;AAEzB,iBACE,YAqL2C,GArL5B,mCAAF,GAAe,YAAF,GAAiB,2BAAF,GACzC,mCAD8C,GACR,2BAAF,GACpC,gBADyC,GACtB,2BAAF,GAEjB,cAFsB,GAEL,2BAAF,GACf,kCADoB,GACiB,2BAAF,GACnC,iBADwC,GACpB,mCAAF,GAAe,wCAAF,GAA6C,mCAAF,GAAe,wCAAF,GAA6C,2BAAF,GAClI,iBADuI,GACnH,mCAAF,GAAe,wCAAF,GAA6C,mCAAF,GAAe,wCAAF,GAA6C,2BAAF,GAClI,iBADuI,GACnH,mCAAF,GAAe,wCAAF,GAA6C,mCAAF,GAAe,wCAAF,GAA6C,2BAAF,GAClI,iBADuI,GACnH,mCAAF,GAAe,wCAAF,GAA6C,mCAAF,GAAe,wCAAF,GAA6C,2BAAF,GAClI,iBADuI,GACnH,mCAAF,GAAe,wCAAF,GAA6C,mCAAF,GAAe,wCAAF,GAA6C,2BAAF,GAClI,YADuI,GACxH,2BAAF,GACb,+BADkB,GACgB,2BAAF,GAChC,0BADqC,GACR,mCAAF,GAAe,cAAF,GAAmB,mCAAF,GAAe,oBAAF,GAAyB,2BAAF,GAC7F,YADkG,GACnF,2BAAF,GACb,cADkB,GACD,2BAAF,GACf,aADoB,GACJ,2CAAF,GAAuB,GAAF,GAAQ,2BAAF,GACzC,YAD8C,GAC/B,2BAAF,GACb,KADkB,GACV,2BAAF,GAAO,2BAAF,GAEX,cAFgB,GAEC,2BAAF,GACf,kCADoB,GACiB,2BAAF,GACnC,+BADwC,GACN,2BAAF,GAChC,gCADqC,GACF,2BAAF,GACjC,eADsC,GACpB,2BAAF,GAChB,0BADqB,GACY,2BAAF,GAC/B,uBADoC,GACR,2BAAF,GAC1B,8BAD+B,GACM,2BAAF,GACnC,+BADwC,GACJ,2BAAF,GAClC,WADuC,GACzB,2BAAF,GACZ,SADiB,GACL,2BAAF,GAAO,2BAAF,GAEf,eAFoB,GAEF,2BAAF,GAChB,4BADqB,GACc,2BAAF,GACjC,qBADsC,GACZ,2BAAF,GACxB,UAD6B,GAChB,2BAAF,GAEX,cAFgB,GAEC,2BAAF,GACf,gBADoB,GACC,mCAAF,GAAe,sBAAF,GAA2B,2BAAF,GACzD,yBAD8D,GAC9B,2BAAF,GAC9B,yBADmC,GACL,2BAAF,GAC5B,qBADiC,GACP,2BAAF,GACxB,2BAD6B,GACG,mCAAF,GAAe,uCAAF,GAA4C,2BAAF,GACrF,YAD0F,GAC3E,2BAAF,GACb,oBADkB,GACO,2BAAF,GACvB,0BAD4B,GACG,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GAC7D,4BADkE,GACjC,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GACjE,WADsE,GACxD,2BAAF,GACZ,UADiB,GACJ,2BAAF,GAAO,2BAAF,GAEhB,uBAFqB,GAEK,2BAAF,GACxB,YAD6B,GACd,2BAAF,GACb,KADkB,GACV,2BAAF,GAEN,WAFW,GAEG,2BAAF,GACZ,wBADiB,GACc,2BAAF,GAC7B,mBADkC,GACV,2BAAF,GACtB,6BAD2B,GACS,2BAAF,GAClC,yBADuC,GACT,2BAAF,GAC5B,OADiC,GACvB,2BAAF,GACR,KADa,GACL,2BAAF,GAAO,2BAAF,GAEX,WAFgB,GAEF,2BAAF,GACZ,wBADiB,GACc,2BAAF,GAC7B,iBADkC,GACZ,2BAAF,GACpB,MADyB,GAChB,2BAAF,GAEP,UAFY,GAEC,2BAAF,GACX,YADgB,GACC,mCAAF,GAAe,uBAAF,GAA4B,2BAAF,GACtD,qBAD2D,GAC/B,2BAAF,GAC1B,qBAD+B,GACL,2BAAF,GACxB,iBAD6B,GACP,2BAAF,GACpB,uBADyB,GACG,mCAAF,GAAe,uCAAF,GAA4C,2BAAF,GACjF,QADsF,GAC3E,2BAAF,GACT,gBADc,GACO,2BAAF,GACnB,sBADwB,GACG,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAC3D,0BADgE,GACjC,mCAAF,GAAe,oBAAF,GAAyB,2BAAF,GACjE,wBADsE,GACzC,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAC7D,OADkE,GACxD,2BAAF,GACR,KADa,GACL,2BAAF,GAAO,2BAAF,GAEX,SAFgB,GAEJ,uCAAF,GAAmB,IAAF,GAAS,2BAAF,GAClC,gBADuC,GACpB,2BAAF,GACjB,mCADsB,GACgB,2BAAF,GACpC,MADyC,GAChC,+BAAF,GAAW,gBAAF,GAAqB,2BAAF,GACnC,cADwC,GACvB,2BAAF,GACf,iCADoB,GACgB,2BAAF,GAClC,oCADuC,GACA,2BAAF,GACrC,kCAD0C,GACL,2BAAF,GACnC,MADwC,GAC/B,+BAAF,GAAW,gBAAF,GAAqB,2BAAF,GACnC,MADwC,GAC/B,+BAAF,GAAW,gBAAF,GAAqB,2BAAF,GACnC,cADwC,GACvB,2BAAF,GACf,OADoB,GACV,2BAAF,GAER,eAFa,GAEK,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,sCAAF,GAA6C,2BAAF,GAC7D,6BADkE,GAClC,2BAAF,GAC9B,UADmC,GACtB,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACjG,UADsG,GACzF,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,yCAAF,GAAgD,2BAAF,GAChE,6BADqE,GACrC,2BAAF,GAC9B,UADmC,GACtB,qCAAF,GAAiB,4CAAF,GAAiD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACpG,UADyG,GAC5F,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,4CAAF,GAAmD,2BAAF,GACnE,6BADwE,GACxC,2BAAF,GAC9B,UADmC,GACtB,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACtG,UAD2G,GAC9F,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,wCAAF,GAA+C,2BAAF,GAC/D,6BADoE,GACpC,2BAAF,GAC9B,UADmC,GACtB,qCAAF,GAAiB,2CAAF,GAAgD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACnG,UADwG,GAC3F,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,0CAAF,GAAiD,2BAAF,GACjE,6BADsE,GACtC,2BAAF,GAC9B,UADmC,GACtB,qCAAF,GAAiB,6CAAF,GAAkD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACrG,UAD0G,GAC7F,2BAAF,GAAO,2BAAF,GAChB,OADqB,GACX,+BAAF,GAAW,yCAAF,GAAgD,2BAAF,GAC/D,6BADoE,GACpC,2BAAF,GAC9B,UADmC,GACtB,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACtG,UAD2G,GAC9F,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,0CAAF,GAAiD,2BAAF,GACjE,6BADsE,GACtC,2BAAF,GAC9B,UADmC,GACtB,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACtG,UAD2G,GAC9F,2BAAF,GACX,OADgB,GACN,2BAAF,GAAO,2BAAF,GAEb,sBAFkB,GAEO,2BAAF,GACvB,QAD4B,GACjB,+BAAF,GAAW,sCAAF,GAA6C,2BAAF,GAC7D,6BADkE,GAClC,2BAAF,GAC9B,UADmC,GACtB,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACjG,UADsG,GACzF,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,4CAAF,GAAmD,2BAAF,GACnE,6BADwE,GACxC,2BAAF,GAC9B,UADmC,GACtB,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACtG,UAD2G,GAC9F,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,yCAAF,GAAgD,2BAAF,GAChE,6BADqE,GACrC,2BAAF,GAC9B,UADmC,GACtB,qCAAF,GAAiB,4CAAF,GAAiD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACpG,UADyG,GAC5F,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,wCAAF,GAA+C,2BAAF,GAC/D,6BADoE,GACpC,2BAAF,GAC9B,UADmC,GACtB,qCAAF,GAAiB,2CAAF,GAAgD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACnG,UADwG,GAC3F,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,0CAAF,GAAiD,2BAAF,GACjE,6BADsE,GACtC,2BAAF,GAC9B,UADmC,GACtB,qCAAF,GAAiB,6CAAF,GAAkD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACrG,UAD0G,GAC7F,2BAAF,GAAO,2BAAF,GAChB,OADqB,GACX,+BAAF,GAAW,yCAAF,GAAgD,2BAAF,GAC/D,6BADoE,GACpC,2BAAF,GAC9B,UADmC,GACtB,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACtG,UAD2G,GAC9F,2BAAF,GAAO,2BAAF,GAChB,QADqB,GACV,+BAAF,GAAW,0CAAF,GAAiD,2BAAF,GACjE,6BADsE,GACtC,2BAAF,GAC9B,UADmC,GACtB,qCAAF,GAAiB,8CAAF,GAAmD,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACtG,UAD2G,GAC9F,2BAAF,GACX,OADgB,GACN,2BAAF,GAAO,2BAAF,GAEb,0BAFkB,GAEI,2BAAF,GAAO,2BAAF,GAEzB,UAF8B,GAEjB,2BAAF,GACX,eADgB,GACE,2BAAF,GAChB,kBADqB,GACA,+BAAF,GAAW,mBAAF,GAAwB,2BAAF,GAClD,iBADuD,GACnC,2BAAF,GAClB,UADuB,GACV,+BAAF,GAAW,4CAAF,GAAmD,mCAAF,GAAe,yCAAF,GAA8C,2BAAF,GAC9H,UADmI,GACtH,+BAAF,GAAW,0CAAF,GAAiD,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GACpG,UADyG,GAC5F,+BAAF,GAAW,4CAAF,GAAmD,mCAAF,GAAe,mBAAF,GAAwB,2BAAF,GACxG,UAD6G,GAChG,+BAAF,GAAW,kCAAF,GAAuC,2BAAF,GACzD,SAD8D,GAClD,2BAAF,GACV,OADe,GACL,2BAAF,GAER,eAFa,GAEK,2BAAF,GAChB,kBADqB,GACA,+BAAF,GAAW,mBAAF,GAAwB,2BAAF,GAClD,iBADuD,GACnC,2BAAF,GAClB,UADuB,GACV,+BAAF,GAAW,4CAAF,GAAmD,mCAAF,GAAe,yCAAF,GAA8C,2BAAF,GAC9H,UADmI,GACtH,+BAAF,GAAW,0CAAF,GAAiD,mCAAF,GAAe,mBAAF,GAAwB,2BAAF,GACtG,UAD2G,GAC9F,+BAAF,GAAW,4CAAF,GAAmD,mCAAF,GAAe,qBAAF,GAA0B,2BAAF,GAC1G,UAD+G,GAClG,+BAAF,GAAW,0CAAF,GAAiD,mCAAF,GAAe,mBAAF,GAAwB,2BAAF,GACtG,UAD2G,GAC9F,+BAAF,GAAW,kCAAF,GAAuC,2BAAF,GACzD,SAD8D,GAClD,2BAAF,GACV,OADe,GACL,2BAAF,GACR,KADa,GACL,2BAAF,GAEN,IAFW,GAEJ,uCAAF,GAAmB,KAAF,GAAU,mCAAF,GAAe,QAAF;AAxLpB;AAAyB;AA0ML;AAApB;AAEzB,iBACE,cAO6E,GAP5D,+BAAF,GAAW,YAAF,GAAiB,uCAAF,GAAmB,iBAAF,GAAsB,2BAAF,GAC5E,aADiF,GACjE,2BAAF,GACd,MADmB,GACV,+BAAF,GAAW,eAAF,GAAoB,uCAAF,GAAmB,iBAAF,GAAsB,2BAAF,GACvE,KAD4E,GACpE,2BAAF,GAEN,cAFW,GAEM,+BAAF,GAAW,YAAF,GAAiB,uCAAF,GAAmB,kBAAF,GAAuB,2BAAF,GAC7E,aADkF,GAClE,2BAAF,GACd,MADmB,GACV,+BAAF,GAAW,eAAF,GAAoB,uCAAF,GAAmB,kBAAF,GAAuB,2BAAF,GACxE,KAD6E;AAVtD;AAAoB;AA4XL;AAAf;AAEzB,iBACE,cAEc,GAFG,mCAAF,GAAe,8BAAF,GAAmC,mCAAF,GAAe,6BAAF,GAAkC,2BAAF,GAC1G,cAD+G,GAC9F,mCAAF,GAAe,8BAAF,GAAmC,mCAAF,GAAe,6BAAF,GAAkC,2BAAF,GAC1G,IAD+G,GACxG,+BAAF,GAAW,sCAAF;AALS;AAAe;AA9WH;AAAZ;AAEzB,iBACE,cAGoE,GAHnD,+BAAF,GAAW,eAAF,GAAoB,2BAAF,GAC1C,8DAD+C,GACkB,2BAAF,GAC/D,+DADoE,GACF,2BAAF,GAChE,8DADqE,GACJ,2BAAF,GAC/D,+DADoE;AAN7C;AAAY;AAmTU;AAAtB;AAEzB,iBAAU,IAA8F,GAAvF,+BAAF,GAAW,gCAAF,GAAqC,mCAAF,GAAe,gBAAF,GAAqB,mCAAF,GAAe,kBAAF;AAF/E;AAAsB;AAzSA;AAAtB;AAEzB,iBACE,cACwC,GADvB,+BAAF,GAAW,eAAF,GAAoB,2BAAF,GAC1C,kCAD+C,GACV,2BAAF,GACnC,mCADwC;AAJjB;AAAsB;AA0BP;AAAf;AAEzB,iBAAU,YAAsB,GAAP,+BAAF,GAAW,aAAF;AAFP;AAAe;AAoRA;AAAf;AAEzB,iBAAU,IAAyC,GAAlC,+BAAF,GAAW,WAAF,GAAgB,mCAAF,GAAe,IAAF;AAF1B;AAAe;AAtSF;AAAb;AAEzB,iBACE,sBAE6C,GAFpB,mCAAF,GAAe,iBAAF,GAAsB,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACxF,gBAD6F,GAC1E,+BAAF,GAAU,uBAAD,GAA2B,2BAAF,GACnD,uCADwD,GACd,2BAAF,GACxC,uCAD6C;AALtB;AAAa;AASA;AAAb;AAEzB,iBACE,iBAE2D,GAFvC,mCAAF,GAAe,SAAF,GAAc,mCAAF,GAAe,SAAF,GAAc,2BAAF,GACpE,qBADyE,GACjD,+BAAF,GAAU,oBAAD,GAAwB,2BAAF,GACrD,qDAD0D,GACF,2BAAF,GACtD,sDAD2D;AALpC;AAAa;AAySG;AAAhB;AAEzB,iBAAU,MAKkC,GAJ1C,IADe,GACR,wBAAF,GAAuB,0BAAF,GAA+B,2BAAF,GACvD,kCAD4D,GACvB,2BAAF,GACnC,MADwC,GAC/B,+BAAF,GAAW,wBAAF,GAA6B,2BAAF,GAC3C,KADgD,GACxC,2BAAF,GACN,IADW,GACJ,wBAAF,GAAuB,QAAF,GAAa,2BAAF,GAAO,2BAAF;AAE5C,iBAAU,MAIG,GAHX,QADe,GACJ,mCAAF,GAAe,uBAAF,GAA4B,2BAAF,GAChD,MADqD,GAC5C,+BAAF,GAAW,cAAF,GAAmB,uBAAF,GAAsB,IAAF,GAAS,2BAAF,GAC5D,MADiE,GACxD,wBAAF,GAAuB,QAAF,GAAa,uBAAF,GAAsB,IAAF,GAAS,2BAAF,GAClE,KADuE,GAC/D,2BAAF,GAAO,2BAAF;AAEb,iBAAU,MAMG,GALX,QADe,GACJ,mCAAF,GAAe,sBAAF,GAA2B,2BAAF,GAC/C,MADoD,GAC3C,+BAAF,GAAW,4BAAF,GAAiC,2BAAF,GAC/C,KADoD,GAC5C,2BAAF,GACN,SADW,GACC,2BAAF,GACV,MADe,GACN,+BAAF,GAAW,6BAAF,GAAkC,2BAAF,GAChD,KADqD,GAC7C,2BAAF,GAAO,2BAAF;AAEb,iBAAU,MAMG,GALX,QADe,GACJ,mCAAF,GAAe,yBAAF,GAA8B,2BAAF,GAClD,MADuD,GAC9C,+BAAF,GAAW,uBAAF,GAA4B,2BAAF,GAC1C,KAD+C,GACvC,2BAAF,GACN,SADW,GACC,2BAAF,GACV,MADe,GACN,+BAAF,GAAW,wBAAF,GAA6B,2BAAF,GAC3C,KADgD,GACxC,2BAAF,GAAO,2BAAF;AAEb,iBAAU,MAMG,GALX,QADe,GACJ,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GACxC,MAD6C,GACpC,+BAAF,GAAW,oBAAF,GAAyB,2BAAF,GACvC,KAD4C,GACpC,2BAAF,GACN,SADW,GACC,2BAAF,GACV,MADe,GACN,+BAAF,GAAW,qBAAF,GAA0B,2BAAF,GACxC,KAD6C,GACrC,2BAAF,GAAO,2BAAF;AAEb,iBAAU,MAAoH,GAA3G,IAAF,GAAS,+BAAF,GAAW,qEAAF,GAAkF,mCAAF,GAAe,sBAAF;AAvCrG;AAAgB;AA3RE;AAAlB;AAEzB,iBACE,2BA0GkE,GA1GpC,2BAAF,GAC5B,MADiC,GACxB,uBAAF,GAAsB,GAAF,GAAQ,2BAAF,GACjC,MADsC,GAC7B,wBAAF,GAAuB,QAAF,GAAa,2BAAF,GACvC,oDAD4C,GACe,2BAAF,GACzD,iDAD8D,GACR,2BAAF,GACpD,8CADyD,GACJ,2BAAF,GACnD,gBADwD,GACrC,2BAAF,GACjB,gBADsB,GACH,2BAAF,GACjB,uEADsB,GAEtB,qBADwE,GAChD,+BAAF,GAAW,eAAF,GAAoB,2BAAF,GACjD,6BADsD,GACtB,2BAAF,GAC9B,6BADmC,GACH,2BAAF,GAC9B,8CADmC,GACkB,2BAAF,GACnD,uBADwD,GAC9B,2BAAF,GACxB,0CAD6B,GACgB,2BAAF,GAC3C,0BADgD,GACnB,2BAAF,GAC3B,0BADgC,GACH,2BAAF,GAC3B,0BADgC,GACH,2BAAF,GAC3B,OADgC,GACtB,2BAAF,GACR,WADa,GACC,2BAAF,GACZ,0BADiB,GACY,2BAAF,GAC3B,8EADgC,GACqD,2BAAF,GACnF,4BADwF,GACzD,2BAAF,GAC7B,SADkC,GACtB,2BAAF,GACV,yBADe,GACa,2BAAF,GAC1B,4BAD+B,GACA,2BAAF,GAC7B,4BADkC,GACH,2BAAF,GAC7B,SADkC,GACtB,2BAAF,GACV,OADe,GACL,2BAAF,GACR,KADa,GACL,2BAAF,GAEN,kFAFW,GAEoF,2BAAF,GAC7F,aADkG,GAClF,2BAAF,GACd,GADmB,GACb,2BAAF,GAAO,2BAAF,GAET,+BAFc,GAEoB,2BAAF,GAChC,uBADqC,GACX,2BAAF,GACxB,2BAD6B,GACC,2BAAF,GAC5B,aADiC,GACjB,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC7D,GADkE,GAC5D,2BAAF,GAAO,2BAAF,GACT,6BADc,GACkB,2BAAF,GAC9B,uBADmC,GACT,2BAAF,GACxB,2BAD6B,GACC,2BAAF,GAC5B,aADiC,GACjB,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GAC3D,GADgE,GAC1D,2BAAF,GAAO,2BAAF,GAET,2BAFc,GAEgB,2BAAF,GAC5B,uBADiC,GACP,2BAAF,GACxB,2BAD6B,GACC,2BAAF,GAC5B,aADiC,GACjB,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,kCAAF,GAAuC,2BAAF,GACzD,GAD8D,GACxD,2BAAF,GAAO,2BAAF,GAET,gCAFc,GAEqB,2BAAF,GACjC,uBADsC,GACZ,2BAAF,GACxB,2BAD6B,GACC,2BAAF,GAC5B,aADiC,GACjB,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,uCAAF,GAA4C,2BAAF,GAC9D,GADmE,GAC7D,2BAAF,GAAO,2BAAF,GAET,8BAFc,GAEmB,2BAAF,GAC/B,uBADoC,GACV,2BAAF,GACxB,2BAD6B,GACC,2BAAF,GAC5B,aADiC,GACjB,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,qCAAF,GAA0C,2BAAF,GAC5D,GADiE,GAC3D,2BAAF,GAAO,2BAAF,GACT,+BADc,GACoB,2BAAF,GAChC,uBADqC,GACX,2BAAF,GACxB,2BAD6B,GACC,2BAAF,GAC5B,aADiC,GACjB,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC7D,GADkE,GAC5D,2BAAF,GAAO,2BAAF,GACT,6BADc,GACkB,2BAAF,GAC9B,uBADmC,GACT,2BAAF,GACxB,2BAD6B,GACC,2BAAF,GAC5B,aADiC,GACjB,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GAC3D,GADgE,GAC1D,2BAAF,GAAO,2BAAF,GACT,gCADc,GACqB,2BAAF,GACjC,uBADsC,GACZ,2BAAF,GACxB,2BAD6B,GACC,2BAAF,GAC5B,aADiC,GACjB,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,uCAAF,GAA4C,2BAAF,GAC9D,GADmE,GAC7D,2BAAF,GAAO,2BAAF,GACT,gCADc,GACqB,2BAAF,GACjC,uBADsC,GACZ,2BAAF,GACxB,2BAD6B,GACC,2BAAF,GAC5B,aADiC,GACjB,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC7D,GADkE,GAC5D,2BAAF,GAAO,2BAAF,GACT,+BADc,GACoB,2BAAF,GAChC,uBADqC,GACX,2BAAF,GACxB,2BAD6B,GACC,2BAAF,GAC5B,aADiC,GACjB,2BAAF,GACd,KADmB,GACX,2BAAF,GACN,IADW,GACJ,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC7D,GADkE;AA7G3C;AAAkB;AArWK;AAAvB;AAEzB,iBAAU,IAAoF,GAA7E,2CAAF,GAAuB,SAAF,GAAc,mCAAF,GAAe,iBAAF,GAAsB,mCAAF,GAAe,iBAAF;AAFrE;AAAuB;AAKN;AAAjB;AAEzB,iBAAU;AAFe;AAAiB;AAweW;AAA5B;AAEzB,iBAAU;AAFe;AAA4B;AAKL;AAAvB;AAEzB,iBAAU;AAFe;AAAuB;AAgMhB;AAAP;AACtB;AAD6B;AAEhC,mBAAW,mCAAc,YAAW,KAAG,EAAH;AAFJ;AAC7B;AAD6B;AAAP;AAAO;AAvrBK;AAClC;AADkC;AAErC,2BAAW,YAAY,CAAC,0EAAD;AAFc;AAClC;AADkC;;AAVH;AAElC;AAFmC;AAAD;AAKA;AAElC;AAFkC;AAzEjB;;;;AAuCjB;AAGY,yBAAG;AACF,0BAAG;AACC,8BAAG;AACF,+BAAG;AA1FT;AAhBd,GAgBc,6JAhBd;ACAA,uCAWS,UAXT;;;;AAce,uBAAG;AAoFa;AAE7B,QAAG,CAAI,oDAA2B,UAAQ,0BAAwB,CAAC,oEAAoC,CAAC,UAAD;eAAA,MAAC;AAAD;;QAArC,CAAlE;AAEE,uCAAuC,eAAxB,8BAAwB,QAAC,8DAAD,EAAvC;AACA,0DAA2B,UAAQ,mBAAmB,CAAC,oEAA0B,iBAA3B;KAHxD;AAF6B;AASE;AAE/B,wDAA2B,UAAQ,sBAAsB,CAAC,mEAAD;AAF1B;AA3GjC,mBAmBc;AAyBY;AAFO;;;;;AAEP;AAsEoB;AAAZ;AAC7B;AADyC;AAE5C,uCAA2B,eAAjB,uBAAiB,QAAC,uDAAD,EAA3B;AADG;AADyC;AACzC;AADyC;AAAZ;AAAY;AAtEpB;;;;AAQP;;AAkbqB;AAGtC,aAAK,MAAI,CAAC,wCAAe,QAAC,gBAAY,CAAC,kBAAgC,GAAjB,sBAAF,GAAqB,YAAF,CAAgB,kBAAmB,QR3NH,GAAsB,MAAyB,KQ2NhH,CAAZ,CAAjB;AAH6B;AA0IC;AAIzC;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAtByC;AAreH;AAAX;AAEzB,iBAAU;AAFe;AAAW;AAmBC;AAAZ;AAEzB,iBACE,cAiB2B,GAjBV,mCAAF,GAAe,SAAF,GAAc,2BAAF,GACxC,iBAD6C,GACzB,kBAAF,GAAkB,cAAF,GAAmB,mCAAF,GAAe,gBAAF,GAAqB,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GACpH,qDADyH,GACjE,2BAAF,GAEtD,8CAF2D,GAEV,2BAAF,GAC/C,+BADoD,GAChB,2BAAF,GAClC,cADuC,GACtB,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC1C,6HAD+C,GACiF,2BAAF,GAC9H,iBADmI,GAC/G,2BAAF,GAClB,QADuB,GACZ,2BAAF,GACT,MADc,GACL,iCAAF,GAAa,SAAF,GAAc,kBAAF,GAAkB,+BAAF,GAAoC,2BAAF,GAChF,MADqF,GAC5E,+BAAF,GAAW,iBAAF,GAAsB,iCAAF,GAAa,IAAF,GAAS,2BAAF,GAEtD,uEAF2D,GAEiB,2BAAF,GAC1E,mCAD+E,GACzC,2BAAF,GACpC,QADyC,GAC9B,+BAAF,GAAW,oBAAF,GAAyB,iCAAF,GAAa,IAAF,GAAS,2BAAF,GAC3D,sBADgE,GACvC,2BAAF,GACvB,qBAD4B,GACJ,2BAAF,GACtB,QAD2B;AApBJ;AAAY;AA0KC;AAAb;AAEzB,iBAAU,IAAgD,GAAzC,+BAAF,GAAW,oBAAF,GAAyB,iCAAF,GAAa,IAAF;AAFjC;AAAa;AAoKD;AAAZ;AAEzB,iBAEE,WAyCyB,GAzCX,2BAAF,GACZ,8BADiB,GACgB,2BAAF,GACjC,uBADsC,GACZ,2BAAF,GACxB,gCAD6B,GACM,2BAAF,GACjC,0BADsC,GACT,2BAAF,GAC3B,iCADgC,GACI,2BAAF,GAClC,uBADuC,GACb,2BAAF,GACxB,wBAD6B,GACF,2BAAF,GACzB,sBAD8B,GACL,2BAAF,GACrB,4BAD0B,GACK,2BAAF,GAC7B,GADkC,GAC5B,2BAAF,GACJ,mBADS,GACa,2BAAF,GACpB,+BADyB,GACS,2BAAF,GAChC,gBADqC,GAClB,2BAAF,GACjB,mBADsB,GACA,2BAAF,GACpB,iBADyB,GACL,2BAAF,GAClB,gBADuB,GACJ,2BAAF,GACjB,uBADsB,GACI,2BAAF,GACxB,mBAD6B,GACP,2BAAF,GACpB,cADyB,GACR,2BAAF,GACf,eADoB,GACF,2BAAF,GAChB,wCADqB,GACsB,2BAAF,GACzC,8CAD8C,GACE,2BAAF,GAC9C,4CADmD,GACJ,2BAAF,GAC7C,2CADkD,GACJ,2BAAF,GAC5C,gDADiD,GACE,2BAAF,GACjD,wDADsD,GACK,2BAAF,GACzD,GAD8D,GACxD,2BAAF,GACJ,oBADS,GACc,2BAAF,GACrB,8BAD0B,GACO,2BAAF,GAC/B,uBADoC,GACV,2BAAF,GACxB,eAD6B,GACX,2BAAF,GAChB,uBADqB,GACK,2BAAF,GACxB,GAD6B,GACvB,2BAAF,GACJ,oBADS,GACc,2BAAF,GACrB,0BAD0B,GACG,2BAAF,GAC3B,uBADgC,GACN,2BAAF,GACxB,aAD6B,GACb,2BAAF,GACd,eADmB,GACD,2BAAF,GAChB,GADqB,GACf,2BAAF,GACJ,0BADS,GACoB,2BAAF,GAC3B,mBADgC,GACV,2BAAF,GACpB,GADyB;AA7CF;AAAY;AA/JK;AAAjB;AAEzB,iBAAU;AAFe;AAAiB;AAvME;AAAnB;AAEzB,iBAAU,GAAI,GAAE,kBAAF;AAFW;AAAmB;AAuZN;AAAb;AAEzB,iBAAU;AAFe;AAAa;AAsDG;AAAhB;AAEzB;AACG;AAHsC;AAIzC,cAAK;AACL,mBACE,IAeoJ,GAf7I,CAAF,GAAM,SAAF,GAAc,2BAAF,GACrB,iBAD0B,GACL,mCAAc,WR3We,qEQ2W/B,GAA6B,IAAF,GAAU,2BAAF,GACtD,6CAD2D,GACX,2BAAF,GAC9C,cADmD,GAClC,mCAAc,YAAhB,GAA6B,KAAF,GAAU,2BAAF,GAClD,QADuD,GAC5C,2BAAF,GACT,OADc,GACJ,2BAAF,GAAO,2BAAF,GAEb,IAFkB,GAEX,+BAAF,GAAW,SAAF,GAAc,kBAAF,GAAkB,QAAF,GAAa,8BAAF,GAAU,KAAF,GAAU,2BAAF,GACrE,iBAD0E,GACtD,kBAAF,GAAkB,cAAF,GAAmB,mCAAc,qBAAhB,GAAsC,IAAF,GAAS,mCAAc,sBAAhB,GAAuC,IAAF,GAAS,2BAAF,GAC1I,IAD+I,GACxI,+BAAF,GAAW,eAAF,GAAoB,2BAAF,GAChC,oBADqC,GACd,qBAAQ,CAAC,QAAD,CAAV,GAA8B,kBAAF,GAAuB,mCAAc,sBAAhB,GAAuC,KAAF,GAAU,2BAAF,GACnH,IADwH,GACjH,+BAAF,GAAW,8BAAF,GAAmC,2BAAF,GAC/C,IADoD,GAC7C,+BAAF,GAAW,qBAAF,GAA0B,+CAAW,CAAC,mCAAc,aAAf,CAAb,GAA2C,GAAF,GAAQ,2BAAF,GACrF,IAD0F,GACnF,+BAAF,GAAW,yBAAF,GAA8B,+CAAW,CAAC,mCAAc,wBAAf,CAAb,GAAsD,GAAF,GAAQ,2BAAF,GACpG,IADyG,GAClG,+BAAF,GAAW,sBAAF,GAA2B,+CAAW,CAAC,mCAAc,qBAAf,CAAb,GAAmD,GAAF,GAAQ,2BAAF,GAC9F,IADmG,GAC5F,+BAAF,GAAW,qBAAF,GAA0B,+CAAW,CAAC,mCAAc,oBAAf,CAAb,GAAkD,QAAF,GAAa,+CAAW,CAAC,oCAAc,uBAAf,CAAb,GAAqD,KAAF;AArB7G;AAGtC;AAHsC;AAAhB;AAAgB;AAvCG;AAAnB;AAEzB,iBACE,IAgCqE,GAhC9D,+BAAF,GAAW,2CAAF,GAAkD,2BAAF,GAC9D,MADmE,GAC1D,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GAC7D,MADkE,GACzD,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,kDAAF,GAAyD,2BAAF,GACrE,MAD0E,GACjE,qCAAF,GAAiB,uCAAF,GAA4C,2BAAF,GAChE,MADqE,GAC5D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,oDAAF,GAA2D,2BAAF,GACvE,MAD4E,GACnE,qCAAF,GAAiB,2CAAF,GAAgD,+BAAF,GAAU,aAAD,GAAiB,2BAAF,GAC5F,MADiG,GACxF,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,oDAAF,GAA2D,2BAAF,GACvE,MAD4E,GACnE,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC/D,MADoE,GAC3D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,kDAAF,GAAyD,2BAAF,GACrE,MAD0E,GACjE,qCAAF,GAAiB,oCAAF,GAAyC,2BAAF,GAC7D,MADkE,GACzD,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,kDAAF,GAAyD,2BAAF,GACrE,MAD0E,GACjE,qCAAF,GAAiB,kCAAF,GAAuC,2BAAF,GAC3D,MADgE,GACvD,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,qDAAF,GAA4D,2BAAF,GACxE,IAD6E,GACtE,+BAAF,GAAW,6BAAF,GAAkC,2BAAF,GAC9C,IADmD,GAC5C,+BAAF,GAAW,0BAAF,GAA+B,2BAAF,GAC3C,MADgD,GACvC,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,kDAAF,GAAyD,2BAAF,GACrE,MAD0E,GACjE,qCAAF,GAAiB,qCAAF,GAA0C,2BAAF,GAC9D,MADmE,GAC1D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,yDAAF,GAAgE,2BAAF,GAC5E,MADiF,GACxE,qCAAF,GAAiB,sCAAF,GAA2C,2BAAF,GAC/D,MADoE,GAC3D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,yDAAF,GAAgE,2BAAF,GAC5E,MADiF,GACxE,qCAAF,GAAiB,uCAAF,GAA4C,2BAAF,GAChE,MADqE,GAC5D,2BAAF,GAAO,2BAAF,GACZ,IADiB,GACV,+BAAF,GAAW,wDAAF,GAA+D,2BAAF,GAC3E,MADgF,GACvE,qCAAF,GAAiB,uCAAF,GAA4C,2BAAF,GAChE,MADqE;AAnC9C;AAAmB;AAtVC;AAApB;AAEzB,iBACE,iBAqB2E,GArBvD,kBAAF,GAAkB,cAAF,GAAmB,mCAAF,GAAe,gBAAF,GAAqB,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GAEpH,qBAFyH,GAEjG,gDAAF,GAA4B,GAAF,GAC9C,mCADoD,GACvC,kBAAF,GAAuB,2BAAF,GAChC,mCADqC,GACxB,eAAF,GAAoB,2BAAF,GAE/B,SAFoC,GAExB,kCAAF,GAAc,IAAF,GAAS,2BAAF,GAC7B,4BADkC,GACH,2BAAF,GAC7B,MADkC,GACzB,kCAAF,GAAc,SAAF,GAAc,kBAAF,GAAkB,iCAAF,GAAsC,mCAAF,GAAe,sBAAF,GAA2B,mCAAF,GAAe,2BAAF,GAAgC,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GACnM,eADwM,GACtL,2BAAF,GAChB,MADqB,GACZ,kCAAF,GAAc,SAAF,GAAc,kBAAF,GAAkB,gCAAF,GAAqC,mCAAF,GAAe,sBAAF,GAA2B,mCAAF,GAAe,2BAAF,GAAgC,mCAAF,GAAe,oCAAF,GAAyC,2BAAF,GACvN,OAD4N,GAClN,2BAAF,GACR,MADa,GACJ,kCAAF,GAAc,8CAAF,GAAqD,2BAAF,GACtE,MAD2E,GAClE,qCAAF,GAAiB,oCAAF,GAAyC,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACxF,QAD6F,GAClF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,+BAAF,GAAW,iBAAF,GAAsB,kCAAF,GAAc,IAAF,GAAS,2BAAF,GACvD,YAD4D,GAC7C,2BAAF,GACb,MADkB,GACT,kCAAF,GAAc,mBAAF,GAAwB,2BAAF,GACzC,MAD8C,GACrC,kCAAF,GAAc,WAAF,GAAgB,mCAAF,GAAe,YAAF,GAAiB,2BAAF,GAC7D,MADkE,GACzD,kCAAF,GAAc,aAAF,GAAkB,mCAAF,GAAe,cAAF,GAAmB,2BAAF,GACjE,SADsE,GAC1D,mCAAF,GAAe,oBAAF,GAAyB,2BAAF,GAC9C,QADmD,GACxC,kCAAF,GAAc,cAAF,GAAmB,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACtE,KAD2E;AAxBpD;AAAoB;AA4HL;AAAf;AAEzB,iBAAU,IAAiD,GAA1C,+BAAF,GAAW,oBAAF,GAAyB,kCAAF,GAAc,IAAF;AAFlC;AAAe;AAhGU;AAAzB;AAEzB,iBACE,YAgFyE,GAhF1D,mCAAF,GAAe,YAAF,GAAiB,2BAAF,GACzC,gBAD8C,GAC5B,2BAAF,GAEhB,cAFqB,GAEJ,2BAAF,GACf,kCADoB,GACiB,2BAAF,GACnC,gCADwC,GACL,2BAAF,GACjC,+BADsC,GACJ,2BAAF,GAChC,sBADqC,GACZ,kBAAF,GAAmB,UAAF,GAAe,2BAAF,GACrD,uBAD0D,GAChC,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAC1D,yBAD+D,GACnC,mCAAF,GAAe,oBAAF,GAAyB,2BAAF,GAC9D,qBADmE,GAC3C,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GACxD,qBAD6D,GACrC,mCAAF,GAAe,gBAAF,GAAqB,2BAAF,GACtD,uBAD2D,GACjC,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAC1D,8BAD+D,GAC9B,2BAAF,GAC/B,WADoC,GACtB,2BAAF,GAAO,2BAAF,GACjB,YADsB,GACP,2BAAF,GACb,iCADkB,GACkB,2BAAF,GAClC,sBADuC,GACd,kBAAF,GAAmB,UAAF,GAAe,2BAAF,GACrD,uBAD0D,GAChC,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAC1D,yBAD+D,GACnC,mCAAF,GAAe,oBAAF,GAAyB,2BAAF,GAC9D,qBADmE,GAC3C,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GACxD,WAD6D,GAC/C,2BAAF,GAAO,2BAAF,GACjB,YADsB,GACP,2BAAF,GACb,KADkB,GACV,2BAAF,GAAO,2BAAF,GAEX,mCAFgB,GAEsB,2BAAF,GACpC,0CADyC,GACI,2BAAF,GAC3C,qBADgD,GACxB,kBAAF,GAAmB,sCAAF,GAA2C,2BAAF,GAChF,SADqF,GACzE,2BAAF,GACV,KADe,GACP,2BAAF,GAEN,cAFW,GAEM,2BAAF,GACf,kCADoB,GACiB,2BAAF,GACnC,qBADwC,GAChB,2CAAF,GAAuB,GAAF,GAAQ,2BAAF,GACjD,qBADsD,GAC9B,mCAAF,GAAe,uCAAF,GAA4C,mCAAF,GAAe,yCAAF,GAA8C,2BAAF,GACtI,qBAD2I,GACnH,mCAAF,GAAe,uCAAF,GAA4C,mCAAF,GAAe,yCAAF,GAA8C,2BAAF,GACtI,qBAD2I,GACnH,mCAAF,GAAe,uCAAF,GAA4C,mCAAF,GAAe,yCAAF,GAA8C,2BAAF,GACtI,qBAD2I,GACnH,mCAAF,GAAe,uCAAF,GAA4C,mCAAF,GAAe,yCAAF,GAA8C,2BAAF,GACtI,iDAD2I,GACvF,2BAAF,GAClD,qBADuD,GAC/B,kBAAF,GAAmB,kCAAF,GAAuC,2BAAF,GAC5E,WADiF,GACnE,2BAAF,GACZ,YADiB,GACF,2BAAF,GACb,iCADkB,GACkB,2BAAF,GAClC,mCADuC,GACD,2CAAF,GAAuB,IAAF,GAAS,2BAAF,GAChE,YADqE,GACtD,2BAAF,GACb,gCADkB,GACiB,2BAAF,GACjC,wBADsC,GACX,2BAAF,GACzB,kCAD8B,GACO,2CAAF,GAAuB,KAAF,GAAU,2BAAF,GAChE,wBADqE,GAC1C,qCAAF,GAAiB,IAAF,GAAS,2BAAF,GAC/C,oCADoD,GACb,qCAAF,GAAiB,UAAF,GAAe,2BAAF,GACjE,SADsE,GAC1D,2BAAF,GACV,YADe,GACA,2BAAF,GACb,+BADkB,GACgB,2BAAF,GAChC,wBADqC,GACV,kBAAF,GAAmB,cAAF,GAAmB,mCAAF,GAAe,0BAAF,GAA+B,mCAAF,GAAe,2BAAF,GAClH,YADgJ,GACjI,2BAAF,GACb,KADkB,GACV,2BAAF,GAAO,2BAAF,GAEX,SAFgB,GAEJ,uCAAF,GAAmB,IAAF,GAAS,2BAAF,GAClC,gBADuC,GACpB,2BAAF,GACjB,mCADsB,GACgB,2BAAF,GACpC,UADyC,GAC5B,uCAAF,GAAmB,SAAF,GAAc,kBAAF,GAAkB,+CAAF,GAAoD,2BAAF,GAC1G,cAD+G,GAC9F,2BAAF,GACf,kCADoB,GACiB,2BAAF,GACnC,oCADwC,GACD,2BAAF,GACrC,UAD0C,GAC7B,uCAAF,GAAmB,SAAF,GAAc,kBAAF,GAAkB,8CAAF,GAAmD,2BAAF,GACzG,cAD8G,GAC7F,2BAAF,GACf,iCADoB,GACgB,2BAAF,GAClC,UADuC,GAC1B,uCAAF,GAAmB,SAAF,GAAc,kBAAF,GAAkB,wBAAF,GAA6B,mCAAF,GAAe,kCAAF,GAAuC,2BAAF,GACrI,cAD0I,GACzH,2BAAF,GACf,OADoB,GACV,2BAAF,GACR,MADa,GACJ,uCAAF,GAAmB,gBAAF,GAAqB,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACtE,MAD2E,GAClE,uCAAF,GAAmB,8CAAF,GAAqD,2BAAF,GAC3E,MADgF,GACvE,qCAAF,GAAiB,yCAAF,GAA8C,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GAC7F,QADkG,GACvF,2BAAF,GAAO,2BAAF,GACd,MADmB,GACV,+BAAF,GAAW,cAAF,GAAmB,uCAAF,GAAmB,IAAF,GAAS,2BAAF,GAEzD,UAF8D,GAEjD,2BAAF,GACX,MADgB,GACP,uCAAF,GAAmB,mBAAF,GAAwB,2BAAF,GAC9C,KADmD,GAC3C,2BAAF,GAAO,2BAAF,GAEX,IAFgB,GAET,uCAAF,GAAmB,aAAF,GAAkB,mCAAF,GAAe,cAAF,GAAmB,2BAAF,GAAO,2BAAF;AAnFlD;AAAyB;AAqGL;AAApB;AAEzB,iBAAU,IAAmD,GAA5C,+BAAF,GAAW,iBAAF,GAAsB,uCAAF,GAAmB,IAAF;AAFpC;AAAoB;AAvJL;AAAf;AAEzB,iBACE,kBACc,GADO,kBAAF,GAAkB,kBAAF,GAAuB,mCAAF,GAAe,4BAAF,GAAiC,mCAAF,GAAe,6BAAF,GAAkC,mCAAF,GAAe,4BAAF,GAAiC,mCAAF,GAAe,8BAAF,GAAmC,2BAAF,GAAO,2BAAF,GAChP,IADqP,GAC9O,+BAAF,GAAW,qCAAF;AAJS;AAAe;AA4JH;AAAZ;AAEzB,iBACE,cAIkE,GAJjD,+BAAF,GAAW,UAAF,GACxB,2CADqC,GAErC,4DAD4C,GACmB,2BAAF,GAC7D,6DADkE,GACF,2BAAF,GAC9D,4DADmE,GACJ,2BAAF,GAC7D,6DADkE;AAP3C;AAAY;AA5MU;AAAtB;AAEzB,iBACE,iBACc,GADM,kBAAF,GAAkB,cAAF,GAAmB,mCAAF,GAAe,gBAAF,GAAqB,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GACpH,IADyH,GAClH,+BAAF,GAAW,+BAAF;AAJS;AAAsB;AAuNA;AAAtB;AAEzB,iBACE,cAC6C,GAD5B,+BAAF,GAAW,UAAF,GAAe,2BAAF,GACrC,uCAD0C,GACA,2BAAF,GACxC,yCAD6C;AAJtB;AAAsB;AAsEP;AAAf;AAEzB,iBACE,uBAIgB,GAJU,qBAAQ,CAAC,QAAD,CAAV,GAA8B,GAAF,GAAQ,2BAAF,GAC1D,eAD+D,GAC7C,2BAAF,GAChB,2BADqB,GACS,+BAAF,GAAW,mBAAF,GAAwB,2BAAF,GAC3D,sCADgE,GACvB,2BAAF,GACvC,UAD4C,GAC/B,2BAAF,GACX,IADgB;AAPO;AAAe;AAtRA;AAAf;AAEzB,iBACA,kBACc,GADO,qBAAQ,CAAC,QAAD,CAAV,GAA8B,kBAAF,GAAuB,mCAAF,GAAe,KAAF,GAAU,2BAAF,GACzF,IAD8F,GACvF,+BAAF,GAAW,wCAAF;AAJW;AAAe;AAwNF;AAAb;AAEzB,iBACE,cAwByE,GAxBxD,+BAAF,GAAW,UAAF,GACxB,2CADqC,GAGrC,yBAF4C,GAEhB,kBAAF,GAAkB,cAAF,GAAmB,mCAAF,GAAe,gBAAF,GAAqB,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GAC5H,wCADiI,GACtF,2BAAF,GAEzC,2BAF8C,GAEhB,kBAAF,GAAkB,0DAAF,GAA+D,2BAAF,GACzG,4CAD8G,GAC/D,2BAAF,GAE7C,2BAFkD,GAEpB,kBAAF,GAAkB,0DAAF,GAA+D,2BAAF,GACzG,4CAD8G,GAC/D,2BAAF,GAE7C,0CAFkD,GAEL,2BAAF,GAC3C,yCADgD,GACJ,2BAAF,GAE1C,0CAF+C,GAEF,2BAAF,GAC3C,yCADgD,GACJ,2BAAF,GAE1C,+CAF+C,GAEG,2BAAF,GAChD,4CADqD,GACN,2BAAF,GAE7C,6CAFkD,GAEF,8BAAF,GAAU,kBAAF,GAAuB,2BAAF,GAC3E,4CADgF,GACjC,8BAAF,GAAU,iBAAF,GAAsB,2BAAF,GAEzE,mEAF8E,GAER,2BAAF,GACpE,iEADyE;AA3BlD;AAAa;AA+BA;AAAb;AAEzB,iBACE,cAwBgE,GAxB/C,+BAAF,GAAW,UAAF,GACxB,2CADqC,GAGrC,iBAF4C,GAExB,mCAAF,GAAe,QAAF,GAAa,2BAAF,GAC1C,iBAD+C,GAC3B,mCAAF,GAAe,QAAF,GAAa,2BAAF,GAE1C,6CAF+C,GAEC,8BAAF,GAAU,kBAAF,GAAuB,2BAAF,GAC3E,4CADgF,GACjC,8BAAF,GAAU,iBAAF,GAAsB,2BAAF,GAEzE,2BAF8E,GAEhD,kBAAF,GAAkB,0DAAF,GAA+D,2BAAF,GACzG,4CAD8G,GAC/D,2BAAF,GAE7C,2BAFkD,GAEpB,kBAAF,GAAkB,0DAAF,GAA+D,2BAAF,GACzG,4CAD8G,GAC/D,2BAAF,GAE7C,0CAFkD,GAEL,2BAAF,GAC3C,yCADgD,GACJ,2BAAF,GAE1C,mDAF+C,GAEO,2BAAF,GACpD,iDADyD,GACL,2BAAF,GAElD,oBAFuD,GAEhC,kBAAF,GAAkB,sDAAF,GAA2D,2BAAF,GAC9F,0CADmG,GACtD,2BAAF,GAE3C,0DAFgD,GAEa,2BAAF,GAC3D,4DADgE;AA3BzC;AAAa;AAvNG;AAAhB;AAEzB,iBACC,IAG6F,GAHtF,+BAAF,GAAW,qBAAF,GAA0B,mCAAF,GAAe,cAAF,GAAmB,2BAAF,GACpE,IADyE,GAClE,+BAAF,GAAW,yBAAF,GAA8B,mCAAF,GAAe,yBAAF,GAA8B,2BAAF,GACnF,IADwF,GACjF,+BAAF,GAAW,sBAAF,GAA2B,mCAAF,GAAe,sBAAF,GAA2B,2BAAF,GAC7E,IADkF,GAC3E,+BAAF,GAAW,qBAAF,GAA0B,mCAAF,GAAe,0BAAF,GAA+B,mCAAF,GAAe,0BAAF;AANrE;AAAgB;AAiQE;AAAlB;AAExB,iBACC,iDAuCmB,GAvCmC,2BAAF,GACpD,8CADyD,GACJ,2BAAF,GACnD,gBADwD,GACrC,2BAAF,GACjB,gBADsB,GACH,2BAAF,GACjB,uEADsB,GAEtB,qBADwE,GAChD,+BAAF,GAAW,UAAF,GAAe,2BAAF,GAC5C,6EADiD,GACmC,2BAAF,GAClF,uBADuF,GAC7D,2BAAF,GACxB,6BAD6B,GACG,2BAAF,GAC9B,gCADmC,GACA,2BAAF,GACjC,gCADsC,GACH,2BAAF,GACjC,oCADsC,GACC,2BAAF,GACrC,gBAD0C,GACvB,+BAAF,GAAW,sCAAF,GAA2C,2BAAF,GACnE,iEADwE,GACA,2BAAF,GACtE,wCAD2E,GAChC,2BAAF,GACzC,oBAD8C,GACvB,2BAAF,GACrB,oBAD0B,GACH,2BAAF,GACrB,oCAD0B,GACa,2BAAF,GACrC,gBAD0C,GACvB,+BAAF,GAAW,sCAAF,GAA2C,2BAAF,GACnE,iEADwE,GACA,2BAAF,GACtE,YAD2E,GAC5D,2BAAF,GACb,0BADkB,GAElB,uCAD2B,GACe,2BAAF,GACxC,iHAD6C,GAC2E,2BAAF,GACtH,WAD2H,GAE3H,wCADY,GAC+B,2BAAF,GACzC,gDAD8C,GACK,2BAAF,GACjD,6CADsD,GACN,2BAAF,GAC9C,sDADmD,GACM,2BAAF,GACvD,wBAD4D,GACjC,2BAAF,GACzB,eAD8B,GACZ,2BAAF,GAChB,uEADqB,GACyD,2BAAF,GAC5E,aADiF,GACjE,2BAAF,GACd,WADmB,GACL,2BAAF,GACZ,SADiB,GACL,2BAAF,GACV,OADe,GACL,2BAAF,GACR,KADa,GACL,2BAAF,GAEN,kFAFW,GAEoF,2BAAF,GAC7F,aADkG,GAClF,2BAAF,GACd,GADmB;AA1CI;AAAkB;AAjPK;AAAvB;AAEzB,iBAAU,IAAmF,GAA5E,2CAAF,GAAuB,SAAF,GAAc,mCAAF,GAAe,gBAAF,GAAqB,mCAAF,GAAe,kBAAF;AAFpE;AAAuB;AAKN;AAAjB;AAEzB,iBAAU,UAIkI,GAJrH,qCAAF,GAAiB,GAAF,GAAQ,mCAAF,GAAe,OAAF,GAAY,2BAAF,GACvD,SAD4D,GAChD,2BAAF,GACV,IADe,GACR,qCAAF,GAAiB,GAAF,GAAQ,mCAAF,GAAe,aAAF,GAAkB,mCAAF,GAAe,mBAAF,GAAwB,mCAAF,GAAe,qBAAF,GAA0B,2BAAF,GAC/H,QADoI,GACzH,2BAAF,GACT,IADc,GACP,qCAAF,GAAiB,GAAF,GAAQ,mCAAF,GAAe,WAAF,GAAgB,mCAAF,GAAe,mBAAF,GAAwB,mCAAF,GAAe,qBAAF,GAA0B,2BAAF,GAC7H,GADkI;AANnH;AAAiB;AAsVW;AAA5B;AAEzB,iBAAU;AAFe;AAA4B;AAKL;AAAvB;AAEzB,iBAAU;AAFe;AAAuB;AAoEhB;AAAP;AACtB;AAD6B;AAEhC,mBAAU,mCAAc,YAAW,KAAG,EAAH;AAFH;AAC7B;AAD6B;AAAP;AAAO;AA1eK;AAClC;AADkC;AAErC,2BAAW,YAAY,CAAC,0EAAD;AAFc;AAClC;AADkC;;AAVH;AAElC;AAFmC;AAAD;AAKA;AAElC;AAFkC;AAxEjB;;;;AAuCjB;AAGgB,6BAAG;AACP,yBAAG;AACA,4BAAG;AA7EN;AAnBd,GAmBc,6JAnBd;ARAA,gCA6BS,sRA7BT;;;;AAiEmB,2BAAG,2CAAkB,GAAE,aAAF;AACpB,4BAAG;AACd,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AAiER,YAAG;AACO,sBAAG;AACH,sBAAG;AACH,sBAAG;AACF,uBAAG;AACF,wBAAG;AACJ,uBAAG;AACN,oBAAG;AACH,oBAAG;AACH,oBAAG;AACF,qBAAG;AACF,sBAAG;AACJ,qBAAG;AACT,eAAG;AACC,mBAAG;AACO,6BAAG;AACd,kBAAG;AACG,wBAAG;AACX,gBAAG;AACC,oBAAG;AACJ,mBAAG;AACA,sBAAG;AACL,oBAAG;AACC,wBAAG;AACP,oBAAG;AACE,yBAAG;AACA,4BAAG,KAAwB,GAAhB,oBAAF,GAAoB,IAAF;AACnB,oCAAG;AACR,+BAAG;AACA,kCAAG;AACd,uBAAG;AACC,2BAAG,KAAuB,GAAf,mBAAF,GAAmB,IAAF;AAChB,qCAAG,KAAiC,GAAzB,6BAAF,GAA6B,IAAF;AACnD,sBAAG;AACJ,qBAAG;AACK,6BAAG;AACJ,4BAAG;AACT,sBAAG;AACO,gCAAG,KAA4B,GAApB,wBAAF,GAAwB,IAAF;AACrC,0BAAG,KAAsB,GAAd,kBAAF,GAAkB,IAAF;AACxB,2BAAG;AACF,4BAAG;AACJ,2BAAG;AACF,4BAAG;AACI,mCAAG;AACR,8BAAG;AACY,6CAAG;AACR,wCAAG;AACH,wCAAG;AACR,mCAAG;AACR,8BAAG;AACH,8BAAG;AACT,wBAAG;AACI,+BAAG;AACT,yBAAG;AACO,mCAAG;AACR,8BAAG;AACI,qCAAG;AACH,qCAAG;AACT,+BAAG;AACH,+BAAG;AACP,2BAAG;AACA,8BAAG;AACH,8BAAG;AACF,+BAAG;AACR,0BAAG;AACC,8BAAG;AACD,gCAAG;AACJ,+BAAG;AACE,oCAAG;AACL,kCAAG;AACF,mCAAG;AACZ,0BAAG;AACA,6BAAG;AACH,6BAAG;AACJ,4BAAG;AACL,0BAAG;AACC,8BAAG;AACH,8BAAG;AACL,4BAAG;AACA,+BAAG;AACH,+BAAG;AACT,yBAAG;AACF,0BAAG;AACF,2BAAG;AACH,2BAAG;AACH,2BAAG;AACG,iCAAG;AA+kCT;AA1kCS;AAwmVsB;AAAd;AAElC,eAAU;AAFwB;AAAc;AAxmVtB;AAMC,mGAEE,qBACC,sBACA,sBACV,YACA,YACS,qBACD,oBACP,aACF,WACK,gBACH,aACH,UACa,uBACC,wBACH,oBAhBF;;AAEE;AACC;AACA;AACV;AACA,gCAAM,S7B7FL,kE6B6FK,CAAN;AACS;AACD;AACP;AACF;AACK;AACH;AACH;AACa;AACC;AACH,2CpJgIvB,sCoJhIuB;AAhBF;AAmBF,iGAEI,mBAFJ;;AAEI,wCAAY,SArBd,0CAqBc,EAAZ;AAFJ;AAKN;;AAEJ;;;AAEb;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AATa;AAosOuB;AAEtC,mBAAM,CAAC,mCAAW,KAAM,MAAO,SAAU,GAAI,SAAU,OAAQ,MAAzD;AAFmK;AAAnI;AAKF;AAEpC,mBAAM,CAAC,iCAAS,KAAM,MAAO,GAAI,KAAM,GAAI,MAAO,KAA5C;AAFoF;AAAtD;AAKJ;AAEhC,mBAAS;AACT,kBAAQ;AACR,mBAAS;AACT,sBAAY;AACZ,oBAAU;AACV,kBAAQ;AACR,oBAAU;AACV,sBAAY;AATkK;AAA9I;AA9sOjB;AAyBK;AA0kLe;AAAP;AAE5B,eAAoC,YAAK,CAAC,KAAD;AAFb;AAAO;AAKC;AAE1B,kBAAK,CAAC,MAAU,KAAX;AAFqB;AA/kLhB;AAYM;;AACR;;AAED,yFAEO,eACC,gBACH,cACC,eACK,oBACJ,gBACM,sBACH,mBACG,sBACC,uBACR,eACC,gBACE,kBACU,4BACL,uBACL,kBACO,yBACA,yBACT,gBACA,gBACD,eACG,kBACA,kBACC,mBACE,qBACK,0BACN,oBACW,+BACL,0BAChB,UACK,aAhCN;;AAEO,mCAAY,SAjBhB,mCAiBgB,EAAZ;AACC;AACH;AACC;AACK;AACJ;AACM;AACH;AACG;AACC;AACR;AACC;AACE;AACU;AACL;AACL;AACO;AACA;AACT;AACA;AACD;AACG;AACA;AACC;AACE;AACK;AACN;AACW;AACL;AAChB;AACK;AAhCN;AAmCC,0FAEG,aACE,aAHL;;AAEG,mCArCJ,+BAqCI;AACE,kCAAM,SAtCZ,+BAsCY,CAAN;AAHL;AAMU;;AAIN;;AAIK;;AAID;;AAIF;;AAIA;;AAIA;;AAII;;AAIH;;AAIH;AACpB;AADoB;aACpB;AADoB;;AACpB;AADoB;;;AACpB,wBpJAI,sCoJAJ;AADoB;AAIK,sDAJL,4CAIK;AAER;AAEjB;AAFiB;;qBACjB;AADiB;;;aACjB,iCACA;AAFiB;;AACjB;AACA;AAFiB;;;AACjB,6B7BzVsB,qE6ByVtB;AACA;AAFiB;AAKM;AAGvB;AAHuB;;sBACvB;AADuB,gBAEvB;AAFuB;;;aACvB,oCACA,IAAA,wBACA,0BADA;AAFuB;;AACvB;AACA;AACA;AAHuB;;;AACvB,8B7BlV2B,0E6BkV3B;AACA,wB7BlVgC,+E6BkVhC;AACA;AAHuB;AAMJ;;;iBACnB;AADmB,oBAEnB;AAFmB,mBAGnB;AAHmB;;;aACnB,0BACA,IAAA,gCACA,kCADA;AAFmB;;AACnB;AACA;AACA;AAHmB;;;AACN,2DAZI,yCAYJ;AAAb,yBAAa,4CAAb;AACgB,8DARO,+CAQP;AAAhB,4BAAgB,+CAAhB;AACe,6DATQ,+CASR;AAAf,2BAAe,8CAAf;AAHmB;AAoDH;AA5CW;;;AAE3B;AACA;AACA;AACA;AAL2B;;;;;;AA6qUa;AAAL;AAErC,UAAI,UAAI,KAAE,EAAV,EACE,aAAO,yCADT;AAGA,eAAU;AAL2B;AAAK;AAQS;AAGnD,sBAAW,OAAO,CAAC,KAAD;AAClB;AAJmD;AAOJ;AAE/C,qBAAW;AAFoC;AAKI;AAEnD,UAAY,WAAD,QAAX,EACE,WAAM,gBADR;AAFmD;AAtCA;AAEnD,UAAY,WAAD,QAAX,EACE,WAAM,OAAO,cADf;AAFmD;AAMF;AAEjD,UAAY,WAAD,QAAX,EACE,WAAM,OAAO,YADf;AAFiD;AAMO;AAExD,UAAY,WAAD,QAAX,EACE,WAAM,gBADR;AAFwD;AA5BV;AAE9C;AACA,UAAY,WAAD,QAAX,EACE,cAAsB,OAAX,iBAAc,mCAAH,CAAkC,SAD1D;AAGA,yBAAe,yDAAqB,QAAC;AACrC,qBAAW;AAP8D;AAA3B;AAVF;AAE5C;AACA,UAAc,kCAAH,eAAP,MAAO,CAAX;AAEE,wBAAW,OAAO,CAAS,OAAP,OAAU,kCAAH,CAAiC,YAA1C;AAClB,uBAAmB,OAAP,OAAU,kCAAH,CAAiC;OAHtD;AAH4C;AAoBE;AAElC,eAAZ,KAAY;AACZ;AAH8C;AArpUjB;AAeT,+BAAY,ezJ0DrB,gCyJ1DqB,CAAZ;AAIC,kC7B3QA,mE6B2QA;AACJ;AACJ;AArBgB;AAyBC;;;AAK5B;AAL4B;;;;;AAutUe;AAAP;AAGtC,eAAkD,YAAK,CAAC,KAAD;AAHjB;AAAO;AAiBC;AAGpC,kBAAK,CAAC,MAAU,KAAX;AAH+B;AAtBO;AAAf;AAEtC,eAAU;AAF4B;AAAe;AAWP;AAAR;AAEtC,eAAU;AAF4B;AAAQ;AAlBC;AAG/B,sDAAC,OAAQ,sBAAT;AAChB,sBAAU;AAHkB;AADmB;AAtBH;AAE5C;AACA;AAEA,UAAK,aAAM;AACX,UAAY,CAAD,QAAX,EACE,CAAC,cADH;AAGA,UAAG,eAAM,GAAE,CAAX;AAEE,eAAM,eAAM,GAAE,CAAd;AAEE,eAAsB,cAAK,CAAC,eAAM,GAAE,CAAT;AAC3B,YAAG,eAAH,EAAG;;OALP;AASA,UAAY,CAAD,QAAX,EACE,CAAC,YADH;AAlB4C;AALH;AAAH;AAEtC,eAAkD;AAFZ;AAAG;AAkDG;AAAN;AAGtC,eAAwD,yCAAC,KAAD;AAHlB;AAAM;AAluUd;AAYV,+BAAO,UAOT,gCAPS,CAAP;AAZU;AAmBZ;;;AAEhB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAdgB;;;;;;;AAkwUa;AAAL;AAE1B,UAAQ,CAAJ,UAAI,KAAE,EAAF,CAAM,IAAG,cAAjB,EACE,aAAO,yCADT;AAGA,uBAAa;AACb,eAAU;AANgB;AAAK;AASU;AAGzC,+BAAoB,OAAO,CAAC,KAAD;AAC3B;AAJyC;AAqCJ;AAErC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAFqC;AA9BS;AAG9C,UAAG,sBAAkB,KAAG,KAAxB;AAEE,iCAAqB;AACrB;OAHF;AAH8C;AAUA;AAG9C,UAAG,sBAAkB,KAAG,KAAxB;AAEE,iCAAqB;AACrB;OAHF;AAH8C;AAUE;AAGhD,UAAG,wBAAoB,KAAG,KAA1B;AAEE,mCAAuB;AACvB;OAHF;AAHgD;AAmBR;AAExC,UAAY,WAAD,QAAX,EACU,OAAP,YAAU,sBAAH,CAAqB,iBAD/B;AAFwC;AA9EL;AAEnC;AACA,UAAY,WAAD,QAAX,EACE,cAAsB,OAAX,iBAAc,wBAAH,CAAuB,SAD/C;AAGA,mBAAO;AACP,sBAAY;AACZ,iCAAuB;AACvB,+BAAqB;AACrB,+BAAqB;AACrB,kCAAwB,mCAA8B,QAAC,YAAM,CAAC,IAAD,CAAN;AAEvD;AAb8D;AAA3B;AAbF;AAEjC,UAAa,uBAAH,eAAP,MAAO,CAAV;AAEE,qBAAe,OAAP,OAAU,uBAAH,CAAsB,MAAC;AACtC,wBAAoB,OAAP,OAAU,uBAAH,CAAsB;AAC1C,mCAA+B,OAAP,OAAU,uBAAH,CAAsB;AACrD,iCAA6B,OAAP,OAAU,uBAAH,CAAsB;AACnD,iCAA6B,OAAP,OAAU,uBAAH,CAAsB;AACnD,iCAAoB,OAAO,CAAS,OAAP,OAAU,uBAAH,CAAT;OAP7B;AAFiC;AA6BE;AAEd,eAArB,KAAqB;AACrB;AACA;AAJmC;AA3vUjB;AAwBE,+BAAY,ezJKrB,gCyJLqB,CAAZ;AAUP;AACK;AACW,0CpJxGvB,uCoJwGuB;AACF,wCpJzGrB,uCoJyGqB;AACA,wCpJ1GrB,uCoJ0GqB;AACG,2CA1DA,6CA0DA;AAvCZ;AA2CC;;;AAKjB;AALiB;;;;;AAi0Ue;AAAP;AAG3B,eAAuC,YAAK,CAAC,KAAD;AAHjB;AAAO;AAiBC;AAGzB,kBAAK,CAAC,MAAU,KAAX;AAHoB;AAtBO;AAAf;AAE3B,eAAU;AAFiB;AAAe;AAWP;AAAR;AAE3B,eAAU;AAFiB;AAAQ;AAjBC;AAEpB,sDAAC,OAAQ,sBAAT;AAChB,sBAAU;AAHsD;AAA5B;AA3BH;AAEjC;AACA;AAEA,UAAK;AACL,UAAY,CAAD,QAAX,EACE,CAAC,cADH;AAGA,4CAAY,IAAI,CAAC,QAA2B,GAAhB,qBAAQ,CAAC,eAAD,CAAV,GAAoB,WAA9B;AAEhB,UAAG,eAAM,GAAE,CAAX;AAEE,eAAM,eAAM,GAAE,CAAd;AAGE,gDAAY,IAAI,CAAC,iBAAD;AAEhB,eAAsB,cAAK,CAAC,eAAM,GAAE,CAAT;AAC3B,YAAG,eAAH,EAAG;;OARP;AAYA,UAAY,CAAD,QAAX,EACE,CAAC,YADH;AAvBiC;AALH;AAAH;AAE3B,eAAuC;AAFZ;AAAG;AAsDG;AAAN;AAG3B,eAA6C,yCAAC,KAAD;AAHlB;AAAM;AA50Ud;AAYC,+BAAO,UAyzBV,+BAzzBU,CAAP;AAZD;AAmBH;;;AAEd;AACA;AACA;AAAU;AACV;AACA;AANc;;;;;AAg/Sa;AAAL;AAExB,UAAG,QAAI,KAAE,EAAT,EACE,WAAO,yCADT;AAGA,eAAU;AALc;AAAK;AA/BM;AAAX;AAExB,eAAU,gBAAU;AAFI;AAAW;AAKC;AAAZ;AAExB,eAAU,gBAAU;AAFI;AAAY;AAKA;AAEpC,sBAAU,YAAC,CAAY,KAAZ;AAFyB;AAKC;AAErC,sBAAU,aAAC,CAAa,KAAb;AAF0B;AAKJ;AAEjC,yBAAe,yDAAqB,QAAC;AAFH;AAAD;AAKA;AAErB,eAAZ,KAAY;AACZ;AAHiC;AA1+SjB;AAaI;AAGP;AACE;AACM,kC7BpXA,mE6BoXA;AACD;AACD;AACD;AACA;AACD;AAvBD;AAiDC;AArBI;;;AAEnB;AACA;AACA;AACA;AALmB;;;;;AAguTgB;AAErC,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACT;OAHF;AAFqC;AASG;AAExC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAFwC;AASH;AAErC,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACT;OAHF;AAFqC;AA3CC;AAEtC,UAAY,OAAD,QAAX,EACE,cAAU,OADZ;AAGA,sBAAY;AACZ,mBAAS;AACT,mBAAS;AAP0D;AAA7B;AAUF;AAEpC,UAAa,0BAAH,eAAP,MAAO,CAAV;AAEE,wBAAoB,OAAP,OAAU,0BAAH,CAAyB;AAC7C,qBAAiB,OAAP,OAAU,0BAAH,CAAyB;AAC1C,qBAAiB,OAAP,OAAU,0BAAH,CAAyB;OAJ5C;AAFoC;AAUE;AAEtC;AAFsC;AAgCQ;AAE9C,UAAY,WAAD,QAAX,EACE,WAAM,eADR;AAF8C;AA3vTzB;AAUD,+BAAQ,WAWX,+BAXW,CAAR;AAMF;AACH,4BpJ/KT,uCoJ+KS;AACA;AAlBM;AAqBJ;;;AAEf;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAgBA;AAjCe;;;;;;;;AAq8LiB;AAElC,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACV;OAHF;AAFkC;AAjFJ;AAAL;AAEzB,UAAQ,CAAJ,UAAI,KAAE,EAAF,CAAM,IAAG,cAAjB,EACE,aAAO,yCADT;AAGA,uBAAa;AACb,eAAU;AANe;AAAK;AAkCQ;AAAb;AAEzB,eAAU,WAAM,KAAG,uBAAH;AAFS;AAAa;AAUC;AAEvC,UAAG,gBAAY,KAAG,KAAlB;AAEE,wBAAW,OAAO,CAAC,KAAD;AAClB;OAHF;AAFuC;AAnCH;AAAX;AAEzB,eAAU,gBAAU;AAFK;AAAW;AAKC;AAAZ;AAEzB,eAAU,gBAAU;AAFK;AAAY;AAyDA;AAErC,sBAAU,YAAC,CAAY,KAAZ;AAF0B;AAKC;AAEtC,sBAAU,aAAC,CAAa,KAAb;AAF2B;AApDG;AAAhB;AAEzB,eAAU,kBAAS,KAAG,SAAH;AAFM;AAAgB;AAKC;AAAjB;AAEzB,eAAU,mBAAU,KAAG,UAAH;AAFK;AAAiB;AAVF;AAAf;AAEzB,eAAU,aAAQ,KAAG,EAAH;AAFO;AAAe;AA2CJ;AAEpC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAFoC;AA4BA;AAEpC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAFoC;AArCI;AAExC,UAAG,iBAAa,KAAG,KAAnB;AAEE,yBAAY,OAAO,CAAC,KAAD;AACnB;OAHF;AAFwC;AA8CF;AAEtC,qBAAW;AACX,UAAY,WAAD,QAAX,EACE,WAAM,gBADR;AAHsC;AA5DK;AAE3C;AAF2C;AAjET;AAElC;AACA,UAAY,WAAD,QAAX,EACE,cAAsB,OAAX,iBAAc,uBAAH,CAAsB,SAD9C;AAGA,oBAAU;AACV,yBAAe,yDAAqB,QAAC;AACrC,sBAAW,UAAX,GAAyB;AACzB,sBAAY;AACZ,mCAAyB;AACzB,qCAA2B;AAC3B,oCAA0B;AAC1B,0BAAgB,0BAAqB,QAAC,YAAM,CAAC,IAAD,CAAN;AAEtC;AAf6D;AAA3B;AAZF;AAEhC,UAAa,sBAAH,eAAP,MAAO,CAAV;AAEE,wBAAW,OAAO,CAAS,OAAP,OAAU,sBAAH,CAAqB,YAA9B;AAClB,sBAAkB,OAAP,OAAU,sBAAH,CAAqB;AACvC,wBAAoB,OAAP,OAAU,sBAAH,CAAqB;AACzC,wBAAoB,OAAP,OAAU,sBAAH,CAAqB;AACzC,yBAAY,OAAO,CAAS,OAAP,OAAU,sBAAH,CAAqB,aAA9B;OANrB;AAFgC;AA8BE;AAEtB,eAAZ,KAAY;AACC,eAAb,KAAa;AACb;AACA;AALkC;AA52LjB;AAqCG,+BAAY,ezJvHrB,gCyJuHqB,CAAZ;AAWP;AACO;AACD;AACH;AACE;AACA;AACI,mCA3ED,oCA2EC;AAtDL;AA2DC;;;AAKhB;AALgB;;;;;AA28Le;AAAP;AAG1B,eAAsC,YAAK,CAAC,KAAD;AAHjB;AAAO;AA0CC;AAGxB,kBAAK,CAAC,MAAU,KAAX;AAHmB;AApCG;AAAX;AAE1B;AACA;AAEA,eAAU;AACV,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,YAAK,cAAK,CAAC,CAAD;AACV,YAAG,CAAC,MAAC,EAAG,KAAE,EAAV;AAEE,mBAAU;AACV;SAHF;;AATwB;AAAW;AAXI;AAAf;AAE1B,eAAU;AAFgB;AAAe;AA4BP;AAAR;AAE1B,eAAU;AAFgB;AAAQ;AAlCC;AAEnB,sDAAC,OAAQ,sBAAT;AAChB,sBAAU;AAHqD;AAA5B;AAtBH;AAEhC;AACA;AAEA,UAAK;AACL,UAAY,CAAD,QAAX,EACE,CAAC,cADH;AAGA,UAAG,eAAM,GAAE,CAAX;AAEE,eAAM,eAAM,GAAE,CAAd;AAEE,eAAsB,cAAK,CAAC,eAAM,GAAE,CAAT;AAC3B,YAAG,eAAH,EAAG;;OALP;AASA,UAAY,CAAD,QAAX,EACE,CAAC,YADH;AAlBgC;AAmEG;AAEnC;AAEA,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AACF,sBAAK,CAAC,CAAD,CAAG,UAAR,GAAqB;;AALY;AAxEN;AAAH;AAE1B,eAAsC;AAFZ;AAAG;AAkEG;AAAN;AAG1B,eAA4C,yCAAC,KAAD;AAHlB;AAAM;AAoBW;AAAjB;AAE1B;AACA;AAEU,YAAD,sBAAC,UAAQ,eAAT;AACT,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEQ,WAAD,sBAAC,iEAAK,CAAN;AACT,WAAG,CAAC,CAAD,UAAO,cAAK,CAAC,CAAD,CAAG,YAAW,SAAC,EAA3B;AACH,cAAM,CAAC,CAAD,CAAN,GAAa;;AAVW;AAAiB;AA3/LzB;AAaE,+BAAO,UAyrBV,+BAzrBU,CAAP;AAbF;AAkEI;AAzCI;;;AAExB;AACA;AACA;AAJwB;;;;;;AAm3Ma;AAAL;AAElC,UAAQ,CAAJ,UAAI,KAAE,EAAF,CAAM,IAAG,WAAM,UAAvB,EACE,aAAO,yCADT;AAGA,eAAU;AALwB;AAAK;AAgCU;AAGjD,UAAG,iBAAa,KAAG,KAAnB;AAEE,yBAAY,OAAO,CAAC,KAAD;AACnB;OAHF;AAHiD;AANG;AAEpD,UAAY,WAAD,QAAX,EACE,WAAM,oBADR;AAFoD;AAlBJ;AAEhD,UAAY,WAAD,QAAX,EACE,WAAM,cADR;AAFgD;AAMF;AAE9C,UAAY,WAAD,QAAX,EACE,WAAM,YADR;AAF8C;AAMQ;AAEtD,UAAY,WAAD,QAAX,EACE,WAAM,oBADR;AAFsD;AAtCX;AAE3C;AACA,UAAY,WAAD,QAAX,EACE,cAAsB,OAAX,iBAAc,gCAAH,CAA+B,SADvD;AAGA,0BAAgB,0DAAsB,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,uBAAY,eAAZ,GAA8B;AAC9B,uBAAY,aAAZ,GAA4B;AAC5B,uBAAY,qBAAZ,GAAoC;AATkC;AAA3B;AANF;AAEzC,mBAAe,OAAP,OAAU,+BAAH,CAA8B,MAAC;AAC9C,uBAAY,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,aAAvC;AAHsB;AAkBE;AAE9B,eAAb,KAAa;AACb;AAH2C;AA72MjB;AAaN,+BAAY,ezJnLrB,gCyJmLqB,CAAZ;AAIE,mC7BnZA,oE6BmZA;AACT;AAlBa;AAsBC;;;AAKzB;AALyB;;;;;AA6yMe;AAAP;AAGnC,eAA+C,YAAK,CAAC,KAAD;AAHjB;AAAO;AAgBC;AAGjC,kBAAK,CAAC,MAAU,KAAX;AAH4B;AArBO;AAAf;AAEnC,eAAU;AAFyB;AAAe;AAWP;AAAR;AAEnC,eAAU;AAFyB;AAAQ;AAjBC;AAE5B,sDAAC,OAAQ,sBAAT;AAChB,sBAAU;AAHmE;AAAjC;AALH;;AALH;AAAH;AAEnC,eAA+C;AAFZ;AAAG;AAgCG;AAAN;AAEnC,eAAqD,yCAAC,KAAD;AAFlB;AAAM;AAxzMd;AAYP,+BAAO,UAOL,oCAPK,CAAP;AAZO;AAmBL;;;AAEpB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAhBoB;;;;;;;;AAorMa;AAAL;AAE9B,UAAQ,CAAJ,UAAI,KAAE,EAAF,CAAM,IAAG,cAAjB,EACE,aAAO,yCADT;AAEA,uBAAa;AACb,eAAU;AALoB;AAAK;AAaU;AAG7C,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;AAChB;OAHF;AAH6C;AA8CA;AAG7C,UAAG,iBAAa,KAAG,KAAnB;AAEE,yBAAY,OAAO,CAAC,KAAD;AACnB;OAHF;AAH6C;AAUN;AAGvC,UAAG,WAAO,KAAG,KAAb;AAEE,mBAAM,OAAO,CAAC,KAAD;AACb;OAHF;AAHuC;AA7DY;AAArB;AAE9B,eAAU,mBAAc,KAAG,CAAH;AAFM;AAAqB;AAeJ;AAE/C,UAAG,mBAAe,KAAG,KAArB;AAEE,8BAAkB;AAClB;OAHF;AAF+C;AASF;AAE7C,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;AAChB;OAHF;AAF6C;AASJ;AAEzC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAFyC;AA1GC;AAE1C,UAAY,WAAD,QAAX,EACE,WAAM,cADR;AAF0C;AA2DF;AAExC,UAAY,WAAD,QAAX,EACE,WAAM,YADR;AAFwC;AAwDQ;AAEhD,UAAY,WAAD,QAAX;AAEE,uBAAW;AACX,mBAAM;OAHR;AAFgD;AA9DE;AAElD,UAAY,WAAD,QAAX,EACE,WAAM,qBADR;AAFkD;AAZN;AAE5C,UAAY,WAAD,QAAX,EACE,WAAM,cADR;AAF4C;AAMF;AAE1C,UAAY,WAAD,QAAX,EACE,WAAM,YADR;AAF0C;AArFL;AAAP;AAG9B;AACA;AAEA,eAAU;AACV,UAAS,WAAC,YAAD,CAAe,KAAE,CAA1B,EACE,aADF;AAGA;AACA,eAAU,WAAK;AACf,eAAS,QAA0B,OAAf,WAAC,YAAD,CAAe,GAAE,CAAF,kBAAnC;AAAI;AAEF,aAAM,MAAM,aAAY;AACxB,UAAE,YAAW,aAAC,CAAa,YAAY,CAAC,CAAD,CAAG,UAA5B;AACd,UAAE,YAAW,YAAC,CAAY,YAAY,CAAC,CAAD,CAAG,SAA3B;;AAEhB;AAlB8B;AAAO;AAkDE;AAEvC;AACA,UAAY,WAAD,QAAX,EACE,cAAsB,OAAX,iBAAc,4BAAH,CAA2B,SADnD;AAGA,0BAAgB,0DAAsB,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,uBAAY,eAAZ,GAA8B;AAC9B,uBAAY,aAAZ,GAA4B;AAC5B,uBAAY,qBAAZ,GAAoC;AAEpC,0BAAgB;AAChB,4BAAkB;AAClB,0BAAgB;AAChB,sBAAY;AAEZ,oBAAU,gCAA2B,QAAC,YAAM,CAAC,IAAD,CAAN;AAEtC;AAlBkE;AAA3B;AAxBF;AAErC,UAAa,2BAAH,eAAP,MAAO,CAAV;AAEE,yBAAY,OAAO,CAAS,OAAP,OAAU,2BAAH,CAA0B,aAAnC;AACnB,4BAAwB,OAAP,OAAU,2BAAH,CAA0B;AAClD,8BAA0B,OAAP,OAAU,2BAAH,CAA0B;AACpD,4BAAwB,OAAP,OAAU,2BAAH,CAA0B;AAClD,wBAAoB,OAAP,OAAU,2BAAH,CAA0B;OANhD;AAFqC;AA6CE;AAE1B,eAAb,KAAa;AACN,eAAP,KAAO;AACP;AACA;AALuC;AAlDL;AAAJ;AAE9B,eAAU,+CAAW,CAAC,iBAAY,SAAC,EAAd;AAFS;AAAI;AAuBS;AAAb;AAG9B,eAAU,iDAAa,CAAC,WAAW,UAAW,WAAW,WAAY,iBAAY,SAAC,EAA3D;AAHO;AAAa;AAznMrB;AAoCF,+BAAY,ezJnPrB,gCyJmPqB,CAAZ;AAYP;AACS,mCpJjWhB,uCoJiWgB;AACE;AACF;AACJ;AApDI;AAwDC;;;AAKrB;AALqB;;;;;AAigNe;AAAP;AAG/B,eAA2C,YAAK,CAAC,KAAD;AAHjB;AAAO;AA2CC;AAG7B,kBAAK,CAAC,MAAU,KAAX;AAHwB;AArCG;AAAX;AAG/B;AACA;AAEA,eAAU;AACV,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,YAAK,cAAK,CAAC,CAAD;AACV,YAAG,CAAC,MAAC,EAAG,KAAE,EAAV;AAEE,mBAAU;AACV;SAHF;;AAV6B;AAAW;AAXI;AAAf;AAE/B,eAAU;AAFqB;AAAe;AA6BP;AAAR;AAE/B,eAAU;AAFqB;AAAQ;AAnCC;AAExB,sDAAC,OAAQ,sBAAT;AAChB,sBAAU;AAH0D;AAA5B;AAtBH;AAErC;AACA;AAEA,UAAK;AACL,UAAY,CAAD,QAAX,EACE,CAAC,cADH;AAGA,UAAG,eAAM,GAAE,CAAX;AAEE,eAAM,eAAM,GAAE,CAAd;AAEE,eAAsB,cAAK,CAAC,eAAM,GAAE,CAAT;AAC3B,YAAG,eAAH,EAAG;;OALP;AASA,UAAY,CAAD,QAAX,EACE,CAAC,YADH;AAlBqC;AAoEG;AAExC;AAEA,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AACF,sBAAK,CAAC,CAAD,CAAG,UAAR,GAAqB;;AALiB;AAzEN;AAAH;AAE/B,eAA2C;AAFZ;AAAG;AAmEG;AAAN;AAG/B,eAAiD,yCAAC,KAAD;AAHlB;AAAM;AAoBW;AAAjB;AAE/B;AAEU,YAAD,sBAAC,UAAQ,eAAT;AACT,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AACF,cAAM,CAAC,CAAD,CAAN,GAAa,cAAK,CAAC,CAAD,CAAG,aAAY,SAAC;;AANL;AAAiB;AAljNzB;AAaH,+BAAO,UA+jBV,+BA/jBU,CAAP;AAbG;AAuBJ;AA03LgB;AAAR;AAE3B;AAEA,eAAU;AACV,eAAS,QAAuB,OAAlB,iBAAW,SAAC,EAAM,GAAE,CAAF,kBAAhC;AAAI;AAEF,iBAAU,MAAO,GAAE,mDAAe,CAA0B,oEAAzB,iBAAW,WAAC,CAAD,CAAG,YAAW,SAAC,EAAD,EAAqC,oEAA7B,iBAAW,WAAC,CAAE,GAAE,CAAL,CAAO,YAAW,SAAC,EAAD,CAA/D,CAAjB;;AAPQ;AAAQ;AAiHH;AAAL;AAG3B;AAEA,eAAU;AAEV,eAAS,QAAuB,OAAlB,iBAAW,SAAC,EAAM,GAAE,CAAF,kBAAhC;AAAI;AAEF,YAAG,kBAAS,CAAC,WAAW,UAAW,iBAAW,WAAC,CAAD,CAAG,YAAC,GnJ1qNG,GmJ0qNzC,CAAgD,IAAI,kBAAS,CAAC,WAAW,WAAY,iBAAW,WAAC,CAAD,CAAG,aAAC,GnJ1qN3D,GmJ0qNoB,CAAzE;AAEE,mBAAU,YAAK,CAAC,CAAD;AACf;SAHF;;AATyB;AAAK;AAzBA;AAAL;AAG3B;AACA;AAAI;AACJ;AAEA,eAAU;AAEV,UAAW,CAAP,MAAO,IAAG,CAAH,CAAM,IAAY,CAAP,MAAO,GAAE,iBAAW,SAAC,EAAd,CAA7B;AAEE,aAAU,2EAAC,iBAAW,SAAC,GAAS,OAAc,WAAC,iBAAW,SAAC,EAAb,CAApC;AACV,iBAAU,WAAM,YAAY,CAAC,iBAj7JuD,KAi7JxD;AAE5B,aAAU,2EAAC,iBAAW,SAAC,GAAS,EAAG,MAAzB;AACV,yBAAW;AACX,iBAAS,QAAgB,OAAL,WAAC,EAAD,CAAK,GAAE,CAAF,kBAAzB;AAAI;AAEF,cAAK,iBAAW;AAChB,WAAC,YAAC,CAAY,EAAE,CAAC,CAAD,CAAG,SAAjB;AACF,WAAC,aAAC,CAAa,EAAE,CAAC,CAAD,CAAG,UAAlB;;OAXN;AAT2B;AAAK;AAxBE;AAAP;AAG3B;AACA;AAAY;AAEZ,mBAAc,CAAC;AACf,iBAAY,CAAC;AAEb,eAAS,QAAuB,OAAlB,iBAAW,SAAC,EAAM,GAAE,CAAF,kBAAhC;AAAI;AAEF,YAAG,kBAAS,CAAC,gBAAgB,UAAW,iBAAW,WAAC,CAAD,CAAG,YAAC,GnJ3nNF,GmJ2nNzC,CAAqD,IAAI,kBAAS,CAAC,gBAAgB,WAAY,iBAAW,WAAC,CAAD,CAAG,aAAC,GnJ3nNrE,GmJ2nNyB,CAA9E;AAEE,uBAAc;SAFhB;AAIA,YAAG,kBAAS,CAAC,cAAc,UAAW,iBAAW,WAAC,CAAD,CAAG,YAAC,GnJ/nNA,GmJ+nNzC,CAAmD,IAAI,kBAAS,CAAC,cAAc,WAAY,iBAAW,WAAC,CAAD,CAAG,aAAC,GnJ/nNjE,GmJ+nNuB,CAA5E;AAEE,qBAAY;SAFd;;AAMF,eAAU,cAAO,CAAC,WAAY,QAAb;AArBU;AAAO;AA/BA;AAAP;AAG3B;AAAG;AACH;AAAG;AAEH,eAAU;AAEV,UAAgB,CAAZ,WAAY,IAAG,CAAH,CAAiE,IAA1C,CAAZ,WAAY,GAAE,iBAAW,SAAC,EAAd,CAAjB,IAAqD,CAAV,SAAU,IAAG,CAAH,CAAf,IAAoC,CAAV,SAAU,GAAE,iBAAW,SAAC,EAAd,CAAhG;AAEE,YAAI,WAAY,IAAG,SAAnB;AAEE,cAAS,2EAAC,iBAAW,SAAC,GAAS,YAAuB,CAAV,SAAU,GAAE,WAAF,CAAc,GAAE,CAA7D;AACT,mBAAU,WAAM,YAAY,CAAC,gBA33JqD,KA23JtD;;AAI5B,cAAS,2EAAC,iBAAW,SAAC,GAAS,UAAuB,CAAZ,WAAY,GAAE,SAAF,CAAY,GAAE,CAA3D;AAEC,YAAD,sBAAC,gEAAU,WAAC,CAAD,CAAX;AACT,cAAK;AACL,mBAAmB,KAAJ,WAAC,CAAD,CAAI,GAAE,CAAF,EAAW,aAA9B;AAAI;AAEF,cAAE,CAAC,CAAD,UAAO,CAAC,CAAC,CAAD,CAAR;AACF,gBAAK,CAAE,GAAE,CAAF;;AAET,mBAAU,WAAM,YAAY,CAAC,iBAx4JqD,KAw4JtD;;OAlBhC;AAR2B;AAAO;AARD;AAEjC,UAAG,CAAY,CAAC,SAAD,SAAf,EACE,MADF;AAGA,kBAAK,CAAC,SAAS,aAAY,SAAC,EAAvB;AAL4B;AAdA;AAGjC;AACA;AAEA,eAAS,QAA0B,OAAf,WAAC,YAAD,CAAe,GAAE,CAAF,kBAAnC;AAAI;AAEF,YAAI,iBAAW;AACf,SAAC,YAAC,CAAY,YAAY,CAAC,CAAD,CAAG,SAA3B;AACF,SAAC,aAAC,CAAa,YAAY,CAAC,CAAD,CAAG,UAA5B;;AAV6B;AAr4Ld;AAUG,mC7BpgBA,oE6BogBA;AAVH;AAaC;AAmiNe;AAAP;AAE5B,eAAwC,cAAK,CAAC,KAAD;AAFjB;AAAO;AAUC;AAG1B,oBAAK,CAAC,MAAU,KAAX;AAHqB;AAfO;AAAf;AAE5B,eAAU;AAFkB;AAAe;AALZ;AAAH;AAE5B,eAAwC;AAFZ;AAAG;AAeG;AAAN;AAE5B,eAA8C,gDAAC,KAAD;AAFlB;AAAM;AAxiNd;AAYI;;;AAEtB;AACA;AAHsB;AAs5MqB;AAG7C,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd;OAHF;AAH6C;AALM;AAAnB;AAEhC,eAAU,iBAAY,KAAG,GAAH;AAFU;AAAmB;AAeJ;AAE/C,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;AAChB;OAHF;AAF+C;AAtBN;AAEzC;AACA,wBAAc;AACd,0BAAgB;AAJoD;AAA3B;AAVF;AAEvC;AACA,UAAa,uBAAH,eAAP,MAAO,CAAV;AAEE,0BAAsB,OAAP,OAAU,uBAAH,CAAsB;AAC5C,4BAAwB,OAAP,OAAU,uBAAH,CAAsB;OAHhD;AAHuC;AAh4Mf;AAQJ,+BAAY,ezJ/TrB,gCyJ+TqB,CAAZ;AAGA,iCpJnad,uCoJmac;AACE;AAZE;AAeC;AAgkNe;AAAP;AAEjC,eAA6C,cAAK,CAAC,KAAD;AAFjB;AAAO;AAUC;AAG/B,oBAAK,CAAC,MAAU,KAAX;AAH0B;AAfO;AAAf;AAEjC,eAAU;AAFuB;AAAe;AALZ;AAAH;AAEjC,eAA6C;AAFZ;AAAG;AAeG;AAAN;AAEjC,eAAmD,gDAAC,KAAD;AAFlB;AAAM;AArkNd;AAYP;AAuhUe;AAAP;AAG1B,eAA2B,8CAAC,0BAAD;AAHD;AAAO;AAvhUf;AAKI,mC7BnjBA,oE6BmjBA;AALJ;AAQC;AAghNe;AAAP;AAE3B,eAAuC,cAAK,CAAC,KAAD;AAFjB;AAAO;AAUC;AAGzB,oBAAK,CAAC,MAAU,KAAX;AAHoB;AAfO;AAAf;AAE3B,eAAU;AAFiB;AAAe;AALZ;AAAH;AAE3B,eAAuC;AAFZ;AAAG;AAeG;AAAN;AAE3B,eAA6C,gDAAC,KAAD;AAFlB;AAAM;AArhNd;AAYC;;;AAElB;AAFkB;;;;;AAqwMkB;AAEtC,UAAG,YAAQ,KAAG,KAAd;AAEE,oBAAO,OAAO,CAAC,KAAD;AACd;OAHF;AAFsC;AALM;AAE5C;AAF4C;AAbP;AAErC;AACA,qBAAW,qDAAiB,QAAC;AAC7B,kBAAO,UAAP,GAAqB;AAJ2C;AAA3B;AAOA;AAE7B,eAAR,KAAQ;AACR;AAHqC;AAtBF;AAEnC;AACA,UAAa,yBAAH,eAAP,MAAO,CAAV;AAEE,oBAAO,OAAO,CAAS,OAAP,OAAU,yBAAH,CAAwB,QAAjC;OAFhB;AAHmC;AALH;AAAJ;AAE5B,eAAU,+CAAW,CAAC,mDAAe,CAAO,gEAAN,YAAM,SAAC,EAAD,CAAP,CAAhB;AAFO;AAAI;AAcS;AAAb;AAG5B,eAAU,iDAAa,CAAC,WAAW,UAAW,WAAW,WAAY,mDAAe,CAAO,gEAAN,YAAM,SAAC,EAAD,CAAP,CAA7D;AAHK;AAAa;AA7uMrB;AAOA,+BAAY,ezJ7WrB,gCyJ6WqB,CAAZ;AAMH,8B7BjpBA,+D6BipBA;AAbG;AAgBC;AA4iNe;AAAP;AAE7B,eAAyC,cAAK,CAAC,KAAD;AAFjB;AAAO;AAUC;AAG3B,oBAAK,CAAC,MAAU,KAAX;AAHsB;AAfO;AAAf;AAE7B,eAAU;AAFmB;AAAe;AALZ;AAAH;AAE7B,eAAyC;AAFZ;AAAG;AAeG;AAAN;AAE7B,eAA+C,kDAAC,KAAD;AAFlB;AAAM;AAWW;AAAjB;AAE7B;AACA;AAEU,YAAD,sBAAC,UAAQ,eAAT;AACT,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEQ,WAAD,sBAAC,iEAAK,CAAN;AACT,WAAG,CAAC,CAAD,UAAO,cAAK,CAAC,CAAD,CAAG,QAAO,WAAU,SAAC,EAAjC;AACH,WAAG,CAAC,CAAD,UAAO,cAAK,CAAC,CAAD,CAAG,QAAO,WAAU,SAAC,EAAjC;AACH,cAAM,CAAC,CAAD,CAAN,GAAa;;AAXc;AAAiB;AA5jNzB;AAaJ;;;AAEf;AACA;AAHe;;;;;AAyyMkB;AAEnC,UAAG,YAAQ,KAAG,KAAd;AAEE,uBAAW;AACX;OAHF;AAFmC;AATA;AAEnC,UAAG,YAAQ,KAAG,KAAd;AAEE,oBAAO,OAAO,CAAC,KAAD;AACd;OAHF;AAFmC;AALI;AAAd;AAEzB,eAAU,YAAO,KAAG,KAAH;AAFQ;AAAc;AALE;AAEzC;AAFyC;AAdP;AAElC;AACA,qBAAW;AACX,qBAAW,yDAAqB,QAAC;AACjC,kBAAO,UAAP,GAAqB;AALwC;AAA3B;AAQA;AAE1B,eAAR,KAAQ;AACR;AAHkC;AAxBF;AAEhC;AACA,UAAa,sBAAH,eAAP,MAAO,CAAV;AAEE,uBAAmB,OAAP,OAAU,sBAAH,CAAqB;AACxC,oBAAO,OAAO,CAAS,OAAP,OAAU,sBAAH,CAAqB,QAA9B;OAHhB;AAHgC;AALH;AAAJ;AAEzB,eAAU,+CAAW,CAAC,gDAAY,CAAO,oEAAN,YAAM,SAAC,EAAD,EAAQ,YAAf,CAAb;AAFI;AAAI;AAeS;AAAb;AAGzB,eAAU,iDAAa,CAAC,WAAW,UAAW,WAAW,WAAY,gDAAY,CAAO,oEAAN,YAAM,SAAC,EAAD,EAAQ,YAAf,CAA1D;AAHE;AAAa;AAlwMrB;AAUG,+BAAY,ezJ7YrB,gCyJ6YqB,CAAZ;AAMH,8B7BptBI,mE6BotBJ;AACA;AAjBA;AAoBC;AAsjNe;AAAP;AAE1B,eAAsC,cAAK,CAAC,KAAD;AAFjB;AAAO;AAUC;AAGxB,oBAAK,CAAC,MAAU,KAAX;AAHmB;AAfO;AAAf;AAE1B,eAAU;AAFgB;AAAe;AALZ;AAAH;AAE1B,eAAsC;AAFZ;AAAG;AAeG;AAAN;AAE1B,eAA4C,kDAAC,KAAD;AAFlB;AAAM;AAWW;AAAjB;AAE1B;AACA;AAEU,YAAD,sBAAC,UAAQ,eAAT;AACT,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEQ,WAAD,sBAAC,iEAAK,CAAN;AACT,WAAG,CAAC,CAAD,UAAO,cAAK,CAAC,CAAD,CAAG,QAAO,SAAC,EAAvB;AACH,cAAM,CAAC,CAAD,CAAN,GAAa;;AAVW;AAAiB;AAtkNzB;AAaC;;;AAEjB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAXiB;;;;;;AAi+Re;AAElC,UAAG,SAAK,KAAG,KAAX;AAEE,oBAAQ;AACR;OAHF;AAFkC;AA7EI;AAAX;AAE3B,eAAU,SAAK,KAAG,EAAH;AAFY;AAAW;AAyCA;AAEtC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAFsC;AAlBA;AAEtC,UAAG,aAAS,KAAG,KAAf;AAEE,qBAAQ,OAAO,CAAC,KAAD;AACf;OAHF;AAFsC;AAlBF;AAEpC,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACV;OAHF;AAFoC;AASE;AAEtC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAFsC;AAkBF;AAEpC,UAAG,WAAO,KAAG,KAAb;AAEE,sBAAU;AACV;OAHF;AAFoC;AA2BF;AAElC,UAAG,SAAK,KAAG,KAAX;AAEE,oBAAQ;AACR;OAHF;AAFkC;AASC;AAEnC,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACT;OAHF;AAFmC;AAlBA;AAEnC,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACT;OAHF;AAFmC;AAnFC;AAEpC;AACA,UAAY,WAAD,QAAX,EACE,cAAsB,OAAX,iBAAc,yBAAH,CAAwB,SADhD;AAGA,kBAAQ;AACR,sBAAY;AACZ,mBAAS;AACT,sBAAY;AACZ,sBAAY,uBAAW,QAAC;AACxB,mBAAQ,UAAR,GAAsB;AACtB,kBAAQ;AACR,oBAAU;AACV,oBAAU;AACV,mBAAS;AAET;AAjB+D;AAA3B;AAhBF;AAElC,UAAa,wBAAH,eAAP,MAAO,CAAV;AAEE,oBAAgB,OAAP,OAAU,wBAAH,CAAuB;AACvC,wBAAoB,OAAP,OAAU,wBAAH,CAAuB;AAC3C,qBAAiB,OAAP,OAAU,wBAAH,CAAuB;AACxC,wBAAoB,OAAP,OAAU,wBAAH,CAAuB;AAC3C,qBAAQ,OAAO,CAAS,OAAP,OAAU,wBAAH,CAAuB,SAAhC;AACf,oBAAgB,OAAP,OAAU,wBAAH,CAAuB;AACvC,sBAAkB,OAAP,OAAU,wBAAH,CAAuB;AACzC,sBAAkB,OAAP,OAAU,wBAAH,CAAuB;AACzC,qBAAiB,OAAP,OAAU,wBAAH,CAAuB;OAV1C;AAFkC;AAoCE;AAE3B,eAAT,KAAS;AACT;AAEA;AALoC;AAQO;AAE3C;AAF2C;AA2FD;AAE1C,UAAG,WAAM,eAAT,EACE,WAAM,eADR;AAF0C;AA1+RvB;AAuBC,+BAAY,ezJ3brB,gCyJ2bqB,CAAZ;AAMN;AACI;AACF;AACE;AACA,+BzJjjBP,iCyJijBO;AACJ;AACE;AACA;AACD,4BAlqBI,kCAkqBJ;AArCI;AAyCC;;;AAKlB;AALkB;;;;;AA6gSe;AAAP;AAE5B,eAAwC,YAAK,CAAC,KAAD;AAFjB;AAAO;AAeC;AAG1B,kBAAK,CAAC,MAAU,KAAX;AAHqB;AApBO;AAAf;AAE5B,eAAU;AAFkB;AAAe;AAUP;AAAR;AAE5B,eAAU;AAFkB;AAAQ;AAhBC;AAErB,sDAAC,OAAQ,wBAAT;AAChB,sBAAU;AAHuD;AAA5B;AAtBH;AAElC;AACA;AAEA,UAAK;AACL,UAAY,CAAD,QAAX,EACE,CAAC,cADH;AAGA,UAAG,eAAM,GAAE,CAAX;AAEE,eAAM,eAAM,GAAE,CAAd;AAEE,eAAsB,cAAK,CAAC,eAAM,GAAE,CAAT;AAC3B,YAAG,eAAH,EAAG;;OALP;AASA,UAAY,CAAD,QAAX,EACE,CAAC,YADH;AAlBkC;AAnCH;AAAH;AAE5B,eAAwC;AAFZ;AAAG;AAYM;AAAT;AAE5B,eAAwC;AACxC,YAAM,QAAC,CAAQ,kCAAR;AACP,YAAM,OAAC,CAAO,IAAP;AAJqB;AAAS;AAPF;AAAP;AAE5B,eAAwC;AACxC,YAAM,QAAC,CAAQ,gCAAR;AACP,YAAM,OAAC,CAAO,IAAP;AAJqB;AAAO;AAqBU;AAAjB;AAG5B,eAAwC;AACxC,YAAM,QAAC,CAAQ,gCAAR;AACP,YAAM,OAAC,CAAO,IAAP;AACP,YAAM,OAAC,CAAO,YAAP;AANqB;AAAiB;AAPT;AAAR;AAE5B,eAAwC;AACxC,YAAM,QAAC,CAAQ,iCAAR;AACP,YAAM,SAAQ,OAAO,CAAC,MAAD;AAJO;AAAQ;AA2DF;AAAN;AAE5B,eAA8C,yCAAC,KAAD;AAFlB;AAAM;AAvhSd;AAYA,+BAAO,UA0XV,+BA1XU,CAAP;AAZA;AAuBF;;;AAEhB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAbgB;;;;;AAy9J+B;AAAvB;AAE1B,eAAU,qBAAgB,KAAG,SAAH;AAFA;AAAuB;AAKC;AAAxB;AAE1B,eAAU,sBAAiB,KAAG,UAAH;AAFD;AAAwB;AA6BL;AAE7C,UAAG,qBAAiB,KAAG,KAAvB;AAEE,gCAAoB;AACpB;OAHF;AAF6C;AASC;AAE9C,UAAG,sBAAkB,KAAG,KAAxB;AAEE,iCAAqB;AACrB;OAHF;AAF8C;AAlBT;AAErC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAFqC;AA2BS;AAE9C,UAAG,sBAAkB,KAAG,KAAxB;AAEE,iCAAqB;AACrB;OAHF;AAF8C;AA2BE;AAEhD,UAAG,wBAAoB,KAAG,KAA1B;AAEE,mCAAuB;AACvB;OAHF;AAFgD;AASH;AAE7C,UAAG,qBAAiB,KAAG,KAAvB;AAEE,gCAAoB;AACpB;OAHF;AAF6C;AA9EL;AAAd;AAE1B,eAAU,YAAO,KAAG,kDAAH;AAFS;AAAc;AAmDJ;AAEpC,UAAG,YAAQ,KAAG,KAAd;AAEE,uBAAW;AACX;OAHF;AAFoC;AAoCQ;AAE5C,UAAG,oBAAgB,KAAG,KAAtB;AAEE,+BAAmB;AACnB;OAHF;AAF4C;AA3BP;AAErC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAFqC;AAoCU;AAE/C,UAAG,uBAAmB,KAAG,KAAzB;AAEE,kCAAsB;AACtB;OAHF;AAF+C;AA3FF;AAG7C,UAAG,qBAAiB,KAAG,KAAvB;AAEE,gCAAoB;AACpB;OAHF;AAH6C;AAlCX;AAElC,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAFkC;AAjBD;AAEjC,UAAc,uBAAH,eAAP,MAAO,CAAX;AAEE,iCAA6B,OAAP,OAAU,uBAAH,CAAsB;AACnD,gCAA4B,OAAP,OAAU,uBAAH,CAAsB;AAClD,wBAAoB,OAAP,OAAU,uBAAH,CAAsB;AAC1C,gCAA4B,OAAP,OAAU,uBAAH,CAAsB;AAClD,mCAA+B,OAAP,OAAU,uBAAH,CAAsB;AACrD,+BAA2B,OAAP,OAAU,uBAAH,CAAsB;AACjD,kCAA8B,OAAP,OAAU,uBAAH,CAAsB;AACpD,wBAAoB,OAAP,OAAU,uBAAH,CAAsB;OAG1C;AAd+B;AAuBE;AAEnC,6BAAmB;AACnB,8BAAoB;AACpB,+BAAqB;AACrB,+BAAqB;AACrB,8BAAoB;AACpB,iCAAuB;AACvB,qBAAW;AACX,gCAAsB;AACtB,sBAAY;AAVwB;AAAD;AA58JjB;AAiCE;AAGF;AACD;AACS;AACC;AACA;AACD;AACG;AACJ;AACG;AACV;AA7CA;AAgDmB,4FAAmB,UlK/3BjD,2BkK+3BiD,EAAkC,oCAArD;AACD,2FAAmB,UlKh4BhD,2BkKg4BgD,EAAoC,sCAAvD;AACL,sFAAmB,UlKj4B3C,2BkKi4B2C,EAA+B,iCAAlD;AACD,qFAAmB,UlKl4B1C,2BkKk4B0C,EAA8B,gCAAjD;AACE,uFAAmB,UlKn4B5C,2BkKm4B4C,EAAgC,kCAAnD;AACJ,mFAAmB,UlKp4BxC,2BkKo4BwC,EAA4B,8BAA/C;AACY,+FAAmB,UlKr4BpD,2BkKq4BoD,EAAwC,0CAA3D;AACL,0FAAmB,UlKt4B/C,2BkKs4B+C,EAAmC,qCAAtD;AACP,mFAAmB,UlKv4BxC,2BkKu4BwC,EAA4B,8BAA/C;AACM,yFAAmB,UlKx4B9C,2BkKw4B8C,EAAgB,SA3tBjD,kCA2tBiD,CAAnC;AACU,mGAAmB,UlKz4BxD,2BkKy4BwD,EAAwB,0BAA3C;AAErB,kDA9cN,uCA8cM;AAEH;;;AAElB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAVkB;;;;;;;AAyjCiB;AAErC,oBAAU;AACV,yBAAe,yDAAqB,QAAC;AAHC;AAAD;AAMA;AAEzB,eAAZ,KAAY;AACZ;AAHqC;AA/jCjB;AAYA;AAMP;AACO;AACC,kC7Bv3BA,mE6Bu3BA;AACT;AACA;AAtBQ;AAyBO;;;AAEzB;AACA;AACA;AACA;AALyB;;;;;;;;AA8iCiB;AAE5C,wBAAc;AAF+B;AAAD;AAKA;AAE5C;AAF4C;AAnjCjB;AAOP;AAPO;AAeE,oFAAmB,UlKr7BzC,2BkKq7ByC,EAAqB,cAf1C,yCAe0C,CAAxC;AACT,2EAAmB,UlKt7BhC,2BkKs7BgC,EAAqB,cAzCxC,kCAyCwC,CAAxC;AACe,0FAAmB,UlKv7B/C,2BkKu7B+C,EAAsB,e7BhgCpD,qE6BggCoD,CAAzC;AACV,gFAAmB,UlKx7BrC,2BkKw7BqC,EAAkB,W7Bn5B1C,iE6Bm5B0C,CAArC;AACG,mFAAmB,UlKz7BxC,2BkKy7BwC,EAAqB,yBAAxC;AACW,8FAAmB,UlK17BnD,2BkK07BmD,EAAkB,WA7f3D,+BA6f2D,EAA6B,YFtrB5E,0EEsrB4E,CAAlE;AACA,8FAAmB,UlK37BnD,2BkK27BmD,EAAoB,aAlT3D,iCAkT2D,EAA+B,YFvrBhF,0EEurBgF,CAAtE;AACM,oGAAmB,UlK57BzD,2BkK47ByD,EAAyB,6BAAoB,aAnT1F,iCAmT0F,EAA+B,YFxrB/G,0EEwrB+G,CAA/F;AACF,kGAAmB,UlK77BvD,2BkK67BuD,EAAyB,6BAAkB,WAhgBxF,+BAggBwF,EAA6B,YFzrBzG,0EEyrByG,CAA3F;AAEpB,kDAhHL,8CAgHK;AACA,kDAxcL,8CAwcK;AACC,mDAxkBL,+CAwkBK;AAuOI;AAtOK,4DAsOL,wDAtOK;AAmIhB;AAlIK,iDAkIL,6CAlIK;AACG,oDA5IL,gDA4IK;AACC,qDApOL,iDAoOK;AACH,kDApML,8CAoMK;AACE,oDAjTL,gDAiTK;AACD,mDAnQL,+CAmQK;AA8CC;AAqGE;AA9IP;;AACD;;AACI;;AACD;;AACF;;AAEI;;;AAEtB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAQA;AAjBsB;;;;;;AAmvQyB;AAEjD,UAAG,mBAAe,KAAG,KAArB;AAEE,8BAAkB;AAClB;OAHF;AAFiD;AA4BT;AAExC,mBAAS;AAF+B;AArCQ;AAEhD,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;AACjB;OAHF;AAFgD;AAkBL;AAE3C,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAF2C;AA3BI;AAE/C,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;AAChB;OAHF;AAF+C;AAoCK;AAGpD,UAAG,sBAAkB,KAAG,KAAxB;AAEE,iCAAqB;AACrB;OAHF;AAHoD;AAeP;AAE7C,UAAY,WAAD,QAAX,EACE,WAAM,yBADR;AAF6C;AAvEJ;AAEzC;AACA,UAAY,WAAD,QAAX,EACE,cAAsB,OAAX,iBAAc,8BAAH,CAA6B,SADrD;AAGA,kBAAQ;AACR,mBAAS,QAAS,GAAE,qBAAQ,CAAC,eAAD,CAAV;AAClB,sBAAY;AACZ,2BAAiB;AACjB,4BAAkB;AAClB,0BAAgB;AAChB,+BAAqB;AAZ+C;AAA3B;AAeA;AAEzC;AAFyC;AA/BF;AAEvC,UAAc,6BAAH,eAAP,MAAO,CAAX;AAEE,wBAAoB,OAAP,OAAU,6BAAH,CAA4B;AAChD,6BAAyB,OAAP,OAAU,6BAAH,CAA4B;AACrD,8BAA0B,OAAP,OAAU,6BAAH,CAA4B;AACtD,oBAAgB,OAAP,OAAU,6BAAH,CAA4B;AAC5C,4BAAwB,OAAP,OAAU,6BAAH,CAA4B;AACpD,iCAA6B,OAAP,OAAU,6BAAH,CAA4B;AACzD,qBAAiB,OAAP,OAAU,6BAAH,CAA4B;AAC7C,oBAAgB,OAAP,OAAU,6BAAH,CAA4B;AAC5C,0BAAsB,OAAP,OAAU,6BAAH,CAA4B;OAVpD;AAFuC;AA7rQf;AAoBJ,+BAAY,ezJ5nBrB,gCyJ4nBqB,CAAZ;AAKF;AACF,6BAhCI,mCAgCJ;AACM;AACK,wCA/BL,qCA+BK;AACH;AACT;AACD;AACM,iCA7DA,mCA6DA;AAhCI;AAmCC;;;AAEvB;AAFuB;;;;;AAqyQgB;AAAR;AAEjC,eAA6C,YAAK,CAAC,MAAD;AAFjB;AAAQ;AAUC;AAGhC,kBAAK,CAAC,OAAW,KAAZ;AAH2B;AAtCA;AAAT;AAEjC,eAAU,oBAAe,CAAC,KAAD;AAFQ;AAAS;AAXA;AAE1B,sDAAC,OAAQ,6BAAT;AAChB,sBAAU;AAHsE;AAAtC;AALN;AAAH;AAEjC,eAA6C;AAFZ;AAAG;AAiDG;AAAN;AAEjC,eAAmD,yCAAC,MAAD;AAFlB;AAAM;AA5BS;AAAf;AAEjC;AAEA,eAAU;AAEV,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,YAAG,wBAAW,CAAC,MAAO,aAAK,CAAC,CAAD,CAAG,MAAhB,CAAuB,KAAE,CAAvC;AAEE,mBAAU,aAAK,CAAC,CAAD;AACf;SAHF;;AAR+B;AAAe;AAgBN;AAAT;AAEjC,eAAU,oBAAe,CAAC,KAAD;AACzB,UAAG,CAAY,CAAC,MAAD,SAAf,EACE,MAAM,sBAAS,QAAC,YAAM,CAAC,SAAkB,GAAN,KAAF,GAAU,YAArB,CAAN,CADlB;AAHiC;AAAS;AA1BC;AAAV;AAEjC,eAAU,oBAAe,CAAC,KAAD;AAFQ;AAAU;AApwQlB;AAOL,+BAAO,UA8FA,yCA9FA,CAAP;AAPK;AAiBT;;;AAEd;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AApBc;;;;;;;;;AAutSa;AAAL;AAExB,UAAQ,CAAJ,UAAI,KAAE,EAAF,CAAM,IAAG,cAAjB,EACE,aAAO,yCADT;AAGA,uBAAa;AACb,eAAU;AANc;AAAK;AAmFG;AAEhC,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACT;OAHF;AAFgC;AAhCM;AAEtC,UAAG,gBAAY,KAAG,KAAlB;AAEE,wBAAW,OAAO,CAAC,KAAD;AAClB;OAHF;AAFsC;AAyCH;AAEnC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAFmC;AA9EQ;AAG3C,UAAG,qBAAiB,KAAG,KAAvB;AAEE,gCAAoB;AACpB;OAHF;AAH2C;AAUJ;AAEvC,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;AAChB;OAHF;AAFuC;AASA;AAEvC,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;AAChB;OAHF;AAFuC;AA2BP;AAEhC,gBAAK,OAAO,CAAC,KAAD;AAFoB;AAlBE;AAElC,UAAG,YAAQ,KAAG,KAAd;AAEE,oBAAO,OAAO,CAAC,KAAD;AACd;OAHF;AAFkC;AAgCE;AAEpC,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAFoC;AATC;AAErC,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd;OAHF;AAFqC;AAoCD;AAEpC,qBAAW;AACX,UAAY,WAAD,QAAX,EACE,WAAM,0BADR;AAHoC;AA5FC;AAErC;AAFqC;AA1CJ;AAEjC;AACA,UAAY,WAAD,QAAX,EACE,cAAsB,OAAX,iBAAc,sBAAH,CAAqB,SAD7C;AAGA,mBAAS;AACT,yBAAe,yDAAqB,QAAC;AACrC,sBAAW,UAAX,GAAyB;AACzB,qBAAW,qDAAiB,QAAC;AAC7B,kBAAO,UAAP,GAAqB;AACrB,sBAAY;AACZ,8BAAoB;AACpB,0BAAgB;AAChB,0BAAgB;AAChB,mBAAS,qDAAmB,QAAC;AAC7B,gBAAK,QAAC,CAAQ,EAAR;AACN,gBAAK,QAAC,CAAQ,QAAR;AACN,gBAAK,WAAL,GAAoB;AACpB,uBAAa;AACb,wBAAc;AAEd;AAtB4D;AAA3B;AAlBF;AAE/B;AACA,UAAa,qBAAH,eAAP,MAAO,CAAV;AAEE,qBAAiB,OAAP,OAAU,qBAAH,CAAoB;AACrC,wBAAW,OAAO,CAAS,OAAP,OAAU,qBAAH,CAAoB,YAA7B;AAClB,oBAAO,OAAO,CAAS,OAAP,OAAU,qBAAH,CAAoB,QAA7B;AACd,wBAAoB,OAAP,OAAU,qBAAH,CAAoB;AACxC,gCAA4B,OAAP,OAAU,qBAAH,CAAoB;AAChD,4BAAwB,OAAP,OAAU,qBAAH,CAAoB;AAC5C,4BAAwB,OAAP,OAAU,qBAAH,CAAoB;AAC5C,kBAAK,OAAO,CAAS,OAAP,OAAU,qBAAH,CAAoB,MAA7B;AACZ,yBAAqB,OAAP,OAAU,qBAAH,CAAoB;AACzC,0BAAsB,OAAP,OAAU,qBAAH,CAAoB;OAX5C;AAH+B;AA2CE;AAErB,eAAZ,KAAY;AACJ,eAAR,KAAQ;AACF,eAAN,KAAM;AACN;AALiC;AA/sSjB;AAoCI,+BAAY,ezJhsBrB,gCyJgsBqB,CAAZ;AAWP;AACE;AACM,kC7B9gCA,mE6B8gCA;AACJ,8B7B5+BA,+D6B4+BA;AACC;AACQ,uCpJjzBpB,uCoJizBoB;AACJ,mCpJlzBhB,uCoJkzBgB;AACA;AACP,4B3EzYI,+D2EyYJ;AACI,gCAhHI,sCAgHJ;AACC,iCA/GA,mCA+GA;AAzDJ;AA8DC;;;AAKf;AALe;;;;;AA6ySe;AAAP;AAEzB,eAAqC,YAAK,CAAC,KAAD;AAFjB;AAAO;AAwCC;AAGvB,kBAAK,CAAC,MAAU,KAAX;AAHkB;AAnCG;AAAX;AAEzB;AACA;AAEA,eAAU;AACV,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,YAAK,cAAK,CAAC,CAAD;AACV,YAAG,CAAC,MAAC,EAAG,KAAE,EAAV;AAEE,mBAAU;AACV;SAHF;;AATuB;AAAW;AAVI;AAAf;AAEzB,eAAU;AAFe;AAAe;AA2BP;AAAR;AAEzB,eAAU;AAFe;AAAQ;AAjCC;AAElB,sDAAC,OAAQ,sBAAT;AAChB,sBAAU;AAHoD;AAA5B;AAtBH;AAE/B;AACA;AAEA,UAAK;AACL,UAAY,CAAD,QAAX,EACE,CAAC,cADH;AAGA,UAAG,eAAM,GAAE,CAAX;AAEE,eAAM,eAAM,GAAE,CAAd;AAEE,eAAsB,cAAK,CAAC,eAAM,GAAE,CAAT;AAC3B,YAAG,eAAH,EAAG;;OALP;AASA,UAAY,CAAD,QAAX,EACE,CAAC,YADH;AAlB+B;AAiEG;AAElC;AAEA,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AACF,sBAAK,CAAC,CAAD,CAAG,UAAR,GAAqB;;AALW;AAtEN;AAAH;AAEzB,eAAqC;AAFZ;AAAG;AAiEG;AAAN;AAEzB,eAA2C,yCAAC,KAAD;AAFlB;AAAM;AAx0Sd;AAaG,+BAAO,UA4GV,+BA5GU,CAAP;AAbH;AAsBU;;;AAEzB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAmBA;AAzCyB;;;;;;;;;;;;;AAs9QgB;AAE3C,UAAG,UAAM,KAAG,KAAZ;AAEE,kBAAK,OAAO,CAAC,KAAD;AACZ;OAHF;AAF2C;AApFH;AAAL;AAEnC,UAAQ,CAAJ,UAAI,KAAE,EAAF,CAAM,IAAG,cAAjB,EACE,aAAO,yCADT;AAGA,uBAAa;AACb,eAAU;AANyB;AAAK;AAkIM;AAE9C,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAF8C;AA/GA;AAG9C,UAAG,aAAS,KAAG,KAAf;AAEE,qBAAQ,OAAO,CAAC,KAAD;OAFjB;AAH8C;AAmFC;AAG/C,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAH+C;AA9CY;AAE3D,UAAG,0BAAsB,KAAG,KAA5B;AAEE,qCAAyB;AACzB;OAHF;AAF2D;AASP;AAEpD,UAAG,mBAAe,KAAG,KAArB;AAEE,8BAAkB;AAClB;OAHF;AAFoD;AAwDE;AAEtD,UAAG,qBAAiB,KAAG,KAAvB;AAEE,gCAAoB;AACpB;OAHF;AAFsD;AA9HJ;AAAf;AAEnC,eAAU,sCAAY,SAAS,CAAC,UAAK,WAAC,GhFr0SgC,KgFq0SvC;AAFI;AAAe;AAoDN;AAE5C,UAAG,WAAO,KAAG,KAAb;AAEE,mBAAM,OAAO,CAAC,KAAD;AACb;OAHF;AAF4C;AAiEC;AAE7C,UAAG,YAAQ,KAAG,KAAd;AAEE,oBAAO,OAAO,CAAC,KAAD;AACd;OAHF;AAF6C;AAvGO;AAAjB;AAEnC,eAAU,sCAAY,SAAS,CAAC,YAAO,WAAC,GhFn1S8B,KgFm1SvC;AAFI;AAAiB;AAKD;AAAhB;AAEnC,eAAU,sCAAY,SAAS,CAAC,WAAM,WAAC,GhFx1S+B,KgFw1SvC;AAFI;AAAgB;AA+EL;AAE9C,UAAG,aAAS,KAAG,KAAf;AAEE,qBAAQ,OAAO,CAAC,KAAD;AACf;OAHF;AAF8C;AAxDG;AAGjD,UAAG,gBAAY,KAAG,KAAlB;AAEE,wBAAW,OAAO,CAAC,KAAD;AAClB;OAHF;AAHiD;AATJ;AAE7C,UAAG,YAAQ,KAAG,KAAd;AAEE,uBAAW;AACX;OAHF;AAF6C;AA8CG;AAGhD,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd;OAHF;AAHgD;AAiEU;AAE1D,qBAAW;AACX,UAAY,WAAD,QAAX,EACE,WAAM,0BADR;AAH0D;AArJC;AAE3D;AAF2D;AA9Cf;AAE5C;AACA,UAAY,WAAD,QAAX,EACE,cAAsB,OAAX,iBAAc,iCAAH,CAAgC,SADxD;AAGA,yBAAe,yDAAqB,QAAC;AACrC,sBAAW,UAAX,GAAyB;AACzB,qBAAW,qDAAiB,QAAC;AAC7B,kBAAO,UAAP,GAAqB;AACrB,mBAAS,uBAAW,QAAC;AACrB,gBAAK,UAAL,GAAmB;AACnB,sBAAY;AACZ,sBAAY,8BAAyB,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,uBAAa;AACb,4BAAkB,kBAAmB,GAAE,qBAAQ,CAAC,eAAD,CAAV;AACrC,mCAAyB;AACzB,8BAAoB;AACpB,oBAAU,uBAAW,QAAC;AACtB,iBAAM,UAAN,GAAoB;AACpB,qBAAW,uBAAW,QAAC;AACvB,kBAAO,UAAP,GAAqB;AACrB,sBAAY,wCAAc,QAAC;AAC3B,mBAAQ,OAAC,CAAO,EAAP;AACT,mBAAQ,QAAC,CAAQ,EAAR;AACT,mBAAQ,SAAC,CAAS,EAAT;AACT,mBAAQ,UAAC,CAAU,EAAV;AACT,mBAAQ,UAAR,GAAsB;AACtB,wBAAc;AAEd;AA9BuE;AAA3B;AArBF;AAE1C,UAAa,gCAAH,eAAP,MAAO,CAAV;AAEE,qBAAe,OAAP,OAAU,gCAAH,CAA+B,MAAC;AAC/C,kBAAK,OAAO,CAAS,OAAP,OAAU,gCAAH,CAA+B,MAAxC;AACZ,wBAAoB,OAAP,OAAU,gCAAH,CAA+B;AACnD,yBAAqB,OAAP,OAAU,gCAAH,CAA+B;AACpD,qBAAQ,OAAO,CAAS,OAAP,OAAU,gCAAH,CAA+B,SAAxC;AACf,8BAA0B,OAAP,OAAU,gCAAH,CAA+B;AACzD,qCAAiC,OAAP,OAAU,gCAAH,CAA+B;AAChE,gCAA4B,OAAP,OAAU,gCAAH,CAA+B;AAC3D,mBAAM,OAAO,CAAS,OAAP,OAAU,gCAAH,CAA+B,OAAxC;AACb,oBAAO,OAAO,CAAS,OAAP,OAAU,gCAAH,CAA+B,QAAxC;AACd,qBAAQ,OAAO,CAAS,OAAP,OAAU,gCAAH,CAA+B,SAAxC;AACf,wBAAW,OAAO,CAAS,OAAP,OAAU,gCAAH,CAA+B,YAAxC;AAClB,oBAAO,OAAO,CAAS,OAAP,OAAU,gCAAH,CAA+B,QAAxC;AACd,0BAAsB,OAAP,OAAU,gCAAH,CAA+B;OAfvD;AAF0C;AAsDE;AAEtC,eAAN,KAAM;AACG,eAAT,KAAS;AACF,eAAP,KAAO;AACC,eAAR,KAAQ;AACC,eAAT,KAAS;AACG,eAAZ,KAAY;AACJ,eAAR,KAAQ;AACR;AACA;AAV4C;AAhEA;AAAT;AAGnC,iBAAM;AACN,eAAU,aAAO;AACjB,YAAM,iBAAC,CAAiB,cAAjB;AACP,YAAM,gBAAC,CAAS,MAAT;AACP,iBAAM;AAP6B;AAAS;AA3yQjB;AA6CP,+BAAY,ezJ7xBrB,gCyJ6xBqB,CAAZ;AAYP;AACE,4BzJt5BJ,iCyJs5BI;AACQ;AACL;AACA,+BAlKO,wCAkKP;AACG,kC7B/mCA,mE6B+mCA;AACJ,8B7B7kCA,+D6B6kCA;AACE,gCA7MA,kCA6MA;AACK;AACO;AACL;AACV,6BzJh6BL,iCyJg6BK;AACQ;AACP,8BzJl6BN,iCyJk6BM;AACQ;AACP,+B5E7oBJ,kD4E6oBI;AACE,iCAnNA,mCAmNA;AAzEO;AA6EC;;;AAK1B;AAL0B;;;;;AA2qQe;AAAP;AAGpC,eAAgD,YAAK,CAAC,KAAD;AAHjB;AAAO;AA2CC;AAGlC,kBAAK,CAAC,MAAU,KAAX;AAH6B;AArCG;AAAX;AAGpC;AACA;AAEA,eAAU;AACV,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,YAAK,cAAK,CAAC,CAAD;AACV,YAAG,CAAC,MAAC,EAAG,KAAE,EAAV;AAEE,mBAAU;AACV;SAHF;;AAVkC;AAAW;AAXI;AAAf;AAEpC,eAAU;AAF0B;AAAe;AA6BP;AAAR;AAEpC,eAAU;AAF0B;AAAQ;AAnCC;AAE7B,sDAAC,OAAQ,sBAAT;AAChB,sBAAU;AAH+D;AAA5B;AAtBH;AAE1C;AACA;AAEA,UAAK;AACL,UAAY,CAAD,QAAX,EACE,CAAC,cADH;AAGA,UAAG,eAAM,GAAE,CAAX;AAEE,eAAM,eAAM,GAAE,CAAd;AAEE,eAAsB,cAAK,CAAC,eAAM,GAAE,CAAT;AAC3B,YAAG,eAAH,EAAG;;OALP;AASA,UAAY,CAAD,QAAX,EACE,CAAC,YADH;AAlB0C;AAoEG;AAE7C;AAEA,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AACF,sBAAK,CAAC,CAAD,CAAG,UAAR,GAAqB;;AALsB;AAzEN;AAAH;AAEpC,eAAgD;AAFZ;AAAG;AAmEG;AAAN;AAGpC,eAAsD,yCAAC,KAAD;AAHlB;AAAM;AAxsQd;AAaR,+BAAO,UASV,+BATU,CAAP;AAbQ;AAsBX;;;AAGf;AAEA;AACA;AACA;AACA;AACA;AACA;AACA;AAAuB;AAAuB;AAAyB;AACvE;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAtFe;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAuuImB;AAEpC,UAAG,aAAS,KAAG,KAAf;AAEE;AACA,wBAAY;AACZ,YAAY,CAAC,qBAAD,SAAkB,IAAK,CAAa,CAAR,aAAQ,IAAG,cAAC,qCAAc,qCAAc,+BAAQ,iCAAU,iCAAU,kCAAzD,CAAH,CAAhD,EACE,MAAM,sBAAS,QAAC,YAAM,CAAC,iFAAD,CAAN,CADlB;AAEA,+BAAkB,KAAlB;AACA;OAPF;AAFoC;AAlCD;AAEnC,UAAG,YAAQ,KAAG,KAAd;AAEE,uBAAW;AACX,+BAAkB,KAAlB;AACA;OAJF;AAFmC;AA+CC;AAEpC,mBAAQ,OAAO,CAAC,KAAD;AAFqB;AAqJA;AAEpC,mBAAQ,OAAO,CAAC,KAAD;AAFqB;AAtEE;AAEtC,qBAAU,OAAO,CAAC,KAAD;AAFqB;AAKD;AAErC,oBAAS,OAAO,CAAC,KAAD;AAFqB;AAKE;AAEvC,sBAAW,OAAO,CAAC,KAAD;AAFqB;AAaH;AAEpC,mBAAQ,OAAO,CAAC,KAAD;AAFqB;AAqCO;AAG3C,UAAG,oBAAe,IAAI,CAAI,KAA1B,EACE,sBAAiB,CAAC,c3H1xJsF,KAA2B,K2H0xJlH,CADnB;AAIA,6BAAmB;AAPwB;AAVC;AAE5C,UAAG,qBAAiB,KAAG,KAAvB;AAEE,gCAAoB;AACpB,+BAAmB;AACnB;OAJF;AAF4C;AAnCA;AAG5C,8BAAoB;AACpB,UAAW,CAAC,qBAAD,SAAmB,IAAI,CAAY,CAAgC,qBAAgB,kBAAhD,SAA9C,EACiC,qBAAgB,kBAA/C,GAAoG,0DADtG;AAJ4C;AAaE;AAG9C,6BAAkB,OAAO,CAAC,KAAD;AAHqB;AAlIR;AAEtC,qBAAU,OAAO,CAAC,KAAD;AAFqB;AA6IM;AAG5C,UAAG,qBAAiB,KAAG,KAAvB;AAEE,gCAAoB;AACpB,+BAAmB;AACnB;OAJF;AAH4C;AALT;AAEnC,kBAAO,OAAO,CAAC,KAAD;AAFqB;AAnIE;AAErC,oBAAS,OAAO,CAAC,KAAD;AAFqB;AAgmHG;AAAf;AAEzB,eAAU;AAFe;AAAe;AAKC;AAAhB;AAEzB,eAAU;AAFe;AAAgB;AA1xNS;AAAzB;AAEzB,eAAU;AAFe;AAAyB;AAutDX;AAAd;AAEzB,eAAU;AAFe;AAAc;AAltDG;AAAjB;AAEzB,eAAU;AAFe;AAAiB;AAwuNC;AAAlB;AAEzB,eAAU;AAFe;AAAkB;AALH;AAAf;AAEzB,eAAU;AAFe;AAAe;AALC;AAAhB;AAEzB,eAAU;AAFe;AAAgB;AALC;AAAjB;AAEzB,eAAU;AAFe;AAAiB;AAjtJF;AAAf;AAEzB,eAAU;AAFe;AAAe;AA6iHL;AAAV;AAEzB;AAAG;AACH;AACA;AACA;AAAG;AACH;AAEA,UAAK;AACL,UAAM,cAAG,CAAC,sBAAiB,CAAlB,CAAqB,KAAE,CAAF;AAC9B,eAAU;AACV,UAAG,CAAH;AAEE,YAAK,cAAG,CAAC,sBAAiB,CAAlB;AACR,cAAO,cAAG,CAAC,uBAAkB,CAAnB;AACV,YAAG,GAAI,GAAE,CAAT;AAEE,eAAM,eAAI,CAAC,EAAG,GAAI,GAAS,sBAAD,OAAR,CAAmC,CAAD,OAAU,GAAJ,GAAF,GAAQ,CAAtD;AACV,cAAK,eAAI,CAAC,EAAG,CAAE,GAAS,qBAAD,OAAR,CAA2B,GAA8B,GAAjB,qBAAD,OAAR,GAA4B,CAAjE;;AAIT,cAAK,eAAI,CAAC,EAAG,CAAE,GAAS,qBAAD,OAAR,CAAkC,CAAD,OAAI,GAAE,CAA7C;AACT,eAAM;;AAGR,YAAG,EAAG,KAAG,EAAT,EACE,KAAM,sCAAY,UAAU,CAAC,GhFtuPqC,IgFsuPtC,CAD9B;AAGA,YAAK,sCAAY,UAAU,CAAC,EhFxuPwC,IgFwuPzC;AAE3B,aAAM,yBAAoB,QAAC;AAC3B;AACI,sEAAF,GAAW,CAAT;AACF,YAAE,YAAF,GAAiB;AAEjB,cAAG,EAAE,IAAI,KAAG,EAAZ;AAEE,gBAAG,cAAG,CAAC,SAAU,EAAE,WAAb,CAAyB,GAAE,CAAjC,EACE,EAAE,QAAF,GAAc,kBAAa,CAAC,EAAE,IAAH,CAD7B;AAGA,gBAAG,cAAG,CAAC,cAAe,EAAE,WAAlB,CAA8B,GAAE,CAAtC,EACE,EAAE,aAAF,GAAmB,uBAAkB,CAAC,EAAE,IAAH,CADvC;WALF;AASA,cAAG,EAAE,WAAW,KAAE,aAAlB;AAEE,mCAAkB,IAAlB;AACA;WAEG,UAAG,EAAE,WAAW,KAAE,gBAAlB;AACH,iCAAgB,CAAC,EAAD;AACb,oBAAG,EAAE,WAAW,KAAE,aAAlB;AACH,8BAAa,CAAC,EAAD;AACV,oBAAG,EAAE,WAAW,KAAE,cAAlB;AACH,+BAAc,CAAC,EAAD;AACX,oBAAG,EAAE,WAAW,KAAE,YAAlB;AACH,6BAAY,CAAC,EAAD;AAGT,oBAAG,EAAE,WAAW,KAAE,UAAlB;AACH,2BAAU,CAAC,EAAD;AACP,oBAAG,EAAE,WAAW,KAAE,eAAlB;AACH,gCAAe,CAAC,EAAD;AACZ,oBAAG,EAAE,WAAW,KAAE,YAAlB;AACH,6BAAY,CAAC,EAAD;AACT,oBAAG,EAAE,WAAW,KAAE,aAAlB;AACH,8BAAa,CAAC,EAAD;AACV,oBAAG,EAAE,WAAW,KAAE,cAAlB;AACH,+BAAc,CAAC,EAAD;AACX,oBAAG,EAAE,WAAW,KAAE,cAAlB;AACH,+BAAc,CAAC,EAAD;AACX,oBAAG,EAAE,WAAW,KAAE,YAAlB;AACH,6BAAY,CAAC,EAAD;AACT,oBAAG,EAAE,WAAW,KAAE,eAAlB;AACH,gCAAe,CAAC,EAAD;AACZ,oBAAG,EAAE,WAAW,KAAE,eAAlB;AACH,gCAAe,CAAC,EAAD;AACZ,oBAAG,EAAE,WAAW,KAAE,kBAAlB;AACH,mCAAkB,CAAC,EAAD;AACf,oBAAG,EAAE,WAAW,KAAE,aAAlB;AACH,8BAAa,CAAC,EAAD;AACV,oBAAG,EAAE,WAAW,KAAE,kBAAlB;AACH,mCAAkB,CAAC,EAAD;AACf,oBAAG,EAAE,WAAW,KAAE,gBAAlB;AACH,iCAAgB,CAAC,EAAD;AACb,oBAAG,EAAE,WAAW,KAAE,iBAAlB;AACH,kCAAiB,CAAC,EAAD;AACd,oBAAG,EAAE,WAAW,KAAE,eAAlB;AACH,gCAAe,CAAC,EAAD;AACZ,oBAAG,EAAE,WAAW,KAAE,kBAAlB;AACH,mCAAkB,CAAC,EAAD;AACf,oBAAG,EAAE,WAAW,KAAE,kBAAlB;AACH,mCAAkB,CAAC,EAAD;AACf,oBAAG,EAAE,WAAW,KAAE,kBAAlB;AACH,mCAAkB,CAAC,EAAD;AACf,oBAAG,EAAE,WAAW,KAAE,uBAAlB;AACH,wCAAuB,CAAC,EAAD;AACpB,oBAAG,EAAE,WAAW,KAAE,qBAAlB;AACH,sCAAqB,CAAC,EAAD;AAClB,oBAAG,EAAE,WAAW,KAAE,sBAAlB;AACH,uCAAsB,CAAC,EAAD;AACnB,oBAAG,EAAE,WAAW,KAAE,oBAAlB;AACH,qCAAoB,CAAC,EAAD;AACjB,oBAAG,EAAE,WAAW,KAAE,uBAAlB;AACH,wCAAuB,CAAC,EAAD;AACpB,oBAAG,EAAE,WAAW,KAAE,uBAAlB;AACH,wCAAuB,CAAC,EAAD;AACpB,oBAAG,EAAE,WAAW,KAAE,OAAlB;AAEH,gBAAK,+BAA0B,QAAC,YAAM,CAAC,EAAE,IAAH,CAAN;AAChC;AACE,0BAAO,CAAC,CAAD;AADT;AAGE,eAAE,eAAF,CAAE;AAHJ;;AAQA,gCAAe,CAAC,EAAD;;AAvFnB;AA0FE,YAAG,eAAH,EAAG;AA1FL;OArBF;AAXyB;AAAU;AAdC;AAAX;AAEzB,eAAU;AACV,UAAG,MAAO,KAAE,MAAZ;AAEE,iBAAU;AACV;OAHF;AAMA,eAAU,0BAAa,CAAC,OAAQ,IAAK,GAAI,cAAC,4CAAD,CAAlB;AACvB,eAAU,0BAAa,CAAC,OAAQ,IAAK,GAAI,cAAC,4CAAD,CAAlB;AACvB,eAAU,0BAAa,CAAC,OAAQ,IAAK,GAAI,cAAC,4CAAD,CAAlB;AAXE;AAAW;AAqvBI;AAAf;AAIzB;AAEU,sBAAD,sBAAC,6CAAkB,CAAnB;AACT,sBAAgB,CAAC,CAAD,CAAG,MAAnB,GAA6B;AAE7B,qBAAU,sBAAe,CAAC,MAAO,aAAc,cAAe,aAAc,+BAAkB,kBAAmB,mBAAoB,4BAA5G,CAAzB;AATyB;AAAe;AAYA;;AAAf;AAID;AAAb;AAEP,iBAAU;AACV,YAAY,KAAD,QAAX;AAEE,mBAAU,KAAwC,WAAW;SAF/D;AAHO;AAAa;AAUxB;AACA;AAAG;AAAG;AAAG;AACT;AAAO;AAAO;AACd;AAAO;AAAO;AAAO;AAAO;AAAO;AACnC;AACA;AACA;AACA;AAAK;AAAO;AAAQ;AAIpB;AAAS;AACT;AAAU;AACV;AAAK;AAAW;AAAW;AAC3B;AACA;AACA;AACA;AACA;AACA;AAAW;AACX;AAAO;AAAW;AAClB;AACA;AACA;AACA;AAYF;AACA;AAQE,mBAAc,MAAM;AAEpB,cAAS;AACT,cAAS,CAAC;AACV,kBAAa;AACb,kBAAa;AACb,gBAAW;AACX,eAAU,CAAC;AACX,UAAK;AAEL,UAAY,UAAD,QAAX;AAGE,gBAAS,cAAQ,CAAC,WAAY,KAAb;AAEjB;AACE,cAAY,KAAD,QAAX;AAEE,oBAAS,uBAAiB,CAAC,MAA0C,KAA3C;AAC1B,oBAAS,uBAAiB,CAAC,MAA0C,KAA3C;AAE1B,gBAAW,CAAC,KAAD,SAAQ,IAAY,CAAC,KAAD,SAA/B;AAEM,oBAAJ,IAAG;AACO,oBAAM,UAAP,sBAAC,MAAM,yEAAY,MAAO,GAAE,CAA5B;AAET,kBAAG,sCAAY,iBAAiB,CAAC,KAAK,WAAY;;;;kBAAlB,CAAhC;AAEE,sBAAM,UAAU,CAAC,MAAD,CAAQ,SAAS,SAAjC,GAA8C;eAFhD;AAKA,kBAAG,sCAAY,iBAAiB,CAAC,KAAK,WAAY;;;;kBAAlB,CAAhC;AAEE,sBAAM,UAAU,CAAC,MAAD,CAAQ,SAAS,UAAjC,GAA+C;eAFjD;AAKA,sBAAS,cAAQ,CAAC,MAAO,MAAR;AACjB,oBAAM,UAAU,CAAC,MAAD,CAAQ,KAAxB,GAAiC,aAAa,CAAC,KAAD;AAE9C,sBAAS,cAAQ,CAAC,MAAO,KAAR;AACjB,oBAAM,UAAU,CAAC,MAAD,CAAQ,QAAxB,GAAoC,aAAa,CAAC,KAAD;AAEjD,sBAAS,cAAQ,CAAC,MAAO,MAAR;AACjB,oBAAM,UAAU,CAAC,MAAD,CAAQ,YAAxB,GAAwC,aAAa,CAAC,KAAD;AAErD,sBAAS,cAAQ,CAAC,MAAO,KAAR;AACjB,oBAAM,UAAU,CAAC,MAAD,CAAQ,OAAxB,GAAmC,aAAa,CAAC,KAAD;AAEhD,sBAAS,cAAQ,CAAC,MAAO,MAAR;AACjB,oBAAM,UAAU,CAAC,MAAD,CAAQ,aAAxB,GAAyC,aAAa,CAAC,KAAD;AAEtD,oBAAM,UAAU,CAAC,MAAD,CAAQ,aAAxB,GAAyC;AACzC,sBAAS,cAAQ,CAAC,MAAO,MAAR;AACjB,0BAAa,aAAa,CAAC,KAAD;AAC1B,kBAAG,SAAU,KAAG,EAAhB;AAEE,sBAAM,UAAU,CAAC,MAAD,CAAQ,UAAxB,GAAsC,sCAAY,cAAc,CAAC,UAAW,IAAZ;AAChE,sBAAM,UAAU,CAAC,MAAD,CAAQ,aAAxB,GAAyC;eAH3C;AAMA,oBAAM,UAAU,CAAC,MAAD,CAAQ,aAAxB,GAAyC;AACzC,sBAAS,cAAQ,CAAC,MAAO,KAAR;AACjB,kBAAG,sCAAY,iBAAiB,CAAC,aAAa,CAAC,KAAD,EAAS;;;;kBAAvB,CAAhC;AAEE,sBAAM,UAAU,CAAC,MAAD,CAAQ,UAAxB,GAAsC;AACtC,sBAAM,UAAU,CAAC,MAAD,CAAQ,aAAxB,GAAyC;eAH3C;AAMA,sBAAS,cAAQ,CAAC,MAAO,MAAR;AACjB,kBAAY,KAAD,QAAX;AAEE,wBAAS,uBAAiB,CAAC,MAA0C,MAA3C;AAE1B,oBAAY,KAAD,QAAX;AAEE,wBAAM,UAAU,CAAC,MAAD,CAAQ,KAAxB,GAAiC,KAAK;iBAFxC;eAJF;AAUA,kCAAqB,mEAA+B,QAAC;AACrD,+BAAiB,MAAjB,GAA0B;AAC1B,+BAAiB,MAAC,SAAQ,MAAM,UAAU,CAAC,MAAD,CAAxB;AAClB;AACE,wCAAmB,CAAC,iBAAD;AADrB;AAGE,iCAAkB,eAAlB,iBAAkB;AAHpB;aA7DF;WALF;AA0EA,cAAY,KAAD,QAAX,EACE,QAAS,KAAK,YADhB;SA3EF,QA6EoB,KAAD,QA7EnB;AA+EA,gBAAS,cAAQ,CAAC,WAAY,KAAb;AAEjB,YAAG,CAAY,CAAC,KAAD,SAAf;AAEE,kBAAS,cAAQ,CAAC,WAAY,KAAb;AACjB,kBAAS;SAHX;AAMA;AACE,cAAY,KAAD,QAAX;AAEE,qBAAU,CAAC;AACP,iBAAJ,IAAG;AAEO,kBAAM,OAAP,sBAAC,MAAM,mEAAS,KAAM,GAAE,CAAxB;AAET,oBAAS,cAAQ,CAAC,MAAO,MAAR;AACjB,gBAAY,KAAD,QAAX,EACE,MAAM,OAAO,CAAC,KAAD,CAAO,KAApB,GAA6B,KAAwC,SADvE;AAGA,6BAAkB,gEAA4B,QAAC;AAC/C,0BAAc,MAAd,GAAuB;AACvB,0BAAc,MAAC,SAAQ,MAAM,OAAO,CAAC,KAAD,CAArB;AACf;AACE,mCAAgB,CAAC,cAAD;AADlB;AAGE,4BAAe,eAAf,cAAe;AAHjB;AAMA,gBAAG,CAAI,KAAP;AACE,sBAAS,cAAQ,CAAC,MAAO,QAAR;AAEjB,0BAAS;AAEX;AACE,kBAAW,CAAC,KAAD,SAAQ,IAAI,KAAK,gBAA5B;AAEE,sBAAO,CAAC;AACJ,sBAAJ,IAAG;AACO,sBAAM,OAAO,CAAC,KAAD,CAAO,SAArB,sBAAC,MAAM,OAAO,CAAC,KAAD,CAAO,aAAW,MAAO,GAAE,CAAzC;AACT,8BAAe;AAEf,wBAAS,uBAAiB,CAAC,KAAD;AAE1B,uBAAe,KAAD,QAAd;AAEE,0BAAS;AACT,6BAAY,KAAK;AAEjB,sBAAG,CAAI,KAAM,IAAU,CAAN,KAAM,IAAoB,CAAf,KAAK,SAAU,KAAE,OAAF,CAApB,CAAvB;AAEE,4BAAS,uBAAiB,CAAC,MAAO,KAAR;AAC1B,4BAAS,uBAAiB,CAAC,MAAO,KAAR;AAE1B,wBAAW,CAAC,KAAD,SAAQ,IAAY,CAAC,KAAD,SAA/B;AAEM,yBAAJ,IAAG;AACO,4BAAM,OAAO,CAAC,KAAD,CAAO,SAAS,CAAC,MAAD,CAA9B,sBAAC,MAAM,OAAO,CAAC,KAAD,CAAO,SAAS,CAAC,MAAD,+DAAU,GAAI,GAAE,CAA9C;AAET,0BAAG,QAAS,KAAE,OAAd;AAEE,gCAAS,iBAAW,CAAC,MAAO,KAAR;AACpB,4BAAY,KAAD,QAAX;AAEE,gCAAO;AACP,8BAAG,sCAAY,iBAAiB,CAAC,KAAK,WAAW,WAAY;;;;8BAA7B,CAAhC;AAEE,gCAAG,WAAH;AAEE,kCAAG,GAAI,GAAE,SAAT,EACE,YAAa,GADf;AAEA,kCAAG,GAAI,GAAE,SAAT,EACE,YAAa,GADf;;AAKA,4CAAe;AACf,0CAAa;AACb,0CAAa;;AAGf,kCAAM,OAAO,CAAC,KAAD,CAAO,SAAS,CAAC,MAAD,CAAQ,CAAC,GAAD,CAAK,UAA1C,GAAwD;AACxD,kCAAM,OAAO,CAAC,KAAD,CAAO,SAAS,CAAC,MAAD,CAAQ,CAAC,GAAD,CAAK,aAA1C,GAA2D;2BAjB7D;yBAHF;AAwBA,gCAAS,iBAAW,CAAC,MAAO,MAAR;AACpB,4BAAY,KAAD,QAAX;AAEE,sCAAa,KAAK,WAAW;AAC7B,8BAAG,SAAU,KAAG,EAAhB;AAEE,kCAAM,OAAO,CAAC,KAAD,CAAO,SAAS,CAAC,MAAD,CAAQ,CAAC,GAAD,CAAK,UAA1C,GAAwD,sCAAY,cAAc,CAAC,UAAW,IAAZ;AAClF,kCAAM,OAAO,CAAC,KAAD,CAAO,SAAS,CAAC,MAAD,CAAQ,CAAC,GAAD,CAAK,aAA1C,GAA2D;2BAH7D;yBAHF;uBA5BF;AAuCA,0BAAK;AACL,0BAAG,sCAAY,iBAAiB,CAAC,KAAK,WAAY;;;;0BAAlB,CAAhC,EACE,MAAM,OAAO,CAAC,KAAD,CAAO,SAAS,CAAC,MAAD,CAAQ,CAAC,GAAD,CAAK,SAA1C,GAAuD,CADzD;AAGA,0BAAK;AACL,0BAAG,sCAAY,iBAAiB,CAAC,KAAK,WAAY;;;;0BAAlB,CAAhC,EACE,MAAM,OAAO,CAAC,KAAD,CAAO,SAAS,CAAC,MAAD,CAAQ,CAAC,GAAD,CAAK,UAA1C,GAAwD,CAD1D;AAGU,6BAAD,sBAAC,qEAAe,WAAC,OAAD,CAAU,GAAE,CAA5B;AACT,6BAAO,CAAO,WAAC,OAAD,CAAU,GAAE,CAAnB,UAAyB,oDAAgB,CAAC,MAAM,OAAO,CAAC,KAAD,CAAO,SAAS,CAAC,MAAD,CAAQ,CAAC,GAAD,CAAK,UAAW,MAAM,OAAO,CAAC,KAAD,CAAO,SAAS,CAAC,MAAD,CAAQ,CAAC,GAAD,CAAK,UAAhG,CAAzC;AAEP,yCAAoB,kEAA8B,QAAC;AACnD,sCAAgB,MAAhB,GAAyB;AACzB,sCAAgB,MAAC,SAAQ,MAAM,OAAO,CAAC,KAAD,CAAO,SAAS,CAAC,MAAD,CAAQ,CAAC,GAAD,CAA7C;AACjB;AACE,+CAAkB,CAAC,gBAAD;AADpB;AAGE,wCAAiB,eAAjB,gBAAiB;AAHnB;qBA1DF;mBALF;AAuEA,0BAAS,KAAK;;eArFlB;AAyFF,kBAAY,KAAD,QAAX,EACE,QAAS,KAAK,YADhB;aA1FA,QA6FoB,KAAD,QA7FnB;WAzBF;AAyHA,cAAY,KAAD,QAAX,EACE,QAAS,KAAK,YADhB;SA1HF,QA4HoB,KAAD,QA5HnB;OA5FF;AA2NA,UAAG,YAAH;AAEE,YAAW,WAAC,gBAAD,KAAX;AAEY,cAAD,sBAAC,iCAAY,WAAC,gBAAD,CAAb;AACT,iBAAQ;;AAIE,cAAD,sBAAC,iCAAM,CAAP;AACT,aAAG,MAAH,GAAa;AACb,cAAI,CAAC,CAAD,UAAO,GAAP;AACJ,aAAG,MAAH,GAAa;AACb,cAAI,CAAC,CAAD,UAAO,GAAP;AACJ,aAAG,MAAH,GAAa;AACb,cAAI,CAAC,CAAD,UAAO,GAAP;AACJ,aAAG,MAAH,GAAa;AACb,cAAI,CAAC,CAAD,UAAO,GAAP;AACJ,aAAG,MAAH,GAAa;AACb,cAAI,CAAC,CAAD,UAAO,GAAP;;AAEN,sBAAS,IAAI,CAAC,CAAD,CAAG,MAAhB;AACA,oBAAa;AACb,gBAAS;AACT,oBAAa;AAEb;AACA,iBAAS,QAA8B,OAAnB,WAAC,MAAM,UAAP,CAAmB,GAAE,CAAF,kBAAvC;AAAI;AAEF,cAAK,cAAS,CAAoB,oEAAnB,MAAM,UAAU,CAAC,CAAD,CAAG,WAjqOuC,GAAuB,EAiqOlF;AACd,WAAC,aAAY,WAAC,CAAW,IAAX;;AAahB,iBAAS,SAA2B,QAAhB,WAAC,MAAM,OAAP,CAAgB,GAAE,CAAF,qBAApC;AAAI;AAEF,mBAAS,SAAuC,QAA5B,WAAC,MAAM,OAAO,CAAC,CAAD,CAAG,SAAjB,CAA4B,GAAE,CAAF,qBAAhD;AAAI;AAGF,gBAAG,iBAAkB,IAAG,kBAAxB;AAEE,uBAAS,SAA0C,QAA/B,WAAC,MAAM,OAAO,CAAC,CAAD,CAAG,SAAS,CAAC,CAAD,CAA1B,CAA+B,GAAE,CAAF,qBAAnD;AAAI;AAGF,oBAAG,kBAAmB,IAAkC,CAA7B,4BAA6B,GAAE,CAAF,CAAxD;AAEE,8BAAa,MAAM,OAAO,CAAC,CAAD,CAAG,SAAS,CAAC,CAAD,CAAG,CAAC,CAAD,CAAG;AAC5C,sBAAc,CAAV,SAAU,KAAG,OAAH,CAAiC,IAAN,CAAV,SAAU,KAAG,CAAH,CAAf,IAA6D,CAAnC,4BAAc,CAAC,UAAW,OAAZ,CAAqB,GAAE,4BAAF,CAAvF;AAEE,8BAAW;AACX,kCAAS,CAA6B,oEAA5B,MAAM,OAAO,CAAC,CAAD,CAAG,SAAS,CAAC,CAAD,CAAG,CAAC,CAAE,GAAE,CAAL,GAAS,0BAAa,CAAC,Q9Jz8QL,K8Jy8QI,EA/rO0B,EA+rO7E;mBAHX;iBAHF;AAUA,oBAAG,iBAAH;AAEE,+BAAc;AACd,sBAAS,WAAC,IAAD,CAAO,GAAE,CAAlB,EACE,aAAoB,WAAC,IAAD,CADtB;AAGA,8BAAwB,CAAV,SAAU,GAAE,SAAF,CAAa,GAAE,UAAF;AAErC,0BAAS;AACT,2BAAS,SAAgB,QAAX,UAAW,GAAE,CAAF,qBAAzB;AAAI;AAEF,wBAAG,MAAM,OAAO,CAAC,CAAD,CAAG,SAAS,CAAC,CAAD,CAAG,CAAC,CAAD,CAAG,UAAW,GAAa,CAAV,SAAU,GAAa,CAAV,SAAU,GAAE,CAAF,CAAb,CAA1D,EACE,QAAS,CADX;;AAIQ,qBAAD,sBAAC,iEAAW,WAAC,GAAD,CAAM,GAAE,CAApB;AACT,qBAAG,CAAO,WAAC,GAAD,CAAM,GAAE,CAAf,UAAqB,MAAM,OAAO,CAAC,CAAD,CAAG,SAAS,CAAC,CAAD,CAAG,CAAC,CAAD,CAAjD;AAEH,sBAAS,WAAC,IAAD,CAAO,GAAE,CAAlB;AACE,kCAAS,IAAI,CAAC,KAAD,CAAO,MAApB;AAEA,sCAAS,yCAAO,CAAC,IAAI,CAAC,CAAD,CAAG,OAAS,KAAM,GAAE,UAAK,CAAC,GAAI,GAAE,UAAP,CAA9B,CAAhB;AAEF,sBAAU,CAAN,KAAM,KAAG,SAAH,CAAc,IAAM,CAAF,CAAE,KAAuC,CAA/B,WAAC,MAAM,OAAO,CAAC,CAAD,CAAG,SAAS,CAAC,CAAD,CAA1B,CAA+B,GAAE,CAAF,CAAvC,CAA9B;AAEE,gCAAa;AAEH,uBAAD,sBAAC,iEAAW,WAAC,GAAD,CAAM,GAAE,CAApB;AACT,uBAAG,CAAO,WAAC,GAAD,CAAM,GAAE,CAAf,UAAqB,MAAM,OAAO,CAAC,CAAD,CAAG,SAAS,CAAC,CAAD,CAAG,CAAC,CAAE,GAAE,CAAL,CAAjD;AAEH,wBAAK,gBAAW,CAAC,kBA/tOuD,KA+tOxD;AAChB,qBAAC,eAAC,CAAe,WAAf;AACF,qBAAC,eAAC,CAAe,YAAf;AACQ,uBAAD,sBAAC,iEAAK,CAAN;AAET,0BAAO;mBAZT;iBAvBF;;;AA2CF,kBAAK,gBAAW,CAA0B,aAAzB,MAAM,OAAO,CAAC,CAAD,CAAG,SAAS,CAAC,CAAD,GA5uOoC,KA4uO9D;AAChB,eAAC,eAAC,CAAe,WAAf;AACF,eAAC,eAAC,CAAe,YAAf;;;;AAIR;AAEA,YAAG,aAAH,EACE,iBAAY,CAAC,qBAAD,CADd;OAlHF;AAhSyB;AAAe;AAtOI;;AAAnB;AAGzB;AAAI;AACJ;AACA;AAAG;AAAG;AACN;AACA;AAAQ;AAAQ;AAAQ;AAAQ;AAAK;AACrC;AACA;AACA;AAAM;AACN;AAEmB;AAEP,cAAM,CAAO,WAAC,MAAD,CAAS,GAAE,CAAlB,CAAP,sBAAC,MAAM,CAAO,WAAC,MAAD,CAAS,GAAE,CAAlB,+DAA4B,WAAC,MAAM,CAAO,WAAC,MAAD,CAAS,GAAE,CAAlB,CAAP,CAA6B,GAAE,CAAlE;AAET,YAAG,sCAAY,iBAAiB,CAAC,GAAD,CAAM,IAAG,cAAC,EAAE,CAAH,CAAzC;AAEE,gBAAO,sCAAY,qBAAqB,CAAC,sCAAY,iBAAiB,CAAC,IAAK,CAAN,CAA9B;AACxC,gBAAO,sCAAY,qBAAqB,CAAC,sCAAY,iBAAiB,CAAC,IAAK,CAAN,CAA9B;AACxC,gBAAM,CAAO,WAAC,MAAD,CAAS,GAAE,CAAlB,CAAoB,CAAO,WAAC,MAAM,CAAO,WAAC,MAAD,CAAS,GAAE,CAAlB,CAAP,CAA6B,GAAE,CAAtC,CAAwC,UAAlE,GAAgF;AAChF,gBAAM,CAAO,WAAC,MAAD,CAAS,GAAE,CAAlB,CAAoB,CAAO,WAAC,MAAM,CAAO,WAAC,MAAD,CAAS,GAAE,CAAlB,CAAP,CAA6B,GAAE,CAAtC,CAAwC,SAAlE,GAA+E;AAE/E,cAAG,GAAI,GAAE,MAAT,EACE,SAAU,GADZ;AAEA,cAAG,GAAI,GAAE,MAAT,EACE,SAAU,GADZ;AAEA,cAAG,GAAI,GAAE,MAAT,EACE,SAAU,GADZ;AAEA,cAAG,GAAI,GAAE,MAAT,EACE,SAAU,GADZ;SAbF;AAJiB;AAsBI;AAEX,cAAD,sBAAC,UAAc,WAAC,MAAD,CAAS,GAAE,CAA1B;AAFY;AAKD;AAEpB;AAAG;AAAG;AAAG;AAAG;AACZ;AAAI;AACJ;AAAK;AAAK;AAAM;AAChB;AAEU,cAAD,sBAAC,UAAQ,CAAT;AAET,aAAM,sCAAY,aAAa,CAAC,OAAQ,MAAT;AAC/B,YAAG,CAAY,CAAC,EAAD,SAAf,EACE,KAAM,sCAAY,aAAa,CAAC,OAAQ,YAAT,CADjC;AAGA,YAAY,EAAD,QAAX,EACE,WAAY,sCAAY,YAAY,CAAC,GAAI,MAAL,CADtC;AAIA,aAAM,sCAAY,aAAa,CAAC,OAAQ,UAAT;AAC/B,YAAY,EAAD,QAAX;AAEE,wBAAe;AACf,mBAAU,sBAAS,CAAC,sCAAY,YAAY,CAAC,GAAI,MAAL,CAAzB;AAEnB,cAAW,CAAP,MAAO,KAAE,SAAF,CAAqG,IAA7E,CAAP,MAAO,KAAE,cAAF,CAAX,IAAwC,CAAP,MAAO,KAAE,YAAF,CAAX,IAAsC,CAAP,MAAO,KAAE,iBAAF,CAAX,IAA2C,CAAP,MAAO,KAAE,OAAF,CAA3H;AAEE,iBAAM,sCAAY,aAAa,CAAC,GAAI,aAAL;AAE/B,gBAAW,CAAC,EAAD,SAAK,IAAW,6BAAH,eAAH,EAAG,CAAxB;AAEE,oBAAU,OAAH,GAAM,6BAAH;AAEV,kBAAuC,CAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,IAAG,cAAC,EAAE,CAAH,CAAH,CAAU,IAAI,CAA8C,6BAAH,eAAtC,sCAAY,iBAAiB,CAAC,IAAK,CAAN,CAAS,CAAhG;AAEE,yBAAS,CAAC,GAAD;;AAIT,yBAAS,QAAwC,OAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,kBAAjD;AAAI;AAEF,wBAA6C,OAAtC,sCAAY,iBAAiB,CAAC,IAAK,CAAN,EAAY,6BAAH;AAC7C;AAEA,sBAAuC,CAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,IAAG,cAAC,EAAE,CAAH,CAAH,CAAU,IAAI,CAA8C,6BAAH,eAAtC,sCAAY,iBAAiB,CAAC,IAAK,CAAN,CAAS,CAAhG;AAEE,6BAAS,CAAC,GAAD;;AAIT,6BAAS,SAAwC,QAAnC,sCAAY,iBAAiB,CAAC,GAAD,CAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,0BAA4C,6BAAH,eAAtC,sCAAY,iBAAiB,CAAC,IAAK,CAAN,CAAS,CAAzC;AAEE,+BAA8C,OAAtC,sCAAY,iBAAiB,CAAC,IAAK,CAAN,EAAY,6BAAH;AAE9C,4BAAwC,CAApC,sCAAY,iBAAiB,CAAC,IAAD,CAAO,IAAG,cAAC,EAAE,CAAH,CAAH,CAAU,IAAI,CAA+C,6BAAH,eAAvC,sCAAY,iBAAiB,CAAC,KAAM,CAAP,CAAU,CAAlG;AAEE,mCAAS,CAAC,IAAD;;AAIT,mCAAS,SAAyC,QAApC,sCAAY,iBAAiB,CAAC,IAAD,CAAO,GAAE,CAAF,qBAAlD;AAAI;AAEF,gCAA6C,6BAAH,eAAvC,sCAAY,iBAAiB,CAAC,KAAM,CAAP,CAAU,CAA1C;AAEE,sCAAgD,OAAvC,sCAAY,iBAAiB,CAAC,KAAM,CAAP,EAAa,6BAAH;AAChD,uCAAS,CAAC,KAAD;6BAHX;;;uBAZN;;;;;aAvBV;AAiDU,gBAAD,sBAAC,kEAAM,CAAP;AAET,qBAAS,SAAoB,QAAT,WAAC,MAAD,CAAS,GAAE,CAAF,qBAA7B;AAAI;AAEF,uBAAS,SAAuB,QAAZ,WAAC,MAAM,CAAC,CAAD,CAAP,CAAY,GAAE,CAAF,qBAAhC;AAAI;AAEF,oBAAG,CAAE,KAAE,CAAP;AAEY,sBAAD,sBAAC,kEAAY,WAAC,IAAD,CAAO,GAAE,CAAtB;AACT,sBAAI,CAAO,WAAC,IAAD,CAAO,GAAE,CAAhB,UAAsB,oDAAgB,CAAC,MAAM,CAAC,CAAD,CAAG,CAAC,CAAD,CAAG,UAAW,MAAM,CAAC,CAAD,CAAG,CAAC,CAAD,CAAG,UAApC,CAAtC;iBAHN;AAMU,uBAAD,sBAAC,qEAAe,WAAC,OAAD,CAAU,GAAE,CAA5B;AACT,uBAAO,CAAO,WAAC,OAAD,CAAU,GAAE,CAAnB,UAAyB,oDAAgB,CAAC,MAAM,CAAC,CAAD,CAAG,CAAC,CAAD,CAAG,UAAW,MAAM,CAAC,CAAD,CAAG,CAAC,CAAD,CAAG,UAApC,CAAzC;;;AAIX,+BAAoB,gCAA2B,QAAC;AAChD,4BAAgB,WAAhB,GAA8B;AAE9B,gBAAG,MAAO,KAAE,OAAZ;AAEY,oBAAM,OAAP,sBAAC,MAAM,iCAAe,WAAC,MAAM,OAAP,CAAgB,GAAE,CAAxC;AACT,oBAAM,OAAO,CAAO,WAAC,MAAM,OAAP,CAAgB,GAAE,CAAzB,CAA2B,WAAC,SAAc,IAAI,CAAC,CAAD,CAAlB;AACzC,oBAAM,OAAO,CAAO,WAAC,MAAM,OAAP,CAAgB,GAAE,CAAzB,CAA2B,KAAxC,GAAiD;AACjD,8BAAgB,OAAC,SAAS,MAAM,OAAO,CAAO,WAAC,MAAM,OAAP,CAAgB,GAAE,CAAzB,CAA2B,WAAjD;aAEd,UAAW,CAAP,MAAO,KAAE,YAAF,CAAgB,IAAW,CAAP,MAAO,KAAE,iBAAF,CAAtC;AAEO,oBAAM,UAAP,sBAAC,MAAM,0CAAkB,WAAC,MAAM,UAAP,CAAmB,GAAE,CAA9C;AACT,oBAAM,UAAU,CAAO,WAAC,MAAM,UAAP,CAAmB,GAAE,CAA5B,CAA8B,YAA9C,GAA8D;AAC9D,oBAAM,UAAU,CAAO,WAAC,MAAM,UAAP,CAAmB,GAAE,CAA5B,CAA8B,KAA9C,GAAuD;AACvD,8BAAgB,UAAhB,GAA6B,MAAM,UAAU,CAAO,WAAC,MAAM,UAAP,CAAmB,GAAE,CAA5B,CAA8B;;AAIjE,oBAAM,SAAP,sBAAC,MAAM,yCAAiB,WAAC,MAAM,SAAP,CAAkB,GAAE,CAA5C;AACT,oBAAM,SAAS,CAAO,WAAC,MAAM,SAAP,CAAkB,GAAE,CAA3B,CAA6B,YAA5C,GAA4D;AAC5D,oBAAM,SAAS,CAAO,WAAC,MAAM,SAAP,CAAkB,GAAE,CAA3B,CAA6B,KAA5C,GAAqD;AACrD,uBAAS,SAAoB,QAAT,WAAC,MAAD,CAAS,GAAE,CAAF,qBAA7B;AAAI;AAEQ,sBAAM,SAAS,CAAO,WAAC,MAAM,SAAP,CAAkB,GAAE,CAA3B,CAA6B,MAA7C,sBAAC,MAAM,SAAS,CAAO,WAAC,MAAM,SAAP,CAAkB,GAAE,CAA3B,CAA6B,UAAc,WAAC,MAAM,SAAS,CAAO,WAAC,MAAM,SAAP,CAAkB,GAAE,CAA3B,CAA6B,MAA7C,CAAqD,GAAE,CAAlH;AACT,sBAAM,SAAS,CAAO,WAAC,MAAM,SAAP,CAAkB,GAAE,CAA3B,CAA6B,MAAM,CAAC,CAAE,GAAE,CAAL,CAAlD,GAAmE,aAAN,MAAM,CAAC,CAAD;;AAErE,8BAAgB,SAAhB,GAA4B,MAAM,SAAS,CAAO,WAAC,MAAM,SAAP,CAAkB,GAAE,CAA3B,CAA6B;;AAG1E;AACE,yCAAqB,CAAC,gBAAD;AADvB;AAGE,8BAAiB,eAAjB,gBAAiB;AAHnB;WApGF;SALF;AAlBoB;AAsItB,WAAM,sCAAY,UAAU,CAAC,KAAD;AAE5B,UAAY,EAAD,QAAX;AAEE;AACE,gBAAO,sCAAY,aAAa,CAAC,GAAI,UAAL;AAEhC,mBAAU,CAAC;AACX,mBAAU,CAAC;AACX,mBAAU,CAAC;AACX,mBAAU,CAAC;AAEX,cAAW,CAAC,GAAD,SAAM,IAAY,6BAAH,eAAJ,GAAI,CAA1B;AAEE,iBAAU,OAAJ,IAAO,6BAAH;AACV,qBAAS,QAAuC,OAAlC,sCAAY,iBAAiB,CAAC,EAAD,CAAK,GAAE,CAAF,kBAAhD;AAAI;AACF,0BAAY,CAAC,sCAAY,iBAAiB,CAAC,GAAI,CAAL,CAA9B;;WAGd,MAAA,YAAY,CAAC,EAAD;AAfhB;AAiBE,YAAG,eAAH,EAAG;AAjBL;AAoBA,YAAG,YAAH;AAEE,mBAAS,SAA2B,QAAhB,WAAC,MAAM,OAAP,CAAgB,GAAE,CAAF,qBAApC;AAAI;AACF,0BAAS,CAAiB,oEAAhB,MAAM,OAAO,CAAC,CAAD,CAAG,aAv0N6C,GAAuB,EAu0NrF;;AACX,mBAAS,SAA8B,QAAnB,WAAC,MAAM,UAAP,CAAmB,GAAE,CAAF,qBAAvC;AAAI;AACF,4BAAW,CAAC,MAAM,UAAU,CAAC,CAAD,CAAG,aAv0NiD,KAu0NrE;;AACb,mBAAS,SAA6B,QAAlB,WAAC,MAAM,SAAP,CAAkB,GAAE,CAAF,qBAAtC;AAAI;AAEF,gBAAK,eAAU,CAAC,MAAM,SAAS,CAAC,CAAD,CAAG,aAz0N6C,KAy0NhE;AACf,qBAAS,SAAsC,QAA3B,WAAC,MAAM,SAAS,CAAC,CAAD,CAAG,MAAnB,CAA2B,GAAE,CAAF,qBAA/C;AAAI;AAEF,eAAC,QAAQ,CAAyB,aAAxB,MAAM,SAAS,CAAC,CAAD,CAAG,MAAM,CAAC,CAAD,EAAzB;;;AAGb,cAAG,aAAH,EACE,iBAAY,CAAC,qBAAD,CADd;SAdF;OAtBF;AAhLyB;AAAmB;AApkIK;AAAxB;AAEzB,eAAU;AAFe;AAAwB;AA1vEF;AAAtB;AAEzB,eAAU,sCAAY,aAAa,CAAC,sCAAY,cAAb,CAA2C,GAAd,yCAAF,GAAkB,OAAF;AAC9E,yCAA8B,CAAC;;;;UAAD;AAHL;AAAsB;AA+vEJ;AAAlB;AAEzB,eAAU;AAFe;AAAkB;AAfF;AAAhB;AAEzB,eAAU;AAFe;AAAgB;AAKJ;AAAZ;AAEzB,eAAU;AAFe;AAAY;AArCO;AAAnB;AAEzB,eAAU;AAFe;AAAmB;AAtIC;AAApB;AAEzB,UAAY,CAAC,qBAAD,SACV,IADiC,qBAAe,QAApB,IACf,CAAR,aAAQ,IAAG,cAAC,qCAAc,qCAAc,+BAAQ,iCAAU,iCAAU,kCAAzD,CAAH,CADf;AAEI,iBAAU;AAEZ,qBAAU;AANa;AAAoB;AAiPS;AAA7B;AAEzB,UAAG,2BAAH;AAEE,YAAG,qBAAe,SAAQ,UAAS,aAAa,KAAE,EAAlD;AACE,mBAAU;AAEV,uBAAU,qBAAe,SAAQ,UAAS;OAG5C,eAAU;AAVa;AAA6B;AAaF;AAA3B;AAEzB,UAAG,2BAAH;AAEE,YAAG,qBAAe,SAAQ,UAAS,WAAW,KAAE,EAAhD;AACE,mBAAU;AAEV,uBAAU,qBAAe,SAAQ,UAAS;OAG5C,eAAU;AAVa;AAA2B;AAaK;AAAhC;AAEzB,UAAG,2BAAH;AAEE,YAAG,qBAAe,SAAQ,UAAS,gBAAgB,KAAE,EAArD;AACE,mBAAU;AAEV,uBAAU,qBAAe,SAAQ,UAAS;OAG5C,eAAU;AAVa;AAAgC;AAaG;AAAnC;AAEzB,UAAG,2BAAH;AAEE,YAAG,qBAAe,SAAQ,UAAS,mBAAmB,KAAE,EAAxD;AACE,mBAAU;AAEV,uBAAU,qBAAe,SAAQ,UAAS;OAG5C,eAAU;AAVa;AAAmC;AApDK;AAAxC;AAEzB,UAAG,2BAAH;AAEE,YAAG,qBAAe,SAAQ,UAAS,mBAAmB,KAAE,EAAxD;AACE,mBAAU;AAEV,uBAAU,qBAAe,SAAQ,UAAS;OAG5C,eAAU;AAVa;AAAwC;AA87GX;AAEtD,UAAY,qCAAD,QAAX;AAEE,6CAA+B,eAAC,CAAe,qBAAe,SAAQ,UAAS,aAA/C;AAChC,gDAAmC;OAHrC;AAMA,UAAY,mCAAD,QAAX;AAEE,YAAI,mCAA6B,YAAY,KAAE,0BAA/C;AACE,6CAA6B,WAAC,CAAW,uCAAX;AAC3B,kBAAI,mCAA6B,YAAY,KAAE,+BAA/C;AACH,6CAA6B,WAAC,CAAW,oCAAX;AAC3B,kBAAI,mCAA6B,YAAY,KAAE,6BAA/C,EACH,mCAA6B,WAAC,CAAW,kCAAX,CAD3B;AAEL,8CAAiC;OARnC;AARsD;AAl1ErB;AAEjC;AACA,6BAAmB;AACnB;AAEA,UAAG,mBAAa,GAAE,CAAlB,EACE,MADF;AAGA;AATiC;AAzKK;AAGtC;AACA,UAAc,CAAV,SAAU,KAAE,+BAAF,CAAY,IAAgB,CAAX,UAAW,KAAE,qBAAF,CAA1C,EACE,wBAAoB,IADtB;AAJsC;AAugGN;AAEhC;AACA;AACA;AAJgC;AA5xFI;AAGpC;AACA;AAJoC;AA7sCM;AAE1C,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,IAAD,CADlB;AAF0C;AAopBc;AAGxD,UAAY,oCAAD,QAAX,EACE,oCAA8B,CAAC,KAAM,SAAP,CADhC;AAHwD;AAlxBhB;AAExC;AAEA,UAAG,MAAO,KAAE,MAAZ,EACE,MADF;AAGA,UAAG,sCAAY,iBAAiB,CAAC,OAAQ;;;;UAAT,CAAhC;AAEE,YAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,CAAP,CADhB;OAFF;AAPwC;AA5CO;AAE/C;AACA;AAEA,UAAG,MAAO,KAAE,MAAZ,EACE,MADF;AAGA,UAAK,sCAAY,UAAU,CAAC,OhFvgI0C,IgFugI3C;AAC3B,UAAK,yDAAqB,QAAC;AAC3B;AACG,oEAAD,EAAU,CAAT;AACD,YAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAO,oEAAD,CAAC,SAAC,EAAD,CAAR,CADvB;AAFF;AAKE,SAAE,eAAF,CAAE;AALJ;AAV+C;AAmBV;AAErC;AACA;AAEA,UAAG,MAAO,KAAE,MAAZ,EACE,MADF;AAGA,UAAK,sCAAY,UAAU,CAAC,OhF1hI0C,IgF0hI3C;AAC3B,UAAK,qDAAiB,QAAC;AACvB;AACG,oEAAD,EAAU,CAAT;AACD,YAAY,2BAAD,QAAX,EACE,2BAAW,CAAC,KAAO,gEAAD,CAAC,SAAC,EAAD,CAAR,CADb;AAFF;AAKE,SAAE,eAAF,CAAE;AALJ;AAVqC;AA0KE;AAEvC,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,UAAP,CADf;AAFuC;AAMG;AAE1C,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,UAAP,CADlB;AAF0C;AAyLF;AAExC,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,UAAP,CADhB;AAFwC;AANF;AAEtC,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAM,UAAP,CADd;AAFsC;AArGF;;AAER;AAAnB;AAEP;AAEA,iBAAU;AACV,iBAAS,QAAmB,OAAd,cAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AAEF,cAAG,cAAO,WAAC,CAAD,CAAG,YAAY,KAAE,+BAA3B;AAEE,qBAAU,cAAO,WAAC,CAAD;AACjB;WAHF;;AAPK;AAAmB;AAeA;AAAnB;AAEP;AAEA,iBAAU;AACV,iBAAS,QAAmB,OAAd,cAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AAEF,cAA2B,CAAtB,cAAO,WAAC,CAAD,CAAG,YAAY,KAAE,0BAAF,CAEzB,IAD0B,CAAtB,cAAO,WAAC,CAAD,CAAG,YAAY,KAAE,+BAAF,CAA1B,IAC0B,CAAtB,cAAO,WAAC,CAAD,CAAG,YAAY,KAAE,6BAAF,CAF5B,EAGE,SAAU,MAAO,GAAE,CAHrB;;AAPK;AAAmB;AAcX;AAAR;AAEP;AAEA,iBAAU;AACV,iBAAS,QAAkC,OAA7B,sBAAe,QAAO,SAAC,EAAM,GAAE,CAAF,kBAA3C;AAAI;AAEF,cAAG,sBAAe,QAAO,WAAC,CAAD,CAAG,YAAY,KAAE,yBAA1C;AAEE,qBAAU,sBAAe,QAAO,WAAC,CAAD;AAChC;WAHF;;AAPK;AAAQ;AAgBjB;AACA;AAEA,UAAG,2BAAH;AAEE;AAEA,YAAK;AACL,YAAG,CAAY,CAAC,CAAD,SAAf;AAEE,cAAK,cAAS,CAAsB,oEAArB,UAAU,YAAW,SAAC,EAAD,EA/uFqC,GAAuB,EA+uFlF;AACd,WAAC,WAAC,CAAW,oCAAX;AACF,WAAC,YAAD,GAAgB;SAEb,UAAG,qBAAoB,KAAE,CAAzB;AAEH,+BAAe,iBAAe,CAAa,oEAAZ,CAAC,YAAW,SAAC,EAAD,EAA6B,oEAArB,UAAU,YAAW,SAAC,EAAD,EFz7HqE,KAAiD,KAAmB,GAA4B,IEy7H/M;;AAI9B,cAAK;AACL,cAAY,CAAD,QAAX,EACE,qBAAe,kBAAgB,CAAC,EAAwB,oEAArB,UAAU,YAAW,SAAC,EAAD,EF57HuG,KAAmB,GAA4B,IE47H/K,CADjC;;OAlBJ;AAuBA,UAAY,gBAAD,QAAX,EACE,gBAAU,CAAC,MAAM,UAAP,CADZ;AAzEoC;AAiHK;AAEzC,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,UAAP,CADjB;AAFyC;AAlNH;AAEtC;AACA;AAEA,YAAO;AACP,UAAG,wBAAW,CAAC,UAAU,aAAa;;;;UAAxB,CAAd;AAEE,YAAK;AACL,yBAAY,CAAC;;;;YAAD;OAHd;AANsC;AA8KC;AAEvC,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,UAAP,CADf;AAFuC;AAMD;AAEtC,UAAG,2BAAH;AAEE,uCAA0B,CAAsB,oEAArB,UAAU,YAAW,SAAC,EAAD,CAAtB;AAC1B,yCAA4B,CAAsB,oEAArB,UAAU,YAAW,SAAC,EAAD,CAAtB;OAH9B;AAMA,UAAY,kBAAD,QAAX,EACE,kBAAY,CAAC,KAAM,UAAP,CADd;AARsC;AAoCE;AAExC,4BAAiB,CAAC,gBAAY,GAAE,IAAF,C3H5rH4E,KAA2B,K2H4rHpH;AAEjB,UAAG,2BAAH,EACE,mCADF;AAGA,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,UAAP,CADhB;AAPwC;AAWA;AAExC,UAAG,2BAAH;AAEE,YAAiB,CAAb,UAAU,GAAG,KAAG,0BAAH,CAC6C,IADF,CAAb,UAAU,GAAG,KAAG,0BAAH,CAAjB,IACT,CAA/B,UAAU,YAAW,UAAU,KAAG,4BAAH,CADoD,IACY,CAAhC,UAAU,YAAW,WAAW,KAAG,4BAAH,CADlG;AAGE,uCAAyB,UAAU;AACnC,uCAAyB,UAAU;AACnC,yCAA2B,UAAU,YAAW;AAChD,yCAA2B,UAAU,YAAW;AAEhD,cAAY,6BAAD,QAAX;AAEE,yBAAO,WAAC,CAAW,KAAX;AACR,+CAA+B;AAC/B,gBAAY,+BAAD,QAAX;AAEE;AACA,6CAA0B,YAAW,YAAC,CAAY,UAAU,YAAW,UAAjC;AACtC,6CAA0B,YAAW,aAAC,CAAa,UAAU,YAAW,WAAlC;AACtC;;AAIA;AACA,gDAA8B,cAAS,CAAsB,oEAArB,UAAU,YAAW,SAAC,EAAD,EAl1FQ,GAAuB,EAk1FrD;AACvC,6CAA0B,WAAC,CAAW,0CAAX;AAC3B,6CAA0B,YAA1B,GAAyC;AACzC;;WAjBJ;AAqBA,cAAY,2BAAD,QAAX;AAEE,yBAAO,WAAC,CAAW,KAAX;AACR,+CAA+B;AAC/B;AACA,uCAAsB,YAAW,YAAC,CAAY,UAAU,YAAW,UAAjC;AAClC,uCAAsB,YAAW,aAAC,CAAa,UAAU,YAAW,WAAlC;AAClC;WAPF;SA7BF;OAFF;AA2CA,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,UAAP,CADhB;AA7CwC;AAiDC;AAEzC,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,UAAP,CADjB;AAFyC;AAMA;AAEzC,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,UAAP,CADjB;AAFyC;AAhMG;AAG5C,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,UAAP,CADpB;AAH4C;AA4ML;AAEvC,UAAG,2BAAH;AAEE;AACA,YAAY,UAAU,QAAX,QAAX;AAEE,cAAiC,CAA7B,UAAU,QAAO,YAAY,KAAE,0BAAF,CAE/B,IADiC,CAA7B,UAAU,QAAO,YAAY,KAAE,+BAAF,CAAjC,IACiC,CAA7B,UAAU,QAAO,YAAY,KAAE,6BAAF,CAFnC;AAIE,kDAAkC,UAAU;AAC5C,+CAA8B,WAAC,CAAW,+CAAX;AAC/B,+CAA8B,UAA9B,GAA2C;WAN7C;SAFF;OAHF;AAgBA,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,UAAP,CADf;AAlBuC;AANK;AAE5C,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,UAAP,CADpB;AAF4C;AA4BF;AAE1C,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,UAAP,CADlB;AAF0C;AAMD;AAEzC,UAAG,2BAAH;AAEE,uCAA0B,CAAsB,oEAArB,UAAU,YAAW,SAAC,EAAD,CAAtB;AAC1B,yCAA4B,CAAsB,oEAArB,UAAU,YAAW,SAAC,EAAD,CAAtB;OAH9B;AAMA,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,UAAP,CADjB;AARyC;AAYE;AAE3C,UAAG,2BAAH;AAEE;AACA,YAAY,UAAU,QAAX,QAAX;AAEE,uBAAO,WAAC,CAAW,KAAX;AACR,wCAA0B,UAAU;AACpC,0CAA4B;AAC5B,6CAA+B;SALjC;OAHF;AAYA,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,UAAP,CADnB;AAd2C;AAkBC;AAE5C,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,UAAP,CADpB;AAF4C;AAMA;AAE5C,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,UAAP,CADpB;AAF4C;AAYA;AAE5C,UAAG,2BAAH;AAEE,YAAG,UAAU,aAAY,YAAY,KAAE,2BAAvC;AAEE;AACA,cAAY,UAAU,aAAX,QAAX;AAEE,oDAAwD,UAAU;AAClE,iDAAgC,eAAC,CAAe,qBAAgB,SAAQ,UAAS,qBAAhD;AACjC,iDAAgC,UAAhC,GAA6C;WAJ/C;SAHF;OAFF;AAcA,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,UAAP,CADpB;AAhB4C;AANK;AAEjD,UAAY,6BAAD,QAAX,EACE,6BAAuB,CAAC,KAAM,UAAP,CADzB;AAFiD;AA0BF;AAE/C,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,UAAP,CADvB;AAF+C;AAMD;AAE9C,UAAG,2BAAH;AAEE,uCAA0B,CAAsB,oEAArB,UAAU,YAAW,SAAC,EAAD,CAAtB;AAC1B,yCAA4B,CAAsB,oEAArB,UAAU,YAAW,SAAC,EAAD,CAAtB;OAH9B;AAMA,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,UAAP,CADtB;AAR8C;AAmEE;AAEhD,UAAG,2BAAH;AAEE;AACA,YAAY,UAAU,aAAX,QAAX;AAEE,uBAAO,WAAC,CAAW,KAAX;AACR,0CAA4B,UAAU;AACtC,wCAA0B;AAC1B,6CAA+B;SALjC;OAHF;AAYA,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,UAAP,CADxB;AAdgD;AAkBC;AAEjD,UAAY,6BAAD,QAAX,EACE,6BAAuB,CAAC,KAAM,UAAP,CADzB;AAFiD;AAMA;AAEjD,UAAY,6BAAD,QAAX,EACE,6BAAuB,CAAC,KAAM,UAAP,CADzB;AAFiD;AA+GP;AAG1C,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,UAAP,CADlB;AAH0C;AAPE;AAG5C,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,UAAP,CADpB;AAH4C;AAcC;AAG7C,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,KAAM,UAAP,CADrB;AAH6C;AArBE;AAG/C,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,UAAP,CADvB;AAH+C;AA4BR;AAEvC,UAAY,mBAAD,QAAX,EACE,mBAAa,CAAC,KAAM,UAAP,CADf;AAFuC;AAMC;AAExC,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,aAAP,CADhB;AAFwC;AAYY;AAEpD,UAAY,gCAAD,QAAX,EACE,gCAA0B,CAAC,KAAM,yBAAP,CAD5B;AAFoD;AAlzBT;AAE3C,UAAY,uBAAD,QAAX,EACE,uBAAiB,CAAC,KAAM,gBAAP,CADnB;AAF2C;AAMD;AAE1C,UAAY,sBAAD,QAAX,EACE,sBAAgB,CAAC,KAAM,eAAP,CADlB;AAF0C;AAZE;AAE5C,UAAY,wBAAD,QAAX,EACE,wBAAkB,CAAC,KAAM,iBAAP,CADpB;AAF4C;AAo0BI;AAEhD,UAAY,4BAAD,QAAX,EACE,4BAAsB,CAAC,KAAM,qBAAP,CADxB;AAFgD;AAMD;AAE/C,UAAY,2BAAD,QAAX,EACE,2BAAqB,CAAC,KAAM,oBAAP,CADvB;AAF+C;AAZD;AAE9C,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,KAAP,CADtB;AAF8C;AAZN;AAExC,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,aAAP,CADhB;AAFwC;AA1vBS;AAEjD,UAAY,6BAAD,QAAX,EACE,6BAAuB,CAAC,KAAM,QAAP,CADzB;AAFiD;AA2kBO;AAGxD,UAAY,oCAAD,QAAX,EACE,oCAA8B,CAAC,KAAM,QAAS,QAAhB,CADhC;AAHwD;AAOE;AAG1D,UAAY,sCAAD,QAAX,EACE,sCAAgC,CAAC,KAAM,QAAS,QAAhB,CADlC;AAH0D;AArBF;AAGxD,UAAY,oCAAD,QAAX,EACE,oCAA8B,CAAC,KAAM,UAAW,QAAlB,CADhC;AAHwD;AAOE;AAG1D,UAAY,sCAAD,QAAX,EACE,sCAAgC,CAAC,KAAM,UAAW,QAAlB,CADlC;AAH0D;AAdK;AAG/D,UAAY,0CAAD,QAAX,EACE,0CAAqC,CAAC,KAAM,WAAY,UAAW,QAA9B,CADvC;AAH+D;AAdD;AAE9D,UAAY,+CAAD,QAAX,EACE,+CAAoC,CAAC,IAAD,CADtC;AAF8D;AAMD;AAI7D,UAAY,wCAAD,QAAX,EACE,wCAAmC,CAAC,KAAM,WAAY,QAAS,QAA5B,CADrC;AAJ6D;AAZD;AAE5D,UAAY,6CAAD,QAAX,EACE,6CAAkC,CAAC,IAAD,CADpC;AAF4D;AAqFnB;AAEzC;AAAG;AACH;AAEA,yBAAoB;AAEpB,eAAS,QAA6B,OAAxB,uBAAiB,SAAC,EAAM,GAAE,CAAF,kBAAtC;AAAI;AAEF,iBAAS,SAAwC,QAAnC,uBAAiB,WAAC,CAAD,CAAG,SAAQ,SAAC,EAAM,GAAE,CAAF,qBAAjD;AAAI;AAEF,cAAY,uBAAiB,WAAC,CAAD,CAAG,SAAQ,UAAC,CAAD,CAAG,WAAhC,QAAX;AAEE,gBAAG,uBAAiB,WAAC,CAAD,CAAG,SAAQ,UAAC,CAAD,CAAG,eAAe,KAAE,UAAU,IAA7D;AAEE,kBAAsD,CAAX,CAAtC,uBAAiB,WAAC,CAAD,CAAG,SAAQ,UAAC,CAAD,CAAG,cAAO,KAAE,iCAAF,CAAW,IAA0B,CAArB,UAAU,WAAW,KAAE,qBAAF,CAA1B,CAclD,IAbyD,CAAd,CAAtC,uBAAiB,WAAC,CAAD,CAAG,SAAQ,UAAC,CAAD,CAAG,cAAO,KAAE,oCAAF,CAAc,IAA0B,CAArB,UAAU,WAAW,KAAE,wBAAF,CAA1B,CAAzD,IACyD,CAAd,CAAtC,uBAAiB,WAAC,CAAD,CAAG,SAAQ,UAAC,CAAD,CAAG,cAAO,KAAE,oCAAF,CAAc,IAA0B,CAArB,UAAU,WAAW,KAAE,wBAAF,CAA1B,CAAzD,IACwD,CAAb,CAAtC,uBAAiB,WAAC,CAAD,CAAG,SAAQ,UAAC,CAAD,CAAG,cAAO,KAAE,mCAAF,CAAa,IAA0B,CAArB,UAAU,WAAW,KAAE,uBAAF,CAA1B,CAAxD,IACsD,CAAX,CAAtC,uBAAiB,WAAC,CAAD,CAAG,SAAQ,UAAC,CAAD,CAAG,cAAO,KAAE,iCAAF,CAAW,IAA0B,CAArB,UAAU,WAAW,KAAE,qBAAF,CAA1B,CAAtD,IAC0D,CAAf,CAAtC,uBAAiB,WAAC,CAAD,CAAG,SAAQ,UAAC,CAAD,CAAG,cAAO,KAAE,qCAAF,CAAe,IAA0B,CAArB,UAAU,WAAW,KAAE,yBAAF,CAA1B,CAA1D,IAC0D,CAAf,CAAtC,uBAAiB,WAAC,CAAD,CAAG,SAAQ,UAAC,CAAD,CAAG,cAAO,KAAE,qCAAF,CAAe,IAA0B,CAArB,UAAU,WAAW,KAAE,yBAAF,CAA1B,CAA1D,IACwD,CAAb,CAAtC,uBAAiB,WAAC,CAAD,CAAG,SAAQ,UAAC,CAAD,CAAG,cAAO,KAAE,mCAAF,CAAa,IAA0B,CAArB,UAAU,WAAW,KAAE,uBAAF,CAA1B,CAAxD,IAC2D,CAAhB,CAAtC,uBAAiB,WAAC,CAAD,CAAG,SAAQ,UAAC,CAAD,CAAG,cAAO,KAAE,sCAAF,CAAgB,IAA0B,CAArB,UAAU,WAAW,KAAE,0BAAF,CAA1B,CAA3D,IAC2D,CAAhB,CAAtC,uBAAiB,WAAC,CAAD,CAAG,SAAQ,UAAC,CAAD,CAAG,cAAO,KAAE,sCAAF,CAAgB,IAA0B,CAArB,UAAU,WAAW,KAAE,0BAAF,CAA1B,CAA3D,IACqD,CAAV,CAAtC,uBAAiB,WAAC,CAAD,CAAG,SAAQ,UAAC,CAAD,CAAG,cAAO,KAAE,gCAAF,CAAU,IAA0B,CAArB,UAAU,WAAW,KAAE,oBAAF,CAA1B,CAArD,IACsD,CAAX,CAAtC,uBAAiB,WAAC,CAAD,CAAG,SAAQ,UAAC,CAAD,CAAG,cAAO,KAAE,iCAAF,CAAW,IAA0B,CAArB,UAAU,WAAW,KAAE,qBAAF,CAA1B,CAAtD,IACuD,CAAZ,CAAtC,uBAAiB,WAAC,CAAD,CAAG,SAAQ,UAAC,CAAD,CAAG,cAAO,KAAE,kCAAF,CAAY,IAA0B,CAArB,UAAU,WAAW,KAAE,sBAAF,CAA1B,CAAvD,IACuD,CAAZ,CAAtC,uBAAiB,WAAC,CAAD,CAAG,SAAQ,UAAC,CAAD,CAAG,cAAO,KAAE,kCAAF,CAAY,IAA0B,CAArB,UAAU,WAAW,KAAE,sBAAF,CAA1B,CAAvD,IACuD,CAAZ,CAAtC,uBAAiB,WAAC,CAAD,CAAG,SAAQ,UAAC,CAAD,CAAG,cAAO,KAAE,kCAAF,CAAY,IAA0B,CAArB,UAAU,WAAW,KAAE,sBAAF,CAA1B,CAd3D;AAiBE,mCAAoB;AACpB,uCAAiB,WAAC,CAAD,CAAG,SAAQ,UAAC,CAAD,CAAG,WAAU,CAAC,KAAM,UAAP;eAlB3C;aAFF;WAFF;;;AA6BJ,UAAG,CAAI,gBAAP,EACE,kBAAa,CAAC,UAAD,CADf;AAxCyC;AAwKD;AAExC,YAAM,OAAN,GAAiB,eAAU,CAAC,MAAM,IAAP;AAC3B;AAHwC;AA+UA;AAExC;AACA;AAHwC;AAp3FH;AAErC;AACA,6BAAmB;AACnB;AAJqC;AAmDE;AAEvC;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAVuC;AAYvC,YAAiB,CAAb,mBAAa,GAAE,CAAF,CAAqB,IAAb,mBAAH,IAAmB,oBAAzC,EACE,MADF;AAQA,kCAAS,IAAT;AACA,0CAAiB,IAAjB;AAEK;AACH,YADG,IACH;AAEE,cAAG,gCAA2B,UAAQ,0BAAwB,CAAC,oDAAwC;qBAAC;AAAD;;cAAzC,CAA9D,EACE,0BAAS,qBAAqB,cAA9B,KADF;SAGF,UANG,IAMH;AAEE,cAAG,gCAA2B,UAAQ,0BAAwB,CAAC,8CAAkC;qBAAC;AAAD;;cAAnC,CAA9D,EACE,0BAAS,eAAe,cAAxB,KADF;SAGF,UAXG,IAWH;AAEE,cAAG,gCAA2B,UAAQ,0BAAwB,CAAC,gDAAoC;qBAAC;AAAD;;cAArC,CAA9D,EACE,0BAAS,iBAAiB,cAA1B,KADF;AAEE,gDAAY,IAAI,CAAC,oFAAD;SAEpB,UAjBG,IAiBH;AAEE,cAAG,gCAA2B,UAAQ,0BAAwB,CAAC,mDAAuC;qBAAC;AAAD;;cAAxC,CAA9D,EACE,0BAAS,oBAAoB,cAA7B,KADF;SAGF,UAtBG,IAsBH;AAEE,cAAG,gCAA2B,UAAQ,0BAAwB,CAAC,kDAAsC;qBAAC;AAAD;;cAAvC,CAA9D,EACE,0BAAS,mBAAmB,cAA5B,KADF;AAEE,gDAAY,IAAI,CAAC,kFAAD;SAEpB,UA5BG,IA4BH;AAEE,cAAG,gCAA2B,UAAQ,0BAAwB,CAAC,oDAAwC;qBAAC;AAAD;;cAAzC,CAA9D,EACE,0BAAS,qBAAqB,cAA9B,KADF;SAGF,UAjCG,IAiCH;AAEE,cAAG,gCAA2B,UAAQ,0BAAwB,CAAC,iDAAqC;qBAAC;AAAD;;cAAtC,CAA9D,EACE,0BAAS,kBAAkB,cAA3B,KADF;SAGF,UAtCG,IAsCH;AAEE,cAAG,gCAA2B,UAAQ,0BAAwB,CAAC,gDAAoC;qBAAC;AAAD;;cAArC,CAA9D,EACE,0BAAS,iBAAiB,cAA1B,KADF;SAGF,UA3CG,IA2CH;AAEE,cAAG,gCAA2B,UAAQ,0BAAwB,CAAC,gDAAoC;qBAAC;AAAD;;cAArC,CAA9D,EACE,0BAAS,iBAAiB,cAA1B,KADF;SAFF;AAOF,YAAW,CAAC,UAAD,SAAQ,IAAI,uBAAQ,CAAC,WAAO,iDAA2B;;;;YAAnC,CAA/B,EACE,kBAAa,kBAAkB,CAAC,oBAAD,CADjC;AAGA;AA5EuC;AAEvC;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAzuCE;AA+tCqC;;AA5CC;AAUxC;AAGA,UAAiB,CAAb,mBAAa,GAAE,CAAF,CAAqB,IAAb,mBAAH,IAAmB,oBAAzC,EACE,MADF;AAIA;AACA,UAAK;AACL,sBAAW,CAAC,IAAD;AACX,sBAAW,CAAC,KAAD;AAoBT,mBAAQ,CAAC,cAAD;AAxC8B;AA2lPH;AAErC;AACA;AACA;AACA;AAAK;AAAI;AAAK;AAAI;AAAG;AAAI;AAAI;AAC7B;AAAK;AACL;AACA;AAEA,UAAG,eAAH;AAEE,cAAO;AACP,YAAK;AAEL,YAAK;AAEL,YAAK,yBAAoB,QAAC;AAC1B;AACE,cAAG,CAAH;AACE,6BAAY,CAAC,EAxlR0D,IAwlR3D;AAEZ,gBAAA,iBAAY,CAAC,EA3lR8D,KAA6B,IA2lR5F;AAEd,mBAAS,QAAa,OAAR,CAAC,SAAC,EAAM,GAAE,CAAF,kBAAtB;AAAI;AAEF,iBAAM,CAAC,WAAC,CAAD;AACP,iBAAM,oBAAmF,GAA5D,0BAAa,CAAC,UAAK,iBAAgB,IAAK,GAAI,cAAC,4CAAD,CAA/B,CAAf,GAAgE,GAAF;AACzF,kBAAO,EAAE;AACT,iBAAM,EAAE;AACR,iBAAM,EAAE;AACR,kBAAO,EAAE;AACT,kBAAO,EAAE;AACT,iBAAM,EAAE;AACR,iBAAM,EAAE;AAED,uBAAF,EAAE;AACL,gBADK,IACL;AAAS,kBAAK;AACd,sBAFK,IAEL,yCAAW,IAAK,QAAhB;AAGF,gBAAG,CAAH;AACE,mBAAM,EAAgB,GAAX,CAAF,GAAM,MAAF,GAAW,qBAAQ,CAAC,CAAD,CAAV;AAEtB,uBAAM,EAAgB,GAAX,CAAF,GAAM,MAAF,GAAW,qBAAQ,CAAC,CAAD,CAAV;AAGhC;AAIA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;;AA1EI;AA8EE,WAAE,eAAF,CAAE;AA9EJ;AAiFA,YAAG,aAAO,SAAS,IAAI,CAAvB;AAGJ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;SAXI;OAzFF;AAVqC;AAtFE;AAEvC;AACA;AAAG;AACH;AACA;AAEA,UAAY,UAAD,QAAX;AAEE,YAAK,yBAAoB,QAAC;AAE1B,yBAAY,CAAC,EAAG,KAAJ;AAEZ;AACE,mBAAS,QAAa,OAAR,CAAC,SAAC,EAAM,GAAE,CAAF,kBAAtB;AAAI;AAEF,iBAAM,CAAC,WAAC,CAAD;AACP,iBAAM,oBAAmF,GAA5D,0BAAa,CAAC,UAAK,iBAAgB,IAAK,GAAI,cAAC,4CAAD,CAA/B,CAAf,GAAgE,GAAF;AAElF,uBAAF,EAAE;AACL,gBADK,IACL;AAAS,kBAAK;AACd,sBAFK,IAEL,yCAAW,IAAK,QAAhB;AAGF,iBAAM,EAAgB,GAAX,CAAF,GAAM,MAAF,GAAW,qBAAQ,CAAC,CAAD,CAAV;AAG9B;AACA;AACA;AACA;;AAIM,WAAC;AAED,2BAAY,CAAC,EAAG,MAAO,KAAX;AAEZ,mBAAS,SAAa,QAAR,CAAC,SAAC,EAAM,GAAE,CAAF,qBAAtB;AAAI;AAEF,iBAAM,CAAC,WAAC,CAAD;AACP,iBAAM,oBAAmF,GAA5D,0BAAa,CAAC,UAAK,iBAAgB,IAAK,GAAI,cAAC,4CAAD,CAA/B,CAAf,GAAgE,GAAF;AAElF,wBAAF,EAAE;AACL,gBADK,KACL;AAAS,kBAAK;AACd,sBAFK,KAEL,yCAAW,IAAK,QAAhB;AAGF,iBAAM,EAAgB,GAAX,CAAF,GAAM,MAAF,GAAW,qBAAQ,CAAC,CAAD,CAAV;AAG9B;AACA;AACA;AACA;;AAIM,oBAAK;AA7CP;AAgDE,WAAE,eAAF,CAAE;AAhDJ;OANF;AA2DF;AACA;AACA;AACA;AArEyC;AA0MH;AAEpC;AACA;AAEA,UAAG,eAAH;AAEE,YAAK;AAEL,aAAM;AAEV;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;OAnBE;AALoC;AAjIE;AAEtC,UAAY,UAAD,QAAX;AAGF;AACA;AACA;AACA;OANE;AAFsC;AA/lPC;AACpC;AADoC;AAEvC;AAEA,+BAAQ,CAAC,oDAAM,mDAA6B;;;;YAApC;AAER,wBAAY,sBAAe,QAAC;AAC5B,qBAAQ,UAAR,GAAsB;AAPiB;AACpC;AAlqCD;AAiqCqC;;AAwlDL;AAElC;AAAK;AAAI;AAAG;AAAG;AAAG;AAAI;AAAK;AAAI;AAAI;AAAI;AACvC;AAAI;AAEJ,UAAG,WAAY,IAAI,CAAI,eAAvB,EACE,MADF;AAGA,UAAG,eAAH;AAEE,YAAK,CAA4B,GAAxB,yBAAF,GAAuB,OAAF,GAAO,OAAF;AAEjC,aAAM;AACN,YAAG,EAAG,KAAG,EAAT,EACE,IAAK,CAAY,GAAR,EAAF,GAAO,OAAF,GAAO,OADrB;AAGA,YAAK,CAA+B,GAA3B,4BAAF,GAA0B,OAAF,GAAO,OAAF;AAEpC,aAAM;AACN,YAAG,EAAG,KAAG,EAAT,EACE,IAAK,CAAY,GAAR,EAAF,GAAO,OAAF,GAAO,OADrB;AAGA,YAAK,CAA8B,GAA1B,2BAAF,GAAyB,OAAF,GAAO,OAAF;AACnC,YAAK,CAA+B,GAA3B,4BAAF,GAA0B,OAAF,GAAO,OAAF;AAEpC,YAAK,CAAsC,GAAlC,mCAAF,GAAiC,OAAF,GAAO,OAAF;AAC3C,YAAK,CAAiC,GAA7B,8BAAF,GAA4B,OAAF,GAAO,OAAF;AAEtC,YAAK,CAAgD,GAA5C,6CAAF,GAA2C,OAAF,GAAO,OAAF;AACrD,YAAK,CAA2C,GAAvC,wCAAF,GAAsC,OAAF,GAAO,OAAF;AAEhD,YAAK,CAA2C,GAAvC,wCAAF,GAAsC,OAAF,GAAO,OAAF;AAChD,YAAK,CAAsC,GAAlC,mCAAF,GAAiC,OAAF,GAAO,OAAF;AAE3C,YAAK,CAAiC,GAA7B,8BAAF,GAA4B,OAAF,GAAO,OAAF;AACtC,YAAK,CAAwC,GAApC,qCAAF,GAAmC,OAAF,GAAO,OAAF;AAC7C,YAAK,CAAiC,GAA7B,8BAAF,GAA4B,OAAF,GAAO,OAAF;AACtC,YAAK,CAAwC,GAApC,qCAAF,GAAmC,OAAF,GAAO,OAAF;AAC7C,YAAK,CAAkC,GAA9B,+BAAF,GAA6B,OAAF,GAAO,OAAF;AACvC,YAAK,CAAkC,GAA9B,+BAAF,GAA6B,OAAF,GAAO,OAAF;AACvC,YAAK,CAA8B,GAA1B,2BAAF,GAAyB,OAAF,GAAO,OAAF;AACnC,YAAK,CAAiC,GAA7B,8BAAF,GAA4B,OAAF,GAAO,OAAF;AAEtC,YAAK,CAA0B,GAAtB,uBAAF,GAAqB,OAAF,GAAO,OAAF;AAE/B,YAAK,CAAkC,GAA9B,+BAAF,GAA6B,OAAF,GAAO,OAAF;AAGvC,YAAK,CAA4C,GAAxC,iBAAF,GAAsB,iBAAF,GAAgB,KAAF,GAAU,OAAF;AAEjD,YAAK,CAAE,GAAE,mDAAF;AAEP,YAAK,UAAK;AAEV,YAAG,CAAE,KAAG,EAAR,EACE,IAAK,CAAW,GAAP,CAAF,GAAM,OAAF,GAAO,OADpB;AAGA,YAAK,UAAK;AAEV,YAAK,CAAoE,GAAhE,OAAF,GAAO,OAAF,GAAO,UAAF,GAAU,2CAAF,GAAkD,OAAF;AAGzE,YAAG,CAAE,KAAG,EAAR,EACE,IAAK,CAAW,GAAP,CAAF,GAAM,OAAF,GAAO,OADpB;AAGA,aAAM,UAAK;AACX,YAAG,EAAG,KAAG,EAAT,EACE,IAAK,CAAY,GAAR,EAAF,GAAO,OAAF,GAAO,OADrB;AAGA,aAAM;AACN,2BAAc,CAAC;;;;YAAD;AACd,YAAG,EAAG,KAAG,EAAT,EACE,IAAK,CAAY,GAAR,EAAF,GAAO,OAAF,GAAO,OADrB;AAGA,cAAO;AACP,YAAG,GAAI,KAAG,EAAV,EACE,IAAK,CAAa,GAAT,GAAF,GAAQ,OAAF,GAAO,OADtB;AAGA,aAAM;AACN,YAAG,EAAG,KAAG,EAAT,EACE,IAAK,CAAO,GAAH,EAAF,GAAO,OADhB;AAGA,aAAM;AACN,YAAG,EAAG,KAAG,EAAT,EACE,IAAK,CAAO,GAAH,EAAF,GAAO,OADhB;AAGA,cAAO;AACP,YAAG,GAAI,KAAG,EAAV,EACE,IAAK,CAAQ,GAAJ,GAAF,GAAQ,OADjB;AAGA,cAAO;AACP,YAAG,GAAI,KAAG,EAAV,EACE,IAAK,CAAQ,GAAJ,GAAF,GAAQ,OADjB;AAGA,YAAK,CAAsB,GAAlB,wBAAF,GAAsB,OAAF;AAE3B,YAAG,EAAG,KAAG,EAAT,EACE,IAAK,CAAS,GAAL,IAAF,GAAS,OADlB;AAGA,YAAI,CAAE,GAAE,+CAAW,CAAC,mCAAD,CAAb;AAGN,YAAK,CAAa,GAAT,GAAF,GAAQ,OAAF,GAAO,OAAF;AAElB,YAAK;AACL,kCAAqB,CAAC;;;;YAAD;AAErB,YAAG,CAAE,KAAG,EAAR,EACE,IAAK,CAAM,GAAF,CAAF,GAAM,OADf;OAIA,UAAK;AAEP,UAAG,CAAE,KAAG,EAAR;AAEE,aAAK,MAAI,CAAC,oBAAe,QAAC,gBAAY,CAAC,GAAI,kBAAmB,GAAI,EA35HyD,MAAyB,KA25H9G,CAAZ,CAAjB;OAFX;AAjHkC;AA58CI;AAEtC,UAAG,WAAY,IAAI,CAAI,eAAvB,EACE,MADF;AAGA,mBAAQ,CAAC,MAAO,gBAAiB,WAAzB;AAL8B;AAaA;AAEtC;AAEA,UAAG,WAAY,IAAI,CAAI,eAAvB,EACE,MADF;AAGA,eAAS,QAAqB,OAAhB,eAAS,SAAC,EAAM,GAAE,CAAF,kBAA9B;AAAI;AAEF,YAAG,eAAS,WAAC,CAAD,CAAG,SAAf;AAEmB,qBAAZ,eAAS,WAAC,CAAD,CAAG;AACf,cADe,IACf;AAAS,iBAAK,MAAI,CAAC,oBAAe,QAAC,cAAU,CAAC,eAAS,WAAC,CAAD,CAAG,MAAM,eAAS,WAAC,CAAD,CAAG,OAAQ,eAAS,WAAC,CAAD,CAAG,KAAnD,CAAV,CAAjB;AAClB,oBAFe,IAEf;AAAW,iBAAK,MAAI,CAAC,oBAAe,QAAC,gBAAY,CAAC,eAAS,WAAC,CAAD,CAAG,MAAM,eAAS,WAAC,CAAD,CAAG,OAAQ,eAAS,WAAC,CAAD,CAAG,UAAU,eAAS,WAAC,CAAD,CAAG,SAAQ,WAAC,GAAM,eAAS,WAAC,CAAD,CAAG,QAAQ,eAAS,WAAC,CAAD,CAAG,OAAxH,CAAZ,CAAjB;AACpB,oBAHe,IAGf,wCAAU,KAAK,MAAI,CAAC,oBAAe,QAAC,YAAM,CAAC,eAAS,WAAC,CAAD,CAAG,OAAO,eAAS,WAAC,CAAD,CAAG,MAAM,GAAI,GAAI,GAAI,eAAS,WAAC,CAAD,CAAG,SAAQ,WAAC,GAAM,MAAO,KAApF,CAAN,CAAjB,CAAnB;SALJ;;AAUF,gBAAK,aAAa,CAAC,KAAD;AAClB,+BAAoB,CAAC,KAAD;AApBkB;AAsiFW;AAEjD,UAAG,CAAI,oBAA+B,IAAb,mBAAH,IAAiC,CAAb,mBAAa,GAAE,CAAF,CAAvD,EACE,MADF;AAGA,4BAAiB,CAAC,iCAAwD,qDAA2B,IAApF;AALgC;AAwBE;AAEnD;AAAG;AACH;AACA;AACA;AACA;AAEA,UAAG,CAAI,oBAA+B,IAAb,mBAAH,IAAiC,CAAb,mBAAa,GAAE,CAAF,CAAvD,EACE,MADF;AAGA,WAAM,gBAAW,CAAC,MAAD;AAEjB,WAAM,uBAAW,QAAC;AAClB,UAAK,iCAA4B,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,OAAC,OAAO,CAAC,uBAAD;AACR,qBAAU,CAAC,CAAD;AAEV;AACE,8CAAY,MAAM,CAAC,IAAK,GAAI,GhFx9JgG,KgFw9J1G;AAElB,YAAK,wCAAyC,GAAE,OAAF;AAE9C,iBAAS,QAAa,OAAR,CAAC,SAAC,EAAM,GAAE,CAAF,kBAAtB;AAAI;AAEF,cAAK,EAAE,QAAQ,CAAC,CAAC,WAAC,CAAD,CAAG,MAAC,EAAN;AACf,cAAM,CAAF,CAAE,KAAE,CAAC,CAAH,CAAM,IAAI,CAAC,WAAC,CAAD,CAAG,QAApB;AAEE,aAAC,WAAC,CAAD,CAAG,QAAJ,GAAgB;AAChB,gBAAK,CAAmE,GAA/D,wCAAF,GAAwC,GAAF,GAAY,4DAAJ,CAAC,WAAC,CAAD,CAAG,CAAN,GAAgB,IAAF,GAAS,OAAF;WAH1E;AAMA,cAAG,CAAE,KAAG,CAAC,CAAT,EACE,EAAE,OAAO,CAAC,CAAD,CADX;;AAIF,YAAK,CAAE,GAAE,gCAAF;AACP,8BAAiB,CAAC,EAAG,KAAK,IAAT;AAEjB,YAAK,wCAAyC,GAAE,OAAF;AAE9C,iBAAS,SAAc,QAAT,EAAE,SAAC,EAAM,GAAE,CAAF,qBAAvB;AAAI;AACF,cAAK,CAAkE,GAA9D,mCAAF,GAAmC,WAAF,GAAgB,EAAE,KAAC,CAAD,CAAJ,GAAU,MAAF,GAAW,OAAF;;AAEzE,YAAK,CAAE,GAAE,gCAAF;AACP,8BAAiB,CAAC,EAAG,KAAK,IAAT;AA3BnB;AA8BE,SAAE,eAAF,CAAE;AACF,UAAG,eAAH,EAAG;AA/BL;AAlBmD;AARZ;AAEvC,UAAG,CAAI,oBAA+B,IAAb,mBAAH,IAAiC,CAAb,mBAAa,GAAE,CAAF,CAAvD,EACE,MADF;AAGA,4BAAiB,CAAC,uBAA8C,2CAAiB,IAAhE;AALsB;AAsGE;AAEzC;AAAG;AACH;AACA;AACA;AAEA,UAAG,CAAI,oBAA+B,IAAb,mBAAH,IAAiC,CAAb,mBAAa,GAAE,CAAF,CAAvD,EACE,MADF;AAGA,WAAM,gBAAW,CAAC,MAAD;AAEjB,WAAM,uBAAW,QAAC;AAClB;AACE,8CAAY,MAAM,CAAC,IAAK,GAAI,GhFjjKgG,KgFijK1G;AAElB,YAAK,8BAA+B,GAAE,OAAF;AAEpC,iBAAS,QAAmB,OAAd,aAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AAEF,cAAK,EAAE,QAAQ,CAAC,aAAO,WAAC,CAAD,CAAG,MAAC,EAAZ;AACf,cAAM,CAAF,CAAE,KAAE,CAAC,CAAH,CAAM,IAAI,aAAO,WAAC,CAAD,CAAG,QAA1B;AAEE,yBAAO,WAAC,CAAD,CAAG,QAAV,GAAsB;AACtB,gBAAK,CAA+D,GAA3D,8BAAF,GAA8B,GAAF,GAAkB,4DAAV,aAAO,WAAC,CAAD,CAAG,CAAZ,GAAsB,IAAF,GAAS,OAAF;WAHtE;AAMA,cAAG,CAAE,KAAG,CAAC,CAAT,EACE,EAAE,OAAO,CAAC,CAAD,CADX;;AAIF,YAAK,CAAE,GAAE,sBAAF;AACP,8BAAiB,CAAC,EAAG,KAAK,IAAT;AAEjB,YAAK,8BAA+B,GAAE,OAAF;AAEpC,iBAAS,SAAc,QAAT,EAAE,SAAC,EAAM,GAAE,CAAF,qBAAvB;AAAI;AACF,cAAK,CAAwD,GAApD,yBAAF,GAAyB,WAAF,GAAgB,EAAE,KAAC,CAAD,CAAJ,GAAU,MAAF,GAAW,OAAF;;AAE/D,YAAK,CAAE,GAAE,sBAAF;AACP,8BAAiB,CAAC,EAAG,KAAK,IAAT;AA3BnB;AA8BE,UAAG,eAAH,EAAG;AA9BL;AAbyC;AA9GD;AAExC,UAAG,CAAI,oBAA+B,IAAb,mBAAH,IAAgC,CAAZ,mBAAY,GAAE,CAAF,CAAtD,EACE,MADF;AAGA,4BAAiB,CAAC,wBAA+C,4C3HpxIoE,K2HoxIpH;AALuB;AAqEE;AAE1C;AAAG;AACH;AACA;AACA;AAEA,UAAG,CAAI,oBAA+B,IAAb,mBAAH,IAAgC,CAAZ,mBAAY,GAAE,CAAF,CAAtD,EACE,MADF;AAGA,WAAM,gBAAW,CAAC,MAAD;AAEjB,WAAM,uBAAW,QAAC;AAClB;AACE,8CAAY,MAAM,CAAC,IAAK,GAAI,GhFxgKgG,KgFwgK1G;AAElB,YAAK,+BAAgC,GAAE,OAAF;AAErC,iBAAS,QAAoB,OAAf,cAAQ,SAAC,EAAM,GAAE,CAAF,kBAA7B;AAAI;AAEF,cAAK,EAAE,QAAQ,CAAC,cAAQ,WAAC,CAAD,CAAG,MAAC,EAAb;AACf,cAAK,CAAiE,GAA7D,+BAAF,GAA+B,GAAF,GAAmB,4DAAX,cAAQ,WAAC,CAAD,CAAG,CAAb,GAAuB,IAAF,GAAS,OAAF;AACtE,cAAG,CAAE,KAAG,CAAC,CAAT,EACE,EAAE,OAAO,CAAC,CAAD,CADX;;AAIF,YAAK,CAAE,GAAE,uBAAF;AACP,8BAAiB,CAAC,E3H/2IsF,KAA2B,K2H+2IlH;AAEjB,YAAK,+BAAgC,GAAE,OAAF;AACrC,iBAAS,SAAc,QAAT,EAAE,SAAC,EAAM,GAAE,CAAF,qBAAvB;AAAI;AACF,cAAK,CAAyD,GAArD,0BAAF,GAA0B,WAAF,GAAgB,EAAE,KAAC,CAAD,CAAJ,GAAU,MAAF,GAAW,OAAF;;AAEhE,YAAK,CAAE,GAAE,uBAAF;AACP,8BAAiB,CAAC,E3Ht3IsF,KAA2B,K2Hs3IlH;AArBnB;AAwBE,UAAG,eAAH,EAAG;AAxBL;AAb0C;AAjGE;AAE5C,UAAG,CAAI,oBAA+B,IAAb,mBAAH,IAAiC,CAAb,mBAAa,GAAE,CAAF,CAAvD,EACE,MADF;AAGA,4BAAiB,CAAC,4BAAmD,gDAAsB,IAA1E;AAL2B;AAtHE;AAE9C;AAAG;AAAG;AACN;AACA;AACA;AACA;AAEA,UAAG,CAAI,oBAA+B,IAAb,mBAAH,IAAiC,CAAb,mBAAa,GAAE,CAAF,CAAvD,EACE,MADF;AAGU,SAAD,sBAAC,OAAK,CAAN;AACT,SAAG,CAAC,CAAD,CAAH,GAAU;AAEV,WAAM,gBAAW,CAAC,MAAD;AAEjB,WAAM,uBAAW,QAAC;AAClB;AACE,8CAAY,MAAM,CAAC,IAAK,GAAI,GhFrzJgG,KgFqzJ1G;AAElB,YAAK,+BAAgC,GAAE,OAAF;AACrC,iBAAS,QAAoB,OAAf,cAAQ,SAAC,EAAM,GAAE,CAAF,kBAA7B;AAAI;AAEF,cAAK,EAAE,QAAQ,CAAC,cAAQ,WAAC,CAAD,CAAG,MAAC,EAAb;AACf,cAAM,CAAF,CAAE,KAAE,CAAC,CAAH,CAAM,IAAI,cAAQ,WAAC,CAAD,CAAG,QAA3B;AAEE,0BAAQ,WAAC,CAAD,CAAG,QAAX,GAAuB;AACvB,gBAAK,CAAsC,GAAlC,8BAAF,GAA8B,KAAF,GAAU,OAAF;AAC3C,gBAAK,CAAwE,GAApE,0BAAF,GAA0B,GAAF,GAA+B,4DAAvB,cAAQ,WAAC,CAAD,CAAG,aAAY,CAAzB,GAAmC,IAAF,GAAS,OAAF;AAC7E,gBAAK,CAAiC,GAA7B,yBAAF,GAAyB,KAAF,GAAU,OAAF;AACtC,qBAAS,SAA6B,QAAxB,cAAQ,WAAC,CAAD,CAAG,OAAM,SAAC,EAAM,GAAE,CAAF,qBAAtC;AAAI;AACF,kBAAK,CAA+G,GAA3G,oBAAF,GAAoB,KAAF,GAAU,cAAQ,WAAC,CAAD,CAAG,OAAM,WAAC,CAAD,CAAG,MAAC,EAAvB,GAA4B,IAAF,GAAyC,4DAAhC,cAAQ,WAAC,CAAD,CAAG,OAAM,WAAC,CAAD,CAAG,aAAY,CAAlC,GAA4C,KAAF,GAAU,OAAF;;AACtH,gBAAK,CAA0E,GAAtE,mCAAF,GAAmC,GAAF,GAAmB,0DAAX,cAAQ,WAAC,CAAD,EAAW,iBAAR,CAAb,GAA4B,IAAF,GAAS,OAAF;AAC/E,gBAAK,CAAsC,GAAlC,8BAAF,GAA8B,KAAF,GAAU,OAAF;WAT7C;AAYA,cAAG,CAAE,KAAG,CAAC,CAAT,EACE,EAAE,OAAO,CAAC,CAAD,CADX;;AAIF,YAAK,CAAE,GAAE,uBAAF;AACP,8BAAiB,CAAC,EAAG,KAAK,IAAT;AAEjB,YAAK,iCAAkC,GAAE,OAAF;AAEvC,iBAAS,SAAsB,QAAjB,gBAAU,SAAC,EAAM,GAAE,CAAF,qBAA/B;AAAI;AAEF,cAAK,EAAE,QAAQ,CAAC,gBAAU,WAAC,CAAD,CAAG,MAAC,EAAf;AACf,cAAM,CAAF,CAAE,KAAE,CAAC,CAAH,CAAM,IAAI,gBAAU,WAAC,CAAD,CAAG,QAA7B;AAEE,4BAAU,WAAC,CAAD,CAAG,QAAb,GAAyB;AACzB,gBAAK,CAAsC,GAAlC,8BAAF,GAA8B,KAAF,GAAU,OAAF;AAC3C,gBAAK,CAA0E,GAAtE,0BAAF,GAA0B,GAAF,GAAiC,4DAAzB,gBAAU,WAAC,CAAD,CAAG,aAAY,CAA3B,GAAqC,IAAF,GAAS,OAAF;AAC/E,gBAAK,CAA4E,GAAxE,mCAAF,GAAmC,GAAF,GAAqB,0DAAb,gBAAU,WAAC,CAAD,EAAW,iBAAR,CAAf,GAA8B,IAAF,GAAS,OAAF;AACjF,gBAAK,CAAsC,GAAlC,8BAAF,GAA8B,KAAF,GAAU,OAAF;WAN7C;AASA,cAAG,CAAE,KAAG,CAAC,CAAT,EACE,EAAE,OAAO,CAAC,CAAD,CADX;;AAIF,YAAK,CAAE,GAAE,yBAAF;AACP,8BAAiB,CAAC,EAAG,KAAK,IAAT;AAEjB,YAAK,8BAA+B,GAAE,OAAF;AAEpC,iBAAS,SAAmB,QAAd,aAAO,SAAC,EAAM,GAAE,CAAF,qBAA5B;AAAI;AAEF,cAAK,EAAE,QAAQ,CAAC,aAAO,WAAC,CAAD,CAAG,MAAC,EAAZ;AACf,cAAM,CAAF,CAAE,KAAE,CAAC,CAAH,CAAM,IAAI,aAAO,WAAC,CAAD,CAAG,QAA1B;AAEE,yBAAO,WAAC,CAAD,CAAG,QAAV,GAAsB;AACtB,gBAAK,CAAsC,GAAlC,8BAAF,GAA8B,KAAF,GAAU,OAAF;AAC3C,gBAAK,CAAuE,GAAnE,0BAAF,GAA0B,GAAF,GAA8B,4DAAtB,aAAO,WAAC,CAAD,CAAG,aAAY,CAAxB,GAAkC,IAAF,GAAS,OAAF;AAC5E,gBAAK,CAAyE,GAArE,mCAAF,GAAmC,GAAF,GAAkB,0DAAV,aAAO,WAAC,CAAD,EAAW,iBAAR,CAAZ,GAA2B,IAAF,GAAS,OAAF;AAC9E,gBAAK,CAAsC,GAAlC,8BAAF,GAA8B,KAAF,GAAU,OAAF;WAN7C;AASA,cAAG,CAAE,KAAG,CAAC,CAAT,EACE,EAAE,OAAO,CAAC,CAAD,CADX;;AAIF,YAAK,CAAE,GAAE,sBAAF;AACP,8BAAiB,CAAC,EAAG,KAAK,IAAT;AAEjB,YAAK,gCAAiC,GAAE,OAAF;AAEtC,iBAAS,SAAqB,QAAhB,eAAS,SAAC,EAAM,GAAE,CAAF,qBAA9B;AAAI;AAEF,cAAK,EAAE,QAAQ,CAAC,eAAS,WAAC,CAAD,CAAG,MAAC,EAAd;AACf,cAAM,CAAF,CAAE,KAAE,CAAC,CAAH,CAAM,IAAI,eAAS,WAAC,CAAD,CAAG,QAA5B;AAEE,2BAAS,WAAC,CAAD,CAAG,QAAZ,GAAwB;AACxB,gBAAK,CAAsC,GAAlC,8BAAF,GAA8B,KAAF,GAAU,OAAF;AAC3C,gBAAK,CAAyE,GAArE,0BAAF,GAA0B,GAAF,GAAgC,4DAAxB,eAAS,WAAC,CAAD,CAAG,aAAY,CAA1B,GAAoC,IAAF,GAAS,OAAF;AAC9E,gBAAK,CAA2E,GAAvE,mCAAF,GAAmC,GAAF,GAAoB,0DAAZ,eAAS,WAAC,CAAD,EAAW,iBAAR,CAAd,GAA6B,IAAF,GAAS,OAAF;AAChF,gBAAK,CAAsC,GAAlC,8BAAF,GAA8B,KAAF,GAAU,OAAF;WAN7C;AASA,cAAG,CAAE,KAAG,CAAC,CAAT,EACE,EAAE,OAAO,CAAC,CAAD,CADX;;AAIF,YAAK,CAAE,GAAE,wBAAF;AACP,8BAAiB,CAAC,EAAG,KAAK,IAAT;AAEjB,YAAK,mCAAoC,GAAE,OAAF;AACzC,iBAAS,SAAc,QAAT,EAAE,SAAC,EAAM,GAAE,CAAF,qBAAvB;AAAI;AACF,cAAK,CAA6D,GAAzD,8BAAF,GAA8B,WAAF,GAAgB,EAAE,KAAC,CAAD,CAAJ,GAAU,MAAF,GAAW,OAAF;;AAEpE,YAAK,CAAE,GAAE,2BAAF;AACP,8BAAiB,CAAC,EAAG,KAAK,IAAT;AA9FnB;AAiGE,UAAG,eAAH,EAAG;AAjGL;AAjB8C;AA5GJ;AAE1C;AACA;AACA;AAEA,WAAM,gBAAW,CAAC,MAAD;AACjB,WAAM,uBAAW,QAAC;AAClB;AACE,8CAAY,MAAM,CAAC,IAAK,GAAI,GhFhsJgG,KgFgsJ1G;AAClB,YAAG,EAAE,SAAC,EAAM,KAAE,CAAd;AAGE,yBAAU,CAAC,EAAD;;AAIV,mBAAS,QAAc,OAAT,EAAE,SAAC,EAAM,GAAE,CAAF,kBAAvB;AAAI;AACF,2BAAU,CAAC,EAAE,KAAC,CAAD,CAAH;;;AAVhB;AAaE,UAAG,eAAH,EAAG;AAbL;AAR0C;AAguCN;AAGpC;AACA;AACA;AACA;AAEA,eAAS,QAAkB,OAAb,YAAM,SAAC,EAAM,GAAE,CAAF,kBAA3B;AAAI;AAEF,YAAK,YAAM,WAAC,CAAD;AACX,aAAM,WAAW;AACjB,UAAE,iBAAC,CAAiB,uBAAwB,GAAE,qBAAQ,CAAC,CAAD,CAAnD;AACH,UAAE,WAAC,CAAW,CAAC,SAAZ;AACH,UAAE,MAAK,WAAC,CAAQ,CAAC,MAAT;AACR,UAAE,aAAC,CAAa,CAAC,WAAd;AAEH,UAAE,YAAW,OAAO,CAAC,CAAC,YAAF;AACpB,UAAE,QAAO,OAAO,CAAC,CAAC,QAAF;AAEhB,YAAG,CAAC,UAAU,KAAE,yCAAhB;AACE,YAAE,YAAC,CAAY,qCAAZ;AACA,kBAAG,CAAC,UAAU,KAAE,qCAAhB,EACH,EAAE,YAAC,CAAY,iCAAZ,CADA;AAGL,gBAAS;AAET,YAAG,CAAC,iBAAiB,KAAG,EAAxB;AAEE,kBAAS,KAA6E,GAArE,mBAAF,GAAwB,4CAAe,YAAY,CAAC,CAAC,iBAAF,CAA7B,GAAmD,GAAF;AACtF,kBAAS,KAAM,GAAE,gCAAF;;AAIf,kBAAS,KAAM,GAAE,sJAAF;;AAGjB,YAAG,CAAC,aAAa,KAAG,EAApB;AAEE,kBAAS,KAAsE,GAA9D,gBAAF,GAAqB,4CAAe,YAAY,CAAC,CAAC,aAAF,CAA7B,GAA+C,GAAF;AAC/E,cAAG,CAAC,aAAa,GAAE,CAAnB;AAEE,oBAAS,KAAM,GAAE,qBAAF;AACf,oBAAS,KAAkD,GAA1C,eAAF,GAAoB,qBAAQ,CAAC,CAAC,aAAF,CAAV,GAA4B,KAAF;WAH7D;SAHF;AAUA,YAAG,CAAC,MAAK,OAAO,KAAG,EAAnB;AAEE,kBAAS,KAA6D,GAArD,QAAF,GAAa,4CAAe,YAAY,CAAC,CAAC,MAAK,OAAP,CAA7B,GAA8C,GAAF;SAFxE;AAKA,YAAG,CAAC,MAAK,MAAM,KAAG,EAAlB;AAEE,kBAAS,KAAsC,GAA9B,eAAF,GAAoB,CAAC,MAAK,MAAR,GAAgB,IAAF;;AAI/C,kBAAS,KAAM,GAAE,uBAAF;;AAyBjB,gBAAS,KAA+D,GAAvD,YAAF,GAAiB,sCAAY,cAAc,CAAC,CAAC,MAAK,MAAP,CAA5B,GAA4C,KAAF;AAExE,UAAE,OAAM,WAAC,CAAQ,GAAqC,GAA/B,EAAE,eAAJ,GAAqB,GAAF,GAAQ,KAAF,GAAU,GAA/C;AACT,UAAE,wBAAC,CAAwB,EAAE,eAA1B;AACH,UAAE,mBAAC,CAAmB,KAAnB;;AAvF+B;AAr0BG;AAEvC,UAAG,CAAI,oBAA+B,IAAb,mBAAH,IAAiC,CAAb,mBAAa,GAAE,CAAF,CAAvD,EACE,MADF;AAGA,4BAAiB,CAAC,0BAA6C,GAArB,GAAF,GAAe,4DAAP,aAAO,CAAT,GAAmB,GAAF,C3Hj7I2C,KAA2B,K2Hi7IpH;AALsB;AAhkCD;AAEtC;AACA;AAEA,UAAG,SAAI,KAAE,EAAT;AAEC,YAAG,2BAAH;AAEG,sBAAa;AAEb,cAAY,mCAAD,QAAX;AAEE,gBAAW,CAAC,mCAA6B,aAA9B,SAA4C,IAA2D,iEAAH,eAA3C,mCAA6B,aAAc,CAA/G;AAEE,yBAAgE,OAA3C,mCAA6B,cAAiB,iEAAH;AAChE,kBAAY,QAAD,QAAX;AAEE,wDAAmC,CAAC;;;;qBAAW,oCAA+B,QAA3C;AACnC,oBAAG,SAAH;AAEE,kDAA2B,CAAC,oCAh+EoD,IAg+ErD;AAC3B;iBAHF;eAHF;AASA;aAZF;WAeG,UAAY,qCAAD,QAAX;AAEH,gBAAW,CAAC,qCAA+B,aAAhC,SAA8C,IAA6D,iEAAH,eAA7C,qCAA+B,aAAc,CAAnH;AAEE,yBAAkE,OAA7C,qCAA+B,cAAiB,iEAAH;AAClE,kBAAY,QAAD,QAAX;AAEE,0DAAqC,CAAC;;;;qBAAW,sCAAiC,QAA7C;AACrC,oBAAG,SAAH;AAEE,oDAA6B,CAAC,sCAl/EwD,IAk/EzD;AAC7B;iBAHF;eAHF;AASA;aAZF;WAFG;SArBR;OAFD;AALsC;AA2zGc;AAGpD;AAAU;AAEV,UAAG,2BAAH;AAEE,qBAAO,WAAC,CAAW,IAAX;AACR,YAAG,gCAA4B,IAAY,CAAC,2BAAD,SAA3C;AAEE,6CAA+B;AAC/B,uBAAO,WAAC,CAAW,IAAX;AACR,qCAAsB,YAAW,YAAC,CAAY,WAAW,SAAvB;AAClC,qCAAsB,YAAW,aAAC,CAAa,WAAW,UAAxB;AAClC,cAAW,CAAC,2BAAsB,aAAvB,SAAqC,IAAoD,iEAAH,eAApC,2BAAsB,aAAc,CAAjG;AAEE,uBAAyD,OAApC,2BAAsB,cAAiB,iEAAH;AACzD,gBAAY,QAAD,QAAX;AAEE,kBAAG,CAAI,2BAAsB,aAA7B;AACE,qCAAe,qBAAmB,CAAC,SAAkC,oEAAxB,QAAQ,iBAAgB,SAAC,EAAD,EAAyC,oEAAjC,2BAAsB,YAAW,SAAC,EAAD,EF1+NsE,KAAmB,GAA4B,IE0+NjM;;AAGlC,qCAAe,qBAAmB,CAAC,SAA2C,oEAAjC,2BAAsB,YAAW,SAAC,EAAD,EAA8B,oEAAtB,QAAQ,eAAc,SAAC,EAAD,EF7+NwE,KAAmB,GAA4B,IE6+NjM;AAClC,qBAAM,QAAQ,mBAAC;AACf,oBAAY,EAAD,QAAX,EACE,qBAAe,qBAAmB,CAAC,GAAsB,oEAAlB,EAAE,iBAAgB,SAAC,EAAD,EAAyC,oEAAjC,2BAAsB,YAAW,SAAC,EAAD,EFh/NgF,KAAmB,GAA4B,IEg/N/L,CADpC;;aARJ;WAHF;SANF;AAuBA,sCAA0B;OA1B5B;AALoD;AAsSE;AAGtD;AACA;AAEA,UAAG,2BAAH;AAEE,qBAAO,WAAC,CAAW,IAAX;AACR,YAAG,gCAA4B,IAAY,CAAC,6BAAD,SAA3C;AAEE,6CAA+B;AAC/B,uBAAO,WAAC,CAAW,IAAX;AACR,cAAW,CAAC,6BAAwB,aAAzB,SAAuC,IAAsD,iEAAH,eAAtC,6BAAwB,aAAc,CAArG;AAEE,uBAA2D,OAAtC,6BAAwB,cAAiB,iEAAH;AAC3D,gBAAY,QAAD,QAAX;AAEY,gBAAD,sBAAC,gEAAI,CAAL;AACT,gBAAE,CAAC,CAAD,UAAO,WAAP;AACF,mCAAe,sBAAsB,CAAC,SAAU,iBFnxOwH,KAAmB,GAA4B,IEmxOlL;aAJvC;WAHF;SAJF;AAgBA,wCAA4B;AAC5B,YAAY,+BAAD,QAAX;AAE6B,mBAA3B,KAA2B;AAC3B,4CAA8B;SAHhC;OApBF;AANsD;AA5SG;AAGzD,mCAAwB,CAAC,MAAD;AAHiC;AArnHZ;AAApB;AAEzB;AAGF;AAEE,qBAAU,CAAC,CAAD;AACV,eAAU;AARe;AAAoB;AAWT;AAEpC;AAEA,UAAY,2BAAD,QAAX;AAEE;AACA,aAAM;AACN,UAAE,iBAAiB,CAAC,mBAAc,kBAAf;OAJrB;AAJoC;AAYE;AAEtC;AAEA,UAAY,2BAAD,QAAX;AAEE,aAAM;AACN,UAAE,oBAAoB,CAAC,mBAAc,kBAAf;OAHxB;AAJsC;AApCO;AAE7C;AACA,2BAAiB;AAH4B;AAMF;AAE3C;AACA,UAAG,kBAAc,KAAE,IAAnB,EACE,qBAAkB,+CADpB;AAH2C;AAs9BH;AAGxC;AAAG;AAIH,kBAAa;AACb,eAAS,QAA0B,OAArB,WAAK,kBAAC,EAAe,GAAE,CAAF,kBAAnC;AAAI;AAEF,YAA2B,sBAAH,eAApB,WAAK,aAAW,CAAC,CAAD,CAAI,CAAxB;AAEE,cAAwB,OAApB,WAAK,aAAW,CAAC,CAAD,EAAO,sBAAH,CAAqB,SAAS,KAAE,aAAxD,EACM,SAAJ,IAAG,CADL;SAFF;;AAOF,UAAI,SAAU,GAAE,CAAhB,EACE,MAAM,sBAAS,QAAC,YAAM,CAAC,uBAAwI,GAA9G,eAAF,GAAc,gBAAF,GAAqB,kDAAkB,YAAY,CA1nJ9F,iCA0nJqI,aAAvC,CAAhC,GAAkF,WAA1I,CAAN,CADlB;AAjBwC;AA8oCG;AAAlB;AAEzB,eAAU;AAFe;AAAkB;AAKA;AAAlB;AAEzB,eAAU,sCAAY,cAAc,CAAC,aAAO,iBAAR;AAFX;AAAkB;AAKC;AAAnB;AAEzB,eAAU,sCAAY,cAAc,CAAC,aAAO,kBAAR;AAFX;AAAmB;AAKA;AAAnB;AAEzB,eAAU,uBAAU,CAAC,aAAO,kBAAR;AAFK;AAAmB;AAh8HV;AAAT;AAEzB,eAAU;AAFe;AAAS;AAUS;AAAlB;AAEzB,eAAU,aAAO;AAFQ;AAAkB;AAfT;AAAT;AAEzB,eAAU,+CAAW,CAAC,aAAO,SAAS,KAAjB;AAFI;AAAS;AA1BS;AAAlB;AAEzB,eAAU,aAAO;AAFQ;AAAkB;AAeG;AAArB;AAEzB,eAAU,aAAO;AAFQ;AAAqB;AA4wCJ;AAAjB;AAEzB,eAAU,aAAO;AAFQ;AAAiB;AA4uLP;AAAV;AAEzB,eAAU,aAAO;AAFQ;AAAU;AALF;AAAR;AAEzB,eAAU;AAFe;AAAQ;AA7/ND;AAAP;AAEzB,eAAU;AAFe;AAAO;AA8hBG;AAAV;AAEzB,eAAU;AAFe;AAAU;AA6vBU;AAApB;AAEzB,eAAU,aAAO;AAFQ;AAAoB;AA4uLF;AAAlB;AAEzB;AAAI;AAAI;AAAG;AAEX,eAAU;AACV,WAAM,eAAS,YAAS,CAAC,GAAD;AACxB,WAAM,cAAQ,YAAS,CAAC,GAAD;AACvB,UAAK,gBAAU,YAAS,CAAC,GAAD;AACxB,UAAK,aAAO,YAAS,CAAC,GAAD;AAErB,UAAY,EAAD,QAAX,EACE,SAAU,EADZ;AAEA,UAAY,EAAD,QAAX,EACE,SAAU,EADZ;AAEA,UAAY,CAAD,QAAX,EACE,SAAU,CADZ;AAEA,UAAY,CAAD,QAAX,EACE,SAAU,CADZ;AAhByB;AAAkB;AAfL;AAAb;AAEzB,eAAU,aAAO,YAAS,CAAC,GAAD;AAFD;AAAa;AAxvNU;AAAvB;AAGzB,eAAU,uBAAiB,YAAS,CAAC,GAAD;AAHX;AAAuB;AAipDF;;AAArB;AACF;AAAd;AAEP,YAAG,oBAAH;AAEE,mBAAU;;AAIV,mBACA,oIAOgC,GAPuG,OAAF,GACrI,aAD0I,GAC1H,OAAF,GACd,KADmB,GACX,OAAF,GACN,4DADW,GACoD,OAAF,GAC7D,cADkE,GACjD,OAAF,GACf,4BADoB,GACW,OAAF,GAC7B,UADkC,GACrB,IAAF,GACX,0BADiB,GACY,OAAF,GAC3B,KADgC;;AAhB3B;AAAc;AAqBvB,eACE,wEAoCoD,GApCuB,OAAF,GACzE,aAD8E,GAC9D,qBAAF,GAAoB,iBAAF,GAAsB,OAAF,GACpD,qBADyD,GACjC,OAAF,GACtB,eAD2B,GACT,sBAAF,GAAqB,iBAAF,GAAsB,OAAF,GACvD,KAD4D,GACpD,OAAF,GA4BN,iCA5BW,GA4ByB,kBAAF,GAAgB,kBAAD,GAAsB,OAAF,GACrE,SAD0E,GAC9D,iBAAF,GAAiB,IAAF,GAAS,OAAF,GAChC,IADqC,GAC9B,iBAAF,GAAiB,8BAAF,GAAmC,YAAF,GAAc,KAAF,GAAU,OAAF,GACzE,KAD8E,GACtE,OAAF,GACN,IADW,GACJ,iBAAF,GAAiB,wBAAF,GAA6B,OAAF,GAQ/C,IARoD;AA3D7B;AAAqB;AAjnBE;AAAvB;AAEzB,eAAU;AACV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,eACE,WAGiD,GAHnC,yBAAF,GAAyB,GAAF,GAAQ,eAAF,GAAe,IAAF,GAAS,OAAF,GAC3D,mDADgE,GAEhE,UAAK,kBADS,GACU,OAAF,GACtB,+CAAW,CAAC,iCAAD,CADgB,GAE7B,GADiD;AAV1B;AAAuB;AAcO;AAA9B;AAEzB,eAAU;AACV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,eACE,WAGwD,GAH1C,gCAAF,GAAgC,GAAF,GAAQ,eAAF,GAAe,IAAF,GAAS,OAAF,GAClE,mDADuE,GAEvE,UAAK,yBADS,GACiB,OAAF,GAC7B,+CAAW,CAAC,wCAAD,CADuB,GAEpC,GADwD;AAVjC;AAA8B;AAkJA;AAA9B;AAEzB,eAAU;AACV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,eACE,WAIyC,GAJ3B,gCAAF,GAAgC,KAAF,GAAU,OAAF,GAClD,+CADuD,GACL,OAAF,GAC9C,UAAK,yBAD8C,GACpB,OAAF,GAE/B,mCAFoC,GAEE,OAAF,GAIpC,GAJyC;AAXlB;AAA8B;AAqDN;AAAxB;AAEzB,eAAU;AACV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,eACE,WAIyC,GAJ3B,0BAAF,GAA0B,GAAF,GAAQ,eAAF,GAAe,IAAF,GAAS,OAAF,GAC9D,0CADmE,GACtB,OAAF,GAC3C,UAAK,gBAD2C,GAC1B,OAAF,GAEpB,mCAFyB,GAEa,OAAF,GAIpC,GAJyC;AAXlB;AAAwB;AAoDA;AAAxB;AAEzB,eAAU;AACV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,eACE,WAIyC,GAJ3B,0BAAF,GAA0B,GAAF,GAAQ,eAAF,GAAe,IAAF,GAAS,OAAF,GAC9D,+CADmE,GACjB,OAAF,GAChD,UAAK,gBADgD,GAC/B,OAAF,GAEpB,mCAFyB,GAEa,OAAF,GAIpC,GAJyC;AAXlB;AAAwB;AAwBJ;AAApB;AAEzB,eAAU;AACV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,eACE,WAIyC,GAJ3B,sBAAF,GAAsB,KAAF,GAAU,OAAF,GACxC,2CAD6C,GACC,OAAF,GAC1C,UAAK,eAD0C,GAC1B,OAAF,GAErB,mCAF0B,GAEY,OAAF,GAIpC,GAJyC;AAXlB;AAAoB;AArQG;AAAvB;AAEzB,eAAU;AACV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,eACE,WAGiD,GAHnC,yBAAF,GAAyB,GAAF,GAAQ,eAAF,GAAe,IAAF,GAAS,OAAF,GAC3D,mDADgE,GAEhE,UAAK,kBADS,GACU,OAAF,GACtB,+CAAW,CAAC,iCAAD,CADgB,GAE7B,GADiD;AAV1B;AAAuB;AAuRA;AAAvB;AAEzB,eAAU;AACV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,eACE,WAGmB,GAHL,yBAAF,GAAyB,KAAF,GAAU,OAAF,GAC3C,UADgD,GACnC,OAAF,GACR,UAAK,kBADQ,GACW,OAAF,GACzB,aAD8B,GACd,OAAF,GACd,GADmB;AAVI;AAAuB;AA/VP;AAAhB;AAEzB;AAAG;AAEH,eAAU;AACV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,UAAK;AACL,6BAAkB,CAAC;;;;UAAD;AAElB,eACE,WAAmE,GAArD,0BAAF,GAA0B,GAAF,GAAQ,eAAF,GAAe,IAAF,GAAS,OAAF,GAC3D,mDADgE;AAGrE,UAAG,CAAE,KAAG,EAAR,EACE,SAAU,MAAgB,GAAP,CAAF,GAAM,OAAF,GAAO,OAD9B;AAGA,WAAM;AACN,UAAG,EAAG,KAAG,EAAT,EACE,SAAU,MAAiB,GAAR,EAAF,GAAO,OAAF,GAAO,OAD/B;AAGA,eAAU,MAE2C,GADjD,UAAK,mBADQ,GACY,OAAF,GACvB,+CAAW,CAAC,mCAAD,CADiB,GAE9B,GADmD;AAxB5B;AAAgB;AA7EY;AAA5B;AAEzB;AAEA,eAAU;AACV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,UAAK;AACL,4BAAiB,CAAC;;;;UAAD;AAEjB,eACE,WAKgC,GALlB,8BAAF,GAA8B,GAAF,GAAQ,eAAF,GAAe,IAAF,GAAS,OAAF,GAClE,mDADuE,GAEvE,QADc,GACH,cAAF,GAAc,KAAF,GAAU,mBAAF,GAAmB,GAAF,GAAQ,eAAF,GAAe,UAAF,GAAe,OAAF,GAC9E,QADmF,GACxE,cAAF,GAAc,IAAF,GAAS,OAAF,GAC5B,MADiC,GAEjC,UAAK,uBADE,GACsB,OAAF,GAAO,OAAF;AAElC,UAAG,CAAE,KAAG,EAAR,EACE,SAAU,MAAgB,GAAP,CAAF,GAAM,OAAF,GAAO,OAD9B;AAGA,eAAU,MAIiC,GAHzC,QADe,GACJ,cAAF,GAAc,IAAF,GAAS,OAAF,GAC5B,MADiC,GACxB,mBAAF,GAAmB,GAAF,GAAQ,eAAF,GAAe,YAAF,GAAiB,cAAF,GAAc,GAAF,GAAQ,OAAF,GAC5E,KADiF,GACzE,OAAF,GACN,+CAAW,CAAC,2BAAD,CADA,GAEX,GADyC;AA1BlB;AAA4B;AAzkBU;AAAtC;AAEzB,eACE,oCA4MgE,GA5MzB,OAAF,GACrC,oBAD0C,GACnB,6BAAF,GAA6B,IAAF,GAAS,OAAF,GACvD,kBAD4D,GACvC,OAAF,GACnB,eADwB,GACN,6BAAF,GAA6B,MAAF,GAAW,OAAF,GACpD,sBADyD,GAChC,OAAF,GACvB,sDAD4B,GAC6B,OAAF,GAGvD,yBAH4D,GAGhC,OAAF,GAM1B,gEAN+B,GAMoC,OAAF,GACjE,iEADsE,GACF,OAAF,GAClE,iBADuE,GACnD,0BAAF,GAA0B,uCAAF,GAA4C,OAAF,GACpF,2DADyF,GAC3B,OAAF,GAC5D,uBADiE,GACvC,OAAF,GACxB,2BAD6B,GACC,OAAF,GAE5B,6BAFiC,GAED,OAAF,GAC9B,0BADmC,GACN,OAAF,GAC3B,mDADgC,GACsB,OAAF,GACpD,6CADyD,GACT,OAAF,GAC9C,iBADmD,GAC/B,OAAF,GAClB,gDADuB,GAC4B,OAAF,GACjD,SADsD,GAC1C,OAAF,GAEV,kBAFe,GAEM,OAAF,GACnB,kCADwB,GACa,OAAF,GACnC,iCADwC,GACJ,OAAF,GAClC,YADuC,GACxB,OAAF,GACb,qBADkB,GACM,OAAF,GAGtB,yGAH2B,GAGiF,OAAF,GAC1G,qCAD+G,GACvE,OAAF,GAEtC,OAF2C,GAEjC,OAAF,GAGR,0BAHa,GAGgB,OAAF,GAE3B,qEAFgC,GAEwC,OAAF,GACtE,sEAD2E,GACF,OAAF,GAEvE,qEAF4E,GAEJ,OAAF,GACtE,sEAD2E,GACF,OAAF,GAEvE,mBAF4E,GAEtD,0BAAF,GAA0B,2CAAF,GAAgD,OAAF,GAC1F,mBAD+F,GACzE,0BAAF,GAA0B,2CAAF,GAAgD,OAAF,GAE1F,oBAF+F,GAExE,OAAF,GACrB,oCAD0B,GACa,OAAF,GACrC,qCAD0C,GACF,OAAF,GACtC,YAD2C,GAC5B,OAAF,GACb,yBADkB,GACU,OAAF,GAE1B,oBAF+B,GAER,OAAF,GACrB,oCAD0B,GACa,OAAF,GACrC,qCAD0C,GACF,OAAF,GACtC,YAD2C,GAC5B,OAAF,GACb,yBADkB,GACU,OAAF,GAE1B,wEAF+B,GAE4C,OAAF,GAEzE,4BAF8E,GAE/C,OAAF,GAC7B,8BADkC,GACD,OAAF,GAC/B,+BADoC,GACF,OAAF,GAChC,6BADqC,GACL,OAAF,GAE9B,iCAFmC,GAEC,OAAF,GAClC,kCADuC,GACF,OAAF,GACnC,2BADwC,GACV,OAAF,GAC5B,+BADiC,GACC,OAAF,GAChC,SADqC,GACzB,OAAF,GACV,2BADe,GACe,OAAF,GAC5B,gCADiC,GACE,OAAF,GACjC,SADsC,GAC1B,OAAF,GAEV,gCAFe,GAEoB,OAAF,GACjC,kCADsC,GACD,OAAF,GAEnC,sCAFwC,GAEC,OAAF,GACvC,qCAD4C,GACJ,OAAF,GAEtC,OAF2C,GAEjC,OAAF,GAER,KAFa,GAEL,OAAF,GACN,GADW,GACL,OAAF,GAEJ,yCAFS,GAEmC,OAAF,GAE1C,WAF+C,GAEjC,wCAAF,GAAwC,GAAF,GAAQ,eAAF,GAAe,IAAF,GAAS,OAAF,GAC5E,mDADiF,GAGjF,QAFc,GAEH,wBAAF,GAAwB,KAAF,GAAU,6BAAF,GAA6B,GAAF,GAAQ,eAAF,GAAe,UAAF,GAAe,OAAF,GAElG,SAFuG,GAE3F,wBAAF,GAAwB,IAAF,GAAS,OAAF,GACvC,MAD4C,GACnC,wBAAF,GAAwB,QAAF,GAAa,OAAF,GACxC,MAD6C,GACpC,wBAAF,GAAwB,uCAAF,GAA4C,OAAF,GACvE,MAD4E,GACnE,wBAAF,GAAwB,WAAF,GAAgB,eAAF,GAAe,oBAAF,GAAyB,OAAF,GAC/E,MADoF,GAC3E,wBAAF,GAAwB,kBAAF,GAAuB,eAAF,GAAe,2BAAF,GAAgC,OAAF,GAE7F,MAFkG,GAEzF,wBAAF,GAAwB,yCAAF,GAA8C,OAAF,GACzE,MAD8E,GACrE,wBAAF,GAAwB,WAAF,GAAgB,eAAF,GAAe,8BAAF,GAAmC,OAAF,GACzF,iDAD8F,GAC1C,eAAF,GAAe,qBAAF,GAA0B,OAAF,GACvF,MAD4F,GACnF,wBAAF,GAAwB,+BAAF,GAAoC,OAAF,GAE/D,MAFoE,GAE3D,wBAAF,GAAwB,0CAAF,GAA+C,OAAF,GAC1E,MAD+E,GACtE,wBAAF,GAAwB,WAAF,GAAgB,eAAF,GAAe,+BAAF,GAAoC,OAAF,GAC1F,kDAD+F,GAC1C,eAAF,GAAe,sBAAF,GAA2B,OAAF,GACzF,MAD8F,GACrF,wBAAF,GAAwB,gCAAF,GAAqC,OAAF,GAEhE,gCAFqE,GAElC,wBAAF,GAAwB,OAAF,GAAY,OAAF,GACjE,gCADsE,GACnC,wBAAF,GAAwB,OAAF,GAAY,OAAF,GAEjE,MAFsE,GAE7D,YAAF,GAAc,eAAF,GAAoB,wBAAF,GAAwB,OAAF,GAAY,OAAF,GAMrE,KAN0E,GAMlE,OAAF,GAIN,gCAJW,GAIwB,OAAF,GAEjC,cAFsC,GAErB,eAAF,GAAe,gBAAF,GAAqB,OAAF,GAC/C,eADoD,GAClC,OAAF,GAChB,+CADqB,GAC6B,OAAF,GAChD,gBADqD,GAClC,OAAF,GACjB,eADsB,GACJ,OAAF,GAChB,gFADqB,GAC8D,OAAF,GACjF,gBADsF,GACnE,OAAF,GACjB,eADsB,GACJ,OAAF,GAChB,gDADqB,GAC8B,OAAF,GACjD,gBADsD,GACnC,OAAF,GACjB,eADsB,GACJ,OAAF,GAChB,iDADqB,GAC+B,OAAF,GAClD,gBADuD,GACpC,OAAF,GACjB,eADsB,GACJ,OAAF,GAChB,qGADqB,GACmF,OAAF,GACtG,gBAD2G,GACxF,OAAF,GACjB,eADsB,GACJ,OAAF,GAChB,kDADqB,GACgC,OAAF,GACnD,gBADwD,GACrC,OAAF,GACjB,eADsB,GACJ,OAAF,GAChB,kFADqB,GACgE,OAAF,GACnF,gBADwF,GACrE,OAAF,GACjB,eADsB,GACJ,OAAF,GAChB,mDADqB,GACiC,OAAF,GACpD,gBADyD,GACtC,OAAF,GACjB,eADsB,GACJ,OAAF,GAChB,+CADqB,GAC6B,OAAF,GAChD,gBADqD,GAClC,OAAF,GACjB,gBADsB,GACH,OAAF,GACjB,+CADsB,GAC4B,OAAF,GAChD,gBADqD,GAClC,OAAF,GACjB,gBADsB,GACH,OAAF,GACjB,kDADsB,GAC+B,OAAF,GACnD,gBADwD,GACrC,OAAF,GAEjB,OAFsB,GAEZ,OAAF,GAER,MAFa,GAEJ,wBAAF,GAAwB,oCAAF,GAAyC,eAAF,GAAe,8BAAF,GAAmC,OAAF,GAClH,MADuH,GAC9G,wBAAF,GAAwB,qCAAF,GAA0C,eAAF,GAAe,+BAAF,GAAoC,OAAF,GACpH,MADyH,GAChH,wBAAF,GAAwB,oCAAF,GAAyC,eAAF,GAAe,gBAAF,GAAqB,OAAF,GACpG,MADyG,GAChG,wBAAF,GAAwB,qCAAF,GAA0C,eAAF,GAAe,iBAAF,GAAsB,OAAF,GACtG,MAD2G,GAClG,wBAAF,GAAwB,qCAAF,GAA0C,eAAF,GAAe,iBAAF,GAAsB,OAAF,GAEtG,MAF2G,GAElG,wBAAF,GAAwB,uCAAF,GAA4C,eAAF,GAAe,uCAAF,GAA4C,OAAF,GAC9H,MADmI,GAC1H,wBAAF,GAAwB,wCAAF,GAA6C,eAAF,GAAe,wCAAF,GAA6C,OAAF,GAChI,MADqI,GAC5H,wBAAF,GAAwB,uCAAF,GAA4C,eAAF,GAAe,uCAAF,GAA4C,OAAF,GAC9H,MADmI,GAC1H,wBAAF,GAAwB,wCAAF,GAA6C,eAAF,GAAe,wCAAF,GAA6C,OAAF,GAEhI,0CAFqI,GAExF,eAAF,GAAe,6BAAF,GAAkC,OAAF,GACxF,2CAD6F,GAC/C,eAAF,GAAe,8BAAF,GAAmC,OAAF,GAC1F,6CAD+F,GAC/C,eAAF,GAAe,gCAAF,GAAqC,OAAF,GAC9F,4CADmG,GACpD,eAAF,GAAe,+BAAF,GAAoC,OAAF,GAE5F,qCAFiG,GAEzD,OAAF,GACtC,UAD2C,GAC9B,eAAF,GAAe,uBAAF,GAA4B,OAAF,GAClD,4FADuD,GAEzD,4EAD8F,GAE9F,mGAD4E,GAC0B,OAAF,GAClG,OADuG,GAC7F,OAAF,GACR,yDADa,GAC+C,OAAF,GAC3D,MADgE,GACvD,wBAAF,GAAwB,8BAAF,GAAmC,OAAF,GAE7D,YAFkE,GAEnD,eAAF,GAAe,cAAF,GAAmB,OAAF,GAC3C,QADgD,GACrC,wBAAF,GAAwB,6BAAF,GAAkC,OAAF,GAC/D,UADoE,GACvD,OAAF,GACX,QADgB,GACL,wBAAF,GAAwB,yBAAF,GAA8B,OAAF,GAE3D,gDAFgE,GAEb,eAAF,GAAe,oBAAF,GAAyB,OAAF,GACrF,MAD0F,GACjF,wBAAF,GAAwB,8BAAF,GAAmC,OAAF,GAE9D,iDAFmE,GAEf,eAAF,GAAe,qBAAF,GAA0B,OAAF,GACvF,MAD4F,GACnF,wBAAF,GAAwB,+BAAF,GAAoC,OAAF,GAE/D,kDAFoE,GAEf,eAAF,GAAe,sBAAF,GAA2B,OAAF,GACzF,MAD8F,GACrF,wBAAF,GAAwB,gCAAF,GAAqC,OAAF;AAElE,eAAU,MAoVA,GAnVR,+BADe,GACmB,OAAF,GAChC,sBADqC,GACZ,eAAF,GAAe,2BAAF,GAAgC,OAAF,GAClE,YADuE,GACxD,eAAF,GAAe,6BAAF,GAAkC,OAAF,GAC1D,kDAD+D,GACV,eAAF,GAAe,mCAAF,GAAwC,OAAF,GACtG,6BAD2G,GAC3E,OAAF,GAC9B,oBADmC,GACZ,eAAF,GAAe,2BAAF,GAAgC,OAAF,GAChE,qBADqE,GAC7C,OAAF,GACtB,wBAD2B,GACA,eAAF,GAAe,sCAAF,GAA2C,OAAF,GAC/E,yBADoF,GACxD,OAAF,GAC1B,4EAD+B,GACgD,iBAAF,GAAiB,sBAAF,GAA2B,qBAAF,GAAqB,wBAAF,GAA6B,OAAF,GACnK,0BADwK,GAC3I,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,4EAD+B,GACgD,iBAAF,GAAiB,sBAAF,GAA2B,qBAAF,GAAqB,8BAAF,GAAmC,OAAF,GACzK,0BAD8K,GACjJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,4EAD+B,GACgD,iBAAF,GAAiB,sBAAF,GAA2B,qBAAF,GAAqB,gCAAF,GAAqC,OAAF,GAC3K,0BADgL,GACnJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,4EAD+B,GACgD,iBAAF,GAAiB,sBAAF,GAA2B,qBAAF,GAAqB,kCAAF,GAAuC,OAAF,GAC7K,0BADkL,GACrJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,4EAD+B,GACgD,iBAAF,GAAiB,sBAAF,GAA2B,qBAAF,GAAqB,kCAAF,GAAuC,OAAF,GAC7K,0BADkL,GACrJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,4EAD+B,GACgD,iBAAF,GAAiB,sBAAF,GAA2B,qBAAF,GAAqB,sCAAF,GAA2C,OAAF,GACjL,0BADsL,GACzJ,OAAF,GAC3B,iBADgC,GACZ,OAAF,GAClB,sBADuB,GACE,OAAF,GACvB,qBAD4B,GACJ,OAAF,GACtB,wBAD2B,GACA,eAAF,GAAe,sCAAF,GAA2C,OAAF,GAC/E,yBADoF,GACxD,OAAF,GAC1B,+EAD+B,GACmD,iBAAF,GAAiB,sBAAF,GAA2B,wBAAF,GAAwB,wBAAF,GAA6B,OAAF,GACzK,0BAD8K,GACjJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,+EAD+B,GACmD,iBAAF,GAAiB,sBAAF,GAA2B,wBAAF,GAAwB,8BAAF,GAAmC,OAAF,GAC/K,0BADoL,GACvJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,+EAD+B,GACmD,iBAAF,GAAiB,sBAAF,GAA2B,wBAAF,GAAwB,gCAAF,GAAqC,OAAF,GACjL,0BADsL,GACzJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,+EAD+B,GACmD,iBAAF,GAAiB,sBAAF,GAA2B,wBAAF,GAAwB,kCAAF,GAAuC,OAAF,GACnL,0BADwL,GAC3J,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,+EAD+B,GACmD,iBAAF,GAAiB,sBAAF,GAA2B,wBAAF,GAAwB,kCAAF,GAAuC,OAAF,GACnL,0BADwL,GAC3J,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,+EAD+B,GACmD,iBAAF,GAAiB,sBAAF,GAA2B,wBAAF,GAAwB,sCAAF,GAA2C,OAAF,GACvL,0BAD4L,GAC/J,OAAF,GAC3B,iBADgC,GACZ,OAAF,GAClB,sBADuB,GACE,OAAF,GACvB,qBAD4B,GACJ,OAAF,GACtB,wBAD2B,GACA,eAAF,GAAe,sCAAF,GAA2C,OAAF,GAC/E,yBADoF,GACxD,OAAF,GAC1B,+EAD+B,GACmD,iBAAF,GAAiB,sBAAF,GAA2B,wBAAF,GAAwB,wBAAF,GAA6B,OAAF,GACzK,0BAD8K,GACjJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,+EAD+B,GACmD,iBAAF,GAAiB,sBAAF,GAA2B,wBAAF,GAAwB,8BAAF,GAAmC,OAAF,GAC/K,0BADoL,GACvJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,+EAD+B,GACmD,iBAAF,GAAiB,sBAAF,GAA2B,wBAAF,GAAwB,gCAAF,GAAqC,OAAF,GACjL,0BADsL,GACzJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,+EAD+B,GACmD,iBAAF,GAAiB,sBAAF,GAA2B,wBAAF,GAAwB,kCAAF,GAAuC,OAAF,GACnL,0BADwL,GAC3J,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,+EAD+B,GACmD,iBAAF,GAAiB,sBAAF,GAA2B,wBAAF,GAAwB,kCAAF,GAAuC,OAAF,GACnL,0BADwL,GAC3J,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,+EAD+B,GACmD,iBAAF,GAAiB,sBAAF,GAA2B,wBAAF,GAAwB,sCAAF,GAA2C,OAAF,GACvL,0BAD4L,GAC/J,OAAF,GAC3B,iBADgC,GACZ,OAAF,GAClB,sBADuB,GACE,OAAF,GACvB,qBAD4B,GACJ,OAAF,GACtB,wBAD2B,GACA,eAAF,GAAe,sCAAF,GAA2C,OAAF,GAC/E,yBADoF,GACxD,OAAF,GAC1B,8EAD+B,GACkD,iBAAF,GAAiB,sBAAF,GAA2B,uBAAF,GAAuB,wBAAF,GAA6B,OAAF,GACvK,0BAD4K,GAC/I,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,8EAD+B,GACkD,iBAAF,GAAiB,sBAAF,GAA2B,uBAAF,GAAuB,8BAAF,GAAmC,OAAF,GAC7K,0BADkL,GACrJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,8EAD+B,GACkD,iBAAF,GAAiB,sBAAF,GAA2B,uBAAF,GAAuB,gCAAF,GAAqC,OAAF,GAC/K,0BADoL,GACvJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,8EAD+B,GACkD,iBAAF,GAAiB,sBAAF,GAA2B,uBAAF,GAAuB,kCAAF,GAAuC,OAAF,GACjL,0BADsL,GACzJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,8EAD+B,GACkD,iBAAF,GAAiB,sBAAF,GAA2B,uBAAF,GAAuB,kCAAF,GAAuC,OAAF,GACjL,0BADsL,GACzJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,8EAD+B,GACkD,iBAAF,GAAiB,sBAAF,GAA2B,uBAAF,GAAuB,sCAAF,GAA2C,OAAF,GACrL,0BAD0L,GAC7J,OAAF,GAC3B,iBADgC,GACZ,OAAF,GAClB,sBADuB,GACE,OAAF,GACvB,qBAD4B,GACJ,OAAF,GACtB,wBAD2B,GACA,eAAF,GAAe,sCAAF,GAA2C,OAAF,GAC/E,yBADoF,GACxD,OAAF,GAC1B,4EAD+B,GACgD,iBAAF,GAAiB,sBAAF,GAA2B,qBAAF,GAAqB,wBAAF,GAA6B,OAAF,GACnK,0BADwK,GAC3I,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,4EAD+B,GACgD,iBAAF,GAAiB,sBAAF,GAA2B,qBAAF,GAAqB,8BAAF,GAAmC,OAAF,GACzK,0BAD8K,GACjJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,4EAD+B,GACgD,iBAAF,GAAiB,sBAAF,GAA2B,qBAAF,GAAqB,gCAAF,GAAqC,OAAF,GAC3K,0BADgL,GACnJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,4EAD+B,GACgD,iBAAF,GAAiB,sBAAF,GAA2B,qBAAF,GAAqB,kCAAF,GAAuC,OAAF,GAC7K,0BADkL,GACrJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,4EAD+B,GACgD,iBAAF,GAAiB,sBAAF,GAA2B,qBAAF,GAAqB,kCAAF,GAAuC,OAAF,GAC7K,0BADkL,GACrJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,4EAD+B,GACgD,iBAAF,GAAiB,sBAAF,GAA2B,qBAAF,GAAqB,sCAAF,GAA2C,OAAF,GACjL,0BADsL,GACzJ,OAAF,GAC3B,iBADgC,GACZ,OAAF,GAClB,sBADuB,GACE,OAAF,GACvB,qBAD4B,GACJ,OAAF,GACtB,wBAD2B,GACA,eAAF,GAAe,sCAAF,GAA2C,OAAF,GAC/E,yBADoF,GACxD,OAAF,GAC1B,gFAD+B,GACoD,iBAAF,GAAiB,sBAAF,GAA2B,yBAAF,GAAyB,wBAAF,GAA6B,OAAF,GAC3K,0BADgL,GACnJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,gFAD+B,GACoD,iBAAF,GAAiB,sBAAF,GAA2B,yBAAF,GAAyB,8BAAF,GAAmC,OAAF,GACjL,0BADsL,GACzJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,gFAD+B,GACoD,iBAAF,GAAiB,sBAAF,GAA2B,yBAAF,GAAyB,gCAAF,GAAqC,OAAF,GACnL,0BADwL,GAC3J,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,gFAD+B,GACoD,iBAAF,GAAiB,sBAAF,GAA2B,yBAAF,GAAyB,kCAAF,GAAuC,OAAF,GACrL,0BAD0L,GAC7J,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,gFAD+B,GACoD,iBAAF,GAAiB,sBAAF,GAA2B,yBAAF,GAAyB,kCAAF,GAAuC,OAAF,GACrL,0BAD0L,GAC7J,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,gFAD+B,GACoD,iBAAF,GAAiB,sBAAF,GAA2B,yBAAF,GAAyB,sCAAF,GAA2C,OAAF,GACzL,0BAD8L,GACjK,OAAF,GAC3B,iBADgC,GACZ,OAAF,GAClB,sBADuB,GACE,OAAF,GACvB,qBAD4B,GACJ,OAAF,GACtB,wBAD2B,GACA,eAAF,GAAe,sCAAF,GAA2C,OAAF,GAC/E,yBADoF,GACxD,OAAF,GAC1B,gFAD+B,GACoD,iBAAF,GAAiB,sBAAF,GAA2B,yBAAF,GAAyB,wBAAF,GAA6B,OAAF,GAC3K,0BADgL,GACnJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,gFAD+B,GACoD,iBAAF,GAAiB,sBAAF,GAA2B,yBAAF,GAAyB,8BAAF,GAAmC,OAAF,GACjL,0BADsL,GACzJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,gFAD+B,GACoD,iBAAF,GAAiB,sBAAF,GAA2B,yBAAF,GAAyB,gCAAF,GAAqC,OAAF,GACnL,0BADwL,GAC3J,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,gFAD+B,GACoD,iBAAF,GAAiB,sBAAF,GAA2B,yBAAF,GAAyB,kCAAF,GAAuC,OAAF,GACrL,0BAD0L,GAC7J,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,gFAD+B,GACoD,iBAAF,GAAiB,sBAAF,GAA2B,yBAAF,GAAyB,kCAAF,GAAuC,OAAF,GACrL,0BAD0L,GAC7J,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,gFAD+B,GACoD,iBAAF,GAAiB,sBAAF,GAA2B,yBAAF,GAAyB,sCAAF,GAA2C,OAAF,GACzL,0BAD8L,GACjK,OAAF,GAC3B,iBADgC,GACZ,OAAF,GAClB,sBADuB,GACE,OAAF,GACvB,qBAD4B,GACJ,OAAF,GACtB,wBAD2B,GACA,eAAF,GAAe,sCAAF,GAA2C,OAAF,GAC/E,yBADoF,GACxD,OAAF,GAC1B,8EAD+B,GACkD,iBAAF,GAAiB,sBAAF,GAA2B,uBAAF,GAAuB,wBAAF,GAA6B,OAAF,GACvK,0BAD4K,GAC/I,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,8EAD+B,GACkD,iBAAF,GAAiB,sBAAF,GAA2B,uBAAF,GAAuB,8BAAF,GAAmC,OAAF,GAC7K,0BADkL,GACrJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,8EAD+B,GACkD,iBAAF,GAAiB,sBAAF,GAA2B,uBAAF,GAAuB,gCAAF,GAAqC,OAAF,GAC/K,0BADoL,GACvJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,8EAD+B,GACkD,iBAAF,GAAiB,sBAAF,GAA2B,uBAAF,GAAuB,kCAAF,GAAuC,OAAF,GACjL,0BADsL,GACzJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,8EAD+B,GACkD,iBAAF,GAAiB,sBAAF,GAA2B,uBAAF,GAAuB,kCAAF,GAAuC,OAAF,GACjL,0BADsL,GACzJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,8EAD+B,GACkD,iBAAF,GAAiB,sBAAF,GAA2B,uBAAF,GAAuB,sCAAF,GAA2C,OAAF,GACrL,0BAD0L,GAC7J,OAAF,GAC3B,iBADgC,GACZ,OAAF,GAClB,sBADuB,GACE,OAAF,GACvB,qBAD4B,GACJ,OAAF,GACtB,wBAD2B,GACA,eAAF,GAAe,sCAAF,GAA2C,OAAF,GAC/E,yBADoF,GACxD,OAAF,GAC1B,iFAD+B,GACqD,iBAAF,GAAiB,sBAAF,GAA2B,0BAAF,GAA0B,wBAAF,GAA6B,OAAF,GAC7K,0BADkL,GACrJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,iFAD+B,GACqD,iBAAF,GAAiB,sBAAF,GAA2B,0BAAF,GAA0B,8BAAF,GAAmC,OAAF,GACnL,0BADwL,GAC3J,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,iFAD+B,GACqD,iBAAF,GAAiB,sBAAF,GAA2B,0BAAF,GAA0B,gCAAF,GAAqC,OAAF,GACrL,0BAD0L,GAC7J,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,iFAD+B,GACqD,iBAAF,GAAiB,sBAAF,GAA2B,0BAAF,GAA0B,kCAAF,GAAuC,OAAF,GACvL,0BAD4L,GAC/J,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,iFAD+B,GACqD,iBAAF,GAAiB,sBAAF,GAA2B,0BAAF,GAA0B,kCAAF,GAAuC,OAAF,GACvL,0BAD4L,GAC/J,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,iFAD+B,GACqD,iBAAF,GAAiB,sBAAF,GAA2B,0BAAF,GAA0B,sCAAF,GAA2C,OAAF,GAC3L,0BADgM,GACnK,OAAF,GAC3B,iBADgC,GACZ,OAAF,GAClB,sBADuB,GACE,OAAF,GACvB,qBAD4B,GACJ,OAAF,GACtB,wBAD2B,GACA,eAAF,GAAe,sCAAF,GAA2C,OAAF,GAC/E,yBADoF,GACxD,OAAF,GAC1B,iFAD+B,GACqD,iBAAF,GAAiB,sBAAF,GAA2B,0BAAF,GAA0B,wBAAF,GAA6B,OAAF,GAC7K,0BADkL,GACrJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,iFAD+B,GACqD,iBAAF,GAAiB,sBAAF,GAA2B,0BAAF,GAA0B,8BAAF,GAAmC,OAAF,GACnL,0BADwL,GAC3J,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,iFAD+B,GACqD,iBAAF,GAAiB,sBAAF,GAA2B,0BAAF,GAA0B,gCAAF,GAAqC,OAAF,GACrL,0BAD0L,GAC7J,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,iFAD+B,GACqD,iBAAF,GAAiB,sBAAF,GAA2B,0BAAF,GAA0B,kCAAF,GAAuC,OAAF,GACvL,0BAD4L,GAC/J,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,iFAD+B,GACqD,iBAAF,GAAiB,sBAAF,GAA2B,0BAAF,GAA0B,kCAAF,GAAuC,OAAF,GACvL,0BAD4L,GAC/J,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,iFAD+B,GACqD,iBAAF,GAAiB,sBAAF,GAA2B,0BAAF,GAA0B,sCAAF,GAA2C,OAAF,GAC3L,0BADgM,GACnK,OAAF,GAC3B,iBADgC,GACZ,OAAF,GAClB,sBADuB,GACE,OAAF,GACvB,sBAD4B,GACH,OAAF,GACvB,wBAD4B,GACD,eAAF,GAAe,sCAAF,GAA2C,OAAF,GAC/E,yBADoF,GACxD,OAAF,GAC1B,2EAD+B,GAC+C,iBAAF,GAAiB,sBAAF,GAA2B,oBAAF,GAAoB,wBAAF,GAA6B,OAAF,GACjK,0BADsK,GACzI,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,2EAD+B,GAC+C,iBAAF,GAAiB,sBAAF,GAA2B,oBAAF,GAAoB,8BAAF,GAAmC,OAAF,GACvK,0BAD4K,GAC/I,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,2EAD+B,GAC+C,iBAAF,GAAiB,sBAAF,GAA2B,oBAAF,GAAoB,gCAAF,GAAqC,OAAF,GACzK,0BAD8K,GACjJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,2EAD+B,GAC+C,iBAAF,GAAiB,sBAAF,GAA2B,oBAAF,GAAoB,kCAAF,GAAuC,OAAF,GAC3K,0BADgL,GACnJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,2EAD+B,GAC+C,iBAAF,GAAiB,sBAAF,GAA2B,oBAAF,GAAoB,kCAAF,GAAuC,OAAF,GAC3K,0BADgL,GACnJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,2EAD+B,GAC+C,iBAAF,GAAiB,sBAAF,GAA2B,oBAAF,GAAoB,sCAAF,GAA2C,OAAF,GAC/K,0BADoL,GACvJ,OAAF,GAC3B,iBADgC,GACZ,OAAF,GAClB,sBADuB,GACE,OAAF,GACvB,sBAD4B,GACH,OAAF,GACvB,wBAD4B,GACD,eAAF,GAAe,sCAAF,GAA2C,OAAF,GAC/E,yBADoF,GACxD,OAAF,GAC1B,4EAD+B,GACgD,iBAAF,GAAiB,sBAAF,GAA2B,qBAAF,GAAqB,wBAAF,GAA6B,OAAF,GACnK,0BADwK,GAC3I,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,4EAD+B,GACgD,iBAAF,GAAiB,sBAAF,GAA2B,qBAAF,GAAqB,8BAAF,GAAmC,OAAF,GACzK,0BAD8K,GACjJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,4EAD+B,GACgD,iBAAF,GAAiB,sBAAF,GAA2B,qBAAF,GAAqB,gCAAF,GAAqC,OAAF,GAC3K,0BADgL,GACnJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,4EAD+B,GACgD,iBAAF,GAAiB,sBAAF,GAA2B,qBAAF,GAAqB,kCAAF,GAAuC,OAAF,GAC7K,0BADkL,GACrJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,4EAD+B,GACgD,iBAAF,GAAiB,sBAAF,GAA2B,qBAAF,GAAqB,kCAAF,GAAuC,OAAF,GAC7K,0BADkL,GACrJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,4EAD+B,GACgD,iBAAF,GAAiB,sBAAF,GAA2B,qBAAF,GAAqB,sCAAF,GAA2C,OAAF,GACjL,0BADsL,GACzJ,OAAF,GAC3B,iBADgC,GACZ,OAAF,GAClB,sBADuB,GACE,OAAF,GACvB,sBAD4B,GACH,OAAF,GACvB,wBAD4B,GACD,eAAF,GAAe,sCAAF,GAA2C,OAAF,GAC/E,yBADoF,GACxD,OAAF,GAC1B,6EAD+B,GACiD,iBAAF,GAAiB,sBAAF,GAA2B,sBAAF,GAAsB,wBAAF,GAA6B,OAAF,GACrK,0BAD0K,GAC7I,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,6EAD+B,GACiD,iBAAF,GAAiB,sBAAF,GAA2B,sBAAF,GAAsB,8BAAF,GAAmC,OAAF,GAC3K,0BADgL,GACnJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,6EAD+B,GACiD,iBAAF,GAAiB,sBAAF,GAA2B,sBAAF,GAAsB,gCAAF,GAAqC,OAAF,GAC7K,0BADkL,GACrJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,6EAD+B,GACiD,iBAAF,GAAiB,sBAAF,GAA2B,sBAAF,GAAsB,kCAAF,GAAuC,OAAF,GAC/K,0BADoL,GACvJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,6EAD+B,GACiD,iBAAF,GAAiB,sBAAF,GAA2B,sBAAF,GAAsB,kCAAF,GAAuC,OAAF,GAC/K,0BADoL,GACvJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,6EAD+B,GACiD,iBAAF,GAAiB,sBAAF,GAA2B,sBAAF,GAAsB,sCAAF,GAA2C,OAAF,GACnL,0BADwL,GAC3J,OAAF,GAC3B,iBADgC,GACZ,OAAF,GAClB,sBADuB,GACE,OAAF,GACvB,sBAD4B,GACH,OAAF,GACvB,wBAD4B,GACD,eAAF,GAAe,sCAAF,GAA2C,OAAF,GAC/E,yBADoF,GACxD,OAAF,GAC1B,6EAD+B,GACiD,iBAAF,GAAiB,sBAAF,GAA2B,sBAAF,GAAsB,wBAAF,GAA6B,OAAF,GACrK,0BAD0K,GAC7I,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,6EAD+B,GACiD,iBAAF,GAAiB,sBAAF,GAA2B,sBAAF,GAAsB,8BAAF,GAAmC,OAAF,GAC3K,0BADgL,GACnJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,6EAD+B,GACiD,iBAAF,GAAiB,sBAAF,GAA2B,sBAAF,GAAsB,gCAAF,GAAqC,OAAF,GAC7K,0BADkL,GACrJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,6EAD+B,GACiD,iBAAF,GAAiB,sBAAF,GAA2B,sBAAF,GAAsB,kCAAF,GAAuC,OAAF,GAC/K,0BADoL,GACvJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,6EAD+B,GACiD,iBAAF,GAAiB,sBAAF,GAA2B,sBAAF,GAAsB,kCAAF,GAAuC,OAAF,GAC/K,0BADoL,GACvJ,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,6EAD+B,GACiD,iBAAF,GAAiB,sBAAF,GAA2B,sBAAF,GAAsB,sCAAF,GAA2C,OAAF,GACnL,0BADwL,GAC3J,OAAF,GAC3B,iBADgC,GACZ,OAAF,GAClB,sBADuB,GACE,OAAF,GACvB,sBAD4B,GACH,OAAF,GACvB,wBAD4B,GACD,eAAF,GAAe,sCAAF,GAA2C,OAAF,GAC/E,yBADoF,GACxD,OAAF,GAC1B,mDAD+B,GACuB,eAAF,GAAe,iDAAF,GAAsD,iBAAF,GAAiB,sBAAF,GAA2B,sBAAF,GAAsB,wBAAF,GAA6B,OAAF,GAC5M,0BADiN,GACpL,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,mDAD+B,GACuB,eAAF,GAAe,iDAAF,GAAsD,iBAAF,GAAiB,sBAAF,GAA2B,sBAAF,GAAsB,8BAAF,GAAmC,OAAF,GAClN,0BADuN,GAC1L,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,mDAD+B,GACuB,eAAF,GAAe,iDAAF,GAAsD,iBAAF,GAAiB,sBAAF,GAA2B,sBAAF,GAAsB,gCAAF,GAAqC,OAAF,GACpN,0BADyN,GAC5L,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,mDAD+B,GACuB,eAAF,GAAe,iDAAF,GAAsD,iBAAF,GAAiB,sBAAF,GAA2B,sBAAF,GAAsB,kCAAF,GAAuC,OAAF,GACtN,0BAD2N,GAC9L,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,mDAD+B,GACuB,eAAF,GAAe,iDAAF,GAAsD,iBAAF,GAAiB,sBAAF,GAA2B,sBAAF,GAAsB,kCAAF,GAAuC,OAAF,GACtN,0BAD2N,GAC9L,OAAF,GAC3B,yBADgC,GACJ,OAAF,GAC1B,mDAD+B,GACuB,eAAF,GAAe,iDAAF,GAAsD,iBAAF,GAAiB,sBAAF,GAA2B,sBAAF,GAAsB,sCAAF,GAA2C,OAAF,GAC1N,0BAD+N,GAClM,OAAF,GAC3B,iBADgC,GACZ,OAAF,GAClB,sBADuB,GACE,OAAF,GACvB,aAD4B,GACZ,OAAF,GACd,WADmB,GACL,OAAF,GACZ,SADiB,GACL,OAAF,GACV,OADe,GACL,OAAF;AAEV,eAAU,MAK2C,GAJnD,QADe,GACJ,wBAAF,GAAwB,IAAF,GAAS,OAAF,GACtC,MAD2C,GAClC,6BAAF,GAA6B,GAAF,GAAQ,eAAF,GAAe,YAAF,GAAiB,wBAAF,GAAwB,GAAF,GAAQ,OAAF,GAChG,KADqG,GAC7F,OAAF,GAEN,+CAAW,CAAC,qCAAD,CAFA,GAGX,GADmD;AA5iB5B;AAAsC;AA0nBlB;AAApB;AAEzB;AAEA,eAAU;AACV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,UAAK;AACL,2BAAgB,CAAC;;;;UAAD;AAEhB,eACE,WAGwB,GAHV,sBAAF,GAAsB,GAAF,GAAQ,eAAF,GAAe,IAAF,GAAS,OAAF,GAC1D,mDAD+D,GAE/D,QADc,GACH,aAAF,GAAa,KAAF,GAAU,kBAAF,GAAkB,GAAF,GAAQ,eAAF,GAAe,UAAF,GAAe,OAAF,GAC5E,UAAK,eAD4E,GAC5D,OAAF,GAAO,OAAF;AAE1B,UAAG,CAAE,KAAG,EAAR,EACE,SAAU,MAAgB,GAAP,CAAF,GAAM,OAAF,GAAO,OAD9B;AAGA,eAAU,MAIqC,GAH7C,QADe,GACJ,aAAF,GAAa,IAAF,GAAS,OAAF,GAC3B,MADgC,GACvB,kBAAF,GAAkB,GAAF,GAAQ,eAAF,GAAe,YAAF,GAAiB,aAAF,GAAa,GAAF,GAAQ,OAAF,GAC1E,KAD+E,GACvE,OAAF,GACN,+CAAW,CAAC,+BAAD,CADA,GAEX,GAD6C;AAxBtB;AAAoB;AAnBC;AAArB;AAEzB,eAAU;AACV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,eACE,WAQ8C,GARhC,uBAAF,GAAuB,GAAF,GAAQ,eAAF,GAAe,IAAF,GAAS,OAAF,GAC3D,mDADgE,GAEhE,QADc,GACH,aAAF,GAAa,KAAF,GAAU,kBAAF,GAAkB,GAAF,GAAQ,eAAF,GAAe,UAAF,GAAe,OAAF,GAC5E,UAAK,gBAD4E,GAC3D,OAAF,GAAO,OAAF,GACzB,QAD8B,GACnB,aAAF,GAAa,IAAF,GAAS,OAAF,GAC3B,aADgC,GAChB,kBAAF,GAAkB,GAAF,GAAQ,eAAF,GAAe,UAAF,GAAe,OAAF,GAC9D,MADmE,GAC1D,aAAF,GAAa,UAAF,GAAe,OAAF,GAC/B,KADoC,GAC5B,OAAF,GACN,+CAAW,CAAC,gCAAD,CADA,GAEX,GAD8C;AAfvB;AAAqB;AA1nBE;AAAvB;AAEzB,eAAU;AACV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,eACE,WAQyC,GAR3B,yBAAF,GAAyB,GAAF,GAAQ,eAAF,GAAe,IAAF,GAAS,OAAF,GAC7D,mDADkE,GAElE,QADc,GACH,cAAF,GAAc,KAAF,GAAU,mBAAF,GAAmB,GAAF,GAAQ,eAAF,GAAe,UAAF,GAAe,OAAF,GAC9E,UAAK,kBAD8E,GAC3D,OAAF,GAAO,OAAF,GAC3B,QADgC,GACrB,cAAF,GAAc,IAAF,GAAS,OAAF,GAC5B,aADiC,GACjB,mBAAF,GAAmB,GAAF,GAAQ,eAAF,GAAe,UAAF,GAAe,OAAF,GAC/D,MADoE,GAC3D,cAAF,GAAc,UAAF,GAAe,OAAF,GAChC,KADqC,GAC7B,OAAF,GACN,+CAAW,CAAC,2BAAD,CADA,GAEX,GADyC;AAflB;AAAuB;AA+vBV;AAAb;AAEzB;AAEA,eAAU;AACV,eAAS,QAAmB,OAAd,aAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AACF,iBAAU,MAA2E,GAAlE,IAAF,GAAS,8BAAF,GAA8B,GAAF,GAAkB,4DAAV,aAAO,WAAC,CAAD,CAAG,CAAZ,GAAsB,IAAF,GAAS,OAAF;;AAN9D;AAAa;AA5LoB;AAAjC;AAEzB,eAAU;AACV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,eACE,WAcmD,GAdrC,mCAAF,GAAmC,GAAF,GAAQ,eAAF,GAAe,IAAF,GAAS,OAAF,GACvE,mDAD4E,GAE5E,QADc,GACH,wBAAF,GAAwB,KAAF,GAAU,6BAAF,GAA6B,GAAF,GAAQ,eAAF,GAAe,UAAF,GAAe,OAAF,GAClG,QADuG,GAC5F,wBAAF,GAAwB,IAAF,GAAS,OAAF,GAEtC,MAF2C,GAElC,YAAF,GAAc,eAAF,GAAoB,wBAAF,GAAwB,OAAF,GAAY,OAAF,GAIrE,gCAJ0E,GAIvC,wBAAF,GAAwB,OAAF,GAAY,OAAF,GACjE,gCADsE,GACnC,wBAAF,GAAwB,OAAF,GAAY,OAAF,GACjE,aADsE,GACtD,6BAAF,GAA6B,GAAF,GAAQ,eAAF,GAAe,UAAF,GAAe,OAAF,GACzE,MAD8E,GACrE,wBAAF,GAAwB,UAAF,GAAe,OAAF,GAC1C,KAD+C,GACvC,OAAF,GACN,+CAAW,CAAC,qCAAD,CADA,GAEX,GADmD;AArB5B;AAAiC;AAslCV;AAAvB;AAEzB;AACA;AACA;AAEA,eAAU;AACA,SAAD,sBAAC,OAAK,CAAN;AACT,SAAG,CAAC,CAAD,CAAH,GAAU;AACV,SAAG,CAAC,CAAD,CAAH,GAAU;AACV,SAAG,CAAC,CAAD,CAAH,GAAU;AAEV,UAAK,iCAA4B,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC;AACE,SAAC,OAAO,CAAC,uBAAD;AAER,uBAAU,CAAC,CAAD;AAEV,iBAAS,QAAa,OAAR,CAAC,SAAC,EAAM,GAAE,CAAF,kBAAtB;AAAI;AAEF,mBAAU,MAAoF,GAA3E,IAAF,GAAS,wCAAF,GAAwC,GAAF,GAAY,0DAAJ,CAAC,WAAC,CAAD,EAAW,iBAAR,CAAN,GAAqB,IAAF,GAAS,OAAF;;AAPlG;AAUE,SAAE,eAAF,CAAE;AAVJ;AAbyB;AAAuB;AA93BU;AAAjC;AAEzB;AAEA,eAAU;AACV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,UAAM;AACN,iCAAsB,CAAC;;;;UAAD;AAEtB,eACE,WAGqC,GAHvB,mCAAF,GAAmC,GAAF,GAAQ,eAAF,GAAe,IAAF,GAAS,OAAF,GACvE,mDAD4E,GAE5E,QADc,GACH,mBAAF,GAAmB,KAAF,GAAU,wBAAF,GAAwB,GAAF,GAAQ,eAAF,GAAe,UAAF,GAAe,OAAF,GACxF,UAAK,4BADwF,GAC3D,OAAF,GAAO,OAAF;AAErC,UAAG,CAAE,KAAG,EAAR,EACE,SAAU,MAAgB,GAAP,CAAF,GAAM,OAAF,GAAO,OAD9B;AAGF,eAAU,MAIsC,GAH9C,QADe,GACJ,mBAAF,GAAmB,IAAF,GAAS,OAAF,GACjC,MADsC,GAC7B,wBAAF,GAAwB,GAAF,GAAQ,eAAF,GAAe,YAAF,GAAiB,mBAAF,GAAmB,GAAF,GAAQ,OAAF,GACtF,KAD2F,GACnF,OAAF,GACN,+CAAW,CAAC,gCAAD,CADA,GAEX,GAD8C;AAxBvB;AAAiC;AAnBL;AAA5B;AAEzB,eAAU;AACV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,eACE,WAQqD,GARvC,8BAAF,GAA8B,GAAF,GAAQ,eAAF,GAAe,IAAF,GAAS,OAAF,GAClE,mDADuE,GAEvE,QADc,GACH,mBAAF,GAAmB,KAAF,GAAU,wBAAF,GAAwB,GAAF,GAAQ,eAAF,GAAe,UAAF,GAAe,OAAF,GACxF,UAAK,uBADwF,GAChE,OAAF,GAAO,OAAF,GAChC,QADqC,GAC1B,mBAAF,GAAmB,IAAF,GAAS,OAAF,GACjC,aADsC,GACtB,wBAAF,GAAwB,GAAF,GAAQ,eAAF,GAAe,UAAF,GAAe,OAAF,GACpE,MADyE,GAChE,mBAAF,GAAmB,UAAF,GAAe,OAAF,GACrC,KAD0C,GAClC,OAAF,GACN,+CAAW,CAAC,uCAAD,CADA,GAEX,GADqD;AAf9B;AAA4B;AA+CF;AAA1B;AAEzB;AAAG;AAAG;AACN;AAEA,eAAU;AACA,SAAD,sBAAC,OAAK,CAAN;AACT,SAAG,CAAC,CAAD,CAAH,GAAU;AAEV,eAAS,QAAqB,OAAhB,SAAS,SAAC,EAAM,GAAE,CAAF,kBAA9B;AAAI;AAEF,iBAAU,MAA2C,GAAlC,8BAAF,GAA8B,KAAF,GAAU,OAAF;AACrD,iBAAS,SAAoC,QAA/B,SAAS,WAAC,CAAD,CAAG,aAAY,SAAC,EAAM,GAAE,CAAF,qBAA7C;AAAI;AACF,mBAAU,MAAgF,GAAvE,yBAAF,GAAyB,GAAF,GAAmC,4DAA3B,SAAS,WAAC,CAAD,CAAG,aAAY,WAAC,CAAD,CAAG,CAA7B,GAAuC,IAAF,GAAS,OAAF;;AAE5F,iBAAU,MAAsC,GAA7B,yBAAF,GAAyB,KAAF,GAAU,OAAF;AAChD,iBAAS,SAA8B,QAAzB,SAAS,WAAC,CAAD,CAAG,OAAM,SAAC,EAAM,GAAE,CAAF,qBAAvC;AAAI;AAEF,mBAAiD,MAAxC,SAAS,WAAC,CAAD,CAAG,OAAM,WAAC,CAAD,CAAG,aAAY,SAAC,EAAM,GAAE,CAAF,EAAW,eAA5D;AAAI;AACF,qBAAU,MAAwH,GAA/G,mBAAF,GAAmB,KAAF,GAAU,SAAS,WAAC,CAAD,CAAG,OAAM,WAAC,CAAD,CAAG,MAAC,EAAxB,GAA6B,IAAF,GAA6C,4DAApC,SAAS,WAAC,CAAD,CAAG,OAAM,WAAC,CAAD,CAAG,aAAY,WAAC,CAAD,CAAG,CAAtC,GAAgD,KAAF,GAAU,OAAF;;;AAGtI,iBAAU,MAAuF,GAA9E,IAAF,GAAS,mCAAF,GAAmC,GAAF,GAAoB,0DAAZ,SAAS,WAAC,CAAD,EAAW,iBAAR,CAAd,GAA6B,IAAF,GAAS,OAAF;;AAtB1E;AAA0B;AA0BR;AAAlB;AAEzB;AAAK;AAAK;AAAK;AAEf,eAAU;AACV,YAAO,+BAA0B,CAAC,cAAD;AACjC,UAAG,GAAI,KAAG,EAAV,EACE,SAAU,MAAa,GAAJ,GAAF,GAAQ,OAD3B;AAGA,YAAO,+BAA0B,CAAC,gBAAD;AACjC,UAAG,GAAI,KAAG,EAAV,EACE,SAAU,MAAa,GAAJ,GAAF,GAAQ,OAD3B;AAGA,YAAO,+BAA0B,CAAC,aAAD;AACjC,UAAG,GAAI,KAAG,EAAV,EACE,SAAU,MAAa,GAAJ,GAAF,GAAQ,OAD3B;AAGA,YAAO,+BAA0B,CAAC,eAAD;AACjC,UAAG,GAAI,KAAG,EAAV,EACE,SAAU,MAAa,GAAJ,GAAF,GAAQ,OAD3B;AAlByB;AAAkB;AAqMA;AAAlB;AAEzB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEA,eAAU;AACV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,WAAM,yDAAqB,QAAC,YAAM,CAAC,EAAG,CAAJ,CAAN;AAC5B;AACE,YAAO,4DAAF,EAAE;AADT;AAGE,UAAG,eAAH,EAAG;AAHL;AAMA,WAAM,wDAAoB,QAAC;AAC3B;AACE,YAAO,4DAAF,EAAE;AADT;AAGE,UAAG,eAAH,EAAG;AAHL;AAMA,YAAO,yBAAoB,QAAC;AAC5B;AACE,YAAQ,4DAAH,GAAG;AADV;AAGE,WAAI,eAAJ,GAAI;AAHN;AAMA,WAAM,qDAAiB,QAAC,YAAM,CAAiB,oEAAhB,oDAAgB,CAAC,EAAI,CAAL,GAAyB,oEAAhB,oDAAgB,CAAC,EAAI,CAAL,EAA1C,CAAN;AACxB;AACE,YAAO,4DAAF,EAAE;AADT;AAGE,UAAG,eAAH,EAAG;AAHL;AAMA,YAAO,sBAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AACzB;AACE,aAAS,4DAAH,GAAG;AADX;AAGE,WAAI,eAAJ,GAAI;AAHN;AAMA,UAAK;AACL,qCAA0B,CAAC;;;;UAAD;AAC1B,UAAG,CAAE,KAAG,EAAR,EACE,SAAU,MAAW,GAAF,CAAF,GAAM,OADzB;AAGA,eAAU,MAAkC,GAAzB,UAAK,qBAAP,GAA6B,OAAF;AAE5C,eAAU,MAgMJ,GA7LJ,MAHe,GAGN,iBAAF,GAAiB,UAAF,GAAe,OAAF,GAEnC,MAFwC,GAE/B,cAAF,GAAc,GAAF,GAAQ,OAAF,GACzB,MAD8B,GACrB,eAAF,GAAe,GAAF,GAAQ,OAAF,GAC1B,MAD+B,GACtB,WAAF,GAAW,UAAF,GAAe,OAAF,GAC7B,MADkC,GACzB,mBAAF,GAAmB,QAAF,GAAa,OAAF,GACnC,MADwC,GAC/B,6BAAF,GAA6B,QAAF,GAAa,OAAF,GAC7C,MADkD,GACzC,kBAAF,GAAkB,QAAF,GAAa,OAAF,GAClC,MADuC,GAC9B,wBAAF,GAAwB,QAAF,GAAa,OAAF,GACxC,MAD6C,GACpC,uBAAF,GAAuB,GAAF,GAAQ,OAAF,GAClC,MADuC,GAC9B,iBAAF,GAAiB,QAAF,GAAa,OAAF,GACjC,8BADsC,GACL,OAAF,GAAO,OAAF,GAEpC,WAFyC,GAE3B,4BAAF,GAA4B,mBAAF,GAAwB,OAAF,GAC5D,8BADiE,GAChC,OAAF,GAC/B,+CADoC,GAEpC,yIADgD,GAEhD,8KAD0I,GAE1I,UAD+K,GAClK,OAAF,GACX,YADgB,GACD,OAAF,GACb,kBADkB,GACG,OAAF,GACnB,KADwB,GAChB,OAAF,GACN,GADW,GACL,OAAF,GAAO,OAAF,GACT,WADc,GACA,8BAAF,GAA8B,KAAF,GAAU,OAAF,GAChD,IADqD,GAC9C,uBAAF,GAAuB,KAAF,GAAU,UAAK,+BAAP,GAAuC,OAAF,GACvE,GAD4E,GACtE,OAAF,GAAO,OAAF,GACT,WADc,GACA,yBAAF,GAAyB,KAAF,GAAU,OAAF,GAC3C,IADgD,GACzC,iBAAF,GAAiB,KAAF,GAAU,UAAK,0BAAP,GAAkC,OAAF,GAC5D,GADiE,GAC3D,OAAF,GAAO,OAAF,GACT,WADc,GACA,yBAAF,GAAyB,GAAF,GAAQ,eAAF,GAAe,IAAF,GAAS,OAAF,GAC7D,IADkE,GAC3D,UAAK,0BAAP,GAAkC,OAAF,GACrC,GAD0C,GACpC,OAAF,GAAO,OAAF,GACT,WADc,GACA,mBAAF,GAAmB,GAAF,GAAQ,eAAF,GAAe,IAAF,GAAS,OAAF,GACvD,IAD4D,GACrD,UAAK,oBAAP,GAA4B,OAAF,GAC/B,GADoC,GAC9B,OAAF,GAAO,OAAF,GACT,WADc,GACA,0BAAF,GAA0B,GAAF,GAAQ,eAAF,GAAe,IAAF,GAAS,OAAF,GAC9D,sBADmE,GAC1C,eAAF,GAAe,gBAAF,GAAqB,OAAF,GACvD,MAD4D,GACnD,yBAAF,GAAyB,gBAAF,GAAqB,eAAF,GAAe,gCAAF,GAAqC,eAAF,GAAe,qBAAF,GAA0B,OAAF,GACtI,KAD2I,GACnI,OAAF,GACN,GADW,GACL,OAAF,GAAO,OAAF,GACT,WADc,GACA,oBAAF,GAAoB,GAAF,GAAQ,eAAF,GAAe,IAAF,GAAS,OAAF,GACxD,eAD6D,GAC3C,eAAF,GAAe,+BAAF,GAAoC,OAAF,GAC/D,MADoE,GAC3D,mBAAF,GAAmB,IAAF,GAAS,eAAF,GAAe,KAAF,GAAU,iBAAF,GAAsB,eAAF,GAAe,mCAAF,GAAwC,eAAF,GAAe,yBAAF,GAA8B,OAAF,GACpK,KADyK,GACjK,OAAF,GACN,GADW,GACL,OAAF,GAAO,OAAF,GAGT,6BAHc,GAGkB,OAAF,GAC9B,wCADmC,GACY,OAAF,GAC7C,IADkD,GAC3C,iBAAF,GAAiB,qBAAF,GAA0B,OAAF,GAC5C,GADiD,GAC3C,OAAF,GAEJ,sBAFS,GAEgB,OAAF,GAEvB,aAF4B,GAEZ,UAAF,GAAU,qBAAF,GAA0B,OAAF,GAC9C,UADmD,GAC3C,6CAAF,GAAoD,OAAF,GACxD,KAD6D,GACrD,OAAF,GAEN,UAAK,cAFM,GAES,OAAF,GAClB,IADuB,GAChB,WAAF,GAAW,UAAF,GAAe,OAAF,GAC3B,GADgC,GAC1B,OAAF,GACJ,yBADS,GACmB,OAAF,GAC1B,2BAD+B,GACD,OAAF,GAC5B,GADiC,GAC3B,OAAF,GAAO,OAAF,GACT,WADc,GACA,sBAAF,GAAsB,GAAF,GAAQ,OAAF,GACtC,iBAD2C,GACvB,OAAF,GAClB,oBADuB,GACA,mBAAF,GAAmB,IAAF,GAAS,OAAF,GAC7C,kBADkD,GAC7B,OAAF,GACnB,kBADwB,GACH,OAAF,GACnB,KADwB,GAChB,OAAF,GACN,0BADW,GACkB,OAAF,GAC3B,GADgC,GAC1B,OAAF,GAAO,OAAF,GACT,WADc,GACA,gCAAF,GAAgC,GAAF,GAAQ,OAAF,GAChD,iBADqD,GACjC,OAAF,GAClB,oBADuB,GACA,6BAAF,GAA6B,IAAF,GAAS,OAAF,GACvD,kBAD4D,GACvC,OAAF,GACnB,kBADwB,GACH,OAAF,GACnB,KADwB,GAChB,OAAF,GACN,0BADW,GACkB,OAAF,GAC3B,GADgC,GAC1B,OAAF,GAAO,OAAF,GACT,WADc,GACA,qBAAF,GAAqB,GAAF,GAAQ,OAAF,GACrC,iBAD0C,GACtB,OAAF,GAClB,oBADuB,GACA,kBAAF,GAAkB,IAAF,GAAS,OAAF,GAC5C,kBADiD,GAC5B,OAAF,GACnB,kBADwB,GACH,OAAF,GACnB,KADwB,GAChB,OAAF,GACN,0BADW,GACkB,OAAF,GAC3B,GADgC,GAC1B,OAAF,GAAO,OAAF,GACT,WADc,GACA,2BAAF,GAA2B,GAAF,GAAQ,OAAF,GAC3C,iBADgD,GAC5B,OAAF,GAClB,oBADuB,GACA,wBAAF,GAAwB,IAAF,GAAS,OAAF,GAClD,kBADuD,GAClC,OAAF,GACnB,kBADwB,GACH,OAAF,GACnB,KADwB,GAChB,OAAF,GACN,0BADW,GACkB,OAAF,GAC3B,GADgC,GAC1B,OAAF,GAAO,OAAF,GACT,WADc,GACA,gBAAF,GAAgB,KAAF,GAAU,OAAF,GAClC,kCADuC,GACF,UAAF,GAAU,IAAF,GAAS,OAAF,GAClD,MADuD,GAC9C,UAAF,GAAU,WAAF,GAAgB,OAAF,GAC7B,KADkC,GAC1B,OAAF,GACN,GADW,GACL,OAAF,GAAO,OAAF,GACT,WADc,GACA,iBAAF,GAAiB,GAAF,GAAQ,eAAF,GAAe,4BAAF,GAAiC,OAAF,GAC7E,8CADkF,GACjC,OAAF,GAC/C,QADoD,GACzC,eAAF,GAAe,UAAF,GAAe,OAAF,GACnC,sBADwC,GACf,eAAF,GAAe,SAAF,GAAc,OAAF,GAChD,KADqD,GAC7C,OAAF,GACN,QADW,GACA,eAAF,GAAe,SAAF,GAAc,OAAF,GAClC,qBADuC,GACf,eAAF,GAAe,QAAF,GAAa,OAAF,GAC9C,KADmD,GAC3C,OAAF,GACN,QADW,GACA,eAAF,GAAe,SAAF,GAAc,OAAF,GAClC,qBADuC,GACf,eAAF,GAAe,QAAF,GAAa,OAAF,GAC9C,KADmD,GAC3C,OAAF,GACN,QADW,GACA,eAAF,GAAe,iBAAF,GAAsB,OAAF,GAC1C,6BAD+C,GACf,eAAF,GAAe,gBAAF,GAAqB,OAAF,GAC9D,KADmE,GAC3D,OAAF,GACN,QADW,GACA,eAAF,GAAe,kBAAF,GAAuB,OAAF,GAC3C,0CADgD,GACH,eAAF,GAAe,6BAAF,GAAkC,OAAF,GACxF,2CAD6F,GAC/C,eAAF,GAAe,8BAAF,GAAmC,OAAF,GAC1F,KAD+F,GACvF,OAAF,GACN,uBADW,GACe,OAAF,GACxB,qBAD6B,GACL,OAAF,GACtB,0DAD2B,GACkC,OAAF,GAC3D,KADgE,GACxD,OAAF,GACN,oDADW,GAC4C,OAAF,GACrD,GAD0D,GACpD,OAAF,GAAO,OAAF,GACT,wBADc,GACa,OAAF,GACzB,0BAD8B,GACG,OAAF,GAC/B,uCADoC,GACM,OAAF,GACxC,uCAD6C,GACH,OAAF,GACxC,uCAD6C,GACH,OAAF,GAExC,6CAF6C,GAEa,OAAF,GACxD,kBAD6D,GACxC,OAAF,GACnB,GADwB,GAClB,OAAF,GAAO,OAAF,GACT,uCADc,GAC4B,OAAF,GACxC,WAD6C,GAC/B,CAAF,GAAM,OAAF,GAChB,GADqB,GACf,OAAF,GAAO,OAAF,GACT,wCADc,GAC6B,OAAF,GACzC,WAD8C,GAChC,CAAF,GAAM,OAAF,GAChB,GADqB,GACf,OAAF,GAAO,OAAF,GACT,mCADc,GACwB,OAAF,GACpC,WADyC,GAC3B,CAAF,GAAM,OAAF,GAChB,GADqB,GACf,OAAF,GAAO,OAAF,GACT,oCADc,GACyB,OAAF,GACrC,WAD0C,GAC5B,CAAF,GAAM,OAAF,GAChB,GADqB,GACf,OAAF,GAAO,OAAF,GACT,oCADc,GACyB,OAAF,GACrC,WAD0C,GAC5B,EAAF,GAAO,OAAF,GACjB,GADsB,GAChB,OAAF,GAAO,OAAF,GACT,4EADc,GACiE,OAAF,GAC7E,gBADkF,GAC/D,OAAF,GACjB,iBADsB,GACF,OAAF,GAClB,gBADuB,GACJ,OAAF,GACjB,iBADsB,GACF,OAAF,GAClB,oBADuB,GACA,OAAF,GACrB,iBAD0B,GACN,OAAF,GAClB,gBADuB,GACJ,OAAF,GACjB,gBADsB,GACH,OAAF,GACjB,iBADsB,GACF,OAAF,GAClB,iBADuB,GACH,OAAF,GAClB,gBADuB,GACJ,OAAF,GACjB,sBADsB,GACG,OAAF,GACvB,oCAD4B,GACW,OAAF,GACrC,uCAD0C,GACA,OAAF,GACxC,wCAD6C,GACF,OAAF,GACzC,gCAD8C,GACX,OAAF,GACjC,gCADsC,GACH,OAAF,GACjC,uFADsC,GACoD,OAAF,GACxF,0BAD6F,GAChE,OAAF,GAC3B,kDADgC,GACqB,OAAF,GACnD,6CADwD,GACR,OAAF,GAC9C,8BADmD,GAClB,OAAF,GAC/B,mCADoC,GACE,OAAF,GACpC,mCADyC,GACH,OAAF,GACpC,2BADyC,GACX,OAAF,GAC5B,wBADiC,GACN,OAAF,GACzB,UAD8B,GACjB,OAAF,GACX,wBADgB,GACW,OAAF,GACzB,KAD8B,GACtB,OAAF,GACN,IADW,GACJ,OAAF,GAAO,OAAF,GACV,qDADe,GACyC,OAAF,GACtD,oBAD2D,GACpC,OAAF,GACrB,oCAD0B,GACa,OAAF,GACrC,qFAD0C,GAC8C,OAAF,GACtF,MAD2F,GAClF,OAAF,GACP,kBADY,GACS,OAAF,GACnB,IADwB,GACjB,OAAF,GACL,yDADU,GACkD,OAAF,GAC1D,uGAD+D,GAC2C,OAAF,GACxG,GAD6G,GACvG,OAAF;AA5PmB;AAAkB;AA/KD;AAAjB;AAEzB,eACA,8CAC+C,GADE,OAAF,GAC/C,yCADoD,GACR,OAAF,GAC1C,+CAD+C;AAJtB;AAAiB;AAx3BO;AAAxB;AAEzB,eAAU;AACV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,eACE,WAO0B,GAPZ,+BAAF,GAA8B,KAAF,GAAU,OAAF,GAChD,QADqD,GAC1C,UAAK,sBAAP,GAA8B,KAAF,GAAU,OAAF,GAC7C,iBADkD,GAC9B,+BAAF,GAA8B,SAAF,GAAc,OAAF,GAC1D,gBAD+D,GAC5C,WAAF,GAAW,KAAF,GAAU,OAAF,GAClC,MADuC,GAC9B,iBAAF,GAAgB,KAAF,GAAU,OAAF,GAC7B,KADkC,GAC1B,OAAF,GACN,IADW,GACJ,OAAF,GACL,+BADU,GACkB,KAAF;AAdH;AAAwB;AA1dV;AAAd;AAEzB;AAEA,eAaA,WA+GmC,GA/GrB,OAAF,GAWZ,eAXiB,GAWA,OAAF,GAIf,0BAJoB,GAIS,OAAF,GAC3B,iBADgC,GACb,OAAF,GACjB,sBADsB,GACG,OAAF,GACvB,kBAD4B,GACP,OAAF,GACnB,mBADwB,GACF,OAAF,GACpB,gBADyB,GACN,OAAF,GACjB,iBADsB,GACF,OAAF,GAClB,4BADuB,GACQ,OAAF,GAC7B,yBADkC,GACN,OAAF,GAC1B,sBAD+B,GACN,OAAF,GACvB,oBAD4B,GACL,OAAF,GACrB,qCAD0B,GACa,OAAF,GACrC,qCAD0C,GACH,OAAF,GAMrC,yBAN0C,GAMf,OAAF,GAIzB,KAJ8B,GAIvB,OAAF,GAEL,yBAFU,GAEiB,OAAF,GACzB,yBAD8B,GACH,OAAF,GACzB,gBAD8B,GACZ,OAAF,GAChB,eADqB,GACJ,OAAF,GACf,+CADoB,GAC6B,OAAF,GAC/C,+CADoD,GACH,OAAF,GAC/C,+CADoD,GACH,OAAF,GAC/C,KADoD,GAC7C,OAAF,GAEL,eAFU,GAEO,OAAF,GACf,uBADoB,GACK,OAAF,GACvB,kBAD4B,GACR,OAAF,GAClB,uBADuB,GACE,OAAF,GACvB,yBAD4B,GACD,OAAF,GACzB,KAD8B,GACvB,OAAF,GAEL,6BAFU,GAEqB,OAAF,GAC7B,yBADkC,GACP,OAAF,GACzB,oBAD8B,GACR,OAAF,GACpB,4BADyB,GACK,OAAF,GAC5B,kBADiC,GACb,OAAF,GAClB,KADuB,GACf,OAAF,GAEN,gCAFW,GAEuB,OAAF,GAChC,4CADqC,GACW,OAAF,GAC9C,sBADmD,GAC3B,OAAF,GACtB,uBAD2B,GACF,OAAF,GACvB,gCAD4B,GACM,OAAF,GAChC,qBADqC,GACd,OAAF,GACrB,0BAD0B,GACE,OAAF,GAC1B,wBAD+B,GACL,OAAF,GACxB,mBAD6B,GACR,OAAF,GACnB,4BADwB,GACM,OAAF,GAC5B,yBADiC,GACN,OAAF,GACzB,kBAD8B,GACV,OAAF,GAClB,cADuB,GACP,OAAF,GACd,eADmB,GACF,OAAF,GACf,KADoB,GACb,OAAF,GAEL,+CAFU,GAEuC,OAAF,GAC/C,kCADoD,GAChB,OAAF,GAClC,yBADuC,GACZ,OAAF,GACzB,OAD8B,GACrB,OAAF,GACP,KADY,GACL,OAAF,GAEL,+CAFU,GAEuC,OAAF,GAC/C,+BADoD,GACnB,OAAF,GAC/B,sBADoC,GACZ,OAAF,GACtB,8BAD2B,GACK,OAAF,GAC9B,OADmC,GAC1B,OAAF,GACP,kCADY,GACwB,OAAF,GAClC,wBADuC,GACb,OAAF,GACxB,OAD6B,GACpB,OAAF,GACP,kCADY,GACwB,OAAF,GAClC,wBADuC,GACb,OAAF,GACxB,OAD6B,GACpB,OAAF,GACP,mBADY,GACS,OAAF,GACnB,0BADwB,GACI,OAAF,GAC1B,wBAD+B,GACL,OAAF,GACxB,OAD6B,GACpB,OAAF,GACP,KADY,GACL,OAAF,GAEL,WAFU,GAEI,OAAF,GAQZ,uBARiB,GAQS,OAAF,GACxB,4BAD6B,GACE,OAAF,GAC7B,kCADkC,GACG,OAAF;AAGnC,UAAK;AACL,UAAG,CAAI,eAAP;AAEE,YAAY,UAAD,QAAX;AACE,cAAK,UAAK,gBAAe,GAAE,wDAAF;AAEzB,kBAAK;OALT;AAQA,kCAAuB,CAAC;;;;UAAD;AAEvB,eAAU,MAAsC,GAA7B,cAAF,GAAmB,CAAF,GAAM,OAAF,GAAY,OAAF;AAEhD,eAAU,MAGC,GAFX,cADiB,GACA,OAAF,GACf,YADoB,GACL,OAAF,GACb,UADkB,GACL,OAAF;AAnJc;AAAc;AAspGN;AAAR;AAEzB,eAAkB,CAAC,UAAD,SAAkE,IAA9C,CAAC,kBAAD,SAAZ,IAAwC,CAAC,oBAAD,SAAZ,IAAkC,UAAK,UAAT;AAF3D;AAAQ;AA/5FI;AAAZ;AAEzB,eAAU,kCAAQ,CAAC,kCAAQ,CAAC,EAAQ,CAAT,EAAkB,kCAAQ,CAAC,EAAQ,CAAT,CAAnC;AAFO;AAAY;AA5FH;AAAT;AAEzB,eAAU;AAFe;AAAS;AAtPC;AAAV;AAEzB,eAAU;AAFe;AAAU;AAsvGN;AAAJ;AACtB;AAD0B;AAE7B,qCAAU,UAAV;AADG;AAD0B;AAC1B;AAD0B;AAAJ;AAAI;AAmBM;AAAV;AAEzB;AACA;AAEA,eAAU;AACV,eAAS,QAAiB,OAAZ,KAAK,SAAC,EAAM,GAAE,CAAF,kBAA1B;AAAI;AAEF,aAAM,KAAK,WAAC,CAAD;AACJ,mBAAF,EAAE;AACL,YADK,IACL;AAAS,mBAAU,MAAO,GAAE,OAAF;AAC1B,kBAFK,IAEL;AAAW,mBAAU,MAAO,GAAE,SAAF;AAC5B,kBAHK,IAGL,wCAAU,SAAU,MAAO,GAAE,QAA7B;AAGF,YAAG,EAAE,KAAK,KAAG,EAAb;AAES,sBAAF,EAAE;AACL,cADK,KACL;AAAS,qBAAU,MAAO,GAAE,SAAF;AAC1B,oBAFK,KAEL,yCAAW,SAAU,MAAO,GAAE,QAA9B;AAGF,mBAAU,MAAgB,GAAP,EAAE,KAAJ,GAAW,GAAF;SAP5B;AAUA,YAAG,EAAE,MAAO,KAAG,EAAf,EACE,SAAU,MAA8B,GAArB,SAAF,GAAc,EAAE,MAAJ,GAAa,GAD5C;AAGA,YAAG,EAAE,SAAS,KAAG,EAAjB,EACE,SAAU,MAAmC,GAA1B,YAAF,GAAiB,EAAE,SAAJ,GAAe,GADjD;AAGA,YAAG,EAAE,KAAK,KAAG,EAAb,EACE,SAAU,MAA2B,GAAlB,QAAF,GAAa,EAAE,KAAJ,GAAU,GADxC;AAGA,YAAG,EAAE,OAAL,EACE,SAAU,MAAO,GAAE,QADrB;AAGA,YAAG,EAAE,OAAL,EACE,SAAU,MAAO,GAAE,QADrB;AAGA,iBAAU,MAAO,GAAE,GAAF;AAEjB,YAAG,EAAE,SAAS,KAAG,EAAjB,EACE,SAAU,MAAY,GAAH,OAAF,GAAO,EAAE,SAD5B;AAGO,oBAAF,EAAE;AACL,YADK,KACL;AAAS,mBAAU,MAAY,GAAH,OAAF,GAAO,SAAF;AAC/B,kBAFK,KAEL;AAAW,mBAAU,MAAY,GAAH,OAAF,GAAO,WAAF;AACjC,kBAHK,KAGL,wCAAU,SAAU,MAAY,GAAH,OAAF,GAAO,UAAlC;AAGF,YAAI,CAAE,GAAc,CAAZ,KAAK,SAAC,EAAM,GAAE,CAAF,CAApB,EACE,SAAU,MAAO,GAAE,OADrB;;AAnDuB;AAAU;AA/7FA;AAAV;AAEzB;AAEA,WAAM;AACN,eAAU,qBAAQ,CAAG,CAAC,gCAAM,CAAC,EAAD,CAAP,aAAH,CAA8E,GAA7D,GAAD,GAAK,qBAAQ,CAAI,gCAAM,CAAC,EAAD,CAAP,OAAH,CAAT,GAA0B,GAAD,GAAK,qBAAQ,CAAG,CAAC,gCAAM,CAAC,EAAD,CAAP,aAAH,CAAT,GAA0B,GAAD,GAAK,qBAAQ,CAAI,gCAAM,CAAC,EAAD,CAAP,OAAH,CAAT;AALvE;AAAU;AAhTG;AAAb;AAEzB,eAAU;AAFe;AAAa;AAmBD;AAAZ;AAEzB;AACA;AAEA,eAAU;AACV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,WAAM;AACN,yBAAc,CAAC;;;;UAAD;AAGd,eAAU,GAOmB,GAPb,UAAF,GAAU,IAAF,GAAS,OAAF,GAI3B,iBAJgC,GAIZ,OAAF,GAClB,cADuB,GACN,OAAF,GACf,eADoB,GACF,OAAF,GAChB,qBADqB,GACG,OAAF,GACtB,GAD2B;AAG3B,eAAU,MAY4B,GAXtC,0BADiB,GACY,OAAF,GAC3B,iBADgC,GACZ,OAAF,GAClB,yBADuB,GACI,OAAF,GACzB,eAD8B,GACZ,OAAF,GAChB,kBADqB,GACD,OAAF,GAClB,mBADuB,GACF,OAAF,GACnB,uBADwB,GAExB,2BADwB,GACK,OAAF,GAC3B,0BADgC,GACJ,OAAF,GAC1B,gCAD+B,GACG,OAAF,GAChC,qBADqC,GACd,OAAF,GACrB,iCAD0B,GACS,OAAF,GACjC,KADsC;AAGxC,UAAG,EAAG,KAAG,EAAT,EACE,SAAU,MAAY,GAAH,OAAF,GAAO,EAD1B;AAGA,UAAK,UAAK;AACV,UAAG,CAAE,KAAG,EAAR,EACE,SAAU,MAAY,GAAH,OAAF,GAAO,CAD1B;AA1CyB;AAAY;AATL;AAAP;AAGzB,eAAU,WAAoB,GAAN,UAAF,GAAU,uDAAF;AAHL;AAAO;AA8qIG;AAAV;AAGzB;AACA;AAEA;AACA,eAAU,cAAQ;AAClB,eAAS,QAA0B,OAAf,WAAC,YAAD,CAAe,GAAE,CAAF,kBAAnC;AAAI;AAEF,aAAM,MAAM,qBAAoB;AAChC,UAAE,YAAW,YAAC,CAAY,YAAY,CAAC,CAAD,CAAG,SAA3B;AACd,UAAE,YAAW,aAAC,CAAa,YAAY,CAAC,CAAD,CAAG,UAA5B;AACd,UAAE,UAAC,CAAU,YAAY,CAAC,CAAD,CAAG,OAAzB;;AAEL;AAfyB;AAAU;AA33HH;AAEhC;AACA,UAAc,sBAAH,eAAP,MAAO,CAAX;AAEE,wBAAoB,OAAP,OAAU,sBAAH,CAAqB;AACzC,qBAAQ,OAAO,CAAS,OAAP,OAAU,sBAAH,CAAqB,SAA9B;AACf,uBAAmB,OAAP,OAAU,sBAAH,CAAqB;AACxC,qBAAQ,OAAO,CAAS,OAAP,OAAU,sBAAH,CAAqB,SAA9B;AACf,+BAAkB,OAAO,CAAS,OAAP,OAAU,sBAAH,CAAqB,mBAA9B;AACzB,oBAAO,OAAO,CAAS,OAAP,OAAU,sBAAH,CAAqB,QAA9B;AACd,uBAAU,OAAO,CAAS,OAAP,OAAU,sBAAH,CAAqB,WAA9B;AACjB,sBAAS,OAAO,CAAS,OAAP,OAAU,sBAAH,CAAqB,UAA9B;AAChB,qBAAQ,OAAO,CAAS,OAAP,OAAU,sBAAH,CAAqB,SAA9B;AACf,wBAAW,OAAO,CAAS,OAAP,OAAU,sBAAH,CAAqB,YAA9B;AAClB,uBAAU,OAAO,CAAS,OAAP,OAAU,sBAAH,CAAqB,WAA9B;OAZnB;AAHgC;AAyBE;AAElC;AAEA,UAAc,CAAV,YAAU,KAAE,EAAF,CAAM,IAAI,kBAAxB,EACE,WAAa,iBAAb,CADF;AAIA,sBAAY,sBAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,uBAAa,uBAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,gCAAsB,gCAAyB,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,qBAAW,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1B,uBAAa,uBAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,yBAAe,yBAAkB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,sBAAY,sBAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,wBAAc,wBAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,wBAAc,wBAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AAEhC;AAlBuD;AAArB;AA6lGA;AAElC;AACA,6BAAkB,KAAlB;AACS,eAAT,KAAS;AACA,eAAT,KAAS;AACC,eAAV,KAAU;AACS,eAAnB,KAAmB;AACX,eAAR,KAAQ;AACE,eAAV,KAAU;AACD,eAAT,KAAS;AACG,eAAZ,KAAY;AACD,eAAX,KAAW;AACA,eAAX,KAAW;AAOX,gCAAS,IAAT;AACA,wCAAiB,IAAjB;AACA;AAtBkC;AAnmGG;AAErC;AACI,yBAAJ,IAAG;AAHkC;AAooGF;AAEnC;AACI,yBAAJ,IAAG;AACH,UAAG,mBAAa,KAAE,CAAlB;AAEE,YAAG,CAAI,oBAAP,EACE,oBADF;AAEA;AACA;AACA;AACA;OAPF;AAJmC;AAs5DG;AAEtC,6BAAkB,KAAlB;AACA;AAHsC;AAzuCE;AAExC;AACA;AAEA;AACA,UAAS,WAAC,aAAD,CAAgB,IAAG,CAA5B,EACE,MADF;AAGA,eAAS,QAA2B,OAAhB,WAAC,aAAD,CAAgB,GAAE,CAAF,kBAApC;AAAI;AAEQ,WAAD,sBAAC,iEAAW,WAAC,GAAD,CAAM,GAAE,CAApB;AACT,WAAG,CAAO,WAAC,GAAD,CAAM,GAAE,CAAf,UAAqB,aAAa,CAAC,CAAD,CAAG,YAAW,SAAC,EAAjD;AACO,WAAD,sBAAC,iEAAW,WAAC,GAAD,CAAM,GAAE,CAApB;AACT,WAAG,CAAO,WAAC,GAAD,CAAM,GAAE,CAAf,UAAqB,aAAa,CAAC,CAAE,GAAE,CAAL,CAAO,YAAW,SAAC,EAArD;;AAGK,SAAD,sBAAC,iEAAW,WAAC,GAAD,CAAM,GAAE,CAApB;AACT,SAAG,CAAO,WAAC,GAAD,CAAM,GAAE,CAAf,UAAqB,aAAa,CAAO,WAAC,aAAD,CAAgB,GAAE,CAAzB,CAA2B,YAAW,SAAC,EAAzE;AACO,SAAD,sBAAC,iEAAW,WAAC,GAAD,CAAM,GAAE,CAApB;AACT,SAAG,CAAO,WAAC,GAAD,CAAM,GAAE,CAAf,UAAqB,aAAa,CAAC,CAAD,CAAG,YAAW,SAAC,EAAjD;AAEH,sBAAW,CAAC,kBAr+I0E,KAq+I3E;AAEX;AAxBwC;AA4yDF;AAEtC;AACA,mBAAO;AACP;AAJsC;AAmCU;AAEhD;AACA,6BAAiB;AACjB;AAJgD;AAcX;AAErC;AACA,kBAAM;AACN;AAJqC;AAPG;AAExC;AACA,qBAAS;AACT;AAJwC;AAvDT;AAE/B;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAV+B;AAoBS;AAExC;AACA,qBAAS;AACT;AAJwC;AAOD;AAEvC;AACA,oBAAQ;AACR;AAJuC;AAcD;AAEtC;AACA,mBAAO;AACP;AAJsC;AAPG;AAEzC;AACA,sBAAU;AACV;AAJyC;AAp6FS;AAElD;AAEA,UAAG,CAAI,oBAA+B,IAAb,mBAAH,IAAiC,CAAb,mBAAa,GAAE,CAAF,CAAvD,EACE,MADF;AAGA,UAAG,aAAQ,KAAE,oCAAb,EACE,sBAAiB,CAAC,WAAO,GAAE,eAAF,CAA8C,2C3HnwI4D,K2HmwIlH,CADnB;AAPkD;AA64HZ;AAEtC,yBAAY,CAAa,gEAAZ,kDAAY,CAAC,0BAAD,EAAb;AAF0B;AAUA;AAEtC,yBAAY,CAAa,gEAAZ,kDAAY,CAAC,0BAAD,EAAb;AAF0B;AALA;AAEtC,yBAAY,CAAa,gEAAZ,kDAAY,CAAC,0BAAD,EAAb;AAF0B;AAUA;AAEtC,yBAAY,CAAQ,oEAAP,OAAO,YAAmB,oEAAP,OAAO,WAA3B;AAF0B;AAj8BA;AAEtC;AAEA,UAAG,oBAAe,IAAI,eAAtB;AAEE,YAAK,qDAAiB,QAAC,YAAM,CAAC,gFAAY,+EAAb,CAAN;AACvB;AACE,gCAAiB,CAAC,yBAAsC,GAAf,GAAF,GAAS,4DAAD,CAAC,CAAH,GAAa,GAAF,C3H9tO8C,KAA2B,K2H8tOhH;AADnB;AAGE,WAAE,eAAF,CAAE;AAHJ;OAHF;AAJsC;AAxwJA;AAEtC,UAAG,oBAAe,IAAI,eAAtB,EACE,sBAAiB,CAAC,yBAAqB,GAAE,IAAF,CAAmC,0C3Hj9EyD,K2Hi9ElH,CADnB;AAFsC;AA0KO;AAE7C,UAAG,oBAAe,IAAI,eAAtB,EACE,sBAAiB,CAAC,gCAA4B,GAAE,IAAF,CAAmC,iD3H3nFkD,K2H2nFlH,CADnB;AAF6C;AAiIV;AAEnC,UAAG,oBAAe,IAAI,eAAtB,EACE,sBAAiB,CAAC,sBAAkB,GAAE,IAAF,CAAmC,uC3H5vF4D,K2H4vFlH,CADnB;AAFmC;AA88IU;AAE7C;AAEA,UAAG,oBAAe,IAAI,eAAtB;AAEE,YAAK,yDAAqB,QAAC,YAAM,CAAC,gFAAD,CAAN;AAC3B;AACE,gCAAiB,CAAC,gCAA6C,GAAf,GAAF,GAAS,4DAAD,CAAC,CAAH,GAAa,GAAF,C3H/sOuC,KAA2B,K2H+sOhH;AADnB;AAGE,WAAE,eAAF,CAAE;AAHJ;OAHF;AAJ6C;AALA;AAE7C,8BAAmB,CAAiB,oEAAhB,oDAAgB,CAAC,UAAW,UAAZ,EAAjB;AAF0B;AA09BP;AAEtC,UAAG,oBAAe,IAAI,eAAtB,EACE,sBAAiB,CAAC,yBAAoE,GAA7C,GAAF,GAAQ,sCAAY,cAAc,CAAC,UAAD,CAA5B,GAA2C,GAAF,C3H/pQkB,KAA2B,K2H+pQlH,CADnB;AAFsC;AAvgLH;AAAV;AAGzB;AACA;AACA;AAEA,YAAM,EAAN,GAAY;AACZ,YAAM,EAAN,GAAY;AACZ,UAAG,oBAAe,IAAI,eAAtB;AAEE,YAAK,yDAAqB,QAAC,YAAM,CAAC,WAAW,UAAW,WAAW,UAAlC,CAAN;AAC3B,YAAK,0DAAsB,QAAC;AAC5B,SAAC,KAAC,CAAK,CAAL;AACF,SAAC,KAAC,CAAK,CAAL;AACF;AACE,cAAK,0BAAqB,CAAC,0BAAuC,GAAf,GAAF,GAAS,4DAAD,CAAC,CAAH,GAAa,GAA1C;AAC1B,cAAM,CAAF,CAAE,KAAG,EAAH,CAAO,IAAO,CAAF,CAAE,KAAG,MAAH,CAApB;AAEG,wEAAD,EAAU,CAAT;AACD,kBAAM,EAAN,GAAY,CAAC;AACb,kBAAM,EAAN,GAAY,CAAC;WAJf;AAFF;AASE,WAAE,eAAF,CAAE;AACF,WAAE,eAAF,CAAE;AAVJ;OANF;AATyB;AAAU;AALA;AAAV;AAEzB,qBAAU,eAAU,CAAiB,oEAAhB,oDAAgB,CAAC,UAAW,UAAZ,EAAjB,CAApB;AAFyB;AAAU;AAqgBI;AAAd;AAGzB,qBAAU,eAAU,CAAC,gFAAD,CAApB;AAHyB;AAAc;AA1cJ;AAAV;AAEzB;AACA;AACA;AAEA,qBAAU,uDAAV;AACA,UAAG,oBAAe,IAAI,eAAtB;AAEE,YAAK,yDAAqB,QAAC;AAC3B,YAAK,0DAAsB,QAAC;AAC5B,SAAC,KAAC,CAAK,EAAL;AACF,SAAC,KAAC,CAAK,EAAL;AACF;AACE,cAAK,0BAAqB,CAAC,0BAAuC,GAAf,GAAF,GAAS,4DAAD,CAAC,CAAH,GAAa,GAA1C;AAC1B,cAAM,CAAF,CAAE,KAAG,EAAH,CAAO,IAAO,CAAF,CAAE,KAAG,MAAH,CAApB;AAEG,wEAAD,EAAU,CAAT;AACD,kBAAM,SAAN,GAAmB,CAAC;AACpB,kBAAM,UAAN,GAAoB,CAAC;WAJvB;AAFF;AASE,WAAE,eAAF,CAAE;AACF,WAAE,eAAF,CAAE;AAVJ;OANF;AAPyB;AAAU;AANI;AAAd;AAGzB,qBAAU,eAAU,CAAC,GAAI,EAAL,CAApB;AAHyB;AAAc;AAvvCP;AAAP;AAEzB;AAAI;AACJ;AAEA,eAAU;AACV,UAAG,CAAI,eAAP;AAEE,iBAKA;AAMA;OAbF;AAiBA,eAAU;AAvBe;AAAO;AAkvGsB;AAA7B;AAIzB;AAAG;AACH;AACA;AAAa;AAEb,eAAU;AACV,oBAAe,CAAC;AAChB,eAAS,QAAsB,OAAjB,eAAU,SAAC,EAAM,GAAE,CAAF,kBAA/B;AAAI;AAEF,aAAM,yDAAqB,CAAC,iFAAa,eAAU,WAAC,CAAD,CAAG,aAAY,SAAC,EAAxC;AAC3B,kBAAK,eAAU,WAAC,CAAD,CAAG,aAAY,WAAC,EAAD,CAAI,YAAW,SAAC,EAA9C;AACA,aAAM,mDAAe,CAAC,iFAAa,sEAAd;AACrB,YAAyB,CAAP,CAAb,YAAa,IAAG,EAAH,CAAO,IAAiB,CAAb,YAAa,GAAE,CAAF,CAAjB,CAAuB,IAAwB,CAAf,CAAH,EAAG,GAAE,WAAF,CAAe,IAAgB,CAAZ,WAAY,GAAE,CAAF,CAAhB,CAAxE;AAEE,wBAAe;AACf,6BAAkB,CAAlB;AACA,+BAAoB,EAApB;AACA,iCAAkB,CAAlB;AACA,mBAAU;SANZ;;AAfuB;AAA6B;AAirFZ;AAAjB;AAIzB;AAEA,UAAK,yBAAa,QAAC,YAAM,CAAC,EAAD,CAAN;AACnB;AACE,eAAO,YAAC,CAAY,CAAZ;AACR,SAAC,SAAS,CAAC,QAAS,OAAO,QAAC,EAAlB;AACV,uBAAU,oBAAe,CAAC,CAAC,cAAC,GAAY,aAAc,cAAe,aAAc,aAAc,kBAAmB,mBAAoB,4BAA/G,CAAzB;AAHF;AAKE,SAAE,eAAF,CAAE;AALJ;AAPyB;AAAiB;AAgBA;AAAjB;AAIzB;AAEA,UAAK,yBAAa,QAAC,YAAM,CAAC,EAAD,CAAN;AACnB;AACE,eAAO,YAAC,CAAY,CAAZ;AACR,SAAC,SAAS,CAAC,QAAS,OAAO,QAAC,EAAlB;AACV,uBAAU,sBAAe,CAAC,CAAC,cAAC,GAAY,aAAc,cAAe,aAAc,+BAAkB,kBAAmB,mBAAoB,4BAAnH,CAAzB;AAHF;AAKE,SAAE,eAAF,CAAE;AALJ;AAPyB;AAAiB;AAmCA;AAAjB;AAMzB;AAEA,UAAK,yBAAa,QAAC,YAAM,CAAC,GAAI,UzJz8O6D,IyJy8OlE,CAAN;AACnB;AACE,eAAO,YAAC,CAAY,CAAZ;AACR,SAAC,SAAS,CAAC,QAAS,OAAO,QAAC,EAAlB;AACV,uBAAU,oBAAe,CAAC,CAAC,cAAC,GAAY,aAAc,cAAe,aAAc,aAAc,kBAAmB,mBAAoB,4BAA/G,CAAzB;AAHF;AAKE,SAAE,eAAF,CAAE;AALJ;AATyB;AAAiB;AAlBA;AAAjB;AAMzB;AAEA,UAAK,yBAAa,QAAC,YAAM,CAAC,GAAI,UzJv7O6D,IyJu7OlE,CAAN;AACnB;AACE,eAAO,YAAC,CAAY,CAAZ;AACR,SAAC,SAAS,CAAC,QAAS,OAAO,QAAC,EAAlB;AACV,uBAAU,sBAAe,CAAC,CAAC,cAAC,GAAY,aAAc,cAAe,aAAc,+BAAkB,kBAAmB,mBAAoB,4BAAnH,CAAzB;AAHF;AAKE,SAAE,eAAF,CAAE;AALJ;AATyB;AAAiB;AAqCF;AAAf;AAIzB,qBAAU,oBAAe,CAAC,MAAO,aAAc,cAAe,aAAc,aAAc,kBAAmB,mBAAoB,4BAAxG,CAAzB;AAJyB;AAAe;AAOA;AAAf;AAIzB,qBAAU,sBAAe,CAAC,MAAO,aAAc,cAAe,aAAc,+BAAkB,kBAAmB,mBAAoB,4BAA5G,CAAzB;AAJyB;AAAe;AAp5FC;AAGzC,4BAAe,CAAC,2BAAc,QAAyB,sBAAS,WAAC,GAAiB,4HA7rH+G,IA6rHlL;AAH0B;AAMA;AAIzC,4BAAe,CAAC,2BAAc,QAAyB,sBAAS,WAAC,GAAiB,6EAAW,wBAA9E;AAJ0B;AAQA;AAIzC,4BAAe,CAAC,2BAAc,QAAS,UAAW,4HA5sH+I,IA4sHlL;AAJ0B;AAOA;AAKzC;AAEA,WAAM,yBAAa,QAAC,YAAM,CAAC,oBAAa,CAAC,2BAAc,6EAAW,wBAA1B,EAAuC,UzJnmJY,IyJmmJjE,CAAN;AACpB;AACE,eAAO,SAAS,CAAC,GAAI,EAAE,QAAC,EAAR;AADlB;AAGE,UAAG,eAAH,EAAG;AAHL;AARyC;AA3DF;AAGvC,0BAAa,CAAC,2BAAc,UAAW,4HAnpHmI,IAmpH7J;AAH0B;AAMA;AAIvC,0BAAa,CAAC,2BAAc,UAA2B,sBAAS,WAAC,GAAiB,6EAAW,wBAAhF;AAJ0B;AAQA;AAIvC,0BAAa,CAAC,2BAAc,UAAW,UAAW,4HA9pH8I,IA8pHnL;AAJ0B;AAOA;AAKvC;AAEA,WAAM,uBAAW,QAAC;AAClB;AACE,UAAE,WAAC,CAAQ,oBAAa,CAAC,2BAAc,6EAAW,wBAA1B,CAArB;AACH,UAAE,WAAW,CAAC,SAAD;AAFf;AAIE,UAAG,eAAH,EAAG;AAJL;AARuC;AAsDD;AAAb;AAGzB,eAAU,6CAAS,CAAC,2BAAc,4H7B5nKN,KAAkC,KAA8B,GAAiD,I6B4nK1H;AAHM;AAAa;AAMA;AAAb;AAIzB,eAAU,6CAAS,CAAC,2BAAc,6EAAW,KAAM,KAAM,GAAI,wBAA1C;AAJM;AAAa;AA06FQ;AAArB;AAGzB,qBAAU,4BAAqB,CAAC,QAAyB,sBAAS,WAAC,GAAiB,aAAc,aAAnE,CAA/B;AAHyB;AAAqB;AAjBA;AAArB;AAIzB;AAEA,UAAK,yBAAa,QAAC,YAAM,CAAC,GAAI,UzJjhP6D,IyJihPlE,CAAN;AACnB;AACE,eAAO,YAAC,CAAY,CAAZ;AACR,SAAC,SAAS,CAAC,QAAS,OAAO,QAAC,EAAlB;AACV,uBAAU,wBAAmB,CAAC,CAAC,cAAC,GAAY,aAAc,aAA7B,CAA7B;AAHF;AAKE,SAAE,eAAF,CAAE;AALJ;AAPyB;AAAqB;AAuBF;AAAnB;AAGzB,qBAAU,wBAAmB,CAAC,MAAO,aAAc,aAAtB,CAA7B;AAHyB;AAAmB;AAxiEV;AAAT;AAEzB,eAAU,gBAAS,CAAC,WAAW,UAAW,WAAW,WAAY,OAAQ,QAAtD;AAFM;AAAS;AAXA;AAAT;AAEzB;AACA,eAAU,aAAO;AACjB,YAAM,SAAC,CAAS,MAAT;AACP,YAAM,YAAW,aAAC,CAAa,UAAb;AAClB,YAAM,YAAW,YAAC,CAAY,SAAZ;AAClB,YAAM,WAAC,CAAW,QAAX;AACP;AARyB;AAAS;AArTE;AAAX;AAEzB;AACA;AAEA,eAAU;AACV,UAAS,WAAC,YAAD,CAAe,KAAE,CAA1B,EACE,aADF;AAGA;AACA,eAAU,eAAS;AACnB,eAAS,QAA0B,OAAf,WAAC,YAAD,CAAe,GAAE,CAAF,kBAAnC;AAAI;AAEF,aAAM,MAAM,aAAY;AACxB,UAAE,YAAW,aAAC,CAAa,YAAY,CAAC,CAAD,CAAG,UAA5B;AACd,UAAE,YAAW,YAAC,CAAY,YAAY,CAAC,CAAD,CAAG,SAA3B;;AAGhB,UAAG,MAAH;AAEE,aAAM,MAAM,aAAY;AACxB,UAAE,OAAO,CAAC,MAAM,aAAY,WAAC,CAAD,CAAnB;OAHX;AAKA;AAvByB;AAAW;AA0BD;AAAV;AAEzB;AACA;AAEA,eAAU;AACV,UAAS,WAAC,YAAD,CAAe,KAAE,CAA1B,EACE,aADF;AAGA;AACA,eAAU,cAAQ;AAClB,eAAS,QAA0B,OAAf,WAAC,YAAD,CAAe,GAAE,CAAF,kBAAnC;AAAI;AAEF,aAAM,MAAM,aAAY;AACxB,UAAE,YAAW,aAAC,CAAa,YAAY,CAAC,CAAD,CAAG,UAA5B;AACd,UAAE,YAAW,YAAC,CAAY,YAAY,CAAC,CAAD,CAAG,SAA3B;;AAGhB,UAAG,MAAH;AAEE,aAAM,MAAM,aAAY;AACxB,UAAE,OAAO,CAAC,MAAM,aAAY,WAAC,CAAD,CAAnB;OAHX;AAKA;AAvByB;AAAU;AA0BD;AAAT;AAEzB;AACA,eAAU,aAAO;AACjB,YAAM,QAAO,SAAC,CAAS,OAAT;AACd,YAAM,UAAC,CAAU,OAAV;AACP;AANyB;AAAS;AAqIG;AAAZ;AAEzB;AACA,eAAU,gBAAU;AACpB,YAAM,QAAO,SAAC,CAAS,OAAT;AACd;AALyB;AAAY;AA5HH;AAAT;AAEzB;AAEA,UAAK,qBAAgB,QAAC;AACtB;AACE,iBAAU,CAAC,MAAC;AACZ,SAAC,MAAD,GAAU;AACV,SAAC,SAAD,GAAa;AACb,SAAC,SAAD,GAAa;AACb,SAAC,YAAW,SAAC,CAAS,WAAT;AACb,SAAC,QAAD,GAAY;AACZ,8BAAiB,CAAC,sBAAiC,GAAb,GAAF,GAAS,4DAAD,CAAC,CAAH,GAAW,GAAF,C3HtuKqD,KAA2B,K2HsuKlH;AAPnB;AASE,SAAE,eAAF,CAAE;AATJ;AALyB;AAAS;AAkBA;AAAT;AAEzB,eAAU,cAAS,CAAiB,oEAAhB,oDAAgB,CAAC,UAAW,UAAZ,GAAyB,MAAO,SAAU,SAAU,OAArE;AAFM;AAAS;AA6IU;AAAnB;AAGzB;AACA,eAAU,uBAAiB;AAC3B,UAAY,KAAD,QAAX,EACE,MAAM,MAAK,OAAO,CAAC,KAAD,CADpB;AAEA,UAAY,MAAD,QAAX,EACE,MAAM,OAAM,OAAO,CAAC,MAAD,CADrB;AAEA,UAAY,OAAD,QAAX,EACE,MAAM,QAAO,OAAO,CAAC,OAAD,CADtB;AAEA,YAAM,YAAC,CAAY,SAAZ;AACP,UAAG,cAAe,KAAG,EAArB,EACE,MAAM,iBAAC,CAAiB,cAAjB,CADT;AAEA;AAdyB;AAAmB;AAiBR;AAAX;AAGzB;AACA,eAAU,eAAS;AACnB,YAAM,OAAC,CAAO,IAAP;AACP,YAAM,QAAC,CAAQ,KAAR;AACP,YAAM,OAAC,CAAO,IAAP;AACP;AARyB;AAAW;AAkEH;AAAR;AAGzB,eAAU,eAAQ,CAAC,WAAW,UAAW,WAAW,WAAY,MAAO,WAAY,gBAAjE;AAHO;AAAQ;AANA;AAAR;AAGzB,eAAU,eAAQ,CAAC,OAAO,UAAU,UAAW,OAAO,UAAU,WAAY,OAAO,UAAU,UAAW,OAAO,UAAU,WAAY,MAAO,WAAY,gBAAtI;AAHO;AAAQ;AAjBA;AAAR;AAIzB;AACA,eAAU,YAAM;AAChB,YAAM,QAAC,CAAQ,KAAR;AACP,YAAM,QAAO,WAAU,aAAC,CAAa,mBAAb;AACxB,YAAM,QAAO,WAAU,YAAC,CAAY,kBAAZ;AACxB,YAAM,QAAO,WAAU,aAAC,CAAa,mBAAb;AACxB,YAAM,QAAO,WAAU,YAAC,CAAY,kBAAZ;AACxB,YAAM,mBAAC,CAAmB,gBAAnB;AACP,YAAM,MAAK,SAAC,CAAS,UAAT;AACZ,YAAM,YAAC,CAAY,qCAAZ;AACP;AAdyB;AAAQ;AAdA;AAAR;AAGzB;AACA,eAAU,YAAM;AAChB,YAAM,QAAC,CAAQ,KAAR;AACP,YAAM,YAAW,aAAC,CAAa,UAAb;AAClB,YAAM,YAAW,YAAC,CAAY,SAAZ;AAClB,YAAM,mBAAC,CAAmB,gBAAnB;AACP,YAAM,MAAK,SAAC,CAAS,UAAT;AACZ,YAAM,YAAC,CAAY,yCAAZ;AACP;AAXyB;AAAQ;AAtFG;AAEpC,4BAAiB,CAAC,uBAAuC,GAAlB,WAAF,GAAgB,GAAF,GAAQ,KAAF,C3Hn1KiD,KAA2B,K2Hm1KpH;AAFmB;AALI;AAExC,4BAAiB,CAAC,sBAA6C,4C3H90KsE,K2H80KpH;AAFuB;AA83CU;;AAE5B;AAAb;AAEP;AAEA,iBAAU;AACV,iBAAS,QAAqB,OAAhB,gBAAS,SAAC,EAAM,GAAE,CAAF,kBAA9B;AAAI;AAEF,cAAiC,gBAAS,WAAC,CAAD,CAAG,aAAc,KAAE,QAA7D;AAEE,qBAAU,gBAAS,WAAC,CAAD;AACnB;WAHF;;AAPK;AAAa;AAeC;AAAd;AAEP;AAEA,iBAAU;AACV,iBAAS,QAAmB,OAAd,cAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AAEF,cAA2D,CAAxB,cAAO,WAAC,CAAD,CAAG,aAAc,KAAE,QAAF,CACzD,IAA2B,CAAtB,cAAO,WAAC,CAAD,CAAG,YAAY,KAAG,6BAAH,CAD7B;AAGE,qBAAU,cAAO,WAAC,CAAD;AACjB;WAJF;;AAPK;AAAc;AAgBA;AAAd;AAEP;AAEA,iBAAU;AACV,iBAAS,QAAmB,OAAd,cAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AAEF,cAAG,cAAO,WAAC,CAAD,CAAG,YAAY,KAAE,+BAA3B;AAEE,qBAAU,cAAO,WAAC,CAAD;AACjB;WAHF;;AAPK;AAAc;AAeF;AAAZ;AAEP;AAEA,iBAAU;AACV,iBAAS,QAAmB,OAAd,cAAO,SAAC,EAAM,GAAE,CAAF,kBAA5B;AAAI;AAEF,cAAG,cAAO,WAAC,CAAD,CAAG,YAAY,KAAE,6BAA3B;AAEE,qBAAU,cAAO,WAAC,CAAD;AACjB;WAHF;;AAPK;AAAY;AAeC;AAEpB,YAAG,MAAO,KAAE,CAAZ;AAEE,iBAAO,WAAC,CAAW,qCAAX;AACR,iBAAO,YAAP,GAAsB;AACtB,iBAAO,aAAP,GAAuB;AACvB,iBAAO,aAAP,GAAuB,MAAM,UAAS,WAAC,MAAD;SAEnC,UAAG,MAAO,KAAE,MAAM,UAAS,SAAC,EAA5B;AAEH,iBAAO,WAAC,CAAW,mCAAX;AACR,iBAAO,YAAP,GAAsB;AACtB,iBAAO,aAAP,GAAuB;AACvB,iBAAO,aAAP,GAAuB,MAAM,UAAS,WAAC,MAAO,GAAE,CAAV;;AAItC,iBAAO,WAAC,CAAW,wCAAX;AACR,iBAAO,YAAP,GAAsB;AACtB,iBAAO,aAAP,GAAuB;AACvB,iBAAO,aAAP,GAAuB,MAAM,UAAS,WAAC,MAAD;;AArBpB;AA0BtB;AACA;AACA;AACA;AACA;AACA;AAAG;AACH;AAEA;AAEA,YAAM,YAAN,GAAqB;AACrB,WAAM,MAAM,aAAC;AAEb,eAAS,QAA2B,OAAtB,MAAM,UAAS,SAAC,EAAM,GAAE,CAAF,kBAApC;AAAI;AAEF,YAAK,aAAa,CAAC,MAAM,UAAS,WAAC,CAAD,CAAhB;AAClB,aAAM,MAAM,UAAS,WAAC,CAAD,CAAG,YAAC;AAEzB,YAAY,CAAD,QAAX;AAEE,sBAAa;AACb,cAAI,CAAC,aAAY,SAAC,EAAM,KAAS,WAAC,EAAD,CAAjC;AACE,wBAAa;AAEb,yBAAS,SAAgB,QAAL,WAAC,EAAD,CAAK,GAAE,CAAF,qBAAzB;AAAI;AAEF,gBAA+B,CAA1B,CAAC,aAAY,WAAC,CAAD,CAAG,YAAC,EAAS,KAAG,EAAE,CAAC,CAAD,CAAG,SAAR,CAC7B,IAA+B,CAA3B,CAAC,aAAY,WAAC,CAAD,CAAG,aAAC,EAAU,KAAG,EAAE,CAAC,CAAD,CAAG,UAAR,CADjC;AAGE,0BAAa;AACb;aAJF;;AAQJ,cAAG,SAAH;AAEE,aAAC,aAAY;AACb,qBAAS,SAAgB,QAAL,WAAC,EAAD,CAAK,GAAE,CAAF,qBAAzB;AAAI;AAEF,mBAAM,CAAC,aAAY;AACnB,gBAAE,YAAC,CAAY,EAAE,CAAC,CAAD,CAAG,SAAjB;AACH,gBAAE,aAAC,CAAa,EAAE,CAAC,CAAD,CAAG,UAAlB;;AAEL,aAAC,UAAD,GAAc;AACd,iDAAgC,CAAC,EAAG,MAAM,UAAS,WAAC,CAAD,CAAnB;WAVlC;;AAeA,cAAK,gBAAW,CAAC,iBAr8LiE,KAq8LlE;AAChB,WAAC,YAAD,GAAgB;AAChB,WAAC,eAAC,CAAe,qBAAe,SAAQ,UAAS,aAA/C;AACF,WAAC,eAAC,CAAe,qBAAe,SAAQ,UAAS,aAA/C;AACF,6CAA8B,CAAC,EAAG,MAAM,UAAS,WAAC,CAAD,CAAnB;;AAEhC,SAAC,aAAD,GAAiB,MAAM,UAAS,WAAC,CAAD;AAEhC,YAAG,CAAE,KAAE,CAAP;AACE,cAAK;AAEL,kBAAK,cAAc,CAAC,MAAM,UAAS,WAAC,CAAD,CAAhB;AAErB,YAAY,CAAD,QAAX;AAEE,cAAgB,CAAX,CAAC,YAAC,EAAS,KAAG,EAAE,CAAC,CAAD,CAAG,SAAR,CAAmB,IAAgB,CAAZ,CAAC,aAAC,EAAU,KAAG,EAAE,CAAC,CAAD,CAAG,UAAR,CAAnD;AAEE,aAAC,YAAC,CAAY,EAAE,CAAC,CAAD,CAAG,SAAjB;AACF,aAAC,aAAC,CAAa,EAAE,CAAC,CAAD,CAAG,UAAlB;AACF,aAAC,UAAD,GAAc;AACd,wBAAY,CAAC,EAAG,OAAQ,CAAZ;AACZ,iDAAgC,CAAC,EAAG,MAAM,UAAS,WAAC,CAAD,CAAnB;WANlC;;AAWA,cAAK,cAAS,CAAmC,oEAAlC,MAAM,UAAS,WAAC,CAAD,CAAG,iBAAgB,SAAC,EAAD,EAj+LwB,GAAuB,EAi+LlF;AACd,sBAAY,CAAC,EAAG,OAAQ,CAAZ;AACZ,6CAA8B,CAAC,EAAG,MAAM,UAAS,WAAC,CAAD,CAAnB;;;AAIlC,UAAG,MAAM,UAAS,SAAC,EAAM,GAAE,CAA3B;AAGE,YAAK;AACL,YAAW,WAAC,EAAD,CAAK,GAAE,CAAF;AAEhB,YAAY,CAAD,QAAX;AAEE,cAAgB,CAAX,CAAC,YAAC,EAAS,KAAG,EAAE,CAAC,CAAD,CAAG,SAAR,CAAmB,IAAgB,CAAZ,CAAC,aAAC,EAAU,KAAG,EAAE,CAAC,CAAD,CAAG,UAAR,CAAnD;AAEE,aAAC,YAAC,CAAY,EAAE,CAAC,CAAD,CAAG,SAAjB;AACF,aAAC,aAAC,CAAa,EAAE,CAAC,CAAD,CAAG,UAAlB;AACF,aAAC,UAAD,GAAc;AACd,wBAAY,CAAC,EAAG,OAAQ,MAAM,UAAS,SAAC,EAA5B;AACZ,iDAAgC,CAAC,EAAG,MAAM,UAAS,WAAC,MAAM,UAAS,SAAC,EAAM,GAAE,CAAzB,CAAnB;WANlC;;AAWA,cAAK,cAAS,CAAyD,oEAAxD,MAAM,UAAS,WAAC,MAAM,UAAS,SAAC,EAAM,GAAE,CAAzB,CAA2B,eAAc,SAAC,EAAD,EA1/LE,GAAuB,EA0/LlF;AACd,sBAAY,CAAC,EAAG,OAAQ,MAAM,UAAS,SAAC,EAA5B;AACZ,6CAA8B,CAAC,EAAG,MAAM,UAAS,WAAC,MAAM,UAAS,SAAC,EAAM,GAAE,CAAzB,CAAnB;;OArBlC;AAyBA;AAnMkD;AAsMC;AAEnD;AAEA,UAAG,2BAAH;AAEE;AACA,iBAAS,QAAkC,OAA7B,qBAAe,QAAO,SAAC,EAAM,GAAE,CAAF,kBAA3C;AAAI;AACF,uCAAwB,CAAC,qBAAe,QAAO,WAAC,CAAD,CAAvB;;AAC1B;OALF;AAJmD;AAaC;AAEpD;AACA;AACA;AAEA,UAAG,2BAAH;AAEE;AACA,iBAAyB,KAAhB,eAAS,SAAC,EAAM,GAAE,CAAF,EAAW,aAApC;AAAI;AAEF,cAAK,eAAS,WAAC,CAAD;AACd,cAAG,CAAC,YAAY,KAAE,2BAAlB,EACE,CAAE,eAAF,CAAE,CADJ;;AAIF,iBAAuB,MAAd,aAAO,SAAC,EAAM,GAAE,CAAF,EAAW,eAAlC;AAAI;AAEF,cAAK,aAAO,WAAC,CAAD;AACZ,cAAiB,CAAb,CAAC,YAAY,KAAE,0BAAF,CAEf,IADiB,CAAb,CAAC,YAAY,KAAE,+BAAF,CAAjB,IACiB,CAAb,CAAC,YAAY,KAAE,6BAAF,CAFnB,EAGE,CAAE,eAAF,CAAE,CAHJ;;AAKF;OAlBF;AANoD;AA1SG;AAGvD;AAEA,UAAG,CAAI,2BAAP,EACE,MADF;AAGA,UAAG,CAAY,CAAC,SAAD,SAAf,EACE,MADF;AAGA,UAAW,CAAC,SAAS,aAAV,SAAwB,IAAuC,iEAAH,eAAvB,SAAS,aAAc,CAAvE;AAEE,kBAA2C,OAAvB,SAAS,cAAiB,iEAAH;AAC3C,YAAY,OAAD,QAAX;AAEE,+BAAe,mBAAmB,CAAC,QF36N2F,IE26N5F;AAClC,cAAG,YAAH;AAEE;AACA;WAHF;SAHF;OAHF;AAXuD;AAtCF;AAGrD;AAAS;AACT;AAEA,UAAG,CAAI,2BAAP,EACE,MADF;AAGA,UAAG,CAAY,CAAC,OAAD,SAAf,EACE,MADF;AAGA,UAAW,CAAC,OAAO,aAAR,SAAsB,IAAqC,iEAAH,eAArB,OAAO,aAAc,CAAnE;AAEE,kBAAyC,OAArB,OAAO,cAAiB,iEAAH;AACzC,YAAY,OAAD,QAAX;AAEE,cAAuB,CAAnB,OAAO,YAAY,KAAG,0BAAH,CAA0B,IAAwB,CAAnB,OAAO,YAAY,KAAG,EAAH,CAAzE;AACE,iCAAe,mBAAmB,CAAC,QFv4NyF,IEu4N1F;;AAGlC,iBAAM,OAAO,mBAAC;AACd,gBAAY,EAAD,QAAX;AAEE,yBAAM,OAAO,eAAc,SAAC,EAA5B;AACA,qBAAQ,eAAR,OAAQ;AACR,mCAAe,qBAAmB,CAAC,GAAsB,oEAAlB,EAAE,iBAAgB,SAAC,EAAD,EAAQ,wEFt5NqH,KAAmB,GAA4B,IEs5NnM;aAJpC;;AAOF,cAAG,YAAH;AAEE;AACA;WAHF;SAdF;OAHF;AAZqD;AA0EU;AAG/D,UAAY,qCAAD,QAAX;AAEE,0CAA6B,CAAC,sCAAiC,YAAlC;AAC7B,gDAAmC;OAHrC;AAH+D;AAVF;AAG7D,UAAY,mCAAD,QAAX;AAEE,wCAA2B,CAAC,oCAA+B,YAAhC;AAC3B,8CAAiC;OAHnC;AAH6D;AAtvM5C;;;;;;;;AAiYG,+BAAO,UzJ9nCjB,+ByJ8nCiB,CAAP;AAjYH;AAihBgB;;;AAE/B;AAF+B;;;;;AAotIyB;AAAjB;AACtC;AADuD;AAE1D,qCAAU,oBAAV;AADG;AADuD;AACvD;AADuD;AAAjB;AAAiB;AAKC;AAG3D,0CAAmB,KAAnB;AAH2D;AAXT;AAElD,0CAAmB,IAAnB;AACA;AAHkD;AA9sIjB;;;AAYlB;AAkhIe;AAAP;AACpB;AAD2B;AAE9B,qCAA2B,cAAW,QAAK,CAAC,KAAD,CAAhB,CAA3B;AADG;AAD2B;AAC3B;AAD2B;AAAP;AAAO;AAKC;AAErB,cAAK,CAAC,MAAU,KAAX;AAFgB;AAvhIhB;AAYU;;;AAEvB;AAFuB;;;;;AA62HkB;AAAV;AAC9B;AADwC;AAE3C,qCAAU,oBAAV;AACA,kBAAK,IAAI,CAAC,MAAD;AAFN;AADwC;AACxC;AADwC;AAAV;AAAU;AAYE;AAE7C,gBAAK,OAAO,CAAC,KAAD;AAFiC;AAlBH;AAEhC;AACV,mBAAS,oBAAe,QAAC;AAHkB;AAAD;AAYA;AAE1C,6BAAU,CAAC;;;;UAAD;AACA;AAHgC;AAn3HjB;;;AAqBd;AAkxM+B;AAE1C,+BAAa,CAAC,gBAAD;AACb,+BAAa,CAAC,sBAAD;AACb,+BAAa,CAAC,2BAAD;AACb,+BAAa,CAAC,wBAAD;AACb,+BAAa,CAAC,uBAAD;AAN6B;AAkmCd;AAElB;AAFkB;AAKA;AAEV,kFAAC,IAAD;AAFU;AA3ES;AAGV,yFAAC,QAAS,eAAgB,UAA1B;AAHU;AAMG;AAArB;AAEnB,eAAyC,uFAAC,OAAD;AAFtB;AAAqB;AAiDZ;AAEV,gFAAC,KAAD;AAFU;AALA;AAEV,gFAAC,KAAD;AAFU;AAVE;AAEpB;AAFoB;AA7CE;AAEtB;AAFsB;AAwCH;AAEnB;AAFmB;AALH;AAEhB;AAFgB;AAkDA;AAEhB;AAFgB;AAeK;AAErB;AAFqB;AA7HF;AAEV,iFAAC,YAAa,aAAd;AAFU;AAmHG;AAEV,oFAAC,WAAD;AAFU;AApGK;AAEV,yFAAC,cAAD;AAFU;AA0BS;AAA3B;AAEnB,eAA+C,6FAAC,WAAD;AAF5B;AAA2B;AAsDV;AAAjB;AAEnB,eAAoB;AAFD;AAAiB;AALJ;AAAb;AAEnB,eAAoB;AAFD;AAAa;AAfD;AAAZ;AAEnB,eAAoB;AAFD;AAAY;AAtEH;AAAT;AAEnB,eAAoB;AAFD;AAAS;AAKG;AAAZ;AAEnB,eAAoB;AAFD;AAAY;AAUD;AAEpB;AAFoB;AAoGM;AAE1B;AAF0B;AAx4OzB;;;;;;;;AA4C8B,sDA/5BG,2DA+5BH;AACf,uCFtvCJ,oEEsvCI;AACI,2C3HlwCU,iF2HkwCV;AACL,sCAp6BG,2CAo6BH;AACO,6CAt6BG,kDAs6BH;AACP,sCAz6BG,2CAy6BH;AACY,kDAz6BG,uDAy6BH;AACT,yCA96BG,8CA86BH;AACD,wCA96BG,6CA86BH;AACI,4CAz6BG,iDAy6BH;AACF,0CA/6BG,+CA+6BH;AACI,8CAn7BG,mDAm7BH;AACC,+CAr7BG,oDAq7BH;AACV,qCA/3BJ,mCA+3BI;AACG,wCAh4BP,mCAg4BO;AACF,sCAj4BL,mCAi4BK;AACF,oCAl4BH,mCAk4BG;AAGF,kCAr4BD,mCAq4BC;AACG,qCAt4BJ,mCAs4BI;AACD,oCAv4BH,mCAu4BG;AACE,sCAx4BL,mCAw4BK;AACA,sCAz4BL,mCAy4BK;AACC,uCA14BN,mCA04BM;AACA,uCA34BN,mCA24BM;AACF,qCA54BJ,mCA44BI;AACK,0CA74BT,mCA64BS;AACF,wCA94BP,mCA84BO;AACD,uCA/4BN,mCA+4BM;AACE,yCAh5BR,mCAg5BQ;AACC,0CAj5BT,mCAi5BS;AACA,0CAl5BT,mCAk5BS;AACA,0CAn5BT,mCAm5BS;AACG,6CAp5BZ,mCAo5BY;AACD,4CAr5BX,mCAq5BW;AACE,8CAt5Bb,mCAs5Ba;AACC,+CAv5Bd,mCAu5Bc;AACA,+CAx5Bd,mCAw5Bc;AACV,qCAz5BJ,mCAy5BI;AACG,wCrJnwDf,6CqJmwDe;AACK,6CA15BG,kDA05BH;AACV,mCA15BG,wCA05BH;AACG,sCA15BG,2CA05BH;AACE,wC7BrzDH,sE6BqzDG;AACE,0C7BrzDH,wE6BqzDG;AACC,2C7BrzDH,yE6BqzDG;AACE,6CAl6BH,4CAk6BG;AACS,sDA95BF,sDA85BE;AACE,wDA/5BJ,sDA+5BI;AACF,sDA/5BF,sDA+5BE;AACE,wDAh6BJ,sDAg6BI;AACK,6DAh6BH,4DAg6BG;AACD,4DrJhxDnC,6CqJgxDmC;AACD,2DAj6BH,0DAi6BG;AACD,0DrJlxDjC,6CqJkxDiC;AAC3B,+B3H/sCS,oE2H+sCT;AAED;AACG,iCA7sCA,mCA6sCA;AACD,gCA/pCA,kCA+pCA;AACD,+BAnmCA,iCAmmCA;AACG,kCAroCA,oCAqoCA;AACH,+BA/2CA,iCA+2CA;AACU,yCAhsBA,2CAgsBA;AACX,8BApyBA,gCAoyBA;AACG,iCAljCA,mCAkjCA;AACF,+BA5hCA,iCA4hCA;AACA,+BAlrDA,iCAkrDA;AACA;AACQ;AACE;AAnHjB;AAsHuB;;;AAEhC;AACA;AAHgC;;;;;AA2zHiB;AAGnD,mBAAS;AACT,qCAAc,UAAd;AAHwB;AAD2B;AA3zHjB;AAWH;AAs2He;AAAP;AAEvC,eAAuD,YAAK,CAAC,KAAD;AAFrB;AAAO;AAKC;AAErC,kBAAK,CAAC,MAAU,KAAX;AAFgC;AAnCA;AAAR;AAEvC;AACG;AAH4C;AAI/C,qCAAU,IAAV;AACA,iBAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,cAAG,cAAK,CAAC,CAAD,CAAG,MAAM,KAAE,KAAnB;AAEE,yCAAU,cAAK,CAAC,CAAD,CAAG,WAAlB;AACA;WAHF;;AAJC;AAH4C;AAG5C;AAH4C;AAAR;AAAQ;AAfG;AAAX;AAEvC;AAEA,eAAU;AACV,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AAEF,YAAG,cAAK,CAAC,CAAD,CAAG,MAAM,KAAE,KAAnB;AAEE,mBAAU;AACV;SAHF;;AAPqC;AAAW;AA8BE;AAEpD;AAEA,eAAe,KAAN,eAAM,GAAE,CAAF,EAAW,aAA1B;AAAI;AAEF,YAAG,cAAK,CAAC,CAAD,CAAG,MAAM,KAAE,KAAnB;AAEE,uBAAM,CAAC,cAAK,CAAC,CAAD,CAAN;AACN;SAHF;;AANkD;AAv1HrB;AAkBJ;AAGf;AACA;AAJe;;AAEzB;AAFyB;;;;;AAgvH6B;AAExD,6BAAU,CAAC;;;;UAAD;AACV,0DAAoB;AAHoC;AAbZ;AAE5C;AACA,2BAAiB,oCAA+B,QAAC;AAHJ;AAAD;AAMA;AAE5C,6BAAU,CAAC;;;;UAAD;AACV;AAH4C;AAjBU;AAEtD;AAFsD;AAItD,YAAG,CAAI,kBAAa,YAAY,CAAC,yBAAY,CAAC,YAAD,CAAb,CAAhC;AAEE,cAAG,uBAAQ,CAAC,SAAU,aAAc;;;;cAAzB,CAAX,EACE,kBAAa,MAAI,CAAC,uCAAkC,QAAC,YAAM,CAAC,yBAAY,CAAC,YAAD,EAAgB,QAA7B,CAAN,CAApC,CADnB;SAFF;AAJsD;AAEtD;AAFsD;;AA8CG;AAEzD,wBAAa,aAAa,CAAC,yBAAY,CAAC,YAAD,CAAb;AAF+B;AARJ;AAAlB;AAEnC;AACG;AAHkD;AAIrD,2BAAK,kBAAa,SAAW,CAAC,yBAAY,CAAC,YAAD,CAAb,EAA7B;AACA,+BAAQ,CAAC,EAAG,aAAc;;;;YAAlB;AAFL;AAHkD;AAErD;AACG;AAHkD;AAAlB;AAAkB;AAyBK;AAAvB;AAEnC,eAAU,kBAAa,YAAY,CAAC,yBAAY,CAAC,YAAD,CAAb;AAFA;AAAuB;AAZA;AAAvB;AAEhC;AAFuD;AAG1D,YAAG,kBAAa,YAAY,CAAC,yBAAY,CAAC,YAAD,CAAb,CAA5B;AACE,mBAAU,uBAAQ,CAAyB,UAAxB,kBAAa,SAAW,CAAC,yBAAY,CAAC,YAAD,CAAb,GAA8B,aAAc,QAArE;;AAGlB,uBAAY,IAAZ;AACA,mBAAU;;AAR8C;AAEvD;AAFuD;AAAvB;AAAuB;AApBV;AAAP;AAEzC,UAAa,CAAT,aAAS,KAAE,IAAF,CAAO,IAAI,CAAI,qBAA5B,EACE,4CAAY,gCAA2B,QAAC,YAD1C;AAEA,eAAU;AAJ+B;AAAO;AAvvHrB;AA9/D7B,mBAihEc;AAyBG,4BAAG;AACF,6BAAG;AACR,wBAAG;AACW,sCAAG;AAChB,yBAAG;AAGe;;;;;;AAqlMN;AAAjB;AAKP,eAAU,KAAK;AALR;AAAiB;AASA;AAAjB;AAIT;AACA;AACA;AACA;AACA;AARS;AAAiB;AAeT;AAAR;AAGP,eAA0B,oEAAhB,KAAK,YAAqB,SAAV;AAHnB;AAAQ;AASG;AAAX;AAEP;AACA;AAGA,eAAU;AACV,eAAS,QAA6B,OAAxB,KAAK,WAAW,OAAQ,GAAE,CAAF,kBAAtC;AAAI;AAEF,gBAAS,KAAK,WAAW,MAAC,CAAD;AACzB,YAAG,KAAK,SAAU,KAAE,SAApB,EACE,SAAU,KADZ;;AAVK;AAAW;AAkBC;AAAZ;AAEP,eAAU;AACV,UAAG,CAAY,CAAC,KAAD,SAAf,EACE,aADF;AAGA,eAAU,KAAK,WAAW;AANnB;AAAY;AAxqMP;AAg0Rd;AAE6B,qDAA3B,GAAgD;AAChD;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAXF;AAj1VA,GAihEc,8UAjhEd;ASAA,sCAWS,0LAXT;;;;AA+BS,iBAAG;AACH,iBAAG;AACH,iBAAG;AACH,iBAAG;AAkZa;AAxLC;AApLF;AAFK,sDAEL,kDAFK;AAEL;;;AAEpB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAVoB;;;;;AAw6D2B;AAGjD,UAAG,qBAAiB,KAAG,KAAvB;AAEE,gCAAoB;AACpB;OAHF;AAHiD;AAUJ;AAG7C,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;AAChB;OAHF;AAH6C;AAUF;AAG3C,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd;OAHF;AAH2C;AAUD;AAE1C,UAAG,cAAU,KAAG,KAAhB;AAEE,yBAAa;AACb;OAHF;AAF0C;AASD;AAEzC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAFyC;AASA;AAEzC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAFyC;AASA;AAEzC,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAFyC;AASH;AAEtC,UAAG,UAAM,KAAG,KAAZ;AAEE,qBAAS;AACT;OAHF;AAFsC;AApFA;AAEtC,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAFsC;AAjBD;AAErC,UAAc,2BAAH,eAAP,MAAO,CAAX;AAEE,qBAAiB,OAAP,OAAU,2BAAH,CAA0B;AAC3C,wBAAoB,OAAP,OAAU,2BAAH,CAA0B;AAC9C,wBAAoB,OAAP,OAAU,2BAAH,CAA0B;AAC9C,0BAAsB,OAAP,OAAU,2BAAH,CAA0B;AAChD,yBAAqB,OAAP,OAAU,2BAAH,CAA0B;AAC/C,gCAA4B,OAAP,OAAU,2BAAH,CAA0B;AACtD,4BAAwB,OAAP,OAAU,2BAAH,CAA0B;AAClD,wBAAoB,OAAP,OAAU,2BAAH,CAA0B;OAG9C;AAdmC;AAuBE;AAEvC,mBAAS;AACT,sBAAY;AACZ,sBAAY;AACZ,wBAAc;AACd,uBAAa;AACb,8BAAoB;AACpB,0BAAgB;AAChB,sBAAY;AAT4B;AAAD;AA55DjB;AAuBF;AAGL;AACG;AACA;AACE,iC7JoRd,uC6JpRc;AACD;AACO,uC7JkRpB,uC6JlRoB;AACJ,mC7JiRhB,uC6JjRgB;AACJ;AAjCI;AAoCE;;;AAEtB;AACA;AAHsB;;;;;AA0zDiB;AAGzC,iBAAM,OAAO,CAAC,KAAD;AACb;AAJyC;AANI;AAE7C,wBAAc;AACd;AAH6C;AAnBJ;AAEzC;AACA,oBAAU,2BAAsB,QAAC;AACjC,iBAAM,UAAN,GAAoB;AACpB,wBAAc;AALsD;AAA3B;AATF;AAEvC,UAAa,6BAAH,eAAP,MAAO,CAAV;AAEE,mBAAM,OAAO,CAAS,OAAP,OAAU,6BAAH,CAA4B,OAArC;AACb,0BAAsB,OAAP,OAAU,6BAAH,CAA4B;OAHpD;AAFuC;AAiBE;AAElC,eAAP,KAAO;AACP;AAHyC;AAMI;AAE7C;AAF6C;AA7BN;AAAP;AAGhC,eAA2B,8DAAC,0BAAD;AAHK;AAAO;AAlxDf;AAOJ,+BAAY,elKuWrB,gCkKvWqB,CAAZ;AAMA;AACH,6BAlDK,qCAkDL;AACD,6BT2hBW,8DS3hBX;AAfQ;AAkBC;AA2zDe;AAAP;AAGjC,eAA6C,cAAK,CAAC,KAAD;AAHjB;AAAO;AAYC;AAG/B,oBAAK,CAAC,MAAU,KAAX;AAH0B;AAjBO;AAAf;AAEjC,eAAU;AAFuB;AAAe;AALZ;AAAH;AAEjC,eAA6C;AAFZ;AAAG;AAgBG;AAAN;AAGjC,eAAmD,gEAAC,KAAD;AAHlB;AAAM;AAj0Dd;AAYA;;;AAEvB;AACA;AAHuB;;;;;AA4sDiB;AAG1C,iBAAM,OAAO,CAAC,KAAD;AACb;AAJ0C;AANI;AAE9C,wBAAc;AACd;AAH8C;AAnBJ;AAE1C;AACA,oBAAU,2BAAsB,QAAC;AACjC,iBAAM,UAAN,GAAoB;AACpB,wBAAc;AALuD;AAA3B;AATF;AAExC,UAAa,8BAAH,eAAP,MAAO,CAAV;AAEE,mBAAM,OAAO,CAAS,OAAP,OAAU,8BAAH,CAA6B,OAAtC;AACb,0BAAsB,OAAP,OAAU,8BAAH,CAA6B;OAHrD;AAFwC;AAiBE;AAEnC,eAAP,KAAO;AACP;AAH0C;AAMI;AAE9C;AAF8C;AAjsDrB;AAOL,+BAAY,elKyUrB,gCkKzUqB,CAAZ;AAKH,6BA9EK,qCA8EL;AACG;AAbK;AAgBC;AA+sDe;AAAP;AAGlC,eAA8C,cAAK,CAAC,KAAD;AAHjB;AAAO;AAYC;AAGhC,oBAAK,CAAC,MAAU,KAAX;AAH2B;AAjBO;AAAf;AAElC,eAAU;AAFwB;AAAe;AALZ;AAAH;AAElC,eAA8C;AAFZ;AAAG;AAgBG;AAAN;AAGlC,eAAoD,iEAAC,KAAD;AAHlB;AAAM;AArtDd;AAYH;;;AAErB;AAFqB;AA69DqB;AAE5C,UAAI,eAAW,KAAG,KAAlB;AAEE,0BAAc;AACd;OAHF;AAF4C;AApBN;AAEtC;AACA,UAAa,4BAAH,eAAP,MAAO,CAAV;AAEE,0BAAsB,OAAP,OAAU,4BAAH,CAA2B;OAFnD;AAHsC;AASE;AAExC;AACA,wBAAc;AAHqD;AAA3B;AAMA;AAExC;AAFwC;AAx9DjB;AAMH,+BAAY,elK8SrB,gCkK9SqB,CAAZ;AAGA;AATG;AAYC;AAs+De;AAAP;AAGhC,eAA4C,cAAK,CAAC,KAAD;AAHjB;AAAO;AAYC;AAG9B,oBAAK,CAAC,MAAU,KAAX;AAHyB;AAjBO;AAAf;AAEhC,eAAU;AAFsB;AAAe;AALZ;AAAH;AAEhC,eAA4C;AAFZ;AAAG;AAgBG;AAAN;AAGhC,eAAkD,+DAAC,KAAD;AAHlB;AAAM;AA5+Dd;AAYE;;;AAExB;AAFwB;AAkgEqB;AAE/C,UAAI,eAAW,KAAG,KAAlB;AAEE,0BAAc;AACd;OAHF;AAF+C;AApBN;AAEzC;AACA,UAAa,+BAAH,eAAP,MAAO,CAAV;AAEE,0BAAsB,OAAP,OAAU,+BAAH,CAA8B;OAFtD;AAHyC;AASE;AAE3C;AACA,wBAAc;AAHwD;AAA3B;AAMA;AAE3C;AAF2C;AA7/DjB;AAMN,+BAAY,elKsRrB,gCkKtRqB,CAAZ;AAGA;AATM;AAYC;AA2gEe;AAAP;AAGnC,eAA+C,cAAK,CAAC,KAAD;AAHjB;AAAO;AAYC;AAGjC,oBAAK,CAAC,MAAU,KAAX;AAH4B;AAjBO;AAAf;AAEnC,eAAU;AAFyB;AAAe;AALZ;AAAH;AAEnC,eAA+C;AAFZ;AAAG;AAgBG;AAAN;AAGnC,eAAqD,kEAAC,KAAD;AAHlB;AAAM;AAjhEd;AAYJ;;;AAErB;AACA;AAHqB;;;;;AAk3DqB;AAE5C,UAAI,eAAU,KAAG,KAAjB;AAEE,0BAAc;AACd;OAHF;AAF4C;AAXJ;AAExC;AACA,wBAAc;AAHqD;AAA3B;AAMA;AAExC;AAFwC;AA72DjB;AAMH,+BAAY,elK8PrB,gCkK9PqB,CAAZ;AAIA;AAVG;AAaC;AA03De;AAAP;AAEhC,eAA4C,cAAK,CAAC,KAAD;AAFjB;AAAO;AAUC;AAG9B,oBAAK,CAAC,MAAU,KAAX;AAHyB;AAfO;AAAf;AAEhC,eAAU;AAFsB;AAAe;AALZ;AAAH;AAEhC,eAA4C;AAFZ;AAAG;AAeG;AAAN;AAEhC,eAAkD,+DAAC,KAAD;AAFlB;AAAM;AA/3Dd;AAaI;AAktEe;AAAP;AAEpC,eAAiC,cAAW,QAAK,CAAC,KAAD,CAAhB;AAFG;AAAO;AAKC;AAElC,cAAK,CAAC,MAAU,KAAX;AAF6B;AAvtEhB;AAYJ;;;AAEtB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAfsB;;;;;;;AAknEa;AAAL;AAEhC,UAAQ,CAAJ,UAAI,KAAE,EAAF,CAAM,IAAG,cAAjB,EACE,aAAO,yCADT;AAGA,uBAAa;AACb,eAAU;AANsB;AAAK;AASK;AAAV;AAEhC;AACA;AAEA,UAAG,CAAY,CAAC,aAAD,SAAf,EACE,gBAAY,iCAA4B,QAAC,YAD3C;AAGA,mBAAQ;AAER,UAAY,WAAD,QAAX;AAEE,iBAAS,QAAmD,OAAtB,WAAO,WAAC,EAAO,SAAC,EAAM,GAAE,CAAF,kBAA5D;AAAI;AAEF,cAA6B,WAAO,WAAC,EAAO,WAAC,CAAD;AAC5C,cAAG,CAAC,SAAS,KAAE,IAAf,EACE,aAAQ,IAAI,CAAC,CAAD,CADd;;OALJ;AAUA,eAAU;AApBsB;AAAU;AAsCG;AAG7C,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd;OAHF;AAH6C;AAUA;AAE7C,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd;OAHF;AAF6C;AAzBI;AAAjB;AAEhC,eAAU,eAAU,KAAG,EAAH;AAFY;AAAiB;AAKJ;AAG7C,UAAG,eAAW,KAAG,KAAjB;AAEE,0BAAc;AACd;OAHF;AAH6C;AA6BE;AAG/C,UAAG,iBAAa,KAAG,KAAnB;AAEE,4BAAgB;AAChB;OAHF;AAH+C;AAUD;AAE9C,qBAAW;AACX,UAAY,WAAD,QAAX,EACU,OAAP,YAAU,4BAAH,CAA2B,iBADrC;AAH8C;AAlGL;AAEzC;AACA,wBAAc;AACd,wBAAc;AACd,wBAAa,QAAb;AACA,0BAAe,QAAf;AAEA,UAAY,WAAD,QAAX,EACE,cAAsB,OAAX,iBAAc,8BAAH,CAA6B,SADrD;AAGA;AAXoE;AAA3B;AAXF;AAEvC,UAAa,6BAAH,eAAP,MAAO,CAAV;AAEE,0BAAsB,OAAP,OAAU,6BAAH,CAA4B;AAClD,0BAAsB,OAAP,OAAU,6BAAH,CAA4B;AAClD,0BAAsB,OAAP,OAAU,6BAAH,CAA4B;AAClD,4BAAwB,OAAP,OAAU,6BAAH,CAA4B;OALtD;AAFuC;AAyBE;AAEzC;AACA,UAAY,aAAD,QAAX,EACW,SAAT,KAAS,WADX;AAEA;AALyC;AA1mEjB;AA0BJ,+BAAY,elKoMrB,gCkKpMqB,CAAZ;AAWP;AACO;AACE,mC7JsFhB,uC6JtFgB;AACF,iC7JqFd,uC6JrFc;AACA,iC7JoFd,uC6JpFc;AAzCI;AA6CC;;;AAKvB;AALuB;;;;;AAmgEe;AAAP;AAGjC,eAA6C,YAAK,CAAC,KAAD;AAHjB;AAAO;AAyBC;AAG/B,kBAAK,CAAC,MAAU,KAAX;AAH0B;AA9BO;AAAf;AAEjC,eAAU;AAFuB;AAAe;AAWP;AAAR;AAEjC,eAAU;AAFuB;AAAQ;AAjBC;AAE1B,sDAAC,OAAQ,sBAAT;AAChB,sBAAU;AAH4D;AAA5B;AAtBH;AAEvC;AACA;AAEA,UAAK;AACL,UAAY,CAAD,QAAX,EACE,CAAC,cADH;AAGA,UAAG,eAAM,GAAE,CAAX;AAEE,eAAM,eAAM,GAAE,CAAd;AAEE,eAAsB,cAAK,CAAC,eAAM,GAAE,CAAT;AAC3B,YAAG,eAAH,EAAG;;OALP;AASA,UAAY,CAAD,QAAX,EACE,CAAC,YADH;AAlBuC;AAkDG;AAE1C;AAEA,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AACF,sBAAK,CAAC,CAAD,CAAG,UAAR,GAAqB;;AALmB;AAvDN;AAAH;AAEjC,eAA6C;AAFZ;AAAG;AAiDG;AAAN;AAGjC,eAAmD,yCAAC,KAAD;AAHlB;AAAM;AA9gEd;AAYL,+BAAO,UTw/BV,mDSx/BU,CAAP;AAZK;AAoBD;AAwpEiB;AAEzC;AAFoE;AAA3B;AALF;AAEvC;AAFuC;AAUE;AAEzC;AAFyC;AA7pEjB;AAEJ,+BAAY,elK2JrB,gCkK3JqB,CAAZ;AAFI;AAOC;AAuqEe;AAAP;AAGjC,eAA6C,cAAK,CAAC,KAAD;AAHjB;AAAO;AAYC;AAG/B,oBAAK,CAAC,MAAU,KAAX;AAH0B;AAjBO;AAAf;AAEjC,eAAU;AAFuB;AAAe;AALZ;AAAH;AAEjC,eAA6C;AAFZ;AAAG;AAgBG;AAAN;AAGjC,eAAmD,gEAAC,KAAD;AAHlB;AAAM;AA7qEd;AAYO;;AAEA;;;AAE9B;AACA;AAH8B;;;;;AAy6DkB;AAElD,UAAG,YAAQ,KAAG,KAAd;AAEE,uBAAW;AACX;OAHF;AAFkD;AAVF;AAEhD,UAAY,cAAD,QAAX,EACE,cAAQ,CAAC,IAAD,CADV;AAFgD;AARD;AAE/C,UAAa,qCAAH,eAAP,MAAO,CAAV;AAEE,uBAAmB,OAAP,OAAU,qCAAH,CAAoC;OAFzD;AAF+C;AAcE;AAAC;AAAD;AAr6DjB;AASZ;AAGH;AAZe;AAeN;;;AAExB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAfwB;;;;;;;AAupCa;AAAL;AAElC,UAAQ,CAAJ,UAAI,KAAE,EAAF,CAAM,IAAG,cAAjB,EACE,aAAO,yCADT;AAGA,uBAAa;AACb,eAAU;AANwB;AAAK;AAcM;AAAX;AAElC,eAAU,SAAI,KAAG,EAAH;AAFoB;AAAW;AALI;AAAf;AAElC,eAAU,aAAQ,KAAG,CAAH;AAFgB;AAAe;AAuCJ;AAE7C,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAF6C;AAeJ;AAEzC,UAAG,SAAK,KAAG,KAAX;AAEE,oBAAQ;AACR;OAHF;AAFyC;AA5CG;AAG5C,UAAG,YAAQ,KAAG,KAAd;AAEE,uBAAW;AACX;OAHF;AAH4C;AAsCA;AAG5C,kBAAO,OAAO,CAAC,KAAD;AAH8B;AAlBM;AAElD,UAAG,kBAAc,KAAG,KAApB;AAEE,6BAAiB;AACjB;OAHF;AAFkD;AA5CA;AAElD;AAFkD;AA6EA;AAElD,qBAAW;AACX,UAAY,WAAD,QAAX,EACU,OAAP,YAAU,4BAAH,CAA2B,mBADrC;AAHkD;AAvGP;AAE3C;AAEA,qBAAW,qCAAgC,QAAC;AAC5C,kBAAO,UAAP,GAAqB;AAGrB,kBAAQ;AACR,sBAAY;AACZ,qBAAW;AACX,2BAAiB;AAEjB,UAAY,WAAD,QAAX,EACE,cAAsB,OAAX,iBAAc,gCAAH,CAA+B,SADvD;AAGA;AAhBsE;AAA3B;AAbF;AAEzC,UAAa,+BAAH,eAAP,MAAO,CAAV;AAEE,oBAAgB,OAAP,OAAU,+BAAH,CAA8B;AAC9C,wBAAoB,OAAP,OAAU,+BAAH,CAA8B;AAClD,oBAAO,OAAO,CAAS,OAAP,OAAU,+BAAH,CAA8B,QAAvC;AACd,uBAAmB,OAAP,OAAU,+BAAH,CAA8B;AAEjD,6BAAyB,OAAP,OAAU,+BAAH,CAA8B;OAPzD;AAFyC;AAgCE;AAEnC,eAAR,KAAQ;AACR;AACA;AAJ2C;AA3oCjB;AA4BN,+BAAY,elK6FrB,gCkK7FqB,CAAZ;AAUP;AACC;AACI;AACD,8BA1De,+CA0Df;AACA,8BAzDe,+CAyDf;AACM;AA3CG;AA+CC;;;AAKzB;AALyB;;;;;AA+tCe;AAAP;AAGnC,eAA+C,YAAK,CAAC,KAAD;AAHjB;AAAO;AAyBC;AAGjC,kBAAK,CAAC,MAAU,KAAX;AAH4B;AA9BO;AAAf;AAEnC,eAAU;AAFyB;AAAe;AAWP;AAAR;AAEnC,eAAU;AAFyB;AAAQ;AAjBC;AAE5B,sDAAC,OAAQ,sBAAT;AAChB,sBAAU;AAH8D;AAA5B;AAtBH;AAEzC;AACA;AAEA,UAAK;AACL,UAAY,CAAD,QAAX,EACE,CAAC,cADH;AAGA,UAAG,eAAM,GAAE,CAAX;AAEE,eAAM,eAAM,GAAE,CAAd;AAEE,eAAsB,cAAK,CAAC,eAAM,GAAE,CAAT;AAC3B,YAAG,eAAH,EAAG;;OALP;AASA,UAAY,CAAD,QAAX,EACE,CAAC,YADH;AAlByC;AAkDG;AAE5C;AAEA,eAAS,QAAW,OAAN,eAAM,GAAE,CAAF,kBAApB;AAAI;AACF,sBAAK,CAAC,CAAD,CAAG,UAAR,GAAqB;;AALqB;AAvDN;AAAH;AAEnC,eAA+C;AAFZ;AAAG;AAiDG;AAAN;AAGnC,eAAqD,yCAAC,KAAD;AAHlB;AAAM;AA1uCd;AAYP,+BAAO,UTi5BV,mDSj5BU,CAAP;AAZO;AAoBH;;;AAEtB;AACA;AACA;AAJsB;AAohCsB;AAE9C,UAAG,gBAAY,KAAG,KAAlB;AAEE,2BAAe;AACf;OAHF;AAF8C;AATG;AAEjD,UAAG,mBAAe,KAAG,KAArB;AAEE,8BAAkB;AAClB;OAHF;AAFiD;AAkBN;AAE3C,UAAG,aAAS,KAAG,KAAf;AAEE,wBAAY;AACZ;OAHF;AAF2C;AA1BF;AAEzC;AACA,yBAAc,EAAd;AACA,4BAAiB,IAAjB;AACA,sBAAW,SAAX;AAL0C;AAAD;AAngCjB;AASJ;AAEC;AACG;AACN;AAbM;AAgBD;;;AAErB;AACA;AACA;AACA;AACA;AACA;AAPqB;;;;;;;;;;AA8yBkB;AAAV;AAE/B,eAA4B,OAAR,cAAW,6BAAH;AAFG;AAAU;AA4BC;AAG1C,uBAAO,OAAO,CAAC,KAAD;AAH4B;AAkBG;AAG7C,sBAAW,OAAO,CAAC,KAAD;AAH2B;AAZF;AAG3C,wBAAQ,OAAO,CAAC,KAAD;AAH4B;AAjjBD;AAAX;AAE/B,eAA8C;AAFf;AAAW;AAUC;AAAZ;AAE/B,eAA+C;AAFhB;AAAY;AA6iBC;AAG5C,yBAAS,OAAO,CAAC,KAAD;AAH4B;AA1GH;AAAV;AAE/B,eAA6C;AAFd;AAAU;AAwFC;AAG1C,uBAAO,OAAO,CAAC,KAAD;AAH4B;AAZC;AAG3C,oBAAS,OAAO,CAAC,KAAD;AAH2B;AAtFD;AAAX;AAE/B,eAA8C;AAFf;AAAW;AA4FC;AAG3C,wBAAQ,OAAO,CAAC,KAAD;AAH4B;AAjJC;AAAb;AAE/B,eAAU,iBAAO;AAFc;AAAa;AAgDJ;AAAT;AAE/B,eAAU,2CAAkB,GAAE,sDAAF;AAFG;AAAS;AAsFG;AAAZ;AAE/B,eAAU,kCAAQ,CAAC,kCAAQ,CAAC,EAAQ,CAAT,EAAkB,kCAAQ,CAAC,EAAQ,CAAT,CAAnC;AAFa;AAAY;AAlOmB;AAA/B;AAE/B,eAAU;AACV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,eACE,WAiFkD,GAjFpC,kCAAF,GAAiC,GAAF,GAAQ,mCAAF,GAAe,IAAF,GAAS,2BAAF,GACrE,mDAD0E,GAE1E,QADc,GACH,kBAAF,GAAiB,KAAF,GAAU,uBAAF,GAAsB,GAAF,GAAQ,mCAAF,GAAe,UAAF,GAAe,2BAAF,GACpF,UADyF,GAC5E,2BAAF,GACX,UADgB,GACH,2BAAF,GAEX,WAFgB,GAEF,mCAAF,GAAe,cAAF,GAAmB,2BAAF,GAG1C,aAH+C,GAG/B,2BAAF,GACd,cADmB,GACF,iDAAF,GAAkB,eAAF,GAAoB,2BAAF,GACjD,eADsD,GACpC,mCAAF,GAAe,SAAF,GAAc,2BAAF,GACzC,WAD8C,GAChC,2BAAF,GAEZ,cAFiB,GAEA,iDAAF,GAAkB,eAAF,GAAoB,2BAAF,GACjD,cADsD,GACrC,mCAAF,GAAe,SAAF,GAAc,2BAAF,GACxC,mBAD6C,GACvB,mCAAF,GAAe,mBAAF,GAAwB,2BAAF,GACvD,iBAD4D,GACxC,mCAAF,GAAe,aAAF,GAAkB,GAAF,GAAQ,2BAAF,GACrD,iBAD0D,GACtC,2BAAF,GAClB,SADuB,GACX,2BAAF,GAEV,aAFe,GAEC,2BAAF,GAGd,aAHmB,GAGH,2BAAF,GACd,cADmB,GACF,iDAAF,GAAkB,mBAAF,GAAwB,2BAAF,GACrD,eAD0D,GACxC,mCAAF,GAAe,UAAF,GAAe,2BAAF,GAC1C,4BAD+C,GAChB,mCAAF,GAAe,wBAAF,GAA6B,2BAAF,GACrE,WAD0E,GAC5D,2BAAF,GAEZ,cAFiB,GAEA,iDAAF,GAAkB,eAAF,GAAoB,2BAAF,GACjD,cADsD,GACrC,mCAAF,GAAe,SAAF,GAAc,2BAAF,GACxC,mBAD6C,GACvB,mCAAF,GAAe,mBAAF,GAAwB,2BAAF,GACvD,iBAD4D,GACxC,mCAAF,GAAe,aAAF,GAAkB,GAAF,GAAQ,2BAAF,GACrD,iBAD0D,GACtC,2BAAF,GAClB,SADuB,GACX,2BAAF,GAEV,aAFe,GAEC,2BAAF,GAGd,aAHmB,GAGH,2BAAF,GAEd,wBAFmB,GAEQ,iDAAF,GAAkB,gBAAF,GAAqB,2BAAF,GAC5D,kBADiE,GAC5C,iDAAF,GAAkB,eAAF,GAAoB,2BAAF,GACrD,2BAD0D,GAC5B,2BAAF,GAC5B,WADiC,GACnB,2BAAF,GACZ,SADiB,GACL,2BAAF,GAEV,cAFe,GAEE,iDAAF,GAAkB,kBAAF,GAAuB,2BAAF,GACpD,aADyD,GACzC,mCAAF,GAAe,UAAF,GAAe,2BAAF,GACxC,oBAD6C,GACtB,iDAAF,GAAkB,oBAAF,GAAyB,2BAAF,GAC5D,QADiE,GACtD,2BAAF,GAET,cAFc,GAEG,iDAAF,GAAkB,iBAAF,GAAsB,2BAAF,GACnD,8BADwD,GACvB,2BAAF,GAC/B,cADoC,GACnB,mCAAF,GAAe,SAAF,GAAc,2BAAF,GACxC,mBAD6C,GACvB,mCAAF,GAAe,mBAAF,GAAwB,2BAAF,GACvD,kBAD4D,GACvC,2BAAF,GACnB,iBADwB,GACJ,mCAAF,GAAe,aAAF,GAAkB,GAAF,GAAQ,2BAAF,GACrD,mCAD0D,GACpB,2BAAF,GACpC,yDADyC,GACmB,2BAAF,GAC1D,uBAD+D,GACrC,2BAAF,GACxB,UAD6B,GAChB,2BAAF,GACX,SADgB,GACJ,2BAAF,GAEV,aAFe,GAEC,2BAAF,GACd,KADmB,GACX,2BAAF,GAEN,SAFW,GAEC,kBAAF,GAAiB,IAAF,GAAS,2BAAF,GAChC,IADqC,GAC9B,+BAAF,GAAW,eAAF,GAAoB,2BAAF,GAChC,IADqC,GAC9B,kBAAF,GAAiB,UAAF,GAAe,2BAAF,GACjC,QADsC,GAC3B,kBAAF,GAAiB,IAAF,GAAS,2BAAF,GAC/B,MADoC,GAC3B,uBAAF,GAAsB,GAAF,GAAQ,mCAAF,GAAe,YAAF,GAAiB,kBAAF,GAAiB,GAAF,GAAQ,2BAAF,GAClF,MADuF,GAC9E,+BAAF,GAAW,iCAAF,GAAsC,2BAAF,GACpD,2CADyD,GACX,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACvE,2BAD4E,GAC9C,mCAAF,GAAe,eAAF,GAAoB,2BAAF,GAC3D,6BADgE,GAChC,2BAAF,GAC9B,SADmC,GACvB,2BAAF,GACV,SADe,GACH,2BAAF,GACV,KADe,GACP,2BAAF,GAEN,+CAAW,CAAC,oCAAD,CAFA,GAGX,GADkD;AAxFrB;AAA+B;AAoHL;AAA1B;AAE/B,eAAU;AACV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,eACE,WAayD,GAb3C,6BAAF,GAA4B,GAAF,GAAQ,mCAAF,GAAe,IAAF,GAAS,2BAAF,GAChE,mDADqE,GAErE,QADc,GACH,kBAAF,GAAiB,KAAF,GAAU,uBAAF,GAAsB,GAAF,GAAQ,mCAAF,GAAe,UAAF,GAAe,2BAAF,GACpF,QADyF,GAC9E,kBAAF,GAAiB,IAAF,GAAS,2BAAF,GAC/B,MADoC,GAC3B,+BAAF,GAAW,iCAAF,GAAsC,2BAAF,GACpD,2CADyD,GACX,mCAAF,GAAe,WAAF,GAAgB,2BAAF,GACvE,UAD4E,GAC/D,+BAAF,GAAW,sBAAF,GAA2B,2BAAF,GAC7C,SADkD,GACtC,2BAAF,GACV,SADe,GACH,2BAAF,GAEV,aAFe,GAEC,uBAAF,GAAsB,GAAF,GAAQ,mCAAF,GAAe,UAAF,GAAe,2BAAF,GAClE,MADuE,GAC9D,kBAAF,GAAiB,UAAF,GAAe,2BAAF,GACnC,KADwC,GAChC,2BAAF,GACN,+CAAW,CAAC,2CAAD,CADA,GAEX,GADyD;AApB5B;AAA0B;AAvLG;AAA7B;AAE/B,eAAU;AACV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,eACE,WAqCgD,GArClC,mDAAF,GAA+B,GAAF,GAAQ,mCAAF,GAAe,IAAF,GAAS,2BAAF,GAEnE,mDAFwE,GAIxE,6CAFc,GAEkC,2BAAF,GAC9C,cADmD,GAClC,2BAAF,GACf,eADoB,GACF,2BAAF,GAChB,qBADqB,GACG,2BAAF,GAEtB,iBAF2B,GAEP,mCAAF,GAAe,4CAAF,GAAiD,2BAAF,GAC9E,sBADmF,GAC1D,mCAAF,GAAe,uCAAF,GAA4C,2BAAF,GAC9E,kBADmF,GAC9D,mCAAF,GAAe,uDAAF,GAA4D,2BAAF,GAC1F,kBAD+F,GAC1E,mCAAF,GAAe,wDAAF,GAA6D,2BAAF,GAC3F,iBADgG,GAC5E,mCAAF,GAAe,uCAAF,GAA4C,2BAAF,GACzE,+BAD8E,GAC5C,2BAAF,GAChC,+CADqC,GACa,2BAAF,GAChD,0CADqD,GACR,2BAAF,GAC3C,uCADgD,GACN,2BAAF,GACxC,2BAD6C,GACf,2BAAF,GAC5B,oBADiC,GACV,2BAAF,GACrB,WAD0B,GACZ,2BAAF,GACZ,6CADiB,GAC+B,2BAAF,GAC9C,OADmD,GAC1C,2BAAF,GACP,KADY,GACL,2BAAF,GAEL,QAFU,GAEC,mCAAF,GAAe,KAAF,GAAU,wCAAF,GAAoB,GAAF,GAAQ,mCAAF,GAAe,UAAF,GAAe,2BAAF,GAChF,IADqF,GAC9E,mCAAF,GAAe,SAAF,GAAc,iDAAF,GAAkB,kBAAF,GAAuB,2BAAF,GACnE,0BADwE,GAC3C,2BAAF,GAC3B,eADgC,GACd,mCAAF,GAAe,cAAF,GAAmB,2BAAF,GAC9C,wBADmD,GACxB,mCAAF,GAAe,qCAAF,GAA0C,mCAAF,GAAe,mCAAF,GAAwC,mCAAF,GAAe,2BAAF,GAAgC,2BAAF,GAC5K,OADiL,GACvK,2BAAF,GACR,iBADa,GACO,mCAAF,GAAe,IAAF,GAAS,2BAAF,GAEtC,QAF2C,GAEhC,mCAAF,GAAe,IAAF,GAAS,2BAAF,GAC7B,MADkC,GACzB,wCAAF,GAAoB,GAAF,GAAQ,mCAAF,GAAe,YAAF,GAAiB,mCAAF,GAAe,GAAF,GAAQ,2BAAF,GAC9E,KADmF,GAC3E,2BAAF,GAEN,+CAAW,CAAC,kCAAD,CAFA,GAGX,GADgD;AA5CnB;AAA6B;AAgDL;AAAxB;AAE/B,eAAU;AACV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,eACE,WAQuD,GARzC,8CAAF,GAA0B,GAAF,GAAQ,mCAAF,GAAe,IAAF,GAAS,2BAAF,GAC9D,mDADmE,GAEnE,QADc,GACH,mCAAF,GAAe,KAAF,GAAU,wCAAF,GAAoB,GAAF,GAAQ,mCAAF,GAAe,UAAF,GAAe,2BAAF,GAChF,QADqF,GAC1E,mCAAF,GAAe,IAAF,GAAS,2BAAF,GAC7B,sBADkC,GACT,mCAAF,GAAe,IAAF,GAAS,2BAAF,GAC3C,aADgD,GAChC,wCAAF,GAAoB,GAAF,GAAQ,mCAAF,GAAe,UAAF,GAAe,2BAAF,GAChE,MADqE,GAC5D,mCAAF,GAAe,UAAF,GAAe,2BAAF,GACjC,KADsC,GAC9B,2BAAF,GACN,+CAAW,CAAC,yCAAD,CADA,GAEX,GADuD;AAf1B;AAAwB;AApST;AAAf;AAE/B,eAAU;AAFqB;AAAe;AA0gBG;AAAlB;AAE/B,eAAU,sCAI8B,GAJI,2BAAF,GAAO,2BAAF,GAC/C,iCADoD,GACvB,2BAAF,GAAO,2BAAF,GAChC,oCADqC,GACL,2BAAF,GAAO,2BAAF,GACnC,+BADwC,GACb,2BAAF,GAAO,2BAAF,GAC9B,oCADmC,GACH,2BAAF,GAAO,2BAAF,GACnC,+BADwC;AANT;AAAkB;AA/BM;AAAxB;AAE/B,eACE,MAmBgC,GAnBvB,kBAAF,GAAiB,GAAF,GAAQ,2BAAF,GAC5B,MADiC,GACxB,uBAAF,GAAsB,QAAF,GAAa,2BAAF,GACtC,MAD2C,GAClC,mBAAF,GAAkB,QAAF,GAAa,2BAAF,GAClC,WADuC,GACzB,0BAAF,GAAyB,GAAF,GAAQ,2BAAF,GACzC,iBAD8C,GAC1B,2BAAF,GAClB,oBADuB,GACA,uBAAF,GAAsB,IAAF,GAAS,2BAAF,GAChD,kBADqD,GAChC,2BAAF,GACnB,kBADwB,GACH,2BAAF,GACnB,KADwB,GAChB,2BAAF,GACN,0BADW,GACkB,2BAAF,GAC3B,GADgC,GAC1B,2BAAF,GACJ,MADS,GACA,mCAAF,GAAe,GAAF,GAAQ,2BAAF,GAC1B,MAD+B,GACtB,wCAAF,GAAoB,QAAF,GAAa,2BAAF,GACpC,WADyC,GAC3B,2CAAF,GAAuB,GAAF,GAAQ,2BAAF,GACvC,iBAD4C,GACxB,2BAAF,GAClB,oBADuB,GACA,wCAAF,GAAoB,IAAF,GAAS,2BAAF,GAC9C,kBADmD,GAC9B,2BAAF,GACnB,kBADwB,GACH,2BAAF,GACnB,KADwB,GAChB,2BAAF,GACN,0BADW,GACkB,2BAAF,GAC3B,GADgC;AAtBH;AAAwB;AAxWR;AAAhB;AAE/B,eACE,mBAUiC,GAVX,mCAAF,GAAe,iBAAF,GAAsB,2BAAF,GACrD,OAD0D,GAChD,mCAAF,GAAe,sBAAF,GAA2B,2BAAF,GAC9C,qBADmD,GAC3B,2BAAF,GACtB,GAD2B,GACrB,2BAAF,GACJ,wCADS,GACkC,mBAAF,GAAkB,IAAF,GAAS,2BAAF,GAChE,IADqE,GAC9D,+BAAF,GAAW,2CAAF,GAAgD,iDAAF,GAAkB,kCAAF,GAAuC,2BAAF,GACjH,+CADsH,GACpE,mBAAF,GAAkB,IAAF,GAAS,2BAAF,GACvE,IAD4E,GACrE,+BAAF,GAAW,2CAAF,GAAgD,iDAAF,GAAkB,gDAAF,GAAiB,IAAF,GAAS,2BAAF,GAClG,GADuG,GACjG,2BAAF,GAEJ,mBAFS,GAEO,gBAAF,GAAqB,2BAAF;AAbJ;AAAgB;AAyVG;AAAnB;AAE/B;AAEA,eAAU;AACV,eAAS,QAAsB,OAAjB,gBAAU,SAAC,EAAM,GAAE,CAAF,kBAA/B;AAAI;AACF,iBAAU,MAAiF,GAAxE,IAAF,GAAS,kCAAF,GAAiC,GAAF,GAAqB,4DAAb,gBAAU,WAAC,CAAD,CAAG,CAAf,GAAyB,IAAF,GAAS,2BAAF;;AAE7F,eAAS,SAAoB,QAAf,kBAAQ,SAAC,EAAM,GAAE,CAAF,qBAA7B;AAAI;AACF,iBAAU,MAA6E,GAApE,IAAF,GAAS,mDAAF,GAA+B,GAAF,GAAmB,4DAAX,kBAAQ,WAAC,CAAD,CAAG,CAAb,GAAuB,IAAF,GAAS,2BAAF;;AAEzF,eAAS,SAAoB,QAAf,cAAQ,SAAC,EAAM,GAAE,CAAF,qBAA7B;AAAI;AACF,iBAAU,MAAmF,GAA1E,IAAF,GAAS,8DAAF,GAA+B,IAAF,GAAoB,4DAAX,cAAQ,WAAC,CAAD,CAAG,CAAb,GAAuB,SAAF,GAAc,2BAAF;;AAZhE;AAAmB;AA1WP;AAAZ;AAE/B;AAEA,UAAG,CAAI,iBAAO,eAAd;AACE,qBAAc;AAEd,yBAAc,iBAAO;AAEvB,UAAI,iBAAO,YAAY,KAAG,EAA1B;AACE,iBACE,IAA2H,GAApH,+BAAF,GAAW,2CAAF,GAAgD,iDAAF,GAAkB,qBAAF,GAA0B,UAAF,GAAe,OAAF,GAAY,2BAAF;AAE7H,qBACE,IAAkG,GAA3F,+BAAF,GAAW,2CAAF,GAAgD,iDAAF,GAAkB,gDAAF,GAAiB,IAAF,GAAS,2BAAF;AAdvE;AAAY;AAqWG;AAAf;AAE/B,eAAU;AAFqB;AAAe;AAVC;AAAhB;AAE/B,eAAU;AAFqB;AAAgB;AAzbC;AAAjB;AAE/B,eAAU;AAFqB;AAAiB;AAVD;AAAhB;AAE/B,eAAU;AAFqB;AAAgB;AAeE;AAAlB;AAE/B,eAAU;AAFqB;AAAkB;AA4eH;AAAf;AAE/B,eAAU;AAFqB;AAAe;AAlXc;AAA7B;AAE/B,eAAU;AACV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,eACE,WAoEsD,GApExC,8DAAF,GAA+B,GAAF,GAAQ,mCAAF,GAAe,IAAF,GAAS,2BAAF,GAEnE,mDAFwE,GAIxE,QAFc,GAEH,8CAAF,GAAe,KAAF,GAAU,mDAAF,GAAoB,GAAF,GAAQ,mCAAF,GAAe,aAAF,GAAkB,2BAAF,GAEnF,eAFwF,GAEtE,2BAAF,GAChB,kBADqB,GACA,mCAAF,GAAe,OAAF,GAAY,2BAAF,GAC1C,eAD+C,GAC7B,mCAAF,GAAe,SAAF,GAAc,2BAAF,GACzC,cAD8C,GAC7B,uCAAF,GAAmB,aAAF,GAAkB,2BAAF,GAChD,8BADqD,GACpB,2BAAF,GAC/B,uDADoC,GACsB,2BAAF,GACxD,sBAD6D,GACpC,2BAAF,GACvB,KAD4B,GACpB,2BAAF,GAEN,SAFW,GAEC,8CAAF,GAAe,IAAF,GAAS,2BAAF,GAE9B,uBAFmC,GAET,iDAAF,GAAkB,kBAAF,GAAuB,2BAAF,GAC7D,mBADkE,GAC5C,2BAAF,GACpB,SADyB,GACb,2BAAF,GAEV,8BAFe,GAEkB,iDAAF,GAAkB,mBAAF,GAAwB,2BAAF,GACrE,qBAD0E,GAClD,2BAAF,GACtB,sBAD2B,GACF,2BAAF,GACvB,SAD4B,GAChB,2BAAF,GAEV,0BAFe,GAEc,2BAAF,GAC3B,sBADgC,GACP,2BAAF,GAEvB,UAF4B,GAEf,mCAAF,GAAe,0BAAF,GAA+B,2BAAF,GACrD,qBAD0D,GAClC,iDAAF,GAAkB,eAAF,GAAoB,2BAAF,GACxD,eAD6D,GAC3C,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAClD,WADuD,GACzC,2BAAF,GACZ,cADiB,GACA,2BAAF,GACf,qBADoB,GACI,iDAAF,GAAkB,iBAAF,GAAsB,2BAAF,GAC1D,qBAD+D,GACvC,2BAAF,GACtB,sBAD2B,GACF,iDAAF,GAAkB,iBAAF,GAAsB,2BAAF,GAC3D,mBADgE,GAC1C,mCAAF,GAAe,oBAAF,GAAyB,2BAAF,GACxD,aAD6D,GAC7C,2BAAF,GACd,oBADmB,GACI,iDAAF,GAAkB,eAAF,GAAoB,2BAAF,GACvD,mBAD4D,GACtC,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GACtD,YAD2D,GAC5C,2BAAF,GACb,WADkB,GACJ,2BAAF,GACZ,OADiB,GACP,2BAAF,GAER,UAFa,GAEA,8CAAF,GAAe,SAAF,GAAc,iDAAF,GAAkB,iBAAF,GAAsB,2BAAF,GACxE,kBAD6E,GACxD,2BAAF,GACnB,8BADwB,GACS,2BAAF,GAC/B,8CADoC,GACa,2BAAF,GAC/C,oDADoD,GACK,2BAAF,GACvD,uCAD4D,GAClB,2BAAF,GACxC,uBAD6C,GACnB,2BAAF,GACxB,yBAD6B,GACD,iDAAF,GAAkB,gBAAF,GAAqB,2BAAF,GAC7D,4BADkE,GACnC,2BAAF,GAC7B,wBADkC,GACP,iDAAF,GAAkB,eAAF,GAAoB,2BAAF,GAC3D,sCADgE,GACvB,2BAAF,GACvC,0BAD4C,GACf,iDAAF,GAAkB,eAAF,GAAoB,2BAAF,GAC7D,yBADkE,GACtC,mCAAF,GAAe,kBAAF,GAAuB,2BAAF,GAC5D,kBADiE,GAC5C,2BAAF,GACnB,gBADwB,GACL,2BAAF,GAEjB,gBAFsB,GAEH,2BAAF,GACjB,qCADsB,GACkB,2BAAF,GACtC,WAD2C,GAC7B,2BAAF,GACZ,uBADiB,GACS,2BAAF,GACxB,SAD6B,GACjB,2BAAF,GACV,SADe,GACH,2BAAF,GAEV,MAFe,GAEN,+BAAF,GAAW,YAAF,GAAgB,8CAAF,GAAc,IAAD,GAAQ,2BAAF,GAEjD,MAFsD;AAKxD,eAAU,MAY+C,GAXvD,QADe,GACJ,8CAAF,GAAe,IAAF,GAAS,2BAAF,GAC7B,MADkC,GACzB,mDAAF,GAAoB,GAAF,GAAQ,mCAAF,GAAe,eAAF,GAAoB,8CAAF,GAAe,GAAF,GAAQ,2BAAF,GAEjF,MAFsF,GAE7E,8CAAF,GAAe,+BAAF,GAAoC,2BAAF,GACtD,yCAD2D,GACf,2BAAF,GAC1C,UAD+C,GAClC,qCAAF,GAAiB,qCAAF,GAA0C,mCAAF,GAAe,cAAF,GAAmB,2BAAF,GAChG,OADqG,GAC3F,2BAAF,GAAO,2BAAF,GACb,MADkB,GACT,+BAAF,GAAW,6BAAF,GAAoC,2BAAF,GAElD,KAFuD,GAE/C,2BAAF,GAEN,+CAAW,CAAC,yCAAD,CAFA,GAGX,GADuD;AA5F1B;AAA6B;AAqQL;AAAxB;AAE/B,eAAU;AACV,UAAG,CAAY,CAAC,UAAD,SAAf,EACE,aADF;AAGA,eACE,WAQ8D,GARhD,yDAAF,GAA0B,GAAF,GAAQ,mCAAF,GAAe,IAAF,GAAS,2BAAF,GAC9D,mDADmE,GAEnE,QADc,GACH,8CAAF,GAAe,KAAF,GAAU,mDAAF,GAAoB,GAAF,GAAQ,mCAAF,GAAe,UAAF,GAAe,2BAAF,GAChF,QADqF,GAC1E,8CAAF,GAAe,IAAF,GAAS,2BAAF,GAC7B,MADkC,GACzB,+BAAF,GAAW,eAAF,GAAoB,8CAAF,GAAe,IAAF,GAAS,2BAAF,GACtD,aAD2D,GAC3C,mDAAF,GAAoB,GAAF,GAAQ,mCAAF,GAAe,UAAF,GAAe,2BAAF,GAChE,MADqE,GAC5D,8CAAF,GAAe,UAAF,GAAe,2BAAF,GACjC,KADsC,GAC9B,2BAAF,GACN,+CAAW,CAAC,gDAAD,CADA,GAEX,GAD8D;AAfjC;AAAwB;AA2QH;AAGpD,UAAY,0BAAD,QAAX,EACE,0BAAoB,CAAC,KAAM,UAAP,CADtB;AAHoD;AAPL;AAG/C,UAAY,qBAAD,QAAX,EACE,qBAAe,CAAC,KAAM,UAAP,CADjB;AAH+C;AANI;AAEnD,UAAY,yBAAD,QAAX,EACE,yBAAmB,CAAC,IAAD,CADrB;AAFmD;AAPL;AAG9C,UAAY,oBAAD,QAAX,EACE,oBAAc,CAAC,KAAM,UAAP,CADhB;AAH8C;AA2BC;AAG/C;AACA,UAAG,UAAU,WAAW,KAAE,eAA1B,EACE,oBAAe,CAAC,UAAD,CADjB;AAGA,UAAG,UAAU,WAAW,KAAE,oBAA1B,EACE,yBAAoB,CAAC,UAAD,CADtB;AAGA,UAAG,UAAU,WAAW,KAAE,mBAA1B,EACE,0BADF;AAGA,UAAG,UAAU,WAAW,KAAE,cAA1B,EACE,mBAAc,CAAC,UAAD,CADhB;AAb+C;AA1FC;AAEhD,UAAG,CAAI,oBAA+B,IAAb,mBAAH,IAAgC,CAAZ,mBAAY,GAAE,CAAF,CAAtD,EACE,MADF;AAGA,4BAAiB,CAAC,2BAAiD,8CpI7YkE,KoI6YpH;AAL+B;AAvgBE;AAElD;AAAG;AACH;AACA;AAEA,UAAG,CAAI,oBAA+B,IAAb,mBAAH,IAAgC,CAAZ,mBAAY,GAAE,CAAF,CAAtD,EACE,MADF;AAGA,WAAM,gBAAW,CAAC,MAAD;AAEjB,WAAM,uBAAW,QAAC;AAClB;AACE,8CAAY,MAAM,CAAC,IAAK,GAAI,GzFpjBgG,KyFojB1G;AAClB,iBAAS,QAAsB,OAAjB,gBAAU,SAAC,EAAM,GAAE,CAAF,kBAA/B;AAAI;AAEF,cAAK,EAAE,QAAQ,CAAC,gBAAU,WAAC,CAAD,CAAG,MAAC,EAAf;AACf,gCAAiB,CAAC,kCAA0D,GAA3B,GAAF,GAAqB,4DAAb,gBAAU,WAAC,CAAD,CAAG,CAAf,GAAyB,IAAF,CpI8G0B,KAA2B,KoI9GhH;AACjB,cAAG,CAAE,KAAG,CAAC,CAAT,EACE,EAAE,OAAO,CAAC,CAAD,CADX;;AAIF,iBAAS,SAAc,QAAT,EAAE,SAAC,EAAM,GAAE,CAAF,qBAAvB;AAAI;AACF,gCAAiB,CAAC,6BAA8C,GAApB,WAAF,GAAgB,EAAE,KAAC,CAAD,CAAJ,GAAU,KAAF,CpIwGsC,KAA2B,KoIxGhH;;AAXrB;AAcE,UAAG,eAAH,EAAG;AAdL;AAZkD;AA+fJ;AAE9C,UAAG,CAAI,oBAA+B,IAAb,mBAAH,IAAgC,CAAZ,mBAAY,GAAE,CAAF,CAAtD,EACE,MADF;AAGA,4BAAiB,CAAC,uDAA+C,4CpIrYoE,KoIqYpH;AAL6B;AAniBE;AAEhD;AAAG;AACH;AACA;AACA;AAEA,UAAG,CAAI,oBAA+B,IAAb,mBAAH,IAAgC,CAAZ,mBAAY,GAAE,CAAF,CAAtD,EACE,MADF;AAGA,WAAM,gBAAW,CAAC,MAAD;AAEjB,WAAM,uBAAW,QAAC;AAClB;AACE,8CAAY,MAAM,CAAC,IAAK,GAAI,GzFjhBgG,KyFihB1G;AAClB,iBAAS,QAAoB,OAAf,cAAQ,SAAC,EAAM,GAAE,CAAF,kBAA7B;AAAI;AAEF,cAAK,EAAE,QAAQ,CAAC,cAAQ,WAAC,CAAD,CAAG,MAAC,EAAb;AACf,cAAM,CAAF,CAAE,KAAE,CAAC,CAAH,CAAM,IAAI,cAAQ,WAAC,CAAD,CAAG,QAA3B;AAEE,0BAAQ,WAAC,CAAD,CAAG,QAAX,GAAuB;AACvB,gBAAK,cAAQ,WAAC,CAAD,CAAG,WAAC;AACjB,kCAAiB,CAAC,8DAAyE,GAA5C,IAAF,GAAoB,4DAAX,cAAQ,WAAC,CAAD,CAAG,CAAb,GAAuB,IAAF,GAAU,4DAAD,CAAC,CAAH,GAAa,KAAF,CpI6IS,KAA2B,KoI7I9G;WAJnB;AAMA,cAAG,CAAE,KAAG,CAAC,CAAT,EACE,EAAE,OAAO,CAAC,CAAD,CADX;;AAIF,iBAAS,SAAc,QAAT,EAAE,SAAC,EAAM,GAAE,CAAF,qBAAvB;AAAI;AACF,gCAAiB,CAAC,yDAA4C,GAApB,WAAF,GAAgB,EAAE,KAAC,CAAD,CAAJ,GAAU,KAAF,CpIsIwC,KAA2B,KoItIhH;;AAhBrB;AAmBE,UAAG,eAAH,EAAG;AAnBL;AAbgD;AAnFR;AAOxC;AACA,yBAAe,gCAA2B,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,uBAAa,8BAAyB,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,8BAAmB,4DAAnB;AACA,sBAAW,wDAAX;AAEA,8BAAmB,IAAnB;AAEA,UAAG,2CAAY,IAAG,oBAAlB,EACE,MADF;AAf6D;AAArB;AA4EA;AAE5B,eAAZ,KAAY;AACF,eAAV,KAAU;AACV;AAJwC;AAyEC;AAEzC;AACA,UAAG,mBAAY,KAAE,CAAjB;AAEE;AACA;AACA;OAJF;AAHyC;AAifD;AAAT;AAI/B,eAAqD,+DAAC,iFAAa,OAAQ,QAAtB;AAJtB;AAAS;AAmBA;AAAT;AAG/B,eAAqD,iEAAC,UAAW,WAAY,OAAQ,QAAhC;AAHtB;AAAS;AAaE;AAAX;AAI/B,eAAyD,iEAAC,2BAAc,MAAf;AAJ1B;AAAW;AAPD;AAAV;AAI/B,eAAuD,gEAAC,2BAAc,MAAf;AAJxB;AAAU;AAlBD;AAAT;AAG/B,eAAqD,+DAAC,6EAAS,OAAV;AAHtB;AAAS;AAgCG;AAAZ;AAG/B,eAA2D,kEAAC,wEAAD;AAH5B;AAAY;AA1BF;AAAV;AAG/B,eAAuD,gEAAC,0BAAD;AAHxB;AAAU;AAgCE;AAAZ;AAG/B;AACA,eAAU,gBAAU;AACpB,YAAM,KAAN,GAAe;AACf,YAAM,SAAN,GAAmB;AACnB;AAP+B;AAAY;AAsDN;AAErC;AACA;AACA;AACA;AACA;AANqC;AAuBU;AAE/C;AACA,sBAAU;AACV;AAJ+C;AAdF;AAE7C;AACA,oBAAQ;AACR;AAJ6C;AAOA;AAE7C;AACA,wBAAQ;AACR;AAJ6C;AAr+BtB;;;;;;;;AA+DH,+BAAO,UlK6DjB,+BkK7DiB,CAAP;AA/DG;AA4FN;AAgoC+B;AAEhD;AACA,+BAAa,CAAC,sBAAD;AAHmC;AAoDV;AAQtC;AARsC;AAgFJ;AAExB;AAFwB;AAKA;AAEhB,kFAAC,IAAD;AAFgB;AArGS;AAGhB,yFAAC,QAAS,eAAgB,UAA1B;AAHgB;AAMG;AAArB;AAEzB,eAAyC,uFAAC,OAAD;AAFhB;AAAqB;AA2EZ;AAEhB,gFAAC,KAAD;AAFgB;AALA;AAEhB,gFAAC,KAAD;AAFgB;AAVE;AAE1B;AAF0B;AAvEE;AAE5B;AAF4B;AAkEH;AAEzB;AAFyB;AALH;AAEtB;AAFsB;AAkDA;AAEtB;AAFsB;AAeK;AAE3B;AAF2B;AAvJF;AAEhB,iFAAC,YAAa,aAAd;AAFgB;AA6IG;AAEhB,oFAAC,WAAD;AAFgB;AA9HK;AAEhB,yFAAC,cAAD;AAFgB;AA0BS;AAA3B;AAEzB,eAA+C,6FAAC,WAAD;AAFtB;AAA2B;AAgFV;AAAjB;AAEzB,eAAoB;AAFK;AAAiB;AALJ;AAAb;AAEzB,eAAoB;AAFK;AAAa;AAfD;AAAZ;AAEzB,eAAoB;AAFK;AAAY;AAhGH;AAAT;AAEzB,eAAoB;AAFK;AAAS;AAKG;AAAZ;AAEzB,eAAoB;AAFK;AAAY;AAUD;AAE1B;AAF0B;AA8HM;AAEhC;AAFgC;AAxxCzB;;;;;;;;AA6CwB,sDT2bG,+ES3bH;AACX,2CpIyFU,iFoIzFV;AACL,sCTubG,+DSvbH;AACM,4CTubG,qESvbH;AACC,6CTobG,sESpbH;AACP,sCTibG,+DSjbH;AACY,kDTibG,2ESjbH;AACT,yCT4aG,kES5aH;AACD,wCT4aG,iES5aH;AACE,0CT4aG,mES5aH;AACI,8CTwaG,uESxaH;AACC,+CTsaG,wEStaH;AACV,qCT4dJ,uDS5dI;AACK,0CT2dT,uDS3dS;AACF,wCT0dP,uDS1dO;AACF,sCTydL,uDSzdK;AACF,oCTwdH,uDSxdG;AACF,kCTudD,uDSvdC;AACK,uCTsdN,uDStdM;AACF,qCTqdJ,uDSrdI;AACD,oCTodH,uDSpdG;AACE,sCTmdL,uDSndK;AACA,sCTkdL,uDSldK;AACC,uCTidN,uDSjdM;AACA,uCTgdN,uDShdM;AACI,2ClK/kBlB,kCkK+kBkB;AACJ,uCT8cN,uDS9cM;AACF,qCT6cJ,uDS7cI;AACK,0CT4cT,uDS5cS;AACF,wCT2cP,uDS3cO;AACD,uCT0cN,uDS1cM;AACE,yCTycR,uDSzcQ;AACC,0CTwcT,uDSxcS;AACA,0CTucT,uDSvcS;AACE,4CTscX,uDStcW;AACF,0CTqcT,uDSrcS;AACK,+CTocd,uDSpcc;AACF,6CTmcZ,uDSncY;AACD,4CTkcX,uDSlcW;AACE,8CTicb,uDSjca;AACC,+CTgcd,uDShcc;AACA,+CT+bd,uDS/bc;AACV,qCT8bJ,uDS9bI;AACG,wC9J5af,6C8J4ae;AACK,6CT6bG,sES7bH;AACP,sCT8bG,+DS9bH;AACH,mCT4bG,4DS5bH;AACK,wCtC9dH,sEsC8dG;AACE,0CtC9dH,wEsC8dG;AACG,6CTsbH,gEStbG;AACP,sCTsbL,uDStbK;AAEL,iCAvdM,yCAudN;AACD,gCApfM,wCAofN;AACD,+BT8PA,qDS9PA;AACG,kCT4NA,wDS5NA;AACH,+BAlZM,uCAkZN;AACA,+BAlNM,uCAkNN;AACA;AACQ;AACA,uCTjVA,6DSiVA;AACL,kCA1OM,0CA0ON;AACK,uCXuCJ,oEWvCI;AACE,yCT2pBA,+DS3pBA;AACR,iCT0SA,uDS1SA;AACQ;AACT,gCAtVM,wCAsVN;AACA,gCA5TM,wCA4TN;AAhHF;AAhhBnB,mBAmoBc;AAmBA,yBAAG;AACE,8BAAG;AACP,0BAAG;AACI,iCAAG,KAA0B,GAAlB,uBAAF,GAAsB,IAAF;AACrB,yCAAG;AACR,oCAAG;AAxBd;AAnoBd,GAmoBc,iGAnoBd;ACfA,yBAES,6gBAFT;;;AAcQ;;;AACJ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAUA;AAzBI;;;;;;;;;;;;;;;;;;;AAoFoB;AAE1B;AAEA,qBAAU,MAAK,WAAC,CAAM,sEAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAW,eAAU,iBAAC;AACtB,iBAAM,iBAAC,CAAe,SAAf;AAOP,kBAAW,eAAU,iBAAC;AACtB,oBAAS,iBAAC,CAAe,SAAf;AACV,yBAAc,iBAAC,CAAe,SAAf;AACf,mBAAQ,iBAAC,CAAe,SAAf;AAET,kBAAW,eAAU,iBAAC;AACtB,oBAAS,iBAAC,CAAe,SAAf;AACV,uBAAY,iBAAC,CAAe,SAAf;AACb,sBAAW,iBAAC,CAAe,SAAf;AAEZ,yBAAc,QAAC,CAAM,aAAG,wBAAwB,YAAC,EAA6C,GAApC,GAAD,GAAK,aAAG,eAAe,YAAC,EAApB,GAA6B,IAAD,GAAM,aAAG,mBAAmB,YAAC,EAAvG;AA/BW;AApBK;;AAE/B,UAAG,iBAAY,QAAC,EAAI,KAAE,EAAtB;AAEE,gBAAG,aAAa,CAAC,iBAAY,QAAC,GAC5B;AAEE,cAAI,cAAc,SAAU,IAA0B,CAArB,QAAQ,OAAM,SAAC,EAAM,GAAE,CAAF,CAAtD;AAEE,wBAAM,WAAC,EAAO,oBAAC,CAAkB,EAAlB;AACf,wBAAM,sBAAoB,CAAC,QAAQ,OAAM,WAAC,CAAD,CAAG,YAAW,WAAU,QAAQ,OAAM,WAAC,CAAD,CAAG,YAAW,WAAnE;AAC1B,wBAAM,WAAC,EAAO,WAAC,CAAD,CAAG,aAAC,CAAW,QAAQ,OAAM,WAAC,CAAD,CAAG,YAAW,WAAvC;AAClB,wBAAM,WAAC,EAAO,WAAC,CAAD,CAAG,YAAC,CAAU,QAAQ,OAAM,WAAC,CAAD,CAAG,YAAW,UAAtC;AAClB,wBAAM,WAAC,EAAO,WAAC,CAAD,CAAG,SAAC,CAAO,MAAP;WANpB;AAFF,U3B8S4G,GAA4B,KAAuB,GAAmC,oE2B/SpL;OAFlB;AAF+B;AA3BH;AAE5B;AAKD,UAAwB,CAApB,mBAAc,QAAC,EAAK,KAAG,EAAH,CAAO,IAAuB,CAAlB,iBAAY,QAAC,EAAK,KAAG,EAAH,CAAtD;AAGG,kBAAS,kCAA0D,GAAvB,mBAAc,QAAC,EAAhB,GAAqB,GAAD,GAAK,iBAAY,QAAC,EAAd;AACnE,uCAAW,SAAS,CAAC,QAAS,6CAAV;OAGpB,MAAA,gCAAU,CAAC,8CAA8C,4CAAW,cAAC,qCAAD,EhKmbiD,IgKnb3G;AAdgB;AAiBE;AAE9B,UAAI;AAF0B;AAKK;AAEnC,2BAAgB,CAAC,MAAD;AAFmB;AA4DP;AAElB;AAEV,uBAAa,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,uBAAa,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,4BAAkB,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,sBAAY,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,0BAAgB,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,yBAAe,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,iBAAO,8CAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,oBAAU,gDAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,8BAAoB,0DAAsB,QAAC,YAAM,CAAC,IAAD,CAAN;AAE3C,oBAAS;AACT,oBAAS;AACT,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,yBAAc;AACd,mBAAQ;AACR,uBAAY;AACZ,sBAAW;AACX,qBAAU;AACV,qBAAU;AACV,cAAG;AACH,qBAAU;AACV,iBAAM;AACN,2BAAgB;AAChB;AACE,qBAAQ,OAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,gCAAmB,gDAAnB;AACA,kBAAI,SAAJ,GAAgB;AAChB,kBAAI,SAAC,CAAS,KAAT;AACL,kBAAI,UAAC,CAAU,CAAC,EAAX;AACL,kBAAI,QAAC,CAAQ,QAAR;AACL,kBAAI,SAAC,CAAS,EAAT;AACL,2BAAc,KAAd;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,QAAC,CAAQ,EAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,sBAAS,SAAC,CAAS,EAAT;AACV,sBAAS,UAAC,CAAU,EAAV;AACV,sBAAS,YAAC,CAAY,KAAZ;AACV,sBAAS,WAAC,CAAW,OAAX;AACV,sBAAS,oBAAC,CAAoB,qBAApB;AACV,sBAAS,eAAC,CAAe,yCAAf;AACV,sBAAS,mBAAC,CAAmB,gDAAnB;AACV,sBAAS,eAAC,CAAe,wCAAf;AACV,sBAAS,iBAAC,CAAiB,sBAAjB;AACV,sBAAS,cAAC,CAAc,wCAAd;AACV,sBAAS,gBAAC,CAAgB,sBAAhB;AACV,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,QAAC,CAAQ,EAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,sBAAS,SAAC,CAAS,EAAT;AACV,sBAAS,UAAC,CAAU,EAAV;AACV,sBAAS,YAAC,CAAY,KAAZ;AACV,sBAAS,WAAC,CAAW,MAAX;AACV,sBAAS,oBAAC,CAAoB,qBAApB;AACV,sBAAS,eAAC,CAAe,yCAAf;AACV,sBAAS,mBAAC,CAAmB,gDAAnB;AACV,sBAAS,eAAC,CAAe,wCAAf;AACV,sBAAS,iBAAC,CAAiB,sBAAjB;AACV,sBAAS,cAAC,CAAc,wCAAd;AACV,sBAAS,gBAAC,CAAgB,sBAAhB;AACV,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,SAAC,CAAS,mCAAT;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,wBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,SAAC,CAAS,mCAAT;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,EAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,gBAAC,CAAc,CAAd;AACf,2BAAc,oBAAC,CAAoB,wBAApB;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,iBAAC,CAAiB,sBAAjB;AACf,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,gBAAC,CAAgB,sBAAhB;AACf,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,EAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,qBAAQ,SAAC,CAAS,EAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,WAAC,CAAW,OAAX;AACT,qBAAQ,gBAAC,CAAc,CAAd;AACT,qBAAQ,oBAAC,CAAoB,mCAApB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,cAAC,CAAc,wCAAd;AACT,qBAAQ,gBAAC,CAAgB,sBAAhB;AACT,uBAAQ,CAAC,cAAU,KAAM,UAAW,eAA5B;AACR,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,QAAC,CAAQ,EAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,GAAT;AACb,yBAAY,UAAC,CAAU,EAAV;AACb,yBAAY,gBAAC,CAAc,CAAd;AACb,yBAAY,oBAAC,CAAoB,wBAApB;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,mBAAC,CAAmB,gDAAnB;AACb,yBAAY,eAAC,CAAe,wCAAf;AACb,yBAAY,iBAAC,CAAiB,sBAAjB;AACb,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,gBAAC,CAAgB,sBAAhB;AACb,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,EAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,EAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,WAAC,CAAW,UAAX;AACZ,wBAAW,gBAAC,CAAc,CAAd;AACZ,wBAAW,oBAAC,CAAoB,mCAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,cAAC,CAAc,wCAAd;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,uBAAQ,CAAC,iBAAa,KAAM,UAAW,kBAA/B;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,yCAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,yCAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,gBAAG,mBAAmB,CAAC,IAAD;AACtB,gBAAG,QAAC,CAAQ,KAAR;AACJ,gBAAG,QAAC,CAAQ,EAAR;AACJ,gBAAG,OAAC,CAAO,GAAP;AACJ,gBAAG,SAAC,CAAS,EAAT;AACJ,gBAAG,UAAC,CAAU,EAAV;AACJ,gBAAG,WAAC,CAAW,IAAX;AACJ,gBAAG,aAAC,CAAW,qEAAX;AACJ,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,+BAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,mBAAM,mBAAmB,CAAC,IAAD;AACzB,mBAAM,QAAC,CAAQ,QAAR;AACP,mBAAM,oBAAC,CAAoB,IAApB;AACP,mBAAM,QAAC,CAAQ,CAAR;AACP,mBAAM,OAAC,CAAO,GAAP;AACP,mBAAM,SAAC,CAAS,GAAT;AACP,mBAAM,UAAC,CAAU,GAAV;AACP,mBAAM,SAAQ,OAAC,CAAO,GAAP;AACf,mBAAM,SAAC,CAAS,sCAAT;AACP,mBAAM,sBAAN,GAA+B;AAC/B,mBAAM,gBAAN,GAAyB;AACzB,mBAAM,YAAC,CAAY,EAAZ;AACP,uBAAQ,CAAC,YAAQ,KAAM,mBAAoB,sBAAnC;AACR,mBAAM,WAAC,EAAO;AACK,oBAAd,WAAM,WAAC,EAAO;AAEjB,2BAAa,CAAC,qBAAd;AACA,0BAAY,qBAAZ;AAEF,mBAAM,WAAC,EAAO,UAAC,CAAU,OAAV;AACf,mBAAM,WAAC,EAAO,mBAAC,CAAmB,qBAAnB;AACf,mBAAM,WAAC,EAAO,oBAAC,CAAoB,CAAC,qBAArB;AACf,mBAAM,WAAC,EAAO,oBAAC,CAAoB,qBAApB;AACf,mBAAM,mBAAC,CAAmB,IAAnB;AACP,mBAAM,mBAAC,CAAmB,qBAAnB;AACP,6BAAgB,mBAAmB,CAAC,IAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,QAAC,CAAQ,GAAR;AACjB,6BAAgB,OAAC,CAAO,GAAP;AACjB,6BAAgB,SAAC,CAAS,EAAT;AACjB,6BAAgB,UAAC,CAAU,EAAV;AACjB,6BAAgB,WAAC,CAAW,IAAX;AACjB,6BAAgB,WAAC,CAAW,oFAAX;AACjB,6BAAgB,QAAO;AACK,qBAAvB,qBAAgB,QAAO;AAE1B,uBAAM;AACN,yBAAU;AAEZ,6BAAgB,SAAQ,0BAAxB,GAAqD;AAnOvD;AAqOE,sBAAS;AACT,sBAAS;AACT,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,2BAAc;AACd,qBAAQ;AACR,yBAAY;AACZ,wBAAW;AACX,uBAAU;AACV,uBAAU;AACV,gBAAG;AACH,uBAAU;AACV,mBAAM;AACN,6BAAgB;AAnPlB;AAnC4B;AAvHtB;;;AACJ,6B9Io7BY,8C8Ip7BZ;AACA,6B9Im7BY,8C8In7BZ;AACA,6B/IokBK,uC+IpkBL;AACA,4B/IiGI,sC+IjGJ;AACA,iC/IsRG,qC+ItRH;AACA,2B/IikBK,uC+IjkBL;AACA,4B/I8FI,sC+I9FJ;AACA,+B/ImRG,qC+InRH;AACA,8B/I8jBK,uC+I9jBL;AACA,6B9I26BY,8C8I36BZ;AACA,6B9I06BY,8C8I16BZ;AACA,sB3B4Zc,uD2B5Zd;AACA,6B9Iw6BY,8C8Ix6BZ;AACA,yBDmgBe,yDCngBf;AACA,mCZopBoB,mEYppBpB;AACqB,kCAAO,U5KgGvB,2B4KhGuB,CAAP;AACK,uCAAO,U5K+F5B,2B4K/F4B,CAAP;AACH,oCAAO,U5K8FzB,2B4K9FyB,CAAP;AACE,sCAAO,U5K6F3B,2B4K7F2B,CAAP;AACK,2CAAO,U5K4FhC,2B4K5FgC,CAAP;AApB1B;AA6BN;AACA;AACA;AA7CF,GA+Cc,gBA/Cd;ACAA,+BAES,0SAFT;;;AAWc;;;AACV;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAUA;AACA;AApBU;;;;;;;;;;;;;AAkEoB;AAEhC;AAEA,qBAAU,MAAK,WAAC,CAAM,oEAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,iBAAM,iBAAC,CAAe,SAAf;AACP,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAW,eAAU,iBAAC;AACtB,aAAE,iBAAC,CAAe,SAAf;AACH,cAAG,iBAAC,CAAe,SAAf;AACJ,UAAG,aAAQ,KAAC,UAAZ,EAA4B,aAAQ,iBAAC,CAAe,UAAf,CAArC;AACA,UAAG,aAAQ,KAAC,WAAZ,EAA6B,aAAQ,iBAAC,CAAe,SAAf,CAAtC;AACA,UAAG,aAAQ,KAAC,eAAZ,EAAiC,aAAQ,iBAAC,CAAe,cAAf,CAA1C;AACA,UAAG,aAAQ,KAAC,YAAZ,EAA8B,aAAQ,iBAAC,CAAe,UAAf,CAAvC;AACA,UAAG,aAAQ,KAAC,UAAZ,EAA4B,aAAQ,iBAAC,CAAe,SAAf,CAArC;AACA,UAAG,aAAQ,KAAC,cAAZ,EAAgC,aAAQ,iBAAC,CAAe,YAAf,CAAzC;AACA,UAAG,aAAQ,KAAC,gBAAZ,EAAkC,aAAQ,iBAAC,CAAe,cAAf,CAA3C;AACA,UAAG,aAAQ,KAAC,oBAAZ,EAAsC,aAAQ,iBAAC,CAAe,YAAf,CAA/C;AAEA,UAAG,aAAQ,KAAC,UAAZ,EAA4B,eAAS,KAArC;AACA,UAAG,aAAQ,KAAC,WAAZ,EAA6B,eAAS,KAAtC;AACA,UAAG,aAAQ,KAAC,eAAZ,EAAiC,eAAS,KAA1C;AACA,UAAG,aAAQ,KAAC,YAAZ,EAA8B,eAAS,KAAvC;AACA,UAAG,aAAQ,KAAC,UAAZ,EAA4B,eAAS,IAArC;AACA,UAAG,aAAQ,KAAC,cAAZ,EAAgC,eAAS,IAAzC;AACA,UAAG,aAAQ,KAAC,gBAAZ,EAAkC,eAAS,IAA3C;AACA,UAAG,aAAQ,KAAC,oBAAZ,EAAsC,eAAS,IAA/C;AAEA,mBAAQ,aAAR,GAAsB,iDAAiD,GAAC,sBAAS,CAAC,iBzK8K9B,GyK9K6B,CAAV;AACvE,mBAAQ;AA/BwB;AAkCM;AAEtC,aAAE,YAAC,CAAU,CAAV;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,aAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAP;AACR,UAAG,aAAQ,KAAC,UAAZ,EAA4B,OAAE,SAAM,CAAC,EAAE,EAAI,iBAAP,CAApC;AACA,UAAG,aAAQ,KAAC,WAAZ,EAA6B,OAAE,SAAM,CAAC,EAAE,EAAI,kBAAP,CAArC;AACA,UAAG,aAAQ,KAAC,eAAZ,EAAiC,OAAE,SAAM,CAAC,EAAE,EAAI,sBAAP,CAAzC;AACA,UAAG,aAAQ,KAAC,YAAZ,EAA8B,OAAE,SAAM,CAAC,EAAE,EAAI,kBAAP,CAAtC;AACA,UAAG,aAAQ,KAAC,UAAZ,EAA4B,OAAE,SAAM,CAAC,EAAE,EAAI,iBAAP,CAApC;AACA,UAAG,aAAQ,KAAC,cAAZ,EAAgC,OAAE,SAAM,CAAC,EAAE,EAAI,oBAAP,CAAxC;AACA,UAAG,aAAQ,KAAC,gBAAZ,EAAkC,OAAE,SAAM,CAAC,EAAE,EAAI,sBAAP,CAA1C;AACA,UAAG,aAAQ,KAAC,oBAAZ,EAAsC,OAAE,SAAM,CAAC,EAAE,EAAI,0BAAP,CAA9C;AACA,aAAE,SAAM,CAAC,EAAE,EAAI,MAA6D,GAAtD,aAAQ,YAAY,CAAC,gBAAD,CAAkB,YAAC,EAAxC,GAAkD,KAAD,GAAO,2BAAc,CAAC,aAAa,aAAQ,YAAY,CAAC,OAAD,CAAS,cAAC,EAA5C,CAAnF;AAER,aAAE,SAAM,CAAC,EAAE,EAAI,eAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,aAAQ,YAAY,CAAC,2BAAD,CAA6B,YAAC,EAAhE;AAER,aAAE,SAAM,CAAC,EAAE,EAAI,WAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,uBAAU,CAAC,aAAQ,YAAY,CAAC,aAAD,CAAe,YAAC,GAAS,IAAG,GAAC,IAAD,CAAK,MAAtD,CAAxB;AAER,aAAE,SAAM,CAAC,EAAE,EAAI,qBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,aAAQ,YAAY,CAAC,qBAAD,CAAuB,YAAC,EAA1D;AAER,aAAE,SAAM,CAAC,EAAE,EAAI,cAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,aAAQ,YAAY,CAAC,cAAD,CAAgB,YAAC,EAAnD;AAER,aAAE,SAAM,CAAC,EAAE,EAAI,iBAAP;AACR;AACA,eAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,uBAAU,CAAC,aAAQ,YAAY,CAAC,qBAAD,CAAuB,YAAC,GAAS,IAAG,GAAC,IAAD,CAAK,MAA9D,CAAxB;AADR;;AAIA,aAAE,SAAM,CAAC,EAAE,EAAI,YAAP;AACR,UAAG,eAAK,IAAI,eAAe,KAAC,IAA5B,EAAsC,OAAE,SAAM,CAAC,EAAE,EAAI,wBAAW,CAAC,WAAW,aAAQ,YAAY,CAAC,YAAD,CAAc,WAAC,EAA/C,CAAlB,CAA9C;AACA,UAAG,eAAK,IAAI,eAAe,KAAC,KAA5B,EAAuC,OAAE,SAAM,CAAC,EAAE,EAAI,KAAP,CAA/C;AAEA,wBAAa;AACb,UAAG,aAAQ,KAAC,UAAZ,EAA4B,kBAAa,iBAAC,CAAe,oBAAf,CAA1C;AACA,UAAG,aAAQ,KAAC,WAAZ,EAA6B,kBAAa,iBAAC,CAAe,mBAAf,CAA3C;AACA,UAAG,aAAQ,KAAC,eAAZ,EAAiC,kBAAa,iBAAC,CAAe,wBAAf,CAA/C;AACA,UAAG,aAAQ,KAAC,YAAZ,EAA8B,kBAAa,iBAAC,CAAe,oBAAf,CAA5C;AACA,UAAG,aAAQ,KAAC,UAAZ,EAA4B,kBAAa,iBAAC,CAAe,mBAAf,CAA1C;AACA,UAAG,aAAQ,KAAC,cAAZ,EAAgC,kBAAa,iBAAC,CAAe,sBAAf,CAA9C;AACA,UAAG,aAAQ,KAAC,gBAAZ,EAAkC,kBAAa,iBAAC,CAAe,wBAAf,CAAhD;AACA,UAAG,aAAQ,KAAC,oBAAZ,EAAsC,kBAAa,iBAAC,CAAe,sBAAf,CAApD;AACA,wBAAa,aAAb,GAA2B,kDAAyE,GAAtB,sBAAS,CAAC,iBzK6HpC,GyK7HmC,CAAV,GAAwB,iBAAD;AACpG,wBAAa;AA9CyB;AAiDK;AAE3C;AAEA,cAAG,YAAC,CAAU,kBAAa,eAAC,EAAW,GAAC,CAApC;AACJ,cAAG,YAAC,CAAU,CAAV;AACJ,cAAG,SAAM,CAAC,EAAE,EAAI,OAAP;AACT,cAAG,SAAM,CAAC,EAAE,EAAI,QAAP;AACT,cAAG,SAAM,CAAC,EAAE,EAAI,eAAP;AACT,cAAG,SAAM,CAAC,EAAE,EAAI,qBAAP;AACT,cAAG,SAAM,CAAC,EAAE,EAAI,cAAP;AACT,cAAG,SAAM,CAAC,EAAE,EAAI,OAAP;AACT,cAAG,SAAM,CAAC,EAAE,EAAI,YAAP;AACT,UAAG,YAAH,EAAgB,QAAG,SAAM,CAAC,EAAE,EAAI,YAAP,CAAzB;AACA,cAAG,SAAM,CAAC,EAAE,EAAI,UAAP;AAET,wBAAa;AACb,iBAAM,WAAC,CAAS,IAAT;AACP,eAAS,QAAkB,OAAb,kBAAa,eAAC,IAAD,gBAA3B;AAAI;AAEF,gBAAG,SAAM,CAAC,EAAE,EAAI,kBAAa,YAAY,CAAC,OAAD,CAAS,YAAC,EAA1C;AACT,gBAAG,SAAM,CAAC,EAAE,EAAI,kBAAa,YAAY,CAAC,QAAD,CAAU,YAAC,EAA3C;AACT,gBAAG,SAAM,CAAC,EAAE,EAAI,kBAAa,YAAY,CAAC,6BAAD,CAA+B,YAAC,EAAhE;AACT,gBAAG,SAAM,CAAC,EAAE,EAAI,kBAAa,YAAY,CAAC,qBAAD,CAAuB,YAAC,EAAxD;AACT,gBAAG,SAAM,CAAC,EAAE,EAAI,kBAAa,YAAY,CAAC,qBAAD,CAAuB,YAAC,EAAxD;AACT,gBAAG,SAAM,CAAC,EAAE,EAAI,wBAAwB,GAAC,kBAAa,YAAY,CAAC,OAAD,CAAS,YAAC,EAAnE;AAET,YAAG,CAAI,YAAP;AAEE,cAAG,eAAK,IAAI,eAAe,KAAC,IAA5B;AAEE,oBAAG,SAAM,CAAC,EAAE,EAAI,wBAAwB,GAAC,wBAAW,CAAC,WAAW,kBAAa,YAAY,CAAC,eAAD,CAAiB,WAAC,EAAvD,CAA3C;AACT,oBAAG,SAAM,CAAC,EAAE,EAAI,wBAAwB,GAAC,wBAAW,CAAC,WAAW,kBAAa,YAAY,CAAC,UAAD,CAAY,WAAC,EAAlD,CAA3C;;AAIT,oBAAG,SAAM,CAAC,EAAE,EAAI,KAAP;AACT,oBAAG,SAAM,CAAC,EAAE,EAAI,KAAP;AACT,uBAAM,WAAC,CAAS,KAAT;;SAXX;AAcA,YAAG,YAAH;AAEE,cAAG,eAAK,IAAI,eAAe,KAAC,IAA5B;AAEE,oBAAG,SAAM,CAAC,EAAE,EAAI,wBAAwB,GAAC,wBAAW,CAAC,WAAW,kBAAa,YAAY,CAAC,eAAD,CAAiB,WAAC,EAAvD,CAA3C;AACT,oBAAG,SAAM,CAAC,EAAE,EAAI,wBAAwB,GAAC,wBAAW,CAAC,WAAW,kBAAa,YAAY,CAAC,UAAD,CAAY,WAAC,EAAlD,CAA3C;;AAIT,oBAAG,SAAM,CAAC,EAAE,EAAI,KAAP;AACT,oBAAG,SAAM,CAAC,EAAE,EAAI,KAAP;AACT,uBAAM,WAAC,CAAS,KAAT;;SAXX;AAiBA,0BAAa;;AA1D4B;AArHX;;AACZ;AAElB;AAEA,qBAAkB,KAAW,QAAQ,QAAS,SAA5B;AAClB,YAAG,UAAU,KAAC,OAAd;AAEE,2CAAW,CAAC,2CAAD;;AAIX,yCAAW,SAAS,CAAC,4BAAkB,GAAC,UAAD,CAAY,6CAA/B;;AAXJ;AAepB,UAAG,kBAAH;AAEE,oBAAO,YAAU,CAAC,0BAA0B,CAAC,gBAAD,a1GkHiG,I0GlH5H;;AAIjB,yCAAW,CAAC,iGAAD;;AAtBmB;AA2BI;AAEpC,mBAAQ;AAER,UAAI;AAJgC;AAwJF;AAExB;AAEV,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,iBAAO,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,oBAAU,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAClB,sBAAY,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,2BAAiB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,qBAAW,uCAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAE3B,aAAE;AACF,cAAG;AACH,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,iBAAM;AACN,mBAAQ;AACR,wBAAa;AACb,kBAAO;AACP;AACE,qBAAQ,aAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,wBAAW,aAAX;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,QAAC,CAAQ,CAAR;AACH,eAAE,OAAC,CAAO,GAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,GAAV;AACH,eAAE,oBAAC,CAAoB,gDAApB;AACH,eAAE,eAAC,CAAe,wCAAf;AACH,eAAE,cAAC,CAAc,2CAAd;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,gBAAC,CAAc,CAAd;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,eAAC,CAAe,yCAAf;AACH,eAAE,0BAAC,CAA0B,YAA1B;AACH,eAAE,mBAAC,CAAmB,gDAAnB;AACH,eAAE,yBAAC,CAAyB,gDAAzB;AACH,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,gBAAG,mBAAmB,CAAC,IAAD;AACtB,gBAAG,QAAC,CAAQ,KAAR;AACJ,gBAAG,QAAC,CAAQ,CAAR;AACJ,gBAAG,OAAC,CAAO,GAAP;AACJ,gBAAG,SAAC,CAAS,GAAT;AACJ,gBAAG,UAAC,CAAU,EAAV;AACJ,gBAAG,oBAAC,CAAoB,gDAApB;AACJ,gBAAG,eAAC,CAAe,wCAAf;AACJ,gBAAG,cAAC,CAAc,2CAAd;AACJ,gBAAG,eAAC,CAAe,QAAf;AACJ,gBAAG,gBAAC,CAAc,CAAd;AACJ,gBAAG,aAAC,CAAa,KAAb;AACJ,gBAAG,eAAC,CAAe,yCAAf;AACJ,gBAAG,0BAAC,CAA0B,YAA1B;AACJ,gBAAG,mBAAC,CAAmB,gDAAnB;AACJ,gBAAG,yBAAC,CAAyB,gDAAzB;AACJ,gBAAG,YAAC,CAAY,IAAZ;AACJ,gBAAG,YAAC,CAAY,CAAZ;AACJ,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,mBAAM,mBAAmB,CAAC,IAAD;AACzB,mBAAM,QAAC,CAAQ,QAAR;AACP,mBAAM,QAAC,CAAQ,GAAR;AACP,mBAAM,OAAC,CAAO,GAAP;AACP,mBAAM,SAAC,CAAS,EAAT;AACP,mBAAM,UAAC,CAAU,EAAV;AACP,mBAAM,WAAC,CAAW,KAAX;AACP,mBAAM,gBAAC,CAAc,CAAd;AACP,mBAAM,oBAAC,CAAoB,mCAApB;AACP,mBAAM,eAAC,CAAe,yCAAf;AACP,mBAAM,mBAAC,CAAmB,gDAAnB;AACP,mBAAM,eAAC,CAAe,wCAAf;AACP,mBAAM,iBAAC,CAAiB,sBAAjB;AACP,mBAAM,cAAC,CAAc,wCAAd;AACP,mBAAM,gBAAC,CAAgB,sBAAhB;AACP,uBAAQ,CAAC,YAAQ,KAAM,UAAW,aAA1B;AACR,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,WAAR,GAAsB;AACtB,qBAAQ,iBAAC,CAAiB,UAAjB;AACT,qBAAQ,cAAC,CAAc,aAAG,oBAAjB;AACT,qBAAQ,iBAAC,CAAiB,CAAjB;AACT,qBAAQ,aAAR,GAAwB;AACxB,qBAAQ,QAAC,CAAQ,GAAR;AACT,qBAAQ,OAAC,CAAO,EAAP;AACT,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,iBAAC,CAAiB,mBAAjB;AACd,0BAAa,cAAC,CAAc,aAAG,oBAAjB;AACd,0BAAa,iBAAC,CAAiB,CAAjB;AACd,0BAAa,aAAb,GAA6B;AAC7B,0BAAa,QAAC,CAAQ,GAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,cAAC,CAAc,aAAG,oBAAjB;AACR,oBAAO,QAAC,CAAQ,EAAR;AACR,oBAAO,OAAC,CAAO,EAAP;AAzHV;AA2HE,eAAE;AACF,gBAAG;AACH,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,mBAAM;AACN,qBAAQ;AACR,0BAAa;AACb,oBAAO;AAnIT;AAvBkC;AAnNtB;;;AACV,2BxGIc,kDwGJd;AACA,qBlGs7BW,0CkGt7BX;AACA,sBlGq7BW,0CkGr7BX;AACA,gCxGCc,kDwGDd;AACA,6B/Im7BY,8C+In7BZ;AACA,6B/Ik7BY,8C+Il7BZ;AACA,6BhJmkBK,uCgJnkBL;AACA,yBhJkkBK,uCgJlkBL;AACA,0B1G6Ea,gD0G7Eb;AACqB,kCAAO,U7KyGvB,2B6KzGuB,CAAP;AACM,wCAAQ,W9HmkC7B,wB8HnkC6B,CAAR;AACK,6CAAQ,W9HkkClC,wB8HlkCkC,CAAR;AACX,kCAAO,U7KsGvB,2B6KtGuB,CAAP;AACI,sCAAO,U7KqG3B,2B6KrG2B,CAAP;AAdf;AAyBZ;AACA;AArCF,GAuCc,2CAvCd;ACAA,uCAES,wTAFT;;;AAWmB;;;AACf;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAYA;AACA;AACA;AACA;AAhCe;;;;;;;;;;;;;;;;;;;;;AAuJoB;AAErC;AAEA,qBAAU,MAAK,WAAC,CAAM,0EAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,sBAAW,iBAAC,CAAe,SAAf;AACZ,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,qBAAU,iBAAC,CAAe,SAAf;AAGX,kBAAW,eAAU,iBAAC;AAEtB,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,aAAE,iBAAC,CAAe,SAAf;AAEH,kBAAW,eAAU,iBAAC;AACtB,wBAAa,iBAAC,CAAe,SAAf;AACd,sBAAW,iBAAC,CAAe,SAAf;AAEZ,kBAAW,eAAU,iBAAC;AACtB,yBAAc,iBAAC,CAAe,SAAf;AACf,sBAAW,iBAAC,CAAe,SAAf;AAEZ,kBAAW,eAAU,iBAAC;AACtB,kBAAO,iBAAC,CAAe,SAAf;AACR,mBAAQ,iBAAC,CAAe,SAAf;AACT,UAAG,mBAAc,KAAE,EAAnB;AAEE,kBAAI;AACJ,qBAAQ,WAAC,CAAS,mBAAkB,GAAH,GAAD,GAAK,WAA5B;;AAIT,kBAAI;AACJ,qBAAQ,WAAC,CAAS,MAAT;;AAEX,2BAAgB,CAAC,MAAD;AAxCqB;AA7GK;AAE1C,4BAAgB;AAChB,6BAAU,CAAC,oBAAK;;;;WAAM;;;;WAAO;;;;UAAnB;AACV,wBAAO,eAAK,GAAC,CAAD;AACZ,wBAAa;AACb,oBAAS;AACT,UAAG,kBAAa,QAAC,EAAI,KAAC,UAAtB,EAAsC,cAAS,iBAAC,CAAe,UAAf,CAAhD;AACA,UAAG,kBAAa,QAAC,EAAI,KAAC,WAAtB,EAAuC,cAAS,iBAAC,CAAe,SAAf,CAAjD;AACA,UAAG,kBAAa,QAAC,EAAI,KAAC,eAAtB,EAA2C,cAAS,iBAAC,CAAe,cAAf,CAArD;AACA,UAAG,kBAAa,QAAC,EAAI,KAAC,YAAtB,EAAwC,cAAS,iBAAC,CAAe,UAAf,CAAlD;AACA,UAAG,kBAAa,QAAC,EAAI,KAAC,UAAtB,EAAsC,cAAS,iBAAC,CAAe,SAAf,CAAhD;AACA,UAAG,kBAAa,QAAC,EAAI,KAAC,cAAtB,EAA0C,cAAS,iBAAC,CAAe,YAAf,CAApD;AACA,UAAG,kBAAa,QAAC,EAAI,KAAC,gBAAtB,EAA4C,cAAS,iBAAC,CAAe,cAAf,CAAtD;AACA,UAAG,kBAAa,QAAC,EAAI,KAAC,oBAAtB,EAAgD,cAAS,iBAAC,CAAe,YAAf,CAA1D;AACA,UAAG,OAAH;AAEE,sBAAS,UAAT,GAAoB;AACpB,sBAAS,aAAT,GAAuB,0BAAoD,GAAzB,sBAAS,CAAC,oB1KkNV,G0KlNS,CAAV,GAA2B,+BAAD;;AAI3E,sBAAS,UAAT,GAAoB;AACpB,sBAAS,aAAT,GAAuB,uCAAuD,GAAf,qBAAQ,CAAC,eAAD,CAAT,GAAiB,+BAAD;;AAEhF,oBAAS;AAzBiC;AAwJE;AAE5C;AACA;AAEA,UAAG,OAAH;AAAW,YAAG;AAAO,gBAAG;AACxB,aAAE,WAAC,CAAS,IAAT;AACH,UAAG,kBAAa,QAAC,EAAI,KAAC,UAAtB;AAEE,sBAAS;AACT,eAAE,YAAC,CAAU,cAAS,eAAC,EAAW,GAAC,CAAhC;AACH,eAAE,YAAC,CAAU,CAAC,GAAC,CAAZ;AACH,eAAE,SAAM,CAAC,EAAE,EAAI,aAAP;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,OAAP;AACR,YAAG,CAAI,OAAP;AAEE,iBAAE,SAAM,CAAC,EAAE,EAAI,MAAP;AACR,iBAAE,SAAM,CAAC,EAAE,EAAI,UAAP;SAHV;AAKA,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,qBAAT;AACR,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,YAAT;AACR,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,kBAAT;AACR,wBAAW,WAAC,CAAS,qBAAQ,CAAC,cAAS,eAAC,EAAX,CAAuB,GAAC,oBAAzC;AACZ,eAAM,CAAI,cAAS,OAAC,EAApB;AAEE,cAAG,cAAS,SAAC;AACb,iBAAE,SAAM,CAAC,EAAE,EAAI,cAAS,YAAY,CAAC,gBAAD,CAAkB,YAAC,EAA/C;AACR,iBAAE,SAAM,CAAC,EAAE,EAAI,2BAAc,CAAC,aAAa,cAAS,YAAY,CAAC,OAAD,CAAS,cAAC,EAA7C,CAArB;AACR,cAAG,CAAI,OAAP;AAEE,mBAAE,SAAM,CAAC,EAAE,EAAI,cAAS,YAAY,CAAC,2BAAD,CAA6B,YAAC,EAA1D;AACR,mBAAE,SAAM,CAAC,EAAE,EAAI,cAAS,YAAY,CAAC,UAAD,CAAY,YAAC,EAAzC;WAHV;AAKA,iBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,cAAS,YAAY,CAAC,qBAAD,CAAuB,YAAC,EAAtD;AACR,cAAG,eAAK,IAAI,eAAe,KAAC,IAA5B;AAEE,mBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,wBAAwB,GAAC,wBAAW,CAAC,WAAW,cAAS,YAAY,CAAC,YAAD,CAAc,WAAC,EAAhD,CAA7C;;AAIR,mBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,2BAAT;;AAEV,cAAG,cAAS,YAAY,CAAC,mBAAD,CAAqB,WAAC,EAAO,GAAC,CAAtD;AAEE,mBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,2BAAc,CAAC,aAAa,cAAS,YAAY,CAAC,mBAAD,CAAqB,cAAC,EAAzD,CAAvB;;AAIR,gBAAG,cAAS,YAAY,CAAC,sBAAD,CAAwB,aAAC,EAAjD;AAEE,qBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,gBAAT;;AAIR,qBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,wBAAT;;;AAGZ,wBAAS;;OAlDb;AAsDA,UAAG,kBAAa,QAAC,EAAI,KAAC,WAAtB;AAEE,sBAAS;AACT,eAAE,YAAC,CAAU,cAAS,eAAC,EAAW,GAAC,CAAhC;AACH,eAAE,YAAC,CAAU,CAAC,GAAC,CAAZ;AACH,eAAE,SAAM,CAAC,EAAE,EAAI,aAAP;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,OAAP;AACR,YAAG,CAAI,OAAP;AAEE,iBAAE,SAAM,CAAC,EAAE,EAAI,MAAP;AACR,iBAAE,SAAM,CAAC,EAAE,EAAI,UAAP;SAHV;AAKA,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,qBAAT;AACR,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,YAAT;AACR,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,QAAT;AACR,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,cAAT;AACR,wBAAW,WAAC,CAAS,qBAAQ,CAAC,cAAS,eAAC,EAAX,CAAuB,GAAC,qBAAzC;AACZ,eAAM,CAAI,cAAS,OAAC,EAApB;AAEE,cAAG,cAAS,SAAC;AACb,iBAAE,SAAM,CAAC,EAAE,EAAI,cAAS,YAAY,CAAC,gBAAD,CAAkB,YAAC,EAA/C;AACR,iBAAE,SAAM,CAAC,EAAE,EAAI,2BAAc,CAAC,aAAa,cAAS,YAAY,CAAC,OAAD,CAAS,cAAC,EAA7C,CAArB;AACR,cAAG,CAAI,OAAP;AAEE,mBAAE,SAAM,CAAC,EAAE,EAAI,cAAS,YAAY,CAAC,2BAAD,CAA6B,YAAC,EAA1D;AACR,mBAAE,SAAM,CAAC,EAAE,EAAI,cAAS,YAAY,CAAC,UAAD,CAAY,YAAC,EAAzC;WAHV;AAKA,iBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,cAAS,YAAY,CAAC,qBAAD,CAAuB,YAAC,EAAtD;AACR,cAAG,eAAK,IAAI,eAAe,KAAC,IAA5B;AAEE,mBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,wBAAwB,GAAC,wBAAW,CAAC,WAAW,cAAS,YAAY,CAAC,YAAD,CAAc,WAAC,EAAhD,CAA7C;;AAIR,mBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,2BAAT;;AAGV,iBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,cAAS,YAAY,CAAC,eAAD,CAAiB,YAAC,EAAhD;AACR,iBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,cAAS,YAAY,CAAC,sBAAD,CAAwB,YAAC,EAAvD;AACR,wBAAS;;OAvCb;AA2CA,UAAG,kBAAa,QAAC,EAAI,KAAC,eAAtB;AAEE,sBAAS;AACT,eAAE,YAAC,CAAU,cAAS,eAAC,EAAW,GAAC,CAAhC;AACH,eAAE,YAAC,CAAU,CAAC,GAAC,CAAZ;AACH,eAAE,SAAM,CAAC,EAAE,EAAI,aAAP;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,OAAP;AACR,YAAG,CAAI,OAAP;AAEE,iBAAE,SAAM,CAAC,EAAE,EAAI,MAAP;AACR,iBAAE,SAAM,CAAC,EAAE,EAAI,UAAP;SAHV;AAKA,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,qBAAT;AACR,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,YAAT;AACR,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,YAAT;AACR,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,UAAT;AACR,wBAAW,WAAC,CAAS,qBAAQ,CAAC,cAAS,eAAC,EAAX,CAAuB,GAAC,yBAAzC;AACZ,eAAM,CAAI,cAAS,OAAC,EAApB;AAEE,cAAG,cAAS,SAAC;AACb,iBAAE,SAAM,CAAC,EAAE,EAAI,cAAS,YAAY,CAAC,gBAAD,CAAkB,YAAC,EAA/C;AACR,iBAAE,SAAM,CAAC,EAAE,EAAI,2BAAc,CAAC,aAAa,cAAS,YAAY,CAAC,OAAD,CAAS,cAAC,EAA7C,CAArB;AACR,cAAG,CAAI,OAAP;AAEE,mBAAE,SAAM,CAAC,EAAE,EAAI,cAAS,YAAY,CAAC,2BAAD,CAA6B,YAAC,EAA1D;AACR,mBAAE,SAAM,CAAC,EAAE,EAAI,cAAS,YAAY,CAAC,UAAD,CAAY,YAAC,EAAzC;WAHV;AAKA,iBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,cAAS,YAAY,CAAC,qBAAD,CAAuB,YAAC,EAAtD;AACR,cAAG,eAAK,IAAI,eAAe,KAAC,IAA5B;AAEE,mBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,wBAAwB,GAAC,wBAAW,CAAC,WAAW,cAAS,YAAY,CAAC,YAAD,CAAc,WAAC,EAAhD,CAA7C;;AAIR,mBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,2BAAT;;AAEV,iBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,cAAS,YAAY,CAAC,wBAAD,CAA0B,YAAC,EAAzD;AACR,iBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,cAAS,YAAY,CAAC,kBAAD,CAAoB,YAAC,EAAnD;AACR,wBAAS;;OAtCb;AA0CA,UAAG,kBAAa,QAAC,EAAI,KAAC,YAAtB;AAEE,sBAAS;AACT,eAAE,YAAC,CAAU,cAAS,eAAC,EAAW,GAAC,CAAhC;AACH,eAAE,YAAC,CAAU,CAAC,GAAC,CAAZ;AACH,eAAE,SAAM,CAAC,EAAE,EAAI,aAAP;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,OAAP;AACR,YAAG,CAAI,OAAP;AAEE,iBAAE,SAAM,CAAC,EAAE,EAAI,MAAP;AACR,iBAAE,SAAM,CAAC,EAAE,EAAI,UAAP;SAHV;AAKA,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,qBAAT;AACR,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,YAAT;AACR,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,oBAAT;AACR,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,eAAT;AACR,wBAAW,WAAC,CAAS,qBAAQ,CAAC,cAAS,eAAC,EAAX,CAAuB,GAAC,sBAAzC;AACZ,eAAM,CAAI,cAAS,OAAC,EAApB;AAEE,cAAG,cAAS,SAAC;AACb,iBAAE,SAAM,CAAC,EAAE,EAAI,cAAS,YAAY,CAAC,gBAAD,CAAkB,YAAC,EAA/C;AACR,iBAAE,SAAM,CAAC,EAAE,EAAI,2BAAc,CAAC,aAAa,cAAS,YAAY,CAAC,OAAD,CAAS,cAAC,EAA7C,CAArB;AACR,cAAG,CAAI,OAAP;AAEE,mBAAE,SAAM,CAAC,EAAE,EAAI,cAAS,YAAY,CAAC,2BAAD,CAA6B,YAAC,EAA1D;AACR,mBAAE,SAAM,CAAC,EAAE,EAAI,cAAS,YAAY,CAAC,UAAD,CAAY,YAAC,EAAzC;WAHV;AAKA,iBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,cAAS,YAAY,CAAC,qBAAD,CAAuB,YAAC,EAAtD;AAGR,cAAG,eAAK,IAAI,eAAe,KAAC,IAA5B;AAEE,mBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,wBAAwB,GAAC,wBAAW,CAAC,WAAW,cAAS,YAAY,CAAC,YAAD,CAAc,WAAC,EAAhD,CAA7C;AACR,mBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,wBAAwB,GAAC,wBAAW,CAAC,WAAW,cAAS,YAAY,CAAC,YAAD,CAAc,WAAC,EAAhD,CAA7C;;AAIR,mBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,2BAAT;AACR,mBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,2BAAT;;AAGV,iBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,cAAS,YAAY,CAAC,eAAD,CAAiB,YAAC,EAAhD;AACR,wBAAS;;OA1Cb;AA8CA,UAAG,kBAAa,QAAC,EAAI,KAAC,UAAtB;AAEE,sBAAS;AACT,eAAE,YAAC,CAAU,cAAS,eAAC,EAAW,GAAC,CAAhC;AACH,eAAE,YAAC,CAAU,CAAC,GAAC,CAAZ;AACH,eAAE,SAAM,CAAC,EAAE,EAAI,aAAP;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,OAAP;AACR,YAAG,CAAI,OAAP;AAEE,iBAAE,SAAM,CAAC,EAAE,EAAI,MAAP;AACR,iBAAE,SAAM,CAAC,EAAE,EAAI,UAAP;SAHV;AAKA,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,qBAAT;AACR,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,YAAT;AACR,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,kBAAT;AACR,wBAAW,WAAC,CAAS,qBAAQ,CAAC,cAAS,eAAC,EAAX,CAAuB,GAAC,oBAAzC;AACZ,eAAM,CAAI,cAAS,OAAC,EAApB;AAEE,cAAG,cAAS,SAAC;AACb,iBAAE,SAAM,CAAC,EAAE,EAAI,cAAS,YAAY,CAAC,gBAAD,CAAkB,YAAC,EAA/C;AACR,iBAAE,SAAM,CAAC,EAAE,EAAI,2BAAc,CAAC,aAAa,cAAS,YAAY,CAAC,OAAD,CAAS,cAAC,EAA7C,CAArB;AACR,cAAG,CAAI,OAAP;AAEE,mBAAE,SAAM,CAAC,EAAE,EAAI,cAAS,YAAY,CAAC,2BAAD,CAA6B,YAAC,EAA1D;AACR,mBAAE,SAAM,CAAC,EAAE,EAAI,cAAS,YAAY,CAAC,UAAD,CAAY,YAAC,EAAzC;WAHV;AAKA,iBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,cAAS,YAAY,CAAC,qBAAD,CAAuB,YAAC,EAAtD;AACR,cAAG,eAAK,IAAI,eAAe,KAAC,IAA5B;AAEE,mBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,wBAAwB,GAAC,wBAAW,CAAC,WAAW,cAAS,YAAY,CAAC,YAAD,CAAc,WAAC,EAAhD,CAA7C;;AAIR,mBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,2BAAT;;AAEV,cAAG,cAAS,YAAY,CAAC,mBAAD,CAAqB,WAAC,EAAO,GAAC,CAAtD,EAA6D,OAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,cAAS,YAAY,CAAC,mBAAD,CAAqB,YAAC,EAApD,CAArE;AACA,wBAAS;;OApCb;AAwCA,UAAG,kBAAa,QAAC,EAAI,KAAC,cAAtB;AAEE,sBAAS;AACT,eAAE,YAAC,CAAU,cAAS,eAAC,EAAW,GAAC,CAAhC;AACH,eAAE,YAAC,CAAU,CAAC,GAAC,CAAZ;AACH,eAAE,SAAM,CAAC,EAAE,EAAI,aAAP;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,OAAP;AACR,YAAG,CAAI,OAAP;AAEE,iBAAE,SAAM,CAAC,EAAE,EAAI,MAAP;AACR,iBAAE,SAAM,CAAC,EAAE,EAAI,UAAP;SAHV;AAKA,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,qBAAT;AACR,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,YAAT;AACR,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,WAAT;AACR,wBAAW,WAAC,CAAS,qBAAQ,CAAC,cAAS,eAAC,EAAX,CAAuB,GAAC,wBAAzC;AACZ,eAAM,CAAI,cAAS,OAAC,EAApB;AAEE,cAAG,cAAS,SAAC;AACb,iBAAE,SAAM,CAAC,EAAE,EAAI,cAAS,YAAY,CAAC,gBAAD,CAAkB,YAAC,EAA/C;AACR,iBAAE,SAAM,CAAC,EAAE,EAAI,2BAAc,CAAC,aAAa,cAAS,YAAY,CAAC,OAAD,CAAS,cAAC,EAA7C,CAArB;AACR,cAAG,CAAI,OAAP;AAEE,mBAAE,SAAM,CAAC,EAAE,EAAI,cAAS,YAAY,CAAC,2BAAD,CAA6B,YAAC,EAA1D;AACR,mBAAE,SAAM,CAAC,EAAE,EAAI,cAAS,YAAY,CAAC,UAAD,CAAY,YAAC,EAAzC;WAHV;AAKA,iBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,cAAS,YAAY,CAAC,qBAAD,CAAuB,YAAC,EAAtD;AACR,cAAG,eAAK,IAAI,eAAe,KAAC,IAA5B;AAEE,mBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,wBAAwB,GAAC,wBAAW,CAAC,WAAW,cAAS,YAAY,CAAC,YAAD,CAAc,WAAC,EAAhD,CAA7C;;AAIR,mBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,2BAAT;;AAGV,cAAG,cAAS,YAAY,CAAC,uBAAD,CAAyB,aAAC,EAAS,KAAC,IAA5D;AAAsE,mBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,IAAT;AAA2B,gBAAR,OAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,MAAT;AACzG,wBAAS;;OArCb;AAyCA,UAAG,kBAAa,QAAC,EAAI,KAAC,gBAAtB;AAEE,sBAAS;AACT,eAAE,YAAC,CAAU,cAAS,eAAC,EAAW,GAAC,CAAhC;AACH,eAAE,YAAC,CAAU,CAAC,GAAC,CAAZ;AACH,eAAE,SAAM,CAAC,EAAE,EAAI,aAAP;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,OAAP;AACR,YAAG,CAAI,OAAP;AAEE,iBAAE,SAAM,CAAC,EAAE,EAAI,MAAP;AACR,iBAAE,SAAM,CAAC,EAAE,EAAI,UAAP;SAHV;AAKA,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,qBAAT;AACR,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,YAAT;AACR,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,aAAT;AACR,wBAAW,WAAC,CAAS,qBAAQ,CAAC,cAAS,eAAC,EAAX,CAAuB,GAAC,0BAAzC;AACZ,eAAM,CAAI,cAAS,OAAC,EAApB;AAEE,cAAG,cAAS,SAAC;AACb,iBAAE,SAAM,CAAC,EAAE,EAAI,cAAS,YAAY,CAAC,gBAAD,CAAkB,YAAC,EAA/C;AACR,iBAAE,SAAM,CAAC,EAAE,EAAI,2BAAc,CAAC,aAAa,cAAS,YAAY,CAAC,OAAD,CAAS,cAAC,EAA7C,CAArB;AACR,cAAG,CAAI,OAAP;AAEE,mBAAE,SAAM,CAAC,EAAE,EAAI,cAAS,YAAY,CAAC,2BAAD,CAA6B,YAAC,EAA1D;AACR,mBAAE,SAAM,CAAC,EAAE,EAAI,cAAS,YAAY,CAAC,UAAD,CAAY,YAAC,EAAzC;WAHV;AAKA,iBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,cAAS,YAAY,CAAC,qBAAD,CAAuB,YAAC,EAAtD;AACR,cAAG,eAAK,IAAI,eAAe,KAAC,IAA5B;AAEE,mBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,wBAAwB,GAAC,wBAAW,CAAC,WAAW,cAAS,YAAY,CAAC,YAAD,CAAc,WAAC,EAAhD,CAA7C;;AAIR,mBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,2BAAT;;AAEV,iBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,cAAS,YAAY,CAAC,yBAAD,CAA2B,YAAC,EAA1D;AACR,wBAAS;;OApCb;AAwCA,UAAG,kBAAa,QAAC,EAAI,KAAC,oBAAtB;AAEE,sBAAS;AACT,eAAE,YAAC,CAAU,cAAS,eAAC,EAAW,GAAC,CAAhC;AACH,eAAE,YAAC,CAAU,CAAC,GAAC,CAAZ;AACH,eAAE,SAAM,CAAC,EAAE,EAAI,aAAP;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,OAAP;AACR,YAAG,CAAI,OAAP;AAEE,iBAAE,SAAM,CAAC,EAAE,EAAI,MAAP;AACR,iBAAE,SAAM,CAAC,EAAE,EAAI,UAAP;SAHV;AAKA,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,qBAAT;AACR,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,YAAT;AACR,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,oBAAT;AACR,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,eAAT;AACR,wBAAW,WAAC,CAAS,qBAAQ,CAAC,cAAS,eAAC,EAAX,CAAuB,GAAC,8BAAzC;AACZ,eAAM,CAAI,cAAS,OAAC,EAApB;AAEE,cAAG,cAAS,SAAC;AACb,iBAAE,SAAM,CAAC,EAAE,EAAI,cAAS,YAAY,CAAC,gBAAD,CAAkB,YAAC,EAA/C;AACR,iBAAE,SAAM,CAAC,EAAE,EAAI,2BAAc,CAAC,aAAa,cAAS,YAAY,CAAC,OAAD,CAAS,cAAC,EAA7C,CAArB;AACR,cAAG,CAAI,OAAP;AAEE,mBAAE,SAAM,CAAC,EAAE,EAAI,cAAS,YAAY,CAAC,2BAAD,CAA6B,YAAC,EAA1D;AACR,mBAAE,SAAM,CAAC,EAAE,EAAI,cAAS,YAAY,CAAC,UAAD,CAAY,YAAC,EAAzC;WAHV;AAKA,iBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,cAAS,YAAY,CAAC,qBAAD,CAAuB,YAAC,EAAtD;AAGR,cAAG,eAAK,IAAI,eAAe,KAAC,IAA5B;AAEE,mBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,wBAAwB,GAAC,wBAAW,CAAC,WAAW,cAAS,YAAY,CAAC,YAAD,CAAc,WAAC,EAAhD,CAA7C;AACR,mBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,wBAAwB,GAAC,wBAAW,CAAC,WAAW,cAAS,YAAY,CAAC,YAAD,CAAc,WAAC,EAAhD,CAA7C;;AAIR,mBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,2BAAT;AACR,mBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,2BAAT;;AAEV,iBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,cAAS,YAAY,CAAC,eAAD,CAAiB,YAAC,EAAhD;AACR,wBAAS;;OAzCb;AAzT4C;AA5HF;AAE1C;AAEA,4BAAgB;AAChB,sBAAe,iBAAI,CAAC,mBAAc,QAAC,EAAhB;AACnB,wBAAa;AACb,oBAAS;AACT,UAAG,kBAAa,QAAC,EAAI,KAAC,UAAtB,EAAsC,kBAAa,iBAAC,CAAe,oBAAf,CAApD;AACA,UAAG,kBAAa,QAAC,EAAI,KAAC,WAAtB,EAAuC,kBAAa,iBAAC,CAAe,mBAAf,CAArD;AACA,UAAG,kBAAa,QAAC,EAAI,KAAC,eAAtB,EAA2C,kBAAa,iBAAC,CAAe,wBAAf,CAAzD;AACA,UAAG,kBAAa,QAAC,EAAI,KAAC,YAAtB,EAAwC,kBAAa,iBAAC,CAAe,oBAAf,CAAtD;AACA,UAAG,kBAAa,QAAC,EAAI,KAAC,UAAtB,EAAsC,kBAAa,iBAAC,CAAe,mBAAf,CAApD;AACA,UAAG,kBAAa,QAAC,EAAI,KAAC,cAAtB,EAA0C,kBAAa,iBAAC,CAAe,sBAAf,CAAxD;AACA,UAAG,kBAAa,QAAC,EAAI,KAAC,gBAAtB,EAA4C,kBAAa,iBAAC,CAAe,wBAAf,CAA1D;AACA,UAAG,kBAAa,QAAC,EAAI,KAAC,oBAAtB,EAAgD,kBAAa,iBAAC,CAAe,sBAAf,CAA9D;AAEA,UAAG,OAAH;AAEE,0BAAa,UAAb,GAAwB;AACxB,YAAG,aAAa,KAAC,EAAjB;AAEE,4BAAa,aAAb,GAA2B,8EAAwG,GAAzB,sBAAS,CAAC,oB1KkLpE,G0KlLmE,CAAV,GAA2B,8CAAD;;AAInI,4BAAa,aAAb,GAA2B,gFAA0G,GAAzB,sBAAS,CAAC,oB1K8KtE,G0K9KqE,CAAV,GAA2B,GAAD;AACrI,4BAAa,aAAb,GAA2B,kBAAa,aAA4E,GAA/D,sCAAD,GAAwC,sBAAS,CAAC,c1K6KtD,G0K7KqD,CAAV,GAA0B,IAAD;AACpH,4BAAa,aAAb,GAA2B,kBAAa,aAA0E,GAA7D,oCAAD,GAAsC,sBAAS,CAAC,c1K4KpD,G0K5KmD,CAAV,GAA0B,MAAD;AAClH,4BAAa,aAAb,GAA2B,kBAAa,aAAY,GAAC,8CAAD;;;AAKtD,0BAAa,UAAb,GAAwB;AACxB,YAAG,aAAa,KAAC,EAAjB;AAEE,4BAAa,aAAb,GAA2B;;AAI3B,4BAAa,aAAb,GAA2B;AAC3B,4BAAa,aAAb,GAA2B,kBAAa,aAAwE,GAA3D,kCAAD,GAAoC,sBAAS,CAAC,c1K8JlD,G0K9JiD,CAAV,GAA0B,IAAD;AAChH,4BAAa,aAAb,GAA2B,kBAAa,aAA0E,GAA7D,oCAAD,GAAsC,sBAAS,CAAC,c1K6JpD,G0K7JmD,CAAV,GAA0B,MAAD;AAClH,4BAAa,aAAb,GAA2B,kBAAa,aAAY,GAAC,8CAAD;;;AAGxD,wBAAa;AA/C6B;AAmeM;AAEhD;AACA;AACA;AAEA,aAAE,WAAC,CAAS,IAAT;AACD,UAAG,OAAH;AAAW,YAAG;AAAO,gBAAG;AACxB,wBAAa;AACb,aAAE,YAAC,CAAU,kBAAa,eAAC,EAAW,GAAC,CAApC;AACH,aAAE,YAAC,CAAU,CAAC,GAAC,CAAZ;AACH,gBAAS;AACT,UAAG,kBAAa,QAAC,EAAI,KAAC,UAAtB,EAAsC,OAAE,SAAM,CAAC,EAAE,EAAI,SAAP,CAA9C;AACA,UAAG,kBAAa,QAAC,EAAI,KAAC,WAAtB,EAAuC,OAAE,SAAM,CAAC,EAAE,EAAI,SAAP,CAA/C;AACA,UAAG,kBAAa,QAAC,EAAI,KAAC,eAAtB,EAA2C,OAAE,SAAM,CAAC,EAAE,EAAI,cAAP,CAAnD;AACA,UAAG,kBAAa,QAAC,EAAI,KAAC,YAAtB,EAAwC,OAAE,SAAM,CAAC,EAAE,EAAI,UAAP,CAAhD;AACA,UAAG,kBAAa,QAAC,EAAI,KAAC,UAAtB,EAAsC,OAAE,SAAM,CAAC,EAAE,EAAI,SAAP,CAA9C;AACA,UAAG,kBAAa,QAAC,EAAI,KAAC,cAAtB,EAA0C,OAAE,SAAM,CAAC,EAAE,EAAI,YAAP,CAAlD;AACA,UAAG,kBAAa,QAAC,EAAI,KAAC,gBAAtB,EAA4C,OAAE,SAAM,CAAC,EAAE,EAAI,cAAP,CAApD;AACA,UAAG,kBAAa,QAAC,EAAI,KAAC,oBAAtB,EAAgD,OAAE,SAAM,CAAC,EAAE,EAAI,kBAAP,CAAxD;AACA,UAAG,kBAAa,QAAC,EAAI,KAAC,UAAtB,EAAsC,UAAS,IAA/C;AACA,UAAG,kBAAa,QAAC,EAAI,KAAC,cAAtB,EAA0C,UAAS,IAAnD;AACA,UAAG,kBAAa,QAAC,EAAI,KAAC,gBAAtB,EAA4C,UAAS,IAArD;AACA,UAAG,kBAAa,QAAC,EAAI,KAAC,oBAAtB,EAAgD,UAAS,IAAzD;AACA,aAAE,SAAM,CAAC,EAAE,EAAI,OAAP;AACR,UAAG,CAAI,OAAP;AAEE,eAAE,SAAM,CAAC,EAAE,EAAI,UAAP;OAFV;AAIA,aAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,YAAT;AACR,aAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,qBAAT;AACR,aAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,cAAT;AACR,aAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,OAAT;AACR,aAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,YAAT;AACR,UAAG,OAAH,EAAgB,OAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,YAAT,CAAxB;AACA,sBAAW,WAAC,CAAS,qBAAQ,CAAC,kBAAa,eAAC,EAAf,CAA2B,GAAC,sBAA7C;AACZ,aAAM,CAAI,kBAAa,OAAC,EAAxB;AAEE,YAAG,kBAAa,SAAC;AACjB,eAAE,SAAM,CAAC,EAAE,EAAI,kBAAa,YAAY,CAAC,+BAAD,CAAiC,YAAC,EAAlE;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,2BAAc,CAAC,aAAa,kBAAa,YAAY,CAAC,sBAAD,CAAwB,cAAC,EAAhE,CAArB;AACR,YAAG,CAAI,OAAP;AAEE,iBAAE,SAAM,CAAC,EAAE,EAAI,kBAAa,YAAY,CAAC,yBAAD,CAA2B,YAAC,EAA5D;SAFV;AAIA,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,kBAAa,YAAY,CAAC,6BAAD,CAA+B,YAAC,EAAlE;AACR,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,kBAAa,YAAY,CAAC,qBAAD,CAAuB,YAAC,EAA1D;AACR,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,kBAAa,YAAY,CAAC,qBAAD,CAAuB,YAAC,EAA1D;AACR,eAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,wBAAwB,GAAC,kBAAa,YAAY,CAAC,OAAD,CAAS,YAAC,EAArE;AACR,YAAG,CAAI,OAAP;AAEE,cAAG,eAAK,IAAI,eAAe,KAAC,IAA5B;AAEE,mBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,wBAAwB,GAAC,wBAAW,CAAC,WAAW,kBAAa,YAAY,CAAC,eAAD,CAAiB,WAAC,EAAvD,CAA7C;;AAIR,mBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,KAAT;;SARZ;AAWA,YAAG,OAAH;AAEE,cAAG,eAAK,IAAI,eAAe,KAAC,IAA5B;AAEE,mBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,wBAAwB,GAAC,wBAAW,CAAC,WAAW,kBAAa,YAAY,CAAC,eAAD,CAAiB,WAAC,EAAvD,CAA7C;;AAIR,mBAAE,SAAM,CAAC,CAAC,GAAC,CAAD,CAAG,EAAI,KAAT;;SARZ;AAWA,0BAAa;;AAvE+B;AA1aX;;AAErC;AACuB;AAEZ,eAAN,MAAS,iCAAH,CAAgB,YAAvB,GAAqC,QAAE,SAAM,CAAC,EAAE,IAAH;AACtC,eAAN,MAAS,iCAAH,CAAgB,SAAvB,GAAkC,mBAAa,QAAC;AAChD,gBAAE,WAAC,CAAS,KAAT;AAJgB;AAOG;AAGtB,YAAG,oBAAc,KAAC,CAAlB,EAAyB,sBAAgB,CAAC,IAAD,CAAzC;AACA,YAAG,oBAAc,KAAC,CAAlB,EAAyB,sBAAgB,CAAC,IAAD,CAAzC;AAJsB;AAU1B,oBAAa,iCAAY,QAAC,eAAS,aAAT;AAC1B,iBAAW,YAAU;AArBgB;AAPI;AAEzC,wBAAa;AACb,oBAAS;AACT,UAAI;AAJqC;AA6fF;AAE7B;AAEV,sBAAY,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACnB,qBAAW,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AAClB,yBAAe,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,2BAAiB,gCAAS,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,yBAAe,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,4BAAkB,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,yBAAe,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,uBAAa,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,2BAAiB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,0BAAgB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAE5B,mBAAQ;AACR,kBAAO;AACP,sBAAW;AACX,aAAE;AACF,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,wBAAa;AACb,sBAAW;AACX,yBAAc;AACd,sBAAW;AACX,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,oBAAS;AACT,wBAAa;AACb,uBAAY;AACZ;AACE,qBAAQ,kBAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,wBAAW,uBAAX;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,gCAAmB,gDAAnB;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,GAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,qBAAQ,SAAC,CAAS,EAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,WAAC,CAAW,UAAX;AACT,qBAAQ,gBAAC,CAAc,CAAd;AACT,qBAAQ,oBAAC,CAAoB,kBAApB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,cAAC,CAAc,wCAAd;AACT,qBAAQ,gBAAC,CAAgB,sBAAhB;AACT,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,QAAC,CAAQ,GAAR;AACR,oBAAO,OAAC,CAAO,GAAP;AACR,oBAAO,SAAC,CAAS,EAAT;AACR,oBAAO,UAAC,CAAU,EAAV;AACR,oBAAO,WAAC,CAAW,cAAX;AACR,oBAAO,gBAAC,CAAc,CAAd;AACR,oBAAO,oBAAC,CAAoB,kBAApB;AACR,oBAAO,eAAC,CAAe,yCAAf;AACR,oBAAO,mBAAC,CAAmB,gDAAnB;AACR,oBAAO,eAAC,CAAe,wCAAf;AACR,oBAAO,iBAAC,CAAiB,sBAAjB;AACR,oBAAO,cAAC,CAAc,wCAAd;AACR,oBAAO,gBAAC,CAAgB,sBAAhB;AACR,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,GAAR;AACZ,wBAAW,OAAC,CAAO,EAAP;AACZ,wBAAW,SAAC,CAAS,EAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,WAAC,CAAW,aAAX;AACZ,wBAAW,oBAAC,CAAoB,QAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,cAAC,CAAc,2CAAd;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,QAAC,CAAQ,CAAR;AACH,eAAE,OAAC,CAAO,GAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,GAAV;AACH,eAAE,oBAAC,CAAoB,6DAApB;AACH,eAAE,eAAC,CAAe,wCAAf;AACH,eAAE,cAAC,CAAc,2CAAd;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,gBAAC,CAAc,CAAd;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,eAAC,CAAe,yCAAf;AACH,eAAE,0BAAC,CAA0B,YAA1B;AACH,eAAE,mBAAC,CAAmB,gDAAnB;AACH,eAAE,yBAAC,CAAyB,yDAAzB;AACH,eAAE,YAAC,CAAY,IAAZ;AACH,uBAAQ,CAAC,QAAI,KAAM,cAAe,aAA1B;AACR,eAAE,YAAC,CAAY,CAAZ;AACH,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,QAAC,CAAQ,CAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,0BAAa,SAAC,CAAS,GAAT;AACd,0BAAa,UAAC,CAAU,EAAV;AACd,0BAAa,gBAAC,CAAc,CAAd;AACd,0BAAa,oBAAC,CAAoB,cAApB;AACd,0BAAa,eAAC,CAAe,yCAAf;AACd,0BAAa,mBAAC,CAAmB,gDAAnB;AACd,0BAAa,eAAC,CAAe,wCAAf;AACd,0BAAa,iBAAC,CAAiB,sBAAjB;AACd,0BAAa,QAAC,CAAQ,UAAR;AACd,0BAAa,gBAAC,CAAgB,sBAAhB;AACd,0BAAa,aAAC,CAAa,CAAb;AACd,0BAAa,OAAM;AACnB;AACE,4BAAa,OAAM;AACnB,4BAAa,OAAM,IAAI,CAAC,UAAD;AACvB,4BAAa,OAAM,IAAI,CAAC,WAAD;AACvB,4BAAa,OAAM,IAAI,CAAC,eAAD;AACvB,4BAAa,OAAM,IAAI,CAAC,YAAD;AACvB,4BAAa,OAAM,IAAI,CAAC,UAAD;AACvB,4BAAa,OAAM,IAAI,CAAC,cAAD;AACvB,4BAAa,OAAM,IAAI,CAAC,gBAAD;AACvB,4BAAa,OAAM,IAAI,CAAC,oBAAD;AATzB;AAWE,4BAAa,OAAM;AAXrB;AAaA,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,CAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,EAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,WAAC,CAAW,UAAX;AACZ,wBAAW,gBAAC,CAAc,CAAd;AACZ,wBAAW,oBAAC,CAAoB,mCAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,cAAC,CAAc,wCAAd;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,uBAAQ,CAAC,iBAAa,KAAM,UAAW,kBAA/B;AACR,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,GAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,gBAAC,CAAc,CAAd;AACf,2BAAc,oBAAC,CAAoB,uBAApB;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,iBAAC,CAAiB,sBAAjB;AACf,2BAAc,YAAC,CAAY,aAAZ;AACf,2BAAc,gBAAC,CAAgB,sBAAhB;AACf,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,GAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,GAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,WAAC,CAAW,sBAAX;AACZ,wBAAW,gBAAC,CAAc,CAAd;AACZ,wBAAW,oBAAC,CAAoB,mCAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,cAAC,CAAc,wCAAd;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,uBAAQ,CAAC,iBAAa,KAAM,UAAW,kBAA/B;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,yCAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,yCAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,EAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,yCAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,WAAT,GAAuB;AACvB,sBAAS,cAAC,CAAc,aAAG,oBAAjB;AACV,sBAAS,iBAAC,CAAiB,CAAjB;AACV,sBAAS,QAAC,CAAQ,EAAR;AACV,sBAAS,OAAC,CAAO,CAAP;AACV,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,cAAC,CAAc,aAAG,oBAAjB;AACd,0BAAa,iBAAC,CAAiB,CAAjB;AACd,0BAAa,QAAC,CAAQ,EAAR;AACd,0BAAa,OAAC,CAAO,EAAP;AACd,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAC,CAAW,cAAX;AACb,yBAAY,QAAC,CAAQ,EAAR;AACb,yBAAY,OAAC,CAAO,CAAP;AA/Of;AAiPE,qBAAQ;AACR,oBAAO;AACP,wBAAW;AACX,eAAE;AACF,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,0BAAa;AACb,wBAAW;AACX,2BAAc;AACd,wBAAW;AACX,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,sBAAS;AACT,0BAAa;AACb,yBAAY;AAjQd;AAvCuC;AArnBtB;;;AACf,4BzGIc,kDyGJd;AACA,gCzGGc,kDyGHd;AACA,+B/HkjDS,2B+HljDT;AACA,qBnGo7BW,0CmGp7BX;AACA,6BhJm7BY,8CgJn7BZ;AACA,6BhJk7BY,8CgJl7BZ;AACA,6BjJmkBK,uCiJnkBL;AACA,gCjJiiCO,yCiJjiCP;AACA,8BjJikBK,uCiJjkBL;AACA,iCjJoRG,qCiJpRH;AACA,8BjJ+jBK,uCiJ/jBL;AACA,2BjJ4FI,sCiJ5FJ;AACA,6BhJ26BY,8CgJ36BZ;AACA,6BhJ06BY,8CgJ16BZ;AACA,6BhJy6BY,8CgJz6BZ;AACA,0BjJwFI,sCiJxFJ;AACA,8BjJuFI,sCiJvFJ;AACqB,kCAAO,U9KiGvB,2B8KjGuB,CAAP;AACK,uCAAO,U9KgG5B,2B8KhG4B,CAAP;AACE,yCAAQ,W/H0jC9B,wB+H1jC8B,CAAR;AACF,uCAAO,U9K8F5B,2B8K9F4B,CAAP;AACM,6CAAQ,W/HwjClC,wB+HxjCkC,CAAR;AACX,kCAAO,U9K4FvB,2B8K5FuB,EAAe,qBAAM,oBAA5B;AACI,sCAAO,U9K2F3B,2B8K3F2B,CAAP;AAxBV;AAoCjB;AA/CF,GAiDc,mCAjDd;ACAA,0BAES,2PAFT;;;AAWS;;;AACL;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AASA;AACA;AA1CK;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AA8DoB;AAE3B;AAEA,qBAAU,MAAK,WAAC,CAAM,0DAA+F,GAApC,kBAAD,GAAe,KAAD,GAAO,oBAAD,GAAkB,aAAtG;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAW,eAAU,iBAAC;AACtB,aAAE,iBAAC,CAAe,SAAf;AACH,kBAAW,eAAU,iBAAC;AACtB,oBAAS,iBAAC,CAAe,SAAf;AACV,0BAAe;AACf,0BAAe,aAAf,GAA6B,gDAAgD,GAAC,sBAAS,CAAC,qB3KkMpC,G2KlMmC,CAAV;AAC7E,0BAAe;AAfY;AAkBa;AAExC,+BAAoB;AACpB,+BAAoB,aAApB,GAAkC,gDAAgD,GAAC,sBAAS,CAAC,qB3K2LzC,G2K3LwC,CAAV;AAClF,+BAAoB;AAJoB;AAOK;AAE7C;AACA;AAEA,UAAG;AACH,aAAE,YAAC,CAAU,CAAV;AACH,aAAE,YAAC,CAAU,oBAAe,eAAC,EAAW,GAAC,CAAtC;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,qBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,sBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,mBAAP;AAER,UAAG,oBAAe,eAAC,EAAW,GAAC,CAA/B;AAGE,4BAAe;AACf,eAAM,CAAI,oBAAe,OAAC,EAA1B;AAEM,WAAJ,IAAG;AACH,iBAAE,SAAM,CAAC,EAAE,EAAI,8CAAyC,YAAC,EAAe,GAAN,MAAD,GAAQ,oDAA+C,YAAC,EAAjH;AACR,iBAAE,SAAM,CAAC,EAAE,EAAI,wBAAW,CAAC,WAAW,iCAA4B,WAAC,EAAzC,CAAlB;AACR,iBAAE,SAAM,CAAC,EAAE,EAAI,wBAAW,CAAC,aAAa,8BAAyB,WAAC,EAAxC,CAAlB;AACR,8BAAe;;OAVnB;AAaA,UAAG;AACH,oBAAS,YAAC,CAAU,CAAV;AACV,oBAAS,YAAC,CAAU,yBAAoB,eAAC,EAAW,GAAC,CAA3C;AACV,oBAAS,SAAM,CAAC,EAAE,EAAI,0BAAP;AACf,oBAAS,SAAM,CAAC,EAAE,EAAI,sBAAP;AACf,oBAAS,SAAM,CAAC,EAAE,EAAI,mBAAP;AACf,UAAG,yBAAoB,eAAC,EAAW,GAAC,CAApC;AAGE,iCAAoB;AACpB,eAAM,CAAI,yBAAoB,OAAC,EAA/B;AAEM,WAAJ,IAAG;AACH,wBAAS,SAAM,CAAC,EAAE,EAAI,mDAA8C,YAAC,EAAe,GAAN,MAAD,GAAQ,mDAA8C,YAAC,EAArH;AACf,cAAG,+CAA0C,YAAC,EAAQ,KAAE,EAAxD;AAEE,0BAAS,SAAM,CAAC,EAAE,EAAI,cAAS,SAAM,CAAC,EAAE,CAAH,CAA0B,GAApB,oBAAD,GAAsB,+CAA0C,YAAC,EAA5F;WAFjB;AAIA,cAAG,4CAAuC,WAAC,EAAO,GAAC,CAAnD;AAEE,0BAAS,SAAM,CAAC,EAAE,EAAI,cAAS,SAAM,CAAC,EAAE,CAAH,CAAiC,GAA3B,2BAAD,GAA6B,4CAAuC,YAAC,EAAhG;WAFjB;AAIA,wBAAS,SAAM,CAAC,EAAE,EAAI,wBAAW,CAAC,WAAW,sCAAiC,WAAC,EAA9C,CAAlB;AACf,wBAAS,SAAM,CAAC,EAAE,EAAI,wBAAW,CAAC,aAAa,oCAA+B,WAAC,EAA9C,CAAlB;AACf,mCAAoB;;OAlBxB;AA/B6C;AAlCd;AAE/B,0BAAe;AACf,+BAAoB;AACpB,UAAI;AAJ2B;AA0FF;AAEnB;AAEV,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,uBAAa,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,6BAAmB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,0CAAgC,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,yCAA+B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,2CAAiC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,uDAA6C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1D,6DAAmD,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChE,6DAAmD,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChE,kCAAwB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,+CAAqC,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1D,8CAAoC,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACzD,+CAAqC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,gDAAsC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,wDAA8C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3D,6CAAmC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,qDAA2C,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvD,4DAAkD,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/D,kEAAwD,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrE,kEAAwD,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAErE,aAAE;AACF,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,oBAAS;AACT,qBAAU;AACV,0BAAe;AACf,uCAA4B;AAC5B,sCAA2B;AAC3B,uCAA4B;AAC5B,kCAAuB;AACvB,oCAAyB;AACzB,sCAA2B;AAC3B,qCAA0B;AAC1B,4CAAiC;AACjC,wCAA6B;AAC7B,6CAAkC;AAClC,oDAAyC;AACzC,0DAA+C;AAC/C,0DAA+C;AAC/C,+BAAoB;AACpB,4CAAiC;AACjC,2CAAgC;AAChC,4CAAiC;AACjC,uCAA4B;AAC5B,6CAAkC;AAClC,qDAA0C;AAC1C,0CAA+B;AAC/B,kDAAuC;AACvC,yDAA8C;AAC9C,+DAAoD;AACpD,+DAAoD;AACpD;AACE,qBAAQ,QAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,QAAC,CAAQ,CAAR;AACH,eAAE,OAAC,CAAO,GAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,EAAV;AACH,eAAE,oBAAC,CAAoB,gDAApB;AACH,eAAE,eAAC,CAAe,wCAAf;AACH,eAAE,cAAC,CAAc,2CAAd;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,eAAC,CAAe,yCAAf;AACH,eAAE,0BAAC,CAA0B,YAA1B;AACH,eAAE,mBAAC,CAAmB,gDAAnB;AACH,eAAE,yBAAC,CAAyB,gDAAzB;AACH,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,QAAC,CAAQ,CAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,sBAAS,SAAC,CAAS,GAAT;AACV,sBAAS,UAAC,CAAU,EAAV;AACV,sBAAS,oBAAC,CAAoB,gDAApB;AACV,sBAAS,eAAC,CAAe,wCAAf;AACV,sBAAS,cAAC,CAAc,2CAAd;AACV,sBAAS,eAAC,CAAe,QAAf;AACV,sBAAS,gBAAC,CAAc,CAAd;AACV,sBAAS,aAAC,CAAa,KAAb;AACV,sBAAS,eAAC,CAAe,yCAAf;AACV,sBAAS,0BAAC,CAA0B,YAA1B;AACV,sBAAS,mBAAC,CAAmB,gDAAnB;AACV,sBAAS,yBAAC,CAAyB,gDAAzB;AACV,sBAAS,YAAC,CAAY,IAAZ;AACV,sBAAS,YAAC,CAAY,CAAZ;AACV,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,iBAAC,CAAiB,qBAAjB;AAChB,4BAAe,cAAC,CAAc,aAAG,oBAAjB;AAChB,4BAAe,iBAAC,CAAiB,CAAjB;AAChB,4BAAe,aAAf,GAA+B;AAC/B,4BAAe,QAAC,CAAQ,EAAR;AAChB,4BAAe,OAAC,CAAO,EAAP;AAChB,yCAA4B,mBAAmB,CAAC,oBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,UAA5B,GAAyC;AACzC,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,UAA3B,GAAwC;AACxC,yCAA4B,mBAAmB,CAAC,oBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,oCAAuB,mBAAmB,CAAC,oBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,sCAAyB,mBAAmB,CAAC,oBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,uCAA0B,mBAAmB,CAAC,oBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,8CAAiC,mBAAmB,CAAC,oBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,EAAR;AAClC,0CAA6B,mBAAmB,CAAC,oBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,+CAAkC,mBAAmB,CAAC,oBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,EAAR;AACnC,sDAAyC,mBAAmB,CAAC,oBAAD;AAC5D,sDAAyC,QAAC,CAAQ,2CAAR;AAC1C,sDAAyC,WAAzC,GAAuD;AACvD,sDAAyC,QAAC,CAAQ,EAAR;AAC1C,4DAA+C,mBAAmB,CAAC,oBAAD;AAClE,4DAA+C,QAAC,CAAQ,iDAAR;AAChD,4DAA+C,WAA/C,GAA6D;AAC7D,4DAA+C,QAAC,CAAQ,EAAR;AAChD,4DAA+C,mBAAmB,CAAC,oBAAD;AAClE,4DAA+C,QAAC,CAAQ,iDAAR;AAChD,4DAA+C,WAA/C,GAA6D;AAC7D,4DAA+C,QAAC,CAAQ,GAAR;AAChD,iCAAoB,mBAAmB,CAAC,IAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,iBAAC,CAAiB,0BAAjB;AACrB,iCAAoB,cAAC,CAAc,aAAG,oBAAjB;AACrB,iCAAoB,iBAAC,CAAiB,CAAjB;AACrB,iCAAoB,aAApB,GAAoC;AACpC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,iCAAoB,OAAC,CAAO,GAAP;AACrB,8CAAiC,mBAAmB,CAAC,yBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,UAAjC,GAA8C;AAC9C,6CAAgC,mBAAmB,CAAC,yBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,UAAhC,GAA6C;AAC7C,8CAAiC,mBAAmB,CAAC,yBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,yCAA4B,mBAAmB,CAAC,yBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,+CAAkC,mBAAmB,CAAC,yBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,uDAA0C,mBAAmB,CAAC,yBAAD;AAC7D,uDAA0C,QAAC,CAAQ,4CAAR;AAC3C,uDAA0C,WAA1C,GAAwD;AACxD,uDAA0C,QAAC,CAAQ,EAAR;AAC3C,4CAA+B,mBAAmB,CAAC,yBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,oDAAuC,mBAAmB,CAAC,yBAAD;AAC1D,oDAAuC,QAAC,CAAQ,yCAAR;AACxC,oDAAuC,WAAvC,GAAqD;AACrD,2DAA8C,mBAAmB,CAAC,yBAAD;AACjE,2DAA8C,QAAC,CAAQ,gDAAR;AAC/C,2DAA8C,WAA9C,GAA4D;AAC5D,2DAA8C,QAAC,CAAQ,EAAR;AAC/C,iEAAoD,mBAAmB,CAAC,yBAAD;AACvE,iEAAoD,QAAC,CAAQ,sDAAR;AACrD,iEAAoD,WAApD,GAAkE;AAClE,iEAAoD,QAAC,CAAQ,EAAR;AACrD,iEAAoD,mBAAmB,CAAC,yBAAD;AACvE,iEAAoD,QAAC,CAAQ,sDAAR;AACrD,iEAAoD,WAApD,GAAkE;AAClE,iEAAoD,QAAC,CAAQ,GAAR;AArMvD;AAuME,eAAE;AACF,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,sBAAS;AACT,uBAAU;AACV,4BAAe;AACf,yCAA4B;AAC5B,wCAA2B;AAC3B,yCAA4B;AAC5B,oCAAuB;AACvB,sCAAyB;AACzB,wCAA2B;AAC3B,uCAA0B;AAC1B,8CAAiC;AACjC,0CAA6B;AAC7B,+CAAkC;AAClC,sDAAyC;AACzC,4DAA+C;AAC/C,4DAA+C;AAC/C,iCAAoB;AACpB,8CAAiC;AACjC,6CAAgC;AAChC,8CAAiC;AACjC,yCAA4B;AAC5B,+CAAkC;AAClC,uDAA0C;AAC1C,4CAA+B;AAC/B,oDAAuC;AACvC,2DAA8C;AAC9C,iEAAoD;AACpD,iEAAoD;AAtOtD;AArE6B;AA/ItB;;;AACL,qBpGu7BW,0CoGv7BX;AACA,kC1GGc,kD0GHd;AACA,+C5HKkB,0D4HLlB;AACA,8C5HIkB,0D4HJlB;AACA,+ChI0iBS,2BgI1iBT;AACA,0ChI8ZU,4BgI9ZV;AACA,4ChIwiBS,2BgIxiBT;AACA,8ChIuiBS,2BgIviBT;AACA,6ChIsiBS,2BgItiBT;AACA,oDhI0ZU,4BgI1ZV;AACA,gDhIgmBY,8BgIhmBZ;AACA,qDhIwZU,4BgIxZV;AACA,4DhIuZU,4BgIvZV;AACA,kEhIsZU,4BgItZV;AACA,kEhIqZU,4BgIrZV;AACA,uC1GXc,kD0GWd;AACA,oD5HTkB,0D4HSlB;AACA,oDhI6hBS,2BgI7hBT;AACA,+ChIiZU,4BgIjZV;AACA,qDhIulBY,8BgIvlBZ;AACA,6DhI+YU,4BgI/YV;AACA,kDhIyhBS,2BgIzhBT;AACA,0DhIwhBS,2BgIxhBT;AACA,mD5HhBkB,0D4HgBlB;AACA,iEhI2YU,4BgI3YV;AACA,uEhI0YU,4BgI1YV;AACA,uEhIyYU,4BgIzYV;AACA,6BjJ45BY,8CiJ55BZ;AACA,6BlJ6iBK,uCkJ7iBL;AACA,6BjJ05BY,8CiJ15BZ;AACA,4BpGy5BW,0CoGz5BX;AACA,6BjJw5BY,8CiJx5BZ;AACqB,kCAAO,U/KkFvB,2B+KlFuB,CAAP;AACa,+CAAQ,WhI4iCpC,wBgI5iCoC,CAAR;AACK,oDAAQ,WhI2iCzC,wBgI3iCyC,CAAR;AACd,sCAAO,U/K+E3B,2B+K/E2B,CAAP;AApCpB;AA+CP;AA1DF,GA4Dc,gBA5Dd;ACAA,yCAES,yVAFT;;;AAYwB;;;AACpB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAQA;AACA;AApCoB;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AA2E6B;;AAE/B;AAElB;AAEA,qBAAkB,KAAW,QAAQ,QAAS,SAA5B;AAClB,gCAAiB,uBAAU,CAAC,WAAW,IAAG,GAAC,IAAD,CAAK,MAApB;AAC3B;AANkB;AAWpB,kBAAO,YAAU,CAAC,2BAA2B,CAAC,yBAAoB,YAAC,EAAtB,a7G2EkG,I6G3E9H;AAbkC;AAlBT;AAE1C;AAEA,qBAAU,MAAK,WAAC,CAAM,+EAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AAEX,kBAAW,eAAU,iBAAC;AACtB,aAAE,iBAAC,CAAe,SAAf;AACH,sBAAW;AACX,sBAAW,aAAX,GAAyB,uCAAuC,GAAC,sBAAS,CAAC,U5KsMvB,G4KtMsB,CAAV;AAChE,sBAAW;AAf+B;AARI;AAE9C,sBAAW;AACX,UAAI;AAH0C;AA0CA;AAE9C;AACA;AAEA,aAAE,WAAC,CAAS,IAAT;AACH,aAAE,YAAC,CAAU,EAAV;AACH,aAAE,YAAC,CAAU,CAAV;AACH,UAAG;AAEH,aAAE,SAAM,CAAC,EAAE,EAAI,uBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAuD,GAAhD,wCAAmC,YAAC,EAArC,GAA8C,GAAD,GAAK,oCAA+B,YAAC,EAA/F;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,iBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,+BAA0B,YAAC,EAAzC;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,UAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,wBAAmB,YAAC,EAAlC;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,SAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,uBAAkB,YAAC,EAAjC;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,QAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,sBAAiB,YAAC,EAAzB;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,OAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,qBAAgB,YAAC,EAAxB;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,WAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,yBAAoB,YAAC,EAA5B;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,WAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,uBAAU,CAAC,2BAAsB,YAAC,GAAS,IAAG,GAAC,IAAD,CAAK,MAAzC,CAAxB;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,SAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,eAAwF,GAAxE,6BAAwB,YAAC,EAA1B,GAAmC,IAAD,GAAM,6BAAwB,YAAC,EAA1B,GAAmC,MAAhG;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,aAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,eAA8F,GAA9E,gCAA2B,YAAC,EAA7B,GAAsC,IAAD,GAAM,gCAA2B,YAAC,EAA7B,GAAsC,MAAtG;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,OAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,eAAsF,GAAtE,4BAAuB,YAAC,EAAzB,GAAkC,IAAD,GAAM,4BAAuB,YAAC,EAAzB,GAAkC,MAA9F;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,SAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,6BAAwB,YAAC,EAAhC;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,OAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,kBAA2E,GAAxD,qBAAgB,YAAC,EAAlB,GAA2B,IAAD,GAAM,qBAAgB,YAAC,EAAlB,GAA2B,MAAnF;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,UAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,kBAAiG,GAA9E,wBAAmB,YAAC,EAArB,GAA8B,oBAAD,GAAsB,wBAAmB,YAAC,EAArB,GAA8B,MAAzG;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,aAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,4BAAuB,YAAC,EAA/B;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,YAAP;AACR,UAAG,0BAAqB,YAAC,EAAQ,KAAE,EAAnC,EAA2C,OAAE,SAAM,CAAC,EAAE,EAAI,2BAAc,CAAC,aAAa,0BAAqB,cAAC,EAApC,CAArB,CAAnD;AACI,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,YAAP;AACR,UAAG,8BAAyB,aAAC,EAAS,KAAC,IAAvC;AAAiD,eAAE,SAAM,CAAC,EAAE,EAAI,iBAAP;AAAsC,YAAR,OAAE,SAAM,CAAC,EAAE,EAAI,IAAP;AAC3F,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,WAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,oBAAP;AA9DsC;AAmEF;AAElC;AAEV,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,yBAAe,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,iDAAuC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,mCAAyB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,qBAAW,uCAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAE3B,aAAE;AACF,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,sBAAW;AACX,8CAAmC;AACnC,0CAA+B;AAC/B,qCAA0B;AAC1B,+BAAoB;AACpB,8BAAmB;AACnB,6BAAkB;AAClB,mCAAwB;AACxB,sCAA2B;AAC3B,mCAAwB;AACxB,kCAAuB;AACvB,2BAAgB;AAChB,8BAAmB;AACnB,gCAAqB;AACrB,+BAAoB;AACpB,oCAAyB;AACzB,iCAAsB;AACtB,kCAAuB;AACvB,2BAAgB;AAChB,0BAAe;AACf,4BAAiB;AACjB,kBAAO;AACP;AACE,qBAAQ,uBAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,QAAC,CAAQ,EAAR;AACH,eAAE,OAAC,CAAO,GAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,GAAV;AACH,eAAE,oBAAC,CAAoB,gDAApB;AACH,eAAE,eAAC,CAAe,wCAAf;AACH,eAAE,cAAC,CAAc,2CAAd;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,eAAC,CAAe,yCAAf;AACH,eAAE,0BAAC,CAA0B,YAA1B;AACH,eAAE,mBAAC,CAAmB,gDAAnB;AACH,eAAE,yBAAC,CAAyB,gDAAzB;AACH,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,wBAAW,iBAAC,CAAiB,iBAAjB;AACZ,wBAAW,cAAC,CAAc,aAAG,oBAAjB;AACZ,wBAAW,iBAAC,CAAiB,CAAjB;AACZ,wBAAW,UAAX,GAAwB;AACxB,wBAAW,QAAC,CAAQ,EAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,gDAAmC,mBAAmB,CAAC,gBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,gDAAmC,QAAC,CAAQ,EAAR;AACpC,4CAA+B,mBAAmB,CAAC,gBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,uCAA0B,mBAAmB,CAAC,gBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,iCAAoB,mBAAmB,CAAC,gBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,gCAAmB,mBAAmB,CAAC,gBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,+BAAkB,mBAAmB,CAAC,gBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,qCAAwB,mBAAmB,CAAC,gBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,wCAA2B,mBAAmB,CAAC,gBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,qCAAwB,mBAAmB,CAAC,gBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,oCAAuB,mBAAmB,CAAC,gBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,6BAAgB,mBAAmB,CAAC,gBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,gCAAmB,mBAAmB,CAAC,gBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,kCAAqB,mBAAmB,CAAC,gBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,iCAAoB,mBAAmB,CAAC,gBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,GAAR;AACrB,sCAAyB,mBAAmB,CAAC,gBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,mCAAsB,mBAAmB,CAAC,gBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,oCAAuB,mBAAmB,CAAC,gBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,GAAR;AACxB,6BAAgB,mBAAmB,CAAC,gBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,4BAAe,mBAAmB,CAAC,gBAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,UAAf,GAA4B;AAC5B,4BAAe,QAAC,CAAQ,EAAR;AAChB,8BAAiB,mBAAmB,CAAC,gBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,cAAC,CAAc,aAAG,oBAAjB;AACR,oBAAO,QAAC,CAAQ,EAAR;AACR,oBAAO,OAAC,CAAO,CAAP;AAtKV;AAwKE,eAAE;AACF,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,wBAAW;AACX,gDAAmC;AACnC,4CAA+B;AAC/B,uCAA0B;AAC1B,iCAAoB;AACpB,gCAAmB;AACnB,+BAAkB;AAClB,qCAAwB;AACxB,wCAA2B;AAC3B,qCAAwB;AACxB,oCAAuB;AACvB,6BAAgB;AAChB,gCAAmB;AACnB,kCAAqB;AACrB,iCAAoB;AACpB,sCAAyB;AACzB,mCAAsB;AACtB,oCAAuB;AACvB,6BAAgB;AAChB,4BAAe;AACf,8BAAiB;AACjB,oBAAO;AAlMT;AA3D4C;AA9JtB;;;AACpB,8B3GGc,kD2GHd;AACA,qBrGq7BW,0CqGr7BX;AACA,0B7GkFa,gD6GlFb;AACA,6BlJm7BY,8CkJn7BZ;AACA,6BlJk7BY,8CkJl7BZ;AACA,6BnJmkBK,uCmJnkBL;AACA,6BlJg7BY,8CkJh7BZ;AACA,sDjI2ZU,4BiI3ZV;AACA,kDjI0ZU,4BiI1ZV;AACA,6CjIyZU,4BiIzZV;AACA,uCjIwZU,4BiIxZV;AACA,sCjIuZU,4BiIvZV;AACA,qCjIsZU,4BiItZV;AACA,2CjIqZU,4BiIrZV;AACA,8CjIoZU,4BiIpZV;AACA,2CjImZU,4BiInZV;AACA,0CjIkZU,4BiIlZV;AACA,mCjIiZU,4BiIjZV;AACA,sCjIgZU,4BiIhZV;AACA,wCjIslBY,8BiItlBZ;AACA,uCjI8YU,4BiI9YV;AACA,4CjI2jBW,6BiI3jBX;AACA,yCjI4YU,4BiI5YV;AACA,0CjI2YU,4BiI3YV;AACA,mCjI0YU,4BiI1YV;AACA,kCjIyYU,4BiIzYV;AACA,oCjIwYU,4BiIxYV;AAC8B,2CAAQ,WjIijChC,wBiIjjCgC,CAAR;AACT,kCAAO,UhLqFvB,2BgLrFuB,CAAP;AACI,sCAAO,UhLoF3B,2BgLpF2B,CAAP;AA9BL;AAyCtB;AArDF,GAuDc,4CAvDd;ACAA,wCAES,oVAFT;;;AAYuB;;;AACnB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAOA;AACA;AACA;AACA;AAhCmB;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAuEoB;AAEzC,mBAAQ,aAAR,GAAsB,0BAAoD,GAAzB,sBAAS,CAAC,oB7KoMP,G6KpMM,CAAV,GAA2B,2BAAD;AAC1E,mBAAQ;AAHiC;AAMM;AAE/C;AACA;AAEA,qBAAU,MAAK,WAAC,CAAM,+DAAgG,GAA/B,mBAAF,GAAkB,IAAF,GAAO,eAAD,GAAY,aAAvG;AAChB,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,2BAAe,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,wBAAa,oBAAC,CAAkB,4BAAlB;AACd,wBAAa,eAAC,CAAa,wCAAb;AACd,wBAAa,cAAC,CAAY,wCAAZ;AACd,wBAAa,OAAb,GAAmB;AACnB,wBAAa,WAAC,CAAS,YAAT;AACd,wBAAa,SAAb,GAAwB;AACxB,wBAAa,iBAAC,CAAe,SAAf;AAEd,aAAM,CAAI,aAAQ,OAAC,EAAnB;AAEE,sBAAa,+BAAgE,GAAhC,4BAAuB,YAAC,EAAzB,GAAkC,aAAD;AAC7E,sBAAa,WAAqE,GAAzD,0BAAD,GAA4B,qBAAgB,YAAC,EAAlB,GAA2B,IAAD,GAAM,oBAAe,YAAC,EAAjB;AAClF,sBAAa,WAA6C,GAAjC,MAAD,GAAQ,sBAAiB,YAAC,EAAnB,GAA4B,MAAD;AAC1D,sBAAa,WAAiD,GAArC,MAAD,GAAQ,0BAAqB,YAAC,EAAvB,GAAgC,MAAD;AAC9D,sBAAa,WAAgD,GAApC,MAAD,GAAQ,yBAAoB,YAAC,EAAtB,GAA+B,MAAD;AAC7D,sBAAa,WAAyC,GAA7B,MAAD,GAAQ,kBAAa,YAAC,EAAf,GAAwB,MAAD;AACtD,sBAAa,WAA4C,GAAhC,MAAD,GAAQ,qBAAgB,YAAC,EAAlB,GAA2B,MAAD;AACzD,YAAG,sBAAiB,YAAC,EAAQ,KAAE,EAA/B,EAAuC,cAAa,WAAoD,GAAxC,aAAD,GAAe,sBAAiB,YAAC,EAAnB,GAA4B,MAAzG;AACA,sBAAa,WAAW,GAAC,QAAD;AACxB,oBAAW,eAAU,iBAAC;AACtB,0BAAY,+BAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,uBAAU,MAAC,CAAW,iBAAY,YAAC,EAAxB;AACX,uBAAU,eAAC,CAAa,wCAAb;AACX,uBAAU,SAAC,CAAO,GAAP;AACX,uBAAU,MAAK,WAAC,CAAM,WAAN;AAChB,uBAAU,oBAAC,CAAkB,sBAAlB;AACX,uBAAU,SAAV,GAAqB;AACrB,uBAAU,iBAAC,CAAe,SAAf;AACX,qBAAQ;;AArCqC;AAjCC;AAEhD,mBAAQ;AACR,UAAI;AAH4C;AAMH;;AAE7C;AACA;AAEA,mBAAoB,OAAP,OAAU,+BAAH,CAAY,MAAC;AACjC,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,6DAAyB,qDAAsB,QAAC,eAAS,CAAC;AAE/C,eAAN,MAAS,qDAAH,CAA0B,KAAjC,GAAwC;AAFc,OAAD,CAAT;AAMhD,0DAAqB,YAAU,CAAC;AAE5B,sBAAQ;AACR,sBAAQ;AAHoB,OAAD;AAbc;AAoEF;AAEjC;AAEV,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,sBAAY,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,2BAAiB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,gCAAsB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,oCAA0B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,2BAAiB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,4BAAkB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAE/B,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,mBAAQ;AACR,kCAAuB;AACvB,4BAAiB;AACjB,2BAAgB;AAChB,0BAAe;AACf,gCAAqB;AACrB,mCAAwB;AACxB,gCAAqB;AACrB,+BAAoB;AACpB,wBAAa;AACb,2BAAgB;AAChB,6BAAkB;AAClB,4BAAiB;AACjB,iCAAsB;AACtB,8BAAmB;AACnB,+BAAoB;AACpB,wBAAa;AACb,uBAAY;AACZ,yBAAc;AACd;AACE,qBAAQ,sBAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,kBAAI,SAAJ,GAAgB;AAChB,kBAAI,SAAC,CAAS,KAAT;AACL,kBAAI,UAAC,CAAU,CAAC,EAAX;AACL,kBAAI,QAAC,CAAQ,QAAR;AACL,kBAAI,SAAC,CAAS,EAAT;AACL,2BAAc,KAAd;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,WAAR,GAAsB;AACtB,qBAAQ,iBAAC,CAAiB,iBAAjB;AACT,qBAAQ,cAAC,CAAc,aAAG,oBAAjB;AACT,qBAAQ,iBAAC,CAAiB,CAAjB;AACT,qBAAQ,UAAR,GAAqB;AACrB,qBAAQ,QAAC,CAAQ,EAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,oCAAuB,mBAAmB,CAAC,aAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,8BAAiB,mBAAmB,CAAC,aAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,6BAAgB,mBAAmB,CAAC,aAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,4BAAe,mBAAmB,CAAC,aAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,EAAR;AAChB,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,qCAAwB,mBAAmB,CAAC,aAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,0BAAa,mBAAmB,CAAC,aAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,QAAC,CAAQ,EAAR;AACd,6BAAgB,mBAAmB,CAAC,aAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,8BAAiB,mBAAmB,CAAC,aAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,GAAR;AAClB,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,gCAAmB,mBAAmB,CAAC,aAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,GAAR;AACpB,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,GAAR;AACrB,0BAAa,mBAAmB,CAAC,aAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,yBAAY,mBAAmB,CAAC,aAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,UAAZ,GAAyB;AACzB,yBAAY,QAAC,CAAQ,EAAR;AACb,2BAAc,mBAAmB,CAAC,aAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,QAAC,CAAQ,EAAR;AAnIjB;AAqIE,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,qBAAQ;AACR,oCAAuB;AACvB,8BAAiB;AACjB,6BAAgB;AAChB,4BAAe;AACf,kCAAqB;AACrB,qCAAwB;AACxB,kCAAqB;AACrB,iCAAoB;AACpB,0BAAa;AACb,6BAAgB;AAChB,+BAAkB;AAClB,8BAAiB;AACjB,mCAAsB;AACtB,gCAAmB;AACnB,iCAAoB;AACpB,0BAAa;AACb,yBAAY;AACZ,2BAAc;AA1JhB;AAjD2C;AAtHtB;;;AACnB,2B5GGc,kD4GHd;AACA,6BnJq7BY,8CmJr7BZ;AACA,6BnJo7BY,8CmJp7BZ;AACA,6BnJm7BY,8CmJn7BZ;AACA,0ClI8ZU,4BkI9ZV;AACA,oClI6ZU,4BkI7ZV;AACA,mClI4ZU,4BkI5ZV;AACA,kClI2ZU,4BkI3ZV;AACA,wClI0ZU,4BkI1ZV;AACA,2ClIyZU,4BkIzZV;AACA,wClIwZU,4BkIxZV;AACA,uClIuZU,4BkIvZV;AACA,gClIsZU,4BkItZV;AACA,mClIqZU,4BkIrZV;AACA,qClI2lBY,8BkI3lBZ;AACA,oClImZU,4BkInZV;AACA,yClIgkBW,6BkIhkBX;AACA,sClIiZU,4BkIjZV;AACA,uClIgZU,4BkIhZV;AACA,gClI+YU,4BkI/YV;AACA,+BlI8YU,4BkI9YV;AACA,iClI6YU,4BkI7YV;AACqB,kCAAO,UjL2FvB,2BiL3FuB,CAAP;AACM,wCAAQ,WlIqjC7B,wBkIrjC6B,CAAR;AAxBR;AAsCrB;AAlDF,GAoDc,iEApDd;ACAA,4BAES,qRAFT;;;AAWW;;;AACP;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAqBA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA3DO;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAiN2C;AAEpD,yBAAc,WAAC,CAAS,KAAT;AACf,uBAAY,WAAC,CAAS,IAAT;AACb,uBAAY,WAAC,CAAS,IAAT;AAJuC;AAkDvB;AAE7B,oBAAS;AAFoB;AA1DM;AAEnC,qBAAU;AACV,qBAAU,WAAC,CAAS,KAAT;AACX,yBAAc,WAAC,CAAS,IAAT;AACf,uBAAY,WAAC,CAAS,KAAT;AALsB;AAxFE;AAErC,UAAG,eAAU,eAAc,SAAC,EAAK,GAAC,CAAlC;AAEE,sBAAS,WAAC,CAAS,wBAAT;AACV,yBAAY,WAAC,CAAS,KAAT;AACb;;AAIA,sBAAS,WAAC,CAAS,EAAT;;AAEZ,qBAAU,WAAC,CAAS,IAAT;AACX,qBAAU;AAb2B;AAuGJ;AAEjC,6BAAiB,eAAU,kBAAC;AAC5B,kBAAO,OAAC,CAAO,eAAU,kBAAC,EAAlB;AACR,4BAAiB,CAAC,MAAD;AACjB,qBAAU;AALuB;AAlEG;AAEpC;AACA;AAEA,UAAG,kBAAa,KAAC,MAAjB;AAA6B,qBAAY;AAAwB,yBAAY;AAC7E,qBAAU,MAAK,WAAC,CAAM,8CAAyD,GAAV,UAAD,GAAY,aAAhE;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,uBAAY,iBAAC,CAAe,SAAf;AACb,yBAAc,iBAAC,CAAe,SAAf;AACf,uBAAY,iBAAC,CAAe,SAAf;AACb,kBAAO,iBAAC,CAAe,SAAf;AACR,kBAAW,eAAU,iBAAC;AACtB,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,yBAAc,iBAAC,CAAe,SAAf;AACf,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AAEX,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,oBAAS,iBAAC,CAAe,SAAf;AAEV,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AAGX,UAAG,kBAAa,KAAC,MAAjB;AAEE,2BAAc,WAAC,CAAS,KAAT;AACf,2BAAc,WAAC,CAAS,IAAT;AACf,yBAAY,WAAC,CAAS,IAAT;AACb,sBAAS,WAAC,CAAS,IAAT;AACV,gCAAmB,CAAC,IAAD;;AAInB,2BAAc,WAAC,CAAS,IAAT;AACf,uBAAU,WAAC,CAAS,KAAT;AACX,2BAAc,WAAC,CAAS,KAAT;AACf,yBAAY,WAAC,CAAS,KAAT;AACb,sBAAS,WAAC,CAAS,KAAT;;AA1CwB;AApBH;AAEjC,UAAI;AAF6B;AA4HE;AAEnC,oBAAS;AAF0B;AA9BG;AAEtC,6BAAiB;AACjB,UAAG,mBAAc,OAAM,SAAC,EAAK,GAAC,CAA9B;AAEE,YAAG,mBAAc,OAAM,UAAM,CAAC,CAAD,CAAG,MAAK,GAAC,OAAtC;AAEE,6BAAc,OAAM,UAAM,CAAC,CAAD,CAAG;;AAI7B,2CAAW,CAAC,gDAAD;;OARf;AAHsC;AAgBS;AAG/C,6BAAkB,OAA8D,GAApD,mBAAc,OAAM,UAAM,CAAC,CAAD,CAAG,UAA/B,GAA2C,UAAF,GAAe,OAAF;AAChF,UAAG,mBAAc,OAAM,UAAM,CAAC,CAAD,CAAG,UAAS,KAAC,WAA1C,EAA2D,YAAO,OAAC,CAAO,oBAAP,CAAnE;AACA,UAAG,mBAAc,OAAM,UAAM,CAAC,CAAD,CAAG,UAAS,KAAC,YAA1C,EAA4D,YAAO,OAAC,CAAO,oBAAP,CAApE;AACA,UAAG,mBAAc,OAAM,UAAM,CAAC,CAAD,CAAG,UAAS,KAAC,WAA1C,EAA2D,YAAO,OAAC,CAAO,oBAAP,CAAnE;AAN+C;AA1KZ;AAEnC;AACA;AAEA,UAAG,eAAU,QAAC,EAAI,KAAC,EAAnB;AAEE,yCAAW,CAAC,yBAAD;AACX;OAHF;AAKA,UAAG,oBAAe,KAAC,EAAnB;AAEE,yCAAW,CAAC,6BAAD;AACX;OAHF;AAMA,oBAAS;AACT,gCAAqB,cAAC,CAAY,mBAAI,GAAC,mBAAjB;AACtB,gCAAqB,YAAC,CAAU,eAAU,QAAC,EAArB;AACtB,UAAG,kBAAa,KAAC,MAAjB;AAEE,+BAAkB,YAAC,CAAU,WAAV;AACnB,kCAAqB,aAAC,CAAkB,oBAAD,OAAjB;AACtB,+BAAkB,YAAC,CAAU,eAAK,mBAAmB,CAAC,oBAAO,CAAC,eAAU,QAAC,GAAK,EAAjB,CAAR,CAA6B,GAAC,MAAhE;;AAInB,+BAAkB,YAAC,CAAU,mBAAc,OAAM,UAAM,CAAC,CAAD,CAAG,UAAvC;AACnB,kCAAqB,aAAC,CAAW,mBAAc,OAAM,UAAM,CAAC,CAAD,CAAG,MAAxC;AACtB,2BAAkB,mBAAc,OAAM,UAAM,CAAC,CAAD,CAAG;AAC/C,0BAAiB,2BAAc,CAAC,mBAAc,OAAM,UAAM,CAAC,CAAD,CAAG,MAA9B;AAC/B,2BAAkB,uBAAU,CAAC,iBAAiB,gBAAgB,EAAlC;AAC5B,2BAAkB,eAAK,mBAAmB,CAAC,gBAAD;AAC1C,+BAAkB,YAAC,CAAU,gBAAgB,GAAC,eAA3B;;AAErB,mCAAwB,YAAC,CAAU,oBAAV;AACzB,gCAAqB,YAAC,CAAU,4BAAV;AACtB,kCAAuB,YAAC,CAAU,8BAAV;AACxB,kCAAuB,YAAC,CAAU,8BAAV;AACxB,8BAAmB,YAAC,CAAU,0BAAV;AACpB,oBAAS;AAxC0B;AA8HC;AAEpC,oBAAS;AAF2B;AA7DQ;AAG5C;AAEA,eAAS,QAAS,kBAAC,IAAI,QAAL,uBAAlB;AAAI;AAEF,YAAG,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAM,KAAE,EAA1B,EAAkC,iCAAW,CAAC,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAhB,CAA7C;;AAEF,UAAG,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAM,KAAC,EAAzB;AAEE;OAFF;AAT4C;AAkHd;AAE9B,iBAAQ,uCAAR;AAF8B;AAcC;AAErB;AAEV,qBAAW,oCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzB,wBAAc,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,uBAAa,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,0BAAgB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,4BAAkB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,4BAAkB,iCAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,0BAAgB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,uBAAa,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,yBAAe,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,mCAAyB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,mCAAyB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,iCAAuB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAErC,kBAAO;AACP,qBAAU;AACV,oBAAS;AACT,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,uBAAY;AACZ,yBAAc;AACd,qBAAU;AACV,qBAAU;AACV,yBAAc;AACd,qBAAU;AACV,uBAAY;AACZ,qBAAU;AACV,oBAAS;AACT,sBAAW;AACX,gCAAqB;AACrB,6BAAkB;AAClB,6BAAkB;AAClB,gCAAqB;AACrB,mCAAwB;AACxB,oCAAyB;AACzB,6BAAkB;AAClB,gCAAqB;AACrB,gCAAqB;AACrB,kCAAuB;AACvB,kCAAuB;AACvB,8BAAmB;AACnB;AACE,qBAAQ,UAAR;AACA,oBAAO,CAAP;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,wBAAW,UAAX;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,kBAAI,SAAJ,GAAgB;AAChB,kBAAI,SAAC,CAAS,KAAT;AACL,kBAAI,UAAC,CAAU,CAAC,EAAX;AACL,kBAAI,QAAC,CAAQ,OAAR;AACL,kBAAI,SAAC,CAAS,EAAT;AACL,2BAAc,KAAd;AACA,qBAAQ,CAAC,KAAM,UAAW,cAAlB;AACR,qBAAQ,CAAC,KAAM,eAAgB,mBAAvB;AACR,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,QAAC,CAAQ,CAAR;AACR,oBAAO,OAAC,CAAO,GAAP;AACR,oBAAO,SAAC,CAAS,GAAT;AACR,oBAAO,UAAC,CAAU,EAAV;AACR,oBAAO,cAAC,CAAc,wCAAd;AACR,oBAAO,iBAAC,CAAiB,sBAAjB;AACR,oBAAO,gBAAC,CAAgB,sBAAhB;AACR,oBAAO,gBAAC,CAAc,CAAd;AACR,oBAAO,eAAC,CAAe,yCAAf;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,EAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,iCAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,QAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAgB,qBAAhB;AACX,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,QAAC,CAAQ,EAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,sBAAS,SAAC,CAAS,EAAT;AACV,sBAAS,UAAC,CAAU,EAAV;AACV,sBAAS,WAAC,CAAW,WAAX;AACV,sBAAS,oBAAC,CAAoB,QAApB;AACV,sBAAS,eAAC,CAAe,yCAAf;AACV,sBAAS,mBAAC,CAAmB,gDAAnB;AACV,sBAAS,eAAC,CAAe,wCAAf;AACV,sBAAS,iBAAC,CAAiB,sBAAjB;AACV,sBAAS,cAAC,CAAc,wCAAd;AACV,sBAAS,gBAAC,CAAgB,sBAAhB;AACV,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,oBAAC,CAAoB,IAApB;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,GAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAgB,qBAAhB;AACX,uBAAU,kBAAV,GAAyB;AACzB,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAQ,CAAC,gBAAY,KAAM,6BAA8B,oCAAjD;AACR,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,wBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,QAAC,CAAQ,CAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,EAAT;AACb,yBAAY,UAAC,CAAU,EAAV;AACb,yBAAY,WAAC,CAAW,SAAX;AACb,yBAAY,gBAAC,CAAc,CAAd;AACb,yBAAY,oBAAC,CAAoB,mCAApB;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,mBAAC,CAAmB,gDAAnB;AACb,yBAAY,eAAC,CAAe,wCAAf;AACb,yBAAY,iBAAC,CAAiB,sBAAjB;AACb,yBAAY,cAAC,CAAc,wCAAd;AACb,yBAAY,gBAAC,CAAgB,sBAAhB;AACb,uBAAQ,CAAC,kBAAc,KAAM,UAAW,mBAAhC;AACR,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,CAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,EAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,WAAC,CAAW,QAAX;AACf,2BAAc,gBAAC,CAAc,CAAd;AACf,2BAAc,oBAAC,CAAoB,mCAApB;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,iBAAC,CAAiB,sBAAjB;AACf,2BAAc,cAAC,CAAc,wCAAd;AACf,2BAAc,gBAAC,CAAgB,sBAAhB;AACf,uBAAQ,CAAC,oBAAgB,KAAM,UAAW,qBAAlC;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,EAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,kBAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,YAAC,CAAY,0DAAZ;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAgB,qBAAhB;AACX,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,CAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,oBAAC,CAAoB,kBAApB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,cAAC,CAAc,2CAAd;AACf,2BAAc,gBAAC,CAAgB,qBAAhB;AACf,2BAAc,UAAC,CAAU,gCAAV;AACf,2BAAc,gBAAC,CAAc,CAAd;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,uBAAQ,CAAC,oBAAgB,KAAM,WAAY,sBAAnC;AACR,uBAAQ,CAAC,oBAAgB,KAAM,oBAAqB,+BAA5C;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,QAAC,CAAQ,EAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,GAAT;AACb,yBAAY,UAAC,CAAU,EAAV;AACb,yBAAY,WAAC,CAAW,WAAX;AACb,yBAAY,gBAAC,CAAc,CAAd;AACb,yBAAY,oBAAC,CAAoB,mCAApB;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,mBAAC,CAAmB,gDAAnB;AACb,yBAAY,eAAC,CAAe,wCAAf;AACb,yBAAY,iBAAC,CAAiB,sBAAjB;AACb,yBAAY,cAAC,CAAc,wCAAd;AACb,yBAAY,gBAAC,CAAgB,sBAAhB;AACb,uBAAQ,CAAC,kBAAc,KAAM,UAAW,mBAAhC;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAC,CAAT;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,YAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,mBAAT,GAA+B;AAC/B,sBAAS,WAAT,GAAuB;AACvB,sBAAS,WAAT,GAAuB;AACvB,sBAAS,iBAAC,CAAiB,kBAAjB;AACV,sBAAS,cAAC,CAAc,aAAG,oBAAjB;AACV,sBAAS,UAAT,GAAsB;AACtB,sBAAS,QAAC,CAAQ,EAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,wBAAW,mBAAmB,CAAC,cAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,UAArB,GAAkC;AAClC,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,GAAR;AACnB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,qCAAwB,mBAAmB,CAAC,cAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,GAAR;AACzB,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,GAAR;AAC1B,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,GAAR;AACnB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AA9QnC;AAgRE,oBAAO;AACP,uBAAU;AACV,sBAAS;AACT,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,yBAAY;AACZ,2BAAc;AACd,uBAAU;AACV,uBAAU;AACV,2BAAc;AACd,uBAAU;AACV,yBAAY;AACZ,uBAAU;AACV,sBAAS;AACT,wBAAW;AACX,kCAAqB;AACrB,+BAAkB;AAClB,+BAAkB;AAClB,kCAAqB;AACrB,qCAAwB;AACxB,sCAAyB;AACzB,+BAAkB;AAClB,kCAAqB;AACrB,kCAAqB;AACrB,oCAAuB;AACvB,oCAAuB;AACvB,gCAAmB;AA3SrB;AA7D+B;AAvQtB;;;AACP,6BxD4CK,sCwD5CL;AACA,6BpJs7BY,8CoJt7BZ;AACA,6BpJq7BY,8CoJr7BZ;AACA,+BrJskBK,uCqJtkBL;AACA,iCrJqkBK,uCqJrkBL;AACA,6BpJk7BY,8CoJl7BZ;AACA,0BpJ8UW,6CoJ9UX;AACA,4B7GHc,kD6GGd;AACA,6BrJqRG,qCqJrRH;AACA,iCtK8WS,0CsK9WT;AACA,6BrJ+jBK,uCqJ/jBL;AACA,8BnIgdW,6BmIhdX;AACA,wCnI8lBY,8BmI9lBZ;AACA,qCnIsZU,4BmItZV;AACA,qCnIqZU,4BmIrZV;AACA,wCnI4cW,6BmI5cX;AACA,2CnImZU,4BmInZV;AACA,4CnIkZU,4BmIlZV;AACA,qCnIiZU,4BmIjZV;AACA,wCnIgZU,4BmIhZV;AACA,wCnI+YU,4BmI/YV;AACA,0CnI8YU,4BmI9YV;AACA,0CnI6YU,4BmI7YV;AACA,sCnIocW,6BmIpcX;AACA,6BrJ+EI,sCqJ/EJ;AACA,+BrJgjBK,uCqJhjBL;AACA,4BrJ6EI,sCqJ7EJ;AACA,6BpJ45BY,8CoJ55BZ;AAC4C,yDAAO,UlLsF9C,2BkLtF8C,CAAP;AACvB,kCAAO,UlLqFvB,2BkLrFuB,CAAP;AACM,wCAAO,UlLoF7B,2BkLpF6B,CAAP;AACE,0CAAO,UlLmF/B,2BkLnF+B,CAAP;AACJ,sCAAO,UlLkF3B,2BkLlF2B,CAAP;AACG,yCAAQ,WnI4iC9B,wBmI5iC8B,CAAR;AACH,sCAAO,UlLgF3B,2BkLhF2B,CAAP;AACE,wCAAO,UlL+E7B,2BkL/E6B,EAAuB,0BAA9B;AACG,2CAAO,UlL8EhC,2BkL9EgC,CAAP;AACS,oDAAO,UlL6EzC,2BkL7EyC,EAClC,2BAAkB,sBADS;AAEZ,wCAAO,UlL2E7B,2BkL3E6B,CAAP;AACC,yCAAQ,WnIqiC9B,wBmIriC8B,CAAR;AACQ,iDAAO,UnIoiCrC,wBmIpiCqC,EACrC,QnIwhCO,+BmIxhCP,CAD8B;AAEd,mCAAO,UlLuExB,2BkLvEwB,EAAqB,UtJiBxC,0CsJjBwC,EAA5B;AA5Cf;AA+DT;AA1EF,GA4Ec,gBA5Ed;ACAA,+BAES,saAFT;;;AAac;;;AACV;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAgBA;AACA;AACA;AA/CU;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAwKoB;AAEhC,mCAAwB;AACxB,wBAAa;AACb,wBAAa,aAAb,GAA2B,gBAAgB,GAAC,kBAAD;AAC3C,wBAAa;AALmB;AALC;AAEjC,iBAAQ,uCAAR;AAFiC;AAhGG;AAEpC,UAAI;AAFgC;AAgBO;AAE3C;AACA;AACA;AACA;AAEA,qBAAU,MAAK,WAAC,CAAM,oEAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,2BAAgB,iBAAC,CAAe,SAAf;AACjB,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAW,eAAU,iBAAC;AACtB,aAAE,iBAAC,CAAe,SAAf;AAEH,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAW,eAAU,iBAAC;AACtB,2BAAgB,iBAAC,CAAe,SAAf;AACjB,2BAAgB,UAAhB,GAA2B;AAC3B,2BAAgB,WAAC,CAAS,KAAT;AAEjB,aAAE,aAAC,CAAW,KAAX;AACH,aAAE,WAAC,CAAS,IAAT;AACH,aAAE,YAAC,CAAU,CAAV;AACH,aAAE,YAAC,CAAU,CAAV;AACH,eAAQ;AACR,eAAQ,MAAmC,GAA5B,4BAAD,GAA8B,oBAAe,YAAC,EAAjB;AAC3C,eAAQ,MAA6E,GAAtE,sCAAD,GAAwC,2BAAsB,YAAC,EAAxB,GAAiC,MAAD;AACrF,eAAQ,MAAsH,GAA/G,oCAAD,GAAsC,2BAAc,CAAC,sBAAsB,8BAAyB,cAAC,EAAjD,CAAf,GAA4E,MAAD;AAC9H,eAAQ,MAAkF,GAA3E,wCAAD,GAA0C,8BAAyB,YAAC,EAA3B,GAAoC,MAAD;AAE1F,eAAQ,MAAiD,GAA1C,0CAAD,GAA4C,8BAAyB,YAAC,EAA3B;AACzD,UAAG,8BAAyB,YAAC,EAAQ,KAAE,EAAvC,EAA+C,SAAQ,MAAuF,GAAhF,6CAAD,GAA+C,8BAAyB,YAAC,EAA3B,GAAoC,MAA/I;AACA,UAAG,gCAA2B,YAAC,EAAQ,KAAE,EAAzC,EAAiD,SAAQ,MAAwF,GAAjF,4CAAD,GAA8C,gCAA2B,YAAC,EAA7B,GAAsC,MAAlJ;AACA,UAAG,gCAA2B,YAAC,EAAQ,KAAE,EAAzC,EAAiD,SAAQ,MAAmF,GAA5E,uCAAD,GAAyC,gCAA2B,YAAC,EAA7B,GAAsC,MAA7I;AACA,UAAoC,CAAhC,4BAAuB,YAAC,EAAQ,KAAE,EAAF,CAAM,IAAqC,CAAhC,4BAAuB,YAAC,EAAQ,KAAE,GAAF,CAA/E,EAA2F,SAAQ,MAAiF,GAA1E,yCAAD,GAA2C,4BAAuB,YAAC,EAAzB,GAAkC,MAArL;AAEA,aAAE,SAAM,CAAC,EAAE,EAAK,MAAR;AACR,UAA8C,CAA1C,sBAAS,CAAC,2BAAsB,YAAC,EAAxB,CAAiC,KAAC,MAAD,CAAS,IAA8C,CAA1C,sBAAS,CAAC,2BAAsB,YAAC,EAAxB,CAAiC,KAAC,WAAD,CAArG;AAEE,6BAAgB,WAAC,CAAS,IAAT;AACjB,6BAAgB,OAAC,CAAO,iCAA4B,YAAC,EAApC;OAHnB;AAKA,UAA8C,CAA1C,sBAAS,CAAC,2BAAsB,YAAC,EAAxB,CAAiC,KAAC,MAAD,CAAS,IAA8C,CAA1C,sBAAS,CAAC,2BAAsB,YAAC,EAAxB,CAAiC,KAAC,YAAD,CAArG;AAEE,6BAAgB,WAAC,CAAS,IAAT;AACjB,6BAAgB,OAAC,CAAO,iCAA4B,YAAC,EAApC;OAHnB;AAKE,UAA8C,CAA1C,sBAAS,CAAC,2BAAsB,YAAC,EAAxB,CAAiC,KAAC,MAAD,CAAS,IAA8C,CAA1C,sBAAS,CAAC,2BAAsB,YAAC,EAAxB,CAAiC,KAAC,YAAD,CAArG;AAEA,6BAAgB,WAAC,CAAS,IAAT;AACjB,6BAAgB,OAAC,CAAO,iCAA4B,YAAC,EAApC;OAHjB;AAMF,UAAG,sBAAS,CAAC,2BAAsB,YAAC,EAAxB,CAAiC,KAAC,MAA9C;AAEE,kBAAI,uBAAW,QAAC;AAChB,eAAE,aAAC,CAAW,GAAX;AACH,eAAE,iBAAF,GAAoB;AACpB,eAAE,iBAAC,CAAe,iCAA4B,YAAC,EAA5C;AACH,oBAAW,OAAE,KAAC,CAAD;AACV,iBAAH,KAAG;AACH,oBAAe,MAAM,KAAK,CAAC,SAAD;AAC1B,oBAAW,uBAAU,CAAC,UAAU,IAAG,GAAC,IAAD,CAAK,MAAnB;AACrB,eAAE,SAAM,CAAC,EAAE,EAAK,SAAR;OAVV;AAtD2C;AA6FD;AAE1C,2BAAgB,UAAhB,GAA2B;AAFe;AArHA;AAE1C;AAEA,WAAW,MAAe,gBAAW,aAAW,CAAC,0GAA0H,iDAAe,cAAC,uCAAO,qCAAR,CAA1I;AAChD,UAAG,EAAG,KAAE,CAAR,EAAmB,kBAAa,SAAhC;AAL0C;AAmBG;AAE7C,wBAAa;AAFgC;AANM;AAGnD,UAAI;AAH+C;AAgFL;AAE9C,mCAAwB;AACxB,wCAA6B,cAAC,CAAY,mBAAI,GAAC,mBAAjB;AAC9B,2CAAgC,YAAC,CAAU,gCAAV;AACjC,2CAAgC,YAAC,CAAU,oBAAV;AACjC,8CAAmC,YAAC,CAAU,oBAAe,YAAC,EAA1B;AACpC,4CAAiC,YAAC,CAAU,2BAAsB,YAAC,EAAjC;AAClC,mCAAwB;AARsB;AA6BQ;AAEtD,mCAAwB;AAF8B;AAKpB;AAExB;AAEV,8BAAoB,oCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,8BAAoB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,yBAAe,iCAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,2BAAiB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,6BAAmB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,uCAA6B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,sCAA4B,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,2CAAiC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,iDAAuC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAElD,2BAAgB;AAChB,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,aAAE;AACF,2BAAgB;AAChB,sBAAW;AACX,wBAAa;AACb,0BAAe;AACf,oCAAyB;AACzB,iCAAsB;AACtB,iCAAsB;AACtB,oCAAyB;AACzB,uCAA4B;AAC5B,wCAA6B;AAC7B,iCAAsB;AACtB,oCAAyB;AACzB,oCAAyB;AACzB,sCAA2B;AAC3B,sCAA2B;AAC3B,kCAAuB;AACvB,mCAAwB;AACxB,qCAA0B;AAC1B,wCAA6B;AAC7B,2CAAgC;AAChC,2CAAgC;AAChC,8CAAmC;AACnC,4CAAiC;AACjC;AACE,qBAAQ,aAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,UAAW,cAAlB;AACR,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,6BAAgB,mBAAmB,CAAC,IAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,QAAC,CAAQ,EAAR;AACjB,6BAAgB,OAAC,CAAO,GAAP;AACjB,6BAAgB,SAAC,CAAS,GAAT;AACjB,6BAAgB,UAAC,CAAU,EAAV;AACjB,6BAAgB,eAAC,CAAe,wCAAf;AACjB,6BAAgB,cAAC,CAAc,wCAAd;AACjB,6BAAgB,iBAAC,CAAiB,sBAAjB;AACjB,6BAAgB,gBAAC,CAAgB,sBAAhB;AACjB,6BAAgB,gBAAC,CAAc,CAAd;AACjB,6BAAgB,mBAAC,CAAmB,gDAAnB;AACjB,uBAAQ,CAAC,sBAAkB,KAAM,UAAW,uBAApC;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,QAAC,CAAQ,CAAC,CAAT;AACH,eAAE,OAAC,CAAO,GAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,EAAV;AACH,eAAE,oBAAC,CAAoB,qCAApB;AACH,eAAE,eAAC,CAAe,wCAAf;AACH,eAAE,cAAC,CAAc,2CAAd;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,gBAAC,CAAc,CAAd;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,eAAC,CAAe,yCAAf;AACH,eAAE,0BAAC,CAA0B,aAA1B;AACH,eAAE,mBAAC,CAAmB,gDAAnB;AACH,eAAE,yBAAC,CAAyB,iDAAzB;AACH,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,6BAAgB,mBAAmB,CAAC,IAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,QAAC,CAAQ,CAAR;AACjB,6BAAgB,OAAC,CAAO,GAAP;AACjB,6BAAgB,SAAC,CAAS,EAAT;AACjB,6BAAgB,UAAC,CAAU,EAAV;AACjB,6BAAgB,WAAC,CAAW,gBAAX;AACjB,6BAAgB,gBAAC,CAAc,CAAd;AACjB,6BAAgB,oBAAC,CAAoB,mCAApB;AACjB,6BAAgB,eAAC,CAAe,yCAAf;AACjB,6BAAgB,mBAAC,CAAmB,gDAAnB;AACjB,6BAAgB,eAAC,CAAe,wCAAf;AACjB,6BAAgB,iBAAC,CAAiB,sBAAjB;AACjB,6BAAgB,cAAC,CAAc,wCAAd;AACjB,6BAAgB,gBAAC,CAAgB,sBAAhB;AACjB,uBAAQ,CAAC,sBAAkB,KAAM,UAAW,uBAApC;AACR,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,GAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,EAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,cAAC,CAAc,wCAAd;AACZ,wBAAW,SAAX,GAAuB,cAAC,uCAAM,qCAAP;AACvB,wBAAW,YAAX,GAA0B;AAC1B,wBAAW,SAAX,GAAuB;AACvB,wBAAW,SAAX,GAAuB;AACvB,wBAAW,wBAAX,GAAsC;AACtC,wBAAW,wBAAX,GAAsC;AACtC,wBAAW,uBAAX,GAAqC;AACrC,wBAAW,yBAAX,GAAuC;AACvC,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,mBAAb,GAAmC;AACnC,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,cAAb,GAA8B;AAC9B,0BAAa,aAAb,GAA6B;AAC7B,0BAAa,iBAAC,CAAiB,kBAAjB;AACd,0BAAa,cAAC,CAAc,aAAG,oBAAjB;AACd,0BAAa,UAAb,GAA0B;AAC1B,0BAAa,QAAC,CAAQ,GAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,4BAAe,mBAAmB,CAAC,kBAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,UAAf,GAA4B;AAC5B,sCAAyB,mBAAmB,CAAC,kBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,UAAzB,GAAsC;AACtC,mCAAsB,mBAAmB,CAAC,kBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,mCAAsB,mBAAmB,CAAC,kBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,sCAAyB,mBAAmB,CAAC,kBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,yCAA4B,mBAAmB,CAAC,kBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,GAAR;AAC7B,0CAA6B,mBAAmB,CAAC,kBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,GAAR;AAC9B,mCAAsB,mBAAmB,CAAC,kBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,sCAAyB,mBAAmB,CAAC,kBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,sCAAyB,mBAAmB,CAAC,kBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,wCAA2B,mBAAmB,CAAC,kBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,wCAA2B,mBAAmB,CAAC,kBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,oCAAuB,mBAAmB,CAAC,kBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,qCAAwB,mBAAmB,CAAC,IAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,iBAAC,CAAiB,uBAAjB;AACzB,qCAAwB,cAAC,CAAc,aAAG,oBAAjB;AACzB,qCAAwB,UAAxB,GAAqC;AACrC,qCAAwB,QAAC,CAAQ,GAAR;AACzB,qCAAwB,OAAC,CAAO,GAAP;AACzB,uCAA0B,mBAAmB,CAAC,6BAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,UAA1B,GAAuC;AACvC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,0CAA6B,mBAAmB,CAAC,6BAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,6CAAgC,mBAAmB,CAAC,6BAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,6CAAgC,mBAAmB,CAAC,6BAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,gDAAmC,mBAAmB,CAAC,6BAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,gDAAmC,QAAC,CAAQ,EAAR;AACpC,8CAAiC,mBAAmB,CAAC,6BAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,GAAR;AAtNpC;AAwNE,6BAAgB;AAChB,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,eAAE;AACF,6BAAgB;AAChB,wBAAW;AACX,0BAAa;AACb,4BAAe;AACf,sCAAyB;AACzB,mCAAsB;AACtB,mCAAsB;AACtB,sCAAyB;AACzB,yCAA4B;AAC5B,0CAA6B;AAC7B,mCAAsB;AACtB,sCAAyB;AACzB,sCAAyB;AACzB,wCAA2B;AAC3B,wCAA2B;AAC3B,oCAAuB;AACvB,qCAAwB;AACxB,uCAA0B;AAC1B,0CAA6B;AAC7B,6CAAgC;AAChC,6CAAgC;AAChC,gDAAmC;AACnC,8CAAiC;AApPnC;AA/DkC;AA1LtB;;;AACV,6BrJq7BY,8CqJr7BZ;AACA,6BrJo7BY,8CqJp7BZ;AACA,6BrJm7BY,8CqJn7BZ;AACA,6BtJokBK,uCsJpkBL;AACA,qBxGi7BW,0CwGj7BX;AACA,gC9GHc,kD8GGd;AACA,kCpImdW,6BoIndX;AACA,4CpIimBY,8BoIjmBZ;AACA,yCpIyZU,4BoIzZV;AACA,yCpIwZU,4BoIxZV;AACA,4CpI+cW,6BoI/cX;AACA,+CpIsZU,4BoItZV;AACA,gDpIqZU,4BoIrZV;AACA,yCpIoZU,4BoIpZV;AACA,4CpImZU,4BoInZV;AACA,4CpIkZU,4BoIlZV;AACA,8CpIiZU,4BoIjZV;AACA,8CpIgZU,4BoIhZV;AACA,0CpIucW,6BoIvcX;AACA,mCrJ+TW,6CqJ/TX;AACA,mCtJmjBK,uCsJnjBL;AACA,8BvKmBS,0CuKnBT;AACA,2C9GpBc,kD8GoBd;AACA,6CpI0YU,4BoI1YV;AACA,gDpIglBY,8BoIhlBZ;AACA,mDpIwYU,4BoIxYV;AACA,mDpIuYU,4BoIvYV;AACA,sDpIsYU,4BoItYV;AACA,oDpIqYU,4BoIrYV;AACqB,kCAAO,UnLmFvB,2BmLnFuB,CAAP;AACC,mCAAO,UnLkFxB,2BmLlFwB,EAAqB,UvJ4BxC,0CuJ5BwC,EAA5B;AACG,sCAAO,UnLiF3B,2BmLjF2B,CAAP;AACO,6CAAQ,WpI2iClC,wBoI3iCkC,CAAR;AACD,4CAAO,UnL+EjC,2BmL/EiC,CAAP;AACO,4CAAO,UnL8ExC,2BmL9EwC,CAAP;AACJ,+CAAQ,WpIwiCpC,wBoIxiCoC,CAAR;AACM,qDAAO,UpIuiCzC,wBoIviCyC,EACzC,QpI2hCO,+BoI3hCP,CADkC;AAEL,gDAAQ,WpIqiCrC,wBoIriCqC,CAAR;AACQ,wDAAQ,WpIoiC7C,wBoIpiC6C,CAAR;AAxCjC;AAmDZ;AAhEF,GAkEc,gBAlEd;ACAA,2BAES,oVAFT;;;AAYa;;;AACT;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAeA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AApDS;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AA8RoB;AAE/B;AAEA,mCAAwB;AACxB,iBAAU;AACV,oBAAS;AACT,UAAG,cAAS,KAAC,SAAb,EAA4B,cAAS,aAAT,GAAuB,QAA6E,GAApE,oCAAD,GAAsC,sBAAS,CAAC,0BhLxBvD,GgLwBsD,CAAV,GAAiC,GAAjI;AACA,UAAG,cAAS,KAAC,SAAb,EAA4B,cAAS,aAAT,GAAuB,QAA6E,GAApE,oCAAD,GAAsC,sBAAS,CAAC,0BhLzBvD,GgLyBsD,CAAV,GAAiC,GAAjI;AACA,UAAG,cAAS,KAAC,SAAb,EAA4B,cAAS,aAAT,GAAuB,QAAyE,GAAhE,kCAAD,GAAoC,sBAAS,CAAC,wBhL1BrD,GgL0BoD,CAAV,GAA+B,GAA7H;AACA,UAAG,cAAS,KAAC,QAAb,EAA2B,cAAS,aAAT,GAAuB,QAA6E,GAApE,oCAAD,GAAsC,sBAAS,CAAC,0BhL3BtD,GgL2BqD,CAAV,GAAiC,GAAhI;AACA,oBAAS;AAXsB;AA1EO;AAEtC;AACA;AACA;AAEA,qBAAU,MAAK,WAAC,CAAM,8CAA2D,GAAZ,iBAAD,GAAc,aAAlE;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,iBAAM,iBAAC,CAAe,SAAf;AACP,kBAAO,iBAAC,CAAe,SAAf;AACR,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,kBAAW,eAAU,iBAAC;AAEtB,aAAM,CAAI,cAAS,OAAC,EAApB;AAGE,sBAAa,+BAA8D,GAA9B,0BAAqB,YAAC,EAAvB,GAAgC,aAAD;AAC3E,sBAAa,WAAyF,GAA7E,2CAAD,GAA6C,iBAAI,CAAC,uBAAkB,YAAC,EAApB,CAAL,GAAmC,MAAD;AACtG,sBAAa,WAAmG,GAAvF,qBAAD,GAAuB,2BAAc,CAAC,iBAAiB,0BAAqB,cAAC,EAAxC,CAAf,GAAmE,MAAD;AAChH,sBAAa,WAAiF,GAArE,uBAAD,GAAyB,0BAAqB,YAAC,EAAvB,GAAgC,GAAD,GAAK,eAAD,GAAY,MAAD;AAC9F,sBAAa,WAAqE,GAAzD,wBAAD,GAA0B,4BAAuB,YAAC,EAAzB,GAAkC,MAAD;AAClF,sBAAa,WAA4E,GAAhE,SAAD,GAAW,cAAD,GAAW,WAAD,GAAa,4BAAuB,YAAC,EAAzB,GAAkC,MAAD;AACzF,sBAAa,WAAW,GAAC,QAAD;AAExB,oBAAW,eAAU,iBAAC;AACtB,0BAAY,+BAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,uBAAU,MAAC,CAAW,gBAAW,YAAC,EAAvB;AACX,uBAAU,eAAC,CAAa,wCAAb;AACX,uBAAU,SAAC,CAAO,GAAP;AACX,uBAAU,MAAK,WAAC,CAAM,WAAN;AAChB,uBAAU,oBAAC,CAAkB,sBAAlB;AACX,uBAAU,SAAV,GAAqB;AACrB,uBAAU,iBAAC,CAAe,SAAf;AACX,oBAAW,sBAAS,CAAC,2BAAc,CAAC,uBAAkB,YAAC,EAApB,CAAf;AACpB,YAAa,CAAT,SAAS,KAAC,MAAD,CAAS,IAAa,CAAT,SAAS,KAAC,MAAD,CAAnC;AAEE,sBAAW,eAAU,iBAAC;AACtB,kCAAkB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1B,+BAAgB,oBAAC,CAAkB,mCAAlB;AACjB,+BAAgB,eAAC,CAAa,wCAAb;AACjB,+BAAgB,cAAC,CAAY,wCAAZ;AACjB,+BAAgB,WAAC,CAAS,KAAT;AACjB,+BAAgB,OAAhB,GAAsB,gBAAW,aAAC;AAClC,+BAAgB,QAAC,CAAM,iBAAI,CAAC,uBAAkB,YAAC,EAApB,CAAV;AACjB,+BAAgB,WAAC,CAAS,gBAAT;AACjB,+BAAgB,mBAAC,CAAiB,gDAAjB;AACjB,+BAAgB,SAAhB,GAA2B;AAC3B,+BAAgB,iBAAC,CAAe,SAAf;SAbnB;AAeA,sBAAS;;AAlD2B;AA9EH;AAEnC,oBAAS;AACT,UAAI;AAH+B;AA1BJ;;AAE/B;AACA;AAEA,wBAAiB;AACjB,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,mCAAY,2BAAS,QAAC,eAAS,CAAC;AAErB,eAAN,MAAS,2BAAH,CAAa,cAApB,GAAoC;AAC7B,eAAN,MAAS,2BAAH,CAAa,0BAApB,GAAgD;AACzC,eAAN,MAAS,2BAAH,CAAa,0BAApB,GAAgD;AACzC,eAAN,MAAS,2BAAH,CAAa,sBAApB,GAA4C;AACrC,eAAN,MAAS,2BAAH,CAAa,wBAApB,GAA8C;AANlB,OAAD,CAAT;AAUtB,gCAAQ,YAAU,CAAC;AAEf,uBAAS;AACT,uBAAS;AAHM,OAAD;AAjBa;AAzBC;;AAEhC;AACA;AAEA,wBAAiB;AACjB,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,mCAAY,2BAAS,QAAC,eAAS,CAAC;AAErB,eAAN,MAAS,2BAAH,CAAa,cAApB,GAAoC;AAC7B,eAAN,MAAS,2BAAH,CAAa,0BAApB,GAAgD;AACzC,eAAN,MAAS,2BAAH,CAAa,0BAApB,GAAgD;AACzC,eAAN,MAAS,2BAAH,CAAa,sBAApB,GAA4C;AACrC,eAAN,MAAS,2BAAH,CAAa,wBAApB,GAA8C;AANlB,OAAD,CAAT;AAUtB,gCAAQ,YAAU,CAAC;AAEf,uBAAS;AACT,uBAAS;AAHM,OAAD;AAjBc;AA4HQ;AAExC,oBAAS;AAF+B;AANM;AAG9C,UAAI;AAH0C;AAkEL;AAEzC;AACA;AAEA,6BAAU,CAAC,IAAD;AACV,mBAAY,yBAAY,CAAC,IAAD;AACxB,mBAAY,uBAAU,CAAC,WAAW,IAAI,EAAhB;AACtB,mBAAY,uBAAU,CAAC,WAAW,IAAI,EAAhB;AACtB,mCAAwB;AACxB,qCAA0B,YAAC,CAAU,UAAV;AAC3B,wCAA6B,cAAC,CAAY,mBAAI,GAAC,mBAAjB;AAC9B,2CAAgC,YAAC,CAAU,gCAAV;AACjC,2CAAgC,YAAC,CAAU,oBAAV;AACjC,8CAAmC,YAAC,CAAU,gBAAW,YAAC,EAAtB;AACpC,4CAAiC,YAAC,CAAU,uBAAkB,YAAC,EAA7B;AAClC,mCAAwB;AAhBiB;AAiCY;AAErD,mCAAwB;AAF6B;AA/JlB;;AACf;AAElB;AAEA,qBAAkB,KAAW,QAAQ,QAAS,SAA5B;AAClB,YAAG,UAAU,KAAC,OAAd;AAEE,2CAAW,CAAC,2CAAD;;AAIX,yCAAW,SAAS,CAAC,4BAAkB,GAAC,UAAD,CAAY,6CAA/B;;AAXJ;AAepB;AAEA,wBAAyB,OAAP,OAAU,+BAAH,CAAY,MAAC;AACtC,oBAAS,OAAO,CAAC,KAAK,gBAAgB,EAAtB;AAChB,UAAG,sBAAS,CAAC,2BAAc,CAAC,uBAAkB,YAAC,EAApB,CAAf,CAA6C,KAAC,MAA1D;AAEE,oBAAO,YAAU,CAAC,sCAAsC,CAAC,eAAD,ajHAqF,IiHA5H;;AAIjB,YAAG,sBAAS,CAAC,2BAAc,CAAC,uBAAkB,YAAC,EAApB,CAAf,CAA6C,KAAC,MAA1D;AAEE,sBAAO,YAAU,CAAC,sCAAsC,CAAC,eAAD,ajHNmF,IiHM1H;;AAIjB,kCAAmB,CAAC,eAAD;;;AAhCY;AAqCI;;AAEvC;AACA;AAEA,wBAAiB;AACjB,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,yCAAe,iCAAY,QAAC,eAAS,CAAC;AAE3B,eAAN,MAAS,iCAAH,CAAgB,cAAvB,GAAuC;AAChC,eAAN,MAAS,iCAAH,CAAgB,SAAvB,GAAkC;AAHA,OAAD,CAAT;AAO5B,sCAAW,YAAU,CAAC;AAElB,uBAAS;AACT,uBAAS;AAHS,OAAD;AAdkB;AAjHE;AAKzC;AACA;AACA;AAEA,wBAAiB,qBAAQ,CAAS,OAAP,OAAU,8BAAH,CAAW,OAApB;AACzB,0BAA2B,OAAP,OAAU,8BAAH,CAAW;AACtC,UAAG,cAAS,OAAO,CAAC,KAAK,gBAAgB,EAAtB,CAAyB,KAAC,IAA7C;AAEE,aAAW,MAAe,gBAAW,aAAW,CAAC,yFAA2G,GAAjB,iBAAD,GAAmB,sBAAD,CAAwC,iDAAe,cAAC,uCAAO,qCAAR,CAAnK;AAChD,YAAG,EAAG,KAAE,CAAR,EAAmB,cAAS,SAA5B;OAHF;AAXyC;AAgPR;AAEvB;AAEV,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,oBAAU,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAClB,qBAAW,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACnB,yBAAe,iCAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,uBAAa,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,yBAAe,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,mCAAyB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,mCAAyB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,iCAAuB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,2BAAiB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,qBAAW,uCAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,sCAA4B,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,2CAAiC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,iDAAuC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAElD,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,iBAAM;AACN,kBAAO;AACP,sBAAW;AACX,oBAAS;AACT,sBAAW;AACX,gCAAqB;AACrB,6BAAkB;AAClB,6BAAkB;AAClB,gCAAqB;AACrB,oCAAyB;AACzB,6BAAkB;AAClB,gCAAqB;AACrB,gCAAqB;AACrB,kCAAuB;AACvB,kCAAuB;AACvB,8BAAmB;AACnB,wBAAa;AACb,kBAAO;AACP,mCAAwB;AACxB,qCAA0B;AAC1B,wCAA6B;AAC7B,2CAAgC;AAChC,2CAAgC;AAChC,8CAAmC;AACnC,4CAAiC;AACjC;AACE,qBAAQ,YAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,kBAAI,SAAJ,GAAgB;AAChB,kBAAI,SAAC,CAAS,KAAT;AACL,kBAAI,UAAC,CAAU,CAAC,EAAX;AACL,kBAAI,QAAC,CAAQ,QAAR;AACL,kBAAI,SAAC,CAAS,EAAT;AACL,2BAAc,KAAd;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,EAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,4BAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,mBAAM,mBAAmB,CAAC,IAAD;AACzB,mBAAM,QAAC,CAAQ,QAAR;AACP,mBAAM,QAAC,CAAQ,EAAR;AACP,mBAAM,OAAC,CAAO,GAAP;AACP,mBAAM,SAAC,CAAS,GAAT;AACP,mBAAM,UAAC,CAAU,EAAV;AACP,mBAAM,WAAC,CAAW,SAAX;AACP,mBAAM,gBAAC,CAAc,CAAd;AACP,mBAAM,oBAAC,CAAoB,4BAApB;AACP,mBAAM,eAAC,CAAe,yCAAf;AACP,mBAAM,mBAAC,CAAmB,gDAAnB;AACP,mBAAM,eAAC,CAAe,wCAAf;AACP,mBAAM,iBAAC,CAAiB,sBAAjB;AACP,mBAAM,gBAAC,CAAgB,sBAAhB;AACP,uBAAQ,CAAC,YAAQ,KAAM,UAAW,aAA1B;AACR,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,QAAC,CAAQ,EAAR;AACR,oBAAO,OAAC,CAAO,GAAP;AACR,oBAAO,SAAC,CAAS,GAAT;AACR,oBAAO,UAAC,CAAU,EAAV;AACR,oBAAO,WAAC,CAAW,QAAX;AACR,oBAAO,gBAAC,CAAc,CAAd;AACR,oBAAO,oBAAC,CAAoB,4BAApB;AACR,oBAAO,eAAC,CAAe,yCAAf;AACR,oBAAO,mBAAC,CAAmB,gDAAnB;AACR,oBAAO,eAAC,CAAe,wCAAf;AACR,oBAAO,iBAAC,CAAiB,sBAAjB;AACR,oBAAO,gBAAC,CAAgB,sBAAhB;AACR,uBAAQ,CAAC,aAAS,KAAM,UAAW,cAA3B;AACR,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,GAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,EAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,cAAC,CAAc,wCAAd;AACZ,wBAAW,SAAX,GAAuB,cAAC,uCAAM,qCAAP;AACvB,wBAAW,YAAX,GAA0B;AAC1B,wBAAW,SAAX,GAAuB;AACvB,wBAAW,SAAX,GAAuB;AACvB,wBAAW,wBAAX,GAAsC;AACtC,wBAAW,wBAAX,GAAsC;AACtC,wBAAW,uBAAX,GAAqC;AACrC,wBAAW,yBAAX,GAAuC;AACvC,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,mBAAT,GAA+B;AAC/B,sBAAS,WAAT,GAAuB;AACvB,sBAAS,cAAT,GAA0B;AAC1B,sBAAS,aAAT,GAAyB;AACzB,sBAAS,iBAAC,CAAiB,kBAAjB;AACV,sBAAS,cAAC,CAAc,aAAG,oBAAjB;AACV,sBAAS,QAAC,CAAQ,GAAR;AACV,sBAAS,OAAC,CAAO,EAAP;AACV,wBAAW,mBAAmB,CAAC,cAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,UAArB,GAAkC;AAClC,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,GAAR;AACnB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,GAAR;AAC1B,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,GAAR;AACnB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAC,CAAW,cAAX;AACd,0BAAa,QAAC,CAAQ,EAAR;AACd,0BAAa,OAAC,CAAO,EAAP;AACd,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,cAAC,CAAc,aAAG,oBAAjB;AACR,oBAAO,QAAC,CAAQ,EAAR;AACR,oBAAO,OAAC,CAAO,GAAP;AACR,qCAAwB,mBAAmB,CAAC,IAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,iBAAC,CAAiB,uBAAjB;AACzB,qCAAwB,cAAC,CAAc,aAAG,oBAAjB;AACzB,qCAAwB,UAAxB,GAAqC;AACrC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,qCAAwB,OAAC,CAAO,GAAP;AACzB,uCAA0B,mBAAmB,CAAC,6BAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,UAA1B,GAAuC;AACvC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,0CAA6B,mBAAmB,CAAC,6BAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,6CAAgC,mBAAmB,CAAC,6BAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,6CAAgC,mBAAmB,CAAC,6BAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,gDAAmC,mBAAmB,CAAC,6BAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,gDAAmC,QAAC,CAAQ,EAAR;AACpC,8CAAiC,mBAAmB,CAAC,6BAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,GAAR;AA5MpC;AA8ME,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,mBAAM;AACN,oBAAO;AACP,wBAAW;AACX,sBAAS;AACT,wBAAW;AACX,kCAAqB;AACrB,+BAAkB;AAClB,+BAAkB;AAClB,kCAAqB;AACrB,sCAAyB;AACzB,+BAAkB;AAClB,kCAAqB;AACrB,kCAAqB;AACrB,oCAAuB;AACvB,oCAAuB;AACvB,gCAAmB;AACnB,0BAAa;AACb,oBAAO;AACP,qCAAwB;AACxB,uCAA0B;AAC1B,0CAA6B;AAC7B,6CAAgC;AAChC,6CAAgC;AAChC,gDAAmC;AACnC,8CAAiC;AA1OnC;AA/DiC;AAjTtB;;;AACT,4B/GGc,kD+GHd;AACA,gCrIkjDS,2BqIljDT;AACA,6BtJo7BY,8CsJp7BZ;AACA,6BtJm7BY,8CsJn7BZ;AACA,6BtJk7BY,8CsJl7BZ;AACA,6BvJmkBK,uCuJnkBL;AACA,8BrIodW,6BqIpdX;AACA,wCrIkmBY,8BqIlmBZ;AACA,qCrI0ZU,4BqI1ZV;AACA,qCrIyZU,4BqIzZV;AACA,wCrIgdW,6BqIhdX;AACA,4CrIuZU,4BqIvZV;AACA,qCrIsZU,4BqItZV;AACA,wCrIqZU,4BqIrZV;AACA,wCrIoZU,4BqIpZV;AACA,0CrImZU,4BqInZV;AACA,0CrIkZU,4BqIlZV;AACA,sCrIycW,6BqIzcX;AACA,yBvJsjBK,uCuJtjBL;AACA,0BvJqjBK,uCuJrjBL;AACA,0BjHgEa,gDiHhEb;AACA,8BxKoBS,0CwKpBT;AACA,2C/GnBc,kD+GmBd;AACA,6CrI2YU,4BqI3YV;AACA,gDrIilBY,8BqIjlBZ;AACA,mDrIyYU,4BqIzYV;AACA,mDrIwYU,4BqIxYV;AACA,sDrIuYU,4BqIvYV;AACA,oDrIsYU,4BqItYV;AACqB,kCAAO,UpLoFvB,2BoLpFuB,CAAP;AACO,yCAAQ,WrI8iC9B,wBqI9iC8B,CAAR;AACH,sCAAO,UpLkF3B,2BoLlF2B,CAAP;AACJ,kCAAO,UpLiFvB,2BoLjFuB,CAAP;AACC,mCAAO,UpLgFxB,2BoLhFwB,CAAP;AACQ,2CAAQ,WrI0iChC,wBqI1iCgC,CAAR;AACM,iDAAO,UrIyiCrC,wBqIziCqC,EACrC,QrI6hCO,+BqI7hCP,CAD8B;AAEL,4CAAQ,WrIuiCjC,wBqIviCiC,CAAR;AACY,wDAAQ,WrIsiC7C,wBqItiC6C,CAAR;AAvClC;AA2DX;AAvEF,GAyEc,mDAzEd;ACAA,6BAES,6QAFT;;;AAWY;;;AACR;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA+BA;AACA;AACA;AACA;AACA;AAtMQ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAkkBoB;AAE9B,wBAAa;AACb,wBAAa,aAAb,GAA2B,0BAA0B,GAAC,sBAAS,CAAC,+BjLvTZ,GiLuTW,CAAV;AACrD,wBAAa;AAJiB;AAcW;AAEzC,sBAAW;AAF8B;AAkBF;AAEvC,oBAAS;AAF8B;AAkCF;AAErC,2BAAgB;AAFqB;AA9CK;AAE1C,oBAAS;AAFiC;AAmDL;AAErC,oBAAS;AAF4B;AArBQ;AAG7C;AAEA,eAAS,QAAS,kBAAC,IAAI,QAAL,uBAAlB;AAAI;AAEF,YAAG,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAM,KAAE,EAA1B,EAAkC,iCAAW,CAAC,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAhB,CAA7C;;AAEF,UAAG,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAM,KAAC,EAAzB;AAEE,uBAAU;OAFZ;AAT6C;AAbR;AAErC,oBAAS,OAAO,CAAC,SAAS,YAAY,EAAtB;AAChB,uBAAY;AAHyB;AA9BG;AAExC,uBAAY,OAAO,CAAC,YAAY,MAAM,EAAnB;AACnB,wBAAa;AAH2B;AAmBC;AAEzC,wBAAa,OAAO,CAAC,aAAa,IAAI,EAAlB;AACpB;AAHyC;AA0EG;AAE5C,uCAA4B,cAAC,CAAY,mBAAI,GAAC,mBAAjB;AAC7B,sCAA2B,aAAC,CAAW,CAAX;AAC5B,mCAAwB,aAAC,CAAO,cAAS,eAAC,EAAjB;AAJmB;AAtKL;AAEvC,6BAAiB;AACjB,UAAG,mBAAc,OAAM,SAAC,EAAK,GAAC,CAA9B;AAEE,YAAG,mBAAc,OAAM,UAAM,CAAC,CAAD,CAAG,MAAK,GAAC,OAAtC;AAEE,6BAAc,OAAM,UAAM,CAAC,CAAD,CAAG;;AAI7B,2CAAW,CAAC,gDAAD;;OARf;AAHuC;AA8GD;AAEtC,6BAAiB,iBAAY,YAAC;AAC9B;AAHsC;AA9FU;AAGhD,6BAAkB,OAA8D,GAApD,mBAAc,OAAM,UAAM,CAAC,CAAD,CAAG,UAA/B,GAA2C,UAAF,GAAe,OAAF;AAHhC;AAMT;AAEvC,6BAAiB;AACjB,UAAG,mBAAc,OAAM,SAAC,EAAK,GAAC,CAA9B;AAEE,YAAG,mBAAc,OAAM,UAAM,CAAC,CAAD,CAAG,MAAK,GAAC,OAAtC;AAEE,6BAAc,OAAM,UAAM,CAAC,CAAD,CAAG;;AAI7B,2CAAW,CAAC,gDAAD;;OARf;AAHuC;AAsBA;AAEvC,6BAAiB;AACjB,UAAG,mBAAc,OAAM,SAAC,EAAK,GAAC,CAA9B;AAEE,YAAG,mBAAc,OAAM,UAAM,CAAC,CAAD,CAAG,MAAK,GAAC,OAAtC;AAEE,6BAAc,OAAM,UAAM,CAAC,CAAD,CAAG;;AAI7B,2CAAW,CAAC,gDAAD;;OARf;AAHuC;AANS;AAGlD,6BAAkB,OAA8D,GAApD,mBAAc,OAAM,UAAM,CAAC,CAAD,CAAG,UAA/B,GAA2C,UAAF,GAAe,OAAF;AAH9B;AAsBA;AAGhD,6BAAkB,OAA8D,GAApD,mBAAc,OAAM,UAAM,CAAC,CAAD,CAAG,UAA/B,GAA2C,UAAF,GAAe,OAAF;AAHhC;AAkFI;AAGpD;AAEA,eAAS,QAAS,kBAAC,IAAI,QAAL,uBAAlB;AAAI;AAEF,YAAG,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAM,KAAE,EAA1B,EAAkC,iCAAW,CAAC,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAhB,CAA7C;;AAEF,UAAG,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAM,KAAC,EAAzB;AAEE,yCAAW,CAAC,wCAAD;AACX;OAHF;AAToD;AAiBR;AAE5C,yBAAc;AACd,yBAAc,aAAd,GAA4B,0BAA0B,GAAC,sBAAS,CAAC,+BjLpZb,GiLoZY,CAAV;AACtD,yBAAc;AAJ8B;AA1YV;AAElC;AAFkC;AAKC;AAEnC,UAAG,eAAU,QAAC,EAAI,KAAC,EAAnB;AAEE,yCAAW,CAAC,oCAAD;AACX;OAHF;AAKA,UAAG,oBAAe,QAAC,EAAI,KAAC,EAAxB;AAEE,yCAAW,CAAC,wCAAD;AACX;OAHF;AAKA,UAAG,qBAAgB,QAAC,EAAI,KAAC,EAAzB;AAEE,yCAAW,CAAC,yCAAD;AACX;OAHF;AAKA,UAAG,eAAU,QAAC,EAAI,KAAC,EAAnB;AAEE,yCAAW,CAAC,yCAAD;AACX;OAHF;AAKA,UAAG,YAAO,QAAC,EAAI,KAAC,EAAhB;AAEE,yCAAW,CAAC,yCAAD;AACX;OAHF;AAKA,UAAG,mBAAc,QAAC,EAAI,KAAC,EAAvB;AAEE,yCAAW,CAAC,4CAAD;AACX;OAHF;AAMA,UAAG,0BAAqB,QAAC,EAAI,KAAE,EAA/B;AAEE,YAAG,CAAI,eAAK,cAAc,CAAC,0BAAqB,QAAC,EAAvB,CAA1B;AAEE,oCAAqB;AACrB,2CAAW,CAAC,uCAAD;AACX;SAJF;OAFF;AASA,sBAAW,OAAO,CAAC,UAAU,mBAAc,QAAC,GAAK,EAA/B;AAElB,oBAAS;AACT,gCAAqB,aAAC,CAAO,mBAAc,eAAC,EAAtB;AACtB,2BAAgB,aAAC,CAAO,gBAAW,eAAC,EAAnB;AACjB,0BAAe,aAAC,CAAO,cAAS,eAAC,EAAjB;AAChB,6BAAkB,aAAC,CAAO,iBAAY,eAAC,EAApB;AACnB,8BAAmB,aAAC,CAAO,kBAAa,eAAC,EAArB;AACpB,8BAAmB,cAAC,CAAY,mBAAI,GAAC,mBAAjB;AACpB,2BAAgB,YAAC,CAAU,eAAU,QAAC,EAArB;AACjB,gCAAqB,YAAC,CAAU,oBAAe,QAAC,EAA1B;AACtB,qCAA0B,WAAC,CAAS,CAAT;AAC3B,8BAAmB,YAAC,CAAU,kBAAa,QAAC,EAAxB;AACpB,sCAA2B,aAAC,CAAW,CAAX;AAC5B,wCAA6B,aAAC,CAAW,CAAX;AAC9B,iCAAsB,YAAC,CAAU,qBAAgB,QAAC,EAA3B;AACvB,sCAA2B,YAAC,CAAU,0BAAqB,QAAC,EAAhC;AAC5B,yCAA8B,YAAC,CAAU,eAAU,QAAC,EAArB;AAC/B,sCAA2B,YAAC,CAAU,YAAO,QAAC,EAAlB;AAC5B,4BAAiB,YAAC,CAAU,2BAAsB,YAAC,EAAjC;AAClB,2BAAgB,YAAC,CAAU,0BAAqB,YAAC,EAAhC;AACjB,yBAAc,YAAC,CAAU,wBAAmB,YAAC,EAA9B;AACf,6BAAkB,YAAC,CAAU,0BAAa,CAAC,mBAAI,GAAC,mBAAD,CjLmMuB,KiLnM5B,CAAW,GAAC,mBAAnC;AACnB,oBAAS;AAjE0B;AAoEK;AAExC;AACA;AACA;AAEA,kBAAW,eAAU,iBAAC;AACtB,mBAAQ,iBAAC,CAAe,SAAf;AACT,yBAAc,iBAAC,CAAe,SAAf;AACf,qBAAU,iBAAC,CAAe,SAAf;AAEX,kBAAW,aAAQ,iBAAC;AACpB,mBAAQ,iBAAC,CAAe,SAAf;AAET,kBAAW,mBAAc,iBAAC;AAC1B,qBAAU,iBAAC,CAAe,SAAf;AAEX,kBAAW,eAAU,iBAAC;AACtB,aAAE,iBAAC,CAAe,SAAf;AAEH,aAAE,YAAC,CAAU,CAAV;AACH,aAAE,YAAC,CAAU,EAAV;AAEH,UAAG;AAEH,aAAE,SAAM,CAAC,EAAE,EAAI,gCAAP;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,yBAAP;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,4BAAgB,gCAAS,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1B,yBAAc,oBAAC,CAAkB,cAAlB;AACf,yBAAc,SAAC,CAAO,GAAP;AACf,yBAAc,eAAC,CAAa,wCAAb;AACf,yBAAc,aAAC,CAAW,CAAC,CAAZ;AACf,yBAAc,iBAAC,CAAe,SAAf;AACf,yBAAc,OAAM;AACpB,sBAAW;AACX,aAAM,CAAI,gBAAW,OAAC,EAAtB;AAEE,2BAAc,OAAM,IAAI,CAAC,uBAAkB,YAAC,EAApB;AACxB,wBAAW;;AAIT,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,cAAP;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,wBAAY,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AAClB,qBAAU,oBAAC,CAAkB,cAAlB;AACX,qBAAU,SAAC,CAAO,GAAP;AACX,qBAAU,eAAC,CAAa,wCAAb;AACX,qBAAU,YAAC,CAAU,SAAV;AACX,qBAAU,aAAC,CAAW,GAAX;AACX,qBAAU,iBAAC,CAAe,SAAf;AAEX,UAAG,qBAAgB,KAAE,EAArB;AAEE,uBAAU,QAAC,CAAM,qBAAN;AACX,gCAAkB;OAHpB;AAMI,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,mBAAP;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,6BAAiB,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,0BAAe,oBAAC,CAAkB,cAAlB;AAChB,0BAAe,cAAC,CAAY,wCAAZ;AAChB,0BAAe,UAAC,CAAQ,GAAR;AAChB,0BAAe,eAAC,CAAa,4CAAb;AAChB,0BAAe,YAAC,CAAU,cAAV;AAChB,0BAAe,iBAAC,CAAe,SAAf;AAChB,UAAG,kBAAa,KAAE,EAAlB;AAEE,4BAAe,QAAC,CAAM,kBAAN;AAChB,6BAAe;OAHjB;AAKI,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,oBAAP;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,8BAAkB,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,2BAAgB,oBAAC,CAAkB,cAAlB;AACjB,2BAAgB,SAAC,CAAO,GAAP;AACjB,2BAAgB,eAAC,CAAa,wCAAb;AACjB,2BAAgB,YAAC,CAAU,mCAAV;AACjB,2BAAgB,aAAC,CAAW,GAAX;AACjB,2BAAgB,iBAAC,CAAe,SAAf;AAEb,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,mEAAP;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,mCAAuB,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,gCAAqB,oBAAC,CAAkB,oBAAlB;AACtB,gCAAqB,SAAC,CAAO,GAAP;AACtB,gCAAqB,eAAC,CAAa,wCAAb;AACtB,gCAAqB,YAAC,CAAU,6DAAV;AACtB,gCAAqB,aAAC,CAAW,GAAX;AACtB,gCAAqB,iBAAC,CAAe,SAAf;AAElB,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,yBAAP;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,wBAAY,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AAClB,qBAAU,oBAAC,CAAkB,cAAlB;AACX,qBAAU,SAAC,CAAO,GAAP;AACX,qBAAU,eAAC,CAAa,wCAAb;AACX,qBAAU,YAAC,CAAU,+BAAV;AACX,qBAAU,aAAC,CAAW,GAAX;AACX,qBAAU,iBAAC,CAAe,SAAf;AAEP,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,gCAAP;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,qBAAS,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AACf,kBAAO,oBAAC,CAAkB,cAAlB;AACR,kBAAO,SAAC,CAAO,GAAP;AACR,kBAAO,eAAC,CAAa,wCAAb;AACR,kBAAO,YAAC,CAAU,6BAAV;AACR,kBAAO,aAAC,CAAW,GAAX;AACR,kBAAO,iBAAC,CAAe,SAAf;AAEJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,gGAAP;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,2BAAe,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,wBAAa,oBAAC,CAAkB,cAAlB;AACd,wBAAa,cAAC,CAAY,wCAAZ;AACd,wBAAa,UAAC,CAAQ,GAAR;AACd,wBAAa,eAAC,CAAa,4CAAb;AACd,wBAAa,YAAC,CAAU,eAAV;AACd,wBAAa,iBAAC,CAAe,SAAf;AAEV,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,2FAAP;AAEJ,OAAJ,IAAG;AACH,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,yBAAc,iBAAC,CAAe,SAAf;AAEX,OAAJ,IAAG;AACH,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,yBAAc,iBAAC,CAAe,SAAf;AAEX,OAAJ,IAAG;AACH,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,yBAAc,iBAAC,CAAe,SAAf;AAEX,OAAJ,IAAG;AACH,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,yBAAa,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,sBAAW,oBAAC,CAAkB,wBAAlB;AACZ,sBAAW,eAAC,CAAa,wCAAb;AACZ,sBAAW,cAAC,CAAY,wCAAZ;AACZ,sBAAW,OAAX,GAAiB;AACjB,sBAAW,WAAC,CAAS,UAAT;AACZ,sBAAW,SAAX,GAAsB;AACtB,sBAAW,iBAAC,CAAe,SAAf;AA3J4B;AAhIJ;AAEpC;AAEA,qBAAc;AACd,UAAG,oBAAe,KAAE,EAApB;AAEE,6BAAgB,OAAO;AACvB,qCAAwB,aAAC,CAAO,eAAU,eAAC,EAAlB;AACzB,yCAA4B,cAAC,CAAY,mBAAI,GAAC,mBAAjB;AAC7B,wCAA2B,aAAC,CAAW,CAAX;AAC5B,sCAAyB,YAAC,CAAU,mBAAc,OAAM,UAAM,CAAC,CAAD,CAAG,UAAvC;AAC1B,yCAA4B,aAAC,CAAW,mBAAc,OAAM,UAAM,CAAC,CAAD,CAAG,MAAxC;AAC7B,sCAAyB,YAAC,CAAU,mBAAc,OAAM,UAAM,CAAC,CAAD,CAAG,MAAvC;AAC1B,4CAA+B,YAAC,CAAU,oBAAV;AAChC,6BAAgB,KAAK;AACrB,uBAAc;OAXhB;AAaA,UAAG,oBAAe,KAAE,EAApB;AAEE,6BAAgB,OAAO;AACvB,qCAAwB,aAAC,CAAO,eAAU,eAAC,EAAlB;AACzB,yCAA4B,cAAC,CAAY,mBAAI,GAAC,mBAAjB;AAC7B,wCAA2B,aAAC,CAAW,CAAX;AAC5B,sCAAyB,YAAC,CAAU,mBAAc,OAAM,UAAM,CAAC,CAAD,CAAG,UAAvC;AAC1B,yCAA4B,aAAC,CAAW,mBAAc,OAAM,UAAM,CAAC,CAAD,CAAG,MAAxC;AAC7B,sCAAyB,YAAC,CAAU,mBAAc,OAAM,UAAM,CAAC,CAAD,CAAG,MAAvC;AAC1B,4CAA+B,YAAC,CAAU,oBAAV;AAChC,6BAAgB,KAAK;AACrB,uBAAc;OAXhB;AAaA,UAAG,oBAAe,KAAE,EAApB;AAEE,6BAAgB,OAAO;AACvB,qCAAwB,aAAC,CAAO,eAAU,eAAC,EAAlB;AACzB,yCAA4B,cAAC,CAAY,mBAAI,GAAC,mBAAjB;AAC7B,wCAA2B,aAAC,CAAW,CAAX;AAC5B,sCAAyB,YAAC,CAAU,mBAAc,OAAM,UAAM,CAAC,CAAD,CAAG,UAAvC;AAC1B,yCAA4B,aAAC,CAAW,mBAAc,OAAM,UAAM,CAAC,CAAD,CAAG,MAAxC;AAC7B,sCAAyB,YAAC,CAAU,mBAAc,OAAM,UAAM,CAAC,CAAD,CAAG,MAAvC;AAC1B,4CAA+B,YAAC,CAAU,oBAAV;AAChC,6BAAgB,KAAK;AACrB,uBAAc;OAXhB;AAaA,UAAG,YAAY,KAAC,IAAhB;AAEE,6BAAgB;;AAIhB,yCAAW,CAAC,wCAAD;AACX;;AAnDkC;AA+cJ;AAEtB;AAEV,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,4BAAkB,iCAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,4BAAkB,iCAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,4BAAkB,iCAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,sBAAY,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACnB,sBAAY,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACnB,4BAAkB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACzB,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,2BAAiB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,wCAA8B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,uBAAa,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,mCAAyB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,8BAAoB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,gCAAsB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,iCAAuB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,6BAAmB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,yBAAe,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,iCAAuB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,mCAAyB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,iCAAuB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,4BAAkB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,2CAAiC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,0CAAgC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,0CAAgC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,8CAAoC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,wCAA8B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,yBAAe,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,4BAAkB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,wCAA8B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,0CAAgC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,8CAAoC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,+CAAqC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,0CAAgC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,0CAAgC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,4CAAkC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,2CAAiC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,yCAA+B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,4CAAkC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,8CAAoC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,iDAAuC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,iDAAuC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,uBAAa,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,0BAAgB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,2BAAiB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,oCAA0B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,8BAAoB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,sCAA4B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,0CAAgC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,0CAAgC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,wBAAc,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,oCAA0B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,+BAAqB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,iCAAuB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,kCAAwB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,8BAAoB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,0BAAgB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,kCAAwB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,iDAAuC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,oCAA0B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,kCAAwB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,0CAAgC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,4CAAkC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,2CAAiC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,2CAAiC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,+CAAqC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAE7C,aAAE;AACF,yBAAc;AACd,yBAAc;AACd,yBAAc;AACd,qBAAU;AACV,qBAAU;AACV,mBAAQ;AACR,mBAAQ;AACR,yBAAc;AACd,qBAAU;AACV,wBAAa;AACb,oCAAyB;AACzB,mCAAwB;AACxB,mCAAwB;AACxB,kCAAuB;AACvB,6BAAkB;AAClB,6BAAkB;AAClB,8BAAmB;AACnB,oCAAyB;AACzB,qCAA0B;AAC1B,oBAAS;AACT,gCAAqB;AACrB,2BAAgB;AAChB,6BAAkB;AAClB,8BAAmB;AACnB,0BAAe;AACf,sBAAW;AACX,8BAAmB;AACnB,2BAAgB;AAChB,gCAAqB;AACrB,qCAA0B;AAC1B,6CAAkC;AAClC,gCAAqB;AACrB,8BAAmB;AACnB,4BAAiB;AACjB,2BAAgB;AAChB,yBAAc;AACd,8BAAmB;AACnB,2BAAgB;AAChB,6BAAkB;AAClB,sCAA2B;AAC3B,wCAA6B;AAC7B,uCAA4B;AAC5B,uCAA4B;AAC5B,2CAAgC;AAChC,oCAAyB;AACzB,qCAA0B;AAC1B,iCAAsB;AACtB,yCAA8B;AAC9B,sCAA2B;AAC3B,sCAA2B;AAC3B,sBAAW;AACX,6BAAkB;AAClB,yBAAc;AACd,qCAA0B;AAC1B,qCAA0B;AAC1B,0CAA+B;AAC/B,uCAA4B;AAC5B,0CAA+B;AAC/B,sCAA2B;AAC3B,iCAAsB;AACtB,gCAAqB;AACrB,qCAA0B;AAC1B,qCAA0B;AAC1B,gCAAqB;AACrB,qCAA0B;AAC1B,4BAAiB;AACjB,uCAA4B;AAC5B,6BAAkB;AAClB,2CAAgC;AAChC,qCAA0B;AAC1B,qCAA0B;AAC1B,oCAAyB;AACzB,wCAA6B;AAC7B,sCAA2B;AAC3B,sCAA2B;AAC3B,qCAA0B;AAC1B,8BAAmB;AACnB,iCAAsB;AACtB,uCAA4B;AAC5B,4CAAiC;AACjC,0CAA+B;AAC/B,2CAAgC;AAChC,uCAA4B;AAC5B,0CAA+B;AAC/B,8BAAmB;AACnB,0CAA+B;AAC/B,sCAA2B;AAC3B,gCAAqB;AACrB,uCAA4B;AAC5B,sCAA2B;AAC3B,yCAA8B;AAC9B,wCAA6B;AAC7B,sCAA2B;AAC3B,uCAA4B;AAC5B,gCAAqB;AACrB,iCAAsB;AACtB,kCAAuB;AACvB,oCAAyB;AACzB,iCAAsB;AACtB,yCAA8B;AAC9B,mCAAwB;AACxB,+BAAoB;AACpB,wCAA6B;AAC7B,2CAAgC;AAChC,uCAA4B;AAC5B,mCAAwB;AACxB,oCAAyB;AACzB,6CAAkC;AAClC,oCAAyB;AACzB,8CAAmC;AACnC,8CAAmC;AACnC,wCAA6B;AAC7B,mCAAwB;AACxB,sCAA2B;AAC3B,oBAAS;AACT,0BAAe;AACf,uBAAY;AACZ,gCAAqB;AACrB,wBAAa;AACb,kCAAuB;AACvB,gCAAqB;AACrB,iCAAsB;AACtB,2BAAgB;AAChB,mCAAwB;AACxB,6BAAkB;AAClB,uCAA4B;AAC5B,sCAA2B;AAC3B,oCAAyB;AACzB,oCAAyB;AACzB,uCAA4B;AAC5B,0CAA+B;AAC/B,qBAAU;AACV,iCAAsB;AACtB,4BAAiB;AACjB,8BAAmB;AACnB,+BAAoB;AACpB,2BAAgB;AAChB,uBAAY;AACZ,+BAAoB;AACpB,4BAAiB;AACjB,iCAAsB;AACtB,sCAA2B;AAC3B,8CAAmC;AACnC,iCAAsB;AACtB,+BAAoB;AACpB,6BAAkB;AAClB,4BAAiB;AACjB,0BAAe;AACf,+BAAoB;AACpB,4BAAiB;AACjB,8BAAmB;AACnB,uCAA4B;AAC5B,yCAA8B;AAC9B,wCAA6B;AAC7B,wCAA6B;AAC7B,4CAAiC;AACjC,qCAA0B;AAC1B,sCAA2B;AAC3B,kCAAuB;AACvB,uCAA4B;AAC5B,0CAA+B;AAC/B,uCAA4B;AAC5B;AACE,qBAAQ,WAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,QAAC,CAAQ,CAAR;AACH,eAAE,OAAC,CAAO,GAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,GAAV;AACH,eAAE,oBAAC,CAAoB,gDAApB;AACH,eAAE,eAAC,CAAe,wCAAf;AACH,eAAE,cAAC,CAAc,2CAAd;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,gBAAC,CAAc,CAAd;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,eAAC,CAAe,yCAAf;AACH,eAAE,0BAAC,CAA0B,eAA1B;AACH,eAAE,mBAAC,CAAmB,gDAAnB;AACH,eAAE,yBAAC,CAAyB,gDAAzB;AACH,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,EAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,oBAAC,CAAoB,cAApB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,cAAC,CAAc,wCAAd;AACf,2BAAc,UAAC,CAAU,gCAAV;AACf,2BAAc,gBAAC,CAAc,CAAd;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,uBAAQ,CAAC,oBAAgB,KAAM,WAAY,sBAAnC;AACR,uBAAQ,CAAC,oBAAgB,KAAM,oBAAqB,+BAA5C;AACR,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,EAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,oBAAC,CAAoB,cAApB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,cAAC,CAAc,wCAAd;AACf,2BAAc,UAAC,CAAU,2BAAV;AACf,2BAAc,gBAAC,CAAc,CAAd;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,uBAAQ,CAAC,oBAAgB,KAAM,WAAY,sBAAnC;AACR,uBAAQ,CAAC,oBAAgB,KAAM,oBAAqB,+BAA5C;AACR,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,EAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,oBAAC,CAAoB,cAApB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,cAAC,CAAc,wCAAd;AACf,2BAAc,UAAC,CAAU,2BAAV;AACf,2BAAc,gBAAC,CAAc,CAAd;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,uBAAQ,CAAC,oBAAgB,KAAM,WAAY,sBAAnC;AACR,uBAAQ,CAAC,oBAAgB,KAAM,oBAAqB,+BAA5C;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,yBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,aAAV,GAA0B;AAC1B,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,CAAR;AACT,qBAAQ,OAAC,CAAO,EAAP;AACT,qBAAQ,SAAC,CAAS,GAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,oBAAC,CAAoB,kCAApB;AACT,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,cAAC,CAAc,2CAAd;AACT,qBAAQ,eAAC,CAAe,0CAAf;AACT,qBAAQ,WAAC,CAAW,WAAX;AACT,qBAAQ,gBAAC,CAAc,CAAd;AACT,qBAAQ,SAAC,CAAS,OAAT;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,eAAC,CAAe,KAAf;AACT,qBAAQ,mBAAmB,CAAC,aAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,CAAR;AACT,qBAAQ,OAAC,CAAO,CAAP;AACT,qBAAQ,SAAC,CAAS,GAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,YAAC,CAAY,KAAZ;AACT,qBAAQ,WAAC,CAAW,cAAX;AACT,qBAAQ,oBAAC,CAAoB,mBAApB;AACT,qBAAQ,yBAAC,CAAyB,kBAAzB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,MAAK,SAAb,GAAyB;AACzB,qBAAQ,MAAK,SAAC,CAAS,KAAT;AACd,qBAAQ,MAAK,UAAC,CAAU,CAAC,EAAX;AACd,qBAAQ,MAAK,QAAC,CAAQ,UAAR;AACd,qBAAQ,MAAK,SAAC,CAAS,EAAT;AACd,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,cAAC,CAAc,KAAd;AACT,qBAAQ,cAAC,CAAc,2CAAd;AACT,qBAAQ,gBAAC,CAAgB,sBAAhB;AACT,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,CAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,oBAAC,CAAoB,kBAApB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,cAAC,CAAc,2CAAd;AACf,2BAAc,eAAC,CAAe,QAAf;AACf,2BAAc,eAAC,CAAe,0CAAf;AACf,2BAAc,gBAAC,CAAc,CAAd;AACf,2BAAc,SAAC,CAAS,QAAT;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,2BAAc,eAAC,CAAe,KAAf;AACf,uBAAU,mBAAmB,CAAC,mBAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,wBAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,iBAAC,CAAiB,iBAAjB;AACd,0BAAa,cAAC,CAAc,aAAG,oBAAjB;AACd,0BAAa,QAAC,CAAQ,EAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,sCAAyB,mBAAmB,CAAC,kBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,UAAzB,GAAsC;AACtC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,qCAAwB,mBAAmB,CAAC,kBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,mBAAmB,CAAC,kBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,oCAAuB,mBAAmB,CAAC,kBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,+BAAkB,mBAAmB,CAAC,kBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,mBAAmB,CAAC,kBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,gCAAmB,mBAAmB,CAAC,kBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,sCAAyB,mBAAmB,CAAC,kBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,uCAA0B,mBAAmB,CAAC,kBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,mBAAT,GAA+B;AAC/B,sBAAS,WAAT,GAAuB;AACvB,sBAAS,WAAT,GAAuB;AACvB,sBAAS,iBAAC,CAAiB,gBAAjB;AACV,sBAAS,cAAC,CAAc,aAAG,oBAAjB;AACV,sBAAS,UAAT,GAAsB;AACtB,sBAAS,QAAC,CAAQ,EAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,4BAAe,mBAAmB,CAAC,cAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,wBAAW,mBAAmB,CAAC,cAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,wBAAW,UAAX,GAAwB;AACxB,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,GAAR;AACjB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,GAAR;AACtB,uCAA0B,mBAAmB,CAAC,cAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,+CAAkC,mBAAmB,CAAC,cAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,EAAR;AACnC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,2BAAc,mBAAmB,CAAC,cAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,QAAC,CAAQ,EAAR;AACf,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,GAAR;AACpB,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,GAAR;AACjB,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,GAAR;AACnB,wCAA2B,mBAAmB,CAAC,cAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,0CAA6B,mBAAmB,CAAC,cAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,yCAA4B,mBAAmB,CAAC,cAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,mBAAmB,CAAC,cAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,6CAAgC,mBAAmB,CAAC,cAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,GAAR;AAC1B,uCAA0B,mBAAmB,CAAC,cAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,2CAA8B,mBAAmB,CAAC,cAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,GAAR;AAC/B,wCAA2B,mBAAmB,CAAC,cAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,GAAR;AAC5B,wCAA2B,mBAAmB,CAAC,cAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,GAAR;AAC5B,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,wBAAW,iBAAC,CAAiB,cAAjB;AACZ,wBAAW,cAAC,CAAc,aAAG,oBAAjB;AACZ,wBAAW,QAAC,CAAQ,EAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,+BAAkB,mBAAmB,CAAC,gBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,UAAlB,GAA+B;AAC/B,+BAAkB,QAAC,CAAQ,EAAR;AACnB,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,iBAAC,CAAiB,UAAjB;AACf,2BAAc,cAAC,CAAc,aAAG,oBAAjB;AACf,2BAAc,QAAC,CAAQ,EAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,uCAA0B,mBAAmB,CAAC,mBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,UAA1B,GAAuC;AACvC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,uCAA0B,mBAAmB,CAAC,mBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,4CAA+B,mBAAmB,CAAC,mBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,yCAA4B,mBAAmB,CAAC,mBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,4CAA+B,mBAAmB,CAAC,mBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,wCAA2B,mBAAmB,CAAC,mBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,mCAAsB,mBAAmB,CAAC,mBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,kCAAqB,mBAAmB,CAAC,mBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,uCAA0B,mBAAmB,CAAC,mBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,uCAA0B,mBAAmB,CAAC,mBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,kCAAqB,mBAAmB,CAAC,mBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,uCAA0B,mBAAmB,CAAC,mBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,CAAR;AAC3B,8BAAiB,mBAAmB,CAAC,mBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,yCAA4B,mBAAmB,CAAC,mBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,CAAR;AAC7B,+BAAkB,mBAAmB,CAAC,mBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,6CAAgC,mBAAmB,CAAC,mBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,uCAA0B,mBAAmB,CAAC,mBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,uCAA0B,mBAAmB,CAAC,mBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,GAAR;AAC3B,sCAAyB,mBAAmB,CAAC,mBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,GAAR;AAC1B,0CAA6B,mBAAmB,CAAC,mBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,GAAR;AAC9B,wCAA2B,mBAAmB,CAAC,mBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,wCAA2B,mBAAmB,CAAC,mBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,uCAA0B,mBAAmB,CAAC,mBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,gCAAmB,mBAAmB,CAAC,mBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,mCAAsB,mBAAmB,CAAC,mBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,yCAA4B,mBAAmB,CAAC,mBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,8CAAiC,mBAAmB,CAAC,mBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,4CAA+B,mBAAmB,CAAC,mBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,6CAAgC,mBAAmB,CAAC,mBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,GAAR;AACjC,yCAA4B,mBAAmB,CAAC,mBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,4CAA+B,mBAAmB,CAAC,mBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,gCAAmB,mBAAmB,CAAC,mBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,4CAA+B,mBAAmB,CAAC,mBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,wCAA2B,mBAAmB,CAAC,mBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,kCAAqB,mBAAmB,CAAC,mBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,yCAA4B,mBAAmB,CAAC,mBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,wCAA2B,mBAAmB,CAAC,mBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,2CAA8B,mBAAmB,CAAC,mBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,0CAA6B,mBAAmB,CAAC,mBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,wCAA2B,mBAAmB,CAAC,mBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,yCAA4B,mBAAmB,CAAC,mBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,kCAAqB,mBAAmB,CAAC,mBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,GAAR;AACtB,mCAAsB,mBAAmB,CAAC,mBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,oCAAuB,mBAAmB,CAAC,mBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,sCAAyB,mBAAmB,CAAC,mBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,mCAAsB,mBAAmB,CAAC,mBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,2CAA8B,mBAAmB,CAAC,mBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,qCAAwB,mBAAmB,CAAC,mBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,iCAAoB,mBAAmB,CAAC,mBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,0CAA6B,mBAAmB,CAAC,mBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,6CAAgC,mBAAmB,CAAC,mBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,yCAA4B,mBAAmB,CAAC,mBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,CAAR;AAC7B,qCAAwB,mBAAmB,CAAC,mBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,sCAAyB,mBAAmB,CAAC,mBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,+CAAkC,mBAAmB,CAAC,mBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,GAAR;AACnC,sCAAyB,mBAAmB,CAAC,mBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,gDAAmC,mBAAmB,CAAC,mBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,gDAAmC,mBAAmB,CAAC,mBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,gDAAmC,QAAC,CAAQ,GAAR;AACpC,0CAA6B,mBAAmB,CAAC,mBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,GAAR;AAC9B,qCAAwB,mBAAmB,CAAC,mBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,wCAA2B,mBAAmB,CAAC,mBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,GAAR;AAC5B,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,WAAT,GAAuB;AACvB,sBAAS,iBAAC,CAAiB,kBAAjB;AACV,sBAAS,cAAC,CAAc,aAAG,oBAAjB;AACV,sBAAS,QAAC,CAAQ,EAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,4BAAe,mBAAmB,CAAC,cAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,UAAf,GAA4B;AAC5B,4BAAe,QAAC,CAAQ,EAAR;AAChB,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,iBAAC,CAAiB,qBAAjB;AACb,yBAAY,cAAC,CAAc,aAAG,oBAAjB;AACb,yBAAY,QAAC,CAAQ,EAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,kCAAqB,mBAAmB,CAAC,iBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,UAArB,GAAkC;AAClC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,iBAAC,CAAiB,sBAAjB;AACd,0BAAa,cAAC,CAAc,aAAG,oBAAjB;AACd,0BAAa,aAAb,GAA6B;AAC7B,0BAAa,QAAC,CAAQ,EAAR;AACd,0BAAa,OAAC,CAAO,EAAP;AACd,oCAAuB,mBAAmB,CAAC,kBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,UAAvB,GAAoC;AACpC,kCAAqB,mBAAmB,CAAC,kBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,mCAAsB,mBAAmB,CAAC,kBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,6BAAgB,mBAAmB,CAAC,IAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,mBAAhB,GAAsC;AACtC,6BAAgB,WAAhB,GAA8B;AAC9B,uBAAQ,CAAC,sBAAkB,KAAM,cAAe,2BAAxC;AACR,6BAAgB,iBAAC,CAAiB,mBAAjB;AACjB,6BAAgB,cAAC,CAAc,aAAG,oBAAjB;AACjB,6BAAgB,UAAhB,GAA6B;AAC7B,6BAAgB,QAAC,CAAQ,GAAR;AACjB,6BAAgB,OAAC,CAAO,EAAP;AACjB,qCAAwB,mBAAmB,CAAC,qBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,UAAxB,GAAqC;AACrC,+BAAkB,mBAAmB,CAAC,qBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,UAAlB,GAA+B;AAC/B,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,UAA5B,GAAyC;AACzC,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,sCAAyB,mBAAmB,CAAC,qBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,sCAAyB,mBAAmB,CAAC,qBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,GAAR;AAC1B,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,GAAR;AAChC,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,WAAV,GAAwB;AACxB,uBAAU,iBAAC,CAAiB,gBAAjB;AACX,uBAAU,cAAC,CAAc,aAAG,oBAAjB;AACX,uBAAU,aAAV,GAA0B;AAC1B,uBAAU,UAAV,GAAuB;AACvB,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,gCAAmB,mBAAmB,CAAC,eAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,6BAAgB,mBAAmB,CAAC,eAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,yBAAY,mBAAmB,CAAC,eAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,UAAZ,GAAyB;AACzB,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,GAAR;AAClB,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,wCAA2B,mBAAmB,CAAC,eAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,gDAAmC,mBAAmB,CAAC,eAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,gDAAmC,QAAC,CAAQ,EAAR;AACpC,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,+BAAkB,mBAAmB,CAAC,eAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,4BAAe,mBAAmB,CAAC,eAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,EAAR;AAChB,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,GAAR;AACrB,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,GAAR;AAClB,gCAAmB,mBAAmB,CAAC,eAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,GAAR;AACpB,yCAA4B,mBAAmB,CAAC,eAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,2CAA8B,mBAAmB,CAAC,eAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,8CAAiC,mBAAmB,CAAC,eAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,uCAA0B,mBAAmB,CAAC,eAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,GAAR;AAC3B,wCAA2B,mBAAmB,CAAC,eAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,GAAR;AACxB,yCAA4B,mBAAmB,CAAC,eAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,GAAR;AAC7B,4CAA+B,mBAAmB,CAAC,eAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,GAAR;AAChC,yCAA4B,mBAAmB,CAAC,eAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,GAAR;AA7uB/B;AA+uBE,eAAE;AACF,2BAAc;AACd,2BAAc;AACd,2BAAc;AACd,uBAAU;AACV,uBAAU;AACV,qBAAQ;AACR,qBAAQ;AACR,2BAAc;AACd,uBAAU;AACV,0BAAa;AACb,sCAAyB;AACzB,qCAAwB;AACxB,qCAAwB;AACxB,oCAAuB;AACvB,+BAAkB;AAClB,+BAAkB;AAClB,gCAAmB;AACnB,sCAAyB;AACzB,uCAA0B;AAC1B,sBAAS;AACT,kCAAqB;AACrB,6BAAgB;AAChB,+BAAkB;AAClB,gCAAmB;AACnB,4BAAe;AACf,wBAAW;AACX,gCAAmB;AACnB,6BAAgB;AAChB,kCAAqB;AACrB,uCAA0B;AAC1B,+CAAkC;AAClC,kCAAqB;AACrB,gCAAmB;AACnB,8BAAiB;AACjB,6BAAgB;AAChB,2BAAc;AACd,gCAAmB;AACnB,6BAAgB;AAChB,+BAAkB;AAClB,wCAA2B;AAC3B,0CAA6B;AAC7B,yCAA4B;AAC5B,yCAA4B;AAC5B,6CAAgC;AAChC,sCAAyB;AACzB,uCAA0B;AAC1B,mCAAsB;AACtB,2CAA8B;AAC9B,wCAA2B;AAC3B,wCAA2B;AAC3B,wBAAW;AACX,+BAAkB;AAClB,2BAAc;AACd,uCAA0B;AAC1B,uCAA0B;AAC1B,4CAA+B;AAC/B,yCAA4B;AAC5B,4CAA+B;AAC/B,wCAA2B;AAC3B,mCAAsB;AACtB,kCAAqB;AACrB,uCAA0B;AAC1B,uCAA0B;AAC1B,kCAAqB;AACrB,uCAA0B;AAC1B,8BAAiB;AACjB,yCAA4B;AAC5B,+BAAkB;AAClB,6CAAgC;AAChC,uCAA0B;AAC1B,uCAA0B;AAC1B,sCAAyB;AACzB,0CAA6B;AAC7B,wCAA2B;AAC3B,wCAA2B;AAC3B,uCAA0B;AAC1B,gCAAmB;AACnB,mCAAsB;AACtB,yCAA4B;AAC5B,8CAAiC;AACjC,4CAA+B;AAC/B,6CAAgC;AAChC,yCAA4B;AAC5B,4CAA+B;AAC/B,gCAAmB;AACnB,4CAA+B;AAC/B,wCAA2B;AAC3B,kCAAqB;AACrB,yCAA4B;AAC5B,wCAA2B;AAC3B,2CAA8B;AAC9B,0CAA6B;AAC7B,wCAA2B;AAC3B,yCAA4B;AAC5B,kCAAqB;AACrB,mCAAsB;AACtB,oCAAuB;AACvB,sCAAyB;AACzB,mCAAsB;AACtB,2CAA8B;AAC9B,qCAAwB;AACxB,iCAAoB;AACpB,0CAA6B;AAC7B,6CAAgC;AAChC,yCAA4B;AAC5B,qCAAwB;AACxB,sCAAyB;AACzB,+CAAkC;AAClC,sCAAyB;AACzB,gDAAmC;AACnC,gDAAmC;AACnC,0CAA6B;AAC7B,qCAAwB;AACxB,wCAA2B;AAC3B,sBAAS;AACT,4BAAe;AACf,yBAAY;AACZ,kCAAqB;AACrB,0BAAa;AACb,oCAAuB;AACvB,kCAAqB;AACrB,mCAAsB;AACtB,6BAAgB;AAChB,qCAAwB;AACxB,+BAAkB;AAClB,yCAA4B;AAC5B,wCAA2B;AAC3B,sCAAyB;AACzB,sCAAyB;AACzB,yCAA4B;AAC5B,4CAA+B;AAC/B,uBAAU;AACV,mCAAsB;AACtB,8BAAiB;AACjB,gCAAmB;AACnB,iCAAoB;AACpB,6BAAgB;AAChB,yBAAY;AACZ,iCAAoB;AACpB,8BAAiB;AACjB,mCAAsB;AACtB,wCAA2B;AAC3B,gDAAmC;AACnC,mCAAsB;AACtB,iCAAoB;AACpB,+BAAkB;AAClB,8BAAiB;AACjB,4BAAe;AACf,iCAAoB;AACpB,8BAAiB;AACjB,gCAAmB;AACnB,yCAA4B;AAC5B,2CAA8B;AAC9B,0CAA6B;AAC7B,0CAA6B;AAC7B,8CAAiC;AACjC,uCAA0B;AAC1B,wCAA2B;AAC3B,oCAAuB;AACvB,yCAA4B;AAC5B,4CAA+B;AAC/B,yCAA4B;AAj5B9B;AA3UgC;AA7qBtB;;;AACR,gChHIc,kDgHJd;AACA,qB1Gs7BW,0C0Gt7BX;AACA,4BhHEc,kDgHFd;AACA,4CtIgaU,4BsIhaV;AACA,2CtIudW,6BsIvdX;AACA,2CtIsdW,6BsItdX;AACA,0CtIqdW,6BsIrdX;AACA,qCtIodW,6BsIpdX;AACA,qCtImdW,6BsIndX;AACA,sCtIqiBS,2BsIriBT;AACA,4CtIoiBS,2BsIpiBT;AACA,6CtIgdW,6BsIhdX;AACA,wClILkB,0DkIKlB;AACA,mClINkB,0DkIMlB;AACA,qClIPkB,0DkIOlB;AACA,sClIRkB,0DkIQlB;AACA,kClITkB,0DkISlB;AACA,8BtI0cW,6BsI1cX;AACA,sCtIwlBY,8BsIxlBZ;AACA,mCtIgZU,4BsIhZV;AACA,wCtI+YU,4BsI/YV;AACA,6CtIyhBS,2BsIzhBT;AACA,qDtI6YU,4BsI7YV;AACA,wCtImlBY,8BsInlBZ;AACA,sCtIklBY,8BsIllBZ;AACA,oCtI0YU,4BsI1YV;AACA,mCtIyYU,4BsIzYV;AACA,iCtIwYU,4BsIxYV;AACA,sCtIuYU,4BsIvYV;AACA,mCtIsYU,4BsItYV;AACA,qCtIqYU,4BsIrYV;AACA,8CtI4bW,6BsI5bX;AACA,gDtI2bW,6BsI3bX;AACA,+CtI0bW,6BsI1bX;AACA,+CtIwkBY,8BsIxkBZ;AACA,mDtIukBY,8BsIvkBZ;AACA,4CtI+XU,4BsI/XV;AACA,6CtIsbW,6BsItbX;AACA,yCtI6XU,4BsI7XV;AACA,iDtI4XU,4BsI5XV;AACA,8CtI2XU,4BsI3XV;AACA,8BhHrCc,kDgHqCd;AACA,qCtIyXU,4BsIzXV;AACA,iChHvCc,kDgHuCd;AACA,6CtIuXU,4BsIvXV;AACA,6CtIoiBW,6BsIpiBX;AACA,kDtImiBW,6BsIniBX;AACA,+CtIkiBW,6BsIliBX;AACA,kDtIiiBW,6BsIjiBX;AACA,8CtIkXU,4BsIlXV;AACA,yCtIiXU,4BsIjXV;AACA,wCtIgXU,4BsIhXV;AACA,6CtI+WU,4BsI/WV;AACA,6CtI8WU,4BsI9WV;AACA,wCtI6WU,4BsI7WV;AACA,6CtI4WU,4BsI5WV;AACA,oCtI2WU,4BsI3WV;AACA,+CtI0WU,4BsI1WV;AACA,qCtIyWU,4BsIzWV;AACA,mDtIshBW,6BsIthBX;AACA,6CtIuWU,4BsIvWV;AACA,6CtIsWU,4BsItWV;AACA,4CtIqWU,4BsIrWV;AACA,gDtIoWU,4BsIpWV;AACA,8CtImWU,4BsInWV;AACA,8CtIkWU,4BsIlWV;AACA,6CtIiWU,4BsIjWV;AACA,sCtIgWU,4BsIhWV;AACA,yCtI+VU,4BsI/VV;AACA,+CtI8VU,4BsI9VV;AACA,oDtI2gBW,6BsI3gBX;AACA,kDtIoZW,6BsIpZX;AACA,mDtI2VU,4BsI3VV;AACA,+CtIwgBW,6BsIxgBX;AACA,kDtIyVU,4BsIzVV;AACA,sCtIwVU,4BsIxVV;AACA,kDtI+YW,6BsI/YX;AACA,8CtIsVU,4BsItVV;AACA,wCtIqVU,4BsIrVV;AACA,+CtI4YW,6BsI5YX;AACA,8CtI8dS,2BsI9dT;AACA,iDtI6dS,2BsI7dT;AACA,gDtIyYW,6BsIzYX;AACA,8CtIuhBY,8BsIvhBZ;AACA,+CtI+UU,4BsI/UV;AACA,wCtI8UU,4BsI9UV;AACA,yCtIwdS,2BsIxdT;AACA,0CtIudS,2BsIvdT;AACA,4CtIsdS,2BsItdT;AACA,yCtI0UU,4BsI1UV;AACA,iDtIghBY,8BsIhhBZ;AACA,2CtIwUU,4BsIxUV;AACA,uCtIuUU,4BsIvUV;AACA,gDtIsUU,4BsItUV;AACA,mDtI4gBY,8BsI5gBZ;AACA,+CtIoUU,4BsIpUV;AACA,2CtIifW,6BsIjfX;AACA,4CtIkUU,4BsIlUV;AACA,qDtIiUU,4BsIjUV;AACA,4CtI8eW,6BsI9eX;AACA,sDtIsgBY,8BsItgBZ;AACA,sDtI8TU,4BsI9TV;AACA,gDtI6TU,4BsI7TV;AACA,2CtIoXW,6BsIpXX;AACA,8CtI2TU,4BsI3TV;AACA,4BhHrGc,kDgHqGd;AACA,kCtIyTU,4BsIzTV;AACA,+BhHvGc,kDgHuGd;AACA,wCtIuTU,4BsIvTV;AACA,gChHzGc,kDgHyGd;AACA,0CtI6WW,6BsI7WX;AACA,wCtIoTU,4BsIpTV;AACA,yCtI2WW,6BsI3WX;AACA,mChH7Gc,kDgH6Gd;AACA,2ClI3GkB,0DkI2GlB;AACA,qCtIwWW,6BsIxWX;AACA,+CtIsfY,8BsItfZ;AACA,8CtIsWW,6BsItWX;AACA,4CtI6SU,4BsI7SV;AACA,4CtI4SU,4BsI5SV;AACA,+CtImWW,6BsInWX;AACA,kDtI0SU,4BsI1SV;AACA,iCzK6PS,0CyK7PT;AACA,iCzK4PS,0CyK5PT;AACA,iCzK2PS,0CyK3PT;AACA,6BhHzHc,kDgHyHd;AACA,8CtIqSU,4BsIrSV;AACA,6BvJwzBY,8CuJxzBZ;AACA,6BvJuzBY,8CuJvzBZ;AACA,2BvJ+TI,sCuJ/TJ;AACA,2BxJ3BI,sCwJ2BJ;AACA,iCvJ6TI,sCuJ7TJ;AACA,6BxJqcK,uCwJrcL;AACA,yClI9HkB,0DkI8HlB;AACA,oClI/HkB,0DkI+HlB;AACA,sClIhIkB,0DkIgIlB;AACA,uClIjIkB,0DkIiIlB;AACA,mClIlIkB,0DkIkIlB;AACA,+BtIiVW,6BsIjVX;AACA,uCtI+dY,8BsI/dZ;AACA,oCtIuRU,4BsIvRV;AACA,yCtIsRU,4BsItRV;AACA,8CtIgaS,2BsIhaT;AACA,sDtIoRU,4BsIpRV;AACA,yCtI0dY,8BsI1dZ;AACA,uCtIydY,8BsIzdZ;AACA,qCtIiRU,4BsIjRV;AACA,oCtIgRU,4BsIhRV;AACA,kCtI+QU,4BsI/QV;AACA,uCtI8QU,4BsI9QV;AACA,oCtI6QU,4BsI7QV;AACA,sCtI4QU,4BsI5QV;AACA,+CtImUW,6BsInUX;AACA,iDtIkUW,6BsIlUX;AACA,gDtIiUW,6BsIjUX;AACA,gDtI+cY,8BsI/cZ;AACA,oDtI8cY,8BsI9cZ;AACA,6CtIsQU,4BsItQV;AACA,8CtI6TW,6BsI7TX;AACA,0CtIoQU,4BsIpQV;AACA,+CtImQU,4BsInQV;AACA,kDtIkQU,4BsIlQV;AACA,+CtIiQU,4BsIjQV;AACqB,kCAAO,UrLjDvB,2BqLiDuB,CAAP;AACW,6CAAQ,WtIy6BlC,wBsIz6BkC,CAAR;AACF,2CAAQ,WtIw6BhC,wBsIx6BgC,CAAR;AACF,yCAAQ,WtIu6B9B,wBsIv6B8B,CAAR;AACK,8CAAQ,WtIs6BnC,wBsIt6BmC,CAAR;AACL,yCAAQ,WtIq6B9B,wBsIr6B8B,CAAR;AACQ,iDAAO,UtIo6BrC,wBsIp6BqC,EACrC,QtIw5BO,+BsIx5BP,CAD8B;AAER,yCAAQ,WtIk6B9B,wBsIl6B8B,CAAR;AACG,4CAAQ,WtIi6BjC,wBsIj6BiC,CAAR;AACC,6CAAQ,WtIg6BlC,wBsIh6BkC,CAAR;AACG,gDAAQ,WtI+5BrC,wBsI/5BqC,CAAR;AACL,2CAAO,UrL7DhC,2BqL6DgC,CAAP;AACD,0CAAQ,WtI65B/B,wBsI75B+B,CAAR;AACU,oDAAO,UrL/DzC,2BqL+DyC,EAClC,2BAAkB,sBADS;AAET,2CAAO,UrLjEhC,2BqLiEgC,CAAP;AACA,2CAAO,UrLlEhC,2BqLkEgC,CAAP;AACS,oDAAO,UrLnEzC,2BqLmEyC,EAClC,2BAAkB,sBADS;AAEA,oDAAO,UrLrEzC,2BqLqEyC,EAClC,2BAAkB,sBADS;AAEI,wDAAO,UtIo5B5C,wBsIp5B4C,EAC5C,QtIw4BO,+BsIx4BP,CADqC;AAER,gDAAQ,WtIk5BrC,wBsIl5BqC,CAAR;AACV,sCAAO,UrL1E3B,2BqL0E2B,CAAP;AA7LjB;AA6MV;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAnOF,GAqOc,gBArOd;ACAA,oCAES,wRAFT;;;AAWmB;;;AACf;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAgBA;AAnPe;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAwRoB;AAErC;AACA;AAEA,qBAAU,MAAK,WAAC,CAAM,iEAAgF,GAAd,mBAAD,GAAgB,aAAvF;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AAGX,kBAAW,eAAU,iBAAC;AACtB,aAAE,iBAAC,CAAe,SAAf;AACH,aAAE,WAAC,CAAS,IAAT;AACH,aAAE,YAAC,CAAU,EAAV;AACH,aAAE,YAAC,CAAU,CAAV;AACH,UAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,UAAP;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,sBAAW,iBAAC,CAAe,SAAf;AACR,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,cAAP;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,0BAAe,iBAAC,CAAe,SAAf;AACZ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,OAAP;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,mBAAQ,iBAAC,CAAe,SAAf;AACL,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,SAAP;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,qBAAU,iBAAC,CAAe,SAAf;AACP,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,cAAP;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,0BAAe,iBAAC,CAAe,SAAf;AACZ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,cAAP;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,0BAAe,iBAAC,CAAe,SAAf;AACZ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,SAAP;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,qBAAU,iBAAC,CAAe,SAAf;AACP,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,aAAP;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,0BAAe,iBAAC,CAAe,SAAf;AACZ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,KAAP;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,iBAAM,iBAAC,CAAe,SAAf;AACH,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,MAAP;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,kBAAO,iBAAC,CAAe,SAAf;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,SAAP;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,qBAAU,iBAAC,CAAe,SAAf;AACP,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,oBAAP;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,+BAAoB,iBAAC,CAAe,SAAf;AACjB,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,cAAP;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,0BAAe,iBAAC,CAAe,SAAf;AACZ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,UAAP;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,sBAAW,iBAAC,CAAe,SAAf;AACR,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,OAAP;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,mBAAQ,iBAAC,CAAe,SAAf;AACL,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,EAAP;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,uBAAY,iBAAC,CAAe,SAAf;AACb,mBAAG,YAAY;AACf,qBAAU;AAnF2B;AAZI;AAEzC,2BAAgB;AAChB,UAAI;AAHqC;AA8LI;AAE7C,2BAAgB;AAChB,2BAAgB,aAAhB,GAA8B,0BAA0B,GAAC,sBAAS,CAAC,oBlL/Lf,GkL+Lc,CAAV;AACxD,2BAAgB;AAJ6B;AAnEM;AAEnD;AAFmD;AArHK;AAExD,UAAG,wBAAmB,OAAM,KAAE,6BAA9B;AAA4C,yBAAY,WAAC,CAAS,IAAT;AAAgC,YAAb,iBAAY,WAAC,CAAS,KAAT;AAFjC;AArBb;AAE3C,UAAG,eAAU,OAAO,CAAC,OAAQ,yBAAoB,YAAC,GAAS,EAAvC,CAA0C,KAAC,IAA/D;AAEE,2CAA8B,YAAC,CAAU,6BAAwB,YAAC,EAAnC;AAC/B,YAAG,mCAA8B,YAAC,EAAQ,KAAE,aAAG,0BAA0B,YAAC,EAA1E;AAAwF,iDAAkC,aAAC,CAAW,IAAX;AAAwD,cAAnC,uCAAkC,aAAC,CAAW,KAAX;AACnL,6BAAgB;;AAIhB,yCAAW,CAAC,gEAAD;AACX;;AAXyC;AAkHE;AAE7C,qBAAU;AAFmC;AAqCO;AAEpD;AAEA,gBAAS;AACT,UAAU,iCAA4B,YAAC,EAA9B,OAAuC,GAAC,CAAjD;AAEE,kBAAS,OAAuD,GAA7C,iCAA4B,YAAC,EAA/B,GAA2C,oBAAC,EAAD,CAAJ,GAAY,oBAAC,EAAD,CAAJ;OAFlE;AAIA,UAAW,0BAAqB,YAAC,EAAvB,OAAgC,GAAC,CAA3C;AAEE,kBAAS,OAAwC,GAA9B,0BAAqB,YAAC,EAAxB,GAAiC,GAAD;OAFnD;AAIA,UAAU,4BAAuB,YAAC,EAAzB,OAAkC,GAAC,CAA5C;AAEE,kBAAS,OAA0C,GAAhC,4BAAuB,YAAC,EAA1B,GAAmC,GAAD;OAFrD;AAIA,gBAAS,OAAmD,GAAzC,6BAAwB,YAAC,EAA3B,GAAuC,oBAAC,EAAD,CAAJ,GAAY,oBAAC,EAAD,CAAJ;AAC5D,UAAU,iCAA4B,YAAC,EAA9B,OAAuC,GAAC,CAAjD;AAEE,kBAAS,OAAuD,GAA7C,iCAA4B,YAAC,EAA/B,GAA2C,oBAAC,EAAD,CAAJ,GAAY,oBAAC,EAAD,CAAJ;OAFlE;AAIA,UAAU,iCAA4B,YAAC,EAA9B,OAAuC,GAAC,CAAjD;AAEE,kBAAS,OAAuD,GAA7C,iCAA4B,YAAC,EAA/B,GAA2C,oBAAC,EAAD,CAAJ,GAAY,oBAAC,EAAD,CAAJ;OAFlE;AAIA,gBAAS,OAAkD,GAAxC,4BAAuB,YAAC,EAA1B,GAAsC,oBAAC,EAAD,CAAJ,GAAY,oBAAC,EAAD,CAAJ;AAC3D,UAAG,uCAAkC,aAAC,EAAS,KAAC,IAAhD;AAEE,kBAAS,OAA+C,GAArC,iCAA4B,YAAC,EAA/B,GAAyC,GAAF;AACxD,kBAAS,OAAyD,GAA/C,sBAAS,CAAC,wBAAmB,YAAC,EAArB,CAAX,GAA6C,oBAAC,EAAD,CAAJ,GAAY,oBAAC,EAAD,CAAJ;AAClE,kBAAS,OAAQ,GAAE,sBAAS,CAAC,yBAAoB,YAAC,EAAtB,CAAX;;AAIjB,kBAAS,OAA8C,GAArC,iCAA4B,YAAC,EAA9B,GAAwC,GAAF;AACvD,kBAAS,OAA8C,GAApC,wBAAmB,YAAC,EAAtB,GAAkC,oBAAC,EAAD,CAAJ,GAAY,oBAAC,EAAD,CAAJ;;AAEzD,sCAA2B,YAAC,CAAU,OAAV;AAE5B,UAAG,eAAU,OAAO,CAAC,iBAAiB,mCAA8B,YAAC,GAAS,EAA1D,CAA6D,KAAC,IAAlF;AAEE,gDAAmC,aAAC,CAAW,kCAA6B,aAAC,EAAzC;AACpC,4CAA+B,YAAC,CAAU,8BAAyB,YAAC,EAApC;AAChC,4CAA+B,YAAC,CAAU,8BAAyB,YAAC,EAApC;AAChC,4CAA+B,YAAC,CAAU,8BAAyB,YAAC,EAApC;AAChC,4CAA+B,YAAC,CAAU,8BAAyB,YAAC,EAApC;AAChC,4CAA+B,YAAC,CAAU,8BAAyB,YAAC,EAApC;AAChC,4CAA+B,YAAC,CAAU,8BAAyB,YAAC,EAApC;OARlC;AAUA,oCAAyB,YAAC,CAAU,8BAAyB,YAAC,EAAqE,GAA5D,0BAAa,CAAC,mBAAI,GAAC,mBAAD,ClLuFnB,KkLvFc,CAAd,GAA0B,YAAD,GAAe,2BAAF,GAAoB,IAAD,GAAK,IAA1G;AAC1B,yCAA8B,cAAC,CAAY,mBAAI,GAAC,mBAAjB;AAnDqB;AALD;AAEnD,2BAAgB;AAFmC;AA1BQ;AAG3D;AAEA,eAAS,QAAS,kBAAC,IAAI,QAAL,uBAAlB;AAAI;AAEF,YAAG,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAM,KAAE,EAA1B,EAAkC,iCAAW,CAAC,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAhB,CAA7C;;AAEF,UAAG,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAM,KAAC,EAAzB;AAEE,uBAAU;AACV,uBAAU;AACV,6BAAgB;AAChB;OALF;AAT2D;AA4FpB;AAE7B;AAEV,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,6BAAmB,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,0BAAgB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,wBAAc,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,6BAAmB,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,6BAAmB,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,oBAAU,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAClB,qBAAW,uCAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,kCAAwB,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,6BAAmB,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,yBAAe,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,sBAAY,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,6BAAmB,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,sBAAY,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,yBAAe,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,8BAAoB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,0CAAgC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,+CAAqC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,4CAAkC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,+CAAqC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,gDAAsC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,0CAAgC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,iDAAuC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,+CAAqC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,8CAAoC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,iDAAuC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,4CAAkC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,2CAAiC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,kDAAwC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,qDAA2C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,oDAA0C,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,oDAA0C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvD,sCAA4B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,4CAAkC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,gDAAsC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,4CAAkC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,4CAAkC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,kDAAwC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,6CAAmC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,6CAAmC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,6CAAmC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,8CAAoC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,8CAAoC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,oCAA0B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,0CAAgC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,wCAA8B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,+CAAqC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,6DAAmD,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChE,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,uDAA6C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1D,qDAA2C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,iDAAuC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,kDAAwC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,qDAA2C,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvD,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,6CAAmC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,6CAAmC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,4CAAkC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,8CAAoC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,2CAAiC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,8CAAoC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,gDAAsC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,wCAA8B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,kDAAwC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,mDAAyC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,mDAAyC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,wCAA8B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,iCAAuB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,gDAAsC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,wBAAc,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,4BAAkB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,2BAAiB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,2CAAiC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,4CAAkC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,4CAAkC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,4CAAkC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,4CAAkC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,4CAAkC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,4CAAkC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,oDAA0C,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,oDAA0C,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,oDAA0C,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,oDAA0C,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,oDAA0C,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,oDAA0C,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,2BAAiB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAE7B,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,aAAE;AACF,qBAAU;AACV,0BAAe;AACf,qBAAU;AACV,uBAAY;AACZ,qBAAU;AACV,0BAAe;AACf,0BAAe;AACf,iBAAM;AACN,kBAAO;AACP,qBAAU;AACV,+BAAoB;AACpB,0BAAe;AACf,sBAAW;AACX,mBAAQ;AACR,0BAAe;AACf,mBAAQ;AACR,sBAAW;AACX,8BAAmB;AACnB,2BAAgB;AAChB,uCAA4B;AAC5B,uCAA4B;AAC5B,4CAAiC;AACjC,yCAA8B;AAC9B,4CAAiC;AACjC,wCAA6B;AAC7B,mCAAwB;AACxB,kCAAuB;AACvB,uCAA4B;AAC5B,uCAA4B;AAC5B,kCAAuB;AACvB,uCAA4B;AAC5B,8BAAmB;AACnB,yCAA8B;AAC9B,+BAAoB;AACpB,6CAAkC;AAClC,uCAA4B;AAC5B,uCAA4B;AAC5B,uCAA4B;AAC5B,sCAA2B;AAC3B,0CAA+B;AAC/B,uCAA4B;AAC5B,wCAA6B;AAC7B,wCAA6B;AAC7B,uCAA4B;AAC5B,gCAAqB;AACrB,mCAAwB;AACxB,yCAA8B;AAC9B,8CAAmC;AACnC,sCAA2B;AAC3B,kCAAuB;AACvB,sCAA2B;AAC3B,sCAA2B;AAC3B,sCAA2B;AAC3B,4CAAiC;AACjC,6CAAkC;AAClC,oCAAyB;AACzB,qCAA0B;AAC1B,sCAA2B;AAC3B,sCAA2B;AAC3B,+BAAoB;AACpB,uCAA4B;AAC5B,uCAA4B;AAC5B,mCAAwB;AACxB,iCAAsB;AACtB,sCAA2B;AAC3B,2CAAgC;AAChC,8CAAmC;AACnC,4CAAiC;AACjC,yCAA8B;AAC9B,0CAA+B;AAC/B,2CAAgC;AAChC,4CAAiC;AACjC,wCAA6B;AAC7B,+BAAoB;AACpB,8BAAmB;AACnB,qCAA0B;AAC1B,uCAA4B;AAC5B,mCAAwB;AACxB,wCAA6B;AAC7B,+CAAoC;AACpC,yCAA8B;AAC9B,6CAAkC;AAClC,4CAAiC;AACjC,kDAAuC;AACvC,iDAAsC;AACtC,iDAAsC;AACtC,mCAAwB;AACxB,yCAA8B;AAC9B,gCAAqB;AACrB,6CAAkC;AAClC,wCAA6B;AAC7B,wCAA6B;AAC7B,wCAA6B;AAC7B,yCAA8B;AAC9B,yCAA8B;AAC9B,+CAAoC;AACpC,0CAA+B;AAC/B,0CAA+B;AAC/B,0CAA+B;AAC/B,2CAAgC;AAChC,2CAAgC;AAChC,yCAA8B;AAC9B,0CAA+B;AAC/B,0CAA+B;AAC/B,0CAA+B;AAC/B,iCAAsB;AACtB,uCAA4B;AAC5B,qCAA0B;AAC1B,0CAA+B;AAC/B,sCAA2B;AAC3B,4CAAiC;AACjC,uCAA4B;AAC5B,iCAAsB;AACtB,2CAAgC;AAChC,4CAAiC;AACjC,0DAA+C;AAC/C,oCAAyB;AACzB,kCAAuB;AACvB,kCAAuB;AACvB,sCAA2B;AAC3B,kCAAuB;AACvB,oDAAyC;AACzC,kDAAuC;AACvC,wCAA6B;AAC7B,8CAAmC;AACnC,+CAAoC;AACpC,uCAA4B;AAC5B,6CAAkC;AAClC,kDAAuC;AACvC,uCAA4B;AAC5B,0CAA+B;AAC/B,uCAA4B;AAC5B,0CAA+B;AAC/B,uCAA4B;AAC5B,kCAAuB;AACvB,mCAAwB;AACxB,yCAA8B;AAC9B,0CAA+B;AAC/B,0CAA+B;AAC/B,0CAA+B;AAC/B,yCAA8B;AAC9B,wCAA6B;AAC7B,2CAAgC;AAChC,0CAA+B;AAC/B,wCAA6B;AAC7B,yCAA8B;AAC9B,kCAAuB;AACvB,mCAAwB;AACxB,oCAAyB;AACzB,sCAA2B;AAC3B,mCAAwB;AACxB,2CAAgC;AAChC,qCAA0B;AAC1B,iCAAsB;AACtB,0CAA+B;AAC/B,6CAAkC;AAClC,yCAA8B;AAC9B,qCAA0B;AAC1B,sCAA2B;AAC3B,+CAAoC;AACpC,sCAA2B;AAC3B,gDAAqC;AACrC,gDAAqC;AACrC,0CAA+B;AAC/B,qCAA0B;AAC1B,wCAA6B;AAC7B,8BAAmB;AACnB,8BAAmB;AACnB,6CAAkC;AAClC,qBAAU;AACV,mCAAwB;AACxB,yBAAc;AACd,wBAAa;AACb,qBAAU;AACV,mCAAwB;AACxB,wCAA6B;AAC7B,wCAA6B;AAC7B,wCAA6B;AAC7B,sCAA2B;AAC3B,sCAA2B;AAC3B,sCAA2B;AAC3B,sCAA2B;AAC3B,sCAA2B;AAC3B,sCAA2B;AAC3B,oCAAyB;AACzB,oCAAyB;AACzB,oCAAyB;AACzB,oCAAyB;AACzB,oCAAyB;AACzB,oCAAyB;AACzB,0CAA+B;AAC/B,0CAA+B;AAC/B,0CAA+B;AAC/B,0CAA+B;AAC/B,0CAA+B;AAC/B,0CAA+B;AAC/B,yCAA8B;AAC9B,yCAA8B;AAC9B,yCAA8B;AAC9B,yCAA8B;AAC9B,yCAA8B;AAC9B,yCAA8B;AAC9B,iDAAsC;AACtC,iDAAsC;AACtC,iDAAsC;AACtC,iDAAsC;AACtC,iDAAsC;AACtC,iDAAsC;AACtC,2BAAgB;AAChB,oCAAyB;AACzB,oCAAyB;AACzB,oCAAyB;AACzB,oCAAyB;AACzB,oCAAyB;AACzB,oCAAyB;AACzB,0CAA+B;AAC/B,0CAA+B;AAC/B,0CAA+B;AAC/B,0CAA+B;AAC/B,0CAA+B;AAC/B,0CAA+B;AAC/B,2BAAgB;AAChB,wBAAa;AACb;AACE,qBAAQ,kBAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,yCAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,YAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,QAAC,CAAQ,EAAR;AACH,eAAE,OAAC,CAAO,GAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,GAAV;AACH,eAAE,oBAAC,CAAoB,gDAApB;AACH,eAAE,eAAC,CAAe,wCAAf;AACH,eAAE,cAAC,CAAc,2CAAd;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,gBAAC,CAAc,CAAd;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,eAAC,CAAe,yCAAf;AACH,eAAE,0BAAC,CAA0B,YAA1B;AACH,eAAE,mBAAC,CAAmB,gDAAnB;AACH,eAAE,yBAAC,CAAyB,gDAAzB;AACH,eAAE,QAAO,8BAAT,GAA0C;AAC1C,eAAE,QAAO,wBAAT,GAAoC;AACpC,eAAE,QAAO,0BAAT,GAAsC;AACtC,eAAE,QAAO,uBAAT,GAAmC;AACnC,eAAE,QAAO,4BAAT,GAAwC;AACxC,eAAE,QAAO,sBAAT,GAAkC;AAClC,eAAE,QAAO,sBAAT,GAAkC;AAClC,eAAE,QAAO,0BAAT,GAAsC;AACtC,eAAE,QAAO,0BAAT,GAAsC;AACtC,eAAE,QAAO,8BAAT,GAA0C;AAC1C,eAAE,QAAO,wBAAT,GAAoC;AACpC,eAAE,QAAO,0BAAT,GAAsC;AACtC,eAAE,QAAO,uBAAT,GAAmC;AACnC,eAAE,QAAO,4BAAT,GAAwC;AACxC,eAAE,QAAO,sBAAT,GAAkC;AAClC,eAAE,QAAO,sBAAT,GAAkC;AAClC,eAAE,QAAO,0BAAT,GAAsC;AACtC,eAAE,QAAO,0BAAT,GAAsC;AACtC,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,cAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAU,aAAC,CAAa,SAAb;AACX,uBAAU,cAAC,CAAc,wBAAd;AACX,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,GAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,4BAAe,SAAC,CAAS,GAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,gBAAC,CAAc,CAAd;AAChB,4BAAe,oBAAC,CAAoB,cAApB;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,iBAAC,CAAiB,sBAAjB;AAChB,4BAAe,QAAC,CAAQ,YAAR;AAChB,4BAAe,gBAAC,CAAgB,sBAAhB;AAChB,4BAAe,aAAC,CAAa,cAAb;AAChB,4BAAe,cAAC,CAAc,wBAAd;AAChB,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,QAAC,CAAQ,GAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,EAAT;AACb,yBAAY,UAAC,CAAU,EAAV;AACb,yBAAY,WAAC,CAAW,WAAX;AACb,yBAAY,gBAAC,CAAc,CAAd;AACb,yBAAY,oBAAC,CAAoB,mCAApB;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,mBAAC,CAAmB,gDAAnB;AACb,yBAAY,eAAC,CAAe,wCAAf;AACb,yBAAY,iBAAC,CAAiB,sBAAjB;AACb,yBAAY,cAAC,CAAc,wCAAd;AACb,yBAAY,gBAAC,CAAgB,sBAAhB;AACb,uBAAQ,CAAC,kBAAc,KAAM,UAAW,mBAAhC;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,cAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAU,aAAC,CAAa,SAAb;AACX,uBAAU,cAAC,CAAc,wBAAd;AACX,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,GAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,4BAAe,SAAC,CAAS,GAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,gBAAC,CAAc,CAAd;AAChB,4BAAe,oBAAC,CAAoB,cAApB;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,iBAAC,CAAiB,sBAAjB;AAChB,4BAAe,QAAC,CAAQ,YAAR;AAChB,4BAAe,gBAAC,CAAgB,sBAAhB;AAChB,4BAAe,aAAC,CAAa,cAAb;AAChB,4BAAe,cAAC,CAAc,wBAAd;AAChB,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,GAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,4BAAe,SAAC,CAAS,GAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,gBAAC,CAAc,CAAd;AAChB,4BAAe,oBAAC,CAAoB,cAApB;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,iBAAC,CAAiB,sBAAjB;AAChB,4BAAe,QAAC,CAAQ,YAAR;AAChB,4BAAe,gBAAC,CAAgB,sBAAhB;AAChB,4BAAe,aAAC,CAAa,cAAb;AAChB,4BAAe,cAAC,CAAc,wBAAd;AAChB,mBAAM,mBAAmB,CAAC,IAAD;AACzB,mBAAM,QAAC,CAAQ,QAAR;AACP,mBAAM,QAAC,CAAQ,GAAR;AACP,mBAAM,OAAC,CAAO,GAAP;AACP,mBAAM,SAAC,CAAS,GAAT;AACP,mBAAM,UAAC,CAAU,EAAV;AACP,mBAAM,gBAAC,CAAc,CAAd;AACP,mBAAM,oBAAC,CAAoB,cAApB;AACP,mBAAM,eAAC,CAAe,yCAAf;AACP,mBAAM,eAAC,CAAe,wCAAf;AACP,mBAAM,iBAAC,CAAiB,sBAAjB;AACP,mBAAM,QAAC,CAAQ,QAAR;AACP,mBAAM,gBAAC,CAAgB,sBAAhB;AACP,mBAAM,aAAC,CAAa,KAAb;AACP,mBAAM,cAAC,CAAc,wBAAd;AACP,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,QAAC,CAAQ,GAAR;AACR,oBAAO,OAAC,CAAO,GAAP;AACR,oBAAO,SAAC,CAAS,GAAT;AACR,oBAAO,UAAC,CAAU,EAAV;AACR,oBAAO,oBAAC,CAAoB,cAApB;AACR,oBAAO,eAAC,CAAe,yCAAf;AACR,oBAAO,eAAC,CAAe,wCAAf;AACR,oBAAO,iBAAC,CAAiB,sBAAjB;AACR,oBAAO,gBAAC,CAAgB,sBAAhB;AACR,oBAAO,aAAC,CAAa,MAAb;AACR,oBAAO,cAAC,CAAc,wBAAd;AACR,oBAAO,YAAC,CAAY,MAAZ;AACR,oBAAO,aAAC,CAAa,MAAb;AACR,oBAAO,cAAC,CAAc,kBAAd;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,cAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAU,aAAC,CAAa,eAAb;AACX,uBAAU,cAAC,CAAc,wBAAd;AACX,iCAAoB,mBAAmB,CAAC,IAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,QAAC,CAAQ,GAAR;AACrB,iCAAoB,OAAC,CAAO,GAAP;AACrB,iCAAoB,SAAC,CAAS,GAAT;AACrB,iCAAoB,UAAC,CAAU,EAAV;AACrB,iCAAoB,gBAAC,CAAc,CAAd;AACrB,iCAAoB,oBAAC,CAAoB,cAApB;AACrB,iCAAoB,eAAC,CAAe,yCAAf;AACrB,iCAAoB,eAAC,CAAe,wCAAf;AACrB,iCAAoB,iBAAC,CAAiB,sBAAjB;AACrB,iCAAoB,QAAC,CAAQ,YAAR;AACrB,iCAAoB,gBAAC,CAAgB,sBAAhB;AACrB,iCAAoB,aAAC,CAAa,mBAAb;AACrB,iCAAoB,cAAC,CAAc,wBAAd;AACrB,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,GAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,4BAAe,SAAC,CAAS,GAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,gBAAC,CAAc,CAAd;AAChB,4BAAe,oBAAC,CAAoB,cAApB;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,iBAAC,CAAiB,sBAAjB;AAChB,4BAAe,QAAC,CAAQ,YAAR;AAChB,4BAAe,gBAAC,CAAgB,sBAAhB;AAChB,4BAAe,aAAC,CAAa,cAAb;AAChB,4BAAe,cAAC,CAAc,wBAAd;AAChB,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,GAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,GAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,gBAAC,CAAc,CAAd;AACZ,wBAAW,oBAAC,CAAoB,cAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,QAAC,CAAQ,YAAR;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,wBAAW,aAAC,CAAa,UAAb;AACZ,wBAAW,cAAC,CAAc,wBAAd;AACZ,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,GAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,qBAAQ,SAAC,CAAS,GAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,gBAAC,CAAc,CAAd;AACT,qBAAQ,oBAAC,CAAoB,cAApB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,QAAC,CAAQ,YAAR;AACT,qBAAQ,gBAAC,CAAgB,sBAAhB;AACT,qBAAQ,aAAC,CAAa,OAAb;AACT,qBAAQ,cAAC,CAAc,wBAAd;AACT,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,GAAR;AAChB,4BAAe,OAAC,CAAO,EAAP;AAChB,4BAAe,SAAC,CAAS,GAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,gBAAC,CAAc,CAAd;AAChB,4BAAe,oBAAC,CAAoB,cAApB;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,iBAAC,CAAiB,sBAAjB;AAChB,4BAAe,QAAC,CAAQ,YAAR;AAChB,4BAAe,gBAAC,CAAgB,sBAAhB;AAChB,4BAAe,aAAC,CAAa,cAAb;AAChB,4BAAe,cAAC,CAAc,wBAAd;AAChB,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,GAAR;AACT,qBAAQ,OAAC,CAAO,EAAP;AACT,qBAAQ,SAAC,CAAS,GAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,gBAAC,CAAc,CAAd;AACT,qBAAQ,oBAAC,CAAoB,cAApB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,QAAC,CAAQ,YAAR;AACT,qBAAQ,gBAAC,CAAgB,sBAAhB;AACT,qBAAQ,aAAC,CAAa,OAAb;AACT,qBAAQ,cAAC,CAAc,wBAAd;AACT,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,GAAR;AACZ,wBAAW,OAAC,CAAO,CAAC,CAAR;AACZ,wBAAW,SAAC,CAAS,GAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,gBAAC,CAAc,CAAd;AACZ,wBAAW,oBAAC,CAAoB,cAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,YAAC,CAAY,IAAZ;AACZ,wBAAW,QAAC,CAAQ,YAAR;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,wBAAW,aAAC,CAAa,UAAb;AACZ,wBAAW,cAAC,CAAc,wBAAd;AACZ,gCAAmB,mBAAmB,CAAC,IAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAC,CAAW,qBAAX;AACpB,uBAAQ,CAAC,yBAAqB,KAAM,gBAAiB,gCAA7C;AACR,gCAAmB,QAAC,CAAQ,EAAR;AACpB,gCAAmB,OAAC,CAAO,GAAP;AACpB,6BAAgB,mBAAmB,CAAC,IAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,mBAAhB,GAAsC;AACtC,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,YAAhB,GAA+B;AAC/B,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,iBAAC,CAAiB,UAAjB;AACjB,6BAAgB,cAAC,CAAc,aAAG,oBAAjB;AACjB,6BAAgB,UAAhB,GAA6B;AAC7B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,6BAAgB,OAAC,CAAO,GAAP;AACjB,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,UAA5B,GAAyC;AACzC,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,8CAAiC,mBAAmB,CAAC,qBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,8CAAiC,mBAAmB,CAAC,qBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,qCAAwB,mBAAmB,CAAC,qBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,oCAAuB,mBAAmB,CAAC,qBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,oCAAuB,mBAAmB,CAAC,qBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,CAAR;AAC7B,gCAAmB,mBAAmB,CAAC,qBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,CAAR;AAC/B,iCAAoB,mBAAmB,CAAC,qBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,+CAAkC,mBAAmB,CAAC,qBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,GAAR;AAC7B,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,GAAR;AAC5B,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,GAAR;AAChC,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,kCAAqB,mBAAmB,CAAC,qBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,qCAAwB,mBAAmB,CAAC,qBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,gDAAmC,mBAAmB,CAAC,qBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,GAAR;AAC5B,oCAAuB,mBAAmB,CAAC,qBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,8CAAiC,mBAAmB,CAAC,qBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,+CAAkC,mBAAmB,CAAC,qBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,GAAR;AACnC,sCAAyB,mBAAmB,CAAC,qBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,iCAAoB,mBAAmB,CAAC,qBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,qCAAwB,mBAAmB,CAAC,qBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,mCAAsB,mBAAmB,CAAC,qBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,GAAR;AAC5B,6CAAgC,mBAAmB,CAAC,qBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,gDAAmC,mBAAmB,CAAC,qBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,8CAAiC,mBAAmB,CAAC,qBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,6CAAgC,mBAAmB,CAAC,qBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,8CAAiC,mBAAmB,CAAC,qBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,EAAR;AAClC,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,iCAAoB,mBAAmB,CAAC,qBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,gCAAmB,mBAAmB,CAAC,qBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,qCAAwB,mBAAmB,CAAC,qBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,iDAAoC,mBAAmB,CAAC,qBAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,+CAAkC,mBAAmB,CAAC,qBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,EAAR;AACnC,8CAAiC,mBAAmB,CAAC,qBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,oDAAuC,mBAAmB,CAAC,qBAAD;AAC1D,oDAAuC,QAAC,CAAQ,yCAAR;AACxC,oDAAuC,WAAvC,GAAqD;AACrD,oDAAuC,QAAC,CAAQ,CAAR;AACxC,mDAAsC,mBAAmB,CAAC,qBAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,mDAAsC,mBAAmB,CAAC,qBAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,mDAAsC,QAAC,CAAQ,EAAR;AACvC,qCAAwB,mBAAmB,CAAC,qBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,kCAAqB,mBAAmB,CAAC,qBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,+CAAkC,mBAAmB,CAAC,qBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,iDAAoC,mBAAmB,CAAC,qBAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,6CAAgC,mBAAmB,CAAC,qBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,mBAAmB,CAAC,qBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,mCAAsB,mBAAmB,CAAC,qBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,GAAR;AAChC,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,8CAAiC,mBAAmB,CAAC,qBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,EAAR;AAClC,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,mCAAsB,mBAAmB,CAAC,qBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,6CAAgC,mBAAmB,CAAC,qBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,8CAAiC,mBAAmB,CAAC,qBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,4DAA+C,mBAAmB,CAAC,qBAAD;AAClE,4DAA+C,QAAC,CAAQ,iDAAR;AAChD,4DAA+C,WAA/C,GAA6D;AAC7D,4DAA+C,QAAC,CAAQ,EAAR;AAChD,sCAAyB,mBAAmB,CAAC,qBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,GAAR;AAC1B,oCAAuB,mBAAmB,CAAC,qBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,oCAAuB,mBAAmB,CAAC,qBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,oCAAuB,mBAAmB,CAAC,qBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,sDAAyC,mBAAmB,CAAC,qBAAD;AAC5D,sDAAyC,QAAC,CAAQ,2CAAR;AAC1C,sDAAyC,WAAzC,GAAuD;AACvD,sDAAyC,QAAC,CAAQ,EAAR;AAC1C,oDAAuC,mBAAmB,CAAC,qBAAD;AAC1D,oDAAuC,QAAC,CAAQ,yCAAR;AACxC,oDAAuC,WAAvC,GAAqD;AACrD,oDAAuC,QAAC,CAAQ,EAAR;AACxC,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,gDAAmC,mBAAmB,CAAC,qBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,iDAAoC,mBAAmB,CAAC,qBAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,QAAC,CAAQ,GAAR;AACrC,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,+CAAkC,mBAAmB,CAAC,qBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,EAAR;AACnC,oDAAuC,mBAAmB,CAAC,qBAAD;AAC1D,oDAAuC,QAAC,CAAQ,yCAAR;AACxC,oDAAuC,WAAvC,GAAqD;AACrD,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,oCAAuB,mBAAmB,CAAC,qBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,qCAAwB,mBAAmB,CAAC,qBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,GAAR;AAC/B,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,6CAAgC,mBAAmB,CAAC,qBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,oCAAuB,mBAAmB,CAAC,qBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,GAAR;AACxB,qCAAwB,mBAAmB,CAAC,qBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,sCAAyB,mBAAmB,CAAC,qBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,qCAAwB,mBAAmB,CAAC,qBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,6CAAgC,mBAAmB,CAAC,qBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,mCAAsB,mBAAmB,CAAC,qBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,+CAAkC,mBAAmB,CAAC,qBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,CAAR;AAC/B,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,iDAAoC,mBAAmB,CAAC,qBAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,QAAC,CAAQ,GAAR;AACrC,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,kDAAqC,mBAAmB,CAAC,qBAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,kDAAqC,mBAAmB,CAAC,qBAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,kDAAqC,QAAC,CAAQ,GAAR;AACtC,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,GAAR;AAChC,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,GAAR;AAC9B,gCAAmB,mBAAmB,CAAC,qBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,mBAAmB,CAAC,qBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,+CAAkC,mBAAmB,CAAC,qBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,WAAV,GAAwB;AACxB,uBAAU,iBAAC,CAAiB,SAAjB;AACX,uBAAU,cAAC,CAAc,aAAG,oBAAjB;AACX,uBAAU,aAAV,GAA0B;AAC1B,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,UAAxB,GAAqC;AACrC,qCAAwB,QAAC,CAAQ,CAAR;AACzB,2BAAc,mBAAmB,CAAC,eAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAC,CAAW,eAAX;AACd,0BAAa,QAAC,CAAQ,GAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,WAAV,GAAwB;AACxB,uBAAU,iBAAC,CAAiB,iBAAjB;AACX,uBAAU,cAAC,CAAc,aAAG,oBAAjB;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,UAAxB,GAAqC;AACrC,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,GAAR;AAC9B,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,wCAA2B,mBAAmB,CAAC,eAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,mBAAmB,CAAC,eAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,mBAAmB,CAAC,eAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,mBAAmB,CAAC,eAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,mBAAmB,CAAC,eAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,mBAAmB,CAAC,eAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,4CAA+B,mBAAmB,CAAC,eAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,mBAAmB,CAAC,eAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,mBAAmB,CAAC,eAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,mBAAmB,CAAC,eAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,mBAAmB,CAAC,eAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,mBAAmB,CAAC,eAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,2CAA8B,mBAAmB,CAAC,eAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,mBAAmB,CAAC,eAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,mBAAmB,CAAC,eAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,mBAAmB,CAAC,eAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,mBAAmB,CAAC,eAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,mBAAmB,CAAC,eAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,mDAAsC,mBAAmB,CAAC,eAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,mDAAsC,mBAAmB,CAAC,eAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,mDAAsC,mBAAmB,CAAC,eAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,mDAAsC,mBAAmB,CAAC,eAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,mDAAsC,mBAAmB,CAAC,eAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,mDAAsC,mBAAmB,CAAC,eAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,6BAAgB,mBAAmB,CAAC,eAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,CAAR;AACjB,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,4CAA+B,mBAAmB,CAAC,eAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,mBAAmB,CAAC,eAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,mBAAmB,CAAC,eAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,mBAAmB,CAAC,eAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,mBAAmB,CAAC,eAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,mBAAmB,CAAC,eAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,6BAAgB,mBAAmB,CAAC,eAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,CAAR;AACjB,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAC,CAAW,eAAX;AACd,0BAAa,QAAC,CAAQ,GAAR;AACd,0BAAa,OAAC,CAAO,EAAP;AAziChB;AA2iCE,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,eAAE;AACF,uBAAU;AACV,4BAAe;AACf,uBAAU;AACV,yBAAY;AACZ,uBAAU;AACV,4BAAe;AACf,4BAAe;AACf,mBAAM;AACN,oBAAO;AACP,uBAAU;AACV,iCAAoB;AACpB,4BAAe;AACf,wBAAW;AACX,qBAAQ;AACR,4BAAe;AACf,qBAAQ;AACR,wBAAW;AACX,gCAAmB;AACnB,6BAAgB;AAChB,yCAA4B;AAC5B,yCAA4B;AAC5B,8CAAiC;AACjC,2CAA8B;AAC9B,8CAAiC;AACjC,0CAA6B;AAC7B,qCAAwB;AACxB,oCAAuB;AACvB,yCAA4B;AAC5B,yCAA4B;AAC5B,oCAAuB;AACvB,yCAA4B;AAC5B,gCAAmB;AACnB,2CAA8B;AAC9B,iCAAoB;AACpB,+CAAkC;AAClC,yCAA4B;AAC5B,yCAA4B;AAC5B,yCAA4B;AAC5B,wCAA2B;AAC3B,4CAA+B;AAC/B,yCAA4B;AAC5B,0CAA6B;AAC7B,0CAA6B;AAC7B,yCAA4B;AAC5B,kCAAqB;AACrB,qCAAwB;AACxB,2CAA8B;AAC9B,gDAAmC;AACnC,wCAA2B;AAC3B,oCAAuB;AACvB,wCAA2B;AAC3B,wCAA2B;AAC3B,wCAA2B;AAC3B,8CAAiC;AACjC,+CAAkC;AAClC,sCAAyB;AACzB,uCAA0B;AAC1B,wCAA2B;AAC3B,wCAA2B;AAC3B,iCAAoB;AACpB,yCAA4B;AAC5B,yCAA4B;AAC5B,qCAAwB;AACxB,mCAAsB;AACtB,wCAA2B;AAC3B,6CAAgC;AAChC,gDAAmC;AACnC,8CAAiC;AACjC,2CAA8B;AAC9B,4CAA+B;AAC/B,6CAAgC;AAChC,8CAAiC;AACjC,0CAA6B;AAC7B,iCAAoB;AACpB,gCAAmB;AACnB,uCAA0B;AAC1B,yCAA4B;AAC5B,qCAAwB;AACxB,0CAA6B;AAC7B,iDAAoC;AACpC,2CAA8B;AAC9B,+CAAkC;AAClC,8CAAiC;AACjC,oDAAuC;AACvC,mDAAsC;AACtC,mDAAsC;AACtC,qCAAwB;AACxB,2CAA8B;AAC9B,kCAAqB;AACrB,+CAAkC;AAClC,0CAA6B;AAC7B,0CAA6B;AAC7B,0CAA6B;AAC7B,2CAA8B;AAC9B,2CAA8B;AAC9B,iDAAoC;AACpC,4CAA+B;AAC/B,4CAA+B;AAC/B,4CAA+B;AAC/B,6CAAgC;AAChC,6CAAgC;AAChC,2CAA8B;AAC9B,4CAA+B;AAC/B,4CAA+B;AAC/B,4CAA+B;AAC/B,mCAAsB;AACtB,yCAA4B;AAC5B,uCAA0B;AAC1B,4CAA+B;AAC/B,wCAA2B;AAC3B,8CAAiC;AACjC,yCAA4B;AAC5B,mCAAsB;AACtB,6CAAgC;AAChC,8CAAiC;AACjC,4DAA+C;AAC/C,sCAAyB;AACzB,oCAAuB;AACvB,oCAAuB;AACvB,wCAA2B;AAC3B,oCAAuB;AACvB,sDAAyC;AACzC,oDAAuC;AACvC,0CAA6B;AAC7B,gDAAmC;AACnC,iDAAoC;AACpC,yCAA4B;AAC5B,+CAAkC;AAClC,oDAAuC;AACvC,yCAA4B;AAC5B,4CAA+B;AAC/B,yCAA4B;AAC5B,4CAA+B;AAC/B,yCAA4B;AAC5B,oCAAuB;AACvB,qCAAwB;AACxB,2CAA8B;AAC9B,4CAA+B;AAC/B,4CAA+B;AAC/B,4CAA+B;AAC/B,2CAA8B;AAC9B,0CAA6B;AAC7B,6CAAgC;AAChC,4CAA+B;AAC/B,0CAA6B;AAC7B,2CAA8B;AAC9B,oCAAuB;AACvB,qCAAwB;AACxB,sCAAyB;AACzB,wCAA2B;AAC3B,qCAAwB;AACxB,6CAAgC;AAChC,uCAA0B;AAC1B,mCAAsB;AACtB,4CAA+B;AAC/B,+CAAkC;AAClC,2CAA8B;AAC9B,uCAA0B;AAC1B,wCAA2B;AAC3B,iDAAoC;AACpC,wCAA2B;AAC3B,kDAAqC;AACrC,kDAAqC;AACrC,4CAA+B;AAC/B,uCAA0B;AAC1B,0CAA6B;AAC7B,gCAAmB;AACnB,gCAAmB;AACnB,+CAAkC;AAClC,uBAAU;AACV,qCAAwB;AACxB,2BAAc;AACd,0BAAa;AACb,uBAAU;AACV,qCAAwB;AACxB,0CAA6B;AAC7B,0CAA6B;AAC7B,0CAA6B;AAC7B,wCAA2B;AAC3B,wCAA2B;AAC3B,wCAA2B;AAC3B,wCAA2B;AAC3B,wCAA2B;AAC3B,wCAA2B;AAC3B,sCAAyB;AACzB,sCAAyB;AACzB,sCAAyB;AACzB,sCAAyB;AACzB,sCAAyB;AACzB,sCAAyB;AACzB,4CAA+B;AAC/B,4CAA+B;AAC/B,4CAA+B;AAC/B,4CAA+B;AAC/B,4CAA+B;AAC/B,4CAA+B;AAC/B,2CAA8B;AAC9B,2CAA8B;AAC9B,2CAA8B;AAC9B,2CAA8B;AAC9B,2CAA8B;AAC9B,2CAA8B;AAC9B,mDAAsC;AACtC,mDAAsC;AACtC,mDAAsC;AACtC,mDAAsC;AACtC,mDAAsC;AACtC,mDAAsC;AACtC,6BAAgB;AAChB,sCAAyB;AACzB,sCAAyB;AACzB,sCAAyB;AACzB,sCAAyB;AACzB,sCAAyB;AACzB,sCAAyB;AACzB,4CAA+B;AAC/B,4CAA+B;AAC/B,4CAA+B;AAC/B,4CAA+B;AAC/B,4CAA+B;AAC/B,4CAA+B;AAC/B,6BAAgB;AAChB,0BAAa;AA7wCf;AA3cuC;AAjdtB;;;AACf,6BxJu7BY,8CwJv7BZ;AACA,6BxJs7BY,8CwJt7BZ;AACA,6BxJq7BY,8CwJr7BZ;AACA,sCvIijDS,2BuIjjDT;AACA,mCjHAc,kDiHAd;AACA,+CvI8ZU,4BuI9ZV;AACA,+CvI2kBW,6BuI3kBX;AACA,oDvI0kBW,6BuI1kBX;AACA,iDvIykBW,6BuIzkBX;AACA,oDvIwkBW,6BuIxkBX;AACA,gDvIyZU,4BuIzZV;AACA,2CvIwZU,4BuIxZV;AACA,0CvIuZU,4BuIvZV;AACA,+CvIsZU,4BuItZV;AACA,+CvIqZU,4BuIrZV;AACA,0CvIoZU,4BuIpZV;AACA,+CvImZU,4BuInZV;AACA,sCvIkZU,4BuIlZV;AACA,iDvIiZU,4BuIjZV;AACA,uCvIgZU,4BuIhZV;AACA,qDvI6jBW,6BuI7jBX;AACA,+CvI8YU,4BuI9YV;AACA,+CvI6YU,4BuI7YV;AACA,+CvI4YU,4BuI5YV;AACA,8CvI2YU,4BuI3YV;AACA,kDvI0YU,4BuI1YV;AACA,+CvIglBY,8BuIhlBZ;AACA,gDvIwYU,4BuIxYV;AACA,gDvIuYU,4BuIvYV;AACA,+CvIsYU,4BuItYV;AACA,wCvIqYU,4BuIrYV;AACA,2CvIoYU,4BuIpYV;AACA,iDvImYU,4BuInYV;AACA,sDvIgjBW,6BuIhjBX;AACA,8CvIiYU,4BuIjYV;AACA,0CvIgYU,4BuIhYV;AACA,8CvI6iBW,6BuI7iBX;AACA,8CvI4iBW,6BuI5iBX;AACA,8CvI2iBW,6BuI3iBX;AACA,oDvIobW,6BuIpbX;AACA,qDvI2XU,4BuI3XV;AACA,4CvIkbW,6BuIlbX;AACA,6CvIogBS,2BuIpgBT;AACA,8CvImgBS,2BuIngBT;AACA,8CvIuXU,4BuIvXV;AACA,uCvIsXU,4BuItXV;AACA,+CvIggBS,2BuIhgBT;AACA,+CvIoXU,4BuIpXV;AACA,2CvImXU,4BuInXV;AACA,yCvIkXU,4BuIlXV;AACA,8CvIiXU,4BuIjXV;AACA,mDvI2fS,2BuI3fT;AACA,sDvI6hBW,6BuI7hBX;AACA,oDvI8WU,4BuI9WV;AACA,iDvI2hBW,6BuI3hBX;AACA,kDvI4WU,4BuI5WV;AACA,mDvI2WU,4BuI3WV;AACA,oDvI0WU,4BuI1WV;AACA,gDvIyWU,4BuIzWV;AACA,uCvIwWU,4BuIxWV;AACA,sCvIuWU,4BuIvWV;AACA,6CvIsWU,4BuItWV;AACA,+CvIqWU,4BuIrWV;AACA,2CvIoWU,4BuIpWV;AACA,gDvIihBW,6BuIjhBX;AACA,uDvIghBW,6BuIhhBX;AACA,iDvIiWU,4BuIjWV;AACA,qDvIgWU,4BuIhWV;AACA,oDvI+VU,4BuI/VV;AACA,0DvI8VU,4BuI9VV;AACA,yDvIqZW,6BuIrZX;AACA,yDvI4VU,4BuI5VV;AACA,2CvIkiBY,8BuIliBZ;AACA,iDvIiiBY,8BuIjiBZ;AACA,wCvIyVU,4BuIzVV;AACA,qDvImeS,2BuIneT;AACA,gDvIkeS,2BuIleT;AACA,gDvIieS,2BuIjeT;AACA,gDvIgeS,2BuIheT;AACA,iDvI+dS,2BuI/dT;AACA,iDvI8dS,2BuI9dT;AACA,uDvI6dS,2BuI7dT;AACA,kDvI4dS,2BuI5dT;AACA,kDvI2dS,2BuI3dT;AACA,kDvI0dS,2BuI1dT;AACA,mDvIydS,2BuIzdT;AACA,mDvIwdS,2BuIxdT;AACA,iDvI4UU,4BuI5UV;AACA,kDvI2UU,4BuI3UV;AACA,kDvI0UU,4BuI1UV;AACA,kDvIyUU,4BuIzUV;AACA,yCvIsfW,6BuItfX;AACA,+CvIqfW,6BuIrfX;AACA,6CvIofW,6BuIpfX;AACA,kDvIqUU,4BuIrUV;AACA,8CvIoUU,4BuIpUV;AACA,oDvImUU,4BuInUV;AACA,+CvIkUU,4BuIlUV;AACA,yCvI4cS,2BuI5cT;AACA,mDvIgUU,4BuIhUV;AACA,oDvIuXW,6BuIvXX;AACA,kEvI8TU,4BuI9TV;AACA,4CvI6TU,4BuI7TV;AACA,0CvI4TU,4BuI5TV;AACA,0CvI2TU,4BuI3TV;AACA,8CvI0TU,4BuI1TV;AACA,0CvIyTU,4BuIzTV;AACA,4DvIwTU,4BuIxTV;AACA,0DvIuTU,4BuIvTV;AACA,gDvIsTU,4BuItTV;AACA,sDvI6WW,6BuI7WX;AACA,uDvIoTU,4BuIpTV;AACA,+CvI8bS,2BuI9bT;AACA,qDvIkTU,4BuIlTV;AACA,0DvI4bS,2BuI5bT;AACA,+CvI2bS,2BuI3bT;AACA,kDvI0bS,2BuI1bT;AACA,+CvIybS,2BuIzbT;AACA,kDvIwbS,2BuIxbT;AACA,+CvI4SU,4BuI5SV;AACA,0CvI2SU,4BuI3SV;AACA,2CvIwdW,6BuIxdX;AACA,iDvIySU,4BuIzSV;AACA,kDvIwSU,4BuIxSV;AACA,kDvIuSU,4BuIvSV;AACA,kDvIsSU,4BuItSV;AACA,iDvI6VW,6BuI7VX;AACA,gDvI+aS,2BuI/aT;AACA,mDvI8aS,2BuI9aT;AACA,kDvI0VW,6BuI1VX;AACA,gDvIweY,8BuIxeZ;AACA,iDvIgSU,4BuIhSV;AACA,0CvI+RU,4BuI/RV;AACA,2CvIyaS,2BuIzaT;AACA,4CvIwaS,2BuIxaT;AACA,8CvIuaS,2BuIvaT;AACA,2CvI2RU,4BuI3RV;AACA,mDvIieY,8BuIjeZ;AACA,6CvIyRU,4BuIzRV;AACA,yCvIwRU,4BuIxRV;AACA,kDvIuRU,4BuIvRV;AACA,qDvI6dY,8BuI7dZ;AACA,iDvIqRU,4BuIrRV;AACA,6CvIkcW,6BuIlcX;AACA,8CvImRU,4BuInRV;AACA,uDvIkRU,4BuIlRV;AACA,8CvI+bW,6BuI/bX;AACA,wDvIudY,8BuIvdZ;AACA,wDvI+QU,4BuI/QV;AACA,kDvI8QU,4BuI9QV;AACA,6CvIqUW,6BuIrUX;AACA,gDvI4QU,4BuI5QV;AACA,sCvIybW,6BuIzbX;AACA,sCvI0QU,4BuI1QV;AACA,qDvIoZS,2BuIpZT;AACA,qB3G4xBW,0C2G5xBX;AACA,6BvG7EK,sCuG6EL;AACA,kCvG9EK,sCuG8EL;AACA,6BzJ2aK,uCyJ3aL;AACA,+BzJ0aK,uCyJ1aL;AACA,6BvGjFK,sCuGiFL;AACA,kCvGlFK,sCuGkFL;AACA,kCvGnFK,sCuGmFL;AACA,yBvGpFK,sCuGoFL;AACA,6BjHhKc,kDiHgKd;AACA,gCvI+4CS,2BuI/4CT;AACA,2CvI6PU,4BuI7PV;AACA,iCvI4PU,4BuI5PV;AACA,0BvG2Me,gDuG3Mf;AACA,6BvG1FK,sCuG0FL;AACA,uCvG3FK,sCuG2FL;AACA,kCvG5FK,sCuG4FL;AACA,8BvG7FK,sCuG6FL;AACA,2BvG9FK,sCuG8FL;AACA,6BjH1Kc,kDiH0Kd;AACA,gCvIq4CS,2BuIr4CT;AACA,2CvI2SW,6BuI3SX;AACA,gDvIkPU,4BuIlPV;AACA,gDvIiPU,4BuIjPV;AACA,gDvI8ZW,6BuI9ZX;AACA,8CvIuSW,6BuIvSX;AACA,8CvIsSW,6BuItSX;AACA,8CvIqSW,6BuIrSX;AACA,8CvIoSW,6BuIpSX;AACA,8CvImSW,6BuInSX;AACA,8CvIkSW,6BuIlSX;AACA,4CvIiSW,6BuIjSX;AACA,4CvIgSW,6BuIhSX;AACA,4CvI+RW,6BuI/RX;AACA,4CvI8RW,6BuI9RX;AACA,4CvI6RW,6BuI7RX;AACA,4CvI4RW,6BuI5RX;AACA,kDvI2RW,6BuI3RX;AACA,kDvI0RW,6BuI1RX;AACA,kDvIyRW,6BuIzRX;AACA,kDvIwRW,6BuIxRX;AACA,kDvIuRW,6BuIvRX;AACA,kDvIsRW,6BuItRX;AACA,iDvIqRW,6BuIrRX;AACA,iDvIoRW,6BuIpRX;AACA,iDvImRW,6BuInRX;AACA,iDvIkRW,6BuIlRX;AACA,iDvIiRW,6BuIjRX;AACA,iDvIgRW,6BuIhRX;AACA,yDvI+QW,6BuI/QX;AACA,yDvI8QW,6BuI9QX;AACA,yDvI6QW,6BuI7QX;AACA,yDvI4QW,6BuI5QX;AACA,yDvI2QW,6BuI3QX;AACA,yDvI0QW,6BuI1QX;AACA,mCvIiNU,4BuIjNV;AACA,4CvIwQW,6BuIxQX;AACA,4CvIuQW,6BuIvQX;AACA,4CvIsQW,6BuItQX;AACA,4CvIqQW,6BuIrQX;AACA,4CvIoQW,6BuIpQX;AACA,4CvImQW,6BuInQX;AACA,kDvIkQW,6BuIlQX;AACA,kDvIiQW,6BuIjQX;AACA,kDvIgQW,6BuIhQX;AACA,kDvI+PW,6BuI/PX;AACA,kDvI8PW,6BuI9PX;AACA,kDvI6PW,6BuI7PX;AACA,mCvIoMU,4BuIpMV;AACA,kCvGjJK,sCuGiJL;AACA,2BvGlJK,sCuGkJL;AACA,8BvGnJK,sCuGmJL;AACqB,kCAAO,UtLjHvB,2BsLiHuB,CAAP;AACI,sCAAO,UtLlH3B,2BsLkH2B,CAAP;AACI,0CAAQ,WvIw2B/B,wBuIx2B+B,CAAR;AACM,gDAAQ,WvIu2BrC,wBuIv2BqC,CAAR;AACK,qDAAO,UtLrH1C,2BsLqH0C,CAAP;AACb,wCAAO,UtLtH7B,2BsLsH6B,CAAP;AACE,0CAAQ,WvIo2B/B,wBuIp2B+B,CAAR;AACO,iDAAQ,WvIm2BtC,wBuIn2BsC,CAAR;AACD,gDAAQ,WvIk2BrC,wBuIl2BqC,CAAR;AACQ,wDAAO,UvIi2B5C,wBuIj2B4C,EAC5C,QvIq1BO,+BuIr1BP,CADqC;AA7O5B;AAuPjB;AAlQF,GAoQc,gBApQd;ACAA,iCAES,yVAFT;;;AAYgB;;;AACZ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAgBA;AA/LY;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAkakC;AAEhD,wBAAa;AACb,wBAAa,aAAb,GAA2B,0BAA0B,GAAC,iCAA4B,YAAC,EAA9B;AACrD,wBAAa;AAJmC;AA1Bd;AAElC;AAEA,qBAAU,MAAK,WAAC,CAAM,6DAA4E,GAAd,mBAAD,GAAgB,aAAnF;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,4BAAiB,iBAAC,CAAe,SAAf;AAClB,oBAAS,iBAAC,CAAe,SAAf;AACV,6BAAkB,iBAAC,CAAe,SAAf;AACnB,oBAAS,iBAAC,CAAe,SAAf;AACV,UAA4B,CAAxB,eAAK,IAAI,eAAe,KAAC,IAAD,CAAO,IAA6B,CAAxB,eAAK,IAAI,eAAe,KAAC,IAAD,CAAhE;AAA4E,sBAAS,WAAC,CAAS,IAAT;AAA6B,YAAV,cAAS,WAAC,CAAS,KAAT;AAEnH,mBAAQ,iBAAC,CAAe,SAAf;AACT,qBAAU,iBAAC,CAAe,SAAf;AACX,uBAAY,iBAAC,CAAe,SAAf;AACb,kBAAW,eAAU,iBAAC;AACtB,aAAE,iBAAC,CAAe,SAAf;AACH,2BAAgB;AAChB,2BAAgB,aAAhB,GAA8B,0BAA0B,GAAC,sBAAS,CAAC,oBnLjJf,GmLiJc,CAAV;AACxD,2BAAgB;AAvBkB;AANI;AAEtC,2BAAgB;AAChB,UAAI;AAHkC;AA7JD;;AAErC;AACqB;AAEnB;AAEE,gBAAE,WAAC,CAAS,KAAT;AACH,gBAAc,OAAN,MAAS,8CAAH;AACd,aAAK,eAAL,GAAsB,kCAA4B,YAAC;AACnD,aAAK,OAAL,GAAc,8BAAwB,YAAC;AAPtB;AAWK;AAGtB;AAHsB;AAOtB,aAAM,8CAAiB,QAAC,eAAS,aAAT;AACxB,UAAI,YAAU;AAtBmB;AAwDD;;AAEpC;AACqB;AAEnB;AAEE,gBAAE,WAAC,CAAS,KAAT;AACH,gBAAc,OAAN,MAAS,qBAAH;AACd,aAAK,YAAL,GAAmB,kCAA4B,YAAC,EAAmD,GAA1C,GAAD,GAAK,8BAAwB,YAAC,EAA1B,GAAmC,IAAD,GAAM,6BAAuB,YAAC,EAAzB;AACnG,aAAK,aAAa,QAAC,CAAO,kCAA4B,YAAC,EAA8C,GAArC,GAAD,GAAK,yBAAmB,YAAC,EAArB,GAA8B,IAAD,GAAM,6BAAuB,YAAC,EAA3G;AAPF;AAUK;AAGtB;AAHsB;AAMtB,aAAM,qBAAM,QAAC,eAAS,aAAT;AACb,UAAI,YAAU;AApBkB;AA+CC;;AAErC;AACqB;AAEnB;AAEE,gBAAE,WAAC,CAAS,KAAT;AACH,gBAAc,OAAN,MAAS,uBAAH;AACd,aAAK,gBAAL,GAAuB,kCAA4B,YAAC;AACpD,aAAK,cAAL,GAAqB,8BAAwB,YAAC;AAC9C,YAAG,6BAAuB,YAAC,EAAQ,KAAE,EAArC,EAA6C,KAAK,cAAL,GAAqB,KAAK,cAAmB,GAAJ,IAAD,GAAM,6BAAuB,YAAC,EAAnH;AARiB;AAWK;AAGtB;AAHsB;AAMxB,UAAG,kBAAH;AAEE,eAAM,uBAAO,QAAC,eAAS,aAAT;AACd,YAAI,YAAU;;AAId,yCAAW,CAAC,wFAAD;;AA3BsB;AA/HS;;AAE9C;AACqB;AAEnB;AAEE,gBAAE,WAAC,CAAS,KAAT;AACH,gBAAc,OAAN,MAAS,mDAAH;AACd,aAAK,eAAL,GAAsB,kCAA4B,YAAC;AACnD,aAAK,WAAL,GAAkB,8BAAwB,YAAC;AAP1B;AAUK;AAGtB;AAHsB;AAMxB,aAAM,mDAAqB,QAAC,eAAS,aAAT;AAC5B,UAAI,YAAU;AApB8B;AAkDR;;AAEtC;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,4BAAH;AACd,aAAK,qBAAL,GAA4B;AAC5B,aAAK,qBAAL,GAA4B;AAC5B,aAAK,mBAAL,GAA0B,kCAA4B,YAAC;AACvD,aAAK,iBAAL,GAAwB;AACxB,aAAK,WAAL,GAAkB,iBAAI,CAAC,6BAAuB,YAAC,EAAY,GAAH,GAAD,GAAM,8BAAwB,YAAC,EAAhE;AACtB,aAAK,UAAL,GAAiB;AACjB,aAAK,aAAL,GAAoB,qBAAiE,GAA3C,kCAA4B,YAAC,EAA9B,GAAuC,KAAD,GAAO,iBAAI,CAAC,6BAAuB,YAAC,EAAY,GAAH,GAAD,GAAM,8BAAwB,YAAC,EAAhE,CAAL;AAXlE;AAcG;AAEtB;AAFsB;AAO1B,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,aAAM,4BAAW,QAAC,eAAS,aAAT;AAClB,UAAI,YAAU;AA1BwB;AA2KO;AAE7C;AAF6C;AA9DL;;AAExC;AACqB;AAEnB;AAEE,gBAAE,WAAC,CAAS,KAAT;AACH,gBAAc,OAAN,MAAS,6BAAH;AACd,aAAK,0BAAL,GAAiC,kCAA4B,YAAC;AAN7C;AASK;AAGtB;AAHsB;AAMtB,aAAM,6BAAU,QAAC,eAAS,aAAT;AACjB,UAAI,YAAU;AAnBsB;AAxDK;;AAE7C;AACqB;AAEnB;AAEE,gBAAE,YAAC,CAAU,CAAV;AACH,gBAAE,WAAC,CAAS,KAAT;AACH,gBAAc,OAAN,MAAS,2CAAH;AACd,aAAK,eAAL,GAAsB,kCAA4B,YAAC;AAPlC;AAUK;AAEtB,8BAAgB;AAChB,8BAAgB;AAHM;AAOtB,aAAM,2CAAiB,QAAC,eAAS,aAAT;AACxB,UAAI,YAAU;AArB2B;AA2HP;AAEtC;AACA;AAEA,aAAE,WAAC,CAAS,IAAT;AACH,aAAE,YAAC,CAAU,EAAV;AACH,aAAE,YAAC,CAAU,CAAV;AACH,UAAG;AAEH,aAAE,SAAM,CAAC,EAAE,EAAI,uBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,iCAA4B,YAAC,EAA3C;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,gBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,6BAAwB,YAAC,EAAvC;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,WAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,uBAAU,CAAC,gCAA2B,YAAC,GAAS,IAAG,GAAC,IAAD,CAAK,MAA9C,CAAxB;AAEJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,SAAP;AACR,UAAG,kBAAa,eAAC,EAAW,GAAC,CAA7B;AAEE,eAAE,SAAM,CAAC,EAAE,EAAI,0BAA+F,GAApE,+BAA0B,YAAC,EAA5B,GAAqC,gCAAD,GAAkC,wBAAW,CAAC,WAAW,wBAAmB,WAAC,EAAhC,CAAlH;OAFV;AAII,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,SAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,eAAkG,GAAlF,kCAA6B,YAAC,EAA/B,GAAwC,IAAD,GAAM,kCAA6B,YAAC,EAA/B,GAAwC,MAA1G;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,cAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,eAA0G,GAA1F,sCAAiC,YAAC,EAAnC,GAA4C,IAAD,GAAM,sCAAiC,YAAC,EAAnC,GAA4C,MAAlH;AAEJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,OAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,eAAgG,GAAhF,iCAA4B,YAAC,EAA9B,GAAuC,IAAD,GAAM,iCAA4B,YAAC,EAA9B,GAAuC,MAAxG;AAEJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,OAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,kBAAqF,GAAlE,0BAAqB,YAAC,EAAvB,GAAgC,IAAD,GAAM,0BAAqB,YAAC,EAAvB,GAAgC,MAA7F;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,UAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,kBAA2G,GAAxF,6BAAwB,YAAC,EAA1B,GAAmC,oBAAD,GAAsB,6BAAwB,YAAC,EAA1B,GAAmC,MAAnH;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,eAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,kCAA6B,YAAC,EAArC;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,cAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,qCAAgC,YAAC,EAAxC;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,aAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,6BAAwB,YAAC,EAAhC;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,WAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,uCAAkC,YAAC,EAA1C;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,gBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,mCAA8B,YAAC,EAAtC;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,eAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,8BAAyB,YAAC,EAAjC;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,iBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,uBAAU,CAAC,oCAA+B,YAAC,GAAS,IAAG,GAAC,IAAD,CAAK,MAAlD,CAAjB;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,QAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,mCAA8B,YAAC,EAAtC;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,gBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,mCAA8B,YAAC,EAAtC;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,aAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,uBAAU,CAAC,gCAA2B,YAAC,GAAS,IAAG,GAAC,IAAD,CAAK,MAA9C,CAAjB;AAvE8B;AA2EF;AAE1B;AAEV,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,uBAAa,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,sBAAY,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,uBAAa,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,gCAAsB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,0BAAgB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,+BAAqB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,8BAAoB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,0CAAgC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,+CAAqC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,4CAAkC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,+CAAqC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,gDAAsC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,0CAAgC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,iDAAuC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,+CAAqC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,8CAAoC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,iDAAuC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,4CAAkC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,2CAAiC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,kDAAwC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,qDAA2C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,oDAA0C,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,oDAA0C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvD,sCAA4B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,4CAAkC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,gDAAsC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,4CAAkC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,4CAAkC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,kDAAwC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,6CAAmC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,6CAAmC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,6CAAmC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,8CAAoC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,8CAAoC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,oCAA0B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,0CAAgC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,wCAA8B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,+CAAqC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,6DAAmD,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChE,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,uDAA6C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1D,qDAA2C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,iDAAuC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,kDAAwC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,qDAA2C,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvD,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,6CAAmC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,6CAAmC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,4CAAkC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,8CAAoC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,2CAAiC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,8CAAoC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,gDAAsC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,wCAA8B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,kDAAwC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,mDAAyC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,mDAAyC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,wCAA8B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,iCAAuB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,gDAAsC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,qBAAW,uCAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,2BAAiB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,wCAA8B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAE5C,aAAE;AACF,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,oBAAS;AACT,mBAAQ;AACR,oBAAS;AACT,qBAAU;AACV,6BAAkB;AAClB,qBAAU;AACV,uBAAY;AACZ,4BAAiB;AACjB,2BAAgB;AAChB,uCAA4B;AAC5B,uCAA4B;AAC5B,4CAAiC;AACjC,yCAA8B;AAC9B,4CAAiC;AACjC,wCAA6B;AAC7B,mCAAwB;AACxB,kCAAuB;AACvB,uCAA4B;AAC5B,uCAA4B;AAC5B,kCAAuB;AACvB,uCAA4B;AAC5B,8BAAmB;AACnB,yCAA8B;AAC9B,+BAAoB;AACpB,6CAAkC;AAClC,uCAA4B;AAC5B,uCAA4B;AAC5B,uCAA4B;AAC5B,sCAA2B;AAC3B,0CAA+B;AAC/B,uCAA4B;AAC5B,wCAA6B;AAC7B,wCAA6B;AAC7B,uCAA4B;AAC5B,gCAAqB;AACrB,mCAAwB;AACxB,yCAA8B;AAC9B,8CAAmC;AACnC,sCAA2B;AAC3B,kCAAuB;AACvB,sCAA2B;AAC3B,sCAA2B;AAC3B,sCAA2B;AAC3B,4CAAiC;AACjC,6CAAkC;AAClC,oCAAyB;AACzB,qCAA0B;AAC1B,sCAA2B;AAC3B,sCAA2B;AAC3B,+BAAoB;AACpB,uCAA4B;AAC5B,uCAA4B;AAC5B,mCAAwB;AACxB,iCAAsB;AACtB,sCAA2B;AAC3B,2CAAgC;AAChC,8CAAmC;AACnC,4CAAiC;AACjC,yCAA8B;AAC9B,0CAA+B;AAC/B,2CAAgC;AAChC,4CAAiC;AACjC,wCAA6B;AAC7B,+BAAoB;AACpB,8BAAmB;AACnB,qCAA0B;AAC1B,uCAA4B;AAC5B,mCAAwB;AACxB,wCAA6B;AAC7B,+CAAoC;AACpC,yCAA8B;AAC9B,6CAAkC;AAClC,4CAAiC;AACjC,kDAAuC;AACvC,iDAAsC;AACtC,iDAAsC;AACtC,mCAAwB;AACxB,yCAA8B;AAC9B,gCAAqB;AACrB,6CAAkC;AAClC,wCAA6B;AAC7B,wCAA6B;AAC7B,wCAA6B;AAC7B,yCAA8B;AAC9B,yCAA8B;AAC9B,+CAAoC;AACpC,0CAA+B;AAC/B,0CAA+B;AAC/B,0CAA+B;AAC/B,2CAAgC;AAChC,2CAAgC;AAChC,yCAA8B;AAC9B,0CAA+B;AAC/B,0CAA+B;AAC/B,0CAA+B;AAC/B,iCAAsB;AACtB,uCAA4B;AAC5B,qCAA0B;AAC1B,0CAA+B;AAC/B,sCAA2B;AAC3B,4CAAiC;AACjC,uCAA4B;AAC5B,iCAAsB;AACtB,2CAAgC;AAChC,4CAAiC;AACjC,0DAA+C;AAC/C,oCAAyB;AACzB,kCAAuB;AACvB,kCAAuB;AACvB,sCAA2B;AAC3B,kCAAuB;AACvB,oDAAyC;AACzC,kDAAuC;AACvC,wCAA6B;AAC7B,8CAAmC;AACnC,+CAAoC;AACpC,uCAA4B;AAC5B,6CAAkC;AAClC,kDAAuC;AACvC,uCAA4B;AAC5B,0CAA+B;AAC/B,uCAA4B;AAC5B,0CAA+B;AAC/B,uCAA4B;AAC5B,kCAAuB;AACvB,mCAAwB;AACxB,yCAA8B;AAC9B,0CAA+B;AAC/B,0CAA+B;AAC/B,0CAA+B;AAC/B,yCAA8B;AAC9B,wCAA6B;AAC7B,2CAAgC;AAChC,0CAA+B;AAC/B,wCAA6B;AAC7B,yCAA8B;AAC9B,kCAAuB;AACvB,mCAAwB;AACxB,oCAAyB;AACzB,sCAA2B;AAC3B,mCAAwB;AACxB,2CAAgC;AAChC,qCAA0B;AAC1B,iCAAsB;AACtB,0CAA+B;AAC/B,6CAAkC;AAClC,yCAA8B;AAC9B,qCAA0B;AAC1B,sCAA2B;AAC3B,+CAAoC;AACpC,sCAA2B;AAC3B,gDAAqC;AACrC,gDAAqC;AACrC,0CAA+B;AAC/B,qCAA0B;AAC1B,wCAA6B;AAC7B,8BAAmB;AACnB,8BAAmB;AACnB,6CAAkC;AAClC,8BAAmB;AACnB,kBAAO;AACP,wBAAa;AACb,oCAAyB;AACzB,mCAAwB;AACxB,mCAAwB;AACxB,kCAAuB;AACvB,6BAAkB;AAClB,6BAAkB;AAClB,8BAAmB;AACnB,oCAAyB;AACzB,qCAA0B;AAC1B;AACE,qBAAQ,eAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,QAAC,CAAQ,EAAR;AACH,eAAE,OAAC,CAAO,GAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,GAAV;AACH,eAAE,oBAAC,CAAoB,gDAApB;AACH,eAAE,eAAC,CAAe,wCAAf;AACH,eAAE,cAAC,CAAc,2CAAd;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,eAAC,CAAe,yCAAf;AACH,eAAE,0BAAC,CAA0B,YAA1B;AACH,eAAE,mBAAC,CAAmB,gDAAnB;AACH,eAAE,yBAAC,CAAyB,gDAAzB;AACH,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,QAAC,CAAQ,CAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,sBAAS,SAAC,CAAS,EAAT;AACV,sBAAS,UAAC,CAAU,EAAV;AACV,sBAAS,WAAC,CAAW,QAAX;AACV,sBAAS,gBAAC,CAAc,CAAd;AACV,sBAAS,oBAAC,CAAoB,mCAApB;AACV,sBAAS,eAAC,CAAe,yCAAf;AACV,sBAAS,mBAAC,CAAmB,gDAAnB;AACV,sBAAS,eAAC,CAAe,wCAAf;AACV,sBAAS,iBAAC,CAAiB,sBAAjB;AACV,sBAAS,cAAC,CAAc,wCAAd;AACV,sBAAS,gBAAC,CAAgB,sBAAhB;AACV,uBAAQ,CAAC,eAAW,KAAM,UAAW,gBAA7B;AACR,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,GAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,qBAAQ,SAAC,CAAS,EAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,WAAC,CAAW,OAAX;AACT,qBAAQ,gBAAC,CAAc,CAAd;AACT,qBAAQ,oBAAC,CAAoB,mCAApB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,cAAC,CAAc,wCAAd;AACT,qBAAQ,gBAAC,CAAgB,sBAAhB;AACT,uBAAQ,CAAC,cAAU,KAAM,UAAW,eAA5B;AACR,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,QAAC,CAAQ,CAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,sBAAS,SAAC,CAAS,EAAT;AACV,sBAAS,UAAC,CAAU,EAAV;AACV,sBAAS,WAAC,CAAW,QAAX;AACV,sBAAS,gBAAC,CAAc,CAAd;AACV,sBAAS,oBAAC,CAAoB,mCAApB;AACV,sBAAS,eAAC,CAAe,yCAAf;AACV,sBAAS,mBAAC,CAAmB,gDAAnB;AACV,sBAAS,eAAC,CAAe,wCAAf;AACV,sBAAS,iBAAC,CAAiB,sBAAjB;AACV,sBAAS,cAAC,CAAc,wCAAd;AACV,sBAAS,gBAAC,CAAgB,sBAAhB;AACV,uBAAQ,CAAC,eAAW,KAAM,UAAW,gBAA7B;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,+BAAkB,mBAAmB,CAAC,IAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,QAAC,CAAQ,GAAR;AACnB,+BAAkB,OAAC,CAAO,GAAP;AACnB,+BAAkB,SAAC,CAAS,EAAT;AACnB,+BAAkB,UAAC,CAAU,EAAV;AACnB,+BAAkB,WAAC,CAAW,iBAAX;AACnB,+BAAkB,gBAAC,CAAc,CAAd;AACnB,+BAAkB,oBAAC,CAAoB,mCAApB;AACnB,+BAAkB,eAAC,CAAe,yCAAf;AACnB,+BAAkB,mBAAC,CAAmB,gDAAnB;AACnB,+BAAkB,eAAC,CAAe,wCAAf;AACnB,+BAAkB,iBAAC,CAAiB,sBAAjB;AACnB,+BAAkB,cAAC,CAAc,wCAAd;AACnB,+BAAkB,gBAAC,CAAgB,sBAAhB;AACnB,uBAAQ,CAAC,wBAAoB,KAAM,UAAW,yBAAtC;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,SAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,QAAC,CAAQ,GAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,EAAT;AACb,yBAAY,UAAC,CAAU,EAAV;AACb,yBAAY,WAAC,CAAW,cAAX;AACb,yBAAY,gBAAC,CAAc,CAAd;AACb,yBAAY,oBAAC,CAAoB,mCAApB;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,mBAAC,CAAmB,gDAAnB;AACb,yBAAY,eAAC,CAAe,wCAAf;AACb,yBAAY,iBAAC,CAAiB,sBAAjB;AACb,yBAAY,cAAC,CAAc,wCAAd;AACb,yBAAY,gBAAC,CAAgB,sBAAhB;AACb,uBAAQ,CAAC,kBAAc,KAAM,UAAW,mBAAhC;AACR,8BAAiB,mBAAmB,CAAC,IAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,QAAC,CAAQ,GAAR;AAClB,8BAAiB,OAAC,CAAO,GAAP;AAClB,8BAAiB,SAAC,CAAS,EAAT;AAClB,8BAAiB,UAAC,CAAU,EAAV;AAClB,8BAAiB,WAAC,CAAW,SAAX;AAClB,8BAAiB,gBAAC,CAAc,CAAd;AAClB,8BAAiB,oBAAC,CAAoB,mCAApB;AAClB,8BAAiB,eAAC,CAAe,yCAAf;AAClB,8BAAiB,mBAAC,CAAmB,gDAAnB;AAClB,8BAAiB,eAAC,CAAe,wCAAf;AAClB,8BAAiB,iBAAC,CAAiB,sBAAjB;AAClB,8BAAiB,cAAC,CAAc,wCAAd;AAClB,8BAAiB,gBAAC,CAAgB,sBAAhB;AAClB,uBAAQ,CAAC,uBAAmB,KAAM,UAAW,wBAArC;AACR,6BAAgB,mBAAmB,CAAC,IAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,iBAAC,CAAiB,UAAjB;AACjB,6BAAgB,cAAC,CAAc,aAAG,oBAAjB;AACjB,6BAAgB,UAAhB,GAA6B;AAC7B,6BAAgB,QAAC,CAAQ,GAAR;AACjB,6BAAgB,OAAC,CAAO,GAAP;AACjB,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,UAA5B,GAAyC;AACzC,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,8CAAiC,mBAAmB,CAAC,qBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,8CAAiC,mBAAmB,CAAC,qBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,qCAAwB,mBAAmB,CAAC,qBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,oCAAuB,mBAAmB,CAAC,qBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,oCAAuB,mBAAmB,CAAC,qBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,CAAR;AAC7B,gCAAmB,mBAAmB,CAAC,qBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,CAAR;AAC/B,iCAAoB,mBAAmB,CAAC,qBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,+CAAkC,mBAAmB,CAAC,qBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,GAAR;AAC7B,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,GAAR;AAC5B,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,GAAR;AAChC,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,kCAAqB,mBAAmB,CAAC,qBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,qCAAwB,mBAAmB,CAAC,qBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,gDAAmC,mBAAmB,CAAC,qBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,GAAR;AAC5B,oCAAuB,mBAAmB,CAAC,qBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,8CAAiC,mBAAmB,CAAC,qBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,+CAAkC,mBAAmB,CAAC,qBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,GAAR;AACnC,sCAAyB,mBAAmB,CAAC,qBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,iCAAoB,mBAAmB,CAAC,qBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,qCAAwB,mBAAmB,CAAC,qBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,mCAAsB,mBAAmB,CAAC,qBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,GAAR;AAC5B,6CAAgC,mBAAmB,CAAC,qBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,gDAAmC,mBAAmB,CAAC,qBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,8CAAiC,mBAAmB,CAAC,qBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,6CAAgC,mBAAmB,CAAC,qBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,8CAAiC,mBAAmB,CAAC,qBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,EAAR;AAClC,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,iCAAoB,mBAAmB,CAAC,qBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,gCAAmB,mBAAmB,CAAC,qBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,qCAAwB,mBAAmB,CAAC,qBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,iDAAoC,mBAAmB,CAAC,qBAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,+CAAkC,mBAAmB,CAAC,qBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,EAAR;AACnC,8CAAiC,mBAAmB,CAAC,qBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,oDAAuC,mBAAmB,CAAC,qBAAD;AAC1D,oDAAuC,QAAC,CAAQ,yCAAR;AACxC,oDAAuC,WAAvC,GAAqD;AACrD,oDAAuC,QAAC,CAAQ,CAAR;AACxC,mDAAsC,mBAAmB,CAAC,qBAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,mDAAsC,mBAAmB,CAAC,qBAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,mDAAsC,QAAC,CAAQ,EAAR;AACvC,qCAAwB,mBAAmB,CAAC,qBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,kCAAqB,mBAAmB,CAAC,qBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,+CAAkC,mBAAmB,CAAC,qBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,iDAAoC,mBAAmB,CAAC,qBAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,6CAAgC,mBAAmB,CAAC,qBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,mBAAmB,CAAC,qBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,mCAAsB,mBAAmB,CAAC,qBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,GAAR;AAChC,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,8CAAiC,mBAAmB,CAAC,qBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,EAAR;AAClC,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,mCAAsB,mBAAmB,CAAC,qBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,6CAAgC,mBAAmB,CAAC,qBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,8CAAiC,mBAAmB,CAAC,qBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,4DAA+C,mBAAmB,CAAC,qBAAD;AAClE,4DAA+C,QAAC,CAAQ,iDAAR;AAChD,4DAA+C,WAA/C,GAA6D;AAC7D,4DAA+C,QAAC,CAAQ,EAAR;AAChD,sCAAyB,mBAAmB,CAAC,qBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,GAAR;AAC1B,oCAAuB,mBAAmB,CAAC,qBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,oCAAuB,mBAAmB,CAAC,qBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,oCAAuB,mBAAmB,CAAC,qBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,sDAAyC,mBAAmB,CAAC,qBAAD;AAC5D,sDAAyC,QAAC,CAAQ,2CAAR;AAC1C,sDAAyC,WAAzC,GAAuD;AACvD,sDAAyC,QAAC,CAAQ,EAAR;AAC1C,oDAAuC,mBAAmB,CAAC,qBAAD;AAC1D,oDAAuC,QAAC,CAAQ,yCAAR;AACxC,oDAAuC,WAAvC,GAAqD;AACrD,oDAAuC,QAAC,CAAQ,EAAR;AACxC,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,gDAAmC,mBAAmB,CAAC,qBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,iDAAoC,mBAAmB,CAAC,qBAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,QAAC,CAAQ,GAAR;AACrC,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,+CAAkC,mBAAmB,CAAC,qBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,EAAR;AACnC,oDAAuC,mBAAmB,CAAC,qBAAD;AAC1D,oDAAuC,QAAC,CAAQ,yCAAR;AACxC,oDAAuC,WAAvC,GAAqD;AACrD,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,oCAAuB,mBAAmB,CAAC,qBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,qCAAwB,mBAAmB,CAAC,qBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,GAAR;AAC/B,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,6CAAgC,mBAAmB,CAAC,qBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,oCAAuB,mBAAmB,CAAC,qBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,GAAR;AACxB,qCAAwB,mBAAmB,CAAC,qBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,sCAAyB,mBAAmB,CAAC,qBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,qCAAwB,mBAAmB,CAAC,qBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,6CAAgC,mBAAmB,CAAC,qBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,mCAAsB,mBAAmB,CAAC,qBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,+CAAkC,mBAAmB,CAAC,qBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,CAAR;AAC/B,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,iDAAoC,mBAAmB,CAAC,qBAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,QAAC,CAAQ,GAAR;AACrC,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,kDAAqC,mBAAmB,CAAC,qBAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,kDAAqC,mBAAmB,CAAC,qBAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,kDAAqC,QAAC,CAAQ,GAAR;AACtC,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,GAAR;AAChC,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,GAAR;AAC9B,gCAAmB,mBAAmB,CAAC,qBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,mBAAmB,CAAC,qBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,+CAAkC,mBAAmB,CAAC,qBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,gCAAmB,mBAAmB,CAAC,IAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAC,CAAW,qBAAX;AACpB,gCAAmB,QAAC,CAAQ,EAAR;AACpB,gCAAmB,OAAC,CAAO,EAAP;AACpB,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,cAAC,CAAc,aAAG,oBAAjB;AACR,oBAAO,QAAC,CAAQ,EAAR;AACR,oBAAO,OAAC,CAAO,CAAP;AACR,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,iBAAC,CAAiB,iBAAjB;AACd,0BAAa,cAAC,CAAc,aAAG,oBAAjB;AACd,0BAAa,QAAC,CAAQ,EAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,sCAAyB,mBAAmB,CAAC,kBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,UAAzB,GAAsC;AACtC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,qCAAwB,mBAAmB,CAAC,kBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,mBAAmB,CAAC,kBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,oCAAuB,mBAAmB,CAAC,kBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,+BAAkB,mBAAmB,CAAC,kBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,mBAAmB,CAAC,kBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,gCAAmB,mBAAmB,CAAC,kBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,sCAAyB,mBAAmB,CAAC,kBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,uCAA0B,mBAAmB,CAAC,kBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AAnwB1C;AAqwBE,eAAE;AACF,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,sBAAS;AACT,qBAAQ;AACR,sBAAS;AACT,uBAAU;AACV,+BAAkB;AAClB,uBAAU;AACV,yBAAY;AACZ,8BAAiB;AACjB,6BAAgB;AAChB,yCAA4B;AAC5B,yCAA4B;AAC5B,8CAAiC;AACjC,2CAA8B;AAC9B,8CAAiC;AACjC,0CAA6B;AAC7B,qCAAwB;AACxB,oCAAuB;AACvB,yCAA4B;AAC5B,yCAA4B;AAC5B,oCAAuB;AACvB,yCAA4B;AAC5B,gCAAmB;AACnB,2CAA8B;AAC9B,iCAAoB;AACpB,+CAAkC;AAClC,yCAA4B;AAC5B,yCAA4B;AAC5B,yCAA4B;AAC5B,wCAA2B;AAC3B,4CAA+B;AAC/B,yCAA4B;AAC5B,0CAA6B;AAC7B,0CAA6B;AAC7B,yCAA4B;AAC5B,kCAAqB;AACrB,qCAAwB;AACxB,2CAA8B;AAC9B,gDAAmC;AACnC,wCAA2B;AAC3B,oCAAuB;AACvB,wCAA2B;AAC3B,wCAA2B;AAC3B,wCAA2B;AAC3B,8CAAiC;AACjC,+CAAkC;AAClC,sCAAyB;AACzB,uCAA0B;AAC1B,wCAA2B;AAC3B,wCAA2B;AAC3B,iCAAoB;AACpB,yCAA4B;AAC5B,yCAA4B;AAC5B,qCAAwB;AACxB,mCAAsB;AACtB,wCAA2B;AAC3B,6CAAgC;AAChC,gDAAmC;AACnC,8CAAiC;AACjC,2CAA8B;AAC9B,4CAA+B;AAC/B,6CAAgC;AAChC,8CAAiC;AACjC,0CAA6B;AAC7B,iCAAoB;AACpB,gCAAmB;AACnB,uCAA0B;AAC1B,yCAA4B;AAC5B,qCAAwB;AACxB,0CAA6B;AAC7B,iDAAoC;AACpC,2CAA8B;AAC9B,+CAAkC;AAClC,8CAAiC;AACjC,oDAAuC;AACvC,mDAAsC;AACtC,mDAAsC;AACtC,qCAAwB;AACxB,2CAA8B;AAC9B,kCAAqB;AACrB,+CAAkC;AAClC,0CAA6B;AAC7B,0CAA6B;AAC7B,0CAA6B;AAC7B,2CAA8B;AAC9B,2CAA8B;AAC9B,iDAAoC;AACpC,4CAA+B;AAC/B,4CAA+B;AAC/B,4CAA+B;AAC/B,6CAAgC;AAChC,6CAAgC;AAChC,2CAA8B;AAC9B,4CAA+B;AAC/B,4CAA+B;AAC/B,4CAA+B;AAC/B,mCAAsB;AACtB,yCAA4B;AAC5B,uCAA0B;AAC1B,4CAA+B;AAC/B,wCAA2B;AAC3B,8CAAiC;AACjC,yCAA4B;AAC5B,mCAAsB;AACtB,6CAAgC;AAChC,8CAAiC;AACjC,4DAA+C;AAC/C,sCAAyB;AACzB,oCAAuB;AACvB,oCAAuB;AACvB,wCAA2B;AAC3B,oCAAuB;AACvB,sDAAyC;AACzC,oDAAuC;AACvC,0CAA6B;AAC7B,gDAAmC;AACnC,iDAAoC;AACpC,yCAA4B;AAC5B,+CAAkC;AAClC,oDAAuC;AACvC,yCAA4B;AAC5B,4CAA+B;AAC/B,yCAA4B;AAC5B,4CAA+B;AAC/B,yCAA4B;AAC5B,oCAAuB;AACvB,qCAAwB;AACxB,2CAA8B;AAC9B,4CAA+B;AAC/B,4CAA+B;AAC/B,4CAA+B;AAC/B,2CAA8B;AAC9B,0CAA6B;AAC7B,6CAAgC;AAChC,4CAA+B;AAC/B,0CAA6B;AAC7B,2CAA8B;AAC9B,oCAAuB;AACvB,qCAAwB;AACxB,sCAAyB;AACzB,wCAA2B;AAC3B,qCAAwB;AACxB,6CAAgC;AAChC,uCAA0B;AAC1B,mCAAsB;AACtB,4CAA+B;AAC/B,+CAAkC;AAClC,2CAA8B;AAC9B,uCAA0B;AAC1B,wCAA2B;AAC3B,iDAAoC;AACpC,wCAA2B;AAC3B,kDAAqC;AACrC,kDAAqC;AACrC,4CAA+B;AAC/B,uCAA0B;AAC1B,0CAA6B;AAC7B,gCAAmB;AACnB,gCAAmB;AACnB,+CAAkC;AAClC,gCAAmB;AACnB,oBAAO;AACP,0BAAa;AACb,sCAAyB;AACzB,qCAAwB;AACxB,qCAAwB;AACxB,oCAAuB;AACvB,+BAAkB;AAClB,+BAAkB;AAClB,gCAAmB;AACnB,sCAAyB;AACzB,uCAA0B;AAn7B5B;AAnWoC;AA1ftB;;;AACZ,mClHGc,kDkHHd;AACA,+CxIiaU,4BwIjaV;AACA,+CxI8kBW,6BwI9kBX;AACA,oDxI6kBW,6BwI7kBX;AACA,iDxI4kBW,6BwI5kBX;AACA,oDxI2kBW,6BwI3kBX;AACA,gDxI4ZU,4BwI5ZV;AACA,2CxI2ZU,4BwI3ZV;AACA,0CxI0ZU,4BwI1ZV;AACA,+CxIyZU,4BwIzZV;AACA,+CxIwZU,4BwIxZV;AACA,0CxIuZU,4BwIvZV;AACA,+CxIsZU,4BwItZV;AACA,sCxIqZU,4BwIrZV;AACA,iDxIoZU,4BwIpZV;AACA,uCxImZU,4BwInZV;AACA,qDxIgkBW,6BwIhkBX;AACA,+CxIiZU,4BwIjZV;AACA,+CxIgZU,4BwIhZV;AACA,+CxI+YU,4BwI/YV;AACA,8CxI8YU,4BwI9YV;AACA,kDxI6YU,4BwI7YV;AACA,+CxImlBY,8BwInlBZ;AACA,gDxI2YU,4BwI3YV;AACA,gDxI0YU,4BwI1YV;AACA,+CxIyYU,4BwIzYV;AACA,wCxIwYU,4BwIxYV;AACA,2CxIuYU,4BwIvYV;AACA,iDxIsYU,4BwItYV;AACA,sDxImjBW,6BwInjBX;AACA,8CxIoYU,4BwIpYV;AACA,0CxImYU,4BwInYV;AACA,8CxIgjBW,6BwIhjBX;AACA,8CxI+iBW,6BwI/iBX;AACA,8CxI8iBW,6BwI9iBX;AACA,oDxIubW,6BwIvbX;AACA,qDxI8XU,4BwI9XV;AACA,4CxIqbW,6BwIrbX;AACA,6CxIugBS,2BwIvgBT;AACA,8CxIsgBS,2BwItgBT;AACA,8CxI0XU,4BwI1XV;AACA,uCxIyXU,4BwIzXV;AACA,+CxImgBS,2BwIngBT;AACA,+CxIuXU,4BwIvXV;AACA,2CxIsXU,4BwItXV;AACA,yCxIqXU,4BwIrXV;AACA,8CxIoXU,4BwIpXV;AACA,mDxI8fS,2BwI9fT;AACA,sDxIgiBW,6BwIhiBX;AACA,oDxIiXU,4BwIjXV;AACA,iDxI8hBW,6BwI9hBX;AACA,kDxI+WU,4BwI/WV;AACA,mDxI8WU,4BwI9WV;AACA,oDxI6WU,4BwI7WV;AACA,gDxI4WU,4BwI5WV;AACA,uCxI2WU,4BwI3WV;AACA,sCxI0WU,4BwI1WV;AACA,6CxIyWU,4BwIzWV;AACA,+CxIwWU,4BwIxWV;AACA,2CxIuWU,4BwIvWV;AACA,gDxIohBW,6BwIphBX;AACA,uDxImhBW,6BwInhBX;AACA,iDxIoWU,4BwIpWV;AACA,qDxImWU,4BwInWV;AACA,oDxIkWU,4BwIlWV;AACA,0DxIiWU,4BwIjWV;AACA,yDxIwZW,6BwIxZX;AACA,yDxI+VU,4BwI/VV;AACA,2CxIqiBY,8BwIriBZ;AACA,iDxIoiBY,8BwIpiBZ;AACA,wCxI4VU,4BwI5VV;AACA,qDxIseS,2BwIteT;AACA,gDxIqeS,2BwIreT;AACA,gDxIoeS,2BwIpeT;AACA,gDxImeS,2BwIneT;AACA,iDxIkeS,2BwIleT;AACA,iDxIieS,2BwIjeT;AACA,uDxIgeS,2BwIheT;AACA,kDxI+dS,2BwI/dT;AACA,kDxI8dS,2BwI9dT;AACA,kDxI6dS,2BwI7dT;AACA,mDxI4dS,2BwI5dT;AACA,mDxI2dS,2BwI3dT;AACA,iDxI+UU,4BwI/UV;AACA,kDxI8UU,4BwI9UV;AACA,kDxI6UU,4BwI7UV;AACA,kDxI4UU,4BwI5UV;AACA,yCxIyfW,6BwIzfX;AACA,+CxIwfW,6BwIxfX;AACA,6CxIufW,6BwIvfX;AACA,kDxIwUU,4BwIxUV;AACA,8CxIuUU,4BwIvUV;AACA,oDxIsUU,4BwItUV;AACA,+CxIqUU,4BwIrUV;AACA,yCxI+cS,2BwI/cT;AACA,mDxImUU,4BwInUV;AACA,oDxI0XW,6BwI1XX;AACA,kExIiUU,4BwIjUV;AACA,4CxIgUU,4BwIhUV;AACA,0CxI+TU,4BwI/TV;AACA,0CxI8TU,4BwI9TV;AACA,8CxI6TU,4BwI7TV;AACA,0CxI4TU,4BwI5TV;AACA,4DxI2TU,4BwI3TV;AACA,0DxI0TU,4BwI1TV;AACA,gDxIyTU,4BwIzTV;AACA,sDxIgXW,6BwIhXX;AACA,uDxIuTU,4BwIvTV;AACA,+CxIicS,2BwIjcT;AACA,qDxIqTU,4BwIrTV;AACA,0DxI+bS,2BwI/bT;AACA,+CxI8bS,2BwI9bT;AACA,kDxI6bS,2BwI7bT;AACA,+CxI4bS,2BwI5bT;AACA,kDxI2bS,2BwI3bT;AACA,+CxI+SU,4BwI/SV;AACA,0CxI8SU,4BwI9SV;AACA,2CxI2dW,6BwI3dX;AACA,iDxI4SU,4BwI5SV;AACA,kDxI2SU,4BwI3SV;AACA,kDxI0SU,4BwI1SV;AACA,kDxIySU,4BwIzSV;AACA,iDxIgWW,6BwIhWX;AACA,gDxIkbS,2BwIlbT;AACA,mDxIibS,2BwIjbT;AACA,kDxI6VW,6BwI7VX;AACA,gDxI2eY,8BwI3eZ;AACA,iDxImSU,4BwInSV;AACA,0CxIkSU,4BwIlSV;AACA,2CxI4aS,2BwI5aT;AACA,4CxI2aS,2BwI3aT;AACA,8CxI0aS,2BwI1aT;AACA,2CxI8RU,4BwI9RV;AACA,mDxIoeY,8BwIpeZ;AACA,6CxI4RU,4BwI5RV;AACA,yCxI2RU,4BwI3RV;AACA,kDxI0RU,4BwI1RV;AACA,qDxIgeY,8BwIheZ;AACA,iDxIwRU,4BwIxRV;AACA,6CxIqcW,6BwIrcX;AACA,8CxIsRU,4BwItRV;AACA,uDxIqRU,4BwIrRV;AACA,8CxIkcW,6BwIlcX;AACA,wDxI0dY,8BwI1dZ;AACA,wDxIkRU,4BwIlRV;AACA,kDxIiRU,4BwIjRV;AACA,6CxIwUW,6BwIxUX;AACA,gDxI+QU,4BwI/QV;AACA,sCxI4bW,6BwI5bX;AACA,sCxI6QU,4BwI7QV;AACA,qDxIuZS,2BwIvZT;AACA,sCxI45CS,2BwI55CT;AACA,qB5G8xBW,0C4G9xBX;AACA,0BpHrEa,gDoHqEb;AACA,6BzJ4xBY,8CyJ5xBZ;AACA,6BzJ2xBY,8CyJ3xBZ;AACA,6B1J4aK,uC0J5aL;AACA,4B1J2aK,uC0J3aL;AACA,2B1J0aK,uC0J1aL;AACA,4B1JyaK,uC0JzaL;AACA,6BzJsxBY,8CyJtxBZ;AACA,qC1JuaK,uC0JvaL;AACA,6B1JsaK,uC0JtaL;AACA,gClHhKc,kDkHgKd;AACA,4CxI8PU,4BwI9PV;AACA,2CxIqTW,6BwIrTX;AACA,2CxIoTW,6BwIpTX;AACA,0CxImTW,6BwInTX;AACA,qCxIkTW,6BwIlTX;AACA,qCxIiTW,6BwIjTX;AACA,sCxImYS,2BwInYT;AACA,4CxIkYS,2BwIlYT;AACA,6CxI8SW,6BwI9SX;AACA,+B1J2ZK,uC0J3ZL;AACA,oC1J0ZK,uC0J1ZL;AACmC,gDAAQ,WxI65BrC,wBwI75BqC,CAAR;AACd,kCAAO,UvL/DvB,2BuL+DuB,CAAP;AACI,sCAAO,UvLhE3B,2BuLgE2B,CAAP;AACD,qCAAO,UvLjE1B,2BuLiE0B,CAAP;AACD,oCAAO,UvLlEzB,2BuLkEyB,CAAP;AACC,qCAAO,UvLnE1B,2BuLmE0B,CAAP;AACS,8CAAO,UvLpEnC,2BuLoEmC,CAAP;AACR,sCAAO,UvLrE3B,2BuLqE2B,CAAP;AACO,6CAAQ,WxIq5BlC,wBwIr5BkC,CAAR;AACL,wCAAO,UvLvE7B,2BuLuE6B,CAAP;AACK,6CAAO,UvLxElC,2BuLwEkC,CAAP;AA1LpB;AAoMd;AAhNF,GAkNc,8KAlNd;ACAA,gCAES,kgBAFT;;;AAckB;;;AACd;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAWA;AACA;AACA;AACA;AACA;AACA;AACA;AAnCc;;;;;;;;;;;;;;;;;;;;;;;AA4OoB;AAEpC;AAEA,qBAAU,MAAK,WAAC,CAAM,qEAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAO,iBAAC,CAAe,SAAf;AACR,0BAAe,iBAAC,CAAe,SAAf;AAChB,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAW,eAAU,iBAAC;AACtB,sBAAW,WAAC,CAAS,aAAT;AACZ,sBAAW,iBAAC,CAAe,SAAf;AACZ,yBAAc,iBAAC,CAAe,SAAf;AACf,aAAE,WAAC,CAAS,KAAT;AACH,2BAAe;AACf,yBAAc;AAjBsB;AArFK;AAEzC;AACA;AAEA,kBAAW,eAAU,iBAAC;AACtB,aAAE,iBAAC,CAAe,SAAf;AACH,UAAG;AACH,aAAE,WAAC,CAAS,IAAT;AACH,aAAE,YAAC,CAAU,CAAV;AACH,aAAE,YAAC,CAAU,OAAO,eAAC,EAAW,GAAC,CAA9B;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,iBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,aAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,YAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,cAAP;AACR,aAAO;AACP,UAAG,OAAO,eAAC,EAAW,KAAC,CAAvB,EAA8B,gBAAW,WAAC,CAAS,iBAAT,CAA1C;AACA,UAAG,OAAO,eAAC,EAAW,GAAC,CAAvB,EAA8B,gBAAW,WAAC,CAAS,sBAAsB,GAAC,qBAAQ,CAAC,OAAO,eAAC,EAAT,CAAxC,CAA1C;AACA,UAAG,OAAO,eAAC,EAAW,GAAC,EAAvB,EAA+B,gBAAW,WAAC,CAAS,gCAAT,CAA3C;AAEA,aAAM,CAAI,OAAO,OAAC,EAAlB;AAEM,SAAJ,IAAG;AACH,oBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,iBAAS,UAAT,GAAqB;AACrB,kCAAoB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,+BAAkB,oBAAC,CAAkB,qBAAlB;AACnB,+BAAkB,eAAC,CAAa,wCAAb;AACnB,+BAAkB,SAAC,CAAO,GAAP;AACnB,+BAAkB,OAAlB,GAAwB;AACxB,+BAAkB,WAAC,CAAS,wBAAmB,YAAC,EAA7B;AACnB,+BAAkB,SAAlB,GAA6B;AAC7B,+BAAkB,iBAAC,CAAe,SAAf;AACnB,eAAE,SAAM,CAAC,EAAE,EAAI,oBAAe,YAAC,EAAvB;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,mBAAc,YAAC,EAAtB;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,uBAAU,CAAC,uBAAkB,YAAC,GAAS,IAAG,GAAC,IAAD,CAAK,MAArC,CAAxB;AACR,eAAO;;AApCgC;AA1CD;AAExC,UAAI;AAFoC;AAvBH;;AAErC;AACqB;AAEnB;AAEE,gBAAc,OAAN,MAAS,iCAAH;AAJG;AAUK;AAEtB,4BAAc,QAAC,CAAM,IAAI,aAAV;AACf,kCAAoB,CAAC,KAAD;AAHE;AAMtB,aAAM,iCAAY,QAAC,eAAS,aAAT;AACnB,UAAI,YAAU;AApBmB;AA6GQ;AAE7C;AAEA,wBAAiB,uBAAU,CAAC,mBAAc,QAAC,GAAK,IAAI,GAAzB;AAE3B,UAAU,eAAD,OAAiB,GAAC,CAA3B;AAGA,oBAAO;AACP,oBAAO,aAAP,GAAqB,8BAAoJ,GAApH,eAAD,GAAiB,gCAAD,GAAoC,eAAD,GAAiB,+BAAD,GAAmC,eAAD,GAAiB,IAAD;AACzK,oBAAO;OALP;AAN6C;AApJA;;AACzB;AAEpB;AAEE,mBAAgB,KAAW,QAAQ,QAAS,SAA5B;AAChB,YAAG,QAAQ,KAAC,OAAZ;AAEE,oCAAmB;AACnB,2CAAW,CAAC,mDAAD;;AAIX,oCAAmB;AACnB,cAAG,uBAAiB,KAAE,EAAtB;AAEE,gCAAc,QAAC,CAAM,uBAAN;AACf,sCAAoB,CAAC,IAAD;AACpB,wCAAsB,CAAC,IAAD;WAJxB;;AAbgB;AAuBpB;AACA;AAEA,wBAAa,YAAb,GAA4B;AAC5B,wBAAa,YAAb,GAA4B;AAC5B,wBAAa,WAAb,GAA2B;AAC3B,wBAAa,SAAb,GAAyB;AACzB,wBAAa,SAAb,GAAyB,cAAC,sCAAM,yCAAP;AACzB,YAAY,MAAe,kBAAa;AACxC,UAAG,GAAG,KAAC,CAAP;AAEE,oBAAO,YAAU,CAAC,8BAA8B,CAAC,kBAAa,qBAAC,EAAf,arH+E6F,IqH/E5H;OAFnB;AAjC6C;AAoKE;;AAE/C;AACqB;AAEnB;AAEE,gBAAE,WAAC,CAAS,KAAT;AACH,gBAAc,OAAN,MAAS,2CAAH;AACd,aAAK,eAAL,GAAsB;AANL;AASK;AAEtB,gBAAE,WAAC,CAAS,KAAT;AACH,4BAAc,QAAC,CAAM,uBAAN;AACf,kCAAoB,CAAC,IAAD;AAJE;AAQtB,aAAM,2CAAiB,QAAC,eAAS,aAAT;AACxB,UAAI,YAAU;AArB6B;AAjGC;;AAEhD;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,qCAAH;AACd,aAAK,eAAL,GAAsB;AALH;AAQG;AAEtB,kCAAoB,CAAC,IAAD;AAFE;AAO1B,2BAAuB,OAAP,OAAU,8BAAH,CAAW;AAClC,kBAAO,OAAO,CAAC,eAAe,mBAAc,EAA9B;AACd,wBAAY,oBAAe,YAAC;AAC5B,uBAAW,mBAAc,YAAC;AAC1B,2BAAe,uBAAkB,YAAC;AAClC,UAAG,0BAAH;AAEE,uBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,eAAM,qCAAc,QAAC,eAAS,aAAT;AACrB,YAAI,YAAU;;AAId,aAAI;;AA/B0C;AA8IV;AAE5B;AAEV,yBAAe,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,qBAAW,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACnB,4BAAkB,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,6BAAmB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,2BAAiB,sCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,+BAAqB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,qBAAW,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,4BAAkB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,oBAAU,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,qBAAW,uCAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAE3B,sBAAW;AACX,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,aAAE;AACF,qBAAU;AACV,kBAAO;AACP,yBAAc;AACd,0BAAe;AACf,wBAAa;AACb,4BAAiB;AACjB,kBAAO;AACP,8BAAmB;AACnB,0BAAe;AACf,yBAAc;AACd,6BAAkB;AAClB,iBAAM;AACN,kBAAO;AACP;AACE,qBAAQ,iBAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,GAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,EAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,WAAC,CAAW,aAAX;AACZ,wBAAW,oBAAC,CAAoB,QAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,cAAC,CAAc,2CAAd;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,yCAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,YAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,QAAC,CAAQ,CAAR;AACH,eAAE,OAAC,CAAO,GAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,EAAV;AACH,eAAE,oBAAC,CAAoB,gDAApB;AACH,eAAE,eAAC,CAAe,wCAAf;AACH,eAAE,cAAC,CAAc,2CAAd;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,gBAAC,CAAc,CAAd;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,eAAC,CAAe,yCAAf;AACH,eAAE,0BAAC,CAA0B,YAA1B;AACH,eAAE,mBAAC,CAAmB,gDAAnB;AACH,eAAE,yBAAC,CAAyB,gDAAzB;AACH,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,QAAC,CAAQ,CAAR;AACR,oBAAO,OAAC,CAAO,GAAP;AACR,oBAAO,SAAC,CAAS,EAAT;AACR,oBAAO,UAAC,CAAU,EAAV;AACR,oBAAO,WAAC,CAAW,sBAAX;AACR,oBAAO,gBAAC,CAAc,CAAd;AACR,oBAAO,oBAAC,CAAoB,mCAApB;AACR,oBAAO,eAAC,CAAe,yCAAf;AACR,oBAAO,mBAAC,CAAmB,gDAAnB;AACR,oBAAO,eAAC,CAAe,wCAAf;AACR,oBAAO,iBAAC,CAAiB,sBAAjB;AACR,oBAAO,cAAC,CAAc,wCAAd;AACR,oBAAO,gBAAC,CAAgB,sBAAhB;AACR,uBAAQ,CAAC,aAAS,KAAM,UAAW,cAA3B;AACR,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,CAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,gBAAC,CAAc,CAAd;AACf,2BAAc,oBAAC,CAAoB,2BAApB;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,iBAAC,CAAiB,sBAAjB;AACf,2BAAc,YAAC,CAAY,IAAZ;AACf,2BAAc,YAAC,CAAY,sBAAZ;AACf,2BAAc,gBAAC,CAAgB,qBAAhB;AACf,uBAAQ,CAAC,oBAAgB,KAAM,WAAY,sBAAnC;AACR,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,EAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,4BAAe,SAAC,CAAS,EAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,WAAC,CAAW,iBAAX;AAChB,4BAAe,gBAAC,CAAc,CAAd;AAChB,4BAAe,oBAAC,CAAoB,mCAApB;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,mBAAC,CAAmB,gDAAnB;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,iBAAC,CAAiB,sBAAjB;AAChB,4BAAe,cAAC,CAAc,wCAAd;AAChB,4BAAe,gBAAC,CAAgB,sBAAhB;AAChB,uBAAQ,CAAC,qBAAiB,KAAM,UAAW,sBAAnC;AACR,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,QAAC,CAAQ,EAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,0BAAa,SAAC,CAAS,EAAT;AACd,0BAAa,UAAC,CAAU,EAAV;AACd,0BAAa,QAAO,cAAC,CAAc,IAAd;AACrB,0BAAa,QAAO,YAAC,CAAY,IAAZ;AACrB,0BAAa,SAAb,GAAyB,cAAC,sCAAK,yCAAN;AACzB,0BAAa,SAAb,GAAyB;AACzB,0BAAa,OAAb,GAAuB;AACvB,0BAAa,wBAAb,GAAwC;AACxC,0BAAa,wBAAb,GAAwC;AACxC,0BAAa,uBAAb,GAAuC;AACvC,0BAAa,yBAAb,GAAyC;AACzC,8BAAiB,mBAAmB,CAAC,IAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,QAAC,CAAQ,GAAR;AAClB,8BAAiB,OAAC,CAAO,GAAP;AAClB,8BAAiB,SAAC,CAAS,EAAT;AAClB,8BAAiB,UAAC,CAAU,EAAV;AAClB,8BAAiB,WAAC,CAAW,mBAAX;AAClB,8BAAiB,gBAAC,CAAc,EAAd;AAClB,8BAAiB,oBAAC,CAAoB,eAApB;AAClB,8BAAiB,eAAC,CAAe,yCAAf;AAClB,8BAAiB,eAAC,CAAe,wCAAf;AAClB,8BAAiB,iBAAC,CAAiB,sBAAjB;AAClB,8BAAiB,WAAC,CAAW,KAAX;AAClB,8BAAiB,gBAAC,CAAgB,sBAAhB;AAClB,uBAAQ,CAAC,uBAAmB,KAAM,UAAW,wBAArC;AACR,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,WAAP,GAAqB;AACrB,oBAAO,iBAAC,CAAiB,UAAjB;AACR,oBAAO,cAAC,CAAc,aAAG,oBAAjB;AACR,oBAAO,UAAP,GAAoB;AACpB,oBAAO,QAAC,CAAQ,CAAR;AACR,oBAAO,OAAC,CAAO,EAAP;AACR,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,UAAnB,GAAgC;AAChC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,4BAAe,mBAAmB,CAAC,YAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,UAAf,GAA4B;AAC5B,4BAAe,QAAC,CAAQ,EAAR;AAChB,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,QAAC,CAAQ,EAAR;AACf,+BAAkB,mBAAmB,CAAC,YAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,GAAR;AACnB,mBAAM,mBAAmB,CAAC,IAAD;AACzB,mBAAM,QAAC,CAAQ,QAAR;AACP,mBAAM,WAAC,CAAW,YAAX;AACP,mBAAM,QAAC,CAAQ,EAAR;AACP,mBAAM,OAAC,CAAO,EAAP;AACP,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,cAAC,CAAc,aAAG,oBAAjB;AACR,oBAAO,QAAC,CAAQ,GAAR;AACR,oBAAO,OAAC,CAAO,EAAP;AA3MV;AA6ME,wBAAW;AACX,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,eAAE;AACF,uBAAU;AACV,oBAAO;AACP,2BAAc;AACd,4BAAe;AACf,0BAAa;AACb,8BAAiB;AACjB,oBAAO;AACP,gCAAmB;AACnB,4BAAe;AACf,2BAAc;AACd,+BAAkB;AAClB,mBAAM;AACN,oBAAO;AA9NT;AAzCsC;AAhQtB;;;AACd,0BnHCc,kDmHDd;AACA,yBzIgjDS,2ByIhjDT;AACA,sCzI8ZU,4ByI9ZV;AACA,kCzI6ZU,4ByI7ZV;AACA,iCzI4ZU,4ByI5ZV;AACA,qCzI2ZU,4ByI3ZV;AACA,6B1J86BY,8C0J96BZ;AACA,6B1J66BY,8C0J76BZ;AACA,6B1J46BY,8C0J56BZ;AACA,qB7G26BW,0C6G36BX;AACA,6B3J4jBK,uC2J5jBL;AACA,0B3J2jBK,uC2J3jBL;AACA,iC3J8QG,qC2J9QH;AACA,8B3JuFI,sC2JvFJ;AACA,kC3JwjBK,uC2JxjBL;AACA,gC5K+Fc,+C4K/Fd;AACA,0BrHkEa,gDqHlEb;AACA,oC3JqjBK,uC2JrjBL;AACqB,kCAAO,UxL6FvB,2BwL7FuB,CAAP;AACK,uCAAQ,WzIujC5B,wByIvjC4B,CAAR;AACD,sCAAO,UxL2F3B,2BwL3F2B,CAAP;AACH,mCAAO,UxL0FxB,2BwL1FwB,CAAP;AACQ,2CAAO,UxLyFhC,2BwLzFgC,CAAP;AAEA,2CAAO,UxLuFhC,2BwLvFgC,CAAP;AACE,6CAAO,UxLsFlC,2BwLtFkC,CAAP;AA1BlB;AAwChB;AAtDF,GAwDc,gFAxDd;ACAA,+BAES,oeAFT;;;AAaiB;;;AACb;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAMA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAtBa;;;;;;;;;;;;;;;;;;AAmIsB;AAErC;AAEA,aAAE,YAAC,CAAU,CAAV;AACH,aAAE,YAAC,CAAU,CAAV;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,iBAAP;AAER,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,eAAS,UAAT,GAAqB;AACrB,2BAAe,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,wBAAa,oBAAC,CAAkB,wBAAlB;AACd,wBAAa,eAAC,CAAa,wCAAb;AACd,wBAAa,cAAC,CAAY,wCAAZ;AACd,wBAAa,OAAb,GAAmB;AACnB,wBAAa,WAAC,CAAS,YAAT;AACd,wBAAa,SAAb,GAAwB;AACxB,wBAAa,iBAAC,CAAe,SAAf;AACd,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,eAAS,UAAT,GAAqB;AACrB,uBAAW,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AAClB,oBAAS,WAAC,CAAS,0CAAT;AACV,oBAAS,eAAC,CAAa,yCAAb;AACV,oBAAS,iBAAC,CAAe,SAAf;AACV,4BAAgB,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,yBAAc,oBAAC,CAAkB,cAAlB;AACf,yBAAc,eAAC,CAAa,yCAAb;AACf,yBAAc,eAAC,CAAa,wCAAb;AACf,yBAAc,SAAC,CAAO,GAAP;AACf,yBAAc,UAAd,GAA0B;AAC1B,yBAAc,iBAAC,CAAe,SAAf;AACf,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,eAAS,UAAT,GAAqB;AACrB,wBAAY,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,qBAAU,oBAAC,CAAkB,wBAAlB;AACX,qBAAU,eAAC,CAAa,wCAAb;AACX,qBAAU,cAAC,CAAY,wCAAZ;AACX,qBAAU,OAAV,GAAgB;AAChB,qBAAU,WAAC,CAAS,MAAT;AACX,qBAAU,SAAV,GAAqB;AACrB,qBAAU,iBAAC,CAAe,SAAf;AAEX,aAAE,SAAM,CAAC,EAAE,EAAI,mBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,iBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,oBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,iBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,aAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,gBAAP;AA/C6B;AA5DG;AAExC;AACA;AAEA,UAAG;AAEH,aAAE,YAAC,CAAU,OAAO,eAAC,EAAW,GAAC,CAA9B;AACH,aAAO;AACP,UAAG,OAAO,eAAC,EAAW,KAAC,CAAvB,EAA8B,cAAS,WAAC,CAAS,iBAAT,CAAxC;AACA,UAAG,OAAO,eAAC,EAAW,GAAC,CAAvB,EAA8B,cAAS,WAAC,CAAS,sBAAsB,GAAC,qBAAQ,CAAC,OAAO,eAAC,EAAT,CAAxC,CAAxC;AACA,UAAG,OAAO,eAAC,EAAW,GAAC,EAAvB,EAA+B,cAAS,WAAC,CAAS,gCAAT,CAAzC;AAEA,aAAM,CAAI,OAAO,OAAC,EAAlB;AAEM,SAAJ,IAAG;AACH,oBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,iBAAS,UAAT,GAAqB;AACrB,oCAAsB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,iCAAoB,oBAAC,CAAkB,6BAAlB;AACrB,iCAAoB,eAAC,CAAa,wCAAb;AACrB,iCAAoB,SAAC,CAAO,GAAP;AACrB,iCAAoB,OAApB,GAA0B;AAC1B,iCAAoB,WAAC,CAAS,0BAAqB,YAAC,EAA/B;AACrB,iCAAoB,SAApB,GAA+B;AAC/B,iCAAoB,iBAAC,CAAe,SAAf;AACrB,eAAE,SAAM,CAAC,EAAE,EAAI,0BAAqB,YAAC,EAA7B;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,wBAAmB,YAAC,EAA3B;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,2BAAsB,YAAC,EAA9B;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,wBAAmB,YAAC,EAA3B;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,oBAAe,YAAC,EAAvB;AACR,eAAE,SAAM,CAAC,GAAG,EAAI,uBAAkB,YAAC,EAA3B;AACR,eAAO;;AAhC+B;AA+GL;AAEnC,yBAAc;AACd,yBAAc,QAAC,CAAM,EAAN;AACf,UAAG,8BAAoB,KAAE,EAAzB;AAEE,2BAAc,QAAC,CAAM,8BAAN;AACf,iCAAoB,CAAC,MAAD;AACpB,yCAAsB;OAJxB;AAJmC;AAlJO;AAE1C,UAAI;AAFsC;AAkFE;AAE5C;AAEA,iBAAU,mBAAc,QAAC;AACzB,UAAU,QAAD,OAAU,GAAC,CAApB;AAEA,oBAAO;AACP,oBAAO,aAAP,GAAqB,oCAA2G,GAAtE,sBAAS,CAAC,SrL8IhB,GqL9Ie,CAAV,GAAqB,8BAAD,GAAgC,sBAAS,CAAC,SrL8InE,GqL9IkE,CAAV,GAAqB,GAAD;AAChI,oBAAO;OAJP;AAL4C;AA7EL;;AAEvC;AACqB;AAEnB;AAEE,gBAAc,OAAN,MAAS,iCAAH;AAJG;AAUK;AAEtB,4BAAc,QAAC,CAAM,IAAI,aAAV;AACf,kCAAoB,CAAC,KAAD;AAHE;AAMxB,UAAG,kBAAH;AAEE,eAAM,iCAAY,QAAC,eAAS,aAAT;AACnB,YAAI,YAAU;;AAId,yCAAW,CAAC,wFAAD;;AA1BwB;AAoEU;AAEjD,4BAAwB,OAAP,OAAU,8BAAH,CAAW;AACnC,kBAAO,OAAO,CAAC,iBAAiB,oBAAe,EAAjC;AACd,4BAAgB,wBAAmB,YAAC;AACpC,qCAAyB,2BAAsB,YAAC;AAChD,UAAI;AAN6C;AAqFZ;AAE3B;AAEV,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,qBAAW,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,oBAAU,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAEtB,aAAE;AACF,kBAAO;AACP,8BAAmB;AACnB,iCAAsB;AACtB,6BAAkB;AAClB,0BAAe;AACf,gCAAqB;AACrB,8BAAmB;AACnB,iBAAM;AACN;AACE,qBAAQ,gBAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,0BAAa,0CAAb;AACA,qBAAQ,CAAC,KAAM,WAAY,eAAnB;AACR,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,QAAC,CAAQ,CAAR;AACH,eAAE,OAAC,CAAO,CAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,GAAV;AACH,eAAE,oBAAC,CAAoB,gDAApB;AACH,eAAE,SAAC,CAAS,sCAAT;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,gBAAC,CAAc,CAAd;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,0BAAC,CAA0B,YAA1B;AACH,eAAE,yBAAC,CAAyB,gDAAzB;AACH,eAAE,SAAQ,kBAAC,CAAkB,IAAlB;AACX,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,WAAP,GAAqB;AACrB,oBAAO,iBAAC,CAAiB,SAAjB;AACR,oBAAO,cAAC,CAAc,aAAG,oBAAjB;AACR,oBAAO,QAAC,CAAQ,EAAR;AACR,oBAAO,OAAC,CAAO,GAAP;AACR,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,mCAAsB,mBAAmB,CAAC,YAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,+BAAkB,mBAAmB,CAAC,YAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,GAAR;AACnB,4BAAe,mBAAmB,CAAC,YAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,EAAR;AAChB,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,UAArB,GAAkC;AAClC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,mBAAM,mBAAmB,CAAC,IAAD;AACzB,mBAAM,QAAC,CAAQ,QAAR;AACP,mBAAM,WAAC,CAAW,YAAX;AACP,mBAAM,QAAC,CAAQ,EAAR;AACP,mBAAM,OAAC,CAAO,GAAP;AA9DT;AAgEE,eAAE;AACF,oBAAO;AACP,gCAAmB;AACnB,mCAAsB;AACtB,+BAAkB;AAClB,4BAAe;AACf,kCAAqB;AACrB,gCAAmB;AACnB,mBAAM;AAxER;AAvBqC;AAlMtB;;;AACb,0BpHEc,kDoHFd;AACA,yB1IijDS,2B0IjjDT;AACA,wC1I+ZU,4B0I/ZV;AACA,yC1I8ZU,4B0I9ZV;AACA,qC1I6ZU,4B0I7ZV;AACA,kC1I4ZU,4B0I5ZV;AACA,sC1I2ZU,4B0I3ZV;AACA,sC1I0ZU,4B0I1ZV;AACA,qB9G66BW,0C8G76BX;AACuB,oCAAO,UzLuGzB,2ByLvGyB,CAAP;AACG,uCAAQ,W1IikC5B,wB0IjkC4B,CAAR;AACL,kCAAO,UzLqGvB,2ByLrGuB,CAAP;AAZR;AA8Bf;AA3CF,GA6Cc,mCA7Cd;ACAA,gCAES,0hBAFT;;;AAckB;;;AACd;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA8BA;AACA;AACA;AApKc;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AA2MsB;AAEtC,UAAI;AAFkC;AA8VF;AAEpC;AAEA,qBAAU,MAAK,WAAC,CAAM,sEAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,oBAAS,iBAAC,CAAe,SAAf;AACV,uBAAY,iBAAC,CAAe,SAAf;AACb,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,sBAAW,iBAAC,CAAe,SAAf;AACZ,sBAAW,iBAAC,CAAe,SAAf;AACZ,sBAAW,iBAAC,CAAe,SAAf;AAEZ,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,uBAAY,iBAAC,CAAe,SAAf;AAEb,gBAAK,iBAAC,CAAe,SAAf;AACN,wBAAa,iBAAC,CAAe,SAAf;AACd,0BAAe,iBAAC,CAAe,SAAf;AAEhB,kBAAW,eAAU,iBAAC;AACtB,0BAAe,iBAAC,CAAe,SAAf;AAChB,wBAAa,iBAAC,CAAe,SAAf;AAEd,kBAAW,oBAAe,iBAAC;AAC3B,oBAAS,iBAAC,CAAe,SAAf;AACV,yBAAc,iBAAC,CAAe,SAAf;AACf,yBAAc,iBAAC,CAAe,SAAf;AAEf,kBAAW,kBAAa,iBAAC;AACzB,kBAAO,iBAAC,CAAe,SAAf;AACR,uBAAY,iBAAC,CAAe,SAAf;AACb,uBAAY,iBAAC,CAAe,SAAf;AAEb,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AAEX,kBAAW,eAAU,iBAAC;AACtB,mBAAQ,iBAAC,CAAe,SAAf;AACT,mBAAQ,iBAAC,CAAe,SAAf;AAET,kBAAW,eAAU,iBAAC;AACtB,6BAAkB,iBAAC,CAAe,SAAf;AACnB,qBAAU,iBAAC,CAAe,SAAf;AAEX,kBAAW,eAAU,iBAAC;AACtB,6BAAkB,iBAAC,CAAe,SAAf;AACnB,kBAAO,iBAAC,CAAe,SAAf;AACR,oBAAS,iBAAC,CAAe,SAAf;AAEV,kBAAW,eAAU,iBAAC;AACtB,iBAAM,iBAAC,CAAe,SAAf;AACP,iBAAM,iBAAC,CAAe,SAAf;AACP,mBAAQ,iBAAC,CAAe,SAAf;AACT,gBAAK,iBAAC,CAAe,SAAf;AACN,gBAAK,iBAAC,CAAe,SAAf;AAEN,kBAAW,eAAU,iBAAC;AACtB,wBAAa,iBAAC,CAAe,SAAf;AACd,wBAAa,iBAAC,CAAe,SAAf;AAEd,kBAAW,gBAAW,iBAAC;AACvB,yBAAc,iBAAC,CAAe,SAAf;AAEf,kBAAW,gBAAW,iBAAC;AACvB,wBAAa,iBAAC,CAAe,SAAf;AACd,yBAAc,iBAAC,CAAe,SAAf;AACf,4BAAiB,iBAAC,CAAe,SAAf;AAClB,4BAAiB,iBAAC,CAAe,SAAf;AAElB,kBAAW,gBAAW,iBAAC;AACvB,wBAAa,iBAAC,CAAe,SAAf;AAEd,6BAAkB,WAAC,CAAS,eAAK,IAAI,SAAlB;AACnB,mBAAQ;AACR,oBAAS;AACT,oBAAS,aAAT,GAAuB,2BAA2B,GAAC,sBAAS,CAAC,ItLnXT,GsLmXQ,CAAV;AAClD,oBAAS;AAtF2B;AAlKe;AAGnD,UAAG,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAM,KAAC,EAAzB;AAAiC,sBAAS,WAAC,CAAS,aAAT;AAAsC,YAAV,cAAS,WAAC,CAAS,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAxB;AACjF;AAJmD;AAuFP;AAE5C,+BAAoB,YAAC,CAAU,aAAQ,QAAC,EAAnB;AACrB,UAAG,gCAA2B,aAAC,EAA/B;AAEE,YAAG,uBAAkB,cAAC,EAAU,GAAC,yBAAoB,cAAC,EAAtD,EAAsE,uBAAkB,cAAC,CAAY,yBAAoB,cAAC,EAAjC,CAAzF;AACA,mCAAsB,cAAC,CAAY,uBAAU,CAAC,EAAE,EAAE,EAAE,CAAP,CAAtB;AACvB,iCAAoB,cAAC,CAAY,uBAAU,CAAC,EAAE,EAAE,EAAE,CAAP,CAAtB;OAJvB;AAMA,0BAAe,cAAC,CAAY,gBAAK,CAAC,yBAAoB,WAAC,EAAtB,CAA8B,GAAC,eAAI,CAAC,2BAAsB,WAAC,EAAxB,CAApD;AAChB,wBAAa,cAAC,CAAY,gBAAK,CAAC,uBAAkB,WAAC,EAApB,CAA4B,GAAC,eAAI,CAAC,yBAAoB,WAAC,EAAtB,CAAlD;AACd,UAAG,kBAAa,cAAC,EAAU,GAAC,oBAAe,cAAC,EAA5C;AAEE,0BAAa,cAAC,CAAY,oBAAe,cAAC,EAAU,GAAG,CAAD,CAAC,GAAC,EAAD,CAAzC;AACd,+BAAkB,WAAC,CAAS,gBAAK,CAAC,kBAAa,WAAC,EAAf,CAAd;AACnB,iCAAoB,WAAC,CAAS,eAAI,CAAC,kBAAa,WAAC,EAAf,CAAb;OAJvB;AAMA,gCAAqB,WAAC,CAA+B,CAArB,kBAAa,WAAC,EAAO,GAAC,oBAAe,WAAC,EAAjB,CAAyB,GAAC,EAAzD;AACtB,UAAG,yBAAoB,YAAC,EAAQ,KAAC,EAAjC,EAAyC,yBAAoB,YAAC,CAAU,GAAV,CAA9D;AACA,2BAAgB,WAAC,CAAS,yBAAoB,WAAC,EAAO,GAAC,0BAAqB,WAAC,EAA5D;AACjB,UAAG,4BAAuB,YAAC,EAAQ,KAAE,EAArC,EAA6C,mBAAc,aAAC,CAAW,KAAX,CAA5D;AACA,wCAA6B,cAAC,CAAY,mBAAI,GAAC,mBAAjB;AArBc;AA9QI;;AAEhD;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,sCAAH;AACd,aAAK,cAAL,GAAqB;AALF;AAQG;AAEtB,YAAG,IAAI,cAAc,KAAE,EAAvB;AAEE,yBAAS;AACT,yBAAS,aAAT,GAAuB,0BAA0B,GAAC,sBAAS,CAAC,IAAI,etL2ClB,GsL3Ca,CAAV;AACjD,yBAAS;SAJX;AAFsB;AAa1B,aAAM,sCAAgB,QAAC,eAAS,aAAT;AAEvB,UAAI,YAAU;AA1BkC;AA8LL;AAE3C,UAAG,cAAS,KAAC,EAAb;AAEE,sBAAS;OAFX;AAIA,UAAG,cAAS,KAAE,EAAd;AAEE,qBAAQ,QAAC,CAAM,yBAAoB,YAAC,EAA3B;OAFX;AAIA,UAAG,uBAAkB,aAAC,EAAS,KAAC,CAAhC;AAEE,yBAAY,QAAC,CAAM,WAAN;AACb,4BAAe,WAAC,CAAS,KAAT;AAChB,kBAAK,WAAC,CAAS,IAAT;AACN,0BAAa,WAAC,CAAS,IAAT;OALhB;AAOA,UAAG,uBAAkB,aAAC,EAAS,KAAC,CAAhC;AAEE,yBAAY,QAAC,CAAM,kBAAN;AACb,4BAAe,WAAC,CAAS,KAAT;AAChB,kBAAK,WAAC,CAAS,KAAT;AACN,0BAAa,WAAC,CAAS,IAAT;OALhB;AAOA,UAAG,uBAAkB,aAAC,EAAS,KAAC,CAAhC;AAEE,yBAAY,QAAC,CAAM,eAAN;AACb,4BAAe,WAAC,CAAS,KAAT;AAChB,kBAAK,WAAC,CAAS,KAAT;AACN,0BAAa,WAAC,CAAS,KAAT;AACd,0BAAa,WAAC,CAAS,KAAT;OANhB;AAQA,UAAG,uBAAkB,aAAC,EAAS,KAAC,CAAhC;AAEE,yBAAY,QAAC,CAAM,eAAN;AACb,4BAAe,WAAC,CAAS,IAAT;AAChB,kBAAK,WAAC,CAAS,KAAT;AACN,0BAAa,WAAC,CAAS,KAAT;OALhB;AAOA,UAAG,uBAAkB,aAAC,EAAS,KAAC,CAAhC;AAEE,yBAAY,QAAC,CAAM,WAAN;AACb,4BAAe,WAAC,CAAS,KAAT;AAChB,kBAAK,WAAC,CAAS,KAAT;AACN,0BAAa,WAAC,CAAS,KAAT;AACd,0BAAa,WAAC,CAAS,KAAT;OANhB;AAQA,UAAG,uBAAkB,aAAC,EAAS,KAAC,CAAhC;AAEE,yBAAY,QAAC,CAAM,aAAN;AACb,4BAAe,WAAC,CAAS,KAAT;AAChB,kBAAK,WAAC,CAAS,KAAT;AACN,0BAAa,WAAC,CAAS,KAAT;AACd,0BAAa,WAAC,CAAS,KAAT;OANhB;AAQA;AAvD2C;AAwGA;AAE3C,8BAAmB,aAAC,CAAW,KAAX;AACpB,6BAAkB,aAAC,CAAW,CAAX;AACnB,yBAAc,aAAC,CAAW,IAAX;AACf,+BAAoB,YAAC,CAAU,EAAV;AACrB,yBAAc,aAAC,CAAW,CAAX;AACf,yBAAc,aAAC,CAAW,QAAX;AACf,+BAAoB,aAAC,CAAW,KAAX;AACrB,+BAAoB,WAAC,CAAS,CAAT;AACrB,+BAAoB,WAAC,CAAS,CAAT;AACrB,sCAA2B,aAAC,CAAW,KAAX;AAC5B,mCAAwB,aAAC,CAAW,IAAX;AACzB,gCAAqB,WAAC,CAAS,CAAT;AACtB,2BAAgB,WAAC,CAAS,CAAT;AACjB,kCAAuB,YAAC,CAAU,gCAAV;AACxB,6BAAkB,YAAC,CAAU,0BAAV;AACnB,4BAAiB,YAAC,CAAU,yBAAV;AAClB,0BAAe,aAAC,CAAW,uBAAX;AAEhB,+BAAoB,aAAC,CAAW,EAAX;AACrB,+BAAoB,cAAC,CAAY,gBAAK,CAAC,qBAAD,CAAjB;AACrB,6BAAkB,cAAC,CAAY,gBAAK,CAAC,mBAAD,CAAjB;AACnB,iCAAsB,cAAC,CAAY,eAAI,CAAC,qBAAD,CAAhB;AACvB,+BAAoB,cAAC,CAAY,eAAI,CAAC,mBAAD,CAAhB;AACrB,iCAAsB,aAAC,CAAO,cAAS,eAAC,EAAjB;AACvB,mBAAQ,OAAM;AA1B6B;AA7CA;AAE3C;AACA,oBAAS,WAAC,CAAS,kBAAT;AACV,UAAG,kBAAH;AAEC,sBAAS;;AAIR,yCAAW,CAAC,iGAAD;;AAV8B;AAvFA;AAE3C,oBAAS;AACT,gCAAqB,YAAC,CAAU,0BAAqB,YAAC,EAAhC;AACtB,4BAAiB,YAAC,CAAU,sBAAiB,YAAC,EAA5B;AAClB,2BAAgB,YAAC,CAAU,qBAAgB,YAAC,EAA3B;AACjB,UAAG,sBAAiB,YAAC,EAAQ,KAAC,EAA9B,EAAsC,sBAAiB,YAAC,CAAU,4BAAuB,YAAC,EAA0E,GAAjE,GAAD,GAAK,0BAAqB,YAAC,EAAvB,GAAgC,GAAD,GAAK,iBAAY,YAAC,EAAd,GAAuB,IAAD,GAAM,qBAAgB,YAAC,EAA9H,CAAxD;AACA,+BAAoB,WAAC,CAAS,uBAAkB,WAAC,EAAO,GAAC,CAApC;AACrB,+BAAoB,WAAC,CAAS,yBAAoB,WAAC,EAA9B;AACrB,oBAAS;AACT;AAV2C;AA6RL;AAEtC,UAAG,cAAS,UAAC,EAAb,EAAyB,cAAS,OAAlC;AAFsC;AAjaK;;AAE3C;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,oCAAH;AACd,aAAK,eAAL,GAAsB;AALH;AAUG;AAEtB,YAAG,IAAI,eAAe,KAAE,EAAxB;AAEE,wBAAQ;AACR,wBAAQ,aAAR,GAAsB,4BAA4B,GAAC,sBAAS,CAAC,IAAI,gBtLWnB,GsLXc,CAAV;AAClD,wBAAQ;SAJV;AAFsB;AAa1B,aAAM,oCAAe,QAAC,eAAS,aAAT;AAEtB,UAAI,YAAU;AA5B6B;AA8EN;AAErC,eAAI;AACJ,kBAAO,OAAM;AACb,UAAG,0BAAqB,YAAC,EAAQ,KAAC,EAAlC;AAEE,yCAAW,CAAC,gCAAD;;AAIX,iBAAI,aAAJ,GAAkB,0BAA0B,GAAC,sBAAS,CAAC,0BAAqB,YAAC,GtL3D3B,GsL2DI,CAAV;AAC5C,iBAAI;;AAX+B;AAeC;AAEtC,eAAI;AACJ,aAAM,CAAI,SAAI,OAAC,EAAf;AAEE,oBAAO,OAAM,IAAI,CAAC,wBAAmB,YAAC,EAArB;AACjB,iBAAI;;AANgC;AAeI;AAE1C,0BAAe,OAAM;AACrB,mBAAQ;AACR,aAAM,CAAI,aAAQ,OAAC,EAAnB;AAEE,4BAAe,OAAM,IAAI,CAAC,uBAAkB,YAAC,EAApB;AACzB,qBAAQ;;AAEV,UAAG,cAAS,KAAC,EAAb;AAEE,sBAAS;AACT,sBAAS,aAAT,GAAuB;AACvB,sBAAS,UAAT,GAAoB;AACpB,sBAAS;;AAIT,sBAAS;AACT,sBAAS,aAAT,GAAuB,uCAAuC,GAAC,sBAAS,CAAC,etLlGvB,GsLkGsB,CAAV;AAC9D,sBAAS;;AApB+B;AA6HE;AAE5C,UAAG,uBAAkB,aAAC,EAAS,KAAC,CAAhC,EAAuC,OAAO,SAA9C;AACA,UAAG,uBAAkB,aAAC,EAAS,KAAC,CAAhC,EAAuC,OAAO,SAA9C;AACA,UAAG,uBAAkB,aAAC,EAAS,KAAC,CAAhC,EAAuC,OAAO,SAA9C;AAJ4C;AA/KT;AAEnC,UAAG,0BAAqB,YAAC,EAAQ,KAAC,EAAlC;AAEE,yCAAW,CAAC,gCAAD;AACX;OAHF;AAKA,oBAAS;AACT,6BAAkB,aAAC,CAAW,CAAX;AACnB,oBAAS;AACT,uBAAY,WAAC,CAAS,eAAT;AACb,0BAAe,WAAC,CAAS,KAAT;AAChB,gBAAK,WAAC,CAAS,KAAT;AAZ6B;AAgPQ;AAE1C,UAAG,0BAAqB,YAAC,EAAQ,KAAC,EAAlC;AAEC,yCAAW,CAAC,gCAAD;AACX;OAHD;AAKD,oBAAS;AACT,6BAAkB,aAAC,CAAW,CAAX;AACnB,yBAAc,aAAC,CAAW,QAAX;AACf,oBAAS;AACT,uBAAY,WAAC,CAAS,YAAT;AACb,0BAAe,WAAC,CAAS,IAAT;AAChB,gBAAK,WAAC,CAAS,KAAT;AACN,wBAAa,WAAC,CAAS,KAAT;AAd6B;AAnMA;AAE3C,mBAAQ;AAFmC;AA9BH;AAExC,UAAI;AAFoC;AA4NE;AAE1C,UAAG,cAAS,OAAO,IAAG,kBAAtB;AAAuC,yBAAY,WAAC,CAAS,IAAT;AAAgC,YAAb,iBAAY,WAAC,CAAS,KAAT;AAF1C;AAtPA;AAE1C,oBAAS;AAFiC;AAKK;AAE/C,oBAAS;AACT,kCAAuB,cAAC,CAAY,mBAAZ;AAHuB;AAgWE;AAEjD,UAAG,oBAAe,eAAC,EAAW,GAAC,CAA/B;AAEE,0BAAa,MAAK,WAAC,CAAM,8BAA6I,GAA9G,kCAA6B,YAAC,EAA/B,GAAwC,8BAAD,GAAgC,gCAA2B,YAAC,EAA7B,GAAsC,GAAD,GAAK,mCAA8B,YAAC,EAAnL;;AAInB,0BAAa,MAAK,WAAC,CAAM,gBAAN;;AAR4B;AAnQP;AAEzC,oBAAS;AACT,kCAAuB,YAAC,CAAU,2BAAsB,YAAC,EAAjC;AACxB,gCAAqB,YAAC,CAAU,yBAAoB,YAAC,EAA/B;AACtB;AALyC;AAjHJ;AAEtC;AAED,UAAI,WAAM,QAAC,EAAK,KAAG,EAAnB;AAEG,kBAAS,kCAAkC,GAAC,WAAM,QAAC,EAAR;AAC3C,uCAAW,SAAS,CAAC,QAAS,6CAAV;;AAIpB,wCAAU,CAAC,6BAA6B,4CAAW,cAAC,qCAAD,E9K6MkE,I8K7M3G;;AAX0B;AA9FF;AAEpC,yBAAc,QAAC,CAAM,iBAAwH,GAAtG,iBAAI,CAAC,sBAAiB,YAAC,EAAY,GAAH,GAAD,GAAK,uBAAkB,YAAC,EAAnD,CAAL,GAAkE,IAAD,GAAM,4BAAuB,YAAC,EAAzB,GAAkC,GAA/H;AACf,wBAAa,MAAK,WAAC,CAAM,uBAAyJ,GAAjI,2BAAc,CAAC,sBAAsB,kCAA6B,cAAC,EAArD,CAAf,GAAgF,UAAD,GAAY,iBAAY,YAAC,EAAd,GAAuB,iBAAD,GAAmB,sBAAiB,YAAC,EAAlL;AACnB,qBAAU,WAAC,CAAS,0BAAqB,YAAC,EAAY,GAAH,GAAD,GAAK,iBAAI,CAAC,qBAAgB,YAAC,EAAY,GAAH,GAAD,GAAK,sBAAiB,YAAC,EAAjD,CAAhD;AACX,UAAG,6BAAwB,YAAC,EAAQ,KAAE,EAAtC;AAEE,sBAAS,MAAK,WAAC,CAAM,6BAAwB,YAAC,EAA/B;;AAIf,sBAAS,MAAK,WAAC,CAAM,2CAAN;;AAGjB,UAAG,4BAAuB,YAAC,EAAQ,KAAE,EAArC;AAEE,4BAAe;AACf,4BAAe,aAAf,GAA6B,4BAA4B,GAAC,sBAAS,CAAC,4BAAuB,YAAC,GtL0E1C,GsL1EiB,CAAV;AACzD,4BAAe;;AAKf,0BAAa,MAAK,WAAC,CAAM,kCAAN;;AAvBe;AAoeE;AAE5B;AAEV,0BAAgB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,uBAAa,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,qBAAW,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AAClB,wBAAc,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,sBAAY,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACnB,gCAAsB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,oBAAU,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACjB,mBAAS,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AAChB,4BAAkB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACzB,uBAAa,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,2BAAiB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACzB,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,0BAAgB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,mBAAS,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACjB,2BAAiB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACzB,6BAAmB,iCAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,4BAAkB,uCAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,0BAAgB,uCAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,4BAAkB,uCAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,0BAAgB,uCAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,wBAAc,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,sBAAY,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AAClB,6BAAmB,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,2BAAiB,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,gCAAsB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,qBAAW,iCAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,oBAAU,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAClB,mBAAS,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACjB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,yBAAe,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,yBAAe,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,+BAAqB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,+BAAqB,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,4BAAkB,iCAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,2BAAiB,iCAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,yBAAe,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,2BAAiB,+BAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1B,2BAAiB,+BAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1B,uBAAa,+BAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,sBAAY,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,uBAAa,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,oCAA0B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,6BAAmB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,2BAAiB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,4BAAkB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,4BAAkB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,4BAAkB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,+BAAqB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,2CAAiC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,iCAAuB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,kCAAwB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,iCAAuB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,8BAAoB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,8BAAoB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,kCAAwB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,gCAAsB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,kCAAwB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,8BAAoB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,kCAAwB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,+BAAqB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,qCAA2B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,uCAA6B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,uCAA6B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,6BAAmB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,oBAAU,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,uBAAa,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,uBAAa,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,2BAAiB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,sBAAY,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,sBAAY,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,kBAAQ,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACzB,8BAAoB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,yBAAe,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,6BAAmB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAE5C,uBAAY;AACZ,oBAAS;AACT,kBAAO;AACP,qBAAU;AACV,mBAAQ;AACR,6BAAkB;AAClB,iBAAM;AACN,gBAAK;AACL,yBAAc;AACd,oBAAS;AACT,qBAAU;AACV,qBAAU;AACV,wBAAa;AACb,qBAAU;AACV,uBAAY;AACZ,qBAAU;AACV,gBAAK;AACL,wBAAa;AACb,0BAAe;AACf,qBAAU;AACV,yBAAc;AACd,uBAAY;AACZ,yBAAc;AACd,uBAAY;AACZ,qBAAU;AACV,mBAAQ;AACR,0BAAe;AACf,wBAAa;AACb,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,6BAAkB;AAClB,qBAAU;AACV,qBAAU;AACV,kBAAO;AACP,iBAAM;AACN,gBAAK;AACL,qBAAU;AACV,sBAAW;AACX,sBAAW;AACX,4BAAiB;AACjB,4BAAiB;AACjB,yBAAc;AACd,wBAAa;AACb,sBAAW;AACX,wBAAa;AACb,wBAAa;AACb,oBAAS;AACT,mBAAQ;AACR,oBAAS;AACT,iCAAsB;AACtB,uBAAY;AACZ,0BAAe;AACf,wBAAa;AACb,2BAAgB;AAChB,+BAAoB;AACpB,0BAAe;AACf,+BAAoB;AACpB,yBAAc;AACd,yBAAc;AACd,yBAAc;AACd,4BAAiB;AACjB,wCAA6B;AAC7B,8BAAmB;AACnB,+BAAoB;AACpB,kCAAuB;AACvB,gCAAqB;AACrB,sCAA2B;AAC3B,8BAAmB;AACnB,8BAAmB;AACnB,2BAAgB;AAChB,2BAAgB;AAChB,4BAAiB;AACjB,kCAAuB;AACvB,gCAAqB;AACrB,6BAAkB;AAClB,+BAAoB;AACpB,iCAAsB;AACtB,6BAAkB;AAClB,+BAAoB;AACpB,mCAAwB;AACxB,+BAAoB;AACpB,gCAAqB;AACrB,+BAAoB;AACpB,2BAAgB;AAChB,+BAAoB;AACpB,4BAAiB;AACjB,kCAAuB;AACvB,mCAAwB;AACxB,4BAAiB;AACjB,4BAAiB;AACjB,oCAAyB;AACzB,oCAAyB;AACzB,gCAAqB;AACrB,2BAAgB;AAChB,6BAAkB;AAClB,4BAAiB;AACjB,uCAA4B;AAC5B,0BAAe;AACf,8BAAmB;AACnB,iBAAM;AACN,oBAAS;AACT,iCAAsB;AACtB,oBAAS;AACT,gCAAqB;AACrB,4BAAiB;AACjB,2BAAgB;AAChB,gCAAqB;AACrB,gCAAqB;AACrB,2BAAgB;AAChB,gCAAqB;AACrB,uBAAY;AACZ,kCAAuB;AACvB,wBAAa;AACb,6BAAkB;AAClB,+BAAoB;AACpB,mBAAQ;AACR,6BAAkB;AAClB,gCAAqB;AACrB,mBAAQ;AACR,iCAAsB;AACtB,kCAAuB;AACvB,+BAAoB;AACpB,eAAI;AACJ,2BAAgB;AAChB,8BAAmB;AACnB,uBAAY;AACZ,sBAAW;AACX,0BAAe;AACf,wCAA6B;AAC7B,yCAA8B;AAC9B,sCAA2B;AAC3B;AACE,qBAAQ,iBAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,kBAAI,SAAJ,GAAgB;AAChB,kBAAI,SAAC,CAAS,KAAT;AACL,kBAAI,UAAC,CAAU,CAAC,EAAX;AACL,kBAAI,QAAC,CAAQ,QAAR;AACL,kBAAI,SAAC,CAAS,EAAT;AACL,2BAAc,KAAd;AACA,yBAAY,IAAZ;AACA,wBAAW,IAAX;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,QAAC,CAAQ,CAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,EAAT;AACb,yBAAY,UAAC,CAAU,EAAV;AACb,yBAAY,WAAC,CAAW,QAAX;AACb,yBAAY,oBAAC,CAAoB,cAApB;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,mBAAC,CAAmB,gDAAnB;AACb,yBAAY,MAAK,SAAjB,GAA6B;AAC7B,yBAAY,MAAK,SAAC,CAAS,KAAT;AAClB,yBAAY,MAAK,UAAC,CAAU,CAAC,EAAX;AAClB,yBAAY,MAAK,QAAC,CAAQ,QAAR;AAClB,yBAAY,MAAK,SAAC,CAAS,EAAT;AAClB,yBAAY,eAAC,CAAe,wCAAf;AACb,yBAAY,iBAAC,CAAiB,sBAAjB;AACb,yBAAY,cAAC,CAAc,KAAd;AACb,yBAAY,eAAC,CAAe,KAAf;AACb,yBAAY,cAAC,CAAc,wCAAd;AACb,yBAAY,gBAAC,CAAgB,sBAAhB;AACb,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,QAAC,CAAQ,CAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,sBAAS,SAAC,CAAS,EAAT;AACV,sBAAS,UAAC,CAAU,EAAV;AACV,sBAAS,YAAC,CAAY,KAAZ;AACV,sBAAS,WAAC,CAAW,QAAX;AACV,sBAAS,oBAAC,CAAoB,gBAApB;AACV,sBAAS,eAAC,CAAe,yCAAf;AACV,sBAAS,mBAAC,CAAmB,gDAAnB;AACV,sBAAS,eAAC,CAAe,wCAAf;AACV,sBAAS,iBAAC,CAAiB,sBAAjB;AACV,sBAAS,eAAC,CAAe,KAAf;AACV,sBAAS,cAAC,CAAc,wCAAd;AACV,sBAAS,gBAAC,CAAgB,sBAAhB;AACV,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,QAAC,CAAQ,EAAR;AACR,oBAAO,OAAC,CAAO,GAAP;AACR,oBAAO,SAAC,CAAS,EAAT;AACR,oBAAO,UAAC,CAAU,EAAV;AACR,oBAAO,YAAC,CAAY,KAAZ;AACR,oBAAO,WAAC,CAAW,MAAX;AACR,oBAAO,oBAAC,CAAoB,gBAApB;AACR,oBAAO,eAAC,CAAe,yCAAf;AACR,oBAAO,mBAAC,CAAmB,gDAAnB;AACR,oBAAO,eAAC,CAAe,wCAAf;AACR,oBAAO,iBAAC,CAAiB,sBAAjB;AACR,oBAAO,eAAC,CAAe,KAAf;AACR,oBAAO,gBAAC,CAAgB,sBAAhB;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,oBAAC,CAAoB,IAApB;AACX,uBAAU,QAAC,CAAQ,EAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,YAAC,CAAY,KAAZ;AACX,uBAAU,WAAC,CAAW,UAAX;AACX,uBAAU,oBAAC,CAAoB,gBAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,MAAK,SAAf,GAA2B;AAC3B,uBAAU,MAAK,SAAC,CAAS,KAAT;AAChB,uBAAU,MAAK,UAAC,CAAU,CAAC,EAAX;AAChB,uBAAU,MAAK,QAAC,CAAQ,QAAR;AAChB,uBAAU,MAAK,SAAC,CAAS,EAAT;AAChB,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,KAAd;AACX,uBAAU,eAAC,CAAe,KAAf;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,oBAAC,CAAoB,IAApB;AACT,qBAAQ,QAAC,CAAQ,EAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,qBAAQ,SAAC,CAAS,EAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,YAAC,CAAY,KAAZ;AACT,qBAAQ,WAAC,CAAW,QAAX;AACT,qBAAQ,oBAAC,CAAoB,gBAApB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,MAAK,SAAb,GAAyB;AACzB,qBAAQ,MAAK,SAAC,CAAS,KAAT;AACd,qBAAQ,MAAK,UAAC,CAAU,CAAC,EAAX;AACd,qBAAQ,MAAK,QAAC,CAAQ,QAAR;AACd,qBAAQ,MAAK,SAAC,CAAS,EAAT;AACd,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,cAAC,CAAc,KAAd;AACT,qBAAQ,eAAC,CAAe,KAAf;AACT,qBAAQ,gBAAC,CAAgB,sBAAhB;AACT,+BAAkB,mBAAmB,CAAC,IAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,oBAAC,CAAoB,IAApB;AACnB,+BAAkB,QAAC,CAAQ,GAAR;AACnB,+BAAkB,OAAC,CAAO,GAAP;AACnB,+BAAkB,SAAC,CAAS,EAAT;AACnB,+BAAkB,UAAC,CAAU,EAAV;AACnB,+BAAkB,YAAC,CAAY,KAAZ;AACnB,+BAAkB,WAAC,CAAW,KAAX;AACnB,+BAAkB,oBAAC,CAAoB,gBAApB;AACnB,+BAAkB,eAAC,CAAe,yCAAf;AACnB,+BAAkB,mBAAC,CAAmB,gDAAnB;AACnB,+BAAkB,MAAK,SAAvB,GAAmC;AACnC,+BAAkB,MAAK,SAAC,CAAS,KAAT;AACxB,+BAAkB,MAAK,UAAC,CAAU,CAAC,EAAX;AACxB,+BAAkB,MAAK,QAAC,CAAQ,QAAR;AACxB,+BAAkB,MAAK,SAAC,CAAS,EAAT;AACxB,+BAAkB,eAAC,CAAe,wCAAf;AACnB,+BAAkB,iBAAC,CAAiB,sBAAjB;AACnB,+BAAkB,cAAC,CAAc,KAAd;AACnB,+BAAkB,eAAC,CAAe,KAAf;AACnB,+BAAkB,gBAAC,CAAgB,sBAAhB;AACnB,mBAAM,mBAAmB,CAAC,IAAD;AACzB,mBAAM,QAAC,CAAQ,QAAR;AACP,mBAAM,oBAAC,CAAoB,IAApB;AACP,mBAAM,QAAC,CAAQ,CAAR;AACP,mBAAM,OAAC,CAAO,GAAP;AACP,mBAAM,SAAC,CAAS,EAAT;AACP,mBAAM,UAAC,CAAU,EAAV;AACP,mBAAM,YAAC,CAAY,KAAZ;AACP,mBAAM,WAAC,CAAW,MAAX;AACP,mBAAM,oBAAC,CAAoB,gBAApB;AACP,mBAAM,eAAC,CAAe,yCAAf;AACP,mBAAM,mBAAC,CAAmB,gDAAnB;AACP,mBAAM,MAAK,SAAX,GAAuB;AACvB,mBAAM,MAAK,SAAC,CAAS,KAAT;AACZ,mBAAM,MAAK,UAAC,CAAU,CAAC,EAAX;AACZ,mBAAM,MAAK,QAAC,CAAQ,QAAR;AACZ,mBAAM,MAAK,SAAC,CAAS,EAAT;AACZ,mBAAM,eAAC,CAAe,wCAAf;AACP,mBAAM,iBAAC,CAAiB,sBAAjB;AACP,mBAAM,cAAC,CAAc,KAAd;AACP,mBAAM,eAAC,CAAe,KAAf;AACP,mBAAM,gBAAC,CAAgB,sBAAhB;AACP,kBAAK,mBAAmB,CAAC,IAAD;AACxB,kBAAK,QAAC,CAAQ,OAAR;AACN,kBAAK,QAAC,CAAQ,GAAR;AACN,kBAAK,OAAC,CAAO,GAAP;AACN,kBAAK,SAAC,CAAS,EAAT;AACN,kBAAK,UAAC,CAAU,EAAV;AACN,kBAAK,YAAC,CAAY,KAAZ;AACN,kBAAK,WAAC,CAAW,IAAX;AACN,kBAAK,oBAAC,CAAoB,gBAApB;AACN,kBAAK,eAAC,CAAe,yCAAf;AACN,kBAAK,mBAAC,CAAmB,gDAAnB;AACN,kBAAK,eAAC,CAAe,wCAAf;AACN,kBAAK,iBAAC,CAAiB,sBAAjB;AACN,kBAAK,cAAC,CAAc,wCAAd;AACN,kBAAK,gBAAC,CAAgB,sBAAhB;AACN,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,oBAAC,CAAoB,IAApB;AACf,2BAAc,QAAC,CAAQ,CAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,EAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,YAAC,CAAY,KAAZ;AACf,2BAAc,WAAC,CAAW,cAAX;AACf,2BAAc,oBAAC,CAAoB,gBAApB;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,2BAAc,MAAK,SAAnB,GAA+B;AAC/B,2BAAc,MAAK,SAAC,CAAS,KAAT;AACpB,2BAAc,MAAK,UAAC,CAAU,CAAC,EAAX;AACpB,2BAAc,MAAK,QAAC,CAAQ,QAAR;AACpB,2BAAc,MAAK,SAAC,CAAS,EAAT;AACpB,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,iBAAC,CAAiB,sBAAjB;AACf,2BAAc,cAAC,CAAc,KAAd;AACf,2BAAc,cAAC,CAAc,wCAAd;AACf,2BAAc,gBAAC,CAAgB,sBAAhB;AACf,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,QAAC,CAAQ,GAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,sBAAS,SAAC,CAAS,CAAT;AACV,sBAAS,UAAC,CAAU,EAAV;AACV,sBAAS,oBAAC,CAAoB,6BAApB;AACV,sBAAS,eAAC,CAAe,yCAAf;AACV,sBAAS,mBAAC,CAAmB,gDAAnB;AACV,sBAAS,eAAC,CAAe,wCAAf;AACV,sBAAS,iBAAC,CAAiB,sBAAjB;AACV,sBAAS,cAAC,CAAc,wCAAd;AACV,sBAAS,gBAAC,CAAgB,sBAAhB;AACV,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,EAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,oBAAC,CAAoB,QAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,SAAC,CAAS,mCAAT;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,QAAC,CAAQ,EAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,0BAAa,SAAC,CAAS,EAAT;AACd,0BAAa,UAAC,CAAU,EAAV;AACd,0BAAa,WAAC,CAAW,QAAX;AACd,0BAAa,gBAAC,CAAc,EAAd;AACd,0BAAa,oBAAC,CAAoB,mCAApB;AACd,0BAAa,eAAC,CAAe,yCAAf;AACd,0BAAa,mBAAC,CAAmB,gDAAnB;AACd,0BAAa,eAAC,CAAe,wCAAf;AACd,0BAAa,iBAAC,CAAiB,sBAAjB;AACd,0BAAa,cAAC,CAAc,wCAAd;AACd,0BAAa,gBAAC,CAAgB,sBAAhB;AACd,uBAAQ,CAAC,mBAAe,KAAM,UAAW,oBAAjC;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,EAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,QAAC,CAAQ,GAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,EAAT;AACb,yBAAY,UAAC,CAAU,EAAV;AACb,yBAAY,WAAC,CAAW,WAAX;AACb,yBAAY,gBAAC,CAAc,CAAd;AACb,yBAAY,oBAAC,CAAoB,mCAApB;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,mBAAC,CAAmB,gDAAnB;AACb,yBAAY,eAAC,CAAe,wCAAf;AACb,yBAAY,iBAAC,CAAiB,sBAAjB;AACb,yBAAY,cAAC,CAAc,wCAAd;AACb,yBAAY,gBAAC,CAAgB,sBAAhB;AACb,uBAAQ,CAAC,kBAAc,KAAM,UAAW,mBAAhC;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,kBAAK,mBAAmB,CAAC,IAAD;AACxB,kBAAK,QAAC,CAAQ,OAAR;AACN,kBAAK,QAAC,CAAQ,GAAR;AACN,kBAAK,OAAC,CAAO,GAAP;AACN,kBAAK,SAAC,CAAS,EAAT;AACN,kBAAK,UAAC,CAAU,EAAV;AACN,kBAAK,WAAC,CAAW,IAAX;AACN,kBAAK,gBAAC,CAAc,EAAd;AACN,kBAAK,oBAAC,CAAoB,mCAApB;AACN,kBAAK,eAAC,CAAe,yCAAf;AACN,kBAAK,mBAAC,CAAmB,gDAAnB;AACN,kBAAK,eAAC,CAAe,wCAAf;AACN,kBAAK,iBAAC,CAAiB,sBAAjB;AACN,kBAAK,cAAC,CAAc,wCAAd;AACN,kBAAK,gBAAC,CAAgB,sBAAhB;AACN,uBAAQ,CAAC,WAAO,KAAM,UAAW,YAAzB;AACR,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,QAAC,CAAQ,GAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,0BAAa,SAAC,CAAS,EAAT;AACd,0BAAa,UAAC,CAAU,EAAV;AACd,0BAAa,WAAC,CAAW,YAAX;AACd,0BAAa,gBAAC,CAAc,EAAd;AACd,0BAAa,oBAAC,CAAoB,mCAApB;AACd,0BAAa,eAAC,CAAe,yCAAf;AACd,0BAAa,mBAAC,CAAmB,gDAAnB;AACd,0BAAa,eAAC,CAAe,wCAAf;AACd,0BAAa,iBAAC,CAAiB,sBAAjB;AACd,0BAAa,cAAC,CAAc,wCAAd;AACd,0BAAa,gBAAC,CAAgB,sBAAhB;AACd,uBAAQ,CAAC,mBAAe,KAAM,UAAW,oBAAjC;AACR,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,oBAAC,CAAoB,IAApB;AAChB,4BAAe,QAAC,CAAQ,GAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,4BAAe,SAAC,CAAS,GAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,oBAAC,CAAoB,kCAApB;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,mBAAC,CAAmB,gDAAnB;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,iBAAC,CAAiB,sBAAjB;AAChB,4BAAe,gBAAC,CAAgB,sBAAhB;AAChB,4BAAe,aAAC,CAAa,CAAC,CAAd;AAChB,4BAAe,aAAC,CAAa,YAAb;AAChB,4BAAe,cAAC,CAAc,WAAd;AAChB,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,EAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,oBAAC,CAAoB,kCAApB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,eAAC,CAAe,4CAAf;AACf,2BAAc,gBAAC,CAAc,EAAd;AACf,2BAAc,SAAC,CAAS,QAAT;AACf,2BAAc,QAAC,CAAQ,wBAAR;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,2BAAc,QAAC,CAAQ,EAAR;AACf,2BAAc,QAAC,CAAQ,EAAR;AACf,2BAAc,aAAC,CAAa,aAAb;AACf,2BAAc,cAAC,CAAc,WAAd;AACf,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,QAAC,CAAQ,EAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,GAAT;AACb,yBAAY,UAAC,CAAU,EAAV;AACb,yBAAY,oBAAC,CAAoB,kCAApB;AACb,yBAAY,eAAC,CAAe,wCAAf;AACb,yBAAY,eAAC,CAAe,4CAAf;AACb,yBAAY,gBAAC,CAAc,EAAd;AACb,yBAAY,SAAC,CAAS,QAAT;AACb,yBAAY,QAAC,CAAQ,wBAAR;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,mBAAC,CAAmB,gDAAnB;AACb,yBAAY,QAAC,CAAQ,EAAR;AACb,yBAAY,YAAC,CAAY,CAAZ;AACb,yBAAY,QAAC,CAAQ,EAAR;AACb,yBAAY,aAAC,CAAa,WAAb;AACb,yBAAY,cAAC,CAAc,WAAd;AACb,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,GAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,oBAAC,CAAoB,kCAApB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,eAAC,CAAe,4CAAf;AACf,2BAAc,gBAAC,CAAc,EAAd;AACf,2BAAc,SAAC,CAAS,QAAT;AACf,2BAAc,QAAC,CAAQ,wBAAR;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,2BAAc,QAAC,CAAQ,4CAAR;AACf,2BAAc,QAAC,CAAQ,EAAR;AACf,2BAAc,eAAC,CAAe,KAAf;AACf,2BAAc,YAAC,CAAY,CAAZ;AACf,2BAAc,QAAC,CAAQ,EAAR;AACf,2BAAc,aAAC,CAAa,eAAb;AACf,2BAAc,cAAC,CAAc,WAAd;AACf,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,QAAC,CAAQ,GAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,GAAT;AACb,yBAAY,UAAC,CAAU,EAAV;AACb,yBAAY,oBAAC,CAAoB,kCAApB;AACb,yBAAY,eAAC,CAAe,wCAAf;AACb,yBAAY,eAAC,CAAe,4CAAf;AACb,yBAAY,gBAAC,CAAc,EAAd;AACb,yBAAY,SAAC,CAAS,QAAT;AACb,yBAAY,QAAC,CAAQ,wBAAR;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,mBAAC,CAAmB,gDAAnB;AACb,yBAAY,QAAC,CAAQ,4CAAR;AACb,yBAAY,QAAC,CAAQ,EAAR;AACb,yBAAY,eAAC,CAAe,KAAf;AACb,yBAAY,YAAC,CAAY,CAAZ;AACb,yBAAY,QAAC,CAAQ,EAAR;AACb,yBAAY,aAAC,CAAa,aAAb;AACb,yBAAY,cAAC,CAAc,WAAd;AACb,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,EAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,YAAC,CAAY,IAAZ;AACX,uBAAU,gBAAC,CAAc,EAAd;AACX,uBAAU,oBAAC,CAAoB,kCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,YAAC,CAAY,CAAZ;AACX,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAgB,qBAAhB;AACX,uBAAU,aAAC,CAAa,SAAb;AACX,uBAAU,cAAC,CAAc,WAAd;AACX,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,EAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,qBAAQ,SAAC,CAAS,GAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,gBAAC,CAAc,EAAd;AACT,qBAAQ,oBAAC,CAAoB,kCAApB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,OAAM;AACd;AACE,uBAAQ,OAAM;AACd,uBAAQ,OAAM,IAAI,CAAC,UAAD;AAFpB;AAIE,uBAAQ,OAAM;AAJhB;AAMA,qBAAQ,aAAC,CAAa,CAAb;AACT,qBAAQ,YAAC,CAAY,CAAZ;AACT,qBAAQ,YAAC,CAAY,CAAZ;AACT,qBAAQ,cAAC,CAAc,2CAAd;AACT,qBAAQ,gBAAC,CAAgB,qBAAhB;AACT,uBAAQ,CAAC,cAAU,KAAM,UAAW,eAA5B;AACR,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,GAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,4BAAe,SAAC,CAAS,GAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,oBAAC,CAAoB,yCAApB;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,cAAC,CAAc,wCAAd;AAChB,4BAAe,gBAAC,CAAc,CAAd;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,mBAAC,CAAmB,gDAAnB;AAChB,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,QAAC,CAAQ,GAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,0BAAa,SAAC,CAAS,GAAT;AACd,0BAAa,UAAC,CAAU,EAAV;AACd,0BAAa,oBAAC,CAAoB,yCAApB;AACd,0BAAa,eAAC,CAAe,wCAAf;AACd,0BAAa,cAAC,CAAc,wCAAd;AACd,0BAAa,gBAAC,CAAc,CAAd;AACd,0BAAa,eAAC,CAAe,yCAAf;AACd,0BAAa,mBAAC,CAAmB,gDAAnB;AACd,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,yCAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAgB,qBAAhB;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,+BAAkB,mBAAmB,CAAC,IAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,QAAC,CAAQ,GAAR;AACnB,+BAAkB,OAAC,CAAO,GAAP;AACnB,+BAAkB,SAAC,CAAS,EAAT;AACnB,+BAAkB,UAAC,CAAU,EAAV;AACnB,+BAAkB,WAAC,CAAW,SAAX;AACnB,+BAAkB,gBAAC,CAAc,EAAd;AACnB,+BAAkB,oBAAC,CAAoB,mCAApB;AACnB,+BAAkB,eAAC,CAAe,yCAAf;AACnB,+BAAkB,mBAAC,CAAmB,gDAAnB;AACnB,+BAAkB,eAAC,CAAe,wCAAf;AACnB,+BAAkB,iBAAC,CAAiB,sBAAjB;AACnB,+BAAkB,cAAC,CAAc,wCAAd;AACnB,+BAAkB,gBAAC,CAAgB,sBAAhB;AACnB,uBAAQ,CAAC,wBAAoB,KAAM,UAAW,yBAAtC;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,yCAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAgB,qBAAhB;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,yCAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAgB,qBAAhB;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,QAAC,CAAQ,EAAR;AACR,oBAAO,OAAC,CAAO,GAAP;AACR,oBAAO,SAAC,CAAS,GAAT;AACR,oBAAO,UAAC,CAAU,EAAV;AACR,oBAAO,gBAAC,CAAc,EAAd;AACR,oBAAO,oBAAC,CAAoB,kCAApB;AACR,oBAAO,eAAC,CAAe,yCAAf;AACR,oBAAO,mBAAC,CAAmB,gDAAnB;AACR,oBAAO,eAAC,CAAe,wCAAf;AACR,oBAAO,iBAAC,CAAiB,sBAAjB;AACR,oBAAO,gBAAC,CAAgB,sBAAhB;AACR,uBAAQ,CAAC,aAAS,KAAM,UAAW,cAA3B;AACR,oBAAO,aAAC,CAAa,CAAC,CAAd;AACR,oBAAO,aAAC,CAAa,iBAAb;AACR,oBAAO,cAAC,CAAc,WAAd;AACR,mBAAM,mBAAmB,CAAC,IAAD;AACzB,mBAAM,QAAC,CAAQ,QAAR;AACP,mBAAM,QAAC,CAAQ,EAAR;AACP,mBAAM,OAAC,CAAO,GAAP;AACP,mBAAM,SAAC,CAAS,GAAT;AACP,mBAAM,UAAC,CAAU,EAAV;AACP,mBAAM,gBAAC,CAAc,EAAd;AACP,mBAAM,oBAAC,CAAoB,kCAApB;AACP,mBAAM,eAAC,CAAe,yCAAf;AACP,mBAAM,mBAAC,CAAmB,gDAAnB;AACP,mBAAM,eAAC,CAAe,wCAAf;AACP,mBAAM,iBAAC,CAAiB,sBAAjB;AACP,mBAAM,QAAC,CAAQ,QAAR;AACP,mBAAM,cAAC,CAAc,2CAAd;AACP,mBAAM,gBAAC,CAAgB,qBAAhB;AACP,mBAAM,aAAC,CAAa,UAAb;AACP,mBAAM,cAAC,CAAc,WAAd;AACP,kBAAK,mBAAmB,CAAC,IAAD;AACxB,kBAAK,QAAC,CAAQ,OAAR;AACN,kBAAK,QAAC,CAAQ,GAAR;AACN,kBAAK,OAAC,CAAO,GAAP;AACN,kBAAK,SAAC,CAAS,EAAT;AACN,kBAAK,UAAC,CAAU,EAAV;AACN,kBAAK,gBAAC,CAAc,EAAd;AACN,kBAAK,oBAAC,CAAoB,kCAApB;AACN,kBAAK,eAAC,CAAe,yCAAf;AACN,kBAAK,mBAAC,CAAmB,gDAAnB;AACN,kBAAK,eAAC,CAAe,wCAAf;AACN,kBAAK,iBAAC,CAAiB,sBAAjB;AACN,kBAAK,QAAC,CAAQ,OAAR;AACN,kBAAK,gBAAC,CAAgB,sBAAhB;AACN,kBAAK,aAAC,CAAa,aAAb;AACN,kBAAK,cAAC,CAAc,WAAd;AACN,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,yCAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAgB,qBAAhB;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,GAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,GAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,oBAAC,CAAoB,yCAApB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,cAAC,CAAc,2CAAd;AACZ,wBAAW,gBAAC,CAAgB,qBAAhB;AACZ,wBAAW,gBAAC,CAAc,CAAd;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,GAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,GAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,oBAAC,CAAoB,yCAApB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,cAAC,CAAc,2CAAd;AACZ,wBAAW,gBAAC,CAAgB,qBAAhB;AACZ,wBAAW,gBAAC,CAAc,EAAd;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,8BAAiB,mBAAmB,CAAC,IAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,QAAC,CAAQ,GAAR;AAClB,8BAAiB,OAAC,CAAO,GAAP;AAClB,8BAAiB,SAAC,CAAS,EAAT;AAClB,8BAAiB,UAAC,CAAU,EAAV;AAClB,8BAAiB,WAAC,CAAW,iBAAX;AAClB,8BAAiB,gBAAC,CAAc,EAAd;AAClB,8BAAiB,oBAAC,CAAoB,mCAApB;AAClB,8BAAiB,eAAC,CAAe,yCAAf;AAClB,8BAAiB,mBAAC,CAAmB,gDAAnB;AAClB,8BAAiB,eAAC,CAAe,wCAAf;AAClB,8BAAiB,iBAAC,CAAiB,sBAAjB;AAClB,8BAAiB,cAAC,CAAc,wCAAd;AAClB,8BAAiB,gBAAC,CAAgB,sBAAhB;AAClB,uBAAQ,CAAC,uBAAmB,KAAM,UAAW,wBAArC;AACR,8BAAiB,mBAAmB,CAAC,IAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,QAAC,CAAQ,GAAR;AAClB,8BAAiB,OAAC,CAAO,GAAP;AAClB,8BAAiB,SAAC,CAAS,GAAT;AAClB,8BAAiB,UAAC,CAAU,EAAV;AAClB,8BAAiB,SAAQ,QAAC,CAAQ,EAAR;AAC1B,8BAAiB,gBAAC,CAAc,EAAd;AAClB,8BAAiB,oBAAC,CAAoB,kCAApB;AAClB,8BAAiB,eAAC,CAAe,yCAAf;AAClB,8BAAiB,mBAAC,CAAmB,gDAAnB;AAClB,8BAAiB,eAAC,CAAe,wCAAf;AAClB,8BAAiB,iBAAC,CAAiB,sBAAjB;AAClB,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,gBAAC,CAAgB,sBAAhB;AAClB,8BAAiB,aAAC,CAAa,gBAAb;AAClB,8BAAiB,cAAC,CAAc,WAAd;AAClB,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,oBAAC,CAAoB,IAApB;AACf,2BAAc,QAAC,CAAQ,GAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,EAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,oBAAC,CAAoB,kCAApB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,UAAd,GAA2B;AAC3B,2BAAc,eAAC,CAAe,4CAAf;AACf,2BAAc,gBAAC,CAAc,EAAd;AACf,2BAAc,SAAC,CAAS,QAAT;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,2BAAc,aAAC,CAAa,CAAb;AACf,2BAAc,YAAC,CAAY,EAAZ;AACf,2BAAc,YAAC,CAAY,CAAZ;AACf,2BAAc,QAAC,CAAQ,EAAR;AACf,2BAAc,SAAC,CAAS,CAAT;AACf,2BAAc,aAAC,CAAa,aAAb;AACf,2BAAc,cAAC,CAAc,WAAd;AACf,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,oBAAC,CAAoB,IAApB;AACd,0BAAa,QAAC,CAAQ,CAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,0BAAa,SAAC,CAAS,GAAT;AACd,0BAAa,UAAC,CAAU,EAAV;AACd,0BAAa,WAAC,CAAW,mBAAX;AACd,0BAAa,gBAAC,CAAc,EAAd;AACd,0BAAa,oBAAC,CAAoB,oCAApB;AACd,0BAAa,wBAAb,GAAwC;AACxC,0BAAa,uBAAb,GAAuC;AACvC,0BAAa,eAAC,CAAe,yCAAf;AACd,0BAAa,mBAAC,CAAmB,gDAAnB;AACd,0BAAa,eAAC,CAAe,wCAAf;AACd,0BAAa,iBAAC,CAAiB,sBAAjB;AACd,0BAAa,gBAAC,CAAgB,sBAAhB;AACd,0BAAa,aAAC,CAAa,OAAb;AACd,0BAAa,cAAC,CAAc,WAAd;AACd,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,GAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,GAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,oBAAC,CAAoB,sBAApB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,cAAC,CAAc,2CAAd;AACZ,wBAAW,gBAAC,CAAgB,qBAAhB;AACZ,wBAAW,gBAAC,CAAc,EAAd;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,QAAC,CAAQ,GAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,0BAAa,SAAC,CAAS,GAAT;AACd,0BAAa,UAAC,CAAU,EAAV;AACd,0BAAa,oBAAC,CAAoB,SAApB;AACd,0BAAa,eAAC,CAAe,wCAAf;AACd,0BAAa,cAAC,CAAc,wCAAd;AACd,0BAAa,gBAAC,CAAc,EAAd;AACd,0BAAa,mBAAC,CAAmB,gDAAnB;AACd,0BAAa,eAAC,CAAe,yCAAf;AACd,0BAAa,QAAC,CAAQ,EAAR;AACd,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,QAAC,CAAQ,GAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,0BAAa,SAAC,CAAS,GAAT;AACd,0BAAa,UAAC,CAAU,EAAV;AACd,0BAAa,oBAAC,CAAoB,QAApB;AACd,0BAAa,eAAC,CAAe,wCAAf;AACd,0BAAa,cAAC,CAAc,wCAAd;AACd,0BAAa,gBAAC,CAAc,EAAd;AACd,0BAAa,mBAAC,CAAmB,gDAAnB;AACd,0BAAa,eAAC,CAAe,yCAAf;AACd,0BAAa,QAAC,CAAQ,EAAR;AACd,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,QAAC,CAAQ,GAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,sBAAS,SAAC,CAAS,GAAT;AACV,sBAAS,UAAC,CAAU,EAAV;AACV,sBAAS,oBAAC,CAAoB,QAApB;AACV,sBAAS,eAAC,CAAe,wCAAf;AACV,sBAAS,cAAC,CAAc,wCAAd;AACV,sBAAS,gBAAC,CAAc,EAAd;AACV,sBAAS,mBAAC,CAAmB,gDAAnB;AACV,sBAAS,eAAC,CAAe,yCAAf;AACV,sBAAS,QAAC,CAAQ,EAAR;AACV,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,EAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,qBAAQ,SAAC,CAAS,EAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,WAAC,CAAW,OAAX;AACT,qBAAQ,gBAAC,CAAc,CAAd;AACT,qBAAQ,oBAAC,CAAoB,mCAApB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,cAAC,CAAc,wCAAd;AACT,qBAAQ,gBAAC,CAAgB,sBAAhB;AACT,uBAAQ,CAAC,cAAU,KAAM,UAAW,eAA5B;AACR,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,mBAAT,GAA+B;AAC/B,sBAAS,WAAT,GAAuB;AACvB,sBAAS,YAAT,GAAwB;AACxB,sBAAS,YAAT,GAAwB;AACxB,sBAAS,WAAT,GAAuB;AACvB,uBAAQ,CAAC,eAAW,KAAM,cAAe,oBAAjC;AACR,sBAAS,iBAAC,CAAiB,YAAjB;AACV,sBAAS,cAAC,CAAc,aAAG,oBAAjB;AACV,sBAAS,iBAAC,CAAiB,CAAjB;AACV,sBAAS,UAAT,GAAsB;AACtB,sBAAS,QAAC,CAAQ,GAAR;AACV,sBAAS,OAAC,CAAO,EAAP;AACV,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,yBAAY,mBAAmB,CAAC,cAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,QAAC,CAAQ,EAAR;AACb,4BAAe,mBAAmB,CAAC,cAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,0BAAa,mBAAmB,CAAC,cAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,GAAR;AACjB,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,GAAR;AACrB,4BAAe,mBAAmB,CAAC,cAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,EAAR;AAChB,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,GAAR;AACrB,2BAAc,mBAAmB,CAAC,cAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,mBAAmB,CAAC,cAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,mBAAmB,CAAC,cAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,0CAA6B,mBAAmB,CAAC,cAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,wCAA2B,mBAAmB,CAAC,cAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,GAAR;AACpB,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,qCAAwB,mBAAmB,CAAC,cAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,iBAAC,CAAiB,MAAjB;AACrB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,iBAAC,CAAiB,QAAjB;AACtB,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,iBAAC,CAAiB,UAAjB;AACjB,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,iBAAC,CAAiB,YAAjB;AACxB,qCAAwB,mBAAmB,CAAC,cAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,GAAR;AAClB,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,yCAA4B,mBAAmB,CAAC,cAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,4BAAe,mBAAmB,CAAC,cAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,mBAAM,mBAAmB,CAAC,IAAD;AACzB,mBAAM,QAAC,CAAQ,QAAR;AACP,mBAAM,WAAC,CAAW,cAAX;AACP,uBAAQ,CAAC,YAAQ,KAAM,gBAAiB,mBAAhC;AACR,mBAAM,QAAC,CAAQ,GAAR;AACP,mBAAM,OAAC,CAAO,EAAP;AACP,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,WAAT,GAAuB;AACvB,sBAAS,iBAAC,CAAiB,SAAjB;AACV,sBAAS,cAAC,CAAc,aAAG,oBAAjB;AACV,sBAAS,QAAC,CAAQ,GAAR;AACV,sBAAS,OAAC,CAAO,EAAP;AACV,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,UAAtB,GAAmC;AACnC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,WAAT,GAAuB;AACvB,sBAAS,iBAAC,CAAiB,UAAjB;AACV,sBAAS,cAAC,CAAc,aAAG,oBAAjB;AACV,sBAAS,QAAC,CAAQ,GAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,UAArB,GAAkC;AAClC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,CAAR;AACtB,yBAAY,mBAAmB,CAAC,cAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,QAAC,CAAQ,EAAR;AACb,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,CAAR;AACxB,0BAAa,mBAAmB,CAAC,cAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,QAAC,CAAQ,EAAR;AACd,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,WAAR,GAAsB;AACtB,qBAAQ,iBAAC,CAAiB,YAAjB;AACT,qBAAQ,cAAC,CAAc,aAAG,oBAAjB;AACT,qBAAQ,QAAC,CAAQ,GAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,UAAlB,GAA+B;AAC/B,+BAAkB,QAAC,CAAQ,EAAR;AACnB,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,WAAR,GAAsB;AACtB,qBAAQ,iBAAC,CAAiB,SAAjB;AACT,qBAAQ,cAAC,CAAc,aAAG,oBAAjB;AACT,qBAAQ,QAAC,CAAQ,GAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,UAAtB,GAAmC;AACnC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,oCAAuB,mBAAmB,CAAC,aAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,iBAAI,mBAAmB,CAAC,IAAD;AACvB,iBAAI,QAAC,CAAQ,MAAR;AACL,iBAAI,WAAJ,GAAkB;AAClB,iBAAI,iBAAC,CAAiB,iBAAjB;AACL,iBAAI,cAAC,CAAc,aAAG,oBAAjB;AACL,iBAAI,QAAC,CAAQ,GAAR;AACL,iBAAI,OAAC,CAAO,GAAP;AACL,6BAAgB,mBAAmB,CAAC,SAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,UAAhB,GAA6B;AAC7B,gCAAmB,mBAAmB,CAAC,SAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,yBAAY,mBAAmB,CAAC,SAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,QAAC,CAAQ,EAAR;AACb,wBAAW,mBAAmB,CAAC,SAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,wBAAW,QAAC,CAAQ,EAAR;AACZ,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,iBAAC,CAAiB,SAAjB;AAChB,4BAAe,cAAC,CAAc,aAAG,oBAAjB;AAChB,4BAAe,UAAf,GAA4B;AAC5B,4BAAe,QAAC,CAAQ,GAAR;AAChB,4BAAe,OAAC,CAAO,EAAP;AAChB,0CAA6B,mBAAmB,CAAC,oBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,UAA7B,GAA0C;AAC1C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,2CAA8B,mBAAmB,CAAC,oBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAtnC9B;AAwnCE,yBAAY;AACZ,sBAAS;AACT,oBAAO;AACP,uBAAU;AACV,qBAAQ;AACR,+BAAkB;AAClB,mBAAM;AACN,kBAAK;AACL,2BAAc;AACd,sBAAS;AACT,uBAAU;AACV,uBAAU;AACV,0BAAa;AACb,uBAAU;AACV,yBAAY;AACZ,uBAAU;AACV,kBAAK;AACL,0BAAa;AACb,4BAAe;AACf,uBAAU;AACV,2BAAc;AACd,yBAAY;AACZ,2BAAc;AACd,yBAAY;AACZ,uBAAU;AACV,qBAAQ;AACR,4BAAe;AACf,0BAAa;AACb,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,+BAAkB;AAClB,uBAAU;AACV,uBAAU;AACV,oBAAO;AACP,mBAAM;AACN,kBAAK;AACL,uBAAU;AACV,wBAAW;AACX,wBAAW;AACX,8BAAiB;AACjB,8BAAiB;AACjB,2BAAc;AACd,0BAAa;AACb,wBAAW;AACX,0BAAa;AACb,0BAAa;AACb,sBAAS;AACT,qBAAQ;AACR,sBAAS;AACT,mCAAsB;AACtB,yBAAY;AACZ,4BAAe;AACf,0BAAa;AACb,6BAAgB;AAChB,iCAAoB;AACpB,4BAAe;AACf,iCAAoB;AACpB,2BAAc;AACd,2BAAc;AACd,2BAAc;AACd,8BAAiB;AACjB,0CAA6B;AAC7B,gCAAmB;AACnB,iCAAoB;AACpB,oCAAuB;AACvB,kCAAqB;AACrB,wCAA2B;AAC3B,gCAAmB;AACnB,gCAAmB;AACnB,6BAAgB;AAChB,6BAAgB;AAChB,8BAAiB;AACjB,oCAAuB;AACvB,kCAAqB;AACrB,+BAAkB;AAClB,iCAAoB;AACpB,mCAAsB;AACtB,+BAAkB;AAClB,iCAAoB;AACpB,qCAAwB;AACxB,iCAAoB;AACpB,kCAAqB;AACrB,iCAAoB;AACpB,6BAAgB;AAChB,iCAAoB;AACpB,8BAAiB;AACjB,oCAAuB;AACvB,qCAAwB;AACxB,8BAAiB;AACjB,8BAAiB;AACjB,sCAAyB;AACzB,sCAAyB;AACzB,kCAAqB;AACrB,6BAAgB;AAChB,+BAAkB;AAClB,8BAAiB;AACjB,yCAA4B;AAC5B,4BAAe;AACf,gCAAmB;AACnB,mBAAM;AACN,sBAAS;AACT,mCAAsB;AACtB,sBAAS;AACT,kCAAqB;AACrB,8BAAiB;AACjB,6BAAgB;AAChB,kCAAqB;AACrB,kCAAqB;AACrB,6BAAgB;AAChB,kCAAqB;AACrB,yBAAY;AACZ,oCAAuB;AACvB,0BAAa;AACb,+BAAkB;AAClB,iCAAoB;AACpB,qBAAQ;AACR,+BAAkB;AAClB,kCAAqB;AACrB,qBAAQ;AACR,mCAAsB;AACtB,oCAAuB;AACvB,iCAAoB;AACpB,iBAAI;AACJ,6BAAgB;AAChB,gCAAmB;AACnB,yBAAY;AACZ,wBAAW;AACX,4BAAe;AACf,0CAA6B;AAC7B,2CAA8B;AAC9B,wCAA2B;AA3vC7B;AA7QsC;AAppBtB;;;AACd,4BrHCc,kDqHDd;AACA,yB3IgjDS,2B2IhjDT;AACA,yCvIEkB,0DuIFlB;AACA,+B3I6ZU,4B2I7ZV;AACA,kC3ImmBY,8B2InmBZ;AACA,gC3IkmBY,8B2IlmBZ;AACA,mC3I0ZU,4B2I1ZV;AACA,uC3IyZU,4B2IzZV;AACA,kC3IwZU,4B2IxZV;AACA,uC3IuZU,4B2IvZV;AACA,iC3I8cW,6B2I9cX;AACA,iC3I6cW,6B2I7cX;AACA,iC3IkkBW,6B2IlkBX;AACA,oC3I2cW,6B2I3cX;AACA,gD3IylBY,8B2IzlBZ;AACA,sC3I+jBW,6B2I/jBX;AACA,uC3IwcW,6B2IxcX;AACA,0C3IucW,6B2IvcX;AACA,wC3I8YU,4B2I9YV;AACA,8C3I2jBW,6B2I3jBX;AACA,sC3I0jBW,6B2I1jBX;AACA,sC3I2YU,4B2I3YV;AACA,mC3IilBY,8B2IjlBZ;AACA,mC3IglBY,8B2IhlBZ;AACA,oC3IwYU,4B2IxYV;AACA,0C3IuYU,4B2IvYV;AACA,wC3IsYU,4B2ItYV;AACA,qC3I6bW,6B2I7bX;AACA,uC3I2kBY,8B2I3kBZ;AACA,yC3I0kBY,8B2I1kBZ;AACA,qC3IykBY,8B2IzkBZ;AACA,uC3IwkBY,8B2IxkBZ;AACA,2C3I8iBW,6B2I9iBX;AACA,uC3I0gBS,2B2I1gBT;AACA,wC3IygBS,2B2IzgBT;AACA,uC3IwgBS,2B2IxgBT;AACA,mC3IugBS,2B2IvgBT;AACA,uC3IyiBW,6B2IziBX;AACA,oC3IikBY,8B2IjkBZ;AACA,0C3IgkBY,8B2IhkBZ;AACA,2C3IwXU,4B2IxXV;AACA,oC3IuXU,4B2IvXV;AACA,oC3IsXU,4B2ItXV;AACA,4C3I4jBY,8B2I5jBZ;AACA,4C3I2jBY,8B2I3jBZ;AACA,wC3ImXU,4B2InXV;AACA,mC3IkXU,4B2IlXV;AACA,qC3IiXU,4B2IjXV;AACA,oC3IgXU,4B2IhXV;AACA,+C3I+WU,4B2I/WV;AACA,kC3IsaW,6B2ItaX;AACA,sC3I6WU,4B2I7WV;AACA,4BrHnDc,kDqHmDd;AACA,yC3I2WU,4B2I3WV;AACA,4BrHrDc,kDqHqDd;AACA,wC3IyWU,4B2IzWV;AACA,oC3IwWU,4B2IxWV;AACA,mC3IuWU,4B2IvWV;AACA,wC3IsWU,4B2ItWV;AACA,wC3IqWU,4B2IrWV;AACA,mC3IoWU,4B2IpWV;AACA,wC3ImWU,4B2InWV;AACA,+B3IkWU,4B2IlWV;AACA,0C3IiWU,4B2IjWV;AACA,gC3IgWU,4B2IhWV;AACA,qC3IuZW,6B2IvZX;AACA,uC3IyeS,2B2IzeT;AACA,2BrHlEc,kDqHkEd;AACA,qC3I4VU,4B2I5VV;AACA,wC3I2VU,4B2I3VV;AACA,2BrHrEc,kDqHqEd;AACA,yC3IyVU,4B2IzVV;AACA,0C3IwVU,4B2IxVV;AACA,uC3IuVU,4B2IvVV;AACA,uBrHzEc,kDqHyEd;AACA,mCvIvEkB,0DuIuElB;AACA,sC3IoVU,4B2IpVV;AACA,+B3ImVU,4B2InVV;AACA,8B3IkVU,4B2IlVV;AACA,6B5Jq2BY,8C4Jr2BZ;AACA,gC7JsfK,uC6JtfL;AACA,6B7JqfK,uC6JrfL;AACA,+B7JofK,uC6JpfL;AACA,6B5Ji2BY,8C4Jj2BZ;AACA,wB7JkfK,uC6JlfL;AACA,gC7JifK,uC6JjfL;AACA,kC3GmPS,0C2GnPT;AACA,+B7JaI,sC6JbJ;AACA,6B5J41BY,8C4J51BZ;AACA,4B7JWI,sC6JXJ;AACA,0B7JUI,sC6JVJ;AACA,6B7JSI,sC6JTJ;AACA,2B7JQI,sC6JRJ;AACA,iC3G2Ke,gD2G3Kf;AACA,+B3G0Ke,gD2G1Kf;AACA,iC3GyKe,gD2GzKf;AACA,+B3GwKe,gD2GxKf;AACA,6B3GrBK,sC2GqBL;AACA,2B7J+vCG,qC6J/vCH;AACA,kC5Ji1BY,8C4Jj1BZ;AACA,gC5Jg1BY,8C4Jh1BZ;AACA,6B5J+0BY,8C4J/0BZ;AACA,6B5J80BY,8C4J90BZ;AACA,6B5J60BY,8C4J70BZ;AACA,qC7J8dK,uC6J9dL;AACA,6B5J20BY,8C4J30BZ;AACA,6B5J00BY,8C4J10BZ;AACA,0B3G8NS,0C2G9NT;AACA,qC7JRI,sC6JQJ;AACA,yB7JTI,sC6JSJ;AACA,yB3GlCK,sC2GkCL;AACA,wB7JXI,sC6JWJ;AACA,wB3GpCK,sC2GoCL;AACA,6B5Jm0BY,8C4Jn0BZ;AACA,8B5Jk0BY,8C4Jl0BZ;AACA,iC7JfI,sC6JeJ;AACA,8B5Jg0BY,8C4Jh0BZ;AACA,oC7JidK,uC6JjdL;AACA,oC3G1CK,sC2G0CL;AACA,iC3GmFS,0C2GnFT;AACA,gC3GiHS,0C2GjHT;AACA,4B7JrBI,sC6JqBJ;AACA,8B5J0zBY,8C4J1zBZ;AACA,6B7JvBI,sC6JuBJ;AACA,kCrH3Hc,kDqH2Hd;AACA,gD3ImSU,4B2InSV;AACA,iD3IkSU,4B2IlSV;AACA,8C3IiSU,4B2IjSV;AACA,gCnH4SM,wCmH5SN;AACA,gCnH2SM,wCmH3SN;AACA,4BnH0SM,wCmH1SN;AACA,2B7JmcK,uC6JncL;AAEuB,oCAAO,U1LtBzB,2B0LsByB,CAAP;AACF,kCAAO,U1LvBvB,2B0LuBuB,CAAP;AACe,iDAAO,U3Im8BrC,wB2In8BqC,EACrC,Q3Iu7BO,+B2Iv7BP,CAD8B;AAEP,0CAAQ,W3Ii8B/B,wB2Ij8B+B,CAAR;AACI,8CAAO,U1L3BnC,2B0L2BmC,CAAP;AACL,yCAAQ,W3I+7B9B,wB2I/7B8B,CAAR;AACA,yCAAQ,W3I87B9B,wB2I97B8B,CAAR;AACA,yCAAQ,W3I67B9B,wB2I77B8B,CAAR;AACA,yCAAQ,W3I47B9B,wB2I57B8B,CAAR;AACL,oCAAO,U1LhCzB,2B0LgCyB,CAAP;AACK,yCAAO,U1LjC9B,2B0LiC8B,CAAP;AACN,mCAAO,U1LlCxB,2B0LkCwB,CAAP;AACC,oCAAQ,W3Iw7BzB,wB2Ix7ByB,CAAR;AACI,wCAAQ,W3Iu7B7B,wB2Iv7B6B,CAAR;AACE,0CAAQ,W3Is7B/B,wB2It7B+B,CAAR;AACT,iCAAO,U1LtCtB,2B0LsCsB,CAAP;AACQ,yCAAO,U1LvC9B,2B0LuC8B,CAAP;AACA,yCAAQ,W3Im7B9B,wB2In7B8B,CAAR;AACH,sCAAO,U1LzC3B,2B0LyC2B,CAAP;AACE,wCAAO,U1L1C7B,2B0L0C6B,CAAP;AACA,wCAAO,U1L3C7B,2B0L2C6B,CAAP;AACK,6CAAO,U1L5ClC,2B0L4CkC,CAAP;AACE,+CAAQ,W3I86BpC,wB2I96BoC,CAAR;AACP,wCAAQ,W3I66B7B,wB2I76B6B,CAAR;AACJ,oCAAO,U1L/CzB,2B0L+CyB,CAAP;AA/JT;AAyKhB;AAvLF,GAyLc,wFAzLd;ACAA,kCAES,sTAFT;;;AAWiB;;;AACb;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAOA;AACA;AACA;AAjEa;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAmJoB;AAEnC,oBAAS;AACT,oBAAS,aAAT,GAAuB,qBAAqB,GAAC,sBAAS,CAAC,0BvLwHH,GuLxHE,CAAV;AAC5C,oBAAS;AAJ0B;AA1CO;AAE1C;AACA;AAEA,qBAAU,MAAK,WAAC,CAAM,wEAAN;AAEhB,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,2BAAe,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,wBAAa,oBAAC,CAAkB,4BAAlB;AACd,wBAAa,eAAC,CAAa,wCAAb;AACd,wBAAa,cAAC,CAAY,wCAAZ;AACd,wBAAa,OAAb,GAAmB;AACnB,wBAAa,WAAC,CAAS,YAAT;AACd,wBAAa,SAAb,GAAwB;AACxB,wBAAa,iBAAC,CAAe,SAAf;AACd,aAAM,CAAI,cAAS,OAAC,EAApB;AAGE,sBAAa,+BAAiM,GAAjK,2BAAc,CAAC,iBAAiB,oBAAe,cAAC,EAAlC,CAAf,GAA6D,KAAD,GAAO,2BAAc,CAAC,iBAAiB,kBAAa,cAAC,EAAhC,CAAf,GAA2D,WAAD,GAAa,qBAAgB,YAAC,EAAlB,GAA2B,aAAD;AAC9M,sBAAa,WAAsC,GAA1B,0BAAD,GAA4B,iBAAI,CAAC,sBAAiB,YAAC,EAAY,GAAH,GAAD,GAAK,uBAAkB,YAAC,EAAnD,CAAL;AACnD,sBAAa,WAAmD,GAAvC,SAAD,GAAW,yBAAoB,YAAC,EAAtB,GAA+B,UAAD;AAChE,sBAAa,WAAyE,GAA7D,0BAAqB,YAAC,EAAvB,GAAgC,GAAD,GAAK,sBAAiB,YAAC,EAAnB,GAA4B,MAAD;AACtF,sBAAa,WAAW,GAAC,QAAD;AAGxB,oBAAW,eAAU,iBAAC;AACtB,0BAAY,+BAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,uBAAU,MAAC,CAAW,iBAAY,YAAC,EAAxB;AACX,uBAAU,eAAC,CAAa,wCAAb;AACX,uBAAU,SAAC,CAAO,GAAP;AACX,uBAAU,MAAK,WAAC,CAAM,WAAN;AAChB,uBAAU,oBAAC,CAAkB,sBAAlB;AACX,uBAAU,SAAV,GAAqB;AACrB,uBAAU,iBAAC,CAAe,SAAf;AAEX,sBAAS;;AArC+B;AA5BA;AAE1C,oBAAS;AACT,UAAI;AAHsC;AAMH;;AAEvC;AACA;AAEA,oBAAqB,OAAP,OAAU,+BAAH,CAAY,MAAC;AAClC,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,8CAAmB,sCAAgB,QAAC,eAAS,CAAC;AAEnC,eAAN,MAAS,sCAAH,CAAoB,UAA3B,GAAuC;AAFG,OAAD,CAAT;AAMpC,2CAAe,YAAU,CAAC;AAEtB,uBAAS;AACT,uBAAS;AAHa,OAAD;AAbc;AAuEF;AAE3B;AAEV,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,uBAAa,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,oCAA0B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,6BAAmB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,2BAAiB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,4BAAkB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,4BAAkB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,4BAAkB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,+BAAqB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,2CAAiC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,iCAAuB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,kCAAwB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,iCAAuB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,8BAAoB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,8BAAoB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,kCAAwB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,gCAAsB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,kCAAwB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,8BAAoB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,kCAAwB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,+BAAqB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,qCAA2B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,uCAA6B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,uCAA6B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,6BAAmB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,2BAAiB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAE7B,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,oBAAS;AACT,iCAAsB;AACtB,uBAAY;AACZ,0BAAe;AACf,wBAAa;AACb,2BAAgB;AAChB,+BAAoB;AACpB,0BAAe;AACf,+BAAoB;AACpB,yBAAc;AACd,yBAAc;AACd,yBAAc;AACd,4BAAiB;AACjB,wCAA6B;AAC7B,8BAAmB;AACnB,+BAAoB;AACpB,kCAAuB;AACvB,gCAAqB;AACrB,sCAA2B;AAC3B,8BAAmB;AACnB,8BAAmB;AACnB,2BAAgB;AAChB,2BAAgB;AAChB,4BAAiB;AACjB,kCAAuB;AACvB,gCAAqB;AACrB,6BAAkB;AAClB,+BAAoB;AACpB,iCAAsB;AACtB,6BAAkB;AAClB,+BAAoB;AACpB,mCAAwB;AACxB,+BAAoB;AACpB,gCAAqB;AACrB,+BAAoB;AACpB,2BAAgB;AAChB,+BAAoB;AACpB,4BAAiB;AACjB,kCAAuB;AACvB,mCAAwB;AACxB,4BAAiB;AACjB,4BAAiB;AACjB,oCAAyB;AACzB,oCAAyB;AACzB,gCAAqB;AACrB,2BAAgB;AAChB,6BAAkB;AAClB,4BAAiB;AACjB,uCAA4B;AAC5B,0BAAe;AACf,8BAAmB;AACnB,2BAAgB;AAChB,wBAAa;AACb;AACE,qBAAQ,gBAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,kBAAI,SAAJ,GAAgB;AAChB,kBAAI,SAAC,CAAS,KAAT;AACL,kBAAI,UAAC,CAAU,CAAC,EAAX;AACL,kBAAI,QAAC,CAAQ,QAAR;AACL,kBAAI,SAAC,CAAS,EAAT;AACL,2BAAc,KAAd;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,WAAT,GAAuB;AACvB,sBAAS,iBAAC,CAAiB,YAAjB;AACV,sBAAS,cAAC,CAAc,aAAG,oBAAjB;AACV,sBAAS,QAAC,CAAQ,GAAR;AACV,sBAAS,OAAC,CAAO,EAAP;AACV,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,yBAAY,mBAAmB,CAAC,cAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,UAAZ,GAAyB;AACzB,yBAAY,QAAC,CAAQ,EAAR;AACb,4BAAe,mBAAmB,CAAC,cAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,0BAAa,mBAAmB,CAAC,cAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,GAAR;AACjB,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,GAAR;AACrB,4BAAe,mBAAmB,CAAC,cAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,EAAR;AAChB,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,GAAR;AACrB,2BAAc,mBAAmB,CAAC,cAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,mBAAmB,CAAC,cAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,mBAAmB,CAAC,cAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,0CAA6B,mBAAmB,CAAC,cAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,wCAA2B,mBAAmB,CAAC,cAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,GAAR;AACpB,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,qCAAwB,mBAAmB,CAAC,cAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,qCAAwB,mBAAmB,CAAC,cAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,GAAR;AAClB,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,yCAA4B,mBAAmB,CAAC,cAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,4BAAe,mBAAmB,CAAC,cAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAC,CAAW,cAAX;AACd,0BAAa,QAAC,CAAQ,EAAR;AACd,0BAAa,OAAC,CAAO,EAAP;AA/OhB;AAiPE,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,sBAAS;AACT,mCAAsB;AACtB,yBAAY;AACZ,4BAAe;AACf,0BAAa;AACb,6BAAgB;AAChB,iCAAoB;AACpB,4BAAe;AACf,iCAAoB;AACpB,2BAAc;AACd,2BAAc;AACd,2BAAc;AACd,8BAAiB;AACjB,0CAA6B;AAC7B,gCAAmB;AACnB,iCAAoB;AACpB,oCAAuB;AACvB,kCAAqB;AACrB,wCAA2B;AAC3B,gCAAmB;AACnB,gCAAmB;AACnB,6BAAgB;AAChB,6BAAgB;AAChB,8BAAiB;AACjB,oCAAuB;AACvB,kCAAqB;AACrB,+BAAkB;AAClB,iCAAoB;AACpB,mCAAsB;AACtB,+BAAkB;AAClB,iCAAoB;AACpB,qCAAwB;AACxB,iCAAoB;AACpB,kCAAqB;AACrB,iCAAoB;AACpB,6BAAgB;AAChB,iCAAoB;AACpB,8BAAiB;AACjB,oCAAuB;AACvB,qCAAwB;AACxB,8BAAiB;AACjB,8BAAiB;AACjB,sCAAyB;AACzB,sCAAyB;AACzB,kCAAqB;AACrB,6BAAgB;AAChB,+BAAkB;AAClB,8BAAiB;AACjB,yCAA4B;AAC5B,4BAAe;AACf,gCAAmB;AACnB,6BAAgB;AAChB,0BAAa;AAxSf;AArHqC;AA1JtB;;;AACb,4BtHIc,kDsHJd;AACA,yCxIMkB,0DwINlB;AACA,+B5IiaU,4B4IjaV;AACA,kC5IumBY,8B4IvmBZ;AACA,gC5IsmBY,8B4ItmBZ;AACA,mC5I8ZU,4B4I9ZV;AACA,uC5I6ZU,4B4I7ZV;AACA,kC5I4ZU,4B4I5ZV;AACA,uC5I2ZU,4B4I3ZV;AACA,iC5IkdW,6B4IldX;AACA,iC5IidW,6B4IjdX;AACA,iC5IskBW,6B4ItkBX;AACA,oC5I+cW,6B4I/cX;AACA,gD5I6lBY,8B4I7lBZ;AACA,sC5ImkBW,6B4InkBX;AACA,uC5I4cW,6B4I5cX;AACA,0C5I2cW,6B4I3cX;AACA,wC5IkZU,4B4IlZV;AACA,8C5I+jBW,6B4I/jBX;AACA,sC5I8jBW,6B4I9jBX;AACA,sC5I+YU,4B4I/YV;AACA,mC5IqlBY,8B4IrlBZ;AACA,mC5IolBY,8B4IplBZ;AACA,oC5I4YU,4B4I5YV;AACA,0C5I2YU,4B4I3YV;AACA,wC5I0YU,4B4I1YV;AACA,qC5IicW,6B4IjcX;AACA,uC5I+kBY,8B4I/kBZ;AACA,yC5I8kBY,8B4I9kBZ;AACA,qC5I6kBY,8B4I7kBZ;AACA,uC5I4kBY,8B4I5kBZ;AACA,2C5IkjBW,6B4IljBX;AACA,uC5I8gBS,2B4I9gBT;AACA,wC5I6gBS,2B4I7gBT;AACA,uC5I4gBS,2B4I5gBT;AACA,mC5I2gBS,2B4I3gBT;AACA,uC5I6iBW,6B4I7iBX;AACA,oC5IqkBY,8B4IrkBZ;AACA,0C5IokBY,8B4IpkBZ;AACA,2C5I4XU,4B4I5XV;AACA,oC5I2XU,4B4I3XV;AACA,oC5I0XU,4B4I1XV;AACA,4C5IgkBY,8B4IhkBZ;AACA,4C5I+jBY,8B4I/jBZ;AACA,wC5IuXU,4B4IvXV;AACA,mC5IsXU,4B4ItXV;AACA,qC5IqXU,4B4IrXV;AACA,oC5IoXU,4B4IpXV;AACA,+C5ImXU,4B4InXV;AACA,kC5I0aW,6B4I1aX;AACA,sC5IiXU,4B4IjXV;AACA,mC5IgXU,4B4IhXV;AACA,gC5IggDS,2B4IhgDT;AACA,6B7Jk4BY,8C6Jl4BZ;AACA,6B7Ji4BY,8C6Jj4BZ;AACA,6B7Jg4BY,8C6Jh4BZ;AACqB,kCAAO,U3L0DvB,2B2L1DuB,CAAP;AACO,yCAAQ,W5IohC9B,wB4IphC8B,CAAR;AA1Df;AAuEf;AAlFF,GAoFc,oCApFd;ACAA,oCAES,8RAFT;;;AAWmB;;;AACf;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA2BA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA9ae;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAwlBoB;AAErC;AAEA,qBAAU,MAAK,WAAC,CAAM,yEAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAW,eAAU,iBAAC;AACtB,0BAAe,iBAAC,CAAe,SAAf;AAChB,0BAAe,iBAAC,CAAe,SAAf;AAChB,8BAAmB,iBAAC,CAAe,SAAf;AACpB,sBAAW,iBAAC,CAAe,SAAf;AACZ,sBAAW,YAAC,CAAU,CAAV;AACZ,sBAAW,YAAC,CAAU,EAAV;AACZ,sBAAW,SAAM,CAAC,EAAE,EAAI,iBAAP;AAEjB,sBAAW,SAAM,CAAC,EAAE,EAAI,kBAAP;AACjB,kBAAW,gBAAW,eAAa,CAAC,EAAE,CAAH;AACnC,mBAAQ,iBAAC,CAAe,SAAf;AAET,sBAAW,SAAM,CAAC,EAAE,EAAI,mBAAP;AACjB,kBAAW,gBAAW,eAAa,CAAC,EAAE,CAAH;AACnC,oBAAS,iBAAC,CAAe,SAAf;AAEV,kBAAW,gBAAW,eAAa,CAAC,EAAE,CAAH;AACnC,2BAAgB,iBAAC,CAAe,SAAf;AAEjB,sBAAW,SAAM,CAAC,EAAE,EAAI,+BAAP;AACjB,kBAAW,gBAAW,eAAa,CAAC,EAAE,CAAH;AACnC,iCAAsB,iBAAC,CAAe,SAAf;AAEvB,sBAAW,SAAM,CAAC,EAAE,EAAI,+BAAP;AAEjB,sBAAW,SAAM,CAAC,EAAE,EAAI,iBAAP;AACjB,kBAAW,gBAAW,eAAa,CAAC,EAAE,CAAH;AACnC,mBAAQ,iBAAC,CAAe,SAAf;AAET,sBAAW,SAAM,CAAC,EAAE,EAAI,qBAAP;AACjB,sBAAW,SAAM,CAAC,EAAE,EAAI,6BAAP;AACjB,sBAAW,SAAM,CAAC,EAAE,EAAI,qBAAP;AACjB,sBAAW,SAAM,CAAC,EAAE,GAAK,mBAAR;AACjB,sBAAW,SAAM,CAAC,EAAE,GAAK,mBAAR;AAEjB,mBAAQ;AACR,mBAAQ,aAAR,GAAsB,iDAAiD,GAAC,sBAAS,CAAC,sBxLtX9B,GwLsX6B,CAAV;AACvE,mBAAQ;AA7C6B;AAnES;AAE9C,oBAAS;AACT,sBAAW;AACX,UAAI;AAJ0C;AA+IA;AAE9C;AAGA,kBAAW,gBAAW,eAAa,CAAC,EAAE,CAAH;AACnC,iCAAsB,iBAAC,CAAe,SAAf;AAEvB,kBAAW,gBAAW,eAAa,CAAC,EAAE,CAAH;AACnC,uBAAY,iBAAC,CAAe,SAAf;AAEb,kBAAW,gBAAW,eAAa,CAAC,EAAE,CAAH;AACnC,8BAAmB,iBAAC,CAAe,SAAf;AAEpB,kBAAW,gBAAW,eAAa,CAAC,EAAE,CAAH;AACnC,4BAAiB,iBAAC,CAAe,SAAf;AAElB,kBAAW,gBAAW,eAAa,CAAC,EAAE,EAAH;AACnC,4BAAiB,iBAAC,CAAe,SAAf;AAElB,kBAAW,gBAAW,eAAa,CAAC,EAAE,EAAH;AACnC,0BAAe,iBAAC,CAAe,SAAf;AAChB,0BAAe,OAAM;AAErB,mBAAG,aAAa;AAChB,aAAM,CAAI,aAAG,aAAa,OAAC,EAA3B;AAEE,4BAAe,OAAM,IAAI,CAAC,aAAG,2BAA2B,YAAC,EAAoD,GAA3C,IAAD,GAAM,aAAG,qBAAqB,YAAC,EAA1B,GAAmC,IAAD,GAAM,aAAG,oBAAoB,YAAC,EAA7G;AACzB,qBAAG,aAAa;;AAElB,0BAAe,OAAM,IAAI,CAAC,EAAD;AAEzB,sBAAW,SAAM,CAAC,EAAE,EAAI,2BAAsB,YAAC,EAAc,GAAL,KAAD,GAAO,kBAAa,YAAC,EAA3D;AAEjB,sBAAW,SAAM,CAAC,EAAE,EAAI,qBAAP;AACjB,sBAAW,SAAM,CAAC,EAAE,EAAI,2BAAsB,YAAC,EAA9B;AACjB,UAAG,wBAAmB,YAAC,EAAQ,KAAE,EAAjC;AAEE,qBAAG,aAAa,OAAO,CAAC,iBAAiB,wBAAmB,YAAC,GAAS,EAA/C;AACvB,4BAAe,QAAC,CAAM,aAAG,2BAA2B,YAAC,EAAoD,GAA3C,IAAD,GAAM,aAAG,qBAAqB,YAAC,EAA1B,GAAmC,IAAD,GAAM,aAAG,oBAAoB,YAAC,EAAlH;;AAIhB,4BAAe,QAAC,CAAM,EAAN;;AAElB,UAAG,iBAAY,KAAC,IAAhB,EAA0B,gBAAW,SAArC;AACA,UAAG,iBAAY,KAAC,IAAhB;AAEE,wBAAW;AACX,qCAAwB,aAAC,CAAO,cAAS,eAAC,EAAjB;AACzB,6BAAgB,aAAC,CAAW,CAAX;AACjB,mCAAsB,YAAC,CAAU,oCAA+B,YAAC,EAA1C;AACvB,qCAAwB,WAAC,CAAS,2BAAsB,WAAC,EAAhC;AACzB,YAAG,uBAAkB,WAAC,EAAO,KAAC,CAA9B,EAAqC,0BAAqB,WAAC,CAAS,kCAA6B,WAAC,EAAvC,CAA3D;AACA,YAAG,wBAAmB,YAAC,EAAQ,KAAC,cAAhC,EAAoD,6BAAwB,YAAC,CAAU,0BAAqB,YAAC,EAAhC,CAA7E;AACA,YAAG,wBAAmB,YAAC,EAAQ,KAAC,cAAhC,EAAoD,6BAAwB,YAAC,CAAU,0BAAqB,YAAC,EAAhC,CAA7E;AACA,YAAG,wBAAmB,YAAC,EAAQ,KAAC,cAAhC,EAAoD,6BAAwB,YAAC,CAAU,0BAAqB,YAAC,EAAhC,CAA7E;AACA,YAAG,wBAAmB,YAAC,EAAQ,KAAC,cAAhC,EAAoD,6BAAwB,YAAC,CAAU,0BAAqB,YAAC,EAAhC,CAA7E;AACA,YAAG,wBAAmB,YAAC,EAAQ,KAAC,cAAhC,EAAoD,6BAAwB,YAAC,CAAU,0BAAqB,YAAC,EAAhC,CAA7E;AACA,sCAAyB,WAAC,CAAS,6BAAwB,WAAC,EAAlC;AAC1B,wCAA2B,WAAC,CAAS,8BAAyB,WAAC,EAAnC;AAC5B,qCAAwB,WAAC,CAAS,2BAAsB,WAAC,EAAhC;AACzB,kCAAqB,WAAC,CAAS,uBAAkB,WAAC,EAA5B;AACtB,YAAG,oBAAe,eAAC,EAAW,GAAC,CAA/B;AAEE,wCAAyB,WAAC,CAAS,iCAA4B,WAAC,EAAtC;AAC1B,cAAG,8BAAyB,WAAC,EAAO,KAAE,CAAtC,EAA6C,0BAAqB,WAAC,CAAS,8BAAyB,WAAC,EAAnC,CAAnE;SAHF;AAKA,2BAAc,WAAC,CAAS,CAAT;AACf,YAAG,2BAAsB,aAAC,EAAS,KAAC,IAApC,EAA8C,mBAAc,WAAC,CAAS,CAAT,CAA7D;AACA,+BAAkB,WAAC,CAAS,CAAT;AACnB,+BAAkB,aAAC,CAAW,CAAX;AACnB,gCAAmB,WAAC,CAAS,CAAT;AACpB,mCAAsB,WAAC,CAAS,CAAT;AACvB,sCAAyB,WAAC,CAAS,CAAT;AAC1B,yCAA4B,WAAC,CAAS,CAAT;AAC7B,wCAA2B,WAAC,CAAS,CAAT;AAC5B,0CAA6B,aAAC,CAAW,KAAX;AAC9B,kCAAqB,WAAC,CAAS,CAAT;AACtB,iCAAoB,aAAC,CAAW,KAAX;AACrB,6BAAgB,YAAC,CAAU,KAAV;AACjB,oCAAuB,aAAC,CAAW,0BAAqB,aAAC,EAAjC;AACxB,uCAA0B,WAAC,CAAS,CAAT;AAC3B,gCAAmB,WAAC,CAAS,CAAT;AACpB,wCAA2B,WAAC,CAAS,CAAT;AAC5B,sCAAyB,WAAC,CAAS,CAAT;AAC1B,wCAA2B,WAAC,CAAS,CAAT;AAC5B,qCAAwB,WAAC,CAAS,CAAT;AACzB,qCAAwB,WAAC,CAAS,CAAT;AACzB,4BAAe,WAAC,CAAS,CAAT;AAChB,mCAAsB,aAAC,CAAW,CAAX;AACvB,qCAAwB,aAAC,CAAW,KAAX;AACzB,iCAAoB,aAAC,CAAW,KAAX;AACrB,wCAA2B,WAAC,CAAS,CAAT;AAC5B,yCAA4B,WAAC,CAAS,CAAT;AAC7B,4BAAe,aAAC,CAAW,CAAX;AAChB,+BAAkB,WAAC,CAAS,CAAT;AACnB,kCAAqB,WAAC,CAAS,CAAT;AACtB,2CAA8B,YAAC,CAAU,iCAA4B,YAAC,EAAvC;AAC/B,2CAA8B,YAAC,CAAU,iCAA4B,YAAC,EAAvC;AAC/B,8CAAiC,YAAC,CAAO,oCAA+B,YAAC,EAAvC;AAClC,sCAAyB,YAAC,CAAO,EAAP;AAC1B,+BAAkB,YAAC,CAAU,qBAAgB,YAAC,EAA3B;AACnB,8BAAiB,YAAC,CAAU,oBAAe,YAAC,EAA1B;AAClB,8BAAiB,YAAC,CAAU,oBAAe,YAAC,EAA1B;AAClB,6BAAgB,YAAC,CAAU,mBAAc,YAAC,EAAzB;AACjB,+BAAkB,aAAC,CAAW,qBAAgB,aAAC,EAA5B;AACnB,oCAAuB,aAAC,CAAW,0BAAqB,aAAC,EAAjC;AACxB,iCAAoB,YAAC,CAAU,6BAAwB,YAAC,EAAnC;AACrB,qCAAwB,YAAC,CAAU,2BAAsB,YAAC,EAAjC;AACzB,6BAAgB,YAAC,CAAU,8BAAyB,YAAC,EAApC;AACjB,6BAAgB,YAAC,CAAU,sBAAiB,YAAC,EAA5B;AACjB,+BAAkB,WAAC,CAAS,qBAAgB,WAAC,EAA1B;AACnB,wCAA2B,YAAC,CAAU,8BAAyB,YAAC,EAApC;AAC5B,kCAAqB,YAAC,CAAU,wBAAmB,YAAC,EAA9B;AACtB,kCAAqB,YAAC,CAAU,wBAAmB,YAAC,EAA9B;AAGtB,YAAG,mBAAc,WAAC,EAAO,KAAC,CAA1B,EAAiC,8BAAyB,WAAC,CAAS,0BAAqB,WAAC,EAA/B,CAA3D;AACA,YAAG,mBAAc,WAAC,EAAO,KAAC,CAA1B,EAAiC,8BAAyB,WAAC,CAAS,yBAAoB,WAAC,EAA9B,CAA3D;AACA,YAAG,mBAAc,WAAC,EAAO,KAAC,CAA1B,EAAiC,8BAAyB,WAAC,CAAS,0BAAqB,WAAC,EAAQ,GAAE,yBAAoB,WAAC,EAA9D,CAA3D;OA1EF;AA8EA,UAAG,cAAS,UAAC,EAAb;AAEE,YAAG,yBAAoB,aAAC,EAAS,KAAC,IAAlC;AAEE,kCAAmB,WAAC,CAAS,IAAT;AACpB,gCAAiB,WAAC,CAAS,IAAT;AAClB,gCAAiB,WAAC,CAAS,IAAT;;AAIlB,kCAAmB,WAAC,CAAS,KAAT;AACpB,gCAAiB,WAAC,CAAS,KAAT;AAClB,gCAAiB,WAAC,CAAS,KAAT;;OAZtB;AA5H8C;AAZE;AAEhD,UAAG,kBAAH;AAEE,wBAAW;;AAIX,yCAAW,CAAC,iGAAD;;AARmC;AA0JF;AAE9C,UAAG,kBAAH;AAEE,wBAAW;;AAIX,yCAAW,CAAC,iGAAD;;AARiC;AAYC;AAE/C,UAAG,yBAAoB,aAAC,EAAS,KAAC,IAAlC;AAEE,kCAAqB,iBAAC,CAAe,mCAA8B,YAAC,EAA9C;AACtB,kCAAqB,KAAC,EAAI,oBAAO,CAAC,0BAAqB,KAAC,CAAD,EAAI,EAA1B,CAAZ;AACrB,2CAA8B,YAAC,CAAU,0BAAqB,KAAC,CAAD,CAAuJ,GAAnJ,KAAD,GAAO,2BAAc,CAAC,aAAa,gCAA2B,cAAC,EAA1C,CAAf,GAAqE,KAAD,GAAQ,2BAAc,CAAC,QAAQ,8BAAyB,cAAC,EAAnC,CAAf,GAA8D,KAAD,GAAO,2BAAc,CAAC,QAAQ,8BAAyB,cAAC,EAAnC,CAArM;AAC/B,sCAAyB,cAAC,CAAY,gBAAK,CAAC,gCAA2B,cAAC,EAA7B,CAAwC,GAAC,eAAI,CAAC,8BAAyB,cAAC,EAA3B,CAA9D;AAC1B,sCAAyB,cAAC,CAAY,gBAAK,CAAC,gCAA2B,cAAC,EAA7B,CAAwC,GAAC,eAAI,CAAC,8BAAyB,cAAC,EAA3B,CAA9D;AAC1B,6BAAgB,WAAC,CAAS,aAAG,SAAS,CAAC,4BAAc,CAAC,8BAAyB,cAAC,GAAW,8BAAyB,cAAC,EAAhE,CAA2E,GAAC,EAAD,CAAI,CAAC,CAA/F,CAArB;OAPnB;AAWA,UAAG,oBAAe,QAAC,EAAI,KAAC,EAAxB;AAEE,gCAAmB,YAAC,CAAU,EAAV;;AAIpB,8BAAiB,iBAAC,CAAe,oBAAe,QAAC,EAA/B;AAClB,gCAAmB,YAAC,CAAU,sBAAiB,KAAC,CAAD,CAA3B;;AAGtB,gCAAqB,cAAC,CAAY,kBAAa,cAAC,EAA1B;AACtB,UAAG,uBAAkB,aAAC,EAAS,KAAC,CAAhC,EAAuC,kCAA6B,WAAC,CAAS,gCAA2B,WAAC,EAArC,CAArE;AACA,UAAG,uBAAkB,aAAC,EAAS,KAAC,CAAhC,EAAuC,kCAA6B,WAAC,CAAS,gCAA2B,WAAC,EAArC,CAArE;AACA,UAAG,uBAAkB,aAAC,EAAS,KAAC,CAAhC,EAAuC,kCAA6B,WAAC,CAAS,gCAA2B,WAAC,EAArC,CAArE;AACA,UAAG,uBAAkB,aAAC,EAAS,KAAC,CAAhC,EAAuC,kCAA6B,WAAC,CAAS,gCAA2B,WAAC,EAArC,CAArE;AACA,UAAG,uBAAkB,aAAC,EAAS,KAAC,CAAhC,EAAuC,kCAA6B,WAAC,CAAS,gCAA2B,WAAC,EAArC,CAArE;AACA,UAAG,uBAAkB,aAAC,EAAS,KAAC,CAAhC,EAAuC,kCAA6B,WAAC,CAAS,gCAA2B,WAAC,EAArC,CAArE;AACA,UAAG,gCAA2B,aAAC,EAAS,KAAC,KAAzC,EAAoD,kCAA6B,WAAC,CAAS,CAAT,CAAlF;AAGA,UAAG,4BAAuB,YAAC,EAAQ,KAAC,EAApC;AAEE,uCAA0B,YAAC,CAAU,6BAAwB,YAAC,EAAnC;;AAI3B,uCAA0B,YAAC,CAAU,4BAAuB,YAAC,EAAlC;;AAE7B,UAAG,8BAAyB,YAAC,EAAQ,KAAC,EAAtC,EAA8C,8BAAyB,WAAC,CAAS,CAAT,CAAxE;AACA,UAAG,mBAAc,WAAC,EAAO,KAAC,CAA1B,EAAiC,0BAAqB,WAAC,CAAS,CAAT,CAAvD;AACA,UAAG,6BAAwB,YAAC,EAAQ,KAAC,EAArC,EAA6C,6BAAwB,YAAC,CAAU,GAAV,CAAtE;AAGA,UAAG,oBAAO,CAAC,6BAAwB,YAAC,GAAS,CAAnC,CAAqC,KAAC,MAAhD,EAA4D,8BAAyB,WAAC,CAAS,CAAT,CAAtF;AAmBA,UAAG,0BAAqB,WAAC,EAAO,KAAE,CAAlC;AAEE,YAAI,aAAG,kBAAkB,CAAC,6BAAwB,YAAC,EAA1B,CAAmC,KAAC,KAA7D,EAAyE,0BAAqB,WAAC,CAAS,CAAT,CAA/F;OAFF;AAMA,UAA+B,CAA3B,uBAAkB,YAAC,EAAQ,KAAE,EAAF,CAAM,IAAgC,CAA3B,uBAAkB,YAAC,EAAQ,KAAE,sCAAF,CAArE,EAAqH,6BAAwB,WAAC,CAAS,CAAT,CAA9I;AACA,UAA+B,CAA3B,uBAAkB,YAAC,EAAQ,KAAE,EAAF,CAAM,IAAgC,CAA3B,uBAAkB,YAAC,EAAQ,KAAE,sCAAF,CAArE;AAEE,sCAAyB,WAAC,CAAS,CAAT;AAC1B,yCAA4B,WAAC,CAAS,CAAT;OAH/B;AAkBE,mCAAwB,WAAC,CAAS,8BAAyB,WAAC,EAAO,GAAuG,CAA9B,CAArC,CAAjC,8BAAyB,WAAC,EAAO,GAAC,gCAA2B,WAAC,EAA7B,CAAqC,GAAC,0BAAqB,WAAC,EAAvB,CAA8B,GAAC,GAAD,CAAjJ;AACzB,uCAA4B,WAAC,CAAS,6BAAwB,WAAC,EAAO,GAAwE,CAAtC,CAAhC,6BAAwB,WAAC,EAAO,GAAC,kCAA6B,WAAC,EAA/B,CAAsC,GAAC,GAAD,CAAjH;AAG/B,UAAG,aAAG,qBAAqB,aAAC,EAAS,KAAC,IAAtC,EAAgD,6BAAwB,WAAC,CAAS,aAAG,SAAS,CAAC,6BAAwB,WAAC,GAAQ,CAAC,CAAnC,CAArB,CAAzE;AAEA,iCAAgB,aAAG,eAAe,CAAC,2BAAsB,YAAC,EAAxB;AAClC,8BAAmB,WAAC,CAAiC,CAAxB,qBAAgB,WAAC,EAAO,GAAC,6BAAwB,WAAC,EAA1B,CAAiC,GAAC,wBAAnE;AACpB,iCAAsB,WAAC,CAAS,aAAG,SAAS,CAAyB,CAAxB,qBAAgB,WAAC,EAAO,GAAC,6BAAwB,WAAC,EAA1B,CAAiC,GAAC,wBAAD,CAAgB,eAA1E,CAArB;AAEvB,6BAAkB,WAAC,CAAoC,CAA3B,wBAAmB,WAAC,EAAO,GAAC,kCAA6B,WAAC,EAA/B,CAAsC,GAAC,GAA3E;AACnB,oCAAyB,WAAC,CAAS,uBAAkB,WAAC,EAAO,GAAC,wBAAmB,WAAC,EAAxD;AAC1B,sCAA2B,WAAC,CAAS,aAAG,SAAS,CAA6B,CAA3B,wBAAmB,WAAC,EAAO,GAAC,8BAAyB,WAAC,EAA3B,CAAkC,GAAC,GAAD,CAAM,CAAC,CAAtE,CAArB;AAE5B,8BAAmB,WAAC,CAAS,wBAAmB,WAAC,EAAO,GAAC,2BAAsB,WAAC,EAA5D;AACpB,UAAG,2BAAsB,WAAC,EAAO,KAAE,CAAnC;AAEE,uCAA0B,WAAC,CAAoC,CAA3B,wBAAmB,WAAC,EAAO,GAAC,2BAAsB,WAAC,EAAxB,CAA+B,GAAC,GAApE;;AAI3B,uCAA0B,WAAC,CAAS,CAAT;;AA6B7B,4CAAiC,YAAC,CAAU,mCAA8B,YAAC,EAAzC;AAElC,UAAG,mCAA8B,YAAC,EAAQ,KAAC,EAA3C,EAAmD,mCAA8B,YAAC,CAAU,GAAV,CAAlF;AACA,gCAAqB,WAAC,CAAS,uBAAkB,WAAC,EAAO,GAAC,qBAAgB,WAAC,EAArD;AA/IyB;AAmJD;AAE9C;AACA;AAEA,6BAAU,CAAC,IAAD;AACV,mBAAY,yBAAY,CAAC,IAAD;AACxB,mBAAY,uBAAU,CAAC,WAAW,IAAI,EAAhB;AACtB,mBAAY,uBAAU,CAAC,WAAW,IAAI,EAAhB;AACtB,2BAAgB,YAAC,CAAU,UAAV;AACjB,oCAAyB,aAAC,CAAO,aAAQ,eAAC,EAAhB;AAC1B,mCAAwB,aAAC,CAAO,cAAS,eAAC,EAAjB;AACzB,gCAAqB,cAAC,CAAY,kBAAa,cAAC,EAA1B;AACtB,2BAAgB,WAAC,CAAS,mBAAc,GAAC,CAAxB;AACjB,4BAAiB,WAAC,CAAS,CAAT;AAClB,2BAAgB,aAAC,CAAW,KAAX;AACjB,2BAAgB,aAAC,CAAW,CAAX;AACjB,iCAAsB,YAAC,CAAU,oCAA+B,YAAC,EAA1C;AACvB,wCAA6B,WAAC,CAAS,gCAA2B,WAAC,EAArC;AAC9B,mCAAwB,WAAC,CAAS,2BAAsB,WAAC,EAAhC;AACzB,UAAG,uBAAkB,WAAC,EAAO,KAAC,CAA9B,EAAqC,0BAAqB,WAAC,CAAS,kCAA6B,WAAC,EAAvC,CAA3D;AACA,UAAG,wBAAmB,YAAC,EAAQ,KAAC,cAAhC,EAAoD,6BAAwB,YAAC,CAAU,0BAAqB,YAAC,EAAhC,CAA7E;AACA,UAAG,wBAAmB,YAAC,EAAQ,KAAC,cAAhC,EAAoD,6BAAwB,YAAC,CAAU,0BAAqB,YAAC,EAAhC,CAA7E;AACA,UAAG,wBAAmB,YAAC,EAAQ,KAAC,cAAhC,EAAoD,6BAAwB,YAAC,CAAU,0BAAqB,YAAC,EAAhC,CAA7E;AACA,UAAG,wBAAmB,YAAC,EAAQ,KAAC,cAAhC,EAAoD,6BAAwB,YAAC,CAAU,0BAAqB,YAAC,EAAhC,CAA7E;AACA,UAAG,wBAAmB,YAAC,EAAQ,KAAC,cAAhC,EAAoD,6BAAwB,YAAC,CAAU,0BAAqB,YAAC,EAAhC,CAA7E;AACA,oCAAyB,WAAC,CAAS,6BAAwB,WAAC,EAAlC;AAC1B,sCAA2B,WAAC,CAAS,8BAAyB,WAAC,EAAnC;AAC5B,mCAAwB,WAAC,CAAS,2BAAsB,WAAC,EAAhC;AACzB,gCAAqB,WAAC,CAAS,uBAAkB,WAAC,EAA5B;AACtB,UAAG,oBAAe,eAAC,EAAW,GAAC,CAA/B;AAEE,sCAAyB,WAAC,CAAS,iCAA4B,WAAC,EAAtC;AAC1B,YAAG,8BAAyB,WAAC,EAAO,KAAE,CAAtC,EAA6C,0BAAqB,WAAC,CAAS,8BAAyB,WAAC,EAAnC,CAAnE;OAHF;AAMA,yBAAc,WAAC,CAAS,CAAT;AACf,UAAG,2BAAsB,aAAC,EAAS,KAAC,IAApC,EAA8C,mBAAc,WAAC,CAAS,CAAT,CAA7D;AACA,6BAAkB,WAAC,CAAS,CAAT;AACnB,6BAAkB,aAAC,CAAW,CAAX;AACnB,8BAAmB,WAAC,CAAS,CAAT;AACpB,iCAAsB,WAAC,CAAS,CAAT;AACvB,oCAAyB,WAAC,CAAS,CAAT;AAC1B,uCAA4B,WAAC,CAAS,CAAT;AAC7B,sCAA2B,WAAC,CAAS,CAAT;AAC5B,wCAA6B,aAAC,CAAW,KAAX;AAC9B,gCAAqB,WAAC,CAAS,CAAT;AACtB,+BAAoB,aAAC,CAAW,KAAX;AACrB,2BAAgB,YAAC,CAAU,KAAV;AACjB,kCAAuB,aAAC,CAAW,0BAAqB,aAAC,EAAjC;AACxB,qCAA0B,WAAC,CAAS,CAAT;AAC3B,8BAAmB,WAAC,CAAS,CAAT;AACpB,sCAA2B,WAAC,CAAS,CAAT;AAC5B,oCAAyB,WAAC,CAAS,CAAT;AAC1B,sCAA2B,WAAC,CAAS,CAAT;AAC5B,mCAAwB,WAAC,CAAS,CAAT;AACzB,mCAAwB,WAAC,CAAS,CAAT;AACzB,0BAAe,WAAC,CAAS,CAAT;AAChB,iCAAsB,aAAC,CAAW,CAAX;AACvB,mCAAwB,aAAC,CAAW,KAAX;AACzB,+BAAoB,aAAC,CAAW,KAAX;AACrB,sCAA2B,WAAC,CAAS,CAAT;AAC5B,uCAA4B,WAAC,CAAS,CAAT;AAC7B,0BAAe,aAAC,CAAW,CAAX;AAChB,6BAAkB,WAAC,CAAS,CAAT;AACnB,gCAAqB,WAAC,CAAS,CAAT;AACtB,yCAA8B,YAAC,CAAU,iCAA4B,YAAC,EAAvC;AAC/B,yCAA8B,YAAC,CAAU,iCAA4B,YAAC,EAAvC;AAC/B,4CAAiC,YAAC,CAAO,oCAA+B,YAAC,EAAvC;AAClC,oCAAyB,YAAC,CAAO,EAAP;AAe1B,6BAAkB,YAAC,CAAU,qBAAgB,YAAC,EAA3B;AACnB,4BAAiB,YAAC,CAAU,oBAAe,YAAC,EAA1B;AAClB,4BAAiB,YAAC,CAAU,oBAAe,YAAC,EAA1B;AAClB,2BAAgB,YAAC,CAAU,mBAAc,YAAC,EAAzB;AACjB,6BAAkB,aAAC,CAAW,qBAAgB,aAAC,EAA5B;AACnB,kCAAuB,aAAC,CAAW,0BAAqB,aAAC,EAAjC;AACxB,+BAAoB,YAAC,CAAU,6BAAwB,YAAC,EAAnC;AACrB,mCAAwB,YAAC,CAAU,2BAAsB,YAAC,EAAjC;AACzB,2BAAgB,YAAC,CAAU,8BAAyB,YAAC,EAApC;AACjB,2BAAgB,YAAC,CAAU,sBAAiB,YAAC,EAA5B;AACjB,6BAAkB,WAAC,CAAS,qBAAgB,WAAC,EAA1B;AACnB,sCAA2B,YAAC,CAAU,8BAAyB,YAAC,EAApC;AAQ5B,gCAAqB,YAAC,CAAU,wBAAmB,YAAC,EAA9B;AACtB,gCAAqB,YAAC,CAAU,wBAAmB,YAAC,EAA9B;AAGtB,UAAG,mBAAc,WAAC,EAAO,KAAC,CAA1B,EAAiC,8BAAyB,WAAC,CAAS,0BAAqB,WAAC,EAA/B,CAA3D;AACA,UAAG,mBAAc,WAAC,EAAO,KAAC,CAA1B,EAAiC,8BAAyB,WAAC,CAAS,yBAAoB,WAAC,EAA9B,CAA3D;AACA,UAAG,mBAAc,WAAC,EAAO,KAAC,CAA1B,EAAiC,8BAAyB,WAAC,CAAS,0BAAqB,WAAC,EAAQ,GAAE,yBAAoB,WAAC,EAA9D,CAA3D;AA7G8C;AAnYP;AAEvC,mCAAuB,uBAAW,QAAC;AACnC,gCAAqB,aAAC,CAAW,GAAX;AACtB,gCAAqB,iBAArB,GAAuC;AACvC,+BAAmB,uBAAW,QAAC;AAC/B,4BAAiB,aAAC,CAAW,GAAX;AAClB,4BAAiB,iBAAjB,GAAmC;AAPI;AANI;AAGvB,eAAtB,KAAsB;AAHuB;AAyEW;AAGtD,sBAAW;AACX,UAAI;AAJkD;AArHJ;AAElD,sBAAW;AAFuC;AAKJ;AAE9C,UAAG,gBAAW,OAAM,KAAC,6BAArB,EAAmC,gBAAW,OAA9C;AAEA,UAAG,gBAAW,OAAO,IAAG,kBAAxB;AAEE,wBAAW;;AAIX,wBAAW;;AAViC;AAwGI;AAEhD,sBAAW;AACX,UAAG,gBAAW,KAAE,EAAhB,EAAwB,gBAAW,aAAX,GAAyB,gBAAgB,GAAC,sBAAS,CAAC,iBxL9X1B,GwL8XyB,CAA3E;AACA,UAAG,gBAAW,KAAC,EAAf,EAAuB,gBAAW,aAAX,GAAyB,EAAhD;AACA,sBAAW;AALqC;AA1FN;AAE5C,0BAAe;AACf,0BAAe,aAAf,GAA6B,gDAAqG,GAApD,sBAAS,CAAC,qBxLpSpC,GwLoSmC,CAAV,GAA6B,wBAAF,GAA2B,sBAAS,CAAC,2BAAsB,YAAC,GxLpShH,GwLoSwF,CAAV;AAClI,0BAAe;AAJ6B;AAOD;AAE3C,UAAG,iBAAH,EAAqB,yBAAoB,CAAC,IAAD,CAAzC;AAEA,UAAG,qBAAgB,KAAE,EAArB;AAEE,sBAAS;AACT,sBAAS,aAAT,GAAuB,2BAAuD,GAA3B,sBAAS,CAAC,sBxL/SX,GwL+SU,CAAV,GAA6B,iCAAD;AAC9E,sBAAS;OAJX;AAJ2C;AA9GQ;AAEnD,UAAG,gBAAW,OAAO,IAAG,kBAAxB;AAAyC,4BAAe,WAAC,CAAS,IAAT;AAAmC,YAAhB,oBAAe,WAAC,CAAS,KAAT;AAFzC;AAfD;AAElD,sBAAW;AACX,UAAG,gCAA2B,cAAC,EAAU,GAAK,CAAJ,mBAAI,GAAC,KAAD,CAA9C,EAA0D,gCAA2B,cAAC,CAAY,mBAAZ,CAAtF;AAHkD;AAQJ;AAE9C,UAAG,gBAAW,UAAC,EAAf,EAA2B,gBAAW,OAAtC;AAF8C;AAYC;;AAE/C;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,sCAAH;AAJK;AAOG;AAEtB,YAAG,IAAI,cAAc,KAAE,EAAvB;AAEE,mCAAkB,IAAI;AACtB,cAAG,sBAAgB,KAAE,EAArB;AAEE,2BAAS;AACT,2BAAS,aAAT,GAAuB,2BAAuD,GAA3B,sBAAS,CAAC,uBxLjNjB,GwLiNgB,CAAV,GAA6B,iCAAD;AAC9E,2BAAS;;AAIT,gBAAG,kBAAH,EAAqB,0BAAoB,CAAC,IAAD,CAAzC;;SAXJ;AAFsB;AAoB1B,0BAAc;AACd,aAAM,sCAAgB,QAAC,eAAS,aAAT;AACvB,UAAI,YAAU;AAhCiC;AAoCD;;AAE9C;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,sCAAH;AAJK;AAOG;AAEtB,YAAG,IAAI,cAAc,KAAE,EAAvB;AAEE,mCAAkB,IAAI;AACtB,cAAG,sBAAgB,KAAE,EAArB;AAEE,2BAAS;AACT,2BAAS,aAAT,GAAuB,2BAAuD,GAA3B,sBAAS,CAAC,uBxLrPjB,GwLqPgB,CAAV,GAA6B,iCAAD;AAC9E,2BAAS;;AAIT,gBAAG,kBAAH,EAAqB,0BAAoB,CAAC,IAAD,CAAzC;;SAXJ;AAFsB;AAoB1B,0BAAc;AACd,aAAM,sCAAgB,QAAC,eAAS,aAAT;AACvB,UAAI,YAAU;AAhCgC;AAiFR;AAGtC,iBAAQ,uCAAR;AAHsC;AAklBC;AAE7B;AAEV,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,6BAAmB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,6BAAmB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,iCAAuB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,sBAAY,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,uBAAa,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,oCAA0B,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,sBAAY,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,8BAAoB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,iCAAuB,uCAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,+BAAqB,uCAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,+BAAqB,uCAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,6BAAmB,gCAAS,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,0BAAgB,uCAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,6BAAmB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,yBAAe,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,yBAAe,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,2BAAiB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,8BAAoB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,8BAAoB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,sCAA4B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,iCAAuB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,yCAA+B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,uCAA6B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,uCAA6B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,8BAAoB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,8BAAoB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,4BAAkB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,gDAAsC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,2CAAiC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,kCAAwB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,8BAAoB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,6BAAmB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,oCAA0B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,kCAAwB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,6BAAmB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,mCAAyB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,uCAA6B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,4BAAkB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,uBAAa,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,iCAAuB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,kCAAwB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,+BAAqB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,kCAAwB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,uCAA6B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,8BAAoB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,6BAAmB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,6BAAmB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,4BAAkB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,oCAA0B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,8BAAoB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,4BAAkB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,8CAAoC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,mCAAyB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,uCAA6B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,4BAAkB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,+BAAqB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,+BAAqB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,iCAAuB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,0CAAgC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,6CAAmC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,8BAAoB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,iCAAuB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,iCAAuB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,6BAAmB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,8BAAoB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,iDAAuC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,uCAA6B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,wCAA8B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,kDAAwC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,2BAAiB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,kCAAwB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,2BAAiB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,iCAAuB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,mCAAyB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,6BAAmB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,kCAAwB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,+BAAqB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,0BAAgB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,iDAAuC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,kCAAwB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,6BAAmB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,0CAAgC,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,yCAA+B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,2CAAiC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,uDAA6C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1D,6DAAmD,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChE,6DAAmD,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChE,sBAAY,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,kCAAwB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,2BAAiB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,0BAAgB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,mCAAyB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,yBAAe,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,2BAAiB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,uCAA6B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,yBAAe,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,2BAAiB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,kCAAwB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,2BAAiB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,6BAAmB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,iCAAuB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,yCAA+B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,sCAA4B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,8BAAoB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,oCAA0B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,kCAAwB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,6BAAmB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,2BAAiB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,8BAAoB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,oCAA0B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,gCAAsB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,gCAAsB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,8BAAoB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,+CAAqC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,6BAAmB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,6BAAmB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,gCAAsB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,6BAAmB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,6BAAmB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,4BAAkB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,wBAAc,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,oCAA0B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,+BAAqB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,wCAA8B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,yCAA+B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,2BAAiB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,+BAAqB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,6BAAmB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAEzC,qBAAU;AACV,qBAAU;AACV,0BAAe;AACf,0BAAe;AACf,8BAAmB;AACnB,mBAAQ;AACR,oBAAS;AACT,iCAAsB;AACtB,mBAAQ;AACR,2BAAgB;AAChB,8BAAmB;AACnB,4BAAiB;AACjB,4BAAiB;AACjB,iCAAsB;AACtB,0BAAe;AACf,uBAAY;AACZ,0BAAe;AACf,sBAAW;AACX,sBAAW;AACX,wBAAa;AACb,2BAAgB;AAChB,4BAAiB;AACjB,yCAA8B;AAC9B,yCAA8B;AAC9B,2BAAgB;AAChB,iCAAsB;AACtB,mCAAwB;AACxB,mCAAwB;AACxB,mCAAwB;AACxB,8BAAmB;AACnB,sCAA2B;AAC3B,oCAAyB;AACzB,oCAAyB;AACzB,2BAAgB;AAChB,kCAAuB;AACvB,iCAAsB;AACtB,sCAA2B;AAC3B,wCAA6B;AAC7B,+BAAoB;AACpB,6BAAkB;AAClB,4BAAiB;AACjB,4BAAiB;AACjB,2BAAgB;AAChB,wCAA6B;AAC7B,8BAAmB;AACnB,6BAAkB;AAClB,oCAAyB;AACzB,iCAAsB;AACtB,gCAAqB;AACrB,oCAAyB;AACzB,yBAAc;AACd,gCAAqB;AACrB,gCAAqB;AACrB,6CAAkC;AAClC,uCAA4B;AAC5B,8BAAmB;AACnB,qCAA0B;AAC1B,sCAA2B;AAC3B,gCAAqB;AACrB,wCAA6B;AAC7B,2BAAgB;AAChB,+BAAoB;AACpB,kCAAuB;AACvB,4CAAiC;AACjC,kCAAuB;AACvB,qCAA0B;AAC1B,sCAA2B;AAC3B,6BAAkB;AAClB,6BAAkB;AAClB,oCAAyB;AACzB,sCAA2B;AAC3B,oCAAyB;AACzB,2BAAgB;AAChB,wCAA6B;AAC7B,4BAAiB;AACjB,0BAAe;AACf,mCAAwB;AACxB,mCAAwB;AACxB,6BAAkB;AAClB,mCAAwB;AACxB,iCAAsB;AACtB,6BAAkB;AAClB,+BAAoB;AACpB,gCAAqB;AACrB,uCAA4B;AAC5B,yCAA8B;AAC9B,0BAAe;AACf,oCAAyB;AACzB,2BAAgB;AAChB,gCAAqB;AACrB,0CAA+B;AAC/B,6BAAkB;AAClB,gCAAqB;AACrB,sCAA2B;AAC3B,oCAAyB;AACzB,yBAAc;AACd,oBAAS;AACT,8BAAmB;AACnB,+BAAoB;AACpB,4BAAiB;AACjB,+BAAoB;AACpB,oCAAyB;AACzB,iCAAsB;AACtB,uCAA4B;AAC5B,uCAA4B;AAC5B,iCAAsB;AACtB,kCAAuB;AACvB,8BAAmB;AACnB,2BAAgB;AAChB,0BAAe;AACf,0BAAe;AACf,yBAAc;AACd,iCAAsB;AACtB,4BAAiB;AACjB,iCAAsB;AACtB,gCAAqB;AACrB,mCAAwB;AACxB,gCAAqB;AACrB,qCAA0B;AAC1B,qCAA0B;AAC1B,2BAAgB;AAChB,gCAAqB;AACrB,yBAAc;AACd,gCAAqB;AACrB,kCAAuB;AACvB,oCAAyB;AACzB,gCAAqB;AACrB,gCAAqB;AACrB,gCAAqB;AACrB,gCAAqB;AACrB,gCAAqB;AACrB,2CAAgC;AAChC,iCAAsB;AACtB,6BAAkB;AAClB,gCAAqB;AACrB,8BAAmB;AACnB,8BAAmB;AACnB,0CAA+B;AAC/B,iCAAsB;AACtB,iCAAsB;AACtB,iCAAsB;AACtB,iCAAsB;AACtB,iCAAsB;AACtB,oCAAyB;AACzB,uBAAY;AACZ,6BAAkB;AAClB,gCAAqB;AACrB,gCAAqB;AACrB,+BAAoB;AACpB,kCAAuB;AACvB,oCAAyB;AACzB,gCAAqB;AACrB,mCAAwB;AACxB,wCAA6B;AAC7B,oCAAyB;AACzB,yBAAc;AACd,4BAAiB;AACjB,4BAAiB;AACjB,0CAA+B;AAC/B,mCAAwB;AACxB,uCAA4B;AAC5B,8BAAmB;AACnB,kCAAuB;AACvB,oCAAyB;AACzB,kCAAuB;AACvB,iCAAsB;AACtB,6BAAkB;AAClB,wCAA6B;AAC7B,wCAA6B;AAC7B,uCAA4B;AAC5B,iCAAsB;AACtB,mCAAwB;AACxB,qCAA0B;AAC1B,kCAAuB;AACvB,0CAA+B;AAC/B,2BAAgB;AAChB,8BAAmB;AACnB,8BAAmB;AACnB,0BAAe;AACf,8BAAmB;AACnB,2BAAgB;AAChB,0CAA+B;AAC/B,8CAAmC;AACnC,kCAAuB;AACvB,iCAAsB;AACtB,oCAAyB;AACzB,uCAA4B;AAC5B,6BAAkB;AAClB,oCAAyB;AACzB,qCAA0B;AAC1B,2CAAgC;AAChC,+CAAoC;AACpC,kCAAuB;AACvB,iCAAsB;AACtB,8BAAmB;AACnB,8BAAmB;AACnB,8BAAmB;AACnB,wBAAa;AACb,+BAAoB;AACpB,wBAAa;AACb,oCAAyB;AACzB,8BAAmB;AACnB,iCAAsB;AACtB,iCAAsB;AACtB,4BAAiB;AACjB,gCAAqB;AACrB,iCAAsB;AACtB,iCAAsB;AACtB,mCAAwB;AACxB,mCAAwB;AACxB,sCAA2B;AAC3B,wCAA6B;AAC7B,wCAA6B;AAC7B,0BAAe;AACf,+BAAoB;AACpB,wCAA6B;AAC7B,4BAAiB;AACjB,uBAAY;AACZ,8CAAmC;AACnC,2CAAgC;AAChC,0BAAe;AACf,+BAAoB;AACpB,0CAA+B;AAC/B,0BAAe;AACf,uCAA4B;AAC5B,sCAA2B;AAC3B,uCAA4B;AAC5B,kCAAuB;AACvB,oCAAyB;AACzB,sCAA2B;AAC3B,qCAA0B;AAC1B,4CAAiC;AACjC,wCAA6B;AAC7B,6CAAkC;AAClC,oDAAyC;AACzC,0DAA+C;AAC/C,0DAA+C;AAC/C,mBAAQ;AACR,+BAAoB;AACpB,iCAAsB;AACtB,kCAAuB;AACvB,uCAA4B;AAC5B,mCAAwB;AACxB,wBAAa;AACb,uBAAY;AACZ,gCAAqB;AACrB,2BAAgB;AAChB,0BAAe;AACf,+BAAoB;AACpB,sBAAW;AACX,iCAAsB;AACtB,uBAAY;AACZ,+BAAoB;AACpB,+BAAoB;AACpB,wBAAa;AACb,8BAAmB;AACnB,sCAA2B;AAC3B,oCAAyB;AACzB,wCAA6B;AAC7B,sCAA2B;AAC3B,qCAA0B;AAC1B,oCAAyB;AACzB,sBAAW;AACX,2BAAgB;AAChB,mCAAwB;AACxB,wBAAa;AACb,sCAA2B;AAC3B,sCAA2B;AAC3B,+BAAoB;AACpB,+BAAoB;AACpB,6BAAkB;AAClB,mCAAwB;AACxB,mCAAwB;AACxB,iCAAsB;AACtB,8BAAmB;AACnB,+BAAoB;AACpB,6BAAkB;AAClB,+BAAoB;AACpB,6BAAkB;AAClB,iCAAsB;AACtB,gCAAqB;AACrB,4BAAiB;AACjB,0BAAe;AACf,wBAAa;AACb,sCAA2B;AAC3B,0BAAe;AACf,8BAAmB;AACnB,qCAA0B;AAC1B,sCAA2B;AAC3B,mCAAwB;AACxB,+BAAoB;AACpB,oCAAyB;AACzB,4BAAiB;AACjB,kCAAuB;AACvB,8BAAmB;AACnB,iCAAsB;AACtB,oCAAyB;AACzB,gCAAqB;AACrB,sCAA2B;AAC3B,0BAAe;AACf,0BAAe;AACf,mCAAwB;AACxB,kCAAuB;AACvB,gCAAqB;AACrB,6BAAkB;AAClB,iCAAsB;AACtB,uBAAY;AACZ,+BAAoB;AACpB,8BAAmB;AACnB,+BAAoB;AACpB,gCAAqB;AACrB,2BAAgB;AAChB,iCAAsB;AACtB,+BAAoB;AACpB,+BAAoB;AACpB,+BAAoB;AACpB,gCAAqB;AACrB,+BAAoB;AACpB,6BAAkB;AAClB,0BAAe;AACf,8BAAmB;AACnB,oCAAyB;AACzB,mCAAwB;AACxB,gCAAqB;AACrB,gCAAqB;AACrB,gCAAqB;AACrB,wBAAa;AACb,+BAAoB;AACpB,sCAA2B;AAC3B,+BAAoB;AACpB,4BAAiB;AACjB,2BAAgB;AAChB,kCAAuB;AACvB,oCAAyB;AACzB,4BAAiB;AACjB,iCAAsB;AACtB,6BAAkB;AAClB,6BAAkB;AAClB,mCAAwB;AACxB,2BAAgB;AAChB,iCAAsB;AACtB,iCAAsB;AACtB,2BAAgB;AAChB,+BAAoB;AACpB,4CAAiC;AACjC,qCAA0B;AAC1B,yCAA8B;AAC9B,6BAAkB;AAClB,gCAAqB;AACrB,uCAA4B;AAC5B,qCAA0B;AAC1B,0BAAe;AACf,0BAAe;AACf,oCAAyB;AACzB,kCAAuB;AACvB,6BAAkB;AAClB,6BAAkB;AAClB,qCAA0B;AAC1B,mCAAwB;AACxB,6BAAkB;AAClB,qCAA0B;AAC1B,mCAAwB;AACxB,0BAAe;AACf,0BAAe;AACf,yBAAc;AACd,qBAAU;AACV,4BAAiB;AACjB,sCAA2B;AAC3B,sCAA2B;AAC3B,sCAA2B;AAC3B,iCAAsB;AACtB,qCAA0B;AAC1B,4BAAiB;AACjB,kCAAuB;AACvB,gCAAqB;AACrB,4BAAiB;AACjB,gCAAqB;AACrB,sCAA2B;AAC3B,wCAA6B;AAC7B,qCAA0B;AAC1B,6BAAkB;AAClB,iCAAsB;AACtB,sCAA2B;AAC3B,wBAAa;AACb,uCAA4B;AAC5B,gCAAqB;AACrB,4BAAiB;AACjB,iCAAsB;AACtB,kCAAuB;AACvB,8BAAmB;AACnB,2BAAgB;AAChB,8BAAmB;AACnB,0BAAe;AACf,2CAAgC;AAChC,mCAAwB;AACxB;AACE,qBAAQ,kBAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,UAAW,cAAlB;AACR,qBAAQ,CAAC,KAAM,eAAgB,mBAAvB;AACR,qBAAQ,CAAC,KAAM,WAAY,eAAnB;AACR,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,SAAC,CAAS,mCAAT;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,SAAC,CAAS,mCAAT;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,CAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,4BAAe,SAAC,CAAS,EAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,WAAC,CAAW,WAAX;AAChB,4BAAe,gBAAC,CAAc,CAAd;AAChB,4BAAe,oBAAC,CAAoB,mCAApB;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,mBAAC,CAAmB,gDAAnB;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,iBAAC,CAAiB,sBAAjB;AAChB,4BAAe,cAAC,CAAc,wCAAd;AAChB,4BAAe,gBAAC,CAAgB,sBAAhB;AAChB,uBAAQ,CAAC,qBAAiB,KAAM,UAAW,sBAAnC;AACR,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,CAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,4BAAe,SAAC,CAAS,EAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,WAAC,CAAW,WAAX;AAChB,4BAAe,gBAAC,CAAc,CAAd;AAChB,4BAAe,oBAAC,CAAoB,mCAApB;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,mBAAC,CAAmB,gDAAnB;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,iBAAC,CAAiB,sBAAjB;AAChB,4BAAe,cAAC,CAAc,wCAAd;AAChB,4BAAe,gBAAC,CAAgB,sBAAhB;AAChB,uBAAQ,CAAC,qBAAiB,KAAM,UAAW,sBAAnC;AACR,gCAAmB,mBAAmB,CAAC,IAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,QAAC,CAAQ,CAAR;AACpB,gCAAmB,OAAC,CAAO,GAAP;AACpB,gCAAmB,SAAC,CAAS,EAAT;AACpB,gCAAmB,UAAC,CAAU,EAAV;AACpB,gCAAmB,WAAC,CAAW,mBAAX;AACpB,gCAAmB,gBAAC,CAAc,CAAd;AACpB,gCAAmB,oBAAC,CAAoB,mCAApB;AACpB,gCAAmB,eAAC,CAAe,yCAAf;AACpB,gCAAmB,mBAAC,CAAmB,gDAAnB;AACpB,gCAAmB,eAAC,CAAe,wCAAf;AACpB,gCAAmB,iBAAC,CAAiB,sBAAjB;AACpB,gCAAmB,cAAC,CAAc,wCAAd;AACpB,gCAAmB,gBAAC,CAAgB,sBAAhB;AACpB,uBAAQ,CAAC,yBAAqB,KAAM,UAAW,0BAAvC;AACR,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,CAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,qBAAQ,SAAC,CAAS,GAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,gBAAC,CAAc,EAAd;AACT,qBAAQ,YAAC,CAAY,0CAAZ;AACT,qBAAQ,oBAAC,CAAoB,8BAApB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,cAAC,CAAc,2CAAd;AACT,qBAAQ,gBAAC,CAAgB,qBAAhB;AACT,qBAAQ,aAAC,CAAa,OAAb;AACT,qBAAQ,cAAC,CAAc,mBAAd;AACT,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,QAAC,CAAQ,CAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,sBAAS,SAAC,CAAS,GAAT;AACV,sBAAS,UAAC,CAAU,EAAV;AACV,sBAAS,gBAAC,CAAc,EAAd;AACV,sBAAS,YAAC,CAAY,0CAAZ;AACV,sBAAS,oBAAC,CAAoB,8BAApB;AACV,sBAAS,eAAC,CAAe,yCAAf;AACV,sBAAS,mBAAC,CAAmB,gDAAnB;AACV,sBAAS,eAAC,CAAe,wCAAf;AACV,sBAAS,iBAAC,CAAiB,sBAAjB;AACV,sBAAS,cAAC,CAAc,2CAAd;AACV,sBAAS,gBAAC,CAAgB,qBAAhB;AACV,sBAAS,aAAC,CAAa,QAAb;AACV,sBAAS,cAAC,CAAc,mBAAd;AACV,mCAAsB,mBAAmB,CAAC,IAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,QAAC,CAAQ,CAAR;AACvB,mCAAsB,OAAC,CAAO,GAAP;AACvB,mCAAsB,SAAC,CAAS,GAAT;AACvB,mCAAsB,UAAC,CAAU,EAAV;AACvB,mCAAsB,gBAAC,CAAc,EAAd;AACvB,mCAAsB,oBAAC,CAAoB,8BAApB;AACvB,mCAAsB,eAAC,CAAe,yCAAf;AACvB,mCAAsB,mBAAC,CAAmB,gDAAnB;AACvB,mCAAsB,eAAC,CAAe,wCAAf;AACvB,mCAAsB,iBAAC,CAAiB,sBAAjB;AACvB,mCAAsB,cAAC,CAAc,2CAAd;AACvB,mCAAsB,gBAAC,CAAgB,qBAAhB;AACvB,mCAAsB,aAAC,CAAa,qBAAb;AACvB,mCAAsB,cAAC,CAAc,mBAAd;AACvB,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,CAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,qBAAQ,SAAC,CAAS,GAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,gBAAC,CAAc,EAAd;AACT,qBAAQ,YAAC,CAAY,8CAAZ;AACT,qBAAQ,oBAAC,CAAoB,8BAApB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,cAAC,CAAc,2CAAd;AACT,qBAAQ,gBAAC,CAAgB,qBAAhB;AACT,qBAAQ,aAAC,CAAa,OAAb;AACT,qBAAQ,cAAC,CAAc,mBAAd;AACT,6BAAgB,mBAAmB,CAAC,IAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,QAAC,CAAQ,CAAR;AACjB,6BAAgB,OAAC,CAAO,GAAP;AACjB,6BAAgB,SAAC,CAAS,EAAT;AACjB,6BAAgB,UAAC,CAAU,EAAV;AACjB,6BAAgB,WAAC,CAAW,iBAAX;AACjB,6BAAgB,gBAAC,CAAc,CAAd;AACjB,6BAAgB,oBAAC,CAAoB,mCAApB;AACjB,6BAAgB,eAAC,CAAe,yCAAf;AACjB,6BAAgB,mBAAC,CAAmB,gDAAnB;AACjB,6BAAgB,eAAC,CAAe,wCAAf;AACjB,6BAAgB,iBAAC,CAAiB,sBAAjB;AACjB,6BAAgB,cAAC,CAAc,wCAAd;AACjB,6BAAgB,gBAAC,CAAgB,sBAAhB;AACjB,uBAAQ,CAAC,sBAAkB,KAAM,UAAW,uBAApC;AACR,gCAAmB,mBAAmB,CAAC,IAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,QAAC,CAAQ,GAAR;AACpB,gCAAmB,OAAC,CAAO,GAAP;AACpB,gCAAmB,SAAC,CAAS,EAAT;AACpB,gCAAmB,UAAC,CAAU,EAAV;AACpB,gCAAmB,oBAAC,CAAoB,8BAApB;AACpB,gCAAmB,eAAC,CAAe,wCAAf;AACpB,gCAAmB,cAAC,CAAc,2CAAd;AACpB,gCAAmB,gBAAC,CAAgB,qBAAhB;AACpB,gCAAmB,eAAC,CAAe,4CAAf;AACpB,gCAAmB,gBAAC,CAAc,EAAd;AACpB,gCAAmB,SAAC,CAAS,QAAT;AACpB,gCAAmB,QAAC,CAAQ,wBAAR;AACpB,gCAAmB,eAAC,CAAe,yCAAf;AACpB,gCAAmB,mBAAC,CAAmB,gDAAnB;AACpB,gCAAmB,QAAC,CAAQ,EAAR;AACpB,gCAAmB,QAAC,CAAQ,EAAR;AACpB,uBAAQ,CAAC,yBAAqB,KAAM,UAAW,0BAAvC;AACR,gCAAmB,aAAC,CAAa,kBAAb;AACpB,gCAAmB,cAAC,CAAc,mBAAd;AACpB,8BAAiB,mBAAmB,CAAC,IAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,QAAC,CAAQ,GAAR;AAClB,8BAAiB,OAAC,CAAO,GAAP;AAClB,8BAAiB,SAAC,CAAS,EAAT;AAClB,8BAAiB,UAAC,CAAU,EAAV;AAClB,8BAAiB,oBAAC,CAAoB,8BAApB;AAClB,8BAAiB,eAAC,CAAe,wCAAf;AAClB,8BAAiB,cAAC,CAAc,2CAAd;AAClB,8BAAiB,gBAAC,CAAgB,qBAAhB;AAClB,8BAAiB,eAAC,CAAe,4CAAf;AAClB,8BAAiB,gBAAC,CAAc,EAAd;AAClB,8BAAiB,SAAC,CAAS,QAAT;AAClB,8BAAiB,QAAC,CAAQ,wBAAR;AAClB,8BAAiB,eAAC,CAAe,yCAAf;AAClB,8BAAiB,mBAAC,CAAmB,gDAAnB;AAClB,8BAAiB,QAAC,CAAQ,4CAAR;AAClB,8BAAiB,QAAC,CAAQ,EAAR;AAClB,8BAAiB,QAAC,CAAQ,EAAR;AAClB,8BAAiB,aAAC,CAAa,gBAAb;AAClB,8BAAiB,cAAC,CAAc,mBAAd;AAClB,8BAAiB,mBAAmB,CAAC,IAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,QAAC,CAAQ,GAAR;AAClB,8BAAiB,OAAC,CAAO,GAAP;AAClB,8BAAiB,SAAC,CAAS,EAAT;AAClB,8BAAiB,UAAC,CAAU,EAAV;AAClB,8BAAiB,oBAAC,CAAoB,8BAApB;AAClB,8BAAiB,eAAC,CAAe,wCAAf;AAClB,8BAAiB,cAAC,CAAc,2CAAd;AAClB,8BAAiB,gBAAC,CAAgB,qBAAhB;AAClB,8BAAiB,eAAC,CAAe,4CAAf;AAClB,8BAAiB,gBAAC,CAAc,EAAd;AAClB,8BAAiB,SAAC,CAAS,QAAT;AAClB,8BAAiB,QAAC,CAAQ,wBAAR;AAClB,8BAAiB,eAAC,CAAe,yCAAf;AAClB,8BAAiB,mBAAC,CAAmB,gDAAnB;AAClB,8BAAiB,QAAC,CAAQ,4CAAR;AAClB,8BAAiB,QAAC,CAAQ,EAAR;AAClB,8BAAiB,QAAC,CAAQ,EAAR;AAClB,8BAAiB,aAAC,CAAa,gBAAb;AAClB,8BAAiB,cAAC,CAAc,mBAAd;AAClB,mCAAsB,mBAAmB,CAAC,IAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,QAAC,CAAQ,GAAR;AACvB,mCAAsB,OAAC,CAAO,GAAP;AACvB,mCAAsB,SAAC,CAAS,GAAT;AACvB,mCAAsB,UAAC,CAAU,GAAV;AACvB,mCAAsB,eAAC,CAAe,0CAAf;AACvB,mCAAsB,oBAAC,CAAoB,8BAApB;AACvB,mCAAsB,eAAC,CAAe,yCAAf;AACvB,mCAAsB,mBAAC,CAAmB,gDAAnB;AACvB,mCAAsB,iBAAC,CAAiB,sBAAjB;AACvB,mCAAsB,OAAM;AAC5B;AACE,qCAAsB,OAAM;AAC5B,qCAAsB,OAAM,IAAI,CAAC,wBAAD;AAFlC;AAIE,qCAAsB,OAAM;AAJ9B;AAMA,mCAAsB,aAAC,CAAa,CAAb;AACvB,mCAAsB,YAAC,CAAY,CAAZ;AACvB,mCAAsB,cAAC,CAAc,2CAAd;AACvB,mCAAsB,gBAAC,CAAgB,qBAAhB;AACvB,mCAAsB,aAAC,CAAa,qBAAb;AACvB,mCAAsB,cAAC,CAAc,mBAAd;AACvB,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,CAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,4BAAe,SAAC,CAAS,GAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,oBAAC,CAAoB,8BAApB;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,mBAAC,CAAmB,gDAAnB;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,iBAAC,CAAiB,sBAAjB;AAChB,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,cAAC,CAAc,2CAAd;AAChB,4BAAe,gBAAC,CAAgB,qBAAhB;AAChB,uBAAQ,CAAC,qBAAiB,KAAM,UAAW,sBAAnC;AACR,4BAAe,aAAC,CAAa,CAAC,CAAd;AAChB,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,QAAC,CAAQ,CAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,GAAT;AACb,yBAAY,UAAC,CAAU,EAAV;AACb,yBAAY,oBAAC,CAAoB,8BAApB;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,mBAAC,CAAmB,gDAAnB;AACb,yBAAY,eAAC,CAAe,wCAAf;AACb,yBAAY,iBAAC,CAAiB,sBAAjB;AACb,yBAAY,cAAC,CAAc,2CAAd;AACb,yBAAY,gBAAC,CAAgB,qBAAhB;AACb,yBAAY,aAAC,CAAa,aAAb;AACb,yBAAY,cAAC,CAAc,mBAAd;AACb,yBAAY,YAAC,CAAY,aAAZ;AACb,yBAAY,aAAC,CAAa,aAAb;AACb,yBAAY,cAAC,CAAc,aAAG,kBAAjB;AACb,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,CAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,4BAAe,SAAC,CAAS,EAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,WAAC,CAAW,OAAX;AAChB,4BAAe,gBAAC,CAAc,CAAd;AAChB,4BAAe,oBAAC,CAAoB,mCAApB;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,mBAAC,CAAmB,gDAAnB;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,iBAAC,CAAiB,sBAAjB;AAChB,4BAAe,WAAC,CAAW,KAAX;AAChB,4BAAe,cAAC,CAAc,wCAAd;AAChB,4BAAe,gBAAC,CAAgB,sBAAhB;AAChB,uBAAQ,CAAC,qBAAiB,KAAM,UAAW,sBAAnC;AACR,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,CAAR;AACZ,wBAAW,OAAC,CAAO,EAAP;AACZ,wBAAW,SAAC,CAAS,GAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,oBAAC,CAAoB,OAApB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,cAAC,CAAc,2CAAd;AACZ,wBAAW,eAAC,CAAe,QAAf;AACZ,wBAAW,gBAAC,CAAc,CAAd;AACZ,wBAAW,aAAC,CAAa,KAAb;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,0BAAC,CAA0B,YAA1B;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,wBAAW,yBAAC,CAAyB,sBAAzB;AACZ,wBAAW,QAAO,8BAAlB,GAAmD;AACnD,wBAAW,QAAO,wBAAlB,GAA6C;AAC7C,wBAAW,QAAO,0BAAlB,GAA+C;AAC/C,wBAAW,QAAO,uBAAlB,GAA4C;AAC5C,wBAAW,QAAO,4BAAlB,GAAiD;AACjD,wBAAW,QAAO,sBAAlB,GAA2C;AAC3C,wBAAW,QAAO,sBAAlB,GAA2C;AAC3C,wBAAW,QAAO,0BAAlB,GAA+C;AAC/C,wBAAW,QAAO,0BAAlB,GAA+C;AAC/C,wBAAW,QAAO,8BAAlB,GAAmD;AACnD,wBAAW,QAAO,wBAAlB,GAA6C;AAC7C,wBAAW,QAAO,0BAAlB,GAA+C;AAC/C,wBAAW,QAAO,uBAAlB,GAA4C;AAC5C,wBAAW,QAAO,4BAAlB,GAAiD;AACjD,wBAAW,QAAO,sBAAlB,GAA2C;AAC3C,wBAAW,QAAO,sBAAlB,GAA2C;AAC3C,wBAAW,QAAO,0BAAlB,GAA+C;AAC/C,wBAAW,QAAO,0BAAlB,GAA+C;AAC/C,wBAAW,YAAC,CAAY,IAAZ;AACZ,wBAAW,YAAC,CAAY,CAAZ;AACZ,wBAAW,YAAC,CAAY,EAAZ;AACZ,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,mBAAX,GAAiC;AACjC,wBAAW,WAAX,GAAyB;AACzB,wBAAW,YAAX,GAA0B;AAC1B,wBAAW,WAAX,GAAyB;AACzB,wBAAW,aAAX,GAA2B;AAC3B,uBAAQ,CAAC,iBAAa,KAAM,cAAe,sBAAnC;AACR,wBAAW,iBAAC,CAAiB,mBAAjB;AACZ,wBAAW,cAAC,CAAc,aAAG,oBAAjB;AACZ,wBAAW,UAAX,GAAwB;AACxB,wBAAW,QAAC,CAAQ,EAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,0BAAa,mBAAmB,CAAC,gBAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,6BAAgB,mBAAmB,CAAC,gBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,UAAhB,GAA6B;AAC7B,8BAAiB,mBAAmB,CAAC,gBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,2CAA8B,mBAAmB,CAAC,gBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,2CAA8B,mBAAmB,CAAC,gBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,GAAR;AAC/B,6BAAgB,mBAAmB,CAAC,gBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,mCAAsB,mBAAmB,CAAC,gBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,qCAAwB,mBAAmB,CAAC,gBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,mBAAmB,CAAC,gBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,mBAAmB,CAAC,gBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,gCAAmB,mBAAmB,CAAC,gBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,wCAA2B,mBAAmB,CAAC,gBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,sCAAyB,mBAAmB,CAAC,gBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,iBAAC,CAAiB,OAAjB;AAC1B,sCAAyB,mBAAmB,CAAC,gBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,iBAAC,CAAiB,OAAjB;AAC1B,6BAAgB,mBAAmB,CAAC,gBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,oCAAuB,mBAAmB,CAAC,gBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,mCAAsB,mBAAmB,CAAC,gBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,wCAA2B,mBAAmB,CAAC,gBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,0CAA6B,mBAAmB,CAAC,gBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,iCAAoB,mBAAmB,CAAC,gBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,+BAAkB,mBAAmB,CAAC,gBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,8BAAiB,mBAAmB,CAAC,gBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,mBAAmB,CAAC,gBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,6BAAgB,mBAAmB,CAAC,gBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,0CAA6B,mBAAmB,CAAC,gBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,gCAAmB,mBAAmB,CAAC,gBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,+BAAkB,mBAAmB,CAAC,gBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,sCAAyB,mBAAmB,CAAC,gBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,mCAAsB,mBAAmB,CAAC,gBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,kCAAqB,mBAAmB,CAAC,gBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,sCAAyB,mBAAmB,CAAC,gBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,2BAAc,mBAAmB,CAAC,gBAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,kCAAqB,mBAAmB,CAAC,gBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,kCAAqB,mBAAmB,CAAC,gBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,+CAAkC,mBAAmB,CAAC,gBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,yCAA4B,mBAAmB,CAAC,gBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,gCAAmB,mBAAmB,CAAC,gBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,uCAA0B,mBAAmB,CAAC,gBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,wCAA2B,mBAAmB,CAAC,gBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,kCAAqB,mBAAmB,CAAC,gBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,0CAA6B,mBAAmB,CAAC,gBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,6BAAgB,mBAAmB,CAAC,gBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,iCAAoB,mBAAmB,CAAC,gBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,oCAAuB,mBAAmB,CAAC,gBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,8CAAiC,mBAAmB,CAAC,gBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,GAAR;AAClC,oCAAuB,mBAAmB,CAAC,gBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,uCAA0B,mBAAmB,CAAC,gBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,wCAA2B,mBAAmB,CAAC,gBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,+BAAkB,mBAAmB,CAAC,gBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,+BAAkB,mBAAmB,CAAC,gBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,sCAAyB,mBAAmB,CAAC,gBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,wCAA2B,mBAAmB,CAAC,gBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,sCAAyB,mBAAmB,CAAC,gBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,GAAR;AAC1B,6BAAgB,mBAAmB,CAAC,gBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,0CAA6B,mBAAmB,CAAC,gBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,8BAAiB,mBAAmB,CAAC,gBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,4BAAe,mBAAmB,CAAC,gBAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,qCAAwB,mBAAmB,CAAC,gBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,mBAAmB,CAAC,gBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,+BAAkB,mBAAmB,CAAC,gBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,qCAAwB,mBAAmB,CAAC,gBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,mCAAsB,mBAAmB,CAAC,gBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,+BAAkB,mBAAmB,CAAC,gBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,iCAAoB,mBAAmB,CAAC,gBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,kCAAqB,mBAAmB,CAAC,gBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,yCAA4B,mBAAmB,CAAC,gBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,2CAA8B,mBAAmB,CAAC,gBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,4BAAe,mBAAmB,CAAC,gBAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,sCAAyB,mBAAmB,CAAC,gBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,6BAAgB,mBAAmB,CAAC,gBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,kCAAqB,mBAAmB,CAAC,gBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,4CAA+B,mBAAmB,CAAC,gBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,GAAR;AAChC,+BAAkB,mBAAmB,CAAC,gBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,kCAAqB,mBAAmB,CAAC,gBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,wCAA2B,mBAAmB,CAAC,gBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,GAAR;AAC5B,sCAAyB,mBAAmB,CAAC,gBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAC,CAAW,gBAAX;AACf,uBAAQ,CAAC,oBAAgB,KAAM,gBAAiB,2BAAxC;AACR,2BAAc,QAAC,CAAQ,EAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,WAAT,GAAuB;AACvB,sBAAS,iBAAC,CAAiB,SAAjB;AACV,sBAAS,cAAC,CAAc,aAAG,oBAAjB;AACV,sBAAS,iBAAC,CAAiB,CAAjB;AACV,sBAAS,UAAT,GAAsB;AACtB,sBAAS,QAAC,CAAQ,GAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,UAAnB,GAAgC;AAChC,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,UAApB,GAAiC;AACjC,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,UAAtB,GAAmC;AACnC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,yCAA4B,mBAAmB,CAAC,cAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,yCAA4B,mBAAmB,CAAC,cAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,GAAR;AAC7B,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,GAAR;AACpB,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,4BAAe,mBAAmB,CAAC,cAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,mBAAmB,CAAC,cAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,2BAAc,mBAAmB,CAAC,cAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,qCAAwB,mBAAmB,CAAC,cAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,uCAA0B,mBAAmB,CAAC,cAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,mBAAmB,CAAC,cAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,2BAAc,mBAAmB,CAAC,cAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,6CAAgC,mBAAmB,CAAC,cAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,4CAA+B,mBAAmB,CAAC,cAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,GAAR;AAChC,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,yBAAY,mBAAmB,CAAC,cAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,QAAC,CAAQ,EAAR;AACb,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,qCAAwB,mBAAmB,CAAC,cAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,0CAA6B,mBAAmB,CAAC,cAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,2BAAc,mBAAmB,CAAC,cAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,4CAA+B,mBAAmB,CAAC,cAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,qCAAwB,mBAAmB,CAAC,cAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,yCAA4B,mBAAmB,CAAC,cAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,CAAR;AACvB,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,0CAA6B,mBAAmB,CAAC,cAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,mBAAmB,CAAC,cAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,yCAA4B,mBAAmB,CAAC,cAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,qCAAwB,mBAAmB,CAAC,cAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,uCAA0B,mBAAmB,CAAC,cAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,4CAA+B,mBAAmB,CAAC,cAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,4BAAe,mBAAmB,CAAC,cAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,4CAA+B,mBAAmB,CAAC,cAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,gDAAmC,mBAAmB,CAAC,cAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,yCAA4B,mBAAmB,CAAC,cAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,uCAA0B,mBAAmB,CAAC,cAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,6CAAgC,mBAAmB,CAAC,cAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,GAAR;AACjC,iDAAoC,mBAAmB,CAAC,cAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,QAAC,CAAQ,GAAR;AACrC,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,0BAAa,mBAAmB,CAAC,cAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,0BAAa,mBAAmB,CAAC,cAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,GAAR;AAC1B,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,qCAAwB,mBAAmB,CAAC,cAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,mBAAmB,CAAC,cAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,wCAA2B,mBAAmB,CAAC,cAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,0CAA6B,mBAAmB,CAAC,cAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,mBAAmB,CAAC,cAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,4BAAe,mBAAmB,CAAC,cAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,0CAA6B,mBAAmB,CAAC,cAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,yBAAY,mBAAmB,CAAC,cAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,gDAAmC,mBAAmB,CAAC,cAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,gDAAmC,QAAC,CAAQ,GAAR;AACpC,6CAAgC,mBAAmB,CAAC,cAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,4BAAe,mBAAmB,CAAC,cAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,CAAR;AAChB,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,4CAA+B,mBAAmB,CAAC,cAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,iBAAC,CAAiB,qBAAjB;AAChB,4BAAe,cAAC,CAAc,aAAG,oBAAjB;AAChB,4BAAe,iBAAC,CAAiB,CAAjB;AAChB,4BAAe,aAAf,GAA+B;AAC/B,4BAAe,uBAAf,GAAyC;AACzC,4BAAe,QAAC,CAAQ,GAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,yCAA4B,mBAAmB,CAAC,oBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,UAA5B,GAAyC;AACzC,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,UAA3B,GAAwC;AACxC,yCAA4B,mBAAmB,CAAC,oBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,oCAAuB,mBAAmB,CAAC,oBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,sCAAyB,mBAAmB,CAAC,oBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,uCAA0B,mBAAmB,CAAC,oBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,8CAAiC,mBAAmB,CAAC,oBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,EAAR;AAClC,0CAA6B,mBAAmB,CAAC,oBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,+CAAkC,mBAAmB,CAAC,oBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,EAAR;AACnC,sDAAyC,mBAAmB,CAAC,oBAAD;AAC5D,sDAAyC,QAAC,CAAQ,2CAAR;AAC1C,sDAAyC,WAAzC,GAAuD;AACvD,sDAAyC,QAAC,CAAQ,EAAR;AAC1C,4DAA+C,mBAAmB,CAAC,oBAAD;AAClE,4DAA+C,QAAC,CAAQ,iDAAR;AAChD,4DAA+C,WAA/C,GAA6D;AAC7D,4DAA+C,QAAC,CAAQ,EAAR;AAChD,4DAA+C,mBAAmB,CAAC,oBAAD;AAClE,4DAA+C,QAAC,CAAQ,iDAAR;AAChD,4DAA+C,WAA/C,GAA6D;AAC7D,4DAA+C,QAAC,CAAQ,GAAR;AAChD,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,WAAR,GAAsB;AACtB,qBAAQ,iBAAC,CAAiB,SAAjB;AACT,qBAAQ,cAAC,CAAc,aAAG,oBAAjB;AACT,qBAAQ,iBAAC,CAAiB,CAAjB;AACT,qBAAQ,aAAR,GAAwB;AACxB,qBAAQ,QAAC,CAAQ,GAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,UAApB,GAAiC;AACjC,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,UAAtB,GAAmC;AACnC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,oCAAuB,mBAAmB,CAAC,aAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,yCAA4B,mBAAmB,CAAC,aAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,qCAAwB,mBAAmB,CAAC,aAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,0BAAa,mBAAmB,CAAC,aAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,UAAb,GAA0B;AAC1B,yBAAY,mBAAmB,CAAC,aAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,6BAAgB,mBAAmB,CAAC,aAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,4BAAe,mBAAmB,CAAC,aAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,EAAR;AAChB,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,wBAAW,mBAAmB,CAAC,aAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,wBAAW,QAAC,CAAQ,EAAR;AACZ,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,CAAR;AACvB,yBAAY,mBAAmB,CAAC,aAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,QAAC,CAAQ,EAAR;AACb,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,GAAR;AACrB,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,0BAAa,mBAAmB,CAAC,aAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,QAAC,CAAQ,EAAR;AACd,gCAAmB,mBAAmB,CAAC,aAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,GAAR;AACpB,wCAA2B,mBAAmB,CAAC,aAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,GAAR;AAC5B,sCAAyB,mBAAmB,CAAC,aAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,0CAA6B,mBAAmB,CAAC,aAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,GAAR;AAC9B,wCAA2B,mBAAmB,CAAC,aAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,GAAR;AAC5B,uCAA0B,mBAAmB,CAAC,aAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,sCAAyB,mBAAmB,CAAC,aAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,wBAAW,mBAAmB,CAAC,aAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,wBAAW,QAAC,CAAQ,EAAR;AACZ,6BAAgB,mBAAmB,CAAC,aAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,GAAR;AACjB,qCAAwB,mBAAmB,CAAC,aAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,GAAR;AACzB,0BAAa,mBAAmB,CAAC,aAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,QAAC,CAAQ,GAAR;AACd,wCAA2B,mBAAmB,CAAC,aAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,mBAAmB,CAAC,aAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,qCAAwB,mBAAmB,CAAC,aAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,mBAAmB,CAAC,aAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,gCAAmB,mBAAmB,CAAC,aAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,8BAAiB,mBAAmB,CAAC,aAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,4BAAe,mBAAmB,CAAC,aAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,EAAR;AAChB,0BAAa,mBAAmB,CAAC,aAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,wCAA2B,mBAAmB,CAAC,aAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,4BAAe,mBAAmB,CAAC,aAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,gCAAmB,mBAAmB,CAAC,aAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,uCAA0B,mBAAmB,CAAC,aAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,GAAR;AAC3B,wCAA2B,mBAAmB,CAAC,aAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,qCAAwB,mBAAmB,CAAC,aAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,sCAAyB,mBAAmB,CAAC,aAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,8BAAiB,mBAAmB,CAAC,aAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,GAAR;AAClB,oCAAuB,mBAAmB,CAAC,aAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,gCAAmB,mBAAmB,CAAC,aAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,sCAAyB,mBAAmB,CAAC,aAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,wCAA2B,mBAAmB,CAAC,aAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,4BAAe,mBAAmB,CAAC,aAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,CAAR;AAChB,4BAAe,mBAAmB,CAAC,aAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,EAAR;AAChB,qCAAwB,mBAAmB,CAAC,aAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,oCAAuB,mBAAmB,CAAC,aAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,yBAAY,mBAAmB,CAAC,aAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,QAAC,CAAQ,EAAR;AACb,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,gCAAmB,mBAAmB,CAAC,aAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,6BAAgB,mBAAmB,CAAC,aAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,4BAAe,mBAAmB,CAAC,aAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,gCAAmB,mBAAmB,CAAC,aAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,sCAAyB,mBAAmB,CAAC,aAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,qCAAwB,mBAAmB,CAAC,aAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,0BAAa,mBAAmB,CAAC,aAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,QAAC,CAAQ,GAAR;AACd,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,wCAA2B,mBAAmB,CAAC,aAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,8BAAiB,mBAAmB,CAAC,aAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,6BAAgB,mBAAmB,CAAC,aAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,oCAAuB,mBAAmB,CAAC,aAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,GAAR;AACxB,sCAAyB,mBAAmB,CAAC,aAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,8BAAiB,mBAAmB,CAAC,aAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,GAAR;AAClB,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,qCAAwB,mBAAmB,CAAC,aAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,6BAAgB,mBAAmB,CAAC,aAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,6BAAgB,mBAAmB,CAAC,aAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,CAAR;AACjB,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,8CAAiC,mBAAmB,CAAC,aAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,uCAA0B,mBAAmB,CAAC,aAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,GAAR;AAC3B,2CAA8B,mBAAmB,CAAC,aAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,yCAA4B,mBAAmB,CAAC,aAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,uCAA0B,mBAAmB,CAAC,aAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,4BAAe,mBAAmB,CAAC,aAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,mBAAmB,CAAC,aAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,sCAAyB,mBAAmB,CAAC,aAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,oCAAuB,mBAAmB,CAAC,aAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,GAAR;AACnB,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,GAAR;AACnB,uCAA0B,mBAAmB,CAAC,aAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,qCAAwB,mBAAmB,CAAC,aAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,uCAA0B,mBAAmB,CAAC,aAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,qCAAwB,mBAAmB,CAAC,aAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,4BAAe,mBAAmB,CAAC,aAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,mBAAmB,CAAC,aAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,2BAAc,mBAAmB,CAAC,aAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,uBAAU,mBAAmB,CAAC,aAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,WAAV,GAAwB;AACxB,8BAAiB,mBAAmB,CAAC,aAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,GAAR;AAClB,wCAA2B,mBAAmB,CAAC,aAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,mBAAmB,CAAC,aAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,mBAAmB,CAAC,aAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,uCAA0B,mBAAmB,CAAC,aAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,8BAAiB,mBAAmB,CAAC,aAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,oCAAuB,mBAAmB,CAAC,aAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,8BAAiB,mBAAmB,CAAC,aAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,wCAA2B,mBAAmB,CAAC,aAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,0CAA6B,mBAAmB,CAAC,aAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,uCAA0B,mBAAmB,CAAC,aAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,wCAA2B,mBAAmB,CAAC,aAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,0BAAa,mBAAmB,CAAC,aAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,QAAC,CAAQ,EAAR;AACd,yCAA4B,mBAAmB,CAAC,aAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,GAAR;AAC7B,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,8BAAiB,mBAAmB,CAAC,aAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,oCAAuB,mBAAmB,CAAC,aAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,gCAAmB,mBAAmB,CAAC,aAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,GAAR;AACpB,6BAAgB,mBAAmB,CAAC,aAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,GAAR;AACjB,gCAAmB,mBAAmB,CAAC,aAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,4BAAe,mBAAmB,CAAC,aAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,6CAAgC,mBAAmB,CAAC,aAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,qCAAwB,mBAAmB,CAAC,aAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,GAAR;AA5nD3B;AA8nDE,uBAAU;AACV,uBAAU;AACV,4BAAe;AACf,4BAAe;AACf,gCAAmB;AACnB,qBAAQ;AACR,sBAAS;AACT,mCAAsB;AACtB,qBAAQ;AACR,6BAAgB;AAChB,gCAAmB;AACnB,8BAAiB;AACjB,8BAAiB;AACjB,mCAAsB;AACtB,4BAAe;AACf,yBAAY;AACZ,4BAAe;AACf,wBAAW;AACX,wBAAW;AACX,0BAAa;AACb,6BAAgB;AAChB,8BAAiB;AACjB,2CAA8B;AAC9B,2CAA8B;AAC9B,6BAAgB;AAChB,mCAAsB;AACtB,qCAAwB;AACxB,qCAAwB;AACxB,qCAAwB;AACxB,gCAAmB;AACnB,wCAA2B;AAC3B,sCAAyB;AACzB,sCAAyB;AACzB,6BAAgB;AAChB,oCAAuB;AACvB,mCAAsB;AACtB,wCAA2B;AAC3B,0CAA6B;AAC7B,iCAAoB;AACpB,+BAAkB;AAClB,8BAAiB;AACjB,8BAAiB;AACjB,6BAAgB;AAChB,0CAA6B;AAC7B,gCAAmB;AACnB,+BAAkB;AAClB,sCAAyB;AACzB,mCAAsB;AACtB,kCAAqB;AACrB,sCAAyB;AACzB,2BAAc;AACd,kCAAqB;AACrB,kCAAqB;AACrB,+CAAkC;AAClC,yCAA4B;AAC5B,gCAAmB;AACnB,uCAA0B;AAC1B,wCAA2B;AAC3B,kCAAqB;AACrB,0CAA6B;AAC7B,6BAAgB;AAChB,iCAAoB;AACpB,oCAAuB;AACvB,8CAAiC;AACjC,oCAAuB;AACvB,uCAA0B;AAC1B,wCAA2B;AAC3B,+BAAkB;AAClB,+BAAkB;AAClB,sCAAyB;AACzB,wCAA2B;AAC3B,sCAAyB;AACzB,6BAAgB;AAChB,0CAA6B;AAC7B,8BAAiB;AACjB,4BAAe;AACf,qCAAwB;AACxB,qCAAwB;AACxB,+BAAkB;AAClB,qCAAwB;AACxB,mCAAsB;AACtB,+BAAkB;AAClB,iCAAoB;AACpB,kCAAqB;AACrB,yCAA4B;AAC5B,2CAA8B;AAC9B,4BAAe;AACf,sCAAyB;AACzB,6BAAgB;AAChB,kCAAqB;AACrB,4CAA+B;AAC/B,+BAAkB;AAClB,kCAAqB;AACrB,wCAA2B;AAC3B,sCAAyB;AACzB,2BAAc;AACd,sBAAS;AACT,gCAAmB;AACnB,iCAAoB;AACpB,8BAAiB;AACjB,iCAAoB;AACpB,sCAAyB;AACzB,mCAAsB;AACtB,yCAA4B;AAC5B,yCAA4B;AAC5B,mCAAsB;AACtB,oCAAuB;AACvB,gCAAmB;AACnB,6BAAgB;AAChB,4BAAe;AACf,4BAAe;AACf,2BAAc;AACd,mCAAsB;AACtB,8BAAiB;AACjB,mCAAsB;AACtB,kCAAqB;AACrB,qCAAwB;AACxB,kCAAqB;AACrB,uCAA0B;AAC1B,uCAA0B;AAC1B,6BAAgB;AAChB,kCAAqB;AACrB,2BAAc;AACd,kCAAqB;AACrB,oCAAuB;AACvB,sCAAyB;AACzB,kCAAqB;AACrB,kCAAqB;AACrB,kCAAqB;AACrB,kCAAqB;AACrB,kCAAqB;AACrB,6CAAgC;AAChC,mCAAsB;AACtB,+BAAkB;AAClB,kCAAqB;AACrB,gCAAmB;AACnB,gCAAmB;AACnB,4CAA+B;AAC/B,mCAAsB;AACtB,mCAAsB;AACtB,mCAAsB;AACtB,mCAAsB;AACtB,mCAAsB;AACtB,sCAAyB;AACzB,yBAAY;AACZ,+BAAkB;AAClB,kCAAqB;AACrB,kCAAqB;AACrB,iCAAoB;AACpB,oCAAuB;AACvB,sCAAyB;AACzB,kCAAqB;AACrB,qCAAwB;AACxB,0CAA6B;AAC7B,sCAAyB;AACzB,2BAAc;AACd,8BAAiB;AACjB,8BAAiB;AACjB,4CAA+B;AAC/B,qCAAwB;AACxB,yCAA4B;AAC5B,gCAAmB;AACnB,oCAAuB;AACvB,sCAAyB;AACzB,oCAAuB;AACvB,mCAAsB;AACtB,+BAAkB;AAClB,0CAA6B;AAC7B,0CAA6B;AAC7B,yCAA4B;AAC5B,mCAAsB;AACtB,qCAAwB;AACxB,uCAA0B;AAC1B,oCAAuB;AACvB,4CAA+B;AAC/B,6BAAgB;AAChB,gCAAmB;AACnB,gCAAmB;AACnB,4BAAe;AACf,gCAAmB;AACnB,6BAAgB;AAChB,4CAA+B;AAC/B,gDAAmC;AACnC,oCAAuB;AACvB,mCAAsB;AACtB,sCAAyB;AACzB,yCAA4B;AAC5B,+BAAkB;AAClB,sCAAyB;AACzB,uCAA0B;AAC1B,6CAAgC;AAChC,iDAAoC;AACpC,oCAAuB;AACvB,mCAAsB;AACtB,gCAAmB;AACnB,gCAAmB;AACnB,gCAAmB;AACnB,0BAAa;AACb,iCAAoB;AACpB,0BAAa;AACb,sCAAyB;AACzB,gCAAmB;AACnB,mCAAsB;AACtB,mCAAsB;AACtB,8BAAiB;AACjB,kCAAqB;AACrB,mCAAsB;AACtB,mCAAsB;AACtB,qCAAwB;AACxB,qCAAwB;AACxB,wCAA2B;AAC3B,0CAA6B;AAC7B,0CAA6B;AAC7B,4BAAe;AACf,iCAAoB;AACpB,0CAA6B;AAC7B,8BAAiB;AACjB,yBAAY;AACZ,gDAAmC;AACnC,6CAAgC;AAChC,4BAAe;AACf,iCAAoB;AACpB,4CAA+B;AAC/B,4BAAe;AACf,yCAA4B;AAC5B,wCAA2B;AAC3B,yCAA4B;AAC5B,oCAAuB;AACvB,sCAAyB;AACzB,wCAA2B;AAC3B,uCAA0B;AAC1B,8CAAiC;AACjC,0CAA6B;AAC7B,+CAAkC;AAClC,sDAAyC;AACzC,4DAA+C;AAC/C,4DAA+C;AAC/C,qBAAQ;AACR,iCAAoB;AACpB,mCAAsB;AACtB,oCAAuB;AACvB,yCAA4B;AAC5B,qCAAwB;AACxB,0BAAa;AACb,yBAAY;AACZ,kCAAqB;AACrB,6BAAgB;AAChB,4BAAe;AACf,iCAAoB;AACpB,wBAAW;AACX,mCAAsB;AACtB,yBAAY;AACZ,iCAAoB;AACpB,iCAAoB;AACpB,0BAAa;AACb,gCAAmB;AACnB,wCAA2B;AAC3B,sCAAyB;AACzB,0CAA6B;AAC7B,wCAA2B;AAC3B,uCAA0B;AAC1B,sCAAyB;AACzB,wBAAW;AACX,6BAAgB;AAChB,qCAAwB;AACxB,0BAAa;AACb,wCAA2B;AAC3B,wCAA2B;AAC3B,iCAAoB;AACpB,iCAAoB;AACpB,+BAAkB;AAClB,qCAAwB;AACxB,qCAAwB;AACxB,mCAAsB;AACtB,gCAAmB;AACnB,iCAAoB;AACpB,+BAAkB;AAClB,iCAAoB;AACpB,+BAAkB;AAClB,mCAAsB;AACtB,kCAAqB;AACrB,8BAAiB;AACjB,4BAAe;AACf,0BAAa;AACb,wCAA2B;AAC3B,4BAAe;AACf,gCAAmB;AACnB,uCAA0B;AAC1B,wCAA2B;AAC3B,qCAAwB;AACxB,iCAAoB;AACpB,sCAAyB;AACzB,8BAAiB;AACjB,oCAAuB;AACvB,gCAAmB;AACnB,mCAAsB;AACtB,sCAAyB;AACzB,kCAAqB;AACrB,wCAA2B;AAC3B,4BAAe;AACf,4BAAe;AACf,qCAAwB;AACxB,oCAAuB;AACvB,kCAAqB;AACrB,+BAAkB;AAClB,mCAAsB;AACtB,yBAAY;AACZ,iCAAoB;AACpB,gCAAmB;AACnB,iCAAoB;AACpB,kCAAqB;AACrB,6BAAgB;AAChB,mCAAsB;AACtB,iCAAoB;AACpB,iCAAoB;AACpB,iCAAoB;AACpB,kCAAqB;AACrB,iCAAoB;AACpB,+BAAkB;AAClB,4BAAe;AACf,gCAAmB;AACnB,sCAAyB;AACzB,qCAAwB;AACxB,kCAAqB;AACrB,kCAAqB;AACrB,kCAAqB;AACrB,0BAAa;AACb,iCAAoB;AACpB,wCAA2B;AAC3B,iCAAoB;AACpB,8BAAiB;AACjB,6BAAgB;AAChB,oCAAuB;AACvB,sCAAyB;AACzB,8BAAiB;AACjB,mCAAsB;AACtB,+BAAkB;AAClB,+BAAkB;AAClB,qCAAwB;AACxB,6BAAgB;AAChB,mCAAsB;AACtB,mCAAsB;AACtB,6BAAgB;AAChB,iCAAoB;AACpB,8CAAiC;AACjC,uCAA0B;AAC1B,2CAA8B;AAC9B,+BAAkB;AAClB,kCAAqB;AACrB,yCAA4B;AAC5B,uCAA0B;AAC1B,4BAAe;AACf,4BAAe;AACf,sCAAyB;AACzB,oCAAuB;AACvB,+BAAkB;AAClB,+BAAkB;AAClB,uCAA0B;AAC1B,qCAAwB;AACxB,+BAAkB;AAClB,uCAA0B;AAC1B,qCAAwB;AACxB,4BAAe;AACf,4BAAe;AACf,2BAAc;AACd,uBAAU;AACV,8BAAiB;AACjB,wCAA2B;AAC3B,wCAA2B;AAC3B,wCAA2B;AAC3B,mCAAsB;AACtB,uCAA0B;AAC1B,8BAAiB;AACjB,oCAAuB;AACvB,kCAAqB;AACrB,8BAAiB;AACjB,kCAAqB;AACrB,wCAA2B;AAC3B,0CAA6B;AAC7B,uCAA0B;AAC1B,+BAAkB;AAClB,mCAAsB;AACtB,wCAA2B;AAC3B,0BAAa;AACb,yCAA4B;AAC5B,kCAAqB;AACrB,8BAAiB;AACjB,mCAAsB;AACtB,oCAAuB;AACvB,gCAAmB;AACnB,6BAAgB;AAChB,gCAAmB;AACnB,4BAAe;AACf,6CAAgC;AAChC,qCAAwB;AAxgE1B;AA3xBuC;AAppCtB;;;AACf,6B9Ju7BY,8C8Jv7BZ;AACA,6B9Js7BY,8C8Jt7BZ;AACA,kC/JukBK,uC+JvkBL;AACA,kC/JskBK,uC+JtkBL;AACA,sC/JqkBK,uC+JrkBL;AACA,8BvHDc,kDuHCd;AACA,gC7IqdW,6B6IrdX;AACA,mC7IuiBS,2B6IviBT;AACA,oC7IsiBS,2B6ItiBT;AACA,iD7I0ZU,4B6I1ZV;AACA,iD7IyZU,4B6IzZV;AACA,mC7ImiBS,2B6IniBT;AACA,yC7IuZU,4B6IvZV;AACA,2C7IiiBS,2B6IjiBT;AACA,2C7IgiBS,2B6IhiBT;AACA,2CzIRkB,0DyIQlB;AACA,sC7I2cW,6B6I3cX;AACA,8C7IylBY,8B6IzlBZ;AACA,4C7IwlBY,8B6IxlBZ;AACA,4C7IulBY,8B6IvlBZ;AACA,mC7I6jBW,6B6I7jBX;AACA,0C7I8YU,4B6I9YV;AACA,yC7I6YU,4B6I7YV;AACA,8C7I4YU,4B6I5YV;AACA,gD7I2YU,4B6I3YV;AACA,uC7I0YU,4B6I1YV;AACA,qC7IohBS,2B6IphBT;AACA,oC7ImhBS,2B6InhBT;AACA,oC7IkhBS,2B6IlhBT;AACA,mC7IihBS,2B6IjhBT;AACA,gD7IghBS,2B6IhhBT;AACA,sC7I+gBS,2B6I/gBT;AACA,qC7I8gBS,2B6I9gBT;AACA,4C7I6gBS,2B6I7gBT;AACA,yC7I4gBS,2B6I5gBT;AACA,wC7I2gBS,2B6I3gBT;AACA,4C7I0gBS,2B6I1gBT;AACA,iC7IygBS,2B6IzgBT;AACA,wC7I6XU,4B6I7XV;AACA,wC7I4XU,4B6I5XV;AACA,qD7IkkBY,8B6IlkBZ;AACA,+C7IqgBS,2B6IrgBT;AACA,sC7IogBS,2B6IpgBT;AACA,6C7ImgBS,2B6IngBT;AACA,8C7IkgBS,2B6IlgBT;AACA,wC7IigBS,2B6IjgBT;AACA,gD7ImiBW,6B6IniBX;AACA,mC7IoXU,4B6IpXV;AACA,uC7IiiBW,6B6IjiBX;AACA,0C7IgiBW,6B6IhiBX;AACA,oD7IiXU,4B6IjXV;AACA,0C7IgXU,4B6IhXV;AACA,6C7I+WU,4B6I/WV;AACA,8C7IyfS,2B6IzfT;AACA,qC7I6WU,4B6I7WV;AACA,qC7I4WU,4B6I5WV;AACA,4C7IsfS,2B6ItfT;AACA,8C7IqfS,2B6IrfT;AACA,4C7IyWU,4B6IzWV;AACA,mC7I+iBY,8B6I/iBZ;AACA,gD7IuWU,4B6IvWV;AACA,oC7IsWU,4B6ItWV;AACA,kC7IgfS,2B6IhfT;AACA,2C7I+eS,2B6I/eT;AACA,2C7I8eS,2B6I9eT;AACA,qC7IkWU,4B6IlWV;AACA,2C7I+gBW,6B6I/gBX;AACA,yC7IwZW,6B6IxZX;AACA,qC7IuZW,6B6IvZX;AACA,uC7I4gBW,6B6I5gBX;AACA,wC7I6VU,4B6I7VV;AACA,+C7IueS,2B6IveT;AACA,iD7I2VU,4B6I3VV;AACA,kC7IkZW,6B6IlZX;AACA,4C7IyVU,4B6IzVV;AACA,mC7IwVU,4B6IxVV;AACA,wC7I8hBY,8B6I9hBZ;AACA,kD7IsVU,4B6ItVV;AACA,qC7IgeS,2B6IheT;AACA,wC7I+dS,2B6I/dT;AACA,8C7ImVU,4B6InVV;AACA,4CzI1EkB,0DyI0ElB;AACA,iC7Ik+CS,2B6Il+CT;AACA,4BvH/Ec,kDuH+Ed;AACA,sCzI7EkB,0DyI6ElB;AACA,uCzI9EkB,0DyI8ElB;AACA,oCzI/EkB,0DyI+ElB;AACA,uCzIhFkB,0DyIgFlB;AACA,4CzIjFkB,0DyIiFlB;AACA,yC7I0UU,4B6I1UV;AACA,+C7IyUU,4B6IzUV;AACA,+C7IwUU,4B6IxUV;AACA,yC7IkdS,2B6IldT;AACA,0C7IidS,2B6IjdT;AACA,sC7IqUU,4B6IrUV;AACA,mC7I+cS,2B6I/cT;AACA,kC7I8cS,2B6I9cT;AACA,kC7I6cS,2B6I7cT;AACA,iC7I4cS,2B6I5cT;AACA,yC7IgUU,4B6IhUV;AACA,oC7I+TU,4B6I/TV;AACA,yC7IsXW,6B6ItXX;AACA,wC7IwcS,2B6IxcT;AACA,2C7IucS,2B6IvcT;AACA,wC7IscS,2B6ItcT;AACA,6C7IqcS,2B6IrcT;AACA,6C7IocS,2B6IpcT;AACA,mC7ImcS,2B6IncT;AACA,wC7IkcS,2B6IlcT;AACA,iC7IicS,2B6IjcT;AACA,wC7IgcS,2B6IhcT;AACA,0C7IoTU,4B6IpTV;AACA,4C7ImTU,4B6InTV;AACA,wC7I6bS,2B6I7bT;AACA,wC7I4bS,2B6I5bT;AACA,wC7I2bS,2B6I3bT;AACA,wC7I0bS,2B6I1bT;AACA,wC7IybS,2B6IzbT;AACA,mD7I2dW,6B6I3dX;AACA,yC7IubS,2B6IvbT;AACA,qC7IsbS,2B6ItbT;AACA,wC7IwdW,6B6IxdX;AACA,sC7IySU,4B6IzSV;AACA,sC7IwSU,4B6IxSV;AACA,kD7IuSU,4B6IvSV;AACA,yC7IsSU,4B6ItSV;AACA,yC7IqSU,4B6IrSV;AACA,yC7IoSU,4B6IpSV;AACA,yC7ImSU,4B6InSV;AACA,yC7IkSU,4B6IlSV;AACA,4C7IweY,8B6IxeZ;AACA,+B7IgSU,4B6IhSV;AACA,qC7I0aS,2B6I1aT;AACA,wC7I8RU,4B6I9RV;AACA,wC7IwaS,2B6IxaT;AACA,uC7IuaS,2B6IvaT;AACA,0C7I2RU,4B6I3RV;AACA,4C7IqaS,2B6IraT;AACA,wC7IyRU,4B6IzRV;AACA,2C7IscW,6B6ItcX;AACA,gD7IuRU,4B6IvRV;AACA,4C7IiaS,2B6IjaT;AACA,iC7I6UW,6B6I7UX;AACA,oC7IkcW,6B6IlcX;AACA,oC7IicW,6B6IjcX;AACA,kD7IkRU,4B6IlRV;AACA,2C7IiRU,4B6IjRV;AACA,+C7I2ZS,2B6I3ZT;AACA,sC7I6bW,6B6I7bX;AACA,0C7IyZS,2B6IzZT;AACA,4C7I6QU,4B6I7QV;AACA,0C7I0bW,6B6I1bX;AACA,yC7I2QU,4B6I3QV;AACA,qC7I0QU,4B6I1QV;AACA,gD7IoZS,2B6IpZT;AACA,gD7ImZS,2B6InZT;AACA,+C7IqbW,6B6IrbX;AACA,yC7IiZS,2B6IjZT;AACA,2C7IgZS,2B6IhZT;AACA,6C7I+YS,2B6I/YT;AACA,0C7I8YS,2B6I9YT;AACA,kD7I6YS,2B6I7YT;AACA,mC7IyTW,6B6IzTX;AACA,sC7I8aW,6B6I9aX;AACA,sC7I6aW,6B6I7aX;AACA,kC7I4aW,6B6I5aX;AACA,sC7IwYS,2B6IxYT;AACA,mC7IuYS,2B6IvYT;AACA,kD7IyaW,6B6IzaX;AACA,sD7IwaW,6B6IxaX;AACA,0C7IoYS,2B6IpYT;AACA,yC7ImYS,2B6InYT;AACA,4C7IuPU,4B6IvPV;AACA,+C7IiYS,2B6IjYT;AACA,qC7IgYS,2B6IhYT;AACA,4C7I2bY,8B6I3bZ;AACA,6C7I2SW,6B6I3SX;AACA,mD7IkPU,4B6IlPV;AACA,uD7IiPU,4B6IjPV;AACA,0C7IgPU,4B6IhPV;AACA,yC7I+OU,4B6I/OV;AACA,sC7IyXS,2B6IzXT;AACA,sC7IwXS,2B6IxXT;AACA,sC7IuXS,2B6IvXT;AACA,gC7I2OU,4B6I3OV;AACA,uC7IkSW,6B6IlSX;AACA,gC7IiSW,6B6IjSX;AACA,4C7IwOU,4B6IxOV;AACA,sC7I8aY,8B6I9aZ;AACA,yC7IsOU,4B6ItOV;AACA,yC7IqOU,4B6IrOV;AACA,oC7I+WS,2B6I/WT;AACA,wC7I2RW,6B6I3RX;AACA,yC7I0RW,6B6I1RX;AACA,yC7I4WS,2B6I5WT;AACA,2C7I2WS,2B6I3WT;AACA,2C7I0WS,2B6I1WT;AACA,8C7IyWS,2B6IzWT;AACA,gD7IwWS,2B6IxWT;AACA,gD7IuWS,2B6IvWT;AACA,kC7ImRW,6B6InRX;AACA,uC7IiaY,8B6IjaZ;AACA,gD7IyNU,4B6IzNV;AACA,oC7IsYW,6B6ItYX;AACA,+B7IkWS,2B6IlWT;AACA,sD7IsNU,4B6ItNV;AACA,mD7IqNU,4B6IrNV;AACA,kC7IoNU,4B6IpNV;AACA,uC7IiYW,6B6IjYX;AACA,kD7IkNU,4B6IlNV;AACA,kCvH9Mc,kDuH8Md;AACA,+CzI5MkB,0DyI4MlB;AACA,8CzI7MkB,0DyI6MlB;AACA,+C7IyVS,2B6IzVT;AACA,0C7I6MU,4B6I7MV;AACA,4C7IuVS,2B6IvVT;AACA,8C7IsVS,2B6ItVT;AACA,6C7IqVS,2B6IrVT;AACA,oD7IyMU,4B6IzMV;AACA,gD7I+YY,8B6I/YZ;AACA,qD7IuMU,4B6IvMV;AACA,4D7IsMU,4B6ItMV;AACA,kE7IqMU,4B6IrMV;AACA,kE7IoMU,4B6IpMV;AACA,2BvH5Nc,kDuH4Nd;AACA,uCzI1NkB,0DyI0NlB;AACA,yC7IiMU,4B6IjMV;AACA,0C7IgMU,4B6IhMV;AACA,+C7I+LU,4B6I/LV;AACA,2C7I8LU,4B6I9LV;AACA,gC7IoYY,8B6IpYZ;AACA,+B7IuUS,2B6IvUT;AACA,wC7ImPW,6B6InPX;AACA,mC7I0LU,4B6I1LV;AACA,kC7IyLU,4B6IzLV;AACA,uC7IwLU,4B6IxLV;AACA,8B7IuLU,4B6IvLV;AACA,yC7IsLU,4B6ItLV;AACA,+B7IqLU,4B6IrLV;AACA,uC7IoLU,4B6IpLV;AACA,uC7ImLU,4B6InLV;AACA,gC7IkLU,4B6IlLV;AACA,sC7IiLU,4B6IjLV;AACA,8C7IgLU,4B6IhLV;AACA,4C7IuOW,6B6IvOX;AACA,gD7I8KU,4B6I9KV;AACA,8C7I6KU,4B6I7KV;AACA,6C7I4KU,4B6I5KV;AACA,4C7IkXY,8B6IlXZ;AACA,8B7I0KU,4B6I1KV;AACA,mC7IyKU,4B6IzKV;AACA,2C7IwKU,4B6IxKV;AACA,gC7IuKU,4B6IvKV;AACA,8C7IiTS,2B6IjTT;AACA,8C7IgTS,2B6IhTT;AACA,uC7I+SS,2B6I/ST;AACA,uC7I8SS,2B6I9ST;AACA,qC7I6SS,2B6I7ST;AACA,2C7I4SS,2B6I5ST;AACA,2C7I2SS,2B6I3ST;AACA,yC7I0SS,2B6I1ST;AACA,sC7IySS,2B6IzST;AACA,uC7IoWY,8B6IpWZ;AACA,qC7IuSS,2B6IvST;AACA,uC7IsSS,2B6ItST;AACA,qC7IqSS,2B6IrST;AACA,yC7IyJU,4B6IzJV;AACA,wC7IwJU,4B6IxJV;AACA,oC7IuJU,4B6IvJV;AACA,kC7IsJU,4B6ItJV;AACA,gC7IqJU,4B6IrJV;AACA,8C7IkUW,6B6IlUX;AACA,kC7IiUW,6B6IjUX;AACA,sC7IyVY,8B6IzVZ;AACA,6C7IiJU,4B6IjJV;AACA,8C7I2RS,2B6I3RT;AACA,2C7I0RS,2B6I1RT;AACA,uC7IyRS,2B6IzRT;AACA,4C7IwRS,2B6IxRT;AACA,oC7I4IU,4B6I5IV;AACA,0C7IyTW,6B6IzTX;AACA,sC7I0IU,4B6I1IV;AACA,yC7IyIU,4B6IzIV;AACA,4C7IwIU,4B6IxIV;AACA,wC7IuIU,4B6IvIV;AACA,8C7I6UY,8B6I7UZ;AACA,kC7IqIU,4B6IrIV;AACA,kC7IoIU,4B6IpIV;AACA,2C7I0UY,8B6I1UZ;AACA,0C7IkIU,4B6IlIV;AACA,wC7IiIU,4B6IjIV;AACA,qC7I2QS,2B6I3QT;AACA,yC7I+HU,4B6I/HV;AACA,+B7I8HU,4B6I9HV;AACA,uC7IwQS,2B6IxQT;AACA,sC7I4HU,4B6I5HV;AACA,uC7I2HU,4B6I3HV;AACA,wC7I0HU,4B6I1HV;AACA,mC7IgUY,8B6IhUZ;AACA,yC7I+TY,8B6I/TZ;AACA,uC7IuHU,4B6IvHV;AACA,uC7IsHU,4B6ItHV;AACA,uC7ImSW,6B6InSX;AACA,wC7IoHU,4B6IpHV;AACA,uC7ImHU,4B6InHV;AACA,qC7IgSW,6B6IhSX;AACA,kC7IwTY,8B6IxTZ;AACA,sC7IgHU,4B6IhHV;AACA,4C7I+GU,4B6I/GV;AACA,2C7I4RW,6B6I5RX;AACA,wC7IwPS,2B6IxPT;AACA,wC7IuPS,2B6IvPT;AACA,wC7IsPS,2B6ItPT;AACA,gC7I0GU,4B6I1GV;AACA,uC7IoPS,2B6IpPT;AACA,8C7IsRW,6B6ItRX;AACA,uC7IuGU,4B6IvGV;AACA,oC7IsGU,4B6ItGV;AACA,mC7ImRW,6B6InRX;AACA,0C7IoGU,4B6IpGV;AACA,4C7ImGU,4B6InGV;AACA,oC7IkGU,4B6IlGV;AACA,yC7I+QW,6B6I/QX;AACA,qC7IuSY,8B6IvSZ;AACA,qC7IsSY,8B6ItSZ;AACA,2C7I4QW,6B6I5QX;AACA,mC7I2QW,6B6I3QX;AACA,yC7I4FU,4B6I5FV;AACA,yC7I2FU,4B6I3FV;AACA,mC7I0FU,4B6I1FV;AACA,uC7IoOS,2B6IpOT;AACA,oD7ImOS,2B6InOT;AACA,6C7IuFU,4B6IvFV;AACA,iD7IsFU,4B6ItFV;AACA,qC7IqFU,4B6IrFV;AACA,wC7I+NS,2B6I/NT;AACA,+C7I8NS,2B6I9NT;AACA,6C7IkFU,4B6IlFV;AACA,kC7IwRY,8B6IxRZ;AACA,kC7IuRY,8B6IvRZ;AACA,4C7I+EU,4B6I/EV;AACA,0C7I8EU,4B6I9EV;AACA,qC7I6EU,4B6I7EV;AACA,qC7I4EU,4B6I5EV;AACA,6C7I2EU,4B6I3EV;AACA,2C7I0EU,4B6I1EV;AACA,qC7IgRY,8B6IhRZ;AACA,6C7IwEU,4B6IxEV;AACA,2C7IuEU,4B6IvEV;AACA,kC7I6QY,8B6I7QZ;AACA,kC7I4QY,8B6I5QZ;AACA,iC7IkPW,6B6IlPX;AACA,6B7I2HW,6B6I3HX;AACA,oC7IkEU,4B6IlEV;AACA,8C7I4MS,2B6I5MT;AACA,8C7I2MS,2B6I3MT;AACA,8C7I0MS,2B6I1MT;AACA,yC7IsHW,6B6ItHX;AACA,6C7I6DU,4B6I7DV;AACA,oC7I4DU,4B6I5DV;AACA,0C7ImHW,6B6InHX;AACA,wC7I0DU,4B6I1DV;AACA,oC7IgQY,8B6IhQZ;AACA,wC7IwDU,4B6IxDV;AACA,8C7IqOW,6B6IrOX;AACA,gD7IsDU,4B6ItDV;AACA,6C7I4PY,8B6I5PZ;AACA,qC7I4GW,6B6I5GX;AACA,yC7ImDU,4B6InDV;AACA,8C7IyPY,8B6IzPZ;AACA,gC7IiDU,4B6IjDV;AACA,+C7IgDU,4B6IhDV;AACA,wC7I0LS,2B6I1LT;AACA,oC7IsGW,6B6ItGX;AACA,yC7I6CU,4B6I7CV;AACA,0C7I4CU,4B6I5CV;AACA,sC7I2CU,4B6I3CV;AACA,mC7I0CU,4B6I1CV;AACA,sC7IyCU,4B6IzCV;AACA,kC7IgGW,6B6IhGX;AACA,mD7IuCU,4B6IvCV;AACA,2C7IsCU,4B6ItCV;AACA,2B7G/SK,sC6G+SL;AACA,4B7GhTK,sC6GgTL;AACA,yC7GjTK,sC6GiTL;AACA,2B7GlTK,sC6GkTL;AACA,mC/JuMK,uC+JvML;AACA,sC7GxHe,gD6GwHf;AACA,oC7GzHe,gD6GyHf;AACA,oC7G1He,gD6G0Hf;AACA,yC7GkHK,sC6GlHL;AACA,kC/JiqBO,yC+JjqBP;AACA,+B7GrBe,gD6GqBf;AACA,kC/JgMK,uC+JhML;AACA,8BjH6iBW,0CiH7iBX;AACqB,kCAAO,U5LzRvB,2B4LyRuB,CAAP;AACS,2CAAO,U5L1RhC,2B4L0RgC,CAAP;AACA,2CAAQ,W7IgsBhC,wB6IhsBgC,CAAR;AACE,6CAAQ,W7I+rBlC,wB6I/rBkC,CAAR;AACF,2CAAQ,W7I8rBhC,wB6I9rBgC,CAAR;AACC,4CAAQ,W7I6rBjC,wB6I7rBiC,CAAR;AACD,2CAAQ,W7I4rBhC,wB6I5rBgC,CAAR;AACP,oCAAO,U5LhSzB,2B4LgSyB,CAAP;AACI,wCAAO,U5LjS7B,2B4LiS6B,EAAuB,0BAA9B;AACW,mDAAO,U7IyrBvC,wB6IzrBuC,EACvC,Q7I6qBO,+B6I7qBP,CADgC;AAEJ,+CAAO,U5LpSpC,2B4LoSoC,CAAP;AACJ,2CAAO,U5LrShC,2B4LqSgC,CAAP;AACI,+CAAQ,W7IqrBpC,wB6IrrBoC,CAAR;AACN,yCAAQ,W7IorB9B,wB6IprB8B,CAAR;AACD,wCAAQ,W7ImrB7B,wB6InrB6B,CAAR;AACQ,gDAAO,U5LzSrC,2B4LySqC,CAAP;AACD,+CAAO,U5L1SpC,2B4L0SoC,CAAP;AACJ,2CAAO,U5L3ShC,2B4L2SgC,CAAP;AACC,4CAAO,U5L5SjC,2B4L4SiC,CAAP;AACD,2CAAO,U5L7ShC,2B4L6SgC,CAAP;AACR,mCAAO,U5L9SxB,2B4L8SwB,EAAqB,UhKpWxC,0CgKoWwC,EAA5B;AAjaP;AAkbjB;AA7bF,GA+bc,yDA/bd;ACAA,gCAES,+eAFT;;;AAakB;;;AACd;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAOA;AACA;AACA;AACA;AACA;AA1Bc;;;;;;;;;;;;;;;;;;;;AA8GoB;AAEpC;AAEA,qBAAU,MAAK,WAAC,CAAM,sEAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAW,eAAU,iBAAC;AACtB,sBAAW,WAAC,CAAS,aAAT;AACZ,sBAAW,iBAAC,CAAe,SAAf;AACZ,yBAAc,iBAAC,CAAe,SAAf;AACf,aAAE,WAAC,CAAS,KAAT;AACH,2BAAe;AACf,yBAAc;AACd,UAAG,+BAAqB,KAAE,EAA1B;AAEE,2BAAc,QAAC,CAAM,+BAAN;AACf,iCAAoB,CAAC,MAAD;AACpB,0CAAuB;OAJzB;AAhBoC;AAzDK;AAEzC;AACA;AAEA,kBAAW,eAAU,iBAAC;AACtB,aAAE,iBAAC,CAAe,SAAf;AACH,UAAG;AACH,aAAE,WAAC,CAAS,IAAT;AACH,aAAE,YAAC,CAAU,CAAV;AACH,aAAE,YAAC,CAAU,OAAO,eAAC,EAAW,GAAC,CAA9B;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,mBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,UAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,wBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,UAAP;AACR,aAAO;AACP,UAAG,OAAO,eAAC,EAAW,KAAC,CAAvB,EAA8B,gBAAW,WAAC,CAAS,iBAAT,CAA1C;AACA,UAAG,OAAO,eAAC,EAAW,GAAC,CAAvB,EAA8B,gBAAW,WAAC,CAAS,sBAAsB,GAAC,qBAAQ,CAAC,OAAO,eAAC,EAAT,CAAxC,CAA1C;AACA,UAAG,OAAO,eAAC,EAAW,GAAC,EAAvB,EAA+B,gBAAW,WAAC,CAAS,gCAAT,CAA3C;AAEA,aAAM,CAAI,OAAO,OAAC,EAAlB;AAEM,SAAJ,IAAG;AACH,oBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,iBAAS,UAAT,GAAqB;AACrB,mCAAqB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,gCAAmB,oBAAC,CAAkB,qBAAlB;AACpB,gCAAmB,eAAC,CAAa,wCAAb;AACpB,gCAAmB,SAAC,CAAO,GAAP;AACpB,gCAAmB,OAAnB,GAAyB;AACzB,gCAAmB,WAAC,CAAS,0BAAqB,YAAC,EAA/B;AACpB,gCAAmB,SAAnB,GAA8B;AAC9B,gCAAmB,iBAAC,CAAe,SAAf;AACpB,eAAE,SAAM,CAAC,EAAE,EAAI,2BAAc,CAAC,aAAa,iBAAY,cAAC,EAA3B,CAArB;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,+BAA0B,YAAC,EAAlC;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,iBAAI,CAAC,mBAAc,YAAC,EAAY,GAAH,GAAD,GAAK,oBAAe,YAAC,EAA7C,CAAoG,GAA7C,IAAD,GAAM,oCAA+B,YAAC,EAAjC,GAA0C,GAAhH;AACR,eAAO;;AApCgC;AAfD;AAExC,UAAI;AAFoC;AA0DK;AAE7C;AAEA,wBAAiB,mBAAc,QAAC;AAChC,UAAU,eAAD,OAAiB,GAAC,CAA3B;AAEE,oBAAO;AACP,oBAAO,aAAP,GAAqB,qFAA+N,GAAxI,mBAAc,QAAC,EAAhB,GAAqB,gCAAD,GAAoC,mBAAc,QAAC,EAAhB,GAAqB,uCAAD,GAA2C,mBAAc,QAAC,EAAhB,GAAqB,kCAAD;AACpP,oBAAO;OAJT;AAL6C;AArDI;AAEjD,2BAAuB,OAAP,OAAU,8BAAH,CAAW;AAClC,kBAAO,OAAO,CAAC,iBAAiB,mBAAc,EAAhC;AACd,wBAAY,oBAAe,YAAC;AAC5B,uBAAW,mBAAc,YAAC;AAC1B,mCAAuB,+BAA0B,YAAC;AAClD,UAAI;AAP6C;AA2FX;AAE5B;AAEV,yBAAe,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,4BAAkB,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,qBAAW,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,0BAAgB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,4BAAkB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,oBAAU,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAEtB,sBAAW;AACX,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,aAAE;AACF,qBAAU;AACV,yBAAc;AACd,kBAAO;AACP,gCAAqB;AACrB,uBAAY;AACZ,qCAA0B;AAC1B,0CAA+B;AAC/B,0BAAe;AACf,yBAAc;AACd,iBAAM;AACN;AACE,qBAAQ,iBAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,GAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,EAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,WAAC,CAAW,aAAX;AACZ,wBAAW,oBAAC,CAAoB,QAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,cAAC,CAAc,2CAAd;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,yCAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,YAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,QAAC,CAAQ,CAAR;AACH,eAAE,OAAC,CAAO,GAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,EAAV;AACH,eAAE,oBAAC,CAAoB,gDAApB;AACH,eAAE,eAAC,CAAe,wCAAf;AACH,eAAE,cAAC,CAAc,2CAAd;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,gBAAC,CAAc,CAAd;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,eAAC,CAAe,yCAAf;AACH,eAAE,0BAAC,CAA0B,YAA1B;AACH,eAAE,mBAAC,CAAmB,gDAAnB;AACH,eAAE,yBAAC,CAAyB,gDAAzB;AACH,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,CAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,cAAC,CAAc,KAAd;AACf,2BAAc,gBAAC,CAAc,CAAd;AACf,2BAAc,oBAAC,CAAoB,2BAApB;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,iBAAC,CAAiB,sBAAjB;AACf,2BAAc,YAAC,CAAY,IAAZ;AACf,2BAAc,YAAC,CAAY,sBAAZ;AACf,2BAAc,gBAAC,CAAgB,qBAAhB;AACf,uBAAQ,CAAC,oBAAgB,KAAM,WAAY,sBAAnC;AACR,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,WAAP,GAAqB;AACrB,oBAAO,iBAAC,CAAiB,SAAjB;AACR,oBAAO,cAAC,CAAc,aAAG,oBAAjB;AACR,oBAAO,iBAAC,CAAiB,CAAjB;AACR,oBAAO,aAAP,GAAuB;AACvB,oBAAO,UAAP,GAAoB;AACpB,oBAAO,QAAC,CAAQ,CAAR;AACR,oBAAO,OAAC,CAAO,EAAP;AACR,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,UAArB,GAAkC;AAClC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,yBAAY,mBAAmB,CAAC,YAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,UAAZ,GAAyB;AACzB,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,GAAR;AAC3B,4CAA+B,mBAAmB,CAAC,YAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,4BAAe,mBAAmB,CAAC,YAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,EAAR;AAChB,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,QAAC,CAAQ,EAAR;AACf,mBAAM,mBAAmB,CAAC,IAAD;AACzB,mBAAM,QAAC,CAAQ,QAAR;AACP,mBAAM,WAAC,CAAW,YAAX;AACP,mBAAM,QAAC,CAAQ,EAAR;AACP,mBAAM,OAAC,CAAO,EAAP;AAlJT;AAoJE,wBAAW;AACX,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,eAAE;AACF,uBAAU;AACV,2BAAc;AACd,oBAAO;AACP,kCAAqB;AACrB,yBAAY;AACZ,uCAA0B;AAC1B,4CAA+B;AAC/B,4BAAe;AACf,2BAAc;AACd,mBAAM;AAlKR;AAnCsC;AAtItB;;;AACd,0BxHEc,kDwHFd;AACA,yB9IijDS,2B8IjjDT;AACA,6B/Jm7BY,8C+Jn7BZ;AACA,6B/Jk7BY,8C+Jl7BZ;AACA,6B/Ji7BY,8C+Jj7BZ;AACA,qBlHg7BW,0CkHh7BX;AACA,6BhKikBK,uCgKjkBL;AACA,iChKoRG,qCgKpRH;AACA,8BhK6FI,sCgK7FJ;AACA,wC9IwZU,4B8IxZV;AACA,kD9IuZU,4B8IvZV;AACA,+B9I6lBY,8B8I7lBZ;AACA,6C9IqZU,4B8IrZV;AACA,kC9IoZU,4B8IpZV;AACA,iC9ImZU,4B8InZV;AACqB,kCAAO,U7LiGvB,2B6LjGuB,CAAP;AACK,uCAAQ,W9I2jC5B,wB8I3jC4B,CAAR;AACD,sCAAO,U7L+F3B,2B6L/F2B,CAAP;AACK,2CAAO,U7L8FhC,2B6L9FgC,CAAP;AAnBhB;AA+BhB;AA5CF,GA8Cc,gBA9Cd;ACAA,mCAES,+eAFT;;;AAaqB;;;AACjB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAOA;AACA;AACA;AAtBiB;;;;;;;;;;;;;;;;;;AAwGoB;AAEvC;AAEA,qBAAU,MAAK,WAAC,CAAM,yEAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAW,eAAU,iBAAC;AACtB,sBAAW,WAAC,CAAS,aAAT;AACZ,sBAAW,iBAAC,CAAe,SAAf;AACZ,yBAAc,iBAAC,CAAe,SAAf;AACf,aAAE,WAAC,CAAS,KAAT;AACH,8BAAkB;AAClB,yBAAc;AAfyB;AAzDK;AAE5C;AACA;AAEA,kBAAW,eAAU,iBAAC;AACtB,aAAE,iBAAC,CAAe,SAAf;AACH,UAAG;AACH,aAAE,WAAC,CAAS,IAAT;AACH,aAAE,YAAC,CAAU,CAAV;AACH,aAAE,YAAC,CAAU,OAAO,eAAC,EAAW,GAAC,CAA9B;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,mBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,UAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,wBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,oBAAP;AACR,aAAO;AACP,UAAG,OAAO,eAAC,EAAW,KAAC,CAAvB,EAA8B,gBAAW,WAAC,CAAS,iBAAT,CAA1C;AACA,UAAG,OAAO,eAAC,EAAW,GAAC,CAAvB,EAA8B,gBAAW,WAAC,CAAS,sBAAsB,GAAC,qBAAQ,CAAC,OAAO,eAAC,EAAT,CAAxC,CAA1C;AACA,UAAG,OAAO,eAAC,EAAW,GAAC,EAAvB,EAA+B,gBAAW,WAAC,CAAS,gCAAT,CAA3C;AAEA,aAAM,CAAI,OAAO,OAAC,EAAlB;AAEM,SAAJ,IAAG;AACH,oBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,iBAAS,UAAT,GAAqB;AACrB,mCAAqB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,gCAAmB,oBAAC,CAAkB,qBAAlB;AACpB,gCAAmB,eAAC,CAAa,wCAAb;AACpB,gCAAmB,SAAC,CAAO,GAAP;AACpB,gCAAmB,OAAnB,GAAyB;AACzB,gCAAmB,WAAC,CAAS,0BAAqB,YAAC,EAA/B;AACpB,gCAAmB,SAAnB,GAA8B;AAC9B,gCAAmB,iBAAC,CAAe,SAAf;AACpB,eAAE,SAAM,CAAC,EAAE,EAAI,2BAAc,CAAC,aAAa,iBAAY,cAAC,EAA3B,CAArB;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,+BAA0B,YAAC,EAAlC;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,2BAAsB,YAAC,EAA9B;AACR,eAAO;;AApCmC;AAbD;AAE3C,UAAI;AAFuC;AAwDK;AAEhD;AAEA,wBAAiB,mBAAc,QAAC;AAChC,UAAU,eAAD,OAAiB,GAAC,CAA3B;AAEE,oBAAO;AACP,oBAAO,aAAP,GAAqB,wDAAqM,GAA3I,mBAAc,QAAC,EAAhB,GAAqB,mCAAD,GAAuC,mBAAc,QAAC,EAAhB,GAAqB,uCAAD,GAA2C,mBAAc,QAAC,EAAhB,GAAqB,kCAAD;AAC1N,oBAAO;OAJT;AALgD;AAnDI;AAEpD,8BAA0B,OAAP,OAAU,8BAAH,CAAW;AACrC,kBAAO,OAAO,CAAC,iBAAiB,sBAAiB,EAAnC;AACd,mCAAuB,+BAA0B,YAAC;AAClD,UAAI;AALgD;AAmFX;AAE/B;AAEV,yBAAe,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,4BAAkB,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,qBAAW,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,0BAAgB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oBAAU,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAEtB,sBAAW;AACX,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,aAAE;AACF,qBAAU;AACV,yBAAc;AACd,kBAAO;AACP,gCAAqB;AACrB,uBAAY;AACZ,qCAA0B;AAC1B,iCAAsB;AACtB,iBAAM;AACN;AACE,qBAAQ,oBAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,GAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,EAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,WAAC,CAAW,aAAX;AACZ,wBAAW,oBAAC,CAAoB,QAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,cAAC,CAAc,2CAAd;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,yCAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,YAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,QAAC,CAAQ,CAAR;AACH,eAAE,OAAC,CAAO,GAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,EAAV;AACH,eAAE,oBAAC,CAAoB,gDAApB;AACH,eAAE,eAAC,CAAe,wCAAf;AACH,eAAE,cAAC,CAAc,2CAAd;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,gBAAC,CAAc,CAAd;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,eAAC,CAAe,yCAAf;AACH,eAAE,0BAAC,CAA0B,YAA1B;AACH,eAAE,mBAAC,CAAmB,gDAAnB;AACH,eAAE,yBAAC,CAAyB,gDAAzB;AACH,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,CAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,cAAC,CAAc,KAAd;AACf,2BAAc,gBAAC,CAAc,CAAd;AACf,2BAAc,oBAAC,CAAoB,2BAApB;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,iBAAC,CAAiB,sBAAjB;AACf,2BAAc,YAAC,CAAY,IAAZ;AACf,2BAAc,YAAC,CAAY,sBAAZ;AACf,2BAAc,gBAAC,CAAgB,qBAAhB;AACf,uBAAQ,CAAC,oBAAgB,KAAM,WAAY,sBAAnC;AACR,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,WAAP,GAAqB;AACrB,oBAAO,iBAAC,CAAiB,YAAjB;AACR,oBAAO,cAAC,CAAc,aAAG,oBAAjB;AACR,oBAAO,aAAP,GAAuB;AACvB,oBAAO,UAAP,GAAoB;AACpB,oBAAO,QAAC,CAAQ,CAAR;AACR,oBAAO,OAAC,CAAO,EAAP;AACR,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,UAArB,GAAkC;AAClC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,yBAAY,mBAAmB,CAAC,YAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,UAAZ,GAAyB;AACzB,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,GAAR;AAC3B,mCAAsB,mBAAmB,CAAC,YAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,mBAAM,mBAAmB,CAAC,IAAD;AACzB,mBAAM,QAAC,CAAQ,QAAR;AACP,mBAAM,WAAC,CAAW,YAAX;AACP,mBAAM,QAAC,CAAQ,EAAR;AACP,mBAAM,OAAC,CAAO,EAAP;AAzIT;AA2IE,wBAAW;AACX,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,eAAE;AACF,uBAAU;AACV,2BAAc;AACd,oBAAO;AACP,kCAAqB;AACrB,yBAAY;AACZ,uCAA0B;AAC1B,mCAAsB;AACtB,mBAAM;AAvJR;AA/ByC;AA1HtB;;;AACjB,0BzHEc,kDyHFd;AACA,yB/IijDS,2B+IjjDT;AACA,6BhKm7BY,8CgKn7BZ;AACA,6BhKk7BY,8CgKl7BZ;AACA,6BhKi7BY,8CgKj7BZ;AACA,qBnHg7BW,0CmHh7BX;AACA,6BjKikBK,uCiKjkBL;AACA,iCjKoRG,qCiKpRH;AACA,8BjK6FI,sCiK7FJ;AACA,wC/IwZU,4B+IxZV;AACA,+B/I8lBY,8B+I9lBZ;AACA,6C/IsZU,4B+ItZV;AACA,yC/IqZU,4B+IrZV;AACqB,kCAAO,U9LmGvB,2B8LnGuB,CAAP;AACK,uCAAQ,W/I6jC5B,wB+I7jC4B,CAAR;AACD,sCAAO,U9LiG3B,2B8LjG2B,CAAP;AACK,2CAAO,U9LgGhC,2B8LhGgC,CAAP;AAjBb;AA2BnB;AAxCF,GA0Cc,gBA1Cd;ACAA,sCAES,+eAFT;;;AAawB;;;AACpB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAQA;AACA;AACA;AACA;AACA;AACA;AA3BoB;;;;;;;;;;;;;;;;;;;AAyKoB;AAE1C;AAEA,qBAAU,MAAK,WAAC,CAAM,qEAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAO,iBAAC,CAAe,SAAf;AACR,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAW,eAAU,iBAAC;AACtB,sBAAW,WAAC,CAAS,cAAT;AACZ,sBAAW,iBAAC,CAAe,SAAf;AACZ,yBAAc,iBAAC,CAAe,SAAf;AACf,aAAE,WAAC,CAAS,KAAT;AACH,2BAAe;AACf,yBAAc;AAhB4B;AAzDK;AAE/C;AACA;AAEA,kBAAW,eAAU,iBAAC;AACtB,aAAE,iBAAC,CAAe,SAAf;AACH,UAAG;AACH,aAAE,WAAC,CAAS,IAAT;AACH,aAAE,YAAC,CAAU,CAAV;AACH,aAAE,YAAC,CAAU,OAAO,eAAC,EAAW,GAAC,CAA9B;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,iBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,aAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,YAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,cAAP;AACR,aAAO;AACP,UAAG,OAAO,eAAC,EAAW,KAAC,CAAvB,EAA8B,gBAAW,WAAC,CAAS,iBAAT,CAA1C;AACA,UAAG,OAAO,eAAC,EAAW,GAAC,CAAvB,EAA8B,gBAAW,WAAC,CAAS,sBAAsB,GAAC,qBAAQ,CAAC,OAAO,eAAC,EAAT,CAAxC,CAA1C;AACA,UAAG,OAAO,eAAC,EAAW,GAAC,EAAvB,EAA+B,gBAAW,WAAC,CAAS,gCAAT,CAA3C;AAEA,aAAM,CAAI,OAAO,OAAC,EAAlB;AAEM,SAAJ,IAAG;AACH,oBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,iBAAS,UAAT,GAAqB;AACrB,kCAAoB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,+BAAkB,oBAAC,CAAkB,qBAAlB;AACnB,+BAAkB,eAAC,CAAa,wCAAb;AACnB,+BAAkB,SAAC,CAAO,GAAP;AACnB,+BAAkB,OAAlB,GAAwB;AACxB,+BAAkB,WAAC,CAAS,wBAAmB,YAAC,EAA7B;AACnB,+BAAkB,SAAlB,GAA6B;AAC7B,+BAAkB,iBAAC,CAAe,SAAf;AACnB,eAAE,SAAM,CAAC,EAAE,EAAI,oBAAe,YAAC,EAAvB;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,mBAAc,YAAC,EAAtB;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,uBAAU,CAAC,uBAAkB,YAAC,GAAS,IAAG,GAAC,IAAD,CAAK,MAArC,CAAxB;AACR,eAAO;;AApCsC;AA1CD;AAE9C,UAAI;AAF0C;AA/BH;;AAE3C;AACqB;AAEnB;AAEE,gBAAc,OAAN,MAAS,iCAAH;AAJG;AAUK;AAEtB,4BAAc,QAAC,CAAM,IAAI,aAAV;AACf,kCAAoB,CAAC,KAAD;AAHE;AAMxB,UAAG,kBAAH;AAEE,eAAM,iCAAY,QAAC,eAAS,aAAT;AACnB,YAAI,YAAU;;AAId,yCAAW,CAAC,wFAAD;;AA1B4B;AAoHQ;AAEnD;AAEA,wBAAiB,mBAAc,QAAC;AAChC,UAAU,eAAD,OAAiB,GAAC,CAA3B;AAEA,oBAAO;AACP,oBAAO,aAAP,GAAqB,2BAA2B,GAAC,sBAAS,CAAC,mBAAc,QAAC,G3LyGtB,G2LzGM,CAAV;AAChD,oBAAO;OAJP;AALmD;AAhFG;;AAEtD;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,qCAAH;AACd,aAAK,eAAL,GAAsB;AALH;AAQG;AAEtB,kCAAoB,CAAC,IAAD;AAFE;AAO1B,2BAAuB,OAAP,OAAU,8BAAH,CAAW;AAClC,kBAAO,OAAO,CAAC,eAAe,mBAAc,EAA9B;AACd,wBAAY,oBAAe,YAAC;AAC5B,uBAAW,mBAAc,YAAC;AAC1B,2BAAe,uBAAkB,YAAC;AAClC,UAAG,0BAAH;AAEE,uBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,eAAM,qCAAc,QAAC,eAAS,aAAT;AACrB,YAAI,YAAU;;AAId,aAAI;;AA/BgD;AAiHV;AAElC;AAEV,yBAAe,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,qBAAW,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACnB,4BAAkB,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,qBAAW,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,4BAAkB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,oBAAU,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAEtB,sBAAW;AACX,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,aAAE;AACF,qBAAU;AACV,kBAAO;AACP,yBAAc;AACd,kBAAO;AACP,8BAAmB;AACnB,0BAAe;AACf,yBAAc;AACd,6BAAkB;AAClB,iBAAM;AACN;AACE,qBAAQ,uBAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,GAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,EAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,WAAC,CAAW,aAAX;AACZ,wBAAW,oBAAC,CAAoB,QAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,cAAC,CAAc,2CAAd;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,yCAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,YAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,QAAC,CAAQ,CAAR;AACH,eAAE,OAAC,CAAO,GAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,EAAV;AACH,eAAE,oBAAC,CAAoB,gDAApB;AACH,eAAE,eAAC,CAAe,wCAAf;AACH,eAAE,cAAC,CAAc,2CAAd;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,gBAAC,CAAc,CAAd;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,eAAC,CAAe,yCAAf;AACH,eAAE,0BAAC,CAA0B,YAA1B;AACH,eAAE,mBAAC,CAAmB,gDAAnB;AACH,eAAE,yBAAC,CAAyB,gDAAzB;AACH,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,QAAC,CAAQ,CAAR;AACR,oBAAO,OAAC,CAAO,GAAP;AACR,oBAAO,SAAC,CAAS,EAAT;AACR,oBAAO,UAAC,CAAU,EAAV;AACR,oBAAO,WAAC,CAAW,sBAAX;AACR,oBAAO,gBAAC,CAAc,CAAd;AACR,oBAAO,oBAAC,CAAoB,mCAApB;AACR,oBAAO,eAAC,CAAe,yCAAf;AACR,oBAAO,mBAAC,CAAmB,gDAAnB;AACR,oBAAO,eAAC,CAAe,wCAAf;AACR,oBAAO,iBAAC,CAAiB,sBAAjB;AACR,oBAAO,cAAC,CAAc,wCAAd;AACR,oBAAO,gBAAC,CAAgB,sBAAhB;AACR,uBAAQ,CAAC,aAAS,KAAM,UAAW,cAA3B;AACR,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,CAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,gBAAC,CAAc,CAAd;AACf,2BAAc,oBAAC,CAAoB,2BAApB;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,iBAAC,CAAiB,sBAAjB;AACf,2BAAc,YAAC,CAAY,IAAZ;AACf,2BAAc,YAAC,CAAY,sBAAZ;AACf,2BAAc,gBAAC,CAAgB,qBAAhB;AACf,uBAAQ,CAAC,oBAAgB,KAAM,WAAY,sBAAnC;AACR,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,WAAP,GAAqB;AACrB,oBAAO,iBAAC,CAAiB,UAAjB;AACR,oBAAO,cAAC,CAAc,aAAG,oBAAjB;AACR,oBAAO,UAAP,GAAoB;AACpB,oBAAO,QAAC,CAAQ,CAAR;AACR,oBAAO,OAAC,CAAO,EAAP;AACR,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,UAAnB,GAAgC;AAChC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,4BAAe,mBAAmB,CAAC,YAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,UAAf,GAA4B;AAC5B,4BAAe,QAAC,CAAQ,EAAR;AAChB,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,QAAC,CAAQ,EAAR;AACf,+BAAkB,mBAAmB,CAAC,YAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,GAAR;AACnB,mBAAM,mBAAmB,CAAC,IAAD;AACzB,mBAAM,QAAC,CAAQ,QAAR;AACP,mBAAM,WAAC,CAAW,YAAX;AACP,mBAAM,QAAC,CAAQ,EAAR;AACP,mBAAM,OAAC,CAAO,EAAP;AAxJT;AA0JE,wBAAW;AACX,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,eAAE;AACF,uBAAU;AACV,oBAAO;AACP,2BAAc;AACd,oBAAO;AACP,gCAAmB;AACnB,4BAAe;AACf,2BAAc;AACd,+BAAkB;AAClB,mBAAM;AAvKR;AAjC4C;AA5LtB;;;AACpB,0B1HEc,kD0HFd;AACA,yBhJijDS,2BgJjjDT;AACA,sChJ+ZU,4BgJ/ZV;AACA,kChJ8ZU,4BgJ9ZV;AACA,iChJ6ZU,4BgJ7ZV;AACA,qChJ4ZU,4BgJ5ZV;AACA,6BjK+6BY,8CiK/6BZ;AACA,6BjK86BY,8CiK96BZ;AACA,6BjK66BY,8CiK76BZ;AACA,qBpH46BW,0CoH56BX;AACA,6BlK6jBK,uCkK7jBL;AACA,0BlK4jBK,uCkK5jBL;AACA,iClK+QG,qCkK/QH;AACA,8BlKwFI,sCkKxFJ;AACqB,kCAAO,U/LkGvB,2B+LlGuB,CAAP;AACK,uCAAQ,WhJ4jC5B,wBgJ5jC4B,CAAR;AACD,sCAAO,U/LgG3B,2B+LhG2B,CAAP;AACH,mCAAO,U/L+FxB,2B+L/FwB,CAAP;AACQ,2CAAO,U/L8FhC,2B+L9FgC,CAAP;AAnBV;AAgCtB;AA7CF,GA+Cc,wDA/Cd;ACAA,uBAES,+UAFT;;;AAYM;;;AACF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA/FE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAogBoB;AAExB;AAEA,qBAAU,MAAK,WAAC,CAAM,0EAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,mBAAQ,iBAAC,CAAe,SAAf;AACT,sBAAW,iBAAC,CAAe,SAAf;AACZ,oBAAS,iBAAC,CAAe,SAAf;AACV,wBAAa,iBAAC,CAAe,SAAf;AACd,yBAAc,iBAAC,CAAe,SAAf;AACf,kBAAW,eAAU,iBAAC;AACtB,0BAAe,iBAAC,CAAe,SAAf;AAChB,0BAAe,iBAAC,CAAe,SAAf;AAChB,0BAAe,iBAAC,CAAe,SAAf;AAChB,mBAAQ,WAAC,CAAS,gCAA8C,GAAvB,GAAD,GAAK,yBAAD,GAAiB,GAAD,GAAK,0BAAxD;AACT,0BAAe,WAAC,CAAS,KAAT;AAChB,0BAAe,WAAC,CAAS,KAAT;AAChB,uBAAW;AACX;AApBwB;AAmYkB;AAE1C,UAAG,yBAAoB,eAAC,EAAW,GAAC,CAApC;AAEE,yCAAW,CAAC,iGAAD;;AAIX,2BAAa,kCAA6B,cAAC;AAC3C,4BAAe,WAAC,CAAS,YAAY,GAAC,2BAAc,CAAC,QAAQ,gBAAT,CAApC;AAChB,wBAAW;AACX,wBAAW,aAAX,GAAyB,kBAAmD,GAA/B,2BAAsB,YAAC,EAAzB,GAAkC,8BAAD;AAC5E,oBAAO;AACP,oBAAO,aAAP,GAAqB,kBAAmD,GAA/B,2BAAsB,YAAC,EAAzB,GAAkC,8BAAD;AACxE,oBAAO;;AAdiC;AAvsBb;AAE7B,6BAAiB,mBAAI,GAAC,mBAAD;AACrB,kCAAc,CAAC,qBAAgB;;;;WAAO;;;;WAAQ;;;;WAAM;;;;WAAS;;;;WAAS;;;;WAAU;;;;UAAlE;AACd,uBAAW;AACX,uBAAW;AACX,kBAAO;AANsB;AAwqBA;AAE7B,sBAAW,aAAC,CAAO,yBAAoB,eAAC,EAA5B;AACZ,gCAAqB,YAAC,CAAU,gCAAV;AACtB,+BAAoB,cAAC,CAAY,mBAAI,GAAC,mBAAjB;AACrB,uBAAY,cAAC,CAAY,uBAAU,CAAC,YAAO,aAAQ,UAAhB,CAAtB;AACb,yBAAc,aAAC,CAAW,cAAX;AACf,2BAAgB,cAAC,CAAY,uBAAU,CAAC,cAAS,cAAS,EAAE,CAArB,CAAtB;AACjB,6BAAkB,aAAC,CAAW,KAAX;AACnB,qBAAU,WAAC,CAAS,SAAT;AACX,gCAAqB,YAAC,CAAU,qBAAV;AACtB,8BAAmB,YAAC,CAAU,sBAAV;AACpB,yBAAc,YAAC,CAAU,sBAAV;AACf,0BAAe,YAAC,CAAU,yBAAV;AAChB,4BAAiB,YAAC,CAAU,iBAAV;AAClB,2BAAgB,YAAC,CAAU,gBAAV;AACjB,8BAAmB,WAAC,CAAS,CAAT;AACpB,uBAAY,YAAC,CAAU,YAAV;AACb,iCAAsB,WAAC,CAAS,CAAT;AACvB,4BAAiB,WAAC,CAAS,CAAT;AAClB,8BAAkB;AAClB,+BAAmB;AACnB,yBAAa;AACb,kCAAsB;AACtB,+BAAmB;AACnB,0BAAc;AACd,qBAAS;AAET,kBAAO;AA5BsB;AAvdG;AAEhC,uBAAW;AACX,6BAAiB,mBAAI,GAAC,mBAAD;AACrB,kCAAc,CAAC,qBAAgB;;;;WAAO;;;;WAAQ;;;;WAAM;;;;WAAS;;;;WAAS;;;;WAAU;;;;UAAlE;AACd,uBAAW;AACX,kBAAO;AACP,kBAAO;AACP,0BAAe,cAAC,CAAY,uBAAU,CAAC,cAAS,cAAS,EAAE,CAArB,CAAtB;AAChB,kBAAO;AACP,uBAAW;AACX,qBAAS;AACT,4BAAgB;AAChB,kBAAO;AAbyB;AAgBF;AAE9B,uBAAW;AACX,6BAAiB,mBAAI,GAAC,mBAAD;AACrB,kCAAc,CAAC,qBAAgB;;;;WAAO;;;;WAAQ;;;;WAAM;;;;WAAS;;;;WAAS;;;;WAAU;;;;UAAlE;AACd,uBAAW;AACX,kBAAO;AACP,kBAAO;AACP,0BAAe,cAAC,CAAY,uBAAU,CAAC,cAAS,cAAS,EAAE,CAArB,CAAtB;AAChB,8BAAmB,WAAC,CAAS,4BAAc,CAAC,qBAAgB,cAAC,GAAW,oBAAe,cAAC,EAA7C,CAAvB;AACpB,kBAAO;AACP,uBAAW;AACX,kBAAO;AAZuB;AAicD;AAE7B,UAAG,cAAS,KAAC,CAAb,EAAoB,YAAO,eAA3B;AAF6B;AArPQ;AAGrC;AAEA,eAAS,QAAS,kBAAC,IAAI,QAAL,uBAAlB;AAAI;AAEF,YAAG,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAM,KAAE,EAA1B,EAAkC,iCAAW,CAAC,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAhB,CAA7C;;AAEF;AATqC;AAYR;AAE7B;AACA;AAEA,kBAAO;AACP,aAAE,YAAC,CAAU,YAAO,eAAC,EAAW,GAAC,CAA9B;AACH,aAAE,YAAC,CAAU,CAAV;AACH,UAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,WAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,QAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,SAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,OAAP;AAER,aAAM,CAAI,YAAO,OAAC,EAAlB;AAEM,SAAJ,IAAG;AACH,eAAE,SAAM,CAAC,EAAE,EAAI,2BAAc,CAAC,sBAAuB,yBAAoB,cAAC,EAA7C,CAArB;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,2BAAc,CAAC,WAAY,qBAAgB,cAAC,EAA9B,CAArB;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,2BAAc,CAAC,WAAY,oBAAe,cAAC,EAA7B,CAArB;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,wBAAmB,YAAC,EAA3B;AACR,oBAAW;AACX,YAAG,mBAAc,aAAC,EAAS,KAAC,CAA5B;AAEE,sBAAW;SAFb;AAIA,YAAG,mBAAc,aAAC,EAAS,KAAC,CAA5B;AAEE,sBAAW,UAAoG,GAAzF,0BAAqB,YAAC,EAAvB,GAAgC,GAAD,GAAK,iBAAY,YAAC,EAAd,GAAwB,IAAF,GAAO,sBAAiB,YAAC,EAAnB,GAA4B,GAAD;SAFjH;AAIA,YAAG,mBAAc,aAAC,EAAS,KAAC,CAA5B;AAEE,sBAAW;SAFb;AAIA,YAAG,mBAAc,aAAC,EAAS,KAAC,CAA5B;AAEE,sBAAW;SAFb;AAIA,YAAG,mBAAc,aAAC,EAAS,KAAC,EAA5B;AAEE,sBAAW,WAAkG,GAAtF,wBAAmB,YAAC,EAArB,GAA8B,GAAD,GAAK,iBAAY,YAAC,EAAd,GAAwB,IAAF,GAAO,qBAAgB,YAAC,EAAlB,GAA2B,GAAD;SAF/G;AAIA,YAAG,mBAAc,aAAC,EAAS,KAAC,EAA5B;AAEE,sBAAW;SAFb;AAIA,YAAG,mBAAc,aAAC,EAAS,KAAC,EAA5B;AAEE,sBAAW,WAA6F,GAAjF,mBAAc,YAAC,EAAhB,GAAyB,GAAD,GAAK,iBAAY,YAAC,EAAd,GAAwB,IAAF,GAAO,qBAAgB,YAAC,EAAlB,GAA2B,GAAD;SAF1G;AAIA,YAAG,mBAAc,aAAC,EAAS,KAAC,EAA5B;AAEE,sBAAW;SAFb;AAIA,YAAG,mBAAc,aAAC,EAAS,KAAC,EAA5B;AAEE,sBAAW,cAAiG,GAAlF,oBAAe,YAAC,EAAjB,GAA0B,GAAD,GAAK,iBAAY,YAAC,EAAd,GAAwB,IAAF,GAAO,qBAAgB,YAAC,EAAlB,GAA2B,GAAD;SAF9G;AAIA,YAAG,mBAAc,aAAC,EAAS,KAAC,EAA5B;AAEE,sBAAW;SAFb;AAKA,eAAE,SAAM,CAAC,EAAE,EAAI,SAAP;AAER,oBAAO;;AAGT,kCAAc,CAAC,mBAAI,GAAC,mBAAD,CAAM;;;;WAAO;;;;WAAQ;;;;WAAM;;;;WAAS;;;;WAAS;;;;WAAU;;;;UAA5D;AACd,kBAAO;AACP,0BAAe,WAAC,CAAS,KAAT;AAChB,0BAAe,WAAC,CAAS,KAAT;AAChB,0BAAe,WAAC,CAAS,IAAT;AAChB,sBAAW,WAAC,CAAS,KAAT;AACZ,sBAAW,WAAC,CAAS,KAAT;AACZ,yBAAc,WAAC,CAAS,KAAT;AACf,uBAAY,WAAC,CAAS,KAAT;AACb,0BAAe,WAAC,CAAS,KAAT;AAChB,0BAAe,WAAC,CAAS,KAAT;AAChB,wBAAa,WAAC,CAAS,KAAT;AACd,4BAAiB,WAAC,CAAS,KAAT;AAClB,2BAAgB,WAAC,CAAS,KAAT;AACjB,yBAAc,WAAC,CAAS,KAAT;AACf,2BAAgB,WAAC,CAAS,KAAT;AACjB,yBAAc,WAAC,CAAS,KAAT;AACf,8BAAmB,WAAC,CAAS,KAAT;AACpB,4BAAiB,WAAC,CAAS,KAAT;AAClB,UAAG,mBAAc,YAAC,EAAQ,KAAC,EAA3B;AAEE,wBAAW,WAAC,CAAS,IAAT;AACZ,sBAAS,WAAC,CAAS,4CAAT;OAHZ;AAKA,UAAG,mBAAc,aAAC,EAAS,KAAC,CAA5B;AAEE,wBAAW,WAAC,CAAS,IAAT;AACZ,2BAAc,WAAC,CAAS,IAAT;AACf,4BAAe,WAAC,CAAS,IAAT;AAChB,6BAAgB,WAAC,CAAS,IAAT;AACjB,6BAAgB,WAAC,CAAS,IAAT;AACjB,gCAAmB,WAAC,CAAS,IAAT;AACpB,sBAAS,WAAC,CAAS,0CAAT;OARZ;AAWA,UAAG,mBAAc,aAAC,EAAS,KAAC,CAA5B;AAEE,yBAAY,WAAC,CAAS,IAAT;AACb,sBAAS,WAAC,CAAS,kCAAT;OAHZ;AAMA,UAAG,mBAAc,aAAC,EAAS,KAAC,CAA5B;AAEE,wBAAW,WAAC,CAAS,IAAT;AACZ,2BAAc,WAAC,CAAS,IAAT;AACf,4BAAe,WAAC,CAAS,IAAT;AAChB,6BAAgB,WAAC,CAAS,IAAT;AACjB,6BAAgB,WAAC,CAAS,IAAT;AACjB,gCAAmB,WAAC,CAAS,IAAT;AACpB,sBAAS,WAAC,CAAS,eAAT;OARZ;AAWA,UAAG,mBAAc,aAAC,EAAS,KAAC,CAA5B;AAEE,0BAAa,WAAC,CAAS,IAAT;AACd,sBAAS,WAAC,CAAS,UAAoG,GAAzF,0BAAqB,YAAC,EAAvB,GAAgC,GAAD,GAAK,iBAAY,YAAC,EAAd,GAAwB,IAAF,GAAO,sBAAiB,YAAC,EAAnB,GAA4B,GAA9G;OAHZ;AAMA,UAAG,mBAAc,aAAC,EAAS,KAAC,CAA5B;AAEE,wBAAW,WAAC,CAAS,IAAT;AACZ,2BAAc,WAAC,CAAS,IAAT;AACf,4BAAe,WAAC,CAAS,IAAT;AAChB,6BAAgB,WAAC,CAAS,IAAT;AACjB,6BAAgB,WAAC,CAAS,IAAT;AACjB,gCAAmB,WAAC,CAAS,IAAT;AACpB,sBAAS,WAAC,CAAS,gBAAT;OARZ;AAWA,UAAG,mBAAc,aAAC,EAAS,KAAC,EAA5B;AAEE,sBAAS,WAAC,CAAS,WAA4E,GAAhE,wBAAmB,YAAC,EAArB,GAA8B,IAAD,GAAM,qBAAgB,YAAC,EAAlB,GAA2B,IAAD,GAAM,iBAAY,YAAC,EAAnG;AACV,2BAAc,WAAC,CAAS,IAAT;OAHjB;AAMA,UAAG,mBAAc,aAAC,EAAS,KAAC,EAA5B;AAEE,sBAAS,WAAC,CAAS,iBAAT;AACV,wBAAW,WAAC,CAAS,IAAT;AACZ,2BAAc,WAAC,CAAS,IAAT;AACf,4BAAe,WAAC,CAAS,IAAT;AAChB,6BAAgB,WAAC,CAAS,IAAT;AACjB,6BAAgB,WAAC,CAAS,IAAT;AACjB,gCAAmB,WAAC,CAAS,IAAT;OARtB;AAWA,UAAG,mBAAc,aAAC,EAAS,KAAC,EAA5B;AAEE,sBAAS,WAAC,CAAS,WAAuE,GAA3D,mBAAc,YAAC,EAAhB,GAAyB,IAAD,GAAM,qBAAgB,YAAC,EAAlB,GAA2B,IAAD,GAAM,iBAAY,YAAC,EAA9F;AACV,2BAAc,WAAC,CAAS,IAAT;OAHjB;AAMA,UAAG,mBAAc,aAAC,EAAS,KAAC,EAA5B;AAEE,sBAAS,WAAC,CAAS,iBAAT;AACV,wBAAW,WAAC,CAAS,IAAT;AACZ,2BAAc,WAAC,CAAS,IAAT;AACf,4BAAe,WAAC,CAAS,IAAT;AAChB,6BAAgB,WAAC,CAAS,IAAT;AACjB,6BAAgB,WAAC,CAAS,IAAT;AACjB,gCAAmB,WAAC,CAAS,IAAT;OARtB;AAWA,UAAG,mBAAc,aAAC,EAAS,KAAC,EAA5B;AAEE,sBAAS,WAAC,CAAS,cAA2C,GAA5B,oBAAe,YAAC,EAAjB,GAA0B,GAAD,GAAK,iBAAY,YAAC,EAAlE;AACV,8BAAiB,WAAC,CAAS,IAAT;OAHpB;AAMA,UAAG,mBAAc,aAAC,EAAS,KAAC,EAA5B;AAEE,sBAAS,WAAC,CAAS,oBAAT;AACV,wBAAW,WAAC,CAAS,IAAT;AACZ,2BAAc,WAAC,CAAS,IAAT;AACf,4BAAe,WAAC,CAAS,IAAT;AAChB,6BAAgB,WAAC,CAAS,IAAT;AACjB,6BAAgB,WAAC,CAAS,IAAT;AACjB,gCAAmB,WAAC,CAAS,IAAT;OARtB;AAWA,UAAG,mBAAc,aAAC,EAAS,KAAC,CAA5B;AAEE,sBAAS,WAAC,CAAS,8CAAT;AACV,8BAAiB,WAAC,CAAS,IAAT;OAHpB;AAKA,UAAG,uCAAkC,aAAC,EAAS,KAAE,CAAjD,EAAwD,oBAAe,WAAC,CAAS,KAAT,CAAxE;AACA,UAAG,wCAAmC,aAAC,EAAS,KAAE,CAAlD,EAAyD,qBAAgB,WAAC,CAAS,KAAT,CAA1E;AACA,UAAG,wCAAmC,aAAC,EAAS,KAAE,CAAlD,EAAyD,qBAAgB,WAAC,CAAS,KAAT,CAA1E;AACA,UAAG,2CAAsC,aAAC,EAAS,KAAE,CAArD,EAA4D,wBAAmB,WAAC,CAAS,KAAT,CAAhF;AACA,UAAG,oCAA+B,aAAC,EAAS,KAAC,CAA7C,EAAoD,oBAAe,WAAC,CAAS,mBAAc,SAAvB,CAApE;AAEA,UAAG,qBAAgB,cAAC,EAAU,GAAC,uBAAU,CAAC,cAAS,cAAS,EAAE,CAArB,CAAzC;AAEE,wBAAW,WAAC,CAAS,KAAT;AACZ,2BAAc,WAAC,CAAS,KAAT;AACf,yBAAY,WAAC,CAAS,KAAT;AACb,4BAAe,WAAC,CAAS,KAAT;AAChB,0BAAa,WAAC,CAAS,KAAT;AACd,wBAAW,WAAC,CAAS,KAAT;AACZ,8BAAiB,WAAC,CAAS,KAAT;AAClB,6BAAgB,WAAC,CAAS,KAAT;AACjB,2BAAc,WAAC,CAAS,KAAT;AACf,gCAAmB,WAAC,CAAS,KAAT;AACpB,8BAAiB,WAAC,CAAS,KAAT;AAClB,6BAAgB,WAAC,CAAS,KAAT;AACjB,2BAAc,WAAC,CAAS,KAAT;AACf,4BAAe,WAAC,CAAS,KAAT;AAChB,sBAAS,WAAC,CAAS,8BAAT;OAhBZ;AAoBA,UAAwB,CAApB,8BAAoB,KAAE,EAAF,CAAM,IAAyB,CAArB,+BAAqB,KAAE,EAAF,CAAvD;AAEG,YAAG,mBAAc,aAAC,EAAS,KAAC,EAA5B,EAAoC,wBAAmB,CAAC,IAAD,CAAvD;AACA,YAAG,mBAAc,aAAC,EAAS,KAAC,EAA5B,EAAoC,wBAAmB,CAAC,IAAD,CAAvD;AACA,YAAG,mBAAc,aAAC,EAAS,KAAC,CAA5B,EAAmC,sBAAiB,CAAC,IAAD,CAApD;AACA,YAAG,mBAAc,aAAC,EAAS,KAAC,CAA5B,EAAmC,uBAAkB,CAAC,IAAD,CAArD;AACA,YAAG,mBAAc,aAAC,EAAS,KAAC,EAA5B,EAAoC,2BAAsB,CAAC,IAAD,CAA1D;OANH;AAQA,wBAAa,WAAC,CAAS,8BAAT;AACd,yBAAc,WAAC,CAAS,+BAAT;AArOc;AAvcA;AAE7B,uBAAW;AACX,6BAAiB,mBAAI,GAAC,mBAAD;AACrB,kCAAc,CAAC,qBAAgB;;;;WAAO;;;;WAAQ;;;;WAAM;;;;WAAS;;;;WAAS;;;;WAAU;;;;UAAlE;AACd,uBAAW;AACX,kBAAO;AACP,kBAAO;AACP,0BAAe,cAAC,CAAY,uBAAU,CAAC,cAAS,cAAS,EAAE,CAArB,CAAtB;AAChB,kBAAO;AACP,uBAAW;AACX,kBAAO;AAXsB;AAmFM;AAEnC,uBAAW;AACX,6BAAiB,mBAAI,GAAC,mBAAD;AACrB,kCAAc,CAAC,qBAAgB;;;;WAAO;;;;WAAQ;;;;WAAM;;;;WAAS;;;;WAAS;;;;WAAU;;;;UAAlE;AACd,uBAAW;AACX,kBAAO;AACP,kBAAO;AACP,0BAAe,cAAC,CAAY,uBAAU,CAAC,cAAS,cAAS,EAAE,CAArB,CAAtB;AAChB,yBAAc,aAAC,CAAW,CAAX;AACf,kBAAO;AACP,uBAAW;AACX,kBAAO;AAZ4B;AA2FJ;AAE/B,uBAAW;AACX,6BAAiB,mBAAI,GAAC,mBAAD;AACrB,kCAAc,CAAC,qBAAgB;;;;WAAO;;;;WAAQ;;;;WAAM;;;;WAAS;;;;WAAS;;;;WAAU;;;;UAAlE;AACd,uBAAW;AACX,kBAAO;AACP,kBAAO;AACP,0BAAe,cAAC,CAAY,uBAAU,CAAC,cAAS,cAAS,EAAE,CAArB,CAAtB;AAChB,8BAAmB,WAAC,CAAS,4BAAc,CAAC,qBAAgB,cAAC,GAAW,oBAAe,cAAC,EAA7C,CAAvB;AACpB,kBAAO;AACP,uBAAW;AACX,kBAAO;AAZwB;AAzCE;;AAEjC;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,oCAAH;AACd,aAAK,eAAL,GAAsB;AALH;AAQG;AAEtB,YAAG,IAAI,eAAe,KAAE,EAAxB;AAEE,kCAAkB,IAAI;AACtB,yBAAS,iBAAI,CAAC,IAAI,eAAmB,GAAH,GAAD,GAAK,IAAI,wBAA7B;AACb,2BAAW;AACX,iCAAiB,mBAAI,GAAC,mBAAD;AACrB,sCAAc,CAAC,qBAAgB;;;;eAAO;;;;eAAQ;;;;eAAM;;;;eAAS;;;;eAAS;;;;eAAU;;;;cAAlE;AACd,2BAAW;AACX,+BAAe,WAAC,CAAS,KAAT;AAChB,+BAAe,WAAC,CAAS,IAAT;AAChB,gCAAgB,QAAC,CAAM,KAAN;AACjB,gCAAgB,WAAC,CAAS,qBAAoB,GAAH,GAAD,GAAK,YAA9B;SAXnB;AAcA,YAAG,IAAI,eAAe,KAAC,EAAvB;AAEE,2CAAW,CAAC,oEAAD;SAFb;AAhBsB;AAwB1B,aAAM,oCAAe,QAAC,eAAS,aAAT;AAEtB,UAAI,YAAU;AArCmB;AAiML;AAE5B,UAAI;AAFwB;AA+Ga;AAEzC,wBAAa;AACb,wBAAa;AAH4B;AA7UT;AAEhC,uBAAW;AACX,6BAAiB,mBAAI,GAAC,mBAAD;AACrB,kCAAc,CAAC,qBAAgB;;;;WAAO;;;;WAAQ;;;;WAAM;;;;WAAS;;;;WAAS;;;;WAAU;;;;UAAlE;AACd,uBAAW;AACX,kBAAO;AACP,kBAAO;AACP,0BAAe,cAAC,CAAY,uBAAU,CAAC,cAAS,cAAS,EAAE,CAArB,CAAtB;AAChB,8BAAmB,WAAC,CAAS,4BAAc,CAAC,qBAAgB,cAAC,GAAW,oBAAe,cAAC,EAA7C,CAAvB;AACpB,iCAAsB,WAAC,CAAS,mCAAT;AAEvB;AACE,8BAAiB,WAAC,CAAuC,CAA9B,2BAAsB,WAAC,EAAO,GAAC,EAAD,CAAG,GAAC,wBAAmB,WAAC,EAA/D;AADpB;;AAMA,kBAAO;AACP,uBAAW;AACX,kBAAO;AApByB;AANE;AAElC,UAAG,+CAA0C,aAAC,EAAS,KAAC,CAAxD,EAA+D,oBAA/D;AACA,UAAG,+CAA0C,aAAC,EAAS,KAAC,CAAxD,EAA+D,oBAA/D;AAHkC;AA0GX;AAEjB,0BAAe,WAAC,CAAS,KAAT;AAChB,6BAAiB,mBAAI,GAAC,mBAAD;AACrB,yBAAa;AACb,UAAG,oBAAe,aAAC,EAAS,KAAC,CAA7B,EAAoC,mBAAa,aAAjD;AACA,UAAG,oBAAe,aAAC,EAAS,KAAC,CAA7B,EAAoC,mBAAa,UAAjD;AAGA,kCAAc,CAAC,qBAAgB;;;;WAAO;;;;WAAQ;;;;WAAM;;;;WAAS;;;;WAAS;;;;WAAU;;;;UAAlE;AAEd,kBAAO;AACP,kBAAO;AACP,0BAAe,cAAC,CAAY,uBAAU,CAAC,cAAS,cAAS,EAAE,CAArB,CAAtB;AAChB,kBAAO;AACP,uBAAW;AACX,kBAAO;AAhBU;AAlNO;AAE9B,0BAAe,WAAC,CAAS,KAAT;AAChB;AAH8B;AA6BI;;AAElC;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,sCAAH;AACd,aAAK,cAAL,GAAqB;AALF;AAQG;AAEtB,YAAG,IAAI,cAAc,KAAE,EAAvB;AAEE,mCAAmB,IAAI;AACvB,yBAAS,iBAAI,CAAC,IAAI,sBAAL;AACb,2BAAW;AACX,2BAAW;AACX,+BAAe,WAAC,CAAS,KAAT;AAChB,+BAAe,WAAC,CAAS,IAAT;AAChB,8BAAc,WAAC,CAAS,sBAAqB,GAAH,GAAD,GAAK,YAA/B;SARjB;AAWA,YAAG,IAAI,cAAc,KAAC,EAAtB;AAEE,2CAAW,CAAC,uEAAD;SAFb;AAbsB;AAqB1B,aAAM,sCAAgB,QAAC,eAAS,aAAT;AAEvB,UAAI,YAAU;AAlCoB;AAqCF;AAEhC,uBAAW;AACX,6BAAiB,mBAAI,GAAC,mBAAD;AACrB,kCAAc,CAAC,qBAAgB;;;;WAAO;;;;WAAQ;;;;WAAM;;;;WAAS;;;;WAAS;;;;WAAU;;;;UAAlE;AACd,uBAAW;AACX,kBAAO;AACP,kBAAO;AACP,0BAAe,cAAC,CAAY,uBAAU,CAAC,cAAS,cAAS,EAAE,CAArB,CAAtB;AAChB,8BAAmB,WAAC,CAAS,4BAAc,CAAC,qBAAgB,cAAC,GAAW,oBAAe,cAAC,EAA7C,CAAvB;AACpB,iCAAsB,WAAC,CAAS,mCAAT;AAEvB;AACE,8BAAiB,WAAC,CAAuC,CAA9B,2BAAsB,WAAC,EAAO,GAAC,EAAD,CAAG,GAAC,wBAAmB,WAAC,EAA/D;AADpB;;AAMA,kBAAO;AACP,uBAAW;AACX,kBAAO;AApByB;AAmPG;AAEnC,uBAAW;AACX,6BAAiB,mBAAI,GAAC,mBAAD;AACrB,kCAAc,CAAC,qBAAgB;;;;WAAO;;;;WAAQ;;;;WAAM;;;;WAAS;;;;WAAS;;;;WAAU;;;;UAAlE;AACd,uBAAW;AACX,kBAAO;AACP,kBAAO;AACP,0BAAe,cAAC,CAAY,uBAAU,CAAC,cAAS,cAAS,EAAE,CAArB,CAAtB;AAChB,8BAAmB,WAAC,CAAS,4BAAc,CAAC,qBAAgB,cAAC,GAAW,oBAAe,cAAC,EAA7C,CAAvB;AACpB,iCAAsB,WAAC,CAAS,mCAAT;AAEvB;AACE,8BAAiB,WAAC,CAAuC,CAA9B,2BAAsB,WAAC,EAAO,GAAC,EAAD,CAAG,GAAC,wBAAmB,WAAC,EAA/D;AADpB;;AAMA,kBAAO;AACP,uBAAW;AACX,kBAAO;AApB4B;AA5CE;;AAErC;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,4CAAH;AACd,aAAK,iBAAL,GAAwB;AALL;AAQG;AAEtB,YAAG,IAAI,iBAAiB,KAAE,EAA1B;AAEE,sCAAsB,IAAI;AAC1B,yBAAS,iBAAI,CAAC,IAAI,sBAAL;AACb,2BAAW;AACX,2BAAW;AACX,iCAAiB,mBAAI,GAAC,mBAAD;AACrB,6BAAa;AACb,sCAAc,CAAC,qBAAgB;;;;eAAO;;;;eAAQ;;;;eAAM;;;;eAAS;;;;eAAS;;;;eAAU;;;;cAAlE;AACd,uBAAO;AACP,uBAAO;AACP,+BAAe,cAAC,CAAY,uBAAU,CAAC,cAAS,cAAS,EAAE,CAArB,CAAtB;AAChB,uBAAO;AACP,2BAAW;AACX,uBAAO;SAdT;AAiBA,YAAG,IAAI,iBAAiB,KAAC,EAAzB;AAEE,2CAAW,CAAC,mFAAD;SAFb;AAnBsB;AA2B1B,aAAM,4CAAmB,QAAC,eAAS,aAAT;AAE1B,UAAI,YAAU;AAxCuB;AApID;AAEpC,0BAAe,WAAC,CAAS,KAAT;AAChB;AAHoC;AA8DP;AAE7B,0BAAe,WAAC,CAAS,KAAT;AAChB,6BAAiB,mBAAI,GAAC,mBAAD;AACrB,yBAAa;AACb,0BAAc,qBAAgB,QAAC;AAC/B,kCAAc,CAAC,qBAAgB;;;;WAAO;;;;WAAQ;;;;WAAM;;;;WAAS;;;;WAAS;;;;WAAU;;;;UAAlE;AACd,kBAAO;AACP,kBAAO;AACP,0BAAe,cAAC,CAAY,uBAAU,CAAC,cAAS,cAAS,EAAE,CAArB,CAAtB;AAChB,kBAAO;AACP,uBAAW;AACX,kBAAO;AAZsB;AA0iBM;AAEnC,2BAAgB,OAAM;AACtB,wBAAa;AACb,aAAM,CAAI,kBAAa,OAAC,EAAxB;AAEE,6BAAgB,OAAM,IAAI,CAAC,4BAAuB,YAAC,EAAzB;AAC1B,0BAAa;;AAGf,+BAAoB;AACpB,+BAAoB,aAApB,GAAkC,oDAAgI,GAA3E,gCAAD,GAAwB,kBAAD,GAAoB,2BAAc,CAAC,aAAa,mBAAd,CAAf,GAAmC,GAAD;AAClK,+BAAoB;AAZe;AAzeF;AAEjC,sBAAW;AAFsB;AA4GQ;AAGzC;AAEA,eAAS,QAAS,kBAAC,IAAI,QAAL,uBAAlB;AAAI;AAEF,YAAG,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAM,KAAE,EAA1B,EAAkC,iCAAW,CAAC,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAhB,CAA7C;;AAEF;AATyC;AAYR;AAEjC,uBAAW;AACX,6BAAiB,mBAAI,GAAC,mBAAD;AACrB,kCAAc,CAAC,qBAAgB;;;;WAAO;;;;WAAQ;;;;WAAM;;;;WAAS;;;;WAAS;;;;WAAU;;;;UAAlE;AACd,sBAAW;AACX,sBAAW;AACX,8BAAmB,cAAC,CAAY,uBAAU,CAAC,cAAS,cAAS,EAAE,CAArB,CAAtB;AACpB,sBAAW;AACX,sBAAW;AAEX,0BAAe,aAAC,CAAO,yBAAoB,eAAC,EAA5B;AAChB,oCAAyB,YAAC,CAAU,gCAAV;AAC1B,mCAAwB,cAAC,CAAY,oBAAZ;AACzB,2BAAgB,cAAC,CAAY,uBAAU,CAAC,YAAO,aAAQ,UAAhB,CAAtB;AACjB,6BAAkB,aAAC,CAAW,CAAX;AACnB,+BAAoB,cAAC,CAAY,uBAAU,CAAC,cAAS,cAAS,EAAE,CAArB,CAAtB;AACrB,iCAAsB,aAAC,CAAW,KAAX;AACvB,yBAAc,WAAC,CAAS,SAAT;AACf,oCAAyB,YAAC,CAAU,EAAV;AAC1B,kCAAuB,YAAC,CAAU,EAAV;AACxB,6BAAkB,YAAC,CAAU,EAAV;AACnB,8BAAmB,YAAC,CAAU,EAAV;AACpB,gCAAqB,YAAC,CAAU,KAAV;AACtB,+BAAoB,YAAC,CAAU,KAAV;AACrB,kCAAuB,WAAC,CAAS,CAAT;AACxB,2BAAgB,YAAC,CAAU,OAAV;AACjB,qCAA0B,WAAC,CAAS,CAAT;AAC3B,gCAAqB,WAAC,CAAS,CAAT;AACtB,8BAAmB,cAAC,CAAY,uBAAU,CAAC,cAAS,cAAS,EAAE,CAArB,CAAuB,GAAC,gBAA9C;AACpB,kCAAuB,WAAC,CAAS,4BAAc,CAAC,yBAAoB,cAAC,GAAW,wBAAmB,cAAC,EAArD,CAAvB;AACxB,uBAAW;AACX,sBAAW;AACX,sBAAW;AACX,0BAAe,aAAC,CAAO,yBAAoB,eAAC,EAA5B;AAChB,oCAAyB,YAAC,CAAU,gCAAV;AAC1B,mCAAwB,cAAC,CAAY,oBAAe,GAAC,gBAA5B;AACzB,2BAAgB,cAAC,CAAY,uBAAU,CAAC,YAAO,aAAQ,UAAhB,CAAtB;AACjB,6BAAkB,aAAC,CAAW,CAAX;AACnB,+BAAoB,cAAC,CAAY,uBAAU,CAAC,cAAS,cAAS,EAAE,CAArB,CAAuB,GAAC,gBAA9C;AACrB,iCAAsB,aAAC,CAAW,KAAX;AACvB,yBAAc,WAAC,CAAS,SAAI,GAAC,CAAd;AACf,oCAAyB,YAAC,CAAU,EAAV;AAC1B,kCAAuB,YAAC,CAAU,EAAV;AACxB,6BAAkB,YAAC,CAAU,EAAV;AACnB,8BAAmB,YAAC,CAAU,EAAV;AACpB,gCAAqB,YAAC,CAAU,KAAV;AACtB,+BAAoB,YAAC,CAAU,KAAV;AACrB,kCAAuB,WAAC,CAAS,CAAT;AACxB,2BAAgB,YAAC,CAAU,EAAV;AACjB,qCAA0B,WAAC,CAAS,CAAT;AAC3B,gCAAqB,WAAC,CAAS,CAAT;AACtB,kCAAuB,WAAC,CAAS,CAAT;AACxB,uBAAW;AACX,sBAAW;AAtDsB;AA0DA;AAEjC,UAAG,cAAS,KAAC,CAAb,EAAoB,gBAAW,eAA/B;AAFiC;AArGV;AAEvB,kBAAO;AACP,8BAAmB;AACnB,8BAAmB;AAJI;AA4aG;;AAE1B;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,sCAAH;AACd,aAAK,cAAL,GAAqB;AACrB,aAAK,sBAAL,GAA6B;AANV;AASG;AAEtB,YAAG,IAAI,cAAc,KAAE,EAAvB;AAEE,mCAAmB,IAAI;AACvB,yBAAS,iBAAI,CAAC,IAAI,UAAc,GAAH,GAAD,GAAK,IAAI,WAAxB;AACb,2BAAW;AACX,2BAAW;AACX,+BAAe,WAAC,CAAS,KAAT;AAChB,+BAAe,WAAC,CAAS,IAAT;AAChB,8BAAc,WAAC,CAAS,sBAAqB,GAAH,GAAD,GAAK,YAA/B;SARjB;AAWA,YAAG,IAAI,cAAc,KAAC,EAAtB;AAEE,2CAAW,CAAC,uEAAD;SAFb;AAbsB;AAqB1B,aAAM,sCAAgB,QAAC,eAAS,aAAT;AAEvB,UAAI,YAAU;AAnCY;AAuCA;;AAE1B;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,kDAAH;AACd,aAAK,cAAL,GAAqB;AACrB,aAAK,sBAAL,GAA6B;AANV;AASG;AAEtB,YAAG,IAAI,cAAc,KAAE,EAAvB;AAEE,mCAAmB,IAAI;AACvB,yBAAS,iBAAI,CAAC,IAAI,UAAc,GAAH,GAAD,GAAK,IAAI,WAAxB;AACb,2BAAW;AACX,2BAAW;AACX,+BAAe,WAAC,CAAS,KAAT;AAChB,+BAAe,WAAC,CAAS,IAAT;AAChB,8BAAc,WAAC,CAAS,sBAAqB,GAAH,GAAD,GAAK,YAA/B;SARjB;AAWA,YAAG,IAAI,cAAc,KAAC,EAAtB;AAEE,2CAAW,CAAC,uEAAD;SAFb;AAbsB;AAqB1B,aAAM,kDAAsB,QAAC,eAAS,aAAT;AAE7B,UAAI,YAAU;AAnCY;AAuCA;AAEhB;AAEV,uBAAa,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,sBAAY,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACnB,yBAAe,8BAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,2BAAiB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,4BAAkB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACzB,6BAAmB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1B,yBAAe,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,4BAAkB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1B,0BAAgB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,yBAAe,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,6BAAmB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,2BAAiB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACzB,+BAAqB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,8BAAoB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,4BAAkB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1B,8BAAoB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,4BAAkB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1B,iCAAuB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,+BAAqB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,6BAAmB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,6BAAmB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1B,4BAAkB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACzB,6BAAmB,kCAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,mBAAS,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACjB,0BAAgB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,6BAAmB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1B,8BAAoB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,yBAAe,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,gCAAsB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,8BAAoB,gCAAS,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,kCAAwB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,gDAAsC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,uCAA6B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,2CAAiC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,qBAAW,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,mCAAyB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,kCAAwB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,0BAAgB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,4BAAkB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,8BAAoB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,6BAAmB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,wBAAc,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1B,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,yBAAe,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,uBAAa,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1B,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,4BAAkB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,wBAAc,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1B,iCAAuB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,gDAAsC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,iDAAuC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,iDAAuC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,oDAA0C,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,wDAA8C,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5D,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,2BAAiB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,8BAAoB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,yBAAe,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,6BAAmB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,2BAAiB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,sCAA4B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,8BAAoB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,kCAAwB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,iCAAuB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,oCAA0B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,4BAAkB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAErC,oBAAS;AACT,mBAAQ;AACR,sBAAW;AACX,wBAAa;AACb,yBAAc;AACd,0BAAe;AACf,sBAAW;AACX,yBAAc;AACd,uBAAY;AACZ,sBAAW;AACX,0BAAe;AACf,wBAAa;AACb,4BAAiB;AACjB,2BAAgB;AAChB,yBAAc;AACd,2BAAgB;AAChB,yBAAc;AACd,8BAAmB;AACnB,4BAAiB;AACjB,0BAAe;AACf,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,aAAE;AACF,0BAAe;AACf,yBAAc;AACd,0BAAe;AACf,gBAAK;AACL,uBAAY;AACZ,0BAAe;AACf,2BAAgB;AAChB,sBAAW;AACX,6BAAkB;AAClB,2BAAgB;AAChB,+BAAoB;AACpB,iCAAsB;AACtB,6CAAkC;AAClC,oCAAyB;AACzB,0CAA+B;AAC/B,wCAA6B;AAC7B,kCAAuB;AACvB,kBAAO;AACP,gCAAqB;AACrB,+BAAoB;AACpB,uBAAY;AACZ,yBAAc;AACd,gCAAqB;AACrB,2BAAgB;AAChB,0BAAe;AACf,6BAAkB;AAClB,qBAAU;AACV,4BAAiB;AACjB,sBAAW;AACX,oBAAS;AACT,8BAAmB;AACnB,yBAAc;AACd,0BAAe;AACf,2BAAgB;AAChB,uBAAY;AACZ,8BAAmB;AACnB,iCAAsB;AACtB,4BAAiB;AACjB,qBAAU;AACV,8BAAmB;AACnB,6CAAkC;AAClC,8CAAmC;AACnC,8CAAmC;AACnC,iDAAsC;AACtC,qDAA0C;AAC1C,0CAA+B;AAC/B,iCAAsB;AACtB,wBAAa;AACb,kCAAuB;AACvB,2BAAgB;AAChB,sBAAW;AACX,0BAAe;AACf,wBAAa;AACb,oCAAyB;AACzB,mCAAwB;AACxB,2BAAgB;AAChB,6BAAkB;AAClB,oCAAyB;AACzB,+BAAoB;AACpB,8BAAmB;AACnB,iCAAsB;AACtB,yBAAc;AACd,gCAAqB;AACrB,kCAAuB;AACvB,6BAAkB;AAClB,8BAAmB;AACnB,+BAAoB;AACpB,2BAAgB;AAChB,kCAAuB;AACvB,qCAA0B;AAC1B,gCAAqB;AACrB;AACE,qBAAQ,KAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,wBAAW,KAAX;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,QAAC,CAAQ,CAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,sBAAS,SAAC,CAAS,EAAT;AACV,sBAAS,UAAC,CAAU,EAAV;AACV,sBAAS,WAAC,CAAW,WAAX;AACV,sBAAS,oBAAC,CAAoB,qBAApB;AACV,sBAAS,eAAC,CAAe,yCAAf;AACV,sBAAS,mBAAC,CAAmB,gDAAnB;AACV,sBAAS,eAAC,CAAe,wCAAf;AACV,sBAAS,iBAAC,CAAiB,sBAAjB;AACV,sBAAS,cAAC,CAAc,wCAAd;AACV,sBAAS,gBAAC,CAAgB,sBAAhB;AACV,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,oBAAC,CAAoB,IAApB;AACT,qBAAQ,QAAC,CAAQ,CAAC,CAAT;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,qBAAQ,SAAC,CAAS,EAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,aAAC,CAAa,+BAAb;AACT,qBAAQ,WAAC,CAAW,UAAX;AACT,qBAAQ,oBAAC,CAAoB,qBAApB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,cAAC,CAAc,wCAAd;AACT,qBAAQ,gBAAC,CAAgB,sBAAhB;AACT,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,oBAAC,CAAoB,IAApB;AACZ,wBAAW,QAAC,CAAQ,EAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,EAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,WAAC,CAAW,aAAX;AACZ,wBAAW,oBAAC,CAAoB,qBAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,YAAC,CAAY,mCAAZ;AACZ,wBAAW,cAAC,CAAc,wCAAd;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,wBAAW,aAAC,CAAa,OAAb;AACZ,wBAAW,cAAC,CAAc,4BAAd;AACZ,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,QAAC,CAAQ,GAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,0BAAa,SAAC,CAAS,EAAT;AACd,0BAAa,UAAC,CAAU,EAAV;AACd,0BAAa,WAAC,CAAW,WAAX;AACd,0BAAa,oBAAC,CAAoB,qBAApB;AACd,0BAAa,eAAC,CAAe,yCAAf;AACd,0BAAa,mBAAC,CAAmB,gDAAnB;AACd,0BAAa,eAAC,CAAe,wCAAf;AACd,0BAAa,iBAAC,CAAiB,sBAAjB;AACd,0BAAa,cAAC,CAAc,wCAAd;AACd,0BAAa,gBAAC,CAAgB,sBAAhB;AACd,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,GAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,EAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,WAAC,CAAW,WAAX;AACf,2BAAc,oBAAC,CAAoB,qBAApB;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,iBAAC,CAAiB,sBAAjB;AACf,2BAAc,cAAC,CAAc,wCAAd;AACf,2BAAc,gBAAC,CAAgB,sBAAhB;AACf,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,CAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,4BAAe,SAAC,CAAS,GAAT;AAChB,4BAAe,UAAC,CAAU,GAAV;AAChB,4BAAe,oBAAC,CAAoB,sBAApB;AAChB,4BAAe,WAAC,CAAW,iBAAX;AAChB,4BAAe,gBAAC,CAAc,CAAd;AAChB,4BAAe,SAAC,CAAS,OAAT;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,mBAAC,CAAmB,gDAAnB;AAChB,4BAAe,eAAC,CAAe,KAAf;AAChB,wBAAW,mBAAmB,CAAC,oBAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,oBAAC,CAAoB,IAApB;AACZ,wBAAW,QAAC,CAAQ,CAAR;AACZ,wBAAW,OAAC,CAAO,CAAP;AACZ,wBAAW,SAAC,CAAS,GAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,SAAC,CAAS,mCAAT;AACZ,wBAAW,WAAC,CAAW,UAAX;AACZ,wBAAW,gBAAC,CAAc,CAAd;AACZ,wBAAW,oBAAC,CAAoB,iCAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,uBAAQ,CAAC,iBAAa,KAAM,UAAW,kBAA/B;AACR,2BAAc,mBAAmB,CAAC,oBAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,oBAAC,CAAoB,IAApB;AACf,2BAAc,QAAC,CAAQ,CAAR;AACf,2BAAc,OAAC,CAAO,EAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,SAAC,CAAS,mCAAT;AACf,2BAAc,WAAC,CAAW,OAAX;AACf,2BAAc,gBAAC,CAAc,CAAd;AACf,2BAAc,oBAAC,CAAoB,iCAApB;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,iBAAC,CAAiB,sBAAjB;AACf,2BAAc,gBAAC,CAAgB,sBAAhB;AACf,uBAAQ,CAAC,oBAAgB,KAAM,UAAW,qBAAlC;AACR,yBAAY,mBAAmB,CAAC,oBAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,oBAAC,CAAoB,IAApB;AACb,yBAAY,QAAC,CAAQ,CAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,GAAT;AACb,yBAAY,UAAC,CAAU,EAAV;AACb,yBAAY,SAAC,CAAS,mCAAT;AACb,yBAAY,WAAC,CAAW,YAAX;AACb,yBAAY,gBAAC,CAAc,EAAd;AACb,yBAAY,oBAAC,CAAoB,iCAApB;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,eAAC,CAAe,wCAAf;AACb,yBAAY,iBAAC,CAAiB,sBAAjB;AACb,yBAAY,gBAAC,CAAgB,sBAAhB;AACb,uBAAQ,CAAC,kBAAc,KAAM,UAAW,mBAAhC;AACR,wBAAW,mBAAmB,CAAC,oBAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,oBAAC,CAAoB,IAApB;AACZ,wBAAW,QAAC,CAAQ,CAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,GAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,SAAC,CAAS,mCAAT;AACZ,wBAAW,WAAC,CAAW,UAAX;AACZ,wBAAW,gBAAC,CAAc,EAAd;AACZ,wBAAW,oBAAC,CAAoB,iCAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,uBAAQ,CAAC,iBAAa,KAAM,UAAW,kBAA/B;AACR,4BAAe,mBAAmB,CAAC,oBAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,oBAAC,CAAoB,IAApB;AAChB,4BAAe,QAAC,CAAQ,CAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,4BAAe,SAAC,CAAS,GAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,SAAC,CAAS,mCAAT;AAChB,4BAAe,WAAC,CAAW,QAAX;AAChB,4BAAe,gBAAC,CAAc,EAAd;AAChB,4BAAe,oBAAC,CAAoB,iCAApB;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,iBAAC,CAAiB,sBAAjB;AAChB,4BAAe,gBAAC,CAAgB,sBAAhB;AAChB,uBAAQ,CAAC,qBAAiB,KAAM,UAAW,sBAAnC;AACR,0BAAa,mBAAmB,CAAC,oBAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,oBAAC,CAAoB,IAApB;AACd,0BAAa,QAAC,CAAQ,CAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,0BAAa,SAAC,CAAS,GAAT;AACd,0BAAa,UAAC,CAAU,EAAV;AACd,0BAAa,SAAC,CAAS,mCAAT;AACd,0BAAa,WAAC,CAAW,aAAX;AACd,0BAAa,gBAAC,CAAc,EAAd;AACd,0BAAa,oBAAC,CAAoB,iCAApB;AACd,0BAAa,eAAC,CAAe,yCAAf;AACd,0BAAa,eAAC,CAAe,wCAAf;AACd,0BAAa,iBAAC,CAAiB,sBAAjB;AACd,0BAAa,gBAAC,CAAgB,sBAAhB;AACd,uBAAQ,CAAC,mBAAe,KAAM,UAAW,oBAAjC;AACR,8BAAiB,mBAAmB,CAAC,oBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,oBAAC,CAAoB,IAApB;AAClB,8BAAiB,QAAC,CAAQ,CAAR;AAClB,8BAAiB,OAAC,CAAO,GAAP;AAClB,8BAAiB,SAAC,CAAS,GAAT;AAClB,8BAAiB,UAAC,CAAU,EAAV;AAClB,8BAAiB,SAAC,CAAS,mCAAT;AAClB,8BAAiB,WAAC,CAAW,iBAAX;AAClB,8BAAiB,gBAAC,CAAc,EAAd;AAClB,8BAAiB,oBAAC,CAAoB,iCAApB;AAClB,8BAAiB,eAAC,CAAe,yCAAf;AAClB,8BAAiB,eAAC,CAAe,wCAAf;AAClB,8BAAiB,iBAAC,CAAiB,sBAAjB;AAClB,8BAAiB,gBAAC,CAAgB,sBAAhB;AAClB,uBAAQ,CAAC,uBAAmB,KAAM,UAAW,wBAArC;AACR,6BAAgB,mBAAmB,CAAC,oBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,oBAAC,CAAoB,IAApB;AACjB,6BAAgB,QAAC,CAAQ,CAAR;AACjB,6BAAgB,OAAC,CAAO,GAAP;AACjB,6BAAgB,SAAC,CAAS,GAAT;AACjB,6BAAgB,UAAC,CAAU,EAAV;AACjB,6BAAgB,SAAC,CAAS,mCAAT;AACjB,6BAAgB,WAAC,CAAW,SAAX;AACjB,6BAAgB,gBAAC,CAAc,EAAd;AACjB,6BAAgB,oBAAC,CAAoB,iCAApB;AACjB,6BAAgB,eAAC,CAAe,yCAAf;AACjB,6BAAgB,eAAC,CAAe,wCAAf;AACjB,6BAAgB,iBAAC,CAAiB,sBAAjB;AACjB,6BAAgB,gBAAC,CAAgB,sBAAhB;AACjB,uBAAQ,CAAC,sBAAkB,KAAM,UAAW,uBAApC;AACR,2BAAc,mBAAmB,CAAC,oBAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,oBAAC,CAAoB,IAApB;AACf,2BAAc,QAAC,CAAQ,CAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,SAAC,CAAS,mCAAT;AACf,2BAAc,WAAC,CAAW,cAAX;AACf,2BAAc,gBAAC,CAAc,EAAd;AACf,2BAAc,oBAAC,CAAoB,iCAApB;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,iBAAC,CAAiB,sBAAjB;AACf,2BAAc,gBAAC,CAAgB,sBAAhB;AACf,uBAAQ,CAAC,oBAAgB,KAAM,UAAW,qBAAlC;AACR,6BAAgB,mBAAmB,CAAC,oBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,oBAAC,CAAoB,IAApB;AACjB,6BAAgB,QAAC,CAAQ,CAAR;AACjB,6BAAgB,OAAC,CAAO,GAAP;AACjB,6BAAgB,SAAC,CAAS,GAAT;AACjB,6BAAgB,UAAC,CAAU,EAAV;AACjB,6BAAgB,SAAC,CAAS,mCAAT;AACjB,6BAAgB,WAAC,CAAW,SAAX;AACjB,6BAAgB,gBAAC,CAAc,EAAd;AACjB,6BAAgB,oBAAC,CAAoB,iCAApB;AACjB,6BAAgB,eAAC,CAAe,yCAAf;AACjB,6BAAgB,eAAC,CAAe,wCAAf;AACjB,6BAAgB,iBAAC,CAAiB,sBAAjB;AACjB,6BAAgB,gBAAC,CAAgB,sBAAhB;AACjB,uBAAQ,CAAC,sBAAkB,KAAM,UAAW,uBAApC;AACR,2BAAc,mBAAmB,CAAC,oBAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,oBAAC,CAAoB,IAApB;AACf,2BAAc,QAAC,CAAQ,CAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,SAAC,CAAS,mCAAT;AACf,2BAAc,WAAC,CAAW,cAAX;AACf,2BAAc,gBAAC,CAAc,EAAd;AACf,2BAAc,oBAAC,CAAoB,iCAApB;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,iBAAC,CAAiB,sBAAjB;AACf,2BAAc,gBAAC,CAAgB,sBAAhB;AACf,uBAAQ,CAAC,oBAAgB,KAAM,UAAW,qBAAlC;AACR,gCAAmB,mBAAmB,CAAC,oBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,oBAAC,CAAoB,IAApB;AACpB,gCAAmB,QAAC,CAAQ,CAAR;AACpB,gCAAmB,OAAC,CAAO,GAAP;AACpB,gCAAmB,SAAC,CAAS,GAAT;AACpB,gCAAmB,UAAC,CAAU,EAAV;AACpB,gCAAmB,SAAC,CAAS,mCAAT;AACpB,gCAAmB,WAAC,CAAW,YAAX;AACpB,gCAAmB,gBAAC,CAAc,EAAd;AACpB,gCAAmB,oBAAC,CAAoB,iCAApB;AACpB,gCAAmB,eAAC,CAAe,yCAAf;AACpB,gCAAmB,eAAC,CAAe,wCAAf;AACpB,gCAAmB,iBAAC,CAAiB,sBAAjB;AACpB,gCAAmB,gBAAC,CAAgB,sBAAhB;AACpB,uBAAQ,CAAC,yBAAqB,KAAM,UAAW,0BAAvC;AACR,8BAAiB,mBAAmB,CAAC,oBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,oBAAC,CAAoB,IAApB;AAClB,8BAAiB,QAAC,CAAQ,CAAR;AAClB,8BAAiB,OAAC,CAAO,GAAP;AAClB,8BAAiB,SAAC,CAAS,GAAT;AAClB,8BAAiB,UAAC,CAAU,EAAV;AAClB,8BAAiB,SAAC,CAAS,mCAAT;AAClB,8BAAiB,WAAC,CAAW,iBAAX;AAClB,8BAAiB,gBAAC,CAAc,EAAd;AAClB,8BAAiB,oBAAC,CAAoB,iCAApB;AAClB,8BAAiB,eAAC,CAAe,yCAAf;AAClB,8BAAiB,eAAC,CAAe,wCAAf;AAClB,8BAAiB,iBAAC,CAAiB,sBAAjB;AAClB,8BAAiB,gBAAC,CAAgB,sBAAhB;AAClB,uBAAQ,CAAC,uBAAmB,KAAM,UAAW,wBAArC;AACR,4BAAe,mBAAmB,CAAC,oBAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,oBAAC,CAAoB,IAApB;AAChB,4BAAe,QAAC,CAAQ,CAAR;AAChB,4BAAe,OAAC,CAAO,EAAP;AAChB,4BAAe,SAAC,CAAS,GAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,SAAC,CAAS,mCAAT;AAChB,4BAAe,WAAC,CAAW,OAAX;AAChB,4BAAe,gBAAC,CAAc,CAAd;AAChB,4BAAe,oBAAC,CAAoB,iCAApB;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,iBAAC,CAAiB,sBAAjB;AAChB,4BAAe,gBAAC,CAAgB,sBAAhB;AAChB,uBAAQ,CAAC,qBAAiB,KAAM,UAAW,sBAAnC;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,QAAC,CAAQ,CAAR;AACH,eAAE,OAAC,CAAO,GAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,EAAV;AACH,eAAE,oBAAC,CAAoB,yDAApB;AACH,eAAE,eAAC,CAAe,wCAAf;AACH,eAAE,cAAC,CAAc,2CAAd;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,gBAAC,CAAc,CAAd;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,0BAAC,CAA0B,YAA1B;AACH,eAAE,mBAAC,CAAmB,gDAAnB;AACH,eAAE,yBAAC,CAAyB,yDAAzB;AACH,eAAE,SAAQ,kBAAC,CAAkB,IAAlB;AACX,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,GAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,4BAAe,SAAC,CAAS,GAAT;AAChB,4BAAe,UAAC,CAAU,GAAV;AAChB,4BAAe,oBAAC,CAAoB,sBAApB;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,WAAC,CAAW,iBAAX;AAChB,4BAAe,gBAAC,CAAc,CAAd;AAChB,4BAAe,sBAAf,GAAwC;AACxC,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,mBAAC,CAAmB,gDAAnB;AAChB,4BAAe,eAAC,CAAe,KAAf;AAChB,2BAAc,mBAAmB,CAAC,oBAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,EAAR;AACf,2BAAc,OAAC,CAAO,CAAP;AACf,2BAAc,SAAC,CAAS,EAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,WAAC,CAAW,gBAAX;AACf,2BAAc,yBAAC,CAAyB,IAAzB;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,iBAAC,CAAiB,sBAAjB;AACf,2BAAc,UAAd,GAA2B;AAC3B,2BAAc,cAAC,CAAc,wCAAd;AACf,2BAAc,gBAAC,CAAgB,sBAAhB;AACf,4BAAe,mBAAmB,CAAC,oBAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,EAAR;AAChB,4BAAe,OAAC,CAAO,EAAP;AAChB,4BAAe,SAAC,CAAS,GAAT;AAChB,4BAAe,UAAC,CAAU,GAAV;AAChB,4BAAe,oBAAC,CAAoB,YAApB;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,cAAC,CAAc,wCAAd;AAChB,4BAAe,WAAC,CAAW,YAAX;AAChB,4BAAe,gBAAC,CAAc,CAAd;AAChB,4BAAe,WAAC,CAAW,CAAX;AAChB,4BAAe,mBAAC,CAAmB,gDAAnB;AAChB,4BAAe,wBAAf,GAA0C;AAC1C,4BAAe,uBAAf,GAAyC;AACzC,4BAAe,uBAAf,GAAyC;AACzC,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,mBAAC,CAAmB,gDAAnB;AAChB,4BAAe,aAAC,CAAa,CAAb;AAChB,4BAAe,OAAM;AACrB;AACE,8BAAe,OAAM;AACrB,8BAAe,OAAM,IAAI,CAAC,KAAD;AACzB,8BAAe,OAAM,IAAI,CAAC,aAAD;AACzB,8BAAe,OAAM,IAAI,CAAC,UAAD;AAJ3B;AAME,8BAAe,OAAM;AANvB;AAQA,4BAAe,QAAC,CAAQ,EAAR;AAChB,kBAAK,mBAAmB,CAAC,oBAAD;AACxB,kBAAK,QAAC,CAAQ,OAAR;AACN,kBAAK,QAAC,CAAQ,GAAR;AACN,kBAAK,OAAC,CAAO,GAAP;AACN,kBAAK,SAAC,CAAS,EAAT;AACN,kBAAK,UAAC,CAAU,EAAV;AACN,kBAAK,WAAC,CAAW,IAAX;AACN,kBAAK,gBAAC,CAAc,CAAd;AACN,kBAAK,oBAAC,CAAoB,qCAApB;AACN,kBAAK,eAAC,CAAe,yCAAf;AACN,kBAAK,mBAAC,CAAmB,gDAAnB;AACN,kBAAK,eAAC,CAAe,wCAAf;AACN,kBAAK,iBAAC,CAAiB,sBAAjB;AACN,kBAAK,gBAAC,CAAgB,sBAAhB;AACN,uBAAQ,CAAC,WAAO,KAAM,UAAW,YAAzB;AACR,yBAAY,mBAAmB,CAAC,oBAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,QAAC,CAAQ,EAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,EAAT;AACb,yBAAY,UAAC,CAAU,EAAV;AACb,yBAAY,WAAC,CAAW,WAAX;AACb,yBAAY,gBAAC,CAAc,CAAd;AACb,yBAAY,oBAAC,CAAoB,qCAApB;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,mBAAC,CAAmB,gDAAnB;AACb,yBAAY,eAAC,CAAe,wCAAf;AACb,yBAAY,iBAAC,CAAiB,sBAAjB;AACb,yBAAY,gBAAC,CAAgB,sBAAhB;AACb,uBAAQ,CAAC,kBAAc,KAAM,UAAW,mBAAhC;AACR,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,GAAR;AAChB,4BAAe,OAAC,CAAO,EAAP;AAChB,4BAAe,SAAC,CAAS,GAAT;AAChB,4BAAe,UAAC,CAAU,GAAV;AAChB,4BAAe,oBAAC,CAAoB,sBAApB;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,WAAC,CAAW,iBAAX;AAChB,4BAAe,gBAAC,CAAc,CAAd;AAChB,4BAAe,sBAAf,GAAwC;AACxC,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,mBAAC,CAAmB,gDAAnB;AAChB,4BAAe,eAAC,CAAe,KAAf;AAChB,6BAAgB,mBAAmB,CAAC,oBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,QAAC,CAAQ,EAAR;AACjB,6BAAgB,OAAC,CAAO,CAAP;AACjB,6BAAgB,SAAC,CAAS,EAAT;AACjB,6BAAgB,UAAC,CAAU,EAAV;AACjB,6BAAgB,WAAC,CAAW,gBAAX;AACjB,6BAAgB,yBAAC,CAAyB,IAAzB;AACjB,6BAAgB,eAAC,CAAe,yCAAf;AACjB,6BAAgB,mBAAC,CAAmB,gDAAnB;AACjB,6BAAgB,eAAC,CAAe,wCAAf;AACjB,6BAAgB,iBAAC,CAAiB,sBAAjB;AACjB,6BAAgB,UAAhB,GAA6B;AAC7B,6BAAgB,cAAC,CAAc,wCAAd;AACjB,6BAAgB,gBAAC,CAAgB,sBAAhB;AACjB,wBAAW,mBAAmB,CAAC,oBAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,GAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,EAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,WAAC,CAAW,IAAX;AACZ,wBAAW,gBAAC,CAAc,CAAd;AACZ,wBAAW,oBAAC,CAAoB,qCAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,uBAAQ,CAAC,iBAAa,KAAM,UAAW,kBAA/B;AACR,+BAAkB,mBAAmB,CAAC,oBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,QAAC,CAAQ,EAAR;AACnB,+BAAkB,OAAC,CAAO,GAAP;AACnB,+BAAkB,SAAC,CAAS,EAAT;AACnB,+BAAkB,UAAC,CAAU,EAAV;AACnB,+BAAkB,WAAC,CAAW,WAAX;AACnB,+BAAkB,gBAAC,CAAc,CAAd;AACnB,+BAAkB,oBAAC,CAAoB,qCAApB;AACnB,+BAAkB,eAAC,CAAe,yCAAf;AACnB,+BAAkB,mBAAC,CAAmB,gDAAnB;AACnB,+BAAkB,eAAC,CAAe,wCAAf;AACnB,+BAAkB,iBAAC,CAAiB,sBAAjB;AACnB,+BAAkB,gBAAC,CAAgB,sBAAhB;AACnB,uBAAQ,CAAC,wBAAoB,KAAM,UAAW,yBAAtC;AACR,6BAAgB,mBAAmB,CAAC,oBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,QAAC,CAAQ,EAAR;AACjB,6BAAgB,OAAC,CAAO,EAAP;AACjB,6BAAgB,SAAC,CAAS,GAAT;AACjB,6BAAgB,UAAC,CAAU,EAAV;AACjB,6BAAgB,gBAAC,CAAc,CAAd;AACjB,6BAAgB,oBAAC,CAAoB,uBAApB;AACjB,6BAAgB,eAAC,CAAe,yCAAf;AACjB,6BAAgB,mBAAC,CAAmB,gDAAnB;AACjB,6BAAgB,eAAC,CAAe,wCAAf;AACjB,6BAAgB,iBAAC,CAAiB,sBAAjB;AACjB,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,gBAAC,CAAgB,sBAAhB;AACjB,6BAAgB,aAAC,CAAa,CAAC,CAAd;AACjB,iCAAoB,mBAAmB,CAAC,IAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,iBAAC,CAAiB,mBAAjB;AACrB,iCAAoB,cAAC,CAAc,aAAG,oBAAjB;AACrB,iCAAoB,QAAC,CAAQ,GAAR;AACrB,iCAAoB,OAAC,CAAO,EAAP;AACrB,mCAAsB,mBAAmB,CAAC,yBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,UAAtB,GAAmC;AACnC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,+CAAkC,mBAAmB,CAAC,yBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,UAAlC,GAA+C;AAC/C,sCAAyB,mBAAmB,CAAC,yBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,UAAzB,GAAsC;AACtC,sCAAyB,iBAAC,CAAiB,gBAAjB;AAC1B,4CAA+B,mBAAmB,CAAC,yBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,UAA/B,GAA4C;AAC5C,0CAA6B,mBAAmB,CAAC,yBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,oCAAuB,mBAAmB,CAAC,IAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAC,CAAW,yBAAX;AACxB,oCAAuB,QAAC,CAAQ,EAAR;AACxB,oCAAuB,OAAC,CAAO,EAAP;AACxB,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,mBAAP,GAA6B;AAC7B,oBAAO,WAAP,GAAqB;AACrB,oBAAO,WAAP,GAAqB;AACrB,uBAAQ,CAAC,aAAS,KAAM,cAAe,kBAA/B;AACR,oBAAO,iBAAC,CAAiB,uBAAjB;AACR,oBAAO,cAAC,CAAc,aAAG,oBAAjB;AACR,oBAAO,QAAC,CAAQ,GAAR;AACR,oBAAO,OAAC,CAAO,EAAP;AACR,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,UAArB,GAAkC;AAClC,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,iBAAC,CAAiB,qBAAjB;AACrB,yBAAY,mBAAmB,CAAC,YAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,UAAZ,GAAyB;AACzB,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,6BAAgB,mBAAmB,CAAC,YAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,iBAAC,CAAiB,OAAjB;AACjB,4BAAe,mBAAmB,CAAC,YAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,iBAAC,CAAiB,OAAjB;AAChB,+BAAkB,mBAAmB,CAAC,YAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,uBAAU,mBAAmB,CAAC,YAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,WAAV,GAAwB;AACxB,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,wBAAW,mBAAmB,CAAC,YAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,wBAAW,UAAX,GAAwB;AACxB,sBAAS,mBAAmB,CAAC,YAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,WAAT,GAAuB;AACvB,sBAAS,UAAT,GAAsB;AACtB,sBAAS,QAAC,CAAQ,EAAR;AACV,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,QAAC,CAAQ,EAAR;AACf,4BAAe,mBAAmB,CAAC,YAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,EAAR;AAChB,6BAAgB,mBAAmB,CAAC,YAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,yBAAY,mBAAmB,CAAC,YAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,QAAC,CAAQ,GAAR;AACb,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,mCAAsB,mBAAmB,CAAC,YAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,QAAC,CAAQ,EAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,gCAAmB,mBAAmB,CAAC,IAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,iBAAC,CAAiB,mBAAjB;AACpB,gCAAmB,cAAC,CAAc,aAAG,oBAAjB;AACpB,gCAAmB,QAAC,CAAQ,GAAR;AACpB,gCAAmB,OAAC,CAAO,GAAP;AACpB,+CAAkC,mBAAmB,CAAC,wBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,gDAAmC,mBAAmB,CAAC,wBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,gDAAmC,mBAAmB,CAAC,wBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,mDAAsC,mBAAmB,CAAC,wBAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,uDAA0C,mBAAmB,CAAC,wBAAD;AAC7D,uDAA0C,QAAC,CAAQ,4CAAR;AAC3C,uDAA0C,WAA1C,GAAwD;AACxD,4CAA+B,mBAAmB,CAAC,wBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,mCAAsB,mBAAmB,CAAC,IAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAC,CAAW,wBAAX;AACvB,mCAAsB,QAAC,CAAQ,GAAR;AACvB,mCAAsB,OAAC,CAAO,GAAP;AACvB,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,iBAAC,CAAiB,qBAAjB;AACd,0BAAa,cAAC,CAAc,aAAG,oBAAjB;AACd,0BAAa,QAAC,CAAQ,GAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,oCAAuB,mBAAmB,CAAC,kBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,UAAvB,GAAoC;AACpC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,6BAAgB,mBAAmB,CAAC,IAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAC,CAAW,kBAAX;AACjB,6BAAgB,QAAC,CAAQ,EAAR;AACjB,6BAAgB,OAAC,CAAO,GAAP;AACjB,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,mBAAX,GAAiC;AACjC,wBAAW,WAAX,GAAyB;AACzB,wBAAW,WAAX,GAAyB;AACzB,wBAAW,iBAAC,CAAiB,uBAAjB;AACZ,wBAAW,cAAC,CAAc,aAAG,oBAAjB;AACZ,wBAAW,QAAC,CAAQ,GAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,4BAAe,mBAAmB,CAAC,gBAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,UAAf,GAA4B;AAC5B,0BAAa,mBAAmB,CAAC,gBAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,UAAb,GAA0B;AAC1B,0BAAa,QAAC,CAAQ,EAAR;AACd,sCAAyB,mBAAmB,CAAC,gBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,UAAzB,GAAsC;AACtC,qCAAwB,mBAAmB,CAAC,gBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,6BAAgB,mBAAmB,CAAC,gBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,UAAhB,GAA6B;AAC7B,+BAAkB,mBAAmB,CAAC,gBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,sCAAyB,mBAAmB,CAAC,gBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,iCAAoB,mBAAmB,CAAC,gBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,gCAAmB,mBAAmB,CAAC,gBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,mCAAsB,mBAAmB,CAAC,gBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,2BAAc,mBAAmB,CAAC,gBAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,kCAAqB,mBAAmB,CAAC,gBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,oCAAuB,mBAAmB,CAAC,gBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,+BAAkB,mBAAmB,CAAC,gBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,gCAAmB,mBAAmB,CAAC,gBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,iCAAoB,mBAAmB,CAAC,gBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,6BAAgB,mBAAmB,CAAC,gBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,GAAR;AACjB,oCAAuB,mBAAmB,CAAC,gBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,uCAA0B,mBAAmB,CAAC,gBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,kCAAqB,mBAAmB,CAAC,gBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AAlxBrC;AAoxBE,sBAAS;AACT,qBAAQ;AACR,wBAAW;AACX,0BAAa;AACb,2BAAc;AACd,4BAAe;AACf,wBAAW;AACX,2BAAc;AACd,yBAAY;AACZ,wBAAW;AACX,4BAAe;AACf,0BAAa;AACb,8BAAiB;AACjB,6BAAgB;AAChB,2BAAc;AACd,6BAAgB;AAChB,2BAAc;AACd,gCAAmB;AACnB,8BAAiB;AACjB,4BAAe;AACf,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,eAAE;AACF,4BAAe;AACf,2BAAc;AACd,4BAAe;AACf,kBAAK;AACL,yBAAY;AACZ,4BAAe;AACf,6BAAgB;AAChB,wBAAW;AACX,+BAAkB;AAClB,6BAAgB;AAChB,iCAAoB;AACpB,mCAAsB;AACtB,+CAAkC;AAClC,sCAAyB;AACzB,4CAA+B;AAC/B,0CAA6B;AAC7B,oCAAuB;AACvB,oBAAO;AACP,kCAAqB;AACrB,iCAAoB;AACpB,yBAAY;AACZ,2BAAc;AACd,kCAAqB;AACrB,6BAAgB;AAChB,4BAAe;AACf,+BAAkB;AAClB,uBAAU;AACV,8BAAiB;AACjB,wBAAW;AACX,sBAAS;AACT,gCAAmB;AACnB,2BAAc;AACd,4BAAe;AACf,6BAAgB;AAChB,yBAAY;AACZ,gCAAmB;AACnB,mCAAsB;AACtB,8BAAiB;AACjB,uBAAU;AACV,gCAAmB;AACnB,+CAAkC;AAClC,gDAAmC;AACnC,gDAAmC;AACnC,mDAAsC;AACtC,uDAA0C;AAC1C,4CAA+B;AAC/B,mCAAsB;AACtB,0BAAa;AACb,oCAAuB;AACvB,6BAAgB;AAChB,wBAAW;AACX,4BAAe;AACf,0BAAa;AACb,sCAAyB;AACzB,qCAAwB;AACxB,6BAAgB;AAChB,+BAAkB;AAClB,sCAAyB;AACzB,iCAAoB;AACpB,gCAAmB;AACnB,mCAAsB;AACtB,2BAAc;AACd,kCAAqB;AACrB,oCAAuB;AACvB,+BAAkB;AAClB,gCAAmB;AACnB,iCAAoB;AACpB,6BAAgB;AAChB,oCAAuB;AACvB,uCAA0B;AAC1B,kCAAqB;AAl3BvB;AAnM0B;AAv/BtB;;;AACF,uC3HGc,kD2HHd;AACA,yCjJiaU,4BiJjaV;AACA,0CjJijDS,2BiJjjDT;AACA,qDjJudW,6BiJvdX;AACA,4CjJqmBY,8BiJrmBZ;AACA,kDjJqdW,6BiJrdX;AACA,0B3HHc,kD2HGd;AACA,6BjJ4iDS,2BiJ5iDT;AACA,wCjJkdW,6BiJldX;AACA,uCjJgmBY,8BiJhmBZ;AACA,+BjJ+lBY,8BiJ/lBZ;AACA,iCjJ+cW,6BiJ/cX;AACA,wCjJsZU,4BiJtZV;AACA,mCjJ4lBY,8BiJ5lBZ;AACA,kCjJ2lBY,8BiJ3lBZ;AACA,qCjJikBW,6BiJjkBX;AACA,6BjJ6hBS,2BiJ7hBT;AACA,oCjJiZU,4BiJjZV;AACA,8B7IZkB,0D6IYlB;AACA,4BjJ+YU,4BiJ/YV;AACA,kClK2aI,sCkK3aJ;AACA,8BnKmjBK,uCmKnjBL;AACA,iCnKkjBK,uCmKljBL;AACA,+BnKijBK,uCmKjjBL;AACA,8BnKgjBK,uCmKhjBL;AACA,kCnK+iBK,uCmK/iBL;AACA,gCnK8iBK,uCmK9iBL;AACA,oCnK6iBK,uCmK7iBL;AACA,6BlK05BY,8CkK15BZ;AACA,6BlKy5BY,8CkKz5BZ;AACA,6BnK0iBK,uCmK1iBL;AACA,4BnKuEI,sCmKvEJ;AACA,2BnKsEI,sCmKtEJ;AACA,8BjHoJM,uCiHpJN;AACA,qBrHo5BW,0CqHp5BX;AACA,sCjJ+XU,4BiJ/XV;AACA,iCjJ8XU,4BiJ9XV;AACA,kCjJ6XU,4BiJ7XV;AACA,mCjJ4XU,4BiJ5XV;AACA,+BjJ2XU,4BiJ3XV;AACA,sCjJqgBS,2BiJrgBT;AACA,mCnK+hBK,uCmK/hBL;AACA,iCnK8hBK,uCmK9hBL;AACA,sC3HxCc,kD2HwCd;AACA,yCjJugDS,2BiJvgDT;AACA,qDjJ6aW,6BiJ7aX;AACA,sDjJ4aW,6BiJ5aX;AACA,sDjJ2aW,6BiJ3aX;AACA,yDjJ0aW,6BiJ1aX;AACA,mCnKuhBK,uCmKvhBL;AACA,iCnKshBK,uCmKthBL;AACA,sCnKqhBK,uCmKrhBL;AACA,oCnKohBK,uCmKphBL;AACA,kClK0YI,sCkK1YJ;AACA,kCnK27CS,2CmK37CT;AACA,wBnKihBK,uCmKjhBL;AACA,+BnKghBK,uCmKhhBL;AACA,iCnK6CI,sCmK7CJ;AACA,kClKqYI,sCkKrYJ;AACA,mCnK2CI,sCmK3CJ;AACA,8BnK4gBK,uCmK5gBL;AACA,qCnK2gBK,uCmK3gBL;AACA,gC3H3Dc,kD2H2Dd;AACA,mCjJo/CS,2BiJp/CT;AACA,0CjJkWU,4BiJlWV;AACA,mCnKs+BO,yCmKt+BP;AACA,6DjJwZW,6BiJxZX;AACA,yCjJ0eS,2BiJ1eT;AACA,oCjJyeS,2BiJzeT;AACA,kCnKmgBK,uCmKngBL;AACA,gDjJmiBY,8BiJniBZ;AACA,kDjJmZW,6BiJnZX;AACA,8B3HrEc,kD2HqEd;AACA,kC7InEkB,0D6ImElB;AACA,gCjJwVU,4BiJxVV;AACA,4CjJ+YW,6BiJ/YX;AACA,2CjJ6hBY,8BiJ7hBZ;AACA,mCjJ4hBY,8BiJ5hBZ;AACA,qCjJ4YW,6BiJ5YX;AACA,4CjJmVU,4BiJnVV;AACA,uCjJyhBY,8BiJzhBZ;AACA,sCjJwhBY,8BiJxhBZ;AACA,yCjJ8fW,6BiJ9fX;AACA,iCjJ0dS,2BiJ1dT;AACA,wCjJ8UU,4BiJ9UV;AACA,0CjJ6UU,4BiJ7UV;AACA,qCjJ4UU,4BiJ5UV;AACA,sCjJ2UU,4BiJ3UV;AACA,uCjJ0UU,4BiJ1UV;AACA,mCjJyUU,4BiJzUV;AACA,0CjJmdS,2BiJndT;AACA,6CjJkdS,2BiJldT;AACA,wCjJidS,2BiJjdT;AACA,gCnKSI,sCmKTJ;AACA,iCnKQI,sCmKRJ;AACqB,kCAAO,UhMkBvB,2BgMlBuB,CAAP;AACkB,oDAAQ,WjJ4+BzC,wBiJ5+ByC,CAAR;AACb,uCAAO,UhMgB5B,2BgMhB4B,CAAP;AACA,uCAAQ,WjJ0+B5B,wBiJ1+B4B,CAAR;AACG,0CAAO,UhMc/B,2BgMd+B,CAAP;AACF,wCAAO,UhMa7B,2BgMb6B,CAAP;AACD,uCAAQ,WjJu+B5B,wBiJv+B4B,CAAR;AACQ,+CAAO,UjJs+BnC,wBiJt+BmC,EAAgB,QjJ29B5C,+BiJ39B4C,CAAvB;AACR,uCAAQ,WjJq+B5B,wBiJr+B4B,CAAR;AACA,uCAAO,UhMS5B,2BgMT4B,CAAP;AACM,6CAAO,UhMQlC,2BgMRkC,CAAP;AACJ,yCAAO,UhMO9B,2BgMP8B,CAAP;AACE,2CAAO,UhMMhC,2BgMNgC,CAAP;AACL,sCAAO,UhMK3B,2BgML2B,CAAP;AACa,mDAAQ,WjJ+9BxC,wBiJ/9BwC,CAAR;AACT,0CAAO,UhMG/B,2BgMH+B,CAAP;AACE,4CAAO,UhMEjC,2BgMFiC,CAAP;AACX,iCAAO,UhMCtB,2BgMDsB,CAAP;AACO,wCAAO,UhMA7B,2BgMA6B,CAAP;AACI,4CAAO,UhMDjC,2BgMCiC,CAAP;AACF,0CAAO,UhMF/B,2BgME+B,CAAP;AACG,6CAAO,UhMHlC,2BgMGkC,CAAP;AACE,+CAAO,UhMJpC,2BgMIoC,CAAP;AACD,8CAAO,UhMLnC,2BgMKmC,CAAP;AACP,uCAAO,UhMN5B,2BgMM4B,CAAP;AACM,6CAAQ,WjJo9BlC,wBiJp9BkC,CAAR;AACF,2CAAO,UhMRhC,2BgMQgC,CAAP;AACQ,mDAAO,UjJk9BvC,wBiJl9BuC,EACvC,QjJs8BO,+BiJt8BP,CADgC;AAER,2CAAQ,WjJg9BhC,wBiJh9BgC,CAAR;AACA,2CAAQ,WjJ+8BhC,wBiJ/8BgC,CAAR;AA9H5B;AAyIJ;AACA;AAAO;AAAQ;AAAM;AAAS;AAAS;AAAU;AACjD;AAAO;AAAQ;AAAM;AAAS;AAAS;AAAU;AACjD;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AApKF,GAoLc,4HApLd;ACAA,iCAES,4pBAFT;;;AAgBgB;;;AACZ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAoCA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEA;AACA;AACA;AArVY;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AA6mCoB;AAGlC,UAAG,kBAAa,KAAE,EAAlB;AAEE,6BAAgB;AAChB,yBAAY;AACZ,oBAAO;AACP,oBAAO,aAAP,GAAqB,iDAAiD,GAAC,sBAAS,CAAC,mB7L52B/B,G6L42B8B,CAAV;AACtE,oBAAO;OANT;AAHkC;AA/rBK;AAEvC;AAEA,mBAAQ,WAAC,CAAS,KAAT;AACT,mBAAQ,WAAC,CAAS,KAAT;AACT,qBAAU,MAAK,WAAC,CAAM,uEAAN;AAEhB,kBAAW,eAAU,iBAAC;AAEtB,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AAGX,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,uBAAY,iBAAC,CAAe,SAAf;AACb,4BAAiB,iBAAC,CAAe,SAAf;AAClB,iBAAM,iBAAC,CAAe,SAAf;AACP,iBAAM,WAAC,CAAS,eAAK,IAAI,eAAlB;AACP,uBAAY,iBAAC,CAAe,SAAf;AACb,qBAAU,iBAAC,CAAe,SAAf;AAEX,kBAAW,eAAU,iBAAC;AACtB,aAAE,iBAAC,CAAe,SAAf;AACH,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAW,eAAU,iBAAC;AACtB,cAAG,iBAAC,CAAe,SAAf;AAGJ,aAAE,WAAC,CAAS,IAAT;AACH,aAAE,YAAC,CAAU,EAAV;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,kCAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,wBAAP;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,4BAAiB,iBAAC,CAAe,SAAf;AAClB,aAAE,SAAM,CAAC,EAAE,EAAI,qBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,iBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,gCAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,qBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,+BAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,uBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,wBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,qBAAP;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,kBAAR;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,iBAAR;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,2BAAR;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,wBAAR;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,iCAAR;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,yBAAR;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,qBAAR;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,gCAAR;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,8BAAR;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,8BAAR;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,mBAAR;AAER,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,mBAAQ,iBAAC,CAAe,SAAf;AAET,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,mBAAQ,iBAAC,CAAe,SAAf;AAET,kBAAW,OAAE,eAAa,CAAC,EAAE,EAAH;AAC1B,qBAAU,iBAAC,CAAe,SAAf;AAEX,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,mBAAQ,iBAAC,CAAe,SAAf;AAET,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,iCAAsB,iBAAC,CAAe,SAAf;AAEvB,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,0BAAe,iBAAC,CAAe,SAAf;AAEhB,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,0BAAe,iBAAC,CAAe,SAAf;AAEhB,kBAAW,OAAE,eAAa,CAAC,EAAE,EAAH;AAE1B,kCAAuB,iBAAC,CAAe,SAAf;AAExB,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,4BAAiB,iBAAC,CAAe,SAAf;AAElB,kBAAW,OAAE,eAAa,CAAC,EAAE,EAAH;AAC1B,oCAAyB,iBAAC,CAAe,SAAf;AAC1B,UAAG,oBAAe,aAAC,EAAS,KAAC,IAA7B;AAEE,eAAE,SAAM,CAAC,EAAE,EAAI,MAAiG,GAA1F,0BAAqB,YAAC,EAAvB,GAAiC,KAAD,GAAO,2BAAc,CAAC,aAAa,iBAAY,cAAC,EAA3B,CAAf,GAAsD,aAAzG;;AAIR,eAAE,SAAM,CAAC,EAAE,EAAI,MAAiG,GAA1F,0BAAqB,YAAC,EAAvB,GAAiC,KAAD,GAAO,2BAAc,CAAC,aAAa,iBAAY,cAAC,EAA3B,CAAf,GAAsD,yBAAzG;;AAGV,aAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,oCAA+B,YAAC,EAA9C;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,uBAAU,CAAC,uBAAkB,YAAC,GAAS,IAAG,GAAC,IAAD,CAAK,MAArC,CAAxB;AAGR,aAAE,SAAM,CAAC,EAAE,EAAI,2BAAc,CAAC,aAAa,6BAAwB,cAAC,EAAvC,CAAwD,GAAL,KAAD,GAAO,8BAAyB,YAAC,EAAxG;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,wBAAmB,YAAC,EAA3B;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,2BAAgB,iBAAC,CAAe,SAAf;AACjB,UAAG,oBAAe,aAAC,EAAS,KAAC,KAA7B;AAEE,oBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,6BAAe,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,0BAAa,oBAAC,CAAkB,+BAAlB;AACd,0BAAa,eAAC,CAAa,wCAAb;AACd,0BAAa,cAAC,CAAY,wCAAZ;AACd,0BAAa,OAAb,GAAmB;AACnB,0BAAa,WAAC,CAAS,SAAT;AACd,0BAAa,SAAb,GAAwB;AACxB,0BAAa,iBAAC,CAAe,SAAf;OAVhB;AAaA,4BAAiB,aAAC,CAAW,CAAX;AAElB,UAAG,oBAAe,aAAC,EAAS,KAAC,IAA7B,EAAuC,OAAE,SAAM,CAAC,EAAE,GAAK,yBAAoB,YAAC,EAA7B,CAA/C;AACA,UAAG,eAAK,IAAI,eAAe,KAAC,IAA5B,EAAsC,OAAE,SAAM,CAAC,EAAE,GAAK,wBAAW,CAAC,WAAW,sBAAiB,WAAC,EAA9B,CAAnB,CAA9C;AACA,UAAG,eAAK,IAAI,eAAe,KAAC,KAA5B,EAAuC,OAAE,SAAM,CAAC,EAAE,GAAK,KAAR,CAA/C;AACA,aAAE,SAAM,CAAC,EAAE,GAAK,uBAAU,CAAC,+BAA0B,YAAC,GAAS,IAAG,GAAC,IAAD,CAAK,MAA7C,CAAlB;AACR,UAAG,wBAAmB,YAAC,EAAQ,KAAE,EAAjC,EAAyC,OAAE,SAAM,CAAC,EAAE,GAAK,2BAAc,CAAC,aAAa,wBAAmB,cAAC,EAAlC,CAAtB,CAAjD;AACA,aAAE,SAAM,CAAC,EAAE,GAAK,4BAAuB,YAAC,EAAc,GAAL,KAAD,GAAO,mBAAc,YAAC,EAA9D;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,yBAAoB,YAAC,EAA7B;AACR,UAAG,mBAAc,YAAC,EAAQ,KAAE,EAA5B;AAEE,qBAAG,aAAa,OAAO,CAAC,iBAAiB,mBAAc,YAAC,GAAS,EAA1C;AACvB,8BAAiB,QAAC,CAAM,aAAG,2BAA2B,YAAC,EAAoD,GAA3C,IAAD,GAAM,aAAG,qBAAqB,YAAC,EAA1B,GAAmC,IAAD,GAAM,aAAG,oBAAoB,YAAC,EAAlH;;AAIlB,8BAAiB,QAAC,CAAM,EAAN;;AAIpB,UAAG,eAAK,IAAI,cAAc,KAAC,IAA3B;AAEE,YAAuB,CAAnB,6BAAmB,KAAC,CAAD,CAAI,IAAmC,CAA9B,0BAAqB,YAAC,EAAQ,KAAE,EAAF,CAA9D,EAAyE,aAAQ,WAAC,CAAS,IAAT,CAAlF;AACA,YAAsB,CAAlB,4BAAkB,KAAC,CAAD,CAAI,IAAmC,CAA9B,0BAAqB,YAAC,EAAQ,KAAE,EAAF,CAA7D,EAAwE,aAAQ,WAAC,CAAS,IAAT,CAAjF;OAHF;AAOA,iCAAsB;AACtB,2BAAgB,aAAhB,GAA8B,4BAA4B,GAAC,sBAAS,CAAC,mB7LrTjB,G6LqTgB,CAAV;AAC1D,2BAAgB;AAjJuB;AA+pBH;AAEpC,+BAAmB,uBAAW,QAAC;AAC/B,4BAAiB,aAAC,CAAW,GAAX;AAClB,4BAAiB,iBAAjB,GAAmC;AACnC,kCAAuB,OAAM;AAC7B,mBAAG,mBAAmB;AACtB,aAAM,CAAI,aAAG,mBAAmB,OAAC,EAAjC;AAEE,oCAAuB,OAAM,IAAI,CAAC,aAAG,gCAAgC,YAAC,EAArC;AACjC,qBAAG,mBAAmB;;AAExB,4BAAiB,OAAM;AAEvB,mBAAG,aAAa;AAChB,aAAM,CAAI,aAAG,aAAa,OAAC,EAA3B;AAEE,8BAAiB,OAAM,IAAI,CAAC,aAAG,2BAA2B,YAAC,EAAoD,GAA3C,IAAD,GAAM,aAAG,qBAAqB,YAAC,EAA1B,GAAmC,IAAD,GAAM,aAAG,oBAAoB,YAAC,EAA7G;AAC3B,qBAAG,aAAa;;AAGlB,4BAAiB,OAAM,IAAI,CAAC,EAAD;AArBS;AA3gBG;AAEvC,UAAG,kBAAH;AAEE,oBAAO;;AAIP,yCAAW,CAAC,iGAAD;;AAR0B;AA9JQ;AAG7C,uBAAY;AACZ,2BAAgB;AAChB,kBAAO;AACP,kBAAO,aAAP,GAAqB,iDAAiD,GAAC,sBAAS,CAAC,mB7LjK/B,G6LiK8B,CAAV;AACtE,kBAAO;AAPsC;AAweJ;;AAE3C;AAEA,UAAG,iBAAY,eAAC,EAAW,GAAC,CAA5B;AAEE,yBAAY;AACZ,2BAAa,mBAAc,YAAC;AAC5B,2BAAa,sBAAiB,WAAC;;AAI/B,2BAAa;AACb,2BAAa;;AAEf,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,qBAAU,MAAK,WAAC,CAAM,EAAN;AAEhB,yBAAkB,2CAAiB,QAAC,eAAS,CAAC;AAEnC,eAAN,MAAS,2CAAH,CAAqB,YAA5B,GAA0C;AACnC,eAAN,MAAS,2CAAH,CAAqB,iBAA5B,GAA+C;AACxC,eAAN,MAAS,2CAAH,CAAqB,gBAA5B,GAA8C,qCAA+B,YAAC;AACvE,eAAN,MAAS,2CAAH,CAAqB,iBAA5B,GAA+C;AACxC,eAAN,MAAS,2CAAH,CAAqB,aAA5B,GAA2C;AACpC,eAAN,MAAS,2CAAH,CAAqB,eAA5B,GAA6C;AAPH,OAAD,CAAT;AAUhC,sBAAgB,YAAU,CAAC;AAE3B,wBAAU;AACV,wBAAU,aAAV,GAAwB,4BAA4B,GAAC,sBAAS,CAAC,oB7LlqBf,G6LkqBc,CAAV;AACpD,wBAAU;AAJiB,OAAD;AA5Ba;AAjLK;AAEhD;AAEA,UAAG,qBAAgB,eAAC,EAAW,KAAC,CAAhC;AAEE;AAKE,sBAAW,OAAE,eAAa,CAAC,EAAE,EAAH;AAC1B,wCAAwB,oCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,qCAAsB,UAAC,CAAQ,GAAR;AACvB,qCAAsB,SAAC,CAAO,GAAP;AACvB,qCAAsB,OAAC,CAAK,4CAAuC,YAAC,EAA7C;AACvB,mBAAS,UAAT,GAAqB;AACrB,qCAAsB,iBAAC,CAAe,SAAf;AAEvB,sBAAW,OAAE,eAAa,CAAC,EAAE,EAAH;AAC1B,sCAAsB,oCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,mCAAoB,UAAC,CAAQ,GAAR;AACrB,mCAAoB,SAAC,CAAO,GAAP;AACrB,mCAAoB,OAAC,CAAK,0CAAqC,YAAC,EAA3C;AACrB,mBAAS,UAAT,GAAqB;AACrB,mCAAoB,iBAAC,CAAe,SAAf;AACrB,iBAAE,SAAM,CAAC,EAAE,GAAK,2BAAc,CAAC,sBAAsB,0BAAqB,cAAC,EAA7C,CAAtB;AAER,gCAAiB,WAAC,CAAS,KAAT;AAtBpB;;OAFF;AA4BA,oBAAS;AACT,oBAAS,aAAT,GAAuB,kEAA4F,GAAxB,sBAAS,CAAC,mB7LnfjD,G6LmfgD,CAAX,GAA2B,cAAD;AACnH,oBAAS;AAlCuC;AAgUH;;AAE7C;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,qDAAH;AACd,aAAK,eAAL,GAAsB;AACtB,iBAAG,WAAC,CAAS,KAAT;AACJ,gBAAE,WAAC,CAAS,KAAT;AAPgB;AAUG;AAEtB,8BAAgB;AAChB,0BAAY;AACZ,qBAAO;AACP,qBAAO,aAAP,GAAqB,iDAAiD,GAAC,sBAAS,CAAC,oB7LpyBjC,G6LoyBgC,CAAV;AACtE,qBAAO;AANe;AAW1B,aAAM,qDAAsB,QAAC,eAAS,aAAT;AAE7B,UAAI,YAAU;AA1B+B;AA3RG;AAEhD,UAAG,kBAAH;AAEE,6BAAgB;;AAIhB,yCAAW,CAAC,iGAAD;;AARmC;AA7CQ;AAGtD,uBAAY;AACZ,kBAAO;AACP,kBAAO;AAL+C;AAmXhB;AAGtB,eAAlB,KAAkB;AAHsB;AAxfA;AAExC;AACA;AACA;AACA;AACA;AAEA,UAAG,sBAAiB,QAAC,EAAI,KAAC,EAA1B;AAEE,2BAAc,YAAC,CAAU,EAAV;;AAIf,8BAAiB,iBAAC,CAAe,sBAAiB,QAAC,EAAjC;AAClB,2BAAc,YAAC,CAAU,sBAAiB,KAAC,CAAD,CAA3B;;AAGjB,UAAG,eAAU,UAAC,EAAd;AAEA,YAAG,eAAU,eAAC,EAAW,GAAC,CAA1B;AAEE,2BAAgB;AAChB,6BAAkB;AAClB,6BAAkB;AAClB,6BAAkB;AAClB,6BAAkB;AAClB,yBAAU;AAEV,iBAAM,CAAI,eAAU,OAAC,EAArB;AAEE,6BAAgB,cAAc,GAAC,uBAAkB,WAAC,EAApB;AAC9B,gBAAG,kBAAa,WAAC,EAAO,KAAC,CAAzB,EAAgC,mBAAkB,gBAAgB,GAAC,0BAAqB,WAAC,EAAzF;AACA,gBAAG,+BAA0B,WAAC,EAAO,KAAC,iCAA4B,WAAC,EAAnE;AAEE,iCAAkB,gBAAgB,GAAC,uBAAkB,WAAC,EAApB;aAFpC;AAIA,gBAAG,+BAA0B,WAAC,EAAO,KAAC,iCAA4B,WAAC,EAAnE;AAEE,iCAAkB,gBAAgB,GAAC,uBAAkB,WAAC,EAApB;aAFpC;AAIA,gBAAG,+BAA0B,WAAC,EAAO,KAAC,iCAA4B,WAAC,EAAnE;AAEE,iCAAkB,gBAAgB,GAAC,uBAAkB,WAAC,EAApB;aAFpC;AAIA,2BAAU;;AAGZ,gCAAiB,WAAC,CAAS,cAAT;AAClB,kCAAmB,WAAC,CAAS,gBAAT;AACpB,kCAAmB,WAAC,CAAS,gBAAT;AACpB,kCAAmB,WAAC,CAAS,gBAAT;AACpB,kCAAmB,WAAC,CAAS,gBAAT;SAhCtB;OAFA;AAuCA,qBAAU;AACV,2BAAgB,YAAC,CAAU,qBAAgB,YAAC,EAA0E,GAAjE,0BAAa,CAAC,mBAAI,GAAC,mBAAD,C7LhHD,K6LgHJ,CAAd,GAA0B,YAAD,GAAe,gCAAF,GAAyB,IAAD,GAAK,IAAtG;AA1DuB;AA+HE;AAE1C,kBAAO;AACP,kBAAO;AAHmC;AAqOR;;AACd;AAElB;AAEA,qBAAkB,KAAW,QAAQ,QAAS,SAA5B;AAClB,YAAG,UAAU,KAAC,OAAd;AAEE,2CAAW,CAAC,2CAAD;;AAIX,yCAAW,SAAS,CAAC,4BAAkB,GAAC,UAAD,CAAY,6CAA/B;;AAXJ;AAepB,UAAG,kBAAH;AAEE,oBAAO,YAAU,CAAC,mCAAmC,CAAC,kBAAD,a9HryBwF,I8HqyB5H;;AAIjB,yCAAW,CAAC,iGAAD;;AAtBqB;AAiFI;;AAEtC;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,uCAAH;AACd,aAAK,qBAAL,GAA4B;AALT;AAQG;;AAO1B,aAAM,uCAAe,QAAC,eAAS,aAAT;AAEtB,UAAI,YAAU;AApBwB;AAxWE;AAExC,kBAAO;AACP,gCAAqB,YAAC,CAAU,2BAAsB,YAAC,EAAjC;AACtB,8BAAmB,YAAC,CAAU,yBAAoB,YAAC,EAA/B;AACpB,mBAAQ;AACR,kBAAO;AANiC;AA8ZF;AAEtC,uBAAY;AACZ,kBAAO;AACP,UAAI;AAJkC;AArZM;AAE5C;AACA;AAEA,cAAG,WAAC,CAAS,IAAT;AACJ,cAAG,YAAC,CAAU,iBAAY,eAAC,EAAW,GAAC,CAAnC;AACJ,cAAG,YAAC,CAAU,CAAV;AACJ,kBAAW,QAAG,eAAa,CAAC,EAAE,CAAH;AAC3B,0BAAe,iBAAC,CAAe,SAAf;AAChB,cAAG,SAAM,CAAC,EAAE,EAAI,oBAAP;AACT,cAAG,SAAM,CAAC,EAAE,EAAI,OAAP;AACT,cAAG,SAAM,CAAC,EAAE,EAAI,QAAP;AAGT,uBAAY;AACZ,eAAS,QAAiB,OAAZ,iBAAY,eAAC,IAAD,gBAA1B;AAAI;AAEF,gBAAG,SAAM,CAAC,EAAE,EAAI,iBAAY,YAAY,CAAC,OAAD,CAAS,YAAC,EAAwD,GAA/C,GAAD,GAAK,iBAAY,YAAY,CAAC,QAAD,CAAU,YAAC,EAApC,GAA6C,MAAlG;AAET,oBAAW,QAAG,eAAa,CAAC,EAAE,CAAH;AAC3B,gCAAkB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1B,6BAAgB,oBAAC,CAAkB,+BAAlB;AACjB,6BAAgB,eAAC,CAAa,wCAAb;AACjB,6BAAgB,cAAC,CAAY,wCAAZ;AACjB,6BAAgB,OAAhB,GAAsB,mBAAc,aAAC;AACrC,6BAAgB,QAAC,CAAM,2CAAsC,YAAC,EAA7C;AACjB,6BAAgB,WAAC,CAAS,YAAT;AACjB,6BAAgB,SAAhB,GAA2B;AAC3B,6BAAgB,iBAAC,CAAe,SAAf;AAEjB,gBAAG,SAAM,CAAC,EAAE,EAAI,iBAAY,YAAY,CAAC,6BAAD,CAA+B,YAAC,EAAmJ,GAA1I,SAAD,GAAW,iBAAY,YAAY,CAAC,qBAAD,CAAuB,YAAC,EAAjD,GAA0D,UAAD,GAAY,oBAAO,CAAC,oCAA+B,YAAC,GAAS,GAA1C,CAAR,GAAuD,MAAD,GAAQ,yBAAoB,YAAC,EAAxO;AACT,gBAAG,SAAM,CAAC,EAAE,EAAI,wBAA4E,GAAnD,iBAAY,YAAY,CAAC,OAAD,CAAS,YAAC,EAAnC,GAA8C,MAAF,GAAS,4BAAuB,YAAC,EAA5G;AACT,YAAG,eAAK,IAAI,eAAe,KAAC,IAA5B,EAAsC,QAAG,SAAM,CAAC,EAAE,EAAI,wBAA4F,GAAnE,wBAAW,CAAC,WAAW,8BAAyB,WAAC,EAAtC,CAAZ,GAA2D,SAAD,GAAW,wBAAW,CAAC,WAAW,yBAAoB,WAAC,EAAjC,CAA/G,CAA/C;AACA,YAAG,eAAK,IAAI,eAAe,KAAC,KAA5B,EAAuC,QAAG,SAAM,CAAC,EAAE,EAAI,2BAAP,CAAhD;AAGA,yBAAY;;AArC8B;AAqHC;AAE7C,UAAG,YAAO,OAAO,IAAG,kBAApB;AAAqC,yBAAY,WAAC,CAAS,IAAT;AAAgC,YAAb,iBAAY,WAAC,CAAS,KAAT;AAFrC;AAqOL;AAExC,kBAAO;AAFiC;AAhOK;AAE7C,UAAG,YAAO,UAAC,EAAX,EAAuB,YAAO,OAA9B;AAF6C;AAlBF;AAE3C,UAAG,uBAAkB,YAAC,EAAQ,KAAC,EAA/B;AAEE;AACE,sBAAO;AACP,iCAAkB,cAAC,CAAY,mBAAZ;AAFrB;;OAFF;AAF2C;AA0VH;AAGxC,UAAG,MAAM,SAAS,KAAM,KAAE,EAA1B,EACE,YADF;AAHwC;AAtCL;AAGnC,iBAAQ,uCAAR;AAHmC;AApHK;;AACpB;AAElB;AAEA,qBAAkB,KAAW,QAAQ,QAAS,SAA5B;AAClB,YAAG,UAAU,KAAC,OAAd;AAEE,2CAAW,CAAC,2CAAD;;AAIX,2CAAW,CAAC,gCAAD;;AAXK;AAepB,UAAG,kBAAH;AAEE,YAAG,iBAAY,YAAC,EAAQ,KAAE,EAA1B;AAEE,sBAAO,YAAU,CAAC,yCAAyC,CAAC,kBAAD,a9Hj0BgF,I8Hi0B1H;;AAIhB,2CAAW,CAAC,oBAAD;;;AAKd,yCAAW,CAAC,wFAAD;;AA7B2B;AAkCJ;AAEpC;AAEA,wCAAuB,0BAAqB,YAAC;AAC7C,gBAAW,iBAAI,QAAC;AALoB;AAQA;AAEpC;AAEA,uCAAsB,0BAAqB,YAAC;AAC5C,gBAAW,iBAAI,QAAC;AALoB;AAnNE;;AAEtC;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,4BAAH;AACd,aAAK,qBAAL,GAA4B,2BAAqB,YAAC;AAClD,aAAK,qBAAL,GAA4B;AAC5B,aAAK,mBAAL,GAA0B,qCAA+B,YAAC;AAC1D,aAAK,iBAAL,GAAwB;AACxB,aAAK,WAAL,GAAkB,iBAAI,CAAC,oBAAc,YAAC,EAAY,GAAH,GAAD,GAAM,qBAAe,YAAC,EAA9C;AACtB,aAAK,UAAL,GAAiB;AACjB,aAAK,aAAL,GAAoB,qBAA0D,GAApC,2BAAqB,YAAC,EAAvB,GAAgC,KAAD,GAAO,gCAA0B,YAAC,EAA5B;AAX3D;AAcG;AAEtB,wBAAU;AACV,wBAAU,aAAV,GAAwB,4BAA4B,GAAC,sBAAS,CAAC,oB7L9iBf,G6L8iBc,CAAV;AACpD,wBAAU;AAJY;AAQ1B,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,aAAM,4BAAW,QAAC,eAAS,aAAT;AAClB,UAAI,YAAU;AA5BwB;AAvJG;AAEzC;AAEA,oBAAS;AACT,aAAM,CAAI,cAAS,OAAC,EAApB;AAEE,4BAAmB,iBAA6H,GAA3G,2BAAc,CAAC,sBAAsB,0BAAqB,cAAC,EAA7C,CAAf,GAAwE,KAAD,GAAO,0BAAqB,YAAC,EAAvB,GAAgC,MAAD;AAChJ,sBAAS;;AAEX,aAAE,SAAM,CAAC,EAAE,GAAK,iBAAR;AACR,uBAAY,aAAZ,GAA0B,kDAA2E,GAAxB,sBAAS,CAAC,mB7L9YnC,G6L8YkC,CAAV,GAA0B,iBAAD;AACrG,uBAAY;AAZ6B;AA2NG;;AAE5C;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,4BAAH;AACd,aAAK,qBAAL,GAA4B,2BAAqB,YAAC;AAClD,aAAK,qBAAL,GAA4B;AAC5B,aAAK,mBAAL,GAA0B,qCAA+B,YAAC;AAC1D,aAAK,iBAAL,GAAwB;AACxB,aAAK,WAAL,GAAkB,iBAAI,CAAC,oBAAc,YAAC,EAAY,GAAH,GAAD,GAAM,qBAAe,YAAC,EAA9C;AACtB,aAAK,UAAL,GAAiB;AACjB,aAAK,aAAL,GAAoB,oBAAoB,GAAC,yBAAmB,YAAC,EAArB;AAXrB;AAcG;AAEtB,uBAAS;AACT,0BAAY;AACZ,qBAAO;AACP,qBAAO,aAAP,GAAqB,iDAAiD,GAAC,sBAAS,CAAC,oB7LpnBjC,G6LonBgC,CAAV;AACtE,qBAAO;AANe;AAU1B,UAAG,0BAAqB,YAAC,EAAQ,KAAE,EAAnC;AAEE,uBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,uBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,eAAM,4BAAW,QAAC,eAAS,aAAT;AAClB,YAAI,YAAU;OALhB;AA3B4C;AArCC;;AAE7C;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,4BAAH;AACd,aAAK,qBAAL,GAA4B,2BAAqB,YAAC;AAClD,aAAK,qBAAL,GAA4B;AAC5B,aAAK,mBAAL,GAA0B,qCAA+B,YAAC;AAC1D,aAAK,iBAAL,GAAwB;AACxB,aAAK,WAAL,GAAkB,iBAAI,CAAC,oBAAc,YAAC,EAAY,GAAH,GAAD,GAAM,qBAAe,YAAC,EAA9C;AACtB,aAAK,UAAL,GAAiB;AACjB,aAAK,aAAL,GAAoB,qBAAoE,GAA9C,qCAA+B,YAAC,EAAjC,GAA0C,KAAD,GAAO,qBAAe,YAAC,EAAjB;AAXrE;AAcG;AAEtB,uBAAS;AACT,0BAAY;AACZ,qBAAO;AACP,qBAAO,aAAP,GAAqB,iDAAiD,GAAC,sBAAS,CAAC,oB7L/kBjC,G6L+kBgC,CAAV;AACtE,qBAAO;AANe;AAU1B,UAAG,oCAA+B,YAAC,EAAQ,KAAE,EAA7C;AAEE,uBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,uBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,eAAM,4BAAW,QAAC,eAAS,aAAT;AAClB,YAAI,YAAU;OALhB;AA3B6C;AA7bJ;;AAEzC;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,oCAAH;AACd,aAAK,eAAL,GAAsB;AALH;AASG;AAEtB,YAAG,IAAI,eAAe,KAAE,EAAxB;AAEE,wBAAQ;AACR,wBAAQ,aAAR,GAAsB,4BAA4B,GAAC,sBAAS,CAAC,IAAI,gB7L7InB,G6L6Ic,CAAV;AAClD,wBAAQ;SAJV;AAFsB;AAa1B,aAAM,oCAAe,QAAC,eAAS,aAAT;AAEtB,UAAI,YAAU;AA3B2B;AA/BG;;AAE5C;AACA;AACA;AAEA,sBAAe,qBAAQ,CAAS,OAAP,OAAU,8BAAH,CAAW,OAApB;AACvB,wBAAyB,OAAP,OAAU,8BAAH,CAAW;AACpC,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,yBAAkB,2CAAiB,QAAC,eAAS,CAAC;AAEnC,eAAN,MAAS,2CAAH,CAAqB,YAA5B,GAA0C;AACnC,eAAN,MAAS,2CAAH,CAAqB,iBAA5B,GAA+C;AACxC,eAAN,MAAS,2CAAH,CAAqB,gBAA5B,GAA8C,qCAA+B,YAAC;AACvE,eAAN,MAAS,2CAAH,CAAqB,iBAA5B,GAA+C;AACxC,eAAN,MAAS,2CAAH,CAAqB,aAA5B,GAA2C;AAND,OAAD,CAAT;AAShC,sBAAgB,YAAU,CAAC;AAE3B,wBAAU;AACV,wBAAU,aAAV,GAAwB,4BAA4B,GAAC,sBAAS,CAAC,oB7LnHf,G6LmHc,CAAV;AACpD,wBAAU;AAJiB,OAAD;AAnBc;AAoxBR;AAE1B;AAEV,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,+BAAqB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,oBAAU,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAClB,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,iBAAO,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,0BAAgB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,6BAAmB,uCAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,oCAA0B,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,6BAAmB,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,6BAAmB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,qCAA2B,iCAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,+BAAqB,gCAAS,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,uCAA6B,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,0BAAgB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,sBAAY,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,sBAAY,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,sBAAY,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,8BAAoB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,+BAAqB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,qBAAW,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,iCAAuB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,0BAAgB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,yBAAe,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,kCAAwB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,4BAAkB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,wBAAc,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,yBAAe,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,sCAA4B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,wBAAc,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,iCAAuB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,4BAAkB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wCAA8B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,4BAAkB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,gCAAsB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,oCAA0B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,wCAA8B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,4BAAkB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,4BAAkB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,qCAA2B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,yBAAe,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,6BAAmB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,mCAAyB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,iCAAuB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,+BAAqB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,4BAAkB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,wCAA8B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,6BAAmB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,mCAAyB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,+BAAqB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,+BAAqB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,6BAAmB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,8CAAoC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,4BAAkB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,4BAAkB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,+BAAqB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,4BAAkB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,4BAAkB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,2BAAiB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,uBAAa,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,mCAAyB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,oCAA0B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,8BAAoB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,wCAA8B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,uCAA6B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,+BAAqB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,wCAA8B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,8BAAoB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,4BAAkB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,yBAAe,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,0BAAgB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,uCAA6B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,wCAA8B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,4BAAkB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,+BAAqB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,4CAAkC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,6BAAmB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,iDAAuC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,4CAAkC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,mCAAyB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,+BAAqB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,8BAAoB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,iCAAuB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,mCAAyB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,8BAAoB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,oCAA0B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,kCAAwB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,0CAAgC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,wCAA8B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,wCAA8B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,oDAA0C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvD,kDAAwC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,8BAAoB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,8BAAoB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,mCAAyB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,iDAAuC,iBAAU,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,+CAAqC,iBAAU,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,qDAA2C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,mDAAyC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,wBAAc,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,2BAAiB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,qBAAW,uCAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,6BAAmB,+BAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,sBAAY,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,uBAAa,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,yBAAe,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,mCAAyB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAExC,aAAE;AACF,qBAAU;AACV,qBAAU;AACV,4BAAiB;AACjB,iBAAM;AACN,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,cAAG;AACH,uBAAY;AACZ,0BAAe;AACf,iCAAsB;AACtB,0BAAe;AACf,0BAAe;AACf,qBAAU;AACV,kCAAuB;AACvB,4BAAiB;AACjB,oCAAyB;AACzB,uBAAY;AACZ,mBAAQ;AACR,mBAAQ;AACR,mBAAQ;AACR,qBAAU;AACV,2BAAgB;AAChB,4BAAiB;AACjB,kBAAO;AACP,8BAAmB;AACnB,gCAAqB;AACrB,iCAAsB;AACtB,sCAA2B;AAC3B,kCAAuB;AACvB,uBAAY;AACZ,sBAAW;AACX,+BAAoB;AACpB,0BAAe;AACf,yBAAc;AACd,8BAAmB;AACnB,qBAAU;AACV,gCAAqB;AACrB,sBAAW;AACX,8BAAmB;AACnB,8BAAmB;AACnB,uBAAY;AACZ,6BAAkB;AAClB,qCAA0B;AAC1B,mCAAwB;AACxB,uCAA4B;AAC5B,qCAA0B;AAC1B,oCAAyB;AACzB,mCAAwB;AACxB,qBAAU;AACV,0BAAe;AACf,kCAAuB;AACvB,uBAAY;AACZ,qCAA0B;AAC1B,qCAA0B;AAC1B,8BAAmB;AACnB,8BAAmB;AACnB,4BAAiB;AACjB,kCAAuB;AACvB,kCAAuB;AACvB,gCAAqB;AACrB,6BAAkB;AAClB,8BAAmB;AACnB,4BAAiB;AACjB,8BAAmB;AACnB,4BAAiB;AACjB,gCAAqB;AACrB,+BAAoB;AACpB,2BAAgB;AAChB,yBAAc;AACd,uBAAY;AACZ,qCAA0B;AAC1B,yBAAc;AACd,6BAAkB;AAClB,oCAAyB;AACzB,qCAA0B;AAC1B,kCAAuB;AACvB,8BAAmB;AACnB,mCAAwB;AACxB,2BAAgB;AAChB,iCAAsB;AACtB,6BAAkB;AAClB,gCAAqB;AACrB,mCAAwB;AACxB,+BAAoB;AACpB,qCAA0B;AAC1B,yBAAc;AACd,yBAAc;AACd,kCAAuB;AACvB,iCAAsB;AACtB,+BAAoB;AACpB,4BAAiB;AACjB,gCAAqB;AACrB,sBAAW;AACX,8BAAmB;AACnB,6BAAkB;AAClB,8BAAmB;AACnB,+BAAoB;AACpB,0BAAe;AACf,gCAAqB;AACrB,8BAAmB;AACnB,8BAAmB;AACnB,8BAAmB;AACnB,+BAAoB;AACpB,8BAAmB;AACnB,4BAAiB;AACjB,yBAAc;AACd,6BAAkB;AAClB,mCAAwB;AACxB,kCAAuB;AACvB,+BAAoB;AACpB,+BAAoB;AACpB,+BAAoB;AACpB,uBAAY;AACZ,8BAAmB;AACnB,qCAA0B;AAC1B,8BAAmB;AACnB,2BAAgB;AAChB,0BAAe;AACf,iCAAsB;AACtB,mCAAwB;AACxB,2BAAgB;AAChB,gCAAqB;AACrB,4BAAiB;AACjB,4BAAiB;AACjB,kCAAuB;AACvB,0BAAe;AACf,gCAAqB;AACrB,gCAAqB;AACrB,0BAAe;AACf,8BAAmB;AACnB,2CAAgC;AAChC,oCAAyB;AACzB,wCAA6B;AAC7B,4BAAiB;AACjB,+BAAoB;AACpB,sCAA2B;AAC3B,oCAAyB;AACzB,yBAAc;AACd,yBAAc;AACd,mCAAwB;AACxB,iCAAsB;AACtB,4BAAiB;AACjB,4BAAiB;AACjB,oCAAyB;AACzB,kCAAuB;AACvB,4BAAiB;AACjB,oCAAyB;AACzB,kCAAuB;AACvB,yBAAc;AACd,yBAAc;AACd,wBAAa;AACb,oBAAS;AACT,2BAAgB;AAChB,qCAA0B;AAC1B,qCAA0B;AAC1B,qCAA0B;AAC1B,gCAAqB;AACrB,oCAAyB;AACzB,2BAAgB;AAChB,iCAAsB;AACtB,+BAAoB;AACpB,2BAAgB;AAChB,+BAAoB;AACpB,qCAA0B;AAC1B,uCAA4B;AAC5B,oCAAyB;AACzB,4BAAiB;AACjB,gCAAqB;AACrB,qCAA0B;AAC1B,uBAAY;AACZ,sCAA2B;AAC3B,+BAAoB;AACpB,2BAAgB;AAChB,gCAAqB;AACrB,iCAAsB;AACtB,6BAAkB;AAClB,0BAAe;AACf,6BAAkB;AAClB,yBAAc;AACd,0CAA+B;AAC/B,kCAAuB;AACvB,sBAAW;AACX,uBAAY;AACZ,oCAAyB;AACzB,qCAA0B;AAC1B,yBAAc;AACd,4BAAiB;AACjB,6BAAkB;AAClB,4BAAiB;AACjB,0CAA+B;AAC/B,0CAA+B;AAC/B,4BAAiB;AACjB,kCAAuB;AACvB,oCAAyB;AACzB,oCAAyB;AACzB,mCAAwB;AACxB,kCAAuB;AACvB,uCAA4B;AAC5B,yCAA8B;AAC9B,gCAAqB;AACrB,8BAAmB;AACnB,6BAAkB;AAClB,6BAAkB;AAClB,4BAAiB;AACjB,yCAA8B;AAC9B,+BAAoB;AACpB,8BAAmB;AACnB,qCAA0B;AAC1B,kCAAuB;AACvB,iCAAsB;AACtB,qCAA0B;AAC1B,0BAAe;AACf,iCAAsB;AACtB,iCAAsB;AACtB,8CAAmC;AACnC,wCAA6B;AAC7B,+BAAoB;AACpB,sCAA2B;AAC3B,uCAA4B;AAC5B,iCAAsB;AACtB,yCAA8B;AAC9B,4BAAiB;AACjB,gCAAqB;AACrB,mCAAwB;AACxB,6CAAkC;AAClC,mCAAwB;AACxB,sCAA2B;AAC3B,uCAA4B;AAC5B,8BAAmB;AACnB,8BAAmB;AACnB,qCAA0B;AAC1B,uCAA4B;AAC5B,qCAA0B;AAC1B,4BAAiB;AACjB,yCAA8B;AAC9B,6BAAkB;AAClB,2BAAgB;AAChB,oCAAyB;AACzB,oCAAyB;AACzB,8BAAmB;AACnB,oCAAyB;AACzB,kCAAuB;AACvB,8BAAmB;AACnB,gCAAqB;AACrB,iCAAsB;AACtB,wCAA6B;AAC7B,0CAA+B;AAC/B,2BAAgB;AAChB,qCAA0B;AAC1B,4BAAiB;AACjB,iCAAsB;AACtB,2CAAgC;AAChC,8BAAmB;AACnB,iCAAsB;AACtB,uCAA4B;AAC5B,+BAAoB;AACpB,uCAA4B;AAC5B,qCAA0B;AAC1B,qCAA0B;AAC1B,iDAAsC;AACtC,+CAAoC;AACpC,2BAAgB;AAChB,2BAAgB;AAChB,yCAA8B;AAC9B,gCAAqB;AACrB,8CAAmC;AACnC,4CAAiC;AACjC,kDAAuC;AACvC,gDAAqC;AACrC,+BAAoB;AACpB,qBAAU;AACV,+BAAoB;AACpB,kCAAuB;AACvB,uCAA4B;AAC5B,6BAAkB;AAClB,4BAAiB;AACjB,mCAAwB;AACxB,gCAAqB;AACrB,wBAAa;AACb,kBAAO;AACP,0BAAe;AACf,mBAAQ;AACR,iCAAsB;AACtB,kCAAuB;AACvB,+BAAoB;AACpB,oBAAS;AACT,sBAAW;AACX,gCAAqB;AACrB,gCAAqB;AACrB,kCAAuB;AACvB;AACE,qBAAQ,eAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,gCAAmB,gDAAnB;AACA,qBAAQ,CAAC,KAAM,UAAW,cAAlB;AACR,qBAAQ,CAAC,KAAM,eAAgB,mBAAvB;AACR,qBAAQ,CAAC,KAAM,WAAY,eAAnB;AACR,qBAAQ,CAAC,KAAM,eAAgB,mBAAvB;AACR,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,QAAC,CAAQ,CAAR;AACH,eAAE,OAAC,CAAO,GAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,EAAV;AACH,eAAE,oBAAC,CAAoB,yDAApB;AACH,eAAE,eAAC,CAAe,wCAAf;AACH,eAAE,cAAC,CAAc,wCAAd;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,gBAAC,CAAc,CAAd;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,0BAAC,CAA0B,YAA1B;AACH,eAAE,mBAAC,CAAmB,gDAAnB;AACH,eAAE,yBAAC,CAAyB,yDAAzB;AACH,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,eAAE,YAAC,CAAY,EAAZ;AACH,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,SAAC,CAAS,mCAAT;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,8BAAiB,mBAAmB,CAAC,IAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,QAAC,CAAQ,GAAR;AAClB,8BAAiB,OAAC,CAAO,EAAP;AAClB,8BAAiB,SAAC,CAAS,EAAT;AAClB,8BAAiB,UAAC,CAAU,EAAV;AAClB,8BAAiB,WAAC,CAAW,gBAAX;AAClB,8BAAiB,gBAAC,CAAc,CAAd;AAClB,8BAAiB,oBAAC,CAAoB,mCAApB;AAClB,8BAAiB,eAAC,CAAe,yCAAf;AAClB,8BAAiB,mBAAC,CAAmB,gDAAnB;AAClB,8BAAiB,eAAC,CAAe,wCAAf;AAClB,8BAAiB,iBAAC,CAAiB,sBAAjB;AAClB,8BAAiB,cAAC,CAAc,wCAAd;AAClB,8BAAiB,gBAAC,CAAgB,sBAAhB;AAClB,uBAAQ,CAAC,uBAAmB,KAAM,UAAW,wBAArC;AACR,mBAAM,mBAAmB,CAAC,IAAD;AACzB,mBAAM,QAAC,CAAQ,QAAR;AACP,mBAAM,QAAC,CAAQ,GAAR;AACP,mBAAM,OAAC,CAAO,EAAP;AACP,mBAAM,SAAC,CAAS,EAAT;AACP,mBAAM,UAAC,CAAU,EAAV;AACP,mBAAM,WAAC,CAAW,KAAX;AACP,mBAAM,gBAAC,CAAc,CAAd;AACP,mBAAM,oBAAC,CAAoB,mCAApB;AACP,mBAAM,eAAC,CAAe,yCAAf;AACP,mBAAM,mBAAC,CAAmB,gDAAnB;AACP,mBAAM,eAAC,CAAe,wCAAf;AACP,mBAAM,iBAAC,CAAiB,sBAAjB;AACP,mBAAM,cAAC,CAAc,wCAAd;AACP,mBAAM,gBAAC,CAAgB,sBAAhB;AACP,uBAAQ,CAAC,YAAQ,KAAM,UAAW,aAA1B;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,SAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,wBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,SAAC,CAAS,mCAAT;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,SAAC,CAAS,mCAAT;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,gBAAG,mBAAmB,CAAC,IAAD;AACtB,gBAAG,QAAC,CAAQ,KAAR;AACJ,gBAAG,QAAC,CAAQ,CAAR;AACJ,gBAAG,OAAC,CAAO,GAAP;AACJ,gBAAG,SAAC,CAAS,GAAT;AACJ,gBAAG,UAAC,CAAU,EAAV;AACJ,gBAAG,oBAAC,CAAoB,gDAApB;AACJ,gBAAG,eAAC,CAAe,wCAAf;AACJ,gBAAG,cAAC,CAAc,wCAAd;AACJ,gBAAG,eAAC,CAAe,QAAf;AACJ,gBAAG,gBAAC,CAAc,CAAd;AACJ,gBAAG,0BAAC,CAA0B,YAA1B;AACJ,gBAAG,mBAAC,CAAmB,gDAAnB;AACJ,gBAAG,yBAAC,CAAyB,gDAAzB;AACJ,gBAAG,YAAC,CAAY,IAAZ;AACJ,gBAAG,YAAC,CAAY,CAAZ;AACJ,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,QAAC,CAAQ,CAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,EAAT;AACb,yBAAY,UAAC,CAAU,EAAV;AACb,yBAAY,WAAC,CAAW,WAAX;AACb,yBAAY,gBAAC,CAAc,CAAd;AACb,yBAAY,oBAAC,CAAoB,mCAApB;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,mBAAC,CAAmB,gDAAnB;AACb,yBAAY,eAAC,CAAe,wCAAf;AACb,yBAAY,iBAAC,CAAiB,sBAAjB;AACb,yBAAY,cAAC,CAAc,wCAAd;AACb,yBAAY,gBAAC,CAAgB,sBAAhB;AACb,uBAAQ,CAAC,kBAAc,KAAM,UAAW,mBAAhC;AACR,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,CAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,4BAAe,SAAC,CAAS,GAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,oBAAC,CAAoB,cAApB;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,cAAC,CAAc,2CAAd;AAChB,4BAAe,gBAAC,CAAgB,qBAAhB;AAChB,4BAAe,eAAC,CAAe,4CAAf;AAChB,4BAAe,gBAAC,CAAc,CAAd;AAChB,4BAAe,SAAC,CAAS,QAAT;AAChB,4BAAe,QAAC,CAAQ,wBAAR;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,mBAAC,CAAmB,gDAAnB;AAChB,4BAAe,QAAC,CAAQ,EAAR;AAChB,4BAAe,QAAC,CAAQ,EAAR;AAChB,uBAAQ,CAAC,qBAAiB,KAAM,UAAW,sBAAnC;AACR,4BAAe,aAAC,CAAa,aAAb;AAChB,4BAAe,cAAC,CAAc,gBAAd;AAChB,mCAAsB,mBAAmB,CAAC,IAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,QAAC,CAAQ,CAAR;AACvB,mCAAsB,OAAC,CAAO,GAAP;AACvB,mCAAsB,SAAC,CAAS,GAAT;AACvB,mCAAsB,UAAC,CAAU,EAAV;AACvB,mCAAsB,kBAAC,CAAkB,6CAAlB;AACvB,mCAAsB,oBAAC,CAAoB,8BAApB;AACvB,mCAAsB,eAAC,CAAe,yCAAf;AACvB,mCAAsB,mBAAC,CAAmB,gDAAnB;AACvB,mCAAsB,eAAC,CAAe,wCAAf;AACvB,mCAAsB,iBAAC,CAAiB,sBAAjB;AACvB,mCAAsB,iBAAC,CAAiB,KAAjB;AACvB,mCAAsB,aAAC,CAAa,KAAb;AACvB,mCAAsB,YAAC,CAAY,qBAAZ;AACvB,mCAAsB,cAAC,CAAc,2CAAd;AACvB,mCAAsB,gBAAC,CAAgB,qBAAhB;AACvB,mCAAsB,aAAC,CAAa,qBAAb;AACvB,mCAAsB,cAAC,CAAc,gBAAd;AACvB,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,CAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,4BAAe,SAAC,CAAS,GAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,cAAC,CAAc,KAAd;AAChB,4BAAe,gBAAC,CAAc,CAAd;AAChB,4BAAe,oBAAC,CAAoB,cAApB;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,mBAAC,CAAmB,gDAAnB;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,iBAAC,CAAiB,sBAAjB;AAChB,4BAAe,YAAC,CAAY,gBAAZ;AAChB,4BAAe,cAAC,CAAc,2CAAd;AAChB,4BAAe,gBAAC,CAAgB,qBAAhB;AAChB,4BAAe,aAAC,CAAa,cAAb;AAChB,4BAAe,cAAC,CAAc,gBAAd;AAChB,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,CAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,4BAAe,SAAC,CAAS,EAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,WAAC,CAAW,OAAX;AAChB,4BAAe,gBAAC,CAAc,CAAd;AAChB,4BAAe,oBAAC,CAAoB,mCAApB;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,mBAAC,CAAmB,gDAAnB;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,iBAAC,CAAiB,sBAAjB;AAChB,4BAAe,cAAC,CAAc,wCAAd;AAChB,4BAAe,gBAAC,CAAgB,sBAAhB;AAChB,uBAAQ,CAAC,qBAAiB,KAAM,UAAW,sBAAnC;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,wBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,SAAC,CAAS,mCAAT;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,oCAAuB,mBAAmB,CAAC,IAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,QAAC,CAAQ,CAAR;AACxB,oCAAuB,OAAC,CAAO,GAAP;AACxB,oCAAuB,SAAC,CAAS,GAAT;AACxB,oCAAuB,UAAC,CAAU,EAAV;AACxB,oCAAuB,gBAAC,CAAc,CAAd;AACxB,oCAAuB,oBAAC,CAAoB,mBAApB;AACxB,oCAAuB,eAAC,CAAe,yCAAf;AACxB,oCAAuB,mBAAC,CAAmB,gDAAnB;AACxB,oCAAuB,eAAC,CAAe,wCAAf;AACxB,oCAAuB,iBAAC,CAAiB,sBAAjB;AACxB,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,cAAC,CAAc,2CAAd;AACxB,oCAAuB,gBAAC,CAAgB,qBAAhB;AACxB,oCAAuB,aAAC,CAAa,CAAC,CAAd;AACxB,oCAAuB,aAAC,CAAa,eAAb;AACxB,oCAAuB,cAAC,CAAc,gBAAd;AACxB,8BAAiB,mBAAmB,CAAC,IAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,QAAC,CAAQ,CAAR;AAClB,8BAAiB,OAAC,CAAO,GAAP;AAClB,8BAAiB,SAAC,CAAS,GAAT;AAClB,8BAAiB,UAAC,CAAU,EAAV;AAClB,8BAAiB,gBAAC,CAAc,CAAd;AAClB,8BAAiB,oBAAC,CAAoB,mBAApB;AAClB,8BAAiB,eAAC,CAAe,yCAAf;AAClB,8BAAiB,mBAAC,CAAmB,gDAAnB;AAClB,8BAAiB,eAAC,CAAe,wCAAf;AAClB,8BAAiB,iBAAC,CAAiB,sBAAjB;AAClB,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,cAAC,CAAc,2CAAd;AAClB,8BAAiB,gBAAC,CAAgB,qBAAhB;AAClB,uBAAQ,CAAC,uBAAmB,KAAM,UAAW,wBAArC;AACR,8BAAiB,aAAC,CAAa,CAAC,CAAd;AAClB,sCAAyB,mBAAmB,CAAC,IAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,QAAC,CAAQ,GAAR;AAC1B,sCAAyB,OAAC,CAAO,GAAP;AAC1B,sCAAyB,SAAC,CAAS,EAAT;AAC1B,sCAAyB,UAAC,CAAU,EAAV;AAC1B,sCAAyB,eAAC,CAAe,0CAAf;AAC1B,sCAAyB,gBAAC,CAAc,EAAd;AAC1B,sCAAyB,oBAAC,CAAoB,8BAApB;AAC1B,sCAAyB,eAAC,CAAe,yCAAf;AAC1B,sCAAyB,mBAAC,CAAmB,gDAAnB;AAC1B,sCAAyB,iBAAC,CAAiB,sBAAjB;AAC1B,sCAAyB,aAAC,CAAa,CAAb;AAC1B,sCAAyB,YAAC,CAAY,CAAZ;AAC1B,sCAAyB,cAAC,CAAc,2CAAd;AAC1B,sCAAyB,gBAAC,CAAgB,qBAAhB;AAC1B,sCAAyB,aAAC,CAAa,kBAAb;AAC1B,sCAAyB,cAAC,CAAc,gBAAd;AAC1B,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,QAAC,CAAQ,GAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,EAAT;AACb,yBAAY,UAAC,CAAU,EAAV;AACb,yBAAY,WAAC,CAAW,GAAX;AACb,yBAAY,gBAAC,CAAc,CAAd;AACb,yBAAY,oBAAC,CAAoB,mCAApB;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,mBAAC,CAAmB,gDAAnB;AACb,yBAAY,eAAC,CAAe,wCAAf;AACb,yBAAY,iBAAC,CAAiB,sBAAjB;AACb,yBAAY,cAAC,CAAc,wCAAd;AACb,yBAAY,gBAAC,CAAgB,sBAAhB;AACb,uBAAQ,CAAC,kBAAc,KAAM,UAAW,mBAAhC;AACR,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,GAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,qBAAQ,SAAC,CAAS,GAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,kBAAC,CAAkB,6CAAlB;AACT,qBAAQ,gBAAC,CAAc,EAAd;AACT,qBAAQ,oBAAC,CAAoB,8BAApB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,iBAAC,CAAiB,KAAjB;AACT,qBAAQ,aAAC,CAAa,KAAb;AACT,qBAAQ,YAAC,CAAY,OAAZ;AACT,qBAAQ,cAAC,CAAc,2CAAd;AACT,qBAAQ,gBAAC,CAAgB,qBAAhB;AACT,qBAAQ,aAAC,CAAa,OAAb;AACT,qBAAQ,cAAC,CAAc,gBAAd;AACT,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,GAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,qBAAQ,SAAC,CAAS,EAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,WAAC,CAAW,KAAX;AACT,qBAAQ,gBAAC,CAAc,CAAd;AACT,qBAAQ,oBAAC,CAAoB,mCAApB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,cAAC,CAAc,wCAAd;AACT,qBAAQ,gBAAC,CAAgB,sBAAhB;AACT,uBAAQ,CAAC,cAAU,KAAM,UAAW,eAA5B;AACR,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,GAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,qBAAQ,SAAC,CAAS,EAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,WAAC,CAAW,KAAX;AACT,qBAAQ,gBAAC,CAAc,CAAd;AACT,qBAAQ,oBAAC,CAAoB,mCAApB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,cAAC,CAAc,wCAAd;AACT,qBAAQ,gBAAC,CAAgB,sBAAhB;AACT,uBAAQ,CAAC,cAAU,KAAM,UAAW,eAA5B;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,SAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,6BAAgB,mBAAmB,CAAC,IAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,QAAC,CAAQ,GAAR;AACjB,6BAAgB,OAAC,CAAO,GAAP;AACjB,6BAAgB,SAAC,CAAS,EAAT;AACjB,6BAAgB,UAAC,CAAU,EAAV;AACjB,6BAAgB,WAAC,CAAW,mBAAX;AACjB,6BAAgB,gBAAC,CAAc,CAAd;AACjB,6BAAgB,oBAAC,CAAoB,mCAApB;AACjB,6BAAgB,eAAC,CAAe,yCAAf;AACjB,6BAAgB,mBAAC,CAAmB,gDAAnB;AACjB,6BAAgB,eAAC,CAAe,wCAAf;AACjB,6BAAgB,iBAAC,CAAiB,sBAAjB;AACjB,6BAAgB,cAAC,CAAc,wCAAd;AACjB,6BAAgB,gBAAC,CAAgB,sBAAhB;AACjB,uBAAQ,CAAC,sBAAkB,KAAM,UAAW,uBAApC;AACR,8BAAiB,mBAAmB,CAAC,IAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,QAAC,CAAQ,GAAR;AAClB,8BAAiB,OAAC,CAAO,GAAP;AAClB,8BAAiB,SAAC,CAAS,EAAT;AAClB,8BAAiB,UAAC,CAAU,EAAV;AAClB,8BAAiB,WAAC,CAAW,oBAAX;AAClB,8BAAiB,gBAAC,CAAc,CAAd;AAClB,8BAAiB,oBAAC,CAAoB,mCAApB;AAClB,8BAAiB,eAAC,CAAe,yCAAf;AAClB,8BAAiB,mBAAC,CAAmB,gDAAnB;AAClB,8BAAiB,eAAC,CAAe,wCAAf;AAClB,8BAAiB,iBAAC,CAAiB,sBAAjB;AAClB,8BAAiB,cAAC,CAAc,wCAAd;AAClB,8BAAiB,gBAAC,CAAgB,sBAAhB;AAClB,uBAAQ,CAAC,uBAAmB,KAAM,UAAW,wBAArC;AACR,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,mBAAP,GAA6B;AAC7B,oBAAO,WAAP,GAAqB;AACrB,oBAAO,YAAP,GAAsB;AACtB,oBAAO,WAAP,GAAqB;AACrB,oBAAO,iBAAC,CAAiB,SAAjB;AACR,oBAAO,cAAC,CAAc,aAAG,oBAAjB;AACR,oBAAO,iBAAC,CAAiB,CAAjB;AACR,oBAAO,aAAP,GAAuB;AACvB,oBAAO,QAAC,CAAQ,EAAR;AACR,oBAAO,OAAC,CAAO,GAAP;AACR,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,UAAnB,GAAgC;AAChC,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,UAArB,GAAkC;AAClC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,mCAAsB,mBAAmB,CAAC,YAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,wCAA2B,mBAAmB,CAAC,YAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,oCAAuB,mBAAmB,CAAC,YAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,yBAAY,mBAAmB,CAAC,YAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,UAAZ,GAAyB;AACzB,wBAAW,mBAAmB,CAAC,YAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,4BAAe,mBAAmB,CAAC,YAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,EAAR;AAChB,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,QAAC,CAAQ,EAAR;AACf,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,uBAAU,mBAAmB,CAAC,YAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,WAAV,GAAwB;AACxB,uBAAU,QAAC,CAAQ,EAAR;AACX,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,CAAR;AACtB,wBAAW,mBAAmB,CAAC,YAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,wBAAW,QAAC,CAAQ,EAAR;AACZ,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,GAAR;AACpB,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,yBAAY,mBAAmB,CAAC,YAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,QAAC,CAAQ,EAAR;AACb,+BAAkB,mBAAmB,CAAC,YAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,GAAR;AACnB,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,GAAR;AAC3B,qCAAwB,mBAAmB,CAAC,YAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,yCAA4B,mBAAmB,CAAC,YAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,GAAR;AAC7B,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,GAAR;AAC3B,sCAAyB,mBAAmB,CAAC,YAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,qCAAwB,mBAAmB,CAAC,YAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,uBAAU,mBAAmB,CAAC,YAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,WAAV,GAAwB;AACxB,uBAAU,QAAC,CAAQ,EAAR;AACX,4BAAe,mBAAmB,CAAC,YAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,GAAR;AAChB,oCAAuB,mBAAmB,CAAC,YAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,GAAR;AACxB,yBAAY,mBAAmB,CAAC,YAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,QAAC,CAAQ,GAAR;AACb,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,oCAAuB,mBAAmB,CAAC,YAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,mBAAmB,CAAC,YAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,+BAAkB,mBAAmB,CAAC,YAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,6BAAgB,mBAAmB,CAAC,YAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,QAAC,CAAQ,EAAR;AACf,yBAAY,mBAAmB,CAAC,YAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,+BAAkB,mBAAmB,CAAC,YAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,sCAAyB,mBAAmB,CAAC,YAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,GAAR;AAC1B,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,oCAAuB,mBAAmB,CAAC,YAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,qCAAwB,mBAAmB,CAAC,YAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,6BAAgB,mBAAmB,CAAC,YAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,GAAR;AACjB,mCAAsB,mBAAmB,CAAC,YAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,+BAAkB,mBAAmB,CAAC,YAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,qCAAwB,mBAAmB,CAAC,YAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,QAAC,CAAQ,CAAR;AACf,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,QAAC,CAAQ,EAAR;AACf,oCAAuB,mBAAmB,CAAC,YAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,mCAAsB,mBAAmB,CAAC,YAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,wBAAW,mBAAmB,CAAC,YAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,wBAAW,QAAC,CAAQ,EAAR;AACZ,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,+BAAkB,mBAAmB,CAAC,YAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,4BAAe,mBAAmB,CAAC,YAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,+BAAkB,mBAAmB,CAAC,YAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,qCAAwB,mBAAmB,CAAC,YAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,oCAAuB,mBAAmB,CAAC,YAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,yBAAY,mBAAmB,CAAC,YAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,QAAC,CAAQ,GAAR;AACb,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,6BAAgB,mBAAmB,CAAC,YAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,4BAAe,mBAAmB,CAAC,YAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,mCAAsB,mBAAmB,CAAC,YAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,qCAAwB,mBAAmB,CAAC,YAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,6BAAgB,mBAAmB,CAAC,YAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,GAAR;AACjB,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,oCAAuB,mBAAmB,CAAC,YAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,4BAAe,mBAAmB,CAAC,YAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,4BAAe,mBAAmB,CAAC,YAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,CAAR;AAChB,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,6CAAgC,mBAAmB,CAAC,YAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,sCAAyB,mBAAmB,CAAC,YAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,GAAR;AAC1B,0CAA6B,mBAAmB,CAAC,YAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,wCAA2B,mBAAmB,CAAC,YAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,sCAAyB,mBAAmB,CAAC,YAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,qCAAwB,mBAAmB,CAAC,YAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,mCAAsB,mBAAmB,CAAC,YAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,GAAR;AAClB,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,GAAR;AAClB,sCAAyB,mBAAmB,CAAC,YAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,oCAAuB,mBAAmB,CAAC,YAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,sCAAyB,mBAAmB,CAAC,YAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,oCAAuB,mBAAmB,CAAC,YAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,0BAAa,mBAAmB,CAAC,YAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,sBAAS,mBAAmB,CAAC,YAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,WAAT,GAAuB;AACvB,6BAAgB,mBAAmB,CAAC,YAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,GAAR;AACjB,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,sCAAyB,mBAAmB,CAAC,YAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,6BAAgB,mBAAmB,CAAC,YAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,mCAAsB,mBAAmB,CAAC,YAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,6BAAgB,mBAAmB,CAAC,YAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,yCAA4B,mBAAmB,CAAC,YAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,sCAAyB,mBAAmB,CAAC,YAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,yBAAY,mBAAmB,CAAC,YAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,QAAC,CAAQ,EAAR;AACb,wCAA2B,mBAAmB,CAAC,YAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,GAAR;AAC5B,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,6BAAgB,mBAAmB,CAAC,YAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,GAAR;AACtB,mCAAsB,mBAAmB,CAAC,YAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,+BAAkB,mBAAmB,CAAC,YAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,GAAR;AACnB,4BAAe,mBAAmB,CAAC,YAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,GAAR;AAChB,+BAAkB,mBAAmB,CAAC,YAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,4CAA+B,mBAAmB,CAAC,YAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,oCAAuB,mBAAmB,CAAC,YAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,GAAR;AACxB,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAC,CAAW,YAAX;AACZ,uBAAQ,CAAC,iBAAa,KAAM,gBAAiB,wBAArC;AACR,wBAAW,QAAC,CAAQ,EAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,iBAAC,CAAiB,mBAAjB;AACb,yBAAY,cAAC,CAAc,aAAG,oBAAjB;AACb,yBAAY,iBAAC,CAAiB,CAAjB;AACb,yBAAY,aAAZ,GAA4B;AAC5B,yBAAY,QAAC,CAAQ,GAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,sCAAyB,mBAAmB,CAAC,iBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,uCAA0B,mBAAmB,CAAC,iBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,2BAAc,mBAAmB,CAAC,iBAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,UAAd,GAA2B;AAC3B,8BAAiB,mBAAmB,CAAC,iBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,UAAjB,GAA8B;AAC9B,+BAAkB,mBAAmB,CAAC,iBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,8BAAiB,mBAAmB,CAAC,iBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,4CAA+B,mBAAmB,CAAC,iBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,4CAA+B,mBAAmB,CAAC,iBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,GAAR;AAChC,8BAAiB,mBAAmB,CAAC,iBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,oCAAuB,mBAAmB,CAAC,iBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,sCAAyB,mBAAmB,CAAC,iBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,mBAAmB,CAAC,iBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,qCAAwB,mBAAmB,CAAC,iBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,oCAAuB,mBAAmB,CAAC,iBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,yCAA4B,mBAAmB,CAAC,iBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,2CAA8B,mBAAmB,CAAC,iBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,kCAAqB,mBAAmB,CAAC,iBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,gCAAmB,mBAAmB,CAAC,iBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,+BAAkB,mBAAmB,CAAC,iBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,mBAAmB,CAAC,iBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,8BAAiB,mBAAmB,CAAC,iBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,2CAA8B,mBAAmB,CAAC,iBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,iCAAoB,mBAAmB,CAAC,iBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,gCAAmB,mBAAmB,CAAC,iBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,uCAA0B,mBAAmB,CAAC,iBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,oCAAuB,mBAAmB,CAAC,iBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,mCAAsB,mBAAmB,CAAC,iBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,uCAA0B,mBAAmB,CAAC,iBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,4BAAe,mBAAmB,CAAC,iBAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,mCAAsB,mBAAmB,CAAC,iBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,mCAAsB,mBAAmB,CAAC,iBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,gDAAmC,mBAAmB,CAAC,iBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,0CAA6B,mBAAmB,CAAC,iBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,iCAAoB,mBAAmB,CAAC,iBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,wCAA2B,mBAAmB,CAAC,iBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,yCAA4B,mBAAmB,CAAC,iBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,mCAAsB,mBAAmB,CAAC,iBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,2CAA8B,mBAAmB,CAAC,iBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,8BAAiB,mBAAmB,CAAC,iBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,kCAAqB,mBAAmB,CAAC,iBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,qCAAwB,mBAAmB,CAAC,iBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,+CAAkC,mBAAmB,CAAC,iBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,GAAR;AACnC,qCAAwB,mBAAmB,CAAC,iBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,wCAA2B,mBAAmB,CAAC,iBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,yCAA4B,mBAAmB,CAAC,iBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,gCAAmB,mBAAmB,CAAC,iBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,gCAAmB,mBAAmB,CAAC,iBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,uCAA0B,mBAAmB,CAAC,iBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,yCAA4B,mBAAmB,CAAC,iBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,uCAA0B,mBAAmB,CAAC,iBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,GAAR;AAC3B,8BAAiB,mBAAmB,CAAC,iBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,2CAA8B,mBAAmB,CAAC,iBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,+BAAkB,mBAAmB,CAAC,iBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,6BAAgB,mBAAmB,CAAC,iBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,sCAAyB,mBAAmB,CAAC,iBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,mBAAmB,CAAC,iBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,gCAAmB,mBAAmB,CAAC,iBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,sCAAyB,mBAAmB,CAAC,iBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,oCAAuB,mBAAmB,CAAC,iBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,gCAAmB,mBAAmB,CAAC,iBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,kCAAqB,mBAAmB,CAAC,iBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,mCAAsB,mBAAmB,CAAC,iBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,0CAA6B,mBAAmB,CAAC,iBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,4CAA+B,mBAAmB,CAAC,iBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,6BAAgB,mBAAmB,CAAC,iBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,uCAA0B,mBAAmB,CAAC,iBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,8BAAiB,mBAAmB,CAAC,iBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,mCAAsB,mBAAmB,CAAC,iBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,6CAAgC,mBAAmB,CAAC,iBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,GAAR;AACjC,gCAAmB,mBAAmB,CAAC,iBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,mCAAsB,mBAAmB,CAAC,iBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,yCAA4B,mBAAmB,CAAC,iBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,GAAR;AAC7B,iCAAoB,mBAAmB,CAAC,iBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,yCAA4B,mBAAmB,CAAC,iBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,uCAA0B,mBAAmB,CAAC,iBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,iBAAC,CAAiB,OAAjB;AAC3B,uCAA0B,mBAAmB,CAAC,iBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,iBAAC,CAAiB,OAAjB;AAC3B,mDAAsC,mBAAmB,CAAC,iBAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,mDAAsC,QAAC,CAAQ,EAAR;AACvC,iDAAoC,mBAAmB,CAAC,iBAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,6BAAgB,mBAAmB,CAAC,IAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAC,CAAW,iBAAX;AACjB,6BAAgB,QAAC,CAAQ,GAAR;AACjB,6BAAgB,OAAC,CAAO,GAAP;AACjB,6BAAgB,mBAAmB,CAAC,IAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,mBAAhB,GAAsC;AACtC,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,iBAAC,CAAiB,uBAAjB;AACjB,6BAAgB,cAAC,CAAc,aAAG,oBAAjB;AACjB,6BAAgB,QAAC,CAAQ,EAAR;AACjB,6BAAgB,OAAC,CAAO,GAAP;AACjB,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,UAA9B,GAA2C;AAC3C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,kCAAqB,mBAAmB,CAAC,qBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,gDAAmC,mBAAmB,CAAC,qBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,8CAAiC,mBAAmB,CAAC,qBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,oDAAuC,mBAAmB,CAAC,qBAAD;AAC1D,oDAAuC,QAAC,CAAQ,yCAAR;AACxC,oDAAuC,WAAvC,GAAqD;AACrD,oDAAuC,QAAC,CAAQ,GAAR;AACxC,kDAAqC,mBAAmB,CAAC,qBAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,kDAAqC,QAAC,CAAQ,GAAR;AACtC,iCAAoB,mBAAmB,CAAC,IAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAAC,CAAW,qBAAX;AACrB,iCAAoB,QAAC,CAAQ,EAAR;AACrB,iCAAoB,OAAC,CAAO,GAAP;AACrB,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,WAAV,GAAwB;AACxB,uBAAU,iBAAC,CAAiB,mBAAjB;AACX,uBAAU,cAAC,CAAc,aAAG,oBAAjB;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,yCAA4B,mBAAmB,CAAC,eAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,+BAAkB,mBAAmB,CAAC,eAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,kCAAqB,mBAAmB,CAAC,eAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,0BAAa,mBAAmB,CAAC,eAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,cAAC,CAAc,aAAG,oBAAjB;AACR,oBAAO,QAAC,CAAQ,EAAR;AACR,oBAAO,OAAC,CAAO,CAAP;AACR,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,SAAQ;AACvB;AACE,8BAAe,SAAQ;AACvB,8BAAe,SAAQ,IAAI,CAAC,mDAAD;AAF7B;AAIE,8BAAe,SAAQ;AAJzB;AAMA,4BAAe,QAAC,CAAQ,EAAR;AAChB,4BAAe,OAAC,CAAO,EAAP;AAChB,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,WAAR,GAAsB;AACtB,qBAAQ,iBAAC,CAAiB,SAAjB;AACT,qBAAQ,cAAC,CAAc,aAAG,oBAAjB;AACT,qBAAQ,QAAC,CAAQ,EAAR;AACT,qBAAQ,OAAC,CAAO,CAAP;AACT,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,UAAtB,GAAmC;AACnC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,oCAAuB,mBAAmB,CAAC,aAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,WAAT,GAAuB;AACvB,sBAAS,iBAAC,CAAiB,kBAAjB;AACV,sBAAS,cAAC,CAAc,aAAG,oBAAjB;AACV,sBAAS,QAAC,CAAQ,GAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,wBAAW,mBAAmB,CAAC,cAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,wBAAW,UAAX,GAAwB;AACxB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,UAArB,GAAkC;AAClC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AAj3C1B;AAm3CE,eAAE;AACF,uBAAU;AACV,uBAAU;AACV,8BAAiB;AACjB,mBAAM;AACN,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,gBAAG;AACH,yBAAY;AACZ,4BAAe;AACf,mCAAsB;AACtB,4BAAe;AACf,4BAAe;AACf,uBAAU;AACV,oCAAuB;AACvB,8BAAiB;AACjB,sCAAyB;AACzB,yBAAY;AACZ,qBAAQ;AACR,qBAAQ;AACR,qBAAQ;AACR,uBAAU;AACV,6BAAgB;AAChB,8BAAiB;AACjB,oBAAO;AACP,gCAAmB;AACnB,kCAAqB;AACrB,mCAAsB;AACtB,wCAA2B;AAC3B,oCAAuB;AACvB,yBAAY;AACZ,wBAAW;AACX,iCAAoB;AACpB,4BAAe;AACf,2BAAc;AACd,gCAAmB;AACnB,uBAAU;AACV,kCAAqB;AACrB,wBAAW;AACX,gCAAmB;AACnB,gCAAmB;AACnB,yBAAY;AACZ,+BAAkB;AAClB,uCAA0B;AAC1B,qCAAwB;AACxB,yCAA4B;AAC5B,uCAA0B;AAC1B,sCAAyB;AACzB,qCAAwB;AACxB,uBAAU;AACV,4BAAe;AACf,oCAAuB;AACvB,yBAAY;AACZ,uCAA0B;AAC1B,uCAA0B;AAC1B,gCAAmB;AACnB,gCAAmB;AACnB,8BAAiB;AACjB,oCAAuB;AACvB,oCAAuB;AACvB,kCAAqB;AACrB,+BAAkB;AAClB,gCAAmB;AACnB,8BAAiB;AACjB,gCAAmB;AACnB,8BAAiB;AACjB,kCAAqB;AACrB,iCAAoB;AACpB,6BAAgB;AAChB,2BAAc;AACd,yBAAY;AACZ,uCAA0B;AAC1B,2BAAc;AACd,+BAAkB;AAClB,sCAAyB;AACzB,uCAA0B;AAC1B,oCAAuB;AACvB,gCAAmB;AACnB,qCAAwB;AACxB,6BAAgB;AAChB,mCAAsB;AACtB,+BAAkB;AAClB,kCAAqB;AACrB,qCAAwB;AACxB,iCAAoB;AACpB,uCAA0B;AAC1B,2BAAc;AACd,2BAAc;AACd,oCAAuB;AACvB,mCAAsB;AACtB,iCAAoB;AACpB,8BAAiB;AACjB,kCAAqB;AACrB,wBAAW;AACX,gCAAmB;AACnB,+BAAkB;AAClB,gCAAmB;AACnB,iCAAoB;AACpB,4BAAe;AACf,kCAAqB;AACrB,gCAAmB;AACnB,gCAAmB;AACnB,gCAAmB;AACnB,iCAAoB;AACpB,gCAAmB;AACnB,8BAAiB;AACjB,2BAAc;AACd,+BAAkB;AAClB,qCAAwB;AACxB,oCAAuB;AACvB,iCAAoB;AACpB,iCAAoB;AACpB,iCAAoB;AACpB,yBAAY;AACZ,gCAAmB;AACnB,uCAA0B;AAC1B,gCAAmB;AACnB,6BAAgB;AAChB,4BAAe;AACf,mCAAsB;AACtB,qCAAwB;AACxB,6BAAgB;AAChB,kCAAqB;AACrB,8BAAiB;AACjB,8BAAiB;AACjB,oCAAuB;AACvB,4BAAe;AACf,kCAAqB;AACrB,kCAAqB;AACrB,4BAAe;AACf,gCAAmB;AACnB,6CAAgC;AAChC,sCAAyB;AACzB,0CAA6B;AAC7B,8BAAiB;AACjB,iCAAoB;AACpB,wCAA2B;AAC3B,sCAAyB;AACzB,2BAAc;AACd,2BAAc;AACd,qCAAwB;AACxB,mCAAsB;AACtB,8BAAiB;AACjB,8BAAiB;AACjB,sCAAyB;AACzB,oCAAuB;AACvB,8BAAiB;AACjB,sCAAyB;AACzB,oCAAuB;AACvB,2BAAc;AACd,2BAAc;AACd,0BAAa;AACb,sBAAS;AACT,6BAAgB;AAChB,uCAA0B;AAC1B,uCAA0B;AAC1B,uCAA0B;AAC1B,kCAAqB;AACrB,sCAAyB;AACzB,6BAAgB;AAChB,mCAAsB;AACtB,iCAAoB;AACpB,6BAAgB;AAChB,iCAAoB;AACpB,uCAA0B;AAC1B,yCAA4B;AAC5B,sCAAyB;AACzB,8BAAiB;AACjB,kCAAqB;AACrB,uCAA0B;AAC1B,yBAAY;AACZ,wCAA2B;AAC3B,iCAAoB;AACpB,6BAAgB;AAChB,kCAAqB;AACrB,mCAAsB;AACtB,+BAAkB;AAClB,4BAAe;AACf,+BAAkB;AAClB,2BAAc;AACd,4CAA+B;AAC/B,oCAAuB;AACvB,wBAAW;AACX,yBAAY;AACZ,sCAAyB;AACzB,uCAA0B;AAC1B,2BAAc;AACd,8BAAiB;AACjB,+BAAkB;AAClB,8BAAiB;AACjB,4CAA+B;AAC/B,4CAA+B;AAC/B,8BAAiB;AACjB,oCAAuB;AACvB,sCAAyB;AACzB,sCAAyB;AACzB,qCAAwB;AACxB,oCAAuB;AACvB,yCAA4B;AAC5B,2CAA8B;AAC9B,kCAAqB;AACrB,gCAAmB;AACnB,+BAAkB;AAClB,+BAAkB;AAClB,8BAAiB;AACjB,2CAA8B;AAC9B,iCAAoB;AACpB,gCAAmB;AACnB,uCAA0B;AAC1B,oCAAuB;AACvB,mCAAsB;AACtB,uCAA0B;AAC1B,4BAAe;AACf,mCAAsB;AACtB,mCAAsB;AACtB,gDAAmC;AACnC,0CAA6B;AAC7B,iCAAoB;AACpB,wCAA2B;AAC3B,yCAA4B;AAC5B,mCAAsB;AACtB,2CAA8B;AAC9B,8BAAiB;AACjB,kCAAqB;AACrB,qCAAwB;AACxB,+CAAkC;AAClC,qCAAwB;AACxB,wCAA2B;AAC3B,yCAA4B;AAC5B,gCAAmB;AACnB,gCAAmB;AACnB,uCAA0B;AAC1B,yCAA4B;AAC5B,uCAA0B;AAC1B,8BAAiB;AACjB,2CAA8B;AAC9B,+BAAkB;AAClB,6BAAgB;AAChB,sCAAyB;AACzB,sCAAyB;AACzB,gCAAmB;AACnB,sCAAyB;AACzB,oCAAuB;AACvB,gCAAmB;AACnB,kCAAqB;AACrB,mCAAsB;AACtB,0CAA6B;AAC7B,4CAA+B;AAC/B,6BAAgB;AAChB,uCAA0B;AAC1B,8BAAiB;AACjB,mCAAsB;AACtB,6CAAgC;AAChC,gCAAmB;AACnB,mCAAsB;AACtB,yCAA4B;AAC5B,iCAAoB;AACpB,yCAA4B;AAC5B,uCAA0B;AAC1B,uCAA0B;AAC1B,mDAAsC;AACtC,iDAAoC;AACpC,6BAAgB;AAChB,6BAAgB;AAChB,2CAA8B;AAC9B,kCAAqB;AACrB,gDAAmC;AACnC,8CAAiC;AACjC,oDAAuC;AACvC,kDAAqC;AACrC,iCAAoB;AACpB,uBAAU;AACV,iCAAoB;AACpB,oCAAuB;AACvB,yCAA4B;AAC5B,+BAAkB;AAClB,8BAAiB;AACjB,qCAAwB;AACxB,kCAAqB;AACrB,0BAAa;AACb,oBAAO;AACP,4BAAe;AACf,qBAAQ;AACR,mCAAsB;AACtB,oCAAuB;AACvB,iCAAoB;AACpB,sBAAS;AACT,wBAAW;AACX,kCAAqB;AACrB,kCAAqB;AACrB,oCAAuB;AAtpDzB;AA7kBoC;AA1nCtB;;;AACZ,0B5HDc,kD4HCd;AACA,8BlJ8iDS,2BkJ9iDT;AACA,sC9IAkB,0D8IAlB;AACA,wClJ2ZU,4BkJ3ZV;AACA,yClJ0ZU,4BkJ1ZV;AACA,8ClJyZU,4BkJzZV;AACA,0ClJwZU,4BkJxZV;AACA,+BlJ8lBY,8BkJ9lBZ;AACA,8BlJiiBS,2BkJjiBT;AACA,uClJ6cW,6BkJ7cX;AACA,kClJoZU,4BkJpZV;AACA,iClJmZU,4BkJnZV;AACA,sClJkZU,4BkJlZV;AACA,6BlJiZU,4BkJjZV;AACA,wClJgZU,4BkJhZV;AACA,8BlJ+YU,4BkJ/YV;AACA,sClJ8YU,4BkJ9YV;AACA,sClJ6YU,4BkJ7YV;AACA,+BlJ4YU,4BkJ5YV;AACA,qClJ2YU,4BkJ3YV;AACA,6ClJ0YU,4BkJ1YV;AACA,2ClJicW,6BkJjcX;AACA,+ClJwYU,4BkJxYV;AACA,6ClJuYU,4BkJvYV;AACA,4ClJsYU,4BkJtYV;AACA,2ClJ4kBY,8BkJ5kBZ;AACA,6BlJoYU,4BkJpYV;AACA,kClJmYU,4BkJnYV;AACA,0ClJkYU,4BkJlYV;AACA,+BlJiYU,4BkJjYV;AACA,6ClJ2gBS,2BkJ3gBT;AACA,6ClJ0gBS,2BkJ1gBT;AACA,sClJygBS,2BkJzgBT;AACA,sClJwgBS,2BkJxgBT;AACA,oClJugBS,2BkJvgBT;AACA,0ClJsgBS,2BkJtgBT;AACA,0ClJqgBS,2BkJrgBT;AACA,wClJogBS,2BkJpgBT;AACA,qClJmgBS,2BkJngBT;AACA,sClJ8jBY,8BkJ9jBZ;AACA,oClJigBS,2BkJjgBT;AACA,sClJggBS,2BkJhgBT;AACA,oClJ+fS,2BkJ/fT;AACA,wClJmXU,4BkJnXV;AACA,uClJkXU,4BkJlXV;AACA,mClJiXU,4BkJjXV;AACA,iClJgXU,4BkJhXV;AACA,+BlJ+WU,4BkJ/WV;AACA,6ClJ4hBW,6BkJ5hBX;AACA,iClJ2hBW,6BkJ3hBX;AACA,qClJmjBY,8BkJnjBZ;AACA,4ClJ2WU,4BkJ3WV;AACA,6ClJqfS,2BkJrfT;AACA,0ClJofS,2BkJpfT;AACA,sClJmfS,2BkJnfT;AACA,2ClJkfS,2BkJlfT;AACA,mClJsWU,4BkJtWV;AACA,yClJmhBW,6BkJnhBX;AACA,qClJoWU,4BkJpWV;AACA,wClJmWU,4BkJnWV;AACA,2ClJkWU,4BkJlWV;AACA,uClJiWU,4BkJjWV;AACA,6ClJuiBY,8BkJviBZ;AACA,iClJ+VU,4BkJ/VV;AACA,iClJ8VU,4BkJ9VV;AACA,0ClJoiBY,8BkJpiBZ;AACA,yClJ4VU,4BkJ5VV;AACA,uClJ2VU,4BkJ3VV;AACA,oClJqeS,2BkJreT;AACA,wClJyVU,4BkJzVV;AACA,8BlJwVU,4BkJxVV;AACA,sClJkeS,2BkJleT;AACA,qClJsVU,4BkJtVV;AACA,sClJqVU,4BkJrVV;AACA,uClJoVU,4BkJpVV;AACA,kClJ0hBY,8BkJ1hBZ;AACA,wClJyhBY,8BkJzhBZ;AACA,sClJiVU,4BkJjVV;AACA,sClJgVU,4BkJhVV;AACA,sClJ6fW,6BkJ7fX;AACA,uClJ8UU,4BkJ9UV;AACA,sClJ6UU,4BkJ7UV;AACA,oClJ0fW,6BkJ1fX;AACA,iClJkhBY,8BkJlhBZ;AACA,qClJ0UU,4BkJ1UV;AACA,2ClJyUU,4BkJzUV;AACA,0ClJsfW,6BkJtfX;AACA,uClJkdS,2BkJldT;AACA,uClJidS,2BkJjdT;AACA,uClJgdS,2BkJhdT;AACA,+BlJoUU,4BkJpUV;AACA,sClJ8cS,2BkJ9cT;AACA,6ClJgfW,6BkJhfX;AACA,sClJiUU,4BkJjUV;AACA,mClJgUU,4BkJhUV;AACA,kClJ6eW,6BkJ7eX;AACA,yClJ8TU,4BkJ9TV;AACA,2ClJ6TU,4BkJ7TV;AACA,mClJ4TU,4BkJ5TV;AACA,wClJyeW,6BkJzeX;AACA,oClJigBY,8BkJjgBZ;AACA,oClJggBY,8BkJhgBZ;AACA,0ClJseW,6BkJteX;AACA,kClJqeW,6BkJreX;AACA,wClJsTU,4BkJtTV;AACA,wClJqTU,4BkJrTV;AACA,kClJoTU,4BkJpTV;AACA,sClJ8bS,2BkJ9bT;AACA,mDlJ6bS,2BkJ7bT;AACA,4ClJiTU,4BkJjTV;AACA,gDlJgTU,4BkJhTV;AACA,oClJ+SU,4BkJ/SV;AACA,uClJybS,2BkJzbT;AACA,8ClJwbS,2BkJxbT;AACA,4ClJ4SU,4BkJ5SV;AACA,iClJkfY,8BkJlfZ;AACA,iClJifY,8BkJjfZ;AACA,2ClJySU,4BkJzSV;AACA,yClJwSU,4BkJxSV;AACA,oClJuSU,4BkJvSV;AACA,oClJsSU,4BkJtSV;AACA,4ClJqSU,4BkJrSV;AACA,0ClJoSU,4BkJpSV;AACA,oClJ0eY,8BkJ1eZ;AACA,4ClJkSU,4BkJlSV;AACA,0ClJiSU,4BkJjSV;AACA,iClJueY,8BkJveZ;AACA,iClJseY,8BkJteZ;AACA,gClJ4cW,6BkJ5cX;AACA,4BlJqVW,6BkJrVX;AACA,mClJ4RU,4BkJ5RV;AACA,6ClJsaS,2BkJtaT;AACA,6ClJqaS,2BkJraT;AACA,6ClJoaS,2BkJpaT;AACA,wClJgVW,6BkJhVX;AACA,4ClJuRU,4BkJvRV;AACA,mClJsRU,4BkJtRV;AACA,yClJ6UW,6BkJ7UX;AACA,uClJoRU,4BkJpRV;AACA,mClJ0dY,8BkJ1dZ;AACA,uClJkRU,4BkJlRV;AACA,6ClJ+bW,6BkJ/bX;AACA,+ClJgRU,4BkJhRV;AACA,4ClJsdY,8BkJtdZ;AACA,oClJsUW,6BkJtUX;AACA,wClJ6QU,4BkJ7QV;AACA,6ClJmdY,8BkJndZ;AACA,+BlJ2QU,4BkJ3QV;AACA,8ClJ0QU,4BkJ1QV;AACA,uClJoZS,2BkJpZT;AACA,mClJgUW,6BkJhUX;AACA,wClJuQU,4BkJvQV;AACA,yClJsQU,4BkJtQV;AACA,qClJqQU,4BkJrQV;AACA,kClJoQU,4BkJpQV;AACA,qClJmQU,4BkJnQV;AACA,iClJ0TW,6BkJ1TX;AACA,+B5H9Jc,kD4H8Jd;AACA,mClJi5CS,2BkJj5CT;AACA,4C9I7JkB,0D8I6JlB;AACA,6C9I9JkB,0D8I8JlB;AACA,iClJqTW,6BkJrTX;AACA,oClJuYS,2BkJvYT;AACA,qClJsYS,2BkJtYT;AACA,oClJwaW,6BkJxaX;AACA,kDlJyPU,4BkJzPV;AACA,kDlJwPU,4BkJxPV;AACA,oClJkYS,2BkJlYT;AACA,0ClJsPU,4BkJtPV;AACA,4ClJgYS,2BkJhYT;AACA,4ClJ+XS,2BkJ/XT;AACA,2ClJmPU,4BkJnPV;AACA,0ClJkPU,4BkJlPV;AACA,+ClJiPU,4BkJjPV;AACA,iDlJgPU,4BkJhPV;AACA,wClJ+OU,4BkJ/OV;AACA,sClJyXS,2BkJzXT;AACA,qClJwXS,2BkJxXT;AACA,qClJuXS,2BkJvXT;AACA,oClJsXS,2BkJtXT;AACA,iDlJqXS,2BkJrXT;AACA,uClJoXS,2BkJpXT;AACA,sClJmXS,2BkJnXT;AACA,6ClJkXS,2BkJlXT;AACA,0ClJiXS,2BkJjXT;AACA,yClJgXS,2BkJhXT;AACA,6ClJ+WS,2BkJ/WT;AACA,kClJ8WS,2BkJ9WT;AACA,yClJkOU,4BkJlOV;AACA,yClJiOU,4BkJjOV;AACA,sDlJuaY,8BkJvaZ;AACA,gDlJ0WS,2BkJ1WT;AACA,uClJyWS,2BkJzWT;AACA,8ClJwWS,2BkJxWT;AACA,+ClJuWS,2BkJvWT;AACA,yClJsWS,2BkJtWT;AACA,iDlJwYW,6BkJxYX;AACA,oClJyNU,4BkJzNV;AACA,wClJsYW,6BkJtYX;AACA,2ClJqYW,6BkJrYX;AACA,qDlJsNU,4BkJtNV;AACA,2ClJqNU,4BkJrNV;AACA,8ClJoNU,4BkJpNV;AACA,+ClJ8VS,2BkJ9VT;AACA,sClJkNU,4BkJlNV;AACA,sClJiNU,4BkJjNV;AACA,6ClJ2VS,2BkJ3VT;AACA,+ClJ0VS,2BkJ1VT;AACA,6ClJ8MU,4BkJ9MV;AACA,oClJoZY,8BkJpZZ;AACA,iDlJ4MU,4BkJ5MV;AACA,qClJ2MU,4BkJ3MV;AACA,mClJqVS,2BkJrVT;AACA,4ClJoVS,2BkJpVT;AACA,4ClJmVS,2BkJnVT;AACA,sClJuMU,4BkJvMV;AACA,4ClJoXW,6BkJpXX;AACA,0ClJ6PW,6BkJ7PX;AACA,sClJ4PW,6BkJ5PX;AACA,wClJiXW,6BkJjXX;AACA,yClJkMU,4BkJlMV;AACA,gDlJ4US,2BkJ5UT;AACA,kDlJgMU,4BkJhMV;AACA,mClJuPW,6BkJvPX;AACA,6ClJ8LU,4BkJ9LV;AACA,oClJ6LU,4BkJ7LV;AACA,yClJmYY,8BkJnYZ;AACA,mDlJ2LU,4BkJ3LV;AACA,sClJqUS,2BkJrUT;AACA,yClJoUS,2BkJpUT;AACA,+ClJwLU,4BkJxLV;AACA,uClJ+OW,6BkJ/OX;AACA,+ClJ6XY,8BkJ7XZ;AACA,6ClJ4XY,8BkJ5XZ;AACA,6ClJ2XY,8BkJ3XZ;AACA,qBtHusBW,0CsHvsBX;AACA,kDlJkLU,4BkJlLV;AACA,mC5H9Oc,kD4H8Od;AACA,iDlJgLU,4BkJhLV;AACA,wClJsXY,8BkJtXZ;AACA,sDlJybQ,0BkJzbR;AACA,oDlJwbQ,0BkJxbR;AACA,uClJ6zCS,2BkJ7zCT;AACA,yDlJ2KU,4BkJ3KV;AACA,uDlJwVW,6BkJxVX;AACA,0DlJyKU,4BkJzKV;AACA,wDlJwKU,4BkJxKV;AACA,6B5HxPc,kD4HwPd;AACA,uClJiTS,2BkJjTT;AACA,0ClJgTS,2BkJhTT;AACA,+ClJ+SS,2BkJ/ST;AACA,qClJ8SS,2BkJ9ST;AACA,oClJ6SS,2BkJ7ST;AACA,2ClJ4SS,2BkJ5ST;AACA,wClJ2SS,2BkJ3ST;AACA,gClJ0SS,2BkJ1ST;AACA,0ClJ8JU,4BkJ9JV;AACA,0B9HjLa,gD8HiLb;AACA,kC9K3OU,wC8K2OV;AACA,2B5HpQc,kD4HoQd;AACA,yClJ0JU,4BkJ1JV;AACA,0ClJyJU,4BkJzJV;AACA,uClJwJU,4BkJxJV;AACA,6BnK2qBY,8CmK3qBZ;AACA,6BpK4TK,uCoK5TL;AACA,oCpK2TK,uCoK3TL;AACA,yBpK0TK,uCoK1TL;AACA,6BpKyTK,uCoKzTL;AACA,6BnKsqBY,8CmKtqBZ;AACA,6BnKqqBY,8CmKrqBZ;AACA,sBtHoqBW,0CsHpqBX;AACA,+BpKqTK,uCoKrTL;AACA,kClHVe,gDkHUf;AACA,yClHvMK,sCkHuML;AACA,kClHxMK,sCkHwML;AACA,kCpKiTK,uCoKjTL;AACA,6BnK8pBY,8CmK9pBZ;AACA,0ClHkDS,0CkHlDT;AACA,oCpK6wBO,yCoK7wBP;AACA,4ClH4NK,sCkH5NL;AACA,+BpK4SK,uCoK5SL;AACA,2BlH/MK,sCkH+ML;AACA,2BpK0SK,uCoK1SL;AACA,2BpKySK,uCoKzSL;AACA,4B5H7Rc,kD4H6Rd;AACA,8BlJyLW,6BkJzLX;AACA,wClJuUY,8BkJvUZ;AACA,wClJ+HU,4BkJ/HV;AACA,0ClJ8HU,4BkJ9HV;AACA,6BpKmSK,uCoKnSL;AACA,mCpKkSK,uCoKlSL;AACA,oCpKiSK,uCoKjSL;AACqB,kCAAO,UjMvLvB,2BiMuLuB,CAAP;AACK,uCAAQ,WlJmyB5B,wBkJnyB4B,CAAR;AACH,oCAAO,UjMzLzB,2BiMyLyB,CAAP;AACG,uCAAQ,WlJiyB5B,wBkJjyB4B,CAAR;AACQ,+CAAO,UlJgyBnC,wBkJhyBmC,EAAgB,QlJqxB5C,+BkJrxB4C,CAAvB;AACJ,2CAAO,UjM5LhC,2BiM4LgC,CAAP;AACK,gDAAQ,WlJ8xBrC,wBkJ9xBqC,CAAR;AACH,6CAAO,UjM9LlC,2BiM8LkC,CAAP;AACG,gDAAQ,WlJ4xBrC,wBkJ5xBqC,CAAR;AACQ,wDAAO,UlJ2xB5C,wBkJ3xB4C,EAC5C,QlJ+wBO,+BkJ/wBP,CADqC;AAEhB,wCAAO,UjMlM7B,2BiMkM6B,EAAuB,0BAA9B;AACA,wCAAQ,WlJwxB7B,wBkJxxB6B,CAAR;AACE,0CAAQ,WlJuxB/B,wBkJvxB+B,CAAR;AACR,kCAAO,UjMrMvB,2BiMqMuB,CAAP;AACI,sCAAO,UjMtM3B,2BiMsM2B,CAAP;AACE,wCAAQ,WlJoxB7B,wBkJpxB6B,CAAR;AACF,sCAAO,UjMxM3B,2BiMwM2B,CAAP;AACM,4CAAQ,WlJkxBjC,wBkJlxBiC,CAAR;AACC,6CAAO,UjM1MlC,2BiM0MkC,CAAP;AACL,wCAAO,UjM3M7B,2BiM2M6B,CAAP;AACK,6CAAO,UjM5MlC,2BiM4MkC,CAAP;AACF,2CAAO,UjM7MhC,2BiM6MgC,CAAP;AACH,wCAAO,UjM9M7B,2BiM8M6B,EAAiB,sBAAQ,qBAAhC;AACL,mCAAO,UjM/MxB,2BiM+MwB,EAAqB,UrKrQxC,0CqKqQwC,EAA5B;AACK,wCAAO,UjMhN7B,2BiMgN6B,CAAP;AACJ,oCAAO,UjMjNzB,2BiMiNyB,CAAP;AACA,oCAAO,UjMlNzB,2BiMkNyB,CAAP;AACE,sCAAO,UjMnN3B,2BiMmN2B,CAAP;AACG,yCAAQ,WlJuwB9B,wBkJvwB8B,CAAR;AACG,4CAAO,UjMrNjC,2BiMqNiC,CAAP;AACC,6CAAO,UjMtNlC,2BiMsNkC,CAAP;AApUpB;AA6Vd;AA7WF,GAgXc,4JAhXd;ACAA,oBAES,sNAFT;;;AAUM;;;AACF;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AApDE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AA4KmC;AAEvC,6BAAkB;AAFqB;AA5CC;AAExC,sBAAW;AAF6B;AAWP;;AACb;AAElB;AAEA,qBAAkB,KAAW,QAAQ,QAAS,SAA5B;AAClB,sCAAmB,oBAAO,CAAC,WAAW,EAAZ;AAC1B,0BAAY;AANM;AAWpB,oCAAmB,QAAG,6BAA6B,YAAC;AACpD,mBAAO,QAAG,4BAA4B,aAAC,EAAS,GAAC,CAAC,CAAF;AAChD,+BAAoB,YAAU,CAAC,2BAA2B,CAAC,6BAAwB,YAAC,EAA1B,a/HYqF,I+HZjH;AAdG;AA5DC;AAElC,8BAAmB;AAFe;AAsDI;AAEtC,0BAAe,KAAf,GAAqB,gGAAiJ,GAAhD,iCAA4B,YAAC,EAA9B,GAAuC,UAAD,GAAY,iCAAD;AACtK,0BAAe,S/KxEoC;A+KqEb;AAuBF;AAEpC;AACA;AAEA,WAAI,wBAAK,QAAC;AACV,WAAI,EAAE,MAAM,CAAC,SAAD;AACZ,UAAW,CAAC,EAAD,SAAK,IAAW,8BAAH,eAAH,EAAG,CAAxB;AAEE,YAAe,EAAG,aAAa,CAAC,OAAD,CAAS,KAAC,IAAzC,EAAmD,qBAAU,IAA7D;AACA,uBAAK,kBAAkB,WAAC,CAAS,oBAAoB,GAAa,EAAG,aAAa,CAAC,OAAD,CAA1D;AACxB,uBAAK,YAAY,WAAC,CAAS,kBAAT;OAJpB;AAPoC;AAqBG;AAEvC,UAAI,SAAQ,WAAC,EAAO,SAAS,CAAC,gBAAgB,SAAU,GAAE,gBAA7B;AAFU;AAKE;AAEzC,qCAAoB;AACpB,sCAAqB;AACrB,UAAG,uCAAkC,aAAC,EAAS,KAAC,CAAhD,EAAuD,+BAAoB,CAA3E;AACA,UAAG,wCAAmC,aAAC,EAAS,KAAC,CAAjD,EAAwD,gCAAqB,CAA7E;AACA,2BAAgB;AANyB;AAlGrB;AAAR;AAEd;AACA;AAEE,eAAQ;AACR,kBAAW;AACX,UAAG,YAAY,KAAC,CAAhB,EAAuB,SAAQ,CAA/B;AACA,UAAG,YAAY,KAAC,CAAC,CAAjB,EAAwB,SAAQ,EAAhC;AACA,UAAG,YAAY,KAAC,CAAC,CAAjB,EAAwB,SAAQ,GAAhC;AACA,UAAG,YAAY,KAAC,CAAC,CAAjB,EAAwB,SAAQ,IAAhC;AACA,UAAG,YAAY,KAAC,CAAC,CAAjB,EAAwB,SAAQ,KAAhC;AACA,UAAG,YAAY,KAAC,CAAC,CAAjB,EAAwB,SAAQ,MAAhC;AACA,UAAG,YAAY,KAAC,CAAC,CAAjB,EAAwB,SAAQ,OAAhC;AAEA,UAAG,SAAS,GAAC,CAAb,EAAoB,YAAqB,CAAT,SAAS,GAAC,MAAD,CAAQ,GAAE,SAAnD;AAEA,UAAG,SAAS,GAAC,CAAb,EAAoB,YAAqB,CAAT,SAAS,GAAC,MAAD,CAAQ,GAAE,SAAnD;AACA,eAAQ,cAAG,CAAC,SAAD;AACX,eAAQ,MAAM,GAAC,MAAD;AAnBF;AAAQ;AAsBM;AAAd;AAEZ,eAAQ;AAER,UAAG,QAAG,iBAAiB,OAAO,CAAC,cAAc,UAAU,EAAzB,CAA4B,KAAC,IAA3D;AAEG,YAAG,QAAG,2BAA2B,WAAC,EAAO,KAAE,CAA3C,EAAkD,SAAQ,QAAG,2BAA2B,WAAC,EAAzF;OAFH;AAJY;AAAc;AAUG;AAAjB;AAEZ,eAAQ;AAFI;AAAiB;AA2EH;AAEhB;AAEV,iCAAuB,+CAAmB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,gCAAsB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,yBAAe,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,4BAAkB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,kCAAwB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,0BAAgB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,0BAAgB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,wCAA8B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,0CAAgC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,+BAAqB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,2BAAiB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,8BAAoB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,2CAAiC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,wCAA8B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,wCAA8B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,6BAAmB,+BAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,mCAAyB,+BAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,kCAAwB,uCAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,iCAAuB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,gDAAsC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,iDAAuC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,iDAAuC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,oDAA0C,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,wDAA8C,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5D,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,8BAAoB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAErC,8BAAmB;AACnB,6BAAkB;AAClB,0CAA+B;AAC/B,8BAAmB;AACnB,sBAAW;AACX,2BAAgB;AAChB,8BAAmB;AACnB,6BAAkB;AAClB,iCAAsB;AACtB,iCAAsB;AACtB,6BAAkB;AAClB,kCAAuB;AACvB,yBAAc;AACd,oCAAyB;AACzB,0BAAe;AACf,mCAAwB;AACxB,mCAAwB;AACxB,kCAAuB;AACvB,2BAAgB;AAChB,uCAA4B;AAC5B,+BAAoB;AACpB,sCAA2B;AAC3B,mCAAwB;AACxB,uBAAY;AACZ,uBAAY;AACZ,qCAA0B;AAC1B,+BAAoB;AACpB,8BAAmB;AACnB,qCAA0B;AAC1B,uCAA4B;AAC5B,mCAAwB;AACxB,4BAAiB;AACjB,wBAAa;AACb,2BAAgB;AAChB,sCAA2B;AAC3B,+BAAoB;AACpB,wCAA6B;AAC7B,qCAA0B;AAC1B,qCAA0B;AAC1B,qCAA0B;AAC1B,4BAAiB;AACjB,0BAAe;AACf,gCAAqB;AACrB,+BAAoB;AACpB,8BAAmB;AACnB,6CAAkC;AAClC,8CAAmC;AACnC,8CAAmC;AACnC,iDAAsC;AACtC,qDAA0C;AAC1C,0CAA+B;AAC/B,2BAAgB;AAChB;AACE,qBAAQ,KAAR;AACA,uBAAU;AACV,sBAAS;AACT,gCAAmB,mBAAmB,CAAC,IAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,OAAC,CAAO,0DAAP;AACpB,uBAAQ,CAAC,yBAAqB,KAAM,YAAa,4BAAzC;AACR,uBAAQ,CAAC,yBAAqB,KAAM,YAAa,4BAAzC;AACR,gCAAmB,QAAC,CAAQ,EAAR;AACpB,gCAAmB,OAAC,CAAO,EAAP;AACpB,+BAAkB,mBAAmB,CAAC,IAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,iBAAC,CAAiB,eAAjB;AACnB,+BAAkB,cAAC,CAAc,wBAAd;AACnB,+BAAkB,QAAC,CAAQ,GAAR;AACnB,+BAAkB,OAAC,CAAO,GAAP;AACnB,4CAA+B,mBAAmB,CAAC,uBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,UAA/B,GAA4C;AAC5C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,gCAAmB,mBAAmB,CAAC,IAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAC,CAAW,uBAAX;AACpB,gCAAmB,QAAC,CAAQ,EAAR;AACpB,gCAAmB,OAAC,CAAO,GAAP;AACpB,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,wBAAW,iBAAC,CAAiB,QAAjB;AACZ,wBAAW,cAAC,CAAc,wBAAd;AACZ,wBAAW,QAAC,CAAQ,GAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,6BAAgB,mBAAmB,CAAC,gBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,gCAAmB,mBAAmB,CAAC,gBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,+BAAkB,mBAAmB,CAAC,gBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,mCAAsB,mBAAmB,CAAC,gBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,mCAAsB,mBAAmB,CAAC,gBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,+BAAkB,mBAAmB,CAAC,gBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,oCAAuB,mBAAmB,CAAC,gBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,CAAR;AACxB,2BAAc,mBAAmB,CAAC,gBAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,QAAC,CAAQ,EAAR;AACf,sCAAyB,mBAAmB,CAAC,gBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,CAAR;AAC1B,4BAAe,mBAAmB,CAAC,gBAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,EAAR;AAChB,qCAAwB,mBAAmB,CAAC,gBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,qCAAwB,mBAAmB,CAAC,gBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,oCAAuB,mBAAmB,CAAC,gBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,6BAAgB,mBAAmB,CAAC,gBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,yCAA4B,mBAAmB,CAAC,gBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,iCAAoB,mBAAmB,CAAC,gBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,wCAA2B,mBAAmB,CAAC,gBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,qCAAwB,mBAAmB,CAAC,gBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,GAAR;AACzB,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAC,CAAW,gBAAX;AACb,yBAAY,QAAC,CAAQ,EAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,iBAAC,CAAiB,UAAjB;AACb,yBAAY,cAAC,CAAc,wBAAd;AACb,yBAAY,aAAZ,GAA4B;AAC5B,yBAAY,QAAC,CAAQ,GAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,uCAA0B,mBAAmB,CAAC,iBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,UAA1B,GAAuC;AACvC,iCAAoB,mBAAmB,CAAC,iBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,UAApB,GAAiC;AACjC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,gCAAmB,mBAAmB,CAAC,iBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,uCAA0B,mBAAmB,CAAC,iBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,yCAA4B,mBAAmB,CAAC,iBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,qCAAwB,mBAAmB,CAAC,iBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,8BAAiB,mBAAmB,CAAC,iBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAC,CAAW,iBAAX;AACd,0BAAa,QAAC,CAAQ,EAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,6BAAgB,mBAAmB,CAAC,IAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,iBAAC,CAAiB,aAAjB;AACjB,6BAAgB,cAAC,CAAc,wBAAd;AACjB,6BAAgB,QAAC,CAAQ,GAAR;AACjB,6BAAgB,OAAC,CAAO,GAAP;AACjB,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,UAA3B,GAAwC;AACxC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,iCAAoB,mBAAmB,CAAC,qBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,CAAR;AACrB,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,mBAAmB,CAAC,qBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,8BAAiB,mBAAmB,CAAC,IAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAC,CAAW,qBAAX;AAClB,8BAAiB,QAAC,CAAQ,EAAR;AAClB,8BAAiB,OAAC,CAAO,GAAP;AAClB,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,SAAQ;AACvB;AACE,8BAAe,SAAQ;AACvB,8BAAe,SAAQ,IAAI,CAAC,mDAAD;AAF7B;AAIE,8BAAe,SAAQ;AAJzB;AAMA,4BAAe,KAAf,GAAuB;AACvB,uBAAQ,CAAC,qBAAiB,KAAM,aAAc,yBAAtC;AACR,4BAAe,QAAC,CAAQ,EAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,kCAAqB,mBAAmB,CAAC,IAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,SAAQ;AAC7B;AACE,oCAAqB,SAAQ;AAC7B,oCAAqB,SAAQ,IAAI,CAAC,mDAAD;AAFnC;AAIE,oCAAqB,SAAQ;AAJ/B;AAMA,kCAAqB,QAAC,CAAQ,GAAR;AACtB,kCAAqB,OAAC,CAAO,GAAP;AACtB,iCAAoB,mBAAmB,CAAC,IAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,cAAC,CAAc,wBAAd;AACrB,iCAAoB,QAAC,CAAQ,EAAR;AACrB,iCAAoB,OAAC,CAAO,GAAP;AACrB,gCAAmB,mBAAmB,CAAC,IAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,iBAAC,CAAiB,mBAAjB;AACpB,gCAAmB,cAAC,CAAc,wBAAd;AACpB,gCAAmB,QAAC,CAAQ,GAAR;AACpB,gCAAmB,OAAC,CAAO,GAAP;AACpB,+CAAkC,mBAAmB,CAAC,wBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,gDAAmC,mBAAmB,CAAC,wBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,gDAAmC,mBAAmB,CAAC,wBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,mDAAsC,mBAAmB,CAAC,wBAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,uDAA0C,mBAAmB,CAAC,wBAAD;AAC7D,uDAA0C,QAAC,CAAQ,4CAAR;AAC3C,uDAA0C,WAA1C,GAAwD;AACxD,4CAA+B,mBAAmB,CAAC,wBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,6BAAgB,mBAAmB,CAAC,IAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,cAAC,CAAc,wBAAd;AACjB,6BAAgB,QAAC,CAAQ,GAAR;AACjB,6BAAgB,OAAC,CAAO,GAAP;AAjPnB;AAmPE,gCAAmB;AACnB,+BAAkB;AAClB,4CAA+B;AAC/B,gCAAmB;AACnB,wBAAW;AACX,6BAAgB;AAChB,gCAAmB;AACnB,+BAAkB;AAClB,mCAAsB;AACtB,mCAAsB;AACtB,+BAAkB;AAClB,oCAAuB;AACvB,2BAAc;AACd,sCAAyB;AACzB,4BAAe;AACf,qCAAwB;AACxB,qCAAwB;AACxB,oCAAuB;AACvB,6BAAgB;AAChB,yCAA4B;AAC5B,iCAAoB;AACpB,wCAA2B;AAC3B,qCAAwB;AACxB,yBAAY;AACZ,yBAAY;AACZ,uCAA0B;AAC1B,iCAAoB;AACpB,gCAAmB;AACnB,uCAA0B;AAC1B,yCAA4B;AAC5B,qCAAwB;AACxB,8BAAiB;AACjB,0BAAa;AACb,6BAAgB;AAChB,wCAA2B;AAC3B,iCAAoB;AACpB,0CAA6B;AAC7B,uCAA0B;AAC1B,uCAA0B;AAC1B,uCAA0B;AAC1B,8BAAiB;AACjB,4BAAe;AACf,kCAAqB;AACrB,iCAAoB;AACpB,gCAAmB;AACnB,+CAAkC;AAClC,gDAAmC;AACnC,gDAAmC;AACnC,mDAAsC;AACtC,uDAA0C;AAC1C,4CAA+B;AAC/B,6BAAgB;AAtSlB;AA7G0B;AA/LtB;;AACF,sCjI4EiB,wDiI5EjB;AACA,qC7HIc,kD6HJd;AACA,sCnJmjDS,2BmJnjDT;AACA,kDnJiaU,4BmJjaV;AACA,8B7HCc,kD6HDd;AACA,+BnJgjDS,2BmJhjDT;AACA,mCnJ8ZU,4BmJ9ZV;AACA,sCnJ6ZU,4BmJ7ZV;AACA,qCnJ4ZU,4BmJ5ZV;AACA,yCnJ2ZU,4BmJ3ZV;AACA,yCnJ0ZU,4BmJ1ZV;AACA,qCnJyZU,4BmJzZV;AACA,0CnJwZU,4BmJxZV;AACA,iCnJuZU,4BmJvZV;AACA,4CnJsZU,4BmJtZV;AACA,kCnJqZU,4BmJrZV;AACA,2CnJoZU,4BmJpZV;AACA,2CnJmZU,4BmJnZV;AACA,0CnJkZU,4BmJlZV;AACA,mCnJiZU,4BmJjZV;AACA,+CnJgZU,4BmJhZV;AACA,+B7HhBc,kD6HgBd;AACA,gCnJ+hDS,2BmJ/hDT;AACA,6CnJqcW,6BmJrcX;AACA,uCnJ4YU,4BmJ5YV;AACA,sCnJ2YU,4BmJ3YV;AACA,6CnJ0YU,4BmJ1YV;AACA,+CnJujBW,6BmJvjBX;AACA,mC7HvBc,kD6HuBd;AACA,oCnJwhDS,2BmJxhDT;AACA,8CnJsYU,4BmJtYV;AACA,uCnJqYU,4BmJrYV;AACA,gDnJkjBW,6BmJljBX;AACA,6CnJijBW,6BmJjjBX;AACA,6CnJgjBW,6BmJhjBX;AACA,6CnJ4gBS,2BmJ5gBT;AACA,uCnJ8iBW,6BmJ9iBX;AACA,8CnJubW,6BmJvbX;AACA,2CnJ8XU,4BmJ9XV;AACA,kC/KVU,wC+KUV;AACA,wC/KXU,wC+KWV;AACA,uC/H6Ca,gD+H7Cb;AACA,2CnJ0XU,4BmJ1XV;AACA,oCnJibW,6BmJjbX;AACA,sC7HvCc,kD6HuCd;AACA,qDnJ+aW,6BmJ/aX;AACA,sDnJ8aW,6BmJ9aX;AACA,sDnJ6aW,6BmJ7aX;AACA,yDnJ4aW,6BmJ5aX;AACA,6DnJ2aW,6BmJ3aX;AACA,kDnJ0aW,6BmJ1aX;AACA,mC7H9Cc,kD6H8Cd;AACoC,iDAAO,UlM+DtC,2BkM/DsC,CAAP;AACC,kDAAQ,WnJyhCvC,wBmJzhCuC,CAAR;AACP,2CAAQ,WnJwhChC,wBmJxhCgC,CAAR;AACC,4CAAQ,WnJuhCjC,wBmJvhCiC,CAAR;AACI,gDAAQ,WnJshCrC,wBmJthCqC,CAAR;AACF,8CAAO,UlM0DnC,2BkM1DmC,EAAoB,wBAA3B;AACG,iDAAK,QjI7CjB,+DiI6CiB,CAAL;AACE,mDAAQ,WnJmhCxC,wBmJnhCwC,CAAR;AA5DpC;AAqEJ;AACA;AACA;AAjFF,GAmFc,6BAnFd;ACeA,kCAIS,wHAJT;;;AAWe;;;AAEX;AACA;AACA;AAJW;;;;;;AAqEuB;AAEpC,0BAAgB;AAFoB;AAvBF;AAAb;AAErB,eAAU,QAAQ,cAAc,CAAC,KAAD;AAEhC,6BAAmB,QAAQ,cAAc,CAAC,KAAD;AACzC,2BAAiB,QAAQ,cAAc,CAAC,KAAD;AAEvC,YAAM,YAAY,CAAC,oBAAD;AAClB,YAAM,YAAY,CAAC,kBAAD;AARG;AAAa;AA4BC;AAEnC;AACA;AACA;AACA;AAAO;AACP;AAEA;AAEA,UAAW,CAAC,uBAAD,SAAmC,IAAf,CAAI,iBAAR,IAAuB,CAAe,CAAV,yCAAU,IAAG,oBAAH,CAAjE;AAEE,YAAG,CAAY,CAAC,kBAAD,SAAf;AAEE,iCAAmB,QAAQ,cAAc,CAAC,KAAD;AACzC,+BAAiB,QAAQ,cAAc,CAAC,KAAD;AAEvC,iCAAa,YAAY,CAAC,oBAAD;AACzB,iCAAa,YAAY,CAAC,kBAAD;SAN3B;AASe,0BAAc,MAAM,YAAY,CAAC,WAAW,UAAZ;AAE/C,YAAG,CAAiB,CAAZ,2CAAY,IAAG,oBAAH,CAApB;AACiB,4BAAc,MAAM,YAAY,CAAC,SAAS,qBAAQ,CAAC,iBAAD,CAAa,GAAC,IAAhC;AAE/C,cAAe,kBAAc,MAAM,YAAY,CAAC,SAAS,qBAAQ,CAAC,gBAAD,CAAQ,GAAC,IAA3B;AAEjD,+BAAa,MAAM,YAAY,CAAC,SAAS,EAAV;AAG/B,+BAAa,MAAM,YAAY,CAAC,cAAe,EAAhB;AAG/B,YAAG,YAAO,KAAE,CAAZ,EACE,uBAAa,MAAM,YAAY,CAAC,SAAU,EAAX,CADjC;AAGA,YAAG,gBAAW,KAAE,4CAAhB,EACiB,oBAAgB,MAAM,YAAY,CAAC,QAAQ,qBAAQ,CAAC,eAAM,GAAC,CAAR,CAAU,GAAC,IAA5B,CADnD;AAGA,iBAAU,sBAAgB,GAAE,iBAAF;AAE1B,iBAAS,QAAkB,OAAb,uBAAa,GAAE,CAAF,kBAA3B;AAAI;AAEF,qBAAY,QAAQ,uBAAuB;AAC3C,mBAAU,gBAAQ,CAAC,CAAD,CAAG;AAErB,cAAG,gBAAQ,CAAC,CAAD,CAAG,eAAc,GAAkB,CAAhB,sBAAgB,GAAE,iBAAF,CAA9C;AAEE,iBAAM,QAAQ,eAAe,CAAC,MAAD;AAC7B,gBAAY,EAAD,QAAX;AAEE,sBAAQ,YAAY,CAAC,EAAD;AACpB,kCAAe,YAAY,CAAC,QAAD;AAC3B,8BAAQ,CAAC,CAAD,CAAG,iBAAC,EAAa,MAAM,YAAY,CAAC,WAAW,UAAZ;aAJ7C;;AASA,qBAAU,gBAAQ,CAAC,CAAD,CAAG,eAAc,GAAE,MAAF;AACnC,4BAAQ,CAAC,CAAD,CAAG,OAAC,CAAO,MAAP;AACZ,4BAAQ,CAAC,CAAD,CAAG,iBAAC,EAAa,MAAM,YAAY,CAAC,MAAM,qBAAQ,CAAC,MAAD,CAAQ,GAAC,IAAxB;AAC3C,iBAAM,QAAQ,eAAe,CAAC,MAAD;AAC7B,gBAAY,EAAD,QAAX;AAEE,sBAAQ,YAAY,CAAC,EAAD;AACpB,gCAAa,YAAY,CAAC,QAAD;aAH3B;;;OArDN;AAVmC;AAjBG;AAEtC;AACA,0BAAgB;AAChB,0BAAe,4CAAf;AACA,2BAA6B,aAAb,mBAAe,cAAC,2DAAD,CAAF;AAC7B,oBAAS,QAAT;AACA,2BAAgB;AAChB,oBAAS,GAAT;AACA,qBAAU,GAAV;AATsC;AAzDzB;;;AAYG,6BtLgGV,uCsLhGU;AACW;AACT,+BtLsGV,yCsLtGU,yBtLqtBkD,uBAAC,0CAAQ,wCAAT,CsLrtBlD;AACI,mCrL+VhB,uCqL/VgB;AACA,mCtL8FV,6CsL9FU;AACD;AACL,6BrL4VV,uCqL5VU;AACW,wCtLqGV,kDsLrGU;AACL,mCtLsGV,6CsLtGU;AACF,iCtLoGV,2CsLpGU;AACM,uCtLqGV,iDsLrGU;AACJ;AACE;AACF,mCtLsFZ,2CsLtFY;AACJ,+BtL2KV,yCsL3KU;AACK;AACF,kCtLmFX,2CsLnFW;AACH;AACA,+BtLmJN,6CsLnJM;AACG,kCtLkJT,6CsLlJS;AACC,mCtLkJX,4CsLlJW;AACA,mCtLqJP,gDsLrJO;AACF,iCtLgJT,4CsLhJS;AAlCP;AAqCG;;;;AAhDlB,GAkDc,WAlDd;ACfA,+BAES,ySAFT;;;AAWc;;;AACV;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAUA;AACA;AACA;AACA;AA3CU;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAqFoB;AAEhC,UAAG,gBAAW,KAAE,EAAhB;AAEE,qBAAQ;AACR,qBAAQ,aAAR,GAAsB,gBAAgB,GAAC,sBAAS,CAAC,iBhMoLC,GgMpLF,CAAV;AACtC,qBAAQ;OAJV;AAFgC;AA0GM;AAEtC,UAAG,kBAAH;AAEE,qBAAQ;;AAIR,yCAAW,CAAC,iGAAD;;AARyB;AA9FQ;AAG9C,UAAI;AAH0C;AAMR;AAEtC;AACA;AAGA,UAAG;AACH,aAAE,YAAC,CAAU,CAAV;AACH,aAAE,YAAC,CAAU,EAAV;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,kBAAP;AACJ,OAAJ,IAAG;AACH,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,2BAAe,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,wBAAa,oBAAC,CAAkB,wBAAlB;AACd,wBAAa,eAAC,CAAa,wCAAb;AACd,wBAAa,cAAC,CAAY,wCAAZ;AACd,wBAAa,OAAb,GAAmB;AACnB,wBAAa,WAAC,CAAS,YAAT;AACd,wBAAa,SAAb,GAAwB;AACxB,wBAAa,iBAAC,CAAe,SAAf;AAEV,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,cAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,2BAAc,CAAC,sBAAsB,kBAAa,cAAC,EAArC,CAArB;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,qBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,yBAAoB,YAAC,EAA5B;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,kBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,sBAAiB,YAAC,EAAzB;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,qBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,yBAAoB,YAAC,EAA5B;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,mBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,uBAAkB,YAAC,EAA1B;AAER,UAAG,yBAAoB,YAAC,EAAQ,KAAC,EAAjC;AAEE,oBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,6BAAe,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,0BAAa,cAAC,CAAY,gBAAZ;AACd,0BAAa,aAAC,CAAW,YAAX;AACd,0BAAa,oBAAC,CAAkB,cAAlB;AACd,0BAAa,SAAC,CAAO,GAAP;AACd,0BAAa,UAAC,CAAQ,EAAR;AACd,iBAAS,UAAT,GAAqB;AACrB,0BAAa,iBAAC,CAAe,SAAf;OAVhB;AAcI,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,cAAP;AAER,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,sBAAU,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAClB,mBAAQ,cAAC,CAAY,gBAAZ;AACT,mBAAQ,aAAC,CAAW,OAAX;AACT,mBAAQ,oBAAC,CAAkB,cAAlB;AACT,mBAAQ,SAAC,CAAO,GAAP;AACT,mBAAQ,UAAC,CAAQ,GAAR;AACT,eAAS,UAAT,GAAqB;AACrB,mBAAQ,iBAAC,CAAe,SAAf;AAGL,OAAJ,IAAG;AACH,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,6BAAiB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACzB,0BAAe,oBAAC,CAAkB,wBAAlB;AAChB,0BAAe,eAAC,CAAa,wCAAb;AAChB,0BAAe,cAAC,CAAY,wCAAZ;AAChB,0BAAe,OAAf,GAAqB;AACrB,0BAAe,WAAC,CAAS,WAAT;AAChB,0BAAe,SAAf,GAA0B;AAC1B,0BAAe,iBAAC,CAAe,SAAf;AAEhB,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,6BAAiB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACzB,0BAAe,oBAAC,CAAkB,wBAAlB;AAChB,0BAAe,eAAC,CAAa,wCAAb;AAChB,0BAAe,cAAC,CAAY,wCAAZ;AAChB,0BAAe,OAAf,GAAqB;AACrB,0BAAe,WAAC,CAAS,WAAT;AAChB,0BAAe,SAAf,GAA0B;AAC1B,0BAAe,iBAAC,CAAe,SAAf;AAChB,mBAAQ;AArF8B;AA7CC;AAEvC,UAAI;AAFmC;AAKE;AAExC,UAAG,aAAQ,OAAO,IAAG,kBAArB;AAEC,4BAAa,CAAb;AACA,qBAAQ;;AAIR,4BAAa,CAAb;AACA,qBAAQ;AACR,YAAI;;AAXmC;AAeA;AAEzC,0BAAa,CAAb;AACA,mBAAQ;AACR,UAAI;AAJqC;AA6HP;AAExB;AAEV,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,sBAAY,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,8BAAoB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,2BAAiB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,2BAAiB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,2BAAiB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,yBAAe,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,kCAAwB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,0BAAgB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,2BAAiB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,yBAAe,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,+BAAqB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,+BAAqB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,+BAAqB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,mCAAyB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,4BAAkB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,8BAAoB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,+BAAqB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,yBAAe,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAE3B,aAAE;AACF,mBAAQ;AACR,qBAAU;AACV,2BAAgB;AAChB,wBAAa;AACb,4BAAiB;AACjB,+BAAoB;AACpB,8BAAmB;AACnB,2BAAgB;AAChB,wBAAa;AACb,+BAAoB;AACpB,6BAAkB;AAClB,wBAAa;AACb,sBAAW;AACX,+BAAoB;AACpB,uBAAY;AACZ,wBAAa;AACb,sBAAW;AACX,4BAAiB;AACjB,4BAAiB;AACjB,uBAAY;AACZ,uBAAY;AACZ,4BAAiB;AACjB,gCAAqB;AACrB,8BAAmB;AACnB,yBAAc;AACd,2BAAgB;AAChB,4BAAiB;AACjB,+BAAoB;AACpB,sBAAW;AACX;AACE,qBAAQ,aAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,QAAC,CAAQ,CAAR;AACH,eAAE,OAAC,CAAO,CAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,GAAV;AACH,eAAE,oBAAC,CAAoB,gDAApB;AACH,eAAE,eAAC,CAAe,wCAAf;AACH,eAAE,SAAC,CAAS,sCAAT;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,gBAAC,CAAc,CAAd;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,eAAC,CAAe,yCAAf;AACH,eAAE,0BAAC,CAA0B,YAA1B;AACH,eAAE,yBAAC,CAAyB,gDAAzB;AACH,eAAE,SAAQ,kBAAC,CAAkB,IAAlB;AACX,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,mBAAR,GAA8B;AAC9B,qBAAQ,WAAR,GAAsB;AACtB,qBAAQ,WAAR,GAAsB;AACtB,qBAAQ,iBAAC,CAAiB,gBAAjB;AACT,qBAAQ,cAAC,CAAc,aAAG,oBAAjB;AACT,qBAAQ,UAAR,GAAqB;AACrB,qBAAQ,QAAC,CAAQ,EAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,uBAAU,mBAAmB,CAAC,aAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,WAAV,GAAwB;AACxB,uBAAU,UAAV,GAAuB;AACvB,uBAAU,QAAC,CAAQ,EAAR;AACX,6BAAgB,mBAAmB,CAAC,aAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,0BAAa,mBAAmB,CAAC,aAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,8BAAiB,mBAAmB,CAAC,aAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,gCAAmB,mBAAmB,CAAC,aAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,6BAAgB,mBAAmB,CAAC,aAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,0BAAa,mBAAmB,CAAC,aAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,GAAR;AACnB,0BAAa,mBAAmB,CAAC,aAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,QAAC,CAAQ,GAAR;AACd,wBAAW,mBAAmB,CAAC,aAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,yBAAY,mBAAmB,CAAC,aAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,0BAAa,mBAAmB,CAAC,aAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,wBAAW,mBAAmB,CAAC,aAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,8BAAiB,mBAAmB,CAAC,aAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,mBAAmB,CAAC,aAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,yBAAY,mBAAmB,CAAC,aAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,QAAC,CAAQ,EAAR;AACb,yBAAY,mBAAmB,CAAC,aAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,QAAC,CAAQ,EAAR;AACb,8BAAiB,mBAAmB,CAAC,aAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,gCAAmB,mBAAmB,CAAC,aAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,2BAAc,mBAAmB,CAAC,aAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,6BAAgB,mBAAmB,CAAC,aAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,8BAAiB,mBAAmB,CAAC,aAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,YAApB,GAAmC;AACnC,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAC,CAAW,aAAX;AACZ,wBAAW,QAAC,CAAQ,EAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AAtId;AAwIE,eAAE;AACF,qBAAQ;AACR,uBAAU;AACV,6BAAgB;AAChB,0BAAa;AACb,8BAAiB;AACjB,iCAAoB;AACpB,gCAAmB;AACnB,6BAAgB;AAChB,0BAAa;AACb,iCAAoB;AACpB,+BAAkB;AAClB,0BAAa;AACb,wBAAW;AACX,iCAAoB;AACpB,yBAAY;AACZ,0BAAa;AACb,wBAAW;AACX,8BAAiB;AACjB,8BAAiB;AACjB,yBAAY;AACZ,yBAAY;AACZ,8BAAiB;AACjB,kCAAqB;AACrB,gCAAmB;AACnB,2BAAc;AACd,6BAAgB;AAChB,8BAAiB;AACjB,iCAAoB;AACpB,wBAAW;AArKb;AAjEkC;AA3MtB;;;AACV,2B/HIc,kD+HJd;AACA,6BrJkaU,4BqJlaV;AACA,mCrJydW,6BqJzdX;AACA,gCrJumBY,8BqJvmBZ;AACA,oCrJ+ZU,4BqJ/ZV;AACA,uCrJ8ZU,4BqJ9ZV;AACA,sCrJ6ZU,4BqJ7ZV;AACA,mCrJ4ZU,4BqJ5ZV;AACA,gCrJkmBY,8BqJlmBZ;AACA,uCrJ0ZU,4BqJ1ZV;AACA,qCrJyZU,4BqJzZV;AACA,gCrJwZU,4BqJxZV;AACA,8BrJ8lBY,8BqJ9lBZ;AACA,uCrJ8cW,6BqJ9cX;AACA,+BrJ6cW,6BqJ7cX;AACA,gCrJ4cW,6BqJ5cX;AACA,8BrJ2cW,6BqJ3cX;AACA,oCrJylBY,8BqJzlBZ;AACA,oCrJwlBY,8BqJxlBZ;AACA,+BrJgZU,4BqJhZV;AACA,+BrJ+YU,4BqJ/YV;AACA,oCrJ4jBW,6BqJ5jBX;AACA,wCrJolBY,8BqJplBZ;AACA,sCrJuhBS,2BqJvhBT;AACA,iCrJshBS,2BqJthBT;AACA,mCrJilBY,8BqJjlBZ;AACA,oCrJglBY,8BqJhlBZ;AACA,uCrJwYU,4BqJxYV;AACA,8BrJwhDS,2BqJxhDT;AACA,qBzH05BW,0CyH15BX;AACqB,kCAAO,UpMoFvB,2BoMpFuB,CAAP;AACM,wCAAQ,WrJ8iC7B,wBqJ9iC6B,CAAR;AACQ,gDAAO,UrJ6iCpC,wBqJ7iCoC,EACpC,QrJiiCO,+BqJjiCP,CAD6B;AAER,wCAAQ,WrJ2iC7B,wBqJ3iC6B,CAAR;AAnCjB;AAkDZ;AACA;AACA;AA/DF,GAiEc,gBAjEd;ACAA,0BAES,ugBAFT;;;AAcY;;;AACR;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAOA;AAvCQ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAgFoB;AAE9B,oBAAS;AAFqB;AA6CQ;AAEtC;AACE,YAAG,sBAAiB,aAAC,EAAS,KAAC,CAA/B,EAAsC,0BAAqB,YAAC,CAAU,WAAV,CAA5D;AACA,YAAG,sBAAiB,aAAC,EAAS,KAAC,CAA/B,EAAsC,0BAAqB,YAAC,CAAU,UAAV,CAA5D;AACA,YAAG,sBAAiB,aAAC,EAAS,KAAC,CAA/B,EAAsC,0BAAqB,YAAC,CAAU,gBAAV,CAA5D;AACA,YAAG,sBAAiB,aAAC,EAAS,KAAC,CAA/B,EAAsC,0BAAqB,YAAC,CAAU,WAAV,CAA5D;AAJF;;AAFsC;AAxCD;AAErC;AACA;AAEA,oBAAS;AACT,qBAAU,MAAK,WAAC,CAAM,+DAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,MAAK,WAAC,CAAM,EAAN;AAEhB,aAAM,CAAI,cAAS,OAAC,EAApB;AAEE,sBAAa,+BAAmI,GAAnG,2BAAc,CAAC,sBAAsB,mBAAc,cAAC,EAAtC,CAAf,GAAiE,MAAD,GAAS,uBAAkB,YAAC,EAApB,GAA6B,aAAD;AAChJ,sBAAa,WAAuE,GAA3D,8BAAD,GAAgC,wBAAmB,YAAC,EAArB,GAA8B,WAAD;AACpF,sBAAa,WAAgD,GAApC,KAAD,GAAO,0BAAqB,YAAC,EAAvB,GAAgC,UAAD;AAC7D,sBAAa,WAAoD,GAAxC,SAAD,GAAW,0BAAqB,YAAC,EAAvB,GAAgC,cAAD;AACjE,sBAAa,WAAyD,GAA7C,eAAD,GAAiB,yBAAoB,YAAC,EAAtB,GAA+B,MAAD;AACtE,sBAAa,WAA2D,GAA/C,gBAAD,GAAkB,0BAAqB,YAAC,EAAvB,GAAgC,MAAD;AACxE,sBAAa,WAAW,GAAC,mBAAc,YAAC,EAAhB;AACxB,YAAG,uBAAkB,YAAC,EAAQ,KAAE,EAAhC,EAAwC,cAAa,WAAuD,GAA3C,eAAD,GAAiB,uBAAkB,YAAC,EAApB,GAA6B,eAA7G;AACA,sBAAa,WAAW,GAAC,QAAD;AAExB,oBAAW,eAAU,iBAAC;AACtB,0BAAY,+BAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,uBAAU,MAAC,CAAW,gBAAW,YAAC,EAAvB;AACX,uBAAU,eAAC,CAAa,wCAAb;AACX,uBAAU,cAAC,CAAY,2CAAZ;AACX,uBAAU,QAAC,CAAM,gBAAW,YAAC,EAAlB;AACX,uBAAU,MAAK,WAAC,CAAM,WAAN;AAChB,uBAAU,oBAAC,CAAkB,sBAAlB;AACX,uBAAU,SAAV,GAAqB;AACrB,uBAAU,iBAAC,CAAe,SAAf;AAEX,sBAAS;;AApC0B;AAnCH;AAElC,oBAAS;AACT,UAAI;AAH8B;AAOA;;AAElC;AACA;AAEA,sBAAuB,OAAP,OAAU,+BAAH,CAAY;AACnC,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,oBAAe,iCAAY,QAAC,eAAS,CAAC;AAE3B,eAAN,MAAS,iCAAH,CAAgB,YAAvB,GAAqC;AAFH,OAAD,CAAT;AAM5B,iBAAW,YAAU,CAAC;AAElB,uBAAS;AACT,uBAAS;AAHS,OAAD;AAba;AA+EF;AAEtB;AAEV,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,uBAAa,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,yBAAe,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,+BAAqB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,4BAAkB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,4BAAkB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,4BAAkB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,0BAAgB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,mCAAyB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,2BAAiB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,4BAAkB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,0BAAgB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,gCAAsB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,gCAAsB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,2BAAiB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,2BAAiB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,oCAA0B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,6BAAmB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,+BAAqB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,gCAAsB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAEtC,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,oBAAS;AACT,sBAAW;AACX,4BAAiB;AACjB,yBAAc;AACd,6BAAkB;AAClB,gCAAqB;AACrB,+BAAoB;AACpB,4BAAiB;AACjB,yBAAc;AACd,gCAAqB;AACrB,8BAAmB;AACnB,yBAAc;AACd,uBAAY;AACZ,gCAAqB;AACrB,wBAAa;AACb,yBAAc;AACd,uBAAY;AACZ,6BAAkB;AAClB,6BAAkB;AAClB,wBAAa;AACb,wBAAa;AACb,6BAAkB;AAClB,iCAAsB;AACtB,+BAAoB;AACpB,0BAAe;AACf,4BAAiB;AACjB,6BAAkB;AAClB,gCAAqB;AACrB;AACE,qBAAQ,WAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,0BAAa,0CAAb;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,yCAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,WAAT,GAAuB;AACvB,uBAAQ,CAAC,eAAW,KAAM,eAAgB,qBAAlC;AACR,sBAAS,iBAAC,CAAiB,gBAAjB;AACV,sBAAS,cAAC,CAAc,aAAG,oBAAjB;AACV,sBAAS,aAAT,GAAyB;AACzB,sBAAS,UAAT,GAAsB;AACtB,sBAAS,QAAC,CAAQ,EAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,wBAAW,mBAAmB,CAAC,cAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,wBAAW,UAAX,GAAwB;AACxB,wBAAW,QAAC,CAAQ,EAAR;AACZ,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,2BAAc,mBAAmB,CAAC,cAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,2BAAc,mBAAmB,CAAC,cAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,GAAR;AACpB,2BAAc,mBAAmB,CAAC,cAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,QAAC,CAAQ,GAAR;AACf,yBAAY,mBAAmB,CAAC,cAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,0BAAa,mBAAmB,CAAC,cAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,2BAAc,mBAAmB,CAAC,cAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,yBAAY,mBAAmB,CAAC,cAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,0BAAa,mBAAmB,CAAC,cAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,QAAC,CAAQ,EAAR;AACd,0BAAa,mBAAmB,CAAC,cAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,QAAC,CAAQ,EAAR;AACd,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,4BAAe,mBAAmB,CAAC,cAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,YAArB,GAAoC;AAjKtC;AAmKE,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,sBAAS;AACT,wBAAW;AACX,8BAAiB;AACjB,2BAAc;AACd,+BAAkB;AAClB,kCAAqB;AACrB,iCAAoB;AACpB,8BAAiB;AACjB,2BAAc;AACd,kCAAqB;AACrB,gCAAmB;AACnB,2BAAc;AACd,yBAAY;AACZ,kCAAqB;AACrB,0BAAa;AACb,2BAAc;AACd,yBAAY;AACZ,+BAAkB;AAClB,+BAAkB;AAClB,0BAAa;AACb,0BAAa;AACb,+BAAkB;AAClB,mCAAsB;AACtB,iCAAoB;AACpB,4BAAe;AACf,8BAAiB;AACjB,+BAAkB;AAClB,kCAAqB;AAlMvB;AArEgC;AAxItB;;;AACR,4BhICc,kDgIDd;AACA,8BtJ+ZU,4BsJ/ZV;AACA,oCtJsdW,6BsJtdX;AACA,iCtJomBY,8BsJpmBZ;AACA,qCtJ4ZU,4BsJ5ZV;AACA,wCtJ2ZU,4BsJ3ZV;AACA,uCtJ0ZU,4BsJ1ZV;AACA,oCtJyZU,4BsJzZV;AACA,iCtJ+lBY,8BsJ/lBZ;AACA,wCtJuZU,4BsJvZV;AACA,sCtJsZU,4BsJtZV;AACA,iCtJqZU,4BsJrZV;AACA,+BtJ2lBY,8BsJ3lBZ;AACA,wCtJ2cW,6BsJ3cX;AACA,gCtJ0cW,6BsJ1cX;AACA,iCtJycW,6BsJzcX;AACA,+BtJwcW,6BsJxcX;AACA,qCtJslBY,8BsJtlBZ;AACA,qCtJqlBY,8BsJrlBZ;AACA,gCtJ6YU,4BsJ7YV;AACA,gCtJ4YU,4BsJ5YV;AACA,qCtJyjBW,6BsJzjBX;AACA,yCtJilBY,8BsJjlBZ;AACA,uCtJohBS,2BsJphBT;AACA,kCtJmhBS,2BsJnhBT;AACA,oCtJ8kBY,8BsJ9kBZ;AACA,qCtJ6kBY,8BsJ7kBZ;AACA,wCtJqYU,4BsJrYV;AACA,6BvKw5BY,8CuKx5BZ;AACA,6BvKu5BY,8CuKv5BZ;AACA,6BvKs5BY,8CuKt5BZ;AACA,6BxKuiBK,uCwKviBL;AACqB,kCAAO,UrM+EvB,2BqM/EuB,CAAP;AACQ,0CAAQ,WtJyiC/B,wBsJziC+B,CAAR;AACD,yCAAQ,WtJwiC9B,wBsJxiC8B,CAAR;AACH,sCAAO,UrM4E3B,2BqM5E2B,CAAP;AApCjB;AA4CV;AA1DF,GA4Dc,mCA5Dd;ACAA,kCAES,mcAFT;;;AAciB;;;AACb;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AASA;AACA;AACA;AA1Ca;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AA4KoB;AAEnC;AAEA,qBAAU,MAAK,WAAC,CAAM,yEAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,oBAAS,iBAAC,CAAe,SAAf;AACV,qBAAU,iBAAC,CAAe,SAAf;AACX,oBAAS,OAAM;AACf,6BAAU,CAAC,oBAAK;;;;WAAM;;;;WAAO;;;;UAAnB;AACV,qBAAS;AACT,oBAAS,OAAM,IAAI,CAAC,qBAAQ,CAAC,eAAK,GAAC,CAAP,CAAT;AACnB,oBAAS,OAAM,IAAI,CAAC,qBAAQ,CAAC,eAAK,GAAC,CAAP,CAAT;AACnB,oBAAS,OAAM,IAAI,CAAC,qBAAQ,CAAC,eAAK,GAAC,CAAP,CAAT;AACnB,oBAAS,OAAM,IAAI,CAAC,qBAAQ,CAAC,eAAK,GAAC,CAAP,CAAT;AACnB,oBAAS,OAAM,IAAI,CAAC,qBAAQ,CAAC,eAAK,GAAC,CAAP,CAAT;AACnB,oBAAS,OAAM,IAAI,CAAC,qBAAQ,CAAC,eAAD,CAAT;AACnB,oBAAS,OAAM,IAAI,CAAC,qBAAQ,CAAC,eAAK,GAAC,CAAP,CAAT;AACnB,oBAAS,OAAM,IAAI,CAAC,qBAAQ,CAAC,eAAK,GAAC,CAAP,CAAT;AACnB,oBAAS,OAAM,IAAI,CAAC,qBAAQ,CAAC,eAAK,GAAC,CAAP,CAAT;AACnB,oBAAS,OAAM,IAAI,CAAC,qBAAQ,CAAC,eAAK,GAAC,CAAP,CAAT;AACnB,oBAAS,OAAM,IAAI,CAAC,qBAAQ,CAAC,eAAK,GAAC,CAAP,CAAT;AACnB,oBAAS,aAAC,CAAW,CAAX;AACV,qBAAU,aAAC,CAAW,CAAX;AACX,kBAAW,eAAU,iBAAC;AACtB,aAAE,iBAAC,CAAe,SAAf;AACH;AA/BmC;AAkCO;AAE1C;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEA,aAAE,WAAC,CAAS,IAAT;AACH,aAAE,YAAC,CAAU,EAAV;AACH,aAAE,YAAC,CAAU,CAAV;AACH,UAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,gDAAP;AACJ,OAAJ,IAAG;AAEH,uBAAgB;AAChB,aAAM,cAAc,GAAC,cAArB;AAGE,oBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,iBAAS,UAAT,GAAqB;AACrB,2BAAa,+BAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AAEtB,wBAAW,eAAC,CAAa,wCAAb;AACZ,wBAAW,cAAC,CAAY,wCAAZ;AACZ,wBAAW,OAAX,GAAiB,gBAAK,CAAC,cAAD;AACtB,wBAAW,MAAC,CAAW,qBAAQ,CAAC,gBAAK,CAAC,cAAD,CAAN,CAAnB;AACZ,YAAG,0BAAY,CAAC,cAAD,CAAgB,GAAC,CAAhC;AAEE,0BAAW,oBAAC,CAAkB,aAAlB;AACZ,0BAAW,MAAK,WAAC,CAAO,KAAqD,GAA/C,2BAAc,CAAC,iBAAiB,cAAlB,CAAf,GAAiD,MAA7D;;AAIjB,0BAAW,oBAAC,CAAkB,WAAlB;AACZ,0BAAW,MAAK,WAAC,CAAO,KAAqD,GAA/C,2BAAc,CAAC,iBAAiB,cAAlB,CAAf,GAAiD,MAA7D;;AAGnB,wBAAW,SAAX,GAAsB;AACtB,wBAAW,iBAAC,CAAe,SAAf;AAGZ,yBAAgB,cAAc,GAAC,CAAD;AAC1B,SAAJ,IAAG;;AAGL,aAAE,YAAC,CAAU,CAAV;AACH,mBAAY,mBAAK,CAAC,eAAD,CAAY,GAAC,CAAD;AAC7B,oBAAS;AACT,aAAM,CAAI,cAAS,OAAC,EAApB;AAEE,oCAAc,CAAC,oBAAe,cAAC,GAAW;;;;aAAM;;;;aAAO;;;;aAAK;;;;aAAQ;;;;aAAQ;;;;aAAS;;;;YAAvE;AACd,gBAAO,cAAI,GAAC,UAAD;AACX,YAAU,CAAN,gBAAM,KAAC,YAAD,CAAU,IAAU,CAAL,KAAK,GAAC,CAAD,CAA9B;AAGE,cAAG,uBAAkB,aAAC,EAAS,KAAC,CAAhC;AAEE,2BAAc;AACd,gBAAG,gBAAK,CAAC,oBAAe,cAAC,EAAjB,CAA4B,KAAC,gBAAK,CAAC,kBAAa,cAAC,EAAf,CAA1C;AAEE,6BAAc,YAAoF,GAAvE,2BAAc,CAAC,uBAAuB,oBAAe,cAAC,EAAxC,CAAf,GAAmE,KAAD,GAAO,2BAAc,CAAC,QAAQ,yBAAoB,cAAC,EAA9B,CAAf;;AAKlG,6BAAc,YAAoF,GAAvE,2BAAc,CAAC,uBAAuB,oBAAe,cAAC,EAAxC,CAAf,GAAmE,KAAD,GAAO,2BAAc,CAAC,uBAAuB,kBAAa,cAAC,EAAtC,CAAf;;AAEpG,2BAAc,YAAY,GAAC,QAAD;AAC1B,2BAAc,YAAY,GAAC,yBAAD;AAC1B,2BAAc,YAA6C,GAAhC,MAAD,GAAQ,qBAAgB,YAAC,EAAlB,GAA2B,OAAD;AAC3D,gBAAG,yBAAoB,YAAC,EAAQ,KAAE,EAAlC;AAEE,6BAAc,YAAY,GAAC,yBAAoB,YAAC,EAAtB;aAF5B;AAIA,gBAAoC,CAAhC,4BAAuB,YAAC,EAAQ,KAAE,EAAF,CAAM,IAAsC,CAAjC,4BAAuB,aAAC,EAAS,GAAC,CAAD,CAAhF;AAEE,2BAAY,qBAAQ,CAAC,oBAAe,aAAC,GAAU,CAA3B;AACpB,2BAAc,eAAI,CAAC,WAAY,EAAG,CAAhB,CAA4C,GAAvB,eAAI,CAAC,WAAY,EAAG,CAAhB,CAAN,GAA2B,eAAI,CAAC,WAAY,EAAG,CAAhB,CAAN;AAC9D,6BAAc,YAAY,GAAC,QAAD;AAC1B,6BAAc,YAA6E,GAAhE,qDAAD,GAAuD,UAAD,GAAY,KAAD;AAC3F,6BAAc,YAAkF,GAArE,4BAAuB,YAAC,EAAzB,GAAkC,KAAD,GAAO,sBAAiB,YAAC,EAAnB,GAA4B,GAAD,GAAK,uBAAkB,YAAC,EAApB;aANlG;AAWA,wBAAW,OAAE,eAAa,CAAC,EAAE,KAAH;AAC1B,gCAAc,+BAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,6BAAY,MAAC,CAAW,iBAAY,YAAC,EAAxB;AACb,6BAAY,eAAC,CAAa,wCAAb;AACb,6BAAY,SAAC,CAAO,GAAP;AACb,6BAAY,oBAAC,CAAkB,IAAlB;AACb,6BAAY,MAAK,WAAC,CAAM,YAAN;AAClB,6BAAY,oBAAC,CAAkB,mBAAlB;AACb,6BAAY,SAAZ,GAAuB;AACvB,6BAAY,iBAAC,CAAe,SAAf;AACb,gBAAG,qBAAgB,YAAC,EAAQ,KAAE,EAA9B;AAEE,yCAAqB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,sCAAmB,oBAAC,CAAkB,sCAAlB;AACpB,sCAAmB,eAAC,CAAa,wCAAb;AACpB,sCAAmB,SAAC,CAAO,GAAP;AACpB,sCAAmB,OAAnB,GAAyB;AACzB,sCAAmB,WAAC,CAAS,qBAAgB,YAAC,EAA1B;AACpB,sCAAmB,SAAnB,GAA8B;AAC9B,sCAAmB,iBAAC,CAAe,iBAAY,iBAAC,EAA5B;aATtB;WAxCF;AAqDA,cAAG,uBAAkB,aAAC,EAAS,KAAC,CAAhC;AAEE,2BAAc,sBAAsB,GAAE,qBAAgB,YAAC,EAAnB;AACpC,gBAAG,yBAAoB,YAAC,EAAQ,KAAE,EAAlC;AAEE,6BAAc,YAAmB,GAAN,MAAD,GAAQ,yBAAoB,YAAC,EAAtB;aAFnC;AAKA,2BAAc,YAAsD,GAAzC,MAAD,GAAQ,0BAAqB,YAAC,EAAvB,GAAgC,GAAD,GAAK,sBAAiB,YAAC,EAAnB;AACpE,wBAAW,OAAE,eAAa,CAAC,EAAE,KAAH;AAC1B,gCAAc,+BAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,6BAAY,MAAC,CAAW,iBAAY,YAAC,EAAxB;AACb,6BAAY,eAAC,CAAa,wCAAb;AACb,6BAAY,SAAC,CAAO,GAAP;AACb,6BAAY,oBAAC,CAAkB,IAAlB;AACb,6BAAY,MAAK,WAAC,CAAM,YAAN;AAClB,6BAAY,oBAAC,CAAkB,sBAAlB;AACb,6BAAY,SAAZ,GAAuB;AACvB,6BAAY,iBAAC,CAAe,SAAf;WAlBf;AAqBA,cAAG,uBAAkB,aAAC,EAAS,KAAC,CAAhC;AAEE,2BAAc,mBAAmB,GAAE,qBAAgB,YAAC,EAAnB;AACjC,wBAAW,OAAE,eAAa,CAAC,EAAE,KAAH;AAC1B,gCAAc,+BAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,6BAAY,MAAC,CAAW,iBAAY,YAAC,EAAxB;AACb,6BAAY,eAAC,CAAa,wCAAb;AACb,6BAAY,SAAC,CAAO,GAAP;AACb,6BAAY,oBAAC,CAAkB,IAAlB;AACb,6BAAY,MAAK,WAAC,CAAM,YAAN;AAClB,6BAAY,oBAAC,CAAkB,qBAAlB;AACb,6BAAY,SAAZ,GAAuB;AACvB,6BAAY,iBAAC,CAAe,SAAf;WAZf;AAeA,cAAG,uBAAkB,aAAC,EAAS,KAAC,CAAhC;AAEE,2BAAc;AACd,gBAAG,gBAAK,CAAC,oBAAe,cAAC,EAAjB,CAA4B,KAAC,gBAAK,CAAC,kBAAa,cAAC,EAAf,CAA1C;AAEA,6BAAc,YAAoF,GAAvE,2BAAc,CAAC,uBAAuB,oBAAe,cAAC,EAAxC,CAAf,GAAmE,KAAD,GAAO,2BAAc,CAAC,QAAQ,yBAAoB,cAAC,EAA9B,CAAf;AAClG,6BAAc,YAA8C,GAAjC,MAAD,GAAS,qBAAgB,YAAC,EAAnB,GAA4B,MAAD;;AAI5D,6BAAc,2BAAc,CAAC,uBAAuB,oBAAe,cAAC,EAAxC,CAAyD,GAAL,KAAD,GAAO,2BAAc,CAAC,uBAAuB,kBAAa,cAAC,EAAtC,CAAf;AACrF,6BAAc,YAA8C,GAAjC,MAAD,GAAS,qBAAgB,YAAC,EAAnB,GAA4B,MAAD;;AAE5D,gBAAG,yBAAoB,YAAC,EAAQ,KAAE,EAAlC;AAEE,6BAAc,YAA0C,GAA7B,yBAAoB,YAAC,EAAtB,GAA+B,MAAD;aAF1D;AAIA,2BAAc,YAAsD,GAAzC,MAAD,GAAQ,0BAAqB,YAAC,EAAvB,GAAgC,GAAD,GAAK,sBAAiB,YAAC,EAAnB;AACpE,2BAAc,YAAmB,GAAN,MAAD,GAAQ,wBAAmB,YAAC,EAArB;AACjC,wBAAW,OAAE,eAAa,CAAC,EAAE,KAAH;AAC1B,gCAAc,+BAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,6BAAY,MAAC,CAAW,iBAAY,YAAC,EAAxB;AACb,6BAAY,eAAC,CAAa,wCAAb;AACb,6BAAY,SAAC,CAAO,GAAP;AACb,6BAAY,oBAAC,CAAkB,IAAlB;AACb,6BAAY,MAAK,WAAC,CAAM,YAAN;AAClB,6BAAY,oBAAC,CAAkB,sBAAlB;AACb,6BAAY,SAAZ,GAAuB;AACvB,6BAAY,iBAAC,CAAe,SAAf;WA5Bf;AA+BA,cAAG,uBAAkB,aAAC,EAAS,KAAC,CAAhC;AAEE,wBAAW,OAAE,eAAa,CAAC,EAAE,KAAH;AAC1B,qBAAS,UAAT,GAAqB;AACrB,+BAAa,+BAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,4BAAW,eAAC,CAAa,wCAAb;AACZ,4BAAW,cAAC,CAAY,wCAAZ;AACZ,4BAAW,OAAX,GAAiB,gBAAK,CAAC,oBAAe,cAAC,EAAjB;AACtB,4BAAW,MAAC,CAAW,qBAAQ,CAAC,gBAAK,CAAC,oBAAe,cAAC,EAAjB,CAAN,CAAnB;AACZ,4BAAW,oBAAC,CAAkB,aAAlB;AACZ,4BAAW,MAAK,WAAC,CAAM,KAA+F,GAAzF,2BAAc,CAAC,iBAAiB,oBAAe,cAAC,EAAlC,CAAf,GAA6D,GAAD,GAAK,qBAAgB,YAAC,EAAlB,GAA2B,MAAtG;AACjB,4BAAW,SAAX,GAAsB;AACtB,4BAAW,iBAAC,CAAe,SAAf;WAZd;SA3HF;AA2IE,sBAAS;;AAnM6B;AAnHF;AAExC;AAFwC;AALD;AAEvC;AAFuC;AANA;AAEvC,oBAAS;AACT,UAAI;AAHmC;AAiEH;AAEpC,UAAG,eAAU,aAAC,EAAS,KAAC,CAAxB;AAEE,0BAAY;AACZ,uBAAS,qBAAO,CAAC,eAAD;AAChB,yBAAW,2BAAa,CAAC,eAAD;;AAIxB,uBAAS,eAAU,aAAC;AACpB,0BAAY,uBAAU,CAAC,qBAAQ,CAAC,cAAS,QAAC,EAAX,EAAiB,aAAQ,CAAlC;AACtB,yBAAW,2BAAa,CAAC,eAAD;;AAE1B,oBAAS;AACT,UAAG,eAAK,IAAI,eAAe,KAAC,IAA5B;AAEE,sBAAS,aAAT,GAAuB,qBAA+K,GAAzJ,2BAAc,CAAC,aAAa,eAAU,GAAC,CAAzB,CAAf,GAA2C,mBAAD,GAAqB,2BAAc,CAAC,aAAa,cAAS,GAAC,CAAxB,CAAf,GAA0C,2BAAD,GAA6B,gCAAD,GAAwB,oBAAD;;AAItM,sBAAS,aAAT,GAAuB,qBAA4H,GAAtG,2BAAc,CAAC,aAAa,eAAU,GAAC,CAAzB,CAAf,GAA2C,mBAAD,GAAqB,2BAAc,CAAC,aAAa,cAAS,GAAC,CAAxB,CAAf,GAA0C,oBAAD;;AAGrJ,oBAAS;AAxB2B;AA1BI;;AAExC;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,sCAAH;AACd,aAAK,UAAL,GAAiB;AACjB,oCAAc,CAAC,mBAAI,GAAC,mBAAD,CAAM;;;;aAAM;;;;aAAO;;;;aAAK;;;;aAAQ;;;;aAAQ;;;;aAAS;;;;YAAtD;AACd,+BAAU,CAAS,OAAP,OAAU,+BAAH,CAAY,QAAK;;;;aAAM;;;;aAAO;;;;YAAvC;AACV,aAAK,iBAAL,GAAwB,4BAAc,CAAC,gBAAO,iBAAO,eAAK,kBAAQ,EAAE,EAAE,CAAhC;AACtC,aAAK,eAAL,GAAsB,4BAAc,CAAC,gBAAO,iBAAO,eAAK,iBAAO,GAAC,CAAD,CAAG,EAAE,EAAE,CAAlC;AACpC,gBAAE,WAAC,CAAS,KAAT;AAVgB;AAaG;AAEtB;AAFsB;AAM1B,aAAM,sCAAgB,QAAC,eAAS,aAAT;AACvB,UAAI,YAAU;AAvB0B;AAvBC;;AAEzC;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,sCAAH;AACd,aAAK,UAAL,GAAyB,OAAP,OAAU,+BAAH,CAAY,MAAC;AACtC,gBAAE,WAAC,CAAS,KAAT;AANgB;AASG;AAEtB;AAFsB;AAM1B,aAAM,sCAAgB,QAAC,eAAS,aAAT;AACvB,UAAI,YAAU;AAnB2B;AApCO;;AAEhD;AACA;AAEA,wBAAyB,OAAP,OAAU,8BAAH,CAAW;AACpC,sBAAiB,qCAAc,QAAC,eAAS,CAAC;AAE/B,eAAN,MAAS,qCAAH,CAAkB,cAAzB,GAAyC;AACzC,gBAAE,WAAC,CAAS,KAAT;AAHmC,OAAD,CAAT;AAOhC,mBAAa,YAAU,CAAC;AAErB;AAFqB,OAAD;AAbyB;AAyVX;AAE3B;AAEV,wBAAc,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,gCAAS,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,uBAAa,gCAAS,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,2BAAiB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,uBAAa,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,6BAAmB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,2BAAiB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,4BAAkB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,4BAAkB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,kCAAwB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,gCAAsB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,kCAAwB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,6BAAmB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAEjC,qBAAU;AACV,aAAE;AACF,qBAAU;AACV,oBAAS;AACT,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,wBAAa;AACb,oBAAS;AACT,uBAAY;AACZ,0BAAe;AACf,wBAAa;AACb,2BAAgB;AAChB,yBAAc;AACd,yBAAc;AACd,kCAAuB;AACvB,6BAAkB;AAClB,+BAAoB;AACpB,iCAAsB;AACtB,6BAAkB;AAClB,+BAAoB;AACpB,6BAAkB;AAClB,4BAAiB;AACjB,0BAAe;AACf,2BAAgB;AAChB,+BAAoB;AACpB,gCAAqB;AACrB,4BAAiB;AACjB,8BAAmB;AACnB,2BAAgB;AAChB;AACE,qBAAQ,gBAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,oBAAC,CAAoB,QAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,QAAC,CAAQ,kDAAR;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,QAAC,CAAQ,CAAR;AACH,eAAE,OAAC,CAAO,GAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,GAAV;AACH,eAAE,oBAAC,CAAoB,yDAApB;AACH,eAAE,eAAC,CAAe,wCAAf;AACH,eAAE,cAAC,CAAc,2CAAd;AACH,eAAE,eAAC,CAAe,0CAAf;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,gBAAC,CAAc,CAAd;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,eAAC,CAAe,yCAAf;AACH,eAAE,0BAAC,CAA0B,YAA1B;AACH,eAAE,mBAAC,CAAmB,gDAAnB;AACH,eAAE,yBAAC,CAAyB,yDAAzB;AACH,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,aAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,QAAC,CAAQ,aAAR;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,WAAY,kBAA/B;AACR,uBAAU,aAAC,CAAa,CAAC,CAAd;AACX,uBAAU,OAAM;AAChB;AACE,yBAAU,OAAM;AAChB,yBAAU,OAAM,IAAI,CAAC,UAAD;AACpB,yBAAU,OAAM,IAAI,CAAC,QAAD;AACpB,yBAAU,OAAM,IAAI,CAAC,SAAD;AACpB,yBAAU,OAAM,IAAI,CAAC,OAAD;AACpB,yBAAU,OAAM,IAAI,CAAC,OAAD;AACpB,yBAAU,OAAM,IAAI,CAAC,KAAD;AACpB,yBAAU,OAAM,IAAI,CAAC,MAAD;AACpB,yBAAU,OAAM,IAAI,CAAC,MAAD;AACpB,yBAAU,OAAM,IAAI,CAAC,QAAD;AACpB,yBAAU,OAAM,IAAI,CAAC,WAAD;AACpB,yBAAU,OAAM,IAAI,CAAC,SAAD;AACpB,yBAAU,OAAM,IAAI,CAAC,UAAD;AACpB,yBAAU,OAAM,IAAI,CAAC,UAAD;AAdtB;AAgBE,yBAAU,OAAM;AAhBlB;AAkBA,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,QAAC,CAAQ,CAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,sBAAS,SAAC,CAAS,GAAT;AACV,sBAAS,UAAC,CAAU,EAAV;AACV,sBAAS,oBAAC,CAAoB,aAApB;AACV,sBAAS,eAAC,CAAe,yCAAf;AACV,sBAAS,mBAAC,CAAmB,gDAAnB;AACV,sBAAS,eAAC,CAAe,wCAAf;AACV,sBAAS,iBAAC,CAAiB,sBAAjB;AACV,sBAAS,QAAC,CAAQ,MAAR;AACV,sBAAS,gBAAC,CAAgB,sBAAhB;AACV,uBAAQ,CAAC,eAAW,KAAM,WAAY,iBAA9B;AACR,sBAAS,aAAC,CAAa,CAAb;AACV,sBAAS,OAAM;AACf;AACE,wBAAS,OAAM;AACf,wBAAS,OAAM,IAAI,CAAC,MAAD;AACnB,wBAAS,OAAM,IAAI,CAAC,MAAD;AACnB,wBAAS,OAAM,IAAI,CAAC,MAAD;AACnB,wBAAS,OAAM,IAAI,CAAC,MAAD;AACnB,wBAAS,OAAM,IAAI,CAAC,MAAD;AACnB,wBAAS,OAAM,IAAI,CAAC,MAAD;AACnB,wBAAS,OAAM,IAAI,CAAC,MAAD;AACnB,wBAAS,OAAM,IAAI,CAAC,MAAD;AATrB;AAWE,wBAAS,OAAM;AAXjB;AAaA,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,yCAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,YAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAC,CAAW,cAAX;AACd,0BAAa,QAAC,CAAQ,EAAR;AACd,0BAAa,OAAC,CAAO,EAAP;AACd,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,WAAT,GAAuB;AACvB,sBAAS,iBAAC,CAAiB,YAAjB;AACV,sBAAS,cAAC,CAAc,aAAG,oBAAjB;AACV,sBAAS,aAAT,GAAyB;AACzB,sBAAS,QAAC,CAAQ,GAAR;AACV,sBAAS,OAAC,CAAO,EAAP;AACV,yBAAY,mBAAmB,CAAC,cAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,UAAZ,GAAyB;AACzB,yBAAY,QAAC,CAAQ,EAAR;AACb,4BAAe,mBAAmB,CAAC,cAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,0BAAa,mBAAmB,CAAC,cAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,GAAR;AACjB,2BAAc,mBAAmB,CAAC,cAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,mBAAmB,CAAC,cAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,4BAAe,mBAAmB,CAAC,cAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,GAAR;AACrB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AAhPnB;AAkPE,uBAAU;AACV,eAAE;AACF,uBAAU;AACV,sBAAS;AACT,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,0BAAa;AACb,sBAAS;AACT,yBAAY;AACZ,4BAAe;AACf,0BAAa;AACb,6BAAgB;AAChB,2BAAc;AACd,2BAAc;AACd,oCAAuB;AACvB,+BAAkB;AAClB,iCAAoB;AACpB,mCAAsB;AACtB,+BAAkB;AAClB,iCAAoB;AACpB,+BAAkB;AAClB,8BAAiB;AACjB,4BAAe;AACf,6BAAgB;AAChB,iCAAoB;AACpB,kCAAqB;AACrB,8BAAiB;AACjB,gCAAmB;AACnB,6BAAgB;AAhRlB;AAnEqC;AArZtB;;;AACb,gCvJijDS,2BuJjjDT;AACA,4BjIAc,kDiIAd;AACA,+BvJ8ZU,4BuJ9ZV;AACA,kCvJomBY,8BuJpmBZ;AACA,gCvJmmBY,8BuJnmBZ;AACA,mCvJ2ZU,4BuJ3ZV;AACA,iCvJkdW,6BuJldX;AACA,iCvJukBW,6BuJvkBX;AACA,0CvJgdW,6BuJhdX;AACA,qCvJ+cW,6BuJ/cX;AACA,uCvJ6lBY,8BuJ7lBZ;AACA,yCvJ4lBY,8BuJ5lBZ;AACA,qCvJ2lBY,8BuJ3lBZ;AACA,uCvJ0lBY,8BuJ1lBZ;AACA,qCvJkZU,4BuJlZV;AACA,oCvJiZU,4BuJjZV;AACA,kCvJwcW,6BuJxcX;AACA,qB3Hm6BW,0C2Hn6BX;AACA,6BzKmhCO,yCyKnhCP;AACA,4BzKkhCO,yCyKlhCP;AACA,6BxKg6BY,8CwKh6BZ;AACA,6BxK+5BY,8CwK/5BZ;AACA,6BzKgjBK,uCyKhjBL;AACA,6BxK65BY,8CwK75BZ;AACA,6BzK4EI,sCyK5EJ;AACA,mCvJuYU,4BuJvYV;AACA,uCvJsYU,4BuJtYV;AACA,wCvJqYU,4BuJrYV;AACA,oCvJoYU,4BuJpYV;AACA,sCvJmYU,4BuJnYV;AACA,mCvJkYU,4BuJlYV;AACqB,kCAAO,UtMgFvB,2BsMhFuB,CAAP;AACO,yCAAQ,WvJ0iC9B,wBuJ1iC8B,CAAR;AACF,uCAAO,UtM8E5B,2BsM9E4B,CAAP;AACD,sCAAO,UtM6E3B,2BsM7E2B,CAAP;AACA,sCAAO,UtM4E3B,2BsM5E2B,CAAP;AApCZ;AAkDf;AACA;AACA;AACA;AAnEF,GAqEc,oHArEd;ACAA,gCAES,yUAFT;;;AAYe;;;AACX;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAaA;AAnLW;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAwXoB;AAEjC,qBAAU,UAAV,GAAqB;AACrB,qBAAU;AAHuB;AAlEgB;;AAEjD;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,sCAAH;AACd,wBAAU,MAAK,WAAC,CAAM,EAAN;AALG;AAQG;AAEtB,YAAG,IAAI,cAAc,KAAE,EAAvB;AAEE,4BAAY,CAAC,IAAI,eAAe,gBAApB;;AAIZ,0BAAU;AACV,0BAAU;;AATU;AAc1B,aAAM,sCAAgB,QAAC,eAAS,aAAT;AACvB,UAAI,YAAU;AA1BmC;AA9BP;;AAE1C;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,sCAAH;AACd,wBAAU,MAAK,WAAC,CAAM,EAAN;AALG;AAQG;AAEtB,YAAG,IAAI,cAAc,KAAE,EAAvB;AAEE,4BAAY,CAAC,IAAI,eAAe,SAApB;;AAIZ,0BAAU;AACV,0BAAU;;AATU;AAc1B,aAAM,sCAAgB,QAAC,eAAS,aAAT;AACvB,UAAI,YAAU;AA1B4B;AAsGD;AAEzC;AACA;AACA;AAEA,qBAAU,MAAK,WAAC,CAAM,wEAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,iCAAsB,iBAAC,CAAe,SAAf;AACvB,0BAAe,iBAAC,CAAe,SAAf;AAChB,yBAAc,iBAAC,CAAe,SAAf;AACf,sBAAW,iBAAC,CAAe,SAAf;AACZ,qBAAU;AACV,UAAG,eAAU,eAAC,EAAW,KAAC,CAA1B,EAAiC,gBAAW,QAAC,CAAM,iBAAN,CAA7C;AACA,UAAG,eAAU,eAAC,EAAW,GAAC,CAA1B,EAAiC,gBAAW,QAAC,CAAM,aAAa,GAAC,qBAAQ,CAAC,eAAU,eAAC,EAAZ,CAA5B,CAA7C;AACA,UAAG,eAAU,eAAC,EAAW,GAAC,EAA1B,EAAkC,gBAAW,QAAC,CAAM,oDAAN,CAA9C;AACA,UAAG,eAAU,eAAC,EAAW,GAAC,GAA1B,EAAmC,gBAAW,QAAC,CAAM,aAA8C,GAAhC,qBAAQ,CAAC,eAAU,eAAC,EAAZ,CAAT,GAAkC,sBAArD,CAA/C;AACA,aAAM,CAAI,eAAU,OAAC,EAArB;AAGE,sBAAa,+BAA2K,GAA3I,6BAAwB,YAAC,EAA1B,GAAmC,KAAD,GAAO,2BAAc,CAAC,aAAa,oBAAe,cAAC,EAA9B,CAAf,GAAyD,UAAD,GAAY,4BAAuB,YAAC,EAAzB,GAAkC,YAAD;AACxL,sBAAa,WAAsC,GAA1B,0BAAD,GAA4B,uCAAkC,YAAC,EAApC;AACnD,sBAAa,WAA6C,GAAjC,KAAD,GAAO,uBAAkB,YAAC,EAApB,GAA6B,MAAD;AAC1D,sBAAa,WAAwD,GAA5C,KAAD,GAAO,kCAA6B,YAAC,EAA/B,GAAwC,UAAD;AACrE,sBAAa,WAAkD,GAAtC,KAAD,GAAO,4BAAuB,YAAC,EAAzB,GAAkC,UAAD;AAC/D,YAAG,eAAK,IAAI,eAAe,KAAC,IAA5B,EAAsC,cAAa,WAAoE,GAAxD,wBAAW,CAAC,eAAe,yBAAoB,WAAC,EAArC,CAAZ,GAA0D,MAAxH;AACA,sBAAa,WAAW,GAAC,QAAD;AACxB,YAAG,sBAAiB,YAAC,EAAQ,KAAE,EAA/B;AAEE,cAAG,aAAG,aAAa,OAAO,CAAC,iBAAiB,sBAAiB,YAAC,GAAS,EAA7C,CAAgD,KAAC,IAA3E;AAEE,yBAAY,qBAAQ,CAAC,aAAG,kBAAkB,aAAC,GAAU,CAAjC;AACpB,yBAAc,eAAI,CAAC,WAAY,EAAG,CAAhB,CAA4C,GAAvB,eAAI,CAAC,WAAY,EAAG,CAAhB,CAAN,GAA2B,eAAI,CAAC,WAAY,EAAG,CAAhB,CAAN;AAC9D,0BAAa,WAA4E,GAAhE,qDAAD,GAAuD,UAAD,GAAY,KAAD;AACzF,0BAAa,WAAiI,GAArH,aAAG,2BAA2B,YAAC,EAAhC,GAAyC,KAAD,GAAQ,aAAG,oBAAoB,YAAC,EAA1B,GAAmC,GAAD,GAAK,aAAG,qBAAqB,YAAC,EAA1B,GAAmC,MAAD;;AAI9I,0BAAa,WAAW,GAAC,4BAAD;AACxB,0BAAa,WAAsC,GAA1B,sBAAiB,YAAC,EAAnB,GAA4B,GAAD;AACnD,0BAAa,WAAW,GAAC,MAAD;;AAE1B,wBAAa,WAAW,GAAC,QAAD;SAf1B;AAmBA,oBAAW,eAAU,iBAAC;AACtB,0BAAY,+BAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,uBAAU,MAAC,CAAW,6BAAwB,YAAC,EAApC;AACX,uBAAU,eAAC,CAAa,wCAAb;AACX,uBAAU,SAAC,CAAO,GAAP;AACX,uBAAU,MAAK,WAAC,CAAM,WAAN;AAChB,uBAAU,oBAAC,CAAkB,sBAAlB;AACX,uBAAU,SAAV,GAAqB;AACrB,uBAAU,iBAAC,CAAe,SAAf;AAEX,uBAAU;;AAGZ,yBAAc;AA/D2B;AAjJH;AAEtC,UAAG,gBAAG,CAAC,gBAAgB,gBAAW,OAAM,CAAlC,CAAoC,GAAC,CAA3C;AAEE,uBAAU;AACV,uBAAU,UAAV,GAAqB;AACrB,uBAAU;OAJZ;AAFsC;AAsIJ;AAEpC,iBAAQ,uCAAR;AAFoC;AA/BG;AAEvC;AACE,uBAAU;AADZ;;AAKE,UAAI;AAPiC;AAUK;AAE1C;AAEA,qBAAc,mBAAc,QAAC;AAC7B,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,UAAU,YAAD,OAAc,GAAC,CAAxB;AAEE,uBAAU;AACV,uBAAU,aAAV,GAAwB,6EAAyQ,GAA3L,sBAAS,CAAC,anM1F9D,GmM0F6D,CAAV,GAAyB,6BAAD,GAA+B,sBAAS,CAAC,anM1FpH,GmM0FmH,CAAV,GAAyB,oCAAD,GAAsC,sBAAS,CAAC,anM1FjL,GmM0FgL,CAAV,GAAyB,wBAAD,GAA0B,sBAAS,CAAC,anM1FlO,GmM0FiO,CAAV,GAAyB,iCAAD;;AAKjS,uBAAU;AACV,uBAAU,aAAV,GAAwB;;AAE1B,qBAAU;AAjBgC;AArIR;;AACd;AAEpB;AAEE,mBAAgB,KAAW,QAAQ,QAAS,SAA5B;AAChB,YAAG,QAAQ,KAAC,OAAZ;AAEE,2CAAW,CAAC,iDAAD;;AAIX,4BAAY,CAAC,QAAD;;AAXI;AAepB,kBAAO,YAAU,CAAC,8BAA8B,CAAC,aAAa,iCAAuB,aAArC,apItE+F,IoIsE9H;AAhBiB;AA8BA;;AAElC;AACuB;AAEnB;AAEA,wBAAsB,OAAN,MAAS,qCAAH;AAEtB,qBAAa,cAAb,GAA6B;AANV;AASG;AAEtB,wBAAU;AACV,wBAAU;AAHY;AAO1B,UAAG,kBAAH;AAEA,wBAAe,qCAAc,QAAC,eAAS,aAAT;AAG9B,qBAAa,YAAU;;AAIrB,yCAAW,CAAC,iGAAD;;AA5BqB;AAtDG;;AAErC;AACA;AAEA,wBAAyB,OAAP,OAAU,+BAAH,CAAY,MAAC;AACtC,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,sBAAiB,qCAAc,QAAC,eAAS,CAAC;AAE/B,eAAN,MAAS,qCAAH,CAAkB,cAAzB,GAAyC;AACzC,wBAAU,MAAK,WAAC,CAAM,EAAN;AAHsB,OAAD,CAAT;AAOhC,mBAAa,YAAU,CAAC;AAEpB,wBAAU;AACV,wBAAU;AAHU,OAAD;AAdc;AA+PF;AAEzB;AAEV,yBAAe,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,oCAA0B,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,6BAAmB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,4BAAkB,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,wBAAc,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,oCAA0B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,6BAAmB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,4BAAkB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,2BAAiB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,4BAAkB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,yCAA+B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,2BAAiB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,oCAA0B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,2CAAiC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,+BAAqB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,mCAAyB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,2CAAiC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,wCAA8B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,4BAAkB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,gCAAsB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,sCAA4B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,kCAAwB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,+BAAqB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,wCAA8B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,2CAAiC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,kCAAwB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,kCAAwB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,wCAA8B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,iDAAuC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,4CAAkC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,+BAAqB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,+BAAqB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,kCAAwB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,+BAAqB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,+BAAqB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,8BAAoB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,0BAAgB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,iCAAuB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,2CAAiC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,0CAAgC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,kCAAwB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,2CAAiC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,iCAAuB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,+BAAqB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,qBAAW,uCAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAE3B,sBAAW;AACX,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,iCAAsB;AACtB,0BAAe;AACf,qBAAU;AACV,yBAAc;AACd,qBAAU;AACV,iCAAsB;AACtB,mCAAwB;AACxB,oCAAyB;AACzB,yCAA8B;AAC9B,qCAA0B;AAC1B,0BAAe;AACf,yBAAc;AACd,kCAAuB;AACvB,6BAAkB;AAClB,4BAAiB;AACjB,iCAAsB;AACtB,wBAAa;AACb,mCAAwB;AACxB,yBAAc;AACd,iCAAsB;AACtB,iCAAsB;AACtB,0BAAe;AACf,gCAAqB;AACrB,wCAA6B;AAC7B,sCAA2B;AAC3B,0CAA+B;AAC/B,wCAA6B;AAC7B,uCAA4B;AAC5B,sCAA2B;AAC3B,wBAAa;AACb,6BAAkB;AAClB,qCAA0B;AAC1B,0BAAe;AACf,wCAA6B;AAC7B,wCAA6B;AAC7B,iCAAsB;AACtB,iCAAsB;AACtB,+BAAoB;AACpB,qCAA0B;AAC1B,qCAA0B;AAC1B,mCAAwB;AACxB,gCAAqB;AACrB,iCAAsB;AACtB,+BAAoB;AACpB,iCAAsB;AACtB,+BAAoB;AACpB,mCAAwB;AACxB,kCAAuB;AACvB,8BAAmB;AACnB,4BAAiB;AACjB,0BAAe;AACf,wCAA6B;AAC7B,4BAAiB;AACjB,gCAAqB;AACrB,uCAA4B;AAC5B,wCAA6B;AAC7B,qCAA0B;AAC1B,iCAAsB;AACtB,sCAA2B;AAC3B,8BAAmB;AACnB,oCAAyB;AACzB,gCAAqB;AACrB,mCAAwB;AACxB,sCAA2B;AAC3B,kCAAuB;AACvB,wCAA6B;AAC7B,4BAAiB;AACjB,4BAAiB;AACjB,qCAA0B;AAC1B,oCAAyB;AACzB,kCAAuB;AACvB,+BAAoB;AACpB,mCAAwB;AACxB,yBAAc;AACd,iCAAsB;AACtB,gCAAqB;AACrB,iCAAsB;AACtB,kCAAuB;AACvB,6BAAkB;AAClB,mCAAwB;AACxB,iCAAsB;AACtB,iCAAsB;AACtB,iCAAsB;AACtB,kCAAuB;AACvB,iCAAsB;AACtB,+BAAoB;AACpB,4BAAiB;AACjB,gCAAqB;AACrB,sCAA2B;AAC3B,qCAA0B;AAC1B,kCAAuB;AACvB,kCAAuB;AACvB,kCAAuB;AACvB,0BAAe;AACf,iCAAsB;AACtB,wCAA6B;AAC7B,iCAAsB;AACtB,8BAAmB;AACnB,6BAAkB;AAClB,oCAAyB;AACzB,sCAA2B;AAC3B,8BAAmB;AACnB,mCAAwB;AACxB,+BAAoB;AACpB,+BAAoB;AACpB,qCAA0B;AAC1B,6BAAkB;AAClB,mCAAwB;AACxB,mCAAwB;AACxB,6BAAkB;AAClB,iCAAsB;AACtB,8CAAmC;AACnC,uCAA4B;AAC5B,2CAAgC;AAChC,+BAAoB;AACpB,kCAAuB;AACvB,yCAA8B;AAC9B,uCAA4B;AAC5B,4BAAiB;AACjB,4BAAiB;AACjB,sCAA2B;AAC3B,oCAAyB;AACzB,+BAAoB;AACpB,+BAAoB;AACpB,uCAA4B;AAC5B,qCAA0B;AAC1B,+BAAoB;AACpB,uCAA4B;AAC5B,qCAA0B;AAC1B,4BAAiB;AACjB,4BAAiB;AACjB,2BAAgB;AAChB,uBAAY;AACZ,8BAAmB;AACnB,wCAA6B;AAC7B,wCAA6B;AAC7B,wCAA6B;AAC7B,mCAAwB;AACxB,uCAA4B;AAC5B,8BAAmB;AACnB,oCAAyB;AACzB,kCAAuB;AACvB,8BAAmB;AACnB,kCAAuB;AACvB,wCAA6B;AAC7B,0CAA+B;AAC/B,uCAA4B;AAC5B,+BAAoB;AACpB,mCAAwB;AACxB,wCAA6B;AAC7B,0BAAe;AACf,yCAA8B;AAC9B,kCAAuB;AACvB,8BAAmB;AACnB,mCAAwB;AACxB,oCAAyB;AACzB,gCAAqB;AACrB,6BAAkB;AAClB,gCAAqB;AACrB,4BAAiB;AACjB,6CAAkC;AAClC,kBAAO;AACP;AACE,qBAAQ,cAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,4BAAe,yCAAf;AACA,gCAAmB,gDAAnB;AACA,kBAAI,SAAJ,GAAgB;AAChB,kBAAI,SAAC,CAAS,KAAT;AACL,kBAAI,UAAC,CAAU,CAAC,EAAX;AACL,kBAAI,QAAC,CAAQ,QAAR;AACL,kBAAI,SAAC,CAAS,EAAT;AACL,2BAAc,KAAd;AACA,qBAAQ,CAAC,KAAM,UAAW,cAAlB;AACR,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,CAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,EAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,WAAC,CAAW,aAAX;AACZ,wBAAW,oBAAC,CAAoB,QAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,cAAC,CAAc,wCAAd;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,uBAAQ,CAAC,iBAAa,KAAM,UAAW,kBAA/B;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,mCAAsB,mBAAmB,CAAC,IAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,QAAC,CAAQ,EAAR;AACvB,mCAAsB,OAAC,CAAO,EAAP;AACvB,mCAAsB,SAAC,CAAS,EAAT;AACvB,mCAAsB,UAAC,CAAU,EAAV;AACvB,mCAAsB,WAAC,CAAW,kBAAX;AACvB,mCAAsB,gBAAC,CAAc,CAAd;AACvB,mCAAsB,oBAAC,CAAoB,4BAApB;AACvB,mCAAsB,eAAC,CAAe,yCAAf;AACvB,mCAAsB,mBAAC,CAAmB,gDAAnB;AACvB,mCAAsB,eAAC,CAAe,wCAAf;AACvB,mCAAsB,iBAAC,CAAiB,sBAAjB;AACvB,mCAAsB,cAAC,CAAc,wCAAd;AACvB,mCAAsB,gBAAC,CAAgB,sBAAhB;AACvB,uBAAQ,CAAC,4BAAwB,KAAM,UAAW,6BAA1C;AACR,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,EAAR;AAChB,4BAAe,OAAC,CAAO,EAAP;AAChB,4BAAe,SAAC,CAAS,EAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,WAAC,CAAW,WAAX;AAChB,4BAAe,gBAAC,CAAc,CAAd;AAChB,4BAAe,oBAAC,CAAoB,4BAApB;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,mBAAC,CAAmB,gDAAnB;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,iBAAC,CAAiB,sBAAjB;AAChB,4BAAe,cAAC,CAAc,wCAAd;AAChB,4BAAe,gBAAC,CAAgB,sBAAhB;AAChB,uBAAQ,CAAC,qBAAiB,KAAM,UAAW,sBAAnC;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,EAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,4BAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,CAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,cAAC,CAAc,KAAd;AACf,2BAAc,gBAAC,CAAc,CAAd;AACf,2BAAc,oBAAC,CAAoB,2BAApB;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,iBAAC,CAAiB,sBAAjB;AACf,2BAAc,YAAC,CAAY,IAAZ;AACf,2BAAc,YAAC,CAAY,sBAAZ;AACf,2BAAc,gBAAC,CAAgB,qBAAhB;AACf,uBAAQ,CAAC,oBAAgB,KAAM,WAAY,sBAAnC;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,WAAV,GAAwB;AACxB,uBAAU,iBAAC,CAAiB,SAAjB;AACX,uBAAU,cAAC,CAAc,aAAG,oBAAjB;AACX,uBAAU,iBAAC,CAAiB,CAAjB;AACX,uBAAU,aAAV,GAA0B;AAC1B,uBAAU,UAAV,GAAuB;AACvB,uBAAU,QAAC,CAAQ,EAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,UAAtB,GAAmC;AACnC,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,UAAxB,GAAqC;AACrC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,2CAA8B,mBAAmB,CAAC,eAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,uCAA0B,mBAAmB,CAAC,eAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,4BAAe,mBAAmB,CAAC,eAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,UAAf,GAA4B;AAC5B,4BAAe,iBAAC,CAAiB,YAAjB;AAChB,2BAAc,mBAAmB,CAAC,eAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,+BAAkB,mBAAmB,CAAC,eAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,0BAAa,mBAAmB,CAAC,eAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,QAAC,CAAQ,EAAR;AACd,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,CAAR;AACzB,2BAAc,mBAAmB,CAAC,eAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,QAAC,CAAQ,EAAR;AACf,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,4BAAe,mBAAmB,CAAC,eAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,EAAR;AAChB,kCAAqB,mBAAmB,CAAC,eAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,GAAR;AACtB,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,GAAR;AAC9B,wCAA2B,mBAAmB,CAAC,eAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,4CAA+B,mBAAmB,CAAC,eAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,GAAR;AAChC,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,GAAR;AAC9B,yCAA4B,mBAAmB,CAAC,eAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,wCAA2B,mBAAmB,CAAC,eAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,0BAAa,mBAAmB,CAAC,eAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,QAAC,CAAQ,EAAR;AACd,+BAAkB,mBAAmB,CAAC,eAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,GAAR;AACnB,uCAA0B,mBAAmB,CAAC,eAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,GAAR;AAC3B,4BAAe,mBAAmB,CAAC,eAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,GAAR;AAChB,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,uCAA0B,mBAAmB,CAAC,eAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,mBAAmB,CAAC,eAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,kCAAqB,mBAAmB,CAAC,eAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,gCAAmB,mBAAmB,CAAC,eAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,4BAAe,mBAAmB,CAAC,eAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,kCAAqB,mBAAmB,CAAC,eAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,yCAA4B,mBAAmB,CAAC,eAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,GAAR;AAC7B,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,uCAA0B,mBAAmB,CAAC,eAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,wCAA2B,mBAAmB,CAAC,eAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,gCAAmB,mBAAmB,CAAC,eAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,GAAR;AACpB,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,kCAAqB,mBAAmB,CAAC,eAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,wCAA2B,mBAAmB,CAAC,eAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,CAAR;AAClB,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,uCAA0B,mBAAmB,CAAC,eAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,2BAAc,mBAAmB,CAAC,eAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,QAAC,CAAQ,EAAR;AACf,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,kCAAqB,mBAAmB,CAAC,eAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,+BAAkB,mBAAmB,CAAC,eAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,kCAAqB,mBAAmB,CAAC,eAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,wCAA2B,mBAAmB,CAAC,eAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,uCAA0B,mBAAmB,CAAC,eAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,4BAAe,mBAAmB,CAAC,eAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,GAAR;AAChB,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,gCAAmB,mBAAmB,CAAC,eAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,+BAAkB,mBAAmB,CAAC,eAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,GAAR;AAC1B,wCAA2B,mBAAmB,CAAC,eAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,gCAAmB,mBAAmB,CAAC,eAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,GAAR;AACpB,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,uCAA0B,mBAAmB,CAAC,eAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,+BAAkB,mBAAmB,CAAC,eAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,+BAAkB,mBAAmB,CAAC,eAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,CAAR;AACnB,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,gDAAmC,mBAAmB,CAAC,eAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,yCAA4B,mBAAmB,CAAC,eAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,GAAR;AAC7B,6CAAgC,mBAAmB,CAAC,eAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,2CAA8B,mBAAmB,CAAC,eAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,yCAA4B,mBAAmB,CAAC,eAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,wCAA2B,mBAAmB,CAAC,eAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,GAAR;AACrB,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,GAAR;AACrB,yCAA4B,mBAAmB,CAAC,eAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,uCAA0B,mBAAmB,CAAC,eAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,yCAA4B,mBAAmB,CAAC,eAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,uCAA0B,mBAAmB,CAAC,eAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,6BAAgB,mBAAmB,CAAC,eAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,yBAAY,mBAAmB,CAAC,eAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,gCAAmB,mBAAmB,CAAC,eAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,GAAR;AACpB,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,yCAA4B,mBAAmB,CAAC,eAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,gCAAmB,mBAAmB,CAAC,eAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,gCAAmB,mBAAmB,CAAC,eAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,4CAA+B,mBAAmB,CAAC,eAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,yCAA4B,mBAAmB,CAAC,eAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,4BAAe,mBAAmB,CAAC,eAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,EAAR;AAChB,2CAA8B,mBAAmB,CAAC,eAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,GAAR;AAC/B,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,gCAAmB,mBAAmB,CAAC,eAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,GAAR;AACzB,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,kCAAqB,mBAAmB,CAAC,eAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,GAAR;AACtB,+BAAkB,mBAAmB,CAAC,eAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,GAAR;AACnB,kCAAqB,mBAAmB,CAAC,eAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,+CAAkC,mBAAmB,CAAC,eAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,EAAR;AACnC,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,cAAC,CAAc,aAAG,oBAAjB;AACR,oBAAO,QAAC,CAAQ,EAAR;AACR,oBAAO,OAAC,CAAO,GAAP;AAtrBV;AAwrBE,wBAAW;AACX,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,mCAAsB;AACtB,4BAAe;AACf,uBAAU;AACV,2BAAc;AACd,uBAAU;AACV,mCAAsB;AACtB,qCAAwB;AACxB,sCAAyB;AACzB,2CAA8B;AAC9B,uCAA0B;AAC1B,4BAAe;AACf,2BAAc;AACd,oCAAuB;AACvB,+BAAkB;AAClB,8BAAiB;AACjB,mCAAsB;AACtB,0BAAa;AACb,qCAAwB;AACxB,2BAAc;AACd,mCAAsB;AACtB,mCAAsB;AACtB,4BAAe;AACf,kCAAqB;AACrB,0CAA6B;AAC7B,wCAA2B;AAC3B,4CAA+B;AAC/B,0CAA6B;AAC7B,yCAA4B;AAC5B,wCAA2B;AAC3B,0BAAa;AACb,+BAAkB;AAClB,uCAA0B;AAC1B,4BAAe;AACf,0CAA6B;AAC7B,0CAA6B;AAC7B,mCAAsB;AACtB,mCAAsB;AACtB,iCAAoB;AACpB,uCAA0B;AAC1B,uCAA0B;AAC1B,qCAAwB;AACxB,kCAAqB;AACrB,mCAAsB;AACtB,iCAAoB;AACpB,mCAAsB;AACtB,iCAAoB;AACpB,qCAAwB;AACxB,oCAAuB;AACvB,gCAAmB;AACnB,8BAAiB;AACjB,4BAAe;AACf,0CAA6B;AAC7B,8BAAiB;AACjB,kCAAqB;AACrB,yCAA4B;AAC5B,0CAA6B;AAC7B,uCAA0B;AAC1B,mCAAsB;AACtB,wCAA2B;AAC3B,gCAAmB;AACnB,sCAAyB;AACzB,kCAAqB;AACrB,qCAAwB;AACxB,wCAA2B;AAC3B,oCAAuB;AACvB,0CAA6B;AAC7B,8BAAiB;AACjB,8BAAiB;AACjB,uCAA0B;AAC1B,sCAAyB;AACzB,oCAAuB;AACvB,iCAAoB;AACpB,qCAAwB;AACxB,2BAAc;AACd,mCAAsB;AACtB,kCAAqB;AACrB,mCAAsB;AACtB,oCAAuB;AACvB,+BAAkB;AAClB,qCAAwB;AACxB,mCAAsB;AACtB,mCAAsB;AACtB,mCAAsB;AACtB,oCAAuB;AACvB,mCAAsB;AACtB,iCAAoB;AACpB,8BAAiB;AACjB,kCAAqB;AACrB,wCAA2B;AAC3B,uCAA0B;AAC1B,oCAAuB;AACvB,oCAAuB;AACvB,oCAAuB;AACvB,4BAAe;AACf,mCAAsB;AACtB,0CAA6B;AAC7B,mCAAsB;AACtB,gCAAmB;AACnB,+BAAkB;AAClB,sCAAyB;AACzB,wCAA2B;AAC3B,gCAAmB;AACnB,qCAAwB;AACxB,iCAAoB;AACpB,iCAAoB;AACpB,uCAA0B;AAC1B,+BAAkB;AAClB,qCAAwB;AACxB,qCAAwB;AACxB,+BAAkB;AAClB,mCAAsB;AACtB,gDAAmC;AACnC,yCAA4B;AAC5B,6CAAgC;AAChC,iCAAoB;AACpB,oCAAuB;AACvB,2CAA8B;AAC9B,yCAA4B;AAC5B,8BAAiB;AACjB,8BAAiB;AACjB,wCAA2B;AAC3B,sCAAyB;AACzB,iCAAoB;AACpB,iCAAoB;AACpB,yCAA4B;AAC5B,uCAA0B;AAC1B,iCAAoB;AACpB,yCAA4B;AAC5B,uCAA0B;AAC1B,8BAAiB;AACjB,8BAAiB;AACjB,6BAAgB;AAChB,yBAAY;AACZ,gCAAmB;AACnB,0CAA6B;AAC7B,0CAA6B;AAC7B,0CAA6B;AAC7B,qCAAwB;AACxB,yCAA4B;AAC5B,gCAAmB;AACnB,sCAAyB;AACzB,oCAAuB;AACvB,gCAAmB;AACnB,oCAAuB;AACvB,0CAA6B;AAC7B,4CAA+B;AAC/B,yCAA4B;AAC5B,iCAAoB;AACpB,qCAAwB;AACxB,0CAA6B;AAC7B,4BAAe;AACf,2CAA8B;AAC9B,oCAAuB;AACvB,gCAAmB;AACnB,qCAAwB;AACxB,sCAAyB;AACzB,kCAAqB;AACrB,+BAAkB;AAClB,kCAAqB;AACrB,8BAAiB;AACjB,+CAAkC;AAClC,oBAAO;AA71BT;AAjVmC;AAhctB;;;AACX,6BlIGc,kDkIHd;AACA,yCpJKkB,0DoJLlB;AACA,2CxJgaU,4BwJhaV;AACA,4CxJ+ZU,4BwJ/ZV;AACA,iDxJ8ZU,4BwJ9ZV;AACA,6CxJ6ZU,4BwJ7ZV;AACA,kCxJmmBY,8BwJnmBZ;AACA,iCxJsiBS,2BwJtiBT;AACA,0CxJkdW,6BwJldX;AACA,qCxJyZU,4BwJzZV;AACA,oCxJwZU,4BwJxZV;AACA,yCxJuZU,4BwJvZV;AACA,gCxJsZU,4BwJtZV;AACA,2CxJqZU,4BwJrZV;AACA,iCxJoZU,4BwJpZV;AACA,yCxJmZU,4BwJnZV;AACA,yCxJkZU,4BwJlZV;AACA,kCxJiZU,4BwJjZV;AACA,wCxJgZU,4BwJhZV;AACA,gDxJ+YU,4BwJ/YV;AACA,8CxJscW,6BwJtcX;AACA,kDxJ6YU,4BwJ7YV;AACA,gDxJ4YU,4BwJ5YV;AACA,+CxJ2YU,4BwJ3YV;AACA,8CxJilBY,8BwJjlBZ;AACA,gCxJyYU,4BwJzYV;AACA,qCxJwYU,4BwJxYV;AACA,6CxJuYU,4BwJvYV;AACA,kCxJsYU,4BwJtYV;AACA,gDxJghBS,2BwJhhBT;AACA,gDxJ+gBS,2BwJ/gBT;AACA,yCxJ8gBS,2BwJ9gBT;AACA,yCxJ6gBS,2BwJ7gBT;AACA,uCxJ4gBS,2BwJ5gBT;AACA,6CxJ2gBS,2BwJ3gBT;AACA,6CxJ0gBS,2BwJ1gBT;AACA,2CxJygBS,2BwJzgBT;AACA,wCxJwgBS,2BwJxgBT;AACA,yCxJmkBY,8BwJnkBZ;AACA,uCxJsgBS,2BwJtgBT;AACA,yCxJqgBS,2BwJrgBT;AACA,uCxJogBS,2BwJpgBT;AACA,2CxJwXU,4BwJxXV;AACA,0CxJuXU,4BwJvXV;AACA,sCxJsXU,4BwJtXV;AACA,oCxJqXU,4BwJrXV;AACA,kCxJoXU,4BwJpXV;AACA,gDxJiiBW,6BwJjiBX;AACA,oCxJgiBW,6BwJhiBX;AACA,wCxJwjBY,8BwJxjBZ;AACA,+CxJgXU,4BwJhXV;AACA,gDxJ0fS,2BwJ1fT;AACA,6CxJyfS,2BwJzfT;AACA,yCxJwfS,2BwJxfT;AACA,8CxJufS,2BwJvfT;AACA,sCxJ2WU,4BwJ3WV;AACA,4CxJwhBW,6BwJxhBX;AACA,wCxJyWU,4BwJzWV;AACA,2CxJwWU,4BwJxWV;AACA,8CxJuWU,4BwJvWV;AACA,0CxJsWU,4BwJtWV;AACA,gDxJ4iBY,8BwJ5iBZ;AACA,oCxJoWU,4BwJpWV;AACA,oCxJmWU,4BwJnWV;AACA,6CxJyiBY,8BwJziBZ;AACA,4CxJiWU,4BwJjWV;AACA,0CxJgWU,4BwJhWV;AACA,uCxJ0eS,2BwJ1eT;AACA,2CxJ8VU,4BwJ9VV;AACA,iCxJ6VU,4BwJ7VV;AACA,yCxJueS,2BwJveT;AACA,wCxJ2VU,4BwJ3VV;AACA,yCxJ0VU,4BwJ1VV;AACA,0CxJyVU,4BwJzVV;AACA,qCxJ+hBY,8BwJ/hBZ;AACA,2CxJ8hBY,8BwJ9hBZ;AACA,yCxJsVU,4BwJtVV;AACA,yCxJqVU,4BwJrVV;AACA,yCxJkgBW,6BwJlgBX;AACA,0CxJmVU,4BwJnVV;AACA,yCxJkVU,4BwJlVV;AACA,uCxJ+fW,6BwJ/fX;AACA,oCxJuhBY,8BwJvhBZ;AACA,wCxJ+UU,4BwJ/UV;AACA,8CxJ8UU,4BwJ9UV;AACA,6CxJ2fW,6BwJ3fX;AACA,0CxJudS,2BwJvdT;AACA,0CxJsdS,2BwJtdT;AACA,0CxJqdS,2BwJrdT;AACA,kCxJyUU,4BwJzUV;AACA,yCxJmdS,2BwJndT;AACA,gDxJqfW,6BwJrfX;AACA,yCxJsUU,4BwJtUV;AACA,sCxJqUU,4BwJrUV;AACA,qCxJkfW,6BwJlfX;AACA,4CxJmUU,4BwJnUV;AACA,8CxJkUU,4BwJlUV;AACA,sCxJiUU,4BwJjUV;AACA,2CxJ8eW,6BwJ9eX;AACA,uCxJsgBY,8BwJtgBZ;AACA,uCxJqgBY,8BwJrgBZ;AACA,6CxJ2eW,6BwJ3eX;AACA,qCxJ0eW,6BwJ1eX;AACA,2CxJ2TU,4BwJ3TV;AACA,2CxJ0TU,4BwJ1TV;AACA,qCxJyTU,4BwJzTV;AACA,yCxJmcS,2BwJncT;AACA,sDxJkcS,2BwJlcT;AACA,+CxJsTU,4BwJtTV;AACA,mDxJqTU,4BwJrTV;AACA,uCxJoTU,4BwJpTV;AACA,0CxJ8bS,2BwJ9bT;AACA,iDxJ6bS,2BwJ7bT;AACA,+CxJiTU,4BwJjTV;AACA,oCxJufY,8BwJvfZ;AACA,oCxJsfY,8BwJtfZ;AACA,8CxJ8SU,4BwJ9SV;AACA,4CxJ6SU,4BwJ7SV;AACA,uCxJ4SU,4BwJ5SV;AACA,uCxJ2SU,4BwJ3SV;AACA,+CxJ0SU,4BwJ1SV;AACA,6CxJySU,4BwJzSV;AACA,uCxJ+eY,8BwJ/eZ;AACA,+CxJuSU,4BwJvSV;AACA,6CxJsSU,4BwJtSV;AACA,oCxJ4eY,8BwJ5eZ;AACA,oCxJ2eY,8BwJ3eZ;AACA,mCxJidW,6BwJjdX;AACA,+BxJ0VW,6BwJ1VX;AACA,sCxJiSU,4BwJjSV;AACA,gDxJ2aS,2BwJ3aT;AACA,gDxJ0aS,2BwJ1aT;AACA,gDxJyaS,2BwJzaT;AACA,2CxJqVW,6BwJrVX;AACA,+CxJ4RU,4BwJ5RV;AACA,sCxJ2RU,4BwJ3RV;AACA,4CxJkVW,6BwJlVX;AACA,0CxJyRU,4BwJzRV;AACA,sCxJ+dY,8BwJ/dZ;AACA,0CxJuRU,4BwJvRV;AACA,gDxJocW,6BwJpcX;AACA,kDxJqRU,4BwJrRV;AACA,+CxJ2dY,8BwJ3dZ;AACA,uCxJ2UW,6BwJ3UX;AACA,2CxJkRU,4BwJlRV;AACA,gDxJwdY,8BwJxdZ;AACA,kCxJgRU,4BwJhRV;AACA,iDxJ+QU,4BwJ/QV;AACA,0CxJyZS,2BwJzZT;AACA,sCxJqUW,6BwJrUX;AACA,2CxJ4QU,4BwJ5QV;AACA,4CxJ2QU,4BwJ3QV;AACA,wCxJ0QU,4BwJ1QV;AACA,qCxJyQU,4BwJzQV;AACA,wCxJwQU,4BwJxQV;AACA,oCxJ+TW,6BwJ/TX;AACA,qDxJsQU,4BwJtQV;AACA,0BpIzEa,gDoIyEb;AACA,6BzKwxBY,8CyKxxBZ;AACA,6BzKuxBY,8CyKvxBZ;AACA,6BzKsxBY,8CyKtxBZ;AACA,yC1KuaK,uC0KvaL;AACA,kC1KsaK,uC0KtaL;AACA,8B1K7DI,sC0K6DJ;AACA,6B1KoaK,uC0KpaL;AACA,iC1KuHG,qC0KvHH;AACqB,kCAAO,UvMrDvB,2BuMqDuB,CAAP;AACgB,kDAAO,UvMtDvC,2BuMsDuC,CAAP;AACP,2CAAO,UvMvDhC,2BuMuDgC,CAAP;AACD,0CAAQ,WxJm6B/B,wBwJn6B+B,CAAR;AACH,uCAAO,UvMzD5B,2BuMyD4B,CAAP;AACJ,mCAAO,UvM1DxB,2BuM0DwB,EAAqB,U3KhHxC,0C2KgHwC,EAA5B;AACG,sCAAO,UvM3D3B,2BuM2D2B,CAAP;AACK,2CAAO,UvM5DhC,2BuM4DgC,CAAP;AA9KnB;AA2Lb;AAvMF,GAyMc,yDAzMd;ACAA,oCAES,8RAFT;;;AAWmB;;;AACf;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAuBA;AACA;AACA;AACA;AACA;AACA;AACA;AAvZe;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAoiBoB;AAErC;AAEA,qBAAU,MAAK,WAAC,CAAM,yEAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,0BAAe,iBAAC,CAAe,SAAf;AAChB,0BAAe,iBAAC,CAAe,SAAf;AAChB,8BAAmB,iBAAC,CAAe,SAAf;AACpB,sBAAW,YAAC,CAAU,CAAV;AACZ,sBAAW,YAAC,CAAU,CAAV;AACZ,sBAAW,SAAM,CAAC,EAAE,EAAI,iBAAP;AAEjB,sBAAW,SAAM,CAAC,EAAE,EAAI,kBAAP;AACjB,kBAAW,gBAAW,eAAa,CAAC,EAAE,CAAH;AACnC,mBAAQ,iBAAC,CAAe,SAAf;AAET,sBAAW,SAAM,CAAC,EAAE,EAAI,mBAAP;AACjB,kBAAW,gBAAW,eAAa,CAAC,EAAE,CAAH;AACnC,oBAAS,iBAAC,CAAe,SAAf;AAEV,kBAAW,gBAAW,eAAa,CAAC,EAAE,CAAH;AACnC,2BAAgB,iBAAC,CAAe,SAAf;AAEjB,sBAAW,SAAM,CAAC,EAAE,EAAI,+BAAP;AACjB,kBAAW,gBAAW,eAAa,CAAC,EAAE,CAAH;AACnC,iCAAsB,iBAAC,CAAe,SAAf;AAEvB,sBAAW,SAAM,CAAC,EAAE,EAAI,+BAAP;AAEjB,sBAAW,SAAM,CAAC,EAAE,EAAI,iBAAP;AACjB,kBAAW,gBAAW,eAAa,CAAC,EAAE,CAAH;AACnC,mBAAQ,iBAAC,CAAe,SAAf;AAET,sBAAW,SAAM,CAAC,EAAE,EAAI,qBAAP;AAGjB,mBAAQ;AACR,mBAAQ,aAAR,GAAsB,iDAAiD,GAAC,sBAAS,CAAC,sBpM5T9B,GoM4T6B,CAAV;AACvE,mBAAQ;AAvC6B;AArDS;AAE9C,oBAAS;AACT,sBAAW;AACX,UAAI;AAJ0C;AA2HA;AAE9C;AAEA,kBAAW,gBAAW,eAAa,CAAC,EAAE,CAAH;AACnC,iCAAsB,iBAAC,CAAe,SAAf;AAEvB,kBAAW,gBAAW,eAAa,CAAC,EAAE,CAAH;AACnC,uBAAY,iBAAC,CAAe,SAAf;AAOb,sBAAW,SAAM,CAAC,EAAE,EAAI,2BAAsB,YAAC,EAAc,GAAL,KAAD,GAAO,kBAAa,YAAC,EAA3D;AAEjB,sBAAW,SAAM,CAAC,EAAE,EAAI,qBAAP;AACjB,sBAAW,SAAM,CAAC,EAAE,EAAI,2BAAsB,YAAC,EAA9B;AAEjB,UAAG,iBAAY,KAAC,IAAhB,EAA0B,gBAAW,SAArC;AACA,UAAG,iBAAY,KAAC,IAAhB;AAEE,wBAAW;AACX,qCAAwB,aAAC,CAAO,cAAS,eAAC,EAAjB;AACzB,6BAAgB,aAAC,CAAW,CAAX;AACjB,mCAAsB,YAAC,CAAU,oCAA+B,YAAC,EAA1C;AACvB,qCAAwB,WAAC,CAAS,2BAAsB,WAAC,EAAhC;AACzB,YAAG,uBAAkB,WAAC,EAAO,KAAC,CAA9B,EAAqC,0BAAqB,WAAC,CAAS,kCAA6B,WAAC,EAAvC,CAA3D;AACA,YAAG,wBAAmB,YAAC,EAAQ,KAAC,cAAhC,EAAoD,6BAAwB,YAAC,CAAU,0BAAqB,YAAC,EAAhC,CAA7E;AACA,YAAG,wBAAmB,YAAC,EAAQ,KAAC,cAAhC,EAAoD,6BAAwB,YAAC,CAAU,0BAAqB,YAAC,EAAhC,CAA7E;AACA,YAAG,wBAAmB,YAAC,EAAQ,KAAC,cAAhC,EAAoD,6BAAwB,YAAC,CAAU,0BAAqB,YAAC,EAAhC,CAA7E;AACA,YAAG,wBAAmB,YAAC,EAAQ,KAAC,cAAhC,EAAoD,6BAAwB,YAAC,CAAU,0BAAqB,YAAC,EAAhC,CAA7E;AACA,YAAG,wBAAmB,YAAC,EAAQ,KAAC,cAAhC,EAAoD,6BAAwB,YAAC,CAAU,0BAAqB,YAAC,EAAhC,CAA7E;AACA,sCAAyB,WAAC,CAAS,6BAAwB,WAAC,EAAlC;AAC1B,wCAA2B,WAAC,CAAS,8BAAyB,WAAC,EAAnC;AAC5B,qCAAwB,WAAC,CAAS,2BAAsB,WAAC,EAAhC;AACzB,kCAAqB,WAAC,CAAS,uBAAkB,WAAC,EAA5B;AACtB,YAAG,oBAAe,eAAC,EAAW,GAAC,CAA/B;AAEE,wCAAyB,WAAC,CAAS,iCAA4B,WAAC,EAAtC;AAC1B,cAAG,8BAAyB,WAAC,EAAO,KAAE,CAAtC,EAA6C,0BAAqB,WAAC,CAAS,8BAAyB,WAAC,EAAnC,CAAnE;SAHF;AAKA,2BAAc,WAAC,CAAS,CAAT;AACf,YAAG,2BAAsB,aAAC,EAAS,KAAC,IAApC,EAA8C,mBAAc,WAAC,CAAS,CAAT,CAA7D;AACA,+BAAkB,WAAC,CAAS,CAAT;AACnB,+BAAkB,aAAC,CAAW,CAAX;AACnB,gCAAmB,WAAC,CAAS,CAAT;AACpB,mCAAsB,WAAC,CAAS,CAAT;AACvB,sCAAyB,WAAC,CAAS,CAAT;AAC1B,yCAA4B,WAAC,CAAS,CAAT;AAC7B,6BAAgB,YAAC,CAAU,KAAV;AACjB,oCAAuB,aAAC,CAAW,0BAAqB,aAAC,EAAjC;AACxB,uCAA0B,WAAC,CAAS,CAAT;AAC3B,gCAAmB,WAAC,CAAS,CAAT;AACpB,wCAA2B,WAAC,CAAS,CAAT;AAC5B,sCAAyB,WAAC,CAAS,CAAT;AAC1B,wCAA2B,WAAC,CAAS,CAAT;AAC5B,qCAAwB,WAAC,CAAS,CAAT;AACzB,qCAAwB,WAAC,CAAS,CAAT;AACzB,4BAAe,WAAC,CAAS,CAAT;AAChB,qCAAwB,aAAC,CAAW,KAAX;AACzB,iCAAoB,aAAC,CAAW,KAAX;AACrB,wCAA2B,WAAC,CAAS,CAAT;AAC5B,yCAA4B,WAAC,CAAS,CAAT;AAC7B,4BAAe,aAAC,CAAW,CAAX;AAChB,+BAAkB,WAAC,CAAS,CAAT;AACnB,kCAAqB,WAAC,CAAS,CAAT;AACtB,2CAA8B,YAAC,CAAU,iCAA4B,YAAC,EAAvC;AAC/B,2CAA8B,YAAC,CAAU,iCAA4B,YAAC,EAAvC;AAC/B,8CAAiC,YAAC,CAAO,oCAA+B,YAAC,EAAvC;AAClC,sCAAyB,YAAC,CAAO,EAAP;AAC1B,+BAAkB,YAAC,CAAU,qBAAgB,YAAC,EAA3B;AACnB,8BAAiB,YAAC,CAAU,oBAAe,YAAC,EAA1B;AAClB,8BAAiB,YAAC,CAAU,oBAAe,YAAC,EAA1B;AAClB,6BAAgB,YAAC,CAAU,mBAAc,YAAC,EAAzB;AACjB,+BAAkB,aAAC,CAAW,qBAAgB,aAAC,EAA5B;AACnB,oCAAuB,aAAC,CAAW,0BAAqB,aAAC,EAAjC;AACxB,iCAAoB,YAAC,CAAU,6BAAwB,YAAC,EAAnC;AACrB,qCAAwB,YAAC,CAAU,2BAAsB,YAAC,EAAjC;AACzB,6BAAgB,YAAC,CAAU,8BAAyB,YAAC,EAApC;AACjB,6BAAgB,YAAC,CAAU,sBAAiB,YAAC,EAA5B;AACjB,+BAAkB,WAAC,CAAS,qBAAgB,WAAC,EAA1B;AACnB,wCAA2B,YAAC,CAAU,8BAAyB,YAAC,EAApC;AAC5B,kCAAqB,YAAC,CAAU,wBAAmB,YAAC,EAA9B;AACtB,kCAAqB,YAAC,CAAU,wBAAmB,YAAC,EAA9B;AAGtB,YAAG,mBAAc,WAAC,EAAO,KAAC,CAA1B,EAAiC,8BAAyB,WAAC,CAAS,0BAAqB,WAAC,EAA/B,CAA3D;AACA,YAAG,mBAAc,WAAC,EAAO,KAAC,CAA1B,EAAiC,8BAAyB,WAAC,CAAS,yBAAoB,WAAC,EAA9B,CAA3D;AACA,YAAG,mBAAc,WAAC,EAAO,KAAC,CAA1B,EAAiC,8BAAyB,WAAC,CAAS,0BAAqB,WAAC,EAAQ,GAAE,yBAAoB,WAAC,EAA9D,CAA3D;OArEF;AArB8C;AAZE;AAEhD,UAAG,kBAAH;AAEE,wBAAW;;AAIX,yCAAW,CAAC,iGAAD;;AARmC;AA8GF;AAE9C,UAAG,kBAAH;AAGE,wBAAW;;AAIX,yCAAW,CAAC,iGAAD;;AATiC;AAaC;AAG/C,gCAAqB,cAAC,CAAY,kBAAa,cAAC,EAA1B;AACtB,UAAG,uBAAkB,aAAC,EAAS,KAAC,CAAhC,EAAuC,kCAA6B,WAAC,CAAS,gCAA2B,WAAC,EAArC,CAArE;AACA,UAAG,uBAAkB,aAAC,EAAS,KAAC,CAAhC,EAAuC,kCAA6B,WAAC,CAAS,gCAA2B,WAAC,EAArC,CAArE;AACA,UAAG,uBAAkB,aAAC,EAAS,KAAC,CAAhC,EAAuC,kCAA6B,WAAC,CAAS,gCAA2B,WAAC,EAArC,CAArE;AACA,UAAG,uBAAkB,aAAC,EAAS,KAAC,CAAhC,EAAuC,kCAA6B,WAAC,CAAS,gCAA2B,WAAC,EAArC,CAArE;AACA,UAAG,uBAAkB,aAAC,EAAS,KAAC,CAAhC,EAAuC,kCAA6B,WAAC,CAAS,gCAA2B,WAAC,EAArC,CAArE;AACA,UAAG,uBAAkB,aAAC,EAAS,KAAC,CAAhC,EAAuC,kCAA6B,WAAC,CAAS,gCAA2B,WAAC,EAArC,CAArE;AACA,UAAG,gCAA2B,aAAC,EAAS,KAAC,KAAzC,EAAoD,kCAA6B,WAAC,CAAS,CAAT,CAAlF;AAGA,UAAG,4BAAuB,YAAC,EAAQ,KAAC,EAApC;AAEE,uCAA0B,YAAC,CAAU,6BAAwB,YAAC,EAAnC;;AAI3B,uCAA0B,YAAC,CAAU,4BAAuB,YAAC,EAAlC;;AAG7B,UAAG,8BAAyB,YAAC,EAAQ,KAAC,EAAtC,EAA8C,8BAAyB,WAAC,CAAS,CAAT,CAAxE;AACA,UAAG,mBAAc,WAAC,EAAO,KAAC,CAA1B,EAAiC,0BAAqB,WAAC,CAAS,CAAT,CAAvD;AACA,UAAG,6BAAwB,YAAC,EAAQ,KAAC,EAArC,EAA6C,6BAAwB,YAAC,CAAU,GAAV,CAAtE;AAGA,UAAG,oBAAO,CAAC,6BAAwB,YAAC,GAAS,CAAnC,CAAqC,KAAC,MAAhD,EAA4D,8BAAyB,WAAC,CAAS,CAAT,CAAtF;AAmBA,UAAG,0BAAqB,WAAC,EAAO,KAAE,CAAlC;AAEE,YAAI,aAAG,kBAAkB,CAAC,6BAAwB,YAAC,EAA1B,CAAmC,KAAC,KAA7D,EAAyE,0BAAqB,WAAC,CAAS,CAAT,CAA/F;OAFF;AAMA,UAA+B,CAA3B,uBAAkB,YAAC,EAAQ,KAAE,EAAF,CAAM,IAAgC,CAA3B,uBAAkB,YAAC,EAAQ,KAAE,sCAAF,CAArE,EAAqH,6BAAwB,WAAC,CAAS,CAAT,CAA9I;AACA,UAA+B,CAA3B,uBAAkB,YAAC,EAAQ,KAAE,EAAF,CAAM,IAAgC,CAA3B,uBAAkB,YAAC,EAAQ,KAAE,sCAAF,CAArE;AAEE,sCAAyB,WAAC,CAAS,CAAT;AAC1B,yCAA4B,WAAC,CAAS,CAAT;OAH/B;AAkBE,mCAAwB,WAAC,CAAS,8BAAyB,WAAC,EAAO,GAAuG,CAA9B,CAArC,CAAjC,8BAAyB,WAAC,EAAO,GAAC,gCAA2B,WAAC,EAA7B,CAAqC,GAAC,0BAAqB,WAAC,EAAvB,CAA8B,GAAC,GAAD,CAAjJ;AACzB,uCAA4B,WAAC,CAAS,6BAAwB,WAAC,EAAO,GAAwE,CAAtC,CAAhC,6BAAwB,WAAC,EAAO,GAAC,kCAA6B,WAAC,EAA/B,CAAsC,GAAC,GAAD,CAAjH;AAG/B,UAAG,aAAG,qBAAqB,aAAC,EAAS,KAAC,IAAtC,EAAgD,6BAAwB,WAAC,CAAS,aAAG,SAAS,CAAC,6BAAwB,WAAC,GAAQ,CAAC,CAAnC,CAArB,CAAzE;AAEA,iCAAgB,aAAG,eAAe,CAAC,2BAAsB,YAAC,EAAxB;AAClC,8BAAmB,WAAC,CAAiC,CAAxB,qBAAgB,WAAC,EAAO,GAAC,6BAAwB,WAAC,EAA1B,CAAiC,GAAC,wBAAnE;AACpB,iCAAsB,WAAC,CAAS,aAAG,SAAS,CAAyB,CAAxB,qBAAgB,WAAC,EAAO,GAAC,6BAAwB,WAAC,EAA1B,CAAiC,GAAC,wBAAD,CAAgB,eAA1E,CAArB;AAEvB,6BAAkB,WAAC,CAAoC,CAA3B,wBAAmB,WAAC,EAAO,GAAC,kCAA6B,WAAC,EAA/B,CAAsC,GAAC,GAA3E;AACnB,oCAAyB,WAAC,CAAS,uBAAkB,WAAC,EAAO,GAAC,wBAAmB,WAAC,EAAxD;AAC1B,sCAA2B,WAAC,CAAS,aAAG,SAAS,CAA6B,CAA3B,wBAAmB,WAAC,EAAO,GAAC,8BAAyB,WAAC,EAA3B,CAAkC,GAAC,GAAD,CAAM,CAAC,CAAtE,CAArB;AAE5B,8BAAmB,WAAC,CAAS,wBAAmB,WAAC,EAAO,GAAC,2BAAsB,WAAC,EAA5D;AACpB,UAAG,2BAAsB,WAAC,EAAO,KAAE,CAAnC;AAEE,uCAA0B,WAAC,CAAoC,CAA3B,wBAAmB,WAAC,EAAO,GAAC,2BAAsB,WAAC,EAAxB,CAA+B,GAAC,GAApE;;AAI3B,uCAA0B,WAAC,CAAS,CAAT;;AA6B7B,4CAAiC,YAAC,CAAU,mCAA8B,YAAC,EAAzC;AAElC,UAAG,mCAA8B,YAAC,EAAQ,KAAC,EAA3C,EAAmD,mCAA8B,YAAC,CAAU,GAAV,CAAlF;AACA,gCAAqB,WAAC,CAAS,uBAAkB,WAAC,EAAO,GAAC,qBAAgB,WAAC,EAArD;AA5HyB;AAgID;AAE9C;AACA;AAEA,6BAAU,CAAC,IAAD;AACV,mBAAY,yBAAY,CAAC,IAAD;AACxB,mBAAY,uBAAU,CAAC,WAAW,IAAI,EAAhB;AACtB,mBAAY,uBAAU,CAAC,WAAW,IAAI,EAAhB;AACtB,2BAAgB,YAAC,CAAU,UAAV;AACjB,oCAAyB,aAAC,CAAO,aAAQ,eAAC,EAAhB;AAC1B,mCAAwB,aAAC,CAAO,cAAS,eAAC,EAAjB;AACzB,gCAAqB,cAAC,CAAY,kBAAa,cAAC,EAA1B;AACtB,2BAAgB,WAAC,CAAS,mBAAc,GAAC,CAAxB;AACjB,4BAAiB,WAAC,CAAS,CAAT;AAClB,2BAAgB,aAAC,CAAW,KAAX;AACjB,2BAAgB,aAAC,CAAW,CAAX;AACjB,iCAAsB,YAAC,CAAU,oCAA+B,YAAC,EAA1C;AACvB,wCAA6B,WAAC,CAAS,gCAA2B,WAAC,EAArC;AAC9B,mCAAwB,WAAC,CAAS,2BAAsB,WAAC,EAAhC;AACzB,UAAG,uBAAkB,WAAC,EAAO,KAAC,CAA9B,EAAqC,0BAAqB,WAAC,CAAS,kCAA6B,WAAC,EAAvC,CAA3D;AACA,UAAG,wBAAmB,YAAC,EAAQ,KAAC,cAAhC,EAAoD,6BAAwB,YAAC,CAAU,0BAAqB,YAAC,EAAhC,CAA7E;AACA,UAAG,wBAAmB,YAAC,EAAQ,KAAC,cAAhC,EAAoD,6BAAwB,YAAC,CAAU,0BAAqB,YAAC,EAAhC,CAA7E;AACA,UAAG,wBAAmB,YAAC,EAAQ,KAAC,cAAhC,EAAoD,6BAAwB,YAAC,CAAU,0BAAqB,YAAC,EAAhC,CAA7E;AACA,UAAG,wBAAmB,YAAC,EAAQ,KAAC,cAAhC,EAAoD,6BAAwB,YAAC,CAAU,0BAAqB,YAAC,EAAhC,CAA7E;AACA,UAAG,wBAAmB,YAAC,EAAQ,KAAC,cAAhC,EAAoD,6BAAwB,YAAC,CAAU,0BAAqB,YAAC,EAAhC,CAA7E;AACA,oCAAyB,WAAC,CAAS,6BAAwB,WAAC,EAAlC;AAC1B,sCAA2B,WAAC,CAAS,8BAAyB,WAAC,EAAnC;AAC5B,mCAAwB,WAAC,CAAS,2BAAsB,WAAC,EAAhC;AACzB,gCAAqB,WAAC,CAAS,uBAAkB,WAAC,EAA5B;AACtB,UAAG,oBAAe,eAAC,EAAW,GAAC,CAA/B;AAEE,sCAAyB,WAAC,CAAS,iCAA4B,WAAC,EAAtC;AAC1B,YAAG,8BAAyB,WAAC,EAAO,KAAE,CAAtC,EAA6C,0BAAqB,WAAC,CAAS,8BAAyB,WAAC,EAAnC,CAAnE;OAHF;AAMA,yBAAc,WAAC,CAAS,CAAT;AACf,UAAG,2BAAsB,aAAC,EAAS,KAAC,IAApC,EAA8C,mBAAc,WAAC,CAAS,CAAT,CAA7D;AACA,6BAAkB,WAAC,CAAS,CAAT;AACnB,6BAAkB,aAAC,CAAW,CAAX;AACnB,8BAAmB,WAAC,CAAS,CAAT;AACpB,iCAAsB,WAAC,CAAS,CAAT;AACvB,oCAAyB,WAAC,CAAS,CAAT;AAC1B,uCAA4B,WAAC,CAAS,CAAT;AAC7B,2BAAgB,YAAC,CAAU,KAAV;AACjB,kCAAuB,aAAC,CAAW,0BAAqB,aAAC,EAAjC;AACxB,qCAA0B,WAAC,CAAS,CAAT;AAC3B,8BAAmB,WAAC,CAAS,CAAT;AACpB,sCAA2B,WAAC,CAAS,CAAT;AAC5B,oCAAyB,WAAC,CAAS,CAAT;AAC1B,sCAA2B,WAAC,CAAS,CAAT;AAC5B,mCAAwB,WAAC,CAAS,CAAT;AACzB,mCAAwB,WAAC,CAAS,CAAT;AACzB,0BAAe,WAAC,CAAS,CAAT;AAChB,mCAAwB,aAAC,CAAW,KAAX;AACzB,+BAAoB,aAAC,CAAW,KAAX;AACrB,sCAA2B,WAAC,CAAS,CAAT;AAC5B,uCAA4B,WAAC,CAAS,CAAT;AAC7B,0BAAe,aAAC,CAAW,CAAX;AAChB,6BAAkB,WAAC,CAAS,CAAT;AACnB,gCAAqB,WAAC,CAAS,CAAT;AACtB,yCAA8B,YAAC,CAAU,iCAA4B,YAAC,EAAvC;AAC/B,yCAA8B,YAAC,CAAU,iCAA4B,YAAC,EAAvC;AAC/B,4CAAiC,YAAC,CAAO,oCAA+B,YAAC,EAAvC;AAClC,oCAAyB,YAAC,CAAO,EAAP;AAe1B,6BAAkB,YAAC,CAAU,qBAAgB,YAAC,EAA3B;AACnB,4BAAiB,YAAC,CAAU,oBAAe,YAAC,EAA1B;AAClB,4BAAiB,YAAC,CAAU,oBAAe,YAAC,EAA1B;AAClB,2BAAgB,YAAC,CAAU,mBAAc,YAAC,EAAzB;AACjB,6BAAkB,aAAC,CAAW,qBAAgB,aAAC,EAA5B;AACnB,kCAAuB,aAAC,CAAW,0BAAqB,aAAC,EAAjC;AACxB,+BAAoB,YAAC,CAAU,6BAAwB,YAAC,EAAnC;AACrB,mCAAwB,YAAC,CAAU,2BAAsB,YAAC,EAAjC;AACzB,2BAAgB,YAAC,CAAU,8BAAyB,YAAC,EAApC;AACjB,2BAAgB,YAAC,CAAU,sBAAiB,YAAC,EAA5B;AACjB,6BAAkB,WAAC,CAAS,qBAAgB,WAAC,EAA1B;AACnB,sCAA2B,YAAC,CAAU,8BAAyB,YAAC,EAApC;AAQ5B,gCAAqB,YAAC,CAAU,wBAAmB,YAAC,EAA9B;AACtB,gCAAqB,YAAC,CAAU,wBAAmB,YAAC,EAA9B;AAGtB,UAAG,mBAAc,WAAC,EAAO,KAAC,CAA1B,EAAiC,8BAAyB,WAAC,CAAS,0BAAqB,WAAC,EAA/B,CAA3D;AACA,UAAG,mBAAc,WAAC,EAAO,KAAC,CAA1B,EAAiC,8BAAyB,WAAC,CAAS,yBAAoB,WAAC,EAA9B,CAA3D;AACA,UAAG,mBAAc,WAAC,EAAO,KAAC,CAA1B,EAAiC,8BAAyB,WAAC,CAAS,0BAAqB,WAAC,EAAQ,GAAE,yBAAoB,WAAC,EAA9D,CAA3D;AAxG8C;AAnQQ;AAGtD,UAAG,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAM,KAAE,EAA1B,EAAkC,iCAAW,CAAC,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAhB,CAA7C;AACA,sBAAW;AACX,UAAI;AALkD;AAhGJ;AAElD,sBAAW;AAFuC;AAKJ;AAE9C,UAAG,gBAAW,OAAM,KAAC,6BAArB,EAAmC,gBAAW,OAA9C;AACA,UAAG,gBAAW,OAAO,IAAG,kBAAxB;AAEE,wBAAW;;AAKX,wBAAW;;AAViC;AAmFI;AAEhD,sBAAW;AACX,UAAG,gBAAW,KAAE,EAAhB,EAAwB,gBAAW,aAAX,GAAyB,gBAAgB,GAAC,sBAAS,CAAC,iBpMnU1B,GoMmUyB,CAA3E;AACA,UAAG,gBAAW,KAAC,EAAf,EAAuB,gBAAW,aAAX,GAAyB,EAAhD;AACA,sBAAW;AALqC;AApEN;AAE5C,0BAAe;AACf,0BAAe,aAAf,GAA6B,gDAAqG,GAApD,sBAAS,CAAC,qBpM/PpC,GoM+PmC,CAAV,GAA6B,wBAAF,GAA2B,sBAAS,CAAC,2BAAsB,YAAC,GpM/PhH,GoM+PwF,CAAV;AAClI,0BAAe;AAJ6B;AAOD;AAG3C,UAAG,iBAAH,EAAqB,yBAAoB,CAAC,IAAD,CAAzC;AAEA,UAAG,qBAAgB,KAAE,EAArB;AAEE,sBAAS;AACT,sBAAS,aAAT,GAAuB,2BAAuD,GAA3B,sBAAS,CAAC,sBpM3QX,GoM2QU,CAAV,GAA6B,iCAAD;AAC9E,sBAAS;OAJX;AAL2C;AA/GQ;AAEnD,UAAG,gBAAW,OAAO,IAAG,kBAAxB;AAAyC,4BAAe,WAAC,CAAS,IAAT;AAAmC,YAAhB,oBAAe,WAAC,CAAS,KAAT;AAFzC;AAKJ;;AAE/C;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,sCAAH;AAJK;AAOG;AAEtB,YAAG,IAAI,cAAc,KAAE,EAAvB;AAEE,mCAAkB,IAAI;AACtB,cAAG,sBAAgB,KAAE,EAArB;AAEE,2BAAS;AACT,2BAAS,aAAT,GAAuB,2BAAuD,GAA3B,sBAAS,CAAC,uBpM3KjB,GoM2KgB,CAAV,GAA6B,iCAAD;AAC9E,2BAAS;;AAIT,gBAAG,kBAAH,EAAqB,0BAAoB,CAAC,IAAD,CAAzC;;SAXJ;AAFsB;AAoB1B,0BAAc;AACd,aAAM,sCAAgB,QAAC,eAAS,aAAT;AACvB,UAAI,YAAU;AAhCiC;AAoCD;;AAE9C;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,sCAAH;AAJK;AAOG;AAEtB,YAAG,IAAI,cAAc,KAAE,EAAvB;AAEE,mCAAkB,IAAI;AACtB,cAAG,sBAAgB,KAAE,EAArB;AAEE,2BAAS;AACT,2BAAS,aAAT,GAAuB,2BAAuD,GAA3B,sBAAS,CAAC,uBpM/MjB,GoM+MgB,CAAV,GAA6B,iCAAD;AAC9E,2BAAS;;AAIT,gBAAG,kBAAH,EAAqB,0BAAoB,CAAC,IAAD,CAAzC;;SAXJ;AAFsB;AAoB1B,0BAAc;AACd,aAAM,sCAAgB,QAAC,eAAS,aAAT;AACvB,UAAI,YAAU;AAhCgC;AAmFR;AAGtC,iBAAqB,uCAArB;AAHsC;AAyfC;AAE7B;AAEV,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,yBAAe,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,6BAAmB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,6BAAmB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,iCAAuB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,sBAAY,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,uBAAa,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,oCAA0B,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,sBAAY,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,8BAAoB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,oCAA0B,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,0BAAgB,uCAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,6BAAmB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,yBAAe,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,uCAA6B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,sCAA4B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,2BAAiB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,8BAAoB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,8BAAoB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,8BAAoB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,8BAAoB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,4BAAkB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,mCAAyB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,8BAAoB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,6BAAmB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,kCAAwB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,6BAAmB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,mCAAyB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,4BAAkB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,uBAAa,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,iCAAuB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,kCAAwB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,+BAAqB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,kCAAwB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,uCAA6B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,8BAAoB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,6BAAmB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,6BAAmB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,4BAAkB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,oCAA0B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,8BAAoB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,4BAAkB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,8CAAoC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,mCAAyB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,uCAA6B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,4BAAkB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,+BAAqB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,+BAAqB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,iCAAuB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,0CAAgC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,6CAAmC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,8BAAoB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,iCAAuB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,iCAAuB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,6BAAmB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,8BAAoB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,iDAAuC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,uCAA6B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,wCAA8B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,kDAAwC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,2BAAiB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,kCAAwB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,2BAAiB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,iCAAuB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,mCAAyB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,6BAAmB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,kCAAwB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,+BAAqB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,0BAAgB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,iDAAuC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,kCAAwB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,6BAAmB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,0CAAgC,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,yCAA+B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,2CAAiC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,uDAA6C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1D,6DAAmD,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChE,6DAAmD,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChE,sBAAY,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,kCAAwB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,2BAAiB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,0BAAgB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,mCAAyB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,yBAAe,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,2BAAiB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,uCAA6B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,yBAAe,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,2BAAiB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,kCAAwB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,2BAAiB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,6BAAmB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,iCAAuB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,yCAA+B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,sCAA4B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,8BAAoB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,oCAA0B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,kCAAwB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,6BAAmB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,2BAAiB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,8BAAoB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,oCAA0B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,gCAAsB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,gCAAsB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,8BAAoB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,+CAAqC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,6BAAmB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,6BAAmB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,gCAAsB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,6BAAmB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,6BAAmB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,4BAAkB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,wBAAc,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,oCAA0B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,+BAAqB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,wCAA8B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,yCAA+B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,2BAAiB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,+BAAqB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,6BAAmB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAEzC,qBAAU;AACV,qBAAU;AACV,sBAAW;AACX,0BAAe;AACf,0BAAe;AACf,8BAAmB;AACnB,mBAAQ;AACR,oBAAS;AACT,iCAAsB;AACtB,mBAAQ;AACR,2BAAgB;AAChB,iCAAsB;AACtB,uBAAY;AACZ,0BAAe;AACf,sBAAW;AACX,oCAAyB;AACzB,mCAAwB;AACxB,wBAAa;AACb,2BAAgB;AAChB,4BAAiB;AACjB,2BAAgB;AAChB,yCAA8B;AAC9B,yCAA8B;AAC9B,2BAAgB;AAChB,iCAAsB;AACtB,mCAAwB;AACxB,mCAAwB;AACxB,kCAAuB;AACvB,iCAAsB;AACtB,sCAA2B;AAC3B,wCAA6B;AAC7B,+BAAoB;AACpB,6BAAkB;AAClB,4BAAiB;AACjB,4BAAiB;AACjB,2BAAgB;AAChB,wCAA6B;AAC7B,8BAAmB;AACnB,6BAAkB;AAClB,oCAAyB;AACzB,iCAAsB;AACtB,gCAAqB;AACrB,oCAAyB;AACzB,yBAAc;AACd,gCAAqB;AACrB,gCAAqB;AACrB,gCAAqB;AACrB,uCAA4B;AAC5B,8BAAmB;AACnB,qCAA0B;AAC1B,kCAAuB;AACvB,4CAAiC;AACjC,kCAAuB;AACvB,qCAA0B;AAC1B,sCAA2B;AAC3B,6BAAkB;AAClB,6BAAkB;AAClB,oCAAyB;AACzB,sCAA2B;AAC3B,yCAA8B;AAC9B,oCAAyB;AACzB,2BAAgB;AAChB,wCAA6B;AAC7B,4BAAiB;AACjB,0BAAe;AACf,mCAAwB;AACxB,mCAAwB;AACxB,mCAAwB;AACxB,6BAAkB;AAClB,+BAAoB;AACpB,uCAA4B;AAC5B,0BAAe;AACf,2BAAgB;AAChB,2BAAgB;AAChB,gCAAqB;AACrB,6BAAkB;AAClB,gCAAqB;AACrB,sCAA2B;AAC3B,yBAAc;AACd,oBAAS;AACT,8BAAmB;AACnB,+BAAoB;AACpB,4BAAiB;AACjB,+BAAoB;AACpB,oCAAyB;AACzB,iCAAsB;AACtB,uCAA4B;AAC5B,uCAA4B;AAC5B,iCAAsB;AACtB,kCAAuB;AACvB,8BAAmB;AACnB,2BAAgB;AAChB,0BAAe;AACf,0BAAe;AACf,yBAAc;AACd,iCAAsB;AACtB,4BAAiB;AACjB,iCAAsB;AACtB,gCAAqB;AACrB,mCAAwB;AACxB,gCAAqB;AACrB,qCAA0B;AAC1B,qCAA0B;AAC1B,2BAAgB;AAChB,gCAAqB;AACrB,yBAAc;AACd,gCAAqB;AACrB,kCAAuB;AACvB,oCAAyB;AACzB,gCAAqB;AACrB,gCAAqB;AACrB,gCAAqB;AACrB,gCAAqB;AACrB,gCAAqB;AACrB,2CAAgC;AAChC,iCAAsB;AACtB,6BAAkB;AAClB,gCAAqB;AACrB,8BAAmB;AACnB,8BAAmB;AACnB,0CAA+B;AAC/B,iCAAsB;AACtB,iCAAsB;AACtB,iCAAsB;AACtB,iCAAsB;AACtB,iCAAsB;AACtB,oCAAyB;AACzB,uBAAY;AACZ,6BAAkB;AAClB,gCAAqB;AACrB,gCAAqB;AACrB,+BAAoB;AACpB,kCAAuB;AACvB,oCAAyB;AACzB,gCAAqB;AACrB,mCAAwB;AACxB,wCAA6B;AAC7B,oCAAyB;AACzB,yBAAc;AACd,4BAAiB;AACjB,4BAAiB;AACjB,0CAA+B;AAC/B,mCAAwB;AACxB,uCAA4B;AAC5B,8BAAmB;AACnB,kCAAuB;AACvB,oCAAyB;AACzB,kCAAuB;AACvB,iCAAsB;AACtB,6BAAkB;AAClB,wCAA6B;AAC7B,wCAA6B;AAC7B,uCAA4B;AAC5B,iCAAsB;AACtB,mCAAwB;AACxB,qCAA0B;AAC1B,kCAAuB;AACvB,0CAA+B;AAC/B,2BAAgB;AAChB,8BAAmB;AACnB,8BAAmB;AACnB,0BAAe;AACf,8BAAmB;AACnB,2BAAgB;AAChB,0CAA+B;AAC/B,8CAAmC;AACnC,kCAAuB;AACvB,iCAAsB;AACtB,oCAAyB;AACzB,uCAA4B;AAC5B,6BAAkB;AAClB,oCAAyB;AACzB,qCAA0B;AAC1B,2CAAgC;AAChC,+CAAoC;AACpC,kCAAuB;AACvB,iCAAsB;AACtB,8BAAmB;AACnB,8BAAmB;AACnB,8BAAmB;AACnB,wBAAa;AACb,+BAAoB;AACpB,wBAAa;AACb,oCAAyB;AACzB,8BAAmB;AACnB,iCAAsB;AACtB,iCAAsB;AACtB,4BAAiB;AACjB,gCAAqB;AACrB,iCAAsB;AACtB,iCAAsB;AACtB,mCAAwB;AACxB,mCAAwB;AACxB,sCAA2B;AAC3B,wCAA6B;AAC7B,wCAA6B;AAC7B,0BAAe;AACf,+BAAoB;AACpB,wCAA6B;AAC7B,4BAAiB;AACjB,uBAAY;AACZ,8CAAmC;AACnC,2CAAgC;AAChC,0BAAe;AACf,+BAAoB;AACpB,0CAA+B;AAC/B,0BAAe;AACf,uCAA4B;AAC5B,sCAA2B;AAC3B,uCAA4B;AAC5B,kCAAuB;AACvB,oCAAyB;AACzB,sCAA2B;AAC3B,qCAA0B;AAC1B,4CAAiC;AACjC,wCAA6B;AAC7B,6CAAkC;AAClC,oDAAyC;AACzC,0DAA+C;AAC/C,0DAA+C;AAC/C,mBAAQ;AACR,+BAAoB;AACpB,iCAAsB;AACtB,kCAAuB;AACvB,uCAA4B;AAC5B,mCAAwB;AACxB,wBAAa;AACb,uBAAY;AACZ,gCAAqB;AACrB,2BAAgB;AAChB,0BAAe;AACf,+BAAoB;AACpB,sBAAW;AACX,iCAAsB;AACtB,uBAAY;AACZ,+BAAoB;AACpB,+BAAoB;AACpB,wBAAa;AACb,8BAAmB;AACnB,sCAA2B;AAC3B,oCAAyB;AACzB,wCAA6B;AAC7B,sCAA2B;AAC3B,qCAA0B;AAC1B,oCAAyB;AACzB,sBAAW;AACX,2BAAgB;AAChB,mCAAwB;AACxB,wBAAa;AACb,sCAA2B;AAC3B,sCAA2B;AAC3B,+BAAoB;AACpB,+BAAoB;AACpB,6BAAkB;AAClB,mCAAwB;AACxB,mCAAwB;AACxB,iCAAsB;AACtB,8BAAmB;AACnB,+BAAoB;AACpB,6BAAkB;AAClB,+BAAoB;AACpB,6BAAkB;AAClB,iCAAsB;AACtB,gCAAqB;AACrB,4BAAiB;AACjB,0BAAe;AACf,wBAAa;AACb,sCAA2B;AAC3B,0BAAe;AACf,8BAAmB;AACnB,qCAA0B;AAC1B,sCAA2B;AAC3B,mCAAwB;AACxB,+BAAoB;AACpB,oCAAyB;AACzB,4BAAiB;AACjB,kCAAuB;AACvB,8BAAmB;AACnB,iCAAsB;AACtB,oCAAyB;AACzB,gCAAqB;AACrB,sCAA2B;AAC3B,0BAAe;AACf,0BAAe;AACf,mCAAwB;AACxB,kCAAuB;AACvB,gCAAqB;AACrB,6BAAkB;AAClB,iCAAsB;AACtB,uBAAY;AACZ,+BAAoB;AACpB,8BAAmB;AACnB,+BAAoB;AACpB,gCAAqB;AACrB,2BAAgB;AAChB,iCAAsB;AACtB,+BAAoB;AACpB,+BAAoB;AACpB,+BAAoB;AACpB,gCAAqB;AACrB,+BAAoB;AACpB,6BAAkB;AAClB,0BAAe;AACf,8BAAmB;AACnB,oCAAyB;AACzB,mCAAwB;AACxB,gCAAqB;AACrB,gCAAqB;AACrB,gCAAqB;AACrB,wBAAa;AACb,+BAAoB;AACpB,sCAA2B;AAC3B,+BAAoB;AACpB,4BAAiB;AACjB,2BAAgB;AAChB,kCAAuB;AACvB,oCAAyB;AACzB,4BAAiB;AACjB,iCAAsB;AACtB,6BAAkB;AAClB,6BAAkB;AAClB,mCAAwB;AACxB,2BAAgB;AAChB,iCAAsB;AACtB,iCAAsB;AACtB,2BAAgB;AAChB,+BAAoB;AACpB,4CAAiC;AACjC,qCAA0B;AAC1B,yCAA8B;AAC9B,6BAAkB;AAClB,gCAAqB;AACrB,uCAA4B;AAC5B,qCAA0B;AAC1B,0BAAe;AACf,0BAAe;AACf,oCAAyB;AACzB,kCAAuB;AACvB,6BAAkB;AAClB,6BAAkB;AAClB,qCAA0B;AAC1B,mCAAwB;AACxB,6BAAkB;AAClB,qCAA0B;AAC1B,mCAAwB;AACxB,0BAAe;AACf,0BAAe;AACf,yBAAc;AACd,qBAAU;AACV,4BAAiB;AACjB,sCAA2B;AAC3B,sCAA2B;AAC3B,sCAA2B;AAC3B,iCAAsB;AACtB,qCAA0B;AAC1B,4BAAiB;AACjB,kCAAuB;AACvB,gCAAqB;AACrB,4BAAiB;AACjB,gCAAqB;AACrB,sCAA2B;AAC3B,wCAA6B;AAC7B,qCAA0B;AAC1B,6BAAkB;AAClB,iCAAsB;AACtB,sCAA2B;AAC3B,wBAAa;AACb,uCAA4B;AAC5B,gCAAqB;AACrB,4BAAiB;AACjB,iCAAsB;AACtB,kCAAuB;AACvB,8BAAmB;AACnB,2BAAgB;AAChB,8BAAmB;AACnB,0BAAe;AACf,2CAAgC;AAChC,mCAAwB;AACxB;AACE,qBAAQ,kBAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,UAAW,cAAlB;AACR,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,SAAC,CAAS,mCAAT;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,SAAC,CAAS,mCAAT;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,CAAR;AACZ,wBAAW,OAAC,CAAO,EAAP;AACZ,wBAAW,SAAC,CAAS,GAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,oBAAC,CAAoB,OAApB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,cAAC,CAAc,2CAAd;AACZ,wBAAW,SAAC,CAAS,mCAAT;AACZ,wBAAW,eAAC,CAAe,QAAf;AACZ,wBAAW,gBAAC,CAAc,CAAd;AACZ,wBAAW,aAAC,CAAa,KAAb;AACZ,wBAAW,0BAAC,CAA0B,YAA1B;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,wBAAW,yBAAC,CAAyB,sBAAzB;AACZ,wBAAW,YAAC,CAAY,IAAZ;AACZ,wBAAW,YAAC,CAAY,CAAZ;AACZ,wBAAW,YAAC,CAAY,EAAZ;AACZ,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,CAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,4BAAe,SAAC,CAAS,EAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,WAAC,CAAW,WAAX;AAChB,4BAAe,gBAAC,CAAc,CAAd;AAChB,4BAAe,oBAAC,CAAoB,mCAApB;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,mBAAC,CAAmB,gDAAnB;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,iBAAC,CAAiB,sBAAjB;AAChB,4BAAe,cAAC,CAAc,wCAAd;AAChB,4BAAe,gBAAC,CAAgB,sBAAhB;AAChB,uBAAQ,CAAC,qBAAiB,KAAM,UAAW,sBAAnC;AACR,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,CAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,4BAAe,SAAC,CAAS,EAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,WAAC,CAAW,WAAX;AAChB,4BAAe,gBAAC,CAAc,CAAd;AAChB,4BAAe,oBAAC,CAAoB,mCAApB;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,mBAAC,CAAmB,gDAAnB;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,iBAAC,CAAiB,sBAAjB;AAChB,4BAAe,cAAC,CAAc,wCAAd;AAChB,4BAAe,gBAAC,CAAgB,sBAAhB;AAChB,uBAAQ,CAAC,qBAAiB,KAAM,UAAW,sBAAnC;AACR,gCAAmB,mBAAmB,CAAC,IAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,QAAC,CAAQ,CAAR;AACpB,gCAAmB,OAAC,CAAO,GAAP;AACpB,gCAAmB,SAAC,CAAS,EAAT;AACpB,gCAAmB,UAAC,CAAU,EAAV;AACpB,gCAAmB,WAAC,CAAW,mBAAX;AACpB,gCAAmB,gBAAC,CAAc,CAAd;AACpB,gCAAmB,oBAAC,CAAoB,mCAApB;AACpB,gCAAmB,eAAC,CAAe,yCAAf;AACpB,gCAAmB,mBAAC,CAAmB,gDAAnB;AACpB,gCAAmB,eAAC,CAAe,wCAAf;AACpB,gCAAmB,iBAAC,CAAiB,sBAAjB;AACpB,gCAAmB,cAAC,CAAc,wCAAd;AACpB,gCAAmB,gBAAC,CAAgB,sBAAhB;AACpB,uBAAQ,CAAC,yBAAqB,KAAM,UAAW,0BAAvC;AACR,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,CAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,qBAAQ,SAAC,CAAS,GAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,gBAAC,CAAc,EAAd;AACT,qBAAQ,YAAC,CAAY,0CAAZ;AACT,qBAAQ,oBAAC,CAAoB,8BAApB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,cAAC,CAAc,2CAAd;AACT,qBAAQ,gBAAC,CAAgB,qBAAhB;AACT,qBAAQ,aAAC,CAAa,OAAb;AACT,qBAAQ,cAAC,CAAc,mBAAd;AACT,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,QAAC,CAAQ,CAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,sBAAS,SAAC,CAAS,GAAT;AACV,sBAAS,UAAC,CAAU,EAAV;AACV,sBAAS,gBAAC,CAAc,EAAd;AACV,sBAAS,YAAC,CAAY,0CAAZ;AACV,sBAAS,oBAAC,CAAoB,8BAApB;AACV,sBAAS,eAAC,CAAe,yCAAf;AACV,sBAAS,mBAAC,CAAmB,gDAAnB;AACV,sBAAS,eAAC,CAAe,wCAAf;AACV,sBAAS,iBAAC,CAAiB,sBAAjB;AACV,sBAAS,cAAC,CAAc,2CAAd;AACV,sBAAS,gBAAC,CAAgB,qBAAhB;AACV,sBAAS,aAAC,CAAa,QAAb;AACV,sBAAS,cAAC,CAAc,mBAAd;AACV,mCAAsB,mBAAmB,CAAC,IAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,QAAC,CAAQ,CAAR;AACvB,mCAAsB,OAAC,CAAO,GAAP;AACvB,mCAAsB,SAAC,CAAS,GAAT;AACvB,mCAAsB,UAAC,CAAU,EAAV;AACvB,mCAAsB,gBAAC,CAAc,EAAd;AACvB,mCAAsB,oBAAC,CAAoB,8BAApB;AACvB,mCAAsB,eAAC,CAAe,yCAAf;AACvB,mCAAsB,mBAAC,CAAmB,gDAAnB;AACvB,mCAAsB,eAAC,CAAe,wCAAf;AACvB,mCAAsB,iBAAC,CAAiB,sBAAjB;AACvB,mCAAsB,cAAC,CAAc,2CAAd;AACvB,mCAAsB,gBAAC,CAAgB,qBAAhB;AACvB,mCAAsB,aAAC,CAAa,qBAAb;AACvB,mCAAsB,cAAC,CAAc,mBAAd;AACvB,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,CAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,qBAAQ,SAAC,CAAS,GAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,gBAAC,CAAc,EAAd;AACT,qBAAQ,YAAC,CAAY,8CAAZ;AACT,qBAAQ,oBAAC,CAAoB,8BAApB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,cAAC,CAAc,2CAAd;AACT,qBAAQ,gBAAC,CAAgB,qBAAhB;AACT,qBAAQ,aAAC,CAAa,OAAb;AACT,qBAAQ,cAAC,CAAc,mBAAd;AACT,6BAAgB,mBAAmB,CAAC,IAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,QAAC,CAAQ,CAAR;AACjB,6BAAgB,OAAC,CAAO,GAAP;AACjB,6BAAgB,SAAC,CAAS,EAAT;AACjB,6BAAgB,UAAC,CAAU,EAAV;AACjB,6BAAgB,WAAC,CAAW,iBAAX;AACjB,6BAAgB,gBAAC,CAAc,CAAd;AACjB,6BAAgB,oBAAC,CAAoB,mCAApB;AACjB,6BAAgB,eAAC,CAAe,yCAAf;AACjB,6BAAgB,mBAAC,CAAmB,gDAAnB;AACjB,6BAAgB,eAAC,CAAe,wCAAf;AACjB,6BAAgB,iBAAC,CAAiB,sBAAjB;AACjB,6BAAgB,cAAC,CAAc,wCAAd;AACjB,6BAAgB,gBAAC,CAAgB,sBAAhB;AACjB,uBAAQ,CAAC,sBAAkB,KAAM,UAAW,uBAApC;AACR,mCAAsB,mBAAmB,CAAC,IAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,QAAC,CAAQ,GAAR;AACvB,mCAAsB,OAAC,CAAO,GAAP;AACvB,mCAAsB,SAAC,CAAS,GAAT;AACvB,mCAAsB,UAAC,CAAU,GAAV;AACvB,mCAAsB,eAAC,CAAe,0CAAf;AACvB,mCAAsB,oBAAC,CAAoB,8BAApB;AACvB,mCAAsB,eAAC,CAAe,yCAAf;AACvB,mCAAsB,mBAAC,CAAmB,gDAAnB;AACvB,mCAAsB,iBAAC,CAAiB,sBAAjB;AACvB,mCAAsB,OAAM;AAC5B;AACE,qCAAsB,OAAM;AAC5B,qCAAsB,OAAM,IAAI,CAAC,wBAAD;AAFlC;AAIE,qCAAsB,OAAM;AAJ9B;AAMA,mCAAsB,aAAC,CAAa,CAAb;AACvB,mCAAsB,YAAC,CAAY,CAAZ;AACvB,mCAAsB,cAAC,CAAc,2CAAd;AACvB,mCAAsB,gBAAC,CAAgB,qBAAhB;AACvB,mCAAsB,aAAC,CAAa,qBAAb;AACvB,mCAAsB,cAAC,CAAc,mBAAd;AACvB,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,QAAC,CAAQ,CAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,GAAT;AACb,yBAAY,UAAC,CAAU,EAAV;AACb,yBAAY,oBAAC,CAAoB,8BAApB;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,mBAAC,CAAmB,gDAAnB;AACb,yBAAY,eAAC,CAAe,wCAAf;AACb,yBAAY,iBAAC,CAAiB,sBAAjB;AACb,yBAAY,cAAC,CAAc,2CAAd;AACb,yBAAY,gBAAC,CAAgB,qBAAhB;AACb,yBAAY,aAAC,CAAa,aAAb;AACb,yBAAY,cAAC,CAAc,mBAAd;AACb,yBAAY,YAAC,CAAY,aAAZ;AACb,yBAAY,aAAC,CAAa,aAAb;AACb,yBAAY,cAAC,CAAc,aAAG,kBAAjB;AACb,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,CAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,4BAAe,SAAC,CAAS,EAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,WAAC,CAAW,OAAX;AAChB,4BAAe,gBAAC,CAAc,CAAd;AAChB,4BAAe,oBAAC,CAAoB,mCAApB;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,mBAAC,CAAmB,gDAAnB;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,iBAAC,CAAiB,sBAAjB;AAChB,4BAAe,WAAC,CAAW,KAAX;AAChB,4BAAe,cAAC,CAAc,wCAAd;AAChB,4BAAe,gBAAC,CAAgB,sBAAhB;AAChB,uBAAQ,CAAC,qBAAiB,KAAM,UAAW,sBAAnC;AACR,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,mBAAX,GAAiC;AACjC,wBAAW,WAAX,GAAyB;AACzB,wBAAW,YAAX,GAA0B;AAC1B,wBAAW,WAAX,GAAyB;AACzB,wBAAW,aAAX,GAA2B;AAC3B,uBAAQ,CAAC,iBAAa,KAAM,cAAe,sBAAnC;AACR,wBAAW,iBAAC,CAAiB,oBAAjB;AACZ,wBAAW,cAAC,CAAc,aAAG,oBAAjB;AACZ,wBAAW,UAAX,GAAwB;AACxB,wBAAW,QAAC,CAAQ,EAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,sCAAyB,mBAAmB,CAAC,gBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,qCAAwB,mBAAmB,CAAC,gBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,0BAAa,mBAAmB,CAAC,gBAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,6BAAgB,mBAAmB,CAAC,gBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,UAAhB,GAA6B;AAC7B,8BAAiB,mBAAmB,CAAC,gBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,6BAAgB,mBAAmB,CAAC,gBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,2CAA8B,mBAAmB,CAAC,gBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,2CAA8B,mBAAmB,CAAC,gBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,GAAR;AAC/B,6BAAgB,mBAAmB,CAAC,gBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,mCAAsB,mBAAmB,CAAC,gBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,qCAAwB,mBAAmB,CAAC,gBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,mBAAmB,CAAC,gBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,oCAAuB,mBAAmB,CAAC,gBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,mCAAsB,mBAAmB,CAAC,gBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,wCAA2B,mBAAmB,CAAC,gBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,0CAA6B,mBAAmB,CAAC,gBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,iCAAoB,mBAAmB,CAAC,gBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,+BAAkB,mBAAmB,CAAC,gBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,8BAAiB,mBAAmB,CAAC,gBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,mBAAmB,CAAC,gBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,6BAAgB,mBAAmB,CAAC,gBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,0CAA6B,mBAAmB,CAAC,gBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,gCAAmB,mBAAmB,CAAC,gBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,+BAAkB,mBAAmB,CAAC,gBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,sCAAyB,mBAAmB,CAAC,gBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,mCAAsB,mBAAmB,CAAC,gBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,kCAAqB,mBAAmB,CAAC,gBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,sCAAyB,mBAAmB,CAAC,gBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,2BAAc,mBAAmB,CAAC,gBAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,kCAAqB,mBAAmB,CAAC,gBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,kCAAqB,mBAAmB,CAAC,gBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,kCAAqB,mBAAmB,CAAC,gBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,yCAA4B,mBAAmB,CAAC,gBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,gCAAmB,mBAAmB,CAAC,gBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,uCAA0B,mBAAmB,CAAC,gBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,oCAAuB,mBAAmB,CAAC,gBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,8CAAiC,mBAAmB,CAAC,gBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,GAAR;AAClC,oCAAuB,mBAAmB,CAAC,gBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,uCAA0B,mBAAmB,CAAC,gBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,wCAA2B,mBAAmB,CAAC,gBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,+BAAkB,mBAAmB,CAAC,gBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,+BAAkB,mBAAmB,CAAC,gBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,sCAAyB,mBAAmB,CAAC,gBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,wCAA2B,mBAAmB,CAAC,gBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,2CAA8B,mBAAmB,CAAC,gBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,sCAAyB,mBAAmB,CAAC,gBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,GAAR;AAC1B,6BAAgB,mBAAmB,CAAC,gBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,0CAA6B,mBAAmB,CAAC,gBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,8BAAiB,mBAAmB,CAAC,gBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,4BAAe,mBAAmB,CAAC,gBAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,qCAAwB,mBAAmB,CAAC,gBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,mBAAmB,CAAC,gBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,mBAAmB,CAAC,gBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,+BAAkB,mBAAmB,CAAC,gBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,iCAAoB,mBAAmB,CAAC,gBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,yCAA4B,mBAAmB,CAAC,gBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,4BAAe,mBAAmB,CAAC,gBAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,6BAAgB,mBAAmB,CAAC,gBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,6BAAgB,mBAAmB,CAAC,gBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,kCAAqB,mBAAmB,CAAC,gBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,+BAAkB,mBAAmB,CAAC,gBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,kCAAqB,mBAAmB,CAAC,gBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,wCAA2B,mBAAmB,CAAC,gBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,GAAR;AAC5B,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAC,CAAW,gBAAX;AACf,uBAAQ,CAAC,oBAAgB,KAAM,gBAAiB,2BAAxC;AACR,2BAAc,QAAC,CAAQ,EAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,WAAT,GAAuB;AACvB,sBAAS,iBAAC,CAAiB,SAAjB;AACV,sBAAS,cAAC,CAAc,aAAG,oBAAjB;AACV,sBAAS,iBAAC,CAAiB,CAAjB;AACV,sBAAS,UAAT,GAAsB;AACtB,sBAAS,QAAC,CAAQ,GAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,UAAnB,GAAgC;AAChC,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,UAApB,GAAiC;AACjC,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,UAAtB,GAAmC;AACnC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,yCAA4B,mBAAmB,CAAC,cAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,yCAA4B,mBAAmB,CAAC,cAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,GAAR;AAC7B,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,GAAR;AACpB,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,4BAAe,mBAAmB,CAAC,cAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,mBAAmB,CAAC,cAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,2BAAc,mBAAmB,CAAC,cAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,qCAAwB,mBAAmB,CAAC,cAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,uCAA0B,mBAAmB,CAAC,cAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,mBAAmB,CAAC,cAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,2BAAc,mBAAmB,CAAC,cAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,6CAAgC,mBAAmB,CAAC,cAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,4CAA+B,mBAAmB,CAAC,cAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,GAAR;AAChC,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,yBAAY,mBAAmB,CAAC,cAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,QAAC,CAAQ,EAAR;AACb,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,qCAAwB,mBAAmB,CAAC,cAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,0CAA6B,mBAAmB,CAAC,cAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,2BAAc,mBAAmB,CAAC,cAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,4CAA+B,mBAAmB,CAAC,cAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,qCAAwB,mBAAmB,CAAC,cAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,yCAA4B,mBAAmB,CAAC,cAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,CAAR;AACvB,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,0CAA6B,mBAAmB,CAAC,cAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,mBAAmB,CAAC,cAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,yCAA4B,mBAAmB,CAAC,cAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,qCAAwB,mBAAmB,CAAC,cAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,uCAA0B,mBAAmB,CAAC,cAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,4CAA+B,mBAAmB,CAAC,cAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,4BAAe,mBAAmB,CAAC,cAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,4CAA+B,mBAAmB,CAAC,cAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,gDAAmC,mBAAmB,CAAC,cAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,yCAA4B,mBAAmB,CAAC,cAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,uCAA0B,mBAAmB,CAAC,cAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,6CAAgC,mBAAmB,CAAC,cAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,GAAR;AACjC,iDAAoC,mBAAmB,CAAC,cAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,QAAC,CAAQ,GAAR;AACrC,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,0BAAa,mBAAmB,CAAC,cAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,0BAAa,mBAAmB,CAAC,cAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,GAAR;AAC1B,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,qCAAwB,mBAAmB,CAAC,cAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,mBAAmB,CAAC,cAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,wCAA2B,mBAAmB,CAAC,cAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,0CAA6B,mBAAmB,CAAC,cAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,mBAAmB,CAAC,cAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,4BAAe,mBAAmB,CAAC,cAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,0CAA6B,mBAAmB,CAAC,cAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,yBAAY,mBAAmB,CAAC,cAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,gDAAmC,mBAAmB,CAAC,cAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,gDAAmC,QAAC,CAAQ,GAAR;AACpC,6CAAgC,mBAAmB,CAAC,cAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,4BAAe,mBAAmB,CAAC,cAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,CAAR;AAChB,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,4CAA+B,mBAAmB,CAAC,cAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,iBAAC,CAAiB,qBAAjB;AAChB,4BAAe,cAAC,CAAc,aAAG,oBAAjB;AAChB,4BAAe,iBAAC,CAAiB,CAAjB;AAChB,4BAAe,aAAf,GAA+B;AAC/B,4BAAe,QAAC,CAAQ,GAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,yCAA4B,mBAAmB,CAAC,oBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,UAA5B,GAAyC;AACzC,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,UAA3B,GAAwC;AACxC,yCAA4B,mBAAmB,CAAC,oBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,oCAAuB,mBAAmB,CAAC,oBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,sCAAyB,mBAAmB,CAAC,oBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,uCAA0B,mBAAmB,CAAC,oBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,8CAAiC,mBAAmB,CAAC,oBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,EAAR;AAClC,0CAA6B,mBAAmB,CAAC,oBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,+CAAkC,mBAAmB,CAAC,oBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,EAAR;AACnC,sDAAyC,mBAAmB,CAAC,oBAAD;AAC5D,sDAAyC,QAAC,CAAQ,2CAAR;AAC1C,sDAAyC,WAAzC,GAAuD;AACvD,sDAAyC,QAAC,CAAQ,EAAR;AAC1C,4DAA+C,mBAAmB,CAAC,oBAAD;AAClE,4DAA+C,QAAC,CAAQ,iDAAR;AAChD,4DAA+C,WAA/C,GAA6D;AAC7D,4DAA+C,QAAC,CAAQ,EAAR;AAChD,4DAA+C,mBAAmB,CAAC,oBAAD;AAClE,4DAA+C,QAAC,CAAQ,iDAAR;AAChD,4DAA+C,WAA/C,GAA6D;AAC7D,4DAA+C,QAAC,CAAQ,GAAR;AAChD,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,WAAR,GAAsB;AACtB,qBAAQ,iBAAC,CAAiB,UAAjB;AACT,qBAAQ,cAAC,CAAc,aAAG,oBAAjB;AACT,qBAAQ,iBAAC,CAAiB,CAAjB;AACT,qBAAQ,aAAR,GAAwB;AACxB,qBAAQ,QAAC,CAAQ,GAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,UAApB,GAAiC;AACjC,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,UAAtB,GAAmC;AACnC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,oCAAuB,mBAAmB,CAAC,aAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,yCAA4B,mBAAmB,CAAC,aAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,qCAAwB,mBAAmB,CAAC,aAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,0BAAa,mBAAmB,CAAC,aAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,UAAb,GAA0B;AAC1B,yBAAY,mBAAmB,CAAC,aAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,6BAAgB,mBAAmB,CAAC,aAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,4BAAe,mBAAmB,CAAC,aAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,EAAR;AAChB,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,wBAAW,mBAAmB,CAAC,aAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,wBAAW,QAAC,CAAQ,EAAR;AACZ,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,CAAR;AACvB,yBAAY,mBAAmB,CAAC,aAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,QAAC,CAAQ,EAAR;AACb,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,GAAR;AACrB,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,0BAAa,mBAAmB,CAAC,aAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,QAAC,CAAQ,EAAR;AACd,gCAAmB,mBAAmB,CAAC,aAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,GAAR;AACpB,wCAA2B,mBAAmB,CAAC,aAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,GAAR;AAC5B,sCAAyB,mBAAmB,CAAC,aAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,0CAA6B,mBAAmB,CAAC,aAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,GAAR;AAC9B,wCAA2B,mBAAmB,CAAC,aAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,GAAR;AAC5B,uCAA0B,mBAAmB,CAAC,aAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,sCAAyB,mBAAmB,CAAC,aAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,wBAAW,mBAAmB,CAAC,aAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,wBAAW,QAAC,CAAQ,EAAR;AACZ,6BAAgB,mBAAmB,CAAC,aAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,GAAR;AACjB,qCAAwB,mBAAmB,CAAC,aAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,GAAR;AACzB,0BAAa,mBAAmB,CAAC,aAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,QAAC,CAAQ,GAAR;AACd,wCAA2B,mBAAmB,CAAC,aAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,mBAAmB,CAAC,aAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,qCAAwB,mBAAmB,CAAC,aAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,mBAAmB,CAAC,aAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,gCAAmB,mBAAmB,CAAC,aAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,8BAAiB,mBAAmB,CAAC,aAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,4BAAe,mBAAmB,CAAC,aAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,EAAR;AAChB,0BAAa,mBAAmB,CAAC,aAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,wCAA2B,mBAAmB,CAAC,aAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,4BAAe,mBAAmB,CAAC,aAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,gCAAmB,mBAAmB,CAAC,aAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,uCAA0B,mBAAmB,CAAC,aAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,GAAR;AAC3B,wCAA2B,mBAAmB,CAAC,aAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,qCAAwB,mBAAmB,CAAC,aAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,sCAAyB,mBAAmB,CAAC,aAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,8BAAiB,mBAAmB,CAAC,aAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,GAAR;AAClB,oCAAuB,mBAAmB,CAAC,aAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,gCAAmB,mBAAmB,CAAC,aAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,sCAAyB,mBAAmB,CAAC,aAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,wCAA2B,mBAAmB,CAAC,aAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,4BAAe,mBAAmB,CAAC,aAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,CAAR;AAChB,4BAAe,mBAAmB,CAAC,aAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,EAAR;AAChB,qCAAwB,mBAAmB,CAAC,aAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,oCAAuB,mBAAmB,CAAC,aAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,yBAAY,mBAAmB,CAAC,aAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,QAAC,CAAQ,EAAR;AACb,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,gCAAmB,mBAAmB,CAAC,aAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,6BAAgB,mBAAmB,CAAC,aAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,4BAAe,mBAAmB,CAAC,aAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,gCAAmB,mBAAmB,CAAC,aAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,sCAAyB,mBAAmB,CAAC,aAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,qCAAwB,mBAAmB,CAAC,aAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,0BAAa,mBAAmB,CAAC,aAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,QAAC,CAAQ,GAAR;AACd,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,wCAA2B,mBAAmB,CAAC,aAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,8BAAiB,mBAAmB,CAAC,aAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,6BAAgB,mBAAmB,CAAC,aAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,oCAAuB,mBAAmB,CAAC,aAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,GAAR;AACxB,sCAAyB,mBAAmB,CAAC,aAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,8BAAiB,mBAAmB,CAAC,aAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,GAAR;AAClB,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,qCAAwB,mBAAmB,CAAC,aAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,6BAAgB,mBAAmB,CAAC,aAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,6BAAgB,mBAAmB,CAAC,aAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,CAAR;AACjB,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,8CAAiC,mBAAmB,CAAC,aAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,uCAA0B,mBAAmB,CAAC,aAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,GAAR;AAC3B,2CAA8B,mBAAmB,CAAC,aAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,yCAA4B,mBAAmB,CAAC,aAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,uCAA0B,mBAAmB,CAAC,aAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,4BAAe,mBAAmB,CAAC,aAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,mBAAmB,CAAC,aAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,sCAAyB,mBAAmB,CAAC,aAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,oCAAuB,mBAAmB,CAAC,aAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,GAAR;AACnB,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,GAAR;AACnB,uCAA0B,mBAAmB,CAAC,aAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,qCAAwB,mBAAmB,CAAC,aAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,uCAA0B,mBAAmB,CAAC,aAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,qCAAwB,mBAAmB,CAAC,aAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,4BAAe,mBAAmB,CAAC,aAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,mBAAmB,CAAC,aAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,2BAAc,mBAAmB,CAAC,aAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,uBAAU,mBAAmB,CAAC,aAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,WAAV,GAAwB;AACxB,8BAAiB,mBAAmB,CAAC,aAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,GAAR;AAClB,wCAA2B,mBAAmB,CAAC,aAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,mBAAmB,CAAC,aAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,mBAAmB,CAAC,aAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,uCAA0B,mBAAmB,CAAC,aAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,8BAAiB,mBAAmB,CAAC,aAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,oCAAuB,mBAAmB,CAAC,aAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,8BAAiB,mBAAmB,CAAC,aAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,wCAA2B,mBAAmB,CAAC,aAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,0CAA6B,mBAAmB,CAAC,aAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,uCAA0B,mBAAmB,CAAC,aAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,+BAAkB,mBAAmB,CAAC,aAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,wCAA2B,mBAAmB,CAAC,aAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,0BAAa,mBAAmB,CAAC,aAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,QAAC,CAAQ,EAAR;AACd,yCAA4B,mBAAmB,CAAC,aAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,GAAR;AAC7B,kCAAqB,mBAAmB,CAAC,aAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,8BAAiB,mBAAmB,CAAC,aAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,oCAAuB,mBAAmB,CAAC,aAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,gCAAmB,mBAAmB,CAAC,aAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,GAAR;AACpB,6BAAgB,mBAAmB,CAAC,aAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,GAAR;AACjB,gCAAmB,mBAAmB,CAAC,aAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,4BAAe,mBAAmB,CAAC,aAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,6CAAgC,mBAAmB,CAAC,aAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,qCAAwB,mBAAmB,CAAC,aAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,GAAR;AA7+C3B;AA++CE,uBAAU;AACV,uBAAU;AACV,wBAAW;AACX,4BAAe;AACf,4BAAe;AACf,gCAAmB;AACnB,qBAAQ;AACR,sBAAS;AACT,mCAAsB;AACtB,qBAAQ;AACR,6BAAgB;AAChB,mCAAsB;AACtB,yBAAY;AACZ,4BAAe;AACf,wBAAW;AACX,sCAAyB;AACzB,qCAAwB;AACxB,0BAAa;AACb,6BAAgB;AAChB,8BAAiB;AACjB,6BAAgB;AAChB,2CAA8B;AAC9B,2CAA8B;AAC9B,6BAAgB;AAChB,mCAAsB;AACtB,qCAAwB;AACxB,qCAAwB;AACxB,oCAAuB;AACvB,mCAAsB;AACtB,wCAA2B;AAC3B,0CAA6B;AAC7B,iCAAoB;AACpB,+BAAkB;AAClB,8BAAiB;AACjB,8BAAiB;AACjB,6BAAgB;AAChB,0CAA6B;AAC7B,gCAAmB;AACnB,+BAAkB;AAClB,sCAAyB;AACzB,mCAAsB;AACtB,kCAAqB;AACrB,sCAAyB;AACzB,2BAAc;AACd,kCAAqB;AACrB,kCAAqB;AACrB,kCAAqB;AACrB,yCAA4B;AAC5B,gCAAmB;AACnB,uCAA0B;AAC1B,oCAAuB;AACvB,8CAAiC;AACjC,oCAAuB;AACvB,uCAA0B;AAC1B,wCAA2B;AAC3B,+BAAkB;AAClB,+BAAkB;AAClB,sCAAyB;AACzB,wCAA2B;AAC3B,2CAA8B;AAC9B,sCAAyB;AACzB,6BAAgB;AAChB,0CAA6B;AAC7B,8BAAiB;AACjB,4BAAe;AACf,qCAAwB;AACxB,qCAAwB;AACxB,qCAAwB;AACxB,+BAAkB;AAClB,iCAAoB;AACpB,yCAA4B;AAC5B,4BAAe;AACf,6BAAgB;AAChB,6BAAgB;AAChB,kCAAqB;AACrB,+BAAkB;AAClB,kCAAqB;AACrB,wCAA2B;AAC3B,2BAAc;AACd,sBAAS;AACT,gCAAmB;AACnB,iCAAoB;AACpB,8BAAiB;AACjB,iCAAoB;AACpB,sCAAyB;AACzB,mCAAsB;AACtB,yCAA4B;AAC5B,yCAA4B;AAC5B,mCAAsB;AACtB,oCAAuB;AACvB,gCAAmB;AACnB,6BAAgB;AAChB,4BAAe;AACf,4BAAe;AACf,2BAAc;AACd,mCAAsB;AACtB,8BAAiB;AACjB,mCAAsB;AACtB,kCAAqB;AACrB,qCAAwB;AACxB,kCAAqB;AACrB,uCAA0B;AAC1B,uCAA0B;AAC1B,6BAAgB;AAChB,kCAAqB;AACrB,2BAAc;AACd,kCAAqB;AACrB,oCAAuB;AACvB,sCAAyB;AACzB,kCAAqB;AACrB,kCAAqB;AACrB,kCAAqB;AACrB,kCAAqB;AACrB,kCAAqB;AACrB,6CAAgC;AAChC,mCAAsB;AACtB,+BAAkB;AAClB,kCAAqB;AACrB,gCAAmB;AACnB,gCAAmB;AACnB,4CAA+B;AAC/B,mCAAsB;AACtB,mCAAsB;AACtB,mCAAsB;AACtB,mCAAsB;AACtB,mCAAsB;AACtB,sCAAyB;AACzB,yBAAY;AACZ,+BAAkB;AAClB,kCAAqB;AACrB,kCAAqB;AACrB,iCAAoB;AACpB,oCAAuB;AACvB,sCAAyB;AACzB,kCAAqB;AACrB,qCAAwB;AACxB,0CAA6B;AAC7B,sCAAyB;AACzB,2BAAc;AACd,8BAAiB;AACjB,8BAAiB;AACjB,4CAA+B;AAC/B,qCAAwB;AACxB,yCAA4B;AAC5B,gCAAmB;AACnB,oCAAuB;AACvB,sCAAyB;AACzB,oCAAuB;AACvB,mCAAsB;AACtB,+BAAkB;AAClB,0CAA6B;AAC7B,0CAA6B;AAC7B,yCAA4B;AAC5B,mCAAsB;AACtB,qCAAwB;AACxB,uCAA0B;AAC1B,oCAAuB;AACvB,4CAA+B;AAC/B,6BAAgB;AAChB,gCAAmB;AACnB,gCAAmB;AACnB,4BAAe;AACf,gCAAmB;AACnB,6BAAgB;AAChB,4CAA+B;AAC/B,gDAAmC;AACnC,oCAAuB;AACvB,mCAAsB;AACtB,sCAAyB;AACzB,yCAA4B;AAC5B,+BAAkB;AAClB,sCAAyB;AACzB,uCAA0B;AAC1B,6CAAgC;AAChC,iDAAoC;AACpC,oCAAuB;AACvB,mCAAsB;AACtB,gCAAmB;AACnB,gCAAmB;AACnB,gCAAmB;AACnB,0BAAa;AACb,iCAAoB;AACpB,0BAAa;AACb,sCAAyB;AACzB,gCAAmB;AACnB,mCAAsB;AACtB,mCAAsB;AACtB,8BAAiB;AACjB,kCAAqB;AACrB,mCAAsB;AACtB,mCAAsB;AACtB,qCAAwB;AACxB,qCAAwB;AACxB,wCAA2B;AAC3B,0CAA6B;AAC7B,0CAA6B;AAC7B,4BAAe;AACf,iCAAoB;AACpB,0CAA6B;AAC7B,8BAAiB;AACjB,yBAAY;AACZ,gDAAmC;AACnC,6CAAgC;AAChC,4BAAe;AACf,iCAAoB;AACpB,4CAA+B;AAC/B,4BAAe;AACf,yCAA4B;AAC5B,wCAA2B;AAC3B,yCAA4B;AAC5B,oCAAuB;AACvB,sCAAyB;AACzB,wCAA2B;AAC3B,uCAA0B;AAC1B,8CAAiC;AACjC,0CAA6B;AAC7B,+CAAkC;AAClC,sDAAyC;AACzC,4DAA+C;AAC/C,4DAA+C;AAC/C,qBAAQ;AACR,iCAAoB;AACpB,mCAAsB;AACtB,oCAAuB;AACvB,yCAA4B;AAC5B,qCAAwB;AACxB,0BAAa;AACb,yBAAY;AACZ,kCAAqB;AACrB,6BAAgB;AAChB,4BAAe;AACf,iCAAoB;AACpB,wBAAW;AACX,mCAAsB;AACtB,yBAAY;AACZ,iCAAoB;AACpB,iCAAoB;AACpB,0BAAa;AACb,gCAAmB;AACnB,wCAA2B;AAC3B,sCAAyB;AACzB,0CAA6B;AAC7B,wCAA2B;AAC3B,uCAA0B;AAC1B,sCAAyB;AACzB,wBAAW;AACX,6BAAgB;AAChB,qCAAwB;AACxB,0BAAa;AACb,wCAA2B;AAC3B,wCAA2B;AAC3B,iCAAoB;AACpB,iCAAoB;AACpB,+BAAkB;AAClB,qCAAwB;AACxB,qCAAwB;AACxB,mCAAsB;AACtB,gCAAmB;AACnB,iCAAoB;AACpB,+BAAkB;AAClB,iCAAoB;AACpB,+BAAkB;AAClB,mCAAsB;AACtB,kCAAqB;AACrB,8BAAiB;AACjB,4BAAe;AACf,0BAAa;AACb,wCAA2B;AAC3B,4BAAe;AACf,gCAAmB;AACnB,uCAA0B;AAC1B,wCAA2B;AAC3B,qCAAwB;AACxB,iCAAoB;AACpB,sCAAyB;AACzB,8BAAiB;AACjB,oCAAuB;AACvB,gCAAmB;AACnB,mCAAsB;AACtB,sCAAyB;AACzB,kCAAqB;AACrB,wCAA2B;AAC3B,4BAAe;AACf,4BAAe;AACf,qCAAwB;AACxB,oCAAuB;AACvB,kCAAqB;AACrB,+BAAkB;AAClB,mCAAsB;AACtB,yBAAY;AACZ,iCAAoB;AACpB,gCAAmB;AACnB,iCAAoB;AACpB,kCAAqB;AACrB,6BAAgB;AAChB,mCAAsB;AACtB,iCAAoB;AACpB,iCAAoB;AACpB,iCAAoB;AACpB,kCAAqB;AACrB,iCAAoB;AACpB,+BAAkB;AAClB,4BAAe;AACf,gCAAmB;AACnB,sCAAyB;AACzB,qCAAwB;AACxB,kCAAqB;AACrB,kCAAqB;AACrB,kCAAqB;AACrB,0BAAa;AACb,iCAAoB;AACpB,wCAA2B;AAC3B,iCAAoB;AACpB,8BAAiB;AACjB,6BAAgB;AAChB,oCAAuB;AACvB,sCAAyB;AACzB,8BAAiB;AACjB,mCAAsB;AACtB,+BAAkB;AAClB,+BAAkB;AAClB,qCAAwB;AACxB,6BAAgB;AAChB,mCAAsB;AACtB,mCAAsB;AACtB,6BAAgB;AAChB,iCAAoB;AACpB,8CAAiC;AACjC,uCAA0B;AAC1B,2CAA8B;AAC9B,+BAAkB;AAClB,kCAAqB;AACrB,yCAA4B;AAC5B,uCAA0B;AAC1B,4BAAe;AACf,4BAAe;AACf,sCAAyB;AACzB,oCAAuB;AACvB,+BAAkB;AAClB,+BAAkB;AAClB,uCAA0B;AAC1B,qCAAwB;AACxB,+BAAkB;AAClB,uCAA0B;AAC1B,qCAAwB;AACxB,4BAAe;AACf,4BAAe;AACf,2BAAc;AACd,uBAAU;AACV,8BAAiB;AACjB,wCAA2B;AAC3B,wCAA2B;AAC3B,wCAA2B;AAC3B,mCAAsB;AACtB,uCAA0B;AAC1B,8BAAiB;AACjB,oCAAuB;AACvB,kCAAqB;AACrB,8BAAiB;AACjB,kCAAqB;AACrB,wCAA2B;AAC3B,0CAA6B;AAC7B,uCAA0B;AAC1B,+BAAkB;AAClB,mCAAsB;AACtB,wCAA2B;AAC3B,0BAAa;AACb,yCAA4B;AAC5B,kCAAqB;AACrB,8BAAiB;AACjB,mCAAsB;AACtB,oCAAuB;AACvB,gCAAmB;AACnB,6BAAgB;AAChB,gCAAmB;AACnB,4BAAe;AACf,6CAAgC;AAChC,qCAAwB;AAx2D1B;AAzvBuC;AAvhCtB;;;AACf,6B1Ku7BY,8C0Kv7BZ;AACA,6B1Ks7BY,8C0Kt7BZ;AACA,8B7Hq7BW,0C6Hr7BX;AACA,kC3KskBK,uC2KtkBL;AACA,kC3KqkBK,uC2KrkBL;AACA,sC3KokBK,uC2KpkBL;AACA,8BnIFc,kDmIEd;AACA,iCzJ6iDS,2ByJ7iDT;AACA,4BnIJc,kDmIId;AACA,sCrJFkB,0DqJElB;AACA,uCrJHkB,0DqJGlB;AACA,oCrJJkB,0DqJIlB;AACA,uCrJLkB,0DqJKlB;AACA,4CrJNkB,0DqJMlB;AACA,yCzJqZU,4ByJrZV;AACA,+CzJoZU,4ByJpZV;AACA,+CzJmZU,4ByJnZV;AACA,yCzJ6hBS,2ByJ7hBT;AACA,0CzJ4hBS,2ByJ5hBT;AACA,sCzJgZU,4ByJhZV;AACA,mCzJ0hBS,2ByJ1hBT;AACA,kCzJyhBS,2ByJzhBT;AACA,kCzJwhBS,2ByJxhBT;AACA,iCzJuhBS,2ByJvhBT;AACA,yCzJ2YU,4ByJ3YV;AACA,oCzJ0YU,4ByJ1YV;AACA,yCzJicW,6ByJjcX;AACA,wCzJmhBS,2ByJnhBT;AACA,2CzJkhBS,2ByJlhBT;AACA,wCzJihBS,2ByJjhBT;AACA,6CzJghBS,2ByJhhBT;AACA,6CzJ+gBS,2ByJ/gBT;AACA,mCzJ8gBS,2ByJ9gBT;AACA,wCzJ6gBS,2ByJ7gBT;AACA,iCzJ4gBS,2ByJ5gBT;AACA,wCzJ2gBS,2ByJ3gBT;AACA,0CzJ+XU,4ByJ/XV;AACA,4CzJ8XU,4ByJ9XV;AACA,wCzJwgBS,2ByJxgBT;AACA,wCzJugBS,2ByJvgBT;AACA,wCzJsgBS,2ByJtgBT;AACA,wCzJqgBS,2ByJrgBT;AACA,wCzJogBS,2ByJpgBT;AACA,mDzJsiBW,6ByJtiBX;AACA,yCzJkgBS,2ByJlgBT;AACA,qCzJigBS,2ByJjgBT;AACA,wCzJmiBW,6ByJniBX;AACA,sCzJoXU,4ByJpXV;AACA,sCzJmXU,4ByJnXV;AACA,kDzJkXU,4ByJlXV;AACA,yCzJiXU,4ByJjXV;AACA,yCzJgXU,4ByJhXV;AACA,yCzJ+WU,4ByJ/WV;AACA,yCzJ8WU,4ByJ9WV;AACA,yCzJ6WU,4ByJ7WV;AACA,4CzJmjBY,8ByJnjBZ;AACA,+BzJ2WU,4ByJ3WV;AACA,qCzJqfS,2ByJrfT;AACA,wCzJyWU,4ByJzWV;AACA,wCzJmfS,2ByJnfT;AACA,uCzJkfS,2ByJlfT;AACA,0CzJsWU,4ByJtWV;AACA,4CzJgfS,2ByJhfT;AACA,wCzJoWU,4ByJpWV;AACA,2CzJihBW,6ByJjhBX;AACA,gDzJkWU,4ByJlWV;AACA,4CzJ4eS,2ByJ5eT;AACA,iCzJwZW,6ByJxZX;AACA,oCzJ6gBW,6ByJ7gBX;AACA,oCzJ4gBW,6ByJ5gBX;AACA,kDzJ6VU,4ByJ7VV;AACA,2CzJ4VU,4ByJ5VV;AACA,+CzJseS,2ByJteT;AACA,sCzJwgBW,6ByJxgBX;AACA,0CzJoeS,2ByJpeT;AACA,4CzJwVU,4ByJxVV;AACA,0CzJqgBW,6ByJrgBX;AACA,yCzJsVU,4ByJtVV;AACA,qCzJqVU,4ByJrVV;AACA,gDzJ+dS,2ByJ/dT;AACA,gDzJ8dS,2ByJ9dT;AACA,+CzJggBW,6ByJhgBX;AACA,yCzJ4dS,2ByJ5dT;AACA,2CzJ2dS,2ByJ3dT;AACA,6CzJ0dS,2ByJ1dT;AACA,0CzJydS,2ByJzdT;AACA,kDzJwdS,2ByJxdT;AACA,mCzJoYW,6ByJpYX;AACA,sCzJyfW,6ByJzfX;AACA,sCzJwfW,6ByJxfX;AACA,kCzJufW,6ByJvfX;AACA,sCzJmdS,2ByJndT;AACA,mCzJkdS,2ByJldT;AACA,kDzJofW,6ByJpfX;AACA,sDzJmfW,6ByJnfX;AACA,0CzJ+cS,2ByJ/cT;AACA,yCzJ8cS,2ByJ9cT;AACA,4CzJkUU,4ByJlUV;AACA,+CzJ4cS,2ByJ5cT;AACA,qCzJ2cS,2ByJ3cT;AACA,4CzJsgBY,8ByJtgBZ;AACA,6CzJsXW,6ByJtXX;AACA,mDzJ6TU,4ByJ7TV;AACA,uDzJ4TU,4ByJ5TV;AACA,0CzJ2TU,4ByJ3TV;AACA,yCzJ0TU,4ByJ1TV;AACA,sCzJocS,2ByJpcT;AACA,sCzJmcS,2ByJncT;AACA,sCzJkcS,2ByJlcT;AACA,gCzJsTU,4ByJtTV;AACA,uCzJ6WW,6ByJ7WX;AACA,gCzJ4WW,6ByJ5WX;AACA,4CzJmTU,4ByJnTV;AACA,sCzJyfY,8ByJzfZ;AACA,yCzJiTU,4ByJjTV;AACA,yCzJgTU,4ByJhTV;AACA,oCzJ0bS,2ByJ1bT;AACA,wCzJsWW,6ByJtWX;AACA,yCzJqWW,6ByJrWX;AACA,yCzJubS,2ByJvbT;AACA,2CzJsbS,2ByJtbT;AACA,2CzJqbS,2ByJrbT;AACA,8CzJobS,2ByJpbT;AACA,gDzJmbS,2ByJnbT;AACA,gDzJkbS,2ByJlbT;AACA,kCzJ8VW,6ByJ9VX;AACA,uCzJ4eY,8ByJ5eZ;AACA,gDzJoSU,4ByJpSV;AACA,oCzJidW,6ByJjdX;AACA,+BzJ6aS,2ByJ7aT;AACA,sDzJiSU,4ByJjSV;AACA,mDzJgSU,4ByJhSV;AACA,kCzJ+RU,4ByJ/RV;AACA,uCzJ4cW,6ByJ5cX;AACA,kDzJ6RU,4ByJ7RV;AACA,kCnInIc,kDmImId;AACA,+CrJjIkB,0DqJiIlB;AACA,8CrJlIkB,0DqJkIlB;AACA,+CzJoaS,2ByJpaT;AACA,0CzJwRU,4ByJxRV;AACA,4CzJkaS,2ByJlaT;AACA,8CzJiaS,2ByJjaT;AACA,6CzJgaS,2ByJhaT;AACA,oDzJoRU,4ByJpRV;AACA,gDzJ0dY,8ByJ1dZ;AACA,qDzJkRU,4ByJlRV;AACA,4DzJiRU,4ByJjRV;AACA,kEzJgRU,4ByJhRV;AACA,kEzJ+QU,4ByJ/QV;AACA,2BnIjJc,kDmIiJd;AACA,uCrJ/IkB,0DqJ+IlB;AACA,yCzJ4QU,4ByJ5QV;AACA,0CzJ2QU,4ByJ3QV;AACA,+CzJ0QU,4ByJ1QV;AACA,2CzJyQU,4ByJzQV;AACA,gCzJ+cY,8ByJ/cZ;AACA,+BzJkZS,2ByJlZT;AACA,wCzJ8TW,6ByJ9TX;AACA,mCzJqQU,4ByJrQV;AACA,kCzJoQU,4ByJpQV;AACA,uCzJmQU,4ByJnQV;AACA,8BzJkQU,4ByJlQV;AACA,yCzJiQU,4ByJjQV;AACA,+BzJgQU,4ByJhQV;AACA,uCzJ+PU,4ByJ/PV;AACA,uCzJ8PU,4ByJ9PV;AACA,gCzJ6PU,4ByJ7PV;AACA,sCzJ4PU,4ByJ5PV;AACA,8CzJ2PU,4ByJ3PV;AACA,4CzJkTW,6ByJlTX;AACA,gDzJyPU,4ByJzPV;AACA,8CzJwPU,4ByJxPV;AACA,6CzJuPU,4ByJvPV;AACA,4CzJ6bY,8ByJ7bZ;AACA,8BzJqPU,4ByJrPV;AACA,mCzJoPU,4ByJpPV;AACA,2CzJmPU,4ByJnPV;AACA,gCzJkPU,4ByJlPV;AACA,8CzJ4XS,2ByJ5XT;AACA,8CzJ2XS,2ByJ3XT;AACA,uCzJ0XS,2ByJ1XT;AACA,uCzJyXS,2ByJzXT;AACA,qCzJwXS,2ByJxXT;AACA,2CzJuXS,2ByJvXT;AACA,2CzJsXS,2ByJtXT;AACA,yCzJqXS,2ByJrXT;AACA,sCzJoXS,2ByJpXT;AACA,uCzJ+aY,8ByJ/aZ;AACA,qCzJkXS,2ByJlXT;AACA,uCzJiXS,2ByJjXT;AACA,qCzJgXS,2ByJhXT;AACA,yCzJoOU,4ByJpOV;AACA,wCzJmOU,4ByJnOV;AACA,oCzJkOU,4ByJlOV;AACA,kCzJiOU,4ByJjOV;AACA,gCzJgOU,4ByJhOV;AACA,8CzJ6YW,6ByJ7YX;AACA,kCzJ4YW,6ByJ5YX;AACA,sCzJoaY,8ByJpaZ;AACA,6CzJ4NU,4ByJ5NV;AACA,8CzJsWS,2ByJtWT;AACA,2CzJqWS,2ByJrWT;AACA,uCzJoWS,2ByJpWT;AACA,4CzJmWS,2ByJnWT;AACA,oCzJuNU,4ByJvNV;AACA,0CzJoYW,6ByJpYX;AACA,sCzJqNU,4ByJrNV;AACA,yCzJoNU,4ByJpNV;AACA,4CzJmNU,4ByJnNV;AACA,wCzJkNU,4ByJlNV;AACA,8CzJwZY,8ByJxZZ;AACA,kCzJgNU,4ByJhNV;AACA,kCzJ+MU,4ByJ/MV;AACA,2CzJqZY,8ByJrZZ;AACA,0CzJ6MU,4ByJ7MV;AACA,wCzJ4MU,4ByJ5MV;AACA,qCzJsVS,2ByJtVT;AACA,yCzJ0MU,4ByJ1MV;AACA,+BzJyMU,4ByJzMV;AACA,uCzJmVS,2ByJnVT;AACA,sCzJuMU,4ByJvMV;AACA,uCzJsMU,4ByJtMV;AACA,wCzJqMU,4ByJrMV;AACA,mCzJ2YY,8ByJ3YZ;AACA,yCzJ0YY,8ByJ1YZ;AACA,uCzJkMU,4ByJlMV;AACA,uCzJiMU,4ByJjMV;AACA,uCzJ8WW,6ByJ9WX;AACA,wCzJ+LU,4ByJ/LV;AACA,uCzJ8LU,4ByJ9LV;AACA,qCzJ2WW,6ByJ3WX;AACA,kCzJmYY,8ByJnYZ;AACA,sCzJ2LU,4ByJ3LV;AACA,4CzJ0LU,4ByJ1LV;AACA,2CzJuWW,6ByJvWX;AACA,wCzJmUS,2ByJnUT;AACA,wCzJkUS,2ByJlUT;AACA,wCzJiUS,2ByJjUT;AACA,gCzJqLU,4ByJrLV;AACA,uCzJ+TS,2ByJ/TT;AACA,8CzJiWW,6ByJjWX;AACA,uCzJkLU,4ByJlLV;AACA,oCzJiLU,4ByJjLV;AACA,mCzJ8VW,6ByJ9VX;AACA,0CzJ+KU,4ByJ/KV;AACA,4CzJ8KU,4ByJ9KV;AACA,oCzJ6KU,4ByJ7KV;AACA,yCzJ0VW,6ByJ1VX;AACA,qCzJkXY,8ByJlXZ;AACA,qCzJiXY,8ByJjXZ;AACA,2CzJuVW,6ByJvVX;AACA,mCzJsVW,6ByJtVX;AACA,yCzJuKU,4ByJvKV;AACA,yCzJsKU,4ByJtKV;AACA,mCzJqKU,4ByJrKV;AACA,uCzJ+SS,2ByJ/ST;AACA,oDzJ8SS,2ByJ9ST;AACA,6CzJkKU,4ByJlKV;AACA,iDzJiKU,4ByJjKV;AACA,qCzJgKU,4ByJhKV;AACA,wCzJ0SS,2ByJ1ST;AACA,+CzJySS,2ByJzST;AACA,6CzJ6JU,4ByJ7JV;AACA,kCzJmWY,8ByJnWZ;AACA,kCzJkWY,8ByJlWZ;AACA,4CzJ0JU,4ByJ1JV;AACA,0CzJyJU,4ByJzJV;AACA,qCzJwJU,4ByJxJV;AACA,qCzJuJU,4ByJvJV;AACA,6CzJsJU,4ByJtJV;AACA,2CzJqJU,4ByJrJV;AACA,qCzJ2VY,8ByJ3VZ;AACA,6CzJmJU,4ByJnJV;AACA,2CzJkJU,4ByJlJV;AACA,kCzJwVY,8ByJxVZ;AACA,kCzJuVY,8ByJvVZ;AACA,iCzJ6TW,6ByJ7TX;AACA,6BzJsMW,6ByJtMX;AACA,oCzJ6IU,4ByJ7IV;AACA,8CzJuRS,2ByJvRT;AACA,8CzJsRS,2ByJtRT;AACA,8CzJqRS,2ByJrRT;AACA,yCzJiMW,6ByJjMX;AACA,6CzJwIU,4ByJxIV;AACA,oCzJuIU,4ByJvIV;AACA,0CzJ8LW,6ByJ9LX;AACA,wCzJqIU,4ByJrIV;AACA,oCzJ2UY,8ByJ3UZ;AACA,wCzJmIU,4ByJnIV;AACA,8CzJgTW,6ByJhTX;AACA,gDzJiIU,4ByJjIV;AACA,6CzJuUY,8ByJvUZ;AACA,qCzJuLW,6ByJvLX;AACA,yCzJ8HU,4ByJ9HV;AACA,8CzJoUY,8ByJpUZ;AACA,gCzJ4HU,4ByJ5HV;AACA,+CzJ2HU,4ByJ3HV;AACA,wCzJqQS,2ByJrQT;AACA,oCzJiLW,6ByJjLX;AACA,yCzJwHU,4ByJxHV;AACA,0CzJuHU,4ByJvHV;AACA,sCzJsHU,4ByJtHV;AACA,mCzJqHU,4ByJrHV;AACA,sCzJoHU,4ByJpHV;AACA,kCzJ2KW,6ByJ3KX;AACA,mDzJkHU,4ByJlHV;AACA,2CzJiHU,4ByJjHV;AACA,2BzHpOK,sCyHoOL;AACA,4BzHrOK,sCyHqOL;AACA,yCzHtOK,sCyHsOL;AACA,2BzHvOK,sCyHuOL;AACA,mC3KkRK,uC2KlRL;AACA,yCzHgMK,sCyHhML;AACA,+BzH0De,gDyH1Df;AACA,kC3K+QK,uC2K/QL;AACA,4CrJpTkB,0DqJoTlB;AACA,2CrJrTkB,0DqJqTlB;AACA,gCzJ8JW,6ByJ9JX;AACA,mCzJgPS,2ByJhPT;AACA,oCzJ+OS,2ByJ/OT;AACA,mCzJiRW,6ByJjRX;AACA,iDzJkGU,4ByJlGV;AACA,iDzJiGU,4ByJjGV;AACA,mCzJ2OS,2ByJ3OT;AACA,yCzJ+FU,4ByJ/FV;AACA,2CzJyOS,2ByJzOT;AACA,2CzJwOS,2ByJxOT;AACA,0CzJ4FU,4ByJ5FV;AACA,yCzJ2FU,4ByJ3FV;AACA,8CzJ0FU,4ByJ1FV;AACA,gDzJyFU,4ByJzFV;AACA,uCzJwFU,4ByJxFV;AACA,qCzJkOS,2ByJlOT;AACA,oCzJiOS,2ByJjOT;AACA,oCzJgOS,2ByJhOT;AACA,mCzJ+NS,2ByJ/NT;AACA,gDzJ8NS,2ByJ9NT;AACA,sCzJ6NS,2ByJ7NT;AACA,qCzJ4NS,2ByJ5NT;AACA,4CzJ2NS,2ByJ3NT;AACA,yCzJ0NS,2ByJ1NT;AACA,wCzJyNS,2ByJzNT;AACA,4CzJwNS,2ByJxNT;AACA,iCzJuNS,2ByJvNT;AACA,wCzJ2EU,4ByJ3EV;AACA,wCzJ0EU,4ByJ1EV;AACA,wCzJuPW,6ByJvPX;AACA,+CzJmNS,2ByJnNT;AACA,sCzJkNS,2ByJlNT;AACA,6CzJiNS,2ByJjNT;AACA,0CzJmPW,6ByJnPX;AACA,oDzJoEU,4ByJpEV;AACA,0CzJmEU,4ByJnEV;AACA,6CzJkEU,4ByJlEV;AACA,8CzJ4MS,2ByJ5MT;AACA,qCzJgEU,4ByJhEV;AACA,qCzJ+DU,4ByJ/DV;AACA,4CzJyMS,2ByJzMT;AACA,8CzJwMS,2ByJxMT;AACA,iDzJ4DU,4ByJ5DV;AACA,4CzJ2DU,4ByJ3DV;AACA,mCzJiQY,8ByJjQZ;AACA,gDzJyDU,4ByJzDV;AACA,oCzJwDU,4ByJxDV;AACA,kCzJkMS,2ByJlMT;AACA,2CzJiMS,2ByJjMT;AACA,2CzJgMS,2ByJhMT;AACA,2CzJkOW,6ByJlOX;AACA,qCzJ2GW,6ByJ3GX;AACA,uCzJgOW,6ByJhOX;AACA,+CzJ4LS,2ByJ5LT;AACA,kCzJwGW,6ByJxGX;AACA,mCzJ+CU,4ByJ/CV;AACA,mCzJ8CU,4ByJ9CV;AACA,wCzJoPY,8ByJpPZ;AACA,qCzJuLS,2ByJvLT;AACA,wCzJsLS,2ByJtLT;AACA,8CzJ0CU,4ByJ1CV;AACqB,kCAAO,UxMxQvB,2BwMwQuB,CAAP;AACS,2CAAO,UxMzQhC,2BwMyQgC,CAAP;AACA,2CAAQ,WzJitBhC,wByJjtBgC,CAAR;AACE,6CAAQ,WzJgtBlC,wByJhtBkC,CAAR;AACF,2CAAQ,WzJ+sBhC,wByJ/sBgC,CAAR;AACC,4CAAQ,WzJ8sBjC,wByJ9sBiC,CAAR;AACD,2CAAQ,WzJ6sBhC,wByJ7sBgC,CAAR;AACQ,mDAAO,UzJ4sBvC,wByJ5sBuC,EACvC,QzJgsBO,+ByJhsBP,CADgC;AAEJ,+CAAO,UxMjRpC,2BwMiRoC,CAAP;AACJ,2CAAO,UxMlRhC,2BwMkRgC,CAAP;AACI,+CAAQ,WzJwsBpC,wByJxsBoC,CAAR;AACN,yCAAQ,WzJusB9B,wByJvsB8B,CAAR;AACD,wCAAQ,WzJssB7B,wByJtsB6B,CAAR;AACQ,gDAAO,UxMtRrC,2BwMsRqC,CAAP;AACJ,4CAAO,UxMvRjC,2BwMuRiC,CAAP;AACD,2CAAO,UxMxRhC,2BwMwRgC,CAAP;AACR,mCAAO,UxMzRxB,2BwMyRwB,EAAqB,U5K/UxC,0C4K+UwC,EAA5B;AA5YP;AA2ZjB;AAtaF,GAwac,yDAxad;ACAA,iCAES,4pBAFT;;;AAgBgB;;;AACZ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAuBA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAEA;AACA;AACA;AA5RY;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAkxBoB;AAElC;AAIA,UAAG,kBAAa,KAAE,EAAlB;AAEE,yBAAY;AACZ,oBAAO;AACP,oBAAO,aAAP,GAAqB,iDAAiD,GAAC,sBAAS,CAAC,mBrMnhB/B,GqMmhB8B,CAAV;AACtE,oBAAO;OALT;AANkC;AA9ZK;AAEvC;AAEA,qBAAU,MAAK,WAAC,CAAM,uEAAN;AAEhB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,uBAAY,iBAAC,CAAe,SAAf;AACb,kBAAW,eAAU,iBAAC;AACtB,aAAE,iBAAC,CAAe,SAAf;AACH,kBAAW,eAAU,iBAAC;AACtB,cAAG,iBAAC,CAAe,SAAf;AAIJ,aAAE,YAAC,CAAU,EAAV;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,mCAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,wBAAP;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,4BAAiB,iBAAC,CAAe,SAAf;AAClB,aAAE,SAAM,CAAC,EAAE,EAAI,qBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,gCAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,qBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,+BAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,uBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,wBAAP;AAER,aAAE,SAAM,CAAC,EAAE,EAAI,iBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,2BAAP;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,wBAAR;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,iCAAR;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,yBAAR;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,mBAAR;AAGR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,iCAAsB,iBAAC,CAAe,SAAf;AAEvB,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,0BAAe,iBAAC,CAAe,SAAf;AAEhB,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,0BAAe,iBAAC,CAAe,SAAf;AAEhB,kBAAW,OAAE,eAAa,CAAC,EAAE,EAAH;AAC1B,qBAAU,iBAAC,CAAe,SAAf;AAKX,UAAG,oBAAe,aAAC,EAAS,KAAC,IAA7B;AAEE,eAAE,SAAM,CAAC,EAAE,EAAI,MAAiG,GAA1F,0BAAqB,YAAC,EAAvB,GAAiC,KAAD,GAAO,2BAAc,CAAC,aAAa,iBAAY,cAAC,EAA3B,CAAf,GAAsD,aAAzG;;AAIR,eAAE,SAAM,CAAC,EAAE,EAAI,MAAiG,GAA1F,0BAAqB,YAAC,EAAvB,GAAiC,KAAD,GAAO,2BAAc,CAAC,aAAa,iBAAY,cAAC,EAA3B,CAAf,GAAsD,yBAAzG;;AAEV,aAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,oCAA+B,YAAC,EAA9C;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,uBAAU,CAAC,uBAAkB,YAAC,GAAS,IAAG,GAAC,IAAD,CAAK,MAArC,CAAxB;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,2BAAc,CAAC,aAAa,6BAAwB,cAAC,EAAvC,CAAwD,GAAL,KAAD,GAAO,8BAAyB,YAAC,EAAxG;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,wBAAmB,YAAC,EAA3B;AACR,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,2BAAgB,iBAAC,CAAe,SAAf;AAEjB,UAAG,oBAAe,aAAC,EAAS,KAAC,KAA7B;AAEE,oBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,6BAAe,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,0BAAa,oBAAC,CAAkB,+BAAlB;AACd,0BAAa,eAAC,CAAa,wCAAb;AACd,0BAAa,cAAC,CAAY,wCAAZ;AACd,0BAAa,OAAb,GAAmB;AACnB,0BAAa,WAAC,CAAS,SAAT;AACd,0BAAa,SAAb,GAAwB;AACxB,0BAAa,mBAAC,CAAiB,gDAAjB;AACd,0BAAa,iBAAC,CAAe,SAAf;OAXhB;AAiBA,UAAG,eAAK,IAAI,eAAe,KAAC,IAA5B,EAAsC,OAAE,SAAM,CAAC,EAAE,EAAI,wBAAW,CAAC,WAAW,sBAAiB,WAAC,EAA9B,CAAlB,CAA9C;AACA,UAAG,eAAK,IAAI,eAAe,KAAC,KAA5B,EAAuC,OAAE,SAAM,CAAC,EAAE,EAAI,KAAP,CAA/C;AACA,aAAE,SAAM,CAAC,EAAE,EAAI,uBAAU,CAAC,+BAA0B,YAAC,GAAS,IAAG,GAAC,IAAD,CAAK,MAA7C,CAAjB;AACR,UAAG,wBAAmB,YAAC,EAAQ,KAAE,EAAjC,EAAyC,OAAE,SAAM,CAAC,EAAE,GAAK,2BAAc,CAAC,aAAa,wBAAmB,cAAC,EAAlC,CAAtB,CAAjD;AACA,aAAE,SAAM,CAAC,EAAE,GAAK,4BAAuB,YAAC,EAAc,GAAL,KAAD,GAAO,mBAAc,YAAC,EAA9D;AACR,aAAE,SAAM,CAAC,EAAE,GAAK,yBAAoB,YAAC,EAA7B;AAGR,oBAAS;AACT,oBAAS,aAAT,GAAuB,kEAA4F,GAAxB,sBAAS,CAAC,mBrMvMjD,GqMuMgD,CAAX,GAA2B,cAAD;AACnH,oBAAS;AA7F8B;AAiGA;AAEvC,UAAG,kBAAH;AAEE,oBAAO;;AAIP,yCAAW,CAAC,iGAAD;;AAR0B;AA1GQ;AAG7C,uBAAY;AACZ,kBAAO;AACP,kBAAO,aAAP,GAAqB,iDAAiD,GAAC,sBAAS,CAAC,mBrMvG/B,GqMuG8B,CAAV;AACtE,kBAAO;AANsC;AA8WJ;;AAE3C;AAEA,UAAG,iBAAY,eAAC,EAAW,GAAC,CAA5B;AAEE,yBAAY;AACZ,2BAAa,mBAAc,YAAC;AAC5B,2BAAa,sBAAiB,WAAC;;AAI/B,2BAAa;AACb,2BAAa;;AAEf,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,qBAAU,MAAK,WAAC,CAAM,EAAN;AAEhB,yBAAkB,2CAAiB,QAAC,eAAS,CAAC;AAEnC,eAAN,MAAS,2CAAH,CAAqB,YAA5B,GAA0C;AACnC,eAAN,MAAS,2CAAH,CAAqB,iBAA5B,GAA+C;AACxC,eAAN,MAAS,2CAAH,CAAqB,gBAA5B,GAA8C,qCAA+B,YAAC;AACvE,eAAN,MAAS,2CAAH,CAAqB,iBAA5B,GAA+C;AACxC,eAAN,MAAS,2CAAH,CAAqB,aAA5B,GAA2C;AACpC,eAAN,MAAS,2CAAH,CAAqB,eAA5B,GAA6C;AAPH,OAAD,CAAT;AAUhC,sBAAgB,YAAU,CAAC;AAE3B,wBAAU;AACV,wBAAU,aAAV,GAAwB,4BAA4B,GAAC,sBAAS,CAAC,oBrM/ef,GqM+ec,CAAV;AACpD,wBAAU;AAJiB,OAAD;AA5Ba;AAkDH;AAGtB,eAAlB,KAAkB;AAHsB;AA1SA;AAExC;AACA;AACA;AACA;AACA;AAIA,UAAG,eAAU,UAAC,EAAd;AAEA,YAAG,eAAU,eAAC,EAAW,GAAC,CAA1B;AAEE,2BAAgB;AAChB,6BAAkB;AAClB,6BAAkB;AAClB,6BAAkB;AAClB,6BAAkB;AAClB,yBAAU;AAEV,iBAAM,CAAI,eAAU,OAAC,EAArB;AAEE,6BAAgB,cAAc,GAAC,uBAAkB,WAAC,EAApB;AAC9B,gBAAG,kBAAa,WAAC,EAAO,KAAC,CAAzB,EAAgC,mBAAkB,gBAAgB,GAAC,0BAAqB,WAAC,EAAzF;AACA,gBAAG,+BAA0B,WAAC,EAAO,KAAC,iCAA4B,WAAC,EAAnE;AAEE,iCAAkB,gBAAgB,GAAC,uBAAkB,WAAC,EAApB;aAFpC;AAIA,gBAAG,+BAA0B,WAAC,EAAO,KAAC,iCAA4B,WAAC,EAAnE;AAEE,iCAAkB,gBAAgB,GAAC,uBAAkB,WAAC,EAApB;aAFpC;AAIA,gBAAG,+BAA0B,WAAC,EAAO,KAAC,iCAA4B,WAAC,EAAnE;AAEE,iCAAkB,gBAAgB,GAAC,uBAAkB,WAAC,EAApB;aAFpC;AAIA,2BAAU;;AAGZ,gCAAiB,WAAC,CAAS,cAAT;AAClB,kCAAmB,WAAC,CAAS,gBAAT;AACpB,kCAAmB,WAAC,CAAS,gBAAT;AACpB,kCAAmB,WAAC,CAAS,gBAAT;AACpB,kCAAmB,WAAC,CAAS,gBAAT;SAhCtB;OAFA;AAuCA,qBAAU;AACV,2BAAgB,YAAC,CAAU,qBAAgB,YAAC,EAA0E,GAAjE,0BAAa,CAAC,mBAAI,GAAC,mBAAD,CrMKD,KqMLJ,CAAd,GAA0B,YAAD,GAAe,gCAAF,GAAyB,IAAD,GAAK,IAAtG;AAlDuB;AAyHE;AAE1C,kBAAO;AACP,kBAAO;AAHmC;AAnDF;AAExC,kBAAO;AACP,gCAAqB,YAAC,CAAU,2BAAsB,YAAC,EAAjC;AACtB,8BAAmB,YAAC,CAAU,yBAAoB,YAAC,EAA/B;AACpB,mBAAQ;AACR,kBAAO;AANiC;AA6NF;AAExC,uBAAY;AACZ,kBAAO;AACP,UAAI;AAJoC;AApNM;AAE5C;AACA;AAEA,cAAG,YAAC,CAAU,iBAAY,eAAC,EAAW,GAAC,CAAnC;AACJ,cAAG,YAAC,CAAU,CAAV;AACJ,kBAAW,QAAG,eAAa,CAAC,EAAE,CAAH;AAC3B,0BAAe,iBAAC,CAAe,SAAf;AAChB,cAAG,SAAM,CAAC,EAAE,EAAI,oBAAP;AACT,cAAG,SAAM,CAAC,EAAE,EAAI,OAAP;AACT,cAAG,SAAM,CAAC,EAAE,EAAI,QAAP;AAGT,uBAAY;AACZ,eAAS,QAAiB,OAAZ,iBAAY,eAAC,IAAD,gBAA1B;AAAI;AAEF,gBAAG,SAAM,CAAC,EAAE,EAAI,iBAAY,YAAY,CAAC,OAAD,CAAS,YAAC,EAAwD,GAA/C,GAAD,GAAK,iBAAY,YAAY,CAAC,QAAD,CAAU,YAAC,EAApC,GAA6C,MAAlG;AAET,oBAAW,QAAG,eAAa,CAAC,EAAE,CAAH;AAC3B,gCAAkB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1B,6BAAgB,oBAAC,CAAkB,+BAAlB;AACjB,6BAAgB,eAAC,CAAa,wCAAb;AACjB,6BAAgB,cAAC,CAAY,wCAAZ;AACjB,6BAAgB,WAAC,CAAS,KAAT;AACjB,6BAAgB,OAAhB,GAAsB,mBAAc,aAAC;AACrC,6BAAgB,QAAC,CAAM,2CAAsC,YAAC,EAA7C;AACjB,6BAAgB,WAAC,CAAS,YAAT;AACjB,6BAAgB,mBAAC,CAAiB,gDAAjB;AACjB,6BAAgB,SAAhB,GAA2B;AAC3B,6BAAgB,iBAAC,CAAe,SAAf;AAEjB,gBAAG,SAAM,CAAC,EAAE,EAAI,iBAAY,YAAY,CAAC,6BAAD,CAA+B,YAAC,EAAmJ,GAA1I,SAAD,GAAW,iBAAY,YAAY,CAAC,qBAAD,CAAuB,YAAC,EAAjD,GAA0D,UAAD,GAAY,oBAAO,CAAC,oCAA+B,YAAC,GAAS,GAA1C,CAAR,GAAuD,MAAD,GAAQ,yBAAoB,YAAC,EAAxO;AACT,gBAAG,SAAM,CAAC,EAAE,EAAI,wBAA4E,GAAnD,iBAAY,YAAY,CAAC,OAAD,CAAS,YAAC,EAAnC,GAA8C,MAAF,GAAS,4BAAuB,YAAC,EAA5G;AACT,YAAG,eAAK,IAAI,eAAe,KAAC,IAA5B,EAAsC,QAAG,SAAM,CAAC,EAAE,EAAI,wBAA4F,GAAnE,wBAAW,CAAC,WAAW,8BAAyB,WAAC,EAAtC,CAAZ,GAA2D,SAAD,GAAW,wBAAW,CAAC,WAAW,yBAAoB,WAAC,EAAjC,CAA/G,CAA/C;AACA,YAAG,eAAK,IAAI,eAAe,KAAC,KAA5B,EAAuC,QAAG,SAAM,CAAC,EAAE,EAAI,2BAAP,CAAhD;AAGA,yBAAY;;AAtC8B;AAyDC;AAE7C,UAAG,YAAO,OAAO,IAAG,kBAApB;AAAqC,yBAAY,WAAC,CAAS,IAAT;AAAgC,YAAb,iBAAY,WAAC,CAAS,KAAT;AAFrC;AAsJL;AAExC,kBAAO;AAFiC;AA/JG;AAE3C,UAAG,uBAAkB,YAAC,EAAQ,KAAC,EAA/B;AAEE,oBAAO;AACP,+BAAkB,cAAC,CAAY,mBAAZ;OAHrB;AAF2C;AAzEF;AAEzC;AAEA,oBAAS;AACT,aAAM,CAAI,cAAS,OAAC,EAApB;AAEE,4BAAmB,iBAA6H,GAA3G,2BAAc,CAAC,sBAAsB,0BAAqB,cAAC,EAA7C,CAAf,GAAwE,KAAD,GAAO,0BAAqB,YAAC,EAAvB,GAAgC,MAAD;AAChJ,sBAAS;;AAEX,aAAE,SAAM,CAAC,EAAE,GAAK,iBAAR;AAER,uBAAY,aAAZ,GAA0B,kDAA2E,GAAxB,sBAAS,CAAC,mBrM1RnC,GqM0RkC,CAAV,GAA0B,iBAAD;AACrG,uBAAY;AAb6B;AAuFH;;AAEtC;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,4BAAH;AACd,aAAK,qBAAL,GAA4B,2BAAqB,YAAC;AAClD,aAAK,qBAAL,GAA4B;AAC5B,aAAK,mBAAL,GAA0B,qCAA+B,YAAC;AAC1D,aAAK,iBAAL,GAAwB;AACxB,aAAK,WAAL,GAAkB,iBAAI,CAAC,oBAAc,YAAC,EAAY,GAAH,GAAD,GAAM,qBAAe,YAAC,EAA9C;AACtB,aAAK,UAAL,GAAiB;AACjB,aAAK,aAAL,GAAoB,qBAA0D,GAApC,2BAAqB,YAAC,EAAvB,GAAgC,KAAD,GAAO,gCAA0B,YAAC,EAA5B;AAX3D;AAcG;AAEtB,uBAAS;AACT,0BAAY;AACZ,qBAAO;AACP,qBAAO,aAAP,GAAqB,iDAAiD,GAAC,sBAAS,CAAC,oBrM3XjC,GqM2XgC,CAAV;AACtE,qBAAO;AANe;AAU1B,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,aAAM,4BAAW,QAAC,eAAS,aAAT;AAClB,UAAI,YAAU;AA9BwB;AAuEM;;AAE5C;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,4BAAH;AACd,aAAK,qBAAL,GAA4B,2BAAqB,YAAC;AAClD,aAAK,qBAAL,GAA4B;AAC5B,aAAK,mBAAL,GAA0B,qCAA+B,YAAC;AAC1D,aAAK,iBAAL,GAAwB;AACxB,aAAK,WAAL,GAAkB,iBAAI,CAAC,oBAAc,YAAC,EAAY,GAAH,GAAD,GAAM,qBAAe,YAAC,EAA9C;AACtB,aAAK,UAAL,GAAiB;AACjB,aAAK,aAAL,GAAoB,oBAAoB,GAAC,yBAAmB,YAAC,EAArB;AAXrB;AAcG;AAEtB,uBAAS;AACT,0BAAY;AACZ,qBAAO;AACP,qBAAO,aAAP,GAAqB,iDAAiD,GAAC,sBAAS,CAAC,oBrMlcjC,GqMkcgC,CAAV;AACtE,qBAAO;AANe;AAU1B,UAAG,0BAAqB,YAAC,EAAQ,KAAE,EAAnC;AAEE,uBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,uBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,eAAM,4BAAW,QAAC,eAAS,aAAT;AAClB,YAAI,YAAU;OALhB;AA3B4C;AArCC;;AAE7C;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,4BAAH;AACd,aAAK,qBAAL,GAA4B,2BAAqB,YAAC;AAClD,aAAK,qBAAL,GAA4B;AAC5B,aAAK,mBAAL,GAA0B,qCAA+B,YAAC;AAC1D,aAAK,iBAAL,GAAwB;AACxB,aAAK,WAAL,GAAkB,iBAAI,CAAC,oBAAc,YAAC,EAAY,GAAH,GAAD,GAAM,qBAAe,YAAC,EAA9C;AACtB,aAAK,UAAL,GAAiB;AACjB,aAAK,aAAL,GAAoB,qBAAoE,GAA9C,qCAA+B,YAAC,EAAjC,GAA0C,KAAD,GAAO,qBAAe,YAAC,EAAjB;AAXrE;AAcG;AAEtB,uBAAS;AACT,0BAAY;AACZ,qBAAO;AACP,qBAAO,aAAP,GAAqB,iDAAiD,GAAC,sBAAS,CAAC,oBrM7ZjC,GqM6ZgC,CAAV;AACtE,qBAAO;AANe;AAU1B,UAAG,oCAA+B,YAAC,EAAQ,KAAE,EAA7C;AAEE,uBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,uBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,eAAM,4BAAW,QAAC,eAAS,aAAT;AAClB,YAAI,YAAU;OALhB;AA3B6C;AApUJ;;AAEzC;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,oCAAH;AACd,aAAK,eAAL,GAAsB;AALH;AASG;AAEtB,YAAG,IAAI,eAAe,KAAE,EAAxB;AAEE,wBAAQ;AACR,wBAAQ,aAAR,GAAsB,4BAA4B,GAAC,sBAAS,CAAC,IAAI,gBrMpFnB,GqMoFc,CAAV;AAClD,wBAAQ;SAJV;AAFsB;AAa1B,aAAM,oCAAe,QAAC,eAAS,aAAT;AAEtB,UAAI,YAAU;AA3B2B;AA/BG;;AAE5C;AACA;AACA;AAEA,sBAAe,qBAAQ,CAAS,OAAP,OAAU,8BAAH,CAAW,OAApB;AACvB,wBAAyB,OAAP,OAAU,8BAAH,CAAW;AACpC,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,yBAAkB,2CAAiB,QAAC,eAAS,CAAC;AAEnC,eAAN,MAAS,2CAAH,CAAqB,YAA5B,GAA0C;AACnC,eAAN,MAAS,2CAAH,CAAqB,iBAA5B,GAA+C;AACxC,eAAN,MAAS,2CAAH,CAAqB,gBAA5B,GAA8C,qCAA+B,YAAC;AACvE,eAAN,MAAS,2CAAH,CAAqB,iBAA5B,GAA+C;AACxC,eAAN,MAAS,2CAAH,CAAqB,aAA5B,GAA2C;AAND,OAAD,CAAT;AAShC,sBAAgB,YAAU,CAAC;AAE3B,wBAAU;AACV,wBAAU,aAAV,GAAwB,4BAA4B,GAAC,sBAAS,CAAC,oBrM1Df,GqM0Dc,CAAV;AACpD,wBAAU;AAJiB,OAAD;AAnBc;AAofR;AAE1B;AAEV,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,iBAAO,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,0BAAgB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,6BAAmB,uCAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,oCAA0B,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,6BAAmB,6BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,6BAAmB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,8BAAoB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,+BAAqB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,qBAAW,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,iCAAuB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,0BAAgB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,yBAAe,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,kCAAwB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,4BAAkB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,wBAAc,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,yBAAe,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,sCAA4B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,wBAAc,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,iCAAuB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,4BAAkB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wCAA8B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,4BAAkB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,gCAAsB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,sCAA4B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,wCAA8B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,4BAAkB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,4BAAkB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,qCAA2B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,yBAAe,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,6BAAmB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,mCAAyB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,kCAAwB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,iCAAuB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,+BAAqB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,4BAAkB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,6BAAmB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,mCAAyB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,+BAAqB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,+BAAqB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,6BAAmB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,+BAAqB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,8CAAoC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,mCAAyB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,oCAA0B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,uCAA6B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,8CAAoC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,+BAAqB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,8BAAoB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,8BAAoB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,yBAAe,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,0BAAgB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,uCAA6B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,wCAA8B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,4BAAkB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,+BAAqB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,4CAAkC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,6BAAmB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,iDAAuC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,4CAAkC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,mCAAyB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,+BAAqB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,8BAAoB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,iCAAuB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,mCAAyB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,8BAAoB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,oCAA0B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,kCAAwB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,0CAAgC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,wCAA8B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,wCAA8B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,oDAA0C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvD,kDAAwC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,8BAAoB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,wBAAc,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,2BAAiB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,qBAAW,uCAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,6BAAmB,+BAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,sBAAY,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,uBAAa,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,yBAAe,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,mCAAyB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAExC,aAAE;AACF,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,cAAG;AACH,uBAAY;AACZ,0BAAe;AACf,iCAAsB;AACtB,0BAAe;AACf,0BAAe;AACf,qBAAU;AACV,qBAAU;AACV,2BAAgB;AAChB,4BAAiB;AACjB,kBAAO;AACP,8BAAmB;AACnB,0CAA+B;AAC/B,gCAAqB;AACrB,oCAAyB;AACzB,sCAA2B;AAC3B,kCAAuB;AACvB,uBAAY;AACZ,sBAAW;AACX,+BAAoB;AACpB,0BAAe;AACf,yBAAc;AACd,8BAAmB;AACnB,qBAAU;AACV,gCAAqB;AACrB,sBAAW;AACX,8BAAmB;AACnB,8BAAmB;AACnB,uBAAY;AACZ,6BAAkB;AAClB,qCAA0B;AAC1B,mCAAwB;AACxB,uCAA4B;AAC5B,qCAA0B;AAC1B,oCAAyB;AACzB,mCAAwB;AACxB,qBAAU;AACV,0BAAe;AACf,kCAAuB;AACvB,uBAAY;AACZ,qCAA0B;AAC1B,qCAA0B;AAC1B,8BAAmB;AACnB,8BAAmB;AACnB,4BAAiB;AACjB,kCAAuB;AACvB,kCAAuB;AACvB,gCAAqB;AACrB,6BAAkB;AAClB,8BAAmB;AACnB,4BAAiB;AACjB,8BAAmB;AACnB,4BAAiB;AACjB,gCAAqB;AACrB,+BAAoB;AACpB,2BAAgB;AAChB,yBAAc;AACd,uBAAY;AACZ,qCAA0B;AAC1B,yBAAc;AACd,6BAAkB;AAClB,oCAAyB;AACzB,qCAA0B;AAC1B,kCAAuB;AACvB,8BAAmB;AACnB,mCAAwB;AACxB,2BAAgB;AAChB,mCAAwB;AACxB,sCAA2B;AAC3B,6BAAkB;AAClB,gCAAqB;AACrB,mCAAwB;AACxB,+BAAoB;AACpB,qCAA0B;AAC1B,yBAAc;AACd,yBAAc;AACd,kCAAuB;AACvB,iCAAsB;AACtB,+BAAoB;AACpB,4BAAiB;AACjB,gCAAqB;AACrB,sBAAW;AACX,8BAAmB;AACnB,6BAAkB;AAClB,8BAAmB;AACnB,+BAAoB;AACpB,0BAAe;AACf,gCAAqB;AACrB,8BAAmB;AACnB,8BAAmB;AACnB,qCAA0B;AAC1B,+BAAoB;AACpB,8BAAmB;AACnB,+BAAoB;AACpB,8BAAmB;AACnB,4BAAiB;AACjB,yBAAc;AACd,6BAAkB;AAClB,mCAAwB;AACxB,kCAAuB;AACvB,+BAAoB;AACpB,+BAAoB;AACpB,+BAAoB;AACpB,uBAAY;AACZ,8BAAmB;AACnB,8BAAmB;AACnB,2BAAgB;AAChB,0BAAe;AACf,iCAAsB;AACtB,mCAAwB;AACxB,2BAAgB;AAChB,gCAAqB;AACrB,4BAAiB;AACjB,4BAAiB;AACjB,0BAAe;AACf,gCAAqB;AACrB,gCAAqB;AACrB,0BAAe;AACf,8BAAmB;AACnB,4BAAiB;AACjB,2CAAgC;AAChC,oCAAyB;AACzB,wCAA6B;AAC7B,yCAA8B;AAC9B,4BAAiB;AACjB,+BAAoB;AACpB,sCAA2B;AAC3B,qCAA0B;AAC1B,qCAA0B;AAC1B,qCAA0B;AAC1B,gCAAqB;AACrB,oCAAyB;AACzB,2BAAgB;AAChB,iCAAsB;AACtB,+BAAoB;AACpB,oCAAyB;AACzB,2CAAgC;AAChC,4BAAiB;AACjB,2BAAgB;AAChB,sCAA2B;AAC3B,+BAAoB;AACpB,2BAAgB;AAChB,gCAAqB;AACrB,iCAAsB;AACtB,sBAAW;AACX,uBAAY;AACZ,oCAAyB;AACzB,qCAA0B;AAC1B,yBAAc;AACd,4BAAiB;AACjB,6BAAkB;AAClB,4BAAiB;AACjB,0CAA+B;AAC/B,0CAA+B;AAC/B,4BAAiB;AACjB,kCAAuB;AACvB,oCAAyB;AACzB,oCAAyB;AACzB,mCAAwB;AACxB,kCAAuB;AACvB,uCAA4B;AAC5B,yCAA8B;AAC9B,gCAAqB;AACrB,8BAAmB;AACnB,6BAAkB;AAClB,6BAAkB;AAClB,4BAAiB;AACjB,yCAA8B;AAC9B,+BAAoB;AACpB,8BAAmB;AACnB,qCAA0B;AAC1B,kCAAuB;AACvB,iCAAsB;AACtB,qCAA0B;AAC1B,0BAAe;AACf,iCAAsB;AACtB,iCAAsB;AACtB,8CAAmC;AACnC,wCAA6B;AAC7B,+BAAoB;AACpB,sCAA2B;AAC3B,uCAA4B;AAC5B,iCAAsB;AACtB,yCAA8B;AAC9B,4BAAiB;AACjB,gCAAqB;AACrB,mCAAwB;AACxB,6CAAkC;AAClC,mCAAwB;AACxB,sCAA2B;AAC3B,uCAA4B;AAC5B,8BAAmB;AACnB,8BAAmB;AACnB,qCAA0B;AAC1B,uCAA4B;AAC5B,qCAA0B;AAC1B,4BAAiB;AACjB,yCAA8B;AAC9B,6BAAkB;AAClB,2BAAgB;AAChB,oCAAyB;AACzB,oCAAyB;AACzB,8BAAmB;AACnB,oCAAyB;AACzB,kCAAuB;AACvB,8BAAmB;AACnB,gCAAqB;AACrB,iCAAsB;AACtB,wCAA6B;AAC7B,0CAA+B;AAC/B,2BAAgB;AAChB,qCAA0B;AAC1B,4BAAiB;AACjB,iCAAsB;AACtB,2CAAgC;AAChC,8BAAmB;AACnB,iCAAsB;AACtB,uCAA4B;AAC5B,+BAAoB;AACpB,uCAA4B;AAC5B,qCAA0B;AAC1B,qCAA0B;AAC1B,iDAAsC;AACtC,+CAAoC;AACpC,2BAAgB;AAChB,qBAAU;AACV,+BAAoB;AACpB,kCAAuB;AACvB,uCAA4B;AAC5B,6BAAkB;AAClB,4BAAiB;AACjB,mCAAwB;AACxB,gCAAqB;AACrB,wBAAa;AACb,kBAAO;AACP,0BAAe;AACf,mBAAQ;AACR,iCAAsB;AACtB,kCAAuB;AACvB,+BAAoB;AACpB,oBAAS;AACT,sBAAW;AACX,gCAAqB;AACrB,gCAAqB;AACrB,kCAAuB;AACvB;AACE,qBAAQ,eAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,gCAAmB,gDAAnB;AACA,qBAAQ,CAAC,KAAM,eAAgB,mBAAvB;AACR,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,QAAC,CAAQ,CAAR;AACH,eAAE,OAAC,CAAO,GAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,EAAV;AACH,eAAE,oBAAC,CAAoB,yDAApB;AACH,eAAE,eAAC,CAAe,wCAAf;AACH,eAAE,cAAC,CAAc,wCAAd;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,0BAAC,CAA0B,YAA1B;AACH,eAAE,mBAAC,CAAmB,gDAAnB;AACH,eAAE,yBAAC,CAAyB,yDAAzB;AACH,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,eAAE,YAAC,CAAY,EAAZ;AACH,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,SAAC,CAAS,mCAAT;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,oBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,SAAC,CAAS,mCAAT;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,SAAC,CAAS,mCAAT;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,gBAAG,mBAAmB,CAAC,IAAD;AACtB,gBAAG,QAAC,CAAQ,KAAR;AACJ,gBAAG,QAAC,CAAQ,CAAR;AACJ,gBAAG,OAAC,CAAO,GAAP;AACJ,gBAAG,SAAC,CAAS,GAAT;AACJ,gBAAG,UAAC,CAAU,EAAV;AACJ,gBAAG,oBAAC,CAAoB,gDAApB;AACJ,gBAAG,eAAC,CAAe,wCAAf;AACJ,gBAAG,cAAC,CAAc,wCAAd;AACJ,gBAAG,eAAC,CAAe,QAAf;AACJ,gBAAG,gBAAC,CAAc,CAAd;AACJ,gBAAG,0BAAC,CAA0B,YAA1B;AACJ,gBAAG,mBAAC,CAAmB,gDAAnB;AACJ,gBAAG,yBAAC,CAAyB,gDAAzB;AACJ,gBAAG,YAAC,CAAY,IAAZ;AACJ,gBAAG,YAAC,CAAY,CAAZ;AACJ,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,QAAC,CAAQ,CAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,EAAT;AACb,yBAAY,UAAC,CAAU,EAAV;AACb,yBAAY,WAAC,CAAW,WAAX;AACb,yBAAY,gBAAC,CAAc,CAAd;AACb,yBAAY,oBAAC,CAAoB,mCAApB;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,mBAAC,CAAmB,gDAAnB;AACb,yBAAY,eAAC,CAAe,wCAAf;AACb,yBAAY,iBAAC,CAAiB,sBAAjB;AACb,yBAAY,WAAC,CAAW,KAAX;AACb,yBAAY,cAAC,CAAc,wCAAd;AACb,yBAAY,gBAAC,CAAgB,sBAAhB;AACb,uBAAQ,CAAC,kBAAc,KAAM,UAAW,mBAAhC;AACR,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,CAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,4BAAe,SAAC,CAAS,GAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,oBAAC,CAAoB,cAApB;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,cAAC,CAAc,2CAAd;AAChB,4BAAe,gBAAC,CAAgB,qBAAhB;AAChB,4BAAe,eAAC,CAAe,0CAAf;AAChB,4BAAe,gBAAC,CAAc,EAAd;AAChB,4BAAe,SAAC,CAAS,QAAT;AAChB,4BAAe,QAAC,CAAQ,wBAAR;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,mBAAC,CAAmB,gDAAnB;AAChB,4BAAe,QAAC,CAAQ,EAAR;AAChB,4BAAe,YAAC,CAAY,CAAZ;AAChB,4BAAe,QAAC,CAAQ,EAAR;AAChB,uBAAQ,CAAC,qBAAiB,KAAM,UAAW,sBAAnC;AACR,4BAAe,aAAC,CAAa,aAAb;AAChB,4BAAe,cAAC,CAAc,gBAAd;AAChB,mCAAsB,mBAAmB,CAAC,IAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,QAAC,CAAQ,CAAR;AACvB,mCAAsB,OAAC,CAAO,GAAP;AACvB,mCAAsB,SAAC,CAAS,GAAT;AACvB,mCAAsB,UAAC,CAAU,EAAV;AACvB,mCAAsB,cAAC,CAAc,KAAd;AACvB,mCAAsB,gBAAC,CAAc,EAAd;AACvB,mCAAsB,oBAAC,CAAoB,8BAApB;AACvB,mCAAsB,eAAC,CAAe,yCAAf;AACvB,mCAAsB,mBAAC,CAAmB,gDAAnB;AACvB,mCAAsB,eAAC,CAAe,wCAAf;AACvB,mCAAsB,iBAAC,CAAiB,sBAAjB;AACvB,mCAAsB,YAAC,CAAY,CAAZ;AACvB,mCAAsB,YAAC,CAAY,qBAAZ;AACvB,mCAAsB,cAAC,CAAc,2CAAd;AACvB,mCAAsB,gBAAC,CAAgB,qBAAhB;AACvB,mCAAsB,aAAC,CAAa,qBAAb;AACvB,mCAAsB,cAAC,CAAc,gBAAd;AACvB,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,CAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,4BAAe,SAAC,CAAS,GAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,gBAAC,CAAc,EAAd;AAChB,4BAAe,oBAAC,CAAoB,cAApB;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,mBAAC,CAAmB,gDAAnB;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,iBAAC,CAAiB,sBAAjB;AAChB,4BAAe,YAAC,CAAY,CAAZ;AAChB,4BAAe,YAAC,CAAY,gBAAZ;AAChB,4BAAe,cAAC,CAAc,2CAAd;AAChB,4BAAe,gBAAC,CAAgB,qBAAhB;AAChB,4BAAe,aAAC,CAAa,cAAb;AAChB,4BAAe,cAAC,CAAc,gBAAd;AAChB,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,CAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,4BAAe,SAAC,CAAS,EAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,WAAC,CAAW,OAAX;AAChB,4BAAe,gBAAC,CAAc,CAAd;AAChB,4BAAe,oBAAC,CAAoB,mCAApB;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,mBAAC,CAAmB,gDAAnB;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,iBAAC,CAAiB,sBAAjB;AAChB,4BAAe,WAAC,CAAW,KAAX;AAChB,4BAAe,cAAC,CAAc,wCAAd;AAChB,4BAAe,gBAAC,CAAgB,sBAAhB;AAChB,uBAAQ,CAAC,qBAAiB,KAAM,UAAW,sBAAnC;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,oBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,SAAC,CAAS,mCAAT;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,SAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,6BAAgB,mBAAmB,CAAC,IAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,QAAC,CAAQ,GAAR;AACjB,6BAAgB,OAAC,CAAO,GAAP;AACjB,6BAAgB,SAAC,CAAS,EAAT;AACjB,6BAAgB,UAAC,CAAU,EAAV;AACjB,6BAAgB,WAAC,CAAW,mBAAX;AACjB,6BAAgB,gBAAC,CAAc,CAAd;AACjB,6BAAgB,oBAAC,CAAoB,mCAApB;AACjB,6BAAgB,eAAC,CAAe,yCAAf;AACjB,6BAAgB,mBAAC,CAAmB,gDAAnB;AACjB,6BAAgB,eAAC,CAAe,wCAAf;AACjB,6BAAgB,iBAAC,CAAiB,sBAAjB;AACjB,6BAAgB,cAAC,CAAc,wCAAd;AACjB,6BAAgB,gBAAC,CAAgB,sBAAhB;AACjB,uBAAQ,CAAC,sBAAkB,KAAM,UAAW,uBAApC;AACR,8BAAiB,mBAAmB,CAAC,IAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,QAAC,CAAQ,GAAR;AAClB,8BAAiB,OAAC,CAAO,GAAP;AAClB,8BAAiB,SAAC,CAAS,EAAT;AAClB,8BAAiB,UAAC,CAAU,EAAV;AAClB,8BAAiB,WAAC,CAAW,oBAAX;AAClB,8BAAiB,gBAAC,CAAc,CAAd;AAClB,8BAAiB,oBAAC,CAAoB,mCAApB;AAClB,8BAAiB,eAAC,CAAe,yCAAf;AAClB,8BAAiB,mBAAC,CAAmB,gDAAnB;AAClB,8BAAiB,eAAC,CAAe,wCAAf;AAClB,8BAAiB,iBAAC,CAAiB,sBAAjB;AAClB,8BAAiB,cAAC,CAAc,wCAAd;AAClB,8BAAiB,gBAAC,CAAgB,sBAAhB;AAClB,uBAAQ,CAAC,uBAAmB,KAAM,UAAW,wBAArC;AACR,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,mBAAP,GAA6B;AAC7B,oBAAO,WAAP,GAAqB;AACrB,oBAAO,YAAP,GAAsB;AACtB,oBAAO,WAAP,GAAqB;AACrB,oBAAO,iBAAC,CAAiB,UAAjB;AACR,oBAAO,cAAC,CAAc,aAAG,oBAAjB;AACR,oBAAO,iBAAC,CAAiB,CAAjB;AACR,oBAAO,aAAP,GAAuB;AACvB,oBAAO,QAAC,CAAQ,EAAR;AACR,oBAAO,OAAC,CAAO,GAAP;AACR,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,UAAnB,GAAgC;AAChC,4CAA+B,mBAAmB,CAAC,YAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,UAArB,GAAkC;AAClC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,sCAAyB,mBAAmB,CAAC,YAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,wCAA2B,mBAAmB,CAAC,YAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,oCAAuB,mBAAmB,CAAC,YAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,yBAAY,mBAAmB,CAAC,YAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,UAAZ,GAAyB;AACzB,wBAAW,mBAAmB,CAAC,YAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,4BAAe,mBAAmB,CAAC,YAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,EAAR;AAChB,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,QAAC,CAAQ,EAAR;AACf,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,uBAAU,mBAAmB,CAAC,YAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,WAAV,GAAwB;AACxB,uBAAU,QAAC,CAAQ,EAAR;AACX,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,CAAR;AACtB,wBAAW,mBAAmB,CAAC,YAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,wBAAW,QAAC,CAAQ,EAAR;AACZ,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,GAAR;AACpB,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,yBAAY,mBAAmB,CAAC,YAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,QAAC,CAAQ,EAAR;AACb,+BAAkB,mBAAmB,CAAC,YAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,GAAR;AACnB,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,GAAR;AAC3B,qCAAwB,mBAAmB,CAAC,YAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,yCAA4B,mBAAmB,CAAC,YAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,GAAR;AAC7B,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,GAAR;AAC3B,sCAAyB,mBAAmB,CAAC,YAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,qCAAwB,mBAAmB,CAAC,YAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,uBAAU,mBAAmB,CAAC,YAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,WAAV,GAAwB;AACxB,uBAAU,QAAC,CAAQ,EAAR;AACX,4BAAe,mBAAmB,CAAC,YAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,GAAR;AAChB,oCAAuB,mBAAmB,CAAC,YAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,GAAR;AACxB,yBAAY,mBAAmB,CAAC,YAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,QAAC,CAAQ,GAAR;AACb,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,oCAAuB,mBAAmB,CAAC,YAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,mBAAmB,CAAC,YAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,+BAAkB,mBAAmB,CAAC,YAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,6BAAgB,mBAAmB,CAAC,YAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,QAAC,CAAQ,EAAR;AACf,yBAAY,mBAAmB,CAAC,YAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,+BAAkB,mBAAmB,CAAC,YAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,sCAAyB,mBAAmB,CAAC,YAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,GAAR;AAC1B,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,oCAAuB,mBAAmB,CAAC,YAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,qCAAwB,mBAAmB,CAAC,YAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,6BAAgB,mBAAmB,CAAC,YAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,GAAR;AACjB,qCAAwB,mBAAmB,CAAC,YAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,wCAA2B,mBAAmB,CAAC,YAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,+BAAkB,mBAAmB,CAAC,YAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,qCAAwB,mBAAmB,CAAC,YAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,QAAC,CAAQ,CAAR;AACf,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,QAAC,CAAQ,EAAR;AACf,oCAAuB,mBAAmB,CAAC,YAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,mCAAsB,mBAAmB,CAAC,YAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,wBAAW,mBAAmB,CAAC,YAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,wBAAW,QAAC,CAAQ,EAAR;AACZ,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,+BAAkB,mBAAmB,CAAC,YAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,4BAAe,mBAAmB,CAAC,YAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,+BAAkB,mBAAmB,CAAC,YAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,qCAAwB,mBAAmB,CAAC,YAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,oCAAuB,mBAAmB,CAAC,YAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,yBAAY,mBAAmB,CAAC,YAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,QAAC,CAAQ,GAAR;AACb,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,6BAAgB,mBAAmB,CAAC,YAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,4BAAe,mBAAmB,CAAC,YAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,mCAAsB,mBAAmB,CAAC,YAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,qCAAwB,mBAAmB,CAAC,YAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,6BAAgB,mBAAmB,CAAC,YAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,GAAR;AACjB,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,4BAAe,mBAAmB,CAAC,YAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,4BAAe,mBAAmB,CAAC,YAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,CAAR;AAChB,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,6CAAgC,mBAAmB,CAAC,YAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,sCAAyB,mBAAmB,CAAC,YAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,GAAR;AAC1B,0CAA6B,mBAAmB,CAAC,YAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,2CAA8B,mBAAmB,CAAC,YAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,wCAA2B,mBAAmB,CAAC,YAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,sCAAyB,mBAAmB,CAAC,YAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,6BAAgB,mBAAmB,CAAC,YAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,mCAAsB,mBAAmB,CAAC,YAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,sCAAyB,mBAAmB,CAAC,YAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,6CAAgC,mBAAmB,CAAC,YAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,6BAAgB,mBAAmB,CAAC,YAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,wCAA2B,mBAAmB,CAAC,YAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,GAAR;AAC5B,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,6BAAgB,mBAAmB,CAAC,YAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,GAAR;AACtB,mCAAsB,mBAAmB,CAAC,YAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAC,CAAW,YAAX;AACZ,uBAAQ,CAAC,iBAAa,KAAM,gBAAiB,wBAArC;AACR,wBAAW,QAAC,CAAQ,EAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,iBAAC,CAAiB,oBAAjB;AACb,yBAAY,cAAC,CAAc,aAAG,oBAAjB;AACb,yBAAY,iBAAC,CAAiB,CAAjB;AACb,yBAAY,aAAZ,GAA4B;AAC5B,yBAAY,QAAC,CAAQ,GAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,sCAAyB,mBAAmB,CAAC,iBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,uCAA0B,mBAAmB,CAAC,iBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,2BAAc,mBAAmB,CAAC,iBAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,UAAd,GAA2B;AAC3B,8BAAiB,mBAAmB,CAAC,iBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,UAAjB,GAA8B;AAC9B,+BAAkB,mBAAmB,CAAC,iBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,8BAAiB,mBAAmB,CAAC,iBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,4CAA+B,mBAAmB,CAAC,iBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,4CAA+B,mBAAmB,CAAC,iBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,GAAR;AAChC,8BAAiB,mBAAmB,CAAC,iBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,oCAAuB,mBAAmB,CAAC,iBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,sCAAyB,mBAAmB,CAAC,iBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,mBAAmB,CAAC,iBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,qCAAwB,mBAAmB,CAAC,iBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,oCAAuB,mBAAmB,CAAC,iBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,yCAA4B,mBAAmB,CAAC,iBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,2CAA8B,mBAAmB,CAAC,iBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,kCAAqB,mBAAmB,CAAC,iBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,gCAAmB,mBAAmB,CAAC,iBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,+BAAkB,mBAAmB,CAAC,iBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,mBAAmB,CAAC,iBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,8BAAiB,mBAAmB,CAAC,iBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,2CAA8B,mBAAmB,CAAC,iBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,iCAAoB,mBAAmB,CAAC,iBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,gCAAmB,mBAAmB,CAAC,iBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,uCAA0B,mBAAmB,CAAC,iBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,oCAAuB,mBAAmB,CAAC,iBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,mCAAsB,mBAAmB,CAAC,iBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,uCAA0B,mBAAmB,CAAC,iBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,4BAAe,mBAAmB,CAAC,iBAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,mCAAsB,mBAAmB,CAAC,iBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,mCAAsB,mBAAmB,CAAC,iBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,gDAAmC,mBAAmB,CAAC,iBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,0CAA6B,mBAAmB,CAAC,iBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,iCAAoB,mBAAmB,CAAC,iBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,wCAA2B,mBAAmB,CAAC,iBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,yCAA4B,mBAAmB,CAAC,iBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,mCAAsB,mBAAmB,CAAC,iBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,2CAA8B,mBAAmB,CAAC,iBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,8BAAiB,mBAAmB,CAAC,iBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,kCAAqB,mBAAmB,CAAC,iBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,qCAAwB,mBAAmB,CAAC,iBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,+CAAkC,mBAAmB,CAAC,iBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,GAAR;AACnC,qCAAwB,mBAAmB,CAAC,iBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,wCAA2B,mBAAmB,CAAC,iBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,yCAA4B,mBAAmB,CAAC,iBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,gCAAmB,mBAAmB,CAAC,iBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,gCAAmB,mBAAmB,CAAC,iBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,uCAA0B,mBAAmB,CAAC,iBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,yCAA4B,mBAAmB,CAAC,iBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,uCAA0B,mBAAmB,CAAC,iBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,GAAR;AAC3B,8BAAiB,mBAAmB,CAAC,iBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,2CAA8B,mBAAmB,CAAC,iBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,+BAAkB,mBAAmB,CAAC,iBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,6BAAgB,mBAAmB,CAAC,iBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,sCAAyB,mBAAmB,CAAC,iBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,mBAAmB,CAAC,iBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,gCAAmB,mBAAmB,CAAC,iBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,sCAAyB,mBAAmB,CAAC,iBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,oCAAuB,mBAAmB,CAAC,iBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,gCAAmB,mBAAmB,CAAC,iBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,kCAAqB,mBAAmB,CAAC,iBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,mCAAsB,mBAAmB,CAAC,iBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,0CAA6B,mBAAmB,CAAC,iBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,4CAA+B,mBAAmB,CAAC,iBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,6BAAgB,mBAAmB,CAAC,iBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,uCAA0B,mBAAmB,CAAC,iBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,8BAAiB,mBAAmB,CAAC,iBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,mCAAsB,mBAAmB,CAAC,iBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,6CAAgC,mBAAmB,CAAC,iBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,GAAR;AACjC,gCAAmB,mBAAmB,CAAC,iBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,mCAAsB,mBAAmB,CAAC,iBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,yCAA4B,mBAAmB,CAAC,iBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,GAAR;AAC7B,iCAAoB,mBAAmB,CAAC,iBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,yCAA4B,mBAAmB,CAAC,iBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,uCAA0B,mBAAmB,CAAC,iBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,iBAAC,CAAiB,OAAjB;AAC3B,uCAA0B,mBAAmB,CAAC,iBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,iBAAC,CAAiB,OAAjB;AAC3B,mDAAsC,mBAAmB,CAAC,iBAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,mDAAsC,QAAC,CAAQ,EAAR;AACvC,iDAAoC,mBAAmB,CAAC,iBAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,6BAAgB,mBAAmB,CAAC,IAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAC,CAAW,iBAAX;AACjB,6BAAgB,QAAC,CAAQ,GAAR;AACjB,6BAAgB,OAAC,CAAO,GAAP;AACjB,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,WAAV,GAAwB;AACxB,uBAAU,iBAAC,CAAiB,oBAAjB;AACX,uBAAU,cAAC,CAAc,aAAG,oBAAjB;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,yCAA4B,mBAAmB,CAAC,eAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,+BAAkB,mBAAmB,CAAC,eAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,kCAAqB,mBAAmB,CAAC,eAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,0BAAa,mBAAmB,CAAC,eAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,cAAC,CAAc,aAAG,oBAAjB;AACR,oBAAO,QAAC,CAAQ,EAAR;AACR,oBAAO,OAAC,CAAO,CAAP;AACR,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,SAAQ;AACvB;AACE,8BAAe,SAAQ;AACvB,8BAAe,SAAQ,IAAI,CAAC,mDAAD;AAF7B;AAIE,8BAAe,SAAQ;AAJzB;AAMA,4BAAe,QAAC,CAAQ,EAAR;AAChB,4BAAe,OAAC,CAAO,EAAP;AAChB,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,WAAR,GAAsB;AACtB,qBAAQ,iBAAC,CAAiB,SAAjB;AACT,qBAAQ,cAAC,CAAc,aAAG,oBAAjB;AACT,qBAAQ,QAAC,CAAQ,EAAR;AACT,qBAAQ,OAAC,CAAO,CAAP;AACT,mCAAsB,mBAAmB,CAAC,aAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,UAAtB,GAAmC;AACnC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,oCAAuB,mBAAmB,CAAC,aAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,iCAAoB,mBAAmB,CAAC,aAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,WAAT,GAAuB;AACvB,sBAAS,iBAAC,CAAiB,kBAAjB;AACV,sBAAS,cAAC,CAAc,aAAG,oBAAjB;AACV,sBAAS,QAAC,CAAQ,GAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,wBAAW,mBAAmB,CAAC,cAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,wBAAW,UAAX,GAAwB;AACxB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,UAArB,GAAkC;AAClC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AA3kC1B;AA6kCE,eAAE;AACF,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,gBAAG;AACH,yBAAY;AACZ,4BAAe;AACf,mCAAsB;AACtB,4BAAe;AACf,4BAAe;AACf,uBAAU;AACV,uBAAU;AACV,6BAAgB;AAChB,8BAAiB;AACjB,oBAAO;AACP,gCAAmB;AACnB,4CAA+B;AAC/B,kCAAqB;AACrB,sCAAyB;AACzB,wCAA2B;AAC3B,oCAAuB;AACvB,yBAAY;AACZ,wBAAW;AACX,iCAAoB;AACpB,4BAAe;AACf,2BAAc;AACd,gCAAmB;AACnB,uBAAU;AACV,kCAAqB;AACrB,wBAAW;AACX,gCAAmB;AACnB,gCAAmB;AACnB,yBAAY;AACZ,+BAAkB;AAClB,uCAA0B;AAC1B,qCAAwB;AACxB,yCAA4B;AAC5B,uCAA0B;AAC1B,sCAAyB;AACzB,qCAAwB;AACxB,uBAAU;AACV,4BAAe;AACf,oCAAuB;AACvB,yBAAY;AACZ,uCAA0B;AAC1B,uCAA0B;AAC1B,gCAAmB;AACnB,gCAAmB;AACnB,8BAAiB;AACjB,oCAAuB;AACvB,oCAAuB;AACvB,kCAAqB;AACrB,+BAAkB;AAClB,gCAAmB;AACnB,8BAAiB;AACjB,gCAAmB;AACnB,8BAAiB;AACjB,kCAAqB;AACrB,iCAAoB;AACpB,6BAAgB;AAChB,2BAAc;AACd,yBAAY;AACZ,uCAA0B;AAC1B,2BAAc;AACd,+BAAkB;AAClB,sCAAyB;AACzB,uCAA0B;AAC1B,oCAAuB;AACvB,gCAAmB;AACnB,qCAAwB;AACxB,6BAAgB;AAChB,qCAAwB;AACxB,wCAA2B;AAC3B,+BAAkB;AAClB,kCAAqB;AACrB,qCAAwB;AACxB,iCAAoB;AACpB,uCAA0B;AAC1B,2BAAc;AACd,2BAAc;AACd,oCAAuB;AACvB,mCAAsB;AACtB,iCAAoB;AACpB,8BAAiB;AACjB,kCAAqB;AACrB,wBAAW;AACX,gCAAmB;AACnB,+BAAkB;AAClB,gCAAmB;AACnB,iCAAoB;AACpB,4BAAe;AACf,kCAAqB;AACrB,gCAAmB;AACnB,gCAAmB;AACnB,uCAA0B;AAC1B,iCAAoB;AACpB,gCAAmB;AACnB,iCAAoB;AACpB,gCAAmB;AACnB,8BAAiB;AACjB,2BAAc;AACd,+BAAkB;AAClB,qCAAwB;AACxB,oCAAuB;AACvB,iCAAoB;AACpB,iCAAoB;AACpB,iCAAoB;AACpB,yBAAY;AACZ,gCAAmB;AACnB,gCAAmB;AACnB,6BAAgB;AAChB,4BAAe;AACf,mCAAsB;AACtB,qCAAwB;AACxB,6BAAgB;AAChB,kCAAqB;AACrB,8BAAiB;AACjB,8BAAiB;AACjB,4BAAe;AACf,kCAAqB;AACrB,kCAAqB;AACrB,4BAAe;AACf,gCAAmB;AACnB,8BAAiB;AACjB,6CAAgC;AAChC,sCAAyB;AACzB,0CAA6B;AAC7B,2CAA8B;AAC9B,8BAAiB;AACjB,iCAAoB;AACpB,wCAA2B;AAC3B,uCAA0B;AAC1B,uCAA0B;AAC1B,uCAA0B;AAC1B,kCAAqB;AACrB,sCAAyB;AACzB,6BAAgB;AAChB,mCAAsB;AACtB,iCAAoB;AACpB,sCAAyB;AACzB,6CAAgC;AAChC,8BAAiB;AACjB,6BAAgB;AAChB,wCAA2B;AAC3B,iCAAoB;AACpB,6BAAgB;AAChB,kCAAqB;AACrB,mCAAsB;AACtB,wBAAW;AACX,yBAAY;AACZ,sCAAyB;AACzB,uCAA0B;AAC1B,2BAAc;AACd,8BAAiB;AACjB,+BAAkB;AAClB,8BAAiB;AACjB,4CAA+B;AAC/B,4CAA+B;AAC/B,8BAAiB;AACjB,oCAAuB;AACvB,sCAAyB;AACzB,sCAAyB;AACzB,qCAAwB;AACxB,oCAAuB;AACvB,yCAA4B;AAC5B,2CAA8B;AAC9B,kCAAqB;AACrB,gCAAmB;AACnB,+BAAkB;AAClB,+BAAkB;AAClB,8BAAiB;AACjB,2CAA8B;AAC9B,iCAAoB;AACpB,gCAAmB;AACnB,uCAA0B;AAC1B,oCAAuB;AACvB,mCAAsB;AACtB,uCAA0B;AAC1B,4BAAe;AACf,mCAAsB;AACtB,mCAAsB;AACtB,gDAAmC;AACnC,0CAA6B;AAC7B,iCAAoB;AACpB,wCAA2B;AAC3B,yCAA4B;AAC5B,mCAAsB;AACtB,2CAA8B;AAC9B,8BAAiB;AACjB,kCAAqB;AACrB,qCAAwB;AACxB,+CAAkC;AAClC,qCAAwB;AACxB,wCAA2B;AAC3B,yCAA4B;AAC5B,gCAAmB;AACnB,gCAAmB;AACnB,uCAA0B;AAC1B,yCAA4B;AAC5B,uCAA0B;AAC1B,8BAAiB;AACjB,2CAA8B;AAC9B,+BAAkB;AAClB,6BAAgB;AAChB,sCAAyB;AACzB,sCAAyB;AACzB,gCAAmB;AACnB,sCAAyB;AACzB,oCAAuB;AACvB,gCAAmB;AACnB,kCAAqB;AACrB,mCAAsB;AACtB,0CAA6B;AAC7B,4CAA+B;AAC/B,6BAAgB;AAChB,uCAA0B;AAC1B,8BAAiB;AACjB,mCAAsB;AACtB,6CAAgC;AAChC,gCAAmB;AACnB,mCAAsB;AACtB,yCAA4B;AAC5B,iCAAoB;AACpB,yCAA4B;AAC5B,uCAA0B;AAC1B,uCAA0B;AAC1B,mDAAsC;AACtC,iDAAoC;AACpC,6BAAgB;AAChB,uBAAU;AACV,iCAAoB;AACpB,oCAAuB;AACvB,yCAA4B;AAC5B,+BAAkB;AAClB,8BAAiB;AACjB,qCAAwB;AACxB,kCAAqB;AACrB,0BAAa;AACb,oBAAO;AACP,4BAAe;AACf,qBAAQ;AACR,mCAAsB;AACtB,oCAAuB;AACvB,iCAAoB;AACpB,sBAAS;AACT,wBAAW;AACX,kCAAqB;AACrB,kCAAqB;AACrB,oCAAuB;AAt0CzB;AAzfoC;AAjyBtB;;;AACZ,0BpIDc,kDoICd;AACA,8B1J8iDS,2B0J9iDT;AACA,+BpIHc,kDoIGd;AACA,mC1J4iDS,2B0J5iDT;AACA,4CtJFkB,0DsJElB;AACA,6CtJHkB,0DsJGlB;AACA,iC1JgdW,6B0JhdX;AACA,oC1JkiBS,2B0JliBT;AACA,qC1JiiBS,2B0JjiBT;AACA,oC1JmkBW,6B0JnkBX;AACA,kD1JoZU,4B0JpZV;AACA,kD1JmZU,4B0JnZV;AACA,oC1J6hBS,2B0J7hBT;AACA,0C1JiZU,4B0JjZV;AACA,4C1J2hBS,2B0J3hBT;AACA,4C1J0hBS,2B0J1hBT;AACA,2C1J8YU,4B0J9YV;AACA,0C1J6YU,4B0J7YV;AACA,+C1J4YU,4B0J5YV;AACA,iD1J2YU,4B0J3YV;AACA,wC1J0YU,4B0J1YV;AACA,sC1JohBS,2B0JphBT;AACA,qC1JmhBS,2B0JnhBT;AACA,qC1JkhBS,2B0JlhBT;AACA,oC1JihBS,2B0JjhBT;AACA,iD1JghBS,2B0JhhBT;AACA,uC1J+gBS,2B0J/gBT;AACA,sC1J8gBS,2B0J9gBT;AACA,6C1J6gBS,2B0J7gBT;AACA,0C1J4gBS,2B0J5gBT;AACA,yC1J2gBS,2B0J3gBT;AACA,6C1J0gBS,2B0J1gBT;AACA,kC1JygBS,2B0JzgBT;AACA,yC1J6XU,4B0J7XV;AACA,yC1J4XU,4B0J5XV;AACA,sD1JkkBY,8B0JlkBZ;AACA,gD1JqgBS,2B0JrgBT;AACA,uC1JogBS,2B0JpgBT;AACA,8C1JmgBS,2B0JngBT;AACA,+C1JkgBS,2B0JlgBT;AACA,yC1JigBS,2B0JjgBT;AACA,iD1JmiBW,6B0JniBX;AACA,oC1JoXU,4B0JpXV;AACA,wC1JiiBW,6B0JjiBX;AACA,2C1JgiBW,6B0JhiBX;AACA,qD1JiXU,4B0JjXV;AACA,2C1JgXU,4B0JhXV;AACA,8C1J+WU,4B0J/WV;AACA,+C1JyfS,2B0JzfT;AACA,sC1J6WU,4B0J7WV;AACA,sC1J4WU,4B0J5WV;AACA,6C1JsfS,2B0JtfT;AACA,+C1JqfS,2B0JrfT;AACA,6C1JyWU,4B0JzWV;AACA,oC1J+iBY,8B0J/iBZ;AACA,iD1JuWU,4B0JvWV;AACA,qC1JsWU,4B0JtWV;AACA,mC1JgfS,2B0JhfT;AACA,4C1J+eS,2B0J/eT;AACA,4C1J8eS,2B0J9eT;AACA,sC1JkWU,4B0JlWV;AACA,4C1J+gBW,6B0J/gBX;AACA,0C1JwZW,6B0JxZX;AACA,sC1JuZW,6B0JvZX;AACA,wC1J4gBW,6B0J5gBX;AACA,yC1J6VU,4B0J7VV;AACA,gD1JueS,2B0JveT;AACA,kD1J2VU,4B0J3VV;AACA,mC1JkZW,6B0JlZX;AACA,6C1JyVU,4B0JzVV;AACA,oC1JwVU,4B0JxVV;AACA,yC1J8hBY,8B0J9hBZ;AACA,mD1JsVU,4B0JtVV;AACA,sC1JgeS,2B0JheT;AACA,yC1J+dS,2B0J/dT;AACA,+C1JmVU,4B0JnVV;AACA,uC1J0YW,6B0J1YX;AACA,+C1JwhBY,8B0JxhBZ;AACA,6C1JuhBY,8B0JvhBZ;AACA,6C1JshBY,8B0JthBZ;AACA,qB9Hk2BW,0C8Hl2BX;AACA,yD1J6UU,4B0J7UV;AACA,uD1J0fW,6B0J1fX;AACA,6BpIpFc,kDoIoFd;AACA,uC1JqdS,2B0JrdT;AACA,0C1JodS,2B0JpdT;AACA,+C1JmdS,2B0JndT;AACA,qC1JkdS,2B0JldT;AACA,oC1JidS,2B0JjdT;AACA,2C1JgdS,2B0JhdT;AACA,wC1J+cS,2B0J/cT;AACA,gC1J8cS,2B0J9cT;AACA,0BtIZa,gDsIYb;AACA,kCtLtEU,wCsLsEV;AACA,2BpI/Fc,kDoI+Fd;AACA,yC1J+TU,4B0J/TV;AACA,0C1J8TU,4B0J9TV;AACA,uC1J6TU,4B0J7TV;AACA,6B3Kg1BY,8C2Kh1BZ;AACA,6B5KieK,uC4KjeL;AACA,6B3K80BY,8C2K90BZ;AACA,6B3K60BY,8C2K70BZ;AACA,sB9H40BW,0C8H50BX;AACA,+B5K6dK,uC4K7dL;AACA,kC1H8Je,gD0H9Jf;AACA,yC1H/BK,sC0H+BL;AACA,kC1HhCK,sC0HgCL;AACA,kC5KydK,uC4KzdL;AACA,6B3Ks0BY,8C2Kt0BZ;AACA,sCtJ3GkB,0DsJ2GlB;AACA,kD1JgTU,4B0JhTV;AACA,wC1J+SU,4B0J/SV;AACA,4C1J8SU,4B0J9SV;AACA,8C1J6SU,4B0J7SV;AACA,0C1J4SU,4B0J5SV;AACA,+B1JkfY,8B0JlfZ;AACA,8B1JqbS,2B0JrbT;AACA,uC1JiWW,6B0JjWX;AACA,kC1JwSU,4B0JxSV;AACA,iC1JuSU,4B0JvSV;AACA,sC1JsSU,4B0JtSV;AACA,6B1JqSU,4B0JrSV;AACA,wC1JoSU,4B0JpSV;AACA,8B1JmSU,4B0JnSV;AACA,sC1JkSU,4B0JlSV;AACA,sC1JiSU,4B0JjSV;AACA,+B1JgSU,4B0JhSV;AACA,qC1J+RU,4B0J/RV;AACA,6C1J8RU,4B0J9RV;AACA,2C1JqVW,6B0JrVX;AACA,+C1J4RU,4B0J5RV;AACA,6C1J2RU,4B0J3RV;AACA,4C1J0RU,4B0J1RV;AACA,2C1JgeY,8B0JheZ;AACA,6B1JwRU,4B0JxRV;AACA,kC1JuRU,4B0JvRV;AACA,0C1JsRU,4B0JtRV;AACA,+B1JqRU,4B0JrRV;AACA,6C1J+ZS,2B0J/ZT;AACA,6C1J8ZS,2B0J9ZT;AACA,sC1J6ZS,2B0J7ZT;AACA,sC1J4ZS,2B0J5ZT;AACA,oC1J2ZS,2B0J3ZT;AACA,0C1J0ZS,2B0J1ZT;AACA,0C1JyZS,2B0JzZT;AACA,wC1JwZS,2B0JxZT;AACA,qC1JuZS,2B0JvZT;AACA,sC1JkdY,8B0JldZ;AACA,oC1JqZS,2B0JrZT;AACA,sC1JoZS,2B0JpZT;AACA,oC1JmZS,2B0JnZT;AACA,wC1JuQU,4B0JvQV;AACA,uC1JsQU,4B0JtQV;AACA,mC1JqQU,4B0JrQV;AACA,iC1JoQU,4B0JpQV;AACA,+B1JmQU,4B0JnQV;AACA,6C1JgbW,6B0JhbX;AACA,iC1J+aW,6B0J/aX;AACA,qC1JucY,8B0JvcZ;AACA,4C1J+PU,4B0J/PV;AACA,6C1JyYS,2B0JzYT;AACA,0C1JwYS,2B0JxYT;AACA,sC1JuYS,2B0JvYT;AACA,2C1JsYS,2B0JtYT;AACA,mC1J0PU,4B0J1PV;AACA,2C1JgcY,8B0JhcZ;AACA,8C1JsaW,6B0JtaX;AACA,qC1JuPU,4B0JvPV;AACA,wC1JsPU,4B0JtPV;AACA,2C1JqPU,4B0JrPV;AACA,uC1JoPU,4B0JpPV;AACA,6C1J0bY,8B0J1bZ;AACA,iC1JkPU,4B0JlPV;AACA,iC1JiPU,4B0JjPV;AACA,0C1JubY,8B0JvbZ;AACA,yC1J+OU,4B0J/OV;AACA,uC1J8OU,4B0J9OV;AACA,oC1JwXS,2B0JxXT;AACA,wC1J4OU,4B0J5OV;AACA,8B1J2OU,4B0J3OV;AACA,sC1JqXS,2B0JrXT;AACA,qC1JyOU,4B0JzOV;AACA,sC1JwOU,4B0JxOV;AACA,uC1JuOU,4B0JvOV;AACA,kC1J6aY,8B0J7aZ;AACA,wC1J4aY,8B0J5aZ;AACA,sC1JoOU,4B0JpOV;AACA,sC1JmOU,4B0JnOV;AACA,6C1JkOU,4B0JlOV;AACA,uC1JwaY,8B0JxaZ;AACA,sC1J8YW,6B0J9YX;AACA,uC1J+NU,4B0J/NV;AACA,sC1J8NU,4B0J9NV;AACA,oC1J2YW,6B0J3YX;AACA,iC1JmaY,8B0JnaZ;AACA,qC1J2NU,4B0J3NV;AACA,2C1J0NU,4B0J1NV;AACA,0C1JuYW,6B0JvYX;AACA,uC1JmWS,2B0JnWT;AACA,uC1JkWS,2B0JlWT;AACA,uC1JiWS,2B0JjWT;AACA,+B1JqNU,4B0JrNV;AACA,sC1J+VS,2B0J/VT;AACA,sC1JmNU,4B0JnNV;AACA,mC1JkNU,4B0JlNV;AACA,kC1J+XW,6B0J/XX;AACA,yC1JgNU,4B0JhNV;AACA,2C1J+MU,4B0J/MV;AACA,mC1J8MU,4B0J9MV;AACA,wC1J2XW,6B0J3XX;AACA,oC1JmZY,8B0JnZZ;AACA,oC1JkZY,8B0JlZZ;AACA,kC1JwXW,6B0JxXX;AACA,wC1JyMU,4B0JzMV;AACA,wC1JwMU,4B0JxMV;AACA,kC1JuMU,4B0JvMV;AACA,sC1JiVS,2B0JjVT;AACA,oC1J4YY,8B0J5YZ;AACA,mD1J+US,2B0J/UT;AACA,4C1JmMU,4B0JnMV;AACA,gD1JkMU,4B0JlMV;AACA,iD1JiMU,4B0JjMV;AACA,oC1JgMU,4B0JhMV;AACA,uC1J0US,2B0J1UT;AACA,8C1JyUS,2B0JzUT;AACA,6C1JwUS,2B0JxUT;AACA,6C1JuUS,2B0JvUT;AACA,6C1JsUS,2B0JtUT;AACA,wC1JkPW,6B0JlPX;AACA,4C1JyLU,4B0JzLV;AACA,mC1JwLU,4B0JxLV;AACA,yC1J+OW,6B0J/OX;AACA,uC1JsLU,4B0JtLV;AACA,4C1J4XY,8B0J5XZ;AACA,mD1J+TS,2B0J/TT;AACA,oC1J2OW,6B0J3OX;AACA,mC1JyXY,8B0JzXZ;AACA,8C1JiLU,4B0JjLV;AACA,uC1J2TS,2B0J3TT;AACA,mC1JuOW,6B0JvOX;AACA,wC1J8KU,4B0J9KV;AACA,yC1J6KU,4B0J7KV;AACA,4BpInPc,kDoImPd;AACA,8B1JmOW,6B0JnOX;AACA,wC1JiXY,8B0JjXZ;AACA,wC1JyKU,4B0JzKV;AACA,0C1JwKU,4B0JxKV;AACA,6B5K6UK,uC4K7UL;AACA,mC5K4UK,uC4K5UL;AACA,oC5K2UK,uC4K3UL;AACqB,kCAAO,UzM7IvB,2ByM6IuB,CAAP;AACK,uCAAQ,W1J60B5B,wB0J70B4B,CAAR;AACA,uCAAQ,W1J40B5B,wB0J50B4B,CAAR;AACQ,+CAAO,U1J20BnC,wB0J30BmC,EAAgB,Q1Jg0B5C,+B0Jh0B4C,CAAvB;AACJ,2CAAO,UzMjJhC,2ByMiJgC,CAAP;AACH,wCAAO,UzMlJ7B,2ByMkJ6B,EAAuB,0BAA9B;AACA,wCAAQ,W1Jw0B7B,wB0Jx0B6B,CAAR;AACE,0CAAQ,W1Ju0B/B,wB0Jv0B+B,CAAR;AACF,wCAAQ,W1Js0B7B,wB0Jt0B6B,CAAR;AACF,sCAAO,UzMtJ3B,2ByMsJ2B,CAAP;AACM,4CAAQ,W1Jo0BjC,wB0Jp0BiC,CAAR;AACC,6CAAO,UzMxJlC,2ByMwJkC,CAAP;AACL,wCAAO,UzMzJ7B,2ByMyJ6B,CAAP;AACG,2CAAO,UzM1JhC,2ByM0JgC,CAAP;AACF,yCAAQ,W1Jg0B9B,wB0Jh0B8B,CAAR;AACH,sCAAO,UzM5J3B,2ByM4J2B,CAAP;AACM,4CAAO,UzM7JjC,2ByM6JiC,CAAP;AACC,6CAAO,UzM9JlC,2ByM8JkC,CAAP;AA5QpB;AAoSd;AApTF,GAuTc,8FAvTd;ACAA,gCAES,oVAFT;;;AAYe;;;AACX;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAYA;AAhCW;;;;;;;;;;;;;;;;;;;;;;;;;AA4NoB;AAEjC,qBAAU;AAFuB;AAzDS;;AAE1C;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,sCAAH;AACd,wBAAU,MAAK,WAAC,CAAM,EAAN;AALG;AAQG;AAEtB,YAAG,IAAI,cAAc,KAAE,EAAvB;AAEE,4BAAY,CAAC,IAAI,eAAe,SAApB;;AAIZ,0BAAU;AACV,0BAAU;;AATU;AAc1B,aAAM,sCAAgB,QAAC,eAAS,aAAT;AACvB,UAAI,YAAU;AA1B4B;AA9BU;;AAEpD;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,sCAAH;AACd,wBAAU,MAAK,WAAC,CAAM,EAAN;AALG;AAQG;AAEtB,YAAG,IAAI,cAAc,KAAE,EAAvB;AAEE,4BAAY,CAAC,IAAI,eAAe,mBAApB;;AAIZ,0BAAU;AACV,0BAAU;;AATU;AAc1B,aAAM,sCAAgB,QAAC,eAAS,aAAT;AACvB,UAAI,YAAU;AA1BsC;AA4FX;AAEzC;AACA;AAGA,qBAAU,MAAK,WAAC,CAAM,uEAAN;AAEhB,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,kBAAW,eAAU,iBAAC;AAEtB,qBAAU,iBAAC,CAAe,SAAf;AACX,0BAAe,iBAAC,CAAe,SAAf;AAChB,oCAAyB,iBAAC,CAAe,SAAf;AAC1B,yBAAc,iBAAC,CAAe,SAAf;AACf,sBAAW,iBAAC,CAAe,SAAf;AACZ,qBAAU;AACV,UAAG,eAAU,eAAC,EAAW,KAAC,CAA1B,EAAiC,gBAAW,QAAC,CAAM,iBAAN,CAA7C;AACA,UAAG,eAAU,eAAC,EAAW,GAAC,CAA1B,EAAiC,gBAAW,QAAC,CAAM,cAAc,GAAC,qBAAQ,CAAC,eAAU,eAAC,EAAZ,CAA7B,CAA7C;AACA,UAAG,eAAU,eAAC,EAAW,GAAC,EAA1B,EAAkC,gBAAW,QAAC,CAAM,mDAAN,CAA9C;AACA,UAAG,eAAU,eAAC,EAAW,GAAC,GAA1B,EAAmC,gBAAW,QAAC,CAAM,YAA6C,GAAhC,qBAAQ,CAAC,eAAU,eAAC,EAAZ,CAAT,GAAkC,sBAApD,CAA/C;AAGA,aAAM,CAAI,eAAU,OAAC,EAArB;AAGE,sBAAa,+BAA2K,GAA3I,6BAAwB,YAAC,EAA1B,GAAmC,KAAD,GAAO,2BAAc,CAAC,aAAa,oBAAe,cAAC,EAA9B,CAAf,GAAyD,UAAD,GAAY,4BAAuB,YAAC,EAAzB,GAAkC,YAAD;AACxL,sBAAa,WAAsC,GAA1B,0BAAD,GAA4B,uCAAkC,YAAC,EAApC;AACnD,sBAAa,WAA6C,GAAjC,KAAD,GAAO,uBAAkB,YAAC,EAApB,GAA6B,MAAD;AAC1D,sBAAa,WAAwD,GAA5C,KAAD,GAAO,kCAA6B,YAAC,EAA/B,GAAwC,UAAD;AACrE,YAAG,eAAK,IAAI,eAAe,KAAC,IAA5B,EAAsC,cAAa,WAAoE,GAAxD,wBAAW,CAAC,eAAe,yBAAoB,WAAC,EAArC,CAAZ,GAA0D,MAAxH;AACA,sBAAa,WAAgD,GAApC,gCAA2B,YAAC,EAA7B,GAAsC,MAAD;AAC7D,sBAAa,WAAW,GAAC,QAAD;AAGxB,oBAAW,eAAU,iBAAC;AACtB,0BAAY,+BAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,uBAAU,MAAC,CAAW,6BAAwB,YAAC,EAApC;AACX,uBAAU,eAAC,CAAa,wCAAb;AACX,uBAAU,SAAC,CAAO,GAAP;AACX,uBAAU,MAAK,WAAC,CAAM,WAAN;AAChB,uBAAU,oBAAC,CAAkB,sBAAlB;AACX,uBAAU,SAAV,GAAqB;AACrB,uBAAU,iBAAC,CAAe,SAAf;AAEX,uBAAU;;AAEZ,yBAAc;AA/C2B;AAvIH;AAEtC,UAAG,gBAAG,CAAC,gBAAgB,gBAAW,OAAM,CAAlC,CAAoC,GAAC,CAA3C;AAEE,uBAAU;AACV,uBAAU,UAAV,GAAqB;AACrB,uBAAU;OAJZ;AAFsC;AAuGD;AAErC,qBAAU;AACV,UAAI;AAHiC;AAMK;AAE1C;AAEA,qBAAc,mBAAc,QAAC;AAC7B,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,UAAU,YAAD,OAAc,GAAC,CAAxB;AAEE,uBAAU;AACV,uBAAU,aAAV,GAAwB,oHAA+P,GAA1I,sBAAS,CAAC,atM6DrG,GsM7DoG,CAAV,GAAyB,6BAAD,GAA+B,sBAAS,CAAC,atM6D3J,GsM7D0J,CAAV,GAAyB,oCAAD,GAAsC,sBAAS,CAAC,atM6DxN,GsM7DuN,CAAV,GAAyB,iCAAD;;AAKvR,uBAAU;AACV,uBAAU,aAAV,GAAwB;;AAE1B,qBAAU;AAjBgC;AAzJL;;AAErC;AACA;AAEA,wBAAyB,OAAP,OAAU,+BAAH,CAAY,MAAC;AACtC,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,sBAAiB,qCAAc,QAAC,eAAS,CAAC;AAE/B,eAAN,MAAS,qCAAH,CAAkB,cAAzB,GAAyC;AAFH,OAAD,CAAT;AAMhC,mBAAa,YAAU,CAAC;AAEpB,wBAAU;AACV,wBAAU;AAHU,OAAD;AAbc;AAwBH;;AACd;AAEpB;AAEE,mBAAgB,KAAW,QAAQ,QAAS,SAA5B;AAChB,YAAG,QAAQ,KAAC,OAAZ;AAEE,2CAAW,CAAC,iDAAD;;AAIX,4BAAY,CAAC,QAAD;;AAXI;AAepB,kBAAO,YAAU,CAAC,8BAA8B,CAAC,aAAa,iCAAuB,aAArC,avI6E+F,IuI7E9H;AAhBiB;AA8BA;;AAElC;AACuB;AAEnB;AAEA,wBAAsB,OAAN,MAAS,qCAAH;AAEtB,qBAAa,cAAb,GAA6B;AANV;AASG;AAEtB,wBAAU;AACV,wBAAU;AAHY;AAO1B,UAAG,kBAAH;AAEA,wBAAe,qCAAc,QAAC,eAAS,aAAT;AAG/B,qBAAa,YAAU;;AAIpB,yCAAW,CAAC,iGAAD;;AA5BqB;AA+KC;AAEzB;AAEV,yBAAe,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,6BAAmB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,uCAA6B,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,4BAAkB,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,wBAAc,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,6BAAmB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,yCAA+B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,4CAAkC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,qBAAW,uCAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAE3B,sBAAW;AACX,qBAAU;AACV,qBAAU;AACV,0BAAe;AACf,oCAAyB;AACzB,qBAAU;AACV,yBAAc;AACd,qBAAU;AACV,qBAAU;AACV,mCAAwB;AACxB,0BAAe;AACf,6CAAkC;AAClC,6BAAkB;AAClB,wCAA6B;AAC7B,kCAAuB;AACvB,+BAAoB;AACpB,sCAA2B;AAC3B,yCAA8B;AAC9B,gCAAqB;AACrB,kBAAO;AACP;AACE,qBAAQ,cAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,kBAAI,SAAJ,GAAgB;AAChB,kBAAI,SAAC,CAAS,KAAT;AACL,kBAAI,UAAC,CAAU,CAAC,EAAX;AACL,kBAAI,QAAC,CAAQ,QAAR;AACL,kBAAI,SAAC,CAAS,EAAT;AACL,2BAAc,KAAd;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,CAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,EAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,WAAC,CAAW,aAAX;AACZ,wBAAW,oBAAC,CAAoB,QAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,cAAC,CAAc,wCAAd;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,uBAAQ,CAAC,iBAAa,KAAM,UAAW,kBAA/B;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,CAAR;AAChB,4BAAe,OAAC,CAAO,CAAP;AAChB,4BAAe,SAAC,CAAS,EAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,WAAC,CAAW,WAAX;AAChB,4BAAe,gBAAC,CAAc,CAAd;AAChB,4BAAe,oBAAC,CAAoB,4BAApB;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,mBAAC,CAAmB,gDAAnB;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,iBAAC,CAAiB,sBAAjB;AAChB,4BAAe,cAAC,CAAc,wCAAd;AAChB,4BAAe,gBAAC,CAAgB,sBAAhB;AAChB,uBAAQ,CAAC,qBAAiB,KAAM,UAAW,sBAAnC;AACR,sCAAyB,mBAAmB,CAAC,IAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,sCAAyB,OAAC,CAAO,GAAP;AAC1B,sCAAyB,SAAC,CAAS,EAAT;AAC1B,sCAAyB,UAAC,CAAU,EAAV;AAC1B,sCAAyB,WAAC,CAAW,qBAAX;AAC1B,sCAAyB,gBAAC,CAAc,CAAd;AAC1B,sCAAyB,oBAAC,CAAoB,4BAApB;AAC1B,sCAAyB,eAAC,CAAe,yCAAf;AAC1B,sCAAyB,mBAAC,CAAmB,gDAAnB;AAC1B,sCAAyB,eAAC,CAAe,wCAAf;AAC1B,sCAAyB,iBAAC,CAAiB,sBAAjB;AAC1B,sCAAyB,cAAC,CAAc,wCAAd;AAC1B,sCAAyB,gBAAC,CAAgB,sBAAhB;AAC1B,uBAAQ,CAAC,+BAA2B,KAAM,UAAW,gCAA7C;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,CAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,cAAC,CAAc,KAAd;AACf,2BAAc,gBAAC,CAAc,CAAd;AACf,2BAAc,oBAAC,CAAoB,2BAApB;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,iBAAC,CAAiB,sBAAjB;AACf,2BAAc,YAAC,CAAY,IAAZ;AACf,2BAAc,YAAC,CAAY,sBAAZ;AACf,2BAAc,gBAAC,CAAgB,qBAAhB;AACf,uBAAQ,CAAC,oBAAgB,KAAM,WAAY,sBAAnC;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,EAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,4BAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,WAAV,GAAwB;AACxB,uBAAU,iBAAC,CAAiB,UAAjB;AACX,uBAAU,cAAC,CAAc,aAAG,oBAAjB;AACX,uBAAU,iBAAC,CAAiB,CAAjB;AACX,uBAAU,aAAV,GAA0B;AAC1B,uBAAU,UAAV,GAAuB;AACvB,uBAAU,QAAC,CAAQ,EAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,UAAxB,GAAqC;AACrC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,4BAAe,mBAAmB,CAAC,eAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,UAAf,GAA4B;AAC5B,4BAAe,iBAAC,CAAiB,YAAjB;AAChB,+CAAkC,mBAAmB,CAAC,eAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,EAAR;AACnC,+BAAkB,mBAAmB,CAAC,eAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,GAAR;AAC9B,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,wCAA2B,mBAAmB,CAAC,eAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,iBAAC,CAAiB,YAAjB;AAC5B,2CAA8B,mBAAmB,CAAC,eAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,kCAAqB,mBAAmB,CAAC,eAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,GAAR;AACtB,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,cAAC,CAAc,aAAG,oBAAjB;AACR,oBAAO,QAAC,CAAQ,GAAR;AACR,oBAAO,OAAC,CAAO,GAAP;AArLV;AAuLE,wBAAW;AACX,uBAAU;AACV,uBAAU;AACV,4BAAe;AACf,sCAAyB;AACzB,uBAAU;AACV,2BAAc;AACd,uBAAU;AACV,uBAAU;AACV,qCAAwB;AACxB,4BAAe;AACf,+CAAkC;AAClC,+BAAkB;AAClB,0CAA6B;AAC7B,oCAAuB;AACvB,iCAAoB;AACpB,wCAA2B;AAC3B,2CAA8B;AAC9B,kCAAqB;AACrB,oBAAO;AA1MT;AA7CmC;AAnRtB;;;AACX,6BrIGc,kDqIHd;AACA,0BvImFa,gDuInFb;AACA,2C3JgaU,4B2JhaV;AACA,kC3JsmBY,8B2JtmBZ;AACA,qD3J8ZU,4B2J9ZV;AACA,qC3J6ZU,4B2J7ZV;AACA,gD3J4ZU,4B2J5ZV;AACA,0C3J2ZU,4B2J3ZV;AACA,uC3JqiBS,2B2JriBT;AACA,8C3JgmBY,8B2JhmBZ;AACA,iD3JskBW,6B2JtkBX;AACA,6B5K26BY,8C4K36BZ;AACA,6B5K06BY,8C4K16BZ;AACA,kC7K2jBK,uC6K3jBL;AACA,4C7K0jBK,uC6K1jBL;AACA,wC3JmZU,4B2JnZV;AACA,6B5Ks6BY,8C4Kt6BZ;AACA,8B7KqFI,sC6KrFJ;AACA,iC7K0QG,qC6K1QH;AACA,6B7KqjBK,uC6KrjBL;AACqB,kCAAO,U1M6FvB,2B0M7FuB,CAAP;AACS,2CAAO,U1M4FhC,2B0M5FgC,CAAP;AACU,qDAAO,U1M2F1C,2B0M3F0C,CAAP;AACX,0CAAQ,W3JqjC/B,wB2JrjC+B,CAAR;AACH,uCAAO,U1MyF5B,2B0MzF4B,CAAP;AACD,sCAAO,U1MwF3B,2B0MxF2B,CAAP;AACK,2CAAO,U1MuFhC,2B0MvFgC,CAAP;AA3BnB;AAuCb;AAnDF,GAqDc,yDArDd;ACAA,+BAES,kRAFT;;;AAWc;;;AACV;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAgBA;AACA;AApEU;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAgKoB;AAEhC,oBAAS;AACT,oBAAS,aAAT,GAAuB,gBAAgB,GAAC,YAAD;AACvC,oBAAS;AAJuB;AAqCO;AAEvC;AACA;AAEA,yBAAa;AACb,aAAE,YAAC,CAAU,CAAV;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,IAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,gBAAW,YAAC,EAAnB;AAER,kBAAW,eAAU,iBAAC;AACtB,mBAAQ,iBAAC,CAAe,SAAf;AACT,yBAAc,iBAAC,CAAe,SAAf;AACf,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AAEX,kBAAW,aAAQ,iBAAC;AACpB,mBAAQ,iBAAC,CAAe,SAAf;AAET,kBAAW,mBAAc,iBAAC;AAC1B,qBAAU,iBAAC,CAAe,SAAf;AACX,6BAAkB,iBAAC,CAAe,SAAf;AACnB,6BAAkB,iBAAC,CAAe,SAAf;AACnB,2BAAgB,iBAAC,CAAe,SAAf;AAEjB,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,aAAE,iBAAC,CAAe,SAAf;AAGH,aAAE,YAAC,CAAU,CAAV;AAEC,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,KAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,2BAAsB,YAAC,EAAyC,GAAhC,IAAD,GAAM,uBAAkB,YAAC,EAApB,GAA6B,GAAxE;AAEJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,IAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,wBAAmB,YAAC,EAA3B;AAEJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,IAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,qBAAgB,YAAC,EAAxB;AAEJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,mCAA8B,YAAC,EAAtC;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,IAAP;AAEJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,KAA+C,GAAzC,0BAAqB,YAAC,EAAvB,GAAgC,UAAD,GAAa,uBAAU,CAAC,qBAAgB,YAAC,GAAS,IAAG,GAAC,IAAD,CAAK,MAAnC,CAAlE;AAEJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,0BAAqB,YAAC,EAA7B;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAP;AAEJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,+BAA0B,YAAC,EAAlC;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,OAAP;AAER,UAAG,wBAAmB,YAAC,EAAQ,KAAE,EAAjC;AAAyC,+BAAkB,WAAC,CAAS,KAAT;AAAuC,YAAnB,uBAAkB,WAAC,CAAS,IAAT;AACnG,UAAG,wBAAmB,YAAC,EAAQ,KAAE,EAAjC;AAAyC,6BAAgB,WAAC,CAAS,KAAT;AAAqC,YAAjB,qBAAgB,WAAC,CAAS,IAAT;AA5DxD;AA3CH;AAEpC,oBAAS;AACT,UAAI;AAHgC;AApEQ;;AAE5C;AACA;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,sCAAH;AACd,aAAK,cAAL,GAAqB;AALF;AAQG;AAEtB,YAAG,IAAI,cAAc,KAAE,EAAvB;AAEE,yBAAS;AACT,qCAAqB,YAAC,CAAU,IAAI,cAAd;AACtB,yBAAS;SAJX;AAFsB;AAY1B,UAAG,0BAAqB,YAAC,EAAQ,KAAE,EAAnC;AAEE,aAAW,MAAe,gBAAW,aAAW,CAAC,qGAAqH,iDAAe,cAAC,uCAAO,qCAAR,CAArI;AAChD,YAAG,EAAG,KAAE,CAAR;AAEE,iBAAM,sCAAgB,QAAC,eAAS,aAAT;AACvB,cAAI,YAAU;SAHhB;;AAQA,eAAM,sCAAgB,QAAC,eAAS,aAAT;AACvB,YAAI,YAAU;;AApC4B;AAiFG;AAG/C;AAEA,eAAS,QAAS,kBAAC,IAAI,QAAL,uBAAlB;AAAI;AAEF,YAAG,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAM,KAAE,EAA1B,EAAkC,iCAAW,CAAC,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAhB,CAA7C;;AAEF,UAAG,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAM,KAAC,EAAzB;AAEE,sBAAS;AACT,YAAG,gBAAH;AAEE,cAAI;;AAIJ,wBAAS;;OATb;AAT+C;AAzCH;;AAE5C;AACqB;AAEnB;AAEE,gBAAE,WAAC,CAAS,KAAT;AACH,gBAAc,OAAN,MAAS,6BAAH;AACd,aAAK,0BAAL,GAAiC,2BAAqB,YAAC;AACvD,aAAK,iBAAL,GAAwB,2BAAqB,YAAC;AAC9C,aAAK,cAAL,GAAqB,sBAAgB,YAAC;AARrB;AAWK;AAEtB,YAAG,IAAI,gBAAgB,KAAE,EAAzB;AAEE,yBAAS;AACT,0CAA0B,YAAC,CAAU,sBAAsB,GAAC,IAAI,gBAArC;AAC3B,yBAAS;SAJX;AAFsB;AAUtB,aAAM,6BAAU,QAAC,eAAS,aAAT;AACjB,UAAI,YAAU;AAzB0B;AAhDF;AAE1C;AAEA,WAAW,MAAe,gBAAW,aAAW,CAAC,2GAA2H,iDAAe,cAAC,uCAAO,qCAAR,CAA3I;AAChD,UAAG,EAAG,KAAE,CAAR,EAAmB,cAAS,SAA5B;AAL0C;AAgHD;AAEzC,yBAAa;AACb,oBAAS;AACT;AAJyC;AAsEF;AAEvC,oBAAS;AAF8B;AAKL;AAExB;AAEV,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,sBAAY,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACnB,sBAAY,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACnB,4BAAkB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACzB,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,gCAAsB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,gCAAsB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,8BAAoB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,yBAAe,iCAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,uBAAa,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,4CAAkC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,yBAAe,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,oCAA0B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,sCAA4B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,kCAAwB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,mCAAyB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,sCAA4B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,6BAAmB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,0BAAgB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAE5B,aAAE;AACF,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,mBAAQ;AACR,mBAAQ;AACR,yBAAc;AACd,qBAAU;AACV,6BAAkB;AAClB,6BAAkB;AAClB,2BAAgB;AAChB,sBAAW;AACX,oBAAS;AACT,yCAA8B;AAC9B,sBAAW;AACX,8BAAmB;AACnB,6BAAkB;AAClB,iCAAsB;AACtB,2BAAgB;AAChB,2BAAgB;AAChB,gCAAqB;AACrB,iCAAsB;AACtB,qCAA0B;AAC1B,mCAAwB;AACxB,sCAA2B;AAC3B,gCAAqB;AACrB,+BAAoB;AACpB,2BAAgB;AAChB,gCAAqB;AACrB,gCAAqB;AACrB,oCAAyB;AACzB,mCAAwB;AACxB,gCAAqB;AACrB,oCAAyB;AACzB,6BAAkB;AAClB,4BAAiB;AACjB,6BAAkB;AAClB,kCAAuB;AACvB,6BAAkB;AAClB,mCAAwB;AACxB,0BAAe;AACf,6BAAkB;AAClB,qCAA0B;AAC1B,2BAAgB;AAChB,kCAAuB;AACvB,gCAAqB;AACrB,8BAAmB;AACnB,4BAAiB;AACjB,6BAAkB;AAClB,uBAAY;AACZ,uBAAY;AACZ;AACE,qBAAQ,aAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,QAAC,CAAQ,EAAR;AACH,eAAE,OAAC,CAAO,GAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,GAAV;AACH,eAAE,oBAAC,CAAoB,gDAApB;AACH,eAAE,cAAC,CAAc,wCAAd;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,gBAAC,CAAc,CAAd;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,eAAC,CAAe,yCAAf;AACH,eAAE,0BAAC,CAA0B,YAA1B;AACH,eAAE,mBAAC,CAAmB,gDAAnB;AACH,eAAE,yBAAC,CAAyB,gDAAzB;AACH,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,yBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,EAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,qBAAQ,SAAC,CAAS,GAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,oBAAC,CAAoB,kCAApB;AACT,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,cAAC,CAAc,2CAAd;AACT,qBAAQ,eAAC,CAAe,0CAAf;AACT,qBAAQ,WAAC,CAAW,WAAX;AACT,qBAAQ,gBAAC,CAAc,CAAd;AACT,qBAAQ,SAAC,CAAS,OAAT;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,eAAC,CAAe,KAAf;AACT,qBAAQ,YAAC,CAAY,CAAZ;AACT,qBAAQ,mBAAmB,CAAC,aAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,CAAR;AACT,qBAAQ,OAAC,CAAO,CAAP;AACT,qBAAQ,SAAC,CAAS,GAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,YAAC,CAAY,KAAZ;AACT,qBAAQ,WAAC,CAAW,eAAX;AACT,qBAAQ,oBAAC,CAAoB,mBAApB;AACT,qBAAQ,yBAAC,CAAyB,kBAAzB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,MAAK,SAAb,GAAyB;AACzB,qBAAQ,MAAK,SAAC,CAAS,KAAT;AACd,qBAAQ,MAAK,UAAC,CAAU,CAAC,EAAX;AACd,qBAAQ,MAAK,QAAC,CAAQ,UAAR;AACd,qBAAQ,MAAK,SAAC,CAAS,EAAT;AACd,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,cAAC,CAAc,KAAd;AACT,qBAAQ,cAAC,CAAc,2CAAd;AACT,qBAAQ,gBAAC,CAAgB,sBAAhB;AACT,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,EAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,oBAAC,CAAoB,kBAApB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,cAAC,CAAc,2CAAd;AACf,2BAAc,eAAC,CAAe,QAAf;AACf,2BAAc,eAAC,CAAe,0CAAf;AACf,2BAAc,gBAAC,CAAc,CAAd;AACf,2BAAc,SAAC,CAAS,QAAT;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,2BAAc,eAAC,CAAe,KAAf;AACf,2BAAc,YAAC,CAAY,CAAZ;AACf,uBAAU,mBAAmB,CAAC,mBAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,wBAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,+BAAkB,mBAAmB,CAAC,mBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,QAAC,CAAQ,GAAR;AACnB,+BAAkB,OAAC,CAAO,CAAP;AACnB,+BAAkB,SAAC,CAAS,EAAT;AACnB,+BAAkB,UAAC,CAAU,EAAV;AACnB,+BAAkB,WAAC,CAAW,YAAX;AACnB,+BAAkB,gBAAC,CAAc,EAAd;AACnB,+BAAkB,oBAAC,CAAoB,wBAApB;AACnB,+BAAkB,eAAC,CAAe,yCAAf;AACnB,+BAAkB,mBAAC,CAAmB,gDAAnB;AACnB,+BAAkB,eAAC,CAAe,wCAAf;AACnB,+BAAkB,iBAAC,CAAiB,sBAAjB;AACnB,+BAAkB,cAAC,CAAc,wCAAd;AACnB,+BAAkB,gBAAC,CAAgB,sBAAhB;AACnB,uBAAQ,CAAC,wBAAoB,KAAM,UAAW,yBAAtC;AACR,+BAAkB,mBAAmB,CAAC,mBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,QAAC,CAAQ,GAAR;AACnB,+BAAkB,OAAC,CAAO,CAAP;AACnB,+BAAkB,SAAC,CAAS,EAAT;AACnB,+BAAkB,UAAC,CAAU,EAAV;AACnB,+BAAkB,WAAC,CAAW,QAAX;AACnB,+BAAkB,gBAAC,CAAc,EAAd;AACnB,+BAAkB,oBAAC,CAAoB,wBAApB;AACnB,+BAAkB,eAAC,CAAe,yCAAf;AACnB,+BAAkB,mBAAC,CAAmB,gDAAnB;AACnB,+BAAkB,eAAC,CAAe,wCAAf;AACnB,+BAAkB,iBAAC,CAAiB,sBAAjB;AACnB,+BAAkB,cAAC,CAAc,wCAAd;AACnB,+BAAkB,gBAAC,CAAgB,sBAAhB;AACnB,uBAAQ,CAAC,wBAAoB,KAAM,UAAW,yBAAtC;AACR,6BAAgB,mBAAmB,CAAC,mBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,QAAC,CAAQ,GAAR;AACjB,6BAAgB,OAAC,CAAO,CAAP;AACjB,6BAAgB,SAAC,CAAS,EAAT;AACjB,6BAAgB,UAAC,CAAU,EAAV;AACjB,6BAAgB,WAAC,CAAW,UAAX;AACjB,6BAAgB,gBAAC,CAAc,EAAd;AACjB,6BAAgB,oBAAC,CAAoB,wBAApB;AACjB,6BAAgB,eAAC,CAAe,yCAAf;AACjB,6BAAgB,mBAAC,CAAmB,gDAAnB;AACjB,6BAAgB,eAAC,CAAe,wCAAf;AACjB,6BAAgB,iBAAC,CAAiB,sBAAjB;AACjB,6BAAgB,cAAC,CAAc,wCAAd;AACjB,6BAAgB,gBAAC,CAAgB,sBAAhB;AACjB,uBAAQ,CAAC,sBAAkB,KAAM,UAAW,uBAApC;AACR,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,GAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,EAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,cAAC,CAAc,wCAAd;AACZ,wBAAW,SAAX,GAAuB,cAAC,uCAAM,qCAAP;AACvB,wBAAW,YAAX,GAA0B;AAC1B,wBAAW,SAAX,GAAuB;AACvB,wBAAW,SAAX,GAAuB;AACvB,wBAAW,wBAAX,GAAsC;AACtC,wBAAW,wBAAX,GAAsC;AACtC,wBAAW,uBAAX,GAAqC;AACrC,wBAAW,yBAAX,GAAuC;AACvC,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,mBAAT,GAA+B;AAC/B,sBAAS,WAAT,GAAuB;AACvB,sBAAS,WAAT,GAAuB;AACvB,sBAAS,aAAT,GAAyB;AACzB,sBAAS,iBAAC,CAAiB,cAAjB;AACV,sBAAS,cAAC,CAAc,aAAG,oBAAjB;AACV,sBAAS,UAAT,GAAsB;AACtB,sBAAS,QAAC,CAAQ,GAAR;AACV,sBAAS,OAAC,CAAO,EAAP;AACV,2CAA8B,mBAAmB,CAAC,cAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,wBAAW,mBAAmB,CAAC,cAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,wBAAW,UAAX,GAAwB;AACxB,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,GAAR;AACpB,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,GAAR;AACnB,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,GAAR;AACjB,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,GAAR;AACjB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,GAAR;AACtB,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,uCAA0B,mBAAmB,CAAC,cAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,GAAR;AAC3B,qCAAwB,mBAAmB,CAAC,cAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,wCAA2B,mBAAmB,CAAC,cAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,iCAAoB,mBAAmB,CAAC,cAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,GAAR;AACjB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,GAAR;AACtB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,GAAR;AAC1B,qCAAwB,mBAAmB,CAAC,cAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,GAAR;AACtB,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,GAAR;AAC1B,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,GAAR;AACnB,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,qCAAwB,mBAAmB,CAAC,cAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,4BAAe,mBAAmB,CAAC,cAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,uCAA0B,mBAAmB,CAAC,cAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,GAAR;AAC3B,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,GAAR;AACjB,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,GAAR;AACnB,yBAAY,mBAAmB,CAAC,cAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,QAAC,CAAQ,GAAR;AACb,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAC,CAAW,cAAX;AACb,yBAAY,QAAC,CAAQ,EAAR;AACb,yBAAY,OAAC,CAAO,EAAP;AA9Vf;AAgWE,eAAE;AACF,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,qBAAQ;AACR,qBAAQ;AACR,2BAAc;AACd,uBAAU;AACV,+BAAkB;AAClB,+BAAkB;AAClB,6BAAgB;AAChB,wBAAW;AACX,sBAAS;AACT,2CAA8B;AAC9B,wBAAW;AACX,gCAAmB;AACnB,+BAAkB;AAClB,mCAAsB;AACtB,6BAAgB;AAChB,6BAAgB;AAChB,kCAAqB;AACrB,mCAAsB;AACtB,uCAA0B;AAC1B,qCAAwB;AACxB,wCAA2B;AAC3B,kCAAqB;AACrB,iCAAoB;AACpB,6BAAgB;AAChB,kCAAqB;AACrB,kCAAqB;AACrB,sCAAyB;AACzB,qCAAwB;AACxB,kCAAqB;AACrB,sCAAyB;AACzB,+BAAkB;AAClB,8BAAiB;AACjB,+BAAkB;AAClB,oCAAuB;AACvB,+BAAkB;AAClB,qCAAwB;AACxB,4BAAe;AACf,+BAAkB;AAClB,uCAA0B;AAC1B,6BAAgB;AAChB,oCAAuB;AACvB,kCAAqB;AACrB,gCAAmB;AACnB,8BAAiB;AACjB,+BAAkB;AAClB,yBAAY;AACZ,yBAAY;AAlZd;AA3GkC;AAzQtB;;;AACV,qBhIu7BW,0CgIv7BX;AACA,4BtIGc,kDsIHd;AACA,iD5JwmBY,8B4JxmBZ;AACA,8B5JwdW,6B4JxdX;AACA,sC5J+ZU,4B4J/ZV;AACA,qC5J8ZU,4B4J9ZV;AACA,yC5J6ZU,4B4J7ZV;AACA,mC5J4ZU,4B4J5ZV;AACA,mC5J2ZU,4B4J3ZV;AACA,wC5J0ZU,4B4J1ZV;AACA,yC5JidW,6B4JjdX;AACA,6C5JwZU,4B4JxZV;AACA,2C5J8lBY,8B4J9lBZ;AACA,8C5JsZU,4B4JtZV;AACA,wC5JqZU,4B4JrZV;AACA,uC5JkkBW,6B4JlkBX;AACA,mC5JmZU,4B4JnZV;AACA,wC5JkZU,4B4JlZV;AACA,wC5JwlBY,8B4JxlBZ;AACA,4C5JgZU,4B4JhZV;AACA,2C5J+YU,4B4J/YV;AACA,wC5J8YU,4B4J9YV;AACA,4C5J6YU,4B4J7YV;AACA,qC5J4YU,4B4J5YV;AACA,oC5J2YU,4B4J3YV;AACA,qC5JwjBW,6B4JxjBX;AACA,0C5JyYU,4B4JzYV;AACA,qC5JsjBW,6B4JtjBX;AACA,2C5J8kBY,8B4J9kBZ;AACA,kC5J8bW,6B4J9bX;AACA,qC5J6bW,6B4J7bX;AACA,6C5JoYU,4B4JpYV;AACA,mC5JmYU,4B4JnYV;AACA,0C5JkYU,4B4JlYV;AACA,wC5JiYU,4B4JjYV;AACA,sC5JgYU,4B4JhYV;AACA,oC5J+XU,4B4J/XV;AACA,+B5J+gDS,2B4J/gDT;AACA,6B7Ki5BY,8C6Kj5BZ;AACA,6B7Kg5BY,8C6Kh5BZ;AACA,6B7K+4BY,8C6K/4BZ;AACA,2B7KuZI,sC6KvZJ;AACA,2B9K6DI,sC8K7DJ;AACA,iC7KqZI,sC6KrZJ;AACA,6B9K6hBK,uC8K7hBL;AACA,qC9K4hBK,uC8K5hBL;AACA,qC9K2hBK,uC8K3hBL;AACA,mC9K0hBK,uC8K1hBL;AACA,8B/LNS,0C+LMT;AACA,qC5JkXU,4B4JlXV;AACA,+B5JiXU,4B4JjXV;AACqB,kCAAO,U3M+DvB,2B2M/DuB,CAAP;AACO,yCAAQ,W5JyhC9B,wB4JzhC8B,CAAR;AACH,sCAAO,U3M6D3B,2B2M7D2B,CAAP;AACgB,8CAAO,U3M4D3C,2B2M5D2C,CAAP;AACL,iDAAO,U5JshCrC,wB4JthCqC,EACrC,Q5J0gCO,+B4J1gCP,CAD8B;AAEH,8CAAO,U3MyDnC,2B2MzDmC,CAAP;AACM,4CAAO,U3MwDzC,2B2MxDyC,CAAP;AACT,2CAAQ,W5JkhChC,wB4JlhCgC,CAAR;AACF,yCAAQ,W5JihC9B,wB4JjhC8B,CAAR;AA7DlB;AAwEZ;AAnFF,GAqFc,qDArFd;ACAA,gCAES,gVAFT;;;AAYe;;;AACX;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAYA;AA7BW;;;;;;;;;;;;;;;;;;;;;;AAmHoB;AAEjC,oBAAS,UAAT,GAAoB;AACpB,oBAAS,aAAT,GAAuB;AACvB,oBAAS;AAJwB;AAOO;AAExC;AACA;AAEA,kBAAW,eAAU,iBAAC;AACtB,mBAAQ,iBAAC,CAAe,SAAf;AACT,yBAAc,iBAAC,CAAe,SAAf;AACf,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AAEX,kBAAW,aAAQ,iBAAC;AACpB,mBAAQ,iBAAC,CAAe,SAAf;AAET,kBAAW,mBAAc,iBAAC;AAC1B,qBAAU,iBAAC,CAAe,SAAf;AACX,yBAAc,iBAAC,CAAe,SAAf;AAEf,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,sBAAW,iBAAC,CAAe,SAAf;AAEZ,oBAAS;AACT,UAAG,cAAS,eAAC,EAAW,KAAC,CAAzB,EAAgC,gBAAW,QAAC,CAAM,iBAAN,CAA5C;AACA,UAAG,cAAS,eAAC,EAAW,GAAC,CAAzB,EAAgC,gBAAW,QAAC,CAAM,UAAU,GAAC,qBAAQ,CAAC,cAAS,eAAC,EAAX,CAAzB,CAA5C;AACA,UAAG,cAAS,eAAC,EAAW,GAAC,EAAzB,EAAiC,gBAAW,QAAC,CAAM,gDAAN,CAA7C;AACA,UAAG,cAAS,eAAC,EAAW,GAAC,EAAzB,EAAiC,gBAAW,QAAC,CAAM,UAA0C,GAA/B,qBAAQ,CAAC,cAAS,eAAC,EAAX,CAAT,GAAiC,sBAAjD,CAA7C;AACA,aAAM,CAAI,cAAS,OAAC,EAApB;AAEE,sBAAa,+BAAyL,GAAzJ,2BAAc,CAAC,sBAAsB,mCAA8B,cAAC,EAAtD,CAAf,GAAiF,MAAD,GAAS,2BAAsB,YAAC,EAAxB,GAAiC,KAAD,GAAO,uBAAkB,YAAC,EAApB,GAA6B,OAAD;AACtM,sBAAa,WAA8D,GAAlD,mBAAD,GAAqB,0BAAqB,YAAC,EAAvB,GAAgC,YAAD;AAC3E,sBAAa,WAAwE,GAA5D,6BAAD,GAA+B,0BAAqB,YAAC,EAAvB,GAAgC,UAAD;AACrF,YAAU,qBAAgB,YAAC,EAAlB,OAA2B,GAAC,GAArC;AAEE,wBAAa,WAA6E,GAAjE,uBAAU,CAAC,oBAAO,CAAC,qBAAgB,YAAC,GAAS,GAA3B,EAAgC,IAAG,GAAC,IAAD,CAAK,MAAhD,CAAX,GAAmE,MAAD;;AAI1F,wBAAa,WAAW,GAAC,uBAAU,CAAC,oBAAO,CAAC,qBAAgB,YAAC,GAAS,GAA3B,EAAgC,IAAG,GAAC,IAAD,CAAK,MAAhD,CAAX;;AAG1B,sBAAa,WAAW,GAAC,QAAD;AAExB,oBAAW,eAAU,iBAAC;AACtB,0BAAY,+BAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,uBAAU,MAAC,CAAW,gBAAW,YAAC,EAAvB;AACX,uBAAU,OAAV,GAAgB,gBAAW,aAAC;AAC5B,uBAAU,eAAC,CAAa,wCAAb;AACX,uBAAU,cAAC,CAAY,2CAAZ;AACX,uBAAU,MAAK,WAAC,CAAM,WAAN;AAChB,uBAAU,oBAAC,CAAkB,sBAAlB;AACX,uBAAU,SAAV,GAAqB;AACrB,uBAAU,iBAAC,CAAe,SAAf;AAEX,sBAAS;;AAGX,yBAAc;AAzD0B;AAlBF;AAEtC,UAAG,gBAAG,CAAC,gBAAgB,gBAAW,OAAM,CAAlC,CAAoC,GAAC,CAA3C;AAEE,uBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,sBAAS;AACT,sBAAS,UAAT,GAAoB;AACpB,sBAAS;OALX;AAFsC;AAhED;AAErC,oBAAS;AACT,UAAI;AAHiC;AAqBU;AAE/C;AAEA,qBAAc,mBAAc,QAAC;AAC7B,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,UAAU,YAAD,OAAc,GAAC,CAAxB;AAEE,sBAAS;AACT,sBAAS,aAAT,GAAuB,oJAA4U,GAAvL,sBAAS,CAAC,axMuMpI,GwMvMmI,CAAV,GAAyB,0BAAD,GAA4B,sBAAS,CAAC,axMuMvL,GwMvMsL,CAAV,GAAyB,8BAAD,GAAgC,sBAAS,CAAC,axMuM9O,GwMvM6O,CAAV,GAAyB,6BAAD,GAA+B,sBAAS,CAAC,axMuMpS,GwMvMmS,CAAV,GAAyB,oBAAD;;AAInW,sBAAS;AACT,sBAAS,aAAT,GAAuB;;AAEzB,oBAAS;AAhBsC;AAfD;AAE9C,yBAAc,QAAC,CAAM,EAAN;AACf,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,oBAAS;AACT,oBAAS,aAAT,GAAuB;AACvB,oBAAS;AANqC;AASF;AAE5C,UAAG,SAAG,KAAC,IAAP,EAAgB,8BAAyB,CAAC,MAAD,CAAzC;AAF4C;AA0BP;;AAErC;AACA;AAEA,sBAAe,qBAAQ,CAAS,OAAP,OAAU,+BAAH,CAAY,OAArB;AACvB,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,oBAAe,iCAAY,QAAC,eAAS,CAAC;AAE3B,eAAN,MAAS,iCAAH,CAAgB,QAAvB,GAAiC;AAFC,OAAD,CAAT;AAM5B,iBAAW,YAAU,CAAC;AAElB,uBAAS;AACT,uBAAS;AAHS,OAAD;AAbgB;AAqGF;AAEzB;AAEV,yBAAe,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,sBAAY,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACnB,sBAAY,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACnB,4BAAkB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACzB,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,4BAAkB,kCAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,uBAAa,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,4CAAkC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,yBAAe,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAEtC,sBAAW;AACX,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,mBAAQ;AACR,mBAAQ;AACR,yBAAc;AACd,qBAAU;AACV,yBAAc;AACd,oBAAS;AACT,yCAA8B;AAC9B,sBAAW;AACX,6BAAkB;AAClB,iCAAsB;AACtB,gCAAqB;AACrB,2BAAgB;AAChB,gCAAqB;AACrB;AACE,qBAAQ,cAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,wBAAW,sBAAX;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,GAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,EAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,WAAC,CAAW,aAAX;AACZ,wBAAW,oBAAC,CAAoB,QAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,cAAC,CAAc,wCAAd;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,uBAAQ,CAAC,iBAAa,KAAM,UAAW,kBAA/B;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,yBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,EAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,qBAAQ,SAAC,CAAS,GAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,oBAAC,CAAoB,kCAApB;AACT,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,cAAC,CAAc,2CAAd;AACT,qBAAQ,eAAC,CAAe,0CAAf;AACT,qBAAQ,WAAC,CAAW,WAAX;AACT,qBAAQ,gBAAC,CAAc,CAAd;AACT,qBAAQ,SAAC,CAAS,OAAT;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,eAAC,CAAe,KAAf;AACT,qBAAQ,mBAAmB,CAAC,aAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,CAAR;AACT,qBAAQ,OAAC,CAAO,CAAP;AACT,qBAAQ,SAAC,CAAS,GAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,YAAC,CAAY,KAAZ;AACT,qBAAQ,WAAC,CAAW,eAAX;AACT,qBAAQ,oBAAC,CAAoB,mBAApB;AACT,qBAAQ,yBAAC,CAAyB,kBAAzB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,MAAK,SAAb,GAAyB;AACzB,qBAAQ,MAAK,SAAC,CAAS,KAAT;AACd,qBAAQ,MAAK,UAAC,CAAU,CAAC,EAAX;AACd,qBAAQ,MAAK,QAAC,CAAQ,UAAR;AACd,qBAAQ,MAAK,SAAC,CAAS,EAAT;AACd,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,cAAC,CAAc,KAAd;AACT,qBAAQ,cAAC,CAAc,2CAAd;AACT,qBAAQ,gBAAC,CAAgB,sBAAhB;AACT,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,EAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,oBAAC,CAAoB,kBAApB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,cAAC,CAAc,2CAAd;AACf,2BAAc,eAAC,CAAe,QAAf;AACf,2BAAc,eAAC,CAAe,0CAAf;AACf,2BAAc,gBAAC,CAAc,CAAd;AACf,2BAAc,SAAC,CAAS,QAAT;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,2BAAc,eAAC,CAAe,KAAf;AACf,uBAAU,mBAAmB,CAAC,mBAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,wBAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,GAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,cAAC,CAAc,KAAd;AACf,2BAAc,YAAC,CAAY,IAAZ;AACf,2BAAc,gBAAC,CAAc,CAAd;AACf,2BAAc,oBAAC,CAAoB,2BAApB;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,iBAAC,CAAiB,sBAAjB;AACf,2BAAc,YAAC,CAAY,sBAAZ;AACf,2BAAc,gBAAC,CAAgB,sBAAhB;AACf,uBAAQ,CAAC,oBAAgB,KAAM,aAAc,wBAArC;AACR,uBAAQ,CAAC,oBAAgB,KAAM,eAAgB,0BAAvC;AACR,uBAAQ,CAAC,oBAAgB,KAAM,gBAAiB,2BAAxC;AACR,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,WAAT,GAAuB;AACvB,sBAAS,iBAAC,CAAiB,cAAjB;AACV,sBAAS,cAAC,CAAc,aAAG,oBAAjB;AACV,sBAAS,aAAT,GAAyB;AACzB,sBAAS,QAAC,CAAQ,EAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,2CAA8B,mBAAmB,CAAC,cAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,wBAAW,mBAAmB,CAAC,cAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,wBAAW,UAAX,GAAwB;AACxB,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,GAAR;AACnB,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,GAAR;AACtB,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,GAAR;AACjB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AAtLxB;AAwLE,wBAAW;AACX,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,qBAAQ;AACR,qBAAQ;AACR,2BAAc;AACd,uBAAU;AACV,2BAAc;AACd,sBAAS;AACT,2CAA8B;AAC9B,wBAAW;AACX,+BAAkB;AAClB,mCAAsB;AACtB,kCAAqB;AACrB,6BAAgB;AAChB,kCAAqB;AAxMvB;AAvCmC;AAtLtB;;;AACX,4BvIGc,kDuIHd;AACA,iD7JwmBY,8B6JxmBZ;AACA,8B7JwdW,6B6JxdX;AACA,qC7J+ZU,4B6J/ZV;AACA,yC7J8ZU,4B6J9ZV;AACA,wC7J6ZU,4B6J7ZV;AACA,6B9Kg7BY,8C8Kh7BZ;AACA,6B9K+6BY,8C8K/6BZ;AACA,6B9K86BY,8C8K96BZ;AACA,8B/K6FI,sC+K7FJ;AACA,mC7JwZU,4B6JxZV;AACA,wC7JuZU,4B6JvZV;AACA,2B9KmbI,sC8KnbJ;AACA,2B/KyFI,sC+KzFJ;AACA,iC9KibI,sC8KjbJ;AACA,6B/KyjBK,uC+KzjBL;AACA,iC9K+gDS,2C8K/gDT;AACqB,kCAAO,U5MgGvB,2B4MhGuB,CAAP;AACO,yCAAQ,W7J0jC9B,wB6J1jC8B,CAAR;AACF,uCAAO,U5M8F5B,2B4M9F4B,CAAP;AACD,sCAAO,U5M6F3B,2B4M7F2B,CAAP;AACU,gDAAO,U5M4FrC,2B4M5FqC,CAAP;AACD,+CAAO,U5M2FpC,2B4M3FoC,CAAP;AACF,6CAAO,U5M0FlC,2B4M1FkC,EAAkB,kBAAzB;AAxBrB;AAkCb;AA9CF,GAgDc,mCAhDd;ACAA,4CAES,yaAFT;;;AAa2B;;;AACvB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAWA;AA1BuB;;;;;;;;;;;;;;;;;;;AAqC2B;AAEpD,UAAI;AAFgD;AAKA;AAEpD,2BAAgB;AAChB,yCAA8B,YAAC,CAAU,wBAAV;AAC/B,gCAAqB,cAAC,CAAY,mBAAI,GAAC,mBAAjB;AACtB,gDAAqC,YAAC,CAAU,aAAQ,mBAAlB;AACtC,wCAA6B,YAAC,CAAU,aAAQ,QAAC,EAAnB;AAC9B,2BAAgB;AAPoC;AAUe;AAGnE,UAAI;AAH+D;AAMR;AAG3D,UAAG,kBAAH;AAEE,6BAAgB;;AAIhB,yCAAW,CAAC,iGAAD;;AAT8C;AAad;AAE7C;AAEA,qBAAU,MAAK,WAAC,CAAM,wEAA4F,GAAnB,wBAAD,GAAqB,aAAnG;AAChB,kBAAW,eAAU,iBAAC;AACtB,wBAAa,iBAAC,CAAe,SAAf;AACd,wBAAa,iBAAC,CAAe,SAAf;AAEd,kBAAW,eAAU,iBAAC;AACtB,8BAAmB,iBAAC,CAAe,SAAf;AAEpB,kBAAW,wBAAmB,iBAAC;AAC/B,mBAAQ,iBAAC,CAAe,SAAf;AACT,oBAAS,iBAAC,CAAe,SAAf;AACV,mBAAQ,iBAAC,CAAe,SAAf;AACT,2BAAgB;AAChB,2BAAgB,aAAhB,GAA8B,4BAA4B,GAAC,sBAAS,CAAC,yBzMoLjB,GyMpLgB,CAAV;AAC1D,2BAAgB;AAlB6B;AAqBE;AAErC;AAEV,iCAAuB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,uBAAa,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,sBAAY,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AAClB,sBAAY,gDAAiB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,2BAAiB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACzB,2BAAiB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACzB,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,8BAAoB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,mCAAyB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,+CAAqC,iBAAU,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,mDAAyC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAE9C,8BAAmB;AACnB,oBAAS;AACT,mBAAQ;AACR,mBAAQ;AACR,qBAAU;AACV,qBAAU;AACV,wBAAa;AACb,wBAAa;AACb,+BAAoB;AACpB,2BAAgB;AAChB,yCAA8B;AAC9B,gCAAqB;AACrB,4CAAiC;AACjC,gDAAqC;AACrC,wCAA6B;AAC7B;AACE,qBAAQ,0BAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,kBAAI,SAAJ,GAAgB;AAChB,kBAAI,SAAC,CAAS,KAAT;AACL,kBAAI,UAAC,CAAU,CAAC,EAAX;AACL,kBAAI,QAAC,CAAQ,QAAR;AACL,kBAAI,SAAC,CAAS,EAAT;AACL,2BAAc,KAAd;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,gCAAmB,mBAAmB,CAAC,IAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,QAAC,CAAQ,CAAR;AACpB,gCAAmB,OAAC,CAAO,GAAP;AACpB,gCAAmB,SAAC,CAAS,GAAT;AACpB,gCAAmB,UAAC,CAAU,GAAV;AACpB,gCAAmB,oBAAC,CAAoB,8BAApB;AACpB,gCAAmB,WAAC,CAAW,qBAAX;AACpB,gCAAmB,SAAC,CAAS,QAAT;AACpB,gCAAmB,eAAC,CAAe,yCAAf;AACpB,gCAAmB,mBAAC,CAAmB,gDAAnB;AACpB,gCAAmB,eAAC,CAAe,KAAf;AACpB,sBAAS,mBAAmB,CAAC,wBAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,QAAC,CAAQ,CAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,sBAAS,SAAC,CAAS,GAAT;AACV,sBAAS,UAAC,CAAU,EAAV;AACV,sBAAS,WAAC,CAAW,qBAAX;AACV,sBAAS,oBAAC,CAAoB,SAApB;AACV,sBAAS,eAAC,CAAe,yCAAf;AACV,sBAAS,mBAAC,CAAmB,gDAAnB;AACV,sBAAS,iBAAC,CAAiB,sBAAjB;AACV,sBAAS,cAAC,CAAc,2CAAd;AACV,sBAAS,gBAAC,CAAgB,qBAAhB;AACV,qBAAQ,mBAAmB,CAAC,wBAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,CAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,qBAAQ,SAAC,CAAS,GAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,YAAC,CAAY,IAAZ;AACT,qBAAQ,gBAAC,CAAc,CAAd;AACT,qBAAQ,oBAAC,CAAoB,cAApB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,YAAC,CAAY,iBAAZ;AACT,qBAAQ,cAAC,CAAc,2CAAd;AACT,qBAAQ,gBAAC,CAAgB,qBAAhB;AACT,qBAAQ,mBAAmB,CAAC,wBAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,CAAR;AACT,qBAAQ,OAAC,CAAO,EAAP;AACT,qBAAQ,SAAC,CAAS,GAAT;AACT,qBAAQ,UAAC,CAAU,GAAV;AACT,qBAAQ,oBAAC,CAAoB,cAApB;AACT,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,cAAC,CAAc,2CAAd;AACT,qBAAQ,gBAAC,CAAgB,qBAAhB;AACT,qBAAQ,gBAAC,CAAc,CAAd;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,YAAC,CAAY,CAAZ;AACT,qBAAQ,cAAa,MAAK,SAAC,CAAS,OAAT;AAC3B,qBAAQ,QAAC,CAAQ,oBAAR;AACT,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,QAAC,CAAQ,GAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,0BAAa,SAAC,CAAS,GAAT;AACd,0BAAa,UAAC,CAAU,EAAV;AACd,0BAAa,WAAC,CAAW,WAAX;AACd,0BAAa,gBAAC,CAAc,CAAd;AACd,0BAAa,oBAAC,CAAoB,mCAApB;AACd,0BAAa,eAAC,CAAe,yCAAf;AACd,0BAAa,mBAAC,CAAmB,gDAAnB;AACd,0BAAa,eAAC,CAAe,wCAAf;AACd,0BAAa,iBAAC,CAAiB,sBAAjB;AACd,0BAAa,cAAC,CAAc,wCAAd;AACd,0BAAa,gBAAC,CAAgB,sBAAhB;AACd,uBAAQ,CAAC,mBAAe,KAAM,UAAW,oBAAjC;AACR,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,QAAC,CAAQ,CAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,0BAAa,SAAC,CAAS,GAAT;AACd,0BAAa,UAAC,CAAU,EAAV;AACd,0BAAa,WAAC,CAAW,WAAX;AACd,0BAAa,gBAAC,CAAc,CAAd;AACd,0BAAa,oBAAC,CAAoB,mCAApB;AACd,0BAAa,eAAC,CAAe,yCAAf;AACd,0BAAa,mBAAC,CAAmB,gDAAnB;AACd,0BAAa,eAAC,CAAe,wCAAf;AACd,0BAAa,iBAAC,CAAiB,sBAAjB;AACd,0BAAa,cAAC,CAAc,wCAAd;AACd,0BAAa,gBAAC,CAAgB,sBAAhB;AACd,uBAAQ,CAAC,mBAAe,KAAM,UAAW,oBAAjC;AACR,iCAAoB,mBAAmB,CAAC,IAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAAC,CAAW,qBAAX;AACrB,iCAAoB,QAAC,CAAQ,EAAR;AACrB,iCAAoB,OAAC,CAAO,GAAP;AACrB,6BAAgB,mBAAmB,CAAC,IAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,mBAAhB,GAAsC;AACtC,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,iBAAC,CAAiB,4BAAjB;AACjB,6BAAgB,cAAC,CAAc,aAAG,oBAAjB;AACjB,6BAAgB,QAAC,CAAQ,EAAR;AACjB,6BAAgB,OAAC,CAAO,EAAP;AACjB,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,UAA9B,GAA2C;AAC3C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,kCAAqB,mBAAmB,CAAC,qBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,8CAAiC,mBAAmB,CAAC,qBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,kDAAqC,mBAAmB,CAAC,qBAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,kDAAqC,QAAC,CAAQ,GAAR;AACtC,0CAA6B,mBAAmB,CAAC,qBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AA1JhC;AA4JE,gCAAmB;AACnB,sBAAS;AACT,qBAAQ;AACR,qBAAQ;AACR,uBAAU;AACV,uBAAU;AACV,0BAAa;AACb,0BAAa;AACb,iCAAoB;AACpB,6BAAgB;AAChB,2CAA8B;AAC9B,kCAAqB;AACrB,8CAAiC;AACjC,kDAAqC;AACrC,0CAA6B;AA1K/B;AAnC+C;AA5FtB;;;AACvB,uC9JkjDS,2B8JljDT;AACA,mCxICc,kDwIDd;AACA,iD9J+ZU,4B8J/ZV;AACA,wC9JqmBY,8B8JrmBZ;AACA,oD9JwqBQ,0B8JxqBR;AACA,wD9J4ZU,4B8J5ZV;AACA,sC/KwbI,sC+KxbJ;AACA,2BhLoRG,qCgLpRH;AACA,4BhL6FI,sCgL7FJ;AACA,gD9JwZU,4B8JxZV;AACA,6B/K26BY,8C+K36BZ;AACA,6B/K06BY,8C+K16BZ;AACA,gChL2jBK,uCgL3jBL;AACA,gChL0jBK,uCgL1jBL;AACA,2BhFoEe,yDgFpEf;AAC4B,yCAAO,U7MiG9B,2B6MjG8B,CAAP;AACA,yCAAO,U7MgG9B,2B6MhG8B,CAAP;AACe,wDAAO,U9J0jC5C,wB8J1jC4C,EAC5C,Q9J8iCO,+B8J9iCP,CADqC;AAER,gDAAQ,W9JwjCrC,wB8JxjCqC,CAAR;AACd,kCAAO,U7M4FvB,2B6M5FuB,CAAP;AArBE;AA8BzB;AA3CF,GA6Cc,gBA7Cd;ACAA,sCAES,sTAFT;;;AAWqB;;;AACjB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAaA;AACA;AAhCiB;;;;;;;;;;;;;;;;;;;;;;;AAuKoB;AAEvC;AAEA,qBAAU,MAAK,WAAC,CAAM,4EAAN;AAChB,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,4BAAiB,iBAAC,CAAe,SAAf;AAClB,iBAAM,iBAAC,CAAe,SAAf;AACP,uBAAY,iBAAC,CAAe,SAAf;AACb,kBAAW,eAAU,iBAAC;AACtB,aAAE,iBAAC,CAAe,SAAf;AACH,cAAG,iBAAC,CAAe,SAAf;AACJ,mBAAQ,aAAR,GAAsB,iDAAiD,GAAC,sBAAS,CAAC,wB1MyF9B,G0MzF6B,CAAV;AACvE,mBAAQ;AAf+B;AA7HA;;AACnB;AAElB;AAEA,qBAAkB,KAAW,QAAQ,QAAS,SAA5B;AAClB,YAAG,UAAU,KAAC,OAAd;AAEE,2CAAW,CAAC,2CAAD;;AAIX,yCAAW,SAAS,CAAC,4BAAkB,GAAC,UAAD,CAAY,6CAA/B;;AAXJ;AAepB,UAAG,kBAAH;AAEE,oBAAO,YAAU,CAAC,iCAAiC,CAAC,uBAAD,a3IwG0F,I2IxG5H;;AAIjB,yCAAW,CAAC,iGAAD;;AAtB0B;AA+IM;AAE7C,aAAE,WAAC,CAAS,IAAT;AACH,aAAE,YAAC,CAAU,EAAV;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,aAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,sBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAA6D,GAAtD,aAAQ,YAAY,CAAC,gBAAD,CAAkB,YAAC,EAAxC,GAAkD,KAAD,GAAO,2BAAc,CAAC,aAAc,aAAQ,YAAY,CAAC,OAAD,CAAS,cAAC,EAA7C,CAAnF;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,eAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,aAAQ,YAAY,CAAC,2BAAD,CAA6B,YAAC,EAAhE;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,WAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,uBAAU,CAAC,aAAQ,YAAY,CAAC,aAAD,CAAe,YAAC,GAAS,IAAG,GAAC,IAAD,CAAK,MAAtD,CAAxB;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,OAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,aAAQ,YAAY,CAAC,OAAD,CAAS,YAAC,EAA5C;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,qBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,aAAQ,YAAY,CAAC,qBAAD,CAAuB,YAAC,EAA1D;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,cAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,aAAQ,YAAY,CAAC,cAAD,CAAgB,YAAC,EAAnD;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,iBAAP;AACR;AACA,eAAE,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,uBAAU,CAAC,aAAQ,YAAY,CAAC,qBAAD,CAAuB,YAAC,GAAS,IAAG,GAAC,IAAD,CAAK,MAA9D,CAAxB;AADR;;AAMA,2BAAgB,aAAhB,GAA8B,4BAA4B,GAAC,sBAAS,CAAC,wB1M4DjB,G0M5DgB,CAAV;AAC1D,2BAAgB;AA1B6B;AA8BK;AAElD;AAEA,cAAG,WAAC,CAAS,IAAT;AACJ,cAAG,YAAC,CAAU,kBAAa,eAAC,EAAW,GAAC,CAApC;AACJ,cAAG,YAAC,CAAU,CAAV;AACJ,cAAG,SAAM,CAAC,EAAE,EAAI,KAAP;AACT,cAAG,SAAM,CAAC,EAAE,EAAI,SAAP;AACT,cAAG,SAAM,CAAC,EAAE,EAAI,OAAP;AAIT,wBAAa;AACb,eAAS,QAAkB,OAAb,kBAAa,eAAC,IAAD,gBAA3B;AAAI;AAEF,gBAAG,SAAM,CAAC,EAAE,EAAI,kBAAa,YAAY,CAAC,OAAD,CAAS,YAAC,EAAY,GAAH,GAAD,GAAK,kBAAa,YAAY,CAAC,QAAD,CAAU,YAAC,EAA3F;AACT,gBAAG,SAAM,CAAC,EAAE,EAAI,kBAAa,YAAY,CAAC,6BAAD,CAA+B,YAAC,EAAuF,GAA9E,SAAD,GAAW,kBAAa,YAAY,CAAC,qBAAD,CAAuB,YAAC,EAAlD,GAA2D,UAAD,GAAY,kBAAa,YAAY,CAAC,qBAAD,CAAuB,YAAC,EAAzM;AACT,gBAAG,SAAM,CAAC,EAAE,EAAI,wBAAwB,GAAC,kBAAa,YAAY,CAAC,OAAD,CAAS,YAAC,EAAnE;AAGT,0BAAa;;AArBmC;AAhHA;;AAElD;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,2DAAH;AACd,aAAK,oBAAL,GAA2B;AAC3B,iBAAG,WAAC,CAAS,KAAT;AACJ,gBAAE,WAAC,CAAS,KAAT;AAPgB;AAUG;AAEtB,8BAAgB;AAChB,2BAAa;AACb,sBAAQ;AACR,sBAAQ,aAAR,GAAsB,iDAAiD,GAAC,sBAAS,CAAC,yB1MqJlC,G0MrJiC,CAAV;AACvE,sBAAQ;AANc;AAW1B,aAAM,2DAAyB,QAAC,eAAS,aAAT;AAEhC,UAAI,YAAU;AA1BoC;AAmCG;AAErD;AAEA,UAAG,qBAAgB,eAAC,EAAW,KAAC,CAAhC;AAEE;AACE,iBAAE,SAAM,CAAC,EAAE,EAAI,oBAAP;AACR,iBAAE,SAAM,CAAC,EAAE,EAAI,kBAAP;AAGR,sBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,sCAAsB,oCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,mCAAoB,UAAC,CAAQ,GAAR;AACrB,mCAAoB,SAAC,CAAO,GAAP;AACrB,mCAAoB,OAAC,CAAK,0CAAqC,YAAC,EAA3C;AACrB,mBAAS,UAAT,GAAqB;AACrB,mCAAoB,iBAAC,CAAe,SAAf;AACrB,iBAAE,SAAM,CAAC,EAAE,EAAI,2BAAc,CAAC,sBAAuB,0BAAqB,cAAC,EAA9C,CAArB;AAER,gCAAiB,WAAC,CAAS,KAAT;AAdpB;;OAFF;AAoBA,wBAAa;AACb,wBAAa,aAAb,GAA2B,kDAAgF,GAA7B,sBAAS,CAAC,wB1M2GpC,G0M3GmC,CAAV,GAA+B,iBAAD;AAC3G,wBAAa;AA1BwC;AALV;AAE3C,UAAI;AAFuC;AAhEE;;AACzB;AAElB;AAEA,qBAAkB,KAAW,QAAQ,QAAS,SAA5B;AAClB,YAAG,UAAU,KAAC,OAAd;AAEE,2CAAW,CAAC,2CAAD;;AAIX,2CAAW,CAAC,gCAAD;;AAXK;AAepB,UAAG,kBAAH;AAEE,YAAG,aAAQ,YAAY,CAAC,OAAD,CAAS,YAAC,EAAQ,KAAE,EAA3C;AAEE,sBAAO,YAAU,CAAC,uCAAuC,CAAC,uBAAD,a3I2EkF,I2I3E1H;;AAIjB,2CAAW,CAAC,oBAAD;;;AAKb,yCAAW,CAAC,wFAAD;;AA7BgC;AA4KJ;AAE/B;AAEV,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,iBAAO,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,+BAAqB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,oBAAU,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAClB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,0BAAgB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,sBAAY,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,2BAAiB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,qBAAW,uCAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,8BAAoB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,mCAAyB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,+CAAqC,iBAAU,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,mDAAyC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAEpC,aAAE;AACF,cAAG;AACH,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,4BAAiB;AACjB,iBAAM;AACN,qBAAU;AACV,uBAAY;AACZ,mBAAQ;AACR,wBAAa;AACb,kBAAO;AACP,2BAAgB;AAChB,yCAA8B;AAC9B,gCAAqB;AACrB,4CAAiC;AACjC,gDAAqC;AACrC,+BAAoB;AACpB;AACE,qBAAQ,oBAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,QAAC,CAAQ,CAAR;AACH,eAAE,OAAC,CAAO,GAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,GAAV;AACH,eAAE,oBAAC,CAAoB,gDAApB;AACH,eAAE,eAAC,CAAe,wCAAf;AACH,eAAE,cAAC,CAAc,wCAAd;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,gBAAC,CAAc,CAAd;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,0BAAC,CAA0B,YAA1B;AACH,eAAE,mBAAC,CAAmB,gDAAnB;AACH,eAAE,yBAAC,CAAyB,gDAAzB;AACH,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,gBAAG,mBAAmB,CAAC,IAAD;AACtB,gBAAG,QAAC,CAAQ,KAAR;AACJ,gBAAG,QAAC,CAAQ,CAAR;AACJ,gBAAG,OAAC,CAAO,GAAP;AACJ,gBAAG,SAAC,CAAS,GAAT;AACJ,gBAAG,UAAC,CAAU,EAAV;AACJ,gBAAG,oBAAC,CAAoB,gDAApB;AACJ,gBAAG,eAAC,CAAe,wCAAf;AACJ,gBAAG,cAAC,CAAc,wCAAd;AACJ,gBAAG,eAAC,CAAe,QAAf;AACJ,gBAAG,gBAAC,CAAc,CAAd;AACJ,gBAAG,aAAC,CAAa,KAAb;AACJ,gBAAG,0BAAC,CAA0B,YAA1B;AACJ,gBAAG,mBAAC,CAAmB,gDAAnB;AACJ,gBAAG,yBAAC,CAAyB,gDAAzB;AACJ,gBAAG,YAAC,CAAY,IAAZ;AACJ,gBAAG,YAAC,CAAY,CAAZ;AACJ,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,SAAC,CAAS,mCAAT;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,SAAC,CAAS,mCAAT;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,8BAAiB,mBAAmB,CAAC,IAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,QAAC,CAAQ,CAAR;AAClB,8BAAiB,OAAC,CAAO,GAAP;AAClB,8BAAiB,SAAC,CAAS,EAAT;AAClB,8BAAiB,UAAC,CAAU,EAAV;AAClB,8BAAiB,WAAC,CAAW,gBAAX;AAClB,8BAAiB,gBAAC,CAAc,CAAd;AAClB,8BAAiB,oBAAC,CAAoB,mCAApB;AAClB,8BAAiB,eAAC,CAAe,yCAAf;AAClB,8BAAiB,mBAAC,CAAmB,gDAAnB;AAClB,8BAAiB,eAAC,CAAe,wCAAf;AAClB,8BAAiB,iBAAC,CAAiB,sBAAjB;AAClB,8BAAiB,cAAC,CAAc,wCAAd;AAClB,8BAAiB,gBAAC,CAAgB,sBAAhB;AAClB,uBAAQ,CAAC,uBAAmB,KAAM,UAAW,wBAArC;AACR,mBAAM,mBAAmB,CAAC,IAAD;AACzB,mBAAM,QAAC,CAAQ,QAAR;AACP,mBAAM,QAAC,CAAQ,GAAR;AACP,mBAAM,OAAC,CAAO,GAAP;AACP,mBAAM,SAAC,CAAS,EAAT;AACP,mBAAM,UAAC,CAAU,EAAV;AACP,mBAAM,WAAC,CAAW,KAAX;AACP,mBAAM,gBAAC,CAAc,CAAd;AACP,mBAAM,oBAAC,CAAoB,mCAApB;AACP,mBAAM,eAAC,CAAe,yCAAf;AACP,mBAAM,mBAAC,CAAmB,gDAAnB;AACP,mBAAM,eAAC,CAAe,wCAAf;AACP,mBAAM,iBAAC,CAAiB,sBAAjB;AACP,mBAAM,cAAC,CAAc,wCAAd;AACP,mBAAM,gBAAC,CAAgB,sBAAhB;AACP,uBAAQ,CAAC,YAAQ,KAAM,UAAW,aAA1B;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,yCAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,SAAC,CAAS,mCAAT;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,QAAC,CAAQ,GAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,EAAT;AACb,yBAAY,UAAC,CAAU,EAAV;AACb,yBAAY,WAAC,CAAW,GAAX;AACb,yBAAY,gBAAC,CAAc,CAAd;AACb,yBAAY,oBAAC,CAAoB,mCAApB;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,mBAAC,CAAmB,gDAAnB;AACb,yBAAY,eAAC,CAAe,wCAAf;AACb,yBAAY,iBAAC,CAAiB,sBAAjB;AACb,yBAAY,cAAC,CAAc,wCAAd;AACb,yBAAY,gBAAC,CAAgB,sBAAhB;AACb,uBAAQ,CAAC,kBAAc,KAAM,UAAW,mBAAhC;AACR,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,WAAR,GAAsB;AACtB,qBAAQ,iBAAC,CAAiB,cAAjB;AACT,qBAAQ,cAAC,CAAc,aAAG,oBAAjB;AACT,qBAAQ,iBAAC,CAAiB,CAAjB;AACT,qBAAQ,aAAR,GAAwB;AACxB,qBAAQ,QAAC,CAAQ,EAAR;AACT,qBAAQ,OAAC,CAAO,CAAP;AACT,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,iBAAC,CAAiB,wBAAjB;AACd,0BAAa,cAAC,CAAc,aAAG,oBAAjB;AACd,0BAAa,iBAAC,CAAiB,CAAjB;AACd,0BAAa,aAAb,GAA6B;AAC7B,0BAAa,QAAC,CAAQ,EAAR;AACd,0BAAa,OAAC,CAAO,EAAP;AACd,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,cAAC,CAAc,aAAG,oBAAjB;AACR,oBAAO,QAAC,CAAQ,EAAR;AACR,oBAAO,OAAC,CAAO,CAAP;AACR,6BAAgB,mBAAmB,CAAC,IAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,iBAAC,CAAiB,4BAAjB;AACjB,6BAAgB,cAAC,CAAc,aAAG,oBAAjB;AACjB,6BAAgB,QAAC,CAAQ,GAAR;AACjB,6BAAgB,OAAC,CAAO,GAAP;AACjB,2CAA8B,mBAAmB,CAAC,qBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,UAA9B,GAA2C;AAC3C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,kCAAqB,mBAAmB,CAAC,qBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,8CAAiC,mBAAmB,CAAC,qBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,kDAAqC,mBAAmB,CAAC,qBAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,kDAAqC,QAAC,CAAQ,GAAR;AACtC,iCAAoB,mBAAmB,CAAC,IAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAAC,CAAW,qBAAX;AACrB,iCAAoB,QAAC,CAAQ,EAAR;AACrB,iCAAoB,OAAC,CAAO,GAAP;AA/LvB;AAiME,eAAE;AACF,gBAAG;AACH,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,8BAAiB;AACjB,mBAAM;AACN,uBAAU;AACV,yBAAY;AACZ,qBAAQ;AACR,0BAAa;AACb,oBAAO;AACP,6BAAgB;AAChB,2CAA8B;AAC9B,kCAAqB;AACrB,8CAAiC;AACjC,kDAAqC;AACrC,iCAAoB;AAlNtB;AAzCyC;AAjPtB;;;AACjB,2BzIIc,kDyIJd;AACA,gCzIGc,kDyIHd;AACA,0B3ImFa,gD2InFb;AACA,qBnIo7BW,0CmIp7BX;AACA,sBnIm7BW,0CmIn7BX;AACA,mCzIDc,kDyICd;AACA,iD/J6ZU,4B+J7ZV;AACA,wC/JmmBY,8B+JnmBZ;AACA,oD/JsqBQ,0B+JtqBR;AACA,wD/J0ZU,4B+J1ZV;AACA,uC/J0iDS,2B+J1iDT;AACA,6BhL46BY,8CgL56BZ;AACA,6BhL26BY,8CgL36BZ;AACA,6BjL4jBK,uCiL5jBL;AACA,oCjL2jBK,uCiL3jBL;AACA,yBjL0jBK,uCiL1jBL;AACA,6BhLu6BY,8CgLv6BZ;AACA,+BjLwjBK,uCiLxjBL;AACqB,kCAAO,U9MgGvB,2B8MhGuB,CAAP;AACA,kCAAO,U9M+FvB,2B8M/FuB,CAAP;AACM,wCAAQ,W/JyjC7B,wB+JzjC6B,CAAR;AACK,6CAAQ,W/JwjClC,wB+JxjCkC,CAAR;AACA,6CAAO,U9M4FlC,2B8M5FkC,CAAP;AACG,gDAAQ,W/JsjCrC,wB+JtjCqC,CAAR;AACV,sCAAO,U9M0F3B,2B8M1F2B,CAAP;AACE,wCAAO,U9MyF7B,2B8MzF6B,CAAP;AA1BV;AAoCnB;AA/CF,GAiDc,gDAjDd;ACAA,qCAES,sTAFT;;;AAWoB;;;AAChB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AASA;AACA;AA7IgB;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAgMoB;AAEtC,0BAAe;AAFuB;AAKa;AAEnD;AACA;AAGA,qBAAU,MAAK,WAAC,CAAM,4EAAN;AAEhB,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,2BAAe,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,wBAAa,oBAAC,CAAkB,4BAAlB;AACd,wBAAa,eAAC,CAAa,wCAAb;AACd,wBAAa,cAAC,CAAY,wCAAZ;AACd,wBAAa,OAAb,GAAmB;AACnB,wBAAa,WAAC,CAAS,YAAT;AACd,wBAAa,SAAb,GAAwB;AACxB,wBAAa,iBAAC,CAAe,SAAf;AACd,sBAAW,iBAAC,CAAe,SAAf;AACZ,0BAAe;AACf,UAAG,oBAAe,eAAC,EAAW,KAAC,CAA/B,EAAsC,gBAAW,QAAC,CAAM,iBAAN,CAAlD;AACA,UAAG,oBAAe,eAAC,EAAW,GAAC,CAA/B,EAAsC,gBAAW,QAAC,CAAM,mBAAmB,GAAC,qBAAQ,CAAC,oBAAe,eAAC,EAAjB,CAAlC,CAAlD;AACA,UAAG,oBAAe,eAAC,EAAW,GAAC,EAA/B,EAAuC,gBAAW,QAAC,CAAM,wDAAN,CAAnD;AACA,UAAG,oBAAe,eAAC,EAAW,GAAC,GAA/B,EAAwC,gBAAW,QAAC,CAAM,iBAAuD,GAArC,qBAAQ,CAAC,oBAAe,eAAC,EAAjB,CAAT,GAAuC,sBAA9D,CAApD;AACA,aAAM,CAAI,oBAAe,OAAC,EAA1B;AAGE,sBAAa,+BAA0L,GAA1J,kCAA6B,YAAC,EAA/B,GAAwC,KAAD,GAAO,2BAAc,CAAC,aAAa,yBAAoB,cAAC,EAAnC,CAAf,GAA8D,UAAD,GAAY,iCAA4B,YAAC,EAA9B,GAAuC,YAAD;AACvM,sBAAa,WAAsC,GAA1B,0BAAD,GAA4B,4CAAuC,YAAC,EAAzC;AACnD,sBAAa,WAAkD,GAAtC,KAAD,GAAO,4BAAuB,YAAC,EAAzB,GAAkC,MAAD;AAC/D,sBAAa,WAA6D,GAAjD,KAAD,GAAO,uCAAkC,YAAC,EAApC,GAA6C,UAAD;AAC1E,sBAAa,WAA6D,GAAjD,KAAD,GAAO,uCAAkC,YAAC,EAApC,GAA6C,UAAD;AAC1E,sBAAa,WAAW,GAAC,QAAD;AAGxB,oBAAW,eAAU,iBAAC;AACtB,0BAAY,+BAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,uBAAU,MAAC,CAAW,kCAA6B,YAAC,EAAzC;AACX,uBAAU,eAAC,CAAa,wCAAb;AACX,uBAAU,SAAC,CAAO,GAAP;AACX,uBAAU,MAAK,WAAC,CAAM,WAAN;AAChB,uBAAU,oBAAC,CAAkB,sBAAlB;AACX,uBAAU,SAAV,GAAqB;AACrB,uBAAU,iBAAC,CAAe,SAAf;AAEX,4BAAe;;AA7CkC;AAfR;AAE3C,UAAG,gBAAG,CAAC,gBAAgB,gBAAW,OAAM,CAAlC,CAAoC,GAAC,CAA3C;AAEE,4BAAe;AACf,4BAAe,UAAf,GAA0B;AAC1B,4BAAe;OAJjB;AAF2C;AA7BE;AAE7C,0BAAe;AACf,UAAI;AAHyC;AAMH;;AAE1C;AACA;AAEA,6BAA8B,OAAP,OAAU,+BAAH,CAAY,MAAC;AAC3C,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,2BAAsB,+CAAmB,QAAC,eAAS,CAAC;AAEzC,eAAN,MAAS,+CAAH,CAAuB,mBAA9B,GAAmD;AAFH,OAAD,CAAT;AAM1C,wBAAkB,YAAU,CAAC;AAEzB,6BAAe;AACf,6BAAe;AAHU,OAAD;AAbc;AAwFF;AAE9B;AAEV,yBAAe,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,6BAAmB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,kCAAwB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,0CAAgC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,8CAAoC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,kDAAwC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,8CAAoC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,gDAAsC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,gDAAsC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,6CAAmC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,6CAAmC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,yCAA+B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,gDAAsC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,oCAA0B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,wCAA8B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,gDAAsC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,6CAAmC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,8CAAoC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,qCAA2B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,2CAAiC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,mDAAyC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvD,2CAAiC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,uCAA6B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,uCAA6B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,4CAAkC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,sDAA4C,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,mDAAyC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,mCAAyB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,gDAAsC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,iDAAuC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,gDAAsC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,gDAAsC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,gDAAsC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,2CAAiC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,4CAAkC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,gDAAsC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,mDAAyC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvD,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,sCAA4B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,iDAAuC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,iDAAuC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,wCAA8B,iBAAU,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,qDAA2C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAExD,sBAAW;AACX,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,0BAAe;AACf,wCAA6B;AAC7B,yCAA8B;AAC9B,6CAAkC;AAClC,0CAA+B;AAC/B,+BAAoB;AACpB,8BAAmB;AACnB,uCAA4B;AAC5B,kCAAuB;AACvB,iCAAsB;AACtB,sCAA2B;AAC3B,6BAAkB;AAClB,wCAA6B;AAC7B,8BAAmB;AACnB,sCAA2B;AAC3B,sCAA2B;AAC3B,+BAAoB;AACpB,qCAA0B;AAC1B,6CAAkC;AAClC,2CAAgC;AAChC,+CAAoC;AACpC,6CAAkC;AAClC,4CAAiC;AACjC,2CAAgC;AAChC,6BAAkB;AAClB,kCAAuB;AACvB,0CAA+B;AAC/B,+BAAoB;AACpB,6CAAkC;AAClC,6CAAkC;AAClC,sCAA2B;AAC3B,sCAA2B;AAC3B,oCAAyB;AACzB,0CAA+B;AAC/B,0CAA+B;AAC/B,wCAA6B;AAC7B,qCAA0B;AAC1B,sCAA2B;AAC3B,oCAAyB;AACzB,sCAA2B;AAC3B,oCAAyB;AACzB,wCAA6B;AAC7B,uCAA4B;AAC5B,mCAAwB;AACxB,iCAAsB;AACtB,+BAAoB;AACpB,6CAAkC;AAClC,iCAAsB;AACtB,qCAA0B;AAC1B,4CAAiC;AACjC,6CAAkC;AAClC,0CAA+B;AAC/B,sCAA2B;AAC3B,2CAAgC;AAChC,mCAAwB;AACxB,qCAA0B;AAC1B,yCAA8B;AAC9B,uCAA4B;AAC5B,oCAAyB;AACzB,wCAA6B;AAC7B,8BAAmB;AACnB,sCAA2B;AAC3B,qCAA0B;AAC1B,sCAA2B;AAC3B,uCAA4B;AAC5B,kCAAuB;AACvB,wCAA6B;AAC7B,sCAA2B;AAC3B,sCAA2B;AAC3B,sCAA2B;AAC3B,uCAA4B;AAC5B,sCAA2B;AAC3B,qCAA0B;AAC1B,2CAAgC;AAChC,0CAA+B;AAC/B,uCAA4B;AAC5B,uCAA4B;AAC5B,uCAA4B;AAC5B,+BAAoB;AACpB,sCAA2B;AAC3B,sCAA2B;AAC3B,mCAAwB;AACxB,yCAA8B;AAC9B,2CAAgC;AAChC,mCAAwB;AACxB,gDAAqC;AACrC,wCAA6B;AAC7B,oCAAyB;AACzB,oCAAyB;AACzB,yCAA8B;AAC9B,2CAAgC;AAChC,kCAAuB;AACvB,wCAA6B;AAC7B,wCAA6B;AAC7B,qCAA0B;AAC1B,kCAAuB;AACvB,sCAA2B;AAC3B,mDAAwC;AACxC,4CAAiC;AACjC,gDAAqC;AACrC,gCAAqB;AACrB,6CAAkC;AAClC,yCAA8B;AAC9B,oCAAyB;AACzB,uCAA4B;AAC5B,8CAAmC;AACnC,qCAA0B;AAC1B,qCAA0B;AAC1B,6CAAkC;AAClC,6CAAkC;AAClC,6CAAkC;AAClC,wCAA6B;AAC7B,4CAAiC;AACjC,mCAAwB;AACxB,yCAA8B;AAC9B,uCAA4B;AAC5B,6CAAkC;AAClC,gDAAqC;AACrC,oCAAyB;AACzB,mCAAwB;AACxB,8CAAmC;AACnC,uCAA4B;AAC5B,mCAAwB;AACxB,wCAA6B;AAC7B,8CAAmC;AACnC,qCAA0B;AAC1B,kDAAuC;AACvC;AACE,qBAAQ,mBAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,kBAAI,SAAJ,GAAgB;AAChB,kBAAI,SAAC,CAAS,KAAT;AACL,kBAAI,UAAC,CAAU,CAAC,EAAX;AACL,kBAAI,QAAC,CAAQ,QAAR;AACL,kBAAI,SAAC,CAAS,EAAT;AACL,2BAAc,KAAd;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,CAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,EAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,WAAC,CAAW,aAAX;AACZ,wBAAW,oBAAC,CAAoB,QAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,cAAC,CAAc,wCAAd;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,uBAAQ,CAAC,iBAAa,KAAM,UAAW,kBAA/B;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,iBAAC,CAAiB,cAAjB;AAChB,4BAAe,cAAC,CAAc,aAAG,oBAAjB;AAChB,4BAAe,iBAAC,CAAiB,CAAjB;AAChB,4BAAe,aAAf,GAA+B;AAC/B,4BAAe,UAAf,GAA4B;AAC5B,4BAAe,QAAC,CAAQ,EAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,0CAA6B,mBAAmB,CAAC,oBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,UAA7B,GAA0C;AAC1C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,2CAA8B,mBAAmB,CAAC,oBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,+CAAkC,mBAAmB,CAAC,oBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,EAAR;AACnC,4CAA+B,mBAAmB,CAAC,oBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,iCAAoB,mBAAmB,CAAC,oBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,UAApB,GAAiC;AACjC,gCAAmB,mBAAmB,CAAC,oBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,yCAA4B,mBAAmB,CAAC,oBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,oCAAuB,mBAAmB,CAAC,oBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,mCAAsB,mBAAmB,CAAC,oBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,+BAAkB,mBAAmB,CAAC,oBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,0CAA6B,mBAAmB,CAAC,oBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,CAAR;AAC9B,gCAAmB,mBAAmB,CAAC,oBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,GAAR;AAC5B,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,iCAAoB,mBAAmB,CAAC,oBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,uCAA0B,mBAAmB,CAAC,oBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,GAAR;AAC3B,+CAAkC,mBAAmB,CAAC,oBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,GAAR;AACnC,6CAAgC,mBAAmB,CAAC,oBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,iDAAoC,mBAAmB,CAAC,oBAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,QAAC,CAAQ,GAAR;AACrC,+CAAkC,mBAAmB,CAAC,oBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,GAAR;AACnC,8CAAiC,mBAAmB,CAAC,oBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,EAAR;AAClC,6CAAgC,mBAAmB,CAAC,oBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,+BAAkB,mBAAmB,CAAC,oBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,oCAAuB,mBAAmB,CAAC,oBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,GAAR;AACxB,4CAA+B,mBAAmB,CAAC,oBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,GAAR;AAChC,iCAAoB,mBAAmB,CAAC,oBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,GAAR;AACrB,+CAAkC,mBAAmB,CAAC,oBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,mBAAmB,CAAC,oBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,sCAAyB,mBAAmB,CAAC,oBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,4CAA+B,mBAAmB,CAAC,oBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,mBAAmB,CAAC,oBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,0CAA6B,mBAAmB,CAAC,oBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,uCAA0B,mBAAmB,CAAC,oBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,sCAAyB,mBAAmB,CAAC,oBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,sCAAyB,mBAAmB,CAAC,oBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,0CAA6B,mBAAmB,CAAC,oBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,yCAA4B,mBAAmB,CAAC,oBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,qCAAwB,mBAAmB,CAAC,oBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,mCAAsB,mBAAmB,CAAC,oBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,iCAAoB,mBAAmB,CAAC,oBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,+CAAkC,mBAAmB,CAAC,oBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,mCAAsB,mBAAmB,CAAC,oBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,uCAA0B,mBAAmB,CAAC,oBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,8CAAiC,mBAAmB,CAAC,oBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,GAAR;AAClC,+CAAkC,mBAAmB,CAAC,oBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,4CAA+B,mBAAmB,CAAC,oBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,6CAAgC,mBAAmB,CAAC,oBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,qCAAwB,mBAAmB,CAAC,oBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,GAAR;AACzB,uCAA0B,mBAAmB,CAAC,oBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,2CAA8B,mBAAmB,CAAC,oBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,yCAA4B,mBAAmB,CAAC,oBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,sCAAyB,mBAAmB,CAAC,oBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,0CAA6B,mBAAmB,CAAC,oBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,gCAAmB,mBAAmB,CAAC,oBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,uCAA0B,mBAAmB,CAAC,oBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,yCAA4B,mBAAmB,CAAC,oBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,oCAAuB,mBAAmB,CAAC,oBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,0CAA6B,mBAAmB,CAAC,oBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,yCAA4B,mBAAmB,CAAC,oBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,uCAA0B,mBAAmB,CAAC,oBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,6CAAgC,mBAAmB,CAAC,oBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,4CAA+B,mBAAmB,CAAC,oBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,yCAA4B,mBAAmB,CAAC,oBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,mBAAmB,CAAC,oBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,mBAAmB,CAAC,oBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,iCAAoB,mBAAmB,CAAC,oBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,GAAR;AACrB,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,qCAAwB,mBAAmB,CAAC,oBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,2CAA8B,mBAAmB,CAAC,oBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,GAAR;AAC/B,6CAAgC,mBAAmB,CAAC,oBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,qCAAwB,mBAAmB,CAAC,oBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,GAAR;AACzB,kDAAqC,mBAAmB,CAAC,oBAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,0CAA6B,mBAAmB,CAAC,oBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,sCAAyB,mBAAmB,CAAC,oBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,mBAAmB,CAAC,oBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,2CAA8B,mBAAmB,CAAC,oBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,6CAAgC,mBAAmB,CAAC,oBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,oCAAuB,mBAAmB,CAAC,oBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,0CAA6B,mBAAmB,CAAC,oBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,0CAA6B,mBAAmB,CAAC,oBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,uCAA0B,mBAAmB,CAAC,oBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,GAAR;AAC3B,oCAAuB,mBAAmB,CAAC,oBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,CAAR;AACxB,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,qDAAwC,mBAAmB,CAAC,oBAAD;AAC3D,qDAAwC,QAAC,CAAQ,0CAAR;AACzC,qDAAwC,WAAxC,GAAsD;AACtD,8CAAiC,mBAAmB,CAAC,oBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,GAAR;AAClC,kDAAqC,mBAAmB,CAAC,oBAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,kDAAqC,QAAC,CAAQ,EAAR;AACtC,kCAAqB,mBAAmB,CAAC,oBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,+CAAkC,mBAAmB,CAAC,oBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,2CAA8B,mBAAmB,CAAC,oBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,CAAR;AAC/B,sCAAyB,mBAAmB,CAAC,oBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,yCAA4B,mBAAmB,CAAC,oBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,gDAAmC,mBAAmB,CAAC,oBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,uCAA0B,mBAAmB,CAAC,oBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,uCAA0B,mBAAmB,CAAC,oBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,GAAR;AAC3B,+CAAkC,mBAAmB,CAAC,oBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,mBAAmB,CAAC,oBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,mBAAmB,CAAC,oBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,0CAA6B,mBAAmB,CAAC,oBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,8CAAiC,mBAAmB,CAAC,oBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,EAAR;AAClC,qCAAwB,mBAAmB,CAAC,oBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,2CAA8B,mBAAmB,CAAC,oBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,yCAA4B,mBAAmB,CAAC,oBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,+CAAkC,mBAAmB,CAAC,oBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,kDAAqC,mBAAmB,CAAC,oBAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,sCAAyB,mBAAmB,CAAC,oBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,qCAAwB,mBAAmB,CAAC,oBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,gDAAmC,mBAAmB,CAAC,oBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,gDAAmC,QAAC,CAAQ,GAAR;AACpC,yCAA4B,mBAAmB,CAAC,oBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,qCAAwB,mBAAmB,CAAC,oBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,0CAA6B,mBAAmB,CAAC,oBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,GAAR;AAC9B,gDAAmC,mBAAmB,CAAC,oBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,uCAA0B,mBAAmB,CAAC,oBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,oDAAuC,mBAAmB,CAAC,oBAAD;AAC1D,oDAAuC,QAAC,CAAQ,yCAAR;AACxC,oDAAuC,WAAvC,GAAqD;AACrD,oDAAuC,QAAC,CAAQ,EAAR;AAzgB1C;AA2gBE,wBAAW;AACX,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,4BAAe;AACf,0CAA6B;AAC7B,2CAA8B;AAC9B,+CAAkC;AAClC,4CAA+B;AAC/B,iCAAoB;AACpB,gCAAmB;AACnB,yCAA4B;AAC5B,oCAAuB;AACvB,mCAAsB;AACtB,wCAA2B;AAC3B,+BAAkB;AAClB,0CAA6B;AAC7B,gCAAmB;AACnB,wCAA2B;AAC3B,wCAA2B;AAC3B,iCAAoB;AACpB,uCAA0B;AAC1B,+CAAkC;AAClC,6CAAgC;AAChC,iDAAoC;AACpC,+CAAkC;AAClC,8CAAiC;AACjC,6CAAgC;AAChC,+BAAkB;AAClB,oCAAuB;AACvB,4CAA+B;AAC/B,iCAAoB;AACpB,+CAAkC;AAClC,+CAAkC;AAClC,wCAA2B;AAC3B,wCAA2B;AAC3B,sCAAyB;AACzB,4CAA+B;AAC/B,4CAA+B;AAC/B,0CAA6B;AAC7B,uCAA0B;AAC1B,wCAA2B;AAC3B,sCAAyB;AACzB,wCAA2B;AAC3B,sCAAyB;AACzB,0CAA6B;AAC7B,yCAA4B;AAC5B,qCAAwB;AACxB,mCAAsB;AACtB,iCAAoB;AACpB,+CAAkC;AAClC,mCAAsB;AACtB,uCAA0B;AAC1B,8CAAiC;AACjC,+CAAkC;AAClC,4CAA+B;AAC/B,wCAA2B;AAC3B,6CAAgC;AAChC,qCAAwB;AACxB,uCAA0B;AAC1B,2CAA8B;AAC9B,yCAA4B;AAC5B,sCAAyB;AACzB,0CAA6B;AAC7B,gCAAmB;AACnB,wCAA2B;AAC3B,uCAA0B;AAC1B,wCAA2B;AAC3B,yCAA4B;AAC5B,oCAAuB;AACvB,0CAA6B;AAC7B,wCAA2B;AAC3B,wCAA2B;AAC3B,wCAA2B;AAC3B,yCAA4B;AAC5B,wCAA2B;AAC3B,uCAA0B;AAC1B,6CAAgC;AAChC,4CAA+B;AAC/B,yCAA4B;AAC5B,yCAA4B;AAC5B,yCAA4B;AAC5B,iCAAoB;AACpB,wCAA2B;AAC3B,wCAA2B;AAC3B,qCAAwB;AACxB,2CAA8B;AAC9B,6CAAgC;AAChC,qCAAwB;AACxB,kDAAqC;AACrC,0CAA6B;AAC7B,sCAAyB;AACzB,sCAAyB;AACzB,2CAA8B;AAC9B,6CAAgC;AAChC,oCAAuB;AACvB,0CAA6B;AAC7B,0CAA6B;AAC7B,uCAA0B;AAC1B,oCAAuB;AACvB,wCAA2B;AAC3B,qDAAwC;AACxC,8CAAiC;AACjC,kDAAqC;AACrC,kCAAqB;AACrB,+CAAkC;AAClC,2CAA8B;AAC9B,sCAAyB;AACzB,yCAA4B;AAC5B,gDAAmC;AACnC,uCAA0B;AAC1B,uCAA0B;AAC1B,+CAAkC;AAClC,+CAAkC;AAClC,+CAAkC;AAClC,0CAA6B;AAC7B,8CAAiC;AACjC,qCAAwB;AACxB,2CAA8B;AAC9B,yCAA4B;AAC5B,+CAAkC;AAClC,kDAAqC;AACrC,sCAAyB;AACzB,qCAAwB;AACxB,gDAAmC;AACnC,yCAA4B;AAC5B,qCAAwB;AACxB,0CAA6B;AAC7B,gDAAmC;AACnC,uCAA0B;AAC1B,oDAAuC;AA7oBzC;AA3QwC;AAvPtB;;;AAChB,kC1IIc,kD0IJd;AACA,gDhKkaU,4BgKlaV;AACA,iDhKiaU,4BgKjaV;AACA,qDhKgaU,4BgKhaV;AACA,kDhK+ZU,4BgK/ZV;AACA,uChKqmBY,8BgKrmBZ;AACA,sChKwiBS,2BgKxiBT;AACA,+ChKodW,6BgKpdX;AACA,0ChK2ZU,4BgK3ZV;AACA,yChK0ZU,4BgK1ZV;AACA,8ChKyZU,4BgKzZV;AACA,qChKwZU,4BgKxZV;AACA,gDhKuZU,4BgKvZV;AACA,sChKsZU,4BgKtZV;AACA,8ChKqZU,4BgKrZV;AACA,8ChKoZU,4BgKpZV;AACA,uChKmZU,4BgKnZV;AACA,6ChKkZU,4BgKlZV;AACA,qDhKiZU,4BgKjZV;AACA,mDhKwcW,6BgKxcX;AACA,uDhK+YU,4BgK/YV;AACA,qDhK8YU,4BgK9YV;AACA,oDhK6YU,4BgK7YV;AACA,mDhKmlBY,8BgKnlBZ;AACA,qChK2YU,4BgK3YV;AACA,0ChK0YU,4BgK1YV;AACA,kDhKyYU,4BgKzYV;AACA,uChKwYU,4BgKxYV;AACA,qDhKkhBS,2BgKlhBT;AACA,qDhKihBS,2BgKjhBT;AACA,8ChKghBS,2BgKhhBT;AACA,8ChK+gBS,2BgK/gBT;AACA,4ChK8gBS,2BgK9gBT;AACA,kDhK6gBS,2BgK7gBT;AACA,kDhK4gBS,2BgK5gBT;AACA,gDhK2gBS,2BgK3gBT;AACA,6ChK0gBS,2BgK1gBT;AACA,8ChKqkBY,8BgKrkBZ;AACA,4ChKwgBS,2BgKxgBT;AACA,8ChKugBS,2BgKvgBT;AACA,4ChKsgBS,2BgKtgBT;AACA,gDhK0XU,4BgK1XV;AACA,+ChKyXU,4BgKzXV;AACA,2ChKwXU,4BgKxXV;AACA,yChKuXU,4BgKvXV;AACA,uChKsXU,4BgKtXV;AACA,qDhKmiBW,6BgKniBX;AACA,yChKkiBW,6BgKliBX;AACA,6ChK0jBY,8BgK1jBZ;AACA,oDhKkXU,4BgKlXV;AACA,qDhK4fS,2BgK5fT;AACA,kDhK2fS,2BgK3fT;AACA,8ChK0fS,2BgK1fT;AACA,mDhKyfS,2BgKzfT;AACA,2ChK6WU,4BgK7WV;AACA,6ChK4WU,4BgK5WV;AACA,iDhK2WU,4BgK3WV;AACA,+ChK0WU,4BgK1WV;AACA,4ChKofS,2BgKpfT;AACA,gDhKwWU,4BgKxWV;AACA,sChKuWU,4BgKvWV;AACA,8ChKifS,2BgKjfT;AACA,6ChKqWU,4BgKrWV;AACA,8ChKoWU,4BgKpWV;AACA,+ChKmWU,4BgKnWV;AACA,0ChKyiBY,8BgKziBZ;AACA,gDhKwiBY,8BgKxiBZ;AACA,8ChKgWU,4BgKhWV;AACA,8ChK+VU,4BgK/VV;AACA,8ChK4gBW,6BgK5gBX;AACA,+ChK6VU,4BgK7VV;AACA,8ChK4VU,4BgK5VV;AACA,6ChK2VU,4BgK3VV;AACA,mDhK0VU,4BgK1VV;AACA,kDhKugBW,6BgKvgBX;AACA,+ChKmeS,2BgKneT;AACA,+ChKkeS,2BgKleT;AACA,+ChKieS,2BgKjeT;AACA,uChKqVU,4BgKrVV;AACA,8ChK+dS,2BgK/dT;AACA,8ChKmVU,4BgKnVV;AACA,2ChKkVU,4BgKlVV;AACA,iDhKiVU,4BgKjVV;AACA,mDhKgVU,4BgKhVV;AACA,2ChK+UU,4BgK/UV;AACA,wDhK4fW,6BgK5fX;AACA,gDhK2fW,6BgK3fX;AACA,4ChKmhBY,8BgKnhBZ;AACA,4ChKkhBY,8BgKlhBZ;AACA,iDhKwfW,6BgKxfX;AACA,mDhKyUU,4BgKzUV;AACA,0ChKsfW,6BgKtfX;AACA,gDhKuUU,4BgKvUV;AACA,gDhKsUU,4BgKtUV;AACA,6ChKqUU,4BgKrUV;AACA,0ChKoUU,4BgKpUV;AACA,8ChK8cS,2BgK9cT;AACA,2DhK6cS,2BgK7cT;AACA,oDhKiUU,4BgKjUV;AACA,wDhKgUU,4BgKhUV;AACA,wChK6eW,6BgK7eX;AACA,qDhK4eW,6BgK5eX;AACA,iDhK6TU,4BgK7TV;AACA,4ChK4TU,4BgK5TV;AACA,+ChKscS,2BgKtcT;AACA,sDhKqcS,2BgKrcT;AACA,6ChKyTU,4BgKzTV;AACA,6ChKwTU,4BgKxTV;AACA,qDhKkcS,2BgKlcT;AACA,qDhKicS,2BgKjcT;AACA,qDhKgcS,2BgKhcT;AACA,gDhK4WW,6BgK5WX;AACA,oDhKmTU,4BgKnTV;AACA,2ChKkTU,4BgKlTV;AACA,iDhKyWW,6BgKzWX;AACA,+ChKgTU,4BgKhTV;AACA,qDhKsfY,8BgKtfZ;AACA,wDhK4dW,6BgK5dX;AACA,4ChKqWW,6BgKrWX;AACA,2ChKmfY,8BgKnfZ;AACA,sDhK2SU,4BgK3SV;AACA,+ChKqbS,2BgKrbT;AACA,2ChKiWW,6BgKjWX;AACA,gDhKwSU,4BgKxSV;AACA,sDhK8eY,8BgK9eZ;AACA,6ChKijBQ,0BgKjjBR;AACA,0DhKqSU,4BgKrSV;AACA,6BjLwzBY,8CiLxzBZ;AACA,6BjLuzBY,8CiLvzBZ;AACA,6BjLszBY,8CiLtzBZ;AACA,8BlL3BI,sCkL2BJ;AACqB,kCAAO,U/MjBvB,2B+MiBuB,CAAP;AACa,+CAAQ,WhKy8BpC,wBgKz8BoC,CAAR;AACR,uCAAO,U/MnB5B,2B+MmB4B,CAAP;AAtIV;AAmJlB;AA9JF,GAgKc,0CAhKd;ACAA,qCAES,yRAFT;;;AAWoB;;;AAChB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AA3KgB;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAoVoB;AAEtC;AAEA,qBAAU,MAAK,WAAC,CAAM,0EAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAO,iBAAC,CAAe,SAAf;AACR,sBAAW,iBAAC,CAAe,SAAf;AACZ,sBAAW,QAAC,CAAM,IAAN;AACZ,oBAAS,WAAC,CAAS,KAAT;AACV,uBAAY,WAAC,CAAS,KAAT;AACb,4BAAiB,WAAC,CAAS,KAAT;AAClB,qBAAU,iBAAC,CAAe,SAAf;AAEX,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AAGX,kBAAW,eAAU,iBAAC;AACtB,yBAAc,iBAAC,CAAe,SAAf;AACf,mBAAQ,iBAAC,CAAe,SAAf;AAET,kBAAW,eAAU,iBAAC;AACtB,oBAAS,iBAAC,CAAe,SAAf;AACV,oBAAS,WAAC,CAAS,KAAT;AACV,kBAAW,eAAU,iBAAC;AACtB,aAAE,iBAAC,CAAe,SAAf;AACH,yBAAc;AACd,+BAAoB;AA9BkB;AAsFkB;AAExD;AAEA,aAAE,WAAC,CAAS,IAAT;AACH,aAAE,YAAC,CAAU,yBAAoB,eAAC,EAAW,GAAC,CAA3C;AACH,aAAE,YAAC,CAAU,CAAV;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,UAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,SAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,OAAP;AACR,+BAAoB;AACpB,aAAM,CAAI,yBAAoB,OAAC,EAA/B;AAEE,YAAG,yBAAoB,SAAC;AACxB,eAAE,SAAM,CAAC,EAAE,EAAI,2BAAc,CAAC,aAAa,yBAAoB,YAAY,CAAC,UAAD,CAAY,cAAC,EAA3D,CAArB;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,yBAAoB,YAAY,CAAC,eAAD,CAAiB,YAAC,EAAe,GAAN,MAAD,GAAQ,yBAAoB,YAAY,CAAC,qBAAD,CAAuB,YAAC,EAAjI;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,yBAAoB,YAAY,CAAC,OAAD,CAAS,YAAC,EAAjD;AAER,iCAAoB;;AAlBkC;AAvGd;AAE1C,+BAAoB;AACpB,UAAI;AAHsC;AAdF;AAExC;AAEA,sBAAe,iBAAI,CAAC,mBAAc,QAAC,EAAhB;AAEnB,qBAAU;AACV,UAAU,aAAD,OAAe,GAAC,CAAzB;AAEE,uBAAU,aAAV,GAAwB,gDAAkH,GAAjE,sBAAS,CAAC,c5MhDjC,G4MgDgC,CAAV,GAA0B,eAAD,GAAiB,sBAAS,CAAC,c5MhD1E,G4MgDyE,CAAV,GAA0B,GAAD;AAC1I,uBAAU;OAHZ;AAPwC;AAgEM;AAE9C;AAEA,UAAG,eAAU,eAAC,EAAW,KAAC,CAA1B;AAEA,sBAAS,WAAC,CAAS,IAAT;AACV,sBAAS,YAAC,CAAU,CAAV;AACV,sBAAS,YAAC,CAAU,EAAV;AACV,sBAAS,SAAM,CAAC,EAAE,EAAI,mBAAP;AACf,sBAAS,SAAM,CAAC,EAAE,EAAI,eAAP;AACf,sBAAS,SAAM,CAAC,EAAE,EAAI,UAAP;AACf,sBAAS,SAAM,CAAC,EAAE,EAAI,qBAAP;AACf,sBAAS,SAAM,CAAC,EAAE,EAAI,qBAAP;AACf,sBAAS,SAAM,CAAC,EAAE,EAAI,eAAP;AACf,sBAAS,SAAM,CAAC,EAAE,EAAI,eAAP;AACf,sBAAS,SAAM,CAAC,EAAE,EAAI,sBAAP;AACf,sBAAS,SAAM,CAAC,EAAE,EAAI,gBAAP;AACf,sBAAS,SAAM,CAAC,EAAE,EAAI,kBAAP;AACf,sBAAS,SAAM,CAAC,EAAE,GAAK,SAAR;AACf,sBAAS,SAAM,CAAC,EAAE,GAAK,oBAAR;AACf,sBAAS,SAAM,CAAC,EAAE,GAAK,wBAAR;AACf,oBAAW,cAAS,eAAa,CAAC,EAAE,EAAH;AACjC,8BAAiB,iBAAC,CAAe,SAAf;AAClB,8BAAiB,WAAC,CAAS,IAAT;AAClB,sBAAS,SAAM,CAAC,EAAE,EAAI,eAAU,YAAY,CAAC,eAAD,CAAiB,YAAC,EAA/C;AACf,sBAAS,SAAM,CAAC,EAAE,EAAI,eAAU,YAAY,CAAC,KAAD,CAAO,YAAC,EAArC;AACf,sBAAS,SAAM,CAAC,EAAE,EAAI,eAAU,YAAY,CAAC,qBAAD,CAAuB,YAAC,EAArD;AACf,sBAAS,SAAM,CAAC,EAAE,EAAI,uBAAU,CAAC,eAAU,YAAY,CAAC,qBAAD,CAAuB,YAAC,GAAS,IAAG,GAAC,IAAD,CAAK,MAAhE,CAAjB;AACf,sBAAS,SAAM,CAAC,EAAE,EAAI,qCAAgC,YAAC,EAAxC;AACf,sBAAS,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,wBAAW,CAAC,WAAW,4BAAuB,WAAC,EAApC,CAAzB;AACf,sBAAS,SAAM,CAAC,EAAE,EAAI,MAAM,GAAC,wBAAW,CAAC,WAAW,kCAA6B,WAAC,EAA1C,CAAzB;AACf,sBAAS,SAAM,CAAC,EAAE,EAAI,6BAAwB,YAAC,EAAhC;AACf,sBAAS,SAAM,CAAC,EAAE,EAAI,+BAA0B,YAAC,EAAlC;AACf,sBAAS,SAAM,CAAC,EAAE,GAAK,sBAAiB,YAAC,EAA1B;AACf,sBAAS,SAAM,CAAC,EAAE,GAAK,gCAA2B,YAAC,EAApC;AACf,oBAAW,cAAS,eAAa,CAAC,EAAE,EAAH;AACjC,sBAAS,iBAAC,CAAe,SAAf;AACV,sBAAS,WAAC,CAAS,IAAT;AACV,oBAAW,cAAS,eAAa,CAAC,EAAE,EAAH;AACjC,yBAAY,iBAAC,CAAe,SAAf;AACb,yBAAY,WAAC,CAAS,IAAT;AACb,sBAAS;;AAIP,wBAAW,QAAC,CAAM,gDAAN;AACZ,2BAAc,QAAC,CAAM,EAAN;AACf,2BAAc;;AAhD8B;AAvCG;AAGjD,UAAG,SAAG,KAAC,IAAP,EAAgB,kBAAa,CAAC,MAAD,CAA7B;AAHiD;AAvGV;;AAEvC;AACqB;AAEnB;AAEE,gBAAc,OAAN,MAAS,iCAAH;AAJG;AAUK;AAEtB,4BAAc,QAAC,CAAM,iBAAI,CAAC,IAAI,aAAL,CAAV;AACf,2BAAa,CAAC,MAAD;AAHS;AAMxB,UAAG,kBAAH;AAEE,eAAM,iCAAY,QAAC,eAAS,aAAT;AACnB,YAAI,YAAU;;AAId,yCAAW,CAAC,wFAAD;;AA1BwB;AAkGK;AAE5C,UAAG,SAAG,KAAC,IAAP,EAAgB,sBAAiB,CAAC,MAAD,CAAjC;AAF4C;AAnEA;;AACxB;AAEpB;AAEE,mBAAgB,KAAW,QAAQ,QAAS,SAA5B;AAChB,YAAG,QAAQ,KAAC,OAAZ;AAEE,2CAAW,CAAC,4DAAD;;AAIX,2BAAW,QAAC,CAAM,gCAAuE,GAAtC,6BAAuB,YAAC,EAAzB,GAAkC,KAAD,GAAO,eAAS,QAAC,EAAxF;AACZ,yBAAS,QAAC,CAAM,EAAN;AACV,8BAAc,QAAC,CAAM,EAAN;AACf,8BAAc;AACd,0BAAU;AACV,yBAAS,WAAC,CAAS,KAAT;AACV,oCAAoB;AACpB,oCAAoB;;AAlBJ;AAsBpB;AACA;AAEA,UAAG,cAAS,QAAC,EAAI,KAAC,EAAlB;AAEE,yCAAW,CAAC,oCAAD;;AAIX,YAAG,kBAAH;AAEE,6BAAmB,4BAAuB,YAAC;AAC3C,mCAAyB,kCAA6B,YAAC;AACvD,sBAAO,YAAU,CAAC,0CAA0C,CAAC,iBAAiB,cAAS,QAAC,GAAK,uBAAuB,2BAAxD,a7ItI+E,I6IsI1H;;AAIjB,2CAAW,CAAC,iGAAD;;;AAxC6B;AAnEK;;AAC7B;AAEpB;AAEE,mBAAgB,KAAW,QAAQ,QAAS,SAA5B;AAChB,YAAG,QAAQ,KAAC,OAAZ;AAEE,2CAAW,CAAC,yEAAD;;AAIX,cAAG,QAAQ,KAAC,IAAZ;AAEE,6CAAW,CAAC,iCAAD;;AAIX,gBAAG,QAAQ,KAAC,mBAAZ,EAAqC,iCAAW,CAAC,sCAAD,CAAhD;;;AAjBc;AAuBpB,UAAG,kBAAH;AAEE,oBAAO,YAAU,CAAC,uCAAuC,CAAC,4BAAuB,YAAC,EAAzB,a7IzDoF,I6IyD5H;;AAIjB,yCAAW,CAAC,iGAAD;;AA9BoC;AA8PT;AAE9B;AAEV,yBAAe,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,4BAAkB,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,sBAAY,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,qBAAW,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACnB,uBAAa,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,uBAAa,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AACnB,0BAAgB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,+BAAqB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,kCAAwB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,qDAA2C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,mDAAyC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,0CAAgC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,iDAAuC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,wBAAc,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,kCAAwB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,mCAAyB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,gDAAsC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,6CAAmC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,gCAAsB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,mCAAyB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,wCAA8B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,wDAA8C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3D,mDAAyC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,4CAAkC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,8BAAoB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,8BAAoB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,6BAAmB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,6BAAmB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,+CAAqC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,oCAA0B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,wCAA8B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,2BAAiB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,uCAA6B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,6BAAmB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,kCAAwB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,4CAAkC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,4CAAkC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,2CAAiC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,8CAAoC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,+BAAqB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,kCAAwB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,kCAAwB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,8BAAoB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,8CAAoC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,kDAAwC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,wCAA8B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,mDAAyC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,4BAAkB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,mCAAyB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,4BAAkB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,kCAAwB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,gCAAsB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,oCAA0B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,4CAAkC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,4CAAkC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,8BAAoB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,mCAAyB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,2BAAiB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,kDAAwC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,mCAAyB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,4BAAkB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,qBAAW,uCAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAE3B,sBAAW;AACX,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,aAAE;AACF,qBAAU;AACV,qBAAU;AACV,yBAAc;AACd,mBAAQ;AACR,kBAAO;AACP,oBAAS;AACT,oBAAS;AACT,uBAAY;AACZ,4BAAiB;AACjB,+BAAoB;AACpB,iCAAsB;AACtB,4CAAiC;AACjC,kDAAuC;AACvC,oCAAyB;AACzB,gDAAqC;AACrC,uCAA4B;AAC5B,0CAA+B;AAC/B,8CAAmC;AACnC,qBAAU;AACV,+BAAoB;AACpB,yCAA8B;AAC9B,2CAAgC;AAChC,4CAAiC;AACjC,gCAAqB;AACrB,2CAAgC;AAChC,oCAAyB;AACzB,6CAAkC;AAClC,0CAA+B;AAC/B,0CAA+B;AAC/B,0CAA+B;AAC/B,6BAAkB;AAClB,qCAA0B;AAC1B,sCAA2B;AAC3B,wCAA6B;AAC7B,gCAAqB;AACrB,2CAAgC;AAChC,oCAAyB;AACzB,qCAA0B;AAC1B,qDAA0C;AAC1C,gDAAqC;AACrC,0CAA+B;AAC/B,yCAA8B;AAC9B,kCAAuB;AACvB,wCAA6B;AAC7B,wCAA6B;AAC7B,kCAAuB;AACvB,mCAAwB;AACxB,+BAAoB;AACpB,4BAAiB;AACjB,2BAAgB;AAChB,2BAAgB;AAChB,0BAAe;AACf,kCAAuB;AACvB,6BAAkB;AAClB,kCAAuB;AACvB,iCAAsB;AACtB,oCAAyB;AACzB,iCAAsB;AACtB,sCAA2B;AAC3B,sCAA2B;AAC3B,4BAAiB;AACjB,iCAAsB;AACtB,0BAAe;AACf,iCAAsB;AACtB,mCAAwB;AACxB,qCAA0B;AAC1B,iCAAsB;AACtB,iCAAsB;AACtB,iCAAsB;AACtB,iCAAsB;AACtB,iCAAsB;AACtB,4CAAiC;AACjC,kCAAuB;AACvB,8BAAmB;AACnB,iCAAsB;AACtB,+BAAoB;AACpB,+BAAoB;AACpB,2CAAgC;AAChC,kCAAuB;AACvB,kCAAuB;AACvB,kCAAuB;AACvB,kCAAuB;AACvB,kCAAuB;AACvB,qCAA0B;AAC1B,wBAAa;AACb,8BAAmB;AACnB,iCAAsB;AACtB,iCAAsB;AACtB,gCAAqB;AACrB,mCAAwB;AACxB,qCAA0B;AAC1B,iCAAsB;AACtB,oCAAyB;AACzB,yCAA8B;AAC9B,qCAA0B;AAC1B,0BAAe;AACf,6BAAkB;AAClB,6BAAkB;AAClB,2CAAgC;AAChC,oCAAyB;AACzB,wCAA6B;AAC7B,+BAAoB;AACpB,mCAAwB;AACxB,qCAA0B;AAC1B,mCAAwB;AACxB,kCAAuB;AACvB,8BAAmB;AACnB,yCAA8B;AAC9B,yCAA8B;AAC9B,wCAA6B;AAC7B,kCAAuB;AACvB,oCAAyB;AACzB,sCAA2B;AAC3B,mCAAwB;AACxB,2CAAgC;AAChC,4BAAiB;AACjB,+BAAoB;AACpB,+BAAoB;AACpB,2BAAgB;AAChB,+BAAoB;AACpB,4BAAiB;AACjB,2CAAgC;AAChC,+CAAoC;AACpC,mCAAwB;AACxB,kCAAuB;AACvB,qCAA0B;AAC1B,wCAA6B;AAC7B,8BAAmB;AACnB,qCAA0B;AAC1B,sCAA2B;AAC3B,4CAAiC;AACjC,gDAAqC;AACrC,mCAAwB;AACxB,kCAAuB;AACvB,+BAAoB;AACpB,+BAAoB;AACpB,+BAAoB;AACpB,yBAAc;AACd,gCAAqB;AACrB,yBAAc;AACd,qCAA0B;AAC1B,+BAAoB;AACpB,kCAAuB;AACvB,kCAAuB;AACvB,6BAAkB;AAClB,iCAAsB;AACtB,kCAAuB;AACvB,kCAAuB;AACvB,oCAAyB;AACzB,oCAAyB;AACzB,uCAA4B;AAC5B,yCAA8B;AAC9B,yCAA8B;AAC9B,2BAAgB;AAChB,gCAAqB;AACrB,yCAA8B;AAC9B,6BAAkB;AAClB,wBAAa;AACb,+CAAoC;AACpC,4CAAiC;AACjC,2BAAgB;AAChB,gCAAqB;AACrB,yBAAc;AACd,kCAAuB;AACvB,kBAAO;AACP;AACE,qBAAQ,mBAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,GAAR;AACZ,wBAAW,OAAC,CAAO,EAAP;AACZ,wBAAW,SAAC,CAAS,EAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,WAAC,CAAW,aAAX;AACZ,wBAAW,oBAAC,CAAoB,QAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,cAAC,CAAc,2CAAd;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,QAAC,CAAQ,CAAC,CAAT;AACH,eAAE,OAAC,CAAO,GAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,EAAV;AACH,eAAE,oBAAC,CAAoB,6DAApB;AACH,eAAE,eAAC,CAAe,wCAAf;AACH,eAAE,cAAC,CAAc,2CAAd;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,gBAAC,CAAc,CAAd;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,eAAC,CAAe,yCAAf;AACH,eAAE,0BAAC,CAA0B,YAA1B;AACH,eAAE,mBAAC,CAAmB,gDAAnB;AACH,eAAE,yBAAC,CAAyB,yDAAzB;AACH,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,yCAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,EAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,yCAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,GAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,gBAAC,CAAc,CAAd;AACf,2BAAc,oBAAC,CAAoB,uBAApB;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,iBAAC,CAAiB,sBAAjB;AACf,2BAAc,YAAC,CAAY,YAAZ;AACf,2BAAc,gBAAC,CAAgB,sBAAhB;AACf,uBAAQ,CAAC,oBAAgB,KAAM,aAAc,wBAArC;AACR,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,GAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,qBAAQ,SAAC,CAAS,EAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,WAAC,CAAW,QAAX;AACT,qBAAQ,gBAAC,CAAc,CAAd;AACT,qBAAQ,oBAAC,CAAoB,mCAApB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,cAAC,CAAc,wCAAd;AACT,qBAAQ,gBAAC,CAAgB,sBAAhB;AACT,uBAAQ,CAAC,cAAU,KAAM,UAAW,eAA5B;AACR,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,QAAC,CAAQ,CAAR;AACR,oBAAO,OAAC,CAAO,GAAP;AACR,oBAAO,SAAC,CAAS,EAAT;AACR,oBAAO,UAAC,CAAU,EAAV;AACR,oBAAO,WAAC,CAAW,sBAAX;AACR,oBAAO,gBAAC,CAAc,CAAd;AACR,oBAAO,oBAAC,CAAoB,mCAApB;AACR,oBAAO,eAAC,CAAe,yCAAf;AACR,oBAAO,mBAAC,CAAmB,gDAAnB;AACR,oBAAO,eAAC,CAAe,wCAAf;AACR,oBAAO,iBAAC,CAAiB,sBAAjB;AACR,oBAAO,cAAC,CAAc,wCAAd;AACR,oBAAO,gBAAC,CAAgB,sBAAhB;AACR,uBAAQ,CAAC,aAAS,KAAM,UAAW,cAA3B;AACR,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,QAAC,CAAQ,CAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,sBAAS,SAAC,CAAS,GAAT;AACV,sBAAS,UAAC,CAAU,EAAV;AACV,sBAAS,oBAAC,CAAoB,6DAApB;AACV,sBAAS,eAAC,CAAe,wCAAf;AACV,sBAAS,cAAC,CAAc,2CAAd;AACV,sBAAS,eAAC,CAAe,QAAf;AACV,sBAAS,gBAAC,CAAc,CAAd;AACV,sBAAS,aAAC,CAAa,KAAb;AACV,sBAAS,eAAC,CAAe,yCAAf;AACV,sBAAS,0BAAC,CAA0B,YAA1B;AACV,sBAAS,mBAAC,CAAmB,gDAAnB;AACV,sBAAS,yBAAC,CAAyB,yDAAzB;AACV,sBAAS,YAAC,CAAY,IAAZ;AACV,sBAAS,YAAC,CAAY,CAAZ;AACV,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,QAAC,CAAQ,CAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,sBAAS,SAAC,CAAS,GAAT;AACV,sBAAS,UAAC,CAAU,EAAV;AACV,sBAAS,gBAAC,CAAc,CAAd;AACV,sBAAS,YAAC,CAAY,wCAAZ;AACV,sBAAS,oBAAC,CAAoB,uBAApB;AACV,sBAAS,eAAC,CAAe,yCAAf;AACV,sBAAS,mBAAC,CAAmB,gDAAnB;AACV,sBAAS,eAAC,CAAe,wCAAf;AACV,sBAAS,iBAAC,CAAiB,sBAAjB;AACV,sBAAS,YAAC,CAAY,WAAZ;AACV,sBAAS,gBAAC,CAAgB,sBAAhB;AACV,uBAAQ,CAAC,eAAW,KAAM,aAAc,mBAAhC;AACR,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,QAAC,CAAQ,CAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,EAAT;AACb,yBAAY,UAAC,CAAU,EAAV;AACb,yBAAY,WAAC,CAAW,WAAX;AACb,yBAAY,gBAAC,CAAc,CAAd;AACb,yBAAY,oBAAC,CAAoB,mCAApB;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,mBAAC,CAAmB,gDAAnB;AACb,yBAAY,eAAC,CAAe,wCAAf;AACb,yBAAY,iBAAC,CAAiB,sBAAjB;AACb,yBAAY,cAAC,CAAc,wCAAd;AACb,yBAAY,gBAAC,CAAgB,sBAAhB;AACb,uBAAQ,CAAC,kBAAc,KAAM,UAAW,mBAAhC;AACR,8BAAiB,mBAAmB,CAAC,IAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,QAAC,CAAQ,GAAR;AAClB,8BAAiB,OAAC,CAAO,EAAP;AAClB,8BAAiB,SAAC,CAAS,EAAT;AAClB,8BAAiB,UAAC,CAAU,EAAV;AAClB,8BAAiB,WAAC,CAAW,gBAAX;AAClB,8BAAiB,gBAAC,CAAc,CAAd;AAClB,8BAAiB,oBAAC,CAAoB,mCAApB;AAClB,8BAAiB,eAAC,CAAe,yCAAf;AAClB,8BAAiB,mBAAC,CAAmB,gDAAnB;AAClB,8BAAiB,eAAC,CAAe,wCAAf;AAClB,8BAAiB,iBAAC,CAAiB,sBAAjB;AAClB,8BAAiB,cAAC,CAAc,wCAAd;AAClB,8BAAiB,gBAAC,CAAgB,sBAAhB;AAClB,uBAAQ,CAAC,uBAAmB,KAAM,UAAW,wBAArC;AACR,iCAAoB,mBAAmB,CAAC,IAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,iBAAC,CAAiB,eAAjB;AACrB,iCAAoB,cAAC,CAAc,aAAG,oBAAjB;AACrB,iCAAoB,aAApB,GAAoC;AACpC,iCAAoB,UAApB,GAAiC;AACjC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,iCAAoB,OAAC,CAAO,GAAP;AACrB,mCAAsB,mBAAmB,CAAC,yBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,UAAtB,GAAmC;AACnC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,8CAAiC,mBAAmB,CAAC,yBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,UAAjC,GAA8C;AAC9C,8CAAiC,QAAC,CAAQ,EAAR;AAClC,oDAAuC,mBAAmB,CAAC,yBAAD;AAC1D,oDAAuC,QAAC,CAAQ,yCAAR;AACxC,oDAAuC,WAAvC,GAAqD;AACrD,oDAAuC,QAAC,CAAQ,EAAR;AACxC,sCAAyB,mBAAmB,CAAC,yBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,kDAAqC,mBAAmB,CAAC,yBAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,kDAAqC,QAAC,CAAQ,EAAR;AACtC,yCAA4B,mBAAmB,CAAC,yBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,4CAA+B,mBAAmB,CAAC,yBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,gDAAmC,mBAAmB,CAAC,yBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,gDAAmC,QAAC,CAAQ,EAAR;AACpC,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,WAAV,GAAwB;AACxB,uBAAU,iBAAC,CAAiB,SAAjB;AACX,uBAAU,cAAC,CAAc,aAAG,oBAAjB;AACX,uBAAU,iBAAC,CAAiB,CAAjB;AACX,uBAAU,QAAC,CAAQ,EAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,UAApB,GAAiC;AACjC,2CAA8B,mBAAmB,CAAC,eAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,6CAAgC,mBAAmB,CAAC,eAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,8CAAiC,mBAAmB,CAAC,eAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,GAAR;AAClC,kCAAqB,mBAAmB,CAAC,eAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,UAArB,GAAkC;AAClC,6CAAgC,mBAAmB,CAAC,eAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,CAAR;AAC1B,+CAAkC,mBAAmB,CAAC,eAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,4CAA+B,mBAAmB,CAAC,eAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,mBAAmB,CAAC,eAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,mBAAmB,CAAC,eAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,+BAAkB,mBAAmB,CAAC,eAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,uCAA0B,mBAAmB,CAAC,eAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,wCAA2B,mBAAmB,CAAC,eAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,kCAAqB,mBAAmB,CAAC,eAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,6CAAgC,mBAAmB,CAAC,eAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,uCAA0B,mBAAmB,CAAC,eAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uDAA0C,mBAAmB,CAAC,eAAD;AAC7D,uDAA0C,QAAC,CAAQ,4CAAR;AAC3C,uDAA0C,WAA1C,GAAwD;AACxD,uDAA0C,QAAC,CAAQ,EAAR;AAC3C,kDAAqC,mBAAmB,CAAC,eAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,kDAAqC,QAAC,CAAQ,EAAR;AACtC,4CAA+B,mBAAmB,CAAC,eAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,2CAA8B,mBAAmB,CAAC,eAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,UAAvB,GAAoC;AACpC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,GAAR;AAC9B,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,GAAR;AACrB,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,6BAAgB,mBAAmB,CAAC,eAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,mBAAmB,CAAC,eAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,4BAAe,mBAAmB,CAAC,eAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,GAAR;AACxB,+BAAkB,mBAAmB,CAAC,eAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,wCAA2B,mBAAmB,CAAC,eAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,mBAAmB,CAAC,eAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,4BAAe,mBAAmB,CAAC,eAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,uCAA0B,mBAAmB,CAAC,eAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,8CAAiC,mBAAmB,CAAC,eAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,gCAAmB,mBAAmB,CAAC,eAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,6CAAgC,mBAAmB,CAAC,eAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,GAAR;AACjC,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,GAAR;AACxB,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,GAAR;AACxB,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,GAAR;AACxB,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,GAAR;AACxB,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,GAAR;AACxB,uCAA0B,mBAAmB,CAAC,eAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,0BAAa,mBAAmB,CAAC,eAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,QAAC,CAAQ,EAAR;AACd,gCAAmB,mBAAmB,CAAC,eAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,kCAAqB,mBAAmB,CAAC,eAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,uCAA0B,mBAAmB,CAAC,eAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,2CAA8B,mBAAmB,CAAC,eAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,uCAA0B,mBAAmB,CAAC,eAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,4BAAe,mBAAmB,CAAC,eAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,+BAAkB,mBAAmB,CAAC,eAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,mBAAmB,CAAC,eAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,6CAAgC,mBAAmB,CAAC,eAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,uCAA0B,mBAAmB,CAAC,eAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,CAAR;AACxB,gCAAmB,mBAAmB,CAAC,eAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,2CAA8B,mBAAmB,CAAC,eAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,mBAAmB,CAAC,eAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,wCAA2B,mBAAmB,CAAC,eAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,6CAAgC,mBAAmB,CAAC,eAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,6BAAgB,mBAAmB,CAAC,eAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,6CAAgC,mBAAmB,CAAC,eAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,iDAAoC,mBAAmB,CAAC,eAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,uCAA0B,mBAAmB,CAAC,eAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,gCAAmB,mBAAmB,CAAC,eAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,uCAA0B,mBAAmB,CAAC,eAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,wCAA2B,mBAAmB,CAAC,eAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,8CAAiC,mBAAmB,CAAC,eAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,GAAR;AAClC,kDAAqC,mBAAmB,CAAC,eAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,kDAAqC,QAAC,CAAQ,GAAR;AACtC,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,2BAAc,mBAAmB,CAAC,eAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,kCAAqB,mBAAmB,CAAC,eAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,2BAAc,mBAAmB,CAAC,eAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,uCAA0B,mBAAmB,CAAC,eAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,GAAR;AAC3B,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,GAAR;AACxB,+BAAkB,mBAAmB,CAAC,eAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,mBAAmB,CAAC,eAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,yCAA4B,mBAAmB,CAAC,eAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,2CAA8B,mBAAmB,CAAC,eAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,mBAAmB,CAAC,eAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,6BAAgB,mBAAmB,CAAC,eAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,kCAAqB,mBAAmB,CAAC,eAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,2CAA8B,mBAAmB,CAAC,eAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,+BAAkB,mBAAmB,CAAC,eAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,0BAAa,mBAAmB,CAAC,eAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,iDAAoC,mBAAmB,CAAC,eAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,QAAC,CAAQ,GAAR;AACrC,8CAAiC,mBAAmB,CAAC,eAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,EAAR;AAClC,6BAAgB,mBAAmB,CAAC,eAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,CAAR;AACjB,kCAAqB,mBAAmB,CAAC,eAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,2BAAc,mBAAmB,CAAC,eAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,cAAC,CAAc,aAAG,oBAAjB;AACR,oBAAO,QAAC,CAAQ,GAAR;AACR,oBAAO,OAAC,CAAO,EAAP;AA7vBV;AA+vBE,wBAAW;AACX,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,eAAE;AACF,uBAAU;AACV,uBAAU;AACV,2BAAc;AACd,qBAAQ;AACR,oBAAO;AACP,sBAAS;AACT,sBAAS;AACT,yBAAY;AACZ,8BAAiB;AACjB,iCAAoB;AACpB,mCAAsB;AACtB,8CAAiC;AACjC,oDAAuC;AACvC,sCAAyB;AACzB,kDAAqC;AACrC,yCAA4B;AAC5B,4CAA+B;AAC/B,gDAAmC;AACnC,uBAAU;AACV,iCAAoB;AACpB,2CAA8B;AAC9B,6CAAgC;AAChC,8CAAiC;AACjC,kCAAqB;AACrB,6CAAgC;AAChC,sCAAyB;AACzB,+CAAkC;AAClC,4CAA+B;AAC/B,4CAA+B;AAC/B,4CAA+B;AAC/B,+BAAkB;AAClB,uCAA0B;AAC1B,wCAA2B;AAC3B,0CAA6B;AAC7B,kCAAqB;AACrB,6CAAgC;AAChC,sCAAyB;AACzB,uCAA0B;AAC1B,uDAA0C;AAC1C,kDAAqC;AACrC,4CAA+B;AAC/B,2CAA8B;AAC9B,oCAAuB;AACvB,0CAA6B;AAC7B,0CAA6B;AAC7B,oCAAuB;AACvB,qCAAwB;AACxB,iCAAoB;AACpB,8BAAiB;AACjB,6BAAgB;AAChB,6BAAgB;AAChB,4BAAe;AACf,oCAAuB;AACvB,+BAAkB;AAClB,oCAAuB;AACvB,mCAAsB;AACtB,sCAAyB;AACzB,mCAAsB;AACtB,wCAA2B;AAC3B,wCAA2B;AAC3B,8BAAiB;AACjB,mCAAsB;AACtB,4BAAe;AACf,mCAAsB;AACtB,qCAAwB;AACxB,uCAA0B;AAC1B,mCAAsB;AACtB,mCAAsB;AACtB,mCAAsB;AACtB,mCAAsB;AACtB,mCAAsB;AACtB,8CAAiC;AACjC,oCAAuB;AACvB,gCAAmB;AACnB,mCAAsB;AACtB,iCAAoB;AACpB,iCAAoB;AACpB,6CAAgC;AAChC,oCAAuB;AACvB,oCAAuB;AACvB,oCAAuB;AACvB,oCAAuB;AACvB,oCAAuB;AACvB,uCAA0B;AAC1B,0BAAa;AACb,gCAAmB;AACnB,mCAAsB;AACtB,mCAAsB;AACtB,kCAAqB;AACrB,qCAAwB;AACxB,uCAA0B;AAC1B,mCAAsB;AACtB,sCAAyB;AACzB,2CAA8B;AAC9B,uCAA0B;AAC1B,4BAAe;AACf,+BAAkB;AAClB,+BAAkB;AAClB,6CAAgC;AAChC,sCAAyB;AACzB,0CAA6B;AAC7B,iCAAoB;AACpB,qCAAwB;AACxB,uCAA0B;AAC1B,qCAAwB;AACxB,oCAAuB;AACvB,gCAAmB;AACnB,2CAA8B;AAC9B,2CAA8B;AAC9B,0CAA6B;AAC7B,oCAAuB;AACvB,sCAAyB;AACzB,wCAA2B;AAC3B,qCAAwB;AACxB,6CAAgC;AAChC,8BAAiB;AACjB,iCAAoB;AACpB,iCAAoB;AACpB,6BAAgB;AAChB,iCAAoB;AACpB,8BAAiB;AACjB,6CAAgC;AAChC,iDAAoC;AACpC,qCAAwB;AACxB,oCAAuB;AACvB,uCAA0B;AAC1B,0CAA6B;AAC7B,gCAAmB;AACnB,uCAA0B;AAC1B,wCAA2B;AAC3B,8CAAiC;AACjC,kDAAqC;AACrC,qCAAwB;AACxB,oCAAuB;AACvB,iCAAoB;AACpB,iCAAoB;AACpB,iCAAoB;AACpB,2BAAc;AACd,kCAAqB;AACrB,2BAAc;AACd,uCAA0B;AAC1B,iCAAoB;AACpB,oCAAuB;AACvB,oCAAuB;AACvB,+BAAkB;AAClB,mCAAsB;AACtB,oCAAuB;AACvB,oCAAuB;AACvB,sCAAyB;AACzB,sCAAyB;AACzB,yCAA4B;AAC5B,2CAA8B;AAC9B,2CAA8B;AAC9B,6BAAgB;AAChB,kCAAqB;AACrB,2CAA8B;AAC9B,+BAAkB;AAClB,0BAAa;AACb,iDAAoC;AACpC,8CAAiC;AACjC,6BAAgB;AAChB,kCAAqB;AACrB,2BAAc;AACd,oCAAuB;AACvB,oBAAO;AAz6BT;AA3VwC;AAjctB;;;AAChB,6BlLu7BY,8CkLv7BZ;AACA,6BlLs7BY,8CkLt7BZ;AACA,6BlLq7BY,8CkLr7BZ;AACA,6BnLskBK,uCmLtkBL;AACA,8BnLmGI,sCmLnGJ;AACA,uC3IDc,kD2ICd;AACA,yCjK6ZU,4BiK7ZV;AACA,oDjK4ZU,4BiK5ZV;AACA,0DjK2ZU,4BiK3ZV;AACA,4CjKqiBS,2BiKriBT;AACA,wDjKyZU,4BiKzZV;AACA,+CjK+lBY,8BiK/lBZ;AACA,kDjKuZU,4BiKvZV;AACA,sDjKsZU,4BiKtZV;AACA,qBrIy6BW,0CqIz6BX;AACA,6BlLw6BY,8CkLx6BZ;AACA,6BlLu6BY,8CkLv6BZ;AACA,iCnL4QG,qCmL5QH;AACA,2BnLujBK,uCmLvjBL;AACA,0BnLsjBK,uCmLtjBL;AACA,6B3IhBc,kD2IgBd;AACA,4BrIk6BW,0CqIl6BX;AACA,uC7JfkB,0D6JelB;AACA,iDjK4YU,4BiK5YV;AACA,mDjK2YU,4BiK3YV;AACA,oDjK0YU,4BiK1YV;AACA,wC7JnBkB,0D6JmBlB;AACA,mDjKwYU,4BiKxYV;AACA,4CjKuYU,4BiKvYV;AACA,qDjKojBW,6BiKpjBX;AACA,kDjKmjBW,6BiKnjBX;AACA,kDjKkjBW,6BiKljBX;AACA,kDjK8gBS,2BiK9gBT;AACA,qC7J1BkB,0D6J0BlB;AACA,6CjKiYU,4BiKjYV;AACA,8CjK2gBS,2BiK3gBT;AACA,gDjK0gBS,2BiK1gBT;AACA,wC7J9BkB,0D6J8BlB;AACA,mDjK6XU,4BiK7XV;AACA,4CjKobW,6BiKpbX;AACA,6C7JjCkB,0D6JiClB;AACA,6DjK0XU,4BiK1XV;AACA,wDjKyXU,4BiKzXV;AACA,kDjKgbW,6BiKhbX;AACA,iDjK+aW,6BiK/aX;AACA,0CjKsXU,4BiKtXV;AACA,gDjKqXU,4BiKrXV;AACA,gDjKoXU,4BiKpXV;AACA,0CjK8fS,2BiK9fT;AACA,2CjK6fS,2BiK7fT;AACA,uCjKiXU,4BiKjXV;AACA,oCjK2fS,2BiK3fT;AACA,mCjK0fS,2BiK1fT;AACA,mCjKyfS,2BiKzfT;AACA,kCjKwfS,2BiKxfT;AACA,0CjK4WU,4BiK5WV;AACA,qCjK2WU,4BiK3WV;AACA,0CjKkaW,6BiKlaX;AACA,yCjKofS,2BiKpfT;AACA,4CjKmfS,2BiKnfT;AACA,yCjKkfS,2BiKlfT;AACA,8CjKifS,2BiKjfT;AACA,8CjKgfS,2BiKhfT;AACA,oCjK+eS,2BiK/eT;AACA,yCjK8eS,2BiK9eT;AACA,kCjK6eS,2BiK7eT;AACA,yCjK4eS,2BiK5eT;AACA,2CjKgWU,4BiKhWV;AACA,6CjK+VU,4BiK/VV;AACA,yCjKyeS,2BiKzeT;AACA,yCjKweS,2BiKxeT;AACA,yCjKueS,2BiKveT;AACA,yCjKseS,2BiKteT;AACA,yCjKqeS,2BiKreT;AACA,oDjKugBW,6BiKvgBX;AACA,0CjKmeS,2BiKneT;AACA,sCjKkeS,2BiKleT;AACA,yCjKogBW,6BiKpgBX;AACA,uCjKqVU,4BiKrVV;AACA,uCjKoVU,4BiKpVV;AACA,mDjKmVU,4BiKnVV;AACA,0CjKkVU,4BiKlVV;AACA,0CjKiVU,4BiKjVV;AACA,0CjKgVU,4BiKhVV;AACA,0CjK+UU,4BiK/UV;AACA,0CjK8UU,4BiK9UV;AACA,6CjKohBY,8BiKphBZ;AACA,gCjK4UU,4BiK5UV;AACA,sCjKsdS,2BiKtdT;AACA,yCjK0UU,4BiK1UV;AACA,yCjKodS,2BiKpdT;AACA,wCjKmdS,2BiKndT;AACA,2CjKuUU,4BiKvUV;AACA,6CjKidS,2BiKjdT;AACA,yCjKqUU,4BiKrUV;AACA,4CjKkfW,6BiKlfX;AACA,iDjKmUU,4BiKnUV;AACA,6CjK6cS,2BiK7cT;AACA,kCjKyXW,6BiKzXX;AACA,qCjK8eW,6BiK9eX;AACA,qCjK6eW,6BiK7eX;AACA,mDjK8TU,4BiK9TV;AACA,4CjK6TU,4BiK7TV;AACA,gDjKucS,2BiKvcT;AACA,uCjKyeW,6BiKzeX;AACA,2CjKqcS,2BiKrcT;AACA,6CjKyTU,4BiKzTV;AACA,2CjKseW,6BiKteX;AACA,0CjKuTU,4BiKvTV;AACA,sCjKsTU,4BiKtTV;AACA,iDjKgcS,2BiKhcT;AACA,iDjK+bS,2BiK/bT;AACA,gDjKieW,6BiKjeX;AACA,0CjK6bS,2BiK7bT;AACA,4CjK4bS,2BiK5bT;AACA,8CjK2bS,2BiK3bT;AACA,2CjK0bS,2BiK1bT;AACA,mDjKybS,2BiKzbT;AACA,oCjKqWW,6BiKrWX;AACA,uCjK0dW,6BiK1dX;AACA,uCjKydW,6BiKzdX;AACA,mCjKwdW,6BiKxdX;AACA,uCjKobS,2BiKpbT;AACA,oCjKmbS,2BiKnbT;AACA,mDjKqdW,6BiKrdX;AACA,uDjKodW,6BiKpdX;AACA,2CjKgbS,2BiKhbT;AACA,0CjK+aS,2BiK/aT;AACA,6CjKmSU,4BiKnSV;AACA,gDjK6aS,2BiK7aT;AACA,sCjK4aS,2BiK5aT;AACA,6CjKueY,8BiKveZ;AACA,8CjKuVW,6BiKvVX;AACA,oDjK8RU,4BiK9RV;AACA,wDjK6RU,4BiK7RV;AACA,2CjK4RU,4BiK5RV;AACA,0CjK2RU,4BiK3RV;AACA,uCjKqaS,2BiKraT;AACA,uCjKoaS,2BiKpaT;AACA,uCjKmaS,2BiKnaT;AACA,iCjKuRU,4BiKvRV;AACA,wCjK8UW,6BiK9UX;AACA,iCjK6UW,6BiK7UX;AACA,6CjKoRU,4BiKpRV;AACA,uCjK0dY,8BiK1dZ;AACA,0CjKkRU,4BiKlRV;AACA,0CjKiRU,4BiKjRV;AACA,qCjK2ZS,2BiK3ZT;AACA,yCjKuUW,6BiKvUX;AACA,0CjKsUW,6BiKtUX;AACA,0CjKwZS,2BiKxZT;AACA,4CjKuZS,2BiKvZT;AACA,4CjKsZS,2BiKtZT;AACA,+CjKqZS,2BiKrZT;AACA,iDjKoZS,2BiKpZT;AACA,iDjKmZS,2BiKnZT;AACA,mCjK+TW,6BiK/TX;AACA,wCjK6cY,8BiK7cZ;AACA,iDjKqQU,4BiKrQV;AACA,qCjKkbW,6BiKlbX;AACA,gCjK8YS,2BiK9YT;AACA,uDjKkQU,4BiKlQV;AACA,oDjKiQU,4BiKjQV;AACA,mCjKgQU,4BiKhQV;AACA,wCjK6aW,6BiK7aX;AACA,iCjKsTW,6BiKtTX;AACA,0CjK6PU,4BiK7PV;AACA,4BnLsHG,qCmLtHH;AACA,+BnLiaK,uCmLjaL;AACA,0B7IpFa,gD6IoFb;AACA,oCnL+ZK,uCmL/ZL;AACqB,kCAAO,UhNzDvB,2BgNyDuB,CAAP;AACkB,oDAAQ,WjKi6BzC,wBiKj6ByC,CAAR;AACd,sCAAO,UhN3D3B,2BgN2D2B,CAAP;AACF,oCAAO,UhN5DzB,2BgN4DyB,CAAP;AACM,0CAAQ,WjK85B/B,wBiK95B+B,CAAR;AACG,6CAAO,UhN9DlC,2BgN8DkC,EAAkB,kBAAzB;AACV,mCAAO,UhN/DxB,2BgN+DwB,CAAP;AACK,wCAAO,UhNhE7B,2BgNgE6B,EAAkB,kBAAzB;AACA,wCAAO,UhNjE7B,2BgNiE6B,CAAP;AACK,6CAAO,UhNlElC,2BgNkEkC,CAAP;AArLhB;AA6LlB;AAxMF,GA0Mc,mCA1Md;ACAA,gCAES,0VAFT;;;AAYkB;;;AACd;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAOA;AACA;AACA;AAxBc;;;;;;;;;;;;;;;;;;;;AAwIoB;AAEpC;AAEA,qBAAU,MAAK,WAAC,CAAM,4EAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAW,eAAU,iBAAC;AACtB,sBAAW,WAAC,CAAS,aAAT;AACZ,sBAAW,iBAAC,CAAe,SAAf;AACZ,yBAAc,iBAAC,CAAe,SAAf;AACf,aAAE,WAAC,CAAS,KAAT;AACH,2BAAe;AACf,yBAAc;AAfsB;AAvDK;AAEzC;AACA;AAEA,kBAAW,eAAU,iBAAC;AACtB,aAAE,iBAAC,CAAe,SAAf;AACH,UAAG;AACH,aAAE,WAAC,CAAS,IAAT;AACH,aAAE,YAAC,CAAU,CAAV;AACH,aAAE,YAAC,CAAU,OAAO,eAAC,EAAW,GAAC,CAA9B;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,iBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,kBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,eAAP;AACR,aAAO;AACP,UAAG,OAAO,eAAC,EAAW,KAAC,CAAvB,EAA8B,gBAAW,WAAC,CAAS,iBAAT,CAA1C;AACA,UAAG,OAAO,eAAC,EAAW,GAAC,CAAvB,EAA8B,gBAAW,WAAC,CAAS,sBAAsB,GAAC,qBAAQ,CAAC,OAAO,eAAC,EAAT,CAAxC,CAA1C;AACA,UAAG,OAAO,eAAC,EAAW,GAAC,EAAvB,EAA+B,gBAAW,WAAC,CAAS,gCAAT,CAA3C;AAEA,aAAM,CAAI,OAAO,OAAC,EAAlB;AAEM,SAAJ,IAAG;AACH,oBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,iBAAS,UAAT,GAAqB;AACrB,kCAAoB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,+BAAkB,oBAAC,CAAkB,qBAAlB;AACnB,+BAAkB,eAAC,CAAa,wCAAb;AACnB,+BAAkB,SAAC,CAAO,GAAP;AACnB,+BAAkB,OAAlB,GAAwB;AACxB,+BAAkB,WAAC,CAAS,wBAAmB,YAAC,EAA7B;AACnB,+BAAkB,SAAlB,GAA6B;AAC7B,+BAAkB,iBAAC,CAAe,SAAf;AACnB,eAAE,SAAM,CAAC,EAAE,EAAI,yBAAoB,YAAC,EAA5B;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,sBAAiB,YAAC,EAAzB;AACR,eAAO;;AAlCgC;AA7CD;AAExC,UAAI;AAFoC;AAsFK;AAE7C;AAEA,wBAAiB,mBAAc,QAAC;AAChC,UAAU,eAAD,OAAiB,GAAC,CAA3B;AAEA,oBAAO;AACP,oBAAO,aAAP,GAAqB,mCAAwD,GAAnB,mBAAc,QAAC,EAAhB,GAAqB,IAAD;AAC7E,oBAAO;OAJP;AAL6C;AAjFG;;AAEhD;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,qCAAH;AACd,aAAK,eAAL,GAAsB;AALH;AAQG;AAEtB,kCAAoB,CAAC,IAAD;AAFE;AAO1B,2BAAuB,OAAP,OAAU,8BAAH,CAAW;AAClC,UAAU,kBAAD,OAAe,GAAC,CAAzB;AAEE,yCAAW,CAAC,oCAAD;;AAIX,YAAG,0BAAH;AAEE,yBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,iBAAM,qCAAc,QAAC,eAAS,aAAT;AACrB,cAAI,YAAU;;AAId,eAAI;;;AAjCwC;AAiHV;AAE5B;AAEV,yBAAe,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,4BAAkB,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,qBAAW,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,yBAAe,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,4BAAkB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,oBAAU,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAEtB,sBAAW;AACX,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,aAAE;AACF,qBAAU;AACV,yBAAc;AACd,kBAAO;AACP,+BAAoB;AACpB,8BAAmB;AACnB,sBAAW;AACX,4BAAiB;AACjB,4BAAiB;AACjB,yBAAc;AACd,iBAAM;AACN;AACE,qBAAQ,iBAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,GAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,EAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,WAAC,CAAW,aAAX;AACZ,wBAAW,oBAAC,CAAoB,QAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,cAAC,CAAc,2CAAd;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,yCAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,YAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,QAAC,CAAQ,CAAR;AACH,eAAE,OAAC,CAAO,GAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,EAAV;AACH,eAAE,oBAAC,CAAoB,gDAApB;AACH,eAAE,eAAC,CAAe,wCAAf;AACH,eAAE,cAAC,CAAc,2CAAd;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,gBAAC,CAAc,CAAd;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,eAAC,CAAe,yCAAf;AACH,eAAE,0BAAC,CAA0B,YAA1B;AACH,eAAE,mBAAC,CAAmB,gDAAnB;AACH,eAAE,yBAAC,CAAyB,gDAAzB;AACH,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,CAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,gBAAC,CAAc,CAAd;AACf,2BAAc,oBAAC,CAAoB,2BAApB;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,iBAAC,CAAiB,sBAAjB;AACf,2BAAc,YAAC,CAAY,IAAZ;AACf,2BAAc,YAAC,CAAY,sBAAZ;AACf,2BAAc,gBAAC,CAAgB,qBAAhB;AACf,uBAAQ,CAAC,oBAAgB,KAAM,WAAY,sBAAnC;AACR,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,WAAP,GAAqB;AACrB,oBAAO,iBAAC,CAAiB,gBAAjB;AACR,oBAAO,cAAC,CAAc,aAAG,oBAAjB;AACR,oBAAO,UAAP,GAAoB;AACpB,oBAAO,QAAC,CAAQ,CAAR;AACR,oBAAO,OAAC,CAAO,EAAP;AACR,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,UAApB,GAAiC;AACjC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,wBAAW,mBAAmB,CAAC,YAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,wBAAW,QAAC,CAAQ,EAAR;AACZ,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,GAAR;AAClB,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,mBAAM,mBAAmB,CAAC,IAAD;AACzB,mBAAM,QAAC,CAAQ,QAAR;AACP,mBAAM,WAAC,CAAW,YAAX;AACP,mBAAM,QAAC,CAAQ,EAAR;AACP,mBAAM,OAAC,CAAO,EAAP;AA9IT;AAgJE,wBAAW;AACX,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,eAAE;AACF,uBAAU;AACV,2BAAc;AACd,oBAAO;AACP,iCAAoB;AACpB,gCAAmB;AACnB,wBAAW;AACX,8BAAiB;AACjB,8BAAiB;AACjB,2BAAc;AACd,mBAAM;AA9JR;AAnCsC;AA1JtB;;;AACd,0B5IGc,kD4IHd;AACA,yBlKkjDS,2BkKljDT;AACA,6BnLo7BY,8CmLp7BZ;AACA,6BnLm7BY,8CmLn7BZ;AACA,6BnLk7BY,8CmLl7BZ;AACA,qBtIi7BW,0CsIj7BX;AACA,6BpLkkBK,uCoLlkBL;AACA,iCpLqRG,qCoLrRH;AACA,8BpL8FI,sCoL9FJ;AACA,uClKyZU,4BkKzZV;AACA,sClKwZU,4BkKxZV;AACA,8BlKuZU,4BkKvZV;AACA,oClKsZU,4BkKtZV;AACA,oClKqZU,4BkKrZV;AACA,iClKkkBW,6BkKlkBX;AACqB,kCAAO,UjNkGvB,2BiNlGuB,CAAP;AACK,uCAAQ,WlK4jC5B,wBkK5jC4B,CAAR;AACD,sCAAO,UjNgG3B,2BiNhG2B,CAAP;AACK,2CAAO,UjN+FhC,2BiN/FgC,CAAP;AAnBhB;AA6BhB;AAzCF,GA2Cc,qCA3Cd;ACAA,oCAES,+OAFT;;;AAUmB;;;AACf;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAcA;AACA;AArCe;;;;;;;;;;;;;;;;;;;;;;;;;;AA0EoB;AAErC,UAAG,qBAAgB,KAAE,EAArB;AAEE,0BAAa;AACb,0BAAa,aAAb,GAA2B,+FAA+F,GAAC,sBAAS,CAAC,sB9MgMnF,G8MhMkF,CAAV;AAC1H,0BAAa;OAJf;AAFqC;AAkBW;AAEhD;AACA;AAEA,UAAG;AACH,aAAE,YAAC,CAAU,CAAV;AACH,aAAE,YAAC,CAAU,EAAV;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,kCAAP;AACR,UAAG,kBAAa,KAAC,CAAjB,EAAwB,OAAE,SAAM,CAAC,EAAE,EAAI,kCAAP,CAAhC;AAGI,OAAJ,IAAG;AACH,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,qBAAU,iBAAC,CAAe,SAAf;AACP,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,cAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,2BAAc,CAAC,sBAAsB,iCAA4B,cAAC,EAApD,CAArB;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,gBAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAA8C,GAAvC,mCAA8B,YAAC,EAAhC,GAAyC,OAAtD;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,cAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,MAAuE,GAAhE,uBAAU,CAAC,iCAA4B,YAAC,GAAS,IAAG,GAAC,IAAD,CAAK,MAA/C,CAAX,GAAkE,OAA/E;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,YAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,wCAAmC,YAAC,EAA+H,GAAtH,IAAD,GAAM,uCAAkC,YAAC,EAApC,GAA6C,IAAD,GAAM,4DAAuD,YAAC,EAAzD,GAAkE,GAA3K;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,WAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,4BAAuB,YAAC,EAAuG,GAA9F,IAAD,GAAM,2BAAsB,YAAC,EAAxB,GAAiC,IAAD,GAAM,gDAA2C,YAAC,EAA7C,GAAsD,GAAvI;AAEJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,gBAAP;AACR,UAAG,CAAI,8BAAyB,UAAC,EAAjC;AAEE,eAAE,SAAM,CAAC,EAAE,EAAI,2BAAc,CAAC,sBAAsB,8BAAyB,cAAC,EAAjD,CAArB;;AAIR,YAAG,kBAAa,KAAC,CAAjB;AAEE,iBAAE,SAAM,CAAC,EAAE,EAAI,oBAAP;;AAIR,sBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,yBAAU,iBAAC,CAAe,SAAf;;;AAIX,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,iBAAP;AACR,UAAG,CAAI,+BAA0B,UAAC,EAAlC;AAEE,eAAE,SAAM,CAAC,EAAE,EAAI,2BAAc,CAAC,sBAAsB,+BAA0B,cAAC,EAAlD,CAArB;;AAIR,YAAG,kBAAa,KAAC,CAAjB;AAEE,iBAAE,SAAM,CAAC,EAAE,EAAI,qBAAP;;AAIR,sBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,0BAAW,iBAAC,CAAe,SAAf;;;AAjEgC;AArCP;AAEzC,wBAAa;AACb,oCAAyB,cAAC,CAAY,mBAAI,GAAC,mBAAjB;AAC1B,wBAAa;AAJ4B;AAaH;AAGxC,iBAAQ,uCAAR;AAHwC;AArBI;AAE1C,wBAAa;AACb,UAAG,8BAAyB,UAAC,EAA7B,EAAyC,8BAAyB,cAAC,CAAY,mBAAI,GAAC,mBAAjB,CAAnE;AACA,qCAA0B,cAAC,CAAY,mBAAI,GAAC,mBAAjB;AAC3B,wBAAa;AAL6B;AAoHM;AAEhD,UAAG,kBAAH;AAEE,0BAAa;;AAIb,yCAAW,CAAC,iGAAD;;AARmC;AA/EQ;AAGxD,UAAG,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAM,KAAE,EAA1B,EAAkC,iCAAW,CAAC,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAhB,CAA7C;AACA,wBAAa;AACb,wBAAa;AAL2C;AAtBf;AAEzC,wBAAa;AACb,UAAI;AAHqC;AAiHF;AAE7B;AAEV,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,yBAAe,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,2BAAiB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,qCAA2B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,uDAA6C,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClE,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,0CAAgC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,iDAAuC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,2CAAiC,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,yDAA+C,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7D,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,uCAA6B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,wCAA8B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,qEAA2D,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzE,8BAAoB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAEhC,aAAE;AACF,qBAAU;AACV,sBAAW;AACX,qBAAU;AACV,wBAAa;AACb,kCAAuB;AACvB,oDAAyC;AACzC,oCAAyB;AACzB,uCAA4B;AAC5B,8CAAmC;AACnC,6CAAkC;AAClC,yCAA8B;AAC9B,uCAA4B;AAC5B,wCAA6B;AAC7B,sDAA2C;AAC3C,qCAA0B;AAC1B,kCAAuB;AACvB,iCAAsB;AACtB,oCAAyB;AACzB,qCAA0B;AAC1B,kEAAuD;AACvD,2BAAgB;AAChB;AACE,qBAAQ,kBAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,UAAW,cAAlB;AACR,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,oBAAC,CAAoB,IAApB;AACH,eAAE,QAAC,CAAQ,CAAR;AACH,eAAE,OAAC,CAAO,CAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,GAAV;AACH,eAAE,oBAAC,CAAoB,gDAApB;AACH,eAAE,SAAC,CAAS,sCAAT;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,gBAAC,CAAc,CAAd;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,eAAC,CAAe,yCAAf;AACH,eAAE,0BAAC,CAA0B,YAA1B;AACH,eAAE,yBAAC,CAAyB,gDAAzB;AACH,eAAE,SAAQ,kBAAC,CAAkB,IAAlB;AACX,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,EAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,gBAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,4BAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,EAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,EAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,WAAC,CAAW,iBAAX;AACZ,wBAAW,gBAAC,CAAc,CAAd;AACZ,wBAAW,oBAAC,CAAoB,4BAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,cAAC,CAAc,wCAAd;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,uBAAQ,CAAC,iBAAa,KAAM,UAAW,kBAA/B;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,EAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,4BAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,mBAAb,GAAmC;AACnC,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,iBAAC,CAAiB,aAAjB;AACd,0BAAa,cAAC,CAAc,aAAG,oBAAjB;AACd,0BAAa,iBAAC,CAAiB,CAAjB;AACd,0BAAa,aAAb,GAA6B;AAC7B,0BAAa,UAAb,GAA0B;AAC1B,0BAAa,QAAC,CAAQ,EAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,oCAAuB,mBAAmB,CAAC,kBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,sDAAyC,mBAAmB,CAAC,kBAAD;AAC5D,sDAAyC,QAAC,CAAQ,2CAAR;AAC1C,sDAAyC,WAAzC,GAAuD;AACvD,sCAAyB,mBAAmB,CAAC,kBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,yCAA4B,mBAAmB,CAAC,kBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,gDAAmC,mBAAmB,CAAC,kBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,gDAAmC,QAAC,CAAQ,EAAR;AACpC,+CAAkC,mBAAmB,CAAC,kBAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,EAAR;AACnC,2CAA8B,mBAAmB,CAAC,kBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,GAAR;AAC/B,yCAA4B,mBAAmB,CAAC,kBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,GAAR;AAC7B,0CAA6B,mBAAmB,CAAC,kBAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,wDAA2C,mBAAmB,CAAC,kBAAD;AAC9D,wDAA2C,QAAC,CAAQ,6CAAR;AAC5C,wDAA2C,WAA3C,GAAyD;AACzD,uCAA0B,mBAAmB,CAAC,kBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,UAA1B,GAAuC;AACvC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,oCAAuB,mBAAmB,CAAC,kBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,mCAAsB,mBAAmB,CAAC,kBAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,sCAAyB,mBAAmB,CAAC,kBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,uCAA0B,mBAAmB,CAAC,kBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,oEAAuD,mBAAmB,CAAC,kBAAD;AAC1E,oEAAuD,QAAC,CAAQ,yDAAR;AACxD,oEAAuD,WAAvD,GAAqE;AACrE,6BAAgB,mBAAmB,CAAC,IAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAC,CAAW,kBAAX;AACjB,6BAAgB,QAAC,CAAQ,EAAR;AACjB,6BAAgB,OAAC,CAAO,GAAP;AAnJnB;AAqJE,eAAE;AACF,uBAAU;AACV,wBAAW;AACX,uBAAU;AACV,0BAAa;AACb,oCAAuB;AACvB,sDAAyC;AACzC,sCAAyB;AACzB,yCAA4B;AAC5B,gDAAmC;AACnC,+CAAkC;AAClC,2CAA8B;AAC9B,yCAA4B;AAC5B,0CAA6B;AAC7B,wDAA2C;AAC3C,uCAA0B;AAC1B,oCAAuB;AACvB,mCAAsB;AACtB,sCAAyB;AACzB,uCAA0B;AAC1B,oEAAuD;AACvD,6BAAgB;AA1KlB;AAjDuC;AA/KtB;;;AACf,qBvIw7BW,0CuIx7BX;AACA,gC7IIc,kD6IJd;AACA,mCnKmjDS,2BmKnjDT;AACA,0C/JKkB,0D+JLlB;AACA,4D/JIkB,0D+JJlB;AACA,4CnK+ZU,4BmK/ZV;AACA,+CnKqmBY,8BmKrmBZ;AACA,sDnK6ZU,4BmK7ZV;AACA,qDnK4ZU,4BmK5ZV;AACA,iDnK2ZU,4BmK3ZV;AACA,+CnK0ZU,4BmK1ZV;AACA,gD/JHkB,0D+JGlB;AACA,8DnKgdW,6BmKhdX;AACA,6CnKuZU,4BmKvZV;AACA,0CnKsZU,4BmKtZV;AACA,yCnKqZU,4BmKrZV;AACA,4CnK2lBY,8BmK3lBZ;AACA,6CnK0lBY,8BmK1lBZ;AACA,0EnK0cW,6BmK1cX;AACA,6BrLujBK,uCqLvjBL;AACA,8BrLsjBK,uCqLtjBL;AACA,6BrLqjBK,uCqLrjBL;AACqB,kCAAO,UlN6FvB,2BkN7FuB,CAAP;AACW,6CAAQ,WnKujClC,wBmKvjCkC,CAAR;AACP,sCAAO,UlN2F3B,2BkN3F2B,CAAP;AACH,mCAAO,UlN0FxB,2BkN1FwB,EAAqB,UtLoCxC,0CsLpCwC,EAA5B;AACI,uCAAO,UlNyF5B,2BkNzF4B,CAAP;AACM,6CAAQ,WnKmjClC,wBmKnjCkC,CAAR;AACQ,qDAAO,UnKkjCzC,wBmKljCyC,EACzC,QnKsiCO,+BmKtiCP,CADkC;AAEf,sCAAO,UlNqF3B,2BkNrF2B,CAAP;AA/BV;AAyCjB;AAnDF,GAqDc,oCArDd;ACAA,kCAES,uQAFT;;;AAWiB;;;AACb;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAXa;;;;;;;;;;;;;;;AAiIoB;AAEnC,qBAAU;AAFyB;AAlDQ;AAE3C;AACA;AAEA,UAAG;AACH,aAAE,YAAC,CAAU,CAAV;AACH,aAAE,YAAC,CAAU,EAAV;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,qBAAP;AAGJ,OAAJ,IAAG;AACH,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,qBAAU,iBAAC,CAAe,SAAf;AACP,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,qBAAP;AACJ,OAAJ,IAAG;AACH,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,2BAAgB,iBAAC,CAAe,SAAf;AAEjB,qBAAU;AACV,aAAM,CAAI,eAAU,OAAC,EAArB;AAEE,YAAG,6BAAwB,YAAC,EAAQ,KAAE,gCAAtC;AAEE,+BAAgB,OAAM,IAAI,CAAC,6BAAwB,YAAC,EAAiD,GAAxC,KAAD,GAAO,uBAAkB,YAAC,EAApB,GAA8B,KAAD,GAAO,sBAAiB,YAAC,EAA9F;SAF5B;AAIA,uBAAU;;AAER,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,UAAP;AACJ,OAAJ,IAAG;AACH,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,qBAAU,iBAAC,CAAe,SAAf;AACP,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,QAAP;AACJ,OAAJ,IAAG;AACH,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,mBAAQ,iBAAC,CAAe,SAAf;AACL,OAAJ,IAAG;AACH,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,oBAAS,iBAAC,CAAe,SAAf;AAzCiC;AA4CP;AAGpC,iBAAQ,uCAAR;AAHoC;AAlDG;AAEvC,qBAAU;AACV,UAAI;AAHmC;AA3CD;;AAClB;AAEpB;AAEE,mBAAgB,KAAW,QAAQ,QAAS,SAA5B;AAChB,YAAG,QAAQ,KAAC,OAAZ;AAEE,2CAAW,CAAC,oDAAD;;AAIX,0BAAU;AACV,eAAI;;AAZY;AAgBpB;AACA;AAEA,UAAG,eAAU,QAAC,EAAI,KAAC,EAAnB;AAEE,yCAAW,CAAC,uCAAD;AACX;OAHF;AAKA,UAAG,aAAQ,QAAC,EAAI,KAAC,EAAjB;AAEE,yCAAW,CAAC,oCAAD;AACX;OAHF;AAKA,UAAG,qBAAgB,QAAC,EAAI,KAAC,EAAzB;AAEE,yCAAW,CAAC,0CAAD;AACX;OAHF;AAKA,sBAAe,uBAAW,QAAC;AAC3B,mBAAa,aAAC,CAAW,GAAX;AACd,mBAAa,iBAAb,GAA+B;AAC/B,mBAAa,iBAAC,CAAe,qBAAgB,QAAC,EAAhC;AACd,sBAAe,iBAAI,CAAC,aAAa,KAAC,CAAD,CAAd;AACnB,kBAAO,YAAU,CAAC,gCAAgC,CAAC,iCAAuB,cAAc,eAAU,QAAC,GAAK,aAAQ,QAAC,EAA/D,ahJ8F6F,IgJ9F9H;AAxCqB;AAwGD;AAE3B;AAEV,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,8BAAoB,gCAAS,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,sBAAY,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AAClB,uBAAa,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,wBAAc,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,qBAAW,uCAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAE3B,aAAE;AACF,qBAAU;AACV,2BAAgB;AAChB,mBAAQ;AACR,oBAAS;AACT,qBAAU;AACV,qBAAU;AACV,mCAAwB;AACxB,6BAAkB;AAClB,4BAAiB;AACjB,kBAAO;AACP;AACE,qBAAQ,gBAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,UAAW,cAAlB;AACR,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,oBAAC,CAAoB,IAApB;AACH,eAAE,QAAC,CAAQ,CAAR;AACH,eAAE,OAAC,CAAO,CAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,GAAV;AACH,eAAE,oBAAC,CAAoB,sBAApB;AACH,eAAE,SAAC,CAAS,sCAAT;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,gBAAC,CAAc,CAAd;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,eAAC,CAAe,yCAAf;AACH,eAAE,0BAAC,CAA0B,YAA1B;AACH,eAAE,yBAAC,CAAyB,sBAAzB;AACH,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,EAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,4BAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,6BAAgB,mBAAmB,CAAC,IAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,QAAC,CAAQ,EAAR;AACjB,6BAAgB,OAAC,CAAO,EAAP;AACjB,6BAAgB,SAAC,CAAS,GAAT;AACjB,6BAAgB,UAAC,CAAU,EAAV;AACjB,6BAAgB,gBAAC,CAAc,CAAd;AACjB,6BAAgB,oBAAC,CAAoB,uBAApB;AACjB,6BAAgB,eAAC,CAAe,yCAAf;AACjB,6BAAgB,mBAAC,CAAmB,gDAAnB;AACjB,6BAAgB,eAAC,CAAe,wCAAf;AACjB,6BAAgB,iBAAC,CAAiB,sBAAjB;AACjB,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,YAAC,CAAY,kBAAZ;AACjB,6BAAgB,cAAC,CAAc,2CAAd;AACjB,6BAAgB,gBAAC,CAAgB,qBAAhB;AACjB,6BAAgB,aAAC,CAAa,CAAC,CAAd;AACjB,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,CAAC,EAAT;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,qBAAQ,SAAC,CAAS,GAAT;AACT,qBAAQ,UAAC,CAAU,GAAV;AACT,qBAAQ,YAAC,CAAY,KAAZ;AACT,qBAAQ,oBAAC,CAAoB,uBAApB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,aAAC,CAAa,CAAb;AACT,qBAAQ,YAAC,CAAY,CAAZ;AACT,qBAAQ,YAAC,CAAY,qBAAZ;AACT,qBAAQ,cAAC,CAAc,2CAAd;AACT,qBAAQ,gBAAC,CAAgB,qBAAhB;AACT,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,QAAC,CAAQ,EAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,sBAAS,SAAC,CAAS,EAAT;AACV,sBAAS,UAAC,CAAU,EAAV;AACV,sBAAS,WAAC,CAAW,QAAX;AACV,sBAAS,gBAAC,CAAc,CAAd;AACV,sBAAS,oBAAC,CAAoB,4BAApB;AACV,sBAAS,eAAC,CAAe,yCAAf;AACV,sBAAS,mBAAC,CAAmB,gDAAnB;AACV,sBAAS,eAAC,CAAe,wCAAf;AACV,sBAAS,iBAAC,CAAiB,sBAAjB;AACV,sBAAS,cAAC,CAAc,wCAAd;AACV,sBAAS,gBAAC,CAAgB,sBAAhB;AACV,uBAAQ,CAAC,eAAW,KAAM,UAAW,gBAA7B;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,EAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,uBAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,YAAC,CAAY,kBAAZ;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAgB,qBAAhB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,WAAV,GAAwB;AACxB,uBAAU,iBAAC,CAAiB,UAAjB;AACX,uBAAU,cAAC,CAAc,aAAG,oBAAjB;AACX,uBAAU,aAAV,GAA0B;AAC1B,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,UAAxB,GAAqC;AACrC,+BAAkB,mBAAmB,CAAC,eAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,UAAlB,GAA+B;AAC/B,+BAAkB,QAAC,CAAQ,EAAR;AACnB,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,cAAC,CAAc,aAAG,oBAAjB;AACR,oBAAO,QAAC,CAAQ,EAAR;AACR,oBAAO,OAAC,CAAO,CAAP;AAnIV;AAqIE,eAAE;AACF,uBAAU;AACV,6BAAgB;AAChB,qBAAQ;AACR,sBAAS;AACT,uBAAU;AACV,uBAAU;AACV,qCAAwB;AACxB,+BAAkB;AAClB,8BAAiB;AACjB,oBAAO;AA/IT;AA3BqC;AAtItB;;;AACb,6B9IIc,kD8IJd;AACA,2CpK0dW,6BoK1dX;AACA,qCpKiaU,4BoKjaV;AACA,oCpKgaU,4BoKhaV;AACA,qBxIm7BW,0CwIn7BX;AACA,6BtLokBK,uCsLpkBL;AACA,mCtLkiCO,yCsLliCP;AACA,2BtL61CG,qCsL71CH;AACA,4BtLikBK,uCsLjkBL;AACA,6BtLoRG,qCsLpRH;AACA,0BhJ2Ea,gDgJ3Eb;AACqB,kCAAO,UnNuGvB,2BmNvGuB,CAAP;AACQ,0CAAQ,WpKikC/B,wBoKjkC+B,CAAR;AACP,mCAAO,UnNqGxB,2BmNrGwB,EAAqB,UvL+CxC,0CuL/CwC,EAA5B;AACG,sCAAO,UnNoG3B,2BmNpG2B,CAAP;AACD,qCAAO,UnNmG1B,2BmNnG0B,CAAP;AAhBX;AAwBf;AAnCF,GAqCc,oCArCd;ACAA,gCAES,oQAFT;;;AAWe;;;AACX;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAaA;AAtCW;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAgJoB;AAEjC;AAEA,sBAAU;AACV,qBAAU,MAAK,WAAC,CAAM,qEAAN;AAChB,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX;AATiC;AAYa;AAE9C;AACA;AAEA,qBAAU,MAAK,WAAC,CAAM,iFAAN;AAChB,UAAG,aAAQ,KAAC,CAAZ,EAAmB,eAAU,MAAK,WAAC,CAAM,iFAAN,CAAnC;AACA,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,kBAAW,eAAU,iBAAC;AAEtB,qBAAU,iBAAC,CAAe,SAAf;AACX,uBAAY,iBAAC,CAAe,SAAf;AACb,kCAAuB,iBAAC,CAAe,SAAf;AACxB,uBAAY,iBAAC,CAAe,SAAf;AACb,4BAAiB,iBAAC,CAAe,SAAf;AAClB,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,uBAAY,WAAC,CAAS,IAAT;AACb,kCAAuB,WAAC,CAAS,IAAT;AACxB,uBAAY,WAAC,CAAS,IAAT;AACb,UAAG,aAAQ,KAAC,CAAZ,EAAmB,iBAAY,WAAC,CAAS,KAAT,CAAhC;AACA,UAAG,aAAQ,KAAC,CAAZ,EAAmB,4BAAuB,WAAC,CAAS,KAAT,CAA3C;AACA,UAAG,aAAQ,KAAC,CAAZ,EAAmB,iBAAY,WAAC,CAAS,KAAT,CAAhC;AACA,0BAAe;AACf,aAAM,CAAI,oBAAe,OAAC,EAA1B;AAEE,YAAI,gCAA2B,UAAC,EAAQ,IAAI,iCAA4B,UAAC,EAAzE;AAEA,wBAAa,iEAAkM,GAAhI,2BAAc,CAAC,sBAAsB,mCAA8B,cAAC,EAAtD,CAAf,GAAiF,KAAD,GAAQ,qCAAgC,YAAC,EAAlC,GAA2C,aAAD;;AAI/M,wBAAa,+BAAgK,GAAhI,2BAAc,CAAC,sBAAsB,mCAA8B,cAAC,EAAtD,CAAf,GAAiF,KAAD,GAAQ,qCAAgC,YAAC,EAAlC,GAA2C,aAAD;;AAE7K,YAAU,mCAA8B,YAAC,EAAhC,OAAyC,GAAC,EAAnD;AAEE,wBAAa,WAA+F,GAAnF,8BAAD,GAAgC,oBAAO,CAAC,mCAA8B,YAAC,GAAU,EAA1C,CAAR,GAAsD,WAAD;;AAI5G,wBAAa,WAAkF,GAAtE,8BAAD,GAAgC,mCAA8B,YAAC,EAAhC,GAAyC,OAAD;;AAEjG,YAAG,aAAQ,GAAC,CAAZ,EAAmB,cAAa,WAAiM,GAArL,WAAD,GAAa,0CAAqC,YAAC,EAAvC,GAAgD,IAAD,GAAM,yCAAoC,YAAC,EAAtC,GAA+C,IAAD,GAAM,8DAAyD,YAAC,EAA3D,GAAoE,WAAlO;AACA,YAAG,aAAQ,KAAC,CAAZ,EAAmB,cAAa,WAA6J,GAAjJ,WAAD,GAAa,8BAAyB,YAAC,EAA3B,GAAoC,IAAD,GAAM,6BAAwB,YAAC,EAA1B,GAAmC,IAAD,GAAM,kDAA6C,YAAC,EAA/C,GAAwD,WAA9L;AACA,YAAG,CAAI,gCAA2B,UAAC,EAAnC;AAEE,wBAAa,WAAyG,GAA7F,gBAAD,GAAkB,2BAAc,CAAC,sBAAsB,gCAA2B,cAAC,EAAnD,CAAf,GAA8E,UAAD;;AAItH,wBAAa,WAAW,GAAC,gCAAD;;AAE1B,YAAG,CAAI,iCAA4B,UAAC,EAApC;AAEE,wBAAa,WAA0G,GAA9F,gBAAD,GAAkB,2BAAc,CAAC,sBAAsB,iCAA4B,cAAC,EAApD,CAAf,GAA+E,UAAD;;AAIvH,wBAAa,WAAW,GAAC,iCAAD;;AAG1B,sBAAa,WAAW,GAAC,QAAD;AACxB,oBAAW,eAAU,iBAAC;AACtB,0BAAY,+BAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,uBAAU,eAAC,CAAa,wCAAb;AACX,uBAAU,cAAC,CAAY,2CAAZ;AACX,uBAAU,QAAC,CAAM,iCAA4B,YAAC,EAAnC;AACX,uBAAU,MAAK,WAAC,CAAM,WAAN;AAChB,uBAAU,oBAAC,CAAkB,sBAAlB;AACX,uBAAU,SAAV,GAAqB;AACrB,uBAAU,iBAAC,CAAe,SAAf;AACX,4BAAe;;AAzE6B;AA9CT;AAErC,0BAAe;AACf,UAAI;AAHiC;AApCE;AAEvC,sBAAU;AACV;AAHuC;AAiEL;AAElC,iBAAQ,uCAAR;AAFkC;AA7EK;AAEvC,sBAAU;AACV;AAHuC;AAkBK;;AAE5C;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,uCAAH;AAJK;AAQG;AAEtB,6BAAe;AAFO;AAM1B,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,sBAAU;AACV,0BAAe;AACf,0BAAe,aAAf,GAA6B,gHAAuI,GAAtB,gCAAD,GAAwB,mCAAD;AAEpK,aAAM,uCAAe,QAAC,eAAS,aAAT;AACtB,UAAI,YAAU;AAvB8B;AAZM;AAElD,sBAAU;AACV;AAHkD;AAiDb;;AAErC;AACA;AAEA,2BAA4B,OAAP,OAAU,+BAAH,CAAY;AACxC,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,yBAAoB,2CAAiB,QAAC,eAAS,CAAC;AAErC,eAAN,MAAS,2CAAH,CAAqB,iBAA5B,GAA+C;AACxC,eAAN,MAAS,2CAAH,CAAqB,cAA5B,GAA4C;AAHA,OAAD,CAAT;AAOtC,sBAAgB,YAAU,CAAC;AAEvB,6BAAe;AACf,6BAAe;AAHQ,OAAD;AAdW;AAhEE;AAEvC,0BAAe;AACf,UAAG,aAAQ,KAAC,CAAZ,EAAmB,oBAAe,aAAf,GAA6B,mGAA0H,GAAtB,gCAAD,GAAwB,sFAA3K;AACA,UAAG,aAAQ,KAAC,CAAZ,EAAmB,oBAAe,aAAf,GAA6B,mGAA0H,GAAtB,gCAAD,GAAwB,mCAA3K;AACA,UAAG,aAAQ,KAAC,CAAZ,EAAmB,oBAAe,aAAf,GAA6B,gHAAuI,GAAtB,gCAAD,GAAwB,mCAAxL;AACA,0BAAe;AANwB;AAqLJ;AAEzB;AAEV,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,0BAAgB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,0BAAgB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,+BAAqB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,qCAA2B,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,6BAAmB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,uCAA6B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,6CAAmC,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,yCAA+B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,0CAAgC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,yDAA+C,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACpE,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,4CAAkC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,mDAAyC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,kDAAwC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,2DAAiD,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/D,uEAA6D,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAE3E,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,uBAAY;AACZ,uBAAY;AACZ,4BAAiB;AACjB,kCAAuB;AACvB,0BAAe;AACf,oCAAyB;AACzB,0CAA+B;AAC/B,uCAA4B;AAC5B,oCAAyB;AACzB,mCAAwB;AACxB,sCAA2B;AAC3B,uCAA4B;AAC5B,sDAA2C;AAC3C,sCAA2B;AAC3B,yCAA8B;AAC9B,gDAAqC;AACrC,+CAAoC;AACpC,2CAAgC;AAChC,yCAA8B;AAC9B,wDAA6C;AAC7C,oEAAyD;AACzD;AACE,qBAAQ,cAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,UAAW,cAAlB;AACR,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,EAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,4BAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,QAAC,CAAQ,EAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,EAAT;AACb,yBAAY,UAAC,CAAU,EAAV;AACb,yBAAY,WAAC,CAAW,qBAAX;AACb,yBAAY,gBAAC,CAAc,CAAd;AACb,yBAAY,oBAAC,CAAoB,4BAApB;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,mBAAC,CAAmB,gDAAnB;AACb,yBAAY,eAAC,CAAe,wCAAf;AACb,yBAAY,iBAAC,CAAiB,sBAAjB;AACb,yBAAY,cAAC,CAAc,wCAAd;AACb,yBAAY,gBAAC,CAAgB,sBAAhB;AACb,uBAAQ,CAAC,kBAAc,KAAM,UAAW,mBAAhC;AACR,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,QAAC,CAAQ,EAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,EAAT;AACb,yBAAY,UAAC,CAAU,EAAV;AACb,yBAAY,WAAC,CAAW,eAAX;AACb,yBAAY,gBAAC,CAAc,CAAd;AACb,yBAAY,oBAAC,CAAoB,4BAApB;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,mBAAC,CAAmB,gDAAnB;AACb,yBAAY,eAAC,CAAe,wCAAf;AACb,yBAAY,iBAAC,CAAiB,sBAAjB;AACb,yBAAY,cAAC,CAAc,wCAAd;AACb,yBAAY,gBAAC,CAAgB,sBAAhB;AACb,uBAAQ,CAAC,kBAAc,KAAM,UAAW,mBAAhC;AACR,8BAAiB,mBAAmB,CAAC,IAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,QAAC,CAAQ,EAAR;AAClB,8BAAiB,OAAC,CAAO,GAAP;AAClB,8BAAiB,SAAC,CAAS,EAAT;AAClB,8BAAiB,UAAC,CAAU,EAAV;AAClB,8BAAiB,WAAC,CAAW,mBAAX;AAClB,8BAAiB,gBAAC,CAAc,CAAd;AAClB,8BAAiB,oBAAC,CAAoB,4BAApB;AAClB,8BAAiB,eAAC,CAAe,yCAAf;AAClB,8BAAiB,mBAAC,CAAmB,gDAAnB;AAClB,8BAAiB,eAAC,CAAe,wCAAf;AAClB,8BAAiB,iBAAC,CAAiB,sBAAjB;AAClB,8BAAiB,cAAC,CAAc,wCAAd;AAClB,8BAAiB,gBAAC,CAAgB,sBAAhB;AAClB,uBAAQ,CAAC,uBAAmB,KAAM,UAAW,wBAArC;AACR,oCAAuB,mBAAmB,CAAC,IAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,QAAC,CAAQ,EAAR;AACxB,oCAAuB,OAAC,CAAO,GAAP;AACxB,oCAAuB,SAAC,CAAS,EAAT;AACxB,oCAAuB,UAAC,CAAU,EAAV;AACxB,oCAAuB,WAAC,CAAW,qBAAX;AACxB,oCAAuB,gBAAC,CAAc,CAAd;AACxB,oCAAuB,oBAAC,CAAoB,4BAApB;AACxB,oCAAuB,eAAC,CAAe,yCAAf;AACxB,oCAAuB,mBAAC,CAAmB,gDAAnB;AACxB,oCAAuB,eAAC,CAAe,wCAAf;AACxB,oCAAuB,iBAAC,CAAiB,sBAAjB;AACxB,oCAAuB,cAAC,CAAc,wCAAd;AACxB,oCAAuB,gBAAC,CAAgB,sBAAhB;AACxB,uBAAQ,CAAC,6BAAyB,KAAM,UAAW,8BAA3C;AACR,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,iBAAC,CAAiB,aAAjB;AAChB,4BAAe,cAAC,CAAc,aAAG,oBAAjB;AAChB,4BAAe,iBAAC,CAAiB,CAAjB;AAChB,4BAAe,aAAf,GAA+B;AAC/B,4BAAe,UAAf,GAA4B;AAC5B,4BAAe,QAAC,CAAQ,EAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,sCAAyB,mBAAmB,CAAC,oBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,4CAA+B,mBAAmB,CAAC,oBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,yCAA4B,mBAAmB,CAAC,oBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,UAA5B,GAAyC;AACzC,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,sCAAyB,mBAAmB,CAAC,oBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,qCAAwB,mBAAmB,CAAC,oBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,yCAA4B,mBAAmB,CAAC,oBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,wDAA2C,mBAAmB,CAAC,oBAAD;AAC9D,wDAA2C,QAAC,CAAQ,6CAAR;AAC5C,wDAA2C,WAA3C,GAAyD;AACzD,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,2CAA8B,mBAAmB,CAAC,oBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,kDAAqC,mBAAmB,CAAC,oBAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,kDAAqC,QAAC,CAAQ,EAAR;AACtC,iDAAoC,mBAAmB,CAAC,oBAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,QAAC,CAAQ,EAAR;AACrC,6CAAgC,mBAAmB,CAAC,oBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,GAAR;AACjC,2CAA8B,mBAAmB,CAAC,oBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,GAAR;AAC/B,0DAA6C,mBAAmB,CAAC,oBAAD;AAChE,0DAA6C,QAAC,CAAQ,+CAAR;AAC9C,0DAA6C,WAA7C,GAA2D;AAC3D,sEAAyD,mBAAmB,CAAC,oBAAD;AAC5E,sEAAyD,QAAC,CAAQ,2DAAR;AAC1D,sEAAyD,WAAzD,GAAuE;AA5LzE;AA8LE,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,yBAAY;AACZ,yBAAY;AACZ,8BAAiB;AACjB,oCAAuB;AACvB,4BAAe;AACf,sCAAyB;AACzB,4CAA+B;AAC/B,yCAA4B;AAC5B,sCAAyB;AACzB,qCAAwB;AACxB,wCAA2B;AAC3B,yCAA4B;AAC5B,wDAA2C;AAC3C,wCAA2B;AAC3B,2CAA8B;AAC9B,kDAAqC;AACrC,iDAAoC;AACpC,6CAAgC;AAChC,2CAA8B;AAC9B,0DAA6C;AAC7C,sEAAyD;AAtN3D;AAvDmC;AA1OtB;;;AACX,6BtLu7BY,8CsLv7BZ;AACA,6BtLs7BY,8CsLt7BZ;AACA,6BtLq7BY,8CsLr7BZ;AACA,kC/ICc,kD+IDd;AACA,4CjKGkB,0DiKHlB;AACA,kDjKEkB,0DiKFlB;AACA,+CrK6ZU,4BqK7ZV;AACA,4CrK4ZU,4BqK5ZV;AACA,2CrK2ZU,4BqK3ZV;AACA,8CrKimBY,8BqKjmBZ;AACA,+CrKgmBY,8BqKhmBZ;AACA,8DjKJkB,0DiKIlB;AACA,8CrKuZU,4BqKvZV;AACA,iDrK6lBY,8BqK7lBZ;AACA,wDrKqZU,4BqKrZV;AACA,uDrKoZU,4BqKpZV;AACA,mDrKmZU,4BqKnZV;AACA,iDrKkZU,4BqKlZV;AACA,6BvLujBK,uCuLvjBL;AACA,+BvLsjBK,uCuLtjBL;AACA,+BvLqjBK,uCuLrjBL;AACA,oCvLojBK,uCuLpjBL;AACA,0CvLmjBK,uCuLnjBL;AACA,gErKocW,6BqKpcX;AACA,4ErKmcW,6BqKncX;AACqB,kCAAO,UpNyFvB,2BoNzFuB,CAAP;AACa,+CAAQ,WrKmjCpC,wBqKnjCoC,CAAR;AACT,sCAAO,UpNuF3B,2BoNvF2B,CAAP;AACE,wCAAO,UpNsF7B,2BoNtF6B,CAAP;AACL,mCAAO,UpNqFxB,2BoNrFwB,EAAqB,UxL+BxC,0CwL/BwC,EAA5B;AACK,wCAAO,UpNoF7B,2BoNpF6B,CAAP;AACK,6CAAO,UpNmFlC,2BoNnFkC,CAAP;AACM,mDAAO,UpNkFxC,2BoNlFwC,CAAP;AAjC3B;AA4Cb;AACA;AAxDF,GA4Dc,8DA5Dd;ACAA,gCAES,0SAFT;;;AAWe;;;AACX;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAwBA;AAtQW;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAqUoB;AAEjC;AAEA,qBAAU,MAAK,WAAC,CAAM,qEAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,uBAAY,iBAAC,CAAe,SAAf;AACb,uBAAY,iBAAC,CAAe,SAAf;AAEb,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAW,eAAU,iBAAC;AACtB,aAAE,iBAAC,CAAe,SAAf;AACH,kBAAW,eAAU,iBAAC;AACtB,0BAAe,iBAAC,CAAe,SAAf;AAChB,wBAAa,iBAAC,CAAe,SAAf;AACd,kBAAO,iBAAC,CAAe,SAAf;AACR,gCAAqB,iBAAC,CAAe,SAAf;AACtB,gCAAqB,WAAC,CAAS,EAAT;AACtB,mBAAQ,iBAAC,CAAe,SAAf;AACT,mBAAQ,QAAC,CAAM,EAAN;AACT,mBAAQ,WAAC,CAAS,KAAT;AACT,8BAAmB,iBAAC,CAAe,SAAf;AACpB,kBAAO,WAAC,CAAS,KAAT;AACR,gCAAqB,WAAC,CAAS,KAAT;AACtB,qBAAU;AAzBuB;AA0CO;AAExC;AACA;AACA;AAEA,8BAAmB,WAAC,CAAS,KAAT;AACpB,UAAG;AACH,aAAE,WAAC,CAAS,IAAT;AACH,aAAE,YAAC,CAAU,0BAAqB,eAAC,EAAW,GAAC,EAA5C;AACH,aAAE,YAAC,CAAU,CAAV;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,mCAA2I,GAAtG,gBAAW,YAAC,EAAd,GAAuB,KAAD,GAAO,2BAAc,CAAC,mBAAmB,wBAAmB,cAAC,EAAxC,CAAf,GAAmE,SAAD,GAAW,qBAAgB,YAAC,EAApK;AACJ,OAAJ,IAAG;AAEH,aAAE,SAAM,CAAC,EAAE,EAAI,sCAAiC,YAAC,EAAe,GAAL,KAAF,GAAQ,sBAAiB,YAAC,EAA3E;AACJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,6CAAP;AACJ,OAAJ,IAAG;AACH,mBAAY;AACZ,UAAG,2BAAsB,YAAC,EAAQ,KAAE,EAApC,EAA4C,aAAY,UAA0C,GAA/B,2BAAsB,YAAC,EAAxB,GAAiC,MAAnG;AACA,UAAG,gCAA2B,YAAC,EAAQ,KAAE,EAAzC,EAAiD,aAAY,UAA+C,GAApC,gCAA2B,YAAC,EAA7B,GAAsC,MAA7G;AACA,UAAG,gCAA2B,YAAC,EAAQ,KAAE,EAAzC,EAAiD,aAAY,UAA+C,GAApC,gCAA2B,YAAC,EAA7B,GAAsC,MAA7G;AACA,UAAG,mCAA8B,YAAC,EAAQ,KAAE,EAA5C,EAAoD,aAAY,UAAU,GAAC,mCAA8B,YAAC,EAA1G;AACA,aAAE,SAAM,CAAC,EAAE,EAAI,UAAP;AAER,uBAAY,QAAC,CAAM,0BAAqB,YAAC,EAA5B;AACT,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,wCAAoH,GAA3E,gCAA2B,YAAC,EAA7B,GAAsC,sCAAD,GAAwC,kCAA6B,YAAC,EAA1J;AAEJ,OAAJ,IAAG;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,0BAAqB,YAAC,EAA7B;AACR,UAAG,qBAAgB,YAAC,EAAQ,KAAE,EAA9B;AAEM,SAAJ,IAAG;AACH,eAAE,SAAM,CAAC,EAAE,EAAI,mCAAmC,GAAC,qBAAgB,YAAC,EAA5D;OAHV;AAKA,UAAG,8BAAyB,YAAC,EAAQ,KAAE,EAAvC;AAEM,SAAJ,IAAG;AACH,eAAE,SAAM,CAAC,EAAE,EAAI,6CAA6C,GAAC,8BAAyB,YAAC,EAA/E;OAHV;AAMA,UAAG,qBAAgB,eAAC,EAAW,GAAC,CAAhC;AAEM,SAAJ,IAAG;AACH,qBAAY;AAEZ,6BAAgB;AAChB,eAAM,CAAI,qBAAgB,OAAC,EAA3B;AAEE,uBAAY,UAAgD,GAAnC,8BAAyB,YAAC,EAA5B,GAAuC,MAAF;AAC5D,+BAAgB;;AAElB,eAAE,SAAM,CAAC,EAAE,EAAI,UAAP;OAXV;AAgBI,OAAJ,IAAG;AACH,kBAAW,OAAE,eAAa,CAAC,EAAE,CAAH;AAC1B,qBAAU,iBAAC,CAAe,SAAf;AAEX,aAAE,YAAC,CAAU,0BAAqB,eAAC,EAAa,GAAD,CAAD,GAAG,CAA9C;AAEH,gCAAqB;AACrB,aAAM,CAAI,0BAAqB,OAAC,EAAhC;AAEM,SAAJ,IAAG;AACH,eAAE,SAAM,CAAC,EAAE,EAAI,YAAwH,GAA3G,mCAA8B,YAAC,EAAhC,GAAyC,KAAD,GAAO,sCAAiC,YAAC,EAAnC,GAA4C,kBAAD,GAAqB,qCAAgC,YAAC,EAAlK;AACR,kCAAqB;;AAEvB,wBAAa;AACb,wBAAa,aAAb,GAA2B,0BAA0B,GAAC,sCAAiC,YAAC,EAAnC;AACrD,wBAAa;AAzE2B;AA1DH;AAErC,oBAAS;AACT,UAAI;AAHiC;AALE;AAEvC,oBAAS;AAF8B;AA0LE;AAEzC,gCAAqB;AACrB,gCAAqB,aAArB,GAAmC,sBAAmC,GAAZ,iBAAD,GAAc,6BAAD;AACtE,gCAAqB;AAJoB;AA1KP;AAElC,iBAAQ,uCAAR;AAFkC;AALW;AAE7C,UAAG,cAAS,OAAO,IAAG,kBAAtB;AAAuC,yBAAY,WAAC,CAAS,IAAT;AAAgC,YAAb,iBAAY,WAAC,CAAS,KAAT;AAFvC;AAgIL;AAExC,oBAAS;AAF+B;AApFQ;AAGhD,UAAG,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAM,KAAE,EAA1B,EAAkC,iCAAW,CAAC,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAhB,CAA7C;AACA,oBAAS;AACT,gCAAqB;AAL2B;AAyFP;AAEzC,qBAAU,OAAO,CAAC,SAAS,iBAAY,QAAC,GAAK,EAA5B;AACjB,0BAAe,aAAC,CAAO,eAAU,eAAC,EAAlB;AAHyB;AAyBW;AAEpD,2BAAgB;AAChB,2BAAgB,aAAhB,GAA8B,sBAAmC,GAAZ,iBAAD,GAAc,6BAAD;AACjE,2BAAgB;AAJoC;AAvMZ;AAExC,wBAAa,WAAC,CAAS,KAAT;AACd,kBAAO,WAAC,CAAS,IAAT;AACR,gCAAqB,WAAC,CAAS,IAAT;AACtB,mBAAQ,WAAC,CAAS,IAAT;AACT,8BAAmB,WAAC,CAAS,IAAT;AACpB,mBAAQ;AAPgC;AAUM;AAE9C,gCAAqB;AACrB,wCAA6B,aAAC,CAAO,cAAS,eAAC,EAAjB;AAC9B,4CAAiC,cAAC,CAAY,mBAAI,GAAC,mBAAjB;AAClC,2CAAgC,YAAC,CAAU,aAAQ,QAAC,EAAnB;AACjC,yCAA8B,YAAC,CAAU,oBAAO,CAAC,iBAAI,CAAC,yBAAmB,GAAH,GAAD,GAAK,0BAArB,EAAuC,EAA5C,CAAjB;AAC/B,6CAAkC,YAAC,CAAU,UAAV;AACnC,UAAG,0BAAqB,WAAC,EAAzB;AAEE,iDAAoC,aAAC,CAAW,CAAX;;AAIrC,iDAAoC,aAAC,CAAW,CAAX;;AAEvC,gCAAqB;AAhByB;AAoMM;AAEpD,wBAAa,WAAC,CAAS,IAAT;AACd,kBAAO,WAAC,CAAS,KAAT;AACR,gCAAqB,WAAC,CAAS,KAAT;AACtB,mBAAQ,WAAC,CAAS,KAAT;AACT,8BAAmB,WAAC,CAAS,KAAT;AACpB,gCAAqB;AAP+B;AAnBQ;AAG5D,UAAG,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAM,KAAE,EAA1B,EAAkC,iCAAW,CAAC,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAhB,CAA7C;AACA,gCAAqB;AACrB,mBAAQ,QAAC,CAAM,EAAN;AACT,oBAAS;AAET,oBAAS;AARmD;AAPb;AAE/C,oBAAS;AACT,oBAAS,aAAT,GAAuB,4CAA4C,GAAC,iBAAD;AACnE,oBAAS;AAJsC;AApGH;AAE5C,aAAE,SAAM,CAAC,EAAE,EAAI,gDAA4E,GAA3B,uBAAkB,YAAC,EAApB,GAA6B,MAApF;AAFoC;AA+IT;AAEzB;AAEV,qBAAW,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AAClB,6BAAmB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,0BAAgB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,0BAAgB,iCAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,2BAAiB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACzB,sBAAY,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AAClB,iCAAuB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,mCAAyB,gCAAS,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,uBAAa,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,mCAAyB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,oDAA0C,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/D,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,+CAAqC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,oDAA0C,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,iDAAuC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,oDAA0C,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,iDAAuC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,qDAA2C,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzD,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,kDAAwC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,+CAAqC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,iDAAuC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,sDAA4C,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1D,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,8CAAoC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,8CAAoC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,8CAAoC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,qDAA2C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,4CAAkC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,6CAAmC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,8CAAoC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,+CAAqC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,mDAAyC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,sDAA4C,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1D,oDAA0C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvD,iDAAuC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,kDAAwC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,mDAAyC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,oDAA0C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvD,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,gDAAsC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,uDAA6C,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3D,iDAAuC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,qDAA2C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,oDAA0C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvD,0DAAgD,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7D,yDAA+C,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7D,yDAA+C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5D,2CAAiC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,iDAAuC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,qDAA2C,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvD,gDAAsC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,gDAAsC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,gDAAsC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,iDAAuC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,iDAAuC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,uDAA6C,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzD,kDAAwC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,kDAAwC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,kDAAwC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,mDAAyC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,mDAAyC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,iDAAuC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,kDAAwC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,kDAAwC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,kDAAwC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,+CAAqC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,kDAAwC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,oDAA0C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvD,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,mDAAyC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,oDAA0C,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,kEAAwD,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrE,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,4DAAkD,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/D,0DAAgD,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7D,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,sDAA4C,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1D,uDAA6C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1D,+CAAqC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,qDAA2C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,0DAAgD,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5D,+CAAqC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,kDAAwC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,+CAAqC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,kDAAwC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,2CAAiC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,iDAAuC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,kDAAwC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,kDAAwC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,kDAAwC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,iDAAuC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,gDAAsC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,mDAAyC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,kDAAwC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,gDAAsC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,iDAAuC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,2CAAiC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,4CAAkC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,8CAAoC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,mDAAyC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,kDAAwC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,qDAA2C,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1D,iDAAuC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,uDAA6C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1D,8CAAoC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,wDAA8C,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7D,wDAA8C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3D,kDAAwC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,6CAAmC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,qDAA2C,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvD,mDAAyC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACvD,2CAAiC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,iDAAuC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,8BAAoB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,gCAAsB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,iCAAuB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,2CAAiC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,0CAAgC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,6BAAmB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,yBAAe,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,iCAAuB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,wCAA8B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,mCAAyB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,iCAAuB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,4BAAkB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,2CAAiC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,0CAAgC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,0CAAgC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,8CAAoC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,wCAA8B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,wBAAc,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,0BAAgB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,2BAAiB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,mCAAyB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,2CAAiC,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,+CAAqC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,kDAAwC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,oDAA0C,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACzD,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,sCAA4B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,8BAAoB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,sCAA4B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,0CAAgC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,0CAAgC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,2BAAiB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,iCAAuB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,wCAA8B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAE5C,kBAAO;AACP,0BAAe;AACf,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,aAAE;AACF,uBAAY;AACZ,uBAAY;AACZ,wBAAa;AACb,mBAAQ;AACR,8BAAmB;AACnB,gCAAqB;AACrB,oBAAS;AACT,gCAAqB;AACrB,iDAAsC;AACtC,4CAAiC;AACjC,4CAAiC;AACjC,iDAAsC;AACtC,8CAAmC;AACnC,iDAAsC;AACtC,6CAAkC;AAClC,wCAA6B;AAC7B,uCAA4B;AAC5B,4CAAiC;AACjC,4CAAiC;AACjC,uCAA4B;AAC5B,4CAAiC;AACjC,mCAAwB;AACxB,8CAAmC;AACnC,oCAAyB;AACzB,kDAAuC;AACvC,4CAAiC;AACjC,4CAAiC;AACjC,4CAAiC;AACjC,2CAAgC;AAChC,+CAAoC;AACpC,4CAAiC;AACjC,6CAAkC;AAClC,6CAAkC;AAClC,4CAAiC;AACjC,qCAA0B;AAC1B,wCAA6B;AAC7B,8CAAmC;AACnC,mDAAwC;AACxC,2CAAgC;AAChC,uCAA4B;AAC5B,2CAAgC;AAChC,2CAAgC;AAChC,2CAAgC;AAChC,kDAAuC;AACvC,yCAA8B;AAC9B,0CAA+B;AAC/B,2CAAgC;AAChC,2CAAgC;AAChC,oCAAyB;AACzB,4CAAiC;AACjC,4CAAiC;AACjC,wCAA6B;AAC7B,sCAA2B;AAC3B,2CAAgC;AAChC,gDAAqC;AACrC,mDAAwC;AACxC,iDAAsC;AACtC,8CAAmC;AACnC,+CAAoC;AACpC,gDAAqC;AACrC,2CAAgC;AAChC,iDAAsC;AACtC,6CAAkC;AAClC,oCAAyB;AACzB,mCAAwB;AACxB,0CAA+B;AAC/B,4CAAiC;AACjC,wCAA6B;AAC7B,6CAAkC;AAClC,oDAAyC;AACzC,8CAAmC;AACnC,kDAAuC;AACvC,iDAAsC;AACtC,uDAA4C;AAC5C,sDAA2C;AAC3C,sDAA2C;AAC3C,wCAA6B;AAC7B,8CAAmC;AACnC,qCAA0B;AAC1B,kDAAuC;AACvC,6CAAkC;AAClC,6CAAkC;AAClC,6CAAkC;AAClC,8CAAmC;AACnC,8CAAmC;AACnC,oDAAyC;AACzC,+CAAoC;AACpC,+CAAoC;AACpC,+CAAoC;AACpC,gDAAqC;AACrC,gDAAqC;AACrC,8CAAmC;AACnC,+CAAoC;AACpC,+CAAoC;AACpC,+CAAoC;AACpC,sCAA2B;AAC3B,4CAAiC;AACjC,0CAA+B;AAC/B,+CAAoC;AACpC,2CAAgC;AAChC,iDAAsC;AACtC,4CAAiC;AACjC,sCAA2B;AAC3B,gDAAqC;AACrC,iDAAsC;AACtC,+DAAoD;AACpD,yCAA8B;AAC9B,uCAA4B;AAC5B,uCAA4B;AAC5B,2CAAgC;AAChC,uCAA4B;AAC5B,yDAA8C;AAC9C,uDAA4C;AAC5C,6CAAkC;AAClC,mDAAwC;AACxC,oDAAyC;AACzC,4CAAiC;AACjC,kDAAuC;AACvC,uDAA4C;AAC5C,4CAAiC;AACjC,+CAAoC;AACpC,4CAAiC;AACjC,+CAAoC;AACpC,4CAAiC;AACjC,uCAA4B;AAC5B,wCAA6B;AAC7B,8CAAmC;AACnC,+CAAoC;AACpC,+CAAoC;AACpC,+CAAoC;AACpC,8CAAmC;AACnC,6CAAkC;AAClC,gDAAqC;AACrC,+CAAoC;AACpC,6CAAkC;AAClC,8CAAmC;AACnC,uCAA4B;AAC5B,wCAA6B;AAC7B,yCAA8B;AAC9B,2CAAgC;AAChC,wCAA6B;AAC7B,gDAAqC;AACrC,0CAA+B;AAC/B,sCAA2B;AAC3B,+CAAoC;AACpC,kDAAuC;AACvC,8CAAmC;AACnC,0CAA+B;AAC/B,2CAAgC;AAChC,oDAAyC;AACzC,2CAAgC;AAChC,qDAA0C;AAC1C,qDAA0C;AAC1C,+CAAoC;AACpC,0CAA+B;AAC/B,6CAAkC;AAClC,mCAAwB;AACxB,mCAAwB;AACxB,kDAAuC;AACvC,gDAAqC;AACrC,wCAA6B;AAC7B,8CAAmC;AACnC,0CAA+B;AAC/B,2BAAgB;AAChB,kCAAuB;AACvB,6BAAkB;AAClB,sCAA2B;AAC3B,8BAAmB;AACnB,wCAA6B;AAC7B,sCAA2B;AAC3B,uCAA4B;AAC5B,0BAAe;AACf,sBAAW;AACX,8BAAmB;AACnB,2BAAgB;AAChB,gCAAqB;AACrB,qCAA0B;AAC1B,6CAAkC;AAClC,gCAAqB;AACrB,8BAAmB;AACnB,4BAAiB;AACjB,2BAAgB;AAChB,yBAAc;AACd,8BAAmB;AACnB,2BAAgB;AAChB,6BAAkB;AAClB,sCAA2B;AAC3B,wCAA6B;AAC7B,uCAA4B;AAC5B,uCAA4B;AAC5B,2CAAgC;AAChC,oCAAyB;AACzB,qCAA0B;AAC1B,iCAAsB;AACtB,yCAA8B;AAC9B,sCAA2B;AAC3B,gCAAqB;AACrB,sCAA2B;AAC3B,qBAAU;AACV,2BAAgB;AAChB,uBAAY;AACZ,wBAAa;AACb,gCAAqB;AACrB,wCAA6B;AAC7B,kCAAuB;AACvB,4CAAiC;AACjC,2CAAgC;AAChC,+CAAoC;AACpC,iDAAsC;AACtC,yCAA8B;AAC9B,6CAAkC;AAClC,mCAAwB;AACxB,2BAAgB;AAChB,mCAAwB;AACxB,6BAAkB;AAClB,uCAA4B;AAC5B,sCAA2B;AAC3B,oCAAyB;AACzB,oCAAyB;AACzB,uCAA4B;AAC5B,0CAA+B;AAC/B,wBAAa;AACb,oCAAyB;AACzB,mCAAwB;AACxB,mCAAwB;AACxB,kCAAuB;AACvB,6BAAkB;AAClB,6BAAkB;AAClB,8BAAmB;AACnB,oCAAyB;AACzB,qCAA0B;AAC1B;AACE,qBAAQ,cAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,UAAW,cAAlB;AACR,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,QAAC,CAAQ,EAAR;AACR,oBAAO,OAAC,CAAO,GAAP;AACR,oBAAO,SAAC,CAAS,GAAT;AACR,oBAAO,UAAC,CAAU,EAAV;AACR,oBAAO,WAAC,CAAW,iCAAX;AACR,oBAAO,oBAAC,CAAoB,gBAApB;AACR,oBAAO,eAAC,CAAe,yCAAf;AACR,oBAAO,mBAAC,CAAmB,gDAAnB;AACR,oBAAO,eAAC,CAAe,wCAAf;AACR,oBAAO,iBAAC,CAAiB,sBAAjB;AACR,oBAAO,cAAC,CAAc,wCAAd;AACR,oBAAO,gBAAC,CAAgB,sBAAhB;AACR,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,EAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,4BAAe,SAAC,CAAS,EAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,WAAC,CAAW,cAAX;AAChB,4BAAe,oBAAC,CAAoB,QAApB;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,mBAAC,CAAmB,gDAAnB;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,iBAAC,CAAiB,sBAAjB;AAChB,4BAAe,cAAC,CAAc,wCAAd;AAChB,4BAAe,gBAAC,CAAgB,sBAAhB;AAChB,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,QAAC,CAAQ,CAAC,CAAT;AACH,eAAE,OAAC,CAAO,GAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,EAAV;AACH,eAAE,oBAAC,CAAoB,qCAApB;AACH,eAAE,eAAC,CAAe,wCAAf;AACH,eAAE,cAAC,CAAc,2CAAd;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,gBAAC,CAAc,CAAd;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,eAAC,CAAe,yCAAf;AACH,eAAE,0BAAC,CAA0B,aAA1B;AACH,eAAE,mBAAC,CAAmB,gDAAnB;AACH,eAAE,yBAAC,CAAyB,iDAAzB;AACH,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,QAAC,CAAQ,CAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,EAAT;AACb,yBAAY,UAAC,CAAU,EAAV;AACb,yBAAY,WAAC,CAAW,WAAX;AACb,yBAAY,gBAAC,CAAc,CAAd;AACb,yBAAY,oBAAC,CAAoB,mCAApB;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,mBAAC,CAAmB,gDAAnB;AACb,yBAAY,eAAC,CAAe,wCAAf;AACb,yBAAY,iBAAC,CAAiB,sBAAjB;AACb,yBAAY,cAAC,CAAc,wCAAd;AACb,yBAAY,gBAAC,CAAgB,sBAAhB;AACb,uBAAQ,CAAC,kBAAc,KAAM,UAAW,mBAAhC;AACR,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,QAAC,CAAQ,EAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,GAAT;AACb,yBAAY,UAAC,CAAU,EAAV;AACb,yBAAY,gBAAC,CAAc,CAAd;AACb,yBAAY,oBAAC,CAAoB,uBAApB;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,mBAAC,CAAmB,gDAAnB;AACb,yBAAY,eAAC,CAAe,wCAAf;AACb,yBAAY,iBAAC,CAAiB,sBAAjB;AACb,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,cAAC,CAAc,2CAAd;AACb,yBAAY,gBAAC,CAAgB,qBAAhB;AACb,yBAAY,aAAC,CAAa,CAAC,CAAd;AACb,yBAAY,aAAC,CAAa,QAAb;AACb,yBAAY,cAAC,CAAc,iBAAd;AACb,yBAAY,aAAC,CAAa,QAAb;AACb,yBAAY,cAAC,CAAc,kBAAd;AACb,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,QAAC,CAAQ,CAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,0BAAa,SAAC,CAAS,EAAT;AACd,0BAAa,UAAC,CAAU,EAAV;AACd,0BAAa,WAAC,CAAW,cAAX;AACd,0BAAa,gBAAC,CAAc,CAAd;AACd,0BAAa,oBAAC,CAAoB,mCAApB;AACd,0BAAa,eAAC,CAAe,yCAAf;AACd,0BAAa,mBAAC,CAAmB,gDAAnB;AACd,0BAAa,eAAC,CAAe,wCAAf;AACd,0BAAa,iBAAC,CAAiB,sBAAjB;AACd,0BAAa,cAAC,CAAc,wCAAd;AACd,0BAAa,gBAAC,CAAgB,sBAAhB;AACd,uBAAQ,CAAC,mBAAe,KAAM,UAAW,oBAAjC;AACR,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,CAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,qBAAQ,SAAC,CAAS,GAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,gBAAC,CAAc,EAAd;AACT,qBAAQ,oBAAC,CAAoB,kCAApB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,OAAM;AACd;AACE,uBAAQ,OAAM;AACd,uBAAQ,OAAM,IAAI,CAAC,UAAD;AAFpB;AAIE,uBAAQ,OAAM;AAJhB;AAMA,qBAAQ,aAAC,CAAa,CAAb;AACT,qBAAQ,YAAC,CAAY,CAAZ;AACT,qBAAQ,YAAC,CAAY,CAAZ;AACT,qBAAQ,cAAC,CAAc,2CAAd;AACT,qBAAQ,gBAAC,CAAgB,qBAAhB;AACT,gCAAmB,mBAAmB,CAAC,IAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,QAAC,CAAQ,CAAR;AACpB,gCAAmB,OAAC,CAAO,GAAP;AACpB,gCAAmB,SAAC,CAAS,EAAT;AACpB,gCAAmB,UAAC,CAAU,EAAV;AACpB,gCAAmB,WAAC,CAAW,mBAAX;AACpB,gCAAmB,gBAAC,CAAc,CAAd;AACpB,gCAAmB,oBAAC,CAAoB,mCAApB;AACpB,gCAAmB,eAAC,CAAe,yCAAf;AACpB,gCAAmB,mBAAC,CAAmB,gDAAnB;AACpB,gCAAmB,eAAC,CAAe,wCAAf;AACpB,gCAAmB,iBAAC,CAAiB,sBAAjB;AACpB,gCAAmB,cAAC,CAAc,wCAAd;AACpB,gCAAmB,gBAAC,CAAgB,sBAAhB;AACpB,uBAAQ,CAAC,yBAAqB,KAAM,UAAW,0BAAvC;AACR,kCAAqB,mBAAmB,CAAC,IAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,QAAC,CAAQ,EAAR;AACtB,kCAAqB,OAAC,CAAO,GAAP;AACtB,kCAAqB,SAAC,CAAS,EAAT;AACtB,kCAAqB,UAAC,CAAU,EAAV;AACtB,kCAAqB,WAAC,CAAW,IAAX;AACtB,kCAAqB,gBAAC,CAAc,EAAd;AACtB,kCAAqB,oBAAC,CAAoB,oCAApB;AACtB,kCAAqB,wBAArB,GAAgD;AAChD,kCAAqB,uBAArB,GAA+C;AAC/C,kCAAqB,eAAC,CAAe,yCAAf;AACtB,kCAAqB,mBAAC,CAAmB,gDAAnB;AACtB,kCAAqB,eAAC,CAAe,wCAAf;AACtB,kCAAqB,iBAAC,CAAiB,sBAAjB;AACtB,kCAAqB,SAAC,CAAS,+CAAT;AACtB,kCAAqB,gBAAC,CAAgB,sBAAhB;AACtB,sBAAS,mBAAmB,CAAC,IAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,mBAAT,GAA+B;AAC/B,sBAAS,WAAT,GAAuB;AACvB,sBAAS,YAAT,GAAwB;AACxB,sBAAS,WAAT,GAAuB;AACvB,sBAAS,iBAAC,CAAiB,gBAAjB;AACV,sBAAS,cAAC,CAAc,aAAG,oBAAjB;AACV,sBAAS,iBAAC,CAAiB,CAAjB;AACV,sBAAS,aAAT,GAAyB;AACzB,sBAAS,UAAT,GAAsB;AACtB,sBAAS,QAAC,CAAQ,EAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,mDAAsC,mBAAmB,CAAC,cAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,8CAAiC,mBAAmB,CAAC,cAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,EAAR;AAClC,8CAAiC,mBAAmB,CAAC,cAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,mDAAsC,mBAAmB,CAAC,cAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,gDAAmC,mBAAmB,CAAC,cAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,mDAAsC,mBAAmB,CAAC,cAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,+CAAkC,mBAAmB,CAAC,cAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,EAAR;AACnC,0CAA6B,mBAAmB,CAAC,cAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,yCAA4B,mBAAmB,CAAC,cAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,8CAAiC,mBAAmB,CAAC,cAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,EAAR;AAClC,8CAAiC,mBAAmB,CAAC,cAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,EAAR;AAClC,yCAA4B,mBAAmB,CAAC,cAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,8CAAiC,mBAAmB,CAAC,cAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,EAAR;AAClC,qCAAwB,mBAAmB,CAAC,cAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,gDAAmC,mBAAmB,CAAC,cAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,gDAAmC,QAAC,CAAQ,CAAR;AACpC,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,oDAAuC,mBAAmB,CAAC,cAAD;AAC1D,oDAAuC,QAAC,CAAQ,yCAAR;AACxC,oDAAuC,WAAvC,GAAqD;AACrD,8CAAiC,mBAAmB,CAAC,cAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,EAAR;AAClC,8CAAiC,mBAAmB,CAAC,cAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,GAAR;AAClC,8CAAiC,mBAAmB,CAAC,cAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,EAAR;AAClC,6CAAgC,mBAAmB,CAAC,cAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,GAAR;AACjC,iDAAoC,mBAAmB,CAAC,cAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,QAAC,CAAQ,GAAR;AACrC,8CAAiC,mBAAmB,CAAC,cAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,+CAAkC,mBAAmB,CAAC,cAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,EAAR;AACnC,+CAAkC,mBAAmB,CAAC,cAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,EAAR;AACnC,8CAAiC,mBAAmB,CAAC,cAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,EAAR;AAClC,uCAA0B,mBAAmB,CAAC,cAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,0CAA6B,mBAAmB,CAAC,cAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,gDAAmC,mBAAmB,CAAC,cAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,qDAAwC,mBAAmB,CAAC,cAAD;AAC3D,qDAAwC,QAAC,CAAQ,0CAAR;AACzC,qDAAwC,WAAxC,GAAsD;AACtD,6CAAgC,mBAAmB,CAAC,cAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,GAAR;AACjC,yCAA4B,mBAAmB,CAAC,cAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,6CAAgC,mBAAmB,CAAC,cAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,mBAAmB,CAAC,cAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,mBAAmB,CAAC,cAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,oDAAuC,mBAAmB,CAAC,cAAD;AAC1D,oDAAuC,QAAC,CAAQ,yCAAR;AACxC,oDAAuC,WAAvC,GAAqD;AACrD,oDAAuC,QAAC,CAAQ,GAAR;AACxC,2CAA8B,mBAAmB,CAAC,cAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,4CAA+B,mBAAmB,CAAC,cAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,6CAAgC,mBAAmB,CAAC,cAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,mBAAmB,CAAC,cAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,8CAAiC,mBAAmB,CAAC,cAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,mBAAmB,CAAC,cAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,EAAR;AAClC,0CAA6B,mBAAmB,CAAC,cAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,wCAA2B,mBAAmB,CAAC,cAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,GAAR;AAC5B,6CAAgC,mBAAmB,CAAC,cAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,GAAR;AACjC,kDAAqC,mBAAmB,CAAC,cAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,qDAAwC,mBAAmB,CAAC,cAAD;AAC3D,qDAAwC,QAAC,CAAQ,0CAAR;AACzC,qDAAwC,WAAxC,GAAsD;AACtD,mDAAsC,mBAAmB,CAAC,cAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,gDAAmC,mBAAmB,CAAC,cAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,iDAAoC,mBAAmB,CAAC,cAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,QAAC,CAAQ,EAAR;AACrC,kDAAqC,mBAAmB,CAAC,cAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,kDAAqC,QAAC,CAAQ,EAAR;AACtC,6CAAgC,mBAAmB,CAAC,cAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,mDAAsC,mBAAmB,CAAC,cAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,mDAAsC,QAAC,CAAQ,EAAR;AACvC,+CAAkC,mBAAmB,CAAC,cAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,EAAR;AACnC,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,qCAAwB,mBAAmB,CAAC,cAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,4CAA+B,mBAAmB,CAAC,cAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,8CAAiC,mBAAmB,CAAC,cAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,EAAR;AAClC,0CAA6B,mBAAmB,CAAC,cAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,EAAR;AAC9B,+CAAkC,mBAAmB,CAAC,cAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,sDAAyC,mBAAmB,CAAC,cAAD;AAC5D,sDAAyC,QAAC,CAAQ,2CAAR;AAC1C,sDAAyC,WAAzC,GAAuD;AACvD,gDAAmC,mBAAmB,CAAC,cAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,gDAAmC,QAAC,CAAQ,EAAR;AACpC,oDAAuC,mBAAmB,CAAC,cAAD;AAC1D,oDAAuC,QAAC,CAAQ,yCAAR;AACxC,oDAAuC,WAAvC,GAAqD;AACrD,oDAAuC,QAAC,CAAQ,EAAR;AACxC,mDAAsC,mBAAmB,CAAC,cAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,yDAA4C,mBAAmB,CAAC,cAAD;AAC/D,yDAA4C,QAAC,CAAQ,8CAAR;AAC7C,yDAA4C,WAA5C,GAA0D;AAC1D,yDAA4C,QAAC,CAAQ,CAAR;AAC7C,wDAA2C,mBAAmB,CAAC,cAAD;AAC9D,wDAA2C,QAAC,CAAQ,6CAAR;AAC5C,wDAA2C,WAA3C,GAAyD;AACzD,wDAA2C,mBAAmB,CAAC,cAAD;AAC9D,wDAA2C,QAAC,CAAQ,6CAAR;AAC5C,wDAA2C,WAA3C,GAAyD;AACzD,wDAA2C,QAAC,CAAQ,EAAR;AAC5C,0CAA6B,mBAAmB,CAAC,cAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,gDAAmC,mBAAmB,CAAC,cAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,uCAA0B,mBAAmB,CAAC,cAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,oDAAuC,mBAAmB,CAAC,cAAD;AAC1D,oDAAuC,QAAC,CAAQ,yCAAR;AACxC,oDAAuC,WAAvC,GAAqD;AACrD,+CAAkC,mBAAmB,CAAC,cAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,mBAAmB,CAAC,cAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,mBAAmB,CAAC,cAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,gDAAmC,mBAAmB,CAAC,cAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,gDAAmC,mBAAmB,CAAC,cAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,sDAAyC,mBAAmB,CAAC,cAAD;AAC5D,sDAAyC,QAAC,CAAQ,2CAAR;AAC1C,sDAAyC,WAAzC,GAAuD;AACvD,iDAAoC,mBAAmB,CAAC,cAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,mBAAmB,CAAC,cAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,mBAAmB,CAAC,cAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,kDAAqC,mBAAmB,CAAC,cAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,kDAAqC,mBAAmB,CAAC,cAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,gDAAmC,mBAAmB,CAAC,cAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,gDAAmC,QAAC,CAAQ,EAAR;AACpC,iDAAoC,mBAAmB,CAAC,cAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,QAAC,CAAQ,EAAR;AACrC,iDAAoC,mBAAmB,CAAC,cAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,QAAC,CAAQ,EAAR;AACrC,iDAAoC,mBAAmB,CAAC,cAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,QAAC,CAAQ,EAAR;AACrC,wCAA2B,mBAAmB,CAAC,cAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,8CAAiC,mBAAmB,CAAC,cAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,4CAA+B,mBAAmB,CAAC,cAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,iDAAoC,mBAAmB,CAAC,cAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,QAAC,CAAQ,GAAR;AACrC,6CAAgC,mBAAmB,CAAC,cAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,mDAAsC,mBAAmB,CAAC,cAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,mDAAsC,QAAC,CAAQ,EAAR;AACvC,8CAAiC,mBAAmB,CAAC,cAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,EAAR;AAClC,wCAA2B,mBAAmB,CAAC,cAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,kDAAqC,mBAAmB,CAAC,cAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,kDAAqC,QAAC,CAAQ,EAAR;AACtC,mDAAsC,mBAAmB,CAAC,cAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,iEAAoD,mBAAmB,CAAC,cAAD;AACvE,iEAAoD,QAAC,CAAQ,sDAAR;AACrD,iEAAoD,WAApD,GAAkE;AAClE,iEAAoD,QAAC,CAAQ,EAAR;AACrD,2CAA8B,mBAAmB,CAAC,cAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,GAAR;AAC/B,yCAA4B,mBAAmB,CAAC,cAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,yCAA4B,mBAAmB,CAAC,cAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,6CAAgC,mBAAmB,CAAC,cAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,yCAA4B,mBAAmB,CAAC,cAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,2DAA8C,mBAAmB,CAAC,cAAD;AACjE,2DAA8C,QAAC,CAAQ,gDAAR;AAC/C,2DAA8C,WAA9C,GAA4D;AAC5D,2DAA8C,QAAC,CAAQ,EAAR;AAC/C,yDAA4C,mBAAmB,CAAC,cAAD;AAC/D,yDAA4C,QAAC,CAAQ,8CAAR;AAC7C,yDAA4C,WAA5C,GAA0D;AAC1D,yDAA4C,QAAC,CAAQ,EAAR;AAC7C,+CAAkC,mBAAmB,CAAC,cAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,EAAR;AACnC,qDAAwC,mBAAmB,CAAC,cAAD;AAC3D,qDAAwC,QAAC,CAAQ,0CAAR;AACzC,qDAAwC,WAAxC,GAAsD;AACtD,sDAAyC,mBAAmB,CAAC,cAAD;AAC5D,sDAAyC,QAAC,CAAQ,2CAAR;AAC1C,sDAAyC,WAAzC,GAAuD;AACvD,sDAAyC,QAAC,CAAQ,GAAR;AAC1C,8CAAiC,mBAAmB,CAAC,cAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,oDAAuC,mBAAmB,CAAC,cAAD;AAC1D,oDAAuC,QAAC,CAAQ,yCAAR;AACxC,oDAAuC,WAAvC,GAAqD;AACrD,oDAAuC,QAAC,CAAQ,EAAR;AACxC,yDAA4C,mBAAmB,CAAC,cAAD;AAC/D,yDAA4C,QAAC,CAAQ,8CAAR;AAC7C,yDAA4C,WAA5C,GAA0D;AAC1D,8CAAiC,mBAAmB,CAAC,cAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,iDAAoC,mBAAmB,CAAC,cAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,8CAAiC,mBAAmB,CAAC,cAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,iDAAoC,mBAAmB,CAAC,cAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,8CAAiC,mBAAmB,CAAC,cAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,EAAR;AAClC,yCAA4B,mBAAmB,CAAC,cAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,0CAA6B,mBAAmB,CAAC,cAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,gDAAmC,mBAAmB,CAAC,cAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,gDAAmC,QAAC,CAAQ,GAAR;AACpC,iDAAoC,mBAAmB,CAAC,cAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,QAAC,CAAQ,EAAR;AACrC,iDAAoC,mBAAmB,CAAC,cAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,QAAC,CAAQ,EAAR;AACrC,iDAAoC,mBAAmB,CAAC,cAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,QAAC,CAAQ,EAAR;AACrC,gDAAmC,mBAAmB,CAAC,cAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,+CAAkC,mBAAmB,CAAC,cAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,kDAAqC,mBAAmB,CAAC,cAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,iDAAoC,mBAAmB,CAAC,cAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,+CAAkC,mBAAmB,CAAC,cAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,gDAAmC,mBAAmB,CAAC,cAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,gDAAmC,QAAC,CAAQ,EAAR;AACpC,yCAA4B,mBAAmB,CAAC,cAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,GAAR;AAC7B,0CAA6B,mBAAmB,CAAC,cAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,2CAA8B,mBAAmB,CAAC,cAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,6CAAgC,mBAAmB,CAAC,cAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,0CAA6B,mBAAmB,CAAC,cAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,GAAR;AAC9B,kDAAqC,mBAAmB,CAAC,cAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,4CAA+B,mBAAmB,CAAC,cAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,wCAA2B,mBAAmB,CAAC,cAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,iDAAoC,mBAAmB,CAAC,cAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,QAAC,CAAQ,EAAR;AACrC,oDAAuC,mBAAmB,CAAC,cAAD;AAC1D,oDAAuC,QAAC,CAAQ,yCAAR;AACxC,oDAAuC,WAAvC,GAAqD;AACrD,gDAAmC,mBAAmB,CAAC,cAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,gDAAmC,QAAC,CAAQ,CAAR;AACpC,4CAA+B,mBAAmB,CAAC,cAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,6CAAgC,mBAAmB,CAAC,cAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,EAAR;AACjC,sDAAyC,mBAAmB,CAAC,cAAD;AAC5D,sDAAyC,QAAC,CAAQ,2CAAR;AAC1C,sDAAyC,WAAzC,GAAuD;AACvD,sDAAyC,QAAC,CAAQ,GAAR;AAC1C,6CAAgC,mBAAmB,CAAC,cAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,uDAA0C,mBAAmB,CAAC,cAAD;AAC7D,uDAA0C,QAAC,CAAQ,4CAAR;AAC3C,uDAA0C,WAA1C,GAAwD;AACxD,uDAA0C,mBAAmB,CAAC,cAAD;AAC7D,uDAA0C,QAAC,CAAQ,4CAAR;AAC3C,uDAA0C,WAA1C,GAAwD;AACxD,uDAA0C,QAAC,CAAQ,GAAR;AAC3C,iDAAoC,mBAAmB,CAAC,cAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,QAAC,CAAQ,GAAR;AACrC,4CAA+B,mBAAmB,CAAC,cAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,+CAAkC,mBAAmB,CAAC,cAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,GAAR;AACnC,qCAAwB,mBAAmB,CAAC,cAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,mBAAmB,CAAC,cAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,oDAAuC,mBAAmB,CAAC,cAAD;AAC1D,oDAAuC,QAAC,CAAQ,yCAAR;AACxC,oDAAuC,WAAvC,GAAqD;AACrD,kDAAqC,mBAAmB,CAAC,cAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,0CAA6B,mBAAmB,CAAC,cAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,QAAC,CAAQ,CAAR;AAC9B,gDAAmC,mBAAmB,CAAC,cAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,gDAAmC,QAAC,CAAQ,GAAR;AACpC,4CAA+B,mBAAmB,CAAC,cAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,oCAAuB,mBAAmB,CAAC,cAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,wCAA2B,mBAAmB,CAAC,cAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,0CAA6B,mBAAmB,CAAC,cAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,wCAA2B,mBAAmB,CAAC,cAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,yCAA4B,mBAAmB,CAAC,cAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,4BAAe,mBAAmB,CAAC,cAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,wBAAW,mBAAmB,CAAC,cAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,wBAAW,UAAX,GAAwB;AACxB,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,GAAR;AACjB,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,GAAR;AACtB,uCAA0B,mBAAmB,CAAC,cAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,+CAAkC,mBAAmB,CAAC,cAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,EAAR;AACnC,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,8BAAiB,mBAAmB,CAAC,cAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,2BAAc,mBAAmB,CAAC,cAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,QAAC,CAAQ,EAAR;AACf,gCAAmB,mBAAmB,CAAC,cAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,GAAR;AACpB,6BAAgB,mBAAmB,CAAC,cAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,GAAR;AACjB,+BAAkB,mBAAmB,CAAC,cAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,GAAR;AACnB,wCAA2B,mBAAmB,CAAC,cAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,0CAA6B,mBAAmB,CAAC,cAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,yCAA4B,mBAAmB,CAAC,cAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,mBAAmB,CAAC,cAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,6CAAgC,mBAAmB,CAAC,cAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,sCAAyB,mBAAmB,CAAC,cAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,GAAR;AAC1B,uCAA0B,mBAAmB,CAAC,cAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,mCAAsB,mBAAmB,CAAC,cAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,2CAA8B,mBAAmB,CAAC,cAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,GAAR;AAC/B,wCAA2B,mBAAmB,CAAC,cAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,GAAR;AAC5B,kCAAqB,mBAAmB,CAAC,cAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,QAAC,CAAQ,EAAR;AACtB,wCAA2B,mBAAmB,CAAC,cAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,GAAR;AAC5B,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,WAAV,GAAwB;AACxB,uBAAU,iBAAC,CAAiB,kBAAjB;AACX,uBAAU,cAAC,CAAc,aAAG,oBAAjB;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,6BAAgB,mBAAmB,CAAC,eAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,UAAhB,GAA6B;AAC7B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAC,CAAW,cAAX;AACb,uBAAQ,CAAC,kBAAc,KAAM,gBAAiB,yBAAtC;AACR,yBAAY,QAAC,CAAQ,GAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAC,CAAW,eAAX;AACd,0BAAa,QAAC,CAAQ,GAAR;AACd,0BAAa,OAAC,CAAO,EAAP;AACd,kCAAqB,mBAAmB,CAAC,IAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,mBAArB,GAA2C;AAC3C,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,WAArB,GAAmC;AACnC,kCAAqB,iBAAC,CAAiB,wBAAjB;AACtB,kCAAqB,cAAC,CAAc,aAAG,oBAAjB;AACtB,kCAAqB,QAAC,CAAQ,GAAR;AACtB,kCAAqB,OAAC,CAAO,GAAP;AACtB,0CAA6B,mBAAmB,CAAC,0BAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,UAA7B,GAA0C;AAC1C,oCAAuB,mBAAmB,CAAC,0BAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,UAAvB,GAAoC;AACpC,8CAAiC,mBAAmB,CAAC,0BAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,UAAjC,GAA8C;AAC9C,6CAAgC,mBAAmB,CAAC,0BAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,GAAR;AACjC,iDAAoC,mBAAmB,CAAC,0BAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,mDAAsC,mBAAmB,CAAC,0BAAD;AACzD,mDAAsC,QAAC,CAAQ,wCAAR;AACvC,mDAAsC,WAAtC,GAAoD;AACpD,2CAA8B,mBAAmB,CAAC,0BAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,+CAAkC,mBAAmB,CAAC,0BAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,EAAR;AACnC,qCAAwB,mBAAmB,CAAC,IAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAC,CAAW,0BAAX;AACzB,qCAAwB,QAAC,CAAQ,GAAR;AACzB,qCAAwB,OAAC,CAAO,GAAP;AACzB,6BAAgB,mBAAmB,CAAC,IAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,iBAAC,CAAiB,mBAAjB;AACjB,6BAAgB,cAAC,CAAc,aAAG,oBAAjB;AACjB,6BAAgB,QAAC,CAAQ,GAAR;AACjB,6BAAgB,OAAC,CAAO,GAAP;AACjB,qCAAwB,mBAAmB,CAAC,qBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,UAAxB,GAAqC;AACrC,+BAAkB,mBAAmB,CAAC,qBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,UAAlB,GAA+B;AAC/B,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,UAA5B,GAAyC;AACzC,wCAA2B,mBAAmB,CAAC,qBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,sCAAyB,mBAAmB,CAAC,qBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,sCAAyB,mBAAmB,CAAC,qBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,GAAR;AAC1B,yCAA4B,mBAAmB,CAAC,qBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,4CAA+B,mBAAmB,CAAC,qBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,GAAR;AAChC,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,iBAAC,CAAiB,iBAAjB;AACd,0BAAa,cAAC,CAAc,aAAG,oBAAjB;AACd,0BAAa,QAAC,CAAQ,GAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,sCAAyB,mBAAmB,CAAC,kBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,UAAzB,GAAsC;AACtC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,qCAAwB,mBAAmB,CAAC,kBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,mBAAmB,CAAC,kBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,oCAAuB,mBAAmB,CAAC,kBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,+BAAkB,mBAAmB,CAAC,kBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,mBAAmB,CAAC,kBAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,gCAAmB,mBAAmB,CAAC,kBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,sCAAyB,mBAAmB,CAAC,kBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,uCAA0B,mBAAmB,CAAC,kBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AAhhC1C;AAkhCE,oBAAO;AACP,4BAAe;AACf,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,eAAE;AACF,yBAAY;AACZ,yBAAY;AACZ,0BAAa;AACb,qBAAQ;AACR,gCAAmB;AACnB,kCAAqB;AACrB,sBAAS;AACT,kCAAqB;AACrB,mDAAsC;AACtC,8CAAiC;AACjC,8CAAiC;AACjC,mDAAsC;AACtC,gDAAmC;AACnC,mDAAsC;AACtC,+CAAkC;AAClC,0CAA6B;AAC7B,yCAA4B;AAC5B,8CAAiC;AACjC,8CAAiC;AACjC,yCAA4B;AAC5B,8CAAiC;AACjC,qCAAwB;AACxB,gDAAmC;AACnC,sCAAyB;AACzB,oDAAuC;AACvC,8CAAiC;AACjC,8CAAiC;AACjC,8CAAiC;AACjC,6CAAgC;AAChC,iDAAoC;AACpC,8CAAiC;AACjC,+CAAkC;AAClC,+CAAkC;AAClC,8CAAiC;AACjC,uCAA0B;AAC1B,0CAA6B;AAC7B,gDAAmC;AACnC,qDAAwC;AACxC,6CAAgC;AAChC,yCAA4B;AAC5B,6CAAgC;AAChC,6CAAgC;AAChC,6CAAgC;AAChC,oDAAuC;AACvC,2CAA8B;AAC9B,4CAA+B;AAC/B,6CAAgC;AAChC,6CAAgC;AAChC,sCAAyB;AACzB,8CAAiC;AACjC,8CAAiC;AACjC,0CAA6B;AAC7B,wCAA2B;AAC3B,6CAAgC;AAChC,kDAAqC;AACrC,qDAAwC;AACxC,mDAAsC;AACtC,gDAAmC;AACnC,iDAAoC;AACpC,kDAAqC;AACrC,6CAAgC;AAChC,mDAAsC;AACtC,+CAAkC;AAClC,sCAAyB;AACzB,qCAAwB;AACxB,4CAA+B;AAC/B,8CAAiC;AACjC,0CAA6B;AAC7B,+CAAkC;AAClC,sDAAyC;AACzC,gDAAmC;AACnC,oDAAuC;AACvC,mDAAsC;AACtC,yDAA4C;AAC5C,wDAA2C;AAC3C,wDAA2C;AAC3C,0CAA6B;AAC7B,gDAAmC;AACnC,uCAA0B;AAC1B,oDAAuC;AACvC,+CAAkC;AAClC,+CAAkC;AAClC,+CAAkC;AAClC,gDAAmC;AACnC,gDAAmC;AACnC,sDAAyC;AACzC,iDAAoC;AACpC,iDAAoC;AACpC,iDAAoC;AACpC,kDAAqC;AACrC,kDAAqC;AACrC,gDAAmC;AACnC,iDAAoC;AACpC,iDAAoC;AACpC,iDAAoC;AACpC,wCAA2B;AAC3B,8CAAiC;AACjC,4CAA+B;AAC/B,iDAAoC;AACpC,6CAAgC;AAChC,mDAAsC;AACtC,8CAAiC;AACjC,wCAA2B;AAC3B,kDAAqC;AACrC,mDAAsC;AACtC,iEAAoD;AACpD,2CAA8B;AAC9B,yCAA4B;AAC5B,yCAA4B;AAC5B,6CAAgC;AAChC,yCAA4B;AAC5B,2DAA8C;AAC9C,yDAA4C;AAC5C,+CAAkC;AAClC,qDAAwC;AACxC,sDAAyC;AACzC,8CAAiC;AACjC,oDAAuC;AACvC,yDAA4C;AAC5C,8CAAiC;AACjC,iDAAoC;AACpC,8CAAiC;AACjC,iDAAoC;AACpC,8CAAiC;AACjC,yCAA4B;AAC5B,0CAA6B;AAC7B,gDAAmC;AACnC,iDAAoC;AACpC,iDAAoC;AACpC,iDAAoC;AACpC,gDAAmC;AACnC,+CAAkC;AAClC,kDAAqC;AACrC,iDAAoC;AACpC,+CAAkC;AAClC,gDAAmC;AACnC,yCAA4B;AAC5B,0CAA6B;AAC7B,2CAA8B;AAC9B,6CAAgC;AAChC,0CAA6B;AAC7B,kDAAqC;AACrC,4CAA+B;AAC/B,wCAA2B;AAC3B,iDAAoC;AACpC,oDAAuC;AACvC,gDAAmC;AACnC,4CAA+B;AAC/B,6CAAgC;AAChC,sDAAyC;AACzC,6CAAgC;AAChC,uDAA0C;AAC1C,uDAA0C;AAC1C,iDAAoC;AACpC,4CAA+B;AAC/B,+CAAkC;AAClC,qCAAwB;AACxB,qCAAwB;AACxB,oDAAuC;AACvC,kDAAqC;AACrC,0CAA6B;AAC7B,gDAAmC;AACnC,4CAA+B;AAC/B,6BAAgB;AAChB,oCAAuB;AACvB,+BAAkB;AAClB,wCAA2B;AAC3B,gCAAmB;AACnB,0CAA6B;AAC7B,wCAA2B;AAC3B,yCAA4B;AAC5B,4BAAe;AACf,wBAAW;AACX,gCAAmB;AACnB,6BAAgB;AAChB,kCAAqB;AACrB,uCAA0B;AAC1B,+CAAkC;AAClC,kCAAqB;AACrB,gCAAmB;AACnB,8BAAiB;AACjB,6BAAgB;AAChB,2BAAc;AACd,gCAAmB;AACnB,6BAAgB;AAChB,+BAAkB;AAClB,wCAA2B;AAC3B,0CAA6B;AAC7B,yCAA4B;AAC5B,yCAA4B;AAC5B,6CAAgC;AAChC,sCAAyB;AACzB,uCAA0B;AAC1B,mCAAsB;AACtB,2CAA8B;AAC9B,wCAA2B;AAC3B,kCAAqB;AACrB,wCAA2B;AAC3B,uBAAU;AACV,6BAAgB;AAChB,yBAAY;AACZ,0BAAa;AACb,kCAAqB;AACrB,0CAA6B;AAC7B,oCAAuB;AACvB,8CAAiC;AACjC,6CAAgC;AAChC,iDAAoC;AACpC,mDAAsC;AACtC,2CAA8B;AAC9B,+CAAkC;AAClC,qCAAwB;AACxB,6BAAgB;AAChB,qCAAwB;AACxB,+BAAkB;AAClB,yCAA4B;AAC5B,wCAA2B;AAC3B,sCAAyB;AACzB,sCAAyB;AACzB,yCAA4B;AAC5B,4CAA+B;AAC/B,0BAAa;AACb,sCAAyB;AACzB,qCAAwB;AACxB,qCAAwB;AACxB,oCAAuB;AACvB,+BAAkB;AAClB,+BAAkB;AAClB,gCAAmB;AACnB,sCAAyB;AACzB,uCAA0B;AA/vC5B;AAjemC;AAjftB;;;AACX,6BvLu7BY,8CuLv7BZ;AACA,6BvLs7BY,8CuLt7BZ;AACA,6BvLq7BY,8CuLr7BZ;AACA,6BxLskBK,uCwLtkBL;AACA,4BhJAc,kDgJAd;AACA,qB1Ik7BW,0C0Il7BX;AACA,+BxLmkBK,uCwLnkBL;AACA,wClKAkB,0DkKAlB;AACA,yDlKDkB,0DkKClB;AACA,oDtK0ZU,4BsK1ZV;AACA,oDtKukBW,6BsKvkBX;AACA,yDtKskBW,6BsKtkBX;AACA,sDtKqkBW,6BsKrkBX;AACA,yDtKokBW,6BsKpkBX;AACA,qDtKqZU,4BsKrZV;AACA,gDtKoZU,4BsKpZV;AACA,+CtKmZU,4BsKnZV;AACA,oDtKkZU,4BsKlZV;AACA,oDtKiZU,4BsKjZV;AACA,+CtKgZU,4BsKhZV;AACA,oDtK+YU,4BsK/YV;AACA,2CtK8YU,4BsK9YV;AACA,sDtK6YU,4BsK7YV;AACA,4CtK4YU,4BsK5YV;AACA,0DtKyjBW,6BsKzjBX;AACA,oDtK0YU,4BsK1YV;AACA,oDtKyYU,4BsKzYV;AACA,oDtKwYU,4BsKxYV;AACA,mDtKuYU,4BsKvYV;AACA,uDtKsYU,4BsKtYV;AACA,oDtK4kBY,8BsK5kBZ;AACA,qDtKoYU,4BsKpYV;AACA,qDtKmYU,4BsKnYV;AACA,oDtKkYU,4BsKlYV;AACA,6CtKiYU,4BsKjYV;AACA,gDtKgYU,4BsKhYV;AACA,sDtK+XU,4BsK/XV;AACA,2DtK4iBW,6BsK5iBX;AACA,mDtK6XU,4BsK7XV;AACA,+CtK4XU,4BsK5XV;AACA,mDtKyiBW,6BsKziBX;AACA,mDtKwiBW,6BsKxiBX;AACA,mDtKuiBW,6BsKviBX;AACA,0DtKwXU,4BsKxXV;AACA,iDtK+aW,6BsK/aX;AACA,kDtKigBS,2BsKjgBT;AACA,mDtKggBS,2BsKhgBT;AACA,mDtKoXU,4BsKpXV;AACA,4CtKmXU,4BsKnXV;AACA,oDtK6fS,2BsK7fT;AACA,oDtKiXU,4BsKjXV;AACA,gDtKgXU,4BsKhXV;AACA,8CtK+WU,4BsK/WV;AACA,mDtK8WU,4BsK9WV;AACA,wDtKwfS,2BsKxfT;AACA,2DtK0hBW,6BsK1hBX;AACA,yDtK2WU,4BsK3WV;AACA,sDtKwhBW,6BsKxhBX;AACA,uDtKyWU,4BsKzWV;AACA,wDtKwWU,4BsKxWV;AACA,mDtKuWU,4BsKvWV;AACA,yDtKsWU,4BsKtWV;AACA,qDtKqWU,4BsKrWV;AACA,4CtKoWU,4BsKpWV;AACA,2CtKmWU,4BsKnWV;AACA,kDtKkWU,4BsKlWV;AACA,oDtKiWU,4BsKjWV;AACA,gDtKgWU,4BsKhWV;AACA,qDtK6gBW,6BsK7gBX;AACA,4DtK4gBW,6BsK5gBX;AACA,sDtK6VU,4BsK7VV;AACA,0DtK4VU,4BsK5VV;AACA,yDtK2VU,4BsK3VV;AACA,+DtK0VU,4BsK1VV;AACA,8DtKiZW,6BsKjZX;AACA,8DtKwVU,4BsKxVV;AACA,gDtK8hBY,8BsK9hBZ;AACA,sDtK6hBY,8BsK7hBZ;AACA,6CtKqVU,4BsKrVV;AACA,0DtK+dS,2BsK/dT;AACA,qDtK8dS,2BsK9dT;AACA,qDtK6dS,2BsK7dT;AACA,qDtK4dS,2BsK5dT;AACA,sDtK2dS,2BsK3dT;AACA,sDtK0dS,2BsK1dT;AACA,4DtKydS,2BsKzdT;AACA,uDtKwdS,2BsKxdT;AACA,uDtKudS,2BsKvdT;AACA,uDtKsdS,2BsKtdT;AACA,wDtKqdS,2BsKrdT;AACA,wDtKodS,2BsKpdT;AACA,sDtKwUU,4BsKxUV;AACA,uDtKuUU,4BsKvUV;AACA,uDtKsUU,4BsKtUV;AACA,uDtKqUU,4BsKrUV;AACA,8CtKkfW,6BsKlfX;AACA,oDtKifW,6BsKjfX;AACA,kDtKgfW,6BsKhfX;AACA,uDtKiUU,4BsKjUV;AACA,mDtKgUU,4BsKhUV;AACA,yDtK+TU,4BsK/TV;AACA,oDtK8TU,4BsK9TV;AACA,8CtKwcS,2BsKxcT;AACA,wDtK4TU,4BsK5TV;AACA,yDtKmXW,6BsKnXX;AACA,uEtK0TU,4BsK1TV;AACA,iDtKyTU,4BsKzTV;AACA,+CtKwTU,4BsKxTV;AACA,+CtKuTU,4BsKvTV;AACA,mDtKsTU,4BsKtTV;AACA,+CtKqTU,4BsKrTV;AACA,iEtKoTU,4BsKpTV;AACA,+DtKmTU,4BsKnTV;AACA,qDtKkTU,4BsKlTV;AACA,2DtKyWW,6BsKzWX;AACA,4DtKgTU,4BsKhTV;AACA,oDtK0bS,2BsK1bT;AACA,0DtK8SU,4BsK9SV;AACA,+DtKwbS,2BsKxbT;AACA,oDtKubS,2BsKvbT;AACA,uDtKsbS,2BsKtbT;AACA,oDtKqbS,2BsKrbT;AACA,uDtKobS,2BsKpbT;AACA,oDtKwSU,4BsKxSV;AACA,+CtKuSU,4BsKvSV;AACA,gDtKodW,6BsKpdX;AACA,sDtKqSU,4BsKrSV;AACA,uDtKoSU,4BsKpSV;AACA,uDtKmSU,4BsKnSV;AACA,uDtKkSU,4BsKlSV;AACA,sDtKyVW,6BsKzVX;AACA,qDtK2aS,2BsK3aT;AACA,wDtK0aS,2BsK1aT;AACA,uDtKsVW,6BsKtVX;AACA,qDtKoeY,8BsKpeZ;AACA,sDtK4RU,4BsK5RV;AACA,+CtK2RU,4BsK3RV;AACA,gDtKqaS,2BsKraT;AACA,iDtKoaS,2BsKpaT;AACA,mDtKmaS,2BsKnaT;AACA,gDtKuRU,4BsKvRV;AACA,wDtK6dY,8BsK7dZ;AACA,kDtKqRU,4BsKrRV;AACA,8CtKoRU,4BsKpRV;AACA,uDtKmRU,4BsKnRV;AACA,0DtKydY,8BsKzdZ;AACA,sDtKiRU,4BsKjRV;AACA,kDtK8bW,6BsK9bX;AACA,mDtK+QU,4BsK/QV;AACA,4DtK8QU,4BsK9QV;AACA,mDtK2bW,6BsK3bX;AACA,6DtKmdY,8BsKndZ;AACA,6DtK2QU,4BsK3QV;AACA,uDtK0QU,4BsK1QV;AACA,kDtKiUW,6BsKjUX;AACA,qDtKwQU,4BsKxQV;AACA,2CtKqbW,6BsKrbX;AACA,2CtKsQU,4BsKtQV;AACA,0DtKgZS,2BsKhZT;AACA,wDtK4TW,6BsK5TX;AACA,gDtKmQU,4BsKnQV;AACA,sDtKkQU,4BsKlQV;AACA,kDtKiQU,4BsKjQV;AACA,mClK5JkB,0DkK4JlB;AACA,0CtK+PU,4BsK/PV;AACA,qClK9JkB,0DkK8JlB;AACA,8CtK6PU,4BsK7PV;AACA,sClKhKkB,0DkKgKlB;AACA,gDtKmTW,6BsKnTX;AACA,8CtK0PU,4BsK1PV;AACA,+CtKiTW,6BsKjTX;AACA,kClKpKkB,0DkKoKlB;AACA,8BtK+SW,6BsK/SX;AACA,sCtK6bY,8BsK7bZ;AACA,mCtKqPU,4BsKrPV;AACA,wCtKoPU,4BsKpPV;AACA,6CtK8XS,2BsK9XT;AACA,qDtKkPU,4BsKlPV;AACA,wCtKwbY,8BsKxbZ;AACA,sCtKubY,8BsKvbZ;AACA,oCtK+OU,4BsK/OV;AACA,mCtK8OU,4BsK9OV;AACA,iCtK6OU,4BsK7OV;AACA,sCtK4OU,4BsK5OV;AACA,mCtK2OU,4BsK3OV;AACA,qCtK0OU,4BsK1OV;AACA,8CtKiSW,6BsKjSX;AACA,gDtKgSW,6BsKhSX;AACA,+CtK+RW,6BsK/RX;AACA,+CtK6aY,8BsK7aZ;AACA,mDtK4aY,8BsK5aZ;AACA,4CtKoOU,4BsKpOV;AACA,6CtK2RW,6BsK3RX;AACA,yCtKkOU,4BsKlOV;AACA,iDtKiOU,4BsKjOV;AACA,8CtKgOU,4BsKhOV;AACA,6BhJhMc,kDgJgMd;AACA,mCtK8NU,4BsK9NV;AACA,+BtIsIS,0CsItIT;AACA,+BtK62CS,2BsK72CT;AACA,gCtK42CS,2BsK52CT;AACA,wCtK0NU,4BsK1NV;AACA,wChJtMc,kDgJsMd;AACA,2CtKy2CS,2BsKz2CT;AACA,gDlKrMkB,0DkKqMlB;AACA,0CtK8QW,6BsK9QX;AACA,oDtK4ZY,8BsK5ZZ;AACA,mDtKoNU,4BsKpNV;AACA,uDtK2QW,6BsK3QX;AACA,yDtKyZY,8BsKzZZ;AACA,gCxLuXK,uCwLvXL;AACA,2BxLipCG,qCwLjpCH;AACA,sCxLqXK,uCwLrXL;AACA,iDtK8MU,4BsK9MV;AACA,wCxL+bO,yCwL/bP;AACA,0BxLhHI,sCwLgHJ;AACA,kCxLjHI,sCwLiHJ;AACA,qDtK0MU,4BsK1MV;AACA,mChJtNc,kDgJsNd;AACA,2ClKpNkB,0DkKoNlB;AACA,qCtK+PW,6BsK/PX;AACA,+CtK6YY,8BsK7YZ;AACA,8CtK6PW,6BsK7PX;AACA,4CtKoMU,4BsKpMV;AACA,4CtKmMU,4BsKnMV;AACA,+CtK0PW,6BsK1PX;AACA,kDtKiMU,4BsKjMV;AACA,8CtKgMU,4BsKhMV;AACA,gChJhOc,kDgJgOd;AACA,4CtK8LU,4BsK9LV;AACA,2CtKqPW,6BsKrPX;AACA,2CtKoPW,6BsKpPX;AACA,0CtKmPW,6BsKnPX;AACA,qCtKkPW,6BsKlPX;AACA,qCtKiPW,6BsKjPX;AACA,sCtKmUS,2BsKnUT;AACA,4CtKkUS,2BsKlUT;AACA,6CtK8OW,6BsK9OX;AACqB,kCAAO,UrN5HvB,2BqN4HuB,CAAP;AACO,yCAAQ,WtK81B9B,wBsK91B8B,CAAR;AACH,sCAAO,UrN9H3B,2BqN8H2B,CAAP;AACE,wCAAO,UrN/H7B,2BqN+H6B,CAAP;AACE,0CAAQ,WtK21B/B,wBsK31B+B,CAAR;AACP,mCAAO,UrNjIxB,2BqNiIwB,EAAqB,UzLvLxC,0CyLuLwC,EAA5B;AACW,8CAAO,UrNlInC,2BqNkImC,CAAP;AACL,yCAAQ,WtKw1B9B,wBsKx1B8B,CAAR;AACQ,iDAAO,UtKu1BrC,wBsKv1BqC,EACrC,QtK20BO,+BsK30BP,CAD8B;AAEP,0CAAQ,WtKq1B/B,wBsKr1B+B,CAAR;AACW,qDAAQ,WtKo1B1C,wBsKp1B0C,CAAR;AACZ,yCAAO,UrNxI9B,2BqNwI8B,CAAP;AACM,+CAAO,UrNzIpC,2BqNyIoC,CAAP;AACM,qDAAQ,WtKi1B1C,wBsKj1B0C,CAAR;AACQ,6DAAO,UtKg1BjD,wBsKh1BiD,EACjD,QtKo0BO,+BsKp0BP,CAD0C;AAEb,gDAAQ,WtK80BrC,wBsK90BqC,CAAR;AACH,6CAAQ,WtK60BlC,wBsK70BkC,CAAR;AAjQrB;AA0Qb;AArRF,GAuRc,mCAvRd;ACAA,gCAES,oVAFT;;;AAYe;;;AACX;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AASA;AA/CW;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAqGoB;AAEjC,qBAAU;AACV,qBAAU,aAAV,GAAwB,kDAA6E,GAA1B,sBAAS,CAAC,gBlNqKjC,GkNrKgC,CAAV,GAA4B,qBAAD;AACrG,qBAAU;AAJuB;AAOQ;AAEzC;AACA;AAEA,qBAAU,MAAK,WAAC,CAAM,sEAAN;AAChB,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,sBAAW,iBAAC,CAAe,SAAf;AACZ,qBAAU;AACV,UAAG,eAAU,eAAC,EAAW,KAAC,CAA1B,EAAiC,gBAAW,QAAC,CAAM,iBAAN,CAA7C;AACA,UAAG,eAAU,eAAC,EAAW,GAAC,CAA1B,EAAiC,gBAAW,QAAC,CAAM,aAAa,GAAC,qBAAQ,CAAC,eAAU,eAAC,EAAZ,CAA5B,CAA7C;AACA,UAAG,eAAU,eAAC,EAAW,GAAC,EAA1B,EAAkC,gBAAW,QAAC,CAAM,kDAAN,CAA9C;AACA,UAAG,eAAU,eAAC,EAAW,GAAC,GAA1B,EAAmC,gBAAW,QAAC,CAAM,WAA4C,GAAhC,qBAAQ,CAAC,eAAU,eAAC,EAAZ,CAAT,GAAkC,sBAAnD,CAA/C;AAGA,aAAM,CAAI,eAAU,OAAC,EAArB;AAGE,sBAAa,+BAAuN,GAAvL,iBAAY,YAAC,EAAd,GAAuB,KAAD,GAAO,2BAAc,CAAC,mBAAmB,yBAAoB,cAAC,EAAzC,CAAf,GAAoE,UAAD,GAAY,uCAAkC,YAAC,EAApC,GAA6C,KAAD,GAAO,uBAAkB,YAAC,EAApB,GAA6B,YAAD;AACpO,sBAAa,WAAoE,GAAxD,6BAAD,GAA+B,sBAAiB,YAAC,EAAnB,GAA4B,UAAD;AACjF,sBAAa,WAAuD,GAA3C,oBAAO,CAAC,2BAAsB,YAAC,GAAS,EAAjC,CAAR,GAA6C,SAAD;AACpE,sBAAa,WAAoD,GAAxC,QAAD,GAAU,2BAAsB,YAAC,EAAxB,GAAiC,cAAD;AACjE,sBAAa,WAAW,GAAC,QAAD;AAExB,oBAAW,eAAU,iBAAC;AACtB,0BAAY,+BAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,uBAAU,MAAC,CAAW,iBAAY,YAAC,EAAxB;AACX,uBAAU,eAAC,CAAa,wCAAb;AACX,uBAAU,SAAC,CAAO,GAAP;AACX,uBAAU,MAAK,WAAC,CAAM,WAAN;AAChB,uBAAU,oBAAC,CAAkB,sBAAlB;AACX,uBAAU,SAAV,GAAqB;AACrB,uBAAU,iBAAC,CAAe,SAAf;AAEX,uBAAU;;AApC6B;AAvBH;AAEtC,UAAG,gBAAG,CAAC,gBAAgB,gBAAW,OAAM,CAAlC,CAAoC,GAAC,CAA3C;AAEE,uBAAU;AACV,uBAAU,aAAV,GAAwB,kDAA6E,GAA1B,sBAAS,CAAC,gBlNmLnC,GkNnLkC,CAAV,GAA4B,qBAAD;AACrG,uBAAU;OAJZ;AAFsC;AAUD;AAErC,qBAAU;AACV,UAAI;AAHiC;AApCA;;AAErC;AACA;AAEA,uBAAwB,OAAP,OAAU,+BAAH,CAAY,MAAC;AACrC,qBAAU,MAAK,WAAC,CAAM,EAAN;AAChB,qBAAgB,mCAAa,QAAC,eAAS,CAAC;AAE7B,eAAN,MAAS,mCAAH,CAAiB,aAAxB,GAAuC;AAFH,OAAD,CAAT;AAM9B,kBAAY,YAAU,CAAC;AAEnB,wBAAU;AACV,wBAAU;AAHS,OAAD;AAbe;AA0FF;AAEzB;AAEV,yBAAe,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,wBAAc,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,0BAAgB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,kCAAwB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,gDAAsC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,8BAAoB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,kCAAwB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,4CAAkC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,2CAAiC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,iDAAuC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,oCAA0B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,kCAAwB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,0CAAgC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,4CAAkC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,2CAAiC,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,2CAAiC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,+CAAqC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,yCAA+B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAE7C,sBAAW;AACX,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,uBAAY;AACZ,+BAAoB;AACpB,4BAAiB;AACjB,iCAAsB;AACtB,6CAAkC;AAClC,yCAA8B;AAC9B,6BAAkB;AAClB,4BAAiB;AACjB,2BAAgB;AAChB,iCAAsB;AACtB,+BAAoB;AACpB,yCAA8B;AAC9B,uCAA4B;AAC5B,wCAA6B;AAC7B,sCAA2B;AAC3B,8CAAmC;AACnC,iCAAsB;AACtB,+BAAoB;AACpB,0BAAe;AACf,+BAAoB;AACpB,4BAAiB;AACjB,8BAAmB;AACnB,uCAA4B;AAC5B,yCAA8B;AAC9B,wCAA6B;AAC7B,wCAA6B;AAC7B,4CAAiC;AACjC,qCAA0B;AAC1B,sCAA2B;AAC3B,kCAAuB;AACvB,0CAA+B;AAC/B,uCAA4B;AAC5B;AACE,qBAAQ,cAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,kBAAI,SAAJ,GAAgB;AAChB,kBAAI,SAAC,CAAS,KAAT;AACL,kBAAI,UAAC,CAAU,CAAC,EAAX;AACL,kBAAI,QAAC,CAAQ,QAAR;AACL,kBAAI,SAAC,CAAS,EAAT;AACL,2BAAc,KAAd;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,CAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,EAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,WAAC,CAAW,aAAX;AACZ,wBAAW,oBAAC,CAAoB,QAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,cAAC,CAAc,wCAAd;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,uBAAQ,CAAC,iBAAa,KAAM,UAAW,kBAA/B;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,EAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,4BAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,WAAV,GAAwB;AACxB,uBAAU,iBAAC,CAAiB,gBAAjB;AACX,uBAAU,cAAC,CAAc,aAAG,oBAAjB;AACX,uBAAU,iBAAC,CAAiB,CAAjB;AACX,uBAAU,aAAV,GAA0B;AAC1B,uBAAU,UAAV,GAAuB;AACvB,uBAAU,QAAC,CAAQ,EAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,yBAAY,mBAAmB,CAAC,eAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,UAAZ,GAAyB;AACzB,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,GAAR;AAClB,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,+CAAkC,mBAAmB,CAAC,eAAD;AACrD,+CAAkC,QAAC,CAAQ,oCAAR;AACnC,+CAAkC,WAAlC,GAAgD;AAChD,+CAAkC,QAAC,CAAQ,EAAR;AACnC,2CAA8B,mBAAmB,CAAC,eAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,EAAR;AAC/B,+BAAkB,mBAAmB,CAAC,eAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,6BAAgB,mBAAmB,CAAC,eAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,2CAA8B,mBAAmB,CAAC,eAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,yCAA4B,mBAAmB,CAAC,eAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,wCAA2B,mBAAmB,CAAC,eAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,gDAAmC,mBAAmB,CAAC,eAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,gDAAmC,QAAC,CAAQ,EAAR;AACpC,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,4BAAe,mBAAmB,CAAC,eAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,EAAR;AAChB,iCAAoB,mBAAmB,CAAC,eAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,GAAR;AACrB,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,GAAR;AAClB,gCAAmB,mBAAmB,CAAC,eAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,GAAR;AACpB,yCAA4B,mBAAmB,CAAC,eAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,2CAA8B,mBAAmB,CAAC,eAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,0CAA6B,mBAAmB,CAAC,eAAD;AAChD,0CAA6B,QAAC,CAAQ,+BAAR;AAC9B,0CAA6B,WAA7B,GAA2C;AAC3C,8CAAiC,mBAAmB,CAAC,eAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,uCAA0B,mBAAmB,CAAC,eAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,GAAR;AAC3B,wCAA2B,mBAAmB,CAAC,eAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,oCAAuB,mBAAmB,CAAC,eAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,GAAR;AACxB,4CAA+B,mBAAmB,CAAC,eAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,GAAR;AAChC,yCAA4B,mBAAmB,CAAC,eAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,QAAC,CAAQ,GAAR;AAxM/B;AA0ME,wBAAW;AACX,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,yBAAY;AACZ,iCAAoB;AACpB,8BAAiB;AACjB,mCAAsB;AACtB,+CAAkC;AAClC,2CAA8B;AAC9B,+BAAkB;AAClB,8BAAiB;AACjB,6BAAgB;AAChB,mCAAsB;AACtB,iCAAoB;AACpB,2CAA8B;AAC9B,yCAA4B;AAC5B,0CAA6B;AAC7B,wCAA2B;AAC3B,gDAAmC;AACnC,mCAAsB;AACtB,iCAAoB;AACpB,4BAAe;AACf,iCAAoB;AACpB,8BAAiB;AACjB,gCAAmB;AACnB,yCAA4B;AAC5B,2CAA8B;AAC9B,0CAA6B;AAC7B,0CAA6B;AAC7B,8CAAiC;AACjC,uCAA0B;AAC1B,wCAA2B;AAC3B,oCAAuB;AACvB,4CAA+B;AAC/B,yCAA4B;AA/O9B;AAjFmC;AArJtB;;;AACX,6BjJGc,kDiJHd;AACA,6BxLq7BY,8CwLr7BZ;AACA,6BxLo7BY,8CwLp7BZ;AACA,6BxLm7BY,8CwLn7BZ;AACA,8BzLkGI,sCyLlGJ;AACA,6BzLmkBK,uCyLnkBL;AACA,+BvKodW,6BuKpdX;AACA,uCvKkmBY,8BuKlmBZ;AACA,oCvK0ZU,4BuK1ZV;AACA,yCvKyZU,4BuKzZV;AACA,qDvKwZU,4BuKxZV;AACA,iDvKuZU,4BuKvZV;AACA,qCvKsZU,4BuKtZV;AACA,oCvKqZU,4BuKrZV;AACA,mCnKRkB,0DmKQlB;AACA,yCvKmZU,4BuKnZV;AACA,uCnKVkB,0DmKUlB;AACA,iDvKycW,6BuKzcX;AACA,+CvKgZU,4BuKhZV;AACA,gDvKucW,6BuKvcX;AACA,8CvKyhBS,2BuKzhBT;AACA,sDvK6YU,4BuK7YV;AACA,yCvKmlBY,8BuKnlBZ;AACA,uCvKklBY,8BuKllBZ;AACA,kCvK0YU,4BuK1YV;AACA,uCvKyYU,4BuKzYV;AACA,oCvKwYU,4BuKxYV;AACA,sCvKuYU,4BuKvYV;AACA,+CvK8bW,6BuK9bX;AACA,iDvK6bW,6BuK7bX;AACA,gDvK4bW,6BuK5bX;AACA,gDvK0kBY,8BuK1kBZ;AACA,oDvKykBY,8BuKzkBZ;AACA,6CvKiYU,4BuKjYV;AACA,8CvKwbW,6BuKxbX;AACA,0CvK+XU,4BuK/XV;AACA,kDvK8XU,4BuK9XV;AACA,+CvK6XU,4BuK7XV;AACqB,kCAAO,UtN2EvB,2BsN3EuB,CAAP;AACQ,0CAAQ,WvKqiC/B,wBuKriC+B,CAAR;AACH,uCAAO,UtNyE5B,2BsNzE4B,CAAP;AACD,sCAAO,UtNwE3B,2BsNxE2B,CAAP;AA1Cd;AAoDb;AAhEF,GAkEc,oCAlEd;ACAA,2BAES,+eAFT;;;AAaa;;;AACT;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAnDS;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAsGoB;AAE/B;AAEA,qBAAU,MAAK,WAAC,CAAM,gEAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAW,eAAU,iBAAC;AACtB,kBAAO;AAVwB;AA3BK;AAEpC;AACA;AAEA,kBAAW,eAAU,iBAAC;AACtB,aAAE,iBAAC,CAAe,SAAf;AACH,UAAG;AACH,aAAE,WAAC,CAAS,IAAT;AACH,aAAE,YAAC,CAAU,CAAV;AACH,aAAE,YAAC,CAAU,OAAO,eAAC,EAAW,GAAC,CAA9B;AACH,aAAE,SAAM,CAAC,EAAE,EAAI,UAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,aAAP;AACR,aAAE,SAAM,CAAC,EAAE,EAAI,UAAP;AACR,aAAO;AAEP,aAAM,CAAI,OAAO,OAAC,EAAlB;AAEM,SAAJ,IAAG;AACH,eAAE,SAAM,CAAC,EAAE,EAAI,wBAAmB,YAAC,EAA3B;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,2BAAsB,YAAC,EAA9B;AACR,eAAE,SAAM,CAAC,EAAE,EAAI,6BAAwB,YAAC,EAA2J,GAAlJ,KAAD,GAAO,kBAAa,YAAC,EAAf,GAAwB,KAAD,GAAO,2BAAsB,YAAC,EAAxB,GAAiC,MAAD,GAAQ,yBAAoB,YAAC,EAAtB,GAA+B,MAAD,GAAQ,yBAAoB,YAAC,EAAtB,GAA+B,KAAD,GAAO,0BAAqB,YAAC,EAAlN;AACR,eAAO;;AAtB2B;AAPD;AAEnC,kBAAO;AACP,UAAI;AAH+B;AA+CF;AAEvB;AAEV,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,gBAAM,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,4BAAkB,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,qBAAW,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,uBAAa,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,iCAAuB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,kCAAwB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,qCAA2B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,qCAA2B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,2BAAiB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,qCAA2B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,iCAAuB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,gCAAsB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,qCAA2B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,2BAAiB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,8BAAoB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,iCAAuB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,iCAAuB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,8BAAoB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,6BAAmB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,4BAAkB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,4BAAkB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,0BAAgB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,4BAAkB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,mCAAyB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,8BAAoB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,oBAAU,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAEtB,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,aAAE;AACF,qBAAU;AACV,yBAAc;AACd,kBAAO;AACP,oBAAS;AACT,8BAAmB;AACnB,iCAAsB;AACtB,iCAAsB;AACtB,+BAAoB;AACpB,4BAAiB;AACjB,kCAAuB;AACvB,kCAAuB;AACvB,+BAAoB;AACpB,wBAAa;AACb,kCAAuB;AACvB,8BAAmB;AACnB,6BAAkB;AAClB,kCAAuB;AACvB,iCAAsB;AACtB,mCAAwB;AACxB,wBAAa;AACb,2BAAgB;AAChB,8BAAmB;AACnB,8BAAmB;AACnB,2BAAgB;AAChB,6BAAkB;AAClB,4BAAiB;AACjB,0BAAe;AACf,uBAAY;AACZ,8BAAmB;AACnB,+BAAoB;AACpB,4BAAiB;AACjB,yBAAc;AACd,2BAAgB;AAChB,yBAAc;AACd,uBAAY;AACZ,iCAAsB;AACtB,8BAAmB;AACnB,8BAAmB;AACnB,uBAAY;AACZ,2BAAgB;AAChB,2BAAgB;AAChB,8BAAmB;AACnB,yBAAc;AACd,4BAAiB;AACjB,gCAAqB;AACrB,2BAAgB;AAChB,iBAAM;AACN;AACE,qBAAQ,YAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,yCAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,YAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,eAAE,mBAAmB,CAAC,IAAD;AACrB,eAAE,QAAC,CAAQ,IAAR;AACH,eAAE,QAAC,CAAQ,CAAR;AACH,eAAE,OAAC,CAAO,GAAP;AACH,eAAE,SAAC,CAAS,GAAT;AACH,eAAE,UAAC,CAAU,EAAV;AACH,eAAE,oBAAC,CAAoB,gDAApB;AACH,eAAE,eAAC,CAAe,wCAAf;AACH,eAAE,cAAC,CAAc,2CAAd;AACH,eAAE,eAAC,CAAe,QAAf;AACH,eAAE,gBAAC,CAAc,CAAd;AACH,eAAE,aAAC,CAAa,KAAb;AACH,eAAE,eAAC,CAAe,yCAAf;AACH,eAAE,0BAAC,CAA0B,YAA1B;AACH,eAAE,mBAAC,CAAmB,gDAAnB;AACH,eAAE,yBAAC,CAAyB,gDAAzB;AACH,eAAE,YAAC,CAAY,IAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,eAAE,YAAC,CAAY,CAAZ;AACH,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,CAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,gBAAC,CAAc,CAAd;AACf,2BAAc,oBAAC,CAAoB,2BAApB;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,iBAAC,CAAiB,sBAAjB;AACf,2BAAc,YAAC,CAAY,IAAZ;AACf,2BAAc,YAAC,CAAY,sBAAZ;AACf,2BAAc,gBAAC,CAAgB,qBAAhB;AACf,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,WAAP,GAAqB;AACrB,oBAAO,iBAAC,CAAiB,SAAjB;AACR,oBAAO,cAAC,CAAc,aAAG,oBAAjB;AACR,oBAAO,aAAP,GAAuB;AACvB,oBAAO,UAAP,GAAoB;AACpB,oBAAO,QAAC,CAAQ,CAAR;AACR,oBAAO,OAAC,CAAO,EAAP;AACR,sBAAS,mBAAmB,CAAC,YAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,WAAT,GAAuB;AACvB,sBAAS,UAAT,GAAsB;AACtB,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,mCAAsB,mBAAmB,CAAC,YAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,mCAAsB,mBAAmB,CAAC,YAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,oCAAuB,mBAAmB,CAAC,YAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,mBAAmB,CAAC,YAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,QAAC,CAAQ,GAAR;AACrB,0BAAa,mBAAmB,CAAC,YAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,QAAC,CAAQ,EAAR;AACd,oCAAuB,mBAAmB,CAAC,YAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,+BAAkB,mBAAmB,CAAC,YAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,oCAAuB,mBAAmB,CAAC,YAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,mCAAsB,mBAAmB,CAAC,YAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,GAAR;AACvB,qCAAwB,mBAAmB,CAAC,YAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,0BAAa,mBAAmB,CAAC,YAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,QAAC,CAAQ,EAAR;AACd,6BAAgB,mBAAmB,CAAC,YAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,6BAAgB,mBAAmB,CAAC,YAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,+BAAkB,mBAAmB,CAAC,YAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,4BAAe,mBAAmB,CAAC,YAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,yBAAY,mBAAmB,CAAC,YAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,QAAC,CAAQ,EAAR;AACb,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,CAAR;AACpB,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,QAAC,CAAQ,EAAR;AACf,6BAAgB,mBAAmB,CAAC,YAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,QAAC,CAAQ,EAAR;AACf,yBAAY,mBAAmB,CAAC,YAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,QAAC,CAAQ,EAAR;AACb,mCAAsB,mBAAmB,CAAC,YAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,yBAAY,mBAAmB,CAAC,YAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,WAAZ,GAA0B;AAC1B,yBAAY,QAAC,CAAQ,CAAR;AACb,6BAAgB,mBAAmB,CAAC,YAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,6BAAgB,mBAAmB,CAAC,YAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,EAAR;AACjB,gCAAmB,mBAAmB,CAAC,YAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,GAAR;AACpB,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,QAAC,CAAQ,EAAR;AACf,8BAAiB,mBAAmB,CAAC,YAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,kCAAqB,mBAAmB,CAAC,YAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,6BAAgB,mBAAmB,CAAC,YAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,WAAhB,GAA8B;AAC9B,6BAAgB,QAAC,CAAQ,GAAR;AACjB,mBAAM,mBAAmB,CAAC,IAAD;AACzB,mBAAM,QAAC,CAAQ,QAAR;AACP,mBAAM,WAAC,CAAW,YAAX;AACP,mBAAM,QAAC,CAAQ,EAAR;AACP,mBAAM,OAAC,CAAO,EAAP;AArQT;AAuQE,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,eAAE;AACF,uBAAU;AACV,2BAAc;AACd,oBAAO;AACP,sBAAS;AACT,gCAAmB;AACnB,mCAAsB;AACtB,mCAAsB;AACtB,iCAAoB;AACpB,8BAAiB;AACjB,oCAAuB;AACvB,oCAAuB;AACvB,iCAAoB;AACpB,0BAAa;AACb,oCAAuB;AACvB,gCAAmB;AACnB,+BAAkB;AAClB,oCAAuB;AACvB,mCAAsB;AACtB,qCAAwB;AACxB,0BAAa;AACb,6BAAgB;AAChB,gCAAmB;AACnB,gCAAmB;AACnB,6BAAgB;AAChB,+BAAkB;AAClB,8BAAiB;AACjB,4BAAe;AACf,yBAAY;AACZ,gCAAmB;AACnB,iCAAoB;AACpB,8BAAiB;AACjB,2BAAc;AACd,6BAAgB;AAChB,2BAAc;AACd,yBAAY;AACZ,mCAAsB;AACtB,gCAAmB;AACnB,gCAAmB;AACnB,yBAAY;AACZ,6BAAgB;AAChB,6BAAgB;AAChB,gCAAmB;AACnB,2BAAc;AACd,8BAAiB;AACjB,kCAAqB;AACrB,6BAAgB;AAChB,mBAAM;AAzTR;AA3GiC;AAnHtB;;;AACT,0BlJEc,kDkJFd;AACA,yBxKijDS,2BwKjjDT;AACA,6BzLm7BY,8CyLn7BZ;AACA,6BzLk7BY,8CyLl7BZ;AACA,6BzLi7BY,8CyLj7BZ;AACA,qB5Ig7BW,0C4Ih7BX;AACA,6B1LikBK,uC0LjkBL;AACA,iC1LoRG,qC0LpRH;AACA,4BxKidW,6BwKjdX;AACA,sCxK+lBY,8BwK/lBZ;AACA,yCxKuZU,4BwKvZV;AACA,yCxKsZU,4BwKtZV;AACA,uCxK4lBY,8BwK5lBZ;AACA,oCxKoZU,4BwKpZV;AACA,0CxK0lBY,8BwK1lBZ;AACA,0CxKylBY,8BwKzlBZ;AACA,uCxKiZU,4BwKjZV;AACA,gCxKgZU,4BwKhZV;AACA,0CxKucW,6BwKvcX;AACA,sCxKqlBY,8BwKrlBZ;AACA,qCxKqcW,6BwKrcX;AACA,0CxKmlBY,8BwKnlBZ;AACA,yCxK2YU,4BwK3YV;AACA,2CxK0YU,4BwK1YV;AACA,gCxKyYU,4BwKzYV;AACA,mCxKsjBW,6BwKtjBX;AACA,sCxKqjBW,6BwKrjBX;AACA,sCxKojBW,6BwKpjBX;AACA,mCxKmjBW,6BwKnjBX;AACA,qCxKoYU,4BwKpYV;AACA,oCxKmYU,4BwKnYV;AACA,kCxKgjBW,6BwKhjBX;AACA,+BxKiYU,4BwKjYV;AACA,sCxKgYU,4BwKhYV;AACA,uCxK0gBS,2BwK1gBT;AACA,oCxK8XU,4BwK9XV;AACA,iCxK6XU,4BwK7XV;AACA,mCxK4XU,4BwK5XV;AACA,iCxK2XU,4BwK3XV;AACA,+BxK0XU,4BwK1XV;AACA,yCxKyXU,4BwKzXV;AACA,sCxKwXU,4BwKxXV;AACA,sCxKuXU,4BwKvXV;AACA,+BxKsXU,4BwKtXV;AACA,mCxKqXU,4BwKrXV;AACA,mCxKoXU,4BwKpXV;AACA,sCxKmXU,4BwKnXV;AACA,iCxKkXU,4BwKlXV;AACA,oCxKiXU,4BwKjXV;AACA,wCxKgXU,4BwKhXV;AACA,mCxK+WU,4BwK/WV;AACqB,kCAAO,UvN6DvB,2BuN7DuB,CAAP;AACK,uCAAQ,WxKuhC5B,wBwKvhC4B,CAAR;AACD,sCAAO,UvN2D3B,2BuN3D2B,CAAP;AAtDhB;AA6DX;AA1EF,GA4Ec,gBA5Ed;ACAA,4BAES,4gBAFT;;;AAcc;;;AACV;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAeA;AApFU;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAyNoB;AAEhC,6BAAiB,uBAAU,CAAC,KAAK,EAAE,CAAR;AAC3B,mBAAQ;AAHwB;AAOY;AAE5C;AAEA,UAAG;AACH,qBAAU,YAAC,CAAU,mBAAc,eAAC,EAAW,GAAC,CAArC;AACX,qBAAU,YAAC,CAAU,CAAV;AACX,qBAAU,SAAM,CAAC,EAAE,EAAI,OAAP;AAChB,qBAAU,SAAM,CAAC,EAAE,EAAI,eAAP;AAChB,qBAAU,SAAM,CAAC,EAAE,EAAI,oBAAP;AAChB,qBAAU,SAAM,CAAC,EAAE,EAAI,OAAP;AAEhB,yBAAc;AACd,aAAM,CAAI,mBAAc,OAAC,EAAzB;AAEM,SAAJ,IAAG;AACH,uBAAU,SAAM,CAAC,EAAE,EAAI,6BAAwB,YAAC,EAAhC;AAChB,uBAAU,SAAM,CAAC,EAAE,EAAI,6CAAwC,YAAC,EAAhD;AAChB,uBAAU,SAAM,CAAC,EAAE,EAAI,sCAAiC,YAAC,EAAzC;AAChB,uBAAU,SAAM,CAAC,EAAE,EAAI,0BAAqB,YAAC,EAA7B;AAChB,2BAAc;;AApB4B;AAoED;AAE3C;AAGA,UAAG,kBAAa,eAAC,EAAW,GAAC,CAA7B;AAEE,YAAG,6BAAwB,YAAC,EAAQ,KAAC,OAArC;AAEE,iCAAiB,+BAA0B,cAAC;AAC5C,8BAAe,WAAC,CAAS,iBAAiB,GAAC,2BAAc,CAAC,aAAa,oBAAd,CAAzC;AAChB,yBAAU,WAAC,CAAS,IAAT;;AAIX,8BAAe,WAAC,CAAS,6DAAT;;;AAKlB,4BAAe,WAAC,CAAS,6DAAT;;AAElB,qBAAU,MAAK,WAAC,CAAM,iEAAN;AAChB,kBAAW,eAAU,iBAAC;AACtB,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAW,eAAU,iBAAC;AACtB,0BAAe,iBAAC,CAAe,SAAf;AAChB,kBAAW,eAAU,iBAAC;AACtB,sBAAW,iBAAC,CAAe,SAAf;AACZ,sBAAW,YAAC,CAAU,CAAV;AACZ,sBAAW,SAAM,CAAC,EAAE,EAAI,qBAAP;AACjB,sBAAW,SAAM,CAAC,EAAE,EAAI,YAAP;AACjB,sBAAW,SAAM,CAAC,EAAE,EAAI,OAAP;AACjB,kBAAW,gBAAW,eAAa,CAAC,EAAE,CAAH;AACnC,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAW,gBAAW,eAAa,CAAC,EAAE,CAAH;AACnC,yBAAc,iBAAC,CAAe,SAAf;AACf,4BAAiB,iBAAC,CAAe,SAAf;AAClB,kBAAW,gBAAW,eAAa,CAAC,EAAE,CAAH;AACnC,kBAAO,iBAAC,CAAe,SAAf;AACR,kBAAW,gBAAW,eAAa,CAAC,EAAE,CAAH;AACnC,mBAAQ,iBAAC,CAAe,SAAf;AACT,kBAAW,gBAAW,eAAa,CAAC,EAAE,CAAH;AACnC,uBAAY,iBAAC,CAAe,SAAf;AACb,kBAAW,eAAU,iBAAC;AACtB,iCAAsB,iBAAC,CAAe,SAAf;AACvB,qBAAU,iBAAC,CAAe,SAAf;AACX,UAAG,oBAAe,KAAE,uBAAU,CAAC,KAAK,EAAE,CAAR,CAA9B;AAEE,2BAAc,aAAd,GAA4B,2BAAwE,GAA5C,2BAAc,CAAC,aAAa,oBAAd,CAAf,GAA8C,2DAAD;AACpG,2BAAc;OAHhB;AAlD2C;AAlHP;AAEpC,wBAAa;AACb,UAAI;AAHgC;AAsEE;AAEtC,qBAAU,OAAM;AAChB,mBAAQ;AACR,aAAM,CAAI,aAAQ,OAAC,EAAnB;AAEE,uBAAU,OAAM,IAAI,CAAC,kBAAa,YAAC,EAAf;AACpB,qBAAQ;;AAEV,qBAAU,WAAC,CAAS,KAAT;AACX,qBAAU,QAAC,CAAM,KAAN;AACX,iBAAM;AAXgC;AA7CG;AAEzC;AAEA,iBAAU,iBAAI,CAAC,mBAAc,QAAC,EAAhB;AACd,UAAU,QAAD,OAAU,GAAC,CAApB;AAEE,oBAAO;AACP,oBAAO,UAAP,GAAkB;AAClB,oBAAO,aAAP,GAAqB,4BAAoF,GAAvD,sBAAS,CAAC,SpNuDV,GoNvDS,CAAV,GAAqB,eAAD,GAAiB,sBAAS,CAAC,SpNuD9C,GoNvD6C,CAAV,GAAqB,GAAD;AACzG,oBAAO;OALT;AALyC;AA5GR;;AAEjC;AACqB;AAEnB;AAEE,gBAAc,OAAN,MAAS,iCAAH;AAJG;AAUK;AAEtB,4BAAc,QAAC,CAAM,iBAAI,CAAC,IAAI,aAAL,CAAV;AACf,kCAAoB,CAAC,KAAD;AAHE;AAMxB,UAAG,kBAAH;AAEE,eAAM,iCAAY,QAAC,eAAS,aAAT;AACnB,YAAI,YAAU;;AAId,yCAAW,CAAC,wFAAD;;AA1BkB;AAyFI;AAErC,uBAAY,WAAC,CAAS,KAAT;AACb,UAAG,OAAO,eAAC,EAAW,GAAC,CAAvB;AAEE,8BAAiB,WAAC,CAAS,wBAAT;OAFpB;AAIA,UAAG,OAAO,eAAC,EAAW,KAAC,CAAvB;AAEE,8BAAiB,WAAC,CAAS,oBAAoB,GAAC,+BAA0B,YAAC,EAAzD;AAClB,yBAAY,WAAC,CAAS,IAAT;AACb,qBAAQ;OAJV;AAMA,UAAG,OAAO,eAAC,EAAW,GAAC,CAAvB;AAEE,8BAAiB,WAAC,CAAS,4BAAT;OAFpB;AAbqC;AA1DC;AAEtC;AAEA,UAAG,aAAQ,QAAC,EAAI,KAAC,EAAjB;AAEE,yCAAW,CAAC,6BAAD;AACX;OAHF;AAKA,UAAG,4BAAa,CAAC,aAAQ,QAAC,GAAK;;;;UAAf,CAAuB,KAAC,KAAxC;AAEE,yCAAW,CAAC,6BAAD;AACX;OAHF;AAKA,UAAG,mBAAc,QAAC,EAAI,KAAC,EAAvB;AAEE,yCAAW,CAAC,wBAAD;AACX;OAHF;AAKA,UAAG,eAAU,QAAC,EAAI,KAAC,EAAnB;AAEE,yCAAW,CAAC,sBAAD;AACX;OAHF;AAKA,UAAG,aAAQ,OAAO,CAAC,QAAS,eAAU,QAAC,GAAK,EAA1B,CAA6B,KAAC,KAAhD;AAEE,yCAAW,CAAC,+BAAD;AACX;OAHF;AAKA,UAAG,yBAAoB,YAAC,EAAQ,KAAE,mBAAc,QAAC,EAAjD;AAEE,yCAAW,CAAC,iCAAD;AACX;OAHF;AAKA,iBAAM;AACN,8BAAmB,aAAC,CAAO,YAAO,eAAC,EAAf;AACpB,sBAAW,aAAC,CAAO,aAAQ,eAAC,EAAhB;AAEZ,8BAAmB,cAAC,CAAY,oBAAZ;AACpB,oCAAyB,YAAC,CAAU,+BAA0B,YAAC,EAArC;AAC1B,oCAAyB,YAAC,CAAU,+BAA0B,YAAC,EAArC;AAC1B,wBAAa,WAAC,CAAS,OAAT;AACd,0BAAe,WAAC,CAAS,yBAAoB,WAAC,EAA9B;AAChB,+BAAoB,WAAC,CAAS,CAAT;AACrB,4BAAiB,WAAC,CAAS,CAAT;AAClB,iCAAsB,WAAC,CAAS,CAAT;AACvB,+BAAoB,cAAC,CAAY,mBAAI,GAAC,mBAAjB;AACrB,kCAAuB,YAAC,CAAU,2BAAV;AACxB,iBAAM;AAhDgC;AAiKF;AAEpC,iBAAM;AAF8B;AAxBQ;AAG5C;AAEA,eAAS,QAAS,kBAAC,IAAI,QAAL,uBAAlB;AAAI;AAEF,YAAG,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAM,KAAE,EAA1B,EAAkC,iCAAW,CAAC,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAhB,CAA7C;;AAEF,UAAG,IAAI,QAAQ,CAAC,CAAD,CAAG,MAAM,KAAC,EAAzB;AAEE,2BAAc;AACd,qBAAQ,QAAC,CAAM,EAAN;AACT,2BAAc,QAAC,CAAM,EAAN;AACf,2BAAc;AACd,2BAAc;OANhB;AAT4C;AAmBR;AAEpC,wBAAa;AAFuB;AAoEF;AAExB;AAEV,6BAAmB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1B,oCAA0B,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,+BAAqB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,wBAAc,gCAAS,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,qBAAW,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACnB,4BAAkB,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,sBAAY,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AAClB,0BAAgB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,yBAAe,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,iCAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,4BAAkB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,yCAA+B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACpD,iCAAuB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,yCAA+B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,+CAAqC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,mCAAyB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,0CAAgC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,6CAAmC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChD,0CAAgC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,uCAA6B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,4CAAkC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,4CAAkC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,6CAAmC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,0CAAgC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,iDAAuC,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACnD,sDAA4C,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzD,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,2BAAiB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,wCAA8B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,sBAAY,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,2BAAiB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,qBAAW,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,kCAAwB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrC,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,wCAA8B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,4BAAkB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9B,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,wBAAc,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,oBAAU,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,iCAAuB,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,yBAAe,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,iCAAuB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,2BAAiB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,6BAAmB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,kCAAwB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,qCAA2B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACxC,kCAAwB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,6BAAmB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,+BAAqB,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,oCAA0B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,qCAA2B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,kCAAwB,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAE3C,0BAAe;AACf,iCAAsB;AACtB,4BAAiB;AACjB,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,kBAAO;AACP,yBAAc;AACd,mBAAQ;AACR,uBAAY;AACZ,sBAAW;AACX,qBAAU;AACV,yBAAc;AACd,sCAA2B;AAC3B,8BAAmB;AACnB,sCAA2B;AAC3B,4CAAiC;AACjC,4CAAiC;AACjC,gCAAqB;AACrB,kCAAuB;AACvB,kCAAuB;AACvB,uCAA4B;AAC5B,0CAA+B;AAC/B,uCAA4B;AAC5B,kCAAuB;AACvB,oCAAyB;AACzB,yCAA8B;AAC9B,yCAA8B;AAC9B,0CAA+B;AAC/B,uCAA4B;AAC5B,8CAAmC;AACnC,mDAAwC;AACxC,mCAAwB;AACxB,wBAAa;AACb,qCAA0B;AAC1B,mCAAwB;AACxB,mBAAQ;AACR,wBAAa;AACb,kBAAO;AACP,+BAAoB;AACpB,qCAA0B;AAC1B,qCAA0B;AAC1B,+BAAoB;AACpB,yBAAc;AACd,kCAAuB;AACvB,qBAAU;AACV,+BAAoB;AACpB,iBAAM;AACN,8BAAmB;AACnB,sBAAW;AACX,8BAAmB;AACnB,oCAAyB;AACzB,oCAAyB;AACzB,wBAAa;AACb,0BAAe;AACf,0BAAe;AACf,+BAAoB;AACpB,kCAAuB;AACvB,+BAAoB;AACpB,0BAAe;AACf,4BAAiB;AACjB,iCAAsB;AACtB,iCAAsB;AACtB,kCAAuB;AACvB,+BAAoB;AACpB,sCAA2B;AAC3B;AACE,qBAAQ,aAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,0BAAa,0CAAb;AACA,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,CAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,4BAAe,SAAC,CAAS,EAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,WAAC,CAAW,iBAAX;AAChB,4BAAe,oBAAC,CAAoB,QAApB;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,mBAAC,CAAmB,gDAAnB;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,iBAAC,CAAiB,sBAAjB;AAChB,4BAAe,cAAC,CAAc,wCAAd;AAChB,4BAAe,gBAAC,CAAgB,sBAAhB;AAChB,mCAAsB,mBAAmB,CAAC,IAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,QAAC,CAAQ,CAAR;AACvB,mCAAsB,OAAC,CAAO,GAAP;AACvB,mCAAsB,SAAC,CAAS,GAAT;AACvB,mCAAsB,UAAC,CAAU,EAAV;AACvB,mCAAsB,WAAC,CAAW,uBAAX;AACvB,mCAAsB,oBAAC,CAAoB,QAApB;AACvB,mCAAsB,eAAC,CAAe,yCAAf;AACvB,mCAAsB,mBAAC,CAAmB,gDAAnB;AACvB,mCAAsB,eAAC,CAAe,wCAAf;AACvB,mCAAsB,iBAAC,CAAiB,sBAAjB;AACvB,mCAAsB,cAAC,CAAc,wCAAd;AACvB,mCAAsB,gBAAC,CAAgB,sBAAhB;AACvB,8BAAiB,mBAAmB,CAAC,IAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,QAAC,CAAQ,CAAR;AAClB,8BAAiB,OAAC,CAAO,GAAP;AAClB,8BAAiB,SAAC,CAAS,EAAT;AAClB,8BAAiB,UAAC,CAAU,EAAV;AAClB,8BAAiB,WAAC,CAAW,cAAX;AAClB,8BAAiB,oBAAC,CAAoB,QAApB;AAClB,8BAAiB,eAAC,CAAe,yCAAf;AAClB,8BAAiB,mBAAC,CAAmB,gDAAnB;AAClB,8BAAiB,eAAC,CAAe,wCAAf;AAClB,8BAAiB,iBAAC,CAAiB,sBAAjB;AAClB,8BAAiB,cAAC,CAAc,wCAAd;AAClB,8BAAiB,gBAAC,CAAgB,sBAAhB;AAClB,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,EAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,kBAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,gBAAC,CAAgB,qBAAhB;AACX,uBAAU,aAAC,CAAa,CAAC,CAAd;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,QAAC,CAAQ,CAAR;AACR,oBAAO,OAAC,CAAO,GAAP;AACR,oBAAO,SAAC,CAAS,EAAT;AACR,oBAAO,UAAC,CAAU,EAAV;AACR,oBAAO,WAAC,CAAW,SAAX;AACR,oBAAO,gBAAC,CAAc,CAAd;AACR,oBAAO,oBAAC,CAAoB,mCAApB;AACR,oBAAO,eAAC,CAAe,yCAAf;AACR,oBAAO,mBAAC,CAAmB,gDAAnB;AACR,oBAAO,eAAC,CAAe,wCAAf;AACR,oBAAO,iBAAC,CAAiB,sBAAjB;AACR,oBAAO,cAAC,CAAc,wCAAd;AACR,oBAAO,gBAAC,CAAgB,sBAAhB;AACR,uBAAQ,CAAC,aAAS,KAAM,UAAW,cAA3B;AACR,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,CAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,EAAV;AACf,2BAAc,gBAAC,CAAc,CAAd;AACf,2BAAc,oBAAC,CAAoB,2BAApB;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,2BAAc,eAAC,CAAe,wCAAf;AACf,2BAAc,iBAAC,CAAiB,sBAAjB;AACf,2BAAc,YAAC,CAAY,IAAZ;AACf,2BAAc,YAAC,CAAY,gBAAZ;AACf,2BAAc,gBAAC,CAAgB,qBAAhB;AACf,uBAAQ,CAAC,oBAAgB,KAAM,WAAY,sBAAnC;AACR,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,CAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,qBAAQ,SAAC,CAAS,GAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,gBAAC,CAAc,CAAd;AACT,qBAAQ,YAAC,CAAY,wCAAZ;AACT,qBAAQ,oBAAC,CAAoB,2BAApB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,mBAAC,CAAmB,gDAAnB;AACT,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,YAAC,CAAY,WAAZ;AACT,qBAAQ,gBAAC,CAAgB,sBAAhB;AACT,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,QAAC,CAAQ,EAAR;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,EAAT;AACb,yBAAY,UAAC,CAAU,EAAV;AACb,yBAAY,WAAC,CAAW,WAAX;AACb,yBAAY,gBAAC,CAAc,CAAd;AACb,yBAAY,oBAAC,CAAoB,mCAApB;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,mBAAC,CAAmB,gDAAnB;AACb,yBAAY,eAAC,CAAe,wCAAf;AACb,yBAAY,iBAAC,CAAiB,sBAAjB;AACb,yBAAY,cAAC,CAAc,wCAAd;AACb,yBAAY,gBAAC,CAAgB,sBAAhB;AACb,uBAAQ,CAAC,kBAAc,KAAM,UAAW,mBAAhC;AACR,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,CAAC,EAAT;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,GAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,oBAAC,CAAoB,6DAApB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,cAAC,CAAc,2CAAd;AACZ,wBAAW,eAAC,CAAe,QAAf;AACZ,wBAAW,gBAAC,CAAc,CAAd;AACZ,wBAAW,aAAC,CAAa,KAAb;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,0BAAC,CAA0B,YAA1B;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,wBAAW,yBAAC,CAAyB,yDAAzB;AACZ,wBAAW,YAAC,CAAY,IAAZ;AACZ,wBAAW,YAAC,CAAY,CAAZ;AACZ,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,6DAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,eAAC,CAAe,QAAf;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,aAAC,CAAa,KAAb;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,0BAAC,CAA0B,YAA1B;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,yBAAC,CAAyB,yDAAzB;AACX,uBAAU,YAAC,CAAY,IAAZ;AACX,uBAAU,YAAC,CAAY,CAAZ;AACX,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,2BAAc,iBAAC,CAAiB,aAAjB;AACf,2BAAc,cAAC,CAAc,aAAG,oBAAjB;AACf,2BAAc,iBAAC,CAAiB,CAAjB;AACf,2BAAc,aAAd,GAA8B;AAC9B,2BAAc,UAAd,GAA2B;AAC3B,2BAAc,QAAC,CAAQ,GAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,wCAA2B,mBAAmB,CAAC,mBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,UAA3B,GAAwC;AACxC,gCAAmB,mBAAmB,CAAC,mBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,UAAnB,GAAgC;AAChC,wCAA2B,mBAAmB,CAAC,mBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,UAA3B,GAAwC;AACxC,8CAAiC,mBAAmB,CAAC,mBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,EAAR;AAClC,8CAAiC,mBAAmB,CAAC,mBAAD;AACpD,8CAAiC,QAAC,CAAQ,mCAAR;AAClC,8CAAiC,WAAjC,GAA+C;AAC/C,8CAAiC,QAAC,CAAQ,GAAR;AAClC,kCAAqB,mBAAmB,CAAC,mBAAD;AACxC,kCAAqB,QAAC,CAAQ,uBAAR;AACtB,kCAAqB,WAArB,GAAmC;AACnC,oCAAuB,mBAAmB,CAAC,mBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,GAAR;AACxB,oCAAuB,mBAAmB,CAAC,mBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,yCAA4B,mBAAmB,CAAC,mBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,4CAA+B,mBAAmB,CAAC,mBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,4CAA+B,QAAC,CAAQ,EAAR;AAChC,yCAA4B,mBAAmB,CAAC,mBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,oCAAuB,mBAAmB,CAAC,mBAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,sCAAyB,mBAAmB,CAAC,mBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,2CAA8B,mBAAmB,CAAC,mBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,mBAAmB,CAAC,mBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,4CAA+B,mBAAmB,CAAC,mBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,yCAA4B,mBAAmB,CAAC,mBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,gDAAmC,mBAAmB,CAAC,mBAAD;AACtD,gDAAmC,QAAC,CAAQ,qCAAR;AACpC,gDAAmC,WAAnC,GAAiD;AACjD,qDAAwC,mBAAmB,CAAC,mBAAD;AAC3D,qDAAwC,QAAC,CAAQ,0CAAR;AACzC,qDAAwC,WAAxC,GAAsD;AACtD,qDAAwC,QAAC,CAAQ,EAAR;AACzC,qCAAwB,mBAAmB,CAAC,mBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,iBAAC,CAAiB,YAAjB;AACd,0BAAa,cAAC,CAAc,aAAG,oBAAjB;AACd,0BAAa,aAAb,GAA6B;AAC7B,0BAAa,UAAb,GAA0B;AAC1B,0BAAa,QAAC,CAAQ,GAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,uCAA0B,mBAAmB,CAAC,kBAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,UAA1B,GAAuC;AACvC,qCAAwB,mBAAmB,CAAC,kBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,UAAxB,GAAqC;AACrC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,qBAAQ,mBAAmB,CAAC,IAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,WAAR,GAAsB;AACtB,qBAAQ,iBAAC,CAAiB,OAAjB;AACT,qBAAQ,cAAC,CAAc,aAAG,oBAAjB;AACT,qBAAQ,UAAR,GAAqB;AACrB,qBAAQ,QAAC,CAAQ,GAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,0BAAa,mBAAmB,CAAC,aAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,0BAAa,UAAb,GAA0B;AAC1B,0BAAa,QAAC,CAAQ,EAAR;AACd,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,WAAP,GAAqB;AACrB,oBAAO,iBAAC,CAAiB,SAAjB;AACR,oBAAO,cAAC,CAAc,aAAG,oBAAjB;AACR,oBAAO,UAAP,GAAoB;AACpB,oBAAO,QAAC,CAAQ,EAAR;AACR,oBAAO,OAAC,CAAO,EAAP;AACR,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,iCAAoB,UAApB,GAAiC;AACjC,iCAAoB,QAAC,CAAQ,EAAR;AACrB,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,EAAR;AAC3B,uCAA0B,mBAAmB,CAAC,YAAD;AAC7C,uCAA0B,QAAC,CAAQ,4BAAR;AAC3B,uCAA0B,WAA1B,GAAwC;AACxC,uCAA0B,QAAC,CAAQ,GAAR;AAC3B,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,2BAAc,mBAAmB,CAAC,YAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,WAAd,GAA4B;AAC5B,oCAAuB,mBAAmB,CAAC,YAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,uBAAU,mBAAmB,CAAC,YAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,WAAV,GAAwB;AACxB,uBAAU,QAAC,CAAQ,EAAR;AACX,iCAAoB,mBAAmB,CAAC,YAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,mBAAM,mBAAmB,CAAC,IAAD;AACzB,mBAAM,QAAC,CAAQ,QAAR;AACP,mBAAM,mBAAN,GAA4B;AAC5B,mBAAM,WAAN,GAAoB;AACpB,mBAAM,WAAN,GAAoB;AACpB,mBAAM,iBAAC,CAAiB,aAAjB;AACP,mBAAM,cAAC,CAAc,aAAG,oBAAjB;AACP,mBAAM,UAAN,GAAmB;AACnB,mBAAM,QAAC,CAAQ,EAAR;AACP,mBAAM,OAAC,CAAO,GAAP;AACP,gCAAmB,mBAAmB,CAAC,WAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,UAAnB,GAAgC;AAChC,wBAAW,mBAAmB,CAAC,WAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,WAAX,GAAyB;AACzB,wBAAW,UAAX,GAAwB;AACxB,gCAAmB,mBAAmB,CAAC,WAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,UAAnB,GAAgC;AAChC,sCAAyB,mBAAmB,CAAC,WAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,sCAAyB,mBAAmB,CAAC,WAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,GAAR;AAC1B,0BAAa,mBAAmB,CAAC,WAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,WAAb,GAA2B;AAC3B,4BAAe,mBAAmB,CAAC,WAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,GAAR;AAChB,4BAAe,mBAAmB,CAAC,WAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,iCAAoB,mBAAmB,CAAC,WAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,oCAAuB,mBAAmB,CAAC,WAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,oCAAuB,QAAC,CAAQ,EAAR;AACxB,iCAAoB,mBAAmB,CAAC,WAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,4BAAe,mBAAmB,CAAC,WAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,8BAAiB,mBAAmB,CAAC,WAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,mCAAsB,mBAAmB,CAAC,WAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,mBAAmB,CAAC,WAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,oCAAuB,mBAAmB,CAAC,WAAD;AAC1C,oCAAuB,QAAC,CAAQ,yBAAR;AACxB,oCAAuB,WAAvB,GAAqC;AACrC,iCAAoB,mBAAmB,CAAC,WAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,WAApB,GAAkC;AAClC,wCAA2B,mBAAmB,CAAC,WAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AA5b3C;AA8bE,4BAAe;AACf,mCAAsB;AACtB,8BAAiB;AACjB,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,oBAAO;AACP,2BAAc;AACd,qBAAQ;AACR,yBAAY;AACZ,wBAAW;AACX,uBAAU;AACV,2BAAc;AACd,wCAA2B;AAC3B,gCAAmB;AACnB,wCAA2B;AAC3B,8CAAiC;AACjC,8CAAiC;AACjC,kCAAqB;AACrB,oCAAuB;AACvB,oCAAuB;AACvB,yCAA4B;AAC5B,4CAA+B;AAC/B,yCAA4B;AAC5B,oCAAuB;AACvB,sCAAyB;AACzB,2CAA8B;AAC9B,2CAA8B;AAC9B,4CAA+B;AAC/B,yCAA4B;AAC5B,gDAAmC;AACnC,qDAAwC;AACxC,qCAAwB;AACxB,0BAAa;AACb,uCAA0B;AAC1B,qCAAwB;AACxB,qBAAQ;AACR,0BAAa;AACb,oBAAO;AACP,iCAAoB;AACpB,uCAA0B;AAC1B,uCAA0B;AAC1B,iCAAoB;AACpB,2BAAc;AACd,oCAAuB;AACvB,uBAAU;AACV,iCAAoB;AACpB,mBAAM;AACN,gCAAmB;AACnB,wBAAW;AACX,gCAAmB;AACnB,sCAAyB;AACzB,sCAAyB;AACzB,0BAAa;AACb,4BAAe;AACf,4BAAe;AACf,iCAAoB;AACpB,oCAAuB;AACvB,iCAAoB;AACpB,4BAAe;AACf,8BAAiB;AACjB,mCAAsB;AACtB,mCAAsB;AACtB,oCAAuB;AACvB,iCAAoB;AACpB,wCAA2B;AAlgB7B;AA/IkC;AA9VtB;;;AACV,iCnJCc,kDmJDd;AACA,6B1Lm7BY,8C0Ln7BZ;AACA,6B1Lk7BY,8C0Ll7BZ;AACA,6B1Li7BY,8C0Lj7BZ;AACA,gCnJHc,kDmJGd;AACA,6CzKkmBY,8ByKlmBZ;AACA,2CzK0ZU,4ByK1ZV;AACA,kC3L6FI,sC2L7FJ;AACA,6B3L8jBK,uC2L9jBL;AACA,8CrKLkB,0DqKKlB;AACA,sCrKNkB,0DqKMlB;AACA,8CzK4lBY,8ByK5lBZ;AACA,oDzKoZU,4ByKpZV;AACA,oDzKmZU,4ByKnZV;AACA,wCzK6hBS,2ByK7hBT;AACA,0CzKiZU,4ByKjZV;AACA,0CzK2hBS,2ByK3hBT;AACA,+CzK0hBS,2ByK1hBT;AACA,kDzK8YU,4ByK9YV;AACA,+CzKolBY,8ByKplBZ;AACA,0CzKuhBS,2ByKvhBT;AACA,4CzKshBS,2ByKthBT;AACA,iDzKqhBS,2ByKrhBT;AACA,iDzKohBS,2ByKphBT;AACA,kDzKmhBS,2ByKnhBT;AACA,+CzK8kBY,8ByK9kBZ;AACA,sDzKihBS,2ByKjhBT;AACA,2BnJ1Bc,kDmJ0Bd;AACA,gCzKoYU,4ByKpYV;AACA,6B3LwgCO,yC2LxgCP;AACA,6B1Ls5BY,8C0Lt5BZ;AACA,0B3LuiBK,uC2LviBL;AACA,iC3L0PG,qC2L1PH;AACA,0BnJhCc,kDmJgCd;AACA,uCzK8XU,4ByK9XV;AACA,6CzK6XU,4ByK7XV;AACA,6CzK4XU,4ByK5XV;AACA,uCzKsgBS,2ByKtgBT;AACA,iCzKqgBS,2ByKrgBT;AACA,0CzKyXU,4ByKzXV;AACA,6BzKwXU,4ByKxXV;AACA,2B3LiPG,qC2LjPH;AACA,+B3L4hBK,uC2L5hBL;AACA,8B7Iy4BW,0C6Iz4BX;AACA,6B7Iw4BW,0C6Ix4BX;AACA,yC3LuDI,sC2LvDJ;AACA,2DzKkXU,4ByKlXV;AACA,2CzKiXU,4ByKjXV;AACA,oC3LoDI,sC2LpDJ;AACA,uCzK0fS,2ByK1fT;AACA,yBnJjDc,kDmJiDd;AACA,sCrK/CkB,0DqK+ClB;AACA,8BrKhDkB,0DqKgDlB;AACA,sCzKkjBY,8ByKljBZ;AACA,4CzK0WU,4ByK1WV;AACA,4CzKyWU,4ByKzWV;AACA,gCzKmfS,2ByKnfT;AACA,kCzKuWU,4ByKvWV;AACA,kCzKifS,2ByKjfT;AACA,uCzKgfS,2ByKhfT;AACA,0CzKoWU,4ByKpWV;AACA,uCzK0iBY,8ByK1iBZ;AACA,kCzK6eS,2ByK7eT;AACA,oCzK4eS,2ByK5eT;AACA,yCzK2eS,2ByK3eT;AACA,yCzK0eS,2ByK1eT;AACA,0CzKyeS,2ByKzeT;AACA,uCzKoiBY,8ByKpiBZ;AACA,8CzKueS,2ByKveT;AACqB,kCAAO,UxN0CvB,2BwN1CuB,CAAP;AACY,8CAAQ,WzKogCnC,wByKpgCmC,CAAR;AACD,6CAAQ,WzKmgClC,wByKngCkC,CAAR;AACP,sCAAO,UxNuC3B,2BwNvC2B,CAAP;AACE,wCAAQ,WzKigC7B,wByKjgC6B,CAAR;AACG,2CAAO,UxNqChC,2BwNrCgC,CAAP;AACR,mCAAO,UxNoCxB,2BwNpCwB,CAAP;AACI,uCAAQ,WzK8/B5B,wByK9/B4B,CAAR;AACC,wCAAO,UxNkC7B,2BwNlC6B,CAAP;AACF,sCAAQ,WzK4/B3B,wByK5/B2B,CAAR;AACQ,8CAAO,UzK2/BlC,wByK3/BkC,EAAgB,QzKg/B3C,+ByKh/B2C,CAAvB;AACR,sCAAQ,WzK0/B3B,wByK1/B2B,CAAR;AAjFf;AAwFZ;AAtGF,GAwGc,mCAxGd;ACAA,oBAES,gfAFT;;;AAeQ;AAuGc;AACd;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAhBc;eACd,kCACA,IAAA,8BACA,IAAA,4BACA,IAAA,0CACA,IAAA,4CACA,IAAA,oDACA,IAAA,4BACA,IAAA,0CACA,IAAA,0BACA,IAAA,8CACA,IAAA,0BACA,IAAA,wCACA,IAAA,0CACA,IAAA,0CACA,IAAA,sCACA,kCAdA;AAFc;;AACd;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAhBc;;;AACd;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAhBc;AAvGd;;AACJ;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAuDI;AACA;AACJ;AACA;AA5HI;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAunBoB;AAE1B;AACA;AAEA,qBAAU,MAAK,WAAC,CAAM,kEAAgF,GAAb,kBAAD,GAAe,gBAAvF;AAEhB,kBAAW,eAAU,iBAAC;AACtB,uBAAY,iBAAC,CAAe,SAAf;AACb,4BAAiB,iBAAC,CAAe,SAAf;AAClB,sBAAW,iBAAC,CAAe,SAAf;AACZ,qBAAU,iBAAC,CAAe,SAAf;AACX,kBAAW,eAAU,iBAAC;AACtB,yBAAc,iBAAC,CAAe,SAAf;AACf,wBAAa,iBAAC,CAAe,SAAf;AACd,qBAAU,iBAAC,CAAe,SAAf;AAGX,UAAG,uBAAH;AAEE,sBAAS,WAAC,CAAS,IAAT;AACV,yBAAY,WAAC,CAAS,QAAmF,GAA1E,2BAAD,GAAwB,KAAD,GAAO,sBAAD,GAAmB,KAAD,GAAO,qBAAD,GAAkB,IAAD,GAAM,oBAA7F;AACb,0BAAa,WAAC,CAAS,IAAT;AACd,2BAAc,WAAC,CAAS,KAAT;AACf,wBAAW,WAAC,CAAS,QAAG,SAAZ;AACZ,uBAAU,WAAC,CAAS,QAAG,QAAZ;AACX,wBAAW,WAAC,CAAS,QAAG,eAAZ;AACZ,uBAAU,WAAC,CAAS,QAAG,gBAAZ;AACX,6BAAgB,WAAC,CAAS,QAAG,oBAAZ;AACjB,uBAAU,WAAC,CAAS,QAAG,QAAZ;AACX,sBAAS,WAAC,CAAS,QAAG,OAAZ;AACV,gCAAmB,WAAC,CAAS,QAAG,iBAAZ;AACpB,sBAAS,WAAC,CAAS,QAAG,OAAZ;AACV,mBAAM,WAAC,CAAS,QAAG,cAAZ;AACP,4BAAe,WAAC,CAAS,QAAG,aAAZ;AAChB,wBAAW,WAAC,CAAS,QAAG,SAAZ;AACZ,YAAG,sBAAiB,KAAC,OAArB;AAEE,uBAAQ,WAAC,CAAS,IAAT;AACT,uBAAQ,WAAC,CAAS,IAAT;SAHX;;AAQA,qBAAQ,WAAC,CAAS,KAAT;AACT,qBAAQ,WAAC,CAAS,KAAT;AACT,sBAAS,WAAC,CAAS,KAAT;AACV,yBAAY,WAAC,CAAS,2BAAT;AACb,0BAAa,WAAC,CAAS,KAAT;AACd,2BAAc,WAAC,CAAS,IAAT;AACf,yBAAgB,mCAAa,QAAC;AAC9B,wBAAW,QAAC,CAAM,cAAc,OAAC,SAAQ,CAAC,kBAAD,CAA7B;AACZ,kCAAoB,cAAc,OAAC,SAAQ,CAAC,iBAAD;AAC3C,YAAG,uBAAkB,KAAC,EAAtB,EAA8B,0BAAoB,aAAlD;AACA,sBAAe,eAAf,cAAe;AACf,wBAAW;AACX,YAAG,gBAAW,QAAC,EAAI,KAAE,EAArB,EAA6B,gBAAW,WAAxC;;AAxDwB;AAyHQ;AAElC;AACA;AAEA,UAAG,eAAU,eAAC,EAAW,GAAC,CAA1B;AAEE,0BAAa,WAAC,CAAS,wFAAT;AACd,uBAAU;AACV;OAJF;AAMA,qBAAU;AAER,UAA+B,CAA3B,uBAAkB,YAAC,EAAQ,KAAC,qBAAD,CAAmB,IAAiC,CAA5B,wBAAmB,YAAC,EAAQ,KAAC,sBAAD,CAAnF;AAEE,YAAG,sBAAiB,aAAC,EAAS,KAAC,IAA/B;AAEE,oCAAoB;AACpB,wCAAwB,6BAAwB,YAAC;AACjD,mCAAmB,wBAAmB,YAAC;AACvC,kCAAkB,uBAAkB,YAAC;AACrC,iCAAiB,sBAAiB,YAAC;AACnC,wCAAwB,6BAAwB,YAAC;AACjD,+BAAe,oBAAe,YAAC;AAC/B,+BAAe,oBAAe,aAAC;AAC/B,4BAAY,2BAAsB,YAAC;AACnC,2CAA2B,gCAA2B,WAAC;AACvD,sBAAO,WAAC,CAAM,6BAAwB,YAAC,EAA/B;AACR;AACA;AACA,2BAAgB,mCAAa,QAAC;AAC9B,wBAAc,OAAC,SAAQ,CAAC,mBAAmB,sBAApB;AACvB,cAAG,uBAAkB,KAAC,EAAtB,EAA8B,0BAAoB,aAAlD;AACA,wBAAc,OAAC,SAAQ,CAAC,kBAAkB,uBAAnB;AACvB,wBAAe,eAAf,cAAe;AACf,4BAAa,WAAC,CAAS,uBAAuB,GAAC,sBAAS,CAAC,QAAG,UrNlbjB,KqNkba,CAA1C;AAId,uBAAY,6FAA2K,GAA7E,aAAG,6BAA6B,YAAC,EAAlC,GAA2C,UAAD,GAAY,gBAAD,GAAa,YAAD,GAAc,qBAAD;AACvL,uBAAY,UAAqB,GAAV,UAAD,GAAY,eAAD;AAEjC,cAAG,sBAAiB,KAAC,EAArB,EAA6B,yBAAmB,WAAhD;AAEA,uBAAY,UAA4B,GAAjB,iBAAD,GAAmB,sBAAD;AACxC,uBAAY,UAA0B,GAAf,eAAD,GAAiB,mBAAD;AACtC,uBAAY,UAA4B,GAAjB,iBAAD,GAAmB,mBAAD;AACxC,uBAAG,sBAAsB,KAAzB,GAA+B;AAE/B,uBAAG,sBAAsB,StMtuBoB;AsMuuB7C;;AAIA,4BAAa,WAAC,CAAS,sCAAT;;;AAKhB,0BAAa,WAAC,CAAS,wFAAT;;AAGlB,qBAAU;AACV,gBAAK;AA/D6B;AA7PL;AAE7B,oBAAS,WAAC,CAAS,KAAT;AACV,mBAAG,oBAAoB,aAAC,CAAW,KAAX;AACxB,wBAAa,WAAC,CAAS,EAAT;AACd,gCAAoB;AACpB,+BAAmB;AACnB,8BAAkB;AAClB,oCAAwB;AACxB,8BAAkB;AAClB,6BAAiB;AACjB,oCAAwB;AACxB,2BAAe;AACf,uCAA2B;AAC3B;AAd6B;AAwEC;;AAE9B;AAEA,wBAAa,WAAC,CAAS,KAAT;AACd,uBAAkB,uCAAe,QAAC,eAAS,CAAC;OAAD,CAAT;AAMlC,oBAAc,YAAU,CAAC;AAErB,2BAAa,WAAC,CAAS,IAAT;AAFO,OAAD;AAXM;AAjPA;;AAE9B;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,sCAAH;AACd,aAAK,sBAAL,GAA6B;AALV;AAQG;AAEtB,2BAAa,WAAC,CAAS,IAAT;AAFQ;AAM1B,wBAAa,WAAC,CAAS,KAAT;AACd,aAAM,sCAAgB,QAAC,eAAS,aAAT;AACvB,UAAI,YAAU;AAnBgB;AAPD;AAE7B;AAEA,gBAAW,0BAAU,QAAC;AAJO;AA2IE;;AAE/B;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,sCAAH;AACd,aAAK,sBAAL,GAA6B;AALV;AAQG;AAEtB,2BAAa,WAAC,CAAS,IAAT;AAFQ;AAM1B,wBAAa,WAAC,CAAS,KAAT;AACd,aAAM,sCAAgB,QAAC,eAAS,aAAT;AACvB,UAAI,YAAU;AAnBiB;AA7GD;;AAE9B;AAEA,wBAAa,WAAC,CAAS,KAAT;AAGhB,qBAAgB,mCAAa,QAAC,eAAS,CAAC;OAAD,CAAT;AAM5B,kBAAY,YAAU,CAAC;AAEnB,2BAAa,WAAC,CAAS,IAAT;AAFK,OAAD;AAbQ;AA3DC;AAE/B,wBAAa,WAAC,CAAS,EAAT;AACd,UAAG,gBAAW,QAAC,EAAI,KAAC,EAApB;AAEE,0BAAa,WAAC,CAAS,0CAAT;AACd,wBAAW;AACX;OAJF;AAMA,UAAG,gBAAW,QAAC,EAAI,KAAC,EAApB;AAEE,0BAAa,WAAC,CAAS,mCAAT;AACd,wBAAW;AACX;OAJF;AAMA,UAAG,gBAAW,QAAC,EAAI,KAAC,WAApB;AAEE,0BAAa,WAAC,CAAS,0DAAT;AACd,wBAAW;AACX;OAJF;AAOA,+BAAmB,gBAAW,QAAC;AAC/B,8BAAkB,gBAAW,QAAC;AAC9B,qBAAU;AACV,qBAAU,aAAV,GAAwB,wBAA2C,GAAjB,sBAAD,GAAmB,GAAD;AACnE,qBAAU;AA1BqB;AAqUG;AAEpC,UAAG,SAAG,KAAC,IAAP,EAAgB,gBAAW,WAA3B;AAFoC;AAMA;AAEpC,UAAG,SAAG,KAAC,IAAP,EAAgB,qBAAgB,CAAC,MAAD,CAAhC;AAFoC;AAiGI;AAEtC;AACA;AAEA,UAAG,SAAS,KAAC,EAAb;AAEE,yCAAW,CAAC,6DAAD;AACX;OAHF;AAKA,UAAG,SAAS,KAAE,EAAd;AAEE,sBAAa,uBAAW,QAAC;AACzB,mBAAW,WAAC,CAAM,SAAN;AACZ,YAAI,WAAM,CAAC,WAAW,IAAQ,CAAC,CAAD,EAAI,EAAxB;AACV,+BAAiB,iBAAI,CAAC,uBAAU,CAAC,EAAE,cAAc,EAAjB,CAAX;AACrB,YAAG,qBAAQ,CAAC,qBAAgB,CAAjB,CAAmB,KAAE,GAAhC,EAAyC,uBAAiB,oBAAe,GAAC,GAA1E;AACA,qCAAuB,oBAAe,GAAC,mBAAD;AACtC,kCAAoB,oBAAe,GAAC,oCAAD;AACnC,mCAAqB,oBAAe,GAAC,iBAAD;AACpC,YAAI,WAAM,CAAC,WAAW,IAAQ,CAAC,CAAD,EAAI,EAAxB;AACV,6BAAe,iBAAI,CAAC,uBAAU,CAAC,EAAE,YAAY,EAAf,CAAX;AACnB,YAAI,WAAM,CAAC,WAAW,IAAQ,CAAC,CAAD,EAAI,EAAxB;AACV,6BAAe,iBAAI,CAAC,uBAAU,CAAC,EAAE,YAAY,EAAf,CAAX;AACnB,2BAAc,aAAC,CAAW,KAAX;AACf,2BAAc,OAAC,CAAK,wBAAL;AACf,2BAAc,aAAC,CAAW,IAAX;OAhBjB;AAVsC;AA5cF;AAEpC,qBAAU,CAAC,mBAAc,kBAAf;AAF0B;AA2bV;AAE1B,+BAAmB;AACnB,mBAAQ,WAAC,CAAS,KAAT;AACT,mBAAQ,WAAC,CAAS,KAAT;AACT,sBAAW,WAAC,CAAS,KAAT;AACZ,qCAAW,gBAAX,GAA4B;AAC5B,2BAAe,mBAAoD,GAArC,mBAAD,GAAgB,OAAD,GAAS,mBAAD,GAAgB,mBAAD;AACnE,qCAAyB;AACzB,0BAAc;AACd,wBAAa,WAAC,CAAS,EAAT;AACd,uCAA2B;AAC3B;AACA,sBAAU;AACV,0BAAe,StMppBoC;AsMsoBzB;AA/aK;;AAE/B;AAEA,wBAAa,WAAC,CAAS,KAAT;AAGd,qBAAgB,mCAAa,QAAC,eAAS,CAAC;OAAD,CAAT;AAM9B,kBAAY,YAAU,CAAC;AAEnB,2BAAa,WAAC,CAAS,IAAT;AAFK,OAAD;AAbS;AAwQL;AAE1B;AAEA,kCAAsB;AACtB,mCAAuB;AACvB,gBAAW,iBAAI,QAAC;AANU;AAzGG;AAE7B;AAEA,gBAAW,mCAAa,QAAC;AAJI;AA9CU;;AAEvC;AACqB;AAEnB;AAEE,gBAAc,OAAN,MAAS,8CAAH;AACd,aAAK,eAAL,GAAsB;AACtB,aAAK,OAAL,GAAc;AANG;AASK;;AAQxB,aAAM,8CAAiB,QAAC,eAAS,aAAT;AACxB,UAAI,YAAU;AArBuB;AAiGH;AAEpC;AAEA,gBAAW,6CAAkB,QAAC;AAJM;AAqNR;AAE5B,qBAAS,uBAAW,QAAC;AACrB,kBAAO,sBAAC,CAAoB,GAApB;AACR,gCAAoB;AACpB,iCAAqB;AALO;AALM;AAElC,UAAG,4BAAuB,KAAC,KAA3B,EAAsC,aAAU,iBAAV,CAAtC;AAFkC;AAzRM;;AAExC;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,6CAAH;AAJK;AAOG;AAEtB,2BAAa,WAAC,CAAS,IAAT;AAFQ;AAM1B,wBAAa,WAAC,CAAS,KAAT;AACd,aAAM,6CAAkB,QAAC,eAAS,aAAT;AACzB,UAAI,YAAU;AAlB0B;AAwIH;;AAErC;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,sCAAH;AACd,aAAK,sBAAL,GAA6B;AALV;AAQG;AAEtB,2BAAa,WAAC,CAAS,IAAT;AAFQ;AAO1B,wBAAa,WAAC,CAAS,KAAT;AACd,aAAM,sCAAgB,QAAC,eAAS,aAAT;AACvB,UAAI,YAAU;AApBuB;AA/BF;;AAEnC;AACuB;AAEnB;AAEA,gBAAc,OAAN,MAAS,mCAAH;AAJK;AAOG;AAEtB,2BAAa,WAAC,CAAS,IAAT;AACd;AAHsB;AAO1B,wBAAa,WAAC,CAAS,KAAT;AACd,aAAM,mCAAa,QAAC,eAAS,aAAT;AACpB,UAAI,YAAU;AAnBqB;AA+SI;AAEvC,0BAAe,WAAC,CAAS,gBAAsD,GAArC,qBAAQ,CAAC,oBAAe,eAAC,EAAjB,CAAT,GAAuC,GAAhE;AAChB,UAAG,oBAAe,eAAC,EAAW,GAAC,CAA/B;AAEE,4BAAe,oBAAC,CAAkB,uCAAlB;;AAIhB,4BAAe,oBAAC,CAAkB,qCAAlB;;AAElB,0BAAe;AAXwB;AAtOT;;AAE9B;AACqB;AAEnB;AAEE,gBAAc,OAAN,MAAS,mCAAH;AAJG;AAQK;;AAQxB,aAAM,mCAAa,QAAC,eAAS,aAAT;AACpB,UAAI,YAAU;AApBc;AAtNA;AAE9B,qCAAyB;AACzB,YAAM;AACN;AACE,uCAAW,SAAS,CAAC,mBAAmB,4CAApB;AADtB;;AAJ8B;AA5GF;AAG5B,qBAAU,WAAC,CAAS,IAAT;AACX,wBAAa,WAAC,CAAS,KAAT;AAJc;AA0VE;AAE9B,qBAAU,WAAC,CAAS,KAAT;AACX,wBAAa,WAAC,CAAS,IAAT;AAHgB;AA1HA;AAE9B;AAEA,gBAAW,4BAAW,QAAC;AAJO;AAnDC;;AAE/B;AACqB;AAEnB;AAEE,gBAAc,OAAN,MAAS,8BAAH;AAJG;AAOK;;AAQxB,aAAM,8BAAY,QAAC,eAAS,aAAT;AACnB,UAAI,YAAU;AAnBe;AAyYD;AAG9B,UAAG,YAAO,SAAO,CAAC,YAAD,CAAc,KAAE,EAAjC;AAAyC,gBAAG,WAAH,GAAgB,sBAAS,CAAC,YAAO,SAAO,CAAC,YAAD,CAAf;AAAoC,YAAA,QAAG,WAAH,GAAgB;AACtH,UAAG,YAAO,SAAO,CAAC,UAAD,CAAY,KAAE,EAA/B;AAAuC,gBAAG,SAAH,GAAc,sBAAS,CAAC,YAAO,SAAO,CAAC,UAAD,CAAf;AAAkC,YAAA,QAAG,SAAH,GAAc;AAC9G,UAAG,YAAO,SAAO,CAAC,SAAD,CAAW,KAAE,EAA9B;AAAsC,gBAAG,QAAH,GAAa,sBAAS,CAAC,YAAO,SAAO,CAAC,SAAD,CAAf;AAAiC,YAAA,QAAG,QAAH,GAAa;AAC1G,UAAG,YAAO,SAAO,CAAC,gBAAD,CAAkB,KAAE,EAArC;AAA6C,gBAAG,eAAH,GAAoB,sBAAS,CAAC,YAAO,SAAO,CAAC,gBAAD,CAAf;AAAwC,YAAA,QAAG,eAAH,GAAoB;AACtI,UAAG,YAAO,SAAO,CAAC,iBAAD,CAAmB,KAAE,EAAtC;AAA8C,gBAAG,gBAAH,GAAqB,sBAAS,CAAC,YAAO,SAAO,CAAC,iBAAD,CAAf;AAAyC,YAAA,QAAG,gBAAH,GAAqB;AAC1I,UAAG,YAAO,SAAO,CAAC,qBAAD,CAAuB,KAAE,EAA1C;AAAkD,gBAAG,oBAAH,GAAyB,sBAAS,CAAC,YAAO,SAAO,CAAC,qBAAD,CAAf;AAA6C,YAAA,QAAG,oBAAH,GAAyB;AAC1J,UAAG,YAAO,SAAO,CAAC,SAAD,CAAW,KAAE,EAA9B;AAAsC,gBAAG,QAAH,GAAa,sBAAS,CAAC,YAAO,SAAO,CAAC,SAAD,CAAf;AAAiC,YAAA,QAAG,QAAH,GAAa;AAC1G,UAAG,YAAO,SAAO,CAAC,gBAAD,CAAkB,KAAE,EAArC;AAA6C,gBAAG,eAAH,GAAoB,sBAAS,CAAC,YAAO,SAAO,CAAC,gBAAD,CAAf;AAAwC,YAAA,QAAG,eAAH,GAAoB;AACtI,UAAG,YAAO,SAAO,CAAC,QAAD,CAAU,KAAE,EAA7B;AAAqC,gBAAG,OAAH,GAAY,sBAAS,CAAC,YAAO,SAAO,CAAC,QAAD,CAAf;AAAgC,YAAA,QAAG,OAAH,GAAY;AACtG,UAAG,YAAO,SAAO,CAAC,kBAAD,CAAoB,KAAE,EAAvC;AAA+C,gBAAG,iBAAH,GAAsB,sBAAS,CAAC,YAAO,SAAO,CAAC,kBAAD,CAAf;AAA0C,YAAA,QAAG,iBAAH,GAAsB;AAC9I,UAAG,YAAO,SAAO,CAAC,QAAD,CAAU,KAAE,EAA7B;AAAqC,gBAAG,OAAH,GAAY,sBAAS,CAAC,YAAO,SAAO,CAAC,QAAD,CAAf;AAAgC,YAAA,QAAG,OAAH,GAAY;AACtG,UAAG,YAAO,SAAO,CAAC,eAAD,CAAiB,KAAE,EAApC;AAA4C,gBAAG,cAAH,GAAmB,sBAAS,CAAC,YAAO,SAAO,CAAC,eAAD,CAAf;AAAuC,YAAA,QAAG,cAAH,GAAmB;AAClI,UAAG,YAAO,SAAO,CAAC,gBAAD,CAAkB,KAAE,EAArC;AAA6C,gBAAG,eAAH,GAAoB,sBAAS,CAAC,YAAO,SAAO,CAAC,gBAAD,CAAf;AAAwC,YAAA,QAAG,eAAH,GAAoB;AACtI,UAAG,YAAO,SAAO,CAAC,gBAAD,CAAkB,KAAE,EAArC;AAA6C,gBAAG,eAAH,GAAoB,sBAAS,CAAC,YAAO,SAAO,CAAC,gBAAD,CAAf;AAAwC,YAAA,QAAG,eAAH,GAAoB;AACtI,UAAG,YAAO,SAAO,CAAC,cAAD,CAAgB,KAAE,EAAnC;AAA2C,gBAAG,aAAH,GAAkB,sBAAS,CAAC,YAAO,SAAO,CAAC,cAAD,CAAf;AAAsC,YAAA,QAAG,aAAH,GAAkB;AAC9H,UAAG,YAAO,SAAO,CAAC,UAAD,CAAY,KAAE,EAA/B;AAAuC,gBAAG,SAAH,GAAc,sBAAS,CAAC,YAAO,SAAO,CAAC,UAAD,CAAf;AAAkC,YAAA,QAAG,SAAH,GAAc;AAlBhF;AAqBN;AAExB,cAAG,WAAH,GAAgB;AAChB,cAAG,SAAH,GAAc;AACd,cAAG,QAAH,GAAa;AACb,cAAG,eAAH,GAAoB;AACpB,cAAG,gBAAH,GAAqB;AACrB,cAAG,oBAAH,GAAyB;AACzB,cAAG,QAAH,GAAa;AACb,cAAG,eAAH,GAAoB;AACpB,cAAG,OAAH,GAAY;AACZ,cAAG,iBAAH,GAAsB;AACtB,cAAG,OAAH,GAAY;AACZ,cAAG,cAAH,GAAmB;AACnB,cAAG,eAAH,GAAoB;AACpB,cAAG,eAAH,GAAoB;AACpB,cAAG,aAAH,GAAkB;AAClB,cAAG,SAAH,GAAc;AAjBU;AAvmBM;AAE9B,UAAI,+BAAW,YAAC,EAAhB;AAA+B,8BAAiB,WAAC,CAAS,QAAT;AAAyC,YAAlB,sBAAiB,WAAC,CAAS,SAAT;AAF5D;AAKL;;AACL;AAElB,sBAAc,KAAW,QAAQ,QAAS,SAA5B;AACd,YAAG,0BAAqB,KAAE,EAA1B;AAEE,uBAAG,oBAAoB,OAAC,CAAK,0BAAL;AACxB,uBAAG,oBAAoB,aAAC,CAAW,IAAX;SAH1B;AAHkB;AAUpB,4BAAiB,WAAC,CAAS,YAAT;AAClB,kBAAO,YAAU,CAAC,sBAAsB,CAAC,SAAS,QAAV,atJhGuG,IsJgG9H;AAZQ;AA9DL;AAAN;AAEd;AAEU,YAAD,oBAAC,OAAe,IAAD,OAAf;AACT,eAAO,QAAW,OAAC,IAAD,yBAAlB;AAAI;AAEF,YAAG,IAAI,QAAC,KAAD,CAAI,GAAE,MAAb;AACE,gBAAM,iBAAN,OAAO,MAAS,oBAAK,IAAD,YAAM,CAAD,IAAL,CAAU,GAAI,GAAlB,CAAV;AAEA,cAAN,MAAM,iBAAN,OAAO,MAAM,IAAI,QAAC,KAAD,CAAX;;AAVI;AAAM;AAgDiB;AAErC,0BAAe,WAAC,CAAS,kBAAT;AAChB,0BAAe,oBAAC,CAAkB,iCAAlB;AAChB,0BAAe;AACf,0BAAe,aAAf,GAA6B,mGAA0H,GAAtB,2BAAD,GAAwB,sFAAD;AACvJ,0BAAe;AANsB;AAlCV;AAAb;AAEd;AAEA,oBAAS,uCAAM,KAAC,UAAO,+DAAP,CAAhB;AACA,eAAU,KAAK,MAAM,CAAC,YAAD,CAAc;AALrB;AAAa;AAQK;AAAlB;AAEd;AAEA,eAAQ;AACR,kBAAW,iBAAI,CAAC,WAAD;AACf,kBAAW,0BAAa,CAAC,UAAU,IAAI,IAAI,cAAC,4CAAD,CAAnB;AACxB,kBAAW,0BAAa,CAAC,UAAU,KAAI,IAAI,cAAC,4CAAD,CAAnB;AACxB,kBAAW,0BAAa,CAAC,UAAU,IAAI,IAAI,cAAC,4CAAD,CAAnB;AACxB,kBAAW,0BAAa,CAAC,UAAU,IAAI,IAAI,cAAC,4CAAD,CAAnB;AACxB,kBAAW,0BAAa,CAAC,UAAU,IAAI,IAAI,cAAC,4CAAD,CAAnB;AACxB,kBAAW,0BAAa,CAAC,UAAU,IAAI,IAAI,cAAC,4CAAD,CAAnB;AACxB,kBAAW,0BAAa,CAAC,UAAU,IAAI,IAAI,cAAC,4CAAD,CAAnB;AACxB,kBAAW,0BAAa,CAAC,UAAU,IAAI,IAAI,cAAC,4CAAD,CAAnB;AACxB,kBAAW,0BAAa,CAAC,UAAU,IAAI,IAAI,cAAC,4CAAD,CAAnB;AACxB,kBAAW,0BAAa,CAAC,UAAU,IAAI,IAAI,cAAC,4CAAD,CAAnB;AACxB,kBAAW,0BAAa,CAAC,UAAU,IAAI,IAAI,cAAC,4CAAD,CAAnB;AACxB,kBAAW,0BAAa,CAAC,UAAU,IAAI,IAAI,cAAC,4CAAD,CAAnB;AACxB,kBAAW,0BAAa,CAAC,UAAU,IAAI,IAAI,cAAC,4CAAD,CAAnB;AACxB,kBAAW,0BAAa,CAAC,UAAU,IAAI,IAAI,cAAC,4CAAD,CAAnB;AACxB,kBAAW,0BAAa,CAAC,UAAU,IAAI,IAAI,cAAC,4CAAD,CAAnB;AACxB,kBAAW,0BAAa,CAAC,UAAU,IAAI,IAAI,cAAC,4CAAD,CAAnB;AACxB,kBAAW,0BAAa,CAAC,UAAU,IAAI,IAAI,cAAC,4CAAD,CAAnB;AACxB,eAAQ;AAvBM;AAAkB;AA8pBJ;AAElB;AAEV,0BAAgB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,+BAAqB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,yBAAe,8BAAQ,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,4BAAkB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACzB,uBAAa,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,2BAAiB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,yBAAe,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,yBAAe,4BAAK,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,yBAAe,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,wBAAc,qCAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,2BAAiB,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACxB,uBAAa,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,uBAAa,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,uBAAa,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,oBAAU,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAClB,+BAAqB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7B,6BAAmB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,yBAAe,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,kCAAwB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,yBAAe,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,8BAAoB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5B,iCAAuB,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,yBAAe,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACvB,sBAAY,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACpB,wBAAc,6BAAM,QAAC,YAAM,CAAC,IAAD,CAAN;AACrB,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,wBAAc,8BAAO,QAAC,YAAM,CAAC,IAAD,CAAN;AACtB,wBAAc,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/B,sCAA4B,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,+BAAqB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAClC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,iCAAuB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,gCAAsB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,+BAAqB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACnC,6BAAmB,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,6BAAmB,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AACjC,oCAA0B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACvC,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,yCAA+B,kBAAW,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3C,6BAAmB,+BAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAChC,qBAAW,uCAAe,QAAC,YAAM,CAAC,IAAD,CAAN;AAC3B,4BAAkB,+CAAmB,QAAC,YAAM,CAAC,IAAD,CAAN;AACtC,6BAAmB,yCAAgB,QAAC,YAAM,CAAC,IAAD,CAAN;AACpC,uCAA6B,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AAClD,6CAAmC,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACxD,0CAAgC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC7C,uCAA6B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC1C,sCAA4B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACzC,yCAA+B,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC9C,0CAAgC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,yDAA+C,iDAAoB,QAAC,YAAM,CAAC,IAAD,CAAN;AACpE,yCAA+B,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC5C,4CAAkC,qBAAc,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,mDAAyC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACtD,kDAAwC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACrD,8CAAoC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AACjD,4CAAkC,mBAAY,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/C,2DAAiD,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAC/D,uEAA6D,oBAAa,QAAC,YAAM,CAAC,IAAD,CAAN;AAE3E,uBAAY;AACZ,4BAAiB;AACjB,sBAAW;AACX,yBAAc;AACd,oBAAS;AACT,wBAAa;AACb,sBAAW;AACX,sBAAW;AACX,sBAAW;AACX,qBAAU;AACV,qBAAU;AACV,wBAAa;AACb,oBAAS;AACT,qBAAU;AACV,oBAAS;AACT,oBAAS;AACT,iBAAM;AACN,4BAAiB;AACjB,0BAAe;AACf,qBAAU;AACV,qBAAU;AACV,sBAAW;AACX,qBAAU;AACV,+BAAoB;AACpB,sBAAW;AACX,qBAAU;AACV,2BAAgB;AAChB,8BAAmB;AACnB,sBAAW;AACX,mBAAQ;AACR,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,qBAAU;AACV,mCAAwB;AACxB,6BAAkB;AAClB,4BAAiB;AACjB,mCAAwB;AACxB,8BAAmB;AACnB,6BAAkB;AAClB,4BAAiB;AACjB,0BAAe;AACf,0BAAe;AACf,iCAAsB;AACtB,mCAAwB;AACxB,sCAA2B;AAC3B,0BAAe;AACf,kBAAO;AACP,yBAAc;AACd,0BAAe;AACf,oCAAyB;AACzB,0CAA+B;AAC/B,uCAA4B;AAC5B,oCAAyB;AACzB,mCAAwB;AACxB,sCAA2B;AAC3B,uCAA4B;AAC5B,sDAA2C;AAC3C,sCAA2B;AAC3B,yCAA8B;AAC9B,gDAAqC;AACrC,+CAAoC;AACpC,2CAAgC;AAChC,yCAA8B;AAC9B,wDAA6C;AAC7C,oEAAyD;AACzD;AACE,qBAAQ,OAAR;AACA,sBAAS,GAAT;AACA,uBAAU,GAAV;AACA,2BAAc,+CAAd;AACA,4BAAe,yCAAf;AACA,qBAAQ,CAAC,KAAM,iBAAkB,qBAAzB;AACR,qBAAQ,CAAC,KAAM,WAAY,eAAnB;AACR,qBAAQ,CAAC,KAAM,SAAU,aAAjB;AACR,yBAAY,mBAAmB,CAAC,IAAD;AAC/B,yBAAY,QAAC,CAAQ,cAAR;AACb,yBAAY,QAAC,CAAQ,CAAC,CAAT;AACb,yBAAY,OAAC,CAAO,GAAP;AACb,yBAAY,SAAC,CAAS,EAAT;AACb,yBAAY,UAAC,CAAU,EAAV;AACb,yBAAY,SAAQ,OAAC,CAAO,CAAP;AACrB,yBAAY,SAAQ,UAAC,CAAU,CAAV;AACrB,yBAAY,WAAC,CAAW,cAAX;AACb,yBAAY,oBAAC,CAAoB,QAApB;AACb,yBAAY,eAAC,CAAe,yCAAf;AACb,yBAAY,mBAAC,CAAmB,gDAAnB;AACb,yBAAY,iBAAC,CAAiB,sBAAjB;AACb,yBAAY,gBAAC,CAAgB,sBAAhB;AACb,8BAAiB,mBAAmB,CAAC,IAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,QAAC,CAAQ,CAAR;AAClB,8BAAiB,OAAC,CAAO,GAAP;AAClB,8BAAiB,SAAC,CAAS,EAAT;AAClB,8BAAiB,UAAC,CAAU,EAAV;AAClB,8BAAiB,WAAC,CAAW,mBAAX;AAClB,8BAAiB,oBAAC,CAAoB,cAApB;AAClB,8BAAiB,eAAC,CAAe,yCAAf;AAClB,8BAAiB,iBAAC,CAAiB,sBAAjB;AAClB,8BAAiB,gBAAC,CAAgB,sBAAhB;AAClB,wBAAW,mBAAmB,CAAC,IAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,CAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,EAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,WAAC,CAAW,aAAX;AACZ,wBAAW,oBAAC,CAAoB,cAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,wBAAW,aAAC,CAAa,mBAAb;AACZ,wBAAW,cAAC,CAAc,aAAG,aAAjB;AACZ,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,QAAC,CAAQ,CAAR;AACf,2BAAc,OAAC,CAAO,EAAP;AACf,2BAAc,SAAC,CAAS,GAAT;AACf,2BAAc,UAAC,CAAU,GAAV;AACf,2BAAc,oBAAC,CAAoB,sBAApB;AACf,2BAAc,WAAC,CAAW,gBAAX;AACf,2BAAc,SAAC,CAAS,OAAT;AACf,2BAAc,eAAC,CAAe,yCAAf;AACf,2BAAc,mBAAC,CAAmB,gDAAnB;AACf,2BAAc,eAAC,CAAe,KAAf;AACf,2BAAc,YAAC,CAAY,CAAZ;AACf,sBAAS,mBAAmB,CAAC,mBAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,QAAC,CAAQ,EAAR;AACV,sBAAS,OAAC,CAAO,EAAP;AACV,sBAAS,SAAC,CAAS,EAAT;AACV,sBAAS,UAAC,CAAU,EAAV;AACV,sBAAS,WAAC,CAAW,WAAX;AACV,sBAAS,oBAAC,CAAoB,kBAApB;AACV,sBAAS,eAAC,CAAe,yCAAf;AACV,sBAAS,mBAAC,CAAmB,gDAAnB;AACV,sBAAS,iBAAC,CAAiB,sBAAjB;AACV,sBAAS,gBAAC,CAAgB,sBAAhB;AACV,0BAAa,mBAAmB,CAAC,mBAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,QAAC,CAAQ,CAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,0BAAa,SAAC,CAAS,EAAT;AACd,0BAAa,UAAC,CAAU,EAAV;AACd,0BAAa,WAAC,CAAW,eAAX;AACd,0BAAa,gBAAC,CAAc,CAAd;AACd,0BAAa,oBAAC,CAAoB,gBAApB;AACd,0BAAa,eAAC,CAAe,yCAAf;AACd,0BAAa,eAAC,CAAe,wCAAf;AACd,0BAAa,iBAAC,CAAiB,sBAAjB;AACd,0BAAa,UAAb,GAA0B;AAC1B,0BAAa,cAAC,CAAc,wCAAd;AACd,0BAAa,gBAAC,CAAgB,sBAAhB;AACd,wBAAW,mBAAmB,CAAC,mBAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,EAAR;AACZ,wBAAW,OAAC,CAAO,EAAP;AACZ,wBAAW,SAAC,CAAS,GAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,gBAAC,CAAc,CAAd;AACZ,wBAAW,oBAAC,CAAoB,kBAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,YAAC,CAAY,cAAZ;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,uBAAQ,CAAC,iBAAa,KAAM,aAAc,qBAAlC;AACR,wBAAW,mBAAmB,CAAC,mBAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,EAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,GAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,gBAAC,CAAc,CAAd;AACZ,wBAAW,oBAAC,CAAoB,kBAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,gBAAC,CAAgB,GAAhB;AACZ,wBAAW,YAAC,CAAY,CAAZ;AACZ,wBAAW,YAAC,CAAY,UAAZ;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,uBAAQ,CAAC,iBAAa,KAAM,aAAc,qBAAlC;AACR,wBAAW,mBAAmB,CAAC,mBAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,EAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,EAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,WAAC,CAAW,UAAX;AACZ,wBAAW,gBAAC,CAAc,CAAd;AACZ,wBAAW,oBAAC,CAAoB,4BAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,mBAAC,CAAmB,gDAAnB;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,YAAC,CAAY,CAAZ;AACZ,wBAAW,cAAC,CAAc,wCAAd;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,uBAAQ,CAAC,iBAAa,KAAM,UAAW,kBAA/B;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,2CAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,oBAAC,CAAoB,mCAApB;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,cAAC,CAAc,wCAAd;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,mBAAC,CAAmB,gDAAnB;AACX,0BAAa,mBAAmB,CAAC,IAAD;AAChC,0BAAa,QAAC,CAAQ,eAAR;AACd,0BAAa,QAAC,CAAQ,EAAR;AACd,0BAAa,OAAC,CAAO,GAAP;AACd,0BAAa,SAAC,CAAS,GAAT;AACd,0BAAa,UAAC,CAAU,GAAV;AACd,0BAAa,oBAAC,CAAoB,sBAApB;AACd,0BAAa,WAAC,CAAW,eAAX;AACd,0BAAa,SAAC,CAAS,OAAT;AACd,0BAAa,eAAC,CAAe,yCAAf;AACd,0BAAa,eAAC,CAAe,KAAf;AACd,0BAAa,YAAC,CAAY,CAAZ;AACd,sBAAS,mBAAmB,CAAC,kBAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,QAAC,CAAQ,GAAR;AACV,sBAAS,OAAC,CAAO,GAAP;AACV,sBAAS,SAAC,CAAS,GAAT;AACV,sBAAS,UAAC,CAAU,EAAV;AACV,sBAAS,WAAC,CAAW,UAAX;AACV,sBAAS,gBAAC,CAAc,CAAd;AACV,sBAAS,oBAAC,CAAoB,qCAApB;AACV,sBAAS,eAAC,CAAe,yCAAf;AACV,sBAAS,eAAC,CAAe,wCAAf;AACV,sBAAS,iBAAC,CAAiB,sBAAjB;AACV,sBAAS,gBAAC,CAAgB,sBAAhB;AACV,uBAAQ,CAAC,eAAW,KAAM,UAAW,gBAA7B;AACR,uBAAU,mBAAmB,CAAC,kBAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,SAAX;AACX,uBAAU,gBAAC,CAAc,EAAd;AACX,uBAAU,oBAAC,CAAoB,6CAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,sBAAS,mBAAmB,CAAC,kBAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,QAAC,CAAQ,GAAR;AACV,sBAAS,OAAC,CAAO,EAAP;AACV,sBAAS,SAAC,CAAS,GAAT;AACV,sBAAS,UAAC,CAAU,EAAV;AACV,sBAAS,WAAC,CAAW,QAAX;AACV,sBAAS,gBAAC,CAAc,EAAd;AACV,sBAAS,oBAAC,CAAoB,qCAApB;AACV,sBAAS,eAAC,CAAe,yCAAf;AACV,sBAAS,eAAC,CAAe,wCAAf;AACV,sBAAS,iBAAC,CAAiB,sBAAjB;AACV,sBAAS,gBAAC,CAAgB,sBAAhB;AACV,uBAAQ,CAAC,eAAW,KAAM,UAAW,gBAA7B;AACR,sBAAS,mBAAmB,CAAC,kBAAD;AAC5B,sBAAS,QAAC,CAAQ,WAAR;AACV,sBAAS,QAAC,CAAQ,GAAR;AACV,sBAAS,OAAC,CAAO,EAAP;AACV,sBAAS,SAAC,CAAS,GAAT;AACV,sBAAS,UAAC,CAAU,EAAV;AACV,sBAAS,WAAC,CAAW,QAAX;AACV,sBAAS,gBAAC,CAAc,EAAd;AACV,sBAAS,oBAAC,CAAoB,qCAApB;AACV,sBAAS,eAAC,CAAe,yCAAf;AACV,sBAAS,eAAC,CAAe,wCAAf;AACV,sBAAS,iBAAC,CAAiB,sBAAjB;AACV,sBAAS,gBAAC,CAAgB,sBAAhB;AACV,uBAAQ,CAAC,eAAW,KAAM,UAAW,gBAA7B;AACR,mBAAM,mBAAmB,CAAC,kBAAD;AACzB,mBAAM,QAAC,CAAQ,QAAR;AACP,mBAAM,QAAC,CAAQ,GAAR;AACP,mBAAM,OAAC,CAAO,GAAP;AACP,mBAAM,SAAC,CAAS,GAAT;AACP,mBAAM,UAAC,CAAU,EAAV;AACP,mBAAM,WAAC,CAAW,qBAAX;AACP,mBAAM,gBAAC,CAAc,EAAd;AACP,mBAAM,oBAAC,CAAoB,qCAApB;AACP,mBAAM,eAAC,CAAe,yCAAf;AACP,mBAAM,eAAC,CAAe,wCAAf;AACP,mBAAM,iBAAC,CAAiB,sBAAjB;AACP,mBAAM,gBAAC,CAAgB,sBAAhB;AACP,uBAAQ,CAAC,YAAQ,KAAM,UAAW,aAA1B;AACR,8BAAiB,mBAAmB,CAAC,kBAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,QAAC,CAAQ,GAAR;AAClB,8BAAiB,OAAC,CAAO,GAAP;AAClB,8BAAiB,SAAC,CAAS,GAAT;AAClB,8BAAiB,UAAC,CAAU,EAAV;AAClB,8BAAiB,WAAC,CAAW,gBAAX;AAClB,8BAAiB,gBAAC,CAAc,EAAd;AAClB,8BAAiB,oBAAC,CAAoB,qCAApB;AAClB,8BAAiB,eAAC,CAAe,yCAAf;AAClB,8BAAiB,eAAC,CAAe,wCAAf;AAClB,8BAAiB,iBAAC,CAAiB,sBAAjB;AAClB,8BAAiB,gBAAC,CAAgB,sBAAhB;AAClB,uBAAQ,CAAC,uBAAmB,KAAM,UAAW,wBAArC;AACR,4BAAe,mBAAmB,CAAC,kBAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,QAAC,CAAQ,GAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,4BAAe,SAAC,CAAS,GAAT;AAChB,4BAAe,UAAC,CAAU,EAAV;AAChB,4BAAe,WAAC,CAAW,cAAX;AAChB,4BAAe,gBAAC,CAAc,EAAd;AAChB,4BAAe,oBAAC,CAAoB,qCAApB;AAChB,4BAAe,eAAC,CAAe,yCAAf;AAChB,4BAAe,eAAC,CAAe,wCAAf;AAChB,4BAAe,iBAAC,CAAiB,sBAAjB;AAChB,4BAAe,gBAAC,CAAgB,sBAAhB;AAChB,uBAAQ,CAAC,qBAAiB,KAAM,UAAW,sBAAnC;AACR,uBAAU,mBAAmB,CAAC,kBAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,SAAX;AACX,uBAAU,gBAAC,CAAc,EAAd;AACX,uBAAU,oBAAC,CAAoB,qCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,uBAAU,mBAAmB,CAAC,kBAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,qCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,wBAAW,mBAAmB,CAAC,kBAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,CAAR;AACZ,wBAAW,OAAC,CAAO,CAAP;AACZ,wBAAW,SAAC,CAAS,GAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,WAAC,CAAW,UAAX;AACZ,wBAAW,gBAAC,CAAc,EAAd;AACZ,wBAAW,oBAAC,CAAoB,qCAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,uBAAQ,CAAC,iBAAa,KAAM,UAAW,kBAA/B;AACR,uBAAU,mBAAmB,CAAC,kBAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,SAAX;AACX,uBAAU,gBAAC,CAAc,EAAd;AACX,uBAAU,oBAAC,CAAoB,qCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,iCAAoB,mBAAmB,CAAC,kBAAD;AACvC,iCAAoB,QAAC,CAAQ,sBAAR;AACrB,iCAAoB,QAAC,CAAQ,CAAR;AACrB,iCAAoB,OAAC,CAAO,EAAP;AACrB,iCAAoB,SAAC,CAAS,GAAT;AACrB,iCAAoB,UAAC,CAAU,EAAV;AACrB,iCAAoB,WAAC,CAAW,mBAAX;AACrB,iCAAoB,gBAAC,CAAc,EAAd;AACrB,iCAAoB,oBAAC,CAAoB,qCAApB;AACrB,iCAAoB,eAAC,CAAe,yCAAf;AACrB,iCAAoB,eAAC,CAAe,wCAAf;AACrB,iCAAoB,iBAAC,CAAiB,sBAAjB;AACrB,iCAAoB,gBAAC,CAAgB,sBAAhB;AACrB,uBAAQ,CAAC,0BAAsB,KAAM,UAAW,2BAAxC;AACR,wBAAW,mBAAmB,CAAC,kBAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,CAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,GAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,WAAC,CAAW,kBAAX;AACZ,wBAAW,gBAAC,CAAc,EAAd;AACZ,wBAAW,oBAAC,CAAoB,qCAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,uBAAQ,CAAC,iBAAa,KAAM,UAAW,kBAA/B;AACR,uBAAU,mBAAmB,CAAC,kBAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,mBAAX;AACX,uBAAU,gBAAC,CAAc,EAAd;AACX,uBAAU,oBAAC,CAAoB,qCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,6BAAgB,mBAAmB,CAAC,kBAAD;AACnC,6BAAgB,QAAC,CAAQ,kBAAR;AACjB,6BAAgB,QAAC,CAAQ,CAAR;AACjB,6BAAgB,OAAC,CAAO,GAAP;AACjB,6BAAgB,SAAC,CAAS,GAAT;AACjB,6BAAgB,UAAC,CAAU,EAAV;AACjB,6BAAgB,WAAC,CAAW,uBAAX;AACjB,6BAAgB,gBAAC,CAAc,EAAd;AACjB,6BAAgB,oBAAC,CAAoB,qCAApB;AACjB,6BAAgB,eAAC,CAAe,yCAAf;AACjB,6BAAgB,eAAC,CAAe,wCAAf;AACjB,6BAAgB,iBAAC,CAAiB,sBAAjB;AACjB,6BAAgB,gBAAC,CAAgB,sBAAhB;AACjB,uBAAQ,CAAC,sBAAkB,KAAM,UAAW,uBAApC;AACR,gCAAmB,mBAAmB,CAAC,kBAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,QAAC,CAAQ,CAAR;AACpB,gCAAmB,OAAC,CAAO,GAAP;AACpB,gCAAmB,SAAC,CAAS,GAAT;AACpB,gCAAmB,UAAC,CAAU,EAAV;AACpB,gCAAmB,WAAC,CAAW,qBAAX;AACpB,gCAAmB,gBAAC,CAAc,EAAd;AACpB,gCAAmB,oBAAC,CAAoB,qCAApB;AACpB,gCAAmB,eAAC,CAAe,yCAAf;AACpB,gCAAmB,eAAC,CAAe,wCAAf;AACpB,gCAAmB,iBAAC,CAAiB,sBAAjB;AACpB,gCAAmB,gBAAC,CAAgB,sBAAhB;AACpB,uBAAQ,CAAC,yBAAqB,KAAM,UAAW,0BAAvC;AACR,wBAAW,mBAAmB,CAAC,kBAAD;AAC9B,wBAAW,QAAC,CAAQ,aAAR;AACZ,wBAAW,QAAC,CAAQ,CAAR;AACZ,wBAAW,OAAC,CAAO,GAAP;AACZ,wBAAW,SAAC,CAAS,GAAT;AACZ,wBAAW,UAAC,CAAU,EAAV;AACZ,wBAAW,WAAC,CAAW,UAAX;AACZ,wBAAW,gBAAC,CAAc,EAAd;AACZ,wBAAW,oBAAC,CAAoB,qCAApB;AACZ,wBAAW,eAAC,CAAe,yCAAf;AACZ,wBAAW,eAAC,CAAe,wCAAf;AACZ,wBAAW,iBAAC,CAAiB,sBAAjB;AACZ,wBAAW,gBAAC,CAAgB,sBAAhB;AACZ,uBAAQ,CAAC,iBAAa,KAAM,UAAW,kBAA/B;AACR,qBAAQ,mBAAmB,CAAC,kBAAD;AAC3B,qBAAQ,QAAC,CAAQ,UAAR;AACT,qBAAQ,QAAC,CAAQ,CAAR;AACT,qBAAQ,OAAC,CAAO,GAAP;AACT,qBAAQ,SAAC,CAAS,GAAT;AACT,qBAAQ,UAAC,CAAU,EAAV;AACT,qBAAQ,WAAC,CAAW,OAAX;AACT,qBAAQ,gBAAC,CAAc,CAAd;AACT,qBAAQ,oBAAC,CAAoB,qCAApB;AACT,qBAAQ,eAAC,CAAe,yCAAf;AACT,qBAAQ,eAAC,CAAe,wCAAf;AACT,qBAAQ,iBAAC,CAAiB,sBAAjB;AACT,qBAAQ,gBAAC,CAAgB,sBAAhB;AACT,uBAAQ,CAAC,cAAU,KAAM,UAAW,eAA5B;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,GAAV;AACX,uBAAU,oBAAC,CAAoB,sBAApB;AACX,uBAAU,WAAC,CAAW,eAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,SAAC,CAAS,OAAT;AACX,uBAAU,sBAAV,GAAmC;AACnC,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,eAAC,CAAe,KAAf;AACX,uBAAU,YAAC,CAAY,CAAZ;AACX,uBAAU,WAAC,CAAW,KAAX;AACX,uBAAU,mBAAmB,CAAC,eAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,CAAR;AACX,uBAAU,OAAC,CAAO,CAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,SAAX;AACX,uBAAU,gBAAC,CAAc,EAAd;AACX,uBAAU,oBAAC,CAAoB,qCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,uBAAU,mBAAmB,CAAC,eAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,QAAC,CAAQ,GAAR;AACX,uBAAU,OAAC,CAAO,GAAP;AACX,uBAAU,SAAC,CAAS,GAAT;AACX,uBAAU,UAAC,CAAU,EAAV;AACX,uBAAU,WAAC,CAAW,YAAX;AACX,uBAAU,gBAAC,CAAc,CAAd;AACX,uBAAU,oBAAC,CAAoB,qCAApB;AACX,uBAAU,eAAC,CAAe,yCAAf;AACX,uBAAU,eAAC,CAAe,wCAAf;AACX,uBAAU,iBAAC,CAAiB,sBAAjB;AACX,uBAAU,gBAAC,CAAgB,sBAAhB;AACX,uBAAQ,CAAC,gBAAY,KAAM,UAAW,iBAA9B;AACR,uBAAU,mBAAmB,CAAC,IAAD;AAC7B,uBAAU,QAAC,CAAQ,YAAR;AACX,uBAAU,WAAV,GAAwB;AACxB,uBAAU,iBAAC,CAAiB,UAAjB;AACX,uBAAU,cAAC,CAAc,aAAG,oBAAjB;AACX,uBAAU,QAAC,CAAQ,EAAR;AACX,uBAAU,OAAC,CAAO,EAAP;AACX,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,UAAxB,GAAqC;AACrC,+BAAkB,mBAAmB,CAAC,eAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,8BAAiB,QAAC,CAAQ,EAAR;AAClB,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,gCAAmB,mBAAmB,CAAC,eAAD;AACtC,gCAAmB,QAAC,CAAQ,qBAAR;AACpB,gCAAmB,WAAnB,GAAiC;AACjC,gCAAmB,QAAC,CAAQ,EAAR;AACpB,+BAAkB,mBAAmB,CAAC,eAAD;AACrC,+BAAkB,QAAC,CAAQ,oBAAR;AACnB,+BAAkB,WAAlB,GAAgC;AAChC,+BAAkB,QAAC,CAAQ,EAAR;AACnB,8BAAiB,mBAAmB,CAAC,eAAD;AACpC,8BAAiB,QAAC,CAAQ,mBAAR;AAClB,8BAAiB,WAAjB,GAA+B;AAC/B,4BAAe,mBAAmB,CAAC,eAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,QAAC,CAAQ,EAAR;AAChB,4BAAe,mBAAmB,CAAC,eAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,mCAAsB,mBAAmB,CAAC,eAAD;AACzC,mCAAsB,QAAC,CAAQ,wBAAR;AACvB,mCAAsB,WAAtB,GAAoC;AACpC,mCAAsB,QAAC,CAAQ,EAAR;AACvB,qCAAwB,mBAAmB,CAAC,eAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,GAAR;AACzB,wCAA2B,mBAAmB,CAAC,eAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,SAAQ;AACvB;AACE,8BAAe,SAAQ;AACvB,8BAAe,SAAQ,IAAI,CAAC,mDAAD;AAF7B;AAIE,8BAAe,SAAQ;AAJzB;AAMA,4BAAe,KAAf,GAAuB;AACvB,uBAAQ,CAAC,qBAAiB,KAAM,aAAc,yBAAtC;AACR,4BAAe,QAAC,CAAQ,CAAR;AAChB,4BAAe,OAAC,CAAO,GAAP;AAChB,oBAAO,mBAAmB,CAAC,IAAD;AAC1B,oBAAO,QAAC,CAAQ,SAAR;AACR,oBAAO,cAAC,CAAc,mBAAd;AACR,oBAAO,QAAC,CAAQ,CAAR;AACR,oBAAO,OAAC,CAAO,GAAP;AACR,2BAAc,mBAAmB,CAAC,IAAD;AACjC,2BAAc,QAAC,CAAQ,gBAAR;AACf,2BAAc,OAAC,CAAO,0CAAP;AACf,uBAAQ,CAAC,oBAAgB,KAAM,YAAa,uBAApC;AACR,2BAAc,QAAC,CAAQ,CAAR;AACf,2BAAc,OAAC,CAAO,GAAP;AACf,4BAAe,mBAAmB,CAAC,IAAD;AAClC,4BAAe,QAAC,CAAQ,iBAAR;AAChB,4BAAe,WAAf,GAA6B;AAC7B,4BAAe,iBAAC,CAAiB,aAAjB;AAChB,4BAAe,cAAC,CAAc,aAAG,oBAAjB;AAChB,4BAAe,iBAAC,CAAiB,CAAjB;AAChB,4BAAe,aAAf,GAA+B;AAC/B,4BAAe,UAAf,GAA4B;AAC5B,4BAAe,QAAC,CAAQ,GAAR;AAChB,4BAAe,OAAC,CAAO,EAAP;AAChB,sCAAyB,mBAAmB,CAAC,oBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,4CAA+B,mBAAmB,CAAC,oBAAD;AAClD,4CAA+B,QAAC,CAAQ,iCAAR;AAChC,4CAA+B,WAA/B,GAA6C;AAC7C,yCAA4B,mBAAmB,CAAC,oBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,yCAA4B,UAA5B,GAAyC;AACzC,yCAA4B,QAAC,CAAQ,EAAR;AAC7B,sCAAyB,mBAAmB,CAAC,oBAAD;AAC5C,sCAAyB,QAAC,CAAQ,2BAAR;AAC1B,sCAAyB,WAAzB,GAAuC;AACvC,sCAAyB,QAAC,CAAQ,EAAR;AAC1B,qCAAwB,mBAAmB,CAAC,oBAAD;AAC3C,qCAAwB,QAAC,CAAQ,0BAAR;AACzB,qCAAwB,WAAxB,GAAsC;AACtC,qCAAwB,QAAC,CAAQ,EAAR;AACzB,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,yCAA4B,mBAAmB,CAAC,oBAAD;AAC/C,yCAA4B,QAAC,CAAQ,8BAAR;AAC7B,yCAA4B,WAA5B,GAA0C;AAC1C,wDAA2C,mBAAmB,CAAC,oBAAD;AAC9D,wDAA2C,QAAC,CAAQ,6CAAR;AAC5C,wDAA2C,WAA3C,GAAyD;AACzD,wCAA2B,mBAAmB,CAAC,oBAAD;AAC9C,wCAA2B,QAAC,CAAQ,6BAAR;AAC5B,wCAA2B,WAA3B,GAAyC;AACzC,wCAA2B,QAAC,CAAQ,EAAR;AAC5B,2CAA8B,mBAAmB,CAAC,oBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,kDAAqC,mBAAmB,CAAC,oBAAD;AACxD,kDAAqC,QAAC,CAAQ,uCAAR;AACtC,kDAAqC,WAArC,GAAmD;AACnD,kDAAqC,QAAC,CAAQ,EAAR;AACtC,iDAAoC,mBAAmB,CAAC,oBAAD;AACvD,iDAAoC,QAAC,CAAQ,sCAAR;AACrC,iDAAoC,WAApC,GAAkD;AAClD,iDAAoC,QAAC,CAAQ,EAAR;AACrC,6CAAgC,mBAAmB,CAAC,oBAAD;AACnD,6CAAgC,QAAC,CAAQ,kCAAR;AACjC,6CAAgC,WAAhC,GAA8C;AAC9C,6CAAgC,QAAC,CAAQ,GAAR;AACjC,2CAA8B,mBAAmB,CAAC,oBAAD;AACjD,2CAA8B,QAAC,CAAQ,gCAAR;AAC/B,2CAA8B,WAA9B,GAA4C;AAC5C,2CAA8B,QAAC,CAAQ,GAAR;AAC/B,0DAA6C,mBAAmB,CAAC,oBAAD;AAChE,0DAA6C,QAAC,CAAQ,+CAAR;AAC9C,0DAA6C,WAA7C,GAA2D;AAC3D,sEAAyD,mBAAmB,CAAC,oBAAD;AAC5E,sEAAyD,QAAC,CAAQ,2DAAR;AAC1D,sEAAyD,WAAzD,GAAuE;AAhmBzE;AAkmBE,yBAAY;AACZ,8BAAiB;AACjB,wBAAW;AACX,2BAAc;AACd,sBAAS;AACT,0BAAa;AACb,wBAAW;AACX,wBAAW;AACX,wBAAW;AACX,uBAAU;AACV,uBAAU;AACV,0BAAa;AACb,sBAAS;AACT,uBAAU;AACV,sBAAS;AACT,sBAAS;AACT,mBAAM;AACN,8BAAiB;AACjB,4BAAe;AACf,uBAAU;AACV,uBAAU;AACV,wBAAW;AACX,uBAAU;AACV,iCAAoB;AACpB,wBAAW;AACX,uBAAU;AACV,6BAAgB;AAChB,gCAAmB;AACnB,wBAAW;AACX,qBAAQ;AACR,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,uBAAU;AACV,qCAAwB;AACxB,+BAAkB;AAClB,8BAAiB;AACjB,qCAAwB;AACxB,gCAAmB;AACnB,+BAAkB;AAClB,8BAAiB;AACjB,4BAAe;AACf,4BAAe;AACf,mCAAsB;AACtB,qCAAwB;AACxB,wCAA2B;AAC3B,4BAAe;AACf,oBAAO;AACP,2BAAc;AACd,4BAAe;AACf,sCAAyB;AACzB,4CAA+B;AAC/B,yCAA4B;AAC5B,sCAAyB;AACzB,qCAAwB;AACxB,wCAA2B;AAC3B,yCAA4B;AAC5B,wDAA2C;AAC3C,wCAA2B;AAC3B,2CAA8B;AAC9B,kDAAqC;AACrC,iDAAoC;AACpC,6CAAgC;AAChC,2CAA8B;AAC9B,0DAA6C;AAC7C,sEAAyD;AAnqB3D;AAzI4B;AA12BtB;;;AACJ,6BpJAc,kDoJAd;AACA,2C1KsdW,6B0KtdX;AACA,qC1K6ZU,4B0K7ZV;AACA,oC1K4ZU,4B0K5ZV;AACA,2C1K2ZU,4B0K3ZV;AACA,sC1K0ZU,4B0K1ZV;AACA,qC1KyZU,4B0KzZV;AACA,oC1KskBW,6B0KtkBX;AACA,kC1KuZU,4B0KvZV;AACA,kC1K8cW,6B0K9cX;AACA,+B5LyFI,sC4LzFJ;AACA,gC3LibI,sC2LjbJ;AACA,iC3LgbI,sC2LhbJ;AACA,4B5LsFI,sC4LtFJ;AACA,8B5L2QG,qC4L3QH;AACA,8B5L0QG,qC4L1QH;AACA,8B5LqjBK,uC4LrjBL;AACA,oC5LkFI,sC4LlFJ;AACA,8B1IgKM,uC0IhKN;AACA,yC1K4YU,4B0K5YV;AACA,kCtMIU,wCsMJV;AACA,0BtJ4Da,gDsJ5Db;AACA,iCxJiDiB,wDwJjDjB;AACA,2C1KwYU,4B0KxYV;AACA,6B3L25BY,8C2L35BZ;AACA,6B3L05BY,8C2L15BZ;AACA,gC5LyEI,sC4LzEJ;AACA,4B5L0iBK,uC4L1iBL;AACA,6B5LyiBK,uC4LziBL;AACA,4B5LwiBK,uC4LxiBL;AACA,4B5LuiBK,uC4LviBL;AACA,yB5LsiBK,uC4LtiBL;AACA,oC5LqiBK,uC4LriBL;AACA,8C1KygBS,2B0KzgBT;AACA,kC5LmiBK,uC4LniBL;AACA,kCpJnCc,kDoJmCd;AACA,4CtKjCkB,0DsKiClB;AACA,kDtKlCkB,0DsKkClB;AACA,+C1KyXU,4B0KzXV;AACA,4C1KwXU,4B0KxXV;AACA,2C1KuXU,4B0KvXV;AACA,8C1K6jBY,8B0K7jBZ;AACA,+C1K4jBY,8B0K5jBZ;AACA,8DtKxCkB,0DsKwClB;AACA,8C1KmXU,4B0KnXV;AACA,iD1KyjBY,8B0KzjBZ;AACA,wD1KiXU,4B0KjXV;AACA,uD1KgXU,4B0KhXV;AACA,mD1K+WU,4B0K/WV;AACA,iD1K8WU,4B0K9WV;AACA,gE1KqaW,6B0KraX;AACA,4E1KoaW,6B0KpaX;AACA,6B5LihBK,uC4LjhBL;AACA,6B5LghBK,uC4LhhBL;AACA,6B3LsYI,sC2LtYJ;AACA,6B5L8gBK,uC4L9gBL;AACA,6B5L6gBK,uC4L7gBL;AACA,8B5L4gBK,uC4L5gBL;AACA,6B5L2gBK,uC4L3gBL;AACA,uC5L0gBK,uC4L1gBL;AACA,8B5LygBK,uC4LzgBL;AACA,6B5LwgBK,uC4LxgBL;AACA,mC5LugBK,uC4LvgBL;AACA,sC5LsgBK,uC4LtgBL;AACA,8B5LqgBK,uC4LrgBL;AACA,2B5LogBK,uC4LpgBL;AACqB;AACQ,0CAAQ,W1KsgC/B,wB0KtgC+B,CAAR;AACL,qCAAO,UzN0C1B,2ByN1C0B,CAAP;AACC,sCAAO,UzNyC3B,2ByNzC2B,CAAP;AACA,sCAAO,UzNwC3B,2ByNxC2B,CAAP;AACD,qCAAO,UzNuC1B,2ByNvC0B,CAAP;AACE,uCAAO,UzNsC5B,2ByNtC4B,CAAP;AACD,sCAAO,UzNqC3B,2ByNrC2B,CAAP;AACC,uCAAO,UzNoC5B,2ByNpC4B,CAAP;AACG,0CAAO,UzNmC/B,2ByNnC+B,EAAkB,kBAAzB;AACA,0CAAO,UzNkC/B,2ByNlC+B,EAAkB,kBAAzB;AACI,8CAAO,UzNiCnC,2ByNjCmC,EAAoB,wBAA3B;AACF,4CAAO,UzNgCjC,2ByNhCiC,CAAP;AACV,kCAAO,UzN+BvB,2ByN/BuB,CAAP;AACK,uCAAO,UzN8B5B,2ByN9B4B,CAAP;AACL,kCAAO,UzN6BvB,2ByN7BuB,CAAP;AACG,qCAAO,UzN4B1B,2ByN5B0B,CAAP;AACU,+CAAO,UzN2BpC,2ByN3BoC,CAAP;AACH,4CAAO,UzN0BjC,2ByN1BiC,CAAP;AACR,oCAAO,UzNyBzB,2ByNzByB,CAAP;AACM,0CAAO,UzNwB/B,2ByNxB+B,EAAuB,yBAA9B;AACM,gDAAO,UzNuBrC,2ByNvBqC,CAAP;AACH,6CAAO,UzNsBlC,2ByNtBkC,CAAP;AACF,2CAAO,UzNqBhC,2ByNrBgC,CAAP;AACI,+CAAQ,W1K++BpC,wB0K/+BoC,CAAR;AACT,sCAAO,UzNmB3B,2ByNnB2B,CAAP;AACA,sCAAO,UzNkB3B,2ByNlB2B,CAAP;AACF,oCAAO,UzNiBzB,2ByNjByB,CAAP;AACE,sCAAO,UzNgB3B,2ByNhB2B,CAAP;AACA,sCAAO,UzNe3B,2ByNf2B,CAAP;AACC,uCAAO,UzNc5B,2ByNd4B,CAAP;AAjGtB;AAwIQ,wBAAC;AACD,wBAAC;AACD,wBAAC;AACD,wBAAC;AACJ,qBAAC;AACW,iCAAC;AAExB;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AACA;AAAO;AAAQ;AAAK;AAAQ;AAAQ;AAAS;AAC7C;AACA;AACA;AACA;AACA;AA5LF,GA8Lc,mbA9Ld;ACAA,sBAAiB,yhCAAjB;;;AA4DE;AA5DF;A1NoGgB,kESkHE;ATlHF,mJyC0PT;AzC1PS,+JyC0PT;AzC1PS,4IyC0PT;AzC1PS,iGyC0PT;AAvRM;AzC6BG,+EqCvFK;AIqER;AApEW;ALFb;AKcS;AA8BN;AAwCD;AAwBU;ALxEV;AAOA;AKgGN;AzCnDS,qDgBvER;AhBuEQ,wDgByKL;AhBzKK,yDgBkEJ;AhBlEI,6DgBkFA;AhBlFA,0DgBkGH;AhBlGG,4DgB4ID;AhB5IC,kGyC0PT;AzC1PS,mGyC0PT;AzC1PS,mGyC0PT;AzC1PS,mGyC0PT;AzC1PS,kGyC0PT;AAvRM;AzC6BG,yFsCgFQ;AGlGX;AApEW;ALFb;AKcS;AA8BN;AAwCD;AAwBU;ALxEV;AAOA;AKgGN;AAoEM;AApJA;AzC6BG,6FsCuOY;AGzPf;AApEW;ALFb;AKcS;AA8BN;AAwCD;AAwBU;ALxEV;AAOA;AKgGN;AAoEM;AApJA;AzC6BG,yFsCuPQ;AGzQX;AApEW;ALFb;AKcS;AA8BN;AAwCD;AAwBU;ALxEV;AAOA;AKgGN;AAoEM;AAmIN;AzC1PS,+GyC0PT;AAvRM;AzC6BG,qE0CuPL;ADzQE;AApEW;AA2VX;AA4IQ;ALreN;AAIJ;AAaO;AAOQ;AK+Bb;AzC6BG,kGuCiOkB;AEnPrB;AApEW;ALFb;AKcS;AA8BN;AAwCD;AAwBU;ALxEV;AAOA;AKgGN;AAoEM;AiL3Nb;AA6DA;AACE,mCAAW;AACX,mCAAW,eAAX,GAA2B;AAC3B,mCAAW,mBAAX,GAAiC;AACjC,mCAAW,WAAW,CAAC,iBAAQ;;;;QAAT;AACtB,mCAAW,mBAAiB,CAAC,eAAM;;;;QAAP;AAC5B,mCAAW;AANb;AA7DA"}